diff --git a/src/bootstrap/gerbil/compiler/base.ssxi.ss b/src/bootstrap/gerbil/compiler/base.ssxi.ss index 9a049e1d4..7a37704da 100644 --- a/src/bootstrap/gerbil/compiler/base.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/base.ssxi.ss @@ -129,14 +129,46 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) - (declare-type gxc#raise-compile-error (@lambda (2) #f)) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/compiler/base))) + (declare-type + gxc#raise-compile-error + (@lambda (2) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base))) (declare-type gxc#verbose (@lambda (0) #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base))) (declare-type gxc#+verbose-mutex+ (optimizer-resolve-class '(typedecl gxc#+verbose-mutex+) 'mutex::t)) @@ -145,72 +177,241 @@ package: gerbil/compiler (optimizer-resolve-class '(typedecl gxc#module-path-reserved-chars) 'string::t)) - (declare-type gxc#module-id->path-string (@lambda 1 #f)) - (declare-type gxc#map* (@lambda 2 #f)) + (declare-type + gxc#module-id->path-string + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base))) + (declare-type + gxc#map* + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base))) (declare-type gxc#symbol-in-local-scope? (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base))) (declare-type gxc#gensym-reference? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#generate-runtime-binding-id (@lambda 1 #f)) - (declare-type gxc#generate-runtime-binding-id* (@lambda 1 #f)) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base))) + (declare-type + gxc#generate-runtime-binding-id + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base))) + (declare-type + gxc#generate-runtime-binding-id* + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base))) (declare-type gxc#generate-runtime-temporary__% (@lambda 1 #f signature: - (return: symbol::t effect: #f arguments: #f unchecked: #f))) + (return: + symbol::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base))) (declare-type gxc#generate-runtime-temporary__0 (@lambda 0 #f signature: - (return: symbol::t effect: #f arguments: #f unchecked: #f))) + (return: + symbol::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base))) (declare-type gxc#generate-runtime-temporary (@case-lambda (0 gxc#generate-runtime-temporary__0 signature: - (return: symbol::t effect: #f arguments: #f unchecked: #f)) + (return: + symbol::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base)) (1 gxc#generate-runtime-temporary__% signature: - (return: symbol::t effect: #f arguments: #f unchecked: #f)))) + (return: + symbol::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base)))) (declare-type gxc#generate-runtime-gensym-reference__% (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base))) (declare-type gxc#generate-runtime-gensym-reference__0 (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base))) (declare-type gxc#generate-runtime-gensym-reference (@case-lambda (1 gxc#generate-runtime-gensym-reference__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base)) (2 gxc#generate-runtime-gensym-reference__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base)))) (declare-type gxc#runtime-identifier=? (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#identifier-symbol (@lambda 1 #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base))) + (declare-type + gxc#identifier-symbol + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/base)))) diff --git a/src/bootstrap/gerbil/compiler/base~0.scm b/src/bootstrap/gerbil/compiler/base~0.scm index c41cca523..fa9fea3ff 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 1712533290) + (define gerbil/compiler/base::timestamp 1712573431) (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 ((_%verbosity130540130542%_ + (let ((_%verbosity129727129729%_ (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_VERBOSE" '#f)))) - (if _%verbosity130540130542%_ - (let* ((_%verbosity130545%_ _%verbosity130540130542%_) - (_%$e130547%_ (string->number _%verbosity130545%_))) - (if _%$e130547%_ _%$e130547%_ _%verbosity130545%_)) + (if _%verbosity129727129729%_ + (let* ((_%verbosity129732%_ _%verbosity129727129729%_) + (_%$e129734%_ (string->number _%verbosity129732%_))) + (if _%$e129734%_ _%$e129734%_ _%verbosity129732%_)) '#f)))) (define gxc#current-compile-optimize (make-parameter '#f)) (define gxc#current-compile-debug (make-parameter '#f)) @@ -29,22 +29,22 @@ (define gxc#current-compile-context (make-parameter '#f)) (define gxc#current-compile-local-env (make-parameter '())) (define gxc#symbol-table::t - (let ((__tmp130602 (list)) (__tmp130601 (cons (cons 'struct: '#t) '()))) + (let ((__tmp129789 (list)) (__tmp129788 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#symbol-table::t 'symbol-table - __tmp130602 + __tmp129789 '(gensyms bindings) - __tmp130601 + __tmp129788 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (__make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _%$args130538%_ - (apply make-instance gxc#symbol-table::t _%$args130538%_))) + (lambda _%$args129725%_ + (apply make-instance gxc#symbol-table::t _%$args129725%_))) (define gxc#symbol-table-gensyms (let () (declare (not safe)) @@ -78,43 +78,43 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#symbol-table::t 'bindings))) (define gxc#symbol-table:::init! - (lambda (_%self130525%_) - (let ((_%self130528%_ _%self130525%_)) - (if (let ((__tmp130603 + (lambda (_%self129712%_) + (let ((_%self129715%_ _%self129712%_)) + (if (let ((__tmp129790 (let () (declare (not safe)) - (##structure-length _%self130528%_)))) + (##structure-length _%self129715%_)))) (declare (not safe)) - (##fx< '2 __tmp130603)) + (##fx< '2 __tmp129790)) (begin - (let ((__tmp130604 + (let ((__tmp129791 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self130528%_ - __tmp130604 + _%self129715%_ + __tmp129791 '1 '#f '#f)) - (let ((__tmp130605 + (let ((__tmp129792 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self130528%_ - __tmp130605 + _%self129715%_ + __tmp129792 '2 '#f '#f)) '#!void) - (let ((__tmp130606 + (let ((__tmp129793 (let () (declare (not safe)) - (##vector-length _%self130528%_)))) + (##vector-length _%self129715%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self130528%_ + _%self129715%_ '2 - __tmp130606)))))) + __tmp129793)))))) (let () (declare (not safe)) (__bind-method! @@ -123,146 +123,132 @@ gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_%message130394%_ _%stx130395%_ . _%details130396%_) - (let ((_%ctx130401%_ - (let ((_%$e130398%_ + (lambda (_%message129581%_ _%stx129582%_ . _%details129583%_) + (let ((_%ctx129588%_ + (let ((_%$e129585%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (if _%$e130398%_ _%$e130398%_ 'compile)))) + (if _%$e129585%_ _%$e129585%_ 'compile)))) (apply gx#raise-syntax-error - _%ctx130401%_ - _%message130394%_ - _%stx130395%_ - _%details130396%_)))) + _%ctx129588%_ + _%message129581%_ + _%stx129582%_ + _%details129583%_)))) (define gxc#verbose - (lambda _%args130391%_ + (lambda _%args129578%_ (if (let () (declare (not safe)) (gxc#current-compile-verbose)) - (let ((__tmp130607 (lambda () (apply displayln _%args130391%_)))) + (let ((__tmp129794 (lambda () (apply displayln _%args129578%_)))) (declare (not safe)) - (__with-lock gxc#+verbose-mutex+ __tmp130607)) + (__with-lock gxc#+verbose-mutex+ __tmp129794)) '#!void))) (define gxc#+verbose-mutex+ (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (lambda (_%id130373%_) - (let* ((_%str130375%_ - (if (let () (declare (not safe)) (symbol? _%id130373%_)) - (symbol->string _%id130373%_) - _%id130373%_)) - (_%len130377%_ (string-length _%str130375%_)) - (_%res130379%_ - (let () (declare (not safe)) (##make-string _%len130377%_)))) - (let _%lp130382%_ ((_%i130384%_ '0)) - (if (let () (declare (not safe)) (##fx< _%i130384%_ _%len130377%_)) - (let* ((_%char130386%_ (string-ref _%str130375%_ _%i130384%_)) - (_%xchar130388%_ + (lambda (_%id129560%_) + (let* ((_%str129562%_ + (if (symbol? _%id129560%_) + (symbol->string _%id129560%_) + _%id129560%_)) + (_%len129564%_ (string-length _%str129562%_)) + (_%res129566%_ + (let () (declare (not safe)) (##make-string _%len129564%_)))) + (let _%lp129569%_ ((_%i129571%_ '0)) + (if (let () (declare (not safe)) (##fx< _%i129571%_ _%len129564%_)) + (let* ((_%char129573%_ (string-ref _%str129562%_ _%i129571%_)) + (_%xchar129575%_ (if (let () (declare (not safe)) (string-index__0 gxc#module-path-reserved-chars - _%char130386%_)) + _%char129573%_)) '#\_ - _%char130386%_))) - (string-set! _%res130379%_ _%i130384%_ _%xchar130388%_) - (let ((__tmp130608 - (let () (declare (not safe)) (##fx+ _%i130384%_ '1)))) - (declare (not safe)) - (_%lp130382%_ __tmp130608))) - _%res130379%_))))) + _%char129573%_))) + (string-set! _%res129566%_ _%i129571%_ _%xchar129575%_) + (_%lp129569%_ + (let () (declare (not safe)) (##fx+ _%i129571%_ '1)))) + _%res129566%_))))) (define gxc#map* - (lambda (_%proc130315%_ _%maybe-improper-list130316%_) - (let _%recur130318%_ ((_%rest130320%_ _%maybe-improper-list130316%_)) - (let* ((_%rest130321130332%_ _%rest130320%_) - (_%E130325130336%_ + (lambda (_%proc129502%_ _%maybe-improper-list129503%_) + (let _%recur129505%_ ((_%rest129507%_ _%maybe-improper-list129503%_)) + (let* ((_%rest129508129519%_ _%rest129507%_) + (_%E129512129523%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest130321130332%_ + _%rest129508129519%_ '([hd . rest]) '([]) '(tail))) '#!void))) - (let ((_%K130328130361%_ - (lambda (_%rest130358%_ _%hd130359%_) - (cons (_%proc130315%_ _%hd130359%_) - (let () - (declare (not safe)) - (_%recur130318%_ _%rest130358%_))))) - (_%K130327130352%_ (lambda () '())) - (_%K130326130342%_ - (lambda (_%tail130340%_) (_%proc130315%_ _%tail130340%_)))) - (let ((_%try-match130323130355%_ + (let ((_%K129515129548%_ + (lambda (_%rest129545%_ _%hd129546%_) + (cons (_%proc129502%_ _%hd129546%_) + (_%recur129505%_ _%rest129545%_)))) + (_%K129514129539%_ (lambda () '())) + (_%K129513129529%_ + (lambda (_%tail129527%_) (_%proc129502%_ _%tail129527%_)))) + (let ((_%try-match129510129542%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest130321130332%_)) - (let () (declare (not safe)) (_%K130327130352%_)) - (let ((_%tail130345%_ _%rest130321130332%_)) + (##null? _%rest129508129519%_)) + (_%K129514129539%_) + (let ((_%tail129532%_ _%rest129508129519%_)) (declare (not safe)) - (_%proc130315%_ _%tail130345%_)))))) + (_%proc129502%_ _%tail129532%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest130321130332%_)) - (let ((_%tl130330130366%_ + (##pair? _%rest129508129519%_)) + (let ((_%tl129517129553%_ (let () (declare (not safe)) - (##cdr _%rest130321130332%_))) - (_%hd130329130364%_ + (##cdr _%rest129508129519%_))) + (_%hd129516129551%_ (let () (declare (not safe)) - (##car _%rest130321130332%_)))) - (let ((_%hd130369%_ _%hd130329130364%_) - (_%rest130371%_ _%tl130330130366%_)) - (let () - (declare (not safe)) - (_%K130328130361%_ _%rest130371%_ _%hd130369%_)))) - (let () - (declare (not safe)) - (_%try-match130323130355%_))))))))) + (##car _%rest129508129519%_)))) + (let ((_%hd129556%_ _%hd129516129551%_) + (_%rest129558%_ _%tl129517129553%_)) + (_%K129515129548%_ _%rest129558%_ _%hd129556%_))) + (_%try-match129510129542%_)))))))) (define gxc#symbol-in-local-scope? - (lambda (_%sym130310%_) - (let ((_%$e130312%_ - (let ((__tmp130609 - (let () - (declare (not safe)) - (gxc#gensym-reference? _%sym130310%_)))) - (declare (not safe)) - (not __tmp130609)))) - (if _%$e130312%_ - _%$e130312%_ - (memq _%sym130310%_ + (lambda (_%sym129497%_) + (let ((_%$e129499%_ (not (gxc#gensym-reference? _%sym129497%_)))) + (if _%$e129499%_ + _%$e129499%_ + (memq _%sym129497%_ (let () (declare (not safe)) (gxc#current-compile-local-env))))))) (define gxc#gensym-reference? - (lambda (_%sym130306%_) - (let ((_%str130308%_ (symbol->string _%sym130306%_))) + (lambda (_%sym129493%_) + (let ((_%str129495%_ (symbol->string _%sym129493%_))) (if (let () (declare (not safe)) - (##string-prefix? '"_%" _%str130308%_)) + (##string-prefix? '"_%" _%str129495%_)) (let () (declare (not safe)) - (##string-suffix? '"%_" _%str130308%_)) + (##string-suffix? '"%_" _%str129495%_)) '#f)))) (define gxc#generate-runtime-binding-id - (lambda (_%id130277%_) - (let ((_%$e130279%_ + (lambda (_%id129464%_) + (let ((_%$e129466%_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id130277%_ + _%id129464%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id130277%_)) + (gx#resolve-identifier__0 _%id129464%_)) '#f))) - (if _%$e130279%_ - ((lambda (_%bind130282%_) - (let ((_%eid130284%_ - (##structure-ref _%bind130282%_ '1 gx#binding::t '#f)) - (_%ht130285%_ + (if _%$e129466%_ + ((lambda (_%bind129469%_) + (let ((_%eid129471%_ + (##structure-ref _%bind129469%_ '1 gx#binding::t '#f)) + (_%ht129472%_ (##structure-ref (let () (declare (not safe)) @@ -272,174 +258,153 @@ '#f))) (if (let () (declare (not safe)) - (interned-symbol? _%eid130284%_)) - (let () _%eid130284%_) - (let ((_%$e130288%_ + (interned-symbol? _%eid129471%_)) + _%eid129471%_ + (let ((_%$e129475%_ (let () (declare (not safe)) - (hash-get _%ht130285%_ _%eid130284%_)))) - (if _%$e130288%_ - _%$e130288%_ + (hash-get _%ht129472%_ _%eid129471%_)))) + (if _%$e129475%_ + _%$e129475%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%bind130282%_ + _%bind129469%_ 'gx#local-binding::t)) - (let ((_%gid130292%_ - (let () - (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 - _%eid130284%_)))) + (let ((_%gid129479%_ + (gxc#generate-runtime-gensym-reference__0 + _%eid129471%_))) (let () (declare (not safe)) (hash-put! - _%ht130285%_ - _%eid130284%_ - _%gid130292%_)) - _%gid130292%_) + _%ht129472%_ + _%eid129471%_ + _%gid129479%_)) + _%gid129479%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind130282%_ + _%bind129469%_ 'gx#module-binding::t)) - (let ((_%gid130301%_ - (let ((_%$e130295%_ + (let ((_%gid129488%_ + (let ((_%$e129482%_ (##structure-ref (##structure-ref - _%bind130282%_ + _%bind129469%_ '4 gx#module-binding::t '#f) '6 gx#module-context::t '#f))) - (if _%$e130295%_ - ((lambda (_%ns130298%_) + (if _%$e129482%_ + ((lambda (_%ns129485%_) (let () (declare (not safe)) (make-symbol__1 - _%ns130298%_ + _%ns129485%_ '"#" - _%eid130284%_))) - _%$e130295%_) - (let () - (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 - _%eid130284%_)))))) + _%eid129471%_))) + _%$e129482%_) + (gxc#generate-runtime-gensym-reference__0 + _%eid129471%_))))) (let () (declare (not safe)) (hash-put! - _%ht130285%_ - _%eid130284%_ - _%gid130301%_)) - _%gid130301%_) - (let () - (declare (not safe)) - (gxc#raise-compile-error - '"Cannot compile reference to uninterned binding" - _%id130277%_ - _%eid130284%_ - _%bind130282%_))))))))) - _%$e130279%_) - (if (let ((__tmp130610 + _%ht129472%_ + _%eid129471%_ + _%gid129488%_)) + _%gid129488%_) + (gxc#raise-compile-error + '"Cannot compile reference to uninterned binding" + _%id129464%_ + _%eid129471%_ + _%bind129469%_)))))))) + _%$e129466%_) + (if (let ((__tmp129795 (let () (declare (not safe)) - (gx#stx-e _%id130277%_)))) - (declare (not safe)) - (interned-symbol? __tmp130610)) - (let () (declare (not safe)) (gx#stx-e _%id130277%_)) - (let () + (gx#stx-e _%id129464%_)))) (declare (not safe)) - (gxc#raise-compile-error - '"Cannot compile reference to uninterned identifier" - _%id130277%_))))))) + (interned-symbol? __tmp129795)) + (let () (declare (not safe)) (gx#stx-e _%id129464%_)) + (gxc#raise-compile-error + '"Cannot compile reference to uninterned identifier" + _%id129464%_)))))) (define gxc#generate-runtime-binding-id* - (lambda (_%id130275%_) - (if (let () (declare (not safe)) (gx#identifier? _%id130275%_)) - (let () - (declare (not safe)) - (gxc#generate-runtime-binding-id _%id130275%_)) - (let () - (declare (not safe)) - (gxc#generate-runtime-temporary__0))))) + (lambda (_%id129462%_) + (if (let () (declare (not safe)) (gx#identifier? _%id129462%_)) + (gxc#generate-runtime-binding-id _%id129462%_) + (gxc#generate-runtime-temporary__0)))) (define gxc#generate-runtime-temporary__% - (lambda (_%top130262%_) - (if _%top130262%_ - (let ((_%ns130264%_ + (lambda (_%top129449%_) + (if _%top129449%_ + (let ((_%ns129451%_ (##structure-ref - (let ((__tmp130611 + (let ((__tmp129796 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) - (gx#core-context-top__1 __tmp130611)) + (gx#core-context-top__1 __tmp129796)) '6 gx#module-context::t '#f)) - (_%phi130265%_ + (_%phi129452%_ (let () (declare (not safe)) (gx#current-expander-phi)))) - (if _%ns130264%_ - (if (fxpositive? _%phi130265%_) - (let ((__tmp130613 (number->string _%phi130265%_)) - (__tmp130612 + (if _%ns129451%_ + (if (fxpositive? _%phi129452%_) + (let ((__tmp129798 (number->string _%phi129452%_)) + (__tmp129797 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 - _%ns130264%_ + _%ns129451%_ '"[" - __tmp130613 + __tmp129798 '"]#_" - __tmp130612 + __tmp129797 '"_")) - (let ((__tmp130614 + (let ((__tmp129799 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 _%ns130264%_ '"#_" __tmp130614 '"_"))) - (if (fxpositive? _%phi130265%_) - (let ((__tmp130616 (number->string _%phi130265%_)) - (__tmp130615 + (make-symbol__1 _%ns129451%_ '"#_" __tmp129799 '"_"))) + (if (fxpositive? _%phi129452%_) + (let ((__tmp129801 (number->string _%phi129452%_)) + (__tmp129800 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 '"[" - __tmp130616 + __tmp129801 '"]#_" - __tmp130615 + __tmp129800 '"_")) - (let ((__tmp130617 + (let ((__tmp129802 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp130617 '"_"))))) - (let ((__tmp130618 (let () (declare (not safe)) (##gensym)))) + (make-symbol__1 '"_" __tmp129802 '"_"))))) + (let ((__tmp129803 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp130618 '"_"))))) + (make-symbol__1 '"_" __tmp129803 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_%top130271%_ '#f)) - (declare (not safe)) - (gxc#generate-runtime-temporary__% _%top130271%_)))) + (let ((_%top129458%_ '#f)) + (gxc#generate-runtime-temporary__% _%top129458%_)))) (define gxc#generate-runtime-temporary - (lambda _g130620_ - (let ((_g130619_ (let () (declare (not safe)) (##length _g130620_)))) - (cond ((let () (declare (not safe)) (##fx= _g130619_ 0)) - (apply (lambda () - (let () - (declare (not safe)) - (gxc#generate-runtime-temporary__0))) - _g130620_)) - ((let () (declare (not safe)) (##fx= _g130619_ 1)) - (apply (lambda (_%top130273%_) - (let () - (declare (not safe)) - (gxc#generate-runtime-temporary__% _%top130273%_))) - _g130620_)) + (lambda _g129805_ + (let ((_g129804_ (let () (declare (not safe)) (##length _g129805_)))) + (cond ((let () (declare (not safe)) (##fx= _g129804_ 0)) + (apply gxc#generate-runtime-temporary__0 _g129805_)) + ((let () (declare (not safe)) (##fx= _g129804_ 1)) + (apply gxc#generate-runtime-temporary__% _g129805_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g130620_)))))) + _g129805_)))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_%sym130240%_ _%quote?130241%_) - (let* ((_%ht130243%_ + (lambda (_%sym129427%_ _%quote?129428%_) + (let* ((_%ht129430%_ (##structure-ref (let () (declare (not safe)) @@ -447,81 +412,63 @@ '1 gxc#symbol-table::t '#f)) - (_%$e130245%_ + (_%$e129432%_ (let () (declare (not safe)) - (hash-get _%ht130243%_ _%sym130240%_)))) - (if _%$e130245%_ - _%$e130245%_ - (let ((_%g130249%_ - (if _%quote?130241%_ - (let ((__tmp130621 + (hash-get _%ht129430%_ _%sym129427%_)))) + (if _%$e129432%_ + _%$e129432%_ + (let ((_%g129436%_ + (if _%quote?129428%_ + (let ((__tmp129806 (let () (declare (not safe)) (gxc#current-compile-timestamp)))) (declare (not safe)) (make-symbol__1 '"__" - _%sym130240%_ + _%sym129427%_ '"__" - __tmp130621)) + __tmp129806)) (let () (declare (not safe)) - (make-symbol__1 '"_%" _%sym130240%_ '"%_"))))) + (make-symbol__1 '"_%" _%sym129427%_ '"%_"))))) (let () (declare (not safe)) - (hash-put! _%ht130243%_ _%sym130240%_ _%g130249%_)) - _%g130249%_))))) + (hash-put! _%ht129430%_ _%sym129427%_ _%g129436%_)) + _%g129436%_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_%sym130254%_) - (let ((_%quote?130256%_ '#f)) - (declare (not safe)) + (lambda (_%sym129441%_) + (let ((_%quote?129443%_ '#f)) (gxc#generate-runtime-gensym-reference__% - _%sym130254%_ - _%quote?130256%_)))) + _%sym129441%_ + _%quote?129443%_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g130623_ - (let ((_g130622_ (let () (declare (not safe)) (##length _g130623_)))) - (cond ((let () (declare (not safe)) (##fx= _g130622_ 1)) - (apply (lambda (_%sym130254%_) - (let () - (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 - _%sym130254%_))) - _g130623_)) - ((let () (declare (not safe)) (##fx= _g130622_ 2)) - (apply (lambda (_%sym130258%_ _%quote?130259%_) - (let () - (declare (not safe)) - (gxc#generate-runtime-gensym-reference__% - _%sym130258%_ - _%quote?130259%_))) - _g130623_)) + (lambda _g129808_ + (let ((_g129807_ (let () (declare (not safe)) (##length _g129808_)))) + (cond ((let () (declare (not safe)) (##fx= _g129807_ 1)) + (apply gxc#generate-runtime-gensym-reference__0 _g129808_)) + ((let () (declare (not safe)) (##fx= _g129807_ 2)) + (apply gxc#generate-runtime-gensym-reference__% _g129808_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g130623_)))))) + _g129808_)))))) (define gxc#runtime-identifier=? - (lambda (_%id1130232%_ _%id2130233%_) - (letrec ((_%symbol-e130235%_ - (lambda (_%id130237%_) - (if (let () (declare (not safe)) (symbol? _%id130237%_)) - _%id130237%_ - (let () - (declare (not safe)) - (gxc#generate-runtime-binding-id _%id130237%_)))))) - (eq? (let () (declare (not safe)) (_%symbol-e130235%_ _%id1130232%_)) - (let () - (declare (not safe)) - (_%symbol-e130235%_ _%id2130233%_)))))) + (lambda (_%id1129419%_ _%id2129420%_) + (letrec ((_%symbol-e129422%_ + (lambda (_%id129424%_) + (if (symbol? _%id129424%_) + _%id129424%_ + (gxc#generate-runtime-binding-id _%id129424%_))))) + (eq? (_%symbol-e129422%_ _%id1129419%_) + (_%symbol-e129422%_ _%id2129420%_))))) (define gxc#identifier-symbol - (lambda (_%stx130230%_) + (lambda (_%stx129417%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%stx130230%_ + _%stx129417%_ 'gx#syntax-quote::t)) - (let () - (declare (not safe)) - (gxc#generate-runtime-binding-id _%stx130230%_)) - (let () (declare (not safe)) (gx#stx-e _%stx130230%_))))))) + (gxc#generate-runtime-binding-id _%stx129417%_) + (let () (declare (not safe)) (gx#stx-e _%stx129417%_))))))) diff --git a/src/bootstrap/gerbil/compiler/base~1.scm b/src/bootstrap/gerbil/compiler/base~1.scm index fe4d5cfde..d71a40135 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]#_g130633_| + (define |gxc[1]#_g129818_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g130635_| + (define |gxc[1]#_g129820_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g130637_| + (define |gxc[1]#_g129822_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g130639_| + (define |gxc[1]#_g129824_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g130640_| + (define |gxc[1]#_g129825_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g130642_| + (define |gxc[1]#_g129827_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g130643_| + (define |gxc[1]#_g129828_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g130645_| + (define |gxc[1]#_g129830_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g130646_| + (define |gxc[1]#_g129831_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g130648_| + (define |gxc[1]#_g129833_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g130649_| + (define |gxc[1]#_g129834_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! @@ -79,378 +79,374 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_%stx129828%_) + (lambda (_%stx129015%_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _%stx129828%_ + _%stx129015%_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_%stx129831%_) - (let* ((_%g129834129858%_ - (lambda (_%g129835129854%_) + (lambda (_%stx129018%_) + (let* ((_%g129021129045%_ + (lambda (_%g129022129041%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g129835129854%_)))) - (_%g129833130161%_ - (lambda (_%g129835129862%_) + _%g129022129041%_)))) + (_%g129020129348%_ + (lambda (_%g129022129049%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g129835129862%_)) - (let ((_%e129840129865%_ + (gx#stx-pair? _%g129022129049%_)) + (let ((_%e129027129052%_ (let () (declare (not safe)) - (gx#syntax-e _%g129835129862%_)))) - (let ((_%hd129839129869%_ + (gx#syntax-e _%g129022129049%_)))) + (let ((_%hd129026129056%_ (let () (declare (not safe)) - (##car _%e129840129865%_))) - (_%tl129838129872%_ + (##car _%e129027129052%_))) + (_%tl129025129059%_ (let () (declare (not safe)) - (##cdr _%e129840129865%_)))) + (##cdr _%e129027129052%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl129838129872%_)) - (let ((_%e129843129875%_ + (gx#stx-pair? _%tl129025129059%_)) + (let ((_%e129030129062%_ (let () (declare (not safe)) - (gx#syntax-e _%tl129838129872%_)))) - (let ((_%hd129842129879%_ + (gx#syntax-e _%tl129025129059%_)))) + (let ((_%hd129029129066%_ (let () (declare (not safe)) - (##car _%e129843129875%_))) - (_%tl129841129882%_ + (##car _%e129030129062%_))) + (_%tl129028129069%_ (let () (declare (not safe)) - (##cdr _%e129843129875%_)))) + (##cdr _%e129030129062%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl129841129882%_)) - (let ((_g130624_ + (gx#stx-pair/null? _%tl129028129069%_)) + (let ((_g129809_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl129841129882%_ + _%tl129028129069%_ '0)))) (begin - (let ((_g130625_ + (let ((_g129810_ (let () (declare (not safe)) - (if (##values? _g130624_) + (if (##values? _g129809_) (##vector-length - _g130624_) + _g129809_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g130625_ 2))) + (##fx= _g129810_ 2))) (error "Context expects 2 values" - _g130625_))) - (let ((_%target129844129885%_ + _g129810_))) + (let ((_%target129031129072%_ (let () (declare (not safe)) - (##vector-ref _g130624_ 0))) - (_%tl129846129888%_ + (##vector-ref _g129809_ 0))) + (_%tl129033129075%_ (let () (declare (not safe)) (##vector-ref - _g130624_ + _g129809_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl129846129888%_)) - (letrec ((_%loop129847129891%_ - (lambda (_%hd129845129895%_ + _%tl129033129075%_)) + (letrec ((_%loop129034129078%_ + (lambda (_%hd129032129082%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause129851129898%_) + _%clause129038129085%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd129845129895%_)) - (let ((_%e129848129901%_ + (gx#stx-pair? _%hd129032129082%_)) + (let ((_%e129035129088%_ (let () (declare (not safe)) - (gx#syntax-e _%hd129845129895%_)))) - (let ((_%lp-hd129849129905%_ + (gx#syntax-e _%hd129032129082%_)))) + (let ((_%lp-hd129036129092%_ (let () (declare (not safe)) - (##car _%e129848129901%_))) - (_%lp-tl129850129908%_ + (##car _%e129035129088%_))) + (_%lp-tl129037129095%_ (let () (declare (not safe)) - (##cdr _%e129848129901%_)))) - (_%loop129847129891%_ - _%lp-tl129850129908%_ - (cons _%lp-hd129849129905%_ - _%clause129851129898%_)))) - (let ((_%clause129852129911%_ - (reverse _%clause129851129898%_))) - ((lambda (_%L129915%_ _%L129917%_) + (##cdr _%e129035129088%_)))) + (_%loop129034129078%_ + _%lp-tl129037129095%_ + (cons _%lp-hd129036129092%_ + _%clause129038129085%_)))) + (let ((_%clause129039129098%_ + (reverse _%clause129038129085%_))) + ((lambda (_%L129102%_ _%L129104%_) (if (let () (declare (not safe)) - (gx#identifier-list? _%L129917%_)) - (let* ((_%g129936129953%_ - (lambda (_%g129937129949%_) + (gx#identifier-list? _%L129104%_)) + (let* ((_%g129123129140%_ + (lambda (_%g129124129136%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g129937129949%_)))) - (_%g129935130014%_ - (lambda (_%g129937129957%_) + _%g129124129136%_)))) + (_%g129122129201%_ + (lambda (_%g129124129144%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g129937129957%_)) - (let ((_g130626_ + _%g129124129144%_)) + (let ((_g129811_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g129937129957%_ + _%g129124129144%_ '0)))) (begin - (let ((_g130627_ + (let ((_g129812_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g130626_) - (##vector-length _g130626_) + _g129811_) + (##vector-length _g129811_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g130627_ 2))) - (error "Context expects 2 values" _g130627_))) + (##fx= _g129812_ 2))) + (error "Context expects 2 values" _g129812_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target129939129960%_ + (let ((_%target129126129147%_ (let () (declare (not safe)) (##vector-ref - _g130626_ + _g129811_ 0))) - (_%tl129941129963%_ + (_%tl129128129150%_ (let () (declare (not safe)) (##vector-ref - _g130626_ + _g129811_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl129941129963%_)) - (letrec ((_%loop129942129966%_ + _%tl129128129150%_)) + (letrec ((_%loop129129129153%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd129940129970%_ _%clause129946129973%_) + (lambda (_%hd129127129157%_ _%clause129133129160%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd129940129970%_)) - (let ((_%e129943129976%_ + (gx#stx-pair? _%hd129127129157%_)) + (let ((_%e129130129163%_ (let () (declare (not safe)) - (gx#syntax-e _%hd129940129970%_)))) - (let ((_%lp-hd129944129980%_ + (gx#syntax-e _%hd129127129157%_)))) + (let ((_%lp-hd129131129167%_ (let () (declare (not safe)) - (##car _%e129943129976%_))) - (_%lp-tl129945129983%_ + (##car _%e129130129163%_))) + (_%lp-tl129132129170%_ (let () (declare (not safe)) - (##cdr _%e129943129976%_)))) - (_%loop129942129966%_ - _%lp-tl129945129983%_ - (cons _%lp-hd129944129980%_ - _%clause129946129973%_)))) - (let ((_%clause129947129986%_ - (reverse _%clause129946129973%_))) - ((lambda (_%L129990%_) - (let () - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'lambda)) - (cons (cons (let () - (declare - (not safe)) - (gx#datum->syntax__0 - '#f - '$stx)) - '()) - (cons (cons (let () + (##cdr _%e129130129163%_)))) + (_%loop129129129153%_ + _%lp-tl129132129170%_ + (cons _%lp-hd129131129167%_ + _%clause129133129160%_)))) + (let ((_%clause129134129173%_ + (reverse _%clause129133129160%_))) + ((lambda (_%L129177%_) + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'lambda)) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '$stx)) + '()) + (cons (cons (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'ast-case)) - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f '$stx)) - (cons _%L129917%_ - (let ((__tmp130628 - (lambda (_%g130005130008%_ - _%g130006130011%_) - (cons _%g130005130008%_ - _%g130006130011%_)))) - (declare (not safe)) - (__foldr1 - __tmp130628 - '() - _%L129990%_))))) - '()))))) + (not safe)) + (gx#datum->syntax__0 '#f 'ast-case)) + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '$stx)) + (cons _%L129104%_ + (let ((__tmp129813 + (lambda (_%g129192129195%_ + _%g129193129198%_) + (cons _%g129192129195%_ + _%g129193129198%_)))) + (declare (not safe)) + (__foldr1 __tmp129813 '() _%L129177%_))))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause129947129986%_)))))) - (_%loop129942129966%_ _%target129939129960%_ '())) - (_%g129936129953%_ _%g129937129957%_))))) + _%clause129134129173%_)))))) + (_%loop129129129153%_ _%target129126129147%_ '())) + (_%g129123129140%_ _%g129124129144%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g129936129953%_ - _%g129937129957%_))))) - (_%g129935130014%_ - (let ((__tmp130631 - (lambda (_%clause130018%_) - (let* ((_%__stx130550130551%_ - _%clause130018%_) - (_%g130022130049%_ + (_%g129123129140%_ + _%g129124129144%_))))) + (_%g129122129201%_ + (let ((__tmp129816 + (lambda (_%clause129205%_) + (let* ((_%__stx129737129738%_ + _%clause129205%_) + (_%g129209129236%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx130550130551%_))))) - (let ((_%__kont130553130554%_ - (lambda (_%L130134%_ - _%L130136%_) - (cons _%L130136%_ + _%__stx129737129738%_))))) + (let ((_%__kont129740129741%_ + (lambda (_%L129321%_ + _%L129323%_) + (cons _%L129323%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L130134%_ '())) + (cons _%L129321%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont130555130556%_ - (lambda (_%L130086%_ - _%L130088%_ - _%L130089%_) - (cons _%L130089%_ - (cons _%L130088%_ + (_%__kont129742129743%_ + (lambda (_%L129273%_ + _%L129275%_ + _%L129276%_) + (cons _%L129276%_ + (cons _%L129275%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L130086%_ '())) + (cons _%L129273%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx130550130551%_)) - (let ((_%e130028130114%_ + _%__stx129737129738%_)) + (let ((_%e129215129301%_ (let () (declare (not safe)) (gx#syntax-e - _%__stx130550130551%_)))) - (let ((_%tl130026130121%_ + _%__stx129737129738%_)))) + (let ((_%tl129213129308%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e130028130114%_))) - (_%hd130027130118%_ - (let () (declare (not safe)) (##car _%e130028130114%_)))) + (##cdr _%e129215129301%_))) + (_%hd129214129305%_ + (let () (declare (not safe)) (##car _%e129215129301%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl130026130121%_)) - (let ((_%e130031130124%_ + (gx#stx-pair? _%tl129213129308%_)) + (let ((_%e129218129311%_ (let () (declare (not safe)) - (gx#syntax-e _%tl130026130121%_)))) - (let ((_%tl130029130131%_ + (gx#syntax-e _%tl129213129308%_)))) + (let ((_%tl129216129318%_ (let () (declare (not safe)) - (##cdr _%e130031130124%_))) - (_%hd130030130128%_ + (##cdr _%e129218129311%_))) + (_%hd129217129315%_ (let () (declare (not safe)) - (##car _%e130031130124%_)))) + (##car _%e129218129311%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl130029130131%_)) - (_%__kont130553130554%_ - _%hd130030130128%_ - _%hd130027130118%_) + (gx#stx-null? _%tl129216129318%_)) + (_%__kont129740129741%_ + _%hd129217129315%_ + _%hd129214129305%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl130029130131%_)) - (let ((_%e130043130076%_ + (gx#stx-pair? _%tl129216129318%_)) + (let ((_%e129230129263%_ (let () (declare (not safe)) - (gx#syntax-e _%tl130029130131%_)))) - (let ((_%tl130041130083%_ + (gx#syntax-e _%tl129216129318%_)))) + (let ((_%tl129228129270%_ (let () (declare (not safe)) - (##cdr _%e130043130076%_))) - (_%hd130042130080%_ + (##cdr _%e129230129263%_))) + (_%hd129229129267%_ (let () (declare (not safe)) - (##car _%e130043130076%_)))) + (##car _%e129230129263%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl130041130083%_)) - (_%__kont130555130556%_ - _%hd130042130080%_ - _%hd130030130128%_ - _%hd130027130118%_) + (gx#stx-null? _%tl129228129270%_)) + (_%__kont129742129743%_ + _%hd129229129267%_ + _%hd129217129315%_ + _%hd129214129305%_) (let () (declare (not safe)) - (_%g130022130049%_))))) + (_%g129209129236%_))))) (let () (declare (not safe)) - (_%g130022130049%_)))))) - (let () (declare (not safe)) (_%g130022130049%_))))) + (_%g129209129236%_)))))) + (let () (declare (not safe)) (_%g129209129236%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g130022130049%_))))))) - (__tmp130629 - (let ((__tmp130630 - (lambda (_%g130152130155%_ - _%g130153130158%_) - (cons _%g130152130155%_ - _%g130153130158%_)))) + (_%g129209129236%_))))))) + (__tmp129814 + (let ((__tmp129815 + (lambda (_%g129339129342%_ + _%g129340129345%_) + (cons _%g129339129342%_ + _%g129340129345%_)))) (declare (not safe)) (__foldr1 - __tmp130630 + __tmp129815 '() - _%L129915%_)))) + _%L129102%_)))) (declare (not safe)) - (gx#stx-map1 __tmp130631 __tmp130629)))) - (_%g129834129858%_ _%g129835129862%_))) - _%clause129852129911%_ - _%hd129842129879%_)))))) + (gx#stx-map1 __tmp129816 __tmp129814)))) + (_%g129021129045%_ _%g129022129049%_))) + _%clause129039129098%_ + _%hd129029129066%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop129847129891%_ - _%target129844129885%_ + (_%loop129034129078%_ + _%target129031129072%_ '())) - (_%g129834129858%_ - _%g129835129862%_))))) - (_%g129834129858%_ _%g129835129862%_)))) - (_%g129834129858%_ _%g129835129862%_)))) - (_%g129834129858%_ _%g129835129862%_))))) - (_%g129833130161%_ _%stx129831%_)))) + (_%g129021129045%_ + _%g129022129049%_))))) + (_%g129021129045%_ _%g129022129049%_)))) + (_%g129021129045%_ _%g129022129049%_)))) + (_%g129021129045%_ _%g129022129049%_))))) + (_%g129020129348%_ _%stx129018%_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj130600 + (let ((__obj129787 (let () (declare (not safe)) (##structure @@ -479,18 +475,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130600 + __obj129787 'gxc#symbol-table::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130600 'symbol-table '2 '#f '#f)) + (##unchecked-structure-set! __obj129787 'symbol-table '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130600 + __obj129787 '(gensyms bindings) '4 '#f @@ -498,111 +494,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130600 + __obj129787 '(gensyms bindings) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130600 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj129787 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130600 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj129787 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130600 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj129787 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130600 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj129787 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130600 ':init! '11 '#f '#f)) - (let ((__tmp130632 |gxc[1]#_g130633_|)) + (##unchecked-structure-set! __obj129787 ':init! '11 '#f '#f)) + (let ((__tmp129817 |gxc[1]#_g129818_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130600 __tmp130632 '12 '#f '#f)) - (let ((__tmp130634 |gxc[1]#_g130635_|)) + (##unchecked-structure-set! __obj129787 __tmp129817 '12 '#f '#f)) + (let ((__tmp129819 |gxc[1]#_g129820_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130600 __tmp130634 '13 '#f '#f)) - (let ((__tmp130636 |gxc[1]#_g130637_|)) + (##unchecked-structure-set! __obj129787 __tmp129819 '13 '#f '#f)) + (let ((__tmp129821 |gxc[1]#_g129822_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130600 __tmp130636 '14 '#f '#f)) - (let ((__tmp130638 - (cons (cons 'gensyms |gxc[1]#_g130639_|) - (cons (cons 'bindings |gxc[1]#_g130640_|) '())))) + (##unchecked-structure-set! __obj129787 __tmp129821 '14 '#f '#f)) + (let ((__tmp129823 + (cons (cons 'gensyms |gxc[1]#_g129824_|) + (cons (cons 'bindings |gxc[1]#_g129825_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj130600 __tmp130638 '15 '#f '#f)) - (let ((__tmp130641 - (cons (cons 'gensyms |gxc[1]#_g130642_|) - (cons (cons 'bindings |gxc[1]#_g130643_|) '())))) + (##unchecked-structure-set! __obj129787 __tmp129823 '15 '#f '#f)) + (let ((__tmp129826 + (cons (cons 'gensyms |gxc[1]#_g129827_|) + (cons (cons 'bindings |gxc[1]#_g129828_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj130600 __tmp130641 '16 '#f '#f)) - (let ((__tmp130644 - (cons (cons 'gensyms |gxc[1]#_g130645_|) - (cons (cons 'bindings |gxc[1]#_g130646_|) '())))) + (##unchecked-structure-set! __obj129787 __tmp129826 '16 '#f '#f)) + (let ((__tmp129829 + (cons (cons 'gensyms |gxc[1]#_g129830_|) + (cons (cons 'bindings |gxc[1]#_g129831_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj130600 __tmp130644 '17 '#f '#f)) - (let ((__tmp130647 - (cons (cons 'gensyms |gxc[1]#_g130648_|) - (cons (cons 'bindings |gxc[1]#_g130649_|) '())))) + (##unchecked-structure-set! __obj129787 __tmp129829 '17 '#f '#f)) + (let ((__tmp129832 + (cons (cons 'gensyms |gxc[1]#_g129833_|) + (cons (cons 'bindings |gxc[1]#_g129834_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj130600 __tmp130647 '18 '#f '#f)) + (##unchecked-structure-set! __obj129787 __tmp129832 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130600 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj129787 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130600 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj129787 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130600 '() '20 '#f '#f)) - __obj130600)) + (##unchecked-structure-set! __obj129787 '() '20 '#f '#f)) + __obj129787)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_%$stx130167%_) - (let* ((_%g130171130185%_ - (lambda (_%g130172130181%_) + (lambda (_%$stx129354%_) + (let* ((_%g129358129372%_ + (lambda (_%g129359129368%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g130172130181%_)))) - (_%g130170130226%_ - (lambda (_%g130172130189%_) + _%g129359129368%_)))) + (_%g129357129413%_ + (lambda (_%g129359129376%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g130172130189%_)) - (let ((_%e130176130192%_ + (gx#stx-pair? _%g129359129376%_)) + (let ((_%e129363129379%_ (let () (declare (not safe)) - (gx#syntax-e _%g130172130189%_)))) - (let ((_%hd130175130196%_ + (gx#syntax-e _%g129359129376%_)))) + (let ((_%hd129362129383%_ (let () (declare (not safe)) - (##car _%e130176130192%_))) - (_%tl130174130199%_ + (##car _%e129363129379%_))) + (_%tl129361129386%_ (let () (declare (not safe)) - (##cdr _%e130176130192%_)))) + (##cdr _%e129363129379%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl130174130199%_)) - (let ((_%e130179130202%_ + (gx#stx-pair? _%tl129361129386%_)) + (let ((_%e129366129389%_ (let () (declare (not safe)) - (gx#syntax-e _%tl130174130199%_)))) - (let ((_%hd130178130206%_ + (gx#syntax-e _%tl129361129386%_)))) + (let ((_%hd129365129393%_ (let () (declare (not safe)) - (##car _%e130179130202%_))) - (_%tl130177130209%_ + (##car _%e129366129389%_))) + (_%tl129364129396%_ (let () (declare (not safe)) - (##cdr _%e130179130202%_)))) + (##cdr _%e129366129389%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl130177130209%_)) - ((lambda (_%L130212%_) + (gx#stx-null? _%tl129364129396%_)) + ((lambda (_%L129399%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -617,11 +613,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L130212%_ '()))) + (cons '() (cons _%L129399%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd130178130206%_) - (_%g130171130185%_ _%g130172130189%_)))) - (_%g130171130185%_ _%g130172130189%_)))) - (_%g130171130185%_ _%g130172130189%_))))) - (_%g130170130226%_ _%$stx130167%_)))))) + _%hd129365129393%_) + (_%g129358129372%_ _%g129359129376%_)))) + (_%g129358129372%_ _%g129359129376%_)))) + (_%g129358129372%_ _%g129359129376%_))))) + (_%g129357129413%_ _%$stx129354%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile.ssxi.ss b/src/bootstrap/gerbil/compiler/compile.ssxi.ss index a29d6d439..30e8fda98 100644 --- a/src/bootstrap/gerbil/compiler/compile.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/compile.ssxi.ss @@ -28,7 +28,21 @@ package: gerbil/compiler (optimizer-resolve-class '(typedecl gxc#current-compile-boolean-context) 'procedure::t)) - (declare-type gxc#make-bound-identifier-table (@lambda 0 #f)) + (declare-type + gxc#make-bound-identifier-table + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-class gxc#::collect-bindings::t (@class gxc#::collect-bindings::t @@ -63,7 +77,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-class gxc#::lift-modules::t (@class gxc#::lift-modules::t @@ -108,7 +131,16 @@ package: gerbil/compiler (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#apply-lift-modules__@ (@kw-lambda-dispatch (modules:) gxc#apply-lift-modules__%)) @@ -147,7 +179,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-class gxc#::find-lambda-expression::t (@class gxc#::find-lambda-expression::t @@ -186,7 +227,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-class gxc#::count-values::t (@class gxc#::count-values::t @@ -215,7 +265,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-class gxc#::generate-runtime-empty::t (@class gxc#::generate-runtime-empty::t @@ -275,7 +334,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-class gxc#::generate-runtime::t (@class gxc#::generate-runtime::t @@ -306,7 +374,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-class gxc#::generate-runtime-phi::t (@class gxc#::generate-runtime-phi::t @@ -344,7 +421,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-class gxc#::collect-expression-refs::t (@class gxc#::collect-expression-refs::t @@ -391,7 +477,16 @@ package: gerbil/compiler (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#apply-collect-expression-refs__@ (@kw-lambda-dispatch (table:) gxc#apply-collect-expression-refs__%)) @@ -438,7 +533,16 @@ package: gerbil/compiler (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#apply-generate-meta__@ (@kw-lambda-dispatch (state:) gxc#apply-generate-meta__%)) @@ -489,123 +593,980 @@ package: gerbil/compiler (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#apply-generate-meta-phi__@ (@kw-lambda-dispatch (state:) gxc#apply-generate-meta-phi__%)) (declare-type gxc#apply-generate-meta-phi (@kw-lambda (state:) gxc#apply-generate-meta-phi__@)) - (declare-type gxc#collect-bindings-define-values% (@lambda 2 #f)) - (declare-type gxc#collect-bindings-define-syntax% (@lambda 2 #f)) - (declare-type gxc#lift-modules-module% (@lambda 2 #f)) - (declare-type gxc#current-compile-decls-unsafe? (@lambda 0 #f)) + (declare-type + gxc#collect-bindings-define-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#collect-bindings-define-syntax% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#lift-modules-module% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#current-compile-decls-unsafe? + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#add-module-binding! (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#generate-runtime-identifier (@lambda 1 #f)) - (declare-type gxc#generate-runtime-identifier-key (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-identifier + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-identifier-key + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#generate-runtime-empty (@lambda 2 #f signature: - (return: pair::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#generate-runtime-begin% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-begin-foreign% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-begin-annotation% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-declare% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-define-values% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-check-values (@lambda 3 #f)) + (return: + pair::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-begin% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-begin-foreign% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-begin-annotation% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-declare% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-define-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-check-values + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#generate-runtime-values-count (@lambda 1 #f signature: - (return: pair::t effect: #f arguments: #f unchecked: #f))) + (return: + pair::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#generate-runtime-values-ref (@lambda 3 #f signature: - (return: pair::t effect: #f arguments: #f unchecked: #f))) + (return: + pair::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#generate-runtime-values->list (@lambda 2 #f signature: - (return: pair::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#generate-runtime-lambda% (@lambda 2 #f)) + (return: + pair::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-lambda% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#generate-runtime-lambda-form (@lambda 3 #f signature: - (return: pair::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#generate-runtime-lambda-head (@lambda 1 #f)) - (declare-type gxc#generate-runtime-case-lambda% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-let-values%__% (@lambda 3 #f)) - (declare-type gxc#generate-runtime-let-values%__0 (@lambda 2 #f)) + (return: + pair::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-lambda-head + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-case-lambda% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-let-values%__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-let-values%__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#generate-runtime-let-values% (@case-lambda - (2 gxc#generate-runtime-let-values%__0) - (3 gxc#generate-runtime-let-values%__%))) - (declare-type gxc#generate-runtime-let-values-bind (@lambda 2 #f)) - (declare-type gxc#generate-runtime-letrec-values%__% (@lambda 3 #f)) - (declare-type gxc#generate-runtime-letrec-values%__0 (@lambda 2 #f)) + (2 + gxc#generate-runtime-let-values%__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile)) + (3 + gxc#generate-runtime-let-values%__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile)))) + (declare-type + gxc#generate-runtime-let-values-bind + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-letrec-values%__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-letrec-values%__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#generate-runtime-letrec-values% (@case-lambda - (2 gxc#generate-runtime-letrec-values%__0) - (3 gxc#generate-runtime-letrec-values%__%))) - (declare-type gxc#generate-runtime-letrec*-values% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-simple-let? (@lambda 1 #f)) + (2 + gxc#generate-runtime-letrec-values%__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile)) + (3 + gxc#generate-runtime-letrec-values%__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile)))) + (declare-type + gxc#generate-runtime-letrec*-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-simple-let? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#generate-runtime-simple-let (@lambda 5 #f signature: - (return: pair::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#generate-runtime-quote% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-call% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-call-unchecked% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-if% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-ref% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-setq% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-struct-instancep% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-struct-direct-instancep% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-struct-ref% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-struct-setq% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-struct-direct-ref% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-struct-direct-setq% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-struct-unchecked-ref% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-struct-unchecked-setq% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-loader-import% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-quote-syntax% (@lambda 2 #f)) - (declare-type gxc#generate-runtime-phi-define-runtime% (@lambda 2 #f)) - (declare-type gxc#generate-meta-begin% (@lambda 2 #f)) - (declare-type gxc#generate-meta-begin-syntax% (@lambda 2 #f)) - (declare-type gxc#generate-meta-module% (@lambda 2 #f)) - (declare-type gxc#generate-meta-import-path (@lambda 2 #f)) - (declare-type gxc#current-context-chain (@lambda 0 #f)) - (declare-type gxc#generate-meta-import% (@lambda 2 #f)) - (declare-type gxc#generate-meta-export% (@lambda 2 #f)) - (declare-type gxc#generate-meta-provide% (@lambda 2 #f)) - (declare-type gxc#generate-meta-extern% (@lambda 2 #f)) - (declare-type gxc#generate-meta-define-values% (@lambda 2 #f)) - (declare-type gxc#generate-meta-define-syntax% (@lambda 2 #f)) - (declare-type gxc#generate-meta-define-alias% (@lambda 2 #f)) - (declare-type gxc#generate-meta-phi-define-values% (@lambda 2 #f)) + (return: + pair::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-quote% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-call% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-call-unchecked% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-if% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-ref% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-setq% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-struct-instancep% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-struct-direct-instancep% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-struct-ref% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-struct-setq% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-struct-direct-ref% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-struct-direct-setq% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-struct-unchecked-ref% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-struct-unchecked-setq% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-loader-import% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-quote-syntax% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-runtime-phi-define-runtime% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-meta-begin% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-meta-begin-syntax% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-meta-module% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-meta-import-path + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#current-context-chain + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-meta-import% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-meta-export% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-meta-provide% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-meta-extern% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-meta-define-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-meta-define-syntax% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-meta-define-alias% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#generate-meta-phi-define-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#generate-meta-phi-expr (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-class gxc#meta-state::t (@class gxc#meta-state::t @@ -649,7 +1610,16 @@ package: gerbil/compiler (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-class gxc#meta-state-block::t (@class gxc#meta-state-block::t @@ -718,34 +1688,168 @@ package: gerbil/compiler (declare-type gxc#&meta-state-block-code-set! (@mutator gxc#meta-state-block::t code #f)) - (declare-type gxc#meta-state-begin-phi! (@lambda 2 #f)) + (declare-type + gxc#meta-state-begin-phi! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#meta-state-add-phi! (@lambda 3 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#meta-state-end-phi! (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#meta-state-end! (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#collect-expression-refs (@lambda 1 #f)) - (declare-type gxc#collect-refs-ref% (@lambda 2 #f)) - (declare-type gxc#collect-refs-setq% (@lambda 2 #f)) - (declare-type gxc#find-runtime-begin% (@lambda 2 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#collect-expression-refs + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#collect-refs-ref% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#collect-refs-setq% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#find-runtime-begin% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) (declare-type gxc#count-values-single% (@lambda 2 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#count-values-call% (@lambda 2 #f)) - (declare-type gxc#count-values-if% (@lambda 2 #f))) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#count-values-call% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile))) + (declare-type + gxc#count-values-if% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/compile)))) diff --git a/src/bootstrap/gerbil/compiler/compile~0.scm b/src/bootstrap/gerbil/compiler/compile~0.scm index 14cf7a282..8ca4a3f62 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 1712533290) + (define gerbil/compiler/compile::timestamp 1712573431) (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-e144245%_ - (lambda (_%id144247%_) + (letrec ((_%hash-e143388%_ + (lambda (_%id143390%_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _%id144247%_)))))) + (let () (declare (not safe)) (gx#stx-e _%id143390%_)))))) (let () (declare (not safe)) (make-hash-table__% @@ -57,31 +57,31 @@ absent-value absent-value gx#bound-identifier=? - _%hash-e144245%_ + _%hash-e143388%_ absent-value absent-value absent-value absent-value))))) (define gxc#::collect-bindings::t - (let ((__tmp145638 (list gxc#::void::t)) - (__tmp145637 (cons (cons 'final: '#t) '()))) + (let ((__tmp144775 (list gxc#::void::t)) + (__tmp144774 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-bindings::t '::collect-bindings - __tmp145638 + __tmp144775 '() - __tmp145637 + __tmp144774 '#f))) (define gxc#::collect-bindings? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-bindings::t))) (define gxc#make-::collect-bindings - (lambda _%$args144241%_ - (apply make-instance gxc#::collect-bindings::t _%$args144241%_))) + (lambda _%$args143384%_ + (apply make-instance gxc#::collect-bindings::t _%$args143384%_))) (define gxc#::collect-bindings-bind-methods! - (let ((__tmp145639 + (let ((__tmp144776 (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 __tmp145639))) + (__make-promise __tmp144776))) (define gxc#apply-collect-bindings - (lambda (_%stx144233%_) + (lambda (_%stx143376%_) (force gxc#::collect-bindings-bind-methods!) - (let* ((_%self144236%_ - (let ((__obj145613 + (let* ((_%self143379%_ + (let ((__obj144750 (let () (declare (not safe)) (##structure gxc#::collect-bindings::t)))) - __obj145613)) - (__tmp145640 + __obj144750)) + (__tmp144777 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self144236%_ _%stx144233%_))))) + (gxc#compile-e__1 _%self143379%_ _%stx143376%_))))) (declare (not safe)) (__call-with-parameters - __tmp145640 + __tmp144777 gxc#current-compile-method - _%self144236%_)))) + _%self143379%_)))) (define gxc#::lift-modules::t - (let ((__tmp145642 (list gxc#::void::t)) - (__tmp145641 (cons (cons 'final: '#t) '()))) + (let ((__tmp144779 (list gxc#::void::t)) + (__tmp144778 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-modules::t '::lift-modules - __tmp145642 + __tmp144779 '(modules) - __tmp145641 + __tmp144778 '#f))) (define gxc#::lift-modules? (let () (declare (not safe)) (__make-class-predicate gxc#::lift-modules::t))) (define gxc#make-::lift-modules - (lambda _%$args144230%_ - (apply make-instance gxc#::lift-modules::t _%$args144230%_))) + (lambda _%$args143373%_ + (apply make-instance gxc#::lift-modules::t _%$args143373%_))) (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 ((__tmp145643 + (let ((__tmp144780 (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 __tmp145643))) + (__make-promise __tmp144780))) (define gxc#apply-lift-modules__% - (lambda (_%@@keywords144204%_ _%modules144201144205%_ _%stx144207%_) - (let ((_%modules144210%_ - (if (eq? _%modules144201144205%_ absent-value) + (lambda (_%@@keywords143347%_ _%modules143344143348%_ _%stx143350%_) + (let ((_%modules143353%_ + (if (eq? _%modules143344143348%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'modules:)) - _%modules144201144205%_))) + _%modules143344143348%_))) (force gxc#::lift-modules-bind-methods!) - (let* ((_%self144212%_ - (let ((__obj145615 + (let* ((_%self143355%_ + (let ((__obj144752 (let () (declare (not safe)) (##structure gxc#::lift-modules::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj145615 - _%modules144210%_ + __obj144752 + _%modules143353%_ '1 '#f '#f)) - __obj145615)) - (__tmp145644 + __obj144752)) + (__tmp144781 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self144212%_ _%stx144207%_))))) + (gxc#compile-e__1 _%self143355%_ _%stx143350%_))))) (declare (not safe)) (__call-with-parameters - __tmp145644 + __tmp144781 gxc#current-compile-method - _%self144212%_))))) + _%self143355%_))))) (define gxc#apply-lift-modules__@ - (lambda (_%@@keywords144219%_ . _%args144220%_) + (lambda (_%@@keywords143362%_ . _%args143363%_) (apply gxc#apply-lift-modules__% - _%@@keywords144219%_ + _%@@keywords143362%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords144219%_ + _%@@keywords143362%_ 'modules: absent-value)) - _%args144220%_))) + _%args143363%_))) (define gxc#apply-lift-modules - (lambda _%args144202144226%_ + (lambda _%args143345143369%_ (apply keyword-dispatch '#(modules:) gxc#apply-lift-modules__@ - _%args144202144226%_))) + _%args143345143369%_))) (define gxc#::find-runtime-code::t - (let ((__tmp145646 (list)) (__tmp145645 (cons (cons 'final: '#t) '()))) + (let ((__tmp144783 (list)) (__tmp144782 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-runtime-code::t '::find-runtime-code - __tmp145646 + __tmp144783 '() - __tmp145645 + __tmp144782 '#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 _%$args144197%_ - (apply make-instance gxc#::find-runtime-code::t _%$args144197%_))) + (lambda _%$args143340%_ + (apply make-instance gxc#::find-runtime-code::t _%$args143340%_))) (define gxc#::find-runtime-code-bind-methods! - (let ((__tmp145647 + (let ((__tmp144784 (lambda () (let () (declare (not safe)) @@ -459,46 +459,46 @@ (declare (not safe)) (__seal-class! gxc#::find-runtime-code::t))))) (declare (not safe)) - (__make-promise __tmp145647))) + (__make-promise __tmp144784))) (define gxc#apply-find-runtime-code - (lambda (_%stx144189%_) + (lambda (_%stx143332%_) (force gxc#::find-runtime-code-bind-methods!) - (let* ((_%self144192%_ - (let ((__obj145617 + (let* ((_%self143335%_ + (let ((__obj144754 (let () (declare (not safe)) (##structure gxc#::find-runtime-code::t)))) - __obj145617)) - (__tmp145648 + __obj144754)) + (__tmp144785 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self144192%_ _%stx144189%_))))) + (gxc#compile-e__1 _%self143335%_ _%stx143332%_))))) (declare (not safe)) (__call-with-parameters - __tmp145648 + __tmp144785 gxc#current-compile-method - _%self144192%_)))) + _%self143335%_)))) (define gxc#::find-lambda-expression::t - (let ((__tmp145650 (list gxc#::false::t)) - (__tmp145649 (cons (cons 'final: '#t) '()))) + (let ((__tmp144787 (list gxc#::false::t)) + (__tmp144786 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-lambda-expression::t '::find-lambda-expression - __tmp145650 + __tmp144787 '() - __tmp145649 + __tmp144786 '#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 _%$args144186%_ - (apply make-instance gxc#::find-lambda-expression::t _%$args144186%_))) + (lambda _%$args143329%_ + (apply make-instance gxc#::find-lambda-expression::t _%$args143329%_))) (define gxc#::find-lambda-expression-bind-methods! - (let ((__tmp145651 + (let ((__tmp144788 (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 __tmp145651))) + (__make-promise __tmp144788))) (define gxc#apply-find-lambda-expression - (lambda (_%stx144178%_) + (lambda (_%stx143321%_) (force gxc#::find-lambda-expression-bind-methods!) - (let* ((_%self144181%_ - (let ((__obj145619 + (let* ((_%self143324%_ + (let ((__obj144756 (let () (declare (not safe)) (##structure gxc#::find-lambda-expression::t)))) - __obj145619)) - (__tmp145652 + __obj144756)) + (__tmp144789 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self144181%_ _%stx144178%_))))) + (gxc#compile-e__1 _%self143324%_ _%stx143321%_))))) (declare (not safe)) (__call-with-parameters - __tmp145652 + __tmp144789 gxc#current-compile-method - _%self144181%_)))) + _%self143324%_)))) (define gxc#::count-values::t - (let ((__tmp145654 (list gxc#::false-expression::t)) - (__tmp145653 (cons (cons 'final: '#t) '()))) + (let ((__tmp144791 (list gxc#::false-expression::t)) + (__tmp144790 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::count-values::t '::count-values - __tmp145654 + __tmp144791 '() - __tmp145653 + __tmp144790 '#f))) (define gxc#::count-values? (let () (declare (not safe)) (__make-class-predicate gxc#::count-values::t))) (define gxc#make-::count-values - (lambda _%$args144175%_ - (apply make-instance gxc#::count-values::t _%$args144175%_))) + (lambda _%$args143318%_ + (apply make-instance gxc#::count-values::t _%$args143318%_))) (define gxc#::count-values-bind-methods! - (let ((__tmp145655 + (let ((__tmp144792 (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 __tmp145655))) + (__make-promise __tmp144792))) (define gxc#apply-count-values - (lambda (_%stx144167%_) + (lambda (_%stx143310%_) (force gxc#::count-values-bind-methods!) - (let* ((_%self144170%_ - (let ((__obj145621 + (let* ((_%self143313%_ + (let ((__obj144758 (let () (declare (not safe)) (##structure gxc#::count-values::t)))) - __obj145621)) - (__tmp145656 + __obj144758)) + (__tmp144793 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self144170%_ _%stx144167%_))))) + (gxc#compile-e__1 _%self143313%_ _%stx143310%_))))) (declare (not safe)) (__call-with-parameters - __tmp145656 + __tmp144793 gxc#current-compile-method - _%self144170%_)))) + _%self143313%_)))) (define gxc#::generate-runtime-empty::t - (let ((__tmp145657 (list))) + (let ((__tmp144794 (list))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-empty::t '::generate-runtime-empty - __tmp145657 + __tmp144794 '() '() '#f))) @@ -694,10 +694,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime-empty::t))) (define gxc#make-::generate-runtime-empty - (lambda _%$args144164%_ - (apply make-instance gxc#::generate-runtime-empty::t _%$args144164%_))) + (lambda _%$args143307%_ + (apply make-instance gxc#::generate-runtime-empty::t _%$args143307%_))) (define gxc#::generate-runtime-empty-bind-methods! - (let ((__tmp145658 + (let ((__tmp144795 (lambda () (let () (declare (not safe)) @@ -892,27 +892,27 @@ '%#struct-unchecked-set! gxc#generate-runtime-empty))))) (declare (not safe)) - (__make-promise __tmp145658))) + (__make-promise __tmp144795))) (define gxc#::generate-loader::t - (let ((__tmp145660 (list gxc#::generate-runtime-empty::t)) - (__tmp145659 (cons (cons 'final: '#t) '()))) + (let ((__tmp144797 (list gxc#::generate-runtime-empty::t)) + (__tmp144796 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-loader::t '::generate-loader - __tmp145660 + __tmp144797 '() - __tmp145659 + __tmp144796 '#f))) (define gxc#::generate-loader? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-loader::t))) (define gxc#make-::generate-loader - (lambda _%$args144160%_ - (apply make-instance gxc#::generate-loader::t _%$args144160%_))) + (lambda _%$args143303%_ + (apply make-instance gxc#::generate-loader::t _%$args143303%_))) (define gxc#::generate-loader-bind-methods! - (let ((__tmp145661 + (let ((__tmp144798 (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 __tmp145661))) + (__make-promise __tmp144798))) (define gxc#apply-generate-loader - (lambda (_%stx144152%_) + (lambda (_%stx143295%_) (force gxc#::generate-loader-bind-methods!) - (let* ((_%self144155%_ - (let ((__obj145624 + (let* ((_%self143298%_ + (let ((__obj144761 (let () (declare (not safe)) (##structure gxc#::generate-loader::t)))) - __obj145624)) - (__tmp145662 + __obj144761)) + (__tmp144799 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self144155%_ _%stx144152%_))))) + (gxc#compile-e__1 _%self143298%_ _%stx143295%_))))) (declare (not safe)) (__call-with-parameters - __tmp145662 + __tmp144799 gxc#current-compile-method - _%self144155%_)))) + _%self143298%_)))) (define gxc#::generate-runtime::t - (let ((__tmp145663 (list gxc#::generate-runtime-empty::t))) + (let ((__tmp144800 (list gxc#::generate-runtime-empty::t))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime::t '::generate-runtime - __tmp145663 + __tmp144800 '() '() '#f))) @@ -966,10 +966,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime::t))) (define gxc#make-::generate-runtime - (lambda _%$args144149%_ - (apply make-instance gxc#::generate-runtime::t _%$args144149%_))) + (lambda _%$args143292%_ + (apply make-instance gxc#::generate-runtime::t _%$args143292%_))) (define gxc#::generate-runtime-bind-methods! - (let ((__tmp145664 + (let ((__tmp144801 (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 __tmp145664))) + (__make-promise __tmp144801))) (define gxc#apply-generate-runtime - (lambda (_%stx144141%_) + (lambda (_%stx143284%_) (force gxc#::generate-runtime-bind-methods!) - (let* ((_%self144144%_ - (let ((__obj145626 + (let* ((_%self143287%_ + (let ((__obj144763 (let () (declare (not safe)) (##structure gxc#::generate-runtime::t)))) - __obj145626)) - (__tmp145665 + __obj144763)) + (__tmp144802 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self144144%_ _%stx144141%_))))) + (gxc#compile-e__1 _%self143287%_ _%stx143284%_))))) (declare (not safe)) (__call-with-parameters - __tmp145665 + __tmp144802 gxc#current-compile-method - _%self144144%_)))) + _%self143287%_)))) (define gxc#::generate-runtime-phi::t - (let ((__tmp145667 (list gxc#::generate-runtime::t)) - (__tmp145666 (cons (cons 'final: '#t) '()))) + (let ((__tmp144804 (list gxc#::generate-runtime::t)) + (__tmp144803 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-phi::t '::generate-runtime-phi - __tmp145667 + __tmp144804 '() - __tmp145666 + __tmp144803 '#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 _%$args144138%_ - (apply make-instance gxc#::generate-runtime-phi::t _%$args144138%_))) + (lambda _%$args143281%_ + (apply make-instance gxc#::generate-runtime-phi::t _%$args143281%_))) (define gxc#::generate-runtime-phi-bind-methods! - (let ((__tmp145668 + (let ((__tmp144805 (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 __tmp145668))) + (__make-promise __tmp144805))) (define gxc#apply-generate-runtime-phi - (lambda (_%stx144130%_) + (lambda (_%stx143273%_) (force gxc#::generate-runtime-phi-bind-methods!) - (let* ((_%self144133%_ - (let ((__obj145628 + (let* ((_%self143276%_ + (let ((__obj144765 (let () (declare (not safe)) (##structure gxc#::generate-runtime-phi::t)))) - __obj145628)) - (__tmp145669 + __obj144765)) + (__tmp144806 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self144133%_ _%stx144130%_))))) + (gxc#compile-e__1 _%self143276%_ _%stx143273%_))))) (declare (not safe)) (__call-with-parameters - __tmp145669 + __tmp144806 gxc#current-compile-method - _%self144133%_)))) + _%self143276%_)))) (define gxc#::collect-expression-refs::t - (let ((__tmp145670 (list))) + (let ((__tmp144807 (list))) (declare (not safe)) (__make-class-type 'gxc#::collect-expression-refs::t '::collect-expression-refs - __tmp145670 + __tmp144807 '(table) '() '#f))) @@ -1210,10 +1210,10 @@ (declare (not safe)) (__make-class-predicate gxc#::collect-expression-refs::t))) (define gxc#make-::collect-expression-refs - (lambda _%$args144127%_ + (lambda _%$args143270%_ (apply make-instance gxc#::collect-expression-refs::t - _%$args144127%_))) + _%$args143270%_))) (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 ((__tmp145671 + (let ((__tmp144808 (lambda () (let () (declare (not safe)) @@ -1370,18 +1370,18 @@ '%#struct-unchecked-set! gxc#apply-operands))))) (declare (not safe)) - (__make-promise __tmp145671))) + (__make-promise __tmp144808))) (define gxc#apply-collect-expression-refs__% - (lambda (_%@@keywords144101%_ _%table144098144102%_ _%stx144104%_) - (let ((_%table144107%_ - (if (eq? _%table144098144102%_ absent-value) + (lambda (_%@@keywords143244%_ _%table143241143245%_ _%stx143247%_) + (let ((_%table143250%_ + (if (eq? _%table143241143245%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table144098144102%_))) + _%table143241143245%_))) (force gxc#::collect-expression-refs-bind-methods!) - (let* ((_%self144109%_ - (let ((__obj145630 + (let* ((_%self143252%_ + (let ((__obj144767 (let () (declare (not safe)) (##structure @@ -1390,57 +1390,57 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145630 - _%table144107%_ + __obj144767 + _%table143250%_ '1 '#f '#f)) - __obj145630)) - (__tmp145672 + __obj144767)) + (__tmp144809 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self144109%_ _%stx144104%_))))) + (gxc#compile-e__1 _%self143252%_ _%stx143247%_))))) (declare (not safe)) (__call-with-parameters - __tmp145672 + __tmp144809 gxc#current-compile-method - _%self144109%_))))) + _%self143252%_))))) (define gxc#apply-collect-expression-refs__@ - (lambda (_%@@keywords144116%_ . _%args144117%_) + (lambda (_%@@keywords143259%_ . _%args143260%_) (apply gxc#apply-collect-expression-refs__% - _%@@keywords144116%_ + _%@@keywords143259%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords144116%_ + _%@@keywords143259%_ 'table: absent-value)) - _%args144117%_))) + _%args143260%_))) (define gxc#apply-collect-expression-refs - (lambda _%args144099144123%_ + (lambda _%args143242143266%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-expression-refs__@ - _%args144099144123%_))) + _%args143242143266%_))) (define gxc#::generate-meta::t - (let ((__tmp145674 (list gxc#::void-expression::t)) - (__tmp145673 (cons (cons 'final: '#t) '()))) + (let ((__tmp144811 (list gxc#::void-expression::t)) + (__tmp144810 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta::t '::generate-meta - __tmp145674 + __tmp144811 '(state) - __tmp145673 + __tmp144810 '#f))) (define gxc#::generate-meta? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-meta::t))) (define gxc#make-::generate-meta - (lambda _%$args144094%_ - (apply make-instance gxc#::generate-meta::t _%$args144094%_))) + (lambda _%$args143237%_ + (apply make-instance gxc#::generate-meta::t _%$args143237%_))) (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 ((__tmp145675 + (let ((__tmp144812 (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 __tmp145675))) + (__make-promise __tmp144812))) (define gxc#apply-generate-meta__% - (lambda (_%@@keywords144068%_ _%state144065144069%_ _%stx144071%_) - (let ((_%state144074%_ - (if (eq? _%state144065144069%_ absent-value) + (lambda (_%@@keywords143211%_ _%state143208143212%_ _%stx143214%_) + (let ((_%state143217%_ + (if (eq? _%state143208143212%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state144065144069%_))) + _%state143208143212%_))) (force gxc#::generate-meta-bind-methods!) - (let* ((_%self144076%_ - (let ((__obj145632 + (let* ((_%self143219%_ + (let ((__obj144769 (let () (declare (not safe)) (##structure gxc#::generate-meta::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj145632 - _%state144074%_ + __obj144769 + _%state143217%_ '1 '#f '#f)) - __obj145632)) - (__tmp145676 + __obj144769)) + (__tmp144813 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self144076%_ _%stx144071%_))))) + (gxc#compile-e__1 _%self143219%_ _%stx143214%_))))) (declare (not safe)) (__call-with-parameters - __tmp145676 + __tmp144813 gxc#current-compile-method - _%self144076%_))))) + _%self143219%_))))) (define gxc#apply-generate-meta__@ - (lambda (_%@@keywords144083%_ . _%args144084%_) + (lambda (_%@@keywords143226%_ . _%args143227%_) (apply gxc#apply-generate-meta__% - _%@@keywords144083%_ + _%@@keywords143226%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords144083%_ + _%@@keywords143226%_ 'state: absent-value)) - _%args144084%_))) + _%args143227%_))) (define gxc#apply-generate-meta - (lambda _%args144066144090%_ + (lambda _%args143209143233%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta__@ - _%args144066144090%_))) + _%args143209143233%_))) (define gxc#::generate-meta-phi::t - (let ((__tmp145678 (list)) (__tmp145677 (cons (cons 'final: '#t) '()))) + (let ((__tmp144815 (list)) (__tmp144814 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta-phi::t '::generate-meta-phi - __tmp145678 + __tmp144815 '(state) - __tmp145677 + __tmp144814 '#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 _%$args144061%_ - (apply make-instance gxc#::generate-meta-phi::t _%$args144061%_))) + (lambda _%$args143204%_ + (apply make-instance gxc#::generate-meta-phi::t _%$args143204%_))) (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 ((__tmp145679 + (let ((__tmp144816 (lambda () (let () (declare (not safe)) @@ -1794,377 +1794,343 @@ (declare (not safe)) (__seal-class! gxc#::generate-meta-phi::t))))) (declare (not safe)) - (__make-promise __tmp145679))) + (__make-promise __tmp144816))) (define gxc#apply-generate-meta-phi__% - (lambda (_%@@keywords144035%_ _%state144032144036%_ _%stx144038%_) - (let ((_%state144041%_ - (if (eq? _%state144032144036%_ absent-value) + (lambda (_%@@keywords143178%_ _%state143175143179%_ _%stx143181%_) + (let ((_%state143184%_ + (if (eq? _%state143175143179%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state144032144036%_))) + _%state143175143179%_))) (force gxc#::generate-meta-phi-bind-methods!) - (let* ((_%self144043%_ - (let ((__obj145634 + (let* ((_%self143186%_ + (let ((__obj144771 (let () (declare (not safe)) (##structure gxc#::generate-meta-phi::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj145634 - _%state144041%_ + __obj144771 + _%state143184%_ '1 '#f '#f)) - __obj145634)) - (__tmp145680 + __obj144771)) + (__tmp144817 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self144043%_ _%stx144038%_))))) + (gxc#compile-e__1 _%self143186%_ _%stx143181%_))))) (declare (not safe)) (__call-with-parameters - __tmp145680 + __tmp144817 gxc#current-compile-method - _%self144043%_))))) + _%self143186%_))))) (define gxc#apply-generate-meta-phi__@ - (lambda (_%@@keywords144050%_ . _%args144051%_) + (lambda (_%@@keywords143193%_ . _%args143194%_) (apply gxc#apply-generate-meta-phi__% - _%@@keywords144050%_ + _%@@keywords143193%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords144050%_ + _%@@keywords143193%_ 'state: absent-value)) - _%args144051%_))) + _%args143194%_))) (define gxc#apply-generate-meta-phi - (lambda _%args144033144057%_ + (lambda _%args143176143200%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta-phi__@ - _%args144033144057%_))) + _%args143176143200%_))) (define gxc#collect-bindings-define-values% - (lambda (_%self143961%_ _%stx143962%_) - (let* ((_%g143964143981%_ - (lambda (_%g143965143978%_) + (lambda (_%self143104%_ _%stx143105%_) + (let* ((_%g143107143124%_ + (lambda (_%g143108143121%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143965143978%_)))) - (_%g143963144028%_ - (lambda (_%g143965143984%_) + _%g143108143121%_)))) + (_%g143106143171%_ + (lambda (_%g143108143127%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143965143984%_)) - (let ((_%e143970143986%_ + (gx#stx-pair? _%g143108143127%_)) + (let ((_%e143113143129%_ (let () (declare (not safe)) - (gx#stx-e _%g143965143984%_)))) - (let ((_%hd143969143989%_ + (gx#stx-e _%g143108143127%_)))) + (let ((_%hd143112143132%_ (let () (declare (not safe)) - (##car _%e143970143986%_))) - (_%tl143968143991%_ + (##car _%e143113143129%_))) + (_%tl143111143134%_ (let () (declare (not safe)) - (##cdr _%e143970143986%_)))) + (##cdr _%e143113143129%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143968143991%_)) - (let ((_%e143973143994%_ + (gx#stx-pair? _%tl143111143134%_)) + (let ((_%e143116143137%_ (let () (declare (not safe)) - (gx#stx-e _%tl143968143991%_)))) - (let ((_%hd143972143997%_ + (gx#stx-e _%tl143111143134%_)))) + (let ((_%hd143115143140%_ (let () (declare (not safe)) - (##car _%e143973143994%_))) - (_%tl143971143999%_ + (##car _%e143116143137%_))) + (_%tl143114143142%_ (let () (declare (not safe)) - (##cdr _%e143973143994%_)))) + (##cdr _%e143116143137%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143971143999%_)) - (let ((_%e143976144002%_ + (gx#stx-pair? _%tl143114143142%_)) + (let ((_%e143119143145%_ (let () (declare (not safe)) - (gx#stx-e _%tl143971143999%_)))) - (let ((_%hd143975144005%_ + (gx#stx-e _%tl143114143142%_)))) + (let ((_%hd143118143148%_ (let () (declare (not safe)) - (##car _%e143976144002%_))) - (_%tl143974144007%_ + (##car _%e143119143145%_))) + (_%tl143117143150%_ (let () (declare (not safe)) - (##cdr _%e143976144002%_)))) + (##cdr _%e143119143145%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143974144007%_)) - ((lambda (_%L144010%_ - _%L144011%_) - (let ((__tmp145681 - (lambda (_%bind144026%_) + _%tl143117143150%_)) + ((lambda (_%L143153%_ + _%L143154%_) + (let ((__tmp144818 + (lambda (_%bind143169%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#identifier? _%bind144026%_)) - (let () - (declare (not safe)) - (gxc#add-module-binding! _%bind144026%_ '#f)) + (gx#identifier? _%bind143169%_)) + (gxc#add-module-binding! _%bind143169%_ '#f) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp145681 - _%L144011%_))) - _%hd143975144005%_ - _%hd143972143997%_) - (let () - (declare (not safe)) - (_%g143964143981%_ - _%g143965143984%_))))) - (let () - (declare (not safe)) - (_%g143964143981%_ - _%g143965143984%_))))) - (let () - (declare (not safe)) - (_%g143964143981%_ _%g143965143984%_))))) - (let () - (declare (not safe)) - (_%g143964143981%_ _%g143965143984%_)))))) - (declare (not safe)) - (_%g143963144028%_ _%stx143962%_)))) + __tmp144818 + _%L143154%_))) + _%hd143118143148%_ + _%hd143115143140%_) + (_%g143107143124%_ + _%g143108143127%_)))) + (_%g143107143124%_ _%g143108143127%_)))) + (_%g143107143124%_ _%g143108143127%_)))) + (_%g143107143124%_ _%g143108143127%_))))) + (_%g143106143171%_ _%stx143105%_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_%self143893%_ _%stx143894%_) - (let* ((_%g143896143913%_ - (lambda (_%g143897143910%_) + (lambda (_%self143036%_ _%stx143037%_) + (let* ((_%g143039143056%_ + (lambda (_%g143040143053%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143897143910%_)))) - (_%g143895143958%_ - (lambda (_%g143897143916%_) + _%g143040143053%_)))) + (_%g143038143101%_ + (lambda (_%g143040143059%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143897143916%_)) - (let ((_%e143902143918%_ + (gx#stx-pair? _%g143040143059%_)) + (let ((_%e143045143061%_ (let () (declare (not safe)) - (gx#stx-e _%g143897143916%_)))) - (let ((_%hd143901143921%_ + (gx#stx-e _%g143040143059%_)))) + (let ((_%hd143044143064%_ (let () (declare (not safe)) - (##car _%e143902143918%_))) - (_%tl143900143923%_ + (##car _%e143045143061%_))) + (_%tl143043143066%_ (let () (declare (not safe)) - (##cdr _%e143902143918%_)))) + (##cdr _%e143045143061%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143900143923%_)) - (let ((_%e143905143926%_ + (gx#stx-pair? _%tl143043143066%_)) + (let ((_%e143048143069%_ (let () (declare (not safe)) - (gx#stx-e _%tl143900143923%_)))) - (let ((_%hd143904143929%_ + (gx#stx-e _%tl143043143066%_)))) + (let ((_%hd143047143072%_ (let () (declare (not safe)) - (##car _%e143905143926%_))) - (_%tl143903143931%_ + (##car _%e143048143069%_))) + (_%tl143046143074%_ (let () (declare (not safe)) - (##cdr _%e143905143926%_)))) + (##cdr _%e143048143069%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143903143931%_)) - (let ((_%e143908143934%_ + (gx#stx-pair? _%tl143046143074%_)) + (let ((_%e143051143077%_ (let () (declare (not safe)) - (gx#stx-e _%tl143903143931%_)))) - (let ((_%hd143907143937%_ + (gx#stx-e _%tl143046143074%_)))) + (let ((_%hd143050143080%_ (let () (declare (not safe)) - (##car _%e143908143934%_))) - (_%tl143906143939%_ + (##car _%e143051143077%_))) + (_%tl143049143082%_ (let () (declare (not safe)) - (##cdr _%e143908143934%_)))) + (##cdr _%e143051143077%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143906143939%_)) - ((lambda (_%L143942%_ - _%L143943%_) - (let () - (declare (not safe)) - (gxc#add-module-binding! - _%L143943%_ - '#t))) - _%hd143907143937%_ - _%hd143904143929%_) - (let () - (declare (not safe)) - (_%g143896143913%_ - _%g143897143916%_))))) - (let () - (declare (not safe)) - (_%g143896143913%_ - _%g143897143916%_))))) - (let () - (declare (not safe)) - (_%g143896143913%_ _%g143897143916%_))))) - (let () - (declare (not safe)) - (_%g143896143913%_ _%g143897143916%_)))))) - (declare (not safe)) - (_%g143895143958%_ _%stx143894%_)))) + _%tl143049143082%_)) + ((lambda (_%L143085%_ + _%L143086%_) + (gxc#add-module-binding! + _%L143086%_ + '#t)) + _%hd143050143080%_ + _%hd143047143072%_) + (_%g143039143056%_ + _%g143040143059%_)))) + (_%g143039143056%_ _%g143040143059%_)))) + (_%g143039143056%_ _%g143040143059%_)))) + (_%g143039143056%_ _%g143040143059%_))))) + (_%g143038143101%_ _%stx143037%_)))) (define gxc#lift-modules-module% - (lambda (_%self143835%_ _%stx143836%_) - (let* ((_%g143838143852%_ - (lambda (_%g143839143849%_) + (lambda (_%self142978%_ _%stx142979%_) + (let* ((_%g142981142995%_ + (lambda (_%g142982142992%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143839143849%_)))) - (_%g143837143890%_ - (lambda (_%g143839143855%_) + _%g142982142992%_)))) + (_%g142980143033%_ + (lambda (_%g142982142998%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143839143855%_)) - (let ((_%e143844143857%_ + (gx#stx-pair? _%g142982142998%_)) + (let ((_%e142987143000%_ (let () (declare (not safe)) - (gx#stx-e _%g143839143855%_)))) - (let ((_%hd143843143860%_ + (gx#stx-e _%g142982142998%_)))) + (let ((_%hd142986143003%_ (let () (declare (not safe)) - (##car _%e143844143857%_))) - (_%tl143842143862%_ + (##car _%e142987143000%_))) + (_%tl142985143005%_ (let () (declare (not safe)) - (##cdr _%e143844143857%_)))) + (##cdr _%e142987143000%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143842143862%_)) - (let ((_%e143847143865%_ + (gx#stx-pair? _%tl142985143005%_)) + (let ((_%e142990143008%_ (let () (declare (not safe)) - (gx#stx-e _%tl143842143862%_)))) - (let ((_%hd143846143868%_ + (gx#stx-e _%tl142985143005%_)))) + (let ((_%hd142989143011%_ (let () (declare (not safe)) - (##car _%e143847143865%_))) - (_%tl143845143870%_ + (##car _%e142990143008%_))) + (_%tl142988143013%_ (let () (declare (not safe)) - (##cdr _%e143847143865%_)))) - ((lambda (_%L143873%_ _%L143874%_) - (let ((_%ctx143887%_ + (##cdr _%e142990143008%_)))) + ((lambda (_%L143016%_ _%L143017%_) + (let ((_%ctx143030%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L143874%_)))) + _%L143017%_)))) (set-box! (let () (declare (not safe)) (slot-ref__0 - _%self143835%_ + _%self142978%_ 'modules)) - (cons _%ctx143887%_ + (cons _%ctx143030%_ (unbox (let () (declare (not safe)) (slot-ref__0 - _%self143835%_ + _%self142978%_ 'modules))))) - (let ((__tmp145682 + (let ((__tmp144819 (lambda () - (let ((__tmp145683 + (let ((__tmp144820 (##structure-ref - _%ctx143887%_ + _%ctx143030%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self143835%_ - __tmp145683))))) + _%self142978%_ + __tmp144820))))) (declare (not safe)) (__call-with-parameters - __tmp145682 + __tmp144819 gx#current-expander-context - _%ctx143887%_)))) - _%tl143845143870%_ - _%hd143846143868%_))) - (let () - (declare (not safe)) - (_%g143838143852%_ _%g143839143855%_))))) - (let () - (declare (not safe)) - (_%g143838143852%_ _%g143839143855%_)))))) - (declare (not safe)) - (_%g143837143890%_ _%stx143836%_)))) + _%ctx143030%_)))) + _%tl142988143013%_ + _%hd142989143011%_))) + (_%g142981142995%_ _%g142982142998%_)))) + (_%g142981142995%_ _%g142982142998%_))))) + (_%g142980143033%_ _%stx142979%_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_%decls143788143790%_ + (let ((_%decls142931142933%_ (let () (declare (not safe)) (gxc#current-compile-decls)))) - (if _%decls143788143790%_ - (let ((_%decls143793%_ _%decls143788143790%_)) - (let _%lp143795%_ ((_%rest143797%_ _%decls143793%_)) - (let* ((_%rest143798143806%_ _%rest143797%_) - (_%else143800143814%_ (lambda () '#f)) - (_%K143802143823%_ - (lambda (_%decls143817%_ _%decl143818%_) - (if (equal? _%decl143818%_ '(not safe)) - (let () '#t) - (if (equal? _%decl143818%_ '(safe)) - (let () '#f) - (let () - (declare (not safe)) - (_%lp143795%_ _%decls143817%_))))))) + (if _%decls142931142933%_ + (let ((_%decls142936%_ _%decls142931142933%_)) + (let _%lp142938%_ ((_%rest142940%_ _%decls142936%_)) + (let* ((_%rest142941142949%_ _%rest142940%_) + (_%else142943142957%_ (lambda () '#f)) + (_%K142945142966%_ + (lambda (_%decls142960%_ _%decl142961%_) + (if (equal? _%decl142961%_ '(not safe)) + '#t + (if (equal? _%decl142961%_ '(safe)) + '#f + (_%lp142938%_ _%decls142960%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest143798143806%_)) - (let ((_%hd143803143826%_ + (##pair? _%rest142941142949%_)) + (let ((_%hd142946142969%_ (let () (declare (not safe)) - (##car _%rest143798143806%_))) - (_%tl143804143828%_ + (##car _%rest142941142949%_))) + (_%tl142947142971%_ (let () (declare (not safe)) - (##cdr _%rest143798143806%_)))) - (let* ((_%decl143831%_ _%hd143803143826%_) - (_%decls143833%_ _%tl143804143828%_)) - (declare (not safe)) - (_%K143802143823%_ - _%decls143833%_ - _%decl143831%_))) - (let () - (declare (not safe)) - (_%else143800143814%_)))))) + (##cdr _%rest142941142949%_)))) + (let* ((_%decl142974%_ _%hd142946142969%_) + (_%decls142976%_ _%tl142947142971%_)) + (_%K142945142966%_ + _%decls142976%_ + _%decl142974%_))) + (_%else142943142957%_))))) '#f)))) (define gxc#add-module-binding! - (lambda (_%id143782%_ _%syntax?143783%_) - (let ((_%eid143785%_ + (lambda (_%id142925%_ _%syntax?142926%_) + (let ((_%eid142928%_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id143782%_)) + (gx#resolve-identifier__0 _%id142925%_)) '1 gx#binding::t '#f)) - (_%ht143786%_ + (_%ht142929%_ (##structure-ref (let () (declare (not safe)) @@ -2172,856 +2138,788 @@ '2 gxc#symbol-table::t '#f))) - (if (let () (declare (not safe)) (interned-symbol? _%eid143785%_)) + (if (let () (declare (not safe)) (interned-symbol? _%eid142928%_)) '#!void - (let ((__tmp145684 - (let ((__tmp145685 + (let ((__tmp144821 + (let ((__tmp144822 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%eid143785%_)))) + _%eid142928%_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp145685 _%syntax?143783%_)))) + (gx#make-binding-id__1 __tmp144822 _%syntax?142926%_)))) (declare (not safe)) - (hash-put! _%ht143786%_ _%eid143785%_ __tmp145684)))))) + (hash-put! _%ht142929%_ _%eid142928%_ __tmp144821)))))) (define gxc#generate-runtime-identifier - (lambda (_%id143780%_) - (let ((__tmp145686 - (let () - (declare (not safe)) - (gx#core-identifier-key _%id143780%_)))) - (declare (not safe)) - (gxc#generate-runtime-identifier-key __tmp145686)))) + (lambda (_%id142923%_) + (gxc#generate-runtime-identifier-key + (let () (declare (not safe)) (gx#core-identifier-key _%id142923%_))))) (define gxc#generate-runtime-identifier-key - (lambda (_%key143735%_) - (if (let () (declare (not safe)) (interned-symbol? _%key143735%_)) - (let () _%key143735%_) - (if (uninterned-symbol? _%key143735%_) + (lambda (_%key142878%_) + (if (let () (declare (not safe)) (interned-symbol? _%key142878%_)) + _%key142878%_ + (if (uninterned-symbol? _%key142878%_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _%key143735%_)) - (let () - (let* ((_%key143739143746%_ _%key143735%_) - (_%E143741143750%_ - (lambda () - (let () - (declare (not safe)) - (error '"No clause matching" - _%key143739143746%_ - '([eid . mark]))) - '#!void)) - (_%K143742143768%_ - (lambda (_%mark143753%_ _%eid143754%_) - (let ((_%$e143756%_ - (##structure-ref - _%mark143753%_ - '1 - gx#expander-mark::t - '#f))) - (if _%$e143756%_ - ((lambda (_%ht143759%_) - (let ((_%$e143761%_ - (let () - (declare (not safe)) - (hash-get - _%ht143759%_ - _%eid143754%_)))) - (if _%$e143761%_ - ((lambda (_%id143764%_) - (if (let () - (declare (not safe)) - (interned-symbol? - _%id143764%_)) - _%id143764%_ - (let () - (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 - _%id143764%_)))) - _%$e143761%_) - (let () - (declare (not safe)) - (gxc#generate-runtime-identifier-key - _%eid143754%_))))) - _%$e143756%_) - (let () - (declare (not safe)) - (gxc#generate-runtime-identifier-key - _%eid143754%_))))))) - (if (let () - (declare (not safe)) - (##pair? _%key143739143746%_)) - (let ((_%hd143743143771%_ - (let () - (declare (not safe)) - (##car _%key143739143746%_))) - (_%tl143744143773%_ - (let () - (declare (not safe)) - (##cdr _%key143739143746%_)))) - (let* ((_%eid143776%_ _%hd143743143771%_) - (_%mark143778%_ _%tl143744143773%_)) + (gxc#generate-runtime-gensym-reference__0 _%key142878%_)) + (let* ((_%key142882142889%_ _%key142878%_) + (_%E142884142893%_ + (lambda () + (let () (declare (not safe)) - (_%K143742143768%_ _%mark143778%_ _%eid143776%_))) - (let () - (declare (not safe)) - (_%E143741143750%_))))))))) + (error '"No clause matching" + _%key142882142889%_ + '([eid . mark]))) + '#!void)) + (_%K142885142911%_ + (lambda (_%mark142896%_ _%eid142897%_) + (let ((_%$e142899%_ + (##structure-ref + _%mark142896%_ + '1 + gx#expander-mark::t + '#f))) + (if _%$e142899%_ + ((lambda (_%ht142902%_) + (let ((_%$e142904%_ + (let () + (declare (not safe)) + (hash-get + _%ht142902%_ + _%eid142897%_)))) + (if _%$e142904%_ + ((lambda (_%id142907%_) + (if (let () + (declare (not safe)) + (interned-symbol? + _%id142907%_)) + _%id142907%_ + (let () + (declare (not safe)) + (gxc#generate-runtime-gensym-reference__0 + _%id142907%_)))) + _%$e142904%_) + (gxc#generate-runtime-identifier-key + _%eid142897%_)))) + _%$e142899%_) + (gxc#generate-runtime-identifier-key + _%eid142897%_)))))) + (if (let () + (declare (not safe)) + (##pair? _%key142882142889%_)) + (let ((_%hd142886142914%_ + (let () + (declare (not safe)) + (##car _%key142882142889%_))) + (_%tl142887142916%_ + (let () + (declare (not safe)) + (##cdr _%key142882142889%_)))) + (let* ((_%eid142919%_ _%hd142886142914%_) + (_%mark142921%_ _%tl142887142916%_)) + (_%K142885142911%_ _%mark142921%_ _%eid142919%_))) + (_%E142884142893%_))))))) (define gxc#generate-runtime-empty - (lambda (_%self143732%_ _%stx143733%_) '(begin))) + (lambda (_%self142875%_ _%stx142876%_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_%self143579%_ _%stx143580%_) - (letrec ((_%simplify143582%_ - (lambda (_%body143630%_) - (let _%lp143632%_ ((_%rest143634%_ _%body143630%_) - (_%r143635%_ '())) - (let* ((_%rest143636143644%_ _%rest143634%_) - (_%else143638143652%_ - (lambda () (reverse _%r143635%_))) - (_%K143640143720%_ - (lambda (_%rest143655%_ _%hd143656%_) - (let* ((_%hd143657143673%_ _%hd143656%_) - (_%else143661143681%_ + (lambda (_%self142722%_ _%stx142723%_) + (letrec ((_%simplify142725%_ + (lambda (_%body142773%_) + (let _%lp142775%_ ((_%rest142777%_ _%body142773%_) + (_%r142778%_ '())) + (let* ((_%rest142779142787%_ _%rest142777%_) + (_%else142781142795%_ + (lambda () (reverse _%r142778%_))) + (_%K142783142863%_ + (lambda (_%rest142798%_ _%hd142799%_) + (let* ((_%hd142800142816%_ _%hd142799%_) + (_%else142804142824%_ (lambda () - (let ((__tmp145687 - (cons _%hd143656%_ - _%r143635%_))) - (declare (not safe)) - (_%lp143632%_ - _%rest143655%_ - __tmp145687))))) - (let ((_%K143669143710%_ - (lambda (_%exprs143708%_) - (let ((__tmp145688 - (let () - (declare (not safe)) - (__foldr1 - cons - _%rest143655%_ - _%exprs143708%_)))) - (declare (not safe)) - (_%lp143632%_ - __tmp145688 - _%r143635%_)))) - (_%K143664143694%_ + (_%lp142775%_ + _%rest142798%_ + (cons _%hd142799%_ _%r142778%_))))) + (let ((_%K142812142853%_ + (lambda (_%exprs142851%_) + (_%lp142775%_ + (let () + (declare (not safe)) + (__foldr1 + cons + _%rest142798%_ + _%exprs142851%_)) + _%r142778%_))) + (_%K142807142837%_ (lambda () - (if (let () - (declare (not safe)) - (null? _%rest143655%_)) - (let ((__tmp145689 - (cons _%hd143656%_ - _%r143635%_))) - (declare (not safe)) - (_%lp143632%_ - _%rest143655%_ - __tmp145689)) - (let () - (declare (not safe)) - (_%lp143632%_ - _%rest143655%_ - _%r143635%_))))) - (_%K143663143686%_ + (if (null? _%rest142798%_) + (_%lp142775%_ + _%rest142798%_ + (cons _%hd142799%_ + _%r142778%_)) + (_%lp142775%_ + _%rest142798%_ + _%r142778%_)))) + (_%K142806142829%_ (lambda () - (if (let () - (declare (not safe)) - (null? _%rest143655%_)) - (let ((__tmp145690 - (cons _%hd143656%_ - _%r143635%_))) - (declare (not safe)) - (_%lp143632%_ - _%rest143655%_ - __tmp145690)) - (let () - (declare (not safe)) - (_%lp143632%_ - _%rest143655%_ - _%r143635%_)))))) - (let ((_%try-match143660143689%_ + (if (null? _%rest142798%_) + (_%lp142775%_ + _%rest142798%_ + (cons _%hd142799%_ + _%r142778%_)) + (_%lp142775%_ + _%rest142798%_ + _%r142778%_))))) + (let ((_%try-match142803142832%_ (lambda () - (if (let () - (declare (not safe)) - (symbol? _%hd143657143673%_)) - (let () - (declare (not safe)) - (_%K143663143686%_)) - (let () - (declare (not safe)) - (_%else143661143681%_)))))) + (if (symbol? _%hd142800142816%_) + (_%K142806142829%_) + (_%else142804142824%_))))) (if (let () (declare (not safe)) - (##pair? _%hd143657143673%_)) - (let ((_%tl143671143715%_ + (##pair? _%hd142800142816%_)) + (let ((_%tl142814142858%_ (let () (declare (not safe)) - (##cdr _%hd143657143673%_))) - (_%hd143670143713%_ + (##cdr _%hd142800142816%_))) + (_%hd142813142856%_ (let () (declare (not safe)) - (##car _%hd143657143673%_)))) + (##car _%hd142800142816%_)))) (if (let () (declare (not safe)) - (##eq? _%hd143670143713%_ + (##eq? _%hd142813142856%_ 'begin)) - (let ((_%exprs143718%_ - _%tl143671143715%_)) - (declare (not safe)) - (_%K143669143710%_ - _%exprs143718%_)) + (let ((_%exprs142861%_ + _%tl142814142858%_)) + (_%K142812142853%_ + _%exprs142861%_)) (if (let () (declare (not safe)) - (##eq? _%hd143670143713%_ + (##eq? _%hd142813142856%_ 'quote)) (if (let () (declare (not safe)) - (##pair? _%tl143671143715%_)) - (let ((_%tl143668143702%_ + (##pair? _%tl142814142858%_)) + (let ((_%tl142811142845%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl143671143715%_)))) + (##cdr _%tl142814142858%_)))) (if (let () (declare (not safe)) - (##null? _%tl143668143702%_)) - (let () (declare (not safe)) (_%K143664143694%_)) - (let () - (declare (not safe)) - (_%try-match143660143689%_)))) - (let () (declare (not safe)) (_%try-match143660143689%_))) + (##null? _%tl142811142845%_)) + (_%K142807142837%_) + (_%try-match142803142832%_))) + (_%try-match142803142832%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%try-match143660143689%_))))) - (let () - (declare (not safe)) - (_%try-match143660143689%_))))))))) + (_%try-match142803142832%_)))) + (_%try-match142803142832%_)))))))) (if (let () (declare (not safe)) - (##pair? _%rest143636143644%_)) - (let ((_%hd143641143723%_ + (##pair? _%rest142779142787%_)) + (let ((_%hd142784142866%_ (let () (declare (not safe)) - (##car _%rest143636143644%_))) - (_%tl143642143725%_ + (##car _%rest142779142787%_))) + (_%tl142785142868%_ (let () (declare (not safe)) - (##cdr _%rest143636143644%_)))) - (let* ((_%hd143728%_ _%hd143641143723%_) - (_%rest143730%_ _%tl143642143725%_)) - (declare (not safe)) - (_%K143640143720%_ - _%rest143730%_ - _%hd143728%_))) - (let () - (declare (not safe)) - (_%else143638143652%_)))))))) - (let* ((_%g143584143594%_ - (lambda (_%g143585143591%_) + (##cdr _%rest142779142787%_)))) + (let* ((_%hd142871%_ _%hd142784142866%_) + (_%rest142873%_ _%tl142785142868%_)) + (_%K142783142863%_ + _%rest142873%_ + _%hd142871%_))) + (_%else142781142795%_))))))) + (let* ((_%g142727142737%_ + (lambda (_%g142728142734%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143585143591%_)))) - (_%g143583143627%_ - (lambda (_%g143585143597%_) + _%g142728142734%_)))) + (_%g142726142770%_ + (lambda (_%g142728142740%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143585143597%_)) - (let ((_%e143589143599%_ + (gx#stx-pair? _%g142728142740%_)) + (let ((_%e142732142742%_ (let () (declare (not safe)) - (gx#stx-e _%g143585143597%_)))) - (let ((_%hd143588143602%_ + (gx#stx-e _%g142728142740%_)))) + (let ((_%hd142731142745%_ (let () (declare (not safe)) - (##car _%e143589143599%_))) - (_%tl143587143604%_ + (##car _%e142732142742%_))) + (_%tl142730142747%_ (let () (declare (not safe)) - (##cdr _%e143589143599%_)))) - ((lambda (_%L143607%_) - (let* ((_%body143622%_ - (map (lambda (_%g143617143619%_) + (##cdr _%e142732142742%_)))) + ((lambda (_%L142750%_) + (let* ((_%body142765%_ + (map (lambda (_%g142760142762%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self143579%_ - _%g143617143619%_))) - _%L143607%_)) - (_%body143624%_ - (let () - (declare (not safe)) - (_%simplify143582%_ _%body143622%_)))) - (if (let ((__tmp145691 - (length _%body143624%_))) + _%self142722%_ + _%g142760142762%_))) + _%L142750%_)) + (_%body142767%_ + (_%simplify142725%_ _%body142765%_))) + (if (let ((__tmp144823 + (length _%body142767%_))) (declare (not safe)) - (##fx= __tmp145691 '1)) - (car _%body143624%_) - (cons 'begin _%body143624%_)))) - _%tl143587143604%_))) - (let () - (declare (not safe)) - (_%g143584143594%_ _%g143585143597%_)))))) - (declare (not safe)) - (_%g143583143627%_ _%stx143580%_))))) + (##fx= __tmp144823 '1)) + (car _%body142767%_) + (cons 'begin _%body142767%_)))) + _%tl142730142747%_))) + (_%g142727142737%_ _%g142728142740%_))))) + (_%g142726142770%_ _%stx142723%_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_%self143540%_ _%stx143541%_) - (let* ((_%g143543143553%_ - (lambda (_%g143544143550%_) + (lambda (_%self142683%_ _%stx142684%_) + (let* ((_%g142686142696%_ + (lambda (_%g142687142693%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143544143550%_)))) - (_%g143542143576%_ - (lambda (_%g143544143556%_) + _%g142687142693%_)))) + (_%g142685142719%_ + (lambda (_%g142687142699%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143544143556%_)) - (let ((_%e143548143558%_ + (gx#stx-pair? _%g142687142699%_)) + (let ((_%e142691142701%_ (let () (declare (not safe)) - (gx#stx-e _%g143544143556%_)))) - (let ((_%hd143547143561%_ + (gx#stx-e _%g142687142699%_)))) + (let ((_%hd142690142704%_ (let () (declare (not safe)) - (##car _%e143548143558%_))) - (_%tl143546143563%_ + (##car _%e142691142701%_))) + (_%tl142689142706%_ (let () (declare (not safe)) - (##cdr _%e143548143558%_)))) - ((lambda (_%L143566%_) + (##cdr _%e142691142701%_)))) + ((lambda (_%L142709%_) (cons 'begin (let () (declare (not safe)) - (gx#syntax->datum _%L143566%_)))) - _%tl143546143563%_))) - (let () - (declare (not safe)) - (_%g143543143553%_ _%g143544143556%_)))))) - (declare (not safe)) - (_%g143542143576%_ _%stx143541%_)))) + (gx#syntax->datum _%L142709%_)))) + _%tl142689142706%_))) + (_%g142686142696%_ _%g142687142699%_))))) + (_%g142685142719%_ _%stx142684%_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_%self143304%_ _%stx143305%_) - (let* ((_%__stx144270144271%_ _%stx143305%_) - (_%g143309143361%_ + (lambda (_%self142447%_ _%stx142448%_) + (let* ((_%__stx143413143414%_ _%stx142448%_) + (_%g142452142504%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx144270144271%_))))) - (let ((_%__kont144272144273%_ - (lambda (_%L143522%_ _%L143523%_) + _%__stx143413143414%_))))) + (let ((_%__kont143415143416%_ + (lambda (_%L142665%_ _%L142666%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self143304%_ _%L143522%_)))) - (_%__kont144274144275%_ - (lambda (_%L143470%_ _%L143471%_ _%L143472%_) - (if (let ((__tmp145692 + (gxc#compile-e__1 _%self142447%_ _%L142665%_)))) + (_%__kont143417143418%_ + (lambda (_%L142613%_ _%L142614%_ _%L142615%_) + (if (let ((__tmp144824 (let () (declare (not safe)) - (gx#stx-e _%L143472%_)))) + (gx#stx-e _%L142615%_)))) (declare (not safe)) - (##memq __tmp145692 '(@inline))) + (##memq __tmp144824 '(@inline))) '(begin) (let () (declare (not safe)) - (gxc#compile-e__1 _%self143304%_ _%L143470%_))))) - (_%__kont144278144279%_ - (lambda (_%L143390%_ _%L143391%_) - (let ((_%decls143406%_ (map gx#syntax->datum _%L143391%_))) - (let ((__tmp145695 + (gxc#compile-e__1 _%self142447%_ _%L142613%_))))) + (_%__kont143421143422%_ + (lambda (_%L142533%_ _%L142534%_) + (let ((_%decls142549%_ (map gx#syntax->datum _%L142534%_))) + (let ((__tmp144827 (lambda () (cons 'begin - (cons (cons 'declare _%decls143406%_) + (cons (cons 'declare _%decls142549%_) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self143304%_ - _%L143390%_)) + _%self142447%_ + _%L142533%_)) '()))))) - (__tmp145693 - (let ((__tmp145694 + (__tmp144825 + (let ((__tmp144826 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) - (__foldr1 cons __tmp145694 _%decls143406%_)))) + (__foldr1 cons __tmp144826 _%decls142549%_)))) (declare (not safe)) (__call-with-parameters - __tmp145695 + __tmp144827 gxc#current-compile-decls - __tmp145693)))))) - (let* ((_%__match144325144326%_ - (lambda (_%e143327143414%_ - _%hd143326143417%_ - _%tl143325143419%_ - _%e143330143422%_ - _%hd143329143425%_ - _%tl143328143427%_ - _%e143333143430%_ - _%hd143332143433%_ - _%tl143331143435%_ - _%__splice144276144277%_ - _%target143334143438%_ - _%tl143336143440%_) - (letrec ((_%loop143337143443%_ - (lambda (_%hd143335143446%_ - _%param143341143448%_) + __tmp144825)))))) + (let* ((_%__match143468143469%_ + (lambda (_%e142470142557%_ + _%hd142469142560%_ + _%tl142468142562%_ + _%e142473142565%_ + _%hd142472142568%_ + _%tl142471142570%_ + _%e142476142573%_ + _%hd142475142576%_ + _%tl142474142578%_ + _%__splice143419143420%_ + _%target142477142581%_ + _%tl142479142583%_) + (letrec ((_%loop142480142586%_ + (lambda (_%hd142478142589%_ + _%param142484142591%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143335143446%_)) - (let ((_%e143338143451%_ + (gx#stx-pair? _%hd142478142589%_)) + (let ((_%e142481142594%_ (let () (declare (not safe)) - (gx#stx-e _%hd143335143446%_)))) - (let ((_%lp-tl143340143456%_ + (gx#stx-e _%hd142478142589%_)))) + (let ((_%lp-tl142483142599%_ (let () (declare (not safe)) - (##cdr _%e143338143451%_))) - (_%lp-hd143339143454%_ + (##cdr _%e142481142594%_))) + (_%lp-hd142482142597%_ (let () (declare (not safe)) - (##car _%e143338143451%_)))) - (let ((__tmp145696 - (cons _%lp-hd143339143454%_ - _%param143341143448%_))) - (declare (not safe)) - (_%loop143337143443%_ - _%lp-tl143340143456%_ - __tmp145696)))) - (let ((_%param143342143459%_ - (reverse _%param143341143448%_))) + (##car _%e142481142594%_)))) + (_%loop142480142586%_ + _%lp-tl142483142599%_ + (cons _%lp-hd142482142597%_ + _%param142484142591%_)))) + (let ((_%param142485142602%_ + (reverse _%param142484142591%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143328143427%_)) - (let ((_%e143345143462%_ + _%tl142471142570%_)) + (let ((_%e142488142605%_ (let () (declare (not safe)) (gx#stx-e - _%tl143328143427%_)))) - (let ((_%tl143343143467%_ + _%tl142471142570%_)))) + (let ((_%tl142486142610%_ (let () (declare (not safe)) - (##cdr _%e143345143462%_))) - (_%hd143344143465%_ + (##cdr _%e142488142605%_))) + (_%hd142487142608%_ (let () (declare (not safe)) - (##car _%e143345143462%_)))) + (##car _%e142488142605%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143343143467%_)) - (let ((_%L143470%_ - _%hd143344143465%_) - (_%L143471%_ - _%param143342143459%_) - (_%L143472%_ - _%hd143332143433%_)) + _%tl142486142610%_)) + (let ((_%L142613%_ + _%hd142487142608%_) + (_%L142614%_ + _%param142485142602%_) + (_%L142615%_ + _%hd142475142576%_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _%L143472%_)) - (let ((__tmp145697 - (let ((__tmp145698 - (let () - (declare (not safe)) - (gx#stx-e _%L143472%_)))) - (declare (not safe)) - (##memq __tmp145698 gxc#gambit-annotations)))) - (declare (not safe)) - (not __tmp145697))) - (_%__kont144274144275%_ _%L143470%_ _%L143471%_ _%L143472%_) - (_%__kont144278144279%_ - _%hd143344143465%_ - _%hd143329143425%_))) + (gx#identifier? _%L142615%_)) + (not (let ((__tmp144828 + (let () + (declare (not safe)) + (gx#stx-e _%L142615%_)))) + (declare (not safe)) + (##memq __tmp144828 gxc#gambit-annotations)))) + (_%__kont143417143418%_ _%L142613%_ _%L142614%_ _%L142615%_) + (_%__kont143421143422%_ + _%hd142487142608%_ + _%hd142472142568%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143309143361%_))))) + (_%g142452142504%_))))) (let () (declare (not safe)) - (_%g143309143361%_)))))))) - (let () - (declare (not safe)) - (_%loop143337143443%_ _%target143334143438%_ '()))))) - (_%__match144299144300%_ - (lambda (_%e143315143498%_ - _%hd143314143501%_ - _%tl143313143503%_ - _%e143318143506%_ - _%hd143317143509%_ - _%tl143316143511%_ - _%e143321143514%_ - _%hd143320143517%_ - _%tl143319143519%_) - (let ((_%L143522%_ _%hd143320143517%_) - (_%L143523%_ _%hd143317143509%_)) + (_%g142452142504%_)))))))) + (_%loop142480142586%_ _%target142477142581%_ '())))) + (_%__match143442143443%_ + (lambda (_%e142458142641%_ + _%hd142457142644%_ + _%tl142456142646%_ + _%e142461142649%_ + _%hd142460142652%_ + _%tl142459142654%_ + _%e142464142657%_ + _%hd142463142660%_ + _%tl142462142662%_) + (let ((_%L142665%_ _%hd142463142660%_) + (_%L142666%_ _%hd142460142652%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L143523%_)) - (_%__kont144272144273%_ _%L143522%_ _%L143523%_) + (gx#identifier? _%L142666%_)) + (_%__kont143415143416%_ _%L142665%_ _%L142666%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143317143509%_)) - (let ((_%e143333143430%_ + (gx#stx-pair? _%hd142460142652%_)) + (let ((_%e142476142573%_ (let () (declare (not safe)) - (gx#stx-e _%hd143317143509%_)))) - (let ((_%tl143331143435%_ + (gx#stx-e _%hd142460142652%_)))) + (let ((_%tl142474142578%_ (let () (declare (not safe)) - (##cdr _%e143333143430%_))) - (_%hd143332143433%_ + (##cdr _%e142476142573%_))) + (_%hd142475142576%_ (let () (declare (not safe)) - (##car _%e143333143430%_)))) + (##car _%e142476142573%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl143331143435%_)) - (let ((_%__splice144276144277%_ + _%tl142474142578%_)) + (let ((_%__splice143419143420%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl143331143435%_ + _%tl142474142578%_ '0)))) - (let ((_%tl143336143440%_ + (let ((_%tl142479142583%_ (let () (declare (not safe)) (##vector-ref - _%__splice144276144277%_ + _%__splice143419143420%_ '1))) - (_%target143334143438%_ + (_%target142477142581%_ (let () (declare (not safe)) (##vector-ref - _%__splice144276144277%_ + _%__splice143419143420%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143336143440%_)) - (_%__match144325144326%_ - _%e143315143498%_ - _%hd143314143501%_ - _%tl143313143503%_ - _%e143318143506%_ - _%hd143317143509%_ - _%tl143316143511%_ - _%e143333143430%_ - _%hd143332143433%_ - _%tl143331143435%_ - _%__splice144276144277%_ - _%target143334143438%_ - _%tl143336143440%_) - (_%__kont144278144279%_ - _%hd143320143517%_ - _%hd143317143509%_)))) - (_%__kont144278144279%_ - _%hd143320143517%_ - _%hd143317143509%_)))) - (_%__kont144278144279%_ - _%hd143320143517%_ - _%hd143317143509%_))))))) + _%tl142479142583%_)) + (_%__match143468143469%_ + _%e142458142641%_ + _%hd142457142644%_ + _%tl142456142646%_ + _%e142461142649%_ + _%hd142460142652%_ + _%tl142459142654%_ + _%e142476142573%_ + _%hd142475142576%_ + _%tl142474142578%_ + _%__splice143419143420%_ + _%target142477142581%_ + _%tl142479142583%_) + (_%__kont143421143422%_ + _%hd142463142660%_ + _%hd142460142652%_)))) + (_%__kont143421143422%_ + _%hd142463142660%_ + _%hd142460142652%_)))) + (_%__kont143421143422%_ + _%hd142463142660%_ + _%hd142460142652%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx144270144271%_)) - (let ((_%e143315143498%_ + (gx#stx-pair? _%__stx143413143414%_)) + (let ((_%e142458142641%_ (let () (declare (not safe)) - (gx#stx-e _%__stx144270144271%_)))) - (let ((_%tl143313143503%_ + (gx#stx-e _%__stx143413143414%_)))) + (let ((_%tl142456142646%_ (let () (declare (not safe)) - (##cdr _%e143315143498%_))) - (_%hd143314143501%_ + (##cdr _%e142458142641%_))) + (_%hd142457142644%_ (let () (declare (not safe)) - (##car _%e143315143498%_)))) + (##car _%e142458142641%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143313143503%_)) - (let ((_%e143318143506%_ + (gx#stx-pair? _%tl142456142646%_)) + (let ((_%e142461142649%_ (let () (declare (not safe)) - (gx#stx-e _%tl143313143503%_)))) - (let ((_%tl143316143511%_ + (gx#stx-e _%tl142456142646%_)))) + (let ((_%tl142459142654%_ (let () (declare (not safe)) - (##cdr _%e143318143506%_))) - (_%hd143317143509%_ + (##cdr _%e142461142649%_))) + (_%hd142460142652%_ (let () (declare (not safe)) - (##car _%e143318143506%_)))) + (##car _%e142461142649%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143316143511%_)) - (let ((_%e143321143514%_ + (gx#stx-pair? _%tl142459142654%_)) + (let ((_%e142464142657%_ (let () (declare (not safe)) - (gx#stx-e _%tl143316143511%_)))) - (let ((_%tl143319143519%_ + (gx#stx-e _%tl142459142654%_)))) + (let ((_%tl142462142662%_ (let () (declare (not safe)) - (##cdr _%e143321143514%_))) - (_%hd143320143517%_ + (##cdr _%e142464142657%_))) + (_%hd142463142660%_ (let () (declare (not safe)) - (##car _%e143321143514%_)))) + (##car _%e142464142657%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143319143519%_)) - (_%__match144299144300%_ - _%e143315143498%_ - _%hd143314143501%_ - _%tl143313143503%_ - _%e143318143506%_ - _%hd143317143509%_ - _%tl143316143511%_ - _%e143321143514%_ - _%hd143320143517%_ - _%tl143319143519%_) + (gx#stx-null? _%tl142462142662%_)) + (_%__match143442143443%_ + _%e142458142641%_ + _%hd142457142644%_ + _%tl142456142646%_ + _%e142461142649%_ + _%hd142460142652%_ + _%tl142459142654%_ + _%e142464142657%_ + _%hd142463142660%_ + _%tl142462142662%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143317143509%_)) - (let ((_%e143333143430%_ + _%hd142460142652%_)) + (let ((_%e142476142573%_ (let () (declare (not safe)) (gx#stx-e - _%hd143317143509%_)))) - (let ((_%tl143331143435%_ + _%hd142460142652%_)))) + (let ((_%tl142474142578%_ (let () (declare (not safe)) - (##cdr _%e143333143430%_))) - (_%hd143332143433%_ + (##cdr _%e142476142573%_))) + (_%hd142475142576%_ (let () (declare (not safe)) - (##car _%e143333143430%_)))) + (##car _%e142476142573%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl143331143435%_)) - (let ((_%__splice144276144277%_ + _%tl142474142578%_)) + (let ((_%__splice143419143420%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl143331143435%_ '0)))) - (let ((_%tl143336143440%_ + (gx#syntax-split-splice _%tl142474142578%_ '0)))) + (let ((_%tl142479142583%_ (let () (declare (not safe)) - (##vector-ref _%__splice144276144277%_ '1))) - (_%target143334143438%_ + (##vector-ref _%__splice143419143420%_ '1))) + (_%target142477142581%_ (let () (declare (not safe)) - (##vector-ref _%__splice144276144277%_ '0)))) + (##vector-ref _%__splice143419143420%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143336143440%_)) - (_%__match144325144326%_ - _%e143315143498%_ - _%hd143314143501%_ - _%tl143313143503%_ - _%e143318143506%_ - _%hd143317143509%_ - _%tl143316143511%_ - _%e143333143430%_ - _%hd143332143433%_ - _%tl143331143435%_ - _%__splice144276144277%_ - _%target143334143438%_ - _%tl143336143440%_) - (let () (declare (not safe)) (_%g143309143361%_))))) - (let () (declare (not safe)) (_%g143309143361%_))))) + (gx#stx-null? _%tl142479142583%_)) + (_%__match143468143469%_ + _%e142458142641%_ + _%hd142457142644%_ + _%tl142456142646%_ + _%e142461142649%_ + _%hd142460142652%_ + _%tl142459142654%_ + _%e142476142573%_ + _%hd142475142576%_ + _%tl142474142578%_ + _%__splice143419143420%_ + _%target142477142581%_ + _%tl142479142583%_) + (let () (declare (not safe)) (_%g142452142504%_))))) + (let () (declare (not safe)) (_%g142452142504%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143309143361%_)))))) + (_%g142452142504%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143317143509%_)) - (let ((_%e143333143430%_ + (gx#stx-pair? _%hd142460142652%_)) + (let ((_%e142476142573%_ (let () (declare (not safe)) - (gx#stx-e _%hd143317143509%_)))) - (let ((_%tl143331143435%_ + (gx#stx-e _%hd142460142652%_)))) + (let ((_%tl142474142578%_ (let () (declare (not safe)) - (##cdr _%e143333143430%_))) - (_%hd143332143433%_ + (##cdr _%e142476142573%_))) + (_%hd142475142576%_ (let () (declare (not safe)) - (##car _%e143333143430%_)))) + (##car _%e142476142573%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl143331143435%_)) - (let ((_%__splice144276144277%_ + _%tl142474142578%_)) + (let ((_%__splice143419143420%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl143331143435%_ + _%tl142474142578%_ '0)))) - (let ((_%tl143336143440%_ + (let ((_%tl142479142583%_ (let () (declare (not safe)) (##vector-ref - _%__splice144276144277%_ + _%__splice143419143420%_ '1))) - (_%target143334143438%_ + (_%target142477142581%_ (let () (declare (not safe)) (##vector-ref - _%__splice144276144277%_ + _%__splice143419143420%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143336143440%_)) - (_%__match144325144326%_ - _%e143315143498%_ - _%hd143314143501%_ - _%tl143313143503%_ - _%e143318143506%_ - _%hd143317143509%_ - _%tl143316143511%_ - _%e143333143430%_ - _%hd143332143433%_ - _%tl143331143435%_ - _%__splice144276144277%_ - _%target143334143438%_ - _%tl143336143440%_) + _%tl142479142583%_)) + (_%__match143468143469%_ + _%e142458142641%_ + _%hd142457142644%_ + _%tl142456142646%_ + _%e142461142649%_ + _%hd142460142652%_ + _%tl142459142654%_ + _%e142476142573%_ + _%hd142475142576%_ + _%tl142474142578%_ + _%__splice143419143420%_ + _%target142477142581%_ + _%tl142479142583%_) (let () (declare (not safe)) - (_%g143309143361%_))))) + (_%g142452142504%_))))) (let () (declare (not safe)) - (_%g143309143361%_))))) + (_%g142452142504%_))))) (let () (declare (not safe)) - (_%g143309143361%_)))))) - (let () (declare (not safe)) (_%g143309143361%_))))) - (let () (declare (not safe)) (_%g143309143361%_)))))))) + (_%g142452142504%_)))))) + (let () (declare (not safe)) (_%g142452142504%_))))) + (let () (declare (not safe)) (_%g142452142504%_)))))))) (define gxc#generate-runtime-declare% - (lambda (_%self143263%_ _%stx143264%_) - (let* ((_%g143266143276%_ - (lambda (_%g143267143273%_) + (lambda (_%self142406%_ _%stx142407%_) + (let* ((_%g142409142419%_ + (lambda (_%g142410142416%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143267143273%_)))) - (_%g143265143301%_ - (lambda (_%g143267143279%_) + _%g142410142416%_)))) + (_%g142408142444%_ + (lambda (_%g142410142422%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143267143279%_)) - (let ((_%e143271143281%_ + (gx#stx-pair? _%g142410142422%_)) + (let ((_%e142414142424%_ (let () (declare (not safe)) - (gx#stx-e _%g143267143279%_)))) - (let ((_%hd143270143284%_ + (gx#stx-e _%g142410142422%_)))) + (let ((_%hd142413142427%_ (let () (declare (not safe)) - (##car _%e143271143281%_))) - (_%tl143269143286%_ + (##car _%e142414142424%_))) + (_%tl142412142429%_ (let () (declare (not safe)) - (##cdr _%e143271143281%_)))) - ((lambda (_%L143289%_) - (let ((_%decls143299%_ - (map gx#syntax->datum _%L143289%_))) - (let ((__tmp145699 - (let ((__tmp145700 + (##cdr _%e142414142424%_)))) + ((lambda (_%L142432%_) + (let ((_%decls142442%_ + (map gx#syntax->datum _%L142432%_))) + (let ((__tmp144829 + (let ((__tmp144830 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) (__foldr1 cons - __tmp145700 - _%decls143299%_)))) + __tmp144830 + _%decls142442%_)))) (declare (not safe)) - (gxc#current-compile-decls __tmp145699)) - (cons 'declare _%decls143299%_))) - _%tl143269143286%_))) - (let () - (declare (not safe)) - (_%g143266143276%_ _%g143267143279%_)))))) - (declare (not safe)) - (_%g143265143301%_ _%stx143264%_)))) + (gxc#current-compile-decls __tmp144829)) + (cons 'declare _%decls142442%_))) + _%tl142412142429%_))) + (_%g142409142419%_ _%g142410142422%_))))) + (_%g142408142444%_ _%stx142407%_)))) (define gxc#generate-runtime-define-values% - (lambda (_%self143009%_ _%stx143010%_) - (let* ((_%g143012143029%_ - (lambda (_%g143013143026%_) + (lambda (_%self142152%_ _%stx142153%_) + (let* ((_%g142155142172%_ + (lambda (_%g142156142169%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143013143026%_)))) - (_%g143011143260%_ - (lambda (_%g143013143032%_) + _%g142156142169%_)))) + (_%g142154142403%_ + (lambda (_%g142156142175%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143013143032%_)) - (let ((_%e143018143034%_ + (gx#stx-pair? _%g142156142175%_)) + (let ((_%e142161142177%_ (let () (declare (not safe)) - (gx#stx-e _%g143013143032%_)))) - (let ((_%hd143017143037%_ + (gx#stx-e _%g142156142175%_)))) + (let ((_%hd142160142180%_ (let () (declare (not safe)) - (##car _%e143018143034%_))) - (_%tl143016143039%_ + (##car _%e142161142177%_))) + (_%tl142159142182%_ (let () (declare (not safe)) - (##cdr _%e143018143034%_)))) + (##cdr _%e142161142177%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143016143039%_)) - (let ((_%e143021143042%_ + (gx#stx-pair? _%tl142159142182%_)) + (let ((_%e142164142185%_ (let () (declare (not safe)) - (gx#stx-e _%tl143016143039%_)))) - (let ((_%hd143020143045%_ + (gx#stx-e _%tl142159142182%_)))) + (let ((_%hd142163142188%_ (let () (declare (not safe)) - (##car _%e143021143042%_))) - (_%tl143019143047%_ + (##car _%e142164142185%_))) + (_%tl142162142190%_ (let () (declare (not safe)) - (##cdr _%e143021143042%_)))) + (##cdr _%e142164142185%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143019143047%_)) - (let ((_%e143024143050%_ + (gx#stx-pair? _%tl142162142190%_)) + (let ((_%e142167142193%_ (let () (declare (not safe)) - (gx#stx-e _%tl143019143047%_)))) - (let ((_%hd143023143053%_ + (gx#stx-e _%tl142162142190%_)))) + (let ((_%hd142166142196%_ (let () (declare (not safe)) - (##car _%e143024143050%_))) - (_%tl143022143055%_ + (##car _%e142167142193%_))) + (_%tl142165142198%_ (let () (declare (not safe)) - (##cdr _%e143024143050%_)))) + (##cdr _%e142167142193%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143022143055%_)) - ((lambda (_%L143058%_ - _%L143059%_) - (let* ((_%__stx144378144379%_ - _%L143059%_) - (_%g143076143090%_ + _%tl142165142198%_)) + ((lambda (_%L142201%_ + _%L142202%_) + (let* ((_%__stx143521143522%_ + _%L142202%_) + (_%g142219142233%_ (lambda () (let () (declare @@ -3029,9561 +2927,8792 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx144378144379%_))))) - (let ((_%__kont144380144381%_ + _%__stx143521143522%_))))) + (let ((_%__kont143523143524%_ (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self143009%_ - _%L143058%_)))) - (_%__kont144382144383%_ - (lambda (_%L143222%_) - (let ((_%eid143231%_ + _%self142152%_ + _%L142201%_)))) + (_%__kont143525143526%_ + (lambda (_%L142365%_) + (let ((_%eid142374%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%L143222%_)))) - (let ((_%lambda-expr143232143234%_ - (let () - (declare (not safe)) - (gxc#apply-find-lambda-expression - _%L143058%_)))) - (if _%lambda-expr143232143234%_ - (let* ((_%lambda-expr143237%_ - _%lambda-expr143232143234%_) - (__tmp145701 + (gxc#generate-runtime-binding-id _%L142365%_)))) + (let ((_%lambda-expr142375142377%_ + (gxc#apply-find-lambda-expression _%L142201%_))) + (if _%lambda-expr142375142377%_ + (let* ((_%lambda-expr142380%_ + _%lambda-expr142375142377%_) + (__tmp144831 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) (hash-put! - __tmp145701 - _%lambda-expr143237%_ - _%eid143231%_)) + __tmp144831 + _%lambda-expr142380%_ + _%eid142374%_)) '#f)) (cons 'define - (cons _%eid143231%_ + (cons _%eid142374%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self143009%_ - _%L143058%_)) + _%self142152%_ + _%L142201%_)) '())))))) - (_%__kont144384144385%_ + (_%__kont143527143528%_ (lambda () - (let* ((_%tmp143097%_ + (let* ((_%tmp142240%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%body143206%_ - (let _%lp143099%_ ((_%rest143101%_ _%L143059%_) - (_%k143102%_ '0) - (_%r143103%_ '())) - (let* ((_%__stx144348144349%_ _%rest143101%_) - (_%g143108143125%_ + (_%body142349%_ + (let _%lp142242%_ ((_%rest142244%_ _%L142202%_) + (_%k142245%_ '0) + (_%r142246%_ '())) + (let* ((_%__stx143491143492%_ _%rest142244%_) + (_%g142251142268%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx144348144349%_))))) - (let ((_%__kont144350144351%_ - (lambda (_%L143193%_) - (let ((__tmp145702 - (let () - (declare (not safe)) - (##fx+ _%k143102%_ '1)))) - (declare (not safe)) - (_%lp143099%_ - _%L143193%_ - __tmp145702 - _%r143103%_)))) - (_%__kont144352144353%_ - (lambda (_%L143166%_ _%L143167%_) - (let ((__tmp145704 - (let () - (declare (not safe)) - (##fx+ _%k143102%_ '1))) - (__tmp145703 - (cons (cons 'define - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gxc#generate-runtime-binding-id _%L143167%_)) - (cons (let () - (declare (not safe)) - (gxc#generate-runtime-values-ref - _%tmp143097%_ - _%k143102%_ - _%L143166%_)) - '()))) - _%r143103%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp143099%_ - _%L143166%_ - __tmp145704 - __tmp145703)))) - (_%__kont144354144355%_ - (lambda (_%L143137%_) - (let ((__tmp145705 + _%__stx143491143492%_))))) + (let ((_%__kont143493143494%_ + (lambda (_%L142336%_) + (_%lp142242%_ + _%L142336%_ + (let () + (declare (not safe)) + (##fx+ _%k142245%_ '1)) + _%r142246%_))) + (_%__kont143495143496%_ + (lambda (_%L142309%_ _%L142310%_) + (_%lp142242%_ + _%L142309%_ + (let () + (declare (not safe)) + (##fx+ _%k142245%_ '1)) + (cons (cons 'define + (cons (let () + (declare + (not safe)) + (gxc#generate-runtime-binding-id + _%L142310%_)) + (cons (gxc#generate-runtime-values-ref +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%tmp142240%_ + _%k142245%_ + _%L142309%_) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%r142246%_)))) + (_%__kont143497143498%_ + (lambda (_%L142280%_) + (let ((__tmp144832 (cons (cons 'define (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#generate-runtime-binding-id _%L143137%_)) - (cons (let () - (declare (not safe)) - (gxc#generate-runtime-values->list - _%tmp143097%_ - _%k143102%_)) + (gxc#generate-runtime-binding-id _%L142280%_)) + (cons (gxc#generate-runtime-values->list + _%tmp142240%_ + _%k142245%_) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp145705 - _%r143103%_)))) - (_%__kont144356144357%_ - (lambda () (reverse _%r143103%_)))) - (let ((_%g143106143153%_ + __tmp144832 + _%r142246%_)))) + (_%__kont143499143500%_ + (lambda () (reverse _%r142246%_)))) + (let ((_%g142249142296%_ (lambda () - (let ((_%L143137%_ - _%__stx144348144349%_)) + (let ((_%L142280%_ + _%__stx143491143492%_)) (if (let () (declare (not safe)) (gx#identifier? - _%L143137%_)) - (_%__kont144354144355%_ - _%L143137%_) - (_%__kont144356144357%_)))))) + _%L142280%_)) + (_%__kont143497143498%_ + _%L142280%_) + (_%__kont143499143500%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx144348144349%_)) - (let ((_%e143113143182%_ + (gx#stx-pair? _%__stx143491143492%_)) + (let ((_%e142256142325%_ (let () (declare (not safe)) (gx#stx-e - _%__stx144348144349%_)))) - (let ((_%tl143111143187%_ + _%__stx143491143492%_)))) + (let ((_%tl142254142330%_ (let () (declare (not safe)) - (##cdr _%e143113143182%_))) - (_%hd143112143185%_ + (##cdr _%e142256142325%_))) + (_%hd142255142328%_ (let () (declare (not safe)) - (##car _%e143113143182%_)))) + (##car _%e142256142325%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd143112143185%_)) - (let ((_%e143114143190%_ + _%hd142255142328%_)) + (let ((_%e142257142333%_ (let () (declare (not safe)) (gx#stx-e - _%hd143112143185%_)))) - (if (equal? _%e143114143190%_ + _%hd142255142328%_)))) + (if (equal? _%e142257142333%_ '#f) - (_%__kont144350144351%_ - _%tl143111143187%_) - (_%__kont144352144353%_ - _%tl143111143187%_ - _%hd143112143185%_))) - (_%__kont144352144353%_ - _%tl143111143187%_ - _%hd143112143185%_)))) + (_%__kont143493143494%_ + _%tl142254142330%_) + (_%__kont143495143496%_ + _%tl142254142330%_ + _%hd142255142328%_))) + (_%__kont143495143496%_ + _%tl142254142330%_ + _%hd142255142328%_)))) (let () (declare (not safe)) - (_%g143106143153%_))))))))) + (_%g142249142296%_))))))))) (cons 'begin (cons (cons 'define - (cons _%tmp143097%_ + (cons _%tmp142240%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self143009%_ - _%L143058%_)) + _%self142152%_ + _%L142201%_)) '()))) - (cons (let () - (declare (not safe)) - (gxc#generate-runtime-check-values - _%tmp143097%_ - _%L143059%_ - _%L143058%_)) - _%body143206%_))))))) + (cons (gxc#generate-runtime-check-values + _%tmp142240%_ + _%L142202%_ + _%L142201%_) + _%body142349%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx144378144379%_)) - (let ((_%e143080143244%_ + _%__stx143521143522%_)) + (let ((_%e142223142387%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx144378144379%_)))) - (let ((_%tl143078143249%_ + (gx#stx-e _%__stx143521143522%_)))) + (let ((_%tl142221142392%_ (let () (declare (not safe)) - (##cdr _%e143080143244%_))) - (_%hd143079143247%_ + (##cdr _%e142223142387%_))) + (_%hd142222142390%_ (let () (declare (not safe)) - (##car _%e143080143244%_)))) + (##car _%e142223142387%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd143079143247%_)) - (let ((_%e143081143252%_ + (gx#stx-datum? _%hd142222142390%_)) + (let ((_%e142224142395%_ (let () (declare (not safe)) - (gx#stx-e _%hd143079143247%_)))) - (if (equal? _%e143081143252%_ '#f) + (gx#stx-e _%hd142222142390%_)))) + (if (equal? _%e142224142395%_ '#f) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143078143249%_)) - (_%__kont144380144381%_) - (_%__kont144384144385%_)) + (gx#stx-null? _%tl142221142392%_)) + (_%__kont143523143524%_) + (_%__kont143527143528%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143078143249%_)) - (_%__kont144382144383%_ _%hd143079143247%_) - (_%__kont144384144385%_)))) + (gx#stx-null? _%tl142221142392%_)) + (_%__kont143525143526%_ _%hd142222142390%_) + (_%__kont143527143528%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143078143249%_)) - (_%__kont144382144383%_ _%hd143079143247%_) - (_%__kont144384144385%_))))) - (_%__kont144384144385%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd143023143053%_ - _%hd143020143045%_) - (let () - (declare (not safe)) - (_%g143012143029%_ - _%g143013143032%_))))) - (let () - (declare (not safe)) - (_%g143012143029%_ - _%g143013143032%_))))) - (let () - (declare (not safe)) - (_%g143012143029%_ _%g143013143032%_))))) - (let () - (declare (not safe)) - (_%g143012143029%_ _%g143013143032%_)))))) - (declare (not safe)) - (_%g143011143260%_ _%stx143010%_)))) + (gx#stx-null? _%tl142221142392%_)) + (_%__kont143525143526%_ _%hd142222142390%_) + (_%__kont143527143528%_))))) + (_%__kont143527143528%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd142166142196%_ + _%hd142163142188%_) + (_%g142155142172%_ + _%g142156142175%_)))) + (_%g142155142172%_ _%g142156142175%_)))) + (_%g142155142172%_ _%g142156142175%_)))) + (_%g142155142172%_ _%g142156142175%_))))) + (_%g142154142403%_ _%stx142153%_)))) (define gxc#generate-runtime-check-values - (lambda (_%vals142984%_ _%hd142985%_ _%expr142986%_) - (let ((_%$e142988%_ - (let () - (declare (not safe)) - (gxc#apply-count-values _%expr142986%_)))) - (if _%$e142988%_ - ((lambda (_%count142991%_) - (let ((_%len142993%_ + (lambda (_%vals142127%_ _%hd142128%_ _%expr142129%_) + (let ((_%$e142131%_ (gxc#apply-count-values _%expr142129%_))) + (if _%$e142131%_ + ((lambda (_%count142134%_) + (let ((_%len142136%_ (let () (declare (not safe)) - (gx#stx-length _%hd142985%_))) - (_%cmp142994%_ + (gx#stx-length _%hd142128%_))) + (_%cmp142137%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd142985%_)) + (gx#stx-list? _%hd142128%_)) fx= fx>=))) (if (or (let () (declare (not safe)) - (##fx= _%len142993%_ '0)) - (_%cmp142994%_ _%count142991%_ _%len142993%_)) + (##fx= _%len142136%_ '0)) + (_%cmp142137%_ _%count142134%_ _%len142136%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _%expr142986%_ - _%hd142985%_))))) - _%$e142988%_) - (let () - (let* ((_%len143000%_ - (let () - (declare (not safe)) - (gx#stx-length _%hd142985%_))) - (_%cmp143002%_ - (if (let () - (declare (not safe)) - (gx#stx-list? _%hd142985%_)) - '##fx= - '##fx>=)) - (_%errmsg143004%_ - (let ((__tmp145707 - (if (let () - (declare (not safe)) - (gx#stx-list? _%hd142985%_)) - '"Context expects " - '"Context expects at least ")) - (__tmp145706 (number->string _%len143000%_))) - (declare (not safe)) - (##string-append - __tmp145707 - __tmp145706 - '" values"))) - (_%count143006%_ - (let () - (declare (not safe)) - (gxc#generate-runtime-temporary__0)))) - (if (and (let ((__tmp145708 - (let () - (declare (not safe)) - (gx#stx-list? _%hd142985%_)))) - (declare (not safe)) - (not __tmp145708)) - (let () - (declare (not safe)) - (##fx= _%len143000%_ '0))) - '#!void - (cons 'let - (cons (cons (cons _%count143006%_ - (cons (let () - (declare (not safe)) - (gxc#generate-runtime-values-count - _%vals142984%_)) - '())) - '()) - (cons (cons 'if - (cons (cons 'not - (cons (if (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gxc#current-compile-decls-unsafe?)) - (cons _%cmp143002%_ - (cons _%count143006%_ - (cons _%len143000%_ '()))) - (cons 'let - (cons '() - (cons '(declare (not safe)) - (cons (cons _%cmp143002%_ - (cons _%count143006%_ - (cons _%len143000%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - '())) + _%expr142129%_ + _%hd142128%_))))) + _%$e142131%_) + (let* ((_%len142143%_ + (let () + (declare (not safe)) + (gx#stx-length _%hd142128%_))) + (_%cmp142145%_ + (if (let () + (declare (not safe)) + (gx#stx-list? _%hd142128%_)) + '##fx= + '##fx>=)) + (_%errmsg142147%_ + (let ((__tmp144834 + (if (let () + (declare (not safe)) + (gx#stx-list? _%hd142128%_)) + '"Context expects " + '"Context expects at least ")) + (__tmp144833 (number->string _%len142143%_))) + (declare (not safe)) + (##string-append __tmp144834 __tmp144833 '" values"))) + (_%count142149%_ + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__0)))) + (if (and (not (let () + (declare (not safe)) + (gx#stx-list? _%hd142128%_))) + (let () + (declare (not safe)) + (##fx= _%len142143%_ '0))) + '#!void + (cons 'let + (cons (cons (cons _%count142149%_ + (cons (gxc#generate-runtime-values-count + _%vals142127%_) + '())) + '()) + (cons (cons 'if + (cons (cons 'not + (cons (if (gxc#current-compile-decls-unsafe?) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%cmp142145%_ + (cons _%count142149%_ + (cons _%len142143%_ '()))) + (cons 'let + (cons '() + (cons '(declare (not safe)) + (cons (cons _%cmp142145%_ + (cons _%count142149%_ + (cons _%len142143%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))))) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons 'error - (cons _%errmsg143004%_ + (cons (cons 'error + (cons _%errmsg142147%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%count143006%_ '()))) - '()))) + (cons _%count142149%_ '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))))))) + '()))))))))) (define gxc#generate-runtime-values-count - (lambda (_%var142979%_) - (letrec ((_%generate-inline142981%_ + (lambda (_%var142122%_) + (letrec ((_%generate-inline142124%_ (lambda () (cons 'if - (cons (cons '##values? (cons _%var142979%_ '())) + (cons (cons '##values? (cons _%var142122%_ '())) (cons (cons '##vector-length - (cons _%var142979%_ '())) + (cons _%var142122%_ '())) (cons '1 '()))))))) - (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_%generate-inline142981%_)) + (if (gxc#current-compile-decls-unsafe?) + (_%generate-inline142124%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (let () - (declare (not safe)) - (_%generate-inline142981%_)) - '())))))))) + (cons (_%generate-inline142124%_) '())))))))) (define gxc#generate-runtime-values-ref - (lambda (_%var142972%_ _%i142973%_ _%rest142974%_) - (letrec ((_%generate-inline142976%_ + (lambda (_%var142115%_ _%i142116%_ _%rest142117%_) + (letrec ((_%generate-inline142119%_ (lambda () (if (and (let () (declare (not safe)) - (##fx= _%i142973%_ '0)) - (let ((__tmp145709 - (let () - (declare (not safe)) - (gx#stx-pair? _%rest142974%_)))) - (declare (not safe)) - (not __tmp145709))) + (##fx= _%i142116%_ '0)) + (not (let () + (declare (not safe)) + (gx#stx-pair? _%rest142117%_)))) (cons 'if - (cons (cons '##values? (cons _%var142972%_ '())) + (cons (cons '##values? (cons _%var142115%_ '())) (cons (cons '##vector-ref - (cons _%var142972%_ + (cons _%var142115%_ (cons '0 '()))) - (cons _%var142972%_ '())))) + (cons _%var142115%_ '())))) (cons '##vector-ref - (cons _%var142972%_ (cons _%i142973%_ '()))))))) - (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_%generate-inline142976%_)) + (cons _%var142115%_ (cons _%i142116%_ '()))))))) + (if (gxc#current-compile-decls-unsafe?) + (_%generate-inline142119%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (let () - (declare (not safe)) - (_%generate-inline142976%_)) - '())))))))) + (cons (_%generate-inline142119%_) '())))))))) (define gxc#generate-runtime-values->list - (lambda (_%var142966%_ _%i142967%_) - (if (let () (declare (not safe)) (##fx= _%i142967%_ '0)) - (let () - (if (let () - (declare (not safe)) - (gxc#current-compile-decls-unsafe?)) - (cons 'if - (cons (cons '##values? (cons _%var142966%_ '())) - (cons (cons '##vector->list - (cons _%var142966%_ '())) - (cons (cons 'list (cons _%var142966%_ '())) - '())))) - (cons 'let - (cons '() - (cons '(declare (not safe)) - (cons (cons 'if - (cons (cons '##values? - (cons _%var142966%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons '##vector->list (cons _%var142966%_ '())) - (cons (cons 'list (cons _%var142966%_ '())) '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) - (if (let () (declare (not safe)) (##fx= _%i142967%_ '1)) - (let () - (if (let () - (declare (not safe)) - (gxc#current-compile-decls-unsafe?)) - (cons 'if - (cons (cons '##values? (cons _%var142966%_ '())) - (cons (cons '##cdr - (cons (cons '##vector->list - (cons _%var142966%_ - '())) - '())) - (cons ''() '())))) - (cons 'let - (cons '() - (cons '(declare (not safe)) - (cons (cons 'if - (cons (cons '##values? - (cons _%var142966%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons '##cdr - (cons (cons '##vector->list - (cons _%var142966%_ '())) - '())) - (cons ''() '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) - (let () - (if (let () - (declare (not safe)) - (gxc#current-compile-decls-unsafe?)) - (cons '##list-tail + (lambda (_%var142109%_ _%i142110%_) + (if (let () (declare (not safe)) (##fx= _%i142110%_ '0)) + (if (gxc#current-compile-decls-unsafe?) + (cons 'if + (cons (cons '##values? (cons _%var142109%_ '())) (cons (cons '##vector->list - (cons _%var142966%_ '())) - (cons _%i142967%_ '()))) - (cons 'let - (cons '() - (cons '(declare (not safe)) - (cons (cons '##list-tail + (cons _%var142109%_ '())) + (cons (cons 'list (cons _%var142109%_ '())) + '())))) + (cons 'let + (cons '() + (cons '(declare (not safe)) + (cons (cons 'if + (cons (cons '##values? + (cons _%var142109%_ + '())) (cons (cons '##vector->list - (cons _%var142966%_ + (cons _%var142109%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%i142967%_ '()))) + (cons (cons 'list (cons _%var142109%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))))))) + '()))))) + (if (let () (declare (not safe)) (##fx= _%i142110%_ '1)) + (if (gxc#current-compile-decls-unsafe?) + (cons 'if + (cons (cons '##values? (cons _%var142109%_ '())) + (cons (cons '##cdr + (cons (cons '##vector->list + (cons _%var142109%_ + '())) + '())) + (cons ''() '())))) + (cons 'let + (cons '() + (cons '(declare (not safe)) + (cons (cons 'if + (cons (cons '##values? + (cons _%var142109%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + (cons (cons '##cdr + (cons (cons '##vector->list + (cons _%var142109%_ '())) + '())) + (cons ''() '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))))) + (if (gxc#current-compile-decls-unsafe?) + (cons '##list-tail + (cons (cons '##vector->list (cons _%var142109%_ '())) + (cons _%i142110%_ '()))) + (cons 'let + (cons '() + (cons '(declare (not safe)) + (cons (cons '##list-tail + (cons (cons '##vector->list + (cons _%var142109%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + (cons _%i142110%_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))))))))) (define gxc#generate-runtime-lambda% - (lambda (_%self142898%_ _%stx142899%_) - (let* ((_%g142901142918%_ - (lambda (_%g142902142915%_) + (lambda (_%self142041%_ _%stx142042%_) + (let* ((_%g142044142061%_ + (lambda (_%g142045142058%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142902142915%_)))) - (_%g142900142963%_ - (lambda (_%g142902142921%_) + _%g142045142058%_)))) + (_%g142043142106%_ + (lambda (_%g142045142064%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142902142921%_)) - (let ((_%e142907142923%_ + (gx#stx-pair? _%g142045142064%_)) + (let ((_%e142050142066%_ (let () (declare (not safe)) - (gx#stx-e _%g142902142921%_)))) - (let ((_%hd142906142926%_ + (gx#stx-e _%g142045142064%_)))) + (let ((_%hd142049142069%_ (let () (declare (not safe)) - (##car _%e142907142923%_))) - (_%tl142905142928%_ + (##car _%e142050142066%_))) + (_%tl142048142071%_ (let () (declare (not safe)) - (##cdr _%e142907142923%_)))) + (##cdr _%e142050142066%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142905142928%_)) - (let ((_%e142910142931%_ + (gx#stx-pair? _%tl142048142071%_)) + (let ((_%e142053142074%_ (let () (declare (not safe)) - (gx#stx-e _%tl142905142928%_)))) - (let ((_%hd142909142934%_ + (gx#stx-e _%tl142048142071%_)))) + (let ((_%hd142052142077%_ (let () (declare (not safe)) - (##car _%e142910142931%_))) - (_%tl142908142936%_ + (##car _%e142053142074%_))) + (_%tl142051142079%_ (let () (declare (not safe)) - (##cdr _%e142910142931%_)))) + (##cdr _%e142053142074%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142908142936%_)) - (let ((_%e142913142939%_ + (gx#stx-pair? _%tl142051142079%_)) + (let ((_%e142056142082%_ (let () (declare (not safe)) - (gx#stx-e _%tl142908142936%_)))) - (let ((_%hd142912142942%_ + (gx#stx-e _%tl142051142079%_)))) + (let ((_%hd142055142085%_ (let () (declare (not safe)) - (##car _%e142913142939%_))) - (_%tl142911142944%_ + (##car _%e142056142082%_))) + (_%tl142054142087%_ (let () (declare (not safe)) - (##cdr _%e142913142939%_)))) + (##cdr _%e142056142082%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142911142944%_)) - ((lambda (_%L142947%_ - _%L142948%_) - (let () - (declare (not safe)) - (gxc#generate-runtime-lambda-form - _%self142898%_ - _%L142948%_ - _%L142947%_))) - _%hd142912142942%_ - _%hd142909142934%_) - (let () - (declare (not safe)) - (_%g142901142918%_ - _%g142902142921%_))))) - (let () - (declare (not safe)) - (_%g142901142918%_ - _%g142902142921%_))))) - (let () - (declare (not safe)) - (_%g142901142918%_ _%g142902142921%_))))) - (let () - (declare (not safe)) - (_%g142901142918%_ _%g142902142921%_)))))) - (declare (not safe)) - (_%g142900142963%_ _%stx142899%_)))) + _%tl142054142087%_)) + ((lambda (_%L142090%_ + _%L142091%_) + (gxc#generate-runtime-lambda-form + _%self142041%_ + _%L142091%_ + _%L142090%_)) + _%hd142055142085%_ + _%hd142052142077%_) + (_%g142044142061%_ + _%g142045142064%_)))) + (_%g142044142061%_ _%g142045142064%_)))) + (_%g142044142061%_ _%g142045142064%_)))) + (_%g142044142061%_ _%g142045142064%_))))) + (_%g142043142106%_ _%stx142042%_)))) (define gxc#generate-runtime-lambda-form - (lambda (_%self142857%_ _%hd142858%_ _%body142859%_) - (let* ((_%hd142861%_ + (lambda (_%self142000%_ _%hd142001%_ _%body142002%_) + (let* ((_%hd142004%_ (gxc#generate-runtime-lambda-head _%hd142001%_)) + (_%body142006%_ (let () (declare (not safe)) - (gxc#generate-runtime-lambda-head _%hd142858%_))) - (_%body142863%_ - (let () - (declare (not safe)) - (gxc#compile-e__1 _%self142857%_ _%body142859%_))) - (_%body142895%_ - (let* ((_%body142864142872%_ _%body142863%_) - (_%else142866142880%_ - (lambda () (cons _%body142863%_ '()))) - (_%K142868142885%_ - (lambda (_%exprs142883%_) _%exprs142883%_))) + (gxc#compile-e__1 _%self142000%_ _%body142002%_))) + (_%body142038%_ + (let* ((_%body142007142015%_ _%body142006%_) + (_%else142009142023%_ + (lambda () (cons _%body142006%_ '()))) + (_%K142011142028%_ + (lambda (_%exprs142026%_) _%exprs142026%_))) (if (let () (declare (not safe)) - (##pair? _%body142864142872%_)) - (let ((_%hd142869142888%_ + (##pair? _%body142007142015%_)) + (let ((_%hd142012142031%_ (let () (declare (not safe)) - (##car _%body142864142872%_))) - (_%tl142870142890%_ + (##car _%body142007142015%_))) + (_%tl142013142033%_ (let () (declare (not safe)) - (##cdr _%body142864142872%_)))) + (##cdr _%body142007142015%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142869142888%_ 'begin)) - (let ((_%exprs142893%_ _%tl142870142890%_)) - (declare (not safe)) - (_%K142868142885%_ _%exprs142893%_)) - (let () - (declare (not safe)) - (_%else142866142880%_)))) - (let () (declare (not safe)) (_%else142866142880%_)))))) - (cons 'lambda (cons _%hd142861%_ _%body142895%_))))) + (##eq? _%hd142012142031%_ 'begin)) + (let ((_%exprs142036%_ _%tl142013142033%_)) + (_%K142011142028%_ _%exprs142036%_)) + (_%else142009142023%_))) + (_%else142009142023%_))))) + (cons 'lambda (cons _%hd142004%_ _%body142038%_))))) (define gxc#generate-runtime-lambda-head - (lambda (_%hd142855%_) + (lambda (_%hd141998%_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd142855%_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd141998%_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_%self141394%_ _%stx141395%_) - (letrec ((_%dispatch-case?141397%_ - (lambda (_%hd142085%_ _%body142086%_) - (let* ((_%form142088%_ - (cons _%hd142085%_ (cons _%body142086%_ '()))) - (_%__stx144410144411%_ _%form142088%_) - (_%g142093142250%_ + (lambda (_%self140537%_ _%stx140538%_) + (letrec ((_%dispatch-case?140540%_ + (lambda (_%hd141228%_ _%body141229%_) + (let* ((_%form141231%_ + (cons _%hd141228%_ (cons _%body141229%_ '()))) + (_%__stx143553143554%_ _%form141231%_) + (_%g141236141393%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx144410144411%_))))) - (let ((_%__kont144412144413%_ - (lambda (_%L142775%_ _%L142776%_ _%L142777%_) + _%__stx143553143554%_))))) + (let ((_%__kont143555143556%_ + (lambda (_%L141918%_ _%L141919%_ _%L141920%_) '#t)) - (_%__kont144418144419%_ - (lambda (_%L142563%_ - _%L142564%_ - _%L142565%_ - _%L142566%_ - _%L142567%_ - _%L142568%_) + (_%__kont143561143562%_ + (lambda (_%L141706%_ + _%L141707%_ + _%L141708%_ + _%L141709%_ + _%L141710%_ + _%L141711%_) '#t)) - (_%__kont144424144425%_ - (lambda (_%L142358%_ - _%L142359%_ - _%L142360%_ - _%L142361%_) + (_%__kont143567143568%_ + (lambda (_%L141501%_ + _%L141502%_ + _%L141503%_ + _%L141504%_) '#t)) - (_%__kont144426144427%_ (lambda () '#f))) - (let* ((_%__match144551144552%_ - (lambda (_%e142212142262%_ - _%hd142211142265%_ - _%tl142210142267%_ - _%e142215142270%_ - _%hd142214142273%_ - _%tl142213142275%_ - _%e142218142278%_ - _%hd142217142281%_ - _%tl142216142283%_ - _%e142221142286%_ - _%hd142220142289%_ - _%tl142219142291%_ - _%e142224142294%_ - _%hd142223142297%_ - _%tl142222142299%_ - _%e142227142302%_ - _%hd142226142305%_ - _%tl142225142307%_ - _%e142230142310%_ - _%hd142229142313%_ - _%tl142228142315%_ - _%e142233142318%_ - _%hd142232142321%_ - _%tl142231142323%_ - _%e142236142326%_ - _%hd142235142329%_ - _%tl142234142331%_ - _%e142239142334%_ - _%hd142238142337%_ - _%tl142237142339%_ - _%e142242142342%_ - _%hd142241142345%_ - _%tl142240142347%_ - _%e142245142350%_ - _%hd142244142353%_ - _%tl142243142355%_) - (let ((_%L142358%_ _%hd142244142353%_) - (_%L142359%_ _%hd142235142329%_) - (_%L142360%_ _%hd142226142305%_) - (_%L142361%_ _%hd142211142265%_)) + (_%__kont143569143570%_ (lambda () '#f))) + (let* ((_%__match143694143695%_ + (lambda (_%e141355141405%_ + _%hd141354141408%_ + _%tl141353141410%_ + _%e141358141413%_ + _%hd141357141416%_ + _%tl141356141418%_ + _%e141361141421%_ + _%hd141360141424%_ + _%tl141359141426%_ + _%e141364141429%_ + _%hd141363141432%_ + _%tl141362141434%_ + _%e141367141437%_ + _%hd141366141440%_ + _%tl141365141442%_ + _%e141370141445%_ + _%hd141369141448%_ + _%tl141368141450%_ + _%e141373141453%_ + _%hd141372141456%_ + _%tl141371141458%_ + _%e141376141461%_ + _%hd141375141464%_ + _%tl141374141466%_ + _%e141379141469%_ + _%hd141378141472%_ + _%tl141377141474%_ + _%e141382141477%_ + _%hd141381141480%_ + _%tl141380141482%_ + _%e141385141485%_ + _%hd141384141488%_ + _%tl141383141490%_ + _%e141388141493%_ + _%hd141387141496%_ + _%tl141386141498%_) + (let ((_%L141501%_ _%hd141387141496%_) + (_%L141502%_ _%hd141378141472%_) + (_%L141503%_ _%hd141369141448%_) + (_%L141504%_ _%hd141354141408%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L142361%_)) + (gx#identifier? _%L141504%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L142360%_ + _%L141503%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L142361%_ - _%L142358%_)) - (let ((__tmp145710 - (let () - (declare (not safe)) - (gx#free-identifier=? - _%L142359%_ - _%L142361%_)))) - (declare (not safe)) - (not __tmp145710))) - (_%__kont144424144425%_ - _%L142358%_ - _%L142359%_ - _%L142360%_ - _%L142361%_) - (_%__kont144426144427%_))))) - (_%__match144523144524%_ - (lambda (_%e142212142262%_ - _%hd142211142265%_ - _%tl142210142267%_ - _%e142215142270%_ - _%hd142214142273%_ - _%tl142213142275%_ - _%e142218142278%_ - _%hd142217142281%_ - _%tl142216142283%_ - _%e142221142286%_ - _%hd142220142289%_ - _%tl142219142291%_ - _%e142224142294%_ - _%hd142223142297%_ - _%tl142222142299%_ - _%e142227142302%_ - _%hd142226142305%_ - _%tl142225142307%_ - _%e142230142310%_ - _%hd142229142313%_ - _%tl142228142315%_ - _%e142233142318%_ - _%hd142232142321%_ - _%tl142231142323%_ - _%e142236142326%_ - _%hd142235142329%_ - _%tl142234142331%_) + _%L141504%_ + _%L141501%_)) + (not (let () + (declare (not safe)) + (gx#free-identifier=? + _%L141502%_ + _%L141504%_)))) + (_%__kont143567143568%_ + _%L141501%_ + _%L141502%_ + _%L141503%_ + _%L141504%_) + (_%__kont143569143570%_))))) + (_%__match143666143667%_ + (lambda (_%e141355141405%_ + _%hd141354141408%_ + _%tl141353141410%_ + _%e141358141413%_ + _%hd141357141416%_ + _%tl141356141418%_ + _%e141361141421%_ + _%hd141360141424%_ + _%tl141359141426%_ + _%e141364141429%_ + _%hd141363141432%_ + _%tl141362141434%_ + _%e141367141437%_ + _%hd141366141440%_ + _%tl141365141442%_ + _%e141370141445%_ + _%hd141369141448%_ + _%tl141368141450%_ + _%e141373141453%_ + _%hd141372141456%_ + _%tl141371141458%_ + _%e141376141461%_ + _%hd141375141464%_ + _%tl141374141466%_ + _%e141379141469%_ + _%hd141378141472%_ + _%tl141377141474%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142228142315%_)) - (let ((_%e142239142334%_ + (gx#stx-pair? _%tl141371141458%_)) + (let ((_%e141382141477%_ (let () (declare (not safe)) - (gx#stx-e _%tl142228142315%_)))) - (let ((_%tl142237142339%_ + (gx#stx-e _%tl141371141458%_)))) + (let ((_%tl141380141482%_ (let () (declare (not safe)) - (##cdr _%e142239142334%_))) - (_%hd142238142337%_ + (##cdr _%e141382141477%_))) + (_%hd141381141480%_ (let () (declare (not safe)) - (##car _%e142239142334%_)))) + (##car _%e141382141477%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142238142337%_)) - (let ((_%e142242142342%_ + _%hd141381141480%_)) + (let ((_%e141385141485%_ (let () (declare (not safe)) (gx#stx-e - _%hd142238142337%_)))) - (let ((_%tl142240142347%_ + _%hd141381141480%_)))) + (let ((_%tl141383141490%_ (let () (declare (not safe)) - (##cdr _%e142242142342%_))) - (_%hd142241142345%_ + (##cdr _%e141385141485%_))) + (_%hd141384141488%_ (let () (declare (not safe)) - (##car _%e142242142342%_)))) + (##car _%e141385141485%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142241142345%_)) + _%hd141384141488%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142241142345%_)) + _%hd141384141488%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl142240142347%_)) - (let ((_%e142245142350%_ + (gx#stx-pair? _%tl141383141490%_)) + (let ((_%e141388141493%_ (let () (declare (not safe)) - (gx#stx-e _%tl142240142347%_)))) - (let ((_%tl142243142355%_ + (gx#stx-e _%tl141383141490%_)))) + (let ((_%tl141386141498%_ (let () (declare (not safe)) - (##cdr _%e142245142350%_))) - (_%hd142244142353%_ + (##cdr _%e141388141493%_))) + (_%hd141387141496%_ (let () (declare (not safe)) - (##car _%e142245142350%_)))) + (##car _%e141388141493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142243142355%_)) + (gx#stx-null? _%tl141386141498%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142237142339%_)) + (gx#stx-null? _%tl141380141482%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142213142275%_)) - (_%__match144551144552%_ - _%e142212142262%_ - _%hd142211142265%_ - _%tl142210142267%_ - _%e142215142270%_ - _%hd142214142273%_ - _%tl142213142275%_ - _%e142218142278%_ - _%hd142217142281%_ - _%tl142216142283%_ - _%e142221142286%_ - _%hd142220142289%_ - _%tl142219142291%_ - _%e142224142294%_ - _%hd142223142297%_ - _%tl142222142299%_ - _%e142227142302%_ - _%hd142226142305%_ - _%tl142225142307%_ - _%e142230142310%_ - _%hd142229142313%_ - _%tl142228142315%_ - _%e142233142318%_ - _%hd142232142321%_ - _%tl142231142323%_ - _%e142236142326%_ - _%hd142235142329%_ - _%tl142234142331%_ - _%e142239142334%_ - _%hd142238142337%_ - _%tl142237142339%_ - _%e142242142342%_ - _%hd142241142345%_ - _%tl142240142347%_ - _%e142245142350%_ - _%hd142244142353%_ - _%tl142243142355%_) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)))) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont144426144427%_)))) - (_%__kont144426144427%_)))) - (_%__match144453144454%_ - (lambda (_%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%__splice144420144421%_ - _%target142149142411%_ - _%tl142151142413%_) - (letrec ((_%loop142152142416%_ - (lambda (_%hd142150142419%_ - _%arg142156142421%_) + (gx#stx-null? _%tl141356141418%_)) + (_%__match143694143695%_ + _%e141355141405%_ + _%hd141354141408%_ + _%tl141353141410%_ + _%e141358141413%_ + _%hd141357141416%_ + _%tl141356141418%_ + _%e141361141421%_ + _%hd141360141424%_ + _%tl141359141426%_ + _%e141364141429%_ + _%hd141363141432%_ + _%tl141362141434%_ + _%e141367141437%_ + _%hd141366141440%_ + _%tl141365141442%_ + _%e141370141445%_ + _%hd141369141448%_ + _%tl141368141450%_ + _%e141373141453%_ + _%hd141372141456%_ + _%tl141371141458%_ + _%e141376141461%_ + _%hd141375141464%_ + _%tl141374141466%_ + _%e141379141469%_ + _%hd141378141472%_ + _%tl141377141474%_ + _%e141382141477%_ + _%hd141381141480%_ + _%tl141380141482%_ + _%e141385141485%_ + _%hd141384141488%_ + _%tl141383141490%_ + _%e141388141493%_ + _%hd141387141496%_ + _%tl141386141498%_) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)))) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont143569143570%_)))) + (_%__kont143569143570%_)))) + (_%__match143596143597%_ + (lambda (_%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%__splice143563143564%_ + _%target141292141554%_ + _%tl141294141556%_) + (letrec ((_%loop141295141559%_ + (lambda (_%hd141293141562%_ + _%arg141299141564%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142150142419%_)) - (let ((_%e142153142424%_ + _%hd141293141562%_)) + (let ((_%e141296141567%_ (let () (declare (not safe)) (gx#stx-e - _%hd142150142419%_)))) - (let ((_%lp-tl142155142429%_ + _%hd141293141562%_)))) + (let ((_%lp-tl141298141572%_ (let () (declare (not safe)) - (##cdr _%e142153142424%_))) - (_%lp-hd142154142427%_ + (##cdr _%e141296141567%_))) + (_%lp-hd141297141570%_ (let () (declare (not safe)) - (##car _%e142153142424%_)))) - (let ((__tmp145711 - (cons _%lp-hd142154142427%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg142156142421%_))) - (declare (not safe)) - (_%loop142152142416%_ _%lp-tl142155142429%_ __tmp145711)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%arg142157142432%_ - (reverse _%arg142156142421%_))) + (##car _%e141296141567%_)))) + (_%loop141295141559%_ + _%lp-tl141298141572%_ + (cons _%lp-hd141297141570%_ + _%arg141299141564%_)))) + (let ((_%arg141300141575%_ + (reverse _%arg141299141564%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142146142408%_)) - (let ((_%e142160142435%_ + _%tl141289141551%_)) + (let ((_%e141303141578%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl142146142408%_)))) - (let ((_%tl142158142440%_ + (gx#stx-e _%tl141289141551%_)))) + (let ((_%tl141301141583%_ (let () (declare (not safe)) - (##cdr _%e142160142435%_))) - (_%hd142159142438%_ + (##cdr _%e141303141578%_))) + (_%hd141302141581%_ (let () (declare (not safe)) - (##car _%e142160142435%_)))) + (##car _%e141303141578%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142159142438%_)) - (let ((_%e142163142443%_ + (gx#stx-pair? _%hd141302141581%_)) + (let ((_%e141306141586%_ (let () (declare (not safe)) - (gx#stx-e _%hd142159142438%_)))) - (let ((_%tl142161142448%_ + (gx#stx-e _%hd141302141581%_)))) + (let ((_%tl141304141591%_ (let () (declare (not safe)) - (##cdr _%e142163142443%_))) - (_%hd142162142446%_ + (##cdr _%e141306141586%_))) + (_%hd141305141589%_ (let () (declare (not safe)) - (##car _%e142163142443%_)))) + (##car _%e141306141586%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142162142446%_)) + (gx#identifier? _%hd141305141589%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd142162142446%_)) + (gx#stx-eq? '%#call _%hd141305141589%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142161142448%_)) - (let ((_%e142166142451%_ + (gx#stx-pair? _%tl141304141591%_)) + (let ((_%e141309141594%_ (let () (declare (not safe)) (gx#stx-e - _%tl142161142448%_)))) - (let ((_%tl142164142456%_ + _%tl141304141591%_)))) + (let ((_%tl141307141599%_ (let () (declare (not safe)) - (##cdr _%e142166142451%_))) - (_%hd142165142454%_ + (##cdr _%e141309141594%_))) + (_%hd141308141597%_ (let () (declare (not safe)) - (##car _%e142166142451%_)))) + (##car _%e141309141594%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142165142454%_)) - (let ((_%e142169142459%_ + _%hd141308141597%_)) + (let ((_%e141312141602%_ (let () (declare (not safe)) (gx#stx-e - _%hd142165142454%_)))) - (let ((_%tl142167142464%_ + _%hd141308141597%_)))) + (let ((_%tl141310141607%_ (let () (declare (not safe)) - (##cdr _%e142169142459%_))) - (_%hd142168142462%_ + (##cdr _%e141312141602%_))) + (_%hd141311141605%_ (let () (declare (not safe)) - (##car _%e142169142459%_)))) + (##car _%e141312141602%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142168142462%_)) + _%hd141311141605%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142168142462%_)) + _%hd141311141605%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl142167142464%_)) - (let ((_%e142172142467%_ + (gx#stx-pair? _%tl141310141607%_)) + (let ((_%e141315141610%_ (let () (declare (not safe)) - (gx#stx-e _%tl142167142464%_)))) - (let ((_%tl142170142472%_ + (gx#stx-e _%tl141310141607%_)))) + (let ((_%tl141313141615%_ (let () (declare (not safe)) - (##cdr _%e142172142467%_))) - (_%hd142171142470%_ + (##cdr _%e141315141610%_))) + (_%hd141314141613%_ (let () (declare (not safe)) - (##car _%e142172142467%_)))) + (##car _%e141315141610%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142170142472%_)) + (gx#stx-null? _%tl141313141615%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142164142456%_)) - (let ((_%e142175142475%_ + (gx#stx-pair? _%tl141307141599%_)) + (let ((_%e141318141618%_ (let () (declare (not safe)) - (gx#stx-e _%tl142164142456%_)))) - (let ((_%tl142173142480%_ + (gx#stx-e _%tl141307141599%_)))) + (let ((_%tl141316141623%_ (let () (declare (not safe)) - (##cdr _%e142175142475%_))) - (_%hd142174142478%_ + (##cdr _%e141318141618%_))) + (_%hd141317141621%_ (let () (declare (not safe)) - (##car _%e142175142475%_)))) + (##car _%e141318141618%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142174142478%_)) - (let ((_%e142178142483%_ + _%hd141317141621%_)) + (let ((_%e141321141626%_ (let () (declare (not safe)) (gx#stx-e - _%hd142174142478%_)))) - (let ((_%tl142176142488%_ + _%hd141317141621%_)))) + (let ((_%tl141319141631%_ (let () (declare (not safe)) - (##cdr _%e142178142483%_))) - (_%hd142177142486%_ + (##cdr _%e141321141626%_))) + (_%hd141320141629%_ (let () (declare (not safe)) - (##car _%e142178142483%_)))) + (##car _%e141321141626%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142177142486%_)) + _%hd141320141629%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142177142486%_)) + _%hd141320141629%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142176142488%_)) - (let ((_%e142181142491%_ + _%tl141319141631%_)) + (let ((_%e141324141634%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl142176142488%_)))) - (let ((_%tl142179142496%_ + (gx#stx-e _%tl141319141631%_)))) + (let ((_%tl141322141639%_ (let () (declare (not safe)) - (##cdr _%e142181142491%_))) - (_%hd142180142494%_ + (##cdr _%e141324141634%_))) + (_%hd141323141637%_ (let () (declare (not safe)) - (##car _%e142181142491%_)))) + (##car _%e141324141634%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142179142496%_)) + (gx#stx-null? _%tl141322141639%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl142173142480%_)) - (if (let ((__tmp145712 + (gx#stx-pair/null? _%tl141316141623%_)) + (if (let ((__tmp144835 (let () (declare (not safe)) (gx#stx-length - _%tl142173142480%_)))) + _%tl141316141623%_)))) (declare (not safe)) - (##fx>= __tmp145712 '1)) - (let ((_%__splice144422144423%_ + (##fx>= __tmp144835 '1)) + (let ((_%__splice143565143566%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl142173142480%_ + _%tl141316141623%_ '1)))) - (let ((_%tl142184142501%_ + (let ((_%tl141327141644%_ (let () (declare (not safe)) (##vector-ref - _%__splice144422144423%_ + _%__splice143565143566%_ '1))) - (_%target142182142499%_ + (_%target141325141642%_ (let () (declare (not safe)) (##vector-ref - _%__splice144422144423%_ + _%__splice143565143566%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142184142501%_)) - (let ((_%e142193142504%_ + _%tl141327141644%_)) + (let ((_%e141336141647%_ (let () (declare (not safe)) (gx#stx-e - _%tl142184142501%_)))) - (let ((_%tl142191142509%_ + _%tl141327141644%_)))) + (let ((_%tl141334141652%_ (let () (declare (not safe)) - (##cdr _%e142193142504%_))) - (_%hd142192142507%_ + (##cdr _%e141336141647%_))) + (_%hd141335141650%_ (let () (declare (not safe)) - (##car _%e142193142504%_)))) + (##car _%e141336141647%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142192142507%_)) - (let ((_%e142196142512%_ + _%hd141335141650%_)) + (let ((_%e141339141655%_ (let () (declare (not safe)) (gx#stx-e - _%hd142192142507%_)))) - (let ((_%tl142194142517%_ + _%hd141335141650%_)))) + (let ((_%tl141337141660%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e142196142512%_))) - (_%hd142195142515%_ - (let () (declare (not safe)) (##car _%e142196142512%_)))) + (##cdr _%e141339141655%_))) + (_%hd141338141658%_ + (let () (declare (not safe)) (##car _%e141339141655%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142195142515%_)) + (gx#identifier? _%hd141338141658%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd142195142515%_)) + (gx#stx-eq? '%#ref _%hd141338141658%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142194142517%_)) - (let ((_%e142199142520%_ + (gx#stx-pair? _%tl141337141660%_)) + (let ((_%e141342141663%_ (let () (declare (not safe)) - (gx#stx-e _%tl142194142517%_)))) - (let ((_%tl142197142525%_ + (gx#stx-e _%tl141337141660%_)))) + (let ((_%tl141340141668%_ (let () (declare (not safe)) - (##cdr _%e142199142520%_))) - (_%hd142198142523%_ + (##cdr _%e141342141663%_))) + (_%hd141341141666%_ (let () (declare (not safe)) - (##car _%e142199142520%_)))) + (##car _%e141342141663%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142197142525%_)) + (gx#stx-null? _%tl141340141668%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142191142509%_)) - (letrec ((_%loop142185142528%_ - (lambda (_%hd142183142531%_ - _%xarg142189142533%_) + (gx#stx-null? _%tl141334141652%_)) + (letrec ((_%loop141328141671%_ + (lambda (_%hd141326141674%_ + _%xarg141332141676%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142183142531%_)) - (let ((_%e142186142536%_ + _%hd141326141674%_)) + (let ((_%e141329141679%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd142183142531%_)))) - (let ((_%lp-tl142188142541%_ + (gx#stx-e _%hd141326141674%_)))) + (let ((_%lp-tl141331141684%_ (let () (declare (not safe)) - (##cdr _%e142186142536%_))) - (_%lp-hd142187142539%_ + (##cdr _%e141329141679%_))) + (_%lp-hd141330141682%_ (let () (declare (not safe)) - (##car _%e142186142536%_)))) + (##car _%e141329141679%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd142187142539%_)) - (let ((_%e142202142544%_ + (gx#stx-pair? _%lp-hd141330141682%_)) + (let ((_%e141345141687%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd142187142539%_)))) - (let ((_%tl142200142549%_ + (gx#stx-e _%lp-hd141330141682%_)))) + (let ((_%tl141343141692%_ (let () (declare (not safe)) - (##cdr _%e142202142544%_))) - (_%hd142201142547%_ + (##cdr _%e141345141687%_))) + (_%hd141344141690%_ (let () (declare (not safe)) - (##car _%e142202142544%_)))) + (##car _%e141345141687%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142201142547%_)) + (gx#identifier? _%hd141344141690%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd142201142547%_)) + (gx#stx-eq? '%#ref _%hd141344141690%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142200142549%_)) - (let ((_%e142205142552%_ + (gx#stx-pair? _%tl141343141692%_)) + (let ((_%e141348141695%_ (let () (declare (not safe)) (gx#stx-e - _%tl142200142549%_)))) - (let ((_%tl142203142557%_ + _%tl141343141692%_)))) + (let ((_%tl141346141700%_ (let () (declare (not safe)) - (##cdr _%e142205142552%_))) - (_%hd142204142555%_ + (##cdr _%e141348141695%_))) + (_%hd141347141698%_ (let () (declare (not safe)) - (##car _%e142205142552%_)))) + (##car _%e141348141695%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142203142557%_)) - (let ((__tmp145713 - (cons _%hd142204142555%_ - _%xarg142189142533%_))) - (declare (not safe)) - (_%loop142185142528%_ - _%lp-tl142188142541%_ - __tmp145713)) - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_)))) - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_)) - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_)) - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_)))) - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_)))) - (let ((_%xarg142190142560%_ (reverse _%xarg142189142533%_))) + _%tl141346141700%_)) + (_%loop141328141671%_ + _%lp-tl141331141684%_ + (cons _%hd141347141698%_ + _%xarg141332141676%_)) + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_)))) + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_)) + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_)) + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_)))) + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_)))) + (let ((_%xarg141333141703%_ (reverse _%xarg141332141676%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142158142440%_)) - (let ((_%L142563%_ _%hd142198142523%_) - (_%L142564%_ _%xarg142190142560%_) - (_%L142565%_ _%hd142180142494%_) - (_%L142566%_ _%hd142171142470%_) - (_%L142567%_ _%tl142151142413%_) - (_%L142568%_ _%arg142157142432%_)) - (if (and (let ((__tmp145714 - (let ((__tmp145715 - (lambda (_%g142611142614%_ - _%g142612142616%_) - (cons _%g142611142614%_ - _%g142612142616%_)))) + (gx#stx-null? _%tl141301141583%_)) + (let ((_%L141706%_ _%hd141341141666%_) + (_%L141707%_ _%xarg141333141703%_) + (_%L141708%_ _%hd141323141637%_) + (_%L141709%_ _%hd141314141613%_) + (_%L141710%_ _%tl141294141556%_) + (_%L141711%_ _%arg141300141575%_)) + (if (and (let ((__tmp144836 + (let ((__tmp144837 + (lambda (_%g141754141757%_ + _%g141755141759%_) + (cons _%g141754141757%_ + _%g141755141759%_)))) (declare (not safe)) (__foldr1 - __tmp145715 + __tmp144837 '() - _%L142568%_)))) + _%L141711%_)))) (declare (not safe)) - (gx#identifier-list? __tmp145714)) + (gx#identifier-list? __tmp144836)) (let () (declare (not safe)) - (gx#identifier? _%L142567%_)) + (gx#identifier? _%L141710%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L142566%_ + _%L141709%_ 'apply)) - (let ((__tmp145718 - (length (let ((__tmp145719 - (lambda (_%g142618142621%_ - _%g142619142623%_) - (cons _%g142618142621%_ - _%g142619142623%_)))) + (let ((__tmp144840 + (length (let ((__tmp144841 + (lambda (_%g141761141764%_ + _%g141762141766%_) + (cons _%g141761141764%_ + _%g141762141766%_)))) (declare (not safe)) (__foldr1 - __tmp145719 + __tmp144841 '() - _%L142568%_)))) - (__tmp145716 - (length (let ((__tmp145717 - (lambda (_%g142625142628%_ - _%g142626142630%_) - (cons _%g142625142628%_ - _%g142626142630%_)))) + _%L141711%_)))) + (__tmp144838 + (length (let ((__tmp144839 + (lambda (_%g141768141771%_ + _%g141769141773%_) + (cons _%g141768141771%_ + _%g141769141773%_)))) (declare (not safe)) (__foldr1 - __tmp145717 + __tmp144839 '() - _%L142564%_))))) + _%L141707%_))))) (declare (not safe)) - (##fx= __tmp145718 __tmp145716)) - (let ((__tmp145722 - (let ((__tmp145723 - (lambda (_%g142632142635%_ - _%g142633142637%_) - (cons _%g142632142635%_ - _%g142633142637%_)))) + (##fx= __tmp144840 __tmp144838)) + (let ((__tmp144844 + (let ((__tmp144845 + (lambda (_%g141775141778%_ + _%g141776141780%_) + (cons _%g141775141778%_ + _%g141776141780%_)))) (declare (not safe)) (__foldr1 - __tmp145723 + __tmp144845 '() - _%L142568%_))) - (__tmp145720 - (let ((__tmp145721 - (lambda (_%g142639142642%_ - _%g142640142644%_) - (cons _%g142639142642%_ - _%g142640142644%_)))) + _%L141711%_))) + (__tmp144842 + (let ((__tmp144843 + (lambda (_%g141782141785%_ + _%g141783141787%_) + (cons _%g141782141785%_ + _%g141783141787%_)))) (declare (not safe)) (__foldr1 - __tmp145721 + __tmp144843 '() - _%L142564%_)))) + _%L141707%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp145722 - __tmp145720)) + __tmp144844 + __tmp144842)) (let () (declare (not safe)) (gx#free-identifier=? - _%L142567%_ - _%L142563%_)) - (let ((__tmp145724 - (let ((__tmp145728 - (lambda (_%g142646142648%_) - (let () - (declare (not safe)) - (gx#free-identifier=? - _%g142646142648%_ - _%L142565%_)))) - (__tmp145725 - (let ((__tmp145727 - (lambda (_%g142650142653%_ - _%g142651142655%_) - (cons _%g142650142653%_ - _%g142651142655%_))) - (__tmp145726 - (cons _%L142567%_ '()))) + _%L141710%_ + _%L141706%_)) + (not (let ((__tmp144849 + (lambda (_%g141789141791%_) + (let () (declare (not safe)) - (__foldr1 - __tmp145727 - __tmp145726 - _%L142568%_)))) - (declare (not safe)) - (__find __tmp145728 __tmp145725)))) - (declare (not safe)) - (not __tmp145724))) - (_%__kont144418144419%_ - _%L142563%_ - _%L142564%_ - _%L142565%_ - _%L142566%_ - _%L142567%_ - _%L142568%_) - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_))) - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop142185142528%_ - _%target142182142499%_ - '()))) - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_)) - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_)))) - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_)) - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_)) - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_)))) - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_)))) - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_)) - (_%__match144523144524%_ - _%e142148142403%_ - _%hd142147142406%_ - _%tl142146142408%_ - _%e142160142435%_ - _%hd142159142438%_ - _%tl142158142440%_ - _%e142163142443%_ - _%hd142162142446%_ - _%tl142161142448%_ - _%e142166142451%_ - _%hd142165142454%_ - _%tl142164142456%_ - _%e142169142459%_ - _%hd142168142462%_ - _%tl142167142464%_ - _%e142172142467%_ - _%hd142171142470%_ - _%tl142170142472%_ - _%e142175142475%_ - _%hd142174142478%_ - _%tl142173142480%_ - _%e142178142483%_ - _%hd142177142486%_ - _%tl142176142488%_ - _%e142181142491%_ - _%hd142180142494%_ - _%tl142179142496%_)) - (_%__kont144426144427%_)))) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont144426144427%_)))) - (_%__kont144426144427%_)))) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)))) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont144426144427%_)))) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)))) - (_%__kont144426144427%_)))) - (_%__kont144426144427%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop142152142416%_ - _%target142149142411%_ - '()))))) - (_%__match144441144442%_ - (lambda (_%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_) - (letrec ((_%loop142104142676%_ - (lambda (_%hd142102142679%_ - _%arg142108142681%_) + (gx#free-identifier=? + _%g141789141791%_ + _%L141708%_)))) + (__tmp144846 + (let ((__tmp144848 + (lambda (_%g141793141796%_ + _%g141794141798%_) + (cons _%g141793141796%_ + _%g141794141798%_))) + (__tmp144847 + (cons _%L141710%_ '()))) + (declare (not safe)) + (__foldr1 + __tmp144848 + __tmp144847 + _%L141711%_)))) + (declare (not safe)) + (__find __tmp144849 __tmp144846)))) + (_%__kont143561143562%_ + _%L141706%_ + _%L141707%_ + _%L141708%_ + _%L141709%_ + _%L141710%_ + _%L141711%_) + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_))) + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop141328141671%_ + _%target141325141642%_ + '())) + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_)) + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_)))) + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_)) + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_)) + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_)))) + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_)))) + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_)) + (_%__match143666143667%_ + _%e141291141546%_ + _%hd141290141549%_ + _%tl141289141551%_ + _%e141303141578%_ + _%hd141302141581%_ + _%tl141301141583%_ + _%e141306141586%_ + _%hd141305141589%_ + _%tl141304141591%_ + _%e141309141594%_ + _%hd141308141597%_ + _%tl141307141599%_ + _%e141312141602%_ + _%hd141311141605%_ + _%tl141310141607%_ + _%e141315141610%_ + _%hd141314141613%_ + _%tl141313141615%_ + _%e141318141618%_ + _%hd141317141621%_ + _%tl141316141623%_ + _%e141321141626%_ + _%hd141320141629%_ + _%tl141319141631%_ + _%e141324141634%_ + _%hd141323141637%_ + _%tl141322141639%_)) + (_%__kont143569143570%_)))) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont143569143570%_)))) + (_%__kont143569143570%_)))) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)))) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont143569143570%_)))) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)))) + (_%__kont143569143570%_)))) + (_%__kont143569143570%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop141295141559%_ + _%target141292141554%_ + '())))) + (_%__match143584143585%_ + (lambda (_%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_) + (letrec ((_%loop141247141819%_ + (lambda (_%hd141245141822%_ + _%arg141251141824%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142102142679%_)) - (let ((_%e142105142684%_ + _%hd141245141822%_)) + (let ((_%e141248141827%_ (let () (declare (not safe)) (gx#stx-e - _%hd142102142679%_)))) - (let ((_%lp-tl142107142689%_ + _%hd141245141822%_)))) + (let ((_%lp-tl141250141832%_ (let () (declare (not safe)) - (##cdr _%e142105142684%_))) - (_%lp-hd142106142687%_ + (##cdr _%e141248141827%_))) + (_%lp-hd141249141830%_ (let () (declare (not safe)) - (##car _%e142105142684%_)))) - (let ((__tmp145729 - (cons _%lp-hd142106142687%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg142108142681%_))) - (declare (not safe)) - (_%loop142104142676%_ _%lp-tl142107142689%_ __tmp145729)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%arg142109142692%_ - (reverse _%arg142108142681%_))) + (##car _%e141248141827%_)))) + (_%loop141247141819%_ + _%lp-tl141250141832%_ + (cons _%lp-hd141249141830%_ + _%arg141251141824%_)))) + (let ((_%arg141252141835%_ + (reverse _%arg141251141824%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142098142668%_)) - (let ((_%e142112142695%_ + _%tl141241141811%_)) + (let ((_%e141255141838%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl142098142668%_)))) - (let ((_%tl142110142700%_ + (gx#stx-e _%tl141241141811%_)))) + (let ((_%tl141253141843%_ (let () (declare (not safe)) - (##cdr _%e142112142695%_))) - (_%hd142111142698%_ + (##cdr _%e141255141838%_))) + (_%hd141254141841%_ (let () (declare (not safe)) - (##car _%e142112142695%_)))) + (##car _%e141255141838%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142111142698%_)) - (let ((_%e142115142703%_ + (gx#stx-pair? _%hd141254141841%_)) + (let ((_%e141258141846%_ (let () (declare (not safe)) - (gx#stx-e _%hd142111142698%_)))) - (let ((_%tl142113142708%_ + (gx#stx-e _%hd141254141841%_)))) + (let ((_%tl141256141851%_ (let () (declare (not safe)) - (##cdr _%e142115142703%_))) - (_%hd142114142706%_ + (##cdr _%e141258141846%_))) + (_%hd141257141849%_ (let () (declare (not safe)) - (##car _%e142115142703%_)))) + (##car _%e141258141846%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142114142706%_)) + (gx#identifier? _%hd141257141849%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd142114142706%_)) + (gx#stx-eq? '%#call _%hd141257141849%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142113142708%_)) - (let ((_%e142118142711%_ + (gx#stx-pair? _%tl141256141851%_)) + (let ((_%e141261141854%_ (let () (declare (not safe)) (gx#stx-e - _%tl142113142708%_)))) - (let ((_%tl142116142716%_ + _%tl141256141851%_)))) + (let ((_%tl141259141859%_ (let () (declare (not safe)) - (##cdr _%e142118142711%_))) - (_%hd142117142714%_ + (##cdr _%e141261141854%_))) + (_%hd141260141857%_ (let () (declare (not safe)) - (##car _%e142118142711%_)))) + (##car _%e141261141854%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142117142714%_)) - (let ((_%e142121142719%_ + _%hd141260141857%_)) + (let ((_%e141264141862%_ (let () (declare (not safe)) (gx#stx-e - _%hd142117142714%_)))) - (let ((_%tl142119142724%_ + _%hd141260141857%_)))) + (let ((_%tl141262141867%_ (let () (declare (not safe)) - (##cdr _%e142121142719%_))) - (_%hd142120142722%_ + (##cdr _%e141264141862%_))) + (_%hd141263141865%_ (let () (declare (not safe)) - (##car _%e142121142719%_)))) + (##car _%e141264141862%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142120142722%_)) + _%hd141263141865%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142120142722%_)) + _%hd141263141865%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl142119142724%_)) - (let ((_%e142124142727%_ + (gx#stx-pair? _%tl141262141867%_)) + (let ((_%e141267141870%_ (let () (declare (not safe)) - (gx#stx-e _%tl142119142724%_)))) - (let ((_%tl142122142732%_ + (gx#stx-e _%tl141262141867%_)))) + (let ((_%tl141265141875%_ (let () (declare (not safe)) - (##cdr _%e142124142727%_))) - (_%hd142123142730%_ + (##cdr _%e141267141870%_))) + (_%hd141266141873%_ (let () (declare (not safe)) - (##car _%e142124142727%_)))) + (##car _%e141267141870%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142122142732%_)) + (gx#stx-null? _%tl141265141875%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl142116142716%_)) - (let ((_%__splice144416144417%_ + (gx#stx-pair/null? _%tl141259141859%_)) + (let ((_%__splice143559143560%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl142116142716%_ + _%tl141259141859%_ '0)))) - (let ((_%tl142127142737%_ + (let ((_%tl141270141880%_ (let () (declare (not safe)) (##vector-ref - _%__splice144416144417%_ + _%__splice143559143560%_ '1))) - (_%target142125142735%_ + (_%target141268141878%_ (let () (declare (not safe)) (##vector-ref - _%__splice144416144417%_ + _%__splice143559143560%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142127142737%_)) - (letrec ((_%loop142128142740%_ - (lambda (_%hd142126142743%_ - _%xarg142132142745%_) + _%tl141270141880%_)) + (letrec ((_%loop141271141883%_ + (lambda (_%hd141269141886%_ + _%xarg141275141888%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142126142743%_)) - (let ((_%e142129142748%_ + _%hd141269141886%_)) + (let ((_%e141272141891%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd142126142743%_)))) - (let ((_%lp-tl142131142753%_ + (gx#stx-e _%hd141269141886%_)))) + (let ((_%lp-tl141274141896%_ (let () (declare (not safe)) - (##cdr _%e142129142748%_))) - (_%lp-hd142130142751%_ + (##cdr _%e141272141891%_))) + (_%lp-hd141273141894%_ (let () (declare (not safe)) - (##car _%e142129142748%_)))) + (##car _%e141272141891%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd142130142751%_)) - (let ((_%e142136142756%_ + (gx#stx-pair? _%lp-hd141273141894%_)) + (let ((_%e141279141899%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd142130142751%_)))) - (let ((_%tl142134142761%_ + (gx#stx-e _%lp-hd141273141894%_)))) + (let ((_%tl141277141904%_ (let () (declare (not safe)) - (##cdr _%e142136142756%_))) - (_%hd142135142759%_ + (##cdr _%e141279141899%_))) + (_%hd141278141902%_ (let () (declare (not safe)) - (##car _%e142136142756%_)))) + (##car _%e141279141899%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142135142759%_)) + (gx#identifier? _%hd141278141902%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142135142759%_)) + _%hd141278141902%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142134142761%_)) - (let ((_%e142139142764%_ + _%tl141277141904%_)) + (let ((_%e141282141907%_ (let () (declare (not safe)) (gx#stx-e - _%tl142134142761%_)))) - (let ((_%tl142137142769%_ + _%tl141277141904%_)))) + (let ((_%tl141280141912%_ (let () (declare (not safe)) - (##cdr _%e142139142764%_))) - (_%hd142138142767%_ + (##cdr _%e141282141907%_))) + (_%hd141281141910%_ (let () (declare (not safe)) - (##car _%e142139142764%_)))) + (##car _%e141282141907%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142137142769%_)) - (let ((__tmp145730 - (cons _%hd142138142767%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%xarg142132142745%_))) - (declare (not safe)) - (_%loop142128142740%_ _%lp-tl142131142753%_ __tmp145730)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)))) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)))) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)))) - (let ((_%xarg142133142772%_ - (reverse _%xarg142132142745%_))) + _%tl141280141912%_)) + (_%loop141271141883%_ + _%lp-tl141274141896%_ + (cons _%hd141281141910%_ + _%xarg141275141888%_)) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)))) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)))) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)))) + (let ((_%xarg141276141915%_ + (reverse _%xarg141275141888%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142110142700%_)) - (let ((_%L142775%_ _%xarg142133142772%_) - (_%L142776%_ _%hd142123142730%_) - (_%L142777%_ _%arg142109142692%_)) - (if (and (let ((__tmp145731 - (let ((__tmp145732 - (lambda (_%g142805142808%_ - _%g142806142810%_) - (cons _%g142805142808%_ - _%g142806142810%_)))) + (gx#stx-null? _%tl141253141843%_)) + (let ((_%L141918%_ _%xarg141276141915%_) + (_%L141919%_ _%hd141266141873%_) + (_%L141920%_ _%arg141252141835%_)) + (if (and (let ((__tmp144850 + (let ((__tmp144851 + (lambda (_%g141948141951%_ + _%g141949141953%_) + (cons _%g141948141951%_ + _%g141949141953%_)))) (declare (not safe)) (__foldr1 - __tmp145732 + __tmp144851 '() - _%L142777%_)))) + _%L141920%_)))) (declare (not safe)) - (gx#identifier-list? __tmp145731)) - (let ((__tmp145735 - (length (let ((__tmp145736 - (lambda (_%g142812142815%_ + (gx#identifier-list? __tmp144850)) + (let ((__tmp144854 + (length (let ((__tmp144855 + (lambda (_%g141955141958%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142813142817%_) - (cons _%g142812142815%_ _%g142813142817%_)))) + _%g141956141960%_) + (cons _%g141955141958%_ _%g141956141960%_)))) (declare (not safe)) - (__foldr1 __tmp145736 '() _%L142777%_)))) + (__foldr1 __tmp144855 '() _%L141920%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp145733 - (length (let ((__tmp145734 - (lambda (_%g142819142822%_ + (__tmp144852 + (length (let ((__tmp144853 + (lambda (_%g141962141965%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142820142824%_) - (cons _%g142819142822%_ _%g142820142824%_)))) + _%g141963141967%_) + (cons _%g141962141965%_ _%g141963141967%_)))) (declare (not safe)) - (__foldr1 __tmp145734 '() _%L142775%_))))) + (__foldr1 __tmp144853 '() _%L141918%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp145735 __tmp145733)) - (let ((__tmp145739 - (let ((__tmp145740 - (lambda (_%g142826142829%_ - _%g142827142831%_) - (cons _%g142826142829%_ - _%g142827142831%_)))) + (##fx= __tmp144854 __tmp144852)) + (let ((__tmp144858 + (let ((__tmp144859 + (lambda (_%g141969141972%_ + _%g141970141974%_) + (cons _%g141969141972%_ + _%g141970141974%_)))) (declare (not safe)) (__foldr1 - __tmp145740 + __tmp144859 '() - _%L142777%_))) - (__tmp145737 - (let ((__tmp145738 - (lambda (_%g142833142836%_ - _%g142834142838%_) - (cons _%g142833142836%_ - _%g142834142838%_)))) + _%L141920%_))) + (__tmp144856 + (let ((__tmp144857 + (lambda (_%g141976141979%_ + _%g141977141981%_) + (cons _%g141976141979%_ + _%g141977141981%_)))) (declare (not safe)) (__foldr1 - __tmp145738 + __tmp144857 '() - _%L142775%_)))) + _%L141918%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp145739 - __tmp145737)) - (let ((__tmp145741 - (let ((__tmp145744 - (lambda (_%g142840142842%_) - (let () - (declare (not safe)) - (gx#free-identifier=? - _%g142840142842%_ - _%L142776%_)))) - (__tmp145742 - (let ((__tmp145743 - (lambda (_%g142844142847%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142845142849%_) - (cons _%g142844142847%_ _%g142845142849%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + __tmp144858 + __tmp144856)) + (not (let ((__tmp144862 + (lambda (_%g141983141985%_) + (let () (declare (not safe)) - (__foldr1 - __tmp145743 - '() - _%L142777%_)))) - (declare (not safe)) - (__find __tmp145744 - __tmp145742)))) - (declare (not safe)) - (not __tmp145741))) - (_%__kont144412144413%_ - _%L142775%_ - _%L142776%_ - _%L142777%_) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_))) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop142128142740%_ - _%target142125142735%_ - '()))) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)))) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)))) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)))) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)))) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)))) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_))))))) + (gx#free-identifier=? + _%g141983141985%_ + _%L141919%_)))) + (__tmp144860 + (let ((__tmp144861 + (lambda (_%g141987141990%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g141988141992%_) + (cons _%g141987141990%_ _%g141988141992%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop142104142676%_ - _%target142101142671%_ - '())))))) + (declare (not safe)) + (__foldr1 + __tmp144861 + '() + _%L141920%_)))) + (declare (not safe)) + (__find __tmp144862 __tmp144860)))) + (_%__kont143555143556%_ + _%L141918%_ + _%L141919%_ + _%L141920%_) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_))) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop141271141883%_ + _%target141268141878%_ + '())) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)))) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)))) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)))) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)))) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)))) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop141247141819%_ + _%target141244141814%_ + '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx144410144411%_)) - (let ((_%e142100142663%_ + (gx#stx-pair? _%__stx143553143554%_)) + (let ((_%e141243141806%_ (let () (declare (not safe)) - (gx#stx-e _%__stx144410144411%_)))) - (let ((_%tl142098142668%_ + (gx#stx-e _%__stx143553143554%_)))) + (let ((_%tl141241141811%_ (let () (declare (not safe)) - (##cdr _%e142100142663%_))) - (_%hd142099142666%_ + (##cdr _%e141243141806%_))) + (_%hd141242141809%_ (let () (declare (not safe)) - (##car _%e142100142663%_)))) + (##car _%e141243141806%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd142099142666%_)) - (let ((_%__splice144414144415%_ + (gx#stx-pair/null? _%hd141242141809%_)) + (let ((_%__splice143557143558%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd142099142666%_ + _%hd141242141809%_ '0)))) - (let ((_%tl142103142673%_ + (let ((_%tl141246141816%_ (let () (declare (not safe)) (##vector-ref - _%__splice144414144415%_ + _%__splice143557143558%_ '1))) - (_%target142101142671%_ + (_%target141244141814%_ (let () (declare (not safe)) (##vector-ref - _%__splice144414144415%_ + _%__splice143557143558%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142103142673%_)) - (_%__match144441144442%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_) - (_%__match144453144454%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%__splice144414144415%_ - _%target142101142671%_ - _%tl142103142673%_)))) + _%tl141246141816%_)) + (_%__match143584143585%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_) + (_%__match143596143597%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%__splice143557143558%_ + _%target141244141814%_ + _%tl141246141816%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142098142668%_)) - (let ((_%e142215142270%_ + (gx#stx-pair? _%tl141241141811%_)) + (let ((_%e141358141413%_ (let () (declare (not safe)) (gx#stx-e - _%tl142098142668%_)))) - (let ((_%tl142213142275%_ + _%tl141241141811%_)))) + (let ((_%tl141356141418%_ (let () (declare (not safe)) - (##cdr _%e142215142270%_))) - (_%hd142214142273%_ + (##cdr _%e141358141413%_))) + (_%hd141357141416%_ (let () (declare (not safe)) - (##car _%e142215142270%_)))) + (##car _%e141358141413%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142214142273%_)) - (let ((_%e142218142278%_ + _%hd141357141416%_)) + (let ((_%e141361141421%_ (let () (declare (not safe)) (gx#stx-e - _%hd142214142273%_)))) - (let ((_%tl142216142283%_ + _%hd141357141416%_)))) + (let ((_%tl141359141426%_ (let () (declare (not safe)) - (##cdr _%e142218142278%_))) - (_%hd142217142281%_ + (##cdr _%e141361141421%_))) + (_%hd141360141424%_ (let () (declare (not safe)) - (##car _%e142218142278%_)))) + (##car _%e141361141421%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142217142281%_)) + _%hd141360141424%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd142217142281%_)) + (gx#stx-eq? '%#call _%hd141360141424%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142216142283%_)) - (let ((_%e142221142286%_ + (gx#stx-pair? _%tl141359141426%_)) + (let ((_%e141364141429%_ (let () (declare (not safe)) - (gx#stx-e _%tl142216142283%_)))) - (let ((_%tl142219142291%_ + (gx#stx-e _%tl141359141426%_)))) + (let ((_%tl141362141434%_ (let () (declare (not safe)) - (##cdr _%e142221142286%_))) - (_%hd142220142289%_ + (##cdr _%e141364141429%_))) + (_%hd141363141432%_ (let () (declare (not safe)) - (##car _%e142221142286%_)))) + (##car _%e141364141429%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142220142289%_)) - (let ((_%e142224142294%_ + (gx#stx-pair? _%hd141363141432%_)) + (let ((_%e141367141437%_ (let () (declare (not safe)) - (gx#stx-e _%hd142220142289%_)))) - (let ((_%tl142222142299%_ + (gx#stx-e _%hd141363141432%_)))) + (let ((_%tl141365141442%_ (let () (declare (not safe)) - (##cdr _%e142224142294%_))) - (_%hd142223142297%_ + (##cdr _%e141367141437%_))) + (_%hd141366141440%_ (let () (declare (not safe)) - (##car _%e142224142294%_)))) + (##car _%e141367141437%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142223142297%_)) + _%hd141366141440%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142223142297%_)) + _%hd141366141440%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142222142299%_)) - (let ((_%e142227142302%_ + _%tl141365141442%_)) + (let ((_%e141370141445%_ (let () (declare (not safe)) (gx#stx-e - _%tl142222142299%_)))) - (let ((_%tl142225142307%_ + _%tl141365141442%_)))) + (let ((_%tl141368141450%_ (let () (declare (not safe)) - (##cdr _%e142227142302%_))) - (_%hd142226142305%_ + (##cdr _%e141370141445%_))) + (_%hd141369141448%_ (let () (declare (not safe)) - (##car _%e142227142302%_)))) + (##car _%e141370141445%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142225142307%_)) + _%tl141368141450%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl142219142291%_)) - (let ((_%e142230142310%_ + (gx#stx-pair? _%tl141362141434%_)) + (let ((_%e141373141453%_ (let () (declare (not safe)) - (gx#stx-e _%tl142219142291%_)))) - (let ((_%tl142228142315%_ + (gx#stx-e _%tl141362141434%_)))) + (let ((_%tl141371141458%_ (let () (declare (not safe)) - (##cdr _%e142230142310%_))) - (_%hd142229142313%_ + (##cdr _%e141373141453%_))) + (_%hd141372141456%_ (let () (declare (not safe)) - (##car _%e142230142310%_)))) + (##car _%e141373141453%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142229142313%_)) - (let ((_%e142233142318%_ + (gx#stx-pair? _%hd141372141456%_)) + (let ((_%e141376141461%_ (let () (declare (not safe)) - (gx#stx-e _%hd142229142313%_)))) - (let ((_%tl142231142323%_ + (gx#stx-e _%hd141372141456%_)))) + (let ((_%tl141374141466%_ (let () (declare (not safe)) - (##cdr _%e142233142318%_))) - (_%hd142232142321%_ + (##cdr _%e141376141461%_))) + (_%hd141375141464%_ (let () (declare (not safe)) - (##car _%e142233142318%_)))) + (##car _%e141376141461%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142232142321%_)) + (gx#identifier? _%hd141375141464%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142232142321%_)) + _%hd141375141464%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142231142323%_)) - (let ((_%e142236142326%_ + _%tl141374141466%_)) + (let ((_%e141379141469%_ (let () (declare (not safe)) (gx#stx-e - _%tl142231142323%_)))) - (let ((_%tl142234142331%_ + _%tl141374141466%_)))) + (let ((_%tl141377141474%_ (let () (declare (not safe)) - (##cdr _%e142236142326%_))) - (_%hd142235142329%_ + (##cdr _%e141379141469%_))) + (_%hd141378141472%_ (let () (declare (not safe)) - (##car _%e142236142326%_)))) + (##car _%e141379141469%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142234142331%_)) + _%tl141377141474%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142228142315%_)) - (let ((_%e142239142334%_ + _%tl141371141458%_)) + (let ((_%e141382141477%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl142228142315%_)))) - (let ((_%tl142237142339%_ + (gx#stx-e _%tl141371141458%_)))) + (let ((_%tl141380141482%_ (let () (declare (not safe)) - (##cdr _%e142239142334%_))) - (_%hd142238142337%_ + (##cdr _%e141382141477%_))) + (_%hd141381141480%_ (let () (declare (not safe)) - (##car _%e142239142334%_)))) + (##car _%e141382141477%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142238142337%_)) - (let ((_%e142242142342%_ + (gx#stx-pair? _%hd141381141480%_)) + (let ((_%e141385141485%_ (let () (declare (not safe)) - (gx#stx-e _%hd142238142337%_)))) - (let ((_%tl142240142347%_ + (gx#stx-e _%hd141381141480%_)))) + (let ((_%tl141383141490%_ (let () (declare (not safe)) - (##cdr _%e142242142342%_))) - (_%hd142241142345%_ + (##cdr _%e141385141485%_))) + (_%hd141384141488%_ (let () (declare (not safe)) - (##car _%e142242142342%_)))) + (##car _%e141385141485%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142241142345%_)) + (gx#identifier? _%hd141384141488%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd142241142345%_)) + (gx#stx-eq? '%#ref _%hd141384141488%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142240142347%_)) - (let ((_%e142245142350%_ + (gx#stx-pair? _%tl141383141490%_)) + (let ((_%e141388141493%_ (let () (declare (not safe)) (gx#stx-e - _%tl142240142347%_)))) - (let ((_%tl142243142355%_ + _%tl141383141490%_)))) + (let ((_%tl141386141498%_ (let () (declare (not safe)) - (##cdr _%e142245142350%_))) - (_%hd142244142353%_ + (##cdr _%e141388141493%_))) + (_%hd141387141496%_ (let () (declare (not safe)) - (##car _%e142245142350%_)))) + (##car _%e141388141493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142243142355%_)) + _%tl141386141498%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142237142339%_)) + _%tl141380141482%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142213142275%_)) - (_%__match144551144552%_ - _%e142100142663%_ - _%hd142099142666%_ - _%tl142098142668%_ - _%e142215142270%_ - _%hd142214142273%_ - _%tl142213142275%_ - _%e142218142278%_ - _%hd142217142281%_ - _%tl142216142283%_ - _%e142221142286%_ - _%hd142220142289%_ - _%tl142219142291%_ - _%e142224142294%_ - _%hd142223142297%_ - _%tl142222142299%_ - _%e142227142302%_ - _%hd142226142305%_ - _%tl142225142307%_ - _%e142230142310%_ - _%hd142229142313%_ - _%tl142228142315%_ - _%e142233142318%_ - _%hd142232142321%_ - _%tl142231142323%_ - _%e142236142326%_ - _%hd142235142329%_ - _%tl142234142331%_ - _%e142239142334%_ - _%hd142238142337%_ - _%tl142237142339%_ - _%e142242142342%_ - _%hd142241142345%_ - _%tl142240142347%_ - _%e142245142350%_ - _%hd142244142353%_ - _%tl142243142355%_) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)))) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)))) - (_%__kont144426144427%_)))) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont144426144427%_)) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)))) - (_%__kont144426144427%_)))) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont144426144427%_)) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)))) - (_%__kont144426144427%_)))) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)) - (_%__kont144426144427%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont144426144427%_)))) - (_%__kont144426144427%_))))) - (_%__kont144426144427%_))))))) - (_%dispatch-case-e141398%_ - (lambda (_%hd141549%_ _%body141550%_) - (let* ((_%form141552%_ - (cons _%hd141549%_ (cons _%body141550%_ '()))) - (_%__stx144554144555%_ _%form141552%_) - (_%g141556141680%_ + _%tl141356141418%_)) + (_%__match143694143695%_ + _%e141243141806%_ + _%hd141242141809%_ + _%tl141241141811%_ + _%e141358141413%_ + _%hd141357141416%_ + _%tl141356141418%_ + _%e141361141421%_ + _%hd141360141424%_ + _%tl141359141426%_ + _%e141364141429%_ + _%hd141363141432%_ + _%tl141362141434%_ + _%e141367141437%_ + _%hd141366141440%_ + _%tl141365141442%_ + _%e141370141445%_ + _%hd141369141448%_ + _%tl141368141450%_ + _%e141373141453%_ + _%hd141372141456%_ + _%tl141371141458%_ + _%e141376141461%_ + _%hd141375141464%_ + _%tl141374141466%_ + _%e141379141469%_ + _%hd141378141472%_ + _%tl141377141474%_ + _%e141382141477%_ + _%hd141381141480%_ + _%tl141380141482%_ + _%e141385141485%_ + _%hd141384141488%_ + _%tl141383141490%_ + _%e141388141493%_ + _%hd141387141496%_ + _%tl141386141498%_) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)))) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)))) + (_%__kont143569143570%_)))) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont143569143570%_)) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)))) + (_%__kont143569143570%_)))) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont143569143570%_)) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)))) + (_%__kont143569143570%_)))) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)) + (_%__kont143569143570%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont143569143570%_)))) + (_%__kont143569143570%_))))) + (_%__kont143569143570%_))))))) + (_%dispatch-case-e140541%_ + (lambda (_%hd140692%_ _%body140693%_) + (let* ((_%form140695%_ + (cons _%hd140692%_ (cons _%body140693%_ '()))) + (_%__stx143697143698%_ _%form140695%_) + (_%g140699140823%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx144554144555%_))))) - (let ((_%__kont144556144557%_ - (lambda (_%L142051%_ _%L142052%_ _%L142053%_) - (let ((__tmp145745 + _%__stx143697143698%_))))) + (let ((_%__kont143699143700%_ + (lambda (_%L141194%_ _%L141195%_ _%L141196%_) + (let ((__tmp144863 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L142052%_ '())))) + (cons _%L141195%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self141394%_ - __tmp145745)))) - (_%__kont144562144563%_ - (lambda (_%L141899%_ - _%L141900%_ - _%L141901%_ - _%L141902%_) - (let ((__tmp145746 + _%self140537%_ + __tmp144863)))) + (_%__kont143705143706%_ + (lambda (_%L141042%_ + _%L141043%_ + _%L141044%_ + _%L141045%_) + (let ((__tmp144864 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L141899%_ '())))) + (cons _%L141042%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self141394%_ - __tmp145746)))) - (_%__kont144566144567%_ - (lambda (_%L141765%_ _%L141766%_ _%L141767%_) - (let ((__tmp145747 + _%self140537%_ + __tmp144864)))) + (_%__kont143709143710%_ + (lambda (_%L140908%_ _%L140909%_ _%L140910%_) + (let ((__tmp144865 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L141765%_ '())))) + (cons _%L140908%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self141394%_ - __tmp145747))))) - (let* ((_%__match144663144664%_ - (lambda (_%e141648141685%_ - _%hd141647141688%_ - _%tl141646141690%_ - _%e141651141693%_ - _%hd141650141696%_ - _%tl141649141698%_ - _%e141654141701%_ - _%hd141653141704%_ - _%tl141652141706%_ - _%e141657141709%_ - _%hd141656141712%_ - _%tl141655141714%_ - _%e141660141717%_ - _%hd141659141720%_ - _%tl141658141722%_ - _%e141663141725%_ - _%hd141662141728%_ - _%tl141661141730%_ - _%e141666141733%_ - _%hd141665141736%_ - _%tl141664141738%_ - _%e141669141741%_ - _%hd141668141744%_ - _%tl141667141746%_ - _%e141672141749%_ - _%hd141671141752%_ - _%tl141670141754%_) + _%self140537%_ + __tmp144865))))) + (let* ((_%__match143806143807%_ + (lambda (_%e140791140828%_ + _%hd140790140831%_ + _%tl140789140833%_ + _%e140794140836%_ + _%hd140793140839%_ + _%tl140792140841%_ + _%e140797140844%_ + _%hd140796140847%_ + _%tl140795140849%_ + _%e140800140852%_ + _%hd140799140855%_ + _%tl140798140857%_ + _%e140803140860%_ + _%hd140802140863%_ + _%tl140801140865%_ + _%e140806140868%_ + _%hd140805140871%_ + _%tl140804140873%_ + _%e140809140876%_ + _%hd140808140879%_ + _%tl140807140881%_ + _%e140812140884%_ + _%hd140811140887%_ + _%tl140810140889%_ + _%e140815140892%_ + _%hd140814140895%_ + _%tl140813140897%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141664141738%_)) - (let ((_%e141675141757%_ + (gx#stx-pair? _%tl140807140881%_)) + (let ((_%e140818140900%_ (let () (declare (not safe)) - (gx#stx-e _%tl141664141738%_)))) - (let ((_%tl141673141762%_ + (gx#stx-e _%tl140807140881%_)))) + (let ((_%tl140816140905%_ (let () (declare (not safe)) - (##cdr _%e141675141757%_))) - (_%hd141674141760%_ + (##cdr _%e140818140900%_))) + (_%hd140817140903%_ (let () (declare (not safe)) - (##car _%e141675141757%_)))) + (##car _%e140818140900%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141673141762%_)) + _%tl140816140905%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141649141698%_)) - (_%__kont144566144567%_ - _%hd141671141752%_ - _%hd141662141728%_ - _%hd141647141688%_) + _%tl140792140841%_)) + (_%__kont143709143710%_ + _%hd140814140895%_ + _%hd140805140871%_ + _%hd140790140831%_) (let () (declare (not safe)) - (_%g141556141680%_))) + (_%g140699140823%_))) (let () (declare (not safe)) - (_%g141556141680%_))))) + (_%g140699140823%_))))) (let () (declare (not safe)) - (_%g141556141680%_))))) - (_%__match144593144594%_ - (lambda (_%e141609141803%_ - _%hd141608141806%_ - _%tl141607141808%_ - _%__splice144564144565%_ - _%target141610141811%_ - _%tl141612141813%_) - (letrec ((_%loop141613141816%_ - (lambda (_%hd141611141819%_ - _%arg141617141821%_) + (_%g140699140823%_))))) + (_%__match143736143737%_ + (lambda (_%e140752140946%_ + _%hd140751140949%_ + _%tl140750140951%_ + _%__splice143707143708%_ + _%target140753140954%_ + _%tl140755140956%_) + (letrec ((_%loop140756140959%_ + (lambda (_%hd140754140962%_ + _%arg140760140964%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd141611141819%_)) - (let ((_%e141614141824%_ + _%hd140754140962%_)) + (let ((_%e140757140967%_ (let () (declare (not safe)) (gx#stx-e - _%hd141611141819%_)))) - (let ((_%lp-tl141616141829%_ + _%hd140754140962%_)))) + (let ((_%lp-tl140759140972%_ (let () (declare (not safe)) - (##cdr _%e141614141824%_))) - (_%lp-hd141615141827%_ + (##cdr _%e140757140967%_))) + (_%lp-hd140758140970%_ (let () (declare (not safe)) - (##car _%e141614141824%_)))) - (let ((__tmp145748 - (cons _%lp-hd141615141827%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg141617141821%_))) - (declare (not safe)) - (_%loop141613141816%_ _%lp-tl141616141829%_ __tmp145748)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%arg141618141832%_ - (reverse _%arg141617141821%_))) + (##car _%e140757140967%_)))) + (_%loop140756140959%_ + _%lp-tl140759140972%_ + (cons _%lp-hd140758140970%_ + _%arg140760140964%_)))) + (let ((_%arg140761140975%_ + (reverse _%arg140760140964%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141607141808%_)) - (let ((_%e141621141835%_ + _%tl140750140951%_)) + (let ((_%e140764140978%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl141607141808%_)))) - (let ((_%tl141619141840%_ + (gx#stx-e _%tl140750140951%_)))) + (let ((_%tl140762140983%_ (let () (declare (not safe)) - (##cdr _%e141621141835%_))) - (_%hd141620141838%_ + (##cdr _%e140764140978%_))) + (_%hd140763140981%_ (let () (declare (not safe)) - (##car _%e141621141835%_)))) + (##car _%e140764140978%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141620141838%_)) - (let ((_%e141624141843%_ + (gx#stx-pair? _%hd140763140981%_)) + (let ((_%e140767140986%_ (let () (declare (not safe)) - (gx#stx-e _%hd141620141838%_)))) - (let ((_%tl141622141848%_ + (gx#stx-e _%hd140763140981%_)))) + (let ((_%tl140765140991%_ (let () (declare (not safe)) - (##cdr _%e141624141843%_))) - (_%hd141623141846%_ + (##cdr _%e140767140986%_))) + (_%hd140766140989%_ (let () (declare (not safe)) - (##car _%e141624141843%_)))) + (##car _%e140767140986%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141623141846%_)) + (gx#identifier? _%hd140766140989%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd141623141846%_)) + (gx#stx-eq? '%#call _%hd140766140989%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141622141848%_)) - (let ((_%e141627141851%_ + (gx#stx-pair? _%tl140765140991%_)) + (let ((_%e140770140994%_ (let () (declare (not safe)) (gx#stx-e - _%tl141622141848%_)))) - (let ((_%tl141625141856%_ + _%tl140765140991%_)))) + (let ((_%tl140768140999%_ (let () (declare (not safe)) - (##cdr _%e141627141851%_))) - (_%hd141626141854%_ + (##cdr _%e140770140994%_))) + (_%hd140769140997%_ (let () (declare (not safe)) - (##car _%e141627141851%_)))) + (##car _%e140770140994%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd141626141854%_)) - (let ((_%e141630141859%_ + _%hd140769140997%_)) + (let ((_%e140773141002%_ (let () (declare (not safe)) (gx#stx-e - _%hd141626141854%_)))) - (let ((_%tl141628141864%_ + _%hd140769140997%_)))) + (let ((_%tl140771141007%_ (let () (declare (not safe)) - (##cdr _%e141630141859%_))) - (_%hd141629141862%_ + (##cdr _%e140773141002%_))) + (_%hd140772141005%_ (let () (declare (not safe)) - (##car _%e141630141859%_)))) + (##car _%e140773141002%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd141629141862%_)) + _%hd140772141005%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141629141862%_)) + _%hd140772141005%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl141628141864%_)) - (let ((_%e141633141867%_ + (gx#stx-pair? _%tl140771141007%_)) + (let ((_%e140776141010%_ (let () (declare (not safe)) - (gx#stx-e _%tl141628141864%_)))) - (let ((_%tl141631141872%_ + (gx#stx-e _%tl140771141007%_)))) + (let ((_%tl140774141015%_ (let () (declare (not safe)) - (##cdr _%e141633141867%_))) - (_%hd141632141870%_ + (##cdr _%e140776141010%_))) + (_%hd140775141013%_ (let () (declare (not safe)) - (##car _%e141633141867%_)))) + (##car _%e140776141010%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141631141872%_)) + (gx#stx-null? _%tl140774141015%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141625141856%_)) - (let ((_%e141636141875%_ + (gx#stx-pair? _%tl140768140999%_)) + (let ((_%e140779141018%_ (let () (declare (not safe)) - (gx#stx-e _%tl141625141856%_)))) - (let ((_%tl141634141880%_ + (gx#stx-e _%tl140768140999%_)))) + (let ((_%tl140777141023%_ (let () (declare (not safe)) - (##cdr _%e141636141875%_))) - (_%hd141635141878%_ + (##cdr _%e140779141018%_))) + (_%hd140778141021%_ (let () (declare (not safe)) - (##car _%e141636141875%_)))) + (##car _%e140779141018%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd141635141878%_)) - (let ((_%e141639141883%_ + _%hd140778141021%_)) + (let ((_%e140782141026%_ (let () (declare (not safe)) (gx#stx-e - _%hd141635141878%_)))) - (let ((_%tl141637141888%_ + _%hd140778141021%_)))) + (let ((_%tl140780141031%_ (let () (declare (not safe)) - (##cdr _%e141639141883%_))) - (_%hd141638141886%_ + (##cdr _%e140782141026%_))) + (_%hd140781141029%_ (let () (declare (not safe)) - (##car _%e141639141883%_)))) + (##car _%e140782141026%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd141638141886%_)) + _%hd140781141029%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141638141886%_)) + _%hd140781141029%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141637141888%_)) - (let ((_%e141642141891%_ + _%tl140780141031%_)) + (let ((_%e140785141034%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl141637141888%_)))) - (let ((_%tl141640141896%_ + (gx#stx-e _%tl140780141031%_)))) + (let ((_%tl140783141039%_ (let () (declare (not safe)) - (##cdr _%e141642141891%_))) - (_%hd141641141894%_ + (##cdr _%e140785141034%_))) + (_%hd140784141037%_ (let () (declare (not safe)) - (##car _%e141642141891%_)))) + (##car _%e140785141034%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141640141896%_)) + (gx#stx-null? _%tl140783141039%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141619141840%_)) - (_%__kont144562144563%_ - _%hd141641141894%_ - _%hd141632141870%_ - _%tl141612141813%_ - _%arg141618141832%_) - (_%__match144663144664%_ - _%e141609141803%_ - _%hd141608141806%_ - _%tl141607141808%_ - _%e141621141835%_ - _%hd141620141838%_ - _%tl141619141840%_ - _%e141624141843%_ - _%hd141623141846%_ - _%tl141622141848%_ - _%e141627141851%_ - _%hd141626141854%_ - _%tl141625141856%_ - _%e141630141859%_ - _%hd141629141862%_ - _%tl141628141864%_ - _%e141633141867%_ - _%hd141632141870%_ - _%tl141631141872%_ - _%e141636141875%_ - _%hd141635141878%_ - _%tl141634141880%_ - _%e141639141883%_ - _%hd141638141886%_ - _%tl141637141888%_ - _%e141642141891%_ - _%hd141641141894%_ - _%tl141640141896%_)) + (gx#stx-null? _%tl140762140983%_)) + (_%__kont143705143706%_ + _%hd140784141037%_ + _%hd140775141013%_ + _%tl140755140956%_ + _%arg140761140975%_) + (_%__match143806143807%_ + _%e140752140946%_ + _%hd140751140949%_ + _%tl140750140951%_ + _%e140764140978%_ + _%hd140763140981%_ + _%tl140762140983%_ + _%e140767140986%_ + _%hd140766140989%_ + _%tl140765140991%_ + _%e140770140994%_ + _%hd140769140997%_ + _%tl140768140999%_ + _%e140773141002%_ + _%hd140772141005%_ + _%tl140771141007%_ + _%e140776141010%_ + _%hd140775141013%_ + _%tl140774141015%_ + _%e140779141018%_ + _%hd140778141021%_ + _%tl140777141023%_ + _%e140782141026%_ + _%hd140781141029%_ + _%tl140780141031%_ + _%e140785141034%_ + _%hd140784141037%_ + _%tl140783141039%_)) (let () (declare (not safe)) - (_%g141556141680%_))))) - (let () (declare (not safe)) (_%g141556141680%_))) - (let () (declare (not safe)) (_%g141556141680%_))) + (_%g140699140823%_))))) + (let () (declare (not safe)) (_%g140699140823%_))) + (let () (declare (not safe)) (_%g140699140823%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g141556141680%_))))) + (_%g140699140823%_))))) (let () (declare (not safe)) - (_%g141556141680%_))))) + (_%g140699140823%_))))) (let () (declare (not safe)) - (_%g141556141680%_))) + (_%g140699140823%_))) (let () (declare (not safe)) - (_%g141556141680%_))))) - (let () (declare (not safe)) (_%g141556141680%_))) - (let () (declare (not safe)) (_%g141556141680%_))) - (let () (declare (not safe)) (_%g141556141680%_))))) + (_%g140699140823%_))))) + (let () (declare (not safe)) (_%g140699140823%_))) + (let () (declare (not safe)) (_%g140699140823%_))) + (let () (declare (not safe)) (_%g140699140823%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g141556141680%_))))) + (_%g140699140823%_))))) (let () (declare (not safe)) - (_%g141556141680%_))) + (_%g140699140823%_))) (let () (declare (not safe)) - (_%g141556141680%_))) + (_%g140699140823%_))) (let () (declare (not safe)) - (_%g141556141680%_))))) - (let () (declare (not safe)) (_%g141556141680%_))))) - (let () (declare (not safe)) (_%g141556141680%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop141613141816%_ - _%target141610141811%_ - '()))))) - (_%__match144581144582%_ - (lambda (_%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_) - (letrec ((_%loop141567141952%_ - (lambda (_%hd141565141955%_ - _%arg141571141957%_) + (_%g140699140823%_))))) + (let () (declare (not safe)) (_%g140699140823%_))))) + (let () (declare (not safe)) (_%g140699140823%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop140756140959%_ + _%target140753140954%_ + '())))) + (_%__match143724143725%_ + (lambda (_%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_) + (letrec ((_%loop140710141095%_ + (lambda (_%hd140708141098%_ + _%arg140714141100%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd141565141955%_)) - (let ((_%e141568141960%_ + _%hd140708141098%_)) + (let ((_%e140711141103%_ (let () (declare (not safe)) (gx#stx-e - _%hd141565141955%_)))) - (let ((_%lp-tl141570141965%_ + _%hd140708141098%_)))) + (let ((_%lp-tl140713141108%_ (let () (declare (not safe)) - (##cdr _%e141568141960%_))) - (_%lp-hd141569141963%_ + (##cdr _%e140711141103%_))) + (_%lp-hd140712141106%_ (let () (declare (not safe)) - (##car _%e141568141960%_)))) - (let ((__tmp145749 - (cons _%lp-hd141569141963%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg141571141957%_))) - (declare (not safe)) - (_%loop141567141952%_ _%lp-tl141570141965%_ __tmp145749)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%arg141572141968%_ - (reverse _%arg141571141957%_))) + (##car _%e140711141103%_)))) + (_%loop140710141095%_ + _%lp-tl140713141108%_ + (cons _%lp-hd140712141106%_ + _%arg140714141100%_)))) + (let ((_%arg140715141111%_ + (reverse _%arg140714141100%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141561141944%_)) - (let ((_%e141575141971%_ + _%tl140704141087%_)) + (let ((_%e140718141114%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl141561141944%_)))) - (let ((_%tl141573141976%_ + (gx#stx-e _%tl140704141087%_)))) + (let ((_%tl140716141119%_ (let () (declare (not safe)) - (##cdr _%e141575141971%_))) - (_%hd141574141974%_ + (##cdr _%e140718141114%_))) + (_%hd140717141117%_ (let () (declare (not safe)) - (##car _%e141575141971%_)))) + (##car _%e140718141114%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141574141974%_)) - (let ((_%e141578141979%_ + (gx#stx-pair? _%hd140717141117%_)) + (let ((_%e140721141122%_ (let () (declare (not safe)) - (gx#stx-e _%hd141574141974%_)))) - (let ((_%tl141576141984%_ + (gx#stx-e _%hd140717141117%_)))) + (let ((_%tl140719141127%_ (let () (declare (not safe)) - (##cdr _%e141578141979%_))) - (_%hd141577141982%_ + (##cdr _%e140721141122%_))) + (_%hd140720141125%_ (let () (declare (not safe)) - (##car _%e141578141979%_)))) + (##car _%e140721141122%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141577141982%_)) + (gx#identifier? _%hd140720141125%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd141577141982%_)) + (gx#stx-eq? '%#call _%hd140720141125%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141576141984%_)) - (let ((_%e141581141987%_ + (gx#stx-pair? _%tl140719141127%_)) + (let ((_%e140724141130%_ (let () (declare (not safe)) (gx#stx-e - _%tl141576141984%_)))) - (let ((_%tl141579141992%_ + _%tl140719141127%_)))) + (let ((_%tl140722141135%_ (let () (declare (not safe)) - (##cdr _%e141581141987%_))) - (_%hd141580141990%_ + (##cdr _%e140724141130%_))) + (_%hd140723141133%_ (let () (declare (not safe)) - (##car _%e141581141987%_)))) + (##car _%e140724141130%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd141580141990%_)) - (let ((_%e141584141995%_ + _%hd140723141133%_)) + (let ((_%e140727141138%_ (let () (declare (not safe)) (gx#stx-e - _%hd141580141990%_)))) - (let ((_%tl141582142000%_ + _%hd140723141133%_)))) + (let ((_%tl140725141143%_ (let () (declare (not safe)) - (##cdr _%e141584141995%_))) - (_%hd141583141998%_ + (##cdr _%e140727141138%_))) + (_%hd140726141141%_ (let () (declare (not safe)) - (##car _%e141584141995%_)))) + (##car _%e140727141138%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd141583141998%_)) + _%hd140726141141%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141583141998%_)) + _%hd140726141141%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl141582142000%_)) - (let ((_%e141587142003%_ + (gx#stx-pair? _%tl140725141143%_)) + (let ((_%e140730141146%_ (let () (declare (not safe)) - (gx#stx-e _%tl141582142000%_)))) - (let ((_%tl141585142008%_ + (gx#stx-e _%tl140725141143%_)))) + (let ((_%tl140728141151%_ (let () (declare (not safe)) - (##cdr _%e141587142003%_))) - (_%hd141586142006%_ + (##cdr _%e140730141146%_))) + (_%hd140729141149%_ (let () (declare (not safe)) - (##car _%e141587142003%_)))) + (##car _%e140730141146%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141585142008%_)) + (gx#stx-null? _%tl140728141151%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl141579141992%_)) - (let ((_%__splice144560144561%_ + (gx#stx-pair/null? _%tl140722141135%_)) + (let ((_%__splice143703143704%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl141579141992%_ + _%tl140722141135%_ '0)))) - (let ((_%tl141590142013%_ + (let ((_%tl140733141156%_ (let () (declare (not safe)) (##vector-ref - _%__splice144560144561%_ + _%__splice143703143704%_ '1))) - (_%target141588142011%_ + (_%target140731141154%_ (let () (declare (not safe)) (##vector-ref - _%__splice144560144561%_ + _%__splice143703143704%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141590142013%_)) - (letrec ((_%loop141591142016%_ - (lambda (_%hd141589142019%_ - _%xarg141595142021%_) + _%tl140733141156%_)) + (letrec ((_%loop140734141159%_ + (lambda (_%hd140732141162%_ + _%xarg140738141164%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd141589142019%_)) - (let ((_%e141592142024%_ + _%hd140732141162%_)) + (let ((_%e140735141167%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd141589142019%_)))) - (let ((_%lp-tl141594142029%_ + (gx#stx-e _%hd140732141162%_)))) + (let ((_%lp-tl140737141172%_ (let () (declare (not safe)) - (##cdr _%e141592142024%_))) - (_%lp-hd141593142027%_ + (##cdr _%e140735141167%_))) + (_%lp-hd140736141170%_ (let () (declare (not safe)) - (##car _%e141592142024%_)))) + (##car _%e140735141167%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd141593142027%_)) - (let ((_%e141599142032%_ + (gx#stx-pair? _%lp-hd140736141170%_)) + (let ((_%e140742141175%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd141593142027%_)))) - (let ((_%tl141597142037%_ + (gx#stx-e _%lp-hd140736141170%_)))) + (let ((_%tl140740141180%_ (let () (declare (not safe)) - (##cdr _%e141599142032%_))) - (_%hd141598142035%_ + (##cdr _%e140742141175%_))) + (_%hd140741141178%_ (let () (declare (not safe)) - (##car _%e141599142032%_)))) + (##car _%e140742141175%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141598142035%_)) + (gx#identifier? _%hd140741141178%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141598142035%_)) + _%hd140741141178%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141597142037%_)) - (let ((_%e141602142040%_ + _%tl140740141180%_)) + (let ((_%e140745141183%_ (let () (declare (not safe)) (gx#stx-e - _%tl141597142037%_)))) - (let ((_%tl141600142045%_ + _%tl140740141180%_)))) + (let ((_%tl140743141188%_ (let () (declare (not safe)) - (##cdr _%e141602142040%_))) - (_%hd141601142043%_ + (##cdr _%e140745141183%_))) + (_%hd140744141186%_ (let () (declare (not safe)) - (##car _%e141602142040%_)))) + (##car _%e140745141183%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141600142045%_)) - (let ((__tmp145750 - (cons _%hd141601142043%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%xarg141595142021%_))) - (declare (not safe)) - (_%loop141591142016%_ _%lp-tl141594142029%_ __tmp145750)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)))) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)))) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)))) - (let ((_%xarg141596142048%_ - (reverse _%xarg141595142021%_))) + _%tl140743141188%_)) + (_%loop140734141159%_ + _%lp-tl140737141172%_ + (cons _%hd140744141186%_ + _%xarg140738141164%_)) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)))) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)))) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)))) + (let ((_%xarg140739141191%_ + (reverse _%xarg140738141164%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141573141976%_)) - (_%__kont144556144557%_ - _%xarg141596142048%_ - _%hd141586142006%_ - _%arg141572141968%_) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop141591142016%_ - _%target141588142011%_ - '()))) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)))) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)))) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)))) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)))) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)))) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop141567141952%_ - _%target141564141947%_ - '())))))) + (gx#stx-null? _%tl140716141119%_)) + (_%__kont143699143700%_ + _%xarg140739141191%_ + _%hd140729141149%_ + _%arg140715141111%_) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop140734141159%_ + _%target140731141154%_ + '())) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)))) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)))) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)))) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)))) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)))) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop140710141095%_ + _%target140707141090%_ + '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx144554144555%_)) - (let ((_%e141563141939%_ + (gx#stx-pair? _%__stx143697143698%_)) + (let ((_%e140706141082%_ (let () (declare (not safe)) - (gx#stx-e _%__stx144554144555%_)))) - (let ((_%tl141561141944%_ + (gx#stx-e _%__stx143697143698%_)))) + (let ((_%tl140704141087%_ (let () (declare (not safe)) - (##cdr _%e141563141939%_))) - (_%hd141562141942%_ + (##cdr _%e140706141082%_))) + (_%hd140705141085%_ (let () (declare (not safe)) - (##car _%e141563141939%_)))) + (##car _%e140706141082%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd141562141942%_)) - (let ((_%__splice144558144559%_ + (gx#stx-pair/null? _%hd140705141085%_)) + (let ((_%__splice143701143702%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd141562141942%_ + _%hd140705141085%_ '0)))) - (let ((_%tl141566141949%_ + (let ((_%tl140709141092%_ (let () (declare (not safe)) (##vector-ref - _%__splice144558144559%_ + _%__splice143701143702%_ '1))) - (_%target141564141947%_ + (_%target140707141090%_ (let () (declare (not safe)) (##vector-ref - _%__splice144558144559%_ + _%__splice143701143702%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141566141949%_)) - (_%__match144581144582%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_) - (_%__match144593144594%_ - _%e141563141939%_ - _%hd141562141942%_ - _%tl141561141944%_ - _%__splice144558144559%_ - _%target141564141947%_ - _%tl141566141949%_)))) + _%tl140709141092%_)) + (_%__match143724143725%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_) + (_%__match143736143737%_ + _%e140706141082%_ + _%hd140705141085%_ + _%tl140704141087%_ + _%__splice143701143702%_ + _%target140707141090%_ + _%tl140709141092%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141561141944%_)) - (let ((_%e141651141693%_ + (gx#stx-pair? _%tl140704141087%_)) + (let ((_%e140794140836%_ (let () (declare (not safe)) (gx#stx-e - _%tl141561141944%_)))) - (let ((_%tl141649141698%_ + _%tl140704141087%_)))) + (let ((_%tl140792140841%_ (let () (declare (not safe)) - (##cdr _%e141651141693%_))) - (_%hd141650141696%_ + (##cdr _%e140794140836%_))) + (_%hd140793140839%_ (let () (declare (not safe)) - (##car _%e141651141693%_)))) + (##car _%e140794140836%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd141650141696%_)) - (let ((_%e141654141701%_ + _%hd140793140839%_)) + (let ((_%e140797140844%_ (let () (declare (not safe)) (gx#stx-e - _%hd141650141696%_)))) - (let ((_%tl141652141706%_ + _%hd140793140839%_)))) + (let ((_%tl140795140849%_ (let () (declare (not safe)) - (##cdr _%e141654141701%_))) - (_%hd141653141704%_ + (##cdr _%e140797140844%_))) + (_%hd140796140847%_ (let () (declare (not safe)) - (##car _%e141654141701%_)))) + (##car _%e140797140844%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd141653141704%_)) + _%hd140796140847%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd141653141704%_)) + (gx#stx-eq? '%#call _%hd140796140847%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141652141706%_)) - (let ((_%e141657141709%_ + (gx#stx-pair? _%tl140795140849%_)) + (let ((_%e140800140852%_ (let () (declare (not safe)) - (gx#stx-e _%tl141652141706%_)))) - (let ((_%tl141655141714%_ + (gx#stx-e _%tl140795140849%_)))) + (let ((_%tl140798140857%_ (let () (declare (not safe)) - (##cdr _%e141657141709%_))) - (_%hd141656141712%_ + (##cdr _%e140800140852%_))) + (_%hd140799140855%_ (let () (declare (not safe)) - (##car _%e141657141709%_)))) + (##car _%e140800140852%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141656141712%_)) - (let ((_%e141660141717%_ + (gx#stx-pair? _%hd140799140855%_)) + (let ((_%e140803140860%_ (let () (declare (not safe)) - (gx#stx-e _%hd141656141712%_)))) - (let ((_%tl141658141722%_ + (gx#stx-e _%hd140799140855%_)))) + (let ((_%tl140801140865%_ (let () (declare (not safe)) - (##cdr _%e141660141717%_))) - (_%hd141659141720%_ + (##cdr _%e140803140860%_))) + (_%hd140802140863%_ (let () (declare (not safe)) - (##car _%e141660141717%_)))) + (##car _%e140803140860%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd141659141720%_)) + _%hd140802140863%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141659141720%_)) + _%hd140802140863%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141658141722%_)) - (let ((_%e141663141725%_ + _%tl140801140865%_)) + (let ((_%e140806140868%_ (let () (declare (not safe)) (gx#stx-e - _%tl141658141722%_)))) - (let ((_%tl141661141730%_ + _%tl140801140865%_)))) + (let ((_%tl140804140873%_ (let () (declare (not safe)) - (##cdr _%e141663141725%_))) - (_%hd141662141728%_ + (##cdr _%e140806140868%_))) + (_%hd140805140871%_ (let () (declare (not safe)) - (##car _%e141663141725%_)))) + (##car _%e140806140868%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141661141730%_)) + _%tl140804140873%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl141655141714%_)) - (let ((_%e141666141733%_ + (gx#stx-pair? _%tl140798140857%_)) + (let ((_%e140809140876%_ (let () (declare (not safe)) - (gx#stx-e _%tl141655141714%_)))) - (let ((_%tl141664141738%_ + (gx#stx-e _%tl140798140857%_)))) + (let ((_%tl140807140881%_ (let () (declare (not safe)) - (##cdr _%e141666141733%_))) - (_%hd141665141736%_ + (##cdr _%e140809140876%_))) + (_%hd140808140879%_ (let () (declare (not safe)) - (##car _%e141666141733%_)))) + (##car _%e140809140876%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141665141736%_)) - (let ((_%e141669141741%_ + (gx#stx-pair? _%hd140808140879%_)) + (let ((_%e140812140884%_ (let () (declare (not safe)) - (gx#stx-e _%hd141665141736%_)))) - (let ((_%tl141667141746%_ + (gx#stx-e _%hd140808140879%_)))) + (let ((_%tl140810140889%_ (let () (declare (not safe)) - (##cdr _%e141669141741%_))) - (_%hd141668141744%_ + (##cdr _%e140812140884%_))) + (_%hd140811140887%_ (let () (declare (not safe)) - (##car _%e141669141741%_)))) + (##car _%e140812140884%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141668141744%_)) + (gx#identifier? _%hd140811140887%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141668141744%_)) + _%hd140811140887%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141667141746%_)) - (let ((_%e141672141749%_ + _%tl140810140889%_)) + (let ((_%e140815140892%_ (let () (declare (not safe)) (gx#stx-e - _%tl141667141746%_)))) - (let ((_%tl141670141754%_ + _%tl140810140889%_)))) + (let ((_%tl140813140897%_ (let () (declare (not safe)) - (##cdr _%e141672141749%_))) - (_%hd141671141752%_ + (##cdr _%e140815140892%_))) + (_%hd140814140895%_ (let () (declare (not safe)) - (##car _%e141672141749%_)))) + (##car _%e140815140892%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141670141754%_)) + _%tl140813140897%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141664141738%_)) - (let ((_%e141675141757%_ + _%tl140807140881%_)) + (let ((_%e140818140900%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl141664141738%_)))) - (let ((_%tl141673141762%_ + (gx#stx-e _%tl140807140881%_)))) + (let ((_%tl140816140905%_ (let () (declare (not safe)) - (##cdr _%e141675141757%_))) - (_%hd141674141760%_ + (##cdr _%e140818140900%_))) + (_%hd140817140903%_ (let () (declare (not safe)) - (##car _%e141675141757%_)))) + (##car _%e140818140900%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141673141762%_)) + (gx#stx-null? _%tl140816140905%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141649141698%_)) - (_%__kont144566144567%_ - _%hd141671141752%_ - _%hd141662141728%_ - _%hd141562141942%_) + (gx#stx-null? _%tl140792140841%_)) + (_%__kont143709143710%_ + _%hd140814140895%_ + _%hd140805140871%_ + _%hd140705141085%_) (let () (declare (not safe)) - (_%g141556141680%_))) - (let () (declare (not safe)) (_%g141556141680%_))))) - (let () (declare (not safe)) (_%g141556141680%_))) - (let () (declare (not safe)) (_%g141556141680%_))))) + (_%g140699140823%_))) + (let () (declare (not safe)) (_%g140699140823%_))))) + (let () (declare (not safe)) (_%g140699140823%_))) + (let () (declare (not safe)) (_%g140699140823%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g141556141680%_))) + (_%g140699140823%_))) (let () (declare (not safe)) - (_%g141556141680%_))) + (_%g140699140823%_))) (let () (declare (not safe)) - (_%g141556141680%_))))) + (_%g140699140823%_))))) (let () (declare (not safe)) - (_%g141556141680%_))))) - (let () (declare (not safe)) (_%g141556141680%_))) - (let () (declare (not safe)) (_%g141556141680%_))))) + (_%g140699140823%_))))) + (let () (declare (not safe)) (_%g140699140823%_))) + (let () (declare (not safe)) (_%g140699140823%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g141556141680%_))) + (_%g140699140823%_))) (let () (declare (not safe)) - (_%g141556141680%_))) + (_%g140699140823%_))) (let () (declare (not safe)) - (_%g141556141680%_))))) + (_%g140699140823%_))))) (let () (declare (not safe)) - (_%g141556141680%_))))) - (let () (declare (not safe)) (_%g141556141680%_))) - (let () (declare (not safe)) (_%g141556141680%_))) - (let () (declare (not safe)) (_%g141556141680%_))))) + (_%g140699140823%_))))) + (let () (declare (not safe)) (_%g140699140823%_))) + (let () (declare (not safe)) (_%g140699140823%_))) + (let () (declare (not safe)) (_%g140699140823%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g141556141680%_))))) + (_%g140699140823%_))))) (let () (declare (not safe)) - (_%g141556141680%_)))))) + (_%g140699140823%_)))))) (let () (declare (not safe)) - (_%g141556141680%_)))))))) - (_%generate1141399%_ - (lambda (_%args141534%_ - _%arglen141535%_ - _%hd141536%_ - _%body141537%_) - (let* ((_%len141539%_ + (_%g140699140823%_)))))))) + (_%generate1140542%_ + (lambda (_%args140677%_ + _%arglen140678%_ + _%hd140679%_ + _%body140680%_) + (let* ((_%len140682%_ (let () (declare (not safe)) - (gx#stx-length _%hd141536%_))) - (_%condition141544%_ - (if (let () - (declare (not safe)) - (gx#stx-list? _%hd141536%_)) - (let () - (if (let () - (declare (not safe)) - (gxc#current-compile-decls-unsafe?)) - (cons '##fx= - (cons _%arglen141535%_ - (cons _%len141539%_ '()))) - (cons 'let - (cons '() - (cons '(declare (not safe)) - (cons (cons '##fx= -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen141535%_ (cons _%len141539%_ '()))) - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (> _%len141539%_ '0) - (let () - (if (let () - (declare (not safe)) - (gxc#current-compile-decls-unsafe?)) - (cons '##fx>= - (cons _%arglen141535%_ - (cons _%len141539%_ - '()))) - (cons 'let - (cons '() - (cons '(declare - (not safe)) - (cons (cons '##fx>= -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen141535%_ - (cons _%len141539%_ '()))) - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () '#t)))) - (_%dispatch141546%_ + (gx#stx-length _%hd140679%_))) + (_%condition140687%_ (if (let () (declare (not safe)) - (_%dispatch-case?141397%_ - _%hd141536%_ - _%body141537%_)) - (let () - (declare (not safe)) - (_%dispatch-case-e141398%_ - _%hd141536%_ - _%body141537%_)) - (let () - (declare (not safe)) - (gxc#generate-runtime-lambda-form - _%self141394%_ - _%hd141536%_ - _%body141537%_))))) - (cons _%condition141544%_ + (gx#stx-list? _%hd140679%_)) + (if (gxc#current-compile-decls-unsafe?) + (cons '##fx= + (cons _%arglen140678%_ + (cons _%len140682%_ '()))) + (cons 'let + (cons '() + (cons '(declare (not safe)) + (cons (cons '##fx= +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%arglen140678%_ (cons _%len140682%_ '()))) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (> _%len140682%_ '0) + (if (gxc#current-compile-decls-unsafe?) + (cons '##fx>= + (cons _%arglen140678%_ + (cons _%len140682%_ '()))) + (cons 'let + (cons '() + (cons '(declare (not safe)) + (cons (cons '##fx>= +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%arglen140678%_ (cons _%len140682%_ '()))) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '#t))) + (_%dispatch140689%_ + (if (_%dispatch-case?140540%_ + _%hd140679%_ + _%body140680%_) + (_%dispatch-case-e140541%_ + _%hd140679%_ + _%body140680%_) + (gxc#generate-runtime-lambda-form + _%self140537%_ + _%hd140679%_ + _%body140680%_)))) + (cons _%condition140687%_ (cons (cons 'apply - (cons _%dispatch141546%_ - (cons _%args141534%_ '()))) + (cons _%dispatch140689%_ + (cons _%args140677%_ '()))) '())))))) - (let* ((_%g141401141429%_ - (lambda (_%g141402141426%_) + (let* ((_%g140544140572%_ + (lambda (_%g140545140569%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141402141426%_)))) - (_%g141400141531%_ - (lambda (_%g141402141432%_) + _%g140545140569%_)))) + (_%g140543140674%_ + (lambda (_%g140545140575%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141402141432%_)) - (let ((_%e141407141434%_ + (gx#stx-pair? _%g140545140575%_)) + (let ((_%e140550140577%_ (let () (declare (not safe)) - (gx#stx-e _%g141402141432%_)))) - (let ((_%hd141406141437%_ + (gx#stx-e _%g140545140575%_)))) + (let ((_%hd140549140580%_ (let () (declare (not safe)) - (##car _%e141407141434%_))) - (_%tl141405141439%_ + (##car _%e140550140577%_))) + (_%tl140548140582%_ (let () (declare (not safe)) - (##cdr _%e141407141434%_)))) + (##cdr _%e140550140577%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl141405141439%_)) - (let ((_g145751_ + (gx#stx-pair/null? _%tl140548140582%_)) + (let ((_g144866_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl141405141439%_ + _%tl140548140582%_ '0)))) (begin - (let ((_g145752_ + (let ((_g144867_ (let () (declare (not safe)) - (if (##values? _g145751_) - (##vector-length _g145751_) + (if (##values? _g144866_) + (##vector-length _g144866_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g145752_ 2))) + (##fx= _g144867_ 2))) (error "Context expects 2 values" - _g145752_))) - (let ((_%target141408141442%_ + _g144867_))) + (let ((_%target140551140585%_ (let () (declare (not safe)) - (##vector-ref _g145751_ 0))) - (_%tl141410141444%_ + (##vector-ref _g144866_ 0))) + (_%tl140553140587%_ (let () (declare (not safe)) - (##vector-ref _g145751_ 1)))) + (##vector-ref _g144866_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141410141444%_)) - (letrec ((_%loop141411141447%_ - (lambda (_%hd141409141450%_ - _%body141415141452%_ - _%hd141416141454%_) + (gx#stx-null? _%tl140553140587%_)) + (letrec ((_%loop140554140590%_ + (lambda (_%hd140552140593%_ + _%body140558140595%_ + _%hd140559140597%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd141409141450%_)) - (let ((_%e141412141457%_ + _%hd140552140593%_)) + (let ((_%e140555140600%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd141409141450%_)))) - (let ((_%lp-hd141413141460%_ + (gx#stx-e _%hd140552140593%_)))) + (let ((_%lp-hd140556140603%_ (let () (declare (not safe)) - (##car _%e141412141457%_))) - (_%lp-tl141414141462%_ + (##car _%e140555140600%_))) + (_%lp-tl140557140605%_ (let () (declare (not safe)) - (##cdr _%e141412141457%_)))) + (##cdr _%e140555140600%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd141413141460%_)) - (let ((_%e141421141465%_ + (gx#stx-pair? _%lp-hd140556140603%_)) + (let ((_%e140564140608%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd141413141460%_)))) - (let ((_%hd141420141468%_ + (gx#stx-e _%lp-hd140556140603%_)))) + (let ((_%hd140563140611%_ (let () (declare (not safe)) - (##car _%e141421141465%_))) - (_%tl141419141470%_ + (##car _%e140564140608%_))) + (_%tl140562140613%_ (let () (declare (not safe)) - (##cdr _%e141421141465%_)))) + (##cdr _%e140564140608%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141419141470%_)) - (let ((_%e141424141473%_ + (gx#stx-pair? _%tl140562140613%_)) + (let ((_%e140567140616%_ (let () (declare (not safe)) - (gx#stx-e _%tl141419141470%_)))) - (let ((_%hd141423141476%_ + (gx#stx-e _%tl140562140613%_)))) + (let ((_%hd140566140619%_ (let () (declare (not safe)) - (##car _%e141424141473%_))) - (_%tl141422141478%_ + (##car _%e140567140616%_))) + (_%tl140565140621%_ (let () (declare (not safe)) - (##cdr _%e141424141473%_)))) + (##cdr _%e140567140616%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141422141478%_)) - (let ((__tmp145754 - (cons _%hd141423141476%_ - _%body141415141452%_)) - (__tmp145753 - (cons _%hd141420141468%_ - _%hd141416141454%_))) - (declare (not safe)) - (_%loop141411141447%_ - _%lp-tl141414141462%_ - __tmp145754 - __tmp145753)) - (let () - (declare (not safe)) - (_%g141401141429%_ - _%g141402141432%_))))) - (let () - (declare (not safe)) - (_%g141401141429%_ _%g141402141432%_))))) - (let () - (declare (not safe)) - (_%g141401141429%_ _%g141402141432%_))))) - (let ((_%body141417141481%_ (reverse _%body141415141452%_)) - (_%hd141418141483%_ (reverse _%hd141416141454%_))) - ((lambda (_%L141486%_ _%L141487%_) - (let ((_%args141506%_ + (gx#stx-null? _%tl140565140621%_)) + (_%loop140554140590%_ + _%lp-tl140557140605%_ + (cons _%hd140566140619%_ + _%body140558140595%_) + (cons _%hd140563140611%_ + _%hd140559140597%_)) + (_%g140544140572%_ + _%g140545140575%_)))) + (_%g140544140572%_ _%g140545140575%_)))) + (_%g140544140572%_ _%g140545140575%_)))) + (let ((_%body140560140624%_ (reverse _%body140558140595%_)) + (_%hd140561140626%_ (reverse _%hd140559140597%_))) + ((lambda (_%L140629%_ _%L140630%_) + (let ((_%args140649%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%arglen141507%_ + (_%arglen140650%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%name141508%_ - (let ((_%$e141503%_ - (let ((__tmp145755 + (_%name140651%_ + (let ((_%$e140646%_ + (let ((__tmp144868 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) - (hash-get __tmp145755 _%stx141395%_)))) - (if _%$e141503%_ - _%$e141503%_ + (hash-get __tmp144868 _%stx140538%_)))) + (if _%$e140646%_ + _%$e140646%_ ''case-lambda-dispatch)))) (cons 'lambda - (cons _%args141506%_ + (cons _%args140649%_ (cons (cons 'let - (cons (cons (cons _%arglen141507%_ + (cons (cons (cons _%arglen140650%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (if (let () - (declare (not safe)) - (gxc#current-compile-decls-unsafe?)) - (cons '##length (cons _%args141506%_ '())) + (cons (if (gxc#current-compile-decls-unsafe?) + (cons '##length (cons _%args140649%_ '())) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%args141506%_ '())) + (cons _%args140649%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons 'cond - (let ((__tmp145759 + (let ((__tmp144872 (cons (cons 'else (cons (cons '##raise-wrong-number-of-arguments-exception - (cons _%name141508%_ - (cons _%args141506%_ + (cons _%name140651%_ + (cons _%args140649%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (__tmp145756 - (map (lambda (_%g141509141512%_ - _%g141510141514%_) - (let () - (declare (not safe)) - (_%generate1141399%_ - _%args141506%_ - _%arglen141507%_ - _%g141509141512%_ - _%g141510141514%_))) - (let ((__tmp145757 - (lambda (_%g141516141519%_ - _%g141517141521%_) - (cons _%g141516141519%_ - _%g141517141521%_)))) + (__tmp144869 + (map (lambda (_%g140652140655%_ + _%g140653140657%_) + (_%generate1140542%_ + _%args140649%_ + _%arglen140650%_ + _%g140652140655%_ + _%g140653140657%_)) + (let ((__tmp144870 + (lambda (_%g140659140662%_ + _%g140660140664%_) + (cons _%g140659140662%_ + _%g140660140664%_)))) (declare (not safe)) (__foldr1 - __tmp145757 + __tmp144870 '() - _%L141487%_)) - (let ((__tmp145758 - (lambda (_%g141523141526%_ - _%g141524141528%_) - (cons _%g141523141526%_ - _%g141524141528%_)))) + _%L140630%_)) + (let ((__tmp144871 + (lambda (_%g140666140669%_ + _%g140667140671%_) + (cons _%g140666140669%_ + _%g140667140671%_)))) (declare (not safe)) (__foldr1 - __tmp145758 + __tmp144871 '() - _%L141486%_))))) + _%L140629%_))))) (declare (not safe)) - (__foldr1 cons __tmp145759 __tmp145756))) + (__foldr1 cons __tmp144872 __tmp144869))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body141417141481%_ - _%hd141418141483%_)))))) + _%body140560140624%_ + _%hd140561140626%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop141411141447%_ - _%target141408141442%_ - '() - '()))) - (let () - (declare (not safe)) - (_%g141401141429%_ - _%g141402141432%_)))))) - (let () - (declare (not safe)) - (_%g141401141429%_ _%g141402141432%_))))) - (let () - (declare (not safe)) - (_%g141401141429%_ _%g141402141432%_)))))) - (declare (not safe)) - (_%g141400141531%_ _%stx141395%_))))) + (_%loop140554140590%_ + _%target140551140585%_ + '() + '())) + (_%g140544140572%_ + _%g140545140575%_))))) + (_%g140544140572%_ _%g140545140575%_)))) + (_%g140544140572%_ _%g140545140575%_))))) + (_%g140543140674%_ _%stx140538%_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_%self140624%_ _%stx140625%_ _%compiled-body?140626%_) - (letrec ((_%generate-simple140628%_ - (lambda (_%hd141379%_ _%body141380%_) - (let ((__tmp145760 - (let ((__tmp145761 - (let () - (declare (not safe)) - (gxc#generate-runtime-simple-let - _%self140624%_ - 'let - _%hd141379%_ - _%body141380%_ - _%compiled-body?140626%_)))) - (declare (not safe)) - (_%coalesce-let140630%_ __tmp145761)))) - (declare (not safe)) - (_%coalesce-boolean140629%_ __tmp145760)))) - (_%coalesce-boolean140629%_ - (lambda (_%code141240%_) + (lambda (_%self139774%_ _%stx139775%_ _%compiled-body?139776%_) + (letrec ((_%generate-simple139778%_ + (lambda (_%hd140522%_ _%body140523%_) + (_%coalesce-boolean139779%_ + (_%simplify-let139780%_ + (gxc#generate-runtime-simple-let + _%self139774%_ + 'let + _%hd140522%_ + _%body140523%_ + _%compiled-body?139776%_))))) + (_%coalesce-boolean139779%_ + (lambda (_%code140383%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (let* ((_%code141241141267%_ _%code141240%_) - (_%else141243141275%_ - (lambda () _%code141240%_)) - (_%K141245141312%_ - (lambda (_%expr2141278%_ - _%expr1141279%_ - _%id141280%_) - (let* ((_%expr2141281141289%_ - _%expr2141278%_) - (_%else141283141297%_ + (let* ((_%code140384140410%_ _%code140383%_) + (_%else140386140418%_ + (lambda () _%code140383%_)) + (_%K140388140455%_ + (lambda (_%expr2140421%_ + _%expr1140422%_ + _%id140423%_) + (let* ((_%expr2140424140432%_ + _%expr2140421%_) + (_%else140426140440%_ (lambda () (cons 'or - (cons _%expr1141279%_ - (cons _%expr2141278%_ + (cons _%expr1140422%_ + (cons _%expr2140421%_ '()))))) - (_%K141285141302%_ - (lambda (_%exprs141300%_) + (_%K140428140445%_ + (lambda (_%exprs140443%_) (cons 'or - (cons _%expr1141279%_ - _%exprs141300%_))))) + (cons _%expr1140422%_ + _%exprs140443%_))))) (if (let () (declare (not safe)) - (##pair? _%expr2141281141289%_)) - (let ((_%hd141286141305%_ + (##pair? _%expr2140424140432%_)) + (let ((_%hd140429140448%_ (let () (declare (not safe)) - (##car _%expr2141281141289%_))) - (_%tl141287141307%_ + (##car _%expr2140424140432%_))) + (_%tl140430140450%_ (let () (declare (not safe)) - (##cdr _%expr2141281141289%_)))) + (##cdr _%expr2140424140432%_)))) (if (let () (declare (not safe)) - (##eq? _%hd141286141305%_ 'or)) - (let ((_%exprs141310%_ - _%tl141287141307%_)) - (declare (not safe)) - (_%K141285141302%_ - _%exprs141310%_)) - (let () - (declare (not safe)) - (_%else141283141297%_)))) - (let () - (declare (not safe)) - (_%else141283141297%_))))))) + (##eq? _%hd140429140448%_ 'or)) + (let ((_%exprs140453%_ + _%tl140430140450%_)) + (_%K140428140445%_ + _%exprs140453%_)) + (_%else140426140440%_))) + (_%else140426140440%_)))))) (if (let () (declare (not safe)) - (##pair? _%code141241141267%_)) - (let ((_%hd141246141315%_ + (##pair? _%code140384140410%_)) + (let ((_%hd140389140458%_ (let () (declare (not safe)) - (##car _%code141241141267%_))) - (_%tl141247141317%_ + (##car _%code140384140410%_))) + (_%tl140390140460%_ (let () (declare (not safe)) - (##cdr _%code141241141267%_)))) + (##cdr _%code140384140410%_)))) (if (let () (declare (not safe)) - (##eq? _%hd141246141315%_ 'let)) + (##eq? _%hd140389140458%_ 'let)) (if (let () (declare (not safe)) - (##pair? _%tl141247141317%_)) - (let ((_%hd141248141320%_ + (##pair? _%tl140390140460%_)) + (let ((_%hd140391140463%_ (let () (declare (not safe)) - (##car _%tl141247141317%_))) - (_%tl141249141322%_ + (##car _%tl140390140460%_))) + (_%tl140392140465%_ (let () (declare (not safe)) - (##cdr _%tl141247141317%_)))) + (##cdr _%tl140390140460%_)))) (if (let () (declare (not safe)) - (##pair? _%hd141248141320%_)) - (let ((_%hd141260141325%_ + (##pair? _%hd140391140463%_)) + (let ((_%hd140403140468%_ (let () (declare (not safe)) - (##car _%hd141248141320%_))) - (_%tl141261141327%_ + (##car _%hd140391140463%_))) + (_%tl140404140470%_ (let () (declare (not safe)) - (##cdr _%hd141248141320%_)))) + (##cdr _%hd140391140463%_)))) (if (let () (declare (not safe)) - (##pair? _%hd141260141325%_)) - (let ((_%hd141262141330%_ + (##pair? _%hd140403140468%_)) + (let ((_%hd140405140473%_ (let () (declare (not safe)) - (##car _%hd141260141325%_))) - (_%tl141263141332%_ + (##car _%hd140403140468%_))) + (_%tl140406140475%_ (let () (declare (not safe)) - (##cdr _%hd141260141325%_)))) - (let ((_%id141335%_ - _%hd141262141330%_)) + (##cdr _%hd140403140468%_)))) + (let ((_%id140478%_ + _%hd140405140473%_)) (if (let () (declare (not safe)) - (##pair? _%tl141263141332%_)) - (let ((_%hd141264141337%_ + (##pair? _%tl140406140475%_)) + (let ((_%hd140407140480%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%tl141263141332%_))) - (_%tl141265141339%_ + (##car _%tl140406140475%_))) + (_%tl140408140482%_ (let () (declare (not safe)) - (##cdr _%tl141263141332%_)))) - (let ((_%expr1141342%_ _%hd141264141337%_)) + (##cdr _%tl140406140475%_)))) + (let ((_%expr1140485%_ _%hd140407140480%_)) (if (let () (declare (not safe)) - (##null? _%tl141265141339%_)) + (##null? _%tl140408140482%_)) (if (let () (declare (not safe)) - (##null? _%tl141261141327%_)) + (##null? _%tl140404140470%_)) (if (let () (declare (not safe)) - (##pair? _%tl141249141322%_)) - (let ((_%hd141250141344%_ + (##pair? _%tl140392140465%_)) + (let ((_%hd140393140487%_ (let () (declare (not safe)) - (##car _%tl141249141322%_))) - (_%tl141251141346%_ + (##car _%tl140392140465%_))) + (_%tl140394140489%_ (let () (declare (not safe)) - (##cdr _%tl141249141322%_)))) + (##cdr _%tl140392140465%_)))) (if (let () (declare (not safe)) - (##pair? _%hd141250141344%_)) - (let ((_%hd141252141349%_ + (##pair? _%hd140393140487%_)) + (let ((_%hd140395140492%_ (let () (declare (not safe)) - (##car _%hd141250141344%_))) - (_%tl141253141351%_ + (##car _%hd140393140487%_))) + (_%tl140396140494%_ (let () (declare (not safe)) - (##cdr _%hd141250141344%_)))) + (##cdr _%hd140393140487%_)))) (if (let () (declare (not safe)) - (##eq? _%hd141252141349%_ + (##eq? _%hd140395140492%_ 'if)) (if (let () (declare (not safe)) - (##pair? _%tl141253141351%_)) - (let ((_%hd141254141354%_ + (##pair? _%tl140396140494%_)) + (let ((_%hd140397140497%_ (let () (declare (not safe)) - (##car _%tl141253141351%_))) - (_%tl141255141356%_ + (##car _%tl140396140494%_))) + (_%tl140398140499%_ (let () (declare (not safe)) - (##cdr _%tl141253141351%_)))) - (if ((lambda (_%g141358141360%_) - (eq? _%g141358141360%_ + (##cdr _%tl140396140494%_)))) + (if ((lambda (_%g140501140503%_) + (eq? _%g140501140503%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id141335%_)) - _%hd141254141354%_) + _%id140478%_)) + _%hd140397140497%_) (if (let () (declare (not safe)) - (##pair? _%tl141255141356%_)) - (let ((_%hd141256141363%_ + (##pair? _%tl140398140499%_)) + (let ((_%hd140399140506%_ (let () (declare (not safe)) - (##car _%tl141255141356%_))) - (_%tl141257141365%_ + (##car _%tl140398140499%_))) + (_%tl140400140508%_ (let () (declare (not safe)) - (##cdr _%tl141255141356%_)))) - (if ((lambda (_%g141367141369%_) - (eq? _%g141367141369%_ _%id141335%_)) - _%hd141256141363%_) + (##cdr _%tl140398140499%_)))) + (if ((lambda (_%g140510140512%_) + (eq? _%g140510140512%_ _%id140478%_)) + _%hd140399140506%_) (if (let () (declare (not safe)) - (##pair? _%tl141257141365%_)) - (let ((_%hd141258141372%_ + (##pair? _%tl140400140508%_)) + (let ((_%hd140401140515%_ (let () (declare (not safe)) - (##car _%tl141257141365%_))) - (_%tl141259141374%_ + (##car _%tl140400140508%_))) + (_%tl140402140517%_ (let () (declare (not safe)) - (##cdr _%tl141257141365%_)))) - (let ((_%expr2141377%_ _%hd141258141372%_)) + (##cdr _%tl140400140508%_)))) + (let ((_%expr2140520%_ _%hd140401140515%_)) (if (let () (declare (not safe)) - (##null? _%tl141259141374%_)) + (##null? _%tl140402140517%_)) (if (let () (declare (not safe)) - (##null? _%tl141251141346%_)) - (let () - (declare (not safe)) - (_%K141245141312%_ - _%expr2141377%_ - _%expr1141342%_ - _%id141335%_)) - (let () - (declare (not safe)) - (_%else141243141275%_))) - (let () - (declare (not safe)) - (_%else141243141275%_))))) - (let () - (declare (not safe)) - (_%else141243141275%_))) - (let () - (declare (not safe)) - (_%else141243141275%_)))) - (let () (declare (not safe)) (_%else141243141275%_))) - (let () (declare (not safe)) (_%else141243141275%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%else141243141275%_))) - (let () - (declare (not safe)) - (_%else141243141275%_)))) - (let () - (declare (not safe)) - (_%else141243141275%_)))) - (let () - (declare (not safe)) - (_%else141243141275%_))) - (let () - (declare (not safe)) - (_%else141243141275%_))) - (let () - (declare (not safe)) - (_%else141243141275%_))))) - (let () (declare (not safe)) (_%else141243141275%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%else141243141275%_)))) - (let () - (declare (not safe)) - (_%else141243141275%_)))) - (let () - (declare (not safe)) - (_%else141243141275%_))) - (let () - (declare (not safe)) - (_%else141243141275%_)))) - (let () - (declare (not safe)) - (_%else141243141275%_)))) - _%code141240%_))) - (_%coalesce-let140630%_ - (lambda (_%code140932%_) - (let* ((_%code140933141007%_ _%code140932%_) - (_%else140938141015%_ (lambda () _%code140932%_))) - (let ((_%K140997141215%_ - (lambda (_%body141213%_) - (cons 'let _%body141213%_))) - (_%K140980141161%_ - (lambda (_%body141157%_ - _%expr141158%_ - _%id141159%_) + (##null? _%tl140394140489%_)) + (_%K140388140455%_ + _%expr2140520%_ + _%expr1140485%_ + _%id140478%_) + (_%else140386140418%_)) + (_%else140386140418%_)))) + (_%else140386140418%_)) + (_%else140386140418%_))) + (_%else140386140418%_)) + (_%else140386140418%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else140386140418%_)) + (_%else140386140418%_))) + (_%else140386140418%_))) + (_%else140386140418%_)) + (_%else140386140418%_)) + (_%else140386140418%_)))) + (_%else140386140418%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else140386140418%_))) + (_%else140386140418%_))) + (_%else140386140418%_)) + (_%else140386140418%_))) + (_%else140386140418%_))) + _%code140383%_))) + (_%simplify-let139780%_ + (lambda (_%code140082%_) + (let* ((_%code140083140155%_ _%code140082%_) + (_%else140088140163%_ (lambda () _%code140082%_))) + (let ((_%K140147140363%_ + (lambda (_%expr140361%_) _%expr140361%_)) + (_%K140130140309%_ + (lambda (_%body140305%_ + _%expr140306%_ + _%id140307%_) (cons 'let - (cons (cons (cons _%id141159%_ - (cons _%expr141158%_ + (cons (cons (cons _%id140307%_ + (cons _%expr140306%_ '())) '()) - _%body141157%_)))) - (_%K140957141085%_ - (lambda (_%body141079%_ - _%expr2141080%_ - _%id2141081%_ - _%expr1141082%_ - _%id1141083%_) + _%body140305%_)))) + (_%K140107140233%_ + (lambda (_%body140227%_ + _%expr2140228%_ + _%id2140229%_ + _%expr1140230%_ + _%id1140231%_) (cons 'let* - (cons (cons (cons _%id1141083%_ - (cons _%expr1141082%_ + (cons (cons (cons _%id1140231%_ + (cons _%expr1140230%_ '())) - (cons (cons _%id2141081%_ - (cons _%expr2141080%_ + (cons (cons _%id2140229%_ + (cons _%expr2140228%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body141079%_)))) - (_%K140940141024%_ - (lambda (_%body141019%_ - _%bind141020%_ - _%expr1141021%_ - _%id1141022%_) + _%body140227%_)))) + (_%K140090140172%_ + (lambda (_%body140167%_ + _%bind140168%_ + _%expr1140169%_ + _%id1140170%_) (cons 'let* - (cons (cons (cons _%id1141022%_ - (cons _%expr1141021%_ + (cons (cons (cons _%id1140170%_ + (cons _%expr1140169%_ '())) - _%bind141020%_) - _%body141019%_))))) + _%bind140168%_) + _%body140167%_))))) (if (let () (declare (not safe)) - (##pair? _%code140933141007%_)) - (let ((_%tl140999141220%_ + (##pair? _%code140083140155%_)) + (let ((_%tl140149140368%_ (let () (declare (not safe)) - (##cdr _%code140933141007%_))) - (_%hd140998141218%_ + (##cdr _%code140083140155%_))) + (_%hd140148140366%_ (let () (declare (not safe)) - (##car _%code140933141007%_)))) + (##car _%code140083140155%_)))) (if (let () (declare (not safe)) - (##eq? _%hd140998141218%_ 'let)) + (##eq? _%hd140148140366%_ 'let)) (if (let () (declare (not safe)) - (##pair? _%tl140999141220%_)) - (let ((_%tl141001141225%_ + (##pair? _%tl140149140368%_)) + (let ((_%tl140151140373%_ (let () (declare (not safe)) - (##cdr _%tl140999141220%_))) - (_%hd141000141223%_ + (##cdr _%tl140149140368%_))) + (_%hd140150140371%_ (let () (declare (not safe)) - (##car _%tl140999141220%_)))) + (##car _%tl140149140368%_)))) (if (let () (declare (not safe)) - (##null? _%hd141000141223%_)) + (##null? _%hd140150140371%_)) (if (let () (declare (not safe)) - (##pair? _%tl141001141225%_)) - (let ((_%tl141003141230%_ + (##pair? _%tl140151140373%_)) + (let ((_%tl140153140378%_ (let () (declare (not safe)) - (##cdr _%tl141001141225%_))) - (_%hd141002141228%_ + (##cdr _%tl140151140373%_))) + (_%hd140152140376%_ (let () (declare (not safe)) - (##car _%tl141001141225%_)))) + (##car _%tl140151140373%_)))) (if (let () (declare (not safe)) - (##pair? _%hd141002141228%_)) - (let ((_%tl141005141235%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##cdr _%hd141002141228%_))) - (_%hd141004141233%_ - (let () (declare (not safe)) (##car _%hd141002141228%_)))) - (if (let () - (declare (not safe)) - (##eq? _%hd141004141233%_ 'let)) - (if (let () - (declare (not safe)) - (##null? _%tl141003141230%_)) - (let ((_%body141238%_ _%tl141005141235%_)) - (declare (not safe)) - (_%K140997141215%_ _%body141238%_)) - (let () (declare (not safe)) (_%else140938141015%_))) - (let () (declare (not safe)) (_%else140938141015%_)))) - (let () (declare (not safe)) (_%else140938141015%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%else140938141015%_))) + (##null? _%tl140153140378%_)) + (let ((_%expr140381%_ + _%hd140152140376%_)) + (_%K140147140363%_ + _%expr140381%_)) + (_%else140088140163%_))) + (_%else140088140163%_)) (if (let () (declare (not safe)) - (##pair? _%hd141000141223%_)) - (let ((_%tl140992141176%_ + (##pair? _%hd140150140371%_)) + (let ((_%tl140142140324%_ (let () (declare (not safe)) - (##cdr _%hd141000141223%_))) - (_%hd140991141174%_ + (##cdr _%hd140150140371%_))) + (_%hd140141140322%_ (let () (declare (not safe)) - (##car _%hd141000141223%_)))) + (##car _%hd140150140371%_)))) (if (let () (declare (not safe)) - (##pair? _%hd140991141174%_)) - (let ((_%tl140994141181%_ + (##pair? _%hd140141140322%_)) + (let ((_%tl140144140329%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%hd140991141174%_))) - (_%hd140993141179%_ - (let () (declare (not safe)) (##car _%hd140991141174%_)))) - (if (let () (declare (not safe)) (##pair? _%tl140994141181%_)) - (let ((_%tl140996141188%_ + (##cdr _%hd140141140322%_))) + (_%hd140143140327%_ + (let () (declare (not safe)) (##car _%hd140141140322%_)))) + (if (let () (declare (not safe)) (##pair? _%tl140144140329%_)) + (let ((_%tl140146140336%_ (let () (declare (not safe)) - (##cdr _%tl140994141181%_))) - (_%hd140995141186%_ + (##cdr _%tl140144140329%_))) + (_%hd140145140334%_ (let () (declare (not safe)) - (##car _%tl140994141181%_)))) + (##car _%tl140144140329%_)))) (if (let () (declare (not safe)) - (##null? _%tl140996141188%_)) + (##null? _%tl140146140336%_)) (if (let () (declare (not safe)) - (##null? _%tl140992141176%_)) + (##null? _%tl140142140324%_)) (if (let () (declare (not safe)) - (##pair? _%tl141001141225%_)) - (let ((_%tl140986141195%_ + (##pair? _%tl140151140373%_)) + (let ((_%tl140136140343%_ (let () (declare (not safe)) - (##cdr _%tl141001141225%_))) - (_%hd140985141193%_ + (##cdr _%tl140151140373%_))) + (_%hd140135140341%_ (let () (declare (not safe)) - (##car _%tl141001141225%_)))) + (##car _%tl140151140373%_)))) (if (let () (declare (not safe)) - (##pair? _%hd140985141193%_)) - (let ((_%tl140988141200%_ + (##pair? _%hd140135140341%_)) + (let ((_%tl140138140348%_ (let () (declare (not safe)) - (##cdr _%hd140985141193%_))) - (_%hd140987141198%_ + (##cdr _%hd140135140341%_))) + (_%hd140137140346%_ (let () (declare (not safe)) - (##car _%hd140985141193%_)))) + (##car _%hd140135140341%_)))) (if (let () (declare (not safe)) - (##eq? _%hd140987141198%_ + (##eq? _%hd140137140346%_ 'let)) (if (let () (declare (not safe)) - (##pair? _%tl140988141200%_)) - (let ((_%tl140990141205%_ + (##pair? _%tl140138140348%_)) + (let ((_%tl140140140353%_ (let () (declare (not safe)) - (##cdr _%tl140988141200%_))) - (_%hd140989141203%_ + (##cdr _%tl140138140348%_))) + (_%hd140139140351%_ (let () (declare (not safe)) - (##car _%tl140988141200%_)))) + (##car _%tl140138140348%_)))) (if (let () (declare (not safe)) - (##null? _%hd140989141203%_)) + (##null? _%hd140139140351%_)) (if (let () (declare (not safe)) - (##null? _%tl140986141195%_)) - (let ((_%id141184%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd140993141179%_) - (_%expr141191%_ _%hd140995141186%_) - (_%body141208%_ _%tl140990141205%_)) - (let () - (declare (not safe)) - (_%K140980141161%_ - _%body141208%_ - _%expr141191%_ - _%id141184%_))) - (let () (declare (not safe)) (_%else140938141015%_))) - (if (let () (declare (not safe)) (##pair? _%hd140989141203%_)) - (let ((_%tl140969141134%_ + (##null? _%tl140136140343%_)) + (let ((_%id140332%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%hd140143140327%_) + (_%expr140339%_ _%hd140145140334%_) + (_%body140356%_ _%tl140140140353%_)) + (_%K140130140309%_ + _%body140356%_ + _%expr140339%_ + _%id140332%_)) + (_%else140088140163%_)) + (if (let () (declare (not safe)) (##pair? _%hd140139140351%_)) + (let ((_%tl140119140282%_ (let () (declare (not safe)) - (##cdr _%hd140989141203%_))) - (_%hd140968141132%_ + (##cdr _%hd140139140351%_))) + (_%hd140118140280%_ (let () (declare (not safe)) - (##car _%hd140989141203%_)))) + (##car _%hd140139140351%_)))) (if (let () (declare (not safe)) - (##pair? _%hd140968141132%_)) - (let ((_%tl140971141139%_ + (##pair? _%hd140118140280%_)) + (let ((_%tl140121140287%_ (let () (declare (not safe)) - (##cdr _%hd140968141132%_))) - (_%hd140970141137%_ + (##cdr _%hd140118140280%_))) + (_%hd140120140285%_ (let () (declare (not safe)) - (##car _%hd140968141132%_)))) + (##car _%hd140118140280%_)))) (if (let () (declare (not safe)) - (##pair? _%tl140971141139%_)) - (let ((_%tl140973141146%_ + (##pair? _%tl140121140287%_)) + (let ((_%tl140123140294%_ (let () (declare (not safe)) - (##cdr _%tl140971141139%_))) - (_%hd140972141144%_ + (##cdr _%tl140121140287%_))) + (_%hd140122140292%_ (let () (declare (not safe)) - (##car _%tl140971141139%_)))) + (##car _%tl140121140287%_)))) (if (let () (declare (not safe)) - (##null? _%tl140973141146%_)) + (##null? _%tl140123140294%_)) (if (let () (declare (not safe)) - (##null? _%tl140969141134%_)) + (##null? _%tl140119140282%_)) (if (let () (declare (not safe)) - (##null? _%tl140986141195%_)) - (let ((_%id1141108%_ - _%hd140993141179%_) - (_%expr1141115%_ - _%hd140995141186%_) - (_%id2141142%_ - _%hd140970141137%_) - (_%expr2141149%_ - _%hd140972141144%_) - (_%body141151%_ - _%tl140990141205%_)) - (let () - (declare (not safe)) - (_%K140957141085%_ - _%body141151%_ - _%expr2141149%_ - _%id2141142%_ - _%expr1141115%_ - _%id1141108%_))) - (let () - (declare (not safe)) - (_%else140938141015%_))) - (let () - (declare (not safe)) - (_%else140938141015%_))) - (let () - (declare (not safe)) - (_%else140938141015%_)))) - (let () - (declare (not safe)) - (_%else140938141015%_)))) - (let () - (declare (not safe)) - (_%else140938141015%_)))) - (let () (declare (not safe)) (_%else140938141015%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%else140938141015%_))) + (##null? _%tl140136140343%_)) + (let ((_%id1140256%_ + _%hd140143140327%_) + (_%expr1140263%_ + _%hd140145140334%_) + (_%id2140290%_ + _%hd140120140285%_) + (_%expr2140297%_ + _%hd140122140292%_) + (_%body140299%_ + _%tl140140140353%_)) + (_%K140107140233%_ + _%body140299%_ + _%expr2140297%_ + _%id2140290%_ + _%expr1140263%_ + _%id1140256%_)) + (_%else140088140163%_)) + (_%else140088140163%_)) + (_%else140088140163%_))) + (_%else140088140163%_))) + (_%else140088140163%_))) + (_%else140088140163%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else140088140163%_)) (if (let () (declare (not safe)) - (##eq? _%hd140987141198%_ + (##eq? _%hd140137140346%_ 'let*)) (if (let () (declare (not safe)) - (##pair? _%tl140988141200%_)) - (let ((_%tl140950141068%_ + (##pair? _%tl140138140348%_)) + (let ((_%tl140100140216%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl140988141200%_))) - (_%hd140949141066%_ - (let () (declare (not safe)) (##car _%tl140988141200%_)))) - (if (let () (declare (not safe)) (##null? _%tl140986141195%_)) - (let ((_%id1141047%_ _%hd140993141179%_) - (_%expr1141054%_ _%hd140995141186%_) - (_%bind141071%_ _%hd140949141066%_) - (_%body141073%_ _%tl140950141068%_)) - (let () - (declare (not safe)) - (_%K140940141024%_ - _%body141073%_ - _%bind141071%_ - _%expr1141054%_ - _%id1141047%_))) - (let () (declare (not safe)) (_%else140938141015%_)))) - (let () (declare (not safe)) (_%else140938141015%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%else140938141015%_))))) - (let () - (declare (not safe)) - (_%else140938141015%_)))) - (let () - (declare (not safe)) - (_%else140938141015%_))) - (let () - (declare (not safe)) - (_%else140938141015%_))) - (let () - (declare (not safe)) - (_%else140938141015%_)))) - (let () (declare (not safe)) (_%else140938141015%_)))) - (let () (declare (not safe)) (_%else140938141015%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%else140938141015%_))))) - (let () - (declare (not safe)) - (_%else140938141015%_))) - (let () - (declare (not safe)) - (_%else140938141015%_)))) - (let () - (declare (not safe)) - (_%else140938141015%_))))))) - (_%generate-values140631%_ - (lambda (_%hd140745%_ _%body140746%_) - (let _%lp140748%_ ((_%rest140750%_ _%hd140745%_) - (_%bind140751%_ '()) - (_%check140752%_ '()) - (_%post140753%_ '())) - (let* ((_%__stx144889144890%_ _%rest140750%_) - (_%g140756140767%_ + (##cdr _%tl140138140348%_))) + (_%hd140099140214%_ + (let () (declare (not safe)) (##car _%tl140138140348%_)))) + (if (let () (declare (not safe)) (##null? _%tl140136140343%_)) + (let ((_%id1140195%_ _%hd140143140327%_) + (_%expr1140202%_ _%hd140145140334%_) + (_%bind140219%_ _%hd140099140214%_) + (_%body140221%_ _%tl140100140216%_)) + (_%K140090140172%_ + _%body140221%_ + _%bind140219%_ + _%expr1140202%_ + _%id1140195%_)) + (_%else140088140163%_))) + (_%else140088140163%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else140088140163%_)))) + (_%else140088140163%_))) + (_%else140088140163%_)) + (_%else140088140163%_)) + (_%else140088140163%_))) + (_%else140088140163%_))) + (_%else140088140163%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else140088140163%_)))) + (_%else140088140163%_)) + (_%else140088140163%_))) + (_%else140088140163%_)))))) + (_%generate-values139781%_ + (lambda (_%hd139895%_ _%body139896%_) + (let _%lp139898%_ ((_%rest139900%_ _%hd139895%_) + (_%bind139901%_ '()) + (_%check139902%_ '()) + (_%post139903%_ '())) + (let* ((_%__stx144026144027%_ _%rest139900%_) + (_%g139906139917%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx144889144890%_))))) - (let ((_%__kont144891144892%_ - (lambda (_%L140794%_ _%L140795%_) - (let* ((_%__stx144845144846%_ _%L140795%_) - (_%g140810140835%_ + _%__stx144026144027%_))))) + (let ((_%__kont144028144029%_ + (lambda (_%L139944%_ _%L139945%_) + (let* ((_%__stx143982143983%_ _%L139945%_) + (_%g139960139985%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx144845144846%_))))) - (let ((_%__kont144847144848%_ - (lambda (_%L140908%_ _%L140909%_) - (let ((_%eid140923%_ + _%__stx143982143983%_))))) + (let ((_%__kont143984143985%_ + (lambda (_%L140058%_ _%L140059%_) + (let ((_%eid140073%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L140909%_))) - (_%expr140924%_ + _%L140059%_))) + (_%expr140074%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self140624%_ - _%L140908%_)))) - (let ((__tmp145762 - (cons (cons _%eid140923%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr140924%_ '())) - _%bind140751%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp140748%_ - _%L140794%_ - __tmp145762 - _%check140752%_ - _%post140753%_))))) - (_%__kont144849144850%_ - (lambda (_%L140856%_ _%L140857%_) - (let* ((_%vals140870%_ + _%self139774%_ + _%L140058%_)))) + (_%lp139898%_ + _%L139944%_ + (cons (cons _%eid140073%_ + (cons _%expr140074%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%bind139901%_) + _%check139902%_ + _%post139903%_)))) + (_%__kont143986143987%_ + (lambda (_%L140006%_ _%L140007%_) + (let* ((_%vals140020%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values140872%_ - (let () - (declare (not safe)) - (gxc#generate-runtime-check-values - _%vals140870%_ - _%L140857%_ - _%L140856%_))) - (_%refs140874%_ - (let () - (declare (not safe)) - (gxc#generate-runtime-let-values-bind - _%vals140870%_ - _%L140857%_))) - (_%expr140876%_ + (_%check-values140022%_ + (gxc#generate-runtime-check-values + _%vals140020%_ + _%L140007%_ + _%L140006%_)) + (_%refs140024%_ + (gxc#generate-runtime-let-values-bind + _%vals140020%_ + _%L140007%_)) + (_%expr140026%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self140624%_ - _%L140856%_)))) - (let ((__tmp145765 - (cons (cons _%vals140870%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr140876%_ '())) - _%bind140751%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp145764 - (cons _%check-values140872%_ - _%check140752%_)) - (__tmp145763 - (cons _%refs140874%_ - _%post140753%_))) - (declare (not safe)) - (_%lp140748%_ - _%L140794%_ - __tmp145765 - __tmp145764 - __tmp145763)))))) + _%self139774%_ + _%L140006%_)))) + (_%lp139898%_ + _%L139944%_ + (cons (cons _%vals140020%_ + (cons _%expr140026%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%bind139901%_) + (cons _%check-values140022%_ + _%check139902%_) + (cons _%refs140024%_ + _%post139903%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx144845144846%_)) - (let ((_%e140816140884%_ + _%__stx143982143983%_)) + (let ((_%e139966140034%_ (let () (declare (not safe)) (gx#stx-e - _%__stx144845144846%_)))) - (let ((_%tl140814140889%_ + _%__stx143982143983%_)))) + (let ((_%tl139964140039%_ (let () (declare (not safe)) - (##cdr _%e140816140884%_))) - (_%hd140815140887%_ + (##cdr _%e139966140034%_))) + (_%hd139965140037%_ (let () (declare (not safe)) - (##car _%e140816140884%_)))) + (##car _%e139966140034%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd140815140887%_)) - (let ((_%e140819140892%_ + _%hd139965140037%_)) + (let ((_%e139969140042%_ (let () (declare (not safe)) (gx#stx-e - _%hd140815140887%_)))) - (let ((_%tl140817140897%_ + _%hd139965140037%_)))) + (let ((_%tl139967140047%_ (let () (declare (not safe)) - (##cdr _%e140819140892%_))) - (_%hd140818140895%_ + (##cdr _%e139969140042%_))) + (_%hd139968140045%_ (let () (declare (not safe)) - (##car _%e140819140892%_)))) + (##car _%e139969140042%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140817140897%_)) + _%tl139967140047%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl140814140889%_)) - (let ((_%e140822140900%_ + (gx#stx-pair? _%tl139964140039%_)) + (let ((_%e139972140050%_ (let () (declare (not safe)) - (gx#stx-e _%tl140814140889%_)))) - (let ((_%tl140820140905%_ + (gx#stx-e _%tl139964140039%_)))) + (let ((_%tl139970140055%_ (let () (declare (not safe)) - (##cdr _%e140822140900%_))) - (_%hd140821140903%_ + (##cdr _%e139972140050%_))) + (_%hd139971140053%_ (let () (declare (not safe)) - (##car _%e140822140900%_)))) + (##car _%e139972140050%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140820140905%_)) - (_%__kont144847144848%_ - _%hd140821140903%_ - _%hd140818140895%_) + (gx#stx-null? _%tl139970140055%_)) + (_%__kont143984143985%_ + _%hd139971140053%_ + _%hd139968140045%_) (let () (declare (not safe)) - (_%g140810140835%_))))) - (let () (declare (not safe)) (_%g140810140835%_))) + (_%g139960139985%_))))) + (let () (declare (not safe)) (_%g139960139985%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140814140889%_)) - (let ((_%e140830140848%_ + (gx#stx-pair? _%tl139964140039%_)) + (let ((_%e139980139998%_ (let () (declare (not safe)) - (gx#stx-e _%tl140814140889%_)))) - (let ((_%tl140828140853%_ + (gx#stx-e _%tl139964140039%_)))) + (let ((_%tl139978140003%_ (let () (declare (not safe)) - (##cdr _%e140830140848%_))) - (_%hd140829140851%_ + (##cdr _%e139980139998%_))) + (_%hd139979140001%_ (let () (declare (not safe)) - (##car _%e140830140848%_)))) + (##car _%e139980139998%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140828140853%_)) - (_%__kont144849144850%_ - _%hd140829140851%_ - _%hd140815140887%_) + (gx#stx-null? _%tl139978140003%_)) + (_%__kont143986143987%_ + _%hd139979140001%_ + _%hd139965140037%_) (let () (declare (not safe)) - (_%g140810140835%_))))) - (let () (declare (not safe)) (_%g140810140835%_)))))) + (_%g139960139985%_))))) + (let () (declare (not safe)) (_%g139960139985%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140814140889%_)) - (let ((_%e140830140848%_ + _%tl139964140039%_)) + (let ((_%e139980139998%_ (let () (declare (not safe)) (gx#stx-e - _%tl140814140889%_)))) - (let ((_%tl140828140853%_ + _%tl139964140039%_)))) + (let ((_%tl139978140003%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e140830140848%_))) - (_%hd140829140851%_ - (let () (declare (not safe)) (##car _%e140830140848%_)))) + (##cdr _%e139980139998%_))) + (_%hd139979140001%_ + (let () (declare (not safe)) (##car _%e139980139998%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140828140853%_)) - (_%__kont144849144850%_ - _%hd140829140851%_ - _%hd140815140887%_) - (let () (declare (not safe)) (_%g140810140835%_))))) + (gx#stx-null? _%tl139978140003%_)) + (_%__kont143986143987%_ + _%hd139979140001%_ + _%hd139965140037%_) + (let () (declare (not safe)) (_%g139960139985%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g140810140835%_)))))) + (_%g139960139985%_)))))) (let () (declare (not safe)) - (_%g140810140835%_))))))) - (_%__kont144893144894%_ + (_%g139960139985%_))))))) + (_%__kont144030144031%_ (lambda () - (let* ((_%body140774%_ - (if _%compiled-body?140626%_ - _%body140746%_ + (let* ((_%body139924%_ + (if _%compiled-body?139776%_ + _%body139896%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self140624%_ - _%body140746%_)))) - (_%body140776%_ - (let () - (declare (not safe)) - (_%generate-values-post140632%_ - _%post140753%_ - _%body140774%_))) - (_%body140778%_ - (let () - (declare (not safe)) - (_%generate-values-check140633%_ - _%check140752%_ - _%body140776%_)))) + _%self139774%_ + _%body139896%_)))) + (_%body139926%_ + (_%generate-values-post139782%_ + _%post139903%_ + _%body139924%_)) + (_%body139928%_ + (_%generate-values-check139783%_ + _%check139902%_ + _%body139926%_))) (cons 'let - (cons (reverse _%bind140751%_) - (cons _%body140778%_ '()))))))) + (cons (reverse _%bind139901%_) + (cons _%body139928%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx144889144890%_)) - (let ((_%e140762140786%_ + (gx#stx-pair? _%__stx144026144027%_)) + (let ((_%e139912139936%_ (let () (declare (not safe)) - (gx#stx-e _%__stx144889144890%_)))) - (let ((_%tl140760140791%_ + (gx#stx-e _%__stx144026144027%_)))) + (let ((_%tl139910139941%_ (let () (declare (not safe)) - (##cdr _%e140762140786%_))) - (_%hd140761140789%_ + (##cdr _%e139912139936%_))) + (_%hd139911139939%_ (let () (declare (not safe)) - (##car _%e140762140786%_)))) - (_%__kont144891144892%_ - _%tl140760140791%_ - _%hd140761140789%_))) - (_%__kont144893144894%_))))))) - (_%generate-values-post140632%_ - (lambda (_%post140704%_ _%body140705%_) - (let _%lp140707%_ ((_%rest140709%_ _%post140704%_) - (_%body140710%_ _%body140705%_)) - (let* ((_%rest140711140719%_ _%rest140709%_) - (_%else140713140727%_ (lambda () _%body140710%_)) - (_%K140715140733%_ - (lambda (_%rest140730%_ _%bind140731%_) - (let ((__tmp145766 - (cons 'let - (cons _%bind140731%_ - (cons _%body140710%_ - '()))))) - (declare (not safe)) - (_%lp140707%_ _%rest140730%_ __tmp145766))))) + (##car _%e139912139936%_)))) + (_%__kont144028144029%_ + _%tl139910139941%_ + _%hd139911139939%_))) + (_%__kont144030144031%_))))))) + (_%generate-values-post139782%_ + (lambda (_%post139854%_ _%body139855%_) + (let _%lp139857%_ ((_%rest139859%_ _%post139854%_) + (_%body139860%_ _%body139855%_)) + (let* ((_%rest139861139869%_ _%rest139859%_) + (_%else139863139877%_ (lambda () _%body139860%_)) + (_%K139865139883%_ + (lambda (_%rest139880%_ _%bind139881%_) + (_%lp139857%_ + _%rest139880%_ + (cons 'let + (cons _%bind139881%_ + (cons _%body139860%_ '()))))))) (if (let () (declare (not safe)) - (##pair? _%rest140711140719%_)) - (let ((_%hd140716140736%_ + (##pair? _%rest139861139869%_)) + (let ((_%hd139866139886%_ (let () (declare (not safe)) - (##car _%rest140711140719%_))) - (_%tl140717140738%_ + (##car _%rest139861139869%_))) + (_%tl139867139888%_ (let () (declare (not safe)) - (##cdr _%rest140711140719%_)))) - (let* ((_%bind140741%_ _%hd140716140736%_) - (_%rest140743%_ _%tl140717140738%_)) - (declare (not safe)) - (_%K140715140733%_ - _%rest140743%_ - _%bind140741%_))) - (let () - (declare (not safe)) - (_%else140713140727%_))))))) - (_%generate-values-check140633%_ - (lambda (_%check140701%_ _%body140702%_) + (##cdr _%rest139861139869%_)))) + (let* ((_%bind139891%_ _%hd139866139886%_) + (_%rest139893%_ _%tl139867139888%_)) + (_%K139865139883%_ + _%rest139893%_ + _%bind139891%_))) + (_%else139863139877%_)))))) + (_%generate-values-check139783%_ + (lambda (_%check139851%_ _%body139852%_) (cons 'begin - (let ((__tmp145768 (cons _%body140702%_ '())) - (__tmp145767 (reverse _%check140701%_))) + (let ((__tmp144874 (cons _%body139852%_ '())) + (__tmp144873 (reverse _%check139851%_))) (declare (not safe)) - (__foldr1 cons __tmp145768 __tmp145767)))))) - (let* ((_%g140635140652%_ - (lambda (_%g140636140649%_) + (__foldr1 cons __tmp144874 __tmp144873)))))) + (let* ((_%g139785139802%_ + (lambda (_%g139786139799%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140636140649%_)))) - (_%g140634140698%_ - (lambda (_%g140636140655%_) + _%g139786139799%_)))) + (_%g139784139848%_ + (lambda (_%g139786139805%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140636140655%_)) - (let ((_%e140641140657%_ + (gx#stx-pair? _%g139786139805%_)) + (let ((_%e139791139807%_ (let () (declare (not safe)) - (gx#stx-e _%g140636140655%_)))) - (let ((_%hd140640140660%_ + (gx#stx-e _%g139786139805%_)))) + (let ((_%hd139790139810%_ (let () (declare (not safe)) - (##car _%e140641140657%_))) - (_%tl140639140662%_ + (##car _%e139791139807%_))) + (_%tl139789139812%_ (let () (declare (not safe)) - (##cdr _%e140641140657%_)))) + (##cdr _%e139791139807%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140639140662%_)) - (let ((_%e140644140665%_ + (gx#stx-pair? _%tl139789139812%_)) + (let ((_%e139794139815%_ (let () (declare (not safe)) - (gx#stx-e _%tl140639140662%_)))) - (let ((_%hd140643140668%_ + (gx#stx-e _%tl139789139812%_)))) + (let ((_%hd139793139818%_ (let () (declare (not safe)) - (##car _%e140644140665%_))) - (_%tl140642140670%_ + (##car _%e139794139815%_))) + (_%tl139792139820%_ (let () (declare (not safe)) - (##cdr _%e140644140665%_)))) + (##cdr _%e139794139815%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140642140670%_)) - (let ((_%e140647140673%_ + (gx#stx-pair? _%tl139792139820%_)) + (let ((_%e139797139823%_ (let () (declare (not safe)) (gx#stx-e - _%tl140642140670%_)))) - (let ((_%hd140646140676%_ + _%tl139792139820%_)))) + (let ((_%hd139796139826%_ (let () (declare (not safe)) - (##car _%e140647140673%_))) - (_%tl140645140678%_ + (##car _%e139797139823%_))) + (_%tl139795139828%_ (let () (declare (not safe)) - (##cdr _%e140647140673%_)))) + (##cdr _%e139797139823%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140645140678%_)) - ((lambda (_%L140681%_ - _%L140682%_) - (if (let () - (declare (not safe)) - (gxc#generate-runtime-simple-let? - _%L140682%_)) - (let () - (declare (not safe)) - (_%generate-simple140628%_ - _%L140682%_ - _%L140681%_)) - (let () - (declare (not safe)) - (_%generate-values140631%_ - _%L140682%_ - _%L140681%_)))) - _%hd140646140676%_ - _%hd140643140668%_) - (let () - (declare (not safe)) - (_%g140635140652%_ - _%g140636140655%_))))) - (let () - (declare (not safe)) - (_%g140635140652%_ - _%g140636140655%_))))) - (let () - (declare (not safe)) - (_%g140635140652%_ _%g140636140655%_))))) - (let () - (declare (not safe)) - (_%g140635140652%_ _%g140636140655%_)))))) - (declare (not safe)) - (_%g140634140698%_ _%stx140625%_))))) - (define gxc#generate-runtime-let-values%__0 - (lambda (_%self141385%_ _%stx141386%_) - (let ((_%compiled-body?141388%_ '#f)) - (declare (not safe)) - (gxc#generate-runtime-let-values%__% - _%self141385%_ - _%stx141386%_ - _%compiled-body?141388%_)))) - (define gxc#generate-runtime-let-values% - (lambda _g145770_ - (let ((_g145769_ (let () (declare (not safe)) (##length _g145770_)))) - (cond ((let () (declare (not safe)) (##fx= _g145769_ 2)) - (apply (lambda (_%self141385%_ _%stx141386%_) - (let () - (declare (not safe)) - (gxc#generate-runtime-let-values%__0 - _%self141385%_ - _%stx141386%_))) - _g145770_)) - ((let () (declare (not safe)) (##fx= _g145769_ 3)) - (apply (lambda (_%self141390%_ - _%stx141391%_ - _%compiled-body?141392%_) - (let () - (declare (not safe)) - (gxc#generate-runtime-let-values%__% - _%self141390%_ - _%stx141391%_ - _%compiled-body?141392%_))) - _g145770_)) + _%tl139795139828%_)) + ((lambda (_%L139831%_ + _%L139832%_) + (if (gxc#generate-runtime-simple-let? + _%L139832%_) + (_%generate-simple139778%_ + _%L139832%_ + _%L139831%_) + (_%generate-values139781%_ + _%L139832%_ + _%L139831%_))) + _%hd139796139826%_ + _%hd139793139818%_) + (_%g139785139802%_ + _%g139786139805%_)))) + (_%g139785139802%_ + _%g139786139805%_)))) + (_%g139785139802%_ _%g139786139805%_)))) + (_%g139785139802%_ _%g139786139805%_))))) + (_%g139784139848%_ _%stx139775%_))))) + (define gxc#generate-runtime-let-values%__0 + (lambda (_%self140528%_ _%stx140529%_) + (let ((_%compiled-body?140531%_ '#f)) + (gxc#generate-runtime-let-values%__% + _%self140528%_ + _%stx140529%_ + _%compiled-body?140531%_)))) + (define gxc#generate-runtime-let-values% + (lambda _g144876_ + (let ((_g144875_ (let () (declare (not safe)) (##length _g144876_)))) + (cond ((let () (declare (not safe)) (##fx= _g144875_ 2)) + (apply gxc#generate-runtime-let-values%__0 _g144876_)) + ((let () (declare (not safe)) (##fx= _g144875_ 3)) + (apply gxc#generate-runtime-let-values%__% _g144876_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g145770_)))))) + _g144876_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_%vals140518%_ _%hd140519%_) - (let _%lp140521%_ ((_%rest140523%_ _%hd140519%_) - (_%k140524%_ '0) - (_%r140525%_ '())) - (let* ((_%__stx144903144904%_ _%rest140523%_) - (_%g140530140547%_ + (lambda (_%vals139668%_ _%hd139669%_) + (let _%lp139671%_ ((_%rest139673%_ _%hd139669%_) + (_%k139674%_ '0) + (_%r139675%_ '())) + (let* ((_%__stx144040144041%_ _%rest139673%_) + (_%g139680139697%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx144903144904%_))))) - (let ((_%__kont144905144906%_ - (lambda (_%L140610%_) - (let ((__tmp145771 - (let () - (declare (not safe)) - (##fx+ _%k140524%_ '1)))) - (declare (not safe)) - (_%lp140521%_ _%L140610%_ __tmp145771 _%r140525%_)))) - (_%__kont144907144908%_ - (lambda (_%L140583%_ _%L140584%_) - (let ((__tmp145773 - (let () - (declare (not safe)) - (##fx+ _%k140524%_ '1))) - (__tmp145772 - (cons (cons (let () - (declare (not safe)) - (gxc#generate-runtime-binding-id - _%L140584%_)) - (cons (let () - (declare (not safe)) - (gxc#generate-runtime-values-ref - _%vals140518%_ - _%k140524%_ - _%L140583%_)) - '())) - _%r140525%_))) - (declare (not safe)) - (_%lp140521%_ _%L140583%_ __tmp145773 __tmp145772)))) - (_%__kont144909144910%_ - (lambda (_%L140559%_) - (let ((__tmp145774 + _%__stx144040144041%_))))) + (let ((_%__kont144042144043%_ + (lambda (_%L139760%_) + (_%lp139671%_ + _%L139760%_ + (let () (declare (not safe)) (##fx+ _%k139674%_ '1)) + _%r139675%_))) + (_%__kont144044144045%_ + (lambda (_%L139733%_ _%L139734%_) + (_%lp139671%_ + _%L139733%_ + (let () (declare (not safe)) (##fx+ _%k139674%_ '1)) + (cons (cons (let () + (declare (not safe)) + (gxc#generate-runtime-binding-id + _%L139734%_)) + (cons (gxc#generate-runtime-values-ref + _%vals139668%_ + _%k139674%_ + _%L139733%_) + '())) + _%r139675%_)))) + (_%__kont144046144047%_ + (lambda (_%L139709%_) + (let ((__tmp144877 (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L140559%_)) - (cons (let () - (declare (not safe)) - (gxc#generate-runtime-values->list - _%vals140518%_ - _%k140524%_)) + _%L139709%_)) + (cons (gxc#generate-runtime-values->list + _%vals139668%_ + _%k139674%_) '())) '()))) (declare (not safe)) - (__foldl1 cons __tmp145774 _%r140525%_)))) - (_%__kont144911144912%_ (lambda () (reverse _%r140525%_)))) - (let ((_%g140528140570%_ + (__foldl1 cons __tmp144877 _%r139675%_)))) + (_%__kont144048144049%_ (lambda () (reverse _%r139675%_)))) + (let ((_%g139678139720%_ (lambda () - (let ((_%L140559%_ _%__stx144903144904%_)) + (let ((_%L139709%_ _%__stx144040144041%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L140559%_)) - (_%__kont144909144910%_ _%L140559%_) - (_%__kont144911144912%_)))))) + (gx#identifier? _%L139709%_)) + (_%__kont144046144047%_ _%L139709%_) + (_%__kont144048144049%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx144903144904%_)) - (let ((_%e140535140599%_ + (gx#stx-pair? _%__stx144040144041%_)) + (let ((_%e139685139749%_ (let () (declare (not safe)) - (gx#stx-e _%__stx144903144904%_)))) - (let ((_%tl140533140604%_ + (gx#stx-e _%__stx144040144041%_)))) + (let ((_%tl139683139754%_ (let () (declare (not safe)) - (##cdr _%e140535140599%_))) - (_%hd140534140602%_ + (##cdr _%e139685139749%_))) + (_%hd139684139752%_ (let () (declare (not safe)) - (##car _%e140535140599%_)))) + (##car _%e139685139749%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd140534140602%_)) - (let ((_%e140536140607%_ + (gx#stx-datum? _%hd139684139752%_)) + (let ((_%e139686139757%_ (let () (declare (not safe)) - (gx#stx-e _%hd140534140602%_)))) - (if (equal? _%e140536140607%_ '#f) - (_%__kont144905144906%_ _%tl140533140604%_) - (_%__kont144907144908%_ - _%tl140533140604%_ - _%hd140534140602%_))) - (_%__kont144907144908%_ - _%tl140533140604%_ - _%hd140534140602%_)))) - (let () (declare (not safe)) (_%g140528140570%_))))))))) + (gx#stx-e _%hd139684139752%_)))) + (if (equal? _%e139686139757%_ '#f) + (_%__kont144042144043%_ _%tl139683139754%_) + (_%__kont144044144045%_ + _%tl139683139754%_ + _%hd139684139752%_))) + (_%__kont144044144045%_ + _%tl139683139754%_ + _%hd139684139752%_)))) + (let () (declare (not safe)) (_%g139678139720%_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_%self140197%_ _%stx140198%_ _%compiled-body?140199%_) - (letrec ((_%generate-simple140201%_ - (lambda (_%hd140503%_ _%body140504%_) - (let () - (declare (not safe)) - (gxc#generate-runtime-simple-let - _%self140197%_ - 'letrec - _%hd140503%_ - _%body140504%_ - _%compiled-body?140199%_)))) - (_%generate-values140202%_ - (lambda (_%hd140282%_ _%body140283%_) - (let _%lp140285%_ ((_%rest140287%_ _%hd140282%_) - (_%bind140288%_ '()) - (_%check140289%_ '()) - (_%post140290%_ '())) - (let* ((_%__stx144977144978%_ _%rest140287%_) - (_%g140293140304%_ + (lambda (_%self139347%_ _%stx139348%_ _%compiled-body?139349%_) + (letrec ((_%generate-simple139351%_ + (lambda (_%hd139653%_ _%body139654%_) + (gxc#generate-runtime-simple-let + _%self139347%_ + 'letrec + _%hd139653%_ + _%body139654%_ + _%compiled-body?139349%_))) + (_%generate-values139352%_ + (lambda (_%hd139432%_ _%body139433%_) + (let _%lp139435%_ ((_%rest139437%_ _%hd139432%_) + (_%bind139438%_ '()) + (_%check139439%_ '()) + (_%post139440%_ '())) + (let* ((_%__stx144114144115%_ _%rest139437%_) + (_%g139443139454%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx144977144978%_))))) - (let ((_%__kont144979144980%_ - (lambda (_%L140331%_ _%L140332%_) - (let* ((_%__stx144933144934%_ _%L140332%_) - (_%g140347140372%_ + _%__stx144114144115%_))))) + (let ((_%__kont144116144117%_ + (lambda (_%L139481%_ _%L139482%_) + (let* ((_%__stx144070144071%_ _%L139482%_) + (_%g139497139522%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx144933144934%_))))) - (let ((_%__kont144935144936%_ - (lambda (_%L140479%_ _%L140480%_) - (let ((_%eid140494%_ + _%__stx144070144071%_))))) + (let ((_%__kont144072144073%_ + (lambda (_%L139629%_ _%L139630%_) + (let ((_%eid139644%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L140480%_))) - (_%expr140495%_ + _%L139630%_))) + (_%expr139645%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self140197%_ - _%L140479%_)))) - (let ((__tmp145775 - (cons (cons _%eid140494%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr140495%_ '())) - _%bind140288%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp140285%_ - _%L140331%_ - __tmp145775 - _%check140289%_ - _%post140290%_))))) - (_%__kont144937144938%_ - (lambda (_%L140393%_ _%L140394%_) - (let* ((_%vals140407%_ + _%self139347%_ + _%L139629%_)))) + (_%lp139435%_ + _%L139481%_ + (cons (cons _%eid139644%_ + (cons _%expr139645%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%bind139438%_) + _%check139439%_ + _%post139440%_)))) + (_%__kont144074144075%_ + (lambda (_%L139543%_ _%L139544%_) + (let* ((_%vals139557%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values140409%_ - (let () - (declare (not safe)) - (gxc#generate-runtime-check-values - _%vals140407%_ - _%L140394%_ - _%L140393%_))) - (_%refs140411%_ - (let () - (declare (not safe)) - (gxc#generate-runtime-let-values-bind - _%vals140407%_ - _%L140394%_))) - (_%expr140413%_ + (_%check-values139559%_ + (gxc#generate-runtime-check-values + _%vals139557%_ + _%L139544%_ + _%L139543%_)) + (_%refs139561%_ + (gxc#generate-runtime-let-values-bind + _%vals139557%_ + _%L139544%_)) + (_%expr139563%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self140197%_ - _%L140393%_)))) - (let ((__tmp145778 - (let ((__tmp145780 - (cons (cons _%vals140407%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr140413%_ '())) - _%bind140288%_)) - (__tmp145779 - (map (lambda (_%e140415140417%_) - (let* ((_%g140419140428%_ _%e140415140417%_) - (_%E140421140432%_ - (lambda () - (let () - (declare (not safe)) - (error '"No clause matching" - _%g140419140428%_ - '([eid _]))) - '#!void)) - (_%K140422140437%_ - (lambda (_%eid140435%_) - (cons _%eid140435%_ (cons '#!void '()))))) - (if (let () - (declare (not safe)) - (##pair? _%g140419140428%_)) - (let ((_%hd140423140440%_ - (let () - (declare (not safe)) - (##car _%g140419140428%_))) - (_%tl140424140442%_ - (let () - (declare (not safe)) - (##cdr _%g140419140428%_)))) - (let ((_%eid140445%_ _%hd140423140440%_)) + _%self139347%_ + _%L139543%_)))) + (_%lp139435%_ + _%L139481%_ + (let ((__tmp144879 + (cons (cons _%vals139557%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%expr139563%_ '())) + _%bind139438%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp144878 + (map (lambda (_%e139565139567%_) + (let* ((_%g139569139578%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%e139565139567%_) + (_%E139571139582%_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" + _%g139569139578%_ + '([eid _]))) + '#!void)) + (_%K139572139587%_ + (lambda (_%eid139585%_) + (cons _%eid139585%_ (cons '#!void '()))))) + (if (let () + (declare (not safe)) + (##pair? _%g139569139578%_)) + (let ((_%hd139573139590%_ + (let () + (declare (not safe)) + (##car _%g139569139578%_))) + (_%tl139574139592%_ + (let () + (declare (not safe)) + (##cdr _%g139569139578%_)))) + (let ((_%eid139595%_ _%hd139573139590%_)) + (if (let () + (declare (not safe)) + (##pair? _%tl139574139592%_)) + (let ((_%tl139576139597%_ + (let () + (declare (not safe)) + (##cdr _%tl139574139592%_)))) (if (let () (declare (not safe)) - (##pair? _%tl140424140442%_)) - (let ((_%tl140426140447%_ - (let () - (declare (not safe)) - (##cdr _%tl140424140442%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl140426140447%_)) - (let () + (##null? _%tl139576139597%_)) + (_%K139572139587%_ _%eid139595%_) + (_%E139571139582%_))) + (_%E139571139582%_)))) + (_%E139571139582%_)))) + _%refs139561%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_%K140422140437%_ - _%eid140445%_)) + (__foldl1 + cons + __tmp144879 + __tmp144878)) + (cons _%check-values139559%_ + _%check139439%_) (let () (declare (not safe)) - (_%E140421140432%_)))) - (let () - (declare (not safe)) - (_%E140421140432%_))))) - (let () - (declare (not safe)) - (_%E140421140432%_))))) - _%refs140411%_))) - (declare (not safe)) - (__foldl1 cons __tmp145780 __tmp145779))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp145777 - (cons _%check-values140409%_ - _%check140289%_)) - (__tmp145776 - (let () - (declare (not safe)) - (__foldl1 - cons - _%refs140411%_ - _%post140290%_)))) - (declare (not safe)) - (_%lp140285%_ - _%L140331%_ - __tmp145778 - __tmp145777 - __tmp145776)))))) + (__foldl1 + cons + _%refs139561%_ + _%post139440%_))))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx144933144934%_)) - (let ((_%e140353140455%_ + _%__stx144070144071%_)) + (let ((_%e139503139605%_ (let () (declare (not safe)) (gx#stx-e - _%__stx144933144934%_)))) - (let ((_%tl140351140460%_ + _%__stx144070144071%_)))) + (let ((_%tl139501139610%_ (let () (declare (not safe)) - (##cdr _%e140353140455%_))) - (_%hd140352140458%_ + (##cdr _%e139503139605%_))) + (_%hd139502139608%_ (let () (declare (not safe)) - (##car _%e140353140455%_)))) + (##car _%e139503139605%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd140352140458%_)) - (let ((_%e140356140463%_ + _%hd139502139608%_)) + (let ((_%e139506139613%_ (let () (declare (not safe)) (gx#stx-e - _%hd140352140458%_)))) - (let ((_%tl140354140468%_ + _%hd139502139608%_)))) + (let ((_%tl139504139618%_ (let () (declare (not safe)) - (##cdr _%e140356140463%_))) - (_%hd140355140466%_ + (##cdr _%e139506139613%_))) + (_%hd139505139616%_ (let () (declare (not safe)) - (##car _%e140356140463%_)))) + (##car _%e139506139613%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140354140468%_)) + _%tl139504139618%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl140351140460%_)) - (let ((_%e140359140471%_ + (gx#stx-pair? _%tl139501139610%_)) + (let ((_%e139509139621%_ (let () (declare (not safe)) - (gx#stx-e _%tl140351140460%_)))) - (let ((_%tl140357140476%_ + (gx#stx-e _%tl139501139610%_)))) + (let ((_%tl139507139626%_ (let () (declare (not safe)) - (##cdr _%e140359140471%_))) - (_%hd140358140474%_ + (##cdr _%e139509139621%_))) + (_%hd139508139624%_ (let () (declare (not safe)) - (##car _%e140359140471%_)))) + (##car _%e139509139621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140357140476%_)) - (_%__kont144935144936%_ - _%hd140358140474%_ - _%hd140355140466%_) + (gx#stx-null? _%tl139507139626%_)) + (_%__kont144072144073%_ + _%hd139508139624%_ + _%hd139505139616%_) (let () (declare (not safe)) - (_%g140347140372%_))))) - (let () (declare (not safe)) (_%g140347140372%_))) + (_%g139497139522%_))))) + (let () (declare (not safe)) (_%g139497139522%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140351140460%_)) - (let ((_%e140367140385%_ + (gx#stx-pair? _%tl139501139610%_)) + (let ((_%e139517139535%_ (let () (declare (not safe)) - (gx#stx-e _%tl140351140460%_)))) - (let ((_%tl140365140390%_ + (gx#stx-e _%tl139501139610%_)))) + (let ((_%tl139515139540%_ (let () (declare (not safe)) - (##cdr _%e140367140385%_))) - (_%hd140366140388%_ + (##cdr _%e139517139535%_))) + (_%hd139516139538%_ (let () (declare (not safe)) - (##car _%e140367140385%_)))) + (##car _%e139517139535%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140365140390%_)) - (_%__kont144937144938%_ - _%hd140366140388%_ - _%hd140352140458%_) + (gx#stx-null? _%tl139515139540%_)) + (_%__kont144074144075%_ + _%hd139516139538%_ + _%hd139502139608%_) (let () (declare (not safe)) - (_%g140347140372%_))))) - (let () (declare (not safe)) (_%g140347140372%_)))))) + (_%g139497139522%_))))) + (let () (declare (not safe)) (_%g139497139522%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140351140460%_)) - (let ((_%e140367140385%_ + _%tl139501139610%_)) + (let ((_%e139517139535%_ (let () (declare (not safe)) (gx#stx-e - _%tl140351140460%_)))) - (let ((_%tl140365140390%_ + _%tl139501139610%_)))) + (let ((_%tl139515139540%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e140367140385%_))) - (_%hd140366140388%_ - (let () (declare (not safe)) (##car _%e140367140385%_)))) + (##cdr _%e139517139535%_))) + (_%hd139516139538%_ + (let () (declare (not safe)) (##car _%e139517139535%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140365140390%_)) - (_%__kont144937144938%_ - _%hd140366140388%_ - _%hd140352140458%_) - (let () (declare (not safe)) (_%g140347140372%_))))) + (gx#stx-null? _%tl139515139540%_)) + (_%__kont144074144075%_ + _%hd139516139538%_ + _%hd139502139608%_) + (let () (declare (not safe)) (_%g139497139522%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g140347140372%_)))))) + (_%g139497139522%_)))))) (let () (declare (not safe)) - (_%g140347140372%_))))))) - (_%__kont144981144982%_ + (_%g139497139522%_))))))) + (_%__kont144118144119%_ (lambda () - (let* ((_%body140311%_ - (if _%compiled-body?140199%_ - _%body140283%_ + (let* ((_%body139461%_ + (if _%compiled-body?139349%_ + _%body139433%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self140197%_ - _%body140283%_)))) - (_%body140313%_ - (let () - (declare (not safe)) - (_%generate-values-post140204%_ - _%post140290%_ - _%body140311%_))) - (_%body140315%_ - (let () - (declare (not safe)) - (_%generate-values-check140203%_ - _%check140289%_ - _%body140313%_)))) + _%self139347%_ + _%body139433%_)))) + (_%body139463%_ + (_%generate-values-post139354%_ + _%post139440%_ + _%body139461%_)) + (_%body139465%_ + (_%generate-values-check139353%_ + _%check139439%_ + _%body139463%_))) (cons 'letrec - (cons (reverse _%bind140288%_) - (cons _%body140315%_ '()))))))) + (cons (reverse _%bind139438%_) + (cons _%body139465%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx144977144978%_)) - (let ((_%e140299140323%_ + (gx#stx-pair? _%__stx144114144115%_)) + (let ((_%e139449139473%_ (let () (declare (not safe)) - (gx#stx-e _%__stx144977144978%_)))) - (let ((_%tl140297140328%_ + (gx#stx-e _%__stx144114144115%_)))) + (let ((_%tl139447139478%_ (let () (declare (not safe)) - (##cdr _%e140299140323%_))) - (_%hd140298140326%_ + (##cdr _%e139449139473%_))) + (_%hd139448139476%_ (let () (declare (not safe)) - (##car _%e140299140323%_)))) - (_%__kont144979144980%_ - _%tl140297140328%_ - _%hd140298140326%_))) - (_%__kont144981144982%_))))))) - (_%generate-values-check140203%_ - (lambda (_%check140279%_ _%body140280%_) + (##car _%e139449139473%_)))) + (_%__kont144116144117%_ + _%tl139447139478%_ + _%hd139448139476%_))) + (_%__kont144118144119%_))))))) + (_%generate-values-check139353%_ + (lambda (_%check139429%_ _%body139430%_) (cons 'begin - (let ((__tmp145782 (cons _%body140280%_ '())) - (__tmp145781 (reverse _%check140279%_))) + (let ((__tmp144881 (cons _%body139430%_ '())) + (__tmp144880 (reverse _%check139429%_))) (declare (not safe)) - (__foldr1 cons __tmp145782 __tmp145781))))) - (_%generate-values-post140204%_ - (lambda (_%post140272%_ _%body140273%_) + (__foldr1 cons __tmp144881 __tmp144880))))) + (_%generate-values-post139354%_ + (lambda (_%post139422%_ _%body139423%_) (cons 'begin - (let ((__tmp145786 (cons _%body140273%_ '())) - (__tmp145783 - (let ((__tmp145785 - (lambda (_%g140274140276%_) - (cons 'set! _%g140274140276%_))) - (__tmp145784 (reverse _%post140272%_))) + (let ((__tmp144885 (cons _%body139423%_ '())) + (__tmp144882 + (let ((__tmp144884 + (lambda (_%g139424139426%_) + (cons 'set! _%g139424139426%_))) + (__tmp144883 (reverse _%post139422%_))) (declare (not safe)) - (##map __tmp145785 __tmp145784)))) + (##map __tmp144884 __tmp144883)))) (declare (not safe)) - (__foldr1 cons __tmp145786 __tmp145783)))))) - (let* ((_%g140206140223%_ - (lambda (_%g140207140220%_) + (__foldr1 cons __tmp144885 __tmp144882)))))) + (let* ((_%g139356139373%_ + (lambda (_%g139357139370%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140207140220%_)))) - (_%g140205140269%_ - (lambda (_%g140207140226%_) + _%g139357139370%_)))) + (_%g139355139419%_ + (lambda (_%g139357139376%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140207140226%_)) - (let ((_%e140212140228%_ + (gx#stx-pair? _%g139357139376%_)) + (let ((_%e139362139378%_ (let () (declare (not safe)) - (gx#stx-e _%g140207140226%_)))) - (let ((_%hd140211140231%_ + (gx#stx-e _%g139357139376%_)))) + (let ((_%hd139361139381%_ (let () (declare (not safe)) - (##car _%e140212140228%_))) - (_%tl140210140233%_ + (##car _%e139362139378%_))) + (_%tl139360139383%_ (let () (declare (not safe)) - (##cdr _%e140212140228%_)))) + (##cdr _%e139362139378%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140210140233%_)) - (let ((_%e140215140236%_ + (gx#stx-pair? _%tl139360139383%_)) + (let ((_%e139365139386%_ (let () (declare (not safe)) - (gx#stx-e _%tl140210140233%_)))) - (let ((_%hd140214140239%_ + (gx#stx-e _%tl139360139383%_)))) + (let ((_%hd139364139389%_ (let () (declare (not safe)) - (##car _%e140215140236%_))) - (_%tl140213140241%_ + (##car _%e139365139386%_))) + (_%tl139363139391%_ (let () (declare (not safe)) - (##cdr _%e140215140236%_)))) + (##cdr _%e139365139386%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140213140241%_)) - (let ((_%e140218140244%_ + (gx#stx-pair? _%tl139363139391%_)) + (let ((_%e139368139394%_ (let () (declare (not safe)) (gx#stx-e - _%tl140213140241%_)))) - (let ((_%hd140217140247%_ + _%tl139363139391%_)))) + (let ((_%hd139367139397%_ (let () (declare (not safe)) - (##car _%e140218140244%_))) - (_%tl140216140249%_ + (##car _%e139368139394%_))) + (_%tl139366139399%_ (let () (declare (not safe)) - (##cdr _%e140218140244%_)))) + (##cdr _%e139368139394%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140216140249%_)) - ((lambda (_%L140252%_ - _%L140253%_) - (if (let () - (declare (not safe)) - (gxc#generate-runtime-simple-let? - _%L140253%_)) - (let () - (declare (not safe)) - (_%generate-simple140201%_ - _%L140253%_ - _%L140252%_)) - (let () - (declare (not safe)) - (_%generate-values140202%_ - _%L140253%_ - _%L140252%_)))) - _%hd140217140247%_ - _%hd140214140239%_) - (let () - (declare (not safe)) - (_%g140206140223%_ - _%g140207140226%_))))) - (let () - (declare (not safe)) - (_%g140206140223%_ - _%g140207140226%_))))) - (let () - (declare (not safe)) - (_%g140206140223%_ _%g140207140226%_))))) - (let () - (declare (not safe)) - (_%g140206140223%_ _%g140207140226%_)))))) - (declare (not safe)) - (_%g140205140269%_ _%stx140198%_))))) + _%tl139366139399%_)) + ((lambda (_%L139402%_ + _%L139403%_) + (if (gxc#generate-runtime-simple-let? + _%L139403%_) + (_%generate-simple139351%_ + _%L139403%_ + _%L139402%_) + (_%generate-values139352%_ + _%L139403%_ + _%L139402%_))) + _%hd139367139397%_ + _%hd139364139389%_) + (_%g139356139373%_ + _%g139357139376%_)))) + (_%g139356139373%_ + _%g139357139376%_)))) + (_%g139356139373%_ _%g139357139376%_)))) + (_%g139356139373%_ _%g139357139376%_))))) + (_%g139355139419%_ _%stx139348%_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_%self140509%_ _%stx140510%_) - (let ((_%compiled-body?140512%_ '#f)) - (declare (not safe)) + (lambda (_%self139659%_ _%stx139660%_) + (let ((_%compiled-body?139662%_ '#f)) (gxc#generate-runtime-letrec-values%__% - _%self140509%_ - _%stx140510%_ - _%compiled-body?140512%_)))) + _%self139659%_ + _%stx139660%_ + _%compiled-body?139662%_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g145788_ - (let ((_g145787_ (let () (declare (not safe)) (##length _g145788_)))) - (cond ((let () (declare (not safe)) (##fx= _g145787_ 2)) - (apply (lambda (_%self140509%_ _%stx140510%_) - (let () - (declare (not safe)) - (gxc#generate-runtime-letrec-values%__0 - _%self140509%_ - _%stx140510%_))) - _g145788_)) - ((let () (declare (not safe)) (##fx= _g145787_ 3)) - (apply (lambda (_%self140514%_ - _%stx140515%_ - _%compiled-body?140516%_) - (let () - (declare (not safe)) - (gxc#generate-runtime-letrec-values%__% - _%self140514%_ - _%stx140515%_ - _%compiled-body?140516%_))) - _g145788_)) + (lambda _g144887_ + (let ((_g144886_ (let () (declare (not safe)) (##length _g144887_)))) + (cond ((let () (declare (not safe)) (##fx= _g144886_ 2)) + (apply gxc#generate-runtime-letrec-values%__0 _g144887_)) + ((let () (declare (not safe)) (##fx= _g144886_ 3)) + (apply gxc#generate-runtime-letrec-values%__% _g144887_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g145788_)))))) + _g144887_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_%self139778%_ _%stx139779%_) - (letrec ((_%generate-values139781%_ - (lambda (_%hd140024%_ _%body140025%_) - (let _%lp140027%_ ((_%rest140029%_ _%hd140024%_) - (_%bind140030%_ '())) - (let* ((_%rest140031140039%_ _%rest140029%_) - (_%else140033140050%_ + (lambda (_%self138928%_ _%stx138929%_) + (letrec ((_%generate-values138931%_ + (lambda (_%hd139174%_ _%body139175%_) + (let _%lp139177%_ ((_%rest139179%_ _%hd139174%_) + (_%bind139180%_ '())) + (let* ((_%rest139181139189%_ _%rest139179%_) + (_%else139183139200%_ (lambda () - (let ((_%bind140047%_ (reverse _%bind140030%_)) - (_%body140048%_ + (let ((_%bind139197%_ (reverse _%bind139180%_)) + (_%body139198%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self139778%_ - _%body140025%_)))) + _%self138928%_ + _%body139175%_)))) (cons 'letrec* - (cons _%bind140047%_ - (cons _%body140048%_ '())))))) - (_%K140035140184%_ - (lambda (_%rest140053%_ _%hd-bind140054%_) - (let* ((_%__stx144991144992%_ - _%hd-bind140054%_) - (_%g140057140082%_ + (cons _%bind139197%_ + (cons _%body139198%_ '())))))) + (_%K139185139334%_ + (lambda (_%rest139203%_ _%hd-bind139204%_) + (let* ((_%__stx144128144129%_ + _%hd-bind139204%_) + (_%g139207139232%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx144991144992%_))))) - (let ((_%__kont144993144994%_ - (lambda (_%L140163%_ _%L140164%_) - (let ((_%eid140178%_ + _%__stx144128144129%_))))) + (let ((_%__kont144130144131%_ + (lambda (_%L139313%_ _%L139314%_) + (let ((_%eid139328%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L140164%_))) - (_%expr140179%_ + _%L139314%_))) + (_%expr139329%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self139778%_ - _%L140163%_)))) - (let ((__tmp145789 - (cons (cons _%eid140178%_ - (cons _%expr140179%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - _%bind140030%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp140027%_ - _%rest140053%_ - __tmp145789))))) - (_%__kont144995144996%_ - (lambda (_%L140103%_ _%L140104%_) - (let* ((_%vals140123%_ + _%self138928%_ + _%L139313%_)))) + (_%lp139177%_ + _%rest139203%_ + (cons (cons _%eid139328%_ + (cons _%expr139329%_ + '())) + _%bind139180%_))))) + (_%__kont144132144133%_ + (lambda (_%L139253%_ _%L139254%_) + (let* ((_%vals139273%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%tmp140125%_ + (_%tmp139275%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values140127%_ - (let () - (declare (not safe)) - (gxc#generate-runtime-check-values - _%tmp140125%_ - _%L140104%_ - _%L140103%_))) - (_%refs140129%_ - (let () - (declare (not safe)) - (gxc#generate-runtime-let-values-bind - _%vals140123%_ - _%L140104%_))) - (_%expr140131%_ + (_%check-values139277%_ + (gxc#generate-runtime-check-values + _%tmp139275%_ + _%L139254%_ + _%L139253%_)) + (_%refs139279%_ + (gxc#generate-runtime-let-values-bind + _%vals139273%_ + _%L139254%_)) + (_%expr139281%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self139778%_ - _%L140103%_))) - (__tmp145790 - (let ((__tmp145791 - (cons (cons _%vals140123%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons 'let - (cons (cons (cons _%tmp140125%_ - (cons _%expr140131%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%check-values140127%_ - (cons _%tmp140125%_ - '())))) - '())) - _%bind140030%_))) + _%self138928%_ + _%L139253%_)))) + (_%lp139177%_ + _%rest139203%_ + (let ((__tmp144888 + (cons (cons _%vals139273%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons 'let + (cons (cons (cons _%tmp139275%_ + (cons _%expr139281%_ + '())) + '()) + (cons _%check-values139277%_ + (cons _%tmp139275%_ '())))) + '())) + _%bind139180%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldl1 - cons - __tmp145791 - _%refs140129%_)))) - (declare (not safe)) - (_%lp140027%_ - _%rest140053%_ - __tmp145790))))) + (declare (not safe)) + (__foldl1 + cons + __tmp144888 + _%refs139279%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx144991144992%_)) - (let ((_%e140063140139%_ + (gx#stx-pair? _%__stx144128144129%_)) + (let ((_%e139213139289%_ (let () (declare (not safe)) (gx#stx-e - _%__stx144991144992%_)))) - (let ((_%tl140061140144%_ + _%__stx144128144129%_)))) + (let ((_%tl139211139294%_ (let () (declare (not safe)) - (##cdr _%e140063140139%_))) - (_%hd140062140142%_ + (##cdr _%e139213139289%_))) + (_%hd139212139292%_ (let () (declare (not safe)) - (##car _%e140063140139%_)))) + (##car _%e139213139289%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd140062140142%_)) - (let ((_%e140066140147%_ + _%hd139212139292%_)) + (let ((_%e139216139297%_ (let () (declare (not safe)) (gx#stx-e - _%hd140062140142%_)))) - (let ((_%tl140064140152%_ + _%hd139212139292%_)))) + (let ((_%tl139214139302%_ (let () (declare (not safe)) - (##cdr _%e140066140147%_))) - (_%hd140065140150%_ + (##cdr _%e139216139297%_))) + (_%hd139215139300%_ (let () (declare (not safe)) - (##car _%e140066140147%_)))) + (##car _%e139216139297%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140064140152%_)) + _%tl139214139302%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140061140144%_)) - (let ((_%e140069140155%_ + _%tl139211139294%_)) + (let ((_%e139219139305%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl140061140144%_)))) - (let ((_%tl140067140160%_ + (gx#stx-e _%tl139211139294%_)))) + (let ((_%tl139217139310%_ (let () (declare (not safe)) - (##cdr _%e140069140155%_))) - (_%hd140068140158%_ + (##cdr _%e139219139305%_))) + (_%hd139218139308%_ (let () (declare (not safe)) - (##car _%e140069140155%_)))) + (##car _%e139219139305%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140067140160%_)) - (_%__kont144993144994%_ - _%hd140068140158%_ - _%hd140065140150%_) + (gx#stx-null? _%tl139217139310%_)) + (_%__kont144130144131%_ + _%hd139218139308%_ + _%hd139215139300%_) (let () (declare (not safe)) - (_%g140057140082%_))))) - (let () (declare (not safe)) (_%g140057140082%_))) + (_%g139207139232%_))))) + (let () (declare (not safe)) (_%g139207139232%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140061140144%_)) - (let ((_%e140077140095%_ + (gx#stx-pair? _%tl139211139294%_)) + (let ((_%e139227139245%_ (let () (declare (not safe)) - (gx#stx-e _%tl140061140144%_)))) - (let ((_%tl140075140100%_ + (gx#stx-e _%tl139211139294%_)))) + (let ((_%tl139225139250%_ (let () (declare (not safe)) - (##cdr _%e140077140095%_))) - (_%hd140076140098%_ + (##cdr _%e139227139245%_))) + (_%hd139226139248%_ (let () (declare (not safe)) - (##car _%e140077140095%_)))) + (##car _%e139227139245%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140075140100%_)) - (_%__kont144995144996%_ - _%hd140076140098%_ - _%hd140062140142%_) + (gx#stx-null? _%tl139225139250%_)) + (_%__kont144132144133%_ + _%hd139226139248%_ + _%hd139212139292%_) (let () (declare (not safe)) - (_%g140057140082%_))))) - (let () (declare (not safe)) (_%g140057140082%_)))))) + (_%g139207139232%_))))) + (let () (declare (not safe)) (_%g139207139232%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140061140144%_)) - (let ((_%e140077140095%_ + _%tl139211139294%_)) + (let ((_%e139227139245%_ (let () (declare (not safe)) (gx#stx-e - _%tl140061140144%_)))) - (let ((_%tl140075140100%_ + _%tl139211139294%_)))) + (let ((_%tl139225139250%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e140077140095%_))) - (_%hd140076140098%_ - (let () (declare (not safe)) (##car _%e140077140095%_)))) + (##cdr _%e139227139245%_))) + (_%hd139226139248%_ + (let () (declare (not safe)) (##car _%e139227139245%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140075140100%_)) - (_%__kont144995144996%_ - _%hd140076140098%_ - _%hd140062140142%_) - (let () (declare (not safe)) (_%g140057140082%_))))) + (gx#stx-null? _%tl139225139250%_)) + (_%__kont144132144133%_ + _%hd139226139248%_ + _%hd139212139292%_) + (let () (declare (not safe)) (_%g139207139232%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g140057140082%_)))))) + (_%g139207139232%_)))))) (let () (declare (not safe)) - (_%g140057140082%_)))))))) + (_%g139207139232%_)))))))) (if (let () (declare (not safe)) - (##pair? _%rest140031140039%_)) - (let ((_%hd140036140187%_ + (##pair? _%rest139181139189%_)) + (let ((_%hd139186139337%_ (let () (declare (not safe)) - (##car _%rest140031140039%_))) - (_%tl140037140189%_ + (##car _%rest139181139189%_))) + (_%tl139187139339%_ (let () (declare (not safe)) - (##cdr _%rest140031140039%_)))) - (let* ((_%hd-bind140192%_ _%hd140036140187%_) - (_%rest140194%_ _%tl140037140189%_)) - (declare (not safe)) - (_%K140035140184%_ - _%rest140194%_ - _%hd-bind140192%_))) - (let () - (declare (not safe)) - (_%else140033140050%_))))))) - (_%generate-letrec?139782%_ - (lambda (_%hd139914%_) - (let _%lp139916%_ ((_%rest139918%_ _%hd139914%_)) - (let* ((_%rest139919139927%_ _%rest139918%_) - (_%else139921139935%_ (lambda () '#t)) - (_%K139923140012%_ - (lambda (_%rest139938%_ _%hd-bind139939%_) - (let* ((_%g139941139958%_ - (lambda (_%g139942139955%_) + (##cdr _%rest139181139189%_)))) + (let* ((_%hd-bind139342%_ _%hd139186139337%_) + (_%rest139344%_ _%tl139187139339%_)) + (_%K139185139334%_ + _%rest139344%_ + _%hd-bind139342%_))) + (_%else139183139200%_)))))) + (_%generate-letrec?138932%_ + (lambda (_%hd139064%_) + (let _%lp139066%_ ((_%rest139068%_ _%hd139064%_)) + (let* ((_%rest139069139077%_ _%rest139068%_) + (_%else139071139085%_ (lambda () '#t)) + (_%K139073139162%_ + (lambda (_%rest139088%_ _%hd-bind139089%_) + (let* ((_%g139091139108%_ + (lambda (_%g139092139105%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139942139955%_)))) - (_%g139940140009%_ - (lambda (_%g139942139961%_) + _%g139092139105%_)))) + (_%g139090139159%_ + (lambda (_%g139092139111%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g139942139961%_)) - (let ((_%e139947139963%_ + _%g139092139111%_)) + (let ((_%e139097139113%_ (let () (declare (not safe)) (gx#stx-e - _%g139942139961%_)))) - (let ((_%hd139946139966%_ + _%g139092139111%_)))) + (let ((_%hd139096139116%_ (let () (declare (not safe)) - (##car _%e139947139963%_))) - (_%tl139945139968%_ + (##car _%e139097139113%_))) + (_%tl139095139118%_ (let () (declare (not safe)) - (##cdr _%e139947139963%_)))) + (##cdr _%e139097139113%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd139946139966%_)) - (let ((_%e139950139971%_ + _%hd139096139116%_)) + (let ((_%e139100139121%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd139946139966%_)))) - (let ((_%hd139949139974%_ - (let () (declare (not safe)) (##car _%e139950139971%_))) - (_%tl139948139976%_ + (gx#stx-e _%hd139096139116%_)))) + (let ((_%hd139099139124%_ + (let () (declare (not safe)) (##car _%e139100139121%_))) + (_%tl139098139126%_ (let () (declare (not safe)) - (##cdr _%e139950139971%_)))) + (##cdr _%e139100139121%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139948139976%_)) + (gx#stx-null? _%tl139098139126%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139945139968%_)) - (let ((_%e139953139979%_ + (gx#stx-pair? _%tl139095139118%_)) + (let ((_%e139103139129%_ (let () (declare (not safe)) - (gx#stx-e _%tl139945139968%_)))) - (let ((_%hd139952139982%_ + (gx#stx-e _%tl139095139118%_)))) + (let ((_%hd139102139132%_ (let () (declare (not safe)) - (##car _%e139953139979%_))) - (_%tl139951139984%_ + (##car _%e139103139129%_))) + (_%tl139101139134%_ (let () (declare (not safe)) - (##cdr _%e139953139979%_)))) + (##cdr _%e139103139129%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139951139984%_)) - ((lambda (_%L139987%_ _%L139988%_) - (if (let () - (declare (not safe)) - (_%is-lambda-expr?139783%_ - _%L139987%_)) - (let () - (declare (not safe)) - (_%lp139916%_ _%rest139938%_)) + (gx#stx-null? _%tl139101139134%_)) + ((lambda (_%L139137%_ _%L139138%_) + (if (_%is-lambda-expr?138933%_ + _%L139137%_) + (_%lp139066%_ _%rest139088%_) '#f)) - _%hd139952139982%_ - _%hd139949139974%_) - (let () - (declare (not safe)) - (_%g139941139958%_ _%g139942139961%_))))) - (let () - (declare (not safe)) - (_%g139941139958%_ _%g139942139961%_))) - (let () - (declare (not safe)) - (_%g139941139958%_ _%g139942139961%_))))) - (let () - (declare (not safe)) - (_%g139941139958%_ _%g139942139961%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g139941139958%_ - _%g139942139961%_)))))) - (declare (not safe)) - (_%g139940140009%_ _%hd-bind139939%_))))) + _%hd139102139132%_ + _%hd139099139124%_) + (_%g139091139108%_ _%g139092139111%_)))) + (_%g139091139108%_ _%g139092139111%_)) + (_%g139091139108%_ _%g139092139111%_)))) + (_%g139091139108%_ _%g139092139111%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g139091139108%_ + _%g139092139111%_))))) + (_%g139090139159%_ _%hd-bind139089%_))))) (if (let () (declare (not safe)) - (##pair? _%rest139919139927%_)) - (let ((_%hd139924140015%_ + (##pair? _%rest139069139077%_)) + (let ((_%hd139074139165%_ (let () (declare (not safe)) - (##car _%rest139919139927%_))) - (_%tl139925140017%_ + (##car _%rest139069139077%_))) + (_%tl139075139167%_ (let () (declare (not safe)) - (##cdr _%rest139919139927%_)))) - (let* ((_%hd-bind140020%_ _%hd139924140015%_) - (_%rest140022%_ _%tl139925140017%_)) - (declare (not safe)) - (_%K139923140012%_ - _%rest140022%_ - _%hd-bind140020%_))) - (let () - (declare (not safe)) - (_%else139921139935%_))))))) - (_%is-lambda-expr?139783%_ - (lambda (_%expr139851%_) - (let* ((_%__stx145035145036%_ _%expr139851%_) - (_%g139854139868%_ + (##cdr _%rest139069139077%_)))) + (let* ((_%hd-bind139170%_ _%hd139074139165%_) + (_%rest139172%_ _%tl139075139167%_)) + (_%K139073139162%_ + _%rest139172%_ + _%hd-bind139170%_))) + (_%else139071139085%_)))))) + (_%is-lambda-expr?138933%_ + (lambda (_%expr139001%_) + (let* ((_%__stx144172144173%_ _%expr139001%_) + (_%g139004139018%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx145035145036%_))))) - (let ((_%__kont145037145038%_ - (lambda (_%L139896%_ _%L139897%_) '#t)) - (_%__kont145039145040%_ (lambda () '#f))) + _%__stx144172144173%_))))) + (let ((_%__kont144174144175%_ + (lambda (_%L139046%_ _%L139047%_) '#t)) + (_%__kont144176144177%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx145035145036%_)) - (let ((_%e139860139880%_ + (gx#stx-pair? _%__stx144172144173%_)) + (let ((_%e139010139030%_ (let () (declare (not safe)) - (gx#stx-e _%__stx145035145036%_)))) - (let ((_%tl139858139885%_ + (gx#stx-e _%__stx144172144173%_)))) + (let ((_%tl139008139035%_ (let () (declare (not safe)) - (##cdr _%e139860139880%_))) - (_%hd139859139883%_ + (##cdr _%e139010139030%_))) + (_%hd139009139033%_ (let () (declare (not safe)) - (##car _%e139860139880%_)))) + (##car _%e139010139030%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd139859139883%_)) + (gx#identifier? _%hd139009139033%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd139859139883%_)) + _%hd139009139033%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139858139885%_)) - (let ((_%e139863139888%_ + _%tl139008139035%_)) + (let ((_%e139013139038%_ (let () (declare (not safe)) (gx#stx-e - _%tl139858139885%_)))) - (let ((_%tl139861139893%_ + _%tl139008139035%_)))) + (let ((_%tl139011139043%_ (let () (declare (not safe)) - (##cdr _%e139863139888%_))) - (_%hd139862139891%_ + (##cdr _%e139013139038%_))) + (_%hd139012139041%_ (let () (declare (not safe)) - (##car _%e139863139888%_)))) - (_%__kont145037145038%_ - _%tl139861139893%_ - _%hd139862139891%_))) - (_%__kont145039145040%_)) - (_%__kont145039145040%_)) - (_%__kont145039145040%_)))) - (_%__kont145039145040%_))))))) - (let* ((_%g139785139802%_ - (lambda (_%g139786139799%_) + (##car _%e139013139038%_)))) + (_%__kont144174144175%_ + _%tl139011139043%_ + _%hd139012139041%_))) + (_%__kont144176144177%_)) + (_%__kont144176144177%_)) + (_%__kont144176144177%_)))) + (_%__kont144176144177%_))))))) + (let* ((_%g138935138952%_ + (lambda (_%g138936138949%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139786139799%_)))) - (_%g139784139848%_ - (lambda (_%g139786139805%_) + _%g138936138949%_)))) + (_%g138934138998%_ + (lambda (_%g138936138955%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139786139805%_)) - (let ((_%e139791139807%_ + (gx#stx-pair? _%g138936138955%_)) + (let ((_%e138941138957%_ (let () (declare (not safe)) - (gx#stx-e _%g139786139805%_)))) - (let ((_%hd139790139810%_ + (gx#stx-e _%g138936138955%_)))) + (let ((_%hd138940138960%_ (let () (declare (not safe)) - (##car _%e139791139807%_))) - (_%tl139789139812%_ + (##car _%e138941138957%_))) + (_%tl138939138962%_ (let () (declare (not safe)) - (##cdr _%e139791139807%_)))) + (##cdr _%e138941138957%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139789139812%_)) - (let ((_%e139794139815%_ + (gx#stx-pair? _%tl138939138962%_)) + (let ((_%e138944138965%_ (let () (declare (not safe)) - (gx#stx-e _%tl139789139812%_)))) - (let ((_%hd139793139818%_ + (gx#stx-e _%tl138939138962%_)))) + (let ((_%hd138943138968%_ (let () (declare (not safe)) - (##car _%e139794139815%_))) - (_%tl139792139820%_ + (##car _%e138944138965%_))) + (_%tl138942138970%_ (let () (declare (not safe)) - (##cdr _%e139794139815%_)))) + (##cdr _%e138944138965%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139792139820%_)) - (let ((_%e139797139823%_ + (gx#stx-pair? _%tl138942138970%_)) + (let ((_%e138947138973%_ (let () (declare (not safe)) (gx#stx-e - _%tl139792139820%_)))) - (let ((_%hd139796139826%_ + _%tl138942138970%_)))) + (let ((_%hd138946138976%_ (let () (declare (not safe)) - (##car _%e139797139823%_))) - (_%tl139795139828%_ + (##car _%e138947138973%_))) + (_%tl138945138978%_ (let () (declare (not safe)) - (##cdr _%e139797139823%_)))) + (##cdr _%e138947138973%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139795139828%_)) - ((lambda (_%L139831%_ - _%L139832%_) - (if (let () - (declare (not safe)) - (gxc#generate-runtime-simple-let? - _%L139832%_)) - (if (let () - (declare - (not safe)) - (_%generate-letrec?139782%_ - _%L139832%_)) - (let () - (declare - (not safe)) - (gxc#generate-runtime-simple-let - _%self139778%_ - 'letrec - _%L139832%_ - _%L139831%_ - '#f)) - (let () - (declare - (not safe)) - (gxc#generate-runtime-simple-let - _%self139778%_ - 'letrec* - _%L139832%_ - _%L139831%_ - '#f))) - (let () - (declare (not safe)) - (_%generate-values139781%_ - _%L139832%_ - _%L139831%_)))) - _%hd139796139826%_ - _%hd139793139818%_) - (let () - (declare (not safe)) - (_%g139785139802%_ - _%g139786139805%_))))) - (let () - (declare (not safe)) - (_%g139785139802%_ - _%g139786139805%_))))) - (let () - (declare (not safe)) - (_%g139785139802%_ _%g139786139805%_))))) - (let () - (declare (not safe)) - (_%g139785139802%_ _%g139786139805%_)))))) - (declare (not safe)) - (_%g139784139848%_ _%stx139779%_))))) + _%tl138945138978%_)) + ((lambda (_%L138981%_ + _%L138982%_) + (if (gxc#generate-runtime-simple-let? + _%L138982%_) + (if (_%generate-letrec?138932%_ + _%L138982%_) + (gxc#generate-runtime-simple-let + _%self138928%_ + 'letrec + _%L138982%_ + _%L138981%_ + '#f) + (gxc#generate-runtime-simple-let + _%self138928%_ + 'letrec* + _%L138982%_ + _%L138981%_ + '#f)) + (_%generate-values138931%_ + _%L138982%_ + _%L138981%_))) + _%hd138946138976%_ + _%hd138943138968%_) + (_%g138935138952%_ + _%g138936138955%_)))) + (_%g138935138952%_ + _%g138936138955%_)))) + (_%g138935138952%_ _%g138936138955%_)))) + (_%g138935138952%_ _%g138936138955%_))))) + (_%g138934138998%_ _%stx138929%_))))) (define gxc#generate-runtime-simple-let? - (lambda (_%hd139715%_) - (let _%lp139717%_ ((_%rest139719%_ _%hd139715%_)) - (let* ((_%rest139720139736%_ _%rest139719%_) - (_%else139723139744%_ (lambda () '#f))) - (let ((_%K139726139757%_ - (lambda (_%rest139755%_) - (let () - (declare (not safe)) - (_%lp139717%_ _%rest139755%_)))) - (_%K139725139749%_ (lambda () '#t))) - (let ((_%try-match139722139752%_ + (lambda (_%hd138865%_) + (let _%lp138867%_ ((_%rest138869%_ _%hd138865%_)) + (let* ((_%rest138870138886%_ _%rest138869%_) + (_%else138873138894%_ (lambda () '#f))) + (let ((_%K138876138907%_ + (lambda (_%rest138905%_) (_%lp138867%_ _%rest138905%_))) + (_%K138875138899%_ (lambda () '#t))) + (let ((_%try-match138872138902%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest139720139736%_)) - (let () (declare (not safe)) (_%K139725139749%_)) - (let () - (declare (not safe)) - (_%else139723139744%_)))))) + (##null? _%rest138870138886%_)) + (_%K138875138899%_) + (_%else138873138894%_))))) (if (let () (declare (not safe)) - (##pair? _%rest139720139736%_)) - (let ((_%tl139728139762%_ + (##pair? _%rest138870138886%_)) + (let ((_%tl138878138912%_ (let () (declare (not safe)) - (##cdr _%rest139720139736%_))) - (_%hd139727139760%_ + (##cdr _%rest138870138886%_))) + (_%hd138877138910%_ (let () (declare (not safe)) - (##car _%rest139720139736%_)))) + (##car _%rest138870138886%_)))) (if (let () (declare (not safe)) - (##pair? _%hd139727139760%_)) - (let ((_%tl139730139767%_ + (##pair? _%hd138877138910%_)) + (let ((_%tl138880138917%_ (let () (declare (not safe)) - (##cdr _%hd139727139760%_))) - (_%hd139729139765%_ + (##cdr _%hd138877138910%_))) + (_%hd138879138915%_ (let () (declare (not safe)) - (##car _%hd139727139760%_)))) + (##car _%hd138877138910%_)))) (if (let () (declare (not safe)) - (##pair? _%hd139729139765%_)) - (let ((_%tl139734139770%_ + (##pair? _%hd138879138915%_)) + (let ((_%tl138884138920%_ (let () (declare (not safe)) - (##cdr _%hd139729139765%_)))) + (##cdr _%hd138879138915%_)))) (if (let () (declare (not safe)) - (##null? _%tl139734139770%_)) + (##null? _%tl138884138920%_)) (if (let () (declare (not safe)) - (##pair? _%tl139730139767%_)) - (let ((_%tl139732139773%_ + (##pair? _%tl138880138917%_)) + (let ((_%tl138882138923%_ (let () (declare (not safe)) - (##cdr _%tl139730139767%_)))) + (##cdr _%tl138880138917%_)))) (if (let () (declare (not safe)) - (##null? _%tl139732139773%_)) - (let ((_%rest139776%_ - _%tl139728139762%_)) - (declare (not safe)) - (_%lp139717%_ - _%rest139776%_)) - (let () - (declare (not safe)) - (_%else139723139744%_)))) - (let () - (declare (not safe)) - (_%else139723139744%_))) - (let () - (declare (not safe)) - (_%else139723139744%_)))) - (let () - (declare (not safe)) - (_%else139723139744%_)))) - (let () - (declare (not safe)) - (_%else139723139744%_)))) - (let () - (declare (not safe)) - (_%try-match139722139752%_))))))))) + (##null? _%tl138882138923%_)) + (let ((_%rest138926%_ + _%tl138878138912%_)) + (_%lp138867%_ + _%rest138926%_)) + (_%else138873138894%_))) + (_%else138873138894%_)) + (_%else138873138894%_))) + (_%else138873138894%_))) + (_%else138873138894%_))) + (_%try-match138872138902%_)))))))) (define gxc#generate-runtime-simple-let - (lambda (_%self139626%_ - _%form139627%_ - _%hd139628%_ - _%body139629%_ - _%compiled-body?139630%_) - (letrec ((_%generate1139632%_ - (lambda (_%bind139671%_) - (let* ((_%bind139672139683%_ _%bind139671%_) - (_%E139674139687%_ + (lambda (_%self138776%_ + _%form138777%_ + _%hd138778%_ + _%body138779%_ + _%compiled-body?138780%_) + (letrec ((_%generate1138782%_ + (lambda (_%bind138821%_) + (let* ((_%bind138822138833%_ _%bind138821%_) + (_%E138824138837%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind139672139683%_ + _%bind138822138833%_ '([[id] expr]))) '#!void)) - (_%K139675139693%_ - (lambda (_%expr139690%_ _%id139691%_) + (_%K138825138843%_ + (lambda (_%expr138840%_ _%id138841%_) (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%id139691%_)) + _%id138841%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139626%_ - _%expr139690%_)) + _%self138776%_ + _%expr138840%_)) '()))))) (if (let () (declare (not safe)) - (##pair? _%bind139672139683%_)) - (let ((_%hd139676139696%_ + (##pair? _%bind138822138833%_)) + (let ((_%hd138826138846%_ (let () (declare (not safe)) - (##car _%bind139672139683%_))) - (_%tl139677139698%_ + (##car _%bind138822138833%_))) + (_%tl138827138848%_ (let () (declare (not safe)) - (##cdr _%bind139672139683%_)))) + (##cdr _%bind138822138833%_)))) (if (let () (declare (not safe)) - (##pair? _%hd139676139696%_)) - (let ((_%hd139680139701%_ + (##pair? _%hd138826138846%_)) + (let ((_%hd138830138851%_ (let () (declare (not safe)) - (##car _%hd139676139696%_))) - (_%tl139681139703%_ + (##car _%hd138826138846%_))) + (_%tl138831138853%_ (let () (declare (not safe)) - (##cdr _%hd139676139696%_)))) - (let ((_%id139706%_ _%hd139680139701%_)) + (##cdr _%hd138826138846%_)))) + (let ((_%id138856%_ _%hd138830138851%_)) (if (let () (declare (not safe)) - (##null? _%tl139681139703%_)) + (##null? _%tl138831138853%_)) (if (let () (declare (not safe)) - (##pair? _%tl139677139698%_)) - (let ((_%hd139678139708%_ + (##pair? _%tl138827138848%_)) + (let ((_%hd138828138858%_ (let () (declare (not safe)) - (##car _%tl139677139698%_))) - (_%tl139679139710%_ + (##car _%tl138827138848%_))) + (_%tl138829138860%_ (let () (declare (not safe)) - (##cdr _%tl139677139698%_)))) - (let ((_%expr139713%_ - _%hd139678139708%_)) + (##cdr _%tl138827138848%_)))) + (let ((_%expr138863%_ + _%hd138828138858%_)) (if (let () (declare (not safe)) - (##null? _%tl139679139710%_)) - (let () - (declare (not safe)) - (_%K139675139693%_ - _%expr139713%_ - _%id139706%_)) - (let () - (declare (not safe)) - (_%E139674139687%_))))) - (let () - (declare (not safe)) - (_%E139674139687%_))) - (let () - (declare (not safe)) - (_%E139674139687%_))))) - (let () - (declare (not safe)) - (_%E139674139687%_)))) - (let () - (declare (not safe)) - (_%E139674139687%_))))))) - (let* ((_%bind139634%_ (map _%generate1139632%_ _%hd139628%_)) - (_%body139636%_ - (if _%compiled-body?139630%_ - _%body139629%_ + (##null? _%tl138829138860%_)) + (_%K138825138843%_ + _%expr138863%_ + _%id138856%_) + (_%E138824138837%_)))) + (_%E138824138837%_)) + (_%E138824138837%_)))) + (_%E138824138837%_))) + (_%E138824138837%_)))))) + (let* ((_%bind138784%_ (map _%generate1138782%_ _%hd138778%_)) + (_%body138786%_ + (if _%compiled-body?138780%_ + _%body138779%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self139626%_ _%body139629%_)))) - (_%body139668%_ - (let* ((_%body139637139645%_ _%body139636%_) - (_%else139639139653%_ - (lambda () (cons _%body139636%_ '()))) - (_%K139641139658%_ - (lambda (_%exprs139656%_) _%exprs139656%_))) + (gxc#compile-e__1 _%self138776%_ _%body138779%_)))) + (_%body138818%_ + (let* ((_%body138787138795%_ _%body138786%_) + (_%else138789138803%_ + (lambda () (cons _%body138786%_ '()))) + (_%K138791138808%_ + (lambda (_%exprs138806%_) _%exprs138806%_))) (if (let () (declare (not safe)) - (##pair? _%body139637139645%_)) - (let ((_%hd139642139661%_ + (##pair? _%body138787138795%_)) + (let ((_%hd138792138811%_ (let () (declare (not safe)) - (##car _%body139637139645%_))) - (_%tl139643139663%_ + (##car _%body138787138795%_))) + (_%tl138793138813%_ (let () (declare (not safe)) - (##cdr _%body139637139645%_)))) + (##cdr _%body138787138795%_)))) (if (let () (declare (not safe)) - (##eq? _%hd139642139661%_ 'begin)) - (let ((_%exprs139666%_ _%tl139643139663%_)) - (declare (not safe)) - (_%K139641139658%_ _%exprs139666%_)) - (let () - (declare (not safe)) - (_%else139639139653%_)))) - (let () - (declare (not safe)) - (_%else139639139653%_)))))) - (cons _%form139627%_ (cons _%bind139634%_ _%body139668%_)))))) + (##eq? _%hd138792138811%_ 'begin)) + (let ((_%exprs138816%_ _%tl138793138813%_)) + (_%K138791138808%_ _%exprs138816%_)) + (_%else138789138803%_))) + (_%else138789138803%_))))) + (cons _%form138777%_ (cons _%bind138784%_ _%body138818%_)))))) (define gxc#generate-runtime-quote% - (lambda (_%self139526%_ _%stx139527%_) - (letrec ((_%generate1139529%_ - (lambda (_%datum139581%_) - (if (or (let () - (declare (not safe)) - (null? _%datum139581%_)) + (lambda (_%self138676%_ _%stx138677%_) + (letrec ((_%generate1138679%_ + (lambda (_%datum138731%_) + (if (or (null? _%datum138731%_) (let () (declare (not safe)) - (interned-symbol? _%datum139581%_)) + (interned-symbol? _%datum138731%_)) (let () (declare (not safe)) - (gx#self-quoting? _%datum139581%_)) - (let () - (declare (not safe)) - (eof-object? _%datum139581%_))) - (let () _%datum139581%_) - (if (uninterned-symbol? _%datum139581%_) + (gx#self-quoting? _%datum138731%_)) + (eof-object? _%datum138731%_)) + _%datum138731%_ + (if (uninterned-symbol? _%datum138731%_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _%datum139581%_ + _%datum138731%_ '#t)) + (if (pair? _%datum138731%_) + (cons (_%generate1138679%_ + (car _%datum138731%_)) + (_%generate1138679%_ + (cdr _%datum138731%_))) + (if (box? _%datum138731%_) + (box (_%generate1138679%_ + (unbox _%datum138731%_))) + (if (vector? _%datum138731%_) + (vector-map + _%generate1138679%_ + _%datum138731%_) + (if (or (s8vector? _%datum138731%_) + (u8vector? _%datum138731%_) + (s16vector? _%datum138731%_) + (u16vector? _%datum138731%_) + (s32vector? _%datum138731%_) + (u32vector? _%datum138731%_) + (s64vector? _%datum138731%_) + (u64vector? _%datum138731%_) + (f32vector? _%datum138731%_) + (f64vector? _%datum138731%_)) + _%datum138731%_ + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Cannot compile non-primitive quote" + _%stx138677%_))))))))))) + (let* ((_%g138681138694%_ + (lambda (_%g138682138691%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g138682138691%_)))) + (_%g138680138728%_ + (lambda (_%g138682138697%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%g138682138697%_)) + (let ((_%e138686138699%_ + (let () + (declare (not safe)) + (gx#stx-e _%g138682138697%_)))) + (let ((_%hd138685138702%_ + (let () + (declare (not safe)) + (##car _%e138686138699%_))) + (_%tl138684138704%_ + (let () + (declare (not safe)) + (##cdr _%e138686138699%_)))) (if (let () (declare (not safe)) - (pair? _%datum139581%_)) - (let () - (cons (let ((__tmp145792 - (car _%datum139581%_))) - (declare (not safe)) - (_%generate1139529%_ __tmp145792)) - (let ((__tmp145793 - (cdr _%datum139581%_))) + (gx#stx-pair? _%tl138684138704%_)) + (let ((_%e138689138707%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl138684138704%_)))) + (let ((_%hd138688138710%_ + (let () + (declare (not safe)) + (##car _%e138689138707%_))) + (_%tl138687138712%_ + (let () + (declare (not safe)) + (##cdr _%e138689138707%_)))) + (if (let () (declare (not safe)) - (_%generate1139529%_ __tmp145793)))) - (if (let () - (declare (not safe)) - (box? _%datum139581%_)) - (let () - (box (let ((__tmp145794 - (unbox _%datum139581%_))) - (declare (not safe)) - (_%generate1139529%_ - __tmp145794)))) - (if (let () - (declare (not safe)) - (vector? _%datum139581%_)) - (let () - (vector-map - _%generate1139529%_ - _%datum139581%_)) - (if (or (let () - (declare (not safe)) - (s8vector? _%datum139581%_)) - (let () - (declare (not safe)) - (u8vector? _%datum139581%_)) - (let () - (declare (not safe)) - (s16vector? _%datum139581%_)) - (let () - (declare (not safe)) - (u16vector? _%datum139581%_)) - (let () - (declare (not safe)) - (s32vector? _%datum139581%_)) - (let () - (declare (not safe)) - (u32vector? _%datum139581%_)) - (s64vector? _%datum139581%_) - (u64vector? _%datum139581%_) - (let () - (declare (not safe)) - (f32vector? _%datum139581%_)) - (let () - (declare (not safe)) - (f64vector? - _%datum139581%_))) - (let () _%datum139581%_) - (let () - (declare (not safe)) - (gxc#raise-compile-error - '"Cannot compile non-primitive quote" - _%stx139527%_))))))))))) - (let* ((_%g139531139544%_ - (lambda (_%g139532139541%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g139532139541%_)))) - (_%g139530139578%_ - (lambda (_%g139532139547%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%g139532139547%_)) - (let ((_%e139536139549%_ - (let () - (declare (not safe)) - (gx#stx-e _%g139532139547%_)))) - (let ((_%hd139535139552%_ - (let () - (declare (not safe)) - (##car _%e139536139549%_))) - (_%tl139534139554%_ - (let () - (declare (not safe)) - (##cdr _%e139536139549%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl139534139554%_)) - (let ((_%e139539139557%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl139534139554%_)))) - (let ((_%hd139538139560%_ - (let () - (declare (not safe)) - (##car _%e139539139557%_))) - (_%tl139537139562%_ - (let () - (declare (not safe)) - (##cdr _%e139539139557%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl139537139562%_)) - ((lambda (_%L139565%_) + (gx#stx-null? _%tl138687138712%_)) + ((lambda (_%L138715%_) (cons 'quote - (cons (let ((__tmp145795 - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gx#stx-e _%L139565%_)))) - (declare (not safe)) - (_%generate1139529%_ __tmp145795)) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd139538139560%_) - (let () - (declare (not safe)) - (_%g139531139544%_ - _%g139532139547%_))))) - (let () - (declare (not safe)) - (_%g139531139544%_ _%g139532139547%_))))) - (let () - (declare (not safe)) - (_%g139531139544%_ _%g139532139547%_)))))) - (declare (not safe)) - (_%g139530139578%_ _%stx139527%_))))) + (cons (_%generate1138679%_ + (let () + (declare (not safe)) + (gx#stx-e + _%L138715%_))) + '()))) + _%hd138688138710%_) + (_%g138681138694%_ + _%g138682138697%_)))) + (_%g138681138694%_ _%g138682138697%_)))) + (_%g138681138694%_ _%g138682138697%_))))) + (_%g138680138728%_ _%stx138677%_))))) (define gxc#generate-runtime-call% - (lambda (_%self138967%_ _%stx138968%_) - (letrec ((_%compile-call138970%_ - (lambda (_%rator139259%_ _%rands139260%_) - (let ((_%rator139266%_ + (lambda (_%self138117%_ _%stx138118%_) + (letrec ((_%compile-call138120%_ + (lambda (_%rator138409%_ _%rands138410%_) + (let ((_%rator138416%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self138967%_ - _%rator139259%_))) - (_%rands139267%_ - (map (lambda (_%g139261139263%_) + _%self138117%_ + _%rator138409%_))) + (_%rands138417%_ + (map (lambda (_%g138411138413%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self138967%_ - _%g139261139263%_))) - _%rands139260%_))) - (let* ((_%__stx145082145083%_ _%rator139266%_) - (_%g139270139322%_ + _%self138117%_ + _%g138411138413%_))) + _%rands138410%_))) + (let* ((_%__stx144219144220%_ _%rator138416%_) + (_%g138420138472%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx145082145083%_))))) - (let ((_%__kont145084145085%_ - (lambda (_%L139446%_ - _%L139447%_ - _%L139448%_ - _%L139449%_) - (if (let ((__tmp145798 + _%__stx144219144220%_))))) + (let ((_%__kont144221144222%_ + (lambda (_%L138596%_ + _%L138597%_ + _%L138598%_ + _%L138599%_) + (if (let ((__tmp144891 (let () (declare (not safe)) - (##length _%rands139267%_))) - (__tmp145796 - (length (let ((__tmp145797 - (lambda (_%g139485139488%_ + (##length _%rands138417%_))) + (__tmp144889 + (length (let ((__tmp144890 + (lambda (_%g138635138638%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g139486139490%_) - (cons _%g139485139488%_ _%g139486139490%_)))) + _%g138636138640%_) + (cons _%g138635138638%_ _%g138636138640%_)))) (declare (not safe)) - (__foldr1 __tmp145797 '() _%L139448%_))))) + (__foldr1 __tmp144890 '() _%L138598%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp145798 __tmp145796)) - (let* ((_%id139493%_ _%L139449%_) - (_%args139502%_ - (let ((__tmp145799 - (lambda (_%g139494139497%_ - _%g139495139499%_) - (cons _%g139494139497%_ - _%g139495139499%_)))) + (##fx= __tmp144891 __tmp144889)) + (let* ((_%id138643%_ _%L138599%_) + (_%args138652%_ + (let ((__tmp144892 + (lambda (_%g138644138647%_ + _%g138645138649%_) + (cons _%g138644138647%_ + _%g138645138649%_)))) (declare (not safe)) (__foldr1 - __tmp145799 + __tmp144892 '() - _%L139448%_))) - (_%body139511%_ - (let ((__tmp145800 - (lambda (_%g139503139506%_ - _%g139504139508%_) - (cons _%g139503139506%_ - _%g139504139508%_)))) + _%L138598%_))) + (_%body138661%_ + (let ((__tmp144893 + (lambda (_%g138653138656%_ + _%g138654138658%_) + (cons _%g138653138656%_ + _%g138654138658%_)))) (declare (not safe)) (__foldr1 - __tmp145800 + __tmp144893 '() - _%L139447%_))) - (_%init139513%_ + _%L138597%_))) + (_%init138663%_ (map list - _%args139502%_ - _%rands139267%_))) + _%args138652%_ + _%rands138417%_))) (cons 'let - (cons _%id139493%_ - (cons _%init139513%_ - _%body139511%_)))) - (let ((__tmp145801 - (let ((__tmp145802 - (lambda (_%g139515139518%_ - _%g139516139520%_) - (cons _%g139515139518%_ - _%g139516139520%_)))) + (cons _%id138643%_ + (cons _%init138663%_ + _%body138661%_)))) + (let ((__tmp144894 + (let ((__tmp144895 + (lambda (_%g138665138668%_ + _%g138666138670%_) + (cons _%g138665138668%_ + _%g138666138670%_)))) (declare (not safe)) (__foldr1 - __tmp145802 + __tmp144895 '() - _%L139448%_)))) + _%L138598%_)))) (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _%stx138968%_ - __tmp145801 - _%rands139267%_))))) - (_%__kont145090145091%_ + _%stx138118%_ + __tmp144894 + _%rands138417%_))))) + (_%__kont144227144228%_ (lambda () - (cons _%rator139266%_ _%rands139267%_)))) - (let ((_%__match145149145150%_ - (lambda (_%e139278139334%_ - _%hd139277139337%_ - _%tl139276139339%_ - _%e139281139342%_ - _%hd139280139345%_ - _%tl139279139347%_ - _%e139284139350%_ - _%hd139283139353%_ - _%tl139282139355%_ - _%e139287139358%_ - _%hd139286139361%_ - _%tl139285139363%_ - _%e139290139366%_ - _%hd139289139369%_ - _%tl139288139371%_ - _%e139293139374%_ - _%hd139292139377%_ - _%tl139291139379%_ - _%e139296139382%_ - _%hd139295139385%_ - _%tl139294139387%_ - _%__splice145086145087%_ - _%target139297139390%_ - _%tl139299139392%_) - (letrec ((_%loop139300139395%_ - (lambda (_%hd139298139398%_ - _%arg139304139400%_) + (cons _%rator138416%_ _%rands138417%_)))) + (let ((_%__match144286144287%_ + (lambda (_%e138428138484%_ + _%hd138427138487%_ + _%tl138426138489%_ + _%e138431138492%_ + _%hd138430138495%_ + _%tl138429138497%_ + _%e138434138500%_ + _%hd138433138503%_ + _%tl138432138505%_ + _%e138437138508%_ + _%hd138436138511%_ + _%tl138435138513%_ + _%e138440138516%_ + _%hd138439138519%_ + _%tl138438138521%_ + _%e138443138524%_ + _%hd138442138527%_ + _%tl138441138529%_ + _%e138446138532%_ + _%hd138445138535%_ + _%tl138444138537%_ + _%__splice144223144224%_ + _%target138447138540%_ + _%tl138449138542%_) + (letrec ((_%loop138450138545%_ + (lambda (_%hd138448138548%_ + _%arg138454138550%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd139298139398%_)) - (let ((_%e139301139403%_ + _%hd138448138548%_)) + (let ((_%e138451138553%_ (let () (declare (not safe)) (gx#stx-e - _%hd139298139398%_)))) - (let ((_%lp-tl139303139408%_ + _%hd138448138548%_)))) + (let ((_%lp-tl138453138558%_ (let () (declare (not safe)) - (##cdr _%e139301139403%_))) - (_%lp-hd139302139406%_ + (##cdr _%e138451138553%_))) + (_%lp-hd138452138556%_ (let () (declare (not safe)) - (##car _%e139301139403%_)))) - (let ((__tmp145803 - (cons _%lp-hd139302139406%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg139304139400%_))) - (declare (not safe)) - (_%loop139300139395%_ _%lp-tl139303139408%_ __tmp145803)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%arg139305139411%_ - (reverse _%arg139304139400%_))) + (##car _%e138451138553%_)))) + (_%loop138450138545%_ + _%lp-tl138453138558%_ + (cons _%lp-hd138452138556%_ + _%arg138454138550%_)))) + (let ((_%arg138455138561%_ + (reverse _%arg138454138550%_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl139294139387%_)) - (let ((_%__splice145088145089%_ + _%tl138444138537%_)) + (let ((_%__splice144225144226%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl139294139387%_ '0)))) - (let ((_%tl139308139416%_ + (gx#syntax-split-splice _%tl138444138537%_ '0)))) + (let ((_%tl138458138566%_ (let () (declare (not safe)) - (##vector-ref _%__splice145088145089%_ '1))) - (_%target139306139414%_ + (##vector-ref _%__splice144225144226%_ '1))) + (_%target138456138564%_ (let () (declare (not safe)) - (##vector-ref _%__splice145088145089%_ '0)))) + (##vector-ref _%__splice144225144226%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139308139416%_)) - (letrec ((_%loop139309139419%_ - (lambda (_%hd139307139422%_ - _%body139313139424%_) + (gx#stx-null? _%tl138458138566%_)) + (letrec ((_%loop138459138569%_ + (lambda (_%hd138457138572%_ + _%body138463138574%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd139307139422%_)) - (let ((_%e139310139427%_ + (gx#stx-pair? _%hd138457138572%_)) + (let ((_%e138460138577%_ (let () (declare (not safe)) (gx#stx-e - _%hd139307139422%_)))) - (let ((_%lp-tl139312139432%_ + _%hd138457138572%_)))) + (let ((_%lp-tl138462138582%_ (let () (declare (not safe)) - (##cdr _%e139310139427%_))) - (_%lp-hd139311139430%_ + (##cdr _%e138460138577%_))) + (_%lp-hd138461138580%_ (let () (declare (not safe)) - (##car _%e139310139427%_)))) - (let ((__tmp145804 - (cons _%lp-hd139311139430%_ - _%body139313139424%_))) - (declare (not safe)) - (_%loop139309139419%_ - _%lp-tl139312139432%_ - __tmp145804)))) - (let ((_%body139314139435%_ - (reverse _%body139313139424%_))) + (##car _%e138460138577%_)))) + (_%loop138459138569%_ + _%lp-tl138462138582%_ + (cons _%lp-hd138461138580%_ + _%body138463138574%_)))) + (let ((_%body138464138585%_ + (reverse _%body138463138574%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139288139371%_)) + _%tl138438138521%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139282139355%_)) + _%tl138432138505%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139279139347%_)) - (let ((_%e139317139438%_ + _%tl138429138497%_)) + (let ((_%e138467138588%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl139279139347%_)))) - (let ((_%tl139315139443%_ + (gx#stx-e _%tl138429138497%_)))) + (let ((_%tl138465138593%_ (let () (declare (not safe)) - (##cdr _%e139317139438%_))) - (_%hd139316139441%_ + (##cdr _%e138467138588%_))) + (_%hd138466138591%_ (let () (declare (not safe)) - (##car _%e139317139438%_)))) + (##car _%e138467138588%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139315139443%_)) - (let ((_%L139446%_ _%hd139316139441%_) - (_%L139447%_ _%body139314139435%_) - (_%L139448%_ _%arg139305139411%_) - (_%L139449%_ _%hd139286139361%_)) - (if (eq? _%L139449%_ _%L139446%_) - (_%__kont145084145085%_ - _%L139446%_ - _%L139447%_ - _%L139448%_ - _%L139449%_) - (_%__kont145090145091%_))) - (_%__kont145090145091%_)))) - (_%__kont145090145091%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont145090145091%_)) - (_%__kont145090145091%_))))))) - (let () - (declare (not safe)) - (_%loop139309139419%_ - _%target139306139414%_ - '()))) - (_%__kont145090145091%_)))) - (_%__kont145090145091%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop139300139395%_ - _%target139297139390%_ - '())))))) + (gx#stx-null? _%tl138465138593%_)) + (let ((_%L138596%_ _%hd138466138591%_) + (_%L138597%_ _%body138464138585%_) + (_%L138598%_ _%arg138455138561%_) + (_%L138599%_ _%hd138436138511%_)) + (if (eq? _%L138599%_ _%L138596%_) + (_%__kont144221144222%_ + _%L138596%_ + _%L138597%_ + _%L138598%_ + _%L138599%_) + (_%__kont144227144228%_))) + (_%__kont144227144228%_)))) + (_%__kont144227144228%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont144227144228%_)) + (_%__kont144227144228%_))))))) + (_%loop138459138569%_ _%target138456138564%_ '())) + (_%__kont144227144228%_)))) + (_%__kont144227144228%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop138450138545%_ + _%target138447138540%_ + '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx145082145083%_)) - (let ((_%e139278139334%_ + (gx#stx-pair? _%__stx144219144220%_)) + (let ((_%e138428138484%_ (let () (declare (not safe)) - (gx#stx-e _%__stx145082145083%_)))) - (let ((_%tl139276139339%_ + (gx#stx-e _%__stx144219144220%_)))) + (let ((_%tl138426138489%_ (let () (declare (not safe)) - (##cdr _%e139278139334%_))) - (_%hd139277139337%_ + (##cdr _%e138428138484%_))) + (_%hd138427138487%_ (let () (declare (not safe)) - (##car _%e139278139334%_)))) + (##car _%e138428138484%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd139277139337%_)) + (gx#identifier? _%hd138427138487%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _%hd139277139337%_)) + _%hd138427138487%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139276139339%_)) - (let ((_%e139281139342%_ + _%tl138426138489%_)) + (let ((_%e138431138492%_ (let () (declare (not safe)) (gx#stx-e - _%tl139276139339%_)))) - (let ((_%tl139279139347%_ + _%tl138426138489%_)))) + (let ((_%tl138429138497%_ (let () (declare (not safe)) - (##cdr _%e139281139342%_))) - (_%hd139280139345%_ + (##cdr _%e138431138492%_))) + (_%hd138430138495%_ (let () (declare (not safe)) - (##car _%e139281139342%_)))) + (##car _%e138431138492%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd139280139345%_)) - (let ((_%e139284139350%_ + _%hd138430138495%_)) + (let ((_%e138434138500%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd139280139345%_)))) - (let ((_%tl139282139355%_ + (gx#stx-e _%hd138430138495%_)))) + (let ((_%tl138432138505%_ (let () (declare (not safe)) - (##cdr _%e139284139350%_))) - (_%hd139283139353%_ + (##cdr _%e138434138500%_))) + (_%hd138433138503%_ (let () (declare (not safe)) - (##car _%e139284139350%_)))) + (##car _%e138434138500%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd139283139353%_)) - (let ((_%e139287139358%_ + (gx#stx-pair? _%hd138433138503%_)) + (let ((_%e138437138508%_ (let () (declare (not safe)) - (gx#stx-e _%hd139283139353%_)))) - (let ((_%tl139285139363%_ + (gx#stx-e _%hd138433138503%_)))) + (let ((_%tl138435138513%_ (let () (declare (not safe)) - (##cdr _%e139287139358%_))) - (_%hd139286139361%_ + (##cdr _%e138437138508%_))) + (_%hd138436138511%_ (let () (declare (not safe)) - (##car _%e139287139358%_)))) + (##car _%e138437138508%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139285139363%_)) - (let ((_%e139290139366%_ + (gx#stx-pair? _%tl138435138513%_)) + (let ((_%e138440138516%_ (let () (declare (not safe)) - (gx#stx-e _%tl139285139363%_)))) - (let ((_%tl139288139371%_ + (gx#stx-e _%tl138435138513%_)))) + (let ((_%tl138438138521%_ (let () (declare (not safe)) - (##cdr _%e139290139366%_))) - (_%hd139289139369%_ + (##cdr _%e138440138516%_))) + (_%hd138439138519%_ (let () (declare (not safe)) - (##car _%e139290139366%_)))) + (##car _%e138440138516%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd139289139369%_)) - (let ((_%e139293139374%_ + (gx#stx-pair? _%hd138439138519%_)) + (let ((_%e138443138524%_ (let () (declare (not safe)) (gx#stx-e - _%hd139289139369%_)))) - (let ((_%tl139291139379%_ + _%hd138439138519%_)))) + (let ((_%tl138441138529%_ (let () (declare (not safe)) - (##cdr _%e139293139374%_))) - (_%hd139292139377%_ + (##cdr _%e138443138524%_))) + (_%hd138442138527%_ (let () (declare (not safe)) - (##car _%e139293139374%_)))) + (##car _%e138443138524%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd139292139377%_)) + _%hd138442138527%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _%hd139292139377%_)) + _%hd138442138527%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139291139379%_)) - (let ((_%e139296139382%_ + _%tl138441138529%_)) + (let ((_%e138446138532%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl139291139379%_)))) - (let ((_%tl139294139387%_ + (gx#stx-e _%tl138441138529%_)))) + (let ((_%tl138444138537%_ (let () (declare (not safe)) - (##cdr _%e139296139382%_))) - (_%hd139295139385%_ + (##cdr _%e138446138532%_))) + (_%hd138445138535%_ (let () (declare (not safe)) - (##car _%e139296139382%_)))) + (##car _%e138446138532%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd139295139385%_)) - (let ((_%__splice145086145087%_ + (gx#stx-pair/null? _%hd138445138535%_)) + (let ((_%__splice144223144224%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd139295139385%_ + _%hd138445138535%_ '0)))) - (let ((_%tl139299139392%_ + (let ((_%tl138449138542%_ (let () (declare (not safe)) - (##vector-ref _%__splice145086145087%_ '1))) - (_%target139297139390%_ + (##vector-ref _%__splice144223144224%_ '1))) + (_%target138447138540%_ (let () (declare (not safe)) (##vector-ref - _%__splice145086145087%_ + _%__splice144223144224%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139299139392%_)) - (_%__match145149145150%_ - _%e139278139334%_ - _%hd139277139337%_ - _%tl139276139339%_ - _%e139281139342%_ - _%hd139280139345%_ - _%tl139279139347%_ - _%e139284139350%_ - _%hd139283139353%_ - _%tl139282139355%_ - _%e139287139358%_ - _%hd139286139361%_ - _%tl139285139363%_ - _%e139290139366%_ - _%hd139289139369%_ - _%tl139288139371%_ - _%e139293139374%_ - _%hd139292139377%_ - _%tl139291139379%_ - _%e139296139382%_ - _%hd139295139385%_ - _%tl139294139387%_ - _%__splice145086145087%_ - _%target139297139390%_ - _%tl139299139392%_) - (_%__kont145090145091%_)))) - (_%__kont145090145091%_)))) - (_%__kont145090145091%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont145090145091%_)) - (_%__kont145090145091%_)))) - (_%__kont145090145091%_)))) - (_%__kont145090145091%_)))) - (_%__kont145090145091%_)))) - (_%__kont145090145091%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont145090145091%_)) - (_%__kont145090145091%_)) - (_%__kont145090145091%_)))) - (_%__kont145090145091%_))))))))) - (let* ((_%g138972138995%_ - (lambda (_%g138973138992%_) + (gx#stx-null? _%tl138449138542%_)) + (_%__match144286144287%_ + _%e138428138484%_ + _%hd138427138487%_ + _%tl138426138489%_ + _%e138431138492%_ + _%hd138430138495%_ + _%tl138429138497%_ + _%e138434138500%_ + _%hd138433138503%_ + _%tl138432138505%_ + _%e138437138508%_ + _%hd138436138511%_ + _%tl138435138513%_ + _%e138440138516%_ + _%hd138439138519%_ + _%tl138438138521%_ + _%e138443138524%_ + _%hd138442138527%_ + _%tl138441138529%_ + _%e138446138532%_ + _%hd138445138535%_ + _%tl138444138537%_ + _%__splice144223144224%_ + _%target138447138540%_ + _%tl138449138542%_) + (_%__kont144227144228%_)))) + (_%__kont144227144228%_)))) + (_%__kont144227144228%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont144227144228%_)) + (_%__kont144227144228%_)))) + (_%__kont144227144228%_)))) + (_%__kont144227144228%_)))) + (_%__kont144227144228%_)))) + (_%__kont144227144228%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont144227144228%_)) + (_%__kont144227144228%_)) + (_%__kont144227144228%_)))) + (_%__kont144227144228%_))))))))) + (let* ((_%g138122138145%_ + (lambda (_%g138123138142%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138973138992%_)))) - (_%g138971139256%_ - (lambda (_%g138973138998%_) + _%g138123138142%_)))) + (_%g138121138406%_ + (lambda (_%g138123138148%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138973138998%_)) - (let ((_%e138978139000%_ + (gx#stx-pair? _%g138123138148%_)) + (let ((_%e138128138150%_ (let () (declare (not safe)) - (gx#stx-e _%g138973138998%_)))) - (let ((_%hd138977139003%_ + (gx#stx-e _%g138123138148%_)))) + (let ((_%hd138127138153%_ (let () (declare (not safe)) - (##car _%e138978139000%_))) - (_%tl138976139005%_ + (##car _%e138128138150%_))) + (_%tl138126138155%_ (let () (declare (not safe)) - (##cdr _%e138978139000%_)))) + (##cdr _%e138128138150%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138976139005%_)) - (let ((_%e138981139008%_ + (gx#stx-pair? _%tl138126138155%_)) + (let ((_%e138131138158%_ (let () (declare (not safe)) - (gx#stx-e _%tl138976139005%_)))) - (let ((_%hd138980139011%_ + (gx#stx-e _%tl138126138155%_)))) + (let ((_%hd138130138161%_ (let () (declare (not safe)) - (##car _%e138981139008%_))) - (_%tl138979139013%_ + (##car _%e138131138158%_))) + (_%tl138129138163%_ (let () (declare (not safe)) - (##cdr _%e138981139008%_)))) + (##cdr _%e138131138158%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl138979139013%_)) - (let ((_g145805_ + _%tl138129138163%_)) + (let ((_g144896_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl138979139013%_ + _%tl138129138163%_ '0)))) (begin - (let ((_g145806_ + (let ((_g144897_ (let () (declare (not safe)) - (if (##values? _g145805_) + (if (##values? _g144896_) (##vector-length - _g145805_) + _g144896_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g145806_ 2))) + (##fx= _g144897_ 2))) (error "Context expects 2 values" - _g145806_))) - (let ((_%target138982139016%_ + _g144897_))) + (let ((_%target138132138166%_ (let () (declare (not safe)) (##vector-ref - _g145805_ + _g144896_ 0))) - (_%tl138984139018%_ + (_%tl138134138168%_ (let () (declare (not safe)) (##vector-ref - _g145805_ + _g144896_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138984139018%_)) - (letrec ((_%loop138985139021%_ - (lambda (_%hd138983139024%_ + _%tl138134138168%_)) + (letrec ((_%loop138135138171%_ + (lambda (_%hd138133138174%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rand138989139026%_) + _%rand138139138176%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd138983139024%_)) - (let ((_%e138986139029%_ + (gx#stx-pair? _%hd138133138174%_)) + (let ((_%e138136138179%_ (let () (declare (not safe)) - (gx#stx-e _%hd138983139024%_)))) - (let ((_%lp-hd138987139032%_ + (gx#stx-e _%hd138133138174%_)))) + (let ((_%lp-hd138137138182%_ (let () (declare (not safe)) - (##car _%e138986139029%_))) - (_%lp-tl138988139034%_ + (##car _%e138136138179%_))) + (_%lp-tl138138138184%_ (let () (declare (not safe)) - (##cdr _%e138986139029%_)))) - (let ((__tmp145807 - (cons _%lp-hd138987139032%_ - _%rand138989139026%_))) - (declare (not safe)) - (_%loop138985139021%_ - _%lp-tl138988139034%_ - __tmp145807)))) - (let ((_%rand138990139037%_ - (reverse _%rand138989139026%_))) - ((lambda (_%L139040%_ _%L139041%_) - (if (let () - (declare (not safe)) - (gxc#current-compile-decls-unsafe?)) - (let ((__tmp145808 - (let ((__tmp145809 - (lambda (_%g139058139061%_ - _%g139059139063%_) - (cons _%g139058139061%_ - _%g139059139063%_)))) - (declare (not safe)) - (__foldr1 - __tmp145809 - '() - _%L139040%_)))) - (declare (not safe)) - (_%compile-call138970%_ - _%L139041%_ - __tmp145808)) - (let* ((_%__stx145198145199%_ _%L139041%_) - (_%g139067139079%_ + (##cdr _%e138136138179%_)))) + (_%loop138135138171%_ + _%lp-tl138138138184%_ + (cons _%lp-hd138137138182%_ + _%rand138139138176%_)))) + (let ((_%rand138140138187%_ + (reverse _%rand138139138176%_))) + ((lambda (_%L138190%_ _%L138191%_) + (if (gxc#current-compile-decls-unsafe?) + (_%compile-call138120%_ + _%L138191%_ + (let ((__tmp144898 + (lambda (_%g138208138211%_ + _%g138209138213%_) + (cons _%g138208138211%_ + _%g138209138213%_)))) + (declare (not safe)) + (__foldr1 __tmp144898 '() _%L138190%_))) + (let* ((_%__stx144335144336%_ _%L138191%_) + (_%g138217138229%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx145198145199%_))))) - (let ((_%__kont145200145201%_ + _%__stx144335144336%_))))) + (let ((_%__kont144337144338%_ (lambda () - (let ((_%f139116%_ + (let ((_%f138266%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self138967%_ - _%L139041%_)))) - (if (and (let ((__tmp145810 + _%self138117%_ + _%L138191%_)))) + (if (and (let ((__tmp144899 (symbol->string ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%f139116%_))) - (declare (not safe)) - (##string-prefix? '"##" __tmp145810)) - (let ((__tmp145811 - (let () - (declare (not safe)) - (##memq _%f139116%_ gxc#checked-primitives)))) + _%f138266%_))) (declare (not safe)) - (not __tmp145811))) + (##string-prefix? '"##" __tmp144899)) + (not (let () + (declare (not safe)) + (##memq _%f138266%_ gxc#checked-primitives)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp139118%_ ((_%rest139121%_ + (let _%lp138268%_ ((_%rest138271%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse (let ((__tmp145817 - (lambda (_%g139238139241%_ - _%g139239139243%_) - (cons _%g139238139241%_ - _%g139239139243%_)))) + (reverse (let ((__tmp144901 + (lambda (_%g138388138391%_ + _%g138389138393%_) + (cons _%g138388138391%_ + _%g138389138393%_)))) (declare (not safe)) (__foldr1 - __tmp145817 + __tmp144901 '() - _%L139040%_)))) - (_%bind139123%_ '()) - (_%args139124%_ '())) - (let* ((_%rest139125139133%_ _%rest139121%_) - (_%else139127139141%_ + _%L138190%_)))) + (_%bind138273%_ '()) + (_%args138274%_ '())) + (let* ((_%rest138275138283%_ _%rest138271%_) + (_%else138277138291%_ (lambda () (cons 'let - (cons _%bind139123%_ + (cons _%bind138273%_ (cons '(declare (not safe)) - (cons (cons _%f139116%_ - _%args139124%_) + (cons (cons _%f138266%_ + _%args138274%_) '())))))) - (_%K139129139227%_ - (lambda (_%rest139144%_ _%e139145%_) - (let* ((_%__stx145152145153%_ _%e139145%_) - (_%g139150139168%_ + (_%K138279138377%_ + (lambda (_%rest138294%_ _%e138295%_) + (let* ((_%__stx144289144290%_ _%e138295%_) + (_%g138300138318%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx145152145153%_))))) - (let ((_%__kont145154145155%_ + _%__stx144289144290%_))))) + (let ((_%__kont144291144292%_ (lambda () - (let ((__tmp145812 - (cons (let () - (declare (not safe)) - (gxc#compile-e__0 - _%e139145%_)) - _%args139124%_))) - (declare (not safe)) - (_%lp139118%_ - _%rest139144%_ - _%bind139123%_ - __tmp145812)))) - (_%__kont145156145157%_ + (_%lp138268%_ + _%rest138294%_ + _%bind138273%_ + (cons (let () + (declare (not safe)) + (gxc#compile-e__0 _%e138295%_)) + _%args138274%_)))) + (_%__kont144293144294%_ (lambda () - (let ((__tmp145813 - (cons (let () - (declare (not safe)) - (gxc#compile-e__0 - _%e139145%_)) - _%args139124%_))) - (declare (not safe)) - (_%lp139118%_ - _%rest139144%_ - _%bind139123%_ - __tmp145813)))) - (_%__kont145158145159%_ + (_%lp138268%_ + _%rest138294%_ + _%bind138273%_ + (cons (let () + (declare (not safe)) + (gxc#compile-e__0 _%e138295%_)) + _%args138274%_)))) + (_%__kont144295144296%_ (lambda () - (let ((_%tmp139175%_ - (let ((__tmp145814 + (let ((_%tmp138325%_ + (let ((__tmp144900 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp145814)))) - (let ((__tmp145816 - (cons (cons _%tmp139175%_ - (cons (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gxc#compile-e__0 _%e139145%_)) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind139123%_)) - (__tmp145815 - (cons _%tmp139175%_ - _%args139124%_))) - (declare (not safe)) - (_%lp139118%_ - _%rest139144%_ - __tmp145816 - __tmp145815)))))) + (make-symbol__0 __tmp144900)))) + (_%lp138268%_ + _%rest138294%_ + (cons (cons _%tmp138325%_ + (cons (let () + (declare (not safe)) + (gxc#compile-e__0 + _%e138295%_)) + '())) + _%bind138273%_) + (cons _%tmp138325%_ _%args138274%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx145152145153%_)) - (let ((_%e139154139206%_ + (gx#stx-pair? _%__stx144289144290%_)) + (let ((_%e138304138356%_ (let () (declare (not safe)) - (gx#stx-e _%__stx145152145153%_)))) - (let ((_%tl139152139211%_ + (gx#stx-e _%__stx144289144290%_)))) + (let ((_%tl138302138361%_ (let () (declare (not safe)) - (##cdr _%e139154139206%_))) - (_%hd139153139209%_ + (##cdr _%e138304138356%_))) + (_%hd138303138359%_ (let () (declare (not safe)) - (##car _%e139154139206%_)))) + (##car _%e138304138356%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd139153139209%_)) + (gx#identifier? _%hd138303138359%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd139153139209%_)) + _%hd138303138359%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139152139211%_)) - (let ((_%e139157139214%_ + _%tl138302138361%_)) + (let ((_%e138307138364%_ (let () (declare (not safe)) (gx#stx-e - _%tl139152139211%_)))) - (let ((_%tl139155139219%_ + _%tl138302138361%_)))) + (let ((_%tl138305138369%_ (let () (declare (not safe)) - (##cdr _%e139157139214%_))) - (_%hd139156139217%_ + (##cdr _%e138307138364%_))) + (_%hd138306138367%_ (let () (declare (not safe)) - (##car _%e139157139214%_)))) + (##car _%e138307138364%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139155139219%_)) - (_%__kont145154145155%_) - (_%__kont145158145159%_)))) - (_%__kont145158145159%_)) + _%tl138305138369%_)) + (_%__kont144291144292%_) + (_%__kont144295144296%_)))) + (_%__kont144295144296%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd139153139209%_)) + _%hd138303138359%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139152139211%_)) - (let ((_%e139163139191%_ + _%tl138302138361%_)) + (let ((_%e138313138341%_ (let () (declare (not safe)) (gx#stx-e - _%tl139152139211%_)))) - (let ((_%tl139161139196%_ + _%tl138302138361%_)))) + (let ((_%tl138311138346%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e139163139191%_))) - (_%hd139162139194%_ - (let () (declare (not safe)) (##car _%e139163139191%_)))) + (##cdr _%e138313138341%_))) + (_%hd138312138344%_ + (let () (declare (not safe)) (##car _%e138313138341%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139161139196%_)) - (_%__kont145156145157%_) - (_%__kont145158145159%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont145158145159%_)) - (_%__kont145158145159%_))) - (_%__kont145158145159%_)))) - (_%__kont145158145159%_))))))) + (gx#stx-null? _%tl138311138346%_)) + (_%__kont144293144294%_) + (_%__kont144295144296%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont144295144296%_)) + (_%__kont144295144296%_))) + (_%__kont144295144296%_)))) + (_%__kont144295144296%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest139125139133%_)) - (let ((_%hd139130139230%_ + (##pair? _%rest138275138283%_)) + (let ((_%hd138280138380%_ (let () (declare (not safe)) - (##car _%rest139125139133%_))) - (_%tl139131139232%_ + (##car _%rest138275138283%_))) + (_%tl138281138382%_ (let () (declare (not safe)) - (##cdr _%rest139125139133%_)))) - (let* ((_%e139235%_ _%hd139130139230%_) - (_%rest139237%_ _%tl139131139232%_)) - (declare (not safe)) - (_%K139129139227%_ _%rest139237%_ _%e139235%_))) - (let () (declare (not safe)) (_%else139127139141%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp145818 - (let ((__tmp145819 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g139245139248%_ _%g139246139250%_) - (cons _%g139245139248%_ _%g139246139250%_)))) - (declare (not safe)) - (__foldr1 __tmp145819 '() _%L139040%_)))) - (declare (not safe)) - (_%compile-call138970%_ _%L139041%_ __tmp145818)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont145202145203%_ - (lambda () - (let ((__tmp145820 - (let ((__tmp145821 - (lambda (_%g139085139088%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g139086139090%_) - (cons _%g139085139088%_ _%g139086139090%_)))) + (##cdr _%rest138275138283%_)))) + (let* ((_%e138385%_ _%hd138280138380%_) + (_%rest138387%_ _%tl138281138382%_)) + (_%K138279138377%_ _%rest138387%_ _%e138385%_))) + (_%else138277138291%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%compile-call138120%_ + _%L138191%_ + (let ((__tmp144902 + (lambda (_%g138395138398%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g138396138400%_) + (cons _%g138395138398%_ _%g138396138400%_)))) (declare (not safe)) - (__foldr1 __tmp145821 '() _%L139040%_)))) + (__foldr1 __tmp144902 '() _%L138190%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%compile-call138970%_ - _%L139041%_ - __tmp145820))))) + (_%__kont144339144340%_ + (lambda () + (_%compile-call138120%_ + _%L138191%_ + (let ((__tmp144903 + (lambda (_%g138235138238%_ + _%g138236138240%_) + (cons _%g138235138238%_ + _%g138236138240%_)))) + (declare (not safe)) + (__foldr1 + __tmp144903 + '() + _%L138190%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx145198145199%_)) - (let ((_%e139071139098%_ + _%__stx144335144336%_)) + (let ((_%e138221138248%_ (let () (declare (not safe)) (gx#stx-e - _%__stx145198145199%_)))) - (let ((_%tl139069139103%_ + _%__stx144335144336%_)))) + (let ((_%tl138219138253%_ (let () (declare (not safe)) - (##cdr _%e139071139098%_))) - (_%hd139070139101%_ + (##cdr _%e138221138248%_))) + (_%hd138220138251%_ (let () (declare (not safe)) - (##car _%e139071139098%_)))) + (##car _%e138221138248%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd139070139101%_)) + _%hd138220138251%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd139070139101%_)) + _%hd138220138251%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139069139103%_)) - (let ((_%e139074139106%_ + _%tl138219138253%_)) + (let ((_%e138224138256%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl139069139103%_)))) - (let ((_%tl139072139111%_ + (gx#stx-e _%tl138219138253%_)))) + (let ((_%tl138222138261%_ (let () (declare (not safe)) - (##cdr _%e139074139106%_))) - (_%hd139073139109%_ + (##cdr _%e138224138256%_))) + (_%hd138223138259%_ (let () (declare (not safe)) - (##car _%e139074139106%_)))) + (##car _%e138224138256%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139072139111%_)) - (_%__kont145200145201%_) - (_%__kont145202145203%_)))) - (_%__kont145202145203%_)) - (_%__kont145202145203%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont145202145203%_)))) - (_%__kont145202145203%_)))))) - _%rand138990139037%_ - _%hd138980139011%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop138985139021%_ - _%target138982139016%_ - '()))) - (let () - (declare (not safe)) - (_%g138972138995%_ - _%g138973138998%_)))))) - (let () - (declare (not safe)) - (_%g138972138995%_ - _%g138973138998%_))))) - (let () - (declare (not safe)) - (_%g138972138995%_ _%g138973138998%_))))) - (let () - (declare (not safe)) - (_%g138972138995%_ _%g138973138998%_)))))) - (declare (not safe)) - (_%g138971139256%_ _%stx138968%_))))) + (gx#stx-null? _%tl138222138261%_)) + (_%__kont144337144338%_) + (_%__kont144339144340%_)))) + (_%__kont144339144340%_)) + (_%__kont144339144340%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont144339144340%_)))) + (_%__kont144339144340%_)))))) + _%rand138140138187%_ + _%hd138130138161%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop138135138171%_ + _%target138132138166%_ + '())) + (_%g138122138145%_ + _%g138123138148%_))))) + (_%g138122138145%_ + _%g138123138148%_)))) + (_%g138122138145%_ _%g138123138148%_)))) + (_%g138122138145%_ _%g138123138148%_))))) + (_%g138121138406%_ _%stx138118%_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_%self138710%_ _%stx138711%_) - (let* ((_%__stx145270145271%_ _%stx138711%_) - (_%g138714138743%_ + (lambda (_%self137860%_ _%stx137861%_) + (let* ((_%__stx144407144408%_ _%stx137861%_) + (_%g137864137893%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx145270145271%_))))) - (let ((_%__kont145272145273%_ - (lambda (_%L138811%_ _%L138812%_) - (if (let () - (declare (not safe)) - (gxc#current-compile-decls-unsafe?)) - (let () - (declare (not safe)) - (gxc#generate-runtime-call% - _%self138710%_ - _%stx138711%_)) - (let ((_%f138834%_ - (let ((__tmp145822 + _%__stx144407144408%_))))) + (let ((_%__kont144409144410%_ + (lambda (_%L137961%_ _%L137962%_) + (if (gxc#current-compile-decls-unsafe?) + (gxc#generate-runtime-call% + _%self137860%_ + _%stx137861%_) + (let ((_%f137984%_ + (let ((__tmp144904 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L138812%_ '())))) + (cons _%L137962%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self138710%_ - __tmp145822)))) - (let _%lp138836%_ ((_%rest138839%_ - (reverse (let ((__tmp145828 - (lambda (_%g138956138959%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g138957138961%_) - (cons _%g138956138959%_ _%g138957138961%_)))) + _%self137860%_ + __tmp144904)))) + (let _%lp137986%_ ((_%rest137989%_ + (reverse (let ((__tmp144906 + (lambda (_%g138106138109%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g138107138111%_) + (cons _%g138106138109%_ _%g138107138111%_)))) (declare (not safe)) - (__foldr1 __tmp145828 '() _%L138811%_)))) + (__foldr1 __tmp144906 '() _%L137961%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind138841%_ '()) - (_%args138842%_ '())) - (let* ((_%rest138843138851%_ _%rest138839%_) - (_%else138845138859%_ + (_%bind137991%_ '()) + (_%args137992%_ '())) + (let* ((_%rest137993138001%_ _%rest137989%_) + (_%else137995138009%_ (lambda () (cons 'let - (cons _%bind138841%_ + (cons _%bind137991%_ (cons '(declare (not safe)) - (cons (cons _%f138834%_ + (cons (cons _%f137984%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%args138842%_) + _%args137992%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K138847138945%_ - (lambda (_%rest138862%_ _%e138863%_) - (let* ((_%__stx145224145225%_ _%e138863%_) - (_%g138868138886%_ + (_%K137997138095%_ + (lambda (_%rest138012%_ _%e138013%_) + (let* ((_%__stx144361144362%_ _%e138013%_) + (_%g138018138036%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx145224145225%_))))) - (let ((_%__kont145226145227%_ + _%__stx144361144362%_))))) + (let ((_%__kont144363144364%_ (lambda () - (let ((__tmp145823 - (cons (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gxc#compile-e__0 _%e138863%_)) - _%args138842%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp138836%_ - _%rest138862%_ - _%bind138841%_ - __tmp145823)))) - (_%__kont145228145229%_ + (_%lp137986%_ + _%rest138012%_ + _%bind137991%_ + (cons (let () + (declare (not safe)) + (gxc#compile-e__0 + _%e138013%_)) + _%args137992%_)))) + (_%__kont144365144366%_ (lambda () - (let ((__tmp145824 - (cons (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gxc#compile-e__0 _%e138863%_)) - _%args138842%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp138836%_ - _%rest138862%_ - _%bind138841%_ - __tmp145824)))) - (_%__kont145230145231%_ + (_%lp137986%_ + _%rest138012%_ + _%bind137991%_ + (cons (let () + (declare (not safe)) + (gxc#compile-e__0 + _%e138013%_)) + _%args137992%_)))) + (_%__kont144367144368%_ (lambda () - (let ((_%tmp138893%_ - (let ((__tmp145825 + (let ((_%tmp138043%_ + (let ((__tmp144905 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp145825)))) + (make-symbol__0 __tmp144905)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp145827 - (cons (cons _%tmp138893%_ + (_%lp137986%_ + _%rest138012%_ + (cons (cons _%tmp138043%_ + (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let () - (declare (not safe)) - (gxc#compile-e__0 _%e138863%_)) - '())) - _%bind138841%_)) - (__tmp145826 (cons _%tmp138893%_ _%args138842%_))) + (declare (not safe)) + (gxc#compile-e__0 _%e138013%_)) + '())) + _%bind137991%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp138836%_ - _%rest138862%_ - __tmp145827 - __tmp145826)))))) + (cons _%tmp138043%_ + _%args137992%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx145224145225%_)) - (let ((_%e138872138924%_ + _%__stx144361144362%_)) + (let ((_%e138022138074%_ (let () (declare (not safe)) (gx#stx-e - _%__stx145224145225%_)))) - (let ((_%tl138870138929%_ + _%__stx144361144362%_)))) + (let ((_%tl138020138079%_ (let () (declare (not safe)) - (##cdr _%e138872138924%_))) - (_%hd138871138927%_ + (##cdr _%e138022138074%_))) + (_%hd138021138077%_ (let () (declare (not safe)) - (##car _%e138872138924%_)))) + (##car _%e138022138074%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd138871138927%_)) + _%hd138021138077%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd138871138927%_)) + _%hd138021138077%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl138870138929%_)) - (let ((_%e138875138932%_ + (gx#stx-pair? _%tl138020138079%_)) + (let ((_%e138025138082%_ (let () (declare (not safe)) - (gx#stx-e _%tl138870138929%_)))) - (let ((_%tl138873138937%_ + (gx#stx-e _%tl138020138079%_)))) + (let ((_%tl138023138087%_ (let () (declare (not safe)) - (##cdr _%e138875138932%_))) - (_%hd138874138935%_ + (##cdr _%e138025138082%_))) + (_%hd138024138085%_ (let () (declare (not safe)) - (##car _%e138875138932%_)))) + (##car _%e138025138082%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138873138937%_)) - (_%__kont145226145227%_) - (_%__kont145230145231%_)))) - (_%__kont145230145231%_)) + (gx#stx-null? _%tl138023138087%_)) + (_%__kont144363144364%_) + (_%__kont144367144368%_)))) + (_%__kont144367144368%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd138871138927%_)) + (gx#stx-eq? '%#quote _%hd138021138077%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138870138929%_)) - (let ((_%e138881138909%_ + (gx#stx-pair? _%tl138020138079%_)) + (let ((_%e138031138059%_ (let () (declare (not safe)) - (gx#stx-e _%tl138870138929%_)))) - (let ((_%tl138879138914%_ + (gx#stx-e _%tl138020138079%_)))) + (let ((_%tl138029138064%_ (let () (declare (not safe)) - (##cdr _%e138881138909%_))) - (_%hd138880138912%_ + (##cdr _%e138031138059%_))) + (_%hd138030138062%_ (let () (declare (not safe)) - (##car _%e138881138909%_)))) + (##car _%e138031138059%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138879138914%_)) - (_%__kont145228145229%_) - (_%__kont145230145231%_)))) - (_%__kont145230145231%_)) - (_%__kont145230145231%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont145230145231%_)))) - (_%__kont145230145231%_))))))) + (gx#stx-null? _%tl138029138064%_)) + (_%__kont144365144366%_) + (_%__kont144367144368%_)))) + (_%__kont144367144368%_)) + (_%__kont144367144368%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont144367144368%_)))) + (_%__kont144367144368%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest138843138851%_)) - (let ((_%hd138848138948%_ + (##pair? _%rest137993138001%_)) + (let ((_%hd137998138098%_ (let () (declare (not safe)) - (##car _%rest138843138851%_))) - (_%tl138849138950%_ + (##car _%rest137993138001%_))) + (_%tl137999138100%_ (let () (declare (not safe)) - (##cdr _%rest138843138851%_)))) - (let* ((_%e138953%_ _%hd138848138948%_) - (_%rest138955%_ _%tl138849138950%_)) - (declare (not safe)) - (_%K138847138945%_ - _%rest138955%_ - _%e138953%_))) - (let () - (declare (not safe)) - (_%else138845138859%_))))))))) - (_%__kont145276145277%_ + (##cdr _%rest137993138001%_)))) + (let* ((_%e138103%_ _%hd137998138098%_) + (_%rest138105%_ _%tl137999138100%_)) + (_%K137997138095%_ + _%rest138105%_ + _%e138103%_))) + (_%else137995138009%_)))))))) + (_%__kont144413144414%_ (lambda () - (let () - (declare (not safe)) - (gxc#generate-runtime-call% - _%self138710%_ - _%stx138711%_))))) - (let ((_%__match145315145316%_ - (lambda (_%e138720138755%_ - _%hd138719138758%_ - _%tl138718138760%_ - _%e138723138763%_ - _%hd138722138766%_ - _%tl138721138768%_ - _%e138726138771%_ - _%hd138725138774%_ - _%tl138724138776%_ - _%e138729138779%_ - _%hd138728138782%_ - _%tl138727138784%_ - _%__splice145274145275%_ - _%target138730138787%_ - _%tl138732138789%_) - (letrec ((_%loop138733138792%_ - (lambda (_%hd138731138795%_ - _%rand138737138797%_) + (gxc#generate-runtime-call% _%self137860%_ _%stx137861%_)))) + (let ((_%__match144452144453%_ + (lambda (_%e137870137905%_ + _%hd137869137908%_ + _%tl137868137910%_ + _%e137873137913%_ + _%hd137872137916%_ + _%tl137871137918%_ + _%e137876137921%_ + _%hd137875137924%_ + _%tl137874137926%_ + _%e137879137929%_ + _%hd137878137932%_ + _%tl137877137934%_ + _%__splice144411144412%_ + _%target137880137937%_ + _%tl137882137939%_) + (letrec ((_%loop137883137942%_ + (lambda (_%hd137881137945%_ + _%rand137887137947%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd138731138795%_)) - (let ((_%e138734138800%_ + (gx#stx-pair? _%hd137881137945%_)) + (let ((_%e137884137950%_ (let () (declare (not safe)) - (gx#stx-e _%hd138731138795%_)))) - (let ((_%lp-tl138736138805%_ + (gx#stx-e _%hd137881137945%_)))) + (let ((_%lp-tl137886137955%_ (let () (declare (not safe)) - (##cdr _%e138734138800%_))) - (_%lp-hd138735138803%_ + (##cdr _%e137884137950%_))) + (_%lp-hd137885137953%_ (let () (declare (not safe)) - (##car _%e138734138800%_)))) - (let ((__tmp145829 - (cons _%lp-hd138735138803%_ - _%rand138737138797%_))) - (declare (not safe)) - (_%loop138733138792%_ - _%lp-tl138736138805%_ - __tmp145829)))) - (let ((_%rand138738138808%_ - (reverse _%rand138737138797%_))) - (_%__kont145272145273%_ - _%rand138738138808%_ - _%hd138728138782%_)))))) - (let () - (declare (not safe)) - (_%loop138733138792%_ _%target138730138787%_ '())))))) + (##car _%e137884137950%_)))) + (_%loop137883137942%_ + _%lp-tl137886137955%_ + (cons _%lp-hd137885137953%_ + _%rand137887137947%_)))) + (let ((_%rand137888137958%_ + (reverse _%rand137887137947%_))) + (_%__kont144409144410%_ + _%rand137888137958%_ + _%hd137878137932%_)))))) + (_%loop137883137942%_ _%target137880137937%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx145270145271%_)) - (let ((_%e138720138755%_ + (gx#stx-pair? _%__stx144407144408%_)) + (let ((_%e137870137905%_ (let () (declare (not safe)) - (gx#stx-e _%__stx145270145271%_)))) - (let ((_%tl138718138760%_ + (gx#stx-e _%__stx144407144408%_)))) + (let ((_%tl137868137910%_ (let () (declare (not safe)) - (##cdr _%e138720138755%_))) - (_%hd138719138758%_ + (##cdr _%e137870137905%_))) + (_%hd137869137908%_ (let () (declare (not safe)) - (##car _%e138720138755%_)))) + (##car _%e137870137905%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138718138760%_)) - (let ((_%e138723138763%_ + (gx#stx-pair? _%tl137868137910%_)) + (let ((_%e137873137913%_ (let () (declare (not safe)) - (gx#stx-e _%tl138718138760%_)))) - (let ((_%tl138721138768%_ + (gx#stx-e _%tl137868137910%_)))) + (let ((_%tl137871137918%_ (let () (declare (not safe)) - (##cdr _%e138723138763%_))) - (_%hd138722138766%_ + (##cdr _%e137873137913%_))) + (_%hd137872137916%_ (let () (declare (not safe)) - (##car _%e138723138763%_)))) + (##car _%e137873137913%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd138722138766%_)) - (let ((_%e138726138771%_ + (gx#stx-pair? _%hd137872137916%_)) + (let ((_%e137876137921%_ (let () (declare (not safe)) - (gx#stx-e _%hd138722138766%_)))) - (let ((_%tl138724138776%_ + (gx#stx-e _%hd137872137916%_)))) + (let ((_%tl137874137926%_ (let () (declare (not safe)) - (##cdr _%e138726138771%_))) - (_%hd138725138774%_ + (##cdr _%e137876137921%_))) + (_%hd137875137924%_ (let () (declare (not safe)) - (##car _%e138726138771%_)))) + (##car _%e137876137921%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd138725138774%_)) + _%hd137875137924%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd138725138774%_)) + _%hd137875137924%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138724138776%_)) - (let ((_%e138729138779%_ + _%tl137874137926%_)) + (let ((_%e137879137929%_ (let () (declare (not safe)) (gx#stx-e - _%tl138724138776%_)))) - (let ((_%tl138727138784%_ + _%tl137874137926%_)))) + (let ((_%tl137877137934%_ (let () (declare (not safe)) - (##cdr _%e138729138779%_))) - (_%hd138728138782%_ + (##cdr _%e137879137929%_))) + (_%hd137878137932%_ (let () (declare (not safe)) - (##car _%e138729138779%_)))) + (##car _%e137879137929%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138727138784%_)) + _%tl137877137934%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl138721138768%_)) - (let ((_%__splice145274145275%_ + (gx#stx-pair/null? _%tl137871137918%_)) + (let ((_%__splice144411144412%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl138721138768%_ + _%tl137871137918%_ '0)))) - (let ((_%tl138732138789%_ + (let ((_%tl137882137939%_ (let () (declare (not safe)) - (##vector-ref _%__splice145274145275%_ '1))) - (_%target138730138787%_ + (##vector-ref _%__splice144411144412%_ '1))) + (_%target137880137937%_ (let () (declare (not safe)) - (##vector-ref _%__splice145274145275%_ '0)))) + (##vector-ref _%__splice144411144412%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138732138789%_)) - (_%__match145315145316%_ - _%e138720138755%_ - _%hd138719138758%_ - _%tl138718138760%_ - _%e138723138763%_ - _%hd138722138766%_ - _%tl138721138768%_ - _%e138726138771%_ - _%hd138725138774%_ - _%tl138724138776%_ - _%e138729138779%_ - _%hd138728138782%_ - _%tl138727138784%_ - _%__splice145274145275%_ - _%target138730138787%_ - _%tl138732138789%_) - (_%__kont145276145277%_)))) - (_%__kont145276145277%_)) - (_%__kont145276145277%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont145276145277%_)) - (_%__kont145276145277%_)) - (_%__kont145276145277%_)))) - (_%__kont145276145277%_)))) - (_%__kont145276145277%_)))) - (_%__kont145276145277%_))))))) + (gx#stx-null? _%tl137882137939%_)) + (_%__match144452144453%_ + _%e137870137905%_ + _%hd137869137908%_ + _%tl137868137910%_ + _%e137873137913%_ + _%hd137872137916%_ + _%tl137871137918%_ + _%e137876137921%_ + _%hd137875137924%_ + _%tl137874137926%_ + _%e137879137929%_ + _%hd137878137932%_ + _%tl137877137934%_ + _%__splice144411144412%_ + _%target137880137937%_ + _%tl137882137939%_) + (_%__kont144413144414%_)))) + (_%__kont144413144414%_)) + (_%__kont144413144414%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont144413144414%_)) + (_%__kont144413144414%_)) + (_%__kont144413144414%_)))) + (_%__kont144413144414%_)))) + (_%__kont144413144414%_)))) + (_%__kont144413144414%_))))))) (define gxc#generate-runtime-if% - (lambda (_%self138522%_ _%stx138523%_) - (letrec ((_%simplify138525%_ - (lambda (_%code138610%_) - (let* ((_%code138611138629%_ _%code138610%_) - (_%else138613138637%_ (lambda () _%code138610%_)) - (_%K138615138673%_ - (lambda (_%expr138640%_ _%test138641%_) - (let* ((_%expr138642138650%_ _%expr138640%_) - (_%else138644138658%_ + (lambda (_%self137672%_ _%stx137673%_) + (letrec ((_%simplify137675%_ + (lambda (_%code137760%_) + (let* ((_%code137761137779%_ _%code137760%_) + (_%else137763137787%_ (lambda () _%code137760%_)) + (_%K137765137823%_ + (lambda (_%expr137790%_ _%test137791%_) + (let* ((_%expr137792137800%_ _%expr137790%_) + (_%else137794137808%_ (lambda () (cons 'and - (cons _%test138641%_ - (cons _%expr138640%_ + (cons _%test137791%_ + (cons _%expr137790%_ '()))))) - (_%K138646138663%_ - (lambda (_%exprs138661%_) + (_%K137796137813%_ + (lambda (_%exprs137811%_) (cons 'and - (cons _%test138641%_ - _%exprs138661%_))))) + (cons _%test137791%_ + _%exprs137811%_))))) (if (let () (declare (not safe)) - (##pair? _%expr138642138650%_)) - (let ((_%hd138647138666%_ + (##pair? _%expr137792137800%_)) + (let ((_%hd137797137816%_ (let () (declare (not safe)) - (##car _%expr138642138650%_))) - (_%tl138648138668%_ + (##car _%expr137792137800%_))) + (_%tl137798137818%_ (let () (declare (not safe)) - (##cdr _%expr138642138650%_)))) + (##cdr _%expr137792137800%_)))) (if (let () (declare (not safe)) - (##eq? _%hd138647138666%_ 'and)) - (let ((_%exprs138671%_ - _%tl138648138668%_)) - (declare (not safe)) - (_%K138646138663%_ - _%exprs138671%_)) - (let () - (declare (not safe)) - (_%else138644138658%_)))) - (let () - (declare (not safe)) - (_%else138644138658%_))))))) + (##eq? _%hd137797137816%_ 'and)) + (let ((_%exprs137821%_ + _%tl137798137818%_)) + (_%K137796137813%_ + _%exprs137821%_)) + (_%else137794137808%_))) + (_%else137794137808%_)))))) (if (let () (declare (not safe)) - (##pair? _%code138611138629%_)) - (let ((_%hd138616138676%_ + (##pair? _%code137761137779%_)) + (let ((_%hd137766137826%_ (let () (declare (not safe)) - (##car _%code138611138629%_))) - (_%tl138617138678%_ + (##car _%code137761137779%_))) + (_%tl137767137828%_ (let () (declare (not safe)) - (##cdr _%code138611138629%_)))) + (##cdr _%code137761137779%_)))) (if (let () (declare (not safe)) - (##eq? _%hd138616138676%_ 'if)) + (##eq? _%hd137766137826%_ 'if)) (if (let () (declare (not safe)) - (##pair? _%tl138617138678%_)) - (let ((_%hd138618138681%_ + (##pair? _%tl137767137828%_)) + (let ((_%hd137768137831%_ (let () (declare (not safe)) - (##car _%tl138617138678%_))) - (_%tl138619138683%_ + (##car _%tl137767137828%_))) + (_%tl137769137833%_ (let () (declare (not safe)) - (##cdr _%tl138617138678%_)))) - (let ((_%test138686%_ - _%hd138618138681%_)) + (##cdr _%tl137767137828%_)))) + (let ((_%test137836%_ + _%hd137768137831%_)) (if (let () (declare (not safe)) - (##pair? _%tl138619138683%_)) - (let ((_%hd138620138688%_ + (##pair? _%tl137769137833%_)) + (let ((_%hd137770137838%_ (let () (declare (not safe)) - (##car _%tl138619138683%_))) - (_%tl138621138690%_ + (##car _%tl137769137833%_))) + (_%tl137771137840%_ (let () (declare (not safe)) - (##cdr _%tl138619138683%_)))) - (let ((_%expr138693%_ - _%hd138620138688%_)) + (##cdr _%tl137769137833%_)))) + (let ((_%expr137843%_ + _%hd137770137838%_)) (if (let () (declare (not safe)) - (##pair? _%tl138621138690%_)) - (let ((_%hd138622138695%_ + (##pair? _%tl137771137840%_)) + (let ((_%hd137772137845%_ (let () (declare (not safe)) - (##car _%tl138621138690%_))) - (_%tl138623138697%_ + (##car _%tl137771137840%_))) + (_%tl137773137847%_ (let () (declare (not safe)) - (##cdr _%tl138621138690%_)))) + (##cdr _%tl137771137840%_)))) (if (let () (declare (not safe)) - (##pair? _%hd138622138695%_)) - (let ((_%hd138624138700%_ + (##pair? _%hd137772137845%_)) + (let ((_%hd137774137850%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%hd138622138695%_))) - (_%tl138625138702%_ + (##car _%hd137772137845%_))) + (_%tl137775137852%_ (let () (declare (not safe)) - (##cdr _%hd138622138695%_)))) + (##cdr _%hd137772137845%_)))) (if (let () (declare (not safe)) - (##eq? _%hd138624138700%_ 'quote)) + (##eq? _%hd137774137850%_ 'quote)) (if (let () (declare (not safe)) - (##pair? _%tl138625138702%_)) - (let ((_%hd138626138705%_ + (##pair? _%tl137775137852%_)) + (let ((_%hd137776137855%_ (let () (declare (not safe)) - (##car _%tl138625138702%_))) - (_%tl138627138707%_ + (##car _%tl137775137852%_))) + (_%tl137777137857%_ (let () (declare (not safe)) - (##cdr _%tl138625138702%_)))) + (##cdr _%tl137775137852%_)))) (if (let () (declare (not safe)) - (##eq? _%hd138626138705%_ '#f)) + (##eq? _%hd137776137855%_ '#f)) (if (let () (declare (not safe)) - (##null? _%tl138627138707%_)) + (##null? _%tl137777137857%_)) (if (let () (declare (not safe)) - (##null? _%tl138623138697%_)) - (let () - (declare (not safe)) - (_%K138615138673%_ - _%expr138693%_ - _%test138686%_)) - (let () - (declare (not safe)) - (_%else138613138637%_))) - (let () - (declare (not safe)) - (_%else138613138637%_))) - (let () - (declare (not safe)) - (_%else138613138637%_)))) - (let () - (declare (not safe)) - (_%else138613138637%_))) - (let () (declare (not safe)) (_%else138613138637%_)))) - (let () (declare (not safe)) (_%else138613138637%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%else138613138637%_))))) - (let () - (declare (not safe)) - (_%else138613138637%_))))) - (let () - (declare (not safe)) - (_%else138613138637%_))) - (let () - (declare (not safe)) - (_%else138613138637%_)))) - (let () - (declare (not safe)) - (_%else138613138637%_))))))) - (let* ((_%g138527138548%_ - (lambda (_%g138528138545%_) + (##null? _%tl137773137847%_)) + (_%K137765137823%_ + _%expr137843%_ + _%test137836%_) + (_%else137763137787%_)) + (_%else137763137787%_)) + (_%else137763137787%_))) + (_%else137763137787%_)) + (_%else137763137787%_))) + (_%else137763137787%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else137763137787%_)))) + (_%else137763137787%_)))) + (_%else137763137787%_)) + (_%else137763137787%_))) + (_%else137763137787%_)))))) + (let* ((_%g137677137698%_ + (lambda (_%g137678137695%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138528138545%_)))) - (_%g138526138607%_ - (lambda (_%g138528138551%_) + _%g137678137695%_)))) + (_%g137676137757%_ + (lambda (_%g137678137701%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138528138551%_)) - (let ((_%e138534138553%_ + (gx#stx-pair? _%g137678137701%_)) + (let ((_%e137684137703%_ (let () (declare (not safe)) - (gx#stx-e _%g138528138551%_)))) - (let ((_%hd138533138556%_ + (gx#stx-e _%g137678137701%_)))) + (let ((_%hd137683137706%_ (let () (declare (not safe)) - (##car _%e138534138553%_))) - (_%tl138532138558%_ + (##car _%e137684137703%_))) + (_%tl137682137708%_ (let () (declare (not safe)) - (##cdr _%e138534138553%_)))) + (##cdr _%e137684137703%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138532138558%_)) - (let ((_%e138537138561%_ + (gx#stx-pair? _%tl137682137708%_)) + (let ((_%e137687137711%_ (let () (declare (not safe)) - (gx#stx-e _%tl138532138558%_)))) - (let ((_%hd138536138564%_ + (gx#stx-e _%tl137682137708%_)))) + (let ((_%hd137686137714%_ (let () (declare (not safe)) - (##car _%e138537138561%_))) - (_%tl138535138566%_ + (##car _%e137687137711%_))) + (_%tl137685137716%_ (let () (declare (not safe)) - (##cdr _%e138537138561%_)))) + (##cdr _%e137687137711%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138535138566%_)) - (let ((_%e138540138569%_ + (gx#stx-pair? _%tl137685137716%_)) + (let ((_%e137690137719%_ (let () (declare (not safe)) (gx#stx-e - _%tl138535138566%_)))) - (let ((_%hd138539138572%_ + _%tl137685137716%_)))) + (let ((_%hd137689137722%_ (let () (declare (not safe)) - (##car _%e138540138569%_))) - (_%tl138538138574%_ + (##car _%e137690137719%_))) + (_%tl137688137724%_ (let () (declare (not safe)) - (##cdr _%e138540138569%_)))) + (##cdr _%e137690137719%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138538138574%_)) - (let ((_%e138543138577%_ + _%tl137688137724%_)) + (let ((_%e137693137727%_ (let () (declare (not safe)) (gx#stx-e - _%tl138538138574%_)))) - (let ((_%hd138542138580%_ + _%tl137688137724%_)))) + (let ((_%hd137692137730%_ (let () (declare (not safe)) - (##car _%e138543138577%_))) - (_%tl138541138582%_ + (##car _%e137693137727%_))) + (_%tl137691137732%_ (let () (declare (not safe)) - (##cdr _%e138543138577%_)))) + (##cdr _%e137693137727%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138541138582%_)) - ((lambda (_%L138585%_ + _%tl137691137732%_)) + ((lambda (_%L137735%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L138586%_ - _%L138587%_) + _%L137736%_ + _%L137737%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (let ((__tmp145830 - (cons 'if + (_%simplify137675%_ + (cons 'if + (cons (let () + (declare (not safe)) + (gxc#compile-e__1 + _%self137672%_ + _%L137737%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self138522%_ - _%L138587%_)) + _%self137672%_ + _%L137736%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self138522%_ - _%L138586%_)) - (cons (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self138522%_ - _%L138585%_)) - '())))))) - (declare (not safe)) - (_%simplify138525%_ __tmp145830)) + _%self137672%_ + _%L137735%_)) + '()))))) (cons 'if - (cons (let ((__tmp145831 + (cons (let ((__tmp144907 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self138522%_ - _%L138587%_))))) + _%self137672%_ + _%L137737%_))))) (declare (not safe)) (__call-with-parameters - __tmp145831 + __tmp144907 gxc#current-compile-boolean-context '#t)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self138522%_ - _%L138586%_)) + _%self137672%_ + _%L137736%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self138522%_ - _%L138585%_)) + _%self137672%_ + _%L137735%_)) '())))))) - _%hd138542138580%_ - _%hd138539138572%_ - _%hd138536138564%_) - (let () - (declare (not safe)) - (_%g138527138548%_ _%g138528138551%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g138527138548%_ - _%g138528138551%_))))) - (let () - (declare (not safe)) - (_%g138527138548%_ - _%g138528138551%_))))) - (let () - (declare (not safe)) - (_%g138527138548%_ _%g138528138551%_))))) - (let () - (declare (not safe)) - (_%g138527138548%_ _%g138528138551%_)))))) - (declare (not safe)) - (_%g138526138607%_ _%stx138523%_))))) + _%hd137692137730%_ + _%hd137689137722%_ + _%hd137686137714%_) + (_%g137677137698%_ _%g137678137701%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g137677137698%_ + _%g137678137701%_)))) + (_%g137677137698%_ + _%g137678137701%_)))) + (_%g137677137698%_ _%g137678137701%_)))) + (_%g137677137698%_ _%g137678137701%_))))) + (_%g137676137757%_ _%stx137673%_))))) (define gxc#generate-runtime-ref% - (lambda (_%self138470%_ _%stx138471%_) - (let* ((_%g138473138486%_ - (lambda (_%g138474138483%_) + (lambda (_%self137620%_ _%stx137621%_) + (let* ((_%g137623137636%_ + (lambda (_%g137624137633%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138474138483%_)))) - (_%g138472138519%_ - (lambda (_%g138474138489%_) + _%g137624137633%_)))) + (_%g137622137669%_ + (lambda (_%g137624137639%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138474138489%_)) - (let ((_%e138478138491%_ + (gx#stx-pair? _%g137624137639%_)) + (let ((_%e137628137641%_ (let () (declare (not safe)) - (gx#stx-e _%g138474138489%_)))) - (let ((_%hd138477138494%_ + (gx#stx-e _%g137624137639%_)))) + (let ((_%hd137627137644%_ (let () (declare (not safe)) - (##car _%e138478138491%_))) - (_%tl138476138496%_ + (##car _%e137628137641%_))) + (_%tl137626137646%_ (let () (declare (not safe)) - (##cdr _%e138478138491%_)))) + (##cdr _%e137628137641%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138476138496%_)) - (let ((_%e138481138499%_ + (gx#stx-pair? _%tl137626137646%_)) + (let ((_%e137631137649%_ (let () (declare (not safe)) - (gx#stx-e _%tl138476138496%_)))) - (let ((_%hd138480138502%_ + (gx#stx-e _%tl137626137646%_)))) + (let ((_%hd137630137652%_ (let () (declare (not safe)) - (##car _%e138481138499%_))) - (_%tl138479138504%_ + (##car _%e137631137649%_))) + (_%tl137629137654%_ (let () (declare (not safe)) - (##cdr _%e138481138499%_)))) + (##cdr _%e137631137649%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138479138504%_)) - ((lambda (_%L138507%_) + (gx#stx-null? _%tl137629137654%_)) + ((lambda (_%L137657%_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L138507%_))) - _%hd138480138502%_) - (let () - (declare (not safe)) - (_%g138473138486%_ - _%g138474138489%_))))) - (let () - (declare (not safe)) - (_%g138473138486%_ _%g138474138489%_))))) - (let () - (declare (not safe)) - (_%g138473138486%_ _%g138474138489%_)))))) - (declare (not safe)) - (_%g138472138519%_ _%stx138471%_)))) + _%L137657%_))) + _%hd137630137652%_) + (_%g137623137636%_ _%g137624137639%_)))) + (_%g137623137636%_ _%g137624137639%_)))) + (_%g137623137636%_ _%g137624137639%_))))) + (_%g137622137669%_ _%stx137621%_)))) (define gxc#generate-runtime-setq% - (lambda (_%self138402%_ _%stx138403%_) - (let* ((_%g138405138422%_ - (lambda (_%g138406138419%_) + (lambda (_%self137552%_ _%stx137553%_) + (let* ((_%g137555137572%_ + (lambda (_%g137556137569%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138406138419%_)))) - (_%g138404138467%_ - (lambda (_%g138406138425%_) + _%g137556137569%_)))) + (_%g137554137617%_ + (lambda (_%g137556137575%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138406138425%_)) - (let ((_%e138411138427%_ + (gx#stx-pair? _%g137556137575%_)) + (let ((_%e137561137577%_ (let () (declare (not safe)) - (gx#stx-e _%g138406138425%_)))) - (let ((_%hd138410138430%_ + (gx#stx-e _%g137556137575%_)))) + (let ((_%hd137560137580%_ (let () (declare (not safe)) - (##car _%e138411138427%_))) - (_%tl138409138432%_ + (##car _%e137561137577%_))) + (_%tl137559137582%_ (let () (declare (not safe)) - (##cdr _%e138411138427%_)))) + (##cdr _%e137561137577%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138409138432%_)) - (let ((_%e138414138435%_ + (gx#stx-pair? _%tl137559137582%_)) + (let ((_%e137564137585%_ (let () (declare (not safe)) - (gx#stx-e _%tl138409138432%_)))) - (let ((_%hd138413138438%_ + (gx#stx-e _%tl137559137582%_)))) + (let ((_%hd137563137588%_ (let () (declare (not safe)) - (##car _%e138414138435%_))) - (_%tl138412138440%_ + (##car _%e137564137585%_))) + (_%tl137562137590%_ (let () (declare (not safe)) - (##cdr _%e138414138435%_)))) + (##cdr _%e137564137585%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138412138440%_)) - (let ((_%e138417138443%_ + (gx#stx-pair? _%tl137562137590%_)) + (let ((_%e137567137593%_ (let () (declare (not safe)) - (gx#stx-e _%tl138412138440%_)))) - (let ((_%hd138416138446%_ + (gx#stx-e _%tl137562137590%_)))) + (let ((_%hd137566137596%_ (let () (declare (not safe)) - (##car _%e138417138443%_))) - (_%tl138415138448%_ + (##car _%e137567137593%_))) + (_%tl137565137598%_ (let () (declare (not safe)) - (##cdr _%e138417138443%_)))) + (##cdr _%e137567137593%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138415138448%_)) - ((lambda (_%L138451%_ - _%L138452%_) + _%tl137565137598%_)) + ((lambda (_%L137601%_ + _%L137602%_) (cons 'set! (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#generate-runtime-binding-id _%L138452%_)) + (gxc#generate-runtime-binding-id _%L137602%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self138402%_ _%L138451%_)) + (gxc#compile-e__1 _%self137552%_ _%L137601%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd138416138446%_ - _%hd138413138438%_) - (let () - (declare (not safe)) - (_%g138405138422%_ - _%g138406138425%_))))) - (let () - (declare (not safe)) - (_%g138405138422%_ - _%g138406138425%_))))) - (let () - (declare (not safe)) - (_%g138405138422%_ _%g138406138425%_))))) - (let () - (declare (not safe)) - (_%g138405138422%_ _%g138406138425%_)))))) - (declare (not safe)) - (_%g138404138467%_ _%stx138403%_)))) + _%hd137566137596%_ + _%hd137563137588%_) + (_%g137555137572%_ + _%g137556137575%_)))) + (_%g137555137572%_ _%g137556137575%_)))) + (_%g137555137572%_ _%g137556137575%_)))) + (_%g137555137572%_ _%g137556137575%_))))) + (_%g137554137617%_ _%stx137553%_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_%self138213%_ _%stx138214%_) - (let* ((_%g138216138233%_ - (lambda (_%g138217138230%_) + (lambda (_%self137363%_ _%stx137364%_) + (let* ((_%g137366137383%_ + (lambda (_%g137367137380%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138217138230%_)))) - (_%g138215138399%_ - (lambda (_%g138217138236%_) + _%g137367137380%_)))) + (_%g137365137549%_ + (lambda (_%g137367137386%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138217138236%_)) - (let ((_%e138222138238%_ + (gx#stx-pair? _%g137367137386%_)) + (let ((_%e137372137388%_ (let () (declare (not safe)) - (gx#stx-e _%g138217138236%_)))) - (let ((_%hd138221138241%_ + (gx#stx-e _%g137367137386%_)))) + (let ((_%hd137371137391%_ (let () (declare (not safe)) - (##car _%e138222138238%_))) - (_%tl138220138243%_ + (##car _%e137372137388%_))) + (_%tl137370137393%_ (let () (declare (not safe)) - (##cdr _%e138222138238%_)))) + (##cdr _%e137372137388%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138220138243%_)) - (let ((_%e138225138246%_ + (gx#stx-pair? _%tl137370137393%_)) + (let ((_%e137375137396%_ (let () (declare (not safe)) - (gx#stx-e _%tl138220138243%_)))) - (let ((_%hd138224138249%_ + (gx#stx-e _%tl137370137393%_)))) + (let ((_%hd137374137399%_ (let () (declare (not safe)) - (##car _%e138225138246%_))) - (_%tl138223138251%_ + (##car _%e137375137396%_))) + (_%tl137373137401%_ (let () (declare (not safe)) - (##cdr _%e138225138246%_)))) + (##cdr _%e137375137396%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138223138251%_)) - (let ((_%e138228138254%_ + (gx#stx-pair? _%tl137373137401%_)) + (let ((_%e137378137404%_ (let () (declare (not safe)) - (gx#stx-e _%tl138223138251%_)))) - (let ((_%hd138227138257%_ + (gx#stx-e _%tl137373137401%_)))) + (let ((_%hd137377137407%_ (let () (declare (not safe)) - (##car _%e138228138254%_))) - (_%tl138226138259%_ + (##car _%e137378137404%_))) + (_%tl137376137409%_ (let () (declare (not safe)) - (##cdr _%e138228138254%_)))) + (##cdr _%e137378137404%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138226138259%_)) - ((lambda (_%L138262%_ - _%L138263%_) - (if (let () - (declare (not safe)) - (gxc#current-compile-decls-unsafe?)) + _%tl137376137409%_)) + ((lambda (_%L137412%_ + _%L137413%_) + (if (gxc#current-compile-decls-unsafe?) (cons '##structure-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self138213%_ _%L138262%_)) + (gxc#compile-e__1 _%self137363%_ _%L137412%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self138213%_ _%L138263%_)) + (gxc#compile-e__1 _%self137363%_ _%L137413%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp138278%_ ((_%rest138281%_ + (let _%lp137428%_ ((_%rest137431%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L138263%_ (cons _%L138262%_ '()))) - (_%bind138283%_ '()) - (_%args138284%_ '())) - (let* ((_%rest138285138293%_ _%rest138281%_) - (_%else138287138301%_ + (cons _%L137413%_ (cons _%L137412%_ '()))) + (_%bind137433%_ '()) + (_%args137434%_ '())) + (let* ((_%rest137435137443%_ _%rest137431%_) + (_%else137437137451%_ (lambda () (cons 'let - (cons _%bind138283%_ + (cons _%bind137433%_ (cons '(declare (not safe)) (cons (cons '##structure-instance-of? - _%args138284%_) + _%args137434%_) '())))))) - (_%K138289138387%_ - (lambda (_%rest138304%_ _%e138305%_) - (let* ((_%__stx145318145319%_ _%e138305%_) - (_%g138310138328%_ + (_%K137439137537%_ + (lambda (_%rest137454%_ _%e137455%_) + (let* ((_%__stx144455144456%_ _%e137455%_) + (_%g137460137478%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx145318145319%_))))) - (let ((_%__kont145320145321%_ + _%__stx144455144456%_))))) + (let ((_%__kont144457144458%_ (lambda () - (let ((__tmp145832 - (cons (let () - (declare (not safe)) - (gxc#compile-e__0 - _%e138305%_)) - _%args138284%_))) - (declare (not safe)) - (_%lp138278%_ - _%rest138304%_ - _%bind138283%_ - __tmp145832)))) - (_%__kont145322145323%_ + (_%lp137428%_ + _%rest137454%_ + _%bind137433%_ + (cons (let () + (declare (not safe)) + (gxc#compile-e__0 _%e137455%_)) + _%args137434%_)))) + (_%__kont144459144460%_ (lambda () - (let ((__tmp145833 - (cons (let () - (declare (not safe)) - (gxc#compile-e__0 - _%e138305%_)) - _%args138284%_))) - (declare (not safe)) - (_%lp138278%_ - _%rest138304%_ - _%bind138283%_ - __tmp145833)))) - (_%__kont145324145325%_ + (_%lp137428%_ + _%rest137454%_ + _%bind137433%_ + (cons (let () + (declare (not safe)) + (gxc#compile-e__0 _%e137455%_)) + _%args137434%_)))) + (_%__kont144461144462%_ (lambda () - (let ((_%tmp138335%_ - (let ((__tmp145834 + (let ((_%tmp137485%_ + (let ((__tmp144908 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp145834)))) - (let ((__tmp145836 - (cons (cons _%tmp138335%_ - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gxc#compile-e__0 _%e138305%_)) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind138283%_)) - (__tmp145835 - (cons _%tmp138335%_ - _%args138284%_))) - (declare (not safe)) - (_%lp138278%_ - _%rest138304%_ - __tmp145836 - __tmp145835)))))) + (make-symbol__0 __tmp144908)))) + (_%lp137428%_ + _%rest137454%_ + (cons (cons _%tmp137485%_ + (cons (let () + (declare (not safe)) + (gxc#compile-e__0 + _%e137455%_)) + '())) + _%bind137433%_) + (cons _%tmp137485%_ _%args137434%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx145318145319%_)) - (let ((_%e138314138366%_ + (gx#stx-pair? _%__stx144455144456%_)) + (let ((_%e137464137516%_ (let () (declare (not safe)) - (gx#stx-e _%__stx145318145319%_)))) - (let ((_%tl138312138371%_ + (gx#stx-e _%__stx144455144456%_)))) + (let ((_%tl137462137521%_ (let () (declare (not safe)) - (##cdr _%e138314138366%_))) - (_%hd138313138369%_ + (##cdr _%e137464137516%_))) + (_%hd137463137519%_ (let () (declare (not safe)) - (##car _%e138314138366%_)))) + (##car _%e137464137516%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd138313138369%_)) + (gx#identifier? _%hd137463137519%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd138313138369%_)) + _%hd137463137519%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138312138371%_)) - (let ((_%e138317138374%_ + _%tl137462137521%_)) + (let ((_%e137467137524%_ (let () (declare (not safe)) (gx#stx-e - _%tl138312138371%_)))) - (let ((_%tl138315138379%_ + _%tl137462137521%_)))) + (let ((_%tl137465137529%_ (let () (declare (not safe)) - (##cdr _%e138317138374%_))) - (_%hd138316138377%_ + (##cdr _%e137467137524%_))) + (_%hd137466137527%_ (let () (declare (not safe)) - (##car _%e138317138374%_)))) + (##car _%e137467137524%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138315138379%_)) - (_%__kont145320145321%_) - (_%__kont145324145325%_)))) - (_%__kont145324145325%_)) + _%tl137465137529%_)) + (_%__kont144457144458%_) + (_%__kont144461144462%_)))) + (_%__kont144461144462%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd138313138369%_)) + _%hd137463137519%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138312138371%_)) - (let ((_%e138323138351%_ + _%tl137462137521%_)) + (let ((_%e137473137501%_ (let () (declare (not safe)) (gx#stx-e - _%tl138312138371%_)))) - (let ((_%tl138321138356%_ + _%tl137462137521%_)))) + (let ((_%tl137471137506%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e138323138351%_))) - (_%hd138322138354%_ - (let () (declare (not safe)) (##car _%e138323138351%_)))) + (##cdr _%e137473137501%_))) + (_%hd137472137504%_ + (let () (declare (not safe)) (##car _%e137473137501%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138321138356%_)) - (_%__kont145322145323%_) - (_%__kont145324145325%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont145324145325%_)) - (_%__kont145324145325%_))) - (_%__kont145324145325%_)))) - (_%__kont145324145325%_))))))) + (gx#stx-null? _%tl137471137506%_)) + (_%__kont144459144460%_) + (_%__kont144461144462%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont144461144462%_)) + (_%__kont144461144462%_))) + (_%__kont144461144462%_)))) + (_%__kont144461144462%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest138285138293%_)) - (let ((_%hd138290138390%_ + (##pair? _%rest137435137443%_)) + (let ((_%hd137440137540%_ (let () (declare (not safe)) - (##car _%rest138285138293%_))) - (_%tl138291138392%_ + (##car _%rest137435137443%_))) + (_%tl137441137542%_ (let () (declare (not safe)) - (##cdr _%rest138285138293%_)))) - (let* ((_%e138395%_ _%hd138290138390%_) - (_%rest138397%_ _%tl138291138392%_)) - (declare (not safe)) - (_%K138289138387%_ _%rest138397%_ _%e138395%_))) - (let () (declare (not safe)) (_%else138287138301%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd138227138257%_ - _%hd138224138249%_) - (let () - (declare (not safe)) - (_%g138216138233%_ - _%g138217138236%_))))) - (let () - (declare (not safe)) - (_%g138216138233%_ - _%g138217138236%_))))) - (let () - (declare (not safe)) - (_%g138216138233%_ _%g138217138236%_))))) - (let () - (declare (not safe)) - (_%g138216138233%_ _%g138217138236%_)))))) - (declare (not safe)) - (_%g138215138399%_ _%stx138214%_)))) + (##cdr _%rest137435137443%_)))) + (let* ((_%e137545%_ _%hd137440137540%_) + (_%rest137547%_ _%tl137441137542%_)) + (_%K137439137537%_ _%rest137547%_ _%e137545%_))) + (_%else137437137451%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd137377137407%_ + _%hd137374137399%_) + (_%g137366137383%_ + _%g137367137386%_)))) + (_%g137366137383%_ _%g137367137386%_)))) + (_%g137366137383%_ _%g137367137386%_)))) + (_%g137366137383%_ _%g137367137386%_))))) + (_%g137365137549%_ _%stx137364%_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_%self138024%_ _%stx138025%_) - (let* ((_%g138027138044%_ - (lambda (_%g138028138041%_) + (lambda (_%self137174%_ _%stx137175%_) + (let* ((_%g137177137194%_ + (lambda (_%g137178137191%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138028138041%_)))) - (_%g138026138210%_ - (lambda (_%g138028138047%_) + _%g137178137191%_)))) + (_%g137176137360%_ + (lambda (_%g137178137197%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138028138047%_)) - (let ((_%e138033138049%_ + (gx#stx-pair? _%g137178137197%_)) + (let ((_%e137183137199%_ (let () (declare (not safe)) - (gx#stx-e _%g138028138047%_)))) - (let ((_%hd138032138052%_ + (gx#stx-e _%g137178137197%_)))) + (let ((_%hd137182137202%_ (let () (declare (not safe)) - (##car _%e138033138049%_))) - (_%tl138031138054%_ + (##car _%e137183137199%_))) + (_%tl137181137204%_ (let () (declare (not safe)) - (##cdr _%e138033138049%_)))) + (##cdr _%e137183137199%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138031138054%_)) - (let ((_%e138036138057%_ + (gx#stx-pair? _%tl137181137204%_)) + (let ((_%e137186137207%_ (let () (declare (not safe)) - (gx#stx-e _%tl138031138054%_)))) - (let ((_%hd138035138060%_ + (gx#stx-e _%tl137181137204%_)))) + (let ((_%hd137185137210%_ (let () (declare (not safe)) - (##car _%e138036138057%_))) - (_%tl138034138062%_ + (##car _%e137186137207%_))) + (_%tl137184137212%_ (let () (declare (not safe)) - (##cdr _%e138036138057%_)))) + (##cdr _%e137186137207%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138034138062%_)) - (let ((_%e138039138065%_ + (gx#stx-pair? _%tl137184137212%_)) + (let ((_%e137189137215%_ (let () (declare (not safe)) - (gx#stx-e _%tl138034138062%_)))) - (let ((_%hd138038138068%_ + (gx#stx-e _%tl137184137212%_)))) + (let ((_%hd137188137218%_ (let () (declare (not safe)) - (##car _%e138039138065%_))) - (_%tl138037138070%_ + (##car _%e137189137215%_))) + (_%tl137187137220%_ (let () (declare (not safe)) - (##cdr _%e138039138065%_)))) + (##cdr _%e137189137215%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138037138070%_)) - ((lambda (_%L138073%_ - _%L138074%_) - (if (let () - (declare (not safe)) - (gxc#current-compile-decls-unsafe?)) + _%tl137187137220%_)) + ((lambda (_%L137223%_ + _%L137224%_) + (if (gxc#current-compile-decls-unsafe?) (cons '##structure-direct-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self138024%_ _%L138073%_)) + (gxc#compile-e__1 _%self137174%_ _%L137223%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self138024%_ _%L138074%_)) + (gxc#compile-e__1 _%self137174%_ _%L137224%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp138089%_ ((_%rest138092%_ + (let _%lp137239%_ ((_%rest137242%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L138074%_ (cons _%L138073%_ '()))) - (_%bind138094%_ '()) - (_%args138095%_ '())) - (let* ((_%rest138096138104%_ _%rest138092%_) - (_%else138098138112%_ + (cons _%L137224%_ (cons _%L137223%_ '()))) + (_%bind137244%_ '()) + (_%args137245%_ '())) + (let* ((_%rest137246137254%_ _%rest137242%_) + (_%else137248137262%_ (lambda () (cons 'let - (cons _%bind138094%_ + (cons _%bind137244%_ (cons '(declare (not safe)) (cons (cons '##structure-direct-instance-of? - _%args138095%_) + _%args137245%_) '())))))) - (_%K138100138198%_ - (lambda (_%rest138115%_ _%e138116%_) - (let* ((_%__stx145364145365%_ _%e138116%_) - (_%g138121138139%_ + (_%K137250137348%_ + (lambda (_%rest137265%_ _%e137266%_) + (let* ((_%__stx144501144502%_ _%e137266%_) + (_%g137271137289%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx145364145365%_))))) - (let ((_%__kont145366145367%_ + _%__stx144501144502%_))))) + (let ((_%__kont144503144504%_ (lambda () - (let ((__tmp145837 - (cons (let () - (declare (not safe)) - (gxc#compile-e__0 - _%e138116%_)) - _%args138095%_))) - (declare (not safe)) - (_%lp138089%_ - _%rest138115%_ - _%bind138094%_ - __tmp145837)))) - (_%__kont145368145369%_ + (_%lp137239%_ + _%rest137265%_ + _%bind137244%_ + (cons (let () + (declare (not safe)) + (gxc#compile-e__0 _%e137266%_)) + _%args137245%_)))) + (_%__kont144505144506%_ (lambda () - (let ((__tmp145838 - (cons (let () - (declare (not safe)) - (gxc#compile-e__0 - _%e138116%_)) - _%args138095%_))) - (declare (not safe)) - (_%lp138089%_ - _%rest138115%_ - _%bind138094%_ - __tmp145838)))) - (_%__kont145370145371%_ + (_%lp137239%_ + _%rest137265%_ + _%bind137244%_ + (cons (let () + (declare (not safe)) + (gxc#compile-e__0 _%e137266%_)) + _%args137245%_)))) + (_%__kont144507144508%_ (lambda () - (let ((_%tmp138146%_ - (let ((__tmp145839 + (let ((_%tmp137296%_ + (let ((__tmp144909 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp145839)))) - (let ((__tmp145841 - (cons (cons _%tmp138146%_ - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gxc#compile-e__0 _%e138116%_)) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind138094%_)) - (__tmp145840 - (cons _%tmp138146%_ - _%args138095%_))) - (declare (not safe)) - (_%lp138089%_ - _%rest138115%_ - __tmp145841 - __tmp145840)))))) + (make-symbol__0 __tmp144909)))) + (_%lp137239%_ + _%rest137265%_ + (cons (cons _%tmp137296%_ + (cons (let () + (declare (not safe)) + (gxc#compile-e__0 + _%e137266%_)) + '())) + _%bind137244%_) + (cons _%tmp137296%_ _%args137245%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx145364145365%_)) - (let ((_%e138125138177%_ + (gx#stx-pair? _%__stx144501144502%_)) + (let ((_%e137275137327%_ (let () (declare (not safe)) - (gx#stx-e _%__stx145364145365%_)))) - (let ((_%tl138123138182%_ + (gx#stx-e _%__stx144501144502%_)))) + (let ((_%tl137273137332%_ (let () (declare (not safe)) - (##cdr _%e138125138177%_))) - (_%hd138124138180%_ + (##cdr _%e137275137327%_))) + (_%hd137274137330%_ (let () (declare (not safe)) - (##car _%e138125138177%_)))) + (##car _%e137275137327%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd138124138180%_)) + (gx#identifier? _%hd137274137330%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd138124138180%_)) + _%hd137274137330%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138123138182%_)) - (let ((_%e138128138185%_ + _%tl137273137332%_)) + (let ((_%e137278137335%_ (let () (declare (not safe)) (gx#stx-e - _%tl138123138182%_)))) - (let ((_%tl138126138190%_ + _%tl137273137332%_)))) + (let ((_%tl137276137340%_ (let () (declare (not safe)) - (##cdr _%e138128138185%_))) - (_%hd138127138188%_ + (##cdr _%e137278137335%_))) + (_%hd137277137338%_ (let () (declare (not safe)) - (##car _%e138128138185%_)))) + (##car _%e137278137335%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138126138190%_)) - (_%__kont145366145367%_) - (_%__kont145370145371%_)))) - (_%__kont145370145371%_)) + _%tl137276137340%_)) + (_%__kont144503144504%_) + (_%__kont144507144508%_)))) + (_%__kont144507144508%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd138124138180%_)) + _%hd137274137330%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138123138182%_)) - (let ((_%e138134138162%_ + _%tl137273137332%_)) + (let ((_%e137284137312%_ (let () (declare (not safe)) (gx#stx-e - _%tl138123138182%_)))) - (let ((_%tl138132138167%_ + _%tl137273137332%_)))) + (let ((_%tl137282137317%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e138134138162%_))) - (_%hd138133138165%_ - (let () (declare (not safe)) (##car _%e138134138162%_)))) + (##cdr _%e137284137312%_))) + (_%hd137283137315%_ + (let () (declare (not safe)) (##car _%e137284137312%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138132138167%_)) - (_%__kont145368145369%_) - (_%__kont145370145371%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont145370145371%_)) - (_%__kont145370145371%_))) - (_%__kont145370145371%_)))) - (_%__kont145370145371%_))))))) + (gx#stx-null? _%tl137282137317%_)) + (_%__kont144505144506%_) + (_%__kont144507144508%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont144507144508%_)) + (_%__kont144507144508%_))) + (_%__kont144507144508%_)))) + (_%__kont144507144508%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest138096138104%_)) - (let ((_%hd138101138201%_ + (##pair? _%rest137246137254%_)) + (let ((_%hd137251137351%_ (let () (declare (not safe)) - (##car _%rest138096138104%_))) - (_%tl138102138203%_ + (##car _%rest137246137254%_))) + (_%tl137252137353%_ (let () (declare (not safe)) - (##cdr _%rest138096138104%_)))) - (let* ((_%e138206%_ _%hd138101138201%_) - (_%rest138208%_ _%tl138102138203%_)) - (declare (not safe)) - (_%K138100138198%_ _%rest138208%_ _%e138206%_))) - (let () (declare (not safe)) (_%else138098138112%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd138038138068%_ - _%hd138035138060%_) - (let () - (declare (not safe)) - (_%g138027138044%_ - _%g138028138047%_))))) - (let () - (declare (not safe)) - (_%g138027138044%_ - _%g138028138047%_))))) - (let () - (declare (not safe)) - (_%g138027138044%_ _%g138028138047%_))))) - (let () - (declare (not safe)) - (_%g138027138044%_ _%g138028138047%_)))))) - (declare (not safe)) - (_%g138026138210%_ _%stx138025%_)))) + (##cdr _%rest137246137254%_)))) + (let* ((_%e137356%_ _%hd137251137351%_) + (_%rest137358%_ _%tl137252137353%_)) + (_%K137250137348%_ _%rest137358%_ _%e137356%_))) + (_%else137248137262%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd137188137218%_ + _%hd137185137210%_) + (_%g137177137194%_ + _%g137178137197%_)))) + (_%g137177137194%_ _%g137178137197%_)))) + (_%g137177137194%_ _%g137178137197%_)))) + (_%g137177137194%_ _%g137178137197%_))))) + (_%g137176137360%_ _%stx137175%_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_%self137940%_ _%stx137941%_) - (let* ((_%g137943137964%_ - (lambda (_%g137944137961%_) + (lambda (_%self137090%_ _%stx137091%_) + (let* ((_%g137093137114%_ + (lambda (_%g137094137111%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137944137961%_)))) - (_%g137942138021%_ - (lambda (_%g137944137967%_) + _%g137094137111%_)))) + (_%g137092137171%_ + (lambda (_%g137094137117%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137944137967%_)) - (let ((_%e137950137969%_ + (gx#stx-pair? _%g137094137117%_)) + (let ((_%e137100137119%_ (let () (declare (not safe)) - (gx#stx-e _%g137944137967%_)))) - (let ((_%hd137949137972%_ + (gx#stx-e _%g137094137117%_)))) + (let ((_%hd137099137122%_ (let () (declare (not safe)) - (##car _%e137950137969%_))) - (_%tl137948137974%_ + (##car _%e137100137119%_))) + (_%tl137098137124%_ (let () (declare (not safe)) - (##cdr _%e137950137969%_)))) + (##cdr _%e137100137119%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137948137974%_)) - (let ((_%e137953137977%_ + (gx#stx-pair? _%tl137098137124%_)) + (let ((_%e137103137127%_ (let () (declare (not safe)) - (gx#stx-e _%tl137948137974%_)))) - (let ((_%hd137952137980%_ + (gx#stx-e _%tl137098137124%_)))) + (let ((_%hd137102137130%_ (let () (declare (not safe)) - (##car _%e137953137977%_))) - (_%tl137951137982%_ + (##car _%e137103137127%_))) + (_%tl137101137132%_ (let () (declare (not safe)) - (##cdr _%e137953137977%_)))) + (##cdr _%e137103137127%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137951137982%_)) - (let ((_%e137956137985%_ + (gx#stx-pair? _%tl137101137132%_)) + (let ((_%e137106137135%_ (let () (declare (not safe)) - (gx#stx-e _%tl137951137982%_)))) - (let ((_%hd137955137988%_ + (gx#stx-e _%tl137101137132%_)))) + (let ((_%hd137105137138%_ (let () (declare (not safe)) - (##car _%e137956137985%_))) - (_%tl137954137990%_ + (##car _%e137106137135%_))) + (_%tl137104137140%_ (let () (declare (not safe)) - (##cdr _%e137956137985%_)))) + (##cdr _%e137106137135%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137954137990%_)) - (let ((_%e137959137993%_ + _%tl137104137140%_)) + (let ((_%e137109137143%_ (let () (declare (not safe)) (gx#stx-e - _%tl137954137990%_)))) - (let ((_%hd137958137996%_ + _%tl137104137140%_)))) + (let ((_%hd137108137146%_ (let () (declare (not safe)) - (##car _%e137959137993%_))) - (_%tl137957137998%_ + (##car _%e137109137143%_))) + (_%tl137107137148%_ (let () (declare (not safe)) - (##cdr _%e137959137993%_)))) + (##cdr _%e137109137143%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137957137998%_)) - ((lambda (_%L138001%_ - _%L138002%_ - _%L138003%_) + _%tl137107137148%_)) + ((lambda (_%L137151%_ + _%L137152%_ + _%L137153%_) (cons '##structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self137940%_ _%L138001%_)) + (gxc#compile-e__1 _%self137090%_ _%L137151%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137940%_ - _%L138002%_)) + _%self137090%_ + _%L137152%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137940%_ - _%L138003%_)) + _%self137090%_ + _%L137153%_)) (cons ''#f '())))))) - _%hd137958137996%_ - _%hd137955137988%_ - _%hd137952137980%_) - (let () - (declare (not safe)) - (_%g137943137964%_ _%g137944137967%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g137943137964%_ - _%g137944137967%_))))) - (let () - (declare (not safe)) - (_%g137943137964%_ - _%g137944137967%_))))) - (let () - (declare (not safe)) - (_%g137943137964%_ _%g137944137967%_))))) - (let () - (declare (not safe)) - (_%g137943137964%_ _%g137944137967%_)))))) - (declare (not safe)) - (_%g137942138021%_ _%stx137941%_)))) + _%hd137108137146%_ + _%hd137105137138%_ + _%hd137102137130%_) + (_%g137093137114%_ _%g137094137117%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g137093137114%_ + _%g137094137117%_)))) + (_%g137093137114%_ _%g137094137117%_)))) + (_%g137093137114%_ _%g137094137117%_)))) + (_%g137093137114%_ _%g137094137117%_))))) + (_%g137092137171%_ _%stx137091%_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_%self137840%_ _%stx137841%_) - (let* ((_%g137843137868%_ - (lambda (_%g137844137865%_) + (lambda (_%self136990%_ _%stx136991%_) + (let* ((_%g136993137018%_ + (lambda (_%g136994137015%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137844137865%_)))) - (_%g137842137937%_ - (lambda (_%g137844137871%_) + _%g136994137015%_)))) + (_%g136992137087%_ + (lambda (_%g136994137021%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137844137871%_)) - (let ((_%e137851137873%_ + (gx#stx-pair? _%g136994137021%_)) + (let ((_%e137001137023%_ (let () (declare (not safe)) - (gx#stx-e _%g137844137871%_)))) - (let ((_%hd137850137876%_ + (gx#stx-e _%g136994137021%_)))) + (let ((_%hd137000137026%_ (let () (declare (not safe)) - (##car _%e137851137873%_))) - (_%tl137849137878%_ + (##car _%e137001137023%_))) + (_%tl136999137028%_ (let () (declare (not safe)) - (##cdr _%e137851137873%_)))) + (##cdr _%e137001137023%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137849137878%_)) - (let ((_%e137854137881%_ + (gx#stx-pair? _%tl136999137028%_)) + (let ((_%e137004137031%_ (let () (declare (not safe)) - (gx#stx-e _%tl137849137878%_)))) - (let ((_%hd137853137884%_ + (gx#stx-e _%tl136999137028%_)))) + (let ((_%hd137003137034%_ (let () (declare (not safe)) - (##car _%e137854137881%_))) - (_%tl137852137886%_ + (##car _%e137004137031%_))) + (_%tl137002137036%_ (let () (declare (not safe)) - (##cdr _%e137854137881%_)))) + (##cdr _%e137004137031%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137852137886%_)) - (let ((_%e137857137889%_ + (gx#stx-pair? _%tl137002137036%_)) + (let ((_%e137007137039%_ (let () (declare (not safe)) - (gx#stx-e _%tl137852137886%_)))) - (let ((_%hd137856137892%_ + (gx#stx-e _%tl137002137036%_)))) + (let ((_%hd137006137042%_ (let () (declare (not safe)) - (##car _%e137857137889%_))) - (_%tl137855137894%_ + (##car _%e137007137039%_))) + (_%tl137005137044%_ (let () (declare (not safe)) - (##cdr _%e137857137889%_)))) + (##cdr _%e137007137039%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137855137894%_)) - (let ((_%e137860137897%_ + _%tl137005137044%_)) + (let ((_%e137010137047%_ (let () (declare (not safe)) (gx#stx-e - _%tl137855137894%_)))) - (let ((_%hd137859137900%_ + _%tl137005137044%_)))) + (let ((_%hd137009137050%_ (let () (declare (not safe)) - (##car _%e137860137897%_))) - (_%tl137858137902%_ + (##car _%e137010137047%_))) + (_%tl137008137052%_ (let () (declare (not safe)) - (##cdr _%e137860137897%_)))) + (##cdr _%e137010137047%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137858137902%_)) - (let ((_%e137863137905%_ + _%tl137008137052%_)) + (let ((_%e137013137055%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl137858137902%_)))) - (let ((_%hd137862137908%_ - (let () (declare (not safe)) (##car _%e137863137905%_))) - (_%tl137861137910%_ + (gx#stx-e _%tl137008137052%_)))) + (let ((_%hd137012137058%_ + (let () (declare (not safe)) (##car _%e137013137055%_))) + (_%tl137011137060%_ (let () (declare (not safe)) - (##cdr _%e137863137905%_)))) + (##cdr _%e137013137055%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137861137910%_)) - ((lambda (_%L137913%_ - _%L137914%_ - _%L137915%_ - _%L137916%_) + (gx#stx-null? _%tl137011137060%_)) + ((lambda (_%L137063%_ + _%L137064%_ + _%L137065%_ + _%L137066%_) (cons '##structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137840%_ - _%L137914%_)) + _%self136990%_ + _%L137064%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137840%_ - _%L137913%_)) + _%self136990%_ + _%L137063%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137840%_ - _%L137915%_)) + _%self136990%_ + _%L137065%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137840%_ - _%L137916%_)) + _%self136990%_ + _%L137066%_)) (cons ''#f '()))))))) - _%hd137862137908%_ - _%hd137859137900%_ - _%hd137856137892%_ - _%hd137853137884%_) - (let () - (declare (not safe)) - (_%g137843137868%_ _%g137844137871%_))))) - (let () - (declare (not safe)) - (_%g137843137868%_ _%g137844137871%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g137843137868%_ - _%g137844137871%_))))) - (let () - (declare (not safe)) - (_%g137843137868%_ - _%g137844137871%_))))) - (let () - (declare (not safe)) - (_%g137843137868%_ _%g137844137871%_))))) - (let () - (declare (not safe)) - (_%g137843137868%_ _%g137844137871%_)))))) - (declare (not safe)) - (_%g137842137937%_ _%stx137841%_)))) + _%hd137012137058%_ + _%hd137009137050%_ + _%hd137006137042%_ + _%hd137003137034%_) + (_%g136993137018%_ _%g136994137021%_)))) + (_%g136993137018%_ _%g136994137021%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g136993137018%_ + _%g136994137021%_)))) + (_%g136993137018%_ _%g136994137021%_)))) + (_%g136993137018%_ _%g136994137021%_)))) + (_%g136993137018%_ _%g136994137021%_))))) + (_%g136992137087%_ _%stx136991%_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_%self137756%_ _%stx137757%_) - (let* ((_%g137759137780%_ - (lambda (_%g137760137777%_) + (lambda (_%self136906%_ _%stx136907%_) + (let* ((_%g136909136930%_ + (lambda (_%g136910136927%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137760137777%_)))) - (_%g137758137837%_ - (lambda (_%g137760137783%_) + _%g136910136927%_)))) + (_%g136908136987%_ + (lambda (_%g136910136933%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137760137783%_)) - (let ((_%e137766137785%_ + (gx#stx-pair? _%g136910136933%_)) + (let ((_%e136916136935%_ (let () (declare (not safe)) - (gx#stx-e _%g137760137783%_)))) - (let ((_%hd137765137788%_ + (gx#stx-e _%g136910136933%_)))) + (let ((_%hd136915136938%_ (let () (declare (not safe)) - (##car _%e137766137785%_))) - (_%tl137764137790%_ + (##car _%e136916136935%_))) + (_%tl136914136940%_ (let () (declare (not safe)) - (##cdr _%e137766137785%_)))) + (##cdr _%e136916136935%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137764137790%_)) - (let ((_%e137769137793%_ + (gx#stx-pair? _%tl136914136940%_)) + (let ((_%e136919136943%_ (let () (declare (not safe)) - (gx#stx-e _%tl137764137790%_)))) - (let ((_%hd137768137796%_ + (gx#stx-e _%tl136914136940%_)))) + (let ((_%hd136918136946%_ (let () (declare (not safe)) - (##car _%e137769137793%_))) - (_%tl137767137798%_ + (##car _%e136919136943%_))) + (_%tl136917136948%_ (let () (declare (not safe)) - (##cdr _%e137769137793%_)))) + (##cdr _%e136919136943%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137767137798%_)) - (let ((_%e137772137801%_ + (gx#stx-pair? _%tl136917136948%_)) + (let ((_%e136922136951%_ (let () (declare (not safe)) - (gx#stx-e _%tl137767137798%_)))) - (let ((_%hd137771137804%_ + (gx#stx-e _%tl136917136948%_)))) + (let ((_%hd136921136954%_ (let () (declare (not safe)) - (##car _%e137772137801%_))) - (_%tl137770137806%_ + (##car _%e136922136951%_))) + (_%tl136920136956%_ (let () (declare (not safe)) - (##cdr _%e137772137801%_)))) + (##cdr _%e136922136951%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137770137806%_)) - (let ((_%e137775137809%_ + _%tl136920136956%_)) + (let ((_%e136925136959%_ (let () (declare (not safe)) (gx#stx-e - _%tl137770137806%_)))) - (let ((_%hd137774137812%_ + _%tl136920136956%_)))) + (let ((_%hd136924136962%_ (let () (declare (not safe)) - (##car _%e137775137809%_))) - (_%tl137773137814%_ + (##car _%e136925136959%_))) + (_%tl136923136964%_ (let () (declare (not safe)) - (##cdr _%e137775137809%_)))) + (##cdr _%e136925136959%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137773137814%_)) - ((lambda (_%L137817%_ - _%L137818%_ - _%L137819%_) + _%tl136923136964%_)) + ((lambda (_%L136967%_ + _%L136968%_ + _%L136969%_) (cons '##direct-structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self137756%_ _%L137817%_)) + (gxc#compile-e__1 _%self136906%_ _%L136967%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137756%_ - _%L137818%_)) + _%self136906%_ + _%L136968%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137756%_ - _%L137819%_)) + _%self136906%_ + _%L136969%_)) (cons ''#f '())))))) - _%hd137774137812%_ - _%hd137771137804%_ - _%hd137768137796%_) - (let () - (declare (not safe)) - (_%g137759137780%_ _%g137760137783%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g137759137780%_ - _%g137760137783%_))))) - (let () - (declare (not safe)) - (_%g137759137780%_ - _%g137760137783%_))))) - (let () - (declare (not safe)) - (_%g137759137780%_ _%g137760137783%_))))) - (let () - (declare (not safe)) - (_%g137759137780%_ _%g137760137783%_)))))) - (declare (not safe)) - (_%g137758137837%_ _%stx137757%_)))) + _%hd136924136962%_ + _%hd136921136954%_ + _%hd136918136946%_) + (_%g136909136930%_ _%g136910136933%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g136909136930%_ + _%g136910136933%_)))) + (_%g136909136930%_ _%g136910136933%_)))) + (_%g136909136930%_ _%g136910136933%_)))) + (_%g136909136930%_ _%g136910136933%_))))) + (_%g136908136987%_ _%stx136907%_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_%self137656%_ _%stx137657%_) - (let* ((_%g137659137684%_ - (lambda (_%g137660137681%_) + (lambda (_%self136806%_ _%stx136807%_) + (let* ((_%g136809136834%_ + (lambda (_%g136810136831%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137660137681%_)))) - (_%g137658137753%_ - (lambda (_%g137660137687%_) + _%g136810136831%_)))) + (_%g136808136903%_ + (lambda (_%g136810136837%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137660137687%_)) - (let ((_%e137667137689%_ + (gx#stx-pair? _%g136810136837%_)) + (let ((_%e136817136839%_ (let () (declare (not safe)) - (gx#stx-e _%g137660137687%_)))) - (let ((_%hd137666137692%_ + (gx#stx-e _%g136810136837%_)))) + (let ((_%hd136816136842%_ (let () (declare (not safe)) - (##car _%e137667137689%_))) - (_%tl137665137694%_ + (##car _%e136817136839%_))) + (_%tl136815136844%_ (let () (declare (not safe)) - (##cdr _%e137667137689%_)))) + (##cdr _%e136817136839%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137665137694%_)) - (let ((_%e137670137697%_ + (gx#stx-pair? _%tl136815136844%_)) + (let ((_%e136820136847%_ (let () (declare (not safe)) - (gx#stx-e _%tl137665137694%_)))) - (let ((_%hd137669137700%_ + (gx#stx-e _%tl136815136844%_)))) + (let ((_%hd136819136850%_ (let () (declare (not safe)) - (##car _%e137670137697%_))) - (_%tl137668137702%_ + (##car _%e136820136847%_))) + (_%tl136818136852%_ (let () (declare (not safe)) - (##cdr _%e137670137697%_)))) + (##cdr _%e136820136847%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137668137702%_)) - (let ((_%e137673137705%_ + (gx#stx-pair? _%tl136818136852%_)) + (let ((_%e136823136855%_ (let () (declare (not safe)) - (gx#stx-e _%tl137668137702%_)))) - (let ((_%hd137672137708%_ + (gx#stx-e _%tl136818136852%_)))) + (let ((_%hd136822136858%_ (let () (declare (not safe)) - (##car _%e137673137705%_))) - (_%tl137671137710%_ + (##car _%e136823136855%_))) + (_%tl136821136860%_ (let () (declare (not safe)) - (##cdr _%e137673137705%_)))) + (##cdr _%e136823136855%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137671137710%_)) - (let ((_%e137676137713%_ + _%tl136821136860%_)) + (let ((_%e136826136863%_ (let () (declare (not safe)) (gx#stx-e - _%tl137671137710%_)))) - (let ((_%hd137675137716%_ + _%tl136821136860%_)))) + (let ((_%hd136825136866%_ (let () (declare (not safe)) - (##car _%e137676137713%_))) - (_%tl137674137718%_ + (##car _%e136826136863%_))) + (_%tl136824136868%_ (let () (declare (not safe)) - (##cdr _%e137676137713%_)))) + (##cdr _%e136826136863%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137674137718%_)) - (let ((_%e137679137721%_ + _%tl136824136868%_)) + (let ((_%e136829136871%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl137674137718%_)))) - (let ((_%hd137678137724%_ - (let () (declare (not safe)) (##car _%e137679137721%_))) - (_%tl137677137726%_ + (gx#stx-e _%tl136824136868%_)))) + (let ((_%hd136828136874%_ + (let () (declare (not safe)) (##car _%e136829136871%_))) + (_%tl136827136876%_ (let () (declare (not safe)) - (##cdr _%e137679137721%_)))) + (##cdr _%e136829136871%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137677137726%_)) - ((lambda (_%L137729%_ - _%L137730%_ - _%L137731%_ - _%L137732%_) + (gx#stx-null? _%tl136827136876%_)) + ((lambda (_%L136879%_ + _%L136880%_ + _%L136881%_ + _%L136882%_) (cons '##direct-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137656%_ - _%L137730%_)) + _%self136806%_ + _%L136880%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137656%_ - _%L137729%_)) + _%self136806%_ + _%L136879%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137656%_ - _%L137731%_)) + _%self136806%_ + _%L136881%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137656%_ - _%L137732%_)) + _%self136806%_ + _%L136882%_)) (cons ''#f '()))))))) - _%hd137678137724%_ - _%hd137675137716%_ - _%hd137672137708%_ - _%hd137669137700%_) - (let () - (declare (not safe)) - (_%g137659137684%_ _%g137660137687%_))))) - (let () - (declare (not safe)) - (_%g137659137684%_ _%g137660137687%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g137659137684%_ - _%g137660137687%_))))) - (let () - (declare (not safe)) - (_%g137659137684%_ - _%g137660137687%_))))) - (let () - (declare (not safe)) - (_%g137659137684%_ _%g137660137687%_))))) - (let () - (declare (not safe)) - (_%g137659137684%_ _%g137660137687%_)))))) - (declare (not safe)) - (_%g137658137753%_ _%stx137657%_)))) + _%hd136828136874%_ + _%hd136825136866%_ + _%hd136822136858%_ + _%hd136819136850%_) + (_%g136809136834%_ _%g136810136837%_)))) + (_%g136809136834%_ _%g136810136837%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g136809136834%_ + _%g136810136837%_)))) + (_%g136809136834%_ _%g136810136837%_)))) + (_%g136809136834%_ _%g136810136837%_)))) + (_%g136809136834%_ _%g136810136837%_))))) + (_%g136808136903%_ _%stx136807%_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_%self137451%_ _%stx137452%_) - (let* ((_%g137454137475%_ - (lambda (_%g137455137472%_) + (lambda (_%self136601%_ _%stx136602%_) + (let* ((_%g136604136625%_ + (lambda (_%g136605136622%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137455137472%_)))) - (_%g137453137653%_ - (lambda (_%g137455137478%_) + _%g136605136622%_)))) + (_%g136603136803%_ + (lambda (_%g136605136628%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137455137478%_)) - (let ((_%e137461137480%_ + (gx#stx-pair? _%g136605136628%_)) + (let ((_%e136611136630%_ (let () (declare (not safe)) - (gx#stx-e _%g137455137478%_)))) - (let ((_%hd137460137483%_ + (gx#stx-e _%g136605136628%_)))) + (let ((_%hd136610136633%_ (let () (declare (not safe)) - (##car _%e137461137480%_))) - (_%tl137459137485%_ + (##car _%e136611136630%_))) + (_%tl136609136635%_ (let () (declare (not safe)) - (##cdr _%e137461137480%_)))) + (##cdr _%e136611136630%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137459137485%_)) - (let ((_%e137464137488%_ + (gx#stx-pair? _%tl136609136635%_)) + (let ((_%e136614136638%_ (let () (declare (not safe)) - (gx#stx-e _%tl137459137485%_)))) - (let ((_%hd137463137491%_ + (gx#stx-e _%tl136609136635%_)))) + (let ((_%hd136613136641%_ (let () (declare (not safe)) - (##car _%e137464137488%_))) - (_%tl137462137493%_ + (##car _%e136614136638%_))) + (_%tl136612136643%_ (let () (declare (not safe)) - (##cdr _%e137464137488%_)))) + (##cdr _%e136614136638%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137462137493%_)) - (let ((_%e137467137496%_ + (gx#stx-pair? _%tl136612136643%_)) + (let ((_%e136617136646%_ (let () (declare (not safe)) - (gx#stx-e _%tl137462137493%_)))) - (let ((_%hd137466137499%_ + (gx#stx-e _%tl136612136643%_)))) + (let ((_%hd136616136649%_ (let () (declare (not safe)) - (##car _%e137467137496%_))) - (_%tl137465137501%_ + (##car _%e136617136646%_))) + (_%tl136615136651%_ (let () (declare (not safe)) - (##cdr _%e137467137496%_)))) + (##cdr _%e136617136646%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137465137501%_)) - (let ((_%e137470137504%_ + _%tl136615136651%_)) + (let ((_%e136620136654%_ (let () (declare (not safe)) (gx#stx-e - _%tl137465137501%_)))) - (let ((_%hd137469137507%_ + _%tl136615136651%_)))) + (let ((_%hd136619136657%_ (let () (declare (not safe)) - (##car _%e137470137504%_))) - (_%tl137468137509%_ + (##car _%e136620136654%_))) + (_%tl136618136659%_ (let () (declare (not safe)) - (##cdr _%e137470137504%_)))) + (##cdr _%e136620136654%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137468137509%_)) - ((lambda (_%L137512%_ - _%L137513%_ - _%L137514%_) - (if (let () - (declare + _%tl136618136659%_)) + ((lambda (_%L136662%_ + _%L136663%_ + _%L136664%_) + (if (gxc#current-compile-decls-unsafe?) + (cons '##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gxc#current-compile-decls-unsafe?)) - (cons '##unchecked-structure-ref (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137451%_ - _%L137512%_)) + _%self136601%_ + _%L136662%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137451%_ - _%L137513%_)) + _%self136601%_ + _%L136663%_)) (cons ''#f (cons ''#f '()))))) - (let _%lp137532%_ ((_%rest137535%_ - (cons _%L137513%_ - (cons _%L137512%_ '()))) - (_%bind137537%_ '()) - (_%args137538%_ '())) - (let* ((_%rest137539137547%_ _%rest137535%_) - (_%else137541137555%_ + (let _%lp136682%_ ((_%rest136685%_ + (cons _%L136663%_ + (cons _%L136662%_ '()))) + (_%bind136687%_ '()) + (_%args136688%_ '())) + (let* ((_%rest136689136697%_ _%rest136685%_) + (_%else136691136705%_ (lambda () (cons 'let - (cons _%bind137537%_ + (cons _%bind136687%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-ref - (let ((__tmp145842 + (let ((__tmp144910 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp145842 _%args137538%_))) + (__foldr1 cons __tmp144910 _%args136688%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K137543137641%_ - (lambda (_%rest137558%_ _%e137559%_) - (let* ((_%__stx145410145411%_ _%e137559%_) - (_%g137564137582%_ + (_%K136693136791%_ + (lambda (_%rest136708%_ _%e136709%_) + (let* ((_%__stx144547144548%_ _%e136709%_) + (_%g136714136732%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx145410145411%_))))) - (let ((_%__kont145412145413%_ + _%__stx144547144548%_))))) + (let ((_%__kont144549144550%_ (lambda () - (let ((__tmp145843 - (cons (let () - (declare (not safe)) - (gxc#compile-e__0 - _%e137559%_)) - _%args137538%_))) - (declare (not safe)) - (_%lp137532%_ - _%rest137558%_ - _%bind137537%_ - __tmp145843)))) - (_%__kont145414145415%_ + (_%lp136682%_ + _%rest136708%_ + _%bind136687%_ + (cons (let () + (declare (not safe)) + (gxc#compile-e__0 + _%e136709%_)) + _%args136688%_)))) + (_%__kont144551144552%_ (lambda () - (let ((__tmp145844 - (cons (let () - (declare (not safe)) - (gxc#compile-e__0 - _%e137559%_)) - _%args137538%_))) - (declare (not safe)) - (_%lp137532%_ - _%rest137558%_ - _%bind137537%_ - __tmp145844)))) - (_%__kont145416145417%_ + (_%lp136682%_ + _%rest136708%_ + _%bind136687%_ + (cons (let () + (declare (not safe)) + (gxc#compile-e__0 + _%e136709%_)) + _%args136688%_)))) + (_%__kont144553144554%_ (lambda () - (let ((_%tmp137589%_ - (let ((__tmp145845 + (let ((_%tmp136739%_ + (let ((__tmp144911 (let () (declare (not safe)) @@ -12591,1796 +11720,1568 @@ '__tmp)))) (declare (not safe)) (make-symbol__0 - __tmp145845)))) - (let ((__tmp145847 - (cons (cons _%tmp137589%_ + __tmp144911)))) + (_%lp136682%_ + _%rest136708%_ + (cons (cons _%tmp136739%_ + (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let () - (declare (not safe)) - (gxc#compile-e__0 _%e137559%_)) - '())) - _%bind137537%_)) + (declare (not safe)) + (gxc#compile-e__0 _%e136709%_)) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp145846 - (cons _%tmp137589%_ - _%args137538%_))) - (declare (not safe)) - (_%lp137532%_ - _%rest137558%_ - __tmp145847 - __tmp145846)))))) + _%bind136687%_) + (cons _%tmp136739%_ + _%args136688%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx145410145411%_)) - (let ((_%e137568137620%_ + _%__stx144547144548%_)) + (let ((_%e136718136770%_ (let () (declare (not safe)) (gx#stx-e - _%__stx145410145411%_)))) - (let ((_%tl137566137625%_ + _%__stx144547144548%_)))) + (let ((_%tl136716136775%_ (let () (declare (not safe)) - (##cdr _%e137568137620%_))) - (_%hd137567137623%_ + (##cdr _%e136718136770%_))) + (_%hd136717136773%_ (let () (declare (not safe)) - (##car _%e137568137620%_)))) + (##car _%e136718136770%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd137567137623%_)) + _%hd136717136773%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd137567137623%_)) + _%hd136717136773%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137566137625%_)) - (let ((_%e137571137628%_ + _%tl136716136775%_)) + (let ((_%e136721136778%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl137566137625%_)))) - (let ((_%tl137569137633%_ + (gx#stx-e _%tl136716136775%_)))) + (let ((_%tl136719136783%_ (let () (declare (not safe)) - (##cdr _%e137571137628%_))) - (_%hd137570137631%_ + (##cdr _%e136721136778%_))) + (_%hd136720136781%_ (let () (declare (not safe)) - (##car _%e137571137628%_)))) + (##car _%e136721136778%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137569137633%_)) - (_%__kont145412145413%_) - (_%__kont145416145417%_)))) - (_%__kont145416145417%_)) + (gx#stx-null? _%tl136719136783%_)) + (_%__kont144549144550%_) + (_%__kont144553144554%_)))) + (_%__kont144553144554%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd137567137623%_)) + _%hd136717136773%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl137566137625%_)) - (let ((_%e137577137605%_ + (gx#stx-pair? _%tl136716136775%_)) + (let ((_%e136727136755%_ (let () (declare (not safe)) - (gx#stx-e _%tl137566137625%_)))) - (let ((_%tl137575137610%_ + (gx#stx-e _%tl136716136775%_)))) + (let ((_%tl136725136760%_ (let () (declare (not safe)) - (##cdr _%e137577137605%_))) - (_%hd137576137608%_ + (##cdr _%e136727136755%_))) + (_%hd136726136758%_ (let () (declare (not safe)) - (##car _%e137577137605%_)))) + (##car _%e136727136755%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137575137610%_)) - (_%__kont145414145415%_) - (_%__kont145416145417%_)))) - (_%__kont145416145417%_)) - (_%__kont145416145417%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont145416145417%_)))) - (_%__kont145416145417%_))))))) + (gx#stx-null? _%tl136725136760%_)) + (_%__kont144551144552%_) + (_%__kont144553144554%_)))) + (_%__kont144553144554%_)) + (_%__kont144553144554%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont144553144554%_)))) + (_%__kont144553144554%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest137539137547%_)) - (let ((_%hd137544137644%_ + (##pair? _%rest136689136697%_)) + (let ((_%hd136694136794%_ (let () (declare (not safe)) - (##car _%rest137539137547%_))) - (_%tl137545137646%_ + (##car _%rest136689136697%_))) + (_%tl136695136796%_ (let () (declare (not safe)) - (##cdr _%rest137539137547%_)))) - (let* ((_%e137649%_ _%hd137544137644%_) - (_%rest137651%_ _%tl137545137646%_)) - (declare (not safe)) - (_%K137543137641%_ - _%rest137651%_ - _%e137649%_))) - (let () - (declare (not safe)) - (_%else137541137555%_))))))) - _%hd137469137507%_ - _%hd137466137499%_ - _%hd137463137491%_) - (let () - (declare (not safe)) - (_%g137454137475%_ _%g137455137478%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g137454137475%_ - _%g137455137478%_))))) - (let () - (declare (not safe)) - (_%g137454137475%_ - _%g137455137478%_))))) - (let () - (declare (not safe)) - (_%g137454137475%_ _%g137455137478%_))))) - (let () - (declare (not safe)) - (_%g137454137475%_ _%g137455137478%_)))))) - (declare (not safe)) - (_%g137453137653%_ _%stx137452%_)))) + (##cdr _%rest136689136697%_)))) + (let* ((_%e136799%_ _%hd136694136794%_) + (_%rest136801%_ _%tl136695136796%_)) + (_%K136693136791%_ + _%rest136801%_ + _%e136799%_))) + (_%else136691136705%_)))))) + _%hd136619136657%_ + _%hd136616136649%_ + _%hd136613136641%_) + (_%g136604136625%_ _%g136605136628%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g136604136625%_ + _%g136605136628%_)))) + (_%g136604136625%_ _%g136605136628%_)))) + (_%g136604136625%_ _%g136605136628%_)))) + (_%g136604136625%_ _%g136605136628%_))))) + (_%g136603136803%_ _%stx136602%_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_%self137230%_ _%stx137231%_) - (let* ((_%g137233137258%_ - (lambda (_%g137234137255%_) + (lambda (_%self136380%_ _%stx136381%_) + (let* ((_%g136383136408%_ + (lambda (_%g136384136405%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137234137255%_)))) - (_%g137232137448%_ - (lambda (_%g137234137261%_) + _%g136384136405%_)))) + (_%g136382136598%_ + (lambda (_%g136384136411%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137234137261%_)) - (let ((_%e137241137263%_ + (gx#stx-pair? _%g136384136411%_)) + (let ((_%e136391136413%_ (let () (declare (not safe)) - (gx#stx-e _%g137234137261%_)))) - (let ((_%hd137240137266%_ + (gx#stx-e _%g136384136411%_)))) + (let ((_%hd136390136416%_ (let () (declare (not safe)) - (##car _%e137241137263%_))) - (_%tl137239137268%_ + (##car _%e136391136413%_))) + (_%tl136389136418%_ (let () (declare (not safe)) - (##cdr _%e137241137263%_)))) + (##cdr _%e136391136413%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137239137268%_)) - (let ((_%e137244137271%_ + (gx#stx-pair? _%tl136389136418%_)) + (let ((_%e136394136421%_ (let () (declare (not safe)) - (gx#stx-e _%tl137239137268%_)))) - (let ((_%hd137243137274%_ + (gx#stx-e _%tl136389136418%_)))) + (let ((_%hd136393136424%_ (let () (declare (not safe)) - (##car _%e137244137271%_))) - (_%tl137242137276%_ + (##car _%e136394136421%_))) + (_%tl136392136426%_ (let () (declare (not safe)) - (##cdr _%e137244137271%_)))) + (##cdr _%e136394136421%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137242137276%_)) - (let ((_%e137247137279%_ + (gx#stx-pair? _%tl136392136426%_)) + (let ((_%e136397136429%_ (let () (declare (not safe)) - (gx#stx-e _%tl137242137276%_)))) - (let ((_%hd137246137282%_ + (gx#stx-e _%tl136392136426%_)))) + (let ((_%hd136396136432%_ (let () (declare (not safe)) - (##car _%e137247137279%_))) - (_%tl137245137284%_ + (##car _%e136397136429%_))) + (_%tl136395136434%_ (let () (declare (not safe)) - (##cdr _%e137247137279%_)))) + (##cdr _%e136397136429%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137245137284%_)) - (let ((_%e137250137287%_ + _%tl136395136434%_)) + (let ((_%e136400136437%_ (let () (declare (not safe)) (gx#stx-e - _%tl137245137284%_)))) - (let ((_%hd137249137290%_ + _%tl136395136434%_)))) + (let ((_%hd136399136440%_ (let () (declare (not safe)) - (##car _%e137250137287%_))) - (_%tl137248137292%_ + (##car _%e136400136437%_))) + (_%tl136398136442%_ (let () (declare (not safe)) - (##cdr _%e137250137287%_)))) + (##cdr _%e136400136437%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137248137292%_)) - (let ((_%e137253137295%_ + _%tl136398136442%_)) + (let ((_%e136403136445%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl137248137292%_)))) - (let ((_%hd137252137298%_ - (let () (declare (not safe)) (##car _%e137253137295%_))) - (_%tl137251137300%_ + (gx#stx-e _%tl136398136442%_)))) + (let ((_%hd136402136448%_ + (let () (declare (not safe)) (##car _%e136403136445%_))) + (_%tl136401136450%_ (let () (declare (not safe)) - (##cdr _%e137253137295%_)))) + (##cdr _%e136403136445%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137251137300%_)) - ((lambda (_%L137303%_ - _%L137304%_ - _%L137305%_ - _%L137306%_) - (if (let () - (declare (not safe)) - (gxc#current-compile-decls-unsafe?)) + (gx#stx-null? _%tl136401136450%_)) + ((lambda (_%L136453%_ + _%L136454%_ + _%L136455%_ + _%L136456%_) + (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137230%_ - _%L137304%_)) + _%self136380%_ + _%L136454%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137230%_ - _%L137303%_)) + _%self136380%_ + _%L136453%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self137230%_ - _%L137305%_)) + _%self136380%_ + _%L136455%_)) (cons ''#f (cons ''#f '())))))) - (let _%lp137327%_ ((_%rest137330%_ - (cons _%L137305%_ - (cons _%L137303%_ - (cons _%L137304%_ + (let _%lp136477%_ ((_%rest136480%_ + (cons _%L136455%_ + (cons _%L136453%_ + (cons _%L136454%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind137332%_ '()) - (_%args137333%_ '())) - (let* ((_%rest137334137342%_ _%rest137330%_) - (_%else137336137350%_ + (_%bind136482%_ '()) + (_%args136483%_ '())) + (let* ((_%rest136484136492%_ _%rest136480%_) + (_%else136486136500%_ (lambda () (cons 'let - (cons _%bind137332%_ + (cons _%bind136482%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp145848 (cons ''#f (cons ''#f '())))) + (let ((__tmp144912 (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp145848 _%args137333%_))) + (__foldr1 cons __tmp144912 _%args136483%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K137338137436%_ - (lambda (_%rest137353%_ _%e137354%_) - (let* ((_%__stx145456145457%_ - _%e137354%_) - (_%g137359137377%_ + (_%K136488136586%_ + (lambda (_%rest136503%_ _%e136504%_) + (let* ((_%__stx144593144594%_ + _%e136504%_) + (_%g136509136527%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx145456145457%_))))) - (let ((_%__kont145458145459%_ + _%__stx144593144594%_))))) + (let ((_%__kont144595144596%_ (lambda () - (let ((__tmp145849 - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gxc#compile-e__0 _%e137354%_)) - _%args137333%_))) - (declare (not safe)) - (_%lp137327%_ _%rest137353%_ _%bind137332%_ __tmp145849)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont145460145461%_ + (_%lp136477%_ + _%rest136503%_ + _%bind136482%_ + (cons (let () + (declare + (not safe)) + (gxc#compile-e__0 + _%e136504%_)) + _%args136483%_)))) + (_%__kont144597144598%_ (lambda () - (let ((__tmp145850 - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gxc#compile-e__0 _%e137354%_)) - _%args137333%_))) - (declare (not safe)) - (_%lp137327%_ _%rest137353%_ _%bind137332%_ __tmp145850)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont145462145463%_ + (_%lp136477%_ + _%rest136503%_ + _%bind136482%_ + (cons (let () + (declare + (not safe)) + (gxc#compile-e__0 + _%e136504%_)) + _%args136483%_)))) + (_%__kont144599144600%_ (lambda () - (let ((_%tmp137384%_ - (let ((__tmp145851 + (let ((_%tmp136534%_ + (let ((__tmp144913 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp145851)))) - (let ((__tmp145853 - (cons (cons _%tmp137384%_ - (cons (let () - (declare (not safe)) - (gxc#compile-e__0 _%e137354%_)) - '())) - _%bind137332%_)) - (__tmp145852 (cons _%tmp137384%_ _%args137333%_))) - (declare (not safe)) - (_%lp137327%_ _%rest137353%_ __tmp145853 __tmp145852)))))) + (make-symbol__0 __tmp144913)))) + (_%lp136477%_ + _%rest136503%_ + (cons (cons _%tmp136534%_ + (cons (let () + (declare (not safe)) + (gxc#compile-e__0 _%e136504%_)) + '())) + _%bind136482%_) + (cons _%tmp136534%_ _%args136483%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx145456145457%_)) - (let ((_%e137363137415%_ + _%__stx144593144594%_)) + (let ((_%e136513136565%_ (let () (declare (not safe)) (gx#stx-e - _%__stx145456145457%_)))) - (let ((_%tl137361137420%_ + _%__stx144593144594%_)))) + (let ((_%tl136511136570%_ (let () (declare (not safe)) - (##cdr _%e137363137415%_))) - (_%hd137362137418%_ + (##cdr _%e136513136565%_))) + (_%hd136512136568%_ (let () (declare (not safe)) - (##car _%e137363137415%_)))) + (##car _%e136513136565%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd137362137418%_)) + _%hd136512136568%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd137362137418%_)) + (gx#stx-eq? '%#ref _%hd136512136568%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137361137420%_)) - (let ((_%e137366137423%_ + (gx#stx-pair? _%tl136511136570%_)) + (let ((_%e136516136573%_ (let () (declare (not safe)) - (gx#stx-e _%tl137361137420%_)))) - (let ((_%tl137364137428%_ + (gx#stx-e _%tl136511136570%_)))) + (let ((_%tl136514136578%_ (let () (declare (not safe)) - (##cdr _%e137366137423%_))) - (_%hd137365137426%_ + (##cdr _%e136516136573%_))) + (_%hd136515136576%_ (let () (declare (not safe)) - (##car _%e137366137423%_)))) + (##car _%e136516136573%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137364137428%_)) - (_%__kont145458145459%_) - (_%__kont145462145463%_)))) - (_%__kont145462145463%_)) + (gx#stx-null? _%tl136514136578%_)) + (_%__kont144595144596%_) + (_%__kont144599144600%_)))) + (_%__kont144599144600%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd137362137418%_)) + (gx#stx-eq? '%#quote _%hd136512136568%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137361137420%_)) - (let ((_%e137372137400%_ + (gx#stx-pair? _%tl136511136570%_)) + (let ((_%e136522136550%_ (let () (declare (not safe)) - (gx#stx-e _%tl137361137420%_)))) - (let ((_%tl137370137405%_ + (gx#stx-e _%tl136511136570%_)))) + (let ((_%tl136520136555%_ (let () (declare (not safe)) - (##cdr _%e137372137400%_))) - (_%hd137371137403%_ + (##cdr _%e136522136550%_))) + (_%hd136521136553%_ (let () (declare (not safe)) - (##car _%e137372137400%_)))) + (##car _%e136522136550%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137370137405%_)) - (_%__kont145460145461%_) - (_%__kont145462145463%_)))) - (_%__kont145462145463%_)) - (_%__kont145462145463%_))) - (_%__kont145462145463%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont145462145463%_))))))) + (gx#stx-null? _%tl136520136555%_)) + (_%__kont144597144598%_) + (_%__kont144599144600%_)))) + (_%__kont144599144600%_)) + (_%__kont144599144600%_))) + (_%__kont144599144600%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont144599144600%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest137334137342%_)) - (let ((_%hd137339137439%_ + (##pair? _%rest136484136492%_)) + (let ((_%hd136489136589%_ (let () (declare (not safe)) - (##car _%rest137334137342%_))) - (_%tl137340137441%_ + (##car _%rest136484136492%_))) + (_%tl136490136591%_ (let () (declare (not safe)) - (##cdr _%rest137334137342%_)))) - (let* ((_%e137444%_ _%hd137339137439%_) - (_%rest137446%_ - _%tl137340137441%_)) - (declare (not safe)) - (_%K137338137436%_ - _%rest137446%_ - _%e137444%_))) - (let () - (declare (not safe)) - (_%else137336137350%_))))))) - _%hd137252137298%_ - _%hd137249137290%_ - _%hd137246137282%_ - _%hd137243137274%_) - (let () - (declare (not safe)) - (_%g137233137258%_ _%g137234137261%_))))) - (let () - (declare (not safe)) - (_%g137233137258%_ _%g137234137261%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g137233137258%_ - _%g137234137261%_))))) - (let () - (declare (not safe)) - (_%g137233137258%_ - _%g137234137261%_))))) - (let () - (declare (not safe)) - (_%g137233137258%_ _%g137234137261%_))))) - (let () - (declare (not safe)) - (_%g137233137258%_ _%g137234137261%_)))))) - (declare (not safe)) - (_%g137232137448%_ _%stx137231%_)))) + (##cdr _%rest136484136492%_)))) + (let* ((_%e136594%_ _%hd136489136589%_) + (_%rest136596%_ + _%tl136490136591%_)) + (_%K136488136586%_ + _%rest136596%_ + _%e136594%_))) + (_%else136486136500%_)))))) + _%hd136402136448%_ + _%hd136399136440%_ + _%hd136396136432%_ + _%hd136393136424%_) + (_%g136383136408%_ _%g136384136411%_)))) + (_%g136383136408%_ _%g136384136411%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g136383136408%_ + _%g136384136411%_)))) + (_%g136383136408%_ _%g136384136411%_)))) + (_%g136383136408%_ _%g136384136411%_)))) + (_%g136383136408%_ _%g136384136411%_))))) + (_%g136382136598%_ _%stx136381%_)))) (define gxc#generate-runtime-loader-import% - (lambda (_%self137069%_ _%stx137070%_) - (letrec ((_%import-set-template137072%_ - (lambda (_%in137175%_ _%phi137176%_) - (let ((_%iphi137178%_ - (fx+ _%phi137176%_ + (lambda (_%self136219%_ _%stx136220%_) + (letrec ((_%import-set-template136222%_ + (lambda (_%in136325%_ _%phi136326%_) + (let ((_%iphi136328%_ + (fx+ _%phi136326%_ (##direct-structure-ref - _%in137175%_ + _%in136325%_ '2 gx#import-set::t '#f))) - (_%imports137179%_ + (_%imports136329%_ (##structure-ref (##direct-structure-ref - _%in137175%_ + _%in136325%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp137181%_ ((_%rest137183%_ _%imports137179%_) - (_%r137184%_ '())) - (let* ((_%rest137185137193%_ _%rest137183%_) - (_%else137187137201%_ (lambda () _%r137184%_)) - (_%K137189137218%_ - (lambda (_%rest137204%_ _%in137205%_) + (let _%lp136331%_ ((_%rest136333%_ _%imports136329%_) + (_%r136334%_ '())) + (let* ((_%rest136335136343%_ _%rest136333%_) + (_%else136337136351%_ (lambda () _%r136334%_)) + (_%K136339136368%_ + (lambda (_%rest136354%_ _%in136355%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in137205%_ + _%in136355%_ 'gx#module-context::t)) - (let () - (if (let () - (declare (not safe)) - (##fxzero? _%iphi137178%_)) - (let ((__tmp145854 - (cons _%in137205%_ - _%r137184%_))) - (declare (not safe)) - (_%lp137181%_ - _%rest137204%_ - __tmp145854)) - (let () - (declare (not safe)) - (_%lp137181%_ - _%rest137204%_ - _%r137184%_)))) + (if (let () + (declare (not safe)) + (##fxzero? _%iphi136328%_)) + (_%lp136331%_ + _%rest136354%_ + (cons _%in136355%_ _%r136334%_)) + (_%lp136331%_ + _%rest136354%_ + _%r136334%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in137205%_ + _%in136355%_ 'gx#module-import::t)) - (let ((_%iphi137209%_ - (fx+ _%phi137176%_ + (let ((_%iphi136359%_ + (fx+ _%phi136326%_ (##direct-structure-ref - _%in137205%_ + _%in136355%_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi137209%_)) - (let ((__tmp145855 - (cons (##direct-structure-ref - (##direct-structure-ref - _%in137205%_ - '1 - gx#module-import::t - '#f) - '1 - gx#module-export::t - '#f) - _%r137184%_))) - (declare (not safe)) - (_%lp137181%_ - _%rest137204%_ - __tmp145855)) - (let () - (declare (not safe)) - (_%lp137181%_ - _%rest137204%_ - _%r137184%_)))) + (##fxzero? _%iphi136359%_)) + (_%lp136331%_ + _%rest136354%_ + (cons (##direct-structure-ref + (##direct-structure-ref + _%in136355%_ + '1 + gx#module-import::t + '#f) + '1 + gx#module-export::t + '#f) + _%r136334%_)) + (_%lp136331%_ + _%rest136354%_ + _%r136334%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in137205%_ + _%in136355%_ 'gx#import-set::t)) - (let ((_%xphi137212%_ - (fx+ _%iphi137178%_ + (let ((_%xphi136362%_ + (fx+ _%iphi136328%_ (##direct-structure-ref - _%in137205%_ + _%in136355%_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) (##fxzero? - _%xphi137212%_)) - (let ((__tmp145856 - (cons (##direct-structure-ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in137205%_ - '1 - gx#import-set::t - '#f) - _%r137184%_))) - (declare (not safe)) - (_%lp137181%_ _%rest137204%_ __tmp145856)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%xphi136362%_)) + (_%lp136331%_ + _%rest136354%_ + (cons (##direct-structure-ref + _%in136355%_ + '1 + gx#import-set::t + '#f) + _%r136334%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi137212%_)) - (let ((__tmp145857 - (let ((__tmp145858 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (_%import-set-template137072%_ - _%in137205%_ - _%iphi137178%_)))) - (declare (not safe)) - (__foldl1 cons _%r137184%_ __tmp145858)))) - (declare (not safe)) - (_%lp137181%_ _%rest137204%_ __tmp145857)) - (let () - (declare (not safe)) - (_%lp137181%_ _%rest137204%_ _%r137184%_))))) + _%xphi136362%_)) + (_%lp136331%_ + _%rest136354%_ + (let ((__tmp144914 + (_%import-set-template136222%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%in136355%_ + _%iphi136328%_))) + (declare (not safe)) + (__foldl1 cons _%r136334%_ __tmp144914))) + (_%lp136331%_ _%rest136354%_ _%r136334%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%lp137181%_ - _%rest137204%_ - _%r137184%_)))))))) + (_%lp136331%_ + _%rest136354%_ + _%r136334%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest137185137193%_)) - (let ((_%hd137190137221%_ + (##pair? _%rest136335136343%_)) + (let ((_%hd136340136371%_ (let () (declare (not safe)) - (##car _%rest137185137193%_))) - (_%tl137191137223%_ + (##car _%rest136335136343%_))) + (_%tl136341136373%_ (let () (declare (not safe)) - (##cdr _%rest137185137193%_)))) - (let* ((_%in137226%_ _%hd137190137221%_) - (_%rest137228%_ _%tl137191137223%_)) - (declare (not safe)) - (_%K137189137218%_ - _%rest137228%_ - _%in137226%_))) - (let () - (declare (not safe)) - (_%else137187137201%_))))))))) - (let* ((_%g137074137084%_ - (lambda (_%g137075137081%_) + (##cdr _%rest136335136343%_)))) + (let* ((_%in136376%_ _%hd136340136371%_) + (_%rest136378%_ _%tl136341136373%_)) + (_%K136339136368%_ + _%rest136378%_ + _%in136376%_))) + (_%else136337136351%_)))))))) + (let* ((_%g136224136234%_ + (lambda (_%g136225136231%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137075137081%_)))) - (_%g137073137172%_ - (lambda (_%g137075137087%_) + _%g136225136231%_)))) + (_%g136223136322%_ + (lambda (_%g136225136237%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137075137087%_)) - (let ((_%e137079137089%_ + (gx#stx-pair? _%g136225136237%_)) + (let ((_%e136229136239%_ (let () (declare (not safe)) - (gx#stx-e _%g137075137087%_)))) - (let ((_%hd137078137092%_ + (gx#stx-e _%g136225136237%_)))) + (let ((_%hd136228136242%_ (let () (declare (not safe)) - (##car _%e137079137089%_))) - (_%tl137077137094%_ + (##car _%e136229136239%_))) + (_%tl136227136244%_ (let () (declare (not safe)) - (##cdr _%e137079137089%_)))) - ((lambda (_%L137097%_) - (let ((_%ht137108%_ + (##cdr _%e136229136239%_)))) + ((lambda (_%L136247%_) + (let ((_%ht136258%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let _%lp137110%_ ((_%rest137112%_ - _%L137097%_) - (_%loads137113%_ '())) - (letrec ((_%K137115%_ - (lambda (_%ctx137165%_ - _%rest137166%_) - (let ((_%id137168%_ + (let _%lp136260%_ ((_%rest136262%_ + _%L136247%_) + (_%loads136263%_ '())) + (letrec ((_%K136265%_ + (lambda (_%ctx136315%_ + _%rest136316%_) + (let ((_%id136318%_ (##structure-ref - _%ctx137165%_ + _%ctx136315%_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (hash-get - _%ht137108%_ - _%id137168%_)) - (let () - (declare (not safe)) - (_%lp137110%_ - _%rest137166%_ - _%loads137113%_)) - (let ((_%rt137170%_ + _%ht136258%_ + _%id136318%_)) + (_%lp136260%_ + _%rest136316%_ + _%loads136263%_) + (let ((_%rt136320%_ (let () (declare (not safe)) (gxc#module-id->path-string - _%id137168%_)))) + _%id136318%_)))) (let () (declare (not safe)) (hash-put! - _%ht137108%_ - _%id137168%_ - _%rt137170%_)) - (let ((__tmp145859 - (cons _%rt137170%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%loads137113%_))) - (declare (not safe)) - (_%lp137110%_ _%rest137166%_ __tmp145859)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest137116137124%_ - _%rest137112%_) - (_%else137118137136%_ + _%ht136258%_ + _%id136318%_ + _%rt136320%_)) + (_%lp136260%_ + _%rest136316%_ + (cons _%rt136320%_ + _%loads136263%_)))))))) + (let* ((_%rest136266136274%_ + _%rest136262%_) + (_%else136268136286%_ (lambda () (cons 'begin - (let ((__tmp145861 - (lambda (_%g137131137133%_) + (let ((__tmp144916 + (lambda (_%g136281136283%_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g137131137133%_))) - (__tmp145860 (reverse _%loads137113%_))) + _%g136281136283%_))) + (__tmp144915 (reverse _%loads136263%_))) (declare (not safe)) - (##map __tmp145861 __tmp145860))))) + (##map __tmp144916 __tmp144915))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K137120137153%_ - (lambda (_%rest137139%_ - _%in137140%_) + (_%K136270136303%_ + (lambda (_%rest136289%_ + _%in136290%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in137140%_ + _%in136290%_ 'gx#module-context::t)) - (let () - (declare (not safe)) - (_%K137115%_ - _%in137140%_ - _%rest137139%_)) + (_%K136265%_ + _%in136290%_ + _%rest136289%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in137140%_ + _%in136290%_ 'gx#module-import::t)) - (let () - (if (fxzero? (##direct-structure-ref + (if (fxzero? (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in137140%_ - '3 - gx#module-import::t - '#f)) - (let ((__tmp145862 - (##direct-structure-ref - (##direct-structure-ref - _%in137140%_ - '1 - gx#module-import::t - '#f) - '1 - gx#module-export::t - '#f))) - (declare (not safe)) - (_%K137115%_ __tmp145862 _%rest137139%_)) - (let () - (declare (not safe)) - (_%lp137110%_ _%rest137139%_ _%loads137113%_)))) + _%in136290%_ + '3 + gx#module-import::t + '#f)) + (_%K136265%_ + (##direct-structure-ref + (##direct-structure-ref + _%in136290%_ + '1 + gx#module-import::t + '#f) + '1 + gx#module-export::t + '#f) + _%rest136289%_) + (_%lp136260%_ _%rest136289%_ _%loads136263%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in137140%_ + _%in136290%_ 'gx#import-set::t)) - (let ((_%phi137145%_ + (let ((_%phi136295%_ (##direct-structure-ref - _%in137140%_ + _%in136290%_ '2 gx#import-set::t '#f))) - (if (fxzero? _%phi137145%_) - (let ((__tmp145863 - (##direct-structure-ref - _%in137140%_ - '1 - gx#import-set::t - '#f))) - (declare (not safe)) - (_%K137115%_ __tmp145863 _%rest137139%_)) - (if (fxpositive? _%phi137145%_) - (let () - (let* ((_%deps137149%_ - (let () - (declare (not safe)) - (_%import-set-template137072%_ - _%in137140%_ - '0))) - (__tmp145864 - (let () - (declare (not safe)) - (__foldl1 - cons - _%rest137139%_ - _%deps137149%_)))) - (declare (not safe)) - (_%lp137110%_ __tmp145864 _%loads137113%_))) - (let () - (declare (not safe)) - (_%lp137110%_ - _%rest137139%_ - _%loads137113%_))))) + (if (fxzero? _%phi136295%_) + (_%K136265%_ + (##direct-structure-ref + _%in136290%_ + '1 + gx#import-set::t + '#f) + _%rest136289%_) + (if (fxpositive? _%phi136295%_) + (let ((_%deps136299%_ + (_%import-set-template136222%_ + _%in136290%_ + '0))) + (_%lp136260%_ + (let () + (declare (not safe)) + (__foldl1 + cons + _%rest136289%_ + _%deps136299%_)) + _%loads136263%_)) + (_%lp136260%_ _%rest136289%_ _%loads136263%_)))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _%stx137070%_ - _%in137140%_)))))))) + _%stx136220%_ + _%in136290%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%rest137116137124%_)) - (let ((_%hd137121137156%_ + (##pair? _%rest136266136274%_)) + (let ((_%hd136271136306%_ (let () (declare (not safe)) - (##car _%rest137116137124%_))) - (_%tl137122137158%_ + (##car _%rest136266136274%_))) + (_%tl136272136308%_ (let () (declare (not safe)) - (##cdr _%rest137116137124%_)))) - (let* ((_%in137161%_ - _%hd137121137156%_) - (_%rest137163%_ - _%tl137122137158%_)) - (declare (not safe)) - (_%K137120137153%_ - _%rest137163%_ - _%in137161%_))) - (let () - (declare (not safe)) - (_%else137118137136%_)))))))) - _%tl137077137094%_))) - (let () - (declare (not safe)) - (_%g137074137084%_ _%g137075137087%_)))))) - (declare (not safe)) - (_%g137073137172%_ _%stx137070%_))))) + (##cdr _%rest136266136274%_)))) + (let* ((_%in136311%_ + _%hd136271136306%_) + (_%rest136313%_ + _%tl136272136308%_)) + (_%K136270136303%_ + _%rest136313%_ + _%in136311%_))) + (_%else136268136286%_))))))) + _%tl136227136244%_))) + (_%g136224136234%_ _%g136225136237%_))))) + (_%g136223136322%_ _%stx136220%_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_%self136882%_ _%stx136883%_) - (letrec ((_%add-lift!136885%_ - (lambda (_%expr137067%_) + (lambda (_%self136032%_ _%stx136033%_) + (letrec ((_%add-lift!136035%_ + (lambda (_%expr136217%_) (set-box! (let () (declare (not safe)) (gxc#current-compile-lift)) - (cons _%expr137067%_ + (cons _%expr136217%_ (unbox (let () (declare (not safe)) (gxc#current-compile-lift))))))) - (_%generate-syntax-quote136886%_ - (lambda (_%id137064%_ _%marks137065%_) + (_%generate-syntax-quote136036%_ + (lambda (_%id136214%_ _%marks136215%_) (cons '##structure (cons 'gx#syntax-quote::t - (cons (cons 'quote (cons _%id137064%_ '())) + (cons (cons 'quote (cons _%id136214%_ '())) (cons '#f (cons '(gx#current-expander-context) - (cons _%marks137065%_ + (cons _%marks136215%_ '())))))))) - (_%generate-simple136887%_ - (lambda (_%stxq137059%_) - (let ((_%gid137061%_ + (_%generate-simple136037%_ + (lambda (_%stxq136209%_) + (let ((_%gid136211%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid137062%_ - (let () - (declare (not safe)) - (gxc#generate-runtime-identifier - _%stxq137059%_)))) - (let ((__tmp145865 - (cons 'define - (cons _%gid137061%_ - (cons (let () - (declare (not safe)) - (_%generate-syntax-quote136886%_ - _%qid137062%_ - ''())) - '()))))) - (declare (not safe)) - (_%add-lift!136885%_ __tmp145865)) - (let ((__tmp145866 + (_%qid136212%_ + (gxc#generate-runtime-identifier _%stxq136209%_))) + (_%add-lift!136035%_ + (cons 'define + (cons _%gid136211%_ + (cons (_%generate-syntax-quote136036%_ + _%qid136212%_ + ''()) + '())))) + (let ((__tmp144917 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp145866 _%stxq137059%_ _%gid137061%_)) - _%gid137061%_))) - (_%generate-serialized136888%_ - (lambda (_%stxq137049%_ _%marks137050%_) - (let* ((_%mark-refs137052%_ - (map _%generate-mark136889%_ _%marks137050%_)) - (_%gid137054%_ + (hash-put! __tmp144917 _%stxq136209%_ _%gid136211%_)) + _%gid136211%_))) + (_%generate-serialized136038%_ + (lambda (_%stxq136199%_ _%marks136200%_) + (let* ((_%mark-refs136202%_ + (map _%generate-mark136039%_ _%marks136200%_)) + (_%gid136204%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid137056%_ - (let () - (declare (not safe)) - (gxc#generate-runtime-identifier - _%stxq137049%_)))) - (let ((__tmp145867 - (cons 'define - (cons _%gid137054%_ - (cons (let ((__tmp145868 - (cons 'list - _%mark-refs137052%_))) - (declare (not safe)) - (_%generate-syntax-quote136886%_ - _%qid137056%_ - __tmp145868)) - '()))))) - (declare (not safe)) - (_%add-lift!136885%_ __tmp145867)) - (let ((__tmp145869 + (_%qid136206%_ + (gxc#generate-runtime-identifier _%stxq136199%_))) + (_%add-lift!136035%_ + (cons 'define + (cons _%gid136204%_ + (cons (_%generate-syntax-quote136036%_ + _%qid136206%_ + (cons 'list _%mark-refs136202%_)) + '())))) + (let ((__tmp144918 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp145869 _%stxq137049%_ _%gid137054%_)) - _%gid137054%_))) - (_%generate-mark136889%_ - (lambda (_%mark137034%_) - (let ((_%$e137036%_ - (let ((__tmp145870 + (hash-put! __tmp144918 _%stxq136199%_ _%gid136204%_)) + _%gid136204%_))) + (_%generate-mark136039%_ + (lambda (_%mark136184%_) + (let ((_%$e136186%_ + (let ((__tmp144919 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) - (hash-get __tmp145870 _%mark137034%_)))) - (if _%$e137036%_ - (values _%$e137036%_) - (let () - (let* ((_%gid137040%_ - (let () - (declare (not safe)) - (gxc#generate-runtime-temporary__% '#t))) - (_%repr137042%_ - (let () - (declare (not safe)) - (_%serialize-mark136890%_ - _%mark137034%_))) - (_%ctx137044%_ - (let ((__tmp145871 - (##structure-ref - _%mark137034%_ - '2 - gx#expander-mark::t - '#f))) - (declare (not safe)) - (gx#core-context-top__1 __tmp145871))) - (_%ctx-ref137046%_ - (if (eq? _%ctx137044%_ - (let () - (declare (not safe)) - (gx#current-expander-context))) - '(gx#current-expander-context) - (cons 'gx#import-module - (cons (cons 'quote - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (_%context-ref136891%_ _%ctx137044%_)) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - (let ((__tmp145872 - (let () - (declare (not safe)) - (gxc#current-compile-marks)))) - (declare (not safe)) - (hash-put! - __tmp145872 - _%mark137034%_ - _%gid137040%_)) - (let ((__tmp145873 - (cons 'define - (cons _%gid137040%_ - (cons (cons 'gx#core-deserialize-mark - (cons (cons 'quote -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%repr137042%_ '())) - (cons _%ctx-ref137046%_ '()))) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%add-lift!136885%_ __tmp145873)) - _%gid137040%_)))))) - (_%serialize-mark136890%_ - (lambda (_%mark136981%_) - (letrec ((_%quote-e136983%_ - (lambda (_%sym137032%_) + (hash-get __tmp144919 _%mark136184%_)))) + (if _%$e136186%_ + (values _%$e136186%_) + (let* ((_%gid136190%_ + (let () + (declare (not safe)) + (gxc#generate-runtime-temporary__% '#t))) + (_%repr136192%_ + (_%serialize-mark136040%_ _%mark136184%_)) + (_%ctx136194%_ + (let ((__tmp144920 + (##structure-ref + _%mark136184%_ + '2 + gx#expander-mark::t + '#f))) + (declare (not safe)) + (gx#core-context-top__1 __tmp144920))) + (_%ctx-ref136196%_ + (if (eq? _%ctx136194%_ + (let () + (declare (not safe)) + (gx#current-expander-context))) + '(gx#current-expander-context) + (cons 'gx#import-module + (cons (cons 'quote + (cons (_%context-ref136041%_ + _%ctx136194%_) + '())) + '()))))) + (let ((__tmp144921 + (let () + (declare (not safe)) + (gxc#current-compile-marks)))) + (declare (not safe)) + (hash-put! + __tmp144921 + _%mark136184%_ + _%gid136190%_)) + (_%add-lift!136035%_ + (cons 'define + (cons _%gid136190%_ + (cons (cons 'gx#core-deserialize-mark + (cons (cons 'quote +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%repr136192%_ '())) + (cons _%ctx-ref136196%_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) + _%gid136190%_))))) + (_%serialize-mark136040%_ + (lambda (_%mark136131%_) + (letrec ((_%quote-e136133%_ + (lambda (_%sym136182%_) (if (let () (declare (not safe)) - (interned-symbol? _%sym137032%_)) - _%sym137032%_ + (interned-symbol? _%sym136182%_)) + _%sym136182%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%sym137032%_)))))) - (let* ((_%mark136984136993%_ _%mark136981%_) - (_%E136986136997%_ + _%sym136182%_)))))) + (let* ((_%mark136134136143%_ _%mark136131%_) + (_%E136136136147%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mark136984136993%_ + _%mark136134136143%_ '((expander-mark subst ctx phi trace)))) '#!void)) - (_%K136987137009%_ - (lambda (_%trace137000%_ - _%phi137001%_ - _%ctx137002%_ - _%subst137003%_) - (let ((_%subs137005%_ - (if _%subst137003%_ + (_%K136137136159%_ + (lambda (_%trace136150%_ + _%phi136151%_ + _%ctx136152%_ + _%subst136153%_) + (let ((_%subs136155%_ + (if _%subst136153%_ (let () (declare (not safe)) - (hash->list _%subst137003%_)) + (hash->list _%subst136153%_)) '()))) - (cons _%phi137001%_ - (map (lambda (_%pair137007%_) - (cons (let ((__tmp145874 - (car _%pair137007%_))) - (declare (not safe)) - (_%quote-e136983%_ - __tmp145874)) - (let ((__tmp145875 - (cdr _%pair137007%_))) - (declare (not safe)) - (_%quote-e136983%_ - __tmp145875)))) - _%subs137005%_)))))) + (cons _%phi136151%_ + (map (lambda (_%pair136157%_) + (cons (_%quote-e136133%_ + (car _%pair136157%_)) + (_%quote-e136133%_ + (cdr _%pair136157%_)))) + _%subs136155%_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%mark136984136993%_ + _%mark136134136143%_ 'gx#expander-mark::t)) - (let* ((_%e136988137012%_ + (let* ((_%e136138136162%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark136984136993%_ + _%mark136134136143%_ '1 '#f '#f))) - (_%subst137015%_ _%e136988137012%_) - (_%e136989137017%_ + (_%subst136165%_ _%e136138136162%_) + (_%e136139136167%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark136984136993%_ + _%mark136134136143%_ '2 '#f '#f))) - (_%ctx137020%_ _%e136989137017%_) - (_%e136990137022%_ + (_%ctx136170%_ _%e136139136167%_) + (_%e136140136172%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark136984136993%_ + _%mark136134136143%_ '3 '#f '#f))) - (_%phi137025%_ _%e136990137022%_) - (_%e136991137027%_ + (_%phi136175%_ _%e136140136172%_) + (_%e136141136177%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark136984136993%_ + _%mark136134136143%_ '4 '#f '#f))) - (_%trace137030%_ _%e136991137027%_)) - (declare (not safe)) - (_%K136987137009%_ - _%trace137030%_ - _%phi137025%_ - _%ctx137020%_ - _%subst137015%_)) - (let () - (declare (not safe)) - (_%E136986136997%_))))))) - (_%context-ref136891%_ - (lambda (_%ctx136968%_) - (if (let ((__tmp145876 + (_%trace136180%_ _%e136141136177%_)) + (_%K136137136159%_ + _%trace136180%_ + _%phi136175%_ + _%ctx136170%_ + _%subst136165%_)) + (_%E136136136147%_)))))) + (_%context-ref136041%_ + (lambda (_%ctx136118%_) + (if (let ((__tmp144922 (##structure-ref - _%ctx136968%_ + _%ctx136118%_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp145876 + __tmp144922 'gx#module-context::t)) - (let ((_%ctx-ref136970%_ - (let () - (declare (not safe)) - (_%context-ref-nested136893%_ _%ctx136968%_))) - (_%ctx-origin136971%_ - (let () - (declare (not safe)) - (_%context-ref-origin136892%_ _%ctx136968%_))) - (_%origin136972%_ - (let ((__tmp145877 + (let ((_%ctx-ref136120%_ + (_%context-ref-nested136043%_ _%ctx136118%_)) + (_%ctx-origin136121%_ + (_%context-ref-origin136042%_ _%ctx136118%_)) + (_%origin136122%_ + (_%context-ref-origin136042%_ + (let () + (declare (not safe)) + (gx#current-expander-context))))) + (if (eq? _%origin136122%_ _%ctx-origin136121%_) + (let ((_%ref136124%_ + (_%context-ref-nested136043%_ (let () (declare (not safe)) - (gx#current-expander-context)))) - (declare (not safe)) - (_%context-ref-origin136892%_ __tmp145877)))) - (if (eq? _%origin136972%_ _%ctx-origin136971%_) - (let ((_%ref136974%_ - (let ((__tmp145878 - (let () - (declare (not safe)) - (gx#current-expander-context)))) - (declare (not safe)) - (_%context-ref-nested136893%_ - __tmp145878)))) - (let _%lp136976%_ ((_%ref136978%_ - (cdr _%ref136974%_)) - (_%ctx-ref136979%_ - (cdr _%ctx-ref136970%_))) - (if (and (let () - (declare (not safe)) - (pair? _%ref136978%_)) - (eq? (car _%ref136978%_) - (car _%ctx-ref136979%_))) - (let ((__tmp145880 (cdr _%ref136978%_)) - (__tmp145879 - (cdr _%ctx-ref136979%_))) - (declare (not safe)) - (_%lp136976%_ __tmp145880 __tmp145879)) - (cons '#f _%ctx-ref136979%_)))) - _%ctx-ref136970%_)) - (let ((__tmp145881 + (gx#current-expander-context))))) + (let _%lp136126%_ ((_%ref136128%_ + (cdr _%ref136124%_)) + (_%ctx-ref136129%_ + (cdr _%ctx-ref136120%_))) + (if (and (pair? _%ref136128%_) + (eq? (car _%ref136128%_) + (car _%ctx-ref136129%_))) + (_%lp136126%_ + (cdr _%ref136128%_) + (cdr _%ctx-ref136129%_)) + (cons '#f _%ctx-ref136129%_)))) + _%ctx-ref136120%_)) + (let ((__tmp144923 (##structure-ref - _%ctx136968%_ + _%ctx136118%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp145881))))) - (_%context-ref-origin136892%_ - (lambda (_%ctx136960%_) - (let _%lp136962%_ ((_%ctx136964%_ _%ctx136960%_)) - (let ((_%super136966%_ + (make-symbol__1 '":" __tmp144923))))) + (_%context-ref-origin136042%_ + (lambda (_%ctx136110%_) + (let _%lp136112%_ ((_%ctx136114%_ _%ctx136110%_)) + (let ((_%super136116%_ (##structure-ref - _%ctx136964%_ + _%ctx136114%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super136966%_ + _%super136116%_ 'gx#module-context::t)) - (let () - (declare (not safe)) - (_%lp136962%_ _%super136966%_)) - _%ctx136964%_))))) - (_%context-ref-nested136893%_ - (lambda (_%ctx136951%_) - (let _%lp136953%_ ((_%ctx136955%_ _%ctx136951%_) - (_%r136956%_ '())) - (let ((_%super136958%_ + (_%lp136112%_ _%super136116%_) + _%ctx136114%_))))) + (_%context-ref-nested136043%_ + (lambda (_%ctx136101%_) + (let _%lp136103%_ ((_%ctx136105%_ _%ctx136101%_) + (_%r136106%_ '())) + (let ((_%super136108%_ (##structure-ref - _%ctx136955%_ + _%ctx136105%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super136958%_ + _%super136108%_ 'gx#module-context::t)) - (let ((__tmp145882 - (cons (car (##structure-ref - _%ctx136955%_ - '7 - gx#module-context::t - '#f)) - _%r136956%_))) - (declare (not safe)) - (_%lp136953%_ _%super136958%_ __tmp145882)) - (cons (let ((__tmp145883 + (_%lp136103%_ + _%super136108%_ + (cons (car (##structure-ref + _%ctx136105%_ + '7 + gx#module-context::t + '#f)) + _%r136106%_)) + (cons (let ((__tmp144924 (##structure-ref - _%ctx136955%_ + _%ctx136105%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp145883)) - _%r136956%_))))))) - (let* ((_%g136895136908%_ - (lambda (_%g136896136905%_) + (make-symbol__1 '":" __tmp144924)) + _%r136106%_))))))) + (let* ((_%g136045136058%_ + (lambda (_%g136046136055%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136896136905%_)))) - (_%g136894136948%_ - (lambda (_%g136896136911%_) + _%g136046136055%_)))) + (_%g136044136098%_ + (lambda (_%g136046136061%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136896136911%_)) - (let ((_%e136900136913%_ + (gx#stx-pair? _%g136046136061%_)) + (let ((_%e136050136063%_ (let () (declare (not safe)) - (gx#stx-e _%g136896136911%_)))) - (let ((_%hd136899136916%_ + (gx#stx-e _%g136046136061%_)))) + (let ((_%hd136049136066%_ (let () (declare (not safe)) - (##car _%e136900136913%_))) - (_%tl136898136918%_ + (##car _%e136050136063%_))) + (_%tl136048136068%_ (let () (declare (not safe)) - (##cdr _%e136900136913%_)))) + (##cdr _%e136050136063%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136898136918%_)) - (let ((_%e136903136921%_ + (gx#stx-pair? _%tl136048136068%_)) + (let ((_%e136053136071%_ (let () (declare (not safe)) - (gx#stx-e _%tl136898136918%_)))) - (let ((_%hd136902136924%_ + (gx#stx-e _%tl136048136068%_)))) + (let ((_%hd136052136074%_ (let () (declare (not safe)) - (##car _%e136903136921%_))) - (_%tl136901136926%_ + (##car _%e136053136071%_))) + (_%tl136051136076%_ (let () (declare (not safe)) - (##cdr _%e136903136921%_)))) + (##cdr _%e136053136071%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136901136926%_)) - ((lambda (_%L136929%_) + (gx#stx-null? _%tl136051136076%_)) + ((lambda (_%L136079%_) (if (let () (declare (not safe)) - (gx#identifier? _%L136929%_)) - (let ((_%$e136942%_ - (let ((__tmp145884 + (gx#identifier? _%L136079%_)) + (let ((_%$e136092%_ + (let ((__tmp144925 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-get __tmp145884 _%L136929%_)))) + (hash-get __tmp144925 _%L136079%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e136942%_ - (values _%$e136942%_) - (let ((_%marks136946%_ + (if _%$e136092%_ + (values _%$e136092%_) + (let ((_%marks136096%_ (##direct-structure-ref - _%L136929%_ + _%L136079%_ '4 gx#syntax-quote::t '#f))) - (if (let () - (declare - (not safe)) - (null? _%marks136946%_)) - (let () - (declare - (not safe)) - (_%generate-simple136887%_ - _%L136929%_)) - (let () - (declare - (not safe)) - (_%generate-serialized136888%_ - _%L136929%_ - _%marks136946%_)))))) + (if (null? _%marks136096%_) + (_%generate-simple136037%_ + _%L136079%_) + (_%generate-serialized136038%_ + _%L136079%_ + _%marks136096%_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _%L136929%_)))) - _%hd136902136924%_) - (let () - (declare (not safe)) - (_%g136895136908%_ - _%g136896136911%_))))) - (let () - (declare (not safe)) - (_%g136895136908%_ _%g136896136911%_))))) - (let () - (declare (not safe)) - (_%g136895136908%_ _%g136896136911%_)))))) - (declare (not safe)) - (_%g136894136948%_ _%stx136883%_))))) + _%L136079%_)))) + _%hd136052136074%_) + (_%g136045136058%_ + _%g136046136061%_)))) + (_%g136045136058%_ _%g136046136061%_)))) + (_%g136045136058%_ _%g136046136061%_))))) + (_%g136044136098%_ _%stx136033%_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_%self136814%_ _%stx136815%_) - (let* ((_%g136817136834%_ - (lambda (_%g136818136831%_) + (lambda (_%self135964%_ _%stx135965%_) + (let* ((_%g135967135984%_ + (lambda (_%g135968135981%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136818136831%_)))) - (_%g136816136879%_ - (lambda (_%g136818136837%_) + _%g135968135981%_)))) + (_%g135966136029%_ + (lambda (_%g135968135987%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136818136837%_)) - (let ((_%e136823136839%_ + (gx#stx-pair? _%g135968135987%_)) + (let ((_%e135973135989%_ (let () (declare (not safe)) - (gx#stx-e _%g136818136837%_)))) - (let ((_%hd136822136842%_ + (gx#stx-e _%g135968135987%_)))) + (let ((_%hd135972135992%_ (let () (declare (not safe)) - (##car _%e136823136839%_))) - (_%tl136821136844%_ + (##car _%e135973135989%_))) + (_%tl135971135994%_ (let () (declare (not safe)) - (##cdr _%e136823136839%_)))) + (##cdr _%e135973135989%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136821136844%_)) - (let ((_%e136826136847%_ + (gx#stx-pair? _%tl135971135994%_)) + (let ((_%e135976135997%_ (let () (declare (not safe)) - (gx#stx-e _%tl136821136844%_)))) - (let ((_%hd136825136850%_ + (gx#stx-e _%tl135971135994%_)))) + (let ((_%hd135975136000%_ (let () (declare (not safe)) - (##car _%e136826136847%_))) - (_%tl136824136852%_ + (##car _%e135976135997%_))) + (_%tl135974136002%_ (let () (declare (not safe)) - (##cdr _%e136826136847%_)))) + (##cdr _%e135976135997%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136824136852%_)) - (let ((_%e136829136855%_ + (gx#stx-pair? _%tl135974136002%_)) + (let ((_%e135979136005%_ (let () (declare (not safe)) - (gx#stx-e _%tl136824136852%_)))) - (let ((_%hd136828136858%_ + (gx#stx-e _%tl135974136002%_)))) + (let ((_%hd135978136008%_ (let () (declare (not safe)) - (##car _%e136829136855%_))) - (_%tl136827136860%_ + (##car _%e135979136005%_))) + (_%tl135977136010%_ (let () (declare (not safe)) - (##cdr _%e136829136855%_)))) + (##cdr _%e135979136005%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136827136860%_)) - ((lambda (_%L136863%_ - _%L136864%_) + _%tl135977136010%_)) + ((lambda (_%L136013%_ + _%L136014%_) (cons 'define (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L136864%_)) + (gx#stx-e _%L136014%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self136814%_ _%L136863%_)) + (gxc#compile-e__1 _%self135964%_ _%L136013%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd136828136858%_ - _%hd136825136850%_) - (let () - (declare (not safe)) - (_%g136817136834%_ - _%g136818136837%_))))) - (let () - (declare (not safe)) - (_%g136817136834%_ - _%g136818136837%_))))) - (let () - (declare (not safe)) - (_%g136817136834%_ _%g136818136837%_))))) - (let () - (declare (not safe)) - (_%g136817136834%_ _%g136818136837%_)))))) - (declare (not safe)) - (_%g136816136879%_ _%stx136815%_)))) + _%hd135978136008%_ + _%hd135975136000%_) + (_%g135967135984%_ + _%g135968135987%_)))) + (_%g135967135984%_ _%g135968135987%_)))) + (_%g135967135984%_ _%g135968135987%_)))) + (_%g135967135984%_ _%g135968135987%_))))) + (_%g135966136029%_ _%stx135965%_)))) (define gxc#generate-meta-begin% - (lambda (_%self136763%_ _%stx136764%_) - (let* ((_%g136766136776%_ - (lambda (_%g136767136773%_) + (lambda (_%self135913%_ _%stx135914%_) + (let* ((_%g135916135926%_ + (lambda (_%g135917135923%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136767136773%_)))) - (_%g136765136811%_ - (lambda (_%g136767136779%_) + _%g135917135923%_)))) + (_%g135915135961%_ + (lambda (_%g135917135929%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136767136779%_)) - (let ((_%e136771136781%_ + (gx#stx-pair? _%g135917135929%_)) + (let ((_%e135921135931%_ (let () (declare (not safe)) - (gx#stx-e _%g136767136779%_)))) - (let ((_%hd136770136784%_ + (gx#stx-e _%g135917135929%_)))) + (let ((_%hd135920135934%_ (let () (declare (not safe)) - (##car _%e136771136781%_))) - (_%tl136769136786%_ + (##car _%e135921135931%_))) + (_%tl135919135936%_ (let () (declare (not safe)) - (##cdr _%e136771136781%_)))) - ((lambda (_%L136789%_) - (let* ((_%c-body136803%_ - (map (lambda (_%g136798136800%_) + (##cdr _%e135921135931%_)))) + ((lambda (_%L135939%_) + (let* ((_%c-body135953%_ + (map (lambda (_%g135948135950%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self136763%_ - _%g136798136800%_))) - _%L136789%_)) - (_%c-body136808%_ - (let ((__tmp145885 - (lambda (_%$obj136805%_) - (let ((__tmp145886 - (let () - (declare (not safe)) - (eq? _%$obj136805%_ - '#!void)))) - (declare (not safe)) - (not __tmp145886))))) + _%self135913%_ + _%g135948135950%_))) + _%L135939%_)) + (_%c-body135958%_ + (let ((__tmp144926 + (lambda (_%$obj135955%_) + (not (eq? _%$obj135955%_ + '#!void))))) (declare (not safe)) (##filter - __tmp145885 - _%c-body136803%_)))) - (cons '%#begin _%c-body136808%_))) - _%tl136769136786%_))) - (let () - (declare (not safe)) - (_%g136766136776%_ _%g136767136779%_)))))) - (declare (not safe)) - (_%g136765136811%_ _%stx136764%_)))) + __tmp144926 + _%c-body135953%_)))) + (cons '%#begin _%c-body135958%_))) + _%tl135919135936%_))) + (_%g135916135926%_ _%g135917135929%_))))) + (_%g135915135961%_ _%stx135914%_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_%self136668%_ _%stx136669%_) - (let* ((_%g136671136681%_ - (lambda (_%g136672136678%_) + (lambda (_%self135818%_ _%stx135819%_) + (let* ((_%g135821135831%_ + (lambda (_%g135822135828%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136672136678%_)))) - (_%g136670136760%_ - (lambda (_%g136672136684%_) + _%g135822135828%_)))) + (_%g135820135910%_ + (lambda (_%g135822135834%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136672136684%_)) - (let ((_%e136676136686%_ + (gx#stx-pair? _%g135822135834%_)) + (let ((_%e135826135836%_ (let () (declare (not safe)) - (gx#stx-e _%g136672136684%_)))) - (let ((_%hd136675136689%_ + (gx#stx-e _%g135822135834%_)))) + (let ((_%hd135825135839%_ (let () (declare (not safe)) - (##car _%e136676136686%_))) - (_%tl136674136691%_ + (##car _%e135826135836%_))) + (_%tl135824135841%_ (let () (declare (not safe)) - (##cdr _%e136676136686%_)))) - ((lambda (_%L136694%_) - (let* ((_%phi136704%_ - (let ((__tmp145887 + (##cdr _%e135826135836%_)))) + ((lambda (_%L135844%_) + (let* ((_%phi135854%_ + (let ((__tmp144927 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp145887 '1))) - (_%block136706%_ - (let ((__tmp145888 - (let () - (declare (not safe)) - (slot-ref__0 - _%self136668%_ - 'state)))) - (declare (not safe)) - (gxc#meta-state-begin-phi! - __tmp145888 - _%phi136704%_))) - (_%compiled136709%_ - (let ((__tmp145889 + (##fx+ __tmp144927 '1))) + (_%block135856%_ + (gxc#meta-state-begin-phi! + (let () + (declare (not safe)) + (slot-ref__0 _%self135818%_ 'state)) + _%phi135854%_)) + (_%compiled135859%_ + (let ((__tmp144928 (lambda () - (let ((__tmp145891 - (let () + (gxc#apply-generate-meta-phi__% + '#f + (let () + (declare (not safe)) + (slot-ref__0 + _%self135818%_ + 'state)) + (cons (let () (declare (not safe)) - (slot-ref__0 - _%self136668%_ - 'state))) - (__tmp145890 - (cons (let () - (declare - (not safe)) - (gx#datum->syntax__0 - '#f - '%#begin)) - _%L136694%_))) - (declare (not safe)) - (gxc#apply-generate-meta-phi__% - '#f - __tmp145891 - __tmp145890))))) + (gx#datum->syntax__0 + '#f + '%#begin)) + _%L135844%_))))) (declare (not safe)) (__call-with-parameters - __tmp145889 + __tmp144928 gx#current-expander-phi - _%phi136704%_)))) - (let* ((_%g136712136722%_ - (lambda (_%g136713136719%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g136713136719%_)))) - (_%g136711136757%_ - (lambda (_%g136713136725%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%g136713136725%_)) - (let ((_%e136717136727%_ + _%phi135854%_))) + (_%g135862135872%_ + (lambda (_%g135863135869%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g135863135869%_)))) + (_%g135861135907%_ + (lambda (_%g135863135875%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%g135863135875%_)) + (let ((_%e135867135877%_ + (let () + (declare (not safe)) + (gx#stx-e + _%g135863135875%_)))) + (let ((_%hd135866135880%_ (let () (declare (not safe)) - (gx#stx-e - _%g136713136725%_)))) - (let ((_%hd136716136730%_ - (let () - (declare (not safe)) - (##car _%e136717136727%_))) - (_%tl136715136732%_ - (let () - (declare (not safe)) - (##cdr _%e136717136727%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? - _%hd136716136730%_)) - (if (let () - (declare (not safe)) - (gx#stx-eq? - '%#begin - _%hd136716136730%_)) - ((lambda (_%L136735%_) - (let ((_%c-body136752%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (filter (lambda (_%$obj136749%_) - (let ((__tmp145892 - (let () - (declare (not safe)) - (eq? _%$obj136749%_ '#!void)))) - (declare (not safe)) - (not __tmp145892))) - _%L136735%_))) - (if _%block136706%_ - (let () - (cons '%#begin-syntax - (cons (cons '%#call - (cons (cons '%#ref - (cons 'load-module - '())) - (cons (cons '%#quote - (cons _%block136706%_ + (##car _%e135867135877%_))) + (_%tl135865135882%_ + (let () + (declare (not safe)) + (##cdr _%e135867135877%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _%hd135866135880%_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#begin + _%hd135866135880%_)) + ((lambda (_%L135885%_) + (let ((_%c-body135902%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (filter (lambda (_%$obj135899%_) + (not (eq? _%$obj135899%_ '#!void))) + _%L135885%_))) + (if _%block135856%_ + (cons '%#begin-syntax + (cons (cons '%#call + (cons (cons '%#ref + (cons 'load-module '())) + (cons (cons '%#quote + (cons _%block135856%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%c-body136752%_))) - (if (let () - (declare (not safe)) - (null? _%c-body136752%_)) - (let () '#!void) - (let () - (cons '%#begin-syntax _%c-body136752%_)))))) - _%tl136715136732%_) - (let () - (declare (not safe)) - (_%g136712136722%_ _%g136713136725%_))) + '())) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g136712136722%_ - _%g136713136725%_))))) - (let () - (declare (not safe)) - (_%g136712136722%_ - _%g136713136725%_)))))) - (declare (not safe)) - (_%g136711136757%_ _%compiled136709%_)))) - _%tl136674136691%_))) - (let () - (declare (not safe)) - (_%g136671136681%_ _%g136672136684%_)))))) - (declare (not safe)) - (_%g136670136760%_ _%stx136669%_)))) + _%c-body135902%_)) + (if (null? _%c-body135902%_) + '#!void + (cons '%#begin-syntax _%c-body135902%_))))) + _%tl135865135882%_) + (_%g135862135872%_ _%g135863135875%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g135862135872%_ + _%g135863135875%_)))) + (_%g135862135872%_ + _%g135863135875%_))))) + (_%g135861135907%_ _%compiled135859%_))) + _%tl135824135841%_))) + (_%g135821135831%_ _%g135822135834%_))))) + (_%g135820135910%_ _%stx135819%_)))) (define gxc#generate-meta-module% - (lambda (_%self136599%_ _%stx136600%_) - (let ((__tmp145893 - (let () - (declare (not safe)) - (slot-ref__0 _%self136599%_ 'state)))) - (declare (not safe)) - (gxc#meta-state-end-phi! __tmp145893)) - (let* ((_%g136602136616%_ - (lambda (_%g136603136613%_) + (lambda (_%self135749%_ _%stx135750%_) + (gxc#meta-state-end-phi! + (let () (declare (not safe)) (slot-ref__0 _%self135749%_ 'state))) + (let* ((_%g135752135766%_ + (lambda (_%g135753135763%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136603136613%_)))) - (_%g136601136665%_ - (lambda (_%g136603136619%_) + _%g135753135763%_)))) + (_%g135751135815%_ + (lambda (_%g135753135769%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136603136619%_)) - (let ((_%e136608136621%_ + (gx#stx-pair? _%g135753135769%_)) + (let ((_%e135758135771%_ (let () (declare (not safe)) - (gx#stx-e _%g136603136619%_)))) - (let ((_%hd136607136624%_ + (gx#stx-e _%g135753135769%_)))) + (let ((_%hd135757135774%_ (let () (declare (not safe)) - (##car _%e136608136621%_))) - (_%tl136606136626%_ + (##car _%e135758135771%_))) + (_%tl135756135776%_ (let () (declare (not safe)) - (##cdr _%e136608136621%_)))) + (##cdr _%e135758135771%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136606136626%_)) - (let ((_%e136611136629%_ + (gx#stx-pair? _%tl135756135776%_)) + (let ((_%e135761135779%_ (let () (declare (not safe)) - (gx#stx-e _%tl136606136626%_)))) - (let ((_%hd136610136632%_ + (gx#stx-e _%tl135756135776%_)))) + (let ((_%hd135760135782%_ (let () (declare (not safe)) - (##car _%e136611136629%_))) - (_%tl136609136634%_ + (##car _%e135761135779%_))) + (_%tl135759135784%_ (let () (declare (not safe)) - (##cdr _%e136611136629%_)))) - ((lambda (_%L136637%_ _%L136638%_) - (let ((_%key136651%_ + (##cdr _%e135761135779%_)))) + ((lambda (_%L135787%_ _%L135788%_) + (let ((_%key135801%_ (let () (declare (not safe)) (gx#core-identifier-key - _%L136638%_)))) + _%L135788%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%key136651%_)) + (interned-symbol? _%key135801%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _%stx136600%_ - _%L136638%_ - _%key136651%_))) - (let* ((_%ctx136653%_ + _%stx135750%_ + _%L135788%_ + _%key135801%_))) + (let* ((_%ctx135803%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L136638%_))) - (_%code136656%_ - (let ((__tmp145894 + _%L135788%_))) + (_%code135806%_ + (let ((__tmp144929 (lambda () - (let ((__tmp145895 + (let ((__tmp144930 (##structure-ref - _%ctx136653%_ + _%ctx135803%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self136599%_ - __tmp145895))))) + _%self135749%_ + __tmp144930))))) (declare (not safe)) (__call-with-parameters - __tmp145894 + __tmp144929 gx#current-expander-context - _%ctx136653%_))) - (_%rt136658%_ - (let ((__tmp145896 + _%ctx135803%_))) + (_%rt135808%_ + (let ((__tmp144931 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-get - __tmp145896 - _%ctx136653%_))) - (_%loader136660%_ - (if _%rt136658%_ + __tmp144931 + _%ctx135803%_))) + (_%loader135810%_ + (if _%rt135808%_ (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'load-module '())) - (cons (cons '%#quote (cons _%rt136658%_ '())) + (cons (cons '%#quote (cons _%rt135808%_ '())) '()))) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_%modid136662%_ + (_%modid135812%_ (let () (declare (not safe)) - (gx#stx-e _%L136638%_)))) - (let ((__tmp145897 - (let () - (declare (not safe)) - (slot-ref__0 - _%self136599%_ - 'state)))) - (declare (not safe)) - (gxc#meta-state-end-phi! - __tmp145897)) + (gx#stx-e _%L135788%_)))) + (gxc#meta-state-end-phi! + (let () + (declare (not safe)) + (slot-ref__0 + _%self135749%_ + 'state))) (cons '%#module - (cons _%modid136662%_ - (cons _%code136656%_ - _%loader136660%_)))))) - _%tl136609136634%_ - _%hd136610136632%_))) - (let () - (declare (not safe)) - (_%g136602136616%_ _%g136603136619%_))))) - (let () - (declare (not safe)) - (_%g136602136616%_ _%g136603136619%_)))))) - (declare (not safe)) - (_%g136601136665%_ _%stx136600%_)))) + (cons _%modid135812%_ + (cons _%code135806%_ + _%loader135810%_)))))) + _%tl135759135784%_ + _%hd135760135782%_))) + (_%g135752135766%_ _%g135753135769%_)))) + (_%g135752135766%_ _%g135753135769%_))))) + (_%g135751135815%_ _%stx135750%_)))) (define gxc#generate-meta-import-path - (lambda (_%ctx136586%_ _%context-chain136587%_) - (let _%lp136589%_ ((_%ctx136591%_ _%ctx136586%_) (_%path136592%_ '())) - (let ((_%super136594%_ - (##structure-ref _%ctx136591%_ '3 gx#phi-context::t '#f))) - (if (memq _%super136594%_ _%context-chain136587%_) - (let ((__tmp145898 - (let ((__tmp145899 - (car (##structure-ref - _%ctx136591%_ - '7 - gx#module-context::t - '#f)))) - (declare (not safe)) - (cons __tmp145899 _%path136592%_)))) - (declare (not safe)) - (cons '#f __tmp145898)) + (lambda (_%ctx135736%_ _%context-chain135737%_) + (let _%lp135739%_ ((_%ctx135741%_ _%ctx135736%_) (_%path135742%_ '())) + (let ((_%super135744%_ + (##structure-ref _%ctx135741%_ '3 gx#phi-context::t '#f))) + (if (memq _%super135744%_ _%context-chain135737%_) + (cons '#f + (cons (car (##structure-ref + _%ctx135741%_ + '7 + gx#module-context::t + '#f)) + _%path135742%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%super136594%_ + _%super135744%_ 'gx#module-context::t)) - (let ((__tmp145900 - (cons (car (##structure-ref - _%ctx136591%_ - '7 - gx#module-context::t - '#f)) - _%path136592%_))) - (declare (not safe)) - (_%lp136589%_ _%super136594%_ __tmp145900)) - (let () - (cons (let ((__tmp145901 - (##structure-ref - _%ctx136591%_ - '1 - gx#expander-context::t - '#f))) - (declare (not safe)) - (make-symbol__1 '":" __tmp145901)) - _%path136592%_)))))))) + (_%lp135739%_ + _%super135744%_ + (cons (car (##structure-ref + _%ctx135741%_ + '7 + gx#module-context::t + '#f)) + _%path135742%_)) + (cons (let ((__tmp144932 + (##structure-ref + _%ctx135741%_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (make-symbol__1 '":" __tmp144932)) + _%path135742%_))))))) (define gxc#current-context-chain (lambda () - (let _%lp136579%_ ((_%ctx136581%_ + (let _%lp135729%_ ((_%ctx135731%_ (let () (declare (not safe)) (gx#current-expander-context))) - (_%r136582%_ '())) + (_%r135732%_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _%ctx136581%_ 'gx#module-context::t)) - (let ((__tmp145903 - (##structure-ref _%ctx136581%_ '3 gx#phi-context::t '#f)) - (__tmp145902 (cons _%ctx136581%_ _%r136582%_))) - (declare (not safe)) - (_%lp136579%_ __tmp145903 __tmp145902)) - (let () _%r136582%_))))) + (##structure-instance-of? _%ctx135731%_ 'gx#module-context::t)) + (_%lp135729%_ + (##structure-ref _%ctx135731%_ '3 gx#phi-context::t '#f) + (cons _%ctx135731%_ _%r135732%_)) + _%r135732%_)))) (define gxc#generate-meta-import% - (lambda (_%self136342%_ _%stx136343%_) - (letrec* ((_%context-chain136345%_ - (let () (declare (not safe)) (gxc#current-context-chain))) - (_%make-import-spec136346%_ - (lambda (_%in136515%_) - (let* ((_%in136516136528%_ _%in136515%_) - (_%E136518136532%_ + (lambda (_%self135492%_ _%stx135493%_) + (letrec* ((_%context-chain135495%_ (gxc#current-context-chain)) + (_%make-import-spec135496%_ + (lambda (_%in135665%_) + (let* ((_%in135666135678%_ _%in135665%_) + (_%E135668135682%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%in136516136528%_ + _%in135666135678%_ '((module-import (module-export src-ctx @@ -14390,466 +13291,401 @@ name phi)))) '#!void)) - (_%K136519136542%_ - (lambda (_%phi136535%_ - _%name136536%_ - _%src-name136537%_ - _%src-phi136538%_ - _%src-key136539%_ - _%src-ctx136540%_) - (cons _%phi136535%_ - (cons (let () - (declare (not safe)) - (gxc#generate-runtime-identifier-key - _%name136536%_)) - (cons _%src-phi136538%_ - (cons (let () - (declare (not safe)) - (gxc#generate-runtime-identifier-key - _%src-name136537%_)) + (_%K135669135692%_ + (lambda (_%phi135685%_ + _%name135686%_ + _%src-name135687%_ + _%src-phi135688%_ + _%src-key135689%_ + _%src-ctx135690%_) + (cons _%phi135685%_ + (cons (gxc#generate-runtime-identifier-key + _%name135686%_) + (cons _%src-phi135688%_ + (cons (gxc#generate-runtime-identifier-key + _%src-name135687%_) '()))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in136516136528%_ + _%in135666135678%_ 'gx#module-import::t)) - (let ((_%e136520136545%_ + (let ((_%e135670135695%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in136516136528%_ + _%in135666135678%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e136520136545%_ + _%e135670135695%_ 'gx#module-export::t)) - (let* ((_%e136523136548%_ + (let* ((_%e135673135698%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e136520136545%_ + _%e135670135695%_ '1 '#f '#f))) - (_%src-ctx136551%_ _%e136523136548%_) - (_%e136524136553%_ + (_%src-ctx135701%_ _%e135673135698%_) + (_%e135674135703%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e136520136545%_ + _%e135670135695%_ '2 '#f '#f))) - (_%src-key136556%_ _%e136524136553%_) - (_%e136525136558%_ + (_%src-key135706%_ _%e135674135703%_) + (_%e135675135708%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e136520136545%_ + _%e135670135695%_ '3 '#f '#f))) - (_%src-phi136561%_ _%e136525136558%_) - (_%e136526136563%_ + (_%src-phi135711%_ _%e135675135708%_) + (_%e135676135713%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e136520136545%_ + _%e135670135695%_ '4 '#f '#f))) - (_%src-name136566%_ _%e136526136563%_) - (_%e136521136568%_ + (_%src-name135716%_ _%e135676135713%_) + (_%e135671135718%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in136516136528%_ + _%in135666135678%_ '2 '#f '#f))) - (_%name136571%_ _%e136521136568%_) - (_%e136522136573%_ + (_%name135721%_ _%e135671135718%_) + (_%e135672135723%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in136516136528%_ + _%in135666135678%_ '3 '#f '#f))) - (_%phi136576%_ _%e136522136573%_)) - (declare (not safe)) - (_%K136519136542%_ - _%phi136576%_ - _%name136571%_ - _%src-name136566%_ - _%src-phi136561%_ - _%src-key136556%_ - _%src-ctx136551%_)) - (let () - (declare (not safe)) - (_%E136518136532%_)))) - (let () - (declare (not safe)) - (_%E136518136532%_)))))) - (_%make-import-path136347%_ - (lambda (_%ctx136513%_) - (let () - (declare (not safe)) - (gxc#generate-meta-import-path - _%ctx136513%_ - _%context-chain136345%_)))) - (_%make-import-spec-in136348%_ - (lambda (_%ctx136510%_ _%in136511%_) + (_%phi135726%_ _%e135672135723%_)) + (_%K135669135692%_ + _%phi135726%_ + _%name135721%_ + _%src-name135716%_ + _%src-phi135711%_ + _%src-key135706%_ + _%src-ctx135701%_)) + (_%E135668135682%_))) + (_%E135668135682%_))))) + (_%make-import-path135497%_ + (lambda (_%ctx135663%_) + (gxc#generate-meta-import-path + _%ctx135663%_ + _%context-chain135495%_))) + (_%make-import-spec-in135498%_ + (lambda (_%ctx135660%_ _%in135661%_) (cons 'spec: - (cons (let () - (declare (not safe)) - (_%make-import-path136347%_ _%ctx136510%_)) - (reverse _%in136511%_)))))) - (let ((__tmp145904 - (let () - (declare (not safe)) - (slot-ref__0 _%self136342%_ 'state)))) - (declare (not safe)) - (gxc#meta-state-end-phi! __tmp145904)) - (let* ((_%g136350136360%_ - (lambda (_%g136351136357%_) + (cons (_%make-import-path135497%_ _%ctx135660%_) + (reverse _%in135661%_)))))) + (gxc#meta-state-end-phi! + (let () (declare (not safe)) (slot-ref__0 _%self135492%_ 'state))) + (let* ((_%g135500135510%_ + (lambda (_%g135501135507%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136351136357%_)))) - (_%g136349136507%_ - (lambda (_%g136351136363%_) + _%g135501135507%_)))) + (_%g135499135657%_ + (lambda (_%g135501135513%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136351136363%_)) - (let ((_%e136355136365%_ + (gx#stx-pair? _%g135501135513%_)) + (let ((_%e135505135515%_ (let () (declare (not safe)) - (gx#stx-e _%g136351136363%_)))) - (let ((_%hd136354136368%_ + (gx#stx-e _%g135501135513%_)))) + (let ((_%hd135504135518%_ (let () (declare (not safe)) - (##car _%e136355136365%_))) - (_%tl136353136370%_ + (##car _%e135505135515%_))) + (_%tl135503135520%_ (let () (declare (not safe)) - (##cdr _%e136355136365%_)))) - ((lambda (_%L136373%_) - (let _%lp136384%_ ((_%rest136386%_ _%L136373%_) - (_%current-src136387%_ '#f) - (_%current-in136388%_ '()) - (_%r136389%_ '())) - (let* ((_%rest136390136398%_ _%rest136386%_) - (_%else136392136408%_ + (##cdr _%e135505135515%_)))) + ((lambda (_%L135523%_) + (let _%lp135534%_ ((_%rest135536%_ _%L135523%_) + (_%current-src135537%_ '#f) + (_%current-in135538%_ '()) + (_%r135539%_ '())) + (let* ((_%rest135540135548%_ _%rest135536%_) + (_%else135542135558%_ (lambda () - (let ((_%r136406%_ - (if _%current-src136387%_ - (cons (let () - (declare - (not safe)) - (_%make-import-spec-in136348%_ - _%current-src136387%_ - _%current-in136388%_)) - _%r136389%_) - _%r136389%_))) + (let ((_%r135556%_ + (if _%current-src135537%_ + (cons (_%make-import-spec-in135498%_ + _%current-src135537%_ + _%current-in135538%_) + _%r135539%_) + _%r135539%_))) (cons '%#import - (reverse _%r136406%_))))) - (_%K136394136495%_ - (lambda (_%rest136411%_ _%in136412%_) + (reverse _%r135556%_))))) + (_%K135544135645%_ + (lambda (_%rest135561%_ _%in135562%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in136412%_ + _%in135562%_ 'gx#module-import::t)) - (let () - (let* ((_%in136414136421%_ - _%in136412%_) - (_%E136416136425%_ - (lambda () - (let () + (let* ((_%in135564135571%_ + _%in135562%_) + (_%E135566135575%_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%in135564135571%_ + '((module-import (module-export src-ctx))))) + '#!void)) + (_%K135567135583%_ + (lambda (_%src-ctx135578%_) + (if (eq? _%current-src135537%_ _%src-ctx135578%_) + (_%lp135534%_ + _%rest135561%_ + _%current-src135537%_ + (cons (_%make-import-spec135496%_ _%in135562%_) + _%current-in135538%_) + _%r135539%_) + (if _%current-src135537%_ + (_%lp135534%_ + _%rest135561%_ + _%src-ctx135578%_ + (cons (_%make-import-spec135496%_ _%in135562%_) '()) + (cons (_%make-import-spec-in135498%_ + _%current-src135537%_ + _%current-in135538%_) + _%r135539%_)) + (_%lp135534%_ + _%rest135561%_ + _%src-ctx135578%_ + (cons (_%make-import-spec135496%_ _%in135562%_) '()) + _%r135539%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + _%in135564135571%_ + 'gx#module-import::t)) + (let ((_%e135568135586%_ + (let () + (declare + (not safe)) + (##unchecked-structure-ref + _%in135564135571%_ + '1 + '#f + '#f)))) + (if (let () (declare (not safe)) - (error '"No clause matching" + (##structure-direct-instance-of? + _%e135568135586%_ + 'gx#module-export::t)) + (let* ((_%e135569135589%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in136414136421%_ - '((module-import (module-export src-ctx))))) - '#!void)) - (_%K136417136433%_ - (lambda (_%src-ctx136428%_) - (if (eq? _%current-src136387%_ _%src-ctx136428%_) - (let ((__tmp145905 - (cons (let () - (declare (not safe)) - (_%make-import-spec136346%_ - _%in136412%_)) - _%current-in136388%_))) - (declare (not safe)) - (_%lp136384%_ - _%rest136411%_ - _%current-src136387%_ - __tmp145905 - _%r136389%_)) - (if _%current-src136387%_ - (let ((__tmp145907 - (cons (let () - (declare (not safe)) - (_%make-import-spec136346%_ - _%in136412%_)) - '())) - (__tmp145906 - (cons (let () - (declare (not safe)) - (_%make-import-spec-in136348%_ - _%current-src136387%_ - _%current-in136388%_)) - _%r136389%_))) - (declare (not safe)) - (_%lp136384%_ - _%rest136411%_ - _%src-ctx136428%_ - __tmp145907 - __tmp145906)) - (let ((__tmp145908 - (cons (let () - (declare (not safe)) - (_%make-import-spec136346%_ - _%in136412%_)) - '()))) + (let () (declare (not safe)) - (_%lp136384%_ - _%rest136411%_ - _%src-ctx136428%_ - __tmp145908 - _%r136389%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - _%in136414136421%_ - 'gx#module-import::t)) - (let ((_%e136418136436%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##unchecked-structure-ref - _%in136414136421%_ - '1 - '#f - '#f)))) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - _%e136418136436%_ - 'gx#module-export::t)) - (let* ((_%e136419136439%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%e136418136436%_ - '1 - '#f - '#f))) - (_%src-ctx136442%_ _%e136419136439%_)) - (declare (not safe)) - (_%K136417136433%_ _%src-ctx136442%_)) - (let () (declare (not safe)) (_%E136416136425%_)))) - (let () (declare (not safe)) (_%E136416136425%_))))) + (##unchecked-structure-ref + _%e135568135586%_ + '1 + '#f + '#f))) + (_%src-ctx135592%_ _%e135569135589%_)) + (_%K135567135583%_ _%src-ctx135592%_)) + (_%E135566135575%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%E135566135575%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in136412%_ + _%in135562%_ 'gx#import-set::t)) - (let () - (let* ((_%phi136445%_ - (##direct-structure-ref - _%in136412%_ - '2 - gx#import-set::t - '#f)) - (_%src136447%_ - (##direct-structure-ref - _%in136412%_ - '1 - gx#import-set::t - '#f)) - (_%src-in136487%_ - (let* ((_%g136448136457%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let* ((_%phi135595%_ + (##direct-structure-ref + _%in135562%_ + '2 + gx#import-set::t + '#f)) + (_%src135597%_ + (##direct-structure-ref + _%in135562%_ + '1 + gx#import-set::t + '#f)) + (_%src-in135637%_ + (let* ((_%g135598135607%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (_%make-import-path135497%_ _%src135597%_)) + (_%E135601135611%_ + (lambda () (let () (declare (not safe)) - (_%make-import-path136347%_ _%src136447%_))) - (_%E136451136461%_ - (lambda () - (let () - (declare (not safe)) - (error '"No clause matching" - _%g136448136457%_ - '([path]) - '(path))) - '#!void))) - (let ((_%K136453136477%_ - (lambda (_%path136475%_) _%path136475%_)) - (_%K136452136467%_ - (lambda (_%path136465%_) - (cons 'in: _%path136465%_)))) - (if (let () - (declare (not safe)) - (##pair? _%g136448136457%_)) - (let ((_%tl136455136482%_ - (let () - (declare (not safe)) - (##cdr _%g136448136457%_))) - (_%hd136454136480%_ - (let () - (declare (not safe)) - (##car _%g136448136457%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl136455136482%_)) - (let ((_%path136485%_ _%hd136454136480%_)) - (declare (not safe)) - (_%K136453136477%_ _%path136485%_)) - (let ((_%path136470%_ _%g136448136457%_)) - (declare (not safe)) - (_%K136452136467%_ _%path136470%_)))) - (let ((_%path136470%_ _%g136448136457%_)) - (declare (not safe)) - (_%K136452136467%_ _%path136470%_)))))) - (_%r136489%_ - (if _%current-src136387%_ - (cons (let () - (declare (not safe)) - (_%make-import-spec-in136348%_ - _%current-src136387%_ - _%current-in136388%_)) - _%r136389%_) - _%r136389%_)) - (__tmp145909 - (cons (if (fxzero? _%phi136445%_) - _%src-in136487%_ - (cons 'phi: - (cons _%phi136445%_ - (cons _%src-in136487%_ '())))) - _%r136489%_))) - (declare (not safe)) - (_%lp136384%_ _%rest136411%_ '#f '() __tmp145909))) + (error '"No clause matching" + _%g135598135607%_ + '([path]) + '(path))) + '#!void))) + (let ((_%K135603135627%_ + (lambda (_%path135625%_) _%path135625%_)) + (_%K135602135617%_ + (lambda (_%path135615%_) + (cons 'in: _%path135615%_)))) + (if (let () + (declare (not safe)) + (##pair? _%g135598135607%_)) + (let ((_%tl135605135632%_ + (let () + (declare (not safe)) + (##cdr _%g135598135607%_))) + (_%hd135604135630%_ + (let () + (declare (not safe)) + (##car _%g135598135607%_)))) + (if (let () + (declare (not safe)) + (##null? _%tl135605135632%_)) + (let ((_%path135635%_ _%hd135604135630%_)) + (_%K135603135627%_ _%path135635%_)) + (let ((_%path135620%_ _%g135598135607%_)) + (_%K135602135617%_ _%path135620%_)))) + (let ((_%path135620%_ _%g135598135607%_)) + (_%K135602135617%_ _%path135620%_)))))) + (_%r135639%_ + (if _%current-src135537%_ + (cons (_%make-import-spec-in135498%_ + _%current-src135537%_ + _%current-in135538%_) + _%r135539%_) + _%r135539%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp135534%_ + _%rest135561%_ + '#f + '() + (cons (if (fxzero? _%phi135595%_) + _%src-in135637%_ + (cons 'phi: +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%phi135595%_ + (cons _%src-in135637%_ '())))) + _%r135639%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _%in136412%_ + _%in135562%_ 'gx#module-context::t)) - (let () - (let* ((_%r136493%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _%current-src136387%_ - (cons (let () - (declare (not safe)) - (_%make-import-spec-in136348%_ - _%current-src136387%_ - _%current-in136388%_)) - _%r136389%_) - _%r136389%_)) - (__tmp145910 - (cons (cons 'runtime: - (let () - (declare (not safe)) - (_%make-import-path136347%_ - _%in136412%_))) - _%r136493%_))) - (declare (not safe)) - (_%lp136384%_ _%rest136411%_ '#f '() __tmp145910))) + (let ((_%r135643%_ + (if _%current-src135537%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (_%make-import-spec-in135498%_ + _%current-src135537%_ + _%current-in135538%_) + _%r135539%_) + _%r135539%_))) + (_%lp135534%_ + _%rest135561%_ + '#f + '() + (cons (cons 'runtime: + (_%make-import-path135497%_ _%in135562%_)) + _%r135643%_))) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%rest136390136398%_)) - (let ((_%hd136395136498%_ + (##pair? _%rest135540135548%_)) + (let ((_%hd135545135648%_ (let () (declare (not safe)) - (##car _%rest136390136398%_))) - (_%tl136396136500%_ + (##car _%rest135540135548%_))) + (_%tl135546135650%_ (let () (declare (not safe)) - (##cdr _%rest136390136398%_)))) - (let* ((_%in136503%_ - _%hd136395136498%_) - (_%rest136505%_ - _%tl136396136500%_)) - (declare (not safe)) - (_%K136394136495%_ - _%rest136505%_ - _%in136503%_))) - (let () - (declare (not safe)) - (_%else136392136408%_)))))) - _%tl136353136370%_))) - (let () - (declare (not safe)) - (_%g136350136360%_ _%g136351136363%_)))))) - (declare (not safe)) - (_%g136349136507%_ _%stx136343%_))))) + (##cdr _%rest135540135548%_)))) + (let* ((_%in135653%_ + _%hd135545135648%_) + (_%rest135655%_ + _%tl135546135650%_)) + (_%K135544135645%_ + _%rest135655%_ + _%in135653%_))) + (_%else135542135558%_))))) + _%tl135503135520%_))) + (_%g135500135510%_ _%g135501135513%_))))) + (_%g135499135657%_ _%stx135493%_))))) (define gxc#generate-meta-export% - (lambda (_%self136152%_ _%stx136153%_) - (letrec* ((_%context-chain136155%_ - (let () (declare (not safe)) (gxc#current-context-chain))) - (_%make-import-path136156%_ - (lambda (_%ctx136340%_) - (let () - (declare (not safe)) - (gxc#generate-meta-import-path - _%ctx136340%_ - _%context-chain136155%_))))) - (let* ((_%g136158136168%_ - (lambda (_%g136159136165%_) + (lambda (_%self135302%_ _%stx135303%_) + (letrec* ((_%context-chain135305%_ (gxc#current-context-chain)) + (_%make-import-path135306%_ + (lambda (_%ctx135490%_) + (gxc#generate-meta-import-path + _%ctx135490%_ + _%context-chain135305%_)))) + (let* ((_%g135308135318%_ + (lambda (_%g135309135315%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136159136165%_)))) - (_%g136157136337%_ - (lambda (_%g136159136171%_) + _%g135309135315%_)))) + (_%g135307135487%_ + (lambda (_%g135309135321%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136159136171%_)) - (let ((_%e136163136173%_ + (gx#stx-pair? _%g135309135321%_)) + (let ((_%e135313135323%_ (let () (declare (not safe)) - (gx#stx-e _%g136159136171%_)))) - (let ((_%hd136162136176%_ + (gx#stx-e _%g135309135321%_)))) + (let ((_%hd135312135326%_ (let () (declare (not safe)) - (##car _%e136163136173%_))) - (_%tl136161136178%_ + (##car _%e135313135323%_))) + (_%tl135311135328%_ (let () (declare (not safe)) - (##cdr _%e136163136173%_)))) - ((lambda (_%L136181%_) - (let _%lp136192%_ ((_%rest136194%_ _%L136181%_) - (_%r136195%_ '())) - (let* ((_%rest136196136204%_ _%rest136194%_) - (_%else136198136212%_ + (##cdr _%e135313135323%_)))) + ((lambda (_%L135331%_) + (let _%lp135342%_ ((_%rest135344%_ _%L135331%_) + (_%r135345%_ '())) + (let* ((_%rest135346135354%_ _%rest135344%_) + (_%else135348135362%_ (lambda () (cons '%#export - (reverse _%r136195%_)))) - (_%K136200136325%_ - (lambda (_%rest136215%_ _%out136216%_) - (let* ((_%out136217136230%_ - _%out136216%_) - (_%E136220136234%_ + (reverse _%r135345%_)))) + (_%K135350135475%_ + (lambda (_%rest135365%_ _%out135366%_) + (let* ((_%out135367135380%_ + _%out135366%_) + (_%E135370135384%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%out136217136230%_ + _%out135367135380%_ '((module-export ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _ @@ -14859,560 +13695,501 @@ '((export-set src phi)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K136224136304%_ - (lambda (_%name136300%_ - _%phi136301%_ - _%key136302%_) - (let ((__tmp145911 - (cons (cons 'spec: -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi136301%_ - (cons (let () - (declare (not safe)) - (gxc#generate-runtime-identifier-key - _%key136302%_)) - (cons (let () - (declare (not safe)) - (gxc#generate-runtime-identifier-key - _%name136300%_)) - '())))) - _%r136195%_))) - (declare (not safe)) - (_%lp136192%_ _%rest136215%_ __tmp145911)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K136221136284%_ - (lambda (_%phi136238%_ - _%src136239%_) - (let* ((_%out136279%_ - (if _%src136239%_ + (let ((_%K135374135454%_ + (lambda (_%name135450%_ + _%phi135451%_ + _%key135452%_) + (_%lp135342%_ + _%rest135365%_ + (cons (cons 'spec: +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%phi135451%_ + (cons (gxc#generate-runtime-identifier-key + _%key135452%_) + (cons (gxc#generate-runtime-identifier-key + _%name135450%_) + '())))) + _%r135345%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%K135371135434%_ + (lambda (_%phi135388%_ + _%src135389%_) + (let* ((_%out135429%_ + (if _%src135389%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'import: - (cons (let* ((_%g136240136249%_ - (let () - (declare (not safe)) - (_%make-import-path136156%_ - _%src136239%_))) - (_%E136243136253%_ + (cons (let* ((_%g135390135399%_ + (_%make-import-path135306%_ + _%src135389%_)) + (_%E135393135403%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g136240136249%_ + _%g135390135399%_ '([path]) '(path))) '#!void))) - (let ((_%K136245136269%_ - (lambda (_%path136267%_) - _%path136267%_)) - (_%K136244136259%_ - (lambda (_%path136257%_) - (cons 'in: _%path136257%_)))) + (let ((_%K135395135419%_ + (lambda (_%path135417%_) + _%path135417%_)) + (_%K135394135409%_ + (lambda (_%path135407%_) + (cons 'in: _%path135407%_)))) (if (let () (declare (not safe)) - (##pair? _%g136240136249%_)) - (let ((_%tl136247136274%_ + (##pair? _%g135390135399%_)) + (let ((_%tl135397135424%_ (let () (declare (not safe)) - (##cdr _%g136240136249%_))) - (_%hd136246136272%_ + (##cdr _%g135390135399%_))) + (_%hd135396135422%_ (let () (declare (not safe)) - (##car _%g136240136249%_)))) + (##car _%g135390135399%_)))) (if (let () (declare (not safe)) - (##null? _%tl136247136274%_)) - (let ((_%path136277%_ - _%hd136246136272%_)) - (declare (not safe)) - (_%K136245136269%_ - _%path136277%_)) - (let ((_%path136262%_ - _%g136240136249%_)) - (declare (not safe)) - (_%K136244136259%_ - _%path136262%_)))) - (let ((_%path136262%_ - _%g136240136249%_)) - (declare (not safe)) - (_%K136244136259%_ - _%path136262%_))))) + (##null? _%tl135397135424%_)) + (let ((_%path135427%_ + _%hd135396135422%_)) + (_%K135395135419%_ + _%path135427%_)) + (let ((_%path135412%_ + _%g135390135399%_)) + (_%K135394135409%_ + _%path135412%_)))) + (let ((_%path135412%_ + _%g135390135399%_)) + (_%K135394135409%_ + _%path135412%_))))) '())) '#t)) - (_%out136281%_ - (if (fxzero? _%phi136238%_) - _%out136279%_ + (_%out135431%_ + (if (fxzero? _%phi135388%_) + _%out135429%_ (cons 'phi: - (cons _%phi136238%_ - (cons _%out136279%_ '()))))) - (__tmp145912 (cons _%out136281%_ _%r136195%_))) - (declare (not safe)) - (_%lp136192%_ _%rest136215%_ __tmp145912))))) + (cons _%phi135388%_ + (cons _%out135429%_ '())))))) + (_%lp135342%_ + _%rest135365%_ + (cons _%out135431%_ _%r135345%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match136219136297%_ + (let ((_%try-match135369135447%_ (lambda () (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out136217136230%_ + _%out135367135380%_ 'gx#export-set::t)) - (let* ((_%e136222136287%_ + (let* ((_%e135372135437%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%out136217136230%_ + _%out135367135380%_ '1 '#f '#f))) - (_%e136223136292%_ + (_%e135373135442%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out136217136230%_ + _%out135367135380%_ '2 '#f '#f)))) - (let ((_%src136290%_ _%e136222136287%_) - (_%phi136295%_ _%e136223136292%_)) - (let () - (declare (not safe)) - (_%K136221136284%_ _%phi136295%_ _%src136290%_)))) - (let () (declare (not safe)) (_%E136220136234%_)))))) + (let ((_%src135440%_ _%e135372135437%_) + (_%phi135445%_ _%e135373135442%_)) + (_%K135371135434%_ _%phi135445%_ _%src135440%_))) + (_%E135370135384%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out136217136230%_ + _%out135367135380%_ 'gx#module-export::t)) - (let* ((_%e136225136307%_ + (let* ((_%e135375135457%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%out136217136230%_ + _%out135367135380%_ '1 '#f '#f))) - (_%e136226136310%_ + (_%e135376135460%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out136217136230%_ + _%out135367135380%_ '2 '#f '#f))) - (_%e136227136315%_ + (_%e135377135465%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out136217136230%_ + _%out135367135380%_ '3 '#f '#f))) - (_%e136228136320%_ + (_%e135378135470%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out136217136230%_ + _%out135367135380%_ '4 '#f '#f)))) - (let ((_%key136313%_ _%e136226136310%_) - (_%phi136318%_ _%e136227136315%_) - (_%name136323%_ _%e136228136320%_)) - (let () - (declare (not safe)) - (_%K136224136304%_ - _%name136323%_ - _%phi136318%_ - _%key136313%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%try-match136219136297%_))))))))) + (let ((_%key135463%_ _%e135376135460%_) + (_%phi135468%_ _%e135377135465%_) + (_%name135473%_ _%e135378135470%_)) + (_%K135374135454%_ + _%name135473%_ + _%phi135468%_ + _%key135463%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match135369135447%_)))))))) (if (let () (declare (not safe)) - (##pair? _%rest136196136204%_)) - (let ((_%hd136201136328%_ + (##pair? _%rest135346135354%_)) + (let ((_%hd135351135478%_ (let () (declare (not safe)) - (##car _%rest136196136204%_))) - (_%tl136202136330%_ + (##car _%rest135346135354%_))) + (_%tl135352135480%_ (let () (declare (not safe)) - (##cdr _%rest136196136204%_)))) - (let* ((_%out136333%_ - _%hd136201136328%_) - (_%rest136335%_ - _%tl136202136330%_)) - (declare (not safe)) - (_%K136200136325%_ - _%rest136335%_ - _%out136333%_))) - (let () - (declare (not safe)) - (_%else136198136212%_)))))) - _%tl136161136178%_))) - (let () - (declare (not safe)) - (_%g136158136168%_ _%g136159136171%_)))))) - (declare (not safe)) - (_%g136157136337%_ _%stx136153%_))))) + (##cdr _%rest135346135354%_)))) + (let* ((_%out135483%_ + _%hd135351135478%_) + (_%rest135485%_ + _%tl135352135480%_)) + (_%K135350135475%_ + _%rest135485%_ + _%out135483%_))) + (_%else135348135362%_))))) + _%tl135311135328%_))) + (_%g135308135318%_ _%g135309135321%_))))) + (_%g135307135487%_ _%stx135303%_))))) (define gxc#generate-meta-provide% - (lambda (_%self136113%_ _%stx136114%_) - (let ((__tmp145913 - (let () - (declare (not safe)) - (slot-ref__0 _%self136113%_ 'state)))) - (declare (not safe)) - (gxc#meta-state-end-phi! __tmp145913)) - (let* ((_%g136116136126%_ - (lambda (_%g136117136123%_) + (lambda (_%self135263%_ _%stx135264%_) + (gxc#meta-state-end-phi! + (let () (declare (not safe)) (slot-ref__0 _%self135263%_ 'state))) + (let* ((_%g135266135276%_ + (lambda (_%g135267135273%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136117136123%_)))) - (_%g136115136149%_ - (lambda (_%g136117136129%_) + _%g135267135273%_)))) + (_%g135265135299%_ + (lambda (_%g135267135279%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136117136129%_)) - (let ((_%e136121136131%_ + (gx#stx-pair? _%g135267135279%_)) + (let ((_%e135271135281%_ (let () (declare (not safe)) - (gx#stx-e _%g136117136129%_)))) - (let ((_%hd136120136134%_ + (gx#stx-e _%g135267135279%_)))) + (let ((_%hd135270135284%_ (let () (declare (not safe)) - (##car _%e136121136131%_))) - (_%tl136119136136%_ + (##car _%e135271135281%_))) + (_%tl135269135286%_ (let () (declare (not safe)) - (##cdr _%e136121136131%_)))) - ((lambda (_%L136139%_) + (##cdr _%e135271135281%_)))) + ((lambda (_%L135289%_) (cons '%#provide (map gxc#generate-runtime-identifier - _%L136139%_))) - _%tl136119136136%_))) - (let () - (declare (not safe)) - (_%g136116136126%_ _%g136117136129%_)))))) - (declare (not safe)) - (_%g136115136149%_ _%stx136114%_)))) + _%L135289%_))) + _%tl135269135286%_))) + (_%g135266135276%_ _%g135267135279%_))))) + (_%g135265135299%_ _%stx135264%_)))) (define gxc#generate-meta-extern% - (lambda (_%self135984%_ _%stx135985%_) - (letrec ((_%generate1135987%_ - (lambda (_%id136108%_ _%eid136109%_) - (let ((_%eid136111%_ + (lambda (_%self135134%_ _%stx135135%_) + (letrec ((_%generate1135137%_ + (lambda (_%id135258%_ _%eid135259%_) + (let ((_%eid135261%_ (let () (declare (not safe)) - (gx#stx-e _%eid136109%_)))) + (gx#stx-e _%eid135259%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%eid136111%_)) + (interned-symbol? _%eid135261%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _%stx135985%_ - _%eid136111%_))) - (cons (let () - (declare (not safe)) - (gxc#generate-runtime-identifier _%id136108%_)) - (cons _%eid136111%_ '())))))) - (let* ((_%g135989136017%_ - (lambda (_%g135990136014%_) + _%stx135135%_ + _%eid135261%_))) + (cons (gxc#generate-runtime-identifier _%id135258%_) + (cons _%eid135261%_ '())))))) + (let* ((_%g135139135167%_ + (lambda (_%g135140135164%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135990136014%_)))) - (_%g135988136105%_ - (lambda (_%g135990136020%_) + _%g135140135164%_)))) + (_%g135138135255%_ + (lambda (_%g135140135170%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135990136020%_)) - (let ((_%e135995136022%_ + (gx#stx-pair? _%g135140135170%_)) + (let ((_%e135145135172%_ (let () (declare (not safe)) - (gx#stx-e _%g135990136020%_)))) - (let ((_%hd135994136025%_ + (gx#stx-e _%g135140135170%_)))) + (let ((_%hd135144135175%_ (let () (declare (not safe)) - (##car _%e135995136022%_))) - (_%tl135993136027%_ + (##car _%e135145135172%_))) + (_%tl135143135177%_ (let () (declare (not safe)) - (##cdr _%e135995136022%_)))) + (##cdr _%e135145135172%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl135993136027%_)) - (let ((_g145914_ + (gx#stx-pair/null? _%tl135143135177%_)) + (let ((_g144933_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl135993136027%_ + _%tl135143135177%_ '0)))) (begin - (let ((_g145915_ + (let ((_g144934_ (let () (declare (not safe)) - (if (##values? _g145914_) - (##vector-length _g145914_) + (if (##values? _g144933_) + (##vector-length _g144933_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g145915_ 2))) + (##fx= _g144934_ 2))) (error "Context expects 2 values" - _g145915_))) - (let ((_%target135996136030%_ + _g144934_))) + (let ((_%target135146135180%_ (let () (declare (not safe)) - (##vector-ref _g145914_ 0))) - (_%tl135998136032%_ + (##vector-ref _g144933_ 0))) + (_%tl135148135182%_ (let () (declare (not safe)) - (##vector-ref _g145914_ 1)))) + (##vector-ref _g144933_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135998136032%_)) - (letrec ((_%loop135999136035%_ - (lambda (_%hd135997136038%_ - _%eid136003136040%_ - _%id136004136042%_) + (gx#stx-null? _%tl135148135182%_)) + (letrec ((_%loop135149135185%_ + (lambda (_%hd135147135188%_ + _%eid135153135190%_ + _%id135154135192%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd135997136038%_)) - (let ((_%e136000136045%_ + _%hd135147135188%_)) + (let ((_%e135150135195%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd135997136038%_)))) - (let ((_%lp-hd136001136048%_ + (gx#stx-e _%hd135147135188%_)))) + (let ((_%lp-hd135151135198%_ (let () (declare (not safe)) - (##car _%e136000136045%_))) - (_%lp-tl136002136050%_ + (##car _%e135150135195%_))) + (_%lp-tl135152135200%_ (let () (declare (not safe)) - (##cdr _%e136000136045%_)))) + (##cdr _%e135150135195%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd136001136048%_)) - (let ((_%e136009136053%_ + (gx#stx-pair? _%lp-hd135151135198%_)) + (let ((_%e135159135203%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd136001136048%_)))) - (let ((_%hd136008136056%_ + (gx#stx-e _%lp-hd135151135198%_)))) + (let ((_%hd135158135206%_ (let () (declare (not safe)) - (##car _%e136009136053%_))) - (_%tl136007136058%_ + (##car _%e135159135203%_))) + (_%tl135157135208%_ (let () (declare (not safe)) - (##cdr _%e136009136053%_)))) + (##cdr _%e135159135203%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136007136058%_)) - (let ((_%e136012136061%_ + (gx#stx-pair? _%tl135157135208%_)) + (let ((_%e135162135211%_ (let () (declare (not safe)) - (gx#stx-e _%tl136007136058%_)))) - (let ((_%hd136011136064%_ + (gx#stx-e _%tl135157135208%_)))) + (let ((_%hd135161135214%_ (let () (declare (not safe)) - (##car _%e136012136061%_))) - (_%tl136010136066%_ + (##car _%e135162135211%_))) + (_%tl135160135216%_ (let () (declare (not safe)) - (##cdr _%e136012136061%_)))) + (##cdr _%e135162135211%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136010136066%_)) - (let ((__tmp145917 - (cons _%hd136011136064%_ - _%eid136003136040%_)) - (__tmp145916 - (cons _%hd136008136056%_ - _%id136004136042%_))) - (declare (not safe)) - (_%loop135999136035%_ - _%lp-tl136002136050%_ - __tmp145917 - __tmp145916)) - (let () - (declare (not safe)) - (_%g135989136017%_ - _%g135990136020%_))))) - (let () - (declare (not safe)) - (_%g135989136017%_ _%g135990136020%_))))) - (let () - (declare (not safe)) - (_%g135989136017%_ _%g135990136020%_))))) - (let ((_%eid136005136069%_ (reverse _%eid136003136040%_)) - (_%id136006136071%_ (reverse _%id136004136042%_))) - ((lambda (_%L136074%_ _%L136075%_) + (gx#stx-null? _%tl135160135216%_)) + (_%loop135149135185%_ + _%lp-tl135152135200%_ + (cons _%hd135161135214%_ + _%eid135153135190%_) + (cons _%hd135158135206%_ + _%id135154135192%_)) + (_%g135139135167%_ + _%g135140135170%_)))) + (_%g135139135167%_ _%g135140135170%_)))) + (_%g135139135167%_ _%g135140135170%_)))) + (let ((_%eid135155135219%_ (reverse _%eid135153135190%_)) + (_%id135156135221%_ (reverse _%id135154135192%_))) + ((lambda (_%L135224%_ _%L135225%_) (cons '%#extern - (map _%generate1135987%_ - (let ((__tmp145918 - (lambda (_%g136090136093%_ - _%g136091136095%_) - (cons _%g136090136093%_ - _%g136091136095%_)))) + (map _%generate1135137%_ + (let ((__tmp144935 + (lambda (_%g135240135243%_ + _%g135241135245%_) + (cons _%g135240135243%_ + _%g135241135245%_)))) (declare (not safe)) - (__foldr1 __tmp145918 '() _%L136075%_)) - (let ((__tmp145919 - (lambda (_%g136097136100%_ - _%g136098136102%_) - (cons _%g136097136100%_ - _%g136098136102%_)))) + (__foldr1 __tmp144935 '() _%L135225%_)) + (let ((__tmp144936 + (lambda (_%g135247135250%_ + _%g135248135252%_) + (cons _%g135247135250%_ + _%g135248135252%_)))) (declare (not safe)) - (__foldr1 __tmp145919 '() _%L136074%_))))) - _%eid136005136069%_ - _%id136006136071%_)))))) + (__foldr1 __tmp144936 '() _%L135224%_))))) + _%eid135155135219%_ + _%id135156135221%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop135999136035%_ - _%target135996136030%_ - '() - '()))) - (let () - (declare (not safe)) - (_%g135989136017%_ - _%g135990136020%_)))))) - (let () - (declare (not safe)) - (_%g135989136017%_ _%g135990136020%_))))) - (let () - (declare (not safe)) - (_%g135989136017%_ _%g135990136020%_)))))) - (declare (not safe)) - (_%g135988136105%_ _%stx135985%_))))) + (_%loop135149135185%_ + _%target135146135180%_ + '() + '())) + (_%g135139135167%_ + _%g135140135170%_))))) + (_%g135139135167%_ _%g135140135170%_)))) + (_%g135139135167%_ _%g135140135170%_))))) + (_%g135138135255%_ _%stx135135%_))))) (define gxc#generate-meta-define-values% - (lambda (_%self135774%_ _%stx135775%_) - (letrec ((_%generate1135777%_ - (lambda (_%id135979%_) - (let ((_%eid135981%_ - (let () - (declare (not safe)) - (gxc#generate-runtime-binding-id _%id135979%_))) - (_%ident135982%_ + (lambda (_%self134924%_ _%stx134925%_) + (letrec ((_%generate1134927%_ + (lambda (_%id135129%_) + (let ((_%eid135131%_ (let () (declare (not safe)) - (gxc#generate-runtime-identifier _%id135979%_)))) + (gxc#generate-runtime-binding-id _%id135129%_))) + (_%ident135132%_ + (gxc#generate-runtime-identifier _%id135129%_))) (cons '%#define-runtime - (cons _%ident135982%_ (cons _%eid135981%_ '())))))) - (_%generate*135778%_ - (lambda (_%all135947%_) - (let* ((_%all135948135956%_ _%all135947%_) - (_%else135950135964%_ - (lambda () (cons '%#begin _%all135947%_))) - (_%K135952135969%_ - (lambda (_%one135967%_) _%one135967%_))) + (cons _%ident135132%_ (cons _%eid135131%_ '())))))) + (_%generate*134928%_ + (lambda (_%all135097%_) + (let* ((_%all135098135106%_ _%all135097%_) + (_%else135100135114%_ + (lambda () (cons '%#begin _%all135097%_))) + (_%K135102135119%_ + (lambda (_%one135117%_) _%one135117%_))) (if (let () (declare (not safe)) - (##pair? _%all135948135956%_)) - (let ((_%hd135953135972%_ + (##pair? _%all135098135106%_)) + (let ((_%hd135103135122%_ (let () (declare (not safe)) - (##car _%all135948135956%_))) - (_%tl135954135974%_ + (##car _%all135098135106%_))) + (_%tl135104135124%_ (let () (declare (not safe)) - (##cdr _%all135948135956%_)))) - (let ((_%one135977%_ _%hd135953135972%_)) + (##cdr _%all135098135106%_)))) + (let ((_%one135127%_ _%hd135103135122%_)) (if (let () (declare (not safe)) - (##null? _%tl135954135974%_)) - (let () - (declare (not safe)) - (_%K135952135969%_ _%one135977%_)) - (let () - (declare (not safe)) - (_%else135950135964%_))))) - (let () - (declare (not safe)) - (_%else135950135964%_))))))) - (let* ((_%g135780135797%_ - (lambda (_%g135781135794%_) + (##null? _%tl135104135124%_)) + (_%K135102135119%_ _%one135127%_) + (_%else135100135114%_)))) + (_%else135100135114%_)))))) + (let* ((_%g134930134947%_ + (lambda (_%g134931134944%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135781135794%_)))) - (_%g135779135944%_ - (lambda (_%g135781135800%_) + _%g134931134944%_)))) + (_%g134929135094%_ + (lambda (_%g134931134950%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135781135800%_)) - (let ((_%e135786135802%_ + (gx#stx-pair? _%g134931134950%_)) + (let ((_%e134936134952%_ (let () (declare (not safe)) - (gx#stx-e _%g135781135800%_)))) - (let ((_%hd135785135805%_ + (gx#stx-e _%g134931134950%_)))) + (let ((_%hd134935134955%_ (let () (declare (not safe)) - (##car _%e135786135802%_))) - (_%tl135784135807%_ + (##car _%e134936134952%_))) + (_%tl134934134957%_ (let () (declare (not safe)) - (##cdr _%e135786135802%_)))) + (##cdr _%e134936134952%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135784135807%_)) - (let ((_%e135789135810%_ + (gx#stx-pair? _%tl134934134957%_)) + (let ((_%e134939134960%_ (let () (declare (not safe)) - (gx#stx-e _%tl135784135807%_)))) - (let ((_%hd135788135813%_ + (gx#stx-e _%tl134934134957%_)))) + (let ((_%hd134938134963%_ (let () (declare (not safe)) - (##car _%e135789135810%_))) - (_%tl135787135815%_ + (##car _%e134939134960%_))) + (_%tl134937134965%_ (let () (declare (not safe)) - (##cdr _%e135789135810%_)))) + (##cdr _%e134939134960%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135787135815%_)) - (let ((_%e135792135818%_ + (gx#stx-pair? _%tl134937134965%_)) + (let ((_%e134942134968%_ (let () (declare (not safe)) (gx#stx-e - _%tl135787135815%_)))) - (let ((_%hd135791135821%_ + _%tl134937134965%_)))) + (let ((_%hd134941134971%_ (let () (declare (not safe)) - (##car _%e135792135818%_))) - (_%tl135790135823%_ + (##car _%e134942134968%_))) + (_%tl134940134973%_ (let () (declare (not safe)) - (##cdr _%e135792135818%_)))) + (##cdr _%e134942134968%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135790135823%_)) - ((lambda (_%L135826%_ - _%L135827%_) - (let _%lp135843%_ ((_%rest135845%_ + _%tl134940134973%_)) + ((lambda (_%L134976%_ + _%L134977%_) + (let _%lp134993%_ ((_%rest134995%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L135827%_) - (_%r135846%_ '())) + _%L134977%_) + (_%r134996%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__stx145535145536%_ - _%rest135845%_) - (_%g135851135868%_ + (let* ((_%__stx144672144673%_ + _%rest134995%_) + (_%g135001135018%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -15420,184 +14197,160 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx145535145536%_))))) - (let ((_%__kont145537145538%_ - (lambda (_%L135931%_) - (let () - (declare (not safe)) - (_%lp135843%_ _%L135931%_ _%r135846%_)))) - (_%__kont145539145540%_ - (lambda (_%L135904%_ _%L135905%_) - (let ((__tmp145920 - (cons (let () - (declare (not safe)) - (_%generate1135777%_ _%L135905%_)) - _%r135846%_))) - (declare (not safe)) - (_%lp135843%_ _%L135904%_ __tmp145920)))) - (_%__kont145541145542%_ - (lambda (_%L135880%_) - (let ((__tmp145921 - (let ((__tmp145922 - (cons (let () - (declare (not safe)) - (_%generate1135777%_ - _%L135880%_)) - '()))) - (declare (not safe)) - (__foldl1 cons __tmp145922 _%r135846%_)))) - (declare (not safe)) - (_%generate*135778%_ __tmp145921)))) - (_%__kont145543145544%_ - (lambda () - (let ((__tmp145923 (reverse _%r135846%_))) - (declare (not safe)) - (_%generate*135778%_ __tmp145923))))) - (let ((_%g135849135891%_ + _%__stx144672144673%_))))) + (let ((_%__kont144674144675%_ + (lambda (_%L135081%_) + (_%lp134993%_ _%L135081%_ _%r134996%_))) + (_%__kont144676144677%_ + (lambda (_%L135054%_ _%L135055%_) + (_%lp134993%_ + _%L135054%_ + (cons (_%generate1134927%_ _%L135055%_) + _%r134996%_)))) + (_%__kont144678144679%_ + (lambda (_%L135030%_) + (_%generate*134928%_ + (let ((__tmp144937 + (cons (_%generate1134927%_ _%L135030%_) '()))) + (declare (not safe)) + (__foldl1 cons __tmp144937 _%r134996%_))))) + (_%__kont144680144681%_ + (lambda () (_%generate*134928%_ (reverse _%r134996%_))))) + (let ((_%g134999135041%_ (lambda () - (let ((_%L135880%_ _%__stx145535145536%_)) + (let ((_%L135030%_ _%__stx144672144673%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L135880%_)) - (_%__kont145541145542%_ _%L135880%_) - (_%__kont145543145544%_)))))) + (gx#identifier? _%L135030%_)) + (_%__kont144678144679%_ _%L135030%_) + (_%__kont144680144681%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx145535145536%_)) - (let ((_%e135856135920%_ + (gx#stx-pair? _%__stx144672144673%_)) + (let ((_%e135006135070%_ (let () (declare (not safe)) - (gx#stx-e _%__stx145535145536%_)))) - (let ((_%tl135854135925%_ + (gx#stx-e _%__stx144672144673%_)))) + (let ((_%tl135004135075%_ (let () (declare (not safe)) - (##cdr _%e135856135920%_))) - (_%hd135855135923%_ + (##cdr _%e135006135070%_))) + (_%hd135005135073%_ (let () (declare (not safe)) - (##car _%e135856135920%_)))) + (##car _%e135006135070%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd135855135923%_)) - (let ((_%e135857135928%_ + (gx#stx-datum? _%hd135005135073%_)) + (let ((_%e135007135078%_ (let () (declare (not safe)) - (gx#stx-e _%hd135855135923%_)))) - (if (equal? _%e135857135928%_ '#f) - (_%__kont145537145538%_ - _%tl135854135925%_) - (_%__kont145539145540%_ - _%tl135854135925%_ - _%hd135855135923%_))) - (_%__kont145539145540%_ - _%tl135854135925%_ - _%hd135855135923%_)))) - (let () (declare (not safe)) (_%g135849135891%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd135791135821%_ - _%hd135788135813%_) - (let () - (declare (not safe)) - (_%g135780135797%_ - _%g135781135800%_))))) - (let () - (declare (not safe)) - (_%g135780135797%_ - _%g135781135800%_))))) - (let () - (declare (not safe)) - (_%g135780135797%_ _%g135781135800%_))))) - (let () - (declare (not safe)) - (_%g135780135797%_ _%g135781135800%_)))))) - (declare (not safe)) - (_%g135779135944%_ _%stx135775%_))))) + (gx#stx-e _%hd135005135073%_)))) + (if (equal? _%e135007135078%_ '#f) + (_%__kont144674144675%_ + _%tl135004135075%_) + (_%__kont144676144677%_ + _%tl135004135075%_ + _%hd135005135073%_))) + (_%__kont144676144677%_ + _%tl135004135075%_ + _%hd135005135073%_)))) + (let () (declare (not safe)) (_%g134999135041%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd134941134971%_ + _%hd134938134963%_) + (_%g134930134947%_ + _%g134931134950%_)))) + (_%g134930134947%_ + _%g134931134950%_)))) + (_%g134930134947%_ _%g134931134950%_)))) + (_%g134930134947%_ _%g134931134950%_))))) + (_%g134929135094%_ _%stx134925%_))))) (define gxc#generate-meta-define-syntax% - (lambda (_%self135671%_ _%stx135672%_) - (let* ((_%g135674135691%_ - (lambda (_%g135675135688%_) + (lambda (_%self134821%_ _%stx134822%_) + (let* ((_%g134824134841%_ + (lambda (_%g134825134838%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135675135688%_)))) - (_%g135673135771%_ - (lambda (_%g135675135694%_) + _%g134825134838%_)))) + (_%g134823134921%_ + (lambda (_%g134825134844%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135675135694%_)) - (let ((_%e135680135696%_ + (gx#stx-pair? _%g134825134844%_)) + (let ((_%e134830134846%_ (let () (declare (not safe)) - (gx#stx-e _%g135675135694%_)))) - (let ((_%hd135679135699%_ + (gx#stx-e _%g134825134844%_)))) + (let ((_%hd134829134849%_ (let () (declare (not safe)) - (##car _%e135680135696%_))) - (_%tl135678135701%_ + (##car _%e134830134846%_))) + (_%tl134828134851%_ (let () (declare (not safe)) - (##cdr _%e135680135696%_)))) + (##cdr _%e134830134846%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135678135701%_)) - (let ((_%e135683135704%_ + (gx#stx-pair? _%tl134828134851%_)) + (let ((_%e134833134854%_ (let () (declare (not safe)) - (gx#stx-e _%tl135678135701%_)))) - (let ((_%hd135682135707%_ + (gx#stx-e _%tl134828134851%_)))) + (let ((_%hd134832134857%_ (let () (declare (not safe)) - (##car _%e135683135704%_))) - (_%tl135681135709%_ + (##car _%e134833134854%_))) + (_%tl134831134859%_ (let () (declare (not safe)) - (##cdr _%e135683135704%_)))) + (##cdr _%e134833134854%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135681135709%_)) - (let ((_%e135686135712%_ + (gx#stx-pair? _%tl134831134859%_)) + (let ((_%e134836134862%_ (let () (declare (not safe)) - (gx#stx-e _%tl135681135709%_)))) - (let ((_%hd135685135715%_ + (gx#stx-e _%tl134831134859%_)))) + (let ((_%hd134835134865%_ (let () (declare (not safe)) - (##car _%e135686135712%_))) - (_%tl135684135717%_ + (##car _%e134836134862%_))) + (_%tl134834134867%_ (let () (declare (not safe)) - (##cdr _%e135686135712%_)))) + (##cdr _%e134836134862%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135684135717%_)) - ((lambda (_%L135720%_ - _%L135721%_) - (let* ((_%eid135736%_ + _%tl134834134867%_)) + ((lambda (_%L134870%_ + _%L134871%_) + (let* ((_%eid134886%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L135721%_))) - (_%phi135738%_ - (let ((__tmp145924 + _%L134871%_))) + (_%phi134888%_ + (let ((__tmp144938 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp145924 '1))) - (_%block135740%_ - (let ((__tmp145925 - (let () - (declare (not safe)) - (slot-ref__0 _%self135671%_ 'state)))) - (declare (not safe)) - (gxc#meta-state-begin-phi! __tmp145925 _%phi135738%_)))) + (##fx+ __tmp144938 '1))) + (_%block134890%_ + (gxc#meta-state-begin-phi! + (let () + (declare (not safe)) + (slot-ref__0 _%self134821%_ 'state)) + _%phi134888%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g135743135750%_ - (lambda (_%g135744135747%_) + (let* ((_%g134893134900%_ + (lambda (_%g134894134897%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -15605,33 +14358,24 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135744135747%_)))) - (_%g135742135768%_ - (lambda (_%g135744135753%_) - ((lambda (_%L135755%_) - (let ((__tmp145927 - (let () + _%g134894134897%_)))) + (_%g134892134918%_ + (lambda (_%g134894134903%_) + ((lambda (_%L134905%_) + (gxc#meta-state-add-phi! + (let () + (declare (not safe)) + (slot-ref__0 _%self134821%_ 'state)) + _%phi134888%_ + (cons (let () (declare (not safe)) - (slot-ref__0 _%self135671%_ 'state))) - (__tmp145926 - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - '%#define-runtime)) - (cons _%L135755%_ - (cons _%L135720%_ '()))))) - (declare (not safe)) - (gxc#meta-state-add-phi! - __tmp145927 - _%phi135738%_ - __tmp145926))) - _%g135744135753%_)))) + (gx#datum->syntax__0 '#f '%#define-runtime)) + (cons _%L134905%_ (cons _%L134870%_ '()))))) + _%g134894134903%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g135742135768%_ - _%eid135736%_)) - (if _%block135740%_ + (_%g134892134918%_ + _%eid134886%_)) + (if _%block134890%_ (cons '%#begin (cons (cons '%#begin-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -15640,174 +14384,137 @@ (cons 'load-module '())) (cons (cons '%#quote - (cons _%block135740%_ + (cons _%block134890%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons '%#define-syntax - (cons (let () - (declare (not safe)) - (gxc#generate-runtime-identifier - _%L135721%_)) - (cons _%eid135736%_ '()))) + (cons (gxc#generate-runtime-identifier + _%L134871%_) + (cons _%eid134886%_ '()))) '()))) (cons '%#define-syntax - (cons (let () - (declare (not safe)) - (gxc#generate-runtime-identifier _%L135721%_)) - (cons _%eid135736%_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd135685135715%_ - _%hd135682135707%_) - (let () - (declare (not safe)) - (_%g135674135691%_ - _%g135675135694%_))))) - (let () - (declare (not safe)) - (_%g135674135691%_ - _%g135675135694%_))))) - (let () - (declare (not safe)) - (_%g135674135691%_ _%g135675135694%_))))) - (let () - (declare (not safe)) - (_%g135674135691%_ _%g135675135694%_)))))) - (declare (not safe)) - (_%g135673135771%_ _%stx135672%_)))) + (cons (gxc#generate-runtime-identifier _%L134871%_) + (cons _%eid134886%_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd134835134865%_ + _%hd134832134857%_) + (_%g134824134841%_ + _%g134825134844%_)))) + (_%g134824134841%_ _%g134825134844%_)))) + (_%g134824134841%_ _%g134825134844%_)))) + (_%g134824134841%_ _%g134825134844%_))))) + (_%g134823134921%_ _%stx134822%_)))) (define gxc#generate-meta-define-alias% - (lambda (_%self135603%_ _%stx135604%_) - (let* ((_%g135606135623%_ - (lambda (_%g135607135620%_) + (lambda (_%self134753%_ _%stx134754%_) + (let* ((_%g134756134773%_ + (lambda (_%g134757134770%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135607135620%_)))) - (_%g135605135668%_ - (lambda (_%g135607135626%_) + _%g134757134770%_)))) + (_%g134755134818%_ + (lambda (_%g134757134776%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135607135626%_)) - (let ((_%e135612135628%_ + (gx#stx-pair? _%g134757134776%_)) + (let ((_%e134762134778%_ (let () (declare (not safe)) - (gx#stx-e _%g135607135626%_)))) - (let ((_%hd135611135631%_ + (gx#stx-e _%g134757134776%_)))) + (let ((_%hd134761134781%_ (let () (declare (not safe)) - (##car _%e135612135628%_))) - (_%tl135610135633%_ + (##car _%e134762134778%_))) + (_%tl134760134783%_ (let () (declare (not safe)) - (##cdr _%e135612135628%_)))) + (##cdr _%e134762134778%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135610135633%_)) - (let ((_%e135615135636%_ + (gx#stx-pair? _%tl134760134783%_)) + (let ((_%e134765134786%_ (let () (declare (not safe)) - (gx#stx-e _%tl135610135633%_)))) - (let ((_%hd135614135639%_ + (gx#stx-e _%tl134760134783%_)))) + (let ((_%hd134764134789%_ (let () (declare (not safe)) - (##car _%e135615135636%_))) - (_%tl135613135641%_ + (##car _%e134765134786%_))) + (_%tl134763134791%_ (let () (declare (not safe)) - (##cdr _%e135615135636%_)))) + (##cdr _%e134765134786%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135613135641%_)) - (let ((_%e135618135644%_ + (gx#stx-pair? _%tl134763134791%_)) + (let ((_%e134768134794%_ (let () (declare (not safe)) - (gx#stx-e _%tl135613135641%_)))) - (let ((_%hd135617135647%_ + (gx#stx-e _%tl134763134791%_)))) + (let ((_%hd134767134797%_ (let () (declare (not safe)) - (##car _%e135618135644%_))) - (_%tl135616135649%_ + (##car _%e134768134794%_))) + (_%tl134766134799%_ (let () (declare (not safe)) - (##cdr _%e135618135644%_)))) + (##cdr _%e134768134794%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135616135649%_)) - ((lambda (_%L135652%_ - _%L135653%_) + _%tl134766134799%_)) + ((lambda (_%L134802%_ + _%L134803%_) (cons '%#define-alias - (cons (let () - (declare + (cons (gxc#generate-runtime-identifier + _%L134803%_) + (cons (gxc#generate-runtime-identifier ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gxc#generate-runtime-identifier _%L135653%_)) - (cons (let () - (declare (not safe)) - (gxc#generate-runtime-identifier _%L135652%_)) + _%L134802%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd135617135647%_ - _%hd135614135639%_) - (let () - (declare (not safe)) - (_%g135606135623%_ - _%g135607135626%_))))) - (let () - (declare (not safe)) - (_%g135606135623%_ - _%g135607135626%_))))) - (let () - (declare (not safe)) - (_%g135606135623%_ _%g135607135626%_))))) - (let () - (declare (not safe)) - (_%g135606135623%_ _%g135607135626%_)))))) - (declare (not safe)) - (_%g135605135668%_ _%stx135604%_)))) + _%hd134767134797%_ + _%hd134764134789%_) + (_%g134756134773%_ + _%g134757134776%_)))) + (_%g134756134773%_ _%g134757134776%_)))) + (_%g134756134773%_ _%g134757134776%_)))) + (_%g134756134773%_ _%g134757134776%_))))) + (_%g134755134818%_ _%stx134754%_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_%self135600%_ _%stx135601%_) - (let ((__tmp145929 - (let () - (declare (not safe)) - (slot-ref__0 _%self135600%_ 'state))) - (__tmp145928 - (let () (declare (not safe)) (gx#current-expander-phi)))) - (declare (not safe)) - (gxc#meta-state-add-phi! __tmp145929 __tmp145928 _%stx135601%_)) - (let () - (declare (not safe)) - (gxc#generate-meta-define-values% _%self135600%_ _%stx135601%_)))) + (lambda (_%self134750%_ _%stx134751%_) + (gxc#meta-state-add-phi! + (let () (declare (not safe)) (slot-ref__0 _%self134750%_ 'state)) + (let () (declare (not safe)) (gx#current-expander-phi)) + _%stx134751%_) + (gxc#generate-meta-define-values% _%self134750%_ _%stx134751%_))) (define gxc#generate-meta-phi-expr - (lambda (_%self135597%_ _%stx135598%_) - (let ((__tmp145931 - (let () - (declare (not safe)) - (slot-ref__0 _%self135597%_ 'state))) - (__tmp145930 - (let () (declare (not safe)) (gx#current-expander-phi)))) - (declare (not safe)) - (gxc#meta-state-add-phi! __tmp145931 __tmp145930 _%stx135598%_)) + (lambda (_%self134747%_ _%stx134748%_) + (gxc#meta-state-add-phi! + (let () (declare (not safe)) (slot-ref__0 _%self134747%_ 'state)) + (let () (declare (not safe)) (gx#current-expander-phi)) + _%stx134748%_) '#!void)) (define gxc#meta-state::t - (let ((__tmp145933 (list)) (__tmp145932 (cons (cons 'struct: '#t) '()))) + (let ((__tmp144940 (list)) (__tmp144939 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state::t 'meta-state - __tmp145933 + __tmp144940 '(src n open blocks) - __tmp145932 + __tmp144939 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (__make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _%$args135594%_ - (apply make-instance gxc#meta-state::t _%$args135594%_))) + (lambda _%$args134744%_ + (apply make-instance gxc#meta-state::t _%$args134744%_))) (define gxc#meta-state-src (let () (declare (not safe)) @@ -15873,76 +14580,76 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#meta-state::t 'blocks))) (define gxc#meta-state:::init! - (lambda (_%self135580%_ _%ctx135581%_) - (let ((_%self135584%_ _%self135580%_)) - (if (let ((__tmp145934 + (lambda (_%self134730%_ _%ctx134731%_) + (let ((_%self134734%_ _%self134730%_)) + (if (let ((__tmp144941 (let () (declare (not safe)) - (##structure-length _%self135584%_)))) + (##structure-length _%self134734%_)))) (declare (not safe)) - (##fx< '4 __tmp145934)) + (##fx< '4 __tmp144941)) (begin - (let ((__tmp145935 - (let ((__tmp145936 + (let ((__tmp144942 + (let ((__tmp144943 (##structure-ref - _%ctx135581%_ + _%ctx134731%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp145936)))) + (gxc#module-id->path-string __tmp144943)))) (declare (not safe)) (##unchecked-structure-set! - _%self135584%_ - __tmp145935 + _%self134734%_ + __tmp144942 '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self135584%_ '1 '2 '#f '#f)) - (let ((__tmp145937 + (##unchecked-structure-set! _%self134734%_ '1 '2 '#f '#f)) + (let ((__tmp144944 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self135584%_ - __tmp145937 + _%self134734%_ + __tmp144944 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self135584%_ '() '4 '#f '#f)) + (##unchecked-structure-set! _%self134734%_ '() '4 '#f '#f)) '#!void) - (let ((__tmp145938 + (let ((__tmp144945 (let () (declare (not safe)) - (##vector-length _%self135584%_)))) + (##vector-length _%self134734%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self135584%_ + _%self134734%_ '4 - __tmp145938)))))) + __tmp144945)))))) (let () (declare (not safe)) (__bind-method! gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp145940 (list)) (__tmp145939 (cons (cons 'struct: '#t) '()))) + (let ((__tmp144947 (list)) (__tmp144946 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state-block::t 'meta-state-block - __tmp145940 + __tmp144947 '(ctx phi n code) - __tmp145939 + __tmp144946 '#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 _%$args135455%_ - (apply make-instance gxc#meta-state-block::t _%$args135455%_))) + (lambda _%$args134605%_ + (apply make-instance gxc#meta-state-block::t _%$args134605%_))) (define gxc#meta-state-block-ctx (let () (declare (not safe)) @@ -16008,101 +14715,100 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#meta-state-block::t 'code))) (define gxc#meta-state-begin-phi! - (lambda (_%state135414%_ _%phi135415%_) - (let* ((_%state135416135424%_ _%state135414%_) - (_%E135418135428%_ + (lambda (_%state134564%_ _%phi134565%_) + (let* ((_%state134566134574%_ _%state134564%_) + (_%E134568134578%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%state135416135424%_ + _%state134566134574%_ '((meta-state src n open)))) '#!void)) - (_%K135419135437%_ - (lambda (_%open135431%_ _%n135432%_ _%src135433%_) + (_%K134569134587%_ + (lambda (_%open134581%_ _%n134582%_ _%src134583%_) (if (let () (declare (not safe)) - (hash-get _%open135431%_ _%phi135415%_)) + (hash-get _%open134581%_ _%phi134565%_)) '#f - (let ((_%block-ref135435%_ - (let ((__tmp145941 (number->string _%n135432%_))) + (let ((_%block-ref134585%_ + (let ((__tmp144948 (number->string _%n134582%_))) (declare (not safe)) (##string-append - _%src135433%_ + _%src134583%_ '"~" - __tmp145941)))) + __tmp144948)))) (##structure-set! - _%state135414%_ - (let () (declare (not safe)) (##fx+ _%n135432%_ '1)) + _%state134564%_ + (let () (declare (not safe)) (##fx+ _%n134582%_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp145942 - (let ((__tmp145943 + (let ((__tmp144949 + (let ((__tmp144950 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp145943 - _%phi135415%_ - _%n135432%_ + __tmp144950 + _%phi134565%_ + _%n134582%_ '())))) (declare (not safe)) - (hash-put! _%open135431%_ _%phi135415%_ __tmp145942)) - _%block-ref135435%_))))) + (hash-put! _%open134581%_ _%phi134565%_ __tmp144949)) + _%block-ref134585%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%state135416135424%_ + _%state134566134574%_ 'gxc#meta-state::t)) - (let* ((_%e135420135440%_ + (let* ((_%e134570134590%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state135416135424%_ + _%state134566134574%_ '1 '#f '#f))) - (_%src135443%_ _%e135420135440%_) - (_%e135421135445%_ + (_%src134593%_ _%e134570134590%_) + (_%e134571134595%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state135416135424%_ + _%state134566134574%_ '2 '#f '#f))) - (_%n135448%_ _%e135421135445%_) - (_%e135422135450%_ + (_%n134598%_ _%e134571134595%_) + (_%e134572134600%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state135416135424%_ + _%state134566134574%_ '3 '#f '#f))) - (_%open135453%_ _%e135422135450%_)) - (declare (not safe)) - (_%K135419135437%_ _%open135453%_ _%n135448%_ _%src135443%_)) - (let () (declare (not safe)) (_%E135418135428%_)))))) + (_%open134603%_ _%e134572134600%_)) + (_%K134569134587%_ _%open134603%_ _%n134598%_ _%src134593%_)) + (_%E134568134578%_))))) (define gxc#meta-state-add-phi! - (lambda (_%state135408%_ _%phi135409%_ _%stx135410%_) - (let ((_%block135412%_ - (let ((__tmp145944 + (lambda (_%state134558%_ _%phi134559%_ _%stx134560%_) + (let ((_%block134562%_ + (let ((__tmp144951 (##structure-ref - _%state135408%_ + _%state134558%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-get __tmp145944 _%phi135409%_)))) + (hash-get __tmp144951 _%phi134559%_)))) (##structure-set! - _%block135412%_ - (cons _%stx135410%_ + _%block134562%_ + (cons _%stx134560%_ (##structure-ref - _%block135412%_ + _%block134562%_ '4 gxc#meta-state-block::t '#f)) @@ -16110,280 +14816,264 @@ gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_%state135402%_) + (lambda (_%state134552%_) (##structure-set! - _%state135402%_ - (let ((__tmp145947 - (lambda (_%_135404%_ _%block135405%_ _%r135406%_) - (cons _%block135405%_ _%r135406%_))) - (__tmp145946 - (##structure-ref _%state135402%_ '4 gxc#meta-state::t '#f)) - (__tmp145945 - (##structure-ref _%state135402%_ '3 gxc#meta-state::t '#f))) + _%state134552%_ + (let ((__tmp144954 + (lambda (_%_134554%_ _%block134555%_ _%r134556%_) + (cons _%block134555%_ _%r134556%_))) + (__tmp144953 + (##structure-ref _%state134552%_ '4 gxc#meta-state::t '#f)) + (__tmp144952 + (##structure-ref _%state134552%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-fold __tmp145947 __tmp145946 __tmp145945)) + (hash-fold __tmp144954 __tmp144953 __tmp144952)) '4 gxc#meta-state::t '#f) (##structure-set! - _%state135402%_ + _%state134552%_ (let () (declare (not safe)) (make-hash-table-eq)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_%state135354%_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _%state135354%_)) - (let ((__tmp145949 - (lambda (_%block135356%_ _%r135357%_) - (let* ((_%block135358135367%_ _%block135356%_) - (_%E135360135371%_ + (lambda (_%state134504%_) + (gxc#meta-state-end-phi! _%state134504%_) + (let ((__tmp144956 + (lambda (_%block134506%_ _%r134507%_) + (let* ((_%block134508134517%_ _%block134506%_) + (_%E134510134521%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block135358135367%_ + _%block134508134517%_ '((meta-state-block ctx phi n code)))) '#!void)) - (_%K135361135379%_ - (lambda (_%code135374%_ - _%n135375%_ - _%phi135376%_ - _%ctx135377%_) - (if (let () - (declare (not safe)) - (null? _%code135374%_)) - _%r135357%_ - (cons (cons _%ctx135377%_ - (cons _%phi135376%_ - (cons _%n135375%_ + (_%K134511134529%_ + (lambda (_%code134524%_ + _%n134525%_ + _%phi134526%_ + _%ctx134527%_) + (if (null? _%code134524%_) + _%r134507%_ + (cons (cons _%ctx134527%_ + (cons _%phi134526%_ + (cons _%n134525%_ (cons (cons '%#begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse _%code135374%_)) + (reverse _%code134524%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r135357%_))))) + _%r134507%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%block135358135367%_ + _%block134508134517%_ 'gxc#meta-state-block::t)) - (let* ((_%e135362135382%_ + (let* ((_%e134512134532%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block135358135367%_ + _%block134508134517%_ '1 '#f '#f))) - (_%ctx135385%_ _%e135362135382%_) - (_%e135363135387%_ + (_%ctx134535%_ _%e134512134532%_) + (_%e134513134537%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block135358135367%_ + _%block134508134517%_ '2 '#f '#f))) - (_%phi135390%_ _%e135363135387%_) - (_%e135364135392%_ + (_%phi134540%_ _%e134513134537%_) + (_%e134514134542%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block135358135367%_ + _%block134508134517%_ '3 '#f '#f))) - (_%n135395%_ _%e135364135392%_) - (_%e135365135397%_ + (_%n134545%_ _%e134514134542%_) + (_%e134515134547%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block135358135367%_ + _%block134508134517%_ '4 '#f '#f))) - (_%code135400%_ _%e135365135397%_)) - (declare (not safe)) - (_%K135361135379%_ - _%code135400%_ - _%n135395%_ - _%phi135390%_ - _%ctx135385%_)) - (let () (declare (not safe)) (_%E135360135371%_)))))) - (__tmp145948 - (##structure-ref _%state135354%_ '4 gxc#meta-state::t '#f))) + (_%code134550%_ _%e134515134547%_)) + (_%K134511134529%_ + _%code134550%_ + _%n134545%_ + _%phi134540%_ + _%ctx134535%_)) + (_%E134510134521%_))))) + (__tmp144955 + (##structure-ref _%state134504%_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (__foldl1 __tmp145949 '() __tmp145948)))) + (__foldl1 __tmp144956 '() __tmp144955)))) (define gxc#collect-expression-refs - (lambda (_%stx135350%_) - (let ((_%ht135352%_ + (lambda (_%stx134500%_) + (let ((_%ht134502%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let () - (declare (not safe)) - (gxc#apply-collect-expression-refs__% - '#f - _%ht135352%_ - _%stx135350%_)) - _%ht135352%_))) + (gxc#apply-collect-expression-refs__% '#f _%ht134502%_ _%stx134500%_) + _%ht134502%_))) (define gxc#collect-refs-ref% - (lambda (_%self135293%_ _%stx135294%_) - (let* ((_%g135296135309%_ - (lambda (_%g135297135306%_) + (lambda (_%self134443%_ _%stx134444%_) + (let* ((_%g134446134459%_ + (lambda (_%g134447134456%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135297135306%_)))) - (_%g135295135347%_ - (lambda (_%g135297135312%_) + _%g134447134456%_)))) + (_%g134445134497%_ + (lambda (_%g134447134462%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135297135312%_)) - (let ((_%e135301135314%_ + (gx#stx-pair? _%g134447134462%_)) + (let ((_%e134451134464%_ (let () (declare (not safe)) - (gx#stx-e _%g135297135312%_)))) - (let ((_%hd135300135317%_ + (gx#stx-e _%g134447134462%_)))) + (let ((_%hd134450134467%_ (let () (declare (not safe)) - (##car _%e135301135314%_))) - (_%tl135299135319%_ + (##car _%e134451134464%_))) + (_%tl134449134469%_ (let () (declare (not safe)) - (##cdr _%e135301135314%_)))) + (##cdr _%e134451134464%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135299135319%_)) - (let ((_%e135304135322%_ + (gx#stx-pair? _%tl134449134469%_)) + (let ((_%e134454134472%_ (let () (declare (not safe)) - (gx#stx-e _%tl135299135319%_)))) - (let ((_%hd135303135325%_ + (gx#stx-e _%tl134449134469%_)))) + (let ((_%hd134453134475%_ (let () (declare (not safe)) - (##car _%e135304135322%_))) - (_%tl135302135327%_ + (##car _%e134454134472%_))) + (_%tl134452134477%_ (let () (declare (not safe)) - (##cdr _%e135304135322%_)))) + (##cdr _%e134454134472%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135302135327%_)) - ((lambda (_%L135330%_) - (let* ((_%bind135342%_ + (gx#stx-null? _%tl134452134477%_)) + ((lambda (_%L134480%_) + (let* ((_%bind134492%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L135330%_))) - (_%eid135344%_ - (if _%bind135342%_ + _%L134480%_))) + (_%eid134494%_ + (if _%bind134492%_ (##structure-ref - _%bind135342%_ + _%bind134492%_ '1 gx#binding::t '#f) (let () (declare (not safe)) (gx#stx-e - _%L135330%_)))) - (__tmp145950 + _%L134480%_)))) + (__tmp144957 (let () (declare (not safe)) (slot-ref__0 - _%self135293%_ + _%self134443%_ 'table)))) (declare (not safe)) (hash-put! - __tmp145950 - _%eid135344%_ - _%eid135344%_))) - _%hd135303135325%_) - (let () - (declare (not safe)) - (_%g135296135309%_ - _%g135297135312%_))))) - (let () - (declare (not safe)) - (_%g135296135309%_ _%g135297135312%_))))) - (let () - (declare (not safe)) - (_%g135296135309%_ _%g135297135312%_)))))) - (declare (not safe)) - (_%g135295135347%_ _%stx135294%_)))) + __tmp144957 + _%eid134494%_ + _%eid134494%_))) + _%hd134453134475%_) + (_%g134446134459%_ _%g134447134462%_)))) + (_%g134446134459%_ _%g134447134462%_)))) + (_%g134446134459%_ _%g134447134462%_))))) + (_%g134445134497%_ _%stx134444%_)))) (define gxc#collect-refs-setq% - (lambda (_%self135220%_ _%stx135221%_) - (let* ((_%g135223135240%_ - (lambda (_%g135224135237%_) + (lambda (_%self134370%_ _%stx134371%_) + (let* ((_%g134373134390%_ + (lambda (_%g134374134387%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135224135237%_)))) - (_%g135222135290%_ - (lambda (_%g135224135243%_) + _%g134374134387%_)))) + (_%g134372134440%_ + (lambda (_%g134374134393%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135224135243%_)) - (let ((_%e135229135245%_ + (gx#stx-pair? _%g134374134393%_)) + (let ((_%e134379134395%_ (let () (declare (not safe)) - (gx#stx-e _%g135224135243%_)))) - (let ((_%hd135228135248%_ + (gx#stx-e _%g134374134393%_)))) + (let ((_%hd134378134398%_ (let () (declare (not safe)) - (##car _%e135229135245%_))) - (_%tl135227135250%_ + (##car _%e134379134395%_))) + (_%tl134377134400%_ (let () (declare (not safe)) - (##cdr _%e135229135245%_)))) + (##cdr _%e134379134395%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135227135250%_)) - (let ((_%e135232135253%_ + (gx#stx-pair? _%tl134377134400%_)) + (let ((_%e134382134403%_ (let () (declare (not safe)) - (gx#stx-e _%tl135227135250%_)))) - (let ((_%hd135231135256%_ + (gx#stx-e _%tl134377134400%_)))) + (let ((_%hd134381134406%_ (let () (declare (not safe)) - (##car _%e135232135253%_))) - (_%tl135230135258%_ + (##car _%e134382134403%_))) + (_%tl134380134408%_ (let () (declare (not safe)) - (##cdr _%e135232135253%_)))) + (##cdr _%e134382134403%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135230135258%_)) - (let ((_%e135235135261%_ + (gx#stx-pair? _%tl134380134408%_)) + (let ((_%e134385134411%_ (let () (declare (not safe)) - (gx#stx-e _%tl135230135258%_)))) - (let ((_%hd135234135264%_ + (gx#stx-e _%tl134380134408%_)))) + (let ((_%hd134384134414%_ (let () (declare (not safe)) - (##car _%e135235135261%_))) - (_%tl135233135266%_ + (##car _%e134385134411%_))) + (_%tl134383134416%_ (let () (declare (not safe)) - (##cdr _%e135235135261%_)))) + (##cdr _%e134385134411%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135233135266%_)) - ((lambda (_%L135269%_ - _%L135270%_) - (let* ((_%bind135285%_ + _%tl134383134416%_)) + ((lambda (_%L134419%_ + _%L134420%_) + (let* ((_%bind134435%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L135270%_))) - (_%eid135287%_ - (if _%bind135285%_ + _%L134420%_))) + (_%eid134437%_ + (if _%bind134435%_ (##structure-ref - _%bind135285%_ + _%bind134435%_ '1 gx#binding::t '#f) @@ -16391,412 +15081,382 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L135270%_))))) + (gx#stx-e _%L134420%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp145951 + (let ((__tmp144958 (let () (declare (not safe)) (slot-ref__0 - _%self135220%_ + _%self134370%_ 'table)))) (declare (not safe)) (hash-put! - __tmp145951 - _%eid135287%_ - _%eid135287%_)) + __tmp144958 + _%eid134437%_ + _%eid134437%_)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self135220%_ - _%L135269%_)))) - _%hd135234135264%_ - _%hd135231135256%_) - (let () - (declare (not safe)) - (_%g135223135240%_ - _%g135224135243%_))))) - (let () - (declare (not safe)) - (_%g135223135240%_ - _%g135224135243%_))))) - (let () - (declare (not safe)) - (_%g135223135240%_ _%g135224135243%_))))) - (let () - (declare (not safe)) - (_%g135223135240%_ _%g135224135243%_)))))) - (declare (not safe)) - (_%g135222135290%_ _%stx135221%_)))) + _%self134370%_ + _%L134419%_)))) + _%hd134384134414%_ + _%hd134381134406%_) + (_%g134373134390%_ + _%g134374134393%_)))) + (_%g134373134390%_ _%g134374134393%_)))) + (_%g134373134390%_ _%g134374134393%_)))) + (_%g134373134390%_ _%g134374134393%_))))) + (_%g134372134440%_ _%stx134371%_)))) (define gxc#find-runtime-begin% - (lambda (_%self135177%_ _%stx135178%_) - (let* ((_%g135180135190%_ - (lambda (_%g135181135187%_) + (lambda (_%self134327%_ _%stx134328%_) + (let* ((_%g134330134340%_ + (lambda (_%g134331134337%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135181135187%_)))) - (_%g135179135217%_ - (lambda (_%g135181135193%_) + _%g134331134337%_)))) + (_%g134329134367%_ + (lambda (_%g134331134343%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135181135193%_)) - (let ((_%e135185135195%_ + (gx#stx-pair? _%g134331134343%_)) + (let ((_%e134335134345%_ (let () (declare (not safe)) - (gx#stx-e _%g135181135193%_)))) - (let ((_%hd135184135198%_ + (gx#stx-e _%g134331134343%_)))) + (let ((_%hd134334134348%_ (let () (declare (not safe)) - (##car _%e135185135195%_))) - (_%tl135183135200%_ + (##car _%e134335134345%_))) + (_%tl134333134350%_ (let () (declare (not safe)) - (##cdr _%e135185135195%_)))) - ((lambda (_%L135203%_) - (let ((__tmp145952 - (lambda (_%g135212135214%_) + (##cdr _%e134335134345%_)))) + ((lambda (_%L134353%_) + (let ((__tmp144959 + (lambda (_%g134362134364%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self135177%_ - _%g135212135214%_))))) + _%self134327%_ + _%g134362134364%_))))) (declare (not safe)) - (__ormap1 __tmp145952 _%L135203%_))) - _%tl135183135200%_))) - (let () - (declare (not safe)) - (_%g135180135190%_ _%g135181135193%_)))))) - (declare (not safe)) - (_%g135179135217%_ _%stx135178%_)))) + (__ormap1 __tmp144959 _%L134353%_))) + _%tl134333134350%_))) + (_%g134330134340%_ _%g134331134343%_))))) + (_%g134329134367%_ _%stx134328%_)))) (define gxc#count-values-single% - (lambda (_%self135174%_ _%stx135175%_) '1)) + (lambda (_%self134324%_ _%stx134325%_) '1)) (define gxc#count-values-call% - (lambda (_%self135040%_ _%stx135041%_) - (let* ((_%__stx145565145566%_ _%stx135041%_) - (_%g135044135073%_ + (lambda (_%self134190%_ _%stx134191%_) + (let* ((_%__stx144702144703%_ _%stx134191%_) + (_%g134194134223%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx145565145566%_))))) - (let ((_%__kont145567145568%_ - (lambda (_%L135141%_ _%L135142%_) - (length (let ((__tmp145953 - (lambda (_%g135163135166%_ _%g135164135168%_) - (cons _%g135163135166%_ - _%g135164135168%_)))) + _%__stx144702144703%_))))) + (let ((_%__kont144704144705%_ + (lambda (_%L134291%_ _%L134292%_) + (length (let ((__tmp144960 + (lambda (_%g134313134316%_ _%g134314134318%_) + (cons _%g134313134316%_ + _%g134314134318%_)))) (declare (not safe)) - (__foldr1 __tmp145953 '() _%L135141%_))))) - (_%__kont145571145572%_ (lambda () '#f))) - (let ((_%__match145610145611%_ - (lambda (_%e135050135085%_ - _%hd135049135088%_ - _%tl135048135090%_ - _%e135053135093%_ - _%hd135052135096%_ - _%tl135051135098%_ - _%e135056135101%_ - _%hd135055135104%_ - _%tl135054135106%_ - _%e135059135109%_ - _%hd135058135112%_ - _%tl135057135114%_ - _%__splice145569145570%_ - _%target135060135117%_ - _%tl135062135119%_) - (letrec ((_%loop135063135122%_ - (lambda (_%hd135061135125%_ - _%rand135067135127%_) + (__foldr1 __tmp144960 '() _%L134291%_))))) + (_%__kont144708144709%_ (lambda () '#f))) + (let ((_%__match144747144748%_ + (lambda (_%e134200134235%_ + _%hd134199134238%_ + _%tl134198134240%_ + _%e134203134243%_ + _%hd134202134246%_ + _%tl134201134248%_ + _%e134206134251%_ + _%hd134205134254%_ + _%tl134204134256%_ + _%e134209134259%_ + _%hd134208134262%_ + _%tl134207134264%_ + _%__splice144706144707%_ + _%target134210134267%_ + _%tl134212134269%_) + (letrec ((_%loop134213134272%_ + (lambda (_%hd134211134275%_ + _%rand134217134277%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135061135125%_)) - (let ((_%e135064135130%_ + (gx#stx-pair? _%hd134211134275%_)) + (let ((_%e134214134280%_ (let () (declare (not safe)) - (gx#stx-e _%hd135061135125%_)))) - (let ((_%lp-tl135066135135%_ + (gx#stx-e _%hd134211134275%_)))) + (let ((_%lp-tl134216134285%_ (let () (declare (not safe)) - (##cdr _%e135064135130%_))) - (_%lp-hd135065135133%_ + (##cdr _%e134214134280%_))) + (_%lp-hd134215134283%_ (let () (declare (not safe)) - (##car _%e135064135130%_)))) - (let ((__tmp145954 - (cons _%lp-hd135065135133%_ - _%rand135067135127%_))) - (declare (not safe)) - (_%loop135063135122%_ - _%lp-tl135066135135%_ - __tmp145954)))) - (let ((_%rand135068135138%_ - (reverse _%rand135067135127%_))) - (let ((_%L135141%_ _%rand135068135138%_) - (_%L135142%_ _%hd135058135112%_)) + (##car _%e134214134280%_)))) + (_%loop134213134272%_ + _%lp-tl134216134285%_ + (cons _%lp-hd134215134283%_ + _%rand134217134277%_)))) + (let ((_%rand134218134288%_ + (reverse _%rand134217134277%_))) + (let ((_%L134291%_ _%rand134218134288%_) + (_%L134292%_ _%hd134208134262%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L135142%_ + _%L134292%_ 'values)) - (_%__kont145567145568%_ - _%L135141%_ - _%L135142%_) - (_%__kont145571145572%_)))))))) - (let () - (declare (not safe)) - (_%loop135063135122%_ _%target135060135117%_ '())))))) + (_%__kont144704144705%_ + _%L134291%_ + _%L134292%_) + (_%__kont144708144709%_)))))))) + (_%loop134213134272%_ _%target134210134267%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx145565145566%_)) - (let ((_%e135050135085%_ + (gx#stx-pair? _%__stx144702144703%_)) + (let ((_%e134200134235%_ (let () (declare (not safe)) - (gx#stx-e _%__stx145565145566%_)))) - (let ((_%tl135048135090%_ + (gx#stx-e _%__stx144702144703%_)))) + (let ((_%tl134198134240%_ (let () (declare (not safe)) - (##cdr _%e135050135085%_))) - (_%hd135049135088%_ + (##cdr _%e134200134235%_))) + (_%hd134199134238%_ (let () (declare (not safe)) - (##car _%e135050135085%_)))) + (##car _%e134200134235%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135048135090%_)) - (let ((_%e135053135093%_ + (gx#stx-pair? _%tl134198134240%_)) + (let ((_%e134203134243%_ (let () (declare (not safe)) - (gx#stx-e _%tl135048135090%_)))) - (let ((_%tl135051135098%_ + (gx#stx-e _%tl134198134240%_)))) + (let ((_%tl134201134248%_ (let () (declare (not safe)) - (##cdr _%e135053135093%_))) - (_%hd135052135096%_ + (##cdr _%e134203134243%_))) + (_%hd134202134246%_ (let () (declare (not safe)) - (##car _%e135053135093%_)))) + (##car _%e134203134243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135052135096%_)) - (let ((_%e135056135101%_ + (gx#stx-pair? _%hd134202134246%_)) + (let ((_%e134206134251%_ (let () (declare (not safe)) - (gx#stx-e _%hd135052135096%_)))) - (let ((_%tl135054135106%_ + (gx#stx-e _%hd134202134246%_)))) + (let ((_%tl134204134256%_ (let () (declare (not safe)) - (##cdr _%e135056135101%_))) - (_%hd135055135104%_ + (##cdr _%e134206134251%_))) + (_%hd134205134254%_ (let () (declare (not safe)) - (##car _%e135056135101%_)))) + (##car _%e134206134251%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd135055135104%_)) + _%hd134205134254%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd135055135104%_)) + _%hd134205134254%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl135054135106%_)) - (let ((_%e135059135109%_ + _%tl134204134256%_)) + (let ((_%e134209134259%_ (let () (declare (not safe)) (gx#stx-e - _%tl135054135106%_)))) - (let ((_%tl135057135114%_ + _%tl134204134256%_)))) + (let ((_%tl134207134264%_ (let () (declare (not safe)) - (##cdr _%e135059135109%_))) - (_%hd135058135112%_ + (##cdr _%e134209134259%_))) + (_%hd134208134262%_ (let () (declare (not safe)) - (##car _%e135059135109%_)))) + (##car _%e134209134259%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135057135114%_)) + _%tl134207134264%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl135051135098%_)) - (let ((_%__splice145569145570%_ + (gx#stx-pair/null? _%tl134201134248%_)) + (let ((_%__splice144706144707%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl135051135098%_ + _%tl134201134248%_ '0)))) - (let ((_%tl135062135119%_ + (let ((_%tl134212134269%_ (let () (declare (not safe)) - (##vector-ref _%__splice145569145570%_ '1))) - (_%target135060135117%_ + (##vector-ref _%__splice144706144707%_ '1))) + (_%target134210134267%_ (let () (declare (not safe)) - (##vector-ref _%__splice145569145570%_ '0)))) + (##vector-ref _%__splice144706144707%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135062135119%_)) - (_%__match145610145611%_ - _%e135050135085%_ - _%hd135049135088%_ - _%tl135048135090%_ - _%e135053135093%_ - _%hd135052135096%_ - _%tl135051135098%_ - _%e135056135101%_ - _%hd135055135104%_ - _%tl135054135106%_ - _%e135059135109%_ - _%hd135058135112%_ - _%tl135057135114%_ - _%__splice145569145570%_ - _%target135060135117%_ - _%tl135062135119%_) - (_%__kont145571145572%_)))) - (_%__kont145571145572%_)) - (_%__kont145571145572%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont145571145572%_)) - (_%__kont145571145572%_)) - (_%__kont145571145572%_)))) - (_%__kont145571145572%_)))) - (_%__kont145571145572%_)))) - (_%__kont145571145572%_))))))) + (gx#stx-null? _%tl134212134269%_)) + (_%__match144747144748%_ + _%e134200134235%_ + _%hd134199134238%_ + _%tl134198134240%_ + _%e134203134243%_ + _%hd134202134246%_ + _%tl134201134248%_ + _%e134206134251%_ + _%hd134205134254%_ + _%tl134204134256%_ + _%e134209134259%_ + _%hd134208134262%_ + _%tl134207134264%_ + _%__splice144706144707%_ + _%target134210134267%_ + _%tl134212134269%_) + (_%__kont144708144709%_)))) + (_%__kont144708144709%_)) + (_%__kont144708144709%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont144708144709%_)) + (_%__kont144708144709%_)) + (_%__kont144708144709%_)))) + (_%__kont144708144709%_)))) + (_%__kont144708144709%_)))) + (_%__kont144708144709%_))))))) (define gxc#count-values-if% - (lambda (_%self134943%_ _%stx134944%_) - (let* ((_%g134946134967%_ - (lambda (_%g134947134964%_) + (lambda (_%self134093%_ _%stx134094%_) + (let* ((_%g134096134117%_ + (lambda (_%g134097134114%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134947134964%_)))) - (_%g134945135037%_ - (lambda (_%g134947134970%_) + _%g134097134114%_)))) + (_%g134095134187%_ + (lambda (_%g134097134120%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134947134970%_)) - (let ((_%e134953134972%_ + (gx#stx-pair? _%g134097134120%_)) + (let ((_%e134103134122%_ (let () (declare (not safe)) - (gx#stx-e _%g134947134970%_)))) - (let ((_%hd134952134975%_ + (gx#stx-e _%g134097134120%_)))) + (let ((_%hd134102134125%_ (let () (declare (not safe)) - (##car _%e134953134972%_))) - (_%tl134951134977%_ + (##car _%e134103134122%_))) + (_%tl134101134127%_ (let () (declare (not safe)) - (##cdr _%e134953134972%_)))) + (##cdr _%e134103134122%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134951134977%_)) - (let ((_%e134956134980%_ + (gx#stx-pair? _%tl134101134127%_)) + (let ((_%e134106134130%_ (let () (declare (not safe)) - (gx#stx-e _%tl134951134977%_)))) - (let ((_%hd134955134983%_ + (gx#stx-e _%tl134101134127%_)))) + (let ((_%hd134105134133%_ (let () (declare (not safe)) - (##car _%e134956134980%_))) - (_%tl134954134985%_ + (##car _%e134106134130%_))) + (_%tl134104134135%_ (let () (declare (not safe)) - (##cdr _%e134956134980%_)))) + (##cdr _%e134106134130%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134954134985%_)) - (let ((_%e134959134988%_ + (gx#stx-pair? _%tl134104134135%_)) + (let ((_%e134109134138%_ (let () (declare (not safe)) - (gx#stx-e _%tl134954134985%_)))) - (let ((_%hd134958134991%_ + (gx#stx-e _%tl134104134135%_)))) + (let ((_%hd134108134141%_ (let () (declare (not safe)) - (##car _%e134959134988%_))) - (_%tl134957134993%_ + (##car _%e134109134138%_))) + (_%tl134107134143%_ (let () (declare (not safe)) - (##cdr _%e134959134988%_)))) + (##cdr _%e134109134138%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134957134993%_)) - (let ((_%e134962134996%_ + _%tl134107134143%_)) + (let ((_%e134112134146%_ (let () (declare (not safe)) (gx#stx-e - _%tl134957134993%_)))) - (let ((_%hd134961134999%_ + _%tl134107134143%_)))) + (let ((_%hd134111134149%_ (let () (declare (not safe)) - (##car _%e134962134996%_))) - (_%tl134960135001%_ + (##car _%e134112134146%_))) + (_%tl134110134151%_ (let () (declare (not safe)) - (##cdr _%e134962134996%_)))) + (##cdr _%e134112134146%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134960135001%_)) - ((lambda (_%L135004%_ - _%L135005%_ - _%L135006%_) - (let ((_%c1135023135025%_ + _%tl134110134151%_)) + ((lambda (_%L134154%_ + _%L134155%_ + _%L134156%_) + (let ((_%c1134173134175%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self134943%_ _%L135005%_)))) - (if _%c1135023135025%_ - (let* ((_%c1135028%_ _%c1135023135025%_) - (_%c2135029135031%_ + (gxc#compile-e__1 _%self134093%_ _%L134155%_)))) + (if _%c1134173134175%_ + (let* ((_%c1134178%_ _%c1134173134175%_) + (_%c2134179134181%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self134943%_ - _%L135004%_)))) - (if _%c2135029135031%_ - (let ((_%c2135034%_ _%c2135029135031%_)) - (if (fx= _%c1135028%_ _%c2135034%_) - _%c1135028%_ + _%self134093%_ + _%L134154%_)))) + (if _%c2134179134181%_ + (let ((_%c2134184%_ _%c2134179134181%_)) + (if (fx= _%c1134178%_ _%c2134184%_) + _%c1134178%_ '#f)) '#f)) '#f))) - _%hd134961134999%_ - _%hd134958134991%_ - _%hd134955134983%_) - (let () - (declare (not safe)) - (_%g134946134967%_ _%g134947134970%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g134946134967%_ - _%g134947134970%_))))) - (let () - (declare (not safe)) - (_%g134946134967%_ - _%g134947134970%_))))) - (let () - (declare (not safe)) - (_%g134946134967%_ _%g134947134970%_))))) - (let () - (declare (not safe)) - (_%g134946134967%_ _%g134947134970%_)))))) - (declare (not safe)) - (_%g134945135037%_ _%stx134944%_)))))) + _%hd134111134149%_ + _%hd134108134141%_ + _%hd134105134133%_) + (_%g134096134117%_ _%g134097134120%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g134096134117%_ + _%g134097134120%_)))) + (_%g134096134117%_ _%g134097134120%_)))) + (_%g134096134117%_ _%g134097134120%_)))) + (_%g134096134117%_ _%g134097134120%_))))) + (_%g134095134187%_ _%stx134094%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~1.scm b/src/bootstrap/gerbil/compiler/compile~1.scm index 5df9eba88..e84c9e435 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]#_g145956_| + (define |gxc[1]#_g144962_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145958_| + (define |gxc[1]#_g144964_| (##structure gx#syntax-quote::t '::collect-bindings::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145960_| + (define |gxc[1]#_g144966_| (##structure gx#syntax-quote::t 'make-::collect-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145962_| + (define |gxc[1]#_g144968_| (##structure gx#syntax-quote::t '::collect-bindings? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145965_| + (define |gxc[1]#_g144971_| (##structure gx#syntax-quote::t '::lift-modules::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145967_| + (define |gxc[1]#_g144973_| (##structure gx#syntax-quote::t 'make-::lift-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145969_| + (define |gxc[1]#_g144975_| (##structure gx#syntax-quote::t '::lift-modules? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145971_| + (define |gxc[1]#_g144977_| (##structure gx#syntax-quote::t '::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145973_| + (define |gxc[1]#_g144979_| (##structure gx#syntax-quote::t '::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145975_| + (define |gxc[1]#_g144981_| (##structure gx#syntax-quote::t '&::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145977_| + (define |gxc[1]#_g144983_| (##structure gx#syntax-quote::t '&::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145979_| + (define |gxc[1]#_g144985_| (##structure gx#syntax-quote::t '::find-runtime-code::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145981_| + (define |gxc[1]#_g144987_| (##structure gx#syntax-quote::t 'make-::find-runtime-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145983_| + (define |gxc[1]#_g144989_| (##structure gx#syntax-quote::t '::find-runtime-code? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145985_| + (define |gxc[1]#_g144991_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145987_| + (define |gxc[1]#_g144993_| (##structure gx#syntax-quote::t '::find-lambda-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145989_| + (define |gxc[1]#_g144995_| (##structure gx#syntax-quote::t 'make-::find-lambda-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145991_| + (define |gxc[1]#_g144997_| (##structure gx#syntax-quote::t '::find-lambda-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145993_| + (define |gxc[1]#_g144999_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145995_| + (define |gxc[1]#_g145001_| (##structure gx#syntax-quote::t '::count-values::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145997_| + (define |gxc[1]#_g145003_| (##structure gx#syntax-quote::t 'make-::count-values #f (gx#current-expander-context) '())) - (define |gxc[1]#_g145999_| + (define |gxc[1]#_g145005_| (##structure gx#syntax-quote::t '::count-values? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146001_| + (define |gxc[1]#_g145007_| (##structure gx#syntax-quote::t '::generate-runtime-empty::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146003_| + (define |gxc[1]#_g145009_| (##structure gx#syntax-quote::t 'make-::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146005_| + (define |gxc[1]#_g145011_| (##structure gx#syntax-quote::t '::generate-runtime-empty? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146007_| + (define |gxc[1]#_g145013_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146009_| + (define |gxc[1]#_g145015_| (##structure gx#syntax-quote::t '::generate-loader::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146011_| + (define |gxc[1]#_g145017_| (##structure gx#syntax-quote::t 'make-::generate-loader #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146013_| + (define |gxc[1]#_g145019_| (##structure gx#syntax-quote::t '::generate-loader? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146016_| + (define |gxc[1]#_g145022_| (##structure gx#syntax-quote::t '::generate-runtime::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146018_| + (define |gxc[1]#_g145024_| (##structure gx#syntax-quote::t 'make-::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146020_| + (define |gxc[1]#_g145026_| (##structure gx#syntax-quote::t '::generate-runtime? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146022_| + (define |gxc[1]#_g145028_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146024_| + (define |gxc[1]#_g145030_| (##structure gx#syntax-quote::t '::generate-runtime-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146026_| + (define |gxc[1]#_g145032_| (##structure gx#syntax-quote::t 'make-::generate-runtime-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146028_| + (define |gxc[1]#_g145034_| (##structure gx#syntax-quote::t '::generate-runtime-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146030_| + (define |gxc[1]#_g145036_| (##structure gx#syntax-quote::t '::collect-expression-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146032_| + (define |gxc[1]#_g145038_| (##structure gx#syntax-quote::t 'make-::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146034_| + (define |gxc[1]#_g145040_| (##structure gx#syntax-quote::t '::collect-expression-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146036_| + (define |gxc[1]#_g145042_| (##structure gx#syntax-quote::t '::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146038_| + (define |gxc[1]#_g145044_| (##structure gx#syntax-quote::t '::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146040_| + (define |gxc[1]#_g145046_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146042_| + (define |gxc[1]#_g145048_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146044_| + (define |gxc[1]#_g145050_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146046_| + (define |gxc[1]#_g145052_| (##structure gx#syntax-quote::t '::generate-meta::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146048_| + (define |gxc[1]#_g145054_| (##structure gx#syntax-quote::t 'make-::generate-meta #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146050_| + (define |gxc[1]#_g145056_| (##structure gx#syntax-quote::t '::generate-meta? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146052_| + (define |gxc[1]#_g145058_| (##structure gx#syntax-quote::t '::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146054_| + (define |gxc[1]#_g145060_| (##structure gx#syntax-quote::t '::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146056_| + (define |gxc[1]#_g145062_| (##structure gx#syntax-quote::t '&::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146058_| + (define |gxc[1]#_g145064_| (##structure gx#syntax-quote::t '&::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146060_| + (define |gxc[1]#_g145066_| (##structure gx#syntax-quote::t '::generate-meta-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146062_| + (define |gxc[1]#_g145068_| (##structure gx#syntax-quote::t 'make-::generate-meta-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146064_| + (define |gxc[1]#_g145070_| (##structure gx#syntax-quote::t '::generate-meta-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146066_| + (define |gxc[1]#_g145072_| (##structure gx#syntax-quote::t '::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146068_| + (define |gxc[1]#_g145074_| (##structure gx#syntax-quote::t '::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146070_| + (define |gxc[1]#_g145076_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146072_| + (define |gxc[1]#_g145078_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146077_| + (define |gxc[1]#_g145083_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146079_| + (define |gxc[1]#_g145085_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146081_| + (define |gxc[1]#_g145087_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146083_| + (define |gxc[1]#_g145089_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146084_| + (define |gxc[1]#_g145090_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146085_| + (define |gxc[1]#_g145091_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146086_| + (define |gxc[1]#_g145092_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146088_| + (define |gxc[1]#_g145094_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146089_| + (define |gxc[1]#_g145095_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146090_| + (define |gxc[1]#_g145096_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146091_| + (define |gxc[1]#_g145097_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146093_| + (define |gxc[1]#_g145099_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146094_| + (define |gxc[1]#_g145100_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146095_| + (define |gxc[1]#_g145101_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146096_| + (define |gxc[1]#_g145102_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146098_| + (define |gxc[1]#_g145104_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146099_| + (define |gxc[1]#_g145105_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146100_| + (define |gxc[1]#_g145106_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146101_| + (define |gxc[1]#_g145107_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146103_| + (define |gxc[1]#_g145109_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146105_| + (define |gxc[1]#_g145111_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146107_| + (define |gxc[1]#_g145113_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146109_| + (define |gxc[1]#_g145115_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146110_| + (define |gxc[1]#_g145116_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146111_| + (define |gxc[1]#_g145117_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146112_| + (define |gxc[1]#_g145118_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146114_| + (define |gxc[1]#_g145120_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146115_| + (define |gxc[1]#_g145121_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146116_| + (define |gxc[1]#_g145122_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146117_| + (define |gxc[1]#_g145123_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146119_| + (define |gxc[1]#_g145125_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146120_| + (define |gxc[1]#_g145126_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146121_| + (define |gxc[1]#_g145127_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146122_| + (define |gxc[1]#_g145128_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146124_| + (define |gxc[1]#_g145130_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146125_| + (define |gxc[1]#_g145131_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146126_| + (define |gxc[1]#_g145132_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146127_| + (define |gxc[1]#_g145133_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! @@ -674,7 +674,7 @@ '())) (begin (define |gxc[:0:]#::collect-bindings| - (let ((__obj145612 + (let ((__obj144749 (let () (declare (not safe)) (##structure @@ -703,7 +703,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145612 + __obj144749 'gxc#::collect-bindings::t '1 '#f @@ -711,65 +711,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145612 + __obj144749 '::collect-bindings '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145612 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj144749 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145612 '() '6 '#f '#f)) - (let ((__tmp145955 (cons |gxc[1]#_g145956_| '()))) + (##unchecked-structure-set! __obj144749 '() '6 '#f '#f)) + (let ((__tmp144961 (cons |gxc[1]#_g144962_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145612 __tmp145955 '3 '#f '#f)) + (##unchecked-structure-set! __obj144749 __tmp144961 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145612 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj144749 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145612 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj144749 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145612 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj144749 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145612 '#f '11 '#f '#f)) - (let ((__tmp145957 |gxc[1]#_g145958_|)) + (##unchecked-structure-set! __obj144749 '#f '11 '#f '#f)) + (let ((__tmp144963 |gxc[1]#_g144964_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145612 __tmp145957 '12 '#f '#f)) - (let ((__tmp145959 |gxc[1]#_g145960_|)) + (##unchecked-structure-set! __obj144749 __tmp144963 '12 '#f '#f)) + (let ((__tmp144965 |gxc[1]#_g144966_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145612 __tmp145959 '13 '#f '#f)) - (let ((__tmp145961 |gxc[1]#_g145962_|)) + (##unchecked-structure-set! __obj144749 __tmp144965 '13 '#f '#f)) + (let ((__tmp144967 |gxc[1]#_g144968_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145612 __tmp145961 '14 '#f '#f)) + (##unchecked-structure-set! __obj144749 __tmp144967 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145612 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj144749 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145612 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj144749 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145612 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj144749 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145612 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj144749 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145612 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj144749 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145612 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj144749 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145612 '() '20 '#f '#f)) - __obj145612)) + (##unchecked-structure-set! __obj144749 '() '20 '#f '#f)) + __obj144749)) (define |gxc[:0:]#::lift-modules| - (let ((__obj145614 + (let ((__obj144751 (let () (declare (not safe)) (##structure @@ -798,68 +798,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145614 + __obj144751 'gxc#::lift-modules::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145614 '::lift-modules '2 '#f '#f)) + (##unchecked-structure-set! __obj144751 '::lift-modules '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145614 '(modules) '4 '#f '#f)) + (##unchecked-structure-set! __obj144751 '(modules) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145614 '(modules) '6 '#f '#f)) - (let ((__tmp145963 (cons |gxc[1]#_g145956_| '()))) + (##unchecked-structure-set! __obj144751 '(modules) '6 '#f '#f)) + (let ((__tmp144969 (cons |gxc[1]#_g144962_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145614 __tmp145963 '3 '#f '#f)) + (##unchecked-structure-set! __obj144751 __tmp144969 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145614 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj144751 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145614 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj144751 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145614 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj144751 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145614 '#f '11 '#f '#f)) - (let ((__tmp145964 |gxc[1]#_g145965_|)) + (##unchecked-structure-set! __obj144751 '#f '11 '#f '#f)) + (let ((__tmp144970 |gxc[1]#_g144971_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145614 __tmp145964 '12 '#f '#f)) - (let ((__tmp145966 |gxc[1]#_g145967_|)) + (##unchecked-structure-set! __obj144751 __tmp144970 '12 '#f '#f)) + (let ((__tmp144972 |gxc[1]#_g144973_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145614 __tmp145966 '13 '#f '#f)) - (let ((__tmp145968 |gxc[1]#_g145969_|)) + (##unchecked-structure-set! __obj144751 __tmp144972 '13 '#f '#f)) + (let ((__tmp144974 |gxc[1]#_g144975_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145614 __tmp145968 '14 '#f '#f)) - (let ((__tmp145970 (cons (cons 'modules |gxc[1]#_g145971_|) '()))) + (##unchecked-structure-set! __obj144751 __tmp144974 '14 '#f '#f)) + (let ((__tmp144976 (cons (cons 'modules |gxc[1]#_g144977_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145614 __tmp145970 '15 '#f '#f)) - (let ((__tmp145972 (cons (cons 'modules |gxc[1]#_g145973_|) '()))) + (##unchecked-structure-set! __obj144751 __tmp144976 '15 '#f '#f)) + (let ((__tmp144978 (cons (cons 'modules |gxc[1]#_g144979_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145614 __tmp145972 '16 '#f '#f)) - (let ((__tmp145974 (cons (cons 'modules |gxc[1]#_g145975_|) '()))) + (##unchecked-structure-set! __obj144751 __tmp144978 '16 '#f '#f)) + (let ((__tmp144980 (cons (cons 'modules |gxc[1]#_g144981_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145614 __tmp145974 '17 '#f '#f)) - (let ((__tmp145976 (cons (cons 'modules |gxc[1]#_g145977_|) '()))) + (##unchecked-structure-set! __obj144751 __tmp144980 '17 '#f '#f)) + (let ((__tmp144982 (cons (cons 'modules |gxc[1]#_g144983_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145614 __tmp145976 '18 '#f '#f)) + (##unchecked-structure-set! __obj144751 __tmp144982 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145614 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj144751 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145614 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj144751 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145614 '() '20 '#f '#f)) - __obj145614)) + (##unchecked-structure-set! __obj144751 '() '20 '#f '#f)) + __obj144751)) (define |gxc[:0:]#::find-runtime-code| - (let ((__obj145616 + (let ((__obj144753 (let () (declare (not safe)) (##structure @@ -888,7 +888,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145616 + __obj144753 'gxc#::find-runtime-code::t '1 '#f @@ -896,65 +896,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145616 + __obj144753 '::find-runtime-code '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145616 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj144753 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145616 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj144753 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145616 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj144753 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145616 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj144753 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145616 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj144753 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145616 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj144753 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145616 '#f '11 '#f '#f)) - (let ((__tmp145978 |gxc[1]#_g145979_|)) + (##unchecked-structure-set! __obj144753 '#f '11 '#f '#f)) + (let ((__tmp144984 |gxc[1]#_g144985_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145616 __tmp145978 '12 '#f '#f)) - (let ((__tmp145980 |gxc[1]#_g145981_|)) + (##unchecked-structure-set! __obj144753 __tmp144984 '12 '#f '#f)) + (let ((__tmp144986 |gxc[1]#_g144987_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145616 __tmp145980 '13 '#f '#f)) - (let ((__tmp145982 |gxc[1]#_g145983_|)) + (##unchecked-structure-set! __obj144753 __tmp144986 '13 '#f '#f)) + (let ((__tmp144988 |gxc[1]#_g144989_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145616 __tmp145982 '14 '#f '#f)) + (##unchecked-structure-set! __obj144753 __tmp144988 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145616 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj144753 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145616 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj144753 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145616 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj144753 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145616 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj144753 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145616 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj144753 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145616 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj144753 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145616 '() '20 '#f '#f)) - __obj145616)) + (##unchecked-structure-set! __obj144753 '() '20 '#f '#f)) + __obj144753)) (define |gxc[:0:]#::find-lambda-expression| - (let ((__obj145618 + (let ((__obj144755 (let () (declare (not safe)) (##structure @@ -983,7 +983,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145618 + __obj144755 'gxc#::find-lambda-expression::t '1 '#f @@ -991,65 +991,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145618 + __obj144755 '::find-lambda-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145618 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj144755 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145618 '() '6 '#f '#f)) - (let ((__tmp145984 (cons |gxc[1]#_g145985_| '()))) + (##unchecked-structure-set! __obj144755 '() '6 '#f '#f)) + (let ((__tmp144990 (cons |gxc[1]#_g144991_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145618 __tmp145984 '3 '#f '#f)) + (##unchecked-structure-set! __obj144755 __tmp144990 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145618 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj144755 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145618 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj144755 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145618 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj144755 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145618 '#f '11 '#f '#f)) - (let ((__tmp145986 |gxc[1]#_g145987_|)) + (##unchecked-structure-set! __obj144755 '#f '11 '#f '#f)) + (let ((__tmp144992 |gxc[1]#_g144993_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145618 __tmp145986 '12 '#f '#f)) - (let ((__tmp145988 |gxc[1]#_g145989_|)) + (##unchecked-structure-set! __obj144755 __tmp144992 '12 '#f '#f)) + (let ((__tmp144994 |gxc[1]#_g144995_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145618 __tmp145988 '13 '#f '#f)) - (let ((__tmp145990 |gxc[1]#_g145991_|)) + (##unchecked-structure-set! __obj144755 __tmp144994 '13 '#f '#f)) + (let ((__tmp144996 |gxc[1]#_g144997_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145618 __tmp145990 '14 '#f '#f)) + (##unchecked-structure-set! __obj144755 __tmp144996 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145618 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj144755 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145618 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj144755 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145618 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj144755 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145618 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj144755 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145618 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj144755 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145618 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj144755 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145618 '() '20 '#f '#f)) - __obj145618)) + (##unchecked-structure-set! __obj144755 '() '20 '#f '#f)) + __obj144755)) (define |gxc[:0:]#::count-values| - (let ((__obj145620 + (let ((__obj144757 (let () (declare (not safe)) (##structure @@ -1078,68 +1078,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145620 + __obj144757 'gxc#::count-values::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145620 '::count-values '2 '#f '#f)) + (##unchecked-structure-set! __obj144757 '::count-values '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145620 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj144757 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145620 '() '6 '#f '#f)) - (let ((__tmp145992 (cons |gxc[1]#_g145993_| '()))) + (##unchecked-structure-set! __obj144757 '() '6 '#f '#f)) + (let ((__tmp144998 (cons |gxc[1]#_g144999_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145620 __tmp145992 '3 '#f '#f)) + (##unchecked-structure-set! __obj144757 __tmp144998 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145620 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj144757 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145620 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj144757 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145620 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj144757 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145620 '#f '11 '#f '#f)) - (let ((__tmp145994 |gxc[1]#_g145995_|)) + (##unchecked-structure-set! __obj144757 '#f '11 '#f '#f)) + (let ((__tmp145000 |gxc[1]#_g145001_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145620 __tmp145994 '12 '#f '#f)) - (let ((__tmp145996 |gxc[1]#_g145997_|)) + (##unchecked-structure-set! __obj144757 __tmp145000 '12 '#f '#f)) + (let ((__tmp145002 |gxc[1]#_g145003_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145620 __tmp145996 '13 '#f '#f)) - (let ((__tmp145998 |gxc[1]#_g145999_|)) + (##unchecked-structure-set! __obj144757 __tmp145002 '13 '#f '#f)) + (let ((__tmp145004 |gxc[1]#_g145005_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145620 __tmp145998 '14 '#f '#f)) + (##unchecked-structure-set! __obj144757 __tmp145004 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145620 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj144757 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145620 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj144757 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145620 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj144757 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145620 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj144757 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145620 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj144757 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145620 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj144757 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145620 '() '20 '#f '#f)) - __obj145620)) + (##unchecked-structure-set! __obj144757 '() '20 '#f '#f)) + __obj144757)) (define |gxc[:0:]#::generate-runtime-empty| - (let ((__obj145622 + (let ((__obj144759 (let () (declare (not safe)) (##structure @@ -1168,7 +1168,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145622 + __obj144759 'gxc#::generate-runtime-empty::t '1 '#f @@ -1176,65 +1176,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145622 + __obj144759 '::generate-runtime-empty '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145622 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj144759 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145622 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj144759 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145622 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj144759 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145622 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj144759 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145622 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj144759 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145622 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj144759 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145622 '#f '11 '#f '#f)) - (let ((__tmp146000 |gxc[1]#_g146001_|)) + (##unchecked-structure-set! __obj144759 '#f '11 '#f '#f)) + (let ((__tmp145006 |gxc[1]#_g145007_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145622 __tmp146000 '12 '#f '#f)) - (let ((__tmp146002 |gxc[1]#_g146003_|)) + (##unchecked-structure-set! __obj144759 __tmp145006 '12 '#f '#f)) + (let ((__tmp145008 |gxc[1]#_g145009_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145622 __tmp146002 '13 '#f '#f)) - (let ((__tmp146004 |gxc[1]#_g146005_|)) + (##unchecked-structure-set! __obj144759 __tmp145008 '13 '#f '#f)) + (let ((__tmp145010 |gxc[1]#_g145011_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145622 __tmp146004 '14 '#f '#f)) + (##unchecked-structure-set! __obj144759 __tmp145010 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145622 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj144759 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145622 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj144759 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145622 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj144759 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145622 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj144759 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145622 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj144759 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145622 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj144759 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145622 '() '20 '#f '#f)) - __obj145622)) + (##unchecked-structure-set! __obj144759 '() '20 '#f '#f)) + __obj144759)) (define |gxc[:0:]#::generate-loader| - (let ((__obj145623 + (let ((__obj144760 (let () (declare (not safe)) (##structure @@ -1263,7 +1263,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145623 + __obj144760 'gxc#::generate-loader::t '1 '#f @@ -1271,65 +1271,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145623 + __obj144760 '::generate-loader '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145623 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj144760 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145623 '() '6 '#f '#f)) - (let ((__tmp146006 (cons |gxc[1]#_g146007_| '()))) + (##unchecked-structure-set! __obj144760 '() '6 '#f '#f)) + (let ((__tmp145012 (cons |gxc[1]#_g145013_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145623 __tmp146006 '3 '#f '#f)) + (##unchecked-structure-set! __obj144760 __tmp145012 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145623 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj144760 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145623 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj144760 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145623 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj144760 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145623 '#f '11 '#f '#f)) - (let ((__tmp146008 |gxc[1]#_g146009_|)) + (##unchecked-structure-set! __obj144760 '#f '11 '#f '#f)) + (let ((__tmp145014 |gxc[1]#_g145015_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145623 __tmp146008 '12 '#f '#f)) - (let ((__tmp146010 |gxc[1]#_g146011_|)) + (##unchecked-structure-set! __obj144760 __tmp145014 '12 '#f '#f)) + (let ((__tmp145016 |gxc[1]#_g145017_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145623 __tmp146010 '13 '#f '#f)) - (let ((__tmp146012 |gxc[1]#_g146013_|)) + (##unchecked-structure-set! __obj144760 __tmp145016 '13 '#f '#f)) + (let ((__tmp145018 |gxc[1]#_g145019_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145623 __tmp146012 '14 '#f '#f)) + (##unchecked-structure-set! __obj144760 __tmp145018 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145623 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj144760 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145623 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj144760 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145623 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj144760 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145623 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj144760 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145623 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj144760 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145623 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj144760 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145623 '() '20 '#f '#f)) - __obj145623)) + (##unchecked-structure-set! __obj144760 '() '20 '#f '#f)) + __obj144760)) (define |gxc[:0:]#::generate-runtime| - (let ((__obj145625 + (let ((__obj144762 (let () (declare (not safe)) (##structure @@ -1358,7 +1358,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145625 + __obj144762 'gxc#::generate-runtime::t '1 '#f @@ -1366,65 +1366,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145625 + __obj144762 '::generate-runtime '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145625 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj144762 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145625 '() '6 '#f '#f)) - (let ((__tmp146014 (cons |gxc[1]#_g146007_| '()))) + (##unchecked-structure-set! __obj144762 '() '6 '#f '#f)) + (let ((__tmp145020 (cons |gxc[1]#_g145013_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145625 __tmp146014 '3 '#f '#f)) + (##unchecked-structure-set! __obj144762 __tmp145020 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145625 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj144762 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145625 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj144762 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145625 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj144762 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145625 '#f '11 '#f '#f)) - (let ((__tmp146015 |gxc[1]#_g146016_|)) + (##unchecked-structure-set! __obj144762 '#f '11 '#f '#f)) + (let ((__tmp145021 |gxc[1]#_g145022_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145625 __tmp146015 '12 '#f '#f)) - (let ((__tmp146017 |gxc[1]#_g146018_|)) + (##unchecked-structure-set! __obj144762 __tmp145021 '12 '#f '#f)) + (let ((__tmp145023 |gxc[1]#_g145024_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145625 __tmp146017 '13 '#f '#f)) - (let ((__tmp146019 |gxc[1]#_g146020_|)) + (##unchecked-structure-set! __obj144762 __tmp145023 '13 '#f '#f)) + (let ((__tmp145025 |gxc[1]#_g145026_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145625 __tmp146019 '14 '#f '#f)) + (##unchecked-structure-set! __obj144762 __tmp145025 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145625 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj144762 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145625 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj144762 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145625 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj144762 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145625 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj144762 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145625 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj144762 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145625 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj144762 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145625 '() '20 '#f '#f)) - __obj145625)) + (##unchecked-structure-set! __obj144762 '() '20 '#f '#f)) + __obj144762)) (define |gxc[:0:]#::generate-runtime-phi| - (let ((__obj145627 + (let ((__obj144764 (let () (declare (not safe)) (##structure @@ -1453,7 +1453,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145627 + __obj144764 'gxc#::generate-runtime-phi::t '1 '#f @@ -1461,65 +1461,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145627 + __obj144764 '::generate-runtime-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145627 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj144764 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145627 '() '6 '#f '#f)) - (let ((__tmp146021 (cons |gxc[1]#_g146022_| '()))) + (##unchecked-structure-set! __obj144764 '() '6 '#f '#f)) + (let ((__tmp145027 (cons |gxc[1]#_g145028_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145627 __tmp146021 '3 '#f '#f)) + (##unchecked-structure-set! __obj144764 __tmp145027 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145627 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj144764 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145627 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj144764 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145627 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj144764 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145627 '#f '11 '#f '#f)) - (let ((__tmp146023 |gxc[1]#_g146024_|)) + (##unchecked-structure-set! __obj144764 '#f '11 '#f '#f)) + (let ((__tmp145029 |gxc[1]#_g145030_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145627 __tmp146023 '12 '#f '#f)) - (let ((__tmp146025 |gxc[1]#_g146026_|)) + (##unchecked-structure-set! __obj144764 __tmp145029 '12 '#f '#f)) + (let ((__tmp145031 |gxc[1]#_g145032_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145627 __tmp146025 '13 '#f '#f)) - (let ((__tmp146027 |gxc[1]#_g146028_|)) + (##unchecked-structure-set! __obj144764 __tmp145031 '13 '#f '#f)) + (let ((__tmp145033 |gxc[1]#_g145034_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145627 __tmp146027 '14 '#f '#f)) + (##unchecked-structure-set! __obj144764 __tmp145033 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145627 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj144764 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145627 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj144764 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145627 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj144764 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145627 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj144764 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145627 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj144764 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145627 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj144764 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145627 '() '20 '#f '#f)) - __obj145627)) + (##unchecked-structure-set! __obj144764 '() '20 '#f '#f)) + __obj144764)) (define |gxc[:0:]#::collect-expression-refs| - (let ((__obj145629 + (let ((__obj144766 (let () (declare (not safe)) (##structure @@ -1548,7 +1548,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145629 + __obj144766 'gxc#::collect-expression-refs::t '1 '#f @@ -1556,65 +1556,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145629 + __obj144766 '::collect-expression-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145629 '(table) '4 '#f '#f)) + (##unchecked-structure-set! __obj144766 '(table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145629 '(table) '6 '#f '#f)) + (##unchecked-structure-set! __obj144766 '(table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145629 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj144766 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145629 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj144766 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145629 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj144766 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145629 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj144766 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145629 '#f '11 '#f '#f)) - (let ((__tmp146029 |gxc[1]#_g146030_|)) + (##unchecked-structure-set! __obj144766 '#f '11 '#f '#f)) + (let ((__tmp145035 |gxc[1]#_g145036_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145629 __tmp146029 '12 '#f '#f)) - (let ((__tmp146031 |gxc[1]#_g146032_|)) + (##unchecked-structure-set! __obj144766 __tmp145035 '12 '#f '#f)) + (let ((__tmp145037 |gxc[1]#_g145038_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145629 __tmp146031 '13 '#f '#f)) - (let ((__tmp146033 |gxc[1]#_g146034_|)) + (##unchecked-structure-set! __obj144766 __tmp145037 '13 '#f '#f)) + (let ((__tmp145039 |gxc[1]#_g145040_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145629 __tmp146033 '14 '#f '#f)) - (let ((__tmp146035 (cons (cons 'table |gxc[1]#_g146036_|) '()))) + (##unchecked-structure-set! __obj144766 __tmp145039 '14 '#f '#f)) + (let ((__tmp145041 (cons (cons 'table |gxc[1]#_g145042_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145629 __tmp146035 '15 '#f '#f)) - (let ((__tmp146037 (cons (cons 'table |gxc[1]#_g146038_|) '()))) + (##unchecked-structure-set! __obj144766 __tmp145041 '15 '#f '#f)) + (let ((__tmp145043 (cons (cons 'table |gxc[1]#_g145044_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145629 __tmp146037 '16 '#f '#f)) - (let ((__tmp146039 (cons (cons 'table |gxc[1]#_g146040_|) '()))) + (##unchecked-structure-set! __obj144766 __tmp145043 '16 '#f '#f)) + (let ((__tmp145045 (cons (cons 'table |gxc[1]#_g145046_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145629 __tmp146039 '17 '#f '#f)) - (let ((__tmp146041 (cons (cons 'table |gxc[1]#_g146042_|) '()))) + (##unchecked-structure-set! __obj144766 __tmp145045 '17 '#f '#f)) + (let ((__tmp145047 (cons (cons 'table |gxc[1]#_g145048_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145629 __tmp146041 '18 '#f '#f)) + (##unchecked-structure-set! __obj144766 __tmp145047 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145629 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj144766 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145629 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj144766 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145629 '() '20 '#f '#f)) - __obj145629)) + (##unchecked-structure-set! __obj144766 '() '20 '#f '#f)) + __obj144766)) (define |gxc[:0:]#::generate-meta| - (let ((__obj145631 + (let ((__obj144768 (let () (declare (not safe)) (##structure @@ -1643,68 +1643,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145631 + __obj144768 'gxc#::generate-meta::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145631 '::generate-meta '2 '#f '#f)) + (##unchecked-structure-set! __obj144768 '::generate-meta '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145631 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj144768 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145631 '(state) '6 '#f '#f)) - (let ((__tmp146043 (cons |gxc[1]#_g146044_| '()))) + (##unchecked-structure-set! __obj144768 '(state) '6 '#f '#f)) + (let ((__tmp145049 (cons |gxc[1]#_g145050_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145631 __tmp146043 '3 '#f '#f)) + (##unchecked-structure-set! __obj144768 __tmp145049 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145631 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj144768 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145631 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj144768 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145631 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj144768 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145631 '#f '11 '#f '#f)) - (let ((__tmp146045 |gxc[1]#_g146046_|)) + (##unchecked-structure-set! __obj144768 '#f '11 '#f '#f)) + (let ((__tmp145051 |gxc[1]#_g145052_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145631 __tmp146045 '12 '#f '#f)) - (let ((__tmp146047 |gxc[1]#_g146048_|)) + (##unchecked-structure-set! __obj144768 __tmp145051 '12 '#f '#f)) + (let ((__tmp145053 |gxc[1]#_g145054_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145631 __tmp146047 '13 '#f '#f)) - (let ((__tmp146049 |gxc[1]#_g146050_|)) + (##unchecked-structure-set! __obj144768 __tmp145053 '13 '#f '#f)) + (let ((__tmp145055 |gxc[1]#_g145056_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145631 __tmp146049 '14 '#f '#f)) - (let ((__tmp146051 (cons (cons 'state |gxc[1]#_g146052_|) '()))) + (##unchecked-structure-set! __obj144768 __tmp145055 '14 '#f '#f)) + (let ((__tmp145057 (cons (cons 'state |gxc[1]#_g145058_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145631 __tmp146051 '15 '#f '#f)) - (let ((__tmp146053 (cons (cons 'state |gxc[1]#_g146054_|) '()))) + (##unchecked-structure-set! __obj144768 __tmp145057 '15 '#f '#f)) + (let ((__tmp145059 (cons (cons 'state |gxc[1]#_g145060_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145631 __tmp146053 '16 '#f '#f)) - (let ((__tmp146055 (cons (cons 'state |gxc[1]#_g146056_|) '()))) + (##unchecked-structure-set! __obj144768 __tmp145059 '16 '#f '#f)) + (let ((__tmp145061 (cons (cons 'state |gxc[1]#_g145062_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145631 __tmp146055 '17 '#f '#f)) - (let ((__tmp146057 (cons (cons 'state |gxc[1]#_g146058_|) '()))) + (##unchecked-structure-set! __obj144768 __tmp145061 '17 '#f '#f)) + (let ((__tmp145063 (cons (cons 'state |gxc[1]#_g145064_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145631 __tmp146057 '18 '#f '#f)) + (##unchecked-structure-set! __obj144768 __tmp145063 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145631 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj144768 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145631 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj144768 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145631 '() '20 '#f '#f)) - __obj145631)) + (##unchecked-structure-set! __obj144768 '() '20 '#f '#f)) + __obj144768)) (define |gxc[:0:]#::generate-meta-phi| - (let ((__obj145633 + (let ((__obj144770 (let () (declare (not safe)) (##structure @@ -1733,7 +1733,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145633 + __obj144770 'gxc#::generate-meta-phi::t '1 '#f @@ -1741,220 +1741,220 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145633 + __obj144770 '::generate-meta-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145633 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj144770 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145633 '(state) '6 '#f '#f)) + (##unchecked-structure-set! __obj144770 '(state) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145633 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj144770 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145633 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj144770 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145633 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj144770 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145633 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj144770 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145633 '#f '11 '#f '#f)) - (let ((__tmp146059 |gxc[1]#_g146060_|)) + (##unchecked-structure-set! __obj144770 '#f '11 '#f '#f)) + (let ((__tmp145065 |gxc[1]#_g145066_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145633 __tmp146059 '12 '#f '#f)) - (let ((__tmp146061 |gxc[1]#_g146062_|)) + (##unchecked-structure-set! __obj144770 __tmp145065 '12 '#f '#f)) + (let ((__tmp145067 |gxc[1]#_g145068_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145633 __tmp146061 '13 '#f '#f)) - (let ((__tmp146063 |gxc[1]#_g146064_|)) + (##unchecked-structure-set! __obj144770 __tmp145067 '13 '#f '#f)) + (let ((__tmp145069 |gxc[1]#_g145070_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145633 __tmp146063 '14 '#f '#f)) - (let ((__tmp146065 (cons (cons 'state |gxc[1]#_g146066_|) '()))) + (##unchecked-structure-set! __obj144770 __tmp145069 '14 '#f '#f)) + (let ((__tmp145071 (cons (cons 'state |gxc[1]#_g145072_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145633 __tmp146065 '15 '#f '#f)) - (let ((__tmp146067 (cons (cons 'state |gxc[1]#_g146068_|) '()))) + (##unchecked-structure-set! __obj144770 __tmp145071 '15 '#f '#f)) + (let ((__tmp145073 (cons (cons 'state |gxc[1]#_g145074_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145633 __tmp146067 '16 '#f '#f)) - (let ((__tmp146069 (cons (cons 'state |gxc[1]#_g146070_|) '()))) + (##unchecked-structure-set! __obj144770 __tmp145073 '16 '#f '#f)) + (let ((__tmp145075 (cons (cons 'state |gxc[1]#_g145076_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145633 __tmp146069 '17 '#f '#f)) - (let ((__tmp146071 (cons (cons 'state |gxc[1]#_g146072_|) '()))) + (##unchecked-structure-set! __obj144770 __tmp145075 '17 '#f '#f)) + (let ((__tmp145077 (cons (cons 'state |gxc[1]#_g145078_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj145633 __tmp146071 '18 '#f '#f)) + (##unchecked-structure-set! __obj144770 __tmp145077 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145633 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj144770 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145633 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj144770 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145633 '() '20 '#f '#f)) - __obj145633)) + (##unchecked-structure-set! __obj144770 '() '20 '#f '#f)) + __obj144770)) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_%$stx134692%_) - (let* ((_%g134696134731%_ - (lambda (_%g134697134727%_) + (lambda (_%$stx133842%_) + (let* ((_%g133846133881%_ + (lambda (_%g133847133877%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134697134727%_)))) - (_%g134695134857%_ - (lambda (_%g134697134735%_) + _%g133847133877%_)))) + (_%g133845134007%_ + (lambda (_%g133847133885%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134697134735%_)) - (let ((_%e134704134738%_ + (gx#stx-pair? _%g133847133885%_)) + (let ((_%e133854133888%_ (let () (declare (not safe)) - (gx#syntax-e _%g134697134735%_)))) - (let ((_%hd134703134742%_ + (gx#syntax-e _%g133847133885%_)))) + (let ((_%hd133853133892%_ (let () (declare (not safe)) - (##car _%e134704134738%_))) - (_%tl134702134745%_ + (##car _%e133854133888%_))) + (_%tl133852133895%_ (let () (declare (not safe)) - (##cdr _%e134704134738%_)))) + (##cdr _%e133854133888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134702134745%_)) - (let ((_%e134707134748%_ + (gx#stx-pair? _%tl133852133895%_)) + (let ((_%e133857133898%_ (let () (declare (not safe)) - (gx#syntax-e _%tl134702134745%_)))) - (let ((_%hd134706134752%_ + (gx#syntax-e _%tl133852133895%_)))) + (let ((_%hd133856133902%_ (let () (declare (not safe)) - (##car _%e134707134748%_))) - (_%tl134705134755%_ + (##car _%e133857133898%_))) + (_%tl133855133905%_ (let () (declare (not safe)) - (##cdr _%e134707134748%_)))) + (##cdr _%e133857133898%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134706134752%_)) - (let ((_%e134710134758%_ + (gx#stx-pair? _%hd133856133902%_)) + (let ((_%e133860133908%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134706134752%_)))) - (let ((_%hd134709134762%_ + _%hd133856133902%_)))) + (let ((_%hd133859133912%_ (let () (declare (not safe)) - (##car _%e134710134758%_))) - (_%tl134708134765%_ + (##car _%e133860133908%_))) + (_%tl133858133915%_ (let () (declare (not safe)) - (##cdr _%e134710134758%_)))) + (##cdr _%e133860133908%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134708134765%_)) - (let ((_%e134713134768%_ + _%tl133858133915%_)) + (let ((_%e133863133918%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134708134765%_)))) - (let ((_%hd134712134772%_ + _%tl133858133915%_)))) + (let ((_%hd133862133922%_ (let () (declare (not safe)) - (##car _%e134713134768%_))) - (_%tl134711134775%_ + (##car _%e133863133918%_))) + (_%tl133861133925%_ (let () (declare (not safe)) - (##cdr _%e134713134768%_)))) + (##cdr _%e133863133918%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134711134775%_)) - (let ((_%e134716134778%_ + _%tl133861133925%_)) + (let ((_%e133866133928%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl134711134775%_)))) - (let ((_%hd134715134782%_ - (let () (declare (not safe)) (##car _%e134716134778%_))) - (_%tl134714134785%_ + (gx#syntax-e _%tl133861133925%_)))) + (let ((_%hd133865133932%_ + (let () (declare (not safe)) (##car _%e133866133928%_))) + (_%tl133864133935%_ (let () (declare (not safe)) - (##cdr _%e134716134778%_)))) + (##cdr _%e133866133928%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134714134785%_)) + (gx#stx-null? _%tl133864133935%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134705134755%_)) - (let ((_g146073_ + (gx#stx-pair/null? _%tl133855133905%_)) + (let ((_g145079_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134705134755%_ + _%tl133855133905%_ '0)))) (begin - (let ((_g146074_ + (let ((_g145080_ (let () (declare (not safe)) - (if (##values? _g146073_) - (##vector-length _g146073_) + (if (##values? _g145079_) + (##vector-length _g145079_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g146074_ 2))) + (##fx= _g145080_ 2))) (error "Context expects 2 values" - _g146074_))) - (let ((_%target134717134788%_ + _g145080_))) + (let ((_%target133867133938%_ (let () (declare (not safe)) - (##vector-ref _g146073_ 0))) - (_%tl134719134791%_ + (##vector-ref _g145079_ 0))) + (_%tl133869133941%_ (let () (declare (not safe)) - (##vector-ref _g146073_ 1)))) + (##vector-ref _g145079_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134719134791%_)) - (letrec ((_%loop134720134794%_ - (lambda (_%hd134718134798%_ - _%body134724134801%_) + (gx#stx-null? _%tl133869133941%_)) + (letrec ((_%loop133870133944%_ + (lambda (_%hd133868133948%_ + _%body133874133951%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134718134798%_)) - (let ((_%e134721134804%_ + _%hd133868133948%_)) + (let ((_%e133871133954%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134718134798%_)))) - (let ((_%lp-hd134722134808%_ + _%hd133868133948%_)))) + (let ((_%lp-hd133872133958%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e134721134804%_))) - (_%lp-tl134723134811%_ - (let () (declare (not safe)) (##cdr _%e134721134804%_)))) - (_%loop134720134794%_ - _%lp-tl134723134811%_ - (cons _%lp-hd134722134808%_ _%body134724134801%_)))) + (##car _%e133871133954%_))) + (_%lp-tl133873133961%_ + (let () (declare (not safe)) (##cdr _%e133871133954%_)))) + (_%loop133870133944%_ + _%lp-tl133873133961%_ + (cons _%lp-hd133872133958%_ _%body133874133951%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body134725134814%_ - (reverse _%body134724134801%_))) - ((lambda (_%L134818%_ - _%L134820%_ - _%L134821%_ - _%L134822%_) + (let ((_%body133875133964%_ + (reverse _%body133874133951%_))) + ((lambda (_%L133968%_ + _%L133970%_ + _%L133971%_ + _%L133972%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1967,8 +1967,8 @@ (gx#datum->syntax__0 '#f 'rest)) - (cons _%L134820%_ '())) - (cons (cons _%L134822%_ + (cons _%L133970%_ '())) + (cons (cons _%L133972%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1976,7 +1976,7 @@ '()) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L134821%_ + (cons (cons _%L133971%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2037,7 +2037,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L134822%_ + (cons _%L133972%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2051,7 +2051,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L134821%_ '()))) + (cons _%L133971%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -2068,7 +2068,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L134822%_ + (cons _%L133972%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2080,7 +2080,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L134821%_ '()))) + (cons _%L133971%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -2149,7 +2149,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L134822%_ '()))) + (cons _%L133972%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2160,7 +2160,7 @@ (gx#datum->syntax__0 '#f 'tmp)) - (cons _%L134821%_ '()))) + (cons _%L133971%_ '()))) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2171,99 +2171,99 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) - (let ((__tmp146075 - (lambda (_%g134848134851%_ - _%g134849134854%_) - (cons _%g134848134851%_ - _%g134849134854%_)))) + (let ((__tmp145081 + (lambda (_%g133998134001%_ + _%g133999134004%_) + (cons _%g133998134001%_ + _%g133999134004%_)))) (declare (not safe)) - (__foldr1 __tmp146075 '() _%L134818%_))) + (__foldr1 __tmp145081 '() _%L133968%_))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body134725134814%_ - _%hd134715134782%_ - _%hd134712134772%_ - _%hd134709134762%_)))))) + _%body133875133964%_ + _%hd133865133932%_ + _%hd133862133922%_ + _%hd133859133912%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop134720134794%_ - _%target134717134788%_ + (_%loop133870133944%_ + _%target133867133938%_ '())) - (_%g134696134731%_ _%g134697134735%_))))) - (_%g134696134731%_ _%g134697134735%_)) - (_%g134696134731%_ _%g134697134735%_)))) - (_%g134696134731%_ _%g134697134735%_)))) + (_%g133846133881%_ _%g133847133885%_))))) + (_%g133846133881%_ _%g133847133885%_)) + (_%g133846133881%_ _%g133847133885%_)))) + (_%g133846133881%_ _%g133847133885%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134696134731%_ - _%g134697134735%_)))) - (_%g134696134731%_ _%g134697134735%_)))) - (_%g134696134731%_ _%g134697134735%_)))) - (_%g134696134731%_ _%g134697134735%_))))) - (_%g134695134857%_ _%$stx134692%_)))) + (_%g133846133881%_ + _%g133847133885%_)))) + (_%g133846133881%_ _%g133847133885%_)))) + (_%g133846133881%_ _%g133847133885%_)))) + (_%g133846133881%_ _%g133847133885%_))))) + (_%g133845134007%_ _%$stx133842%_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_%$stx134862%_) - (let* ((_%g134866134884%_ - (lambda (_%g134867134880%_) + (lambda (_%$stx134012%_) + (let* ((_%g134016134034%_ + (lambda (_%g134017134030%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134867134880%_)))) - (_%g134865134939%_ - (lambda (_%g134867134888%_) + _%g134017134030%_)))) + (_%g134015134089%_ + (lambda (_%g134017134038%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134867134888%_)) - (let ((_%e134872134891%_ + (gx#stx-pair? _%g134017134038%_)) + (let ((_%e134022134041%_ (let () (declare (not safe)) - (gx#syntax-e _%g134867134888%_)))) - (let ((_%hd134871134895%_ + (gx#syntax-e _%g134017134038%_)))) + (let ((_%hd134021134045%_ (let () (declare (not safe)) - (##car _%e134872134891%_))) - (_%tl134870134898%_ + (##car _%e134022134041%_))) + (_%tl134020134048%_ (let () (declare (not safe)) - (##cdr _%e134872134891%_)))) + (##cdr _%e134022134041%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134870134898%_)) - (let ((_%e134875134901%_ + (gx#stx-pair? _%tl134020134048%_)) + (let ((_%e134025134051%_ (let () (declare (not safe)) - (gx#syntax-e _%tl134870134898%_)))) - (let ((_%hd134874134905%_ + (gx#syntax-e _%tl134020134048%_)))) + (let ((_%hd134024134055%_ (let () (declare (not safe)) - (##car _%e134875134901%_))) - (_%tl134873134908%_ + (##car _%e134025134051%_))) + (_%tl134023134058%_ (let () (declare (not safe)) - (##cdr _%e134875134901%_)))) + (##cdr _%e134025134051%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134873134908%_)) - (let ((_%e134878134911%_ + (gx#stx-pair? _%tl134023134058%_)) + (let ((_%e134028134061%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134873134908%_)))) - (let ((_%hd134877134915%_ + _%tl134023134058%_)))) + (let ((_%hd134027134065%_ (let () (declare (not safe)) - (##car _%e134878134911%_))) - (_%tl134876134918%_ + (##car _%e134028134061%_))) + (_%tl134026134068%_ (let () (declare (not safe)) - (##cdr _%e134878134911%_)))) + (##cdr _%e134028134061%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134876134918%_)) - ((lambda (_%L134921%_ - _%L134923%_) + _%tl134026134068%_)) + ((lambda (_%L134071%_ + _%L134073%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2275,7 +2275,7 @@ (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives)) - (cons _%L134923%_ '())) + (cons _%L134073%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) @@ -2288,22 +2288,22 @@ '#f 'current-compile-decls-unsafe?)) '()) - (cons _%L134923%_ - (cons _%L134921%_ + (cons _%L134073%_ + (cons _%L134071%_ '())))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd134877134915%_ - _%hd134874134905%_) - (_%g134866134884%_ - _%g134867134888%_)))) - (_%g134866134884%_ _%g134867134888%_)))) - (_%g134866134884%_ _%g134867134888%_)))) - (_%g134866134884%_ _%g134867134888%_))))) - (_%g134865134939%_ _%$stx134862%_)))) + _%hd134027134065%_ + _%hd134024134055%_) + (_%g134016134034%_ + _%g134017134038%_)))) + (_%g134016134034%_ _%g134017134038%_)))) + (_%g134016134034%_ _%g134017134038%_)))) + (_%g134016134034%_ _%g134017134038%_))))) + (_%g134015134089%_ _%$stx134012%_)))) (define |gxc[:0:]#meta-state| - (let ((__obj145635 + (let ((__obj144772 (let () (declare (not safe)) (##structure @@ -2332,18 +2332,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145635 + __obj144772 'gxc#meta-state::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145635 'meta-state '2 '#f '#f)) + (##unchecked-structure-set! __obj144772 'meta-state '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj145635 + __obj144772 '(src n open blocks) '4 '#f @@ -2351,79 +2351,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145635 + __obj144772 '(src n open blocks) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145635 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj144772 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145635 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj144772 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145635 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj144772 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145635 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj144772 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145635 ':init! '11 '#f '#f)) - (let ((__tmp146076 |gxc[1]#_g146077_|)) + (##unchecked-structure-set! __obj144772 ':init! '11 '#f '#f)) + (let ((__tmp145082 |gxc[1]#_g145083_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145635 __tmp146076 '12 '#f '#f)) - (let ((__tmp146078 |gxc[1]#_g146079_|)) + (##unchecked-structure-set! __obj144772 __tmp145082 '12 '#f '#f)) + (let ((__tmp145084 |gxc[1]#_g145085_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145635 __tmp146078 '13 '#f '#f)) - (let ((__tmp146080 |gxc[1]#_g146081_|)) + (##unchecked-structure-set! __obj144772 __tmp145084 '13 '#f '#f)) + (let ((__tmp145086 |gxc[1]#_g145087_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145635 __tmp146080 '14 '#f '#f)) - (let ((__tmp146082 - (cons (cons 'src |gxc[1]#_g146083_|) - (cons (cons 'n |gxc[1]#_g146084_|) - (cons (cons 'open |gxc[1]#_g146085_|) - (cons (cons 'blocks |gxc[1]#_g146086_|) + (##unchecked-structure-set! __obj144772 __tmp145086 '14 '#f '#f)) + (let ((__tmp145088 + (cons (cons 'src |gxc[1]#_g145089_|) + (cons (cons 'n |gxc[1]#_g145090_|) + (cons (cons 'open |gxc[1]#_g145091_|) + (cons (cons 'blocks |gxc[1]#_g145092_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj145635 __tmp146082 '15 '#f '#f)) - (let ((__tmp146087 - (cons (cons 'src |gxc[1]#_g146088_|) - (cons (cons 'n |gxc[1]#_g146089_|) - (cons (cons 'open |gxc[1]#_g146090_|) - (cons (cons 'blocks |gxc[1]#_g146091_|) + (##unchecked-structure-set! __obj144772 __tmp145088 '15 '#f '#f)) + (let ((__tmp145093 + (cons (cons 'src |gxc[1]#_g145094_|) + (cons (cons 'n |gxc[1]#_g145095_|) + (cons (cons 'open |gxc[1]#_g145096_|) + (cons (cons 'blocks |gxc[1]#_g145097_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj145635 __tmp146087 '16 '#f '#f)) - (let ((__tmp146092 - (cons (cons 'src |gxc[1]#_g146093_|) - (cons (cons 'n |gxc[1]#_g146094_|) - (cons (cons 'open |gxc[1]#_g146095_|) - (cons (cons 'blocks |gxc[1]#_g146096_|) + (##unchecked-structure-set! __obj144772 __tmp145093 '16 '#f '#f)) + (let ((__tmp145098 + (cons (cons 'src |gxc[1]#_g145099_|) + (cons (cons 'n |gxc[1]#_g145100_|) + (cons (cons 'open |gxc[1]#_g145101_|) + (cons (cons 'blocks |gxc[1]#_g145102_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj145635 __tmp146092 '17 '#f '#f)) - (let ((__tmp146097 - (cons (cons 'src |gxc[1]#_g146098_|) - (cons (cons 'n |gxc[1]#_g146099_|) - (cons (cons 'open |gxc[1]#_g146100_|) - (cons (cons 'blocks |gxc[1]#_g146101_|) + (##unchecked-structure-set! __obj144772 __tmp145098 '17 '#f '#f)) + (let ((__tmp145103 + (cons (cons 'src |gxc[1]#_g145104_|) + (cons (cons 'n |gxc[1]#_g145105_|) + (cons (cons 'open |gxc[1]#_g145106_|) + (cons (cons 'blocks |gxc[1]#_g145107_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj145635 __tmp146097 '18 '#f '#f)) + (##unchecked-structure-set! __obj144772 __tmp145103 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145635 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj144772 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145635 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj144772 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145635 '() '20 '#f '#f)) - __obj145635)) + (##unchecked-structure-set! __obj144772 '() '20 '#f '#f)) + __obj144772)) (define |gxc[:0:]#meta-state-block| - (let ((__obj145636 + (let ((__obj144773 (let () (declare (not safe)) (##structure @@ -2452,7 +2452,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145636 + __obj144773 'gxc#meta-state-block::t '1 '#f @@ -2460,7 +2460,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145636 + __obj144773 'meta-state-block '2 '#f @@ -2468,7 +2468,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145636 + __obj144773 '(ctx phi n code) '4 '#f @@ -2476,74 +2476,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj145636 + __obj144773 '(ctx phi n code) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145636 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj144773 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145636 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj144773 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145636 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj144773 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145636 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj144773 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145636 '#f '11 '#f '#f)) - (let ((__tmp146102 |gxc[1]#_g146103_|)) + (##unchecked-structure-set! __obj144773 '#f '11 '#f '#f)) + (let ((__tmp145108 |gxc[1]#_g145109_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145636 __tmp146102 '12 '#f '#f)) - (let ((__tmp146104 |gxc[1]#_g146105_|)) + (##unchecked-structure-set! __obj144773 __tmp145108 '12 '#f '#f)) + (let ((__tmp145110 |gxc[1]#_g145111_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145636 __tmp146104 '13 '#f '#f)) - (let ((__tmp146106 |gxc[1]#_g146107_|)) + (##unchecked-structure-set! __obj144773 __tmp145110 '13 '#f '#f)) + (let ((__tmp145112 |gxc[1]#_g145113_|)) (declare (not safe)) - (##unchecked-structure-set! __obj145636 __tmp146106 '14 '#f '#f)) - (let ((__tmp146108 - (cons (cons 'ctx |gxc[1]#_g146109_|) - (cons (cons 'phi |gxc[1]#_g146110_|) - (cons (cons 'n |gxc[1]#_g146111_|) - (cons (cons 'code |gxc[1]#_g146112_|) + (##unchecked-structure-set! __obj144773 __tmp145112 '14 '#f '#f)) + (let ((__tmp145114 + (cons (cons 'ctx |gxc[1]#_g145115_|) + (cons (cons 'phi |gxc[1]#_g145116_|) + (cons (cons 'n |gxc[1]#_g145117_|) + (cons (cons 'code |gxc[1]#_g145118_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj145636 __tmp146108 '15 '#f '#f)) - (let ((__tmp146113 - (cons (cons 'ctx |gxc[1]#_g146114_|) - (cons (cons 'phi |gxc[1]#_g146115_|) - (cons (cons 'n |gxc[1]#_g146116_|) - (cons (cons 'code |gxc[1]#_g146117_|) + (##unchecked-structure-set! __obj144773 __tmp145114 '15 '#f '#f)) + (let ((__tmp145119 + (cons (cons 'ctx |gxc[1]#_g145120_|) + (cons (cons 'phi |gxc[1]#_g145121_|) + (cons (cons 'n |gxc[1]#_g145122_|) + (cons (cons 'code |gxc[1]#_g145123_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj145636 __tmp146113 '16 '#f '#f)) - (let ((__tmp146118 - (cons (cons 'ctx |gxc[1]#_g146119_|) - (cons (cons 'phi |gxc[1]#_g146120_|) - (cons (cons 'n |gxc[1]#_g146121_|) - (cons (cons 'code |gxc[1]#_g146122_|) + (##unchecked-structure-set! __obj144773 __tmp145119 '16 '#f '#f)) + (let ((__tmp145124 + (cons (cons 'ctx |gxc[1]#_g145125_|) + (cons (cons 'phi |gxc[1]#_g145126_|) + (cons (cons 'n |gxc[1]#_g145127_|) + (cons (cons 'code |gxc[1]#_g145128_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj145636 __tmp146118 '17 '#f '#f)) - (let ((__tmp146123 - (cons (cons 'ctx |gxc[1]#_g146124_|) - (cons (cons 'phi |gxc[1]#_g146125_|) - (cons (cons 'n |gxc[1]#_g146126_|) - (cons (cons 'code |gxc[1]#_g146127_|) + (##unchecked-structure-set! __obj144773 __tmp145124 '17 '#f '#f)) + (let ((__tmp145129 + (cons (cons 'ctx |gxc[1]#_g145130_|) + (cons (cons 'phi |gxc[1]#_g145131_|) + (cons (cons 'n |gxc[1]#_g145132_|) + (cons (cons 'code |gxc[1]#_g145133_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj145636 __tmp146123 '18 '#f '#f)) + (##unchecked-structure-set! __obj144773 __tmp145129 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145636 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj144773 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145636 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj144773 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj145636 '() '20 '#f '#f)) - __obj145636)))) + (##unchecked-structure-set! __obj144773 '() '20 '#f '#f)) + __obj144773)))) diff --git a/src/bootstrap/gerbil/compiler/driver.ssxi.ss b/src/bootstrap/gerbil/compiler/driver.ssxi.ss index f69579c41..e535ed145 100644 --- a/src/bootstrap/gerbil/compiler/driver.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/driver.ssxi.ss @@ -19,13 +19,31 @@ package: gerbil/compiler (@lambda 0 #f signature: - (return: number::t effect: #f arguments: #f unchecked: #f))) + (return: + number::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-timestamp-nanos (@lambda 0 #f signature: - (return: flonum::t effect: #f arguments: #f unchecked: #f))) + (return: + flonum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#scheme-file-settings (optimizer-resolve-class '(typedecl gxc#scheme-file-settings) 'pair::t)) @@ -34,31 +52,76 @@ package: gerbil/compiler (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#gerbil-gsc (@lambda 0 #f signature: - (return: false::t effect: #f arguments: #f unchecked: #f))) + (return: + false::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#gerbil-gcc (@lambda 0 #f signature: - (return: false::t effect: #f arguments: #f unchecked: #f))) + (return: + false::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#gerbil-ar (@lambda 0 #f signature: - (return: false::t effect: #f arguments: #f unchecked: #f))) + (return: + false::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#gerbil-rpath (@lambda 1 #f signature: - (return: string::t effect: #f arguments: #f unchecked: #f))) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#gerbil-runtime-modules (optimizer-resolve-class '(typedecl gxc#gerbil-runtime-modules) 'pair::t)) @@ -67,207 +130,701 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-module__% (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-module__0 (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-module (@case-lambda (1 gxc#compile-module__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver)) (2 gxc#compile-module__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver)))) (declare-type gxc#compile-exe__% (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-exe__0 (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-exe (@case-lambda (1 gxc#compile-exe__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver)) (2 gxc#compile-exe__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) - (declare-type gxc#compile-executable-module (@lambda 2 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver)))) + (declare-type + gxc#compile-executable-module + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-executable-module/separate (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-executable-module/full-program-optimization (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#find-export-binding (@lambda 2 #f)) - (declare-type gxc#find-runtime-symbol (@lambda 2 #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) + (declare-type + gxc#find-export-binding + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) + (declare-type + gxc#find-runtime-symbol + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#find-runtime-module-deps (@lambda 1 #f signature: - (return: list::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#find-static-module-file (@lambda 1 #f)) + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) + (declare-type + gxc#find-static-module-file + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#file-empty? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-top-module (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#collect-bindings (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-runtime-code (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-meta-code (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-ssxi-code (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#generate-meta-code (@lambda 1 #f signature: - (return: values::t effect: #f arguments: #f unchecked: #f))) + (return: + values::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#generate-runtime-phi (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#lift-nested-modules (@lambda 1 #f signature: - (return: list::t effect: #f arguments: #f unchecked: #f))) + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-scm-file__% (@lambda 3 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-scm-file__0 (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-scm-file (@case-lambda (2 gxc#compile-scm-file__0 signature: - (return: void::t effect: #f arguments: #f unchecked: #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver)) (3 gxc#compile-scm-file__% signature: - (return: void::t effect: #f arguments: #f unchecked: #f)))) - (declare-type gxc#gsc-link-options__% (@lambda 1 #f)) - (declare-type gxc#gsc-link-options__0 (@lambda 0 #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver)))) + (declare-type + gxc#gsc-link-options__% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) + (declare-type + gxc#gsc-link-options__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#gsc-link-options - (@case-lambda (0 gxc#gsc-link-options__0) (1 gxc#gsc-link-options__%))) - (declare-type gxc#gsc-cc-options__% (@lambda 1 #f)) - (declare-type gxc#gsc-cc-options__0 (@lambda 0 #f)) + (@case-lambda + (0 + gxc#gsc-link-options__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver)) + (1 + gxc#gsc-link-options__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver)))) + (declare-type + gxc#gsc-cc-options__% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) + (declare-type + gxc#gsc-cc-options__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#gsc-cc-options - (@case-lambda (0 gxc#gsc-cc-options__0) (1 gxc#gsc-cc-options__%))) + (@case-lambda + (0 + gxc#gsc-cc-options__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver)) + (1 + gxc#gsc-cc-options__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver)))) (declare-type gxc#gsc-static-include-options (@lambda 1 #f signature: - (return: pair::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#gcc-ld-options (@lambda 0 #f)) + (return: + pair::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) + (declare-type + gxc#gcc-ld-options + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#not-string-empty? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#gsc-compile-file (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-output-file (@lambda 3 #f signature: - (return: string::t effect: #f arguments: #f unchecked: #f))) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-static-output-file (@lambda 1 #f signature: - (return: string::t effect: #f arguments: #f unchecked: #f))) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#compile-exe-output-file (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#static-module-name (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) + (declare-type + gxc#static-module-name + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#gerbil-enable-shared? (@lambda 0 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#invoke__% (@lambda 5 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) + (declare-type + gxc#invoke__% + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver))) (declare-type gxc#invoke__@ (@kw-lambda-dispatch @@ -281,4 +838,13 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/driver)))) diff --git a/src/bootstrap/gerbil/compiler/driver~0.scm b/src/bootstrap/gerbil/compiler/driver~0.scm index fddc8a540..d710aba3f 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 1712533296) + (define gerbil/compiler/driver::timestamp 1712573437) (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 ((__tmp196088 (current-time))) + (floor (let ((__tmp194988 (current-time))) (declare (not safe)) - (##time->seconds __tmp196088)))))) + (##time->seconds __tmp194988)))))) (define gxc#compile-timestamp-nanos (lambda () - (let ((__tmp196089 (current-time))) + (let ((__tmp194989 (current-time))) (declare (not safe)) - (##time->seconds __tmp196089)))) + (##time->seconds __tmp194989)))) (define gxc#scheme-file-settings '(permissions: 420 char-encoding: UTF-8 eol-encoding: lf)) (define gxc#with-output-to-scheme-file - (lambda (_%path195994%_ _%fun195995%_) + (lambda (_%path194894%_ _%fun194895%_) (with-output-to-file - (cons 'path: (cons _%path195994%_ gxc#scheme-file-settings)) - _%fun195995%_))) + (cons 'path: (cons _%path194894%_ gxc#scheme-file-settings)) + _%fun194895%_))) (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-libdir195989%_) - (string-append '"-Wl,-rpath=" _%gerbil-libdir195989%_))) + (lambda (_%gerbil-libdir194889%_) + (string-append '"-Wl,-rpath=" _%gerbil-libdir194889%_))) (define gxc#gerbil-runtime-modules '("gerbil/runtime/gambit" "gerbil/runtime/util" @@ -78,278 +78,241 @@ "gerbil/runtime/init" "gerbil/runtime")) (define gxc#delete-directory* - (lambda (_%dir195987%_) (delete-file-or-directory _%dir195987%_ '#t))) + (lambda (_%dir194887%_) (delete-file-or-directory _%dir194887%_ '#t))) (define gxc#compile-module__% - (lambda (_%srcpath195961%_ _%opts195962%_) - (if (let () (declare (not safe)) (string? _%srcpath195961%_)) + (lambda (_%srcpath194861%_ _%opts194862%_) + (if (string? _%srcpath194861%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath195961%_))) - (let ((_%outdir195964%_ + _%srcpath194861%_))) + (let ((_%outdir194864%_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _%opts195962%_))) - (_%invoke-gsc?195965%_ + (pgetq__0 'output-dir: _%opts194862%_))) + (_%invoke-gsc?194865%_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts195962%_))) - (_%gsc-options195966%_ + (pgetq__0 'invoke-gsc: _%opts194862%_))) + (_%gsc-options194866%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts195962%_))) - (_%keep-scm?195967%_ + (pgetq__0 'gsc-options: _%opts194862%_))) + (_%keep-scm?194867%_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _%opts195962%_))) - (_%verbosity195968%_ + (pgetq__0 'keep-scm: _%opts194862%_))) + (_%verbosity194868%_ (let () (declare (not safe)) - (pgetq__0 'verbose: _%opts195962%_))) - (_%optimize195969%_ + (pgetq__0 'verbose: _%opts194862%_))) + (_%optimize194869%_ (let () (declare (not safe)) - (pgetq__0 'optimize: _%opts195962%_))) - (_%debug195970%_ - (let () (declare (not safe)) (pgetq__0 'debug: _%opts195962%_))) - (_%gen-ssxi195971%_ + (pgetq__0 'optimize: _%opts194862%_))) + (_%debug194870%_ + (let () (declare (not safe)) (pgetq__0 'debug: _%opts194862%_))) + (_%gen-ssxi194871%_ (let () (declare (not safe)) - (pgetq__0 'generate-ssxi: _%opts195962%_)))) - (if _%outdir195964%_ - (let ((__tmp196090 + (pgetq__0 'generate-ssxi: _%opts194862%_)))) + (if _%outdir194864%_ + (let ((__tmp194990 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir195964%_))))) + (create-directory*__0 _%outdir194864%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp196090)) + (__with-lock gxc#+driver-mutex+ __tmp194990)) '#!void) - (if _%optimize195969%_ - (let ((__tmp196091 + (if _%optimize194869%_ + (let ((__tmp194991 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp196091)) + (__with-lock gxc#+driver-mutex+ __tmp194991)) '#!void) - (let ((__tmp196094 + (let ((__tmp194994 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _%srcpath195961%_)) - (let ((__tmp196095 - (let ((__tmp196096 - (lambda () - (let () - (declare (not safe)) - (gx#import-module__0 - _%srcpath195961%_))))) - (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp196096)))) - (declare (not safe)) - (gxc#compile-top-module __tmp196095)))) - (__tmp196093 - (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp196092 - (cons 'compile-module (cons _%srcpath195961%_ '())))) + (gxc#verbose '"compile " _%srcpath194861%_)) + (gxc#compile-top-module + (let ((__tmp194995 + (lambda () + (let () + (declare (not safe)) + (gx#import-module__0 _%srcpath194861%_))))) + (declare (not safe)) + (__with-lock gxc#+driver-mutex+ __tmp194995))))) + (__tmp194993 (gxc#compile-timestamp)) + (__tmp194992 + (cons 'compile-module (cons _%srcpath194861%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp196094 + __tmp194994 gxc#current-compile-output-dir - _%outdir195964%_ + _%outdir194864%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?195965%_ + _%invoke-gsc?194865%_ gxc#current-compile-gsc-options - _%gsc-options195966%_ + _%gsc-options194866%_ gxc#current-compile-keep-scm - _%keep-scm?195967%_ + _%keep-scm?194867%_ gxc#current-compile-verbose - _%verbosity195968%_ + _%verbosity194868%_ gxc#current-compile-optimize - _%optimize195969%_ + _%optimize194869%_ gxc#current-compile-debug - _%debug195970%_ + _%debug194870%_ gxc#current-compile-generate-ssxi - _%gen-ssxi195971%_ + _%gen-ssxi194871%_ gxc#current-compile-timestamp - __tmp196093 + __tmp194993 gxc#current-compile-context - __tmp196092 + __tmp194992 gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_%srcpath195980%_) - (let ((_%opts195982%_ '())) - (declare (not safe)) - (gxc#compile-module__% _%srcpath195980%_ _%opts195982%_)))) + (lambda (_%srcpath194880%_) + (let ((_%opts194882%_ '())) + (gxc#compile-module__% _%srcpath194880%_ _%opts194882%_)))) (define gxc#compile-module - (lambda _g196098_ - (let ((_g196097_ (let () (declare (not safe)) (##length _g196098_)))) - (cond ((let () (declare (not safe)) (##fx= _g196097_ 1)) - (apply (lambda (_%srcpath195980%_) - (let () - (declare (not safe)) - (gxc#compile-module__0 _%srcpath195980%_))) - _g196098_)) - ((let () (declare (not safe)) (##fx= _g196097_ 2)) - (apply (lambda (_%srcpath195984%_ _%opts195985%_) - (let () - (declare (not safe)) - (gxc#compile-module__% - _%srcpath195984%_ - _%opts195985%_))) - _g196098_)) + (lambda _g194997_ + (let ((_g194996_ (let () (declare (not safe)) (##length _g194997_)))) + (cond ((let () (declare (not safe)) (##fx= _g194996_ 1)) + (apply gxc#compile-module__0 _g194997_)) + ((let () (declare (not safe)) (##fx= _g194996_ 2)) + (apply gxc#compile-module__% _g194997_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g196098_)))))) + _g194997_)))))) (define gxc#compile-exe__% - (lambda (_%srcpath195937%_ _%opts195938%_) - (if (let () (declare (not safe)) (string? _%srcpath195937%_)) + (lambda (_%srcpath194837%_ _%opts194838%_) + (if (string? _%srcpath194837%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath195937%_))) - (let ((_%outdir195940%_ + _%srcpath194837%_))) + (let ((_%outdir194840%_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _%opts195938%_))) - (_%invoke-gsc?195941%_ + (pgetq__0 'output-dir: _%opts194838%_))) + (_%invoke-gsc?194841%_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts195938%_))) - (_%gsc-options195942%_ + (pgetq__0 'invoke-gsc: _%opts194838%_))) + (_%gsc-options194842%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts195938%_))) - (_%keep-scm?195943%_ + (pgetq__0 'gsc-options: _%opts194838%_))) + (_%keep-scm?194843%_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _%opts195938%_))) - (_%verbosity195944%_ + (pgetq__0 'keep-scm: _%opts194838%_))) + (_%verbosity194844%_ (let () (declare (not safe)) - (pgetq__0 'verbose: _%opts195938%_))) - (_%debug195945%_ + (pgetq__0 'verbose: _%opts194838%_))) + (_%debug194845%_ (let () (declare (not safe)) - (pgetq__0 'debug: _%opts195938%_)))) - (if _%outdir195940%_ - (let ((__tmp196099 + (pgetq__0 'debug: _%opts194838%_)))) + (if _%outdir194840%_ + (let ((__tmp194998 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir195940%_))))) + (create-directory*__0 _%outdir194840%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp196099)) + (__with-lock gxc#+driver-mutex+ __tmp194998)) '#!void) - (let ((__tmp196102 + (let ((__tmp195001 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _%srcpath195937%_)) - (let ((__tmp196103 - (let ((__tmp196104 - (lambda () - (let () - (declare (not safe)) - (gx#import-module__0 - _%srcpath195937%_))))) - (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp196104)))) - (declare (not safe)) - (gxc#compile-executable-module - __tmp196103 - _%opts195938%_)))) - (__tmp196101 - (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp196100 (cons 'compile-exe (cons _%srcpath195937%_ '())))) + (gxc#verbose '"compile exe " _%srcpath194837%_)) + (gxc#compile-executable-module + (let ((__tmp195002 + (lambda () + (let () + (declare (not safe)) + (gx#import-module__0 _%srcpath194837%_))))) + (declare (not safe)) + (__with-lock gxc#+driver-mutex+ __tmp195002)) + _%opts194838%_))) + (__tmp195000 (gxc#compile-timestamp)) + (__tmp194999 (cons 'compile-exe (cons _%srcpath194837%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp196102 + __tmp195001 gxc#current-compile-output-dir - _%outdir195940%_ + _%outdir194840%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?195941%_ + _%invoke-gsc?194841%_ gxc#current-compile-gsc-options - _%gsc-options195942%_ + _%gsc-options194842%_ gxc#current-compile-keep-scm - _%keep-scm?195943%_ + _%keep-scm?194843%_ gxc#current-compile-verbose - _%verbosity195944%_ + _%verbosity194844%_ gxc#current-compile-debug - _%debug195945%_ + _%debug194845%_ gxc#current-compile-timestamp - __tmp196101 + __tmp195000 gxc#current-compile-context - __tmp196100 + __tmp194999 gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_%srcpath195953%_) - (let ((_%opts195955%_ '())) - (declare (not safe)) - (gxc#compile-exe__% _%srcpath195953%_ _%opts195955%_)))) + (lambda (_%srcpath194853%_) + (let ((_%opts194855%_ '())) + (gxc#compile-exe__% _%srcpath194853%_ _%opts194855%_)))) (define gxc#compile-exe - (lambda _g196106_ - (let ((_g196105_ (let () (declare (not safe)) (##length _g196106_)))) - (cond ((let () (declare (not safe)) (##fx= _g196105_ 1)) - (apply (lambda (_%srcpath195953%_) - (let () - (declare (not safe)) - (gxc#compile-exe__0 _%srcpath195953%_))) - _g196106_)) - ((let () (declare (not safe)) (##fx= _g196105_ 2)) - (apply (lambda (_%srcpath195957%_ _%opts195958%_) - (let () - (declare (not safe)) - (gxc#compile-exe__% - _%srcpath195957%_ - _%opts195958%_))) - _g196106_)) + (lambda _g195004_ + (let ((_g195003_ (let () (declare (not safe)) (##length _g195004_)))) + (cond ((let () (declare (not safe)) (##fx= _g195003_ 1)) + (apply gxc#compile-exe__0 _g195004_)) + ((let () (declare (not safe)) (##fx= _g195003_ 2)) + (apply gxc#compile-exe__% _g195004_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g196106_)))))) + _g195004_)))))) (define gxc#compile-executable-module - (lambda (_%ctx195933%_ _%opts195934%_) + (lambda (_%ctx194833%_ _%opts194834%_) (if (let () (declare (not safe)) - (pgetq__0 'full-program-optimization: _%opts195934%_)) - (let () - (declare (not safe)) - (gxc#compile-executable-module/full-program-optimization - _%ctx195933%_ - _%opts195934%_)) - (let () - (declare (not safe)) - (gxc#compile-executable-module/separate - _%ctx195933%_ - _%opts195934%_))))) + (pgetq__0 'full-program-optimization: _%opts194834%_)) + (gxc#compile-executable-module/full-program-optimization + _%ctx194833%_ + _%opts194834%_) + (gxc#compile-executable-module/separate + _%ctx194833%_ + _%opts194834%_)))) (define gxc#compile-executable-module/separate - (lambda (_%ctx195735%_ _%opts195736%_) - (letrec ((_%generate-stub195738%_ - (lambda (_%builtin-modules195929%_) - (let ((_%mod-main195931%_ - (let () - (declare (not safe)) - (gxc#find-runtime-symbol _%ctx195735%_ 'main)))) - (let ((__tmp196107 + (lambda (_%ctx194635%_ _%opts194636%_) + (letrec ((_%generate-stub194638%_ + (lambda (_%builtin-modules194829%_) + (let ((_%mod-main194831%_ + (gxc#find-runtime-symbol _%ctx194635%_ 'main))) + (let ((__tmp195005 (cons 'define (cons 'builtin-modules (cons (cons 'quote - (cons _%builtin-modules195929%_ + (cons _%builtin-modules194829%_ '())) '()))))) (declare (not safe)) - (##write __tmp196107)) - (let ((__tmp196108 + (##write __tmp195005)) + (let ((__tmp195006 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'with-unwind-protect @@ -359,7 +322,7 @@ (cons (cons 'gerbil-runtime-init! (cons 'builtin-modules '())) (cons (cons 'apply - (cons _%mod-main195931%_ + (cons _%mod-main194831%_ (cons (cons 'cdr ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'command-line '()) '())) @@ -397,607 +360,494 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (##write __tmp196108)) + (##write __tmp195006)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%get-libgerbil-ld-opts195739%_ - (lambda (_%gerbil-libdir195927%_) - (let ((__tmp196109 + (_%get-libgerbil-ld-opts194639%_ + (lambda (_%gerbil-libdir194827%_) + (let ((__tmp195007 (path-expand '"libgerbil.ldd" - _%gerbil-libdir195927%_))) + _%gerbil-libdir194827%_))) (declare (not safe)) - (##call-with-input-file __tmp196109 read)))) - (_%replace-extension195740%_ - (lambda (_%path195924%_ _%ext195925%_) + (##call-with-input-file __tmp195007 read)))) + (_%replace-extension194640%_ + (lambda (_%path194824%_ _%ext194825%_) (string-append - (path-strip-extension _%path195924%_) - _%ext195925%_))) - (_%userlib-module?195741%_ - (lambda (_%ctx195922%_) - (if (let ((__tmp196110 - (let () - (declare (not safe)) - (_%exclude-module?195743%_ _%ctx195922%_)))) - (declare (not safe)) - (not __tmp196110)) - (let ((__tmp196111 - (let () - (declare (not safe)) - (_%libgerbil-module?195742%_ _%ctx195922%_)))) - (declare (not safe)) - (not __tmp196111)) + (path-strip-extension _%path194824%_) + _%ext194825%_))) + (_%userlib-module?194641%_ + (lambda (_%ctx194822%_) + (if (not (_%exclude-module?194643%_ _%ctx194822%_)) + (not (_%libgerbil-module?194642%_ _%ctx194822%_)) '#f))) - (_%libgerbil-module?195742%_ - (lambda (_%ctx195915%_) - (let ((_%id-str195917%_ + (_%libgerbil-module?194642%_ + (lambda (_%ctx194815%_) + (let ((_%id-str194817%_ (symbol->string (##structure-ref - _%ctx195915%_ + _%ctx194815%_ '1 gx#expander-context::t '#f)))) - (if (let ((__tmp196112 - (let () - (declare (not safe)) - (_%exclude-module?195743%_ - _%id-str195917%_)))) - (declare (not safe)) - (not __tmp196112)) - (let ((_%$e195919%_ + (if (not (_%exclude-module?194643%_ _%id-str194817%_)) + (let ((_%$e194819%_ (let () (declare (not safe)) (##string-prefix? '"gerbil/" - _%id-str195917%_)))) - (if _%$e195919%_ - _%$e195919%_ + _%id-str194817%_)))) + (if _%$e194819%_ + _%$e194819%_ (let () (declare (not safe)) (##string-prefix? '"std/" - _%id-str195917%_)))) + _%id-str194817%_)))) '#f)))) - (_%exclude-module?195743%_ - (lambda (_%ctx-or-str195911%_) - (let ((_%str195913%_ - (if (let () - (declare (not safe)) - (string? _%ctx-or-str195911%_)) - _%ctx-or-str195911%_ + (_%exclude-module?194643%_ + (lambda (_%ctx-or-str194811%_) + (let ((_%str194813%_ + (if (string? _%ctx-or-str194811%_) + _%ctx-or-str194811%_ (symbol->string (##structure-ref - _%ctx-or-str195911%_ + _%ctx-or-str194811%_ '1 gx#expander-context::t '#f))))) - (string-prefix? '"gerbil/core" _%str195913%_)))) - (_%not-file-empty?195744%_ - (lambda (_%path195909%_) - (let ((__tmp196113 - (let () + (string-prefix? '"gerbil/core" _%str194813%_)))) + (_%not-file-empty?194644%_ + (lambda (_%path194809%_) + (not (gxc#file-empty? _%path194809%_)))) + (_%fold-libgerbil-runtime-scm194645%_ + (lambda (_%gerbil-staticdir194802%_ _%libgerbil-scm194803%_) + (let ((_%gerbil-runtime-scm194807%_ + (let ((__tmp195008 + (lambda (_%rtm194805%_) + (path-expand + (let ((__tmp195009 + (let ((__tmp195010 + (let () + (declare (not safe)) + (string-split + _%rtm194805%_ + '#\/)))) + (declare (not safe)) + (string-join + __tmp195010 + '"__")))) + (declare (not safe)) + (##string-append __tmp195009 '".scm")) + _%gerbil-staticdir194802%_)))) (declare (not safe)) - (gxc#file-empty? _%path195909%_)))) - (declare (not safe)) - (not __tmp196113)))) - (_%fold-libgerbil-runtime-scm195745%_ - (lambda (_%gerbil-staticdir195902%_ _%libgerbil-scm195903%_) - (let* ((_%gerbil-runtime-scm195907%_ - (let ((__tmp196114 - (lambda (_%rtm195905%_) - (path-expand - (let ((__tmp196115 - (let ((__tmp196116 - (let () - (declare (not safe)) - (string-split - _%rtm195905%_ - '#\/)))) - (declare (not safe)) - (string-join - __tmp196116 - '"__")))) - (declare (not safe)) - (##string-append __tmp196115 '".scm")) - _%gerbil-staticdir195902%_)))) - (declare (not safe)) - (##map __tmp196114 gxc#gerbil-runtime-modules))) - (__tmp196117 - (append _%gerbil-runtime-scm195907%_ - _%libgerbil-scm195903%_))) - (declare (not safe)) - (_%remove-duplicates195746%_ __tmp196117)))) - (_%remove-duplicates195746%_ - (lambda (_%strlst195862%_) - (let _%loop195864%_ ((_%rest195866%_ _%strlst195862%_) - (_%result195867%_ '())) - (let* ((_%rest195868195876%_ _%rest195866%_) - (_%else195870195884%_ - (lambda () (reverse! _%result195867%_))) - (_%K195872195890%_ - (lambda (_%rest195887%_ _%path195888%_) - (if (member _%path195888%_ _%result195867%_) - (let () - (declare (not safe)) - (_%loop195864%_ - _%rest195887%_ - _%result195867%_)) - (let ((__tmp196118 - (cons _%path195888%_ - _%result195867%_))) - (declare (not safe)) - (_%loop195864%_ - _%rest195887%_ - __tmp196118)))))) + (##map __tmp195008 gxc#gerbil-runtime-modules)))) + (_%remove-duplicates194646%_ + (append _%gerbil-runtime-scm194807%_ + _%libgerbil-scm194803%_))))) + (_%remove-duplicates194646%_ + (lambda (_%strlst194762%_) + (let _%loop194764%_ ((_%rest194766%_ _%strlst194762%_) + (_%result194767%_ '())) + (let* ((_%rest194768194776%_ _%rest194766%_) + (_%else194770194784%_ + (lambda () (reverse! _%result194767%_))) + (_%K194772194790%_ + (lambda (_%rest194787%_ _%path194788%_) + (if (member _%path194788%_ _%result194767%_) + (_%loop194764%_ + _%rest194787%_ + _%result194767%_) + (_%loop194764%_ + _%rest194787%_ + (cons _%path194788%_ + _%result194767%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest195868195876%_)) - (let ((_%hd195873195893%_ + (##pair? _%rest194768194776%_)) + (let ((_%hd194773194793%_ (let () (declare (not safe)) - (##car _%rest195868195876%_))) - (_%tl195874195895%_ + (##car _%rest194768194776%_))) + (_%tl194774194795%_ (let () (declare (not safe)) - (##cdr _%rest195868195876%_)))) - (let* ((_%path195898%_ _%hd195873195893%_) - (_%rest195900%_ _%tl195874195895%_)) - (declare (not safe)) - (_%K195872195890%_ - _%rest195900%_ - _%path195898%_))) - (let () - (declare (not safe)) - (_%else195870195884%_))))))) - (_%compile-stub195747%_ - (lambda (_%output-scm195754%_ _%output-bin195755%_) - (let* ((_%gerbil-home195757%_ - (let ((__tmp196119 + (##cdr _%rest194768194776%_)))) + (let* ((_%path194798%_ _%hd194773194793%_) + (_%rest194800%_ _%tl194774194795%_)) + (_%K194772194790%_ + _%rest194800%_ + _%path194798%_))) + (_%else194770194784%_)))))) + (_%compile-stub194647%_ + (lambda (_%output-scm194654%_ _%output-bin194655%_) + (let* ((_%gerbil-home194657%_ + (let ((__tmp195011 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp196119))) - (_%gerbil-libdir195759%_ - (path-expand '"lib" _%gerbil-home195757%_)) - (_%gerbil-staticdir195761%_ - (path-expand '"static" _%gerbil-libdir195759%_)) - (_%tmp195763%_ + (##getenv '"GERBIL_BUILD_PREFIX" __tmp195011))) + (_%gerbil-libdir194659%_ + (path-expand '"lib" _%gerbil-home194657%_)) + (_%gerbil-staticdir194661%_ + (path-expand '"static" _%gerbil-libdir194659%_)) + (_%tmp194663%_ (path-expand - (let ((__tmp196120 - (let ((__tmp196121 - (let () - (declare (not safe)) - (gxc#compile-timestamp-nanos)))) + (let ((__tmp195012 + (let ((__tmp195013 + (gxc#compile-timestamp-nanos))) (declare (not safe)) - (##number->string __tmp196121)))) + (##number->string __tmp195013)))) (declare (not safe)) - (##string-append '"gxc." __tmp196120)) + (##string-append '"gxc." __tmp195012)) '"/tmp")) - (_%tmp-path195767%_ - (lambda (_%f195765%_) + (_%tmp-path194667%_ + (lambda (_%f194665%_) (path-expand - (path-strip-directory _%f195765%_) - _%tmp195763%_))) - (_%deps195769%_ - (let () - (declare (not safe)) - (gxc#find-runtime-module-deps _%ctx195735%_))) - (_%libgerbil-deps195771%_ - (filter _%libgerbil-module?195742%_ - _%deps195769%_)) - (_%libgerbil-scm195773%_ + (path-strip-directory _%f194665%_) + _%tmp194663%_))) + (_%deps194669%_ + (gxc#find-runtime-module-deps _%ctx194635%_)) + (_%libgerbil-deps194671%_ + (filter _%libgerbil-module?194642%_ + _%deps194669%_)) + (_%libgerbil-scm194673%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%libgerbil-deps195771%_))) - (_%libgerbil-scm195775%_ - (let () - (declare (not safe)) - (_%fold-libgerbil-runtime-scm195745%_ - _%gerbil-staticdir195761%_ - _%libgerbil-scm195773%_))) - (_%libgerbil-c195781%_ - (map (lambda (_%g195776195778%_) - (let () - (declare (not safe)) - (_%replace-extension195740%_ - _%g195776195778%_ - '".c"))) - _%libgerbil-scm195775%_)) - (_%libgerbil-o195787%_ - (map (lambda (_%g195782195784%_) - (let () - (declare (not safe)) - (_%replace-extension195740%_ - _%g195782195784%_ - '".o"))) - _%libgerbil-scm195775%_)) - (_%src-deps195789%_ - (filter _%userlib-module?195741%_ _%deps195769%_)) - (_%src-deps-scm195791%_ + _%libgerbil-deps194671%_))) + (_%libgerbil-scm194675%_ + (_%fold-libgerbil-runtime-scm194645%_ + _%gerbil-staticdir194661%_ + _%libgerbil-scm194673%_)) + (_%libgerbil-c194681%_ + (map (lambda (_%g194676194678%_) + (_%replace-extension194640%_ + _%g194676194678%_ + '".c")) + _%libgerbil-scm194675%_)) + (_%libgerbil-o194687%_ + (map (lambda (_%g194682194684%_) + (_%replace-extension194640%_ + _%g194682194684%_ + '".o")) + _%libgerbil-scm194675%_)) + (_%src-deps194689%_ + (filter _%userlib-module?194641%_ _%deps194669%_)) + (_%src-deps-scm194691%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%src-deps195789%_))) - (_%src-deps-scm195793%_ + _%src-deps194689%_))) + (_%src-deps-scm194693%_ (let () (declare (not safe)) (##filter - _%not-file-empty?195744%_ - _%src-deps-scm195791%_))) - (_%src-deps-scm195795%_ - (let () - (declare (not safe)) - (##map path-expand _%src-deps-scm195793%_))) - (_%src-deps-c195801%_ - (let ((__tmp196122 - (lambda (_%g195796195798%_) - (let () - (declare (not safe)) - (_%replace-extension195740%_ - _%g195796195798%_ - '".c"))))) - (declare (not safe)) - (##map __tmp196122 _%src-deps-scm195795%_))) - (_%src-deps-o195807%_ - (let ((__tmp196123 - (lambda (_%g195802195804%_) - (let () - (declare (not safe)) - (_%replace-extension195740%_ - _%g195802195804%_ - '".o"))))) - (declare (not safe)) - (##map __tmp196123 _%src-deps-scm195795%_))) - (_%src-bin-scm195809%_ + _%not-file-empty?194644%_ + _%src-deps-scm194691%_))) + (_%src-deps-scm194695%_ (let () (declare (not safe)) - (gxc#find-static-module-file _%ctx195735%_))) - (_%src-bin-scm195811%_ - (path-expand _%src-bin-scm195809%_)) - (_%src-bin-c195813%_ - (let () - (declare (not safe)) - (_%replace-extension195740%_ - _%src-bin-scm195811%_ - '".c"))) - (_%src-bin-o195815%_ - (let () - (declare (not safe)) - (_%replace-extension195740%_ - _%src-bin-scm195811%_ - '".o"))) - (_%output-bin195817%_ - (path-expand _%output-bin195755%_)) - (_%output-scm195819%_ - (path-expand _%output-scm195754%_)) - (_%output-c195821%_ - (let () - (declare (not safe)) - (_%replace-extension195740%_ - _%output-scm195819%_ - '".c"))) - (_%output-o195823%_ - (let () - (declare (not safe)) - (_%replace-extension195740%_ - _%output-scm195819%_ - '".o"))) - (_%output_-c195825%_ - (let () - (declare (not safe)) - (_%replace-extension195740%_ - _%output-scm195819%_ - '"_.c"))) - (_%output_-o195827%_ - (let () - (declare (not safe)) - (_%replace-extension195740%_ - _%output-scm195819%_ - '"_.o"))) - (_%gsc-link-opts195829%_ - (let () - (declare (not safe)) - (gxc#gsc-link-options__0))) - (_%gsc-cc-opts195831%_ - (let () - (declare (not safe)) - (gxc#gsc-cc-options__0))) - (_%gsc-static-opts195833%_ - (let () - (declare (not safe)) - (gxc#gsc-static-include-options - _%gerbil-staticdir195761%_))) - (_%output-ld-opts195835%_ - (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_%libgerbil-ld-opts195837%_ - (let () - (declare (not safe)) - (_%get-libgerbil-ld-opts195739%_ - _%gerbil-libdir195759%_))) - (_%rpath195839%_ - (let () - (declare (not safe)) - (gxc#gerbil-rpath _%gerbil-libdir195759%_))) - (_%builtin-modules195843%_ - (let ((__tmp196124 - (let ((__tmp196125 - (let ((__tmp196127 - (lambda (_%mod195841%_) - (symbol->string - (##structure-ref - _%mod195841%_ - '1 - gx#expander-context::t - '#f)))) - (__tmp196126 - (cons _%ctx195735%_ - _%deps195769%_))) - (declare (not safe)) - (##map __tmp196127 __tmp196126)))) - (declare (not safe)) - (##append - gxc#gerbil-runtime-modules - __tmp196125)))) - (declare (not safe)) - (_%remove-duplicates195746%_ __tmp196124)))) - (letrec ((_%compile-obj195846%_ - (lambda (_%scm-path195853%_ _%c-path195854%_) - (let ((_%o-path195856%_ - (let () - (declare (not safe)) - (_%replace-extension195740%_ - _%c-path195854%_ - '".o")))) + (##map path-expand _%src-deps-scm194693%_))) + (_%src-deps-c194701%_ + (let ((__tmp195014 + (lambda (_%g194696194698%_) + (_%replace-extension194640%_ + _%g194696194698%_ + '".c")))) + (declare (not safe)) + (##map __tmp195014 _%src-deps-scm194695%_))) + (_%src-deps-o194707%_ + (let ((__tmp195015 + (lambda (_%g194702194704%_) + (_%replace-extension194640%_ + _%g194702194704%_ + '".o")))) + (declare (not safe)) + (##map __tmp195015 _%src-deps-scm194695%_))) + (_%src-bin-scm194709%_ + (gxc#find-static-module-file _%ctx194635%_)) + (_%src-bin-scm194711%_ + (path-expand _%src-bin-scm194709%_)) + (_%src-bin-c194713%_ + (_%replace-extension194640%_ + _%src-bin-scm194711%_ + '".c")) + (_%src-bin-o194715%_ + (_%replace-extension194640%_ + _%src-bin-scm194711%_ + '".o")) + (_%output-bin194717%_ + (path-expand _%output-bin194655%_)) + (_%output-scm194719%_ + (path-expand _%output-scm194654%_)) + (_%output-c194721%_ + (_%replace-extension194640%_ + _%output-scm194719%_ + '".c")) + (_%output-o194723%_ + (_%replace-extension194640%_ + _%output-scm194719%_ + '".o")) + (_%output_-c194725%_ + (_%replace-extension194640%_ + _%output-scm194719%_ + '"_.c")) + (_%output_-o194727%_ + (_%replace-extension194640%_ + _%output-scm194719%_ + '"_.o")) + (_%gsc-link-opts194729%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts194731%_ (gxc#gsc-cc-options__0)) + (_%gsc-static-opts194733%_ + (gxc#gsc-static-include-options + _%gerbil-staticdir194661%_)) + (_%output-ld-opts194735%_ (gxc#gcc-ld-options)) + (_%libgerbil-ld-opts194737%_ + (_%get-libgerbil-ld-opts194639%_ + _%gerbil-libdir194659%_)) + (_%rpath194739%_ + (gxc#gerbil-rpath _%gerbil-libdir194659%_)) + (_%builtin-modules194743%_ + (_%remove-duplicates194646%_ + (let ((__tmp195016 + (let ((__tmp195018 + (lambda (_%mod194741%_) + (symbol->string + (##structure-ref + _%mod194741%_ + '1 + gx#expander-context::t + '#f)))) + (__tmp195017 + (cons _%ctx194635%_ + _%deps194669%_))) + (declare (not safe)) + (##map __tmp195018 __tmp195017)))) + (declare (not safe)) + (##append + gxc#gerbil-runtime-modules + __tmp195016))))) + (letrec ((_%compile-obj194746%_ + (lambda (_%scm-path194753%_ _%c-path194754%_) + (let ((_%o-path194756%_ + (_%replace-extension194640%_ + _%c-path194754%_ + '".o"))) (if (and (let () (declare (not safe)) (##file-exists? - _%o-path195856%_)) - (or (let () - (declare (not safe)) - (not _%scm-path195853%_)) + _%o-path194756%_)) + (or (not _%scm-path194753%_) (let () (declare (not safe)) (file-newer? - _%scm-path195853%_ - _%o-path195856%_)))) - (let ((__tmp196128 + _%scm-path194753%_ + _%o-path194756%_)))) + (let ((__tmp195019 (lambda () - (let ((__tmp196132 - (let () - (declare (not safe)) - (gxc#gerbil-gsc))) - (__tmp196129 - (cons '"-obj" - (let ((__tmp196130 + (gxc#invoke__% + '#f + absent-value + absent-value + (gxc#gerbil-gsc) + (cons '"-obj" + (let ((__tmp195020 + (let ((__tmp195021 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp196131 (cons _%c-path195854%_ '()))) - (declare (not safe)) - (__foldr1 - cons - __tmp196131 - _%gsc-static-opts195833%_)))) - (declare (not safe)) - (__foldr1 cons __tmp196130 _%gsc-cc-opts195831%_))))) + (cons _%c-path194754%_ '()))) + (declare (not safe)) + (__foldr1 + cons + __tmp195021 + _%gsc-static-opts194733%_)))) + (declare (not safe)) + (__foldr1 cons __tmp195020 _%gsc-cc-opts194731%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#invoke__% - '#f - absent-value - absent-value - __tmp196132 - __tmp196129))))) (declare (not safe)) - (__spawn __tmp196128)) + (__spawn __tmp195019)) '#f))))) - (let ((__tmp196133 - (lambda () - (let ((__tmp196134 - (path-directory _%output-bin195817%_))) - (declare (not safe)) - (create-directory*__0 __tmp196134))))) - (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp196133)) - (let ((__tmp196135 + (let ((__tmp195022 (lambda () - (let () + (let ((__tmp195023 + (path-directory _%output-bin194717%_))) (declare (not safe)) - (_%generate-stub195738%_ - _%builtin-modules195843%_))))) + (create-directory*__0 __tmp195023))))) (declare (not safe)) - (gxc#with-output-to-scheme-file - _%output-scm195819%_ - __tmp196135)) + (__with-lock gxc#+driver-mutex+ __tmp195022)) + (gxc#with-output-to-scheme-file + _%output-scm194719%_ + (lambda () + (_%generate-stub194638%_ + _%builtin-modules194743%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) (begin - (let ((__tmp196136 + (let ((__tmp195024 (lambda () - (create-directory _%tmp195763%_)))) + (create-directory _%tmp194663%_)))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp196136)) - (let ((__tmp196141 - (let () - (declare (not safe)) - (gxc#gerbil-gsc))) - (__tmp196137 - (cons '"-link" - (let ((__tmp196138 - (let ((__tmp196139 - (let ((__tmp196140 - (cons _%src-bin-scm195811%_ + (__with-lock gxc#+driver-mutex+ __tmp195024)) + (gxc#invoke__% + '#f + absent-value + absent-value + (gxc#gerbil-gsc) + (cons '"-link" + (let ((__tmp195025 + (let ((__tmp195026 + (let ((__tmp195027 + (cons _%src-bin-scm194711%_ + (cons _%output-scm194719%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%output-scm195819%_ '())))) - (declare (not safe)) - (__foldr1 cons __tmp196140 _%src-deps-scm195795%_)))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr1 - cons - __tmp196139 - _%libgerbil-c195781%_)))) - (declare (not safe)) - (__foldr1 - cons - __tmp196138 - _%gsc-link-opts195829%_))))) - (declare (not safe)) - (gxc#invoke__% - '#f - absent-value - absent-value - __tmp196141 - __tmp196137)) - (let ((__tmp196145 - (lambda (_%maybe-thread195851%_) - (if _%maybe-thread195851%_ - (let () - (declare (not safe)) - (gxc#join! - _%maybe-thread195851%_)) + (declare (not safe)) + (__foldr1 + cons + __tmp195027 + _%src-deps-scm194695%_)))) + (declare (not safe)) + (__foldr1 + cons + __tmp195026 + _%libgerbil-c194681%_)))) + (declare (not safe)) + (__foldr1 + cons + __tmp195025 + _%gsc-link-opts194729%_)))) + (let ((__tmp195031 + (lambda (_%maybe-thread194751%_) + (if _%maybe-thread194751%_ + (gxc#join! _%maybe-thread194751%_) '#f))) - (__tmp196142 - (map _%compile-obj195846%_ - (let ((__tmp196143 - (cons _%src-bin-scm195811%_ - (cons _%output-scm195819%_ + (__tmp195028 + (map _%compile-obj194746%_ + (let ((__tmp195029 + (cons _%src-bin-scm194711%_ + (cons _%output-scm194719%_ (cons '#f '()))))) (declare (not safe)) (__foldr1 cons - __tmp196143 - _%src-deps-scm195795%_)) - (let ((__tmp196144 - (cons _%src-bin-c195813%_ - (cons _%output-c195821%_ - (cons _%output_-c195825%_ + __tmp195029 + _%src-deps-scm194695%_)) + (let ((__tmp195030 + (cons _%src-bin-c194713%_ + (cons _%output-c194721%_ + (cons _%output_-c194725%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp196144 - _%src-deps-c195801%_))))) + __tmp195030 + _%src-deps-c194701%_))))) (declare (not safe)) - (##for-each __tmp196145 __tmp196142)) - (let ((__tmp196150 - (let () - (declare (not safe)) - (gxc#gerbil-gsc))) - (__tmp196146 - (cons '"-obj" - (let ((__tmp196147 - (let ((__tmp196148 - (let ((__tmp196149 - (cons _%src-bin-c195813%_ + (##for-each __tmp195031 __tmp195028)) + (gxc#invoke__% + '#f + absent-value + absent-value + (gxc#gerbil-gsc) + (cons '"-obj" + (let ((__tmp195032 + (let ((__tmp195033 + (let ((__tmp195034 + (cons _%src-bin-c194713%_ + (cons _%output-c194721%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%output-c195821%_ - (cons _%output_-c195825%_ '()))))) - (declare (not safe)) - (__foldr1 cons __tmp196149 _%src-deps-c195801%_)))) + (cons _%output_-c194725%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr1 - cons - __tmp196148 - _%gsc-static-opts195833%_)))) - (declare (not safe)) - (__foldr1 - cons - __tmp196147 - _%gsc-cc-opts195831%_))))) - (declare (not safe)) - (gxc#invoke__% - '#f - absent-value - absent-value - __tmp196150 - __tmp196146)) - (let ((__tmp196157 - (let () + (declare (not safe)) + (__foldr1 + cons + __tmp195034 + _%src-deps-c194701%_)))) + (declare (not safe)) + (__foldr1 + cons + __tmp195033 + _%gsc-static-opts194733%_)))) (declare (not safe)) - (gxc#gerbil-gcc))) - (__tmp196151 - (cons '"-w" - (cons '"-o" - (cons _%output-bin195817%_ - (let ((__tmp196152 - (cons _%src-bin-o195815%_ + (__foldr1 + cons + __tmp195032 + _%gsc-cc-opts194731%_)))) + (gxc#invoke__% + '#f + absent-value + absent-value + (gxc#gerbil-gcc) + (cons '"-w" + (cons '"-o" + (cons _%output-bin194717%_ + (let ((__tmp195035 + (cons _%src-bin-o194715%_ + (cons _%output-o194723%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%output-o195823%_ - (cons _%output_-o195827%_ - (let ((__tmp196153 - (let ((__tmp196154 - (let ((__tmp196156 - (cons '"-L" + (cons _%output_-o194727%_ + (let ((__tmp195036 + (let ((__tmp195037 + (let ((__tmp195039 + (cons '"-L" + (cons _%gerbil-libdir194659%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%gerbil-libdir195759%_ - (cons '"-lgambit" - _%libgerbil-ld-opts195837%_)))) - (__tmp196155 - (if (let () - (declare (not safe)) - (gxc#gerbil-enable-shared?)) - (cons _%rpath195839%_ '()) - '()))) - (declare (not safe)) - (__foldr1 cons __tmp196156 __tmp196155)))) + (cons '"-lgambit" _%libgerbil-ld-opts194737%_)))) + (__tmp195038 + (if (gxc#gerbil-enable-shared?) + (cons _%rpath194739%_ '()) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr1 - cons - __tmp196154 - _%output-ld-opts195835%_)))) - (declare (not safe)) - (__foldr1 - cons - __tmp196153 - _%libgerbil-o195787%_))))))) - (declare (not safe)) - (__foldr1 cons __tmp196152 _%src-deps-o195807%_))))))) + (declare (not safe)) + (__foldr1 + cons + __tmp195039 + __tmp195038)))) + (declare (not safe)) + (__foldr1 + cons + __tmp195037 + _%output-ld-opts194735%_)))) + (declare (not safe)) + (__foldr1 + cons + __tmp195036 + _%libgerbil-o194687%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#invoke__% - '#f - absent-value - absent-value - __tmp196157 - __tmp196151)) - (let ((__tmp196158 - (cons _%output-c195821%_ - (cons _%output_-c195825%_ - (cons _%output-o195823%_ - (cons _%output_-o195827%_ + (declare (not safe)) + (__foldr1 + cons + __tmp195035 + _%src-deps-o194707%_)))))) + (let ((__tmp195040 + (cons _%output-c194721%_ + (cons _%output_-c194725%_ + (cons _%output-o194723%_ + (cons _%output_-o194727%_ '())))))) (declare (not safe)) - (##for-each delete-file __tmp196158))) + (##for-each delete-file __tmp195040))) '#!void)))))) - (let* ((_%output-bin195749%_ - (let () - (declare (not safe)) - (gxc#compile-exe-output-file - _%ctx195735%_ - _%opts195736%_))) - (_%output-scm195751%_ + (let* ((_%output-bin194649%_ + (gxc#compile-exe-output-file _%ctx194635%_ _%opts194636%_)) + (_%output-scm194651%_ (let () (declare (not safe)) - (##string-append _%output-bin195749%_ '"__exe.scm")))) - (let () - (declare (not safe)) - (_%compile-stub195747%_ - _%output-scm195751%_ - _%output-bin195749%_)) + (##string-append _%output-bin194649%_ '"__exe.scm")))) + (_%compile-stub194647%_ _%output-scm194651%_ _%output-bin194649%_) (if (let () (declare (not safe)) (gxc#current-compile-keep-scm)) '#!void (let () (declare (not safe)) - (##delete-file _%output-scm195751%_))))))) + (##delete-file _%output-scm194651%_))))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_%ctx195560%_ _%opts195561%_) - (letrec ((_%reset-declare195563%_ + (lambda (_%ctx194460%_ _%opts194461%_) + (letrec ((_%reset-declare194463%_ (lambda () '(declare (gambit-scheme) @@ -1019,44 +869,36 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_%generate-stub195564%_ - (lambda (_%deps195726%_) - (let ((_%mod-main195728%_ - (let () - (declare (not safe)) - (gxc#find-runtime-symbol _%ctx195560%_ 'main))) - (_%reset-decl195729%_ - (let () - (declare (not safe)) - (_%reset-declare195563%_))) - (_%user-decl195730%_ - (let () - (declare (not safe)) - (_%user-declare195565%_)))) + (_%generate-stub194464%_ + (lambda (_%deps194626%_) + (let ((_%mod-main194628%_ + (gxc#find-runtime-symbol _%ctx194460%_ 'main)) + (_%reset-decl194629%_ (_%reset-declare194463%_)) + (_%user-decl194630%_ (_%user-declare194465%_))) (for-each - (lambda (_%dep195732%_) + (lambda (_%dep194632%_) (let () (declare (not safe)) (##write '(##namespace ("")))) (newline) (let () (declare (not safe)) - (##write _%reset-decl195729%_)) + (##write _%reset-decl194629%_)) (newline) - (if _%user-decl195730%_ + (if _%user-decl194630%_ (begin (let () (declare (not safe)) - (##write _%user-decl195730%_)) + (##write _%user-decl194630%_)) (newline)) '#!void) - (let ((__tmp196159 - (cons 'include (cons _%dep195732%_ '())))) + (let ((__tmp195041 + (cons 'include (cons _%dep194632%_ '())))) (declare (not safe)) - (##write __tmp196159)) + (##write __tmp195041)) (newline)) - _%deps195726%_) - (let ((__tmp196160 + _%deps194626%_) + (let ((__tmp195042 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'gerbil-runtime-init! @@ -1066,1120 +908,924 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'apply - (cons _%mod-main195728%_ + (cons _%mod-main194628%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'cdr (cons (cons 'command-line '()) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (##write __tmp196160)) + (##write __tmp195042)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%user-declare195565%_ + (_%user-declare194465%_ (lambda () - (let* ((_%gsc-opts195631%_ + (let* ((_%gsc-opts194531%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts195561%_))) - (_%gsc-prelude195633%_ - (if _%gsc-opts195631%_ - (member '"-prelude" _%gsc-opts195631%_) + (pgetq__0 'gsc-options: _%opts194461%_))) + (_%gsc-prelude194533%_ + (if _%gsc-opts194531%_ + (member '"-prelude" _%gsc-opts194531%_) '#f)) - (_%gsc-prelude195635%_ - (if _%gsc-prelude195633%_ + (_%gsc-prelude194535%_ + (if _%gsc-prelude194533%_ (read (open-input-string - (cadr _%gsc-prelude195633%_))) + (cadr _%gsc-prelude194533%_))) '#f))) - (let _%lp195638%_ ((_%rest195640%_ - (cons _%gsc-prelude195635%_ '())) - (_%user-decls195641%_ '())) - (let* ((_%rest195642195650%_ _%rest195640%_) - (_%else195644195658%_ + (let _%lp194538%_ ((_%rest194540%_ + (cons _%gsc-prelude194535%_ '())) + (_%user-decls194541%_ '())) + (let* ((_%rest194542194550%_ _%rest194540%_) + (_%else194544194558%_ (lambda () - (if (let () - (declare (not safe)) - (null? _%user-decls195641%_)) + (if (null? _%user-decls194541%_) '#f (cons 'declare - (reverse _%user-decls195641%_))))) - (_%K195646195714%_ - (lambda (_%rest195661%_ _%expr195662%_) - (let* ((_%expr195663195675%_ _%expr195662%_) - (_%else195666195683%_ + (reverse _%user-decls194541%_))))) + (_%K194546194614%_ + (lambda (_%rest194561%_ _%expr194562%_) + (let* ((_%expr194563194575%_ _%expr194562%_) + (_%else194566194583%_ (lambda () - (let () - (declare (not safe)) - (_%lp195638%_ - _%rest195661%_ - _%user-decls195641%_))))) - (let ((_%K195671195704%_ - (lambda (_%decls195702%_) - (let ((__tmp196161 - (let () - (declare (not safe)) - (__foldl1 - cons - _%user-decls195641%_ - _%decls195702%_)))) - (declare (not safe)) - (_%lp195638%_ - _%rest195661%_ - __tmp196161)))) - (_%K195668195689%_ - (lambda (_%exprs195687%_) - (let ((__tmp196162 - (append _%exprs195687%_ - _%rest195661%_))) - (declare (not safe)) - (_%lp195638%_ - __tmp196162 - _%user-decls195641%_))))) + (_%lp194538%_ + _%rest194561%_ + _%user-decls194541%_)))) + (let ((_%K194571194604%_ + (lambda (_%decls194602%_) + (_%lp194538%_ + _%rest194561%_ + (let () + (declare (not safe)) + (__foldl1 + cons + _%user-decls194541%_ + _%decls194602%_))))) + (_%K194568194589%_ + (lambda (_%exprs194587%_) + (_%lp194538%_ + (append _%exprs194587%_ + _%rest194561%_) + _%user-decls194541%_)))) (if (let () (declare (not safe)) - (##pair? _%expr195663195675%_)) - (let ((_%tl195673195709%_ + (##pair? _%expr194563194575%_)) + (let ((_%tl194573194609%_ (let () (declare (not safe)) - (##cdr _%expr195663195675%_))) - (_%hd195672195707%_ + (##cdr _%expr194563194575%_))) + (_%hd194572194607%_ (let () (declare (not safe)) - (##car _%expr195663195675%_)))) + (##car _%expr194563194575%_)))) (if (let () (declare (not safe)) - (##eq? _%hd195672195707%_ + (##eq? _%hd194572194607%_ 'declare)) - (let ((_%decls195712%_ - _%tl195673195709%_)) - (declare (not safe)) - (_%K195671195704%_ - _%decls195712%_)) + (let ((_%decls194612%_ + _%tl194573194609%_)) + (_%K194571194604%_ + _%decls194612%_)) (if (let () (declare (not safe)) - (##eq? _%hd195672195707%_ + (##eq? _%hd194572194607%_ 'begin)) - (let ((_%exprs195697%_ - _%tl195673195709%_)) - (declare (not safe)) - (_%K195668195689%_ - _%exprs195697%_)) - (let () - (declare (not safe)) - (_%else195666195683%_))))) - (let () - (declare (not safe)) - (_%else195666195683%_)))))))) + (let ((_%exprs194597%_ + _%tl194573194609%_)) + (_%K194568194589%_ + _%exprs194597%_)) + (_%else194566194583%_)))) + (_%else194566194583%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest195642195650%_)) - (let ((_%hd195647195717%_ + (##pair? _%rest194542194550%_)) + (let ((_%hd194547194617%_ (let () (declare (not safe)) - (##car _%rest195642195650%_))) - (_%tl195648195719%_ + (##car _%rest194542194550%_))) + (_%tl194548194619%_ (let () (declare (not safe)) - (##cdr _%rest195642195650%_)))) - (let* ((_%expr195722%_ _%hd195647195717%_) - (_%rest195724%_ _%tl195648195719%_)) - (declare (not safe)) - (_%K195646195714%_ - _%rest195724%_ - _%expr195722%_))) - (let () - (declare (not safe)) - (_%else195644195658%_)))))))) - (_%compile-stub195566%_ - (lambda (_%output-scm195573%_ _%output-bin195574%_) - (let* ((_%gerbil-home195576%_ - (let ((__tmp196163 + (##cdr _%rest194542194550%_)))) + (let* ((_%expr194622%_ _%hd194547194617%_) + (_%rest194624%_ _%tl194548194619%_)) + (_%K194546194614%_ + _%rest194624%_ + _%expr194622%_))) + (_%else194544194558%_))))))) + (_%compile-stub194466%_ + (lambda (_%output-scm194473%_ _%output-bin194474%_) + (let* ((_%gerbil-home194476%_ + (let ((__tmp195043 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp196163))) - (_%gerbil-libdir195578%_ - (path-expand '"lib" _%gerbil-home195576%_)) - (_%runtime195580%_ + (##getenv '"GERBIL_BUILD_PREFIX" __tmp195043))) + (_%gerbil-libdir194478%_ + (path-expand '"lib" _%gerbil-home194476%_)) + (_%runtime194480%_ (let () (declare (not safe)) (##map gxc#find-static-module-file gxc#gerbil-runtime-modules))) - (_%gambit-sharp195582%_ + (_%gambit-sharp194482%_ (path-expand '"lib/_gambit#.scm" - _%gerbil-home195576%_)) - (_%include-gambit-sharp195584%_ + _%gerbil-home194476%_)) + (_%include-gambit-sharp194484%_ (let () (declare (not safe)) (##string-append '"(include \"" - _%gambit-sharp195582%_ + _%gambit-sharp194482%_ '"\")"))) - (_%bin-scm195586%_ - (let () - (declare (not safe)) - (gxc#find-static-module-file _%ctx195560%_))) - (_%deps195588%_ - (let () - (declare (not safe)) - (gxc#find-runtime-module-deps _%ctx195560%_))) - (_%deps195590%_ - (map gxc#find-static-module-file _%deps195588%_)) - (_%deps195595%_ - (let ((__tmp196164 - (lambda (_%$obj195592%_) - (let ((__tmp196165 - (let () - (declare (not safe)) - (gxc#file-empty? - _%$obj195592%_)))) - (declare (not safe)) - (not __tmp196165))))) - (declare (not safe)) - (##filter __tmp196164 _%deps195590%_))) - (_%deps195599%_ - (let ((__tmp196166 - (lambda (_%f195597%_) - (let ((__tmp196167 - (let () - (declare (not safe)) - (##member - _%f195597%_ - _%runtime195580%_)))) - (declare (not safe)) - (not __tmp196167))))) + (_%bin-scm194486%_ + (gxc#find-static-module-file _%ctx194460%_)) + (_%deps194488%_ + (gxc#find-runtime-module-deps _%ctx194460%_)) + (_%deps194490%_ + (map gxc#find-static-module-file _%deps194488%_)) + (_%deps194495%_ + (let ((__tmp195044 + (lambda (_%$obj194492%_) + (not (gxc#file-empty? _%$obj194492%_))))) + (declare (not safe)) + (##filter __tmp195044 _%deps194490%_))) + (_%deps194499%_ + (let ((__tmp195045 + (lambda (_%f194497%_) + (not (let () + (declare (not safe)) + (##member + _%f194497%_ + _%runtime194480%_)))))) (declare (not safe)) - (##filter __tmp196166 _%deps195595%_))) - (_%output-base195601%_ - (let ((__tmp196168 + (##filter __tmp195045 _%deps194495%_))) + (_%output-base194501%_ + (let ((__tmp195046 (path-strip-extension - _%output-scm195573%_))) + _%output-scm194473%_))) (declare (not safe)) - (##string-append __tmp196168))) - (_%output-c195603%_ + (##string-append __tmp195046))) + (_%output-c194503%_ (let () (declare (not safe)) - (##string-append _%output-base195601%_ '".c"))) - (_%output-o195605%_ + (##string-append _%output-base194501%_ '".c"))) + (_%output-o194505%_ (let () (declare (not safe)) - (##string-append _%output-base195601%_ '".o"))) - (_%output-c_195607%_ + (##string-append _%output-base194501%_ '".o"))) + (_%output-c_194507%_ (let () (declare (not safe)) - (##string-append _%output-base195601%_ '"_.c"))) - (_%output-o_195609%_ + (##string-append _%output-base194501%_ '"_.c"))) + (_%output-o_194509%_ (let () (declare (not safe)) - (##string-append _%output-base195601%_ '"_.o"))) - (_%gsc-link-opts195611%_ - (let () - (declare (not safe)) - (gxc#gsc-link-options__0))) - (_%gsc-cc-opts195613%_ - (let () - (declare (not safe)) - (gxc#gsc-cc-options__0))) - (_%gsc-static-opts195615%_ - (let ((__tmp196169 - (path-expand - '"static" - _%gerbil-libdir195578%_))) - (declare (not safe)) - (gxc#gsc-static-include-options __tmp196169))) - (_%output-ld-opts195617%_ - (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_%gsc-gx-macros195619%_ + (##string-append _%output-base194501%_ '"_.o"))) + (_%gsc-link-opts194511%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts194513%_ (gxc#gsc-cc-options__0)) + (_%gsc-static-opts194515%_ + (gxc#gsc-static-include-options + (path-expand '"static" _%gerbil-libdir194478%_))) + (_%output-ld-opts194517%_ (gxc#gcc-ld-options)) + (_%gsc-gx-macros194519%_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) (cons '"-e" (cons '"(define-cond-expand-feature|enable-smp|)" (cons '"-e" - (cons _%include-gambit-sharp195584%_ + (cons _%include-gambit-sharp194484%_ '())))) (cons '"-e" - (cons _%include-gambit-sharp195584%_ + (cons _%include-gambit-sharp194484%_ '())))) - (_%gsc-link-opts195621%_ + (_%gsc-link-opts194521%_ (let () (declare (not safe)) (##append - _%gsc-link-opts195611%_ - _%gsc-gx-macros195619%_))) - (_%rpath195623%_ - (let () - (declare (not safe)) - (gxc#gerbil-rpath _%gerbil-libdir195578%_))) - (_%default-ld-options195625%_ + _%gsc-link-opts194511%_ + _%gsc-gx-macros194519%_))) + (_%rpath194523%_ + (gxc#gerbil-rpath _%gerbil-libdir194478%_)) + (_%default-ld-options194525%_ (cons '"-ldl" (cons '"-lm" '())))) - (let ((__tmp196170 + (let ((__tmp195047 (lambda () - (let ((__tmp196171 - (path-directory _%output-bin195574%_))) - (declare (not safe)) - (create-directory*__0 __tmp196171))))) - (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp196170)) - (let ((__tmp196172 - (lambda () - (let ((__tmp196173 - (let ((__tmp196174 - (let ((__tmp196175 - (cons _%bin-scm195586%_ - '()))) - (declare (not safe)) - (__foldr1 - cons - __tmp196175 - _%deps195599%_)))) - (declare (not safe)) - (__foldr1 - cons - __tmp196174 - _%runtime195580%_)))) + (let ((__tmp195048 + (path-directory _%output-bin194474%_))) (declare (not safe)) - (_%generate-stub195564%_ __tmp196173))))) + (create-directory*__0 __tmp195048))))) (declare (not safe)) - (gxc#with-output-to-scheme-file - _%output-scm195573%_ - __tmp196172)) + (__with-lock gxc#+driver-mutex+ __tmp195047)) + (gxc#with-output-to-scheme-file + _%output-scm194473%_ + (lambda () + (_%generate-stub194464%_ + (let ((__tmp195049 + (let ((__tmp195050 + (cons _%bin-scm194486%_ '()))) + (declare (not safe)) + (__foldr1 + cons + __tmp195050 + _%deps194499%_)))) + (declare (not safe)) + (__foldr1 cons __tmp195049 _%runtime194480%_))))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) (begin - (let ((__tmp196178 - (let () - (declare (not safe)) - (gxc#gerbil-gsc))) - (__tmp196176 - (cons '"-link" - (cons '"-o" - (cons _%output-c_195607%_ - (let ((__tmp196177 - (cons _%output-scm195573%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) - (declare (not safe)) - (__foldr1 cons __tmp196177 _%gsc-link-opts195621%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#invoke__% - '#f - absent-value - absent-value - __tmp196178 - __tmp196176)) - (let ((__tmp196182 - (let () - (declare (not safe)) - (gxc#gerbil-gsc))) - (__tmp196179 - (cons '"-obj" - (let ((__tmp196180 - (let ((__tmp196181 - (cons _%output-c195603%_ - (cons _%output-c_195607%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr1 - cons - __tmp196181 - _%gsc-static-opts195615%_)))) - (declare (not safe)) - (__foldr1 - cons - __tmp196180 - _%gsc-cc-opts195613%_))))) - (declare (not safe)) - (gxc#invoke__% - '#f - absent-value - absent-value - __tmp196182 - __tmp196179)) - (let ((__tmp196187 - (let () + (gxc#invoke__% + '#f + absent-value + absent-value + (gxc#gerbil-gsc) + (cons '"-link" + (cons '"-o" + (cons _%output-c_194507%_ + (let ((__tmp195051 + (cons _%output-scm194473%_ + '()))) + (declare (not safe)) + (__foldr1 + cons + __tmp195051 + _%gsc-link-opts194521%_)))))) + (gxc#invoke__% + '#f + absent-value + absent-value + (gxc#gerbil-gsc) + (cons '"-obj" + (let ((__tmp195052 + (let ((__tmp195053 + (cons _%output-c194503%_ + (cons _%output-c_194507%_ + '())))) + (declare (not safe)) + (__foldr1 + cons + __tmp195053 + _%gsc-static-opts194515%_)))) (declare (not safe)) - (gxc#gerbil-gcc))) - (__tmp196183 - (cons '"-w" - (cons '"-o" - (cons _%output-bin195574%_ - (cons _%output-o195605%_ - (cons _%output-o_195609%_ + (__foldr1 + cons + __tmp195052 + _%gsc-cc-opts194513%_)))) + (gxc#invoke__% + '#f + absent-value + absent-value + (gxc#gerbil-gcc) + (cons '"-w" + (cons '"-o" + (cons _%output-bin194474%_ + (cons _%output-o194505%_ + (cons _%output-o_194509%_ + (let ((__tmp195054 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp196184 - (let ((__tmp196186 - (cons '"-L" - (cons _%gerbil-libdir195578%_ - (cons '"-lgambit" - _%default-ld-options195625%_)))) - (__tmp196185 - (if (let () - (declare (not safe)) - (gxc#gerbil-enable-shared?)) - (cons _%rpath195623%_ '()) - '()))) - (declare (not safe)) - (__foldr1 cons __tmp196186 __tmp196185)))) - (declare (not safe)) - (__foldr1 - cons - __tmp196184 - _%output-ld-opts195617%_))))))))) + (let ((__tmp195056 + (cons '"-L" + (cons _%gerbil-libdir194478%_ + (cons '"-lgambit" + _%default-ld-options194525%_)))) + (__tmp195055 + (if (gxc#gerbil-enable-shared?) + (cons _%rpath194523%_ '()) + '()))) + (declare (not safe)) + (__foldr1 cons __tmp195056 __tmp195055)))) + (declare (not safe)) + (__foldr1 + cons + __tmp195054 + _%output-ld-opts194517%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#invoke__% - '#f - absent-value - absent-value - __tmp196187 - __tmp196183))) '#!void))))) - (let* ((_%output-bin195568%_ - (let () - (declare (not safe)) - (gxc#compile-exe-output-file - _%ctx195560%_ - _%opts195561%_))) - (_%output-scm195570%_ + (let* ((_%output-bin194468%_ + (gxc#compile-exe-output-file _%ctx194460%_ _%opts194461%_)) + (_%output-scm194470%_ (let () (declare (not safe)) - (##string-append _%output-bin195568%_ '"__exe.scm")))) - (let () - (declare (not safe)) - (_%compile-stub195566%_ - _%output-scm195570%_ - _%output-bin195568%_)) + (##string-append _%output-bin194468%_ '"__exe.scm")))) + (_%compile-stub194466%_ _%output-scm194470%_ _%output-bin194468%_) (if (let () (declare (not safe)) (gxc#current-compile-keep-scm)) '#!void (let () (declare (not safe)) - (##delete-file _%output-scm195570%_))))))) + (##delete-file _%output-scm194470%_))))))) (define gxc#find-export-binding - (lambda (_%ctx195509%_ _%id195510%_) - (let ((_%$e195556%_ - (let ((__tmp196189 - (lambda (_%e195511195513%_) - (let* ((_%g195515195525%_ _%e195511195513%_) - (_%else195517195533%_ (lambda () '#f)) - (_%K195519195537%_ (lambda () '#t))) + (lambda (_%ctx194409%_ _%id194410%_) + (let ((_%$e194456%_ + (let ((__tmp195058 + (lambda (_%e194411194413%_) + (let* ((_%g194415194425%_ _%e194411194413%_) + (_%else194417194433%_ (lambda () '#f)) + (_%K194419194437%_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%g195515195525%_ + _%g194415194425%_ 'gx#module-export::t)) - (let* ((_%e195520195540%_ + (let* ((_%e194420194440%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g195515195525%_ + _%g194415194425%_ '1 '#f '#f))) - (_%e195521195543%_ + (_%e194421194443%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g195515195525%_ + _%g194415194425%_ '2 '#f '#f))) - (_%e195522195546%_ + (_%e194422194446%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g195515195525%_ + _%g194415194425%_ '3 '#f '#f)))) (if (let () (declare (not safe)) - (##eq? _%e195522195546%_ '0)) - (let ((_%e195523195549%_ + (##eq? _%e194422194446%_ '0)) + (let ((_%e194423194449%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g195515195525%_ + _%g194415194425%_ '4 '#f '#f)))) - (if ((lambda (_%g195551195553%_) - (eq? _%g195551195553%_ - _%id195510%_)) - _%e195523195549%_) - (let () - (declare (not safe)) - (_%K195519195537%_)) - (let () - (declare (not safe)) - (_%else195517195533%_)))) - (let () - (declare (not safe)) - (_%else195517195533%_)))) - (let () - (declare (not safe)) - (_%else195517195533%_)))))) - (__tmp196188 + (if ((lambda (_%g194451194453%_) + (eq? _%g194451194453%_ + _%id194410%_)) + _%e194423194449%_) + (_%K194419194437%_) + (_%else194417194433%_))) + (_%else194417194433%_))) + (_%else194417194433%_))))) + (__tmp195057 (##structure-ref - _%ctx195509%_ + _%ctx194409%_ '9 gx#module-context::t '#f))) (declare (not safe)) - (__find __tmp196189 __tmp196188)))) - (if _%$e195556%_ + (__find __tmp195058 __tmp195057)))) + (if _%$e194456%_ (let () (declare (not safe)) - (gx#core-resolve-module-export _%$e195556%_)) - (let () '#f))))) + (gx#core-resolve-module-export _%$e194456%_)) + '#f)))) (define gxc#find-runtime-symbol - (lambda (_%ctx195500%_ _%id195501%_) - (let ((_%$e195503%_ - (let () - (declare (not safe)) - (gxc#find-export-binding _%ctx195500%_ _%id195501%_)))) - (if _%$e195503%_ - ((lambda (_%bind195506%_) + (lambda (_%ctx194400%_ _%id194401%_) + (let ((_%$e194403%_ + (gxc#find-export-binding _%ctx194400%_ _%id194401%_))) + (if _%$e194403%_ + ((lambda (_%bind194406%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind195506%_ + _%bind194406%_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _%id195501%_))) - (##structure-ref _%bind195506%_ '1 gx#binding::t '#f)) - _%$e195503%_) - (let ((__tmp196190 + _%id194401%_))) + (##structure-ref _%bind194406%_ '1 gx#binding::t '#f)) + _%$e194403%_) + (let ((__tmp195059 (##structure-ref - _%ctx195500%_ + _%ctx194400%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp196190 - _%id195501%_)))))) + __tmp195059 + _%id194401%_)))))) (define gxc#find-runtime-module-deps - (lambda (_%ctx195366%_) - (letrec* ((_%ht195368%_ + (lambda (_%ctx194266%_) + (letrec* ((_%ht194268%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%import-set-template195369%_ - (lambda (_%in195445%_ _%phi195446%_) - (let ((_%iphi195448%_ - (fx+ _%phi195446%_ + (_%import-set-template194269%_ + (lambda (_%in194345%_ _%phi194346%_) + (let ((_%iphi194348%_ + (fx+ _%phi194346%_ (##direct-structure-ref - _%in195445%_ + _%in194345%_ '2 gx#import-set::t '#f))) - (_%imports195449%_ + (_%imports194349%_ (##structure-ref (##direct-structure-ref - _%in195445%_ + _%in194345%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp195451%_ ((_%rest195453%_ _%imports195449%_) - (_%r195454%_ '())) - (let* ((_%rest195455195463%_ _%rest195453%_) - (_%else195457195471%_ (lambda () _%r195454%_)) - (_%K195459195488%_ - (lambda (_%rest195474%_ _%in195475%_) + (let _%lp194351%_ ((_%rest194353%_ _%imports194349%_) + (_%r194354%_ '())) + (let* ((_%rest194355194363%_ _%rest194353%_) + (_%else194357194371%_ (lambda () _%r194354%_)) + (_%K194359194388%_ + (lambda (_%rest194374%_ _%in194375%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in195475%_ + _%in194375%_ 'gx#module-context::t)) - (let () - (if (let () - (declare (not safe)) - (##fxzero? _%iphi195448%_)) - (let ((__tmp196191 - (cons _%in195475%_ - _%r195454%_))) - (declare (not safe)) - (_%lp195451%_ - _%rest195474%_ - __tmp196191)) - (let () - (declare (not safe)) - (_%lp195451%_ - _%rest195474%_ - _%r195454%_)))) + (if (let () + (declare (not safe)) + (##fxzero? _%iphi194348%_)) + (_%lp194351%_ + _%rest194374%_ + (cons _%in194375%_ _%r194354%_)) + (_%lp194351%_ + _%rest194374%_ + _%r194354%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in195475%_ + _%in194375%_ 'gx#module-import::t)) - (let ((_%iphi195479%_ - (fx+ _%phi195446%_ + (let ((_%iphi194379%_ + (fx+ _%phi194346%_ (##direct-structure-ref - _%in195475%_ + _%in194375%_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi195479%_)) - (let ((__tmp196192 - (cons (##direct-structure-ref - (##direct-structure-ref - _%in195475%_ - '1 - gx#module-import::t - '#f) - '1 - gx#module-export::t - '#f) - _%r195454%_))) - (declare (not safe)) - (_%lp195451%_ - _%rest195474%_ - __tmp196192)) - (let () - (declare (not safe)) - (_%lp195451%_ - _%rest195474%_ - _%r195454%_)))) + (##fxzero? _%iphi194379%_)) + (_%lp194351%_ + _%rest194374%_ + (cons (##direct-structure-ref + (##direct-structure-ref + _%in194375%_ + '1 + gx#module-import::t + '#f) + '1 + gx#module-export::t + '#f) + _%r194354%_)) + (_%lp194351%_ + _%rest194374%_ + _%r194354%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in195475%_ + _%in194375%_ 'gx#import-set::t)) - (let ((_%xphi195482%_ - (fx+ _%iphi195448%_ + (let ((_%xphi194382%_ + (fx+ _%iphi194348%_ (##direct-structure-ref - _%in195475%_ + _%in194375%_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) (##fxzero? - _%xphi195482%_)) - (let ((__tmp196193 - (cons (##direct-structure-ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in195475%_ - '1 - gx#import-set::t - '#f) - _%r195454%_))) - (declare (not safe)) - (_%lp195451%_ _%rest195474%_ __tmp196193)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%xphi194382%_)) + (_%lp194351%_ + _%rest194374%_ + (cons (##direct-structure-ref + _%in194375%_ + '1 + gx#import-set::t + '#f) + _%r194354%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi195482%_)) - (let ((__tmp196194 - (let ((__tmp196195 + _%xphi194382%_)) + (_%lp194351%_ + _%rest194374%_ + (let ((__tmp195060 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (_%import-set-template195369%_ - _%in195475%_ - _%iphi195448%_)))) - (declare (not safe)) - (__foldl1 cons _%r195454%_ __tmp196195)))) - (declare (not safe)) - (_%lp195451%_ _%rest195474%_ __tmp196194)) - (let () - (declare (not safe)) - (_%lp195451%_ _%rest195474%_ _%r195454%_))))) + (_%import-set-template194269%_ + _%in194375%_ + _%iphi194348%_))) + (declare (not safe)) + (__foldl1 cons _%r194354%_ __tmp195060))) + (_%lp194351%_ _%rest194374%_ _%r194354%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%lp195451%_ - _%rest195474%_ - _%r195454%_)))))))) + (_%lp194351%_ + _%rest194374%_ + _%r194354%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest195455195463%_)) - (let ((_%hd195460195491%_ + (##pair? _%rest194355194363%_)) + (let ((_%hd194360194391%_ (let () (declare (not safe)) - (##car _%rest195455195463%_))) - (_%tl195461195493%_ + (##car _%rest194355194363%_))) + (_%tl194361194393%_ (let () (declare (not safe)) - (##cdr _%rest195455195463%_)))) - (let* ((_%in195496%_ _%hd195460195491%_) - (_%rest195498%_ _%tl195461195493%_)) - (declare (not safe)) - (_%K195459195488%_ - _%rest195498%_ - _%in195496%_))) - (let () - (declare (not safe)) - (_%else195457195471%_)))))))) - (_%find-deps195370%_ - (lambda (_%rest195378%_ _%deps195379%_) - (let* ((_%rest195380195388%_ _%rest195378%_) - (_%else195382195396%_ (lambda () _%deps195379%_)) - (_%K195384195433%_ - (lambda (_%rest195399%_ _%hd195400%_) + (##cdr _%rest194355194363%_)))) + (let* ((_%in194396%_ _%hd194360194391%_) + (_%rest194398%_ _%tl194361194393%_)) + (_%K194359194388%_ + _%rest194398%_ + _%in194396%_))) + (_%else194357194371%_))))))) + (_%find-deps194270%_ + (lambda (_%rest194278%_ _%deps194279%_) + (let* ((_%rest194280194288%_ _%rest194278%_) + (_%else194282194296%_ (lambda () _%deps194279%_)) + (_%K194284194333%_ + (lambda (_%rest194299%_ _%hd194300%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd195400%_ + _%hd194300%_ 'gx#module-context::t)) - (let ((_%id195403%_ + (let ((_%id194303%_ (##structure-ref - _%hd195400%_ + _%hd194300%_ '1 gx#expander-context::t '#f)) - (_%imports195404%_ + (_%imports194304%_ (##structure-ref - _%hd195400%_ + _%hd194300%_ '8 gx#module-context::t '#f))) (if (let () (declare (not safe)) (hash-get - _%ht195368%_ - _%id195403%_)) - (let () - (declare (not safe)) - (_%find-deps195370%_ - _%rest195399%_ - _%deps195379%_)) - (let ((_%$e195407%_ + _%ht194268%_ + _%id194303%_)) + (_%find-deps194270%_ + _%rest194299%_ + _%deps194279%_) + (let ((_%$e194307%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd195400%_)))) - (if _%$e195407%_ - ((lambda (_%pre195410%_) - (let ((_%xdeps195412%_ - (let ((__tmp196196 - (cons _%pre195410%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%imports195404%_))) - (declare (not safe)) - (_%find-deps195370%_ __tmp196196 _%deps195379%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd194300%_)))) + (if _%$e194307%_ + ((lambda (_%pre194310%_) + (let ((_%xdeps194312%_ + (_%find-deps194270%_ + (cons _%pre194310%_ + _%imports194304%_) + _%deps194279%_))) (let () (declare (not safe)) (hash-put! - _%ht195368%_ - _%id195403%_ - _%hd195400%_)) - (let ((__tmp196197 - (cons _%hd195400%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%xdeps195412%_))) - (declare (not safe)) - (_%find-deps195370%_ _%rest195399%_ __tmp196197)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e195407%_) - (let ((_%xdeps195415%_ - (let () - (declare (not safe)) - (_%find-deps195370%_ - _%imports195404%_ - _%deps195379%_)))) + _%ht194268%_ + _%id194303%_ + _%hd194300%_)) + (_%find-deps194270%_ + _%rest194299%_ + (cons _%hd194300%_ + _%xdeps194312%_)))) + _%$e194307%_) + (let ((_%xdeps194315%_ + (_%find-deps194270%_ + _%imports194304%_ + _%deps194279%_))) (let () (declare (not safe)) (hash-put! - _%ht195368%_ - _%id195403%_ - _%hd195400%_)) - (let ((__tmp196198 - (cons _%hd195400%_ - _%xdeps195415%_))) - (declare (not safe)) - (_%find-deps195370%_ - _%rest195399%_ - __tmp196198))))))) + _%ht194268%_ + _%id194303%_ + _%hd194300%_)) + (_%find-deps194270%_ + _%rest194299%_ + (cons _%hd194300%_ + _%xdeps194315%_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd195400%_ + _%hd194300%_ 'gx#prelude-context::t)) - (let ((_%id195418%_ + (let ((_%id194318%_ (##structure-ref - _%hd195400%_ + _%hd194300%_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (hash-get - _%ht195368%_ - _%id195418%_)) - (let () - (declare (not safe)) - (_%find-deps195370%_ - _%rest195399%_ - _%deps195379%_)) - (let ((_%xdeps195422%_ - (let ((__tmp196199 - (##structure-ref - _%hd195400%_ - '7 - gx#prelude-context::t - '#f))) - (declare (not safe)) - (_%find-deps195370%_ - __tmp196199 - _%deps195379%_)))) + _%ht194268%_ + _%id194318%_)) + (_%find-deps194270%_ + _%rest194299%_ + _%deps194279%_) + (let ((_%xdeps194322%_ + (_%find-deps194270%_ + (##structure-ref + _%hd194300%_ + '7 + gx#prelude-context::t + '#f) + _%deps194279%_))) (if (let () (declare (not safe)) (hash-get - _%ht195368%_ - _%id195418%_)) - (let () - (declare (not safe)) - (_%find-deps195370%_ - _%rest195399%_ - _%xdeps195422%_)) + _%ht194268%_ + _%id194318%_)) + (_%find-deps194270%_ + _%rest194299%_ + _%xdeps194322%_) (begin (let () (declare (not safe)) - (hash-put! - _%ht195368%_ - _%id195418%_ - _%hd195400%_)) - (let ((__tmp196200 - (cons _%hd195400%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%xdeps195422%_))) - (declare (not safe)) - (_%find-deps195370%_ _%rest195399%_ __tmp196200))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (hash-put! + _%ht194268%_ + _%id194318%_ + _%hd194300%_)) + (_%find-deps194270%_ + _%rest194299%_ + (cons _%hd194300%_ + _%xdeps194322%_))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd195400%_ + _%hd194300%_ 'gx#module-import::t)) - (let () - (if (fxzero? (##direct-structure-ref - _%hd195400%_ - '3 - gx#module-import::t - '#f)) - (let ((__tmp196201 - (cons (##direct-structure-ref - _%hd195400%_ - '1 - gx#module-import::t - '#f) - _%rest195399%_))) - (declare (not safe)) - (_%find-deps195370%_ - __tmp196201 - _%deps195379%_)) - (let () - (declare (not safe)) - (_%find-deps195370%_ - _%rest195399%_ - _%deps195379%_)))) + (if (fxzero? (##direct-structure-ref + _%hd194300%_ + '3 + gx#module-import::t + '#f)) + (_%find-deps194270%_ + (cons (##direct-structure-ref + _%hd194300%_ + '1 + gx#module-import::t + '#f) + _%rest194299%_) + _%deps194279%_) + (_%find-deps194270%_ + _%rest194299%_ + _%deps194279%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd195400%_ + _%hd194300%_ 'gx#module-export::t)) - (let ((__tmp196202 - (cons (##direct-structure-ref - _%hd195400%_ - '1 - gx#module-export::t - '#f) - _%rest195399%_))) - (declare (not safe)) - (_%find-deps195370%_ - __tmp196202 - _%deps195379%_)) + (_%find-deps194270%_ + (cons (##direct-structure-ref + _%hd194300%_ + '1 + gx#module-export::t + '#f) + _%rest194299%_) + _%deps194279%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd195400%_ + _%hd194300%_ 'gx#import-set::t)) - (let () - (if (fxzero? (##direct-structure-ref + (if (fxzero? (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd195400%_ - '2 - gx#import-set::t - '#f)) - (let ((__tmp196203 - (cons (##direct-structure-ref - _%hd195400%_ - '1 - gx#import-set::t - '#f) - _%rest195399%_))) - (declare (not safe)) - (_%find-deps195370%_ __tmp196203 _%deps195379%_)) - (if (fxpositive? - (##direct-structure-ref - _%hd195400%_ - '2 + _%hd194300%_ + '2 + gx#import-set::t + '#f)) + (_%find-deps194270%_ + (cons (##direct-structure-ref + _%hd194300%_ + '1 gx#import-set::t - '#f)) - (let () - (let* ((_%xdeps195429%_ - (let () - (declare (not safe)) - (_%import-set-template195369%_ - _%hd195400%_ - '0))) - (__tmp196204 - (let () - (declare (not safe)) - (__foldl1 - cons - _%rest195399%_ - _%xdeps195429%_)))) - (declare (not safe)) - (_%find-deps195370%_ __tmp196204 _%deps195379%_))) - (let () - (declare (not safe)) - (_%find-deps195370%_ _%rest195399%_ _%deps195379%_))))) + '#f) + _%rest194299%_) + _%deps194279%_) + (if (fxpositive? + (##direct-structure-ref + _%hd194300%_ + '2 + gx#import-set::t + '#f)) + (let ((_%xdeps194329%_ + (_%import-set-template194269%_ _%hd194300%_ '0))) + (_%find-deps194270%_ + (let () + (declare (not safe)) + (__foldl1 cons _%rest194299%_ _%xdeps194329%_)) + _%deps194279%_)) + (_%find-deps194270%_ _%rest194299%_ _%deps194279%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (error '"Unexpected module import" - _%hd195400%_)))))))))) + _%hd194300%_)))))))))) (if (let () (declare (not safe)) - (##pair? _%rest195380195388%_)) - (let ((_%hd195385195436%_ + (##pair? _%rest194280194288%_)) + (let ((_%hd194285194336%_ (let () (declare (not safe)) - (##car _%rest195380195388%_))) - (_%tl195386195438%_ + (##car _%rest194280194288%_))) + (_%tl194286194338%_ (let () (declare (not safe)) - (##cdr _%rest195380195388%_)))) - (let* ((_%hd195441%_ _%hd195385195436%_) - (_%rest195443%_ _%tl195386195438%_)) - (declare (not safe)) - (_%K195384195433%_ - _%rest195443%_ - _%hd195441%_))) - (let () - (declare (not safe)) - (_%else195382195396%_))))))) - (let ((__tmp196205 + (##cdr _%rest194280194288%_)))) + (let* ((_%hd194341%_ _%hd194285194336%_) + (_%rest194343%_ _%tl194286194338%_)) + (_%K194284194333%_ + _%rest194343%_ + _%hd194341%_))) + (_%else194282194296%_)))))) + (let ((__tmp195061 (filter gx#expander-context-id - (let ((__tmp196206 - (let ((_%$e195372%_ - (let () - (declare (not safe)) - (gx#core-context-prelude__% - _%ctx195366%_)))) - (if _%$e195372%_ - ((lambda (_%pre195375%_) - (cons _%pre195375%_ - (##structure-ref - _%ctx195366%_ - '8 - gx#module-context::t - '#f))) - _%$e195372%_) - (let () - (##structure-ref - _%ctx195366%_ - '8 - gx#module-context::t - '#f)))))) - (declare (not safe)) - (_%find-deps195370%_ __tmp196206 '()))))) + (_%find-deps194270%_ + (let ((_%$e194272%_ + (let () + (declare (not safe)) + (gx#core-context-prelude__% + _%ctx194266%_)))) + (if _%$e194272%_ + ((lambda (_%pre194275%_) + (cons _%pre194275%_ + (##structure-ref + _%ctx194266%_ + '8 + gx#module-context::t + '#f))) + _%$e194272%_) + (##structure-ref + _%ctx194266%_ + '8 + gx#module-context::t + '#f))) + '())))) (declare (not safe)) - (##reverse __tmp196205))))) + (##reverse __tmp195061))))) (define gxc#find-static-module-file - (lambda (_%ctx195296%_) - (let* ((_%context-id195298%_ + (lambda (_%ctx194196%_) + (let* ((_%context-id194198%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%ctx195296%_ + _%ctx194196%_ 'gx#module-context::t)) (##structure-ref - _%ctx195296%_ + _%ctx194196%_ '1 gx#expander-context::t '#f) - (string->symbol _%ctx195296%_))) - (_%scm195300%_ - (let ((__tmp196207 - (let () - (declare (not safe)) - (gxc#static-module-name _%context-id195298%_)))) + (string->symbol _%ctx194196%_))) + (_%scm194200%_ + (let ((__tmp195062 + (gxc#static-module-name _%context-id194198%_))) (declare (not safe)) - (##string-append __tmp196207 '".scm"))) - (_%dirs195302%_ (let () (declare (not safe)) (load-path))) - (_%dirs195308%_ - (let ((_%user-libpath195304%_ + (##string-append __tmp195062 '".scm"))) + (_%dirs194202%_ (let () (declare (not safe)) (load-path))) + (_%dirs194208%_ + (let ((_%user-libpath194204%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%user-libpath195304%_ - (let ((_%user-libpath195306%_ - (path-expand '"lib" _%user-libpath195304%_))) + (if _%user-libpath194204%_ + (let ((_%user-libpath194206%_ + (path-expand '"lib" _%user-libpath194204%_))) (if (let () (declare (not safe)) - (##member _%user-libpath195306%_ _%dirs195302%_)) - _%dirs195302%_ - (cons _%user-libpath195306%_ _%dirs195302%_))) - _%dirs195302%_))) - (_%dirs195318%_ - (let ((_%$e195310%_ + (##member _%user-libpath194206%_ _%dirs194202%_)) + _%dirs194202%_ + (cons _%user-libpath194206%_ _%dirs194202%_))) + _%dirs194202%_))) + (_%dirs194218%_ + (let ((_%$e194210%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e195310%_ - ((lambda (_%g195312195314%_) - (cons _%g195312195314%_ _%dirs195308%_)) - _%$e195310%_) - (let () _%dirs195308%_)))) - (_%dirs195324%_ - (map (lambda (_%g195319195321%_) - (path-expand '"static" _%g195319195321%_)) - _%dirs195318%_))) - (let _%lp195327%_ ((_%rest195329%_ _%dirs195324%_)) - (let* ((_%rest195330195338%_ _%rest195329%_) - (_%else195332195346%_ + (if _%$e194210%_ + ((lambda (_%g194212194214%_) + (cons _%g194212194214%_ _%dirs194208%_)) + _%$e194210%_) + _%dirs194208%_))) + (_%dirs194224%_ + (map (lambda (_%g194219194221%_) + (path-expand '"static" _%g194219194221%_)) + _%dirs194218%_))) + (let _%lp194227%_ ((_%rest194229%_ _%dirs194224%_)) + (let* ((_%rest194230194238%_ _%rest194229%_) + (_%else194232194246%_ (lambda () - (let ((__tmp196208 + (let ((__tmp195063 (##structure-ref - _%ctx195296%_ + _%ctx194196%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp196208 - _%scm195300%_)))) - (_%K195334195354%_ - (lambda (_%rest195349%_ _%dir195350%_) - (let ((_%path195352%_ - (path-expand _%scm195300%_ _%dir195350%_))) + __tmp195063 + _%scm194200%_)))) + (_%K194234194254%_ + (lambda (_%rest194249%_ _%dir194250%_) + (let ((_%path194252%_ + (path-expand _%scm194200%_ _%dir194250%_))) (if (let () (declare (not safe)) - (##file-exists? _%path195352%_)) - _%path195352%_ - (let () - (declare (not safe)) - (_%lp195327%_ _%rest195349%_))))))) - (if (let () (declare (not safe)) (##pair? _%rest195330195338%_)) - (let ((_%hd195335195357%_ + (##file-exists? _%path194252%_)) + _%path194252%_ + (_%lp194227%_ _%rest194249%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest194230194238%_)) + (let ((_%hd194235194257%_ (let () (declare (not safe)) - (##car _%rest195330195338%_))) - (_%tl195336195359%_ + (##car _%rest194230194238%_))) + (_%tl194236194259%_ (let () (declare (not safe)) - (##cdr _%rest195330195338%_)))) - (let* ((_%dir195362%_ _%hd195335195357%_) - (_%rest195364%_ _%tl195336195359%_)) - (declare (not safe)) - (_%K195334195354%_ _%rest195364%_ _%dir195362%_))) - (let () (declare (not safe)) (_%else195332195346%_)))))))) + (##cdr _%rest194230194238%_)))) + (let* ((_%dir194262%_ _%hd194235194257%_) + (_%rest194264%_ _%tl194236194259%_)) + (_%K194234194254%_ _%rest194264%_ _%dir194262%_))) + (_%else194232194246%_))))))) (define gxc#file-empty? - (lambda (_%path195294%_) - (zero? (let ((__tmp196209 (file-info _%path195294%_ '#t))) + (lambda (_%path194194%_) + (zero? (let ((__tmp195064 (file-info _%path194194%_ '#t))) (declare (not safe)) - (##file-info-size __tmp196209))))) + (##file-info-size __tmp195064))))) (define gxc#compile-top-module - (lambda (_%ctx195283%_) - (let ((__tmp196213 + (lambda (_%ctx194183%_) + (let ((__tmp195068 (lambda () - (let ((__tmp196214 + (let ((__tmp195069 (##structure-ref - _%ctx195283%_ + _%ctx194183%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp196214)) + (gxc#verbose '"compile " __tmp195069)) (if (let () (declare (not safe)) (gxc#current-compile-optimize)) - (let ((__tmp196215 + (let ((__tmp195070 (lambda () (let () (declare (not safe)) - (gxc#optimize! _%ctx195283%_))))) + (gxc#optimize! _%ctx194183%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp196215)) + (__with-lock gxc#+driver-mutex+ __tmp195070)) '#!void) - (let () - (declare (not safe)) - (gxc#collect-bindings _%ctx195283%_)) - (if (let ((__tmp196216 - (let () - (declare (not safe)) - (gxc#lift-nested-modules _%ctx195283%_)))) - (declare (not safe)) - (null? __tmp196216)) - (let* ((_%thr1195288%_ - (let ((__tmp196217 + (gxc#collect-bindings _%ctx194183%_) + (if (null? (gxc#lift-nested-modules _%ctx194183%_)) + (let* ((_%thr1194188%_ + (let ((__tmp195071 (lambda () - (let () - (declare (not safe)) - (gxc#compile-runtime-code - _%ctx195283%_))))) + (gxc#compile-runtime-code + _%ctx194183%_)))) (declare (not safe)) - (__spawn __tmp196217))) - (_%thr2195291%_ - (let ((__tmp196218 + (__spawn __tmp195071))) + (_%thr2194191%_ + (let ((__tmp195072 (lambda () - (let () - (declare (not safe)) - (gxc#compile-meta-code - _%ctx195283%_))))) + (gxc#compile-meta-code _%ctx194183%_)))) (declare (not safe)) - (__spawn __tmp196218)))) - (let () (declare (not safe)) (gxc#join! _%thr1195288%_)) - (let () - (declare (not safe)) - (gxc#join! _%thr2195291%_))) + (__spawn __tmp195072)))) + (gxc#join! _%thr1194188%_) + (gxc#join! _%thr2194191%_)) (begin - (let () - (declare (not safe)) - (gxc#compile-runtime-code _%ctx195283%_)) - (let () - (declare (not safe)) - (gxc#compile-meta-code _%ctx195283%_)))) + (gxc#compile-runtime-code _%ctx194183%_) + (gxc#compile-meta-code _%ctx194183%_))) (if (and (let () (declare (not safe)) (gxc#current-compile-optimize)) (let () (declare (not safe)) (gxc#current-compile-generate-ssxi))) - (let () - (declare (not safe)) - (gxc#compile-ssxi-code _%ctx195283%_)) + (gxc#compile-ssxi-code _%ctx194183%_) '#!void))) - (__tmp196212 - (let ((__obj196086 + (__tmp195067 + (let ((__obj194986 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) - (gxc#symbol-table:::init! __obj196086) - __obj196086)) - (__tmp196211 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp196210 + (gxc#symbol-table:::init! __obj194986) + __obj194986)) + (__tmp195066 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp195065 (let () (declare (not safe)) (make-hash-table__% @@ -2194,922 +1840,776 @@ absent-value)))) (declare (not safe)) (__call-with-parameters - __tmp196213 + __tmp195068 gx#current-expander-context - _%ctx195283%_ + _%ctx194183%_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp196212 + __tmp195067 gxc#current-compile-runtime-sections - __tmp196211 + __tmp195066 gxc#current-compile-runtime-names - __tmp196210)))) + __tmp195065)))) (define gxc#collect-bindings - (lambda (_%ctx195281%_) - (let ((__tmp196219 - (##structure-ref _%ctx195281%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx194181%_) + (let ((__tmp195073 + (##structure-ref _%ctx194181%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp196219)))) + (gxc#apply-collect-bindings __tmp195073)))) (define gxc#compile-runtime-code - (lambda (_%ctx195225%_) - (letrec ((_%compile1195227%_ - (lambda (_%ctx195268%_) - (let* ((_%code195270%_ + (lambda (_%ctx194125%_) + (letrec ((_%compile1194127%_ + (lambda (_%ctx194168%_) + (let* ((_%code194170%_ (##structure-ref - _%ctx195268%_ + _%ctx194168%_ '11 gx#module-context::t '#f)) - (_%rt195274%_ + (_%rt194174%_ (if (let () (declare (not safe)) - (gxc#apply-find-runtime-code _%code195270%_)) - (let ((_%idstr195272%_ - (let ((__tmp196220 + (gxc#apply-find-runtime-code _%code194170%_)) + (let ((_%idstr194172%_ + (let ((__tmp195074 (##structure-ref - _%ctx195268%_ + _%ctx194168%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp196220)))) + __tmp195074)))) (declare (not safe)) - (##string-append _%idstr195272%_ '"~0")) + (##string-append _%idstr194172%_ '"~0")) '#f))) - (if _%rt195274%_ + (if _%rt194174%_ (let () - (let ((__tmp196221 + (let ((__tmp195075 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-put! - __tmp196221 - _%ctx195268%_ - _%rt195274%_)) - (let () - (declare (not safe)) - (_%generate-runtime-code195229%_ - _%ctx195268%_ - _%code195270%_))) - (let ((_%path195279%_ - (let () - (declare (not safe)) - (gxc#compile-static-output-file - _%ctx195268%_)))) - (declare (not safe)) + __tmp195075 + _%ctx194168%_ + _%rt194174%_)) + (_%generate-runtime-code194129%_ + _%ctx194168%_ + _%code194170%_)) + (let ((_%path194179%_ + (gxc#compile-static-output-file + _%ctx194168%_))) (gxc#with-output-to-scheme-file - _%path195279%_ + _%path194179%_ void))) - (let () - (declare (not safe)) - (_%generate-loader-code195230%_ - _%ctx195268%_ - _%code195270%_ - _%rt195274%_))))) - (_%context-timestamp195228%_ - (lambda (_%ctx195266%_) - (let ((__tmp196222 - (let ((__tmp196223 + (_%generate-loader-code194130%_ + _%ctx194168%_ + _%code194170%_ + _%rt194174%_)))) + (_%context-timestamp194128%_ + (lambda (_%ctx194166%_) + (let ((__tmp195076 + (let ((__tmp195077 (symbol->string (##structure-ref - _%ctx195266%_ + _%ctx194166%_ '1 gx#expander-context::t '#f)))) (declare (not safe)) - (##string-append __tmp196223 '"::timestamp")))) + (##string-append __tmp195077 '"::timestamp")))) (declare (not safe)) - (##string->symbol __tmp196222)))) - (_%generate-runtime-code195229%_ - (lambda (_%ctx195248%_ _%code195249%_) - (let* ((_%lifts195251%_ (box '())) - (_%runtime-code195254%_ - (let ((__tmp196226 + (##string->symbol __tmp195076)))) + (_%generate-runtime-code194129%_ + (lambda (_%ctx194148%_ _%code194149%_) + (let* ((_%lifts194151%_ (box '())) + (_%runtime-code194154%_ + (let ((__tmp195080 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _%code195249%_)))) - (__tmp196225 + _%code194149%_)))) + (__tmp195079 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp196224 + (__tmp195078 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp196226 + __tmp195080 gx#current-expander-context - _%ctx195248%_ + _%ctx194148%_ gx#current-expander-phi '0 gxc#current-compile-lift - _%lifts195251%_ + _%lifts194151%_ gxc#current-compile-marks - __tmp196225 + __tmp195079 gxc#current-compile-identifiers - __tmp196224))) - (_%runtime-code195256%_ - (if (let ((__tmp196227 (unbox _%lifts195251%_))) - (declare (not safe)) - (null? __tmp196227)) - _%runtime-code195254%_ + __tmp195078))) + (_%runtime-code194156%_ + (if (null? (unbox _%lifts194151%_)) + _%runtime-code194154%_ (cons 'begin - (let ((__tmp196229 - (cons _%runtime-code195254%_ '())) - (__tmp196228 - (reverse (unbox _%lifts195251%_)))) + (let ((__tmp195082 + (cons _%runtime-code194154%_ '())) + (__tmp195081 + (reverse (unbox _%lifts194151%_)))) (declare (not safe)) (__foldr1 cons - __tmp196229 - __tmp196228))))) - (_%runtime-code195258%_ + __tmp195082 + __tmp195081))))) + (_%runtime-code194158%_ (cons 'begin (cons (cons 'define - (cons (let () - (declare (not safe)) - (_%context-timestamp195228%_ - _%ctx195248%_)) + (cons (_%context-timestamp194128%_ + _%ctx194148%_) (cons (let () (declare (not safe)) (gxc#current-compile-timestamp)) '()))) - (cons _%runtime-code195256%_ '())))) - (_%scm0195260%_ - (let () - (declare (not safe)) - (gxc#compile-output-file - _%ctx195248%_ - '0 - '".scm"))) - (_%scms195263%_ - (let () - (declare (not safe)) - (gxc#compile-static-output-file _%ctx195248%_)))) - (let ((__tmp196230 + (cons _%runtime-code194156%_ '())))) + (_%scm0194160%_ + (gxc#compile-output-file _%ctx194148%_ '0 '".scm")) + (_%scms194163%_ + (gxc#compile-static-output-file _%ctx194148%_))) + (let ((__tmp195083 (lambda () - (let () - (declare (not safe)) - (gxc#compile-scm-file__0 - _%scm0195260%_ - _%runtime-code195258%_))))) + (gxc#compile-scm-file__0 + _%scm0194160%_ + _%runtime-code194158%_)))) (declare (not safe)) (__call-with-parameters - __tmp196230 + __tmp195083 gxc#current-compile-keep-scm '#t)) - (if (file-exists? _%scms195263%_) - (delete-file _%scms195263%_) + (if (file-exists? _%scms194163%_) + (delete-file _%scms194163%_) '#!void) (let () (declare (not safe)) (gxc#verbose '"copy static module " - _%scm0195260%_ + _%scm0194160%_ '" => " - _%scms195263%_)) - (copy-file _%scm0195260%_ _%scms195263%_) + _%scms194163%_)) + (copy-file _%scm0194160%_ _%scms194163%_) (if (let () (declare (not safe)) (gxc#current-compile-keep-scm)) '#!void - (delete-file _%scm0195260%_))))) - (_%generate-loader-code195230%_ - (lambda (_%ctx195237%_ _%code195238%_ _%rt195239%_) - (let* ((_%loader-code195242%_ - (let ((__tmp196231 + (delete-file _%scm0194160%_))))) + (_%generate-loader-code194130%_ + (lambda (_%ctx194137%_ _%code194138%_ _%rt194139%_) + (let* ((_%loader-code194142%_ + (let ((__tmp195084 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _%code195238%_))))) + _%code194138%_))))) (declare (not safe)) (__call-with-parameters - __tmp196231 + __tmp195084 gx#current-expander-context - _%ctx195237%_))) - (_%loader-code195244%_ - (if _%rt195239%_ + _%ctx194137%_))) + (_%loader-code194144%_ + (if _%rt194139%_ (cons 'begin - (cons _%loader-code195242%_ + (cons _%loader-code194142%_ (cons (cons 'load-module - (cons _%rt195239%_ + (cons _%rt194139%_ '())) '()))) - _%loader-code195242%_)) - (__tmp196232 + _%loader-code194142%_)) + (__tmp195085 (lambda () - (let ((__tmp196233 - (let () - (declare (not safe)) - (gxc#compile-output-file - _%ctx195237%_ - '#f - '".scm")))) - (declare (not safe)) - (gxc#compile-scm-file__0 - __tmp196233 - _%loader-code195244%_))))) + (gxc#compile-scm-file__0 + (gxc#compile-output-file + _%ctx194137%_ + '#f + '".scm") + _%loader-code194144%_)))) (declare (not safe)) (__call-with-parameters - __tmp196232 + __tmp195085 gxc#current-compile-gsc-options '#f))))) - (let* ((_%all-modules195232%_ - (cons _%ctx195225%_ - (let () - (declare (not safe)) - (gxc#lift-nested-modules _%ctx195225%_)))) - (__tmp196234 - (lambda (_%ctx195234%_) - (let ((__tmp196235 - (lambda () - (let () - (declare (not safe)) - (_%compile1195227%_ _%ctx195234%_))))) + (let* ((_%all-modules194132%_ + (cons _%ctx194125%_ (gxc#lift-nested-modules _%ctx194125%_))) + (__tmp195086 + (lambda (_%ctx194134%_) + (let ((__tmp195087 + (lambda () (_%compile1194127%_ _%ctx194134%_)))) (declare (not safe)) (__call-with-parameters - __tmp196235 + __tmp195087 gxc#current-compile-decls '()))))) (declare (not safe)) - (##for-each __tmp196234 _%all-modules195232%_))))) + (##for-each __tmp195086 _%all-modules194132%_))))) (define gxc#compile-meta-code - (lambda (_%ctx195120%_) - (letrec ((_%compile-ssi195122%_ - (lambda (_%code195193%_) - (let* ((_%path195195%_ - (let () - (declare (not safe)) - (gxc#compile-output-file - _%ctx195120%_ - '#f - '".ssi"))) - (_%prelude195207%_ - (let* ((_%super195197%_ + (lambda (_%ctx194020%_) + (letrec ((_%compile-ssi194022%_ + (lambda (_%code194093%_) + (let* ((_%path194095%_ + (gxc#compile-output-file + _%ctx194020%_ + '#f + '".ssi")) + (_%prelude194107%_ + (let* ((_%super194097%_ (##structure-ref - _%ctx195120%_ + _%ctx194020%_ '3 gx#phi-context::t '#f)) - (_%$e195199%_ + (_%$e194099%_ (##structure-ref - _%super195197%_ + _%super194097%_ '1 gx#expander-context::t '#f))) - (if _%$e195199%_ - ((lambda (_%g195201195203%_) + (if _%$e194099%_ + ((lambda (_%g194101194103%_) (let () (declare (not safe)) (make-symbol__1 '":" - _%g195201195203%_))) - _%$e195199%_) - (let () ':)))) - (_%ns195209%_ + _%g194101194103%_))) + _%$e194099%_) + ':))) + (_%ns194109%_ (##structure-ref - _%ctx195120%_ + _%ctx194020%_ '6 gx#module-context::t '#f)) - (_%idstr195211%_ + (_%idstr194111%_ (symbol->string (##structure-ref - _%ctx195120%_ + _%ctx194020%_ '1 gx#expander-context::t '#f))) - (_%pkg195219%_ - (let ((_%$e195213%_ + (_%pkg194119%_ + (let ((_%$e194113%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr195211%_ '#\/)))) - (if _%$e195213%_ - ((lambda (_%x195216%_) - (let ((__tmp196236 + (string-rindex__0 _%idstr194111%_ '#\/)))) + (if _%$e194113%_ + ((lambda (_%x194116%_) + (let ((__tmp195088 (substring - _%idstr195211%_ + _%idstr194111%_ '0 - _%x195216%_))) + _%x194116%_))) (declare (not safe)) - (##string->symbol __tmp196236))) - _%$e195213%_) - (let () '#f)))) - (_%rt195221%_ - (let ((__tmp196237 + (##string->symbol __tmp195088))) + _%$e194113%_) + '#f))) + (_%rt194121%_ + (let ((__tmp195089 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) - (hash-get __tmp196237 _%ctx195120%_)))) + (hash-get __tmp195089 _%ctx194020%_)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path195195%_)) - (let ((__tmp196238 - (lambda () - (let () - (declare (not safe)) - (displayln - '"prelude:" - '" " - _%prelude195207%_)) - (if _%pkg195219%_ - (let () - (declare (not safe)) - (displayln - '"package:" - '" " - _%pkg195219%_)) - '#!void) - (let () - (declare (not safe)) - (displayln '"namespace:" '" " _%ns195209%_)) - (newline) - (pretty-print _%code195193%_) - (if _%rt195221%_ - (pretty-print - (cons '%#call - (cons (cons '%#ref - (cons 'load-module '())) - (cons (cons '%#quote - (cons _%rt195221%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '#!void)))) - (declare (not safe)) - (gxc#with-output-to-scheme-file - _%path195195%_ - __tmp196238))))) - (_%compile-phi195123%_ - (lambda (_%part195133%_) - (let* ((_%part195134195147%_ _%part195133%_) - (_%E195136195151%_ + (gxc#verbose '"compile " _%path194095%_)) + (gxc#with-output-to-scheme-file + _%path194095%_ + (lambda () + (let () + (declare (not safe)) + (displayln '"prelude:" '" " _%prelude194107%_)) + (if _%pkg194119%_ + (let () + (declare (not safe)) + (displayln '"package:" '" " _%pkg194119%_)) + '#!void) + (let () + (declare (not safe)) + (displayln '"namespace:" '" " _%ns194109%_)) + (newline) + (pretty-print _%code194093%_) + (if _%rt194121%_ + (pretty-print + (cons '%#call + (cons (cons '%#ref (cons 'load-module '())) + (cons (cons '%#quote + (cons _%rt194121%_ '())) + '())))) + '#!void)))))) + (_%compile-phi194023%_ + (lambda (_%part194033%_) + (let* ((_%part194034194047%_ _%part194033%_) + (_%E194036194051%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%part195134195147%_ + _%part194034194047%_ '([phi-ctx phi n code]))) '#!void)) - (_%K195137195162%_ - (lambda (_%code195154%_ - _%n195155%_ - _%phi195156%_ - _%phi-ctx195157%_) - (let* ((_%code195160%_ - (let ((__tmp196239 - (lambda () - (let () - (declare (not safe)) - (gxc#generate-runtime-phi - _%code195154%_))))) - (declare (not safe)) - (__call-with-parameters - __tmp196239 - gx#current-expander-context - _%phi-ctx195157%_ - gx#current-expander-phi - _%phi195156%_))) - (__tmp196240 - (let () - (declare (not safe)) - (gxc#compile-output-file - _%ctx195120%_ - _%n195155%_ - '".scm")))) - (declare (not safe)) + (_%K194037194062%_ + (lambda (_%code194054%_ + _%n194055%_ + _%phi194056%_ + _%phi-ctx194057%_) + (let ((_%code194060%_ + (let ((__tmp195090 + (lambda () + (gxc#generate-runtime-phi + _%code194054%_)))) + (declare (not safe)) + (__call-with-parameters + __tmp195090 + gx#current-expander-context + _%phi-ctx194057%_ + gx#current-expander-phi + _%phi194056%_)))) (gxc#compile-scm-file__% - __tmp196240 - _%code195160%_ + (gxc#compile-output-file + _%ctx194020%_ + _%n194055%_ + '".scm") + _%code194060%_ '#t))))) (if (let () (declare (not safe)) - (##pair? _%part195134195147%_)) - (let ((_%hd195138195165%_ + (##pair? _%part194034194047%_)) + (let ((_%hd194038194065%_ (let () (declare (not safe)) - (##car _%part195134195147%_))) - (_%tl195139195167%_ + (##car _%part194034194047%_))) + (_%tl194039194067%_ (let () (declare (not safe)) - (##cdr _%part195134195147%_)))) - (let ((_%phi-ctx195170%_ _%hd195138195165%_)) + (##cdr _%part194034194047%_)))) + (let ((_%phi-ctx194070%_ _%hd194038194065%_)) (if (let () (declare (not safe)) - (##pair? _%tl195139195167%_)) - (let ((_%hd195140195172%_ + (##pair? _%tl194039194067%_)) + (let ((_%hd194040194072%_ (let () (declare (not safe)) - (##car _%tl195139195167%_))) - (_%tl195141195174%_ + (##car _%tl194039194067%_))) + (_%tl194041194074%_ (let () (declare (not safe)) - (##cdr _%tl195139195167%_)))) - (let ((_%phi195177%_ _%hd195140195172%_)) + (##cdr _%tl194039194067%_)))) + (let ((_%phi194077%_ _%hd194040194072%_)) (if (let () (declare (not safe)) - (##pair? _%tl195141195174%_)) - (let ((_%hd195142195179%_ + (##pair? _%tl194041194074%_)) + (let ((_%hd194042194079%_ (let () (declare (not safe)) - (##car _%tl195141195174%_))) - (_%tl195143195181%_ + (##car _%tl194041194074%_))) + (_%tl194043194081%_ (let () (declare (not safe)) - (##cdr _%tl195141195174%_)))) - (let ((_%n195184%_ - _%hd195142195179%_)) + (##cdr _%tl194041194074%_)))) + (let ((_%n194084%_ + _%hd194042194079%_)) (if (let () (declare (not safe)) - (##pair? _%tl195143195181%_)) - (let ((_%hd195144195186%_ + (##pair? _%tl194043194081%_)) + (let ((_%hd194044194086%_ (let () (declare (not safe)) - (##car _%tl195143195181%_))) - (_%tl195145195188%_ + (##car _%tl194043194081%_))) + (_%tl194045194088%_ (let () (declare (not safe)) - (##cdr _%tl195143195181%_)))) - (let ((_%code195191%_ - _%hd195144195186%_)) + (##cdr _%tl194043194081%_)))) + (let ((_%code194091%_ + _%hd194044194086%_)) (if (let () (declare (not safe)) - (##null? _%tl195145195188%_)) - (let () - (declare - (not safe)) - (_%K195137195162%_ - _%code195191%_ - _%n195184%_ - _%phi195177%_ - _%phi-ctx195170%_)) - (let () - (declare - (not safe)) - (_%E195136195151%_))))) - (let () - (declare (not safe)) - (_%E195136195151%_))))) - (let () - (declare (not safe)) - (_%E195136195151%_))))) - (let () - (declare (not safe)) - (_%E195136195151%_))))) - (let () - (declare (not safe)) - (_%E195136195151%_))))))) - (let ((_g196241_ - (let () - (declare (not safe)) - (gxc#generate-meta-code _%ctx195120%_)))) + (##null? _%tl194045194088%_)) + (_%K194037194062%_ + _%code194091%_ + _%n194084%_ + _%phi194077%_ + _%phi-ctx194070%_) + (_%E194036194051%_)))) + (_%E194036194051%_)))) + (_%E194036194051%_)))) + (_%E194036194051%_)))) + (_%E194036194051%_)))))) + (let ((_g195091_ (gxc#generate-meta-code _%ctx194020%_))) (begin - (let ((_g196242_ + (let ((_g195092_ (let () (declare (not safe)) - (if (##values? _g196241_) - (##vector-length _g196241_) + (if (##values? _g195091_) + (##vector-length _g195091_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g196242_ 2))) - (error "Context expects 2 values" _g196242_))) - (let ((_%ssi-code195125%_ - (let () (declare (not safe)) (##vector-ref _g196241_ 0))) - (_%phi-code195126%_ - (let () (declare (not safe)) (##vector-ref _g196241_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g195092_ 2))) + (error "Context expects 2 values" _g195092_))) + (let ((_%ssi-code194025%_ + (let () (declare (not safe)) (##vector-ref _g195091_ 0))) + (_%phi-code194026%_ + (let () (declare (not safe)) (##vector-ref _g195091_ 1)))) (begin - (let () - (declare (not safe)) - (_%compile-ssi195122%_ _%ssi-code195125%_)) - (let ((_%threads195131%_ - (map (lambda (_%code195128%_) - (let ((__tmp196243 + (_%compile-ssi194022%_ _%ssi-code194025%_) + (let ((_%threads194031%_ + (map (lambda (_%code194028%_) + (let ((__tmp195093 (lambda () - (let () - (declare (not safe)) - (_%compile-phi195123%_ - _%code195128%_))))) + (_%compile-phi194023%_ + _%code194028%_)))) (declare (not safe)) - (__spawn __tmp196243))) - _%phi-code195126%_))) + (__spawn __tmp195093))) + _%phi-code194026%_))) (declare (not safe)) - (##for-each gxc#join! _%threads195131%_))))))))) + (##for-each gxc#join! _%threads194031%_))))))))) (define gxc#compile-ssxi-code - (lambda (_%ctx195102%_) - (let* ((_%path195104%_ - (let () - (declare (not safe)) - (gxc#compile-output-file _%ctx195102%_ '#f '".ssxi.ss"))) - (_%code195106%_ - (let ((__tmp196244 + (lambda (_%ctx194002%_) + (let* ((_%path194004%_ + (gxc#compile-output-file _%ctx194002%_ '#f '".ssxi.ss")) + (_%code194006%_ + (let ((__tmp195094 (##structure-ref - _%ctx195102%_ + _%ctx194002%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp196244))) - (_%idstr195108%_ + (gxc#apply-generate-ssxi __tmp195094))) + (_%idstr194008%_ (symbol->string (##structure-ref - _%ctx195102%_ + _%ctx194002%_ '1 gx#expander-context::t '#f))) - (_%pkg195116%_ - (let ((_%$e195110%_ + (_%pkg194016%_ + (let ((_%$e194010%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr195108%_ '#\/)))) - (if _%$e195110%_ - ((lambda (_%x195113%_) - (let ((__tmp196245 - (substring _%idstr195108%_ '0 _%x195113%_))) + (string-rindex__0 _%idstr194008%_ '#\/)))) + (if _%$e194010%_ + ((lambda (_%x194013%_) + (let ((__tmp195095 + (substring _%idstr194008%_ '0 _%x194013%_))) (declare (not safe)) - (##string->symbol __tmp196245))) - _%$e195110%_) - (let () '#f))))) + (##string->symbol __tmp195095))) + _%$e194010%_) + '#f)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path195104%_)) - (let ((__tmp196246 - (lambda () - (let () - (declare (not safe)) - (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _%pkg195116%_ - (let () - (declare (not safe)) - (displayln '"package: " _%pkg195116%_)) - '#!void) - (newline) - (pretty-print _%code195106%_)))) - (declare (not safe)) - (gxc#with-output-to-scheme-file _%path195104%_ __tmp196246))))) + (gxc#verbose '"compile " _%path194004%_)) + (gxc#with-output-to-scheme-file + _%path194004%_ + (lambda () + (let () + (declare (not safe)) + (displayln '"prelude: :gerbil/compiler/ssxi")) + (if _%pkg194016%_ + (let () + (declare (not safe)) + (displayln '"package: " _%pkg194016%_)) + '#!void) + (newline) + (pretty-print _%code194006%_)))))) (define gxc#generate-meta-code - (lambda (_%ctx195095%_) - (let* ((_%state195097%_ - (let ((__obj196087 + (lambda (_%ctx193995%_) + (let* ((_%state193997%_ + (let ((__obj194987 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) - (gxc#meta-state:::init! __obj196087 _%ctx195095%_) - __obj196087)) - (_%ssi-code195099%_ - (let ((__tmp196247 + (gxc#meta-state:::init! __obj194987 _%ctx193995%_) + __obj194987)) + (_%ssi-code193999%_ + (let ((__tmp195096 (##structure-ref - _%ctx195095%_ + _%ctx193995%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#apply-generate-meta__% '#f - _%state195097%_ - __tmp196247)))) - (values _%ssi-code195099%_ + _%state193997%_ + __tmp195096)))) + (values _%ssi-code193999%_ (let () (declare (not safe)) - (gxc#meta-state-end! _%state195097%_)))))) + (gxc#meta-state-end! _%state193997%_)))))) (define gxc#generate-runtime-phi - (lambda (_%stx195088%_) - (let ((_%lifts195090%_ (box '()))) - (let ((__tmp196250 + (lambda (_%stx193988%_) + (let ((_%lifts193990%_ (box '()))) + (let ((__tmp195099 (lambda () - (let ((_%code195093%_ + (let ((_%code193993%_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _%stx195088%_)))) - (if (let ((__tmp196251 (unbox _%lifts195090%_))) - (declare (not safe)) - (null? __tmp196251)) - _%code195093%_ + (gxc#apply-generate-runtime-phi _%stx193988%_)))) + (if (null? (unbox _%lifts193990%_)) + _%code193993%_ (cons 'begin - (let ((__tmp196253 (cons _%code195093%_ '())) - (__tmp196252 - (reverse (unbox _%lifts195090%_)))) + (let ((__tmp195101 (cons _%code193993%_ '())) + (__tmp195100 + (reverse (unbox _%lifts193990%_)))) (declare (not safe)) - (__foldr1 cons __tmp196253 __tmp196252))))))) - (__tmp196249 + (__foldr1 cons __tmp195101 __tmp195100))))))) + (__tmp195098 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp196248 + (__tmp195097 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp196250 + __tmp195099 gxc#current-compile-lift - _%lifts195090%_ + _%lifts193990%_ gxc#current-compile-marks - __tmp196249 + __tmp195098 gxc#current-compile-identifiers - __tmp196248))))) + __tmp195097))))) (define gxc#lift-nested-modules - (lambda (_%ctx195084%_) - (let ((_%modules195086%_ (box '()))) - (let ((__tmp196254 - (##structure-ref _%ctx195084%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx193984%_) + (let ((_%modules193986%_ (box '()))) + (let ((__tmp195102 + (##structure-ref _%ctx193984%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules__% '#f _%modules195086%_ __tmp196254)) - (reverse (unbox _%modules195086%_))))) + (gxc#apply-lift-modules__% '#f _%modules193986%_ __tmp195102)) + (reverse (unbox _%modules193986%_))))) (define gxc#compile-scm-file__% - (lambda (_%path195067%_ _%code195068%_ _%phi?195069%_) - (let () (declare (not safe)) (gxc#verbose '"compile " _%path195067%_)) - (let ((__tmp196255 - (lambda () - (pretty-print - (cons 'declare - (cons (cons 'block '()) - (cons (cons 'standard-bindings '()) - (cons (cons 'extended-bindings '()) - (let ((__tmp196256 - (if _%phi?195069%_ - '((inlining-limit 200)) - '()))) - (declare (not safe)) - (__foldr1 - cons - '() - __tmp196256))))))) - (pretty-print _%code195068%_)))) - (declare (not safe)) - (gxc#with-output-to-scheme-file _%path195067%_ __tmp196255)) + (lambda (_%path193967%_ _%code193968%_ _%phi?193969%_) + (let () (declare (not safe)) (gxc#verbose '"compile " _%path193967%_)) + (gxc#with-output-to-scheme-file + _%path193967%_ + (lambda () + (pretty-print + (cons 'declare + (cons (cons 'block '()) + (cons (cons 'standard-bindings '()) + (cons (cons 'extended-bindings '()) + (let ((__tmp195103 + (if _%phi?193969%_ + '((inlining-limit 200)) + '()))) + (declare (not safe)) + (__foldr1 cons '() __tmp195103))))))) + (pretty-print _%code193968%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let () - (declare (not safe)) - (gxc#gsc-compile-file _%path195067%_ _%phi?195069%_)) + (gxc#gsc-compile-file _%path193967%_ _%phi?193969%_) '#!void) (if (let () (declare (not safe)) (gxc#current-compile-keep-scm)) '#!void - (delete-file _%path195067%_)))) + (delete-file _%path193967%_)))) (define gxc#compile-scm-file__0 - (lambda (_%path195075%_ _%code195076%_) - (let ((_%phi?195078%_ '#f)) - (declare (not safe)) + (lambda (_%path193975%_ _%code193976%_) + (let ((_%phi?193978%_ '#f)) (gxc#compile-scm-file__% - _%path195075%_ - _%code195076%_ - _%phi?195078%_)))) + _%path193975%_ + _%code193976%_ + _%phi?193978%_)))) (define gxc#compile-scm-file - (lambda _g196258_ - (let ((_g196257_ (let () (declare (not safe)) (##length _g196258_)))) - (cond ((let () (declare (not safe)) (##fx= _g196257_ 2)) - (apply (lambda (_%path195075%_ _%code195076%_) - (let () - (declare (not safe)) - (gxc#compile-scm-file__0 - _%path195075%_ - _%code195076%_))) - _g196258_)) - ((let () (declare (not safe)) (##fx= _g196257_ 3)) - (apply (lambda (_%path195080%_ _%code195081%_ _%phi?195082%_) - (let () - (declare (not safe)) - (gxc#compile-scm-file__% - _%path195080%_ - _%code195081%_ - _%phi?195082%_))) - _g196258_)) + (lambda _g195105_ + (let ((_g195104_ (let () (declare (not safe)) (##length _g195105_)))) + (cond ((let () (declare (not safe)) (##fx= _g195104_ 2)) + (apply gxc#compile-scm-file__0 _g195105_)) + ((let () (declare (not safe)) (##fx= _g195104_ 3)) + (apply gxc#compile-scm-file__% _g195105_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g196258_)))))) + _g195105_)))))) (define gxc#gsc-link-options__% - (lambda (_%phi?194968%_) - (let _%lp194970%_ ((_%rest194972%_ + (lambda (_%phi?193868%_) + (let _%lp193870%_ ((_%rest193872%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts194973%_ '())) - (let* ((_%rest194974194994%_ _%rest194972%_) - (_%else194978195002%_ + (_%opts193873%_ '())) + (let* ((_%rest193874193894%_ _%rest193872%_) + (_%else193878193902%_ (lambda () - (if (and (let () (declare (not safe)) (not _%phi?194968%_)) + (if (and (not _%phi?193868%_) (let () (declare (not safe)) (gxc#current-compile-debug))) (cons '"-debug-source" - (cons '"-track-scheme" (reverse _%opts194973%_))) - (reverse _%opts194973%_))))) - (let ((_%K194988195045%_ - (lambda (_%rest195043%_) - (let () - (declare (not safe)) - (_%lp194970%_ _%rest195043%_ _%opts194973%_)))) - (_%K194983195027%_ - (lambda (_%rest195025%_) - (let () - (declare (not safe)) - (_%lp194970%_ _%rest195025%_ _%opts194973%_)))) - (_%K194980195009%_ - (lambda (_%rest195006%_ _%opt195007%_) - (let ((__tmp196259 (cons _%opt195007%_ _%opts194973%_))) - (declare (not safe)) - (_%lp194970%_ _%rest195006%_ __tmp196259))))) - (if (let () (declare (not safe)) (##pair? _%rest194974194994%_)) - (let ((_%tl194990195050%_ + (cons '"-track-scheme" (reverse _%opts193873%_))) + (reverse _%opts193873%_))))) + (let ((_%K193888193945%_ + (lambda (_%rest193943%_) + (_%lp193870%_ _%rest193943%_ _%opts193873%_))) + (_%K193883193927%_ + (lambda (_%rest193925%_) + (_%lp193870%_ _%rest193925%_ _%opts193873%_))) + (_%K193880193909%_ + (lambda (_%rest193906%_ _%opt193907%_) + (_%lp193870%_ + _%rest193906%_ + (cons _%opt193907%_ _%opts193873%_))))) + (if (let () (declare (not safe)) (##pair? _%rest193874193894%_)) + (let ((_%tl193890193950%_ (let () (declare (not safe)) - (##cdr _%rest194974194994%_))) - (_%hd194989195048%_ + (##cdr _%rest193874193894%_))) + (_%hd193889193948%_ (let () (declare (not safe)) - (##car _%rest194974194994%_)))) - (if (equal? _%hd194989195048%_ '"-cc-options") + (##car _%rest193874193894%_)))) + (if (equal? _%hd193889193948%_ '"-cc-options") (if (let () (declare (not safe)) - (##pair? _%tl194990195050%_)) - (let* ((_%tl194992195053%_ + (##pair? _%tl193890193950%_)) + (let* ((_%tl193892193953%_ (let () (declare (not safe)) - (##cdr _%tl194990195050%_))) - (_%rest195056%_ _%tl194992195053%_)) - (declare (not safe)) - (_%K194988195045%_ _%rest195056%_)) - (let ((_%opt195017%_ _%hd194989195048%_) - (_%rest195019%_ _%tl194990195050%_)) - (let () - (declare (not safe)) - (_%K194980195009%_ - _%rest195019%_ - _%opt195017%_)))) - (if (equal? _%hd194989195048%_ '"-ld-options") + (##cdr _%tl193890193950%_))) + (_%rest193956%_ _%tl193892193953%_)) + (_%K193888193945%_ _%rest193956%_)) + (let ((_%opt193917%_ _%hd193889193948%_) + (_%rest193919%_ _%tl193890193950%_)) + (_%K193880193909%_ + _%rest193919%_ + _%opt193917%_))) + (if (equal? _%hd193889193948%_ '"-ld-options") (if (let () (declare (not safe)) - (##pair? _%tl194990195050%_)) - (let* ((_%tl194987195035%_ + (##pair? _%tl193890193950%_)) + (let* ((_%tl193887193935%_ (let () (declare (not safe)) - (##cdr _%tl194990195050%_))) - (_%rest195038%_ _%tl194987195035%_)) - (declare (not safe)) - (_%K194983195027%_ _%rest195038%_)) - (let ((_%opt195017%_ _%hd194989195048%_) - (_%rest195019%_ _%tl194990195050%_)) - (let () - (declare (not safe)) - (_%K194980195009%_ - _%rest195019%_ - _%opt195017%_)))) - (let ((_%opt195017%_ _%hd194989195048%_) - (_%rest195019%_ _%tl194990195050%_)) - (let () - (declare (not safe)) - (_%K194980195009%_ - _%rest195019%_ - _%opt195017%_)))))) - (let () (declare (not safe)) (_%else194978195002%_)))))))) + (##cdr _%tl193890193950%_))) + (_%rest193938%_ _%tl193887193935%_)) + (_%K193883193927%_ _%rest193938%_)) + (let ((_%opt193917%_ _%hd193889193948%_) + (_%rest193919%_ _%tl193890193950%_)) + (_%K193880193909%_ + _%rest193919%_ + _%opt193917%_))) + (let ((_%opt193917%_ _%hd193889193948%_) + (_%rest193919%_ _%tl193890193950%_)) + (_%K193880193909%_ + _%rest193919%_ + _%opt193917%_))))) + (_%else193878193902%_))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_%phi?195062%_ '#f)) - (declare (not safe)) - (gxc#gsc-link-options__% _%phi?195062%_)))) + (let ((_%phi?193962%_ '#f)) (gxc#gsc-link-options__% _%phi?193962%_)))) (define gxc#gsc-link-options - (lambda _g196261_ - (let ((_g196260_ (let () (declare (not safe)) (##length _g196261_)))) - (cond ((let () (declare (not safe)) (##fx= _g196260_ 0)) - (apply (lambda () - (let () - (declare (not safe)) - (gxc#gsc-link-options__0))) - _g196261_)) - ((let () (declare (not safe)) (##fx= _g196260_ 1)) - (apply (lambda (_%phi?195064%_) - (let () - (declare (not safe)) - (gxc#gsc-link-options__% _%phi?195064%_))) - _g196261_)) + (lambda _g195107_ + (let ((_g195106_ (let () (declare (not safe)) (##length _g195107_)))) + (cond ((let () (declare (not safe)) (##fx= _g195106_ 0)) + (apply gxc#gsc-link-options__0 _g195107_)) + ((let () (declare (not safe)) (##fx= _g195106_ 1)) + (apply gxc#gsc-link-options__% _g195107_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g196261_)))))) + _g195107_)))))) (define gxc#gsc-cc-options__% - (lambda (_%phi?194869%_) - (let _%lp194871%_ ((_%rest194873%_ + (lambda (_%phi?193769%_) + (let _%lp193771%_ ((_%rest193773%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts194874%_ '())) - (let* ((_%rest194875194895%_ _%rest194873%_) - (_%else194879194903%_ + (_%opts193774%_ '())) + (let* ((_%rest193775193795%_ _%rest193773%_) + (_%else193779193803%_ (lambda () - (if (and (let () (declare (not safe)) (not _%phi?194869%_)) + (if (and (not _%phi?193769%_) (let () (declare (not safe)) (gxc#current-compile-debug))) (cons '"-cc-options" - (cons '"-g" (reverse _%opts194874%_))) - (reverse _%opts194874%_))))) - (let ((_%K194889194942%_ - (lambda (_%rest194939%_ _%opt194940%_) - (let ((__tmp196262 - (let ((__tmp196263 - (let () - (declare (not safe)) - (cons '"-cc-options" _%opts194874%_)))) - (declare (not safe)) - (cons _%opt194940%_ __tmp196263)))) - (declare (not safe)) - (_%lp194871%_ _%rest194939%_ __tmp196262)))) - (_%K194884194923%_ - (lambda (_%rest194921%_) - (let () - (declare (not safe)) - (_%lp194871%_ _%rest194921%_ _%opts194874%_)))) - (_%K194881194909%_ - (lambda (_%rest194907%_) - (let () - (declare (not safe)) - (_%lp194871%_ _%rest194907%_ _%opts194874%_))))) - (if (let () (declare (not safe)) (##pair? _%rest194875194895%_)) - (let ((_%tl194891194947%_ + (cons '"-g" (reverse _%opts193774%_))) + (reverse _%opts193774%_))))) + (let ((_%K193789193842%_ + (lambda (_%rest193839%_ _%opt193840%_) + (_%lp193771%_ + _%rest193839%_ + (cons _%opt193840%_ + (cons '"-cc-options" _%opts193774%_))))) + (_%K193784193823%_ + (lambda (_%rest193821%_) + (_%lp193771%_ _%rest193821%_ _%opts193774%_))) + (_%K193781193809%_ + (lambda (_%rest193807%_) + (_%lp193771%_ _%rest193807%_ _%opts193774%_)))) + (if (let () (declare (not safe)) (##pair? _%rest193775193795%_)) + (let ((_%tl193791193847%_ (let () (declare (not safe)) - (##cdr _%rest194875194895%_))) - (_%hd194890194945%_ + (##cdr _%rest193775193795%_))) + (_%hd193790193845%_ (let () (declare (not safe)) - (##car _%rest194875194895%_)))) - (if (equal? _%hd194890194945%_ '"-cc-options") + (##car _%rest193775193795%_)))) + (if (equal? _%hd193790193845%_ '"-cc-options") (if (let () (declare (not safe)) - (##pair? _%tl194891194947%_)) - (let ((_%tl194893194952%_ + (##pair? _%tl193791193847%_)) + (let ((_%tl193793193852%_ (let () (declare (not safe)) - (##cdr _%tl194891194947%_))) - (_%hd194892194950%_ + (##cdr _%tl193791193847%_))) + (_%hd193792193850%_ (let () (declare (not safe)) - (##car _%tl194891194947%_)))) - (let ((_%opt194955%_ _%hd194892194950%_) - (_%rest194957%_ _%tl194893194952%_)) - (let () - (declare (not safe)) - (_%K194889194942%_ - _%rest194957%_ - _%opt194955%_)))) - (let ((_%rest194915%_ _%tl194891194947%_)) - (declare (not safe)) - (_%K194881194909%_ _%rest194915%_))) - (if (equal? _%hd194890194945%_ '"-ld-options") + (##car _%tl193791193847%_)))) + (let ((_%opt193855%_ _%hd193792193850%_) + (_%rest193857%_ _%tl193793193852%_)) + (_%K193789193842%_ + _%rest193857%_ + _%opt193855%_))) + (let ((_%rest193815%_ _%tl193791193847%_)) + (_%K193781193809%_ _%rest193815%_))) + (if (equal? _%hd193790193845%_ '"-ld-options") (if (let () (declare (not safe)) - (##pair? _%tl194891194947%_)) - (let* ((_%tl194888194931%_ + (##pair? _%tl193791193847%_)) + (let* ((_%tl193788193831%_ (let () (declare (not safe)) - (##cdr _%tl194891194947%_))) - (_%rest194934%_ _%tl194888194931%_)) - (declare (not safe)) - (_%K194884194923%_ _%rest194934%_)) - (let ((_%rest194915%_ _%tl194891194947%_)) - (declare (not safe)) - (_%K194881194909%_ _%rest194915%_))) - (let ((_%rest194915%_ _%tl194891194947%_)) - (declare (not safe)) - (_%K194881194909%_ _%rest194915%_))))) - (let () (declare (not safe)) (_%else194879194903%_)))))))) + (##cdr _%tl193791193847%_))) + (_%rest193834%_ _%tl193788193831%_)) + (_%K193784193823%_ _%rest193834%_)) + (let ((_%rest193815%_ _%tl193791193847%_)) + (_%K193781193809%_ _%rest193815%_))) + (let ((_%rest193815%_ _%tl193791193847%_)) + (_%K193781193809%_ _%rest193815%_))))) + (_%else193779193803%_))))))) (define gxc#gsc-cc-options__0 (lambda () - (let ((_%phi?194963%_ '#f)) - (declare (not safe)) - (gxc#gsc-cc-options__% _%phi?194963%_)))) + (let ((_%phi?193863%_ '#f)) (gxc#gsc-cc-options__% _%phi?193863%_)))) (define gxc#gsc-cc-options - (lambda _g196265_ - (let ((_g196264_ (let () (declare (not safe)) (##length _g196265_)))) - (cond ((let () (declare (not safe)) (##fx= _g196264_ 0)) - (apply (lambda () - (let () - (declare (not safe)) - (gxc#gsc-cc-options__0))) - _g196265_)) - ((let () (declare (not safe)) (##fx= _g196264_ 1)) - (apply (lambda (_%phi?194965%_) - (let () - (declare (not safe)) - (gxc#gsc-cc-options__% _%phi?194965%_))) - _g196265_)) + (lambda _g195109_ + (let ((_g195108_ (let () (declare (not safe)) (##length _g195109_)))) + (cond ((let () (declare (not safe)) (##fx= _g195108_ 0)) + (apply gxc#gsc-cc-options__0 _g195109_)) + ((let () (declare (not safe)) (##fx= _g195108_ 1)) + (apply gxc#gsc-cc-options__% _g195109_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options - _g196265_)))))) + _g195109_)))))) (define gxc#gsc-static-include-options - (lambda (_%staticdir194864%_) - (let ((_%user-staticdir194866%_ + (lambda (_%staticdir193764%_) + (let ((_%user-staticdir193766%_ (path-expand (path-expand '"lib/static" @@ -3117,479 +2617,417 @@ (cons '"-cc-options" (cons (string-append '"-I " - _%staticdir194864%_ + _%staticdir193764%_ '" -I " - _%user-staticdir194866%_) + _%user-staticdir193766%_) '()))))) (define gxc#gcc-ld-options (lambda () - (let _%lp194776%_ ((_%rest194778%_ + (let _%lp193676%_ ((_%rest193678%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts194779%_ '())) - (let* ((_%rest194780194800%_ _%rest194778%_) - (_%else194784194808%_ (lambda () _%opts194779%_))) - (let ((_%K194794194851%_ - (lambda (_%rest194849%_) - (let () - (declare (not safe)) - (_%lp194776%_ _%rest194849%_ _%opts194779%_)))) - (_%K194789194829%_ - (lambda (_%rest194826%_ _%opt194827%_) - (let ((__tmp196266 - (let ((__tmp196267 - (let ((__tmp196268 - (let () - (declare (not safe)) - (string-split - _%opt194827%_ - '#\space)))) - (declare (not safe)) - (##filter - gxc#not-string-empty? - __tmp196268)))) - (declare (not safe)) - (##append _%opts194779%_ __tmp196267)))) - (declare (not safe)) - (_%lp194776%_ _%rest194826%_ __tmp196266)))) - (_%K194786194814%_ - (lambda (_%rest194812%_) - (let () - (declare (not safe)) - (_%lp194776%_ _%rest194812%_ _%opts194779%_))))) - (if (let () (declare (not safe)) (##pair? _%rest194780194800%_)) - (let ((_%tl194796194856%_ + (_%opts193679%_ '())) + (let* ((_%rest193680193700%_ _%rest193678%_) + (_%else193684193708%_ (lambda () _%opts193679%_))) + (let ((_%K193694193751%_ + (lambda (_%rest193749%_) + (_%lp193676%_ _%rest193749%_ _%opts193679%_))) + (_%K193689193729%_ + (lambda (_%rest193726%_ _%opt193727%_) + (_%lp193676%_ + _%rest193726%_ + (let ((__tmp195110 + (let ((__tmp195111 + (let () + (declare (not safe)) + (string-split _%opt193727%_ '#\space)))) + (declare (not safe)) + (##filter gxc#not-string-empty? __tmp195111)))) + (declare (not safe)) + (##append _%opts193679%_ __tmp195110))))) + (_%K193686193714%_ + (lambda (_%rest193712%_) + (_%lp193676%_ _%rest193712%_ _%opts193679%_)))) + (if (let () (declare (not safe)) (##pair? _%rest193680193700%_)) + (let ((_%tl193696193756%_ (let () (declare (not safe)) - (##cdr _%rest194780194800%_))) - (_%hd194795194854%_ + (##cdr _%rest193680193700%_))) + (_%hd193695193754%_ (let () (declare (not safe)) - (##car _%rest194780194800%_)))) - (if (equal? _%hd194795194854%_ '"-cc-options") + (##car _%rest193680193700%_)))) + (if (equal? _%hd193695193754%_ '"-cc-options") (if (let () (declare (not safe)) - (##pair? _%tl194796194856%_)) - (let* ((_%tl194798194859%_ + (##pair? _%tl193696193756%_)) + (let* ((_%tl193698193759%_ (let () (declare (not safe)) - (##cdr _%tl194796194856%_))) - (_%rest194862%_ _%tl194798194859%_)) - (declare (not safe)) - (_%K194794194851%_ _%rest194862%_)) - (let ((_%rest194820%_ _%tl194796194856%_)) - (declare (not safe)) - (_%K194786194814%_ _%rest194820%_))) - (if (equal? _%hd194795194854%_ '"-ld-options") + (##cdr _%tl193696193756%_))) + (_%rest193762%_ _%tl193698193759%_)) + (_%K193694193751%_ _%rest193762%_)) + (let ((_%rest193720%_ _%tl193696193756%_)) + (_%K193686193714%_ _%rest193720%_))) + (if (equal? _%hd193695193754%_ '"-ld-options") (if (let () (declare (not safe)) - (##pair? _%tl194796194856%_)) - (let ((_%tl194793194839%_ + (##pair? _%tl193696193756%_)) + (let ((_%tl193693193739%_ (let () (declare (not safe)) - (##cdr _%tl194796194856%_))) - (_%hd194792194837%_ + (##cdr _%tl193696193756%_))) + (_%hd193692193737%_ (let () (declare (not safe)) - (##car _%tl194796194856%_)))) - (let ((_%opt194842%_ _%hd194792194837%_) - (_%rest194844%_ _%tl194793194839%_)) - (let () - (declare (not safe)) - (_%K194789194829%_ - _%rest194844%_ - _%opt194842%_)))) - (let ((_%rest194820%_ _%tl194796194856%_)) - (declare (not safe)) - (_%K194786194814%_ _%rest194820%_))) - (let ((_%rest194820%_ _%tl194796194856%_)) - (declare (not safe)) - (_%K194786194814%_ _%rest194820%_))))) - (let () (declare (not safe)) (_%else194784194808%_)))))))) + (##car _%tl193696193756%_)))) + (let ((_%opt193742%_ _%hd193692193737%_) + (_%rest193744%_ _%tl193693193739%_)) + (_%K193689193729%_ + _%rest193744%_ + _%opt193742%_))) + (let ((_%rest193720%_ _%tl193696193756%_)) + (_%K193686193714%_ _%rest193720%_))) + (let ((_%rest193720%_ _%tl193696193756%_)) + (_%K193686193714%_ _%rest193720%_))))) + (_%else193684193708%_))))))) (define gxc#not-string-empty? - (lambda (_%str194773%_) - (let ((__tmp196269 - (let () (declare (not safe)) (string-empty? _%str194773%_)))) - (declare (not safe)) - (not __tmp196269)))) + (lambda (_%str193673%_) + (not (let () (declare (not safe)) (string-empty? _%str193673%_))))) (define gxc#gsc-compile-file - (lambda (_%path194741%_ _%phi?194742%_) - (letrec ((_%gsc-link-path194744%_ - (lambda (_%base-path194765%_) - (let _%lp194767%_ ((_%n194769%_ '1)) - (let ((_%path194771%_ - (let ((__tmp196270 (number->string _%n194769%_))) + (lambda (_%path193641%_ _%phi?193642%_) + (letrec ((_%gsc-link-path193644%_ + (lambda (_%base-path193665%_) + (let _%lp193667%_ ((_%n193669%_ '1)) + (let ((_%path193671%_ + (let ((__tmp195112 (number->string _%n193669%_))) (declare (not safe)) (##string-append - _%base-path194765%_ + _%base-path193665%_ '".o" - __tmp196270)))) + __tmp195112)))) (if (let () (declare (not safe)) - (##file-exists? _%path194771%_)) - (let ((__tmp196271 - (let () - (declare (not safe)) - (+ _%n194769%_ '1)))) - (declare (not safe)) - (_%lp194767%_ __tmp196271)) - _%path194771%_)))))) - (let* ((_%base-path194746%_ (path-strip-extension _%path194741%_)) - (_%path-c194748%_ - (let () - (declare (not safe)) - (##string-append _%base-path194746%_ '".c"))) - (_%path-o194750%_ + (##file-exists? _%path193671%_)) + (_%lp193667%_ (+ _%n193669%_ '1)) + _%path193671%_)))))) + (let* ((_%base-path193646%_ (path-strip-extension _%path193641%_)) + (_%path-c193648%_ (let () (declare (not safe)) - (##string-append _%base-path194746%_ '".o"))) - (_%link-path194752%_ + (##string-append _%base-path193646%_ '".c"))) + (_%path-o193650%_ (let () (declare (not safe)) - (_%gsc-link-path194744%_ _%base-path194746%_))) - (_%link-path-c194754%_ + (##string-append _%base-path193646%_ '".o"))) + (_%link-path193652%_ + (_%gsc-link-path193644%_ _%base-path193646%_)) + (_%link-path-c193654%_ (let () (declare (not safe)) - (##string-append _%link-path194752%_ '".c"))) - (_%link-path-o194756%_ + (##string-append _%link-path193652%_ '".c"))) + (_%link-path-o193656%_ (let () (declare (not safe)) - (##string-append _%link-path194752%_ '".o"))) - (_%gsc-link-opts194758%_ - (let () - (declare (not safe)) - (gxc#gsc-link-options__% _%phi?194742%_))) - (_%gsc-cc-opts194760%_ - (let () - (declare (not safe)) - (gxc#gsc-cc-options__% _%phi?194742%_))) - (_%gcc-ld-opts194762%_ - (let () (declare (not safe)) (gxc#gcc-ld-options)))) - (let ((__tmp196274 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp196272 - (cons '"-link" - (cons '"-flat" - (cons '"-o" - (cons _%link-path-c194754%_ - (let ((__tmp196273 - (cons _%path194741%_ '()))) - (declare (not safe)) - (__foldr1 - cons - __tmp196273 - _%gsc-link-opts194758%_)))))))) - (declare (not safe)) - (gxc#invoke__% '#f '#t absent-value __tmp196274 __tmp196272)) - (let ((__tmp196277 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp196275 - (cons '"-obj" - (cons '"-cc-options" - (cons '"-D___DYNAMIC" - (let ((__tmp196276 - (cons _%path-c194748%_ - (cons _%link-path-c194754%_ - '())))) + (##string-append _%link-path193652%_ '".o"))) + (_%gsc-link-opts193658%_ + (gxc#gsc-link-options__% _%phi?193642%_)) + (_%gsc-cc-opts193660%_ (gxc#gsc-cc-options__% _%phi?193642%_)) + (_%gcc-ld-opts193662%_ (gxc#gcc-ld-options))) + (gxc#invoke__% + '#f + '#t + absent-value + (gxc#gerbil-gsc) + (cons '"-link" + (cons '"-flat" + (cons '"-o" + (cons _%link-path-c193654%_ + (let ((__tmp195113 + (cons _%path193641%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp196276 - _%gsc-cc-opts194760%_))))))) - (declare (not safe)) - (gxc#invoke__% '#f '#t absent-value __tmp196277 __tmp196275)) - (let ((__tmp196279 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp196278 - (cons '"-w" - (cons '"-shared" - (cons '"-o" - (cons _%link-path194752%_ - (cons _%path-o194750%_ - (cons _%link-path-o194756%_ - _%gcc-ld-opts194762%_)))))))) - (declare (not safe)) - (gxc#invoke__% - '#f - absent-value - absent-value - __tmp196279 - __tmp196278)) - (let ((__tmp196280 - (cons _%path-c194748%_ - (cons _%path-o194750%_ - (cons _%link-path-c194754%_ - (cons _%link-path-o194756%_ '())))))) + __tmp195113 + _%gsc-link-opts193658%_))))))) + (gxc#invoke__% + '#f + '#t + absent-value + (gxc#gerbil-gsc) + (cons '"-obj" + (cons '"-cc-options" + (cons '"-D___DYNAMIC" + (let ((__tmp195114 + (cons _%path-c193648%_ + (cons _%link-path-c193654%_ '())))) + (declare (not safe)) + (__foldr1 + cons + __tmp195114 + _%gsc-cc-opts193660%_)))))) + (gxc#invoke__% + '#f + absent-value + absent-value + (gxc#gerbil-gcc) + (cons '"-w" + (cons '"-shared" + (cons '"-o" + (cons _%link-path193652%_ + (cons _%path-o193650%_ + (cons _%link-path-o193656%_ + _%gcc-ld-opts193662%_))))))) + (let ((__tmp195115 + (cons _%path-c193648%_ + (cons _%path-o193650%_ + (cons _%link-path-c193654%_ + (cons _%link-path-o193656%_ '())))))) (declare (not safe)) - (##for-each delete-file __tmp196280)))))) + (##for-each delete-file __tmp195115)))))) (define gxc#compile-output-file - (lambda (_%ctx194707%_ _%n194708%_ _%ext194709%_) - (letrec ((_%module-relative-path194711%_ - (lambda (_%ctx194739%_) + (lambda (_%ctx193607%_ _%n193608%_ _%ext193609%_) + (letrec ((_%module-relative-path193611%_ + (lambda (_%ctx193639%_) (path-strip-directory - (let ((__tmp196281 + (let ((__tmp195116 (##structure-ref - _%ctx194739%_ + _%ctx193639%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp196281))))) - (_%module-source-directory194712%_ - (lambda (_%ctx194735%_) + (gxc#module-id->path-string __tmp195116))))) + (_%module-source-directory193612%_ + (lambda (_%ctx193635%_) (path-directory - (let ((_%mpath194737%_ + (let ((_%mpath193637%_ (##structure-ref - _%ctx194735%_ + _%ctx193635%_ '7 gx#module-context::t '#f))) - (if (let () - (declare (not safe)) - (string? _%mpath194737%_)) - _%mpath194737%_ - (last _%mpath194737%_)))))) - (_%section-string194713%_ - (lambda (_%n194729%_) - (if (let () (declare (not safe)) (number? _%n194729%_)) - (let () (number->string _%n194729%_)) - (if (let () (declare (not safe)) (symbol? _%n194729%_)) - (let () (symbol->string _%n194729%_)) - (if (let () - (declare (not safe)) - (string? _%n194729%_)) - (let () _%n194729%_) + (if (string? _%mpath193637%_) + _%mpath193637%_ + (last _%mpath193637%_)))))) + (_%section-string193613%_ + (lambda (_%n193629%_) + (if (number? _%n193629%_) + (number->string _%n193629%_) + (if (symbol? _%n193629%_) + (symbol->string _%n193629%_) + (if (string? _%n193629%_) + _%n193629%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _%n194729%_))))))) - (_%file-name194714%_ - (lambda (_%path194727%_) - (if _%n194708%_ + _%n193629%_))))))) + (_%file-name193614%_ + (lambda (_%path193627%_) + (if _%n193608%_ (string-append - _%path194727%_ + _%path193627%_ '"~" - (let () - (declare (not safe)) - (_%section-string194713%_ _%n194708%_)) - _%ext194709%_) - (string-append _%path194727%_ _%ext194709%_)))) - (_%file-path194715%_ + (_%section-string193613%_ _%n193608%_) + _%ext193609%_) + (string-append _%path193627%_ _%ext193609%_)))) + (_%file-path193615%_ (lambda () - (let ((_%$e194721%_ + (let ((_%$e193621%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e194721%_ - ((lambda (_%outdir194724%_) + (if _%$e193621%_ + ((lambda (_%outdir193624%_) (path-expand - (let ((__tmp196282 - (let ((__tmp196283 - (##structure-ref - _%ctx194707%_ - '1 - gx#expander-context::t - '#f))) - (declare (not safe)) - (gxc#module-id->path-string - __tmp196283)))) - (declare (not safe)) - (_%file-name194714%_ __tmp196282)) - _%outdir194724%_)) - _%$e194721%_) - (let () - (path-expand - (let ((__tmp196284 - (let () - (declare (not safe)) - (_%module-relative-path194711%_ - _%ctx194707%_)))) - (declare (not safe)) - (_%file-name194714%_ __tmp196284)) - (let () - (declare (not safe)) - (_%module-source-directory194712%_ - _%ctx194707%_))))))))) - (let ((_%path194717%_ - (let () (declare (not safe)) (_%file-path194715%_)))) - (let ((__tmp196285 + (_%file-name193614%_ + (let ((__tmp195117 + (##structure-ref + _%ctx193607%_ + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (gxc#module-id->path-string __tmp195117))) + _%outdir193624%_)) + _%$e193621%_) + (path-expand + (_%file-name193614%_ + (_%module-relative-path193611%_ _%ctx193607%_)) + (_%module-source-directory193612%_ + _%ctx193607%_))))))) + (let ((_%path193617%_ (_%file-path193615%_))) + (let ((__tmp195118 (lambda () - (let ((__tmp196286 (path-directory _%path194717%_))) + (let ((__tmp195119 (path-directory _%path193617%_))) (declare (not safe)) - (create-directory*__0 __tmp196286))))) + (create-directory*__0 __tmp195119))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp196285)) - _%path194717%_)))) + (__with-lock gxc#+driver-mutex+ __tmp195118)) + _%path193617%_)))) (define gxc#compile-static-output-file - (lambda (_%ctx194688%_) - (letrec ((_%file-name194690%_ - (lambda (_%id194705%_) - (let ((__tmp196287 - (let () - (declare (not safe)) - (gxc#static-module-name _%id194705%_)))) + (lambda (_%ctx193588%_) + (letrec ((_%file-name193590%_ + (lambda (_%id193605%_) + (let ((__tmp195120 (gxc#static-module-name _%id193605%_))) (declare (not safe)) - (##string-append __tmp196287 '".scm")))) - (_%file-path194691%_ + (##string-append __tmp195120 '".scm")))) + (_%file-path193591%_ (lambda () - (let* ((_%file194697%_ - (let ((__tmp196288 - (##structure-ref - _%ctx194688%_ - '1 - gx#expander-context::t - '#f))) - (declare (not safe)) - (_%file-name194690%_ __tmp196288))) - (_%$e194699%_ + (let* ((_%file193597%_ + (_%file-name193590%_ + (##structure-ref + _%ctx193588%_ + '1 + gx#expander-context::t + '#f))) + (_%$e193599%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e194699%_ - ((lambda (_%outdir194702%_) + (if _%$e193599%_ + ((lambda (_%outdir193602%_) (path-expand - _%file194697%_ - (path-expand '"static" _%outdir194702%_))) - _%$e194699%_) - (let () (path-expand _%file194697%_ '"static"))))))) - (let ((_%path194693%_ - (let () (declare (not safe)) (_%file-path194691%_)))) - (let ((__tmp196289 + _%file193597%_ + (path-expand '"static" _%outdir193602%_))) + _%$e193599%_) + (path-expand _%file193597%_ '"static")))))) + (let ((_%path193593%_ (_%file-path193591%_))) + (let ((__tmp195121 (lambda () - (let ((__tmp196290 (path-directory _%path194693%_))) + (let ((__tmp195122 (path-directory _%path193593%_))) (declare (not safe)) - (create-directory*__0 __tmp196290))))) + (create-directory*__0 __tmp195122))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp196289)) - _%path194693%_)))) + (__with-lock gxc#+driver-mutex+ __tmp195121)) + _%path193593%_)))) (define gxc#compile-exe-output-file - (lambda (_%ctx194681%_ _%opts194682%_) - (let ((_%$e194684%_ + (lambda (_%ctx193581%_ _%opts193582%_) + (let ((_%$e193584%_ (let () (declare (not safe)) - (pgetq__0 'output-file: _%opts194682%_)))) - (if _%$e194684%_ - (values _%$e194684%_) - (let () - (path-strip-directory - (symbol->string - (##structure-ref - _%ctx194681%_ - '1 - gx#expander-context::t - '#f)))))))) + (pgetq__0 'output-file: _%opts193582%_)))) + (if _%$e193584%_ + (values _%$e193584%_) + (path-strip-directory + (symbol->string + (##structure-ref + _%ctx193581%_ + '1 + gx#expander-context::t + '#f))))))) (define gxc#static-module-name - (lambda (_%idstr194671%_) - (if (let () (declare (not safe)) (string? _%idstr194671%_)) - (let () - (let* ((_%str194674%_ - (let () - (declare (not safe)) - (gxc#module-id->path-string _%idstr194671%_))) - (_%strs194676%_ - (let () - (declare (not safe)) - (string-split _%str194674%_ '#\/)))) - (declare (not safe)) - (string-join _%strs194676%_ '"__"))) - (if (let () (declare (not safe)) (symbol? _%idstr194671%_)) - (let ((__tmp196291 (symbol->string _%idstr194671%_))) - (declare (not safe)) - (gxc#static-module-name __tmp196291)) + (lambda (_%idstr193571%_) + (if (string? _%idstr193571%_) + (let* ((_%str193574%_ + (let () + (declare (not safe)) + (gxc#module-id->path-string _%idstr193571%_))) + (_%strs193576%_ + (let () + (declare (not safe)) + (string-split _%str193574%_ '#\/)))) + (declare (not safe)) + (string-join _%strs193576%_ '"__")) + (if (symbol? _%idstr193571%_) + (gxc#static-module-name (symbol->string _%idstr193571%_)) (let () (declare (not safe)) - (error '"Bad module id" _%idstr194671%_)))))) + (error '"Bad module id" _%idstr193571%_)))))) (define gxc#gerbil-enable-shared? (lambda () - (let ((__tmp196292 - (let ((__tmp196293 (configure-command-string))) + (let ((__tmp195123 + (let ((__tmp195124 (configure-command-string))) (declare (not safe)) - (__string-split __tmp196293 '#\')))) + (__string-split __tmp195124 '#\')))) (declare (not safe)) - (##member '"--enable-shared" __tmp196292)))) + (##member '"--enable-shared" __tmp195123)))) (define gxc#invoke__% - (lambda (_%@@keywords194635%_ - _%stdout-redirection194631194636%_ - _%stderr-redirection194632194638%_ - _%program194640%_ - _%args194641%_) - (let* ((_%stdout-redirection194643%_ - (if (eq? _%stdout-redirection194631194636%_ absent-value) + (lambda (_%@@keywords193535%_ + _%stdout-redirection193531193536%_ + _%stderr-redirection193532193538%_ + _%program193540%_ + _%args193541%_) + (let* ((_%stdout-redirection193543%_ + (if (eq? _%stdout-redirection193531193536%_ absent-value) '#f - _%stdout-redirection194631194636%_)) - (_%stderr-redirection194645%_ - (if (eq? _%stderr-redirection194632194638%_ absent-value) + _%stdout-redirection193531193536%_)) + (_%stderr-redirection193545%_ + (if (eq? _%stderr-redirection193532193538%_ absent-value) '#f - _%stderr-redirection194632194638%_))) - (let ((__tmp196294 (cons _%program194640%_ _%args194641%_))) + _%stderr-redirection193532193538%_))) + (let ((__tmp195125 (cons _%program193540%_ _%args193541%_))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp196294)) - (let* ((_%proc194647%_ + (gxc#verbose '"invoke " __tmp195125)) + (let* ((_%proc193547%_ (open-process (cons 'path: - (cons _%program194640%_ + (cons _%program193540%_ (cons 'arguments: - (cons _%args194641%_ + (cons _%args193541%_ (cons 'stdout-redirection: - (cons _%stdout-redirection194643%_ + (cons _%stdout-redirection193543%_ (cons 'stderr-redirection: - (cons _%stderr-redirection194645%_ + (cons _%stderr-redirection193545%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%output194652%_ - (if (or _%stdout-redirection194643%_ - _%stderr-redirection194645%_) - (read-line _%proc194647%_ '#f) + (_%output193552%_ + (if (or _%stdout-redirection193543%_ + _%stderr-redirection193545%_) + (read-line _%proc193547%_ '#f) '#f)) - (_%status194655%_ (process-status _%proc194647%_))) - (let () (declare (not safe)) (##close-port _%proc194647%_)) - (if (zero? _%status194655%_) + (_%status193555%_ (process-status _%proc193547%_))) + (let () (declare (not safe)) (##close-port _%proc193547%_)) + (if (zero? _%status193555%_) '#!void (begin - (display _%output194652%_) - (let ((__tmp196295 (cons _%program194640%_ _%args194641%_))) + (display _%output193552%_) + (let ((__tmp195126 (cons _%program193540%_ _%args193541%_))) (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - __tmp196295 - _%status194655%_)))))))) + __tmp195126 + _%status193555%_)))))))) (define gxc#invoke__@ - (lambda (_%@@keywords194660%_ . _%args194661%_) + (lambda (_%@@keywords193560%_ . _%args193561%_) (apply gxc#invoke__% - _%@@keywords194660%_ + _%@@keywords193560%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords194660%_ + _%@@keywords193560%_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords194660%_ + _%@@keywords193560%_ 'stderr-redirection: absent-value)) - _%args194661%_))) + _%args193561%_))) (define gxc#invoke - (lambda _%args194633194667%_ + (lambda _%args193533193567%_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _%args194633194667%_))) + _%args193533193567%_))) (define gxc#join! - (lambda (_%thread194625%_) - (let ((__tmp196297 - (lambda (_%exn194627%_) + (lambda (_%thread193525%_) + (let ((__tmp195128 + (lambda (_%exn193527%_) (if (let () (declare (not safe)) - (uncaught-exception? _%exn194627%_)) - (let ((__tmp196298 + (uncaught-exception? _%exn193527%_)) + (let ((__tmp195129 (let () (declare (not safe)) - (uncaught-exception-reason _%exn194627%_)))) + (uncaught-exception-reason _%exn193527%_)))) (declare (not safe)) - (raise __tmp196298)) - (let () (declare (not safe)) (raise _%exn194627%_))))) - (__tmp196296 (lambda () (thread-join! _%thread194625%_)))) + (raise __tmp195129)) + (let () (declare (not safe)) (raise _%exn193527%_))))) + (__tmp195127 (lambda () (thread-join! _%thread193525%_)))) (declare (not safe)) - (__with-catch __tmp196297 __tmp196296)))))) + (__with-catch __tmp195128 __tmp195127)))))) diff --git a/src/bootstrap/gerbil/compiler/driver~1.scm b/src/bootstrap/gerbil/compiler/driver~1.scm index cd8cb95e3..96aeab88a 100644 --- a/src/bootstrap/gerbil/compiler/driver~1.scm +++ b/src/bootstrap/gerbil/compiler/driver~1.scm @@ -1,51 +1,51 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#with-driver-mutex| - (lambda (_%$stx194498%_) - (let* ((_%g194502194516%_ - (lambda (_%g194503194512%_) + (lambda (_%$stx193398%_) + (let* ((_%g193402193416%_ + (lambda (_%g193403193412%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194503194512%_)))) - (_%g194501194558%_ - (lambda (_%g194503194520%_) + _%g193403193412%_)))) + (_%g193401193458%_ + (lambda (_%g193403193420%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194503194520%_)) - (let ((_%e194507194523%_ + (gx#stx-pair? _%g193403193420%_)) + (let ((_%e193407193423%_ (let () (declare (not safe)) - (gx#syntax-e _%g194503194520%_)))) - (let ((_%hd194506194527%_ + (gx#syntax-e _%g193403193420%_)))) + (let ((_%hd193406193427%_ (let () (declare (not safe)) - (##car _%e194507194523%_))) - (_%tl194505194530%_ + (##car _%e193407193423%_))) + (_%tl193405193430%_ (let () (declare (not safe)) - (##cdr _%e194507194523%_)))) + (##cdr _%e193407193423%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194505194530%_)) - (let ((_%e194510194533%_ + (gx#stx-pair? _%tl193405193430%_)) + (let ((_%e193410193433%_ (let () (declare (not safe)) - (gx#syntax-e _%tl194505194530%_)))) - (let ((_%hd194509194537%_ + (gx#syntax-e _%tl193405193430%_)))) + (let ((_%hd193409193437%_ (let () (declare (not safe)) - (##car _%e194510194533%_))) - (_%tl194508194540%_ + (##car _%e193410193433%_))) + (_%tl193408193440%_ (let () (declare (not safe)) - (##cdr _%e194510194533%_)))) + (##cdr _%e193410193433%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194508194540%_)) - ((lambda (_%L194543%_) + (gx#stx-null? _%tl193408193440%_)) + ((lambda (_%L193443%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -60,60 +60,60 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L194543%_ '()))) + (cons '() (cons _%L193443%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194509194537%_) - (_%g194502194516%_ _%g194503194520%_)))) - (_%g194502194516%_ _%g194503194520%_)))) - (_%g194502194516%_ _%g194503194520%_))))) - (_%g194501194558%_ _%$stx194498%_)))) + _%hd193409193437%_) + (_%g193402193416%_ _%g193403193420%_)))) + (_%g193402193416%_ _%g193403193420%_)))) + (_%g193402193416%_ _%g193403193420%_))))) + (_%g193401193458%_ _%$stx193398%_)))) (define |gxc[:0:]#go!| - (lambda (_%$stx194562%_) - (let* ((_%g194566194580%_ - (lambda (_%g194567194576%_) + (lambda (_%$stx193462%_) + (let* ((_%g193466193480%_ + (lambda (_%g193467193476%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194567194576%_)))) - (_%g194565194621%_ - (lambda (_%g194567194584%_) + _%g193467193476%_)))) + (_%g193465193521%_ + (lambda (_%g193467193484%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194567194584%_)) - (let ((_%e194571194587%_ + (gx#stx-pair? _%g193467193484%_)) + (let ((_%e193471193487%_ (let () (declare (not safe)) - (gx#syntax-e _%g194567194584%_)))) - (let ((_%hd194570194591%_ + (gx#syntax-e _%g193467193484%_)))) + (let ((_%hd193470193491%_ (let () (declare (not safe)) - (##car _%e194571194587%_))) - (_%tl194569194594%_ + (##car _%e193471193487%_))) + (_%tl193469193494%_ (let () (declare (not safe)) - (##cdr _%e194571194587%_)))) + (##cdr _%e193471193487%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194569194594%_)) - (let ((_%e194574194597%_ + (gx#stx-pair? _%tl193469193494%_)) + (let ((_%e193474193497%_ (let () (declare (not safe)) - (gx#syntax-e _%tl194569194594%_)))) - (let ((_%hd194573194601%_ + (gx#syntax-e _%tl193469193494%_)))) + (let ((_%hd193473193501%_ (let () (declare (not safe)) - (##car _%e194574194597%_))) - (_%tl194572194604%_ + (##car _%e193474193497%_))) + (_%tl193472193504%_ (let () (declare (not safe)) - (##cdr _%e194574194597%_)))) + (##cdr _%e193474193497%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194572194604%_)) - ((lambda (_%L194607%_) + (gx#stx-null? _%tl193472193504%_)) + ((lambda (_%L193507%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -125,13 +125,13 @@ '#f 'lambda)) (cons '() - (cons _%L194607%_ + (cons _%L193507%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd194573194601%_) - (_%g194566194580%_ _%g194567194584%_)))) - (_%g194566194580%_ _%g194567194584%_)))) - (_%g194566194580%_ _%g194567194584%_))))) - (_%g194565194621%_ _%$stx194562%_))))) + _%hd193473193501%_) + (_%g193466193480%_ _%g193467193484%_)))) + (_%g193466193480%_ _%g193467193484%_)))) + (_%g193466193480%_ _%g193467193484%_))))) + (_%g193465193521%_ _%$stx193462%_))))) diff --git a/src/bootstrap/gerbil/compiler/method.ssxi.ss b/src/bootstrap/gerbil/compiler/method.ssxi.ss index 478802910..a0b441141 100644 --- a/src/bootstrap/gerbil/compiler/method.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/method.ssxi.ss @@ -7,31 +7,140 @@ package: gerbil/compiler (optimizer-resolve-class '(typedecl gxc#current-compile-method) 'procedure::t)) - (declare-type gxc#compile-e__0 (@lambda 1 #f)) - (declare-type gxc#compile-e__1 (@lambda 2 #f)) + (declare-type + gxc#compile-e__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#compile-e__1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) (declare-type gxc#compile-e - (@case-lambda (1 gxc#compile-e__0) (2 gxc#compile-e__1))) - (declare-type gxc#stx-car-e (@lambda 1 #f)) + (@case-lambda + (1 + gxc#compile-e__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method)) + (2 + gxc#compile-e__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method)))) + (declare-type + gxc#stx-car-e + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) (declare-type gxc#void-method (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) (declare-type gxc#false-method (@lambda 2 #f signature: - (return: false::t effect: #f arguments: #f unchecked: #f))) + (return: + false::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) (declare-type gxc#true-method (@lambda 2 #f signature: - (return: true::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#identity-method (@lambda 2 #f)) + (return: + true::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#identity-method + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) (declare-class gxc#::void-expression::t (@class gxc#::void-expression::t @@ -322,36 +431,423 @@ package: gerbil/compiler (optimizer-resolve-class '(typedecl gxc#::basic-xform-bind-methods!) 'promise::t)) - (declare-type gxc#apply-begin% (@lambda 2 #f)) - (declare-type gxc#apply-last-begin% (@lambda 2 #f)) + (declare-type + gxc#apply-begin% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#apply-last-begin% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) (declare-type gxc#apply-begin-syntax% (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#apply-module% (@lambda 2 #f)) - (declare-type gxc#apply-begin-annotation% (@lambda 2 #f)) - (declare-type gxc#apply-define-values% (@lambda 2 #f)) - (declare-type gxc#apply-define-syntax% (@lambda 2 #f)) - (declare-type gxc#apply-body-lambda% (@lambda 2 #f)) - (declare-type gxc#apply-body-case-lambda% (@lambda 2 #f)) - (declare-type gxc#apply-body-let-values% (@lambda 2 #f)) - (declare-type gxc#apply-body-last-let-values% (@lambda 2 #f)) - (declare-type gxc#apply-body-setq% (@lambda 2 #f)) - (declare-type gxc#apply-operands (@lambda 2 #f)) - (declare-type gxc#xform-wrap-source (@lambda 2 #f)) - (declare-type gxc#xform-begin% (@lambda 2 #f)) - (declare-type gxc#xform-begin-syntax% (@lambda 2 #f)) - (declare-type gxc#xform-module% (@lambda 2 #f)) - (declare-type gxc#xform-define-values% (@lambda 2 #f)) - (declare-type gxc#xform-define-syntax% (@lambda 2 #f)) - (declare-type gxc#xform-begin-annotation% (@lambda 2 #f)) - (declare-type gxc#xform-lambda% (@lambda 2 #f)) - (declare-type gxc#xform-case-lambda% (@lambda 2 #f)) - (declare-type gxc#xform-let-values% (@lambda 2 #f)) - (declare-type gxc#xform-letrec-values% (@lambda 2 #f)) - (declare-type gxc#xform-let-locals (@lambda 1 #f)) - (declare-type gxc#xform-operands (@lambda 2 #f)) - (declare-type gxc#xform-call% (@lambda 2 #f)) - (declare-type gxc#xform-setq% (@lambda 2 #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#apply-module% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#apply-begin-annotation% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#apply-define-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#apply-define-syntax% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#apply-body-lambda% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#apply-body-case-lambda% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#apply-body-let-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#apply-body-last-let-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#apply-body-setq% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#apply-operands + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#xform-wrap-source + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#xform-begin% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#xform-begin-syntax% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#xform-module% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#xform-define-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#xform-define-syntax% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#xform-begin-annotation% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#xform-lambda% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#xform-case-lambda% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#xform-let-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#xform-letrec-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#xform-let-locals + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#xform-operands + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#xform-call% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method))) + (declare-type + gxc#xform-setq% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/method)))) diff --git a/src/bootstrap/gerbil/compiler/method~0.scm b/src/bootstrap/gerbil/compiler/method~0.scm index bc09e9772..7fb8b3dfa 100644 --- a/src/bootstrap/gerbil/compiler/method~0.scm +++ b/src/bootstrap/gerbil/compiler/method~0.scm @@ -1,101 +1,81 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/method::timestamp 1712533290) + (define gerbil/compiler/method::timestamp 1712573431) (begin (define gxc#current-compile-method (make-parameter '#f)) (define gxc#compile-e__0 - (lambda (_%stx134291%_) - (let* ((_%self134293%_ + (lambda (_%stx133476%_) + (let* ((_%self133478%_ (let () (declare (not safe)) (gxc#current-compile-method))) - (_%$e134295%_ - (let ((__tmp134473 - (let () - (declare (not safe)) - (gxc#stx-car-e _%stx134291%_)))) + (_%$e133480%_ + (let ((__tmp133658 (gxc#stx-car-e _%stx133476%_))) (declare (not safe)) - (method-ref _%self134293%_ __tmp134473)))) - (if _%$e134295%_ - ((lambda (_%method134298%_) - (declare (not safe)) - (_%method134298%_ _%self134293%_ _%stx134291%_)) - _%$e134295%_) - (let ((__tmp134475 - (let () - (declare (not safe)) - (gxc#stx-car-e _%stx134291%_))) - (__tmp134474 + (method-ref _%self133478%_ __tmp133658)))) + (if _%$e133480%_ + ((lambda (_%method133483%_) + (declare (not safe)) + (_%method133483%_ _%self133478%_ _%stx133476%_)) + _%$e133480%_) + (let ((__tmp133660 (gxc#stx-car-e _%stx133476%_)) + (__tmp133659 (let () (declare (not safe)) - (gx#syntax->datum _%stx134291%_)))) + (gx#syntax->datum _%stx133476%_)))) (declare (not safe)) (error '"missing method" - _%self134293%_ - __tmp134475 - __tmp134474)))))) + _%self133478%_ + __tmp133660 + __tmp133659)))))) (define gxc#compile-e__1 - (lambda (_%self134302%_ _%stx134303%_) - (let ((_%$e134305%_ - (let ((__tmp134476 - (let () - (declare (not safe)) - (gxc#stx-car-e _%stx134303%_)))) - (declare (not safe)) - (method-ref _%self134302%_ __tmp134476)))) - (if _%$e134305%_ - ((lambda (_%method134308%_) - (declare (not safe)) - (_%method134308%_ _%self134302%_ _%stx134303%_)) - _%$e134305%_) - (let ((__tmp134478 - (let () - (declare (not safe)) - (gxc#stx-car-e _%stx134303%_))) - (__tmp134477 + (lambda (_%self133487%_ _%stx133488%_) + (let ((_%$e133490%_ + (let ((__tmp133661 (gxc#stx-car-e _%stx133488%_))) + (declare (not safe)) + (method-ref _%self133487%_ __tmp133661)))) + (if _%$e133490%_ + ((lambda (_%method133493%_) + (declare (not safe)) + (_%method133493%_ _%self133487%_ _%stx133488%_)) + _%$e133490%_) + (let ((__tmp133663 (gxc#stx-car-e _%stx133488%_)) + (__tmp133662 (let () (declare (not safe)) - (gx#syntax->datum _%stx134303%_)))) + (gx#syntax->datum _%stx133488%_)))) (declare (not safe)) (error '"missing method" - _%self134302%_ - __tmp134478 - __tmp134477)))))) + _%self133487%_ + __tmp133663 + __tmp133662)))))) (define gxc#compile-e - (lambda _g134480_ - (let ((_g134479_ (let () (declare (not safe)) (##length _g134480_)))) - (cond ((let () (declare (not safe)) (##fx= _g134479_ 1)) - (apply (lambda (_%stx134291%_) - (let () - (declare (not safe)) - (gxc#compile-e__0 _%stx134291%_))) - _g134480_)) - ((let () (declare (not safe)) (##fx= _g134479_ 2)) - (apply (lambda (_%self134302%_ _%stx134303%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 _%self134302%_ _%stx134303%_))) - _g134480_)) + (lambda _g133665_ + (let ((_g133664_ (let () (declare (not safe)) (##length _g133665_)))) + (cond ((let () (declare (not safe)) (##fx= _g133664_ 1)) + (apply gxc#compile-e__0 _g133665_)) + ((let () (declare (not safe)) (##fx= _g133664_ 2)) + (apply gxc#compile-e__1 _g133665_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g134480_)))))) + _g133665_)))))) (define gxc#stx-car-e - (lambda (_%stx134289%_) - (let ((__tmp134481 - (car (let () (declare (not safe)) (gx#stx-e _%stx134289%_))))) + (lambda (_%stx133474%_) + (let ((__tmp133666 + (car (let () (declare (not safe)) (gx#stx-e _%stx133474%_))))) (declare (not safe)) - (gx#stx-e __tmp134481)))) - (define gxc#void-method (lambda (_%self134286%_ _%stx134287%_) '#!void)) - (define gxc#false-method (lambda (_%self134283%_ _%stx134284%_) '#f)) - (define gxc#true-method (lambda (_%self134280%_ _%stx134281%_) '#t)) + (gx#stx-e __tmp133666)))) + (define gxc#void-method (lambda (_%self133471%_ _%stx133472%_) '#!void)) + (define gxc#false-method (lambda (_%self133468%_ _%stx133469%_) '#f)) + (define gxc#true-method (lambda (_%self133465%_ _%stx133466%_) '#t)) (define gxc#identity-method - (lambda (_%self134277%_ _%stx134278%_) _%stx134278%_)) + (lambda (_%self133462%_ _%stx133463%_) _%stx133463%_)) (define gxc#::void-expression::t - (let ((__tmp134482 (list))) + (let ((__tmp133667 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-expression::t '::void-expression - __tmp134482 + __tmp133667 '() '() '#f))) @@ -104,10 +84,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-expression::t))) (define gxc#make-::void-expression - (lambda _%$args134274%_ - (apply make-instance gxc#::void-expression::t _%$args134274%_))) + (lambda _%$args133459%_ + (apply make-instance gxc#::void-expression::t _%$args133459%_))) (define gxc#::void-expression-bind-methods! - (let ((__tmp134483 + (let ((__tmp133668 (lambda () (let () (declare (not safe)) @@ -236,14 +216,14 @@ '%#struct-unchecked-set! gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp134483))) + (__make-promise __tmp133668))) (define gxc#::void-special-form::t - (let ((__tmp134484 (list))) + (let ((__tmp133669 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-special-form::t '::void-special-form - __tmp134484 + __tmp133669 '() '() '#f))) @@ -252,10 +232,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-special-form::t))) (define gxc#make-::void-special-form - (lambda _%$args134270%_ - (apply make-instance gxc#::void-special-form::t _%$args134270%_))) + (lambda _%$args133455%_ + (apply make-instance gxc#::void-special-form::t _%$args133455%_))) (define gxc#::void-special-form-bind-methods! - (let ((__tmp134485 + (let ((__tmp133670 (lambda () (let () (declare (not safe)) @@ -330,31 +310,31 @@ '%#declare gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp134485))) + (__make-promise __tmp133670))) (define gxc#::void::t - (let ((__tmp134486 + (let ((__tmp133671 (list gxc#::void-special-form::t gxc#::void-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::void::t '::void __tmp134486 '() '() '#f))) + (__make-class-type 'gxc#::void::t '::void __tmp133671 '() '() '#f))) (define gxc#::void? (let () (declare (not safe)) (__make-class-predicate gxc#::void::t))) (define gxc#make-::void - (lambda _%$args134266%_ - (apply make-instance gxc#::void::t _%$args134266%_))) + (lambda _%$args133451%_ + (apply make-instance gxc#::void::t _%$args133451%_))) (define gxc#::void-bind-methods! - (let ((__tmp134487 + (let ((__tmp133672 (lambda () (force gxc#::void-special-form-bind-methods!) (force gxc#::void-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp134487))) + (__make-promise __tmp133672))) (define gxc#::false-expression::t - (let ((__tmp134488 (list))) + (let ((__tmp133673 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-expression::t '::false-expression - __tmp134488 + __tmp133673 '() '() '#f))) @@ -363,10 +343,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-expression::t))) (define gxc#make-::false-expression - (lambda _%$args134262%_ - (apply make-instance gxc#::false-expression::t _%$args134262%_))) + (lambda _%$args133447%_ + (apply make-instance gxc#::false-expression::t _%$args133447%_))) (define gxc#::false-expression-bind-methods! - (let ((__tmp134489 + (let ((__tmp133674 (lambda () (let () (declare (not safe)) @@ -495,14 +475,14 @@ '%#struct-unchecked-set! gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp134489))) + (__make-promise __tmp133674))) (define gxc#::false-special-form::t - (let ((__tmp134490 (list))) + (let ((__tmp133675 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-special-form::t '::false-special-form - __tmp134490 + __tmp133675 '() '() '#f))) @@ -511,10 +491,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-special-form::t))) (define gxc#make-::false-special-form - (lambda _%$args134258%_ - (apply make-instance gxc#::false-special-form::t _%$args134258%_))) + (lambda _%$args133443%_ + (apply make-instance gxc#::false-special-form::t _%$args133443%_))) (define gxc#::false-special-form-bind-methods! - (let ((__tmp134491 + (let ((__tmp133676 (lambda () (let () (declare (not safe)) @@ -589,31 +569,31 @@ '%#declare gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp134491))) + (__make-promise __tmp133676))) (define gxc#::false::t - (let ((__tmp134492 + (let ((__tmp133677 (list gxc#::false-special-form::t gxc#::false-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::false::t '::false __tmp134492 '() '() '#f))) + (__make-class-type 'gxc#::false::t '::false __tmp133677 '() '() '#f))) (define gxc#::false? (let () (declare (not safe)) (__make-class-predicate gxc#::false::t))) (define gxc#make-::false - (lambda _%$args134254%_ - (apply make-instance gxc#::false::t _%$args134254%_))) + (lambda _%$args133439%_ + (apply make-instance gxc#::false::t _%$args133439%_))) (define gxc#::false-bind-methods! - (let ((__tmp134493 + (let ((__tmp133678 (lambda () (force gxc#::false-special-form-bind-methods!) (force gxc#::false-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp134493))) + (__make-promise __tmp133678))) (define gxc#::identity-expression::t - (let ((__tmp134494 (list))) + (let ((__tmp133679 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-expression::t '::identity-expression - __tmp134494 + __tmp133679 '() '() '#f))) @@ -622,10 +602,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-expression::t))) (define gxc#make-::identity-expression - (lambda _%$args134250%_ - (apply make-instance gxc#::identity-expression::t _%$args134250%_))) + (lambda _%$args133435%_ + (apply make-instance gxc#::identity-expression::t _%$args133435%_))) (define gxc#::identity-expression-bind-methods! - (let ((__tmp134495 + (let ((__tmp133680 (lambda () (let () (declare (not safe)) @@ -754,14 +734,14 @@ '%#struct-unchecked-set! gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp134495))) + (__make-promise __tmp133680))) (define gxc#::identity-special-form::t - (let ((__tmp134496 (list))) + (let ((__tmp133681 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-special-form::t '::identity-special-form - __tmp134496 + __tmp133681 '() '() '#f))) @@ -770,10 +750,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-special-form::t))) (define gxc#make-::identity-special-form - (lambda _%$args134246%_ - (apply make-instance gxc#::identity-special-form::t _%$args134246%_))) + (lambda _%$args133431%_ + (apply make-instance gxc#::identity-special-form::t _%$args133431%_))) (define gxc#::identity-special-form-bind-methods! - (let ((__tmp134497 + (let ((__tmp133682 (lambda () (let () (declare (not safe)) @@ -848,38 +828,38 @@ '%#declare gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp134497))) + (__make-promise __tmp133682))) (define gxc#::identity::t - (let ((__tmp134498 + (let ((__tmp133683 (list gxc#::identity-special-form::t gxc#::identity-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::identity::t '::identity - __tmp134498 + __tmp133683 '() '() '#f))) (define gxc#::identity? (let () (declare (not safe)) (__make-class-predicate gxc#::identity::t))) (define gxc#make-::identity - (lambda _%$args134242%_ - (apply make-instance gxc#::identity::t _%$args134242%_))) + (lambda _%$args133427%_ + (apply make-instance gxc#::identity::t _%$args133427%_))) (define gxc#::identity-bind-methods! - (let ((__tmp134499 + (let ((__tmp133684 (lambda () (force gxc#::identity-special-form-bind-methods!) (force gxc#::identity-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp134499))) + (__make-promise __tmp133684))) (define gxc#::basic-xform-expression::t - (let ((__tmp134500 (list))) + (let ((__tmp133685 (list))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform-expression::t '::basic-xform-expression - __tmp134500 + __tmp133685 '() '() '#f))) @@ -888,10 +868,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform-expression::t))) (define gxc#make-::basic-xform-expression - (lambda _%$args134238%_ - (apply make-instance gxc#::basic-xform-expression::t _%$args134238%_))) + (lambda _%$args133423%_ + (apply make-instance gxc#::basic-xform-expression::t _%$args133423%_))) (define gxc#::basic-xform-expression-bind-methods! - (let ((__tmp134501 + (let ((__tmp133686 (lambda () (let () (declare (not safe)) @@ -1020,15 +1000,15 @@ '%#struct-unchecked-set! gxc#xform-operands))))) (declare (not safe)) - (__make-promise __tmp134501))) + (__make-promise __tmp133686))) (define gxc#::basic-xform::t - (let ((__tmp134502 + (let ((__tmp133687 (list gxc#::basic-xform-expression::t gxc#::identity::t))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform::t '::basic-xform - __tmp134502 + __tmp133687 '() '() '#f))) @@ -1037,10 +1017,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform::t))) (define gxc#make-::basic-xform - (lambda _%$args134234%_ - (apply make-instance gxc#::basic-xform::t _%$args134234%_))) + (lambda _%$args133419%_ + (apply make-instance gxc#::basic-xform::t _%$args133419%_))) (define gxc#::basic-xform-bind-methods! - (let ((__tmp134503 + (let ((__tmp133688 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (force gxc#::identity-bind-methods!) @@ -1075,2892 +1055,2508 @@ '%#define-syntax gxc#xform-define-syntax%))))) (declare (not safe)) - (__make-promise __tmp134503))) + (__make-promise __tmp133688))) (define gxc#apply-begin% - (lambda (_%self134190%_ _%stx134191%_) - (let* ((_%g134193134203%_ - (lambda (_%g134194134200%_) + (lambda (_%self133375%_ _%stx133376%_) + (let* ((_%g133378133388%_ + (lambda (_%g133379133385%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134194134200%_)))) - (_%g134192134230%_ - (lambda (_%g134194134206%_) + _%g133379133385%_)))) + (_%g133377133415%_ + (lambda (_%g133379133391%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134194134206%_)) - (let ((_%e134198134208%_ + (gx#stx-pair? _%g133379133391%_)) + (let ((_%e133383133393%_ (let () (declare (not safe)) - (gx#stx-e _%g134194134206%_)))) - (let ((_%hd134197134211%_ + (gx#stx-e _%g133379133391%_)))) + (let ((_%hd133382133396%_ (let () (declare (not safe)) - (##car _%e134198134208%_))) - (_%tl134196134213%_ + (##car _%e133383133393%_))) + (_%tl133381133398%_ (let () (declare (not safe)) - (##cdr _%e134198134208%_)))) - ((lambda (_%L134216%_) + (##cdr _%e133383133393%_)))) + ((lambda (_%L133401%_) (for-each - (lambda (_%g134225134227%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self134190%_ - _%g134225134227%_))) + (lambda (_%g133410133412%_) + (gxc#compile-e__1 + _%self133375%_ + _%g133410133412%_)) (let () (declare (not safe)) - (gx#stx-e _%L134216%_)))) - _%tl134196134213%_))) - (let () - (declare (not safe)) - (_%g134193134203%_ _%g134194134206%_)))))) - (declare (not safe)) - (_%g134192134230%_ _%stx134191%_)))) + (gx#stx-e _%L133401%_)))) + _%tl133381133398%_))) + (_%g133378133388%_ _%g133379133391%_))))) + (_%g133377133415%_ _%stx133376%_)))) (define gxc#apply-last-begin% - (lambda (_%self134151%_ _%stx134152%_) - (let* ((_%g134154134164%_ - (lambda (_%g134155134161%_) + (lambda (_%self133336%_ _%stx133337%_) + (let* ((_%g133339133349%_ + (lambda (_%g133340133346%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134155134161%_)))) - (_%g134153134187%_ - (lambda (_%g134155134167%_) + _%g133340133346%_)))) + (_%g133338133372%_ + (lambda (_%g133340133352%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134155134167%_)) - (let ((_%e134159134169%_ + (gx#stx-pair? _%g133340133352%_)) + (let ((_%e133344133354%_ (let () (declare (not safe)) - (gx#stx-e _%g134155134167%_)))) - (let ((_%hd134158134172%_ + (gx#stx-e _%g133340133352%_)))) + (let ((_%hd133343133357%_ (let () (declare (not safe)) - (##car _%e134159134169%_))) - (_%tl134157134174%_ + (##car _%e133344133354%_))) + (_%tl133342133359%_ (let () (declare (not safe)) - (##cdr _%e134159134169%_)))) - ((lambda (_%L134177%_) - (let ((__tmp134504 (last _%L134177%_))) - (declare (not safe)) - (gxc#compile-e__1 _%self134151%_ __tmp134504))) - _%tl134157134174%_))) - (let () - (declare (not safe)) - (_%g134154134164%_ _%g134155134167%_)))))) - (declare (not safe)) - (_%g134153134187%_ _%stx134152%_)))) + (##cdr _%e133344133354%_)))) + ((lambda (_%L133362%_) + (gxc#compile-e__1 + _%self133336%_ + (last _%L133362%_))) + _%tl133342133359%_))) + (_%g133339133349%_ _%g133340133352%_))))) + (_%g133338133372%_ _%stx133337%_)))) (define gxc#apply-begin-syntax% - (lambda (_%self134147%_ _%stx134148%_) - (let ((__tmp134507 - (lambda () - (let () - (declare (not safe)) - (gxc#apply-begin% _%self134147%_ _%stx134148%_)))) - (__tmp134505 - (let ((__tmp134506 + (lambda (_%self133332%_ _%stx133333%_) + (let ((__tmp133691 + (lambda () (gxc#apply-begin% _%self133332%_ _%stx133333%_))) + (__tmp133689 + (let ((__tmp133690 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp134506 '1)))) + (##fx+ __tmp133690 '1)))) (declare (not safe)) (__call-with-parameters - __tmp134507 + __tmp133691 gx#current-expander-phi - __tmp134505)))) + __tmp133689)))) (define gxc#apply-module% - (lambda (_%self134086%_ _%stx134087%_) - (let* ((_%g134089134103%_ - (lambda (_%g134090134100%_) + (lambda (_%self133271%_ _%stx133272%_) + (let* ((_%g133274133288%_ + (lambda (_%g133275133285%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134090134100%_)))) - (_%g134088134144%_ - (lambda (_%g134090134106%_) + _%g133275133285%_)))) + (_%g133273133329%_ + (lambda (_%g133275133291%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134090134106%_)) - (let ((_%e134095134108%_ + (gx#stx-pair? _%g133275133291%_)) + (let ((_%e133280133293%_ (let () (declare (not safe)) - (gx#stx-e _%g134090134106%_)))) - (let ((_%hd134094134111%_ + (gx#stx-e _%g133275133291%_)))) + (let ((_%hd133279133296%_ (let () (declare (not safe)) - (##car _%e134095134108%_))) - (_%tl134093134113%_ + (##car _%e133280133293%_))) + (_%tl133278133298%_ (let () (declare (not safe)) - (##cdr _%e134095134108%_)))) + (##cdr _%e133280133293%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134093134113%_)) - (let ((_%e134098134116%_ + (gx#stx-pair? _%tl133278133298%_)) + (let ((_%e133283133301%_ (let () (declare (not safe)) - (gx#stx-e _%tl134093134113%_)))) - (let ((_%hd134097134119%_ + (gx#stx-e _%tl133278133298%_)))) + (let ((_%hd133282133304%_ (let () (declare (not safe)) - (##car _%e134098134116%_))) - (_%tl134096134121%_ + (##car _%e133283133301%_))) + (_%tl133281133306%_ (let () (declare (not safe)) - (##cdr _%e134098134116%_)))) - ((lambda (_%L134124%_ _%L134125%_) - (let* ((_%ctx134138%_ + (##cdr _%e133283133301%_)))) + ((lambda (_%L133309%_ _%L133310%_) + (let* ((_%ctx133323%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L134125%_))) - (_%ctx-stx134140%_ + _%L133310%_))) + (_%ctx-stx133325%_ (##structure-ref - _%ctx134138%_ + _%ctx133323%_ '11 gx#module-context::t '#f)) - (__tmp134508 + (__tmp133692 (lambda () - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self134086%_ - _%ctx-stx134140%_))))) + (gxc#compile-e__1 + _%self133271%_ + _%ctx-stx133325%_)))) (declare (not safe)) (__call-with-parameters - __tmp134508 + __tmp133692 gx#current-expander-context - _%ctx134138%_))) - _%tl134096134121%_ - _%hd134097134119%_))) - (let () - (declare (not safe)) - (_%g134089134103%_ _%g134090134106%_))))) - (let () - (declare (not safe)) - (_%g134089134103%_ _%g134090134106%_)))))) - (declare (not safe)) - (_%g134088134144%_ _%stx134087%_)))) + _%ctx133323%_))) + _%tl133281133306%_ + _%hd133282133304%_))) + (_%g133274133288%_ _%g133275133291%_)))) + (_%g133274133288%_ _%g133275133291%_))))) + (_%g133273133329%_ _%stx133272%_)))) (define gxc#apply-begin-annotation% - (lambda (_%self134018%_ _%stx134019%_) - (let* ((_%g134021134038%_ - (lambda (_%g134022134035%_) + (lambda (_%self133203%_ _%stx133204%_) + (let* ((_%g133206133223%_ + (lambda (_%g133207133220%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134022134035%_)))) - (_%g134020134083%_ - (lambda (_%g134022134041%_) + _%g133207133220%_)))) + (_%g133205133268%_ + (lambda (_%g133207133226%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134022134041%_)) - (let ((_%e134027134043%_ + (gx#stx-pair? _%g133207133226%_)) + (let ((_%e133212133228%_ (let () (declare (not safe)) - (gx#stx-e _%g134022134041%_)))) - (let ((_%hd134026134046%_ + (gx#stx-e _%g133207133226%_)))) + (let ((_%hd133211133231%_ (let () (declare (not safe)) - (##car _%e134027134043%_))) - (_%tl134025134048%_ + (##car _%e133212133228%_))) + (_%tl133210133233%_ (let () (declare (not safe)) - (##cdr _%e134027134043%_)))) + (##cdr _%e133212133228%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134025134048%_)) - (let ((_%e134030134051%_ + (gx#stx-pair? _%tl133210133233%_)) + (let ((_%e133215133236%_ (let () (declare (not safe)) - (gx#stx-e _%tl134025134048%_)))) - (let ((_%hd134029134054%_ + (gx#stx-e _%tl133210133233%_)))) + (let ((_%hd133214133239%_ (let () (declare (not safe)) - (##car _%e134030134051%_))) - (_%tl134028134056%_ + (##car _%e133215133236%_))) + (_%tl133213133241%_ (let () (declare (not safe)) - (##cdr _%e134030134051%_)))) + (##cdr _%e133215133236%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134028134056%_)) - (let ((_%e134033134059%_ + (gx#stx-pair? _%tl133213133241%_)) + (let ((_%e133218133244%_ (let () (declare (not safe)) - (gx#stx-e _%tl134028134056%_)))) - (let ((_%hd134032134062%_ + (gx#stx-e _%tl133213133241%_)))) + (let ((_%hd133217133247%_ (let () (declare (not safe)) - (##car _%e134033134059%_))) - (_%tl134031134064%_ + (##car _%e133218133244%_))) + (_%tl133216133249%_ (let () (declare (not safe)) - (##cdr _%e134033134059%_)))) + (##cdr _%e133218133244%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134031134064%_)) - ((lambda (_%L134067%_ - _%L134068%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self134018%_ - _%L134067%_))) - _%hd134032134062%_ - _%hd134029134054%_) - (let () - (declare (not safe)) - (_%g134021134038%_ - _%g134022134041%_))))) - (let () - (declare (not safe)) - (_%g134021134038%_ - _%g134022134041%_))))) - (let () - (declare (not safe)) - (_%g134021134038%_ _%g134022134041%_))))) - (let () - (declare (not safe)) - (_%g134021134038%_ _%g134022134041%_)))))) - (declare (not safe)) - (_%g134020134083%_ _%stx134019%_)))) + _%tl133216133249%_)) + ((lambda (_%L133252%_ + _%L133253%_) + (gxc#compile-e__1 + _%self133203%_ + _%L133252%_)) + _%hd133217133247%_ + _%hd133214133239%_) + (_%g133206133223%_ + _%g133207133226%_)))) + (_%g133206133223%_ _%g133207133226%_)))) + (_%g133206133223%_ _%g133207133226%_)))) + (_%g133206133223%_ _%g133207133226%_))))) + (_%g133205133268%_ _%stx133204%_)))) (define gxc#apply-define-values% - (lambda (_%self133950%_ _%stx133951%_) - (let* ((_%g133953133970%_ - (lambda (_%g133954133967%_) + (lambda (_%self133135%_ _%stx133136%_) + (let* ((_%g133138133155%_ + (lambda (_%g133139133152%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133954133967%_)))) - (_%g133952134015%_ - (lambda (_%g133954133973%_) + _%g133139133152%_)))) + (_%g133137133200%_ + (lambda (_%g133139133158%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133954133973%_)) - (let ((_%e133959133975%_ + (gx#stx-pair? _%g133139133158%_)) + (let ((_%e133144133160%_ (let () (declare (not safe)) - (gx#stx-e _%g133954133973%_)))) - (let ((_%hd133958133978%_ + (gx#stx-e _%g133139133158%_)))) + (let ((_%hd133143133163%_ (let () (declare (not safe)) - (##car _%e133959133975%_))) - (_%tl133957133980%_ + (##car _%e133144133160%_))) + (_%tl133142133165%_ (let () (declare (not safe)) - (##cdr _%e133959133975%_)))) + (##cdr _%e133144133160%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133957133980%_)) - (let ((_%e133962133983%_ + (gx#stx-pair? _%tl133142133165%_)) + (let ((_%e133147133168%_ (let () (declare (not safe)) - (gx#stx-e _%tl133957133980%_)))) - (let ((_%hd133961133986%_ + (gx#stx-e _%tl133142133165%_)))) + (let ((_%hd133146133171%_ (let () (declare (not safe)) - (##car _%e133962133983%_))) - (_%tl133960133988%_ + (##car _%e133147133168%_))) + (_%tl133145133173%_ (let () (declare (not safe)) - (##cdr _%e133962133983%_)))) + (##cdr _%e133147133168%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133960133988%_)) - (let ((_%e133965133991%_ + (gx#stx-pair? _%tl133145133173%_)) + (let ((_%e133150133176%_ (let () (declare (not safe)) - (gx#stx-e _%tl133960133988%_)))) - (let ((_%hd133964133994%_ + (gx#stx-e _%tl133145133173%_)))) + (let ((_%hd133149133179%_ (let () (declare (not safe)) - (##car _%e133965133991%_))) - (_%tl133963133996%_ + (##car _%e133150133176%_))) + (_%tl133148133181%_ (let () (declare (not safe)) - (##cdr _%e133965133991%_)))) + (##cdr _%e133150133176%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133963133996%_)) - ((lambda (_%L133999%_ - _%L134000%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self133950%_ - _%L133999%_))) - _%hd133964133994%_ - _%hd133961133986%_) - (let () - (declare (not safe)) - (_%g133953133970%_ - _%g133954133973%_))))) - (let () - (declare (not safe)) - (_%g133953133970%_ - _%g133954133973%_))))) - (let () - (declare (not safe)) - (_%g133953133970%_ _%g133954133973%_))))) - (let () - (declare (not safe)) - (_%g133953133970%_ _%g133954133973%_)))))) - (declare (not safe)) - (_%g133952134015%_ _%stx133951%_)))) + _%tl133148133181%_)) + ((lambda (_%L133184%_ + _%L133185%_) + (gxc#compile-e__1 + _%self133135%_ + _%L133184%_)) + _%hd133149133179%_ + _%hd133146133171%_) + (_%g133138133155%_ + _%g133139133158%_)))) + (_%g133138133155%_ _%g133139133158%_)))) + (_%g133138133155%_ _%g133139133158%_)))) + (_%g133138133155%_ _%g133139133158%_))))) + (_%g133137133200%_ _%stx133136%_)))) (define gxc#apply-define-syntax% - (lambda (_%self133881%_ _%stx133882%_) - (let* ((_%g133884133901%_ - (lambda (_%g133885133898%_) + (lambda (_%self133066%_ _%stx133067%_) + (let* ((_%g133069133086%_ + (lambda (_%g133070133083%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133885133898%_)))) - (_%g133883133947%_ - (lambda (_%g133885133904%_) + _%g133070133083%_)))) + (_%g133068133132%_ + (lambda (_%g133070133089%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133885133904%_)) - (let ((_%e133890133906%_ + (gx#stx-pair? _%g133070133089%_)) + (let ((_%e133075133091%_ (let () (declare (not safe)) - (gx#stx-e _%g133885133904%_)))) - (let ((_%hd133889133909%_ + (gx#stx-e _%g133070133089%_)))) + (let ((_%hd133074133094%_ (let () (declare (not safe)) - (##car _%e133890133906%_))) - (_%tl133888133911%_ + (##car _%e133075133091%_))) + (_%tl133073133096%_ (let () (declare (not safe)) - (##cdr _%e133890133906%_)))) + (##cdr _%e133075133091%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133888133911%_)) - (let ((_%e133893133914%_ + (gx#stx-pair? _%tl133073133096%_)) + (let ((_%e133078133099%_ (let () (declare (not safe)) - (gx#stx-e _%tl133888133911%_)))) - (let ((_%hd133892133917%_ + (gx#stx-e _%tl133073133096%_)))) + (let ((_%hd133077133102%_ (let () (declare (not safe)) - (##car _%e133893133914%_))) - (_%tl133891133919%_ + (##car _%e133078133099%_))) + (_%tl133076133104%_ (let () (declare (not safe)) - (##cdr _%e133893133914%_)))) + (##cdr _%e133078133099%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133891133919%_)) - (let ((_%e133896133922%_ + (gx#stx-pair? _%tl133076133104%_)) + (let ((_%e133081133107%_ (let () (declare (not safe)) - (gx#stx-e _%tl133891133919%_)))) - (let ((_%hd133895133925%_ + (gx#stx-e _%tl133076133104%_)))) + (let ((_%hd133080133110%_ (let () (declare (not safe)) - (##car _%e133896133922%_))) - (_%tl133894133927%_ + (##car _%e133081133107%_))) + (_%tl133079133112%_ (let () (declare (not safe)) - (##cdr _%e133896133922%_)))) + (##cdr _%e133081133107%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133894133927%_)) - ((lambda (_%L133930%_ - _%L133931%_) - (let ((__tmp134511 + _%tl133079133112%_)) + ((lambda (_%L133115%_ + _%L133116%_) + (let ((__tmp133695 (lambda () - (let () - (declare - (not safe)) - (gxc#compile-e__1 - _%self133881%_ - _%L133930%_)))) - (__tmp134509 - (let ((__tmp134510 + (gxc#compile-e__1 + _%self133066%_ + _%L133115%_))) + (__tmp133693 + (let ((__tmp133694 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp134510 '1)))) + (##fx+ __tmp133694 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp134511 + __tmp133695 gx#current-expander-phi - __tmp134509))) - _%hd133895133925%_ - _%hd133892133917%_) - (let () - (declare (not safe)) - (_%g133884133901%_ - _%g133885133904%_))))) - (let () - (declare (not safe)) - (_%g133884133901%_ - _%g133885133904%_))))) - (let () - (declare (not safe)) - (_%g133884133901%_ _%g133885133904%_))))) - (let () - (declare (not safe)) - (_%g133884133901%_ _%g133885133904%_)))))) - (declare (not safe)) - (_%g133883133947%_ _%stx133882%_)))) + __tmp133693))) + _%hd133080133110%_ + _%hd133077133102%_) + (_%g133069133086%_ + _%g133070133089%_)))) + (_%g133069133086%_ _%g133070133089%_)))) + (_%g133069133086%_ _%g133070133089%_)))) + (_%g133069133086%_ _%g133070133089%_))))) + (_%g133068133132%_ _%stx133067%_)))) (define gxc#apply-body-lambda% - (lambda (_%self133813%_ _%stx133814%_) - (let* ((_%g133816133833%_ - (lambda (_%g133817133830%_) + (lambda (_%self132998%_ _%stx132999%_) + (let* ((_%g133001133018%_ + (lambda (_%g133002133015%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133817133830%_)))) - (_%g133815133878%_ - (lambda (_%g133817133836%_) + _%g133002133015%_)))) + (_%g133000133063%_ + (lambda (_%g133002133021%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133817133836%_)) - (let ((_%e133822133838%_ + (gx#stx-pair? _%g133002133021%_)) + (let ((_%e133007133023%_ (let () (declare (not safe)) - (gx#stx-e _%g133817133836%_)))) - (let ((_%hd133821133841%_ + (gx#stx-e _%g133002133021%_)))) + (let ((_%hd133006133026%_ (let () (declare (not safe)) - (##car _%e133822133838%_))) - (_%tl133820133843%_ + (##car _%e133007133023%_))) + (_%tl133005133028%_ (let () (declare (not safe)) - (##cdr _%e133822133838%_)))) + (##cdr _%e133007133023%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133820133843%_)) - (let ((_%e133825133846%_ + (gx#stx-pair? _%tl133005133028%_)) + (let ((_%e133010133031%_ (let () (declare (not safe)) - (gx#stx-e _%tl133820133843%_)))) - (let ((_%hd133824133849%_ + (gx#stx-e _%tl133005133028%_)))) + (let ((_%hd133009133034%_ (let () (declare (not safe)) - (##car _%e133825133846%_))) - (_%tl133823133851%_ + (##car _%e133010133031%_))) + (_%tl133008133036%_ (let () (declare (not safe)) - (##cdr _%e133825133846%_)))) + (##cdr _%e133010133031%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133823133851%_)) - (let ((_%e133828133854%_ + (gx#stx-pair? _%tl133008133036%_)) + (let ((_%e133013133039%_ (let () (declare (not safe)) - (gx#stx-e _%tl133823133851%_)))) - (let ((_%hd133827133857%_ + (gx#stx-e _%tl133008133036%_)))) + (let ((_%hd133012133042%_ (let () (declare (not safe)) - (##car _%e133828133854%_))) - (_%tl133826133859%_ + (##car _%e133013133039%_))) + (_%tl133011133044%_ (let () (declare (not safe)) - (##cdr _%e133828133854%_)))) + (##cdr _%e133013133039%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133826133859%_)) - ((lambda (_%L133862%_ - _%L133863%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self133813%_ - _%L133862%_))) - _%hd133827133857%_ - _%hd133824133849%_) - (let () - (declare (not safe)) - (_%g133816133833%_ - _%g133817133836%_))))) - (let () - (declare (not safe)) - (_%g133816133833%_ - _%g133817133836%_))))) - (let () - (declare (not safe)) - (_%g133816133833%_ _%g133817133836%_))))) - (let () - (declare (not safe)) - (_%g133816133833%_ _%g133817133836%_)))))) - (declare (not safe)) - (_%g133815133878%_ _%stx133814%_)))) + _%tl133011133044%_)) + ((lambda (_%L133047%_ + _%L133048%_) + (gxc#compile-e__1 + _%self132998%_ + _%L133047%_)) + _%hd133012133042%_ + _%hd133009133034%_) + (_%g133001133018%_ + _%g133002133021%_)))) + (_%g133001133018%_ _%g133002133021%_)))) + (_%g133001133018%_ _%g133002133021%_)))) + (_%g133001133018%_ _%g133002133021%_))))) + (_%g133000133063%_ _%stx132999%_)))) (define gxc#apply-body-case-lambda% - (lambda (_%self133695%_ _%stx133696%_) - (let* ((_%g133698133726%_ - (lambda (_%g133699133723%_) + (lambda (_%self132880%_ _%stx132881%_) + (let* ((_%g132883132911%_ + (lambda (_%g132884132908%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133699133723%_)))) - (_%g133697133810%_ - (lambda (_%g133699133729%_) + _%g132884132908%_)))) + (_%g132882132995%_ + (lambda (_%g132884132914%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133699133729%_)) - (let ((_%e133704133731%_ + (gx#stx-pair? _%g132884132914%_)) + (let ((_%e132889132916%_ (let () (declare (not safe)) - (gx#stx-e _%g133699133729%_)))) - (let ((_%hd133703133734%_ + (gx#stx-e _%g132884132914%_)))) + (let ((_%hd132888132919%_ (let () (declare (not safe)) - (##car _%e133704133731%_))) - (_%tl133702133736%_ + (##car _%e132889132916%_))) + (_%tl132887132921%_ (let () (declare (not safe)) - (##cdr _%e133704133731%_)))) + (##cdr _%e132889132916%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl133702133736%_)) - (let ((_g134512_ + (gx#stx-pair/null? _%tl132887132921%_)) + (let ((_g133696_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl133702133736%_ + _%tl132887132921%_ '0)))) (begin - (let ((_g134513_ + (let ((_g133697_ (let () (declare (not safe)) - (if (##values? _g134512_) - (##vector-length _g134512_) + (if (##values? _g133696_) + (##vector-length _g133696_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g134513_ 2))) + (##fx= _g133697_ 2))) (error "Context expects 2 values" - _g134513_))) - (let ((_%target133705133739%_ + _g133697_))) + (let ((_%target132890132924%_ (let () (declare (not safe)) - (##vector-ref _g134512_ 0))) - (_%tl133707133741%_ + (##vector-ref _g133696_ 0))) + (_%tl132892132926%_ (let () (declare (not safe)) - (##vector-ref _g134512_ 1)))) + (##vector-ref _g133696_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133707133741%_)) - (letrec ((_%loop133708133744%_ - (lambda (_%hd133706133747%_ - _%body133712133749%_ - _%hd133713133751%_) + (gx#stx-null? _%tl132892132926%_)) + (letrec ((_%loop132893132929%_ + (lambda (_%hd132891132932%_ + _%body132897132934%_ + _%hd132898132936%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd133706133747%_)) - (let ((_%e133709133754%_ + _%hd132891132932%_)) + (let ((_%e132894132939%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd133706133747%_)))) - (let ((_%lp-hd133710133757%_ + (gx#stx-e _%hd132891132932%_)))) + (let ((_%lp-hd132895132942%_ (let () (declare (not safe)) - (##car _%e133709133754%_))) - (_%lp-tl133711133759%_ + (##car _%e132894132939%_))) + (_%lp-tl132896132944%_ (let () (declare (not safe)) - (##cdr _%e133709133754%_)))) + (##cdr _%e132894132939%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd133710133757%_)) - (let ((_%e133718133762%_ + (gx#stx-pair? _%lp-hd132895132942%_)) + (let ((_%e132903132947%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd133710133757%_)))) - (let ((_%hd133717133765%_ + (gx#stx-e _%lp-hd132895132942%_)))) + (let ((_%hd132902132950%_ (let () (declare (not safe)) - (##car _%e133718133762%_))) - (_%tl133716133767%_ + (##car _%e132903132947%_))) + (_%tl132901132952%_ (let () (declare (not safe)) - (##cdr _%e133718133762%_)))) + (##cdr _%e132903132947%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133716133767%_)) - (let ((_%e133721133770%_ + (gx#stx-pair? _%tl132901132952%_)) + (let ((_%e132906132955%_ (let () (declare (not safe)) - (gx#stx-e _%tl133716133767%_)))) - (let ((_%hd133720133773%_ + (gx#stx-e _%tl132901132952%_)))) + (let ((_%hd132905132958%_ (let () (declare (not safe)) - (##car _%e133721133770%_))) - (_%tl133719133775%_ + (##car _%e132906132955%_))) + (_%tl132904132960%_ (let () (declare (not safe)) - (##cdr _%e133721133770%_)))) + (##cdr _%e132906132955%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133719133775%_)) - (let ((__tmp134515 - (cons _%hd133720133773%_ - _%body133712133749%_)) - (__tmp134514 - (cons _%hd133717133765%_ - _%hd133713133751%_))) - (declare (not safe)) - (_%loop133708133744%_ - _%lp-tl133711133759%_ - __tmp134515 - __tmp134514)) - (let () - (declare (not safe)) - (_%g133698133726%_ - _%g133699133729%_))))) - (let () - (declare (not safe)) - (_%g133698133726%_ _%g133699133729%_))))) - (let () - (declare (not safe)) - (_%g133698133726%_ _%g133699133729%_))))) - (let ((_%body133714133778%_ (reverse _%body133712133749%_)) - (_%hd133715133780%_ (reverse _%hd133713133751%_))) - ((lambda (_%L133783%_ _%L133784%_) + (gx#stx-null? _%tl132904132960%_)) + (_%loop132893132929%_ + _%lp-tl132896132944%_ + (cons _%hd132905132958%_ + _%body132897132934%_) + (cons _%hd132902132950%_ + _%hd132898132936%_)) + (_%g132883132911%_ + _%g132884132914%_)))) + (_%g132883132911%_ _%g132884132914%_)))) + (_%g132883132911%_ _%g132884132914%_)))) + (let ((_%body132899132963%_ (reverse _%body132897132934%_)) + (_%hd132900132965%_ (reverse _%hd132898132936%_))) + ((lambda (_%L132968%_ _%L132969%_) (for-each - (lambda (_%g133798133800%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 _%self133695%_ _%g133798133800%_))) - (let ((__tmp134516 - (lambda (_%g133802133805%_ _%g133803133807%_) - (cons _%g133802133805%_ _%g133803133807%_)))) + (lambda (_%g132983132985%_) + (gxc#compile-e__1 _%self132880%_ _%g132983132985%_)) + (let ((__tmp133698 + (lambda (_%g132987132990%_ _%g132988132992%_) + (cons _%g132987132990%_ _%g132988132992%_)))) (declare (not safe)) - (__foldr1 __tmp134516 '() _%L133783%_)))) - _%body133714133778%_ - _%hd133715133780%_)))))) + (__foldr1 __tmp133698 '() _%L132968%_)))) + _%body132899132963%_ + _%hd132900132965%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop133708133744%_ - _%target133705133739%_ - '() - '()))) - (let () - (declare (not safe)) - (_%g133698133726%_ - _%g133699133729%_)))))) - (let () - (declare (not safe)) - (_%g133698133726%_ _%g133699133729%_))))) - (let () - (declare (not safe)) - (_%g133698133726%_ _%g133699133729%_)))))) - (declare (not safe)) - (_%g133697133810%_ _%stx133696%_)))) + (_%loop132893132929%_ + _%target132890132924%_ + '() + '())) + (_%g132883132911%_ + _%g132884132914%_))))) + (_%g132883132911%_ _%g132884132914%_)))) + (_%g132883132911%_ _%g132884132914%_))))) + (_%g132882132995%_ _%stx132881%_)))) (define gxc#apply-body-let-values% - (lambda (_%self133548%_ _%stx133549%_) - (let* ((_%g133551133586%_ - (lambda (_%g133552133583%_) + (lambda (_%self132733%_ _%stx132734%_) + (let* ((_%g132736132771%_ + (lambda (_%g132737132768%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133552133583%_)))) - (_%g133550133692%_ - (lambda (_%g133552133589%_) + _%g132737132768%_)))) + (_%g132735132877%_ + (lambda (_%g132737132774%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133552133589%_)) - (let ((_%e133558133591%_ + (gx#stx-pair? _%g132737132774%_)) + (let ((_%e132743132776%_ (let () (declare (not safe)) - (gx#stx-e _%g133552133589%_)))) - (let ((_%hd133557133594%_ + (gx#stx-e _%g132737132774%_)))) + (let ((_%hd132742132779%_ (let () (declare (not safe)) - (##car _%e133558133591%_))) - (_%tl133556133596%_ + (##car _%e132743132776%_))) + (_%tl132741132781%_ (let () (declare (not safe)) - (##cdr _%e133558133591%_)))) + (##cdr _%e132743132776%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133556133596%_)) - (let ((_%e133561133599%_ + (gx#stx-pair? _%tl132741132781%_)) + (let ((_%e132746132784%_ (let () (declare (not safe)) - (gx#stx-e _%tl133556133596%_)))) - (let ((_%hd133560133602%_ + (gx#stx-e _%tl132741132781%_)))) + (let ((_%hd132745132787%_ (let () (declare (not safe)) - (##car _%e133561133599%_))) - (_%tl133559133604%_ + (##car _%e132746132784%_))) + (_%tl132744132789%_ (let () (declare (not safe)) - (##cdr _%e133561133599%_)))) + (##cdr _%e132746132784%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd133560133602%_)) - (let ((_g134517_ + (gx#stx-pair/null? _%hd132745132787%_)) + (let ((_g133699_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd133560133602%_ + _%hd132745132787%_ '0)))) (begin - (let ((_g134518_ + (let ((_g133700_ (let () (declare (not safe)) - (if (##values? _g134517_) + (if (##values? _g133699_) (##vector-length - _g134517_) + _g133699_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g134518_ 2))) + (##fx= _g133700_ 2))) (error "Context expects 2 values" - _g134518_))) - (let ((_%target133562133607%_ + _g133700_))) + (let ((_%target132747132792%_ (let () (declare (not safe)) - (##vector-ref _g134517_ 0))) - (_%tl133564133609%_ + (##vector-ref _g133699_ 0))) + (_%tl132749132794%_ (let () (declare (not safe)) (##vector-ref - _g134517_ + _g133699_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133564133609%_)) - (letrec ((_%loop133565133612%_ - (lambda (_%hd133563133615%_ + _%tl132749132794%_)) + (letrec ((_%loop132750132797%_ + (lambda (_%hd132748132800%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr133569133617%_ - _%hd133570133619%_) + _%expr132754132802%_ + _%hd132755132804%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133563133615%_)) - (let ((_%e133566133622%_ + (gx#stx-pair? _%hd132748132800%_)) + (let ((_%e132751132807%_ (let () (declare (not safe)) - (gx#stx-e _%hd133563133615%_)))) - (let ((_%lp-hd133567133625%_ + (gx#stx-e _%hd132748132800%_)))) + (let ((_%lp-hd132752132810%_ (let () (declare (not safe)) - (##car _%e133566133622%_))) - (_%lp-tl133568133627%_ + (##car _%e132751132807%_))) + (_%lp-tl132753132812%_ (let () (declare (not safe)) - (##cdr _%e133566133622%_)))) + (##cdr _%e132751132807%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd133567133625%_)) - (let ((_%e133575133630%_ + (gx#stx-pair? _%lp-hd132752132810%_)) + (let ((_%e132760132815%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd133567133625%_)))) - (let ((_%hd133574133633%_ + (gx#stx-e _%lp-hd132752132810%_)))) + (let ((_%hd132759132818%_ (let () (declare (not safe)) - (##car _%e133575133630%_))) - (_%tl133573133635%_ + (##car _%e132760132815%_))) + (_%tl132758132820%_ (let () (declare (not safe)) - (##cdr _%e133575133630%_)))) + (##cdr _%e132760132815%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133573133635%_)) - (let ((_%e133578133638%_ + (gx#stx-pair? _%tl132758132820%_)) + (let ((_%e132763132823%_ (let () (declare (not safe)) (gx#stx-e - _%tl133573133635%_)))) - (let ((_%hd133577133641%_ + _%tl132758132820%_)))) + (let ((_%hd132762132826%_ (let () (declare (not safe)) - (##car _%e133578133638%_))) - (_%tl133576133643%_ + (##car _%e132763132823%_))) + (_%tl132761132828%_ (let () (declare (not safe)) - (##cdr _%e133578133638%_)))) + (##cdr _%e132763132823%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133576133643%_)) - (let ((__tmp134520 - (cons _%hd133577133641%_ - _%expr133569133617%_)) - (__tmp134519 - (cons _%hd133574133633%_ - _%hd133570133619%_))) - (declare (not safe)) - (_%loop133565133612%_ - _%lp-tl133568133627%_ - __tmp134520 - __tmp134519)) - (let () - (declare (not safe)) - (_%g133551133586%_ - _%g133552133589%_))))) - (let () - (declare (not safe)) - (_%g133551133586%_ - _%g133552133589%_))))) - (let () - (declare (not safe)) - (_%g133551133586%_ _%g133552133589%_))))) - (let ((_%expr133571133646%_ - (reverse _%expr133569133617%_)) - (_%hd133572133648%_ - (reverse _%hd133570133619%_))) + _%tl132761132828%_)) + (_%loop132750132797%_ + _%lp-tl132753132812%_ + (cons _%hd132762132826%_ + _%expr132754132802%_) + (cons _%hd132759132818%_ + _%hd132755132804%_)) + (_%g132736132771%_ + _%g132737132774%_)))) + (_%g132736132771%_ + _%g132737132774%_)))) + (_%g132736132771%_ _%g132737132774%_)))) + (let ((_%expr132756132831%_ + (reverse _%expr132754132802%_)) + (_%hd132757132833%_ + (reverse _%hd132755132804%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133559133604%_)) - (let ((_%e133581133651%_ + (gx#stx-pair? _%tl132744132789%_)) + (let ((_%e132766132836%_ (let () (declare (not safe)) - (gx#stx-e _%tl133559133604%_)))) - (let ((_%hd133580133654%_ + (gx#stx-e _%tl132744132789%_)))) + (let ((_%hd132765132839%_ (let () (declare (not safe)) - (##car _%e133581133651%_))) - (_%tl133579133656%_ + (##car _%e132766132836%_))) + (_%tl132764132841%_ (let () (declare (not safe)) - (##cdr _%e133581133651%_)))) + (##cdr _%e132766132836%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133579133656%_)) - ((lambda (_%L133659%_ - _%L133660%_ - _%L133661%_) + (gx#stx-null? _%tl132764132841%_)) + ((lambda (_%L132844%_ + _%L132845%_ + _%L132846%_) (for-each - (lambda (_%g133680133682%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self133548%_ - _%g133680133682%_))) - (let ((__tmp134522 - (lambda (_%g133684133687%_ - _%g133685133689%_) - (cons _%g133684133687%_ - _%g133685133689%_))) - (__tmp134521 - (cons _%L133659%_ '()))) + (lambda (_%g132865132867%_) + (gxc#compile-e__1 + _%self132733%_ + _%g132865132867%_)) + (let ((__tmp133702 + (lambda (_%g132869132872%_ + _%g132870132874%_) + (cons _%g132869132872%_ + _%g132870132874%_))) + (__tmp133701 + (cons _%L132844%_ '()))) (declare (not safe)) (__foldr1 - __tmp134522 - __tmp134521 - _%L133660%_)))) - _%hd133580133654%_ - _%expr133571133646%_ - _%hd133572133648%_) - (let () - (declare (not safe)) - (_%g133551133586%_ - _%g133552133589%_))))) - (let () - (declare (not safe)) - (_%g133551133586%_ _%g133552133589%_)))))))) + __tmp133702 + __tmp133701 + _%L132845%_)))) + _%hd132765132839%_ + _%expr132756132831%_ + _%hd132757132833%_) + (_%g132736132771%_ _%g132737132774%_)))) + (_%g132736132771%_ _%g132737132774%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop133565133612%_ - _%target133562133607%_ - '() - '()))) - (let () - (declare (not safe)) - (_%g133551133586%_ - _%g133552133589%_)))))) - (let () - (declare (not safe)) - (_%g133551133586%_ - _%g133552133589%_))))) - (let () - (declare (not safe)) - (_%g133551133586%_ _%g133552133589%_))))) - (let () - (declare (not safe)) - (_%g133551133586%_ _%g133552133589%_)))))) - (declare (not safe)) - (_%g133550133692%_ _%stx133549%_)))) + (_%loop132750132797%_ + _%target132747132792%_ + '() + '())) + (_%g132736132771%_ + _%g132737132774%_))))) + (_%g132736132771%_ _%g132737132774%_)))) + (_%g132736132771%_ _%g132737132774%_)))) + (_%g132736132771%_ _%g132737132774%_))))) + (_%g132735132877%_ _%stx132734%_)))) (define gxc#apply-body-last-let-values% - (lambda (_%self133493%_ _%stx133494%_) - (let* ((_%g133496133510%_ - (lambda (_%g133497133507%_) + (lambda (_%self132678%_ _%stx132679%_) + (let* ((_%g132681132695%_ + (lambda (_%g132682132692%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133497133507%_)))) - (_%g133495133545%_ - (lambda (_%g133497133513%_) + _%g132682132692%_)))) + (_%g132680132730%_ + (lambda (_%g132682132698%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133497133513%_)) - (let ((_%e133502133515%_ + (gx#stx-pair? _%g132682132698%_)) + (let ((_%e132687132700%_ (let () (declare (not safe)) - (gx#stx-e _%g133497133513%_)))) - (let ((_%hd133501133518%_ + (gx#stx-e _%g132682132698%_)))) + (let ((_%hd132686132703%_ (let () (declare (not safe)) - (##car _%e133502133515%_))) - (_%tl133500133520%_ + (##car _%e132687132700%_))) + (_%tl132685132705%_ (let () (declare (not safe)) - (##cdr _%e133502133515%_)))) + (##cdr _%e132687132700%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133500133520%_)) - (let ((_%e133505133523%_ + (gx#stx-pair? _%tl132685132705%_)) + (let ((_%e132690132708%_ (let () (declare (not safe)) - (gx#stx-e _%tl133500133520%_)))) - (let ((_%hd133504133526%_ + (gx#stx-e _%tl132685132705%_)))) + (let ((_%hd132689132711%_ (let () (declare (not safe)) - (##car _%e133505133523%_))) - (_%tl133503133528%_ + (##car _%e132690132708%_))) + (_%tl132688132713%_ (let () (declare (not safe)) - (##cdr _%e133505133523%_)))) - ((lambda (_%L133531%_ _%L133532%_) - (let ((__tmp134523 (last _%L133531%_))) - (declare (not safe)) - (gxc#compile-e__1 - _%self133493%_ - __tmp134523))) - _%tl133503133528%_ - _%hd133504133526%_))) - (let () - (declare (not safe)) - (_%g133496133510%_ _%g133497133513%_))))) - (let () - (declare (not safe)) - (_%g133496133510%_ _%g133497133513%_)))))) - (declare (not safe)) - (_%g133495133545%_ _%stx133494%_)))) + (##cdr _%e132690132708%_)))) + ((lambda (_%L132716%_ _%L132717%_) + (gxc#compile-e__1 + _%self132678%_ + (last _%L132716%_))) + _%tl132688132713%_ + _%hd132689132711%_))) + (_%g132681132695%_ _%g132682132698%_)))) + (_%g132681132695%_ _%g132682132698%_))))) + (_%g132680132730%_ _%stx132679%_)))) (define gxc#apply-body-setq% - (lambda (_%self133425%_ _%stx133426%_) - (let* ((_%g133428133445%_ - (lambda (_%g133429133442%_) + (lambda (_%self132610%_ _%stx132611%_) + (let* ((_%g132613132630%_ + (lambda (_%g132614132627%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133429133442%_)))) - (_%g133427133490%_ - (lambda (_%g133429133448%_) + _%g132614132627%_)))) + (_%g132612132675%_ + (lambda (_%g132614132633%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133429133448%_)) - (let ((_%e133434133450%_ + (gx#stx-pair? _%g132614132633%_)) + (let ((_%e132619132635%_ (let () (declare (not safe)) - (gx#stx-e _%g133429133448%_)))) - (let ((_%hd133433133453%_ + (gx#stx-e _%g132614132633%_)))) + (let ((_%hd132618132638%_ (let () (declare (not safe)) - (##car _%e133434133450%_))) - (_%tl133432133455%_ + (##car _%e132619132635%_))) + (_%tl132617132640%_ (let () (declare (not safe)) - (##cdr _%e133434133450%_)))) + (##cdr _%e132619132635%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133432133455%_)) - (let ((_%e133437133458%_ + (gx#stx-pair? _%tl132617132640%_)) + (let ((_%e132622132643%_ (let () (declare (not safe)) - (gx#stx-e _%tl133432133455%_)))) - (let ((_%hd133436133461%_ + (gx#stx-e _%tl132617132640%_)))) + (let ((_%hd132621132646%_ (let () (declare (not safe)) - (##car _%e133437133458%_))) - (_%tl133435133463%_ + (##car _%e132622132643%_))) + (_%tl132620132648%_ (let () (declare (not safe)) - (##cdr _%e133437133458%_)))) + (##cdr _%e132622132643%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133435133463%_)) - (let ((_%e133440133466%_ + (gx#stx-pair? _%tl132620132648%_)) + (let ((_%e132625132651%_ (let () (declare (not safe)) - (gx#stx-e _%tl133435133463%_)))) - (let ((_%hd133439133469%_ + (gx#stx-e _%tl132620132648%_)))) + (let ((_%hd132624132654%_ (let () (declare (not safe)) - (##car _%e133440133466%_))) - (_%tl133438133471%_ + (##car _%e132625132651%_))) + (_%tl132623132656%_ (let () (declare (not safe)) - (##cdr _%e133440133466%_)))) + (##cdr _%e132625132651%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133438133471%_)) - ((lambda (_%L133474%_ - _%L133475%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self133425%_ - _%L133474%_))) - _%hd133439133469%_ - _%hd133436133461%_) - (let () - (declare (not safe)) - (_%g133428133445%_ - _%g133429133448%_))))) - (let () - (declare (not safe)) - (_%g133428133445%_ - _%g133429133448%_))))) - (let () - (declare (not safe)) - (_%g133428133445%_ _%g133429133448%_))))) - (let () - (declare (not safe)) - (_%g133428133445%_ _%g133429133448%_)))))) - (declare (not safe)) - (_%g133427133490%_ _%stx133426%_)))) + _%tl132623132656%_)) + ((lambda (_%L132659%_ + _%L132660%_) + (gxc#compile-e__1 + _%self132610%_ + _%L132659%_)) + _%hd132624132654%_ + _%hd132621132646%_) + (_%g132613132630%_ + _%g132614132633%_)))) + (_%g132613132630%_ _%g132614132633%_)))) + (_%g132613132630%_ _%g132614132633%_)))) + (_%g132613132630%_ _%g132614132633%_))))) + (_%g132612132675%_ _%stx132611%_)))) (define gxc#apply-operands - (lambda (_%self133338%_ _%stx133339%_) - (let* ((_%g133341133360%_ - (lambda (_%g133342133357%_) + (lambda (_%self132523%_ _%stx132524%_) + (let* ((_%g132526132545%_ + (lambda (_%g132527132542%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133342133357%_)))) - (_%g133340133422%_ - (lambda (_%g133342133363%_) + _%g132527132542%_)))) + (_%g132525132607%_ + (lambda (_%g132527132548%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133342133363%_)) - (let ((_%e133346133365%_ + (gx#stx-pair? _%g132527132548%_)) + (let ((_%e132531132550%_ (let () (declare (not safe)) - (gx#stx-e _%g133342133363%_)))) - (let ((_%hd133345133368%_ + (gx#stx-e _%g132527132548%_)))) + (let ((_%hd132530132553%_ (let () (declare (not safe)) - (##car _%e133346133365%_))) - (_%tl133344133370%_ + (##car _%e132531132550%_))) + (_%tl132529132555%_ (let () (declare (not safe)) - (##cdr _%e133346133365%_)))) + (##cdr _%e132531132550%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl133344133370%_)) - (let ((_g134524_ + (gx#stx-pair/null? _%tl132529132555%_)) + (let ((_g133703_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl133344133370%_ + _%tl132529132555%_ '0)))) (begin - (let ((_g134525_ + (let ((_g133704_ (let () (declare (not safe)) - (if (##values? _g134524_) - (##vector-length _g134524_) + (if (##values? _g133703_) + (##vector-length _g133703_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g134525_ 2))) + (##fx= _g133704_ 2))) (error "Context expects 2 values" - _g134525_))) - (let ((_%target133347133373%_ + _g133704_))) + (let ((_%target132532132558%_ (let () (declare (not safe)) - (##vector-ref _g134524_ 0))) - (_%tl133349133375%_ + (##vector-ref _g133703_ 0))) + (_%tl132534132560%_ (let () (declare (not safe)) - (##vector-ref _g134524_ 1)))) + (##vector-ref _g133703_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133349133375%_)) - (letrec ((_%loop133350133378%_ - (lambda (_%hd133348133381%_ - _%rands133354133383%_) + (gx#stx-null? _%tl132534132560%_)) + (letrec ((_%loop132535132563%_ + (lambda (_%hd132533132566%_ + _%rands132539132568%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd133348133381%_)) - (let ((_%e133351133386%_ + _%hd132533132566%_)) + (let ((_%e132536132571%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd133348133381%_)))) - (let ((_%lp-hd133352133389%_ + (gx#stx-e _%hd132533132566%_)))) + (let ((_%lp-hd132537132574%_ (let () (declare (not safe)) - (##car _%e133351133386%_))) - (_%lp-tl133353133391%_ + (##car _%e132536132571%_))) + (_%lp-tl132538132576%_ (let () (declare (not safe)) - (##cdr _%e133351133386%_)))) - (let ((__tmp134526 - (cons _%lp-hd133352133389%_ _%rands133354133383%_))) - (declare (not safe)) - (_%loop133350133378%_ - _%lp-tl133353133391%_ - __tmp134526)))) - (let ((_%rands133355133394%_ (reverse _%rands133354133383%_))) - ((lambda (_%L133397%_) + (##cdr _%e132536132571%_)))) + (_%loop132535132563%_ + _%lp-tl132538132576%_ + (cons _%lp-hd132537132574%_ _%rands132539132568%_)))) + (let ((_%rands132540132579%_ (reverse _%rands132539132568%_))) + ((lambda (_%L132582%_) (for-each - (lambda (_%g133410133412%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 _%self133338%_ _%g133410133412%_))) - (let ((__tmp134527 - (lambda (_%g133414133417%_ _%g133415133419%_) - (cons _%g133414133417%_ _%g133415133419%_)))) + (lambda (_%g132595132597%_) + (gxc#compile-e__1 _%self132523%_ _%g132595132597%_)) + (let ((__tmp133705 + (lambda (_%g132599132602%_ _%g132600132604%_) + (cons _%g132599132602%_ _%g132600132604%_)))) (declare (not safe)) - (__foldr1 __tmp134527 '() _%L133397%_)))) - _%rands133355133394%_)))))) + (__foldr1 __tmp133705 '() _%L132582%_)))) + _%rands132540132579%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop133350133378%_ - _%target133347133373%_ - '()))) - (let () - (declare (not safe)) - (_%g133341133360%_ - _%g133342133363%_)))))) - (let () - (declare (not safe)) - (_%g133341133360%_ _%g133342133363%_))))) - (let () - (declare (not safe)) - (_%g133341133360%_ _%g133342133363%_)))))) - (declare (not safe)) - (_%g133340133422%_ _%stx133339%_)))) + (_%loop132535132563%_ + _%target132532132558%_ + '())) + (_%g132526132545%_ + _%g132527132548%_))))) + (_%g132526132545%_ _%g132527132548%_)))) + (_%g132526132545%_ _%g132527132548%_))))) + (_%g132525132607%_ _%stx132524%_)))) (define gxc#xform-wrap-source - (lambda (_%stx133335%_ _%src-stx133336%_) - (let ((__tmp134528 + (lambda (_%stx132520%_ _%src-stx132521%_) + (let ((__tmp133706 (let () (declare (not safe)) - (gx#stx-source _%src-stx133336%_)))) + (gx#stx-source _%src-stx132521%_)))) (declare (not safe)) - (gx#stx-wrap-source _%stx133335%_ __tmp134528)))) + (gx#stx-wrap-source _%stx132520%_ __tmp133706)))) (define gxc#xform-begin% - (lambda (_%self133290%_ _%stx133291%_) - (let* ((_%g133293133303%_ - (lambda (_%g133294133300%_) + (lambda (_%self132475%_ _%stx132476%_) + (let* ((_%g132478132488%_ + (lambda (_%g132479132485%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133294133300%_)))) - (_%g133292133332%_ - (lambda (_%g133294133306%_) + _%g132479132485%_)))) + (_%g132477132517%_ + (lambda (_%g132479132491%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133294133306%_)) - (let ((_%e133298133308%_ + (gx#stx-pair? _%g132479132491%_)) + (let ((_%e132483132493%_ (let () (declare (not safe)) - (gx#stx-e _%g133294133306%_)))) - (let ((_%hd133297133311%_ + (gx#stx-e _%g132479132491%_)))) + (let ((_%hd132482132496%_ (let () (declare (not safe)) - (##car _%e133298133308%_))) - (_%tl133296133313%_ + (##car _%e132483132493%_))) + (_%tl132481132498%_ (let () (declare (not safe)) - (##cdr _%e133298133308%_)))) - ((lambda (_%L133316%_) - (let* ((_%forms133330%_ - (map (lambda (_%g133325133327%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self133290%_ - _%g133325133327%_))) - _%L133316%_)) - (__tmp134529 - (cons '%#begin _%forms133330%_))) - (declare (not safe)) + (##cdr _%e132483132493%_)))) + ((lambda (_%L132501%_) + (let ((_%forms132515%_ + (map (lambda (_%g132510132512%_) + (gxc#compile-e__1 + _%self132475%_ + _%g132510132512%_)) + _%L132501%_))) (gxc#xform-wrap-source - __tmp134529 - _%stx133291%_))) - _%tl133296133313%_))) - (let () - (declare (not safe)) - (_%g133293133303%_ _%g133294133306%_)))))) - (declare (not safe)) - (_%g133292133332%_ _%stx133291%_)))) + (cons '%#begin _%forms132515%_) + _%stx132476%_))) + _%tl132481132498%_))) + (_%g132478132488%_ _%g132479132491%_))))) + (_%g132477132517%_ _%stx132476%_)))) (define gxc#xform-begin-syntax% - (lambda (_%self133244%_ _%stx133245%_) - (let* ((_%g133247133257%_ - (lambda (_%g133248133254%_) + (lambda (_%self132429%_ _%stx132430%_) + (let* ((_%g132432132442%_ + (lambda (_%g132433132439%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133248133254%_)))) - (_%g133246133287%_ - (lambda (_%g133248133260%_) + _%g132433132439%_)))) + (_%g132431132472%_ + (lambda (_%g132433132445%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133248133260%_)) - (let ((_%e133252133262%_ + (gx#stx-pair? _%g132433132445%_)) + (let ((_%e132437132447%_ (let () (declare (not safe)) - (gx#stx-e _%g133248133260%_)))) - (let ((_%hd133251133265%_ + (gx#stx-e _%g132433132445%_)))) + (let ((_%hd132436132450%_ (let () (declare (not safe)) - (##car _%e133252133262%_))) - (_%tl133250133267%_ + (##car _%e132437132447%_))) + (_%tl132435132452%_ (let () (declare (not safe)) - (##cdr _%e133252133262%_)))) - ((lambda (_%L133270%_) - (let ((__tmp134532 + (##cdr _%e132437132447%_)))) + ((lambda (_%L132455%_) + (let ((__tmp133709 (lambda () - (let* ((_%forms133285%_ - (map (lambda (_%g133280133282%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self133244%_ - _%g133280133282%_))) - _%L133270%_)) - (__tmp134533 - (cons '%#begin-syntax - _%forms133285%_))) - (declare (not safe)) + (let ((_%forms132470%_ + (map (lambda (_%g132465132467%_) + (gxc#compile-e__1 + _%self132429%_ + _%g132465132467%_)) + _%L132455%_))) (gxc#xform-wrap-source - __tmp134533 - _%stx133245%_)))) - (__tmp134530 - (let ((__tmp134531 + (cons '%#begin-syntax _%forms132470%_) + _%stx132430%_)))) + (__tmp133707 + (let ((__tmp133708 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp134531 '1)))) + (##fx+ __tmp133708 '1)))) (declare (not safe)) (__call-with-parameters - __tmp134532 + __tmp133709 gx#current-expander-phi - __tmp134530))) - _%tl133250133267%_))) - (let () - (declare (not safe)) - (_%g133247133257%_ _%g133248133260%_)))))) - (declare (not safe)) - (_%g133246133287%_ _%stx133245%_)))) + __tmp133707))) + _%tl132435132452%_))) + (_%g132432132442%_ _%g132433132445%_))))) + (_%g132431132472%_ _%stx132430%_)))) (define gxc#xform-module% - (lambda (_%self133181%_ _%stx133182%_) - (let* ((_%g133184133198%_ - (lambda (_%g133185133195%_) + (lambda (_%self132366%_ _%stx132367%_) + (let* ((_%g132369132383%_ + (lambda (_%g132370132380%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133185133195%_)))) - (_%g133183133241%_ - (lambda (_%g133185133201%_) + _%g132370132380%_)))) + (_%g132368132426%_ + (lambda (_%g132370132386%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133185133201%_)) - (let ((_%e133190133203%_ + (gx#stx-pair? _%g132370132386%_)) + (let ((_%e132375132388%_ (let () (declare (not safe)) - (gx#stx-e _%g133185133201%_)))) - (let ((_%hd133189133206%_ + (gx#stx-e _%g132370132386%_)))) + (let ((_%hd132374132391%_ (let () (declare (not safe)) - (##car _%e133190133203%_))) - (_%tl133188133208%_ + (##car _%e132375132388%_))) + (_%tl132373132393%_ (let () (declare (not safe)) - (##cdr _%e133190133203%_)))) + (##cdr _%e132375132388%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133188133208%_)) - (let ((_%e133193133211%_ + (gx#stx-pair? _%tl132373132393%_)) + (let ((_%e132378132396%_ (let () (declare (not safe)) - (gx#stx-e _%tl133188133208%_)))) - (let ((_%hd133192133214%_ + (gx#stx-e _%tl132373132393%_)))) + (let ((_%hd132377132399%_ (let () (declare (not safe)) - (##car _%e133193133211%_))) - (_%tl133191133216%_ + (##car _%e132378132396%_))) + (_%tl132376132401%_ (let () (declare (not safe)) - (##cdr _%e133193133211%_)))) - ((lambda (_%L133219%_ _%L133220%_) - (let* ((_%ctx133233%_ + (##cdr _%e132378132396%_)))) + ((lambda (_%L132404%_ _%L132405%_) + (let* ((_%ctx132418%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L133220%_))) - (_%code133235%_ + _%L132405%_))) + (_%code132420%_ (##structure-ref - _%ctx133233%_ + _%ctx132418%_ '11 gx#module-context::t '#f)) - (_%code133238%_ - (let ((__tmp134534 + (_%code132423%_ + (let ((__tmp133710 (lambda () - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self133181%_ - _%code133235%_))))) + (gxc#compile-e__1 + _%self132366%_ + _%code132420%_)))) (declare (not safe)) (__call-with-parameters - __tmp134534 + __tmp133710 gx#current-expander-context - _%ctx133233%_)))) + _%ctx132418%_)))) (##structure-set! - _%ctx133233%_ - _%code133238%_ + _%ctx132418%_ + _%code132423%_ '11 gx#module-context::t '#f) - (let ((__tmp134535 - (cons '%#module - (cons _%L133220%_ - (cons _%code133238%_ - '()))))) - (declare (not safe)) - (gxc#xform-wrap-source - __tmp134535 - _%stx133182%_)))) - _%tl133191133216%_ - _%hd133192133214%_))) - (let () - (declare (not safe)) - (_%g133184133198%_ _%g133185133201%_))))) - (let () - (declare (not safe)) - (_%g133184133198%_ _%g133185133201%_)))))) - (declare (not safe)) - (_%g133183133241%_ _%stx133182%_)))) + (gxc#xform-wrap-source + (cons '%#module + (cons _%L132405%_ + (cons _%code132423%_ '()))) + _%stx132367%_))) + _%tl132376132401%_ + _%hd132377132399%_))) + (_%g132369132383%_ _%g132370132386%_)))) + (_%g132369132383%_ _%g132370132386%_))))) + (_%g132368132426%_ _%stx132367%_)))) (define gxc#xform-define-values% - (lambda (_%self133111%_ _%stx133112%_) - (let* ((_%g133114133131%_ - (lambda (_%g133115133128%_) + (lambda (_%self132296%_ _%stx132297%_) + (let* ((_%g132299132316%_ + (lambda (_%g132300132313%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133115133128%_)))) - (_%g133113133178%_ - (lambda (_%g133115133134%_) + _%g132300132313%_)))) + (_%g132298132363%_ + (lambda (_%g132300132319%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133115133134%_)) - (let ((_%e133120133136%_ + (gx#stx-pair? _%g132300132319%_)) + (let ((_%e132305132321%_ (let () (declare (not safe)) - (gx#stx-e _%g133115133134%_)))) - (let ((_%hd133119133139%_ + (gx#stx-e _%g132300132319%_)))) + (let ((_%hd132304132324%_ (let () (declare (not safe)) - (##car _%e133120133136%_))) - (_%tl133118133141%_ + (##car _%e132305132321%_))) + (_%tl132303132326%_ (let () (declare (not safe)) - (##cdr _%e133120133136%_)))) + (##cdr _%e132305132321%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133118133141%_)) - (let ((_%e133123133144%_ + (gx#stx-pair? _%tl132303132326%_)) + (let ((_%e132308132329%_ (let () (declare (not safe)) - (gx#stx-e _%tl133118133141%_)))) - (let ((_%hd133122133147%_ + (gx#stx-e _%tl132303132326%_)))) + (let ((_%hd132307132332%_ (let () (declare (not safe)) - (##car _%e133123133144%_))) - (_%tl133121133149%_ + (##car _%e132308132329%_))) + (_%tl132306132334%_ (let () (declare (not safe)) - (##cdr _%e133123133144%_)))) + (##cdr _%e132308132329%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133121133149%_)) - (let ((_%e133126133152%_ + (gx#stx-pair? _%tl132306132334%_)) + (let ((_%e132311132337%_ (let () (declare (not safe)) - (gx#stx-e _%tl133121133149%_)))) - (let ((_%hd133125133155%_ + (gx#stx-e _%tl132306132334%_)))) + (let ((_%hd132310132340%_ (let () (declare (not safe)) - (##car _%e133126133152%_))) - (_%tl133124133157%_ + (##car _%e132311132337%_))) + (_%tl132309132342%_ (let () (declare (not safe)) - (##cdr _%e133126133152%_)))) + (##cdr _%e132311132337%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133124133157%_)) - ((lambda (_%L133160%_ - _%L133161%_) - (let* ((_%expr133176%_ - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self133111%_ - _%L133160%_))) - (__tmp134536 - (cons '%#define-values - (cons _%L133161%_ + _%tl132309132342%_)) + ((lambda (_%L132345%_ + _%L132346%_) + (let ((_%expr132361%_ + (gxc#compile-e__1 + _%self132296%_ + _%L132345%_))) + (gxc#xform-wrap-source + (cons '%#define-values + (cons _%L132346%_ + (cons _%expr132361%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr133176%_ '()))))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp134536 - _%stx133112%_))) - _%hd133125133155%_ - _%hd133122133147%_) - (let () - (declare (not safe)) - (_%g133114133131%_ - _%g133115133134%_))))) - (let () - (declare (not safe)) - (_%g133114133131%_ - _%g133115133134%_))))) - (let () - (declare (not safe)) - (_%g133114133131%_ _%g133115133134%_))))) - (let () - (declare (not safe)) - (_%g133114133131%_ _%g133115133134%_)))))) - (declare (not safe)) - (_%g133113133178%_ _%stx133112%_)))) + _%stx132297%_))) + _%hd132310132340%_ + _%hd132307132332%_) + (_%g132299132316%_ + _%g132300132319%_)))) + (_%g132299132316%_ _%g132300132319%_)))) + (_%g132299132316%_ _%g132300132319%_)))) + (_%g132299132316%_ _%g132300132319%_))))) + (_%g132298132363%_ _%stx132297%_)))) (define gxc#xform-define-syntax% - (lambda (_%self133040%_ _%stx133041%_) - (let* ((_%g133043133060%_ - (lambda (_%g133044133057%_) + (lambda (_%self132225%_ _%stx132226%_) + (let* ((_%g132228132245%_ + (lambda (_%g132229132242%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133044133057%_)))) - (_%g133042133108%_ - (lambda (_%g133044133063%_) + _%g132229132242%_)))) + (_%g132227132293%_ + (lambda (_%g132229132248%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133044133063%_)) - (let ((_%e133049133065%_ + (gx#stx-pair? _%g132229132248%_)) + (let ((_%e132234132250%_ (let () (declare (not safe)) - (gx#stx-e _%g133044133063%_)))) - (let ((_%hd133048133068%_ + (gx#stx-e _%g132229132248%_)))) + (let ((_%hd132233132253%_ (let () (declare (not safe)) - (##car _%e133049133065%_))) - (_%tl133047133070%_ + (##car _%e132234132250%_))) + (_%tl132232132255%_ (let () (declare (not safe)) - (##cdr _%e133049133065%_)))) + (##cdr _%e132234132250%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133047133070%_)) - (let ((_%e133052133073%_ + (gx#stx-pair? _%tl132232132255%_)) + (let ((_%e132237132258%_ (let () (declare (not safe)) - (gx#stx-e _%tl133047133070%_)))) - (let ((_%hd133051133076%_ + (gx#stx-e _%tl132232132255%_)))) + (let ((_%hd132236132261%_ (let () (declare (not safe)) - (##car _%e133052133073%_))) - (_%tl133050133078%_ + (##car _%e132237132258%_))) + (_%tl132235132263%_ (let () (declare (not safe)) - (##cdr _%e133052133073%_)))) + (##cdr _%e132237132258%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133050133078%_)) - (let ((_%e133055133081%_ + (gx#stx-pair? _%tl132235132263%_)) + (let ((_%e132240132266%_ (let () (declare (not safe)) - (gx#stx-e _%tl133050133078%_)))) - (let ((_%hd133054133084%_ + (gx#stx-e _%tl132235132263%_)))) + (let ((_%hd132239132269%_ (let () (declare (not safe)) - (##car _%e133055133081%_))) - (_%tl133053133086%_ + (##car _%e132240132266%_))) + (_%tl132238132271%_ (let () (declare (not safe)) - (##cdr _%e133055133081%_)))) + (##cdr _%e132240132266%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133053133086%_)) - ((lambda (_%L133089%_ - _%L133090%_) - (let ((__tmp134539 + _%tl132238132271%_)) + ((lambda (_%L132274%_ + _%L132275%_) + (let ((__tmp133713 (lambda () - (let* ((_%expr133106%_ + (let ((_%expr132291%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gxc#compile-e__1 _%self133040%_ _%L133089%_))) - (__tmp134540 - (cons '%#define-syntax - (cons _%L133090%_ (cons _%expr133106%_ '()))))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp134540 _%stx133041%_)))) - (__tmp134537 - (let ((__tmp134538 + (gxc#compile-e__1 _%self132225%_ _%L132274%_))) + (gxc#xform-wrap-source + (cons '%#define-syntax + (cons _%L132275%_ (cons _%expr132291%_ '()))) + _%stx132226%_)))) + (__tmp133711 + (let ((__tmp133712 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp134538 '1)))) + (##fx+ __tmp133712 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp134539 + __tmp133713 gx#current-expander-phi - __tmp134537))) - _%hd133054133084%_ - _%hd133051133076%_) - (let () - (declare (not safe)) - (_%g133043133060%_ - _%g133044133063%_))))) - (let () - (declare (not safe)) - (_%g133043133060%_ - _%g133044133063%_))))) - (let () - (declare (not safe)) - (_%g133043133060%_ _%g133044133063%_))))) - (let () - (declare (not safe)) - (_%g133043133060%_ _%g133044133063%_)))))) - (declare (not safe)) - (_%g133042133108%_ _%stx133041%_)))) + __tmp133711))) + _%hd132239132269%_ + _%hd132236132261%_) + (_%g132228132245%_ + _%g132229132248%_)))) + (_%g132228132245%_ _%g132229132248%_)))) + (_%g132228132245%_ _%g132229132248%_)))) + (_%g132228132245%_ _%g132229132248%_))))) + (_%g132227132293%_ _%stx132226%_)))) (define gxc#xform-begin-annotation% - (lambda (_%self132970%_ _%stx132971%_) - (let* ((_%g132973132990%_ - (lambda (_%g132974132987%_) + (lambda (_%self132155%_ _%stx132156%_) + (let* ((_%g132158132175%_ + (lambda (_%g132159132172%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132974132987%_)))) - (_%g132972133037%_ - (lambda (_%g132974132993%_) + _%g132159132172%_)))) + (_%g132157132222%_ + (lambda (_%g132159132178%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g132974132993%_)) - (let ((_%e132979132995%_ + (gx#stx-pair? _%g132159132178%_)) + (let ((_%e132164132180%_ (let () (declare (not safe)) - (gx#stx-e _%g132974132993%_)))) - (let ((_%hd132978132998%_ + (gx#stx-e _%g132159132178%_)))) + (let ((_%hd132163132183%_ (let () (declare (not safe)) - (##car _%e132979132995%_))) - (_%tl132977133000%_ + (##car _%e132164132180%_))) + (_%tl132162132185%_ (let () (declare (not safe)) - (##cdr _%e132979132995%_)))) + (##cdr _%e132164132180%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132977133000%_)) - (let ((_%e132982133003%_ + (gx#stx-pair? _%tl132162132185%_)) + (let ((_%e132167132188%_ (let () (declare (not safe)) - (gx#stx-e _%tl132977133000%_)))) - (let ((_%hd132981133006%_ + (gx#stx-e _%tl132162132185%_)))) + (let ((_%hd132166132191%_ (let () (declare (not safe)) - (##car _%e132982133003%_))) - (_%tl132980133008%_ + (##car _%e132167132188%_))) + (_%tl132165132193%_ (let () (declare (not safe)) - (##cdr _%e132982133003%_)))) + (##cdr _%e132167132188%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132980133008%_)) - (let ((_%e132985133011%_ + (gx#stx-pair? _%tl132165132193%_)) + (let ((_%e132170132196%_ (let () (declare (not safe)) - (gx#stx-e _%tl132980133008%_)))) - (let ((_%hd132984133014%_ + (gx#stx-e _%tl132165132193%_)))) + (let ((_%hd132169132199%_ (let () (declare (not safe)) - (##car _%e132985133011%_))) - (_%tl132983133016%_ + (##car _%e132170132196%_))) + (_%tl132168132201%_ (let () (declare (not safe)) - (##cdr _%e132985133011%_)))) + (##cdr _%e132170132196%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132983133016%_)) - ((lambda (_%L133019%_ - _%L133020%_) - (let* ((_%expr133035%_ - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self132970%_ - _%L133019%_))) - (__tmp134541 - (cons '%#begin-annotation - (cons _%L133020%_ + _%tl132168132201%_)) + ((lambda (_%L132204%_ + _%L132205%_) + (let ((_%expr132220%_ + (gxc#compile-e__1 + _%self132155%_ + _%L132204%_))) + (gxc#xform-wrap-source + (cons '%#begin-annotation + (cons _%L132205%_ + (cons _%expr132220%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr133035%_ '()))))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp134541 - _%stx132971%_))) - _%hd132984133014%_ - _%hd132981133006%_) - (let () - (declare (not safe)) - (_%g132973132990%_ - _%g132974132993%_))))) - (let () - (declare (not safe)) - (_%g132973132990%_ - _%g132974132993%_))))) - (let () - (declare (not safe)) - (_%g132973132990%_ _%g132974132993%_))))) - (let () - (declare (not safe)) - (_%g132973132990%_ _%g132974132993%_)))))) - (declare (not safe)) - (_%g132972133037%_ _%stx132971%_)))) + _%stx132156%_))) + _%hd132169132199%_ + _%hd132166132191%_) + (_%g132158132175%_ + _%g132159132178%_)))) + (_%g132158132175%_ _%g132159132178%_)))) + (_%g132158132175%_ _%g132159132178%_)))) + (_%g132158132175%_ _%g132159132178%_))))) + (_%g132157132222%_ _%stx132156%_)))) (define gxc#xform-lambda% - (lambda (_%self132908%_ _%stx132909%_) - (let* ((_%g132911132925%_ - (lambda (_%g132912132922%_) + (lambda (_%self132093%_ _%stx132094%_) + (let* ((_%g132096132110%_ + (lambda (_%g132097132107%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132912132922%_)))) - (_%g132910132967%_ - (lambda (_%g132912132928%_) + _%g132097132107%_)))) + (_%g132095132152%_ + (lambda (_%g132097132113%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g132912132928%_)) - (let ((_%e132917132930%_ + (gx#stx-pair? _%g132097132113%_)) + (let ((_%e132102132115%_ (let () (declare (not safe)) - (gx#stx-e _%g132912132928%_)))) - (let ((_%hd132916132933%_ + (gx#stx-e _%g132097132113%_)))) + (let ((_%hd132101132118%_ (let () (declare (not safe)) - (##car _%e132917132930%_))) - (_%tl132915132935%_ + (##car _%e132102132115%_))) + (_%tl132100132120%_ (let () (declare (not safe)) - (##cdr _%e132917132930%_)))) + (##cdr _%e132102132115%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132915132935%_)) - (let ((_%e132920132938%_ + (gx#stx-pair? _%tl132100132120%_)) + (let ((_%e132105132123%_ (let () (declare (not safe)) - (gx#stx-e _%tl132915132935%_)))) - (let ((_%hd132919132941%_ + (gx#stx-e _%tl132100132120%_)))) + (let ((_%hd132104132126%_ (let () (declare (not safe)) - (##car _%e132920132938%_))) - (_%tl132918132943%_ + (##car _%e132105132123%_))) + (_%tl132103132128%_ (let () (declare (not safe)) - (##cdr _%e132920132938%_)))) - ((lambda (_%L132946%_ _%L132947%_) - (let ((__tmp134544 + (##cdr _%e132105132123%_)))) + ((lambda (_%L132131%_ _%L132132%_) + (let ((__tmp133715 (lambda () - (let* ((_%body132965%_ - (map (lambda (_%g132960132962%_) - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gxc#compile-e__1 _%self132908%_ _%g132960132962%_))) - _%L132946%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp134545 - (cons '%#lambda - (cons _%L132947%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body132965%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) + (let ((_%body132150%_ + (map (lambda (_%g132145132147%_) + (gxc#compile-e__1 + _%self132093%_ + _%g132145132147%_)) + _%L132131%_))) (gxc#xform-wrap-source - __tmp134545 - _%stx132909%_)))) - (__tmp134542 - (let ((__tmp134543 - (cons _%L132947%_ '()))) - (declare (not safe)) - (gxc#xform-let-locals - __tmp134543)))) + (cons '%#lambda + (cons _%L132132%_ + _%body132150%_)) + _%stx132094%_)))) + (__tmp133714 + (gxc#xform-let-locals + (cons _%L132132%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp134544 + __tmp133715 gxc#current-compile-local-env - __tmp134542))) - _%tl132918132943%_ - _%hd132919132941%_))) - (let () - (declare (not safe)) - (_%g132911132925%_ _%g132912132928%_))))) - (let () - (declare (not safe)) - (_%g132911132925%_ _%g132912132928%_)))))) - (declare (not safe)) - (_%g132910132967%_ _%stx132909%_)))) + __tmp133714))) + _%tl132103132128%_ + _%hd132104132126%_))) + (_%g132096132110%_ _%g132097132113%_)))) + (_%g132096132110%_ _%g132097132113%_))))) + (_%g132095132152%_ _%stx132094%_)))) (define gxc#xform-case-lambda% - (lambda (_%self132816%_ _%stx132817%_) - (letrec ((_%clause-e132819%_ - (lambda (_%clause132860%_) - (let* ((_%g132862132873%_ - (lambda (_%g132863132870%_) + (lambda (_%self132001%_ _%stx132002%_) + (letrec ((_%clause-e132004%_ + (lambda (_%clause132045%_) + (let* ((_%g132047132058%_ + (lambda (_%g132048132055%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132863132870%_)))) - (_%g132861132905%_ - (lambda (_%g132863132876%_) + _%g132048132055%_)))) + (_%g132046132090%_ + (lambda (_%g132048132061%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g132863132876%_)) - (let ((_%e132868132878%_ + (gx#stx-pair? _%g132048132061%_)) + (let ((_%e132053132063%_ (let () (declare (not safe)) - (gx#stx-e _%g132863132876%_)))) - (let ((_%hd132867132881%_ + (gx#stx-e _%g132048132061%_)))) + (let ((_%hd132052132066%_ (let () (declare (not safe)) - (##car _%e132868132878%_))) - (_%tl132866132883%_ + (##car _%e132053132063%_))) + (_%tl132051132068%_ (let () (declare (not safe)) - (##cdr _%e132868132878%_)))) - ((lambda (_%L132886%_ _%L132887%_) - (let ((__tmp134548 + (##cdr _%e132053132063%_)))) + ((lambda (_%L132071%_ _%L132072%_) + (let ((__tmp133717 (lambda () - (let ((_%body132903%_ - (map (lambda (_%g132898132900%_) - (let () + (let ((_%body132088%_ + (map (lambda (_%g132083132085%_) + (gxc#compile-e__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gxc#compile-e__1 _%self132816%_ _%g132898132900%_))) - _%L132886%_))) + _%self132001%_ + _%g132083132085%_)) + _%L132071%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L132887%_ - _%body132903%_)))) - (__tmp134546 - (let ((__tmp134547 - (cons _%L132887%_ '()))) - (declare (not safe)) - (gxc#xform-let-locals - __tmp134547)))) + (cons _%L132072%_ + _%body132088%_)))) + (__tmp133716 + (gxc#xform-let-locals + (cons _%L132072%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp134548 + __tmp133717 gxc#current-compile-local-env - __tmp134546))) - _%tl132866132883%_ - _%hd132867132881%_))) - (let () - (declare (not safe)) - (_%g132862132873%_ _%g132863132876%_)))))) - (declare (not safe)) - (_%g132861132905%_ _%clause132860%_))))) - (let* ((_%g132821132831%_ - (lambda (_%g132822132828%_) + __tmp133716))) + _%tl132051132068%_ + _%hd132052132066%_))) + (_%g132047132058%_ _%g132048132061%_))))) + (_%g132046132090%_ _%clause132045%_))))) + (let* ((_%g132006132016%_ + (lambda (_%g132007132013%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132822132828%_)))) - (_%g132820132857%_ - (lambda (_%g132822132834%_) + _%g132007132013%_)))) + (_%g132005132042%_ + (lambda (_%g132007132019%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g132822132834%_)) - (let ((_%e132826132836%_ + (gx#stx-pair? _%g132007132019%_)) + (let ((_%e132011132021%_ (let () (declare (not safe)) - (gx#stx-e _%g132822132834%_)))) - (let ((_%hd132825132839%_ + (gx#stx-e _%g132007132019%_)))) + (let ((_%hd132010132024%_ (let () (declare (not safe)) - (##car _%e132826132836%_))) - (_%tl132824132841%_ + (##car _%e132011132021%_))) + (_%tl132009132026%_ (let () (declare (not safe)) - (##cdr _%e132826132836%_)))) - ((lambda (_%L132844%_) - (let* ((_%clauses132855%_ - (map _%clause-e132819%_ _%L132844%_)) - (__tmp134549 - (cons '%#case-lambda - _%clauses132855%_))) - (declare (not safe)) + (##cdr _%e132011132021%_)))) + ((lambda (_%L132029%_) + (let ((_%clauses132040%_ + (map _%clause-e132004%_ _%L132029%_))) (gxc#xform-wrap-source - __tmp134549 - _%stx132817%_))) - _%tl132824132841%_))) - (let () - (declare (not safe)) - (_%g132821132831%_ _%g132822132834%_)))))) - (declare (not safe)) - (_%g132820132857%_ _%stx132817%_))))) + (cons '%#case-lambda _%clauses132040%_) + _%stx132002%_))) + _%tl132009132026%_))) + (_%g132006132016%_ _%g132007132019%_))))) + (_%g132005132042%_ _%stx132002%_))))) (define gxc#xform-let-values% - (lambda (_%self132570%_ _%stx132571%_) - (let* ((_%g132573132606%_ - (lambda (_%g132574132603%_) + (lambda (_%self131755%_ _%stx131756%_) + (let* ((_%g131758131791%_ + (lambda (_%g131759131788%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132574132603%_)))) - (_%g132572132813%_ - (lambda (_%g132574132609%_) + _%g131759131788%_)))) + (_%g131757131998%_ + (lambda (_%g131759131794%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g132574132609%_)) - (let ((_%e132581132611%_ + (gx#stx-pair? _%g131759131794%_)) + (let ((_%e131766131796%_ (let () (declare (not safe)) - (gx#stx-e _%g132574132609%_)))) - (let ((_%hd132580132614%_ + (gx#stx-e _%g131759131794%_)))) + (let ((_%hd131765131799%_ (let () (declare (not safe)) - (##car _%e132581132611%_))) - (_%tl132579132616%_ + (##car _%e131766131796%_))) + (_%tl131764131801%_ (let () (declare (not safe)) - (##cdr _%e132581132611%_)))) + (##cdr _%e131766131796%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132579132616%_)) - (let ((_%e132584132619%_ + (gx#stx-pair? _%tl131764131801%_)) + (let ((_%e131769131804%_ (let () (declare (not safe)) - (gx#stx-e _%tl132579132616%_)))) - (let ((_%hd132583132622%_ + (gx#stx-e _%tl131764131801%_)))) + (let ((_%hd131768131807%_ (let () (declare (not safe)) - (##car _%e132584132619%_))) - (_%tl132582132624%_ + (##car _%e131769131804%_))) + (_%tl131767131809%_ (let () (declare (not safe)) - (##cdr _%e132584132619%_)))) + (##cdr _%e131769131804%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd132583132622%_)) - (let ((_g134550_ + (gx#stx-pair/null? _%hd131768131807%_)) + (let ((_g133718_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd132583132622%_ + _%hd131768131807%_ '0)))) (begin - (let ((_g134551_ + (let ((_g133719_ (let () (declare (not safe)) - (if (##values? _g134550_) + (if (##values? _g133718_) (##vector-length - _g134550_) + _g133718_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g134551_ 2))) + (##fx= _g133719_ 2))) (error "Context expects 2 values" - _g134551_))) - (let ((_%target132585132627%_ + _g133719_))) + (let ((_%target131770131812%_ (let () (declare (not safe)) - (##vector-ref _g134550_ 0))) - (_%tl132587132629%_ + (##vector-ref _g133718_ 0))) + (_%tl131772131814%_ (let () (declare (not safe)) (##vector-ref - _g134550_ + _g133718_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132587132629%_)) - (letrec ((_%loop132588132632%_ - (lambda (_%hd132586132635%_ + _%tl131772131814%_)) + (letrec ((_%loop131773131817%_ + (lambda (_%hd131771131820%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr132592132637%_ - _%hd132593132639%_) + _%expr131777131822%_ + _%hd131778131824%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132586132635%_)) - (let ((_%e132589132642%_ + (gx#stx-pair? _%hd131771131820%_)) + (let ((_%e131774131827%_ (let () (declare (not safe)) - (gx#stx-e _%hd132586132635%_)))) - (let ((_%lp-hd132590132645%_ + (gx#stx-e _%hd131771131820%_)))) + (let ((_%lp-hd131775131830%_ (let () (declare (not safe)) - (##car _%e132589132642%_))) - (_%lp-tl132591132647%_ + (##car _%e131774131827%_))) + (_%lp-tl131776131832%_ (let () (declare (not safe)) - (##cdr _%e132589132642%_)))) + (##cdr _%e131774131827%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd132590132645%_)) - (let ((_%e132598132650%_ + (gx#stx-pair? _%lp-hd131775131830%_)) + (let ((_%e131783131835%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd132590132645%_)))) - (let ((_%hd132597132653%_ + (gx#stx-e _%lp-hd131775131830%_)))) + (let ((_%hd131782131838%_ (let () (declare (not safe)) - (##car _%e132598132650%_))) - (_%tl132596132655%_ + (##car _%e131783131835%_))) + (_%tl131781131840%_ (let () (declare (not safe)) - (##cdr _%e132598132650%_)))) + (##cdr _%e131783131835%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132596132655%_)) - (let ((_%e132601132658%_ + (gx#stx-pair? _%tl131781131840%_)) + (let ((_%e131786131843%_ (let () (declare (not safe)) (gx#stx-e - _%tl132596132655%_)))) - (let ((_%hd132600132661%_ + _%tl131781131840%_)))) + (let ((_%hd131785131846%_ (let () (declare (not safe)) - (##car _%e132601132658%_))) - (_%tl132599132663%_ + (##car _%e131786131843%_))) + (_%tl131784131848%_ (let () (declare (not safe)) - (##cdr _%e132601132658%_)))) + (##cdr _%e131786131843%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132599132663%_)) - (let ((__tmp134553 - (cons _%hd132600132661%_ - _%expr132592132637%_)) - (__tmp134552 - (cons _%hd132597132653%_ - _%hd132593132639%_))) - (declare (not safe)) - (_%loop132588132632%_ - _%lp-tl132591132647%_ - __tmp134553 - __tmp134552)) - (let () - (declare (not safe)) - (_%g132573132606%_ - _%g132574132609%_))))) - (let () - (declare (not safe)) - (_%g132573132606%_ - _%g132574132609%_))))) - (let () - (declare (not safe)) - (_%g132573132606%_ _%g132574132609%_))))) - (let ((_%expr132594132666%_ - (reverse _%expr132592132637%_)) - (_%hd132595132668%_ - (reverse _%hd132593132639%_))) - ((lambda (_%L132671%_ - _%L132672%_ - _%L132673%_ - _%L132674%_) - (let* ((_%g132693132709%_ - (lambda (_%g132694132706%_) + _%tl131784131848%_)) + (_%loop131773131817%_ + _%lp-tl131776131832%_ + (cons _%hd131785131846%_ + _%expr131777131822%_) + (cons _%hd131782131838%_ + _%hd131778131824%_)) + (_%g131758131791%_ + _%g131759131794%_)))) + (_%g131758131791%_ + _%g131759131794%_)))) + (_%g131758131791%_ _%g131759131794%_)))) + (let ((_%expr131779131851%_ + (reverse _%expr131777131822%_)) + (_%hd131780131853%_ + (reverse _%hd131778131824%_))) + ((lambda (_%L131856%_ + _%L131857%_ + _%L131858%_ + _%L131859%_) + (let* ((_%g131878131894%_ + (lambda (_%g131879131891%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132694132706%_)))) - (_%g132692132799%_ - (lambda (_%g132694132712%_) + _%g131879131891%_)))) + (_%g131877131984%_ + (lambda (_%g131879131897%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g132694132712%_)) - (let ((_g134554_ + _%g131879131897%_)) + (let ((_g133720_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g132694132712%_ + _%g131879131897%_ '0)))) (begin - (let ((_g134555_ + (let ((_g133721_ (let () (declare (not safe)) (if (##values? - _g134554_) + _g133720_) (##vector-length - _g134554_) + _g133720_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g134555_ + (##fx= _g133721_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g134555_))) - (let ((_%target132696132714%_ + _g133721_))) + (let ((_%target131881131899%_ (let () (declare (not safe)) (##vector-ref - _g134554_ + _g133720_ 0))) - (_%tl132698132716%_ + (_%tl131883131901%_ (let () (declare (not safe)) (##vector-ref - _g134554_ + _g133720_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132698132716%_)) - (letrec ((_%loop132699132719%_ - (lambda (_%hd132697132722%_ + _%tl131883131901%_)) + (letrec ((_%loop131884131904%_ + (lambda (_%hd131882131907%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr132703132724%_) + _%expr131888131909%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132697132722%_)) - (let ((_%e132700132727%_ + (gx#stx-pair? _%hd131882131907%_)) + (let ((_%e131885131912%_ (let () (declare (not safe)) - (gx#syntax-e _%hd132697132722%_)))) - (let ((_%lp-hd132701132730%_ + (gx#syntax-e _%hd131882131907%_)))) + (let ((_%lp-hd131886131915%_ (let () (declare (not safe)) - (##car _%e132700132727%_))) - (_%lp-tl132702132732%_ + (##car _%e131885131912%_))) + (_%lp-tl131887131917%_ (let () (declare (not safe)) - (##cdr _%e132700132727%_)))) - (let ((__tmp134556 - (cons _%lp-hd132701132730%_ - _%expr132703132724%_))) - (declare (not safe)) - (_%loop132699132719%_ - _%lp-tl132702132732%_ - __tmp134556)))) - (let ((_%expr132704132735%_ - (reverse _%expr132703132724%_))) - ((lambda (_%L132738%_) - (let ((__tmp134560 + (##cdr _%e131885131912%_)))) + (_%loop131884131904%_ + _%lp-tl131887131917%_ + (cons _%lp-hd131886131915%_ + _%expr131888131909%_)))) + (let ((_%expr131889131920%_ + (reverse _%expr131888131909%_))) + ((lambda (_%L131923%_) + (let ((__tmp133724 (lambda () - (let* ((_%g132752132759%_ - (lambda (_%g132753132756%_) + (let* ((_%g131937131944%_ + (lambda (_%g131938131941%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132753132756%_)))) - (_%g132751132785%_ - (lambda (_%g132753132762%_) - ((lambda (_%L132764%_) - (let ((__tmp134561 - (cons _%L132674%_ + _%g131938131941%_)))) + (_%g131936131970%_ + (lambda (_%g131938131947%_) + ((lambda (_%L131949%_) + (gxc#xform-wrap-source + (cons _%L131859%_ + (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (begin - (let () - (declare (not safe)) - (gx#syntax-check-splice-targets - _%L132738%_ - _%L132673%_)) - (let ((__tmp134562 - (lambda (_%g132774132778%_ - _%g132775132780%_ - _%g132776132782%_) - (cons (cons _%g132775132780%_ - (cons _%g132774132778%_ - '())) - _%g132776132782%_)))) - (declare (not safe)) - (__foldr2 - __tmp134562 - '() - _%L132738%_ - _%L132673%_))) - _%L132764%_)))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp134561 _%stx132571%_))) - _%g132753132762%_))) + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets + _%L131923%_ + _%L131858%_)) + (let ((__tmp133725 + (lambda (_%g131959131963%_ + _%g131960131965%_ + _%g131961131967%_) + (cons (cons _%g131960131965%_ + (cons _%g131959131963%_ + '())) + _%g131961131967%_)))) + (declare (not safe)) + (__foldr2 + __tmp133725 + '() + _%L131923%_ + _%L131858%_))) + _%L131949%_)) + _%stx131756%_)) + _%g131938131947%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp134563 - (map (lambda (_%g132787132789%_) - (let () - (declare - (not safe)) - (gxc#compile-e__1 - _%self132570%_ - _%g132787132789%_))) - _%L132671%_))) - (declare (not safe)) - (_%g132751132785%_ __tmp134563)))) - (__tmp134557 - (let ((__tmp134558 - (let ((__tmp134559 - (lambda (_%g132791132794%_ - _%g132792132796%_) - (cons _%g132791132794%_ - _%g132792132796%_)))) - (declare (not safe)) - (__foldr1 - __tmp134559 - '() - _%L132673%_)))) - (declare (not safe)) - (gxc#xform-let-locals - __tmp134558)))) + (_%g131936131970%_ + (map (lambda (_%g131972131974%_) + (gxc#compile-e__1 + _%self131755%_ + _%g131972131974%_)) + _%L131856%_))))) + (__tmp133722 + (gxc#xform-let-locals + (let ((__tmp133723 + (lambda (_%g131976131979%_ + _%g131977131981%_) + (cons _%g131976131979%_ + _%g131977131981%_)))) + (declare (not safe)) + (__foldr1 + __tmp133723 + '() + _%L131858%_))))) (declare (not safe)) (__call-with-parameters - __tmp134560 + __tmp133724 gxc#current-compile-local-env - __tmp134557))) - _%expr132704132735%_)))))) - (let () - (declare (not safe)) - (_%loop132699132719%_ _%target132696132714%_ '()))) + __tmp133722))) + _%expr131889131920%_)))))) + (_%loop131884131904%_ _%target131881131899%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g132693132709%_ - _%g132694132712%_)))))) - (let () - (declare (not safe)) - (_%g132693132709%_ - _%g132694132712%_))))) - (__tmp134564 - (map (lambda (_%g132801132803%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self132570%_ - _%g132801132803%_))) - (let ((__tmp134565 - (lambda (_%g132805132808%_ - _%g132806132810%_) - (cons _%g132805132808%_ - _%g132806132810%_)))) - (declare (not safe)) - (__foldr1 - __tmp134565 - '() - _%L132672%_))))) - (declare (not safe)) - (_%g132692132799%_ __tmp134564))) - _%tl132582132624%_ - _%expr132594132666%_ - _%hd132595132668%_ - _%hd132580132614%_)))))) + (_%g131878131894%_ + _%g131879131897%_))))) + (_%g131878131894%_ + _%g131879131897%_))))) + (_%g131877131984%_ + (map (lambda (_%g131986131988%_) + (gxc#compile-e__1 + _%self131755%_ + _%g131986131988%_)) + (let ((__tmp133726 + (lambda (_%g131990131993%_ + _%g131991131995%_) + (cons _%g131990131993%_ + _%g131991131995%_)))) + (declare (not safe)) + (__foldr1 + __tmp133726 + '() + _%L131857%_)))))) + _%tl131767131809%_ + _%expr131779131851%_ + _%hd131780131853%_ + _%hd131765131799%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop132588132632%_ - _%target132585132627%_ - '() - '()))) - (let () - (declare (not safe)) - (_%g132573132606%_ - _%g132574132609%_)))))) - (let () - (declare (not safe)) - (_%g132573132606%_ - _%g132574132609%_))))) - (let () - (declare (not safe)) - (_%g132573132606%_ _%g132574132609%_))))) - (let () - (declare (not safe)) - (_%g132573132606%_ _%g132574132609%_)))))) - (declare (not safe)) - (_%g132572132813%_ _%stx132571%_)))) + (_%loop131773131817%_ + _%target131770131812%_ + '() + '())) + (_%g131758131791%_ + _%g131759131794%_))))) + (_%g131758131791%_ _%g131759131794%_)))) + (_%g131758131791%_ _%g131759131794%_)))) + (_%g131758131791%_ _%g131759131794%_))))) + (_%g131757131998%_ _%stx131756%_)))) (define gxc#xform-letrec-values% - (lambda (_%self132324%_ _%stx132325%_) - (let* ((_%g132327132360%_ - (lambda (_%g132328132357%_) + (lambda (_%self131509%_ _%stx131510%_) + (let* ((_%g131512131545%_ + (lambda (_%g131513131542%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132328132357%_)))) - (_%g132326132567%_ - (lambda (_%g132328132363%_) + _%g131513131542%_)))) + (_%g131511131752%_ + (lambda (_%g131513131548%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g132328132363%_)) - (let ((_%e132335132365%_ + (gx#stx-pair? _%g131513131548%_)) + (let ((_%e131520131550%_ (let () (declare (not safe)) - (gx#stx-e _%g132328132363%_)))) - (let ((_%hd132334132368%_ + (gx#stx-e _%g131513131548%_)))) + (let ((_%hd131519131553%_ (let () (declare (not safe)) - (##car _%e132335132365%_))) - (_%tl132333132370%_ + (##car _%e131520131550%_))) + (_%tl131518131555%_ (let () (declare (not safe)) - (##cdr _%e132335132365%_)))) + (##cdr _%e131520131550%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132333132370%_)) - (let ((_%e132338132373%_ + (gx#stx-pair? _%tl131518131555%_)) + (let ((_%e131523131558%_ (let () (declare (not safe)) - (gx#stx-e _%tl132333132370%_)))) - (let ((_%hd132337132376%_ + (gx#stx-e _%tl131518131555%_)))) + (let ((_%hd131522131561%_ (let () (declare (not safe)) - (##car _%e132338132373%_))) - (_%tl132336132378%_ + (##car _%e131523131558%_))) + (_%tl131521131563%_ (let () (declare (not safe)) - (##cdr _%e132338132373%_)))) + (##cdr _%e131523131558%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd132337132376%_)) - (let ((_g134566_ + (gx#stx-pair/null? _%hd131522131561%_)) + (let ((_g133727_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd132337132376%_ + _%hd131522131561%_ '0)))) (begin - (let ((_g134567_ + (let ((_g133728_ (let () (declare (not safe)) - (if (##values? _g134566_) + (if (##values? _g133727_) (##vector-length - _g134566_) + _g133727_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g134567_ 2))) + (##fx= _g133728_ 2))) (error "Context expects 2 values" - _g134567_))) - (let ((_%target132339132381%_ + _g133728_))) + (let ((_%target131524131566%_ (let () (declare (not safe)) - (##vector-ref _g134566_ 0))) - (_%tl132341132383%_ + (##vector-ref _g133727_ 0))) + (_%tl131526131568%_ (let () (declare (not safe)) (##vector-ref - _g134566_ + _g133727_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132341132383%_)) - (letrec ((_%loop132342132386%_ - (lambda (_%hd132340132389%_ + _%tl131526131568%_)) + (letrec ((_%loop131527131571%_ + (lambda (_%hd131525131574%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr132346132391%_ - _%hd132347132393%_) + _%expr131531131576%_ + _%hd131532131578%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132340132389%_)) - (let ((_%e132343132396%_ + (gx#stx-pair? _%hd131525131574%_)) + (let ((_%e131528131581%_ (let () (declare (not safe)) - (gx#stx-e _%hd132340132389%_)))) - (let ((_%lp-hd132344132399%_ + (gx#stx-e _%hd131525131574%_)))) + (let ((_%lp-hd131529131584%_ (let () (declare (not safe)) - (##car _%e132343132396%_))) - (_%lp-tl132345132401%_ + (##car _%e131528131581%_))) + (_%lp-tl131530131586%_ (let () (declare (not safe)) - (##cdr _%e132343132396%_)))) + (##cdr _%e131528131581%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd132344132399%_)) - (let ((_%e132352132404%_ + (gx#stx-pair? _%lp-hd131529131584%_)) + (let ((_%e131537131589%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd132344132399%_)))) - (let ((_%hd132351132407%_ + (gx#stx-e _%lp-hd131529131584%_)))) + (let ((_%hd131536131592%_ (let () (declare (not safe)) - (##car _%e132352132404%_))) - (_%tl132350132409%_ + (##car _%e131537131589%_))) + (_%tl131535131594%_ (let () (declare (not safe)) - (##cdr _%e132352132404%_)))) + (##cdr _%e131537131589%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132350132409%_)) - (let ((_%e132355132412%_ + (gx#stx-pair? _%tl131535131594%_)) + (let ((_%e131540131597%_ (let () (declare (not safe)) (gx#stx-e - _%tl132350132409%_)))) - (let ((_%hd132354132415%_ + _%tl131535131594%_)))) + (let ((_%hd131539131600%_ (let () (declare (not safe)) - (##car _%e132355132412%_))) - (_%tl132353132417%_ + (##car _%e131540131597%_))) + (_%tl131538131602%_ (let () (declare (not safe)) - (##cdr _%e132355132412%_)))) + (##cdr _%e131540131597%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132353132417%_)) - (let ((__tmp134569 - (cons _%hd132354132415%_ - _%expr132346132391%_)) - (__tmp134568 - (cons _%hd132351132407%_ - _%hd132347132393%_))) - (declare (not safe)) - (_%loop132342132386%_ - _%lp-tl132345132401%_ - __tmp134569 - __tmp134568)) - (let () - (declare (not safe)) - (_%g132327132360%_ - _%g132328132363%_))))) - (let () - (declare (not safe)) - (_%g132327132360%_ - _%g132328132363%_))))) - (let () - (declare (not safe)) - (_%g132327132360%_ _%g132328132363%_))))) - (let ((_%expr132348132420%_ - (reverse _%expr132346132391%_)) - (_%hd132349132422%_ - (reverse _%hd132347132393%_))) - ((lambda (_%L132425%_ - _%L132426%_ - _%L132427%_ - _%L132428%_) - (let ((__tmp134573 + _%tl131538131602%_)) + (_%loop131527131571%_ + _%lp-tl131530131586%_ + (cons _%hd131539131600%_ + _%expr131531131576%_) + (cons _%hd131536131592%_ + _%hd131532131578%_)) + (_%g131512131545%_ + _%g131513131548%_)))) + (_%g131512131545%_ + _%g131513131548%_)))) + (_%g131512131545%_ _%g131513131548%_)))) + (let ((_%expr131533131605%_ + (reverse _%expr131531131576%_)) + (_%hd131534131607%_ + (reverse _%hd131532131578%_))) + ((lambda (_%L131610%_ + _%L131611%_ + _%L131612%_ + _%L131613%_) + (let ((__tmp133731 (lambda () - (let* ((_%g132448132464%_ - (lambda (_%g132449132461%_) + (let* ((_%g131633131649%_ + (lambda (_%g131634131646%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132449132461%_)))) - (_%g132447132546%_ - (lambda (_%g132449132467%_) + _%g131634131646%_)))) + (_%g131632131731%_ + (lambda (_%g131634131652%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g132449132467%_)) - (let ((_g134574_ + _%g131634131652%_)) + (let ((_g133732_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g132449132467%_ + _%g131634131652%_ '0)))) (begin - (let ((_g134575_ + (let ((_g133733_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g134574_) - (##vector-length _g134574_) + (if (##values? _g133732_) + (##vector-length _g133732_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g134575_ 2))) - (error "Context expects 2 values" _g134575_))) - (let ((_%target132451132469%_ + (if (not (let () (declare (not safe)) (##fx= _g133733_ 2))) + (error "Context expects 2 values" _g133733_))) + (let ((_%target131636131654%_ (let () (declare (not safe)) - (##vector-ref _g134574_ 0))) - (_%tl132453132471%_ + (##vector-ref _g133732_ 0))) + (_%tl131638131656%_ (let () (declare (not safe)) - (##vector-ref _g134574_ 1)))) + (##vector-ref _g133732_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132453132471%_)) - (letrec ((_%loop132454132474%_ - (lambda (_%hd132452132477%_ - _%expr132458132479%_) + (gx#stx-null? _%tl131638131656%_)) + (letrec ((_%loop131639131659%_ + (lambda (_%hd131637131662%_ + _%expr131643131664%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132452132477%_)) - (let ((_%e132455132482%_ + (gx#stx-pair? _%hd131637131662%_)) + (let ((_%e131640131667%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132452132477%_)))) - (let ((_%lp-hd132456132485%_ + _%hd131637131662%_)))) + (let ((_%lp-hd131641131670%_ (let () (declare (not safe)) - (##car _%e132455132482%_))) - (_%lp-tl132457132487%_ + (##car _%e131640131667%_))) + (_%lp-tl131642131672%_ (let () (declare (not safe)) - (##cdr _%e132455132482%_)))) - (let ((__tmp134576 - (cons _%lp-hd132456132485%_ - _%expr132458132479%_))) - (declare (not safe)) - (_%loop132454132474%_ - _%lp-tl132457132487%_ - __tmp134576)))) - (let ((_%expr132459132490%_ - (reverse _%expr132458132479%_))) - ((lambda (_%L132493%_) - (let () - (let* ((_%g132507132514%_ - (lambda (_%g132508132511%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g132508132511%_)))) - (_%g132506132539%_ - (lambda (_%g132508132517%_) - ((lambda (_%L132519%_) - (let ((__tmp134577 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L132428%_ - (cons (begin - (let () - (declare (not safe)) - (gx#syntax-check-splice-targets - _%L132493%_ - _%L132427%_)) - (let ((__tmp134578 - (lambda (_%g132528132532%_ - _%g132529132534%_ - _%g132530132536%_) - (cons (cons _%g132529132534%_ - (cons _%g132528132532%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - _%g132530132536%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr2 - __tmp134578 - '() - _%L132493%_ - _%L132427%_))) - _%L132519%_)))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp134577 _%stx132325%_))) - _%g132508132517%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp134579 - (map (lambda (_%g132541132543%_) - (let () - (declare - (not safe)) - (gxc#compile-e__1 - _%self132324%_ - _%g132541132543%_))) - _%L132425%_))) - (declare (not safe)) - (_%g132506132539%_ - __tmp134579)))) - _%expr132459132490%_)))))) - (let () - (declare (not safe)) - (_%loop132454132474%_ _%target132451132469%_ '()))) - (let () - (declare (not safe)) - (_%g132448132464%_ _%g132449132467%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g132448132464%_ - _%g132449132467%_))))) - (__tmp134580 - (map (lambda (_%g132548132550%_) + (##cdr _%e131640131667%_)))) + (_%loop131639131659%_ + _%lp-tl131642131672%_ + (cons _%lp-hd131641131670%_ + _%expr131643131664%_)))) + (let ((_%expr131644131675%_ + (reverse _%expr131643131664%_))) + ((lambda (_%L131678%_) + (let* ((_%g131692131699%_ + (lambda (_%g131693131696%_) (let () (declare (not safe)) - (gxc#compile-e__1 - _%self132324%_ - _%g132548132550%_))) - (let ((__tmp134581 - (lambda (_%g132552132555%_ + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g131693131696%_)))) + (_%g131691131724%_ + (lambda (_%g131693131702%_) + ((lambda (_%L131704%_) + (gxc#xform-wrap-source + (cons _%L131613%_ + (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g132553132557%_) - (cons _%g132552132555%_ _%g132553132557%_)))) + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets + _%L131678%_ + _%L131612%_)) + (let ((__tmp133734 + (lambda (_%g131713131717%_ + _%g131714131719%_ + _%g131715131721%_) + (cons (cons _%g131714131719%_ + (cons _%g131713131717%_ + '())) + _%g131715131721%_)))) + (declare (not safe)) + (__foldr2 + __tmp133734 + '() + _%L131678%_ + _%L131612%_))) + _%L131704%_)) + _%stx131510%_)) + _%g131693131702%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr1 - __tmp134581 - '() - _%L132426%_))))) - (declare (not safe)) - (_%g132447132546%_ __tmp134580)))) - (__tmp134570 - (let ((__tmp134571 - (let ((__tmp134572 - (lambda (_%g132559132562%_ - _%g132560132564%_) - (cons _%g132559132562%_ - _%g132560132564%_)))) - (declare (not safe)) - (__foldr1 - __tmp134572 - '() - _%L132427%_)))) - (declare (not safe)) - (gxc#xform-let-locals __tmp134571)))) + (_%g131691131724%_ + (map (lambda (_%g131726131728%_) + (gxc#compile-e__1 + _%self131509%_ + _%g131726131728%_)) + _%L131610%_)))) + _%expr131644131675%_)))))) + (_%loop131639131659%_ _%target131636131654%_ '())) + (_%g131633131649%_ _%g131634131652%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g131633131649%_ + _%g131634131652%_))))) + (_%g131632131731%_ + (map (lambda (_%g131733131735%_) + (gxc#compile-e__1 + _%self131509%_ + _%g131733131735%_)) + (let ((__tmp133735 + (lambda (_%g131737131740%_ + _%g131738131742%_) + (cons _%g131737131740%_ + _%g131738131742%_)))) + (declare (not safe)) + (__foldr1 + __tmp133735 + '() + _%L131611%_))))))) + (__tmp133729 + (gxc#xform-let-locals + (let ((__tmp133730 + (lambda (_%g131744131747%_ + _%g131745131749%_) + (cons _%g131744131747%_ + _%g131745131749%_)))) + (declare (not safe)) + (__foldr1 + __tmp133730 + '() + _%L131612%_))))) (declare (not safe)) (__call-with-parameters - __tmp134573 + __tmp133731 gxc#current-compile-local-env - __tmp134570))) - _%tl132336132378%_ - _%expr132348132420%_ - _%hd132349132422%_ - _%hd132334132368%_)))))) + __tmp133729))) + _%tl131521131563%_ + _%expr131533131605%_ + _%hd131534131607%_ + _%hd131519131553%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop132342132386%_ - _%target132339132381%_ - '() - '()))) - (let () - (declare (not safe)) - (_%g132327132360%_ - _%g132328132363%_)))))) - (let () - (declare (not safe)) - (_%g132327132360%_ - _%g132328132363%_))))) - (let () - (declare (not safe)) - (_%g132327132360%_ _%g132328132363%_))))) - (let () - (declare (not safe)) - (_%g132327132360%_ _%g132328132363%_)))))) - (declare (not safe)) - (_%g132326132567%_ _%stx132325%_)))) + (_%loop131527131571%_ + _%target131524131566%_ + '() + '())) + (_%g131512131545%_ + _%g131513131548%_))))) + (_%g131512131545%_ _%g131513131548%_)))) + (_%g131512131545%_ _%g131513131548%_)))) + (_%g131512131545%_ _%g131513131548%_))))) + (_%g131511131752%_ _%stx131510%_)))) (define gxc#xform-let-locals - (lambda (_%bindings132228%_) - (let _%loop132230%_ ((_%rest132232%_ _%bindings132228%_) - (_%locals132233%_ + (lambda (_%bindings131413%_) + (let _%loop131415%_ ((_%rest131417%_ _%bindings131413%_) + (_%locals131418%_ (let () (declare (not safe)) (gxc#current-compile-local-env)))) - (let* ((_%rest132234132242%_ _%rest132232%_) - (_%else132236132250%_ (lambda () _%locals132233%_)) - (_%K132238132312%_ - (lambda (_%rest132253%_ _%bind132254%_) - (let _%loop-bind132256%_ ((_%bind132258%_ _%bind132254%_) - (_%locals132259%_ - _%locals132233%_)) - (let* ((_%bind132260132271%_ _%bind132258%_) - (_%E132264132275%_ + (let* ((_%rest131419131427%_ _%rest131417%_) + (_%else131421131435%_ (lambda () _%locals131418%_)) + (_%K131423131497%_ + (lambda (_%rest131438%_ _%bind131439%_) + (let _%loop-bind131441%_ ((_%bind131443%_ _%bind131439%_) + (_%locals131444%_ + _%locals131418%_)) + (let* ((_%bind131445131456%_ _%bind131443%_) + (_%E131449131460%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind132260132271%_ + _%bind131445131456%_ '([id . bind-rest]) '((? identifier? id)) '(_))) '#!void))) - (let ((_%K132267132300%_ - (lambda (_%bind-rest132297%_ _%id132298%_) - (let ((__tmp134582 - (cons (let () - (declare (not safe)) - (gxc#identifier-symbol - _%id132298%_)) - _%locals132259%_))) - (declare (not safe)) - (_%loop-bind132256%_ - _%bind-rest132297%_ - __tmp134582)))) - (_%K132266132289%_ - (lambda (_%id132287%_) - (let ((__tmp134583 - (cons (let () - (declare (not safe)) - (gxc#identifier-symbol - _%id132287%_)) - _%locals132259%_))) - (declare (not safe)) - (_%loop132230%_ - _%rest132253%_ - __tmp134583)))) - (_%K132265132280%_ + (let ((_%K131452131485%_ + (lambda (_%bind-rest131482%_ _%id131483%_) + (_%loop-bind131441%_ + _%bind-rest131482%_ + (cons (let () + (declare (not safe)) + (gxc#identifier-symbol _%id131483%_)) + _%locals131444%_)))) + (_%K131451131474%_ + (lambda (_%id131472%_) + (_%loop131415%_ + _%rest131438%_ + (cons (let () + (declare (not safe)) + (gxc#identifier-symbol _%id131472%_)) + _%locals131444%_)))) + (_%K131450131465%_ (lambda () - (let () - (declare (not safe)) - (_%loop132230%_ - _%rest132253%_ - _%locals132259%_))))) - (let ((_%try-match132262132294%_ + (_%loop131415%_ + _%rest131438%_ + _%locals131444%_)))) + (let ((_%try-match131447131479%_ (lambda () (if (let () (declare (not safe)) - (gx#identifier? _%bind132260132271%_)) - (let ((_%id132292%_ - _%bind132260132271%_)) - (declare (not safe)) - (_%K132266132289%_ _%id132292%_)) - (let () - (declare (not safe)) - (_%K132265132280%_)))))) + (gx#identifier? _%bind131445131456%_)) + (let ((_%id131477%_ + _%bind131445131456%_)) + (_%K131451131474%_ _%id131477%_)) + (_%K131450131465%_))))) (if (let () (declare (not safe)) - (##pair? _%bind132260132271%_)) - (let ((_%tl132269132305%_ + (##pair? _%bind131445131456%_)) + (let ((_%tl131454131490%_ (let () (declare (not safe)) - (##cdr _%bind132260132271%_))) - (_%hd132268132303%_ + (##cdr _%bind131445131456%_))) + (_%hd131453131488%_ (let () (declare (not safe)) - (##car _%bind132260132271%_)))) - (let ((_%id132308%_ _%hd132268132303%_) - (_%bind-rest132310%_ - _%tl132269132305%_)) - (let () - (declare (not safe)) - (_%K132267132300%_ - _%bind-rest132310%_ - _%id132308%_)))) - (let () - (declare (not safe)) - (_%try-match132262132294%_)))))))))) - (if (let () (declare (not safe)) (##pair? _%rest132234132242%_)) - (let ((_%hd132239132315%_ + (##car _%bind131445131456%_)))) + (let ((_%id131493%_ _%hd131453131488%_) + (_%bind-rest131495%_ + _%tl131454131490%_)) + (_%K131452131485%_ + _%bind-rest131495%_ + _%id131493%_))) + (_%try-match131447131479%_))))))))) + (if (let () (declare (not safe)) (##pair? _%rest131419131427%_)) + (let ((_%hd131424131500%_ (let () (declare (not safe)) - (##car _%rest132234132242%_))) - (_%tl132240132317%_ + (##car _%rest131419131427%_))) + (_%tl131425131502%_ (let () (declare (not safe)) - (##cdr _%rest132234132242%_)))) - (let* ((_%bind132320%_ _%hd132239132315%_) - (_%rest132322%_ _%tl132240132317%_)) - (declare (not safe)) - (_%K132238132312%_ _%rest132322%_ _%bind132320%_))) - (let () (declare (not safe)) (_%else132236132250%_))))))) + (##cdr _%rest131419131427%_)))) + (let* ((_%bind131505%_ _%hd131424131500%_) + (_%rest131507%_ _%tl131425131502%_)) + (_%K131423131497%_ _%rest131507%_ _%bind131505%_))) + (_%else131421131435%_)))))) (define gxc#xform-operands - (lambda (_%self132180%_ _%stx132181%_) - (let* ((_%g132183132194%_ - (lambda (_%g132184132191%_) + (lambda (_%self131365%_ _%stx131366%_) + (let* ((_%g131368131379%_ + (lambda (_%g131369131376%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132184132191%_)))) - (_%g132182132225%_ - (lambda (_%g132184132197%_) + _%g131369131376%_)))) + (_%g131367131410%_ + (lambda (_%g131369131382%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g132184132197%_)) - (let ((_%e132189132199%_ + (gx#stx-pair? _%g131369131382%_)) + (let ((_%e131374131384%_ (let () (declare (not safe)) - (gx#stx-e _%g132184132197%_)))) - (let ((_%hd132188132202%_ + (gx#stx-e _%g131369131382%_)))) + (let ((_%hd131373131387%_ (let () (declare (not safe)) - (##car _%e132189132199%_))) - (_%tl132187132204%_ + (##car _%e131374131384%_))) + (_%tl131372131389%_ (let () (declare (not safe)) - (##cdr _%e132189132199%_)))) - ((lambda (_%L132207%_ _%L132208%_) - (let* ((_%rands132223%_ - (map (lambda (_%g132218132220%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self132180%_ - _%g132218132220%_))) - _%L132207%_)) - (__tmp134584 - (cons _%L132208%_ _%rands132223%_))) - (declare (not safe)) + (##cdr _%e131374131384%_)))) + ((lambda (_%L131392%_ _%L131393%_) + (let ((_%rands131408%_ + (map (lambda (_%g131403131405%_) + (gxc#compile-e__1 + _%self131365%_ + _%g131403131405%_)) + _%L131392%_))) (gxc#xform-wrap-source - __tmp134584 - _%stx132181%_))) - _%tl132187132204%_ - _%hd132188132202%_))) - (let () - (declare (not safe)) - (_%g132183132194%_ _%g132184132197%_)))))) - (declare (not safe)) - (_%g132182132225%_ _%stx132181%_)))) + (cons _%L131393%_ _%rands131408%_) + _%stx131366%_))) + _%tl131372131389%_ + _%hd131373131387%_))) + (_%g131368131379%_ _%g131369131382%_))))) + (_%g131367131410%_ _%stx131366%_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_%self132110%_ _%stx132111%_) - (let* ((_%g132113132130%_ - (lambda (_%g132114132127%_) + (lambda (_%self131295%_ _%stx131296%_) + (let* ((_%g131298131315%_ + (lambda (_%g131299131312%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132114132127%_)))) - (_%g132112132177%_ - (lambda (_%g132114132133%_) + _%g131299131312%_)))) + (_%g131297131362%_ + (lambda (_%g131299131318%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g132114132133%_)) - (let ((_%e132119132135%_ + (gx#stx-pair? _%g131299131318%_)) + (let ((_%e131304131320%_ (let () (declare (not safe)) - (gx#stx-e _%g132114132133%_)))) - (let ((_%hd132118132138%_ + (gx#stx-e _%g131299131318%_)))) + (let ((_%hd131303131323%_ (let () (declare (not safe)) - (##car _%e132119132135%_))) - (_%tl132117132140%_ + (##car _%e131304131320%_))) + (_%tl131302131325%_ (let () (declare (not safe)) - (##cdr _%e132119132135%_)))) + (##cdr _%e131304131320%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132117132140%_)) - (let ((_%e132122132143%_ + (gx#stx-pair? _%tl131302131325%_)) + (let ((_%e131307131328%_ (let () (declare (not safe)) - (gx#stx-e _%tl132117132140%_)))) - (let ((_%hd132121132146%_ + (gx#stx-e _%tl131302131325%_)))) + (let ((_%hd131306131331%_ (let () (declare (not safe)) - (##car _%e132122132143%_))) - (_%tl132120132148%_ + (##car _%e131307131328%_))) + (_%tl131305131333%_ (let () (declare (not safe)) - (##cdr _%e132122132143%_)))) + (##cdr _%e131307131328%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132120132148%_)) - (let ((_%e132125132151%_ + (gx#stx-pair? _%tl131305131333%_)) + (let ((_%e131310131336%_ (let () (declare (not safe)) - (gx#stx-e _%tl132120132148%_)))) - (let ((_%hd132124132154%_ + (gx#stx-e _%tl131305131333%_)))) + (let ((_%hd131309131339%_ (let () (declare (not safe)) - (##car _%e132125132151%_))) - (_%tl132123132156%_ + (##car _%e131310131336%_))) + (_%tl131308131341%_ (let () (declare (not safe)) - (##cdr _%e132125132151%_)))) + (##cdr _%e131310131336%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132123132156%_)) - ((lambda (_%L132159%_ - _%L132160%_) - (let* ((_%expr132175%_ - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self132110%_ - _%L132159%_))) - (__tmp134585 - (cons '%#set! - (cons _%L132160%_ + _%tl131308131341%_)) + ((lambda (_%L131344%_ + _%L131345%_) + (let ((_%expr131360%_ + (gxc#compile-e__1 + _%self131295%_ + _%L131344%_))) + (gxc#xform-wrap-source + (cons '%#set! + (cons _%L131345%_ + (cons _%expr131360%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr132175%_ '()))))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp134585 - _%stx132111%_))) - _%hd132124132154%_ - _%hd132121132146%_) - (let () - (declare (not safe)) - (_%g132113132130%_ - _%g132114132133%_))))) - (let () - (declare (not safe)) - (_%g132113132130%_ - _%g132114132133%_))))) - (let () - (declare (not safe)) - (_%g132113132130%_ _%g132114132133%_))))) - (let () - (declare (not safe)) - (_%g132113132130%_ _%g132114132133%_)))))) - (declare (not safe)) - (_%g132112132177%_ _%stx132111%_)))))) + _%stx131296%_))) + _%hd131309131339%_ + _%hd131306131331%_) + (_%g131298131315%_ + _%g131299131318%_)))) + (_%g131298131315%_ _%g131299131318%_)))) + (_%g131298131315%_ _%g131299131318%_)))) + (_%g131298131315%_ _%g131299131318%_))))) + (_%g131297131362%_ _%stx131296%_)))))) diff --git a/src/bootstrap/gerbil/compiler/method~1.scm b/src/bootstrap/gerbil/compiler/method~1.scm index 8962b4380..60c2990ac 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]#_g134613_| + (define |gxc[1]#_g133763_| (##structure gx#syntax-quote::t '::void-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134615_| + (define |gxc[1]#_g133765_| (##structure gx#syntax-quote::t 'make-::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134617_| + (define |gxc[1]#_g133767_| (##structure gx#syntax-quote::t '::void-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134619_| + (define |gxc[1]#_g133769_| (##structure gx#syntax-quote::t '::void-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134621_| + (define |gxc[1]#_g133771_| (##structure gx#syntax-quote::t 'make-::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134623_| + (define |gxc[1]#_g133773_| (##structure gx#syntax-quote::t '::void-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134625_| + (define |gxc[1]#_g133775_| (##structure gx#syntax-quote::t '::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134626_| + (define |gxc[1]#_g133776_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134628_| + (define |gxc[1]#_g133778_| (##structure gx#syntax-quote::t '::void::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134630_| + (define |gxc[1]#_g133780_| (##structure gx#syntax-quote::t 'make-::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134632_| + (define |gxc[1]#_g133782_| (##structure gx#syntax-quote::t '::void? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134634_| + (define |gxc[1]#_g133784_| (##structure gx#syntax-quote::t '::false-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134636_| + (define |gxc[1]#_g133786_| (##structure gx#syntax-quote::t 'make-::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134638_| + (define |gxc[1]#_g133788_| (##structure gx#syntax-quote::t '::false-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134640_| + (define |gxc[1]#_g133790_| (##structure gx#syntax-quote::t '::false-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134642_| + (define |gxc[1]#_g133792_| (##structure gx#syntax-quote::t 'make-::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134644_| + (define |gxc[1]#_g133794_| (##structure gx#syntax-quote::t '::false-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134646_| + (define |gxc[1]#_g133796_| (##structure gx#syntax-quote::t '::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134647_| + (define |gxc[1]#_g133797_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134649_| + (define |gxc[1]#_g133799_| (##structure gx#syntax-quote::t '::false::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134651_| + (define |gxc[1]#_g133801_| (##structure gx#syntax-quote::t 'make-::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134653_| + (define |gxc[1]#_g133803_| (##structure gx#syntax-quote::t '::false? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134655_| + (define |gxc[1]#_g133805_| (##structure gx#syntax-quote::t '::identity-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134657_| + (define |gxc[1]#_g133807_| (##structure gx#syntax-quote::t 'make-::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134659_| + (define |gxc[1]#_g133809_| (##structure gx#syntax-quote::t '::identity-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134661_| + (define |gxc[1]#_g133811_| (##structure gx#syntax-quote::t '::identity-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134663_| + (define |gxc[1]#_g133813_| (##structure gx#syntax-quote::t 'make-::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134665_| + (define |gxc[1]#_g133815_| (##structure gx#syntax-quote::t '::identity-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134667_| + (define |gxc[1]#_g133817_| (##structure gx#syntax-quote::t '::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134668_| + (define |gxc[1]#_g133818_| (##structure gx#syntax-quote::t '::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134670_| + (define |gxc[1]#_g133820_| (##structure gx#syntax-quote::t '::identity::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134672_| + (define |gxc[1]#_g133822_| (##structure gx#syntax-quote::t 'make-::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134674_| + (define |gxc[1]#_g133824_| (##structure gx#syntax-quote::t '::identity? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134676_| + (define |gxc[1]#_g133826_| (##structure gx#syntax-quote::t '::basic-xform-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134678_| + (define |gxc[1]#_g133828_| (##structure gx#syntax-quote::t 'make-::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134680_| + (define |gxc[1]#_g133830_| (##structure gx#syntax-quote::t '::basic-xform-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134682_| + (define |gxc[1]#_g133832_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134683_| + (define |gxc[1]#_g133833_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134685_| + (define |gxc[1]#_g133835_| (##structure gx#syntax-quote::t '::basic-xform::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134687_| + (define |gxc[1]#_g133837_| (##structure gx#syntax-quote::t 'make-::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134689_| + (define |gxc[1]#_g133839_| (##structure gx#syntax-quote::t '::basic-xform? @@ -289,2281 +289,2292 @@ '())) (begin (define |gxc[:0:]#defcompile-method| - (lambda (_%stx130652%_) - (let* ((_%__stx134312134313%_ _%stx130652%_) - (_%g130658130852%_ + (lambda (_%stx129837%_) + (let* ((_%__stx133497133498%_ _%stx129837%_) + (_%g129843130037%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx134312134313%_))))) - (let ((_%__kont134315134316%_ - (lambda (_%L132072%_ _%L132074%_ _%L132075%_ _%L132076%_) + _%__stx133497133498%_))))) + (let ((_%__kont133500133501%_ + (lambda (_%L131257%_ _%L131259%_ _%L131260%_ _%L131261%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defcompile-method)) - (cons _%L132076%_ - (cons (cons _%L132075%_ '()) - (cons _%L132074%_ _%L132072%_)))))) - (_%__kont134317134318%_ - (lambda (_%L131826%_ - _%L131828%_ - _%L131829%_ - _%L131830%_ - _%L131831%_) - (let* ((_%g131862131890%_ - (lambda (_%g131863131886%_) + (cons _%L131261%_ + (cons (cons _%L131260%_ '()) + (cons _%L131259%_ _%L131257%_)))))) + (_%__kont133502133503%_ + (lambda (_%L131011%_ + _%L131013%_ + _%L131014%_ + _%L131015%_ + _%L131016%_) + (let* ((_%g131047131075%_ + (lambda (_%g131048131071%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g131863131886%_)))) - (_%g131861132010%_ - (lambda (_%g131863131894%_) + _%g131048131071%_)))) + (_%g131046131195%_ + (lambda (_%g131048131079%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g131863131894%_)) - (let ((_%e131869131897%_ + (gx#stx-pair? _%g131048131079%_)) + (let ((_%e131054131082%_ (let () (declare (not safe)) - (gx#syntax-e _%g131863131894%_)))) - (let ((_%hd131868131901%_ + (gx#syntax-e _%g131048131079%_)))) + (let ((_%hd131053131086%_ (let () (declare (not safe)) - (##car _%e131869131897%_))) - (_%tl131867131904%_ + (##car _%e131054131082%_))) + (_%tl131052131089%_ (let () (declare (not safe)) - (##cdr _%e131869131897%_)))) + (##cdr _%e131054131082%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131867131904%_)) - (let ((_%e131872131907%_ + (gx#stx-pair? _%tl131052131089%_)) + (let ((_%e131057131092%_ (let () (declare (not safe)) (gx#syntax-e - _%tl131867131904%_)))) - (let ((_%hd131871131911%_ + _%tl131052131089%_)))) + (let ((_%hd131056131096%_ (let () (declare (not safe)) - (##car _%e131872131907%_))) - (_%tl131870131914%_ + (##car _%e131057131092%_))) + (_%tl131055131099%_ (let () (declare (not safe)) - (##cdr _%e131872131907%_)))) + (##cdr _%e131057131092%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd131871131911%_)) - (let ((_g134586_ + _%hd131056131096%_)) + (let ((_g133736_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd131871131911%_ + _%hd131056131096%_ '0)))) (begin - (let ((_g134587_ + (let ((_g133737_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g134586_) - (##vector-length _g134586_) + _g133736_) + (##vector-length _g133736_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g134587_ 2))) - (error "Context expects 2 values" _g134587_))) + (if (not (let () (declare (not safe)) (##fx= _g133737_ 2))) + (error "Context expects 2 values" _g133737_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target131873131917%_ + (let ((_%target131058131102%_ (let () (declare (not safe)) (##vector-ref - _g134586_ + _g133736_ 0))) - (_%tl131875131920%_ + (_%tl131060131105%_ (let () (declare (not safe)) (##vector-ref - _g134586_ + _g133736_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl131875131920%_)) - (letrec ((_%loop131876131923%_ + _%tl131060131105%_)) + (letrec ((_%loop131061131108%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd131874131927%_ - _%super-bind-methods!131880131930%_) + (lambda (_%hd131059131112%_ + _%super-bind-methods!131065131115%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd131874131927%_)) - (let ((_%e131877131933%_ + (gx#stx-pair? _%hd131059131112%_)) + (let ((_%e131062131118%_ (let () (declare (not safe)) - (gx#syntax-e _%hd131874131927%_)))) - (let ((_%lp-hd131878131937%_ + (gx#syntax-e _%hd131059131112%_)))) + (let ((_%lp-hd131063131122%_ (let () (declare (not safe)) - (##car _%e131877131933%_))) - (_%lp-tl131879131940%_ + (##car _%e131062131118%_))) + (_%lp-tl131064131125%_ (let () (declare (not safe)) - (##cdr _%e131877131933%_)))) - (_%loop131876131923%_ - _%lp-tl131879131940%_ - (cons _%lp-hd131878131937%_ - _%super-bind-methods!131880131930%_)))) - (let ((_%super-bind-methods!131881131943%_ - (reverse _%super-bind-methods!131880131930%_))) + (##cdr _%e131062131118%_)))) + (_%loop131061131108%_ + _%lp-tl131064131125%_ + (cons _%lp-hd131063131122%_ + _%super-bind-methods!131065131115%_)))) + (let ((_%super-bind-methods!131066131128%_ + (reverse _%super-bind-methods!131065131115%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131870131914%_)) - (let ((_%e131884131947%_ + (gx#stx-pair? _%tl131055131099%_)) + (let ((_%e131069131132%_ (let () (declare (not safe)) (gx#syntax-e - _%tl131870131914%_)))) - (let ((_%hd131883131951%_ + _%tl131055131099%_)))) + (let ((_%hd131068131136%_ (let () (declare (not safe)) - (##car _%e131884131947%_))) - (_%tl131882131954%_ + (##car _%e131069131132%_))) + (_%tl131067131139%_ (let () (declare (not safe)) - (##cdr _%e131884131947%_)))) + (##cdr _%e131069131132%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl131882131954%_)) - ((lambda (_%L131957%_ - _%L131959%_ - _%L131960%_) - (let () - (cons (let () - (declare - (not safe)) - (gx#datum->syntax__0 - '#f - 'begin)) - (cons (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L131831%_ - (let ((__tmp134588 - (lambda (_%g131987131990%_ - _%g131988131993%_) - (cons _%g131987131990%_ - _%g131988131993%_)))) - (declare (not safe)) - (__foldr1 - __tmp134588 - '() - _%L131830%_))) - (cons _%L131829%_ '()))) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'def)) - (cons _%L131960%_ - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'delay)) - (cons (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp134591 - (lambda (_%g131982131996%_ - _%g131983131999%_) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'force)) - (cons _%g131982131996%_ '())) - _%g131983131999%_))) - (__tmp134589 - (begin - (let () - (declare (not safe)) - (gx#syntax-check-splice-targets - _%L131826%_ - _%L131828%_)) - (let ((__tmp134590 - (lambda (_%g131984132002%_ - _%g131985132005%_ - _%g131986132007%_) - (cons (cons (let () + _%tl131067131139%_)) + ((lambda (_%L131142%_ + _%L131144%_ + _%L131145%_) + (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f - 'bind-method!)) - (cons _%L131957%_ - (cons (cons (let () + 'begin)) + (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#datum->syntax__0 '#f 'defclass)) + (cons (cons _%L131016%_ + (let ((__tmp133738 + (lambda (_%g131172131175%_ + _%g131173131178%_) + (cons _%g131172131175%_ + _%g131173131178%_)))) + (declare (not safe)) + (__foldr1 + __tmp133738 + '() + _%L131015%_))) + (cons _%L131014%_ '()))) + (cons (cons (let () (declare (not safe)) - (gx#datum->syntax__0 '#f 'quote)) - (cons _%g131985132005%_ '())) - (cons _%g131984132002%_ '())))) + (gx#datum->syntax__0 '#f 'def)) + (cons _%L131145%_ + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'delay)) + (cons (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#datum->syntax__0 '#f 'begin)) + (let ((__tmp133741 + (lambda (_%g131167131181%_ _%g131168131184%_) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'force)) + (cons _%g131167131181%_ '())) + _%g131168131184%_))) + (__tmp133739 + (begin + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets + _%L131011%_ + _%L131013%_)) + (let ((__tmp133740 + (lambda (_%g131169131187%_ + _%g131170131190%_ + _%g131171131192%_) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'bind-method!)) + (cons _%L131142%_ + (cons (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote)) + (cons _%g131170131190%_ '())) + (cons _%g131169131187%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g131986132007%_)))) - (declare (not safe)) - (__foldr2 - __tmp134590 - '() - _%L131826%_ - _%L131828%_))))) - (declare (not safe)) - (__foldr1 __tmp134591 __tmp134589 _%L131959%_))) - '())) + _%g131171131192%_)))) + (declare (not safe)) + (__foldr2 + __tmp133740 + '() + _%L131011%_ + _%L131013%_))))) + (declare (not safe)) + (__foldr1 __tmp133741 __tmp133739 _%L131144%_))) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))))) + '()))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd131883131951%_ - _%super-bind-methods!131881131943%_ - _%hd131868131901%_) - (_%g131862131890%_ - _%g131863131894%_)))) - (_%g131862131890%_ - _%g131863131894%_))))))) - (_%loop131876131923%_ _%target131873131917%_ '())) - (_%g131862131890%_ _%g131863131894%_))))) + _%hd131068131136%_ + _%super-bind-methods!131066131128%_ + _%hd131053131086%_) + (_%g131047131075%_ + _%g131048131079%_)))) + (_%g131047131075%_ + _%g131048131079%_))))))) + (_%loop131061131108%_ _%target131058131102%_ '())) + (_%g131047131075%_ _%g131048131079%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g131862131890%_ - _%g131863131894%_)))) - (_%g131862131890%_ - _%g131863131894%_)))) - (_%g131862131890%_ _%g131863131894%_))))) - (_%g131861132010%_ + (_%g131047131075%_ + _%g131048131079%_)))) + (_%g131047131075%_ + _%g131048131079%_)))) + (_%g131047131075%_ _%g131048131079%_))))) + (_%g131046131195%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L131831%_ - _%L131831%_ + _%L131016%_ + _%L131016%_ '"-bind-methods!")) - (map (lambda (_%super132014%_) + (map (lambda (_%super131199%_) (let () (declare (not safe)) (gx#stx-identifier - _%super132014%_ - _%super132014%_ + _%super131199%_ + _%super131199%_ '"-bind-methods!"))) - (let ((__tmp134592 - (lambda (_%g132016132019%_ - _%g132017132022%_) - (cons _%g132016132019%_ - _%g132017132022%_)))) + (let ((__tmp133742 + (lambda (_%g131201131204%_ + _%g131202131207%_) + (cons _%g131201131204%_ + _%g131202131207%_)))) (declare (not safe)) - (__foldr1 __tmp134592 '() _%L131830%_))) + (__foldr1 __tmp133742 '() _%L131015%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L131831%_ - _%L131831%_ + _%L131016%_ + _%L131016%_ '"::t"))))))) - (_%__kont134323134324%_ - (lambda (_%L131457%_ - _%L131459%_ - _%L131460%_ - _%L131461%_ - _%L131462%_ - _%L131463%_ - _%L131464%_) - (let* ((_%g131502131530%_ - (lambda (_%g131503131526%_) + (_%__kont133508133509%_ + (lambda (_%L130642%_ + _%L130644%_ + _%L130645%_ + _%L130646%_ + _%L130647%_ + _%L130648%_ + _%L130649%_) + (let* ((_%g130687130715%_ + (lambda (_%g130688130711%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g131503131526%_)))) - (_%g131501131666%_ - (lambda (_%g131503131534%_) + _%g130688130711%_)))) + (_%g130686130851%_ + (lambda (_%g130688130719%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g131503131534%_)) - (let ((_%e131509131537%_ + (gx#stx-pair? _%g130688130719%_)) + (let ((_%e130694130722%_ (let () (declare (not safe)) - (gx#syntax-e _%g131503131534%_)))) - (let ((_%hd131508131541%_ + (gx#syntax-e _%g130688130719%_)))) + (let ((_%hd130693130726%_ (let () (declare (not safe)) - (##car _%e131509131537%_))) - (_%tl131507131544%_ + (##car _%e130694130722%_))) + (_%tl130692130729%_ (let () (declare (not safe)) - (##cdr _%e131509131537%_)))) + (##cdr _%e130694130722%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131507131544%_)) - (let ((_%e131512131547%_ + (gx#stx-pair? _%tl130692130729%_)) + (let ((_%e130697130732%_ (let () (declare (not safe)) (gx#syntax-e - _%tl131507131544%_)))) - (let ((_%hd131511131551%_ + _%tl130692130729%_)))) + (let ((_%hd130696130736%_ (let () (declare (not safe)) - (##car _%e131512131547%_))) - (_%tl131510131554%_ + (##car _%e130697130732%_))) + (_%tl130695130739%_ (let () (declare (not safe)) - (##cdr _%e131512131547%_)))) + (##cdr _%e130697130732%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd131511131551%_)) - (let ((_g134593_ + _%hd130696130736%_)) + (let ((_g133743_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd131511131551%_ + _%hd130696130736%_ '0)))) (begin - (let ((_g134594_ + (let ((_g133744_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g134593_) - (##vector-length _g134593_) + _g133743_) + (##vector-length _g133743_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g134594_ 2))) - (error "Context expects 2 values" _g134594_))) + (if (not (let () (declare (not safe)) (##fx= _g133744_ 2))) + (error "Context expects 2 values" _g133744_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target131513131557%_ + (let ((_%target130698130742%_ (let () (declare (not safe)) (##vector-ref - _g134593_ + _g133743_ 0))) - (_%tl131515131560%_ + (_%tl130700130745%_ (let () (declare (not safe)) (##vector-ref - _g134593_ + _g133743_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl131515131560%_)) - (letrec ((_%loop131516131563%_ + _%tl130700130745%_)) + (letrec ((_%loop130701130748%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd131514131567%_ - _%super-bind-methods!131520131570%_) + (lambda (_%hd130699130752%_ + _%super-bind-methods!130705130755%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd131514131567%_)) - (let ((_%e131517131573%_ + (gx#stx-pair? _%hd130699130752%_)) + (let ((_%e130702130758%_ (let () (declare (not safe)) - (gx#syntax-e _%hd131514131567%_)))) - (let ((_%lp-hd131518131577%_ + (gx#syntax-e _%hd130699130752%_)))) + (let ((_%lp-hd130703130762%_ (let () (declare (not safe)) - (##car _%e131517131573%_))) - (_%lp-tl131519131580%_ + (##car _%e130702130758%_))) + (_%lp-tl130704130765%_ (let () (declare (not safe)) - (##cdr _%e131517131573%_)))) - (_%loop131516131563%_ - _%lp-tl131519131580%_ - (cons _%lp-hd131518131577%_ - _%super-bind-methods!131520131570%_)))) - (let ((_%super-bind-methods!131521131583%_ - (reverse _%super-bind-methods!131520131570%_))) + (##cdr _%e130702130758%_)))) + (_%loop130701130748%_ + _%lp-tl130704130765%_ + (cons _%lp-hd130703130762%_ + _%super-bind-methods!130705130755%_)))) + (let ((_%super-bind-methods!130706130768%_ + (reverse _%super-bind-methods!130705130755%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131510131554%_)) - (let ((_%e131524131587%_ + (gx#stx-pair? _%tl130695130739%_)) + (let ((_%e130709130772%_ (let () (declare (not safe)) (gx#syntax-e - _%tl131510131554%_)))) - (let ((_%hd131523131591%_ + _%tl130695130739%_)))) + (let ((_%hd130708130776%_ (let () (declare (not safe)) - (##car _%e131524131587%_))) - (_%tl131522131594%_ + (##car _%e130709130772%_))) + (_%tl130707130779%_ (let () (declare (not safe)) - (##cdr _%e131524131587%_)))) + (##cdr _%e130709130772%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl131522131594%_)) - ((lambda (_%L131597%_ - _%L131599%_ - _%L131600%_) - (let () + _%tl130707130779%_)) + ((lambda (_%L130782%_ + _%L130784%_ + _%L130785%_) + (cons (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'begin)) + (cons (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#datum->syntax__0 '#f 'defclass)) + (cons (cons _%L130647%_ + (let ((__tmp133745 + (lambda (_%g130816130819%_ + _%g130817130822%_) + (cons _%g130816130819%_ + _%g130817130822%_)))) + (declare (not safe)) + (__foldr1 + __tmp133745 + '() + _%L130646%_))) + (cons _%L130645%_ '()))) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'def)) + (cons _%L130785%_ + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'delay)) + (cons (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#datum->syntax__0 '#f 'begin)) + (let ((__tmp133748 + (lambda (_%g130811130825%_ _%g130812130828%_) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'force)) + (cons _%g130811130825%_ '())) + _%g130812130828%_))) + (__tmp133746 + (begin + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets + _%L130642%_ + _%L130644%_)) + (let ((__tmp133747 + (lambda (_%g130813130831%_ + _%g130814130834%_ + _%g130815130836%_) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'bind-method!)) + (cons _%L130782%_ + (cons (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote)) + (cons _%g130814130834%_ '())) + (cons _%g130813130831%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g130815130836%_)))) + (declare (not safe)) + (__foldr2 + __tmp133747 + '() + _%L130642%_ + _%L130644%_))))) + (declare (not safe)) + (__foldr1 __tmp133748 __tmp133746 _%L130784%_))) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'def)) + (cons (cons _%L130649%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f - 'begin)) - (cons (cons (let () + 'stx)) + (let ((__tmp133749 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L131462%_ - (let ((__tmp134595 - (lambda (_%g131631131634%_ - _%g131632131637%_) - (cons _%g131631131634%_ - _%g131632131637%_)))) - (declare (not safe)) - (__foldr1 - __tmp134595 - '() - _%L131461%_))) - (cons _%L131460%_ '()))) + (lambda (_%g130809130839%_ _%g130810130842%_) + (cons _%g130809130839%_ _%g130810130842%_)))) + (declare (not safe)) + (__foldr1 __tmp133749 '() _%L130648%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'force)) + (cons _%L130785%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'let)) (cons (cons (let () (declare (not safe)) - (gx#datum->syntax__0 '#f 'def)) - (cons _%L131600%_ - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'delay)) - (cons (cons (let () + (gx#datum->syntax__0 '#f 'self)) + (cons (cons _%L130647%_ + (let ((__tmp133750 + (lambda (_%g130807130845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp134598 - (lambda (_%g131626131640%_ - _%g131627131643%_) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'force)) - (cons _%g131626131640%_ '())) - _%g131627131643%_))) - (__tmp134596 - (begin - (let () - (declare (not safe)) - (gx#syntax-check-splice-targets - _%L131457%_ - _%L131459%_)) - (let ((__tmp134597 - (lambda (_%g131628131646%_ - _%g131629131649%_ - _%g131630131651%_) - (cons (cons (let () - (declare - (not safe)) - (gx#datum->syntax__0 - '#f - 'bind-method!)) - (cons _%L131597%_ - (cons (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'quote)) - (cons _%g131629131649%_ '())) - (cons _%g131628131646%_ '())))) + _%g130808130848%_) + (cons _%g130807130845%_ _%g130808130848%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g131630131651%_)))) - (declare (not safe)) - (__foldr2 - __tmp134597 - '() - _%L131457%_ - _%L131459%_))))) - (declare (not safe)) - (__foldr1 __tmp134598 __tmp134596 _%L131599%_))) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) + (declare (not safe)) + (__foldr1 + __tmp133750 + '() + _%L130648%_))) + '())) (cons (cons (let () (declare (not safe)) - (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L131464%_ - (cons (let () + (gx#datum->syntax__0 + '#f + 'parameterize)) + (cons (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp134599 - (lambda (_%g131624131654%_ _%g131625131657%_) - (cons _%g131624131654%_ _%g131625131657%_)))) - (declare (not safe)) - (__foldr1 __tmp134599 '() _%L131463%_)))) + (gx#datum->syntax__0 '#f 'current-compile-method)) + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'self)) + '())) + '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#datum->syntax__0 '#f 'force)) - (cons _%L131600%_ '())) - (cons (cons (let () + (gx#datum->syntax__0 '#f 'compile-e)) + (cons (let () (declare (not safe)) - (gx#datum->syntax__0 '#f 'let)) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L131462%_ - (let ((__tmp134600 - (lambda (_%g131622131660%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g131623131663%_) - (cons _%g131622131660%_ _%g131623131663%_)))) - (declare (not safe)) - (__foldr1 __tmp134600 '() _%L131463%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'parameterize)) - (cons (cons (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'current-compile-method)) - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'self)) - '())) - '()) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'compile-e)) - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'self)) - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'stx)) - '()))) - '()))) + (gx#datum->syntax__0 '#f 'self)) + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'stx)) + '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())))) + '()))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd131523131591%_ - _%super-bind-methods!131521131583%_ - _%hd131508131541%_) - (_%g131502131530%_ - _%g131503131534%_)))) - (_%g131502131530%_ - _%g131503131534%_))))))) - (_%loop131516131563%_ _%target131513131557%_ '())) - (_%g131502131530%_ _%g131503131534%_))))) + _%hd130708130776%_ + _%super-bind-methods!130706130768%_ + _%hd130693130726%_) + (_%g130687130715%_ + _%g130688130719%_)))) + (_%g130687130715%_ + _%g130688130719%_))))))) + (_%loop130701130748%_ _%target130698130742%_ '())) + (_%g130687130715%_ _%g130688130719%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g131502131530%_ - _%g131503131534%_)))) - (_%g131502131530%_ - _%g131503131534%_)))) - (_%g131502131530%_ _%g131503131534%_))))) - (_%g131501131666%_ + (_%g130687130715%_ + _%g130688130719%_)))) + (_%g130687130715%_ + _%g130688130719%_)))) + (_%g130687130715%_ _%g130688130719%_))))) + (_%g130686130851%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L131462%_ - _%L131462%_ + _%L130647%_ + _%L130647%_ '"-bind-methods!")) - (map (lambda (_%super131670%_) + (map (lambda (_%super130855%_) (let () (declare (not safe)) (gx#stx-identifier - _%super131670%_ - _%super131670%_ + _%super130855%_ + _%super130855%_ '"-bind-methods!"))) - (let ((__tmp134601 - (lambda (_%g131672131675%_ - _%g131673131678%_) - (cons _%g131672131675%_ - _%g131673131678%_)))) + (let ((__tmp133751 + (lambda (_%g130857130860%_ + _%g130858130863%_) + (cons _%g130857130860%_ + _%g130858130863%_)))) (declare (not safe)) - (__foldr1 __tmp134601 '() _%L131461%_))) + (__foldr1 __tmp133751 '() _%L130646%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L131462%_ - _%L131462%_ + _%L130647%_ + _%L130647%_ '"::t"))))))) - (_%__kont134331134332%_ - (lambda (_%L131047%_ - _%L131049%_ - _%L131050%_ - _%L131051%_ - _%L131052%_ - _%L131053%_ - _%L131054%_) - (let* ((_%g131097131125%_ - (lambda (_%g131098131121%_) + (_%__kont133516133517%_ + (lambda (_%L130232%_ + _%L130234%_ + _%L130235%_ + _%L130236%_ + _%L130237%_ + _%L130238%_ + _%L130239%_) + (let* ((_%g130282130310%_ + (lambda (_%g130283130306%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g131098131121%_)))) - (_%g131096131261%_ - (lambda (_%g131098131129%_) + _%g130283130306%_)))) + (_%g130281130446%_ + (lambda (_%g130283130314%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g131098131129%_)) - (let ((_%e131104131132%_ + (gx#stx-pair? _%g130283130314%_)) + (let ((_%e130289130317%_ (let () (declare (not safe)) - (gx#syntax-e _%g131098131129%_)))) - (let ((_%hd131103131136%_ + (gx#syntax-e _%g130283130314%_)))) + (let ((_%hd130288130321%_ (let () (declare (not safe)) - (##car _%e131104131132%_))) - (_%tl131102131139%_ + (##car _%e130289130317%_))) + (_%tl130287130324%_ (let () (declare (not safe)) - (##cdr _%e131104131132%_)))) + (##cdr _%e130289130317%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131102131139%_)) - (let ((_%e131107131142%_ + (gx#stx-pair? _%tl130287130324%_)) + (let ((_%e130292130327%_ (let () (declare (not safe)) (gx#syntax-e - _%tl131102131139%_)))) - (let ((_%hd131106131146%_ + _%tl130287130324%_)))) + (let ((_%hd130291130331%_ (let () (declare (not safe)) - (##car _%e131107131142%_))) - (_%tl131105131149%_ + (##car _%e130292130327%_))) + (_%tl130290130334%_ (let () (declare (not safe)) - (##cdr _%e131107131142%_)))) + (##cdr _%e130292130327%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd131106131146%_)) - (let ((_g134602_ + _%hd130291130331%_)) + (let ((_g133752_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd131106131146%_ + _%hd130291130331%_ '0)))) (begin - (let ((_g134603_ + (let ((_g133753_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g134602_) - (##vector-length _g134602_) + _g133752_) + (##vector-length _g133752_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g134603_ 2))) - (error "Context expects 2 values" _g134603_))) + (if (not (let () (declare (not safe)) (##fx= _g133753_ 2))) + (error "Context expects 2 values" _g133753_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target131108131152%_ + (let ((_%target130293130337%_ (let () (declare (not safe)) (##vector-ref - _g134602_ + _g133752_ 0))) - (_%tl131110131155%_ + (_%tl130295130340%_ (let () (declare (not safe)) (##vector-ref - _g134602_ + _g133752_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl131110131155%_)) - (letrec ((_%loop131111131158%_ + _%tl130295130340%_)) + (letrec ((_%loop130296130343%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd131109131162%_ - _%super-bind-methods!131115131165%_) + (lambda (_%hd130294130347%_ + _%super-bind-methods!130300130350%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd131109131162%_)) - (let ((_%e131112131168%_ + (gx#stx-pair? _%hd130294130347%_)) + (let ((_%e130297130353%_ (let () (declare (not safe)) - (gx#syntax-e _%hd131109131162%_)))) - (let ((_%lp-hd131113131172%_ + (gx#syntax-e _%hd130294130347%_)))) + (let ((_%lp-hd130298130357%_ (let () (declare (not safe)) - (##car _%e131112131168%_))) - (_%lp-tl131114131175%_ + (##car _%e130297130353%_))) + (_%lp-tl130299130360%_ (let () (declare (not safe)) - (##cdr _%e131112131168%_)))) - (_%loop131111131158%_ - _%lp-tl131114131175%_ - (cons _%lp-hd131113131172%_ - _%super-bind-methods!131115131165%_)))) - (let ((_%super-bind-methods!131116131178%_ - (reverse _%super-bind-methods!131115131165%_))) + (##cdr _%e130297130353%_)))) + (_%loop130296130343%_ + _%lp-tl130299130360%_ + (cons _%lp-hd130298130357%_ + _%super-bind-methods!130300130350%_)))) + (let ((_%super-bind-methods!130301130363%_ + (reverse _%super-bind-methods!130300130350%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131105131149%_)) - (let ((_%e131119131182%_ + (gx#stx-pair? _%tl130290130334%_)) + (let ((_%e130304130367%_ (let () (declare (not safe)) (gx#syntax-e - _%tl131105131149%_)))) - (let ((_%hd131118131186%_ + _%tl130290130334%_)))) + (let ((_%hd130303130371%_ (let () (declare (not safe)) - (##car _%e131119131182%_))) - (_%tl131117131189%_ + (##car _%e130304130367%_))) + (_%tl130302130374%_ (let () (declare (not safe)) - (##cdr _%e131119131182%_)))) + (##cdr _%e130304130367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl131117131189%_)) - ((lambda (_%L131192%_ - _%L131194%_ - _%L131195%_) - (let () - (cons (let () - (declare - (not safe)) - (gx#datum->syntax__0 - '#f - 'begin)) - (cons (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L131052%_ - (let ((__tmp134604 - (lambda (_%g131226131229%_ - _%g131227131232%_) - (cons _%g131226131229%_ - _%g131227131232%_)))) - (declare (not safe)) - (__foldr1 - __tmp134604 - '() - _%L131051%_))) - (cons _%L131050%_ - (cons 'final: (cons '#t '()))))) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'def)) - (cons _%L131195%_ - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'delay)) - (cons (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp134608 - (lambda (_%g131221131235%_ - _%g131222131238%_) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'force)) - (cons _%g131221131235%_ '())) - _%g131222131238%_))) - (__tmp134605 - (begin - (let () - (declare (not safe)) - (gx#syntax-check-splice-targets - _%L131047%_ - _%L131049%_)) - (let ((__tmp134607 - (lambda (_%g131223131241%_ - _%g131224131244%_ - _%g131225131246%_) - (cons (cons (let () + _%tl130302130374%_)) + ((lambda (_%L130377%_ + _%L130379%_ + _%L130380%_) + (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f - 'bind-method!)) - (cons _%L131192%_ - (cons (cons (let () + 'begin)) + (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#datum->syntax__0 '#f 'defclass)) + (cons (cons _%L130237%_ + (let ((__tmp133754 + (lambda (_%g130411130414%_ + _%g130412130417%_) + (cons _%g130411130414%_ + _%g130412130417%_)))) + (declare (not safe)) + (__foldr1 + __tmp133754 + '() + _%L130236%_))) + (cons _%L130235%_ + (cons 'final: (cons '#t '()))))) + (cons (cons (let () (declare (not safe)) - (gx#datum->syntax__0 '#f 'quote)) - (cons _%g131224131244%_ '())) - (cons _%g131223131241%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g131225131246%_))) - (__tmp134606 + (gx#datum->syntax__0 '#f 'def)) + (cons _%L130380%_ + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'delay)) + (cons (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#datum->syntax__0 '#f 'begin)) + (let ((__tmp133758 + (lambda (_%g130406130420%_ _%g130407130423%_) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'force)) + (cons _%g130406130420%_ '())) + _%g130407130423%_))) + (__tmp133755 + (begin + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets + _%L130232%_ + _%L130234%_)) + (let ((__tmp133757 + (lambda (_%g130408130426%_ + _%g130409130429%_ + _%g130410130431%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f - 'seal-class!)) - (cons _%L131192%_ '())) - '()))) - (declare (not safe)) - (__foldr2 - __tmp134607 - __tmp134606 - _%L131047%_ - _%L131049%_))))) - (declare (not safe)) - (__foldr1 __tmp134608 __tmp134605 _%L131194%_))) - '())) + 'bind-method!)) + (cons _%L130377%_ + (cons (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote)) + (cons _%g130409130429%_ '())) + (cons _%g130408130426%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g130410130431%_))) + (__tmp133756 + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'seal-class!)) + (cons _%L130377%_ '())) + '()))) + (declare (not safe)) + (__foldr2 + __tmp133757 + __tmp133756 + _%L130232%_ + _%L130234%_))))) + (declare (not safe)) + (__foldr1 __tmp133758 __tmp133755 _%L130379%_))) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'def)) + (cons (cons _%L130239%_ + (cons (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'stx)) + (let ((__tmp133759 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g130404130434%_ _%g130405130437%_) + (cons _%g130404130434%_ _%g130405130437%_)))) + (declare (not safe)) + (__foldr1 __tmp133759 '() _%L130238%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'force)) + (cons _%L130380%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'let)) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'self)) + (cons (cons _%L130237%_ + (let ((__tmp133760 + (lambda (_%g130402130440%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g130403130443%_) + (cons _%g130402130440%_ _%g130403130443%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) + (declare (not safe)) + (__foldr1 + __tmp133760 + '() + _%L130238%_))) + '())) (cons (cons (let () (declare (not safe)) - (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L131054%_ - (cons (let () + (gx#datum->syntax__0 + '#f + 'parameterize)) + (cons (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp134609 - (lambda (_%g131219131249%_ _%g131220131252%_) - (cons _%g131219131249%_ _%g131220131252%_)))) - (declare (not safe)) - (__foldr1 __tmp134609 '() _%L131053%_)))) + (gx#datum->syntax__0 '#f 'current-compile-method)) + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'self)) + '())) + '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#datum->syntax__0 '#f 'force)) - (cons _%L131195%_ '())) - (cons (cons (let () + (gx#datum->syntax__0 '#f 'compile-e)) + (cons (let () (declare (not safe)) - (gx#datum->syntax__0 '#f 'let)) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L131052%_ - (let ((__tmp134610 - (lambda (_%g131217131255%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g131218131258%_) - (cons _%g131217131255%_ _%g131218131258%_)))) - (declare (not safe)) - (__foldr1 __tmp134610 '() _%L131053%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'parameterize)) - (cons (cons (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'current-compile-method)) - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'self)) - '())) - '()) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'compile-e)) - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'self)) - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'stx)) - '()))) - '()))) + (gx#datum->syntax__0 '#f 'self)) + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'stx)) + '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())))) + '()))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd131118131186%_ - _%super-bind-methods!131116131178%_ - _%hd131103131136%_) - (_%g131097131125%_ - _%g131098131129%_)))) - (_%g131097131125%_ - _%g131098131129%_))))))) - (_%loop131111131158%_ _%target131108131152%_ '())) - (_%g131097131125%_ _%g131098131129%_))))) + _%hd130303130371%_ + _%super-bind-methods!130301130363%_ + _%hd130288130321%_) + (_%g130282130310%_ + _%g130283130314%_)))) + (_%g130282130310%_ + _%g130283130314%_))))))) + (_%loop130296130343%_ _%target130293130337%_ '())) + (_%g130282130310%_ _%g130283130314%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g131097131125%_ - _%g131098131129%_)))) - (_%g131097131125%_ - _%g131098131129%_)))) - (_%g131097131125%_ _%g131098131129%_))))) - (_%g131096131261%_ + (_%g130282130310%_ + _%g130283130314%_)))) + (_%g130282130310%_ + _%g130283130314%_)))) + (_%g130282130310%_ _%g130283130314%_))))) + (_%g130281130446%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L131052%_ - _%L131052%_ + _%L130237%_ + _%L130237%_ '"-bind-methods!")) - (map (lambda (_%super131265%_) + (map (lambda (_%super130450%_) (let () (declare (not safe)) (gx#stx-identifier - _%super131265%_ - _%super131265%_ + _%super130450%_ + _%super130450%_ '"-bind-methods!"))) - (let ((__tmp134611 - (lambda (_%g131267131270%_ - _%g131268131273%_) - (cons _%g131267131270%_ - _%g131268131273%_)))) + (let ((__tmp133761 + (lambda (_%g130452130455%_ + _%g130453130458%_) + (cons _%g130452130455%_ + _%g130453130458%_)))) (declare (not safe)) - (__foldr1 __tmp134611 '() _%L131051%_))) + (__foldr1 __tmp133761 '() _%L130236%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L131052%_ - _%L131052%_ + _%L130237%_ + _%L130237%_ '"::t")))))))) - (let* ((_%__match134453134454%_ - (lambda (_%e130792130859%_ - _%hd130791130863%_ - _%tl130790130866%_ - _%e130795130869%_ - _%hd130794130873%_ - _%tl130793130876%_ - _%e130798130879%_ - _%hd130797130883%_ - _%tl130796130886%_ - _%__splice134333134334%_ - _%target130799130889%_ - _%tl130801130892%_) - (letrec ((_%loop130802130895%_ - (lambda (_%hd130800130899%_ - _%arg130806130902%_) + (let* ((_%__match133638133639%_ + (lambda (_%e129977130044%_ + _%hd129976130048%_ + _%tl129975130051%_ + _%e129980130054%_ + _%hd129979130058%_ + _%tl129978130061%_ + _%e129983130064%_ + _%hd129982130068%_ + _%tl129981130071%_ + _%__splice133518133519%_ + _%target129984130074%_ + _%tl129986130077%_) + (letrec ((_%loop129987130080%_ + (lambda (_%hd129985130084%_ + _%arg129991130087%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd130800130899%_)) - (let ((_%e130803130905%_ + (gx#stx-pair? _%hd129985130084%_)) + (let ((_%e129988130090%_ (let () (declare (not safe)) (gx#syntax-e - _%hd130800130899%_)))) - (let ((_%lp-tl130805130912%_ + _%hd129985130084%_)))) + (let ((_%lp-tl129990130097%_ (let () (declare (not safe)) - (##cdr _%e130803130905%_))) - (_%lp-hd130804130909%_ + (##cdr _%e129988130090%_))) + (_%lp-hd129989130094%_ (let () (declare (not safe)) - (##car _%e130803130905%_)))) - (_%loop130802130895%_ - _%lp-tl130805130912%_ - (cons _%lp-hd130804130909%_ - _%arg130806130902%_)))) - (let ((_%arg130807130915%_ - (reverse _%arg130806130902%_))) + (##car _%e129988130090%_)))) + (_%loop129987130080%_ + _%lp-tl129990130097%_ + (cons _%lp-hd129989130094%_ + _%arg129991130087%_)))) + (let ((_%arg129992130100%_ + (reverse _%arg129991130087%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl130793130876%_)) - (let ((_%e130810130919%_ + _%tl129978130061%_)) + (let ((_%e129995130104%_ (let () (declare (not safe)) (gx#syntax-e - _%tl130793130876%_)))) - (let ((_%tl130808130926%_ + _%tl129978130061%_)))) + (let ((_%tl129993130111%_ (let () (declare (not safe)) - (##cdr _%e130810130919%_))) - (_%hd130809130923%_ + (##cdr _%e129995130104%_))) + (_%hd129994130108%_ (let () (declare (not safe)) - (##car _%e130810130919%_)))) + (##car _%e129995130104%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd130809130923%_)) - (let ((_%e130813130929%_ + _%hd129994130108%_)) + (let ((_%e129998130114%_ (let () (declare (not safe)) (gx#syntax-e - _%hd130809130923%_)))) - (let ((_%tl130811130936%_ + _%hd129994130108%_)))) + (let ((_%tl129996130121%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e130813130929%_))) - (_%hd130812130933%_ - (let () (declare (not safe)) (##car _%e130813130929%_)))) + (##cdr _%e129998130114%_))) + (_%hd129997130118%_ + (let () (declare (not safe)) (##car _%e129998130114%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl130811130936%_)) - (let ((_%__splice134335134336%_ + (gx#stx-pair/null? _%tl129996130121%_)) + (let ((_%__splice133520133521%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl130811130936%_ '0)))) - (let ((_%tl130816130942%_ + (gx#syntax-split-splice _%tl129996130121%_ '0)))) + (let ((_%tl130001130127%_ (let () (declare (not safe)) - (##vector-ref _%__splice134335134336%_ '1))) - (_%target130814130939%_ + (##vector-ref _%__splice133520133521%_ '1))) + (_%target129999130124%_ (let () (declare (not safe)) - (##vector-ref _%__splice134335134336%_ '0)))) + (##vector-ref _%__splice133520133521%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl130816130942%_)) - (letrec ((_%loop130817130945%_ - (lambda (_%hd130815130949%_ - _%super130821130952%_) + (gx#stx-null? _%tl130001130127%_)) + (letrec ((_%loop130002130130%_ + (lambda (_%hd130000130134%_ + _%super130006130137%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd130815130949%_)) - (let ((_%e130818130955%_ + _%hd130000130134%_)) + (let ((_%e130003130140%_ (let () (declare (not safe)) (gx#syntax-e - _%hd130815130949%_)))) - (let ((_%lp-tl130820130962%_ + _%hd130000130134%_)))) + (let ((_%lp-tl130005130147%_ (let () (declare (not safe)) - (##cdr _%e130818130955%_))) - (_%lp-hd130819130959%_ + (##cdr _%e130003130140%_))) + (_%lp-hd130004130144%_ (let () (declare (not safe)) - (##car _%e130818130955%_)))) - (_%loop130817130945%_ - _%lp-tl130820130962%_ - (cons _%lp-hd130819130959%_ - _%super130821130952%_)))) - (let ((_%super130822130965%_ - (reverse _%super130821130952%_))) + (##car _%e130003130140%_)))) + (_%loop130002130130%_ + _%lp-tl130005130147%_ + (cons _%lp-hd130004130144%_ + _%super130006130137%_)))) + (let ((_%super130007130150%_ + (reverse _%super130006130137%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl130808130926%_)) - (let ((_%e130825130969%_ + _%tl129993130111%_)) + (let ((_%e130010130154%_ (let () (declare (not safe)) (gx#syntax-e - _%tl130808130926%_)))) - (let ((_%tl130823130976%_ + _%tl129993130111%_)))) + (let ((_%tl130008130161%_ (let () (declare (not safe)) - (##cdr _%e130825130969%_))) - (_%hd130824130973%_ + (##cdr _%e130010130154%_))) + (_%hd130009130158%_ (let () (declare (not safe)) - (##car _%e130825130969%_)))) + (##car _%e130010130154%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl130823130976%_)) - (let ((_%e130828130979%_ + _%tl130008130161%_)) + (let ((_%e130013130164%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl130823130976%_)))) - (let ((_%tl130826130986%_ + (gx#syntax-e _%tl130008130161%_)))) + (let ((_%tl130011130171%_ (let () (declare (not safe)) - (##cdr _%e130828130979%_))) - (_%hd130827130983%_ + (##cdr _%e130013130164%_))) + (_%hd130012130168%_ (let () (declare (not safe)) - (##car _%e130828130979%_)))) + (##car _%e130013130164%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd130827130983%_)) - (let ((_%e130829130989%_ + (gx#stx-datum? _%hd130012130168%_)) + (let ((_%e130014130174%_ (let () (declare (not safe)) - (gx#stx-e _%hd130827130983%_)))) - (if (equal? _%e130829130989%_ 'final:) + (gx#stx-e _%hd130012130168%_)))) + (if (equal? _%e130014130174%_ 'final:) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl130826130986%_)) - (let ((_%__splice134337134338%_ + (gx#stx-pair/null? _%tl130011130171%_)) + (let ((_%__splice133522133523%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl130826130986%_ + _%tl130011130171%_ '0)))) - (let ((_%tl130832130996%_ + (let ((_%tl130017130181%_ (let () (declare (not safe)) (##vector-ref - _%__splice134337134338%_ + _%__splice133522133523%_ '1))) - (_%target130830130993%_ + (_%target130015130178%_ (let () (declare (not safe)) (##vector-ref - _%__splice134337134338%_ + _%__splice133522133523%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl130832130996%_)) - (letrec ((_%loop130833130999%_ - (lambda (_%hd130831131003%_ - _%implementation130837131006%_ - _%method130838131008%_) + _%tl130017130181%_)) + (letrec ((_%loop130018130184%_ + (lambda (_%hd130016130188%_ + _%implementation130022130191%_ + _%method130023130193%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd130831131003%_)) - (let ((_%e130834131011%_ + _%hd130016130188%_)) + (let ((_%e130019130196%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd130831131003%_)))) - (let ((_%lp-tl130836131018%_ + (gx#syntax-e _%hd130016130188%_)))) + (let ((_%lp-tl130021130203%_ (let () (declare (not safe)) - (##cdr _%e130834131011%_))) - (_%lp-hd130835131015%_ + (##cdr _%e130019130196%_))) + (_%lp-hd130020130200%_ (let () (declare (not safe)) - (##car _%e130834131011%_)))) + (##car _%e130019130196%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd130835131015%_)) - (let ((_%e130843131021%_ + (gx#stx-pair? _%lp-hd130020130200%_)) + (let ((_%e130028130206%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd130835131015%_)))) - (let ((_%tl130841131028%_ + (gx#syntax-e _%lp-hd130020130200%_)))) + (let ((_%tl130026130213%_ (let () (declare (not safe)) - (##cdr _%e130843131021%_))) - (_%hd130842131025%_ + (##cdr _%e130028130206%_))) + (_%hd130027130210%_ (let () (declare (not safe)) - (##car _%e130843131021%_)))) + (##car _%e130028130206%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl130841131028%_)) - (let ((_%e130846131031%_ + (gx#stx-pair? _%tl130026130213%_)) + (let ((_%e130031130216%_ (let () (declare (not safe)) (gx#syntax-e - _%tl130841131028%_)))) - (let ((_%tl130844131038%_ + _%tl130026130213%_)))) + (let ((_%tl130029130223%_ (let () (declare (not safe)) - (##cdr _%e130846131031%_))) - (_%hd130845131035%_ + (##cdr _%e130031130216%_))) + (_%hd130030130220%_ (let () (declare (not safe)) - (##car _%e130846131031%_)))) + (##car _%e130031130216%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl130844131038%_)) - (_%loop130833130999%_ - _%lp-tl130836131018%_ - (cons _%hd130845131035%_ - _%implementation130837131006%_) - (cons _%hd130842131025%_ - _%method130838131008%_)) + _%tl130029130223%_)) + (_%loop130018130184%_ + _%lp-tl130021130203%_ + (cons _%hd130030130220%_ + _%implementation130022130191%_) + (cons _%hd130027130210%_ + _%method130023130193%_)) (let () (declare (not safe)) - (_%g130658130852%_))))) + (_%g129843130037%_))))) (let () (declare (not safe)) - (_%g130658130852%_))))) + (_%g129843130037%_))))) (let () (declare (not safe)) - (_%g130658130852%_))))) - (let ((_%method130840131044%_ - (reverse _%method130838131008%_)) - (_%implementation130839131041%_ - (reverse _%implementation130837131006%_))) - (_%__kont134331134332%_ - _%implementation130839131041%_ - _%method130840131044%_ - _%hd130824130973%_ - _%super130822130965%_ - _%hd130812130933%_ - _%arg130807130915%_ - _%hd130797130883%_)))))) + (_%g129843130037%_))))) + (let ((_%method130025130229%_ + (reverse _%method130023130193%_)) + (_%implementation130024130226%_ + (reverse _%implementation130022130191%_))) + (_%__kont133516133517%_ + _%implementation130024130226%_ + _%method130025130229%_ + _%hd130009130158%_ + _%super130007130150%_ + _%hd129997130118%_ + _%arg129992130100%_ + _%hd129982130068%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop130833130999%_ - _%target130830130993%_ + (_%loop130018130184%_ + _%target130015130178%_ '() '())) (let () (declare (not safe)) - (_%g130658130852%_))))) + (_%g129843130037%_))))) (let () (declare (not safe)) - (_%g130658130852%_))) + (_%g129843130037%_))) (let () (declare (not safe)) - (_%g130658130852%_)))) - (let () (declare (not safe)) (_%g130658130852%_))))) - (let () (declare (not safe)) (_%g130658130852%_))))) + (_%g129843130037%_)))) + (let () (declare (not safe)) (_%g129843130037%_))))) + (let () (declare (not safe)) (_%g129843130037%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g130658130852%_)))))))) - (_%loop130817130945%_ - _%target130814130939%_ + (_%g129843130037%_)))))))) + (_%loop130002130130%_ + _%target129999130124%_ '())) (let () (declare (not safe)) - (_%g130658130852%_))))) - (let () (declare (not safe)) (_%g130658130852%_))))) + (_%g129843130037%_))))) + (let () (declare (not safe)) (_%g129843130037%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g130658130852%_))))) + (_%g129843130037%_))))) (let () (declare (not safe)) - (_%g130658130852%_)))))))) - (_%loop130802130895%_ _%target130799130889%_ '())))) - (_%__match134427134428%_ - (lambda (_%e130732131283%_ - _%hd130731131287%_ - _%tl130730131290%_ - _%e130735131293%_ - _%hd130734131297%_ - _%tl130733131300%_ - _%e130738131303%_ - _%hd130737131307%_ - _%tl130736131310%_ - _%__splice134325134326%_ - _%target130739131313%_ - _%tl130741131316%_) - (letrec ((_%loop130742131319%_ - (lambda (_%hd130740131323%_ - _%arg130746131326%_) + (_%g129843130037%_)))))))) + (_%loop129987130080%_ _%target129984130074%_ '())))) + (_%__match133612133613%_ + (lambda (_%e129917130468%_ + _%hd129916130472%_ + _%tl129915130475%_ + _%e129920130478%_ + _%hd129919130482%_ + _%tl129918130485%_ + _%e129923130488%_ + _%hd129922130492%_ + _%tl129921130495%_ + _%__splice133510133511%_ + _%target129924130498%_ + _%tl129926130501%_) + (letrec ((_%loop129927130504%_ + (lambda (_%hd129925130508%_ + _%arg129931130511%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd130740131323%_)) - (let ((_%e130743131329%_ + (gx#stx-pair? _%hd129925130508%_)) + (let ((_%e129928130514%_ (let () (declare (not safe)) (gx#syntax-e - _%hd130740131323%_)))) - (let ((_%lp-tl130745131336%_ + _%hd129925130508%_)))) + (let ((_%lp-tl129930130521%_ (let () (declare (not safe)) - (##cdr _%e130743131329%_))) - (_%lp-hd130744131333%_ + (##cdr _%e129928130514%_))) + (_%lp-hd129929130518%_ (let () (declare (not safe)) - (##car _%e130743131329%_)))) - (_%loop130742131319%_ - _%lp-tl130745131336%_ - (cons _%lp-hd130744131333%_ - _%arg130746131326%_)))) - (let ((_%arg130747131339%_ - (reverse _%arg130746131326%_))) + (##car _%e129928130514%_)))) + (_%loop129927130504%_ + _%lp-tl129930130521%_ + (cons _%lp-hd129929130518%_ + _%arg129931130511%_)))) + (let ((_%arg129932130524%_ + (reverse _%arg129931130511%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl130733131300%_)) - (let ((_%e130750131343%_ + _%tl129918130485%_)) + (let ((_%e129935130528%_ (let () (declare (not safe)) (gx#syntax-e - _%tl130733131300%_)))) - (let ((_%tl130748131350%_ + _%tl129918130485%_)))) + (let ((_%tl129933130535%_ (let () (declare (not safe)) - (##cdr _%e130750131343%_))) - (_%hd130749131347%_ + (##cdr _%e129935130528%_))) + (_%hd129934130532%_ (let () (declare (not safe)) - (##car _%e130750131343%_)))) + (##car _%e129935130528%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd130749131347%_)) - (let ((_%e130753131353%_ + _%hd129934130532%_)) + (let ((_%e129938130538%_ (let () (declare (not safe)) (gx#syntax-e - _%hd130749131347%_)))) - (let ((_%tl130751131360%_ + _%hd129934130532%_)))) + (let ((_%tl129936130545%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e130753131353%_))) - (_%hd130752131357%_ - (let () (declare (not safe)) (##car _%e130753131353%_)))) + (##cdr _%e129938130538%_))) + (_%hd129937130542%_ + (let () (declare (not safe)) (##car _%e129938130538%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl130751131360%_)) - (let ((_%__splice134327134328%_ + (gx#stx-pair/null? _%tl129936130545%_)) + (let ((_%__splice133512133513%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl130751131360%_ '0)))) - (let ((_%tl130756131366%_ + (gx#syntax-split-splice _%tl129936130545%_ '0)))) + (let ((_%tl129941130551%_ (let () (declare (not safe)) - (##vector-ref _%__splice134327134328%_ '1))) - (_%target130754131363%_ + (##vector-ref _%__splice133512133513%_ '1))) + (_%target129939130548%_ (let () (declare (not safe)) - (##vector-ref _%__splice134327134328%_ '0)))) + (##vector-ref _%__splice133512133513%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl130756131366%_)) - (letrec ((_%loop130757131369%_ - (lambda (_%hd130755131373%_ - _%super130761131376%_) + (gx#stx-null? _%tl129941130551%_)) + (letrec ((_%loop129942130554%_ + (lambda (_%hd129940130558%_ + _%super129946130561%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd130755131373%_)) - (let ((_%e130758131379%_ + _%hd129940130558%_)) + (let ((_%e129943130564%_ (let () (declare (not safe)) (gx#syntax-e - _%hd130755131373%_)))) - (let ((_%lp-tl130760131386%_ + _%hd129940130558%_)))) + (let ((_%lp-tl129945130571%_ (let () (declare (not safe)) - (##cdr _%e130758131379%_))) - (_%lp-hd130759131383%_ + (##cdr _%e129943130564%_))) + (_%lp-hd129944130568%_ (let () (declare (not safe)) - (##car _%e130758131379%_)))) - (_%loop130757131369%_ - _%lp-tl130760131386%_ - (cons _%lp-hd130759131383%_ - _%super130761131376%_)))) - (let ((_%super130762131389%_ - (reverse _%super130761131376%_))) + (##car _%e129943130564%_)))) + (_%loop129942130554%_ + _%lp-tl129945130571%_ + (cons _%lp-hd129944130568%_ + _%super129946130561%_)))) + (let ((_%super129947130574%_ + (reverse _%super129946130561%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl130748131350%_)) - (let ((_%e130765131393%_ + _%tl129933130535%_)) + (let ((_%e129950130578%_ (let () (declare (not safe)) (gx#syntax-e - _%tl130748131350%_)))) - (let ((_%tl130763131400%_ + _%tl129933130535%_)))) + (let ((_%tl129948130585%_ (let () (declare (not safe)) - (##cdr _%e130765131393%_))) - (_%hd130764131397%_ + (##cdr _%e129950130578%_))) + (_%hd129949130582%_ (let () (declare (not safe)) - (##car _%e130765131393%_)))) + (##car _%e129950130578%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl130763131400%_)) - (let ((_%__splice134329134330%_ + _%tl129948130585%_)) + (let ((_%__splice133514133515%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl130763131400%_ '0)))) - (let ((_%tl130768131406%_ + (gx#syntax-split-splice _%tl129948130585%_ '0)))) + (let ((_%tl129953130591%_ (let () (declare (not safe)) - (##vector-ref _%__splice134329134330%_ '1))) - (_%target130766131403%_ + (##vector-ref _%__splice133514133515%_ '1))) + (_%target129951130588%_ (let () (declare (not safe)) - (##vector-ref _%__splice134329134330%_ '0)))) + (##vector-ref _%__splice133514133515%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl130768131406%_)) - (letrec ((_%loop130769131409%_ - (lambda (_%hd130767131413%_ - _%implementation130773131416%_ - _%method130774131418%_) + (gx#stx-null? _%tl129953130591%_)) + (letrec ((_%loop129954130594%_ + (lambda (_%hd129952130598%_ + _%implementation129958130601%_ + _%method129959130603%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd130767131413%_)) - (let ((_%e130770131421%_ + (gx#stx-pair? _%hd129952130598%_)) + (let ((_%e129955130606%_ (let () (declare (not safe)) (gx#syntax-e - _%hd130767131413%_)))) - (let ((_%lp-tl130772131428%_ + _%hd129952130598%_)))) + (let ((_%lp-tl129957130613%_ (let () (declare (not safe)) - (##cdr _%e130770131421%_))) - (_%lp-hd130771131425%_ + (##cdr _%e129955130606%_))) + (_%lp-hd129956130610%_ (let () (declare (not safe)) - (##car _%e130770131421%_)))) + (##car _%e129955130606%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd130771131425%_)) - (let ((_%e130779131431%_ + _%lp-hd129956130610%_)) + (let ((_%e129964130616%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd130771131425%_)))) - (let ((_%tl130777131438%_ + _%lp-hd129956130610%_)))) + (let ((_%tl129962130623%_ (let () (declare (not safe)) - (##cdr _%e130779131431%_))) - (_%hd130778131435%_ + (##cdr _%e129964130616%_))) + (_%hd129963130620%_ (let () (declare (not safe)) - (##car _%e130779131431%_)))) + (##car _%e129964130616%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl130777131438%_)) - (let ((_%e130782131441%_ + _%tl129962130623%_)) + (let ((_%e129967130626%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl130777131438%_)))) - (let ((_%tl130780131448%_ + (gx#syntax-e _%tl129962130623%_)))) + (let ((_%tl129965130633%_ (let () (declare (not safe)) - (##cdr _%e130782131441%_))) - (_%hd130781131445%_ + (##cdr _%e129967130626%_))) + (_%hd129966130630%_ (let () (declare (not safe)) - (##car _%e130782131441%_)))) + (##car _%e129967130626%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl130780131448%_)) - (_%loop130769131409%_ - _%lp-tl130772131428%_ - (cons _%hd130781131445%_ - _%implementation130773131416%_) - (cons _%hd130778131435%_ _%method130774131418%_)) - (_%__match134453134454%_ - _%e130732131283%_ - _%hd130731131287%_ - _%tl130730131290%_ - _%e130735131293%_ - _%hd130734131297%_ - _%tl130733131300%_ - _%e130738131303%_ - _%hd130737131307%_ - _%tl130736131310%_ - _%__splice134325134326%_ - _%target130739131313%_ - _%tl130741131316%_)))) - (_%__match134453134454%_ - _%e130732131283%_ - _%hd130731131287%_ - _%tl130730131290%_ - _%e130735131293%_ - _%hd130734131297%_ - _%tl130733131300%_ - _%e130738131303%_ - _%hd130737131307%_ - _%tl130736131310%_ - _%__splice134325134326%_ - _%target130739131313%_ - _%tl130741131316%_)))) + (gx#stx-null? _%tl129965130633%_)) + (_%loop129954130594%_ + _%lp-tl129957130613%_ + (cons _%hd129966130630%_ + _%implementation129958130601%_) + (cons _%hd129963130620%_ _%method129959130603%_)) + (_%__match133638133639%_ + _%e129917130468%_ + _%hd129916130472%_ + _%tl129915130475%_ + _%e129920130478%_ + _%hd129919130482%_ + _%tl129918130485%_ + _%e129923130488%_ + _%hd129922130492%_ + _%tl129921130495%_ + _%__splice133510133511%_ + _%target129924130498%_ + _%tl129926130501%_)))) + (_%__match133638133639%_ + _%e129917130468%_ + _%hd129916130472%_ + _%tl129915130475%_ + _%e129920130478%_ + _%hd129919130482%_ + _%tl129918130485%_ + _%e129923130488%_ + _%hd129922130492%_ + _%tl129921130495%_ + _%__splice133510133511%_ + _%target129924130498%_ + _%tl129926130501%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match134453134454%_ - _%e130732131283%_ - _%hd130731131287%_ - _%tl130730131290%_ - _%e130735131293%_ - _%hd130734131297%_ - _%tl130733131300%_ - _%e130738131303%_ - _%hd130737131307%_ - _%tl130736131310%_ - _%__splice134325134326%_ - _%target130739131313%_ - _%tl130741131316%_)))) - (let ((_%method130776131454%_ - (reverse _%method130774131418%_)) - (_%implementation130775131451%_ - (reverse _%implementation130773131416%_))) - (_%__kont134323134324%_ - _%implementation130775131451%_ - _%method130776131454%_ - _%hd130764131397%_ - _%super130762131389%_ - _%hd130752131357%_ - _%arg130747131339%_ - _%hd130737131307%_)))))) - (_%loop130769131409%_ - _%target130766131403%_ + (_%__match133638133639%_ + _%e129917130468%_ + _%hd129916130472%_ + _%tl129915130475%_ + _%e129920130478%_ + _%hd129919130482%_ + _%tl129918130485%_ + _%e129923130488%_ + _%hd129922130492%_ + _%tl129921130495%_ + _%__splice133510133511%_ + _%target129924130498%_ + _%tl129926130501%_)))) + (let ((_%method129961130639%_ + (reverse _%method129959130603%_)) + (_%implementation129960130636%_ + (reverse _%implementation129958130601%_))) + (_%__kont133508133509%_ + _%implementation129960130636%_ + _%method129961130639%_ + _%hd129949130582%_ + _%super129947130574%_ + _%hd129937130542%_ + _%arg129932130524%_ + _%hd129922130492%_)))))) + (_%loop129954130594%_ + _%target129951130588%_ '() '())) - (_%__match134453134454%_ - _%e130732131283%_ - _%hd130731131287%_ - _%tl130730131290%_ - _%e130735131293%_ - _%hd130734131297%_ - _%tl130733131300%_ - _%e130738131303%_ - _%hd130737131307%_ - _%tl130736131310%_ - _%__splice134325134326%_ - _%target130739131313%_ - _%tl130741131316%_)))) - (_%__match134453134454%_ - _%e130732131283%_ - _%hd130731131287%_ - _%tl130730131290%_ - _%e130735131293%_ - _%hd130734131297%_ - _%tl130733131300%_ - _%e130738131303%_ - _%hd130737131307%_ - _%tl130736131310%_ - _%__splice134325134326%_ - _%target130739131313%_ - _%tl130741131316%_)))) + (_%__match133638133639%_ + _%e129917130468%_ + _%hd129916130472%_ + _%tl129915130475%_ + _%e129920130478%_ + _%hd129919130482%_ + _%tl129918130485%_ + _%e129923130488%_ + _%hd129922130492%_ + _%tl129921130495%_ + _%__splice133510133511%_ + _%target129924130498%_ + _%tl129926130501%_)))) + (_%__match133638133639%_ + _%e129917130468%_ + _%hd129916130472%_ + _%tl129915130475%_ + _%e129920130478%_ + _%hd129919130482%_ + _%tl129918130485%_ + _%e129923130488%_ + _%hd129922130492%_ + _%tl129921130495%_ + _%__splice133510133511%_ + _%target129924130498%_ + _%tl129926130501%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match134453134454%_ - _%e130732131283%_ - _%hd130731131287%_ - _%tl130730131290%_ - _%e130735131293%_ - _%hd130734131297%_ - _%tl130733131300%_ - _%e130738131303%_ - _%hd130737131307%_ - _%tl130736131310%_ - _%__splice134325134326%_ - _%target130739131313%_ - _%tl130741131316%_))))))) - (_%loop130757131369%_ - _%target130754131363%_ + (_%__match133638133639%_ + _%e129917130468%_ + _%hd129916130472%_ + _%tl129915130475%_ + _%e129920130478%_ + _%hd129919130482%_ + _%tl129918130485%_ + _%e129923130488%_ + _%hd129922130492%_ + _%tl129921130495%_ + _%__splice133510133511%_ + _%target129924130498%_ + _%tl129926130501%_))))))) + (_%loop129942130554%_ + _%target129939130548%_ '())) - (_%__match134453134454%_ - _%e130732131283%_ - _%hd130731131287%_ - _%tl130730131290%_ - _%e130735131293%_ - _%hd130734131297%_ - _%tl130733131300%_ - _%e130738131303%_ - _%hd130737131307%_ - _%tl130736131310%_ - _%__splice134325134326%_ - _%target130739131313%_ - _%tl130741131316%_)))) - (_%__match134453134454%_ - _%e130732131283%_ - _%hd130731131287%_ - _%tl130730131290%_ - _%e130735131293%_ - _%hd130734131297%_ - _%tl130733131300%_ - _%e130738131303%_ - _%hd130737131307%_ - _%tl130736131310%_ - _%__splice134325134326%_ - _%target130739131313%_ - _%tl130741131316%_)))) + (_%__match133638133639%_ + _%e129917130468%_ + _%hd129916130472%_ + _%tl129915130475%_ + _%e129920130478%_ + _%hd129919130482%_ + _%tl129918130485%_ + _%e129923130488%_ + _%hd129922130492%_ + _%tl129921130495%_ + _%__splice133510133511%_ + _%target129924130498%_ + _%tl129926130501%_)))) + (_%__match133638133639%_ + _%e129917130468%_ + _%hd129916130472%_ + _%tl129915130475%_ + _%e129920130478%_ + _%hd129919130482%_ + _%tl129918130485%_ + _%e129923130488%_ + _%hd129922130492%_ + _%tl129921130495%_ + _%__splice133510133511%_ + _%target129924130498%_ + _%tl129926130501%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match134453134454%_ - _%e130732131283%_ - _%hd130731131287%_ - _%tl130730131290%_ - _%e130735131293%_ - _%hd130734131297%_ - _%tl130733131300%_ - _%e130738131303%_ - _%hd130737131307%_ - _%tl130736131310%_ - _%__splice134325134326%_ - _%target130739131313%_ - _%tl130741131316%_)))) - (_%__match134453134454%_ - _%e130732131283%_ - _%hd130731131287%_ - _%tl130730131290%_ - _%e130735131293%_ - _%hd130734131297%_ - _%tl130733131300%_ - _%e130738131303%_ - _%hd130737131307%_ - _%tl130736131310%_ - _%__splice134325134326%_ - _%target130739131313%_ - _%tl130741131316%_))))))) - (_%loop130742131319%_ _%target130739131313%_ '())))) - (_%__match134401134402%_ - (lambda (_%e130683131688%_ - _%hd130682131692%_ - _%tl130681131695%_ - _%e130686131698%_ - _%hd130685131702%_ - _%tl130684131705%_ - _%e130687131708%_ - _%e130690131712%_ - _%hd130689131716%_ - _%tl130688131719%_ - _%e130693131722%_ - _%hd130692131726%_ - _%tl130691131729%_ - _%__splice134319134320%_ - _%target130694131732%_ - _%tl130696131735%_) - (letrec ((_%loop130697131738%_ - (lambda (_%hd130695131742%_ - _%super130701131745%_) + (_%__match133638133639%_ + _%e129917130468%_ + _%hd129916130472%_ + _%tl129915130475%_ + _%e129920130478%_ + _%hd129919130482%_ + _%tl129918130485%_ + _%e129923130488%_ + _%hd129922130492%_ + _%tl129921130495%_ + _%__splice133510133511%_ + _%target129924130498%_ + _%tl129926130501%_)))) + (_%__match133638133639%_ + _%e129917130468%_ + _%hd129916130472%_ + _%tl129915130475%_ + _%e129920130478%_ + _%hd129919130482%_ + _%tl129918130485%_ + _%e129923130488%_ + _%hd129922130492%_ + _%tl129921130495%_ + _%__splice133510133511%_ + _%target129924130498%_ + _%tl129926130501%_))))))) + (_%loop129927130504%_ _%target129924130498%_ '())))) + (_%__match133586133587%_ + (lambda (_%e129868130873%_ + _%hd129867130877%_ + _%tl129866130880%_ + _%e129871130883%_ + _%hd129870130887%_ + _%tl129869130890%_ + _%e129872130893%_ + _%e129875130897%_ + _%hd129874130901%_ + _%tl129873130904%_ + _%e129878130907%_ + _%hd129877130911%_ + _%tl129876130914%_ + _%__splice133504133505%_ + _%target129879130917%_ + _%tl129881130920%_) + (letrec ((_%loop129882130923%_ + (lambda (_%hd129880130927%_ + _%super129886130930%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd130695131742%_)) - (let ((_%e130698131748%_ + (gx#stx-pair? _%hd129880130927%_)) + (let ((_%e129883130933%_ (let () (declare (not safe)) (gx#syntax-e - _%hd130695131742%_)))) - (let ((_%lp-tl130700131755%_ + _%hd129880130927%_)))) + (let ((_%lp-tl129885130940%_ (let () (declare (not safe)) - (##cdr _%e130698131748%_))) - (_%lp-hd130699131752%_ + (##cdr _%e129883130933%_))) + (_%lp-hd129884130937%_ (let () (declare (not safe)) - (##car _%e130698131748%_)))) - (_%loop130697131738%_ - _%lp-tl130700131755%_ - (cons _%lp-hd130699131752%_ - _%super130701131745%_)))) - (let ((_%super130702131758%_ - (reverse _%super130701131745%_))) + (##car _%e129883130933%_)))) + (_%loop129882130923%_ + _%lp-tl129885130940%_ + (cons _%lp-hd129884130937%_ + _%super129886130930%_)))) + (let ((_%super129887130943%_ + (reverse _%super129886130930%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl130688131719%_)) - (let ((_%e130705131762%_ + _%tl129873130904%_)) + (let ((_%e129890130947%_ (let () (declare (not safe)) (gx#syntax-e - _%tl130688131719%_)))) - (let ((_%tl130703131769%_ + _%tl129873130904%_)))) + (let ((_%tl129888130954%_ (let () (declare (not safe)) - (##cdr _%e130705131762%_))) - (_%hd130704131766%_ + (##cdr _%e129890130947%_))) + (_%hd129889130951%_ (let () (declare (not safe)) - (##car _%e130705131762%_)))) + (##car _%e129890130947%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl130703131769%_)) - (let ((_%__splice134321134322%_ + _%tl129888130954%_)) + (let ((_%__splice133506133507%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl130703131769%_ + _%tl129888130954%_ '0)))) - (let ((_%tl130708131775%_ + (let ((_%tl129893130960%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice134321134322%_ '1))) - (_%target130706131772%_ + (##vector-ref _%__splice133506133507%_ '1))) + (_%target129891130957%_ (let () (declare (not safe)) - (##vector-ref _%__splice134321134322%_ '0)))) + (##vector-ref _%__splice133506133507%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl130708131775%_)) - (letrec ((_%loop130709131778%_ - (lambda (_%hd130707131782%_ - _%implementation130713131785%_ - _%method130714131787%_) + (gx#stx-null? _%tl129893130960%_)) + (letrec ((_%loop129894130963%_ + (lambda (_%hd129892130967%_ + _%implementation129898130970%_ + _%method129899130972%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd130707131782%_)) - (let ((_%e130710131790%_ + (gx#stx-pair? _%hd129892130967%_)) + (let ((_%e129895130975%_ (let () (declare (not safe)) (gx#syntax-e - _%hd130707131782%_)))) - (let ((_%lp-tl130712131797%_ + _%hd129892130967%_)))) + (let ((_%lp-tl129897130982%_ (let () (declare (not safe)) - (##cdr _%e130710131790%_))) - (_%lp-hd130711131794%_ + (##cdr _%e129895130975%_))) + (_%lp-hd129896130979%_ (let () (declare (not safe)) - (##car _%e130710131790%_)))) + (##car _%e129895130975%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd130711131794%_)) - (let ((_%e130719131800%_ + _%lp-hd129896130979%_)) + (let ((_%e129904130985%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd130711131794%_)))) - (let ((_%tl130717131807%_ + _%lp-hd129896130979%_)))) + (let ((_%tl129902130992%_ (let () (declare (not safe)) - (##cdr _%e130719131800%_))) - (_%hd130718131804%_ + (##cdr _%e129904130985%_))) + (_%hd129903130989%_ (let () (declare (not safe)) - (##car _%e130719131800%_)))) + (##car _%e129904130985%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl130717131807%_)) - (let ((_%e130722131810%_ + _%tl129902130992%_)) + (let ((_%e129907130995%_ (let () (declare (not safe)) (gx#syntax-e - _%tl130717131807%_)))) - (let ((_%tl130720131817%_ + _%tl129902130992%_)))) + (let ((_%tl129905131002%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e130722131810%_))) - (_%hd130721131814%_ - (let () (declare (not safe)) (##car _%e130722131810%_)))) + (##cdr _%e129907130995%_))) + (_%hd129906130999%_ + (let () (declare (not safe)) (##car _%e129907130995%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl130720131817%_)) - (_%loop130709131778%_ - _%lp-tl130712131797%_ - (cons _%hd130721131814%_ _%implementation130713131785%_) - (cons _%hd130718131804%_ _%method130714131787%_)) - (let () (declare (not safe)) (_%g130658130852%_))))) + (gx#stx-null? _%tl129905131002%_)) + (_%loop129894130963%_ + _%lp-tl129897130982%_ + (cons _%hd129906130999%_ _%implementation129898130970%_) + (cons _%hd129903130989%_ _%method129899130972%_)) + (let () (declare (not safe)) (_%g129843130037%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g130658130852%_))))) + (_%g129843130037%_))))) (let () (declare (not safe)) - (_%g130658130852%_))))) - (let ((_%method130716131823%_ - (reverse _%method130714131787%_)) - (_%implementation130715131820%_ - (reverse _%implementation130713131785%_))) - (_%__kont134317134318%_ - _%implementation130715131820%_ - _%method130716131823%_ - _%hd130704131766%_ - _%super130702131758%_ - _%hd130692131726%_)))))) - (_%loop130709131778%_ _%target130706131772%_ '() '())) - (let () (declare (not safe)) (_%g130658130852%_))))) + (_%g129843130037%_))))) + (let ((_%method129901131008%_ + (reverse _%method129899130972%_)) + (_%implementation129900131005%_ + (reverse _%implementation129898130970%_))) + (_%__kont133502133503%_ + _%implementation129900131005%_ + _%method129901131008%_ + _%hd129889130951%_ + _%super129887130943%_ + _%hd129877130911%_)))))) + (_%loop129894130963%_ _%target129891130957%_ '() '())) + (let () (declare (not safe)) (_%g129843130037%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g130658130852%_))))) + (_%g129843130037%_))))) (let () (declare (not safe)) - (_%g130658130852%_)))))))) - (_%loop130697131738%_ _%target130694131732%_ '())))) - (_%__match134363134364%_ - (lambda (_%e130666132032%_ - _%hd130665132036%_ - _%tl130664132039%_ - _%e130669132042%_ - _%hd130668132046%_ - _%tl130667132049%_ - _%e130672132052%_ - _%hd130671132056%_ - _%tl130670132059%_ - _%e130675132062%_ - _%hd130674132066%_ - _%tl130673132069%_) - (let ((_%L132072%_ _%tl130673132069%_) - (_%L132074%_ _%hd130674132066%_) - (_%L132075%_ _%hd130671132056%_) - (_%L132076%_ _%hd130668132046%_)) + (_%g129843130037%_)))))))) + (_%loop129882130923%_ _%target129879130917%_ '())))) + (_%__match133548133549%_ + (lambda (_%e129851131217%_ + _%hd129850131221%_ + _%tl129849131224%_ + _%e129854131227%_ + _%hd129853131231%_ + _%tl129852131234%_ + _%e129857131237%_ + _%hd129856131241%_ + _%tl129855131244%_ + _%e129860131247%_ + _%hd129859131251%_ + _%tl129858131254%_) + (let ((_%L131257%_ _%tl129858131254%_) + (_%L131259%_ _%hd129859131251%_) + (_%L131260%_ _%hd129856131241%_) + (_%L131261%_ _%hd129853131231%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L132075%_)) - (_%__kont134315134316%_ - _%L132072%_ - _%L132074%_ - _%L132075%_ - _%L132076%_) + (gx#identifier? _%L131260%_)) + (_%__kont133500133501%_ + _%L131257%_ + _%L131259%_ + _%L131260%_ + _%L131261%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd130668132046%_)) - (let ((_%e130687131708%_ + (gx#stx-datum? _%hd129853131231%_)) + (let ((_%e129872130893%_ (let () (declare (not safe)) - (gx#stx-e _%hd130668132046%_)))) - (if (equal? _%e130687131708%_ '#f) + (gx#stx-e _%hd129853131231%_)))) + (if (equal? _%e129872130893%_ '#f) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd130671132056%_)) - (let ((_%e130693131722%_ + (gx#stx-pair? _%hd129856131241%_)) + (let ((_%e129878130907%_ (let () (declare (not safe)) (gx#syntax-e - _%hd130671132056%_)))) - (let ((_%tl130691131729%_ + _%hd129856131241%_)))) + (let ((_%tl129876130914%_ (let () (declare (not safe)) - (##cdr _%e130693131722%_))) - (_%hd130692131726%_ + (##cdr _%e129878130907%_))) + (_%hd129877130911%_ (let () (declare (not safe)) - (##car _%e130693131722%_)))) + (##car _%e129878130907%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl130691131729%_)) - (let ((_%__splice134319134320%_ + _%tl129876130914%_)) + (let ((_%__splice133504133505%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl130691131729%_ + _%tl129876130914%_ '0)))) - (let ((_%tl130696131735%_ + (let ((_%tl129881130920%_ (let () (declare (not safe)) (##vector-ref - _%__splice134319134320%_ + _%__splice133504133505%_ '1))) - (_%target130694131732%_ + (_%target129879130917%_ (let () (declare (not safe)) (##vector-ref - _%__splice134319134320%_ + _%__splice133504133505%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl130696131735%_)) - (_%__match134401134402%_ - _%e130666132032%_ - _%hd130665132036%_ - _%tl130664132039%_ - _%e130669132042%_ - _%hd130668132046%_ - _%tl130667132049%_ - _%e130687131708%_ - _%e130672132052%_ - _%hd130671132056%_ - _%tl130670132059%_ - _%e130693131722%_ - _%hd130692131726%_ - _%tl130691131729%_ - _%__splice134319134320%_ - _%target130694131732%_ - _%tl130696131735%_) + _%tl129881130920%_)) + (_%__match133586133587%_ + _%e129851131217%_ + _%hd129850131221%_ + _%tl129849131224%_ + _%e129854131227%_ + _%hd129853131231%_ + _%tl129852131234%_ + _%e129872130893%_ + _%e129857131237%_ + _%hd129856131241%_ + _%tl129855131244%_ + _%e129878130907%_ + _%hd129877130911%_ + _%tl129876130914%_ + _%__splice133504133505%_ + _%target129879130917%_ + _%tl129881130920%_) (let () (declare (not safe)) - (_%g130658130852%_))))) + (_%g129843130037%_))))) (let () (declare (not safe)) - (_%g130658130852%_))))) + (_%g129843130037%_))))) (let () (declare (not safe)) - (_%g130658130852%_))) + (_%g129843130037%_))) (let () (declare (not safe)) - (_%g130658130852%_)))) + (_%g129843130037%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd130668132046%_)) - (let ((_%e130738131303%_ + (gx#stx-pair? _%hd129853131231%_)) + (let ((_%e129923130488%_ (let () (declare (not safe)) (gx#syntax-e - _%hd130668132046%_)))) - (let ((_%tl130736131310%_ + _%hd129853131231%_)))) + (let ((_%tl129921130495%_ (let () (declare (not safe)) - (##cdr _%e130738131303%_))) - (_%hd130737131307%_ + (##cdr _%e129923130488%_))) + (_%hd129922130492%_ (let () (declare (not safe)) - (##car _%e130738131303%_)))) + (##car _%e129923130488%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl130736131310%_)) - (let ((_%__splice134325134326%_ + _%tl129921130495%_)) + (let ((_%__splice133510133511%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl130736131310%_ + _%tl129921130495%_ '0)))) - (let ((_%tl130741131316%_ + (let ((_%tl129926130501%_ (let () (declare (not safe)) (##vector-ref - _%__splice134325134326%_ + _%__splice133510133511%_ '1))) - (_%target130739131313%_ + (_%target129924130498%_ (let () (declare (not safe)) (##vector-ref - _%__splice134325134326%_ + _%__splice133510133511%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl130741131316%_)) - (_%__match134427134428%_ - _%e130666132032%_ - _%hd130665132036%_ - _%tl130664132039%_ - _%e130669132042%_ - _%hd130668132046%_ - _%tl130667132049%_ - _%e130738131303%_ - _%hd130737131307%_ - _%tl130736131310%_ - _%__splice134325134326%_ - _%target130739131313%_ - _%tl130741131316%_) + _%tl129926130501%_)) + (_%__match133612133613%_ + _%e129851131217%_ + _%hd129850131221%_ + _%tl129849131224%_ + _%e129854131227%_ + _%hd129853131231%_ + _%tl129852131234%_ + _%e129923130488%_ + _%hd129922130492%_ + _%tl129921130495%_ + _%__splice133510133511%_ + _%target129924130498%_ + _%tl129926130501%_) (let () (declare (not safe)) - (_%g130658130852%_))))) + (_%g129843130037%_))))) (let () (declare (not safe)) - (_%g130658130852%_))))) + (_%g129843130037%_))))) (let () (declare (not safe)) - (_%g130658130852%_))))))))) + (_%g129843130037%_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx134312134313%_)) - (let ((_%e130666132032%_ + (gx#stx-pair? _%__stx133497133498%_)) + (let ((_%e129851131217%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx134312134313%_)))) - (let ((_%tl130664132039%_ + (gx#syntax-e _%__stx133497133498%_)))) + (let ((_%tl129849131224%_ (let () (declare (not safe)) - (##cdr _%e130666132032%_))) - (_%hd130665132036%_ + (##cdr _%e129851131217%_))) + (_%hd129850131221%_ (let () (declare (not safe)) - (##car _%e130666132032%_)))) + (##car _%e129851131217%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl130664132039%_)) - (let ((_%e130669132042%_ + (gx#stx-pair? _%tl129849131224%_)) + (let ((_%e129854131227%_ (let () (declare (not safe)) - (gx#syntax-e _%tl130664132039%_)))) - (let ((_%tl130667132049%_ + (gx#syntax-e _%tl129849131224%_)))) + (let ((_%tl129852131234%_ (let () (declare (not safe)) - (##cdr _%e130669132042%_))) - (_%hd130668132046%_ + (##cdr _%e129854131227%_))) + (_%hd129853131231%_ (let () (declare (not safe)) - (##car _%e130669132042%_)))) + (##car _%e129854131227%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl130667132049%_)) - (let ((_%e130672132052%_ + (gx#stx-pair? _%tl129852131234%_)) + (let ((_%e129857131237%_ (let () (declare (not safe)) - (gx#syntax-e _%tl130667132049%_)))) - (let ((_%tl130670132059%_ + (gx#syntax-e _%tl129852131234%_)))) + (let ((_%tl129855131244%_ (let () (declare (not safe)) - (##cdr _%e130672132052%_))) - (_%hd130671132056%_ + (##cdr _%e129857131237%_))) + (_%hd129856131241%_ (let () (declare (not safe)) - (##car _%e130672132052%_)))) + (##car _%e129857131237%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl130670132059%_)) - (let ((_%e130675132062%_ + (gx#stx-pair? _%tl129855131244%_)) + (let ((_%e129860131247%_ (let () (declare (not safe)) (gx#syntax-e - _%tl130670132059%_)))) - (let ((_%tl130673132069%_ + _%tl129855131244%_)))) + (let ((_%tl129858131254%_ (let () (declare (not safe)) - (##cdr _%e130675132062%_))) - (_%hd130674132066%_ + (##cdr _%e129860131247%_))) + (_%hd129859131251%_ (let () (declare (not safe)) - (##car _%e130675132062%_)))) - (_%__match134363134364%_ - _%e130666132032%_ - _%hd130665132036%_ - _%tl130664132039%_ - _%e130669132042%_ - _%hd130668132046%_ - _%tl130667132049%_ - _%e130672132052%_ - _%hd130671132056%_ - _%tl130670132059%_ - _%e130675132062%_ - _%hd130674132066%_ - _%tl130673132069%_))) + (##car _%e129860131247%_)))) + (_%__match133548133549%_ + _%e129851131217%_ + _%hd129850131221%_ + _%tl129849131224%_ + _%e129854131227%_ + _%hd129853131231%_ + _%tl129852131234%_ + _%e129857131237%_ + _%hd129856131241%_ + _%tl129855131244%_ + _%e129860131247%_ + _%hd129859131251%_ + _%tl129858131254%_))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd130668132046%_)) - (let ((_%e130687131708%_ + _%hd129853131231%_)) + (let ((_%e129872130893%_ (let () (declare (not safe)) (gx#stx-e - _%hd130668132046%_)))) - (if (equal? _%e130687131708%_ + _%hd129853131231%_)))) + (if (equal? _%e129872130893%_ '#f) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd130671132056%_)) - (let ((_%e130693131722%_ + _%hd129856131241%_)) + (let ((_%e129878130907%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd130671132056%_)))) - (let ((_%tl130691131729%_ + (gx#syntax-e _%hd129856131241%_)))) + (let ((_%tl129876130914%_ (let () (declare (not safe)) - (##cdr _%e130693131722%_))) - (_%hd130692131726%_ + (##cdr _%e129878130907%_))) + (_%hd129877130911%_ (let () (declare (not safe)) - (##car _%e130693131722%_)))) + (##car _%e129878130907%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl130691131729%_)) - (let ((_%__splice134319134320%_ + (gx#stx-pair/null? _%tl129876130914%_)) + (let ((_%__splice133504133505%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl130691131729%_ + _%tl129876130914%_ '0)))) - (let ((_%tl130696131735%_ + (let ((_%tl129881130920%_ (let () (declare (not safe)) - (##vector-ref _%__splice134319134320%_ '1))) - (_%target130694131732%_ + (##vector-ref _%__splice133504133505%_ '1))) + (_%target129879130917%_ (let () (declare (not safe)) (##vector-ref - _%__splice134319134320%_ + _%__splice133504133505%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl130696131735%_)) - (_%__match134401134402%_ - _%e130666132032%_ - _%hd130665132036%_ - _%tl130664132039%_ - _%e130669132042%_ - _%hd130668132046%_ - _%tl130667132049%_ - _%e130687131708%_ - _%e130672132052%_ - _%hd130671132056%_ - _%tl130670132059%_ - _%e130693131722%_ - _%hd130692131726%_ - _%tl130691131729%_ - _%__splice134319134320%_ - _%target130694131732%_ - _%tl130696131735%_) + (gx#stx-null? _%tl129881130920%_)) + (_%__match133586133587%_ + _%e129851131217%_ + _%hd129850131221%_ + _%tl129849131224%_ + _%e129854131227%_ + _%hd129853131231%_ + _%tl129852131234%_ + _%e129872130893%_ + _%e129857131237%_ + _%hd129856131241%_ + _%tl129855131244%_ + _%e129878130907%_ + _%hd129877130911%_ + _%tl129876130914%_ + _%__splice133504133505%_ + _%target129879130917%_ + _%tl129881130920%_) (let () (declare (not safe)) - (_%g130658130852%_))))) - (let () (declare (not safe)) (_%g130658130852%_))))) - (let () (declare (not safe)) (_%g130658130852%_))) + (_%g129843130037%_))))) + (let () (declare (not safe)) (_%g129843130037%_))))) + (let () (declare (not safe)) (_%g129843130037%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g130658130852%_)))) + (_%g129843130037%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd130668132046%_)) - (let ((_%e130738131303%_ + _%hd129853131231%_)) + (let ((_%e129923130488%_ (let () (declare (not safe)) (gx#syntax-e - _%hd130668132046%_)))) - (let ((_%tl130736131310%_ + _%hd129853131231%_)))) + (let ((_%tl129921130495%_ (let () (declare (not safe)) - (##cdr _%e130738131303%_))) - (_%hd130737131307%_ + (##cdr _%e129923130488%_))) + (_%hd129922130492%_ (let () (declare (not safe)) - (##car _%e130738131303%_)))) + (##car _%e129923130488%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl130736131310%_)) - (let ((_%__splice134325134326%_ + _%tl129921130495%_)) + (let ((_%__splice133510133511%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl130736131310%_ '0)))) - (let ((_%tl130741131316%_ + (gx#syntax-split-splice _%tl129921130495%_ '0)))) + (let ((_%tl129926130501%_ (let () (declare (not safe)) - (##vector-ref _%__splice134325134326%_ '1))) - (_%target130739131313%_ + (##vector-ref _%__splice133510133511%_ '1))) + (_%target129924130498%_ (let () (declare (not safe)) - (##vector-ref _%__splice134325134326%_ '0)))) + (##vector-ref _%__splice133510133511%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl130741131316%_)) - (_%__match134427134428%_ - _%e130666132032%_ - _%hd130665132036%_ - _%tl130664132039%_ - _%e130669132042%_ - _%hd130668132046%_ - _%tl130667132049%_ - _%e130738131303%_ - _%hd130737131307%_ - _%tl130736131310%_ - _%__splice134325134326%_ - _%target130739131313%_ - _%tl130741131316%_) - (let () (declare (not safe)) (_%g130658130852%_))))) - (let () (declare (not safe)) (_%g130658130852%_))))) + (gx#stx-null? _%tl129926130501%_)) + (_%__match133612133613%_ + _%e129851131217%_ + _%hd129850131221%_ + _%tl129849131224%_ + _%e129854131227%_ + _%hd129853131231%_ + _%tl129852131234%_ + _%e129923130488%_ + _%hd129922130492%_ + _%tl129921130495%_ + _%__splice133510133511%_ + _%target129924130498%_ + _%tl129926130501%_) + (let () (declare (not safe)) (_%g129843130037%_))))) + (let () (declare (not safe)) (_%g129843130037%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g130658130852%_))))))) + (_%g129843130037%_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd130668132046%_)) - (let ((_%e130687131708%_ + (gx#stx-datum? _%hd129853131231%_)) + (let ((_%e129872130893%_ (let () (declare (not safe)) - (gx#stx-e _%hd130668132046%_)))) + (gx#stx-e _%hd129853131231%_)))) (declare (not safe)) - (_%g130658130852%_)) + (_%g129843130037%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd130668132046%_)) - (let ((_%e130738131303%_ + (gx#stx-pair? _%hd129853131231%_)) + (let ((_%e129923130488%_ (let () (declare (not safe)) (gx#syntax-e - _%hd130668132046%_)))) - (let ((_%tl130736131310%_ + _%hd129853131231%_)))) + (let ((_%tl129921130495%_ (let () (declare (not safe)) - (##cdr _%e130738131303%_))) - (_%hd130737131307%_ + (##cdr _%e129923130488%_))) + (_%hd129922130492%_ (let () (declare (not safe)) - (##car _%e130738131303%_)))) + (##car _%e129923130488%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl130736131310%_)) - (let ((_%__splice134325134326%_ + _%tl129921130495%_)) + (let ((_%__splice133510133511%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl130736131310%_ + _%tl129921130495%_ '0)))) - (let ((_%tl130741131316%_ + (let ((_%tl129926130501%_ (let () (declare (not safe)) (##vector-ref - _%__splice134325134326%_ + _%__splice133510133511%_ '1))) - (_%target130739131313%_ + (_%target129924130498%_ (let () (declare (not safe)) (##vector-ref - _%__splice134325134326%_ + _%__splice133510133511%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl130741131316%_)) - (_%__match134427134428%_ - _%e130666132032%_ - _%hd130665132036%_ - _%tl130664132039%_ - _%e130669132042%_ - _%hd130668132046%_ - _%tl130667132049%_ - _%e130738131303%_ - _%hd130737131307%_ - _%tl130736131310%_ - _%__splice134325134326%_ - _%target130739131313%_ - _%tl130741131316%_) + _%tl129926130501%_)) + (_%__match133612133613%_ + _%e129851131217%_ + _%hd129850131221%_ + _%tl129849131224%_ + _%e129854131227%_ + _%hd129853131231%_ + _%tl129852131234%_ + _%e129923130488%_ + _%hd129922130492%_ + _%tl129921130495%_ + _%__splice133510133511%_ + _%target129924130498%_ + _%tl129926130501%_) (let () (declare (not safe)) - (_%g130658130852%_))))) + (_%g129843130037%_))))) (let () (declare (not safe)) - (_%g130658130852%_))))) + (_%g129843130037%_))))) (let () (declare (not safe)) - (_%g130658130852%_))))))) - (let () (declare (not safe)) (_%g130658130852%_))))) - (let () (declare (not safe)) (_%g130658130852%_)))))))) + (_%g129843130037%_))))))) + (let () (declare (not safe)) (_%g129843130037%_))))) + (let () (declare (not safe)) (_%g129843130037%_)))))))) (define |gxc[:0:]#::void-expression| - (let ((__obj134462 + (let ((__obj133647 (let () (declare (not safe)) (##structure @@ -2592,7 +2603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134462 + __obj133647 'gxc#::void-expression::t '1 '#f @@ -2600,65 +2611,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134462 + __obj133647 '::void-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134462 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133647 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134462 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj133647 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134462 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj133647 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134462 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj133647 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134462 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133647 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134462 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133647 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134462 '#f '11 '#f '#f)) - (let ((__tmp134612 |gxc[1]#_g134613_|)) + (##unchecked-structure-set! __obj133647 '#f '11 '#f '#f)) + (let ((__tmp133762 |gxc[1]#_g133763_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134462 __tmp134612 '12 '#f '#f)) - (let ((__tmp134614 |gxc[1]#_g134615_|)) + (##unchecked-structure-set! __obj133647 __tmp133762 '12 '#f '#f)) + (let ((__tmp133764 |gxc[1]#_g133765_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134462 __tmp134614 '13 '#f '#f)) - (let ((__tmp134616 |gxc[1]#_g134617_|)) + (##unchecked-structure-set! __obj133647 __tmp133764 '13 '#f '#f)) + (let ((__tmp133766 |gxc[1]#_g133767_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134462 __tmp134616 '14 '#f '#f)) + (##unchecked-structure-set! __obj133647 __tmp133766 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134462 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj133647 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134462 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj133647 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134462 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj133647 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134462 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj133647 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134462 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133647 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134462 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133647 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134462 '() '20 '#f '#f)) - __obj134462)) + (##unchecked-structure-set! __obj133647 '() '20 '#f '#f)) + __obj133647)) (define |gxc[:0:]#::void-special-form| - (let ((__obj134463 + (let ((__obj133648 (let () (declare (not safe)) (##structure @@ -2687,7 +2698,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134463 + __obj133648 'gxc#::void-special-form::t '1 '#f @@ -2695,65 +2706,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134463 + __obj133648 '::void-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134463 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133648 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134463 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj133648 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134463 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj133648 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134463 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj133648 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134463 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133648 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134463 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133648 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134463 '#f '11 '#f '#f)) - (let ((__tmp134618 |gxc[1]#_g134619_|)) + (##unchecked-structure-set! __obj133648 '#f '11 '#f '#f)) + (let ((__tmp133768 |gxc[1]#_g133769_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134463 __tmp134618 '12 '#f '#f)) - (let ((__tmp134620 |gxc[1]#_g134621_|)) + (##unchecked-structure-set! __obj133648 __tmp133768 '12 '#f '#f)) + (let ((__tmp133770 |gxc[1]#_g133771_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134463 __tmp134620 '13 '#f '#f)) - (let ((__tmp134622 |gxc[1]#_g134623_|)) + (##unchecked-structure-set! __obj133648 __tmp133770 '13 '#f '#f)) + (let ((__tmp133772 |gxc[1]#_g133773_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134463 __tmp134622 '14 '#f '#f)) + (##unchecked-structure-set! __obj133648 __tmp133772 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134463 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj133648 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134463 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj133648 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134463 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj133648 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134463 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj133648 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134463 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133648 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134463 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133648 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134463 '() '20 '#f '#f)) - __obj134463)) + (##unchecked-structure-set! __obj133648 '() '20 '#f '#f)) + __obj133648)) (define |gxc[:0:]#::void| - (let ((__obj134464 + (let ((__obj133649 (let () (declare (not safe)) (##structure @@ -2781,65 +2792,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134464 'gxc#::void::t '1 '#f '#f)) + (##unchecked-structure-set! __obj133649 'gxc#::void::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134464 '::void '2 '#f '#f)) + (##unchecked-structure-set! __obj133649 '::void '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134464 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133649 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134464 '() '6 '#f '#f)) - (let ((__tmp134624 - (cons |gxc[1]#_g134625_| (cons |gxc[1]#_g134626_| '())))) + (##unchecked-structure-set! __obj133649 '() '6 '#f '#f)) + (let ((__tmp133774 + (cons |gxc[1]#_g133775_| (cons |gxc[1]#_g133776_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj134464 __tmp134624 '3 '#f '#f)) + (##unchecked-structure-set! __obj133649 __tmp133774 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134464 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj133649 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134464 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133649 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134464 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133649 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134464 '#f '11 '#f '#f)) - (let ((__tmp134627 |gxc[1]#_g134628_|)) + (##unchecked-structure-set! __obj133649 '#f '11 '#f '#f)) + (let ((__tmp133777 |gxc[1]#_g133778_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134464 __tmp134627 '12 '#f '#f)) - (let ((__tmp134629 |gxc[1]#_g134630_|)) + (##unchecked-structure-set! __obj133649 __tmp133777 '12 '#f '#f)) + (let ((__tmp133779 |gxc[1]#_g133780_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134464 __tmp134629 '13 '#f '#f)) - (let ((__tmp134631 |gxc[1]#_g134632_|)) + (##unchecked-structure-set! __obj133649 __tmp133779 '13 '#f '#f)) + (let ((__tmp133781 |gxc[1]#_g133782_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134464 __tmp134631 '14 '#f '#f)) + (##unchecked-structure-set! __obj133649 __tmp133781 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134464 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj133649 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134464 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj133649 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134464 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj133649 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134464 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj133649 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134464 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133649 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134464 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133649 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134464 '() '20 '#f '#f)) - __obj134464)) + (##unchecked-structure-set! __obj133649 '() '20 '#f '#f)) + __obj133649)) (define |gxc[:0:]#::false-expression| - (let ((__obj134465 + (let ((__obj133650 (let () (declare (not safe)) (##structure @@ -2868,7 +2879,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134465 + __obj133650 'gxc#::false-expression::t '1 '#f @@ -2876,65 +2887,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134465 + __obj133650 '::false-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134465 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133650 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134465 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj133650 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134465 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj133650 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134465 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj133650 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134465 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133650 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134465 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133650 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134465 '#f '11 '#f '#f)) - (let ((__tmp134633 |gxc[1]#_g134634_|)) + (##unchecked-structure-set! __obj133650 '#f '11 '#f '#f)) + (let ((__tmp133783 |gxc[1]#_g133784_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134465 __tmp134633 '12 '#f '#f)) - (let ((__tmp134635 |gxc[1]#_g134636_|)) + (##unchecked-structure-set! __obj133650 __tmp133783 '12 '#f '#f)) + (let ((__tmp133785 |gxc[1]#_g133786_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134465 __tmp134635 '13 '#f '#f)) - (let ((__tmp134637 |gxc[1]#_g134638_|)) + (##unchecked-structure-set! __obj133650 __tmp133785 '13 '#f '#f)) + (let ((__tmp133787 |gxc[1]#_g133788_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134465 __tmp134637 '14 '#f '#f)) + (##unchecked-structure-set! __obj133650 __tmp133787 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134465 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj133650 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134465 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj133650 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134465 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj133650 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134465 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj133650 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134465 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133650 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134465 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133650 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134465 '() '20 '#f '#f)) - __obj134465)) + (##unchecked-structure-set! __obj133650 '() '20 '#f '#f)) + __obj133650)) (define |gxc[:0:]#::false-special-form| - (let ((__obj134466 + (let ((__obj133651 (let () (declare (not safe)) (##structure @@ -2963,7 +2974,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134466 + __obj133651 'gxc#::false-special-form::t '1 '#f @@ -2971,65 +2982,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134466 + __obj133651 '::false-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134466 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133651 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134466 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj133651 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134466 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj133651 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134466 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj133651 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134466 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133651 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134466 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133651 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134466 '#f '11 '#f '#f)) - (let ((__tmp134639 |gxc[1]#_g134640_|)) + (##unchecked-structure-set! __obj133651 '#f '11 '#f '#f)) + (let ((__tmp133789 |gxc[1]#_g133790_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134466 __tmp134639 '12 '#f '#f)) - (let ((__tmp134641 |gxc[1]#_g134642_|)) + (##unchecked-structure-set! __obj133651 __tmp133789 '12 '#f '#f)) + (let ((__tmp133791 |gxc[1]#_g133792_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134466 __tmp134641 '13 '#f '#f)) - (let ((__tmp134643 |gxc[1]#_g134644_|)) + (##unchecked-structure-set! __obj133651 __tmp133791 '13 '#f '#f)) + (let ((__tmp133793 |gxc[1]#_g133794_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134466 __tmp134643 '14 '#f '#f)) + (##unchecked-structure-set! __obj133651 __tmp133793 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134466 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj133651 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134466 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj133651 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134466 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj133651 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134466 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj133651 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134466 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133651 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134466 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133651 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134466 '() '20 '#f '#f)) - __obj134466)) + (##unchecked-structure-set! __obj133651 '() '20 '#f '#f)) + __obj133651)) (define |gxc[:0:]#::false| - (let ((__obj134467 + (let ((__obj133652 (let () (declare (not safe)) (##structure @@ -3057,65 +3068,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134467 'gxc#::false::t '1 '#f '#f)) + (##unchecked-structure-set! __obj133652 'gxc#::false::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134467 '::false '2 '#f '#f)) + (##unchecked-structure-set! __obj133652 '::false '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134467 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133652 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134467 '() '6 '#f '#f)) - (let ((__tmp134645 - (cons |gxc[1]#_g134646_| (cons |gxc[1]#_g134647_| '())))) + (##unchecked-structure-set! __obj133652 '() '6 '#f '#f)) + (let ((__tmp133795 + (cons |gxc[1]#_g133796_| (cons |gxc[1]#_g133797_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj134467 __tmp134645 '3 '#f '#f)) + (##unchecked-structure-set! __obj133652 __tmp133795 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134467 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj133652 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134467 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133652 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134467 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133652 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134467 '#f '11 '#f '#f)) - (let ((__tmp134648 |gxc[1]#_g134649_|)) + (##unchecked-structure-set! __obj133652 '#f '11 '#f '#f)) + (let ((__tmp133798 |gxc[1]#_g133799_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134467 __tmp134648 '12 '#f '#f)) - (let ((__tmp134650 |gxc[1]#_g134651_|)) + (##unchecked-structure-set! __obj133652 __tmp133798 '12 '#f '#f)) + (let ((__tmp133800 |gxc[1]#_g133801_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134467 __tmp134650 '13 '#f '#f)) - (let ((__tmp134652 |gxc[1]#_g134653_|)) + (##unchecked-structure-set! __obj133652 __tmp133800 '13 '#f '#f)) + (let ((__tmp133802 |gxc[1]#_g133803_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134467 __tmp134652 '14 '#f '#f)) + (##unchecked-structure-set! __obj133652 __tmp133802 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134467 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj133652 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134467 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj133652 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134467 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj133652 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134467 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj133652 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134467 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133652 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134467 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133652 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134467 '() '20 '#f '#f)) - __obj134467)) + (##unchecked-structure-set! __obj133652 '() '20 '#f '#f)) + __obj133652)) (define |gxc[:0:]#::identity-expression| - (let ((__obj134468 + (let ((__obj133653 (let () (declare (not safe)) (##structure @@ -3144,7 +3155,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134468 + __obj133653 'gxc#::identity-expression::t '1 '#f @@ -3152,65 +3163,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134468 + __obj133653 '::identity-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134468 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133653 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134468 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj133653 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134468 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj133653 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134468 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj133653 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134468 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133653 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134468 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133653 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134468 '#f '11 '#f '#f)) - (let ((__tmp134654 |gxc[1]#_g134655_|)) + (##unchecked-structure-set! __obj133653 '#f '11 '#f '#f)) + (let ((__tmp133804 |gxc[1]#_g133805_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134468 __tmp134654 '12 '#f '#f)) - (let ((__tmp134656 |gxc[1]#_g134657_|)) + (##unchecked-structure-set! __obj133653 __tmp133804 '12 '#f '#f)) + (let ((__tmp133806 |gxc[1]#_g133807_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134468 __tmp134656 '13 '#f '#f)) - (let ((__tmp134658 |gxc[1]#_g134659_|)) + (##unchecked-structure-set! __obj133653 __tmp133806 '13 '#f '#f)) + (let ((__tmp133808 |gxc[1]#_g133809_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134468 __tmp134658 '14 '#f '#f)) + (##unchecked-structure-set! __obj133653 __tmp133808 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134468 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj133653 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134468 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj133653 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134468 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj133653 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134468 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj133653 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134468 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133653 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134468 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133653 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134468 '() '20 '#f '#f)) - __obj134468)) + (##unchecked-structure-set! __obj133653 '() '20 '#f '#f)) + __obj133653)) (define |gxc[:0:]#::identity-special-form| - (let ((__obj134469 + (let ((__obj133654 (let () (declare (not safe)) (##structure @@ -3239,7 +3250,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134469 + __obj133654 'gxc#::identity-special-form::t '1 '#f @@ -3247,65 +3258,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134469 + __obj133654 '::identity-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134469 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133654 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134469 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj133654 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134469 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj133654 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134469 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj133654 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134469 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133654 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134469 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133654 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134469 '#f '11 '#f '#f)) - (let ((__tmp134660 |gxc[1]#_g134661_|)) + (##unchecked-structure-set! __obj133654 '#f '11 '#f '#f)) + (let ((__tmp133810 |gxc[1]#_g133811_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134469 __tmp134660 '12 '#f '#f)) - (let ((__tmp134662 |gxc[1]#_g134663_|)) + (##unchecked-structure-set! __obj133654 __tmp133810 '12 '#f '#f)) + (let ((__tmp133812 |gxc[1]#_g133813_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134469 __tmp134662 '13 '#f '#f)) - (let ((__tmp134664 |gxc[1]#_g134665_|)) + (##unchecked-structure-set! __obj133654 __tmp133812 '13 '#f '#f)) + (let ((__tmp133814 |gxc[1]#_g133815_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134469 __tmp134664 '14 '#f '#f)) + (##unchecked-structure-set! __obj133654 __tmp133814 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134469 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj133654 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134469 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj133654 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134469 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj133654 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134469 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj133654 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134469 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133654 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134469 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133654 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134469 '() '20 '#f '#f)) - __obj134469)) + (##unchecked-structure-set! __obj133654 '() '20 '#f '#f)) + __obj133654)) (define |gxc[:0:]#::identity| - (let ((__obj134470 + (let ((__obj133655 (let () (declare (not safe)) (##structure @@ -3334,69 +3345,69 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134470 + __obj133655 'gxc#::identity::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134470 '::identity '2 '#f '#f)) + (##unchecked-structure-set! __obj133655 '::identity '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134470 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133655 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134470 '() '6 '#f '#f)) - (let ((__tmp134666 - (cons |gxc[1]#_g134667_| (cons |gxc[1]#_g134668_| '())))) + (##unchecked-structure-set! __obj133655 '() '6 '#f '#f)) + (let ((__tmp133816 + (cons |gxc[1]#_g133817_| (cons |gxc[1]#_g133818_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj134470 __tmp134666 '3 '#f '#f)) + (##unchecked-structure-set! __obj133655 __tmp133816 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134470 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj133655 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134470 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133655 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134470 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133655 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134470 '#f '11 '#f '#f)) - (let ((__tmp134669 |gxc[1]#_g134670_|)) + (##unchecked-structure-set! __obj133655 '#f '11 '#f '#f)) + (let ((__tmp133819 |gxc[1]#_g133820_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134470 __tmp134669 '12 '#f '#f)) - (let ((__tmp134671 |gxc[1]#_g134672_|)) + (##unchecked-structure-set! __obj133655 __tmp133819 '12 '#f '#f)) + (let ((__tmp133821 |gxc[1]#_g133822_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134470 __tmp134671 '13 '#f '#f)) - (let ((__tmp134673 |gxc[1]#_g134674_|)) + (##unchecked-structure-set! __obj133655 __tmp133821 '13 '#f '#f)) + (let ((__tmp133823 |gxc[1]#_g133824_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134470 __tmp134673 '14 '#f '#f)) + (##unchecked-structure-set! __obj133655 __tmp133823 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134470 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj133655 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134470 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj133655 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134470 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj133655 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134470 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj133655 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134470 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133655 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134470 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133655 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134470 '() '20 '#f '#f)) - __obj134470)) + (##unchecked-structure-set! __obj133655 '() '20 '#f '#f)) + __obj133655)) (define |gxc[:0:]#::basic-xform-expression| - (let ((__obj134471 + (let ((__obj133656 (let () (declare (not safe)) (##structure @@ -3425,7 +3436,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134471 + __obj133656 'gxc#::basic-xform-expression::t '1 '#f @@ -3433,65 +3444,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134471 + __obj133656 '::basic-xform-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134471 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133656 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134471 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj133656 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134471 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj133656 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134471 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj133656 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134471 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133656 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134471 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133656 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134471 '#f '11 '#f '#f)) - (let ((__tmp134675 |gxc[1]#_g134676_|)) + (##unchecked-structure-set! __obj133656 '#f '11 '#f '#f)) + (let ((__tmp133825 |gxc[1]#_g133826_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134471 __tmp134675 '12 '#f '#f)) - (let ((__tmp134677 |gxc[1]#_g134678_|)) + (##unchecked-structure-set! __obj133656 __tmp133825 '12 '#f '#f)) + (let ((__tmp133827 |gxc[1]#_g133828_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134471 __tmp134677 '13 '#f '#f)) - (let ((__tmp134679 |gxc[1]#_g134680_|)) + (##unchecked-structure-set! __obj133656 __tmp133827 '13 '#f '#f)) + (let ((__tmp133829 |gxc[1]#_g133830_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134471 __tmp134679 '14 '#f '#f)) + (##unchecked-structure-set! __obj133656 __tmp133829 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134471 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj133656 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134471 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj133656 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134471 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj133656 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134471 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj133656 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134471 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133656 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134471 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133656 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134471 '() '20 '#f '#f)) - __obj134471)) + (##unchecked-structure-set! __obj133656 '() '20 '#f '#f)) + __obj133656)) (define |gxc[:0:]#::basic-xform| - (let ((__obj134472 + (let ((__obj133657 (let () (declare (not safe)) (##structure @@ -3520,64 +3531,64 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134472 + __obj133657 'gxc#::basic-xform::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134472 '::basic-xform '2 '#f '#f)) + (##unchecked-structure-set! __obj133657 '::basic-xform '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134472 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133657 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134472 '() '6 '#f '#f)) - (let ((__tmp134681 - (cons |gxc[1]#_g134682_| (cons |gxc[1]#_g134683_| '())))) + (##unchecked-structure-set! __obj133657 '() '6 '#f '#f)) + (let ((__tmp133831 + (cons |gxc[1]#_g133832_| (cons |gxc[1]#_g133833_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj134472 __tmp134681 '3 '#f '#f)) + (##unchecked-structure-set! __obj133657 __tmp133831 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134472 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj133657 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134472 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133657 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134472 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133657 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134472 '#f '11 '#f '#f)) - (let ((__tmp134684 |gxc[1]#_g134685_|)) + (##unchecked-structure-set! __obj133657 '#f '11 '#f '#f)) + (let ((__tmp133834 |gxc[1]#_g133835_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134472 __tmp134684 '12 '#f '#f)) - (let ((__tmp134686 |gxc[1]#_g134687_|)) + (##unchecked-structure-set! __obj133657 __tmp133834 '12 '#f '#f)) + (let ((__tmp133836 |gxc[1]#_g133837_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134472 __tmp134686 '13 '#f '#f)) - (let ((__tmp134688 |gxc[1]#_g134689_|)) + (##unchecked-structure-set! __obj133657 __tmp133836 '13 '#f '#f)) + (let ((__tmp133838 |gxc[1]#_g133839_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134472 __tmp134688 '14 '#f '#f)) + (##unchecked-structure-set! __obj133657 __tmp133838 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134472 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj133657 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134472 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj133657 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134472 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj133657 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134472 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj133657 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134472 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133657 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134472 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133657 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134472 '() '20 '#f '#f)) - __obj134472)))) + (##unchecked-structure-set! __obj133657 '() '20 '#f '#f)) + __obj133657)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann.ssxi.ss b/src/bootstrap/gerbil/compiler/optimize-ann.ssxi.ss index 2eef93797..1f45da4ef 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/optimize-ann.ssxi.ss @@ -40,7 +40,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) (declare-class gxc#::generate-runtime-repr::t (@class gxc#::generate-runtime-repr::t @@ -78,7 +87,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) (declare-class gxc#::push-match-vars::t (@class gxc#::push-match-vars::t @@ -133,7 +151,16 @@ package: gerbil/compiler (@lambda 4 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) (declare-type gxc#apply-push-match-vars__@ (@kw-lambda-dispatch (vars: K:) gxc#apply-push-match-vars__%)) @@ -145,31 +172,273 @@ package: gerbil/compiler (optimizer-resolve-class '(typedecl gxc#current-annotation-optimizer) 'procedure::t)) - (declare-type gxc#optimize-annotation% (@lambda 2 #f)) - (declare-type gxc#optimize-match (@lambda 1 #f)) + (declare-type + gxc#optimize-annotation% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) + (declare-type + gxc#optimize-match + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) (declare-type gxc#optimize-match-body (@lambda 4 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#optimize-match-basic-blocks (@lambda 1 #f)) - (declare-type gxc#optimize-match-lift-basic-blocks (@lambda 2 #f)) - (declare-type gxc#optimize-match-fold-basic-blocks (@lambda 1 #f)) - (declare-type gxc#optimize-match-block (@lambda 4 #f)) - (declare-type gxc#optimize-match-prune-blocks (@lambda 2 #f)) - (declare-type gxc#optimize-match-fuse-restart-blocks (@lambda 2 #f)) - (declare-type gxc#optimize-match-assert-restart (@lambda 2 #f)) - (declare-type gxc#optimize-syntax-case (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) + (declare-type + gxc#optimize-match-basic-blocks + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) + (declare-type + gxc#optimize-match-lift-basic-blocks + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) + (declare-type + gxc#optimize-match-fold-basic-blocks + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) + (declare-type + gxc#optimize-match-block + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) + (declare-type + gxc#optimize-match-prune-blocks + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) + (declare-type + gxc#optimize-match-fuse-restart-blocks + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) + (declare-type + gxc#optimize-match-assert-restart + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) + (declare-type + gxc#optimize-syntax-case + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) (declare-type gxc#optimize-syntax-case-body (@lambda 4 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#optimize-syntax-case-clauses (@lambda 2 #f)) - (declare-type gxc#optimize-syntax-case-closure (@lambda 3 #f)) - (declare-type gxc#push-match-vars-let-values% (@lambda 2 #f)) - (declare-type gxc#push-match-vars-if% (@lambda 2 #f)) - (declare-type gxc#push-match-vars-call% (@lambda 2 #f)) - (declare-type gxc#push-match-vars-stop (@lambda 2 #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) + (declare-type + gxc#optimize-syntax-case-clauses + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) + (declare-type + gxc#optimize-syntax-case-closure + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) + (declare-type + gxc#push-match-vars-let-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) + (declare-type + gxc#push-match-vars-if% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) + (declare-type + gxc#push-match-vars-call% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann))) + (declare-type + gxc#push-match-vars-stop + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-ann)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~0.scm b/src/bootstrap/gerbil/compiler/optimize-ann~0.scm index 88e5d9972..97fb74aa6 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 1712533294) + (define gerbil/compiler/optimize-ann::timestamp 1712573435) (begin (declare (inlining-limit 200)) (define gxc#::optimize-annotated::t - (let ((__tmp186990 (list gxc#::basic-xform::t)) - (__tmp186989 (cons (cons 'final: '#t) '()))) + (let ((__tmp186005 (list gxc#::basic-xform::t)) + (__tmp186004 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-annotated::t '::optimize-annotated - __tmp186990 + __tmp186005 '() - __tmp186989 + __tmp186004 '#f))) (define gxc#::optimize-annotated? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-annotated::t))) (define gxc#make-::optimize-annotated - (lambda _%$args183875%_ - (apply make-instance gxc#::optimize-annotated::t _%$args183875%_))) + (lambda _%$args182890%_ + (apply make-instance gxc#::optimize-annotated::t _%$args182890%_))) (define gxc#::optimize-annotated-bind-methods! - (let ((__tmp186991 + (let ((__tmp186006 (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 __tmp186991))) + (__make-promise __tmp186006))) (define gxc#apply-optimize-annotated - (lambda (_%stx183867%_) + (lambda (_%stx182882%_) (force gxc#::optimize-annotated-bind-methods!) - (let* ((_%self183870%_ - (let ((__obj186981 + (let* ((_%self182885%_ + (let ((__obj185996 (let () (declare (not safe)) (##structure gxc#::optimize-annotated::t)))) - __obj186981)) - (__tmp186992 + __obj185996)) + (__tmp186007 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self183870%_ _%stx183867%_))))) + (gxc#compile-e__1 _%self182885%_ _%stx182882%_))))) (declare (not safe)) (__call-with-parameters - __tmp186992 + __tmp186007 gxc#current-compile-method - _%self183870%_)))) + _%self182885%_)))) (define gxc#::generate-runtime-repr::t - (let ((__tmp186994 (list gxc#::generate-runtime::t)) - (__tmp186993 (cons (cons 'final: '#t) '()))) + (let ((__tmp186009 (list gxc#::generate-runtime::t)) + (__tmp186008 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-repr::t '::generate-runtime-repr - __tmp186994 + __tmp186009 '() - __tmp186993 + __tmp186008 '#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 _%$args183864%_ - (apply make-instance gxc#::generate-runtime-repr::t _%$args183864%_))) + (lambda _%$args182879%_ + (apply make-instance gxc#::generate-runtime-repr::t _%$args182879%_))) (define gxc#::generate-runtime-repr-bind-methods! - (let ((__tmp186995 + (let ((__tmp186010 (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 __tmp186995))) + (__make-promise __tmp186010))) (define gxc#apply-generate-runtime-repr - (lambda (_%stx183856%_) + (lambda (_%stx182871%_) (force gxc#::generate-runtime-repr-bind-methods!) - (let* ((_%self183859%_ - (let ((__obj186983 + (let* ((_%self182874%_ + (let ((__obj185998 (let () (declare (not safe)) (##structure gxc#::generate-runtime-repr::t)))) - __obj186983)) - (__tmp186996 + __obj185998)) + (__tmp186011 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self183859%_ _%stx183856%_))))) + (gxc#compile-e__1 _%self182874%_ _%stx182871%_))))) (declare (not safe)) (__call-with-parameters - __tmp186996 + __tmp186011 gxc#current-compile-method - _%self183859%_)))) + _%self182874%_)))) (define gxc#::push-match-vars::t - (let ((__tmp186998 (list)) (__tmp186997 (cons (cons 'final: '#t) '()))) + (let ((__tmp186013 (list)) (__tmp186012 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::push-match-vars::t '::push-match-vars - __tmp186998 + __tmp186013 '(vars K) - __tmp186997 + __tmp186012 '#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 _%$args183853%_ - (apply make-instance gxc#::push-match-vars::t _%$args183853%_))) + (lambda _%$args182868%_ + (apply make-instance gxc#::push-match-vars::t _%$args182868%_))) (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 ((__tmp186999 + (let ((__tmp186014 (lambda () (let () (declare (not safe)) @@ -199,1766 +199,1666 @@ (declare (not safe)) (__seal-class! gxc#::push-match-vars::t))))) (declare (not safe)) - (__make-promise __tmp186999))) + (__make-promise __tmp186014))) (define gxc#apply-push-match-vars__% - (lambda (_%@@keywords183823%_ - _%vars183819183824%_ - _%K183820183826%_ - _%stx183828%_) - (let* ((_%vars183831%_ - (if (eq? _%vars183819183824%_ absent-value) + (lambda (_%@@keywords182838%_ + _%vars182834182839%_ + _%K182835182841%_ + _%stx182843%_) + (let* ((_%vars182846%_ + (if (eq? _%vars182834182839%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'vars:)) - _%vars183819183824%_)) - (_%K183833%_ - (if (eq? _%K183820183826%_ absent-value) + _%vars182834182839%_)) + (_%K182848%_ + (if (eq? _%K182835182841%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'K:)) - _%K183820183826%_))) + _%K182835182841%_))) (force gxc#::push-match-vars-bind-methods!) - (let* ((_%self183835%_ - (let ((__obj186985 + (let* ((_%self182850%_ + (let ((__obj186000 (let () (declare (not safe)) (##structure gxc#::push-match-vars::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj186985 - _%vars183831%_ + __obj186000 + _%vars182846%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj186985 - _%K183833%_ + __obj186000 + _%K182848%_ '2 '#f '#f)) - __obj186985)) - (__tmp187000 + __obj186000)) + (__tmp186015 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self183835%_ _%stx183828%_))))) + (gxc#compile-e__1 _%self182850%_ _%stx182843%_))))) (declare (not safe)) (__call-with-parameters - __tmp187000 + __tmp186015 gxc#current-compile-method - _%self183835%_))))) + _%self182850%_))))) (define gxc#apply-push-match-vars__@ - (lambda (_%@@keywords183842%_ . _%args183843%_) + (lambda (_%@@keywords182857%_ . _%args182858%_) (apply gxc#apply-push-match-vars__% - _%@@keywords183842%_ + _%@@keywords182857%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords183842%_ 'vars: absent-value)) + (symbolic-table-ref _%@@keywords182857%_ 'vars: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords183842%_ 'K: absent-value)) - _%args183843%_))) + (symbolic-table-ref _%@@keywords182857%_ 'K: absent-value)) + _%args182858%_))) (define gxc#apply-push-match-vars - (lambda _%args183821183849%_ + (lambda _%args182836182864%_ (apply keyword-dispatch '#(K: vars:) gxc#apply-push-match-vars__@ - _%args183821183849%_))) + _%args182836182864%_))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_%self183735%_ _%stx183736%_) - (let* ((_%__stx183891183892%_ _%stx183736%_) - (_%g183739183756%_ + (lambda (_%self182750%_ _%stx182751%_) + (let* ((_%__stx182906182907%_ _%stx182751%_) + (_%g182754182771%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx183891183892%_))))) - (let ((_%__kont183893183894%_ - (lambda (_%L183792%_ _%L183793%_) - (let ((_%ann183809%_ + _%__stx182906182907%_))))) + (let ((_%__kont182908182909%_ + (lambda (_%L182807%_ _%L182808%_) + (let ((_%ann182824%_ (let () (declare (not safe)) - (gx#stx-e _%L183793%_)))) - (let ((__tmp187002 + (gx#stx-e _%L182808%_)))) + (let ((__tmp186017 (lambda () - (let ((_%$e183812%_ _%ann183809%_)) - (if (eq? '@match _%$e183812%_) + (let ((_%$e182827%_ _%ann182824%_)) + (if (eq? '@match _%$e182827%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing match expansion")) - (let () - (declare (not safe)) - (gxc#optimize-match _%L183792%_))) - (if (eq? '@syntax-case _%$e183812%_) + (gxc#optimize-match _%L182807%_)) + (if (eq? '@syntax-case _%$e182827%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing syntax-case expansion")) - (let () - (declare (not safe)) - (gxc#optimize-syntax-case - _%L183792%_))) + (gxc#optimize-syntax-case + _%L182807%_)) (let () (declare (not safe)) - (gxc#compile-e__0 _%L183792%_))))))) - (__tmp187001 - (cons _%ann183809%_ + (gxc#compile-e__0 _%L182807%_))))))) + (__tmp186016 + (cons _%ann182824%_ (let () (declare (not safe)) (gxc#current-annotation-optimizer))))) (declare (not safe)) (__call-with-parameters - __tmp187002 + __tmp186017 gxc#current-annotation-optimizer - __tmp187001))))) - (_%__kont183895183896%_ + __tmp186016))))) + (_%__kont182910182911%_ (lambda () (let () (declare (not safe)) (gxc#xform-begin-annotation% - _%self183735%_ - _%stx183736%_))))) - (let ((_%__match183916183917%_ - (lambda (_%e183745183768%_ - _%hd183744183771%_ - _%tl183743183773%_ - _%e183748183776%_ - _%hd183747183779%_ - _%tl183746183781%_ - _%e183751183784%_ - _%hd183750183787%_ - _%tl183749183789%_) - (let ((_%L183792%_ _%hd183750183787%_) - (_%L183793%_ _%hd183747183779%_)) + _%self182750%_ + _%stx182751%_))))) + (let ((_%__match182931182932%_ + (lambda (_%e182760182783%_ + _%hd182759182786%_ + _%tl182758182788%_ + _%e182763182791%_ + _%hd182762182794%_ + _%tl182761182796%_ + _%e182766182799%_ + _%hd182765182802%_ + _%tl182764182804%_) + (let ((_%L182807%_ _%hd182765182802%_) + (_%L182808%_ _%hd182762182794%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L183793%_)) - (_%__kont183893183894%_ _%L183792%_ _%L183793%_) - (_%__kont183895183896%_)))))) + (gx#identifier? _%L182808%_)) + (_%__kont182908182909%_ _%L182807%_ _%L182808%_) + (_%__kont182910182911%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx183891183892%_)) - (let ((_%e183745183768%_ + (gx#stx-pair? _%__stx182906182907%_)) + (let ((_%e182760182783%_ (let () (declare (not safe)) - (gx#stx-e _%__stx183891183892%_)))) - (let ((_%tl183743183773%_ + (gx#stx-e _%__stx182906182907%_)))) + (let ((_%tl182758182788%_ (let () (declare (not safe)) - (##cdr _%e183745183768%_))) - (_%hd183744183771%_ + (##cdr _%e182760182783%_))) + (_%hd182759182786%_ (let () (declare (not safe)) - (##car _%e183745183768%_)))) + (##car _%e182760182783%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183743183773%_)) - (let ((_%e183748183776%_ + (gx#stx-pair? _%tl182758182788%_)) + (let ((_%e182763182791%_ (let () (declare (not safe)) - (gx#stx-e _%tl183743183773%_)))) - (let ((_%tl183746183781%_ + (gx#stx-e _%tl182758182788%_)))) + (let ((_%tl182761182796%_ (let () (declare (not safe)) - (##cdr _%e183748183776%_))) - (_%hd183747183779%_ + (##cdr _%e182763182791%_))) + (_%hd182762182794%_ (let () (declare (not safe)) - (##car _%e183748183776%_)))) + (##car _%e182763182791%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183746183781%_)) - (let ((_%e183751183784%_ + (gx#stx-pair? _%tl182761182796%_)) + (let ((_%e182766182799%_ (let () (declare (not safe)) - (gx#stx-e _%tl183746183781%_)))) - (let ((_%tl183749183789%_ + (gx#stx-e _%tl182761182796%_)))) + (let ((_%tl182764182804%_ (let () (declare (not safe)) - (##cdr _%e183751183784%_))) - (_%hd183750183787%_ + (##cdr _%e182766182799%_))) + (_%hd182765182802%_ (let () (declare (not safe)) - (##car _%e183751183784%_)))) + (##car _%e182766182799%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183749183789%_)) - (_%__match183916183917%_ - _%e183745183768%_ - _%hd183744183771%_ - _%tl183743183773%_ - _%e183748183776%_ - _%hd183747183779%_ - _%tl183746183781%_ - _%e183751183784%_ - _%hd183750183787%_ - _%tl183749183789%_) - (_%__kont183895183896%_)))) - (_%__kont183895183896%_)))) - (_%__kont183895183896%_)))) - (_%__kont183895183896%_))))))) + (gx#stx-null? _%tl182764182804%_)) + (_%__match182931182932%_ + _%e182760182783%_ + _%hd182759182786%_ + _%tl182758182788%_ + _%e182763182791%_ + _%hd182762182794%_ + _%tl182761182796%_ + _%e182766182799%_ + _%hd182765182802%_ + _%tl182764182804%_) + (_%__kont182910182911%_)))) + (_%__kont182910182911%_)))) + (_%__kont182910182911%_)))) + (_%__kont182910182911%_))))))) (define gxc#optimize-match - (lambda (_%stx183034%_) - (let* ((_%g183036183066%_ - (lambda (_%g183037183063%_) + (lambda (_%stx182049%_) + (let* ((_%g182051182081%_ + (lambda (_%g182052182078%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g183037183063%_)))) - (_%g183035183732%_ - (lambda (_%g183037183069%_) + _%g182052182078%_)))) + (_%g182050182747%_ + (lambda (_%g182052182084%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g183037183069%_)) - (let ((_%e183043183071%_ + (gx#stx-pair? _%g182052182084%_)) + (let ((_%e182058182086%_ (let () (declare (not safe)) - (gx#stx-e _%g183037183069%_)))) - (let ((_%hd183042183074%_ + (gx#stx-e _%g182052182084%_)))) + (let ((_%hd182057182089%_ (let () (declare (not safe)) - (##car _%e183043183071%_))) - (_%tl183041183076%_ + (##car _%e182058182086%_))) + (_%tl182056182091%_ (let () (declare (not safe)) - (##cdr _%e183043183071%_)))) + (##cdr _%e182058182086%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183042183074%_)) + (gx#identifier? _%hd182057182089%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd183042183074%_)) + _%hd182057182089%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183041183076%_)) - (let ((_%e183046183079%_ + (gx#stx-pair? _%tl182056182091%_)) + (let ((_%e182061182094%_ (let () (declare (not safe)) - (gx#stx-e _%tl183041183076%_)))) - (let ((_%hd183045183082%_ + (gx#stx-e _%tl182056182091%_)))) + (let ((_%hd182060182097%_ (let () (declare (not safe)) - (##car _%e183046183079%_))) - (_%tl183044183084%_ + (##car _%e182061182094%_))) + (_%tl182059182099%_ (let () (declare (not safe)) - (##cdr _%e183046183079%_)))) + (##cdr _%e182061182094%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183045183082%_)) - (let ((_%e183049183087%_ + _%hd182060182097%_)) + (let ((_%e182064182102%_ (let () (declare (not safe)) (gx#stx-e - _%hd183045183082%_)))) - (let ((_%hd183048183090%_ + _%hd182060182097%_)))) + (let ((_%hd182063182105%_ (let () (declare (not safe)) - (##car _%e183049183087%_))) - (_%tl183047183092%_ + (##car _%e182064182102%_))) + (_%tl182062182107%_ (let () (declare (not safe)) - (##cdr _%e183049183087%_)))) + (##cdr _%e182064182102%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183048183090%_)) - (let ((_%e183052183095%_ + _%hd182063182105%_)) + (let ((_%e182067182110%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd183048183090%_)))) - (let ((_%hd183051183098%_ - (let () (declare (not safe)) (##car _%e183052183095%_))) - (_%tl183050183100%_ + (gx#stx-e _%hd182063182105%_)))) + (let ((_%hd182066182113%_ + (let () (declare (not safe)) (##car _%e182067182110%_))) + (_%tl182065182115%_ (let () (declare (not safe)) - (##cdr _%e183052183095%_)))) + (##cdr _%e182067182110%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183051183098%_)) - (let ((_%e183055183103%_ + (gx#stx-pair? _%hd182066182113%_)) + (let ((_%e182070182118%_ (let () (declare (not safe)) - (gx#stx-e _%hd183051183098%_)))) - (let ((_%hd183054183106%_ + (gx#stx-e _%hd182066182113%_)))) + (let ((_%hd182069182121%_ (let () (declare (not safe)) - (##car _%e183055183103%_))) - (_%tl183053183108%_ + (##car _%e182070182118%_))) + (_%tl182068182123%_ (let () (declare (not safe)) - (##cdr _%e183055183103%_)))) + (##cdr _%e182070182118%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183053183108%_)) + (gx#stx-null? _%tl182068182123%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183050183100%_)) - (let ((_%e183058183111%_ + (gx#stx-pair? _%tl182065182115%_)) + (let ((_%e182073182126%_ (let () (declare (not safe)) - (gx#stx-e _%tl183050183100%_)))) - (let ((_%hd183057183114%_ + (gx#stx-e _%tl182065182115%_)))) + (let ((_%hd182072182129%_ (let () (declare (not safe)) - (##car _%e183058183111%_))) - (_%tl183056183116%_ + (##car _%e182073182126%_))) + (_%tl182071182131%_ (let () (declare (not safe)) - (##cdr _%e183058183111%_)))) + (##cdr _%e182073182126%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183056183116%_)) + (gx#stx-null? _%tl182071182131%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183047183092%_)) + _%tl182062182107%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183044183084%_)) - (let ((_%e183061183119%_ + _%tl182059182099%_)) + (let ((_%e182076182134%_ (let () (declare (not safe)) (gx#stx-e - _%tl183044183084%_)))) - (let ((_%hd183060183122%_ + _%tl182059182099%_)))) + (let ((_%hd182075182137%_ (let () (declare (not safe)) - (##car _%e183061183119%_))) - (_%tl183059183124%_ + (##car _%e182076182134%_))) + (_%tl182074182139%_ (let () (declare (not safe)) - (##cdr _%e183061183119%_)))) + (##cdr _%e182076182134%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183059183124%_)) - ((lambda (_%L183127%_ + _%tl182074182139%_)) + ((lambda (_%L182142%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L183128%_ - _%L183129%_) - (let _%lp183153%_ ((_%body183155%_ _%L183127%_) - (_%negation183156%_ - (cons _%L183129%_ _%L183128%_)) - (_%clauses183157%_ '()) - (_%konts183158%_ '())) - (let* ((_%__stx184099184100%_ _%body183155%_) - (_%g183161183201%_ + _%L182143%_ + _%L182144%_) + (let _%lp182168%_ ((_%body182170%_ _%L182142%_) + (_%negation182171%_ + (cons _%L182144%_ _%L182143%_)) + (_%clauses182172%_ '()) + (_%konts182173%_ '())) + (let* ((_%__stx183114183115%_ _%body182170%_) + (_%g182176182216%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx184099184100%_))))) - (let ((_%__kont184101184102%_ - (lambda (_%L183531%_) - (let* ((_%__stx184035184036%_ _%L183531%_) - (_%g183545183575%_ + _%__stx183114183115%_))))) + (let ((_%__kont183116183117%_ + (lambda (_%L182546%_) + (let* ((_%__stx183050183051%_ _%L182546%_) + (_%g182560182590%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx184035184036%_))))) - (let ((_%__kont184037184038%_ - (lambda (_%L183671%_ - _%L183672%_ - _%L183673%_) - (if (let () - (declare (not safe)) - (null? _%clauses183157%_)) - (let* ((_%negation183697183704%_ - _%negation183156%_) - (_%E183699183708%_ + _%__stx183050183051%_))))) + (let ((_%__kont183052183053%_ + (lambda (_%L182686%_ + _%L182687%_ + _%L182688%_) + (if (null? _%clauses182172%_) + (let* ((_%negation182712182719%_ + _%negation182171%_) + (_%E182714182723%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%negation183697183704%_ + _%negation182712182719%_ '([E . negate]))) '#!void)) - (_%K183700183714%_ - (lambda (_%negate183711%_ _%E183712%_) - (let ((__tmp187003 + (_%K182715182729%_ + (lambda (_%negate182726%_ _%E182727%_) + (let ((__tmp186018 (cons '%#let-values - (cons (cons (cons (cons _%E183712%_ '()) - (cons _%negate183711%_ '())) + (cons (cons (cons (cons _%E182727%_ '()) + (cons _%negate182726%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L183673%_ + (cons (cons (cons (cons _%L182688%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%L183672%_)) + (gxc#compile-e__0 _%L182687%_)) '())) '()) - (cons _%L183671%_ '()))) + (cons _%L182686%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp187003 _%stx183034%_))))) + (gxc#xform-wrap-source __tmp186018 _%stx182049%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%negation183697183704%_)) - (let ((_%hd183701183717%_ + (##pair? _%negation182712182719%_)) + (let ((_%hd182716182732%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%negation183697183704%_))) - (_%tl183702183719%_ + (##car _%negation182712182719%_))) + (_%tl182717182734%_ (let () (declare (not safe)) - (##cdr _%negation183697183704%_)))) - (let* ((_%E183722%_ _%hd183701183717%_) - (_%negate183724%_ _%tl183702183719%_)) - (declare (not safe)) - (_%K183700183714%_ _%negate183724%_ _%E183722%_))) - (let () (declare (not safe)) (_%E183699183708%_)))) + (##cdr _%negation182712182719%_)))) + (let* ((_%E182737%_ _%hd182716182732%_) + (_%negate182739%_ _%tl182717182734%_)) + (_%K182715182729%_ _%negate182739%_ _%E182737%_))) + (_%E182714182723%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp187005 - (cons (cons '#f + (gxc#optimize-match-body + _%stx182049%_ + _%negation182171%_ + (cons (cons '#f + (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L183671%_ '())))) - _%clauses183157%_)) - (__tmp187004 - (cons (cons _%L183673%_ - (let () (declare (not safe)) - (gxc#compile-e__0 _%L183672%_))) - _%konts183158%_))) + (gx#datum->syntax__0 '#f '%#lambda)) + (cons '() (cons _%L182686%_ '())))) + _%clauses182172%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#optimize-match-body - _%stx183034%_ - _%negation183156%_ - __tmp187005 - __tmp187004))))) - (_%__kont184039184040%_ + (cons (cons _%L182688%_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gxc#compile-e__0 _%L182687%_))) + _%konts182173%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont183054183055%_ (lambda () - (let* ((_%negation183581183588%_ - _%negation183156%_) - (_%E183583183592%_ + (let* ((_%negation182596182603%_ + _%negation182171%_) + (_%E182598182607%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation183581183588%_ + _%negation182596182603%_ '([E ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . negate]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K183584183598%_ - (lambda (_%negate183595%_ - _%E183596%_) - (let ((__tmp187006 + (_%K182599182613%_ + (lambda (_%negate182610%_ + _%E182611%_) + (let ((__tmp186019 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%E183596%_ '()) - (cons _%negate183595%_ '())) + (cons (cons (cons (cons _%E182611%_ '()) + (cons _%negate182610%_ '())) '()) - (cons _%L183531%_ '()))))) + (cons _%L182546%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp187006 _%stx183034%_))))) + (gxc#xform-wrap-source __tmp186019 _%stx182049%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%negation183581183588%_)) - (let ((_%hd183585183601%_ + (##pair? _%negation182596182603%_)) + (let ((_%hd182600182616%_ (let () (declare (not safe)) - (##car _%negation183581183588%_))) - (_%tl183586183603%_ + (##car _%negation182596182603%_))) + (_%tl182601182618%_ (let () (declare (not safe)) - (##cdr _%negation183581183588%_)))) - (let* ((_%E183606%_ - _%hd183585183601%_) - (_%negate183608%_ - _%tl183586183603%_)) - (declare (not safe)) - (_%K183584183598%_ - _%negate183608%_ - _%E183606%_))) - (let () - (declare (not safe)) - (_%E183583183592%_))))))) - (let ((_%g183544183610%_ + (##cdr _%negation182596182603%_)))) + (let* ((_%E182621%_ + _%hd182600182616%_) + (_%negate182623%_ + _%tl182601182618%_)) + (_%K182599182613%_ + _%negate182623%_ + _%E182621%_))) + (_%E182598182607%_)))))) + (let ((_%g182559182625%_ (lambda () - (if (let () - (declare (not safe)) - (null? _%clauses183157%_)) - (_%__kont184039184040%_) + (if (null? _%clauses182172%_) + (_%__kont183054183055%_) (let () (declare (not safe)) - (_%g183545183575%_)))))) + (_%g182560182590%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx184035184036%_)) - (let ((_%e183552183615%_ + _%__stx183050183051%_)) + (let ((_%e182567182630%_ (let () (declare (not safe)) (gx#stx-e - _%__stx184035184036%_)))) - (let ((_%tl183550183620%_ + _%__stx183050183051%_)))) + (let ((_%tl182565182635%_ (let () (declare (not safe)) - (##cdr _%e183552183615%_))) - (_%hd183551183618%_ + (##cdr _%e182567182630%_))) + (_%hd182566182633%_ (let () (declare (not safe)) - (##car _%e183552183615%_)))) + (##car _%e182567182630%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183551183618%_)) + _%hd182566182633%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd183551183618%_)) + _%hd182566182633%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183550183620%_)) - (let ((_%e183555183623%_ + _%tl182565182635%_)) + (let ((_%e182570182638%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl183550183620%_)))) - (let ((_%tl183553183628%_ + (gx#stx-e _%tl182565182635%_)))) + (let ((_%tl182568182643%_ (let () (declare (not safe)) - (##cdr _%e183555183623%_))) - (_%hd183554183626%_ + (##cdr _%e182570182638%_))) + (_%hd182569182641%_ (let () (declare (not safe)) - (##car _%e183555183623%_)))) + (##car _%e182570182638%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183554183626%_)) - (let ((_%e183558183631%_ + (gx#stx-pair? _%hd182569182641%_)) + (let ((_%e182573182646%_ (let () (declare (not safe)) - (gx#stx-e _%hd183554183626%_)))) - (let ((_%tl183556183636%_ + (gx#stx-e _%hd182569182641%_)))) + (let ((_%tl182571182651%_ (let () (declare (not safe)) - (##cdr _%e183558183631%_))) - (_%hd183557183634%_ + (##cdr _%e182573182646%_))) + (_%hd182572182649%_ (let () (declare (not safe)) - (##car _%e183558183631%_)))) + (##car _%e182573182646%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183557183634%_)) - (let ((_%e183561183639%_ + (gx#stx-pair? _%hd182572182649%_)) + (let ((_%e182576182654%_ (let () (declare (not safe)) - (gx#stx-e _%hd183557183634%_)))) - (let ((_%tl183559183644%_ + (gx#stx-e _%hd182572182649%_)))) + (let ((_%tl182574182659%_ (let () (declare (not safe)) - (##cdr _%e183561183639%_))) - (_%hd183560183642%_ + (##cdr _%e182576182654%_))) + (_%hd182575182657%_ (let () (declare (not safe)) - (##car _%e183561183639%_)))) + (##car _%e182576182654%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183560183642%_)) - (let ((_%e183564183647%_ + _%hd182575182657%_)) + (let ((_%e182579182662%_ (let () (declare (not safe)) (gx#stx-e - _%hd183560183642%_)))) - (let ((_%tl183562183652%_ + _%hd182575182657%_)))) + (let ((_%tl182577182667%_ (let () (declare (not safe)) - (##cdr _%e183564183647%_))) - (_%hd183563183650%_ + (##cdr _%e182579182662%_))) + (_%hd182578182665%_ (let () (declare (not safe)) - (##car _%e183564183647%_)))) + (##car _%e182579182662%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183562183652%_)) + _%tl182577182667%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183559183644%_)) - (let ((_%e183567183655%_ + _%tl182574182659%_)) + (let ((_%e182582182670%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl183559183644%_)))) - (let ((_%tl183565183660%_ + (gx#stx-e _%tl182574182659%_)))) + (let ((_%tl182580182675%_ (let () (declare (not safe)) - (##cdr _%e183567183655%_))) - (_%hd183566183658%_ + (##cdr _%e182582182670%_))) + (_%hd182581182673%_ (let () (declare (not safe)) - (##car _%e183567183655%_)))) + (##car _%e182582182670%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183565183660%_)) + (gx#stx-null? _%tl182580182675%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183556183636%_)) + (gx#stx-null? _%tl182571182651%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183553183628%_)) - (let ((_%e183570183663%_ + (gx#stx-pair? _%tl182568182643%_)) + (let ((_%e182585182678%_ (let () (declare (not safe)) - (gx#stx-e _%tl183553183628%_)))) - (let ((_%tl183568183668%_ + (gx#stx-e _%tl182568182643%_)))) + (let ((_%tl182583182683%_ (let () (declare (not safe)) - (##cdr _%e183570183663%_))) - (_%hd183569183666%_ + (##cdr _%e182585182678%_))) + (_%hd182584182681%_ (let () (declare (not safe)) - (##car _%e183570183663%_)))) + (##car _%e182585182678%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183568183668%_)) - (_%__kont184037184038%_ - _%hd183569183666%_ - _%hd183566183658%_ - _%hd183563183650%_) + (gx#stx-null? _%tl182583182683%_)) + (_%__kont183052183053%_ + _%hd182584182681%_ + _%hd182581182673%_ + _%hd182578182665%_) (let () (declare (not safe)) - (_%g183544183610%_))))) + (_%g182559182625%_))))) (let () (declare (not safe)) - (_%g183544183610%_))) - (let () (declare (not safe)) (_%g183544183610%_))) - (let () (declare (not safe)) (_%g183544183610%_))))) - (let () (declare (not safe)) (_%g183544183610%_))) + (_%g182559182625%_))) + (let () (declare (not safe)) (_%g182559182625%_))) + (let () (declare (not safe)) (_%g182559182625%_))))) + (let () (declare (not safe)) (_%g182559182625%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g183544183610%_))))) + (_%g182559182625%_))))) (let () (declare (not safe)) - (_%g183544183610%_))))) + (_%g182559182625%_))))) (let () (declare (not safe)) - (_%g183544183610%_))))) + (_%g182559182625%_))))) (let () (declare (not safe)) - (_%g183544183610%_))))) - (let () (declare (not safe)) (_%g183544183610%_))) - (let () (declare (not safe)) (_%g183544183610%_))) + (_%g182559182625%_))))) + (let () (declare (not safe)) (_%g182559182625%_))) + (let () (declare (not safe)) (_%g182559182625%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g183544183610%_))))) + (_%g182559182625%_))))) (let () (declare (not safe)) - (_%g183544183610%_)))))))) - (_%__kont184103184104%_ - (lambda (_%L183262%_ _%L183263%_ _%L183264%_) - (let* ((_%__stx183919183920%_ _%L183263%_) - (_%g183291183340%_ + (_%g182559182625%_)))))))) + (_%__kont183118183119%_ + (lambda (_%L182277%_ _%L182278%_ _%L182279%_) + (let* ((_%__stx182934182935%_ _%L182278%_) + (_%g182306182355%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx183919183920%_))))) - (let ((_%__kont183921183922%_ - (lambda (_%L183468%_ - _%L183469%_ - _%L183470%_) - (let ((__tmp187008 - (cons (cons _%L183264%_ - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L183468%_ '())))) - _%clauses183157%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp187007 - (cons (cons _%L183470%_ - (let () + _%__stx182934182935%_))))) + (let ((_%__kont182936182937%_ + (lambda (_%L182483%_ + _%L182484%_ + _%L182485%_) + (_%lp182168%_ + _%L182277%_ + _%negation182171%_ + (cons (cons _%L182279%_ + (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%L183469%_))) - _%konts183158%_))) + (gx#datum->syntax__0 '#f '%#lambda)) + (cons '() (cons _%L182483%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp183153%_ - _%L183262%_ - _%negation183156%_ - __tmp187008 - __tmp187007)))) - (_%__kont183923183924%_ - (lambda (_%L183369%_) - (let ((__tmp187009 - (cons _%L183264%_ + _%clauses182172%_) + (cons (cons _%L182485%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L183369%_))))) - (declare (not safe)) - (_%lp183153%_ - _%L183262%_ - __tmp187009 - _%clauses183157%_ - _%konts183158%_))))) + _%L182484%_))) + _%konts182173%_)))) + (_%__kont182938182939%_ + (lambda (_%L182384%_) + (_%lp182168%_ + _%L182277%_ + (cons _%L182279%_ + (let () + (declare (not safe)) + (gxc#compile-e__0 + _%L182384%_))) + _%clauses182172%_ + _%konts182173%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx183919183920%_)) - (let ((_%e183298183388%_ + _%__stx182934182935%_)) + (let ((_%e182313182403%_ (let () (declare (not safe)) (gx#stx-e - _%__stx183919183920%_)))) - (let ((_%tl183296183393%_ + _%__stx182934182935%_)))) + (let ((_%tl182311182408%_ (let () (declare (not safe)) - (##cdr _%e183298183388%_))) - (_%hd183297183391%_ + (##cdr _%e182313182403%_))) + (_%hd182312182406%_ (let () (declare (not safe)) - (##car _%e183298183388%_)))) + (##car _%e182313182403%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183297183391%_)) + _%hd182312182406%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd183297183391%_)) + _%hd182312182406%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183296183393%_)) - (let ((_%e183301183396%_ + _%tl182311182408%_)) + (let ((_%e182316182411%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl183296183393%_)))) - (let ((_%tl183299183401%_ + (gx#stx-e _%tl182311182408%_)))) + (let ((_%tl182314182416%_ (let () (declare (not safe)) - (##cdr _%e183301183396%_))) - (_%hd183300183399%_ + (##cdr _%e182316182411%_))) + (_%hd182315182414%_ (let () (declare (not safe)) - (##car _%e183301183396%_)))) + (##car _%e182316182411%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd183300183399%_)) + (gx#stx-null? _%hd182315182414%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183299183401%_)) - (let ((_%e183304183404%_ + (gx#stx-pair? _%tl182314182416%_)) + (let ((_%e182319182419%_ (let () (declare (not safe)) - (gx#stx-e _%tl183299183401%_)))) - (let ((_%tl183302183409%_ + (gx#stx-e _%tl182314182416%_)))) + (let ((_%tl182317182424%_ (let () (declare (not safe)) - (##cdr _%e183304183404%_))) - (_%hd183303183407%_ + (##cdr _%e182319182419%_))) + (_%hd182318182422%_ (let () (declare (not safe)) - (##car _%e183304183404%_)))) + (##car _%e182319182419%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183303183407%_)) - (let ((_%e183307183412%_ + (gx#stx-pair? _%hd182318182422%_)) + (let ((_%e182322182427%_ (let () (declare (not safe)) - (gx#stx-e _%hd183303183407%_)))) - (let ((_%tl183305183417%_ + (gx#stx-e _%hd182318182422%_)))) + (let ((_%tl182320182432%_ (let () (declare (not safe)) - (##cdr _%e183307183412%_))) - (_%hd183306183415%_ + (##cdr _%e182322182427%_))) + (_%hd182321182430%_ (let () (declare (not safe)) - (##car _%e183307183412%_)))) + (##car _%e182322182427%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183306183415%_)) + _%hd182321182430%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd183306183415%_)) + _%hd182321182430%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183305183417%_)) - (let ((_%e183310183420%_ + _%tl182320182432%_)) + (let ((_%e182325182435%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl183305183417%_)))) - (let ((_%tl183308183425%_ - (let () (declare (not safe)) (##cdr _%e183310183420%_))) - (_%hd183309183423%_ + (gx#stx-e _%tl182320182432%_)))) + (let ((_%tl182323182440%_ + (let () (declare (not safe)) (##cdr _%e182325182435%_))) + (_%hd182324182438%_ (let () (declare (not safe)) - (##car _%e183310183420%_)))) + (##car _%e182325182435%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183309183423%_)) - (let ((_%e183313183428%_ + (gx#stx-pair? _%hd182324182438%_)) + (let ((_%e182328182443%_ (let () (declare (not safe)) - (gx#stx-e _%hd183309183423%_)))) - (let ((_%tl183311183433%_ + (gx#stx-e _%hd182324182438%_)))) + (let ((_%tl182326182448%_ (let () (declare (not safe)) - (##cdr _%e183313183428%_))) - (_%hd183312183431%_ + (##cdr _%e182328182443%_))) + (_%hd182327182446%_ (let () (declare (not safe)) - (##car _%e183313183428%_)))) + (##car _%e182328182443%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183312183431%_)) - (let ((_%e183316183436%_ + (gx#stx-pair? _%hd182327182446%_)) + (let ((_%e182331182451%_ (let () (declare (not safe)) - (gx#stx-e _%hd183312183431%_)))) - (let ((_%tl183314183441%_ + (gx#stx-e _%hd182327182446%_)))) + (let ((_%tl182329182456%_ (let () (declare (not safe)) - (##cdr _%e183316183436%_))) - (_%hd183315183439%_ + (##cdr _%e182331182451%_))) + (_%hd182330182454%_ (let () (declare (not safe)) - (##car _%e183316183436%_)))) + (##car _%e182331182451%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183315183439%_)) - (let ((_%e183319183444%_ + (gx#stx-pair? _%hd182330182454%_)) + (let ((_%e182334182459%_ (let () (declare (not safe)) - (gx#stx-e _%hd183315183439%_)))) - (let ((_%tl183317183449%_ + (gx#stx-e _%hd182330182454%_)))) + (let ((_%tl182332182464%_ (let () (declare (not safe)) - (##cdr _%e183319183444%_))) - (_%hd183318183447%_ + (##cdr _%e182334182459%_))) + (_%hd182333182462%_ (let () (declare (not safe)) - (##car _%e183319183444%_)))) + (##car _%e182334182459%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183317183449%_)) + _%tl182332182464%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183314183441%_)) - (let ((_%e183322183452%_ + _%tl182329182456%_)) + (let ((_%e182337182467%_ (let () (declare (not safe)) (gx#stx-e - _%tl183314183441%_)))) - (let ((_%tl183320183457%_ + _%tl182329182456%_)))) + (let ((_%tl182335182472%_ (let () (declare (not safe)) - (##cdr _%e183322183452%_))) - (_%hd183321183455%_ + (##cdr _%e182337182467%_))) + (_%hd182336182470%_ (let () (declare (not safe)) - (##car _%e183322183452%_)))) + (##car _%e182337182467%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183320183457%_)) + _%tl182335182472%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl183311183433%_)) + (gx#stx-null? _%tl182326182448%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183308183425%_)) - (let ((_%e183325183460%_ + (gx#stx-pair? _%tl182323182440%_)) + (let ((_%e182340182475%_ (let () (declare (not safe)) - (gx#stx-e _%tl183308183425%_)))) - (let ((_%tl183323183465%_ + (gx#stx-e _%tl182323182440%_)))) + (let ((_%tl182338182480%_ (let () (declare (not safe)) - (##cdr _%e183325183460%_))) - (_%hd183324183463%_ + (##cdr _%e182340182475%_))) + (_%hd182339182478%_ (let () (declare (not safe)) - (##car _%e183325183460%_)))) + (##car _%e182340182475%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183323183465%_)) + (gx#stx-null? _%tl182338182480%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183302183409%_)) - (_%__kont183921183922%_ - _%hd183324183463%_ - _%hd183321183455%_ - _%hd183318183447%_) + (gx#stx-null? _%tl182317182424%_)) + (_%__kont182936182937%_ + _%hd182339182478%_ + _%hd182336182470%_ + _%hd182333182462%_) (let () (declare (not safe)) - (_%g183291183340%_))) + (_%g182306182355%_))) (let () (declare (not safe)) - (_%g183291183340%_))))) - (let () (declare (not safe)) (_%g183291183340%_))) - (let () (declare (not safe)) (_%g183291183340%_))) - (let () (declare (not safe)) (_%g183291183340%_))))) + (_%g182306182355%_))))) + (let () (declare (not safe)) (_%g182306182355%_))) + (let () (declare (not safe)) (_%g182306182355%_))) + (let () (declare (not safe)) (_%g182306182355%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g183291183340%_))) + (_%g182306182355%_))) (let () (declare (not safe)) - (_%g183291183340%_))))) + (_%g182306182355%_))))) (let () (declare (not safe)) - (_%g183291183340%_))))) + (_%g182306182355%_))))) (let () (declare (not safe)) - (_%g183291183340%_))))) - (let () (declare (not safe)) (_%g183291183340%_))))) - (let () (declare (not safe)) (_%g183291183340%_))) + (_%g182306182355%_))))) + (let () (declare (not safe)) (_%g182306182355%_))))) + (let () (declare (not safe)) (_%g182306182355%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g183291183340%_))) + (_%g182306182355%_))) (let () (declare (not safe)) - (_%g183291183340%_))))) + (_%g182306182355%_))))) (let () (declare (not safe)) - (_%g183291183340%_))))) + (_%g182306182355%_))))) (let () (declare (not safe)) - (_%g183291183340%_))) - (let () (declare (not safe)) (_%g183291183340%_))))) - (let () (declare (not safe)) (_%g183291183340%_))) + (_%g182306182355%_))) + (let () (declare (not safe)) (_%g182306182355%_))))) + (let () (declare (not safe)) (_%g182306182355%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _%hd183297183391%_)) + (gx#stx-eq? '%#begin-annotation _%hd182312182406%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183296183393%_)) - (let ((_%e183332183353%_ + (gx#stx-pair? _%tl182311182408%_)) + (let ((_%e182347182368%_ (let () (declare (not safe)) - (gx#stx-e _%tl183296183393%_)))) - (let ((_%tl183330183358%_ + (gx#stx-e _%tl182311182408%_)))) + (let ((_%tl182345182373%_ (let () (declare (not safe)) - (##cdr _%e183332183353%_))) - (_%hd183331183356%_ + (##cdr _%e182347182368%_))) + (_%hd182346182371%_ (let () (declare (not safe)) - (##car _%e183332183353%_)))) + (##car _%e182347182368%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183331183356%_)) + (gx#identifier? _%hd182346182371%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-else - _%hd183331183356%_)) + _%hd182346182371%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183330183358%_)) - (let ((_%e183335183361%_ + (gx#stx-pair? _%tl182345182373%_)) + (let ((_%e182350182376%_ (let () (declare (not safe)) - (gx#stx-e _%tl183330183358%_)))) - (let ((_%tl183333183366%_ + (gx#stx-e _%tl182345182373%_)))) + (let ((_%tl182348182381%_ (let () (declare (not safe)) - (##cdr _%e183335183361%_))) - (_%hd183334183364%_ + (##cdr _%e182350182376%_))) + (_%hd182349182379%_ (let () (declare (not safe)) - (##car _%e183335183361%_)))) + (##car _%e182350182376%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183333183366%_)) - (_%__kont183923183924%_ - _%hd183334183364%_) + _%tl182348182381%_)) + (_%__kont182938182939%_ + _%hd182349182379%_) (let () (declare (not safe)) - (_%g183291183340%_))))) + (_%g182306182355%_))))) (let () (declare (not safe)) - (_%g183291183340%_))) + (_%g182306182355%_))) (let () (declare (not safe)) - (_%g183291183340%_))) + (_%g182306182355%_))) (let () (declare (not safe)) - (_%g183291183340%_))))) - (let () (declare (not safe)) (_%g183291183340%_))) - (let () (declare (not safe)) (_%g183291183340%_)))) + (_%g182306182355%_))))) + (let () (declare (not safe)) (_%g182306182355%_))) + (let () (declare (not safe)) (_%g182306182355%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g183291183340%_))))) + (_%g182306182355%_))))) (let () (declare (not safe)) - (_%g183291183340%_)))))))) + (_%g182306182355%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx184099184100%_)) - (let ((_%e183166183507%_ + (gx#stx-pair? _%__stx183114183115%_)) + (let ((_%e182181182522%_ (let () (declare (not safe)) - (gx#stx-e _%__stx184099184100%_)))) - (let ((_%tl183164183512%_ + (gx#stx-e _%__stx183114183115%_)))) + (let ((_%tl182179182527%_ (let () (declare (not safe)) - (##cdr _%e183166183507%_))) - (_%hd183165183510%_ + (##cdr _%e182181182522%_))) + (_%hd182180182525%_ (let () (declare (not safe)) - (##car _%e183166183507%_)))) + (##car _%e182181182522%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183165183510%_)) + (gx#identifier? _%hd182180182525%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _%hd183165183510%_)) + _%hd182180182525%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183164183512%_)) - (let ((_%e183169183515%_ + _%tl182179182527%_)) + (let ((_%e182184182530%_ (let () (declare (not safe)) (gx#stx-e - _%tl183164183512%_)))) - (let ((_%tl183167183520%_ + _%tl182179182527%_)))) + (let ((_%tl182182182535%_ (let () (declare (not safe)) - (##cdr _%e183169183515%_))) - (_%hd183168183518%_ + (##cdr _%e182184182530%_))) + (_%hd182183182533%_ (let () (declare (not safe)) - (##car _%e183169183515%_)))) + (##car _%e182184182530%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183168183518%_)) + _%hd182183182533%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _%hd183168183518%_)) + _%hd182183182533%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl183167183520%_)) - (let ((_%e183172183523%_ + (gx#stx-pair? _%tl182182182535%_)) + (let ((_%e182187182538%_ (let () (declare (not safe)) - (gx#stx-e _%tl183167183520%_)))) - (let ((_%tl183170183528%_ + (gx#stx-e _%tl182182182535%_)))) + (let ((_%tl182185182543%_ (let () (declare (not safe)) - (##cdr _%e183172183523%_))) - (_%hd183171183526%_ + (##cdr _%e182187182538%_))) + (_%hd182186182541%_ (let () (declare (not safe)) - (##car _%e183172183523%_)))) + (##car _%e182187182538%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183170183528%_)) - (_%__kont184101184102%_ _%hd183171183526%_) + (gx#stx-null? _%tl182185182543%_)) + (_%__kont183116183117%_ _%hd182186182541%_) (let () (declare (not safe)) - (_%g183161183201%_))))) - (let () (declare (not safe)) (_%g183161183201%_))) - (let () (declare (not safe)) (_%g183161183201%_))) - (let () (declare (not safe)) (_%g183161183201%_))))) + (_%g182176182216%_))))) + (let () (declare (not safe)) (_%g182176182216%_))) + (let () (declare (not safe)) (_%g182176182216%_))) + (let () (declare (not safe)) (_%g182176182216%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g183161183201%_))) + (_%g182176182216%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd183165183510%_)) + _%hd182180182525%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183164183512%_)) - (let ((_%e183181183214%_ + _%tl182179182527%_)) + (let ((_%e182196182229%_ (let () (declare (not safe)) (gx#stx-e - _%tl183164183512%_)))) - (let ((_%tl183179183219%_ + _%tl182179182527%_)))) + (let ((_%tl182194182234%_ (let () (declare (not safe)) - (##cdr _%e183181183214%_))) - (_%hd183180183217%_ + (##cdr _%e182196182229%_))) + (_%hd182195182232%_ (let () (declare (not safe)) - (##car _%e183181183214%_)))) + (##car _%e182196182229%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183180183217%_)) - (let ((_%e183184183222%_ + _%hd182195182232%_)) + (let ((_%e182199182237%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd183180183217%_)))) - (let ((_%tl183182183227%_ + (gx#stx-e _%hd182195182232%_)))) + (let ((_%tl182197182242%_ (let () (declare (not safe)) - (##cdr _%e183184183222%_))) - (_%hd183183183225%_ + (##cdr _%e182199182237%_))) + (_%hd182198182240%_ (let () (declare (not safe)) - (##car _%e183184183222%_)))) + (##car _%e182199182237%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183183183225%_)) - (let ((_%e183187183230%_ + (gx#stx-pair? _%hd182198182240%_)) + (let ((_%e182202182245%_ (let () (declare (not safe)) - (gx#stx-e _%hd183183183225%_)))) - (let ((_%tl183185183235%_ + (gx#stx-e _%hd182198182240%_)))) + (let ((_%tl182200182250%_ (let () (declare (not safe)) - (##cdr _%e183187183230%_))) - (_%hd183186183233%_ + (##cdr _%e182202182245%_))) + (_%hd182201182248%_ (let () (declare (not safe)) - (##car _%e183187183230%_)))) + (##car _%e182202182245%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183186183233%_)) - (let ((_%e183190183238%_ + (gx#stx-pair? _%hd182201182248%_)) + (let ((_%e182205182253%_ (let () (declare (not safe)) - (gx#stx-e _%hd183186183233%_)))) - (let ((_%tl183188183243%_ + (gx#stx-e _%hd182201182248%_)))) + (let ((_%tl182203182258%_ (let () (declare (not safe)) - (##cdr _%e183190183238%_))) - (_%hd183189183241%_ + (##cdr _%e182205182253%_))) + (_%hd182204182256%_ (let () (declare (not safe)) - (##car _%e183190183238%_)))) + (##car _%e182205182253%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183188183243%_)) + (gx#stx-null? _%tl182203182258%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183185183235%_)) - (let ((_%e183193183246%_ + _%tl182200182250%_)) + (let ((_%e182208182261%_ (let () (declare (not safe)) (gx#stx-e - _%tl183185183235%_)))) - (let ((_%tl183191183251%_ + _%tl182200182250%_)))) + (let ((_%tl182206182266%_ (let () (declare (not safe)) - (##cdr _%e183193183246%_))) - (_%hd183192183249%_ + (##cdr _%e182208182261%_))) + (_%hd182207182264%_ (let () (declare (not safe)) - (##car _%e183193183246%_)))) + (##car _%e182208182261%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183191183251%_)) + _%tl182206182266%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183182183227%_)) + _%tl182197182242%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl183179183219%_)) - (let ((_%e183196183254%_ + (gx#stx-pair? _%tl182194182234%_)) + (let ((_%e182211182269%_ (let () (declare (not safe)) - (gx#stx-e _%tl183179183219%_)))) - (let ((_%tl183194183259%_ + (gx#stx-e _%tl182194182234%_)))) + (let ((_%tl182209182274%_ (let () (declare (not safe)) - (##cdr _%e183196183254%_))) - (_%hd183195183257%_ + (##cdr _%e182211182269%_))) + (_%hd182210182272%_ (let () (declare (not safe)) - (##car _%e183196183254%_)))) + (##car _%e182211182269%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183194183259%_)) - (_%__kont184103184104%_ - _%hd183195183257%_ - _%hd183192183249%_ - _%hd183189183241%_) + (gx#stx-null? _%tl182209182274%_)) + (_%__kont183118183119%_ + _%hd182210182272%_ + _%hd182207182264%_ + _%hd182204182256%_) (let () (declare (not safe)) - (_%g183161183201%_))))) - (let () (declare (not safe)) (_%g183161183201%_))) - (let () (declare (not safe)) (_%g183161183201%_))) - (let () (declare (not safe)) (_%g183161183201%_))))) + (_%g182176182216%_))))) + (let () (declare (not safe)) (_%g182176182216%_))) + (let () (declare (not safe)) (_%g182176182216%_))) + (let () (declare (not safe)) (_%g182176182216%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g183161183201%_))) + (_%g182176182216%_))) (let () (declare (not safe)) - (_%g183161183201%_))))) + (_%g182176182216%_))))) (let () (declare (not safe)) - (_%g183161183201%_))))) - (let () (declare (not safe)) (_%g183161183201%_))))) - (let () (declare (not safe)) (_%g183161183201%_))))) + (_%g182176182216%_))))) + (let () (declare (not safe)) (_%g182176182216%_))))) + (let () (declare (not safe)) (_%g182176182216%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g183161183201%_))) + (_%g182176182216%_))) (let () (declare (not safe)) - (_%g183161183201%_)))) + (_%g182176182216%_)))) (let () (declare (not safe)) - (_%g183161183201%_))))) + (_%g182176182216%_))))) (let () (declare (not safe)) - (_%g183161183201%_))))))) - _%hd183060183122%_ - _%hd183057183114%_ - _%hd183054183106%_) - (let () - (declare (not safe)) - (_%g183036183066%_ _%g183037183069%_))))) + (_%g182176182216%_))))))) + _%hd182075182137%_ + _%hd182072182129%_ + _%hd182069182121%_) + (_%g182051182081%_ _%g182052182084%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g183036183066%_ - _%g183037183069%_))) - (let () - (declare (not safe)) - (_%g183036183066%_ - _%g183037183069%_))) - (let () - (declare (not safe)) - (_%g183036183066%_ - _%g183037183069%_))))) - (let () - (declare (not safe)) - (_%g183036183066%_ _%g183037183069%_))) - (let () - (declare (not safe)) - (_%g183036183066%_ _%g183037183069%_))))) - (let () - (declare (not safe)) - (_%g183036183066%_ _%g183037183069%_))))) - (let () - (declare (not safe)) - (_%g183036183066%_ _%g183037183069%_))))) + (_%g182051182081%_ + _%g182052182084%_)) + (_%g182051182081%_ + _%g182052182084%_)) + (_%g182051182081%_ + _%g182052182084%_)))) + (_%g182051182081%_ _%g182052182084%_)) + (_%g182051182081%_ _%g182052182084%_)))) + (_%g182051182081%_ _%g182052182084%_)))) + (_%g182051182081%_ _%g182052182084%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g183036183066%_ - _%g183037183069%_))))) - (let () - (declare (not safe)) - (_%g183036183066%_ _%g183037183069%_))) - (let () - (declare (not safe)) - (_%g183036183066%_ _%g183037183069%_))) - (let () - (declare (not safe)) - (_%g183036183066%_ _%g183037183069%_))))) - (let () - (declare (not safe)) - (_%g183036183066%_ _%g183037183069%_)))))) - (declare (not safe)) - (_%g183035183732%_ _%stx183034%_)))) + (_%g182051182081%_ + _%g182052182084%_)))) + (_%g182051182081%_ _%g182052182084%_)) + (_%g182051182081%_ _%g182052182084%_)) + (_%g182051182081%_ _%g182052182084%_)))) + (_%g182051182081%_ _%g182052182084%_))))) + (_%g182050182747%_ _%stx182049%_)))) (define gxc#optimize-match-body - (lambda (_%stx182740%_ - _%negation182741%_ - _%clauses182742%_ - _%konts182743%_) - (letrec ((_%push-variables182745%_ - (lambda (_%clause182992%_ _%kont182993%_) - (let ((_%clause182994183004%_ _%clause182992%_) - (_%kont182995183006%_ _%kont182993%_)) - (let* ((_%E182997183010%_ + (lambda (_%stx181755%_ + _%negation181756%_ + _%clauses181757%_ + _%konts181758%_) + (letrec ((_%push-variables181760%_ + (lambda (_%clause182007%_ _%kont182008%_) + (let ((_%clause182009182019%_ _%clause182007%_) + (_%kont182010182021%_ _%kont182008%_)) + (let* ((_%E182012182025%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause182994183004%_ - _%kont182995183006%_ + _%clause182009182019%_ + _%kont182010182021%_ '([clause-name . clause-lambda] [K . _]))) '#!void)) - (_%K182998183017%_ - (lambda (_%clause-lambda183013%_ - _%clause-name183014%_ - _%K183015%_) - (cons _%clause-name183014%_ - (let () - (declare (not safe)) - (gxc#apply-push-match-vars__% - '#f - '() - _%K183015%_ - _%clause-lambda183013%_)))))) + (_%K182013182032%_ + (lambda (_%clause-lambda182028%_ + _%clause-name182029%_ + _%K182030%_) + (cons _%clause-name182029%_ + (gxc#apply-push-match-vars__% + '#f + '() + _%K182030%_ + _%clause-lambda182028%_))))) (if (let () (declare (not safe)) - (##pair? _%clause182994183004%_)) - (let ((_%hd183001183020%_ + (##pair? _%clause182009182019%_)) + (let ((_%hd182016182035%_ (let () (declare (not safe)) - (##car _%clause182994183004%_))) - (_%tl183002183022%_ + (##car _%clause182009182019%_))) + (_%tl182017182037%_ (let () (declare (not safe)) - (##cdr _%clause182994183004%_)))) - (let* ((_%clause-name183025%_ _%hd183001183020%_) - (_%clause-lambda183027%_ - _%tl183002183022%_)) + (##cdr _%clause182009182019%_)))) + (let* ((_%clause-name182040%_ _%hd182016182035%_) + (_%clause-lambda182042%_ + _%tl182017182037%_)) (if (let () (declare (not safe)) - (##pair? _%kont182995183006%_)) - (let* ((_%hd182999183029%_ + (##pair? _%kont182010182021%_)) + (let* ((_%hd182014182044%_ (let () (declare (not safe)) - (##car _%kont182995183006%_))) - (_%K183032%_ _%hd182999183029%_)) - (declare (not safe)) - (_%K182998183017%_ - _%clause-lambda183027%_ - _%clause-name183025%_ - _%K183032%_)) - (let () - (declare (not safe)) - (_%E182997183010%_))))) - (let () - (declare (not safe)) - (_%E182997183010%_))))))) - (_%start-match182746%_ - (lambda (_%kont182926%_) - (let* ((_%g182928182944%_ - (lambda (_%g182929182941%_) + (##car _%kont182010182021%_))) + (_%K182047%_ _%hd182014182044%_)) + (_%K182013182032%_ + _%clause-lambda182042%_ + _%clause-name182040%_ + _%K182047%_)) + (_%E182012182025%_)))) + (_%E182012182025%_)))))) + (_%start-match181761%_ + (lambda (_%kont181941%_) + (let* ((_%g181943181959%_ + (lambda (_%g181944181956%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g182929182941%_)))) - (_%g182927182989%_ - (lambda (_%g182929182947%_) + _%g181944181956%_)))) + (_%g181942182004%_ + (lambda (_%g181944181962%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g182929182947%_)) - (let ((_%e182933182949%_ + (gx#stx-pair? _%g181944181962%_)) + (let ((_%e181948181964%_ (let () (declare (not safe)) - (gx#stx-e _%g182929182947%_)))) - (let ((_%hd182932182952%_ + (gx#stx-e _%g181944181962%_)))) + (let ((_%hd181947181967%_ (let () (declare (not safe)) - (##car _%e182933182949%_))) - (_%tl182931182954%_ + (##car _%e181948181964%_))) + (_%tl181946181969%_ (let () (declare (not safe)) - (##cdr _%e182933182949%_)))) + (##cdr _%e181948181964%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182932182952%_)) + _%hd181947181967%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd182932182952%_)) + _%hd181947181967%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182931182954%_)) - (let ((_%e182936182957%_ + _%tl181946181969%_)) + (let ((_%e181951181972%_ (let () (declare (not safe)) (gx#stx-e - _%tl182931182954%_)))) - (let ((_%hd182935182960%_ + _%tl181946181969%_)))) + (let ((_%hd181950181975%_ (let () (declare (not safe)) - (##car _%e182936182957%_))) - (_%tl182934182962%_ + (##car _%e181951181972%_))) + (_%tl181949181977%_ (let () (declare (not safe)) - (##cdr _%e182936182957%_)))) + (##cdr _%e181951181972%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd182935182960%_)) + _%hd181950181975%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl182934182962%_)) - (let ((_%e182939182965%_ + (gx#stx-pair? _%tl181949181977%_)) + (let ((_%e181954181980%_ (let () (declare (not safe)) - (gx#stx-e _%tl182934182962%_)))) - (let ((_%hd182938182968%_ + (gx#stx-e _%tl181949181977%_)))) + (let ((_%hd181953181983%_ (let () (declare (not safe)) - (##car _%e182939182965%_))) - (_%tl182937182970%_ + (##car _%e181954181980%_))) + (_%tl181952181985%_ (let () (declare (not safe)) - (##cdr _%e182939182965%_)))) + (##cdr _%e181954181980%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182937182970%_)) - ((lambda (_%L182973%_) _%L182973%_) - _%hd182938182968%_) - (let () - (declare (not safe)) - (_%g182928182944%_ _%g182929182947%_))))) - (let () - (declare (not safe)) - (_%g182928182944%_ _%g182929182947%_))) - (let () - (declare (not safe)) - (_%g182928182944%_ _%g182929182947%_))))) + (gx#stx-null? _%tl181952181985%_)) + ((lambda (_%L181988%_) _%L181988%_) + _%hd181953181983%_) + (_%g181943181959%_ _%g181944181962%_)))) + (_%g181943181959%_ _%g181944181962%_)) + (_%g181943181959%_ _%g181944181962%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g182928182944%_ - _%g182929182947%_))) - (let () - (declare (not safe)) - (_%g182928182944%_ - _%g182929182947%_))) - (let () - (declare (not safe)) - (_%g182928182944%_ - _%g182929182947%_))))) - (let () - (declare (not safe)) - (_%g182928182944%_ _%g182929182947%_)))))) - (declare (not safe)) - (_%g182927182989%_ _%kont182926%_)))) - (_%match-body182747%_ - (lambda (_%blocks182823%_) - (let* ((_%blocks182824182833%_ _%blocks182823%_) - (_%E182826182837%_ + (_%g181943181959%_ + _%g181944181962%_)) + (_%g181943181959%_ + _%g181944181962%_)) + (_%g181943181959%_ + _%g181944181962%_)))) + (_%g181943181959%_ _%g181944181962%_))))) + (_%g181942182004%_ _%kont181941%_)))) + (_%match-body181762%_ + (lambda (_%blocks181838%_) + (let* ((_%blocks181839181848%_ _%blocks181838%_) + (_%E181841181852%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%blocks182824182833%_ + _%blocks181839181848%_ '([[#f . start] . rest]))) '#!void)) - (_%K182827182909%_ - (lambda (_%rest182840%_ _%start182841%_) - (let _%lp182843%_ ((_%rest182845%_ - _%rest182840%_) - (_%body182846%_ - (let () - (declare (not safe)) - (_%start-match182746%_ - _%start182841%_)))) - (let* ((_%rest182847182855%_ _%rest182845%_) - (_%else182849182863%_ - (lambda () _%body182846%_)) - (_%K182851182897%_ - (lambda (_%rest182866%_ - _%block182867%_) - (let* ((_%block182868182875%_ - _%block182867%_) - (_%E182870182879%_ + (_%K181842181924%_ + (lambda (_%rest181855%_ _%start181856%_) + (let _%lp181858%_ ((_%rest181860%_ + _%rest181855%_) + (_%body181861%_ + (_%start-match181761%_ + _%start181856%_))) + (let* ((_%rest181862181870%_ _%rest181860%_) + (_%else181864181878%_ + (lambda () _%body181861%_)) + (_%K181866181912%_ + (lambda (_%rest181881%_ + _%block181882%_) + (let* ((_%block181883181890%_ + _%block181882%_) + (_%E181885181894%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block182868182875%_ + _%block181883181890%_ '([K . kont]))) '#!void)) - (_%K182871182885%_ - (lambda (_%kont182882%_ - _%K182883%_) - (let ((__tmp187010 - (cons '%#let-values + (_%K181886181900%_ + (lambda (_%kont181897%_ + _%K181898%_) + (_%lp181858%_ + _%rest181881%_ + (cons '%#let-values + (cons (cons (cons (cons _%K181898%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%K182883%_ '()) - (cons _%kont182882%_ '())) - '()) - (cons _%body182846%_ '()))))) - (declare (not safe)) - (_%lp182843%_ _%rest182866%_ __tmp187010))))) + '()) + (cons _%kont181897%_ '())) + '()) + (cons _%body181861%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%block182868182875%_)) - (let ((_%hd182872182888%_ + (##pair? _%block181883181890%_)) + (let ((_%hd181887181903%_ (let () (declare (not safe)) - (##car _%block182868182875%_))) - (_%tl182873182890%_ + (##car _%block181883181890%_))) + (_%tl181888181905%_ (let () (declare (not safe)) - (##cdr _%block182868182875%_)))) - (let* ((_%K182893%_ - _%hd182872182888%_) - (_%kont182895%_ - _%tl182873182890%_)) - (declare (not safe)) - (_%K182871182885%_ - _%kont182895%_ - _%K182893%_))) - (let () - (declare (not safe)) - (_%E182870182879%_))))))) + (##cdr _%block181883181890%_)))) + (let* ((_%K181908%_ + _%hd181887181903%_) + (_%kont181910%_ + _%tl181888181905%_)) + (_%K181886181900%_ + _%kont181910%_ + _%K181908%_))) + (_%E181885181894%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest182847182855%_)) - (let ((_%hd182852182900%_ + (##pair? _%rest181862181870%_)) + (let ((_%hd181867181915%_ (let () (declare (not safe)) - (##car _%rest182847182855%_))) - (_%tl182853182902%_ + (##car _%rest181862181870%_))) + (_%tl181868181917%_ (let () (declare (not safe)) - (##cdr _%rest182847182855%_)))) - (let* ((_%block182905%_ - _%hd182852182900%_) - (_%rest182907%_ - _%tl182853182902%_)) - (declare (not safe)) - (_%K182851182897%_ - _%rest182907%_ - _%block182905%_))) - (let () - (declare (not safe)) - (_%else182849182863%_)))))))) + (##cdr _%rest181862181870%_)))) + (let* ((_%block181920%_ + _%hd181867181915%_) + (_%rest181922%_ + _%tl181868181917%_)) + (_%K181866181912%_ + _%rest181922%_ + _%block181920%_))) + (_%else181864181878%_))))))) (if (let () (declare (not safe)) - (##pair? _%blocks182824182833%_)) - (let ((_%hd182828182912%_ + (##pair? _%blocks181839181848%_)) + (let ((_%hd181843181927%_ (let () (declare (not safe)) - (##car _%blocks182824182833%_))) - (_%tl182829182914%_ + (##car _%blocks181839181848%_))) + (_%tl181844181929%_ (let () (declare (not safe)) - (##cdr _%blocks182824182833%_)))) + (##cdr _%blocks181839181848%_)))) (if (let () (declare (not safe)) - (##pair? _%hd182828182912%_)) - (let ((_%hd182830182917%_ + (##pair? _%hd181843181927%_)) + (let ((_%hd181845181932%_ (let () (declare (not safe)) - (##car _%hd182828182912%_))) - (_%tl182831182919%_ + (##car _%hd181843181927%_))) + (_%tl181846181934%_ (let () (declare (not safe)) - (##cdr _%hd182828182912%_)))) + (##cdr _%hd181843181927%_)))) (if (let () (declare (not safe)) - (##eq? _%hd182830182917%_ '#f)) - (let* ((_%start182922%_ - _%tl182831182919%_) - (_%rest182924%_ - _%tl182829182914%_)) - (declare (not safe)) - (_%K182827182909%_ - _%rest182924%_ - _%start182922%_)) - (let () - (declare (not safe)) - (_%E182826182837%_)))) - (let () - (declare (not safe)) - (_%E182826182837%_)))) - (let () - (declare (not safe)) - (_%E182826182837%_))))))) - (let ((__tmp187012 + (##eq? _%hd181845181932%_ '#f)) + (let* ((_%start181937%_ + _%tl181846181934%_) + (_%rest181939%_ + _%tl181844181929%_)) + (_%K181842181924%_ + _%rest181939%_ + _%start181937%_)) + (_%E181841181852%_))) + (_%E181841181852%_))) + (_%E181841181852%_)))))) + (let ((__tmp186021 (lambda () - (let* ((_%clauses182750%_ - (map _%push-variables182745%_ - _%clauses182742%_ - _%konts182743%_)) - (_%blocks182752%_ - (let () - (declare (not safe)) - (gxc#optimize-match-basic-blocks - _%clauses182750%_))) - (_%blocks182754%_ - (let () - (declare (not safe)) - (gxc#optimize-match-fold-basic-blocks - _%blocks182752%_))) - (_%body182756%_ - (let () - (declare (not safe)) - (_%match-body182747%_ _%blocks182754%_))) - (_%bind182790%_ - (map (lambda (_%e182757182759%_) - (let* ((_%g182761182768%_ _%e182757182759%_) - (_%E182763182772%_ + (let* ((_%clauses181765%_ + (map _%push-variables181760%_ + _%clauses181757%_ + _%konts181758%_)) + (_%blocks181767%_ + (gxc#optimize-match-basic-blocks _%clauses181765%_)) + (_%blocks181769%_ + (gxc#optimize-match-fold-basic-blocks + _%blocks181767%_)) + (_%body181771%_ + (_%match-body181762%_ _%blocks181769%_)) + (_%bind181805%_ + (map (lambda (_%e181772181774%_) + (let* ((_%g181776181783%_ _%e181772181774%_) + (_%E181778181787%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g182761182768%_ + _%g181776181783%_ '([K . kont]))) '#!void)) - (_%K182764182778%_ - (lambda (_%kont182775%_ _%K182776%_) - (cons (cons _%K182776%_ '()) - (cons _%kont182775%_ '()))))) + (_%K181779181793%_ + (lambda (_%kont181790%_ _%K181791%_) + (cons (cons _%K181791%_ '()) + (cons _%kont181790%_ '()))))) (if (let () (declare (not safe)) - (##pair? _%g182761182768%_)) - (let ((_%hd182765182781%_ + (##pair? _%g181776181783%_)) + (let ((_%hd181780181796%_ (let () (declare (not safe)) - (##car _%g182761182768%_))) - (_%tl182766182783%_ + (##car _%g181776181783%_))) + (_%tl181781181798%_ (let () (declare (not safe)) - (##cdr _%g182761182768%_)))) - (let* ((_%K182786%_ - _%hd182765182781%_) - (_%kont182788%_ - _%tl182766182783%_)) - (declare (not safe)) - (_%K182764182778%_ - _%kont182788%_ - _%K182786%_))) - (let () - (declare (not safe)) - (_%E182763182772%_))))) - _%konts182743%_)) - (_%negate182820%_ - (let* ((_%negation182791182798%_ _%negation182741%_) - (_%E182793182802%_ + (##cdr _%g181776181783%_)))) + (let* ((_%K181801%_ + _%hd181780181796%_) + (_%kont181803%_ + _%tl181781181798%_)) + (_%K181779181793%_ + _%kont181803%_ + _%K181801%_))) + (_%E181778181787%_)))) + _%konts181758%_)) + (_%negate181835%_ + (let* ((_%negation181806181813%_ _%negation181756%_) + (_%E181808181817%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation182791182798%_ + _%negation181806181813%_ '([K . kont]))) '#!void)) - (_%K182794182808%_ - (lambda (_%kont182805%_ _%K182806%_) - (cons (cons _%K182806%_ '()) - (cons _%kont182805%_ '()))))) + (_%K181809181823%_ + (lambda (_%kont181820%_ _%K181821%_) + (cons (cons _%K181821%_ '()) + (cons _%kont181820%_ '()))))) (if (let () (declare (not safe)) - (##pair? _%negation182791182798%_)) - (let ((_%hd182795182811%_ + (##pair? _%negation181806181813%_)) + (let ((_%hd181810181826%_ (let () (declare (not safe)) - (##car _%negation182791182798%_))) - (_%tl182796182813%_ + (##car _%negation181806181813%_))) + (_%tl181811181828%_ (let () (declare (not safe)) - (##cdr _%negation182791182798%_)))) - (let* ((_%K182816%_ _%hd182795182811%_) - (_%kont182818%_ _%tl182796182813%_)) - (declare (not safe)) - (_%K182794182808%_ - _%kont182818%_ - _%K182816%_))) - (let () - (declare (not safe)) - (_%E182793182802%_))))) - (__tmp187013 + (##cdr _%negation181806181813%_)))) + (let* ((_%K181831%_ _%hd181810181826%_) + (_%kont181833%_ _%tl181811181828%_)) + (_%K181809181823%_ + _%kont181833%_ + _%K181831%_))) + (_%E181808181817%_)))) + (__tmp186022 (cons '%#let-values - (cons (cons _%negate182820%_ '()) + (cons (cons _%negate181835%_ '()) (cons (cons '%#let-values - (cons _%bind182790%_ - (cons _%body182756%_ + (cons _%bind181805%_ + (cons _%body181771%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp187013 _%stx182740%_)))) - (__tmp187011 - (let ((__obj186986 + (gxc#xform-wrap-source __tmp186022 _%stx181755%_)))) + (__tmp186020 + (let ((__obj186001 (let () (declare (not safe)) (##structure @@ -1968,2102 +1868,1932 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj186986) - __obj186986))) + (gx#local-context:::init! __obj186001) + __obj186001))) (declare (not safe)) (__call-with-parameters - __tmp187012 + __tmp186021 gx#current-expander-context - __tmp187011))))) + __tmp186020))))) (define gxc#optimize-match-basic-blocks - (lambda (_%clauses182700%_) - (let _%lp182702%_ ((_%rest182704%_ _%clauses182700%_) - (_%blocks182705%_ '())) - (let* ((_%rest182706182714%_ _%rest182704%_) - (_%else182708182722%_ (lambda () (reverse _%blocks182705%_))) - (_%K182710182728%_ - (lambda (_%rest182725%_ _%clause182726%_) - (let ((__tmp187014 - (let () - (declare (not safe)) - (gxc#optimize-match-lift-basic-blocks - _%clause182726%_ - _%blocks182705%_)))) - (declare (not safe)) - (_%lp182702%_ _%rest182725%_ __tmp187014))))) - (if (let () (declare (not safe)) (##pair? _%rest182706182714%_)) - (let ((_%hd182711182731%_ + (lambda (_%clauses181715%_) + (let _%lp181717%_ ((_%rest181719%_ _%clauses181715%_) + (_%blocks181720%_ '())) + (let* ((_%rest181721181729%_ _%rest181719%_) + (_%else181723181737%_ (lambda () (reverse _%blocks181720%_))) + (_%K181725181743%_ + (lambda (_%rest181740%_ _%clause181741%_) + (_%lp181717%_ + _%rest181740%_ + (gxc#optimize-match-lift-basic-blocks + _%clause181741%_ + _%blocks181720%_))))) + (if (let () (declare (not safe)) (##pair? _%rest181721181729%_)) + (let ((_%hd181726181746%_ (let () (declare (not safe)) - (##car _%rest182706182714%_))) - (_%tl182712182733%_ + (##car _%rest181721181729%_))) + (_%tl181727181748%_ (let () (declare (not safe)) - (##cdr _%rest182706182714%_)))) - (let* ((_%clause182736%_ _%hd182711182731%_) - (_%rest182738%_ _%tl182712182733%_)) - (declare (not safe)) - (_%K182710182728%_ _%rest182738%_ _%clause182736%_))) - (let () (declare (not safe)) (_%else182708182722%_))))))) + (##cdr _%rest181721181729%_)))) + (let* ((_%clause181751%_ _%hd181726181746%_) + (_%rest181753%_ _%tl181727181748%_)) + (_%K181725181743%_ _%rest181753%_ _%clause181751%_))) + (_%else181723181737%_)))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_%clause182043%_ _%blocks182044%_) - (letrec ((_%bind->args182046%_ - (lambda (_%bind182695%_) - (let ((__tmp187015 - (lambda (_%b182697%_ _%r182698%_) - (cons (cons '%#ref (cons (car _%b182697%_) '())) - _%r182698%_)))) + (lambda (_%clause181058%_ _%blocks181059%_) + (letrec ((_%bind->args181061%_ + (lambda (_%bind181710%_) + (let ((__tmp186023 + (lambda (_%b181712%_ _%r181713%_) + (cons (cons '%#ref (cons (car _%b181712%_) '())) + _%r181713%_)))) (declare (not safe)) - (__foldl1 __tmp187015 '() _%bind182695%_)))) - (_%create-block182047%_ - (lambda (_%body182643%_ - _%let-bind182644%_ - _%bind182645%_ - _%assert182646%_) - (let* ((_%id182648%_ - (let ((__tmp187016 + (__foldl1 __tmp186023 '() _%bind181710%_)))) + (_%create-block181062%_ + (lambda (_%body181658%_ + _%let-bind181659%_ + _%bind181660%_ + _%assert181661%_) + (let* ((_%id181663%_ + (let ((__tmp186024 (let () (declare (not safe)) (##gensym '__match)))) (declare (not safe)) - (make-symbol__0 __tmp187016))) - (_%id182650%_ + (make-symbol__0 __tmp186024))) + (_%id181665%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id182648%_))) - (_%_182652%_ + (gx#core-quote-syntax__0 _%id181663%_))) + (_%_181667%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id182650%_))) - (_%block182654%_ - (cons _%id182650%_ - (cons _%body182643%_ - (cons _%bind182645%_ - (cons _%assert182646%_ '()))))) - (_%continue182656%_ + (gx#core-bind-runtime!__0 _%id181665%_))) + (_%block181669%_ + (cons _%id181665%_ + (cons _%body181658%_ + (cons _%bind181660%_ + (cons _%assert181661%_ '()))))) + (_%continue181671%_ (cons '%#call - (cons (cons '%#ref (cons _%id182650%_ '())) - (let () - (declare (not safe)) - (_%bind->args182046%_ - _%bind182645%_))))) - (_%continue182692%_ - (if (let () - (declare (not safe)) - (null? _%let-bind182644%_)) - _%continue182656%_ - (let ((_%locals182690%_ - (map (lambda (_%e182657182659%_) - (let* ((_%g182661182668%_ - _%e182657182659%_) - (_%E182663182672%_ + (cons (cons '%#ref (cons _%id181665%_ '())) + (_%bind->args181061%_ + _%bind181660%_)))) + (_%continue181707%_ + (if (null? _%let-bind181659%_) + _%continue181671%_ + (let ((_%locals181705%_ + (map (lambda (_%e181672181674%_) + (let* ((_%g181676181683%_ + _%e181672181674%_) + (_%E181678181687%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g182661182668%_ + _%g181676181683%_ '([id . expr]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K182664182678%_ - (lambda (_%expr182675%_ - _%id182676%_) - (cons (cons _%id182676%_ + (_%K181679181693%_ + (lambda (_%expr181690%_ + _%id181691%_) + (cons (cons _%id181691%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr182675%_ '()))))) + (cons _%expr181690%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%g182661182668%_)) - (let ((_%hd182665182681%_ + (##pair? _%g181676181683%_)) + (let ((_%hd181680181696%_ (let () (declare (not safe)) - (##car _%g182661182668%_))) - (_%tl182666182683%_ + (##car _%g181676181683%_))) + (_%tl181681181698%_ (let () (declare (not safe)) - (##cdr _%g182661182668%_)))) - (let* ((_%id182686%_ - _%hd182665182681%_) - (_%expr182688%_ - _%tl182666182683%_)) - (declare (not safe)) - (_%K182664182678%_ - _%expr182688%_ - _%id182686%_))) - (let () - (declare (not safe)) - (_%E182663182672%_))))) - _%let-bind182644%_))) + (##cdr _%g181676181683%_)))) + (let* ((_%id181701%_ + _%hd181680181696%_) + (_%expr181703%_ + _%tl181681181698%_)) + (_%K181679181693%_ + _%expr181703%_ + _%id181701%_))) + (_%E181678181687%_)))) + _%let-bind181659%_))) (cons '%#let-values - (cons _%locals182690%_ - (cons _%continue182656%_ + (cons _%locals181705%_ + (cons _%continue181671%_ '()))))))) - (values _%continue182692%_ _%block182654%_)))) - (_%basic-block182048%_ - (lambda (_%body182229%_ _%bind182230%_ _%assert182231%_) - (let* ((_%__stx184207184208%_ _%body182229%_) - (_%g182236182320%_ + (values _%continue181707%_ _%block181669%_)))) + (_%basic-block181063%_ + (lambda (_%body181244%_ _%bind181245%_ _%assert181246%_) + (let* ((_%__stx183222183223%_ _%body181244%_) + (_%g181251181335%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx184207184208%_))))) - (let ((_%__kont184209184210%_ - (lambda (_%L182579%_ _%L182580%_ _%L182581%_) - (let ((_g187017_ - (let ((__tmp187019 - (cons (cons _%L182581%_ '#t) - _%assert182231%_))) - (declare (not safe)) - (_%create-block182047%_ - _%L182580%_ - '() - _%bind182230%_ - __tmp187019)))) + _%__stx183222183223%_))))) + (let ((_%__kont183224183225%_ + (lambda (_%L181594%_ _%L181595%_ _%L181596%_) + (let ((_g186025_ + (_%create-block181062%_ + _%L181595%_ + '() + _%bind181245%_ + (cons (cons _%L181596%_ '#t) + _%assert181246%_)))) (begin - (let ((_g187018_ + (let ((_g186026_ (let () (declare (not safe)) - (if (##values? _g187017_) - (##vector-length _g187017_) + (if (##values? _g186025_) + (##vector-length _g186025_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g187018_ 2))) + (##fx= _g186026_ 2))) (error "Context expects 2 values" - _g187018_))) - (let ((_%k-continue182599%_ + _g186026_))) + (let ((_%k-continue181614%_ (let () (declare (not safe)) - (##vector-ref _g187017_ 0))) - (_%k-block182600%_ + (##vector-ref _g186025_ 0))) + (_%k-block181615%_ (let () (declare (not safe)) - (##vector-ref _g187017_ 1)))) - (let* ((_%__stx184189184190%_ _%L182579%_) - (_%g182603182612%_ + (##vector-ref _g186025_ 1)))) + (let* ((_%__stx183204183205%_ _%L181594%_) + (_%g181618181627%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx184189184190%_))))) - (let ((_%__kont184191184192%_ + _%__stx183204183205%_))))) + (let ((_%__kont183206183207%_ (lambda () (values (cons '%#if - (cons _%L182581%_ + (cons _%L181596%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%k-continue182599%_ - (cons _%L182579%_ '())))) - (cons _%k-block182600%_ '())))) + (cons _%k-continue181614%_ + (cons _%L181594%_ '())))) + (cons _%k-block181615%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184193184194%_ + (_%__kont183208183209%_ (lambda () - (let ((_g187020_ - (let ((__tmp187022 - (cons (cons _%L182581%_ + (let ((_g186027_ + (_%create-block181062%_ + _%L181594%_ + '() + _%bind181245%_ + (cons (cons _%L181596%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f) - _%assert182231%_))) - (declare (not safe)) - (_%create-block182047%_ - _%L182579%_ - '() - _%bind182230%_ - __tmp187022)))) + '#f) + _%assert181246%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g187021_ + (let ((_g186028_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g187020_) - (##vector-length _g187020_) + _g186027_) + (##vector-length _g186027_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g187021_ 2))) - (error "Context expects 2 values" _g187021_))) + (if (not (let () (declare (not safe)) (##fx= _g186028_ 2))) + (error "Context expects 2 values" _g186028_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%e-continue182619%_ + (let ((_%e-continue181634%_ (let () (declare (not safe)) (##vector-ref - _g187020_ + _g186027_ 0))) - (_%e-block182620%_ + (_%e-block181635%_ (let () (declare (not safe)) (##vector-ref - _g187020_ + _g186027_ 1)))) (values (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L182581%_ - (cons _%k-continue182599%_ - (cons _%e-continue182619%_ '())))) - (cons _%k-block182600%_ - (cons _%e-block182620%_ '()))))))))) + (cons _%L181596%_ + (cons _%k-continue181614%_ + (cons _%e-continue181634%_ '())))) + (cons _%k-block181615%_ + (cons _%e-block181635%_ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx184189184190%_)) - (let ((_%e182607182627%_ + _%__stx183204183205%_)) + (let ((_%e181622181642%_ (let () (declare (not safe)) (gx#stx-e - _%__stx184189184190%_)))) - (let ((_%tl182605182632%_ + _%__stx183204183205%_)))) + (let ((_%tl181620181647%_ (let () (declare (not safe)) - (##cdr _%e182607182627%_))) - (_%hd182606182630%_ + (##cdr _%e181622181642%_))) + (_%hd181621181645%_ (let () (declare (not safe)) - (##car _%e182607182627%_)))) + (##car _%e181622181642%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182606182630%_)) + _%hd181621181645%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd182606182630%_)) - (_%__kont184191184192%_) - (_%__kont184193184194%_)) - (_%__kont184193184194%_)))) - (_%__kont184193184194%_))))))))) - (_%__kont184211184212%_ - (lambda () (values _%body182229%_ '()))) - (_%__kont184215184216%_ - (lambda (_%L182408%_ _%L182409%_ _%L182410%_) - (let* ((_%let-bind182445%_ + _%hd181621181645%_)) + (_%__kont183206183207%_) + (_%__kont183208183209%_)) + (_%__kont183208183209%_)))) + (_%__kont183208183209%_))))))))) + (_%__kont183226183227%_ + (lambda () (values _%body181244%_ '()))) + (_%__kont183230183231%_ + (lambda (_%L181423%_ _%L181424%_ _%L181425%_) + (let* ((_%let-bind181460%_ (map cons - (let ((__tmp187023 - (lambda (_%g182430182433%_ - _%g182431182435%_) - (cons _%g182430182433%_ - _%g182431182435%_)))) + (let ((__tmp186029 + (lambda (_%g181445181448%_ + _%g181446181450%_) + (cons _%g181445181448%_ + _%g181446181450%_)))) (declare (not safe)) (__foldr1 - __tmp187023 + __tmp186029 '() - _%L182410%_)) - (let ((__tmp187024 - (lambda (_%g182437182440%_ - _%g182438182442%_) - (cons _%g182437182440%_ - _%g182438182442%_)))) + _%L181425%_)) + (let ((__tmp186030 + (lambda (_%g181452181455%_ + _%g181453181457%_) + (cons _%g181452181455%_ + _%g181453181457%_)))) (declare (not safe)) (__foldr1 - __tmp187024 + __tmp186030 '() - _%L182409%_)))) - (_g187025_ - (let ((__tmp187027 - (let () - (declare (not safe)) - (__foldl1 - cons - _%bind182230%_ - _%let-bind182445%_)))) - (declare (not safe)) - (_%create-block182047%_ - _%L182408%_ - _%let-bind182445%_ - __tmp187027 - _%assert182231%_)))) + _%L181424%_)))) + (_g186031_ + (_%create-block181062%_ + _%L181423%_ + _%let-bind181460%_ + (let () + (declare (not safe)) + (__foldl1 + cons + _%bind181245%_ + _%let-bind181460%_)) + _%assert181246%_))) (begin - (let ((_g187026_ + (let ((_g186032_ (let () (declare (not safe)) - (if (##values? _g187025_) - (##vector-length _g187025_) + (if (##values? _g186031_) + (##vector-length _g186031_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g187026_ 2))) + (##fx= _g186032_ 2))) (error "Context expects 2 values" - _g187026_))) - (let ((_%continue182447%_ + _g186032_))) + (let ((_%continue181462%_ (let () (declare (not safe)) - (##vector-ref _g187025_ 0))) - (_%block182448%_ + (##vector-ref _g186031_ 0))) + (_%block181463%_ (let () (declare (not safe)) - (##vector-ref _g187025_ 1)))) - (let () - (values _%continue182447%_ - (cons _%block182448%_ - '())))))))) - (_%__kont184219184220%_ - (lambda () (values _%body182229%_ '())))) - (let* ((_%__match184298184299%_ - (lambda (_%e182289182332%_ - _%hd182288182335%_ - _%tl182287182337%_ - _%e182292182340%_ - _%hd182291182343%_ - _%tl182290182345%_ - _%__splice184217184218%_ - _%target182293182348%_ - _%tl182295182350%_) - (letrec ((_%loop182296182353%_ - (lambda (_%hd182294182356%_ - _%expr182300182358%_ - _%id182301182360%_) + (##vector-ref _g186031_ 1)))) + (values _%continue181462%_ + (cons _%block181463%_ '()))))))) + (_%__kont183234183235%_ + (lambda () (values _%body181244%_ '())))) + (let* ((_%__match183313183314%_ + (lambda (_%e181304181347%_ + _%hd181303181350%_ + _%tl181302181352%_ + _%e181307181355%_ + _%hd181306181358%_ + _%tl181305181360%_ + _%__splice183232183233%_ + _%target181308181363%_ + _%tl181310181365%_) + (letrec ((_%loop181311181368%_ + (lambda (_%hd181309181371%_ + _%expr181315181373%_ + _%id181316181375%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182294182356%_)) - (let ((_%e182297182363%_ + _%hd181309181371%_)) + (let ((_%e181312181378%_ (let () (declare (not safe)) (gx#stx-e - _%hd182294182356%_)))) - (let ((_%lp-tl182299182368%_ + _%hd181309181371%_)))) + (let ((_%lp-tl181314181383%_ (let () (declare (not safe)) - (##cdr _%e182297182363%_))) - (_%lp-hd182298182366%_ + (##cdr _%e181312181378%_))) + (_%lp-hd181313181381%_ (let () (declare (not safe)) - (##car _%e182297182363%_)))) + (##car _%e181312181378%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd182298182366%_)) - (let ((_%e182306182371%_ + _%lp-hd181313181381%_)) + (let ((_%e181321181386%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd182298182366%_)))) - (let ((_%tl182304182376%_ + (gx#stx-e _%lp-hd181313181381%_)))) + (let ((_%tl181319181391%_ (let () (declare (not safe)) - (##cdr _%e182306182371%_))) - (_%hd182305182374%_ + (##cdr _%e181321181386%_))) + (_%hd181320181389%_ (let () (declare (not safe)) - (##car _%e182306182371%_)))) + (##car _%e181321181386%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182305182374%_)) - (let ((_%e182309182379%_ + (gx#stx-pair? _%hd181320181389%_)) + (let ((_%e181324181394%_ (let () (declare (not safe)) - (gx#stx-e _%hd182305182374%_)))) - (let ((_%tl182307182384%_ + (gx#stx-e _%hd181320181389%_)))) + (let ((_%tl181322181399%_ (let () (declare (not safe)) - (##cdr _%e182309182379%_))) - (_%hd182308182382%_ + (##cdr _%e181324181394%_))) + (_%hd181323181397%_ (let () (declare (not safe)) - (##car _%e182309182379%_)))) + (##car _%e181324181394%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182307182384%_)) + (gx#stx-null? _%tl181322181399%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182304182376%_)) - (let ((_%e182312182387%_ + (gx#stx-pair? _%tl181319181391%_)) + (let ((_%e181327181402%_ (let () (declare (not safe)) - (gx#stx-e _%tl182304182376%_)))) - (let ((_%tl182310182392%_ + (gx#stx-e _%tl181319181391%_)))) + (let ((_%tl181325181407%_ (let () (declare (not safe)) - (##cdr _%e182312182387%_))) - (_%hd182311182390%_ + (##cdr _%e181327181402%_))) + (_%hd181326181405%_ (let () (declare (not safe)) - (##car _%e182312182387%_)))) + (##car _%e181327181402%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182310182392%_)) - (let ((__tmp187029 - (cons _%hd182311182390%_ - _%expr182300182358%_)) - (__tmp187028 - (cons _%hd182308182382%_ - _%id182301182360%_))) - (declare (not safe)) - (_%loop182296182353%_ - _%lp-tl182299182368%_ - __tmp187029 - __tmp187028)) - (_%__kont184219184220%_)))) - (_%__kont184219184220%_)) - (_%__kont184219184220%_)))) - (_%__kont184219184220%_)))) - (_%__kont184219184220%_)))) + _%tl181325181407%_)) + (_%loop181311181368%_ + _%lp-tl181314181383%_ + (cons _%hd181326181405%_ + _%expr181315181373%_) + (cons _%hd181323181397%_ + _%id181316181375%_)) + (_%__kont183234183235%_)))) + (_%__kont183234183235%_)) + (_%__kont183234183235%_)))) + (_%__kont183234183235%_)))) + (_%__kont183234183235%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id182303182397%_ - (reverse _%id182301182360%_)) - (_%expr182302182395%_ - (reverse _%expr182300182358%_))) + (let ((_%id181318181412%_ + (reverse _%id181316181375%_)) + (_%expr181317181410%_ + (reverse _%expr181315181373%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182290182345%_)) - (let ((_%e182315182400%_ + _%tl181305181360%_)) + (let ((_%e181330181415%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl182290182345%_)))) - (let ((_%tl182313182405%_ + (gx#stx-e _%tl181305181360%_)))) + (let ((_%tl181328181420%_ (let () (declare (not safe)) - (##cdr _%e182315182400%_))) - (_%hd182314182403%_ + (##cdr _%e181330181415%_))) + (_%hd181329181418%_ (let () (declare (not safe)) - (##car _%e182315182400%_)))) + (##car _%e181330181415%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182313182405%_)) - (_%__kont184215184216%_ - _%hd182314182403%_ - _%expr182302182395%_ - _%id182303182397%_) - (_%__kont184219184220%_)))) - (_%__kont184219184220%_))))))) + (gx#stx-null? _%tl181328181420%_)) + (_%__kont183230183231%_ + _%hd181329181418%_ + _%expr181317181410%_ + _%id181318181412%_) + (_%__kont183234183235%_)))) + (_%__kont183234183235%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop182296182353%_ - _%target182293182348%_ - '() - '()))))) - (_%__match184274184275%_ - (lambda (_%e182255182456%_ - _%hd182254182459%_ - _%tl182253182461%_ - _%e182258182464%_ - _%hd182257182467%_ - _%tl182256182469%_ - _%__splice184213184214%_ - _%target182259182472%_ - _%tl182261182474%_) - (letrec ((_%loop182262182477%_ - (lambda (_%hd182260182480%_) + (_%loop181311181368%_ + _%target181308181363%_ + '() + '())))) + (_%__match183289183290%_ + (lambda (_%e181270181471%_ + _%hd181269181474%_ + _%tl181268181476%_ + _%e181273181479%_ + _%hd181272181482%_ + _%tl181271181484%_ + _%__splice183228183229%_ + _%target181274181487%_ + _%tl181276181489%_) + (letrec ((_%loop181277181492%_ + (lambda (_%hd181275181495%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182260182480%_)) - (let ((_%e182263182483%_ + _%hd181275181495%_)) + (let ((_%e181278181498%_ (let () (declare (not safe)) (gx#stx-e - _%hd182260182480%_)))) - (let ((_%lp-tl182265182488%_ + _%hd181275181495%_)))) + (let ((_%lp-tl181280181503%_ (let () (declare (not safe)) - (##cdr _%e182263182483%_))) - (_%lp-hd182264182486%_ + (##cdr _%e181278181498%_))) + (_%lp-hd181279181501%_ (let () (declare (not safe)) - (##car _%e182263182483%_)))) + (##car _%e181278181498%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd182264182486%_)) - (let ((_%e182268182491%_ + _%lp-hd181279181501%_)) + (let ((_%e181283181506%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd182264182486%_)))) - (let ((_%tl182266182496%_ + (gx#stx-e _%lp-hd181279181501%_)))) + (let ((_%tl181281181511%_ (let () (declare (not safe)) - (##cdr _%e182268182491%_))) - (_%hd182267182494%_ + (##cdr _%e181283181506%_))) + (_%hd181282181509%_ (let () (declare (not safe)) - (##car _%e182268182491%_)))) + (##car _%e181283181506%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182267182494%_)) - (let ((_%e182271182499%_ + (gx#stx-pair? _%hd181282181509%_)) + (let ((_%e181286181514%_ (let () (declare (not safe)) - (gx#stx-e _%hd182267182494%_)))) - (let ((_%tl182269182504%_ + (gx#stx-e _%hd181282181509%_)))) + (let ((_%tl181284181519%_ (let () (declare (not safe)) - (##cdr _%e182271182499%_))) - (_%hd182270182502%_ + (##cdr _%e181286181514%_))) + (_%hd181285181517%_ (let () (declare (not safe)) - (##car _%e182271182499%_)))) + (##car _%e181286181514%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182269182504%_)) + (gx#stx-null? _%tl181284181519%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182266182496%_)) - (let ((_%e182274182507%_ + (gx#stx-pair? _%tl181281181511%_)) + (let ((_%e181289181522%_ (let () (declare (not safe)) - (gx#stx-e _%tl182266182496%_)))) - (let ((_%tl182272182512%_ + (gx#stx-e _%tl181281181511%_)))) + (let ((_%tl181287181527%_ (let () (declare (not safe)) - (##cdr _%e182274182507%_))) - (_%hd182273182510%_ + (##cdr _%e181289181522%_))) + (_%hd181288181525%_ (let () (declare (not safe)) - (##car _%e182274182507%_)))) + (##car _%e181289181522%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182273182510%_)) - (let ((_%e182277182515%_ + _%hd181288181525%_)) + (let ((_%e181292181530%_ (let () (declare (not safe)) (gx#stx-e - _%hd182273182510%_)))) - (let ((_%tl182275182520%_ + _%hd181288181525%_)))) + (let ((_%tl181290181535%_ (let () (declare (not safe)) - (##cdr _%e182277182515%_))) - (_%hd182276182518%_ + (##cdr _%e181292181530%_))) + (_%hd181291181533%_ (let () (declare (not safe)) - (##car _%e182277182515%_)))) + (##car _%e181292181530%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182276182518%_)) + _%hd181291181533%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd182276182518%_)) + _%hd181291181533%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl182275182520%_)) - (let ((_%e182280182523%_ + (gx#stx-pair? _%tl181290181535%_)) + (let ((_%e181295181538%_ (let () (declare (not safe)) - (gx#stx-e _%tl182275182520%_)))) - (let ((_%tl182278182528%_ + (gx#stx-e _%tl181290181535%_)))) + (let ((_%tl181293181543%_ (let () (declare (not safe)) - (##cdr _%e182280182523%_))) - (_%hd182279182526%_ + (##cdr _%e181295181538%_))) + (_%hd181294181541%_ (let () (declare (not safe)) - (##car _%e182280182523%_)))) + (##car _%e181295181538%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182278182528%_)) + (gx#stx-null? _%tl181293181543%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182272182512%_)) - (let () - (declare (not safe)) - (_%loop182262182477%_ - _%lp-tl182265182488%_)) - (_%__match184298184299%_ - _%e182255182456%_ - _%hd182254182459%_ - _%tl182253182461%_ - _%e182258182464%_ - _%hd182257182467%_ - _%tl182256182469%_ - _%__splice184213184214%_ - _%target182259182472%_ - _%tl182261182474%_)) - (_%__match184298184299%_ - _%e182255182456%_ - _%hd182254182459%_ - _%tl182253182461%_ - _%e182258182464%_ - _%hd182257182467%_ - _%tl182256182469%_ - _%__splice184213184214%_ - _%target182259182472%_ - _%tl182261182474%_)))) - (_%__match184298184299%_ - _%e182255182456%_ - _%hd182254182459%_ - _%tl182253182461%_ - _%e182258182464%_ - _%hd182257182467%_ - _%tl182256182469%_ - _%__splice184213184214%_ - _%target182259182472%_ - _%tl182261182474%_)) - (_%__match184298184299%_ - _%e182255182456%_ - _%hd182254182459%_ - _%tl182253182461%_ - _%e182258182464%_ - _%hd182257182467%_ - _%tl182256182469%_ - _%__splice184213184214%_ - _%target182259182472%_ - _%tl182261182474%_)) - (_%__match184298184299%_ - _%e182255182456%_ - _%hd182254182459%_ - _%tl182253182461%_ - _%e182258182464%_ - _%hd182257182467%_ - _%tl182256182469%_ - _%__splice184213184214%_ - _%target182259182472%_ - _%tl182261182474%_)))) + (gx#stx-null? _%tl181287181527%_)) + (_%loop181277181492%_ _%lp-tl181280181503%_) + (_%__match183313183314%_ + _%e181270181471%_ + _%hd181269181474%_ + _%tl181268181476%_ + _%e181273181479%_ + _%hd181272181482%_ + _%tl181271181484%_ + _%__splice183228183229%_ + _%target181274181487%_ + _%tl181276181489%_)) + (_%__match183313183314%_ + _%e181270181471%_ + _%hd181269181474%_ + _%tl181268181476%_ + _%e181273181479%_ + _%hd181272181482%_ + _%tl181271181484%_ + _%__splice183228183229%_ + _%target181274181487%_ + _%tl181276181489%_)))) + (_%__match183313183314%_ + _%e181270181471%_ + _%hd181269181474%_ + _%tl181268181476%_ + _%e181273181479%_ + _%hd181272181482%_ + _%tl181271181484%_ + _%__splice183228183229%_ + _%target181274181487%_ + _%tl181276181489%_)) + (_%__match183313183314%_ + _%e181270181471%_ + _%hd181269181474%_ + _%tl181268181476%_ + _%e181273181479%_ + _%hd181272181482%_ + _%tl181271181484%_ + _%__splice183228183229%_ + _%target181274181487%_ + _%tl181276181489%_)) + (_%__match183313183314%_ + _%e181270181471%_ + _%hd181269181474%_ + _%tl181268181476%_ + _%e181273181479%_ + _%hd181272181482%_ + _%tl181271181484%_ + _%__splice183228183229%_ + _%target181274181487%_ + _%tl181276181489%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match184298184299%_ - _%e182255182456%_ - _%hd182254182459%_ - _%tl182253182461%_ - _%e182258182464%_ - _%hd182257182467%_ - _%tl182256182469%_ - _%__splice184213184214%_ - _%target182259182472%_ - _%tl182261182474%_)))) - (_%__match184298184299%_ - _%e182255182456%_ - _%hd182254182459%_ - _%tl182253182461%_ - _%e182258182464%_ - _%hd182257182467%_ - _%tl182256182469%_ - _%__splice184213184214%_ - _%target182259182472%_ - _%tl182261182474%_)) - (_%__match184298184299%_ - _%e182255182456%_ - _%hd182254182459%_ - _%tl182253182461%_ - _%e182258182464%_ - _%hd182257182467%_ - _%tl182256182469%_ - _%__splice184213184214%_ - _%target182259182472%_ - _%tl182261182474%_)))) - (_%__match184298184299%_ - _%e182255182456%_ - _%hd182254182459%_ - _%tl182253182461%_ - _%e182258182464%_ - _%hd182257182467%_ - _%tl182256182469%_ - _%__splice184213184214%_ - _%target182259182472%_ - _%tl182261182474%_)))) - (_%__match184298184299%_ - _%e182255182456%_ - _%hd182254182459%_ - _%tl182253182461%_ - _%e182258182464%_ - _%hd182257182467%_ - _%tl182256182469%_ - _%__splice184213184214%_ - _%target182259182472%_ - _%tl182261182474%_)))) + (_%__match183313183314%_ + _%e181270181471%_ + _%hd181269181474%_ + _%tl181268181476%_ + _%e181273181479%_ + _%hd181272181482%_ + _%tl181271181484%_ + _%__splice183228183229%_ + _%target181274181487%_ + _%tl181276181489%_)))) + (_%__match183313183314%_ + _%e181270181471%_ + _%hd181269181474%_ + _%tl181268181476%_ + _%e181273181479%_ + _%hd181272181482%_ + _%tl181271181484%_ + _%__splice183228183229%_ + _%target181274181487%_ + _%tl181276181489%_)) + (_%__match183313183314%_ + _%e181270181471%_ + _%hd181269181474%_ + _%tl181268181476%_ + _%e181273181479%_ + _%hd181272181482%_ + _%tl181271181484%_ + _%__splice183228183229%_ + _%target181274181487%_ + _%tl181276181489%_)))) + (_%__match183313183314%_ + _%e181270181471%_ + _%hd181269181474%_ + _%tl181268181476%_ + _%e181273181479%_ + _%hd181272181482%_ + _%tl181271181484%_ + _%__splice183228183229%_ + _%target181274181487%_ + _%tl181276181489%_)))) + (_%__match183313183314%_ + _%e181270181471%_ + _%hd181269181474%_ + _%tl181268181476%_ + _%e181273181479%_ + _%hd181272181482%_ + _%tl181271181484%_ + _%__splice183228183229%_ + _%target181274181487%_ + _%tl181276181489%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl182256182469%_)) - (let ((_%e182283182532%_ - (let () + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl181271181484%_)) + (let ((_%e181298181547%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _%tl181271181484%_)))) + (let ((_%tl181296181552%_ + (let () (declare (not safe)) (##cdr _%e181298181547%_))) + (_%hd181297181550%_ + (let () (declare (not safe)) - (gx#stx-e _%tl182256182469%_)))) - (let ((_%tl182281182537%_ - (let () - (declare (not safe)) - (##cdr _%e182283182532%_))) - (_%hd182282182535%_ - (let () - (declare (not safe)) - (##car _%e182283182532%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl182281182537%_)) - (_%__kont184211184212%_) - (_%__match184298184299%_ - _%e182255182456%_ - _%hd182254182459%_ - _%tl182253182461%_ - _%e182258182464%_ - _%hd182257182467%_ - _%tl182256182469%_ - _%__splice184213184214%_ - _%target182259182472%_ - _%tl182261182474%_)))) - (_%__match184298184299%_ - _%e182255182456%_ - _%hd182254182459%_ - _%tl182253182461%_ - _%e182258182464%_ - _%hd182257182467%_ - _%tl182256182469%_ - _%__splice184213184214%_ - _%target182259182472%_ - _%tl182261182474%_))))))) + (##car _%e181298181547%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl181296181552%_)) + (_%__kont183226183227%_) + (_%__match183313183314%_ + _%e181270181471%_ + _%hd181269181474%_ + _%tl181268181476%_ + _%e181273181479%_ + _%hd181272181482%_ + _%tl181271181484%_ + _%__splice183228183229%_ + _%target181274181487%_ + _%tl181276181489%_)))) + (_%__match183313183314%_ + _%e181270181471%_ + _%hd181269181474%_ + _%tl181268181476%_ + _%e181273181479%_ + _%hd181272181482%_ + _%tl181271181484%_ + _%__splice183228183229%_ + _%target181274181487%_ + _%tl181276181489%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop182262182477%_ - _%target182259182472%_)))))) + (_%loop181277181492%_ + _%target181274181487%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx184207184208%_)) - (let ((_%e182243182547%_ + (gx#stx-pair? _%__stx183222183223%_)) + (let ((_%e181258181562%_ (let () (declare (not safe)) - (gx#stx-e _%__stx184207184208%_)))) - (let ((_%tl182241182552%_ + (gx#stx-e _%__stx183222183223%_)))) + (let ((_%tl181256181567%_ (let () (declare (not safe)) - (##cdr _%e182243182547%_))) - (_%hd182242182550%_ + (##cdr _%e181258181562%_))) + (_%hd181257181565%_ (let () (declare (not safe)) - (##car _%e182243182547%_)))) + (##car _%e181258181562%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182242182550%_)) + (gx#identifier? _%hd181257181565%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd182242182550%_)) + _%hd181257181565%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182241182552%_)) - (let ((_%e182246182555%_ + _%tl181256181567%_)) + (let ((_%e181261181570%_ (let () (declare (not safe)) (gx#stx-e - _%tl182241182552%_)))) - (let ((_%tl182244182560%_ + _%tl181256181567%_)))) + (let ((_%tl181259181575%_ (let () (declare (not safe)) - (##cdr _%e182246182555%_))) - (_%hd182245182558%_ + (##cdr _%e181261181570%_))) + (_%hd181260181573%_ (let () (declare (not safe)) - (##car _%e182246182555%_)))) + (##car _%e181261181570%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182244182560%_)) - (let ((_%e182249182563%_ + _%tl181259181575%_)) + (let ((_%e181264181578%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl182244182560%_)))) - (let ((_%tl182247182568%_ - (let () (declare (not safe)) (##cdr _%e182249182563%_))) - (_%hd182248182566%_ + (gx#stx-e _%tl181259181575%_)))) + (let ((_%tl181262181583%_ + (let () (declare (not safe)) (##cdr _%e181264181578%_))) + (_%hd181263181581%_ (let () (declare (not safe)) - (##car _%e182249182563%_)))) + (##car _%e181264181578%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182247182568%_)) - (let ((_%e182252182571%_ + (gx#stx-pair? _%tl181262181583%_)) + (let ((_%e181267181586%_ (let () (declare (not safe)) - (gx#stx-e _%tl182247182568%_)))) - (let ((_%tl182250182576%_ + (gx#stx-e _%tl181262181583%_)))) + (let ((_%tl181265181591%_ (let () (declare (not safe)) - (##cdr _%e182252182571%_))) - (_%hd182251182574%_ + (##cdr _%e181267181586%_))) + (_%hd181266181589%_ (let () (declare (not safe)) - (##car _%e182252182571%_)))) + (##car _%e181267181586%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182250182576%_)) - (_%__kont184209184210%_ - _%hd182251182574%_ - _%hd182248182566%_ - _%hd182245182558%_) - (_%__kont184219184220%_)))) - (_%__kont184219184220%_)))) - (_%__kont184219184220%_)))) + (gx#stx-null? _%tl181265181591%_)) + (_%__kont183224183225%_ + _%hd181266181589%_ + _%hd181263181581%_ + _%hd181260181573%_) + (_%__kont183234183235%_)))) + (_%__kont183234183235%_)))) + (_%__kont183234183235%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184219184220%_)) + (_%__kont183234183235%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd182242182550%_)) + _%hd181257181565%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182241182552%_)) - (let ((_%e182258182464%_ + _%tl181256181567%_)) + (let ((_%e181273181479%_ (let () (declare (not safe)) (gx#stx-e - _%tl182241182552%_)))) - (let ((_%tl182256182469%_ + _%tl181256181567%_)))) + (let ((_%tl181271181484%_ (let () (declare (not safe)) - (##cdr _%e182258182464%_))) - (_%hd182257182467%_ + (##cdr _%e181273181479%_))) + (_%hd181272181482%_ (let () (declare (not safe)) - (##car _%e182258182464%_)))) + (##car _%e181273181479%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd182257182467%_)) - (let ((_%__splice184213184214%_ + _%hd181272181482%_)) + (let ((_%__splice183228183229%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd182257182467%_ '0)))) - (let ((_%tl182261182474%_ + (gx#syntax-split-splice _%hd181272181482%_ '0)))) + (let ((_%tl181276181489%_ (let () (declare (not safe)) - (##vector-ref _%__splice184213184214%_ '1))) - (_%target182259182472%_ + (##vector-ref _%__splice183228183229%_ '1))) + (_%target181274181487%_ (let () (declare (not safe)) - (##vector-ref _%__splice184213184214%_ '0)))) + (##vector-ref _%__splice183228183229%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182261182474%_)) - (_%__match184274184275%_ - _%e182243182547%_ - _%hd182242182550%_ - _%tl182241182552%_ - _%e182258182464%_ - _%hd182257182467%_ - _%tl182256182469%_ - _%__splice184213184214%_ - _%target182259182472%_ - _%tl182261182474%_) - (_%__kont184219184220%_)))) - (_%__kont184219184220%_)))) + (gx#stx-null? _%tl181276181489%_)) + (_%__match183289183290%_ + _%e181258181562%_ + _%hd181257181565%_ + _%tl181256181567%_ + _%e181273181479%_ + _%hd181272181482%_ + _%tl181271181484%_ + _%__splice183228183229%_ + _%target181274181487%_ + _%tl181276181489%_) + (_%__kont183234183235%_)))) + (_%__kont183234183235%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184219184220%_)) - (_%__kont184219184220%_))) - (_%__kont184219184220%_)))) - (_%__kont184219184220%_))))))) - (_%fold-blocks182049%_ - (lambda (_%rest182148%_ _%blocks182149%_) - (let* ((_%rest182150182167%_ _%rest182148%_) - (_%E182153182171%_ + (_%__kont183234183235%_)) + (_%__kont183234183235%_))) + (_%__kont183234183235%_)))) + (_%__kont183234183235%_))))))) + (_%fold-blocks181064%_ + (lambda (_%rest181163%_ _%blocks181164%_) + (let* ((_%rest181165181182%_ _%rest181163%_) + (_%E181168181186%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest182150182167%_ + _%rest181165181182%_ '([[name body bind assert] . rest]) '([]))) '#!void))) - (let ((_%K182155182191%_ - (lambda (_%rest182182%_ - _%assert182183%_ - _%bind182184%_ - _%body182185%_ - _%name182186%_) - (let ((_g187030_ - (let () - (declare (not safe)) - (_%basic-block182048%_ - _%body182185%_ - _%bind182184%_ - _%assert182183%_)))) + (let ((_%K181170181206%_ + (lambda (_%rest181197%_ + _%assert181198%_ + _%bind181199%_ + _%body181200%_ + _%name181201%_) + (let ((_g186033_ + (_%basic-block181063%_ + _%body181200%_ + _%bind181199%_ + _%assert181198%_))) (begin - (let ((_g187031_ + (let ((_g186034_ (let () (declare (not safe)) - (if (##values? _g187030_) - (##vector-length _g187030_) + (if (##values? _g186033_) + (##vector-length _g186033_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g187031_ 2))) + (##fx= _g186034_ 2))) (error "Context expects 2 values" - _g187031_))) - (let ((_%body182188%_ + _g186034_))) + (let ((_%body181203%_ (let () (declare (not safe)) - (##vector-ref _g187030_ 0))) - (_%body-blocks182189%_ + (##vector-ref _g186033_ 0))) + (_%body-blocks181204%_ (let () (declare (not safe)) - (##vector-ref _g187030_ 1)))) - (let ((__tmp187034 - (let () - (declare (not safe)) - (__foldl1 - cons - _%rest182182%_ - _%body-blocks182189%_))) - (__tmp187032 - (cons (cons _%name182186%_ - (cons 'continue: - (cons (cons '%#lambda + (##vector-ref _g186033_ 1)))) + (_%fold-blocks181064%_ + (let () + (declare (not safe)) + (__foldl1 + cons + _%rest181197%_ + _%body-blocks181204%_)) + (cons (cons _%name181201%_ + (cons 'continue: + (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let ((__tmp187033 - (map car _%bind182184%_))) - (declare (not safe)) - (##reverse __tmp187033)) - (cons _%body182188%_ '()))) - (cons _%assert182183%_ - (cons _%bind182184%_ '()))))) + (cons (let ((__tmp186035 (map car _%bind181199%_))) + (declare (not safe)) + (##reverse __tmp186035)) + (cons _%body181203%_ '()))) + (cons _%assert181198%_ (cons _%bind181199%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks182149%_))) - (declare (not safe)) - (_%fold-blocks182049%_ - __tmp187034 - __tmp187032))))))) - (_%K182154182176%_ (lambda () _%blocks182149%_))) - (let ((_%try-match182152182179%_ + _%blocks181164%_))))))) + (_%K181169181191%_ (lambda () _%blocks181164%_))) + (let ((_%try-match181167181194%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest182150182167%_)) - (let () - (declare (not safe)) - (_%K182154182176%_)) - (let () - (declare (not safe)) - (_%E182153182171%_)))))) + (##null? _%rest181165181182%_)) + (_%K181169181191%_) + (_%E181168181186%_))))) (if (let () (declare (not safe)) - (##pair? _%rest182150182167%_)) - (let ((_%tl182157182196%_ + (##pair? _%rest181165181182%_)) + (let ((_%tl181172181211%_ (let () (declare (not safe)) - (##cdr _%rest182150182167%_))) - (_%hd182156182194%_ + (##cdr _%rest181165181182%_))) + (_%hd181171181209%_ (let () (declare (not safe)) - (##car _%rest182150182167%_)))) + (##car _%rest181165181182%_)))) (if (let () (declare (not safe)) - (##pair? _%hd182156182194%_)) - (let ((_%tl182159182201%_ + (##pair? _%hd181171181209%_)) + (let ((_%tl181174181216%_ (let () (declare (not safe)) - (##cdr _%hd182156182194%_))) - (_%hd182158182199%_ + (##cdr _%hd181171181209%_))) + (_%hd181173181214%_ (let () (declare (not safe)) - (##car _%hd182156182194%_)))) + (##car _%hd181171181209%_)))) (if (let () (declare (not safe)) - (##pair? _%tl182159182201%_)) - (let ((_%tl182161182208%_ + (##pair? _%tl181174181216%_)) + (let ((_%tl181176181223%_ (let () (declare (not safe)) - (##cdr _%tl182159182201%_))) - (_%hd182160182206%_ + (##cdr _%tl181174181216%_))) + (_%hd181175181221%_ (let () (declare (not safe)) - (##car _%tl182159182201%_)))) + (##car _%tl181174181216%_)))) (if (let () (declare (not safe)) - (##pair? _%tl182161182208%_)) - (let ((_%tl182163182215%_ + (##pair? _%tl181176181223%_)) + (let ((_%tl181178181230%_ (let () (declare (not safe)) - (##cdr _%tl182161182208%_))) - (_%hd182162182213%_ + (##cdr _%tl181176181223%_))) + (_%hd181177181228%_ (let () (declare (not safe)) - (##car _%tl182161182208%_)))) + (##car _%tl181176181223%_)))) (if (let () (declare (not safe)) - (##pair? _%tl182163182215%_)) - (let ((_%tl182165182222%_ + (##pair? _%tl181178181230%_)) + (let ((_%tl181180181237%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl182163182215%_))) - (_%hd182164182220%_ - (let () (declare (not safe)) (##car _%tl182163182215%_)))) - (if (let () (declare (not safe)) (##null? _%tl182165182222%_)) - (let ((_%name182204%_ _%hd182158182199%_) - (_%body182211%_ _%hd182160182206%_) - (_%bind182218%_ _%hd182162182213%_) - (_%assert182225%_ _%hd182164182220%_) - (_%rest182227%_ _%tl182157182196%_)) - (let () - (declare (not safe)) - (_%K182155182191%_ - _%rest182227%_ - _%assert182225%_ - _%bind182218%_ - _%body182211%_ - _%name182204%_))) - (let () (declare (not safe)) (_%E182153182171%_)))) - (let () (declare (not safe)) (_%E182153182171%_)))) + (##cdr _%tl181178181230%_))) + (_%hd181179181235%_ + (let () (declare (not safe)) (##car _%tl181178181230%_)))) + (if (let () (declare (not safe)) (##null? _%tl181180181237%_)) + (let ((_%name181219%_ _%hd181173181214%_) + (_%body181226%_ _%hd181175181221%_) + (_%bind181233%_ _%hd181177181228%_) + (_%assert181240%_ _%hd181179181235%_) + (_%rest181242%_ _%tl181172181211%_)) + (_%K181170181206%_ + _%rest181242%_ + _%assert181240%_ + _%bind181233%_ + _%body181226%_ + _%name181219%_)) + (_%E181168181186%_))) + (_%E181168181186%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%E182153182171%_)))) - (let () - (declare (not safe)) - (_%E182153182171%_)))) - (let () - (declare (not safe)) - (_%E182153182171%_)))) - (let () - (declare (not safe)) - (_%try-match182152182179%_))))))))) - (let* ((_%clause182050182057%_ _%clause182043%_) - (_%E182052182061%_ + (_%E181168181186%_))) + (_%E181168181186%_))) + (_%E181168181186%_))) + (_%try-match181167181194%_)))))))) + (let* ((_%clause181065181072%_ _%clause181058%_) + (_%E181067181076%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause182050182057%_ + _%clause181065181072%_ '([name . body]))) '#!void)) - (_%K182053182136%_ - (lambda (_%body182064%_ _%name182065%_) - (let* ((_%g182067182083%_ - (lambda (_%g182068182080%_) + (_%K181068181151%_ + (lambda (_%body181079%_ _%name181080%_) + (let* ((_%g181082181098%_ + (lambda (_%g181083181095%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g182068182080%_)))) - (_%g182066182133%_ - (lambda (_%g182068182086%_) + _%g181083181095%_)))) + (_%g181081181148%_ + (lambda (_%g181083181101%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g182068182086%_)) - (let ((_%e182072182088%_ + (gx#stx-pair? _%g181083181101%_)) + (let ((_%e181087181103%_ (let () (declare (not safe)) - (gx#stx-e _%g182068182086%_)))) - (let ((_%hd182071182091%_ + (gx#stx-e _%g181083181101%_)))) + (let ((_%hd181086181106%_ (let () (declare (not safe)) - (##car _%e182072182088%_))) - (_%tl182070182093%_ + (##car _%e181087181103%_))) + (_%tl181085181108%_ (let () (declare (not safe)) - (##cdr _%e182072182088%_)))) + (##cdr _%e181087181103%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182071182091%_)) + _%hd181086181106%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd182071182091%_)) + _%hd181086181106%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182070182093%_)) - (let ((_%e182075182096%_ + _%tl181085181108%_)) + (let ((_%e181090181111%_ (let () (declare (not safe)) (gx#stx-e - _%tl182070182093%_)))) - (let ((_%hd182074182099%_ + _%tl181085181108%_)))) + (let ((_%hd181089181114%_ (let () (declare (not safe)) - (##car _%e182075182096%_))) - (_%tl182073182101%_ + (##car _%e181090181111%_))) + (_%tl181088181116%_ (let () (declare (not safe)) - (##cdr _%e182075182096%_)))) + (##cdr _%e181090181111%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd182074182099%_)) + _%hd181089181114%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl182073182101%_)) - (let ((_%e182078182104%_ + (gx#stx-pair? _%tl181088181116%_)) + (let ((_%e181093181119%_ (let () (declare (not safe)) - (gx#stx-e _%tl182073182101%_)))) - (let ((_%hd182077182107%_ + (gx#stx-e _%tl181088181116%_)))) + (let ((_%hd181092181122%_ (let () (declare (not safe)) - (##car _%e182078182104%_))) - (_%tl182076182109%_ + (##car _%e181093181119%_))) + (_%tl181091181124%_ (let () (declare (not safe)) - (##cdr _%e182078182104%_)))) + (##cdr _%e181093181119%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182076182109%_)) - ((lambda (_%L182112%_) - (let ((_g187035_ - (let () - (declare (not safe)) - (_%basic-block182048%_ - _%L182112%_ - '() - '())))) + (gx#stx-null? _%tl181091181124%_)) + ((lambda (_%L181127%_) + (let ((_g186036_ + (_%basic-block181063%_ + _%L181127%_ + '() + '()))) (begin - (let ((_g187036_ + (let ((_g186037_ (let () (declare (not safe)) - (if (##values? _g187035_) - (##vector-length _g187035_) + (if (##values? _g186036_) + (##vector-length _g186036_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g187036_ 2))) + (##fx= _g186037_ 2))) (error "Context expects 2 values" - _g187036_))) - (let ((_%body182130%_ + _g186037_))) + (let ((_%body181145%_ (let () (declare (not safe)) - (##vector-ref _g187035_ 0))) - (_%body-blocks182131%_ + (##vector-ref _g186036_ 0))) + (_%body-blocks181146%_ (let () (declare (not safe)) - (##vector-ref _g187035_ 1)))) - (let ((__tmp187037 - (cons (cons _%name182065%_ - (cons 'restart: - (cons (cons '%#lambda + (##vector-ref _g186036_ 1)))) + (_%fold-blocks181064%_ + _%body-blocks181146%_ + (cons (cons _%name181080%_ + (cons 'restart: + (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body182130%_ '()))) - (cons '() '())))) + (cons '() (cons _%body181145%_ '()))) + (cons '() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks182044%_))) - (declare (not safe)) - (_%fold-blocks182049%_ - _%body-blocks182131%_ - __tmp187037)))))) - _%hd182077182107%_) - (let () - (declare (not safe)) - (_%g182067182083%_ _%g182068182086%_))))) - (let () - (declare (not safe)) - (_%g182067182083%_ _%g182068182086%_))) - (let () - (declare (not safe)) - (_%g182067182083%_ _%g182068182086%_))))) + _%blocks181059%_)))))) + _%hd181092181122%_) + (_%g181082181098%_ _%g181083181101%_)))) + (_%g181082181098%_ _%g181083181101%_)) + (_%g181082181098%_ _%g181083181101%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g182067182083%_ - _%g182068182086%_))) - (let () - (declare (not safe)) - (_%g182067182083%_ - _%g182068182086%_))) - (let () - (declare (not safe)) - (_%g182067182083%_ - _%g182068182086%_))))) - (let () - (declare (not safe)) - (_%g182067182083%_ _%g182068182086%_)))))) - (declare (not safe)) - (_%g182066182133%_ _%body182064%_))))) - (if (let () (declare (not safe)) (##pair? _%clause182050182057%_)) - (let ((_%hd182054182139%_ + (_%g181082181098%_ + _%g181083181101%_)) + (_%g181082181098%_ + _%g181083181101%_)) + (_%g181082181098%_ + _%g181083181101%_)))) + (_%g181082181098%_ _%g181083181101%_))))) + (_%g181081181148%_ _%body181079%_))))) + (if (let () (declare (not safe)) (##pair? _%clause181065181072%_)) + (let ((_%hd181069181154%_ (let () (declare (not safe)) - (##car _%clause182050182057%_))) - (_%tl182055182141%_ + (##car _%clause181065181072%_))) + (_%tl181070181156%_ (let () (declare (not safe)) - (##cdr _%clause182050182057%_)))) - (let* ((_%name182144%_ _%hd182054182139%_) - (_%body182146%_ _%tl182055182141%_)) - (declare (not safe)) - (_%K182053182136%_ _%body182146%_ _%name182144%_))) - (let () (declare (not safe)) (_%E182052182061%_))))))) + (##cdr _%clause181065181072%_)))) + (let* ((_%name181159%_ _%hd181069181154%_) + (_%body181161%_ _%tl181070181156%_)) + (_%K181068181151%_ _%body181161%_ _%name181159%_))) + (_%E181067181076%_)))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_%blocks181649%_) - (let _%lp181651%_ ((_%rest181653%_ _%blocks181649%_) - (_%blocks181654%_ '())) - (let* ((_%rest181655181663%_ _%rest181653%_) - (_%else181657181712%_ + (lambda (_%blocks180664%_) + (let _%lp180666%_ ((_%rest180668%_ _%blocks180664%_) + (_%blocks180669%_ '())) + (let* ((_%rest180670180678%_ _%rest180668%_) + (_%else180672180727%_ (lambda () - (let ((__tmp187038 - (lambda (_%block181671%_ _%r181672%_) - (let* ((_%block181673181684%_ _%block181671%_) - (_%E181675181688%_ + (let ((__tmp186038 + (lambda (_%block180686%_ _%r180687%_) + (let* ((_%block180688180699%_ _%block180686%_) + (_%E180690180703%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block181673181684%_ + _%block180688180699%_ '([name _ kont . _]))) '#!void)) - (_%K181676181694%_ - (lambda (_%kont181691%_ _%name181692%_) - (cons (cons _%name181692%_ - _%kont181691%_) - _%r181672%_)))) + (_%K180691180709%_ + (lambda (_%kont180706%_ _%name180707%_) + (cons (cons _%name180707%_ + _%kont180706%_) + _%r180687%_)))) (if (let () (declare (not safe)) - (##pair? _%block181673181684%_)) - (let ((_%hd181677181697%_ + (##pair? _%block180688180699%_)) + (let ((_%hd180692180712%_ (let () (declare (not safe)) - (##car _%block181673181684%_))) - (_%tl181678181699%_ + (##car _%block180688180699%_))) + (_%tl180693180714%_ (let () (declare (not safe)) - (##cdr _%block181673181684%_)))) - (let ((_%name181702%_ _%hd181677181697%_)) + (##cdr _%block180688180699%_)))) + (let ((_%name180717%_ _%hd180692180712%_)) (if (let () (declare (not safe)) - (##pair? _%tl181678181699%_)) - (let ((_%tl181680181704%_ + (##pair? _%tl180693180714%_)) + (let ((_%tl180695180719%_ (let () (declare (not safe)) - (##cdr _%tl181678181699%_)))) + (##cdr _%tl180693180714%_)))) (if (let () (declare (not safe)) - (##pair? _%tl181680181704%_)) - (let* ((_%hd181681181707%_ + (##pair? _%tl180695180719%_)) + (let* ((_%hd180696180722%_ (let () (declare (not safe)) - (##car _%tl181680181704%_))) - (_%kont181710%_ - _%hd181681181707%_)) - (declare (not safe)) - (_%K181676181694%_ - _%kont181710%_ - _%name181702%_)) - (let () - (declare (not safe)) - (_%E181675181688%_)))) - (let () - (declare (not safe)) - (_%E181675181688%_))))) - (let () - (declare (not safe)) - (_%E181675181688%_))))))) + (##car _%tl180695180719%_))) + (_%kont180725%_ + _%hd180696180722%_)) + (_%K180691180709%_ + _%kont180725%_ + _%name180717%_)) + (_%E180690180703%_))) + (_%E180690180703%_)))) + (_%E180690180703%_)))))) (declare (not safe)) - (__foldl1 __tmp187038 '() _%blocks181654%_)))) - (_%K181659182031%_ - (lambda (_%rest181715%_ _%block181716%_) - (let* ((_%block181717181742%_ _%block181716%_) - (_%E181720181746%_ + (__foldl1 __tmp186038 '() _%blocks180669%_)))) + (_%K180674181046%_ + (lambda (_%rest180730%_ _%block180731%_) + (let* ((_%block180732180757%_ _%block180731%_) + (_%E180735180761%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block181717181742%_ + _%block180732180757%_ '([name restart: kont assert]) '([name continue: kont assert bind]))) '#!void))) - (let ((_%K181732182002%_ - (lambda (_%assert181924%_ - _%kont181925%_ - _%name181926%_) - (let* ((_%g181928181944%_ - (lambda (_%g181929181941%_) + (let ((_%K180747181017%_ + (lambda (_%assert180939%_ + _%kont180940%_ + _%name180941%_) + (let* ((_%g180943180959%_ + (lambda (_%g180944180956%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g181929181941%_)))) - (_%g181927181999%_ - (lambda (_%g181929181947%_) + _%g180944180956%_)))) + (_%g180942181014%_ + (lambda (_%g180944180962%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g181929181947%_)) - (let ((_%e181933181949%_ + _%g180944180962%_)) + (let ((_%e180948180964%_ (let () (declare (not safe)) (gx#stx-e - _%g181929181947%_)))) - (let ((_%hd181932181952%_ + _%g180944180962%_)))) + (let ((_%hd180947180967%_ (let () (declare (not safe)) - (##car _%e181933181949%_))) - (_%tl181931181954%_ + (##car _%e180948180964%_))) + (_%tl180946180969%_ (let () (declare (not safe)) - (##cdr _%e181933181949%_)))) + (##cdr _%e180948180964%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181932181952%_)) + _%hd180947180967%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd181932181952%_)) + _%hd180947180967%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl181931181954%_)) - (let ((_%e181936181957%_ + (gx#stx-pair? _%tl180946180969%_)) + (let ((_%e180951180972%_ (let () (declare (not safe)) - (gx#stx-e _%tl181931181954%_)))) - (let ((_%hd181935181960%_ + (gx#stx-e _%tl180946180969%_)))) + (let ((_%hd180950180975%_ (let () (declare (not safe)) - (##car _%e181936181957%_))) - (_%tl181934181962%_ + (##car _%e180951180972%_))) + (_%tl180949180977%_ (let () (declare (not safe)) - (##cdr _%e181936181957%_)))) + (##cdr _%e180951180972%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd181935181960%_)) + (gx#stx-null? _%hd180950180975%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181934181962%_)) - (let ((_%e181939181965%_ + (gx#stx-pair? _%tl180949180977%_)) + (let ((_%e180954180980%_ (let () (declare (not safe)) - (gx#stx-e _%tl181934181962%_)))) - (let ((_%hd181938181968%_ + (gx#stx-e _%tl180949180977%_)))) + (let ((_%hd180953180983%_ (let () (declare (not safe)) - (##car _%e181939181965%_))) - (_%tl181937181970%_ + (##car _%e180954180980%_))) + (_%tl180952180985%_ (let () (declare (not safe)) - (##cdr _%e181939181965%_)))) + (##cdr _%e180954180980%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181937181970%_)) - ((lambda (_%L181973%_) - (let* ((_%body181988%_ - (let () - (declare (not safe)) - (gxc#optimize-match-block - _%L181973%_ - _%assert181924%_ - '() - _%rest181715%_))) - (_%block181990%_ - (cons _%name181926%_ + (gx#stx-null? _%tl180952180985%_)) + ((lambda (_%L180988%_) + (let* ((_%body181003%_ + (gxc#optimize-match-block + _%L180988%_ + _%assert180939%_ + '() + _%rest180730%_)) + (_%block181005%_ + (cons _%name180941%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body181988%_ '()))) - (cons _%assert181924%_ '()))))) + (cons '() (cons _%body181003%_ '()))) + (cons _%assert180939%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks181992%_ - (cons _%block181990%_ - _%blocks181654%_)) - (_%rest181994%_ - (let () - (declare (not safe)) - (gxc#optimize-match-prune-blocks - _%rest181715%_ - _%blocks181992%_))) - (_%rest181996%_ - (let () - (declare (not safe)) - (gxc#optimize-match-fuse-restart-blocks - _%rest181994%_ - _%blocks181992%_)))) - (declare (not safe)) - (_%lp181651%_ - _%rest181996%_ - _%blocks181992%_))) - _%hd181938181968%_) - (let () - (declare (not safe)) - (_%g181928181944%_ - _%g181929181947%_))))) - (let () - (declare (not safe)) - (_%g181928181944%_ _%g181929181947%_))) - (let () - (declare (not safe)) - (_%g181928181944%_ _%g181929181947%_))))) - (let () - (declare (not safe)) - (_%g181928181944%_ _%g181929181947%_))) - (let () - (declare (not safe)) - (_%g181928181944%_ _%g181929181947%_))) + (_%blocks181007%_ + (cons _%block181005%_ + _%blocks180669%_)) + (_%rest181009%_ + (gxc#optimize-match-prune-blocks + _%rest180730%_ + _%blocks181007%_)) + (_%rest181011%_ + (gxc#optimize-match-fuse-restart-blocks + _%rest181009%_ + _%blocks181007%_))) + (_%lp180666%_ + _%rest181011%_ + _%blocks181007%_))) + _%hd180953180983%_) + (_%g180943180959%_ + _%g180944180962%_)))) + (_%g180943180959%_ _%g180944180962%_)) + (_%g180943180959%_ _%g180944180962%_)))) + (_%g180943180959%_ _%g180944180962%_)) + (_%g180943180959%_ _%g180944180962%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g181928181944%_ - _%g181929181947%_))))) - (let () - (declare (not safe)) - (_%g181928181944%_ - _%g181929181947%_)))))) - (declare (not safe)) - (_%g181927181999%_ _%kont181925%_)))) - (_%K181721181885%_ - (lambda (_%bind181750%_ - _%assert181751%_ - _%kont181752%_ - _%name181753%_) - (let* ((_%g181755181781%_ - (lambda (_%g181756181778%_) + (_%g180943180959%_ + _%g180944180962%_)))) + (_%g180943180959%_ + _%g180944180962%_))))) + (_%g180942181014%_ _%kont180940%_)))) + (_%K180736180900%_ + (lambda (_%bind180765%_ + _%assert180766%_ + _%kont180767%_ + _%name180768%_) + (let* ((_%g180770180796%_ + (lambda (_%g180771180793%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g181756181778%_)))) - (_%g181754181882%_ - (lambda (_%g181756181784%_) + _%g180771180793%_)))) + (_%g180769180897%_ + (lambda (_%g180771180799%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g181756181784%_)) - (let ((_%e181761181786%_ + _%g180771180799%_)) + (let ((_%e180776180801%_ (let () (declare (not safe)) (gx#stx-e - _%g181756181784%_)))) - (let ((_%hd181760181789%_ + _%g180771180799%_)))) + (let ((_%hd180775180804%_ (let () (declare (not safe)) - (##car _%e181761181786%_))) - (_%tl181759181791%_ + (##car _%e180776180801%_))) + (_%tl180774180806%_ (let () (declare (not safe)) - (##cdr _%e181761181786%_)))) + (##cdr _%e180776180801%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181760181789%_)) + _%hd180775180804%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd181760181789%_)) + _%hd180775180804%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl181759181791%_)) - (let ((_%e181764181794%_ + (gx#stx-pair? _%tl180774180806%_)) + (let ((_%e180779180809%_ (let () (declare (not safe)) - (gx#stx-e _%tl181759181791%_)))) - (let ((_%hd181763181797%_ + (gx#stx-e _%tl180774180806%_)))) + (let ((_%hd180778180812%_ (let () (declare (not safe)) - (##car _%e181764181794%_))) - (_%tl181762181799%_ + (##car _%e180779180809%_))) + (_%tl180777180814%_ (let () (declare (not safe)) - (##cdr _%e181764181794%_)))) + (##cdr _%e180779180809%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd181763181797%_)) - (let ((_g187039_ + (gx#stx-pair/null? _%hd180778180812%_)) + (let ((_g186039_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd181763181797%_ + _%hd180778180812%_ '0)))) (begin - (let ((_g187040_ + (let ((_g186040_ (let () (declare (not safe)) - (if (##values? _g187039_) - (##vector-length _g187039_) + (if (##values? _g186039_) + (##vector-length _g186039_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g187040_ 2))) + (##fx= _g186040_ 2))) (error "Context expects 2 values" - _g187040_))) - (let ((_%target181765181802%_ + _g186040_))) + (let ((_%target180780180817%_ (let () (declare (not safe)) - (##vector-ref _g187039_ 0))) - (_%tl181767181804%_ + (##vector-ref _g186039_ 0))) + (_%tl180782180819%_ (let () (declare (not safe)) - (##vector-ref _g187039_ 1)))) + (##vector-ref _g186039_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181767181804%_)) - (letrec ((_%loop181768181807%_ - (lambda (_%hd181766181810%_ - _%id181772181812%_) + (gx#stx-null? _%tl180782180819%_)) + (letrec ((_%loop180783180822%_ + (lambda (_%hd180781180825%_ + _%id180787180827%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181766181810%_)) - (let ((_%e181769181815%_ + _%hd180781180825%_)) + (let ((_%e180784180830%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd181766181810%_)))) - (let ((_%lp-hd181770181818%_ + (gx#stx-e _%hd180781180825%_)))) + (let ((_%lp-hd180785180833%_ (let () (declare (not safe)) - (##car _%e181769181815%_))) - (_%lp-tl181771181820%_ + (##car _%e180784180830%_))) + (_%lp-tl180786180835%_ (let () (declare (not safe)) - (##cdr _%e181769181815%_)))) - (let ((__tmp187041 - (cons _%lp-hd181770181818%_ _%id181772181812%_))) - (declare (not safe)) - (_%loop181768181807%_ - _%lp-tl181771181820%_ - __tmp187041)))) - (let ((_%id181773181823%_ (reverse _%id181772181812%_))) + (##cdr _%e180784180830%_)))) + (_%loop180783180822%_ + _%lp-tl180786180835%_ + (cons _%lp-hd180785180833%_ _%id180787180827%_)))) + (let ((_%id180788180838%_ (reverse _%id180787180827%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181762181799%_)) - (let ((_%e181776181826%_ + (gx#stx-pair? _%tl180777180814%_)) + (let ((_%e180791180841%_ (let () (declare (not safe)) - (gx#stx-e _%tl181762181799%_)))) - (let ((_%hd181775181829%_ + (gx#stx-e _%tl180777180814%_)))) + (let ((_%hd180790180844%_ (let () (declare (not safe)) - (##car _%e181776181826%_))) - (_%tl181774181831%_ + (##car _%e180791180841%_))) + (_%tl180789180846%_ (let () (declare (not safe)) - (##cdr _%e181776181826%_)))) + (##cdr _%e180791180841%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181774181831%_)) - ((lambda (_%L181834%_ _%L181835%_) - (let* ((_%body181864%_ - (let () - (declare (not safe)) - (gxc#optimize-match-block - _%L181834%_ - _%assert181751%_ - _%bind181750%_ - _%rest181715%_))) - (_%block181873%_ - (cons _%name181753%_ + (gx#stx-null? _%tl180789180846%_)) + ((lambda (_%L180849%_ _%L180850%_) + (let* ((_%body180879%_ + (gxc#optimize-match-block + _%L180849%_ + _%assert180766%_ + _%bind180765%_ + _%rest180730%_)) + (_%block180888%_ + (cons _%name180768%_ (cons 'continue: (cons (cons '%#lambda - (cons (let ((__tmp187042 + (cons (let ((__tmp186041 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g181865181868%_ - _%g181866181870%_) - (cons _%g181865181868%_ - _%g181866181870%_)))) + (lambda (_%g180880180883%_ + _%g180881180885%_) + (cons _%g180880180883%_ + _%g180881180885%_)))) (declare (not safe)) - (__foldr1 __tmp187042 '() _%L181835%_)) - (cons _%body181864%_ '()))) - (cons _%assert181751%_ (cons _%bind181750%_ '())))))) + (__foldr1 __tmp186041 '() _%L180850%_)) + (cons _%body180879%_ '()))) + (cons _%assert180766%_ (cons _%bind180765%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks181875%_ - (cons _%block181873%_ - _%blocks181654%_)) - (_%rest181877%_ - (let () - (declare (not safe)) - (gxc#optimize-match-prune-blocks - _%rest181715%_ - _%blocks181875%_))) - (_%rest181879%_ - (let () - (declare (not safe)) - (gxc#optimize-match-fuse-restart-blocks - _%rest181877%_ - _%blocks181875%_)))) - (declare (not safe)) - (_%lp181651%_ - _%rest181879%_ - _%blocks181875%_))) - _%hd181775181829%_ - _%id181773181823%_) - (let () - (declare (not safe)) - (_%g181755181781%_ _%g181756181784%_))))) - (let () - (declare (not safe)) - (_%g181755181781%_ _%g181756181784%_)))))))) + (_%blocks180890%_ + (cons _%block180888%_ + _%blocks180669%_)) + (_%rest180892%_ + (gxc#optimize-match-prune-blocks + _%rest180730%_ + _%blocks180890%_)) + (_%rest180894%_ + (gxc#optimize-match-fuse-restart-blocks + _%rest180892%_ + _%blocks180890%_))) + (_%lp180666%_ + _%rest180894%_ + _%blocks180890%_))) + _%hd180790180844%_ + _%id180788180838%_) + (_%g180770180796%_ _%g180771180799%_)))) + (_%g180770180796%_ _%g180771180799%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop181768181807%_ - _%target181765181802%_ - '()))) - (let () - (declare (not safe)) - (_%g181755181781%_ - _%g181756181784%_)))))) - (let () - (declare (not safe)) - (_%g181755181781%_ _%g181756181784%_))))) - (let () - (declare (not safe)) - (_%g181755181781%_ _%g181756181784%_))) - (let () - (declare (not safe)) - (_%g181755181781%_ _%g181756181784%_))) + (_%loop180783180822%_ + _%target180780180817%_ + '())) + (_%g180770180796%_ + _%g180771180799%_))))) + (_%g180770180796%_ _%g180771180799%_)))) + (_%g180770180796%_ _%g180771180799%_)) + (_%g180770180796%_ _%g180771180799%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g181755181781%_ - _%g181756181784%_))))) - (let () - (declare (not safe)) - (_%g181755181781%_ - _%g181756181784%_)))))) - (declare (not safe)) - (_%g181754181882%_ _%kont181752%_))))) - (let* ((_%__match184384184385%_ - (lambda (_%hd181722181888%_ - _%tl181723181890%_ - _%hd181724181895%_ - _%tl181725181897%_ - _%hd181726181900%_ - _%tl181727181902%_ - _%hd181728181907%_ - _%tl181729181909%_ - _%hd181730181914%_ - _%tl181731181916%_) - (let ((_%name181893%_ _%hd181722181888%_) - (_%kont181905%_ _%hd181726181900%_) - (_%assert181912%_ _%hd181728181907%_) - (_%bind181919%_ _%hd181730181914%_)) - (let () - (declare (not safe)) - (_%E181720181746%_))))) - (_%__match184378184379%_ - (lambda (_%hd181722181888%_ - _%tl181723181890%_ - _%hd181724181895%_ - _%tl181725181897%_ - _%hd181726181900%_ - _%tl181727181902%_ - _%hd181728181907%_ - _%tl181729181909%_) - (let ((_%name181893%_ _%hd181722181888%_) - (_%kont181905%_ _%hd181726181900%_) - (_%assert181912%_ _%hd181728181907%_)) - (let () - (declare (not safe)) - (_%E181720181746%_))))) - (_%__match184372184373%_ - (lambda (_%hd181722181888%_ - _%tl181723181890%_ - _%hd181724181895%_ - _%tl181725181897%_ - _%hd181726181900%_ - _%tl181727181902%_) - (let ((_%name181893%_ _%hd181722181888%_) - (_%kont181905%_ _%hd181726181900%_)) - (let () - (declare (not safe)) - (_%E181720181746%_))))) - (_%__match184366184367%_ - (lambda (_%hd181722181888%_ - _%tl181723181890%_ - _%hd181724181895%_ - _%tl181725181897%_) - (let ((_%name181893%_ _%hd181722181888%_)) - (declare (not safe)) - (_%E181720181746%_)))) - (_%__match184362184363%_ - (lambda (_%hd181722181888%_ - _%tl181723181890%_ - _%hd181724181895%_ - _%tl181725181897%_) - (let ((_%name181893%_ _%hd181722181888%_)) - (declare (not safe)) - (_%E181720181746%_)))) - (_%__match184356184357%_ - (lambda (_%hd181722181888%_ _%tl181723181890%_) - (let ((_%name181893%_ _%hd181722181888%_)) - (declare (not safe)) - (_%E181720181746%_))))) + (_%g180770180796%_ + _%g180771180799%_)))) + (_%g180770180796%_ + _%g180771180799%_))))) + (_%g180769180897%_ _%kont180767%_))))) + (let* ((_%__match183399183400%_ + (lambda (_%hd180737180903%_ + _%tl180738180905%_ + _%hd180739180910%_ + _%tl180740180912%_ + _%hd180741180915%_ + _%tl180742180917%_ + _%hd180743180922%_ + _%tl180744180924%_ + _%hd180745180929%_ + _%tl180746180931%_) + (let ((_%name180908%_ _%hd180737180903%_) + (_%kont180920%_ _%hd180741180915%_) + (_%assert180927%_ _%hd180743180922%_) + (_%bind180934%_ _%hd180745180929%_)) + (_%E180735180761%_)))) + (_%__match183393183394%_ + (lambda (_%hd180737180903%_ + _%tl180738180905%_ + _%hd180739180910%_ + _%tl180740180912%_ + _%hd180741180915%_ + _%tl180742180917%_ + _%hd180743180922%_ + _%tl180744180924%_) + (let ((_%name180908%_ _%hd180737180903%_) + (_%kont180920%_ _%hd180741180915%_) + (_%assert180927%_ _%hd180743180922%_)) + (_%E180735180761%_)))) + (_%__match183387183388%_ + (lambda (_%hd180737180903%_ + _%tl180738180905%_ + _%hd180739180910%_ + _%tl180740180912%_ + _%hd180741180915%_ + _%tl180742180917%_) + (let ((_%name180908%_ _%hd180737180903%_) + (_%kont180920%_ _%hd180741180915%_)) + (_%E180735180761%_)))) + (_%__match183381183382%_ + (lambda (_%hd180737180903%_ + _%tl180738180905%_ + _%hd180739180910%_ + _%tl180740180912%_) + (let ((_%name180908%_ _%hd180737180903%_)) + (_%E180735180761%_)))) + (_%__match183377183378%_ + (lambda (_%hd180737180903%_ + _%tl180738180905%_ + _%hd180739180910%_ + _%tl180740180912%_) + (let ((_%name180908%_ _%hd180737180903%_)) + (_%E180735180761%_)))) + (_%__match183371183372%_ + (lambda (_%hd180737180903%_ _%tl180738180905%_) + (let ((_%name180908%_ _%hd180737180903%_)) + (_%E180735180761%_))))) (if (let () (declare (not safe)) - (##pair? _%block181717181742%_)) - (let ((_%tl181734182007%_ + (##pair? _%block180732180757%_)) + (let ((_%tl180749181022%_ (let () (declare (not safe)) - (##cdr _%block181717181742%_))) - (_%hd181733182005%_ + (##cdr _%block180732180757%_))) + (_%hd180748181020%_ (let () (declare (not safe)) - (##car _%block181717181742%_)))) + (##car _%block180732180757%_)))) (if (let () (declare (not safe)) - (##pair? _%tl181734182007%_)) - (let ((_%tl181736182014%_ + (##pair? _%tl180749181022%_)) + (let ((_%tl180751181029%_ (let () (declare (not safe)) - (##cdr _%tl181734182007%_))) - (_%hd181735182012%_ + (##cdr _%tl180749181022%_))) + (_%hd180750181027%_ (let () (declare (not safe)) - (##car _%tl181734182007%_)))) + (##car _%tl180749181022%_)))) (if (let () (declare (not safe)) - (##eq? _%hd181735182012%_ + (##eq? _%hd180750181027%_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _%tl181736182014%_)) - (let ((_%tl181738182019%_ + (##pair? _%tl180751181029%_)) + (let ((_%tl180753181034%_ (let () (declare (not safe)) - (##cdr _%tl181736182014%_))) - (_%hd181737182017%_ + (##cdr _%tl180751181029%_))) + (_%hd180752181032%_ (let () (declare (not safe)) - (##car _%tl181736182014%_)))) + (##car _%tl180751181029%_)))) (if (let () (declare (not safe)) - (##pair? _%tl181738182019%_)) - (let ((_%tl181740182026%_ + (##pair? _%tl180753181034%_)) + (let ((_%tl180755181041%_ (let () (declare (not safe)) - (##cdr _%tl181738182019%_))) - (_%hd181739182024%_ + (##cdr _%tl180753181034%_))) + (_%hd180754181039%_ (let () (declare (not safe)) - (##car _%tl181738182019%_)))) + (##car _%tl180753181034%_)))) (if (let () (declare (not safe)) - (##null? _%tl181740182026%_)) - (let ((_%name182010%_ + (##null? _%tl180755181041%_)) + (let ((_%name181025%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd181733182005%_) - (_%kont182022%_ _%hd181737182017%_) - (_%assert182029%_ _%hd181739182024%_)) - (let () - (declare (not safe)) - (_%K181732182002%_ - _%assert182029%_ - _%kont182022%_ - _%name182010%_))) - (_%__match184362184363%_ - _%hd181733182005%_ - _%tl181734182007%_ - _%hd181735182012%_ - _%tl181736182014%_))) + _%hd180748181020%_) + (_%kont181037%_ _%hd180752181032%_) + (_%assert181044%_ _%hd180754181039%_)) + (_%K180747181017%_ + _%assert181044%_ + _%kont181037%_ + _%name181025%_)) + (_%__match183377183378%_ + _%hd180748181020%_ + _%tl180749181022%_ + _%hd180750181027%_ + _%tl180751181029%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match184362184363%_ - _%hd181733182005%_ - _%tl181734182007%_ - _%hd181735182012%_ - _%tl181736182014%_))) - (_%__match184362184363%_ - _%hd181733182005%_ - _%tl181734182007%_ - _%hd181735182012%_ - _%tl181736182014%_)) + (_%__match183377183378%_ + _%hd180748181020%_ + _%tl180749181022%_ + _%hd180750181027%_ + _%tl180751181029%_))) + (_%__match183377183378%_ + _%hd180748181020%_ + _%tl180749181022%_ + _%hd180750181027%_ + _%tl180751181029%_)) (if (let () (declare (not safe)) - (##eq? _%hd181735182012%_ + (##eq? _%hd180750181027%_ 'continue:)) (if (let () (declare (not safe)) - (##pair? _%tl181736182014%_)) - (let ((_%tl181727181902%_ + (##pair? _%tl180751181029%_)) + (let ((_%tl180742180917%_ (let () (declare (not safe)) - (##cdr _%tl181736182014%_))) - (_%hd181726181900%_ + (##cdr _%tl180751181029%_))) + (_%hd180741180915%_ (let () (declare (not safe)) - (##car _%tl181736182014%_)))) + (##car _%tl180751181029%_)))) (if (let () (declare (not safe)) - (##pair? _%tl181727181902%_)) - (let ((_%tl181729181909%_ + (##pair? _%tl180742180917%_)) + (let ((_%tl180744180924%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl181727181902%_))) - (_%hd181728181907%_ + (##cdr _%tl180742180917%_))) + (_%hd180743180922%_ (let () (declare (not safe)) - (##car _%tl181727181902%_)))) + (##car _%tl180742180917%_)))) (if (let () (declare (not safe)) - (##pair? _%tl181729181909%_)) - (let ((_%tl181731181916%_ + (##pair? _%tl180744180924%_)) + (let ((_%tl180746180931%_ (let () (declare (not safe)) - (##cdr _%tl181729181909%_))) - (_%hd181730181914%_ + (##cdr _%tl180744180924%_))) + (_%hd180745180929%_ (let () (declare (not safe)) - (##car _%tl181729181909%_)))) + (##car _%tl180744180924%_)))) (if (let () (declare (not safe)) - (##null? _%tl181731181916%_)) - (let ((_%name181893%_ _%hd181733182005%_) - (_%kont181905%_ _%hd181726181900%_) - (_%assert181912%_ _%hd181728181907%_) - (_%bind181919%_ _%hd181730181914%_)) - (let () - (declare (not safe)) - (_%K181721181885%_ - _%bind181919%_ - _%assert181912%_ - _%kont181905%_ - _%name181893%_))) - (_%__match184384184385%_ - _%hd181733182005%_ - _%tl181734182007%_ - _%hd181735182012%_ - _%tl181736182014%_ - _%hd181726181900%_ - _%tl181727181902%_ - _%hd181728181907%_ - _%tl181729181909%_ - _%hd181730181914%_ - _%tl181731181916%_))) - (_%__match184378184379%_ - _%hd181733182005%_ - _%tl181734182007%_ - _%hd181735182012%_ - _%tl181736182014%_ - _%hd181726181900%_ - _%tl181727181902%_ - _%hd181728181907%_ - _%tl181729181909%_))) - (_%__match184372184373%_ - _%hd181733182005%_ - _%tl181734182007%_ - _%hd181735182012%_ - _%tl181736182014%_ - _%hd181726181900%_ - _%tl181727181902%_))) + (##null? _%tl180746180931%_)) + (let ((_%name180908%_ _%hd180748181020%_) + (_%kont180920%_ _%hd180741180915%_) + (_%assert180927%_ _%hd180743180922%_) + (_%bind180934%_ _%hd180745180929%_)) + (_%K180736180900%_ + _%bind180934%_ + _%assert180927%_ + _%kont180920%_ + _%name180908%_)) + (_%__match183399183400%_ + _%hd180748181020%_ + _%tl180749181022%_ + _%hd180750181027%_ + _%tl180751181029%_ + _%hd180741180915%_ + _%tl180742180917%_ + _%hd180743180922%_ + _%tl180744180924%_ + _%hd180745180929%_ + _%tl180746180931%_))) + (_%__match183393183394%_ + _%hd180748181020%_ + _%tl180749181022%_ + _%hd180750181027%_ + _%tl180751181029%_ + _%hd180741180915%_ + _%tl180742180917%_ + _%hd180743180922%_ + _%tl180744180924%_))) + (_%__match183387183388%_ + _%hd180748181020%_ + _%tl180749181022%_ + _%hd180750181027%_ + _%tl180751181029%_ + _%hd180741180915%_ + _%tl180742180917%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match184366184367%_ - _%hd181733182005%_ - _%tl181734182007%_ - _%hd181735182012%_ - _%tl181736182014%_)) - (_%__match184362184363%_ - _%hd181733182005%_ - _%tl181734182007%_ - _%hd181735182012%_ - _%tl181736182014%_)))) - (_%__match184356184357%_ - _%hd181733182005%_ - _%tl181734182007%_))) - (let () - (declare (not safe)) - (_%E181720181746%_))))))))) - (if (let () (declare (not safe)) (##pair? _%rest181655181663%_)) - (let ((_%hd181660182034%_ + (_%__match183381183382%_ + _%hd180748181020%_ + _%tl180749181022%_ + _%hd180750181027%_ + _%tl180751181029%_)) + (_%__match183377183378%_ + _%hd180748181020%_ + _%tl180749181022%_ + _%hd180750181027%_ + _%tl180751181029%_)))) + (_%__match183371183372%_ + _%hd180748181020%_ + _%tl180749181022%_))) + (_%E180735180761%_)))))))) + (if (let () (declare (not safe)) (##pair? _%rest180670180678%_)) + (let ((_%hd180675181049%_ (let () (declare (not safe)) - (##car _%rest181655181663%_))) - (_%tl181661182036%_ + (##car _%rest180670180678%_))) + (_%tl180676181051%_ (let () (declare (not safe)) - (##cdr _%rest181655181663%_)))) - (let* ((_%block182039%_ _%hd181660182034%_) - (_%rest182041%_ _%tl181661182036%_)) - (declare (not safe)) - (_%K181659182031%_ _%rest182041%_ _%block182039%_))) - (let () (declare (not safe)) (_%else181657181712%_))))))) + (##cdr _%rest180670180678%_)))) + (let* ((_%block181054%_ _%hd180675181049%_) + (_%rest181056%_ _%tl180676181051%_)) + (_%K180674181046%_ _%rest181056%_ _%block181054%_))) + (_%else180672180727%_)))))) (define gxc#optimize-match-block - (lambda (_%body176272%_ _%assert176273%_ _%bind176274%_ _%blocks176275%_) - (letrec* ((_%env-assert176510%_ '()) - (_%env-type176511%_ '()) - (_%env-bind176512%_ '()) - (_%in-splice?176513%_ '#f) - (_%do-assert176514%_ - (lambda (_%assert181572%_ _%K181573%_) - (if (let () (declare (not safe)) (pair? _%assert181572%_)) - (let _%lp181575%_ ((_%rest181577%_ _%assert181572%_) - (_%env-assert181578%_ - _%env-assert176510%_) - (_%env-type181579%_ - _%env-type176511%_)) - (let* ((_%rest181580181588%_ _%rest181577%_) - (_%else181582181596%_ + (lambda (_%body175287%_ _%assert175288%_ _%bind175289%_ _%blocks175290%_) + (letrec* ((_%env-assert175525%_ '()) + (_%env-type175526%_ '()) + (_%env-bind175527%_ '()) + (_%in-splice?175528%_ '#f) + (_%do-assert175529%_ + (lambda (_%assert180587%_ _%K180588%_) + (if (pair? _%assert180587%_) + (let _%lp180590%_ ((_%rest180592%_ _%assert180587%_) + (_%env-assert180593%_ + _%env-assert175525%_) + (_%env-type180594%_ + _%env-type175526%_)) + (let* ((_%rest180595180603%_ _%rest180592%_) + (_%else180597180611%_ (lambda () - (let () - (declare (not safe)) - (_%do-assert!176520%_ - _%env-assert181578%_ - _%env-type181579%_ - _%K181573%_)))) - (_%K181584181637%_ - (lambda (_%rest181599%_ _%assert181600%_) - (let* ((_%assert181601181608%_ - _%assert181600%_) - (_%E181603181612%_ + (_%do-assert!175535%_ + _%env-assert180593%_ + _%env-type180594%_ + _%K180588%_))) + (_%K180599180652%_ + (lambda (_%rest180614%_ _%assert180615%_) + (let* ((_%assert180616180623%_ + _%assert180615%_) + (_%E180618180627%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%assert181601181608%_ + _%assert180616180623%_ '([expr . val]))) '#!void)) - (_%K181604181625%_ - (lambda (_%val181615%_ - _%expr181616%_) - (let* ((_%sexpr181618%_ - (let () - (declare (not safe)) - (gxc#apply-generate-runtime-repr - _%expr181616%_))) - (_%env-assert181620%_ - (cons (cons _%sexpr181618%_ + (_%K180619180640%_ + (lambda (_%val180630%_ + _%expr180631%_) + (let* ((_%sexpr180633%_ + (gxc#apply-generate-runtime-repr + _%expr180631%_)) + (_%env-assert180635%_ + (cons (cons _%sexpr180633%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%val181615%_) - _%env-assert181578%_)) - (_%env-type181622%_ - (let () - (declare (not safe)) - (_%fold-assert-type176516%_ - _%expr181616%_ - _%val181615%_ - _%env-type181579%_)))) + _%val180630%_) + _%env-assert180593%_)) + (_%env-type180637%_ + (_%fold-assert-type175531%_ + _%expr180631%_ + _%val180630%_ + _%env-type180594%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp181575%_ - _%rest181599%_ - _%env-assert181620%_ - _%env-type181622%_))))) + (_%lp180590%_ + _%rest180614%_ + _%env-assert180635%_ + _%env-type180637%_))))) (if (let () (declare (not safe)) - (##pair? _%assert181601181608%_)) - (let ((_%hd181605181628%_ + (##pair? _%assert180616180623%_)) + (let ((_%hd180620180643%_ (let () (declare (not safe)) - (##car _%assert181601181608%_))) - (_%tl181606181630%_ + (##car _%assert180616180623%_))) + (_%tl180621180645%_ (let () (declare (not safe)) - (##cdr _%assert181601181608%_)))) - (let* ((_%expr181633%_ - _%hd181605181628%_) - (_%val181635%_ - _%tl181606181630%_)) - (declare (not safe)) - (_%K181604181625%_ - _%val181635%_ - _%expr181633%_))) - (let () - (declare (not safe)) - (_%E181603181612%_))))))) + (##cdr _%assert180616180623%_)))) + (let* ((_%expr180648%_ + _%hd180620180643%_) + (_%val180650%_ + _%tl180621180645%_)) + (_%K180619180640%_ + _%val180650%_ + _%expr180648%_))) + (_%E180618180627%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest181580181588%_)) - (let ((_%hd181585181640%_ + (##pair? _%rest180595180603%_)) + (let ((_%hd180600180655%_ (let () (declare (not safe)) - (##car _%rest181580181588%_))) - (_%tl181586181642%_ + (##car _%rest180595180603%_))) + (_%tl180601180657%_ (let () (declare (not safe)) - (##cdr _%rest181580181588%_)))) - (let* ((_%assert181645%_ _%hd181585181640%_) - (_%rest181647%_ _%tl181586181642%_)) - (declare (not safe)) - (_%K181584181637%_ - _%rest181647%_ - _%assert181645%_))) - (let () - (declare (not safe)) - (_%else181582181596%_))))) - (_%K181573%_)))) - (_%predicate-type176515%_ - (lambda (_%id181517%_) - (let* ((_%sym181519%_ + (##cdr _%rest180595180603%_)))) + (let* ((_%assert180660%_ _%hd180600180655%_) + (_%rest180662%_ _%tl180601180657%_)) + (_%K180599180652%_ + _%rest180662%_ + _%assert180660%_))) + (_%else180597180611%_)))) + (_%K180588%_)))) + (_%predicate-type175530%_ + (lambda (_%id180532%_) + (let* ((_%sym180534%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id181517%_))) - (_%$e181521%_ _%sym181519%_)) - (let ((_%default181523181554%_ + (gxc#identifier-symbol _%id180532%_))) + (_%$e180536%_ _%sym180534%_)) + (let ((_%default180538180569%_ (lambda () - (let* ((_%g181526181533%_ + (let* ((_%g180541180548%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym181519%_))) - (_%else181528181541%_ (lambda () '#f)) - (_%K181530181546%_ - (lambda (_%t181544%_) - (let ((__tmp187043 + _%sym180534%_))) + (_%else180543180556%_ (lambda () '#f)) + (_%K180545180561%_ + (lambda (_%t180559%_) + (let ((__tmp186042 (cons 'predicate-type - (cons _%id181517%_ + (cons _%id180532%_ '())))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp187043 - _%t181544%_))))) + __tmp186042 + _%t180559%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g181526181533%_ + _%g180541180548%_ 'gxc#!predicate::t)) - (let* ((_%e181531181549%_ + (let* ((_%e180546180564%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g181526181533%_ + _%g180541180548%_ '1 '#f '#f))) - (_%t181552%_ _%e181531181549%_)) - (declare (not safe)) - (_%K181530181546%_ _%t181552%_)) - (let () - (declare (not safe)) - (_%else181528181541%_)))))) - (_%table181524181556%_ + (_%t180567%_ _%e180546180564%_)) + (_%K180545180561%_ _%t180567%_)) + (_%else180543180556%_))))) + (_%table180539180571%_ '#(#f (##box? . 3) #f @@ -4127,50 +3857,48 @@ #f #f #f))) - (if (let () - (declare (not safe)) - (symbol? _%$e181521%_)) - (let* ((_%h181559%_ + (if (symbol? _%$e180536%_) + (let* ((_%h180574%_ (let () (declare (not safe)) - (##symbol-hash _%$e181521%_))) - (_%ix181562%_ + (##symbol-hash _%$e180536%_))) + (_%ix180577%_ (let () (declare (not safe)) - (##fxmodulo _%h181559%_ '63))) - (_%q181565%_ + (##fxmodulo _%h180574%_ '63))) + (_%q180580%_ (let () (declare (not safe)) (##vector-ref - _%table181524181556%_ - _%ix181562%_)))) - (if _%q181565%_ + _%table180539180571%_ + _%ix180577%_)))) + (if _%q180580%_ (if (eq? (let () (declare (not safe)) - (##car _%q181565%_)) - _%$e181521%_) - (let ((_%x181569%_ + (##car _%q180580%_)) + _%$e180536%_) + (let ((_%x180584%_ (let () (declare (not safe)) - (##cdr _%q181565%_)))) + (##cdr _%q180580%_)))) (if (let () (declare (not safe)) - (##fx< _%x181569%_ '5)) + (##fx< _%x180584%_ '5)) (if (let () (declare (not safe)) - (##fx< _%x181569%_ '2)) + (##fx< _%x180584%_ '2)) (if (let () (declare (not safe)) - (##fx= _%x181569%_ '0)) + (##fx= _%x180584%_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _%x181569%_ '2)) + (##fx= _%x180584%_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _%x181569%_ + (##fx= _%x180584%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -4178,5015 +3906,4803 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _%x181569%_ '7)) + (##fx< _%x180584%_ '7)) (if (let () (declare (not safe)) - (##fx= _%x181569%_ '5)) + (##fx= _%x180584%_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _%x181569%_ '7)) + (##fx= _%x180584%_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _%x181569%_ + (##fx= _%x180584%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box 'stx-datum))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%default181523181554%_))) - (let () - (declare (not safe)) - (_%default181523181554%_)))) - (let () - (declare (not safe)) - (_%default181523181554%_))))))) - (_%fold-assert-type176516%_ - (lambda (_%expr180463%_ _%val180464%_ _%env180465%_) - (let* ((_%__stx184481184482%_ _%expr180463%_) - (_%g180473180652%_ + (_%default180538180569%_)) + (_%default180538180569%_))) + (_%default180538180569%_)))))) + (_%fold-assert-type175531%_ + (lambda (_%expr179478%_ _%val179479%_ _%env179480%_) + (let* ((_%__stx183496183497%_ _%expr179478%_) + (_%g179488179667%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx184481184482%_))))) - (let ((_%__kont184483184484%_ - (lambda (_%L181485%_ _%L181486%_) - (let ((_%$e181508%_ - (let () - (declare (not safe)) - (_%predicate-type176515%_ - _%L181486%_)))) - (if _%$e181508%_ - ((lambda (_%t181511%_) - (cons (cons _%L181485%_ - (cons _%t181511%_ - (cons _%val180464%_ + _%__stx183496183497%_))))) + (let ((_%__kont183498183499%_ + (lambda (_%L180500%_ _%L180501%_) + (let ((_%$e180523%_ + (_%predicate-type175530%_ _%L180501%_))) + (if _%$e180523%_ + ((lambda (_%t180526%_) + (cons (cons _%L180500%_ + (cons _%t180526%_ + (cons _%val179479%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env180465%_)) - _%$e181508%_) - (let () _%env180465%_))))) - (_%__kont184485184486%_ - (lambda (_%L181174%_ _%L181175%_ _%L181176%_) - (let ((_%$e181201%_ + _%env179480%_)) + _%$e180523%_) + _%env179480%_)))) + (_%__kont183500183501%_ + (lambda (_%L180189%_ _%L180190%_ _%L180191%_) + (let ((_%$e180216%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L181176%_)))) - (if (or (eq? '##fx= _%$e181201%_) - (eq? 'fx= _%$e181201%_)) - (let* ((_%__stx184387184388%_ - _%L181175%_) - (_%g181208181237%_ + (gxc#identifier-symbol _%L180191%_)))) + (if (or (eq? '##fx= _%$e180216%_) + (eq? 'fx= _%$e180216%_)) + (let* ((_%__stx183402183403%_ + _%L180190%_) + (_%g180223180252%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx184387184388%_))))) - (let ((_%__kont184389184390%_ - (lambda (_%L181305%_ - _%L181306%_) - (let ((_%$e181331%_ - (let () - (declare (not safe)) - (_%countf-symbol176517%_ - _%L181306%_)))) - (if _%$e181331%_ - ((lambda (_%sym181334%_) - (cons (cons _%L181305%_ + _%__stx183402183403%_))))) + (let ((_%__kont183404183405%_ + (lambda (_%L180320%_ + _%L180321%_) + (let ((_%$e180346%_ + (_%countf-symbol175532%_ + _%L180321%_))) + (if _%$e180346%_ + ((lambda (_%sym180349%_) + (cons (cons _%L180320%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym181334%_ + (cons _%sym180349%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L181174%_)) - (cons _%val180464%_ '())))) - _%env180465%_)) - _%$e181331%_) - (let () _%env180465%_))))) + (gx#stx-e _%L180189%_)) + (cons _%val179479%_ '())))) + _%env179480%_)) + _%$e180346%_) + _%env179480%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184391184392%_ - (lambda () _%env180465%_))) + (_%__kont183406183407%_ + (lambda () _%env179480%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx184387184388%_)) - (let ((_%e181214181249%_ + _%__stx183402183403%_)) + (let ((_%e180229180264%_ (let () (declare (not safe)) (gx#stx-e - _%__stx184387184388%_)))) - (let ((_%tl181212181254%_ + _%__stx183402183403%_)))) + (let ((_%tl180227180269%_ (let () (declare (not safe)) - (##cdr _%e181214181249%_))) - (_%hd181213181252%_ + (##cdr _%e180229180264%_))) + (_%hd180228180267%_ (let () (declare (not safe)) - (##car _%e181214181249%_)))) + (##car _%e180229180264%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181213181252%_)) + _%hd180228180267%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd181213181252%_)) + _%hd180228180267%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl181212181254%_)) - (let ((_%e181217181257%_ + (gx#stx-pair? _%tl180227180269%_)) + (let ((_%e180232180272%_ (let () (declare (not safe)) - (gx#stx-e _%tl181212181254%_)))) - (let ((_%tl181215181262%_ + (gx#stx-e _%tl180227180269%_)))) + (let ((_%tl180230180277%_ (let () (declare (not safe)) - (##cdr _%e181217181257%_))) - (_%hd181216181260%_ + (##cdr _%e180232180272%_))) + (_%hd180231180275%_ (let () (declare (not safe)) - (##car _%e181217181257%_)))) + (##car _%e180232180272%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181216181260%_)) - (let ((_%e181220181265%_ + (gx#stx-pair? _%hd180231180275%_)) + (let ((_%e180235180280%_ (let () (declare (not safe)) - (gx#stx-e _%hd181216181260%_)))) - (let ((_%tl181218181270%_ + (gx#stx-e _%hd180231180275%_)))) + (let ((_%tl180233180285%_ (let () (declare (not safe)) - (##cdr _%e181220181265%_))) - (_%hd181219181268%_ + (##cdr _%e180235180280%_))) + (_%hd180234180283%_ (let () (declare (not safe)) - (##car _%e181220181265%_)))) + (##car _%e180235180280%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181219181268%_)) + (gx#identifier? _%hd180234180283%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd181219181268%_)) + _%hd180234180283%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181218181270%_)) - (let ((_%e181223181273%_ + _%tl180233180285%_)) + (let ((_%e180238180288%_ (let () (declare (not safe)) (gx#stx-e - _%tl181218181270%_)))) - (let ((_%tl181221181278%_ + _%tl180233180285%_)))) + (let ((_%tl180236180293%_ (let () (declare (not safe)) - (##cdr _%e181223181273%_))) - (_%hd181222181276%_ + (##cdr _%e180238180288%_))) + (_%hd180237180291%_ (let () (declare (not safe)) - (##car _%e181223181273%_)))) + (##car _%e180238180288%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181221181278%_)) + _%tl180236180293%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181215181262%_)) - (let ((_%e181226181281%_ + _%tl180230180277%_)) + (let ((_%e180241180296%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl181215181262%_)))) - (let ((_%tl181224181286%_ + (gx#stx-e _%tl180230180277%_)))) + (let ((_%tl180239180301%_ (let () (declare (not safe)) - (##cdr _%e181226181281%_))) - (_%hd181225181284%_ + (##cdr _%e180241180296%_))) + (_%hd180240180299%_ (let () (declare (not safe)) - (##car _%e181226181281%_)))) + (##car _%e180241180296%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181225181284%_)) - (let ((_%e181229181289%_ + (gx#stx-pair? _%hd180240180299%_)) + (let ((_%e180244180304%_ (let () (declare (not safe)) - (gx#stx-e _%hd181225181284%_)))) - (let ((_%tl181227181294%_ + (gx#stx-e _%hd180240180299%_)))) + (let ((_%tl180242180309%_ (let () (declare (not safe)) - (##cdr _%e181229181289%_))) - (_%hd181228181292%_ + (##cdr _%e180244180304%_))) + (_%hd180243180307%_ (let () (declare (not safe)) - (##car _%e181229181289%_)))) + (##car _%e180244180304%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181228181292%_)) + (gx#identifier? _%hd180243180307%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd181228181292%_)) + (gx#stx-eq? '%#ref _%hd180243180307%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181227181294%_)) - (let ((_%e181232181297%_ + (gx#stx-pair? _%tl180242180309%_)) + (let ((_%e180247180312%_ (let () (declare (not safe)) (gx#stx-e - _%tl181227181294%_)))) - (let ((_%tl181230181302%_ + _%tl180242180309%_)))) + (let ((_%tl180245180317%_ (let () (declare (not safe)) - (##cdr _%e181232181297%_))) - (_%hd181231181300%_ + (##cdr _%e180247180312%_))) + (_%hd180246180315%_ (let () (declare (not safe)) - (##car _%e181232181297%_)))) + (##car _%e180247180312%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181230181302%_)) + _%tl180245180317%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181224181286%_)) - (_%__kont184389184390%_ - _%hd181231181300%_ - _%hd181222181276%_) - (_%__kont184391184392%_)) - (_%__kont184391184392%_)))) - (_%__kont184391184392%_)) - (_%__kont184391184392%_)) - (_%__kont184391184392%_)))) - (_%__kont184391184392%_)))) - (_%__kont184391184392%_)) - (_%__kont184391184392%_)))) + _%tl180239180301%_)) + (_%__kont183404183405%_ + _%hd180246180315%_ + _%hd180237180291%_) + (_%__kont183406183407%_)) + (_%__kont183406183407%_)))) + (_%__kont183406183407%_)) + (_%__kont183406183407%_)) + (_%__kont183406183407%_)))) + (_%__kont183406183407%_)))) + (_%__kont183406183407%_)) + (_%__kont183406183407%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184391184392%_)) - (_%__kont184391184392%_)) - (_%__kont184391184392%_)))) - (_%__kont184391184392%_)))) - (_%__kont184391184392%_)) - (_%__kont184391184392%_)) - (_%__kont184391184392%_)))) + (_%__kont183406183407%_)) + (_%__kont183406183407%_)) + (_%__kont183406183407%_)))) + (_%__kont183406183407%_)))) + (_%__kont183406183407%_)) + (_%__kont183406183407%_)) + (_%__kont183406183407%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184391184392%_)))) - (if (or (eq? '##eq? _%$e181201%_) - (eq? 'eq? _%$e181201%_) - (eq? '##eqv? _%$e181201%_) - (eq? 'eqv? _%$e181201%_) - (eq? '##equal? _%$e181201%_) - (eq? 'equal? _%$e181201%_) + (_%__kont183406183407%_)))) + (if (or (eq? '##eq? _%$e180216%_) + (eq? 'eq? _%$e180216%_) + (eq? '##eqv? _%$e180216%_) + (eq? 'eqv? _%$e180216%_) + (eq? '##equal? _%$e180216%_) + (eq? 'equal? _%$e180216%_) (eq? 'gx#free-identifier=? - _%$e181201%_) - (eq? 'gx#stx-eq? _%$e181201%_)) - ((lambda (_%sym181361%_) - (let* ((_%sym181363%_ - (let () - (declare (not safe)) - (_%eqf-symbol176518%_ - _%sym181361%_))) - (_%__stx184455184456%_ - _%L181175%_) - (_%g181366181379%_ + _%$e180216%_) + (eq? 'gx#stx-eq? _%$e180216%_)) + ((lambda (_%sym180376%_) + (let* ((_%sym180378%_ + (_%eqf-symbol175533%_ + _%sym180376%_)) + (_%__stx183470183471%_ + _%L180190%_) + (_%g180381180394%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx184455184456%_))))) - (let ((_%__kont184457184458%_ - (lambda (_%L181407%_) - (cons (cons _%L181407%_ + _%__stx183470183471%_))))) + (let ((_%__kont183472183473%_ + (lambda (_%L180422%_) + (cons (cons _%L180422%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym181363%_ + (cons _%sym180378%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L181174%_)) - (cons _%val180464%_ '())))) - _%env180465%_))) + (gx#stx-e _%L180189%_)) + (cons _%val179479%_ '())))) + _%env179480%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184459184460%_ + (_%__kont183474183475%_ (lambda () - _%env180465%_))) + _%env179480%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx184455184456%_)) - (let ((_%e181371181391%_ + _%__stx183470183471%_)) + (let ((_%e180386180406%_ (let () (declare (not safe)) (gx#stx-e - _%__stx184455184456%_)))) - (let ((_%tl181369181396%_ + _%__stx183470183471%_)))) + (let ((_%tl180384180411%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e181371181391%_))) - (_%hd181370181394%_ - (let () (declare (not safe)) (##car _%e181371181391%_)))) + (##cdr _%e180386180406%_))) + (_%hd180385180409%_ + (let () (declare (not safe)) (##car _%e180386180406%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181370181394%_)) + (gx#identifier? _%hd180385180409%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd181370181394%_)) + (gx#stx-eq? '%#ref _%hd180385180409%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181369181396%_)) - (let ((_%e181374181399%_ + (gx#stx-pair? _%tl180384180411%_)) + (let ((_%e180389180414%_ (let () (declare (not safe)) - (gx#stx-e _%tl181369181396%_)))) - (let ((_%tl181372181404%_ + (gx#stx-e _%tl180384180411%_)))) + (let ((_%tl180387180419%_ (let () (declare (not safe)) - (##cdr _%e181374181399%_))) - (_%hd181373181402%_ + (##cdr _%e180389180414%_))) + (_%hd180388180417%_ (let () (declare (not safe)) - (##car _%e181374181399%_)))) + (##car _%e180389180414%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181372181404%_)) - (_%__kont184457184458%_ - _%hd181373181402%_) - (_%__kont184459184460%_)))) - (_%__kont184459184460%_)) - (_%__kont184459184460%_)) - (_%__kont184459184460%_)))) + (gx#stx-null? _%tl180387180419%_)) + (_%__kont183472183473%_ + _%hd180388180417%_) + (_%__kont183474183475%_)))) + (_%__kont183474183475%_)) + (_%__kont183474183475%_)) + (_%__kont183474183475%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184459184460%_))))) - _%$e181201%_) - _%env180465%_))))) - (_%__kont184487184488%_ - (lambda (_%L181078%_ _%L181079%_ _%L181080%_) - (let ((__tmp187044 - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - '%#call)) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - '%#ref)) - (cons _%L181080%_ - '())) - (cons _%L181078%_ - (cons (cons (let () + (_%__kont183474183475%_))))) + _%$e180216%_) + _%env179480%_))))) + (_%__kont183502183503%_ + (lambda (_%L180093%_ _%L180094%_ _%L180095%_) + (_%fold-assert-type175531%_ + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#call)) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref)) + (cons _%L180095%_ '())) + (cons _%L180093%_ + (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L181079%_ '())) - '())))))) + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#quote)) + (cons _%L180094%_ '())) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%fold-assert-type176516%_ - __tmp187044 - _%val180464%_ - _%env180465%_)))) - (_%__kont184489184490%_ - (lambda (_%L180968%_ _%L180969%_ _%L180970%_) - (let ((_%$e180999%_ + _%val179479%_ + _%env179480%_))) + (_%__kont183504183505%_ + (lambda (_%L179983%_ _%L179984%_ _%L179985%_) + (let ((_%$e180014%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L180970%_)))) + (gxc#identifier-symbol _%L179985%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e180999%_) - (eq? 'gx#stx-eq? _%$e180999%_)) - ((lambda (_%sym181005%_) - (let ((_%sym181007%_ - (let () - (declare (not safe)) - (_%eqf-symbol176518%_ - _%sym181005%_)))) - (cons (cons _%L180969%_ - (cons _%sym181007%_ - (cons _%L180968%_ + _%$e180014%_) + (eq? 'gx#stx-eq? _%$e180014%_)) + ((lambda (_%sym180020%_) + (let ((_%sym180022%_ + (_%eqf-symbol175533%_ + _%sym180020%_))) + (cons (cons _%L179984%_ + (cons _%sym180022%_ + (cons _%L179983%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%val180464%_ '())))) + (cons _%val179479%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env180465%_))) - _%$e180999%_) - _%env180465%_)))) - (_%__kont184491184492%_ - (lambda (_%L180852%_ _%L180853%_ _%L180854%_) - (let ((__tmp187045 - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - '%#call)) + _%env179480%_))) + _%$e180014%_) + _%env179480%_)))) + (_%__kont183506183507%_ + (lambda (_%L179867%_ _%L179868%_ _%L179869%_) + (_%fold-assert-type175531%_ + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#call)) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref)) + (cons _%L179869%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L180854%_ + (cons _%L179867%_ '())) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L180852%_ '())) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L180853%_ '())) - '())))))) + (gx#datum->syntax__0 '#f '%#quote-syntax)) + (cons _%L179868%_ '())) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%fold-assert-type176516%_ - __tmp187045 - _%val180464%_ - _%env180465%_)))) - (_%__kont184493184494%_ - (lambda (_%L180736%_ _%L180737%_ _%L180738%_) - (let ((__tmp187046 - (let () - (declare (not safe)) - (gxc#apply-expression-subst__% - '#f - _%L180738%_ - _%L180736%_ - _%L180737%_)))) - (declare (not safe)) - (_%fold-assert-type176516%_ - __tmp187046 - _%val180464%_ - _%env180465%_)))) - (_%__kont184495184496%_ - (lambda () _%env180465%_))) + _%val179479%_ + _%env179480%_))) + (_%__kont183508183509%_ + (lambda (_%L179751%_ _%L179752%_ _%L179753%_) + (_%fold-assert-type175531%_ + (let () + (declare (not safe)) + (gxc#apply-expression-subst__% + '#f + _%L179753%_ + _%L179751%_ + _%L179752%_)) + _%val179479%_ + _%env179480%_))) + (_%__kont183510183511%_ + (lambda () _%env179480%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx184481184482%_)) - (let ((_%e180479181429%_ + (gx#stx-pair? _%__stx183496183497%_)) + (let ((_%e179494180444%_ (let () (declare (not safe)) - (gx#stx-e _%__stx184481184482%_)))) - (let ((_%tl180477181434%_ + (gx#stx-e _%__stx183496183497%_)))) + (let ((_%tl179492180449%_ (let () (declare (not safe)) - (##cdr _%e180479181429%_))) - (_%hd180478181432%_ + (##cdr _%e179494180444%_))) + (_%hd179493180447%_ (let () (declare (not safe)) - (##car _%e180479181429%_)))) + (##car _%e179494180444%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180478181432%_)) + (gx#identifier? _%hd179493180447%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd180478181432%_)) + _%hd179493180447%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180477181434%_)) - (let ((_%e180482181437%_ + _%tl179492180449%_)) + (let ((_%e179497180452%_ (let () (declare (not safe)) (gx#stx-e - _%tl180477181434%_)))) - (let ((_%tl180480181442%_ + _%tl179492180449%_)))) + (let ((_%tl179495180457%_ (let () (declare (not safe)) - (##cdr _%e180482181437%_))) - (_%hd180481181440%_ + (##cdr _%e179497180452%_))) + (_%hd179496180455%_ (let () (declare (not safe)) - (##car _%e180482181437%_)))) + (##car _%e179497180452%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180481181440%_)) - (let ((_%e180485181445%_ + _%hd179496180455%_)) + (let ((_%e179500180460%_ (let () (declare (not safe)) (gx#stx-e - _%hd180481181440%_)))) - (let ((_%tl180483181450%_ + _%hd179496180455%_)))) + (let ((_%tl179498180465%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e180485181445%_))) - (_%hd180484181448%_ - (let () (declare (not safe)) (##car _%e180485181445%_)))) + (##cdr _%e179500180460%_))) + (_%hd179499180463%_ + (let () (declare (not safe)) (##car _%e179500180460%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180484181448%_)) + (gx#identifier? _%hd179499180463%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd180484181448%_)) + (gx#stx-eq? '%#ref _%hd179499180463%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180483181450%_)) - (let ((_%e180488181453%_ + (gx#stx-pair? _%tl179498180465%_)) + (let ((_%e179503180468%_ (let () (declare (not safe)) - (gx#stx-e _%tl180483181450%_)))) - (let ((_%tl180486181458%_ + (gx#stx-e _%tl179498180465%_)))) + (let ((_%tl179501180473%_ (let () (declare (not safe)) - (##cdr _%e180488181453%_))) - (_%hd180487181456%_ + (##cdr _%e179503180468%_))) + (_%hd179502180471%_ (let () (declare (not safe)) - (##car _%e180488181453%_)))) + (##car _%e179503180468%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180486181458%_)) + (gx#stx-null? _%tl179501180473%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180480181442%_)) - (let ((_%e180491181461%_ + (gx#stx-pair? _%tl179495180457%_)) + (let ((_%e179506180476%_ (let () (declare (not safe)) (gx#stx-e - _%tl180480181442%_)))) - (let ((_%tl180489181466%_ + _%tl179495180457%_)))) + (let ((_%tl179504180481%_ (let () (declare (not safe)) - (##cdr _%e180491181461%_))) - (_%hd180490181464%_ + (##cdr _%e179506180476%_))) + (_%hd179505180479%_ (let () (declare (not safe)) - (##car _%e180491181461%_)))) + (##car _%e179506180476%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180490181464%_)) - (let ((_%e180494181469%_ + _%hd179505180479%_)) + (let ((_%e179509180484%_ (let () (declare (not safe)) (gx#stx-e - _%hd180490181464%_)))) - (let ((_%tl180492181474%_ + _%hd179505180479%_)))) + (let ((_%tl179507180489%_ (let () (declare (not safe)) - (##cdr _%e180494181469%_))) - (_%hd180493181472%_ + (##cdr _%e179509180484%_))) + (_%hd179508180487%_ (let () (declare (not safe)) - (##car _%e180494181469%_)))) + (##car _%e179509180484%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180493181472%_)) + _%hd179508180487%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd180493181472%_)) + (gx#stx-eq? '%#ref _%hd179508180487%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180492181474%_)) - (let ((_%e180497181477%_ + (gx#stx-pair? _%tl179507180489%_)) + (let ((_%e179512180492%_ (let () (declare (not safe)) - (gx#stx-e _%tl180492181474%_)))) - (let ((_%tl180495181482%_ + (gx#stx-e _%tl179507180489%_)))) + (let ((_%tl179510180497%_ (let () (declare (not safe)) - (##cdr _%e180497181477%_))) - (_%hd180496181480%_ + (##cdr _%e179512180492%_))) + (_%hd179511180495%_ (let () (declare (not safe)) - (##car _%e180497181477%_)))) + (##car _%e179512180492%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180495181482%_)) + (gx#stx-null? _%tl179510180497%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180489181466%_)) - (_%__kont184483184484%_ - _%hd180496181480%_ - _%hd180487181456%_) + (gx#stx-null? _%tl179504180481%_)) + (_%__kont183498183499%_ + _%hd179511180495%_ + _%hd179502180471%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180489181466%_)) - (let ((_%e180518181150%_ + (gx#stx-pair? _%tl179504180481%_)) + (let ((_%e179533180165%_ (let () (declare (not safe)) (gx#stx-e - _%tl180489181466%_)))) - (let ((_%tl180516181155%_ + _%tl179504180481%_)))) + (let ((_%tl179531180170%_ (let () (declare (not safe)) - (##cdr _%e180518181150%_))) - (_%hd180517181153%_ + (##cdr _%e179533180165%_))) + (_%hd179532180168%_ (let () (declare (not safe)) - (##car _%e180518181150%_)))) + (##car _%e179533180165%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180517181153%_)) - (let ((_%e180521181158%_ + _%hd179532180168%_)) + (let ((_%e179536180173%_ (let () (declare (not safe)) (gx#stx-e - _%hd180517181153%_)))) - (let ((_%tl180519181163%_ + _%hd179532180168%_)))) + (let ((_%tl179534180178%_ (let () (declare (not safe)) - (##cdr _%e180521181158%_))) - (_%hd180520181161%_ + (##cdr _%e179536180173%_))) + (_%hd179535180176%_ (let () (declare (not safe)) - (##car _%e180521181158%_)))) + (##car _%e179536180173%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180520181161%_)) + _%hd179535180176%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd180520181161%_)) + (gx#stx-eq? '%#quote _%hd179535180176%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180519181163%_)) - (let ((_%e180524181166%_ + (gx#stx-pair? _%tl179534180178%_)) + (let ((_%e179539180181%_ (let () (declare (not safe)) - (gx#stx-e _%tl180519181163%_)))) - (let ((_%tl180522181171%_ + (gx#stx-e _%tl179534180178%_)))) + (let ((_%tl179537180186%_ (let () (declare (not safe)) - (##cdr _%e180524181166%_))) - (_%hd180523181169%_ + (##cdr _%e179539180181%_))) + (_%hd179538180184%_ (let () (declare (not safe)) - (##car _%e180524181166%_)))) + (##car _%e179539180181%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180522181171%_)) + (gx#stx-null? _%tl179537180186%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180516181155%_)) - (_%__kont184485184486%_ - _%hd180523181169%_ - _%hd180490181464%_ - _%hd180487181456%_) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)) + (gx#stx-null? _%tl179531180170%_)) + (_%__kont183500183501%_ + _%hd179538180184%_ + _%hd179505180479%_ + _%hd179502180471%_) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd180520181161%_)) + (gx#stx-eq? '%#quote-syntax _%hd179535180176%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180519181163%_)) - (let ((_%e180584180960%_ + (gx#stx-pair? _%tl179534180178%_)) + (let ((_%e179599179975%_ (let () (declare (not safe)) - (gx#stx-e _%tl180519181163%_)))) - (let ((_%tl180582180965%_ + (gx#stx-e _%tl179534180178%_)))) + (let ((_%tl179597179980%_ (let () (declare (not safe)) - (##cdr _%e180584180960%_))) - (_%hd180583180963%_ + (##cdr _%e179599179975%_))) + (_%hd179598179978%_ (let () (declare (not safe)) - (##car _%e180584180960%_)))) + (##car _%e179599179975%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180582180965%_)) + (gx#stx-null? _%tl179597179980%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180516181155%_)) - (_%__kont184489184490%_ - _%hd180583180963%_ - _%hd180496181480%_ - _%hd180487181456%_) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)) - (_%__kont184495184496%_))) - (_%__kont184495184496%_)))) + (gx#stx-null? _%tl179531180170%_)) + (_%__kont183504183505%_ + _%hd179598179978%_ + _%hd179511180495%_ + _%hd179502180471%_) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_))) + (_%__kont183510183511%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184495184496%_)))) - (_%__kont184495184496%_))) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180489181466%_)) - (let ((_%e180518181150%_ + (gx#stx-pair? _%tl179504180481%_)) + (let ((_%e179533180165%_ (let () (declare (not safe)) - (gx#stx-e _%tl180489181466%_)))) - (let ((_%tl180516181155%_ + (gx#stx-e _%tl179504180481%_)))) + (let ((_%tl179531180170%_ (let () (declare (not safe)) - (##cdr _%e180518181150%_))) - (_%hd180517181153%_ + (##cdr _%e179533180165%_))) + (_%hd179532180168%_ (let () (declare (not safe)) - (##car _%e180518181150%_)))) + (##car _%e179533180165%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180517181153%_)) - (let ((_%e180521181158%_ + _%hd179532180168%_)) + (let ((_%e179536180173%_ (let () (declare (not safe)) (gx#stx-e - _%hd180517181153%_)))) - (let ((_%tl180519181163%_ + _%hd179532180168%_)))) + (let ((_%tl179534180178%_ (let () (declare (not safe)) - (##cdr _%e180521181158%_))) - (_%hd180520181161%_ + (##cdr _%e179536180173%_))) + (_%hd179535180176%_ (let () (declare (not safe)) - (##car _%e180521181158%_)))) + (##car _%e179536180173%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180520181161%_)) + _%hd179535180176%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd180520181161%_)) + _%hd179535180176%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl180519181163%_)) - (let ((_%e180524181166%_ + (gx#stx-pair? _%tl179534180178%_)) + (let ((_%e179539180181%_ (let () (declare (not safe)) - (gx#stx-e _%tl180519181163%_)))) - (let ((_%tl180522181171%_ + (gx#stx-e _%tl179534180178%_)))) + (let ((_%tl179537180186%_ (let () (declare (not safe)) - (##cdr _%e180524181166%_))) - (_%hd180523181169%_ + (##cdr _%e179539180181%_))) + (_%hd179538180184%_ (let () (declare (not safe)) - (##car _%e180524181166%_)))) + (##car _%e179539180181%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180522181171%_)) + (gx#stx-null? _%tl179537180186%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180516181155%_)) - (_%__kont184485184486%_ - _%hd180523181169%_ - _%hd180490181464%_ - _%hd180487181456%_) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)) + (gx#stx-null? _%tl179531180170%_)) + (_%__kont183500183501%_ + _%hd179538180184%_ + _%hd179505180479%_ + _%hd179502180471%_) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_))))) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180489181466%_)) - (let ((_%e180518181150%_ + (gx#stx-pair? _%tl179504180481%_)) + (let ((_%e179533180165%_ (let () (declare (not safe)) - (gx#stx-e _%tl180489181466%_)))) - (let ((_%tl180516181155%_ + (gx#stx-e _%tl179504180481%_)))) + (let ((_%tl179531180170%_ (let () (declare (not safe)) - (##cdr _%e180518181150%_))) - (_%hd180517181153%_ + (##cdr _%e179533180165%_))) + (_%hd179532180168%_ (let () (declare (not safe)) - (##car _%e180518181150%_)))) + (##car _%e179533180165%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180517181153%_)) - (let ((_%e180521181158%_ + (gx#stx-pair? _%hd179532180168%_)) + (let ((_%e179536180173%_ (let () (declare (not safe)) - (gx#stx-e _%hd180517181153%_)))) - (let ((_%tl180519181163%_ + (gx#stx-e _%hd179532180168%_)))) + (let ((_%tl179534180178%_ (let () (declare (not safe)) - (##cdr _%e180521181158%_))) - (_%hd180520181161%_ + (##cdr _%e179536180173%_))) + (_%hd179535180176%_ (let () (declare (not safe)) - (##car _%e180521181158%_)))) + (##car _%e179536180173%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180520181161%_)) + _%hd179535180176%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd180520181161%_)) + _%hd179535180176%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180519181163%_)) - (let ((_%e180524181166%_ + _%tl179534180178%_)) + (let ((_%e179539180181%_ (let () (declare (not safe)) (gx#stx-e - _%tl180519181163%_)))) - (let ((_%tl180522181171%_ + _%tl179534180178%_)))) + (let ((_%tl179537180186%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e180524181166%_))) - (_%hd180523181169%_ - (let () (declare (not safe)) (##car _%e180524181166%_)))) + (##cdr _%e179539180181%_))) + (_%hd179538180184%_ + (let () (declare (not safe)) (##car _%e179539180181%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180522181171%_)) + (gx#stx-null? _%tl179537180186%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180516181155%_)) - (_%__kont184485184486%_ - _%hd180523181169%_ - _%hd180490181464%_ - _%hd180487181456%_) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) + (gx#stx-null? _%tl179531180170%_)) + (_%__kont183500183501%_ + _%hd179538180184%_ + _%hd179505180479%_ + _%hd179502180471%_) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184495184496%_)) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180489181466%_)) - (let ((_%e180518181150%_ + (gx#stx-pair? _%tl179504180481%_)) + (let ((_%e179533180165%_ (let () (declare (not safe)) - (gx#stx-e _%tl180489181466%_)))) - (let ((_%tl180516181155%_ + (gx#stx-e _%tl179504180481%_)))) + (let ((_%tl179531180170%_ (let () (declare (not safe)) - (##cdr _%e180518181150%_))) - (_%hd180517181153%_ + (##cdr _%e179533180165%_))) + (_%hd179532180168%_ (let () (declare (not safe)) - (##car _%e180518181150%_)))) + (##car _%e179533180165%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180517181153%_)) - (let ((_%e180521181158%_ + (gx#stx-pair? _%hd179532180168%_)) + (let ((_%e179536180173%_ (let () (declare (not safe)) - (gx#stx-e _%hd180517181153%_)))) - (let ((_%tl180519181163%_ + (gx#stx-e _%hd179532180168%_)))) + (let ((_%tl179534180178%_ (let () (declare (not safe)) - (##cdr _%e180521181158%_))) - (_%hd180520181161%_ + (##cdr _%e179536180173%_))) + (_%hd179535180176%_ (let () (declare (not safe)) - (##car _%e180521181158%_)))) + (##car _%e179536180173%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180520181161%_)) + (gx#identifier? _%hd179535180176%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd180520181161%_)) + _%hd179535180176%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180519181163%_)) - (let ((_%e180524181166%_ + _%tl179534180178%_)) + (let ((_%e179539180181%_ (let () (declare (not safe)) (gx#stx-e - _%tl180519181163%_)))) - (let ((_%tl180522181171%_ + _%tl179534180178%_)))) + (let ((_%tl179537180186%_ (let () (declare (not safe)) - (##cdr _%e180524181166%_))) - (_%hd180523181169%_ + (##cdr _%e179539180181%_))) + (_%hd179538180184%_ (let () (declare (not safe)) - (##car _%e180524181166%_)))) + (##car _%e179539180181%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180522181171%_)) + _%tl179537180186%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl180516181155%_)) - (_%__kont184485184486%_ - _%hd180523181169%_ - _%hd180490181464%_ - _%hd180487181456%_) + (gx#stx-null? _%tl179531180170%_)) + (_%__kont183500183501%_ + _%hd179538180184%_ + _%hd179505180479%_ + _%hd179502180471%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd180493181472%_)) + (gx#stx-eq? '%#quote _%hd179508180487%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180492181474%_)) - (let ((_%e180548181062%_ + (gx#stx-pair? _%tl179507180489%_)) + (let ((_%e179563180077%_ (let () (declare (not safe)) - (gx#stx-e _%tl180492181474%_)))) - (let ((_%tl180546181067%_ + (gx#stx-e _%tl179507180489%_)))) + (let ((_%tl179561180082%_ (let () (declare (not safe)) - (##cdr _%e180548181062%_))) - (_%hd180547181065%_ + (##cdr _%e179563180077%_))) + (_%hd179562180080%_ (let () (declare (not safe)) - (##car _%e180548181062%_)))) - (_%__kont184495184496%_))) - (_%__kont184495184496%_)) + (##car _%e179563180077%_)))) + (_%__kont183510183511%_))) + (_%__kont183510183511%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd180493181472%_)) + (gx#stx-eq? '%#quote-syntax _%hd179508180487%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180492181474%_)) - (let ((_%e180608180820%_ + (gx#stx-pair? _%tl179507180489%_)) + (let ((_%e179623179835%_ (let () (declare (not safe)) - (gx#stx-e _%tl180492181474%_)))) - (let ((_%tl180606180825%_ + (gx#stx-e _%tl179507180489%_)))) + (let ((_%tl179621179840%_ (let () (declare (not safe)) - (##cdr _%e180608180820%_))) - (_%hd180607180823%_ + (##cdr _%e179623179835%_))) + (_%hd179622179838%_ (let () (declare (not safe)) - (##car _%e180608180820%_)))) - (_%__kont184495184496%_))) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) + (##car _%e179623179835%_)))) + (_%__kont183510183511%_))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd180493181472%_)) + (gx#stx-eq? '%#quote _%hd179508180487%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180492181474%_)) - (let ((_%e180548181062%_ + (gx#stx-pair? _%tl179507180489%_)) + (let ((_%e179563180077%_ (let () (declare (not safe)) - (gx#stx-e _%tl180492181474%_)))) - (let ((_%tl180546181067%_ + (gx#stx-e _%tl179507180489%_)))) + (let ((_%tl179561180082%_ (let () (declare (not safe)) - (##cdr _%e180548181062%_))) - (_%hd180547181065%_ + (##cdr _%e179563180077%_))) + (_%hd179562180080%_ (let () (declare (not safe)) - (##car _%e180548181062%_)))) + (##car _%e179563180077%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180546181067%_)) + (gx#stx-null? _%tl179561180082%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180516181155%_)) - (_%__kont184487184488%_ - _%hd180517181153%_ - _%hd180547181065%_ - _%hd180487181456%_) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)) + (gx#stx-null? _%tl179531180170%_)) + (_%__kont183502183503%_ + _%hd179532180168%_ + _%hd179562180080%_ + _%hd179502180471%_) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd180493181472%_)) + (gx#stx-eq? '%#quote-syntax _%hd179508180487%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180492181474%_)) - (let ((_%e180608180820%_ + (gx#stx-pair? _%tl179507180489%_)) + (let ((_%e179623179835%_ (let () (declare (not safe)) - (gx#stx-e _%tl180492181474%_)))) - (let ((_%tl180606180825%_ + (gx#stx-e _%tl179507180489%_)))) + (let ((_%tl179621179840%_ (let () (declare (not safe)) - (##cdr _%e180608180820%_))) - (_%hd180607180823%_ + (##cdr _%e179623179835%_))) + (_%hd179622179838%_ (let () (declare (not safe)) - (##car _%e180608180820%_)))) - (_%__kont184495184496%_))) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))))) + (##car _%e179623179835%_)))) + (_%__kont183510183511%_))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd180493181472%_)) + _%hd179508180487%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180492181474%_)) - (let ((_%e180548181062%_ + _%tl179507180489%_)) + (let ((_%e179563180077%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl180492181474%_)))) - (let ((_%tl180546181067%_ + (gx#stx-e _%tl179507180489%_)))) + (let ((_%tl179561180082%_ (let () (declare (not safe)) - (##cdr _%e180548181062%_))) - (_%hd180547181065%_ + (##cdr _%e179563180077%_))) + (_%hd179562180080%_ (let () (declare (not safe)) - (##car _%e180548181062%_)))) + (##car _%e179563180077%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180546181067%_)) + (gx#stx-null? _%tl179561180082%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180516181155%_)) - (_%__kont184487184488%_ - _%hd180517181153%_ - _%hd180547181065%_ - _%hd180487181456%_) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)) + (gx#stx-null? _%tl179531180170%_)) + (_%__kont183502183503%_ + _%hd179532180168%_ + _%hd179562180080%_ + _%hd179502180471%_) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd180493181472%_)) + _%hd179508180487%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl180492181474%_)) - (let ((_%e180608180820%_ + (gx#stx-pair? _%tl179507180489%_)) + (let ((_%e179623179835%_ (let () (declare (not safe)) - (gx#stx-e _%tl180492181474%_)))) - (let ((_%tl180606180825%_ + (gx#stx-e _%tl179507180489%_)))) + (let ((_%tl179621179840%_ (let () (declare (not safe)) - (##cdr _%e180608180820%_))) - (_%hd180607180823%_ + (##cdr _%e179623179835%_))) + (_%hd179622179838%_ (let () (declare (not safe)) - (##car _%e180608180820%_)))) - (_%__kont184495184496%_))) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) + (##car _%e179623179835%_)))) + (_%__kont183510183511%_))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd180493181472%_)) + _%hd179508180487%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180492181474%_)) - (let ((_%e180548181062%_ + _%tl179507180489%_)) + (let ((_%e179563180077%_ (let () (declare (not safe)) (gx#stx-e - _%tl180492181474%_)))) - (let ((_%tl180546181067%_ + _%tl179507180489%_)))) + (let ((_%tl179561180082%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e180548181062%_))) - (_%hd180547181065%_ - (let () (declare (not safe)) (##car _%e180548181062%_)))) + (##cdr _%e179563180077%_))) + (_%hd179562180080%_ + (let () (declare (not safe)) (##car _%e179563180077%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180546181067%_)) + (gx#stx-null? _%tl179561180082%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180516181155%_)) - (_%__kont184487184488%_ - _%hd180517181153%_ - _%hd180547181065%_ - _%hd180487181456%_) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) + (gx#stx-null? _%tl179531180170%_)) + (_%__kont183502183503%_ + _%hd179532180168%_ + _%hd179562180080%_ + _%hd179502180471%_) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184495184496%_)) + (_%__kont183510183511%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd180493181472%_)) + _%hd179508180487%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180492181474%_)) - (let ((_%e180608180820%_ + _%tl179507180489%_)) + (let ((_%e179623179835%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl180492181474%_)))) - (let ((_%tl180606180825%_ + (gx#stx-e _%tl179507180489%_)))) + (let ((_%tl179621179840%_ (let () (declare (not safe)) - (##cdr _%e180608180820%_))) - (_%hd180607180823%_ + (##cdr _%e179623179835%_))) + (_%hd179622179838%_ (let () (declare (not safe)) - (##car _%e180608180820%_)))) + (##car _%e179623179835%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180606180825%_)) + (gx#stx-null? _%tl179621179840%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd180520181161%_)) + (gx#stx-eq? '%#ref _%hd179535180176%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180519181163%_)) - (let ((_%e180617180844%_ + (gx#stx-pair? _%tl179534180178%_)) + (let ((_%e179632179859%_ (let () (declare (not safe)) - (gx#stx-e _%tl180519181163%_)))) - (let ((_%tl180615180849%_ + (gx#stx-e _%tl179534180178%_)))) + (let ((_%tl179630179864%_ (let () (declare (not safe)) - (##cdr _%e180617180844%_))) - (_%hd180616180847%_ + (##cdr _%e179632179859%_))) + (_%hd179631179862%_ (let () (declare (not safe)) - (##car _%e180617180844%_)))) + (##car _%e179632179859%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180615180849%_)) + (gx#stx-null? _%tl179630179864%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180516181155%_)) - (_%__kont184491184492%_ - _%hd180616180847%_ - _%hd180607180823%_ - _%hd180487181456%_) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)) + _%tl179531180170%_)) + (_%__kont183506183507%_ + _%hd179631179862%_ + _%hd179622179838%_ + _%hd179502180471%_) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184495184496%_)))) + (_%__kont183510183511%_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd180493181472%_)) + _%hd179508180487%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180492181474%_)) - (let ((_%e180548181062%_ + _%tl179507180489%_)) + (let ((_%e179563180077%_ (let () (declare (not safe)) (gx#stx-e - _%tl180492181474%_)))) - (let ((_%tl180546181067%_ + _%tl179507180489%_)))) + (let ((_%tl179561180082%_ (let () (declare (not safe)) - (##cdr _%e180548181062%_))) - (_%hd180547181065%_ + (##cdr _%e179563180077%_))) + (_%hd179562180080%_ (let () (declare (not safe)) - (##car _%e180548181062%_)))) + (##car _%e179563180077%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180546181067%_)) + _%tl179561180082%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl180516181155%_)) - (_%__kont184487184488%_ - _%hd180517181153%_ - _%hd180547181065%_ - _%hd180487181456%_) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) + (gx#stx-null? _%tl179531180170%_)) + (_%__kont183502183503%_ + _%hd179532180168%_ + _%hd179562180080%_ + _%hd179502180471%_) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184495184496%_)) + (_%__kont183510183511%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd180493181472%_)) + _%hd179508180487%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180492181474%_)) - (let ((_%e180608180820%_ + _%tl179507180489%_)) + (let ((_%e179623179835%_ (let () (declare (not safe)) (gx#stx-e - _%tl180492181474%_)))) - (let ((_%tl180606180825%_ + _%tl179507180489%_)))) + (let ((_%tl179621179840%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e180608180820%_))) - (_%hd180607180823%_ - (let () (declare (not safe)) (##car _%e180608180820%_)))) - (_%__kont184495184496%_))) + (##cdr _%e179623179835%_))) + (_%hd179622179838%_ + (let () (declare (not safe)) (##car _%e179623179835%_)))) + (_%__kont183510183511%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd180493181472%_)) + _%hd179508180487%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180492181474%_)) - (let ((_%e180548181062%_ + (gx#stx-pair? _%tl179507180489%_)) + (let ((_%e179563180077%_ (let () (declare (not safe)) (gx#stx-e - _%tl180492181474%_)))) - (let ((_%tl180546181067%_ + _%tl179507180489%_)))) + (let ((_%tl179561180082%_ (let () (declare (not safe)) - (##cdr _%e180548181062%_))) - (_%hd180547181065%_ + (##cdr _%e179563180077%_))) + (_%hd179562180080%_ (let () (declare (not safe)) - (##car _%e180548181062%_)))) + (##car _%e179563180077%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180546181067%_)) + _%tl179561180082%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180516181155%_)) - (_%__kont184487184488%_ - _%hd180517181153%_ - _%hd180547181065%_ - _%hd180487181456%_) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)) + _%tl179531180170%_)) + (_%__kont183502183503%_ + _%hd179532180168%_ + _%hd179562180080%_ + _%hd179502180471%_) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd180493181472%_)) + _%hd179508180487%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180492181474%_)) - (let ((_%e180608180820%_ + _%tl179507180489%_)) + (let ((_%e179623179835%_ (let () (declare (not safe)) (gx#stx-e - _%tl180492181474%_)))) - (let ((_%tl180606180825%_ + _%tl179507180489%_)))) + (let ((_%tl179621179840%_ (let () (declare (not safe)) - (##cdr _%e180608180820%_))) - (_%hd180607180823%_ + (##cdr _%e179623179835%_))) + (_%hd179622179838%_ (let () (declare (not safe)) - (##car _%e180608180820%_)))) - (_%__kont184495184496%_))) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))))) + (##car _%e179623179835%_)))) + (_%__kont183510183511%_))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd180493181472%_)) + (gx#stx-eq? '%#quote _%hd179508180487%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180492181474%_)) - (let ((_%e180548181062%_ + (gx#stx-pair? _%tl179507180489%_)) + (let ((_%e179563180077%_ (let () (declare (not safe)) - (gx#stx-e _%tl180492181474%_)))) - (let ((_%tl180546181067%_ + (gx#stx-e _%tl179507180489%_)))) + (let ((_%tl179561180082%_ (let () (declare (not safe)) - (##cdr _%e180548181062%_))) - (_%hd180547181065%_ + (##cdr _%e179563180077%_))) + (_%hd179562180080%_ (let () (declare (not safe)) - (##car _%e180548181062%_)))) - (_%__kont184495184496%_))) - (_%__kont184495184496%_)) + (##car _%e179563180077%_)))) + (_%__kont183510183511%_))) + (_%__kont183510183511%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd180493181472%_)) + _%hd179508180487%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180492181474%_)) - (let ((_%e180608180820%_ + (gx#stx-pair? _%tl179507180489%_)) + (let ((_%e179623179835%_ (let () (declare (not safe)) - (gx#stx-e _%tl180492181474%_)))) - (let ((_%tl180606180825%_ + (gx#stx-e _%tl179507180489%_)))) + (let ((_%tl179621179840%_ (let () (declare (not safe)) - (##cdr _%e180608180820%_))) - (_%hd180607180823%_ + (##cdr _%e179623179835%_))) + (_%hd179622179838%_ (let () (declare (not safe)) - (##car _%e180608180820%_)))) - (_%__kont184495184496%_))) - (_%__kont184495184496%_)) - (_%__kont184495184496%_))))) + (##car _%e179623179835%_)))) + (_%__kont183510183511%_))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180489181466%_)) - (let ((_%e180518181150%_ + (gx#stx-pair? _%tl179504180481%_)) + (let ((_%e179533180165%_ (let () (declare (not safe)) - (gx#stx-e _%tl180489181466%_)))) - (let ((_%tl180516181155%_ + (gx#stx-e _%tl179504180481%_)))) + (let ((_%tl179531180170%_ (let () (declare (not safe)) - (##cdr _%e180518181150%_))) - (_%hd180517181153%_ + (##cdr _%e179533180165%_))) + (_%hd179532180168%_ (let () (declare (not safe)) - (##car _%e180518181150%_)))) + (##car _%e179533180165%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180517181153%_)) - (let ((_%e180521181158%_ + (gx#stx-pair? _%hd179532180168%_)) + (let ((_%e179536180173%_ (let () (declare (not safe)) - (gx#stx-e _%hd180517181153%_)))) - (let ((_%tl180519181163%_ + (gx#stx-e _%hd179532180168%_)))) + (let ((_%tl179534180178%_ (let () (declare (not safe)) - (##cdr _%e180521181158%_))) - (_%hd180520181161%_ + (##cdr _%e179536180173%_))) + (_%hd179535180176%_ (let () (declare (not safe)) - (##car _%e180521181158%_)))) + (##car _%e179536180173%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180520181161%_)) + (gx#identifier? _%hd179535180176%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd180520181161%_)) + _%hd179535180176%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180519181163%_)) - (let ((_%e180524181166%_ + _%tl179534180178%_)) + (let ((_%e179539180181%_ (let () (declare (not safe)) (gx#stx-e - _%tl180519181163%_)))) - (let ((_%tl180522181171%_ + _%tl179534180178%_)))) + (let ((_%tl179537180186%_ (let () (declare (not safe)) - (##cdr _%e180524181166%_))) - (_%hd180523181169%_ + (##cdr _%e179539180181%_))) + (_%hd179538180184%_ (let () (declare (not safe)) - (##car _%e180524181166%_)))) + (##car _%e179539180181%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180522181171%_)) + _%tl179537180186%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180516181155%_)) - (_%__kont184485184486%_ - _%hd180523181169%_ - _%hd180490181464%_ - _%hd180487181456%_) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_))))) + _%tl179531180170%_)) + (_%__kont183500183501%_ + _%hd179538180184%_ + _%hd179505180479%_ + _%hd179502180471%_) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180489181466%_)) - (let ((_%e180518181150%_ + _%tl179504180481%_)) + (let ((_%e179533180165%_ (let () (declare (not safe)) (gx#stx-e - _%tl180489181466%_)))) - (let ((_%tl180516181155%_ + _%tl179504180481%_)))) + (let ((_%tl179531180170%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e180518181150%_))) - (_%hd180517181153%_ - (let () (declare (not safe)) (##car _%e180518181150%_)))) + (##cdr _%e179533180165%_))) + (_%hd179532180168%_ + (let () (declare (not safe)) (##car _%e179533180165%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180517181153%_)) - (let ((_%e180521181158%_ + (gx#stx-pair? _%hd179532180168%_)) + (let ((_%e179536180173%_ (let () (declare (not safe)) - (gx#stx-e _%hd180517181153%_)))) - (let ((_%tl180519181163%_ + (gx#stx-e _%hd179532180168%_)))) + (let ((_%tl179534180178%_ (let () (declare (not safe)) - (##cdr _%e180521181158%_))) - (_%hd180520181161%_ + (##cdr _%e179536180173%_))) + (_%hd179535180176%_ (let () (declare (not safe)) - (##car _%e180521181158%_)))) + (##car _%e179536180173%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180520181161%_)) + (gx#identifier? _%hd179535180176%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd180520181161%_)) + (gx#stx-eq? '%#quote _%hd179535180176%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180519181163%_)) - (let ((_%e180524181166%_ + (gx#stx-pair? _%tl179534180178%_)) + (let ((_%e179539180181%_ (let () (declare (not safe)) - (gx#stx-e _%tl180519181163%_)))) - (let ((_%tl180522181171%_ + (gx#stx-e _%tl179534180178%_)))) + (let ((_%tl179537180186%_ (let () (declare (not safe)) - (##cdr _%e180524181166%_))) - (_%hd180523181169%_ + (##cdr _%e179539180181%_))) + (_%hd179538180184%_ (let () (declare (not safe)) - (##car _%e180524181166%_)))) + (##car _%e179539180181%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180522181171%_)) + _%tl179537180186%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180516181155%_)) - (_%__kont184485184486%_ - _%hd180523181169%_ - _%hd180490181464%_ - _%hd180487181456%_) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)))) + _%tl179531180170%_)) + (_%__kont183500183501%_ + _%hd179538180184%_ + _%hd179505180479%_ + _%hd179502180471%_) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184495184496%_))))) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)) + (_%__kont183510183511%_))))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd180484181448%_)) + (gx#stx-eq? '%#lambda _%hd179499180463%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180483181450%_)) - (let ((_%e180632180688%_ + (gx#stx-pair? _%tl179498180465%_)) + (let ((_%e179647179703%_ (let () (declare (not safe)) - (gx#stx-e _%tl180483181450%_)))) - (let ((_%tl180630180693%_ + (gx#stx-e _%tl179498180465%_)))) + (let ((_%tl179645179708%_ (let () (declare (not safe)) - (##cdr _%e180632180688%_))) - (_%hd180631180691%_ + (##cdr _%e179647179703%_))) + (_%hd179646179706%_ (let () (declare (not safe)) - (##car _%e180632180688%_)))) + (##car _%e179647179703%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180631180691%_)) - (let ((_%e180635180696%_ + (gx#stx-pair? _%hd179646179706%_)) + (let ((_%e179650179711%_ (let () (declare (not safe)) (gx#stx-e - _%hd180631180691%_)))) - (let ((_%tl180633180701%_ + _%hd179646179706%_)))) + (let ((_%tl179648179716%_ (let () (declare (not safe)) - (##cdr _%e180635180696%_))) - (_%hd180634180699%_ + (##cdr _%e179650179711%_))) + (_%hd179649179714%_ (let () (declare (not safe)) - (##car _%e180635180696%_)))) + (##car _%e179650179711%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180633180701%_)) + _%tl179648179716%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180630180693%_)) - (let ((_%e180638180704%_ + _%tl179645179708%_)) + (let ((_%e179653179719%_ (let () (declare (not safe)) (gx#stx-e - _%tl180630180693%_)))) - (let ((_%tl180636180709%_ + _%tl179645179708%_)))) + (let ((_%tl179651179724%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e180638180704%_))) - (_%hd180637180707%_ - (let () (declare (not safe)) (##car _%e180638180704%_)))) + (##cdr _%e179653179719%_))) + (_%hd179652179722%_ + (let () (declare (not safe)) (##car _%e179653179719%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180636180709%_)) + (gx#stx-null? _%tl179651179724%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180480181442%_)) - (let ((_%e180641180712%_ + (gx#stx-pair? _%tl179495180457%_)) + (let ((_%e179656179727%_ (let () (declare (not safe)) - (gx#stx-e _%tl180480181442%_)))) - (let ((_%tl180639180717%_ + (gx#stx-e _%tl179495180457%_)))) + (let ((_%tl179654179732%_ (let () (declare (not safe)) - (##cdr _%e180641180712%_))) - (_%hd180640180715%_ + (##cdr _%e179656179727%_))) + (_%hd179655179730%_ (let () (declare (not safe)) - (##car _%e180641180712%_)))) + (##car _%e179656179727%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180640180715%_)) - (let ((_%e180644180720%_ + (gx#stx-pair? _%hd179655179730%_)) + (let ((_%e179659179735%_ (let () (declare (not safe)) - (gx#stx-e _%hd180640180715%_)))) - (let ((_%tl180642180725%_ + (gx#stx-e _%hd179655179730%_)))) + (let ((_%tl179657179740%_ (let () (declare (not safe)) - (##cdr _%e180644180720%_))) - (_%hd180643180723%_ + (##cdr _%e179659179735%_))) + (_%hd179658179738%_ (let () (declare (not safe)) - (##car _%e180644180720%_)))) + (##car _%e179659179735%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180643180723%_)) + (gx#identifier? _%hd179658179738%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd180643180723%_)) + _%hd179658179738%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180642180725%_)) - (let ((_%e180647180728%_ + _%tl179657179740%_)) + (let ((_%e179662179743%_ (let () (declare (not safe)) (gx#stx-e - _%tl180642180725%_)))) - (let ((_%tl180645180733%_ + _%tl179657179740%_)))) + (let ((_%tl179660179748%_ (let () (declare (not safe)) - (##cdr _%e180647180728%_))) - (_%hd180646180731%_ + (##cdr _%e179662179743%_))) + (_%hd179661179746%_ (let () (declare (not safe)) - (##car _%e180647180728%_)))) + (##car _%e179662179743%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180645180733%_)) + _%tl179660179748%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl180639180717%_)) - (_%__kont184493184494%_ - _%hd180646180731%_ - _%hd180637180707%_ - _%hd180634180699%_) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) + (gx#stx-null? _%tl179654179732%_)) + (_%__kont183508183509%_ + _%hd179661179746%_ + _%hd179652179722%_ + _%hd179649179714%_) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184495184496%_)) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)) - (_%__kont184495184496%_))) - (_%__kont184495184496%_)))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_))) + (_%__kont183510183511%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)) - (_%__kont184495184496%_)))) - (_%__kont184495184496%_)))))) - (_%countf-symbol176517%_ - (lambda (_%id180455%_) - (let ((_%$e180457%_ + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)) + (_%__kont183510183511%_)))) + (_%__kont183510183511%_)))))) + (_%countf-symbol175532%_ + (lambda (_%id179470%_) + (let ((_%$e179472%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id180455%_)))) - (if (or (eq? '##vector-length _%$e180457%_) - (eq? 'vector-length _%$e180457%_)) + (gxc#identifier-symbol _%id179470%_)))) + (if (or (eq? '##vector-length _%$e179472%_) + (eq? 'vector-length _%$e179472%_)) 'vector-length - (if (eq? 'values-count _%$e180457%_) + (if (eq? 'values-count _%$e179472%_) 'values-count '#f))))) - (_%eqf-symbol176518%_ - (lambda (_%sym180441%_) - (let ((_%$e180443%_ _%sym180441%_)) - (if (or (eq? '##eq? _%$e180443%_) - (eq? 'eq? _%$e180443%_)) + (_%eqf-symbol175533%_ + (lambda (_%sym179456%_) + (let ((_%$e179458%_ _%sym179456%_)) + (if (or (eq? '##eq? _%$e179458%_) + (eq? 'eq? _%$e179458%_)) 'eq? - (if (or (eq? '##eqv? _%$e180443%_) - (eq? 'eqv? _%$e180443%_)) + (if (or (eq? '##eqv? _%$e179458%_) + (eq? 'eqv? _%$e179458%_)) 'eqv? - (if (or (eq? '##equal? _%$e180443%_) - (eq? 'equal? _%$e180443%_)) + (if (or (eq? '##equal? _%$e179458%_) + (eq? 'equal? _%$e179458%_)) 'equal? - (if (eq? 'gx#free-identifier=? _%$e180443%_) + (if (eq? 'gx#free-identifier=? _%$e179458%_) 'free-identifier=? - (if (eq? 'gx#stx-eq? _%$e180443%_) + (if (eq? 'gx#stx-eq? _%$e179458%_) 'stx-eq? '#f)))))))) - (_%eqf-symbol?176519%_ - (lambda (_%sym180424%_) - (let ((_%$e180426%_ _%sym180424%_)) - (if (or (eq? 'eq? _%$e180426%_) - (eq? 'eqv? _%$e180426%_) - (eq? 'equal? _%$e180426%_) - (eq? 'free-identifier=? _%$e180426%_) - (eq? 'stx-eq? _%$e180426%_)) + (_%eqf-symbol?175534%_ + (lambda (_%sym179439%_) + (let ((_%$e179441%_ _%sym179439%_)) + (if (or (eq? 'eq? _%$e179441%_) + (eq? 'eqv? _%$e179441%_) + (eq? 'equal? _%$e179441%_) + (eq? 'free-identifier=? _%$e179441%_) + (eq? 'stx-eq? _%$e179441%_)) '#t '#f)))) - (_%do-assert!176520%_ - (lambda (_%assert180415%_ _%type180416%_ _%K180417%_) - (let ((_%unwind-assert180419%_ _%env-assert176510%_) - (_%unwind-type180420%_ _%env-type176511%_)) - (set! _%env-assert176510%_ _%assert180415%_) - (set! _%env-type176511%_ _%type180416%_) - (let ((_%val180422%_ (_%K180417%_))) - (set! _%env-assert176510%_ _%unwind-assert180419%_) - (set! _%env-type176511%_ _%unwind-type180420%_) - _%val180422%_)))) - (_%do-bind176521%_ - (lambda (_%bind180412%_ _%K180413%_) - (if (let () (declare (not safe)) (pair? _%bind180412%_)) - (let ((__tmp187047 - (let () - (declare (not safe)) - (_%fold-bind-env176522%_ - _%bind180412%_ - _%env-bind176512%_)))) - (declare (not safe)) - (_%do-bind!176523%_ __tmp187047 _%K180413%_)) - (_%K180413%_)))) - (_%fold-bind-env176522%_ - (lambda (_%bind180341%_ _%env180342%_) - (let _%lp180344%_ ((_%rest180346%_ _%bind180341%_) - (_%env180347%_ _%env180342%_)) - (let* ((_%rest180348180356%_ _%rest180346%_) - (_%else180350180364%_ (lambda () _%env180347%_)) - (_%K180352180400%_ - (lambda (_%rest180367%_ _%bind180368%_) - (let* ((_%bind180369180376%_ _%bind180368%_) - (_%E180371180380%_ + (_%do-assert!175535%_ + (lambda (_%assert179430%_ _%type179431%_ _%K179432%_) + (let ((_%unwind-assert179434%_ _%env-assert175525%_) + (_%unwind-type179435%_ _%env-type175526%_)) + (set! _%env-assert175525%_ _%assert179430%_) + (set! _%env-type175526%_ _%type179431%_) + (let ((_%val179437%_ (_%K179432%_))) + (set! _%env-assert175525%_ _%unwind-assert179434%_) + (set! _%env-type175526%_ _%unwind-type179435%_) + _%val179437%_)))) + (_%do-bind175536%_ + (lambda (_%bind179427%_ _%K179428%_) + (if (pair? _%bind179427%_) + (_%do-bind!175538%_ + (_%fold-bind-env175537%_ + _%bind179427%_ + _%env-bind175527%_) + _%K179428%_) + (_%K179428%_)))) + (_%fold-bind-env175537%_ + (lambda (_%bind179356%_ _%env179357%_) + (let _%lp179359%_ ((_%rest179361%_ _%bind179356%_) + (_%env179362%_ _%env179357%_)) + (let* ((_%rest179363179371%_ _%rest179361%_) + (_%else179365179379%_ (lambda () _%env179362%_)) + (_%K179367179415%_ + (lambda (_%rest179382%_ _%bind179383%_) + (let* ((_%bind179384179391%_ _%bind179383%_) + (_%E179386179395%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind180369180376%_ + _%bind179384179391%_ '([id . expr]))) '#!void)) - (_%K180372180388%_ - (lambda (_%expr180383%_ _%id180384%_) - (let* ((_%sexpr180386%_ - (let () - (declare (not safe)) - (gxc#apply-generate-runtime-repr - _%expr180383%_))) - (__tmp187048 - (cons (cons _%sexpr180386%_ - _%id180384%_) - _%env180347%_))) - (declare (not safe)) - (_%lp180344%_ - _%rest180367%_ - __tmp187048))))) + (_%K179387179403%_ + (lambda (_%expr179398%_ _%id179399%_) + (let ((_%sexpr179401%_ + (gxc#apply-generate-runtime-repr + _%expr179398%_))) + (_%lp179359%_ + _%rest179382%_ + (cons (cons _%sexpr179401%_ + _%id179399%_) + _%env179362%_)))))) (if (let () (declare (not safe)) - (##pair? _%bind180369180376%_)) - (let ((_%hd180373180391%_ + (##pair? _%bind179384179391%_)) + (let ((_%hd179388179406%_ (let () (declare (not safe)) - (##car _%bind180369180376%_))) - (_%tl180374180393%_ + (##car _%bind179384179391%_))) + (_%tl179389179408%_ (let () (declare (not safe)) - (##cdr _%bind180369180376%_)))) - (let* ((_%id180396%_ - _%hd180373180391%_) - (_%expr180398%_ - _%tl180374180393%_)) - (declare (not safe)) - (_%K180372180388%_ - _%expr180398%_ - _%id180396%_))) - (let () - (declare (not safe)) - (_%E180371180380%_))))))) + (##cdr _%bind179384179391%_)))) + (let* ((_%id179411%_ + _%hd179388179406%_) + (_%expr179413%_ + _%tl179389179408%_)) + (_%K179387179403%_ + _%expr179413%_ + _%id179411%_))) + (_%E179386179395%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest180348180356%_)) - (let ((_%hd180353180403%_ + (##pair? _%rest179363179371%_)) + (let ((_%hd179368179418%_ (let () (declare (not safe)) - (##car _%rest180348180356%_))) - (_%tl180354180405%_ + (##car _%rest179363179371%_))) + (_%tl179369179420%_ (let () (declare (not safe)) - (##cdr _%rest180348180356%_)))) - (let* ((_%bind180408%_ _%hd180353180403%_) - (_%rest180410%_ _%tl180354180405%_)) - (declare (not safe)) - (_%K180352180400%_ - _%rest180410%_ - _%bind180408%_))) - (let () - (declare (not safe)) - (_%else180350180364%_))))))) - (_%do-bind!176523%_ - (lambda (_%env180334%_ _%K180335%_) - (let ((_%unwind180337%_ _%env-bind176512%_)) - (set! _%env-bind176512%_ _%env180334%_) - (let ((_%val180339%_ (_%K180335%_))) - (set! _%env-bind176512%_ _%unwind180337%_) - _%val180339%_)))) - (_%do-splice!176524%_ - (lambda (_%K180328%_) - (let ((_%unwind180330%_ _%in-splice?176513%_)) - (set! _%in-splice?176513%_ '#t) - (let ((_%val180332%_ (_%K180328%_))) - (set! _%in-splice?176513%_ _%unwind180330%_) - _%val180332%_)))) - (_%optimize-e176525%_ - (lambda (_%expr179524%_) - (let* ((_%__stx184933184934%_ _%expr179524%_) - (_%g179531179704%_ + (##cdr _%rest179363179371%_)))) + (let* ((_%bind179423%_ _%hd179368179418%_) + (_%rest179425%_ _%tl179369179420%_)) + (_%K179367179415%_ + _%rest179425%_ + _%bind179423%_))) + (_%else179365179379%_)))))) + (_%do-bind!175538%_ + (lambda (_%env179349%_ _%K179350%_) + (let ((_%unwind179352%_ _%env-bind175527%_)) + (set! _%env-bind175527%_ _%env179349%_) + (let ((_%val179354%_ (_%K179350%_))) + (set! _%env-bind175527%_ _%unwind179352%_) + _%val179354%_)))) + (_%do-splice!175539%_ + (lambda (_%K179343%_) + (let ((_%unwind179345%_ _%in-splice?175528%_)) + (set! _%in-splice?175528%_ '#t) + (let ((_%val179347%_ (_%K179343%_))) + (set! _%in-splice?175528%_ _%unwind179345%_) + _%val179347%_)))) + (_%optimize-e175540%_ + (lambda (_%expr178539%_) + (let* ((_%__stx183948183949%_ _%expr178539%_) + (_%g178546178719%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx184933184934%_))))) - (let ((_%__kont184935184936%_ - (lambda (_%L180300%_ _%L180301%_ _%L180302%_) - (let ((_%$e180319%_ - (let () - (declare (not safe)) - (_%assert-e176528%_ _%L180302%_)))) - (if (eq? '#t _%$e180319%_) - (let () - (declare (not safe)) - (_%optimize-e176525%_ _%L180301%_)) - (if (eq? '#f _%$e180319%_) - (let () - (declare (not safe)) - (_%optimize-e176525%_ _%L180300%_)) - (let ((_%K180322%_ - (let () - (declare (not safe)) - (_%optimize-t__0__183880183881%_ - _%L180301%_ - _%L180302%_))) - (_%E180323%_ - (let () - (declare (not safe)) - (_%optimize-f__183882183883%_ - _%L180300%_ - _%L180302%_)))) - (if (equal? (let () - (declare (not safe)) - (gxc#apply-generate-runtime-repr - _%K180322%_)) - (let () - (declare (not safe)) - (gxc#apply-generate-runtime-repr - _%E180323%_))) - _%K180322%_ + _%__stx183948183949%_))))) + (let ((_%__kont183950183951%_ + (lambda (_%L179315%_ _%L179316%_ _%L179317%_) + (let ((_%$e179334%_ + (_%assert-e175543%_ _%L179317%_))) + (if (eq? '#t _%$e179334%_) + (_%optimize-e175540%_ _%L179316%_) + (if (eq? '#f _%$e179334%_) + (_%optimize-e175540%_ _%L179315%_) + (let ((_%K179337%_ + (_%optimize-t__0__182895182896%_ + _%L179316%_ + _%L179317%_)) + (_%E179338%_ + (_%optimize-f__182897182898%_ + _%L179315%_ + _%L179317%_))) + (if (equal? (gxc#apply-generate-runtime-repr + _%K179337%_) + (gxc#apply-generate-runtime-repr + _%E179338%_)) + _%K179337%_ (cons '%#if - (cons _%L180302%_ - (cons _%K180322%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E180323%_ '()))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184937184938%_ - (lambda (_%L180229%_ _%L180230%_) - (let ((_%$e180250%_ - (let () - (declare (not safe)) - (_%lookup-block176533%_ - _%L180230%_)))) - (if _%$e180250%_ - ((lambda (_%block180253%_) - (if (let () - (declare (not safe)) - (_%nonlinear-block?176535%_ - _%block180253%_)) - _%expr179524%_ - (let ((__tmp187049 - (let ((__tmp187050 - (let ((__tmp187051 + (cons _%L179317%_ + (cons _%K179337%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g180254180257%_ _%g180255180259%_) - (cons _%g180254180257%_ _%g180255180259%_)))) - (declare (not safe)) - (__foldr1 __tmp187051 '() _%L180229%_)))) - (declare (not safe)) - (_%inline-block176534%_ _%block180253%_ __tmp187050)))) + (cons _%E179338%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%optimize-e176525%_ - __tmp187049)))) - _%$e180250%_) - (let () _%expr179524%_))))) - (_%__kont184941184942%_ - (lambda (_%L180119%_ _%L180120%_ _%L180121%_) - (let ((_%body180140%_ - (let () - (declare (not safe)) - (_%optimize-e176525%_ _%L180119%_)))) + (_%__kont183952183953%_ + (lambda (_%L179244%_ _%L179245%_) + (let ((_%$e179265%_ + (_%lookup-block175548%_ _%L179245%_))) + (if _%$e179265%_ + ((lambda (_%block179268%_) + (if (_%nonlinear-block?175550%_ + _%block179268%_) + _%expr178539%_ + (_%optimize-e175540%_ + (_%inline-block175549%_ + _%block179268%_ + (let ((__tmp186043 + (lambda (_%g179269179272%_ + _%g179270179274%_) + (cons _%g179269179272%_ + _%g179270179274%_)))) + (declare (not safe)) + (__foldr1 + __tmp186043 + '() + _%L179244%_)))))) + _%$e179265%_) + _%expr178539%_)))) + (_%__kont183956183957%_ + (lambda (_%L179134%_ _%L179135%_ _%L179136%_) + (let ((_%body179155%_ + (_%optimize-e175540%_ _%L179134%_))) (cons '%#let-values (cons (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L180120%_ - _%L180121%_)) - (let ((__tmp187052 - (lambda (_%g180141180145%_ - _%g180142180147%_ - _%g180143180149%_) - (cons (cons (cons _%g180142180147%_ + _%L179135%_ + _%L179136%_)) + (let ((__tmp186044 + (lambda (_%g179156179160%_ + _%g179157179162%_ + _%g179158179164%_) + (cons (cons (cons _%g179157179162%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g180141180145%_ '())) + (cons _%g179156179160%_ '())) '())) - _%g180143180149%_)))) + _%g179158179164%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp187052 + __tmp186044 '() - _%L180120%_ - _%L180121%_))) - (cons _%body180140%_ '())))))) - (_%__kont184945184946%_ - (lambda (_%L179987%_ _%L179988%_ _%L179989%_) - (let ((__tmp187053 - (map cons - (let ((__tmp187054 - (lambda (_%g180007180010%_ - _%g180008180012%_) - (cons _%g180007180010%_ - _%g180008180012%_)))) - (declare (not safe)) - (__foldr1 - __tmp187054 - '() - _%L179989%_)) - (let ((__tmp187055 - (lambda (_%g180014180017%_ - _%g180015180019%_) - (cons _%g180014180017%_ - _%g180015180019%_)))) - (declare (not safe)) - (__foldr1 - __tmp187055 - '() - _%L179988%_))))) - (declare (not safe)) - (_%bind-e__0__183888183889%_ - __tmp187053 - _%L179987%_)))) - (_%__kont184949184950%_ - (lambda (_%L179844%_ - _%L179845%_ - _%L179846%_ - _%L179847%_ - _%L179848%_) - (let ((__tmp187056 - (lambda () - (let ((_%expr179890%_ - (let () - (declare (not safe)) - (_%optimize-e176525%_ - _%L179846%_)))) - (cons '%#letrec-values - (cons (cons (cons (cons _%L179848%_ + _%L179135%_ + _%L179136%_))) + (cons _%body179155%_ '())))))) + (_%__kont183960183961%_ + (lambda (_%L179002%_ _%L179003%_ _%L179004%_) + (_%bind-e__0__182903182904%_ + (map cons + (let ((__tmp186045 + (lambda (_%g179022179025%_ + _%g179023179027%_) + (cons _%g179022179025%_ + _%g179023179027%_)))) + (declare (not safe)) + (__foldr1 __tmp186045 '() _%L179004%_)) + (let ((__tmp186046 + (lambda (_%g179029179032%_ + _%g179030179034%_) + (cons _%g179029179032%_ + _%g179030179034%_)))) + (declare (not safe)) + (__foldr1 + __tmp186046 + '() + _%L179003%_))) + _%L179002%_))) + (_%__kont183964183965%_ + (lambda (_%L178859%_ + _%L178860%_ + _%L178861%_ + _%L178862%_ + _%L178863%_) + (_%do-splice!175539%_ + (lambda () + (let ((_%expr178905%_ + (_%optimize-e175540%_ _%L178861%_))) + (cons '%#letrec-values + (cons (cons (cons (cons _%L178863%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (cons '%#lambda - (cons (let ((__tmp187057 - (lambda (_%g179891179894%_ - _%g179892179896%_) - (cons _%g179891179894%_ - _%g179892179896%_)))) - (declare (not safe)) - (__foldr1 - __tmp187057 - '() - _%L179847%_)) - (cons _%expr179890%_ '()))) - '())) - (let ((__tmp187058 - (lambda (_%g179898179901%_ _%g179899179903%_) - (cons _%g179898179901%_ _%g179899179903%_)))) - (declare (not safe)) - (__foldr1 __tmp187058 '() _%L179845%_))) - (cons _%L179844%_ '()))))))) + '()) + (cons (cons '%#lambda + (cons (let ((__tmp186047 + (lambda (_%g178906178909%_ + _%g178907178911%_) + (cons _%g178906178909%_ + _%g178907178911%_)))) + (declare (not safe)) + (__foldr1 + __tmp186047 + '() + _%L178862%_)) + (cons _%expr178905%_ '()))) + '())) + (let ((__tmp186048 + (lambda (_%g178913178916%_ _%g178914178918%_) + (cons _%g178913178916%_ _%g178914178918%_)))) + (declare (not safe)) + (__foldr1 __tmp186048 '() _%L178860%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%do-splice!176524%_ __tmp187056)))) - (_%__kont184955184956%_ - (lambda () _%expr179524%_))) - (let* ((_%__match185142185143%_ - (lambda (_%e179654179716%_ - _%hd179653179719%_ - _%tl179652179721%_ - _%e179657179724%_ - _%hd179656179727%_ - _%tl179655179729%_ - _%e179660179732%_ - _%hd179659179735%_ - _%tl179658179737%_ - _%e179663179740%_ - _%hd179662179743%_ - _%tl179661179745%_ - _%e179666179748%_ - _%hd179665179751%_ - _%tl179664179753%_ - _%e179669179756%_ - _%hd179668179759%_ - _%tl179667179761%_ - _%e179672179764%_ - _%hd179671179767%_ - _%tl179670179769%_ - _%e179675179772%_ - _%hd179674179775%_ - _%tl179673179777%_ - _%__splice184951184952%_ - _%target179676179780%_ - _%tl179678179782%_) - (letrec ((_%loop179679179785%_ - (lambda (_%hd179677179788%_ - _%id179683179790%_) + (cons _%L178859%_ '())))))))) + (_%__kont183970183971%_ + (lambda () _%expr178539%_))) + (let* ((_%__match184157184158%_ + (lambda (_%e178669178731%_ + _%hd178668178734%_ + _%tl178667178736%_ + _%e178672178739%_ + _%hd178671178742%_ + _%tl178670178744%_ + _%e178675178747%_ + _%hd178674178750%_ + _%tl178673178752%_ + _%e178678178755%_ + _%hd178677178758%_ + _%tl178676178760%_ + _%e178681178763%_ + _%hd178680178766%_ + _%tl178679178768%_ + _%e178684178771%_ + _%hd178683178774%_ + _%tl178682178776%_ + _%e178687178779%_ + _%hd178686178782%_ + _%tl178685178784%_ + _%e178690178787%_ + _%hd178689178790%_ + _%tl178688178792%_ + _%__splice183966183967%_ + _%target178691178795%_ + _%tl178693178797%_) + (letrec ((_%loop178694178800%_ + (lambda (_%hd178692178803%_ + _%id178698178805%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179677179788%_)) - (let ((_%e179680179793%_ + _%hd178692178803%_)) + (let ((_%e178695178808%_ (let () (declare (not safe)) (gx#stx-e - _%hd179677179788%_)))) - (let ((_%lp-tl179682179798%_ + _%hd178692178803%_)))) + (let ((_%lp-tl178697178813%_ (let () (declare (not safe)) - (##cdr _%e179680179793%_))) - (_%lp-hd179681179796%_ + (##cdr _%e178695178808%_))) + (_%lp-hd178696178811%_ (let () (declare (not safe)) - (##car _%e179680179793%_)))) - (let ((__tmp187059 - (cons _%lp-hd179681179796%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id179683179790%_))) - (declare (not safe)) - (_%loop179679179785%_ _%lp-tl179682179798%_ __tmp187059)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id179684179801%_ - (reverse _%id179683179790%_))) + (##car _%e178695178808%_)))) + (_%loop178694178800%_ + _%lp-tl178697178813%_ + (cons _%lp-hd178696178811%_ + _%id178698178805%_)))) + (let ((_%id178699178816%_ + (reverse _%id178698178805%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179673179777%_)) - (let ((_%e179687179804%_ + _%tl178688178792%_)) + (let ((_%e178702178819%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179673179777%_)))) - (let ((_%tl179685179809%_ + (gx#stx-e _%tl178688178792%_)))) + (let ((_%tl178700178824%_ (let () (declare (not safe)) - (##cdr _%e179687179804%_))) - (_%hd179686179807%_ + (##cdr _%e178702178819%_))) + (_%hd178701178822%_ (let () (declare (not safe)) - (##car _%e179687179804%_)))) + (##car _%e178702178819%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179685179809%_)) + (gx#stx-null? _%tl178700178824%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179667179761%_)) + (gx#stx-null? _%tl178682178776%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl179658179737%_)) - (let ((_%__splice184953184954%_ + (gx#stx-pair/null? _%tl178673178752%_)) + (let ((_%__splice183968183969%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl179658179737%_ + _%tl178673178752%_ '0)))) - (let ((_%tl179690179814%_ + (let ((_%tl178705178829%_ (let () (declare (not safe)) (##vector-ref - _%__splice184953184954%_ + _%__splice183968183969%_ '1))) - (_%target179688179812%_ + (_%target178703178827%_ (let () (declare (not safe)) (##vector-ref - _%__splice184953184954%_ + _%__splice183968183969%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179690179814%_)) - (letrec ((_%loop179691179817%_ - (lambda (_%hd179689179820%_ - _%bind179695179822%_) + (gx#stx-null? _%tl178705178829%_)) + (letrec ((_%loop178706178832%_ + (lambda (_%hd178704178835%_ + _%bind178710178837%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179689179820%_)) - (let ((_%e179692179825%_ + _%hd178704178835%_)) + (let ((_%e178707178840%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd179689179820%_)))) - (let ((_%lp-tl179694179830%_ + (gx#stx-e _%hd178704178835%_)))) + (let ((_%lp-tl178709178845%_ (let () (declare (not safe)) - (##cdr _%e179692179825%_))) - (_%lp-hd179693179828%_ + (##cdr _%e178707178840%_))) + (_%lp-hd178708178843%_ (let () (declare (not safe)) - (##car _%e179692179825%_)))) - (let ((__tmp187060 - (cons _%lp-hd179693179828%_ _%bind179695179822%_))) - (declare (not safe)) - (_%loop179691179817%_ - _%lp-tl179694179830%_ - __tmp187060)))) - (let ((_%bind179696179833%_ (reverse _%bind179695179822%_))) + (##car _%e178707178840%_)))) + (_%loop178706178832%_ + _%lp-tl178709178845%_ + (cons _%lp-hd178708178843%_ _%bind178710178837%_)))) + (let ((_%bind178711178848%_ (reverse _%bind178710178837%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179655179729%_)) - (let ((_%e179699179836%_ + (gx#stx-pair? _%tl178670178744%_)) + (let ((_%e178714178851%_ (let () (declare (not safe)) - (gx#stx-e _%tl179655179729%_)))) - (let ((_%tl179697179841%_ + (gx#stx-e _%tl178670178744%_)))) + (let ((_%tl178712178856%_ (let () (declare (not safe)) - (##cdr _%e179699179836%_))) - (_%hd179698179839%_ + (##cdr _%e178714178851%_))) + (_%hd178713178854%_ (let () (declare (not safe)) - (##car _%e179699179836%_)))) + (##car _%e178714178851%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179697179841%_)) - (_%__kont184949184950%_ - _%hd179698179839%_ - _%bind179696179833%_ - _%hd179686179807%_ - _%id179684179801%_ - _%hd179665179751%_) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_))))))) + (gx#stx-null? _%tl178712178856%_)) + (_%__kont183964183965%_ + _%hd178713178854%_ + _%bind178711178848%_ + _%hd178701178822%_ + _%id178699178816%_ + _%hd178680178766%_) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop179691179817%_ - _%target179688179812%_ - '()))) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)) - (_%__kont184955184956%_)) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_))))))) + (_%loop178706178832%_ + _%target178703178827%_ + '())) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)) + (_%__kont183970183971%_)) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop179679179785%_ - _%target179676179780%_ - '()))))) - (_%__match185076185077%_ - (lambda (_%e179620179911%_ - _%hd179619179914%_ - _%tl179618179916%_ - _%e179623179919%_ - _%hd179622179922%_ - _%tl179621179924%_ - _%__splice184947184948%_ - _%target179624179927%_ - _%tl179626179929%_) - (letrec ((_%loop179627179932%_ - (lambda (_%hd179625179935%_ - _%expr179631179937%_ - _%id179632179939%_) + (_%loop178694178800%_ + _%target178691178795%_ + '())))) + (_%__match184091184092%_ + (lambda (_%e178635178926%_ + _%hd178634178929%_ + _%tl178633178931%_ + _%e178638178934%_ + _%hd178637178937%_ + _%tl178636178939%_ + _%__splice183962183963%_ + _%target178639178942%_ + _%tl178641178944%_) + (letrec ((_%loop178642178947%_ + (lambda (_%hd178640178950%_ + _%expr178646178952%_ + _%id178647178954%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179625179935%_)) - (let ((_%e179628179942%_ + _%hd178640178950%_)) + (let ((_%e178643178957%_ (let () (declare (not safe)) (gx#stx-e - _%hd179625179935%_)))) - (let ((_%lp-tl179630179947%_ + _%hd178640178950%_)))) + (let ((_%lp-tl178645178962%_ (let () (declare (not safe)) - (##cdr _%e179628179942%_))) - (_%lp-hd179629179945%_ + (##cdr _%e178643178957%_))) + (_%lp-hd178644178960%_ (let () (declare (not safe)) - (##car _%e179628179942%_)))) + (##car _%e178643178957%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd179629179945%_)) - (let ((_%e179637179950%_ + _%lp-hd178644178960%_)) + (let ((_%e178652178965%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd179629179945%_)))) - (let ((_%tl179635179955%_ + (gx#stx-e _%lp-hd178644178960%_)))) + (let ((_%tl178650178970%_ (let () (declare (not safe)) - (##cdr _%e179637179950%_))) - (_%hd179636179953%_ + (##cdr _%e178652178965%_))) + (_%hd178651178968%_ (let () (declare (not safe)) - (##car _%e179637179950%_)))) + (##car _%e178652178965%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179636179953%_)) - (let ((_%e179640179958%_ + (gx#stx-pair? _%hd178651178968%_)) + (let ((_%e178655178973%_ (let () (declare (not safe)) - (gx#stx-e _%hd179636179953%_)))) - (let ((_%tl179638179963%_ + (gx#stx-e _%hd178651178968%_)))) + (let ((_%tl178653178978%_ (let () (declare (not safe)) - (##cdr _%e179640179958%_))) - (_%hd179639179961%_ + (##cdr _%e178655178973%_))) + (_%hd178654178976%_ (let () (declare (not safe)) - (##car _%e179640179958%_)))) + (##car _%e178655178973%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179638179963%_)) + (gx#stx-null? _%tl178653178978%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179635179955%_)) - (let ((_%e179643179966%_ + (gx#stx-pair? _%tl178650178970%_)) + (let ((_%e178658178981%_ (let () (declare (not safe)) (gx#stx-e - _%tl179635179955%_)))) - (let ((_%tl179641179971%_ + _%tl178650178970%_)))) + (let ((_%tl178656178986%_ (let () (declare (not safe)) - (##cdr _%e179643179966%_))) - (_%hd179642179969%_ + (##cdr _%e178658178981%_))) + (_%hd178657178984%_ (let () (declare (not safe)) - (##car _%e179643179966%_)))) + (##car _%e178658178981%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179641179971%_)) - (let ((__tmp187062 - (cons _%hd179642179969%_ - _%expr179631179937%_)) - (__tmp187061 - (cons _%hd179639179961%_ - _%id179632179939%_))) - (declare (not safe)) - (_%loop179627179932%_ - _%lp-tl179630179947%_ - __tmp187062 - __tmp187061)) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)))) + _%tl178656178986%_)) + (_%loop178642178947%_ + _%lp-tl178645178962%_ + (cons _%hd178657178984%_ + _%expr178646178952%_) + (cons _%hd178654178976%_ + _%id178647178954%_)) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id179634179976%_ - (reverse _%id179632179939%_)) - (_%expr179633179974%_ - (reverse _%expr179631179937%_))) + (let ((_%id178649178991%_ + (reverse _%id178647178954%_)) + (_%expr178648178989%_ + (reverse _%expr178646178952%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179621179924%_)) - (let ((_%e179646179979%_ + _%tl178636178939%_)) + (let ((_%e178661178994%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179621179924%_)))) - (let ((_%tl179644179984%_ + (gx#stx-e _%tl178636178939%_)))) + (let ((_%tl178659178999%_ (let () (declare (not safe)) - (##cdr _%e179646179979%_))) - (_%hd179645179982%_ + (##cdr _%e178661178994%_))) + (_%hd178660178997%_ (let () (declare (not safe)) - (##car _%e179646179979%_)))) + (##car _%e178661178994%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179644179984%_)) - (_%__kont184945184946%_ - _%hd179645179982%_ - _%expr179633179974%_ - _%id179634179976%_) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_))))))) + (gx#stx-null? _%tl178659178999%_)) + (_%__kont183960183961%_ + _%hd178660178997%_ + _%expr178648178989%_ + _%id178649178991%_) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop179627179932%_ - _%target179624179927%_ - '() - '()))))) - (_%__match185052185053%_ - (lambda (_%e179582180027%_ - _%hd179581180030%_ - _%tl179580180032%_ - _%e179585180035%_ - _%hd179584180038%_ - _%tl179583180040%_ - _%__splice184943184944%_ - _%target179586180043%_ - _%tl179588180045%_) - (letrec ((_%loop179589180048%_ - (lambda (_%hd179587180051%_ - _%xid179593180053%_ - _%id179594180055%_) + (_%loop178642178947%_ + _%target178639178942%_ + '() + '())))) + (_%__match184067184068%_ + (lambda (_%e178597179042%_ + _%hd178596179045%_ + _%tl178595179047%_ + _%e178600179050%_ + _%hd178599179053%_ + _%tl178598179055%_ + _%__splice183958183959%_ + _%target178601179058%_ + _%tl178603179060%_) + (letrec ((_%loop178604179063%_ + (lambda (_%hd178602179066%_ + _%xid178608179068%_ + _%id178609179070%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179587180051%_)) - (let ((_%e179590180058%_ + _%hd178602179066%_)) + (let ((_%e178605179073%_ (let () (declare (not safe)) (gx#stx-e - _%hd179587180051%_)))) - (let ((_%lp-tl179592180063%_ + _%hd178602179066%_)))) + (let ((_%lp-tl178607179078%_ (let () (declare (not safe)) - (##cdr _%e179590180058%_))) - (_%lp-hd179591180061%_ + (##cdr _%e178605179073%_))) + (_%lp-hd178606179076%_ (let () (declare (not safe)) - (##car _%e179590180058%_)))) + (##car _%e178605179073%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd179591180061%_)) - (let ((_%e179599180066%_ + _%lp-hd178606179076%_)) + (let ((_%e178614179081%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd179591180061%_)))) - (let ((_%tl179597180071%_ + (gx#stx-e _%lp-hd178606179076%_)))) + (let ((_%tl178612179086%_ (let () (declare (not safe)) - (##cdr _%e179599180066%_))) - (_%hd179598180069%_ + (##cdr _%e178614179081%_))) + (_%hd178613179084%_ (let () (declare (not safe)) - (##car _%e179599180066%_)))) + (##car _%e178614179081%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179598180069%_)) - (let ((_%e179602180074%_ + (gx#stx-pair? _%hd178613179084%_)) + (let ((_%e178617179089%_ (let () (declare (not safe)) - (gx#stx-e _%hd179598180069%_)))) - (let ((_%tl179600180079%_ + (gx#stx-e _%hd178613179084%_)))) + (let ((_%tl178615179094%_ (let () (declare (not safe)) - (##cdr _%e179602180074%_))) - (_%hd179601180077%_ + (##cdr _%e178617179089%_))) + (_%hd178616179092%_ (let () (declare (not safe)) - (##car _%e179602180074%_)))) + (##car _%e178617179089%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179600180079%_)) + (gx#stx-null? _%tl178615179094%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179597180071%_)) - (let ((_%e179605180082%_ + (gx#stx-pair? _%tl178612179086%_)) + (let ((_%e178620179097%_ (let () (declare (not safe)) (gx#stx-e - _%tl179597180071%_)))) - (let ((_%tl179603180087%_ + _%tl178612179086%_)))) + (let ((_%tl178618179102%_ (let () (declare (not safe)) - (##cdr _%e179605180082%_))) - (_%hd179604180085%_ + (##cdr _%e178620179097%_))) + (_%hd178619179100%_ (let () (declare (not safe)) - (##car _%e179605180082%_)))) + (##car _%e178620179097%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179604180085%_)) - (let ((_%e179608180090%_ + _%hd178619179100%_)) + (let ((_%e178623179105%_ (let () (declare (not safe)) (gx#stx-e - _%hd179604180085%_)))) - (let ((_%tl179606180095%_ + _%hd178619179100%_)))) + (let ((_%tl178621179110%_ (let () (declare (not safe)) - (##cdr _%e179608180090%_))) - (_%hd179607180093%_ + (##cdr _%e178623179105%_))) + (_%hd178622179108%_ (let () (declare (not safe)) - (##car _%e179608180090%_)))) + (##car _%e178623179105%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179607180093%_)) + _%hd178622179108%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd179607180093%_)) + _%hd178622179108%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl179606180095%_)) - (let ((_%e179611180098%_ + (gx#stx-pair? _%tl178621179110%_)) + (let ((_%e178626179113%_ (let () (declare (not safe)) - (gx#stx-e _%tl179606180095%_)))) - (let ((_%tl179609180103%_ + (gx#stx-e _%tl178621179110%_)))) + (let ((_%tl178624179118%_ (let () (declare (not safe)) - (##cdr _%e179611180098%_))) - (_%hd179610180101%_ + (##cdr _%e178626179113%_))) + (_%hd178625179116%_ (let () (declare (not safe)) - (##car _%e179611180098%_)))) + (##car _%e178626179113%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179609180103%_)) + (gx#stx-null? _%tl178624179118%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179603180087%_)) - (let ((__tmp187064 - (cons _%hd179610180101%_ - _%xid179593180053%_)) - (__tmp187063 - (cons _%hd179601180077%_ - _%id179594180055%_))) - (declare (not safe)) - (_%loop179589180048%_ - _%lp-tl179592180063%_ - __tmp187064 - __tmp187063)) - (_%__match185076185077%_ - _%e179582180027%_ - _%hd179581180030%_ - _%tl179580180032%_ - _%e179585180035%_ - _%hd179584180038%_ - _%tl179583180040%_ - _%__splice184943184944%_ - _%target179586180043%_ - _%tl179588180045%_)) - (_%__match185076185077%_ - _%e179582180027%_ - _%hd179581180030%_ - _%tl179580180032%_ - _%e179585180035%_ - _%hd179584180038%_ - _%tl179583180040%_ - _%__splice184943184944%_ - _%target179586180043%_ - _%tl179588180045%_)))) - (_%__match185076185077%_ - _%e179582180027%_ - _%hd179581180030%_ - _%tl179580180032%_ - _%e179585180035%_ - _%hd179584180038%_ - _%tl179583180040%_ - _%__splice184943184944%_ - _%target179586180043%_ - _%tl179588180045%_)) - (_%__match185076185077%_ - _%e179582180027%_ - _%hd179581180030%_ - _%tl179580180032%_ - _%e179585180035%_ - _%hd179584180038%_ - _%tl179583180040%_ - _%__splice184943184944%_ - _%target179586180043%_ - _%tl179588180045%_)) - (_%__match185076185077%_ - _%e179582180027%_ - _%hd179581180030%_ - _%tl179580180032%_ - _%e179585180035%_ - _%hd179584180038%_ - _%tl179583180040%_ - _%__splice184943184944%_ - _%target179586180043%_ - _%tl179588180045%_)))) + (gx#stx-null? _%tl178618179102%_)) + (_%loop178604179063%_ + _%lp-tl178607179078%_ + (cons _%hd178625179116%_ + _%xid178608179068%_) + (cons _%hd178616179092%_ + _%id178609179070%_)) + (_%__match184091184092%_ + _%e178597179042%_ + _%hd178596179045%_ + _%tl178595179047%_ + _%e178600179050%_ + _%hd178599179053%_ + _%tl178598179055%_ + _%__splice183958183959%_ + _%target178601179058%_ + _%tl178603179060%_)) + (_%__match184091184092%_ + _%e178597179042%_ + _%hd178596179045%_ + _%tl178595179047%_ + _%e178600179050%_ + _%hd178599179053%_ + _%tl178598179055%_ + _%__splice183958183959%_ + _%target178601179058%_ + _%tl178603179060%_)))) + (_%__match184091184092%_ + _%e178597179042%_ + _%hd178596179045%_ + _%tl178595179047%_ + _%e178600179050%_ + _%hd178599179053%_ + _%tl178598179055%_ + _%__splice183958183959%_ + _%target178601179058%_ + _%tl178603179060%_)) + (_%__match184091184092%_ + _%e178597179042%_ + _%hd178596179045%_ + _%tl178595179047%_ + _%e178600179050%_ + _%hd178599179053%_ + _%tl178598179055%_ + _%__splice183958183959%_ + _%target178601179058%_ + _%tl178603179060%_)) + (_%__match184091184092%_ + _%e178597179042%_ + _%hd178596179045%_ + _%tl178595179047%_ + _%e178600179050%_ + _%hd178599179053%_ + _%tl178598179055%_ + _%__splice183958183959%_ + _%target178601179058%_ + _%tl178603179060%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match185076185077%_ - _%e179582180027%_ - _%hd179581180030%_ - _%tl179580180032%_ - _%e179585180035%_ - _%hd179584180038%_ - _%tl179583180040%_ - _%__splice184943184944%_ - _%target179586180043%_ - _%tl179588180045%_)))) - (_%__match185076185077%_ - _%e179582180027%_ - _%hd179581180030%_ - _%tl179580180032%_ - _%e179585180035%_ - _%hd179584180038%_ - _%tl179583180040%_ - _%__splice184943184944%_ - _%target179586180043%_ - _%tl179588180045%_)) - (_%__match185076185077%_ - _%e179582180027%_ - _%hd179581180030%_ - _%tl179580180032%_ - _%e179585180035%_ - _%hd179584180038%_ - _%tl179583180040%_ - _%__splice184943184944%_ - _%target179586180043%_ - _%tl179588180045%_)))) - (_%__match185076185077%_ - _%e179582180027%_ - _%hd179581180030%_ - _%tl179580180032%_ - _%e179585180035%_ - _%hd179584180038%_ - _%tl179583180040%_ - _%__splice184943184944%_ - _%target179586180043%_ - _%tl179588180045%_)))) - (_%__match185076185077%_ - _%e179582180027%_ - _%hd179581180030%_ - _%tl179580180032%_ - _%e179585180035%_ - _%hd179584180038%_ - _%tl179583180040%_ - _%__splice184943184944%_ - _%target179586180043%_ - _%tl179588180045%_)))) + (_%__match184091184092%_ + _%e178597179042%_ + _%hd178596179045%_ + _%tl178595179047%_ + _%e178600179050%_ + _%hd178599179053%_ + _%tl178598179055%_ + _%__splice183958183959%_ + _%target178601179058%_ + _%tl178603179060%_)))) + (_%__match184091184092%_ + _%e178597179042%_ + _%hd178596179045%_ + _%tl178595179047%_ + _%e178600179050%_ + _%hd178599179053%_ + _%tl178598179055%_ + _%__splice183958183959%_ + _%target178601179058%_ + _%tl178603179060%_)) + (_%__match184091184092%_ + _%e178597179042%_ + _%hd178596179045%_ + _%tl178595179047%_ + _%e178600179050%_ + _%hd178599179053%_ + _%tl178598179055%_ + _%__splice183958183959%_ + _%target178601179058%_ + _%tl178603179060%_)))) + (_%__match184091184092%_ + _%e178597179042%_ + _%hd178596179045%_ + _%tl178595179047%_ + _%e178600179050%_ + _%hd178599179053%_ + _%tl178598179055%_ + _%__splice183958183959%_ + _%target178601179058%_ + _%tl178603179060%_)))) + (_%__match184091184092%_ + _%e178597179042%_ + _%hd178596179045%_ + _%tl178595179047%_ + _%e178600179050%_ + _%hd178599179053%_ + _%tl178598179055%_ + _%__splice183958183959%_ + _%target178601179058%_ + _%tl178603179060%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id179596180108%_ - (reverse _%id179594180055%_)) - (_%xid179595180106%_ - (reverse _%xid179593180053%_))) + (let ((_%id178611179123%_ + (reverse _%id178609179070%_)) + (_%xid178610179121%_ + (reverse _%xid178608179068%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179583180040%_)) - (let ((_%e179614180111%_ + _%tl178598179055%_)) + (let ((_%e178629179126%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179583180040%_)))) - (let ((_%tl179612180116%_ + (gx#stx-e _%tl178598179055%_)))) + (let ((_%tl178627179131%_ (let () (declare (not safe)) - (##cdr _%e179614180111%_))) - (_%hd179613180114%_ + (##cdr _%e178629179126%_))) + (_%hd178628179129%_ (let () (declare (not safe)) - (##car _%e179614180111%_)))) + (##car _%e178629179126%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179612180116%_)) - (_%__kont184941184942%_ - _%hd179613180114%_ - _%xid179595180106%_ - _%id179596180108%_) - (_%__match185076185077%_ - _%e179582180027%_ - _%hd179581180030%_ - _%tl179580180032%_ - _%e179585180035%_ - _%hd179584180038%_ - _%tl179583180040%_ - _%__splice184943184944%_ - _%target179586180043%_ - _%tl179588180045%_)))) - (_%__match185076185077%_ - _%e179582180027%_ - _%hd179581180030%_ - _%tl179580180032%_ - _%e179585180035%_ - _%hd179584180038%_ - _%tl179583180040%_ - _%__splice184943184944%_ - _%target179586180043%_ - _%tl179588180045%_))))))) + (gx#stx-null? _%tl178627179131%_)) + (_%__kont183956183957%_ + _%hd178628179129%_ + _%xid178610179121%_ + _%id178611179123%_) + (_%__match184091184092%_ + _%e178597179042%_ + _%hd178596179045%_ + _%tl178595179047%_ + _%e178600179050%_ + _%hd178599179053%_ + _%tl178598179055%_ + _%__splice183958183959%_ + _%target178601179058%_ + _%tl178603179060%_)))) + (_%__match184091184092%_ + _%e178597179042%_ + _%hd178596179045%_ + _%tl178595179047%_ + _%e178600179050%_ + _%hd178599179053%_ + _%tl178598179055%_ + _%__splice183958183959%_ + _%target178601179058%_ + _%tl178603179060%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop179589180048%_ - _%target179586180043%_ - '() - '()))))) - (_%__match185028185029%_ - (lambda (_%e179552180157%_ - _%hd179551180160%_ - _%tl179550180162%_ - _%e179555180165%_ - _%hd179554180168%_ - _%tl179553180170%_ - _%e179558180173%_ - _%hd179557180176%_ - _%tl179556180178%_ - _%e179561180181%_ - _%hd179560180184%_ - _%tl179559180186%_ - _%__splice184939184940%_ - _%target179562180189%_ - _%tl179564180191%_) - (letrec ((_%loop179565180194%_ - (lambda (_%hd179563180197%_ - _%id179569180199%_) + (_%loop178604179063%_ + _%target178601179058%_ + '() + '())))) + (_%__match184043184044%_ + (lambda (_%e178567179172%_ + _%hd178566179175%_ + _%tl178565179177%_ + _%e178570179180%_ + _%hd178569179183%_ + _%tl178568179185%_ + _%e178573179188%_ + _%hd178572179191%_ + _%tl178571179193%_ + _%e178576179196%_ + _%hd178575179199%_ + _%tl178574179201%_ + _%__splice183954183955%_ + _%target178577179204%_ + _%tl178579179206%_) + (letrec ((_%loop178580179209%_ + (lambda (_%hd178578179212%_ + _%id178584179214%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179563180197%_)) - (let ((_%e179566180202%_ + _%hd178578179212%_)) + (let ((_%e178581179217%_ (let () (declare (not safe)) (gx#stx-e - _%hd179563180197%_)))) - (let ((_%lp-tl179568180207%_ + _%hd178578179212%_)))) + (let ((_%lp-tl178583179222%_ (let () (declare (not safe)) - (##cdr _%e179566180202%_))) - (_%lp-hd179567180205%_ + (##cdr _%e178581179217%_))) + (_%lp-hd178582179220%_ (let () (declare (not safe)) - (##car _%e179566180202%_)))) + (##car _%e178581179217%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd179567180205%_)) - (let ((_%e179573180210%_ + _%lp-hd178582179220%_)) + (let ((_%e178588179225%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd179567180205%_)))) - (let ((_%tl179571180215%_ + (gx#stx-e _%lp-hd178582179220%_)))) + (let ((_%tl178586179230%_ (let () (declare (not safe)) - (##cdr _%e179573180210%_))) - (_%hd179572180213%_ + (##cdr _%e178588179225%_))) + (_%hd178587179228%_ (let () (declare (not safe)) - (##car _%e179573180210%_)))) + (##car _%e178588179225%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179572180213%_)) + (gx#identifier? _%hd178587179228%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd179572180213%_)) + (gx#stx-eq? '%#ref _%hd178587179228%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179571180215%_)) - (let ((_%e179576180218%_ + (gx#stx-pair? _%tl178586179230%_)) + (let ((_%e178591179233%_ (let () (declare (not safe)) - (gx#stx-e _%tl179571180215%_)))) - (let ((_%tl179574180223%_ + (gx#stx-e _%tl178586179230%_)))) + (let ((_%tl178589179238%_ (let () (declare (not safe)) - (##cdr _%e179576180218%_))) - (_%hd179575180221%_ + (##cdr _%e178591179233%_))) + (_%hd178590179236%_ (let () (declare (not safe)) - (##car _%e179576180218%_)))) + (##car _%e178591179233%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179574180223%_)) - (let ((__tmp187065 - (cons _%hd179575180221%_ - _%id179569180199%_))) - (declare (not safe)) - (_%loop179565180194%_ - _%lp-tl179568180207%_ - __tmp187065)) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)) - (_%__kont184955184956%_)) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)))) + (gx#stx-null? _%tl178589179238%_)) + (_%loop178580179209%_ + _%lp-tl178583179222%_ + (cons _%hd178590179236%_ + _%id178584179214%_)) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)) + (_%__kont183970183971%_)) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id179570180226%_ - (reverse _%id179569180199%_))) - (_%__kont184937184938%_ - _%id179570180226%_ - _%hd179560180184%_)))))) - (let () - (declare (not safe)) - (_%loop179565180194%_ - _%target179562180189%_ - '())))))) + (let ((_%id178585179241%_ + (reverse _%id178584179214%_))) + (_%__kont183952183953%_ + _%id178585179241%_ + _%hd178575179199%_)))))) + (_%loop178580179209%_ + _%target178577179204%_ + '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx184933184934%_)) - (let ((_%e179538180268%_ + (gx#stx-pair? _%__stx183948183949%_)) + (let ((_%e178553179283%_ (let () (declare (not safe)) - (gx#stx-e _%__stx184933184934%_)))) - (let ((_%tl179536180273%_ + (gx#stx-e _%__stx183948183949%_)))) + (let ((_%tl178551179288%_ (let () (declare (not safe)) - (##cdr _%e179538180268%_))) - (_%hd179537180271%_ + (##cdr _%e178553179283%_))) + (_%hd178552179286%_ (let () (declare (not safe)) - (##car _%e179538180268%_)))) + (##car _%e178553179283%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179537180271%_)) + (gx#identifier? _%hd178552179286%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd179537180271%_)) + _%hd178552179286%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179536180273%_)) - (let ((_%e179541180276%_ + _%tl178551179288%_)) + (let ((_%e178556179291%_ (let () (declare (not safe)) (gx#stx-e - _%tl179536180273%_)))) - (let ((_%tl179539180281%_ + _%tl178551179288%_)))) + (let ((_%tl178554179296%_ (let () (declare (not safe)) - (##cdr _%e179541180276%_))) - (_%hd179540180279%_ + (##cdr _%e178556179291%_))) + (_%hd178555179294%_ (let () (declare (not safe)) - (##car _%e179541180276%_)))) + (##car _%e178556179291%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179539180281%_)) - (let ((_%e179544180284%_ + _%tl178554179296%_)) + (let ((_%e178559179299%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179539180281%_)))) - (let ((_%tl179542180289%_ + (gx#stx-e _%tl178554179296%_)))) + (let ((_%tl178557179304%_ (let () (declare (not safe)) - (##cdr _%e179544180284%_))) - (_%hd179543180287%_ + (##cdr _%e178559179299%_))) + (_%hd178558179302%_ (let () (declare (not safe)) - (##car _%e179544180284%_)))) + (##car _%e178559179299%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179542180289%_)) - (let ((_%e179547180292%_ + (gx#stx-pair? _%tl178557179304%_)) + (let ((_%e178562179307%_ (let () (declare (not safe)) - (gx#stx-e _%tl179542180289%_)))) - (let ((_%tl179545180297%_ + (gx#stx-e _%tl178557179304%_)))) + (let ((_%tl178560179312%_ (let () (declare (not safe)) - (##cdr _%e179547180292%_))) - (_%hd179546180295%_ + (##cdr _%e178562179307%_))) + (_%hd178561179310%_ (let () (declare (not safe)) - (##car _%e179547180292%_)))) + (##car _%e178562179307%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179545180297%_)) - (_%__kont184935184936%_ - _%hd179546180295%_ - _%hd179543180287%_ - _%hd179540180279%_) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)))) + (gx#stx-null? _%tl178560179312%_)) + (_%__kont183950183951%_ + _%hd178561179310%_ + _%hd178558179302%_ + _%hd178555179294%_) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184955184956%_)) + (_%__kont183970183971%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd179537180271%_)) + _%hd178552179286%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179536180273%_)) - (let ((_%e179555180165%_ + _%tl178551179288%_)) + (let ((_%e178570179180%_ (let () (declare (not safe)) (gx#stx-e - _%tl179536180273%_)))) - (let ((_%tl179553180170%_ + _%tl178551179288%_)))) + (let ((_%tl178568179185%_ (let () (declare (not safe)) - (##cdr _%e179555180165%_))) - (_%hd179554180168%_ + (##cdr _%e178570179180%_))) + (_%hd178569179183%_ (let () (declare (not safe)) - (##car _%e179555180165%_)))) + (##car _%e178570179180%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179554180168%_)) - (let ((_%e179558180173%_ + _%hd178569179183%_)) + (let ((_%e178573179188%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd179554180168%_)))) - (let ((_%tl179556180178%_ + (gx#stx-e _%hd178569179183%_)))) + (let ((_%tl178571179193%_ (let () (declare (not safe)) - (##cdr _%e179558180173%_))) - (_%hd179557180176%_ + (##cdr _%e178573179188%_))) + (_%hd178572179191%_ (let () (declare (not safe)) - (##car _%e179558180173%_)))) + (##car _%e178573179188%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179557180176%_)) + (gx#identifier? _%hd178572179191%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd179557180176%_)) + (gx#stx-eq? '%#ref _%hd178572179191%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179556180178%_)) - (let ((_%e179561180181%_ + (gx#stx-pair? _%tl178571179193%_)) + (let ((_%e178576179196%_ (let () (declare (not safe)) - (gx#stx-e _%tl179556180178%_)))) - (let ((_%tl179559180186%_ + (gx#stx-e _%tl178571179193%_)))) + (let ((_%tl178574179201%_ (let () (declare (not safe)) - (##cdr _%e179561180181%_))) - (_%hd179560180184%_ + (##cdr _%e178576179196%_))) + (_%hd178575179199%_ (let () (declare (not safe)) - (##car _%e179561180181%_)))) + (##car _%e178576179196%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179559180186%_)) + (gx#stx-null? _%tl178574179201%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl179553180170%_)) - (let ((_%__splice184939184940%_ + _%tl178568179185%_)) + (let ((_%__splice183954183955%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl179553180170%_ + _%tl178568179185%_ '0)))) - (let ((_%tl179564180191%_ + (let ((_%tl178579179206%_ (let () (declare (not safe)) (##vector-ref - _%__splice184939184940%_ + _%__splice183954183955%_ '1))) - (_%target179562180189%_ + (_%target178577179204%_ (let () (declare (not safe)) (##vector-ref - _%__splice184939184940%_ + _%__splice183954183955%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179564180191%_)) - (_%__match185028185029%_ - _%e179538180268%_ - _%hd179537180271%_ - _%tl179536180273%_ - _%e179555180165%_ - _%hd179554180168%_ - _%tl179553180170%_ - _%e179558180173%_ - _%hd179557180176%_ - _%tl179556180178%_ - _%e179561180181%_ - _%hd179560180184%_ - _%tl179559180186%_ - _%__splice184939184940%_ - _%target179562180189%_ - _%tl179564180191%_) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)) - (_%__kont184955184956%_)) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)))) + _%tl178579179206%_)) + (_%__match184043184044%_ + _%e178553179283%_ + _%hd178552179286%_ + _%tl178551179288%_ + _%e178570179180%_ + _%hd178569179183%_ + _%tl178568179185%_ + _%e178573179188%_ + _%hd178572179191%_ + _%tl178571179193%_ + _%e178576179196%_ + _%hd178575179199%_ + _%tl178574179201%_ + _%__splice183954183955%_ + _%target178577179204%_ + _%tl178579179206%_) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)) + (_%__kont183970183971%_)) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184955184956%_)) + (_%__kont183970183971%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd179537180271%_)) + _%hd178552179286%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179536180273%_)) - (let ((_%e179585180035%_ + _%tl178551179288%_)) + (let ((_%e178600179050%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179536180273%_)))) - (let ((_%tl179583180040%_ + (gx#stx-e _%tl178551179288%_)))) + (let ((_%tl178598179055%_ (let () (declare (not safe)) - (##cdr _%e179585180035%_))) - (_%hd179584180038%_ + (##cdr _%e178600179050%_))) + (_%hd178599179053%_ (let () (declare (not safe)) - (##car _%e179585180035%_)))) + (##car _%e178600179050%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd179584180038%_)) - (let ((_%__splice184943184944%_ + (gx#stx-pair/null? _%hd178599179053%_)) + (let ((_%__splice183958183959%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd179584180038%_ + _%hd178599179053%_ '0)))) - (let ((_%tl179588180045%_ + (let ((_%tl178603179060%_ (let () (declare (not safe)) - (##vector-ref _%__splice184943184944%_ '1))) - (_%target179586180043%_ + (##vector-ref _%__splice183958183959%_ '1))) + (_%target178601179058%_ (let () (declare (not safe)) - (##vector-ref _%__splice184943184944%_ '0)))) + (##vector-ref _%__splice183958183959%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179588180045%_)) - (_%__match185052185053%_ - _%e179538180268%_ - _%hd179537180271%_ - _%tl179536180273%_ - _%e179585180035%_ - _%hd179584180038%_ - _%tl179583180040%_ - _%__splice184943184944%_ - _%target179586180043%_ - _%tl179588180045%_) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)) + (gx#stx-null? _%tl178603179060%_)) + (_%__match184067184068%_ + _%e178553179283%_ + _%hd178552179286%_ + _%tl178551179288%_ + _%e178600179050%_ + _%hd178599179053%_ + _%tl178598179055%_ + _%__splice183958183959%_ + _%target178601179058%_ + _%tl178603179060%_) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd179537180271%_)) + _%hd178552179286%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179536180273%_)) - (let ((_%e179657179724%_ + _%tl178551179288%_)) + (let ((_%e178672178739%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl179536180273%_)))) - (let ((_%tl179655179729%_ + (gx#stx-e _%tl178551179288%_)))) + (let ((_%tl178670178744%_ (let () (declare (not safe)) - (##cdr _%e179657179724%_))) - (_%hd179656179727%_ + (##cdr _%e178672178739%_))) + (_%hd178671178742%_ (let () (declare (not safe)) - (##car _%e179657179724%_)))) + (##car _%e178672178739%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179656179727%_)) - (let ((_%e179660179732%_ + (gx#stx-pair? _%hd178671178742%_)) + (let ((_%e178675178747%_ (let () (declare (not safe)) - (gx#stx-e _%hd179656179727%_)))) - (let ((_%tl179658179737%_ + (gx#stx-e _%hd178671178742%_)))) + (let ((_%tl178673178752%_ (let () (declare (not safe)) - (##cdr _%e179660179732%_))) - (_%hd179659179735%_ + (##cdr _%e178675178747%_))) + (_%hd178674178750%_ (let () (declare (not safe)) - (##car _%e179660179732%_)))) + (##car _%e178675178747%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179659179735%_)) - (let ((_%e179663179740%_ + (gx#stx-pair? _%hd178674178750%_)) + (let ((_%e178678178755%_ (let () (declare (not safe)) - (gx#stx-e _%hd179659179735%_)))) - (let ((_%tl179661179745%_ + (gx#stx-e _%hd178674178750%_)))) + (let ((_%tl178676178760%_ (let () (declare (not safe)) - (##cdr _%e179663179740%_))) - (_%hd179662179743%_ + (##cdr _%e178678178755%_))) + (_%hd178677178758%_ (let () (declare (not safe)) - (##car _%e179663179740%_)))) + (##car _%e178678178755%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179662179743%_)) - (let ((_%e179666179748%_ + (gx#stx-pair? _%hd178677178758%_)) + (let ((_%e178681178763%_ (let () (declare (not safe)) (gx#stx-e - _%hd179662179743%_)))) - (let ((_%tl179664179753%_ + _%hd178677178758%_)))) + (let ((_%tl178679178768%_ (let () (declare (not safe)) - (##cdr _%e179666179748%_))) - (_%hd179665179751%_ + (##cdr _%e178681178763%_))) + (_%hd178680178766%_ (let () (declare (not safe)) - (##car _%e179666179748%_)))) + (##car _%e178681178763%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179664179753%_)) + _%tl178679178768%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179661179745%_)) - (let ((_%e179669179756%_ + _%tl178676178760%_)) + (let ((_%e178684178771%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179661179745%_)))) - (let ((_%tl179667179761%_ + (gx#stx-e _%tl178676178760%_)))) + (let ((_%tl178682178776%_ (let () (declare (not safe)) - (##cdr _%e179669179756%_))) - (_%hd179668179759%_ + (##cdr _%e178684178771%_))) + (_%hd178683178774%_ (let () (declare (not safe)) - (##car _%e179669179756%_)))) + (##car _%e178684178771%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179668179759%_)) - (let ((_%e179672179764%_ + (gx#stx-pair? _%hd178683178774%_)) + (let ((_%e178687178779%_ (let () (declare (not safe)) - (gx#stx-e _%hd179668179759%_)))) - (let ((_%tl179670179769%_ + (gx#stx-e _%hd178683178774%_)))) + (let ((_%tl178685178784%_ (let () (declare (not safe)) - (##cdr _%e179672179764%_))) - (_%hd179671179767%_ + (##cdr _%e178687178779%_))) + (_%hd178686178782%_ (let () (declare (not safe)) - (##car _%e179672179764%_)))) + (##car _%e178687178779%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179671179767%_)) + (gx#identifier? _%hd178686178782%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd179671179767%_)) + (gx#stx-eq? '%#lambda _%hd178686178782%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179670179769%_)) - (let ((_%e179675179772%_ + (gx#stx-pair? _%tl178685178784%_)) + (let ((_%e178690178787%_ (let () (declare (not safe)) (gx#stx-e - _%tl179670179769%_)))) - (let ((_%tl179673179777%_ + _%tl178685178784%_)))) + (let ((_%tl178688178792%_ (let () (declare (not safe)) - (##cdr _%e179675179772%_))) - (_%hd179674179775%_ + (##cdr _%e178690178787%_))) + (_%hd178689178790%_ (let () (declare (not safe)) - (##car _%e179675179772%_)))) + (##car _%e178690178787%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd179674179775%_)) - (let ((_%__splice184951184952%_ + _%hd178689178790%_)) + (let ((_%__splice183966183967%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd179674179775%_ + _%hd178689178790%_ '0)))) - (let ((_%tl179678179782%_ + (let ((_%tl178693178797%_ (let () (declare (not safe)) (##vector-ref - _%__splice184951184952%_ + _%__splice183966183967%_ '1))) - (_%target179676179780%_ + (_%target178691178795%_ (let () (declare (not safe)) (##vector-ref - _%__splice184951184952%_ + _%__splice183966183967%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179678179782%_)) - (_%__match185142185143%_ - _%e179538180268%_ - _%hd179537180271%_ - _%tl179536180273%_ - _%e179657179724%_ - _%hd179656179727%_ - _%tl179655179729%_ - _%e179660179732%_ - _%hd179659179735%_ - _%tl179658179737%_ - _%e179663179740%_ - _%hd179662179743%_ - _%tl179661179745%_ - _%e179666179748%_ - _%hd179665179751%_ - _%tl179664179753%_ - _%e179669179756%_ - _%hd179668179759%_ - _%tl179667179761%_ - _%e179672179764%_ - _%hd179671179767%_ - _%tl179670179769%_ - _%e179675179772%_ - _%hd179674179775%_ - _%tl179673179777%_ - _%__splice184951184952%_ - _%target179676179780%_ - _%tl179678179782%_) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)) - (_%__kont184955184956%_)) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)) + _%tl178693178797%_)) + (_%__match184157184158%_ + _%e178553179283%_ + _%hd178552179286%_ + _%tl178551179288%_ + _%e178672178739%_ + _%hd178671178742%_ + _%tl178670178744%_ + _%e178675178747%_ + _%hd178674178750%_ + _%tl178673178752%_ + _%e178678178755%_ + _%hd178677178758%_ + _%tl178676178760%_ + _%e178681178763%_ + _%hd178680178766%_ + _%tl178679178768%_ + _%e178684178771%_ + _%hd178683178774%_ + _%tl178682178776%_ + _%e178687178779%_ + _%hd178686178782%_ + _%tl178685178784%_ + _%e178690178787%_ + _%hd178689178790%_ + _%tl178688178792%_ + _%__splice183966183967%_ + _%target178691178795%_ + _%tl178693178797%_) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)) + (_%__kont183970183971%_)) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)))) - (_%__kont184955184956%_)) - (_%__kont184955184956%_))))) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)))) + (_%__kont183970183971%_)) + (_%__kont183970183971%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont184955184956%_)))) - (_%__kont184955184956%_))))))) - (_%optimize-t__183878183879%_ - (lambda (_%expr179507%_ _%test179508%_ _%continue179509%_) - (let ((__tmp187067 (cons (cons _%test179508%_ '#t) '())) - (__tmp187066 - (lambda () (_%continue179509%_ _%expr179507%_)))) - (declare (not safe)) - (_%do-assert176514%_ __tmp187067 __tmp187066)))) - (_%optimize-t__0__183880183881%_ - (lambda (_%expr179515%_ _%test179516%_) - (let ((_%continue179518%_ _%optimize-e176525%_)) - (declare (not safe)) - (_%optimize-t__183878183879%_ - _%expr179515%_ - _%test179516%_ - _%continue179518%_)))) - (_%optimize-t176526%_ - (lambda _g187069_ - (let ((_g187068_ + (_%__kont183970183971%_)))) + (_%__kont183970183971%_))))))) + (_%optimize-t__182893182894%_ + (lambda (_%expr178522%_ _%test178523%_ _%continue178524%_) + (_%do-assert175529%_ + (cons (cons _%test178523%_ '#t) '()) + (lambda () (_%continue178524%_ _%expr178522%_))))) + (_%optimize-t__0__182895182896%_ + (lambda (_%expr178530%_ _%test178531%_) + (let ((_%continue178533%_ _%optimize-e175540%_)) + (_%optimize-t__182893182894%_ + _%expr178530%_ + _%test178531%_ + _%continue178533%_)))) + (_%optimize-t175541%_ + (lambda _g186050_ + (let ((_g186049_ (let () (declare (not safe)) - (##length _g187069_)))) - (cond ((let () (declare (not safe)) (##fx= _g187068_ 2)) - (apply (lambda (_%expr179515%_ _%test179516%_) - (let () - (declare (not safe)) - (_%optimize-t__0__183880183881%_ - _%expr179515%_ - _%test179516%_))) - _g187069_)) - ((let () (declare (not safe)) (##fx= _g187068_ 3)) - (apply (lambda (_%expr179520%_ - _%test179521%_ - _%continue179522%_) - (let () - (declare (not safe)) - (_%optimize-t__183878183879%_ - _%expr179520%_ - _%test179521%_ - _%continue179522%_))) - _g187069_)) + (##length _g186050_)))) + (cond ((let () (declare (not safe)) (##fx= _g186049_ 2)) + (apply _%optimize-t__0__182895182896%_ + _g186050_)) + ((let () (declare (not safe)) (##fx= _g186049_ 3)) + (apply _%optimize-t__182893182894%_ _g186050_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g187069_)))))) - (_%optimize-f__183882183883%_ - (lambda (_%expr178591%_ _%test178592%_) - (let ((__tmp187087 - (if _%test178592%_ - (cons (cons _%test178592%_ '#f) '()) - '())) - (__tmp187070 - (lambda () - (let* ((_%__stx185183185184%_ _%expr178591%_) - (_%g178600178773%_ - (lambda () - (let () + _g186050_)))))) + (_%optimize-f__182897182898%_ + (lambda (_%expr177606%_ _%test177607%_) + (_%do-assert175529%_ + (if _%test177607%_ + (cons (cons _%test177607%_ '#f) '()) + '()) + (lambda () + (let* ((_%__stx184198184199%_ _%expr177606%_) + (_%g177615177788%_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx184198184199%_))))) + (let ((_%__kont184200184201%_ + (lambda (_%L178376%_ _%L178377%_) + (let ((_%$e178397%_ + (_%lookup-block175548%_ + _%L178377%_))) + (if _%$e178397%_ + ((lambda (_%block178400%_) + (if (_%nonlinear-block?175550%_ + _%block178400%_) + _%expr177606%_ + (let* ((_%inline178409%_ + (_%inline-block175549%_ + _%block178400%_ + (let ((__tmp186051 + (lambda (_%g178401178404%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g178402178406%_) + (cons _%g178401178404%_ _%g178402178406%_)))) + (declare (not safe)) + (__foldr1 __tmp186051 '() _%L178376%_)))) + (_%__stx184160184161%_ _%inline178409%_) + (_%g178412178433%_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx184160184161%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%__kont184162184163%_ + (lambda (_%L178477%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%L178478%_ + _%L178479%_) + (let ((_%$e178501%_ (_%assert-e175543%_ _%L178479%_))) + (if (eq? '#t _%$e178501%_) + (if _%in-splice?175528%_ + (_%optimize-f__0__182899182900%_ _%L178478%_) + (_%optimize-e175540%_ _%L178478%_)) + (if (eq? '#f _%$e178501%_) + (_%optimize-f__0__182899182900%_ _%L178477%_) + _%expr177606%_))))) + (_%__kont184164184165%_ + (lambda () + (_%optimize-f__0__182899182900%_ _%inline178409%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%__stx184160184161%_)) + (let ((_%e178419178445%_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _%__stx184160184161%_)))) + (let ((_%tl178417178450%_ + (let () + (declare (not safe)) + (##cdr _%e178419178445%_))) + (_%hd178418178448%_ + (let () + (declare (not safe)) + (##car _%e178419178445%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _%hd178418178448%_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#if _%hd178418178448%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl178417178450%_)) + (let ((_%e178422178453%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl178417178450%_)))) + (let ((_%tl178420178458%_ + (let () + (declare (not safe)) + (##cdr _%e178422178453%_))) + (_%hd178421178456%_ + (let () + (declare (not safe)) + (##car _%e178422178453%_)))) + (if (let () (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx185183185184%_))))) - (let ((_%__kont185185185186%_ - (lambda (_%L179361%_ _%L179362%_) - (let ((_%$e179382%_ - (let () + (gx#stx-pair? _%tl178420178458%_)) + (let ((_%e178425178461%_ + (let () + (declare (not safe)) + (gx#stx-e + _%tl178420178458%_)))) + (let ((_%tl178423178466%_ + (let () + (declare (not safe)) + (##cdr _%e178425178461%_))) + (_%hd178424178464%_ + (let () + (declare (not safe)) + (##car _%e178425178461%_)))) + (if (let () (declare (not safe)) - (_%lookup-block176533%_ - _%L179362%_)))) - (if _%$e179382%_ - ((lambda (_%block179385%_) + (gx#stx-pair? + _%tl178423178466%_)) + (let ((_%e178428178469%_ + (let () + (declare (not safe)) + (gx#stx-e + _%tl178423178466%_)))) + (let ((_%tl178426178474%_ + (let () + (declare (not safe)) + (##cdr _%e178428178469%_))) + (_%hd178427178472%_ + (let () + (declare (not safe)) + (##car _%e178428178469%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _%tl178426178474%_)) + (_%__kont184162184163%_ + _%hd178427178472%_ + _%hd178424178464%_ + _%hd178421178456%_) + (_%__kont184164184165%_)))) + (_%__kont184164184165%_)))) + (_%__kont184164184165%_)))) + (_%__kont184164184165%_)) + (_%__kont184164184165%_)) + (_%__kont184164184165%_)))) + (_%__kont184164184165%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%$e178397%_) + _%expr177606%_)))) + (_%__kont184204184205%_ + (lambda (_%L178274%_ _%L178275%_ _%L178276%_) + (let ((_%$e178293%_ + (_%assert-e175543%_ _%L178276%_))) + (if (eq? '#t _%$e178293%_) + (if _%in-splice?175528%_ + (_%optimize-f__0__182899182900%_ + _%L178275%_) + (_%optimize-e175540%_ + _%L178275%_)) + (if (eq? '#f _%$e178293%_) + (_%optimize-f__0__182899182900%_ + _%L178274%_) + (let ((_%K178296%_ + (_%optimize-t__182893182894%_ + _%L178275%_ + _%L178276%_ + _%optimize-f175542%_)) + (_%E178297%_ + (_%optimize-f__182897182898%_ + _%L178274%_ + _%L178276%_))) + (if (equal? (gxc#apply-generate-runtime-repr + _%K178296%_) + (gxc#apply-generate-runtime-repr + _%E178297%_)) + _%K178296%_ + (cons '%#if + (cons _%L178276%_ + (cons _%K178296%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%E178297%_ '()))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont184206184207%_ + (lambda (_%L178204%_ _%L178205%_ _%L178206%_) + (let ((_%body178225%_ + (_%optimize-f__0__182899182900%_ + _%L178204%_))) + (cons '%#let-values + (cons (begin + (let () + (declare (not safe)) + (gx#syntax-check-splice-targets + _%L178205%_ + _%L178206%_)) + (let ((__tmp186052 + (lambda (_%g178226178230%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g178227178232%_ + _%g178228178234%_) + (cons (cons (cons _%g178227178232%_ '()) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#ref)) + (cons _%g178226178230%_ '())) + '())) + _%g178228178234%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (__foldr2 + __tmp186052 + '() + _%L178205%_ + _%L178206%_))) + (cons _%body178225%_ '())))))) + (_%__kont184210184211%_ + (lambda (_%L178072%_ _%L178073%_ _%L178074%_) + (_%bind-e__182901182902%_ + (map cons + (let ((__tmp186053 + (lambda (_%g178092178095%_ + _%g178093178097%_) + (cons _%g178092178095%_ + _%g178093178097%_)))) + (declare (not safe)) + (__foldr1 + __tmp186053 + '() + _%L178074%_)) + (let ((__tmp186054 + (lambda (_%g178099178102%_ + _%g178100178104%_) + (cons _%g178099178102%_ + _%g178100178104%_)))) + (declare (not safe)) + (__foldr1 + __tmp186054 + '() + _%L178073%_))) + _%L178072%_ + _%optimize-f175542%_))) + (_%__kont184214184215%_ + (lambda (_%L177928%_ + _%L177929%_ + _%L177930%_ + _%L177931%_ + _%L177932%_) + (_%do-splice!175539%_ + (lambda () + (let ((_%expr177975%_ + (_%optimize-f__0__182899182900%_ + _%L177930%_))) + (cons '%#letrec-values + (cons (cons (cons (cons _%L177932%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '()) + (cons (cons '%#lambda + (cons (let ((__tmp186055 + (lambda (_%g177976177979%_ + _%g177977177981%_) + (cons _%g177976177979%_ + _%g177977177981%_)))) + (declare (not safe)) + (__foldr1 + __tmp186055 + '() + _%L177931%_)) + (cons _%expr177975%_ '()))) + '())) + (let ((__tmp186056 + (lambda (_%g177983177986%_ _%g177984177988%_) + (cons _%g177983177986%_ _%g177984177988%_)))) + (declare (not safe)) + (__foldr1 __tmp186056 '() _%L177929%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%L177928%_ + '())))))))) + (_%__kont184220184221%_ + (lambda () _%expr177606%_))) + (let* ((_%__match184407184408%_ + (lambda (_%e177738177800%_ + _%hd177737177803%_ + _%tl177736177805%_ + _%e177741177808%_ + _%hd177740177811%_ + _%tl177739177813%_ + _%e177744177816%_ + _%hd177743177819%_ + _%tl177742177821%_ + _%e177747177824%_ + _%hd177746177827%_ + _%tl177745177829%_ + _%e177750177832%_ + _%hd177749177835%_ + _%tl177748177837%_ + _%e177753177840%_ + _%hd177752177843%_ + _%tl177751177845%_ + _%e177756177848%_ + _%hd177755177851%_ + _%tl177754177853%_ + _%e177759177856%_ + _%hd177758177859%_ + _%tl177757177861%_ + _%__splice184216184217%_ + _%target177760177864%_ + _%tl177762177866%_) + (letrec ((_%loop177763177869%_ + (lambda (_%hd177761177872%_ + _%id177767177874%_) (if (let () (declare (not safe)) - (_%nonlinear-block?176535%_ - _%block179385%_)) - _%expr178591%_ - (let* ((_%inline179394%_ - (let ((__tmp187071 + (gx#stx-pair? + _%hd177761177872%_)) + (let ((_%e177764177877%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp187072 - (lambda (_%g179386179389%_ - _%g179387179391%_) - (cons _%g179386179389%_ - _%g179387179391%_)))) + (not safe)) + (gx#stx-e _%hd177761177872%_)))) + (let ((_%lp-tl177766177882%_ + (let () (declare (not safe)) (##cdr _%e177764177877%_))) + (_%lp-hd177765177880%_ + (let () + (declare (not safe)) + (##car _%e177764177877%_)))) + (_%loop177763177869%_ + _%lp-tl177766177882%_ + (cons _%lp-hd177765177880%_ _%id177767177874%_)))) + (let ((_%id177768177885%_ (reverse _%id177767177874%_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl177757177861%_)) + (let ((_%e177771177888%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl177757177861%_)))) + (let ((_%tl177769177893%_ + (let () (declare (not safe)) - (__foldr1 __tmp187072 '() _%L179361%_)))) - (declare (not safe)) - (_%inline-block176534%_ _%block179385%_ __tmp187071))) - (_%__stx185145185146%_ _%inline179394%_) - (_%g179397179418%_ - (lambda () - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx185145185146%_))))) - (let ((_%__kont185147185148%_ - (lambda (_%L179462%_ _%L179463%_ _%L179464%_) - (let ((_%$e179486%_ - (let () - (declare (not safe)) - (_%assert-e176528%_ _%L179464%_)))) - (if (eq? '#t _%$e179486%_) - (if _%in-splice?176513%_ - (let () - (declare (not safe)) - (_%optimize-f__0__183884183885%_ - _%L179463%_)) - (let () - (declare (not safe)) - (_%optimize-e176525%_ _%L179463%_))) - (if (eq? '#f _%$e179486%_) - (let () - (declare (not safe)) - (_%optimize-f__0__183884183885%_ - _%L179462%_)) - _%expr178591%_))))) - (_%__kont185149185150%_ - (lambda () - (let () - (declare (not safe)) - (_%optimize-f__0__183884183885%_ - _%inline179394%_))))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%__stx185145185146%_)) - (let ((_%e179404179430%_ + (##cdr _%e177771177888%_))) + (_%hd177770177891%_ (let () (declare (not safe)) - (gx#stx-e _%__stx185145185146%_)))) - (let ((_%tl179402179435%_ - (let () - (declare (not safe)) - (##cdr _%e179404179430%_))) - (_%hd179403179433%_ - (let () - (declare (not safe)) - (##car _%e179404179430%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? _%hd179403179433%_)) - (if (let () - (declare (not safe)) - (gx#stx-eq? '%#if _%hd179403179433%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl179402179435%_)) - (let ((_%e179407179438%_ + (##car _%e177771177888%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl177769177893%_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl177751177845%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _%tl177742177821%_)) + (let ((_%__splice184218184219%_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _%tl177742177821%_ + '0)))) + (let ((_%tl177774177898%_ (let () (declare (not safe)) - (gx#stx-e _%tl179402179435%_)))) - (let ((_%tl179405179443%_ - (let () - (declare (not safe)) - (##cdr _%e179407179438%_))) - (_%hd179406179441%_ - (let () - (declare (not safe)) - (##car _%e179407179438%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl179405179443%_)) - (let ((_%e179410179446%_ - (let () - (declare (not safe)) - (gx#stx-e - _%tl179405179443%_)))) - (let ((_%tl179408179451%_ - (let () - (declare (not safe)) - (##cdr _%e179410179446%_))) - (_%hd179409179449%_ - (let () - (declare (not safe)) - (##car _%e179410179446%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl179408179451%_)) - (let ((_%e179413179454%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gx#stx-e _%tl179408179451%_)))) - (let ((_%tl179411179459%_ - (let () (declare (not safe)) (##cdr _%e179413179454%_))) - (_%hd179412179457%_ - (let () - (declare (not safe)) - (##car _%e179413179454%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl179411179459%_)) - (_%__kont185147185148%_ - _%hd179412179457%_ - _%hd179409179449%_ - _%hd179406179441%_) - (_%__kont185149185150%_)))) - (_%__kont185149185150%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185149185150%_)))) - (_%__kont185149185150%_)) - (_%__kont185149185150%_)) - (_%__kont185149185150%_)))) - (_%__kont185149185150%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e179382%_) - (let () _%expr178591%_))))) - (_%__kont185189185190%_ - (lambda (_%L179259%_ - _%L179260%_ - _%L179261%_) - (let ((_%$e179278%_ - (let () - (declare (not safe)) - (_%assert-e176528%_ - _%L179261%_)))) - (if (eq? '#t _%$e179278%_) - (if _%in-splice?176513%_ - (let () - (declare (not safe)) - (_%optimize-f__0__183884183885%_ - _%L179260%_)) - (let () - (declare (not safe)) - (_%optimize-e176525%_ - _%L179260%_))) - (if (eq? '#f _%$e179278%_) - (let () - (declare (not safe)) - (_%optimize-f__0__183884183885%_ - _%L179259%_)) - (let ((_%K179281%_ - (let () - (declare - (not safe)) - (_%optimize-t__183878183879%_ - _%L179260%_ - _%L179261%_ - _%optimize-f176527%_))) - (_%E179282%_ - (let () - (declare - (not safe)) - (_%optimize-f__183882183883%_ - _%L179259%_ - _%L179261%_)))) - (if (equal? (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gxc#apply-generate-runtime-repr _%K179281%_)) - (let () - (declare (not safe)) - (gxc#apply-generate-runtime-repr _%E179282%_))) - _%K179281%_ - (cons '%#if - (cons _%L179261%_ - (cons _%K179281%_ (cons _%E179282%_ '()))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185191185192%_ - (lambda (_%L179189%_ - _%L179190%_ - _%L179191%_) - (let ((_%body179210%_ - (let () - (declare (not safe)) - (_%optimize-f__0__183884183885%_ - _%L179189%_)))) - (cons '%#let-values - (cons (begin - (let () - (declare (not safe)) - (gx#syntax-check-splice-targets - _%L179190%_ - _%L179191%_)) - (let ((__tmp187073 - (lambda (_%g179211179215%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g179212179217%_ - _%g179213179219%_) - (cons (cons (cons _%g179212179217%_ '()) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - '%#ref)) - (cons _%g179211179215%_ '())) - '())) - _%g179213179219%_)))) - (declare (not safe)) - (__foldr2 __tmp187073 '() _%L179190%_ _%L179191%_))) - (cons _%body179210%_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185195185196%_ - (lambda (_%L179057%_ - _%L179058%_ - _%L179059%_) - (let ((__tmp187074 - (map cons - (let ((__tmp187075 - (lambda (_%g179077179080%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g179078179082%_) - (cons _%g179077179080%_ _%g179078179082%_)))) - (declare (not safe)) - (__foldr1 __tmp187075 '() _%L179059%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp187076 - (lambda (_%g179084179087%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g179085179089%_) - (cons _%g179084179087%_ _%g179085179089%_)))) - (declare (not safe)) - (__foldr1 __tmp187076 '() _%L179058%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%bind-e__183886183887%_ - __tmp187074 - _%L179057%_ - _%optimize-f176527%_)))) - (_%__kont185199185200%_ - (lambda (_%L178913%_ - _%L178914%_ - _%L178915%_ - _%L178916%_ - _%L178917%_) - (let ((__tmp187077 - (lambda () - (let ((_%expr178960%_ - (let () - (declare (not safe)) - (_%optimize-f__0__183884183885%_ - _%L178915%_)))) - (cons '%#letrec-values - (cons (cons (cons (cons _%L178917%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (cons '%#lambda - (cons (let ((__tmp187078 - (lambda (_%g178961178964%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g178962178966%_) - (cons _%g178961178964%_ _%g178962178966%_)))) - (declare (not safe)) - (__foldr1 __tmp187078 '() _%L178916%_)) - (cons _%expr178960%_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - (let ((__tmp187079 - (lambda (_%g178968178971%_ - _%g178969178973%_) - (cons _%g178968178971%_ - _%g178969178973%_)))) - (declare (not safe)) - (__foldr1 __tmp187079 '() _%L178914%_))) - (cons _%L178913%_ '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%do-splice!176524%_ - __tmp187077)))) - (_%__kont185205185206%_ - (lambda () _%expr178591%_))) - (let* ((_%__match185392185393%_ - (lambda (_%e178723178785%_ - _%hd178722178788%_ - _%tl178721178790%_ - _%e178726178793%_ - _%hd178725178796%_ - _%tl178724178798%_ - _%e178729178801%_ - _%hd178728178804%_ - _%tl178727178806%_ - _%e178732178809%_ - _%hd178731178812%_ - _%tl178730178814%_ - _%e178735178817%_ - _%hd178734178820%_ - _%tl178733178822%_ - _%e178738178825%_ - _%hd178737178828%_ - _%tl178736178830%_ - _%e178741178833%_ - _%hd178740178836%_ - _%tl178739178838%_ - _%e178744178841%_ - _%hd178743178844%_ - _%tl178742178846%_ - _%__splice185201185202%_ - _%target178745178849%_ - _%tl178747178851%_) - (letrec ((_%loop178748178854%_ - (lambda (_%hd178746178857%_ - _%id178752178859%_) + (##vector-ref + _%__splice184218184219%_ + '1))) + (_%target177772177896%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice184218184219%_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _%tl177774177898%_)) + (letrec ((_%loop177775177901%_ + (lambda (_%hd177773177904%_ + _%bind177779177906%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178746178857%_)) - (let ((_%e178749178862%_ + _%hd177773177904%_)) + (let ((_%e177776177909%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd178746178857%_)))) - (let ((_%lp-tl178751178867%_ + (gx#stx-e _%hd177773177904%_)))) + (let ((_%lp-tl177778177914%_ (let () (declare (not safe)) - (##cdr _%e178749178862%_))) - (_%lp-hd178750178865%_ + (##cdr _%e177776177909%_))) + (_%lp-hd177777177912%_ (let () (declare (not safe)) - (##car _%e178749178862%_)))) - (let ((__tmp187080 - (cons _%lp-hd178750178865%_ - _%id178752178859%_))) - (declare (not safe)) - (_%loop178748178854%_ - _%lp-tl178751178867%_ - __tmp187080)))) - (let ((_%id178753178870%_ (reverse _%id178752178859%_))) + (##car _%e177776177909%_)))) + (_%loop177775177901%_ + _%lp-tl177778177914%_ + (cons _%lp-hd177777177912%_ _%bind177779177906%_)))) + (let ((_%bind177780177917%_ + (reverse _%bind177779177906%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178742178846%_)) - (let ((_%e178756178873%_ + (gx#stx-pair? _%tl177739177813%_)) + (let ((_%e177783177920%_ (let () (declare (not safe)) - (gx#stx-e _%tl178742178846%_)))) - (let ((_%tl178754178878%_ + (gx#stx-e _%tl177739177813%_)))) + (let ((_%tl177781177925%_ (let () (declare (not safe)) - (##cdr _%e178756178873%_))) - (_%hd178755178876%_ + (##cdr _%e177783177920%_))) + (_%hd177782177923%_ (let () (declare (not safe)) - (##car _%e178756178873%_)))) + (##car _%e177783177920%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178754178878%_)) + (gx#stx-null? _%tl177781177925%_)) + (_%__kont184214184215%_ + _%hd177782177923%_ + _%bind177780177917%_ + _%hd177770177891%_ + _%id177768177885%_ + _%hd177749177835%_) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop177775177901%_ + _%target177772177896%_ + '())) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)) + (_%__kont184220184221%_)) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop177763177869%_ + _%target177760177864%_ + '())))) + (_%__match184341184342%_ + (lambda (_%e177704177996%_ + _%hd177703177999%_ + _%tl177702178001%_ + _%e177707178004%_ + _%hd177706178007%_ + _%tl177705178009%_ + _%__splice184212184213%_ + _%target177708178012%_ + _%tl177710178014%_) + (letrec ((_%loop177711178017%_ + (lambda (_%hd177709178020%_ + _%expr177715178022%_ + _%id177716178024%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%hd177709178020%_)) + (let ((_%e177712178027%_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _%hd177709178020%_)))) + (let ((_%lp-tl177714178032%_ + (let () (declare (not safe)) (##cdr _%e177712178027%_))) + (_%lp-hd177713178030%_ + (let () + (declare (not safe)) + (##car _%e177712178027%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%lp-hd177713178030%_)) + (let ((_%e177721178035%_ + (let () + (declare (not safe)) + (gx#stx-e _%lp-hd177713178030%_)))) + (let ((_%tl177719178040%_ + (let () + (declare (not safe)) + (##cdr _%e177721178035%_))) + (_%hd177720178038%_ + (let () + (declare (not safe)) + (##car _%e177721178035%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd177720178038%_)) + (let ((_%e177724178043%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd177720178038%_)))) + (let ((_%tl177722178048%_ + (let () + (declare (not safe)) + (##cdr _%e177724178043%_))) + (_%hd177723178046%_ + (let () + (declare (not safe)) + (##car _%e177724178043%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178736178830%_)) + (gx#stx-null? _%tl177722178048%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? - _%tl178727178806%_)) - (let ((_%__splice185203185204%_ + (gx#stx-pair? _%tl177719178040%_)) + (let ((_%e177727178051%_ (let () (declare (not safe)) - (gx#syntax-split-splice - _%tl178727178806%_ - '0)))) - (let ((_%tl178759178883%_ + (gx#stx-e + _%tl177719178040%_)))) + (let ((_%tl177725178056%_ (let () (declare (not safe)) - (##vector-ref - _%__splice185203185204%_ - '1))) - (_%target178757178881%_ + (##cdr _%e177727178051%_))) + (_%hd177726178054%_ (let () (declare (not safe)) - (##vector-ref - _%__splice185203185204%_ - '0)))) + (##car _%e177727178051%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178759178883%_)) - (letrec ((_%loop178760178886%_ - (lambda (_%hd178758178889%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind178764178891%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd178758178889%_)) - (let ((_%e178761178894%_ - (let () - (declare (not safe)) - (gx#stx-e _%hd178758178889%_)))) - (let ((_%lp-tl178763178899%_ - (let () - (declare (not safe)) - (##cdr _%e178761178894%_))) - (_%lp-hd178762178897%_ - (let () - (declare (not safe)) - (##car _%e178761178894%_)))) - (let ((__tmp187081 - (cons _%lp-hd178762178897%_ - _%bind178764178891%_))) - (declare (not safe)) - (_%loop178760178886%_ - _%lp-tl178763178899%_ - __tmp187081)))) - (let ((_%bind178765178902%_ - (reverse _%bind178764178891%_))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl178724178798%_)) - (let ((_%e178768178905%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl178724178798%_)))) - (let ((_%tl178766178910%_ - (let () - (declare (not safe)) - (##cdr _%e178768178905%_))) - (_%hd178767178908%_ - (let () - (declare (not safe)) - (##car _%e178768178905%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl178766178910%_)) - (_%__kont185199185200%_ - _%hd178767178908%_ - _%bind178765178902%_ - _%hd178755178876%_ - _%id178753178870%_ - _%hd178734178820%_) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop178760178886%_ - _%target178757178881%_ - '()))) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)) - (_%__kont185205185206%_)) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop178748178854%_ - _%target178745178849%_ - '()))))) - (_%__match185326185327%_ - (lambda (_%e178689178981%_ - _%hd178688178984%_ - _%tl178687178986%_ - _%e178692178989%_ - _%hd178691178992%_ - _%tl178690178994%_ - _%__splice185197185198%_ - _%target178693178997%_ - _%tl178695178999%_) - (letrec ((_%loop178696179002%_ - (lambda (_%hd178694179005%_ - _%expr178700179007%_ - _%id178701179009%_) - (if (let () - (declare - (not safe)) - (gx#stx-pair? - _%hd178694179005%_)) - (let ((_%e178697179012%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%tl177725178056%_)) + (_%loop177711178017%_ + _%lp-tl177714178032%_ + (cons _%hd177726178054%_ + _%expr177715178022%_) + (cons _%hd177723178046%_ + _%id177716178024%_)) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)))) + (let ((_%id177718178061%_ (reverse _%id177716178024%_)) + (_%expr177717178059%_ (reverse _%expr177715178022%_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl177705178009%_)) + (let ((_%e177730178064%_ (let () (declare (not safe)) - (gx#stx-e _%hd178694179005%_)))) - (let ((_%lp-tl178699179017%_ + (gx#stx-e _%tl177705178009%_)))) + (let ((_%tl177728178069%_ (let () (declare (not safe)) - (##cdr _%e178697179012%_))) - (_%lp-hd178698179015%_ + (##cdr _%e177730178064%_))) + (_%hd177729178067%_ (let () (declare (not safe)) - (##car _%e178697179012%_)))) + (##car _%e177730178064%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd178698179015%_)) - (let ((_%e178706179020%_ - (let () - (declare (not safe)) - (gx#stx-e _%lp-hd178698179015%_)))) - (let ((_%tl178704179025%_ - (let () - (declare (not safe)) - (##cdr _%e178706179020%_))) - (_%hd178705179023%_ + (gx#stx-null? _%tl177728178069%_)) + (_%__kont184210184211%_ + _%hd177729178067%_ + _%expr177717178059%_ + _%id177718178061%_) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop177711178017%_ + _%target177708178012%_ + '() + '())))) + (_%__match184317184318%_ + (lambda (_%e177666178112%_ + _%hd177665178115%_ + _%tl177664178117%_ + _%e177669178120%_ + _%hd177668178123%_ + _%tl177667178125%_ + _%__splice184208184209%_ + _%target177670178128%_ + _%tl177672178130%_) + (letrec ((_%loop177673178133%_ + (lambda (_%hd177671178136%_ + _%xid177677178138%_ + _%id177678178140%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%hd177671178136%_)) + (let ((_%e177674178143%_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _%hd177671178136%_)))) + (let ((_%lp-tl177676178148%_ + (let () (declare (not safe)) (##cdr _%e177674178143%_))) + (_%lp-hd177675178146%_ + (let () + (declare (not safe)) + (##car _%e177674178143%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%lp-hd177675178146%_)) + (let ((_%e177683178151%_ + (let () + (declare (not safe)) + (gx#stx-e _%lp-hd177675178146%_)))) + (let ((_%tl177681178156%_ + (let () + (declare (not safe)) + (##cdr _%e177683178151%_))) + (_%hd177682178154%_ + (let () + (declare (not safe)) + (##car _%e177683178151%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd177682178154%_)) + (let ((_%e177686178159%_ (let () (declare (not safe)) - (##car _%e178706179020%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd178705179023%_)) - (let ((_%e178709179028%_ - (let () - (declare (not safe)) - (gx#stx-e _%hd178705179023%_)))) - (let ((_%tl178707179033%_ - (let () - (declare (not safe)) - (##cdr _%e178709179028%_))) - (_%hd178708179031%_ - (let () - (declare (not safe)) - (##car _%e178709179028%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl178707179033%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl178704179025%_)) - (let ((_%e178712179036%_ - (let () - (declare (not safe)) - (gx#stx-e - _%tl178704179025%_)))) - (let ((_%tl178710179041%_ - (let () - (declare (not safe)) - (##cdr _%e178712179036%_))) - (_%hd178711179039%_ + (gx#stx-e _%hd177682178154%_)))) + (let ((_%tl177684178164%_ + (let () + (declare (not safe)) + (##cdr _%e177686178159%_))) + (_%hd177685178162%_ + (let () + (declare (not safe)) + (##car _%e177686178159%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl177684178164%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl177681178156%_)) + (let ((_%e177689178167%_ + (let () + (declare (not safe)) + (gx#stx-e + _%tl177681178156%_)))) + (let ((_%tl177687178172%_ + (let () + (declare (not safe)) + (##cdr _%e177689178167%_))) + (_%hd177688178170%_ + (let () + (declare (not safe)) + (##car _%e177689178167%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%hd177688178170%_)) + (let ((_%e177692178175%_ (let () (declare (not safe)) - (##car _%e178712179036%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl178710179041%_)) - (let ((__tmp187083 - (cons _%hd178711179039%_ + (gx#stx-e + _%hd177688178170%_)))) + (let ((_%tl177690178180%_ + (let () + (declare + (not safe)) + (##cdr _%e177692178175%_))) + (_%hd177691178178%_ + (let () + (declare + (not safe)) + (##car _%e177692178175%_)))) + (if (let () + (declare + (not safe)) + (gx#identifier? + _%hd177691178178%_)) + (if (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr178700179007%_)) - (__tmp187082 - (cons _%hd178708179031%_ _%id178701179009%_))) - (declare (not safe)) - (_%loop178696179002%_ - _%lp-tl178699179017%_ - __tmp187083 - __tmp187082)) - (_%__kont185205185206%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185205185206%_)) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)))) - (let ((_%id178703179046%_ (reverse _%id178701179009%_)) - (_%expr178702179044%_ - (reverse _%expr178700179007%_))) + (not safe)) + (gx#stx-eq? '%#ref _%hd177691178178%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178690178994%_)) - (let ((_%e178715179049%_ + (gx#stx-pair? _%tl177690178180%_)) + (let ((_%e177695178183%_ (let () (declare (not safe)) - (gx#stx-e _%tl178690178994%_)))) - (let ((_%tl178713179054%_ + (gx#stx-e _%tl177690178180%_)))) + (let ((_%tl177693178188%_ (let () (declare (not safe)) - (##cdr _%e178715179049%_))) - (_%hd178714179052%_ + (##cdr _%e177695178183%_))) + (_%hd177694178186%_ (let () (declare (not safe)) - (##car _%e178715179049%_)))) + (##car _%e177695178183%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178713179054%_)) - (_%__kont185195185196%_ - _%hd178714179052%_ - _%expr178702179044%_ - _%id178703179046%_) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_))))))) + (gx#stx-null? _%tl177693178188%_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl177687178172%_)) + (_%loop177673178133%_ + _%lp-tl177676178148%_ + (cons _%hd177694178186%_ + _%xid177677178138%_) + (cons _%hd177685178162%_ + _%id177678178140%_)) + (_%__match184341184342%_ + _%e177666178112%_ + _%hd177665178115%_ + _%tl177664178117%_ + _%e177669178120%_ + _%hd177668178123%_ + _%tl177667178125%_ + _%__splice184208184209%_ + _%target177670178128%_ + _%tl177672178130%_)) + (_%__match184341184342%_ + _%e177666178112%_ + _%hd177665178115%_ + _%tl177664178117%_ + _%e177669178120%_ + _%hd177668178123%_ + _%tl177667178125%_ + _%__splice184208184209%_ + _%target177670178128%_ + _%tl177672178130%_)))) + (_%__match184341184342%_ + _%e177666178112%_ + _%hd177665178115%_ + _%tl177664178117%_ + _%e177669178120%_ + _%hd177668178123%_ + _%tl177667178125%_ + _%__splice184208184209%_ + _%target177670178128%_ + _%tl177672178130%_)) + (_%__match184341184342%_ + _%e177666178112%_ + _%hd177665178115%_ + _%tl177664178117%_ + _%e177669178120%_ + _%hd177668178123%_ + _%tl177667178125%_ + _%__splice184208184209%_ + _%target177670178128%_ + _%tl177672178130%_)) + (_%__match184341184342%_ + _%e177666178112%_ + _%hd177665178115%_ + _%tl177664178117%_ + _%e177669178120%_ + _%hd177668178123%_ + _%tl177667178125%_ + _%__splice184208184209%_ + _%target177670178128%_ + _%tl177672178130%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop178696179002%_ - _%target178693178997%_ - '() - '()))))) - (_%__match185302185303%_ - (lambda (_%e178651179097%_ - _%hd178650179100%_ - _%tl178649179102%_ - _%e178654179105%_ - _%hd178653179108%_ - _%tl178652179110%_ - _%__splice185193185194%_ - _%target178655179113%_ - _%tl178657179115%_) - (letrec ((_%loop178658179118%_ - (lambda (_%hd178656179121%_ - _%xid178662179123%_ - _%id178663179125%_) - (if (let () - (declare - (not safe)) - (gx#stx-pair? - _%hd178656179121%_)) - (let ((_%e178659179128%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (_%__match184341184342%_ + _%e177666178112%_ + _%hd177665178115%_ + _%tl177664178117%_ + _%e177669178120%_ + _%hd177668178123%_ + _%tl177667178125%_ + _%__splice184208184209%_ + _%target177670178128%_ + _%tl177672178130%_)))) + (_%__match184341184342%_ + _%e177666178112%_ + _%hd177665178115%_ + _%tl177664178117%_ + _%e177669178120%_ + _%hd177668178123%_ + _%tl177667178125%_ + _%__splice184208184209%_ + _%target177670178128%_ + _%tl177672178130%_)) + (_%__match184341184342%_ + _%e177666178112%_ + _%hd177665178115%_ + _%tl177664178117%_ + _%e177669178120%_ + _%hd177668178123%_ + _%tl177667178125%_ + _%__splice184208184209%_ + _%target177670178128%_ + _%tl177672178130%_)))) + (_%__match184341184342%_ + _%e177666178112%_ + _%hd177665178115%_ + _%tl177664178117%_ + _%e177669178120%_ + _%hd177668178123%_ + _%tl177667178125%_ + _%__splice184208184209%_ + _%target177670178128%_ + _%tl177672178130%_)))) + (_%__match184341184342%_ + _%e177666178112%_ + _%hd177665178115%_ + _%tl177664178117%_ + _%e177669178120%_ + _%hd177668178123%_ + _%tl177667178125%_ + _%__splice184208184209%_ + _%target177670178128%_ + _%tl177672178130%_)))) + (let ((_%id177680178193%_ (reverse _%id177678178140%_)) + (_%xid177679178191%_ (reverse _%xid177677178138%_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl177667178125%_)) + (let ((_%e177698178196%_ (let () (declare (not safe)) - (gx#stx-e _%hd178656179121%_)))) - (let ((_%lp-tl178661179133%_ + (gx#stx-e _%tl177667178125%_)))) + (let ((_%tl177696178201%_ (let () (declare (not safe)) - (##cdr _%e178659179128%_))) - (_%lp-hd178660179131%_ + (##cdr _%e177698178196%_))) + (_%hd177697178199%_ (let () (declare (not safe)) - (##car _%e178659179128%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%lp-hd178660179131%_)) - (let ((_%e178668179136%_ - (let () - (declare (not safe)) - (gx#stx-e _%lp-hd178660179131%_)))) - (let ((_%tl178666179141%_ - (let () - (declare (not safe)) - (##cdr _%e178668179136%_))) - (_%hd178667179139%_ - (let () - (declare (not safe)) - (##car _%e178668179136%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd178667179139%_)) - (let ((_%e178671179144%_ - (let () - (declare (not safe)) - (gx#stx-e _%hd178667179139%_)))) - (let ((_%tl178669179149%_ - (let () - (declare (not safe)) - (##cdr _%e178671179144%_))) - (_%hd178670179147%_ - (let () - (declare (not safe)) - (##car _%e178671179144%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl178669179149%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl178666179141%_)) - (let ((_%e178674179152%_ - (let () - (declare (not safe)) - (gx#stx-e - _%tl178666179141%_)))) - (let ((_%tl178672179157%_ - (let () - (declare (not safe)) - (##cdr _%e178674179152%_))) - (_%hd178673179155%_ - (let () - (declare (not safe)) - (##car _%e178674179152%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%hd178673179155%_)) - (let ((_%e178677179160%_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#stx-e _%hd178673179155%_)))) - (let ((_%tl178675179165%_ - (let () - (declare (not safe)) - (##cdr _%e178677179160%_))) - (_%hd178676179163%_ - (let () - (declare (not safe)) - (##car _%e178677179160%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? _%hd178676179163%_)) + (##car _%e177698178196%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd178676179163%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl178675179165%_)) - (let ((_%e178680179168%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl178675179165%_)))) - (let ((_%tl178678179173%_ - (let () - (declare (not safe)) - (##cdr _%e178680179168%_))) - (_%hd178679179171%_ - (let () - (declare (not safe)) - (##car _%e178680179168%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl178678179173%_)) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl178672179157%_)) - (let ((__tmp187085 - (cons _%hd178679179171%_ - _%xid178662179123%_)) - (__tmp187084 - (cons _%hd178670179147%_ - _%id178663179125%_))) - (declare (not safe)) - (_%loop178658179118%_ - _%lp-tl178661179133%_ - __tmp187085 - __tmp187084)) - (_%__match185326185327%_ - _%e178651179097%_ - _%hd178650179100%_ - _%tl178649179102%_ - _%e178654179105%_ - _%hd178653179108%_ - _%tl178652179110%_ - _%__splice185193185194%_ - _%target178655179113%_ - _%tl178657179115%_)) - (_%__match185326185327%_ - _%e178651179097%_ - _%hd178650179100%_ - _%tl178649179102%_ - _%e178654179105%_ - _%hd178653179108%_ - _%tl178652179110%_ - _%__splice185193185194%_ - _%target178655179113%_ - _%tl178657179115%_)))) - (_%__match185326185327%_ - _%e178651179097%_ - _%hd178650179100%_ - _%tl178649179102%_ - _%e178654179105%_ - _%hd178653179108%_ - _%tl178652179110%_ - _%__splice185193185194%_ - _%target178655179113%_ - _%tl178657179115%_)) - (_%__match185326185327%_ - _%e178651179097%_ - _%hd178650179100%_ - _%tl178649179102%_ - _%e178654179105%_ - _%hd178653179108%_ - _%tl178652179110%_ - _%__splice185193185194%_ - _%target178655179113%_ - _%tl178657179115%_)) - (_%__match185326185327%_ - _%e178651179097%_ - _%hd178650179100%_ - _%tl178649179102%_ - _%e178654179105%_ - _%hd178653179108%_ - _%tl178652179110%_ - _%__splice185193185194%_ - _%target178655179113%_ - _%tl178657179115%_)))) - (_%__match185326185327%_ - _%e178651179097%_ - _%hd178650179100%_ - _%tl178649179102%_ - _%e178654179105%_ - _%hd178653179108%_ - _%tl178652179110%_ - _%__splice185193185194%_ - _%target178655179113%_ - _%tl178657179115%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match185326185327%_ - _%e178651179097%_ - _%hd178650179100%_ - _%tl178649179102%_ - _%e178654179105%_ - _%hd178653179108%_ - _%tl178652179110%_ - _%__splice185193185194%_ - _%target178655179113%_ - _%tl178657179115%_)) - (_%__match185326185327%_ - _%e178651179097%_ - _%hd178650179100%_ - _%tl178649179102%_ - _%e178654179105%_ - _%hd178653179108%_ - _%tl178652179110%_ - _%__splice185193185194%_ - _%target178655179113%_ - _%tl178657179115%_)))) - (_%__match185326185327%_ - _%e178651179097%_ - _%hd178650179100%_ - _%tl178649179102%_ - _%e178654179105%_ - _%hd178653179108%_ - _%tl178652179110%_ - _%__splice185193185194%_ - _%target178655179113%_ - _%tl178657179115%_)))) - (_%__match185326185327%_ - _%e178651179097%_ - _%hd178650179100%_ - _%tl178649179102%_ - _%e178654179105%_ - _%hd178653179108%_ - _%tl178652179110%_ - _%__splice185193185194%_ - _%target178655179113%_ - _%tl178657179115%_)))) - (let ((_%id178665179178%_ (reverse _%id178663179125%_)) - (_%xid178664179176%_ (reverse _%xid178662179123%_))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl178652179110%_)) - (let ((_%e178683179181%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl178652179110%_)))) - (let ((_%tl178681179186%_ - (let () - (declare (not safe)) - (##cdr _%e178683179181%_))) - (_%hd178682179184%_ - (let () - (declare (not safe)) - (##car _%e178683179181%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl178681179186%_)) - (_%__kont185191185192%_ - _%hd178682179184%_ - _%xid178664179176%_ - _%id178665179178%_) - (_%__match185326185327%_ - _%e178651179097%_ - _%hd178650179100%_ - _%tl178649179102%_ - _%e178654179105%_ - _%hd178653179108%_ - _%tl178652179110%_ - _%__splice185193185194%_ - _%target178655179113%_ - _%tl178657179115%_)))) - (_%__match185326185327%_ - _%e178651179097%_ - _%hd178650179100%_ - _%tl178649179102%_ - _%e178654179105%_ - _%hd178653179108%_ - _%tl178652179110%_ - _%__splice185193185194%_ - _%target178655179113%_ - _%tl178657179115%_))))))) + (gx#stx-null? _%tl177696178201%_)) + (_%__kont184206184207%_ + _%hd177697178199%_ + _%xid177679178191%_ + _%id177680178193%_) + (_%__match184341184342%_ + _%e177666178112%_ + _%hd177665178115%_ + _%tl177664178117%_ + _%e177669178120%_ + _%hd177668178123%_ + _%tl177667178125%_ + _%__splice184208184209%_ + _%target177670178128%_ + _%tl177672178130%_)))) + (_%__match184341184342%_ + _%e177666178112%_ + _%hd177665178115%_ + _%tl177664178117%_ + _%e177669178120%_ + _%hd177668178123%_ + _%tl177667178125%_ + _%__splice184208184209%_ + _%target177670178128%_ + _%tl177672178130%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop178658179118%_ - _%target178655179113%_ - '() - '()))))) - (_%__match185248185249%_ - (lambda (_%e178606179289%_ - _%hd178605179292%_ - _%tl178604179294%_ - _%e178609179297%_ - _%hd178608179300%_ - _%tl178607179302%_ - _%e178612179305%_ - _%hd178611179308%_ - _%tl178610179310%_ - _%e178615179313%_ - _%hd178614179316%_ - _%tl178613179318%_ - _%__splice185187185188%_ - _%target178616179321%_ - _%tl178618179323%_) - (letrec ((_%loop178619179326%_ - (lambda (_%hd178617179329%_ - _%id178623179331%_) - (if (let () - (declare - (not safe)) - (gx#stx-pair? - _%hd178617179329%_)) - (let ((_%e178620179334%_ + (_%loop177673178133%_ + _%target177670178128%_ + '() + '())))) + (_%__match184263184264%_ + (lambda (_%e177621178304%_ + _%hd177620178307%_ + _%tl177619178309%_ + _%e177624178312%_ + _%hd177623178315%_ + _%tl177622178317%_ + _%e177627178320%_ + _%hd177626178323%_ + _%tl177625178325%_ + _%e177630178328%_ + _%hd177629178331%_ + _%tl177628178333%_ + _%__splice184202184203%_ + _%target177631178336%_ + _%tl177633178338%_) + (letrec ((_%loop177634178341%_ + (lambda (_%hd177632178344%_ + _%id177638178346%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%hd177632178344%_)) + (let ((_%e177635178349%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gx#stx-e _%hd178617179329%_)))) - (let ((_%lp-tl178622179339%_ - (let () - (declare (not safe)) - (##cdr _%e178620179334%_))) - (_%lp-hd178621179337%_ + (not safe)) + (gx#stx-e _%hd177632178344%_)))) + (let ((_%lp-tl177637178354%_ + (let () (declare (not safe)) (##cdr _%e177635178349%_))) + (_%lp-hd177636178352%_ + (let () + (declare (not safe)) + (##car _%e177635178349%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%lp-hd177636178352%_)) + (let ((_%e177642178357%_ (let () (declare (not safe)) - (##car _%e178620179334%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%lp-hd178621179337%_)) - (let ((_%e178627179342%_ - (let () - (declare (not safe)) - (gx#stx-e _%lp-hd178621179337%_)))) - (let ((_%tl178625179347%_ - (let () - (declare (not safe)) - (##cdr _%e178627179342%_))) - (_%hd178626179345%_ - (let () - (declare (not safe)) - (##car _%e178627179342%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? _%hd178626179345%_)) - (if (let () - (declare (not safe)) - (gx#stx-eq? - '%#ref - _%hd178626179345%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl178625179347%_)) - (let ((_%e178630179350%_ - (let () - (declare (not safe)) - (gx#stx-e - _%tl178625179347%_)))) - (let ((_%tl178628179355%_ - (let () - (declare (not safe)) - (##cdr _%e178630179350%_))) - (_%hd178629179353%_ - (let () - (declare (not safe)) - (##car _%e178630179350%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl178628179355%_)) - (let ((__tmp187086 - (cons _%hd178629179353%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id178623179331%_))) - (declare (not safe)) - (_%loop178619179326%_ _%lp-tl178622179339%_ __tmp187086)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)) - (_%__kont185205185206%_)) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)))) - (let ((_%id178624179358%_ (reverse _%id178623179331%_))) - (_%__kont185185185186%_ - _%id178624179358%_ - _%hd178614179316%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop178619179326%_ - _%target178616179321%_ - '())))))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%__stx185183185184%_)) - (let ((_%e178606179289%_ - (let () - (declare (not safe)) - (gx#stx-e - _%__stx185183185184%_)))) - (let ((_%tl178604179294%_ - (let () - (declare (not safe)) - (##cdr _%e178606179289%_))) - (_%hd178605179292%_ - (let () - (declare (not safe)) - (##car _%e178606179289%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? - _%hd178605179292%_)) - (if (let () - (declare (not safe)) - (gx#stx-eq? - '%#call - _%hd178605179292%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl178604179294%_)) - (let ((_%e178609179297%_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#stx-e _%tl178604179294%_)))) - (let ((_%tl178607179302%_ - (let () - (declare (not safe)) - (##cdr _%e178609179297%_))) - (_%hd178608179300%_ - (let () - (declare (not safe)) - (##car _%e178609179297%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd178608179300%_)) - (let ((_%e178612179305%_ + (gx#stx-e _%lp-hd177636178352%_)))) + (let ((_%tl177640178362%_ (let () (declare (not safe)) - (gx#stx-e _%hd178608179300%_)))) - (let ((_%tl178610179310%_ - (let () - (declare (not safe)) - (##cdr _%e178612179305%_))) - (_%hd178611179308%_ - (let () - (declare (not safe)) - (##car _%e178612179305%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? _%hd178611179308%_)) - (if (let () - (declare (not safe)) - (gx#stx-eq? '%#ref _%hd178611179308%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl178610179310%_)) - (let ((_%e178615179313%_ + (##cdr _%e177642178357%_))) + (_%hd177641178360%_ + (let () + (declare (not safe)) + (##car _%e177642178357%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _%hd177641178360%_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _%hd177641178360%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl177640178362%_)) + (let ((_%e177645178365%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl177640178362%_)))) + (let ((_%tl177643178370%_ (let () (declare (not safe)) - (gx#stx-e - _%tl178610179310%_)))) - (let ((_%tl178613179318%_ - (let () - (declare (not safe)) - (##cdr _%e178615179313%_))) - (_%hd178614179316%_ - (let () - (declare (not safe)) - (##car _%e178615179313%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl178613179318%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair/null? - _%tl178607179302%_)) - (let ((_%__splice185187185188%_ + (##cdr _%e177645178365%_))) + (_%hd177644178368%_ + (let () + (declare (not safe)) + (##car _%e177645178365%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _%tl177643178370%_)) + (_%loop177634178341%_ + _%lp-tl177637178354%_ + (cons _%hd177644178368%_ + _%id177638178346%_)) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)) + (_%__kont184220184221%_)) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)))) + (let ((_%id177639178373%_ (reverse _%id177638178346%_))) + (_%__kont184200184201%_ + _%id177639178373%_ + _%hd177629178331%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop177634178341%_ + _%target177631178336%_ + '()))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%__stx184198184199%_)) + (let ((_%e177621178304%_ + (let () + (declare (not safe)) + (gx#stx-e _%__stx184198184199%_)))) + (let ((_%tl177619178309%_ + (let () + (declare (not safe)) + (##cdr _%e177621178304%_))) + (_%hd177620178307%_ + (let () + (declare (not safe)) + (##car _%e177621178304%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _%hd177620178307%_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#call + _%hd177620178307%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl177619178309%_)) + (let ((_%e177624178312%_ + (let () + (declare (not safe)) + (gx#stx-e + _%tl177619178309%_)))) + (let ((_%tl177622178317%_ (let () (declare (not safe)) - (gx#syntax-split-splice - _%tl178607179302%_ - '0)))) - (let ((_%tl178618179323%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##vector-ref _%__splice185187185188%_ '1))) - (_%target178616179321%_ - (let () - (declare (not safe)) - (##vector-ref _%__splice185187185188%_ '0)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl178618179323%_)) - (_%__match185248185249%_ - _%e178606179289%_ - _%hd178605179292%_ - _%tl178604179294%_ - _%e178609179297%_ - _%hd178608179300%_ - _%tl178607179302%_ - _%e178612179305%_ - _%hd178611179308%_ - _%tl178610179310%_ - _%e178615179313%_ - _%hd178614179316%_ - _%tl178613179318%_ - _%__splice185187185188%_ - _%target178616179321%_ - _%tl178618179323%_) - (_%__kont185205185206%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185205185206%_)) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)) - (_%__kont185205185206%_)) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (gx#stx-eq? - '%#if - _%hd178605179292%_)) - (if (let () - (declare - (not safe)) - (gx#stx-pair? - _%tl178604179294%_)) - (let ((_%e178639179235%_ + (##cdr _%e177624178312%_))) + (_%hd177623178315%_ + (let () + (declare + (not safe)) + (##car _%e177624178312%_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _%hd177623178315%_)) + (let ((_%e177627178320%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _%hd177623178315%_)))) + (let ((_%tl177625178325%_ (let () (declare (not safe)) - (gx#stx-e _%tl178604179294%_)))) - (let ((_%tl178637179240%_ - (let () - (declare (not safe)) - (##cdr _%e178639179235%_))) - (_%hd178638179238%_ - (let () - (declare (not safe)) - (##car _%e178639179235%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl178637179240%_)) - (let ((_%e178642179243%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl178637179240%_)))) - (let ((_%tl178640179248%_ - (let () - (declare (not safe)) - (##cdr _%e178642179243%_))) - (_%hd178641179246%_ - (let () - (declare (not safe)) - (##car _%e178642179243%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl178640179248%_)) - (let ((_%e178645179251%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl178640179248%_)))) - (let ((_%tl178643179256%_ - (let () - (declare (not safe)) - (##cdr _%e178645179251%_))) - (_%hd178644179254%_ - (let () - (declare (not safe)) - (##car _%e178645179251%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl178643179256%_)) - (_%__kont185189185190%_ - _%hd178644179254%_ - _%hd178641179246%_ - _%hd178638179238%_) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)) - (if (let () - (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd178605179292%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl178604179294%_)) - (let ((_%e178654179105%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl178604179294%_)))) - (let ((_%tl178652179110%_ - (let () - (declare (not safe)) - (##cdr _%e178654179105%_))) - (_%hd178653179108%_ - (let () - (declare (not safe)) - (##car _%e178654179105%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair/null? _%hd178653179108%_)) - (let ((_%__splice185193185194%_ - (let () - (declare (not safe)) - (gx#syntax-split-splice - _%hd178653179108%_ - '0)))) - (let ((_%tl178657179115%_ - (let () - (declare (not safe)) - (##vector-ref - _%__splice185193185194%_ - '1))) - (_%target178655179113%_ - (let () - (declare (not safe)) - (##vector-ref - _%__splice185193185194%_ - '0)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl178657179115%_)) - (_%__match185302185303%_ - _%e178606179289%_ - _%hd178605179292%_ - _%tl178604179294%_ - _%e178654179105%_ - _%hd178653179108%_ - _%tl178652179110%_ - _%__splice185193185194%_ - _%target178655179113%_ - _%tl178657179115%_) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)) - (if (let () - (declare (not safe)) - (gx#stx-eq? '%#letrec-values _%hd178605179292%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl178604179294%_)) - (let ((_%e178726178793%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl178604179294%_)))) - (let ((_%tl178724178798%_ - (let () - (declare (not safe)) - (##cdr _%e178726178793%_))) - (_%hd178725178796%_ - (let () - (declare (not safe)) - (##car _%e178726178793%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd178725178796%_)) - (let ((_%e178729178801%_ + (##cdr _%e177627178320%_))) + (_%hd177626178323%_ + (let () + (declare (not safe)) + (##car _%e177627178320%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _%hd177626178323%_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#ref _%hd177626178323%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl177625178325%_)) + (let ((_%e177630178328%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl177625178325%_)))) + (let ((_%tl177628178333%_ (let () (declare (not safe)) - (gx#stx-e _%hd178725178796%_)))) - (let ((_%tl178727178806%_ - (let () - (declare (not safe)) - (##cdr _%e178729178801%_))) - (_%hd178728178804%_ - (let () - (declare (not safe)) - (##car _%e178729178801%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%hd178728178804%_)) - (let ((_%e178732178809%_ - (let () - (declare (not safe)) - (gx#stx-e - _%hd178728178804%_)))) - (let ((_%tl178730178814%_ - (let () - (declare (not safe)) - (##cdr _%e178732178809%_))) - (_%hd178731178812%_ + (##cdr _%e177630178328%_))) + (_%hd177629178331%_ + (let () + (declare (not safe)) + (##car _%e177630178328%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl177628178333%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _%tl177622178317%_)) + (let ((_%__splice184202184203%_ (let () (declare (not safe)) - (##car _%e178732178809%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%hd178731178812%_)) - (let ((_%e178735178817%_ - (let () - (declare - (not safe)) - (gx#stx-e - _%hd178731178812%_)))) - (let ((_%tl178733178822%_ + (gx#syntax-split-splice + _%tl177622178317%_ + '0)))) + (let ((_%tl177633178338%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice184202184203%_ + '1))) + (_%target177631178336%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice184202184203%_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _%tl177633178338%_)) + (_%__match184263184264%_ + _%e177621178304%_ + _%hd177620178307%_ + _%tl177619178309%_ + _%e177624178312%_ + _%hd177623178315%_ + _%tl177622178317%_ + _%e177627178320%_ + _%hd177626178323%_ + _%tl177625178325%_ + _%e177630178328%_ + _%hd177629178331%_ + _%tl177628178333%_ + _%__splice184202184203%_ + _%target177631178336%_ + _%tl177633178338%_) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)) + (_%__kont184220184221%_)) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont184220184221%_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#if + _%hd177620178307%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl177619178309%_)) + (let ((_%e177654178250%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e178735178817%_))) - (_%hd178734178820%_ - (let () (declare (not safe)) (##car _%e178735178817%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl178733178822%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl178730178814%_)) - (let ((_%e178738178825%_ + (gx#stx-e _%tl177619178309%_)))) + (let ((_%tl177652178255%_ + (let () (declare (not safe)) (##cdr _%e177654178250%_))) + (_%hd177653178253%_ + (let () + (declare (not safe)) + (##car _%e177654178250%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl177652178255%_)) + (let ((_%e177657178258%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl177652178255%_)))) + (let ((_%tl177655178263%_ (let () (declare (not safe)) - (gx#stx-e _%tl178730178814%_)))) - (let ((_%tl178736178830%_ - (let () - (declare (not safe)) - (##cdr _%e178738178825%_))) - (_%hd178737178828%_ + (##cdr _%e177657178258%_))) + (_%hd177656178261%_ + (let () + (declare (not safe)) + (##car _%e177657178258%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl177655178263%_)) + (let ((_%e177660178266%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl177655178263%_)))) + (let ((_%tl177658178271%_ + (let () + (declare (not safe)) + (##cdr _%e177660178266%_))) + (_%hd177659178269%_ + (let () + (declare (not safe)) + (##car _%e177660178266%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl177658178271%_)) + (_%__kont184204184205%_ + _%hd177659178269%_ + _%hd177656178261%_ + _%hd177653178253%_) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#let-values + _%hd177620178307%_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _%tl177619178309%_)) + (let ((_%e177669178120%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _%tl177619178309%_)))) + (let ((_%tl177667178125%_ + (let () + (declare (not safe)) + (##cdr _%e177669178120%_))) + (_%hd177668178123%_ + (let () + (declare (not safe)) + (##car _%e177669178120%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _%hd177668178123%_)) + (let ((_%__splice184208184209%_ (let () (declare (not safe)) - (##car _%e178738178825%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd178737178828%_)) - (let ((_%e178741178833%_ + (gx#syntax-split-splice + _%hd177668178123%_ + '0)))) + (let ((_%tl177672178130%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice184208184209%_ + '1))) + (_%target177670178128%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice184208184209%_ + '0)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl177672178130%_)) + (_%__match184317184318%_ + _%e177621178304%_ + _%hd177620178307%_ + _%tl177619178309%_ + _%e177669178120%_ + _%hd177668178123%_ + _%tl177667178125%_ + _%__splice184208184209%_ + _%target177670178128%_ + _%tl177672178130%_) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#letrec-values _%hd177620178307%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl177619178309%_)) + (let ((_%e177741177808%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl177619178309%_)))) + (let ((_%tl177739177813%_ + (let () + (declare (not safe)) + (##cdr _%e177741177808%_))) + (_%hd177740177811%_ + (let () + (declare (not safe)) + (##car _%e177741177808%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd177740177811%_)) + (let ((_%e177744177816%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd177740177811%_)))) + (let ((_%tl177742177821%_ (let () (declare (not safe)) - (gx#stx-e _%hd178737178828%_)))) - (let ((_%tl178739178838%_ - (let () - (declare (not safe)) - (##cdr _%e178741178833%_))) - (_%hd178740178836%_ - (let () - (declare (not safe)) - (##car _%e178741178833%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? _%hd178740178836%_)) - (if (let () - (declare (not safe)) - (gx#stx-eq? - '%#lambda - _%hd178740178836%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl178739178838%_)) - (let ((_%e178744178841%_ + (##cdr _%e177744177816%_))) + (_%hd177743177819%_ + (let () + (declare (not safe)) + (##car _%e177744177816%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd177743177819%_)) + (let ((_%e177747177824%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd177743177819%_)))) + (let ((_%tl177745177829%_ + (let () + (declare (not safe)) + (##cdr _%e177747177824%_))) + (_%hd177746177827%_ + (let () + (declare (not safe)) + (##car _%e177747177824%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%hd177746177827%_)) + (let ((_%e177750177832%_ + (let () + (declare (not safe)) + (gx#stx-e + _%hd177746177827%_)))) + (let ((_%tl177748177837%_ (let () (declare (not safe)) - (gx#stx-e - _%tl178739178838%_)))) - (let ((_%tl178742178846%_ - (let () - (declare (not safe)) - (##cdr _%e178744178841%_))) - (_%hd178743178844%_ - (let () - (declare (not safe)) - (##car _%e178744178841%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair/null? - _%hd178743178844%_)) - (let ((_%__splice185201185202%_ - (let () + (##cdr _%e177750177832%_))) + (_%hd177749177835%_ + (let () + (declare (not safe)) + (##car _%e177750177832%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _%tl177748177837%_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _%tl177745177829%_)) + (let ((_%e177753177840%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#syntax-split-splice _%hd178743178844%_ '0)))) - (let ((_%tl178747178851%_ - (let () - (declare (not safe)) - (##vector-ref _%__splice185201185202%_ '1))) - (_%target178745178849%_ (let () (declare (not safe)) - (##vector-ref _%__splice185201185202%_ '0)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl178747178851%_)) - (_%__match185392185393%_ - _%e178606179289%_ - _%hd178605179292%_ - _%tl178604179294%_ - _%e178726178793%_ - _%hd178725178796%_ - _%tl178724178798%_ - _%e178729178801%_ - _%hd178728178804%_ - _%tl178727178806%_ - _%e178732178809%_ - _%hd178731178812%_ - _%tl178730178814%_ - _%e178735178817%_ - _%hd178734178820%_ - _%tl178733178822%_ - _%e178738178825%_ - _%hd178737178828%_ - _%tl178736178830%_ - _%e178741178833%_ - _%hd178740178836%_ - _%tl178739178838%_ - _%e178744178841%_ - _%hd178743178844%_ - _%tl178742178846%_ - _%__splice185201185202%_ - _%target178745178849%_ - _%tl178747178851%_) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185205185206%_)) - (_%__kont185205185206%_)) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)) - (_%__kont185205185206%_)))) + (gx#stx-e _%tl177745177829%_)))) + (let ((_%tl177751177845%_ + (let () + (declare (not safe)) + (##cdr _%e177753177840%_))) + (_%hd177752177843%_ + (let () + (declare (not safe)) + (##car _%e177753177840%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd177752177843%_)) + (let ((_%e177756177848%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd177752177843%_)))) + (let ((_%tl177754177853%_ + (let () + (declare (not safe)) + (##cdr _%e177756177848%_))) + (_%hd177755177851%_ + (let () + (declare (not safe)) + (##car _%e177756177848%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _%hd177755177851%_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _%hd177755177851%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl177754177853%_)) + (let ((_%e177759177856%_ + (let () + (declare (not safe)) + (gx#stx-e + _%tl177754177853%_)))) + (let ((_%tl177757177861%_ + (let () + (declare (not safe)) + (##cdr _%e177759177856%_))) + (_%hd177758177859%_ + (let () + (declare (not safe)) + (##car _%e177759177856%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _%hd177758177859%_)) + (let ((_%__splice184216184217%_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _%hd177758177859%_ + '0)))) + (let ((_%tl177762177866%_ + (let () + (declare + (not safe)) + (##vector-ref + _%__splice184216184217%_ + '1))) + (_%target177760177864%_ + (let () + (declare + (not safe)) + (##vector-ref + _%__splice184216184217%_ + '0)))) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _%tl177762177866%_)) + (_%__match184407184408%_ + _%e177621178304%_ + _%hd177620178307%_ + _%tl177619178309%_ + _%e177741177808%_ + _%hd177740177811%_ + _%tl177739177813%_ + _%e177744177816%_ + _%hd177743177819%_ + _%tl177742177821%_ + _%e177747177824%_ + _%hd177746177827%_ + _%tl177745177829%_ + _%e177750177832%_ + _%hd177749177835%_ + _%tl177748177837%_ + _%e177753177840%_ + _%hd177752177843%_ + _%tl177751177845%_ + _%e177756177848%_ + _%hd177755177851%_ + _%tl177754177853%_ + _%e177759177856%_ + _%hd177758177859%_ + _%tl177757177861%_ + _%__splice184216184217%_ + _%target177760177864%_ + _%tl177762177866%_) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)) + (_%__kont184220184221%_)) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)) + (_%__kont184220184221%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)) - (_%__kont185205185206%_))))) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)))) + (_%__kont184220184221%_)) + (_%__kont184220184221%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185205185206%_)))) - (_%__kont185205185206%_)))))))) - (declare (not safe)) - (_%do-assert176514%_ __tmp187087 __tmp187070)))) - (_%optimize-f__0__183884183885%_ - (lambda (_%expr179499%_) - (let ((_%test179501%_ '#f)) - (declare (not safe)) - (_%optimize-f__183882183883%_ - _%expr179499%_ - _%test179501%_)))) - (_%optimize-f176527%_ - (lambda _g187089_ - (let ((_g187088_ + (_%__kont184220184221%_)))) + (_%__kont184220184221%_))))))))) + (_%optimize-f__0__182899182900%_ + (lambda (_%expr178514%_) + (let ((_%test178516%_ '#f)) + (_%optimize-f__182897182898%_ + _%expr178514%_ + _%test178516%_)))) + (_%optimize-f175542%_ + (lambda _g186058_ + (let ((_g186057_ (let () (declare (not safe)) - (##length _g187089_)))) - (cond ((let () (declare (not safe)) (##fx= _g187088_ 1)) - (apply (lambda (_%expr179499%_) - (let () - (declare (not safe)) - (_%optimize-f__0__183884183885%_ - _%expr179499%_))) - _g187089_)) - ((let () (declare (not safe)) (##fx= _g187088_ 2)) - (apply (lambda (_%expr179503%_ _%test179504%_) - (let () - (declare (not safe)) - (_%optimize-f__183882183883%_ - _%expr179503%_ - _%test179504%_))) - _g187089_)) + (##length _g186058_)))) + (cond ((let () (declare (not safe)) (##fx= _g186057_ 1)) + (apply _%optimize-f__0__182899182900%_ + _g186058_)) + ((let () (declare (not safe)) (##fx= _g186057_ 2)) + (apply _%optimize-f__182897182898%_ _g186058_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g187089_)))))) - (_%assert-e176528%_ - (lambda (_%expr177528%_) - (let* ((_%sexpr177530%_ - (let () - (declare (not safe)) - (gxc#apply-generate-runtime-repr - _%expr177528%_))) - (_%$e177532%_ - (assoc _%sexpr177530%_ _%env-assert176510%_))) - (if _%$e177532%_ - (cdr _%$e177532%_) - (let _%assert177536%_ ((_%expr177538%_ - _%expr177528%_)) - (let* ((_%__stx185489185490%_ _%expr177538%_) - (_%g177546177725%_ + _g186058_)))))) + (_%assert-e175543%_ + (lambda (_%expr176543%_) + (let* ((_%sexpr176545%_ + (gxc#apply-generate-runtime-repr _%expr176543%_)) + (_%$e176547%_ + (assoc _%sexpr176545%_ _%env-assert175525%_))) + (if _%$e176547%_ + (cdr _%$e176547%_) + (let _%assert176551%_ ((_%expr176553%_ + _%expr176543%_)) + (let* ((_%__stx184504184505%_ _%expr176553%_) + (_%g176561176740%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx185489185490%_))))) - (let ((_%__kont185491185492%_ - (lambda (_%L178558%_ _%L178559%_) - (let ((_%$e178581%_ - (let () - (declare (not safe)) - (_%predicate-type176515%_ - _%L178559%_)))) - (if _%$e178581%_ - ((lambda (_%t178584%_) - (let () - (declare (not safe)) - (_%assert-type176529%_ - _%L178558%_ - _%t178584%_))) - _%$e178581%_) - (let () '#!void))))) - (_%__kont185493185494%_ - (lambda (_%L178250%_ - _%L178251%_ - _%L178252%_) - (let ((_%$e178277%_ + _%__stx184504184505%_))))) + (let ((_%__kont184506184507%_ + (lambda (_%L177573%_ _%L177574%_) + (let ((_%$e177596%_ + (_%predicate-type175530%_ + _%L177574%_))) + (if _%$e177596%_ + ((lambda (_%t177599%_) + (_%assert-type175544%_ + _%L177573%_ + _%t177599%_)) + _%$e177596%_) + '#!void)))) + (_%__kont184508184509%_ + (lambda (_%L177265%_ + _%L177266%_ + _%L177267%_) + (let ((_%$e177292%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L178252%_)))) - (if (or (eq? '##fx= _%$e178277%_) - (eq? 'fx= _%$e178277%_)) - (let* ((_%__stx185395185396%_ - _%L178251%_) - (_%g178284178313%_ + _%L177267%_)))) + (if (or (eq? '##fx= _%$e177292%_) + (eq? 'fx= _%$e177292%_)) + (let* ((_%__stx184410184411%_ + _%L177266%_) + (_%g177299177328%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx185395185396%_))))) - (let ((_%__kont185397185398%_ - (lambda (_%L178381%_ - _%L178382%_) - (let ((_%$e178407%_ - (let () + _%__stx184410184411%_))))) + (let ((_%__kont184412184413%_ + (lambda (_%L177396%_ + _%L177397%_) + (let ((_%$e177422%_ + (_%countf-symbol175532%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (_%countf-symbol176517%_ _%L178382%_)))) - (if _%$e178407%_ - ((lambda (_%sym178410%_) - (let ((__tmp187090 - (let () - (declare (not safe)) - (gx#stx-e _%L178250%_)))) - (declare (not safe)) - (_%assert-count176530%_ - _%L178381%_ - _%sym178410%_ - __tmp187090))) - _%$e178407%_) - (let () '#!void))))) - (_%__kont185399185400%_ (lambda () '#!void))) + _%L177397%_))) + (if _%$e177422%_ + ((lambda (_%sym177425%_) + (_%assert-count175545%_ + _%L177396%_ + _%sym177425%_ + (let () + (declare (not safe)) + (gx#stx-e _%L177265%_)))) + _%$e177422%_) + '#!void)))) + (_%__kont184414184415%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx185395185396%_)) - (let ((_%e178290178325%_ + _%__stx184410184411%_)) + (let ((_%e177305177340%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx185395185396%_)))) - (let ((_%tl178288178330%_ - (let () (declare (not safe)) (##cdr _%e178290178325%_))) - (_%hd178289178328%_ + (gx#stx-e _%__stx184410184411%_)))) + (let ((_%tl177303177345%_ + (let () (declare (not safe)) (##cdr _%e177305177340%_))) + (_%hd177304177343%_ (let () (declare (not safe)) - (##car _%e178290178325%_)))) + (##car _%e177305177340%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178289178328%_)) + (gx#identifier? _%hd177304177343%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd178289178328%_)) + (gx#stx-eq? '%#call _%hd177304177343%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178288178330%_)) - (let ((_%e178293178333%_ + (gx#stx-pair? _%tl177303177345%_)) + (let ((_%e177308177348%_ (let () (declare (not safe)) - (gx#stx-e _%tl178288178330%_)))) - (let ((_%tl178291178338%_ + (gx#stx-e _%tl177303177345%_)))) + (let ((_%tl177306177353%_ (let () (declare (not safe)) - (##cdr _%e178293178333%_))) - (_%hd178292178336%_ + (##cdr _%e177308177348%_))) + (_%hd177307177351%_ (let () (declare (not safe)) - (##car _%e178293178333%_)))) + (##car _%e177308177348%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178292178336%_)) - (let ((_%e178296178341%_ + (gx#stx-pair? _%hd177307177351%_)) + (let ((_%e177311177356%_ (let () (declare (not safe)) - (gx#stx-e _%hd178292178336%_)))) - (let ((_%tl178294178346%_ + (gx#stx-e _%hd177307177351%_)))) + (let ((_%tl177309177361%_ (let () (declare (not safe)) - (##cdr _%e178296178341%_))) - (_%hd178295178344%_ + (##cdr _%e177311177356%_))) + (_%hd177310177359%_ (let () (declare (not safe)) - (##car _%e178296178341%_)))) + (##car _%e177311177356%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178295178344%_)) + _%hd177310177359%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd178295178344%_)) + _%hd177310177359%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178294178346%_)) - (let ((_%e178299178349%_ + _%tl177309177361%_)) + (let ((_%e177314177364%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178294178346%_)))) - (let ((_%tl178297178354%_ - (let () (declare (not safe)) (##cdr _%e178299178349%_))) - (_%hd178298178352%_ + (gx#stx-e _%tl177309177361%_)))) + (let ((_%tl177312177369%_ + (let () (declare (not safe)) (##cdr _%e177314177364%_))) + (_%hd177313177367%_ (let () (declare (not safe)) - (##car _%e178299178349%_)))) + (##car _%e177314177364%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178297178354%_)) + (gx#stx-null? _%tl177312177369%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178291178338%_)) - (let ((_%e178302178357%_ + (gx#stx-pair? _%tl177306177353%_)) + (let ((_%e177317177372%_ (let () (declare (not safe)) - (gx#stx-e _%tl178291178338%_)))) - (let ((_%tl178300178362%_ + (gx#stx-e _%tl177306177353%_)))) + (let ((_%tl177315177377%_ (let () (declare (not safe)) - (##cdr _%e178302178357%_))) - (_%hd178301178360%_ + (##cdr _%e177317177372%_))) + (_%hd177316177375%_ (let () (declare (not safe)) - (##car _%e178302178357%_)))) + (##car _%e177317177372%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178301178360%_)) - (let ((_%e178305178365%_ + (gx#stx-pair? _%hd177316177375%_)) + (let ((_%e177320177380%_ (let () (declare (not safe)) - (gx#stx-e _%hd178301178360%_)))) - (let ((_%tl178303178370%_ + (gx#stx-e _%hd177316177375%_)))) + (let ((_%tl177318177385%_ (let () (declare (not safe)) - (##cdr _%e178305178365%_))) - (_%hd178304178368%_ + (##cdr _%e177320177380%_))) + (_%hd177319177383%_ (let () (declare (not safe)) - (##car _%e178305178365%_)))) + (##car _%e177320177380%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178304178368%_)) + _%hd177319177383%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd178304178368%_)) + _%hd177319177383%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178303178370%_)) - (let ((_%e178308178373%_ + _%tl177318177385%_)) + (let ((_%e177323177388%_ (let () (declare (not safe)) (gx#stx-e - _%tl178303178370%_)))) - (let ((_%tl178306178378%_ + _%tl177318177385%_)))) + (let ((_%tl177321177393%_ (let () (declare (not safe)) - (##cdr _%e178308178373%_))) - (_%hd178307178376%_ + (##cdr _%e177323177388%_))) + (_%hd177322177391%_ (let () (declare (not safe)) - (##car _%e178308178373%_)))) + (##car _%e177323177388%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178306178378%_)) + _%tl177321177393%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl178300178362%_)) - (_%__kont185397185398%_ - _%hd178307178376%_ - _%hd178298178352%_) - (_%__kont185399185400%_)) - (_%__kont185399185400%_)))) + (gx#stx-null? _%tl177315177377%_)) + (_%__kont184412184413%_ + _%hd177322177391%_ + _%hd177313177367%_) + (_%__kont184414184415%_)) + (_%__kont184414184415%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185399185400%_)) - (_%__kont185399185400%_)) - (_%__kont185399185400%_)))) - (_%__kont185399185400%_)))) - (_%__kont185399185400%_)) - (_%__kont185399185400%_)))) - (_%__kont185399185400%_)) + (_%__kont184414184415%_)) + (_%__kont184414184415%_)) + (_%__kont184414184415%_)))) + (_%__kont184414184415%_)))) + (_%__kont184414184415%_)) + (_%__kont184414184415%_)))) + (_%__kont184414184415%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185399185400%_)) - (_%__kont185399185400%_)))) - (_%__kont185399185400%_)))) - (_%__kont185399185400%_)) - (_%__kont185399185400%_)) - (_%__kont185399185400%_)))) - (_%__kont185399185400%_)))) + (_%__kont184414184415%_)) + (_%__kont184414184415%_)))) + (_%__kont184414184415%_)))) + (_%__kont184414184415%_)) + (_%__kont184414184415%_)) + (_%__kont184414184415%_)))) + (_%__kont184414184415%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (or (eq? '##eq? _%$e178277%_) - (eq? 'eq? _%$e178277%_) + (if (or (eq? '##eq? _%$e177292%_) + (eq? 'eq? _%$e177292%_) (eq? '##eqv? - _%$e178277%_) - (eq? 'eqv? _%$e178277%_) + _%$e177292%_) + (eq? 'eqv? _%$e177292%_) (eq? '##equal? - _%$e178277%_) + _%$e177292%_) (eq? 'equal? - _%$e178277%_) + _%$e177292%_) (eq? 'gx#free-identifier=? - _%$e178277%_) + _%$e177292%_) (eq? 'gx#stx-eq? - _%$e178277%_)) - ((lambda (_%sym178437%_) - (let* ((_%__stx185463185464%_ - _%L178251%_) - (_%g178440178453%_ + _%$e177292%_)) + ((lambda (_%sym177452%_) + (let* ((_%__stx184478184479%_ + _%L177266%_) + (_%g177455177468%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -9194,4872 +8710,4569 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx185463185464%_))))) - (let ((_%__kont185465185466%_ - (lambda (_%L178481%_) - (let ((__tmp187092 - (let () - (declare (not safe)) - (_%eqf-symbol176518%_ _%sym178437%_))) - (__tmp187091 - (let () - (declare (not safe)) - (gx#stx-e _%L178250%_)))) - (declare (not safe)) - (_%assert-eqf176531%_ - _%L178481%_ - __tmp187092 - __tmp187091)))) - (_%__kont185467185468%_ (lambda () '#!void))) + _%__stx184478184479%_))))) + (let ((_%__kont184480184481%_ + (lambda (_%L177496%_) + (_%assert-eqf175546%_ + _%L177496%_ + (_%eqf-symbol175533%_ _%sym177452%_) + (let () + (declare (not safe)) + (gx#stx-e _%L177265%_))))) + (_%__kont184482184483%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx185463185464%_)) - (let ((_%e178445178465%_ + (gx#stx-pair? _%__stx184478184479%_)) + (let ((_%e177460177480%_ (let () (declare (not safe)) - (gx#stx-e _%__stx185463185464%_)))) - (let ((_%tl178443178470%_ + (gx#stx-e _%__stx184478184479%_)))) + (let ((_%tl177458177485%_ (let () (declare (not safe)) - (##cdr _%e178445178465%_))) - (_%hd178444178468%_ + (##cdr _%e177460177480%_))) + (_%hd177459177483%_ (let () (declare (not safe)) - (##car _%e178445178465%_)))) + (##car _%e177460177480%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178444178468%_)) + (gx#identifier? _%hd177459177483%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd178444178468%_)) + (gx#stx-eq? '%#ref _%hd177459177483%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178443178470%_)) - (let ((_%e178448178473%_ + (gx#stx-pair? _%tl177458177485%_)) + (let ((_%e177463177488%_ (let () (declare (not safe)) - (gx#stx-e _%tl178443178470%_)))) - (let ((_%tl178446178478%_ + (gx#stx-e _%tl177458177485%_)))) + (let ((_%tl177461177493%_ (let () (declare (not safe)) - (##cdr _%e178448178473%_))) - (_%hd178447178476%_ + (##cdr _%e177463177488%_))) + (_%hd177462177491%_ (let () (declare (not safe)) - (##car _%e178448178473%_)))) + (##car _%e177463177488%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178446178478%_)) - (_%__kont185465185466%_ - _%hd178447178476%_) - (_%__kont185467185468%_)))) - (_%__kont185467185468%_)) - (_%__kont185467185468%_)) - (_%__kont185467185468%_)))) - (_%__kont185467185468%_))))) + _%tl177461177493%_)) + (_%__kont184480184481%_ + _%hd177462177491%_) + (_%__kont184482184483%_)))) + (_%__kont184482184483%_)) + (_%__kont184482184483%_)) + (_%__kont184482184483%_)))) + (_%__kont184482184483%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%$e177292%_) + '#!void))))) + (_%__kont184510184511%_ + (lambda (_%L177169%_ + _%L177170%_ + _%L177171%_) + (_%assert176551%_ + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#call)) + (cons (cons (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref)) + (cons _%L177171%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e178277%_) - '#!void))))) - (_%__kont185495185496%_ - (lambda (_%L178154%_ - _%L178155%_ - _%L178156%_) - (let ((__tmp187093 - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - '%#call)) - (cons (cons (let () + (cons _%L177169%_ + (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L178156%_ '())) - (cons _%L178154%_ - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L178155%_ '())) - '())))))) + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#quote)) + (cons _%L177170%_ '())) + '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%assert177536%_ __tmp187093)))) - (_%__kont185497185498%_ - (lambda (_%L178046%_ - _%L178047%_ - _%L178048%_) - (let ((_%$e178077%_ + (_%__kont184512184513%_ + (lambda (_%L177061%_ + _%L177062%_ + _%L177063%_) + (let ((_%$e177092%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L178048%_)))) + _%L177063%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e178077%_) + _%$e177092%_) (eq? 'gx#stx-eq? - _%$e178077%_)) - ((lambda (_%sym178083%_) - (let ((__tmp187094 - (let () - (declare (not safe)) - (_%eqf-symbol176518%_ - _%sym178083%_)))) - (declare (not safe)) - (_%assert-eqf176531%_ - _%L178047%_ - __tmp187094 - _%L178046%_))) - _%$e178077%_) + _%$e177092%_)) + ((lambda (_%sym177098%_) + (_%assert-eqf175546%_ + _%L177062%_ + (_%eqf-symbol175533%_ + _%sym177098%_) + _%L177061%_)) + _%$e177092%_) '#!void)))) - (_%__kont185499185500%_ - (lambda (_%L177930%_ - _%L177931%_ - _%L177932%_) - (let ((__tmp187095 - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - '%#call)) + (_%__kont184514184515%_ + (lambda (_%L176945%_ + _%L176946%_ + _%L176947%_) + (_%assert176551%_ + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '%#call)) + (cons (cons (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref)) + (cons _%L176947%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L177932%_ '())) + (cons _%L176945%_ '())) (cons (cons (let () (declare (not safe)) - (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L177930%_ '())) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - '%#quote-syntax)) - (cons _%L177931%_ '())) - '())))))) + (gx#datum->syntax__0 '#f '%#quote-syntax)) + (cons _%L176946%_ '())) + '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%assert177536%_ __tmp187095)))) - (_%__kont185501185502%_ - (lambda (_%L177809%_ - _%L177810%_ - _%L177811%_) - (let ((__tmp187096 - (let () - (declare (not safe)) - (gxc#apply-expression-subst__% - '#f - _%L177811%_ - _%L177809%_ - _%L177810%_)))) - (declare (not safe)) - (_%assert177536%_ __tmp187096)))) - (_%__kont185503185504%_ + (_%__kont184516184517%_ + (lambda (_%L176824%_ + _%L176825%_ + _%L176826%_) + (_%assert176551%_ + (let () + (declare (not safe)) + (gxc#apply-expression-subst__% + '#f + _%L176826%_ + _%L176824%_ + _%L176825%_))))) + (_%__kont184518184519%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx185489185490%_)) - (let ((_%e177552178502%_ + (gx#stx-pair? _%__stx184504184505%_)) + (let ((_%e176567177517%_ (let () (declare (not safe)) (gx#stx-e - _%__stx185489185490%_)))) - (let ((_%tl177550178507%_ + _%__stx184504184505%_)))) + (let ((_%tl176565177522%_ (let () (declare (not safe)) - (##cdr _%e177552178502%_))) - (_%hd177551178505%_ + (##cdr _%e176567177517%_))) + (_%hd176566177520%_ (let () (declare (not safe)) - (##car _%e177552178502%_)))) + (##car _%e176567177517%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd177551178505%_)) + _%hd176566177520%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd177551178505%_)) + _%hd176566177520%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177550178507%_)) - (let ((_%e177555178510%_ + _%tl176565177522%_)) + (let ((_%e176570177525%_ (let () (declare (not safe)) (gx#stx-e - _%tl177550178507%_)))) - (let ((_%tl177553178515%_ + _%tl176565177522%_)))) + (let ((_%tl176568177530%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e177555178510%_))) - (_%hd177554178513%_ - (let () (declare (not safe)) (##car _%e177555178510%_)))) + (##cdr _%e176570177525%_))) + (_%hd176569177528%_ + (let () (declare (not safe)) (##car _%e176570177525%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd177554178513%_)) - (let ((_%e177558178518%_ + (gx#stx-pair? _%hd176569177528%_)) + (let ((_%e176573177533%_ (let () (declare (not safe)) - (gx#stx-e _%hd177554178513%_)))) - (let ((_%tl177556178523%_ + (gx#stx-e _%hd176569177528%_)))) + (let ((_%tl176571177538%_ (let () (declare (not safe)) - (##cdr _%e177558178518%_))) - (_%hd177557178521%_ + (##cdr _%e176573177533%_))) + (_%hd176572177536%_ (let () (declare (not safe)) - (##car _%e177558178518%_)))) + (##car _%e176573177533%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd177557178521%_)) + (gx#identifier? _%hd176572177536%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd177557178521%_)) + (gx#stx-eq? '%#ref _%hd176572177536%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177556178523%_)) - (let ((_%e177561178526%_ + (gx#stx-pair? _%tl176571177538%_)) + (let ((_%e176576177541%_ (let () (declare (not safe)) - (gx#stx-e _%tl177556178523%_)))) - (let ((_%tl177559178531%_ + (gx#stx-e _%tl176571177538%_)))) + (let ((_%tl176574177546%_ (let () (declare (not safe)) - (##cdr _%e177561178526%_))) - (_%hd177560178529%_ + (##cdr _%e176576177541%_))) + (_%hd176575177544%_ (let () (declare (not safe)) - (##car _%e177561178526%_)))) + (##car _%e176576177541%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177559178531%_)) + _%tl176574177546%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177553178515%_)) - (let ((_%e177564178534%_ + _%tl176568177530%_)) + (let ((_%e176579177549%_ (let () (declare (not safe)) (gx#stx-e - _%tl177553178515%_)))) - (let ((_%tl177562178539%_ + _%tl176568177530%_)))) + (let ((_%tl176577177554%_ (let () (declare (not safe)) - (##cdr _%e177564178534%_))) - (_%hd177563178537%_ + (##cdr _%e176579177549%_))) + (_%hd176578177552%_ (let () (declare (not safe)) - (##car _%e177564178534%_)))) + (##car _%e176579177549%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd177563178537%_)) - (let ((_%e177567178542%_ + _%hd176578177552%_)) + (let ((_%e176582177557%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd177563178537%_)))) - (let ((_%tl177565178547%_ + (gx#stx-e _%hd176578177552%_)))) + (let ((_%tl176580177562%_ (let () (declare (not safe)) - (##cdr _%e177567178542%_))) - (_%hd177566178545%_ + (##cdr _%e176582177557%_))) + (_%hd176581177560%_ (let () (declare (not safe)) - (##car _%e177567178542%_)))) + (##car _%e176582177557%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd177566178545%_)) + (gx#identifier? _%hd176581177560%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd177566178545%_)) + (gx#stx-eq? '%#ref _%hd176581177560%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177565178547%_)) - (let ((_%e177570178550%_ + (gx#stx-pair? _%tl176580177562%_)) + (let ((_%e176585177565%_ (let () (declare (not safe)) - (gx#stx-e _%tl177565178547%_)))) - (let ((_%tl177568178555%_ + (gx#stx-e _%tl176580177562%_)))) + (let ((_%tl176583177570%_ (let () (declare (not safe)) - (##cdr _%e177570178550%_))) - (_%hd177569178553%_ + (##cdr _%e176585177565%_))) + (_%hd176584177568%_ (let () (declare (not safe)) - (##car _%e177570178550%_)))) + (##car _%e176585177565%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177568178555%_)) + (gx#stx-null? _%tl176583177570%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177562178539%_)) - (_%__kont185491185492%_ - _%hd177569178553%_ - _%hd177560178529%_) + _%tl176577177554%_)) + (_%__kont184506184507%_ + _%hd176584177568%_ + _%hd176575177544%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177562178539%_)) - (let ((_%e177591178226%_ + _%tl176577177554%_)) + (let ((_%e176606177241%_ (let () (declare (not safe)) (gx#stx-e - _%tl177562178539%_)))) - (let ((_%tl177589178231%_ + _%tl176577177554%_)))) + (let ((_%tl176604177246%_ (let () (declare (not safe)) - (##cdr _%e177591178226%_))) - (_%hd177590178229%_ + (##cdr _%e176606177241%_))) + (_%hd176605177244%_ (let () (declare (not safe)) - (##car _%e177591178226%_)))) + (##car _%e176606177241%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd177590178229%_)) - (let ((_%e177594178234%_ + _%hd176605177244%_)) + (let ((_%e176609177249%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd177590178229%_)))) - (let ((_%tl177592178239%_ + (gx#stx-e _%hd176605177244%_)))) + (let ((_%tl176607177254%_ (let () (declare (not safe)) - (##cdr _%e177594178234%_))) - (_%hd177593178237%_ + (##cdr _%e176609177249%_))) + (_%hd176608177252%_ (let () (declare (not safe)) - (##car _%e177594178234%_)))) + (##car _%e176609177249%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd177593178237%_)) + (gx#identifier? _%hd176608177252%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd177593178237%_)) + (gx#stx-eq? '%#quote _%hd176608177252%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177592178239%_)) - (let ((_%e177597178242%_ + (gx#stx-pair? _%tl176607177254%_)) + (let ((_%e176612177257%_ (let () (declare (not safe)) - (gx#stx-e _%tl177592178239%_)))) - (let ((_%tl177595178247%_ + (gx#stx-e _%tl176607177254%_)))) + (let ((_%tl176610177262%_ (let () (declare (not safe)) - (##cdr _%e177597178242%_))) - (_%hd177596178245%_ + (##cdr _%e176612177257%_))) + (_%hd176611177260%_ (let () (declare (not safe)) - (##car _%e177597178242%_)))) + (##car _%e176612177257%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177595178247%_)) + (gx#stx-null? _%tl176610177262%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177589178231%_)) - (_%__kont185493185494%_ - _%hd177596178245%_ - _%hd177563178537%_ - _%hd177560178529%_) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) + _%tl176604177246%_)) + (_%__kont184508184509%_ + _%hd176611177260%_ + _%hd176578177552%_ + _%hd176575177544%_) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd177593178237%_)) + _%hd176608177252%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177592178239%_)) - (let ((_%e177657178038%_ + (gx#stx-pair? _%tl176607177254%_)) + (let ((_%e176672177053%_ (let () (declare (not safe)) - (gx#stx-e _%tl177592178239%_)))) - (let ((_%tl177655178043%_ + (gx#stx-e _%tl176607177254%_)))) + (let ((_%tl176670177058%_ (let () (declare (not safe)) - (##cdr _%e177657178038%_))) - (_%hd177656178041%_ + (##cdr _%e176672177053%_))) + (_%hd176671177056%_ (let () (declare (not safe)) - (##car _%e177657178038%_)))) + (##car _%e176672177053%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177655178043%_)) + _%tl176670177058%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177589178231%_)) - (_%__kont185497185498%_ - _%hd177656178041%_ - _%hd177569178553%_ - _%hd177560178529%_) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) - (_%__kont185503185504%_))) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)))) + _%tl176604177246%_)) + (_%__kont184512184513%_ + _%hd176671177056%_ + _%hd176584177568%_ + _%hd176575177544%_) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_))) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185503185504%_))) + (_%__kont184518184519%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177562178539%_)) - (let ((_%e177591178226%_ + _%tl176577177554%_)) + (let ((_%e176606177241%_ (let () (declare (not safe)) (gx#stx-e - _%tl177562178539%_)))) - (let ((_%tl177589178231%_ + _%tl176577177554%_)))) + (let ((_%tl176604177246%_ (let () (declare (not safe)) - (##cdr _%e177591178226%_))) - (_%hd177590178229%_ + (##cdr _%e176606177241%_))) + (_%hd176605177244%_ (let () (declare (not safe)) - (##car _%e177591178226%_)))) + (##car _%e176606177241%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd177590178229%_)) - (let ((_%e177594178234%_ + _%hd176605177244%_)) + (let ((_%e176609177249%_ (let () (declare (not safe)) (gx#stx-e - _%hd177590178229%_)))) - (let ((_%tl177592178239%_ + _%hd176605177244%_)))) + (let ((_%tl176607177254%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e177594178234%_))) - (_%hd177593178237%_ - (let () (declare (not safe)) (##car _%e177594178234%_)))) + (##cdr _%e176609177249%_))) + (_%hd176608177252%_ + (let () (declare (not safe)) (##car _%e176609177249%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd177593178237%_)) + (gx#identifier? _%hd176608177252%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd177593178237%_)) + (gx#stx-eq? '%#quote _%hd176608177252%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177592178239%_)) - (let ((_%e177597178242%_ + (gx#stx-pair? _%tl176607177254%_)) + (let ((_%e176612177257%_ (let () (declare (not safe)) - (gx#stx-e _%tl177592178239%_)))) - (let ((_%tl177595178247%_ + (gx#stx-e _%tl176607177254%_)))) + (let ((_%tl176610177262%_ (let () (declare (not safe)) - (##cdr _%e177597178242%_))) - (_%hd177596178245%_ + (##cdr _%e176612177257%_))) + (_%hd176611177260%_ (let () (declare (not safe)) - (##car _%e177597178242%_)))) + (##car _%e176612177257%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177595178247%_)) + (gx#stx-null? _%tl176610177262%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177589178231%_)) - (_%__kont185493185494%_ - _%hd177596178245%_ - _%hd177563178537%_ - _%hd177560178529%_) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) + (gx#stx-null? _%tl176604177246%_)) + (_%__kont184508184509%_ + _%hd176611177260%_ + _%hd176578177552%_ + _%hd176575177544%_) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185503185504%_)))) - (_%__kont185503185504%_))))) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177562178539%_)) - (let ((_%e177591178226%_ + (gx#stx-pair? _%tl176577177554%_)) + (let ((_%e176606177241%_ (let () (declare (not safe)) - (gx#stx-e _%tl177562178539%_)))) - (let ((_%tl177589178231%_ + (gx#stx-e _%tl176577177554%_)))) + (let ((_%tl176604177246%_ (let () (declare (not safe)) - (##cdr _%e177591178226%_))) - (_%hd177590178229%_ + (##cdr _%e176606177241%_))) + (_%hd176605177244%_ (let () (declare (not safe)) - (##car _%e177591178226%_)))) + (##car _%e176606177241%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd177590178229%_)) - (let ((_%e177594178234%_ + _%hd176605177244%_)) + (let ((_%e176609177249%_ (let () (declare (not safe)) (gx#stx-e - _%hd177590178229%_)))) - (let ((_%tl177592178239%_ + _%hd176605177244%_)))) + (let ((_%tl176607177254%_ (let () (declare (not safe)) - (##cdr _%e177594178234%_))) - (_%hd177593178237%_ + (##cdr _%e176609177249%_))) + (_%hd176608177252%_ (let () (declare (not safe)) - (##car _%e177594178234%_)))) + (##car _%e176609177249%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd177593178237%_)) + _%hd176608177252%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd177593178237%_)) + _%hd176608177252%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl177592178239%_)) - (let ((_%e177597178242%_ + (gx#stx-pair? _%tl176607177254%_)) + (let ((_%e176612177257%_ (let () (declare (not safe)) - (gx#stx-e _%tl177592178239%_)))) - (let ((_%tl177595178247%_ + (gx#stx-e _%tl176607177254%_)))) + (let ((_%tl176610177262%_ (let () (declare (not safe)) - (##cdr _%e177597178242%_))) - (_%hd177596178245%_ + (##cdr _%e176612177257%_))) + (_%hd176611177260%_ (let () (declare (not safe)) - (##car _%e177597178242%_)))) + (##car _%e176612177257%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177595178247%_)) + (gx#stx-null? _%tl176610177262%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177589178231%_)) - (_%__kont185493185494%_ - _%hd177596178245%_ - _%hd177563178537%_ - _%hd177560178529%_) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)) + (gx#stx-null? _%tl176604177246%_)) + (_%__kont184508184509%_ + _%hd176611177260%_ + _%hd176578177552%_ + _%hd176575177544%_) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_))) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177562178539%_)) - (let ((_%e177591178226%_ + (gx#stx-pair? _%tl176577177554%_)) + (let ((_%e176606177241%_ (let () (declare (not safe)) - (gx#stx-e _%tl177562178539%_)))) - (let ((_%tl177589178231%_ + (gx#stx-e _%tl176577177554%_)))) + (let ((_%tl176604177246%_ (let () (declare (not safe)) - (##cdr _%e177591178226%_))) - (_%hd177590178229%_ + (##cdr _%e176606177241%_))) + (_%hd176605177244%_ (let () (declare (not safe)) - (##car _%e177591178226%_)))) + (##car _%e176606177241%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd177590178229%_)) - (let ((_%e177594178234%_ + (gx#stx-pair? _%hd176605177244%_)) + (let ((_%e176609177249%_ (let () (declare (not safe)) (gx#stx-e - _%hd177590178229%_)))) - (let ((_%tl177592178239%_ + _%hd176605177244%_)))) + (let ((_%tl176607177254%_ (let () (declare (not safe)) - (##cdr _%e177594178234%_))) - (_%hd177593178237%_ + (##cdr _%e176609177249%_))) + (_%hd176608177252%_ (let () (declare (not safe)) - (##car _%e177594178234%_)))) + (##car _%e176609177249%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd177593178237%_)) + _%hd176608177252%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd177593178237%_)) + _%hd176608177252%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177592178239%_)) - (let ((_%e177597178242%_ + _%tl176607177254%_)) + (let ((_%e176612177257%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl177592178239%_)))) - (let ((_%tl177595178247%_ + (gx#stx-e _%tl176607177254%_)))) + (let ((_%tl176610177262%_ (let () (declare (not safe)) - (##cdr _%e177597178242%_))) - (_%hd177596178245%_ + (##cdr _%e176612177257%_))) + (_%hd176611177260%_ (let () (declare (not safe)) - (##car _%e177597178242%_)))) + (##car _%e176612177257%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177595178247%_)) + (gx#stx-null? _%tl176610177262%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177589178231%_)) - (_%__kont185493185494%_ - _%hd177596178245%_ - _%hd177563178537%_ - _%hd177560178529%_) + (gx#stx-null? _%tl176604177246%_)) + (_%__kont184508184509%_ + _%hd176611177260%_ + _%hd176578177552%_ + _%hd176575177544%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd177566178545%_)) + (gx#stx-eq? '%#quote _%hd176581177560%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177565178547%_)) - (let ((_%e177621178138%_ + (gx#stx-pair? _%tl176580177562%_)) + (let ((_%e176636177153%_ (let () (declare (not safe)) - (gx#stx-e _%tl177565178547%_)))) - (let ((_%tl177619178143%_ + (gx#stx-e _%tl176580177562%_)))) + (let ((_%tl176634177158%_ (let () (declare (not safe)) - (##cdr _%e177621178138%_))) - (_%hd177620178141%_ + (##cdr _%e176636177153%_))) + (_%hd176635177156%_ (let () (declare (not safe)) - (##car _%e177621178138%_)))) - (_%__kont185503185504%_))) - (_%__kont185503185504%_)) + (##car _%e176636177153%_)))) + (_%__kont184518184519%_))) + (_%__kont184518184519%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd177566178545%_)) + _%hd176581177560%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177565178547%_)) - (let ((_%e177681177898%_ + (gx#stx-pair? _%tl176580177562%_)) + (let ((_%e176696176913%_ (let () (declare (not safe)) (gx#stx-e - _%tl177565178547%_)))) - (let ((_%tl177679177903%_ + _%tl176580177562%_)))) + (let ((_%tl176694176918%_ (let () (declare (not safe)) - (##cdr _%e177681177898%_))) - (_%hd177680177901%_ + (##cdr _%e176696176913%_))) + (_%hd176695176916%_ (let () (declare (not safe)) - (##car _%e177681177898%_)))) - (_%__kont185503185504%_))) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) + (##car _%e176696176913%_)))) + (_%__kont184518184519%_))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd177566178545%_)) + (gx#stx-eq? '%#quote _%hd176581177560%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177565178547%_)) - (let ((_%e177621178138%_ + (gx#stx-pair? _%tl176580177562%_)) + (let ((_%e176636177153%_ (let () (declare (not safe)) - (gx#stx-e _%tl177565178547%_)))) - (let ((_%tl177619178143%_ + (gx#stx-e _%tl176580177562%_)))) + (let ((_%tl176634177158%_ (let () (declare (not safe)) - (##cdr _%e177621178138%_))) - (_%hd177620178141%_ + (##cdr _%e176636177153%_))) + (_%hd176635177156%_ (let () (declare (not safe)) - (##car _%e177621178138%_)))) + (##car _%e176636177153%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177619178143%_)) + (gx#stx-null? _%tl176634177158%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177589178231%_)) - (_%__kont185495185496%_ - _%hd177590178229%_ - _%hd177620178141%_ - _%hd177560178529%_) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) + _%tl176604177246%_)) + (_%__kont184510184511%_ + _%hd176605177244%_ + _%hd176635177156%_ + _%hd176575177544%_) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd177566178545%_)) + _%hd176581177560%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177565178547%_)) - (let ((_%e177681177898%_ + (gx#stx-pair? _%tl176580177562%_)) + (let ((_%e176696176913%_ (let () (declare (not safe)) - (gx#stx-e _%tl177565178547%_)))) - (let ((_%tl177679177903%_ + (gx#stx-e _%tl176580177562%_)))) + (let ((_%tl176694176918%_ (let () (declare (not safe)) - (##cdr _%e177681177898%_))) - (_%hd177680177901%_ + (##cdr _%e176696176913%_))) + (_%hd176695176916%_ (let () (declare (not safe)) - (##car _%e177681177898%_)))) - (_%__kont185503185504%_))) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))))) + (##car _%e176696176913%_)))) + (_%__kont184518184519%_))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd177566178545%_)) + (gx#stx-eq? '%#quote _%hd176581177560%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177565178547%_)) - (let ((_%e177621178138%_ + (gx#stx-pair? _%tl176580177562%_)) + (let ((_%e176636177153%_ (let () (declare (not safe)) - (gx#stx-e _%tl177565178547%_)))) - (let ((_%tl177619178143%_ + (gx#stx-e _%tl176580177562%_)))) + (let ((_%tl176634177158%_ (let () (declare (not safe)) - (##cdr _%e177621178138%_))) - (_%hd177620178141%_ + (##cdr _%e176636177153%_))) + (_%hd176635177156%_ (let () (declare (not safe)) - (##car _%e177621178138%_)))) + (##car _%e176636177153%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177619178143%_)) + (gx#stx-null? _%tl176634177158%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177589178231%_)) - (_%__kont185495185496%_ - _%hd177590178229%_ - _%hd177620178141%_ - _%hd177560178529%_) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) + (gx#stx-null? _%tl176604177246%_)) + (_%__kont184510184511%_ + _%hd176605177244%_ + _%hd176635177156%_ + _%hd176575177544%_) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd177566178545%_)) + (gx#stx-eq? '%#quote-syntax _%hd176581177560%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177565178547%_)) - (let ((_%e177681177898%_ + (gx#stx-pair? _%tl176580177562%_)) + (let ((_%e176696176913%_ (let () (declare (not safe)) - (gx#stx-e _%tl177565178547%_)))) - (let ((_%tl177679177903%_ + (gx#stx-e _%tl176580177562%_)))) + (let ((_%tl176694176918%_ (let () (declare (not safe)) - (##cdr _%e177681177898%_))) - (_%hd177680177901%_ + (##cdr _%e176696176913%_))) + (_%hd176695176916%_ (let () (declare (not safe)) - (##car _%e177681177898%_)))) - (_%__kont185503185504%_))) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) + (##car _%e176696176913%_)))) + (_%__kont184518184519%_))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd177566178545%_)) + _%hd176581177560%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl177565178547%_)) - (let ((_%e177621178138%_ + (gx#stx-pair? _%tl176580177562%_)) + (let ((_%e176636177153%_ (let () (declare (not safe)) - (gx#stx-e _%tl177565178547%_)))) - (let ((_%tl177619178143%_ + (gx#stx-e _%tl176580177562%_)))) + (let ((_%tl176634177158%_ (let () (declare (not safe)) - (##cdr _%e177621178138%_))) - (_%hd177620178141%_ + (##cdr _%e176636177153%_))) + (_%hd176635177156%_ (let () (declare (not safe)) - (##car _%e177621178138%_)))) + (##car _%e176636177153%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177619178143%_)) + (gx#stx-null? _%tl176634177158%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177589178231%_)) - (_%__kont185495185496%_ - _%hd177590178229%_ - _%hd177620178141%_ - _%hd177560178529%_) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) + (gx#stx-null? _%tl176604177246%_)) + (_%__kont184510184511%_ + _%hd176605177244%_ + _%hd176635177156%_ + _%hd176575177544%_) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd177566178545%_)) + (gx#stx-eq? '%#quote-syntax _%hd176581177560%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177565178547%_)) - (let ((_%e177681177898%_ + (gx#stx-pair? _%tl176580177562%_)) + (let ((_%e176696176913%_ (let () (declare (not safe)) - (gx#stx-e _%tl177565178547%_)))) - (let ((_%tl177679177903%_ + (gx#stx-e _%tl176580177562%_)))) + (let ((_%tl176694176918%_ (let () (declare (not safe)) - (##cdr _%e177681177898%_))) - (_%hd177680177901%_ + (##cdr _%e176696176913%_))) + (_%hd176695176916%_ (let () (declare (not safe)) - (##car _%e177681177898%_)))) + (##car _%e176696176913%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177679177903%_)) + (gx#stx-null? _%tl176694176918%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd177593178237%_)) + (gx#stx-eq? '%#ref _%hd176608177252%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177592178239%_)) - (let ((_%e177690177922%_ + (gx#stx-pair? _%tl176607177254%_)) + (let ((_%e176705176937%_ (let () (declare (not safe)) (gx#stx-e - _%tl177592178239%_)))) - (let ((_%tl177688177927%_ + _%tl176607177254%_)))) + (let ((_%tl176703176942%_ (let () (declare (not safe)) - (##cdr _%e177690177922%_))) - (_%hd177689177925%_ + (##cdr _%e176705176937%_))) + (_%hd176704176940%_ (let () (declare (not safe)) - (##car _%e177690177922%_)))) + (##car _%e176705176937%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177688177927%_)) + _%tl176703176942%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177589178231%_)) - (_%__kont185499185500%_ - _%hd177689177925%_ - _%hd177680177901%_ - _%hd177560178529%_) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) + _%tl176604177246%_)) + (_%__kont184514184515%_ + _%hd176704176940%_ + _%hd176695176916%_ + _%hd176575177544%_) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd177566178545%_)) + _%hd176581177560%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177565178547%_)) - (let ((_%e177621178138%_ + _%tl176580177562%_)) + (let ((_%e176636177153%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl177565178547%_)))) - (let ((_%tl177619178143%_ + (gx#stx-e _%tl176580177562%_)))) + (let ((_%tl176634177158%_ (let () (declare (not safe)) - (##cdr _%e177621178138%_))) - (_%hd177620178141%_ + (##cdr _%e176636177153%_))) + (_%hd176635177156%_ (let () (declare (not safe)) - (##car _%e177621178138%_)))) + (##car _%e176636177153%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177619178143%_)) + (gx#stx-null? _%tl176634177158%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177589178231%_)) - (_%__kont185495185496%_ - _%hd177590178229%_ - _%hd177620178141%_ - _%hd177560178529%_) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) + (gx#stx-null? _%tl176604177246%_)) + (_%__kont184510184511%_ + _%hd176605177244%_ + _%hd176635177156%_ + _%hd176575177544%_) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd177566178545%_)) + _%hd176581177560%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl177565178547%_)) - (let ((_%e177681177898%_ + (gx#stx-pair? _%tl176580177562%_)) + (let ((_%e176696176913%_ (let () (declare (not safe)) - (gx#stx-e _%tl177565178547%_)))) - (let ((_%tl177679177903%_ + (gx#stx-e _%tl176580177562%_)))) + (let ((_%tl176694176918%_ (let () (declare (not safe)) - (##cdr _%e177681177898%_))) - (_%hd177680177901%_ + (##cdr _%e176696176913%_))) + (_%hd176695176916%_ (let () (declare (not safe)) - (##car _%e177681177898%_)))) - (_%__kont185503185504%_))) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))))) + (##car _%e176696176913%_)))) + (_%__kont184518184519%_))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd177566178545%_)) + _%hd176581177560%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177565178547%_)) - (let ((_%e177621178138%_ + _%tl176580177562%_)) + (let ((_%e176636177153%_ (let () (declare (not safe)) (gx#stx-e - _%tl177565178547%_)))) - (let ((_%tl177619178143%_ + _%tl176580177562%_)))) + (let ((_%tl176634177158%_ (let () (declare (not safe)) - (##cdr _%e177621178138%_))) - (_%hd177620178141%_ + (##cdr _%e176636177153%_))) + (_%hd176635177156%_ (let () (declare (not safe)) - (##car _%e177621178138%_)))) + (##car _%e176636177153%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177619178143%_)) + _%tl176634177158%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl177589178231%_)) - (_%__kont185495185496%_ - _%hd177590178229%_ - _%hd177620178141%_ - _%hd177560178529%_) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) + (gx#stx-null? _%tl176604177246%_)) + (_%__kont184510184511%_ + _%hd176605177244%_ + _%hd176635177156%_ + _%hd176575177544%_) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185503185504%_)) + (_%__kont184518184519%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd177566178545%_)) + _%hd176581177560%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177565178547%_)) - (let ((_%e177681177898%_ + _%tl176580177562%_)) + (let ((_%e176696176913%_ (let () (declare (not safe)) (gx#stx-e - _%tl177565178547%_)))) - (let ((_%tl177679177903%_ + _%tl176580177562%_)))) + (let ((_%tl176694176918%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e177681177898%_))) - (_%hd177680177901%_ - (let () (declare (not safe)) (##car _%e177681177898%_)))) - (_%__kont185503185504%_))) + (##cdr _%e176696176913%_))) + (_%hd176695176916%_ + (let () (declare (not safe)) (##car _%e176696176913%_)))) + (_%__kont184518184519%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd177566178545%_)) + _%hd176581177560%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177565178547%_)) - (let ((_%e177621178138%_ + (gx#stx-pair? _%tl176580177562%_)) + (let ((_%e176636177153%_ (let () (declare (not safe)) (gx#stx-e - _%tl177565178547%_)))) - (let ((_%tl177619178143%_ + _%tl176580177562%_)))) + (let ((_%tl176634177158%_ (let () (declare (not safe)) - (##cdr _%e177621178138%_))) - (_%hd177620178141%_ + (##cdr _%e176636177153%_))) + (_%hd176635177156%_ (let () (declare (not safe)) - (##car _%e177621178138%_)))) - (_%__kont185503185504%_))) - (_%__kont185503185504%_)) + (##car _%e176636177153%_)))) + (_%__kont184518184519%_))) + (_%__kont184518184519%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd177566178545%_)) + _%hd176581177560%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177565178547%_)) - (let ((_%e177681177898%_ + _%tl176580177562%_)) + (let ((_%e176696176913%_ (let () (declare (not safe)) (gx#stx-e - _%tl177565178547%_)))) - (let ((_%tl177679177903%_ + _%tl176580177562%_)))) + (let ((_%tl176694176918%_ (let () (declare (not safe)) - (##cdr _%e177681177898%_))) - (_%hd177680177901%_ + (##cdr _%e176696176913%_))) + (_%hd176695176916%_ (let () (declare (not safe)) - (##car _%e177681177898%_)))) - (_%__kont185503185504%_))) - (_%__kont185503185504%_)) - (_%__kont185503185504%_))))) + (##car _%e176696176913%_)))) + (_%__kont184518184519%_))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177562178539%_)) - (let ((_%e177591178226%_ + (gx#stx-pair? _%tl176577177554%_)) + (let ((_%e176606177241%_ (let () (declare (not safe)) - (gx#stx-e _%tl177562178539%_)))) - (let ((_%tl177589178231%_ + (gx#stx-e _%tl176577177554%_)))) + (let ((_%tl176604177246%_ (let () (declare (not safe)) - (##cdr _%e177591178226%_))) - (_%hd177590178229%_ + (##cdr _%e176606177241%_))) + (_%hd176605177244%_ (let () (declare (not safe)) - (##car _%e177591178226%_)))) + (##car _%e176606177241%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd177590178229%_)) - (let ((_%e177594178234%_ + (gx#stx-pair? _%hd176605177244%_)) + (let ((_%e176609177249%_ (let () (declare (not safe)) - (gx#stx-e _%hd177590178229%_)))) - (let ((_%tl177592178239%_ + (gx#stx-e _%hd176605177244%_)))) + (let ((_%tl176607177254%_ (let () (declare (not safe)) - (##cdr _%e177594178234%_))) - (_%hd177593178237%_ + (##cdr _%e176609177249%_))) + (_%hd176608177252%_ (let () (declare (not safe)) - (##car _%e177594178234%_)))) + (##car _%e176609177249%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd177593178237%_)) + _%hd176608177252%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd177593178237%_)) + _%hd176608177252%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177592178239%_)) - (let ((_%e177597178242%_ + _%tl176607177254%_)) + (let ((_%e176612177257%_ (let () (declare (not safe)) (gx#stx-e - _%tl177592178239%_)))) - (let ((_%tl177595178247%_ + _%tl176607177254%_)))) + (let ((_%tl176610177262%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e177597178242%_))) - (_%hd177596178245%_ - (let () (declare (not safe)) (##car _%e177597178242%_)))) + (##cdr _%e176612177257%_))) + (_%hd176611177260%_ + (let () (declare (not safe)) (##car _%e176612177257%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177595178247%_)) + (gx#stx-null? _%tl176610177262%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177589178231%_)) - (_%__kont185493185494%_ - _%hd177596178245%_ - _%hd177563178537%_ - _%hd177560178529%_) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) + (gx#stx-null? _%tl176604177246%_)) + (_%__kont184508184509%_ + _%hd176611177260%_ + _%hd176578177552%_ + _%hd176575177544%_) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185503185504%_)) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_))))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177562178539%_)) - (let ((_%e177591178226%_ + (gx#stx-pair? _%tl176577177554%_)) + (let ((_%e176606177241%_ (let () (declare (not safe)) - (gx#stx-e _%tl177562178539%_)))) - (let ((_%tl177589178231%_ + (gx#stx-e _%tl176577177554%_)))) + (let ((_%tl176604177246%_ (let () (declare (not safe)) - (##cdr _%e177591178226%_))) - (_%hd177590178229%_ + (##cdr _%e176606177241%_))) + (_%hd176605177244%_ (let () (declare (not safe)) - (##car _%e177591178226%_)))) + (##car _%e176606177241%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd177590178229%_)) - (let ((_%e177594178234%_ + (gx#stx-pair? _%hd176605177244%_)) + (let ((_%e176609177249%_ (let () (declare (not safe)) - (gx#stx-e _%hd177590178229%_)))) - (let ((_%tl177592178239%_ + (gx#stx-e _%hd176605177244%_)))) + (let ((_%tl176607177254%_ (let () (declare (not safe)) - (##cdr _%e177594178234%_))) - (_%hd177593178237%_ + (##cdr _%e176609177249%_))) + (_%hd176608177252%_ (let () (declare (not safe)) - (##car _%e177594178234%_)))) + (##car _%e176609177249%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd177593178237%_)) + (gx#identifier? _%hd176608177252%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd177593178237%_)) + _%hd176608177252%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177592178239%_)) - (let ((_%e177597178242%_ + _%tl176607177254%_)) + (let ((_%e176612177257%_ (let () (declare (not safe)) (gx#stx-e - _%tl177592178239%_)))) - (let ((_%tl177595178247%_ + _%tl176607177254%_)))) + (let ((_%tl176610177262%_ (let () (declare (not safe)) - (##cdr _%e177597178242%_))) - (_%hd177596178245%_ + (##cdr _%e176612177257%_))) + (_%hd176611177260%_ (let () (declare (not safe)) - (##car _%e177597178242%_)))) + (##car _%e176612177257%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177595178247%_)) + _%tl176610177262%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177589178231%_)) - (_%__kont185493185494%_ - _%hd177596178245%_ - _%hd177563178537%_ - _%hd177560178529%_) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_))))) + _%tl176604177246%_)) + (_%__kont184508184509%_ + _%hd176611177260%_ + _%hd176578177552%_ + _%hd176575177544%_) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd177557178521%_)) + _%hd176572177536%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177556178523%_)) - (let ((_%e177705177761%_ + (gx#stx-pair? _%tl176571177538%_)) + (let ((_%e176720176776%_ (let () (declare (not safe)) (gx#stx-e - _%tl177556178523%_)))) - (let ((_%tl177703177766%_ + _%tl176571177538%_)))) + (let ((_%tl176718176781%_ (let () (declare (not safe)) - (##cdr _%e177705177761%_))) - (_%hd177704177764%_ + (##cdr _%e176720176776%_))) + (_%hd176719176779%_ (let () (declare (not safe)) - (##car _%e177705177761%_)))) + (##car _%e176720176776%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd177704177764%_)) - (let ((_%e177708177769%_ + _%hd176719176779%_)) + (let ((_%e176723176784%_ (let () (declare (not safe)) (gx#stx-e - _%hd177704177764%_)))) - (let ((_%tl177706177774%_ + _%hd176719176779%_)))) + (let ((_%tl176721176789%_ (let () (declare (not safe)) - (##cdr _%e177708177769%_))) - (_%hd177707177772%_ + (##cdr _%e176723176784%_))) + (_%hd176722176787%_ (let () (declare (not safe)) - (##car _%e177708177769%_)))) + (##car _%e176723176784%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177706177774%_)) + _%tl176721176789%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl177703177766%_)) - (let ((_%e177711177777%_ + (gx#stx-pair? _%tl176718176781%_)) + (let ((_%e176726176792%_ (let () (declare (not safe)) - (gx#stx-e _%tl177703177766%_)))) - (let ((_%tl177709177782%_ + (gx#stx-e _%tl176718176781%_)))) + (let ((_%tl176724176797%_ (let () (declare (not safe)) - (##cdr _%e177711177777%_))) - (_%hd177710177780%_ + (##cdr _%e176726176792%_))) + (_%hd176725176795%_ (let () (declare (not safe)) - (##car _%e177711177777%_)))) + (##car _%e176726176792%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177709177782%_)) + (gx#stx-null? _%tl176724176797%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177553178515%_)) - (let ((_%e177714177785%_ + (gx#stx-pair? _%tl176568177530%_)) + (let ((_%e176729176800%_ (let () (declare (not safe)) - (gx#stx-e _%tl177553178515%_)))) - (let ((_%tl177712177790%_ + (gx#stx-e _%tl176568177530%_)))) + (let ((_%tl176727176805%_ (let () (declare (not safe)) - (##cdr _%e177714177785%_))) - (_%hd177713177788%_ + (##cdr _%e176729176800%_))) + (_%hd176728176803%_ (let () (declare (not safe)) - (##car _%e177714177785%_)))) + (##car _%e176729176800%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd177713177788%_)) - (let ((_%e177717177793%_ + (gx#stx-pair? _%hd176728176803%_)) + (let ((_%e176732176808%_ (let () (declare (not safe)) (gx#stx-e - _%hd177713177788%_)))) - (let ((_%tl177715177798%_ + _%hd176728176803%_)))) + (let ((_%tl176730176813%_ (let () (declare (not safe)) - (##cdr _%e177717177793%_))) - (_%hd177716177796%_ + (##cdr _%e176732176808%_))) + (_%hd176731176811%_ (let () (declare (not safe)) - (##car _%e177717177793%_)))) + (##car _%e176732176808%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd177716177796%_)) + _%hd176731176811%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd177716177796%_)) + _%hd176731176811%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177715177798%_)) - (let ((_%e177720177801%_ + _%tl176730176813%_)) + (let ((_%e176735176816%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl177715177798%_)))) - (let ((_%tl177718177806%_ + (gx#stx-e _%tl176730176813%_)))) + (let ((_%tl176733176821%_ (let () (declare (not safe)) - (##cdr _%e177720177801%_))) - (_%hd177719177804%_ + (##cdr _%e176735176816%_))) + (_%hd176734176819%_ (let () (declare (not safe)) - (##car _%e177720177801%_)))) + (##car _%e176735176816%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177718177806%_)) + (gx#stx-null? _%tl176733176821%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177712177790%_)) - (_%__kont185501185502%_ - _%hd177719177804%_ - _%hd177710177780%_ - _%hd177707177772%_) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) + (gx#stx-null? _%tl176727176805%_)) + (_%__kont184516184517%_ + _%hd176734176819%_ + _%hd176725176795%_ + _%hd176722176787%_) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)) - (_%__kont185503185504%_))) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_)))) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)) + (_%__kont184518184519%_))) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185503185504%_)) - (_%__kont185503185504%_)) - (_%__kont185503185504%_)))) - (_%__kont185503185504%_))))))))) - (_%assert-type176529%_ - (lambda (_%id177435%_ _%t177436%_) - (let _%lp177438%_ ((_%rest177440%_ _%env-type176511%_)) - (let* ((_%rest177441177449%_ _%rest177440%_) - (_%else177443177457%_ (lambda () '#!void)) - (_%K177445177516%_ - (lambda (_%rest177460%_ _%type-info177461%_) - (let* ((_%type-info177462177474%_ - _%type-info177461%_) - (_%else177464177482%_ + (_%__kont184518184519%_)) + (_%__kont184518184519%_)) + (_%__kont184518184519%_)))) + (_%__kont184518184519%_))))))))) + (_%assert-type175544%_ + (lambda (_%id176450%_ _%t176451%_) + (let _%lp176453%_ ((_%rest176455%_ _%env-type175526%_)) + (let* ((_%rest176456176464%_ _%rest176455%_) + (_%else176458176472%_ (lambda () '#!void)) + (_%K176460176531%_ + (lambda (_%rest176475%_ _%type-info176476%_) + (let* ((_%type-info176477176489%_ + _%type-info176476%_) + (_%else176479176497%_ (lambda () - (let () - (declare (not safe)) - (_%lp177438%_ _%rest177460%_)))) - (_%K177466177492%_ - (lambda (_%val177485%_ - _%xt177486%_ - _%xid177487%_) + (_%lp176453%_ _%rest176475%_))) + (_%K176481176507%_ + (lambda (_%val176500%_ + _%xt176501%_ + _%xid176502%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%id177435%_ - _%xid177487%_)) - (if (eq? _%t177436%_ - _%xt177486%_) - (let () _%val177485%_) - (if _%val177485%_ - (let () - (if (let () - (declare + _%id176450%_ + _%xid176502%_)) + (if (eq? _%t176451%_ + _%xt176501%_) + _%val176500%_ + (if _%val176500%_ + (if (let () + (declare + (not safe)) + (##structure-instance-of? + _%t176451%_ + 'gxc#!class::t)) + (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##structure-instance-of? _%t177436%_ 'gxc#!class::t)) - (if (let () - (declare (not safe)) - (##structure-instance-of? - _%xt177486%_ - 'gxc#!class::t)) - (let () - (declare (not safe)) - (gxc#!class-subclass? _%t177436%_ _%xt177486%_)) - '#f) - '#f)) - (let () - (if (and (let () - (declare (not safe)) - (##structure-instance-of? - _%t177436%_ - 'gxc#!class::t)) - (let () - (declare (not safe)) - (##structure-instance-of? - _%xt177486%_ - 'gxc#!class::t)) - (let () - (declare (not safe)) - (gxc#!class-subclass? _%t177436%_ _%xt177486%_))) - '#f - (let () - (declare (not safe)) - (_%lp177438%_ _%rest177460%_)))))) + (declare (not safe)) + (##structure-instance-of? + _%xt176501%_ + 'gxc#!class::t)) + (let () + (declare (not safe)) + (gxc#!class-subclass? _%t176451%_ _%xt176501%_)) + '#f) + '#f) + (if (and (let () + (declare (not safe)) + (##structure-instance-of? + _%t176451%_ + 'gxc#!class::t)) + (let () + (declare (not safe)) + (##structure-instance-of? + _%xt176501%_ + 'gxc#!class::t)) + (let () + (declare (not safe)) + (gxc#!class-subclass? _%t176451%_ _%xt176501%_))) + '#f + (_%lp176453%_ _%rest176475%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%lp177438%_ - _%rest177460%_)))))) + (_%lp176453%_ + _%rest176475%_))))) (if (let () (declare (not safe)) - (##pair? _%type-info177462177474%_)) - (let ((_%hd177467177495%_ + (##pair? _%type-info176477176489%_)) + (let ((_%hd176482176510%_ (let () (declare (not safe)) - (##car _%type-info177462177474%_))) - (_%tl177468177497%_ + (##car _%type-info176477176489%_))) + (_%tl176483176512%_ (let () (declare (not safe)) - (##cdr _%type-info177462177474%_)))) - (let ((_%xid177500%_ - _%hd177467177495%_)) + (##cdr _%type-info176477176489%_)))) + (let ((_%xid176515%_ + _%hd176482176510%_)) (if (let () (declare (not safe)) - (##pair? _%tl177468177497%_)) - (let ((_%hd177469177502%_ + (##pair? _%tl176483176512%_)) + (let ((_%hd176484176517%_ (let () (declare (not safe)) - (##car _%tl177468177497%_))) - (_%tl177470177504%_ + (##car _%tl176483176512%_))) + (_%tl176485176519%_ (let () (declare (not safe)) - (##cdr _%tl177468177497%_)))) - (let ((_%xt177507%_ - _%hd177469177502%_)) + (##cdr _%tl176483176512%_)))) + (let ((_%xt176522%_ + _%hd176484176517%_)) (if (let () (declare (not safe)) - (##pair? _%tl177470177504%_)) - (let ((_%hd177471177509%_ + (##pair? _%tl176485176519%_)) + (let ((_%hd176486176524%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl177470177504%_))) - (_%tl177472177511%_ + (##car _%tl176485176519%_))) + (_%tl176487176526%_ (let () (declare (not safe)) - (##cdr _%tl177470177504%_)))) - (let ((_%val177514%_ _%hd177471177509%_)) + (##cdr _%tl176485176519%_)))) + (let ((_%val176529%_ _%hd176486176524%_)) (if (let () (declare (not safe)) - (##null? _%tl177472177511%_)) - (let () - (declare (not safe)) - (_%K177466177492%_ - _%val177514%_ - _%xt177507%_ - _%xid177500%_)) - (let () (declare (not safe)) (_%else177464177482%_))))) - (let () (declare (not safe)) (_%else177464177482%_))))) + (##null? _%tl176487176526%_)) + (_%K176481176507%_ + _%val176529%_ + _%xt176522%_ + _%xid176515%_) + (_%else176479176497%_)))) + (_%else176479176497%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%else177464177482%_))))) - (let () - (declare (not safe)) - (_%else177464177482%_))))))) + (_%else176479176497%_)))) + (_%else176479176497%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest177441177449%_)) - (let ((_%hd177446177519%_ + (##pair? _%rest176456176464%_)) + (let ((_%hd176461176534%_ (let () (declare (not safe)) - (##car _%rest177441177449%_))) - (_%tl177447177521%_ + (##car _%rest176456176464%_))) + (_%tl176462176536%_ (let () (declare (not safe)) - (##cdr _%rest177441177449%_)))) - (let* ((_%type-info177524%_ _%hd177446177519%_) - (_%rest177526%_ _%tl177447177521%_)) - (declare (not safe)) - (_%K177445177516%_ - _%rest177526%_ - _%type-info177524%_))) - (let () - (declare (not safe)) - (_%else177443177457%_))))))) - (_%assert-count176530%_ - (lambda (_%id177331%_ _%sym177332%_ _%count177333%_) - (let _%lp177335%_ ((_%rest177337%_ _%env-type176511%_)) - (let* ((_%rest177338177346%_ _%rest177337%_) - (_%else177340177354%_ (lambda () '#!void)) - (_%K177342177423%_ - (lambda (_%rest177357%_ _%type-info177358%_) - (let* ((_%type-info177359177373%_ - _%type-info177358%_) - (_%else177361177381%_ + (##cdr _%rest176456176464%_)))) + (let* ((_%type-info176539%_ _%hd176461176534%_) + (_%rest176541%_ _%tl176462176536%_)) + (_%K176460176531%_ + _%rest176541%_ + _%type-info176539%_))) + (_%else176458176472%_)))))) + (_%assert-count175545%_ + (lambda (_%id176346%_ _%sym176347%_ _%count176348%_) + (let _%lp176350%_ ((_%rest176352%_ _%env-type175526%_)) + (let* ((_%rest176353176361%_ _%rest176352%_) + (_%else176355176369%_ (lambda () '#!void)) + (_%K176357176438%_ + (lambda (_%rest176372%_ _%type-info176373%_) + (let* ((_%type-info176374176388%_ + _%type-info176373%_) + (_%else176376176396%_ (lambda () - (let () - (declare (not safe)) - (_%lp177335%_ _%rest177357%_)))) - (_%K177363177392%_ - (lambda (_%val177384%_ - _%xcount177385%_ - _%xsym177386%_ - _%xid177387%_) - (if (and (eq? _%sym177332%_ - _%xsym177386%_) + (_%lp176350%_ _%rest176372%_))) + (_%K176378176407%_ + (lambda (_%val176399%_ + _%xcount176400%_ + _%xsym176401%_ + _%xid176402%_) + (if (and (eq? _%sym176347%_ + _%xsym176401%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id177331%_ - _%xid177387%_))) - (if _%val177384%_ - (let () - (fx= _%count177333%_ - _%xcount177385%_)) - (if (fx= _%count177333%_ - _%xcount177385%_) - (let () '#f) - (let () - (declare (not safe)) - (_%lp177335%_ - _%rest177357%_)))) - (let () - (declare (not safe)) - (_%lp177335%_ - _%rest177357%_)))))) + _%id176346%_ + _%xid176402%_))) + (if _%val176399%_ + (fx= _%count176348%_ + _%xcount176400%_) + (if (fx= _%count176348%_ + _%xcount176400%_) + '#f + (_%lp176350%_ + _%rest176372%_))) + (_%lp176350%_ + _%rest176372%_))))) (if (let () (declare (not safe)) - (##pair? _%type-info177359177373%_)) - (let ((_%hd177364177395%_ + (##pair? _%type-info176374176388%_)) + (let ((_%hd176379176410%_ (let () (declare (not safe)) - (##car _%type-info177359177373%_))) - (_%tl177365177397%_ + (##car _%type-info176374176388%_))) + (_%tl176380176412%_ (let () (declare (not safe)) - (##cdr _%type-info177359177373%_)))) - (let ((_%xid177400%_ - _%hd177364177395%_)) + (##cdr _%type-info176374176388%_)))) + (let ((_%xid176415%_ + _%hd176379176410%_)) (if (let () (declare (not safe)) - (##pair? _%tl177365177397%_)) - (let ((_%hd177366177402%_ + (##pair? _%tl176380176412%_)) + (let ((_%hd176381176417%_ (let () (declare (not safe)) - (##car _%tl177365177397%_))) - (_%tl177367177404%_ + (##car _%tl176380176412%_))) + (_%tl176382176419%_ (let () (declare (not safe)) - (##cdr _%tl177365177397%_)))) - (let ((_%xsym177407%_ - _%hd177366177402%_)) + (##cdr _%tl176380176412%_)))) + (let ((_%xsym176422%_ + _%hd176381176417%_)) (if (let () (declare (not safe)) - (##pair? _%tl177367177404%_)) - (let ((_%hd177368177409%_ + (##pair? _%tl176382176419%_)) + (let ((_%hd176383176424%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl177367177404%_))) - (_%tl177369177411%_ + (##car _%tl176382176419%_))) + (_%tl176384176426%_ (let () (declare (not safe)) - (##cdr _%tl177367177404%_)))) - (let ((_%xcount177414%_ _%hd177368177409%_)) + (##cdr _%tl176382176419%_)))) + (let ((_%xcount176429%_ _%hd176383176424%_)) (if (let () (declare (not safe)) - (##pair? _%tl177369177411%_)) - (let ((_%hd177370177416%_ + (##pair? _%tl176384176426%_)) + (let ((_%hd176385176431%_ (let () (declare (not safe)) - (##car _%tl177369177411%_))) - (_%tl177371177418%_ + (##car _%tl176384176426%_))) + (_%tl176386176433%_ (let () (declare (not safe)) - (##cdr _%tl177369177411%_)))) - (let ((_%val177421%_ _%hd177370177416%_)) + (##cdr _%tl176384176426%_)))) + (let ((_%val176436%_ _%hd176385176431%_)) (if (let () (declare (not safe)) - (##null? _%tl177371177418%_)) - (let () - (declare (not safe)) - (_%K177363177392%_ - _%val177421%_ - _%xcount177414%_ - _%xsym177407%_ - _%xid177400%_)) - (let () - (declare (not safe)) - (_%else177361177381%_))))) - (let () (declare (not safe)) (_%else177361177381%_))))) - (let () (declare (not safe)) (_%else177361177381%_))))) + (##null? _%tl176386176433%_)) + (_%K176378176407%_ + _%val176436%_ + _%xcount176429%_ + _%xsym176422%_ + _%xid176415%_) + (_%else176376176396%_)))) + (_%else176376176396%_)))) + (_%else176376176396%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%else177361177381%_))))) - (let () - (declare (not safe)) - (_%else177361177381%_))))))) + (_%else176376176396%_)))) + (_%else176376176396%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest177338177346%_)) - (let ((_%hd177343177426%_ + (##pair? _%rest176353176361%_)) + (let ((_%hd176358176441%_ (let () (declare (not safe)) - (##car _%rest177338177346%_))) - (_%tl177344177428%_ + (##car _%rest176353176361%_))) + (_%tl176359176443%_ (let () (declare (not safe)) - (##cdr _%rest177338177346%_)))) - (let* ((_%type-info177431%_ _%hd177343177426%_) - (_%rest177433%_ _%tl177344177428%_)) - (declare (not safe)) - (_%K177342177423%_ - _%rest177433%_ - _%type-info177431%_))) - (let () - (declare (not safe)) - (_%else177340177354%_))))))) - (_%assert-eqf176531%_ - (lambda (_%id177218%_ _%sym177219%_ _%datum177220%_) - (letrec ((_%eqf177222%_ - (lambda (_%sym177326%_) - (let ((_%$e177328%_ _%sym177326%_)) - (if (eq? 'eq? _%$e177328%_) + (##cdr _%rest176353176361%_)))) + (let* ((_%type-info176446%_ _%hd176358176441%_) + (_%rest176448%_ _%tl176359176443%_)) + (_%K176357176438%_ + _%rest176448%_ + _%type-info176446%_))) + (_%else176355176369%_)))))) + (_%assert-eqf175546%_ + (lambda (_%id176233%_ _%sym176234%_ _%datum176235%_) + (letrec ((_%eqf176237%_ + (lambda (_%sym176341%_) + (let ((_%$e176343%_ _%sym176341%_)) + (if (eq? 'eq? _%$e176343%_) eq? - (if (eq? 'eqv? _%$e177328%_) + (if (eq? 'eqv? _%$e176343%_) eqv? - (if (eq? 'equal? _%$e177328%_) + (if (eq? 'equal? _%$e176343%_) equal? (if (eq? 'free-identifier=? - _%$e177328%_) + _%$e176343%_) gx#free-identifier=? (if (eq? 'stx-eq? - _%$e177328%_) + _%$e176343%_) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _%body176272%_ - _%sym177326%_))))))))))) - (let _%lp177224%_ ((_%rest177226%_ _%env-type176511%_)) - (let* ((_%rest177227177235%_ _%rest177226%_) - (_%else177229177243%_ (lambda () '#!void)) - (_%K177231177314%_ - (lambda (_%rest177246%_ _%type-info177247%_) - (let* ((_%type-info177248177262%_ - _%type-info177247%_) - (_%else177250177270%_ + _%body175287%_ + _%sym176341%_))))))))))) + (let _%lp176239%_ ((_%rest176241%_ _%env-type175526%_)) + (let* ((_%rest176242176250%_ _%rest176241%_) + (_%else176244176258%_ (lambda () '#!void)) + (_%K176246176329%_ + (lambda (_%rest176261%_ _%type-info176262%_) + (let* ((_%type-info176263176277%_ + _%type-info176262%_) + (_%else176265176285%_ (lambda () - (let () - (declare (not safe)) - (_%lp177224%_ _%rest177246%_)))) - (_%K177252177283%_ - (lambda (_%val177273%_ - _%xdatum177274%_ - _%xsym177275%_ - _%xid177276%_) - (if (and (eq? _%sym177219%_ - _%xsym177275%_) + (_%lp176239%_ _%rest176261%_))) + (_%K176267176298%_ + (lambda (_%val176288%_ + _%xdatum176289%_ + _%xsym176290%_ + _%xid176291%_) + (if (and (eq? _%sym176234%_ + _%xsym176290%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id177218%_ - _%xid177276%_))) - (let ((_%=?177278%_ - (let () - (declare (not safe)) - (_%eqf177222%_ - _%sym177219%_)))) - (if _%val177273%_ - (let () - (_%=?177278%_ - _%datum177220%_ - _%xdatum177274%_)) - (if (_%=?177278%_ - _%datum177220%_ - _%xdatum177274%_) - (let () '#f) - (let () - (declare - (not safe)) - (_%lp177224%_ - _%rest177246%_))))) - (let () - (declare (not safe)) - (_%lp177224%_ - _%rest177246%_)))))) + _%id176233%_ + _%xid176291%_))) + (let ((_%=?176293%_ + (_%eqf176237%_ + _%sym176234%_))) + (if _%val176288%_ + (_%=?176293%_ + _%datum176235%_ + _%xdatum176289%_) + (if (_%=?176293%_ + _%datum176235%_ + _%xdatum176289%_) + '#f + (_%lp176239%_ + _%rest176261%_)))) + (_%lp176239%_ + _%rest176261%_))))) (if (let () (declare (not safe)) - (##pair? _%type-info177248177262%_)) - (let ((_%hd177253177286%_ + (##pair? _%type-info176263176277%_)) + (let ((_%hd176268176301%_ (let () (declare (not safe)) - (##car _%type-info177248177262%_))) - (_%tl177254177288%_ + (##car _%type-info176263176277%_))) + (_%tl176269176303%_ (let () (declare (not safe)) - (##cdr _%type-info177248177262%_)))) - (let ((_%xid177291%_ - _%hd177253177286%_)) + (##cdr _%type-info176263176277%_)))) + (let ((_%xid176306%_ + _%hd176268176301%_)) (if (let () (declare (not safe)) - (##pair? _%tl177254177288%_)) - (let ((_%hd177255177293%_ + (##pair? _%tl176269176303%_)) + (let ((_%hd176270176308%_ (let () (declare (not safe)) - (##car _%tl177254177288%_))) - (_%tl177256177295%_ + (##car _%tl176269176303%_))) + (_%tl176271176310%_ (let () (declare (not safe)) - (##cdr _%tl177254177288%_)))) - (let ((_%xsym177298%_ - _%hd177255177293%_)) + (##cdr _%tl176269176303%_)))) + (let ((_%xsym176313%_ + _%hd176270176308%_)) (if (let () (declare (not safe)) - (##pair? _%tl177256177295%_)) - (let ((_%hd177257177300%_ + (##pair? _%tl176271176310%_)) + (let ((_%hd176272176315%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%tl177256177295%_))) - (_%tl177258177302%_ + (##car _%tl176271176310%_))) + (_%tl176273176317%_ (let () (declare (not safe)) - (##cdr _%tl177256177295%_)))) - (let ((_%xdatum177305%_ _%hd177257177300%_)) + (##cdr _%tl176271176310%_)))) + (let ((_%xdatum176320%_ _%hd176272176315%_)) (if (let () (declare (not safe)) - (##pair? _%tl177258177302%_)) - (let ((_%hd177259177307%_ + (##pair? _%tl176273176317%_)) + (let ((_%hd176274176322%_ (let () (declare (not safe)) - (##car _%tl177258177302%_))) - (_%tl177260177309%_ + (##car _%tl176273176317%_))) + (_%tl176275176324%_ (let () (declare (not safe)) - (##cdr _%tl177258177302%_)))) - (let ((_%val177312%_ _%hd177259177307%_)) + (##cdr _%tl176273176317%_)))) + (let ((_%val176327%_ _%hd176274176322%_)) (if (let () (declare (not safe)) - (##null? _%tl177260177309%_)) - (let () - (declare (not safe)) - (_%K177252177283%_ - _%val177312%_ - _%xdatum177305%_ - _%xsym177298%_ - _%xid177291%_)) - (let () - (declare (not safe)) - (_%else177250177270%_))))) - (let () - (declare (not safe)) - (_%else177250177270%_))))) - (let () (declare (not safe)) (_%else177250177270%_))))) + (##null? _%tl176275176324%_)) + (_%K176267176298%_ + _%val176327%_ + _%xdatum176320%_ + _%xsym176313%_ + _%xid176306%_) + (_%else176265176285%_)))) + (_%else176265176285%_)))) + (_%else176265176285%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%else177250177270%_))))) - (let () - (declare (not safe)) - (_%else177250177270%_))))))) + (_%else176265176285%_)))) + (_%else176265176285%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest177227177235%_)) - (let ((_%hd177232177317%_ + (##pair? _%rest176242176250%_)) + (let ((_%hd176247176332%_ (let () (declare (not safe)) - (##car _%rest177227177235%_))) - (_%tl177233177319%_ + (##car _%rest176242176250%_))) + (_%tl176248176334%_ (let () (declare (not safe)) - (##cdr _%rest177227177235%_)))) - (let* ((_%type-info177322%_ - _%hd177232177317%_) - (_%rest177324%_ _%tl177233177319%_)) - (declare (not safe)) - (_%K177231177314%_ - _%rest177324%_ - _%type-info177322%_))) - (let () - (declare (not safe)) - (_%else177229177243%_)))))))) - (_%bind-e__183886183887%_ - (lambda (_%bind177120%_ _%body177121%_ _%continue177122%_) - (let _%lp177124%_ ((_%rest177126%_ _%bind177120%_) - (_%subst177127%_ '()) - (_%locals177128%_ '()) - (_%env177129%_ _%env-bind176512%_)) - (let* ((_%rest177130177138%_ _%rest177126%_) - (_%else177132177152%_ + (##cdr _%rest176242176250%_)))) + (let* ((_%type-info176337%_ + _%hd176247176332%_) + (_%rest176339%_ _%tl176248176334%_)) + (_%K176246176329%_ + _%rest176339%_ + _%type-info176337%_))) + (_%else176244176258%_))))))) + (_%bind-e__182901182902%_ + (lambda (_%bind176135%_ _%body176136%_ _%continue176137%_) + (let _%lp176139%_ ((_%rest176141%_ _%bind176135%_) + (_%subst176142%_ '()) + (_%locals176143%_ '()) + (_%env176144%_ _%env-bind175527%_)) + (let* ((_%rest176145176153%_ _%rest176141%_) + (_%else176147176167%_ (lambda () - (let* ((_%body177146%_ - (if (let () - (declare (not safe)) - (null? _%subst177127%_)) - _%body177121%_ + (let* ((_%body176161%_ + (if (null? _%subst176142%_) + _%body176136%_ (let () (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst177127%_ - _%body177121%_)))) - (_%body177149%_ - (let ((__tmp187097 - (lambda () - (_%continue177122%_ - _%body177146%_)))) - (declare (not safe)) - (_%do-bind!176523%_ - _%env177129%_ - __tmp187097)))) - (if (let () - (declare (not safe)) - (null? _%locals177128%_)) - _%body177149%_ + _%subst176142%_ + _%body176136%_)))) + (_%body176164%_ + (_%do-bind!175538%_ + _%env176144%_ + (lambda () + (_%continue176137%_ + _%body176161%_))))) + (if (null? _%locals176143%_) + _%body176164%_ (cons '%#let-values - (cons _%locals177128%_ - (cons _%body177149%_ + (cons _%locals176143%_ + (cons _%body176164%_ '()))))))) - (_%K177134177194%_ - (lambda (_%rest177155%_ _%bind177156%_) - (let* ((_%bind177157177164%_ _%bind177156%_) - (_%E177159177168%_ + (_%K176149176209%_ + (lambda (_%rest176170%_ _%bind176171%_) + (let* ((_%bind176172176179%_ _%bind176171%_) + (_%E176174176183%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind177157177164%_ + _%bind176172176179%_ '([id . expr]))) '#!void)) - (_%K177160177182%_ - (lambda (_%expr177171%_ _%id177172%_) - (let* ((_%sexpr177174%_ - (let () - (declare (not safe)) - (gxc#apply-generate-runtime-repr - _%expr177171%_))) - (_%$e177176%_ + (_%K176175176197%_ + (lambda (_%expr176186%_ _%id176187%_) + (let* ((_%sexpr176189%_ + (gxc#apply-generate-runtime-repr + _%expr176186%_)) + (_%$e176191%_ (let () (declare (not safe)) - (aget__0 _%sexpr177174%_ - _%env-bind176512%_)))) - (if _%$e177176%_ - ((lambda (_%xid177179%_) - (let ((__tmp187098 - (cons (cons _%id177172%_ + (aget__0 _%sexpr176189%_ + _%env-bind175527%_)))) + (if _%$e176191%_ + ((lambda (_%xid176194%_) + (_%lp176139%_ + _%rest176170%_ + (cons (cons _%id176187%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%xid177179%_) - _%subst177127%_))) - (declare (not safe)) - (_%lp177124%_ - _%rest177155%_ - __tmp187098 - _%locals177128%_ - _%env177129%_))) + _%xid176194%_) + _%subst176142%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e177176%_) - (let ((__tmp187100 - (cons (cons (cons _%id177172%_ + _%locals176143%_ + _%env176144%_)) + _%$e176191%_) + (_%lp176139%_ + _%rest176170%_ + _%subst176142%_ + (cons (cons (cons _%id176187%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _%expr177171%_ '())) - _%locals177128%_)) - (__tmp187099 - (cons (cons _%sexpr177174%_ _%id177172%_) _%env177129%_))) + '()) + (cons _%expr176186%_ '())) + _%locals176143%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp177124%_ - _%rest177155%_ - _%subst177127%_ - __tmp187100 - __tmp187099))))))) + (cons (cons _%sexpr176189%_ + _%id176187%_) + _%env176144%_))))))) (if (let () (declare (not safe)) - (##pair? _%bind177157177164%_)) - (let ((_%hd177161177185%_ + (##pair? _%bind176172176179%_)) + (let ((_%hd176176176200%_ (let () (declare (not safe)) - (##car _%bind177157177164%_))) - (_%tl177162177187%_ + (##car _%bind176172176179%_))) + (_%tl176177176202%_ (let () (declare (not safe)) - (##cdr _%bind177157177164%_)))) - (let* ((_%id177190%_ - _%hd177161177185%_) - (_%expr177192%_ - _%tl177162177187%_)) - (declare (not safe)) - (_%K177160177182%_ - _%expr177192%_ - _%id177190%_))) - (let () - (declare (not safe)) - (_%E177159177168%_))))))) + (##cdr _%bind176172176179%_)))) + (let* ((_%id176205%_ + _%hd176176176200%_) + (_%expr176207%_ + _%tl176177176202%_)) + (_%K176175176197%_ + _%expr176207%_ + _%id176205%_))) + (_%E176174176183%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest177130177138%_)) - (let ((_%hd177135177197%_ + (##pair? _%rest176145176153%_)) + (let ((_%hd176150176212%_ (let () (declare (not safe)) - (##car _%rest177130177138%_))) - (_%tl177136177199%_ + (##car _%rest176145176153%_))) + (_%tl176151176214%_ (let () (declare (not safe)) - (##cdr _%rest177130177138%_)))) - (let* ((_%bind177202%_ _%hd177135177197%_) - (_%rest177204%_ _%tl177136177199%_)) - (declare (not safe)) - (_%K177134177194%_ - _%rest177204%_ - _%bind177202%_))) - (let () - (declare (not safe)) - (_%else177132177152%_))))))) - (_%bind-e__0__183888183889%_ - (lambda (_%bind177209%_ _%body177210%_) - (let ((_%continue177212%_ _%optimize-e176525%_)) - (declare (not safe)) - (_%bind-e__183886183887%_ - _%bind177209%_ - _%body177210%_ - _%continue177212%_)))) - (_%bind-e176532%_ - (lambda _g187102_ - (let ((_g187101_ + (##cdr _%rest176145176153%_)))) + (let* ((_%bind176217%_ _%hd176150176212%_) + (_%rest176219%_ _%tl176151176214%_)) + (_%K176149176209%_ + _%rest176219%_ + _%bind176217%_))) + (_%else176147176167%_)))))) + (_%bind-e__0__182903182904%_ + (lambda (_%bind176224%_ _%body176225%_) + (let ((_%continue176227%_ _%optimize-e175540%_)) + (_%bind-e__182901182902%_ + _%bind176224%_ + _%body176225%_ + _%continue176227%_)))) + (_%bind-e175547%_ + (lambda _g186060_ + (let ((_g186059_ (let () (declare (not safe)) - (##length _g187102_)))) - (cond ((let () (declare (not safe)) (##fx= _g187101_ 2)) - (apply (lambda (_%bind177209%_ _%body177210%_) - (let () - (declare (not safe)) - (_%bind-e__0__183888183889%_ - _%bind177209%_ - _%body177210%_))) - _g187102_)) - ((let () (declare (not safe)) (##fx= _g187101_ 3)) - (apply (lambda (_%bind177214%_ - _%body177215%_ - _%continue177216%_) - (let () - (declare (not safe)) - (_%bind-e__183886183887%_ - _%bind177214%_ - _%body177215%_ - _%continue177216%_))) - _g187102_)) + (##length _g186060_)))) + (cond ((let () (declare (not safe)) (##fx= _g186059_ 2)) + (apply _%bind-e__0__182903182904%_ _g186060_)) + ((let () (declare (not safe)) (##fx= _g186059_ 3)) + (apply _%bind-e__182901182902%_ _g186060_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g187102_)))))) - (_%lookup-block176533%_ - (lambda (_%id177115%_) - (let ((__tmp187103 - (lambda (_%block177117%_) - (let ((__tmp187104 (car _%block177117%_))) + _g186060_)))))) + (_%lookup-block175548%_ + (lambda (_%id176130%_) + (let ((__tmp186061 + (lambda (_%block176132%_) + (let ((__tmp186062 (car _%block176132%_))) (declare (not safe)) (gx#free-identifier=? - __tmp187104 - _%id177115%_))))) + __tmp186062 + _%id176130%_))))) (declare (not safe)) - (__find __tmp187103 _%blocks176275%_)))) - (_%inline-block176534%_ - (lambda (_%block176991%_ _%args176992%_) - (let* ((_%kont176994%_ (caddr _%block176991%_)) - (_%g176996177022%_ - (lambda (_%g176997177019%_) + (__find __tmp186061 _%blocks175290%_)))) + (_%inline-block175549%_ + (lambda (_%block176006%_ _%args176007%_) + (let* ((_%kont176009%_ (caddr _%block176006%_)) + (_%g176011176037%_ + (lambda (_%g176012176034%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176997177019%_)))) - (_%g176995177112%_ - (lambda (_%g176997177025%_) + _%g176012176034%_)))) + (_%g176010176127%_ + (lambda (_%g176012176040%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176997177025%_)) - (let ((_%e177002177027%_ + (gx#stx-pair? _%g176012176040%_)) + (let ((_%e176017176042%_ (let () (declare (not safe)) - (gx#stx-e _%g176997177025%_)))) - (let ((_%hd177001177030%_ + (gx#stx-e _%g176012176040%_)))) + (let ((_%hd176016176045%_ (let () (declare (not safe)) - (##car _%e177002177027%_))) - (_%tl177000177032%_ + (##car _%e176017176042%_))) + (_%tl176015176047%_ (let () (declare (not safe)) - (##cdr _%e177002177027%_)))) + (##cdr _%e176017176042%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd177001177030%_)) + _%hd176016176045%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd177001177030%_)) + _%hd176016176045%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177000177032%_)) - (let ((_%e177005177035%_ + _%tl176015176047%_)) + (let ((_%e176020176050%_ (let () (declare (not safe)) (gx#stx-e - _%tl177000177032%_)))) - (let ((_%hd177004177038%_ + _%tl176015176047%_)))) + (let ((_%hd176019176053%_ (let () (declare (not safe)) - (##car _%e177005177035%_))) - (_%tl177003177040%_ + (##car _%e176020176050%_))) + (_%tl176018176055%_ (let () (declare (not safe)) - (##cdr _%e177005177035%_)))) + (##cdr _%e176020176050%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd177004177038%_)) - (let ((_g187105_ + _%hd176019176053%_)) + (let ((_g186063_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd177004177038%_ '0)))) + (gx#syntax-split-splice _%hd176019176053%_ '0)))) (begin - (let ((_g187106_ + (let ((_g186064_ (let () (declare (not safe)) - (if (##values? _g187105_) - (##vector-length _g187105_) + (if (##values? _g186063_) + (##vector-length _g186063_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g187106_ 2))) - (error "Context expects 2 values" _g187106_))) - (let ((_%target177006177043%_ + (##fx= _g186064_ 2))) + (error "Context expects 2 values" _g186064_))) + (let ((_%target176021176058%_ (let () (declare (not safe)) - (##vector-ref _g187105_ 0))) - (_%tl177008177045%_ + (##vector-ref _g186063_ 0))) + (_%tl176023176060%_ (let () (declare (not safe)) - (##vector-ref _g187105_ 1)))) + (##vector-ref _g186063_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177008177045%_)) - (letrec ((_%loop177009177048%_ - (lambda (_%hd177007177051%_ - _%id177013177053%_) + (gx#stx-null? _%tl176023176060%_)) + (letrec ((_%loop176024176063%_ + (lambda (_%hd176022176066%_ + _%id176028176068%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd177007177051%_)) - (let ((_%e177010177056%_ + _%hd176022176066%_)) + (let ((_%e176025176071%_ (let () (declare (not safe)) (gx#stx-e - _%hd177007177051%_)))) - (let ((_%lp-hd177011177059%_ + _%hd176022176066%_)))) + (let ((_%lp-hd176026176074%_ (let () (declare (not safe)) - (##car _%e177010177056%_))) - (_%lp-tl177012177061%_ + (##car _%e176025176071%_))) + (_%lp-tl176027176076%_ (let () (declare (not safe)) - (##cdr _%e177010177056%_)))) - (let ((__tmp187107 - (cons _%lp-hd177011177059%_ - _%id177013177053%_))) - (declare (not safe)) - (_%loop177009177048%_ - _%lp-tl177012177061%_ - __tmp187107)))) - (let ((_%id177014177064%_ - (reverse _%id177013177053%_))) + (##cdr _%e176025176071%_)))) + (_%loop176024176063%_ + _%lp-tl176027176076%_ + (cons _%lp-hd176026176074%_ + _%id176028176068%_)))) + (let ((_%id176029176079%_ + (reverse _%id176028176068%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177003177040%_)) - (let ((_%e177017177067%_ + _%tl176018176055%_)) + (let ((_%e176032176082%_ (let () (declare (not safe)) (gx#stx-e - _%tl177003177040%_)))) - (let ((_%hd177016177070%_ + _%tl176018176055%_)))) + (let ((_%hd176031176085%_ (let () (declare (not safe)) - (##car _%e177017177067%_))) - (_%tl177015177072%_ + (##car _%e176032176082%_))) + (_%tl176030176087%_ (let () (declare (not safe)) - (##cdr _%e177017177067%_)))) + (##cdr _%e176032176082%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177015177072%_)) - ((lambda (_%L177075%_ + _%tl176030176087%_)) + ((lambda (_%L176090%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L177076%_) - (if (let ((__tmp187108 - (let ((__tmp187109 - (lambda (_%g177095177098%_ - _%g177096177100%_) - (cons _%g177095177098%_ - _%g177096177100%_)))) + _%L176091%_) + (if (null? (let ((__tmp186065 + (lambda (_%g176110176113%_ + _%g176111176115%_) + (cons _%g176110176113%_ + _%g176111176115%_)))) (declare (not safe)) - (__foldr1 __tmp187109 '() _%L177076%_)))) - (declare (not safe)) - (null? __tmp187108)) - _%L177075%_ - (let ((_%subst177110%_ + (__foldr1 __tmp186065 '() _%L176091%_))) + _%L176090%_ + (let ((_%subst176125%_ (map cons - (let ((__tmp187110 - (lambda (_%g177102177105%_ - _%g177103177107%_) - (cons _%g177102177105%_ - _%g177103177107%_)))) + (let ((__tmp186066 + (lambda (_%g176117176120%_ + _%g176118176122%_) + (cons _%g176117176120%_ + _%g176118176122%_)))) (declare (not safe)) - (__foldr1 __tmp187110 '() _%L177076%_)) - _%args176992%_))) + (__foldr1 __tmp186066 '() _%L176091%_)) + _%args176007%_))) (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst177110%_ - _%L177075%_)))) - _%hd177016177070%_ - _%id177014177064%_) - (let () - (declare (not safe)) - (_%g176996177022%_ _%g176997177025%_))))) + _%subst176125%_ + _%L176090%_)))) + _%hd176031176085%_ + _%id176029176079%_) + (_%g176011176037%_ _%g176012176040%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g176996177022%_ - _%g176997177025%_)))))))) - (let () - (declare (not safe)) - (_%loop177009177048%_ - _%target177006177043%_ - '()))) - (let () - (declare (not safe)) - (_%g176996177022%_ _%g176997177025%_)))))) - (let () - (declare (not safe)) - (_%g176996177022%_ _%g176997177025%_))))) + (_%g176011176037%_ + _%g176012176040%_))))))) + (_%loop176024176063%_ + _%target176021176058%_ + '())) + (_%g176011176037%_ _%g176012176040%_))))) + (_%g176011176037%_ _%g176012176040%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g176996177022%_ - _%g176997177025%_))) - (let () - (declare (not safe)) - (_%g176996177022%_ - _%g176997177025%_))) - (let () - (declare (not safe)) - (_%g176996177022%_ - _%g176997177025%_))))) - (let () - (declare (not safe)) - (_%g176996177022%_ _%g176997177025%_)))))) - (declare (not safe)) - (_%g176995177112%_ _%kont176994%_)))) - (_%nonlinear-block?176535%_ - (lambda (_%block176540%_) - (letrec ((_%nonlinear-expr?176542%_ - (lambda (_%expr176650%_) - (let* ((_%__stx185959185960%_ _%expr176650%_) - (_%g176656176722%_ + (_%g176011176037%_ + _%g176012176040%_)) + (_%g176011176037%_ + _%g176012176040%_)) + (_%g176011176037%_ + _%g176012176040%_)))) + (_%g176011176037%_ _%g176012176040%_))))) + (_%g176010176127%_ _%kont176009%_)))) + (_%nonlinear-block?175550%_ + (lambda (_%block175555%_) + (letrec ((_%nonlinear-expr?175557%_ + (lambda (_%expr175665%_) + (let* ((_%__stx184974184975%_ _%expr175665%_) + (_%g175671175737%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx185959185960%_))))) - (let ((_%__kont185961185962%_ + _%__stx184974184975%_))))) + (let ((_%__kont184976184977%_ (lambda () '#t)) - (_%__kont185963185964%_ - (lambda (_%L176921%_) - (let* ((_%__stx185941185942%_ - _%L176921%_) - (_%g176939176948%_ + (_%__kont184978184979%_ + (lambda (_%L175936%_) + (let* ((_%__stx184956184957%_ + _%L175936%_) + (_%g175954175963%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx185941185942%_))))) - (let ((_%__kont185943185944%_ + _%__stx184956184957%_))))) + (let ((_%__kont184958184959%_ (lambda () '#f)) - (_%__kont185945185946%_ + (_%__kont184960184961%_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx185941185942%_)) - (let ((_%e176943176960%_ + _%__stx184956184957%_)) + (let ((_%e175958175975%_ (let () (declare (not safe)) (gx#stx-e - _%__stx185941185942%_)))) - (let ((_%tl176941176965%_ + _%__stx184956184957%_)))) + (let ((_%tl175956175980%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e176943176960%_))) - (_%hd176942176963%_ - (let () (declare (not safe)) (##car _%e176943176960%_)))) + (##cdr _%e175958175975%_))) + (_%hd175957175978%_ + (let () (declare (not safe)) (##car _%e175958175975%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd176942176963%_)) + (gx#identifier? _%hd175957175978%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd176942176963%_)) - (_%__kont185943185944%_) - (_%__kont185945185946%_)) - (_%__kont185945185946%_)))) + (gx#stx-eq? '%#call _%hd175957175978%_)) + (_%__kont184958184959%_) + (_%__kont184960184961%_)) + (_%__kont184960184961%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185945185946%_)))))) - (_%__kont185967185968%_ - (lambda (_%L176819%_) - (let () - (declare (not safe)) - (_%nonlinear-expr?176542%_ - _%L176819%_)))) - (_%__kont185969185970%_ - (lambda (_%L176766%_ - _%L176767%_ - _%L176768%_) - (let ((_%$e176787%_ - (let () - (declare (not safe)) - (_%nonlinear-expr?176542%_ - _%L176767%_)))) - (if _%$e176787%_ - _%$e176787%_ - (let () - (declare (not safe)) - (_%nonlinear-expr?176542%_ - _%L176766%_)))))) - (_%__kont185971185972%_ + (_%__kont184960184961%_)))))) + (_%__kont184982184983%_ + (lambda (_%L175834%_) + (_%nonlinear-expr?175557%_ + _%L175834%_))) + (_%__kont184984184985%_ + (lambda (_%L175781%_ + _%L175782%_ + _%L175783%_) + (let ((_%$e175802%_ + (_%nonlinear-expr?175557%_ + _%L175782%_))) + (if _%$e175802%_ + _%$e175802%_ + (_%nonlinear-expr?175557%_ + _%L175781%_))))) + (_%__kont184986184987%_ (lambda () '#f))) - (let* ((_%__match186022186023%_ - (lambda (_%e176696176795%_ - _%hd176695176798%_ - _%tl176694176800%_ - _%e176699176803%_ - _%hd176698176806%_ - _%tl176697176808%_) + (let* ((_%__match185037185038%_ + (lambda (_%e175711175810%_ + _%hd175710175813%_ + _%tl175709175815%_ + _%e175714175818%_ + _%hd175713175821%_ + _%tl175712175823%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176697176808%_)) - (let ((_%e176702176811%_ + _%tl175712175823%_)) + (let ((_%e175717175826%_ (let () (declare (not safe)) (gx#stx-e - _%tl176697176808%_)))) - (let ((_%tl176700176816%_ + _%tl175712175823%_)))) + (let ((_%tl175715175831%_ (let () (declare (not safe)) - (##cdr _%e176702176811%_))) - (_%hd176701176814%_ + (##cdr _%e175717175826%_))) + (_%hd175716175829%_ (let () (declare (not safe)) - (##car _%e176702176811%_)))) + (##car _%e175717175826%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176700176816%_)) - (_%__kont185967185968%_ - _%hd176701176814%_) - (_%__kont185971185972%_)))) - (_%__kont185971185972%_)))) - (_%__match186006186007%_ - (lambda (_%e176664176837%_ - _%hd176663176840%_ - _%tl176662176842%_ - _%e176667176845%_ - _%hd176666176848%_ - _%tl176665176850%_ - _%__splice185965185966%_ - _%target176668176853%_ - _%tl176670176855%_) - (letrec ((_%loop176671176858%_ - (lambda (_%hd176669176861%_) + _%tl175715175831%_)) + (_%__kont184982184983%_ + _%hd175716175829%_) + (_%__kont184986184987%_)))) + (_%__kont184986184987%_)))) + (_%__match185021185022%_ + (lambda (_%e175679175852%_ + _%hd175678175855%_ + _%tl175677175857%_ + _%e175682175860%_ + _%hd175681175863%_ + _%tl175680175865%_ + _%__splice184980184981%_ + _%target175683175868%_ + _%tl175685175870%_) + (letrec ((_%loop175686175873%_ + (lambda (_%hd175684175876%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%hd176669176861%_)) - (let ((_%e176672176864%_ + (gx#stx-pair? _%hd175684175876%_)) + (let ((_%e175687175879%_ (let () (declare (not safe)) - (gx#stx-e _%hd176669176861%_)))) - (let ((_%lp-tl176674176869%_ + (gx#stx-e _%hd175684175876%_)))) + (let ((_%lp-tl175689175884%_ (let () (declare (not safe)) - (##cdr _%e176672176864%_))) - (_%lp-hd176673176867%_ + (##cdr _%e175687175879%_))) + (_%lp-hd175688175882%_ (let () (declare (not safe)) - (##car _%e176672176864%_)))) + (##car _%e175687175879%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd176673176867%_)) - (let ((_%e176677176872%_ + (gx#stx-pair? _%lp-hd175688175882%_)) + (let ((_%e175692175887%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd176673176867%_)))) - (let ((_%tl176675176877%_ + (gx#stx-e _%lp-hd175688175882%_)))) + (let ((_%tl175690175892%_ (let () (declare (not safe)) - (##cdr _%e176677176872%_))) - (_%hd176676176875%_ + (##cdr _%e175692175887%_))) + (_%hd175691175890%_ (let () (declare (not safe)) - (##car _%e176677176872%_)))) + (##car _%e175692175887%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176676176875%_)) - (let ((_%e176680176880%_ + (gx#stx-pair? _%hd175691175890%_)) + (let ((_%e175695175895%_ (let () (declare (not safe)) (gx#stx-e - _%hd176676176875%_)))) - (let ((_%tl176678176885%_ + _%hd175691175890%_)))) + (let ((_%tl175693175900%_ (let () (declare (not safe)) - (##cdr _%e176680176880%_))) - (_%hd176679176883%_ + (##cdr _%e175695175895%_))) + (_%hd175694175898%_ (let () (declare (not safe)) - (##car _%e176680176880%_)))) + (##car _%e175695175895%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176678176885%_)) + _%tl175693175900%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176675176877%_)) - (let ((_%e176683176888%_ + _%tl175690175892%_)) + (let ((_%e175698175903%_ (let () (declare (not safe)) (gx#stx-e - _%tl176675176877%_)))) - (let ((_%tl176681176893%_ + _%tl175690175892%_)))) + (let ((_%tl175696175908%_ (let () (declare (not safe)) - (##cdr _%e176683176888%_))) - (_%hd176682176891%_ + (##cdr _%e175698175903%_))) + (_%hd175697175906%_ (let () (declare (not safe)) - (##car _%e176683176888%_)))) + (##car _%e175698175903%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd176682176891%_)) - (let ((_%e176686176896%_ + _%hd175697175906%_)) + (let ((_%e175701175911%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd176682176891%_)))) - (let ((_%tl176684176901%_ + (gx#stx-e _%hd175697175906%_)))) + (let ((_%tl175699175916%_ (let () (declare (not safe)) - (##cdr _%e176686176896%_))) - (_%hd176685176899%_ + (##cdr _%e175701175911%_))) + (_%hd175700175914%_ (let () (declare (not safe)) - (##car _%e176686176896%_)))) + (##car _%e175701175911%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd176685176899%_)) + (gx#identifier? _%hd175700175914%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd176685176899%_)) + (gx#stx-eq? '%#ref _%hd175700175914%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176684176901%_)) - (let ((_%e176689176904%_ + (gx#stx-pair? _%tl175699175916%_)) + (let ((_%e175704175919%_ (let () (declare (not safe)) - (gx#stx-e _%tl176684176901%_)))) - (let ((_%tl176687176909%_ + (gx#stx-e _%tl175699175916%_)))) + (let ((_%tl175702175924%_ (let () (declare (not safe)) - (##cdr _%e176689176904%_))) - (_%hd176688176907%_ + (##cdr _%e175704175919%_))) + (_%hd175703175922%_ (let () (declare (not safe)) - (##car _%e176689176904%_)))) + (##car _%e175704175919%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176687176909%_)) + (gx#stx-null? _%tl175702175924%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176681176893%_)) - (let () - (declare (not safe)) - (_%loop176671176858%_ - _%lp-tl176674176869%_)) - (_%__match186022186023%_ - _%e176664176837%_ - _%hd176663176840%_ - _%tl176662176842%_ - _%e176667176845%_ - _%hd176666176848%_ - _%tl176665176850%_)) - (_%__match186022186023%_ - _%e176664176837%_ - _%hd176663176840%_ - _%tl176662176842%_ - _%e176667176845%_ - _%hd176666176848%_ - _%tl176665176850%_)))) - (_%__match186022186023%_ - _%e176664176837%_ - _%hd176663176840%_ - _%tl176662176842%_ - _%e176667176845%_ - _%hd176666176848%_ - _%tl176665176850%_)) - (_%__match186022186023%_ - _%e176664176837%_ - _%hd176663176840%_ - _%tl176662176842%_ - _%e176667176845%_ - _%hd176666176848%_ - _%tl176665176850%_)) - (_%__match186022186023%_ - _%e176664176837%_ - _%hd176663176840%_ - _%tl176662176842%_ - _%e176667176845%_ - _%hd176666176848%_ - _%tl176665176850%_)))) - (_%__match186022186023%_ - _%e176664176837%_ - _%hd176663176840%_ - _%tl176662176842%_ - _%e176667176845%_ - _%hd176666176848%_ - _%tl176665176850%_)))) + _%tl175696175908%_)) + (_%loop175686175873%_ + _%lp-tl175689175884%_) + (_%__match185037185038%_ + _%e175679175852%_ + _%hd175678175855%_ + _%tl175677175857%_ + _%e175682175860%_ + _%hd175681175863%_ + _%tl175680175865%_)) + (_%__match185037185038%_ + _%e175679175852%_ + _%hd175678175855%_ + _%tl175677175857%_ + _%e175682175860%_ + _%hd175681175863%_ + _%tl175680175865%_)))) + (_%__match185037185038%_ + _%e175679175852%_ + _%hd175678175855%_ + _%tl175677175857%_ + _%e175682175860%_ + _%hd175681175863%_ + _%tl175680175865%_)) + (_%__match185037185038%_ + _%e175679175852%_ + _%hd175678175855%_ + _%tl175677175857%_ + _%e175682175860%_ + _%hd175681175863%_ + _%tl175680175865%_)) + (_%__match185037185038%_ + _%e175679175852%_ + _%hd175678175855%_ + _%tl175677175857%_ + _%e175682175860%_ + _%hd175681175863%_ + _%tl175680175865%_)))) + (_%__match185037185038%_ + _%e175679175852%_ + _%hd175678175855%_ + _%tl175677175857%_ + _%e175682175860%_ + _%hd175681175863%_ + _%tl175680175865%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match186022186023%_ - _%e176664176837%_ - _%hd176663176840%_ - _%tl176662176842%_ - _%e176667176845%_ - _%hd176666176848%_ - _%tl176665176850%_)) - (_%__match186022186023%_ - _%e176664176837%_ - _%hd176663176840%_ - _%tl176662176842%_ - _%e176667176845%_ - _%hd176666176848%_ - _%tl176665176850%_)))) - (_%__match186022186023%_ - _%e176664176837%_ - _%hd176663176840%_ - _%tl176662176842%_ - _%e176667176845%_ - _%hd176666176848%_ - _%tl176665176850%_)))) - (_%__match186022186023%_ - _%e176664176837%_ - _%hd176663176840%_ - _%tl176662176842%_ - _%e176667176845%_ - _%hd176666176848%_ - _%tl176665176850%_)))) - (let () - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl176665176850%_)) - (let ((_%e176692176913%_ + (_%__match185037185038%_ + _%e175679175852%_ + _%hd175678175855%_ + _%tl175677175857%_ + _%e175682175860%_ + _%hd175681175863%_ + _%tl175680175865%_)) + (_%__match185037185038%_ + _%e175679175852%_ + _%hd175678175855%_ + _%tl175677175857%_ + _%e175682175860%_ + _%hd175681175863%_ + _%tl175680175865%_)))) + (_%__match185037185038%_ + _%e175679175852%_ + _%hd175678175855%_ + _%tl175677175857%_ + _%e175682175860%_ + _%hd175681175863%_ + _%tl175680175865%_)))) + (_%__match185037185038%_ + _%e175679175852%_ + _%hd175678175855%_ + _%tl175677175857%_ + _%e175682175860%_ + _%hd175681175863%_ + _%tl175680175865%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl175680175865%_)) + (let ((_%e175707175928%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl175680175865%_)))) + (let ((_%tl175705175933%_ (let () (declare (not safe)) - (gx#stx-e _%tl176665176850%_)))) - (let ((_%tl176690176918%_ - (let () - (declare (not safe)) - (##cdr _%e176692176913%_))) - (_%hd176691176916%_ - (let () - (declare (not safe)) - (##car _%e176692176913%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl176690176918%_)) - (_%__kont185963185964%_ - _%hd176691176916%_) - (_%__kont185971185972%_)))) - (_%__kont185971185972%_))))))) + (##cdr _%e175707175928%_))) + (_%hd175706175931%_ + (let () + (declare (not safe)) + (##car _%e175707175928%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl175705175933%_)) + (_%__kont184978184979%_ _%hd175706175931%_) + (_%__kont184986184987%_)))) + (_%__kont184986184987%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop176671176858%_ - _%target176668176853%_)))))) + (_%loop175686175873%_ + _%target175683175868%_))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx185959185960%_)) - (let ((_%e176660176978%_ + _%__stx184974184975%_)) + (let ((_%e175675175993%_ (let () (declare (not safe)) (gx#stx-e - _%__stx185959185960%_)))) - (let ((_%tl176658176983%_ + _%__stx184974184975%_)))) + (let ((_%tl175673175998%_ (let () (declare (not safe)) - (##cdr _%e176660176978%_))) - (_%hd176659176981%_ + (##cdr _%e175675175993%_))) + (_%hd175674175996%_ (let () (declare (not safe)) - (##car _%e176660176978%_)))) + (##car _%e175675175993%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd176659176981%_)) + _%hd175674175996%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd176659176981%_)) - (_%__kont185961185962%_) + _%hd175674175996%_)) + (_%__kont184976184977%_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd176659176981%_)) + _%hd175674175996%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl176658176983%_)) - (let ((_%e176667176845%_ + (gx#stx-pair? _%tl175673175998%_)) + (let ((_%e175682175860%_ (let () (declare (not safe)) - (gx#stx-e _%tl176658176983%_)))) - (let ((_%tl176665176850%_ + (gx#stx-e _%tl175673175998%_)))) + (let ((_%tl175680175865%_ (let () (declare (not safe)) - (##cdr _%e176667176845%_))) - (_%hd176666176848%_ + (##cdr _%e175682175860%_))) + (_%hd175681175863%_ (let () (declare (not safe)) - (##car _%e176667176845%_)))) + (##car _%e175682175860%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd176666176848%_)) - (let ((_%__splice185965185966%_ + (gx#stx-pair/null? _%hd175681175863%_)) + (let ((_%__splice184980184981%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd176666176848%_ + _%hd175681175863%_ '0)))) - (let ((_%tl176670176855%_ + (let ((_%tl175685175870%_ (let () (declare (not safe)) (##vector-ref - _%__splice185965185966%_ + _%__splice184980184981%_ '1))) - (_%target176668176853%_ + (_%target175683175868%_ (let () (declare (not safe)) (##vector-ref - _%__splice185965185966%_ + _%__splice184980184981%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176670176855%_)) - (_%__match186006186007%_ - _%e176660176978%_ - _%hd176659176981%_ - _%tl176658176983%_ - _%e176667176845%_ - _%hd176666176848%_ - _%tl176665176850%_ - _%__splice185965185966%_ - _%target176668176853%_ - _%tl176670176855%_) + (gx#stx-null? _%tl175685175870%_)) + (_%__match185021185022%_ + _%e175675175993%_ + _%hd175674175996%_ + _%tl175673175998%_ + _%e175682175860%_ + _%hd175681175863%_ + _%tl175680175865%_ + _%__splice184980184981%_ + _%target175683175868%_ + _%tl175685175870%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176665176850%_)) - (let ((_%e176702176811%_ + (gx#stx-pair? _%tl175680175865%_)) + (let ((_%e175717175826%_ (let () (declare (not safe)) (gx#stx-e - _%tl176665176850%_)))) - (let ((_%tl176700176816%_ + _%tl175680175865%_)))) + (let ((_%tl175715175831%_ (let () (declare (not safe)) - (##cdr _%e176702176811%_))) - (_%hd176701176814%_ + (##cdr _%e175717175826%_))) + (_%hd175716175829%_ (let () (declare (not safe)) - (##car _%e176702176811%_)))) + (##car _%e175717175826%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176700176816%_)) - (_%__kont185967185968%_ - _%hd176701176814%_) - (_%__kont185971185972%_)))) - (_%__kont185971185972%_))))) + _%tl175715175831%_)) + (_%__kont184982184983%_ + _%hd175716175829%_) + (_%__kont184986184987%_)))) + (_%__kont184986184987%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176665176850%_)) - (let ((_%e176702176811%_ + (gx#stx-pair? _%tl175680175865%_)) + (let ((_%e175717175826%_ (let () (declare (not safe)) - (gx#stx-e _%tl176665176850%_)))) - (let ((_%tl176700176816%_ + (gx#stx-e _%tl175680175865%_)))) + (let ((_%tl175715175831%_ (let () (declare (not safe)) - (##cdr _%e176702176811%_))) - (_%hd176701176814%_ + (##cdr _%e175717175826%_))) + (_%hd175716175829%_ (let () (declare (not safe)) - (##car _%e176702176811%_)))) + (##car _%e175717175826%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176700176816%_)) - (_%__kont185967185968%_ - _%hd176701176814%_) - (_%__kont185971185972%_)))) - (_%__kont185971185972%_))))) - (_%__kont185971185972%_)) + (gx#stx-null? _%tl175715175831%_)) + (_%__kont184982184983%_ + _%hd175716175829%_) + (_%__kont184986184987%_)))) + (_%__kont184986184987%_))))) + (_%__kont184986184987%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd176659176981%_)) + (gx#stx-eq? '%#if _%hd175674175996%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176658176983%_)) - (let ((_%e176711176742%_ + (gx#stx-pair? _%tl175673175998%_)) + (let ((_%e175726175757%_ (let () (declare (not safe)) - (gx#stx-e _%tl176658176983%_)))) - (let ((_%tl176709176747%_ + (gx#stx-e _%tl175673175998%_)))) + (let ((_%tl175724175762%_ (let () (declare (not safe)) - (##cdr _%e176711176742%_))) - (_%hd176710176745%_ + (##cdr _%e175726175757%_))) + (_%hd175725175760%_ (let () (declare (not safe)) - (##car _%e176711176742%_)))) + (##car _%e175726175757%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176709176747%_)) - (let ((_%e176714176750%_ + (gx#stx-pair? _%tl175724175762%_)) + (let ((_%e175729175765%_ (let () (declare (not safe)) - (gx#stx-e _%tl176709176747%_)))) - (let ((_%tl176712176755%_ + (gx#stx-e _%tl175724175762%_)))) + (let ((_%tl175727175770%_ (let () (declare (not safe)) - (##cdr _%e176714176750%_))) - (_%hd176713176753%_ + (##cdr _%e175729175765%_))) + (_%hd175728175768%_ (let () (declare (not safe)) - (##car _%e176714176750%_)))) + (##car _%e175729175765%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176712176755%_)) - (let ((_%e176717176758%_ + (gx#stx-pair? _%tl175727175770%_)) + (let ((_%e175732175773%_ (let () (declare (not safe)) (gx#stx-e - _%tl176712176755%_)))) - (let ((_%tl176715176763%_ + _%tl175727175770%_)))) + (let ((_%tl175730175778%_ (let () (declare (not safe)) - (##cdr _%e176717176758%_))) - (_%hd176716176761%_ + (##cdr _%e175732175773%_))) + (_%hd175731175776%_ (let () (declare (not safe)) - (##car _%e176717176758%_)))) + (##car _%e175732175773%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176715176763%_)) - (_%__kont185969185970%_ - _%hd176716176761%_ - _%hd176713176753%_ - _%hd176710176745%_) - (_%__kont185971185972%_)))) - (_%__kont185971185972%_)))) - (_%__kont185971185972%_)))) - (_%__kont185971185972%_)) - (_%__kont185971185972%_)))) + _%tl175730175778%_)) + (_%__kont184984184985%_ + _%hd175731175776%_ + _%hd175728175768%_ + _%hd175725175760%_) + (_%__kont184986184987%_)))) + (_%__kont184986184987%_)))) + (_%__kont184986184987%_)))) + (_%__kont184986184987%_)) + (_%__kont184986184987%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185971185972%_)))) - (_%__kont185971185972%_)))))))) - (let* ((_%kont176544%_ (caddr _%block176540%_)) - (_%g176546176572%_ - (lambda (_%g176547176569%_) + (_%__kont184986184987%_)))) + (_%__kont184986184987%_)))))))) + (let* ((_%kont175559%_ (caddr _%block175555%_)) + (_%g175561175587%_ + (lambda (_%g175562175584%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176547176569%_)))) - (_%g176545176647%_ - (lambda (_%g176547176575%_) + _%g175562175584%_)))) + (_%g175560175662%_ + (lambda (_%g175562175590%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176547176575%_)) - (let ((_%e176552176577%_ + (gx#stx-pair? _%g175562175590%_)) + (let ((_%e175567175592%_ (let () (declare (not safe)) - (gx#stx-e _%g176547176575%_)))) - (let ((_%hd176551176580%_ + (gx#stx-e _%g175562175590%_)))) + (let ((_%hd175566175595%_ (let () (declare (not safe)) - (##car _%e176552176577%_))) - (_%tl176550176582%_ + (##car _%e175567175592%_))) + (_%tl175565175597%_ (let () (declare (not safe)) - (##cdr _%e176552176577%_)))) + (##cdr _%e175567175592%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd176551176580%_)) + _%hd175566175595%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd176551176580%_)) + _%hd175566175595%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176550176582%_)) - (let ((_%e176555176585%_ + _%tl175565175597%_)) + (let ((_%e175570175600%_ (let () (declare (not safe)) (gx#stx-e - _%tl176550176582%_)))) - (let ((_%hd176554176588%_ + _%tl175565175597%_)))) + (let ((_%hd175569175603%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e176555176585%_))) - (_%tl176553176590%_ - (let () (declare (not safe)) (##cdr _%e176555176585%_)))) + (##car _%e175570175600%_))) + (_%tl175568175605%_ + (let () (declare (not safe)) (##cdr _%e175570175600%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd176554176588%_)) - (let ((_g187111_ + (gx#stx-pair/null? _%hd175569175603%_)) + (let ((_g186067_ (let () (declare (not safe)) - (gx#syntax-split-splice _%hd176554176588%_ '0)))) + (gx#syntax-split-splice _%hd175569175603%_ '0)))) (begin - (let ((_g187112_ + (let ((_g186068_ (let () (declare (not safe)) - (if (##values? _g187111_) - (##vector-length _g187111_) + (if (##values? _g186067_) + (##vector-length _g186067_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g187112_ 2))) - (error "Context expects 2 values" _g187112_))) - (let ((_%target176556176593%_ + (##fx= _g186068_ 2))) + (error "Context expects 2 values" _g186068_))) + (let ((_%target175571175608%_ (let () (declare (not safe)) - (##vector-ref _g187111_ 0))) - (_%tl176558176595%_ + (##vector-ref _g186067_ 0))) + (_%tl175573175610%_ (let () (declare (not safe)) - (##vector-ref _g187111_ 1)))) + (##vector-ref _g186067_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176558176595%_)) - (letrec ((_%loop176559176598%_ - (lambda (_%hd176557176601%_ - _%id176563176603%_) + (gx#stx-null? _%tl175573175610%_)) + (letrec ((_%loop175574175613%_ + (lambda (_%hd175572175616%_ + _%id175578175618%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd176557176601%_)) - (let ((_%e176560176606%_ + _%hd175572175616%_)) + (let ((_%e175575175621%_ (let () (declare (not safe)) (gx#stx-e - _%hd176557176601%_)))) - (let ((_%lp-hd176561176609%_ + _%hd175572175616%_)))) + (let ((_%lp-hd175576175624%_ (let () (declare (not safe)) - (##car _%e176560176606%_))) - (_%lp-tl176562176611%_ + (##car _%e175575175621%_))) + (_%lp-tl175577175626%_ (let () (declare (not safe)) - (##cdr _%e176560176606%_)))) - (let ((__tmp187113 - (cons _%lp-hd176561176609%_ - _%id176563176603%_))) - (declare (not safe)) - (_%loop176559176598%_ - _%lp-tl176562176611%_ - __tmp187113)))) - (let ((_%id176564176614%_ - (reverse _%id176563176603%_))) + (##cdr _%e175575175621%_)))) + (_%loop175574175613%_ + _%lp-tl175577175626%_ + (cons _%lp-hd175576175624%_ + _%id175578175618%_)))) + (let ((_%id175579175629%_ + (reverse _%id175578175618%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176553176590%_)) - (let ((_%e176567176617%_ + _%tl175568175605%_)) + (let ((_%e175582175632%_ (let () (declare (not safe)) (gx#stx-e - _%tl176553176590%_)))) - (let ((_%hd176566176620%_ + _%tl175568175605%_)))) + (let ((_%hd175581175635%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e176567176617%_))) - (_%tl176565176622%_ - (let () (declare (not safe)) (##cdr _%e176567176617%_)))) + (##car _%e175582175632%_))) + (_%tl175580175637%_ + (let () (declare (not safe)) (##cdr _%e175582175632%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176565176622%_)) - ((lambda (_%L176625%_ _%L176626%_) - (let () - (declare (not safe)) - (_%nonlinear-expr?176542%_ _%L176625%_))) - _%hd176566176620%_ - _%id176564176614%_) - (let () - (declare (not safe)) - (_%g176546176572%_ _%g176547176575%_))))) + (gx#stx-null? _%tl175580175637%_)) + ((lambda (_%L175640%_ _%L175641%_) + (_%nonlinear-expr?175557%_ _%L175640%_)) + _%hd175581175635%_ + _%id175579175629%_) + (_%g175561175587%_ _%g175562175590%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g176546176572%_ - _%g176547176575%_)))))))) - (let () - (declare (not safe)) - (_%loop176559176598%_ - _%target176556176593%_ - '()))) - (let () - (declare (not safe)) - (_%g176546176572%_ _%g176547176575%_)))))) - (let () - (declare (not safe)) - (_%g176546176572%_ _%g176547176575%_))))) + (_%g175561175587%_ + _%g175562175590%_))))))) + (_%loop175574175613%_ + _%target175571175608%_ + '())) + (_%g175561175587%_ _%g175562175590%_))))) + (_%g175561175587%_ _%g175562175590%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g176546176572%_ - _%g176547176575%_))) - (let () - (declare (not safe)) - (_%g176546176572%_ - _%g176547176575%_))) - (let () - (declare (not safe)) - (_%g176546176572%_ - _%g176547176575%_))))) - (let () - (declare (not safe)) - (_%g176546176572%_ - _%g176547176575%_)))))) - (declare (not safe)) - (_%g176545176647%_ _%kont176544%_)))))) - (let ((__tmp187114 - (lambda () - (let ((__tmp187115 - (lambda () - (if (memq '@match:prefix - (let () - (declare (not safe)) - (gxc#current-annotation-optimizer))) - (let ((__tmp187116 - (lambda () - (let () - (declare (not safe)) - (_%optimize-e176525%_ - _%body176272%_))))) - (declare (not safe)) - (_%do-splice!176524%_ __tmp187116)) - (let () - (declare (not safe)) - (_%optimize-e176525%_ _%body176272%_)))))) - (declare (not safe)) - (_%do-bind176521%_ _%bind176274%_ __tmp187115))))) - (declare (not safe)) - (_%do-assert176514%_ _%assert176273%_ __tmp187114))))) + (_%g175561175587%_ + _%g175562175590%_)) + (_%g175561175587%_ + _%g175562175590%_)) + (_%g175561175587%_ + _%g175562175590%_)))) + (_%g175561175587%_ _%g175562175590%_))))) + (_%g175560175662%_ _%kont175559%_)))))) + (_%do-assert175529%_ + _%assert175288%_ + (lambda () + (_%do-bind175536%_ + _%bind175289%_ + (lambda () + (if (memq '@match:prefix + (let () + (declare (not safe)) + (gxc#current-annotation-optimizer))) + (_%do-splice!175539%_ + (lambda () (_%optimize-e175540%_ _%body175287%_))) + (_%optimize-e175540%_ _%body175287%_))))))))) (define gxc#optimize-match-prune-blocks - (lambda (_%blocks176184%_ _%konts176185%_) - (letrec* ((_%rtab176187%_ + (lambda (_%blocks175199%_ _%konts175200%_) + (letrec* ((_%rtab175202%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block176189%_) - (let ((__tmp187117 (caddr _%block176189%_))) + (lambda (_%block175204%_) + (let ((__tmp186069 (caddr _%block175204%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab176187%_ - __tmp187117))) - _%konts176185%_) - (let _%lp176191%_ ((_%rest176193%_ _%blocks176184%_) - (_%r176194%_ '())) - (let* ((_%rest176195176203%_ _%rest176193%_) - (_%else176197176211%_ (lambda () (reverse _%r176194%_))) - (_%K176199176260%_ - (lambda (_%rest176214%_ _%block176215%_) - (let* ((_%block176216176227%_ _%block176215%_) - (_%E176218176231%_ + _%rtab175202%_ + __tmp186069))) + _%konts175200%_) + (let _%lp175206%_ ((_%rest175208%_ _%blocks175199%_) + (_%r175209%_ '())) + (let* ((_%rest175210175218%_ _%rest175208%_) + (_%else175212175226%_ (lambda () (reverse _%r175209%_))) + (_%K175214175275%_ + (lambda (_%rest175229%_ _%block175230%_) + (let* ((_%block175231175242%_ _%block175230%_) + (_%E175233175246%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block176216176227%_ + _%block175231175242%_ '([name type kont . _]))) '#!void)) - (_%K176219176238%_ - (lambda (_%kont176234%_ - _%type176235%_ - _%name176236%_) - (if (let ((__tmp187118 + (_%K175234175253%_ + (lambda (_%kont175249%_ + _%type175250%_ + _%name175251%_) + (if (let ((__tmp186070 (let () (declare (not safe)) (gxc#identifier-symbol - _%name176236%_)))) + _%name175251%_)))) (declare (not safe)) - (hash-get _%rtab176187%_ __tmp187118)) + (hash-get _%rtab175202%_ __tmp186070)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab176187%_ - _%kont176234%_)) - (let ((__tmp187119 - (cons _%block176215%_ - _%r176194%_))) - (declare (not safe)) - (_%lp176191%_ - _%rest176214%_ - __tmp187119))) - (let () - (declare (not safe)) - (_%lp176191%_ - _%rest176214%_ - _%r176194%_)))))) + _%rtab175202%_ + _%kont175249%_)) + (_%lp175206%_ + _%rest175229%_ + (cons _%block175230%_ _%r175209%_))) + (_%lp175206%_ + _%rest175229%_ + _%r175209%_))))) (if (let () (declare (not safe)) - (##pair? _%block176216176227%_)) - (let ((_%hd176220176241%_ + (##pair? _%block175231175242%_)) + (let ((_%hd175235175256%_ (let () (declare (not safe)) - (##car _%block176216176227%_))) - (_%tl176221176243%_ + (##car _%block175231175242%_))) + (_%tl175236175258%_ (let () (declare (not safe)) - (##cdr _%block176216176227%_)))) - (let ((_%name176246%_ _%hd176220176241%_)) + (##cdr _%block175231175242%_)))) + (let ((_%name175261%_ _%hd175235175256%_)) (if (let () (declare (not safe)) - (##pair? _%tl176221176243%_)) - (let ((_%hd176222176248%_ + (##pair? _%tl175236175258%_)) + (let ((_%hd175237175263%_ (let () (declare (not safe)) - (##car _%tl176221176243%_))) - (_%tl176223176250%_ + (##car _%tl175236175258%_))) + (_%tl175238175265%_ (let () (declare (not safe)) - (##cdr _%tl176221176243%_)))) - (let ((_%type176253%_ - _%hd176222176248%_)) + (##cdr _%tl175236175258%_)))) + (let ((_%type175268%_ + _%hd175237175263%_)) (if (let () (declare (not safe)) - (##pair? _%tl176223176250%_)) - (let* ((_%hd176224176255%_ + (##pair? _%tl175238175265%_)) + (let* ((_%hd175239175270%_ (let () (declare (not safe)) - (##car _%tl176223176250%_))) - (_%kont176258%_ - _%hd176224176255%_)) - (declare (not safe)) - (_%K176219176238%_ - _%kont176258%_ - _%type176253%_ - _%name176246%_)) - (let () - (declare (not safe)) - (_%E176218176231%_))))) - (let () - (declare (not safe)) - (_%E176218176231%_))))) - (let () - (declare (not safe)) - (_%E176218176231%_))))))) - (if (let () (declare (not safe)) (##pair? _%rest176195176203%_)) - (let ((_%hd176200176263%_ + (##car _%tl175238175265%_))) + (_%kont175273%_ + _%hd175239175270%_)) + (_%K175234175253%_ + _%kont175273%_ + _%type175268%_ + _%name175261%_)) + (_%E175233175246%_)))) + (_%E175233175246%_)))) + (_%E175233175246%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest175210175218%_)) + (let ((_%hd175215175278%_ (let () (declare (not safe)) - (##car _%rest176195176203%_))) - (_%tl176201176265%_ + (##car _%rest175210175218%_))) + (_%tl175216175280%_ (let () (declare (not safe)) - (##cdr _%rest176195176203%_)))) - (let* ((_%block176268%_ _%hd176200176263%_) - (_%rest176270%_ _%tl176201176265%_)) - (declare (not safe)) - (_%K176199176260%_ _%rest176270%_ _%block176268%_))) - (let () (declare (not safe)) (_%else176197176211%_)))))))) + (##cdr _%rest175210175218%_)))) + (let* ((_%block175283%_ _%hd175215175278%_) + (_%rest175285%_ _%tl175216175280%_)) + (_%K175214175275%_ _%rest175285%_ _%block175283%_))) + (_%else175212175226%_))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_%blocks176108%_ _%konts176109%_) - (let* ((_%blocks176110176126%_ _%blocks176108%_) - (_%else176112176134%_ (lambda () _%blocks176108%_)) - (_%K176114176152%_ - (lambda (_%rest176137%_ _%kont176138%_ _%name176139%_) - (letrec* ((_%rtab176141%_ + (lambda (_%blocks175123%_ _%konts175124%_) + (let* ((_%blocks175125175141%_ _%blocks175123%_) + (_%else175127175149%_ (lambda () _%blocks175123%_)) + (_%K175129175167%_ + (lambda (_%rest175152%_ _%kont175153%_ _%name175154%_) + (letrec* ((_%rtab175156%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block176143%_) - (let ((__tmp187120 (caddr _%block176143%_))) + (lambda (_%block175158%_) + (let ((__tmp186071 (caddr _%block175158%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab176141%_ - __tmp187120))) - _%konts176109%_) - (if (let ((__tmp187121 - (let ((__tmp187122 + _%rtab175156%_ + __tmp186071))) + _%konts175124%_) + (if (let ((__tmp186072 + (let ((__tmp186073 (let () (declare (not safe)) (gxc#identifier-symbol - _%name176139%_)))) + _%name175154%_)))) (declare (not safe)) - (hash-ref__0 _%rtab176141%_ __tmp187122)))) + (hash-ref__0 _%rtab175156%_ __tmp186073)))) (declare (not safe)) - (##fx= __tmp187121 '1)) - (let* ((_%rblock176147%_ - (let ((__tmp187123 - (lambda (_%block176145%_) - (let ((__tmp187125 - (cons _%name176139%_ '())) - (__tmp187124 - (caddr _%block176145%_))) + (##fx= __tmp186072 '1)) + (let* ((_%rblock175162%_ + (let ((__tmp186074 + (lambda (_%block175160%_) + (let ((__tmp186076 + (cons _%name175154%_ '())) + (__tmp186075 + (caddr _%block175160%_))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp187125 - __tmp187124))))) - (declare (not safe)) - (__find __tmp187123 _%konts176109%_))) - (_%assert176149%_ - (let () + __tmp186076 + __tmp186075))))) (declare (not safe)) - (gxc#optimize-match-assert-restart - _%rblock176147%_ - _%name176139%_)))) - (cons (cons _%name176139%_ + (__find __tmp186074 _%konts175124%_))) + (_%assert175164%_ + (gxc#optimize-match-assert-restart + _%rblock175162%_ + _%name175154%_))) + (cons (cons _%name175154%_ (cons 'restart: - (cons _%kont176138%_ - (cons _%assert176149%_ + (cons _%kont175153%_ + (cons _%assert175164%_ '())))) - _%rest176137%_)) - _%blocks176108%_))))) - (if (let () (declare (not safe)) (##pair? _%blocks176110176126%_)) - (let ((_%hd176115176155%_ + _%rest175152%_)) + _%blocks175123%_))))) + (if (let () (declare (not safe)) (##pair? _%blocks175125175141%_)) + (let ((_%hd175130175170%_ (let () (declare (not safe)) - (##car _%blocks176110176126%_))) - (_%tl176116176157%_ + (##car _%blocks175125175141%_))) + (_%tl175131175172%_ (let () (declare (not safe)) - (##cdr _%blocks176110176126%_)))) - (if (let () (declare (not safe)) (##pair? _%hd176115176155%_)) - (let ((_%hd176117176160%_ + (##cdr _%blocks175125175141%_)))) + (if (let () (declare (not safe)) (##pair? _%hd175130175170%_)) + (let ((_%hd175132175175%_ (let () (declare (not safe)) - (##car _%hd176115176155%_))) - (_%tl176118176162%_ + (##car _%hd175130175170%_))) + (_%tl175133175177%_ (let () (declare (not safe)) - (##cdr _%hd176115176155%_)))) - (let ((_%name176165%_ _%hd176117176160%_)) + (##cdr _%hd175130175170%_)))) + (let ((_%name175180%_ _%hd175132175175%_)) (if (let () (declare (not safe)) - (##pair? _%tl176118176162%_)) - (let ((_%hd176119176167%_ + (##pair? _%tl175133175177%_)) + (let ((_%hd175134175182%_ (let () (declare (not safe)) - (##car _%tl176118176162%_))) - (_%tl176120176169%_ + (##car _%tl175133175177%_))) + (_%tl175135175184%_ (let () (declare (not safe)) - (##cdr _%tl176118176162%_)))) + (##cdr _%tl175133175177%_)))) (if (let () (declare (not safe)) - (##eq? _%hd176119176167%_ 'restart:)) + (##eq? _%hd175134175182%_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _%tl176120176169%_)) - (let ((_%hd176121176172%_ + (##pair? _%tl175135175184%_)) + (let ((_%hd175136175187%_ (let () (declare (not safe)) - (##car _%tl176120176169%_))) - (_%tl176122176174%_ + (##car _%tl175135175184%_))) + (_%tl175137175189%_ (let () (declare (not safe)) - (##cdr _%tl176120176169%_)))) - (let ((_%kont176177%_ - _%hd176121176172%_)) + (##cdr _%tl175135175184%_)))) + (let ((_%kont175192%_ + _%hd175136175187%_)) (if (let () (declare (not safe)) - (##pair? _%tl176122176174%_)) - (let ((_%tl176124176179%_ + (##pair? _%tl175137175189%_)) + (let ((_%tl175139175194%_ (let () (declare (not safe)) - (##cdr _%tl176122176174%_)))) + (##cdr _%tl175137175189%_)))) (if (let () (declare (not safe)) - (##null? _%tl176124176179%_)) - (let ((_%rest176182%_ - _%tl176116176157%_)) - (declare (not safe)) - (_%K176114176152%_ - _%rest176182%_ - _%kont176177%_ - _%name176165%_)) - (let () - (declare (not safe)) - (_%else176112176134%_)))) - (let () - (declare (not safe)) - (_%else176112176134%_))))) - (let () - (declare (not safe)) - (_%else176112176134%_))) - (let () - (declare (not safe)) - (_%else176112176134%_)))) - (let () - (declare (not safe)) - (_%else176112176134%_))))) - (let () (declare (not safe)) (_%else176112176134%_)))) - (let () (declare (not safe)) (_%else176112176134%_)))))) + (##null? _%tl175139175194%_)) + (let ((_%rest175197%_ + _%tl175131175172%_)) + (_%K175129175167%_ + _%rest175197%_ + _%kont175192%_ + _%name175180%_)) + (_%else175127175149%_))) + (_%else175127175149%_)))) + (_%else175127175149%_)) + (_%else175127175149%_))) + (_%else175127175149%_)))) + (_%else175127175149%_))) + (_%else175127175149%_))))) (define gxc#optimize-match-assert-restart - (lambda (_%block175504%_ _%name175505%_) - (letrec ((_%assert-restart175507%_ - (lambda (_%expr175663%_ _%assert175664%_) - (let* ((_%__stx186063186064%_ _%expr175663%_) - (_%g175670175767%_ + (lambda (_%block174519%_ _%name174520%_) + (letrec ((_%assert-restart174522%_ + (lambda (_%expr174678%_ _%assert174679%_) + (let* ((_%__stx185078185079%_ _%expr174678%_) + (_%g174685174782%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx186063186064%_))))) - (let ((_%__kont186065186066%_ - (lambda (_%L176083%_ _%L176084%_ _%L176085%_) - (let ((_%$e176102%_ - (let ((__tmp187126 - (cons (cons _%L176085%_ '#t) - _%assert175664%_))) - (declare (not safe)) - (_%assert-restart175507%_ - _%L176084%_ - __tmp187126)))) - (if _%$e176102%_ - _%$e176102%_ - (let ((__tmp187127 - (cons (cons _%L176085%_ '#f) - _%assert175664%_))) - (declare (not safe)) - (_%assert-restart175507%_ - _%L176083%_ - __tmp187127)))))) - (_%__kont186067186068%_ - (lambda (_%L176031%_) + _%__stx185078185079%_))))) + (let ((_%__kont185080185081%_ + (lambda (_%L175098%_ _%L175099%_ _%L175100%_) + (let ((_%$e175117%_ + (_%assert-restart174522%_ + _%L175099%_ + (cons (cons _%L175100%_ '#t) + _%assert174679%_)))) + (if _%$e175117%_ + _%$e175117%_ + (_%assert-restart174522%_ + _%L175098%_ + (cons (cons _%L175100%_ '#f) + _%assert174679%_)))))) + (_%__kont185082185083%_ + (lambda (_%L175046%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L176031%_ - _%name175505%_)) - _%assert175664%_ + _%L175046%_ + _%name174520%_)) + _%assert174679%_ '#f))) - (_%__kont186069186070%_ - (lambda (_%L175981%_) - (let () - (declare (not safe)) - (_%assert-restart175507%_ - _%L175981%_ - _%assert175664%_)))) - (_%__kont186071186072%_ - (lambda (_%L175907%_ - _%L175908%_ - _%L175909%_ - _%L175910%_ - _%L175911%_) - (let () - (declare (not safe)) - (_%assert-restart175507%_ - _%L175909%_ - _%assert175664%_)))) - (_%__kont186077186078%_ (lambda () '#f))) - (let ((_%__match186232186233%_ - (lambda (_%e175717175779%_ - _%hd175716175782%_ - _%tl175715175784%_ - _%e175720175787%_ - _%hd175719175790%_ - _%tl175718175792%_ - _%e175723175795%_ - _%hd175722175798%_ - _%tl175721175800%_ - _%e175726175803%_ - _%hd175725175806%_ - _%tl175724175808%_ - _%e175729175811%_ - _%hd175728175814%_ - _%tl175727175816%_ - _%e175732175819%_ - _%hd175731175822%_ - _%tl175730175824%_ - _%e175735175827%_ - _%hd175734175830%_ - _%tl175733175832%_ - _%e175738175835%_ - _%hd175737175838%_ - _%tl175736175840%_ - _%__splice186073186074%_ - _%target175739175843%_ - _%tl175741175845%_) - (letrec ((_%loop175742175848%_ - (lambda (_%hd175740175851%_ - _%id175746175853%_) + (_%__kont185084185085%_ + (lambda (_%L174996%_) + (_%assert-restart174522%_ + _%L174996%_ + _%assert174679%_))) + (_%__kont185086185087%_ + (lambda (_%L174922%_ + _%L174923%_ + _%L174924%_ + _%L174925%_ + _%L174926%_) + (_%assert-restart174522%_ + _%L174924%_ + _%assert174679%_))) + (_%__kont185092185093%_ (lambda () '#f))) + (let ((_%__match185247185248%_ + (lambda (_%e174732174794%_ + _%hd174731174797%_ + _%tl174730174799%_ + _%e174735174802%_ + _%hd174734174805%_ + _%tl174733174807%_ + _%e174738174810%_ + _%hd174737174813%_ + _%tl174736174815%_ + _%e174741174818%_ + _%hd174740174821%_ + _%tl174739174823%_ + _%e174744174826%_ + _%hd174743174829%_ + _%tl174742174831%_ + _%e174747174834%_ + _%hd174746174837%_ + _%tl174745174839%_ + _%e174750174842%_ + _%hd174749174845%_ + _%tl174748174847%_ + _%e174753174850%_ + _%hd174752174853%_ + _%tl174751174855%_ + _%__splice185088185089%_ + _%target174754174858%_ + _%tl174756174860%_) + (letrec ((_%loop174757174863%_ + (lambda (_%hd174755174866%_ + _%id174761174868%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175740175851%_)) - (let ((_%e175743175856%_ + _%hd174755174866%_)) + (let ((_%e174758174871%_ (let () (declare (not safe)) (gx#stx-e - _%hd175740175851%_)))) - (let ((_%lp-tl175745175861%_ + _%hd174755174866%_)))) + (let ((_%lp-tl174760174876%_ (let () (declare (not safe)) - (##cdr _%e175743175856%_))) - (_%lp-hd175744175859%_ + (##cdr _%e174758174871%_))) + (_%lp-hd174759174874%_ (let () (declare (not safe)) - (##car _%e175743175856%_)))) - (let ((__tmp187128 - (cons _%lp-hd175744175859%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id175746175853%_))) - (declare (not safe)) - (_%loop175742175848%_ _%lp-tl175745175861%_ __tmp187128)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id175747175864%_ - (reverse _%id175746175853%_))) + (##car _%e174758174871%_)))) + (_%loop174757174863%_ + _%lp-tl174760174876%_ + (cons _%lp-hd174759174874%_ + _%id174761174868%_)))) + (let ((_%id174762174879%_ + (reverse _%id174761174868%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175736175840%_)) - (let ((_%e175750175867%_ + _%tl174751174855%_)) + (let ((_%e174765174882%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl175736175840%_)))) - (let ((_%tl175748175872%_ + (gx#stx-e _%tl174751174855%_)))) + (let ((_%tl174763174887%_ (let () (declare (not safe)) - (##cdr _%e175750175867%_))) - (_%hd175749175870%_ + (##cdr _%e174765174882%_))) + (_%hd174764174885%_ (let () (declare (not safe)) - (##car _%e175750175867%_)))) + (##car _%e174765174882%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175748175872%_)) + (gx#stx-null? _%tl174763174887%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175730175824%_)) + (gx#stx-null? _%tl174745174839%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl175721175800%_)) - (let ((_%__splice186075186076%_ + (gx#stx-pair/null? _%tl174736174815%_)) + (let ((_%__splice185090185091%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl175721175800%_ + _%tl174736174815%_ '0)))) - (let ((_%tl175753175877%_ + (let ((_%tl174768174892%_ (let () (declare (not safe)) (##vector-ref - _%__splice186075186076%_ + _%__splice185090185091%_ '1))) - (_%target175751175875%_ + (_%target174766174890%_ (let () (declare (not safe)) (##vector-ref - _%__splice186075186076%_ + _%__splice185090185091%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175753175877%_)) - (letrec ((_%loop175754175880%_ - (lambda (_%hd175752175883%_ - _%bind175758175885%_) + (gx#stx-null? _%tl174768174892%_)) + (letrec ((_%loop174769174895%_ + (lambda (_%hd174767174898%_ + _%bind174773174900%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175752175883%_)) - (let ((_%e175755175888%_ + _%hd174767174898%_)) + (let ((_%e174770174903%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd175752175883%_)))) - (let ((_%lp-tl175757175893%_ + (gx#stx-e _%hd174767174898%_)))) + (let ((_%lp-tl174772174908%_ (let () (declare (not safe)) - (##cdr _%e175755175888%_))) - (_%lp-hd175756175891%_ + (##cdr _%e174770174903%_))) + (_%lp-hd174771174906%_ (let () (declare (not safe)) - (##car _%e175755175888%_)))) - (let ((__tmp187129 - (cons _%lp-hd175756175891%_ _%bind175758175885%_))) - (declare (not safe)) - (_%loop175754175880%_ - _%lp-tl175757175893%_ - __tmp187129)))) - (let ((_%bind175759175896%_ (reverse _%bind175758175885%_))) + (##car _%e174770174903%_)))) + (_%loop174769174895%_ + _%lp-tl174772174908%_ + (cons _%lp-hd174771174906%_ _%bind174773174900%_)))) + (let ((_%bind174774174911%_ (reverse _%bind174773174900%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175718175792%_)) - (let ((_%e175762175899%_ + (gx#stx-pair? _%tl174733174807%_)) + (let ((_%e174777174914%_ (let () (declare (not safe)) - (gx#stx-e _%tl175718175792%_)))) - (let ((_%tl175760175904%_ + (gx#stx-e _%tl174733174807%_)))) + (let ((_%tl174775174919%_ (let () (declare (not safe)) - (##cdr _%e175762175899%_))) - (_%hd175761175902%_ + (##cdr _%e174777174914%_))) + (_%hd174776174917%_ (let () (declare (not safe)) - (##car _%e175762175899%_)))) + (##car _%e174777174914%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175760175904%_)) - (_%__kont186071186072%_ - _%hd175761175902%_ - _%bind175759175896%_ - _%hd175749175870%_ - _%id175747175864%_ - _%hd175728175814%_) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop175754175880%_ - _%target175751175875%_ - '()))) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)) - (_%__kont186077186078%_)) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_))))))) + (gx#stx-null? _%tl174775174919%_)) + (_%__kont185086185087%_ + _%hd174776174917%_ + _%bind174774174911%_ + _%hd174764174885%_ + _%id174762174879%_ + _%hd174743174829%_) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop175742175848%_ - _%target175739175843%_ - '())))))) + (_%loop174769174895%_ + _%target174766174890%_ + '())) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)) + (_%__kont185092185093%_)) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop174757174863%_ + _%target174754174858%_ + '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx186063186064%_)) - (let ((_%e175677176051%_ + (gx#stx-pair? _%__stx185078185079%_)) + (let ((_%e174692175066%_ (let () (declare (not safe)) - (gx#stx-e _%__stx186063186064%_)))) - (let ((_%tl175675176056%_ + (gx#stx-e _%__stx185078185079%_)))) + (let ((_%tl174690175071%_ (let () (declare (not safe)) - (##cdr _%e175677176051%_))) - (_%hd175676176054%_ + (##cdr _%e174692175066%_))) + (_%hd174691175069%_ (let () (declare (not safe)) - (##car _%e175677176051%_)))) + (##car _%e174692175066%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175676176054%_)) + (gx#identifier? _%hd174691175069%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd175676176054%_)) + _%hd174691175069%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175675176056%_)) - (let ((_%e175680176059%_ + _%tl174690175071%_)) + (let ((_%e174695175074%_ (let () (declare (not safe)) (gx#stx-e - _%tl175675176056%_)))) - (let ((_%tl175678176064%_ + _%tl174690175071%_)))) + (let ((_%tl174693175079%_ (let () (declare (not safe)) - (##cdr _%e175680176059%_))) - (_%hd175679176062%_ + (##cdr _%e174695175074%_))) + (_%hd174694175077%_ (let () (declare (not safe)) - (##car _%e175680176059%_)))) + (##car _%e174695175074%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175678176064%_)) - (let ((_%e175683176067%_ + _%tl174693175079%_)) + (let ((_%e174698175082%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl175678176064%_)))) - (let ((_%tl175681176072%_ - (let () (declare (not safe)) (##cdr _%e175683176067%_))) - (_%hd175682176070%_ + (gx#stx-e _%tl174693175079%_)))) + (let ((_%tl174696175087%_ + (let () (declare (not safe)) (##cdr _%e174698175082%_))) + (_%hd174697175085%_ (let () (declare (not safe)) - (##car _%e175683176067%_)))) + (##car _%e174698175082%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175681176072%_)) - (let ((_%e175686176075%_ + (gx#stx-pair? _%tl174696175087%_)) + (let ((_%e174701175090%_ (let () (declare (not safe)) - (gx#stx-e _%tl175681176072%_)))) - (let ((_%tl175684176080%_ + (gx#stx-e _%tl174696175087%_)))) + (let ((_%tl174699175095%_ (let () (declare (not safe)) - (##cdr _%e175686176075%_))) - (_%hd175685176078%_ + (##cdr _%e174701175090%_))) + (_%hd174700175093%_ (let () (declare (not safe)) - (##car _%e175686176075%_)))) + (##car _%e174701175090%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175684176080%_)) - (_%__kont186065186066%_ - _%hd175685176078%_ - _%hd175682176070%_ - _%hd175679176062%_) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)))) + (gx#stx-null? _%tl174699175095%_)) + (_%__kont185080185081%_ + _%hd174700175093%_ + _%hd174697175085%_ + _%hd174694175077%_) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont186077186078%_)) + (_%__kont185092185093%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd175676176054%_)) + _%hd174691175069%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175675176056%_)) - (let ((_%e175693176007%_ + _%tl174690175071%_)) + (let ((_%e174708175022%_ (let () (declare (not safe)) (gx#stx-e - _%tl175675176056%_)))) - (let ((_%tl175691176012%_ + _%tl174690175071%_)))) + (let ((_%tl174706175027%_ (let () (declare (not safe)) - (##cdr _%e175693176007%_))) - (_%hd175692176010%_ + (##cdr _%e174708175022%_))) + (_%hd174707175025%_ (let () (declare (not safe)) - (##car _%e175693176007%_)))) + (##car _%e174708175022%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175692176010%_)) - (let ((_%e175696176015%_ + _%hd174707175025%_)) + (let ((_%e174711175030%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd175692176010%_)))) - (let ((_%tl175694176020%_ + (gx#stx-e _%hd174707175025%_)))) + (let ((_%tl174709175035%_ (let () (declare (not safe)) - (##cdr _%e175696176015%_))) - (_%hd175695176018%_ + (##cdr _%e174711175030%_))) + (_%hd174710175033%_ (let () (declare (not safe)) - (##car _%e175696176015%_)))) + (##car _%e174711175030%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175695176018%_)) + (gx#identifier? _%hd174710175033%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd175695176018%_)) + (gx#stx-eq? '%#ref _%hd174710175033%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175694176020%_)) - (let ((_%e175699176023%_ + (gx#stx-pair? _%tl174709175035%_)) + (let ((_%e174714175038%_ (let () (declare (not safe)) - (gx#stx-e _%tl175694176020%_)))) - (let ((_%tl175697176028%_ + (gx#stx-e _%tl174709175035%_)))) + (let ((_%tl174712175043%_ (let () (declare (not safe)) - (##cdr _%e175699176023%_))) - (_%hd175698176026%_ + (##cdr _%e174714175038%_))) + (_%hd174713175041%_ (let () (declare (not safe)) - (##car _%e175699176023%_)))) + (##car _%e174714175038%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175697176028%_)) - (_%__kont186067186068%_ - _%hd175698176026%_) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)) - (_%__kont186077186078%_)) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)))) + (gx#stx-null? _%tl174712175043%_)) + (_%__kont185082185083%_ + _%hd174713175041%_) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)) + (_%__kont185092185093%_)) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont186077186078%_)) + (_%__kont185092185093%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd175676176054%_)) + _%hd174691175069%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175675176056%_)) - (let ((_%e175706175965%_ + _%tl174690175071%_)) + (let ((_%e174721174980%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl175675176056%_)))) - (let ((_%tl175704175970%_ - (let () (declare (not safe)) (##cdr _%e175706175965%_))) - (_%hd175705175968%_ + (gx#stx-e _%tl174690175071%_)))) + (let ((_%tl174719174985%_ + (let () (declare (not safe)) (##cdr _%e174721174980%_))) + (_%hd174720174983%_ (let () (declare (not safe)) - (##car _%e175706175965%_)))) + (##car _%e174721174980%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175704175970%_)) - (let ((_%e175709175973%_ + (gx#stx-pair? _%tl174719174985%_)) + (let ((_%e174724174988%_ (let () (declare (not safe)) - (gx#stx-e _%tl175704175970%_)))) - (let ((_%tl175707175978%_ + (gx#stx-e _%tl174719174985%_)))) + (let ((_%tl174722174993%_ (let () (declare (not safe)) - (##cdr _%e175709175973%_))) - (_%hd175708175976%_ + (##cdr _%e174724174988%_))) + (_%hd174723174991%_ (let () (declare (not safe)) - (##car _%e175709175973%_)))) + (##car _%e174724174988%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175707175978%_)) - (_%__kont186069186070%_ _%hd175708175976%_) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)) + (gx#stx-null? _%tl174722174993%_)) + (_%__kont185084185085%_ _%hd174723174991%_) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd175676176054%_)) + _%hd174691175069%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175675176056%_)) - (let ((_%e175720175787%_ + _%tl174690175071%_)) + (let ((_%e174735174802%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl175675176056%_)))) - (let ((_%tl175718175792%_ + (gx#stx-e _%tl174690175071%_)))) + (let ((_%tl174733174807%_ (let () (declare (not safe)) - (##cdr _%e175720175787%_))) - (_%hd175719175790%_ + (##cdr _%e174735174802%_))) + (_%hd174734174805%_ (let () (declare (not safe)) - (##car _%e175720175787%_)))) + (##car _%e174735174802%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175719175790%_)) - (let ((_%e175723175795%_ + (gx#stx-pair? _%hd174734174805%_)) + (let ((_%e174738174810%_ (let () (declare (not safe)) - (gx#stx-e _%hd175719175790%_)))) - (let ((_%tl175721175800%_ + (gx#stx-e _%hd174734174805%_)))) + (let ((_%tl174736174815%_ (let () (declare (not safe)) - (##cdr _%e175723175795%_))) - (_%hd175722175798%_ + (##cdr _%e174738174810%_))) + (_%hd174737174813%_ (let () (declare (not safe)) - (##car _%e175723175795%_)))) + (##car _%e174738174810%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175722175798%_)) - (let ((_%e175726175803%_ + (gx#stx-pair? _%hd174737174813%_)) + (let ((_%e174741174818%_ (let () (declare (not safe)) - (gx#stx-e _%hd175722175798%_)))) - (let ((_%tl175724175808%_ + (gx#stx-e _%hd174737174813%_)))) + (let ((_%tl174739174823%_ (let () (declare (not safe)) - (##cdr _%e175726175803%_))) - (_%hd175725175806%_ + (##cdr _%e174741174818%_))) + (_%hd174740174821%_ (let () (declare (not safe)) - (##car _%e175726175803%_)))) + (##car _%e174741174818%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175725175806%_)) - (let ((_%e175729175811%_ + (gx#stx-pair? _%hd174740174821%_)) + (let ((_%e174744174826%_ (let () (declare (not safe)) (gx#stx-e - _%hd175725175806%_)))) - (let ((_%tl175727175816%_ + _%hd174740174821%_)))) + (let ((_%tl174742174831%_ (let () (declare (not safe)) - (##cdr _%e175729175811%_))) - (_%hd175728175814%_ + (##cdr _%e174744174826%_))) + (_%hd174743174829%_ (let () (declare (not safe)) - (##car _%e175729175811%_)))) + (##car _%e174744174826%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175727175816%_)) + _%tl174742174831%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175724175808%_)) - (let ((_%e175732175819%_ + _%tl174739174823%_)) + (let ((_%e174747174834%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl175724175808%_)))) - (let ((_%tl175730175824%_ - (let () (declare (not safe)) (##cdr _%e175732175819%_))) - (_%hd175731175822%_ + (gx#stx-e _%tl174739174823%_)))) + (let ((_%tl174745174839%_ + (let () (declare (not safe)) (##cdr _%e174747174834%_))) + (_%hd174746174837%_ (let () (declare (not safe)) - (##car _%e175732175819%_)))) + (##car _%e174747174834%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175731175822%_)) - (let ((_%e175735175827%_ + (gx#stx-pair? _%hd174746174837%_)) + (let ((_%e174750174842%_ (let () (declare (not safe)) - (gx#stx-e _%hd175731175822%_)))) - (let ((_%tl175733175832%_ + (gx#stx-e _%hd174746174837%_)))) + (let ((_%tl174748174847%_ (let () (declare (not safe)) - (##cdr _%e175735175827%_))) - (_%hd175734175830%_ + (##cdr _%e174750174842%_))) + (_%hd174749174845%_ (let () (declare (not safe)) - (##car _%e175735175827%_)))) + (##car _%e174750174842%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175734175830%_)) + (gx#identifier? _%hd174749174845%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd175734175830%_)) + (gx#stx-eq? '%#lambda _%hd174749174845%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175733175832%_)) - (let ((_%e175738175835%_ + (gx#stx-pair? _%tl174748174847%_)) + (let ((_%e174753174850%_ (let () (declare (not safe)) - (gx#stx-e _%tl175733175832%_)))) - (let ((_%tl175736175840%_ + (gx#stx-e _%tl174748174847%_)))) + (let ((_%tl174751174855%_ (let () (declare (not safe)) - (##cdr _%e175738175835%_))) - (_%hd175737175838%_ + (##cdr _%e174753174850%_))) + (_%hd174752174853%_ (let () (declare (not safe)) - (##car _%e175738175835%_)))) + (##car _%e174753174850%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd175737175838%_)) - (let ((_%__splice186073186074%_ + _%hd174752174853%_)) + (let ((_%__splice185088185089%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd175737175838%_ + _%hd174752174853%_ '0)))) - (let ((_%tl175741175845%_ + (let ((_%tl174756174860%_ (let () (declare (not safe)) (##vector-ref - _%__splice186073186074%_ + _%__splice185088185089%_ '1))) - (_%target175739175843%_ + (_%target174754174858%_ (let () (declare (not safe)) (##vector-ref - _%__splice186073186074%_ + _%__splice185088185089%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175741175845%_)) - (_%__match186232186233%_ - _%e175677176051%_ - _%hd175676176054%_ - _%tl175675176056%_ - _%e175720175787%_ - _%hd175719175790%_ - _%tl175718175792%_ - _%e175723175795%_ - _%hd175722175798%_ - _%tl175721175800%_ - _%e175726175803%_ - _%hd175725175806%_ - _%tl175724175808%_ - _%e175729175811%_ - _%hd175728175814%_ - _%tl175727175816%_ - _%e175732175819%_ - _%hd175731175822%_ - _%tl175730175824%_ - _%e175735175827%_ - _%hd175734175830%_ - _%tl175733175832%_ - _%e175738175835%_ - _%hd175737175838%_ - _%tl175736175840%_ - _%__splice186073186074%_ - _%target175739175843%_ - _%tl175741175845%_) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)) - (_%__kont186077186078%_)) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)) + _%tl174756174860%_)) + (_%__match185247185248%_ + _%e174692175066%_ + _%hd174691175069%_ + _%tl174690175071%_ + _%e174735174802%_ + _%hd174734174805%_ + _%tl174733174807%_ + _%e174738174810%_ + _%hd174737174813%_ + _%tl174736174815%_ + _%e174741174818%_ + _%hd174740174821%_ + _%tl174739174823%_ + _%e174744174826%_ + _%hd174743174829%_ + _%tl174742174831%_ + _%e174747174834%_ + _%hd174746174837%_ + _%tl174745174839%_ + _%e174750174842%_ + _%hd174749174845%_ + _%tl174748174847%_ + _%e174753174850%_ + _%hd174752174853%_ + _%tl174751174855%_ + _%__splice185088185089%_ + _%target174754174858%_ + _%tl174756174860%_) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)) + (_%__kont185092185093%_)) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)) - (_%__kont186077186078%_))))) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)) + (_%__kont185092185093%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont186077186078%_)))) - (_%__kont186077186078%_)))))))) - (let* ((_%block175508175521%_ _%block175504%_) - (_%E175510175525%_ + (_%__kont185092185093%_)))) + (_%__kont185092185093%_)))))))) + (let* ((_%block174523174536%_ _%block174519%_) + (_%E174525174540%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block175508175521%_ + _%block174523174536%_ '([_ _ kont assert . maybe-bind]))) '#!void)) - (_%K175511175638%_ - (lambda (_%maybe-bind175528%_ - _%assert175529%_ - _%kont175530%_) - (let* ((_%g175532175558%_ - (lambda (_%g175533175555%_) + (_%K174526174653%_ + (lambda (_%maybe-bind174543%_ + _%assert174544%_ + _%kont174545%_) + (let* ((_%g174547174573%_ + (lambda (_%g174548174570%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175533175555%_)))) - (_%g175531175635%_ - (lambda (_%g175533175561%_) + _%g174548174570%_)))) + (_%g174546174650%_ + (lambda (_%g174548174576%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175533175561%_)) - (let ((_%e175538175563%_ + (gx#stx-pair? _%g174548174576%_)) + (let ((_%e174553174578%_ (let () (declare (not safe)) - (gx#stx-e _%g175533175561%_)))) - (let ((_%hd175537175566%_ + (gx#stx-e _%g174548174576%_)))) + (let ((_%hd174552174581%_ (let () (declare (not safe)) - (##car _%e175538175563%_))) - (_%tl175536175568%_ + (##car _%e174553174578%_))) + (_%tl174551174583%_ (let () (declare (not safe)) - (##cdr _%e175538175563%_)))) + (##cdr _%e174553174578%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175537175566%_)) + _%hd174552174581%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd175537175566%_)) + _%hd174552174581%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175536175568%_)) - (let ((_%e175541175571%_ + _%tl174551174583%_)) + (let ((_%e174556174586%_ (let () (declare (not safe)) (gx#stx-e - _%tl175536175568%_)))) - (let ((_%hd175540175574%_ + _%tl174551174583%_)))) + (let ((_%hd174555174589%_ (let () (declare (not safe)) - (##car _%e175541175571%_))) - (_%tl175539175576%_ + (##car _%e174556174586%_))) + (_%tl174554174591%_ (let () (declare (not safe)) - (##cdr _%e175541175571%_)))) + (##cdr _%e174556174586%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd175540175574%_)) - (let ((_g187130_ + _%hd174555174589%_)) + (let ((_g186077_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd175540175574%_ '0)))) + (gx#syntax-split-splice _%hd174555174589%_ '0)))) (begin - (let ((_g187131_ + (let ((_g186078_ (let () (declare (not safe)) - (if (##values? _g187130_) - (##vector-length _g187130_) + (if (##values? _g186077_) + (##vector-length _g186077_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g187131_ 2))) - (error "Context expects 2 values" _g187131_))) - (let ((_%target175542175579%_ + (##fx= _g186078_ 2))) + (error "Context expects 2 values" _g186078_))) + (let ((_%target174557174594%_ (let () (declare (not safe)) - (##vector-ref _g187130_ 0))) - (_%tl175544175581%_ + (##vector-ref _g186077_ 0))) + (_%tl174559174596%_ (let () (declare (not safe)) - (##vector-ref _g187130_ 1)))) + (##vector-ref _g186077_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175544175581%_)) - (letrec ((_%loop175545175584%_ - (lambda (_%hd175543175587%_ - _%id175549175589%_) + (gx#stx-null? _%tl174559174596%_)) + (letrec ((_%loop174560174599%_ + (lambda (_%hd174558174602%_ + _%id174564174604%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175543175587%_)) - (let ((_%e175546175592%_ + _%hd174558174602%_)) + (let ((_%e174561174607%_ (let () (declare (not safe)) (gx#stx-e - _%hd175543175587%_)))) - (let ((_%lp-hd175547175595%_ + _%hd174558174602%_)))) + (let ((_%lp-hd174562174610%_ (let () (declare (not safe)) - (##car _%e175546175592%_))) - (_%lp-tl175548175597%_ + (##car _%e174561174607%_))) + (_%lp-tl174563174612%_ (let () (declare (not safe)) - (##cdr _%e175546175592%_)))) - (let ((__tmp187132 - (cons _%lp-hd175547175595%_ - _%id175549175589%_))) - (declare (not safe)) - (_%loop175545175584%_ - _%lp-tl175548175597%_ - __tmp187132)))) - (let ((_%id175550175600%_ - (reverse _%id175549175589%_))) + (##cdr _%e174561174607%_)))) + (_%loop174560174599%_ + _%lp-tl174563174612%_ + (cons _%lp-hd174562174610%_ + _%id174564174604%_)))) + (let ((_%id174565174615%_ + (reverse _%id174564174604%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175539175576%_)) - (let ((_%e175553175603%_ + _%tl174554174591%_)) + (let ((_%e174568174618%_ (let () (declare (not safe)) (gx#stx-e - _%tl175539175576%_)))) - (let ((_%hd175552175606%_ + _%tl174554174591%_)))) + (let ((_%hd174567174621%_ (let () (declare (not safe)) - (##car _%e175553175603%_))) - (_%tl175551175608%_ + (##car _%e174568174618%_))) + (_%tl174566174623%_ (let () (declare (not safe)) - (##cdr _%e175553175603%_)))) + (##cdr _%e174568174618%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175551175608%_)) - ((lambda (_%L175611%_ + _%tl174566174623%_)) + ((lambda (_%L174626%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L175612%_) - (let () - (declare (not safe)) - (_%assert-restart175507%_ - _%L175611%_ - _%assert175529%_))) - _%hd175552175606%_ - _%id175550175600%_) - (let () - (declare (not safe)) - (_%g175532175558%_ _%g175533175561%_))))) + _%L174627%_) + (_%assert-restart174522%_ _%L174626%_ _%assert174544%_)) + _%hd174567174621%_ + _%id174565174615%_) + (_%g174547174573%_ _%g174548174576%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g175532175558%_ - _%g175533175561%_)))))))) - (let () - (declare (not safe)) - (_%loop175545175584%_ - _%target175542175579%_ - '()))) - (let () - (declare (not safe)) - (_%g175532175558%_ _%g175533175561%_)))))) - (let () - (declare (not safe)) - (_%g175532175558%_ _%g175533175561%_))))) + (_%g174547174573%_ + _%g174548174576%_))))))) + (_%loop174560174599%_ + _%target174557174594%_ + '())) + (_%g174547174573%_ _%g174548174576%_))))) + (_%g174547174573%_ _%g174548174576%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g175532175558%_ - _%g175533175561%_))) - (let () - (declare (not safe)) - (_%g175532175558%_ - _%g175533175561%_))) - (let () - (declare (not safe)) - (_%g175532175558%_ - _%g175533175561%_))))) - (let () - (declare (not safe)) - (_%g175532175558%_ _%g175533175561%_)))))) - (declare (not safe)) - (_%g175531175635%_ _%kont175530%_))))) - (if (let () (declare (not safe)) (##pair? _%block175508175521%_)) - (let ((_%tl175513175641%_ + (_%g174547174573%_ + _%g174548174576%_)) + (_%g174547174573%_ + _%g174548174576%_)) + (_%g174547174573%_ + _%g174548174576%_)))) + (_%g174547174573%_ _%g174548174576%_))))) + (_%g174546174650%_ _%kont174545%_))))) + (if (let () (declare (not safe)) (##pair? _%block174523174536%_)) + (let ((_%tl174528174656%_ (let () (declare (not safe)) - (##cdr _%block175508175521%_)))) + (##cdr _%block174523174536%_)))) (if (let () (declare (not safe)) - (##pair? _%tl175513175641%_)) - (let ((_%tl175515175644%_ + (##pair? _%tl174528174656%_)) + (let ((_%tl174530174659%_ (let () (declare (not safe)) - (##cdr _%tl175513175641%_)))) + (##cdr _%tl174528174656%_)))) (if (let () (declare (not safe)) - (##pair? _%tl175515175644%_)) - (let ((_%hd175516175647%_ + (##pair? _%tl174530174659%_)) + (let ((_%hd174531174662%_ (let () (declare (not safe)) - (##car _%tl175515175644%_))) - (_%tl175517175649%_ + (##car _%tl174530174659%_))) + (_%tl174532174664%_ (let () (declare (not safe)) - (##cdr _%tl175515175644%_)))) - (let ((_%kont175652%_ _%hd175516175647%_)) + (##cdr _%tl174530174659%_)))) + (let ((_%kont174667%_ _%hd174531174662%_)) (if (let () (declare (not safe)) - (##pair? _%tl175517175649%_)) - (let ((_%hd175518175654%_ + (##pair? _%tl174532174664%_)) + (let ((_%hd174533174669%_ (let () (declare (not safe)) - (##car _%tl175517175649%_))) - (_%tl175519175656%_ + (##car _%tl174532174664%_))) + (_%tl174534174671%_ (let () (declare (not safe)) - (##cdr _%tl175517175649%_)))) - (let* ((_%assert175659%_ - _%hd175518175654%_) - (_%maybe-bind175661%_ - _%tl175519175656%_)) - (declare (not safe)) - (_%K175511175638%_ - _%maybe-bind175661%_ - _%assert175659%_ - _%kont175652%_))) - (let () - (declare (not safe)) - (_%E175510175525%_))))) - (let () (declare (not safe)) (_%E175510175525%_)))) - (let () (declare (not safe)) (_%E175510175525%_)))) - (let () (declare (not safe)) (_%E175510175525%_))))))) + (##cdr _%tl174532174664%_)))) + (let* ((_%assert174674%_ + _%hd174533174669%_) + (_%maybe-bind174676%_ + _%tl174534174671%_)) + (_%K174526174653%_ + _%maybe-bind174676%_ + _%assert174674%_ + _%kont174667%_))) + (_%E174525174540%_)))) + (_%E174525174540%_))) + (_%E174525174540%_))) + (_%E174525174540%_)))))) (define gxc#optimize-syntax-case - (lambda (_%stx175135%_) - (let* ((_%g175137175167%_ - (lambda (_%g175138175164%_) + (lambda (_%stx174150%_) + (let* ((_%g174152174182%_ + (lambda (_%g174153174179%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175138175164%_)))) - (_%g175136175501%_ - (lambda (_%g175138175170%_) + _%g174153174179%_)))) + (_%g174151174516%_ + (lambda (_%g174153174185%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175138175170%_)) - (let ((_%e175144175172%_ + (gx#stx-pair? _%g174153174185%_)) + (let ((_%e174159174187%_ (let () (declare (not safe)) - (gx#stx-e _%g175138175170%_)))) - (let ((_%hd175143175175%_ + (gx#stx-e _%g174153174185%_)))) + (let ((_%hd174158174190%_ (let () (declare (not safe)) - (##car _%e175144175172%_))) - (_%tl175142175177%_ + (##car _%e174159174187%_))) + (_%tl174157174192%_ (let () (declare (not safe)) - (##cdr _%e175144175172%_)))) + (##cdr _%e174159174187%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175143175175%_)) + (gx#identifier? _%hd174158174190%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd175143175175%_)) + _%hd174158174190%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175142175177%_)) - (let ((_%e175147175180%_ + (gx#stx-pair? _%tl174157174192%_)) + (let ((_%e174162174195%_ (let () (declare (not safe)) - (gx#stx-e _%tl175142175177%_)))) - (let ((_%hd175146175183%_ + (gx#stx-e _%tl174157174192%_)))) + (let ((_%hd174161174198%_ (let () (declare (not safe)) - (##car _%e175147175180%_))) - (_%tl175145175185%_ + (##car _%e174162174195%_))) + (_%tl174160174200%_ (let () (declare (not safe)) - (##cdr _%e175147175180%_)))) + (##cdr _%e174162174195%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175146175183%_)) - (let ((_%e175150175188%_ + _%hd174161174198%_)) + (let ((_%e174165174203%_ (let () (declare (not safe)) (gx#stx-e - _%hd175146175183%_)))) - (let ((_%hd175149175191%_ + _%hd174161174198%_)))) + (let ((_%hd174164174206%_ (let () (declare (not safe)) - (##car _%e175150175188%_))) - (_%tl175148175193%_ + (##car _%e174165174203%_))) + (_%tl174163174208%_ (let () (declare (not safe)) - (##cdr _%e175150175188%_)))) + (##cdr _%e174165174203%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175149175191%_)) - (let ((_%e175153175196%_ + _%hd174164174206%_)) + (let ((_%e174168174211%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd175149175191%_)))) - (let ((_%hd175152175199%_ - (let () (declare (not safe)) (##car _%e175153175196%_))) - (_%tl175151175201%_ + (gx#stx-e _%hd174164174206%_)))) + (let ((_%hd174167174214%_ + (let () (declare (not safe)) (##car _%e174168174211%_))) + (_%tl174166174216%_ (let () (declare (not safe)) - (##cdr _%e175153175196%_)))) + (##cdr _%e174168174211%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175152175199%_)) - (let ((_%e175156175204%_ + (gx#stx-pair? _%hd174167174214%_)) + (let ((_%e174171174219%_ (let () (declare (not safe)) - (gx#stx-e _%hd175152175199%_)))) - (let ((_%hd175155175207%_ + (gx#stx-e _%hd174167174214%_)))) + (let ((_%hd174170174222%_ (let () (declare (not safe)) - (##car _%e175156175204%_))) - (_%tl175154175209%_ + (##car _%e174171174219%_))) + (_%tl174169174224%_ (let () (declare (not safe)) - (##cdr _%e175156175204%_)))) + (##cdr _%e174171174219%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175154175209%_)) + (gx#stx-null? _%tl174169174224%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175151175201%_)) - (let ((_%e175159175212%_ + (gx#stx-pair? _%tl174166174216%_)) + (let ((_%e174174174227%_ (let () (declare (not safe)) - (gx#stx-e _%tl175151175201%_)))) - (let ((_%hd175158175215%_ + (gx#stx-e _%tl174166174216%_)))) + (let ((_%hd174173174230%_ (let () (declare (not safe)) - (##car _%e175159175212%_))) - (_%tl175157175217%_ + (##car _%e174174174227%_))) + (_%tl174172174232%_ (let () (declare (not safe)) - (##cdr _%e175159175212%_)))) + (##cdr _%e174174174227%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175157175217%_)) + (gx#stx-null? _%tl174172174232%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175148175193%_)) + _%tl174163174208%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175145175185%_)) - (let ((_%e175162175220%_ + _%tl174160174200%_)) + (let ((_%e174177174235%_ (let () (declare (not safe)) (gx#stx-e - _%tl175145175185%_)))) - (let ((_%hd175161175223%_ + _%tl174160174200%_)))) + (let ((_%hd174176174238%_ (let () (declare (not safe)) - (##car _%e175162175220%_))) - (_%tl175160175225%_ + (##car _%e174177174235%_))) + (_%tl174175174240%_ (let () (declare (not safe)) - (##cdr _%e175162175220%_)))) + (##cdr _%e174177174235%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175160175225%_)) - ((lambda (_%L175228%_ + _%tl174175174240%_)) + ((lambda (_%L174243%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L175229%_ - _%L175230%_) - (let _%lp175254%_ ((_%body175256%_ _%L175228%_) - (_%clauses175257%_ '())) - (let* ((_%__stx186235186236%_ _%body175256%_) - (_%g175260175307%_ + _%L174244%_ + _%L174245%_) + (let _%lp174269%_ ((_%body174271%_ _%L174243%_) + (_%clauses174272%_ '())) + (let* ((_%__stx185250185251%_ _%body174271%_) + (_%g174275174322%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx186235186236%_))))) - (let ((_%__kont186237186238%_ - (lambda (_%L175473%_ _%L175474%_ _%L175475%_) - (let ((__tmp187133 - (cons (cons _%L175475%_ - (let () - (declare (not safe)) - (gxc#compile-e__0 - _%L175474%_))) - _%clauses175257%_))) - (declare (not safe)) - (_%lp175254%_ _%L175473%_ __tmp187133)))) - (_%__kont186239186240%_ - (lambda (_%L175352%_ _%L175353%_) - (let ((_%$e175374%_ - (length _%clauses175257%_))) - (if (eq? '0 _%$e175374%_) - (let ((__tmp187134 + _%__stx185250185251%_))))) + (let ((_%__kont185252185253%_ + (lambda (_%L174488%_ _%L174489%_ _%L174490%_) + (_%lp174269%_ + _%L174488%_ + (cons (cons _%L174490%_ + (let () + (declare (not safe)) + (gxc#compile-e__0 + _%L174489%_))) + _%clauses174272%_)))) + (_%__kont185254185255%_ + (lambda (_%L174367%_ _%L174368%_) + (let ((_%$e174389%_ + (length _%clauses174272%_))) + (if (eq? '0 _%$e174389%_) + (let ((__tmp186079 (cons '%#let-values - (cons (cons (cons (cons _%L175230%_ + (cons (cons (cons (cons _%L174245%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L175229%_ '())) + (cons _%L174244%_ '())) '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%body175256%_)) + (gxc#compile-e__0 _%body174271%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp187134 - _%stx175135%_)) - (if (eq? '1 _%$e175374%_) - (let* ((_%clauses175376175385%_ - _%clauses175257%_) - (_%E175378175389%_ + __tmp186079 + _%stx174150%_)) + (if (eq? '1 _%$e174389%_) + (let* ((_%clauses174391174400%_ + _%clauses174272%_) + (_%E174393174404%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses175376175385%_ + _%clauses174391174400%_ '([[clause ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . clause-lambda]]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K175379175395%_ - (lambda (_%clause-lambda175392%_ - _%clause175393%_) - (let ((__tmp187135 + (_%K174394174410%_ + (lambda (_%clause-lambda174407%_ + _%clause174408%_) + (let ((__tmp186080 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L175230%_ '()) - (cons _%L175229%_ '())) + (cons (cons (cons (cons _%L174245%_ '()) + (cons _%L174244%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%clause175393%_ + (cons (cons (cons (cons _%clause174408%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%clause-lambda175392%_ '())) + (cons _%clause-lambda174407%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%body175256%_)) + _%body174271%_)) '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp187135 _%stx175135%_))))) + (gxc#xform-wrap-source __tmp186080 _%stx174150%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%clauses175376175385%_)) - (let ((_%hd175380175398%_ + (##pair? _%clauses174391174400%_)) + (let ((_%hd174395174413%_ (let () (declare (not safe)) - (##car _%clauses175376175385%_))) - (_%tl175381175400%_ + (##car _%clauses174391174400%_))) + (_%tl174396174415%_ (let () (declare (not safe)) - (##cdr _%clauses175376175385%_)))) + (##cdr _%clauses174391174400%_)))) (if (let () (declare (not safe)) - (##pair? _%hd175380175398%_)) - (let ((_%hd175382175403%_ + (##pair? _%hd174395174413%_)) + (let ((_%hd174397174418%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%hd175380175398%_))) - (_%tl175383175405%_ + (##car _%hd174395174413%_))) + (_%tl174398174420%_ (let () (declare (not safe)) - (##cdr _%hd175380175398%_)))) - (let* ((_%clause175408%_ _%hd175382175403%_) - (_%clause-lambda175410%_ _%tl175383175405%_)) + (##cdr _%hd174395174413%_)))) + (let* ((_%clause174423%_ _%hd174397174418%_) + (_%clause-lambda174425%_ _%tl174398174420%_)) (if (let () (declare (not safe)) - (##null? _%tl175381175400%_)) - (let () - (declare (not safe)) - (_%K175379175395%_ - _%clause-lambda175410%_ - _%clause175408%_)) - (let () (declare (not safe)) (_%E175378175389%_))))) - (let () (declare (not safe)) (_%E175378175389%_)))) + (##null? _%tl174396174415%_)) + (_%K174394174410%_ + _%clause-lambda174425%_ + _%clause174423%_) + (_%E174393174404%_)))) + (_%E174393174404%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%E175378175389%_)))) - (let ((__tmp187137 - (let () - (declare (not safe)) - (gxc#compile-e__0 - _%L175352%_))) - (__tmp187136 - (cons _%L175230%_ - _%L175229%_))) - (declare (not safe)) - (gxc#optimize-syntax-case-body - _%stx175135%_ - __tmp187137 - __tmp187136 - _%clauses175257%_)))))))) + (_%E174393174404%_))) + (gxc#optimize-syntax-case-body + _%stx174150%_ + (let () + (declare (not safe)) + (gxc#compile-e__0 _%L174367%_)) + (cons _%L174245%_ _%L174244%_) + _%clauses174272%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx186235186236%_)) - (let ((_%e175267175417%_ + (gx#stx-pair? _%__stx185250185251%_)) + (let ((_%e174282174432%_ (let () (declare (not safe)) - (gx#stx-e _%__stx186235186236%_)))) - (let ((_%tl175265175422%_ + (gx#stx-e _%__stx185250185251%_)))) + (let ((_%tl174280174437%_ (let () (declare (not safe)) - (##cdr _%e175267175417%_))) - (_%hd175266175420%_ + (##cdr _%e174282174432%_))) + (_%hd174281174435%_ (let () (declare (not safe)) - (##car _%e175267175417%_)))) + (##car _%e174282174432%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175266175420%_)) + (gx#identifier? _%hd174281174435%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd175266175420%_)) + _%hd174281174435%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175265175422%_)) - (let ((_%e175270175425%_ + _%tl174280174437%_)) + (let ((_%e174285174440%_ (let () (declare (not safe)) (gx#stx-e - _%tl175265175422%_)))) - (let ((_%tl175268175430%_ + _%tl174280174437%_)))) + (let ((_%tl174283174445%_ (let () (declare (not safe)) - (##cdr _%e175270175425%_))) - (_%hd175269175428%_ + (##cdr _%e174285174440%_))) + (_%hd174284174443%_ (let () (declare (not safe)) - (##car _%e175270175425%_)))) + (##car _%e174285174440%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175269175428%_)) - (let ((_%e175273175433%_ + _%hd174284174443%_)) + (let ((_%e174288174448%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd175269175428%_)))) - (let ((_%tl175271175438%_ + (gx#stx-e _%hd174284174443%_)))) + (let ((_%tl174286174453%_ (let () (declare (not safe)) - (##cdr _%e175273175433%_))) - (_%hd175272175436%_ + (##cdr _%e174288174448%_))) + (_%hd174287174451%_ (let () (declare (not safe)) - (##car _%e175273175433%_)))) + (##car _%e174288174448%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175272175436%_)) - (let ((_%e175276175441%_ + (gx#stx-pair? _%hd174287174451%_)) + (let ((_%e174291174456%_ (let () (declare (not safe)) - (gx#stx-e _%hd175272175436%_)))) - (let ((_%tl175274175446%_ + (gx#stx-e _%hd174287174451%_)))) + (let ((_%tl174289174461%_ (let () (declare (not safe)) - (##cdr _%e175276175441%_))) - (_%hd175275175444%_ + (##cdr _%e174291174456%_))) + (_%hd174290174459%_ (let () (declare (not safe)) - (##car _%e175276175441%_)))) + (##car _%e174291174456%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175275175444%_)) - (let ((_%e175279175449%_ + (gx#stx-pair? _%hd174290174459%_)) + (let ((_%e174294174464%_ (let () (declare (not safe)) - (gx#stx-e _%hd175275175444%_)))) - (let ((_%tl175277175454%_ + (gx#stx-e _%hd174290174459%_)))) + (let ((_%tl174292174469%_ (let () (declare (not safe)) - (##cdr _%e175279175449%_))) - (_%hd175278175452%_ + (##cdr _%e174294174464%_))) + (_%hd174293174467%_ (let () (declare (not safe)) - (##car _%e175279175449%_)))) + (##car _%e174294174464%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175277175454%_)) + (gx#stx-null? _%tl174292174469%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175274175446%_)) - (let ((_%e175282175457%_ + (gx#stx-pair? _%tl174289174461%_)) + (let ((_%e174297174472%_ (let () (declare (not safe)) (gx#stx-e - _%tl175274175446%_)))) - (let ((_%tl175280175462%_ + _%tl174289174461%_)))) + (let ((_%tl174295174477%_ (let () (declare (not safe)) - (##cdr _%e175282175457%_))) - (_%hd175281175460%_ + (##cdr _%e174297174472%_))) + (_%hd174296174475%_ (let () (declare (not safe)) - (##car _%e175282175457%_)))) + (##car _%e174297174472%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175280175462%_)) + _%tl174295174477%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175271175438%_)) + _%tl174286174453%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175268175430%_)) - (let ((_%e175285175465%_ + _%tl174283174445%_)) + (let ((_%e174300174480%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl175268175430%_)))) - (let ((_%tl175283175470%_ + (gx#stx-e _%tl174283174445%_)))) + (let ((_%tl174298174485%_ (let () (declare (not safe)) - (##cdr _%e175285175465%_))) - (_%hd175284175468%_ + (##cdr _%e174300174480%_))) + (_%hd174299174483%_ (let () (declare (not safe)) - (##car _%e175285175465%_)))) + (##car _%e174300174480%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175283175470%_)) - (_%__kont186237186238%_ - _%hd175284175468%_ - _%hd175281175460%_ - _%hd175278175452%_) - (let () (declare (not safe)) (_%g175260175307%_))))) - (let () (declare (not safe)) (_%g175260175307%_))) - (let () (declare (not safe)) (_%g175260175307%_))) + (gx#stx-null? _%tl174298174485%_)) + (_%__kont185252185253%_ + _%hd174299174483%_ + _%hd174296174475%_ + _%hd174293174467%_) + (let () (declare (not safe)) (_%g174275174322%_))))) + (let () (declare (not safe)) (_%g174275174322%_))) + (let () (declare (not safe)) (_%g174275174322%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g175260175307%_))))) + (_%g174275174322%_))))) (let () (declare (not safe)) - (_%g175260175307%_))) + (_%g174275174322%_))) (let () (declare (not safe)) - (_%g175260175307%_))))) + (_%g174275174322%_))))) (let () (declare (not safe)) - (_%g175260175307%_))))) - (let () (declare (not safe)) (_%g175260175307%_))))) - (let () (declare (not safe)) (_%g175260175307%_))))) + (_%g174275174322%_))))) + (let () (declare (not safe)) (_%g174275174322%_))))) + (let () (declare (not safe)) (_%g174275174322%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g175260175307%_))) + (_%g174275174322%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd175266175420%_)) + _%hd174281174435%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175265175422%_)) - (let ((_%e175293175320%_ + _%tl174280174437%_)) + (let ((_%e174308174335%_ (let () (declare (not safe)) (gx#stx-e - _%tl175265175422%_)))) - (let ((_%tl175291175325%_ + _%tl174280174437%_)))) + (let ((_%tl174306174340%_ (let () (declare (not safe)) - (##cdr _%e175293175320%_))) - (_%hd175292175323%_ + (##cdr _%e174308174335%_))) + (_%hd174307174338%_ (let () (declare (not safe)) - (##car _%e175293175320%_)))) + (##car _%e174308174335%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175292175323%_)) - (let ((_%e175296175328%_ + _%hd174307174338%_)) + (let ((_%e174311174343%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd175292175323%_)))) - (let ((_%tl175294175333%_ + (gx#stx-e _%hd174307174338%_)))) + (let ((_%tl174309174348%_ (let () (declare (not safe)) - (##cdr _%e175296175328%_))) - (_%hd175295175331%_ + (##cdr _%e174311174343%_))) + (_%hd174310174346%_ (let () (declare (not safe)) - (##car _%e175296175328%_)))) + (##car _%e174311174343%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175295175331%_)) + (gx#identifier? _%hd174310174346%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd175295175331%_)) + (gx#stx-eq? '%#ref _%hd174310174346%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175294175333%_)) - (let ((_%e175299175336%_ + (gx#stx-pair? _%tl174309174348%_)) + (let ((_%e174314174351%_ (let () (declare (not safe)) - (gx#stx-e _%tl175294175333%_)))) - (let ((_%tl175297175341%_ + (gx#stx-e _%tl174309174348%_)))) + (let ((_%tl174312174356%_ (let () (declare (not safe)) - (##cdr _%e175299175336%_))) - (_%hd175298175339%_ + (##cdr _%e174314174351%_))) + (_%hd174313174354%_ (let () (declare (not safe)) - (##car _%e175299175336%_)))) + (##car _%e174314174351%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175297175341%_)) + (gx#stx-null? _%tl174312174356%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175291175325%_)) - (let ((_%e175302175344%_ + _%tl174306174340%_)) + (let ((_%e174317174359%_ (let () (declare (not safe)) (gx#stx-e - _%tl175291175325%_)))) - (let ((_%tl175300175349%_ + _%tl174306174340%_)))) + (let ((_%tl174315174364%_ (let () (declare (not safe)) - (##cdr _%e175302175344%_))) - (_%hd175301175347%_ + (##cdr _%e174317174359%_))) + (_%hd174316174362%_ (let () (declare (not safe)) - (##car _%e175302175344%_)))) + (##car _%e174317174359%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175300175349%_)) - (_%__kont186239186240%_ - _%hd175301175347%_ - _%hd175298175339%_) + _%tl174315174364%_)) + (_%__kont185254185255%_ + _%hd174316174362%_ + _%hd174313174354%_) (let () (declare (not safe)) - (_%g175260175307%_))))) + (_%g174275174322%_))))) (let () (declare (not safe)) - (_%g175260175307%_))) + (_%g174275174322%_))) (let () (declare (not safe)) - (_%g175260175307%_))))) + (_%g174275174322%_))))) (let () (declare (not safe)) - (_%g175260175307%_))) + (_%g174275174322%_))) (let () (declare (not safe)) - (_%g175260175307%_))) - (let () (declare (not safe)) (_%g175260175307%_))))) - (let () (declare (not safe)) (_%g175260175307%_))))) + (_%g174275174322%_))) + (let () (declare (not safe)) (_%g174275174322%_))))) + (let () (declare (not safe)) (_%g174275174322%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g175260175307%_))) + (_%g174275174322%_))) (let () (declare (not safe)) - (_%g175260175307%_)))) + (_%g174275174322%_)))) (let () (declare (not safe)) - (_%g175260175307%_))))) + (_%g174275174322%_))))) (let () (declare (not safe)) - (_%g175260175307%_))))))) - _%hd175161175223%_ - _%hd175158175215%_ - _%hd175155175207%_) - (let () - (declare (not safe)) - (_%g175137175167%_ _%g175138175170%_))))) + (_%g174275174322%_))))))) + _%hd174176174238%_ + _%hd174173174230%_ + _%hd174170174222%_) + (_%g174152174182%_ _%g174153174185%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g175137175167%_ - _%g175138175170%_))) - (let () - (declare (not safe)) - (_%g175137175167%_ - _%g175138175170%_))) - (let () - (declare (not safe)) - (_%g175137175167%_ - _%g175138175170%_))))) - (let () - (declare (not safe)) - (_%g175137175167%_ _%g175138175170%_))) - (let () - (declare (not safe)) - (_%g175137175167%_ _%g175138175170%_))))) - (let () - (declare (not safe)) - (_%g175137175167%_ _%g175138175170%_))))) - (let () - (declare (not safe)) - (_%g175137175167%_ _%g175138175170%_))))) + (_%g174152174182%_ + _%g174153174185%_)) + (_%g174152174182%_ + _%g174153174185%_)) + (_%g174152174182%_ + _%g174153174185%_)))) + (_%g174152174182%_ _%g174153174185%_)) + (_%g174152174182%_ _%g174153174185%_)))) + (_%g174152174182%_ _%g174153174185%_)))) + (_%g174152174182%_ _%g174153174185%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g175137175167%_ - _%g175138175170%_))))) - (let () - (declare (not safe)) - (_%g175137175167%_ _%g175138175170%_))) - (let () - (declare (not safe)) - (_%g175137175167%_ _%g175138175170%_))) - (let () - (declare (not safe)) - (_%g175137175167%_ _%g175138175170%_))))) - (let () - (declare (not safe)) - (_%g175137175167%_ _%g175138175170%_)))))) - (declare (not safe)) - (_%g175136175501%_ _%stx175135%_)))) + (_%g174152174182%_ + _%g174153174185%_)))) + (_%g174152174182%_ _%g174153174185%_)) + (_%g174152174182%_ _%g174153174185%_)) + (_%g174152174182%_ _%g174153174185%_)))) + (_%g174152174182%_ _%g174153174185%_))))) + (_%g174151174516%_ _%stx174150%_)))) (define gxc#optimize-syntax-case-body - (lambda (_%stx175062%_ - _%expr175063%_ - _%negation175064%_ - _%clauses175065%_) - (letrec ((_%normalize175067%_ - (lambda (_%clauses175095%_) - (let* ((_%clauses175096175105%_ _%clauses175095%_) - (_%E175098175109%_ + (lambda (_%stx174077%_ + _%expr174078%_ + _%negation174079%_ + _%clauses174080%_) + (letrec ((_%normalize174082%_ + (lambda (_%clauses174110%_) + (let* ((_%clauses174111174120%_ _%clauses174110%_) + (_%E174113174124%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses175096175105%_ + _%clauses174111174120%_ '([[id . kont] . rest]))) '#!void)) - (_%K175099175116%_ - (lambda (_%rest175112%_ - _%kont175113%_ - _%id175114%_) - (cons (cons '#f _%kont175113%_) - _%rest175112%_)))) + (_%K174114174131%_ + (lambda (_%rest174127%_ + _%kont174128%_ + _%id174129%_) + (cons (cons '#f _%kont174128%_) + _%rest174127%_)))) (if (let () (declare (not safe)) - (##pair? _%clauses175096175105%_)) - (let ((_%hd175100175119%_ + (##pair? _%clauses174111174120%_)) + (let ((_%hd174115174134%_ (let () (declare (not safe)) - (##car _%clauses175096175105%_))) - (_%tl175101175121%_ + (##car _%clauses174111174120%_))) + (_%tl174116174136%_ (let () (declare (not safe)) - (##cdr _%clauses175096175105%_)))) + (##cdr _%clauses174111174120%_)))) (if (let () (declare (not safe)) - (##pair? _%hd175100175119%_)) - (let ((_%hd175102175124%_ + (##pair? _%hd174115174134%_)) + (let ((_%hd174117174139%_ (let () (declare (not safe)) - (##car _%hd175100175119%_))) - (_%tl175103175126%_ + (##car _%hd174115174134%_))) + (_%tl174118174141%_ (let () (declare (not safe)) - (##cdr _%hd175100175119%_)))) - (let* ((_%id175129%_ _%hd175102175124%_) - (_%kont175131%_ _%tl175103175126%_) - (_%rest175133%_ _%tl175101175121%_)) - (declare (not safe)) - (_%K175099175116%_ - _%rest175133%_ - _%kont175131%_ - _%id175129%_))) - (let () - (declare (not safe)) - (_%E175098175109%_)))) - (let () - (declare (not safe)) - (_%E175098175109%_))))))) - (let ((__tmp187139 + (##cdr _%hd174115174134%_)))) + (let* ((_%id174144%_ _%hd174117174139%_) + (_%kont174146%_ _%tl174118174141%_) + (_%rest174148%_ _%tl174116174136%_)) + (_%K174114174131%_ + _%rest174148%_ + _%kont174146%_ + _%id174144%_))) + (_%E174113174124%_))) + (_%E174113174124%_)))))) + (let ((__tmp186082 (lambda () - (let* ((_%id175070%_ - (let ((__tmp187140 + (let* ((_%id174085%_ + (let ((__tmp186083 (let () (declare (not safe)) (##gensym '__stx)))) (declare (not safe)) - (make-symbol__0 __tmp187140))) - (_%id175072%_ + (make-symbol__0 __tmp186083))) + (_%id174087%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id175070%_))) - (_%_175074%_ + (gx#core-quote-syntax__0 _%id174085%_))) + (_%_174089%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id175072%_))) - (_g187141_ - (let ((__tmp187143 (car _%negation175064%_))) - (declare (not safe)) - (gxc#optimize-syntax-case-clauses - _%clauses175065%_ - __tmp187143)))) + (gx#core-bind-runtime!__0 _%id174087%_))) + (_g186084_ + (gxc#optimize-syntax-case-clauses + _%clauses174080%_ + (car _%negation174079%_)))) (begin - (let ((_g187142_ + (let ((_g186085_ (let () (declare (not safe)) - (if (##values? _g187141_) - (##vector-length _g187141_) + (if (##values? _g186084_) + (##vector-length _g186084_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g187142_ 2))) - (error "Context expects 2 values" _g187142_))) - (let ((_%clauses175076%_ + (##fx= _g186085_ 2))) + (error "Context expects 2 values" _g186085_))) + (let ((_%clauses174091%_ (let () (declare (not safe)) - (##vector-ref _g187141_ 0))) - (_%konts175077%_ + (##vector-ref _g186084_ 0))) + (_%konts174092%_ (let () (declare (not safe)) - (##vector-ref _g187141_ 1)))) - (let* ((_%clauses175086%_ - (map (lambda (_%g175078175081%_ - _%g175079175083%_) - (let () - (declare (not safe)) - (gxc#optimize-syntax-case-closure - _%g175078175081%_ - _%g175079175083%_ - _%id175072%_))) - _%clauses175076%_ - (let ((__tmp187145 - (cons (car _%negation175064%_) + (##vector-ref _g186084_ 1)))) + (let* ((_%clauses174101%_ + (map (lambda (_%g174093174096%_ + _%g174094174098%_) + (gxc#optimize-syntax-case-closure + _%g174093174096%_ + _%g174094174098%_ + _%id174087%_)) + _%clauses174091%_ + (let ((__tmp186087 + (cons (car _%negation174079%_) '())) - (__tmp187144 + (__tmp186086 (map car - (cdr _%clauses175076%_)))) + (cdr _%clauses174091%_)))) (declare (not safe)) (__foldr1 cons - __tmp187145 - __tmp187144)))) - (_%clauses175088%_ - (let () - (declare (not safe)) - (_%normalize175067%_ _%clauses175086%_))) - (_%negation175090%_ - (let () - (declare (not safe)) - (gxc#optimize-syntax-case-closure - _%negation175064%_ - '#f - _%id175072%_))) - (_%body175092%_ - (let () - (declare (not safe)) - (gxc#optimize-match-body - _%stx175062%_ - _%negation175090%_ - _%clauses175088%_ - _%konts175077%_))) - (__tmp187146 + __tmp186087 + __tmp186086)))) + (_%clauses174103%_ + (_%normalize174082%_ _%clauses174101%_)) + (_%negation174105%_ + (gxc#optimize-syntax-case-closure + _%negation174079%_ + '#f + _%id174087%_)) + (_%body174107%_ + (gxc#optimize-match-body + _%stx174077%_ + _%negation174105%_ + _%clauses174103%_ + _%konts174092%_)) + (__tmp186088 (cons '%#let-values - (cons (cons (cons (cons _%id175072%_ + (cons (cons (cons (cons _%id174087%_ '()) - (cons _%expr175063%_ + (cons _%expr174078%_ '())) '()) - (cons _%body175092%_ '()))))) + (cons _%body174107%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp187146 - _%stx175062%_))))))) - (__tmp187138 - (let ((__obj186987 + __tmp186088 + _%stx174077%_))))))) + (__tmp186081 + (let ((__obj186002 (let () (declare (not safe)) (##structure @@ -14069,76 +13282,72 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj186987) - __obj186987))) + (gx#local-context:::init! __obj186002) + __obj186002))) (declare (not safe)) (__call-with-parameters - __tmp187139 + __tmp186082 gx#current-expander-context - __tmp187138))))) + __tmp186081))))) (define gxc#optimize-syntax-case-clauses - (lambda (_%clauses173818%_ _%negation-id173819%_) - (letrec ((_%xform-e173821%_ - (lambda (_%expr174206%_ - _%kont-id174207%_ - _%kont-box174208%_ - _%negation-id174209%_) - (let* ((_%__stx186437186438%_ _%expr174206%_) - (_%g174215174348%_ + (lambda (_%clauses172833%_ _%negation-id172834%_) + (letrec ((_%xform-e172836%_ + (lambda (_%expr173221%_ + _%kont-id173222%_ + _%kont-box173223%_ + _%negation-id173224%_) + (let* ((_%__stx185452185453%_ _%expr173221%_) + (_%g173230173363%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx186437186438%_))))) - (let ((_%__kont186439186440%_ - (lambda (_%L175038%_ _%L175039%_ _%L175040%_) - (let ((_%K175057%_ - (let () - (declare (not safe)) - (_%xform-e173821%_ - _%L175039%_ - _%kont-id174207%_ - _%kont-box174208%_ - _%negation-id174209%_)))) + _%__stx185452185453%_))))) + (let ((_%__kont185454185455%_ + (lambda (_%L174053%_ _%L174054%_ _%L174055%_) + (let ((_%K174072%_ + (_%xform-e172836%_ + _%L174054%_ + _%kont-id173222%_ + _%kont-box173223%_ + _%negation-id173224%_))) (cons '%#if - (cons _%L175040%_ - (cons _%K175057%_ - (cons _%L175038%_ '()))))))) - (_%__kont186441186442%_ - (lambda (_%L174953%_ - _%L174954%_ - _%L174955%_ - _%L174956%_ - _%L174957%_) - (let* ((_%id174992%_ - (let ((__tmp187147 + (cons _%L174055%_ + (cons _%K174072%_ + (cons _%L174053%_ '()))))))) + (_%__kont185456185457%_ + (lambda (_%L173968%_ + _%L173969%_ + _%L173970%_ + _%L173971%_ + _%L173972%_) + (let* ((_%id174007%_ + (let ((__tmp186089 (let () (declare (not safe)) (##gensym '__splice)))) (declare (not safe)) - (make-symbol__0 __tmp187147))) - (_%id174994%_ + (make-symbol__0 __tmp186089))) + (_%id174009%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id174992%_))) - (_%_174996%_ + _%id174007%_))) + (_%_174011%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id174994%_))) - (_%body174998%_ - (let () - (declare (not safe)) - (_%xform-e173821%_ - _%L174953%_ - _%kont-id174207%_ - _%kont-box174208%_ - _%negation-id174209%_)))) + _%id174009%_))) + (_%body174013%_ + (_%xform-e172836%_ + _%L173968%_ + _%kont-id173222%_ + _%kont-box173223%_ + _%negation-id173224%_))) (cons '%#let-values - (cons (cons (cons (cons _%id174994%_ + (cons (cons (cons (cons _%id174009%_ '()) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14147,117 +13356,113 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L174955%_ '())) - _%L174954%_)) + (cons _%L173970%_ '())) + _%L173969%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L174957%_ + (cons (cons (cons (cons _%L173972%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id174994%_ '())) + (cons _%id174009%_ '())) (cons '(%#quote 0) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L174956%_ '()) + (cons (cons (cons _%L173971%_ '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id174994%_ '())) + (cons _%id174009%_ '())) (cons '(%#quote 1) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (cons _%body174998%_ '()))) + (cons _%body174013%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont186443186444%_ - (lambda (_%L174835%_ _%L174836%_) - (let ((_%body174850%_ - (let () - (declare (not safe)) - (_%xform-e173821%_ - _%L174835%_ - _%kont-id174207%_ - _%kont-box174208%_ - _%negation-id174209%_)))) + (_%__kont185458185459%_ + (lambda (_%L173850%_ _%L173851%_) + (let ((_%body173865%_ + (_%xform-e172836%_ + _%L173850%_ + _%kont-id173222%_ + _%kont-box173223%_ + _%negation-id173224%_))) (cons '%#let-values - (cons _%L174836%_ - (cons _%body174850%_ '())))))) - (_%__kont186445186446%_ - (lambda (_%L174779%_ _%L174780%_ _%L174781%_) - (let ((_%lambda-expr174804%_ - (let () - (declare (not safe)) - (_%xform-loop-e173822%_ - _%L174780%_ - _%kont-id174207%_ - _%kont-box174208%_ - _%negation-id174209%_)))) + (cons _%L173851%_ + (cons _%body173865%_ '())))))) + (_%__kont185460185461%_ + (lambda (_%L173794%_ _%L173795%_ _%L173796%_) + (let ((_%lambda-expr173819%_ + (_%xform-loop-e172837%_ + _%L173795%_ + _%kont-id173222%_ + _%kont-box173223%_ + _%negation-id173224%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L174781%_ '()) - (cons _%lambda-expr174804%_ + (cons (cons (cons (cons _%L173796%_ '()) + (cons _%lambda-expr173819%_ '())) '()) - (cons _%L174779%_ '())))))) - (_%__kont186447186448%_ - (lambda (_%L174441%_ _%L174442%_ _%L174443%_) - (let* ((_%__stx186339186340%_ _%L174442%_) - (_%g174472174515%_ + (cons _%L173794%_ '())))))) + (_%__kont185462185463%_ + (lambda (_%L173456%_ _%L173457%_ _%L173458%_) + (let* ((_%__stx185354185355%_ _%L173457%_) + (_%g173487173530%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx186339186340%_))))) - (let ((_%__kont186341186342%_ - (lambda (_%L174631%_ - _%L174632%_ - _%L174633%_ - _%L174634%_) - (let ((_%kont174675%_ + _%__stx185354185355%_))))) + (let ((_%__kont185356185357%_ + (lambda (_%L173646%_ + _%L173647%_ + _%L173648%_ + _%L173649%_) + (let ((_%kont173690%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp187148 + (cons (let ((__tmp186090 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g174667174670%_ _%g174668174672%_) - (cons _%g174667174670%_ _%g174668174672%_)))) + (lambda (_%g173682173685%_ _%g173683173687%_) + (cons _%g173682173685%_ _%g173683173687%_)))) (declare (not safe)) - (__foldr1 __tmp187148 '() _%L174443%_)) - (cons _%L174633%_ '()))))) + (__foldr1 __tmp186090 '() _%L173458%_)) + (cons _%L173648%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box174208%_ - _%kont174675%_) - (let* ((_%kont-args174686%_ - (map (lambda (_%id174677%_) + _%kont-box173223%_ + _%kont173690%_) + (let* ((_%kont-args173701%_ + (map (lambda (_%id173692%_) (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id174677%_ '()))) - (let ((__tmp187149 - (lambda (_%g174678174681%_ _%g174679174683%_) - (cons _%g174678174681%_ _%g174679174683%_)))) + (cons _%id173692%_ '()))) + (let ((__tmp186091 + (lambda (_%g173693173696%_ _%g173694173698%_) + (cons _%g173693173696%_ _%g173694173698%_)))) (declare (not safe)) - (__foldr1 __tmp187149 '() _%L174443%_)))) + (__foldr1 __tmp186091 '() _%L173458%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body174688%_ + (_%body173703%_ (cons '%#if - (cons _%L174634%_ + (cons _%L173649%_ (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref - (cons _%kont-id174207%_ '())) - _%kont-args174686%_)) + (cons _%kont-id173222%_ '())) + _%kont-args173701%_)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -14266,3272 +13471,3162 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L174632%_ '())) + (cons _%L173647%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L174631%_ + (cons _%L173646%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp187150 - (let ((__tmp187151 - (lambda (_%g174690174693%_ + (if (null? (let ((__tmp186092 + (lambda (_%g173705173708%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g174691174695%_) - (cons _%g174690174693%_ _%g174691174695%_)))) + _%g173706173710%_) + (cons _%g173705173708%_ _%g173706173710%_)))) (declare (not safe)) - (__foldr1 __tmp187151 '() _%L174443%_)))) + (__foldr1 __tmp186092 '() _%L173458%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (null? __tmp187150)) - _%body174688%_ + _%body173703%_ (cons '%#let-values - (cons (map (lambda (_%id174698%_ + (cons (map (lambda (_%id173713%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg174699%_) - (cons (cons _%id174698%_ '()) - (cons _%arg174699%_ '()))) - (let ((__tmp187152 - (lambda (_%g174700174703%_ _%g174701174705%_) - (cons _%g174700174703%_ - _%g174701174705%_)))) + _%arg173714%_) + (cons (cons _%id173713%_ '()) + (cons _%arg173714%_ '()))) + (let ((__tmp186093 + (lambda (_%g173715173718%_ _%g173716173720%_) + (cons _%g173715173718%_ + _%g173716173720%_)))) (declare (not safe)) - (__foldr1 __tmp187152 '() _%L174443%_)) - (let ((__tmp187153 - (lambda (_%g174707174710%_ _%g174708174712%_) - (cons _%g174707174710%_ - _%g174708174712%_)))) + (__foldr1 __tmp186093 '() _%L173458%_)) + (let ((__tmp186094 + (lambda (_%g173722173725%_ _%g173723173727%_) + (cons _%g173722173725%_ + _%g173723173727%_)))) (declare (not safe)) - (__foldr1 __tmp187153 '() _%L174441%_))) - (cons _%body174688%_ '())))))))) + (__foldr1 __tmp186094 '() _%L173456%_))) + (cons _%body173703%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont186343186344%_ + (_%__kont185358185359%_ (lambda () - (let ((_%kont174529%_ + (let ((_%kont173544%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp187154 + (cons (let ((__tmp186095 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g174521174524%_ _%g174522174526%_) - (cons _%g174521174524%_ _%g174522174526%_)))) + (lambda (_%g173536173539%_ _%g173537173541%_) + (cons _%g173536173539%_ _%g173537173541%_)))) (declare (not safe)) - (__foldr1 __tmp187154 '() _%L174443%_)) - (cons _%L174442%_ '()))))) + (__foldr1 __tmp186095 '() _%L173458%_)) + (cons _%L173457%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box174208%_ - _%kont174529%_) + _%kont-box173223%_ + _%kont173544%_) (cons '%#call (cons (cons '%#ref - (cons _%kont-id174207%_ + (cons _%kont-id173222%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp187155 - (lambda (_%g174530174533%_ _%g174531174535%_) - (cons _%g174530174533%_ _%g174531174535%_)))) + (let ((__tmp186096 + (lambda (_%g173545173548%_ _%g173546173550%_) + (cons _%g173545173548%_ _%g173546173550%_)))) (declare (not safe)) - (__foldr1 __tmp187155 '() _%L174441%_)))))))) + (__foldr1 __tmp186096 '() _%L173456%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match186434186435%_ - (lambda (_%e174480174543%_ - _%hd174479174546%_ - _%tl174478174548%_ - _%e174483174551%_ - _%hd174482174554%_ - _%tl174481174556%_ - _%e174486174559%_ - _%hd174485174562%_ - _%tl174484174564%_ - _%e174489174567%_ - _%hd174488174570%_ - _%tl174487174572%_ - _%e174492174575%_ - _%hd174491174578%_ - _%tl174490174580%_ - _%e174495174583%_ - _%hd174494174586%_ - _%tl174493174588%_ - _%e174498174591%_ - _%hd174497174594%_ - _%tl174496174596%_ - _%e174501174599%_ - _%hd174500174602%_ - _%tl174499174604%_ - _%e174504174607%_ - _%hd174503174610%_ - _%tl174502174612%_ - _%e174507174615%_ - _%hd174506174618%_ - _%tl174505174620%_ - _%e174510174623%_ - _%hd174509174626%_ - _%tl174508174628%_) - (let ((_%L174631%_ - _%hd174509174626%_) - (_%L174632%_ - _%hd174500174602%_) - (_%L174633%_ - _%hd174485174562%_) - (_%L174634%_ - _%hd174482174554%_)) + (let ((_%__match185449185450%_ + (lambda (_%e173495173558%_ + _%hd173494173561%_ + _%tl173493173563%_ + _%e173498173566%_ + _%hd173497173569%_ + _%tl173496173571%_ + _%e173501173574%_ + _%hd173500173577%_ + _%tl173499173579%_ + _%e173504173582%_ + _%hd173503173585%_ + _%tl173502173587%_ + _%e173507173590%_ + _%hd173506173593%_ + _%tl173505173595%_ + _%e173510173598%_ + _%hd173509173601%_ + _%tl173508173603%_ + _%e173513173606%_ + _%hd173512173609%_ + _%tl173511173611%_ + _%e173516173614%_ + _%hd173515173617%_ + _%tl173514173619%_ + _%e173519173622%_ + _%hd173518173625%_ + _%tl173517173627%_ + _%e173522173630%_ + _%hd173521173633%_ + _%tl173520173635%_ + _%e173525173638%_ + _%hd173524173641%_ + _%tl173523173643%_) + (let ((_%L173646%_ + _%hd173524173641%_) + (_%L173647%_ + _%hd173515173617%_) + (_%L173648%_ + _%hd173500173577%_) + (_%L173649%_ + _%hd173497173569%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L174632%_ - _%negation-id174209%_)) - (_%__kont186341186342%_ - _%L174631%_ - _%L174632%_ - _%L174633%_ - _%L174634%_) - (_%__kont186343186344%_)))))) + _%L173647%_ + _%negation-id173224%_)) + (_%__kont185356185357%_ + _%L173646%_ + _%L173647%_ + _%L173648%_ + _%L173649%_) + (_%__kont185358185359%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx186339186340%_)) - (let ((_%e174480174543%_ + _%__stx185354185355%_)) + (let ((_%e173495173558%_ (let () (declare (not safe)) (gx#stx-e - _%__stx186339186340%_)))) - (let ((_%tl174478174548%_ + _%__stx185354185355%_)))) + (let ((_%tl173493173563%_ (let () (declare (not safe)) - (##cdr _%e174480174543%_))) - (_%hd174479174546%_ + (##cdr _%e173495173558%_))) + (_%hd173494173561%_ (let () (declare (not safe)) - (##car _%e174480174543%_)))) + (##car _%e173495173558%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd174479174546%_)) + _%hd173494173561%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd174479174546%_)) + _%hd173494173561%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174478174548%_)) - (let ((_%e174483174551%_ + _%tl173493173563%_)) + (let ((_%e173498173566%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl174478174548%_)))) - (let ((_%tl174481174556%_ + (gx#stx-e _%tl173493173563%_)))) + (let ((_%tl173496173571%_ (let () (declare (not safe)) - (##cdr _%e174483174551%_))) - (_%hd174482174554%_ + (##cdr _%e173498173566%_))) + (_%hd173497173569%_ (let () (declare (not safe)) - (##car _%e174483174551%_)))) + (##car _%e173498173566%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174481174556%_)) - (let ((_%e174486174559%_ + (gx#stx-pair? _%tl173496173571%_)) + (let ((_%e173501173574%_ (let () (declare (not safe)) - (gx#stx-e _%tl174481174556%_)))) - (let ((_%tl174484174564%_ + (gx#stx-e _%tl173496173571%_)))) + (let ((_%tl173499173579%_ (let () (declare (not safe)) - (##cdr _%e174486174559%_))) - (_%hd174485174562%_ + (##cdr _%e173501173574%_))) + (_%hd173500173577%_ (let () (declare (not safe)) - (##car _%e174486174559%_)))) + (##car _%e173501173574%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174484174564%_)) - (let ((_%e174489174567%_ + (gx#stx-pair? _%tl173499173579%_)) + (let ((_%e173504173582%_ (let () (declare (not safe)) - (gx#stx-e _%tl174484174564%_)))) - (let ((_%tl174487174572%_ + (gx#stx-e _%tl173499173579%_)))) + (let ((_%tl173502173587%_ (let () (declare (not safe)) - (##cdr _%e174489174567%_))) - (_%hd174488174570%_ + (##cdr _%e173504173582%_))) + (_%hd173503173585%_ (let () (declare (not safe)) - (##car _%e174489174567%_)))) + (##car _%e173504173582%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174488174570%_)) - (let ((_%e174492174575%_ + (gx#stx-pair? _%hd173503173585%_)) + (let ((_%e173507173590%_ (let () (declare (not safe)) (gx#stx-e - _%hd174488174570%_)))) - (let ((_%tl174490174580%_ + _%hd173503173585%_)))) + (let ((_%tl173505173595%_ (let () (declare (not safe)) - (##cdr _%e174492174575%_))) - (_%hd174491174578%_ + (##cdr _%e173507173590%_))) + (_%hd173506173593%_ (let () (declare (not safe)) - (##car _%e174492174575%_)))) + (##car _%e173507173590%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd174491174578%_)) + _%hd173506173593%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd174491174578%_)) + _%hd173506173593%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174490174580%_)) - (let ((_%e174495174583%_ + _%tl173505173595%_)) + (let ((_%e173510173598%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl174490174580%_)))) - (let ((_%tl174493174588%_ + (gx#stx-e _%tl173505173595%_)))) + (let ((_%tl173508173603%_ (let () (declare (not safe)) - (##cdr _%e174495174583%_))) - (_%hd174494174586%_ + (##cdr _%e173510173598%_))) + (_%hd173509173601%_ (let () (declare (not safe)) - (##car _%e174495174583%_)))) + (##car _%e173510173598%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174494174586%_)) - (let ((_%e174498174591%_ + (gx#stx-pair? _%hd173509173601%_)) + (let ((_%e173513173606%_ (let () (declare (not safe)) - (gx#stx-e _%hd174494174586%_)))) - (let ((_%tl174496174596%_ + (gx#stx-e _%hd173509173601%_)))) + (let ((_%tl173511173611%_ (let () (declare (not safe)) - (##cdr _%e174498174591%_))) - (_%hd174497174594%_ + (##cdr _%e173513173606%_))) + (_%hd173512173609%_ (let () (declare (not safe)) - (##car _%e174498174591%_)))) + (##car _%e173513173606%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174497174594%_)) + (gx#identifier? _%hd173512173609%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd174497174594%_)) + (gx#stx-eq? '%#ref _%hd173512173609%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174496174596%_)) - (let ((_%e174501174599%_ + (gx#stx-pair? _%tl173511173611%_)) + (let ((_%e173516173614%_ (let () (declare (not safe)) (gx#stx-e - _%tl174496174596%_)))) - (let ((_%tl174499174604%_ + _%tl173511173611%_)))) + (let ((_%tl173514173619%_ (let () (declare (not safe)) - (##cdr _%e174501174599%_))) - (_%hd174500174602%_ + (##cdr _%e173516173614%_))) + (_%hd173515173617%_ (let () (declare (not safe)) - (##car _%e174501174599%_)))) + (##car _%e173516173614%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174499174604%_)) + _%tl173514173619%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174493174588%_)) - (let ((_%e174504174607%_ + _%tl173508173603%_)) + (let ((_%e173519173622%_ (let () (declare (not safe)) (gx#stx-e - _%tl174493174588%_)))) - (let ((_%tl174502174612%_ + _%tl173508173603%_)))) + (let ((_%tl173517173627%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e174504174607%_))) - (_%hd174503174610%_ - (let () (declare (not safe)) (##car _%e174504174607%_)))) + (##cdr _%e173519173622%_))) + (_%hd173518173625%_ + (let () (declare (not safe)) (##car _%e173519173622%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174503174610%_)) - (let ((_%e174507174615%_ + (gx#stx-pair? _%hd173518173625%_)) + (let ((_%e173522173630%_ (let () (declare (not safe)) - (gx#stx-e _%hd174503174610%_)))) - (let ((_%tl174505174620%_ + (gx#stx-e _%hd173518173625%_)))) + (let ((_%tl173520173635%_ (let () (declare (not safe)) - (##cdr _%e174507174615%_))) - (_%hd174506174618%_ + (##cdr _%e173522173630%_))) + (_%hd173521173633%_ (let () (declare (not safe)) - (##car _%e174507174615%_)))) + (##car _%e173522173630%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174506174618%_)) + (gx#identifier? _%hd173521173633%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd174506174618%_)) + (gx#stx-eq? '%#ref _%hd173521173633%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174505174620%_)) - (let ((_%e174510174623%_ + (gx#stx-pair? _%tl173520173635%_)) + (let ((_%e173525173638%_ (let () (declare (not safe)) - (gx#stx-e _%tl174505174620%_)))) - (let ((_%tl174508174628%_ + (gx#stx-e _%tl173520173635%_)))) + (let ((_%tl173523173643%_ (let () (declare (not safe)) - (##cdr _%e174510174623%_))) - (_%hd174509174626%_ + (##cdr _%e173525173638%_))) + (_%hd173524173641%_ (let () (declare (not safe)) - (##car _%e174510174623%_)))) + (##car _%e173525173638%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174508174628%_)) + _%tl173523173643%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174502174612%_)) + _%tl173517173627%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174487174572%_)) - (_%__match186434186435%_ - _%e174480174543%_ - _%hd174479174546%_ - _%tl174478174548%_ - _%e174483174551%_ - _%hd174482174554%_ - _%tl174481174556%_ - _%e174486174559%_ - _%hd174485174562%_ - _%tl174484174564%_ - _%e174489174567%_ - _%hd174488174570%_ - _%tl174487174572%_ - _%e174492174575%_ - _%hd174491174578%_ - _%tl174490174580%_ - _%e174495174583%_ - _%hd174494174586%_ - _%tl174493174588%_ - _%e174498174591%_ - _%hd174497174594%_ - _%tl174496174596%_ - _%e174501174599%_ - _%hd174500174602%_ - _%tl174499174604%_ - _%e174504174607%_ - _%hd174503174610%_ - _%tl174502174612%_ - _%e174507174615%_ - _%hd174506174618%_ - _%tl174505174620%_ - _%e174510174623%_ - _%hd174509174626%_ - _%tl174508174628%_) - (_%__kont186343186344%_)) - (_%__kont186343186344%_)) - (_%__kont186343186344%_)))) - (_%__kont186343186344%_)) - (_%__kont186343186344%_)) - (_%__kont186343186344%_)))) - (_%__kont186343186344%_)))) + _%tl173502173587%_)) + (_%__match185449185450%_ + _%e173495173558%_ + _%hd173494173561%_ + _%tl173493173563%_ + _%e173498173566%_ + _%hd173497173569%_ + _%tl173496173571%_ + _%e173501173574%_ + _%hd173500173577%_ + _%tl173499173579%_ + _%e173504173582%_ + _%hd173503173585%_ + _%tl173502173587%_ + _%e173507173590%_ + _%hd173506173593%_ + _%tl173505173595%_ + _%e173510173598%_ + _%hd173509173601%_ + _%tl173508173603%_ + _%e173513173606%_ + _%hd173512173609%_ + _%tl173511173611%_ + _%e173516173614%_ + _%hd173515173617%_ + _%tl173514173619%_ + _%e173519173622%_ + _%hd173518173625%_ + _%tl173517173627%_ + _%e173522173630%_ + _%hd173521173633%_ + _%tl173520173635%_ + _%e173525173638%_ + _%hd173524173641%_ + _%tl173523173643%_) + (_%__kont185358185359%_)) + (_%__kont185358185359%_)) + (_%__kont185358185359%_)))) + (_%__kont185358185359%_)) + (_%__kont185358185359%_)) + (_%__kont185358185359%_)))) + (_%__kont185358185359%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont186343186344%_)) - (_%__kont186343186344%_)))) - (_%__kont186343186344%_)) - (_%__kont186343186344%_)) - (_%__kont186343186344%_)))) - (_%__kont186343186344%_)))) - (_%__kont186343186344%_)) + (_%__kont185358185359%_)) + (_%__kont185358185359%_)))) + (_%__kont185358185359%_)) + (_%__kont185358185359%_)) + (_%__kont185358185359%_)))) + (_%__kont185358185359%_)))) + (_%__kont185358185359%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont186343186344%_)) - (_%__kont186343186344%_)))) - (_%__kont186343186344%_)))) - (_%__kont186343186344%_)))) - (_%__kont186343186344%_)))) - (_%__kont186343186344%_)) + (_%__kont185358185359%_)) + (_%__kont185358185359%_)))) + (_%__kont185358185359%_)))) + (_%__kont185358185359%_)))) + (_%__kont185358185359%_)))) + (_%__kont185358185359%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont186343186344%_)) - (_%__kont186343186344%_)))) - (_%__kont186343186344%_)))))))) - (let* ((_%__match186694186695%_ - (lambda (_%e174313174353%_ - _%hd174312174356%_ - _%tl174311174358%_ - _%e174316174361%_ - _%hd174315174364%_ - _%tl174314174366%_ - _%e174319174369%_ - _%hd174318174372%_ - _%tl174317174374%_ - _%e174322174377%_ - _%hd174321174380%_ - _%tl174320174382%_ - _%__splice186449186450%_ - _%target174323174385%_ - _%tl174325174387%_) - (letrec ((_%loop174326174390%_ - (lambda (_%hd174324174393%_ - _%id174330174395%_) + (_%__kont185358185359%_)) + (_%__kont185358185359%_)))) + (_%__kont185358185359%_)))))))) + (let* ((_%__match185709185710%_ + (lambda (_%e173328173368%_ + _%hd173327173371%_ + _%tl173326173373%_ + _%e173331173376%_ + _%hd173330173379%_ + _%tl173329173381%_ + _%e173334173384%_ + _%hd173333173387%_ + _%tl173332173389%_ + _%e173337173392%_ + _%hd173336173395%_ + _%tl173335173397%_ + _%__splice185464185465%_ + _%target173338173400%_ + _%tl173340173402%_) + (letrec ((_%loop173341173405%_ + (lambda (_%hd173339173408%_ + _%id173345173410%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174324174393%_)) - (let ((_%e174327174398%_ + _%hd173339173408%_)) + (let ((_%e173342173413%_ (let () (declare (not safe)) (gx#stx-e - _%hd174324174393%_)))) - (let ((_%lp-tl174329174403%_ + _%hd173339173408%_)))) + (let ((_%lp-tl173344173418%_ (let () (declare (not safe)) - (##cdr _%e174327174398%_))) - (_%lp-hd174328174401%_ + (##cdr _%e173342173413%_))) + (_%lp-hd173343173416%_ (let () (declare (not safe)) - (##car _%e174327174398%_)))) - (let ((__tmp187156 - (cons _%lp-hd174328174401%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id174330174395%_))) - (declare (not safe)) - (_%loop174326174390%_ _%lp-tl174329174403%_ __tmp187156)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id174331174406%_ - (reverse _%id174330174395%_))) + (##car _%e173342173413%_)))) + (_%loop173341173405%_ + _%lp-tl173344173418%_ + (cons _%lp-hd173343173416%_ + _%id173345173410%_)))) + (let ((_%id173346173421%_ + (reverse _%id173345173410%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174320174382%_)) - (let ((_%e174334174409%_ + _%tl173335173397%_)) + (let ((_%e173349173424%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl174320174382%_)))) - (let ((_%tl174332174414%_ + (gx#stx-e _%tl173335173397%_)))) + (let ((_%tl173347173429%_ (let () (declare (not safe)) - (##cdr _%e174334174409%_))) - (_%hd174333174412%_ + (##cdr _%e173349173424%_))) + (_%hd173348173427%_ (let () (declare (not safe)) - (##car _%e174334174409%_)))) + (##car _%e173349173424%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174332174414%_)) + (gx#stx-null? _%tl173347173429%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174314174366%_)) - (let ((_%__splice186451186452%_ + (gx#stx-pair/null? _%tl173329173381%_)) + (let ((_%__splice185466185467%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl174314174366%_ + _%tl173329173381%_ '0)))) - (let ((_%tl174337174419%_ + (let ((_%tl173352173434%_ (let () (declare (not safe)) (##vector-ref - _%__splice186451186452%_ + _%__splice185466185467%_ '1))) - (_%target174335174417%_ + (_%target173350173432%_ (let () (declare (not safe)) (##vector-ref - _%__splice186451186452%_ + _%__splice185466185467%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174337174419%_)) - (letrec ((_%loop174338174422%_ - (lambda (_%hd174336174425%_ - _%arg174342174427%_) + (gx#stx-null? _%tl173352173434%_)) + (letrec ((_%loop173353173437%_ + (lambda (_%hd173351173440%_ + _%arg173357173442%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174336174425%_)) - (let ((_%e174339174430%_ + _%hd173351173440%_)) + (let ((_%e173354173445%_ (let () (declare (not safe)) (gx#stx-e - _%hd174336174425%_)))) - (let ((_%lp-tl174341174435%_ + _%hd173351173440%_)))) + (let ((_%lp-tl173356173450%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e174339174430%_))) - (_%lp-hd174340174433%_ - (let () (declare (not safe)) (##car _%e174339174430%_)))) - (let ((__tmp187157 - (cons _%lp-hd174340174433%_ _%arg174342174427%_))) - (declare (not safe)) - (_%loop174338174422%_ _%lp-tl174341174435%_ __tmp187157)))) + (##cdr _%e173354173445%_))) + (_%lp-hd173355173448%_ + (let () (declare (not safe)) (##car _%e173354173445%_)))) + (_%loop173353173437%_ + _%lp-tl173356173450%_ + (cons _%lp-hd173355173448%_ _%arg173357173442%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%arg174343174438%_ - (reverse _%arg174342174427%_))) - (_%__kont186447186448%_ - _%arg174343174438%_ - _%hd174333174412%_ - _%id174331174406%_)))))) - (let () - (declare (not safe)) - (_%loop174338174422%_ - _%target174335174417%_ - '()))) + (let ((_%arg173358173453%_ + (reverse _%arg173357173442%_))) + (_%__kont185462185463%_ + _%arg173358173453%_ + _%hd173348173427%_ + _%id173346173421%_)))))) + (_%loop173353173437%_ + _%target173350173432%_ + '())) (let () (declare (not safe)) - (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_))) - (let () (declare (not safe)) (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_)))))))) + (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_))) + (let () (declare (not safe)) (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop174326174390%_ - _%target174323174385%_ - '()))))) - (_%__match186576186577%_ - (lambda (_%e174239174857%_ - _%hd174238174860%_ - _%tl174237174862%_ - _%e174242174865%_ - _%hd174241174868%_ - _%tl174240174870%_ - _%e174245174873%_ - _%hd174244174876%_ - _%tl174243174878%_ - _%e174248174881%_ - _%hd174247174884%_ - _%tl174246174886%_ - _%e174251174889%_ - _%hd174250174892%_ - _%tl174249174894%_ - _%e174254174897%_ - _%hd174253174900%_ - _%tl174252174902%_ - _%e174257174905%_ - _%hd174256174908%_ - _%tl174255174910%_ - _%e174260174913%_ - _%hd174259174916%_ - _%tl174258174918%_ - _%e174263174921%_ - _%hd174262174924%_ - _%tl174261174926%_ - _%e174266174929%_ - _%hd174265174932%_ - _%tl174264174934%_ - _%e174269174937%_ - _%hd174268174940%_ - _%tl174267174942%_ - _%e174272174945%_ - _%hd174271174948%_ - _%tl174270174950%_) - (let ((_%L174953%_ _%hd174271174948%_) - (_%L174954%_ _%tl174261174926%_) - (_%L174955%_ _%hd174268174940%_) - (_%L174956%_ _%hd174253174900%_) - (_%L174957%_ _%hd174250174892%_)) + (_%loop173341173405%_ + _%target173338173400%_ + '())))) + (_%__match185591185592%_ + (lambda (_%e173254173872%_ + _%hd173253173875%_ + _%tl173252173877%_ + _%e173257173880%_ + _%hd173256173883%_ + _%tl173255173885%_ + _%e173260173888%_ + _%hd173259173891%_ + _%tl173258173893%_ + _%e173263173896%_ + _%hd173262173899%_ + _%tl173261173901%_ + _%e173266173904%_ + _%hd173265173907%_ + _%tl173264173909%_ + _%e173269173912%_ + _%hd173268173915%_ + _%tl173267173917%_ + _%e173272173920%_ + _%hd173271173923%_ + _%tl173270173925%_ + _%e173275173928%_ + _%hd173274173931%_ + _%tl173273173933%_ + _%e173278173936%_ + _%hd173277173939%_ + _%tl173276173941%_ + _%e173281173944%_ + _%hd173280173947%_ + _%tl173279173949%_ + _%e173284173952%_ + _%hd173283173955%_ + _%tl173282173957%_ + _%e173287173960%_ + _%hd173286173963%_ + _%tl173285173965%_) + (let ((_%L173968%_ _%hd173286173963%_) + (_%L173969%_ _%tl173276173941%_) + (_%L173970%_ _%hd173283173955%_) + (_%L173971%_ _%hd173268173915%_) + (_%L173972%_ _%hd173265173907%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L174955%_ + _%L173970%_ 'gx#syntax-split-splice)) - (_%__kont186441186442%_ - _%L174953%_ - _%L174954%_ - _%L174955%_ - _%L174956%_ - _%L174957%_) - (_%__kont186443186444%_ - _%hd174271174948%_ - _%hd174241174868%_)))))) + (_%__kont185456185457%_ + _%L173968%_ + _%L173969%_ + _%L173970%_ + _%L173971%_ + _%L173972%_) + (_%__kont185458185459%_ + _%hd173286173963%_ + _%hd173256173883%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx186437186438%_)) - (let ((_%e174222175006%_ + (gx#stx-pair? _%__stx185452185453%_)) + (let ((_%e173237174021%_ (let () (declare (not safe)) - (gx#stx-e _%__stx186437186438%_)))) - (let ((_%tl174220175011%_ + (gx#stx-e _%__stx185452185453%_)))) + (let ((_%tl173235174026%_ (let () (declare (not safe)) - (##cdr _%e174222175006%_))) - (_%hd174221175009%_ + (##cdr _%e173237174021%_))) + (_%hd173236174024%_ (let () (declare (not safe)) - (##car _%e174222175006%_)))) + (##car _%e173237174021%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174221175009%_)) + (gx#identifier? _%hd173236174024%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd174221175009%_)) + _%hd173236174024%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174220175011%_)) - (let ((_%e174225175014%_ + _%tl173235174026%_)) + (let ((_%e173240174029%_ (let () (declare (not safe)) (gx#stx-e - _%tl174220175011%_)))) - (let ((_%tl174223175019%_ + _%tl173235174026%_)))) + (let ((_%tl173238174034%_ (let () (declare (not safe)) - (##cdr _%e174225175014%_))) - (_%hd174224175017%_ + (##cdr _%e173240174029%_))) + (_%hd173239174032%_ (let () (declare (not safe)) - (##car _%e174225175014%_)))) + (##car _%e173240174029%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174223175019%_)) - (let ((_%e174228175022%_ + _%tl173238174034%_)) + (let ((_%e173243174037%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174223175019%_)))) - (let ((_%tl174226175027%_ - (let () (declare (not safe)) (##cdr _%e174228175022%_))) - (_%hd174227175025%_ + (gx#stx-e _%tl173238174034%_)))) + (let ((_%tl173241174042%_ + (let () (declare (not safe)) (##cdr _%e173243174037%_))) + (_%hd173242174040%_ (let () (declare (not safe)) - (##car _%e174228175022%_)))) + (##car _%e173243174037%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174226175027%_)) - (let ((_%e174231175030%_ + (gx#stx-pair? _%tl173241174042%_)) + (let ((_%e173246174045%_ (let () (declare (not safe)) - (gx#stx-e _%tl174226175027%_)))) - (let ((_%tl174229175035%_ + (gx#stx-e _%tl173241174042%_)))) + (let ((_%tl173244174050%_ (let () (declare (not safe)) - (##cdr _%e174231175030%_))) - (_%hd174230175033%_ + (##cdr _%e173246174045%_))) + (_%hd173245174048%_ (let () (declare (not safe)) - (##car _%e174231175030%_)))) + (##car _%e173246174045%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174229175035%_)) - (_%__kont186439186440%_ - _%hd174230175033%_ - _%hd174227175025%_ - _%hd174224175017%_) + (gx#stx-null? _%tl173244174050%_)) + (_%__kont185454185455%_ + _%hd173245174048%_ + _%hd173242174040%_ + _%hd173239174032%_) (let () (declare (not safe)) - (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_))))) + (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g174215174348%_))) + (_%g173230173363%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd174221175009%_)) + _%hd173236174024%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174220175011%_)) - (let ((_%e174242174865%_ + _%tl173235174026%_)) + (let ((_%e173257173880%_ (let () (declare (not safe)) (gx#stx-e - _%tl174220175011%_)))) - (let ((_%tl174240174870%_ + _%tl173235174026%_)))) + (let ((_%tl173255173885%_ (let () (declare (not safe)) - (##cdr _%e174242174865%_))) - (_%hd174241174868%_ + (##cdr _%e173257173880%_))) + (_%hd173256173883%_ (let () (declare (not safe)) - (##car _%e174242174865%_)))) + (##car _%e173257173880%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174241174868%_)) - (let ((_%e174245174873%_ + _%hd173256173883%_)) + (let ((_%e173260173888%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd174241174868%_)))) - (let ((_%tl174243174878%_ + (gx#stx-e _%hd173256173883%_)))) + (let ((_%tl173258173893%_ (let () (declare (not safe)) - (##cdr _%e174245174873%_))) - (_%hd174244174876%_ + (##cdr _%e173260173888%_))) + (_%hd173259173891%_ (let () (declare (not safe)) - (##car _%e174245174873%_)))) + (##car _%e173260173888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174244174876%_)) - (let ((_%e174248174881%_ + (gx#stx-pair? _%hd173259173891%_)) + (let ((_%e173263173896%_ (let () (declare (not safe)) - (gx#stx-e _%hd174244174876%_)))) - (let ((_%tl174246174886%_ + (gx#stx-e _%hd173259173891%_)))) + (let ((_%tl173261173901%_ (let () (declare (not safe)) - (##cdr _%e174248174881%_))) - (_%hd174247174884%_ + (##cdr _%e173263173896%_))) + (_%hd173262173899%_ (let () (declare (not safe)) - (##car _%e174248174881%_)))) + (##car _%e173263173896%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174247174884%_)) - (let ((_%e174251174889%_ + (gx#stx-pair? _%hd173262173899%_)) + (let ((_%e173266173904%_ (let () (declare (not safe)) - (gx#stx-e _%hd174247174884%_)))) - (let ((_%tl174249174894%_ + (gx#stx-e _%hd173262173899%_)))) + (let ((_%tl173264173909%_ (let () (declare (not safe)) - (##cdr _%e174251174889%_))) - (_%hd174250174892%_ + (##cdr _%e173266173904%_))) + (_%hd173265173907%_ (let () (declare (not safe)) - (##car _%e174251174889%_)))) + (##car _%e173266173904%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174249174894%_)) - (let ((_%e174254174897%_ + (gx#stx-pair? _%tl173264173909%_)) + (let ((_%e173269173912%_ (let () (declare (not safe)) (gx#stx-e - _%tl174249174894%_)))) - (let ((_%tl174252174902%_ + _%tl173264173909%_)))) + (let ((_%tl173267173917%_ (let () (declare (not safe)) - (##cdr _%e174254174897%_))) - (_%hd174253174900%_ + (##cdr _%e173269173912%_))) + (_%hd173268173915%_ (let () (declare (not safe)) - (##car _%e174254174897%_)))) + (##car _%e173269173912%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174252174902%_)) + _%tl173267173917%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174246174886%_)) - (let ((_%e174257174905%_ + _%tl173261173901%_)) + (let ((_%e173272173920%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174246174886%_)))) - (let ((_%tl174255174910%_ - (let () (declare (not safe)) (##cdr _%e174257174905%_))) - (_%hd174256174908%_ + (gx#stx-e _%tl173261173901%_)))) + (let ((_%tl173270173925%_ + (let () (declare (not safe)) (##cdr _%e173272173920%_))) + (_%hd173271173923%_ (let () (declare (not safe)) - (##car _%e174257174905%_)))) + (##car _%e173272173920%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174256174908%_)) - (let ((_%e174260174913%_ + (gx#stx-pair? _%hd173271173923%_)) + (let ((_%e173275173928%_ (let () (declare (not safe)) - (gx#stx-e _%hd174256174908%_)))) - (let ((_%tl174258174918%_ + (gx#stx-e _%hd173271173923%_)))) + (let ((_%tl173273173933%_ (let () (declare (not safe)) - (##cdr _%e174260174913%_))) - (_%hd174259174916%_ + (##cdr _%e173275173928%_))) + (_%hd173274173931%_ (let () (declare (not safe)) - (##car _%e174260174913%_)))) + (##car _%e173275173928%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174259174916%_)) + (gx#identifier? _%hd173274173931%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd174259174916%_)) + (gx#stx-eq? '%#call _%hd173274173931%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174258174918%_)) - (let ((_%e174263174921%_ + (gx#stx-pair? _%tl173273173933%_)) + (let ((_%e173278173936%_ (let () (declare (not safe)) - (gx#stx-e _%tl174258174918%_)))) - (let ((_%tl174261174926%_ + (gx#stx-e _%tl173273173933%_)))) + (let ((_%tl173276173941%_ (let () (declare (not safe)) - (##cdr _%e174263174921%_))) - (_%hd174262174924%_ + (##cdr _%e173278173936%_))) + (_%hd173277173939%_ (let () (declare (not safe)) - (##car _%e174263174921%_)))) + (##car _%e173278173936%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174262174924%_)) - (let ((_%e174266174929%_ + _%hd173277173939%_)) + (let ((_%e173281173944%_ (let () (declare (not safe)) (gx#stx-e - _%hd174262174924%_)))) - (let ((_%tl174264174934%_ + _%hd173277173939%_)))) + (let ((_%tl173279173949%_ (let () (declare (not safe)) - (##cdr _%e174266174929%_))) - (_%hd174265174932%_ + (##cdr _%e173281173944%_))) + (_%hd173280173947%_ (let () (declare (not safe)) - (##car _%e174266174929%_)))) + (##car _%e173281173944%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd174265174932%_)) + _%hd173280173947%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd174265174932%_)) + _%hd173280173947%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl174264174934%_)) - (let ((_%e174269174937%_ + (gx#stx-pair? _%tl173279173949%_)) + (let ((_%e173284173952%_ (let () (declare (not safe)) - (gx#stx-e _%tl174264174934%_)))) - (let ((_%tl174267174942%_ + (gx#stx-e _%tl173279173949%_)))) + (let ((_%tl173282173957%_ (let () (declare (not safe)) - (##cdr _%e174269174937%_))) - (_%hd174268174940%_ + (##cdr _%e173284173952%_))) + (_%hd173283173955%_ (let () (declare (not safe)) - (##car _%e174269174937%_)))) + (##car _%e173284173952%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174267174942%_)) + (gx#stx-null? _%tl173282173957%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174255174910%_)) + (gx#stx-null? _%tl173270173925%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174243174878%_)) + (gx#stx-null? _%tl173258173893%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174240174870%_)) - (let ((_%e174272174945%_ + (gx#stx-pair? _%tl173255173885%_)) + (let ((_%e173287173960%_ (let () (declare (not safe)) (gx#stx-e - _%tl174240174870%_)))) - (let ((_%tl174270174950%_ + _%tl173255173885%_)))) + (let ((_%tl173285173965%_ (let () (declare (not safe)) - (##cdr _%e174272174945%_))) - (_%hd174271174948%_ + (##cdr _%e173287173960%_))) + (_%hd173286173963%_ (let () (declare (not safe)) - (##car _%e174272174945%_)))) + (##car _%e173287173960%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174270174950%_)) - (_%__match186576186577%_ - _%e174222175006%_ - _%hd174221175009%_ - _%tl174220175011%_ - _%e174242174865%_ - _%hd174241174868%_ - _%tl174240174870%_ - _%e174245174873%_ - _%hd174244174876%_ - _%tl174243174878%_ - _%e174248174881%_ - _%hd174247174884%_ - _%tl174246174886%_ - _%e174251174889%_ - _%hd174250174892%_ - _%tl174249174894%_ - _%e174254174897%_ - _%hd174253174900%_ - _%tl174252174902%_ - _%e174257174905%_ - _%hd174256174908%_ - _%tl174255174910%_ - _%e174260174913%_ - _%hd174259174916%_ - _%tl174258174918%_ - _%e174263174921%_ - _%hd174262174924%_ - _%tl174261174926%_ - _%e174266174929%_ - _%hd174265174932%_ - _%tl174264174934%_ - _%e174269174937%_ - _%hd174268174940%_ - _%tl174267174942%_ - _%e174272174945%_ - _%hd174271174948%_ - _%tl174270174950%_) + _%tl173285173965%_)) + (_%__match185591185592%_ + _%e173237174021%_ + _%hd173236174024%_ + _%tl173235174026%_ + _%e173257173880%_ + _%hd173256173883%_ + _%tl173255173885%_ + _%e173260173888%_ + _%hd173259173891%_ + _%tl173258173893%_ + _%e173263173896%_ + _%hd173262173899%_ + _%tl173261173901%_ + _%e173266173904%_ + _%hd173265173907%_ + _%tl173264173909%_ + _%e173269173912%_ + _%hd173268173915%_ + _%tl173267173917%_ + _%e173272173920%_ + _%hd173271173923%_ + _%tl173270173925%_ + _%e173275173928%_ + _%hd173274173931%_ + _%tl173273173933%_ + _%e173278173936%_ + _%hd173277173939%_ + _%tl173276173941%_ + _%e173281173944%_ + _%hd173280173947%_ + _%tl173279173949%_ + _%e173284173952%_ + _%hd173283173955%_ + _%tl173282173957%_ + _%e173287173960%_ + _%hd173286173963%_ + _%tl173285173965%_) (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_))) + (_%g173230173363%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174240174870%_)) - (let ((_%e174283174827%_ + (gx#stx-pair? _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) (gx#stx-e - _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) + _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_)))) + (_%g173230173363%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174240174870%_)) - (let ((_%e174283174827%_ + (gx#stx-pair? _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) - (gx#stx-e _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + (gx#stx-e _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) + _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_)))) + (_%g173230173363%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174240174870%_)) - (let ((_%e174283174827%_ + (gx#stx-pair? _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) - (gx#stx-e _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + (gx#stx-e _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) + (gx#stx-null? _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_)))))) + (_%g173230173363%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174240174870%_)) - (let ((_%e174283174827%_ + (gx#stx-pair? _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) - (gx#stx-e _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + (gx#stx-e _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) + (gx#stx-null? _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) (let () (declare (not safe)) - (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_)))) + (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174240174870%_)) - (let ((_%e174283174827%_ + (gx#stx-pair? _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) - (gx#stx-e _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + (gx#stx-e _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) + (gx#stx-null? _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) (let () (declare (not safe)) - (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_)))) + (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174240174870%_)) - (let ((_%e174283174827%_ + (gx#stx-pair? _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) - (gx#stx-e _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + (gx#stx-e _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) - (let () (declare (not safe)) (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_)))))) + (gx#stx-null? _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) + (let () (declare (not safe)) (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174240174870%_)) - (let ((_%e174283174827%_ + _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) (gx#stx-e - _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) + _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_)))))) + (_%g173230173363%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174240174870%_)) - (let ((_%e174283174827%_ + (gx#stx-pair? _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) (gx#stx-e - _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) + _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_)))) + (_%g173230173363%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174240174870%_)) - (let ((_%e174283174827%_ + (gx#stx-pair? _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) - (gx#stx-e _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + (gx#stx-e _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) + _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_)))) + (_%g173230173363%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174240174870%_)) - (let ((_%e174283174827%_ + (gx#stx-pair? _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) - (gx#stx-e _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + (gx#stx-e _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) + (gx#stx-null? _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_)))))) + (_%g173230173363%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174240174870%_)) - (let ((_%e174283174827%_ + (gx#stx-pair? _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) - (gx#stx-e _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + (gx#stx-e _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) + (gx#stx-null? _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) (let () (declare (not safe)) - (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_)))))) + (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174240174870%_)) - (let ((_%e174283174827%_ + (gx#stx-pair? _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) - (gx#stx-e _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + (gx#stx-e _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) - (let () (declare (not safe)) (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_)))) + (gx#stx-null? _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) + (let () (declare (not safe)) (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174240174870%_)) - (let ((_%e174283174827%_ + _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174240174870%_)))) - (let ((_%tl174281174832%_ - (let () (declare (not safe)) (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (gx#stx-e _%tl173255173885%_)))) + (let ((_%tl173296173847%_ + (let () (declare (not safe)) (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) - (let () (declare (not safe)) (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_)))))) + (gx#stx-null? _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) + (let () (declare (not safe)) (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174240174870%_)) - (let ((_%e174283174827%_ + _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) (gx#stx-e - _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) + _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_)))))) + (_%g173230173363%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174240174870%_)) - (let ((_%e174283174827%_ + (gx#stx-pair? _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) - (gx#stx-e _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + (gx#stx-e _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) + _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_)))))) + (_%g173230173363%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174240174870%_)) - (let ((_%e174283174827%_ + (gx#stx-pair? _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) - (gx#stx-e _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + (gx#stx-e _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) + (gx#stx-null? _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_)))))) + (_%g173230173363%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174240174870%_)) - (let ((_%e174283174827%_ + (gx#stx-pair? _%tl173255173885%_)) + (let ((_%e173298173842%_ (let () (declare (not safe)) - (gx#stx-e _%tl174240174870%_)))) - (let ((_%tl174281174832%_ + (gx#stx-e _%tl173255173885%_)))) + (let ((_%tl173296173847%_ (let () (declare (not safe)) - (##cdr _%e174283174827%_))) - (_%hd174282174830%_ + (##cdr _%e173298173842%_))) + (_%hd173297173845%_ (let () (declare (not safe)) - (##car _%e174283174827%_)))) + (##car _%e173298173842%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174281174832%_)) - (_%__kont186443186444%_ - _%hd174282174830%_ - _%hd174241174868%_) + (gx#stx-null? _%tl173296173847%_)) + (_%__kont185458185459%_ + _%hd173297173845%_ + _%hd173256173883%_) (let () (declare (not safe)) - (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_)))))) + (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g174215174348%_))) + (_%g173230173363%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd174221175009%_)) + _%hd173236174024%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174220175011%_)) - (let ((_%e174292174731%_ + _%tl173235174026%_)) + (let ((_%e173307173746%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174220175011%_)))) - (let ((_%tl174290174736%_ - (let () (declare (not safe)) (##cdr _%e174292174731%_))) - (_%hd174291174734%_ + (gx#stx-e _%tl173235174026%_)))) + (let ((_%tl173305173751%_ + (let () (declare (not safe)) (##cdr _%e173307173746%_))) + (_%hd173306173749%_ (let () (declare (not safe)) - (##car _%e174292174731%_)))) + (##car _%e173307173746%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174291174734%_)) - (let ((_%e174295174739%_ + (gx#stx-pair? _%hd173306173749%_)) + (let ((_%e173310173754%_ (let () (declare (not safe)) - (gx#stx-e _%hd174291174734%_)))) - (let ((_%tl174293174744%_ + (gx#stx-e _%hd173306173749%_)))) + (let ((_%tl173308173759%_ (let () (declare (not safe)) - (##cdr _%e174295174739%_))) - (_%hd174294174742%_ + (##cdr _%e173310173754%_))) + (_%hd173309173757%_ (let () (declare (not safe)) - (##car _%e174295174739%_)))) + (##car _%e173310173754%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174294174742%_)) - (let ((_%e174298174747%_ + (gx#stx-pair? _%hd173309173757%_)) + (let ((_%e173313173762%_ (let () (declare (not safe)) - (gx#stx-e _%hd174294174742%_)))) - (let ((_%tl174296174752%_ + (gx#stx-e _%hd173309173757%_)))) + (let ((_%tl173311173767%_ (let () (declare (not safe)) - (##cdr _%e174298174747%_))) - (_%hd174297174750%_ + (##cdr _%e173313173762%_))) + (_%hd173312173765%_ (let () (declare (not safe)) - (##car _%e174298174747%_)))) + (##car _%e173313173762%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174297174750%_)) - (let ((_%e174301174755%_ + (gx#stx-pair? _%hd173312173765%_)) + (let ((_%e173316173770%_ (let () (declare (not safe)) - (gx#stx-e _%hd174297174750%_)))) - (let ((_%tl174299174760%_ + (gx#stx-e _%hd173312173765%_)))) + (let ((_%tl173314173775%_ (let () (declare (not safe)) - (##cdr _%e174301174755%_))) - (_%hd174300174758%_ + (##cdr _%e173316173770%_))) + (_%hd173315173773%_ (let () (declare (not safe)) - (##car _%e174301174755%_)))) + (##car _%e173316173770%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174299174760%_)) + _%tl173314173775%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174296174752%_)) - (let ((_%e174304174763%_ + _%tl173311173767%_)) + (let ((_%e173319173778%_ (let () (declare (not safe)) (gx#stx-e - _%tl174296174752%_)))) - (let ((_%tl174302174768%_ + _%tl173311173767%_)))) + (let ((_%tl173317173783%_ (let () (declare (not safe)) - (##cdr _%e174304174763%_))) - (_%hd174303174766%_ + (##cdr _%e173319173778%_))) + (_%hd173318173781%_ (let () (declare (not safe)) - (##car _%e174304174763%_)))) + (##car _%e173319173778%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174302174768%_)) + _%tl173317173783%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl174293174744%_)) + (gx#stx-null? _%tl173308173759%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174290174736%_)) - (let ((_%e174307174771%_ + (gx#stx-pair? _%tl173305173751%_)) + (let ((_%e173322173786%_ (let () (declare (not safe)) - (gx#stx-e _%tl174290174736%_)))) - (let ((_%tl174305174776%_ + (gx#stx-e _%tl173305173751%_)))) + (let ((_%tl173320173791%_ (let () (declare (not safe)) - (##cdr _%e174307174771%_))) - (_%hd174306174774%_ + (##cdr _%e173322173786%_))) + (_%hd173321173789%_ (let () (declare (not safe)) - (##car _%e174307174771%_)))) + (##car _%e173322173786%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174305174776%_)) - (_%__kont186445186446%_ - _%hd174306174774%_ - _%hd174303174766%_ - _%hd174300174758%_) + (gx#stx-null? _%tl173320173791%_)) + (_%__kont185460185461%_ + _%hd173321173789%_ + _%hd173318173781%_ + _%hd173315173773%_) (let () (declare (not safe)) - (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_))) - (let () (declare (not safe)) (_%g174215174348%_))) - (let () (declare (not safe)) (_%g174215174348%_))))) + (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_))) + (let () (declare (not safe)) (_%g173230173363%_))) + (let () (declare (not safe)) (_%g173230173363%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g174215174348%_))) + (_%g173230173363%_))) (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_))) + (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd174221175009%_)) + _%hd173236174024%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174220175011%_)) - (let ((_%e174316174361%_ + _%tl173235174026%_)) + (let ((_%e173331173376%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl174220175011%_)))) - (let ((_%tl174314174366%_ + (gx#stx-e _%tl173235174026%_)))) + (let ((_%tl173329173381%_ (let () (declare (not safe)) - (##cdr _%e174316174361%_))) - (_%hd174315174364%_ + (##cdr _%e173331173376%_))) + (_%hd173330173379%_ (let () (declare (not safe)) - (##car _%e174316174361%_)))) + (##car _%e173331173376%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174315174364%_)) - (let ((_%e174319174369%_ + (gx#stx-pair? _%hd173330173379%_)) + (let ((_%e173334173384%_ (let () (declare (not safe)) - (gx#stx-e _%hd174315174364%_)))) - (let ((_%tl174317174374%_ + (gx#stx-e _%hd173330173379%_)))) + (let ((_%tl173332173389%_ (let () (declare (not safe)) - (##cdr _%e174319174369%_))) - (_%hd174318174372%_ + (##cdr _%e173334173384%_))) + (_%hd173333173387%_ (let () (declare (not safe)) - (##car _%e174319174369%_)))) + (##car _%e173334173384%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174318174372%_)) + (gx#identifier? _%hd173333173387%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd174318174372%_)) + _%hd173333173387%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174317174374%_)) - (let ((_%e174322174377%_ + (gx#stx-pair? _%tl173332173389%_)) + (let ((_%e173337173392%_ (let () (declare (not safe)) (gx#stx-e - _%tl174317174374%_)))) - (let ((_%tl174320174382%_ + _%tl173332173389%_)))) + (let ((_%tl173335173397%_ (let () (declare (not safe)) - (##cdr _%e174322174377%_))) - (_%hd174321174380%_ + (##cdr _%e173337173392%_))) + (_%hd173336173395%_ (let () (declare (not safe)) - (##car _%e174322174377%_)))) + (##car _%e173337173392%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd174321174380%_)) - (let ((_%__splice186449186450%_ + _%hd173336173395%_)) + (let ((_%__splice185464185465%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd174321174380%_ + _%hd173336173395%_ '0)))) - (let ((_%tl174325174387%_ + (let ((_%tl173340173402%_ (let () (declare (not safe)) (##vector-ref - _%__splice186449186450%_ + _%__splice185464185465%_ '1))) - (_%target174323174385%_ + (_%target173338173400%_ (let () (declare (not safe)) (##vector-ref - _%__splice186449186450%_ + _%__splice185464185465%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174325174387%_)) - (_%__match186694186695%_ - _%e174222175006%_ - _%hd174221175009%_ - _%tl174220175011%_ - _%e174316174361%_ - _%hd174315174364%_ - _%tl174314174366%_ - _%e174319174369%_ - _%hd174318174372%_ - _%tl174317174374%_ - _%e174322174377%_ - _%hd174321174380%_ - _%tl174320174382%_ - _%__splice186449186450%_ - _%target174323174385%_ - _%tl174325174387%_) + _%tl173340173402%_)) + (_%__match185709185710%_ + _%e173237174021%_ + _%hd173236174024%_ + _%tl173235174026%_ + _%e173331173376%_ + _%hd173330173379%_ + _%tl173329173381%_ + _%e173334173384%_ + _%hd173333173387%_ + _%tl173332173389%_ + _%e173337173392%_ + _%hd173336173395%_ + _%tl173335173397%_ + _%__splice185464185465%_ + _%target173338173400%_ + _%tl173340173402%_) (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_))) + (_%g173230173363%_))) (let () (declare (not safe)) - (_%g174215174348%_))) + (_%g173230173363%_))) (let () (declare (not safe)) - (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_))))) - (let () (declare (not safe)) (_%g174215174348%_))) - (let () (declare (not safe)) (_%g174215174348%_)))))) + (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_))))) + (let () (declare (not safe)) (_%g173230173363%_))) + (let () (declare (not safe)) (_%g173230173363%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g174215174348%_))))) + (_%g173230173363%_))))) (let () (declare (not safe)) - (_%g174215174348%_)))))))) - (_%xform-loop-e173822%_ - (lambda (_%expr174032%_ - _%kont-id174033%_ - _%kont-box174034%_ - _%negation-id174035%_) - (let* ((_%g174037174077%_ - (lambda (_%g174038174074%_) + (_%g173230173363%_)))))))) + (_%xform-loop-e172837%_ + (lambda (_%expr173047%_ + _%kont-id173048%_ + _%kont-box173049%_ + _%negation-id173050%_) + (let* ((_%g173052173092%_ + (lambda (_%g173053173089%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174038174074%_)))) - (_%g174036174203%_ - (lambda (_%g174038174080%_) + _%g173053173089%_)))) + (_%g173051173218%_ + (lambda (_%g173053173095%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g174038174080%_)) - (let ((_%e174045174082%_ + (gx#stx-pair? _%g173053173095%_)) + (let ((_%e173060173097%_ (let () (declare (not safe)) - (gx#stx-e _%g174038174080%_)))) - (let ((_%hd174044174085%_ + (gx#stx-e _%g173053173095%_)))) + (let ((_%hd173059173100%_ (let () (declare (not safe)) - (##car _%e174045174082%_))) - (_%tl174043174087%_ + (##car _%e173060173097%_))) + (_%tl173058173102%_ (let () (declare (not safe)) - (##cdr _%e174045174082%_)))) + (##cdr _%e173060173097%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd174044174085%_)) + _%hd173059173100%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd174044174085%_)) + _%hd173059173100%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174043174087%_)) - (let ((_%e174048174090%_ + _%tl173058173102%_)) + (let ((_%e173063173105%_ (let () (declare (not safe)) (gx#stx-e - _%tl174043174087%_)))) - (let ((_%hd174047174093%_ + _%tl173058173102%_)))) + (let ((_%hd173062173108%_ (let () (declare (not safe)) - (##car _%e174048174090%_))) - (_%tl174046174095%_ + (##car _%e173063173105%_))) + (_%tl173061173110%_ (let () (declare (not safe)) - (##cdr _%e174048174090%_)))) + (##cdr _%e173063173105%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd174047174093%_)) - (let ((_g187158_ + _%hd173062173108%_)) + (let ((_g186097_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd174047174093%_ '0)))) + (gx#syntax-split-splice _%hd173062173108%_ '0)))) (begin - (let ((_g187159_ + (let ((_g186098_ (let () (declare (not safe)) - (if (##values? _g187158_) - (##vector-length _g187158_) + (if (##values? _g186097_) + (##vector-length _g186097_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g187159_ 2))) - (error "Context expects 2 values" _g187159_))) - (let ((_%target174049174098%_ + (##fx= _g186098_ 2))) + (error "Context expects 2 values" _g186098_))) + (let ((_%target173064173113%_ (let () (declare (not safe)) - (##vector-ref _g187158_ 0))) - (_%tl174051174100%_ + (##vector-ref _g186097_ 0))) + (_%tl173066173115%_ (let () (declare (not safe)) - (##vector-ref _g187158_ 1)))) + (##vector-ref _g186097_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174051174100%_)) - (letrec ((_%loop174052174103%_ - (lambda (_%hd174050174106%_ - _%id174056174108%_) + (gx#stx-null? _%tl173066173115%_)) + (letrec ((_%loop173067173118%_ + (lambda (_%hd173065173121%_ + _%id173071173123%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174050174106%_)) - (let ((_%e174053174111%_ + _%hd173065173121%_)) + (let ((_%e173068173126%_ (let () (declare (not safe)) (gx#stx-e - _%hd174050174106%_)))) - (let ((_%lp-hd174054174114%_ + _%hd173065173121%_)))) + (let ((_%lp-hd173069173129%_ (let () (declare (not safe)) - (##car _%e174053174111%_))) - (_%lp-tl174055174116%_ + (##car _%e173068173126%_))) + (_%lp-tl173070173131%_ (let () (declare (not safe)) - (##cdr _%e174053174111%_)))) - (let ((__tmp187160 - (cons _%lp-hd174054174114%_ - _%id174056174108%_))) - (declare (not safe)) - (_%loop174052174103%_ - _%lp-tl174055174116%_ - __tmp187160)))) - (let ((_%id174057174119%_ - (reverse _%id174056174108%_))) + (##cdr _%e173068173126%_)))) + (_%loop173067173118%_ + _%lp-tl173070173131%_ + (cons _%lp-hd173069173129%_ + _%id173071173123%_)))) + (let ((_%id173072173134%_ + (reverse _%id173071173123%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174046174095%_)) - (let ((_%e174060174122%_ + _%tl173061173110%_)) + (let ((_%e173075173137%_ (let () (declare (not safe)) (gx#stx-e - _%tl174046174095%_)))) - (let ((_%hd174059174125%_ + _%tl173061173110%_)))) + (let ((_%hd173074173140%_ (let () (declare (not safe)) - (##car _%e174060174122%_))) - (_%tl174058174127%_ + (##car _%e173075173137%_))) + (_%tl173073173142%_ (let () (declare (not safe)) - (##cdr _%e174060174122%_)))) + (##cdr _%e173075173137%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174059174125%_)) - (let ((_%e174063174130%_ + _%hd173074173140%_)) + (let ((_%e173078173145%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd174059174125%_)))) - (let ((_%hd174062174133%_ + (gx#stx-e _%hd173074173140%_)))) + (let ((_%hd173077173148%_ (let () (declare (not safe)) - (##car _%e174063174130%_))) - (_%tl174061174135%_ + (##car _%e173078173145%_))) + (_%tl173076173150%_ (let () (declare (not safe)) - (##cdr _%e174063174130%_)))) + (##cdr _%e173078173145%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174062174133%_)) + (gx#identifier? _%hd173077173148%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd174062174133%_)) + (gx#stx-eq? '%#if _%hd173077173148%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174061174135%_)) - (let ((_%e174066174138%_ + (gx#stx-pair? _%tl173076173150%_)) + (let ((_%e173081173153%_ (let () (declare (not safe)) - (gx#stx-e _%tl174061174135%_)))) - (let ((_%hd174065174141%_ + (gx#stx-e _%tl173076173150%_)))) + (let ((_%hd173080173156%_ (let () (declare (not safe)) - (##car _%e174066174138%_))) - (_%tl174064174143%_ + (##car _%e173081173153%_))) + (_%tl173079173158%_ (let () (declare (not safe)) - (##cdr _%e174066174138%_)))) + (##cdr _%e173081173153%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174064174143%_)) - (let ((_%e174069174146%_ + (gx#stx-pair? _%tl173079173158%_)) + (let ((_%e173084173161%_ (let () (declare (not safe)) (gx#stx-e - _%tl174064174143%_)))) - (let ((_%hd174068174149%_ + _%tl173079173158%_)))) + (let ((_%hd173083173164%_ (let () (declare (not safe)) - (##car _%e174069174146%_))) - (_%tl174067174151%_ + (##car _%e173084173161%_))) + (_%tl173082173166%_ (let () (declare (not safe)) - (##cdr _%e174069174146%_)))) + (##cdr _%e173084173161%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174067174151%_)) - (let ((_%e174072174154%_ + _%tl173082173166%_)) + (let ((_%e173087173169%_ (let () (declare (not safe)) (gx#stx-e - _%tl174067174151%_)))) - (let ((_%hd174071174157%_ + _%tl173082173166%_)))) + (let ((_%hd173086173172%_ (let () (declare (not safe)) - (##car _%e174072174154%_))) - (_%tl174070174159%_ + (##car _%e173087173169%_))) + (_%tl173085173174%_ (let () (declare (not safe)) - (##cdr _%e174072174154%_)))) + (##cdr _%e173087173169%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174070174159%_)) + _%tl173085173174%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl174058174127%_)) - ((lambda (_%L174162%_ - _%L174163%_ - _%L174164%_ - _%L174165%_) - (let ((_%E174194%_ - (let () - (declare (not safe)) - (_%xform-e173821%_ - _%L174162%_ - _%kont-id174033%_ - _%kont-box174034%_ - _%negation-id174035%_)))) + (gx#stx-null? _%tl173073173142%_)) + ((lambda (_%L173177%_ + _%L173178%_ + _%L173179%_ + _%L173180%_) + (let ((_%E173209%_ + (_%xform-e172836%_ + _%L173177%_ + _%kont-id173048%_ + _%kont-box173049%_ + _%negation-id173050%_))) (cons '%#lambda - (cons (let ((__tmp187161 - (lambda (_%g174195174198%_ - _%g174196174200%_) - (cons _%g174195174198%_ - _%g174196174200%_)))) + (cons (let ((__tmp186099 + (lambda (_%g173210173213%_ + _%g173211173215%_) + (cons _%g173210173213%_ + _%g173211173215%_)))) (declare (not safe)) (__foldr1 - __tmp187161 + __tmp186099 '() - _%L174165%_)) + _%L173180%_)) (cons (cons '%#if - (cons _%L174164%_ - (cons _%L174163%_ - (cons _%E174194%_ + (cons _%L173179%_ + (cons _%L173178%_ + (cons _%E173209%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd174071174157%_ - _%hd174068174149%_ - _%hd174065174141%_ - _%id174057174119%_) - (let () - (declare (not safe)) - (_%g174037174077%_ _%g174038174080%_))) - (let () - (declare (not safe)) - (_%g174037174077%_ _%g174038174080%_))))) + _%hd173086173172%_ + _%hd173083173164%_ + _%hd173080173156%_ + _%id173072173134%_) + (_%g173052173092%_ _%g173053173095%_)) + (_%g173052173092%_ _%g173053173095%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g174037174077%_ - _%g174038174080%_))))) - (let () - (declare (not safe)) - (_%g174037174077%_ - _%g174038174080%_))))) - (let () - (declare (not safe)) - (_%g174037174077%_ _%g174038174080%_))) - (let () - (declare (not safe)) - (_%g174037174077%_ _%g174038174080%_))) - (let () - (declare (not safe)) - (_%g174037174077%_ _%g174038174080%_))))) - (let () - (declare (not safe)) - (_%g174037174077%_ _%g174038174080%_))))) + (_%g173052173092%_ + _%g173053173095%_)))) + (_%g173052173092%_ + _%g173053173095%_)))) + (_%g173052173092%_ _%g173053173095%_)) + (_%g173052173092%_ _%g173053173095%_)) + (_%g173052173092%_ _%g173053173095%_)))) + (_%g173052173092%_ _%g173053173095%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g174037174077%_ - _%g174038174080%_)))))))) - (let () - (declare (not safe)) - (_%loop174052174103%_ - _%target174049174098%_ - '()))) - (let () - (declare (not safe)) - (_%g174037174077%_ _%g174038174080%_)))))) - (let () - (declare (not safe)) - (_%g174037174077%_ _%g174038174080%_))))) + (_%g173052173092%_ + _%g173053173095%_))))))) + (_%loop173067173118%_ + _%target173064173113%_ + '())) + (_%g173052173092%_ _%g173053173095%_))))) + (_%g173052173092%_ _%g173053173095%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g174037174077%_ - _%g174038174080%_))) - (let () - (declare (not safe)) - (_%g174037174077%_ - _%g174038174080%_))) - (let () - (declare (not safe)) - (_%g174037174077%_ - _%g174038174080%_))))) - (let () - (declare (not safe)) - (_%g174037174077%_ _%g174038174080%_)))))) - (declare (not safe)) - (_%g174036174203%_ _%expr174032%_)))) - (_%clause-e173823%_ - (lambda (_%clause-lambda173902%_ - _%kont-id173903%_ - _%rest173904%_) - (letrec* ((_%kont-box173906%_ (box '#f))) - (let* ((_%negation-id173946%_ - (let* ((_%rest173907173917%_ _%rest173904%_) - (_%else173909173925%_ - (lambda () _%negation-id173819%_)) - (_%K173911173931%_ - (lambda (_%clause173928%_ - _%clause-id173929%_) - _%clause-id173929%_))) + (_%g173052173092%_ + _%g173053173095%_)) + (_%g173052173092%_ + _%g173053173095%_)) + (_%g173052173092%_ + _%g173053173095%_)))) + (_%g173052173092%_ _%g173053173095%_))))) + (_%g173051173218%_ _%expr173047%_)))) + (_%clause-e172838%_ + (lambda (_%clause-lambda172917%_ + _%kont-id172918%_ + _%rest172919%_) + (letrec* ((_%kont-box172921%_ (box '#f))) + (let* ((_%negation-id172961%_ + (let* ((_%rest172922172932%_ _%rest172919%_) + (_%else172924172940%_ + (lambda () _%negation-id172834%_)) + (_%K172926172946%_ + (lambda (_%clause172943%_ + _%clause-id172944%_) + _%clause-id172944%_))) (if (let () (declare (not safe)) - (##pair? _%rest173907173917%_)) - (let ((_%hd173912173934%_ + (##pair? _%rest172922172932%_)) + (let ((_%hd172927172949%_ (let () (declare (not safe)) - (##car _%rest173907173917%_)))) + (##car _%rest172922172932%_)))) (if (let () (declare (not safe)) - (##pair? _%hd173912173934%_)) - (let ((_%hd173914173937%_ + (##pair? _%hd172927172949%_)) + (let ((_%hd172929172952%_ (let () (declare (not safe)) - (##car _%hd173912173934%_))) - (_%tl173915173939%_ + (##car _%hd172927172949%_))) + (_%tl172930172954%_ (let () (declare (not safe)) - (##cdr _%hd173912173934%_)))) - (let* ((_%clause-id173942%_ - _%hd173914173937%_) - (_%clause173944%_ - _%tl173915173939%_)) - (declare (not safe)) - (_%K173911173931%_ - _%clause173944%_ - _%clause-id173942%_))) - (let () - (declare (not safe)) - (_%else173909173925%_)))) - (let () - (declare (not safe)) - (_%else173909173925%_))))) - (_%g173948173968%_ - (lambda (_%g173949173965%_) + (##cdr _%hd172927172949%_)))) + (let* ((_%clause-id172957%_ + _%hd172929172952%_) + (_%clause172959%_ + _%tl172930172954%_)) + (_%K172926172946%_ + _%clause172959%_ + _%clause-id172957%_))) + (_%else172924172940%_))) + (_%else172924172940%_)))) + (_%g172963172983%_ + (lambda (_%g172964172980%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173949173965%_)))) - (_%g173947174029%_ - (lambda (_%g173949173971%_) + _%g172964172980%_)))) + (_%g172962173044%_ + (lambda (_%g172964172986%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173949173971%_)) - (let ((_%e173954173973%_ + (gx#stx-pair? _%g172964172986%_)) + (let ((_%e172969172988%_ (let () (declare (not safe)) - (gx#stx-e _%g173949173971%_)))) - (let ((_%hd173953173976%_ + (gx#stx-e _%g172964172986%_)))) + (let ((_%hd172968172991%_ (let () (declare (not safe)) - (##car _%e173954173973%_))) - (_%tl173952173978%_ + (##car _%e172969172988%_))) + (_%tl172967172993%_ (let () (declare (not safe)) - (##cdr _%e173954173973%_)))) + (##cdr _%e172969172988%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd173953173976%_)) + _%hd172968172991%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd173953173976%_)) + _%hd172968172991%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173952173978%_)) - (let ((_%e173957173981%_ + _%tl172967172993%_)) + (let ((_%e172972172996%_ (let () (declare (not safe)) (gx#stx-e - _%tl173952173978%_)))) - (let ((_%hd173956173984%_ + _%tl172967172993%_)))) + (let ((_%hd172971172999%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e173957173981%_))) - (_%tl173955173986%_ - (let () (declare (not safe)) (##cdr _%e173957173981%_)))) + (##car _%e172972172996%_))) + (_%tl172970173001%_ + (let () (declare (not safe)) (##cdr _%e172972172996%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173956173984%_)) - (let ((_%e173960173989%_ + (gx#stx-pair? _%hd172971172999%_)) + (let ((_%e172975173004%_ (let () (declare (not safe)) - (gx#stx-e _%hd173956173984%_)))) - (let ((_%hd173959173992%_ + (gx#stx-e _%hd172971172999%_)))) + (let ((_%hd172974173007%_ (let () (declare (not safe)) - (##car _%e173960173989%_))) - (_%tl173958173994%_ + (##car _%e172975173004%_))) + (_%tl172973173009%_ (let () (declare (not safe)) - (##cdr _%e173960173989%_)))) + (##cdr _%e172975173004%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173958173994%_)) + (gx#stx-null? _%tl172973173009%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173955173986%_)) - (let ((_%e173963173997%_ + (gx#stx-pair? _%tl172970173001%_)) + (let ((_%e172978173012%_ (let () (declare (not safe)) - (gx#stx-e _%tl173955173986%_)))) - (let ((_%hd173962174000%_ + (gx#stx-e _%tl172970173001%_)))) + (let ((_%hd172977173015%_ (let () (declare (not safe)) - (##car _%e173963173997%_))) - (_%tl173961174002%_ + (##car _%e172978173012%_))) + (_%tl172976173017%_ (let () (declare (not safe)) - (##cdr _%e173963173997%_)))) + (##cdr _%e172978173012%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173961174002%_)) - ((lambda (_%L174005%_ _%L174006%_) - (let ((_%body174027%_ - (let () - (declare (not safe)) - (_%xform-e173821%_ - _%L174005%_ - _%kont-id173903%_ - _%kont-box173906%_ - _%negation-id173946%_)))) + (gx#stx-null? _%tl172976173017%_)) + ((lambda (_%L173020%_ _%L173021%_) + (let ((_%body173042%_ + (_%xform-e172836%_ + _%L173020%_ + _%kont-id172918%_ + _%kont-box172921%_ + _%negation-id172961%_))) (values (cons '%#lambda - (cons (cons _%L174006%_ + (cons (cons _%L173021%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%body174027%_ '()))) + (cons _%body173042%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _%kont-box173906%_)))) - _%hd173962174000%_ - _%hd173959173992%_) - (let () - (declare (not safe)) - (_%g173948173968%_ - _%g173949173971%_))))) - (let () - (declare (not safe)) - (_%g173948173968%_ _%g173949173971%_))) - (let () - (declare (not safe)) - (_%g173948173968%_ _%g173949173971%_))))) - (let () - (declare (not safe)) - (_%g173948173968%_ _%g173949173971%_))))) + (unbox _%kont-box172921%_)))) + _%hd172977173015%_ + _%hd172974173007%_) + (_%g172963172983%_ + _%g172964172986%_)))) + (_%g172963172983%_ _%g172964172986%_)) + (_%g172963172983%_ _%g172964172986%_)))) + (_%g172963172983%_ _%g172964172986%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g173948173968%_ - _%g173949173971%_))) - (let () - (declare (not safe)) - (_%g173948173968%_ - _%g173949173971%_))) - (let () - (declare (not safe)) - (_%g173948173968%_ - _%g173949173971%_))))) - (let () - (declare (not safe)) - (_%g173948173968%_ - _%g173949173971%_)))))) - (declare (not safe)) - (_%g173947174029%_ _%clause-lambda173902%_)))))) - (let _%lp173825%_ ((_%rest173827%_ _%clauses173818%_) - (_%clauses173828%_ '()) - (_%konts173829%_ '())) - (let* ((_%rest173830173838%_ _%rest173827%_) - (_%else173832173846%_ + (_%g172963172983%_ + _%g172964172986%_)) + (_%g172963172983%_ + _%g172964172986%_)) + (_%g172963172983%_ + _%g172964172986%_)))) + (_%g172963172983%_ _%g172964172986%_))))) + (_%g172962173044%_ _%clause-lambda172917%_)))))) + (let _%lp172840%_ ((_%rest172842%_ _%clauses172833%_) + (_%clauses172843%_ '()) + (_%konts172844%_ '())) + (let* ((_%rest172845172853%_ _%rest172842%_) + (_%else172847172861%_ (lambda () - (values (reverse _%clauses173828%_) - (reverse _%konts173829%_)))) - (_%K173834173890%_ - (lambda (_%rest173849%_ _%clause173850%_) - (let* ((_%clause173851173858%_ _%clause173850%_) - (_%E173853173862%_ + (values (reverse _%clauses172843%_) + (reverse _%konts172844%_)))) + (_%K172849172905%_ + (lambda (_%rest172864%_ _%clause172865%_) + (let* ((_%clause172866172873%_ _%clause172865%_) + (_%E172868172877%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause173851173858%_ + _%clause172866172873%_ '([clause-id . clause-lambda]))) '#!void)) - (_%K173854173878%_ - (lambda (_%clause-lambda173865%_ - _%clause-id173866%_) - (let* ((_%id173868%_ - (let ((__tmp187162 + (_%K172869172893%_ + (lambda (_%clause-lambda172880%_ + _%clause-id172881%_) + (let* ((_%id172883%_ + (let ((__tmp186100 (let () (declare (not safe)) (##gensym '__kont)))) (declare (not safe)) - (make-symbol__0 __tmp187162))) - (_%id173870%_ + (make-symbol__0 __tmp186100))) + (_%id172885%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id173868%_))) - (_%_173872%_ + _%id172883%_))) + (_%_172887%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id173870%_))) - (_g187163_ - (let () - (declare (not safe)) - (_%clause-e173823%_ - _%clause-lambda173865%_ - _%id173870%_ - _%rest173849%_)))) + _%id172885%_))) + (_g186101_ + (_%clause-e172838%_ + _%clause-lambda172880%_ + _%id172885%_ + _%rest172864%_))) (begin - (let ((_g187164_ + (let ((_g186102_ (let () (declare (not safe)) - (if (##values? _g187163_) - (##vector-length _g187163_) + (if (##values? _g186101_) + (##vector-length _g186101_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g187164_ 2))) + (##fx= _g186102_ 2))) (error "Context expects 2 values" - _g187164_))) - (let ((_%clause-lambda173874%_ + _g186102_))) + (let ((_%clause-lambda172889%_ (let () (declare (not safe)) - (##vector-ref _g187163_ 0))) - (_%kont173875%_ + (##vector-ref _g186101_ 0))) + (_%kont172890%_ (let () (declare (not safe)) - (##vector-ref _g187163_ 1)))) - (let ((__tmp187166 - (cons (cons _%clause-id173866%_ - _%clause-lambda173874%_) - _%clauses173828%_)) - (__tmp187165 - (cons (cons _%id173870%_ - _%kont173875%_) - _%konts173829%_))) - (declare (not safe)) - (_%lp173825%_ - _%rest173849%_ - __tmp187166 - __tmp187165)))))))) + (##vector-ref _g186101_ 1)))) + (_%lp172840%_ + _%rest172864%_ + (cons (cons _%clause-id172881%_ + _%clause-lambda172889%_) + _%clauses172843%_) + (cons (cons _%id172885%_ _%kont172890%_) + _%konts172844%_)))))))) (if (let () (declare (not safe)) - (##pair? _%clause173851173858%_)) - (let ((_%hd173855173881%_ + (##pair? _%clause172866172873%_)) + (let ((_%hd172870172896%_ (let () (declare (not safe)) - (##car _%clause173851173858%_))) - (_%tl173856173883%_ + (##car _%clause172866172873%_))) + (_%tl172871172898%_ (let () (declare (not safe)) - (##cdr _%clause173851173858%_)))) - (let* ((_%clause-id173886%_ _%hd173855173881%_) - (_%clause-lambda173888%_ - _%tl173856173883%_)) - (declare (not safe)) - (_%K173854173878%_ - _%clause-lambda173888%_ - _%clause-id173886%_))) - (let () - (declare (not safe)) - (_%E173853173862%_))))))) - (if (let () (declare (not safe)) (##pair? _%rest173830173838%_)) - (let ((_%hd173835173893%_ + (##cdr _%clause172866172873%_)))) + (let* ((_%clause-id172901%_ _%hd172870172896%_) + (_%clause-lambda172903%_ + _%tl172871172898%_)) + (_%K172869172893%_ + _%clause-lambda172903%_ + _%clause-id172901%_))) + (_%E172868172877%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest172845172853%_)) + (let ((_%hd172850172908%_ (let () (declare (not safe)) - (##car _%rest173830173838%_))) - (_%tl173836173895%_ + (##car _%rest172845172853%_))) + (_%tl172851172910%_ (let () (declare (not safe)) - (##cdr _%rest173830173838%_)))) - (let* ((_%clause173898%_ _%hd173835173893%_) - (_%rest173900%_ _%tl173836173895%_)) - (declare (not safe)) - (_%K173834173890%_ _%rest173900%_ _%clause173898%_))) - (let () (declare (not safe)) (_%else173832173846%_)))))))) + (##cdr _%rest172845172853%_)))) + (let* ((_%clause172913%_ _%hd172850172908%_) + (_%rest172915%_ _%tl172851172910%_)) + (_%K172849172905%_ _%rest172915%_ _%clause172913%_))) + (_%else172847172861%_))))))) (define gxc#optimize-syntax-case-closure - (lambda (_%clause173162%_ _%negation173163%_ _%target173164%_) - (letrec ((_%closure-e173166%_ - (lambda (_%expr173283%_) - (let* ((_%__stx186697186698%_ _%expr173283%_) - (_%g173290173405%_ + (lambda (_%clause172177%_ _%negation172178%_ _%target172179%_) + (letrec ((_%closure-e172181%_ + (lambda (_%expr172298%_) + (let* ((_%__stx185712185713%_ _%expr172298%_) + (_%g172305172420%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx186697186698%_))))) - (let ((_%__kont186699186700%_ - (lambda (_%L173796%_ _%L173797%_ _%L173798%_) + _%__stx185712185713%_))))) + (let ((_%__kont185714185715%_ + (lambda (_%L172811%_ _%L172812%_ _%L172813%_) (cons '%#if - (cons _%L173798%_ - (cons (let () - (declare (not safe)) - (_%closure-e173166%_ - _%L173797%_)) - (cons (let () - (declare (not safe)) - (_%closure-e173166%_ - _%L173796%_)) + (cons _%L172813%_ + (cons (_%closure-e172181%_ + _%L172812%_) + (cons (_%closure-e172181%_ + _%L172811%_) '())))))) - (_%__kont186701186702%_ - (lambda (_%L173744%_ _%L173745%_) + (_%__kont185716185717%_ + (lambda (_%L172759%_ _%L172760%_) (cons '%#let-values - (cons _%L173745%_ - (cons (let () - (declare (not safe)) - (_%closure-e173166%_ - _%L173744%_)) + (cons _%L172760%_ + (cons (_%closure-e172181%_ + _%L172759%_) '()))))) - (_%__kont186703186704%_ - (lambda (_%L173690%_ _%L173691%_ _%L173692%_) + (_%__kont185718185719%_ + (lambda (_%L172705%_ _%L172706%_ _%L172707%_) (cons '%#letrec-values - (cons (cons (cons (cons _%L173692%_ '()) - (cons (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (_%closure-e173166%_ _%L173691%_)) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (cons (cons _%L172707%_ '()) + (cons (_%closure-e172181%_ + _%L172706%_) + '())) '()) - (cons _%L173690%_ '()))))) - (_%__kont186705186706%_ - (lambda (_%L173603%_ _%L173604%_) + (cons _%L172705%_ '()))))) + (_%__kont185720185721%_ + (lambda (_%L172618%_ _%L172619%_) (cons '%#lambda - (cons (let ((__tmp187167 - (lambda (_%g173621173624%_ - _%g173622173626%_) - (cons _%g173621173624%_ - _%g173622173626%_)))) + (cons (let ((__tmp186103 + (lambda (_%g172636172639%_ + _%g172637172641%_) + (cons _%g172636172639%_ + _%g172637172641%_)))) (declare (not safe)) (__foldr1 - __tmp187167 + __tmp186103 '() - _%L173604%_)) - (cons (let () - (declare (not safe)) - (_%closure-e173166%_ - _%L173603%_)) + _%L172619%_)) + (cons (_%closure-e172181%_ + _%L172618%_) '()))))) - (_%__kont186709186710%_ - (lambda (_%L173533%_) + (_%__kont185724185725%_ + (lambda (_%L172548%_) (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L173533%_ '())) + (cons _%L172548%_ '())) '())))) - (_%__kont186711186712%_ - (lambda (_%L173466%_ _%L173467%_) - _%expr173283%_))) - (let* ((_%__match186930186931%_ - (lambda (_%e173382173410%_ - _%hd173381173413%_ - _%tl173380173415%_ - _%e173385173418%_ - _%hd173384173421%_ - _%tl173383173423%_ - _%e173388173426%_ - _%hd173387173429%_ - _%tl173386173431%_ - _%e173391173434%_ - _%hd173390173437%_ - _%tl173389173439%_ - _%__splice186713186714%_ - _%target173392173442%_ - _%tl173394173444%_) - (letrec ((_%loop173395173447%_ - (lambda (_%hd173393173450%_ - _%arg173399173452%_) + (_%__kont185726185727%_ + (lambda (_%L172481%_ _%L172482%_) + _%expr172298%_))) + (let* ((_%__match185945185946%_ + (lambda (_%e172397172425%_ + _%hd172396172428%_ + _%tl172395172430%_ + _%e172400172433%_ + _%hd172399172436%_ + _%tl172398172438%_ + _%e172403172441%_ + _%hd172402172444%_ + _%tl172401172446%_ + _%e172406172449%_ + _%hd172405172452%_ + _%tl172404172454%_ + _%__splice185728185729%_ + _%target172407172457%_ + _%tl172409172459%_) + (letrec ((_%loop172410172462%_ + (lambda (_%hd172408172465%_ + _%arg172414172467%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd173393173450%_)) - (let ((_%e173396173455%_ + _%hd172408172465%_)) + (let ((_%e172411172470%_ (let () (declare (not safe)) (gx#stx-e - _%hd173393173450%_)))) - (let ((_%lp-tl173398173460%_ + _%hd172408172465%_)))) + (let ((_%lp-tl172413172475%_ (let () (declare (not safe)) - (##cdr _%e173396173455%_))) - (_%lp-hd173397173458%_ + (##cdr _%e172411172470%_))) + (_%lp-hd172412172473%_ (let () (declare (not safe)) - (##car _%e173396173455%_)))) - (let ((__tmp187168 - (cons _%lp-hd173397173458%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg173399173452%_))) - (declare (not safe)) - (_%loop173395173447%_ _%lp-tl173398173460%_ __tmp187168)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%arg173400173463%_ - (reverse _%arg173399173452%_))) - (_%__kont186711186712%_ - _%arg173400173463%_ - _%hd173390173437%_)))))) - (let () - (declare (not safe)) - (_%loop173395173447%_ - _%target173392173442%_ - '()))))) - (_%__match186888186889%_ - (lambda (_%e173365173493%_ - _%hd173364173496%_ - _%tl173363173498%_ - _%e173368173501%_ - _%hd173367173504%_ - _%tl173366173506%_ - _%e173371173509%_ - _%hd173370173512%_ - _%tl173369173514%_ - _%e173374173517%_ - _%hd173373173520%_ - _%tl173372173522%_ - _%e173377173525%_ - _%hd173376173528%_ - _%tl173375173530%_) - (let ((_%L173533%_ _%hd173373173520%_)) + (##car _%e172411172470%_)))) + (_%loop172410172462%_ + _%lp-tl172413172475%_ + (cons _%lp-hd172412172473%_ + _%arg172414172467%_)))) + (let ((_%arg172415172478%_ + (reverse _%arg172414172467%_))) + (_%__kont185726185727%_ + _%arg172415172478%_ + _%hd172405172452%_)))))) + (_%loop172410172462%_ + _%target172407172457%_ + '())))) + (_%__match185903185904%_ + (lambda (_%e172380172508%_ + _%hd172379172511%_ + _%tl172378172513%_ + _%e172383172516%_ + _%hd172382172519%_ + _%tl172381172521%_ + _%e172386172524%_ + _%hd172385172527%_ + _%tl172384172529%_ + _%e172389172532%_ + _%hd172388172535%_ + _%tl172387172537%_ + _%e172392172540%_ + _%hd172391172543%_ + _%tl172390172545%_) + (let ((_%L172548%_ _%hd172388172535%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L173533%_ - _%negation173163%_)) - (_%__kont186709186710%_ _%L173533%_) + _%L172548%_ + _%negation172178%_)) + (_%__kont185724185725%_ _%L172548%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl173366173506%_)) - (let ((_%__splice186713186714%_ + _%tl172381172521%_)) + (let ((_%__splice185728185729%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl173366173506%_ + _%tl172381172521%_ '0)))) - (let ((_%tl173394173444%_ + (let ((_%tl172409172459%_ (let () (declare (not safe)) (##vector-ref - _%__splice186713186714%_ + _%__splice185728185729%_ '1))) - (_%target173392173442%_ + (_%target172407172457%_ (let () (declare (not safe)) (##vector-ref - _%__splice186713186714%_ + _%__splice185728185729%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173394173444%_)) - (_%__match186930186931%_ - _%e173365173493%_ - _%hd173364173496%_ - _%tl173363173498%_ - _%e173368173501%_ - _%hd173367173504%_ - _%tl173366173506%_ - _%e173371173509%_ - _%hd173370173512%_ - _%tl173369173514%_ - _%e173374173517%_ - _%hd173373173520%_ - _%tl173372173522%_ - _%__splice186713186714%_ - _%target173392173442%_ - _%tl173394173444%_) + _%tl172409172459%_)) + (_%__match185945185946%_ + _%e172380172508%_ + _%hd172379172511%_ + _%tl172378172513%_ + _%e172383172516%_ + _%hd172382172519%_ + _%tl172381172521%_ + _%e172386172524%_ + _%hd172385172527%_ + _%tl172384172529%_ + _%e172389172532%_ + _%hd172388172535%_ + _%tl172387172537%_ + _%__splice185728185729%_ + _%target172407172457%_ + _%tl172409172459%_) (let () (declare (not safe)) - (_%g173290173405%_))))) + (_%g172305172420%_))))) (let () (declare (not safe)) - (_%g173290173405%_))))))) - (_%__match186846186847%_ - (lambda (_%e173346173555%_ - _%hd173345173558%_ - _%tl173344173560%_ - _%e173349173563%_ - _%hd173348173566%_ - _%tl173347173568%_ - _%__splice186707186708%_ - _%target173350173571%_ - _%tl173352173573%_) - (letrec ((_%loop173353173576%_ - (lambda (_%hd173351173579%_ - _%id173357173581%_) + (_%g172305172420%_))))))) + (_%__match185861185862%_ + (lambda (_%e172361172570%_ + _%hd172360172573%_ + _%tl172359172575%_ + _%e172364172578%_ + _%hd172363172581%_ + _%tl172362172583%_ + _%__splice185722185723%_ + _%target172365172586%_ + _%tl172367172588%_) + (letrec ((_%loop172368172591%_ + (lambda (_%hd172366172594%_ + _%id172372172596%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd173351173579%_)) - (let ((_%e173354173584%_ + _%hd172366172594%_)) + (let ((_%e172369172599%_ (let () (declare (not safe)) (gx#stx-e - _%hd173351173579%_)))) - (let ((_%lp-tl173356173589%_ + _%hd172366172594%_)))) + (let ((_%lp-tl172371172604%_ (let () (declare (not safe)) - (##cdr _%e173354173584%_))) - (_%lp-hd173355173587%_ + (##cdr _%e172369172599%_))) + (_%lp-hd172370172602%_ (let () (declare (not safe)) - (##car _%e173354173584%_)))) - (let ((__tmp187169 - (cons _%lp-hd173355173587%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id173357173581%_))) - (declare (not safe)) - (_%loop173353173576%_ _%lp-tl173356173589%_ __tmp187169)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id173358173592%_ - (reverse _%id173357173581%_))) + (##car _%e172369172599%_)))) + (_%loop172368172591%_ + _%lp-tl172371172604%_ + (cons _%lp-hd172370172602%_ + _%id172372172596%_)))) + (let ((_%id172373172607%_ + (reverse _%id172372172596%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173347173568%_)) - (let ((_%e173361173595%_ + _%tl172362172583%_)) + (let ((_%e172376172610%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl173347173568%_)))) - (let ((_%tl173359173600%_ + (gx#stx-e _%tl172362172583%_)))) + (let ((_%tl172374172615%_ (let () (declare (not safe)) - (##cdr _%e173361173595%_))) - (_%hd173360173598%_ + (##cdr _%e172376172610%_))) + (_%hd172375172613%_ (let () (declare (not safe)) - (##car _%e173361173595%_)))) + (##car _%e172376172610%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173359173600%_)) - (_%__kont186705186706%_ - _%hd173360173598%_ - _%id173358173592%_) - (let () (declare (not safe)) (_%g173290173405%_))))) - (let () (declare (not safe)) (_%g173290173405%_)))))))) + (gx#stx-null? _%tl172374172615%_)) + (_%__kont185720185721%_ + _%hd172375172613%_ + _%id172373172607%_) + (let () (declare (not safe)) (_%g172305172420%_))))) + (let () (declare (not safe)) (_%g172305172420%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop173353173576%_ - _%target173350173571%_ - '())))))) + (_%loop172368172591%_ + _%target172365172586%_ + '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx186697186698%_)) - (let ((_%e173297173764%_ + (gx#stx-pair? _%__stx185712185713%_)) + (let ((_%e172312172779%_ (let () (declare (not safe)) - (gx#stx-e _%__stx186697186698%_)))) - (let ((_%tl173295173769%_ + (gx#stx-e _%__stx185712185713%_)))) + (let ((_%tl172310172784%_ (let () (declare (not safe)) - (##cdr _%e173297173764%_))) - (_%hd173296173767%_ + (##cdr _%e172312172779%_))) + (_%hd172311172782%_ (let () (declare (not safe)) - (##car _%e173297173764%_)))) + (##car _%e172312172779%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd173296173767%_)) + (gx#identifier? _%hd172311172782%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd173296173767%_)) + _%hd172311172782%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173295173769%_)) - (let ((_%e173300173772%_ + _%tl172310172784%_)) + (let ((_%e172315172787%_ (let () (declare (not safe)) (gx#stx-e - _%tl173295173769%_)))) - (let ((_%tl173298173777%_ + _%tl172310172784%_)))) + (let ((_%tl172313172792%_ (let () (declare (not safe)) - (##cdr _%e173300173772%_))) - (_%hd173299173775%_ + (##cdr _%e172315172787%_))) + (_%hd172314172790%_ (let () (declare (not safe)) - (##car _%e173300173772%_)))) + (##car _%e172315172787%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173298173777%_)) - (let ((_%e173303173780%_ + _%tl172313172792%_)) + (let ((_%e172318172795%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl173298173777%_)))) - (let ((_%tl173301173785%_ - (let () (declare (not safe)) (##cdr _%e173303173780%_))) - (_%hd173302173783%_ + (gx#stx-e _%tl172313172792%_)))) + (let ((_%tl172316172800%_ + (let () (declare (not safe)) (##cdr _%e172318172795%_))) + (_%hd172317172798%_ (let () (declare (not safe)) - (##car _%e173303173780%_)))) + (##car _%e172318172795%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173301173785%_)) - (let ((_%e173306173788%_ + (gx#stx-pair? _%tl172316172800%_)) + (let ((_%e172321172803%_ (let () (declare (not safe)) - (gx#stx-e _%tl173301173785%_)))) - (let ((_%tl173304173793%_ + (gx#stx-e _%tl172316172800%_)))) + (let ((_%tl172319172808%_ (let () (declare (not safe)) - (##cdr _%e173306173788%_))) - (_%hd173305173791%_ + (##cdr _%e172321172803%_))) + (_%hd172320172806%_ (let () (declare (not safe)) - (##car _%e173306173788%_)))) + (##car _%e172321172803%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173304173793%_)) - (_%__kont186699186700%_ - _%hd173305173791%_ - _%hd173302173783%_ - _%hd173299173775%_) + (gx#stx-null? _%tl172319172808%_)) + (_%__kont185714185715%_ + _%hd172320172806%_ + _%hd172317172798%_ + _%hd172314172790%_) (let () (declare (not safe)) - (_%g173290173405%_))))) - (let () (declare (not safe)) (_%g173290173405%_))))) - (let () (declare (not safe)) (_%g173290173405%_))))) + (_%g172305172420%_))))) + (let () (declare (not safe)) (_%g172305172420%_))))) + (let () (declare (not safe)) (_%g172305172420%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g173290173405%_))) + (_%g172305172420%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd173296173767%_)) + _%hd172311172782%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173295173769%_)) - (let ((_%e173314173728%_ + _%tl172310172784%_)) + (let ((_%e172329172743%_ (let () (declare (not safe)) (gx#stx-e - _%tl173295173769%_)))) - (let ((_%tl173312173733%_ + _%tl172310172784%_)))) + (let ((_%tl172327172748%_ (let () (declare (not safe)) - (##cdr _%e173314173728%_))) - (_%hd173313173731%_ + (##cdr _%e172329172743%_))) + (_%hd172328172746%_ (let () (declare (not safe)) - (##car _%e173314173728%_)))) + (##car _%e172329172743%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173312173733%_)) - (let ((_%e173317173736%_ + _%tl172327172748%_)) + (let ((_%e172332172751%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl173312173733%_)))) - (let ((_%tl173315173741%_ + (gx#stx-e _%tl172327172748%_)))) + (let ((_%tl172330172756%_ (let () (declare (not safe)) - (##cdr _%e173317173736%_))) - (_%hd173316173739%_ + (##cdr _%e172332172751%_))) + (_%hd172331172754%_ (let () (declare (not safe)) - (##car _%e173317173736%_)))) + (##car _%e172332172751%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173315173741%_)) - (_%__kont186701186702%_ - _%hd173316173739%_ - _%hd173313173731%_) - (let () (declare (not safe)) (_%g173290173405%_))))) - (let () (declare (not safe)) (_%g173290173405%_))))) + (gx#stx-null? _%tl172330172756%_)) + (_%__kont185716185717%_ + _%hd172331172754%_ + _%hd172328172746%_) + (let () (declare (not safe)) (_%g172305172420%_))))) + (let () (declare (not safe)) (_%g172305172420%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g173290173405%_))) + (_%g172305172420%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd173296173767%_)) + _%hd172311172782%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173295173769%_)) - (let ((_%e173326173642%_ + _%tl172310172784%_)) + (let ((_%e172341172657%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl173295173769%_)))) - (let ((_%tl173324173647%_ - (let () (declare (not safe)) (##cdr _%e173326173642%_))) - (_%hd173325173645%_ + (gx#stx-e _%tl172310172784%_)))) + (let ((_%tl172339172662%_ + (let () (declare (not safe)) (##cdr _%e172341172657%_))) + (_%hd172340172660%_ (let () (declare (not safe)) - (##car _%e173326173642%_)))) + (##car _%e172341172657%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173325173645%_)) - (let ((_%e173329173650%_ + (gx#stx-pair? _%hd172340172660%_)) + (let ((_%e172344172665%_ (let () (declare (not safe)) - (gx#stx-e _%hd173325173645%_)))) - (let ((_%tl173327173655%_ + (gx#stx-e _%hd172340172660%_)))) + (let ((_%tl172342172670%_ (let () (declare (not safe)) - (##cdr _%e173329173650%_))) - (_%hd173328173653%_ + (##cdr _%e172344172665%_))) + (_%hd172343172668%_ (let () (declare (not safe)) - (##car _%e173329173650%_)))) + (##car _%e172344172665%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173328173653%_)) - (let ((_%e173332173658%_ + (gx#stx-pair? _%hd172343172668%_)) + (let ((_%e172347172673%_ (let () (declare (not safe)) - (gx#stx-e _%hd173328173653%_)))) - (let ((_%tl173330173663%_ + (gx#stx-e _%hd172343172668%_)))) + (let ((_%tl172345172678%_ (let () (declare (not safe)) - (##cdr _%e173332173658%_))) - (_%hd173331173661%_ + (##cdr _%e172347172673%_))) + (_%hd172346172676%_ (let () (declare (not safe)) - (##car _%e173332173658%_)))) + (##car _%e172347172673%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173331173661%_)) - (let ((_%e173335173666%_ + (gx#stx-pair? _%hd172346172676%_)) + (let ((_%e172350172681%_ (let () (declare (not safe)) - (gx#stx-e _%hd173331173661%_)))) - (let ((_%tl173333173671%_ + (gx#stx-e _%hd172346172676%_)))) + (let ((_%tl172348172686%_ (let () (declare (not safe)) - (##cdr _%e173335173666%_))) - (_%hd173334173669%_ + (##cdr _%e172350172681%_))) + (_%hd172349172684%_ (let () (declare (not safe)) - (##car _%e173335173666%_)))) + (##car _%e172350172681%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173333173671%_)) + _%tl172348172686%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173330173663%_)) - (let ((_%e173338173674%_ + _%tl172345172678%_)) + (let ((_%e172353172689%_ (let () (declare (not safe)) (gx#stx-e - _%tl173330173663%_)))) - (let ((_%tl173336173679%_ + _%tl172345172678%_)))) + (let ((_%tl172351172694%_ (let () (declare (not safe)) - (##cdr _%e173338173674%_))) - (_%hd173337173677%_ + (##cdr _%e172353172689%_))) + (_%hd172352172692%_ (let () (declare (not safe)) - (##car _%e173338173674%_)))) + (##car _%e172353172689%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173336173679%_)) + _%tl172351172694%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl173327173655%_)) + (gx#stx-null? _%tl172342172670%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173324173647%_)) - (let ((_%e173341173682%_ + (gx#stx-pair? _%tl172339172662%_)) + (let ((_%e172356172697%_ (let () (declare (not safe)) - (gx#stx-e _%tl173324173647%_)))) - (let ((_%tl173339173687%_ + (gx#stx-e _%tl172339172662%_)))) + (let ((_%tl172354172702%_ (let () (declare (not safe)) - (##cdr _%e173341173682%_))) - (_%hd173340173685%_ + (##cdr _%e172356172697%_))) + (_%hd172355172700%_ (let () (declare (not safe)) - (##car _%e173341173682%_)))) + (##car _%e172356172697%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173339173687%_)) - (_%__kont186703186704%_ - _%hd173340173685%_ - _%hd173337173677%_ - _%hd173334173669%_) + (gx#stx-null? _%tl172354172702%_)) + (_%__kont185718185719%_ + _%hd172355172700%_ + _%hd172352172692%_ + _%hd172349172684%_) (let () (declare (not safe)) - (_%g173290173405%_))))) - (let () (declare (not safe)) (_%g173290173405%_))) - (let () (declare (not safe)) (_%g173290173405%_))) - (let () (declare (not safe)) (_%g173290173405%_))))) + (_%g172305172420%_))))) + (let () (declare (not safe)) (_%g172305172420%_))) + (let () (declare (not safe)) (_%g172305172420%_))) + (let () (declare (not safe)) (_%g172305172420%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g173290173405%_))) + (_%g172305172420%_))) (let () (declare (not safe)) - (_%g173290173405%_))))) + (_%g172305172420%_))))) (let () (declare (not safe)) - (_%g173290173405%_))))) + (_%g172305172420%_))))) (let () (declare (not safe)) - (_%g173290173405%_))))) - (let () (declare (not safe)) (_%g173290173405%_))))) - (let () (declare (not safe)) (_%g173290173405%_))) + (_%g172305172420%_))))) + (let () (declare (not safe)) (_%g172305172420%_))))) + (let () (declare (not safe)) (_%g172305172420%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd173296173767%_)) + _%hd172311172782%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173295173769%_)) - (let ((_%e173349173563%_ + _%tl172310172784%_)) + (let ((_%e172364172578%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl173295173769%_)))) - (let ((_%tl173347173568%_ + (gx#stx-e _%tl172310172784%_)))) + (let ((_%tl172362172583%_ (let () (declare (not safe)) - (##cdr _%e173349173563%_))) - (_%hd173348173566%_ + (##cdr _%e172364172578%_))) + (_%hd172363172581%_ (let () (declare (not safe)) - (##car _%e173349173563%_)))) + (##car _%e172364172578%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd173348173566%_)) - (let ((_%__splice186707186708%_ + (gx#stx-pair/null? _%hd172363172581%_)) + (let ((_%__splice185722185723%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd173348173566%_ + _%hd172363172581%_ '0)))) - (let ((_%tl173352173573%_ + (let ((_%tl172367172588%_ (let () (declare (not safe)) (##vector-ref - _%__splice186707186708%_ + _%__splice185722185723%_ '1))) - (_%target173350173571%_ + (_%target172365172586%_ (let () (declare (not safe)) (##vector-ref - _%__splice186707186708%_ + _%__splice185722185723%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173352173573%_)) - (_%__match186846186847%_ - _%e173297173764%_ - _%hd173296173767%_ - _%tl173295173769%_ - _%e173349173563%_ - _%hd173348173566%_ - _%tl173347173568%_ - _%__splice186707186708%_ - _%target173350173571%_ - _%tl173352173573%_) + (gx#stx-null? _%tl172367172588%_)) + (_%__match185861185862%_ + _%e172312172779%_ + _%hd172311172782%_ + _%tl172310172784%_ + _%e172364172578%_ + _%hd172363172581%_ + _%tl172362172583%_ + _%__splice185722185723%_ + _%target172365172586%_ + _%tl172367172588%_) (let () (declare (not safe)) - (_%g173290173405%_))))) - (let () (declare (not safe)) (_%g173290173405%_))))) - (let () (declare (not safe)) (_%g173290173405%_))) + (_%g172305172420%_))))) + (let () (declare (not safe)) (_%g172305172420%_))))) + (let () (declare (not safe)) (_%g172305172420%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd173296173767%_)) + (gx#stx-eq? '%#call _%hd172311172782%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173295173769%_)) - (let ((_%e173368173501%_ + (gx#stx-pair? _%tl172310172784%_)) + (let ((_%e172383172516%_ (let () (declare (not safe)) - (gx#stx-e _%tl173295173769%_)))) - (let ((_%tl173366173506%_ + (gx#stx-e _%tl172310172784%_)))) + (let ((_%tl172381172521%_ (let () (declare (not safe)) - (##cdr _%e173368173501%_))) - (_%hd173367173504%_ + (##cdr _%e172383172516%_))) + (_%hd172382172519%_ (let () (declare (not safe)) - (##car _%e173368173501%_)))) + (##car _%e172383172516%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173367173504%_)) - (let ((_%e173371173509%_ + (gx#stx-pair? _%hd172382172519%_)) + (let ((_%e172386172524%_ (let () (declare (not safe)) - (gx#stx-e _%hd173367173504%_)))) - (let ((_%tl173369173514%_ + (gx#stx-e _%hd172382172519%_)))) + (let ((_%tl172384172529%_ (let () (declare (not safe)) - (##cdr _%e173371173509%_))) - (_%hd173370173512%_ + (##cdr _%e172386172524%_))) + (_%hd172385172527%_ (let () (declare (not safe)) - (##car _%e173371173509%_)))) + (##car _%e172386172524%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd173370173512%_)) + (gx#identifier? _%hd172385172527%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd173370173512%_)) + _%hd172385172527%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173369173514%_)) - (let ((_%e173374173517%_ + _%tl172384172529%_)) + (let ((_%e172389172532%_ (let () (declare (not safe)) (gx#stx-e - _%tl173369173514%_)))) - (let ((_%tl173372173522%_ + _%tl172384172529%_)))) + (let ((_%tl172387172537%_ (let () (declare (not safe)) - (##cdr _%e173374173517%_))) - (_%hd173373173520%_ + (##cdr _%e172389172532%_))) + (_%hd172388172535%_ (let () (declare (not safe)) - (##car _%e173374173517%_)))) + (##car _%e172389172532%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173372173522%_)) + _%tl172387172537%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173366173506%_)) - (let ((_%e173377173525%_ + _%tl172381172521%_)) + (let ((_%e172392172540%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl173366173506%_)))) - (let ((_%tl173375173530%_ + (gx#stx-e _%tl172381172521%_)))) + (let ((_%tl172390172545%_ (let () (declare (not safe)) - (##cdr _%e173377173525%_))) - (_%hd173376173528%_ + (##cdr _%e172392172540%_))) + (_%hd172391172543%_ (let () (declare (not safe)) - (##car _%e173377173525%_)))) + (##car _%e172392172540%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173375173530%_)) - (_%__match186888186889%_ - _%e173297173764%_ - _%hd173296173767%_ - _%tl173295173769%_ - _%e173368173501%_ - _%hd173367173504%_ - _%tl173366173506%_ - _%e173371173509%_ - _%hd173370173512%_ - _%tl173369173514%_ - _%e173374173517%_ - _%hd173373173520%_ - _%tl173372173522%_ - _%e173377173525%_ - _%hd173376173528%_ - _%tl173375173530%_) + (gx#stx-null? _%tl172390172545%_)) + (_%__match185903185904%_ + _%e172312172779%_ + _%hd172311172782%_ + _%tl172310172784%_ + _%e172383172516%_ + _%hd172382172519%_ + _%tl172381172521%_ + _%e172386172524%_ + _%hd172385172527%_ + _%tl172384172529%_ + _%e172389172532%_ + _%hd172388172535%_ + _%tl172387172537%_ + _%e172392172540%_ + _%hd172391172543%_ + _%tl172390172545%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl173366173506%_)) - (let ((_%__splice186713186714%_ + (gx#stx-pair/null? _%tl172381172521%_)) + (let ((_%__splice185728185729%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl173366173506%_ + _%tl172381172521%_ '0)))) - (let ((_%tl173394173444%_ + (let ((_%tl172409172459%_ (let () (declare (not safe)) (##vector-ref - _%__splice186713186714%_ + _%__splice185728185729%_ '1))) - (_%target173392173442%_ + (_%target172407172457%_ (let () (declare (not safe)) (##vector-ref - _%__splice186713186714%_ + _%__splice185728185729%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173394173444%_)) - (_%__match186930186931%_ - _%e173297173764%_ - _%hd173296173767%_ - _%tl173295173769%_ - _%e173368173501%_ - _%hd173367173504%_ - _%tl173366173506%_ - _%e173371173509%_ - _%hd173370173512%_ - _%tl173369173514%_ - _%e173374173517%_ - _%hd173373173520%_ - _%tl173372173522%_ - _%__splice186713186714%_ - _%target173392173442%_ - _%tl173394173444%_) + (gx#stx-null? _%tl172409172459%_)) + (_%__match185945185946%_ + _%e172312172779%_ + _%hd172311172782%_ + _%tl172310172784%_ + _%e172383172516%_ + _%hd172382172519%_ + _%tl172381172521%_ + _%e172386172524%_ + _%hd172385172527%_ + _%tl172384172529%_ + _%e172389172532%_ + _%hd172388172535%_ + _%tl172387172537%_ + _%__splice185728185729%_ + _%target172407172457%_ + _%tl172409172459%_) (let () (declare (not safe)) - (_%g173290173405%_))))) + (_%g172305172420%_))))) (let () (declare (not safe)) - (_%g173290173405%_)))))) + (_%g172305172420%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl173366173506%_)) - (let ((_%__splice186713186714%_ + (gx#stx-pair/null? _%tl172381172521%_)) + (let ((_%__splice185728185729%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl173366173506%_ + _%tl172381172521%_ '0)))) - (let ((_%tl173394173444%_ + (let ((_%tl172409172459%_ (let () (declare (not safe)) - (##vector-ref _%__splice186713186714%_ '1))) - (_%target173392173442%_ + (##vector-ref _%__splice185728185729%_ '1))) + (_%target172407172457%_ (let () (declare (not safe)) - (##vector-ref _%__splice186713186714%_ '0)))) + (##vector-ref _%__splice185728185729%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173394173444%_)) - (_%__match186930186931%_ - _%e173297173764%_ - _%hd173296173767%_ - _%tl173295173769%_ - _%e173368173501%_ - _%hd173367173504%_ - _%tl173366173506%_ - _%e173371173509%_ - _%hd173370173512%_ - _%tl173369173514%_ - _%e173374173517%_ - _%hd173373173520%_ - _%tl173372173522%_ - _%__splice186713186714%_ - _%target173392173442%_ - _%tl173394173444%_) + (gx#stx-null? _%tl172409172459%_)) + (_%__match185945185946%_ + _%e172312172779%_ + _%hd172311172782%_ + _%tl172310172784%_ + _%e172383172516%_ + _%hd172382172519%_ + _%tl172381172521%_ + _%e172386172524%_ + _%hd172385172527%_ + _%tl172384172529%_ + _%e172389172532%_ + _%hd172388172535%_ + _%tl172387172537%_ + _%__splice185728185729%_ + _%target172407172457%_ + _%tl172409172459%_) (let () (declare (not safe)) - (_%g173290173405%_))))) - (let () (declare (not safe)) (_%g173290173405%_)))) - (let () (declare (not safe)) (_%g173290173405%_))))) + (_%g172305172420%_))))) + (let () (declare (not safe)) (_%g172305172420%_)))) + (let () (declare (not safe)) (_%g172305172420%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g173290173405%_))) + (_%g172305172420%_))) (let () (declare (not safe)) - (_%g173290173405%_))) + (_%g172305172420%_))) (let () (declare (not safe)) - (_%g173290173405%_))))) + (_%g172305172420%_))))) (let () (declare (not safe)) - (_%g173290173405%_))))) - (let () (declare (not safe)) (_%g173290173405%_))) - (let () (declare (not safe)) (_%g173290173405%_))))))) + (_%g172305172420%_))))) + (let () (declare (not safe)) (_%g172305172420%_))) + (let () (declare (not safe)) (_%g172305172420%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g173290173405%_))))) + (_%g172305172420%_))))) (let () (declare (not safe)) - (_%g173290173405%_))))))))) - (let* ((_%clause173167173174%_ _%clause173162%_) - (_%E173169173178%_ + (_%g172305172420%_))))))))) + (let* ((_%clause172182172189%_ _%clause172177%_) + (_%E172184172193%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause173167173174%_ + _%clause172182172189%_ '([id . kont]))) '#!void)) - (_%K173170173271%_ - (lambda (_%kont173181%_ _%id173182%_) - (let* ((_%g173184173204%_ - (lambda (_%g173185173201%_) + (_%K172185172286%_ + (lambda (_%kont172196%_ _%id172197%_) + (let* ((_%g172199172219%_ + (lambda (_%g172200172216%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173185173201%_)))) - (_%g173183173268%_ - (lambda (_%g173185173207%_) + _%g172200172216%_)))) + (_%g172198172283%_ + (lambda (_%g172200172222%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173185173207%_)) - (let ((_%e173190173209%_ + (gx#stx-pair? _%g172200172222%_)) + (let ((_%e172205172224%_ (let () (declare (not safe)) - (gx#stx-e _%g173185173207%_)))) - (let ((_%hd173189173212%_ + (gx#stx-e _%g172200172222%_)))) + (let ((_%hd172204172227%_ (let () (declare (not safe)) - (##car _%e173190173209%_))) - (_%tl173188173214%_ + (##car _%e172205172224%_))) + (_%tl172203172229%_ (let () (declare (not safe)) - (##cdr _%e173190173209%_)))) + (##cdr _%e172205172224%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd173189173212%_)) + _%hd172204172227%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd173189173212%_)) + _%hd172204172227%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173188173214%_)) - (let ((_%e173193173217%_ + _%tl172203172229%_)) + (let ((_%e172208172232%_ (let () (declare (not safe)) (gx#stx-e - _%tl173188173214%_)))) - (let ((_%hd173192173220%_ + _%tl172203172229%_)))) + (let ((_%hd172207172235%_ (let () (declare (not safe)) - (##car _%e173193173217%_))) - (_%tl173191173222%_ + (##car _%e172208172232%_))) + (_%tl172206172237%_ (let () (declare (not safe)) - (##cdr _%e173193173217%_)))) + (##cdr _%e172208172232%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd173192173220%_)) - (let ((_%e173196173225%_ + _%hd172207172235%_)) + (let ((_%e172211172240%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd173192173220%_)))) - (let ((_%hd173195173228%_ + (gx#stx-e _%hd172207172235%_)))) + (let ((_%hd172210172243%_ (let () (declare (not safe)) - (##car _%e173196173225%_))) - (_%tl173194173230%_ + (##car _%e172211172240%_))) + (_%tl172209172245%_ (let () (declare (not safe)) - (##cdr _%e173196173225%_)))) + (##cdr _%e172211172240%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173194173230%_)) + (gx#stx-null? _%tl172209172245%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173191173222%_)) - (let ((_%e173199173233%_ + (gx#stx-pair? _%tl172206172237%_)) + (let ((_%e172214172248%_ (let () (declare (not safe)) - (gx#stx-e _%tl173191173222%_)))) - (let ((_%hd173198173236%_ + (gx#stx-e _%tl172206172237%_)))) + (let ((_%hd172213172251%_ (let () (declare (not safe)) - (##car _%e173199173233%_))) - (_%tl173197173238%_ + (##car _%e172214172248%_))) + (_%tl172212172253%_ (let () (declare (not safe)) - (##cdr _%e173199173233%_)))) + (##cdr _%e172214172248%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173197173238%_)) - ((lambda (_%L173241%_ _%L173242%_) - (let* ((_%body173263%_ + (gx#stx-null? _%tl172212172253%_)) + ((lambda (_%L172256%_ _%L172257%_) + (let* ((_%body172278%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L173242%_ - _%target173164%_ - _%L173241%_))) - (_%body173265%_ - (if _%negation173163%_ - (let () - (declare (not safe)) - (_%closure-e173166%_ - _%body173263%_)) - _%body173263%_))) - (let ((__tmp187171 + _%L172257%_ + _%target172179%_ + _%L172256%_))) + (_%body172280%_ + (if _%negation172178%_ + (_%closure-e172181%_ + _%body172278%_) + _%body172278%_))) + (let ((__tmp186105 (let () (declare (not safe)) (gxc#identifier-symbol - _%id173182%_))) - (__tmp187170 - (let ((__obj186988 + _%id172197%_))) + (__tmp186104 + (let ((__obj186003 (let () (declare (not safe)) (##structure @@ -17543,651 +16638,577 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj186988 + __obj186003 '0 '#f) - __obj186988))) + __obj186003))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp187171 - __tmp187170 + __tmp186105 + __tmp186104 '#t)) - (cons _%id173182%_ + (cons _%id172197%_ (cons '%#lambda (cons '() - (cons _%body173265%_ + (cons _%body172280%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd173198173236%_ - _%hd173195173228%_) - (let () - (declare (not safe)) - (_%g173184173204%_ - _%g173185173207%_))))) - (let () - (declare (not safe)) - (_%g173184173204%_ _%g173185173207%_))) - (let () - (declare (not safe)) - (_%g173184173204%_ _%g173185173207%_))))) - (let () - (declare (not safe)) - (_%g173184173204%_ _%g173185173207%_))))) + _%hd172213172251%_ + _%hd172210172243%_) + (_%g172199172219%_ _%g172200172222%_)))) + (_%g172199172219%_ _%g172200172222%_)) + (_%g172199172219%_ _%g172200172222%_)))) + (_%g172199172219%_ _%g172200172222%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g173184173204%_ - _%g173185173207%_))) - (let () - (declare (not safe)) - (_%g173184173204%_ - _%g173185173207%_))) - (let () - (declare (not safe)) - (_%g173184173204%_ - _%g173185173207%_))))) - (let () - (declare (not safe)) - (_%g173184173204%_ _%g173185173207%_)))))) - (declare (not safe)) - (_%g173183173268%_ _%kont173181%_))))) - (if (let () (declare (not safe)) (##pair? _%clause173167173174%_)) - (let ((_%hd173171173274%_ + (_%g172199172219%_ + _%g172200172222%_)) + (_%g172199172219%_ + _%g172200172222%_)) + (_%g172199172219%_ + _%g172200172222%_)))) + (_%g172199172219%_ _%g172200172222%_))))) + (_%g172198172283%_ _%kont172196%_))))) + (if (let () (declare (not safe)) (##pair? _%clause172182172189%_)) + (let ((_%hd172186172289%_ (let () (declare (not safe)) - (##car _%clause173167173174%_))) - (_%tl173172173276%_ + (##car _%clause172182172189%_))) + (_%tl172187172291%_ (let () (declare (not safe)) - (##cdr _%clause173167173174%_)))) - (let* ((_%id173279%_ _%hd173171173274%_) - (_%kont173281%_ _%tl173172173276%_)) - (declare (not safe)) - (_%K173170173271%_ _%kont173281%_ _%id173279%_))) - (let () (declare (not safe)) (_%E173169173178%_))))))) + (##cdr _%clause172182172189%_)))) + (let* ((_%id172294%_ _%hd172186172289%_) + (_%kont172296%_ _%tl172187172291%_)) + (_%K172185172286%_ _%kont172296%_ _%id172294%_))) + (_%E172184172193%_)))))) (define gxc#push-match-vars-let-values% - (lambda (_%self172946%_ _%stx172947%_) - (let* ((_%g172949172966%_ - (lambda (_%g172950172963%_) + (lambda (_%self171961%_ _%stx171962%_) + (let* ((_%g171964171981%_ + (lambda (_%g171965171978%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g172950172963%_)))) - (_%g172948173159%_ - (lambda (_%g172950172969%_) + _%g171965171978%_)))) + (_%g171963172174%_ + (lambda (_%g171965171984%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g172950172969%_)) - (let ((_%e172955172971%_ + (gx#stx-pair? _%g171965171984%_)) + (let ((_%e171970171986%_ (let () (declare (not safe)) - (gx#stx-e _%g172950172969%_)))) - (let ((_%hd172954172974%_ + (gx#stx-e _%g171965171984%_)))) + (let ((_%hd171969171989%_ (let () (declare (not safe)) - (##car _%e172955172971%_))) - (_%tl172953172976%_ + (##car _%e171970171986%_))) + (_%tl171968171991%_ (let () (declare (not safe)) - (##cdr _%e172955172971%_)))) + (##cdr _%e171970171986%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172953172976%_)) - (let ((_%e172958172979%_ + (gx#stx-pair? _%tl171968171991%_)) + (let ((_%e171973171994%_ (let () (declare (not safe)) - (gx#stx-e _%tl172953172976%_)))) - (let ((_%hd172957172982%_ + (gx#stx-e _%tl171968171991%_)))) + (let ((_%hd171972171997%_ (let () (declare (not safe)) - (##car _%e172958172979%_))) - (_%tl172956172984%_ + (##car _%e171973171994%_))) + (_%tl171971171999%_ (let () (declare (not safe)) - (##cdr _%e172958172979%_)))) + (##cdr _%e171973171994%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172956172984%_)) - (let ((_%e172961172987%_ + (gx#stx-pair? _%tl171971171999%_)) + (let ((_%e171976172002%_ (let () (declare (not safe)) - (gx#stx-e _%tl172956172984%_)))) - (let ((_%hd172960172990%_ + (gx#stx-e _%tl171971171999%_)))) + (let ((_%hd171975172005%_ (let () (declare (not safe)) - (##car _%e172961172987%_))) - (_%tl172959172992%_ + (##car _%e171976172002%_))) + (_%tl171974172007%_ (let () (declare (not safe)) - (##cdr _%e172961172987%_)))) + (##cdr _%e171976172002%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172959172992%_)) - ((lambda (_%L172995%_ - _%L172996%_) - (let _%lp173011%_ ((_%rest173013%_ + _%tl171974172007%_)) + ((lambda (_%L172010%_ + _%L172011%_) + (let _%lp172026%_ ((_%rest172028%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L172996%_) - (_%rebind173014%_ '()) - (_%vars173015%_ + _%L172011%_) + (_%rebind172029%_ '()) + (_%vars172030%_ (let () (declare (not safe)) - (slot-ref__0 _%self172946%_ 'vars)))) + (slot-ref__0 _%self171961%_ 'vars)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest173016173024%_ - _%rest173013%_) - (_%else173018173035%_ + (let* ((_%rest172031172039%_ + _%rest172028%_) + (_%else172033172050%_ (lambda () - (let ((_%sibling173032%_ + (let ((_%sibling172047%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (struct-copy _%self172946%_)))) + (struct-copy _%self171961%_)))) (let () (declare (not safe)) - (slot-set!__0 _%sibling173032%_ 'vars _%vars173015%_)) - (let ((__tmp187172 + (slot-set!__0 _%sibling172047%_ 'vars _%vars172030%_)) + (let ((__tmp186106 (lambda () - (if (let () - (declare (not safe)) - (null? _%rebind173014%_)) + (if (null? _%rebind172029%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%sibling173032%_ - _%L172995%_)) - (let ((__tmp187173 + _%sibling172047%_ + _%L172010%_)) + (let ((__tmp186107 (cons '%#let-values - (cons (reverse _%rebind173014%_) + (cons (reverse _%rebind172029%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__1 _%sibling173032%_ _%L172995%_)) + (gxc#compile-e__1 _%sibling172047%_ _%L172010%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp187173 - _%stx172947%_)))))) + __tmp186107 + _%stx171962%_)))))) (declare (not safe)) (__call-with-parameters - __tmp187172 + __tmp186106 gxc#current-compile-method - _%sibling173032%_))))) - (_%K173020173147%_ - (lambda (_%rest173038%_ _%bind173039%_) - (let* ((_%__stx186933186934%_ _%bind173039%_) - (_%g173042173065%_ + _%sibling172047%_))))) + (_%K172035172162%_ + (lambda (_%rest172053%_ _%bind172054%_) + (let* ((_%__stx185948185949%_ _%bind172054%_) + (_%g172057172080%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx186933186934%_))))) - (let ((_%__kont186935186936%_ - (lambda (_%L173117%_ _%L173118%_) - (let ((__tmp187174 - (cons _%bind173039%_ _%vars173015%_))) - (declare (not safe)) - (_%lp173011%_ - _%rest173038%_ - _%rebind173014%_ - __tmp187174)))) - (_%__kont186937186938%_ + _%__stx185948185949%_))))) + (let ((_%__kont185950185951%_ + (lambda (_%L172132%_ _%L172133%_) + (_%lp172026%_ + _%rest172053%_ + _%rebind172029%_ + (cons _%bind172054%_ _%vars172030%_)))) + (_%__kont185952185953%_ (lambda () - (let ((__tmp187175 - (cons _%bind173039%_ _%rebind173014%_))) - (declare (not safe)) - (_%lp173011%_ - _%rest173038%_ - __tmp187175 - _%vars173015%_))))) + (_%lp172026%_ + _%rest172053%_ + (cons _%bind172054%_ _%rebind172029%_) + _%vars172030%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx186933186934%_)) - (let ((_%e173048173077%_ + (gx#stx-pair? _%__stx185948185949%_)) + (let ((_%e172063172092%_ (let () (declare (not safe)) - (gx#stx-e _%__stx186933186934%_)))) - (let ((_%tl173046173082%_ + (gx#stx-e _%__stx185948185949%_)))) + (let ((_%tl172061172097%_ (let () (declare (not safe)) - (##cdr _%e173048173077%_))) - (_%hd173047173080%_ + (##cdr _%e172063172092%_))) + (_%hd172062172095%_ (let () (declare (not safe)) - (##car _%e173048173077%_)))) + (##car _%e172063172092%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173047173080%_)) - (let ((_%e173051173085%_ + (gx#stx-pair? _%hd172062172095%_)) + (let ((_%e172066172100%_ (let () (declare (not safe)) - (gx#stx-e _%hd173047173080%_)))) - (let ((_%tl173049173090%_ + (gx#stx-e _%hd172062172095%_)))) + (let ((_%tl172064172105%_ (let () (declare (not safe)) - (##cdr _%e173051173085%_))) - (_%hd173050173088%_ + (##cdr _%e172066172100%_))) + (_%hd172065172103%_ (let () (declare (not safe)) - (##car _%e173051173085%_)))) + (##car _%e172066172100%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173049173090%_)) + _%tl172064172105%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173046173082%_)) - (let ((_%e173054173093%_ + _%tl172061172097%_)) + (let ((_%e172069172108%_ (let () (declare (not safe)) (gx#stx-e - _%tl173046173082%_)))) - (let ((_%tl173052173098%_ + _%tl172061172097%_)))) + (let ((_%tl172067172113%_ (let () (declare (not safe)) - (##cdr _%e173054173093%_))) - (_%hd173053173096%_ + (##cdr _%e172069172108%_))) + (_%hd172068172111%_ (let () (declare (not safe)) - (##car _%e173054173093%_)))) + (##car _%e172069172108%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd173053173096%_)) - (let ((_%e173057173101%_ + _%hd172068172111%_)) + (let ((_%e172072172116%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd173053173096%_)))) - (let ((_%tl173055173106%_ + (gx#stx-e _%hd172068172111%_)))) + (let ((_%tl172070172121%_ (let () (declare (not safe)) - (##cdr _%e173057173101%_))) - (_%hd173056173104%_ + (##cdr _%e172072172116%_))) + (_%hd172071172119%_ (let () (declare (not safe)) - (##car _%e173057173101%_)))) + (##car _%e172072172116%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd173056173104%_)) + (gx#identifier? _%hd172071172119%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd173056173104%_)) + (gx#stx-eq? '%#ref _%hd172071172119%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173055173106%_)) - (let ((_%e173060173109%_ + (gx#stx-pair? _%tl172070172121%_)) + (let ((_%e172075172124%_ (let () (declare (not safe)) - (gx#stx-e _%tl173055173106%_)))) - (let ((_%tl173058173114%_ + (gx#stx-e _%tl172070172121%_)))) + (let ((_%tl172073172129%_ (let () (declare (not safe)) - (##cdr _%e173060173109%_))) - (_%hd173059173112%_ + (##cdr _%e172075172124%_))) + (_%hd172074172127%_ (let () (declare (not safe)) - (##car _%e173060173109%_)))) + (##car _%e172075172124%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173058173114%_)) + (gx#stx-null? _%tl172073172129%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173052173098%_)) - (_%__kont186935186936%_ - _%hd173059173112%_ - _%hd173050173088%_) - (_%__kont186937186938%_)) - (_%__kont186937186938%_)))) - (_%__kont186937186938%_)) - (_%__kont186937186938%_)) - (_%__kont186937186938%_)))) - (_%__kont186937186938%_)))) + _%tl172067172113%_)) + (_%__kont185950185951%_ + _%hd172074172127%_ + _%hd172065172103%_) + (_%__kont185952185953%_)) + (_%__kont185952185953%_)))) + (_%__kont185952185953%_)) + (_%__kont185952185953%_)) + (_%__kont185952185953%_)))) + (_%__kont185952185953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont186937186938%_)) - (_%__kont186937186938%_)))) - (_%__kont186937186938%_)))) - (_%__kont186937186938%_))))))) + (_%__kont185952185953%_)) + (_%__kont185952185953%_)))) + (_%__kont185952185953%_)))) + (_%__kont185952185953%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%rest173016173024%_)) - (let ((_%hd173021173150%_ + (##pair? _%rest172031172039%_)) + (let ((_%hd172036172165%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%rest173016173024%_))) - (_%tl173022173152%_ + (##car _%rest172031172039%_))) + (_%tl172037172167%_ (let () (declare (not safe)) - (##cdr _%rest173016173024%_)))) - (let* ((_%bind173155%_ _%hd173021173150%_) - (_%rest173157%_ _%tl173022173152%_)) - (declare (not safe)) - (_%K173020173147%_ _%rest173157%_ _%bind173155%_))) - (let () (declare (not safe)) (_%else173018173035%_)))))) + (##cdr _%rest172031172039%_)))) + (let* ((_%bind172170%_ _%hd172036172165%_) + (_%rest172172%_ _%tl172037172167%_)) + (_%K172035172162%_ _%rest172172%_ _%bind172170%_))) + (_%else172033172050%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd172960172990%_ - _%hd172957172982%_) - (let () - (declare (not safe)) - (_%g172949172966%_ - _%g172950172969%_))))) - (let () - (declare (not safe)) - (_%g172949172966%_ - _%g172950172969%_))))) - (let () - (declare (not safe)) - (_%g172949172966%_ _%g172950172969%_))))) - (let () - (declare (not safe)) - (_%g172949172966%_ _%g172950172969%_)))))) - (declare (not safe)) - (_%g172948173159%_ _%stx172947%_)))) + _%hd171975172005%_ + _%hd171972171997%_) + (_%g171964171981%_ + _%g171965171984%_)))) + (_%g171964171981%_ _%g171965171984%_)))) + (_%g171964171981%_ _%g171965171984%_)))) + (_%g171964171981%_ _%g171965171984%_))))) + (_%g171963172174%_ _%stx171962%_)))) (define gxc#push-match-vars-if% - (lambda (_%self172862%_ _%stx172863%_) - (let* ((_%g172865172886%_ - (lambda (_%g172866172883%_) + (lambda (_%self171877%_ _%stx171878%_) + (let* ((_%g171880171901%_ + (lambda (_%g171881171898%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g172866172883%_)))) - (_%g172864172943%_ - (lambda (_%g172866172889%_) + _%g171881171898%_)))) + (_%g171879171958%_ + (lambda (_%g171881171904%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g172866172889%_)) - (let ((_%e172872172891%_ + (gx#stx-pair? _%g171881171904%_)) + (let ((_%e171887171906%_ (let () (declare (not safe)) - (gx#stx-e _%g172866172889%_)))) - (let ((_%hd172871172894%_ + (gx#stx-e _%g171881171904%_)))) + (let ((_%hd171886171909%_ (let () (declare (not safe)) - (##car _%e172872172891%_))) - (_%tl172870172896%_ + (##car _%e171887171906%_))) + (_%tl171885171911%_ (let () (declare (not safe)) - (##cdr _%e172872172891%_)))) + (##cdr _%e171887171906%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172870172896%_)) - (let ((_%e172875172899%_ + (gx#stx-pair? _%tl171885171911%_)) + (let ((_%e171890171914%_ (let () (declare (not safe)) - (gx#stx-e _%tl172870172896%_)))) - (let ((_%hd172874172902%_ + (gx#stx-e _%tl171885171911%_)))) + (let ((_%hd171889171917%_ (let () (declare (not safe)) - (##car _%e172875172899%_))) - (_%tl172873172904%_ + (##car _%e171890171914%_))) + (_%tl171888171919%_ (let () (declare (not safe)) - (##cdr _%e172875172899%_)))) + (##cdr _%e171890171914%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172873172904%_)) - (let ((_%e172878172907%_ + (gx#stx-pair? _%tl171888171919%_)) + (let ((_%e171893171922%_ (let () (declare (not safe)) - (gx#stx-e _%tl172873172904%_)))) - (let ((_%hd172877172910%_ + (gx#stx-e _%tl171888171919%_)))) + (let ((_%hd171892171925%_ (let () (declare (not safe)) - (##car _%e172878172907%_))) - (_%tl172876172912%_ + (##car _%e171893171922%_))) + (_%tl171891171927%_ (let () (declare (not safe)) - (##cdr _%e172878172907%_)))) + (##cdr _%e171893171922%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172876172912%_)) - (let ((_%e172881172915%_ + _%tl171891171927%_)) + (let ((_%e171896171930%_ (let () (declare (not safe)) (gx#stx-e - _%tl172876172912%_)))) - (let ((_%hd172880172918%_ + _%tl171891171927%_)))) + (let ((_%hd171895171933%_ (let () (declare (not safe)) - (##car _%e172881172915%_))) - (_%tl172879172920%_ + (##car _%e171896171930%_))) + (_%tl171894171935%_ (let () (declare (not safe)) - (##cdr _%e172881172915%_)))) + (##cdr _%e171896171930%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172879172920%_)) - ((lambda (_%L172923%_ - _%L172924%_ - _%L172925%_) - (if (let ((__tmp187176 + _%tl171894171935%_)) + ((lambda (_%L171938%_ + _%L171939%_ + _%L171940%_) + (if (let ((__tmp186108 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map caar (let () (declare (not safe)) - (slot-ref__0 _%self172862%_ 'vars))))) + (slot-ref__0 _%self171877%_ 'vars))))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp187176 - _%L172925%_)) - (let () - (declare (not safe)) - (gxc#push-match-vars-stop _%self172862%_ _%stx172863%_)) - (let ((__tmp187177 + __tmp186108 + _%L171940%_)) + (gxc#push-match-vars-stop _%self171877%_ _%stx171878%_) + (let ((__tmp186109 (cons '%#if - (cons _%L172925%_ + (cons _%L171940%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self172862%_ - _%L172924%_)) + _%self171877%_ + _%L171939%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self172862%_ - _%L172923%_)) + _%self171877%_ + _%L171938%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp187177 _%stx172863%_)))) - _%hd172880172918%_ - _%hd172877172910%_ - _%hd172874172902%_) - (let () - (declare (not safe)) - (_%g172865172886%_ _%g172866172889%_))))) + (gxc#xform-wrap-source __tmp186109 _%stx171878%_)))) + _%hd171895171933%_ + _%hd171892171925%_ + _%hd171889171917%_) + (_%g171880171901%_ _%g171881171904%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g172865172886%_ - _%g172866172889%_))))) - (let () - (declare (not safe)) - (_%g172865172886%_ - _%g172866172889%_))))) - (let () - (declare (not safe)) - (_%g172865172886%_ _%g172866172889%_))))) - (let () - (declare (not safe)) - (_%g172865172886%_ _%g172866172889%_)))))) - (declare (not safe)) - (_%g172864172943%_ _%stx172863%_)))) + (_%g171880171901%_ + _%g171881171904%_)))) + (_%g171880171901%_ _%g171881171904%_)))) + (_%g171880171901%_ _%g171881171904%_)))) + (_%g171880171901%_ _%g171881171904%_))))) + (_%g171879171958%_ _%stx171878%_)))) (define gxc#push-match-vars-call% - (lambda (_%self172784%_ _%stx172785%_) - (let* ((_%g172787172806%_ - (lambda (_%g172788172803%_) + (lambda (_%self171799%_ _%stx171800%_) + (let* ((_%g171802171821%_ + (lambda (_%g171803171818%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g172788172803%_)))) - (_%g172786172859%_ - (lambda (_%g172788172809%_) + _%g171803171818%_)))) + (_%g171801171874%_ + (lambda (_%g171803171824%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g172788172809%_)) - (let ((_%e172792172811%_ + (gx#stx-pair? _%g171803171824%_)) + (let ((_%e171807171826%_ (let () (declare (not safe)) - (gx#stx-e _%g172788172809%_)))) - (let ((_%hd172791172814%_ + (gx#stx-e _%g171803171824%_)))) + (let ((_%hd171806171829%_ (let () (declare (not safe)) - (##car _%e172792172811%_))) - (_%tl172790172816%_ + (##car _%e171807171826%_))) + (_%tl171805171831%_ (let () (declare (not safe)) - (##cdr _%e172792172811%_)))) + (##cdr _%e171807171826%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172790172816%_)) - (let ((_%e172795172819%_ + (gx#stx-pair? _%tl171805171831%_)) + (let ((_%e171810171834%_ (let () (declare (not safe)) - (gx#stx-e _%tl172790172816%_)))) - (let ((_%hd172794172822%_ + (gx#stx-e _%tl171805171831%_)))) + (let ((_%hd171809171837%_ (let () (declare (not safe)) - (##car _%e172795172819%_))) - (_%tl172793172824%_ + (##car _%e171810171834%_))) + (_%tl171808171839%_ (let () (declare (not safe)) - (##cdr _%e172795172819%_)))) + (##cdr _%e171810171834%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172794172822%_)) - (let ((_%e172798172827%_ + (gx#stx-pair? _%hd171809171837%_)) + (let ((_%e171813171842%_ (let () (declare (not safe)) - (gx#stx-e _%hd172794172822%_)))) - (let ((_%hd172797172830%_ + (gx#stx-e _%hd171809171837%_)))) + (let ((_%hd171812171845%_ (let () (declare (not safe)) - (##car _%e172798172827%_))) - (_%tl172796172832%_ + (##car _%e171813171842%_))) + (_%tl171811171847%_ (let () (declare (not safe)) - (##cdr _%e172798172827%_)))) + (##cdr _%e171813171842%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd172797172830%_)) + _%hd171812171845%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd172797172830%_)) + _%hd171812171845%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172796172832%_)) - (let ((_%e172801172835%_ + _%tl171811171847%_)) + (let ((_%e171816171850%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl172796172832%_)))) - (let ((_%hd172800172838%_ - (let () (declare (not safe)) (##car _%e172801172835%_))) - (_%tl172799172840%_ + (gx#stx-e _%tl171811171847%_)))) + (let ((_%hd171815171853%_ + (let () (declare (not safe)) (##car _%e171816171850%_))) + (_%tl171814171855%_ (let () (declare (not safe)) - (##cdr _%e172801172835%_)))) + (##cdr _%e171816171850%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172799172840%_)) - ((lambda (_%L172843%_) - (if (and (let ((__tmp187178 + (gx#stx-null? _%tl171814171855%_)) + ((lambda (_%L171858%_) + (if (and (let ((__tmp186110 (let () (declare (not safe)) - (slot-ref__0 _%self172784%_ 'K)))) + (slot-ref__0 _%self171799%_ 'K)))) (declare (not safe)) (gx#free-identifier=? - _%L172843%_ - __tmp187178)) - (let ((__tmp187179 - (let () + _%L171858%_ + __tmp186110)) + (pair? (let () (declare (not safe)) (slot-ref__0 - _%self172784%_ + _%self171799%_ 'vars)))) - (declare (not safe)) - (pair? __tmp187179))) - (let ((__tmp187180 + (let ((__tmp186111 (cons '%#let-values (cons (reverse (let () (declare (not safe)) (slot-ref__0 - _%self172784%_ + _%self171799%_ 'vars))) - (cons _%stx172785%_ '()))))) + (cons _%stx171800%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp187180 - _%stx172785%_)) - _%stx172785%_)) - _%hd172800172838%_) - (let () - (declare (not safe)) - (_%g172787172806%_ _%g172788172809%_))))) - (let () - (declare (not safe)) - (_%g172787172806%_ _%g172788172809%_))) + __tmp186111 + _%stx171800%_)) + _%stx171800%_)) + _%hd171815171853%_) + (_%g171802171821%_ _%g171803171824%_)))) + (_%g171802171821%_ _%g171803171824%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g172787172806%_ - _%g172788172809%_))) - (let () - (declare (not safe)) - (_%g172787172806%_ - _%g172788172809%_))))) - (let () - (declare (not safe)) - (_%g172787172806%_ - _%g172788172809%_))))) - (let () - (declare (not safe)) - (_%g172787172806%_ _%g172788172809%_))))) - (let () - (declare (not safe)) - (_%g172787172806%_ _%g172788172809%_)))))) - (declare (not safe)) - (_%g172786172859%_ _%stx172785%_)))) + (_%g171802171821%_ + _%g171803171824%_)) + (_%g171802171821%_ + _%g171803171824%_)))) + (_%g171802171821%_ _%g171803171824%_)))) + (_%g171802171821%_ _%g171803171824%_)))) + (_%g171802171821%_ _%g171803171824%_))))) + (_%g171801171874%_ _%stx171800%_)))) (define gxc#push-match-vars-stop - (lambda (_%self172781%_ _%stx172782%_) - (if (let ((__tmp187181 - (let () + (lambda (_%self171796%_ _%stx171797%_) + (if (null? (let () (declare (not safe)) - (slot-ref__0 _%self172781%_ 'vars)))) - (declare (not safe)) - (null? __tmp187181)) - _%stx172782%_ - (let ((__tmp187182 + (slot-ref__0 _%self171796%_ 'vars))) + _%stx171797%_ + (let ((__tmp186112 (cons '%#let-values (cons (reverse (let () (declare (not safe)) - (slot-ref__0 _%self172781%_ 'vars))) - (cons _%stx172782%_ '()))))) + (slot-ref__0 _%self171796%_ 'vars))) + (cons _%stx171797%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp187182 _%stx172782%_))))))) + (gxc#xform-wrap-source __tmp186112 _%stx171797%_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~1.scm b/src/bootstrap/gerbil/compiler/optimize-ann~1.scm index abffcd523..a22ac014b 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]#_g187184_| + (define |gxc[1]#_g186114_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187186_| + (define |gxc[1]#_g186116_| (##structure gx#syntax-quote::t '::optimize-annotated::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187188_| + (define |gxc[1]#_g186118_| (##structure gx#syntax-quote::t 'make-::optimize-annotated #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187190_| + (define |gxc[1]#_g186120_| (##structure gx#syntax-quote::t '::optimize-annotated? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187192_| + (define |gxc[1]#_g186122_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187194_| + (define |gxc[1]#_g186124_| (##structure gx#syntax-quote::t '::generate-runtime-repr::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187196_| + (define |gxc[1]#_g186126_| (##structure gx#syntax-quote::t 'make-::generate-runtime-repr #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187198_| + (define |gxc[1]#_g186128_| (##structure gx#syntax-quote::t '::generate-runtime-repr? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187200_| + (define |gxc[1]#_g186130_| (##structure gx#syntax-quote::t '::push-match-vars::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187202_| + (define |gxc[1]#_g186132_| (##structure gx#syntax-quote::t 'make-::push-match-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187204_| + (define |gxc[1]#_g186134_| (##structure gx#syntax-quote::t '::push-match-vars? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187206_| + (define |gxc[1]#_g186136_| (##structure gx#syntax-quote::t '::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187207_| + (define |gxc[1]#_g186137_| (##structure gx#syntax-quote::t '::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187209_| + (define |gxc[1]#_g186139_| (##structure gx#syntax-quote::t '::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187210_| + (define |gxc[1]#_g186140_| (##structure gx#syntax-quote::t '::push-match-vars-K-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187212_| + (define |gxc[1]#_g186142_| (##structure gx#syntax-quote::t '&::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187213_| + (define |gxc[1]#_g186143_| (##structure gx#syntax-quote::t '&::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187215_| + (define |gxc[1]#_g186145_| (##structure gx#syntax-quote::t '&::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g187216_| + (define |gxc[1]#_g186146_| (##structure gx#syntax-quote::t '&::push-match-vars-K-set! @@ -135,7 +135,7 @@ '())) (begin (define |gxc[:0:]#::optimize-annotated| - (let ((__obj186980 + (let ((__obj185995 (let () (declare (not safe)) (##structure @@ -164,7 +164,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186980 + __obj185995 'gxc#::optimize-annotated::t '1 '#f @@ -172,65 +172,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186980 + __obj185995 '::optimize-annotated '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186980 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj185995 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186980 '() '6 '#f '#f)) - (let ((__tmp187183 (cons |gxc[1]#_g187184_| '()))) + (##unchecked-structure-set! __obj185995 '() '6 '#f '#f)) + (let ((__tmp186113 (cons |gxc[1]#_g186114_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj186980 __tmp187183 '3 '#f '#f)) + (##unchecked-structure-set! __obj185995 __tmp186113 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186980 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj185995 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186980 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj185995 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186980 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj185995 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186980 '#f '11 '#f '#f)) - (let ((__tmp187185 |gxc[1]#_g187186_|)) + (##unchecked-structure-set! __obj185995 '#f '11 '#f '#f)) + (let ((__tmp186115 |gxc[1]#_g186116_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186980 __tmp187185 '12 '#f '#f)) - (let ((__tmp187187 |gxc[1]#_g187188_|)) + (##unchecked-structure-set! __obj185995 __tmp186115 '12 '#f '#f)) + (let ((__tmp186117 |gxc[1]#_g186118_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186980 __tmp187187 '13 '#f '#f)) - (let ((__tmp187189 |gxc[1]#_g187190_|)) + (##unchecked-structure-set! __obj185995 __tmp186117 '13 '#f '#f)) + (let ((__tmp186119 |gxc[1]#_g186120_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186980 __tmp187189 '14 '#f '#f)) + (##unchecked-structure-set! __obj185995 __tmp186119 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186980 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj185995 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186980 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj185995 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186980 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj185995 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186980 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj185995 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186980 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj185995 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186980 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj185995 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186980 '() '20 '#f '#f)) - __obj186980)) + (##unchecked-structure-set! __obj185995 '() '20 '#f '#f)) + __obj185995)) (define |gxc[:0:]#::generate-runtime-repr| - (let ((__obj186982 + (let ((__obj185997 (let () (declare (not safe)) (##structure @@ -259,7 +259,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186982 + __obj185997 'gxc#::generate-runtime-repr::t '1 '#f @@ -267,65 +267,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186982 + __obj185997 '::generate-runtime-repr '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186982 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj185997 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186982 '() '6 '#f '#f)) - (let ((__tmp187191 (cons |gxc[1]#_g187192_| '()))) + (##unchecked-structure-set! __obj185997 '() '6 '#f '#f)) + (let ((__tmp186121 (cons |gxc[1]#_g186122_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj186982 __tmp187191 '3 '#f '#f)) + (##unchecked-structure-set! __obj185997 __tmp186121 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186982 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj185997 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186982 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj185997 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186982 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj185997 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186982 '#f '11 '#f '#f)) - (let ((__tmp187193 |gxc[1]#_g187194_|)) + (##unchecked-structure-set! __obj185997 '#f '11 '#f '#f)) + (let ((__tmp186123 |gxc[1]#_g186124_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186982 __tmp187193 '12 '#f '#f)) - (let ((__tmp187195 |gxc[1]#_g187196_|)) + (##unchecked-structure-set! __obj185997 __tmp186123 '12 '#f '#f)) + (let ((__tmp186125 |gxc[1]#_g186126_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186982 __tmp187195 '13 '#f '#f)) - (let ((__tmp187197 |gxc[1]#_g187198_|)) + (##unchecked-structure-set! __obj185997 __tmp186125 '13 '#f '#f)) + (let ((__tmp186127 |gxc[1]#_g186128_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186982 __tmp187197 '14 '#f '#f)) + (##unchecked-structure-set! __obj185997 __tmp186127 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186982 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj185997 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186982 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj185997 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186982 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj185997 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186982 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj185997 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186982 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj185997 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186982 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj185997 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186982 '() '20 '#f '#f)) - __obj186982)) + (##unchecked-structure-set! __obj185997 '() '20 '#f '#f)) + __obj185997)) (define |gxc[:0:]#::push-match-vars| - (let ((__obj186984 + (let ((__obj185999 (let () (declare (not safe)) (##structure @@ -354,7 +354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186984 + __obj185999 'gxc#::push-match-vars::t '1 '#f @@ -362,68 +362,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186984 + __obj185999 '::push-match-vars '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186984 '(vars K) '4 '#f '#f)) + (##unchecked-structure-set! __obj185999 '(vars K) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186984 '(vars K) '6 '#f '#f)) + (##unchecked-structure-set! __obj185999 '(vars K) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186984 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj185999 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186984 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj185999 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186984 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj185999 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186984 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj185999 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186984 '#f '11 '#f '#f)) - (let ((__tmp187199 |gxc[1]#_g187200_|)) + (##unchecked-structure-set! __obj185999 '#f '11 '#f '#f)) + (let ((__tmp186129 |gxc[1]#_g186130_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186984 __tmp187199 '12 '#f '#f)) - (let ((__tmp187201 |gxc[1]#_g187202_|)) + (##unchecked-structure-set! __obj185999 __tmp186129 '12 '#f '#f)) + (let ((__tmp186131 |gxc[1]#_g186132_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186984 __tmp187201 '13 '#f '#f)) - (let ((__tmp187203 |gxc[1]#_g187204_|)) + (##unchecked-structure-set! __obj185999 __tmp186131 '13 '#f '#f)) + (let ((__tmp186133 |gxc[1]#_g186134_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186984 __tmp187203 '14 '#f '#f)) - (let ((__tmp187205 - (cons (cons 'vars |gxc[1]#_g187206_|) - (cons (cons 'K |gxc[1]#_g187207_|) '())))) + (##unchecked-structure-set! __obj185999 __tmp186133 '14 '#f '#f)) + (let ((__tmp186135 + (cons (cons 'vars |gxc[1]#_g186136_|) + (cons (cons 'K |gxc[1]#_g186137_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj186984 __tmp187205 '15 '#f '#f)) - (let ((__tmp187208 - (cons (cons 'vars |gxc[1]#_g187209_|) - (cons (cons 'K |gxc[1]#_g187210_|) '())))) + (##unchecked-structure-set! __obj185999 __tmp186135 '15 '#f '#f)) + (let ((__tmp186138 + (cons (cons 'vars |gxc[1]#_g186139_|) + (cons (cons 'K |gxc[1]#_g186140_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj186984 __tmp187208 '16 '#f '#f)) - (let ((__tmp187211 - (cons (cons 'vars |gxc[1]#_g187212_|) - (cons (cons 'K |gxc[1]#_g187213_|) '())))) + (##unchecked-structure-set! __obj185999 __tmp186138 '16 '#f '#f)) + (let ((__tmp186141 + (cons (cons 'vars |gxc[1]#_g186142_|) + (cons (cons 'K |gxc[1]#_g186143_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj186984 __tmp187211 '17 '#f '#f)) - (let ((__tmp187214 - (cons (cons 'vars |gxc[1]#_g187215_|) - (cons (cons 'K |gxc[1]#_g187216_|) '())))) + (##unchecked-structure-set! __obj185999 __tmp186141 '17 '#f '#f)) + (let ((__tmp186144 + (cons (cons 'vars |gxc[1]#_g186145_|) + (cons (cons 'K |gxc[1]#_g186146_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj186984 __tmp187214 '18 '#f '#f)) + (##unchecked-structure-set! __obj185999 __tmp186144 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186984 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj185999 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186984 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj185999 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186984 '() '20 '#f '#f)) - __obj186984)))) + (##unchecked-structure-set! __obj185999 '() '20 '#f '#f)) + __obj185999)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base.ssi b/src/bootstrap/gerbil/compiler/optimize-base.ssi index 478effbf4..a04c21e33 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base.ssi +++ b/src/bootstrap/gerbil/compiler/optimize-base.ssi @@ -82,22 +82,6 @@ namespace: gxc (%#define-runtime &!alias-id gxc#&!alias-id) (%#define-runtime &!alias-id-set! gxc#&!alias-id-set!) (%#define-syntax !alias |gxc[:0:]#!alias|) - (%#define-runtime !procedure::t gxc#!procedure::t) - (%#define-runtime !procedure? gxc#!procedure?) - (%#define-runtime make-!procedure gxc#make-!procedure) - (%#define-runtime !procedure-signature gxc#!procedure-signature) - (%#define-runtime !procedure-id gxc#!procedure-id) - (%#define-runtime - !procedure-signature-set! - gxc#!procedure-signature-set!) - (%#define-runtime !procedure-id-set! gxc#!procedure-id-set!) - (%#define-runtime &!procedure-signature gxc#&!procedure-signature) - (%#define-runtime &!procedure-id gxc#&!procedure-id) - (%#define-runtime - &!procedure-signature-set! - gxc#&!procedure-signature-set!) - (%#define-runtime &!procedure-id-set! gxc#&!procedure-id-set!) - (%#define-syntax !procedure |gxc[:0:]#!procedure|) (%#define-runtime !signature::t gxc#!signature::t) (%#define-runtime !signature? gxc#!signature?) (%#define-runtime make-!signature gxc#make-!signature) @@ -105,6 +89,7 @@ namespace: gxc (%#define-runtime !signature-effect gxc#!signature-effect) (%#define-runtime !signature-arguments gxc#!signature-arguments) (%#define-runtime !signature-unchecked gxc#!signature-unchecked) + (%#define-runtime !signature-origin gxc#!signature-origin) (%#define-runtime !signature-return-set! gxc#!signature-return-set!) (%#define-runtime !signature-effect-set! gxc#!signature-effect-set!) (%#define-runtime @@ -113,10 +98,12 @@ namespace: gxc (%#define-runtime !signature-unchecked-set! gxc#!signature-unchecked-set!) + (%#define-runtime !signature-origin-set! gxc#!signature-origin-set!) (%#define-runtime &!signature-return gxc#&!signature-return) (%#define-runtime &!signature-effect gxc#&!signature-effect) (%#define-runtime &!signature-arguments gxc#&!signature-arguments) (%#define-runtime &!signature-unchecked gxc#&!signature-unchecked) + (%#define-runtime &!signature-origin gxc#&!signature-origin) (%#define-runtime &!signature-return-set! gxc#&!signature-return-set!) (%#define-runtime &!signature-effect-set! gxc#&!signature-effect-set!) (%#define-runtime @@ -125,35 +112,31 @@ namespace: gxc (%#define-runtime &!signature-unchecked-set! gxc#&!signature-unchecked-set!) + (%#define-runtime &!signature-origin-set! gxc#&!signature-origin-set!) (%#define-syntax !signature |gxc[:0:]#!signature|) - (%#define-runtime !primitive-predicate::t gxc#!primitive-predicate::t) - (%#define-runtime !primitive-predicate? gxc#!primitive-predicate?) - (%#define-runtime - make-!primitive-predicate - gxc#make-!primitive-predicate) - (%#define-runtime - !primitive-predicate-signature - gxc#!primitive-predicate-signature) - (%#define-runtime !primitive-predicate-id gxc#!primitive-predicate-id) - (%#define-runtime - !primitive-predicate-signature-set! - gxc#!primitive-predicate-signature-set!) - (%#define-runtime - !primitive-predicate-id-set! - gxc#!primitive-predicate-id-set!) + (%#define-runtime !procedure::t gxc#!procedure::t) + (%#define-runtime !procedure? gxc#!procedure?) + (%#define-runtime !procedure-signature gxc#!procedure-signature) + (%#define-runtime !procedure-id gxc#!procedure-id) (%#define-runtime - &!primitive-predicate-signature - gxc#&!primitive-predicate-signature) + !procedure-unchecked-signature-set! + gxc#!procedure-unchecked-signature-set!) + (%#define-runtime !procedure-id-set! gxc#!procedure-id-set!) + (%#define-runtime &!procedure-signature gxc#&!procedure-signature) + (%#define-runtime &!procedure-id gxc#&!procedure-id) (%#define-runtime - &!primitive-predicate-id - gxc#&!primitive-predicate-id) + &!procedure-unchecked-signature-set! + gxc#&!procedure-unchecked-signature-set!) + (%#define-runtime &!procedure-id-set! gxc#&!procedure-id-set!) + (%#define-syntax !procedure |gxc[:0:]#!procedure|) + (%#define-runtime make-!procedure gxc#make-!procedure) + (%#define-runtime __make-!procedure gxc#__make-!procedure) (%#define-runtime - &!primitive-predicate-signature-set! - gxc#&!primitive-predicate-signature-set!) + !procedure-signature-set! + gxc#!procedure-signature-set!) (%#define-runtime - &!primitive-predicate-id-set! - gxc#&!primitive-predicate-id-set!) - (%#define-syntax !primitive-predicate |gxc[:0:]#!primitive-predicate|) + __!procedure-signature-set! + gxc#__!procedure-signature-set!) (%#define-runtime !class-meta::t gxc#!class-meta::t) (%#define-runtime !class-meta? gxc#!class-meta?) (%#define-runtime make-!class-meta gxc#make-!class-meta) @@ -448,6 +431,34 @@ namespace: gxc (%#define-runtime !primitive? gxc#!primitive?) (%#define-runtime make-!primitive gxc#make-!primitive) (%#define-syntax !primitive |gxc[:0:]#!primitive|) + (%#define-runtime !primitive-predicate::t gxc#!primitive-predicate::t) + (%#define-runtime !primitive-predicate? gxc#!primitive-predicate?) + (%#define-runtime + make-!primitive-predicate + gxc#make-!primitive-predicate) + (%#define-runtime + !primitive-predicate-signature + gxc#!primitive-predicate-signature) + (%#define-runtime !primitive-predicate-id gxc#!primitive-predicate-id) + (%#define-runtime + !primitive-predicate-signature-set! + gxc#!primitive-predicate-signature-set!) + (%#define-runtime + !primitive-predicate-id-set! + gxc#!primitive-predicate-id-set!) + (%#define-runtime + &!primitive-predicate-signature + gxc#&!primitive-predicate-signature) + (%#define-runtime + &!primitive-predicate-id + gxc#&!primitive-predicate-id) + (%#define-runtime + &!primitive-predicate-signature-set! + gxc#&!primitive-predicate-signature-set!) + (%#define-runtime + &!primitive-predicate-id-set! + gxc#&!primitive-predicate-id-set!) + (%#define-syntax !primitive-predicate |gxc[:0:]#!primitive-predicate|) (%#define-runtime !primitive-lambda::t gxc#!primitive-lambda::t) (%#define-runtime !primitive-lambda? gxc#!primitive-lambda?) (%#define-runtime make-!primitive-lambda gxc#make-!primitive-lambda) @@ -609,6 +620,7 @@ namespace: gxc (%#define-runtime !type-subtype? gxc#!type-subtype?) (%#define-runtime !class-subclass? gxc#!class-subclass?) (%#define-runtime !interface-instance? gxc#!interface-instance?) + (%#define-runtime !procedure-origin gxc#!procedure-origin) (%#begin (%#define-runtime optimizer-declare-type!__% gxc#optimizer-declare-type!__%) diff --git a/src/bootstrap/gerbil/compiler/optimize-base.ssxi.ss b/src/bootstrap/gerbil/compiler/optimize-base.ssxi.ss index 147217a7c..d74d45f1e 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/optimize-base.ssxi.ss @@ -88,7 +88,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-class gxc#!type::t (@class gxc#!type::t () (object::t t::t) (id) (id) #f #t #f #f #f #f)) @@ -145,47 +154,13 @@ package: gerbil/compiler (declare-type gxc#!alias-id-set! (@mutator gxc#!alias::t id #t)) (declare-type gxc#&!alias-id (@accessor gxc#!alias::t id #f)) (declare-type gxc#&!alias-id-set! (@mutator gxc#!alias::t id #f)) - (declare-class - gxc#!procedure::t - (@class gxc#!procedure::t - (gxc#!type::t) - (gxc#!type::t object::t t::t) - (signature) - (id signature) - #f - #t - #f - #f - #f - #f)) - (declare-type - gxc#!procedure::t - (optimizer-resolve-class '(typedecl gxc#!procedure::t) 'class::t)) - (declare-type gxc#!procedure? (@predicate gxc#!procedure::t)) - (declare-type gxc#make-!procedure (@constructor gxc#!procedure::t)) - (declare-type - gxc#!procedure-signature - (@accessor gxc#!procedure::t signature #t)) - (declare-type gxc#!procedure-id (@accessor gxc#!procedure::t id #t)) - (declare-type - gxc#!procedure-signature-set! - (@mutator gxc#!procedure::t signature #t)) - (declare-type gxc#!procedure-id-set! (@mutator gxc#!procedure::t id #t)) - (declare-type - gxc#&!procedure-signature - (@accessor gxc#!procedure::t signature #f)) - (declare-type gxc#&!procedure-id (@accessor gxc#!procedure::t id #f)) - (declare-type - gxc#&!procedure-signature-set! - (@mutator gxc#!procedure::t signature #f)) - (declare-type gxc#&!procedure-id-set! (@mutator gxc#!procedure::t id #f)) (declare-class gxc#!signature::t (@class gxc#!signature::t () (object::t t::t) - (return effect arguments unchecked) - (return effect arguments unchecked) + (return effect arguments unchecked origin) + (return effect arguments unchecked origin) #f #f #t @@ -205,6 +180,7 @@ package: gerbil/compiler (declare-type gxc#!signature-unchecked (@accessor gxc#!signature::t unchecked #t)) + (declare-type gxc#!signature-origin (@accessor gxc#!signature::t origin #t)) (declare-type gxc#!signature-return-set! (@mutator gxc#!signature::t return #t)) @@ -217,6 +193,9 @@ package: gerbil/compiler (declare-type gxc#!signature-unchecked-set! (@mutator gxc#!signature::t unchecked #t)) + (declare-type + gxc#!signature-origin-set! + (@mutator gxc#!signature::t origin #t)) (declare-type gxc#&!signature-return (@accessor gxc#!signature::t return #f)) (declare-type gxc#&!signature-effect (@accessor gxc#!signature::t effect #f)) (declare-type @@ -225,6 +204,7 @@ package: gerbil/compiler (declare-type gxc#&!signature-unchecked (@accessor gxc#!signature::t unchecked #f)) + (declare-type gxc#&!signature-origin (@accessor gxc#!signature::t origin #f)) (declare-type gxc#&!signature-return-set! (@mutator gxc#!signature::t return #f)) @@ -237,52 +217,102 @@ package: gerbil/compiler (declare-type gxc#&!signature-unchecked-set! (@mutator gxc#!signature::t unchecked #f)) + (declare-type + gxc#&!signature-origin-set! + (@mutator gxc#!signature::t origin #f)) (declare-class - gxc#!primitive-predicate::t - (@class gxc#!primitive-predicate::t - (gxc#!procedure::t) - (gxc#!procedure::t gxc#!type::t object::t t::t) - () + gxc#!procedure::t + (@class gxc#!procedure::t + (gxc#!type::t) + (gxc#!type::t object::t t::t) + (signature) (id signature) - :init! + #f #t #f #f #f - ((:init! . gxc#!primitive-predicate:::init!)))) - (declare-type - gxc#!primitive-predicate::t - (optimizer-resolve-class '(typedecl gxc#!primitive-predicate::t) 'class::t)) - (declare-type - gxc#!primitive-predicate? - (@predicate gxc#!primitive-predicate::t)) + #f)) (declare-type - gxc#make-!primitive-predicate - (@constructor gxc#!primitive-predicate::t)) + gxc#!procedure::t + (optimizer-resolve-class '(typedecl gxc#!procedure::t) 'class::t)) + (declare-type gxc#!procedure? (@predicate gxc#!procedure::t)) (declare-type - gxc#!primitive-predicate-signature - (@accessor gxc#!primitive-predicate::t signature #t)) + gxc#!procedure-signature + (@accessor gxc#!procedure::t signature #t)) + (declare-type gxc#!procedure-id (@accessor gxc#!procedure::t id #t)) (declare-type - gxc#!primitive-predicate-id - (@accessor gxc#!primitive-predicate::t id #t)) + gxc#!procedure-unchecked-signature-set! + (@mutator gxc#!procedure::t signature #t)) + (declare-type gxc#!procedure-id-set! (@mutator gxc#!procedure::t id #t)) (declare-type - gxc#!primitive-predicate-signature-set! - (@mutator gxc#!primitive-predicate::t signature #t)) + gxc#&!procedure-signature + (@accessor gxc#!procedure::t signature #f)) + (declare-type gxc#&!procedure-id (@accessor gxc#!procedure::t id #f)) (declare-type - gxc#!primitive-predicate-id-set! - (@mutator gxc#!primitive-predicate::t id #t)) + gxc#&!procedure-unchecked-signature-set! + (@mutator gxc#!procedure::t signature #f)) + (declare-type gxc#&!procedure-id-set! (@mutator gxc#!procedure::t id #f)) (declare-type - gxc#&!primitive-predicate-signature - (@accessor gxc#!primitive-predicate::t signature #f)) + gxc#make-!procedure + (@lambda 2 + #f + signature: + (return: + gxc#!procedure::t + effect: + #f + arguments: + (t::t #f) + unchecked: + gxc#__make-!procedure + origin: + gerbil/compiler/optimize-base))) (declare-type - gxc#&!primitive-predicate-id - (@accessor gxc#!primitive-predicate::t id #f)) + gxc#__make-!procedure + (@lambda 2 + #f + signature: + (return: + gxc#!procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type - gxc#&!primitive-predicate-signature-set! - (@mutator gxc#!primitive-predicate::t signature #f)) + gxc#!procedure-signature-set! + (@lambda 2 + #f + signature: + (return: + void::t + effect: + #f + arguments: + (gxc#!procedure::t #f) + unchecked: + gxc#__!procedure-signature-set! + origin: + gerbil/compiler/optimize-base))) (declare-type - gxc#&!primitive-predicate-id-set! - (@mutator gxc#!primitive-predicate::t id #f)) + gxc#__!procedure-signature-set! + (@lambda 2 + #f + signature: + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-class gxc#!class-meta::t (@class gxc#!class-meta::t @@ -844,6 +874,52 @@ package: gerbil/compiler (optimizer-resolve-class '(typedecl gxc#!primitive::t) 'class::t)) (declare-type gxc#!primitive? (@predicate gxc#!primitive::t)) (declare-type gxc#make-!primitive (@constructor gxc#!primitive::t)) + (declare-class + gxc#!primitive-predicate::t + (@class gxc#!primitive-predicate::t + (gxc#!primitive::t gxc#!procedure::t) + (gxc#!primitive::t gxc#!procedure::t gxc#!type::t object::t t::t) + () + (id signature) + :init! + #t + #f + #f + #f + ((:init! . gxc#!primitive-predicate:::init!)))) + (declare-type + gxc#!primitive-predicate::t + (optimizer-resolve-class '(typedecl gxc#!primitive-predicate::t) 'class::t)) + (declare-type + gxc#!primitive-predicate? + (@predicate gxc#!primitive-predicate::t)) + (declare-type + gxc#make-!primitive-predicate + (@constructor gxc#!primitive-predicate::t)) + (declare-type + gxc#!primitive-predicate-signature + (@accessor gxc#!primitive-predicate::t signature #t)) + (declare-type + gxc#!primitive-predicate-id + (@accessor gxc#!primitive-predicate::t id #t)) + (declare-type + gxc#!primitive-predicate-signature-set! + (@mutator gxc#!primitive-predicate::t signature #t)) + (declare-type + gxc#!primitive-predicate-id-set! + (@mutator gxc#!primitive-predicate::t id #t)) + (declare-type + gxc#&!primitive-predicate-signature + (@accessor gxc#!primitive-predicate::t signature #f)) + (declare-type + gxc#&!primitive-predicate-id + (@accessor gxc#!primitive-predicate::t id #f)) + (declare-type + gxc#&!primitive-predicate-signature-set! + (@mutator gxc#!primitive-predicate::t signature #f)) + (declare-type + gxc#&!primitive-predicate-id-set! + (@mutator gxc#!primitive-predicate::t id #f)) (declare-class gxc#!primitive-lambda::t (@class gxc#!primitive-lambda::t @@ -857,7 +933,7 @@ package: gerbil/compiler () (id signature arity dispatch inline inline-typedecl) :init! - #f + #t #f #f #f @@ -954,7 +1030,7 @@ package: gerbil/compiler () (id signature clauses) :init! - #f + #t #f #f #f @@ -1011,13 +1087,31 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!class-meta:::init! (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!class:::init!__0 (@lambda 9 @@ -1030,7 +1124,9 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t t::t t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!class:::init!__1 (@lambda 12 @@ -1043,44 +1139,128 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t t::t t::t t::t t::t t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!class:::init! (@case-lambda (9 gxc#!class:::init!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base)) (12 gxc#!class:::init!__1 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base)))) (declare-type gxc#compute-class-fields (@lambda 4 #f signature: - (return: list::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#!class-slot->field-offset (@lambda 2 #f)) - (declare-type gxc#!class-slot-find-struct (@lambda 2 #f)) + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) + (declare-type + gxc#!class-slot->field-offset + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) + (declare-type + gxc#!class-slot-find-struct + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!class-struct-slot? (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!predicate:::init! (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!constructor:::init! (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!accessor:::init! (@lambda 4 @@ -1093,7 +1273,9 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!mutator:::init! (@lambda 4 @@ -1106,7 +1288,9 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!lambda:::init!__% (@lambda 5 @@ -1119,7 +1303,9 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!lambda:::init!__@ (@kw-lambda-dispatch (signature:) gxc#!lambda:::init!__%)) @@ -1138,7 +1324,9 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!case-lambda:::init!__@ (@kw-lambda-dispatch (signature:) gxc#!case-lambda:::init!__%)) @@ -1157,7 +1345,9 @@ package: gerbil/compiler arguments: (t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!kw-lambda-primary:::init! (@lambda 3 @@ -1170,7 +1360,9 @@ package: gerbil/compiler arguments: (t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!primitive-lambda:::init! (@kw-lambda (signature:) gxc#!lambda:::init!__@)) @@ -1182,110 +1374,386 @@ package: gerbil/compiler (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) - (declare-type gxc#!class-method-table (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) + (declare-type + gxc#!class-method-table + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!class-lookup-method (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#!type-subtype? (@lambda 2 #f)) - (declare-type gxc#!class-subclass? (@lambda 2 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) + (declare-type + gxc#!type-subtype? + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) + (declare-type + gxc#!class-subclass? + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#!interface-instance? (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) + (declare-type + gxc#!procedure-origin + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#optimizer-declare-type!__% (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#optimizer-declare-type!__0 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#optimizer-declare-type! (@case-lambda (2 gxc#optimizer-declare-type!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base)) (3 gxc#optimizer-declare-type!__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base)))) (declare-type gxc#optimizer-declare-class! (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#optimizer-declare-builtin-class! (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#optimizer-clear-type! (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#optimizer-declare-method!__% (@lambda 4 #f)) - (declare-type gxc#optimizer-declare-method!__0 (@lambda 3 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) + (declare-type + gxc#optimizer-declare-method!__% + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) + (declare-type + gxc#optimizer-declare-method!__0 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#optimizer-declare-method! (@case-lambda - (3 gxc#optimizer-declare-method!__0) - (4 gxc#optimizer-declare-method!__%))) + (3 + gxc#optimizer-declare-method!__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base)) + (4 + gxc#optimizer-declare-method!__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base)))) (declare-type gxc#optimizer-lookup-type (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#optimizer-resolve-type (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) + (declare-type + gxc#optimizer-resolve-type + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#optimizer-lookup-class (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#optimizer-resolve-class (@lambda 2 #f signature: - (return: gxc#!class::t effect: #f arguments: #f unchecked: #f))) + (return: + gxc#!class::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#optimizer-lookup-class-name (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#optimizer-lookup-method (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#optimizer-top-level-method! (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base))) (declare-type gxc#optimizer-top-level-method? (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-base)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base~0.scm b/src/bootstrap/gerbil/compiler/optimize-base~0.scm index 11d8d6d74..0f80e45c1 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base~0.scm @@ -1,27 +1,27 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-base::timestamp 1712533291) + (define gerbil/compiler/optimize-base::timestamp 1712573432) (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#optimizer-info::t - (let ((__tmp148758 (list)) (__tmp148757 (cons (cons 'struct: '#t) '()))) + (let ((__tmp147861 (list)) (__tmp147860 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp148758 + __tmp147861 '(type classes ssxi methods) - __tmp148757 + __tmp147860 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (__make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _%$args148729%_ - (apply make-instance gxc#optimizer-info::t _%$args148729%_))) + (lambda _%$args147832%_ + (apply make-instance gxc#optimizer-info::t _%$args147832%_))) (define gxc#optimizer-info-type (let () (declare (not safe)) @@ -87,61 +87,61 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#optimizer-info::t 'methods))) (define gxc#optimizer-info:::init! - (lambda (_%self148716%_) - (let ((_%self148719%_ _%self148716%_)) - (if (let ((__tmp148759 + (lambda (_%self147819%_) + (let ((_%self147822%_ _%self147819%_)) + (if (let ((__tmp147862 (let () (declare (not safe)) - (##structure-length _%self148719%_)))) + (##structure-length _%self147822%_)))) (declare (not safe)) - (##fx< '4 __tmp148759)) + (##fx< '4 __tmp147862)) (begin - (let ((__tmp148760 + (let ((__tmp147863 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self148719%_ - __tmp148760 + _%self147822%_ + __tmp147863 '1 '#f '#f)) - (let ((__tmp148761 + (let ((__tmp147864 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self148719%_ - __tmp148761 + _%self147822%_ + __tmp147864 '2 '#f '#f)) - (let ((__tmp148762 + (let ((__tmp147865 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self148719%_ - __tmp148762 + _%self147822%_ + __tmp147865 '3 '#f '#f)) - (let ((__tmp148763 + (let ((__tmp147866 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self148719%_ - __tmp148763 + _%self147822%_ + __tmp147866 '4 '#f '#f)) '#!void) - (let ((__tmp148764 + (let ((__tmp147867 (let () (declare (not safe)) - (##vector-length _%self148719%_)))) + (##vector-length _%self147822%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self148719%_ + _%self147822%_ '4 - __tmp148764)))))) + __tmp147867)))))) (let () (declare (not safe)) (__bind-method! @@ -150,22 +150,22 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp148766 (list)) - (__tmp148765 + (let ((__tmp147869 (list)) + (__tmp147868 (cons (cons 'struct: '#t) '((equal: id) (print: id))))) (declare (not safe)) (__make-class-type 'gxc#!type::t '!type - __tmp148766 + __tmp147869 '(id) - __tmp148765 + __tmp147868 '#f))) (define gxc#!type? (let () (declare (not safe)) (__make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _%$args148591%_ - (apply make-instance gxc#!type::t _%$args148591%_))) + (lambda _%$args147694%_ + (apply make-instance gxc#!type::t _%$args147694%_))) (define gxc#!type-id (let () (declare (not safe)) @@ -183,21 +183,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!type::t 'id))) (define gxc#!abort::t - (let ((__tmp148768 (list gxc#!type::t)) - (__tmp148767 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp147871 (list gxc#!type::t)) + (__tmp147870 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!abort::t '!abort - __tmp148768 + __tmp147871 '() - __tmp148767 + __tmp147870 ':init!))) (define gxc#!abort? (let () (declare (not safe)) (__make-class-predicate gxc#!abort::t))) (define gxc#make-!abort - (lambda _%$args148588%_ - (apply make-instance gxc#!abort::t _%$args148588%_))) + (lambda _%$args147691%_ + (apply make-instance gxc#!abort::t _%$args147691%_))) (define gxc#!abort-id (let () (declare (not safe)) @@ -215,21 +215,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!abort::t 'id))) (define gxc#!alias::t - (let ((__tmp148770 (list gxc#!type::t)) - (__tmp148769 (cons (cons 'struct: '#t) '()))) + (let ((__tmp147873 (list gxc#!type::t)) + (__tmp147872 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!alias::t '!alias - __tmp148770 + __tmp147873 '() - __tmp148769 + __tmp147872 '#f))) (define gxc#!alias? (let () (declare (not safe)) (__make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _%$args148585%_ - (apply make-instance gxc#!alias::t _%$args148585%_))) + (lambda _%$args147688%_ + (apply make-instance gxc#!alias::t _%$args147688%_))) (define gxc#!alias-id (let () (declare (not safe)) @@ -246,75 +246,25 @@ (let () (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!alias::t 'id))) - (define gxc#!procedure::t - (let ((__tmp148772 (list gxc#!type::t)) - (__tmp148771 - (cons (cons 'struct: '#t) - '((equal: signature) (print: signature))))) - (declare (not safe)) - (__make-class-type - 'gxc#!procedure::t - '!procedure - __tmp148772 - '(signature) - __tmp148771 - '#f))) - (define gxc#!procedure? - (let () (declare (not safe)) (__make-class-predicate gxc#!procedure::t))) - (define gxc#make-!procedure - (lambda _%$args148582%_ - (apply make-instance gxc#!procedure::t _%$args148582%_))) - (define gxc#!procedure-signature - (let () - (declare (not safe)) - (__make-class-slot-accessor gxc#!procedure::t 'signature))) - (define gxc#!procedure-id - (let () - (declare (not safe)) - (__make-class-slot-accessor gxc#!procedure::t 'id))) - (define gxc#!procedure-signature-set! - (let () - (declare (not safe)) - (__make-class-slot-mutator gxc#!procedure::t 'signature))) - (define gxc#!procedure-id-set! - (let () - (declare (not safe)) - (__make-class-slot-mutator gxc#!procedure::t 'id))) - (define gxc#&!procedure-signature - (let () - (declare (not safe)) - (__make-class-slot-unchecked-accessor gxc#!procedure::t 'signature))) - (define gxc#&!procedure-id - (let () - (declare (not safe)) - (__make-class-slot-unchecked-accessor gxc#!procedure::t 'id))) - (define gxc#&!procedure-signature-set! - (let () - (declare (not safe)) - (__make-class-slot-unchecked-mutator gxc#!procedure::t 'signature))) - (define gxc#&!procedure-id-set! - (let () - (declare (not safe)) - (__make-class-slot-unchecked-mutator gxc#!procedure::t 'id))) (define gxc#!signature::t - (let ((__tmp148774 (list)) - (__tmp148773 + (let ((__tmp147875 (list)) + (__tmp147874 (cons (cons 'final: '#t) - '((equal: return effect arguments unchecked) - (print: return effect arguments unchecked))))) + '((equal: return effect arguments unchecked origin) + (print: return effect arguments unchecked origin))))) (declare (not safe)) (__make-class-type 'gxc#!signature::t '!signature - __tmp148774 - '(return effect arguments unchecked) - __tmp148773 + __tmp147875 + '(return effect arguments unchecked origin) + __tmp147874 '#f))) (define gxc#!signature? (let () (declare (not safe)) (__make-class-predicate gxc#!signature::t))) (define gxc#make-!signature - (lambda _%$args148579%_ - (apply make-instance gxc#!signature::t _%$args148579%_))) + (lambda _%$args147685%_ + (apply make-instance gxc#!signature::t _%$args147685%_))) (define gxc#!signature-return (let () (declare (not safe)) @@ -331,6 +281,10 @@ (let () (declare (not safe)) (__make-class-slot-accessor gxc#!signature::t 'unchecked))) + (define gxc#!signature-origin + (let () + (declare (not safe)) + (__make-class-slot-accessor gxc#!signature::t 'origin))) (define gxc#!signature-return-set! (let () (declare (not safe)) @@ -347,6 +301,10 @@ (let () (declare (not safe)) (__make-class-slot-mutator gxc#!signature::t 'unchecked))) + (define gxc#!signature-origin-set! + (let () + (declare (not safe)) + (__make-class-slot-mutator gxc#!signature::t 'origin))) (define gxc#&!signature-return (let () (declare (not safe)) @@ -363,6 +321,10 @@ (let () (declare (not safe)) (__make-class-slot-unchecked-accessor gxc#!signature::t 'unchecked))) + (define gxc#&!signature-origin + (let () + (declare (not safe)) + (__make-class-slot-unchecked-accessor gxc#!signature::t 'origin))) (define gxc#&!signature-return-set! (let () (declare (not safe)) @@ -379,80 +341,151 @@ (let () (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!signature::t 'unchecked))) - (define gxc#!primitive-predicate::t - (let ((__tmp148776 (list gxc#!procedure::t)) - (__tmp148775 (cons (cons 'struct: '#t) '((equal:))))) - (declare (not safe)) - (__make-class-type - 'gxc#!primitive-predicate::t - '!primitive-predicate - __tmp148776 - '() - __tmp148775 - ':init!))) - (define gxc#!primitive-predicate? + (define gxc#&!signature-origin-set! (let () (declare (not safe)) - (__make-class-predicate gxc#!primitive-predicate::t))) - (define gxc#make-!primitive-predicate - (lambda _%$args148576%_ - (apply make-instance gxc#!primitive-predicate::t _%$args148576%_))) - (define gxc#!primitive-predicate-signature + (__make-class-slot-unchecked-mutator gxc#!signature::t 'origin))) + (define gxc#!procedure::t + (let ((__tmp147877 (list gxc#!type::t)) + (__tmp147876 + (cons (cons 'struct: '#t) + '((equal: signature) (print: signature))))) + (declare (not safe)) + (__make-class-type + 'gxc#!procedure::t + '!procedure + __tmp147877 + '(signature) + __tmp147876 + '#f))) + (define gxc#!procedure? + (let () (declare (not safe)) (__make-class-predicate gxc#!procedure::t))) + (define gxc#!procedure-signature (let () (declare (not safe)) - (__make-class-slot-accessor gxc#!primitive-predicate::t 'signature))) - (define gxc#!primitive-predicate-id + (__make-class-slot-accessor gxc#!procedure::t 'signature))) + (define gxc#!procedure-id (let () (declare (not safe)) - (__make-class-slot-accessor gxc#!primitive-predicate::t 'id))) - (define gxc#!primitive-predicate-signature-set! + (__make-class-slot-accessor gxc#!procedure::t 'id))) + (define gxc#!procedure-unchecked-signature-set! (let () (declare (not safe)) - (__make-class-slot-mutator gxc#!primitive-predicate::t 'signature))) - (define gxc#!primitive-predicate-id-set! + (__make-class-slot-mutator gxc#!procedure::t 'signature))) + (define gxc#!procedure-id-set! (let () (declare (not safe)) - (__make-class-slot-mutator gxc#!primitive-predicate::t 'id))) - (define gxc#&!primitive-predicate-signature + (__make-class-slot-mutator gxc#!procedure::t 'id))) + (define gxc#&!procedure-signature (let () (declare (not safe)) - (__make-class-slot-unchecked-accessor - gxc#!primitive-predicate::t - 'signature))) - (define gxc#&!primitive-predicate-id + (__make-class-slot-unchecked-accessor gxc#!procedure::t 'signature))) + (define gxc#&!procedure-id (let () (declare (not safe)) - (__make-class-slot-unchecked-accessor - gxc#!primitive-predicate::t - 'id))) - (define gxc#&!primitive-predicate-signature-set! + (__make-class-slot-unchecked-accessor gxc#!procedure::t 'id))) + (define gxc#&!procedure-unchecked-signature-set! (let () (declare (not safe)) - (__make-class-slot-unchecked-mutator - gxc#!primitive-predicate::t - 'signature))) - (define gxc#&!primitive-predicate-id-set! + (__make-class-slot-unchecked-mutator gxc#!procedure::t 'signature))) + (define gxc#&!procedure-id-set! (let () (declare (not safe)) - (__make-class-slot-unchecked-mutator gxc#!primitive-predicate::t 'id))) + (__make-class-slot-unchecked-mutator gxc#!procedure::t 'id))) + (define gxc#make-!procedure + (lambda (_%id147664%_ _%signature147665%_) + (if ((lambda (_%$obj147668%_) + (or (not _%$obj147668%_) + (let () + (declare (not safe)) + (##structure-direct-instance-of? + _%$obj147668%_ + 'gxc#!signature::t)))) + _%signature147665%_) + (let ((_%signature147675%_ _%signature147665%_)) + (gxc#__make-!procedure _%id147664%_ _%signature147675%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + 'gerbil/compiler/optimize-base + 'contract: + '(? (or not !signature?)) + 'value: + _%signature147665%_) + '#!void)))) + (define gxc#__make-!procedure + (lambda (_%id147650%_ _%signature147652%_) + (let ((_%signature147655%_ _%signature147652%_)) + (declare (not safe)) + (##structure gxc#!procedure::t _%id147650%_ _%signature147655%_)))) + (define gxc#!procedure-signature-set! + (lambda (_%$obj147619%_ _%signature147620%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%$obj147619%_ 'gxc#!procedure::t)) + (let ((_%$obj147624%_ _%$obj147619%_)) + (if ((lambda (_%$obj147633%_) + (or (not _%$obj147633%_) + (let () + (declare (not safe)) + (##structure-direct-instance-of? + _%$obj147633%_ + 'gxc#!signature::t)))) + _%signature147620%_) + (let ((_%signature147640%_ _%signature147620%_)) + (gxc#__!procedure-signature-set! + _%$obj147624%_ + _%signature147640%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + 'gerbil/compiler/optimize-base + 'contract: + '(? (or not !signature?)) + 'value: + _%signature147620%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + 'gerbil/compiler/optimize-base + 'contract: + '!procedure? + 'value: + _%$obj147619%_) + '#!void)))) + (define gxc#__!procedure-signature-set! + (lambda (_%$obj147596%_ _%signature147598%_) + (let* ((_%$obj147602%_ _%$obj147596%_) + (_%signature147610%_ _%signature147598%_)) + (declare (not safe)) + (##unchecked-structure-set! + _%$obj147602%_ + _%signature147610%_ + '2 + '#f + '#f)))) (define gxc#!class-meta::t - (let ((__tmp148778 (list gxc#!type::t)) - (__tmp148777 (cons (cons 'struct: '#t) '()))) + (let ((__tmp147879 (list gxc#!type::t)) + (__tmp147878 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!class-meta::t '!class-meta - __tmp148778 + __tmp147879 '(class) - __tmp148777 + __tmp147878 ':init!))) (define gxc#!class-meta? (let () (declare (not safe)) (__make-class-predicate gxc#!class-meta::t))) (define gxc#make-!class-meta - (lambda _%$args148573%_ - (apply make-instance gxc#!class-meta::t _%$args148573%_))) + (lambda _%$args147593%_ + (apply make-instance gxc#!class-meta::t _%$args147593%_))) (define gxc#!class-meta-class (let () (declare (not safe)) @@ -486,8 +519,8 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!class-meta::t 'id))) (define gxc#!class::t - (let ((__tmp148780 (list gxc#!type::t)) - (__tmp148779 + (let ((__tmp147881 (list gxc#!type::t)) + (__tmp147880 (cons (cons 'struct: '#t) '((equal: super @@ -505,7 +538,7 @@ (__make-class-type 'gxc#!class::t '!class - __tmp148780 + __tmp147881 '(super precedence-list slots fields @@ -515,13 +548,13 @@ system? metaclass methods) - __tmp148779 + __tmp147880 ':init!))) (define gxc#!class? (let () (declare (not safe)) (__make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _%$args148570%_ - (apply make-instance gxc#!class::t _%$args148570%_))) + (lambda _%$args147590%_ + (apply make-instance gxc#!class::t _%$args147590%_))) (define gxc#!class-super (let () (declare (not safe)) @@ -699,21 +732,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!class::t 'id))) (define gxc#!predicate::t - (let ((__tmp148782 (list gxc#!procedure::t)) - (__tmp148781 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp147883 (list gxc#!procedure::t)) + (__tmp147882 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!predicate::t '!predicate - __tmp148782 + __tmp147883 '() - __tmp148781 + __tmp147882 ':init!))) (define gxc#!predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _%$args148567%_ - (apply make-instance gxc#!predicate::t _%$args148567%_))) + (lambda _%$args147587%_ + (apply make-instance gxc#!predicate::t _%$args147587%_))) (define gxc#!predicate-signature (let () (declare (not safe)) @@ -747,23 +780,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!predicate::t 'id))) (define gxc#!constructor::t - (let ((__tmp148784 (list gxc#!procedure::t)) - (__tmp148783 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp147885 (list gxc#!procedure::t)) + (__tmp147884 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!constructor::t '!constructor - __tmp148784 + __tmp147885 '() - __tmp148783 + __tmp147884 ':init!))) (define gxc#!constructor? (let () (declare (not safe)) (__make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _%$args148564%_ - (apply make-instance gxc#!constructor::t _%$args148564%_))) + (lambda _%$args147584%_ + (apply make-instance gxc#!constructor::t _%$args147584%_))) (define gxc#!constructor-signature (let () (declare (not safe)) @@ -797,21 +830,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!constructor::t 'id))) (define gxc#!accessor::t - (let ((__tmp148786 (list gxc#!procedure::t)) - (__tmp148785 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp147887 (list gxc#!procedure::t)) + (__tmp147886 (cons (cons 'struct: '#t) '((equal: slot checked?))))) (declare (not safe)) (__make-class-type 'gxc#!accessor::t '!accessor - __tmp148786 + __tmp147887 '(slot checked?) - __tmp148785 + __tmp147886 ':init!))) (define gxc#!accessor? (let () (declare (not safe)) (__make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _%$args148561%_ - (apply make-instance gxc#!accessor::t _%$args148561%_))) + (lambda _%$args147581%_ + (apply make-instance gxc#!accessor::t _%$args147581%_))) (define gxc#!accessor-slot (let () (declare (not safe)) @@ -877,21 +910,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!accessor::t 'id))) (define gxc#!mutator::t - (let ((__tmp148788 (list gxc#!procedure::t)) - (__tmp148787 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp147889 (list gxc#!procedure::t)) + (__tmp147888 (cons (cons 'struct: '#t) '((equal: slot checked?))))) (declare (not safe)) (__make-class-type 'gxc#!mutator::t '!mutator - __tmp148788 + __tmp147889 '(slot checked?) - __tmp148787 + __tmp147888 ':init!))) (define gxc#!mutator? (let () (declare (not safe)) (__make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _%$args148558%_ - (apply make-instance gxc#!mutator::t _%$args148558%_))) + (lambda _%$args147578%_ + (apply make-instance gxc#!mutator::t _%$args147578%_))) (define gxc#!mutator-slot (let () (declare (not safe)) @@ -957,21 +990,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!mutator::t 'id))) (define gxc#!interface::t - (let ((__tmp148790 (list gxc#!type::t)) - (__tmp148789 (cons (cons 'struct: '#t) '((equal: methods))))) + (let ((__tmp147891 (list gxc#!type::t)) + (__tmp147890 (cons (cons 'struct: '#t) '((equal: methods))))) (declare (not safe)) (__make-class-type 'gxc#!interface::t '!interface - __tmp148790 + __tmp147891 '(methods) - __tmp148789 + __tmp147890 '#f))) (define gxc#!interface? (let () (declare (not safe)) (__make-class-predicate gxc#!interface::t))) (define gxc#make-!interface - (lambda _%$args148555%_ - (apply make-instance gxc#!interface::t _%$args148555%_))) + (lambda _%$args147575%_ + (apply make-instance gxc#!interface::t _%$args147575%_))) (define gxc#!interface-methods (let () (declare (not safe)) @@ -1005,23 +1038,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!interface::t 'id))) (define gxc#!lambda::t - (let ((__tmp148792 (list gxc#!procedure::t)) - (__tmp148791 + (let ((__tmp147893 (list gxc#!procedure::t)) + (__tmp147892 (cons (cons 'struct: '#t) '((equal: arity dispatch inline inline-typedecl))))) (declare (not safe)) (__make-class-type 'gxc#!lambda::t '!lambda - __tmp148792 + __tmp147893 '(arity dispatch inline inline-typedecl) - __tmp148791 + __tmp147892 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _%$args148552%_ - (apply make-instance gxc#!lambda::t _%$args148552%_))) + (lambda _%$args147572%_ + (apply make-instance gxc#!lambda::t _%$args147572%_))) (define gxc#!lambda-arity (let () (declare (not safe)) @@ -1121,23 +1154,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!lambda::t 'id))) (define gxc#!case-lambda::t - (let ((__tmp148794 (list gxc#!procedure::t)) - (__tmp148793 (cons (cons 'struct: '#t) '((equal: clauses))))) + (let ((__tmp147895 (list gxc#!procedure::t)) + (__tmp147894 (cons (cons 'struct: '#t) '((equal: clauses))))) (declare (not safe)) (__make-class-type 'gxc#!case-lambda::t '!case-lambda - __tmp148794 + __tmp147895 '(clauses) - __tmp148793 + __tmp147894 ':init!))) (define gxc#!case-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _%$args148549%_ - (apply make-instance gxc#!case-lambda::t _%$args148549%_))) + (lambda _%$args147569%_ + (apply make-instance gxc#!case-lambda::t _%$args147569%_))) (define gxc#!case-lambda-clauses (let () (declare (not safe)) @@ -1187,21 +1220,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!case-lambda::t 'id))) (define gxc#!kw-lambda::t - (let ((__tmp148796 (list gxc#!procedure::t)) - (__tmp148795 (cons (cons 'struct: '#t) '()))) + (let ((__tmp147897 (list gxc#!procedure::t)) + (__tmp147896 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda::t '!kw-lambda - __tmp148796 + __tmp147897 '(table dispatch) - __tmp148795 + __tmp147896 ':init!))) (define gxc#!kw-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _%$args148546%_ - (apply make-instance gxc#!kw-lambda::t _%$args148546%_))) + (lambda _%$args147566%_ + (apply make-instance gxc#!kw-lambda::t _%$args147566%_))) (define gxc#!kw-lambda-table (let () (declare (not safe)) @@ -1267,23 +1300,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!kw-lambda::t 'id))) (define gxc#!kw-lambda-primary::t - (let ((__tmp148798 (list gxc#!procedure::t)) - (__tmp148797 (cons (cons 'struct: '#t) '()))) + (let ((__tmp147899 (list gxc#!procedure::t)) + (__tmp147898 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - __tmp148798 + __tmp147899 '(keys main) - __tmp148797 + __tmp147898 ':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 _%$args148543%_ - (apply make-instance gxc#!kw-lambda-primary::t _%$args148543%_))) + (lambda _%$args147563%_ + (apply make-instance gxc#!kw-lambda-primary::t _%$args147563%_))) (define gxc#!kw-lambda-primary-keys (let () (declare (not safe)) @@ -1357,37 +1390,94 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'id))) (define gxc#!primitive::t - (let ((__tmp148799 (list))) + (let ((__tmp147900 (list))) (declare (not safe)) (__make-class-type 'gxc#!primitive::t '!primitive - __tmp148799 + __tmp147900 '() '() '#f))) (define gxc#!primitive? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _%$args148540%_ - (apply make-instance gxc#!primitive::t _%$args148540%_))) + (lambda _%$args147560%_ + (apply make-instance gxc#!primitive::t _%$args147560%_))) + (define gxc#!primitive-predicate::t + (let ((__tmp147902 (list gxc#!primitive::t gxc#!procedure::t)) + (__tmp147901 (cons (cons 'struct: '#t) '((equal:))))) + (declare (not safe)) + (__make-class-type + 'gxc#!primitive-predicate::t + '!primitive-predicate + __tmp147902 + '() + __tmp147901 + ':init!))) + (define gxc#!primitive-predicate? + (let () + (declare (not safe)) + (__make-class-predicate gxc#!primitive-predicate::t))) + (define gxc#make-!primitive-predicate + (lambda _%$args147557%_ + (apply make-instance gxc#!primitive-predicate::t _%$args147557%_))) + (define gxc#!primitive-predicate-signature + (let () + (declare (not safe)) + (__make-class-slot-accessor gxc#!primitive-predicate::t 'signature))) + (define gxc#!primitive-predicate-id + (let () + (declare (not safe)) + (__make-class-slot-accessor gxc#!primitive-predicate::t 'id))) + (define gxc#!primitive-predicate-signature-set! + (let () + (declare (not safe)) + (__make-class-slot-mutator gxc#!primitive-predicate::t 'signature))) + (define gxc#!primitive-predicate-id-set! + (let () + (declare (not safe)) + (__make-class-slot-mutator gxc#!primitive-predicate::t 'id))) + (define gxc#&!primitive-predicate-signature + (let () + (declare (not safe)) + (__make-class-slot-unchecked-accessor + gxc#!primitive-predicate::t + 'signature))) + (define gxc#&!primitive-predicate-id + (let () + (declare (not safe)) + (__make-class-slot-unchecked-accessor + gxc#!primitive-predicate::t + 'id))) + (define gxc#&!primitive-predicate-signature-set! + (let () + (declare (not safe)) + (__make-class-slot-unchecked-mutator + gxc#!primitive-predicate::t + 'signature))) + (define gxc#&!primitive-predicate-id-set! + (let () + (declare (not safe)) + (__make-class-slot-unchecked-mutator gxc#!primitive-predicate::t 'id))) (define gxc#!primitive-lambda::t - (let ((__tmp148800 (list gxc#!primitive::t gxc#!lambda::t))) + (let ((__tmp147904 (list gxc#!primitive::t gxc#!lambda::t)) + (__tmp147903 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp148800 + __tmp147904 '() - '((equal:)) + __tmp147903 ':init!))) (define gxc#!primitive-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _%$args148537%_ - (apply make-instance gxc#!primitive-lambda::t _%$args148537%_))) + (lambda _%$args147554%_ + (apply make-instance gxc#!primitive-lambda::t _%$args147554%_))) (define gxc#!primitive-lambda-arity (let () (declare (not safe)) @@ -1505,22 +1595,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!primitive-lambda::t 'id))) (define gxc#!primitive-case-lambda::t - (let ((__tmp148801 (list gxc#!primitive::t gxc#!case-lambda::t))) + (let ((__tmp147906 (list gxc#!primitive::t gxc#!case-lambda::t)) + (__tmp147905 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp148801 + __tmp147906 '() - '((equal:)) + __tmp147905 ':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 _%$args148534%_ - (apply make-instance gxc#!primitive-case-lambda::t _%$args148534%_))) + (lambda _%$args147551%_ + (apply make-instance gxc#!primitive-case-lambda::t _%$args147551%_))) (define gxc#!primitive-case-lambda-clauses (let () (declare (not safe)) @@ -1582,24 +1673,24 @@ gxc#!primitive-case-lambda::t 'id))) (define gxc#!abort:::init! - (lambda (_%self148521%_) - (let ((_%self148524%_ _%self148521%_)) + (lambda (_%self147538%_) + (let ((_%self147541%_ _%self147538%_)) (declare (not safe)) - (##unchecked-structure-set! _%self148524%_ 'abort '1 '#f '#f)))) + (##unchecked-structure-set! _%self147541%_ 'abort '1 '#f '#f)))) (let () (declare (not safe)) (__bind-method! gxc#!abort::t ':init! gxc#!abort:::init! '#f)) (define gxc#!class-meta:::init! - (lambda (_%self148385%_ _%klass148386%_) - (let ((_%self148389%_ _%self148385%_)) + (lambda (_%self147402%_ _%klass147403%_) + (let ((_%self147406%_ _%self147402%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self148389%_ 'class '1 '#f '#f)) + (##unchecked-structure-set! _%self147406%_ 'class '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148389%_ - _%klass148386%_ + _%self147406%_ + _%klass147403%_ '2 '#f '#f))))) @@ -1607,692 +1698,595 @@ (declare (not safe)) (__bind-method! gxc#!class-meta::t ':init! gxc#!class-meta:::init! '#f)) (define gxc#!class:::init!__0 - (lambda (_%self148077%_ - _%id148078%_ - _%super148079%_ - _%slots148080%_ - _%ctor-method148081%_ - _%struct?148082%_ - _%final?148083%_ - _%system?148084%_ - _%metaclass148085%_) - (let ((_%self148088%_ _%self148077%_)) - (let _%lp148098%_ ((_%rest148100%_ _%super148079%_)) - (let* ((_%rest148101148109%_ _%rest148100%_) - (_%else148103148117%_ (lambda () '#!void)) - (_%K148105148123%_ - (lambda (_%rest148120%_ _%super-id148121%_) - (if (let ((__tmp148802 - (let ((__tmp148803 - (cons '!class - (cons _%id148078%_ '())))) - (declare (not safe)) - (gxc#optimizer-resolve-class - __tmp148803 - _%super-id148121%_)))) + (lambda (_%self147094%_ + _%id147095%_ + _%super147096%_ + _%slots147097%_ + _%ctor-method147098%_ + _%struct?147099%_ + _%final?147100%_ + _%system?147101%_ + _%metaclass147102%_) + (let ((_%self147105%_ _%self147094%_)) + (let _%lp147115%_ ((_%rest147117%_ _%super147096%_)) + (let* ((_%rest147118147126%_ _%rest147117%_) + (_%else147120147134%_ (lambda () '#!void)) + (_%K147122147140%_ + (lambda (_%rest147137%_ _%super-id147138%_) + (if (let ((__tmp147907 + (gxc#optimizer-resolve-class + (cons '!class (cons _%id147095%_ '())) + _%super-id147138%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp148802 '8 '#f '#f)) - (let ((__tmp148804 - (cons '!class (cons _%id148078%_ '())))) + (##unchecked-structure-ref __tmp147907 '8 '#f '#f)) + (let ((__tmp147908 + (cons '!class (cons _%id147095%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp148804 - _%super-id148121%_)) + __tmp147908 + _%super-id147138%_)) '#!void) - (let () - (declare (not safe)) - (_%lp148098%_ _%rest148120%_))))) - (if (let () (declare (not safe)) (##pair? _%rest148101148109%_)) - (let ((_%hd148106148126%_ + (_%lp147115%_ _%rest147137%_)))) + (if (let () (declare (not safe)) (##pair? _%rest147118147126%_)) + (let ((_%hd147123147143%_ (let () (declare (not safe)) - (##car _%rest148101148109%_))) - (_%tl148107148128%_ + (##car _%rest147118147126%_))) + (_%tl147124147145%_ (let () (declare (not safe)) - (##cdr _%rest148101148109%_)))) - (let* ((_%super-id148131%_ _%hd148106148126%_) - (_%rest148133%_ _%tl148107148128%_)) - (declare (not safe)) - (_%K148105148123%_ _%rest148133%_ _%super-id148131%_))) + (##cdr _%rest147118147126%_)))) + (let* ((_%super-id147148%_ _%hd147123147143%_) + (_%rest147150%_ _%tl147124147145%_)) + (_%K147122147140%_ _%rest147150%_ _%super-id147148%_))) '#!void))) - (let* ((_%ctor-method148184%_ - (let ((_%$e148135%_ _%ctor-method148081%_)) - (if _%$e148135%_ - _%$e148135%_ - (let _%lp148138%_ ((_%rest148140%_ _%super148079%_) - (_%method148141%_ '#f)) - (let* ((_%rest148142148150%_ _%rest148140%_) - (_%else148144148158%_ - (lambda () _%method148141%_)) - (_%K148146148172%_ - (lambda (_%rest148161%_ _%super-id148162%_) - (let* ((_%klass148164%_ - (let ((__tmp148805 - (cons '!class - (cons _%id148078%_ - '())))) - (declare (not safe)) - (gxc#optimizer-resolve-class - __tmp148805 - _%super-id148162%_))) - (_%$e148166%_ + (let* ((_%ctor-method147201%_ + (let ((_%$e147152%_ _%ctor-method147098%_)) + (if _%$e147152%_ + _%$e147152%_ + (let _%lp147155%_ ((_%rest147157%_ _%super147096%_) + (_%method147158%_ '#f)) + (let* ((_%rest147159147167%_ _%rest147157%_) + (_%else147161147175%_ + (lambda () _%method147158%_)) + (_%K147163147189%_ + (lambda (_%rest147178%_ _%super-id147179%_) + (let* ((_%klass147181%_ + (gxc#optimizer-resolve-class + (cons '!class + (cons _%id147095%_ '())) + _%super-id147179%_)) + (_%$e147183%_ (##structure-ref - _%klass148164%_ + _%klass147181%_ '6 gxc#!class::t '#f))) - (if _%$e148166%_ - ((lambda (_%ctor-method148169%_) - (if _%method148141%_ - (if (eq? _%ctor-method148169%_ - _%method148141%_) - (let () - (declare (not safe)) - (_%lp148138%_ - _%rest148161%_ - _%ctor-method148169%_)) - (let ((__tmp148806 + (if _%$e147183%_ + ((lambda (_%ctor-method147186%_) + (if _%method147158%_ + (if (eq? _%ctor-method147186%_ + _%method147158%_) + (_%lp147155%_ + _%rest147178%_ + _%ctor-method147186%_) + (let ((__tmp147909 (cons '!class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id148078%_ '())))) + (cons _%id147095%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp148806 - _%method148141%_ - _%ctor-method148169%_))) + __tmp147909 + _%method147158%_ + _%ctor-method147186%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%lp148138%_ - _%rest148161%_ - _%ctor-method148169%_)))) - _%$e148166%_) - (let () - (declare (not safe)) - (_%lp148138%_ - _%rest148161%_ - _%method148141%_))))))) + (_%lp147155%_ + _%rest147178%_ + _%ctor-method147186%_))) + _%$e147183%_) + (_%lp147155%_ + _%rest147178%_ + _%method147158%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest148142148150%_)) - (let ((_%hd148147148175%_ + (##pair? _%rest147159147167%_)) + (let ((_%hd147164147192%_ (let () (declare (not safe)) - (##car _%rest148142148150%_))) - (_%tl148148148177%_ + (##car _%rest147159147167%_))) + (_%tl147165147194%_ (let () (declare (not safe)) - (##cdr _%rest148142148150%_)))) - (let* ((_%super-id148180%_ - _%hd148147148175%_) - (_%rest148182%_ _%tl148148148177%_)) - (declare (not safe)) - (_%K148146148172%_ - _%rest148182%_ - _%super-id148180%_))) - (let () - (declare (not safe)) - (_%else148144148158%_)))))))) - (_g148807_ - (let ((__tmp148812 - (lambda (_%klass-id148186%_) - (cons _%klass-id148186%_ - (let ((__tmp148813 - (let ((__tmp148814 - (cons '!class - (cons _%id148078%_ '())))) - (declare (not safe)) - (gxc#optimizer-resolve-class - __tmp148814 - _%klass-id148186%_)))) + (##cdr _%rest147159147167%_)))) + (let* ((_%super-id147197%_ + _%hd147164147192%_) + (_%rest147199%_ _%tl147165147194%_)) + (_%K147163147189%_ + _%rest147199%_ + _%super-id147197%_))) + (_%else147161147175%_))))))) + (_g147910_ + (let ((__tmp147914 + (lambda (_%klass-id147203%_) + (cons _%klass-id147203%_ + (let ((__tmp147915 + (gxc#optimizer-resolve-class + (cons '!class (cons _%id147095%_ '())) + _%klass-id147203%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp148813 + __tmp147915 '3 '#f '#f))))) - (__tmp148809 - (lambda (_%klass-id148188%_) - (let ((__tmp148810 - (let ((__tmp148811 - (cons '!class - (cons _%id148078%_ '())))) - (declare (not safe)) - (gxc#optimizer-resolve-class - __tmp148811 - _%klass-id148188%_)))) + (__tmp147912 + (lambda (_%klass-id147205%_) + (let ((__tmp147913 + (gxc#optimizer-resolve-class + (cons '!class (cons _%id147095%_ '())) + _%klass-id147205%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp148810 + __tmp147913 '7 '#f '#f))))) (declare (not safe)) (c4-linearize__% '#f - __tmp148812 - __tmp148809 + __tmp147914 + __tmp147912 eq? identity '() - _%super148079%_)))) + _%super147096%_)))) (begin - (let ((_g148808_ + (let ((_g147911_ (let () (declare (not safe)) - (if (##values? _g148807_) - (##vector-length _g148807_) + (if (##values? _g147910_) + (##vector-length _g147910_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g148808_ 2))) - (error "Context expects 2 values" _g148808_))) - (let ((_%precedence-list148190%_ - (let () (declare (not safe)) (##vector-ref _g148807_ 0))) - (_%base-struct148191%_ - (let () (declare (not safe)) (##vector-ref _g148807_ 1)))) - (let* ((_%precedence-list148235%_ + (if (not (let () (declare (not safe)) (##fx= _g147911_ 2))) + (error "Context expects 2 values" _g147911_))) + (let ((_%precedence-list147207%_ + (let () (declare (not safe)) (##vector-ref _g147910_ 0))) + (_%base-struct147208%_ + (let () (declare (not safe)) (##vector-ref _g147910_ 1)))) + (let* ((_%precedence-list147252%_ (if (let () (declare (not safe)) - (##memq _%id148078%_ '(t object class))) - (let () _%precedence-list148190%_) - (if (memq 'object::t _%precedence-list148190%_) - (let () _%precedence-list148190%_) - (if _%system?148084%_ - (let () - (if (memq 't::t - _%precedence-list148190%_) - _%precedence-list148190%_ - (let () - (declare (not safe)) - (##append - _%precedence-list148190%_ - '(t::t))))) - (let _%loop148197%_ ((_%tail148199%_ - _%precedence-list148190%_) - (_%head148200%_ '())) - (let* ((_%tail148201148209%_ - _%tail148199%_) - (_%else148203148217%_ + (##memq _%id147095%_ '(t object class))) + _%precedence-list147207%_ + (if (memq 'object::t _%precedence-list147207%_) + _%precedence-list147207%_ + (if _%system?147101%_ + (if (memq 't::t _%precedence-list147207%_) + _%precedence-list147207%_ + (let () + (declare (not safe)) + (##append + _%precedence-list147207%_ + '(t::t)))) + (let _%loop147214%_ ((_%tail147216%_ + _%precedence-list147207%_) + (_%head147217%_ '())) + (let* ((_%tail147218147226%_ + _%tail147216%_) + (_%else147220147234%_ (lambda () (let () (declare (not safe)) (__foldl1 cons '(object::t t::t) - _%head148200%_)))) - (_%K148205148223%_ - (lambda (_%rest148220%_ - _%hd148221%_) - (if (eq? _%hd148221%_ 't::t) - (let ((__tmp148815 + _%head147217%_)))) + (_%K147222147240%_ + (lambda (_%rest147237%_ + _%hd147238%_) + (if (eq? _%hd147238%_ 't::t) + (let ((__tmp147916 (cons 'object::t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tail148199%_))) + _%tail147216%_))) (declare (not safe)) - (__foldl1 cons __tmp148815 _%head148200%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp148816 - (cons _%hd148221%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%head148200%_))) - (declare (not safe)) - (_%loop148197%_ _%rest148220%_ __tmp148816)))))) + (__foldl1 cons __tmp147916 _%head147217%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop147214%_ + _%rest147237%_ + (cons _%hd147238%_ + _%head147217%_)))))) (if (let () (declare (not safe)) - (##pair? _%tail148201148209%_)) - (let ((_%hd148206148226%_ + (##pair? _%tail147218147226%_)) + (let ((_%hd147223147243%_ (let () (declare (not safe)) - (##car _%tail148201148209%_))) - (_%tl148207148228%_ + (##car _%tail147218147226%_))) + (_%tl147224147245%_ (let () (declare (not safe)) - (##cdr _%tail148201148209%_)))) - (let* ((_%hd148231%_ - _%hd148206148226%_) - (_%rest148233%_ - _%tl148207148228%_)) - (declare (not safe)) - (_%K148205148223%_ - _%rest148233%_ - _%hd148231%_))) - (let () - (declare (not safe)) - (_%else148203148217%_))))))))) - (_%fields148237%_ - (let ((__tmp148817 - (cons '!class (cons _%id148078%_ '())))) - (declare (not safe)) - (gxc#compute-class-fields - __tmp148817 - _%base-struct148191%_ - _%precedence-list148235%_ - _%slots148080%_)))) + (##cdr _%tail147218147226%_)))) + (let* ((_%hd147248%_ + _%hd147223147243%_) + (_%rest147250%_ + _%tl147224147245%_)) + (_%K147222147240%_ + _%rest147250%_ + _%hd147248%_))) + (_%else147220147234%_)))))))) + (_%fields147254%_ + (gxc#compute-class-fields + (cons '!class (cons _%id147095%_ '())) + _%base-struct147208%_ + _%precedence-list147252%_ + _%slots147097%_))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148088%_ - _%id148078%_ + _%self147105%_ + _%id147095%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148088%_ - _%super148079%_ + _%self147105%_ + _%super147096%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148088%_ - _%precedence-list148235%_ + _%self147105%_ + _%precedence-list147252%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148088%_ - _%slots148080%_ + _%self147105%_ + _%slots147097%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148088%_ - _%fields148237%_ + _%self147105%_ + _%fields147254%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148088%_ - _%ctor-method148184%_ + _%self147105%_ + _%ctor-method147201%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148088%_ - _%struct?148082%_ + _%self147105%_ + _%struct?147099%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148088%_ - _%final?148083%_ + _%self147105%_ + _%final?147100%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148088%_ - _%metaclass148085%_ + _%self147105%_ + _%metaclass147102%_ '10 '#f '#f))))))))) (define gxc#!class:::init!__1 - (lambda (_%self148240%_ - _%id148241%_ - _%super148242%_ - _%precedence-list148243%_ - _%slots148244%_ - _%fields148245%_ - _%constructor148246%_ - _%struct?148247%_ - _%final?148248%_ - _%system?148249%_ - _%metaclass148250%_ - _%methods148251%_) - (let ((_%self148254%_ _%self148240%_)) + (lambda (_%self147257%_ + _%id147258%_ + _%super147259%_ + _%precedence-list147260%_ + _%slots147261%_ + _%fields147262%_ + _%constructor147263%_ + _%struct?147264%_ + _%final?147265%_ + _%system?147266%_ + _%metaclass147267%_ + _%methods147268%_) + (let ((_%self147271%_ _%self147257%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148254%_ - _%id148241%_ + _%self147271%_ + _%id147258%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148254%_ - _%super148242%_ + _%self147271%_ + _%super147259%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148254%_ - _%precedence-list148243%_ + _%self147271%_ + _%precedence-list147260%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148254%_ - _%slots148244%_ + _%self147271%_ + _%slots147261%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148254%_ - _%fields148245%_ + _%self147271%_ + _%fields147262%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148254%_ - _%constructor148246%_ + _%self147271%_ + _%constructor147263%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148254%_ - _%struct?148247%_ + _%self147271%_ + _%struct?147264%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148254%_ - _%final?148248%_ + _%self147271%_ + _%final?147265%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148254%_ - _%metaclass148250%_ + _%self147271%_ + _%metaclass147267%_ '10 '#f '#f)) - (if _%methods148251%_ - (let ((__tmp148818 + (if _%methods147268%_ + (let ((__tmp147917 (let () (declare (not safe)) - (list->hash-table-eq _%methods148251%_)))) + (list->hash-table-eq _%methods147268%_)))) (declare (not safe)) (##unchecked-structure-set! - _%self148254%_ - __tmp148818 + _%self147271%_ + __tmp147917 '11 '#f '#f)) '#!void)))) (define gxc#!class:::init! - (lambda _g148820_ - (let ((_g148819_ (let () (declare (not safe)) (##length _g148820_)))) - (cond ((let () (declare (not safe)) (##fx= _g148819_ 9)) - (apply (lambda (_%self148077%_ - _%id148078%_ - _%super148079%_ - _%slots148080%_ - _%ctor-method148081%_ - _%struct?148082%_ - _%final?148083%_ - _%system?148084%_ - _%metaclass148085%_) - (let () - (declare (not safe)) - (gxc#!class:::init!__0 - _%self148077%_ - _%id148078%_ - _%super148079%_ - _%slots148080%_ - _%ctor-method148081%_ - _%struct?148082%_ - _%final?148083%_ - _%system?148084%_ - _%metaclass148085%_))) - _g148820_)) - ((let () (declare (not safe)) (##fx= _g148819_ 12)) - (apply (lambda (_%self148240%_ - _%id148241%_ - _%super148242%_ - _%precedence-list148243%_ - _%slots148244%_ - _%fields148245%_ - _%constructor148246%_ - _%struct?148247%_ - _%final?148248%_ - _%system?148249%_ - _%metaclass148250%_ - _%methods148251%_) - (let () - (declare (not safe)) - (gxc#!class:::init!__1 - _%self148240%_ - _%id148241%_ - _%super148242%_ - _%precedence-list148243%_ - _%slots148244%_ - _%fields148245%_ - _%constructor148246%_ - _%struct?148247%_ - _%final?148248%_ - _%system?148249%_ - _%metaclass148250%_ - _%methods148251%_))) - _g148820_)) + (lambda _g147919_ + (let ((_g147918_ (let () (declare (not safe)) (##length _g147919_)))) + (cond ((let () (declare (not safe)) (##fx= _g147918_ 9)) + (apply gxc#!class:::init!__0 _g147919_)) + ((let () (declare (not safe)) (##fx= _g147918_ 12)) + (apply gxc#!class:::init!__1 _g147919_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g148820_)))))) + _g147919_)))))) (let () (declare (not safe)) (__bind-method! gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_%where147929%_ - _%base-struct147930%_ - _%precedence-list147931%_ - _%direct-slots147932%_) - (let* ((_%base-fields147934%_ - (if _%base-struct147930%_ - (let ((__tmp148821 - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%where147929%_ - _%base-struct147930%_)))) + (lambda (_%where146946%_ + _%base-struct146947%_ + _%precedence-list146948%_ + _%direct-slots146949%_) + (let* ((_%base-fields146951%_ + (if _%base-struct146947%_ + (let ((__tmp147920 + (gxc#optimizer-resolve-class + _%where146946%_ + _%base-struct146947%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp148821 '5 '#f '#f)) + (##unchecked-structure-ref __tmp147920 '5 '#f '#f)) '())) - (_%r-fields147936%_ (reverse _%base-fields147934%_)) - (_%seen-slots147944%_ - (let ((_%tab147938%_ + (_%r-fields146953%_ (reverse _%base-fields146951%_)) + (_%seen-slots146961%_ + (let ((_%tab146955%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%g147939147941%_) + (lambda (_%g146956146958%_) (let () (declare (not safe)) - (hash-put! _%tab147938%_ _%g147939147941%_ '#t))) - _%base-fields147934%_) - _%tab147938%_)) - (_%process-slot147948%_ - (lambda (_%slot147946%_) + (hash-put! _%tab146955%_ _%g146956146958%_ '#t))) + _%base-fields146951%_) + _%tab146955%_)) + (_%process-slot146965%_ + (lambda (_%slot146963%_) (if (let () (declare (not safe)) - (hash-get _%seen-slots147944%_ _%slot147946%_)) + (hash-get _%seen-slots146961%_ _%slot146963%_)) '#!void (begin (let () (declare (not safe)) - (hash-put! _%seen-slots147944%_ _%slot147946%_ '#t)) - (set! _%r-fields147936%_ - (cons _%slot147946%_ _%r-fields147936%_))))))) + (hash-put! _%seen-slots146961%_ _%slot146963%_ '#t)) + (set! _%r-fields146953%_ + (cons _%slot146963%_ _%r-fields146953%_))))))) (for-each - (lambda (_%mixin147951%_) - (let ((_%klass147953%_ - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%where147929%_ - _%mixin147951%_)))) - (if (##structure-ref _%klass147953%_ '7 gxc#!class::t '#f) + (lambda (_%mixin146968%_) + (let ((_%klass146970%_ + (gxc#optimizer-resolve-class + _%where146946%_ + _%mixin146968%_))) + (if (##structure-ref _%klass146970%_ '7 gxc#!class::t '#f) '#!void (for-each - _%process-slot147948%_ - (##structure-ref _%klass147953%_ '5 gxc#!class::t '#f))))) - _%precedence-list147931%_) - (for-each _%process-slot147948%_ _%direct-slots147932%_) - (let () (declare (not safe)) (##reverse _%r-fields147936%_))))) + _%process-slot146965%_ + (##structure-ref _%klass146970%_ '5 gxc#!class::t '#f))))) + _%precedence-list146948%_) + (for-each _%process-slot146965%_ _%direct-slots146949%_) + (let () (declare (not safe)) (##reverse _%r-fields146953%_))))) (define gxc#!class-slot->field-offset - (lambda (_%klass147888%_ _%slot147889%_) - (let _%lp147891%_ ((_%rest147893%_ + (lambda (_%klass146905%_ _%slot146906%_) + (let _%lp146908%_ ((_%rest146910%_ (##structure-ref - _%klass147888%_ + _%klass146905%_ '5 gxc#!class::t '#f)) - (_%offset147894%_ '1)) - (let* ((_%rest147895147903%_ _%rest147893%_) - (_%else147897147911%_ + (_%offset146911%_ '1)) + (let* ((_%rest146912146920%_ _%rest146910%_) + (_%else146914146928%_ (lambda () - (let ((__tmp148823 + (let ((__tmp147922 (##structure-ref - _%klass147888%_ + _%klass146905%_ '1 gxc#!type::t '#f)) - (__tmp148822 + (__tmp147921 (##structure-ref - _%klass147888%_ + _%klass146905%_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp148823 - __tmp148822 - _%slot147889%_)))) - (_%K147899147917%_ - (lambda (_%rest147914%_ _%s147915%_) - (if (eq? _%s147915%_ _%slot147889%_) - _%offset147894%_ - (let ((__tmp148824 - (let () - (declare (not safe)) - (##fx+ _%offset147894%_ '1)))) - (declare (not safe)) - (_%lp147891%_ _%rest147914%_ __tmp148824)))))) - (if (let () (declare (not safe)) (##pair? _%rest147895147903%_)) - (let ((_%hd147900147920%_ + __tmp147922 + __tmp147921 + _%slot146906%_)))) + (_%K146916146934%_ + (lambda (_%rest146931%_ _%s146932%_) + (if (eq? _%s146932%_ _%slot146906%_) + _%offset146911%_ + (_%lp146908%_ + _%rest146931%_ + (let () + (declare (not safe)) + (##fx+ _%offset146911%_ '1))))))) + (if (let () (declare (not safe)) (##pair? _%rest146912146920%_)) + (let ((_%hd146917146937%_ (let () (declare (not safe)) - (##car _%rest147895147903%_))) - (_%tl147901147922%_ + (##car _%rest146912146920%_))) + (_%tl146918146939%_ (let () (declare (not safe)) - (##cdr _%rest147895147903%_)))) - (let* ((_%s147925%_ _%hd147900147920%_) - (_%rest147927%_ _%tl147901147922%_)) - (declare (not safe)) - (_%K147899147917%_ _%rest147927%_ _%s147925%_))) - (let () (declare (not safe)) (_%else147897147911%_))))))) + (##cdr _%rest146912146920%_)))) + (let* ((_%s146942%_ _%hd146917146937%_) + (_%rest146944%_ _%tl146918146939%_)) + (_%K146916146934%_ _%rest146944%_ _%s146942%_))) + (_%else146914146928%_)))))) (define gxc#!class-slot-find-struct - (lambda (_%klass147846%_ _%slot147847%_) - (if (let () - (declare (not safe)) - (gxc#!class-struct-slot? _%klass147846%_ _%slot147847%_)) - _%klass147846%_ - (let _%lp147849%_ ((_%rest147851%_ + (lambda (_%klass146863%_ _%slot146864%_) + (if (gxc#!class-struct-slot? _%klass146863%_ _%slot146864%_) + _%klass146863%_ + (let _%lp146866%_ ((_%rest146868%_ (##structure-ref - _%klass147846%_ + _%klass146863%_ '3 gxc#!class::t '#f))) - (let* ((_%rest147852147860%_ _%rest147851%_) - (_%else147854147868%_ (lambda () '#f)) - (_%K147856147876%_ - (lambda (_%rest147871%_ _%super147872%_) - (let ((_%super-class147874%_ - (let ((__tmp148825 - (cons '!class-slot-find-struct - (cons (##structure-ref - _%klass147846%_ - '1 - gxc#!type::t - '#f) - (cons _%slot147847%_ '()))))) - (declare (not safe)) - (gxc#optimizer-resolve-class - __tmp148825 - _%super147872%_)))) - (if (let () - (declare (not safe)) - (gxc#!class-struct-slot? - _%super-class147874%_ - _%slot147847%_)) - _%super-class147874%_ - (let () - (declare (not safe)) - (_%lp147849%_ _%rest147871%_))))))) + (let* ((_%rest146869146877%_ _%rest146868%_) + (_%else146871146885%_ (lambda () '#f)) + (_%K146873146893%_ + (lambda (_%rest146888%_ _%super146889%_) + (let ((_%super-class146891%_ + (gxc#optimizer-resolve-class + (cons '!class-slot-find-struct + (cons (##structure-ref + _%klass146863%_ + '1 + gxc#!type::t + '#f) + (cons _%slot146864%_ '()))) + _%super146889%_))) + (if (gxc#!class-struct-slot? + _%super-class146891%_ + _%slot146864%_) + _%super-class146891%_ + (_%lp146866%_ _%rest146888%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest147852147860%_)) - (let ((_%hd147857147879%_ + (##pair? _%rest146869146877%_)) + (let ((_%hd146874146896%_ (let () (declare (not safe)) - (##car _%rest147852147860%_))) - (_%tl147858147881%_ + (##car _%rest146869146877%_))) + (_%tl146875146898%_ (let () (declare (not safe)) - (##cdr _%rest147852147860%_)))) - (let* ((_%super147884%_ _%hd147857147879%_) - (_%rest147886%_ _%tl147858147881%_)) - (declare (not safe)) - (_%K147856147876%_ _%rest147886%_ _%super147884%_))) - (let () (declare (not safe)) (_%else147854147868%_)))))))) + (##cdr _%rest146869146877%_)))) + (let* ((_%super146901%_ _%hd146874146896%_) + (_%rest146903%_ _%tl146875146898%_)) + (_%K146873146893%_ _%rest146903%_ _%super146901%_))) + (_%else146871146885%_))))))) (define gxc#!class-struct-slot? - (lambda (_%klass147843%_ _%slot147844%_) - (if (##structure-ref _%klass147843%_ '7 gxc#!class::t '#f) - (memq _%slot147844%_ - (##structure-ref _%klass147843%_ '5 gxc#!class::t '#f)) + (lambda (_%klass146860%_ _%slot146861%_) + (if (##structure-ref _%klass146860%_ '7 gxc#!class::t '#f) + (memq _%slot146861%_ + (##structure-ref _%klass146860%_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_%self147829%_ _%id147830%_) - (let ((_%self147833%_ _%self147829%_)) + (lambda (_%self146846%_ _%id146847%_) + (let ((_%self146850%_ _%self146846%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self147833%_ - _%id147830%_ + _%self146850%_ + _%id146847%_ '1 '#f '#f)) - (let ((__tmp148826 - (let ((__obj148752 + (let ((__tmp147923 + (let ((__obj147855 (let () (declare (not safe)) - (##structure gxc#!signature::t '#f '#f '#f '#f)))) + (##structure + gxc#!signature::t + '#f + '#f + '#f + '#f + '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148752 + __obj147855 'boolean::t '1 '#f @@ -2300,7 +2294,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148752 + __obj147855 '(pure predicate) '2 '#f @@ -2308,16 +2302,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148752 + __obj147855 '(t::t) '3 '#f '#f)) - __obj148752))) + __obj147855))) (declare (not safe)) (##unchecked-structure-set! - _%self147833%_ - __tmp148826 + _%self146850%_ + __tmp147923 '2 '#f '#f))))) @@ -2325,42 +2319,48 @@ (declare (not safe)) (__bind-method! gxc#!predicate::t ':init! gxc#!predicate:::init! '#f)) (define gxc#!constructor:::init! - (lambda (_%self147693%_ _%id147694%_) - (let ((_%self147697%_ _%self147693%_)) + (lambda (_%self146710%_ _%id146711%_) + (let ((_%self146714%_ _%self146710%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self147697%_ - _%id147694%_ + _%self146714%_ + _%id146711%_ '1 '#f '#f)) - (let ((__tmp148827 - (let ((__obj148753 + (let ((__tmp147924 + (let ((__obj147856 (let () (declare (not safe)) - (##structure gxc#!signature::t '#f '#f '#f '#f)))) + (##structure + gxc#!signature::t + '#f + '#f + '#f + '#f + '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148753 - _%id147694%_ + __obj147856 + _%id146711%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148753 + __obj147856 '(alloc) '2 '#f '#f)) - __obj148753))) + __obj147856))) (declare (not safe)) (##unchecked-structure-set! - _%self147697%_ - __tmp148827 + _%self146714%_ + __tmp147924 '2 '#f '#f))))) @@ -2372,61 +2372,67 @@ gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_%self147555%_ _%id147556%_ _%slot147557%_ _%checked?147558%_) - (let ((_%self147561%_ _%self147555%_)) + (lambda (_%self146572%_ _%id146573%_ _%slot146574%_ _%checked?146575%_) + (let ((_%self146578%_ _%self146572%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self147561%_ - _%id147556%_ + _%self146578%_ + _%id146573%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self147561%_ - _%slot147557%_ + _%self146578%_ + _%slot146574%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self147561%_ - _%checked?147558%_ + _%self146578%_ + _%checked?146575%_ '4 '#f '#f)) - (let ((__tmp148828 - (let ((__obj148754 + (let ((__tmp147925 + (let ((__obj147857 (let () (declare (not safe)) - (##structure gxc#!signature::t '#f '#f '#f '#f)))) + (##structure + gxc#!signature::t + '#f + '#f + '#f + '#f + '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148754 't::t '1 '#f '#f)) + (##unchecked-structure-set! __obj147857 't::t '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148754 + __obj147857 '(pure) '2 '#f '#f)) - (let ((__tmp148829 (cons _%id147556%_ '()))) + (let ((__tmp147926 (cons _%id146573%_ '()))) (declare (not safe)) (##unchecked-structure-set! - __obj148754 - __tmp148829 + __obj147857 + __tmp147926 '3 '#f '#f)) - __obj148754))) + __obj147857))) (declare (not safe)) (##unchecked-structure-set! - _%self147561%_ - __tmp148828 + _%self146578%_ + __tmp147925 '2 '#f '#f))))) @@ -2434,41 +2440,47 @@ (declare (not safe)) (__bind-method! gxc#!accessor::t ':init! gxc#!accessor:::init! '#f)) (define gxc#!mutator:::init! - (lambda (_%self147417%_ _%id147418%_ _%slot147419%_ _%checked?147420%_) - (let ((_%self147423%_ _%self147417%_)) + (lambda (_%self146434%_ _%id146435%_ _%slot146436%_ _%checked?146437%_) + (let ((_%self146440%_ _%self146434%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self147423%_ - _%id147418%_ + _%self146440%_ + _%id146435%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self147423%_ - _%slot147419%_ + _%self146440%_ + _%slot146436%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self147423%_ - _%checked?147420%_ + _%self146440%_ + _%checked?146437%_ '4 '#f '#f)) - (let ((__tmp148830 - (let ((__obj148755 + (let ((__tmp147927 + (let ((__obj147858 (let () (declare (not safe)) - (##structure gxc#!signature::t '#f '#f '#f '#f)))) + (##structure + gxc#!signature::t + '#f + '#f + '#f + '#f + '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148755 + __obj147858 'void::t '1 '#f @@ -2476,24 +2488,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148755 + __obj147858 '(mut) '2 '#f '#f)) - (let ((__tmp148831 (cons _%id147418%_ (cons 't::t '())))) + (let ((__tmp147928 (cons _%id146435%_ (cons 't::t '())))) (declare (not safe)) (##unchecked-structure-set! - __obj148755 - __tmp148831 + __obj147858 + __tmp147928 '3 '#f '#f)) - __obj148755))) + __obj147858))) (declare (not safe)) (##unchecked-structure-set! - _%self147423%_ - __tmp148830 + _%self146440%_ + __tmp147927 '2 '#f '#f))))) @@ -2501,109 +2513,109 @@ (declare (not safe)) (__bind-method! gxc#!mutator::t ':init! gxc#!mutator:::init! '#f)) (define gxc#!lambda:::init!__% - (lambda (_%@@keywords147261%_ - _%signature147258147262%_ - _%self147264%_ - _%arity147265%_ - _%dispatch147266%_) - (let* ((_%signature147268%_ - (if (eq? _%signature147258147262%_ absent-value) + (lambda (_%@@keywords146278%_ + _%signature146275146279%_ + _%self146281%_ + _%arity146282%_ + _%dispatch146283%_) + (let* ((_%signature146285%_ + (if (eq? _%signature146275146279%_ absent-value) '#f - _%signature147258147262%_)) - (_%self147271%_ _%self147264%_)) + _%signature146275146279%_)) + (_%self146288%_ _%self146281%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self147271%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self146288%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self147271%_ - _%arity147265%_ + _%self146288%_ + _%arity146282%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self147271%_ - _%dispatch147266%_ + _%self146288%_ + _%dispatch146283%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self147271%_ - _%signature147268%_ + _%self146288%_ + _%signature146285%_ '2 '#f '#f))))) (define gxc#!lambda:::init!__@ - (lambda (_%@@keywords147285%_ . _%args147286%_) + (lambda (_%@@keywords146302%_ . _%args146303%_) (apply gxc#!lambda:::init!__% - _%@@keywords147285%_ + _%@@keywords146302%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147285%_ + _%@@keywords146302%_ 'signature: absent-value)) - _%args147286%_))) + _%args146303%_))) (define gxc#!lambda:::init! - (lambda _%args147259147292%_ + (lambda _%args146276146309%_ (apply keyword-dispatch '#(signature:) gxc#!lambda:::init!__@ - _%args147259147292%_))) + _%args146276146309%_))) (let () (declare (not safe)) (__bind-method! gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) (define gxc#!case-lambda:::init!__% - (lambda (_%@@keywords147102%_ - _%signature147099147103%_ - _%self147105%_ - _%clauses147106%_) - (let* ((_%signature147108%_ - (if (eq? _%signature147099147103%_ absent-value) + (lambda (_%@@keywords146119%_ + _%signature146116146120%_ + _%self146122%_ + _%clauses146123%_) + (let* ((_%signature146125%_ + (if (eq? _%signature146116146120%_ absent-value) '#f - _%signature147099147103%_)) - (_%self147111%_ _%self147105%_)) + _%signature146116146120%_)) + (_%self146128%_ _%self146122%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self147111%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self146128%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self147111%_ - _%signature147108%_ + _%self146128%_ + _%signature146125%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self147111%_ - _%clauses147106%_ + _%self146128%_ + _%clauses146123%_ '3 '#f '#f))))) (define gxc#!case-lambda:::init!__@ - (lambda (_%@@keywords147125%_ . _%args147126%_) + (lambda (_%@@keywords146142%_ . _%args146143%_) (apply gxc#!case-lambda:::init!__% - _%@@keywords147125%_ + _%@@keywords146142%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147125%_ + _%@@keywords146142%_ 'signature: absent-value)) - _%args147126%_))) + _%args146143%_))) (define gxc#!case-lambda:::init! - (lambda _%args147100147132%_ + (lambda _%args146117146149%_ (apply keyword-dispatch '#(signature:) gxc#!case-lambda:::init!__@ - _%args147100147132%_))) + _%args146117146149%_))) (let () (declare (not safe)) (__bind-method! @@ -2612,24 +2624,24 @@ gxc#!case-lambda:::init! '#f)) (define gxc#!kw-lambda:::init! - (lambda (_%self146961%_ _%tab146962%_ _%dispatch146963%_) - (let ((_%self146966%_ _%self146961%_)) + (lambda (_%self145978%_ _%tab145979%_ _%dispatch145980%_) + (let ((_%self145983%_ _%self145978%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self146966%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self145983%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self146966%_ - _%tab146962%_ + _%self145983%_ + _%tab145979%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self146966%_ - _%dispatch146963%_ + _%self145983%_ + _%dispatch145980%_ '4 '#f '#f))))) @@ -2637,24 +2649,24 @@ (declare (not safe)) (__bind-method! gxc#!kw-lambda::t ':init! gxc#!kw-lambda:::init! '#f)) (define gxc#!kw-lambda-primary:::init! - (lambda (_%self146824%_ _%keys146825%_ _%main146826%_) - (let ((_%self146829%_ _%self146824%_)) + (lambda (_%self145841%_ _%keys145842%_ _%main145843%_) + (let ((_%self145846%_ _%self145841%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self146829%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self145846%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self146829%_ - _%keys146825%_ + _%self145846%_ + _%keys145842%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self146829%_ - _%main146826%_ + _%self145846%_ + _%main145843%_ '4 '#f '#f))))) @@ -2682,25 +2694,31 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!primitive-predicate:::init! - (lambda (_%self146444%_ _%id146445%_) - (let ((_%self146448%_ _%self146444%_)) + (lambda (_%self145461%_ _%id145462%_) + (let ((_%self145465%_ _%self145461%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self146448%_ - _%id146445%_ + _%self145465%_ + _%id145462%_ '1 '#f '#f)) - (let ((__tmp148832 - (let ((__obj148756 + (let ((__tmp147929 + (let ((__obj147859 (let () (declare (not safe)) - (##structure gxc#!signature::t '#f '#f '#f '#f)))) + (##structure + gxc#!signature::t + '#f + '#f + '#f + '#f + '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148756 + __obj147859 'boolean::t '1 '#f @@ -2708,7 +2726,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148756 + __obj147859 '(pure) '2 '#f @@ -2716,16 +2734,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148756 + __obj147859 '(t::t) '3 '#f '#f)) - __obj148756))) + __obj147859))) (declare (not safe)) (##unchecked-structure-set! - _%self146448%_ - __tmp148832 + _%self145465%_ + __tmp147929 '2 '#f '#f))))) @@ -2737,165 +2755,186 @@ gxc#!primitive-predicate:::init! '#f)) (define gxc#!class-method-table - (lambda (_%klass146313%_) - (let ((_%$e146315%_ - (##structure-ref _%klass146313%_ '11 gxc#!class::t '#f))) - (if _%$e146315%_ - _%$e146315%_ - (let ((_%tab146319%_ + (lambda (_%klass145330%_) + (let ((_%$e145332%_ + (##structure-ref _%klass145330%_ '11 gxc#!class::t '#f))) + (if _%$e145332%_ + _%$e145332%_ + (let ((_%tab145336%_ (let () (declare (not safe)) (make-hash-table-eq)))) (##structure-set! - _%klass146313%_ - _%tab146319%_ + _%klass145330%_ + _%tab145336%_ '11 gxc#!class::t '#f) - _%tab146319%_))))) + _%tab145336%_))))) (define gxc#!class-lookup-method - (lambda (_%klass146304%_ _%method146305%_) - (let ((_%tab146306146308%_ - (##structure-ref _%klass146304%_ '11 gxc#!class::t '#f))) - (if _%tab146306146308%_ - (let ((_%tab146311%_ _%tab146306146308%_)) + (lambda (_%klass145321%_ _%method145322%_) + (let ((_%tab145323145325%_ + (##structure-ref _%klass145321%_ '11 gxc#!class::t '#f))) + (if _%tab145323145325%_ + (let ((_%tab145328%_ _%tab145323145325%_)) (declare (not safe)) - (hash-get _%tab146311%_ _%method146305%_)) + (hash-get _%tab145328%_ _%method145322%_)) '#f)))) (define gxc#!type-subtype? - (lambda (_%type-a146292%_ _%type-b146293%_) - (if _%type-a146292%_ - (if _%type-b146293%_ - (let ((_%$e146295%_ (eq? _%type-a146292%_ _%type-b146293%_))) - (if _%$e146295%_ - _%$e146295%_ - (let ((_%$e146298%_ + (lambda (_%type-a145309%_ _%type-b145310%_) + (if _%type-a145309%_ + (if _%type-b145310%_ + (let ((_%$e145312%_ (eq? _%type-a145309%_ _%type-b145310%_))) + (if _%$e145312%_ + _%$e145312%_ + (let ((_%$e145315%_ (eq? (##structure-ref - _%type-b146293%_ + _%type-b145310%_ '1 gxc#!type::t '#f) 't))) - (if _%$e146298%_ - _%$e146298%_ - (let ((_%$e146301%_ + (if _%$e145315%_ + _%$e145315%_ + (let ((_%$e145318%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a146292%_ + _%type-a145309%_ 'gxc#!procedure::t)) (eq? (##structure-ref - _%type-b146293%_ + _%type-b145310%_ '1 gxc#!type::t '#f) 'procedure) '#f))) - (if _%$e146301%_ - _%$e146301%_ + (if _%$e145318%_ + _%$e145318%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a146292%_ + _%type-a145309%_ 'gxc#!class::t)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-b146293%_ + _%type-b145310%_ 'gxc#!class::t)) - (let () - (declare (not safe)) - (gxc#!class-subclass? - _%type-a146292%_ - _%type-b146293%_)) + (gxc#!class-subclass? + _%type-a145309%_ + _%type-b145310%_) '#f) '#f))))))) '#f) '#f))) (define gxc#!class-subclass? - (lambda (_%klass-a146243%_ _%klass-b146244%_) - (let ((_%$e146246%_ - (eq? (##structure-ref _%klass-a146243%_ '1 gxc#!type::t '#f) - (##structure-ref _%klass-b146244%_ '1 gxc#!type::t '#f)))) - (if _%$e146246%_ - _%$e146246%_ - (let ((_%klass-id-b146249%_ - (##structure-ref _%klass-b146244%_ '1 gxc#!type::t '#f)) - (_%precedence-list146250%_ - (##structure-ref _%klass-a146243%_ '3 gxc#!class::t '#f))) - (let _%loop146252%_ ((_%rest146254%_ - _%precedence-list146250%_)) - (let* ((_%rest146255146263%_ _%rest146254%_) - (_%else146257146271%_ (lambda () '#f)) - (_%K146259146280%_ - (lambda (_%rest146274%_ _%klass-name146275%_) - (let ((_%$e146277%_ - (eq? (let ((__tmp148833 - (let ((__tmp148834 - (cons 'subclass? - (cons _%klass-a146243%_ + (lambda (_%klass-a145260%_ _%klass-b145261%_) + (let ((_%$e145263%_ + (eq? (##structure-ref _%klass-a145260%_ '1 gxc#!type::t '#f) + (##structure-ref _%klass-b145261%_ '1 gxc#!type::t '#f)))) + (if _%$e145263%_ + _%$e145263%_ + (let ((_%klass-id-b145266%_ + (##structure-ref _%klass-b145261%_ '1 gxc#!type::t '#f)) + (_%precedence-list145267%_ + (##structure-ref _%klass-a145260%_ '3 gxc#!class::t '#f))) + (let _%loop145269%_ ((_%rest145271%_ + _%precedence-list145267%_)) + (let* ((_%rest145272145280%_ _%rest145271%_) + (_%else145274145288%_ (lambda () '#f)) + (_%K145276145297%_ + (lambda (_%rest145291%_ _%klass-name145292%_) + (let ((_%$e145294%_ + (eq? (let ((__tmp147930 + (gxc#optimizer-resolve-class + (cons 'subclass? + (cons _%klass-a145260%_ + (cons _%klass-b145261%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%klass-b146244%_ '()))))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#optimizer-resolve-class - __tmp148834 - _%klass-name146275%_)))) + _%klass-name145292%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp148833 + __tmp147930 '1 '#f '#f)) - _%klass-id-b146249%_))) - (if _%$e146277%_ - _%$e146277%_ - (let () - (declare (not safe)) - (_%loop146252%_ _%rest146274%_))))))) + _%klass-id-b145266%_))) + (if _%$e145294%_ + _%$e145294%_ + (_%loop145269%_ _%rest145291%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest146255146263%_)) - (let ((_%hd146260146283%_ + (##pair? _%rest145272145280%_)) + (let ((_%hd145277145300%_ (let () (declare (not safe)) - (##car _%rest146255146263%_))) - (_%tl146261146285%_ + (##car _%rest145272145280%_))) + (_%tl145278145302%_ (let () (declare (not safe)) - (##cdr _%rest146255146263%_)))) - (let* ((_%klass-name146288%_ _%hd146260146283%_) - (_%rest146290%_ _%tl146261146285%_)) - (declare (not safe)) - (_%K146259146280%_ - _%rest146290%_ - _%klass-name146288%_))) - (let () - (declare (not safe)) - (_%else146257146271%_)))))))))) + (##cdr _%rest145272145280%_)))) + (let* ((_%klass-name145305%_ _%hd145277145300%_) + (_%rest145307%_ _%tl145278145302%_)) + (_%K145276145297%_ + _%rest145307%_ + _%klass-name145305%_))) + (_%else145274145288%_))))))))) (define gxc#!interface-instance? - (lambda (_%type146241%_) + (lambda (_%type145258%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type146241%_ 'gxc#!class::t)) + (##structure-instance-of? _%type145258%_ 'gxc#!class::t)) (memq 'interface-instance::t - (##structure-ref _%type146241%_ '3 gxc#!class::t '#f)) + (##structure-ref _%type145258%_ '3 gxc#!class::t '#f)) '#f))) + (define gxc#!procedure-origin + (lambda (_%proc145247%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%proc145247%_ 'gxc#!procedure::t)) + (let ((_%proc145250%_ _%proc145247%_)) + (if (let () + (declare (not safe)) + (##unchecked-structure-ref _%proc145250%_ '2 '#f '#f)) + (let ((__tmp147931 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%proc145250%_ + '2 + '#f + '#f)))) + (declare (not safe)) + (##unchecked-structure-ref __tmp147931 '5 '#f '#f)) + '#f)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/compiler/optimize-base.ss\"@374.11-374.15" + 'contract: + '!procedure? + 'value: + _%proc145247%_) + '#!void)))) (define gxc#optimizer-declare-type!__% - (lambda (_%sym146223%_ _%type146224%_ _%local?146225%_) + (lambda (_%sym145229%_ _%type145230%_ _%local?145231%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type146224%_ 'gxc#!type::t)) + (##structure-instance-of? _%type145230%_ 'gxc#!type::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !type" - _%sym146223%_ - _%type146224%_))) - (let ((__tmp148835 - (let () (declare (not safe)) (struct->list _%type146224%_)))) + _%sym145229%_ + _%type145230%_))) + (let ((__tmp147932 + (let () (declare (not safe)) (struct->list _%type145230%_)))) (declare (not safe)) - (gxc#verbose '"declare-type " _%sym146223%_ '" " __tmp148835)) - (let ((_%table146227%_ - (if _%local?146225%_ + (gxc#verbose '"declare-type " _%sym145229%_ '" " __tmp147932)) + (let ((_%table145233%_ + (if _%local?145231%_ (let () (declare (not safe)) (gxc#current-compile-local-type)) @@ -2907,51 +2946,37 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (hash-put! _%table146227%_ _%sym146223%_ _%type146224%_)))) + (hash-put! _%table145233%_ _%sym145229%_ _%type145230%_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_%sym146232%_ _%type146233%_) - (let ((_%local?146235%_ '#f)) - (declare (not safe)) + (lambda (_%sym145238%_ _%type145239%_) + (let ((_%local?145241%_ '#f)) (gxc#optimizer-declare-type!__% - _%sym146232%_ - _%type146233%_ - _%local?146235%_)))) + _%sym145238%_ + _%type145239%_ + _%local?145241%_)))) (define gxc#optimizer-declare-type! - (lambda _g148837_ - (let ((_g148836_ (let () (declare (not safe)) (##length _g148837_)))) - (cond ((let () (declare (not safe)) (##fx= _g148836_ 2)) - (apply (lambda (_%sym146232%_ _%type146233%_) - (let () - (declare (not safe)) - (gxc#optimizer-declare-type!__0 - _%sym146232%_ - _%type146233%_))) - _g148837_)) - ((let () (declare (not safe)) (##fx= _g148836_ 3)) - (apply (lambda (_%sym146237%_ _%type146238%_ _%local?146239%_) - (let () - (declare (not safe)) - (gxc#optimizer-declare-type!__% - _%sym146237%_ - _%type146238%_ - _%local?146239%_))) - _g148837_)) + (lambda _g147934_ + (let ((_g147933_ (let () (declare (not safe)) (##length _g147934_)))) + (cond ((let () (declare (not safe)) (##fx= _g147933_ 2)) + (apply gxc#optimizer-declare-type!__0 _g147934_)) + ((let () (declare (not safe)) (##fx= _g147933_ 3)) + (apply gxc#optimizer-declare-type!__% _g147934_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g148837_)))))) + _g147934_)))))) (define gxc#optimizer-declare-class! - (lambda (_%sym146217%_ _%type146218%_) + (lambda (_%sym145223%_ _%type145224%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type146218%_ 'gxc#!class::t)) + (##structure-instance-of? _%type145224%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym146217%_ - _%type146218%_))) - (let ((_%table146220%_ + _%sym145223%_ + _%type145224%_))) + (let ((_%table145226%_ (##structure-ref (let () (declare (not safe)) @@ -2959,28 +2984,28 @@ '2 gxc#optimizer-info::t '#f))) - (let ((__tmp148838 - (let () (declare (not safe)) (struct->list _%type146218%_)))) + (let ((__tmp147935 + (let () (declare (not safe)) (struct->list _%type145224%_)))) (declare (not safe)) - (gxc#verbose '"declare-class " _%sym146217%_ '" " __tmp148838)) + (gxc#verbose '"declare-class " _%sym145223%_ '" " __tmp147935)) (let () (declare (not safe)) - (hash-put! _%table146220%_ _%sym146217%_ _%type146218%_)) + (hash-put! _%table145226%_ _%sym145223%_ _%type145224%_)) (let () (declare (not safe)) - (hash-put! _%table146220%_ _%type146218%_ _%sym146217%_))))) + (hash-put! _%table145226%_ _%type145224%_ _%sym145223%_))))) (define gxc#optimizer-declare-builtin-class! - (lambda (_%sym146212%_ _%type146213%_) + (lambda (_%sym145218%_ _%type145219%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type146213%_ 'gxc#!class::t)) + (##structure-instance-of? _%type145219%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym146212%_ - _%type146213%_))) - (let ((_%table146215%_ + _%sym145218%_ + _%type145219%_))) + (let ((_%table145221%_ (##structure-ref (let () (declare (not safe)) @@ -2990,38 +3015,38 @@ '#f))) (if (let () (declare (not safe)) - (hash-get _%table146215%_ _%sym146212%_)) + (hash-get _%table145221%_ _%sym145218%_)) '#!void (begin - (let ((__tmp148839 + (let ((__tmp147936 (let () (declare (not safe)) - (struct->list _%type146213%_)))) + (struct->list _%type145219%_)))) (declare (not safe)) (gxc#verbose '"declare-builtin-class " - _%sym146212%_ + _%sym145218%_ '" " - __tmp148839)) + __tmp147936)) (let () (declare (not safe)) - (hash-put! _%table146215%_ _%sym146212%_ _%type146213%_)) + (hash-put! _%table145221%_ _%sym145218%_ _%type145219%_)) (let () (declare (not safe)) (hash-put! - _%table146215%_ - _%type146213%_ - _%sym146212%_))))))) + _%table145221%_ + _%type145219%_ + _%sym145218%_))))))) (define gxc#optimizer-clear-type! - (lambda (_%sym146210%_) + (lambda (_%sym145216%_) (let () (declare (not safe)) - (gxc#verbose '"clear-type " _%sym146210%_)) - (let ((__tmp148840 + (gxc#verbose '"clear-type " _%sym145216%_)) + (let ((__tmp147937 (let () (declare (not safe)) (gxc#current-compile-local-type)))) (declare (not safe)) - (hash-remove! __tmp148840 _%sym146210%_)) - (let ((__tmp148841 + (hash-remove! __tmp147937 _%sym145216%_)) + (let ((__tmp147938 (##structure-ref (let () (declare (not safe)) @@ -3030,132 +3055,105 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-remove! __tmp148841 _%sym146210%_)))) + (hash-remove! __tmp147938 _%sym145216%_)))) (define gxc#optimizer-declare-method!__% - (lambda (_%type-t146178%_ - _%method146179%_ - _%sym146180%_ - _%rebind?146181%_) - (let ((_%klass146183%_ - (let () - (declare (not safe)) - (gxc#optimizer-lookup-class _%type-t146178%_)))) - (if _%klass146183%_ - (let* ((_%vtab146185%_ - (let () - (declare (not safe)) - (gxc#!class-method-table _%klass146183%_))) - (_%$e146187%_ + (lambda (_%type-t145184%_ + _%method145185%_ + _%sym145186%_ + _%rebind?145187%_) + (let ((_%klass145189%_ (gxc#optimizer-lookup-class _%type-t145184%_))) + (if _%klass145189%_ + (let* ((_%vtab145191%_ (gxc#!class-method-table _%klass145189%_)) + (_%$e145193%_ (let () (declare (not safe)) - (hash-get _%vtab146185%_ _%method146179%_)))) - (if _%$e146187%_ - ((lambda (_%existing146190%_) - (if _%rebind?146181%_ + (hash-get _%vtab145191%_ _%method145185%_)))) + (if _%$e145193%_ + ((lambda (_%existing145196%_) + (if _%rebind?145187%_ (let () (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _%type-t146178%_ + _%type-t145184%_ '" " - _%method146179%_)) + _%method145185%_)) (let () (declare (not safe)) (hash-put! - _%vtab146185%_ - _%method146179%_ - _%sym146180%_))) - (if (eq? _%existing146190%_ _%sym146180%_) - (let () '#!void) - (let ((__tmp148842 + _%vtab145191%_ + _%method145185%_ + _%sym145186%_))) + (if (eq? _%existing145196%_ _%sym145186%_) + '#!void + (let ((__tmp147939 (cons 'bind-method! - (cons _%type-t146178%_ - (cons _%method146179%_ - (cons _%sym146180%_ + (cons _%type-t145184%_ + (cons _%method145185%_ + (cons _%sym145186%_ '())))))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp148842 - _%method146179%_))))) - _%$e146187%_) + __tmp147939 + _%method145185%_))))) + _%$e145193%_) (let () (let () (declare (not safe)) (gxc#verbose '"declare-method " - _%type-t146178%_ + _%type-t145184%_ '" " - _%method146179%_ + _%method145185%_ '" => " - _%sym146180%_)) + _%sym145186%_)) (let () (declare (not safe)) (hash-put! - _%vtab146185%_ - _%method146179%_ - _%sym146180%_))))) + _%vtab145191%_ + _%method145185%_ + _%sym145186%_))))) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown class" - _%type-t146178%_)))))) + _%type-t145184%_)))))) (define gxc#optimizer-declare-method!__0 - (lambda (_%type-t146199%_ _%method146200%_ _%sym146201%_) - (let ((_%rebind?146203%_ '#f)) - (declare (not safe)) + (lambda (_%type-t145205%_ _%method145206%_ _%sym145207%_) + (let ((_%rebind?145209%_ '#f)) (gxc#optimizer-declare-method!__% - _%type-t146199%_ - _%method146200%_ - _%sym146201%_ - _%rebind?146203%_)))) + _%type-t145205%_ + _%method145206%_ + _%sym145207%_ + _%rebind?145209%_)))) (define gxc#optimizer-declare-method! - (lambda _g148844_ - (let ((_g148843_ (let () (declare (not safe)) (##length _g148844_)))) - (cond ((let () (declare (not safe)) (##fx= _g148843_ 3)) - (apply (lambda (_%type-t146199%_ - _%method146200%_ - _%sym146201%_) - (let () - (declare (not safe)) - (gxc#optimizer-declare-method!__0 - _%type-t146199%_ - _%method146200%_ - _%sym146201%_))) - _g148844_)) - ((let () (declare (not safe)) (##fx= _g148843_ 4)) - (apply (lambda (_%type-t146205%_ - _%method146206%_ - _%sym146207%_ - _%rebind?146208%_) - (let () - (declare (not safe)) - (gxc#optimizer-declare-method!__% - _%type-t146205%_ - _%method146206%_ - _%sym146207%_ - _%rebind?146208%_))) - _g148844_)) + (lambda _g147941_ + (let ((_g147940_ (let () (declare (not safe)) (##length _g147941_)))) + (cond ((let () (declare (not safe)) (##fx= _g147940_ 3)) + (apply gxc#optimizer-declare-method!__0 _g147941_)) + ((let () (declare (not safe)) (##fx= _g147940_ 4)) + (apply gxc#optimizer-declare-method!__% _g147941_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g148844_)))))) + _g147941_)))))) (define gxc#optimizer-lookup-type - (lambda (_%sym146166%_) - (let ((_%$e146174%_ - (let ((_%ht146167146169%_ + (lambda (_%sym145172%_) + (let ((_%$e145180%_ + (let ((_%ht145173145175%_ (let () (declare (not safe)) (gxc#current-compile-local-type)))) - (if _%ht146167146169%_ - (let ((_%ht146172%_ _%ht146167146169%_)) + (if _%ht145173145175%_ + (let ((_%ht145178%_ _%ht145173145175%_)) (declare (not safe)) - (hash-get _%ht146172%_ _%sym146166%_)) + (hash-get _%ht145178%_ _%sym145172%_)) '#f)))) - (if _%$e146174%_ - _%$e146174%_ - (let ((__tmp148845 + (if _%$e145180%_ + _%$e145180%_ + (let ((__tmp147942 (##structure-ref (let () (declare (not safe)) @@ -3164,31 +3162,22 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp148845 _%sym146166%_)))))) + (hash-get __tmp147942 _%sym145172%_)))))) (define gxc#optimizer-resolve-type - (lambda (_%sym146158%_) - (let ((_%type146159146161%_ - (let () - (declare (not safe)) - (gxc#optimizer-lookup-type _%sym146158%_)))) - (if _%type146159146161%_ - (let ((_%type146164%_ _%type146159146161%_)) + (lambda (_%sym145164%_) + (let ((_%type145165145167%_ (gxc#optimizer-lookup-type _%sym145164%_))) + (if _%type145165145167%_ + (let ((_%type145170%_ _%type145165145167%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%type146164%_ 'gxc#!alias::t)) - (let ((__tmp148846 - (##structure-ref - _%type146164%_ - '1 - gxc#!type::t - '#f))) - (declare (not safe)) - (gxc#optimizer-resolve-type __tmp148846)) - _%type146164%_)) + (##structure-instance-of? _%type145170%_ 'gxc#!alias::t)) + (gxc#optimizer-resolve-type + (##structure-ref _%type145170%_ '1 gxc#!type::t '#f)) + _%type145170%_)) '#f)))) (define gxc#optimizer-lookup-class - (lambda (_%sym146154%_) - (let ((_%table146156%_ + (lambda (_%sym145160%_) + (let ((_%table145162%_ (##structure-ref (let () (declare (not safe)) @@ -3197,37 +3186,34 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get _%table146156%_ _%sym146154%_)))) + (hash-get _%table145162%_ _%sym145160%_)))) (define gxc#optimizer-resolve-class - (lambda (_%where146139%_ _%sym146140%_) - (let ((_%$e146143%_ - (let () - (declare (not safe)) - (gxc#optimizer-lookup-class _%sym146140%_)))) - (if _%$e146143%_ - ((lambda (_%g146145146147%_) - (let ((_%val146150%_ _%g146145146147%_)) + (lambda (_%where145145%_ _%sym145146%_) + (let ((_%$e145149%_ (gxc#optimizer-lookup-class _%sym145146%_))) + (if _%$e145149%_ + ((lambda (_%g145151145153%_) + (let ((_%val145156%_ _%g145151145153%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%val146150%_ + _%val145156%_ 'gxc#!class::t)) - _%val146150%_ + _%val145156%_ (let () (declare (not safe)) - (error '"bad cast" gxc#!class::t _%val146150%_))))) - _%$e146143%_) + (error '"bad cast" gxc#!class::t _%val145156%_))))) + _%$e145149%_) (let () (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _%where146139%_ - _%sym146140%_)) + _%where145145%_ + _%sym145146%_)) '#!void))))) (define gxc#optimizer-lookup-class-name - (lambda (_%klass146137%_) - (let ((__tmp148847 + (lambda (_%klass145143%_) + (let ((__tmp147943 (##structure-ref (let () (declare (not safe)) @@ -3236,23 +3222,18 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp148847 _%klass146137%_)))) + (hash-get __tmp147943 _%klass145143%_)))) (define gxc#optimizer-lookup-method - (lambda (_%type-t146134%_ _%method146135%_) - (let ((__tmp148848 - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - 'lookup-method - _%type-t146134%_)))) - (declare (not safe)) - (gxc#!class-lookup-method __tmp148848 _%method146135%_)))) + (lambda (_%type-t145140%_ _%method145141%_) + (gxc#!class-lookup-method + (gxc#optimizer-resolve-class 'lookup-method _%type-t145140%_) + _%method145141%_))) (define gxc#optimizer-top-level-method! - (lambda (_%sym146132%_) + (lambda (_%sym145138%_) (let () (declare (not safe)) - (gxc#verbose '"top-level method: " _%sym146132%_)) - (let ((__tmp148849 + (gxc#verbose '"top-level method: " _%sym145138%_)) + (let ((__tmp147944 (##structure-ref (let () (declare (not safe)) @@ -3261,10 +3242,10 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp148849 _%sym146132%_ '#t)))) + (hash-put! __tmp147944 _%sym145138%_ '#t)))) (define gxc#optimizer-top-level-method? - (lambda (_%sym146130%_) - (let ((__tmp148850 + (lambda (_%sym145136%_) + (let ((__tmp147945 (##structure-ref (let () (declare (not safe)) @@ -3273,4 +3254,4 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp148850 _%sym146130%_)))))) + (hash-get __tmp147945 _%sym145136%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base~1.scm b/src/bootstrap/gerbil/compiler/optimize-base~1.scm index 8028541e6..7306d1f8b 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base~1.scm @@ -1,2379 +1,2414 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g148852_| + (define |gxc[1]#_g147947_| (##structure gx#syntax-quote::t 'optimizer-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148854_| + (define |gxc[1]#_g147949_| (##structure gx#syntax-quote::t 'make-optimizer-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148856_| + (define |gxc[1]#_g147951_| (##structure gx#syntax-quote::t 'optimizer-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148858_| + (define |gxc[1]#_g147953_| (##structure gx#syntax-quote::t 'optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148859_| + (define |gxc[1]#_g147954_| (##structure gx#syntax-quote::t 'optimizer-info-classes #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148860_| + (define |gxc[1]#_g147955_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148861_| + (define |gxc[1]#_g147956_| (##structure gx#syntax-quote::t 'optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148863_| + (define |gxc[1]#_g147958_| (##structure gx#syntax-quote::t 'optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148864_| + (define |gxc[1]#_g147959_| (##structure gx#syntax-quote::t 'optimizer-info-classes-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148865_| + (define |gxc[1]#_g147960_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148866_| + (define |gxc[1]#_g147961_| (##structure gx#syntax-quote::t 'optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148868_| + (define |gxc[1]#_g147963_| (##structure gx#syntax-quote::t '&optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148869_| + (define |gxc[1]#_g147964_| (##structure gx#syntax-quote::t '&optimizer-info-classes #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148870_| + (define |gxc[1]#_g147965_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148871_| + (define |gxc[1]#_g147966_| (##structure gx#syntax-quote::t '&optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148873_| + (define |gxc[1]#_g147968_| (##structure gx#syntax-quote::t '&optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148874_| + (define |gxc[1]#_g147969_| (##structure gx#syntax-quote::t '&optimizer-info-classes-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148875_| + (define |gxc[1]#_g147970_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148876_| + (define |gxc[1]#_g147971_| (##structure gx#syntax-quote::t '&optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148878_| + (define |gxc[1]#_g147973_| (##structure gx#syntax-quote::t '!type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148880_| + (define |gxc[1]#_g147975_| (##structure gx#syntax-quote::t 'make-!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148882_| + (define |gxc[1]#_g147977_| (##structure gx#syntax-quote::t '!type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148884_| + (define |gxc[1]#_g147979_| (##structure gx#syntax-quote::t '!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148886_| + (define |gxc[1]#_g147981_| (##structure gx#syntax-quote::t '!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148888_| + (define |gxc[1]#_g147983_| (##structure gx#syntax-quote::t '&!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148890_| + (define |gxc[1]#_g147985_| (##structure gx#syntax-quote::t '&!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148892_| + (define |gxc[1]#_g147987_| (##structure gx#syntax-quote::t '!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148894_| + (define |gxc[1]#_g147989_| (##structure gx#syntax-quote::t '!abort::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148896_| + (define |gxc[1]#_g147991_| (##structure gx#syntax-quote::t 'make-!abort #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148898_| + (define |gxc[1]#_g147993_| (##structure gx#syntax-quote::t '!abort? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148900_| + (define |gxc[1]#_g147995_| (##structure gx#syntax-quote::t '!abort-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148902_| + (define |gxc[1]#_g147997_| (##structure gx#syntax-quote::t '!abort-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148904_| + (define |gxc[1]#_g147999_| (##structure gx#syntax-quote::t '&!abort-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148906_| + (define |gxc[1]#_g148001_| (##structure gx#syntax-quote::t '&!abort-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148909_| + (define |gxc[1]#_g148004_| (##structure gx#syntax-quote::t '!alias::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148911_| + (define |gxc[1]#_g148006_| (##structure gx#syntax-quote::t 'make-!alias #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148913_| + (define |gxc[1]#_g148008_| (##structure gx#syntax-quote::t '!alias? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148915_| + (define |gxc[1]#_g148010_| (##structure gx#syntax-quote::t '!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148917_| + (define |gxc[1]#_g148012_| (##structure gx#syntax-quote::t '!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148919_| + (define |gxc[1]#_g148014_| (##structure gx#syntax-quote::t '&!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148921_| + (define |gxc[1]#_g148016_| (##structure gx#syntax-quote::t '&!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148924_| + (define |gxc[1]#_g148018_| (##structure gx#syntax-quote::t - '!procedure::t - #f - (gx#current-expander-context) - '())) - (define |gxc[1]#_g148926_| - (##structure - gx#syntax-quote::t - 'make-!procedure - #f - (gx#current-expander-context) - '())) - (define |gxc[1]#_g148928_| - (##structure - gx#syntax-quote::t - '!procedure? - #f - (gx#current-expander-context) - '())) - (define |gxc[1]#_g148930_| - (##structure - gx#syntax-quote::t - '!procedure-signature - #f - (gx#current-expander-context) - '())) - (define |gxc[1]#_g148931_| - (##structure - gx#syntax-quote::t - '!procedure-id - #f - (gx#current-expander-context) - '())) - (define |gxc[1]#_g148933_| - (##structure - gx#syntax-quote::t - '!procedure-signature-set! - #f - (gx#current-expander-context) - '())) - (define |gxc[1]#_g148934_| - (##structure - gx#syntax-quote::t - '!procedure-id-set! - #f - (gx#current-expander-context) - '())) - (define |gxc[1]#_g148936_| - (##structure - gx#syntax-quote::t - '&!procedure-signature + '!signature::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148937_| + (define |gxc[1]#_g148020_| (##structure gx#syntax-quote::t - '&!procedure-id + 'make-!signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148939_| + (define |gxc[1]#_g148022_| (##structure gx#syntax-quote::t - '&!procedure-signature-set! + '!signature? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148940_| + (define |gxc[1]#_g148024_| (##structure gx#syntax-quote::t - '&!procedure-id-set! + '!signature-return #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148942_| + (define |gxc[1]#_g148025_| (##structure gx#syntax-quote::t - '!signature::t + '!signature-effect #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148944_| + (define |gxc[1]#_g148026_| (##structure gx#syntax-quote::t - 'make-!signature + '!signature-arguments #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148946_| + (define |gxc[1]#_g148027_| (##structure gx#syntax-quote::t - '!signature? + '!signature-unchecked #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148948_| + (define |gxc[1]#_g148028_| (##structure gx#syntax-quote::t - '!signature-return + '!signature-origin #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148949_| + (define |gxc[1]#_g148030_| (##structure gx#syntax-quote::t - '!signature-effect + '!signature-return-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148950_| + (define |gxc[1]#_g148031_| (##structure gx#syntax-quote::t - '!signature-arguments + '!signature-effect-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148951_| + (define |gxc[1]#_g148032_| (##structure gx#syntax-quote::t - '!signature-unchecked + '!signature-arguments-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148953_| + (define |gxc[1]#_g148033_| (##structure gx#syntax-quote::t - '!signature-return-set! + '!signature-unchecked-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148954_| + (define |gxc[1]#_g148034_| (##structure gx#syntax-quote::t - '!signature-effect-set! + '!signature-origin-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148955_| + (define |gxc[1]#_g148036_| (##structure gx#syntax-quote::t - '!signature-arguments-set! + '&!signature-return #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148956_| + (define |gxc[1]#_g148037_| (##structure gx#syntax-quote::t - '!signature-unchecked-set! + '&!signature-effect #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148958_| + (define |gxc[1]#_g148038_| (##structure gx#syntax-quote::t - '&!signature-return + '&!signature-arguments #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148959_| + (define |gxc[1]#_g148039_| (##structure gx#syntax-quote::t - '&!signature-effect + '&!signature-unchecked #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148960_| + (define |gxc[1]#_g148040_| (##structure gx#syntax-quote::t - '&!signature-arguments + '&!signature-origin #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148961_| + (define |gxc[1]#_g148042_| (##structure gx#syntax-quote::t - '&!signature-unchecked + '&!signature-return-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148963_| + (define |gxc[1]#_g148043_| (##structure gx#syntax-quote::t - '&!signature-return-set! + '&!signature-effect-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148964_| + (define |gxc[1]#_g148044_| (##structure gx#syntax-quote::t - '&!signature-effect-set! + '&!signature-arguments-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148965_| + (define |gxc[1]#_g148045_| (##structure gx#syntax-quote::t - '&!signature-arguments-set! + '&!signature-unchecked-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148966_| + (define |gxc[1]#_g148046_| (##structure gx#syntax-quote::t - '&!signature-unchecked-set! + '&!signature-origin-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148968_| + (define |gxc[1]#_g148049_| (##structure gx#syntax-quote::t - '!procedure + '!procedure::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148970_| + (define |gxc[1]#_g148051_| (##structure gx#syntax-quote::t - '!primitive-predicate::t + 'make-!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148972_| + (define |gxc[1]#_g148053_| (##structure gx#syntax-quote::t - 'make-!primitive-predicate + '!procedure? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148974_| + (define |gxc[1]#_g148055_| (##structure gx#syntax-quote::t - '!primitive-predicate? + '!procedure-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148976_| + (define |gxc[1]#_g148056_| (##structure gx#syntax-quote::t - '!primitive-predicate-signature + '!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148977_| + (define |gxc[1]#_g148058_| (##structure gx#syntax-quote::t - '!primitive-predicate-id + '!procedure-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148979_| + (define |gxc[1]#_g148059_| (##structure gx#syntax-quote::t - '!primitive-predicate-signature-set! + '!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148980_| + (define |gxc[1]#_g148061_| (##structure gx#syntax-quote::t - '!primitive-predicate-id-set! + '&!procedure-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148982_| + (define |gxc[1]#_g148062_| (##structure gx#syntax-quote::t - '&!primitive-predicate-signature + '&!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148983_| + (define |gxc[1]#_g148064_| (##structure gx#syntax-quote::t - '&!primitive-predicate-id + '&!procedure-unchecked-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148985_| + (define |gxc[1]#_g148065_| (##structure gx#syntax-quote::t - '&!primitive-predicate-signature-set! + '&!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148986_| + (define |gxc[1]#_g148067_| (##structure gx#syntax-quote::t - '&!primitive-predicate-id-set! + '!signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148989_| + (define |gxc[1]#_g148071_| (##structure gx#syntax-quote::t '!class-meta::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148991_| + (define |gxc[1]#_g148073_| (##structure gx#syntax-quote::t 'make-!class-meta #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148993_| + (define |gxc[1]#_g148075_| (##structure gx#syntax-quote::t '!class-meta? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148995_| + (define |gxc[1]#_g148077_| (##structure gx#syntax-quote::t '!class-meta-class #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148996_| + (define |gxc[1]#_g148078_| (##structure gx#syntax-quote::t '!class-meta-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148998_| + (define |gxc[1]#_g148080_| (##structure gx#syntax-quote::t '!class-meta-class-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g148999_| + (define |gxc[1]#_g148081_| (##structure gx#syntax-quote::t '!class-meta-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149001_| + (define |gxc[1]#_g148083_| (##structure gx#syntax-quote::t '&!class-meta-class #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149002_| + (define |gxc[1]#_g148084_| (##structure gx#syntax-quote::t '&!class-meta-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149004_| + (define |gxc[1]#_g148086_| (##structure gx#syntax-quote::t '&!class-meta-class-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149005_| + (define |gxc[1]#_g148087_| (##structure gx#syntax-quote::t '&!class-meta-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149008_| + (define |gxc[1]#_g148090_| (##structure gx#syntax-quote::t '!class::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149010_| + (define |gxc[1]#_g148092_| (##structure gx#syntax-quote::t 'make-!class #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149012_| + (define |gxc[1]#_g148094_| (##structure gx#syntax-quote::t '!class? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149014_| + (define |gxc[1]#_g148096_| (##structure gx#syntax-quote::t '!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149015_| + (define |gxc[1]#_g148097_| (##structure gx#syntax-quote::t '!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149016_| + (define |gxc[1]#_g148098_| (##structure gx#syntax-quote::t '!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149017_| + (define |gxc[1]#_g148099_| (##structure gx#syntax-quote::t '!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149018_| + (define |gxc[1]#_g148100_| (##structure gx#syntax-quote::t '!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149019_| + (define |gxc[1]#_g148101_| (##structure gx#syntax-quote::t '!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149020_| + (define |gxc[1]#_g148102_| (##structure gx#syntax-quote::t '!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149021_| + (define |gxc[1]#_g148103_| (##structure gx#syntax-quote::t '!class-system? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149022_| + (define |gxc[1]#_g148104_| (##structure gx#syntax-quote::t '!class-metaclass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149023_| + (define |gxc[1]#_g148105_| (##structure gx#syntax-quote::t '!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149024_| + (define |gxc[1]#_g148106_| (##structure gx#syntax-quote::t '!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149026_| + (define |gxc[1]#_g148108_| (##structure gx#syntax-quote::t '!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149027_| + (define |gxc[1]#_g148109_| (##structure gx#syntax-quote::t '!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149028_| + (define |gxc[1]#_g148110_| (##structure gx#syntax-quote::t '!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149029_| + (define |gxc[1]#_g148111_| (##structure gx#syntax-quote::t '!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149030_| + (define |gxc[1]#_g148112_| (##structure gx#syntax-quote::t '!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149031_| + (define |gxc[1]#_g148113_| (##structure gx#syntax-quote::t '!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149032_| + (define |gxc[1]#_g148114_| (##structure gx#syntax-quote::t '!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149033_| + (define |gxc[1]#_g148115_| (##structure gx#syntax-quote::t '!class-system?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149034_| + (define |gxc[1]#_g148116_| (##structure gx#syntax-quote::t '!class-metaclass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149035_| + (define |gxc[1]#_g148117_| (##structure gx#syntax-quote::t '!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149036_| + (define |gxc[1]#_g148118_| (##structure gx#syntax-quote::t '!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149038_| + (define |gxc[1]#_g148120_| (##structure gx#syntax-quote::t '&!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149039_| + (define |gxc[1]#_g148121_| (##structure gx#syntax-quote::t '&!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149040_| + (define |gxc[1]#_g148122_| (##structure gx#syntax-quote::t '&!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149041_| + (define |gxc[1]#_g148123_| (##structure gx#syntax-quote::t '&!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149042_| + (define |gxc[1]#_g148124_| (##structure gx#syntax-quote::t '&!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149043_| + (define |gxc[1]#_g148125_| (##structure gx#syntax-quote::t '&!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149044_| + (define |gxc[1]#_g148126_| (##structure gx#syntax-quote::t '&!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149045_| + (define |gxc[1]#_g148127_| (##structure gx#syntax-quote::t '&!class-system? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149046_| + (define |gxc[1]#_g148128_| (##structure gx#syntax-quote::t '&!class-metaclass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149047_| + (define |gxc[1]#_g148129_| (##structure gx#syntax-quote::t '&!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149048_| + (define |gxc[1]#_g148130_| (##structure gx#syntax-quote::t '&!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149050_| + (define |gxc[1]#_g148132_| (##structure gx#syntax-quote::t '&!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149051_| + (define |gxc[1]#_g148133_| (##structure gx#syntax-quote::t '&!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149052_| + (define |gxc[1]#_g148134_| (##structure gx#syntax-quote::t '&!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149053_| + (define |gxc[1]#_g148135_| (##structure gx#syntax-quote::t '&!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149054_| + (define |gxc[1]#_g148136_| (##structure gx#syntax-quote::t '&!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149055_| + (define |gxc[1]#_g148137_| (##structure gx#syntax-quote::t '&!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149056_| + (define |gxc[1]#_g148138_| (##structure gx#syntax-quote::t '&!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149057_| + (define |gxc[1]#_g148139_| (##structure gx#syntax-quote::t '&!class-system?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149058_| + (define |gxc[1]#_g148140_| (##structure gx#syntax-quote::t '&!class-metaclass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149059_| + (define |gxc[1]#_g148141_| (##structure gx#syntax-quote::t '&!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149060_| + (define |gxc[1]#_g148142_| (##structure gx#syntax-quote::t '&!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149063_| + (define |gxc[1]#_g148144_| + (##structure + gx#syntax-quote::t + '!procedure + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g148146_| (##structure gx#syntax-quote::t '!predicate::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149065_| + (define |gxc[1]#_g148148_| (##structure gx#syntax-quote::t 'make-!predicate #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149067_| + (define |gxc[1]#_g148150_| (##structure gx#syntax-quote::t '!predicate? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149069_| + (define |gxc[1]#_g148152_| (##structure gx#syntax-quote::t '!predicate-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149070_| + (define |gxc[1]#_g148153_| (##structure gx#syntax-quote::t '!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149072_| + (define |gxc[1]#_g148155_| (##structure gx#syntax-quote::t '!predicate-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149073_| + (define |gxc[1]#_g148156_| (##structure gx#syntax-quote::t '!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149075_| + (define |gxc[1]#_g148158_| (##structure gx#syntax-quote::t '&!predicate-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149076_| + (define |gxc[1]#_g148159_| (##structure gx#syntax-quote::t '&!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149078_| + (define |gxc[1]#_g148161_| (##structure gx#syntax-quote::t '&!predicate-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149079_| + (define |gxc[1]#_g148162_| (##structure gx#syntax-quote::t '&!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149082_| + (define |gxc[1]#_g148166_| (##structure gx#syntax-quote::t '!constructor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149084_| + (define |gxc[1]#_g148168_| (##structure gx#syntax-quote::t 'make-!constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149086_| + (define |gxc[1]#_g148170_| (##structure gx#syntax-quote::t '!constructor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149088_| + (define |gxc[1]#_g148172_| (##structure gx#syntax-quote::t '!constructor-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149089_| + (define |gxc[1]#_g148173_| (##structure gx#syntax-quote::t '!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149091_| + (define |gxc[1]#_g148175_| (##structure gx#syntax-quote::t '!constructor-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149092_| + (define |gxc[1]#_g148176_| (##structure gx#syntax-quote::t '!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149094_| + (define |gxc[1]#_g148178_| (##structure gx#syntax-quote::t '&!constructor-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149095_| + (define |gxc[1]#_g148179_| (##structure gx#syntax-quote::t '&!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149097_| + (define |gxc[1]#_g148181_| (##structure gx#syntax-quote::t '&!constructor-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149098_| + (define |gxc[1]#_g148182_| (##structure gx#syntax-quote::t '&!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149101_| + (define |gxc[1]#_g148186_| (##structure gx#syntax-quote::t '!accessor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149103_| + (define |gxc[1]#_g148188_| (##structure gx#syntax-quote::t 'make-!accessor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149105_| + (define |gxc[1]#_g148190_| (##structure gx#syntax-quote::t '!accessor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149107_| + (define |gxc[1]#_g148192_| (##structure gx#syntax-quote::t '!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149108_| + (define |gxc[1]#_g148193_| (##structure gx#syntax-quote::t '!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149109_| + (define |gxc[1]#_g148194_| (##structure gx#syntax-quote::t '!accessor-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149110_| + (define |gxc[1]#_g148195_| (##structure gx#syntax-quote::t '!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149112_| + (define |gxc[1]#_g148197_| (##structure gx#syntax-quote::t '!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149113_| + (define |gxc[1]#_g148198_| (##structure gx#syntax-quote::t '!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149114_| + (define |gxc[1]#_g148199_| (##structure gx#syntax-quote::t '!accessor-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149115_| + (define |gxc[1]#_g148200_| (##structure gx#syntax-quote::t '!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149117_| + (define |gxc[1]#_g148202_| (##structure gx#syntax-quote::t '&!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149118_| + (define |gxc[1]#_g148203_| (##structure gx#syntax-quote::t '&!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149119_| + (define |gxc[1]#_g148204_| (##structure gx#syntax-quote::t '&!accessor-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149120_| + (define |gxc[1]#_g148205_| (##structure gx#syntax-quote::t '&!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149122_| + (define |gxc[1]#_g148207_| (##structure gx#syntax-quote::t '&!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149123_| + (define |gxc[1]#_g148208_| (##structure gx#syntax-quote::t '&!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149124_| + (define |gxc[1]#_g148209_| (##structure gx#syntax-quote::t '&!accessor-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149125_| + (define |gxc[1]#_g148210_| (##structure gx#syntax-quote::t '&!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149128_| + (define |gxc[1]#_g148214_| (##structure gx#syntax-quote::t '!mutator::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149130_| + (define |gxc[1]#_g148216_| (##structure gx#syntax-quote::t 'make-!mutator #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149132_| + (define |gxc[1]#_g148218_| (##structure gx#syntax-quote::t '!mutator? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149134_| + (define |gxc[1]#_g148220_| (##structure gx#syntax-quote::t '!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149135_| + (define |gxc[1]#_g148221_| (##structure gx#syntax-quote::t '!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149136_| + (define |gxc[1]#_g148222_| (##structure gx#syntax-quote::t '!mutator-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149137_| + (define |gxc[1]#_g148223_| (##structure gx#syntax-quote::t '!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149139_| + (define |gxc[1]#_g148225_| (##structure gx#syntax-quote::t '!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149140_| + (define |gxc[1]#_g148226_| (##structure gx#syntax-quote::t '!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149141_| + (define |gxc[1]#_g148227_| (##structure gx#syntax-quote::t '!mutator-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149142_| + (define |gxc[1]#_g148228_| (##structure gx#syntax-quote::t '!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149144_| + (define |gxc[1]#_g148230_| (##structure gx#syntax-quote::t '&!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149145_| + (define |gxc[1]#_g148231_| (##structure gx#syntax-quote::t '&!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149146_| + (define |gxc[1]#_g148232_| (##structure gx#syntax-quote::t '&!mutator-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149147_| + (define |gxc[1]#_g148233_| (##structure gx#syntax-quote::t '&!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149149_| + (define |gxc[1]#_g148235_| (##structure gx#syntax-quote::t '&!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149150_| + (define |gxc[1]#_g148236_| (##structure gx#syntax-quote::t '&!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149151_| + (define |gxc[1]#_g148237_| (##structure gx#syntax-quote::t '&!mutator-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149152_| + (define |gxc[1]#_g148238_| (##structure gx#syntax-quote::t '&!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149155_| + (define |gxc[1]#_g148242_| (##structure gx#syntax-quote::t '!interface::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149157_| + (define |gxc[1]#_g148244_| (##structure gx#syntax-quote::t 'make-!interface #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149159_| + (define |gxc[1]#_g148246_| (##structure gx#syntax-quote::t '!interface? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149161_| + (define |gxc[1]#_g148248_| (##structure gx#syntax-quote::t '!interface-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149162_| + (define |gxc[1]#_g148249_| (##structure gx#syntax-quote::t '!interface-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149164_| + (define |gxc[1]#_g148251_| (##structure gx#syntax-quote::t '!interface-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149165_| + (define |gxc[1]#_g148252_| (##structure gx#syntax-quote::t '!interface-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149167_| + (define |gxc[1]#_g148254_| (##structure gx#syntax-quote::t '&!interface-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149168_| + (define |gxc[1]#_g148255_| (##structure gx#syntax-quote::t '&!interface-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149170_| + (define |gxc[1]#_g148257_| (##structure gx#syntax-quote::t '&!interface-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149171_| + (define |gxc[1]#_g148258_| (##structure gx#syntax-quote::t '&!interface-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149174_| + (define |gxc[1]#_g148261_| (##structure gx#syntax-quote::t '!lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149176_| + (define |gxc[1]#_g148263_| (##structure gx#syntax-quote::t 'make-!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149178_| + (define |gxc[1]#_g148265_| (##structure gx#syntax-quote::t '!lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149180_| + (define |gxc[1]#_g148267_| (##structure gx#syntax-quote::t '!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149181_| + (define |gxc[1]#_g148268_| (##structure gx#syntax-quote::t '!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149182_| + (define |gxc[1]#_g148269_| (##structure gx#syntax-quote::t '!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149183_| + (define |gxc[1]#_g148270_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149184_| + (define |gxc[1]#_g148271_| (##structure gx#syntax-quote::t '!lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149185_| + (define |gxc[1]#_g148272_| (##structure gx#syntax-quote::t '!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149187_| + (define |gxc[1]#_g148274_| (##structure gx#syntax-quote::t '!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149188_| + (define |gxc[1]#_g148275_| (##structure gx#syntax-quote::t '!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149189_| + (define |gxc[1]#_g148276_| (##structure gx#syntax-quote::t '!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149190_| + (define |gxc[1]#_g148277_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149191_| + (define |gxc[1]#_g148278_| (##structure gx#syntax-quote::t '!lambda-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149192_| + (define |gxc[1]#_g148279_| (##structure gx#syntax-quote::t '!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149194_| + (define |gxc[1]#_g148281_| (##structure gx#syntax-quote::t '&!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149195_| + (define |gxc[1]#_g148282_| (##structure gx#syntax-quote::t '&!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149196_| + (define |gxc[1]#_g148283_| (##structure gx#syntax-quote::t '&!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149197_| + (define |gxc[1]#_g148284_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149198_| + (define |gxc[1]#_g148285_| (##structure gx#syntax-quote::t '&!lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149199_| + (define |gxc[1]#_g148286_| (##structure gx#syntax-quote::t '&!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149201_| + (define |gxc[1]#_g148288_| (##structure gx#syntax-quote::t '&!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149202_| + (define |gxc[1]#_g148289_| (##structure gx#syntax-quote::t '&!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149203_| + (define |gxc[1]#_g148290_| (##structure gx#syntax-quote::t '&!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149204_| + (define |gxc[1]#_g148291_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149205_| + (define |gxc[1]#_g148292_| (##structure gx#syntax-quote::t '&!lambda-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149206_| + (define |gxc[1]#_g148293_| (##structure gx#syntax-quote::t '&!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149209_| + (define |gxc[1]#_g148297_| (##structure gx#syntax-quote::t '!case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149211_| + (define |gxc[1]#_g148299_| (##structure gx#syntax-quote::t 'make-!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149213_| + (define |gxc[1]#_g148301_| (##structure gx#syntax-quote::t '!case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149215_| + (define |gxc[1]#_g148303_| (##structure gx#syntax-quote::t '!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149216_| + (define |gxc[1]#_g148304_| (##structure gx#syntax-quote::t '!case-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149217_| + (define |gxc[1]#_g148305_| (##structure gx#syntax-quote::t '!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149219_| + (define |gxc[1]#_g148307_| (##structure gx#syntax-quote::t '!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149220_| + (define |gxc[1]#_g148308_| (##structure gx#syntax-quote::t '!case-lambda-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149221_| + (define |gxc[1]#_g148309_| (##structure gx#syntax-quote::t '!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149223_| + (define |gxc[1]#_g148311_| (##structure gx#syntax-quote::t '&!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149224_| + (define |gxc[1]#_g148312_| (##structure gx#syntax-quote::t '&!case-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149225_| + (define |gxc[1]#_g148313_| (##structure gx#syntax-quote::t '&!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149227_| + (define |gxc[1]#_g148315_| (##structure gx#syntax-quote::t '&!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149228_| + (define |gxc[1]#_g148316_| (##structure gx#syntax-quote::t '&!case-lambda-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149229_| + (define |gxc[1]#_g148317_| (##structure gx#syntax-quote::t '&!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149232_| + (define |gxc[1]#_g148321_| (##structure gx#syntax-quote::t '!kw-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149234_| + (define |gxc[1]#_g148323_| (##structure gx#syntax-quote::t 'make-!kw-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149236_| + (define |gxc[1]#_g148325_| (##structure gx#syntax-quote::t '!kw-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149238_| + (define |gxc[1]#_g148327_| (##structure gx#syntax-quote::t '!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149239_| + (define |gxc[1]#_g148328_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149240_| + (define |gxc[1]#_g148329_| (##structure gx#syntax-quote::t '!kw-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149241_| + (define |gxc[1]#_g148330_| (##structure gx#syntax-quote::t '!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149243_| + (define |gxc[1]#_g148332_| (##structure gx#syntax-quote::t '!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149244_| + (define |gxc[1]#_g148333_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149245_| + (define |gxc[1]#_g148334_| (##structure gx#syntax-quote::t '!kw-lambda-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149246_| + (define |gxc[1]#_g148335_| (##structure gx#syntax-quote::t '!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149248_| + (define |gxc[1]#_g148337_| (##structure gx#syntax-quote::t '&!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149249_| + (define |gxc[1]#_g148338_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149250_| + (define |gxc[1]#_g148339_| (##structure gx#syntax-quote::t '&!kw-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149251_| + (define |gxc[1]#_g148340_| (##structure gx#syntax-quote::t '&!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149253_| + (define |gxc[1]#_g148342_| (##structure gx#syntax-quote::t '&!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149254_| + (define |gxc[1]#_g148343_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149255_| + (define |gxc[1]#_g148344_| (##structure gx#syntax-quote::t '&!kw-lambda-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149256_| + (define |gxc[1]#_g148345_| (##structure gx#syntax-quote::t '&!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149259_| + (define |gxc[1]#_g148349_| (##structure gx#syntax-quote::t '!kw-lambda-primary::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149261_| + (define |gxc[1]#_g148351_| (##structure gx#syntax-quote::t 'make-!kw-lambda-primary #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149263_| + (define |gxc[1]#_g148353_| (##structure gx#syntax-quote::t '!kw-lambda-primary? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149265_| + (define |gxc[1]#_g148355_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149266_| + (define |gxc[1]#_g148356_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149267_| + (define |gxc[1]#_g148357_| (##structure gx#syntax-quote::t '!kw-lambda-primary-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149268_| + (define |gxc[1]#_g148358_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149270_| + (define |gxc[1]#_g148360_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149271_| + (define |gxc[1]#_g148361_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149272_| + (define |gxc[1]#_g148362_| (##structure gx#syntax-quote::t '!kw-lambda-primary-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149273_| + (define |gxc[1]#_g148363_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149275_| + (define |gxc[1]#_g148365_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149276_| + (define |gxc[1]#_g148366_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149277_| + (define |gxc[1]#_g148367_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149278_| + (define |gxc[1]#_g148368_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149280_| + (define |gxc[1]#_g148370_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149281_| + (define |gxc[1]#_g148371_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149282_| + (define |gxc[1]#_g148372_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149283_| + (define |gxc[1]#_g148373_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149285_| + (define |gxc[1]#_g148376_| (##structure gx#syntax-quote::t '!primitive::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149287_| + (define |gxc[1]#_g148378_| (##structure gx#syntax-quote::t 'make-!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149289_| + (define |gxc[1]#_g148380_| (##structure gx#syntax-quote::t '!primitive? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149291_| + (define |gxc[1]#_g148382_| (##structure gx#syntax-quote::t '!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149292_| + (define |gxc[1]#_g148384_| + (##structure + gx#syntax-quote::t + '!primitive-predicate::t + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g148386_| + (##structure + gx#syntax-quote::t + 'make-!primitive-predicate + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g148388_| + (##structure + gx#syntax-quote::t + '!primitive-predicate? + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g148390_| + (##structure + gx#syntax-quote::t + '!primitive-predicate-signature + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g148391_| + (##structure + gx#syntax-quote::t + '!primitive-predicate-id + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g148393_| + (##structure + gx#syntax-quote::t + '!primitive-predicate-signature-set! + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g148394_| + (##structure + gx#syntax-quote::t + '!primitive-predicate-id-set! + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g148396_| + (##structure + gx#syntax-quote::t + '&!primitive-predicate-signature + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g148397_| + (##structure + gx#syntax-quote::t + '&!primitive-predicate-id + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g148399_| + (##structure + gx#syntax-quote::t + '&!primitive-predicate-signature-set! + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g148400_| + (##structure + gx#syntax-quote::t + '&!primitive-predicate-id-set! + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g148403_| (##structure gx#syntax-quote::t '!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149294_| + (define |gxc[1]#_g148405_| (##structure gx#syntax-quote::t '!primitive-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149296_| + (define |gxc[1]#_g148407_| (##structure gx#syntax-quote::t 'make-!primitive-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149298_| + (define |gxc[1]#_g148409_| (##structure gx#syntax-quote::t '!primitive-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149300_| + (define |gxc[1]#_g148411_| (##structure gx#syntax-quote::t '!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149301_| + (define |gxc[1]#_g148412_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149302_| + (define |gxc[1]#_g148413_| (##structure gx#syntax-quote::t '!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149303_| + (define |gxc[1]#_g148414_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149304_| + (define |gxc[1]#_g148415_| (##structure gx#syntax-quote::t '!primitive-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149305_| + (define |gxc[1]#_g148416_| (##structure gx#syntax-quote::t '!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149307_| + (define |gxc[1]#_g148418_| (##structure gx#syntax-quote::t '!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149308_| + (define |gxc[1]#_g148419_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149309_| + (define |gxc[1]#_g148420_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149310_| + (define |gxc[1]#_g148421_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149311_| + (define |gxc[1]#_g148422_| (##structure gx#syntax-quote::t '!primitive-lambda-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149312_| + (define |gxc[1]#_g148423_| (##structure gx#syntax-quote::t '!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149314_| + (define |gxc[1]#_g148425_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149315_| + (define |gxc[1]#_g148426_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149316_| + (define |gxc[1]#_g148427_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149317_| + (define |gxc[1]#_g148428_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149318_| + (define |gxc[1]#_g148429_| (##structure gx#syntax-quote::t '&!primitive-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149319_| + (define |gxc[1]#_g148430_| (##structure gx#syntax-quote::t '&!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149321_| + (define |gxc[1]#_g148432_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149322_| + (define |gxc[1]#_g148433_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149323_| + (define |gxc[1]#_g148434_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149324_| + (define |gxc[1]#_g148435_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149325_| + (define |gxc[1]#_g148436_| (##structure gx#syntax-quote::t '&!primitive-lambda-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149326_| + (define |gxc[1]#_g148437_| (##structure gx#syntax-quote::t '&!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149328_| + (define |gxc[1]#_g148440_| (##structure gx#syntax-quote::t '!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149330_| + (define |gxc[1]#_g148442_| (##structure gx#syntax-quote::t '!primitive-case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149332_| + (define |gxc[1]#_g148444_| (##structure gx#syntax-quote::t 'make-!primitive-case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149334_| + (define |gxc[1]#_g148446_| (##structure gx#syntax-quote::t '!primitive-case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149336_| + (define |gxc[1]#_g148448_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149337_| + (define |gxc[1]#_g148449_| (##structure gx#syntax-quote::t '!primitive-case-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149338_| + (define |gxc[1]#_g148450_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149340_| + (define |gxc[1]#_g148452_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149341_| + (define |gxc[1]#_g148453_| (##structure gx#syntax-quote::t '!primitive-case-lambda-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149342_| + (define |gxc[1]#_g148454_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149344_| + (define |gxc[1]#_g148456_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149345_| + (define |gxc[1]#_g148457_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149346_| + (define |gxc[1]#_g148458_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149348_| + (define |gxc[1]#_g148460_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149349_| + (define |gxc[1]#_g148461_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-signature-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149350_| + (define |gxc[1]#_g148462_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id-set! @@ -2382,7 +2417,7 @@ '())) (begin (define |gxc[:0:]#optimizer-info| - (let ((__obj148731 + (let ((__obj147834 (let () (declare (not safe)) (##structure @@ -2411,18 +2446,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148731 + __obj147834 'gxc#optimizer-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148731 'optimizer-info '2 '#f '#f)) + (##unchecked-structure-set! __obj147834 'optimizer-info '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148731 + __obj147834 '(type classes ssxi methods) '4 '#f @@ -2430,79 +2465,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148731 + __obj147834 '(type classes ssxi methods) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148731 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj147834 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148731 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147834 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148731 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147834 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148731 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147834 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148731 ':init! '11 '#f '#f)) - (let ((__tmp148851 |gxc[1]#_g148852_|)) + (##unchecked-structure-set! __obj147834 ':init! '11 '#f '#f)) + (let ((__tmp147946 |gxc[1]#_g147947_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148731 __tmp148851 '12 '#f '#f)) - (let ((__tmp148853 |gxc[1]#_g148854_|)) + (##unchecked-structure-set! __obj147834 __tmp147946 '12 '#f '#f)) + (let ((__tmp147948 |gxc[1]#_g147949_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148731 __tmp148853 '13 '#f '#f)) - (let ((__tmp148855 |gxc[1]#_g148856_|)) + (##unchecked-structure-set! __obj147834 __tmp147948 '13 '#f '#f)) + (let ((__tmp147950 |gxc[1]#_g147951_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148731 __tmp148855 '14 '#f '#f)) - (let ((__tmp148857 - (cons (cons 'type |gxc[1]#_g148858_|) - (cons (cons 'classes |gxc[1]#_g148859_|) - (cons (cons 'ssxi |gxc[1]#_g148860_|) - (cons (cons 'methods |gxc[1]#_g148861_|) + (##unchecked-structure-set! __obj147834 __tmp147950 '14 '#f '#f)) + (let ((__tmp147952 + (cons (cons 'type |gxc[1]#_g147953_|) + (cons (cons 'classes |gxc[1]#_g147954_|) + (cons (cons 'ssxi |gxc[1]#_g147955_|) + (cons (cons 'methods |gxc[1]#_g147956_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148731 __tmp148857 '15 '#f '#f)) - (let ((__tmp148862 - (cons (cons 'type |gxc[1]#_g148863_|) - (cons (cons 'classes |gxc[1]#_g148864_|) - (cons (cons 'ssxi |gxc[1]#_g148865_|) - (cons (cons 'methods |gxc[1]#_g148866_|) + (##unchecked-structure-set! __obj147834 __tmp147952 '15 '#f '#f)) + (let ((__tmp147957 + (cons (cons 'type |gxc[1]#_g147958_|) + (cons (cons 'classes |gxc[1]#_g147959_|) + (cons (cons 'ssxi |gxc[1]#_g147960_|) + (cons (cons 'methods |gxc[1]#_g147961_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148731 __tmp148862 '16 '#f '#f)) - (let ((__tmp148867 - (cons (cons 'type |gxc[1]#_g148868_|) - (cons (cons 'classes |gxc[1]#_g148869_|) - (cons (cons 'ssxi |gxc[1]#_g148870_|) - (cons (cons 'methods |gxc[1]#_g148871_|) + (##unchecked-structure-set! __obj147834 __tmp147957 '16 '#f '#f)) + (let ((__tmp147962 + (cons (cons 'type |gxc[1]#_g147963_|) + (cons (cons 'classes |gxc[1]#_g147964_|) + (cons (cons 'ssxi |gxc[1]#_g147965_|) + (cons (cons 'methods |gxc[1]#_g147966_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148731 __tmp148867 '17 '#f '#f)) - (let ((__tmp148872 - (cons (cons 'type |gxc[1]#_g148873_|) - (cons (cons 'classes |gxc[1]#_g148874_|) - (cons (cons 'ssxi |gxc[1]#_g148875_|) - (cons (cons 'methods |gxc[1]#_g148876_|) + (##unchecked-structure-set! __obj147834 __tmp147962 '17 '#f '#f)) + (let ((__tmp147967 + (cons (cons 'type |gxc[1]#_g147968_|) + (cons (cons 'classes |gxc[1]#_g147969_|) + (cons (cons 'ssxi |gxc[1]#_g147970_|) + (cons (cons 'methods |gxc[1]#_g147971_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148731 __tmp148872 '18 '#f '#f)) + (##unchecked-structure-set! __obj147834 __tmp147967 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148731 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147834 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148731 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147834 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148731 '() '20 '#f '#f)) - __obj148731)) + (##unchecked-structure-set! __obj147834 '() '20 '#f '#f)) + __obj147834)) (define |gxc[:0:]#!type| - (let ((__obj148732 + (let ((__obj147835 (let () (declare (not safe)) (##structure @@ -2530,64 +2565,64 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148732 'gxc#!type::t '1 '#f '#f)) + (##unchecked-structure-set! __obj147835 'gxc#!type::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148732 '!type '2 '#f '#f)) + (##unchecked-structure-set! __obj147835 '!type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148732 '(id) '4 '#f '#f)) + (##unchecked-structure-set! __obj147835 '(id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148732 '(id) '6 '#f '#f)) + (##unchecked-structure-set! __obj147835 '(id) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148732 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj147835 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148732 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147835 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148732 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147835 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148732 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147835 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148732 '#f '11 '#f '#f)) - (let ((__tmp148877 |gxc[1]#_g148878_|)) + (##unchecked-structure-set! __obj147835 '#f '11 '#f '#f)) + (let ((__tmp147972 |gxc[1]#_g147973_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148732 __tmp148877 '12 '#f '#f)) - (let ((__tmp148879 |gxc[1]#_g148880_|)) + (##unchecked-structure-set! __obj147835 __tmp147972 '12 '#f '#f)) + (let ((__tmp147974 |gxc[1]#_g147975_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148732 __tmp148879 '13 '#f '#f)) - (let ((__tmp148881 |gxc[1]#_g148882_|)) + (##unchecked-structure-set! __obj147835 __tmp147974 '13 '#f '#f)) + (let ((__tmp147976 |gxc[1]#_g147977_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148732 __tmp148881 '14 '#f '#f)) - (let ((__tmp148883 (cons (cons 'id |gxc[1]#_g148884_|) '()))) + (##unchecked-structure-set! __obj147835 __tmp147976 '14 '#f '#f)) + (let ((__tmp147978 (cons (cons 'id |gxc[1]#_g147979_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148732 __tmp148883 '15 '#f '#f)) - (let ((__tmp148885 (cons (cons 'id |gxc[1]#_g148886_|) '()))) + (##unchecked-structure-set! __obj147835 __tmp147978 '15 '#f '#f)) + (let ((__tmp147980 (cons (cons 'id |gxc[1]#_g147981_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148732 __tmp148885 '16 '#f '#f)) - (let ((__tmp148887 (cons (cons 'id |gxc[1]#_g148888_|) '()))) + (##unchecked-structure-set! __obj147835 __tmp147980 '16 '#f '#f)) + (let ((__tmp147982 (cons (cons 'id |gxc[1]#_g147983_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148732 __tmp148887 '17 '#f '#f)) - (let ((__tmp148889 (cons (cons 'id |gxc[1]#_g148890_|) '()))) + (##unchecked-structure-set! __obj147835 __tmp147982 '17 '#f '#f)) + (let ((__tmp147984 (cons (cons 'id |gxc[1]#_g147985_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148732 __tmp148889 '18 '#f '#f)) + (##unchecked-structure-set! __obj147835 __tmp147984 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148732 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147835 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148732 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147835 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148732 '() '20 '#f '#f)) - __obj148732)) + (##unchecked-structure-set! __obj147835 '() '20 '#f '#f)) + __obj147835)) (define |gxc[:0:]#!abort| - (let ((__obj148733 + (let ((__obj147836 (let () (declare (not safe)) (##structure @@ -2615,149 +2650,64 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148733 'gxc#!abort::t '1 '#f '#f)) + (##unchecked-structure-set! __obj147836 'gxc#!abort::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148733 '!abort '2 '#f '#f)) + (##unchecked-structure-set! __obj147836 '!abort '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148733 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj147836 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148733 '(id) '6 '#f '#f)) - (let ((__tmp148891 (cons |gxc[1]#_g148892_| '()))) + (##unchecked-structure-set! __obj147836 '(id) '6 '#f '#f)) + (let ((__tmp147986 (cons |gxc[1]#_g147987_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148733 __tmp148891 '3 '#f '#f)) + (##unchecked-structure-set! __obj147836 __tmp147986 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148733 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147836 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148733 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147836 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148733 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147836 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148733 ':init! '11 '#f '#f)) - (let ((__tmp148893 |gxc[1]#_g148894_|)) + (##unchecked-structure-set! __obj147836 ':init! '11 '#f '#f)) + (let ((__tmp147988 |gxc[1]#_g147989_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148733 __tmp148893 '12 '#f '#f)) - (let ((__tmp148895 |gxc[1]#_g148896_|)) + (##unchecked-structure-set! __obj147836 __tmp147988 '12 '#f '#f)) + (let ((__tmp147990 |gxc[1]#_g147991_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148733 __tmp148895 '13 '#f '#f)) - (let ((__tmp148897 |gxc[1]#_g148898_|)) + (##unchecked-structure-set! __obj147836 __tmp147990 '13 '#f '#f)) + (let ((__tmp147992 |gxc[1]#_g147993_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148733 __tmp148897 '14 '#f '#f)) - (let ((__tmp148899 (cons (cons 'id |gxc[1]#_g148900_|) '()))) + (##unchecked-structure-set! __obj147836 __tmp147992 '14 '#f '#f)) + (let ((__tmp147994 (cons (cons 'id |gxc[1]#_g147995_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148733 __tmp148899 '15 '#f '#f)) - (let ((__tmp148901 (cons (cons 'id |gxc[1]#_g148902_|) '()))) + (##unchecked-structure-set! __obj147836 __tmp147994 '15 '#f '#f)) + (let ((__tmp147996 (cons (cons 'id |gxc[1]#_g147997_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148733 __tmp148901 '16 '#f '#f)) - (let ((__tmp148903 (cons (cons 'id |gxc[1]#_g148904_|) '()))) + (##unchecked-structure-set! __obj147836 __tmp147996 '16 '#f '#f)) + (let ((__tmp147998 (cons (cons 'id |gxc[1]#_g147999_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148733 __tmp148903 '17 '#f '#f)) - (let ((__tmp148905 (cons (cons 'id |gxc[1]#_g148906_|) '()))) + (##unchecked-structure-set! __obj147836 __tmp147998 '17 '#f '#f)) + (let ((__tmp148000 (cons (cons 'id |gxc[1]#_g148001_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148733 __tmp148905 '18 '#f '#f)) + (##unchecked-structure-set! __obj147836 __tmp148000 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148733 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147836 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148733 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147836 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148733 '() '20 '#f '#f)) - __obj148733)) + (##unchecked-structure-set! __obj147836 '() '20 '#f '#f)) + __obj147836)) (define |gxc[:0:]#!alias| - (let ((__obj148734 - (let () - (declare (not safe)) - (##structure - gerbil/core/mop~MOP-2#class-type-info::t - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj148734 'gxc#!alias::t '1 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj148734 '!alias '2 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj148734 '() '4 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj148734 '(id) '6 '#f '#f)) - (let ((__tmp148907 (cons |gxc[1]#_g148892_| '()))) - (declare (not safe)) - (##unchecked-structure-set! __obj148734 __tmp148907 '3 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj148734 '#t '7 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj148734 '#f '8 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj148734 '#f '10 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj148734 '#f '11 '#f '#f)) - (let ((__tmp148908 |gxc[1]#_g148909_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj148734 __tmp148908 '12 '#f '#f)) - (let ((__tmp148910 |gxc[1]#_g148911_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj148734 __tmp148910 '13 '#f '#f)) - (let ((__tmp148912 |gxc[1]#_g148913_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj148734 __tmp148912 '14 '#f '#f)) - (let ((__tmp148914 (cons (cons 'id |gxc[1]#_g148915_|) '()))) - (declare (not safe)) - (##unchecked-structure-set! __obj148734 __tmp148914 '15 '#f '#f)) - (let ((__tmp148916 (cons (cons 'id |gxc[1]#_g148917_|) '()))) - (declare (not safe)) - (##unchecked-structure-set! __obj148734 __tmp148916 '16 '#f '#f)) - (let ((__tmp148918 (cons (cons 'id |gxc[1]#_g148919_|) '()))) - (declare (not safe)) - (##unchecked-structure-set! __obj148734 __tmp148918 '17 '#f '#f)) - (let ((__tmp148920 (cons (cons 'id |gxc[1]#_g148921_|) '()))) - (declare (not safe)) - (##unchecked-structure-set! __obj148734 __tmp148920 '18 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj148734 '() '19 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj148734 '() '21 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj148734 '() '20 '#f '#f)) - __obj148734)) - (define |gxc[:0:]#!procedure| - (let ((__obj148735 + (let ((__obj147837 (let () (declare (not safe)) (##structure @@ -2785,77 +2735,64 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! - __obj148735 - 'gxc#!procedure::t - '1 - '#f - '#f)) + (##unchecked-structure-set! __obj147837 'gxc#!alias::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148735 '!procedure '2 '#f '#f)) + (##unchecked-structure-set! __obj147837 '!alias '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148735 '(signature) '4 '#f '#f)) + (##unchecked-structure-set! __obj147837 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148735 '(id signature) '6 '#f '#f)) - (let ((__tmp148922 (cons |gxc[1]#_g148892_| '()))) + (##unchecked-structure-set! __obj147837 '(id) '6 '#f '#f)) + (let ((__tmp148002 (cons |gxc[1]#_g147987_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148735 __tmp148922 '3 '#f '#f)) + (##unchecked-structure-set! __obj147837 __tmp148002 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148735 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147837 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148735 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147837 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148735 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147837 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148735 '#f '11 '#f '#f)) - (let ((__tmp148923 |gxc[1]#_g148924_|)) + (##unchecked-structure-set! __obj147837 '#f '11 '#f '#f)) + (let ((__tmp148003 |gxc[1]#_g148004_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148735 __tmp148923 '12 '#f '#f)) - (let ((__tmp148925 |gxc[1]#_g148926_|)) + (##unchecked-structure-set! __obj147837 __tmp148003 '12 '#f '#f)) + (let ((__tmp148005 |gxc[1]#_g148006_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148735 __tmp148925 '13 '#f '#f)) - (let ((__tmp148927 |gxc[1]#_g148928_|)) + (##unchecked-structure-set! __obj147837 __tmp148005 '13 '#f '#f)) + (let ((__tmp148007 |gxc[1]#_g148008_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148735 __tmp148927 '14 '#f '#f)) - (let ((__tmp148929 - (cons (cons 'signature |gxc[1]#_g148930_|) - (cons (cons 'id |gxc[1]#_g148931_|) '())))) + (##unchecked-structure-set! __obj147837 __tmp148007 '14 '#f '#f)) + (let ((__tmp148009 (cons (cons 'id |gxc[1]#_g148010_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148735 __tmp148929 '15 '#f '#f)) - (let ((__tmp148932 - (cons (cons 'signature |gxc[1]#_g148933_|) - (cons (cons 'id |gxc[1]#_g148934_|) '())))) + (##unchecked-structure-set! __obj147837 __tmp148009 '15 '#f '#f)) + (let ((__tmp148011 (cons (cons 'id |gxc[1]#_g148012_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148735 __tmp148932 '16 '#f '#f)) - (let ((__tmp148935 - (cons (cons 'signature |gxc[1]#_g148936_|) - (cons (cons 'id |gxc[1]#_g148937_|) '())))) + (##unchecked-structure-set! __obj147837 __tmp148011 '16 '#f '#f)) + (let ((__tmp148013 (cons (cons 'id |gxc[1]#_g148014_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148735 __tmp148935 '17 '#f '#f)) - (let ((__tmp148938 - (cons (cons 'signature |gxc[1]#_g148939_|) - (cons (cons 'id |gxc[1]#_g148940_|) '())))) + (##unchecked-structure-set! __obj147837 __tmp148013 '17 '#f '#f)) + (let ((__tmp148015 (cons (cons 'id |gxc[1]#_g148016_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148735 __tmp148938 '18 '#f '#f)) + (##unchecked-structure-set! __obj147837 __tmp148015 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148735 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147837 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148735 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147837 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148735 '() '20 '#f '#f)) - __obj148735)) + (##unchecked-structure-set! __obj147837 '() '20 '#f '#f)) + __obj147837)) (define |gxc[:0:]#!signature| - (let ((__obj148736 + (let ((__obj147838 (let () (declare (not safe)) (##structure @@ -2884,98 +2821,102 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148736 + __obj147838 'gxc#!signature::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148736 '!signature '2 '#f '#f)) + (##unchecked-structure-set! __obj147838 '!signature '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148736 - '(return effect arguments unchecked) + __obj147838 + '(return effect arguments unchecked origin) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148736 - '(return effect arguments unchecked) + __obj147838 + '(return effect arguments unchecked origin) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148736 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj147838 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148736 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147838 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148736 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj147838 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148736 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147838 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148736 '#f '11 '#f '#f)) - (let ((__tmp148941 |gxc[1]#_g148942_|)) + (##unchecked-structure-set! __obj147838 '#f '11 '#f '#f)) + (let ((__tmp148017 |gxc[1]#_g148018_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148736 __tmp148941 '12 '#f '#f)) - (let ((__tmp148943 |gxc[1]#_g148944_|)) + (##unchecked-structure-set! __obj147838 __tmp148017 '12 '#f '#f)) + (let ((__tmp148019 |gxc[1]#_g148020_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148736 __tmp148943 '13 '#f '#f)) - (let ((__tmp148945 |gxc[1]#_g148946_|)) + (##unchecked-structure-set! __obj147838 __tmp148019 '13 '#f '#f)) + (let ((__tmp148021 |gxc[1]#_g148022_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148736 __tmp148945 '14 '#f '#f)) - (let ((__tmp148947 - (cons (cons 'return |gxc[1]#_g148948_|) - (cons (cons 'effect |gxc[1]#_g148949_|) - (cons (cons 'arguments |gxc[1]#_g148950_|) - (cons (cons 'unchecked |gxc[1]#_g148951_|) - '())))))) + (##unchecked-structure-set! __obj147838 __tmp148021 '14 '#f '#f)) + (let ((__tmp148023 + (cons (cons 'return |gxc[1]#_g148024_|) + (cons (cons 'effect |gxc[1]#_g148025_|) + (cons (cons 'arguments |gxc[1]#_g148026_|) + (cons (cons 'unchecked |gxc[1]#_g148027_|) + (cons (cons 'origin |gxc[1]#_g148028_|) + '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj148736 __tmp148947 '15 '#f '#f)) - (let ((__tmp148952 - (cons (cons 'return |gxc[1]#_g148953_|) - (cons (cons 'effect |gxc[1]#_g148954_|) - (cons (cons 'arguments |gxc[1]#_g148955_|) - (cons (cons 'unchecked |gxc[1]#_g148956_|) - '())))))) + (##unchecked-structure-set! __obj147838 __tmp148023 '15 '#f '#f)) + (let ((__tmp148029 + (cons (cons 'return |gxc[1]#_g148030_|) + (cons (cons 'effect |gxc[1]#_g148031_|) + (cons (cons 'arguments |gxc[1]#_g148032_|) + (cons (cons 'unchecked |gxc[1]#_g148033_|) + (cons (cons 'origin |gxc[1]#_g148034_|) + '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj148736 __tmp148952 '16 '#f '#f)) - (let ((__tmp148957 - (cons (cons 'return |gxc[1]#_g148958_|) - (cons (cons 'effect |gxc[1]#_g148959_|) - (cons (cons 'arguments |gxc[1]#_g148960_|) - (cons (cons 'unchecked |gxc[1]#_g148961_|) - '())))))) + (##unchecked-structure-set! __obj147838 __tmp148029 '16 '#f '#f)) + (let ((__tmp148035 + (cons (cons 'return |gxc[1]#_g148036_|) + (cons (cons 'effect |gxc[1]#_g148037_|) + (cons (cons 'arguments |gxc[1]#_g148038_|) + (cons (cons 'unchecked |gxc[1]#_g148039_|) + (cons (cons 'origin |gxc[1]#_g148040_|) + '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj148736 __tmp148957 '17 '#f '#f)) - (let ((__tmp148962 - (cons (cons 'return |gxc[1]#_g148963_|) - (cons (cons 'effect |gxc[1]#_g148964_|) - (cons (cons 'arguments |gxc[1]#_g148965_|) - (cons (cons 'unchecked |gxc[1]#_g148966_|) - '())))))) + (##unchecked-structure-set! __obj147838 __tmp148035 '17 '#f '#f)) + (let ((__tmp148041 + (cons (cons 'return |gxc[1]#_g148042_|) + (cons (cons 'effect |gxc[1]#_g148043_|) + (cons (cons 'arguments |gxc[1]#_g148044_|) + (cons (cons 'unchecked |gxc[1]#_g148045_|) + (cons (cons 'origin |gxc[1]#_g148046_|) + '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj148736 __tmp148962 '18 '#f '#f)) + (##unchecked-structure-set! __obj147838 __tmp148041 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148736 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147838 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148736 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147838 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148736 '() '20 '#f '#f)) - __obj148736)) - (define |gxc[:0:]#!primitive-predicate| - (let ((__obj148737 + (##unchecked-structure-set! __obj147838 '() '20 '#f '#f)) + __obj147838)) + (define |gxc[:0:]#!procedure| + (let ((__obj147839 (let () (declare (not safe)) (##structure @@ -3004,81 +2945,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148737 - 'gxc#!primitive-predicate::t + __obj147839 + 'gxc#!procedure::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! - __obj148737 - '!primitive-predicate - '2 - '#f - '#f)) + (##unchecked-structure-set! __obj147839 '!procedure '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148737 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj147839 '(signature) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148737 '(id signature) '6 '#f '#f)) - (let ((__tmp148967 (cons |gxc[1]#_g148968_| '()))) + (##unchecked-structure-set! __obj147839 '(id signature) '6 '#f '#f)) + (let ((__tmp148047 (cons |gxc[1]#_g147987_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148737 __tmp148967 '3 '#f '#f)) + (##unchecked-structure-set! __obj147839 __tmp148047 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148737 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147839 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148737 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147839 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148737 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147839 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148737 ':init! '11 '#f '#f)) - (let ((__tmp148969 |gxc[1]#_g148970_|)) + (##unchecked-structure-set! __obj147839 '#f '11 '#f '#f)) + (let ((__tmp148048 |gxc[1]#_g148049_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148737 __tmp148969 '12 '#f '#f)) - (let ((__tmp148971 |gxc[1]#_g148972_|)) + (##unchecked-structure-set! __obj147839 __tmp148048 '12 '#f '#f)) + (let ((__tmp148050 |gxc[1]#_g148051_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148737 __tmp148971 '13 '#f '#f)) - (let ((__tmp148973 |gxc[1]#_g148974_|)) + (##unchecked-structure-set! __obj147839 __tmp148050 '13 '#f '#f)) + (let ((__tmp148052 |gxc[1]#_g148053_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148737 __tmp148973 '14 '#f '#f)) - (let ((__tmp148975 - (cons (cons 'signature |gxc[1]#_g148976_|) - (cons (cons 'id |gxc[1]#_g148977_|) '())))) + (##unchecked-structure-set! __obj147839 __tmp148052 '14 '#f '#f)) + (let ((__tmp148054 + (cons (cons 'signature |gxc[1]#_g148055_|) + (cons (cons 'id |gxc[1]#_g148056_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148737 __tmp148975 '15 '#f '#f)) - (let ((__tmp148978 - (cons (cons 'signature |gxc[1]#_g148979_|) - (cons (cons 'id |gxc[1]#_g148980_|) '())))) + (##unchecked-structure-set! __obj147839 __tmp148054 '15 '#f '#f)) + (let ((__tmp148057 + (cons (cons 'signature |gxc[1]#_g148058_|) + (cons (cons 'id |gxc[1]#_g148059_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148737 __tmp148978 '16 '#f '#f)) - (let ((__tmp148981 - (cons (cons 'signature |gxc[1]#_g148982_|) - (cons (cons 'id |gxc[1]#_g148983_|) '())))) + (##unchecked-structure-set! __obj147839 __tmp148057 '16 '#f '#f)) + (let ((__tmp148060 + (cons (cons 'signature |gxc[1]#_g148061_|) + (cons (cons 'id |gxc[1]#_g148062_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148737 __tmp148981 '17 '#f '#f)) - (let ((__tmp148984 - (cons (cons 'signature |gxc[1]#_g148985_|) - (cons (cons 'id |gxc[1]#_g148986_|) '())))) + (##unchecked-structure-set! __obj147839 __tmp148060 '17 '#f '#f)) + (let ((__tmp148063 + (cons (cons 'signature |gxc[1]#_g148064_|) + (cons (cons 'id |gxc[1]#_g148065_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148737 __tmp148984 '18 '#f '#f)) - (let () + (##unchecked-structure-set! __obj147839 __tmp148063 '18 '#f '#f)) + (let ((__tmp148066 (cons (cons 'signature |gxc[1]#_g148067_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148737 '() '19 '#f '#f)) - (let () + (##unchecked-structure-set! __obj147839 __tmp148066 '19 '#f '#f)) + (let ((__tmp148068 (cons (cons 'signature '(:? !signature)) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148737 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147839 __tmp148068 '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148737 '() '20 '#f '#f)) - __obj148737)) + (##unchecked-structure-set! __obj147839 '() '20 '#f '#f)) + __obj147839)) (define |gxc[:0:]#!class-meta| - (let ((__obj148738 + (let ((__obj147840 (let () (declare (not safe)) (##structure @@ -3107,76 +3043,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148738 + __obj147840 'gxc#!class-meta::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148738 '!class-meta '2 '#f '#f)) + (##unchecked-structure-set! __obj147840 '!class-meta '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148738 '(class) '4 '#f '#f)) + (##unchecked-structure-set! __obj147840 '(class) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148738 '(id class) '6 '#f '#f)) - (let ((__tmp148987 (cons |gxc[1]#_g148892_| '()))) + (##unchecked-structure-set! __obj147840 '(id class) '6 '#f '#f)) + (let ((__tmp148069 (cons |gxc[1]#_g147987_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148738 __tmp148987 '3 '#f '#f)) + (##unchecked-structure-set! __obj147840 __tmp148069 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148738 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147840 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148738 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147840 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148738 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147840 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148738 ':init! '11 '#f '#f)) - (let ((__tmp148988 |gxc[1]#_g148989_|)) + (##unchecked-structure-set! __obj147840 ':init! '11 '#f '#f)) + (let ((__tmp148070 |gxc[1]#_g148071_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148738 __tmp148988 '12 '#f '#f)) - (let ((__tmp148990 |gxc[1]#_g148991_|)) + (##unchecked-structure-set! __obj147840 __tmp148070 '12 '#f '#f)) + (let ((__tmp148072 |gxc[1]#_g148073_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148738 __tmp148990 '13 '#f '#f)) - (let ((__tmp148992 |gxc[1]#_g148993_|)) + (##unchecked-structure-set! __obj147840 __tmp148072 '13 '#f '#f)) + (let ((__tmp148074 |gxc[1]#_g148075_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148738 __tmp148992 '14 '#f '#f)) - (let ((__tmp148994 - (cons (cons 'class |gxc[1]#_g148995_|) - (cons (cons 'id |gxc[1]#_g148996_|) '())))) + (##unchecked-structure-set! __obj147840 __tmp148074 '14 '#f '#f)) + (let ((__tmp148076 + (cons (cons 'class |gxc[1]#_g148077_|) + (cons (cons 'id |gxc[1]#_g148078_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148738 __tmp148994 '15 '#f '#f)) - (let ((__tmp148997 - (cons (cons 'class |gxc[1]#_g148998_|) - (cons (cons 'id |gxc[1]#_g148999_|) '())))) + (##unchecked-structure-set! __obj147840 __tmp148076 '15 '#f '#f)) + (let ((__tmp148079 + (cons (cons 'class |gxc[1]#_g148080_|) + (cons (cons 'id |gxc[1]#_g148081_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148738 __tmp148997 '16 '#f '#f)) - (let ((__tmp149000 - (cons (cons 'class |gxc[1]#_g149001_|) - (cons (cons 'id |gxc[1]#_g149002_|) '())))) + (##unchecked-structure-set! __obj147840 __tmp148079 '16 '#f '#f)) + (let ((__tmp148082 + (cons (cons 'class |gxc[1]#_g148083_|) + (cons (cons 'id |gxc[1]#_g148084_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148738 __tmp149000 '17 '#f '#f)) - (let ((__tmp149003 - (cons (cons 'class |gxc[1]#_g149004_|) - (cons (cons 'id |gxc[1]#_g149005_|) '())))) + (##unchecked-structure-set! __obj147840 __tmp148082 '17 '#f '#f)) + (let ((__tmp148085 + (cons (cons 'class |gxc[1]#_g148086_|) + (cons (cons 'id |gxc[1]#_g148087_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148738 __tmp149003 '18 '#f '#f)) + (##unchecked-structure-set! __obj147840 __tmp148085 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148738 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147840 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148738 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147840 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148738 '() '20 '#f '#f)) - __obj148738)) + (##unchecked-structure-set! __obj147840 '() '20 '#f '#f)) + __obj147840)) (define |gxc[:0:]#!class| - (let ((__obj148739 + (let ((__obj147841 (let () (declare (not safe)) (##structure @@ -3204,14 +3140,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148739 'gxc#!class::t '1 '#f '#f)) + (##unchecked-structure-set! __obj147841 'gxc#!class::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148739 '!class '2 '#f '#f)) + (##unchecked-structure-set! __obj147841 '!class '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148739 + __obj147841 '(super precedence-list slots fields @@ -3227,7 +3163,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148739 + __obj147841 '(id super precedence-list slots @@ -3241,126 +3177,126 @@ '6 '#f '#f)) - (let ((__tmp149006 (cons |gxc[1]#_g148892_| '()))) + (let ((__tmp148088 (cons |gxc[1]#_g147987_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148739 __tmp149006 '3 '#f '#f)) + (##unchecked-structure-set! __obj147841 __tmp148088 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148739 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147841 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148739 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147841 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148739 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147841 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148739 ':init! '11 '#f '#f)) - (let ((__tmp149007 |gxc[1]#_g149008_|)) + (##unchecked-structure-set! __obj147841 ':init! '11 '#f '#f)) + (let ((__tmp148089 |gxc[1]#_g148090_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148739 __tmp149007 '12 '#f '#f)) - (let ((__tmp149009 |gxc[1]#_g149010_|)) + (##unchecked-structure-set! __obj147841 __tmp148089 '12 '#f '#f)) + (let ((__tmp148091 |gxc[1]#_g148092_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148739 __tmp149009 '13 '#f '#f)) - (let ((__tmp149011 |gxc[1]#_g149012_|)) + (##unchecked-structure-set! __obj147841 __tmp148091 '13 '#f '#f)) + (let ((__tmp148093 |gxc[1]#_g148094_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148739 __tmp149011 '14 '#f '#f)) - (let ((__tmp149013 - (cons (cons 'super |gxc[1]#_g149014_|) - (cons (cons 'precedence-list |gxc[1]#_g149015_|) - (cons (cons 'slots |gxc[1]#_g149016_|) - (cons (cons 'fields |gxc[1]#_g149017_|) + (##unchecked-structure-set! __obj147841 __tmp148093 '14 '#f '#f)) + (let ((__tmp148095 + (cons (cons 'super |gxc[1]#_g148096_|) + (cons (cons 'precedence-list |gxc[1]#_g148097_|) + (cons (cons 'slots |gxc[1]#_g148098_|) + (cons (cons 'fields |gxc[1]#_g148099_|) (cons (cons 'constructor - |gxc[1]#_g149018_|) + |gxc[1]#_g148100_|) (cons (cons 'struct? - |gxc[1]#_g149019_|) + |gxc[1]#_g148101_|) (cons (cons 'final? - |gxc[1]#_g149020_|) + |gxc[1]#_g148102_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g149021_|) - (cons (cons 'metaclass |gxc[1]#_g149022_|) - (cons (cons 'methods |gxc[1]#_g149023_|) - (cons (cons 'id |gxc[1]#_g149024_|) + |gxc[1]#_g148103_|) + (cons (cons 'metaclass |gxc[1]#_g148104_|) + (cons (cons 'methods |gxc[1]#_g148105_|) + (cons (cons 'id |gxc[1]#_g148106_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj148739 __tmp149013 '15 '#f '#f)) - (let ((__tmp149025 - (cons (cons 'super |gxc[1]#_g149026_|) - (cons (cons 'precedence-list |gxc[1]#_g149027_|) - (cons (cons 'slots |gxc[1]#_g149028_|) - (cons (cons 'fields |gxc[1]#_g149029_|) + (##unchecked-structure-set! __obj147841 __tmp148095 '15 '#f '#f)) + (let ((__tmp148107 + (cons (cons 'super |gxc[1]#_g148108_|) + (cons (cons 'precedence-list |gxc[1]#_g148109_|) + (cons (cons 'slots |gxc[1]#_g148110_|) + (cons (cons 'fields |gxc[1]#_g148111_|) (cons (cons 'constructor - |gxc[1]#_g149030_|) + |gxc[1]#_g148112_|) (cons (cons 'struct? - |gxc[1]#_g149031_|) + |gxc[1]#_g148113_|) (cons (cons 'final? - |gxc[1]#_g149032_|) + |gxc[1]#_g148114_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g149033_|) - (cons (cons 'metaclass |gxc[1]#_g149034_|) - (cons (cons 'methods |gxc[1]#_g149035_|) - (cons (cons 'id |gxc[1]#_g149036_|) + |gxc[1]#_g148115_|) + (cons (cons 'metaclass |gxc[1]#_g148116_|) + (cons (cons 'methods |gxc[1]#_g148117_|) + (cons (cons 'id |gxc[1]#_g148118_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj148739 __tmp149025 '16 '#f '#f)) - (let ((__tmp149037 - (cons (cons 'super |gxc[1]#_g149038_|) - (cons (cons 'precedence-list |gxc[1]#_g149039_|) - (cons (cons 'slots |gxc[1]#_g149040_|) - (cons (cons 'fields |gxc[1]#_g149041_|) + (##unchecked-structure-set! __obj147841 __tmp148107 '16 '#f '#f)) + (let ((__tmp148119 + (cons (cons 'super |gxc[1]#_g148120_|) + (cons (cons 'precedence-list |gxc[1]#_g148121_|) + (cons (cons 'slots |gxc[1]#_g148122_|) + (cons (cons 'fields |gxc[1]#_g148123_|) (cons (cons 'constructor - |gxc[1]#_g149042_|) + |gxc[1]#_g148124_|) (cons (cons 'struct? - |gxc[1]#_g149043_|) + |gxc[1]#_g148125_|) (cons (cons 'final? - |gxc[1]#_g149044_|) + |gxc[1]#_g148126_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g149045_|) - (cons (cons 'metaclass |gxc[1]#_g149046_|) - (cons (cons 'methods |gxc[1]#_g149047_|) - (cons (cons 'id |gxc[1]#_g149048_|) + |gxc[1]#_g148127_|) + (cons (cons 'metaclass |gxc[1]#_g148128_|) + (cons (cons 'methods |gxc[1]#_g148129_|) + (cons (cons 'id |gxc[1]#_g148130_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj148739 __tmp149037 '17 '#f '#f)) - (let ((__tmp149049 - (cons (cons 'super |gxc[1]#_g149050_|) - (cons (cons 'precedence-list |gxc[1]#_g149051_|) - (cons (cons 'slots |gxc[1]#_g149052_|) - (cons (cons 'fields |gxc[1]#_g149053_|) + (##unchecked-structure-set! __obj147841 __tmp148119 '17 '#f '#f)) + (let ((__tmp148131 + (cons (cons 'super |gxc[1]#_g148132_|) + (cons (cons 'precedence-list |gxc[1]#_g148133_|) + (cons (cons 'slots |gxc[1]#_g148134_|) + (cons (cons 'fields |gxc[1]#_g148135_|) (cons (cons 'constructor - |gxc[1]#_g149054_|) + |gxc[1]#_g148136_|) (cons (cons 'struct? - |gxc[1]#_g149055_|) + |gxc[1]#_g148137_|) (cons (cons 'final? - |gxc[1]#_g149056_|) + |gxc[1]#_g148138_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g149057_|) - (cons (cons 'metaclass |gxc[1]#_g149058_|) - (cons (cons 'methods |gxc[1]#_g149059_|) - (cons (cons 'id |gxc[1]#_g149060_|) + |gxc[1]#_g148139_|) + (cons (cons 'metaclass |gxc[1]#_g148140_|) + (cons (cons 'methods |gxc[1]#_g148141_|) + (cons (cons 'id |gxc[1]#_g148142_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj148739 __tmp149049 '18 '#f '#f)) + (##unchecked-structure-set! __obj147841 __tmp148131 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148739 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147841 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148739 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147841 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148739 '() '20 '#f '#f)) - __obj148739)) + (##unchecked-structure-set! __obj147841 '() '20 '#f '#f)) + __obj147841)) (define |gxc[:0:]#!predicate| - (let ((__obj148740 + (let ((__obj147842 (let () (declare (not safe)) (##structure @@ -3389,76 +3325,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148740 + __obj147842 'gxc#!predicate::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148740 '!predicate '2 '#f '#f)) + (##unchecked-structure-set! __obj147842 '!predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148740 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj147842 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148740 '(id signature) '6 '#f '#f)) - (let ((__tmp149061 (cons |gxc[1]#_g148968_| '()))) + (##unchecked-structure-set! __obj147842 '(id signature) '6 '#f '#f)) + (let ((__tmp148143 (cons |gxc[1]#_g148144_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148740 __tmp149061 '3 '#f '#f)) + (##unchecked-structure-set! __obj147842 __tmp148143 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148740 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147842 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148740 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147842 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148740 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147842 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148740 ':init! '11 '#f '#f)) - (let ((__tmp149062 |gxc[1]#_g149063_|)) + (##unchecked-structure-set! __obj147842 ':init! '11 '#f '#f)) + (let ((__tmp148145 |gxc[1]#_g148146_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148740 __tmp149062 '12 '#f '#f)) - (let ((__tmp149064 |gxc[1]#_g149065_|)) + (##unchecked-structure-set! __obj147842 __tmp148145 '12 '#f '#f)) + (let ((__tmp148147 |gxc[1]#_g148148_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148740 __tmp149064 '13 '#f '#f)) - (let ((__tmp149066 |gxc[1]#_g149067_|)) + (##unchecked-structure-set! __obj147842 __tmp148147 '13 '#f '#f)) + (let ((__tmp148149 |gxc[1]#_g148150_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148740 __tmp149066 '14 '#f '#f)) - (let ((__tmp149068 - (cons (cons 'signature |gxc[1]#_g149069_|) - (cons (cons 'id |gxc[1]#_g149070_|) '())))) + (##unchecked-structure-set! __obj147842 __tmp148149 '14 '#f '#f)) + (let ((__tmp148151 + (cons (cons 'signature |gxc[1]#_g148152_|) + (cons (cons 'id |gxc[1]#_g148153_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148740 __tmp149068 '15 '#f '#f)) - (let ((__tmp149071 - (cons (cons 'signature |gxc[1]#_g149072_|) - (cons (cons 'id |gxc[1]#_g149073_|) '())))) + (##unchecked-structure-set! __obj147842 __tmp148151 '15 '#f '#f)) + (let ((__tmp148154 + (cons (cons 'signature |gxc[1]#_g148155_|) + (cons (cons 'id |gxc[1]#_g148156_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148740 __tmp149071 '16 '#f '#f)) - (let ((__tmp149074 - (cons (cons 'signature |gxc[1]#_g149075_|) - (cons (cons 'id |gxc[1]#_g149076_|) '())))) + (##unchecked-structure-set! __obj147842 __tmp148154 '16 '#f '#f)) + (let ((__tmp148157 + (cons (cons 'signature |gxc[1]#_g148158_|) + (cons (cons 'id |gxc[1]#_g148159_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148740 __tmp149074 '17 '#f '#f)) - (let ((__tmp149077 - (cons (cons 'signature |gxc[1]#_g149078_|) - (cons (cons 'id |gxc[1]#_g149079_|) '())))) + (##unchecked-structure-set! __obj147842 __tmp148157 '17 '#f '#f)) + (let ((__tmp148160 + (cons (cons 'signature |gxc[1]#_g148161_|) + (cons (cons 'id |gxc[1]#_g148162_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148740 __tmp149077 '18 '#f '#f)) - (let () + (##unchecked-structure-set! __obj147842 __tmp148160 '18 '#f '#f)) + (let ((__tmp148163 (cons (cons 'signature |gxc[1]#_g148067_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148740 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147842 __tmp148163 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148740 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147842 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148740 '() '20 '#f '#f)) - __obj148740)) + (##unchecked-structure-set! __obj147842 '() '20 '#f '#f)) + __obj147842)) (define |gxc[:0:]#!constructor| - (let ((__obj148741 + (let ((__obj147843 (let () (declare (not safe)) (##structure @@ -3487,76 +3423,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148741 + __obj147843 'gxc#!constructor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148741 '!constructor '2 '#f '#f)) + (##unchecked-structure-set! __obj147843 '!constructor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148741 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj147843 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148741 '(id signature) '6 '#f '#f)) - (let ((__tmp149080 (cons |gxc[1]#_g148968_| '()))) + (##unchecked-structure-set! __obj147843 '(id signature) '6 '#f '#f)) + (let ((__tmp148164 (cons |gxc[1]#_g148144_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148741 __tmp149080 '3 '#f '#f)) + (##unchecked-structure-set! __obj147843 __tmp148164 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148741 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147843 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148741 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147843 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148741 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147843 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148741 ':init! '11 '#f '#f)) - (let ((__tmp149081 |gxc[1]#_g149082_|)) + (##unchecked-structure-set! __obj147843 ':init! '11 '#f '#f)) + (let ((__tmp148165 |gxc[1]#_g148166_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148741 __tmp149081 '12 '#f '#f)) - (let ((__tmp149083 |gxc[1]#_g149084_|)) + (##unchecked-structure-set! __obj147843 __tmp148165 '12 '#f '#f)) + (let ((__tmp148167 |gxc[1]#_g148168_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148741 __tmp149083 '13 '#f '#f)) - (let ((__tmp149085 |gxc[1]#_g149086_|)) + (##unchecked-structure-set! __obj147843 __tmp148167 '13 '#f '#f)) + (let ((__tmp148169 |gxc[1]#_g148170_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148741 __tmp149085 '14 '#f '#f)) - (let ((__tmp149087 - (cons (cons 'signature |gxc[1]#_g149088_|) - (cons (cons 'id |gxc[1]#_g149089_|) '())))) + (##unchecked-structure-set! __obj147843 __tmp148169 '14 '#f '#f)) + (let ((__tmp148171 + (cons (cons 'signature |gxc[1]#_g148172_|) + (cons (cons 'id |gxc[1]#_g148173_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148741 __tmp149087 '15 '#f '#f)) - (let ((__tmp149090 - (cons (cons 'signature |gxc[1]#_g149091_|) - (cons (cons 'id |gxc[1]#_g149092_|) '())))) + (##unchecked-structure-set! __obj147843 __tmp148171 '15 '#f '#f)) + (let ((__tmp148174 + (cons (cons 'signature |gxc[1]#_g148175_|) + (cons (cons 'id |gxc[1]#_g148176_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148741 __tmp149090 '16 '#f '#f)) - (let ((__tmp149093 - (cons (cons 'signature |gxc[1]#_g149094_|) - (cons (cons 'id |gxc[1]#_g149095_|) '())))) + (##unchecked-structure-set! __obj147843 __tmp148174 '16 '#f '#f)) + (let ((__tmp148177 + (cons (cons 'signature |gxc[1]#_g148178_|) + (cons (cons 'id |gxc[1]#_g148179_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148741 __tmp149093 '17 '#f '#f)) - (let ((__tmp149096 - (cons (cons 'signature |gxc[1]#_g149097_|) - (cons (cons 'id |gxc[1]#_g149098_|) '())))) + (##unchecked-structure-set! __obj147843 __tmp148177 '17 '#f '#f)) + (let ((__tmp148180 + (cons (cons 'signature |gxc[1]#_g148181_|) + (cons (cons 'id |gxc[1]#_g148182_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148741 __tmp149096 '18 '#f '#f)) - (let () + (##unchecked-structure-set! __obj147843 __tmp148180 '18 '#f '#f)) + (let ((__tmp148183 (cons (cons 'signature |gxc[1]#_g148067_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148741 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147843 __tmp148183 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148741 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147843 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148741 '() '20 '#f '#f)) - __obj148741)) + (##unchecked-structure-set! __obj147843 '() '20 '#f '#f)) + __obj147843)) (define |gxc[:0:]#!accessor| - (let ((__obj148742 + (let ((__obj147844 (let () (declare (not safe)) (##structure @@ -3585,89 +3521,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148742 + __obj147844 'gxc#!accessor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148742 '!accessor '2 '#f '#f)) + (##unchecked-structure-set! __obj147844 '!accessor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148742 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj147844 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148742 + __obj147844 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp149099 (cons |gxc[1]#_g148968_| '()))) + (let ((__tmp148184 (cons |gxc[1]#_g148144_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148742 __tmp149099 '3 '#f '#f)) + (##unchecked-structure-set! __obj147844 __tmp148184 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148742 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147844 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148742 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147844 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148742 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147844 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148742 ':init! '11 '#f '#f)) - (let ((__tmp149100 |gxc[1]#_g149101_|)) + (##unchecked-structure-set! __obj147844 ':init! '11 '#f '#f)) + (let ((__tmp148185 |gxc[1]#_g148186_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148742 __tmp149100 '12 '#f '#f)) - (let ((__tmp149102 |gxc[1]#_g149103_|)) + (##unchecked-structure-set! __obj147844 __tmp148185 '12 '#f '#f)) + (let ((__tmp148187 |gxc[1]#_g148188_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148742 __tmp149102 '13 '#f '#f)) - (let ((__tmp149104 |gxc[1]#_g149105_|)) + (##unchecked-structure-set! __obj147844 __tmp148187 '13 '#f '#f)) + (let ((__tmp148189 |gxc[1]#_g148190_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148742 __tmp149104 '14 '#f '#f)) - (let ((__tmp149106 - (cons (cons 'slot |gxc[1]#_g149107_|) - (cons (cons 'checked? |gxc[1]#_g149108_|) - (cons (cons 'signature |gxc[1]#_g149109_|) - (cons (cons 'id |gxc[1]#_g149110_|) '())))))) + (##unchecked-structure-set! __obj147844 __tmp148189 '14 '#f '#f)) + (let ((__tmp148191 + (cons (cons 'slot |gxc[1]#_g148192_|) + (cons (cons 'checked? |gxc[1]#_g148193_|) + (cons (cons 'signature |gxc[1]#_g148194_|) + (cons (cons 'id |gxc[1]#_g148195_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148742 __tmp149106 '15 '#f '#f)) - (let ((__tmp149111 - (cons (cons 'slot |gxc[1]#_g149112_|) - (cons (cons 'checked? |gxc[1]#_g149113_|) - (cons (cons 'signature |gxc[1]#_g149114_|) - (cons (cons 'id |gxc[1]#_g149115_|) '())))))) + (##unchecked-structure-set! __obj147844 __tmp148191 '15 '#f '#f)) + (let ((__tmp148196 + (cons (cons 'slot |gxc[1]#_g148197_|) + (cons (cons 'checked? |gxc[1]#_g148198_|) + (cons (cons 'signature |gxc[1]#_g148199_|) + (cons (cons 'id |gxc[1]#_g148200_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148742 __tmp149111 '16 '#f '#f)) - (let ((__tmp149116 - (cons (cons 'slot |gxc[1]#_g149117_|) - (cons (cons 'checked? |gxc[1]#_g149118_|) - (cons (cons 'signature |gxc[1]#_g149119_|) - (cons (cons 'id |gxc[1]#_g149120_|) '())))))) + (##unchecked-structure-set! __obj147844 __tmp148196 '16 '#f '#f)) + (let ((__tmp148201 + (cons (cons 'slot |gxc[1]#_g148202_|) + (cons (cons 'checked? |gxc[1]#_g148203_|) + (cons (cons 'signature |gxc[1]#_g148204_|) + (cons (cons 'id |gxc[1]#_g148205_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148742 __tmp149116 '17 '#f '#f)) - (let ((__tmp149121 - (cons (cons 'slot |gxc[1]#_g149122_|) - (cons (cons 'checked? |gxc[1]#_g149123_|) - (cons (cons 'signature |gxc[1]#_g149124_|) - (cons (cons 'id |gxc[1]#_g149125_|) '())))))) + (##unchecked-structure-set! __obj147844 __tmp148201 '17 '#f '#f)) + (let ((__tmp148206 + (cons (cons 'slot |gxc[1]#_g148207_|) + (cons (cons 'checked? |gxc[1]#_g148208_|) + (cons (cons 'signature |gxc[1]#_g148209_|) + (cons (cons 'id |gxc[1]#_g148210_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148742 __tmp149121 '18 '#f '#f)) - (let () + (##unchecked-structure-set! __obj147844 __tmp148206 '18 '#f '#f)) + (let ((__tmp148211 (cons (cons 'signature |gxc[1]#_g148067_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148742 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147844 __tmp148211 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148742 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147844 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148742 '() '20 '#f '#f)) - __obj148742)) + (##unchecked-structure-set! __obj147844 '() '20 '#f '#f)) + __obj147844)) (define |gxc[:0:]#!mutator| - (let ((__obj148743 + (let ((__obj147845 (let () (declare (not safe)) (##structure @@ -3695,85 +3631,85 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148743 'gxc#!mutator::t '1 '#f '#f)) + (##unchecked-structure-set! __obj147845 'gxc#!mutator::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148743 '!mutator '2 '#f '#f)) + (##unchecked-structure-set! __obj147845 '!mutator '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148743 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj147845 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148743 + __obj147845 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp149126 (cons |gxc[1]#_g148968_| '()))) + (let ((__tmp148212 (cons |gxc[1]#_g148144_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148743 __tmp149126 '3 '#f '#f)) + (##unchecked-structure-set! __obj147845 __tmp148212 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148743 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147845 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148743 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147845 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148743 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147845 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148743 ':init! '11 '#f '#f)) - (let ((__tmp149127 |gxc[1]#_g149128_|)) + (##unchecked-structure-set! __obj147845 ':init! '11 '#f '#f)) + (let ((__tmp148213 |gxc[1]#_g148214_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148743 __tmp149127 '12 '#f '#f)) - (let ((__tmp149129 |gxc[1]#_g149130_|)) + (##unchecked-structure-set! __obj147845 __tmp148213 '12 '#f '#f)) + (let ((__tmp148215 |gxc[1]#_g148216_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148743 __tmp149129 '13 '#f '#f)) - (let ((__tmp149131 |gxc[1]#_g149132_|)) + (##unchecked-structure-set! __obj147845 __tmp148215 '13 '#f '#f)) + (let ((__tmp148217 |gxc[1]#_g148218_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148743 __tmp149131 '14 '#f '#f)) - (let ((__tmp149133 - (cons (cons 'slot |gxc[1]#_g149134_|) - (cons (cons 'checked? |gxc[1]#_g149135_|) - (cons (cons 'signature |gxc[1]#_g149136_|) - (cons (cons 'id |gxc[1]#_g149137_|) '())))))) + (##unchecked-structure-set! __obj147845 __tmp148217 '14 '#f '#f)) + (let ((__tmp148219 + (cons (cons 'slot |gxc[1]#_g148220_|) + (cons (cons 'checked? |gxc[1]#_g148221_|) + (cons (cons 'signature |gxc[1]#_g148222_|) + (cons (cons 'id |gxc[1]#_g148223_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148743 __tmp149133 '15 '#f '#f)) - (let ((__tmp149138 - (cons (cons 'slot |gxc[1]#_g149139_|) - (cons (cons 'checked? |gxc[1]#_g149140_|) - (cons (cons 'signature |gxc[1]#_g149141_|) - (cons (cons 'id |gxc[1]#_g149142_|) '())))))) + (##unchecked-structure-set! __obj147845 __tmp148219 '15 '#f '#f)) + (let ((__tmp148224 + (cons (cons 'slot |gxc[1]#_g148225_|) + (cons (cons 'checked? |gxc[1]#_g148226_|) + (cons (cons 'signature |gxc[1]#_g148227_|) + (cons (cons 'id |gxc[1]#_g148228_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148743 __tmp149138 '16 '#f '#f)) - (let ((__tmp149143 - (cons (cons 'slot |gxc[1]#_g149144_|) - (cons (cons 'checked? |gxc[1]#_g149145_|) - (cons (cons 'signature |gxc[1]#_g149146_|) - (cons (cons 'id |gxc[1]#_g149147_|) '())))))) + (##unchecked-structure-set! __obj147845 __tmp148224 '16 '#f '#f)) + (let ((__tmp148229 + (cons (cons 'slot |gxc[1]#_g148230_|) + (cons (cons 'checked? |gxc[1]#_g148231_|) + (cons (cons 'signature |gxc[1]#_g148232_|) + (cons (cons 'id |gxc[1]#_g148233_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148743 __tmp149143 '17 '#f '#f)) - (let ((__tmp149148 - (cons (cons 'slot |gxc[1]#_g149149_|) - (cons (cons 'checked? |gxc[1]#_g149150_|) - (cons (cons 'signature |gxc[1]#_g149151_|) - (cons (cons 'id |gxc[1]#_g149152_|) '())))))) + (##unchecked-structure-set! __obj147845 __tmp148229 '17 '#f '#f)) + (let ((__tmp148234 + (cons (cons 'slot |gxc[1]#_g148235_|) + (cons (cons 'checked? |gxc[1]#_g148236_|) + (cons (cons 'signature |gxc[1]#_g148237_|) + (cons (cons 'id |gxc[1]#_g148238_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148743 __tmp149148 '18 '#f '#f)) - (let () + (##unchecked-structure-set! __obj147845 __tmp148234 '18 '#f '#f)) + (let ((__tmp148239 (cons (cons 'signature |gxc[1]#_g148067_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148743 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147845 __tmp148239 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148743 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147845 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148743 '() '20 '#f '#f)) - __obj148743)) + (##unchecked-structure-set! __obj147845 '() '20 '#f '#f)) + __obj147845)) (define |gxc[:0:]#!interface| - (let ((__obj148744 + (let ((__obj147846 (let () (declare (not safe)) (##structure @@ -3802,76 +3738,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148744 + __obj147846 'gxc#!interface::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148744 '!interface '2 '#f '#f)) + (##unchecked-structure-set! __obj147846 '!interface '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148744 '(methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj147846 '(methods) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148744 '(id methods) '6 '#f '#f)) - (let ((__tmp149153 (cons |gxc[1]#_g148892_| '()))) + (##unchecked-structure-set! __obj147846 '(id methods) '6 '#f '#f)) + (let ((__tmp148240 (cons |gxc[1]#_g147987_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148744 __tmp149153 '3 '#f '#f)) + (##unchecked-structure-set! __obj147846 __tmp148240 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148744 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147846 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148744 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147846 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148744 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147846 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148744 '#f '11 '#f '#f)) - (let ((__tmp149154 |gxc[1]#_g149155_|)) + (##unchecked-structure-set! __obj147846 '#f '11 '#f '#f)) + (let ((__tmp148241 |gxc[1]#_g148242_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148744 __tmp149154 '12 '#f '#f)) - (let ((__tmp149156 |gxc[1]#_g149157_|)) + (##unchecked-structure-set! __obj147846 __tmp148241 '12 '#f '#f)) + (let ((__tmp148243 |gxc[1]#_g148244_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148744 __tmp149156 '13 '#f '#f)) - (let ((__tmp149158 |gxc[1]#_g149159_|)) + (##unchecked-structure-set! __obj147846 __tmp148243 '13 '#f '#f)) + (let ((__tmp148245 |gxc[1]#_g148246_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148744 __tmp149158 '14 '#f '#f)) - (let ((__tmp149160 - (cons (cons 'methods |gxc[1]#_g149161_|) - (cons (cons 'id |gxc[1]#_g149162_|) '())))) + (##unchecked-structure-set! __obj147846 __tmp148245 '14 '#f '#f)) + (let ((__tmp148247 + (cons (cons 'methods |gxc[1]#_g148248_|) + (cons (cons 'id |gxc[1]#_g148249_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148744 __tmp149160 '15 '#f '#f)) - (let ((__tmp149163 - (cons (cons 'methods |gxc[1]#_g149164_|) - (cons (cons 'id |gxc[1]#_g149165_|) '())))) + (##unchecked-structure-set! __obj147846 __tmp148247 '15 '#f '#f)) + (let ((__tmp148250 + (cons (cons 'methods |gxc[1]#_g148251_|) + (cons (cons 'id |gxc[1]#_g148252_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148744 __tmp149163 '16 '#f '#f)) - (let ((__tmp149166 - (cons (cons 'methods |gxc[1]#_g149167_|) - (cons (cons 'id |gxc[1]#_g149168_|) '())))) + (##unchecked-structure-set! __obj147846 __tmp148250 '16 '#f '#f)) + (let ((__tmp148253 + (cons (cons 'methods |gxc[1]#_g148254_|) + (cons (cons 'id |gxc[1]#_g148255_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148744 __tmp149166 '17 '#f '#f)) - (let ((__tmp149169 - (cons (cons 'methods |gxc[1]#_g149170_|) - (cons (cons 'id |gxc[1]#_g149171_|) '())))) + (##unchecked-structure-set! __obj147846 __tmp148253 '17 '#f '#f)) + (let ((__tmp148256 + (cons (cons 'methods |gxc[1]#_g148257_|) + (cons (cons 'id |gxc[1]#_g148258_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148744 __tmp149169 '18 '#f '#f)) + (##unchecked-structure-set! __obj147846 __tmp148256 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148744 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147846 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148744 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147846 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148744 '() '20 '#f '#f)) - __obj148744)) + (##unchecked-structure-set! __obj147846 '() '20 '#f '#f)) + __obj147846)) (define |gxc[:0:]#!lambda| - (let ((__obj148745 + (let ((__obj147847 (let () (declare (not safe)) (##structure @@ -3899,14 +3835,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148745 'gxc#!lambda::t '1 '#f '#f)) + (##unchecked-structure-set! __obj147847 'gxc#!lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148745 '!lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj147847 '!lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148745 + __obj147847 '(arity dispatch inline inline-typedecl) '4 '#f @@ -3914,99 +3850,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148745 + __obj147847 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp149172 (cons |gxc[1]#_g148968_| '()))) + (let ((__tmp148259 (cons |gxc[1]#_g148144_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148745 __tmp149172 '3 '#f '#f)) + (##unchecked-structure-set! __obj147847 __tmp148259 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148745 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147847 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148745 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147847 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148745 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147847 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148745 ':init! '11 '#f '#f)) - (let ((__tmp149173 |gxc[1]#_g149174_|)) + (##unchecked-structure-set! __obj147847 ':init! '11 '#f '#f)) + (let ((__tmp148260 |gxc[1]#_g148261_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148745 __tmp149173 '12 '#f '#f)) - (let ((__tmp149175 |gxc[1]#_g149176_|)) + (##unchecked-structure-set! __obj147847 __tmp148260 '12 '#f '#f)) + (let ((__tmp148262 |gxc[1]#_g148263_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148745 __tmp149175 '13 '#f '#f)) - (let ((__tmp149177 |gxc[1]#_g149178_|)) + (##unchecked-structure-set! __obj147847 __tmp148262 '13 '#f '#f)) + (let ((__tmp148264 |gxc[1]#_g148265_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148745 __tmp149177 '14 '#f '#f)) - (let ((__tmp149179 - (cons (cons 'arity |gxc[1]#_g149180_|) - (cons (cons 'dispatch |gxc[1]#_g149181_|) - (cons (cons 'inline |gxc[1]#_g149182_|) + (##unchecked-structure-set! __obj147847 __tmp148264 '14 '#f '#f)) + (let ((__tmp148266 + (cons (cons 'arity |gxc[1]#_g148267_|) + (cons (cons 'dispatch |gxc[1]#_g148268_|) + (cons (cons 'inline |gxc[1]#_g148269_|) (cons (cons 'inline-typedecl - |gxc[1]#_g149183_|) + |gxc[1]#_g148270_|) (cons (cons 'signature - |gxc[1]#_g149184_|) + |gxc[1]#_g148271_|) (cons (cons 'id - |gxc[1]#_g149185_|) + |gxc[1]#_g148272_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj148745 __tmp149179 '15 '#f '#f)) - (let ((__tmp149186 - (cons (cons 'arity |gxc[1]#_g149187_|) - (cons (cons 'dispatch |gxc[1]#_g149188_|) - (cons (cons 'inline |gxc[1]#_g149189_|) + (##unchecked-structure-set! __obj147847 __tmp148266 '15 '#f '#f)) + (let ((__tmp148273 + (cons (cons 'arity |gxc[1]#_g148274_|) + (cons (cons 'dispatch |gxc[1]#_g148275_|) + (cons (cons 'inline |gxc[1]#_g148276_|) (cons (cons 'inline-typedecl - |gxc[1]#_g149190_|) + |gxc[1]#_g148277_|) (cons (cons 'signature - |gxc[1]#_g149191_|) + |gxc[1]#_g148278_|) (cons (cons 'id - |gxc[1]#_g149192_|) + |gxc[1]#_g148279_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj148745 __tmp149186 '16 '#f '#f)) - (let ((__tmp149193 - (cons (cons 'arity |gxc[1]#_g149194_|) - (cons (cons 'dispatch |gxc[1]#_g149195_|) - (cons (cons 'inline |gxc[1]#_g149196_|) + (##unchecked-structure-set! __obj147847 __tmp148273 '16 '#f '#f)) + (let ((__tmp148280 + (cons (cons 'arity |gxc[1]#_g148281_|) + (cons (cons 'dispatch |gxc[1]#_g148282_|) + (cons (cons 'inline |gxc[1]#_g148283_|) (cons (cons 'inline-typedecl - |gxc[1]#_g149197_|) + |gxc[1]#_g148284_|) (cons (cons 'signature - |gxc[1]#_g149198_|) + |gxc[1]#_g148285_|) (cons (cons 'id - |gxc[1]#_g149199_|) + |gxc[1]#_g148286_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj148745 __tmp149193 '17 '#f '#f)) - (let ((__tmp149200 - (cons (cons 'arity |gxc[1]#_g149201_|) - (cons (cons 'dispatch |gxc[1]#_g149202_|) - (cons (cons 'inline |gxc[1]#_g149203_|) + (##unchecked-structure-set! __obj147847 __tmp148280 '17 '#f '#f)) + (let ((__tmp148287 + (cons (cons 'arity |gxc[1]#_g148288_|) + (cons (cons 'dispatch |gxc[1]#_g148289_|) + (cons (cons 'inline |gxc[1]#_g148290_|) (cons (cons 'inline-typedecl - |gxc[1]#_g149204_|) + |gxc[1]#_g148291_|) (cons (cons 'signature - |gxc[1]#_g149205_|) + |gxc[1]#_g148292_|) (cons (cons 'id - |gxc[1]#_g149206_|) + |gxc[1]#_g148293_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj148745 __tmp149200 '18 '#f '#f)) - (let () + (##unchecked-structure-set! __obj147847 __tmp148287 '18 '#f '#f)) + (let ((__tmp148294 (cons (cons 'signature |gxc[1]#_g148067_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148745 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147847 __tmp148294 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148745 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147847 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148745 '() '20 '#f '#f)) - __obj148745)) + (##unchecked-structure-set! __obj147847 '() '20 '#f '#f)) + __obj147847)) (define |gxc[:0:]#!case-lambda| - (let ((__obj148746 + (let ((__obj147848 (let () (declare (not safe)) (##structure @@ -4035,85 +3971,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148746 + __obj147848 'gxc#!case-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148746 '!case-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj147848 '!case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148746 '(clauses) '4 '#f '#f)) + (##unchecked-structure-set! __obj147848 '(clauses) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148746 + __obj147848 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp149207 (cons |gxc[1]#_g148968_| '()))) + (let ((__tmp148295 (cons |gxc[1]#_g148144_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148746 __tmp149207 '3 '#f '#f)) + (##unchecked-structure-set! __obj147848 __tmp148295 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148746 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147848 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148746 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147848 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148746 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147848 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148746 ':init! '11 '#f '#f)) - (let ((__tmp149208 |gxc[1]#_g149209_|)) + (##unchecked-structure-set! __obj147848 ':init! '11 '#f '#f)) + (let ((__tmp148296 |gxc[1]#_g148297_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148746 __tmp149208 '12 '#f '#f)) - (let ((__tmp149210 |gxc[1]#_g149211_|)) + (##unchecked-structure-set! __obj147848 __tmp148296 '12 '#f '#f)) + (let ((__tmp148298 |gxc[1]#_g148299_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148746 __tmp149210 '13 '#f '#f)) - (let ((__tmp149212 |gxc[1]#_g149213_|)) + (##unchecked-structure-set! __obj147848 __tmp148298 '13 '#f '#f)) + (let ((__tmp148300 |gxc[1]#_g148301_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148746 __tmp149212 '14 '#f '#f)) - (let ((__tmp149214 - (cons (cons 'clauses |gxc[1]#_g149215_|) - (cons (cons 'signature |gxc[1]#_g149216_|) - (cons (cons 'id |gxc[1]#_g149217_|) '()))))) + (##unchecked-structure-set! __obj147848 __tmp148300 '14 '#f '#f)) + (let ((__tmp148302 + (cons (cons 'clauses |gxc[1]#_g148303_|) + (cons (cons 'signature |gxc[1]#_g148304_|) + (cons (cons 'id |gxc[1]#_g148305_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj148746 __tmp149214 '15 '#f '#f)) - (let ((__tmp149218 - (cons (cons 'clauses |gxc[1]#_g149219_|) - (cons (cons 'signature |gxc[1]#_g149220_|) - (cons (cons 'id |gxc[1]#_g149221_|) '()))))) + (##unchecked-structure-set! __obj147848 __tmp148302 '15 '#f '#f)) + (let ((__tmp148306 + (cons (cons 'clauses |gxc[1]#_g148307_|) + (cons (cons 'signature |gxc[1]#_g148308_|) + (cons (cons 'id |gxc[1]#_g148309_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj148746 __tmp149218 '16 '#f '#f)) - (let ((__tmp149222 - (cons (cons 'clauses |gxc[1]#_g149223_|) - (cons (cons 'signature |gxc[1]#_g149224_|) - (cons (cons 'id |gxc[1]#_g149225_|) '()))))) + (##unchecked-structure-set! __obj147848 __tmp148306 '16 '#f '#f)) + (let ((__tmp148310 + (cons (cons 'clauses |gxc[1]#_g148311_|) + (cons (cons 'signature |gxc[1]#_g148312_|) + (cons (cons 'id |gxc[1]#_g148313_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj148746 __tmp149222 '17 '#f '#f)) - (let ((__tmp149226 - (cons (cons 'clauses |gxc[1]#_g149227_|) - (cons (cons 'signature |gxc[1]#_g149228_|) - (cons (cons 'id |gxc[1]#_g149229_|) '()))))) + (##unchecked-structure-set! __obj147848 __tmp148310 '17 '#f '#f)) + (let ((__tmp148314 + (cons (cons 'clauses |gxc[1]#_g148315_|) + (cons (cons 'signature |gxc[1]#_g148316_|) + (cons (cons 'id |gxc[1]#_g148317_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj148746 __tmp149226 '18 '#f '#f)) - (let () + (##unchecked-structure-set! __obj147848 __tmp148314 '18 '#f '#f)) + (let ((__tmp148318 (cons (cons 'signature |gxc[1]#_g148067_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148746 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147848 __tmp148318 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148746 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147848 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148746 '() '20 '#f '#f)) - __obj148746)) + (##unchecked-structure-set! __obj147848 '() '20 '#f '#f)) + __obj147848)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj148747 + (let ((__obj147849 (let () (declare (not safe)) (##structure @@ -4142,18 +4078,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148747 + __obj147849 'gxc#!kw-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148747 '!kw-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj147849 '!kw-lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148747 + __obj147849 '(table dispatch) '4 '#f @@ -4161,75 +4097,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148747 + __obj147849 '(id signature table dispatch) '6 '#f '#f)) - (let ((__tmp149230 (cons |gxc[1]#_g148968_| '()))) + (let ((__tmp148319 (cons |gxc[1]#_g148144_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148747 __tmp149230 '3 '#f '#f)) + (##unchecked-structure-set! __obj147849 __tmp148319 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148747 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147849 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148747 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147849 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148747 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147849 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148747 ':init! '11 '#f '#f)) - (let ((__tmp149231 |gxc[1]#_g149232_|)) + (##unchecked-structure-set! __obj147849 ':init! '11 '#f '#f)) + (let ((__tmp148320 |gxc[1]#_g148321_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148747 __tmp149231 '12 '#f '#f)) - (let ((__tmp149233 |gxc[1]#_g149234_|)) + (##unchecked-structure-set! __obj147849 __tmp148320 '12 '#f '#f)) + (let ((__tmp148322 |gxc[1]#_g148323_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148747 __tmp149233 '13 '#f '#f)) - (let ((__tmp149235 |gxc[1]#_g149236_|)) + (##unchecked-structure-set! __obj147849 __tmp148322 '13 '#f '#f)) + (let ((__tmp148324 |gxc[1]#_g148325_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148747 __tmp149235 '14 '#f '#f)) - (let ((__tmp149237 - (cons (cons 'table |gxc[1]#_g149238_|) - (cons (cons 'dispatch |gxc[1]#_g149239_|) - (cons (cons 'signature |gxc[1]#_g149240_|) - (cons (cons 'id |gxc[1]#_g149241_|) '())))))) + (##unchecked-structure-set! __obj147849 __tmp148324 '14 '#f '#f)) + (let ((__tmp148326 + (cons (cons 'table |gxc[1]#_g148327_|) + (cons (cons 'dispatch |gxc[1]#_g148328_|) + (cons (cons 'signature |gxc[1]#_g148329_|) + (cons (cons 'id |gxc[1]#_g148330_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148747 __tmp149237 '15 '#f '#f)) - (let ((__tmp149242 - (cons (cons 'table |gxc[1]#_g149243_|) - (cons (cons 'dispatch |gxc[1]#_g149244_|) - (cons (cons 'signature |gxc[1]#_g149245_|) - (cons (cons 'id |gxc[1]#_g149246_|) '())))))) + (##unchecked-structure-set! __obj147849 __tmp148326 '15 '#f '#f)) + (let ((__tmp148331 + (cons (cons 'table |gxc[1]#_g148332_|) + (cons (cons 'dispatch |gxc[1]#_g148333_|) + (cons (cons 'signature |gxc[1]#_g148334_|) + (cons (cons 'id |gxc[1]#_g148335_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148747 __tmp149242 '16 '#f '#f)) - (let ((__tmp149247 - (cons (cons 'table |gxc[1]#_g149248_|) - (cons (cons 'dispatch |gxc[1]#_g149249_|) - (cons (cons 'signature |gxc[1]#_g149250_|) - (cons (cons 'id |gxc[1]#_g149251_|) '())))))) + (##unchecked-structure-set! __obj147849 __tmp148331 '16 '#f '#f)) + (let ((__tmp148336 + (cons (cons 'table |gxc[1]#_g148337_|) + (cons (cons 'dispatch |gxc[1]#_g148338_|) + (cons (cons 'signature |gxc[1]#_g148339_|) + (cons (cons 'id |gxc[1]#_g148340_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148747 __tmp149247 '17 '#f '#f)) - (let ((__tmp149252 - (cons (cons 'table |gxc[1]#_g149253_|) - (cons (cons 'dispatch |gxc[1]#_g149254_|) - (cons (cons 'signature |gxc[1]#_g149255_|) - (cons (cons 'id |gxc[1]#_g149256_|) '())))))) + (##unchecked-structure-set! __obj147849 __tmp148336 '17 '#f '#f)) + (let ((__tmp148341 + (cons (cons 'table |gxc[1]#_g148342_|) + (cons (cons 'dispatch |gxc[1]#_g148343_|) + (cons (cons 'signature |gxc[1]#_g148344_|) + (cons (cons 'id |gxc[1]#_g148345_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148747 __tmp149252 '18 '#f '#f)) - (let () + (##unchecked-structure-set! __obj147849 __tmp148341 '18 '#f '#f)) + (let ((__tmp148346 (cons (cons 'signature |gxc[1]#_g148067_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148747 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147849 __tmp148346 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148747 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147849 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148747 '() '20 '#f '#f)) - __obj148747)) + (##unchecked-structure-set! __obj147849 '() '20 '#f '#f)) + __obj147849)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj148748 + (let ((__obj147850 (let () (declare (not safe)) (##structure @@ -4258,7 +4194,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148748 + __obj147850 'gxc#!kw-lambda-primary::t '1 '#f @@ -4266,86 +4202,86 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148748 + __obj147850 '!kw-lambda-primary '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148748 '(keys main) '4 '#f '#f)) + (##unchecked-structure-set! __obj147850 '(keys main) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148748 + __obj147850 '(id signature keys main) '6 '#f '#f)) - (let ((__tmp149257 (cons |gxc[1]#_g148968_| '()))) + (let ((__tmp148347 (cons |gxc[1]#_g148144_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148748 __tmp149257 '3 '#f '#f)) + (##unchecked-structure-set! __obj147850 __tmp148347 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148748 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147850 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148748 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147850 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148748 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147850 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148748 ':init! '11 '#f '#f)) - (let ((__tmp149258 |gxc[1]#_g149259_|)) + (##unchecked-structure-set! __obj147850 ':init! '11 '#f '#f)) + (let ((__tmp148348 |gxc[1]#_g148349_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148748 __tmp149258 '12 '#f '#f)) - (let ((__tmp149260 |gxc[1]#_g149261_|)) + (##unchecked-structure-set! __obj147850 __tmp148348 '12 '#f '#f)) + (let ((__tmp148350 |gxc[1]#_g148351_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148748 __tmp149260 '13 '#f '#f)) - (let ((__tmp149262 |gxc[1]#_g149263_|)) + (##unchecked-structure-set! __obj147850 __tmp148350 '13 '#f '#f)) + (let ((__tmp148352 |gxc[1]#_g148353_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148748 __tmp149262 '14 '#f '#f)) - (let ((__tmp149264 - (cons (cons 'keys |gxc[1]#_g149265_|) - (cons (cons 'main |gxc[1]#_g149266_|) - (cons (cons 'signature |gxc[1]#_g149267_|) - (cons (cons 'id |gxc[1]#_g149268_|) '())))))) + (##unchecked-structure-set! __obj147850 __tmp148352 '14 '#f '#f)) + (let ((__tmp148354 + (cons (cons 'keys |gxc[1]#_g148355_|) + (cons (cons 'main |gxc[1]#_g148356_|) + (cons (cons 'signature |gxc[1]#_g148357_|) + (cons (cons 'id |gxc[1]#_g148358_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148748 __tmp149264 '15 '#f '#f)) - (let ((__tmp149269 - (cons (cons 'keys |gxc[1]#_g149270_|) - (cons (cons 'main |gxc[1]#_g149271_|) - (cons (cons 'signature |gxc[1]#_g149272_|) - (cons (cons 'id |gxc[1]#_g149273_|) '())))))) + (##unchecked-structure-set! __obj147850 __tmp148354 '15 '#f '#f)) + (let ((__tmp148359 + (cons (cons 'keys |gxc[1]#_g148360_|) + (cons (cons 'main |gxc[1]#_g148361_|) + (cons (cons 'signature |gxc[1]#_g148362_|) + (cons (cons 'id |gxc[1]#_g148363_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148748 __tmp149269 '16 '#f '#f)) - (let ((__tmp149274 - (cons (cons 'keys |gxc[1]#_g149275_|) - (cons (cons 'main |gxc[1]#_g149276_|) - (cons (cons 'signature |gxc[1]#_g149277_|) - (cons (cons 'id |gxc[1]#_g149278_|) '())))))) + (##unchecked-structure-set! __obj147850 __tmp148359 '16 '#f '#f)) + (let ((__tmp148364 + (cons (cons 'keys |gxc[1]#_g148365_|) + (cons (cons 'main |gxc[1]#_g148366_|) + (cons (cons 'signature |gxc[1]#_g148367_|) + (cons (cons 'id |gxc[1]#_g148368_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148748 __tmp149274 '17 '#f '#f)) - (let ((__tmp149279 - (cons (cons 'keys |gxc[1]#_g149280_|) - (cons (cons 'main |gxc[1]#_g149281_|) - (cons (cons 'signature |gxc[1]#_g149282_|) - (cons (cons 'id |gxc[1]#_g149283_|) '())))))) + (##unchecked-structure-set! __obj147850 __tmp148364 '17 '#f '#f)) + (let ((__tmp148369 + (cons (cons 'keys |gxc[1]#_g148370_|) + (cons (cons 'main |gxc[1]#_g148371_|) + (cons (cons 'signature |gxc[1]#_g148372_|) + (cons (cons 'id |gxc[1]#_g148373_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148748 __tmp149279 '18 '#f '#f)) - (let () + (##unchecked-structure-set! __obj147850 __tmp148369 '18 '#f '#f)) + (let ((__tmp148374 (cons (cons 'signature |gxc[1]#_g148067_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148748 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147850 __tmp148374 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148748 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147850 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148748 '() '20 '#f '#f)) - __obj148748)) + (##unchecked-structure-set! __obj147850 '() '20 '#f '#f)) + __obj147850)) (define |gxc[:0:]#!primitive| - (let ((__obj148749 + (let ((__obj147851 (let () (declare (not safe)) (##structure @@ -4374,68 +4310,172 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148749 + __obj147851 'gxc#!primitive::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 '!primitive '2 '#f '#f)) + (##unchecked-structure-set! __obj147851 '!primitive '2 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj147851 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj147851 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj147851 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj147851 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147851 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147851 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147851 '#f '11 '#f '#f)) + (let ((__tmp148375 |gxc[1]#_g148376_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj147851 __tmp148375 '12 '#f '#f)) + (let ((__tmp148377 |gxc[1]#_g148378_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj147851 __tmp148377 '13 '#f '#f)) + (let ((__tmp148379 |gxc[1]#_g148380_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj147851 __tmp148379 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 '#f '11 '#f '#f)) - (let ((__tmp149284 |gxc[1]#_g149285_|)) + (##unchecked-structure-set! __obj147851 '() '15 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj147851 '() '16 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj147851 '() '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj147851 '() '18 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj147851 '() '19 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj147851 '() '21 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj147851 '() '20 '#f '#f)) + __obj147851)) + (define |gxc[:0:]#!primitive-predicate| + (let ((__obj147852 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 __tmp149284 '12 '#f '#f)) - (let ((__tmp149286 |gxc[1]#_g149287_|)) + (##unchecked-structure-set! + __obj147852 + 'gxc#!primitive-predicate::t + '1 + '#f + '#f)) + (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 __tmp149286 '13 '#f '#f)) - (let ((__tmp149288 |gxc[1]#_g149289_|)) + (##unchecked-structure-set! + __obj147852 + '!primitive-predicate + '2 + '#f + '#f)) + (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 __tmp149288 '14 '#f '#f)) + (##unchecked-structure-set! __obj147852 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj147852 '(id signature) '6 '#f '#f)) + (let ((__tmp148381 + (cons |gxc[1]#_g148382_| (cons |gxc[1]#_g148144_| '())))) + (declare (not safe)) + (##unchecked-structure-set! __obj147852 __tmp148381 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj147852 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj147852 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj147852 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147852 ':init! '11 '#f '#f)) + (let ((__tmp148383 |gxc[1]#_g148384_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj147852 __tmp148383 '12 '#f '#f)) + (let ((__tmp148385 |gxc[1]#_g148386_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj147852 __tmp148385 '13 '#f '#f)) + (let ((__tmp148387 |gxc[1]#_g148388_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj147852 __tmp148387 '14 '#f '#f)) + (let ((__tmp148389 + (cons (cons 'signature |gxc[1]#_g148390_|) + (cons (cons 'id |gxc[1]#_g148391_|) '())))) + (declare (not safe)) + (##unchecked-structure-set! __obj147852 __tmp148389 '15 '#f '#f)) + (let ((__tmp148392 + (cons (cons 'signature |gxc[1]#_g148393_|) + (cons (cons 'id |gxc[1]#_g148394_|) '())))) + (declare (not safe)) + (##unchecked-structure-set! __obj147852 __tmp148392 '16 '#f '#f)) + (let ((__tmp148395 + (cons (cons 'signature |gxc[1]#_g148396_|) + (cons (cons 'id |gxc[1]#_g148397_|) '())))) + (declare (not safe)) + (##unchecked-structure-set! __obj147852 __tmp148395 '17 '#f '#f)) + (let ((__tmp148398 + (cons (cons 'signature |gxc[1]#_g148399_|) + (cons (cons 'id |gxc[1]#_g148400_|) '())))) + (declare (not safe)) + (##unchecked-structure-set! __obj147852 __tmp148398 '18 '#f '#f)) + (let ((__tmp148401 (cons (cons 'signature |gxc[1]#_g148067_|) '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj147852 __tmp148401 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147852 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148749 '() '20 '#f '#f)) - __obj148749)) + (##unchecked-structure-set! __obj147852 '() '20 '#f '#f)) + __obj147852)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj148750 + (let ((__obj147853 (let () (declare (not safe)) (##structure @@ -4464,7 +4504,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148750 + __obj147853 'gxc#!primitive-lambda::t '1 '#f @@ -4472,111 +4512,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148750 + __obj147853 '!primitive-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148750 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj147853 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148750 + __obj147853 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp149290 - (cons |gxc[1]#_g149291_| (cons |gxc[1]#_g149292_| '())))) + (let ((__tmp148402 + (cons |gxc[1]#_g148382_| (cons |gxc[1]#_g148403_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148750 __tmp149290 '3 '#f '#f)) + (##unchecked-structure-set! __obj147853 __tmp148402 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148750 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147853 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148750 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147853 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148750 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147853 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148750 ':init! '11 '#f '#f)) - (let ((__tmp149293 |gxc[1]#_g149294_|)) + (##unchecked-structure-set! __obj147853 ':init! '11 '#f '#f)) + (let ((__tmp148404 |gxc[1]#_g148405_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148750 __tmp149293 '12 '#f '#f)) - (let ((__tmp149295 |gxc[1]#_g149296_|)) + (##unchecked-structure-set! __obj147853 __tmp148404 '12 '#f '#f)) + (let ((__tmp148406 |gxc[1]#_g148407_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148750 __tmp149295 '13 '#f '#f)) - (let ((__tmp149297 |gxc[1]#_g149298_|)) + (##unchecked-structure-set! __obj147853 __tmp148406 '13 '#f '#f)) + (let ((__tmp148408 |gxc[1]#_g148409_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148750 __tmp149297 '14 '#f '#f)) - (let ((__tmp149299 - (cons (cons 'arity |gxc[1]#_g149300_|) - (cons (cons 'dispatch |gxc[1]#_g149301_|) - (cons (cons 'inline |gxc[1]#_g149302_|) + (##unchecked-structure-set! __obj147853 __tmp148408 '14 '#f '#f)) + (let ((__tmp148410 + (cons (cons 'arity |gxc[1]#_g148411_|) + (cons (cons 'dispatch |gxc[1]#_g148412_|) + (cons (cons 'inline |gxc[1]#_g148413_|) (cons (cons 'inline-typedecl - |gxc[1]#_g149303_|) + |gxc[1]#_g148414_|) (cons (cons 'signature - |gxc[1]#_g149304_|) + |gxc[1]#_g148415_|) (cons (cons 'id - |gxc[1]#_g149305_|) + |gxc[1]#_g148416_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj148750 __tmp149299 '15 '#f '#f)) - (let ((__tmp149306 - (cons (cons 'arity |gxc[1]#_g149307_|) - (cons (cons 'dispatch |gxc[1]#_g149308_|) - (cons (cons 'inline |gxc[1]#_g149309_|) + (##unchecked-structure-set! __obj147853 __tmp148410 '15 '#f '#f)) + (let ((__tmp148417 + (cons (cons 'arity |gxc[1]#_g148418_|) + (cons (cons 'dispatch |gxc[1]#_g148419_|) + (cons (cons 'inline |gxc[1]#_g148420_|) (cons (cons 'inline-typedecl - |gxc[1]#_g149310_|) + |gxc[1]#_g148421_|) (cons (cons 'signature - |gxc[1]#_g149311_|) + |gxc[1]#_g148422_|) (cons (cons 'id - |gxc[1]#_g149312_|) + |gxc[1]#_g148423_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj148750 __tmp149306 '16 '#f '#f)) - (let ((__tmp149313 - (cons (cons 'arity |gxc[1]#_g149314_|) - (cons (cons 'dispatch |gxc[1]#_g149315_|) - (cons (cons 'inline |gxc[1]#_g149316_|) + (##unchecked-structure-set! __obj147853 __tmp148417 '16 '#f '#f)) + (let ((__tmp148424 + (cons (cons 'arity |gxc[1]#_g148425_|) + (cons (cons 'dispatch |gxc[1]#_g148426_|) + (cons (cons 'inline |gxc[1]#_g148427_|) (cons (cons 'inline-typedecl - |gxc[1]#_g149317_|) + |gxc[1]#_g148428_|) (cons (cons 'signature - |gxc[1]#_g149318_|) + |gxc[1]#_g148429_|) (cons (cons 'id - |gxc[1]#_g149319_|) + |gxc[1]#_g148430_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj148750 __tmp149313 '17 '#f '#f)) - (let ((__tmp149320 - (cons (cons 'arity |gxc[1]#_g149321_|) - (cons (cons 'dispatch |gxc[1]#_g149322_|) - (cons (cons 'inline |gxc[1]#_g149323_|) + (##unchecked-structure-set! __obj147853 __tmp148424 '17 '#f '#f)) + (let ((__tmp148431 + (cons (cons 'arity |gxc[1]#_g148432_|) + (cons (cons 'dispatch |gxc[1]#_g148433_|) + (cons (cons 'inline |gxc[1]#_g148434_|) (cons (cons 'inline-typedecl - |gxc[1]#_g149324_|) + |gxc[1]#_g148435_|) (cons (cons 'signature - |gxc[1]#_g149325_|) + |gxc[1]#_g148436_|) (cons (cons 'id - |gxc[1]#_g149326_|) + |gxc[1]#_g148437_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj148750 __tmp149320 '18 '#f '#f)) - (let () + (##unchecked-structure-set! __obj147853 __tmp148431 '18 '#f '#f)) + (let ((__tmp148438 (cons (cons 'signature |gxc[1]#_g148067_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148750 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147853 __tmp148438 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148750 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147853 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148750 '() '20 '#f '#f)) - __obj148750)) + (##unchecked-structure-set! __obj147853 '() '20 '#f '#f)) + __obj147853)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj148751 + (let ((__obj147854 (let () (declare (not safe)) (##structure @@ -4605,7 +4645,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148751 + __obj147854 'gxc#!primitive-case-lambda::t '1 '#f @@ -4613,78 +4653,78 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148751 + __obj147854 '!primitive-case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148751 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj147854 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148751 + __obj147854 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp149327 - (cons |gxc[1]#_g149291_| (cons |gxc[1]#_g149328_| '())))) + (let ((__tmp148439 + (cons |gxc[1]#_g148382_| (cons |gxc[1]#_g148440_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj148751 __tmp149327 '3 '#f '#f)) + (##unchecked-structure-set! __obj147854 __tmp148439 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148751 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147854 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148751 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147854 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148751 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147854 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148751 ':init! '11 '#f '#f)) - (let ((__tmp149329 |gxc[1]#_g149330_|)) + (##unchecked-structure-set! __obj147854 ':init! '11 '#f '#f)) + (let ((__tmp148441 |gxc[1]#_g148442_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148751 __tmp149329 '12 '#f '#f)) - (let ((__tmp149331 |gxc[1]#_g149332_|)) + (##unchecked-structure-set! __obj147854 __tmp148441 '12 '#f '#f)) + (let ((__tmp148443 |gxc[1]#_g148444_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148751 __tmp149331 '13 '#f '#f)) - (let ((__tmp149333 |gxc[1]#_g149334_|)) + (##unchecked-structure-set! __obj147854 __tmp148443 '13 '#f '#f)) + (let ((__tmp148445 |gxc[1]#_g148446_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148751 __tmp149333 '14 '#f '#f)) - (let ((__tmp149335 - (cons (cons 'clauses |gxc[1]#_g149336_|) - (cons (cons 'signature |gxc[1]#_g149337_|) - (cons (cons 'id |gxc[1]#_g149338_|) '()))))) + (##unchecked-structure-set! __obj147854 __tmp148445 '14 '#f '#f)) + (let ((__tmp148447 + (cons (cons 'clauses |gxc[1]#_g148448_|) + (cons (cons 'signature |gxc[1]#_g148449_|) + (cons (cons 'id |gxc[1]#_g148450_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj148751 __tmp149335 '15 '#f '#f)) - (let ((__tmp149339 - (cons (cons 'clauses |gxc[1]#_g149340_|) - (cons (cons 'signature |gxc[1]#_g149341_|) - (cons (cons 'id |gxc[1]#_g149342_|) '()))))) + (##unchecked-structure-set! __obj147854 __tmp148447 '15 '#f '#f)) + (let ((__tmp148451 + (cons (cons 'clauses |gxc[1]#_g148452_|) + (cons (cons 'signature |gxc[1]#_g148453_|) + (cons (cons 'id |gxc[1]#_g148454_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj148751 __tmp149339 '16 '#f '#f)) - (let ((__tmp149343 - (cons (cons 'clauses |gxc[1]#_g149344_|) - (cons (cons 'signature |gxc[1]#_g149345_|) - (cons (cons 'id |gxc[1]#_g149346_|) '()))))) + (##unchecked-structure-set! __obj147854 __tmp148451 '16 '#f '#f)) + (let ((__tmp148455 + (cons (cons 'clauses |gxc[1]#_g148456_|) + (cons (cons 'signature |gxc[1]#_g148457_|) + (cons (cons 'id |gxc[1]#_g148458_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj148751 __tmp149343 '17 '#f '#f)) - (let ((__tmp149347 - (cons (cons 'clauses |gxc[1]#_g149348_|) - (cons (cons 'signature |gxc[1]#_g149349_|) - (cons (cons 'id |gxc[1]#_g149350_|) '()))))) + (##unchecked-structure-set! __obj147854 __tmp148455 '17 '#f '#f)) + (let ((__tmp148459 + (cons (cons 'clauses |gxc[1]#_g148460_|) + (cons (cons 'signature |gxc[1]#_g148461_|) + (cons (cons 'id |gxc[1]#_g148462_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj148751 __tmp149347 '18 '#f '#f)) - (let () + (##unchecked-structure-set! __obj147854 __tmp148459 '18 '#f '#f)) + (let ((__tmp148463 (cons (cons 'signature |gxc[1]#_g148067_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148751 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147854 __tmp148463 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148751 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147854 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148751 '() '20 '#f '#f)) - __obj148751)))) + (##unchecked-structure-set! __obj147854 '() '20 '#f '#f)) + __obj147854)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call.ssxi.ss b/src/bootstrap/gerbil/compiler/optimize-call.ssxi.ss index b04cf3e68..5bff99316 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/optimize-call.ssxi.ss @@ -36,7 +36,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-call))) (declare-class gxc#::check-return-type::t (@class gxc#::check-return-type::t @@ -73,8 +82,31 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#optimize-call% (@lambda 2 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-call))) + (declare-type + gxc#optimize-call% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-call))) (declare-type gxc#!procedure::optimize-call (@lambda 4 @@ -87,7 +119,9 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-call))) (declare-type gxc#!procedure::check-arguments (@lambda 4 @@ -100,7 +134,9 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-call))) (declare-type gxc#!primitive-predicate::optimize-call (@lambda 4 @@ -113,7 +149,9 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-call))) (declare-type gxc#!predicate::optimize-call (@lambda 4 @@ -126,10 +164,54 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t) unchecked: - #f))) - (declare-type gxc#expression-no-side-effects? (@lambda 1 #f)) - (declare-type gxc#expression-type? (@lambda 2 #f)) - (declare-type gxc#check-expression-type! (@lambda 3 #f)) + #f + origin: + gerbil/compiler/optimize-call))) + (declare-type + gxc#expression-no-side-effects? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-call))) + (declare-type + gxc#expression-type? + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-call))) + (declare-type + gxc#check-expression-type! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-call))) (declare-type gxc#!constructor::optimize-call (@lambda 4 @@ -142,7 +224,9 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-call))) (declare-type gxc#!accessor::optimize-call (@lambda 4 @@ -155,7 +239,9 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-call))) (declare-type gxc#!mutator::optimize-call (@lambda 4 @@ -168,7 +254,9 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-call))) (declare-type gxc#!lambda::optimize-call (@lambda 4 @@ -181,7 +269,9 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-call))) (declare-type gxc#!case-lambda::optimize-call (@lambda 4 @@ -194,7 +284,9 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-call))) (declare-type gxc#!kw-lambda::optimize-call (@lambda 4 @@ -207,8 +299,24 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t) unchecked: - #f))) - (declare-type gxc#!kw-lambda-split-args (@lambda 2 #f)) + #f + origin: + gerbil/compiler/optimize-call))) + (declare-type + gxc#!kw-lambda-split-args + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-call))) (declare-type gxc#!kw-lambda-primary::optimize-call (@lambda 4 @@ -221,6 +329,36 @@ package: gerbil/compiler arguments: (t::t t::t t::t t::t) unchecked: - #f))) - (declare-type gxc#apply-check-return-type-begin-annotation% (@lambda 2 #f)) - (declare-type gxc#check-return-type! (@lambda 3 #f))) + #f + origin: + gerbil/compiler/optimize-call))) + (declare-type + gxc#apply-check-return-type-begin-annotation% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-call))) + (declare-type + gxc#check-return-type! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-call)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~0.scm b/src/bootstrap/gerbil/compiler/optimize-call~0.scm index 20176c7c7..4ef07b6cb 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 1712533296) + (define gerbil/compiler/optimize-call::timestamp 1712573437) (begin (define gxc#::optimize-call::t - (let ((__tmp191092 (list gxc#::basic-xform::t)) - (__tmp191091 (cons (cons 'final: '#t) '()))) + (let ((__tmp190031 (list gxc#::basic-xform::t)) + (__tmp190030 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-call::t '::optimize-call - __tmp191092 + __tmp190031 '() - __tmp191091 + __tmp190030 '#f))) (define gxc#::optimize-call? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-call::t))) (define gxc#make-::optimize-call - (lambda _%$args190641%_ - (apply make-instance gxc#::optimize-call::t _%$args190641%_))) + (lambda _%$args189580%_ + (apply make-instance gxc#::optimize-call::t _%$args189580%_))) (define gxc#::optimize-call-bind-methods! - (let ((__tmp191093 + (let ((__tmp190032 (lambda () (force gxc#::basic-xform-bind-methods!) (let () @@ -34,46 +34,46 @@ (declare (not safe)) (__seal-class! gxc#::optimize-call::t))))) (declare (not safe)) - (__make-promise __tmp191093))) + (__make-promise __tmp190032))) (define gxc#apply-optimize-call - (lambda (_%stx190633%_) + (lambda (_%stx189572%_) (force gxc#::optimize-call-bind-methods!) - (let* ((_%self190636%_ - (let ((__obj191083 + (let* ((_%self189575%_ + (let ((__obj190022 (let () (declare (not safe)) (##structure gxc#::optimize-call::t)))) - __obj191083)) - (__tmp191094 + __obj190022)) + (__tmp190033 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self190636%_ _%stx190633%_))))) + (gxc#compile-e__1 _%self189575%_ _%stx189572%_))))) (declare (not safe)) (__call-with-parameters - __tmp191094 + __tmp190033 gxc#current-compile-method - _%self190636%_)))) + _%self189575%_)))) (define gxc#::check-return-type::t - (let ((__tmp191096 (list gxc#::void::t)) - (__tmp191095 (cons (cons 'final: '#t) '()))) + (let ((__tmp190035 (list gxc#::void::t)) + (__tmp190034 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::check-return-type::t '::check-return-type - __tmp191096 + __tmp190035 '() - __tmp191095 + __tmp190034 '#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 _%$args190630%_ - (apply make-instance gxc#::check-return-type::t _%$args190630%_))) + (lambda _%$args189569%_ + (apply make-instance gxc#::check-return-type::t _%$args189569%_))) (define gxc#::check-return-type-bind-methods! - (let ((__tmp191097 + (let ((__tmp190036 (lambda () (force gxc#::void-bind-methods!) (let () @@ -164,963 +164,953 @@ (declare (not safe)) (__seal-class! gxc#::check-return-type::t))))) (declare (not safe)) - (__make-promise __tmp191097))) + (__make-promise __tmp190036))) (define gxc#apply-check-return-type - (lambda (_%stx190622%_) + (lambda (_%stx189561%_) (force gxc#::check-return-type-bind-methods!) - (let* ((_%self190625%_ - (let ((__obj191085 + (let* ((_%self189564%_ + (let ((__obj190024 (let () (declare (not safe)) (##structure gxc#::check-return-type::t)))) - __obj191085)) - (__tmp191098 + __obj190024)) + (__tmp190037 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self190625%_ _%stx190622%_))))) + (gxc#compile-e__1 _%self189564%_ _%stx189561%_))))) (declare (not safe)) (__call-with-parameters - __tmp191098 + __tmp190037 gxc#current-compile-method - _%self190625%_)))) + _%self189564%_)))) (define gxc#optimize-call% - (lambda (_%self190232%_ _%stx190233%_) - (let* ((_%__stx190696190697%_ _%stx190233%_) - (_%g190236190282%_ + (lambda (_%self189162%_ _%stx189163%_) + (let* ((_%__stx189635189636%_ _%stx189163%_) + (_%g189166189212%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190696190697%_))))) - (let ((_%__kont190698190699%_ - (lambda (_%L190425%_ _%L190426%_) - (let* ((_%rator-id190446%_ + _%__stx189635189636%_))))) + (let ((_%__kont189637189638%_ + (lambda (_%L189355%_ _%L189356%_) + (let* ((_%rator-id189376%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L190426%_))) - (_%rator-type190448%_ + (gxc#identifier-symbol _%L189356%_))) + (_%rator-type189378%_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _%rator-id190446%_)))) - (if (or (let () - (declare (not safe)) - (not _%rator-type190448%_)) + (gxc#optimizer-resolve-type _%rator-id189376%_)))) + (if (or (not _%rator-type189378%_) (eq? (##structure-ref - _%rator-type190448%_ + _%rator-type189378%_ '1 gxc#!type::t '#f) 't)) (let () (declare (not safe)) - (gxc#xform-call% _%self190232%_ _%stx190233%_)) + (gxc#xform-call% _%self189162%_ _%stx189163%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type190448%_ + _%rator-type189378%_ 'gxc#!procedure::t)) (let () - (let ((__tmp191099 + (let ((__tmp190038 (##structure-ref - _%rator-type190448%_ + _%rator-type189378%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#verbose '"optimize-call " - _%rator-id190446%_ + _%rator-id189376%_ '" => " - _%rator-type190448%_ + _%rator-type189378%_ '" " - __tmp191099)) - (let* ((_%optimized190463%_ - (let ((__method191086 + __tmp190038)) + (let* ((_%optimized189393%_ + (let ((__method190025 (let () (declare (not safe)) (__method-ref - _%rator-type190448%_ + _%rator-type189378%_ 'optimize-call)))) - (if __method191086 - (__method191086 - _%rator-type190448%_ - _%self190232%_ - _%stx190233%_ - (let ((__tmp191100 - (lambda (_%g190455190458%_ - _%g190456190460%_) - (cons _%g190455190458%_ - _%g190456190460%_)))) + (if __method190025 + (__method190025 + _%rator-type189378%_ + _%self189162%_ + _%stx189163%_ + (let ((__tmp190039 + (lambda (_%g189385189388%_ + _%g189386189390%_) + (cons _%g189385189388%_ + _%g189386189390%_)))) (declare (not safe)) (__foldr1 - __tmp191100 + __tmp190039 '() - _%L190425%_))) + _%L189355%_))) (let () (declare (not safe)) (error '"Missing method" - _%rator-type190448%_ + _%rator-type189378%_ 'optimize-call))))) - (_%__stx190644190645%_ - _%optimized190463%_) - (_%g190466190495%_ + (_%__stx189583189584%_ + _%optimized189393%_) + (_%g189396189425%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190644190645%_))))) - (let ((_%__kont190646190647%_ - (lambda (_%L190563%_ _%L190564%_) - (let ((_%optimized-rator-id190591%_ - (let () - (declare (not safe)) - (gxc#identifier-symbol - _%L190564%_)))) - (if (or (and (let () + _%__stx189583189584%_))))) + (let ((_%__kont189585189586%_ + (lambda (_%L189493%_ _%L189494%_) + (let* ((_%optimized-rator-id189521%_ + (let () + (declare (not safe)) + (gxc#identifier-symbol + _%L189494%_))) + (_%rator-type189526%_ + (let ((_%$e189523%_ + (let () (declare (not safe)) - (class-instance? - gxc#!primitive::t - _%rator-type190448%_)) - (eq? _%optimized-rator-id190591%_ - _%rator-id190446%_)) + (gxc#optimizer-lookup-type + _%optimized-rator-id189521%_)))) + (if _%$e189523%_ + _%$e189523%_ + _%rator-type189378%_)))) + (if (or (let () + (declare (not safe)) + (class-instance? + gxc#!primitive::t + _%rator-type189526%_)) (let () (declare (not safe)) - (##memq _%optimized-rator-id190591%_ - gxc#checked-primitives))) - _%optimized190463%_ - (let ((__tmp191101 - (let ((__tmp191102 - (let ((__tmp191105 + (##memq _%optimized-rator-id189521%_ + gxc#checked-primitives)) + (and (let () + (declare (not safe)) + (##structure-instance-of? + _%rator-type189526%_ + 'gxc#!procedure::t)) + (eq? (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L190564%_ '()))) - (__tmp191103 - (let ((__tmp191104 - (lambda (_%g190595190598%_ - _%g190596190600%_) - (cons _%g190595190598%_ - _%g190596190600%_)))) - (declare (not safe)) - (__foldr1 __tmp191104 '() _%L190563%_)))) - (declare (not safe)) - (cons __tmp191105 __tmp191103)))) - (declare (not safe)) - (cons '%#call-unchecked __tmp191102)))) + (not safe)) + (gxc#!procedure-origin _%rator-type189526%_)) + (##structure-ref + (let () + (declare (not safe)) + (gx#current-expander-context)) + '1 + gx#expander-context::t + '#f)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%optimized189393%_ + (let ((__tmp190040 + (cons '%#call-unchecked + (cons (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#datum->syntax__0 '#f '%#ref)) + (cons _%L189494%_ '())) + (let ((__tmp190041 + (lambda (_%g189534189537%_ _%g189535189539%_) + (cons _%g189534189537%_ + _%g189535189539%_)))) + (declare (not safe)) + (__foldr1 __tmp190041 '() _%L189493%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp191101 - _%stx190233%_)))))) - (_%__kont190650190651%_ - (lambda () _%optimized190463%_))) - (let ((_%__match190693190694%_ - (lambda (_%e190472190507%_ - _%hd190471190510%_ - _%tl190470190512%_ - _%e190475190515%_ - _%hd190474190518%_ - _%tl190473190520%_ - _%e190478190523%_ - _%hd190477190526%_ - _%tl190476190528%_ - _%e190481190531%_ - _%hd190480190534%_ - _%tl190479190536%_ - _%__splice190648190649%_ - _%target190482190539%_ - _%tl190484190541%_) - (letrec ((_%loop190485190544%_ - (lambda (_%hd190483190547%_ - _%arg190489190549%_) + __tmp190040 + _%stx189163%_)))))) + (_%__kont189589189590%_ + (lambda () _%optimized189393%_))) + (let ((_%__match189632189633%_ + (lambda (_%e189402189437%_ + _%hd189401189440%_ + _%tl189400189442%_ + _%e189405189445%_ + _%hd189404189448%_ + _%tl189403189450%_ + _%e189408189453%_ + _%hd189407189456%_ + _%tl189406189458%_ + _%e189411189461%_ + _%hd189410189464%_ + _%tl189409189466%_ + _%__splice189587189588%_ + _%target189412189469%_ + _%tl189414189471%_) + (letrec ((_%loop189415189474%_ + (lambda (_%hd189413189477%_ + _%arg189419189479%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd190483190547%_)) - (let ((_%e190486190552%_ + _%hd189413189477%_)) + (let ((_%e189416189482%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd190483190547%_)))) - (let ((_%lp-tl190488190557%_ + (gx#stx-e _%hd189413189477%_)))) + (let ((_%lp-tl189418189487%_ (let () (declare (not safe)) - (##cdr _%e190486190552%_))) - (_%lp-hd190487190555%_ + (##cdr _%e189416189482%_))) + (_%lp-hd189417189485%_ (let () (declare (not safe)) - (##car _%e190486190552%_)))) - (let ((__tmp191106 - (cons _%lp-hd190487190555%_ - _%arg190489190549%_))) - (declare (not safe)) - (_%loop190485190544%_ - _%lp-tl190488190557%_ - __tmp191106)))) - (let ((_%arg190490190560%_ (reverse _%arg190489190549%_))) - (_%__kont190646190647%_ - _%arg190490190560%_ - _%hd190480190534%_)))))) + (##car _%e189416189482%_)))) + (_%loop189415189474%_ + _%lp-tl189418189487%_ + (cons _%lp-hd189417189485%_ _%arg189419189479%_)))) + (let ((_%arg189420189490%_ (reverse _%arg189419189479%_))) + (_%__kont189585189586%_ + _%arg189420189490%_ + _%hd189410189464%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop190485190544%_ - _%target190482190539%_ - '())))))) + (_%loop189415189474%_ + _%target189412189469%_ + '()))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190644190645%_)) - (let ((_%e190472190507%_ + _%__stx189583189584%_)) + (let ((_%e189402189437%_ (let () (declare (not safe)) (gx#stx-e - _%__stx190644190645%_)))) - (let ((_%tl190470190512%_ + _%__stx189583189584%_)))) + (let ((_%tl189400189442%_ (let () (declare (not safe)) - (##cdr _%e190472190507%_))) - (_%hd190471190510%_ + (##cdr _%e189402189437%_))) + (_%hd189401189440%_ (let () (declare (not safe)) - (##car _%e190472190507%_)))) + (##car _%e189402189437%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd190471190510%_)) + _%hd189401189440%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd190471190510%_)) + _%hd189401189440%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl190470190512%_)) - (let ((_%e190475190515%_ + _%tl189400189442%_)) + (let ((_%e189405189445%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl190470190512%_)))) - (let ((_%tl190473190520%_ + (gx#stx-e _%tl189400189442%_)))) + (let ((_%tl189403189450%_ (let () (declare (not safe)) - (##cdr _%e190475190515%_))) - (_%hd190474190518%_ + (##cdr _%e189405189445%_))) + (_%hd189404189448%_ (let () (declare (not safe)) - (##car _%e190475190515%_)))) + (##car _%e189405189445%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd190474190518%_)) - (let ((_%e190478190523%_ + (gx#stx-pair? _%hd189404189448%_)) + (let ((_%e189408189453%_ (let () (declare (not safe)) - (gx#stx-e _%hd190474190518%_)))) - (let ((_%tl190476190528%_ + (gx#stx-e _%hd189404189448%_)))) + (let ((_%tl189406189458%_ (let () (declare (not safe)) - (##cdr _%e190478190523%_))) - (_%hd190477190526%_ + (##cdr _%e189408189453%_))) + (_%hd189407189456%_ (let () (declare (not safe)) - (##car _%e190478190523%_)))) + (##car _%e189408189453%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd190477190526%_)) + (gx#identifier? _%hd189407189456%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd190477190526%_)) + (gx#stx-eq? '%#ref _%hd189407189456%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl190476190528%_)) - (let ((_%e190481190531%_ + (gx#stx-pair? _%tl189406189458%_)) + (let ((_%e189411189461%_ (let () (declare (not safe)) (gx#stx-e - _%tl190476190528%_)))) - (let ((_%tl190479190536%_ + _%tl189406189458%_)))) + (let ((_%tl189409189466%_ (let () (declare (not safe)) - (##cdr _%e190481190531%_))) - (_%hd190480190534%_ + (##cdr _%e189411189461%_))) + (_%hd189410189464%_ (let () (declare (not safe)) - (##car _%e190481190531%_)))) + (##car _%e189411189461%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl190479190536%_)) + _%tl189409189466%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl190473190520%_)) - (let ((_%__splice190648190649%_ + _%tl189403189450%_)) + (let ((_%__splice189587189588%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl190473190520%_ + _%tl189403189450%_ '0)))) - (let ((_%tl190484190541%_ + (let ((_%tl189414189471%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice190648190649%_ '1))) - (_%target190482190539%_ + (##vector-ref _%__splice189587189588%_ '1))) + (_%target189412189469%_ (let () (declare (not safe)) - (##vector-ref _%__splice190648190649%_ '0)))) + (##vector-ref _%__splice189587189588%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl190484190541%_)) - (_%__match190693190694%_ - _%e190472190507%_ - _%hd190471190510%_ - _%tl190470190512%_ - _%e190475190515%_ - _%hd190474190518%_ - _%tl190473190520%_ - _%e190478190523%_ - _%hd190477190526%_ - _%tl190476190528%_ - _%e190481190531%_ - _%hd190480190534%_ - _%tl190479190536%_ - _%__splice190648190649%_ - _%target190482190539%_ - _%tl190484190541%_) - (_%__kont190650190651%_)))) + (gx#stx-null? _%tl189414189471%_)) + (_%__match189632189633%_ + _%e189402189437%_ + _%hd189401189440%_ + _%tl189400189442%_ + _%e189405189445%_ + _%hd189404189448%_ + _%tl189403189450%_ + _%e189408189453%_ + _%hd189407189456%_ + _%tl189406189458%_ + _%e189411189461%_ + _%hd189410189464%_ + _%tl189409189466%_ + _%__splice189587189588%_ + _%target189412189469%_ + _%tl189414189471%_) + (_%__kont189589189590%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190650190651%_)) - (_%__kont190650190651%_)))) - (_%__kont190650190651%_)) - (_%__kont190650190651%_)) - (_%__kont190650190651%_)))) - (_%__kont190650190651%_)))) - (_%__kont190650190651%_)) + (_%__kont189589189590%_)) + (_%__kont189589189590%_)))) + (_%__kont189589189590%_)) + (_%__kont189589189590%_)) + (_%__kont189589189590%_)))) + (_%__kont189589189590%_)))) + (_%__kont189589189590%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190650190651%_)) - (_%__kont190650190651%_)))) - (_%__kont190650190651%_)))))) + (_%__kont189589189590%_)) + (_%__kont189589189590%_)))) + (_%__kont189589189590%_)))))) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type190448%_ + _%rator-type189378%_ 'gxc#!class::t)) (eq? (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type190448%_ + _%rator-type189378%_ '1 '#f '#f)) 'procedure)) - (let ((__tmp191107 - (let ((__tmp191108 - (let ((__tmp191111 - (cons (let () - (declare - (not safe)) - (gx#datum->syntax__0 - '#f - '%#ref)) - (cons _%L190426%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp191109 - (map (lambda (_%g190606190608%_) - (let () - (declare + (let ((__tmp190042 + (cons '%#call-unchecked + (cons (cons (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + '%#ref)) + (cons _%L189356%_ + '())) + (map (lambda (_%g189545189547%_) + (let () + (declare + (not safe)) + (gxc#compile-e__1 + _%self189162%_ + _%g189545189547%_))) + (let ((__tmp190043 + (lambda (_%g189549189552%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gxc#compile-e__1 _%self190232%_ _%g190606190608%_))) - (let ((__tmp191110 - (lambda (_%g190610190613%_ _%g190611190615%_) - (cons _%g190610190613%_ _%g190611190615%_)))) - (declare (not safe)) - (__foldr1 __tmp191110 '() _%L190425%_))))) + _%g189550189554%_) + (cons _%g189549189552%_ _%g189550189554%_)))) + (declare (not safe)) + (__foldr1 __tmp190043 '() _%L189355%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp191111 - __tmp191109)))) - (declare (not safe)) - (cons '%#call-unchecked - __tmp191108)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp191107 - _%stx190233%_)) + __tmp190042 + _%stx189163%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx190233%_ - _%rator-type190448%_)))))))) - (_%__kont190702190703%_ - (lambda (_%L190327%_ _%L190328%_) - (let ((_%rator-type190345%_ + _%stx189163%_ + _%rator-type189378%_)))))))) + (_%__kont189641189642%_ + (lambda (_%L189257%_ _%L189258%_) + (let ((_%rator-type189275%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%L190328%_)))) - (if (and _%rator-type190345%_ + (gxc#apply-basic-expression-type _%L189258%_)))) + (if (and _%rator-type189275%_ (eq? (##structure-ref - _%rator-type190345%_ + _%rator-type189275%_ '1 gxc#!type::t '#f) 'procedure) - (let ((__tmp191112 - (let () - (declare (not safe)) - (class-instance? - gxc#!primitive::t - _%rator-type190345%_)))) - (declare (not safe)) - (not __tmp191112))) - (let ((__tmp191113 - (let ((__tmp191114 - (let ((__tmp191117 + (not (let () + (declare (not safe)) + (class-instance? + gxc#!primitive::t + _%rator-type189275%_))) + (not (and (let () + (declare (not safe)) + (##structure-instance-of? + _%rator-type189275%_ + 'gxc#!procedure::t)) + (eq? (let () + (declare (not safe)) + (gxc#!procedure-origin + _%rator-type189275%_)) + (##structure-ref (let () (declare (not safe)) - (gxc#compile-e__1 - _%self190232%_ - _%L190328%_))) - (__tmp191115 - (map (lambda (_%g190347190349%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%self190232%_ - _%g190347190349%_))) - (let ((__tmp191116 - (lambda (_%g190351190354%_ + (gx#current-expander-context)) + '1 + gx#expander-context::t + '#f))))) + (let ((__tmp190044 + (cons '%#call-unchecked + (cons (let () + (declare (not safe)) + (gxc#compile-e__1 + _%self189162%_ + _%L189258%_)) + (map (lambda (_%g189277189279%_) + (let () + (declare (not safe)) + (gxc#compile-e__1 + _%self189162%_ + _%g189277189279%_))) + (let ((__tmp190045 + (lambda (_%g189281189284%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g190352190356%_) - (cons _%g190351190354%_ _%g190352190356%_)))) + _%g189282189286%_) + (cons _%g189281189284%_ _%g189282189286%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr1 - __tmp191116 - '() - _%L190327%_))))) - (declare (not safe)) - (cons __tmp191117 __tmp191115)))) - (declare (not safe)) - (cons '%#call-unchecked __tmp191114)))) + (declare (not safe)) + (__foldr1 + __tmp190045 + '() + _%L189257%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp191113 _%stx190233%_)) - (if (or (let () - (declare (not safe)) - (not _%rator-type190345%_)) - (let ((__tmp191118 + (gxc#xform-wrap-source __tmp190044 _%stx189163%_)) + (if (or (not _%rator-type189275%_) + (let ((__tmp190046 (##structure-ref - _%rator-type190345%_ + _%rator-type189275%_ '1 gxc#!type::t '#f))) (declare (not safe)) - (##memq __tmp191118 '(t procedure)))) + (##memq __tmp190046 '(t procedure)))) (let () (declare (not safe)) - (gxc#xform-call% _%self190232%_ _%stx190233%_)) + (gxc#xform-call% _%self189162%_ _%stx189163%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx190233%_ - _%rator-type190345%_)))))))) - (let* ((_%__match190763190764%_ - (lambda (_%e190265190287%_ - _%hd190264190290%_ - _%tl190263190292%_ - _%e190268190295%_ - _%hd190267190298%_ - _%tl190266190300%_ - _%__splice190704190705%_ - _%target190269190303%_ - _%tl190271190305%_) - (letrec ((_%loop190272190308%_ - (lambda (_%hd190270190311%_ - _%rand190276190313%_) + _%stx189163%_ + _%rator-type189275%_)))))))) + (let* ((_%__match189702189703%_ + (lambda (_%e189195189217%_ + _%hd189194189220%_ + _%tl189193189222%_ + _%e189198189225%_ + _%hd189197189228%_ + _%tl189196189230%_ + _%__splice189643189644%_ + _%target189199189233%_ + _%tl189201189235%_) + (letrec ((_%loop189202189238%_ + (lambda (_%hd189200189241%_ + _%rand189206189243%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd190270190311%_)) - (let ((_%e190273190316%_ + (gx#stx-pair? _%hd189200189241%_)) + (let ((_%e189203189246%_ (let () (declare (not safe)) - (gx#stx-e _%hd190270190311%_)))) - (let ((_%lp-tl190275190321%_ + (gx#stx-e _%hd189200189241%_)))) + (let ((_%lp-tl189205189251%_ (let () (declare (not safe)) - (##cdr _%e190273190316%_))) - (_%lp-hd190274190319%_ + (##cdr _%e189203189246%_))) + (_%lp-hd189204189249%_ (let () (declare (not safe)) - (##car _%e190273190316%_)))) - (let ((__tmp191119 - (cons _%lp-hd190274190319%_ - _%rand190276190313%_))) - (declare (not safe)) - (_%loop190272190308%_ - _%lp-tl190275190321%_ - __tmp191119)))) - (let ((_%rand190277190324%_ - (reverse _%rand190276190313%_))) - (_%__kont190702190703%_ - _%rand190277190324%_ - _%hd190267190298%_)))))) - (let () - (declare (not safe)) - (_%loop190272190308%_ _%target190269190303%_ '()))))) - (_%__match190743190744%_ - (lambda (_%e190242190369%_ - _%hd190241190372%_ - _%tl190240190374%_ - _%e190245190377%_ - _%hd190244190380%_ - _%tl190243190382%_ - _%e190248190385%_ - _%hd190247190388%_ - _%tl190246190390%_ - _%e190251190393%_ - _%hd190250190396%_ - _%tl190249190398%_ - _%__splice190700190701%_ - _%target190252190401%_ - _%tl190254190403%_) - (letrec ((_%loop190255190406%_ - (lambda (_%hd190253190409%_ - _%rand190259190411%_) + (##car _%e189203189246%_)))) + (_%loop189202189238%_ + _%lp-tl189205189251%_ + (cons _%lp-hd189204189249%_ + _%rand189206189243%_)))) + (let ((_%rand189207189254%_ + (reverse _%rand189206189243%_))) + (_%__kont189641189642%_ + _%rand189207189254%_ + _%hd189197189228%_)))))) + (_%loop189202189238%_ _%target189199189233%_ '())))) + (_%__match189682189683%_ + (lambda (_%e189172189299%_ + _%hd189171189302%_ + _%tl189170189304%_ + _%e189175189307%_ + _%hd189174189310%_ + _%tl189173189312%_ + _%e189178189315%_ + _%hd189177189318%_ + _%tl189176189320%_ + _%e189181189323%_ + _%hd189180189326%_ + _%tl189179189328%_ + _%__splice189639189640%_ + _%target189182189331%_ + _%tl189184189333%_) + (letrec ((_%loop189185189336%_ + (lambda (_%hd189183189339%_ + _%rand189189189341%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd190253190409%_)) - (let ((_%e190256190414%_ + (gx#stx-pair? _%hd189183189339%_)) + (let ((_%e189186189344%_ (let () (declare (not safe)) - (gx#stx-e _%hd190253190409%_)))) - (let ((_%lp-tl190258190419%_ + (gx#stx-e _%hd189183189339%_)))) + (let ((_%lp-tl189188189349%_ (let () (declare (not safe)) - (##cdr _%e190256190414%_))) - (_%lp-hd190257190417%_ + (##cdr _%e189186189344%_))) + (_%lp-hd189187189347%_ (let () (declare (not safe)) - (##car _%e190256190414%_)))) - (let ((__tmp191120 - (cons _%lp-hd190257190417%_ - _%rand190259190411%_))) - (declare (not safe)) - (_%loop190255190406%_ - _%lp-tl190258190419%_ - __tmp191120)))) - (let ((_%rand190260190422%_ - (reverse _%rand190259190411%_))) - (_%__kont190698190699%_ - _%rand190260190422%_ - _%hd190250190396%_)))))) - (let () - (declare (not safe)) - (_%loop190255190406%_ - _%target190252190401%_ - '())))))) + (##car _%e189186189344%_)))) + (_%loop189185189336%_ + _%lp-tl189188189349%_ + (cons _%lp-hd189187189347%_ + _%rand189189189341%_)))) + (let ((_%rand189190189352%_ + (reverse _%rand189189189341%_))) + (_%__kont189637189638%_ + _%rand189190189352%_ + _%hd189180189326%_)))))) + (_%loop189185189336%_ _%target189182189331%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190696190697%_)) - (let ((_%e190242190369%_ + (gx#stx-pair? _%__stx189635189636%_)) + (let ((_%e189172189299%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190696190697%_)))) - (let ((_%tl190240190374%_ + (gx#stx-e _%__stx189635189636%_)))) + (let ((_%tl189170189304%_ (let () (declare (not safe)) - (##cdr _%e190242190369%_))) - (_%hd190241190372%_ + (##cdr _%e189172189299%_))) + (_%hd189171189302%_ (let () (declare (not safe)) - (##car _%e190242190369%_)))) + (##car _%e189172189299%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl190240190374%_)) - (let ((_%e190245190377%_ + (gx#stx-pair? _%tl189170189304%_)) + (let ((_%e189175189307%_ (let () (declare (not safe)) - (gx#stx-e _%tl190240190374%_)))) - (let ((_%tl190243190382%_ + (gx#stx-e _%tl189170189304%_)))) + (let ((_%tl189173189312%_ (let () (declare (not safe)) - (##cdr _%e190245190377%_))) - (_%hd190244190380%_ + (##cdr _%e189175189307%_))) + (_%hd189174189310%_ (let () (declare (not safe)) - (##car _%e190245190377%_)))) + (##car _%e189175189307%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd190244190380%_)) - (let ((_%e190248190385%_ + (gx#stx-pair? _%hd189174189310%_)) + (let ((_%e189178189315%_ (let () (declare (not safe)) - (gx#stx-e _%hd190244190380%_)))) - (let ((_%tl190246190390%_ + (gx#stx-e _%hd189174189310%_)))) + (let ((_%tl189176189320%_ (let () (declare (not safe)) - (##cdr _%e190248190385%_))) - (_%hd190247190388%_ + (##cdr _%e189178189315%_))) + (_%hd189177189318%_ (let () (declare (not safe)) - (##car _%e190248190385%_)))) + (##car _%e189178189315%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd190247190388%_)) + _%hd189177189318%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd190247190388%_)) + _%hd189177189318%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl190246190390%_)) - (let ((_%e190251190393%_ + _%tl189176189320%_)) + (let ((_%e189181189323%_ (let () (declare (not safe)) (gx#stx-e - _%tl190246190390%_)))) - (let ((_%tl190249190398%_ + _%tl189176189320%_)))) + (let ((_%tl189179189328%_ (let () (declare (not safe)) - (##cdr _%e190251190393%_))) - (_%hd190250190396%_ + (##cdr _%e189181189323%_))) + (_%hd189180189326%_ (let () (declare (not safe)) - (##car _%e190251190393%_)))) + (##car _%e189181189323%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl190249190398%_)) + _%tl189179189328%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl190243190382%_)) - (let ((_%__splice190700190701%_ + (gx#stx-pair/null? _%tl189173189312%_)) + (let ((_%__splice189639189640%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl190243190382%_ + _%tl189173189312%_ '0)))) - (let ((_%tl190254190403%_ + (let ((_%tl189184189333%_ (let () (declare (not safe)) - (##vector-ref _%__splice190700190701%_ '1))) - (_%target190252190401%_ + (##vector-ref _%__splice189639189640%_ '1))) + (_%target189182189331%_ (let () (declare (not safe)) - (##vector-ref _%__splice190700190701%_ '0)))) + (##vector-ref _%__splice189639189640%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl190254190403%_)) - (_%__match190743190744%_ - _%e190242190369%_ - _%hd190241190372%_ - _%tl190240190374%_ - _%e190245190377%_ - _%hd190244190380%_ - _%tl190243190382%_ - _%e190248190385%_ - _%hd190247190388%_ - _%tl190246190390%_ - _%e190251190393%_ - _%hd190250190396%_ - _%tl190249190398%_ - _%__splice190700190701%_ - _%target190252190401%_ - _%tl190254190403%_) + (gx#stx-null? _%tl189184189333%_)) + (_%__match189682189683%_ + _%e189172189299%_ + _%hd189171189302%_ + _%tl189170189304%_ + _%e189175189307%_ + _%hd189174189310%_ + _%tl189173189312%_ + _%e189178189315%_ + _%hd189177189318%_ + _%tl189176189320%_ + _%e189181189323%_ + _%hd189180189326%_ + _%tl189179189328%_ + _%__splice189639189640%_ + _%target189182189331%_ + _%tl189184189333%_) (let () (declare (not safe)) - (_%g190236190282%_))))) - (let () (declare (not safe)) (_%g190236190282%_))) + (_%g189166189212%_))))) + (let () (declare (not safe)) (_%g189166189212%_))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl190243190382%_)) - (let ((_%__splice190704190705%_ + (gx#stx-pair/null? _%tl189173189312%_)) + (let ((_%__splice189643189644%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl190243190382%_ + _%tl189173189312%_ '0)))) - (let ((_%tl190271190305%_ + (let ((_%tl189201189235%_ (let () (declare (not safe)) - (##vector-ref _%__splice190704190705%_ '1))) - (_%target190269190303%_ + (##vector-ref _%__splice189643189644%_ '1))) + (_%target189199189233%_ (let () (declare (not safe)) - (##vector-ref _%__splice190704190705%_ '0)))) + (##vector-ref _%__splice189643189644%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl190271190305%_)) - (_%__match190763190764%_ - _%e190242190369%_ - _%hd190241190372%_ - _%tl190240190374%_ - _%e190245190377%_ - _%hd190244190380%_ - _%tl190243190382%_ - _%__splice190704190705%_ - _%target190269190303%_ - _%tl190271190305%_) + (gx#stx-null? _%tl189201189235%_)) + (_%__match189702189703%_ + _%e189172189299%_ + _%hd189171189302%_ + _%tl189170189304%_ + _%e189175189307%_ + _%hd189174189310%_ + _%tl189173189312%_ + _%__splice189643189644%_ + _%target189199189233%_ + _%tl189201189235%_) (let () (declare (not safe)) - (_%g190236190282%_))))) - (let () (declare (not safe)) (_%g190236190282%_)))))) + (_%g189166189212%_))))) + (let () (declare (not safe)) (_%g189166189212%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl190243190382%_)) - (let ((_%__splice190704190705%_ + _%tl189173189312%_)) + (let ((_%__splice189643189644%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl190243190382%_ '0)))) - (let ((_%tl190271190305%_ + (gx#syntax-split-splice _%tl189173189312%_ '0)))) + (let ((_%tl189201189235%_ (let () (declare (not safe)) - (##vector-ref _%__splice190704190705%_ '1))) - (_%target190269190303%_ + (##vector-ref _%__splice189643189644%_ '1))) + (_%target189199189233%_ (let () (declare (not safe)) - (##vector-ref _%__splice190704190705%_ '0)))) + (##vector-ref _%__splice189643189644%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl190271190305%_)) - (_%__match190763190764%_ - _%e190242190369%_ - _%hd190241190372%_ - _%tl190240190374%_ - _%e190245190377%_ - _%hd190244190380%_ - _%tl190243190382%_ - _%__splice190704190705%_ - _%target190269190303%_ - _%tl190271190305%_) - (let () (declare (not safe)) (_%g190236190282%_))))) - (let () (declare (not safe)) (_%g190236190282%_)))) + (gx#stx-null? _%tl189201189235%_)) + (_%__match189702189703%_ + _%e189172189299%_ + _%hd189171189302%_ + _%tl189170189304%_ + _%e189175189307%_ + _%hd189174189310%_ + _%tl189173189312%_ + _%__splice189643189644%_ + _%target189199189233%_ + _%tl189201189235%_) + (let () (declare (not safe)) (_%g189166189212%_))))) + (let () (declare (not safe)) (_%g189166189212%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl190243190382%_)) - (let ((_%__splice190704190705%_ + _%tl189173189312%_)) + (let ((_%__splice189643189644%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl190243190382%_ + _%tl189173189312%_ '0)))) - (let ((_%tl190271190305%_ + (let ((_%tl189201189235%_ (let () (declare (not safe)) (##vector-ref - _%__splice190704190705%_ + _%__splice189643189644%_ '1))) - (_%target190269190303%_ + (_%target189199189233%_ (let () (declare (not safe)) (##vector-ref - _%__splice190704190705%_ + _%__splice189643189644%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl190271190305%_)) - (_%__match190763190764%_ - _%e190242190369%_ - _%hd190241190372%_ - _%tl190240190374%_ - _%e190245190377%_ - _%hd190244190380%_ - _%tl190243190382%_ - _%__splice190704190705%_ - _%target190269190303%_ - _%tl190271190305%_) + _%tl189201189235%_)) + (_%__match189702189703%_ + _%e189172189299%_ + _%hd189171189302%_ + _%tl189170189304%_ + _%e189175189307%_ + _%hd189174189310%_ + _%tl189173189312%_ + _%__splice189643189644%_ + _%target189199189233%_ + _%tl189201189235%_) (let () (declare (not safe)) - (_%g190236190282%_))))) + (_%g189166189212%_))))) (let () (declare (not safe)) - (_%g190236190282%_)))) + (_%g189166189212%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl190243190382%_)) - (let ((_%__splice190704190705%_ + _%tl189173189312%_)) + (let ((_%__splice189643189644%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl190243190382%_ + _%tl189173189312%_ '0)))) - (let ((_%tl190271190305%_ + (let ((_%tl189201189235%_ (let () (declare (not safe)) (##vector-ref - _%__splice190704190705%_ + _%__splice189643189644%_ '1))) - (_%target190269190303%_ + (_%target189199189233%_ (let () (declare (not safe)) (##vector-ref - _%__splice190704190705%_ + _%__splice189643189644%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl190271190305%_)) - (_%__match190763190764%_ - _%e190242190369%_ - _%hd190241190372%_ - _%tl190240190374%_ - _%e190245190377%_ - _%hd190244190380%_ - _%tl190243190382%_ - _%__splice190704190705%_ - _%target190269190303%_ - _%tl190271190305%_) + _%tl189201189235%_)) + (_%__match189702189703%_ + _%e189172189299%_ + _%hd189171189302%_ + _%tl189170189304%_ + _%e189175189307%_ + _%hd189174189310%_ + _%tl189173189312%_ + _%__splice189643189644%_ + _%target189199189233%_ + _%tl189201189235%_) (let () (declare (not safe)) - (_%g190236190282%_))))) + (_%g189166189212%_))))) (let () (declare (not safe)) - (_%g190236190282%_)))))) + (_%g189166189212%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl190243190382%_)) - (let ((_%__splice190704190705%_ + (gx#stx-pair/null? _%tl189173189312%_)) + (let ((_%__splice189643189644%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl190243190382%_ + _%tl189173189312%_ '0)))) - (let ((_%tl190271190305%_ + (let ((_%tl189201189235%_ (let () (declare (not safe)) (##vector-ref - _%__splice190704190705%_ + _%__splice189643189644%_ '1))) - (_%target190269190303%_ + (_%target189199189233%_ (let () (declare (not safe)) (##vector-ref - _%__splice190704190705%_ + _%__splice189643189644%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl190271190305%_)) - (_%__match190763190764%_ - _%e190242190369%_ - _%hd190241190372%_ - _%tl190240190374%_ - _%e190245190377%_ - _%hd190244190380%_ - _%tl190243190382%_ - _%__splice190704190705%_ - _%target190269190303%_ - _%tl190271190305%_) + _%tl189201189235%_)) + (_%__match189702189703%_ + _%e189172189299%_ + _%hd189171189302%_ + _%tl189170189304%_ + _%e189175189307%_ + _%hd189174189310%_ + _%tl189173189312%_ + _%__splice189643189644%_ + _%target189199189233%_ + _%tl189201189235%_) (let () (declare (not safe)) - (_%g190236190282%_))))) + (_%g189166189212%_))))) (let () (declare (not safe)) - (_%g190236190282%_)))))) - (let () (declare (not safe)) (_%g190236190282%_))))) - (let () (declare (not safe)) (_%g190236190282%_)))))))) + (_%g189166189212%_)))))) + (let () (declare (not safe)) (_%g189166189212%_))))) + (let () (declare (not safe)) (_%g189166189212%_)))))))) (define gxc#!procedure::optimize-call - (lambda (_%self190194%_ _%ctx190195%_ _%stx190196%_ _%args190197%_) - (let ((_%self190200%_ _%self190194%_)) - (if (let ((__method191087 + (lambda (_%self189124%_ _%ctx189125%_ _%stx189126%_ _%args189127%_) + (let ((_%self189130%_ _%self189124%_)) + (if (let ((__method190026 (let () (declare (not safe)) - (__method-ref _%self190200%_ 'check-arguments)))) - (if __method191087 - (__method191087 - _%self190200%_ - _%ctx190195%_ - _%stx190196%_ - _%args190197%_) + (__method-ref _%self189130%_ 'check-arguments)))) + (if __method190026 + (__method190026 + _%self189130%_ + _%ctx189125%_ + _%stx189126%_ + _%args189127%_) (let () (declare (not safe)) (error '"Missing method" - _%self190200%_ + _%self189130%_ 'check-arguments)))) - (let* ((_%signature190210%_ + (let* ((_%signature189140%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self190200%_ '2 '#f '#f))) - (_%signature190212%_ _%signature190210%_) - (_%$e190222%_ - (if _%signature190212%_ + (##unchecked-structure-ref _%self189130%_ '2 '#f '#f))) + (_%signature189142%_ _%signature189140%_) + (_%$e189152%_ + (if _%signature189142%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature190212%_ + _%signature189142%_ '4 '#f '#f)) '#f))) - (if _%$e190222%_ - ((lambda (_%unchecked190225%_) + (if _%$e189152%_ + ((lambda (_%unchecked189155%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%unchecked190225%_)) - (let ((__tmp191121 - (let ((__tmp191122 - (let ((__tmp191124 - (cons '%#ref - (cons _%unchecked190225%_ - '()))) - (__tmp191123 - (map (lambda (_%g190226190228%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%ctx190195%_ - _%g190226190228%_))) - _%args190197%_))) - (declare (not safe)) - (cons __tmp191124 __tmp191123)))) - (declare (not safe)) - (cons '%#call __tmp191122)))) + (gxc#symbol-in-local-scope? _%unchecked189155%_)) + (let ((__tmp190047 + (cons '%#call + (cons (cons '%#ref + (cons _%unchecked189155%_ + '())) + (map (lambda (_%g189156189158%_) + (let () + (declare (not safe)) + (gxc#compile-e__1 + _%ctx189125%_ + _%g189156189158%_))) + _%args189127%_))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp191121 _%stx190196%_)) + (gxc#xform-wrap-source __tmp190047 _%stx189126%_)) (let () (declare (not safe)) - (gxc#xform-call% _%ctx190195%_ _%stx190196%_)))) - _%$e190222%_) + (gxc#xform-call% _%ctx189125%_ _%stx189126%_)))) + _%$e189152%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx190195%_ _%stx190196%_)))) + (gxc#xform-call% _%ctx189125%_ _%stx189126%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx190195%_ _%stx190196%_)))))) + (gxc#xform-call% _%ctx189125%_ _%stx189126%_)))))) (let () (declare (not safe)) (__bind-method! @@ -1129,163 +1119,143 @@ gxc#!procedure::optimize-call '#f)) (define gxc#!procedure::check-arguments - (lambda (_%self189945%_ _%ctx189946%_ _%stx189947%_ _%args189948%_) - (let () - (let* ((_%self189951%_ _%self189945%_) - (_%signature189960189962%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref _%self189951%_ '2 '#f '#f)))) - (if _%signature189960189962%_ - (let* ((_%signature189965%_ _%signature189960189962%_) - (_%argument-types189966189968%_ - (##direct-structure-ref - _%signature189965%_ + (lambda (_%self188875%_ _%ctx188876%_ _%stx188877%_ _%args188878%_) + (let* ((_%self188881%_ _%self188875%_) + (_%signature188890188892%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%self188881%_ '2 '#f '#f)))) + (if _%signature188890188892%_ + (let* ((_%signature188895%_ _%signature188890188892%_) + (_%argument-types188896188898%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%signature188895%_ '3 - gxc#!signature::t - '#f))) - (if _%argument-types189966189968%_ - (let* ((_%argument-types189971%_ - _%argument-types189966189968%_) - (_%argument-types189976%_ - (let ((__tmp191125 - (lambda (_%t189974%_) - (if _%t189974%_ - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx189947%_ - _%t189974%_)) - '#f)))) - (declare (not safe)) - (gxc#map* - __tmp191125 - _%argument-types189971%_)))) - (let _%loop189978%_ ((_%rest-args189980%_ - _%args189948%_) - (_%rest-types189981%_ - _%argument-types189976%_) - (_%result189982%_ '#t)) - (let* ((_%rest-args189983189991%_ - _%rest-args189980%_) - (_%else189985189999%_ - (lambda () _%result189982%_)) - (_%K189987190060%_ - (lambda (_%rest-args190002%_ _%arg190003%_) - (let* ((_%rest-types190004190015%_ - _%rest-types189981%_) - (_%E190008190019%_ - (lambda () - (let () - (declare (not safe)) - (error '"No clause matching" - _%rest-types190004190015%_ - '([type . rest-types]) - '([]) - '(tail-type))) - '#!void))) - (let ((_%K190011190048%_ - (lambda (_%rest-types190045%_ - _%type190046%_) - (let ((__tmp191126 - (if (let () - (declare - (not safe)) - (gxc#check-expression-type! - _%stx189947%_ - _%arg190003%_ - _%type190046%_)) - _%result189982%_ - '#f))) - (declare (not safe)) - (_%loop189978%_ - _%rest-args190002%_ - _%rest-types190045%_ - __tmp191126)))) - (_%K190010190039%_ + '#f + '#f)))) + (if _%argument-types188896188898%_ + (let* ((_%argument-types188901%_ + _%argument-types188896188898%_) + (_%argument-types188906%_ + (let ((__tmp190048 + (lambda (_%t188904%_) + (if _%t188904%_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx188877%_ + _%t188904%_)) + '#f)))) + (declare (not safe)) + (gxc#map* + __tmp190048 + _%argument-types188901%_)))) + (let _%loop188908%_ ((_%rest-args188910%_ _%args188878%_) + (_%rest-types188911%_ + _%argument-types188906%_) + (_%result188912%_ '#t)) + (let* ((_%rest-args188913188921%_ _%rest-args188910%_) + (_%else188915188929%_ + (lambda () _%result188912%_)) + (_%K188917188990%_ + (lambda (_%rest-args188932%_ _%arg188933%_) + (let* ((_%rest-types188934188945%_ + _%rest-types188911%_) + (_%E188938188949%_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" + _%rest-types188934188945%_ + '([type . rest-types]) + '([]) + '(tail-type))) + '#!void))) + (let ((_%K188941188978%_ + (lambda (_%rest-types188975%_ + _%type188976%_) + (_%loop188908%_ + _%rest-args188932%_ + _%rest-types188975%_ + (if (gxc#check-expression-type! + _%stx188877%_ + _%arg188933%_ + _%type188976%_) + _%result188912%_ + '#f)))) + (_%K188940188969%_ + (lambda () + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"signature arity mismatch" + _%stx188877%_ + _%argument-types188906%_)))) + (_%K188939188959%_ + (lambda (_%tail-type188953%_) + (if (let ((__tmp190049 + (lambda (_%g188954188956%_) + (gxc#check-expression-type! + _%stx188877%_ + _%g188954188956%_ + _%tail-type188953%_)))) + (declare (not safe)) + (__andmap1 + __tmp190049 + _%rest-args188932%_)) + _%result188912%_ + '#f)))) + (let ((_%try-match188936188972%_ (lambda () - (let () - (declare (not safe)) - (gxc#raise-compile-error - '"signature arity mismatch" - _%stx189947%_ - _%argument-types189976%_)))) - (_%K190009190029%_ - (lambda (_%tail-type190023%_) - (if (let ((__tmp191127 - (lambda (_%g190024190026%_) - (let () - (declare - (not safe)) - (gxc#check-expression-type! - _%stx189947%_ - _%g190024190026%_ - _%tail-type190023%_))))) + (if (let () (declare (not safe)) - (__andmap1 - __tmp191127 - _%rest-args190002%_)) - _%result189982%_ - '#f)))) - (let ((_%try-match190006190042%_ - (lambda () - (if (let () - (declare (not safe)) - (##null? _%rest-types190004190015%_)) - (let () - (declare (not safe)) - (_%K190010190039%_)) - (let ((_%tail-type190032%_ - _%rest-types190004190015%_)) - (declare (not safe)) - (_%K190009190029%_ - _%tail-type190032%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest-types190004190015%_)) - (let ((_%tl190013190053%_ - (let () - (declare (not safe)) - (##cdr _%rest-types190004190015%_))) - (_%hd190012190051%_ - (let () - (declare (not safe)) - (##car _%rest-types190004190015%_)))) - (let ((_%type190056%_ - _%hd190012190051%_) - (_%rest-types190058%_ - _%tl190013190053%_)) - (let () - (declare (not safe)) - (_%K190011190048%_ - _%rest-types190058%_ - _%type190056%_)))) - (let () - (declare (not safe)) - (_%try-match190006190042%_))))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest-args189983189991%_)) - (let ((_%hd189988190063%_ - (let () - (declare (not safe)) - (##car _%rest-args189983189991%_))) - (_%tl189989190065%_ - (let () - (declare (not safe)) - (##cdr _%rest-args189983189991%_)))) - (let* ((_%arg190068%_ _%hd189988190063%_) - (_%rest-args190070%_ - _%tl189989190065%_)) - (declare (not safe)) - (_%K189987190060%_ - _%rest-args190070%_ - _%arg190068%_))) - (let () - (declare (not safe)) - (_%else189985189999%_)))))) - '#f)) - '#f))))) + (##null? _%rest-types188934188945%_)) + (_%K188940188969%_) + (let ((_%tail-type188962%_ + _%rest-types188934188945%_)) + (_%K188939188959%_ + _%tail-type188962%_)))))) + (if (let () + (declare (not safe)) + (##pair? _%rest-types188934188945%_)) + (let ((_%tl188943188983%_ + (let () + (declare (not safe)) + (##cdr _%rest-types188934188945%_))) + (_%hd188942188981%_ + (let () + (declare (not safe)) + (##car _%rest-types188934188945%_)))) + (let ((_%type188986%_ + _%hd188942188981%_) + (_%rest-types188988%_ + _%tl188943188983%_)) + (_%K188941188978%_ + _%rest-types188988%_ + _%type188986%_))) + (_%try-match188936188972%_)))))))) + (if (let () + (declare (not safe)) + (##pair? _%rest-args188913188921%_)) + (let ((_%hd188918188993%_ + (let () + (declare (not safe)) + (##car _%rest-args188913188921%_))) + (_%tl188919188995%_ + (let () + (declare (not safe)) + (##cdr _%rest-args188913188921%_)))) + (let* ((_%arg188998%_ _%hd188918188993%_) + (_%rest-args189000%_ + _%tl188919188995%_)) + (_%K188917188990%_ + _%rest-args189000%_ + _%arg188998%_))) + (_%else188915188929%_))))) + '#f)) + '#f)))) (let () (declare (not safe)) (__bind-method! @@ -1294,106 +1264,93 @@ gxc#!procedure::check-arguments '#f)) (define gxc#!primitive-predicate::optimize-call - (lambda (_%self189756%_ _%ctx189757%_ _%stx189758%_ _%args189759%_) - (let ((_%self189762%_ _%self189756%_)) - (let* ((_%g189772189782%_ - (lambda (_%g189773189779%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g189773189779%_)))) - (_%g189771189820%_ - (lambda (_%g189773189785%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%g189773189785%_)) - (let ((_%e189777189787%_ + (lambda (_%self188686%_ _%ctx188687%_ _%stx188688%_ _%args188689%_) + (let* ((_%self188692%_ _%self188686%_) + (_%g188702188712%_ + (lambda (_%g188703188709%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g188703188709%_)))) + (_%g188701188750%_ + (lambda (_%g188703188715%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%g188703188715%_)) + (let ((_%e188707188717%_ + (let () + (declare (not safe)) + (gx#stx-e _%g188703188715%_)))) + (let ((_%hd188706188720%_ (let () (declare (not safe)) - (gx#stx-e _%g189773189785%_)))) - (let ((_%hd189776189790%_ - (let () - (declare (not safe)) - (##car _%e189777189787%_))) - (_%tl189775189792%_ - (let () - (declare (not safe)) - (##cdr _%e189777189787%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl189775189792%_)) - ((lambda (_%L189795%_) - (let* ((_%klass189807%_ - (let ((__tmp191128 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self189762%_ - '1 - '#f - '#f)))) - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx189758%_ - __tmp191128))) - (_%object189809%_ - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%ctx189757%_ - _%L189795%_))) - (_%instance?189814%_ - (let ((_%$e189811%_ - (let () - (declare (not safe)) - (gxc#expression-type? - _%object189809%_ - _%klass189807%_)))) - (if _%$e189811%_ - _%$e189811%_ - (let () - (declare (not safe)) - (gxc#expression-type? - _%L189795%_ - _%klass189807%_)))))) - (if _%instance?189814%_ - (let ((__tmp191129 - (if (or (let () - (declare (not safe)) - (gxc#expression-no-side-effects? - _%object189809%_)) - (let () - (declare (not safe)) - (gxc#expression-no-side-effects? - _%L189795%_))) - (cons '%#quote - (cons '#t '())) - (cons '%#begin - (cons _%object189809%_ - (cons '#t -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (##car _%e188707188717%_))) + (_%tl188705188722%_ + (let () + (declare (not safe)) + (##cdr _%e188707188717%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl188705188722%_)) + ((lambda (_%L188725%_) + (let* ((_%klass188737%_ + (let ((__tmp190050 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self188692%_ + '1 + '#f + '#f)))) (declare (not safe)) - (gxc#xform-wrap-source - __tmp191129 - _%stx189758%_)) + (gxc#optimizer-resolve-class + _%stx188688%_ + __tmp190050))) + (_%object188739%_ (let () (declare (not safe)) - (gxc#xform-call% - _%ctx189757%_ - _%stx189758%_))))) - _%hd189776189790%_) - (let () - (declare (not safe)) - (_%g189772189782%_ _%g189773189785%_))))) - (let () - (declare (not safe)) - (_%g189772189782%_ _%g189773189785%_)))))) - (declare (not safe)) - (_%g189771189820%_ _%args189759%_))))) + (gxc#compile-e__1 + _%ctx188687%_ + _%L188725%_))) + (_%instance?188744%_ + (let ((_%$e188741%_ + (gxc#expression-type? + _%object188739%_ + _%klass188737%_))) + (if _%$e188741%_ + _%$e188741%_ + (gxc#expression-type? + _%L188725%_ + _%klass188737%_))))) + (if _%instance?188744%_ + (let ((__tmp190051 + (if (or (gxc#expression-no-side-effects? + _%object188739%_) + (gxc#expression-no-side-effects? + _%L188725%_)) + (cons '%#quote + (cons '#t '())) + (cons '%#begin + (cons _%object188739%_ + (cons '#t +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp190051 + _%stx188688%_)) + (let () + (declare (not safe)) + (gxc#xform-call% + _%ctx188687%_ + _%stx188688%_))))) + _%hd188706188720%_) + (_%g188702188712%_ _%g188703188715%_)))) + (_%g188702188712%_ _%g188703188715%_))))) + (_%g188701188750%_ _%args188689%_)))) (let () (declare (not safe)) (__bind-method! @@ -1402,172 +1359,159 @@ gxc#!primitive-predicate::optimize-call '#f)) (define gxc#!predicate::optimize-call - (lambda (_%self189552%_ _%ctx189553%_ _%stx189554%_ _%args189555%_) - (let ((_%self189558%_ _%self189552%_)) - (let* ((_%g189568189578%_ - (lambda (_%g189569189575%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g189569189575%_)))) - (_%g189567189631%_ - (lambda (_%g189569189581%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%g189569189581%_)) - (let ((_%e189573189583%_ + (lambda (_%self188482%_ _%ctx188483%_ _%stx188484%_ _%args188485%_) + (let* ((_%self188488%_ _%self188482%_) + (_%g188498188508%_ + (lambda (_%g188499188505%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g188499188505%_)))) + (_%g188497188561%_ + (lambda (_%g188499188511%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%g188499188511%_)) + (let ((_%e188503188513%_ + (let () + (declare (not safe)) + (gx#stx-e _%g188499188511%_)))) + (let ((_%hd188502188516%_ (let () (declare (not safe)) - (gx#stx-e _%g189569189581%_)))) - (let ((_%hd189572189586%_ - (let () - (declare (not safe)) - (##car _%e189573189583%_))) - (_%tl189571189588%_ - (let () - (declare (not safe)) - (##cdr _%e189573189583%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl189571189588%_)) - ((lambda (_%L189591%_) - (let* ((_%klass189603%_ - (let ((__tmp191130 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self189558%_ - '1 - '#f - '#f)))) - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx189554%_ - __tmp191130))) - (_%object189605%_ - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%ctx189553%_ - _%L189591%_))) - (_%instance?189610%_ - (let ((_%$e189607%_ - (let () - (declare (not safe)) - (gxc#expression-type? - _%object189605%_ - _%klass189603%_)))) - (if _%$e189607%_ - _%$e189607%_ - (let () - (declare (not safe)) - (gxc#expression-type? - _%L189591%_ - _%klass189603%_))))) - (_%klass189613%_ _%klass189603%_)) - (if _%instance?189610%_ - (let ((__tmp191131 - (if (or (let () - (declare (not safe)) - (gxc#expression-no-side-effects? - _%object189605%_)) - (let () - (declare (not safe)) - (gxc#expression-no-side-effects? - _%L189591%_))) - (cons '%#quote - (cons '#t '())) - (cons '%#begin - (cons _%object189605%_ - (cons '#t -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (##car _%e188503188513%_))) + (_%tl188501188518%_ + (let () + (declare (not safe)) + (##cdr _%e188503188513%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl188501188518%_)) + ((lambda (_%L188521%_) + (let* ((_%klass188533%_ + (let ((__tmp190052 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self188488%_ + '1 + '#f + '#f)))) (declare (not safe)) - (gxc#xform-wrap-source - __tmp191131 - _%stx189554%_)) - (if (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass189613%_ - '8 - '#f - '#f)) - (let ((__tmp191132 - (cons '%#struct-direct-instance? - (cons (cons '%#quote + (gxc#optimizer-resolve-class + _%stx188484%_ + __tmp190052))) + (_%object188535%_ + (let () + (declare (not safe)) + (gxc#compile-e__1 + _%ctx188483%_ + _%L188521%_))) + (_%instance?188540%_ + (let ((_%$e188537%_ + (gxc#expression-type? + _%object188535%_ + _%klass188533%_))) + (if _%$e188537%_ + _%$e188537%_ + (gxc#expression-type? + _%L188521%_ + _%klass188533%_)))) + (_%klass188543%_ _%klass188533%_)) + (if _%instance?188540%_ + (let ((__tmp190053 + (if (or (gxc#expression-no-side-effects? + _%object188535%_) + (gxc#expression-no-side-effects? + _%L188521%_)) + (cons '%#quote + (cons '#t '())) + (cons '%#begin + (cons _%object188535%_ + (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass189613%_ - '1 - '#f - '#f)) - '())) - (cons _%object189605%_ '()))))) + '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp191132 - _%stx189554%_)) - (if (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass189613%_ - '7 - '#f - '#f)) - (let ((__tmp191133 - (cons '%#struct-instance? - (cons (cons '%#quote + (declare (not safe)) + (gxc#xform-wrap-source + __tmp190053 + _%stx188484%_)) + (if (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass188543%_ + '8 + '#f + '#f)) + (let ((__tmp190054 + (cons '%#struct-direct-instance? + (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass189613%_ - '1 - '#f - '#f)) - '())) - (cons _%object189605%_ '()))))) + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass188543%_ + '1 + '#f + '#f)) + '())) + (cons _%object188535%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp191133 - _%stx189554%_)) - (let ((__tmp191134 - (cons '%#call - (cons (cons '%#ref + (declare (not safe)) + (gxc#xform-wrap-source + __tmp190054 + _%stx188484%_)) + (if (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass188543%_ + '7 + '#f + '#f)) + (let ((__tmp190055 + (cons '%#struct-instance? + (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'class-instance? '())) - (cons (cons '%#ref - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self189558%_ - '1 - '#f - '#f)) - '())) - (cons _%object189605%_ '())))))) + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass188543%_ + '1 + '#f + '#f)) + '())) + (cons _%object188535%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp191134 - _%stx189554%_))))))) - _%hd189572189586%_) - (let () - (declare (not safe)) - (_%g189568189578%_ _%g189569189581%_))))) - (let () - (declare (not safe)) - (_%g189568189578%_ _%g189569189581%_)))))) - (declare (not safe)) - (_%g189567189631%_ _%args189555%_))))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp190055 + _%stx188484%_)) + (let ((__tmp190056 + (cons '%#call + (cons (cons '%#ref +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons 'class-instance? '())) + (cons (cons '%#ref + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self188488%_ + '1 + '#f + '#f)) + '())) + (cons _%object188535%_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp190056 + _%stx188484%_))))))) + _%hd188502188516%_) + (_%g188498188508%_ _%g188499188511%_)))) + (_%g188498188508%_ _%g188499188511%_))))) + (_%g188497188561%_ _%args188485%_)))) (let () (declare (not safe)) (__bind-method! @@ -1576,980 +1520,957 @@ gxc#!predicate::optimize-call '#f)) (define gxc#expression-no-side-effects? - (lambda (_%stx189215%_) - (let* ((_%__stx190773190774%_ _%stx189215%_) - (_%g189220189261%_ + (lambda (_%stx188145%_) + (let* ((_%__stx189712189713%_ _%stx188145%_) + (_%g188150188191%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190773190774%_))))) - (let ((_%__kont190775190776%_ (lambda () '#t)) - (_%__kont190777190778%_ (lambda () '#t)) - (_%__kont190779190780%_ - (lambda (_%L189329%_ _%L189330%_) - (let ((_%rator-type189351189353%_ - (let ((__tmp191135 + _%__stx189712189713%_))))) + (let ((_%__kont189714189715%_ (lambda () '#t)) + (_%__kont189716189717%_ (lambda () '#t)) + (_%__kont189718189719%_ + (lambda (_%L188259%_ _%L188260%_) + (let ((_%rator-type188281188283%_ + (let ((__tmp190057 (let () (declare (not safe)) - (gxc#identifier-symbol _%L189330%_)))) + (gxc#identifier-symbol _%L188260%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp191135)))) - (if _%rator-type189351189353%_ - (let* ((_%rator-type189356%_ - _%rator-type189351189353%_) - (_%rator-signature189357189359%_ + (gxc#optimizer-resolve-type __tmp190057)))) + (if _%rator-type188281188283%_ + (let* ((_%rator-type188286%_ + _%rator-type188281188283%_) + (_%rator-signature188287188289%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type189356%_ + _%rator-type188286%_ 'gxc#!procedure::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type189356%_ + _%rator-type188286%_ '2 '#f '#f)) '#f))) - (if _%rator-signature189357189359%_ - (let* ((_%rator-signature189362%_ - _%rator-signature189357189359%_) - (_%rator-effect189363189365%_ - (if _%rator-signature189362%_ + (if _%rator-signature188287188289%_ + (let* ((_%rator-signature188292%_ + _%rator-signature188287188289%_) + (_%rator-effect188293188295%_ + (if _%rator-signature188292%_ (##direct-structure-ref - _%rator-signature189362%_ + _%rator-signature188292%_ '2 gxc#!signature::t '#f) '#f))) - (if _%rator-effect189363189365%_ - (let ((_%rator-effect189368%_ - _%rator-effect189363189365%_)) + (if _%rator-effect188293188295%_ + (let ((_%rator-effect188298%_ + _%rator-effect188293188295%_)) (if (or (equal? '(pure) - _%rator-effect189368%_) + _%rator-effect188298%_) (equal? '(alloc) - _%rator-effect189368%_)) - (let ((__tmp191136 - (let ((__tmp191137 - (lambda (_%g189373189376%_ + _%rator-effect188298%_)) + (let ((__tmp190058 + (let ((__tmp190059 + (lambda (_%g188303188306%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g189374189378%_) - (cons _%g189373189376%_ _%g189374189378%_)))) + _%g188304188308%_) + (cons _%g188303188306%_ _%g188304188308%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp191137 + __tmp190059 '() - _%L189329%_)))) + _%L188259%_)))) (declare (not safe)) (__andmap1 gxc#expression-no-side-effects? - __tmp191136)) + __tmp190058)) '#f)) '#f)) '#f)) '#f)))) - (_%__kont190783190784%_ (lambda () '#f))) - (let ((_%__match190862190863%_ - (lambda (_%e189238189273%_ - _%hd189237189276%_ - _%tl189236189278%_ - _%e189241189281%_ - _%hd189240189284%_ - _%tl189239189286%_ - _%e189244189289%_ - _%hd189243189292%_ - _%tl189242189294%_ - _%e189247189297%_ - _%hd189246189300%_ - _%tl189245189302%_ - _%__splice190781190782%_ - _%target189248189305%_ - _%tl189250189307%_) - (letrec ((_%loop189251189310%_ - (lambda (_%hd189249189313%_ - _%rand189255189315%_) + (_%__kont189722189723%_ (lambda () '#f))) + (let ((_%__match189801189802%_ + (lambda (_%e188168188203%_ + _%hd188167188206%_ + _%tl188166188208%_ + _%e188171188211%_ + _%hd188170188214%_ + _%tl188169188216%_ + _%e188174188219%_ + _%hd188173188222%_ + _%tl188172188224%_ + _%e188177188227%_ + _%hd188176188230%_ + _%tl188175188232%_ + _%__splice189720189721%_ + _%target188178188235%_ + _%tl188180188237%_) + (letrec ((_%loop188181188240%_ + (lambda (_%hd188179188243%_ + _%rand188185188245%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd189249189313%_)) - (let ((_%e189252189318%_ + (gx#stx-pair? _%hd188179188243%_)) + (let ((_%e188182188248%_ (let () (declare (not safe)) - (gx#stx-e _%hd189249189313%_)))) - (let ((_%lp-tl189254189323%_ + (gx#stx-e _%hd188179188243%_)))) + (let ((_%lp-tl188184188253%_ (let () (declare (not safe)) - (##cdr _%e189252189318%_))) - (_%lp-hd189253189321%_ + (##cdr _%e188182188248%_))) + (_%lp-hd188183188251%_ (let () (declare (not safe)) - (##car _%e189252189318%_)))) - (let ((__tmp191138 - (cons _%lp-hd189253189321%_ - _%rand189255189315%_))) - (declare (not safe)) - (_%loop189251189310%_ - _%lp-tl189254189323%_ - __tmp191138)))) - (let ((_%rand189256189326%_ - (reverse _%rand189255189315%_))) - (_%__kont190779190780%_ - _%rand189256189326%_ - _%hd189246189300%_)))))) - (let () - (declare (not safe)) - (_%loop189251189310%_ _%target189248189305%_ '())))))) + (##car _%e188182188248%_)))) + (_%loop188181188240%_ + _%lp-tl188184188253%_ + (cons _%lp-hd188183188251%_ + _%rand188185188245%_)))) + (let ((_%rand188186188256%_ + (reverse _%rand188185188245%_))) + (_%__kont189718189719%_ + _%rand188186188256%_ + _%hd188176188230%_)))))) + (_%loop188181188240%_ _%target188178188235%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190773190774%_)) - (let ((_%e189224189409%_ + (gx#stx-pair? _%__stx189712189713%_)) + (let ((_%e188154188339%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190773190774%_)))) - (let ((_%tl189222189414%_ + (gx#stx-e _%__stx189712189713%_)))) + (let ((_%tl188152188344%_ (let () (declare (not safe)) - (##cdr _%e189224189409%_))) - (_%hd189223189412%_ + (##cdr _%e188154188339%_))) + (_%hd188153188342%_ (let () (declare (not safe)) - (##car _%e189224189409%_)))) + (##car _%e188154188339%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd189223189412%_)) + (gx#identifier? _%hd188153188342%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd189223189412%_)) + (gx#stx-eq? '%#quote _%hd188153188342%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189222189414%_)) - (let ((_%e189227189417%_ + (gx#stx-pair? _%tl188152188344%_)) + (let ((_%e188157188347%_ (let () (declare (not safe)) - (gx#stx-e _%tl189222189414%_)))) - (let ((_%tl189225189422%_ + (gx#stx-e _%tl188152188344%_)))) + (let ((_%tl188155188352%_ (let () (declare (not safe)) - (##cdr _%e189227189417%_))) - (_%hd189226189420%_ + (##cdr _%e188157188347%_))) + (_%hd188156188350%_ (let () (declare (not safe)) - (##car _%e189227189417%_)))) + (##car _%e188157188347%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189225189422%_)) - (_%__kont190775190776%_) - (_%__kont190783190784%_)))) - (_%__kont190783190784%_)) + (gx#stx-null? _%tl188155188352%_)) + (_%__kont189714189715%_) + (_%__kont189722189723%_)))) + (_%__kont189722189723%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd189223189412%_)) + (gx#stx-eq? '%#ref _%hd188153188342%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189222189414%_)) - (let ((_%e189233189394%_ + (gx#stx-pair? _%tl188152188344%_)) + (let ((_%e188163188324%_ (let () (declare (not safe)) - (gx#stx-e _%tl189222189414%_)))) - (let ((_%tl189231189399%_ + (gx#stx-e _%tl188152188344%_)))) + (let ((_%tl188161188329%_ (let () (declare (not safe)) - (##cdr _%e189233189394%_))) - (_%hd189232189397%_ + (##cdr _%e188163188324%_))) + (_%hd188162188327%_ (let () (declare (not safe)) - (##car _%e189233189394%_)))) + (##car _%e188163188324%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl189231189399%_)) - (_%__kont190777190778%_) - (_%__kont190783190784%_)))) - (_%__kont190783190784%_)) + _%tl188161188329%_)) + (_%__kont189716189717%_) + (_%__kont189722189723%_)))) + (_%__kont189722189723%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd189223189412%_)) + _%hd188153188342%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189222189414%_)) - (let ((_%e189241189281%_ + (gx#stx-pair? _%tl188152188344%_)) + (let ((_%e188171188211%_ (let () (declare (not safe)) (gx#stx-e - _%tl189222189414%_)))) - (let ((_%tl189239189286%_ + _%tl188152188344%_)))) + (let ((_%tl188169188216%_ (let () (declare (not safe)) - (##cdr _%e189241189281%_))) - (_%hd189240189284%_ + (##cdr _%e188171188211%_))) + (_%hd188170188214%_ (let () (declare (not safe)) - (##car _%e189241189281%_)))) + (##car _%e188171188211%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd189240189284%_)) - (let ((_%e189244189289%_ + _%hd188170188214%_)) + (let ((_%e188174188219%_ (let () (declare (not safe)) (gx#stx-e - _%hd189240189284%_)))) - (let ((_%tl189242189294%_ + _%hd188170188214%_)))) + (let ((_%tl188172188224%_ (let () (declare (not safe)) - (##cdr _%e189244189289%_))) - (_%hd189243189292%_ + (##cdr _%e188174188219%_))) + (_%hd188173188222%_ (let () (declare (not safe)) - (##car _%e189244189289%_)))) + (##car _%e188174188219%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd189243189292%_)) + _%hd188173188222%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd189243189292%_)) + (gx#stx-eq? '%#ref _%hd188173188222%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189242189294%_)) - (let ((_%e189247189297%_ + (gx#stx-pair? _%tl188172188224%_)) + (let ((_%e188177188227%_ (let () (declare (not safe)) - (gx#stx-e _%tl189242189294%_)))) - (let ((_%tl189245189302%_ + (gx#stx-e _%tl188172188224%_)))) + (let ((_%tl188175188232%_ (let () (declare (not safe)) - (##cdr _%e189247189297%_))) - (_%hd189246189300%_ + (##cdr _%e188177188227%_))) + (_%hd188176188230%_ (let () (declare (not safe)) - (##car _%e189247189297%_)))) + (##car _%e188177188227%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189245189302%_)) + (gx#stx-null? _%tl188175188232%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl189239189286%_)) - (let ((_%__splice190781190782%_ + (gx#stx-pair/null? _%tl188169188216%_)) + (let ((_%__splice189720189721%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl189239189286%_ + _%tl188169188216%_ '0)))) - (let ((_%tl189250189307%_ + (let ((_%tl188180188237%_ (let () (declare (not safe)) (##vector-ref - _%__splice190781190782%_ + _%__splice189720189721%_ '1))) - (_%target189248189305%_ + (_%target188178188235%_ (let () (declare (not safe)) (##vector-ref - _%__splice190781190782%_ + _%__splice189720189721%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl189250189307%_)) - (_%__match190862190863%_ - _%e189224189409%_ - _%hd189223189412%_ - _%tl189222189414%_ - _%e189241189281%_ - _%hd189240189284%_ - _%tl189239189286%_ - _%e189244189289%_ - _%hd189243189292%_ - _%tl189242189294%_ - _%e189247189297%_ - _%hd189246189300%_ - _%tl189245189302%_ - _%__splice190781190782%_ - _%target189248189305%_ - _%tl189250189307%_) - (_%__kont190783190784%_)))) - (_%__kont190783190784%_)) - (_%__kont190783190784%_)))) - (_%__kont190783190784%_)) - (_%__kont190783190784%_)) - (_%__kont190783190784%_)))) + _%tl188180188237%_)) + (_%__match189801189802%_ + _%e188154188339%_ + _%hd188153188342%_ + _%tl188152188344%_ + _%e188171188211%_ + _%hd188170188214%_ + _%tl188169188216%_ + _%e188174188219%_ + _%hd188173188222%_ + _%tl188172188224%_ + _%e188177188227%_ + _%hd188176188230%_ + _%tl188175188232%_ + _%__splice189720189721%_ + _%target188178188235%_ + _%tl188180188237%_) + (_%__kont189722189723%_)))) + (_%__kont189722189723%_)) + (_%__kont189722189723%_)))) + (_%__kont189722189723%_)) + (_%__kont189722189723%_)) + (_%__kont189722189723%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190783190784%_)))) - (_%__kont190783190784%_)) - (_%__kont190783190784%_)))) - (_%__kont190783190784%_)))) - (_%__kont190783190784%_))))))) + (_%__kont189722189723%_)))) + (_%__kont189722189723%_)) + (_%__kont189722189723%_)))) + (_%__kont189722189723%_)))) + (_%__kont189722189723%_))))))) (define gxc#expression-type? - (lambda (_%stx189210%_ _%klass189211%_) - (let ((_%expr-type189213%_ + (lambda (_%stx188140%_ _%klass188141%_) + (let ((_%expr-type188143%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%stx189210%_)))) - (if _%expr-type189213%_ + (gxc#apply-basic-expression-type _%stx188140%_)))) + (if _%expr-type188143%_ (let () (declare (not safe)) - (gxc#!type-subtype? _%expr-type189213%_ _%klass189211%_)) + (gxc#!type-subtype? _%expr-type188143%_ _%klass188141%_)) '#f)))) (define gxc#check-expression-type! - (lambda (_%stx189188%_ _%expr189189%_ _%type189190%_) - (if (let () (declare (not safe)) (not _%type189190%_)) - (let () '#f) - (let ((_%$e189193%_ - (eq? (##structure-ref _%type189190%_ '1 gxc#!type::t '#f) + (lambda (_%stx188118%_ _%expr188119%_ _%type188120%_) + (if (not _%type188120%_) + '#f + (let ((_%$e188123%_ + (eq? (##structure-ref _%type188120%_ '1 gxc#!type::t '#f) 't))) - (if _%$e189193%_ - _%$e189193%_ - (let ((_%expr-type189197%_ + (if _%$e188123%_ + _%$e188123%_ + (let ((_%expr-type188127%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%expr189189%_)))) - (if (let () (declare (not safe)) (not _%expr-type189197%_)) - (let () '#f) + (gxc#apply-basic-expression-type _%expr188119%_)))) + (if (not _%expr-type188127%_) + '#f (if (eq? 't (##structure-ref - _%expr-type189197%_ + _%expr-type188127%_ '1 gxc#!type::t '#f)) - (let () '#f) - (let ((_%$e189201%_ + '#f + (let ((_%$e188131%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type189197%_ + _%expr-type188127%_ 'gxc#!abort::t)))) - (if _%$e189201%_ - _%$e189201%_ - (let ((_%$e189204%_ + (if _%$e188131%_ + _%$e188131%_ + (let ((_%$e188134%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type189197%_ - _%type189190%_)))) - (if _%$e189204%_ - _%$e189204%_ + _%expr-type188127%_ + _%type188120%_)))) + (if _%$e188134%_ + _%$e188134%_ (if (let () (declare (not safe)) (gxc#!interface-instance? - _%type189190%_)) - (let () '#f) + _%type188120%_)) + '#f (if (let () (declare (not safe)) (gxc#!type-subtype? - _%type189190%_ - _%expr-type189197%_)) - (let () '#f) + _%type188120%_ + _%expr-type188127%_)) + '#f (let () (declare (not safe)) (gxc#raise-compile-error '"signature type mismatch" - _%stx189188%_ - _%expr189189%_ - _%expr-type189197%_ - _%type189190%_)))))))))))))))) + _%stx188118%_ + _%expr188119%_ + _%expr-type188127%_ + _%type188120%_)))))))))))))))) (define gxc#!constructor::optimize-call - (lambda (_%self189002%_ _%ctx189003%_ _%stx189004%_ _%args189005%_) - (let ((_%self189008%_ _%self189002%_)) - (let* ((_%klass189018%_ - (let ((__tmp191139 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self189008%_ - '1 - '#f - '#f)))) - (declare (not safe)) - (gxc#optimizer-resolve-class _%stx189004%_ __tmp191139))) - (_%fields189020%_ - (length (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass189018%_ - '5 - '#f - '#f)))) - (_%args189026%_ - (map (lambda (_%g189021189023%_) - (let () - (declare (not safe)) - (gxc#compile-e__1 _%ctx189003%_ _%g189021189023%_))) - _%args189005%_)) - (_%inline-make-object189028%_ - (cons '%#begin-annotation - (cons (cons '@type + (lambda (_%self187932%_ _%ctx187933%_ _%stx187934%_ _%args187935%_) + (let* ((_%self187938%_ _%self187932%_) + (_%klass187948%_ + (let ((__tmp190060 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187938%_ + '1 + '#f + '#f)))) + (declare (not safe)) + (gxc#optimizer-resolve-class _%stx187934%_ __tmp190060))) + (_%fields187950%_ + (length (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass187948%_ + '5 + '#f + '#f)))) + (_%args187956%_ + (map (lambda (_%g187951187953%_) + (let () + (declare (not safe)) + (gxc#compile-e__1 _%ctx187933%_ _%g187951187953%_))) + _%args187935%_)) + (_%inline-make-object187958%_ + (cons '%#begin-annotation + (cons (cons '@type + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187938%_ + '1 + '#f + '#f)) + '())) + (cons (cons '%#call + (cons (cons '%#ref + (cons '##structure '())) + (cons (cons '%#ref + (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##unchecked-structure-ref + _%self187938%_ + '1 + '#f + '#f)) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (make-list + _%fields187950%_ + '(%#quote #f))))) + '())))) + (_%klass187961%_ _%klass187948%_) + (_%$e187975%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%klass187961%_ '6 '#f '#f)))) + (if _%$e187975%_ + ((lambda (_%ctor187978%_) + (let ((_%$obj187980%_ + (let ((__tmp190061 + (let () + (declare (not safe)) + (##gensym '__obj)))) + (declare (not safe)) + (make-symbol__0 __tmp190061))) + (_%ctor-impl187981%_ + (let () + (declare (not safe)) + (gxc#!class-lookup-method + _%klass187961%_ + _%ctor187978%_)))) + (let ((__tmp190062 + (cons '%#let-values + (cons (cons (cons (cons _%$obj187980%_ '()) + (cons _%inline-make-object187958%_ + '())) + '()) + (cons (cons '%#begin + (cons (if _%ctor-impl187981%_ + (cons '%#call +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons '%#ref (cons _%ctor-impl187981%_ '())) + (cons (cons '%#ref (cons _%$obj187980%_ '())) + _%args187956%_))) + (let ((_%$ctor187983%_ + (let ((__tmp190063 + (let () + (declare (not safe)) + (##gensym '__constructor)))) + (declare (not safe)) + (make-symbol__0 __tmp190063)))) + (cons '%#let-values + (cons (cons (cons (cons _%$ctor187983%_ '()) + (cons (cons '%#call + (cons (cons '%#ref +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons 'direct-method-ref '())) + (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self189008%_ + _%self187938%_ '1 '#f '#f)) '())) - (cons (cons '%#call - (cons (cons '%#ref - (cons '##structure '())) + (cons (cons '%#ref (cons _%$obj187980%_ '())) + (cons (cons '%#quote + (cons _%ctor187978%_ '())) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())) + '()) + (cons (cons '%#if + (cons (cons '%#ref + (cons _%$ctor187983%_ + '())) + (cons (cons '%#call + (cons (cons '%#ref +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%$ctor187983%_ '())) + (cons (cons '%#ref (cons _%$obj187980%_ '())) + _%args187956%_))) + (cons (cons '%#call + (cons (cons '%#ref (cons 'error '())) + (cons (cons '%#quote + (cons '"missing constructor method implementation" + '())) + (cons (cons '%#quote + (cons 'class: '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self189008%_ + _%self187938%_ '1 '#f '#f)) '())) - (make-list _%fields189020%_ '(%#quote #f))))) + (cons (cons '%#quote (cons 'method: '())) + (cons (cons '%#quote (cons _%ctor187978%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - (let* ((_%klass189031%_ _%klass189018%_) - (_%$e189045%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref _%klass189031%_ '6 '#f '#f)))) - (if _%$e189045%_ - ((lambda (_%ctor189048%_) - (let ((_%$obj189050%_ - (let ((__tmp191140 - (let () - (declare (not safe)) - (##gensym '__obj)))) - (declare (not safe)) - (make-symbol__0 __tmp191140))) - (_%ctor-impl189051%_ - (let () - (declare (not safe)) - (gxc#!class-lookup-method - _%klass189031%_ - _%ctor189048%_)))) - (let ((__tmp191141 - (cons '%#let-values - (cons (cons (cons (cons _%$obj189050%_ '()) - (cons _%inline-make-object189028%_ - '())) - '()) - (cons (cons '%#begin - (cons (if _%ctor-impl189051%_ - (cons '%#call -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons '%#ref - (cons _%ctor-impl189051%_ '())) - (cons (cons '%#ref - (cons _%$obj189050%_ '())) - _%args189026%_))) - (let ((_%$ctor189053%_ - (let ((__tmp191142 + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))))) + (cons (cons '%#ref (cons _%$obj187980%_ '())) '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp190062 _%stx187934%_)))) + _%$e187975%_) + (let ((_%$e187985%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass187961%_ + '10 + '#f + '#f)))) + (if _%$e187985%_ + ((lambda (_%metaclass187988%_) + (let* ((_%$obj187990%_ + (let ((__tmp190064 (let () (declare (not safe)) - (##gensym '__constructor)))) + (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp191142)))) - (cons '%#let-values - (cons (cons (cons (cons _%$ctor189053%_ '()) - (cons (cons '%#call - (cons (cons '%#ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'direct-method-ref '())) - (cons (cons '%#ref - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self189008%_ - '1 - '#f - '#f)) - '())) - (cons (cons '%#ref (cons _%$obj189050%_ '())) - (cons (cons '%#quote - (cons _%ctor189048%_ '())) - '()))))) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - (cons (cons '%#if - (cons (cons '%#ref - (cons _%$ctor189053%_ + (make-symbol__0 __tmp190064))) + (_%metakons187992%_ + (let ((__tmp190065 + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx187934%_ + _%metaclass187988%_)))) + (declare (not safe)) + (gxc#!class-lookup-method + __tmp190065 + 'instance-init!))) + (__tmp190066 + (cons '%#let-values + (cons (cons (cons (cons _%$obj187990%_ + '()) + (cons _%inline-make-object187958%_ + '())) + '()) + (cons (cons '%#begin + (cons (if _%metakons187992%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons '%#call - (cons (cons '%#ref (cons _%$ctor189053%_ '())) - (cons (cons '%#ref (cons _%$obj189050%_ '())) - _%args189026%_))) - (cons (cons '%#call - (cons (cons '%#ref (cons 'error '())) - (cons (cons '%#quote - (cons '"missing constructor method implementation" - '())) - (cons (cons '%#quote - (cons 'class: '())) - (cons (cons '%#ref - (cons (let () + (cons '%#call + (cons (cons '%#ref + (cons _%metakons187992%_ '())) + (cons (cons '%#ref + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187938%_ + '1 + '#f + '#f)) + '())) + (cons (cons '%#ref + (cons _%$obj187990%_ + '())) + _%args187956%_)))) + (cons '%#call + (cons (cons '%#ref (cons 'call-method '())) + (cons (cons '%#ref + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187938%_ + '1 + '#f + '#f)) + '())) + (cons (cons '%#quote + (cons 'instance-init! + '())) + (cons (cons '%#ref + (cons _%$obj187990%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##unchecked-structure-ref - _%self189008%_ - '1 - '#f - '#f)) - '())) - (cons (cons '%#quote (cons 'method: '())) - (cons (cons '%#quote (cons _%ctor189048%_ '())) - '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) + '())) + _%args187956%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - (cons (cons '%#ref (cons _%$obj189050%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj187990%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) + '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp191141 _%stx189004%_)))) - _%$e189045%_) - (let ((_%$e189055%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass189031%_ - '10 - '#f - '#f)))) - (if _%$e189055%_ - ((lambda (_%metaclass189058%_) - (let* ((_%$obj189060%_ - (let ((__tmp191143 - (let () - (declare (not safe)) - (##gensym '__obj)))) - (declare (not safe)) - (make-symbol__0 __tmp191143))) - (_%metakons189062%_ - (let ((__tmp191144 - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx189004%_ - _%metaclass189058%_)))) + (gxc#xform-wrap-source __tmp190066 _%stx187934%_))) + _%$e187985%_) + (if (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass187961%_ + '7 + '#f + '#f)) + (if (let ((__tmp190067 + (let () (declare (not safe)) - (gxc#!class-lookup-method - __tmp191144 - 'instance-init!))) - (__tmp191145 - (cons '%#let-values - (cons (cons (cons (cons _%$obj189060%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _%inline-make-object189028%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - (cons (cons '%#begin - (cons (if _%metakons189062%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '%#call - (cons (cons '%#ref - (cons _%metakons189062%_ '())) - (cons (cons '%#ref - (cons (let () - (declare - (not safe)) - (##unchecked-structure-ref - _%self189008%_ - '1 - '#f - '#f)) - '())) - (cons (cons '%#ref - (cons _%$obj189060%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%args189026%_)))) - (cons '%#call - (cons (cons '%#ref (cons 'call-method '())) - (cons (cons '%#ref + (##length _%args187956%_)))) + (declare (not safe)) + (##fx= __tmp190067 _%fields187950%_)) + (let ((__tmp190068 + (cons '%#begin-annotation + (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self189008%_ + _%self187938%_ '1 '#f '#f)) '())) - (cons (cons '%#quote - (cons 'instance-init! + (cons (cons '%#call + (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons '%#ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$obj189060%_ '())) - _%args189026%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons '%#ref (cons _%$obj189060%_ '())) '()))) + (cons '##structure '())) + (cons (cons '%#ref + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187938%_ + '1 + '#f + '#f)) + '())) + _%args187956%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (declare (not safe)) - (gxc#xform-wrap-source - __tmp191145 - _%stx189004%_))) - _%$e189055%_) - (if (let () (declare (not safe)) - (##unchecked-structure-ref - _%klass189031%_ - '7 - '#f - '#f)) - (let () - (if (let ((__tmp191146 - (let () - (declare (not safe)) - (##length _%args189026%_)))) - (declare (not safe)) - (##fx= __tmp191146 _%fields189020%_)) - (let ((__tmp191147 - (cons '%#begin-annotation - (cons (cons '@type - (cons (let () + (gxc#xform-wrap-source + __tmp190068 + _%stx187934%_)) + (let ((__tmp190070 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187938%_ + '1 + '#f + '#f))) + (__tmp190069 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass187961%_ + '5 + '#f + '#f)))) + (declare (not safe)) + (gxc#raise-compile-error + '"illegal struct constructor application; arity mismatch" + _%stx187934%_ + __tmp190070 + __tmp190069))) + (let ((_%$obj187997%_ + (let ((__tmp190071 + (let () + (declare (not safe)) + (##gensym '__obj)))) + (declare (not safe)) + (make-symbol__0 __tmp190071)))) + (let _%lp187999%_ ((_%rest188001%_ _%args187956%_) + (_%initializers188002%_ '())) + (let* ((_%__stx189804189805%_ _%rest188001%_) + (_%g188006188027%_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx189804189805%_))))) + (let ((_%__kont189806189807%_ + (lambda (_%L188081%_ + _%L188082%_ + _%L188083%_) + (let* ((_%slot188110%_ + (let ((__tmp190072 + (let () + (declare (not safe)) + (gx#stx-e + _%L188083%_)))) + (declare (not safe)) + (keyword->symbol + __tmp190072))) + (_%off188112%_ + (let () + (declare (not safe)) + (gxc#!class-slot->field-offset + _%klass187961%_ + _%slot188110%_)))) + (if _%off188112%_ + (_%lp187999%_ + _%L188081%_ + (cons (cons _%off188112%_ + _%L188082%_) + _%initializers188002%_)) + (let ((__tmp190073 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187938%_ + '1 + '#f + '#f)))) + (declare (not safe)) + (gxc#raise-compile-error + '"unknown slot" + _%stx187934%_ + __tmp190073 + _%slot188110%_)))))) + (_%__kont189808189809%_ + (lambda () + (let ((__tmp190074 + (cons '%#let-values + (cons (cons (cons (cons _%$obj187997%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##unchecked-structure-ref - _%self189008%_ - '1 - '#f - '#f)) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons '%#call + '()) + (cons _%inline-make-object187958%_ '())) + '()) + (cons (cons '%#begin + (let ((__tmp190077 + (cons (cons '%#ref + (cons _%$obj187997%_ '())) + '())) + (__tmp190075 + (let ((__tmp190076 + (lambda (_%i188041%_ _%r188042%_) + (cons (cons '%#struct-unchecked-set! + (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons '%#ref (cons '##structure '())) - (cons (cons '%#ref - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self189008%_ - '1 - '#f - '#f)) - '())) - _%args189026%_))) - '()))))) + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187938%_ + '1 + '#f + '#f)) + '())) + (cons (cons '%#quote (cons (car _%i188041%_) '())) + (cons (cons '%#ref (cons _%$obj187997%_ '())) + (cons (cdr _%i188041%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp191147 - _%stx189004%_)) - (let ((__tmp191149 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self189008%_ - '1 - '#f - '#f))) - (__tmp191148 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass189031%_ - '5 - '#f - '#f)))) - (declare (not safe)) - (gxc#raise-compile-error - '"illegal struct constructor application; arity mismatch" - _%stx189004%_ - __tmp191149 - __tmp191148)))) - (let ((_%$obj189067%_ - (let ((__tmp191150 - (let () - (declare (not safe)) - (##gensym '__obj)))) - (declare (not safe)) - (make-symbol__0 __tmp191150)))) - (let _%lp189069%_ ((_%rest189071%_ - _%args189026%_) - (_%initializers189072%_ '())) - (let* ((_%__stx190865190866%_ _%rest189071%_) - (_%g189076189097%_ - (lambda () - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx190865190866%_))))) - (let ((_%__kont190867190868%_ - (lambda (_%L189151%_ - _%L189152%_ - _%L189153%_) - (let* ((_%slot189180%_ - (let ((__tmp191151 - (let () - (declare - (not safe)) - (gx#stx-e - _%L189153%_)))) - (declare (not safe)) - (keyword->symbol - __tmp191151))) - (_%off189182%_ - (let () - (declare (not safe)) - (gxc#!class-slot->field-offset - _%klass189031%_ - _%slot189180%_)))) - (if _%off189182%_ - (let ((__tmp191152 - (cons (cons _%off189182%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L189152%_) - _%initializers189072%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp189069%_ - _%L189151%_ - __tmp191152)) - (let ((__tmp191153 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self189008%_ - '1 - '#f - '#f)))) - (declare (not safe)) - (gxc#raise-compile-error - '"unknown slot" - _%stx189004%_ - __tmp191153 - _%slot189180%_)))))) - (_%__kont190869190870%_ - (lambda () - (let ((__tmp191154 - (cons '%#let-values - (cons (cons (cons (cons _%$obj189067%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _%inline-make-object189028%_ '())) - '()) - (cons (cons '%#begin - (let ((__tmp191157 - (cons (cons '%#ref - (cons _%$obj189067%_ '())) - '())) - (__tmp191155 - (let ((__tmp191156 - (lambda (_%i189111%_ - _%r189112%_) - (cons (cons '%#struct-unchecked-set! - (cons (cons '%#ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self189008%_ - '1 - '#f - '#f)) - '())) - (cons (cons '%#quote (cons (car _%i189111%_) '())) - (cons (cons '%#ref (cons _%$obj189067%_ '())) - (cons (cdr _%i189111%_) '()))))) - _%r189112%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldl1 - __tmp191156 - '() - _%initializers189072%_)))) - (declare (not safe)) - (__foldr1 cons __tmp191157 __tmp191155))) - '()))))) + _%r188042%_)))) + (declare (not safe)) + (__foldl1 + __tmp190076 + '() + _%initializers188002%_)))) + (declare (not safe)) + (__foldr1 cons __tmp190077 __tmp190075))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp191154 - _%stx189004%_)))) - (_%__kont190871190872%_ - (lambda () - (let ((__tmp191158 - (cons '%#let-values - (cons (cons (cons (cons _%$obj189067%_ + (declare (not safe)) + (gxc#xform-wrap-source + __tmp190074 + _%stx187934%_)))) + (_%__kont189810189811%_ + (lambda () + (let ((__tmp190078 + (cons '%#let-values + (cons (cons (cons (cons _%$obj187997%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _%inline-make-object189028%_ '())) - '()) - (cons (cons '%#begin - (cons (cons '%#call - (cons (cons '%#ref - (cons 'class-instance-init! - '())) - (cons (cons '%#ref - (cons _%$obj189067%_ + '()) + (cons _%inline-make-object187958%_ '())) + '()) + (cons (cons '%#begin + (cons (cons '%#call + (cons (cons '%#ref + (cons 'class-instance-init! + '())) + (cons (cons '%#ref + (cons _%$obj187997%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - _%args189026%_))) + '())) + _%args187956%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons '%#ref - (cons _%$obj189067%_ '())) - '()))) - '()))))) + (cons (cons '%#ref + (cons _%$obj187997%_ '())) + '()))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp191158 - _%stx189004%_))))) - (let* ((_%g189074189114%_ - (lambda () - (if (let () - (declare (not safe)) - (gx#stx-null? - _%__stx190865190866%_)) - (_%__kont190869190870%_) - (_%__kont190871190872%_)))) - (_%__match190902190903%_ - (lambda (_%e189083189119%_ - _%hd189082189122%_ - _%tl189081189124%_ - _%e189086189127%_ - _%hd189085189130%_ - _%tl189084189132%_ - _%e189089189135%_ - _%hd189088189138%_ - _%tl189087189140%_ - _%e189092189143%_ - _%hd189091189146%_ - _%tl189090189148%_) - (let ((_%L189151%_ - _%tl189090189148%_) - (_%L189152%_ - _%hd189091189146%_) - (_%L189153%_ - _%hd189088189138%_)) - (if (let () - (declare (not safe)) - (gx#stx-keyword? - _%L189153%_)) - (_%__kont190867190868%_ - _%L189151%_ - _%L189152%_ - _%L189153%_) - (_%__kont190871190872%_)))))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%__stx190865190866%_)) - (let ((_%e189083189119%_ - (let () - (declare (not safe)) - (gx#stx-e - _%__stx190865190866%_)))) - (let ((_%tl189081189124%_ - (let () - (declare (not safe)) - (##cdr _%e189083189119%_))) - (_%hd189082189122%_ - (let () - (declare (not safe)) - (##car _%e189083189119%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%hd189082189122%_)) - (let ((_%e189086189127%_ - (let () - (declare (not safe)) - (gx#stx-e - _%hd189082189122%_)))) - (let ((_%tl189084189132%_ - (let () - (declare - (not safe)) - (##cdr _%e189086189127%_))) - (_%hd189085189130%_ - (let () - (declare - (not safe)) - (##car _%e189086189127%_)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp190078 + _%stx187934%_))))) + (let* ((_%g188004188044%_ + (lambda () + (if (let () + (declare (not safe)) + (gx#stx-null? + _%__stx189804189805%_)) + (_%__kont189808189809%_) + (_%__kont189810189811%_)))) + (_%__match189841189842%_ + (lambda (_%e188013188049%_ + _%hd188012188052%_ + _%tl188011188054%_ + _%e188016188057%_ + _%hd188015188060%_ + _%tl188014188062%_ + _%e188019188065%_ + _%hd188018188068%_ + _%tl188017188070%_ + _%e188022188073%_ + _%hd188021188076%_ + _%tl188020188078%_) + (let ((_%L188081%_ + _%tl188020188078%_) + (_%L188082%_ + _%hd188021188076%_) + (_%L188083%_ + _%hd188018188068%_)) + (if (let () + (declare (not safe)) + (gx#stx-keyword? + _%L188083%_)) + (_%__kont189806189807%_ + _%L188081%_ + _%L188082%_ + _%L188083%_) + (_%__kont189810189811%_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%__stx189804189805%_)) + (let ((_%e188013188049%_ + (let () + (declare (not safe)) + (gx#stx-e + _%__stx189804189805%_)))) + (let ((_%tl188011188054%_ + (let () + (declare (not safe)) + (##cdr _%e188013188049%_))) + (_%hd188012188052%_ + (let () + (declare (not safe)) + (##car _%e188013188049%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%hd188012188052%_)) + (let ((_%e188016188057%_ + (let () + (declare (not safe)) + (gx#stx-e + _%hd188012188052%_)))) + (let ((_%tl188014188062%_ + (let () + (declare (not safe)) + (##cdr _%e188016188057%_))) + (_%hd188015188060%_ + (let () + (declare (not safe)) + (##car _%e188016188057%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _%hd188015188060%_)) (if (let () (declare (not safe)) - (gx#identifier? - _%hd189085189130%_)) + (gx#stx-eq? + '%#quote + _%hd188015188060%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd189085189130%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl189084189132%_)) - (let ((_%e189089189135%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl189084189132%_)))) - (let ((_%tl189087189140%_ - (let () - (declare (not safe)) - (##cdr _%e189089189135%_))) - (_%hd189088189138%_ - (let () - (declare (not safe)) - (##car _%e189089189135%_)))) + (gx#stx-pair? _%tl188014188062%_)) + (let ((_%e188019188065%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl188014188062%_)))) + (let ((_%tl188017188070%_ + (let () + (declare (not safe)) + (##cdr _%e188019188065%_))) + (_%hd188018188068%_ + (let () + (declare (not safe)) + (##car _%e188019188065%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl188017188070%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189087189140%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl189081189124%_)) - (let ((_%e189092189143%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl189081189124%_)))) - (let ((_%tl189090189148%_ - (let () - (declare (not safe)) - (##cdr _%e189092189143%_))) - (_%hd189091189146%_ - (let () - (declare (not safe)) - (##car _%e189092189143%_)))) - (_%__match190902190903%_ - _%e189083189119%_ - _%hd189082189122%_ - _%tl189081189124%_ - _%e189086189127%_ - _%hd189085189130%_ - _%tl189084189132%_ - _%e189089189135%_ - _%hd189088189138%_ - _%tl189087189140%_ - _%e189092189143%_ - _%hd189091189146%_ - _%tl189090189148%_))) - (_%__kont190871190872%_)) - (_%__kont190871190872%_)))) - (_%__kont190871190872%_)) - (_%__kont190871190872%_)) - (_%__kont190871190872%_)))) + (gx#stx-pair? _%tl188011188054%_)) + (let ((_%e188022188073%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl188011188054%_)))) + (let ((_%tl188020188078%_ + (let () + (declare (not safe)) + (##cdr _%e188022188073%_))) + (_%hd188021188076%_ + (let () + (declare (not safe)) + (##car _%e188022188073%_)))) + (_%__match189841189842%_ + _%e188013188049%_ + _%hd188012188052%_ + _%tl188011188054%_ + _%e188016188057%_ + _%hd188015188060%_ + _%tl188014188062%_ + _%e188019188065%_ + _%hd188018188068%_ + _%tl188017188070%_ + _%e188022188073%_ + _%hd188021188076%_ + _%tl188020188078%_))) + (_%__kont189810189811%_)) + (_%__kont189810189811%_)))) + (_%__kont189810189811%_)) + (_%__kont189810189811%_)) + (_%__kont189810189811%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190871190872%_)))) - (let () - (declare (not safe)) - (_%g189074189114%_))))))))))))))))) + (_%__kont189810189811%_)))) + (let () + (declare (not safe)) + (_%g188004188044%_))))))))))))))) (let () (declare (not safe)) (__bind-method! @@ -2558,336 +2479,323 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_%self188785%_ _%ctx188786%_ _%stx188787%_ _%args188788%_) - (let ((_%self188791%_ _%self188785%_)) - (let* ((_%arguments-ok?188801%_ - (let ((__method191088 - (let () - (declare (not safe)) - (__method-ref _%self188791%_ 'check-arguments)))) - (if __method191088 - (__method191088 - _%self188791%_ - _%ctx188786%_ - _%stx188787%_ - _%args188788%_) - (let () - (declare (not safe)) - (error '"Missing method" - _%self188791%_ - 'check-arguments))))) - (_%g188803188813%_ - (lambda (_%g188804188810%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g188804188810%_)))) - (_%g188802188877%_ - (lambda (_%g188804188816%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%g188804188816%_)) - (let ((_%e188808188818%_ + (lambda (_%self187715%_ _%ctx187716%_ _%stx187717%_ _%args187718%_) + (let* ((_%self187721%_ _%self187715%_) + (_%arguments-ok?187731%_ + (let ((__method190027 + (let () + (declare (not safe)) + (__method-ref _%self187721%_ 'check-arguments)))) + (if __method190027 + (__method190027 + _%self187721%_ + _%ctx187716%_ + _%stx187717%_ + _%args187718%_) + (let () + (declare (not safe)) + (error '"Missing method" + _%self187721%_ + 'check-arguments))))) + (_%g187733187743%_ + (lambda (_%g187734187740%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g187734187740%_)))) + (_%g187732187807%_ + (lambda (_%g187734187746%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%g187734187746%_)) + (let ((_%e187738187748%_ + (let () + (declare (not safe)) + (gx#stx-e _%g187734187746%_)))) + (let ((_%hd187737187751%_ (let () (declare (not safe)) - (gx#stx-e _%g188804188816%_)))) - (let ((_%hd188807188821%_ - (let () - (declare (not safe)) - (##car _%e188808188818%_))) - (_%tl188806188823%_ - (let () - (declare (not safe)) - (##cdr _%e188808188818%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl188806188823%_)) - ((lambda (_%L188826%_) - (let* ((_%klass188839%_ - (let ((__tmp191159 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188791%_ - '1 - '#f - '#f)))) - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx188787%_ - __tmp191159))) - (_%field188841%_ - (let ((__tmp191160 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188791%_ - '3 - '#f - '#f)))) - (declare (not safe)) - (gxc#!class-slot->field-offset - _%klass188839%_ - __tmp191160))) - (_%object188843%_ - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%ctx188786%_ - _%L188826%_))) - (_%klass188846%_ _%klass188839%_)) - (if (let () + (##car _%e187738187748%_))) + (_%tl187736187753%_ + (let () + (declare (not safe)) + (##cdr _%e187738187748%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl187736187753%_)) + ((lambda (_%L187756%_) + (let* ((_%klass187769%_ + (let ((__tmp190079 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187721%_ + '1 + '#f + '#f)))) (declare (not safe)) - (##unchecked-structure-ref - _%klass188846%_ - '8 - '#f - '#f)) - (let ((__tmp191161 - (cons (if (or _%arguments-ok?188801%_ - (let ((__tmp191162 + (gxc#optimizer-resolve-class + _%stx187717%_ + __tmp190079))) + (_%field187771%_ + (let ((__tmp190080 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187721%_ + '3 + '#f + '#f)))) + (declare (not safe)) + (gxc#!class-slot->field-offset + _%klass187769%_ + __tmp190080))) + (_%object187773%_ + (let () + (declare (not safe)) + (gxc#compile-e__1 + _%ctx187716%_ + _%L187756%_))) + (_%klass187776%_ _%klass187769%_)) + (if (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass187776%_ + '8 + '#f + '#f)) + (let ((__tmp190081 + (cons (if (or _%arguments-ok?187731%_ + (not (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##unchecked-structure-ref + _%self187721%_ + '4 + '#f + '#f)))) + '%#struct-unchecked-ref + '%#struct-direct-ref) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons '%#ref + (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##unchecked-structure-ref + _%self187721%_ + '1 + '#f + '#f)) + '())) + (cons (cons '%#quote (cons _%field187771%_ '())) + (cons _%object187773%_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp190081 + _%stx187717%_)) + (if (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass187776%_ + '7 + '#f + '#f)) + (let ((__tmp190082 + (cons (if (or _%arguments-ok?187731%_ + (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##unchecked-structure-ref - _%self188791%_ + _%self187721%_ '4 '#f '#f)))) - (declare (not safe)) - (not __tmp191162))) - '%#struct-unchecked-ref - '%#struct-direct-ref) - (cons (cons '%#ref - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188791%_ - '1 - '#f - '#f)) - '())) - (cons (cons '%#quote (cons _%field188841%_ '())) - (cons _%object188843%_ '())))))) + '%#struct-unchecked-ref + '%#struct-ref) + (cons (cons '%#ref + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187721%_ + '1 + '#f + '#f)) + '())) + (cons (cons '%#quote (cons _%field187771%_ '())) + (cons _%object187773%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp191161 - _%stx188787%_)) - (if (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass188846%_ - '7 - '#f - '#f)) - (let ((__tmp191163 - (cons (if (or _%arguments-ok?188801%_ + (declare (not safe)) + (gxc#xform-wrap-source + __tmp190082 + _%stx187717%_)) + (let ((_%$e187795%_ + (let ((__tmp190083 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187721%_ + '3 + '#f + '#f)))) + (declare (not safe)) + (gxc#!class-slot-find-struct + _%klass187776%_ + __tmp190083)))) + (if _%$e187795%_ + ((lambda (_%klass187798%_) + (let ((__tmp190084 + (cons (if (or _%arguments-ok?187731%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187721%_ + '4 + '#f + '#f)))) + '%#struct-unchecked-ref + '%#struct-ref) + (cons (cons '%#ref + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187721%_ + '1 + '#f + '#f)) + '())) + (cons (cons '%#quote (cons _%field187771%_ '())) + (cons _%object187773%_ '())))))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp190084 _%stx187717%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%$e187795%_) + (if (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187721%_ + '4 + '#f + '#f)) + (let ((__tmp190085 + (let ((_%$obj187804%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp190086 + (let () + (declare (not safe)) + (##gensym '__obj)))) + (declare (not safe)) + (make-symbol__0 __tmp190086)))) + (cons '%#let-values + (cons (cons (cons (cons _%$obj187804%_ '()) + (cons _%object187773%_ '())) + '()) + (cons (cons '%#if + (cons (cons '%#struct-direct-instance? + (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp191164 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188791%_ - '4 - '#f - '#f)))) - (declare (not safe)) - (not __tmp191164))) - '%#struct-unchecked-ref - '%#struct-ref) - (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self188791%_ + _%klass187776%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field188841%_ '())) - (cons _%object188843%_ '())))))) + (cons (cons '%#ref (cons _%$obj187804%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp191163 - _%stx188787%_)) - (let ((_%$e188865%_ - (let ((__tmp191165 - (let () - (declare - (not safe)) - (##unchecked-structure-ref - _%self188791%_ - '3 - '#f - '#f)))) - (declare (not safe)) - (gxc#!class-slot-find-struct - _%klass188846%_ - __tmp191165)))) - (if _%$e188865%_ - ((lambda (_%klass188868%_) - (let ((__tmp191166 - (cons (if (or _%arguments-ok?188801%_ + (cons (cons '%#struct-unchecked-ref + (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp191167 - (let () + (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self188791%_ - '4 + _%self187721%_ + '1 '#f - '#f)))) - (declare (not safe)) - (not __tmp191167))) - '%#struct-unchecked-ref - '%#struct-ref) - (cons (cons '%#ref - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188791%_ - '1 - '#f - '#f)) - '())) - (cons (cons '%#quote - (cons _%field188841%_ '())) - (cons _%object188843%_ '())))))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp191166 _%stx188787%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e188865%_) - (if (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188791%_ - '4 - '#f - '#f)) - (let ((__tmp191168 - (let ((_%$obj188874%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp191169 - (let () - (declare (not safe)) - (##gensym '__obj)))) - (declare (not safe)) - (make-symbol__0 __tmp191169)))) - (cons '%#let-values - (cons (cons (cons (cons _%$obj188874%_ '()) - (cons _%object188843%_ '())) - '()) - (cons (cons '%#if - (cons (cons '%#struct-direct-instance? - (cons (cons '%#quote -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass188846%_ - '1 - '#f - '#f)) - '())) - (cons (cons '%#ref (cons _%$obj188874%_ '())) '()))) - (cons (cons '%#struct-unchecked-ref - (cons (cons '%#ref - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188791%_ - '1 - '#f - '#f)) - '())) - (cons (cons '%#quote - (cons _%field188841%_ '())) - (cons (cons '%#ref - (cons _%$obj188874%_ '())) - '())))) - (cons (if _%arguments-ok?188801%_ - (cons '%#call - (cons (cons '%#ref - (cons 'unchecked-slot-ref '())) - (cons (cons '%#ref - (cons _%$obj188874%_ - '())) - (cons (cons '%#quote - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##unchecked-structure-ref - _%self188791%_ - '3 - '#f - '#f)) - '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons '%#call + '#f)) + '())) + (cons (cons '%#quote (cons _%field187771%_ '())) (cons (cons '%#ref - (cons 'class-slot-ref '())) - (cons (cons '%#ref - (cons (let () - (declare - (not safe)) - (##unchecked-structure-ref - _%self188791%_ - '1 - '#f - '#f)) - '())) - (cons (cons '%#ref - (cons _%$obj188874%_ + (cons _%$obj187804%_ '())) + '())))) + (cons (if _%arguments-ok?187731%_ + (cons '%#call + (cons (cons '%#ref + (cons 'unchecked-slot-ref '())) + (cons (cons '%#ref + (cons _%$obj187804%_ '())) + (cons (cons '%#quote + (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons '%#quote - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188791%_ - '3 - '#f - '#f)) - '())) - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) + (declare (not safe)) + (##unchecked-structure-ref + _%self187721%_ + '3 + '#f + '#f)) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp191168 _%stx188787%_)) - (let ((__tmp191170 - (cons '%#call - (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object188843%_ - (cons (cons '%#quote + '())))) + (cons '%#call + (cons (cons '%#ref + (cons 'class-slot-ref '())) + (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self188791%_ - '3 + _%self187721%_ + '1 '#f '#f)) '())) - '())))))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp191170 _%stx188787%_))))))))) + (cons (cons '%#ref + (cons _%$obj187804%_ + '())) + (cons (cons '%#quote + (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##unchecked-structure-ref + _%self187721%_ + '3 + '#f + '#f)) + '())) + '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd188807188821%_) - (let () - (declare (not safe)) - (_%g188803188813%_ _%g188804188816%_))))) - (let () - (declare (not safe)) - (_%g188803188813%_ _%g188804188816%_)))))) - (declare (not safe)) - (_%g188802188877%_ _%args188788%_))))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp190085 _%stx187717%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp190087 + (cons '%#call +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons '%#ref (cons 'unchecked-slot-ref '())) + (cons _%object187773%_ + (cons (cons '%#quote + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187721%_ + '3 + '#f + '#f)) + '())) + '())))))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp190087 _%stx187717%_))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd187737187751%_) + (_%g187733187743%_ _%g187734187746%_)))) + (_%g187733187743%_ _%g187734187746%_))))) + (_%g187732187807%_ _%args187718%_)))) (let () (declare (not safe)) (__bind-method! @@ -2896,371 +2804,353 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_%self188549%_ _%ctx188550%_ _%stx188551%_ _%args188552%_) - (let ((_%self188555%_ _%self188549%_)) - (let* ((_%arguments-ok?188565%_ - (let ((__method191089 - (let () - (declare (not safe)) - (__method-ref _%self188555%_ 'check-arguments)))) - (if __method191089 - (__method191089 - _%self188555%_ - _%ctx188550%_ - _%stx188551%_ - _%args188552%_) - (let () - (declare (not safe)) - (error '"Missing method" - _%self188555%_ - 'check-arguments))))) - (_%g188567188581%_ - (lambda (_%g188568188578%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g188568188578%_)))) - (_%g188566188660%_ - (lambda (_%g188568188584%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%g188568188584%_)) - (let ((_%e188573188586%_ + (lambda (_%self187479%_ _%ctx187480%_ _%stx187481%_ _%args187482%_) + (let* ((_%self187485%_ _%self187479%_) + (_%arguments-ok?187495%_ + (let ((__method190028 + (let () + (declare (not safe)) + (__method-ref _%self187485%_ 'check-arguments)))) + (if __method190028 + (__method190028 + _%self187485%_ + _%ctx187480%_ + _%stx187481%_ + _%args187482%_) + (let () + (declare (not safe)) + (error '"Missing method" + _%self187485%_ + 'check-arguments))))) + (_%g187497187511%_ + (lambda (_%g187498187508%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g187498187508%_)))) + (_%g187496187590%_ + (lambda (_%g187498187514%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%g187498187514%_)) + (let ((_%e187503187516%_ + (let () + (declare (not safe)) + (gx#stx-e _%g187498187514%_)))) + (let ((_%hd187502187519%_ (let () (declare (not safe)) - (gx#stx-e _%g188568188584%_)))) - (let ((_%hd188572188589%_ - (let () - (declare (not safe)) - (##car _%e188573188586%_))) - (_%tl188571188591%_ - (let () + (##car _%e187503187516%_))) + (_%tl187501187521%_ + (let () + (declare (not safe)) + (##cdr _%e187503187516%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl187501187521%_)) + (let ((_%e187506187524%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl187501187521%_)))) + (let ((_%hd187505187527%_ + (let () + (declare (not safe)) + (##car _%e187506187524%_))) + (_%tl187504187529%_ + (let () + (declare (not safe)) + (##cdr _%e187506187524%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl187504187529%_)) + ((lambda (_%L187532%_ _%L187533%_) + (let* ((_%klass187549%_ + (let ((__tmp190088 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187485%_ + '1 + '#f + '#f)))) + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx187481%_ + __tmp190088))) + (_%field187551%_ + (let ((__tmp190089 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187485%_ + '3 + '#f + '#f)))) + (declare (not safe)) + (gxc#!class-slot->field-offset + _%klass187549%_ + __tmp190089))) + (_%object187553%_ + (let () + (declare (not safe)) + (gxc#compile-e__1 + _%ctx187480%_ + _%L187533%_))) + (_%value187555%_ + (let () + (declare (not safe)) + (gxc#compile-e__1 + _%ctx187480%_ + _%L187532%_))) + (_%klass187558%_ + _%klass187549%_)) + (if (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass187558%_ + '8 + '#f + '#f)) + (let ((__tmp190090 + (cons (if (or _%arguments-ok?187495%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not (let () (declare (not safe)) - (##cdr _%e188573188586%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl188571188591%_)) - (let ((_%e188576188594%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl188571188591%_)))) - (let ((_%hd188575188597%_ - (let () - (declare (not safe)) - (##car _%e188576188594%_))) - (_%tl188574188599%_ - (let () - (declare (not safe)) - (##cdr _%e188576188594%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl188574188599%_)) - ((lambda (_%L188602%_ _%L188603%_) - (let* ((_%klass188619%_ - (let ((__tmp191171 - (let () - (declare - (not safe)) - (##unchecked-structure-ref - _%self188555%_ - '1 - '#f - '#f)))) - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx188551%_ - __tmp191171))) - (_%field188621%_ - (let ((__tmp191172 - (let () - (declare - (not safe)) - (##unchecked-structure-ref - _%self188555%_ - '3 - '#f - '#f)))) - (declare (not safe)) - (gxc#!class-slot->field-offset - _%klass188619%_ - __tmp191172))) - (_%object188623%_ - (let () - (declare (not safe)) - (gxc#compile-e__1 - _%ctx188550%_ - _%L188603%_))) - (_%value188625%_ - (let () + (##unchecked-structure-ref + _%self187485%_ + '4 + '#f + '#f)))) + '%#struct-unchecked-set! + '%#struct-direct-set!) + (cons (cons '%#ref + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187485%_ + '1 + '#f + '#f)) + '())) + (cons (cons '%#quote (cons _%field187551%_ '())) + (cons _%object187553%_ + (cons _%value187555%_ '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp190090 + _%stx187481%_)) + (if (let () (declare (not safe)) - (gxc#compile-e__1 - _%ctx188550%_ - _%L188602%_))) - (_%klass188628%_ - _%klass188619%_)) - (if (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass188628%_ - '8 - '#f - '#f)) - (let ((__tmp191173 - (cons (if (or _%arguments-ok?188565%_ + (##unchecked-structure-ref + _%klass187558%_ + '7 + '#f + '#f)) + (let ((__tmp190091 + (cons (if (or _%arguments-ok?187495%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp191174 - (let () + (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self188555%_ + _%self187485%_ '4 '#f '#f)))) - (declare (not safe)) - (not __tmp191174))) - '%#struct-unchecked-set! - '%#struct-direct-set!) - (cons (cons '%#ref - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188555%_ - '1 - '#f - '#f)) - '())) - (cons (cons '%#quote (cons _%field188621%_ '())) - (cons _%object188623%_ - (cons _%value188625%_ '()))))))) + '%#struct-unchecked-set! + '%#struct-set!) + (cons (cons '%#ref + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187485%_ + '1 + '#f + '#f)) + '())) + (cons (cons '%#quote (cons _%field187551%_ '())) + (cons _%object187553%_ + (cons _%value187555%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp191173 - _%stx188551%_)) - (if (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass188628%_ - '7 - '#f - '#f)) - (let ((__tmp191175 - (cons (if (or _%arguments-ok?188565%_ + (declare (not safe)) + (gxc#xform-wrap-source + __tmp190091 + _%stx187481%_)) + (let ((_%$e187578%_ + (let ((__tmp190092 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp191176 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188555%_ - '4 - '#f - '#f)))) - (declare (not safe)) - (not __tmp191176))) - '%#struct-unchecked-set! - '%#struct-set!) - (cons (cons '%#ref + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187485%_ + '3 + '#f + '#f)))) + (declare (not safe)) + (gxc#!class-slot-find-struct + _%klass187558%_ + __tmp190092)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if _%$e187578%_ + ((lambda (_%klass187581%_) + (let ((__tmp190093 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (if (or _%arguments-ok?187495%_ + (not (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187485%_ + '3 + '#f + '#f)))) + '%#struct-unchecked-set! + '%#struct-set!) + (cons (cons '%#ref + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187485%_ + '1 + '#f + '#f)) + '())) + (cons (cons '%#quote + (cons _%field187551%_ '())) + (cons _%object187553%_ + (cons _%value187555%_ + '()))))))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp190093 _%stx187481%_))) + _%$e187578%_) + (if (let () + (declare (not safe)) + (##unchecked-structure-ref _%self187485%_ '4 '#f '#f)) + (let ((__tmp190094 + (let ((_%$obj187587%_ + (let ((__tmp190095 + (let () + (declare (not safe)) + (##gensym '__obj)))) + (declare (not safe)) + (make-symbol__0 __tmp190095)))) + (cons '%#let-values + (cons (cons (cons (cons _%$obj187587%_ '()) + (cons _%object187553%_ + '())) + '()) + (cons (cons '%#if + (cons (cons '%#struct-direct-instance? +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self188555%_ + _%klass187558%_ '1 '#f '#f)) '())) - (cons (cons '%#quote - (cons _%field188621%_ '())) - (cons _%object188623%_ - (cons _%value188625%_ '()))))))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp191175 _%stx188551%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%$e188648%_ - (let ((__tmp191177 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188555%_ - '3 - '#f - '#f)))) - (declare (not safe)) - (gxc#!class-slot-find-struct - _%klass188628%_ - __tmp191177)))) - (if _%$e188648%_ - ((lambda (_%klass188651%_) - (let ((__tmp191178 - (cons (if (or _%arguments-ok?188565%_ - (let ((__tmp191179 - (let () + (cons (cons '%#ref (cons _%$obj187587%_ '())) + '()))) + (cons (cons '%#struct-unchecked-set! + (cons (cons '%#ref + (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self188555%_ - '3 + _%self187485%_ + '1 '#f - '#f)))) - (declare (not safe)) - (not __tmp191179))) - '%#struct-unchecked-set! - '%#struct-set!) - (cons (cons '%#ref - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188555%_ - '1 - '#f - '#f)) - '())) - (cons (cons '%#quote - (cons _%field188621%_ - '())) - (cons _%object188623%_ - (cons _%value188625%_ - '()))))))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp191178 _%stx188551%_))) - _%$e188648%_) - (if (let () - (declare (not safe)) - (##unchecked-structure-ref _%self188555%_ '4 '#f '#f)) - (let ((__tmp191180 - (let ((_%$obj188657%_ - (let ((__tmp191181 - (let () - (declare (not safe)) - (##gensym '__obj)))) - (declare (not safe)) - (make-symbol__0 __tmp191181)))) - (cons '%#let-values - (cons (cons (cons (cons _%$obj188657%_ - '()) - (cons _%object188623%_ - '())) - '()) - (cons (cons '%#if - (cons (cons '%#struct-direct-instance? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons '%#quote - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass188628%_ - '1 - '#f - '#f)) - '())) - (cons (cons '%#ref (cons _%$obj188657%_ '())) - '()))) - (cons (cons '%#struct-unchecked-set! - (cons (cons '%#ref - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188555%_ - '1 - '#f - '#f)) - '())) - (cons (cons '%#quote - (cons _%field188621%_ '())) - (cons (cons '%#ref - (cons _%$obj188657%_ - '())) - (cons _%value188625%_ - '()))))) - (cons (if _%arguments-ok?188565%_ - (cons '%#call - (cons (cons '%#ref - (cons 'unchecked-slot-set! - '())) - (cons (cons '%#ref - (cons _%$obj188657%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons '%#quote - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188555%_ - '3 - '#f - '#f)) - '())) - (cons _%value188625%_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons '%#call + '#f)) + '())) + (cons (cons '%#quote + (cons _%field187551%_ '())) (cons (cons '%#ref - (cons 'class-slot-set! + (cons _%$obj187587%_ '())) - (cons (cons '%#ref - (cons (let () + (cons _%value187555%_ + '()))))) + (cons (if _%arguments-ok?187495%_ + (cons '%#call + (cons (cons '%#ref + (cons 'unchecked-slot-set! + '())) + (cons (cons '%#ref + (cons _%$obj187587%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##unchecked-structure-ref - _%self188555%_ - '1 - '#f - '#f)) - '())) - (cons (cons '%#ref (cons _%$obj188657%_ '())) - (cons (cons '%#quote - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188555%_ - '3 - '#f - '#f)) - '())) - (cons _%value188625%_ '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) + '())) + (cons (cons '%#quote + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187485%_ + '3 + '#f + '#f)) + '())) + (cons _%value187555%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp191180 _%stx188551%_)) - (let ((__tmp191182 - (cons '%#call - (cons (cons '%#ref - (cons 'unchecked-slot-set! - '())) - (cons _%object188623%_ - (cons (cons '%#quote + (cons '%#call + (cons (cons '%#ref + (cons 'class-slot-set! + '())) + (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self188555%_ - '3 + _%self187485%_ + '1 '#f '#f)) '())) - (cons _%value188625%_ '()))))))) + (cons (cons '%#ref (cons _%$obj187587%_ '())) + (cons (cons '%#quote + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187485%_ + '3 + '#f + '#f)) + '())) + (cons _%value187555%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp191182 - _%stx188551%_))))))))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd188575188597%_ - _%hd188572188589%_) - (let () - (declare (not safe)) - (_%g188567188581%_ - _%g188568188584%_))))) - (let () - (declare (not safe)) - (_%g188567188581%_ _%g188568188584%_))))) - (let () + '())))))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp190094 _%stx187481%_)) + (let ((__tmp190096 + (cons '%#call + (cons (cons '%#ref + (cons 'unchecked-slot-set! '())) + (cons _%object187553%_ + (cons (cons '%#quote + (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_%g188567188581%_ _%g188568188584%_)))))) - (declare (not safe)) - (_%g188566188660%_ _%args188552%_))))) + (##unchecked-structure-ref + _%self187485%_ + '3 + '#f + '#f)) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%value187555%_ + '()))))))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp190096 + _%stx187481%_))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd187505187527%_ + _%hd187502187519%_) + (_%g187497187511%_ _%g187498187514%_)))) + (_%g187497187511%_ _%g187498187514%_)))) + (_%g187497187511%_ _%g187498187514%_))))) + (_%g187496187590%_ _%args187482%_)))) (let () (declare (not safe)) (__bind-method! @@ -3269,128 +3159,125 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_%self188364%_ _%ctx188365%_ _%stx188366%_ _%args188367%_) - (let ((_%self188370%_ _%self188364%_)) - (let* ((_%self188379188389%_ _%self188370%_) - (_%E188381188393%_ - (lambda () - (let () - (declare (not safe)) - (error '"No clause matching" - _%self188379188389%_ - '((!lambda _ _ arity dispatch inline)))) - '#!void)) - (_%K188382188403%_ - (lambda (_%inline188396%_ _%dispatch188397%_ _%arity188398%_) - (if (let () - (declare (not safe)) - (gxc#!lambda-arity-match? - _%self188370%_ - _%args188367%_)) - '#!void - (let () - (declare (not safe)) - (gxc#raise-compile-error - '"Illegal lambda application; arity mismatch" - _%stx188366%_ - _%arity188398%_))) - (if _%inline188396%_ - (let () - (let () - (declare (not safe)) - (gxc#verbose '"inline lambda")) - (let ((__tmp191183 - (let ((__tmp191184 - (_%inline188396%_ _%stx188366%_))) - (declare (not safe)) - (gxc#xform-wrap-source - __tmp191184 - _%stx188366%_)))) - (declare (not safe)) - (gxc#compile-e__1 _%ctx188365%_ __tmp191183))) - (if (and _%dispatch188397%_ - (let () - (declare (not safe)) - (gxc#symbol-in-local-scope? - _%dispatch188397%_))) - (let () - (let () - (declare (not safe)) - (gxc#verbose - '"dispatch lambda => " - _%dispatch188397%_)) - (let ((__tmp191185 - (let ((__tmp191186 - (cons '%#call - (cons (cons '%#ref - (cons _%dispatch188397%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - _%args188367%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp191186 - _%stx188366%_)))) - (declare (not safe)) - (gxc#compile-e__1 _%ctx188365%_ __tmp191185))) - (let () - (declare (not safe)) - (gxc#!procedure::optimize-call - _%self188370%_ - _%ctx188365%_ - _%stx188366%_ - _%args188367%_))))))) - (if '#t - (let* ((_%e188383188406%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188379188389%_ - '1 - '#f - '#f))) - (_%e188384188409%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188379188389%_ - '2 - '#f - '#f))) - (_%e188385188412%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188379188389%_ - '3 - '#f - '#f))) - (_%arity188415%_ _%e188385188412%_) - (_%e188386188417%_ + (lambda (_%self187294%_ _%ctx187295%_ _%stx187296%_ _%args187297%_) + (let* ((_%self187300%_ _%self187294%_) + (_%self187309187319%_ _%self187300%_) + (_%E187311187323%_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" + _%self187309187319%_ + '((!lambda _ _ arity dispatch inline)))) + '#!void)) + (_%K187312187333%_ + (lambda (_%inline187326%_ _%dispatch187327%_ _%arity187328%_) + (if (let () + (declare (not safe)) + (gxc#!lambda-arity-match? + _%self187300%_ + _%args187297%_)) + '#!void + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal lambda application; arity mismatch" + _%stx187296%_ + _%arity187328%_))) + (if _%inline187326%_ + (let () (let () (declare (not safe)) - (##unchecked-structure-ref - _%self188379188389%_ - '4 - '#f - '#f))) - (_%dispatch188420%_ _%e188386188417%_) - (_%e188387188422%_ - (let () + (gxc#verbose '"inline lambda")) + (let ((__tmp190097 + (let ((__tmp190098 + (_%inline187326%_ _%stx187296%_))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp190098 + _%stx187296%_)))) (declare (not safe)) - (##unchecked-structure-ref - _%self188379188389%_ - '5 - '#f - '#f))) - (_%inline188425%_ _%e188387188422%_)) - (declare (not safe)) - (_%K188382188403%_ - _%inline188425%_ - _%dispatch188420%_ - _%arity188415%_)) - (let () (declare (not safe)) (_%E188381188393%_))))))) + (gxc#compile-e__1 _%ctx187295%_ __tmp190097))) + (if (and _%dispatch187327%_ + (let () + (declare (not safe)) + (gxc#symbol-in-local-scope? + _%dispatch187327%_))) + (let () + (let () + (declare (not safe)) + (gxc#verbose + '"dispatch lambda => " + _%dispatch187327%_)) + (let ((__tmp190099 + (let ((__tmp190100 + (cons '%#call + (cons (cons '%#ref + (cons _%dispatch187327%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + _%args187297%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp190100 + _%stx187296%_)))) + (declare (not safe)) + (gxc#compile-e__1 _%ctx187295%_ __tmp190099))) + (gxc#!procedure::optimize-call + _%self187300%_ + _%ctx187295%_ + _%stx187296%_ + _%args187297%_)))))) + (if '#t + (let* ((_%e187313187336%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187309187319%_ + '1 + '#f + '#f))) + (_%e187314187339%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187309187319%_ + '2 + '#f + '#f))) + (_%e187315187342%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187309187319%_ + '3 + '#f + '#f))) + (_%arity187345%_ _%e187315187342%_) + (_%e187316187347%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187309187319%_ + '4 + '#f + '#f))) + (_%dispatch187350%_ _%e187316187347%_) + (_%e187317187352%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187309187319%_ + '5 + '#f + '#f))) + (_%inline187355%_ _%e187317187352%_)) + (_%K187312187333%_ + _%inline187355%_ + _%dispatch187350%_ + _%arity187345%_)) + (_%E187311187323%_))))) (let () (declare (not safe)) (__bind-method! @@ -3399,59 +3286,58 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_%self188216%_ _%ctx188217%_ _%stx188218%_ _%args188219%_) - (let () - (let* ((_%self188222%_ _%self188216%_) - (_%$e188236%_ - (let ((__tmp191188 - (lambda (_%g188231188233%_) - (let () - (declare (not safe)) - (gxc#!lambda-arity-match? - _%g188231188233%_ - _%args188219%_)))) - (__tmp191187 + (lambda (_%self187146%_ _%ctx187147%_ _%stx187148%_ _%args187149%_) + (let* ((_%self187152%_ _%self187146%_) + (_%$e187166%_ + (let ((__tmp190102 + (lambda (_%g187161187163%_) (let () (declare (not safe)) - (##unchecked-structure-ref - _%self188222%_ - '3 - '#f - '#f)))) - (declare (not safe)) - (__find __tmp191188 __tmp191187)))) - (if _%$e188236%_ - ((lambda (_%clause188239%_) - (let ((__method191090 + (gxc#!lambda-arity-match? + _%g187161187163%_ + _%args187149%_)))) + (__tmp190101 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self187152%_ + '3 + '#f + '#f)))) + (declare (not safe)) + (__find __tmp190102 __tmp190101)))) + (if _%$e187166%_ + ((lambda (_%clause187169%_) + (let ((__method190029 + (let () + (declare (not safe)) + (__method-ref _%clause187169%_ 'optimize-call)))) + (if __method190029 + (__method190029 + _%clause187169%_ + _%ctx187147%_ + _%stx187148%_ + _%args187149%_) + (let () + (declare (not safe)) + (error '"Missing method" + _%clause187169%_ + 'optimize-call))))) + _%$e187166%_) + (let ((__tmp190103 + (map gxc#!lambda-arity (let () (declare (not safe)) - (__method-ref _%clause188239%_ 'optimize-call)))) - (if __method191090 - (__method191090 - _%clause188239%_ - _%ctx188217%_ - _%stx188218%_ - _%args188219%_) - (let () - (declare (not safe)) - (error '"Missing method" - _%clause188239%_ - 'optimize-call))))) - _%$e188236%_) - (let ((__tmp191189 - (map gxc#!lambda-arity - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self188222%_ - '3 - '#f - '#f))))) - (declare (not safe)) - (gxc#raise-compile-error - '"Illegal case-lambda application; arity mismatch" - _%stx188218%_ - __tmp191189))))))) + (##unchecked-structure-ref + _%self187152%_ + '3 + '#f + '#f))))) + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal case-lambda application; arity mismatch" + _%stx187148%_ + __tmp190103)))))) (let () (declare (not safe)) (__bind-method! @@ -3460,327 +3346,316 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!kw-lambda::optimize-call - (lambda (_%self187956%_ _%ctx187957%_ _%stx187958%_ _%args187959%_) - (let ((_%self187962%_ _%self187956%_)) - (let* ((_%self187971187980%_ _%self187962%_) - (_%E187973187984%_ - (lambda () - (let () - (declare (not safe)) - (error '"No clause matching" - _%self187971187980%_ - '((!kw-lambda _ _ table dispatch)))) - '#!void)) - (_%K187974188075%_ - (lambda (_%dispatch187987%_ _%table187988%_) - (if (let () - (declare (not safe)) - (gxc#symbol-in-local-scope? _%dispatch187987%_)) - (let* ((_%g187989187999%_ + (lambda (_%self186886%_ _%ctx186887%_ _%stx186888%_ _%args186889%_) + (let* ((_%self186892%_ _%self186886%_) + (_%self186901186910%_ _%self186892%_) + (_%E186903186914%_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" + _%self186901186910%_ + '((!kw-lambda _ _ table dispatch)))) + '#!void)) + (_%K186904187005%_ + (lambda (_%dispatch186917%_ _%table186918%_) + (if (let () + (declare (not safe)) + (gxc#symbol-in-local-scope? _%dispatch186917%_)) + (let* ((_%g186919186929%_ + (let () + (declare (not safe)) + (gxc#optimizer-lookup-type + _%dispatch186917%_))) + (_%else186921186937%_ + (lambda () (let () (declare (not safe)) - (gxc#optimizer-lookup-type - _%dispatch187987%_))) - (_%else187991188007%_ - (lambda () - (let () - (declare (not safe)) - (gxc#verbose - '"unknown keyword dispatch lambda " - _%dispatch187987%_)) - (let () - (declare (not safe)) - (gxc#xform-call% - _%ctx187957%_ - _%stx187958%_)))) - (_%K187993188056%_ - (lambda (_%main188010%_ _%keys188011%_) - (let ((_g191190_ - (let () - (declare (not safe)) - (gxc#!kw-lambda-split-args - _%stx187958%_ - _%args187959%_)))) - (begin - (let ((_g191191_ - (let () - (declare (not safe)) - (if (##values? _g191190_) - (##vector-length _g191190_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g191191_ 2))) - (error "Context expects 2 values" - _g191191_))) - (let ((_%pargs188013%_ - (let () - (declare (not safe)) - (##vector-ref _g191190_ 0))) - (_%kwargs188014%_ - (let () - (declare (not safe)) - (##vector-ref _g191190_ 1)))) - (begin - (let () - (declare (not safe)) - (gxc#verbose - '"dispatch kw-lambda => " - _%main188010%_)) - (if _%table187988%_ - (let ((_%xargs188022%_ - (map (lambda (_%key188016%_) - (let ((_%$e188018%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (agetq__0 _%key188016%_ _%kwargs188014%_)))) - (if _%$e188018%_ - _%$e188018%_ - (let () '(%#ref absent-value))))) - _%keys188011%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (for-each - (lambda (_%kw188024%_) - (if (memq (car _%kw188024%_) - _%keys188011%_) - '#!void - (let () - (declare (not safe)) - (gxc#raise-compile-error - '"Illegal keyword lambda application; unexpected keyword" - _%stx187958%_ - _%keys188011%_ - _%kw188024%_)))) - _%kwargs188014%_) - (let ((__tmp191192 - (let ((__tmp191193 - (cons '%#call -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons '%#ref (cons _%main188010%_ '())) - (cons (cons '%#quote (cons '#f '())) + (gxc#verbose + '"unknown keyword dispatch lambda " + _%dispatch186917%_)) + (let () + (declare (not safe)) + (gxc#xform-call% + _%ctx186887%_ + _%stx186888%_)))) + (_%K186923186986%_ + (lambda (_%main186940%_ _%keys186941%_) + (let ((_g190104_ + (gxc#!kw-lambda-split-args + _%stx186888%_ + _%args186889%_))) + (begin + (let ((_g190105_ + (let () + (declare (not safe)) + (if (##values? _g190104_) + (##vector-length _g190104_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g190105_ 2))) + (error "Context expects 2 values" + _g190105_))) + (let ((_%pargs186943%_ + (let () + (declare (not safe)) + (##vector-ref _g190104_ 0))) + (_%kwargs186944%_ + (let () + (declare (not safe)) + (##vector-ref _g190104_ 1)))) + (begin (let () (declare (not safe)) - (__foldr1 - cons - _%pargs188013%_ - _%xargs188022%_))))))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp191193 _%stx187958%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#compile-e__1 - _%ctx187957%_ - __tmp191192))) - (let* ((_%kwt188026%_ - (let ((__tmp191194 - (let () - (declare + (gxc#verbose + '"dispatch kw-lambda => " + _%main186940%_)) + (if _%table186918%_ + (let ((_%xargs186952%_ + (map (lambda (_%key186946%_) + (let ((_%$e186948%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##gensym '__kwt)))) - (declare (not safe)) - (make-symbol__0 __tmp191194))) + (let () + (declare (not safe)) + (agetq__0 _%key186946%_ _%kwargs186944%_)))) + (if _%$e186948%_ _%$e186948%_ '(%#ref absent-value)))) + _%keys186941%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwvars188030%_ - (map (lambda (_%_188028%_) - (let ((__tmp191195 + (for-each + (lambda (_%kw186954%_) + (if (memq (car _%kw186954%_) + _%keys186941%_) + '#!void + (let () + (declare (not safe)) + (gxc#raise-compile-error + '"Illegal keyword lambda application; unexpected keyword" + _%stx186888%_ + _%keys186941%_ + _%kw186954%_)))) + _%kwargs186944%_) + (let ((__tmp190106 + (let ((__tmp190107 + (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##gensym '__kw)))) - (declare (not safe)) - (make-symbol__0 __tmp191195))) - _%kwargs188014%_)) + (cons (cons '%#ref (cons _%main186940%_ '())) + (cons (cons '%#quote (cons '#f '())) + (let () + (declare (not safe)) + (__foldr1 + cons + _%pargs186943%_ + _%xargs186952%_))))))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp190107 _%stx186888%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwbind188035%_ - (map (lambda (_%kw188032%_ + (declare (not safe)) + (gxc#compile-e__1 + _%ctx186887%_ + __tmp190106))) + (let* ((_%kwt186956%_ + (let ((__tmp190108 + (let () + (declare + (not safe)) + (##gensym + '__kwt)))) + (declare (not safe)) + (make-symbol__0 + __tmp190108))) + (_%kwvars186960%_ + (map (lambda (_%_186958%_) + (let ((__tmp190109 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar188033%_) - (cons (cons _%kwvar188033%_ '()) - (cons (cdr _%kw188032%_) '()))) - _%kwargs188014%_ - _%kwvars188030%_)) + (let () (declare (not safe)) (##gensym '__kw)))) + (declare (not safe)) + (make-symbol__0 __tmp190109))) + _%kwargs186944%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwset188040%_ - (map (lambda (_%kw188037%_ + (_%kwbind186965%_ + (map (lambda (_%kw186962%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar188038%_) - (cons '%#call - (cons '(%#ref symbolic-table-set!) - (cons (cons '%#ref (cons _%kwt188026%_ '())) - (cons (cons '%#quote - (cons (car _%kw188037%_) - '())) - (cons (cons '%#ref - (cons _%kwvar188038%_ - '())) - '())))))) - _%kwargs188014%_ - _%kwvars188030%_)) + _%kwvar186963%_) + (cons (cons _%kwvar186963%_ '()) + (cons (cdr _%kw186962%_) '()))) + _%kwargs186944%_ + _%kwvars186960%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xkwargs188045%_ - (map (lambda (_%kw188042%_ + (_%kwset186970%_ + (map (lambda (_%kw186967%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar188043%_) - (cons (car _%kw188042%_) - (cons '%#ref (cons _%kwvar188043%_ '())))) - _%kwargs188014%_ - _%kwvars188030%_)) + _%kwvar186968%_) + (cons '%#call + (cons '(%#ref symbolic-table-set!) + (cons (cons '%#ref (cons _%kwt186956%_ '())) + (cons (cons '%#quote + (cons (car _%kw186967%_) '())) + (cons (cons '%#ref + (cons _%kwvar186968%_ + '())) + '())))))) + _%kwargs186944%_ + _%kwvars186960%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xargs188053%_ - (map (lambda (_%key188047%_) - (let ((_%$e188049%_ + (_%xkwargs186975%_ + (map (lambda (_%kw186972%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (agetq__0 _%key188047%_ _%xkwargs188045%_)))) - (if _%$e188049%_ - _%$e188049%_ - (let () '(%#ref absent-value))))) - _%keys188011%_)) + _%kwvar186973%_) + (cons (car _%kw186972%_) + (cons '%#ref (cons _%kwvar186973%_ '())))) + _%kwargs186944%_ + _%kwvars186960%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp191196 - (let ((__tmp191197 - (cons '%#let-values + (_%xargs186983%_ + (map (lambda (_%key186977%_) + (let ((_%$e186979%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%kwbind188035%_ - (cons (cons '%#let-values - (cons (cons (cons (cons _%kwt188026%_ + (let () + (declare (not safe)) + (agetq__0 _%key186977%_ _%xkwargs186975%_)))) + (if _%$e186979%_ _%$e186979%_ '(%#ref absent-value)))) + _%keys186941%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp190110 + (let ((__tmp190111 + (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (let ((__tmp191198 - (cons '%#call - (cons '(%#ref make-symbolic-table) - (cons (cons '%#quote - (cons (length _%kwargs188014%_) + (cons _%kwbind186965%_ + (cons (cons '%#let-values + (cons (cons (cons (cons _%kwt186956%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons '(%#quote (length kwvars)) '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp191198 - _%stx187958%_)) - '())) - '()) + '()) + (cons (let ((__tmp190112 + (cons '%#call + (cons '(%#ref make-symbolic-table) + (cons (cons '%#quote + (cons (length _%kwargs186944%_) + '())) + (cons '(%#quote (length kwvars)) + '())))))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp190112 _%stx186888%_)) + '())) + '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons '%#begin - (let ((__tmp191199 + (cons (cons '%#begin + (let ((__tmp190113 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let ((__tmp191200 - (cons '%#call - (cons (cons '%#ref - (cons _%main188010%_ + (cons (let ((__tmp190114 + (cons '%#call + (cons (cons '%#ref + (cons _%main186940%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons '%#ref (cons _%kwt188026%_ '())) - (let () - (declare (not safe)) - (__foldr1 cons _%pargs188013%_ _%xargs188053%_))))))) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp191200 - _%stx187958%_)) - '()))) - (declare (not safe)) - (__foldr1 cons __tmp191199 _%kwset188040%_))) - '()))) + (cons (cons '%#ref +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%kwt186956%_ '())) + (let () + (declare (not safe)) + (__foldr1 cons _%pargs186943%_ _%xargs186983%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp191197 _%stx187958%_)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp190114 + _%stx186888%_)) + '()))) + (declare (not safe)) + (__foldr1 cons __tmp190113 _%kwset186970%_))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#compile-e__1 - _%ctx187957%_ - __tmp191196)))))))))) - (if (let () - (declare (not safe)) - (##structure-instance-of? - _%g187989187999%_ - 'gxc#!kw-lambda-primary::t)) - (let* ((_%e187994188059%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%g187989187999%_ - '1 - '#f - '#f))) - (_%e187995188062%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%g187989187999%_ - '2 - '#f - '#f))) - (_%e187996188065%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%g187989187999%_ - '3 - '#f - '#f))) - (_%keys188068%_ _%e187996188065%_) - (_%e187997188070%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%g187989187999%_ - '4 - '#f - '#f))) - (_%main188073%_ _%e187997188070%_)) - (declare (not safe)) - (_%K187993188056%_ - _%main188073%_ - _%keys188068%_)) - (let () - (declare (not safe)) - (_%else187991188007%_)))) - (let () - (declare (not safe)) - (gxc#xform-call% _%ctx187957%_ _%stx187958%_)))))) - (if '#t - (let* ((_%e187975188078%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self187971187980%_ - '1 - '#f - '#f))) - (_%e187976188081%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self187971187980%_ - '2 - '#f - '#f))) - (_%e187977188084%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self187971187980%_ - '3 - '#f - '#f))) - (_%table188087%_ _%e187977188084%_) - (_%e187978188089%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self187971187980%_ - '4 - '#f - '#f))) - (_%dispatch188092%_ _%e187978188089%_)) - (declare (not safe)) - (_%K187974188075%_ _%dispatch188092%_ _%table188087%_)) - (let () (declare (not safe)) (_%E187973187984%_))))))) + '()))))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp190111 _%stx186888%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#compile-e__1 + _%ctx186887%_ + __tmp190110)))))))))) + (if (let () + (declare (not safe)) + (##structure-instance-of? + _%g186919186929%_ + 'gxc#!kw-lambda-primary::t)) + (let* ((_%e186924186989%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%g186919186929%_ + '1 + '#f + '#f))) + (_%e186925186992%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%g186919186929%_ + '2 + '#f + '#f))) + (_%e186926186995%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%g186919186929%_ + '3 + '#f + '#f))) + (_%keys186998%_ _%e186926186995%_) + (_%e186927187000%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%g186919186929%_ + '4 + '#f + '#f))) + (_%main187003%_ _%e186927187000%_)) + (_%K186923186986%_ + _%main187003%_ + _%keys186998%_)) + (_%else186921186937%_))) + (let () + (declare (not safe)) + (gxc#xform-call% _%ctx186887%_ _%stx186888%_)))))) + (if '#t + (let* ((_%e186905187008%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self186901186910%_ + '1 + '#f + '#f))) + (_%e186906187011%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self186901186910%_ + '2 + '#f + '#f))) + (_%e186907187014%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self186901186910%_ + '3 + '#f + '#f))) + (_%table187017%_ _%e186907187014%_) + (_%e186908187019%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self186901186910%_ + '4 + '#f + '#f))) + (_%dispatch187022%_ _%e186908187019%_)) + (_%K186904187005%_ _%dispatch187022%_ _%table187017%_)) + (_%E186903186914%_))))) (let () (declare (not safe)) (__bind-method! @@ -3789,293 +3664,286 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_%stx187569%_ _%args187570%_) - (let _%lp187572%_ ((_%rest187574%_ _%args187570%_) - (_%pargs187575%_ '()) - (_%kwargs187576%_ '())) - (let* ((_%__stx190907190908%_ _%rest187574%_) - (_%g187582187634%_ + (lambda (_%stx186499%_ _%args186500%_) + (let _%lp186502%_ ((_%rest186504%_ _%args186500%_) + (_%pargs186505%_ '()) + (_%kwargs186506%_ '())) + (let* ((_%__stx189846189847%_ _%rest186504%_) + (_%g186512186564%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190907190908%_))))) - (let ((_%__kont190909190910%_ - (lambda (_%L187813%_ _%L187814%_) - (let ((__tmp191201 (cons _%L187814%_ _%pargs187575%_))) - (declare (not safe)) - (_%lp187572%_ - _%L187813%_ - __tmp191201 - _%kwargs187576%_)))) - (_%__kont190911190912%_ - (lambda (_%L187759%_) + _%__stx189846189847%_))))) + (let ((_%__kont189848189849%_ + (lambda (_%L186743%_ _%L186744%_) + (_%lp186502%_ + _%L186743%_ + (cons _%L186744%_ _%pargs186505%_) + _%kwargs186506%_))) + (_%__kont189850189851%_ + (lambda (_%L186689%_) (values (let () (declare (not safe)) - (__foldl1 cons _%L187759%_ _%pargs187575%_)) - (reverse _%kwargs187576%_)))) - (_%__kont190913190914%_ - (lambda (_%L187706%_ _%L187707%_ _%L187708%_) - (let ((_%kw187725%_ + (__foldl1 cons _%L186689%_ _%pargs186505%_)) + (reverse _%kwargs186506%_)))) + (_%__kont189852189853%_ + (lambda (_%L186636%_ _%L186637%_ _%L186638%_) + (let ((_%kw186655%_ (let () (declare (not safe)) - (gx#stx-e _%L187708%_)))) - (if (assq _%kw187725%_ _%kwargs187576%_) + (gx#stx-e _%L186638%_)))) + (if (assq _%kw186655%_ _%kwargs186506%_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _%stx187569%_ - _%kw187725%_)) - (let ((__tmp191202 - (cons (cons _%kw187725%_ _%L187707%_) - _%kwargs187576%_))) - (declare (not safe)) - (_%lp187572%_ - _%L187706%_ - _%pargs187575%_ - __tmp191202)))))) - (_%__kont190915190916%_ - (lambda (_%L187654%_ _%L187655%_) - (let ((__tmp191203 (cons _%L187655%_ _%pargs187575%_))) - (declare (not safe)) - (_%lp187572%_ - _%L187654%_ - __tmp191203 - _%kwargs187576%_)))) - (_%__kont190917190918%_ + _%stx186499%_ + _%kw186655%_)) + (_%lp186502%_ + _%L186636%_ + _%pargs186505%_ + (cons (cons _%kw186655%_ _%L186637%_) + _%kwargs186506%_)))))) + (_%__kont189854189855%_ + (lambda (_%L186584%_ _%L186585%_) + (_%lp186502%_ + _%L186584%_ + (cons _%L186585%_ _%pargs186505%_) + _%kwargs186506%_))) + (_%__kont189856189857%_ (lambda () - (values (reverse _%pargs187575%_) - (reverse _%kwargs187576%_))))) - (let ((_%__match191014191015%_ - (lambda (_%e187615187674%_ - _%hd187614187677%_ - _%tl187613187679%_ - _%e187618187682%_ - _%hd187617187685%_ - _%tl187616187687%_ - _%e187621187690%_ - _%hd187620187693%_ - _%tl187619187695%_ - _%e187624187698%_ - _%hd187623187701%_ - _%tl187622187703%_) - (let ((_%L187706%_ _%tl187622187703%_) - (_%L187707%_ _%hd187623187701%_) - (_%L187708%_ _%hd187620187693%_)) + (values (reverse _%pargs186505%_) + (reverse _%kwargs186506%_))))) + (let ((_%__match189953189954%_ + (lambda (_%e186545186604%_ + _%hd186544186607%_ + _%tl186543186609%_ + _%e186548186612%_ + _%hd186547186615%_ + _%tl186546186617%_ + _%e186551186620%_ + _%hd186550186623%_ + _%tl186549186625%_ + _%e186554186628%_ + _%hd186553186631%_ + _%tl186552186633%_) + (let ((_%L186636%_ _%tl186552186633%_) + (_%L186637%_ _%hd186553186631%_) + (_%L186638%_ _%hd186550186623%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L187708%_)) - (_%__kont190913190914%_ - _%L187706%_ - _%L187707%_ - _%L187708%_) - (_%__kont190915190916%_ - _%tl187613187679%_ - _%hd187614187677%_)))))) + (gx#stx-keyword? _%L186638%_)) + (_%__kont189852189853%_ + _%L186636%_ + _%L186637%_ + _%L186638%_) + (_%__kont189854189855%_ + _%tl186543186609%_ + _%hd186544186607%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190907190908%_)) - (let ((_%e187588187778%_ + (gx#stx-pair? _%__stx189846189847%_)) + (let ((_%e186518186708%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190907190908%_)))) - (let ((_%tl187586187783%_ + (gx#stx-e _%__stx189846189847%_)))) + (let ((_%tl186516186713%_ (let () (declare (not safe)) - (##cdr _%e187588187778%_))) - (_%hd187587187781%_ + (##cdr _%e186518186708%_))) + (_%hd186517186711%_ (let () (declare (not safe)) - (##car _%e187588187778%_)))) + (##car _%e186518186708%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187587187781%_)) - (let ((_%e187591187786%_ + (gx#stx-pair? _%hd186517186711%_)) + (let ((_%e186521186716%_ (let () (declare (not safe)) - (gx#stx-e _%hd187587187781%_)))) - (let ((_%tl187589187791%_ + (gx#stx-e _%hd186517186711%_)))) + (let ((_%tl186519186721%_ (let () (declare (not safe)) - (##cdr _%e187591187786%_))) - (_%hd187590187789%_ + (##cdr _%e186521186716%_))) + (_%hd186520186719%_ (let () (declare (not safe)) - (##car _%e187591187786%_)))) + (##car _%e186521186716%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd187590187789%_)) + (gx#identifier? _%hd186520186719%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd187590187789%_)) + _%hd186520186719%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187589187791%_)) - (let ((_%e187594187794%_ + _%tl186519186721%_)) + (let ((_%e186524186724%_ (let () (declare (not safe)) (gx#stx-e - _%tl187589187791%_)))) - (let ((_%tl187592187799%_ + _%tl186519186721%_)))) + (let ((_%tl186522186729%_ (let () (declare (not safe)) - (##cdr _%e187594187794%_))) - (_%hd187593187797%_ + (##cdr _%e186524186724%_))) + (_%hd186523186727%_ (let () (declare (not safe)) - (##car _%e187594187794%_)))) + (##car _%e186524186724%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd187593187797%_)) - (let ((_%e187595187802%_ + _%hd186523186727%_)) + (let ((_%e186525186732%_ (let () (declare (not safe)) (gx#stx-e - _%hd187593187797%_)))) - (if (equal? _%e187595187802%_ + _%hd186523186727%_)))) + (if (equal? _%e186525186732%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187592187799%_)) + (gx#stx-null? _%tl186522186729%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187586187783%_)) - (let ((_%e187598187805%_ + (gx#stx-pair? _%tl186516186713%_)) + (let ((_%e186528186735%_ (let () (declare (not safe)) - (gx#stx-e _%tl187586187783%_)))) - (let ((_%tl187596187810%_ + (gx#stx-e _%tl186516186713%_)))) + (let ((_%tl186526186740%_ (let () (declare (not safe)) - (##cdr _%e187598187805%_))) - (_%hd187597187808%_ + (##cdr _%e186528186735%_))) + (_%hd186527186738%_ (let () (declare (not safe)) - (##car _%e187598187805%_)))) - (_%__kont190909190910%_ - _%tl187596187810%_ - _%hd187597187808%_))) - (_%__kont190915190916%_ - _%tl187586187783%_ - _%hd187587187781%_)) - (_%__kont190915190916%_ - _%tl187586187783%_ - _%hd187587187781%_)) - (if (equal? _%e187595187802%_ '#!rest) + (##car _%e186528186735%_)))) + (_%__kont189848189849%_ + _%tl186526186740%_ + _%hd186527186738%_))) + (_%__kont189854189855%_ + _%tl186516186713%_ + _%hd186517186711%_)) + (_%__kont189854189855%_ + _%tl186516186713%_ + _%hd186517186711%_)) + (if (equal? _%e186525186732%_ '#!rest) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187592187799%_)) - (_%__kont190911190912%_ _%tl187586187783%_) - (_%__kont190915190916%_ - _%tl187586187783%_ - _%hd187587187781%_)) + (gx#stx-null? _%tl186522186729%_)) + (_%__kont189850189851%_ _%tl186516186713%_) + (_%__kont189854189855%_ + _%tl186516186713%_ + _%hd186517186711%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187592187799%_)) + (gx#stx-null? _%tl186522186729%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187586187783%_)) - (let ((_%e187624187698%_ + (gx#stx-pair? _%tl186516186713%_)) + (let ((_%e186554186628%_ (let () (declare (not safe)) - (gx#stx-e _%tl187586187783%_)))) - (let ((_%tl187622187703%_ + (gx#stx-e _%tl186516186713%_)))) + (let ((_%tl186552186633%_ (let () (declare (not safe)) - (##cdr _%e187624187698%_))) - (_%hd187623187701%_ + (##cdr _%e186554186628%_))) + (_%hd186553186631%_ (let () (declare (not safe)) - (##car _%e187624187698%_)))) - (_%__match191014191015%_ - _%e187588187778%_ - _%hd187587187781%_ - _%tl187586187783%_ - _%e187591187786%_ - _%hd187590187789%_ - _%tl187589187791%_ - _%e187594187794%_ - _%hd187593187797%_ - _%tl187592187799%_ - _%e187624187698%_ - _%hd187623187701%_ - _%tl187622187703%_))) - (_%__kont190915190916%_ - _%tl187586187783%_ - _%hd187587187781%_)) - (_%__kont190915190916%_ - _%tl187586187783%_ - _%hd187587187781%_))))) + (##car _%e186554186628%_)))) + (_%__match189953189954%_ + _%e186518186708%_ + _%hd186517186711%_ + _%tl186516186713%_ + _%e186521186716%_ + _%hd186520186719%_ + _%tl186519186721%_ + _%e186524186724%_ + _%hd186523186727%_ + _%tl186522186729%_ + _%e186554186628%_ + _%hd186553186631%_ + _%tl186552186633%_))) + (_%__kont189854189855%_ + _%tl186516186713%_ + _%hd186517186711%_)) + (_%__kont189854189855%_ + _%tl186516186713%_ + _%hd186517186711%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl187592187799%_)) + _%tl186522186729%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187586187783%_)) - (let ((_%e187624187698%_ + _%tl186516186713%_)) + (let ((_%e186554186628%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl187586187783%_)))) - (let ((_%tl187622187703%_ + (gx#stx-e _%tl186516186713%_)))) + (let ((_%tl186552186633%_ (let () (declare (not safe)) - (##cdr _%e187624187698%_))) - (_%hd187623187701%_ + (##cdr _%e186554186628%_))) + (_%hd186553186631%_ (let () (declare (not safe)) - (##car _%e187624187698%_)))) - (_%__match191014191015%_ - _%e187588187778%_ - _%hd187587187781%_ - _%tl187586187783%_ - _%e187591187786%_ - _%hd187590187789%_ - _%tl187589187791%_ - _%e187594187794%_ - _%hd187593187797%_ - _%tl187592187799%_ - _%e187624187698%_ - _%hd187623187701%_ - _%tl187622187703%_))) - (_%__kont190915190916%_ - _%tl187586187783%_ - _%hd187587187781%_)) - (_%__kont190915190916%_ - _%tl187586187783%_ - _%hd187587187781%_))))) + (##car _%e186554186628%_)))) + (_%__match189953189954%_ + _%e186518186708%_ + _%hd186517186711%_ + _%tl186516186713%_ + _%e186521186716%_ + _%hd186520186719%_ + _%tl186519186721%_ + _%e186524186724%_ + _%hd186523186727%_ + _%tl186522186729%_ + _%e186554186628%_ + _%hd186553186631%_ + _%tl186552186633%_))) + (_%__kont189854189855%_ + _%tl186516186713%_ + _%hd186517186711%_)) + (_%__kont189854189855%_ + _%tl186516186713%_ + _%hd186517186711%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190915190916%_ - _%tl187586187783%_ - _%hd187587187781%_)) - (_%__kont190915190916%_ - _%tl187586187783%_ - _%hd187587187781%_)) - (_%__kont190915190916%_ - _%tl187586187783%_ - _%hd187587187781%_)))) - (_%__kont190915190916%_ - _%tl187586187783%_ - _%hd187587187781%_)))) - (_%__kont190917190918%_)))))))) + (_%__kont189854189855%_ + _%tl186516186713%_ + _%hd186517186711%_)) + (_%__kont189854189855%_ + _%tl186516186713%_ + _%hd186517186711%_)) + (_%__kont189854189855%_ + _%tl186516186713%_ + _%hd186517186711%_)))) + (_%__kont189854189855%_ + _%tl186516186713%_ + _%hd186517186711%_)))) + (_%__kont189856189857%_)))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_%self187553%_ _%ctx187554%_ _%stx187555%_ _%args187556%_) - (let ((_%self187559%_ _%self187553%_)) + (lambda (_%self186483%_ _%ctx186484%_ _%stx186485%_ _%args186486%_) + (let ((_%self186489%_ _%self186483%_)) (declare (not safe)) - (gxc#xform-call% _%ctx187554%_ _%stx187555%_)))) + (gxc#xform-call% _%ctx186484%_ _%stx186485%_)))) (let () (declare (not safe)) (__bind-method! @@ -4084,404 +3952,394 @@ gxc#!kw-lambda-primary::optimize-call '#f)) (define gxc#apply-check-return-type-begin-annotation% - (lambda (_%self187241%_ _%stx187242%_) - (let* ((_%__stx191023191024%_ _%stx187242%_) - (_%g187245187285%_ + (lambda (_%self186171%_ _%stx186172%_) + (let* ((_%__stx189962189963%_ _%stx186172%_) + (_%g186175186215%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191023191024%_))))) - (let ((_%__kont191025191026%_ - (lambda (_%L187391%_ _%L187392%_) - (let ((_%$e187419%_ + _%__stx189962189963%_))))) + (let ((_%__kont189964189965%_ + (lambda (_%L186321%_ _%L186322%_) + (let ((_%$e186349%_ (member 'return: - (let ((__tmp191204 - (lambda (_%g187411187414%_ - _%g187412187416%_) - (cons _%g187411187414%_ - _%g187412187416%_)))) + (let ((__tmp190115 + (lambda (_%g186341186344%_ + _%g186342186346%_) + (cons _%g186341186344%_ + _%g186342186346%_)))) (declare (not safe)) - (__foldr1 __tmp191204 '() _%L187392%_)) + (__foldr1 __tmp190115 '() _%L186322%_)) gx#stx-eq?))) - (if _%$e187419%_ - ((lambda (_%tail187422%_) - (let ((_%type187424%_ - (let ((__tmp191205 - (let ((__tmp191206 - (cadr _%tail187422%_))) + (if _%$e186349%_ + ((lambda (_%tail186352%_) + (let ((_%type186354%_ + (let ((__tmp190116 + (let ((__tmp190117 + (cadr _%tail186352%_))) (declare (not safe)) (gxc#identifier-symbol - __tmp191206)))) + __tmp190117)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx187242%_ - __tmp191205)))) - (let () - (declare (not safe)) - (gxc#check-return-type! - _%stx187242%_ - _%L187391%_ - _%type187424%_)) + _%stx186172%_ + __tmp190116)))) + (gxc#check-return-type! + _%stx186172%_ + _%L186321%_ + _%type186354%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self187241%_ - _%L187391%_)))) - _%$e187419%_) + _%self186171%_ + _%L186321%_)))) + _%$e186349%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self187241%_ _%L187391%_)))))) - (_%__kont191029191030%_ - (lambda (_%L187314%_ _%L187315%_) + (gxc#compile-e__1 _%self186171%_ _%L186321%_)))))) + (_%__kont189968189969%_ + (lambda (_%L186244%_ _%L186245%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self187241%_ _%L187314%_))))) - (let ((_%__match191060191061%_ - (lambda (_%e187251187335%_ - _%hd187250187338%_ - _%tl187249187340%_ - _%e187254187343%_ - _%hd187253187346%_ - _%tl187252187348%_ - _%e187257187351%_ - _%hd187256187354%_ - _%tl187255187356%_ - _%__splice191027191028%_ - _%target187258187359%_ - _%tl187260187361%_) - (letrec ((_%loop187261187364%_ - (lambda (_%hd187259187367%_ - _%signature187265187369%_) + (gxc#compile-e__1 _%self186171%_ _%L186244%_))))) + (let ((_%__match189999190000%_ + (lambda (_%e186181186265%_ + _%hd186180186268%_ + _%tl186179186270%_ + _%e186184186273%_ + _%hd186183186276%_ + _%tl186182186278%_ + _%e186187186281%_ + _%hd186186186284%_ + _%tl186185186286%_ + _%__splice189966189967%_ + _%target186188186289%_ + _%tl186190186291%_) + (letrec ((_%loop186191186294%_ + (lambda (_%hd186189186297%_ + _%signature186195186299%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187259187367%_)) - (let ((_%e187262187372%_ + (gx#stx-pair? _%hd186189186297%_)) + (let ((_%e186192186302%_ (let () (declare (not safe)) - (gx#stx-e _%hd187259187367%_)))) - (let ((_%lp-tl187264187377%_ + (gx#stx-e _%hd186189186297%_)))) + (let ((_%lp-tl186194186307%_ (let () (declare (not safe)) - (##cdr _%e187262187372%_))) - (_%lp-hd187263187375%_ + (##cdr _%e186192186302%_))) + (_%lp-hd186193186305%_ (let () (declare (not safe)) - (##car _%e187262187372%_)))) - (let ((__tmp191207 - (cons _%lp-hd187263187375%_ - _%signature187265187369%_))) - (declare (not safe)) - (_%loop187261187364%_ - _%lp-tl187264187377%_ - __tmp191207)))) - (let ((_%signature187266187380%_ - (reverse _%signature187265187369%_))) + (##car _%e186192186302%_)))) + (_%loop186191186294%_ + _%lp-tl186194186307%_ + (cons _%lp-hd186193186305%_ + _%signature186195186299%_)))) + (let ((_%signature186196186310%_ + (reverse _%signature186195186299%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187252187348%_)) - (let ((_%e187269187383%_ + (gx#stx-pair? _%tl186182186278%_)) + (let ((_%e186199186313%_ (let () (declare (not safe)) (gx#stx-e - _%tl187252187348%_)))) - (let ((_%tl187267187388%_ + _%tl186182186278%_)))) + (let ((_%tl186197186318%_ (let () (declare (not safe)) - (##cdr _%e187269187383%_))) - (_%hd187268187386%_ + (##cdr _%e186199186313%_))) + (_%hd186198186316%_ (let () (declare (not safe)) - (##car _%e187269187383%_)))) + (##car _%e186199186313%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187267187388%_)) - (_%__kont191025191026%_ - _%hd187268187386%_ - _%signature187266187380%_) + _%tl186197186318%_)) + (_%__kont189964189965%_ + _%hd186198186316%_ + _%signature186196186310%_) (let () (declare (not safe)) - (_%g187245187285%_))))) + (_%g186175186215%_))))) (let () (declare (not safe)) - (_%g187245187285%_)))))))) - (let () - (declare (not safe)) - (_%loop187261187364%_ _%target187258187359%_ '())))))) + (_%g186175186215%_)))))))) + (_%loop186191186294%_ _%target186188186289%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191023191024%_)) - (let ((_%e187251187335%_ + (gx#stx-pair? _%__stx189962189963%_)) + (let ((_%e186181186265%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191023191024%_)))) - (let ((_%tl187249187340%_ + (gx#stx-e _%__stx189962189963%_)))) + (let ((_%tl186179186270%_ (let () (declare (not safe)) - (##cdr _%e187251187335%_))) - (_%hd187250187338%_ + (##cdr _%e186181186265%_))) + (_%hd186180186268%_ (let () (declare (not safe)) - (##car _%e187251187335%_)))) + (##car _%e186181186265%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187249187340%_)) - (let ((_%e187254187343%_ + (gx#stx-pair? _%tl186179186270%_)) + (let ((_%e186184186273%_ (let () (declare (not safe)) - (gx#stx-e _%tl187249187340%_)))) - (let ((_%tl187252187348%_ + (gx#stx-e _%tl186179186270%_)))) + (let ((_%tl186182186278%_ (let () (declare (not safe)) - (##cdr _%e187254187343%_))) - (_%hd187253187346%_ + (##cdr _%e186184186273%_))) + (_%hd186183186276%_ (let () (declare (not safe)) - (##car _%e187254187343%_)))) + (##car _%e186184186273%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187253187346%_)) - (let ((_%e187257187351%_ + (gx#stx-pair? _%hd186183186276%_)) + (let ((_%e186187186281%_ (let () (declare (not safe)) - (gx#stx-e _%hd187253187346%_)))) - (let ((_%tl187255187356%_ + (gx#stx-e _%hd186183186276%_)))) + (let ((_%tl186185186286%_ (let () (declare (not safe)) - (##cdr _%e187257187351%_))) - (_%hd187256187354%_ + (##cdr _%e186187186281%_))) + (_%hd186186186284%_ (let () (declare (not safe)) - (##car _%e187257187351%_)))) + (##car _%e186187186281%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187256187354%_)) + _%hd186186186284%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd187256187354%_)) + _%hd186186186284%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl187255187356%_)) - (let ((_%__splice191027191028%_ + _%tl186185186286%_)) + (let ((_%__splice189966189967%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl187255187356%_ + _%tl186185186286%_ '0)))) - (let ((_%tl187260187361%_ + (let ((_%tl186190186291%_ (let () (declare (not safe)) (##vector-ref - _%__splice191027191028%_ + _%__splice189966189967%_ '1))) - (_%target187258187359%_ + (_%target186188186289%_ (let () (declare (not safe)) (##vector-ref - _%__splice191027191028%_ + _%__splice189966189967%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187260187361%_)) - (_%__match191060191061%_ - _%e187251187335%_ - _%hd187250187338%_ - _%tl187249187340%_ - _%e187254187343%_ - _%hd187253187346%_ - _%tl187252187348%_ - _%e187257187351%_ - _%hd187256187354%_ - _%tl187255187356%_ - _%__splice191027191028%_ - _%target187258187359%_ - _%tl187260187361%_) + _%tl186190186291%_)) + (_%__match189999190000%_ + _%e186181186265%_ + _%hd186180186268%_ + _%tl186179186270%_ + _%e186184186273%_ + _%hd186183186276%_ + _%tl186182186278%_ + _%e186187186281%_ + _%hd186186186284%_ + _%tl186185186286%_ + _%__splice189966189967%_ + _%target186188186289%_ + _%tl186190186291%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187252187348%_)) - (let ((_%e187280187306%_ + (gx#stx-pair? _%tl186182186278%_)) + (let ((_%e186210186236%_ (let () (declare (not safe)) - (gx#stx-e _%tl187252187348%_)))) - (let ((_%tl187278187311%_ + (gx#stx-e _%tl186182186278%_)))) + (let ((_%tl186208186241%_ (let () (declare (not safe)) - (##cdr _%e187280187306%_))) - (_%hd187279187309%_ + (##cdr _%e186210186236%_))) + (_%hd186209186239%_ (let () (declare (not safe)) - (##car _%e187280187306%_)))) + (##car _%e186210186236%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187278187311%_)) - (_%__kont191029191030%_ - _%hd187279187309%_ - _%hd187253187346%_) + (gx#stx-null? _%tl186208186241%_)) + (_%__kont189968189969%_ + _%hd186209186239%_ + _%hd186183186276%_) (let () (declare (not safe)) - (_%g187245187285%_))))) - (let () (declare (not safe)) (_%g187245187285%_)))))) + (_%g186175186215%_))))) + (let () (declare (not safe)) (_%g186175186215%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187252187348%_)) - (let ((_%e187280187306%_ + _%tl186182186278%_)) + (let ((_%e186210186236%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl187252187348%_)))) - (let ((_%tl187278187311%_ - (let () (declare (not safe)) (##cdr _%e187280187306%_))) - (_%hd187279187309%_ + (gx#stx-e _%tl186182186278%_)))) + (let ((_%tl186208186241%_ + (let () (declare (not safe)) (##cdr _%e186210186236%_))) + (_%hd186209186239%_ (let () (declare (not safe)) - (##car _%e187280187306%_)))) + (##car _%e186210186236%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187278187311%_)) - (_%__kont191029191030%_ - _%hd187279187309%_ - _%hd187253187346%_) - (let () (declare (not safe)) (_%g187245187285%_))))) - (let () (declare (not safe)) (_%g187245187285%_)))) + (gx#stx-null? _%tl186208186241%_)) + (_%__kont189968189969%_ + _%hd186209186239%_ + _%hd186183186276%_) + (let () (declare (not safe)) (_%g186175186215%_))))) + (let () (declare (not safe)) (_%g186175186215%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187252187348%_)) - (let ((_%e187280187306%_ + _%tl186182186278%_)) + (let ((_%e186210186236%_ (let () (declare (not safe)) (gx#stx-e - _%tl187252187348%_)))) - (let ((_%tl187278187311%_ + _%tl186182186278%_)))) + (let ((_%tl186208186241%_ (let () (declare (not safe)) - (##cdr _%e187280187306%_))) - (_%hd187279187309%_ + (##cdr _%e186210186236%_))) + (_%hd186209186239%_ (let () (declare (not safe)) - (##car _%e187280187306%_)))) + (##car _%e186210186236%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187278187311%_)) - (_%__kont191029191030%_ - _%hd187279187309%_ - _%hd187253187346%_) + _%tl186208186241%_)) + (_%__kont189968189969%_ + _%hd186209186239%_ + _%hd186183186276%_) (let () (declare (not safe)) - (_%g187245187285%_))))) + (_%g186175186215%_))))) (let () (declare (not safe)) - (_%g187245187285%_)))) + (_%g186175186215%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187252187348%_)) - (let ((_%e187280187306%_ + _%tl186182186278%_)) + (let ((_%e186210186236%_ (let () (declare (not safe)) (gx#stx-e - _%tl187252187348%_)))) - (let ((_%tl187278187311%_ + _%tl186182186278%_)))) + (let ((_%tl186208186241%_ (let () (declare (not safe)) - (##cdr _%e187280187306%_))) - (_%hd187279187309%_ + (##cdr _%e186210186236%_))) + (_%hd186209186239%_ (let () (declare (not safe)) - (##car _%e187280187306%_)))) + (##car _%e186210186236%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187278187311%_)) - (_%__kont191029191030%_ - _%hd187279187309%_ - _%hd187253187346%_) + _%tl186208186241%_)) + (_%__kont189968189969%_ + _%hd186209186239%_ + _%hd186183186276%_) (let () (declare (not safe)) - (_%g187245187285%_))))) + (_%g186175186215%_))))) (let () (declare (not safe)) - (_%g187245187285%_)))))) + (_%g186175186215%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187252187348%_)) - (let ((_%e187280187306%_ + (gx#stx-pair? _%tl186182186278%_)) + (let ((_%e186210186236%_ (let () (declare (not safe)) - (gx#stx-e _%tl187252187348%_)))) - (let ((_%tl187278187311%_ + (gx#stx-e _%tl186182186278%_)))) + (let ((_%tl186208186241%_ (let () (declare (not safe)) - (##cdr _%e187280187306%_))) - (_%hd187279187309%_ + (##cdr _%e186210186236%_))) + (_%hd186209186239%_ (let () (declare (not safe)) - (##car _%e187280187306%_)))) + (##car _%e186210186236%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187278187311%_)) - (_%__kont191029191030%_ - _%hd187279187309%_ - _%hd187253187346%_) + _%tl186208186241%_)) + (_%__kont189968189969%_ + _%hd186209186239%_ + _%hd186183186276%_) (let () (declare (not safe)) - (_%g187245187285%_))))) + (_%g186175186215%_))))) (let () (declare (not safe)) - (_%g187245187285%_)))))) - (let () (declare (not safe)) (_%g187245187285%_))))) - (let () (declare (not safe)) (_%g187245187285%_)))))))) + (_%g186175186215%_)))))) + (let () (declare (not safe)) (_%g186175186215%_))))) + (let () (declare (not safe)) (_%g186175186215%_)))))))) (define gxc#check-return-type! - (lambda (_%stx187219%_ _%expr187220%_ _%type187221%_) - (let ((_%$e187223%_ - (let () (declare (not safe)) (not _%type187221%_)))) - (if _%$e187223%_ - _%$e187223%_ - (let ((_%$e187226%_ - (eq? (##structure-ref _%type187221%_ '1 gxc#!type::t '#f) + (lambda (_%stx186149%_ _%expr186150%_ _%type186151%_) + (let ((_%$e186153%_ (not _%type186151%_))) + (if _%$e186153%_ + _%$e186153%_ + (let ((_%$e186156%_ + (eq? (##structure-ref _%type186151%_ '1 gxc#!type::t '#f) 't))) - (if _%$e187226%_ - _%$e187226%_ - (let ((_%expr-type187230%_ + (if _%$e186156%_ + _%$e186156%_ + (let ((_%expr-type186160%_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _%expr187220%_)))) - (if (let () - (declare (not safe)) - (not _%expr-type187230%_)) + _%expr186150%_)))) + (if (not _%expr-type186160%_) (let () (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; no type information" - _%stx187219%_ - _%type187221%_)) + _%stx186149%_ + _%type186151%_)) (if (eq? 't (##structure-ref - _%expr-type187230%_ + _%expr-type186160%_ '1 gxc#!type::t '#f)) @@ -4489,29 +4347,29 @@ (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; unspecific type" - _%stx187219%_ - _%type187221%_ - _%expr-type187230%_)) - (let ((_%$e187234%_ + _%stx186149%_ + _%type186151%_ + _%expr-type186160%_)) + (let ((_%$e186164%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type187230%_ + _%expr-type186160%_ 'gxc#!abort::t)))) - (if _%$e187234%_ - _%$e187234%_ - (let ((_%$e187237%_ + (if _%$e186164%_ + _%$e186164%_ + (let ((_%$e186167%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type187230%_ - _%type187221%_)))) - (if _%$e187237%_ - _%$e187237%_ + _%expr-type186160%_ + _%type186151%_)))) + (if _%$e186167%_ + _%$e186167%_ (let () (declare (not safe)) (gxc#raise-compile-error '"procedure return type does not match signature" - _%stx187219%_ - _%type187221%_ - _%expr-type187230%_))))))))))))))))) + _%stx186149%_ + _%type186151%_ + _%expr-type186160%_))))))))))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~1.scm b/src/bootstrap/gerbil/compiler/optimize-call~1.scm index e5d723cca..90f06a1ec 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]#_g191209_| + (define |gxc[1]#_g190119_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191211_| + (define |gxc[1]#_g190121_| (##structure gx#syntax-quote::t '::optimize-call::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191213_| + (define |gxc[1]#_g190123_| (##structure gx#syntax-quote::t 'make-::optimize-call #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191215_| + (define |gxc[1]#_g190125_| (##structure gx#syntax-quote::t '::optimize-call? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191217_| + (define |gxc[1]#_g190127_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191219_| + (define |gxc[1]#_g190129_| (##structure gx#syntax-quote::t '::check-return-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191221_| + (define |gxc[1]#_g190131_| (##structure gx#syntax-quote::t 'make-::check-return-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g191223_| + (define |gxc[1]#_g190133_| (##structure gx#syntax-quote::t '::check-return-type? @@ -58,7 +58,7 @@ '())) (begin (define |gxc[:0:]#::optimize-call| - (let ((__obj191082 + (let ((__obj190021 (let () (declare (not safe)) (##structure @@ -87,68 +87,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj191082 + __obj190021 'gxc#::optimize-call::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191082 '::optimize-call '2 '#f '#f)) + (##unchecked-structure-set! __obj190021 '::optimize-call '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191082 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj190021 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191082 '() '6 '#f '#f)) - (let ((__tmp191208 (cons |gxc[1]#_g191209_| '()))) + (##unchecked-structure-set! __obj190021 '() '6 '#f '#f)) + (let ((__tmp190118 (cons |gxc[1]#_g190119_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj191082 __tmp191208 '3 '#f '#f)) + (##unchecked-structure-set! __obj190021 __tmp190118 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191082 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj190021 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191082 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj190021 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191082 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj190021 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191082 '#f '11 '#f '#f)) - (let ((__tmp191210 |gxc[1]#_g191211_|)) + (##unchecked-structure-set! __obj190021 '#f '11 '#f '#f)) + (let ((__tmp190120 |gxc[1]#_g190121_|)) (declare (not safe)) - (##unchecked-structure-set! __obj191082 __tmp191210 '12 '#f '#f)) - (let ((__tmp191212 |gxc[1]#_g191213_|)) + (##unchecked-structure-set! __obj190021 __tmp190120 '12 '#f '#f)) + (let ((__tmp190122 |gxc[1]#_g190123_|)) (declare (not safe)) - (##unchecked-structure-set! __obj191082 __tmp191212 '13 '#f '#f)) - (let ((__tmp191214 |gxc[1]#_g191215_|)) + (##unchecked-structure-set! __obj190021 __tmp190122 '13 '#f '#f)) + (let ((__tmp190124 |gxc[1]#_g190125_|)) (declare (not safe)) - (##unchecked-structure-set! __obj191082 __tmp191214 '14 '#f '#f)) + (##unchecked-structure-set! __obj190021 __tmp190124 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191082 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj190021 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191082 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj190021 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191082 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj190021 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191082 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj190021 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191082 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj190021 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191082 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj190021 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191082 '() '20 '#f '#f)) - __obj191082)) + (##unchecked-structure-set! __obj190021 '() '20 '#f '#f)) + __obj190021)) (define |gxc[:0:]#::check-return-type| - (let ((__obj191084 + (let ((__obj190023 (let () (declare (not safe)) (##structure @@ -177,7 +177,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj191084 + __obj190023 'gxc#::check-return-type::t '1 '#f @@ -185,60 +185,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj191084 + __obj190023 '::check-return-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191084 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj190023 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191084 '() '6 '#f '#f)) - (let ((__tmp191216 (cons |gxc[1]#_g191217_| '()))) + (##unchecked-structure-set! __obj190023 '() '6 '#f '#f)) + (let ((__tmp190126 (cons |gxc[1]#_g190127_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj191084 __tmp191216 '3 '#f '#f)) + (##unchecked-structure-set! __obj190023 __tmp190126 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191084 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj190023 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191084 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj190023 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191084 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj190023 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191084 '#f '11 '#f '#f)) - (let ((__tmp191218 |gxc[1]#_g191219_|)) + (##unchecked-structure-set! __obj190023 '#f '11 '#f '#f)) + (let ((__tmp190128 |gxc[1]#_g190129_|)) (declare (not safe)) - (##unchecked-structure-set! __obj191084 __tmp191218 '12 '#f '#f)) - (let ((__tmp191220 |gxc[1]#_g191221_|)) + (##unchecked-structure-set! __obj190023 __tmp190128 '12 '#f '#f)) + (let ((__tmp190130 |gxc[1]#_g190131_|)) (declare (not safe)) - (##unchecked-structure-set! __obj191084 __tmp191220 '13 '#f '#f)) - (let ((__tmp191222 |gxc[1]#_g191223_|)) + (##unchecked-structure-set! __obj190023 __tmp190130 '13 '#f '#f)) + (let ((__tmp190132 |gxc[1]#_g190133_|)) (declare (not safe)) - (##unchecked-structure-set! __obj191084 __tmp191222 '14 '#f '#f)) + (##unchecked-structure-set! __obj190023 __tmp190132 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191084 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj190023 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191084 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj190023 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191084 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj190023 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191084 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj190023 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191084 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj190023 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191084 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj190023 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj191084 '() '20 '#f '#f)) - __obj191084)))) + (##unchecked-structure-set! __obj190023 '() '20 '#f '#f)) + __obj190023)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec.ssxi.ss b/src/bootstrap/gerbil/compiler/optimize-spec.ssxi.ss index 0cdce9d05..b7a6d762a 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/optimize-spec.ssxi.ss @@ -40,7 +40,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-spec))) (declare-class gxc#::collect-object-refs::t (@class gxc#::collect-object-refs::t @@ -115,7 +124,16 @@ package: gerbil/compiler (@lambda 5 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-spec))) (declare-type gxc#apply-collect-object-refs__@ (@kw-lambda-dispatch @@ -204,7 +222,16 @@ package: gerbil/compiler (@lambda 6 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-spec))) (declare-type gxc#apply-subst-object-refs__@ (@kw-lambda-dispatch @@ -215,6 +242,48 @@ package: gerbil/compiler (@kw-lambda (receiver: methods: slots: klass:) gxc#apply-subst-object-refs__@)) - (declare-type gxc#generate-method-specializers-define-values% (@lambda 2 #f)) - (declare-type gxc#collect-object-refs-call% (@lambda 2 #f)) - (declare-type gxc#subst-object-refs-call% (@lambda 2 #f))) + (declare-type + gxc#generate-method-specializers-define-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-spec))) + (declare-type + gxc#collect-object-refs-call% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-spec))) + (declare-type + gxc#subst-object-refs-call% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-spec)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~0.scm b/src/bootstrap/gerbil/compiler/optimize-spec~0.scm index ec06d1dde..441968ec2 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 1712533293) + (define gerbil/compiler/optimize-spec::timestamp 1712573434) (begin (define gxc#::generate-method-specializers::t - (let ((__tmp172556 (list gxc#::identity::t)) - (__tmp172555 (cons (cons 'final: '#t) '()))) + (let ((__tmp171585 (list gxc#::identity::t)) + (__tmp171584 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-method-specializers::t '::generate-method-specializers - __tmp172556 + __tmp171585 '() - __tmp172555 + __tmp171584 '#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 _%$args171421%_ + (lambda _%$args170450%_ (apply make-instance gxc#::generate-method-specializers::t - _%$args171421%_))) + _%$args170450%_))) (define gxc#::generate-method-specializers-bind-methods! - (let ((__tmp172557 + (let ((__tmp171586 (lambda () (force gxc#::identity-bind-methods!) (let () @@ -54,44 +54,44 @@ (declare (not safe)) (__seal-class! gxc#::generate-method-specializers::t))))) (declare (not safe)) - (__make-promise __tmp172557))) + (__make-promise __tmp171586))) (define gxc#apply-generate-method-specializers - (lambda (_%stx171413%_) + (lambda (_%stx170442%_) (force gxc#::generate-method-specializers-bind-methods!) - (let* ((_%self171416%_ - (let ((__obj172550 + (let* ((_%self170445%_ + (let ((__obj171579 (let () (declare (not safe)) (##structure gxc#::generate-method-specializers::t)))) - __obj172550)) - (__tmp172558 + __obj171579)) + (__tmp171587 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self171416%_ _%stx171413%_))))) + (gxc#compile-e__1 _%self170445%_ _%stx170442%_))))) (declare (not safe)) (__call-with-parameters - __tmp172558 + __tmp171587 gxc#current-compile-method - _%self171416%_)))) + _%self170445%_)))) (define gxc#::collect-object-refs::t - (let ((__tmp172560 (list gxc#::void::t)) - (__tmp172559 (cons (cons 'final: '#t) '()))) + (let ((__tmp171589 (list gxc#::void::t)) + (__tmp171588 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-object-refs::t '::collect-object-refs - __tmp172560 + __tmp171589 '(receiver methods slots) - __tmp172559 + __tmp171588 '#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 _%$args171410%_ - (apply make-instance gxc#::collect-object-refs::t _%$args171410%_))) + (lambda _%$args170439%_ + (apply make-instance gxc#::collect-object-refs::t _%$args170439%_))) (define gxc#::collect-object-refs-receiver (let () (declare (not safe)) @@ -153,7 +153,7 @@ gxc#::collect-object-refs::t 'slots))) (define gxc#::collect-object-refs-bind-methods! - (let ((__tmp172561 + (let ((__tmp171590 (lambda () (force gxc#::void-bind-methods!) (let () @@ -256,34 +256,34 @@ (declare (not safe)) (__seal-class! gxc#::collect-object-refs::t))))) (declare (not safe)) - (__make-promise __tmp172561))) + (__make-promise __tmp171590))) (define gxc#apply-collect-object-refs__% - (lambda (_%@@keywords171376%_ - _%receiver171371171377%_ - _%methods171372171379%_ - _%slots171373171381%_ - _%stx171383%_) - (let* ((_%receiver171386%_ - (if (eq? _%receiver171371171377%_ absent-value) + (lambda (_%@@keywords170405%_ + _%receiver170400170406%_ + _%methods170401170408%_ + _%slots170402170410%_ + _%stx170412%_) + (let* ((_%receiver170415%_ + (if (eq? _%receiver170400170406%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver171371171377%_)) - (_%methods171388%_ - (if (eq? _%methods171372171379%_ absent-value) + _%receiver170400170406%_)) + (_%methods170417%_ + (if (eq? _%methods170401170408%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods171372171379%_)) - (_%slots171390%_ - (if (eq? _%slots171373171381%_ absent-value) + _%methods170401170408%_)) + (_%slots170419%_ + (if (eq? _%slots170402170410%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots171373171381%_))) + _%slots170402170410%_))) (force gxc#::collect-object-refs-bind-methods!) - (let* ((_%self171392%_ - (let ((__obj172552 + (let* ((_%self170421%_ + (let ((__obj171581 (let () (declare (not safe)) (##structure @@ -294,85 +294,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj172552 - _%receiver171386%_ + __obj171581 + _%receiver170415%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj172552 - _%methods171388%_ + __obj171581 + _%methods170417%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj172552 - _%slots171390%_ + __obj171581 + _%slots170419%_ '3 '#f '#f)) - __obj172552)) - (__tmp172562 + __obj171581)) + (__tmp171591 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self171392%_ _%stx171383%_))))) + (gxc#compile-e__1 _%self170421%_ _%stx170412%_))))) (declare (not safe)) (__call-with-parameters - __tmp172562 + __tmp171591 gxc#current-compile-method - _%self171392%_))))) + _%self170421%_))))) (define gxc#apply-collect-object-refs__@ - (lambda (_%@@keywords171399%_ . _%args171400%_) + (lambda (_%@@keywords170428%_ . _%args170429%_) (apply gxc#apply-collect-object-refs__% - _%@@keywords171399%_ + _%@@keywords170428%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords171399%_ + _%@@keywords170428%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords171399%_ + _%@@keywords170428%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords171399%_ + _%@@keywords170428%_ 'slots: absent-value)) - _%args171400%_))) + _%args170429%_))) (define gxc#apply-collect-object-refs - (lambda _%args171374171406%_ + (lambda _%args170403170435%_ (apply keyword-dispatch '#(receiver: slots: methods:) gxc#apply-collect-object-refs__@ - _%args171374171406%_))) + _%args170403170435%_))) (define gxc#::subst-object-refs::t - (let ((__tmp172564 (list gxc#::basic-xform-expression::t)) - (__tmp172563 (cons (cons 'final: '#t) '()))) + (let ((__tmp171593 (list gxc#::basic-xform-expression::t)) + (__tmp171592 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::subst-object-refs::t '::subst-object-refs - __tmp172564 + __tmp171593 '(receiver klass methods slots) - __tmp172563 + __tmp171592 '#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 _%$args171367%_ - (apply make-instance gxc#::subst-object-refs::t _%$args171367%_))) + (lambda _%$args170396%_ + (apply make-instance gxc#::subst-object-refs::t _%$args170396%_))) (define gxc#::subst-object-refs-receiver (let () (declare (not safe)) @@ -454,7 +454,7 @@ gxc#::subst-object-refs::t 'slots))) (define gxc#::subst-object-refs-bind-methods! - (let ((__tmp172565 + (let ((__tmp171594 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (let () @@ -473,41 +473,41 @@ (declare (not safe)) (__seal-class! gxc#::subst-object-refs::t))))) (declare (not safe)) - (__make-promise __tmp172565))) + (__make-promise __tmp171594))) (define gxc#apply-subst-object-refs__% - (lambda (_%@@keywords171329%_ - _%receiver171323171330%_ - _%klass171324171332%_ - _%methods171325171334%_ - _%slots171326171336%_ - _%stx171338%_) - (let* ((_%receiver171341%_ - (if (eq? _%receiver171323171330%_ absent-value) + (lambda (_%@@keywords170358%_ + _%receiver170352170359%_ + _%klass170353170361%_ + _%methods170354170363%_ + _%slots170355170365%_ + _%stx170367%_) + (let* ((_%receiver170370%_ + (if (eq? _%receiver170352170359%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver171323171330%_)) - (_%klass171343%_ - (if (eq? _%klass171324171332%_ absent-value) + _%receiver170352170359%_)) + (_%klass170372%_ + (if (eq? _%klass170353170361%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'klass:)) - _%klass171324171332%_)) - (_%methods171345%_ - (if (eq? _%methods171325171334%_ absent-value) + _%klass170353170361%_)) + (_%methods170374%_ + (if (eq? _%methods170354170363%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods171325171334%_)) - (_%slots171347%_ - (if (eq? _%slots171326171336%_ absent-value) + _%methods170354170363%_)) + (_%slots170376%_ + (if (eq? _%slots170355170365%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots171326171336%_))) + _%slots170355170365%_))) (force gxc#::subst-object-refs-bind-methods!) - (let* ((_%self171349%_ - (let ((__obj172554 + (let* ((_%self170378%_ + (let ((__obj171583 (let () (declare (not safe)) (##structure @@ -519,96 +519,96 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj172554 - _%receiver171341%_ + __obj171583 + _%receiver170370%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj172554 - _%klass171343%_ + __obj171583 + _%klass170372%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj172554 - _%methods171345%_ + __obj171583 + _%methods170374%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj172554 - _%slots171347%_ + __obj171583 + _%slots170376%_ '4 '#f '#f)) - __obj172554)) - (__tmp172566 + __obj171583)) + (__tmp171595 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self171349%_ _%stx171338%_))))) + (gxc#compile-e__1 _%self170378%_ _%stx170367%_))))) (declare (not safe)) (__call-with-parameters - __tmp172566 + __tmp171595 gxc#current-compile-method - _%self171349%_))))) + _%self170378%_))))) (define gxc#apply-subst-object-refs__@ - (lambda (_%@@keywords171356%_ . _%args171357%_) + (lambda (_%@@keywords170385%_ . _%args170386%_) (apply gxc#apply-subst-object-refs__% - _%@@keywords171356%_ + _%@@keywords170385%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords171356%_ + _%@@keywords170385%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords171356%_ + _%@@keywords170385%_ 'klass: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords171356%_ + _%@@keywords170385%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords171356%_ + _%@@keywords170385%_ 'slots: absent-value)) - _%args171357%_))) + _%args170386%_))) (define gxc#apply-subst-object-refs - (lambda _%args171327171363%_ + (lambda _%args170356170392%_ (apply keyword-dispatch '#(receiver: methods: slots: klass:) gxc#apply-subst-object-refs__@ - _%args171327171363%_))) + _%args170356170392%_))) (define gxc#generate-method-specializers-define-values% - (lambda (_%self168504%_ _%stx168505%_) - (letrec ((_%generate-method-bind168507%_ - (lambda (_%$klass171315%_ - _%$method-table171316%_ - _%id171317%_ - _%$id171318%_) - (let ((_%$tmp171320%_ - (let ((__tmp172567 + (lambda (_%self167533%_ _%stx167534%_) + (letrec ((_%generate-method-bind167536%_ + (lambda (_%$klass170344%_ + _%$method-table170345%_ + _%id170346%_ + _%$id170347%_) + (let ((_%$tmp170349%_ + (let ((__tmp171596 (let () (declare (not safe)) (##gensym '__method)))) (declare (not safe)) - (make-symbol__0 __tmp172567)))) - (cons (cons _%$id171318%_ '()) + (make-symbol__0 __tmp171596)))) + (cons (cons _%$id170347%_ '()) (cons (cons '%#call (cons (cons '%#ref (cons 'make-promise '())) @@ -616,14 +616,14 @@ (cons '() (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%$tmp171320%_ '()) + (cons (cons (cons (cons _%$tmp170349%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'symbolic-table-ref '())) (cons (cons '%#ref - (cons _%$method-table171316%_ '())) + (cons _%$method-table170345%_ '())) (cons (cons '%#quote - (cons _%id171317%_ '())) + (cons _%id170346%_ '())) (cons (cons '%#quote (cons '#f '())) '()))))) @@ -633,15 +633,15 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp171320%_ '())) - (cons (cons '%#ref (cons _%$tmp171320%_ '())) + (cons _%$tmp170349%_ '())) + (cons (cons '%#ref (cons _%$tmp170349%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Missing method" '())) (cons (cons '%#quote - (cons _%id171317%_ + (cons _%id170346%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) @@ -653,26 +653,26 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-slot-bind168508%_ - (lambda (_%$klass171309%_ _%id171310%_ _%$id171311%_) - (let ((_%$tmp171313%_ - (let ((__tmp172568 + (_%generate-slot-bind167537%_ + (lambda (_%$klass170338%_ _%id170339%_ _%$id170340%_) + (let ((_%$tmp170342%_ + (let ((__tmp171597 (let () (declare (not safe)) (##gensym '__slot)))) (declare (not safe)) - (make-symbol__0 __tmp172568)))) - (cons (cons _%$id171311%_ '()) + (make-symbol__0 __tmp171597)))) + (cons (cons _%$id170340%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%$tmp171313%_ + (cons (cons (cons (cons _%$tmp170342%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'class-slot-offset '())) (cons (cons '%#ref - (cons _%$klass171309%_ '())) + (cons _%$klass170338%_ '())) (cons (cons '%#quote - (cons _%id171310%_ '())) + (cons _%id170339%_ '())) '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -680,6107 +680,5744 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp171313%_ '())) - (cons (cons '%#ref (cons _%$tmp171313%_ '())) + (cons _%$tmp170342%_ '())) + (cons (cons '%#ref (cons _%$tmp170342%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons '%#quote (cons _%id171310%_ '())) '())))) + (cons (cons '%#quote (cons _%id170339%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-specializer-impl168509%_ - (lambda (_%$klass171303%_ - _%$method-table171304%_ - _%methods-bind171305%_ - _%slots-bind171306%_ - _%specializer-impl171307%_) - (let ((__tmp172569 + (_%generate-specializer-impl167538%_ + (lambda (_%$klass170332%_ + _%$method-table170333%_ + _%methods-bind170334%_ + _%slots-bind170335%_ + _%specializer-impl170336%_) + (let ((__tmp171598 (cons '%#lambda - (cons (cons _%$klass171303%_ - (cons _%$method-table171304%_ + (cons (cons _%$klass170332%_ + (cons _%$method-table170333%_ '())) (cons (cons '%#let-values (cons (let () (declare (not safe)) (__foldr1 cons - _%slots-bind171306%_ - _%methods-bind171305%_)) - (cons _%specializer-impl171307%_ + _%slots-bind170335%_ + _%methods-bind170334%_)) + (cons _%specializer-impl170336%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp172569 _%stx168505%_)))) - (_%generate-specializer-def168510%_ - (lambda (_%id171299%_ - _%specializer-id171300%_ - _%specializer-impl171301%_) - (let ((__tmp172570 + (gxc#xform-wrap-source __tmp171598 _%stx167534%_)))) + (_%generate-specializer-def167539%_ + (lambda (_%id170328%_ + _%specializer-id170329%_ + _%specializer-impl170330%_) + (let ((__tmp171599 (cons '%#begin - (cons _%stx168505%_ - (cons (let ((__tmp172571 + (cons _%stx167534%_ + (cons (let ((__tmp171600 (cons '%#define-values - (cons (cons _%specializer-id171300%_ + (cons (cons _%specializer-id170329%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-impl171301%_ '()))))) + (cons _%specializer-impl170330%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp172571 - _%stx168505%_)) - (cons (let ((__tmp172572 + __tmp171600 + _%stx167534%_)) + (cons (let ((__tmp171601 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'bind-specializer! '())) - (cons (cons '%#ref (cons _%id171299%_ '())) + (cons (cons '%#ref (cons _%id170328%_ '())) (cons (cons '%#ref - (cons _%specializer-id171300%_ + (cons _%specializer-id170329%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp172572 - _%stx168505%_)) + __tmp171601 + _%stx167534%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp172570 _%stx168505%_))))) - (let* ((_%__stx171510171511%_ _%stx168505%_) - (_%g168513168533%_ + (gxc#xform-wrap-source __tmp171599 _%stx167534%_))))) + (let* ((_%__stx170539170540%_ _%stx167534%_) + (_%g167542167562%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx171510171511%_))))) - (let ((_%__kont171512171513%_ - (lambda (_%L168577%_ _%L168578%_) - (let ((_%method-calls168597%_ + _%__stx170539170540%_))))) + (let ((_%__kont170541170542%_ + (lambda (_%L167606%_ _%L167607%_) + (let ((_%method-calls167626%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%slot-refs168598%_ + (_%slot-refs167627%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%empty168599%_ + (_%empty167628%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (letrec ((_%no-specializer?168601%_ + (letrec ((_%no-specializer?167630%_ (lambda () (if (fxzero? (let () (declare (not safe)) (hash-length - _%method-calls168597%_))) + _%method-calls167626%_))) (fxzero? (let () (declare (not safe)) (hash-length - _%slot-refs168598%_))) + _%slot-refs167627%_))) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L168577%_)) - (let () - (let* ((_%__stx171424171425%_ _%L168577%_) - (_%g168989169007%_ - (lambda () - (let () - (declare (not safe)) - (gx#raise-syntax-error + (gxc#lambda-expr? _%L167606%_)) + (let* ((_%__stx170453170454%_ _%L167606%_) + (_%g168018168036%_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx170453170454%_))))) + (let ((_%__kont170455170456%_ + (lambda (_%L168072%_ + _%L168073%_ + _%L168074%_) + (for-each + (lambda (_%g168090168092%_) + (gxc#apply-collect-object-refs__% '#f - '"Bad syntax; invalid match target" - _%__stx171424171425%_))))) - (let ((_%__kont171426171427%_ - (lambda (_%L169043%_ - _%L169044%_ - _%L169045%_) - (for-each - (lambda (_%g169061169063%_) - (let () - (declare (not safe)) - (gxc#apply-collect-object-refs__% - '#f - _%L169045%_ - _%method-calls168597%_ - _%slot-refs168598%_ - _%g169061169063%_))) - _%L169043%_) - (if (let () - (declare (not safe)) - (_%no-specializer?168601%_)) - _%stx168505%_ - (let* ((_%specializer-id169072%_ - (let* ((_%id169066%_ - (let ((__tmp172573 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gx#stx-e _%L168578%_)))) - (declare (not safe)) - (make-symbol__1 __tmp172573 '"::specialize"))) - (_%specializer-id169069%_ - (let ((__tmp172574 - (let () - (declare (not safe)) - (gx#stx-source _%stx168505%_)))) - (declare (not safe)) - (gx#core-quote-syntax__1 _%id169066%_ __tmp172574)))) - (let () - (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id169069%_)) - _%specializer-id169069%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass169074%_ - (let ((__tmp172575 - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##gensym '__klass)))) - (declare (not safe)) - (make-symbol__0 __tmp172575))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table169076%_ - (let ((__tmp172576 - (let () - (declare + _%L168074%_ + _%method-calls167626%_ + _%slot-refs167627%_ + _%g168090168092%_)) + _%L168072%_) + (if (_%no-specializer?167630%_) + _%stx167534%_ + (let* ((_%specializer-id168101%_ + (let* ((_%id168095%_ + (let ((__tmp171602 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##gensym '__method-table)))) + (let () + (declare (not safe)) + (gx#stx-e _%L167607%_)))) + (declare (not safe)) + (make-symbol__1 __tmp171602 '"::specialize"))) + (_%specializer-id168098%_ + (let ((__tmp171603 + (let () + (declare (not safe)) + (gx#stx-source _%stx167534%_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 _%id168095%_ __tmp171603)))) + (let () (declare (not safe)) - (make-symbol__0 __tmp172576))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods169078%_ - (let () - (declare (not safe)) - (hash-keys - _%method-calls168597%_))) - (_%$methods169082%_ - (map (lambda (_%id169080%_) - (let ((__tmp172577 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id169080%_))) - (declare (not safe)) - (make-symbol__1 '"__" __tmp172577))) - _%methods169078%_)) + (gx#core-bind-runtime!__0 _%specializer-id168098%_)) + _%specializer-id168098%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_169091%_ - (for-each - (lambda (_%g169083169086%_ - _%g169084169088%_) - (let () - (declare (not safe)) - (hash-put! - _%method-calls168597%_ - _%g169083169086%_ - _%g169084169088%_))) - _%methods169078%_ - _%$methods169082%_)) - (_%methods-bind169101%_ - (map (lambda (_%g169093169096%_ + (_%$klass168103%_ + (let ((__tmp171604 + (let () + (declare + (not safe)) + (##gensym + '__klass)))) + (declare (not safe)) + (make-symbol__0 + __tmp171604))) + (_%$method-table168105%_ + (let ((__tmp171605 + (let () + (declare + (not safe)) + (##gensym + '__method-table)))) + (declare (not safe)) + (make-symbol__0 + __tmp171605))) + (_%methods168107%_ + (let () + (declare (not safe)) + (hash-keys + _%method-calls167626%_))) + (_%$methods168111%_ + (map (lambda (_%id168109%_) + (let ((__tmp171606 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g169094169098%_) - (let () - (declare (not safe)) - (_%generate-method-bind168507%_ - _%$klass169074%_ - _%$method-table169076%_ - _%g169093169096%_ - _%g169094169098%_))) - _%methods169078%_ - _%$methods169082%_)) + (gensym _%id168109%_))) + (declare (not safe)) + (make-symbol__1 '"__" __tmp171606))) + _%methods168107%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots169103%_ - (let () - (declare (not safe)) - (hash-keys - _%slot-refs168598%_))) - (_%$slots169107%_ - (map (lambda (_%id169105%_) - (let ((__tmp172578 + (_%_168120%_ + (for-each + (lambda (_%g168112168115%_ + _%g168113168117%_) + (let () + (declare (not safe)) + (hash-put! + _%method-calls167626%_ + _%g168112168115%_ + _%g168113168117%_))) + _%methods168107%_ + _%$methods168111%_)) + (_%methods-bind168130%_ + (map (lambda (_%g168122168125%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id169105%_))) - (declare (not safe)) - (make-symbol__1 '"__" __tmp172578))) - _%slots169103%_)) + _%g168123168127%_) + (_%generate-method-bind167536%_ + _%$klass168103%_ + _%$method-table168105%_ + _%g168122168125%_ + _%g168123168127%_)) + _%methods168107%_ + _%$methods168111%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_169116%_ - (for-each - (lambda (_%g169108169111%_ - _%g169109169113%_) - (let () - (declare (not safe)) - (hash-put! - _%slot-refs168598%_ - _%g169108169111%_ - _%g169109169113%_))) - _%slots169103%_ - _%$slots169107%_)) - (_%slots-bind169125%_ - (map (lambda (_%g169117169120%_ + (_%slots168132%_ + (let () + (declare (not safe)) + (hash-keys + _%slot-refs167627%_))) + (_%$slots168136%_ + (map (lambda (_%id168134%_) + (let ((__tmp171607 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g169118169122%_) - (let () - (declare (not safe)) - (_%generate-slot-bind168508%_ - _%$klass169074%_ - _%g169117169120%_ - _%g169118169122%_))) - _%slots169103%_ - _%$slots169107%_)) + (gensym _%id168134%_))) + (declare (not safe)) + (make-symbol__1 '"__" __tmp171607))) + _%slots168132%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-body169131%_ - (map (lambda (_%g169126169128%_) - (let () - (declare + (_%_168145%_ + (for-each + (lambda (_%g168137168140%_ + _%g168138168142%_) + (let () + (declare (not safe)) + (hash-put! + _%slot-refs167627%_ + _%g168137168140%_ + _%g168138168142%_))) + _%slots168132%_ + _%$slots168136%_)) + (_%slots-bind168154%_ + (map (lambda (_%g168146168149%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gxc#apply-subst-object-refs__% - '#f - _%L169045%_ - _%$klass169074%_ - _%method-calls168597%_ - _%slot-refs168598%_ - _%g169126169128%_))) - _%L169043%_)) + _%g168147168151%_) + (_%generate-slot-bind167537%_ + _%$klass168103%_ + _%g168146168149%_ + _%g168147168151%_)) + _%slots168132%_ + _%$slots168136%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl169133%_ - (let ((__tmp172579 - (cons '%#lambda + (_%specializer-body168160%_ + (map (lambda (_%g168155168157%_) + (gxc#apply-subst-object-refs__% + '#f + _%L168074%_ + _%$klass168103%_ + _%method-calls167626%_ + _%slot-refs167627%_ + _%g168155168157%_)) + _%L168072%_)) + (_%specializer-impl168162%_ + (let ((__tmp171608 + (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L169045%_ _%L169044%_) - _%specializer-body169131%_)))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp172579 _%stx168505%_))) + (cons (cons _%L168074%_ _%L168073%_) + _%specializer-body168160%_)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp171608 _%stx167534%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl169135%_ - (let () - (declare (not safe)) - (_%generate-specializer-impl168509%_ - _%$klass169074%_ - _%$method-table169076%_ - _%methods-bind169101%_ - _%slots-bind169125%_ - _%specializer-impl169133%_)))) - (let ((__tmp172581 - (let () - (declare (not safe)) - (gx#stx-e - _%L168578%_))) - (__tmp172580 - (let () - (declare (not safe)) - (gx#stx-e - _%specializer-id169072%_)))) - (declare (not safe)) - (gxc#verbose - '"generate method specializer " - __tmp172581 - '" => " - __tmp172580)) - (let () - (declare (not safe)) - (_%generate-specializer-def168510%_ - _%L168578%_ - _%specializer-id169072%_ - _%specializer-impl169135%_)))))) - (_%__kont171428171429%_ - (lambda () _%stx168505%_))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%__stx171424171425%_)) - (let ((_%e168996169019%_ + (_%specializer-impl168164%_ + (_%generate-specializer-impl167538%_ + _%$klass168103%_ + _%$method-table168105%_ + _%methods-bind168130%_ + _%slots-bind168154%_ + _%specializer-impl168162%_))) + (let ((__tmp171610 + (let () + (declare (not safe)) + (gx#stx-e _%L167607%_))) + (__tmp171609 + (let () + (declare (not safe)) + (gx#stx-e + _%specializer-id168101%_)))) + (declare (not safe)) + (gxc#verbose + '"generate method specializer " + __tmp171610 + '" => " + __tmp171609)) + (_%generate-specializer-def167539%_ + _%L167607%_ + _%specializer-id168101%_ + _%specializer-impl168164%_))))) + (_%__kont170457170458%_ + (lambda () _%stx167534%_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%__stx170453170454%_)) + (let ((_%e168025168048%_ + (let () + (declare (not safe)) + (gx#stx-e + _%__stx170453170454%_)))) + (let ((_%tl168023168053%_ (let () (declare (not safe)) - (gx#stx-e - _%__stx171424171425%_)))) - (let ((_%tl168994169024%_ - (let () - (declare (not safe)) - (##cdr _%e168996169019%_))) - (_%hd168995169022%_ - (let () - (declare (not safe)) - (##car _%e168996169019%_)))) + (##cdr _%e168025168048%_))) + (_%hd168024168051%_ + (let () + (declare (not safe)) + (##car _%e168025168048%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl168023168053%_)) + (let ((_%e168028168056%_ + (let () + (declare (not safe)) + (gx#stx-e + _%tl168023168053%_)))) + (let ((_%tl168026168061%_ + (let () + (declare (not safe)) + (##cdr _%e168028168056%_))) + (_%hd168027168059%_ + (let () + (declare (not safe)) + (##car _%e168028168056%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%hd168027168059%_)) + (let ((_%e168031168064%_ + (let () + (declare + (not safe)) + (gx#stx-e + _%hd168027168059%_)))) + (let ((_%tl168029168069%_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _%e168031168064%_))) + (_%hd168030168067%_ + (let () (declare (not safe)) (##car _%e168031168064%_)))) + (_%__kont170455170456%_ + _%tl168026168061%_ + _%tl168029168069%_ + _%hd168030168067%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont170457170458%_)))) + (_%__kont170457170458%_)))) + (_%__kont170457170458%_)))) + (if (let () + (declare (not safe)) + (gxc#case-lambda-expr? _%L167606%_)) + (let* ((_%g168171168190%_ + (lambda (_%g168172168187%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g168172168187%_)))) + (_%g168170168477%_ + (lambda (_%g168172168193%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168994169024%_)) - (let ((_%e168999169027%_ + _%g168172168193%_)) + (let ((_%e168176168195%_ (let () (declare (not safe)) (gx#stx-e - _%tl168994169024%_)))) - (let ((_%tl168997169032%_ + _%g168172168193%_)))) + (let ((_%hd168175168198%_ (let () (declare (not safe)) - (##cdr _%e168999169027%_))) - (_%hd168998169030%_ + (##car _%e168176168195%_))) + (_%tl168174168200%_ (let () (declare (not safe)) - (##car _%e168999169027%_)))) + (##cdr _%e168176168195%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? - _%hd168998169030%_)) - (let ((_%e169002169035%_ + (gx#stx-pair/null? + _%tl168174168200%_)) + (let ((_g171611_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd168998169030%_)))) - (let ((_%tl169000169040%_ - (let () - (declare (not safe)) - (##cdr _%e169002169035%_))) - (_%hd169001169038%_ - (let () - (declare (not safe)) - (##car _%e169002169035%_)))) - (_%__kont171426171427%_ - _%tl168997169032%_ - _%tl169000169040%_ - _%hd169001169038%_))) - (_%__kont171428171429%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont171428171429%_)))) - (_%__kont171428171429%_))))) - (if (let () - (declare (not safe)) - (gxc#case-lambda-expr? _%L168577%_)) - (let () - (let* ((_%g169142169161%_ - (lambda (_%g169143169158%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g169143169158%_)))) - (_%g169141169448%_ - (lambda (_%g169143169164%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%g169143169164%_)) - (let ((_%e169147169166%_ - (let () - (declare (not safe)) - (gx#stx-e - _%g169143169164%_)))) - (let ((_%hd169146169169%_ - (let () - (declare - (not safe)) - (##car _%e169147169166%_))) - (_%tl169145169171%_ - (let () - (declare - (not safe)) - (##cdr _%e169147169166%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair/null? - _%tl169145169171%_)) - (let ((_g172582_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#syntax-split-splice _%tl169145169171%_ '0)))) - (begin - (let ((_g172583_ - (let () - (declare (not safe)) - (if (##values? _g172582_) - (##vector-length _g172582_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g172583_ 2))) - (error "Context expects 2 values" _g172583_))) - (let ((_%target169148169174%_ - (let () - (declare (not safe)) - (##vector-ref _g172582_ 0))) - (_%tl169150169176%_ - (let () - (declare (not safe)) - (##vector-ref _g172582_ 1)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl169150169176%_)) - (letrec ((_%loop169151169179%_ - (lambda (_%hd169149169182%_ - _%clause169155169184%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd169149169182%_)) - (let ((_%e169152169187%_ + (gx#syntax-split-splice _%tl168174168200%_ '0)))) + (begin + (let ((_g171612_ + (let () + (declare (not safe)) + (if (##values? _g171611_) + (##vector-length _g171611_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g171612_ 2))) + (error "Context expects 2 values" _g171612_))) + (let ((_%target168177168203%_ + (let () + (declare (not safe)) + (##vector-ref _g171611_ 0))) + (_%tl168179168205%_ + (let () + (declare (not safe)) + (##vector-ref _g171611_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl168179168205%_)) + (letrec ((_%loop168180168208%_ + (lambda (_%hd168178168211%_ + _%clause168184168213%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd168178168211%_)) + (let ((_%e168181168216%_ + (let () + (declare (not safe)) + (gx#stx-e + _%hd168178168211%_)))) + (let ((_%lp-hd168182168219%_ (let () (declare (not safe)) - (gx#stx-e - _%hd169149169182%_)))) - (let ((_%lp-hd169153169190%_ - (let () - (declare (not safe)) - (##car _%e169152169187%_))) - (_%lp-tl169154169192%_ - (let () - (declare (not safe)) - (##cdr _%e169152169187%_)))) - (let ((__tmp172584 - (cons _%lp-hd169153169190%_ - _%clause169155169184%_))) - (declare (not safe)) - (_%loop169151169179%_ - _%lp-tl169154169192%_ - __tmp172584)))) - (let ((_%clause169156169195%_ - (reverse _%clause169155169184%_))) - ((lambda (_%L169198%_) - (for-each - (lambda (_%clause169212%_) - (let* ((_%__stx171450171451%_ - _%clause169212%_) - (_%g169215169230%_ - (lambda () - (let () - (declare + (##car _%e168181168216%_))) + (_%lp-tl168183168221%_ + (let () + (declare (not safe)) + (##cdr _%e168181168216%_)))) + (_%loop168180168208%_ + _%lp-tl168183168221%_ + (cons _%lp-hd168182168219%_ + _%clause168184168213%_)))) + (let ((_%clause168185168224%_ + (reverse _%clause168184168213%_))) + ((lambda (_%L168227%_) + (for-each + (lambda (_%clause168241%_) + (let* ((_%__stx170479170480%_ + _%clause168241%_) + (_%g168244168259%_ + (lambda () + (let () + (declare + (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx170479170480%_))))) + (let ((_%__kont170481170482%_ + (lambda (_%L168287%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gx#raise-syntax-error + _%L168288%_ + _%L168289%_) + (for-each + (lambda (_%g168304168306%_) + (gxc#apply-collect-object-refs__% '#f - '"Bad syntax; invalid match target" - _%__stx171450171451%_))))) + _%L168289%_ + _%method-calls167626%_ + _%slot-refs167627%_ + _%g168304168306%_)) + _%L168287%_))) + (_%__kont170483170484%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__kont171452171453%_ - (lambda (_%L169258%_ + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%__stx170479170480%_)) + (let ((_%e168251168271%_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L169259%_ - _%L169260%_) - (for-each - (lambda (_%g169275169277%_) - (let () - (declare (not safe)) - (gxc#apply-collect-object-refs__% - '#f - _%L169260%_ - _%method-calls168597%_ - _%slot-refs168598%_ - _%g169275169277%_))) - _%L169258%_))) - (_%__kont171454171455%_ (lambda () '#!void))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%__stx171450171451%_)) - (let ((_%e169222169242%_ + (declare (not safe)) + (gx#stx-e _%__stx170479170480%_)))) + (let ((_%tl168249168276%_ (let () (declare (not safe)) - (gx#stx-e _%__stx171450171451%_)))) - (let ((_%tl169220169247%_ - (let () - (declare (not safe)) - (##cdr _%e169222169242%_))) - (_%hd169221169245%_ - (let () - (declare (not safe)) - (##car _%e169222169242%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd169221169245%_)) - (let ((_%e169225169250%_ + (##cdr _%e168251168271%_))) + (_%hd168250168274%_ + (let () + (declare (not safe)) + (##car _%e168251168271%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd168250168274%_)) + (let ((_%e168254168279%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd168250168274%_)))) + (let ((_%tl168252168284%_ (let () (declare (not safe)) - (gx#stx-e _%hd169221169245%_)))) - (let ((_%tl169223169255%_ - (let () - (declare (not safe)) - (##cdr _%e169225169250%_))) - (_%hd169224169253%_ - (let () - (declare (not safe)) - (##car _%e169225169250%_)))) - (_%__kont171452171453%_ - _%tl169220169247%_ - _%tl169223169255%_ - _%hd169224169253%_))) - (_%__kont171454171455%_)))) - (_%__kont171454171455%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp172585 - (lambda (_%g169282169285%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g169283169287%_) - (cons _%g169282169285%_ _%g169283169287%_)))) + (##cdr _%e168254168279%_))) + (_%hd168253168282%_ + (let () + (declare (not safe)) + (##car _%e168254168279%_)))) + (_%__kont170481170482%_ + _%tl168249168276%_ + _%tl168252168284%_ + _%hd168253168282%_))) + (_%__kont170483170484%_)))) + (_%__kont170483170484%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr1 - __tmp172585 - '() - _%L169198%_))) - (if (let () - (declare (not safe)) - (_%no-specializer?168601%_)) - _%stx168505%_ - (let* ((_%specializer-id169296%_ - (let* ((_%id169290%_ + (let ((__tmp171613 + (lambda (_%g168311168314%_ + _%g168312168316%_) + (cons _%g168311168314%_ + _%g168312168316%_)))) + (declare (not safe)) + (__foldr1 + __tmp171613 + '() + _%L168227%_))) + (if (_%no-specializer?167630%_) + _%stx167534%_ + (let* ((_%specializer-id168325%_ + (let* ((_%id168319%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp172586 - (let () - (declare (not safe)) - (gx#stx-e _%L168578%_)))) - (declare (not safe)) - (make-symbol__1 __tmp172586 '"::specialize"))) - (_%specializer-id169293%_ - (let ((__tmp172587 - (let () - (declare (not safe)) - (gx#stx-source _%stx168505%_)))) - (declare (not safe)) - (gx#core-quote-syntax__1 - _%id169290%_ - __tmp172587)))) - (let () - (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id169293%_)) - _%specializer-id169293%_)) - (_%$klass169298%_ - (let ((__tmp172588 - (let () (declare (not safe)) (##gensym '__klass)))) + (let ((__tmp171614 + (let () + (declare (not safe)) + (gx#stx-e _%L167607%_)))) + (declare (not safe)) + (make-symbol__1 __tmp171614 '"::specialize"))) + (_%specializer-id168322%_ + (let ((__tmp171615 + (let () + (declare (not safe)) + (gx#stx-source _%stx167534%_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 + _%id168319%_ + __tmp171615)))) + (let () (declare (not safe)) - (make-symbol__0 __tmp172588))) - (_%$method-table169300%_ - (let ((__tmp172589 - (let () - (declare (not safe)) - (##gensym '__method-table)))) - (declare (not safe)) - (make-symbol__0 __tmp172589))) - (_%methods169302%_ - (let () - (declare (not safe)) - (hash-keys _%method-calls168597%_))) - (_%$methods169306%_ - (map (lambda (_%id169304%_) - (let ((__tmp172590 (gensym _%id169304%_))) - (declare (not safe)) - (make-symbol__1 '"__" __tmp172590))) - _%methods169302%_)) - (_%_169315%_ - (for-each - (lambda (_%g169307169310%_ _%g169308169312%_) - (let () - (declare (not safe)) - (hash-put! - _%method-calls168597%_ - _%g169307169310%_ - _%g169308169312%_))) - _%methods169302%_ - _%$methods169306%_)) - (_%methods-bind169325%_ - (map (lambda (_%g169317169320%_ _%g169318169322%_) - (let () - (declare (not safe)) - (_%generate-method-bind168507%_ - _%$klass169298%_ - _%$method-table169300%_ - _%g169317169320%_ - _%g169318169322%_))) - _%methods169302%_ - _%$methods169306%_)) - (_%slots169327%_ - (let () - (declare (not safe)) - (hash-keys _%slot-refs168598%_))) - (_%$slots169331%_ - (map (lambda (_%id169329%_) - (let ((__tmp172591 (gensym _%id169329%_))) - (declare (not safe)) - (make-symbol__1 '"__" __tmp172591))) - _%slots169327%_)) - (_%_169340%_ - (for-each - (lambda (_%g169332169335%_ _%g169333169337%_) - (let () + (gx#core-bind-runtime!__0 _%specializer-id168322%_)) + _%specializer-id168322%_)) + (_%$klass168327%_ + (let ((__tmp171616 + (let () (declare (not safe)) (##gensym '__klass)))) + (declare (not safe)) + (make-symbol__0 __tmp171616))) + (_%$method-table168329%_ + (let ((__tmp171617 + (let () + (declare (not safe)) + (##gensym '__method-table)))) + (declare (not safe)) + (make-symbol__0 __tmp171617))) + (_%methods168331%_ + (let () + (declare (not safe)) + (hash-keys _%method-calls167626%_))) + (_%$methods168335%_ + (map (lambda (_%id168333%_) + (let ((__tmp171618 (gensym _%id168333%_))) + (declare (not safe)) + (make-symbol__1 '"__" __tmp171618))) + _%methods168331%_)) + (_%_168344%_ + (for-each + (lambda (_%g168336168339%_ _%g168337168341%_) + (let () + (declare (not safe)) + (hash-put! + _%method-calls167626%_ + _%g168336168339%_ + _%g168337168341%_))) + _%methods168331%_ + _%$methods168335%_)) + (_%methods-bind168354%_ + (map (lambda (_%g168346168349%_ _%g168347168351%_) + (_%generate-method-bind167536%_ + _%$klass168327%_ + _%$method-table168329%_ + _%g168346168349%_ + _%g168347168351%_)) + _%methods168331%_ + _%$methods168335%_)) + (_%slots168356%_ + (let () + (declare (not safe)) + (hash-keys _%slot-refs167627%_))) + (_%$slots168360%_ + (map (lambda (_%id168358%_) + (let ((__tmp171619 (gensym _%id168358%_))) + (declare (not safe)) + (make-symbol__1 '"__" __tmp171619))) + _%slots168356%_)) + (_%_168369%_ + (for-each + (lambda (_%g168361168364%_ _%g168362168366%_) + (let () + (declare (not safe)) + (hash-put! + _%slot-refs167627%_ + _%g168361168364%_ + _%g168362168366%_))) + _%slots168356%_ + _%$slots168360%_)) + (_%slots-bind168378%_ + (map (lambda (_%g168370168373%_ _%g168371168375%_) + (_%generate-slot-bind167537%_ + _%$klass168327%_ + _%g168370168373%_ + _%g168371168375%_)) + _%slots168356%_ + _%$slots168360%_)) + (_%specializer-clauses168470%_ + (map (lambda (_%clause168380%_) + (let* ((_%__stx170499170500%_ _%clause168380%_) + (_%g168383168398%_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx170499170500%_))))) + (let ((_%__kont170501170502%_ + (lambda (_%L168426%_ _%L168427%_ _%L168428%_) + (let ((_%body168458%_ + (map (lambda (_%g168453168455%_) + (gxc#apply-subst-object-refs__% + '#f + _%L168428%_ + _%$klass168327%_ + _%method-calls167626%_ + _%slot-refs167627%_ + _%g168453168455%_)) + _%L168426%_))) + (cons (cons _%L168428%_ _%L168427%_) + _%body168458%_)))) + (_%__kont170503170504%_ + (lambda () _%clause168380%_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%__stx170499170500%_)) + (let ((_%e168390168410%_ + (let () + (declare (not safe)) + (gx#stx-e _%__stx170499170500%_)))) + (let ((_%tl168388168415%_ + (let () + (declare (not safe)) + (##cdr _%e168390168410%_))) + (_%hd168389168413%_ + (let () + (declare (not safe)) + (##car _%e168390168410%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd168389168413%_)) + (let ((_%e168393168418%_ + (let () + (declare (not safe)) + (gx#stx-e + _%hd168389168413%_)))) + (let ((_%tl168391168423%_ + (let () + (declare (not safe)) + (##cdr _%e168393168418%_))) + (_%hd168392168421%_ + (let () + (declare (not safe)) + (##car _%e168393168418%_)))) + (_%__kont170501170502%_ + _%tl168388168415%_ + _%tl168391168423%_ + _%hd168392168421%_))) + (_%__kont170503170504%_)))) + (_%__kont170503170504%_))))) + (let ((__tmp171620 + (lambda (_%g168462168465%_ _%g168463168467%_) + (cons _%g168462168465%_ _%g168463168467%_)))) (declare (not safe)) - (hash-put! - _%slot-refs168598%_ - _%g169332169335%_ - _%g169333169337%_))) - _%slots169327%_ - _%$slots169331%_)) - (_%slots-bind169349%_ - (map (lambda (_%g169341169344%_ _%g169342169346%_) - (let () - (declare (not safe)) - (_%generate-slot-bind168508%_ - _%$klass169298%_ - _%g169341169344%_ - _%g169342169346%_))) - _%slots169327%_ - _%$slots169331%_)) - (_%specializer-clauses169441%_ - (map (lambda (_%clause169351%_) - (let* ((_%__stx171470171471%_ _%clause169351%_) - (_%g169354169369%_ - (lambda () - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx171470171471%_))))) - (let ((_%__kont171472171473%_ - (lambda (_%L169397%_ - _%L169398%_ - _%L169399%_) - (let ((_%body169429%_ - (map (lambda (_%g169424169426%_) - (let () + (__foldr1 __tmp171620 '() _%L168227%_)))) + (_%specializer-impl168472%_ + (let ((__tmp171621 + (cons '%#case-lambda _%specializer-clauses168470%_))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp171621 _%stx167534%_))) + (_%specializer-impl168474%_ + (_%generate-specializer-impl167538%_ + _%$klass168327%_ + _%$method-table168329%_ + _%methods-bind168354%_ + _%slots-bind168378%_ + _%specializer-impl168472%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp171623 + (let () + (declare + (not safe)) + (gx#stx-e + _%L167607%_))) + (__tmp171622 + (let () + (declare + (not safe)) + (gx#stx-e + _%specializer-id168325%_)))) (declare (not safe)) - (gxc#apply-subst-object-refs__% - '#f - _%L169399%_ - _%$klass169298%_ - _%method-calls168597%_ - _%slot-refs168598%_ - _%g169424169426%_))) - _%L169397%_))) - (cons (cons _%L169399%_ _%L169398%_) - _%body169429%_)))) - (_%__kont171474171475%_ - (lambda () _%clause169351%_))) + (gxc#verbose + '"generate method specializer " + __tmp171623 + '" => " + __tmp171622)) + (_%generate-specializer-def167539%_ + _%L167607%_ + _%specializer-id168325%_ + _%specializer-impl168474%_)))) + _%clause168185168224%_)))))) + (_%loop168180168208%_ _%target168177168203%_ '())) + (_%g168171168190%_ _%g168172168193%_))))) + (_%g168171168190%_ _%g168172168193%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g168171168190%_ + _%g168172168193%_))))) + (_%g168170168477%_ _%L167606%_)) + (if (let () + (declare (not safe)) + (gxc#opt-lambda-expr? _%L167606%_)) + (let* ((_%g168481168511%_ + (lambda (_%g168482168508%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g168482168508%_)))) + (_%g168480169120%_ + (lambda (_%g168482168514%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%g168482168514%_)) + (let ((_%e168488168516%_ + (let () + (declare + (not safe)) + (gx#stx-e + _%g168482168514%_)))) + (let ((_%hd168487168519%_ + (let () + (declare + (not safe)) + (##car _%e168488168516%_))) + (_%tl168486168521%_ + (let () + (declare + (not safe)) + (##cdr _%e168488168516%_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _%tl168486168521%_)) + (let ((_%e168491168524%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _%tl168486168521%_)))) + (let ((_%hd168490168527%_ + (let () + (declare (not safe)) + (##car _%e168491168524%_))) + (_%tl168489168529%_ + (let () + (declare (not safe)) + (##cdr _%e168491168524%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd168490168527%_)) + (let ((_%e168494168532%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd168490168527%_)))) + (let ((_%hd168493168535%_ + (let () + (declare (not safe)) + (##car _%e168494168532%_))) + (_%tl168492168537%_ + (let () + (declare (not safe)) + (##cdr _%e168494168532%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx171470171471%_)) - (let ((_%e169361169381%_ + (gx#stx-pair? _%hd168493168535%_)) + (let ((_%e168497168540%_ (let () (declare (not safe)) - (gx#stx-e _%__stx171470171471%_)))) - (let ((_%tl169359169386%_ + (gx#stx-e _%hd168493168535%_)))) + (let ((_%hd168496168543%_ (let () (declare (not safe)) - (##cdr _%e169361169381%_))) - (_%hd169360169384%_ + (##car _%e168497168540%_))) + (_%tl168495168545%_ (let () (declare (not safe)) - (##car _%e169361169381%_)))) + (##cdr _%e168497168540%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd169360169384%_)) - (let ((_%e169364169389%_ + (gx#stx-pair? _%hd168496168543%_)) + (let ((_%e168500168548%_ (let () (declare (not safe)) (gx#stx-e - _%hd169360169384%_)))) - (let ((_%tl169362169394%_ + _%hd168496168543%_)))) + (let ((_%hd168499168551%_ (let () (declare (not safe)) - (##cdr _%e169364169389%_))) - (_%hd169363169392%_ + (##car _%e168500168548%_))) + (_%tl168498168553%_ (let () (declare (not safe)) - (##car _%e169364169389%_)))) - (_%__kont171472171473%_ - _%tl169359169386%_ - _%tl169362169394%_ - _%hd169363169392%_))) - (_%__kont171474171475%_)))) - (_%__kont171474171475%_))))) - (let ((__tmp172592 - (lambda (_%g169433169436%_ _%g169434169438%_) - (cons _%g169433169436%_ _%g169434169438%_)))) - (declare (not safe)) - (__foldr1 __tmp172592 '() _%L169198%_)))) - (_%specializer-impl169443%_ - (let ((__tmp172593 - (cons '%#case-lambda - _%specializer-clauses169441%_))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp172593 _%stx168505%_))) - (_%specializer-impl169445%_ - (let () - (declare (not safe)) - (_%generate-specializer-impl168509%_ - _%$klass169298%_ - _%$method-table169300%_ - _%methods-bind169325%_ - _%slots-bind169349%_ - _%specializer-impl169443%_)))) - (let ((__tmp172595 - (let () (declare (not safe)) (gx#stx-e _%L168578%_))) - (__tmp172594 - (let () - (declare (not safe)) - (gx#stx-e _%specializer-id169296%_)))) - (declare (not safe)) - (gxc#verbose - '"generate method specializer " - __tmp172595 - '" => " - __tmp172594)) - (let () - (declare (not safe)) - (_%generate-specializer-def168510%_ - _%L168578%_ - _%specializer-id169296%_ - _%specializer-impl169445%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause169156169195%_)))))) - (let () - (declare (not safe)) - (_%loop169151169179%_ - _%target169148169174%_ - '()))) - (let () - (declare (not safe)) - (_%g169142169161%_ _%g169143169164%_)))))) - (let () - (declare (not safe)) - (_%g169142169161%_ _%g169143169164%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g169142169161%_ - _%g169143169164%_)))))) - (declare (not safe)) - (_%g169141169448%_ _%L168577%_))) - (if (let () - (declare (not safe)) - (gxc#opt-lambda-expr? _%L168577%_)) - (let () - (let* ((_%g169452169482%_ - (lambda (_%g169453169479%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g169453169479%_)))) - (_%g169451170091%_ - (lambda (_%g169453169485%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%g169453169485%_)) - (let ((_%e169459169487%_ - (let () - (declare - (not safe)) - (gx#stx-e - _%g169453169485%_)))) - (let ((_%hd169458169490%_ + (##cdr _%e168500168548%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _%tl168498168553%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl168495168545%_)) + (let ((_%e168503168556%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e169459169487%_))) - (_%tl169457169492%_ - (let () (declare (not safe)) (##cdr _%e169459169487%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl169457169492%_)) - (let ((_%e169462169495%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl169457169492%_)))) - (let ((_%hd169461169498%_ - (let () - (declare (not safe)) - (##car _%e169462169495%_))) - (_%tl169460169500%_ - (let () - (declare (not safe)) - (##cdr _%e169462169495%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd169461169498%_)) - (let ((_%e169465169503%_ - (let () - (declare (not safe)) - (gx#stx-e _%hd169461169498%_)))) - (let ((_%hd169464169506%_ - (let () - (declare (not safe)) - (##car _%e169465169503%_))) - (_%tl169463169508%_ + (gx#stx-e _%tl168495168545%_)))) + (let ((_%hd168502168559%_ + (let () + (declare (not safe)) + (##car _%e168503168556%_))) + (_%tl168501168561%_ + (let () + (declare (not safe)) + (##cdr _%e168503168556%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl168501168561%_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl168492168537%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl168489168529%_)) + (let ((_%e168506168564%_ (let () (declare (not safe)) - (##cdr _%e169465169503%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd169464169506%_)) - (let ((_%e169468169511%_ - (let () - (declare (not safe)) - (gx#stx-e _%hd169464169506%_)))) - (let ((_%hd169467169514%_ - (let () - (declare (not safe)) - (##car _%e169468169511%_))) - (_%tl169466169516%_ - (let () - (declare (not safe)) - (##cdr _%e169468169511%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%hd169467169514%_)) - (let ((_%e169471169519%_ + (gx#stx-e _%tl168489168529%_)))) + (let ((_%hd168505168567%_ + (let () + (declare (not safe)) + (##car _%e168506168564%_))) + (_%tl168504168569%_ + (let () + (declare (not safe)) + (##cdr _%e168506168564%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl168504168569%_)) + ((lambda (_%L168572%_ + _%L168573%_ + _%L168574%_) + (let* ((_%g168598168616%_ + (lambda (_%g168599168613%_) (let () (declare (not safe)) - (gx#stx-e - _%hd169467169514%_)))) - (let ((_%hd169470169522%_ - (let () - (declare (not safe)) - (##car _%e169471169519%_))) - (_%tl169469169524%_ - (let () - (declare (not safe)) - (##cdr _%e169471169519%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl169469169524%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl169466169516%_)) - (let ((_%e169474169527%_ - (let () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g168599168613%_)))) + (_%g168597168667%_ + (lambda (_%g168599168619%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%g168599168619%_)) + (let ((_%e168605168621%_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#stx-e _%tl169466169516%_)))) - (let ((_%hd169473169530%_ - (let () - (declare (not safe)) - (##car _%e169474169527%_))) - (_%tl169472169532%_ - (let () - (declare (not safe)) - (##cdr _%e169474169527%_)))) - (if (let () + (declare (not safe)) + (gx#stx-e _%g168599168619%_)))) + (let ((_%hd168604168624%_ + (let () (declare (not safe)) - (gx#stx-null? _%tl169472169532%_)) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl169463169508%_)) - (if (let () + (##car _%e168605168621%_))) + (_%tl168603168626%_ + (let () + (declare (not safe)) + (##cdr _%e168605168621%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl168603168626%_)) + (let ((_%e168608168629%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl168603168626%_)))) + (let ((_%hd168607168632%_ + (let () (declare (not safe)) - (gx#stx-pair? _%tl169460169500%_)) - (let ((_%e169477169535%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl169460169500%_)))) - (let ((_%hd169476169538%_ - (let () - (declare (not safe)) - (##car _%e169477169535%_))) - (_%tl169475169540%_ - (let () - (declare (not safe)) - (##cdr _%e169477169535%_)))) - (if (let () + (##car _%e168608168629%_))) + (_%tl168606168634%_ + (let () + (declare (not safe)) + (##cdr _%e168608168629%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd168607168632%_)) + (let ((_%e168611168637%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd168607168632%_)))) + (let ((_%hd168610168640%_ + (let () (declare (not safe)) - (gx#stx-null? _%tl169475169540%_)) - ((lambda (_%L169543%_ - _%L169544%_ - _%L169545%_) - (let* ((_%g169569169587%_ - (lambda (_%g169570169584%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g169570169584%_)))) - (_%g169568169638%_ - (lambda (_%g169570169590%_) - (if (let () - (declare - (not safe)) - (gx#stx-pair? - _%g169570169590%_)) - (let ((_%e169576169592%_ + (##car _%e168611168637%_))) + (_%tl168609168642%_ + (let () + (declare (not safe)) + (##cdr _%e168611168637%_)))) + ((lambda (_%L168645%_ + _%L168646%_ + _%L168647%_) + (for-each + (lambda (_%g168662168664%_) + (gxc#apply-collect-object-refs__% + '#f + _%L168647%_ + _%method-calls167626%_ + _%slot-refs167627%_ + _%g168662168664%_)) + _%L168645%_)) + _%tl168606168634%_ + _%tl168609168642%_ + _%hd168610168640%_))) + (_%g168598168616%_ _%g168599168619%_)))) + (_%g168598168616%_ _%g168599168619%_)))) + (_%g168598168616%_ _%g168599168619%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g168597168667%_ _%L168573%_)) + (let* ((_%g168670168689%_ + (lambda (_%g168671168686%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g168671168686%_)))) + (_%g168669168808%_ + (lambda (_%g168671168692%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%g168671168692%_)) + (let ((_%e168675168694%_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _%g168671168692%_)))) + (let ((_%hd168674168697%_ (let () (declare (not safe)) - (gx#stx-e _%g169570169590%_)))) - (let ((_%hd169575169595%_ - (let () - (declare (not safe)) - (##car _%e169576169592%_))) - (_%tl169574169597%_ - (let () - (declare (not safe)) - (##cdr _%e169576169592%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl169574169597%_)) - (let ((_%e169579169600%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl169574169597%_)))) - (let ((_%hd169578169603%_ + (##car _%e168675168694%_))) + (_%tl168673168699%_ + (let () + (declare (not safe)) + (##cdr _%e168675168694%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _%tl168673168699%_)) + (let ((_g171624_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _%tl168673168699%_ + '0)))) + (begin + (let ((_g171625_ (let () (declare (not safe)) - (##car _%e169579169600%_))) - (_%tl169577169605%_ + (if (##values? _g171624_) + (##vector-length _g171624_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g171625_ 2))) + (error "Context expects 2 values" + _g171625_))) + (let ((_%target168676168702%_ (let () (declare (not safe)) - (##cdr _%e169579169600%_)))) + (##vector-ref _g171624_ 0))) + (_%tl168678168704%_ + (let () + (declare (not safe)) + (##vector-ref _g171624_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd169578169603%_)) - (let ((_%e169582169608%_ + (gx#stx-null? _%tl168678168704%_)) + (letrec ((_%loop168679168707%_ + (lambda (_%hd168677168710%_ + _%clause168683168712%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%hd168677168710%_)) + (let ((_%e168680168715%_ + (let () + (declare (not safe)) + (gx#stx-e + _%hd168677168710%_)))) + (let ((_%lp-hd168681168718%_ + (let () + (declare + (not safe)) + (##car _%e168680168715%_))) + (_%lp-tl168682168720%_ + (let () + (declare + (not safe)) + (##cdr _%e168680168715%_)))) + (_%loop168679168707%_ + _%lp-tl168682168720%_ + (cons _%lp-hd168681168718%_ + _%clause168683168712%_)))) + (let ((_%clause168684168723%_ + (reverse _%clause168683168712%_))) + ((lambda (_%L168726%_) + (for-each + (lambda (_%clause168739%_) + (let* ((_%g168741168756%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g168742168753%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g168742168753%_)))) + (_%g168740168798%_ + (lambda (_%g168742168759%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%g168742168759%_)) + (let ((_%e168748168761%_ + (let () + (declare (not safe)) + (gx#stx-e _%g168742168759%_)))) + (let ((_%hd168747168764%_ (let () (declare (not safe)) - (gx#stx-e _%hd169578169603%_)))) - (let ((_%hd169581169611%_ - (let () - (declare (not safe)) - (##car _%e169582169608%_))) - (_%tl169580169613%_ - (let () - (declare (not safe)) - (##cdr _%e169582169608%_)))) - ((lambda (_%L169616%_ - _%L169617%_ - _%L169618%_) - (for-each - (lambda (_%g169633169635%_) - (let () - (declare (not safe)) - (gxc#apply-collect-object-refs__% - '#f - _%L169618%_ - _%method-calls168597%_ - _%slot-refs168598%_ - _%g169633169635%_))) - _%L169616%_)) - _%tl169577169605%_ - _%tl169580169613%_ - _%hd169581169611%_))) - (let () - (declare (not safe)) - (_%g169569169587%_ _%g169570169590%_))))) - (let () - (declare (not safe)) - (_%g169569169587%_ _%g169570169590%_))))) - (let () - (declare (not safe)) - (_%g169569169587%_ _%g169570169590%_)))))) + (##car _%e168748168761%_))) + (_%tl168746168766%_ + (let () + (declare (not safe)) + (##cdr _%e168748168761%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd168747168764%_)) + (let ((_%e168751168769%_ + (let () + (declare (not safe)) + (gx#stx-e + _%hd168747168764%_)))) + (let ((_%hd168750168772%_ + (let () + (declare (not safe)) + (##car _%e168751168769%_))) + (_%tl168749168774%_ + (let () + (declare (not safe)) + (##cdr _%e168751168769%_)))) + ((lambda (_%L168777%_ + _%L168778%_ + _%L168779%_) + (for-each + (lambda (_%g168793168795%_) + (gxc#apply-collect-object-refs__% + '#f + _%L168779%_ + _%method-calls167626%_ + _%slot-refs167627%_ + _%g168793168795%_)) + _%L168777%_)) + _%tl168746168766%_ + _%tl168749168774%_ + _%hd168750168772%_))) + (_%g168741168756%_ + _%g168742168759%_)))) + (_%g168741168756%_ _%g168742168759%_))))) + (_%g168740168798%_ _%clause168739%_))) + (let ((__tmp171626 + (lambda (_%g168800168803%_ _%g168801168805%_) + (cons _%g168800168803%_ _%g168801168805%_)))) + (declare (not safe)) + (__foldr1 __tmp171626 '() _%L168726%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g169568169638%_ _%L169544%_)) - (let* ((_%g169641169660%_ - (lambda (_%g169642169657%_) + _%clause168684168723%_)))))) + (_%loop168679168707%_ + _%target168676168702%_ + '())) + (_%g168670168689%_ _%g168671168692%_))))) + (_%g168670168689%_ _%g168671168692%_)))) + (_%g168670168689%_ _%g168671168692%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g168669168808%_ _%L168572%_)) + (if (_%no-specializer?167630%_) + _%stx167534%_ + (let* ((_%specializer-id168817%_ + (let* ((_%id168811%_ + (let ((__tmp171627 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _%L167607%_)))) + (declare (not safe)) + (make-symbol__1 __tmp171627 '"::specialize"))) + (_%specializer-id168814%_ + (let ((__tmp171628 + (let () + (declare (not safe)) + (gx#stx-source _%stx167534%_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 _%id168811%_ __tmp171628)))) + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 _%specializer-id168814%_)) + _%specializer-id168814%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%$klass168819%_ + (let ((__tmp171629 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##gensym '__klass)))) + (declare (not safe)) + (make-symbol__0 __tmp171629))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%$method-table168821%_ + (let ((__tmp171630 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##gensym '__method-table)))) + (declare (not safe)) + (make-symbol__0 __tmp171630))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%methods168823%_ (let () (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g169642169657%_)))) - (_%g169640169779%_ - (lambda (_%g169642169663%_) - (if (let () - (declare - (not safe)) - (gx#stx-pair? - _%g169642169663%_)) - (let ((_%e169646169665%_ + (hash-keys + _%method-calls167626%_))) + (_%$methods168827%_ + (map (lambda (_%id168825%_) + (let ((__tmp171631 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gx#stx-e _%g169642169663%_)))) - (let ((_%hd169645169668%_ - (let () - (declare (not safe)) - (##car _%e169646169665%_))) - (_%tl169644169670%_ - (let () - (declare (not safe)) - (##cdr _%e169646169665%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair/null? _%tl169644169670%_)) - (let ((_g172596_ - (let () - (declare (not safe)) - (gx#syntax-split-splice - _%tl169644169670%_ - '0)))) - (begin - (let ((_g172597_ - (let () - (declare (not safe)) - (if (##values? _g172596_) - (##vector-length _g172596_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g172597_ 2))) - (error "Context expects 2 values" - _g172597_))) - (let ((_%target169647169673%_ + (gensym _%id168825%_))) + (declare (not safe)) + (make-symbol__1 '"__" __tmp171631))) + _%methods168823%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%_168836%_ + (for-each + (lambda (_%g168828168831%_ + _%g168829168833%_) + (let () + (declare (not safe)) + (hash-put! + _%method-calls167626%_ + _%g168828168831%_ + _%g168829168833%_))) + _%methods168823%_ + _%$methods168827%_)) + (_%methods-bind168846%_ + (map (lambda (_%g168838168841%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g168839168843%_) + (_%generate-method-bind167536%_ + _%$klass168819%_ + _%$method-table168821%_ + _%g168838168841%_ + _%g168839168843%_)) + _%methods168823%_ + _%$methods168827%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%slots168848%_ + (let () + (declare (not safe)) + (hash-keys + _%slot-refs167627%_))) + (_%$slots168852%_ + (map (lambda (_%id168850%_) + (let ((__tmp171632 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gensym _%id168850%_))) + (declare (not safe)) + (make-symbol__1 '"__" __tmp171632))) + _%slots168848%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%_168861%_ + (for-each + (lambda (_%g168853168856%_ + _%g168854168858%_) + (let () + (declare (not safe)) + (hash-put! + _%slot-refs167627%_ + _%g168853168856%_ + _%g168854168858%_))) + _%slots168848%_ + _%$slots168852%_)) + (_%slots-bind168870%_ + (map (lambda (_%g168862168865%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g168863168867%_) + (_%generate-slot-bind167537%_ + _%$klass168819%_ + _%g168862168865%_ + _%g168863168867%_)) + _%slots168848%_ + _%$slots168852%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%specializer-lambda-expr168956%_ + (let* ((_%g168872168890%_ + (lambda (_%g168873168887%_) + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g168873168887%_)))) + (_%g168871168953%_ + (lambda (_%g168873168893%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%g168873168893%_)) + (let ((_%e168879168895%_ + (let () + (declare (not safe)) + (gx#stx-e _%g168873168893%_)))) + (let ((_%hd168878168898%_ (let () (declare (not safe)) - (##vector-ref _g172596_ 0))) - (_%tl169649169675%_ + (##car _%e168879168895%_))) + (_%tl168877168900%_ (let () (declare (not safe)) - (##vector-ref _g172596_ 1)))) + (##cdr _%e168879168895%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169649169675%_)) - (letrec ((_%loop169650169678%_ - (lambda (_%hd169648169681%_ - _%clause169654169683%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%hd169648169681%_)) - (let ((_%e169651169686%_ - (let () - (declare - (not safe)) - (gx#stx-e - _%hd169648169681%_)))) - (let ((_%lp-hd169652169689%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _%e169651169686%_))) - (_%lp-tl169653169691%_ - (let () (declare (not safe)) (##cdr _%e169651169686%_)))) - (let ((__tmp172598 - (cons _%lp-hd169652169689%_ _%clause169654169683%_))) - (declare (not safe)) - (_%loop169650169678%_ _%lp-tl169653169691%_ __tmp172598)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%clause169655169694%_ - (reverse _%clause169654169683%_))) - ((lambda (_%L169697%_) - (for-each - (lambda (_%clause169710%_) - (let* ((_%g169712169727%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g169713169724%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g169713169724%_)))) - (_%g169711169769%_ - (lambda (_%g169713169730%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%g169713169730%_)) - (let ((_%e169719169732%_ - (let () - (declare (not safe)) - (gx#stx-e _%g169713169730%_)))) - (let ((_%hd169718169735%_ - (let () - (declare (not safe)) - (##car _%e169719169732%_))) - (_%tl169717169737%_ + (gx#stx-pair? _%tl168877168900%_)) + (let ((_%e168882168903%_ (let () (declare (not safe)) - (##cdr _%e169719169732%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd169718169735%_)) - (let ((_%e169722169740%_ - (let () - (declare (not safe)) - (gx#stx-e - _%hd169718169735%_)))) - (let ((_%hd169721169743%_ - (let () - (declare (not safe)) - (##car _%e169722169740%_))) - (_%tl169720169745%_ + (gx#stx-e _%tl168877168900%_)))) + (let ((_%hd168881168906%_ + (let () + (declare (not safe)) + (##car _%e168882168903%_))) + (_%tl168880168908%_ + (let () + (declare (not safe)) + (##cdr _%e168882168903%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%hd168881168906%_)) + (let ((_%e168885168911%_ (let () (declare (not safe)) - (##cdr _%e169722169740%_)))) - ((lambda (_%L169748%_ - _%L169749%_ - _%L169750%_) - (for-each - (lambda (_%g169764169766%_) - (let () - (declare (not safe)) - (gxc#apply-collect-object-refs__% - '#f - _%L169750%_ - _%method-calls168597%_ - _%slot-refs168598%_ - _%g169764169766%_))) - _%L169748%_)) - _%tl169717169737%_ - _%tl169720169745%_ - _%hd169721169743%_))) - (let () - (declare (not safe)) - (_%g169712169727%_ - _%g169713169730%_))))) - (let () - (declare (not safe)) - (_%g169712169727%_ _%g169713169730%_)))))) - (declare (not safe)) - (_%g169711169769%_ _%clause169710%_))) - (let ((__tmp172599 - (lambda (_%g169771169774%_ _%g169772169776%_) - (cons _%g169771169774%_ _%g169772169776%_)))) - (declare (not safe)) - (__foldr1 __tmp172599 '() _%L169697%_)))) - _%clause169655169694%_)))))) + (gx#stx-e + _%hd168881168906%_)))) + (let ((_%hd168884168914%_ + (let () + (declare (not safe)) + (##car _%e168885168911%_))) + (_%tl168883168916%_ + (let () + (declare (not safe)) + (##cdr _%e168885168911%_)))) + ((lambda (_%L168919%_ + _%L168920%_ + _%L168921%_) + (let* ((_%body168951%_ + (map (lambda (_%g168946168948%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gxc#apply-subst-object-refs__% + '#f + _%L168921%_ + _%$klass168819%_ + _%method-calls167626%_ + _%slot-refs167627%_ + _%g168946168948%_)) + _%L168919%_)) + (__tmp171633 + (cons '%#lambda + (cons (cons _%L168921%_ _%L168920%_) + _%body168951%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop169650169678%_ - _%target169647169673%_ - '()))) - (let () - (declare (not safe)) - (_%g169641169660%_ - _%g169642169663%_)))))) - (let () - (declare (not safe)) - (_%g169641169660%_ _%g169642169663%_))))) - (let () - (declare (not safe)) - (_%g169641169660%_ _%g169642169663%_)))))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp171633 + _%L168573%_))) + _%tl168880168908%_ + _%tl168883168916%_ + _%hd168884168914%_))) + (_%g168872168890%_ + _%g168873168893%_)))) + (_%g168872168890%_ _%g168873168893%_)))) + (_%g168872168890%_ _%g168873168893%_))))) + (_%g168871168953%_ _%L168573%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g169640169779%_ _%L169543%_)) - (if (let () - (declare (not safe)) - (_%no-specializer?168601%_)) - _%stx168505%_ - (let* ((_%specializer-id169788%_ - (let* ((_%id169782%_ - (let ((__tmp172600 + (_%specializer-case-lambda-expr169113%_ + (let* ((_%g168958168977%_ + (lambda (_%g168959168974%_) + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gx#stx-e _%L168578%_)))) (declare (not safe)) - (make-symbol__1 __tmp172600 '"::specialize"))) - (_%specializer-id169785%_ - (let ((__tmp172601 - (let () - (declare (not safe)) - (gx#stx-source _%stx168505%_)))) - (declare (not safe)) - (gx#core-quote-syntax__1 _%id169782%_ __tmp172601)))) - (let () - (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id169785%_)) - _%specializer-id169785%_)) - (_%$klass169790%_ - (let ((__tmp172602 - (let () (declare (not safe)) (##gensym '__klass)))) - (declare (not safe)) - (make-symbol__0 __tmp172602))) - (_%$method-table169792%_ - (let ((__tmp172603 - (let () - (declare (not safe)) - (##gensym '__method-table)))) - (declare (not safe)) - (make-symbol__0 __tmp172603))) - (_%methods169794%_ - (let () - (declare (not safe)) - (hash-keys _%method-calls168597%_))) - (_%$methods169798%_ - (map (lambda (_%id169796%_) - (let ((__tmp172604 (gensym _%id169796%_))) - (declare (not safe)) - (make-symbol__1 '"__" __tmp172604))) - _%methods169794%_)) - (_%_169807%_ - (for-each - (lambda (_%g169799169802%_ _%g169800169804%_) - (let () - (declare (not safe)) - (hash-put! - _%method-calls168597%_ - _%g169799169802%_ - _%g169800169804%_))) - _%methods169794%_ - _%$methods169798%_)) - (_%methods-bind169817%_ - (map (lambda (_%g169809169812%_ _%g169810169814%_) - (let () - (declare (not safe)) - (_%generate-method-bind168507%_ - _%$klass169790%_ - _%$method-table169792%_ - _%g169809169812%_ - _%g169810169814%_))) - _%methods169794%_ - _%$methods169798%_)) - (_%slots169819%_ - (let () (declare (not safe)) (hash-keys _%slot-refs168598%_))) - (_%$slots169823%_ - (map (lambda (_%id169821%_) - (let ((__tmp172605 (gensym _%id169821%_))) - (declare (not safe)) - (make-symbol__1 '"__" __tmp172605))) - _%slots169819%_)) - (_%_169832%_ - (for-each - (lambda (_%g169824169827%_ _%g169825169829%_) - (let () - (declare (not safe)) - (hash-put! - _%slot-refs168598%_ - _%g169824169827%_ - _%g169825169829%_))) - _%slots169819%_ - _%$slots169823%_)) - (_%slots-bind169841%_ - (map (lambda (_%g169833169836%_ _%g169834169838%_) - (let () - (declare (not safe)) - (_%generate-slot-bind168508%_ - _%$klass169790%_ - _%g169833169836%_ - _%g169834169838%_))) - _%slots169819%_ - _%$slots169823%_)) - (_%specializer-lambda-expr169927%_ - (let* ((_%g169843169861%_ - (lambda (_%g169844169858%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g169844169858%_)))) - (_%g169842169924%_ - (lambda (_%g169844169864%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%g169844169864%_)) - (let ((_%e169850169866%_ + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g168959168974%_)))) + (_%g168957169110%_ + (lambda (_%g168959168980%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%g168959168980%_)) + (let ((_%e168963168982%_ + (let () + (declare (not safe)) + (gx#stx-e _%g168959168980%_)))) + (let ((_%hd168962168985%_ (let () (declare (not safe)) - (gx#stx-e _%g169844169864%_)))) - (let ((_%hd169849169869%_ - (let () - (declare (not safe)) - (##car _%e169850169866%_))) - (_%tl169848169871%_ - (let () - (declare (not safe)) - (##cdr _%e169850169866%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl169848169871%_)) - (let ((_%e169853169874%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl169848169871%_)))) - (let ((_%hd169852169877%_ + (##car _%e168963168982%_))) + (_%tl168961168987%_ + (let () + (declare (not safe)) + (##cdr _%e168963168982%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _%tl168961168987%_)) + (let ((_g171634_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _%tl168961168987%_ + '0)))) + (begin + (let ((_g171635_ + (let () + (declare (not safe)) + (if (##values? _g171634_) + (##vector-length + _g171634_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g171635_ 2))) + (error "Context expects 2 values" + _g171635_))) + (let ((_%target168964168990%_ (let () (declare (not safe)) - (##car _%e169853169874%_))) - (_%tl169851169879%_ + (##vector-ref _g171634_ 0))) + (_%tl168966168992%_ (let () (declare (not safe)) - (##cdr _%e169853169874%_)))) + (##vector-ref _g171634_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? - _%hd169852169877%_)) - (let ((_%e169856169882%_ - (let () - (declare (not safe)) - (gx#stx-e - _%hd169852169877%_)))) - (let ((_%hd169855169885%_ - (let () - (declare (not safe)) - (##car _%e169856169882%_))) - (_%tl169854169887%_ - (let () - (declare (not safe)) - (##cdr _%e169856169882%_)))) - ((lambda (_%L169890%_ - _%L169891%_ - _%L169892%_) - (let* ((_%body169922%_ - (map (lambda (_%g169917169919%_) + (gx#stx-null? + _%tl168966168992%_)) + (letrec ((_%loop168967168995%_ + (lambda (_%hd168965168998%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gxc#apply-subst-object-refs__% - '#f - _%L169892%_ - _%$klass169790%_ - _%method-calls168597%_ - _%slot-refs168598%_ - _%g169917169919%_))) - _%L169890%_)) - (__tmp172606 - (cons '%#lambda - (cons (cons _%L169892%_ _%L169891%_) - _%body169922%_)))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp172606 _%L169544%_))) + _%clause168971169000%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd168965168998%_)) + (let ((_%e168968169003%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd168965168998%_)))) + (let ((_%lp-hd168969169006%_ + (let () + (declare (not safe)) + (##car _%e168968169003%_))) + (_%lp-tl168970169008%_ + (let () + (declare (not safe)) + (##cdr _%e168968169003%_)))) + (_%loop168967168995%_ + _%lp-tl168970169008%_ + (cons _%lp-hd168969169006%_ + _%clause168971169000%_)))) + (let ((_%clause168972169011%_ + (reverse _%clause168971169000%_))) + ((lambda (_%L169014%_) + (let* ((_%clauses169108%_ + (map (lambda (_%clause169028%_) + (let* ((_%__stx170519170520%_ + _%clause169028%_) + (_%g169031169046%_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx170519170520%_))))) + (let ((_%__kont170521170522%_ + (lambda (_%L169074%_ + _%L169075%_ + _%L169076%_) + (let ((_%body169096%_ + (map (lambda (_%g169091169093%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gxc#apply-subst-object-refs__% + '#f + _%L169076%_ + _%$klass168819%_ + _%method-calls167626%_ + _%slot-refs167627%_ + _%g169091169093%_)) + _%L169074%_))) + (cons (cons _%L169076%_ _%L169075%_) _%body169096%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl169851169879%_ - _%tl169854169887%_ - _%hd169855169885%_))) - (let () - (declare (not safe)) - (_%g169843169861%_ - _%g169844169864%_))))) - (let () - (declare (not safe)) - (_%g169843169861%_ - _%g169844169864%_))))) - (let () - (declare (not safe)) - (_%g169843169861%_ _%g169844169864%_)))))) - (declare (not safe)) - (_%g169842169924%_ _%L169544%_))) - (_%specializer-case-lambda-expr170084%_ - (let* ((_%g169929169948%_ - (lambda (_%g169930169945%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g169930169945%_)))) - (_%g169928170081%_ - (lambda (_%g169930169951%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%g169930169951%_)) - (let ((_%e169934169953%_ - (let () - (declare (not safe)) - (gx#stx-e _%g169930169951%_)))) - (let ((_%hd169933169956%_ - (let () - (declare (not safe)) - (##car _%e169934169953%_))) - (_%tl169932169958%_ - (let () - (declare (not safe)) - (##cdr _%e169934169953%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair/null? _%tl169932169958%_)) - (let ((_g172607_ - (let () - (declare (not safe)) - (gx#syntax-split-splice - _%tl169932169958%_ - '0)))) - (begin - (let ((_g172608_ - (let () - (declare (not safe)) - (if (##values? _g172607_) - (##vector-length - _g172607_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g172608_ 2))) - (error "Context expects 2 values" - _g172608_))) - (let ((_%target169935169961%_ - (let () - (declare (not safe)) - (##vector-ref _g172607_ 0))) - (_%tl169937169963%_ - (let () - (declare (not safe)) - (##vector-ref - _g172607_ - 1)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl169937169963%_)) - (letrec ((_%loop169938169966%_ - (lambda (_%hd169936169969%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause169942169971%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd169936169969%_)) - (let ((_%e169939169974%_ - (let () - (declare (not safe)) - (gx#stx-e _%hd169936169969%_)))) - (let ((_%lp-hd169940169977%_ - (let () - (declare (not safe)) - (##car _%e169939169974%_))) - (_%lp-tl169941169979%_ - (let () - (declare (not safe)) - (##cdr _%e169939169974%_)))) - (let ((__tmp172609 - (cons _%lp-hd169940169977%_ - _%clause169942169971%_))) - (declare (not safe)) - (_%loop169938169966%_ - _%lp-tl169941169979%_ - __tmp172609)))) - (let ((_%clause169943169982%_ - (reverse _%clause169942169971%_))) - ((lambda (_%L169985%_) - (let* ((_%clauses170079%_ - (map (lambda (_%clause169999%_) - (let* ((_%__stx171490171491%_ - _%clause169999%_) - (_%g170002170017%_ - (lambda () - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx171490171491%_))))) - (let ((_%__kont171492171493%_ - (lambda (_%L170045%_ - _%L170046%_ - _%L170047%_) - (let ((_%body170067%_ - (map (lambda (_%g170062170064%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gxc#apply-subst-object-refs__% - '#f - _%L170047%_ - _%$klass169790%_ - _%method-calls168597%_ - _%slot-refs168598%_ - _%g170062170064%_))) - _%L170045%_))) - (cons (cons _%L170047%_ _%L170046%_) _%body170067%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont171494171495%_ - (lambda () - _%clause169999%_))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%__stx171490171491%_)) - (let ((_%e170009170029%_ + (_%__kont170523170524%_ + (lambda () + _%clause169028%_))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%__stx170519170520%_)) + (let ((_%e169038169058%_ + (let () + (declare (not safe)) + (gx#stx-e + _%__stx170519170520%_)))) + (let ((_%tl169036169063%_ (let () (declare (not safe)) - (gx#stx-e - _%__stx171490171491%_)))) - (let ((_%tl170007170034%_ - (let () - (declare + (##cdr _%e169038169058%_))) + (_%hd169037169061%_ + (let () + (declare + (not safe)) + (##car _%e169038169058%_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _%hd169037169061%_)) + (let ((_%e169041169066%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##cdr _%e170009170029%_))) - (_%hd170008170032%_ - (let () (declare (not safe)) (##car _%e170009170029%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd170008170032%_)) - (let ((_%e170012170037%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd169037169061%_)))) + (let ((_%tl169039169071%_ (let () (declare (not safe)) - (gx#stx-e _%hd170008170032%_)))) - (let ((_%tl170010170042%_ - (let () - (declare (not safe)) - (##cdr _%e170012170037%_))) - (_%hd170011170040%_ - (let () - (declare (not safe)) - (##car _%e170012170037%_)))) - (_%__kont171492171493%_ - _%tl170007170034%_ - _%tl170010170042%_ - _%hd170011170040%_))) - (_%__kont171494171495%_)))) + (##cdr _%e169041169066%_))) + (_%hd169040169069%_ + (let () + (declare (not safe)) + (##car _%e169041169066%_)))) + (_%__kont170521170522%_ + _%tl169036169063%_ + _%tl169039169071%_ + _%hd169040169069%_))) + (_%__kont170523170524%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont171494171495%_))))) - (let ((__tmp172610 - (lambda (_%g170071170074%_ - _%g170072170076%_) - (cons _%g170071170074%_ - _%g170072170076%_)))) - (declare (not safe)) - (__foldr1 - __tmp172610 - '() - _%L169985%_)))) - (__tmp172611 - (cons '%#case-lambda _%clauses170079%_))) - (declare (not safe)) - (gxc#xform-wrap-source - __tmp172611 - _%L169543%_))) - _%clause169943169982%_)))))) + (_%__kont170523170524%_))))) + (let ((__tmp171636 + (lambda (_%g169100169103%_ + _%g169101169105%_) + (cons _%g169100169103%_ + _%g169101169105%_)))) + (declare (not safe)) + (__foldr1 + __tmp171636 + '() + _%L169014%_)))) + (__tmp171637 + (cons '%#case-lambda _%clauses169108%_))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp171637 _%L168572%_))) + _%clause168972169011%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop169938169966%_ - _%target169935169961%_ - '()))) - (let () - (declare (not safe)) - (_%g169929169948%_ - _%g169930169951%_)))))) - (let () - (declare (not safe)) - (_%g169929169948%_ - _%g169930169951%_))))) - (let () - (declare (not safe)) - (_%g169929169948%_ _%g169930169951%_)))))) - (declare (not safe)) - (_%g169928170081%_ _%L169543%_))) - (_%specializer-impl170086%_ - (let ((__tmp172612 - (cons '%#let-values - (cons (cons (cons (cons _%L169545%_ '()) - (cons _%specializer-lambda-expr169927%_ - '())) - '()) - (cons _%specializer-case-lambda-expr170084%_ - '()))))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp172612 _%stx168505%_))) - (_%specializer-impl170088%_ - (let () - (declare (not safe)) - (_%generate-specializer-impl168509%_ - _%$klass169790%_ - _%$method-table169792%_ - _%methods-bind169817%_ - _%slots-bind169841%_ - _%specializer-impl170086%_)))) + (_%loop168967168995%_ + _%target168964168990%_ + '())) + (_%g168958168977%_ + _%g168959168980%_))))) + (_%g168958168977%_ _%g168959168980%_)))) + (_%g168958168977%_ _%g168959168980%_))))) + (_%g168957169110%_ _%L168572%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp172614 - (let () - (declare (not safe)) - (gx#stx-e - _%L168578%_))) - (__tmp172613 - (let () - (declare (not safe)) - (gx#stx-e - _%specializer-id169788%_)))) - (declare (not safe)) - (gxc#verbose - '"generate method specializer " - __tmp172614 - '" => " - __tmp172613)) - (let () - (declare (not safe)) - (_%generate-specializer-def168510%_ - _%L168578%_ - _%specializer-id169788%_ - _%specializer-impl170088%_))))) - _%hd169476169538%_ - _%hd169473169530%_ - _%hd169470169522%_) - (let () - (declare (not safe)) - (_%g169452169482%_ - _%g169453169485%_))))) - (let () - (declare (not safe)) - (_%g169452169482%_ _%g169453169485%_))) - (let () - (declare (not safe)) - (_%g169452169482%_ _%g169453169485%_))) - (let () - (declare (not safe)) - (_%g169452169482%_ _%g169453169485%_))))) - (let () - (declare (not safe)) - (_%g169452169482%_ _%g169453169485%_))) + (_%specializer-impl169115%_ + (let ((__tmp171638 + (cons '%#let-values +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons (cons (cons _%L168574%_ '()) + (cons _%specializer-lambda-expr168956%_ + '())) + '()) + (cons _%specializer-case-lambda-expr169113%_ + '()))))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp171638 _%stx167534%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g169452169482%_ - _%g169453169485%_))))) - (let () - (declare (not safe)) - (_%g169452169482%_ - _%g169453169485%_))))) - (let () - (declare (not safe)) - (_%g169452169482%_ - _%g169453169485%_))))) - (let () - (declare (not safe)) - (_%g169452169482%_ _%g169453169485%_))))) - (let () - (declare (not safe)) - (_%g169452169482%_ _%g169453169485%_))))) + (_%specializer-impl169117%_ + (_%generate-specializer-impl167538%_ + _%$klass168819%_ + _%$method-table168821%_ + _%methods-bind168846%_ + _%slots-bind168870%_ + _%specializer-impl169115%_))) + (let ((__tmp171640 + (let () + (declare (not safe)) + (gx#stx-e + _%L167607%_))) + (__tmp171639 + (let () + (declare (not safe)) + (gx#stx-e + _%specializer-id168817%_)))) + (declare (not safe)) + (gxc#verbose + '"generate method specializer " + __tmp171640 + '" => " + __tmp171639)) + (_%generate-specializer-def167539%_ + _%L167607%_ + _%specializer-id168817%_ + _%specializer-impl169117%_)))) + _%hd168505168567%_ + _%hd168502168559%_ + _%hd168499168551%_) + (_%g168481168511%_ _%g168482168514%_)))) + (_%g168481168511%_ _%g168482168514%_)) + (_%g168481168511%_ _%g168482168514%_)) + (_%g168481168511%_ _%g168482168514%_)))) + (_%g168481168511%_ _%g168482168514%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g169452169482%_ - _%g169453169485%_)))))) - (declare (not safe)) - (_%g169451170091%_ _%L168577%_))) + (_%g168481168511%_ + _%g168482168514%_)))) + (_%g168481168511%_ + _%g168482168514%_)))) + (_%g168481168511%_ _%g168482168514%_)))) + (_%g168481168511%_ _%g168482168514%_)))) + (_%g168481168511%_ _%g168482168514%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g168481168511%_ + _%g168482168514%_))))) + (_%g168480169120%_ _%L167606%_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _%L168577%_)) - (let () - (let* ((_%g170095170148%_ - (lambda (_%g170096170145%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g170096170145%_)))) - (_%g170094171291%_ - (lambda (_%g170096170151%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%g170096170151%_)) - (let ((_%e170104170153%_ - (let () + (gxc#kw-lambda-expr? _%L167606%_)) + (let* ((_%g169124169177%_ + (lambda (_%g169125169174%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g169125169174%_)))) + (_%g169123170320%_ + (lambda (_%g169125169180%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%g169125169180%_)) + (let ((_%e169133169182%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _%g169125169180%_)))) + (let ((_%hd169132169185%_ + (let () (declare (not safe)) - (gx#stx-e _%g170096170151%_)))) - (let ((_%hd170103170156%_ - (let () - (declare (not safe)) - (##car _%e170104170153%_))) - (_%tl170102170158%_ - (let () - (declare (not safe)) - (##cdr _%e170104170153%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? _%hd170103170156%_)) - (if (let () - (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd170103170156%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl170102170158%_)) - (let ((_%e170107170161%_ + (##car _%e169133169182%_))) + (_%tl169131169187%_ + (let () + (declare (not safe)) + (##cdr _%e169133169182%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _%hd169132169185%_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#let-values _%hd169132169185%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl169131169187%_)) + (let ((_%e169136169190%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl169131169187%_)))) + (let ((_%hd169135169193%_ (let () (declare (not safe)) - (gx#stx-e _%tl170102170158%_)))) - (let ((_%hd170106170164%_ - (let () - (declare (not safe)) - (##car _%e170107170161%_))) - (_%tl170105170166%_ - (let () - (declare (not safe)) - (##cdr _%e170107170161%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd170106170164%_)) - (let ((_%e170110170169%_ + (##car _%e169136169190%_))) + (_%tl169134169195%_ + (let () + (declare (not safe)) + (##cdr _%e169136169190%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd169135169193%_)) + (let ((_%e169139169198%_ + (let () + (declare (not safe)) + (gx#stx-e + _%hd169135169193%_)))) + (let ((_%hd169138169201%_ (let () (declare (not safe)) - (gx#stx-e - _%hd170106170164%_)))) - (let ((_%hd170109170172%_ - (let () - (declare (not safe)) - (##car _%e170110170169%_))) - (_%tl170108170174%_ - (let () - (declare (not safe)) - (##cdr _%e170110170169%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%hd170109170172%_)) - (let ((_%e170113170177%_ + (##car _%e169139169198%_))) + (_%tl169137169203%_ + (let () + (declare (not safe)) + (##cdr _%e169139169198%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%hd169138169201%_)) + (let ((_%e169142169206%_ + (let () + (declare (not safe)) + (gx#stx-e + _%hd169138169201%_)))) + (let ((_%hd169141169209%_ (let () (declare (not safe)) - (gx#stx-e - _%hd170109170172%_)))) - (let ((_%hd170112170180%_ - (let () - (declare - (not safe)) - (##car _%e170113170177%_))) - (_%tl170111170182%_ - (let () - (declare - (not safe)) - (##cdr _%e170113170177%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%hd170112170180%_)) - (let ((_%e170116170185%_ - (let () + (##car _%e169142169206%_))) + (_%tl169140169211%_ + (let () + (declare (not safe)) + (##cdr _%e169142169206%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%hd169141169209%_)) + (let ((_%e169145169214%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _%hd169141169209%_)))) + (let ((_%hd169144169217%_ + (let () (declare (not safe)) - (gx#stx-e _%hd170112170180%_)))) - (let ((_%hd170115170188%_ - (let () - (declare (not safe)) - (##car _%e170116170185%_))) - (_%tl170114170190%_ - (let () - (declare (not safe)) - (##cdr _%e170116170185%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl170114170190%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl170111170182%_)) - (let ((_%e170119170193%_ + (##car _%e169145169214%_))) + (_%tl169143169219%_ + (let () + (declare (not safe)) + (##cdr _%e169145169214%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl169143169219%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl169140169211%_)) + (let ((_%e169148169222%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl169140169211%_)))) + (let ((_%hd169147169225%_ (let () (declare (not safe)) - (gx#stx-e _%tl170111170182%_)))) - (let ((_%hd170118170196%_ - (let () - (declare (not safe)) - (##car _%e170119170193%_))) - (_%tl170117170198%_ - (let () - (declare (not safe)) - (##cdr _%e170119170193%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd170118170196%_)) - (let ((_%e170122170201%_ + (##car _%e169148169222%_))) + (_%tl169146169227%_ + (let () + (declare (not safe)) + (##cdr _%e169148169222%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd169147169225%_)) + (let ((_%e169151169230%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd169147169225%_)))) + (let ((_%hd169150169233%_ (let () (declare (not safe)) - (gx#stx-e _%hd170118170196%_)))) - (let ((_%hd170121170204%_ - (let () - (declare (not safe)) - (##car _%e170122170201%_))) - (_%tl170120170206%_ - (let () - (declare (not safe)) - (##cdr _%e170122170201%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? - _%hd170121170204%_)) - (if (let () - (declare (not safe)) - (gx#stx-eq? - '%#let-values - _%hd170121170204%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl170120170206%_)) - (let ((_%e170125170209%_ + (##car _%e169151169230%_))) + (_%tl169149169235%_ + (let () + (declare (not safe)) + (##cdr _%e169151169230%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _%hd169150169233%_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#let-values + _%hd169150169233%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl169149169235%_)) + (let ((_%e169154169238%_ + (let () + (declare + (not safe)) + (gx#stx-e + _%tl169149169235%_)))) + (let ((_%hd169153169241%_ (let () (declare (not safe)) - (gx#stx-e - _%tl170120170206%_)))) - (let ((_%hd170124170212%_ - (let () - (declare + (##car _%e169154169238%_))) + (_%tl169152169243%_ + (let () + (declare + (not safe)) + (##cdr _%e169154169238%_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _%hd169153169241%_)) + (let ((_%e169157169246%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _%e170125170209%_))) - (_%tl170123170214%_ - (let () (declare (not safe)) (##cdr _%e170125170209%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd170124170212%_)) - (let ((_%e170128170217%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd169153169241%_)))) + (let ((_%hd169156169249%_ (let () (declare (not safe)) - (gx#stx-e _%hd170124170212%_)))) - (let ((_%hd170127170220%_ - (let () - (declare (not safe)) - (##car _%e170128170217%_))) - (_%tl170126170222%_ - (let () - (declare (not safe)) - (##cdr _%e170128170217%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd170127170220%_)) - (let ((_%e170131170225%_ + (##car _%e169157169246%_))) + (_%tl169155169251%_ + (let () + (declare (not safe)) + (##cdr _%e169157169246%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd169156169249%_)) + (let ((_%e169160169254%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd169156169249%_)))) + (let ((_%hd169159169257%_ (let () (declare (not safe)) - (gx#stx-e _%hd170127170220%_)))) - (let ((_%hd170130170228%_ - (let () - (declare (not safe)) - (##car _%e170131170225%_))) - (_%tl170129170230%_ - (let () - (declare (not safe)) - (##cdr _%e170131170225%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd170130170228%_)) - (let ((_%e170134170233%_ + (##car _%e169160169254%_))) + (_%tl169158169259%_ + (let () + (declare (not safe)) + (##cdr _%e169160169254%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd169159169257%_)) + (let ((_%e169163169262%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd169159169257%_)))) + (let ((_%hd169162169265%_ (let () (declare (not safe)) - (gx#stx-e _%hd170130170228%_)))) - (let ((_%hd170133170236%_ - (let () - (declare (not safe)) - (##car _%e170134170233%_))) - (_%tl170132170238%_ - (let () - (declare (not safe)) - (##cdr _%e170134170233%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl170132170238%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl170129170230%_)) - (let ((_%e170137170241%_ + (##car _%e169163169262%_))) + (_%tl169161169267%_ + (let () + (declare (not safe)) + (##cdr _%e169163169262%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl169161169267%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl169158169259%_)) + (let ((_%e169166169270%_ + (let () + (declare (not safe)) + (gx#stx-e + _%tl169158169259%_)))) + (let ((_%hd169165169273%_ (let () (declare (not safe)) - (gx#stx-e - _%tl170129170230%_)))) - (let ((_%hd170136170244%_ - (let () - (declare - (not safe)) - (##car _%e170137170241%_))) - (_%tl170135170246%_ - (let () - (declare - (not safe)) - (##cdr _%e170137170241%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl170135170246%_)) - (if (let () - (declare + (##car _%e169166169270%_))) + (_%tl169164169275%_ + (let () + (declare (not safe)) + (##cdr _%e169166169270%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _%tl169164169275%_)) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _%tl169155169251%_)) + (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gx#stx-null? _%tl170126170222%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl170123170214%_)) - (let ((_%e170140170249%_ + (declare (not safe)) + (gx#stx-pair? _%tl169152169243%_)) + (let ((_%e169169169278%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl169152169243%_)))) + (let ((_%hd169168169281%_ (let () (declare (not safe)) - (gx#stx-e _%tl170123170214%_)))) - (let ((_%hd170139170252%_ - (let () - (declare (not safe)) - (##car _%e170140170249%_))) - (_%tl170138170254%_ - (let () - (declare (not safe)) - (##cdr _%e170140170249%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl170138170254%_)) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl170117170198%_)) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl170108170174%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl170105170166%_)) - (let ((_%e170143170257%_ + (##car _%e169169169278%_))) + (_%tl169167169283%_ + (let () + (declare (not safe)) + (##cdr _%e169169169278%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl169167169283%_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl169146169227%_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl169137169203%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl169134169195%_)) + (let ((_%e169172169286%_ + (let () + (declare (not safe)) + (gx#stx-e + _%tl169134169195%_)))) + (let ((_%hd169171169289%_ (let () (declare (not safe)) - (gx#stx-e - _%tl170105170166%_)))) - (let ((_%hd170142170260%_ - (let () - (declare (not safe)) - (##car _%e170143170257%_))) - (_%tl170141170262%_ - (let () - (declare (not safe)) - (##cdr _%e170143170257%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl170141170262%_)) - ((lambda (_%L170265%_ - _%L170266%_ - _%L170267%_ - _%L170268%_ - _%L170269%_) - (let* ((_%g170309170371%_ - (lambda (_%g170310170368%_) + (##car _%e169172169286%_))) + (_%tl169170169291%_ + (let () + (declare (not safe)) + (##cdr _%e169172169286%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _%tl169170169291%_)) + ((lambda (_%L169294%_ + _%L169295%_ + _%L169296%_ + _%L169297%_ + _%L169298%_) + (let* ((_%g169338169400%_ + (lambda (_%g169339169397%_) + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g170310170368%_)))) - (_%g170308171288%_ - (lambda (_%g170310170374%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%g170310170374%_)) - (let ((_%e170318170376%_ + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g169339169397%_)))) + (_%g169337170317%_ + (lambda (_%g169339169403%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%g169339169403%_)) + (let ((_%e169347169405%_ + (let () + (declare (not safe)) + (gx#stx-e _%g169339169403%_)))) + (let ((_%hd169346169408%_ (let () (declare (not safe)) - (gx#stx-e _%g170310170374%_)))) - (let ((_%hd170317170379%_ - (let () - (declare (not safe)) - (##car _%e170318170376%_))) - (_%tl170316170381%_ - (let () - (declare (not safe)) - (##cdr _%e170318170376%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? _%hd170317170379%_)) - (if (let () - (declare (not safe)) - (gx#stx-eq? - '%#lambda - _%hd170317170379%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl170316170381%_)) - (let ((_%e170321170384%_ + (##car _%e169347169405%_))) + (_%tl169345169410%_ + (let () + (declare (not safe)) + (##cdr _%e169347169405%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _%hd169346169408%_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#lambda + _%hd169346169408%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl169345169410%_)) + (let ((_%e169350169413%_ + (let () + (declare (not safe)) + (gx#stx-e + _%tl169345169410%_)))) + (let ((_%hd169349169416%_ (let () (declare (not safe)) - (gx#stx-e - _%tl170316170381%_)))) - (let ((_%hd170320170387%_ - (let () - (declare (not safe)) - (##car _%e170321170384%_))) - (_%tl170319170389%_ - (let () - (declare (not safe)) - (##cdr _%e170321170384%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl170319170389%_)) - (let ((_%e170324170392%_ + (##car _%e169350169413%_))) + (_%tl169348169418%_ + (let () + (declare (not safe)) + (##cdr _%e169350169413%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl169348169418%_)) + (let ((_%e169353169421%_ + (let () + (declare + (not safe)) + (gx#stx-e + _%tl169348169418%_)))) + (let ((_%hd169352169424%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl170319170389%_)))) - (let ((_%hd170323170395%_ - (let () (declare (not safe)) (##car _%e170324170392%_))) - (_%tl170322170397%_ - (let () - (declare (not safe)) - (##cdr _%e170324170392%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd170323170395%_)) - (let ((_%e170327170400%_ + (##car _%e169353169421%_))) + (_%tl169351169426%_ + (let () (declare (not safe)) (##cdr _%e169353169421%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd169352169424%_)) + (let ((_%e169356169429%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd169352169424%_)))) + (let ((_%hd169355169432%_ (let () (declare (not safe)) - (gx#stx-e _%hd170323170395%_)))) - (let ((_%hd170326170403%_ - (let () - (declare (not safe)) - (##car _%e170327170400%_))) - (_%tl170325170405%_ - (let () - (declare (not safe)) - (##cdr _%e170327170400%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? _%hd170326170403%_)) - (if (let () - (declare (not safe)) - (gx#stx-eq? '%#call _%hd170326170403%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl170325170405%_)) - (let ((_%e170330170408%_ + (##car _%e169356169429%_))) + (_%tl169354169434%_ + (let () + (declare (not safe)) + (##cdr _%e169356169429%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _%hd169355169432%_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#call _%hd169355169432%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl169354169434%_)) + (let ((_%e169359169437%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl169354169434%_)))) + (let ((_%hd169358169440%_ (let () (declare (not safe)) - (gx#stx-e _%tl170325170405%_)))) - (let ((_%hd170329170411%_ - (let () - (declare (not safe)) - (##car _%e170330170408%_))) - (_%tl170328170413%_ - (let () - (declare (not safe)) - (##cdr _%e170330170408%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%hd170329170411%_)) - (let ((_%e170333170416%_ + (##car _%e169359169437%_))) + (_%tl169357169442%_ + (let () + (declare (not safe)) + (##cdr _%e169359169437%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%hd169358169440%_)) + (let ((_%e169362169445%_ + (let () + (declare (not safe)) + (gx#stx-e + _%hd169358169440%_)))) + (let ((_%hd169361169448%_ (let () (declare (not safe)) - (gx#stx-e - _%hd170329170411%_)))) - (let ((_%hd170332170419%_ - (let () - (declare (not safe)) - (##car _%e170333170416%_))) - (_%tl170331170421%_ - (let () - (declare (not safe)) - (##cdr _%e170333170416%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? - _%hd170332170419%_)) - (if (let () - (declare - (not safe)) - (gx#stx-eq? - '%#ref - _%hd170332170419%_)) - (if (let () - (declare + (##car _%e169362169445%_))) + (_%tl169360169450%_ + (let () + (declare (not safe)) + (##cdr _%e169362169445%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _%hd169361169448%_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _%hd169361169448%_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _%tl169360169450%_)) + (let ((_%e169365169453%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gx#stx-pair? _%tl170331170421%_)) - (let ((_%e170336170424%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl169360169450%_)))) + (let ((_%hd169364169456%_ (let () (declare (not safe)) - (gx#stx-e _%tl170331170421%_)))) - (let ((_%hd170335170427%_ - (let () - (declare (not safe)) - (##car _%e170336170424%_))) - (_%tl170334170429%_ - (let () - (declare (not safe)) - (##cdr _%e170336170424%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl170334170429%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl170328170413%_)) - (let ((_%e170339170432%_ + (##car _%e169365169453%_))) + (_%tl169363169458%_ + (let () + (declare (not safe)) + (##cdr _%e169365169453%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl169363169458%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl169357169442%_)) + (let ((_%e169368169461%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl169357169442%_)))) + (let ((_%hd169367169464%_ (let () (declare (not safe)) - (gx#stx-e _%tl170328170413%_)))) - (let ((_%hd170338170435%_ - (let () - (declare (not safe)) - (##car _%e170339170432%_))) - (_%tl170337170437%_ - (let () - (declare (not safe)) - (##cdr _%e170339170432%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd170338170435%_)) - (let ((_%e170342170440%_ + (##car _%e169368169461%_))) + (_%tl169366169466%_ + (let () + (declare (not safe)) + (##cdr _%e169368169461%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd169367169464%_)) + (let ((_%e169371169469%_ + (let () + (declare (not safe)) + (gx#stx-e + _%hd169367169464%_)))) + (let ((_%hd169370169472%_ (let () (declare (not safe)) - (gx#stx-e - _%hd170338170435%_)))) - (let ((_%hd170341170443%_ - (let () - (declare (not safe)) - (##car _%e170342170440%_))) - (_%tl170340170445%_ - (let () - (declare (not safe)) - (##cdr _%e170342170440%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? - _%hd170341170443%_)) - (if (let () - (declare (not safe)) - (gx#stx-eq? - '%#ref - _%hd170341170443%_)) - (if (let () - (declare - (not safe)) - (gx#stx-pair? - _%tl170340170445%_)) - (let ((_%e170345170448%_ + (##car _%e169371169469%_))) + (_%tl169369169474%_ + (let () + (declare (not safe)) + (##cdr _%e169371169469%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _%hd169370169472%_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _%hd169370169472%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl169369169474%_)) + (let ((_%e169374169477%_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-e _%tl169369169474%_)))) + (let ((_%hd169373169480%_ (let () (declare (not safe)) - (gx#stx-e _%tl170340170445%_)))) - (let ((_%hd170344170451%_ - (let () - (declare (not safe)) - (##car _%e170345170448%_))) - (_%tl170343170453%_ - (let () - (declare (not safe)) - (##cdr _%e170345170448%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl170343170453%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl170337170437%_)) - (let ((_%e170348170456%_ + (##car _%e169374169477%_))) + (_%tl169372169482%_ + (let () + (declare (not safe)) + (##cdr _%e169374169477%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl169372169482%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl169366169466%_)) + (let ((_%e169377169485%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl169366169466%_)))) + (let ((_%hd169376169488%_ + (let () + (declare (not safe)) + (##car _%e169377169485%_))) + (_%tl169375169490%_ (let () (declare (not safe)) - (gx#stx-e _%tl170337170437%_)))) - (let ((_%hd170347170459%_ + (##cdr _%e169377169485%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd169376169488%_)) + (let ((_%e169380169493%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd169376169488%_)))) + (let ((_%hd169379169496%_ + (let () + (declare (not safe)) + (##car _%e169380169493%_))) + (_%tl169378169498%_ + (let () + (declare (not safe)) + (##cdr _%e169380169493%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _%hd169379169496%_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? + '%#ref + _%hd169379169496%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl169378169498%_)) + (let ((_%e169383169501%_ + (let () + (declare + (not safe)) + (gx#stx-e + _%tl169378169498%_)))) + (let ((_%hd169382169504%_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _%e169383169501%_))) + (_%tl169381169506%_ + (let () (declare (not safe)) (##cdr _%e169383169501%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl169381169506%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _%tl169375169490%_)) + (if (let ((__tmp171641 + (let () + (declare (not safe)) + (gx#stx-length _%tl169375169490%_)))) + (declare (not safe)) + (##fx>= __tmp171641 '1)) + (let ((_g171642_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _%tl169375169490%_ + '1)))) + (begin + (let ((_g171643_ (let () (declare (not safe)) - (##car _%e170348170456%_))) - (_%tl170346170461%_ + (if (##values? _g171642_) + (##vector-length _g171642_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g171643_ 2))) + (error "Context expects 2 values" + _g171643_))) + (let ((_%target169384169509%_ + (let () + (declare (not safe)) + (##vector-ref _g171642_ 0))) + (_%tl169386169511%_ (let () (declare (not safe)) - (##cdr _%e170348170456%_)))) + (##vector-ref _g171642_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd170347170459%_)) - (let ((_%e170351170464%_ + (gx#stx-pair? _%tl169386169511%_)) + (let ((_%e169395169514%_ (let () (declare (not safe)) - (gx#stx-e _%hd170347170459%_)))) - (let ((_%hd170350170467%_ + (gx#stx-e _%tl169386169511%_)))) + (let ((_%hd169394169517%_ (let () (declare (not safe)) - (##car _%e170351170464%_))) - (_%tl170349170469%_ + (##car _%e169395169514%_))) + (_%tl169393169519%_ (let () (declare (not safe)) - (##cdr _%e170351170464%_)))) + (##cdr _%e169395169514%_)))) (if (let () (declare (not safe)) - (gx#identifier? - _%hd170350170467%_)) - (if (let () - (declare (not safe)) - (gx#stx-eq? - '%#ref - _%hd170350170467%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl170349170469%_)) - (let ((_%e170354170472%_ - (let () - (declare + (gx#stx-null? + _%tl169393169519%_)) + (letrec ((_%loop169387169522%_ + (lambda (_%hd169385169525%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gx#stx-e _%tl170349170469%_)))) - (let ((_%hd170353170475%_ - (let () (declare (not safe)) (##car _%e170354170472%_))) - (_%tl170352170477%_ - (let () - (declare (not safe)) - (##cdr _%e170354170472%_)))) + _%kw-ref169391169527%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170352170477%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair/null? _%tl170346170461%_)) - (if (let ((__tmp172615 - (let () - (declare (not safe)) - (gx#stx-length _%tl170346170461%_)))) - (declare (not safe)) - (##fx>= __tmp172615 '1)) - (let ((_g172616_ - (let () + (gx#stx-pair? _%hd169385169525%_)) + (let ((_%e169388169530%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd169385169525%_)))) + (let ((_%lp-hd169389169533%_ + (let () + (declare (not safe)) + (##car _%e169388169530%_))) + (_%lp-tl169390169535%_ + (let () + (declare (not safe)) + (##cdr _%e169388169530%_)))) + (_%loop169387169522%_ + _%lp-tl169390169535%_ + (cons _%lp-hd169389169533%_ + _%kw-ref169391169527%_)))) + (let ((_%kw-ref169392169538%_ + (reverse _%kw-ref169391169527%_))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl169351169426%_)) + ((lambda (_%L169541%_ + _%L169542%_ + _%L169543%_ + _%L169544%_ + _%L169545%_) + (let* ((_%kw-count169596%_ + (length (let ((__tmp171644 + (lambda (_%g169588169591%_ + _%g169589169593%_) + (cons _%g169588169591%_ + _%g169589169593%_)))) + (declare (not safe)) + (__foldr1 + __tmp171644 + '() + _%L169542%_)))) + (_%self-index169598%_ + (let () + (declare (not safe)) + (##fx+ _%kw-count169596%_ '1)))) + (if (let () (declare (not safe)) - (gx#syntax-split-splice - _%tl170346170461%_ - '1)))) - (begin - (let ((_g172617_ - (let () - (declare (not safe)) - (if (##values? _g172616_) - (##vector-length _g172616_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g172617_ 2))) - (error "Context expects 2 values" - _g172617_))) - (let ((_%target170355170480%_ - (let () - (declare (not safe)) - (##vector-ref _g172616_ 0))) - (_%tl170357170482%_ - (let () - (declare (not safe)) - (##vector-ref _g172616_ 1)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl170357170482%_)) - (let ((_%e170366170485%_ + (gxc#lambda-expr? _%L169296%_)) + (let* ((_%g169602169616%_ + (lambda (_%g169603169613%_) (let () (declare (not safe)) - (gx#stx-e - _%tl170357170482%_)))) - (let ((_%hd170365170488%_ - (let () - (declare (not safe)) - (##car _%e170366170485%_))) - (_%tl170364170490%_ - (let () - (declare (not safe)) - (##cdr _%e170366170485%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl170364170490%_)) - (letrec ((_%loop170358170493%_ - (lambda (_%hd170356170496%_ + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g169603169613%_)))) + (_%g169601169733%_ + (lambda (_%g169603169619%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%g169603169619%_)) + (let ((_%e169608169621%_ + (let () + (declare + (not safe)) + (gx#stx-e + _%g169603169619%_)))) + (let ((_%hd169607169624%_ + (let () + (declare + (not safe)) + (##car _%e169608169621%_))) + (_%tl169606169626%_ + (let () + (declare + (not safe)) + (##cdr _%e169608169621%_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _%tl169606169626%_)) + (let ((_%e169611169629%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kw-ref170362170498%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd170356170496%_)) - (let ((_%e170359170501%_ - (let () - (declare (not safe)) - (gx#stx-e _%hd170356170496%_)))) - (let ((_%lp-hd170360170504%_ - (let () - (declare (not safe)) - (##car _%e170359170501%_))) - (_%lp-tl170361170506%_ - (let () - (declare (not safe)) - (##cdr _%e170359170501%_)))) - (let ((__tmp172618 - (cons _%lp-hd170360170504%_ - _%kw-ref170362170498%_))) + (let () + (declare (not safe)) + (gx#stx-e _%tl169606169626%_)))) + (let ((_%hd169610169632%_ + (let () (declare (not safe)) - (_%loop170358170493%_ - _%lp-tl170361170506%_ - __tmp172618)))) - (let ((_%kw-ref170363170509%_ - (reverse _%kw-ref170362170498%_))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl170322170397%_)) - ((lambda (_%L170512%_ - _%L170513%_ - _%L170514%_ - _%L170515%_ - _%L170516%_) - (let* ((_%kw-count170567%_ - (length (let ((__tmp172619 - (lambda (_%g170559170562%_ + (##car _%e169611169629%_))) + (_%tl169609169634%_ + (let () + (declare (not safe)) + (##cdr _%e169611169629%_)))) + ((lambda (_%L169637%_ _%L169638%_) + (let ((_%self169655%_ + (list-ref _%L169638%_ _%self-index169598%_))) + (for-each + (lambda (_%g169656169658%_) + (gxc#apply-collect-object-refs__% + '#f + _%self169655%_ + _%method-calls167626%_ + _%slot-refs167627%_ + _%g169656169658%_)) + _%L169637%_) + (if (_%no-specializer?167630%_) + _%stx167534%_ + (let* ((_%specializer-id169667%_ + (let* ((_%id169661%_ + (let ((__tmp171645 + (let () + (declare (not safe)) + (gx#stx-e + _%L167607%_)))) + (declare (not safe)) + (make-symbol__1 + __tmp171645 + '"::specialize"))) + (_%specializer-id169664%_ + (let ((__tmp171646 + (let () + (declare (not safe)) + (gx#stx-source + _%stx167534%_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 + _%id169661%_ + __tmp171646)))) + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 + _%specializer-id169664%_)) + _%specializer-id169664%_)) + (_%$klass169669%_ + (let ((__tmp171647 + (let () + (declare (not safe)) + (##gensym '__klass)))) + (declare (not safe)) + (make-symbol__0 __tmp171647))) + (_%$method-table169671%_ + (let ((__tmp171648 + (let () + (declare (not safe)) + (##gensym '__method-table)))) + (declare (not safe)) + (make-symbol__0 __tmp171648))) + (_%methods169673%_ + (let () + (declare (not safe)) + (hash-keys _%method-calls167626%_))) + (_%$methods169677%_ + (map (lambda (_%id169675%_) + (let ((__tmp171649 + (gensym _%id169675%_))) + (declare (not safe)) + (make-symbol__1 + '"__" + __tmp171649))) + _%methods169673%_)) + (_%_169686%_ + (for-each + (lambda (_%g169678169681%_ + _%g169679169683%_) + (let () + (declare (not safe)) + (hash-put! + _%method-calls167626%_ + _%g169678169681%_ + _%g169679169683%_))) + _%methods169673%_ + _%$methods169677%_)) + (_%methods-bind169696%_ + (map (lambda (_%g169688169691%_ + _%g169689169693%_) + (_%generate-method-bind167536%_ + _%$klass169669%_ + _%$method-table169671%_ + _%g169688169691%_ + _%g169689169693%_)) + _%methods169673%_ + _%$methods169677%_)) + (_%slots169698%_ + (let () + (declare (not safe)) + (hash-keys _%slot-refs167627%_))) + (_%$slots169702%_ + (map (lambda (_%id169700%_) + (let ((__tmp171650 + (gensym _%id169700%_))) + (declare (not safe)) + (make-symbol__1 + '"__" + __tmp171650))) + _%slots169698%_)) + (_%_169711%_ + (for-each + (lambda (_%g169703169706%_ + _%g169704169708%_) + (let () + (declare (not safe)) + (hash-put! + _%slot-refs167627%_ + _%g169703169706%_ + _%g169704169708%_))) + _%slots169698%_ + _%$slots169702%_)) + (_%slots-bind169720%_ + (map (lambda (_%g169712169715%_ + _%g169713169717%_) + (_%generate-slot-bind167537%_ + _%$klass169669%_ + _%g169712169715%_ + _%g169713169717%_)) + _%slots169698%_ + _%$slots169702%_)) + (_%specializer-impl169728%_ + (let* ((_%specializer-body169726%_ + (map (lambda (_%g169721169723%_) + (gxc#apply-subst-object-refs__% + '#f + _%self169655%_ + _%$klass169669%_ + _%method-calls167626%_ + _%slot-refs167627%_ + _%g169721169723%_)) + _%L169637%_)) + (__tmp171651 + (cons '%#let-values + (cons (cons (cons (cons _%L169298%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g170560170564%_) - (cons _%g170559170562%_ _%g170560170564%_)))) + '()) + (cons (cons '%#let-values + (cons (cons (cons (cons _%L169297%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '()) + (cons (let ((__tmp171652 + (cons '%#lambda + (cons _%L169638%_ + _%specializer-body169726%_)))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp171652 _%L169296%_)) + '())) + '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr1 - __tmp172619 - '() - _%L170513%_)))) - (_%self-index170569%_ + (cons _%L169295%_ '()))) + '())) + '()) + (cons _%L169294%_ '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp171651 + _%stx167534%_))) + (_%specializer-impl169730%_ + (_%generate-specializer-impl167538%_ + _%$klass169669%_ + _%$method-table169671%_ + _%methods-bind169696%_ + _%slots-bind169720%_ + _%specializer-impl169728%_))) + (let ((__tmp171654 (let () (declare (not safe)) - (##fx+ _%kw-count170567%_ '1)))) - (if (let () - (declare (not safe)) - (gxc#lambda-expr? _%L170267%_)) - (let () - (let* ((_%g170573170587%_ - (lambda (_%g170574170584%_) + (gx#stx-e _%L167607%_))) + (__tmp171653 + (let () + (declare (not safe)) + (gx#stx-e + _%specializer-id169667%_)))) + (declare (not safe)) + (gxc#verbose + '"generate method specializer " + __tmp171654 + '" => " + __tmp171653)) + (_%generate-specializer-def167539%_ + _%L167607%_ + _%specializer-id169667%_ + _%specializer-impl169730%_))))) + _%tl169609169634%_ + _%hd169610169632%_))) + (_%g169602169616%_ _%g169603169619%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g169602169616%_ + _%g169603169619%_))))) + (_%g169601169733%_ _%L169296%_)) + (if (let () + (declare (not safe)) + (gxc#opt-lambda-expr? _%L169296%_)) + (let* ((_%g169737169767%_ + (lambda (_%g169738169764%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g170574170584%_)))) - (_%g170572170704%_ - (lambda (_%g170574170590%_) + _%g169738169764%_)))) + (_%g169736170313%_ + (lambda (_%g169738169770%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g170574170590%_)) - (let ((_%e170579170592%_ + _%g169738169770%_)) + (let ((_%e169744169772%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g170574170590%_)))) - (let ((_%hd170578170595%_ + (gx#stx-e _%g169738169770%_)))) + (let ((_%hd169743169775%_ (let () (declare (not safe)) - (##car _%e170579170592%_))) - (_%tl170577170597%_ + (##car _%e169744169772%_))) + (_%tl169742169777%_ (let () (declare (not safe)) - (##cdr _%e170579170592%_)))) + (##cdr _%e169744169772%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl170577170597%_)) - (let ((_%e170582170600%_ + (gx#stx-pair? _%tl169742169777%_)) + (let ((_%e169747169780%_ (let () (declare (not safe)) - (gx#stx-e _%tl170577170597%_)))) - (let ((_%hd170581170603%_ + (gx#stx-e _%tl169742169777%_)))) + (let ((_%hd169746169783%_ (let () (declare (not safe)) - (##car _%e170582170600%_))) - (_%tl170580170605%_ + (##car _%e169747169780%_))) + (_%tl169745169785%_ (let () (declare (not safe)) - (##cdr _%e170582170600%_)))) - ((lambda (_%L170608%_ _%L170609%_) - (let ((_%self170626%_ - (list-ref - _%L170609%_ - _%self-index170569%_))) - (for-each - (lambda (_%g170627170629%_) - (let () - (declare (not safe)) - (gxc#apply-collect-object-refs__% - '#f - _%self170626%_ - _%method-calls168597%_ - _%slot-refs168598%_ - _%g170627170629%_))) - _%L170608%_) - (if (let () - (declare (not safe)) - (_%no-specializer?168601%_)) - _%stx168505%_ - (let* ((_%specializer-id170638%_ - (let* ((_%id170632%_ - (let ((__tmp172620 - (let () - (declare - (not safe)) - (gx#stx-e - _%L168578%_)))) - (declare (not safe)) - (make-symbol__1 - __tmp172620 - '"::specialize"))) - (_%specializer-id170635%_ - (let ((__tmp172621 - (let () - (declare - (not safe)) - (gx#stx-source - _%stx168505%_)))) - (declare (not safe)) - (gx#core-quote-syntax__1 - _%id170632%_ - __tmp172621)))) + (##cdr _%e169747169780%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd169746169783%_)) + (let ((_%e169750169788%_ + (let () + (declare (not safe)) + (gx#stx-e _%hd169746169783%_)))) + (let ((_%hd169749169791%_ + (let () + (declare (not safe)) + (##car _%e169750169788%_))) + (_%tl169748169793%_ + (let () + (declare (not safe)) + (##cdr _%e169750169788%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd169749169791%_)) + (let ((_%e169753169796%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 - _%specializer-id170635%_)) - _%specializer-id170635%_)) - (_%$klass170640%_ - (let ((__tmp172622 - (let () - (declare (not safe)) - (##gensym '__klass)))) - (declare (not safe)) - (make-symbol__0 __tmp172622))) - (_%$method-table170642%_ - (let ((__tmp172623 - (let () - (declare (not safe)) - (##gensym - '__method-table)))) - (declare (not safe)) - (make-symbol__0 __tmp172623))) - (_%methods170644%_ - (let () - (declare (not safe)) - (hash-keys - _%method-calls168597%_))) - (_%$methods170648%_ - (map (lambda (_%id170646%_) - (let ((__tmp172624 - (gensym _%id170646%_))) - (declare (not safe)) - (make-symbol__1 - '"__" - __tmp172624))) - _%methods170644%_)) - (_%_170657%_ - (for-each - (lambda (_%g170649170652%_ - _%g170650170654%_) - (let () - (declare (not safe)) - (hash-put! - _%method-calls168597%_ - _%g170649170652%_ - _%g170650170654%_))) - _%methods170644%_ - _%$methods170648%_)) - (_%methods-bind170667%_ - (map (lambda (_%g170659170662%_ - _%g170660170664%_) - (let () - (declare (not safe)) - (_%generate-method-bind168507%_ - _%$klass170640%_ - _%$method-table170642%_ - _%g170659170662%_ - _%g170660170664%_))) - _%methods170644%_ - _%$methods170648%_)) - (_%slots170669%_ - (let () - (declare (not safe)) - (hash-keys _%slot-refs168598%_))) - (_%$slots170673%_ - (map (lambda (_%id170671%_) - (let ((__tmp172625 - (gensym _%id170671%_))) - (declare (not safe)) - (make-symbol__1 - '"__" - __tmp172625))) - _%slots170669%_)) - (_%_170682%_ - (for-each - (lambda (_%g170674170677%_ - _%g170675170679%_) - (let () + (gx#stx-e + _%hd169749169791%_)))) + (let ((_%hd169752169799%_ + (let () + (declare (not safe)) + (##car _%e169753169796%_))) + (_%tl169751169801%_ + (let () + (declare (not safe)) + (##cdr _%e169753169796%_)))) + (if (let () (declare (not safe)) - (hash-put! - _%slot-refs168598%_ - _%g170674170677%_ - _%g170675170679%_))) - _%slots170669%_ - _%$slots170673%_)) - (_%slots-bind170691%_ - (map (lambda (_%g170683170686%_ - _%g170684170688%_) - (let () - (declare (not safe)) - (_%generate-slot-bind168508%_ - _%$klass170640%_ - _%g170683170686%_ - _%g170684170688%_))) - _%slots170669%_ - _%$slots170673%_)) - (_%specializer-impl170699%_ - (let* ((_%specializer-body170697%_ - (map (lambda (_%g170692170694%_) - (let () - (declare - (not safe)) - (gxc#apply-subst-object-refs__% - '#f - _%self170626%_ - _%$klass170640%_ - _%method-calls168597%_ - _%slot-refs168598%_ - _%g170692170694%_))) - _%L170608%_)) - (__tmp172626 - (cons '%#let-values - (cons (cons (cons (cons _%L170269%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (cons '%#let-values - (cons (cons (cons (cons _%L170268%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (let ((__tmp172627 - (cons '%#lambda - (cons _%L170609%_ - _%specializer-body170697%_)))) - (declare (not safe)) - (gxc#xform-wrap-source - __tmp172627 - _%L170267%_)) - '())) - '()) - (cons _%L170266%_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '()) - (cons _%L170265%_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp172626 - _%stx168505%_))) - (_%specializer-impl170701%_ - (let () - (declare (not safe)) - (_%generate-specializer-impl168509%_ - _%$klass170640%_ - _%$method-table170642%_ - _%methods-bind170667%_ - _%slots-bind170691%_ - _%specializer-impl170699%_)))) - (let ((__tmp172629 - (let () - (declare (not safe)) - (gx#stx-e _%L168578%_))) - (__tmp172628 - (let () - (declare (not safe)) - (gx#stx-e - _%specializer-id170638%_)))) - (declare (not safe)) - (gxc#verbose - '"generate method specializer " - __tmp172629 - '" => " - __tmp172628)) - (let () - (declare (not safe)) - (_%generate-specializer-def168510%_ - _%L168578%_ - _%specializer-id170638%_ - _%specializer-impl170701%_)))))) - _%tl170580170605%_ - _%hd170581170603%_))) - (let () - (declare (not safe)) - (_%g170573170587%_ _%g170574170590%_))))) - (let () - (declare (not safe)) - (_%g170573170587%_ _%g170574170590%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g170572170704%_ _%L170267%_))) - (if (let () - (declare (not safe)) - (gxc#opt-lambda-expr? - _%L170267%_)) - (let () - (let* ((_%g170708170738%_ - (lambda (_%g170709170735%_) - (let () + (gx#stx-pair? + _%hd169752169799%_)) + (let ((_%e169756169804%_ + (let () + (declare (not safe)) + (gx#stx-e + _%hd169752169799%_)))) + (let ((_%hd169755169807%_ + (let () + (declare (not safe)) + (##car _%e169756169804%_))) + (_%tl169754169809%_ + (let () + (declare (not safe)) + (##cdr _%e169756169804%_)))) + (if (let () (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g170709170735%_)))) - (_%g170707171284%_ - (lambda (_%g170709170741%_) + (gx#stx-null? + _%tl169754169809%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%g170709170741%_)) - (let ((_%e170715170743%_ + _%tl169751169801%_)) + (let ((_%e169759169812%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g170709170741%_)))) - (let ((_%hd170714170746%_ + (gx#stx-e _%tl169751169801%_)))) + (let ((_%hd169758169815%_ (let () (declare (not safe)) - (##car _%e170715170743%_))) - (_%tl170713170748%_ + (##car _%e169759169812%_))) + (_%tl169757169817%_ (let () (declare (not safe)) - (##cdr _%e170715170743%_)))) + (##cdr _%e169759169812%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl170713170748%_)) - (let ((_%e170718170751%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl170713170748%_)))) - (let ((_%hd170717170754%_ - (let () - (declare (not safe)) - (##car _%e170718170751%_))) - (_%tl170716170756%_ - (let () - (declare (not safe)) - (##cdr _%e170718170751%_)))) + (gx#stx-null? _%tl169757169817%_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl169748169793%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd170717170754%_)) - (let ((_%e170721170759%_ + (gx#stx-pair? _%tl169745169785%_)) + (let ((_%e169762169820%_ (let () (declare (not safe)) - (gx#stx-e _%hd170717170754%_)))) - (let ((_%hd170720170762%_ + (gx#stx-e _%tl169745169785%_)))) + (let ((_%hd169761169823%_ (let () (declare (not safe)) - (##car _%e170721170759%_))) - (_%tl170719170764%_ + (##car _%e169762169820%_))) + (_%tl169760169825%_ (let () (declare (not safe)) - (##cdr _%e170721170759%_)))) + (##cdr _%e169762169820%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd170720170762%_)) - (let ((_%e170724170767%_ - (let () - (declare (not safe)) - (gx#stx-e - _%hd170720170762%_)))) - (let ((_%hd170723170770%_ - (let () - (declare (not safe)) - (##car _%e170724170767%_))) - (_%tl170722170772%_ - (let () - (declare (not safe)) - (##cdr _%e170724170767%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%hd170723170770%_)) - (let ((_%e170727170775%_ - (let () - (declare - (not safe)) - (gx#stx-e - _%hd170723170770%_)))) - (let ((_%hd170726170778%_ - (let () - (declare - (not safe)) - (##car _%e170727170775%_))) - (_%tl170725170780%_ - (let () + (gx#stx-null? _%tl169760169825%_)) + ((lambda (_%L169828%_ + _%L169829%_ + _%L169830%_) + (let* ((_%g169854169868%_ + (lambda (_%g169855169865%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g169855169865%_)))) + (_%g169853169909%_ + (lambda (_%g169855169871%_) + (if (let () (declare (not safe)) - (##cdr _%e170727170775%_)))) - (if (let () - (declare - (not safe)) - (gx#stx-null? - _%tl170725170780%_)) - (if (let () + (gx#stx-pair? + _%g169855169871%_)) + (let ((_%e169860169873%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#stx-pair? _%tl170722170772%_)) - (let ((_%e170730170783%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl170722170772%_)))) - (let ((_%hd170729170786%_ - (let () - (declare (not safe)) - (##car _%e170730170783%_))) - (_%tl170728170788%_ - (let () - (declare (not safe)) - (##cdr _%e170730170783%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl170728170788%_)) - (if (let () + (let () + (declare (not safe)) + (gx#stx-e _%g169855169871%_)))) + (let ((_%hd169859169876%_ + (let () + (declare (not safe)) + (##car _%e169860169873%_))) + (_%tl169858169878%_ + (let () + (declare (not safe)) + (##cdr _%e169860169873%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl169858169878%_)) + (let ((_%e169863169881%_ + (let () (declare (not safe)) - (gx#stx-null? _%tl170719170764%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl170716170756%_)) - (let ((_%e170733170791%_ - (let () - (declare (not safe)) - (gx#stx-e - _%tl170716170756%_)))) - (let ((_%hd170732170794%_ - (let () - (declare (not safe)) - (##car _%e170733170791%_))) - (_%tl170731170796%_ - (let () - (declare (not safe)) - (##cdr _%e170733170791%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl170731170796%_)) - ((lambda (_%L170799%_ - _%L170800%_ - _%L170801%_) - (let* ((_%g170825170839%_ - (lambda (_%g170826170836%_) - (let () - (declare - (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g170826170836%_)))) - (_%g170824170880%_ - (lambda (_%g170826170842%_) - (if (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#stx-pair? _%g170826170842%_)) - (let ((_%e170831170844%_ - (let () - (declare (not safe)) - (gx#stx-e _%g170826170842%_)))) - (let ((_%hd170830170847%_ - (let () - (declare (not safe)) - (##car _%e170831170844%_))) - (_%tl170829170849%_ - (let () - (declare (not safe)) - (##cdr _%e170831170844%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl170829170849%_)) - (let ((_%e170834170852%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl170829170849%_)))) - (let ((_%hd170833170855%_ - (let () - (declare (not safe)) - (##car _%e170834170852%_))) - (_%tl170832170857%_ - (let () - (declare (not safe)) - (##cdr _%e170834170852%_)))) - ((lambda (_%L170860%_ _%L170861%_) - (let ((_%self170874%_ - (list-ref - _%L170861%_ - _%self-index170569%_))) - (for-each - (lambda (_%g170875170877%_) - (let () - (declare (not safe)) - (gxc#apply-collect-object-refs__% - '#f - _%self170874%_ - _%method-calls168597%_ - _%slot-refs168598%_ - _%g170875170877%_))) - _%L170860%_))) - _%tl170832170857%_ - _%hd170833170855%_))) - (let () - (declare (not safe)) - (_%g170825170839%_ _%g170826170842%_))))) - (let () - (declare (not safe)) - (_%g170825170839%_ _%g170826170842%_)))))) + (gx#stx-e _%tl169858169878%_)))) + (let ((_%hd169862169884%_ + (let () + (declare (not safe)) + (##car _%e169863169881%_))) + (_%tl169861169886%_ + (let () + (declare (not safe)) + (##cdr _%e169863169881%_)))) + ((lambda (_%L169889%_ _%L169890%_) + (let ((_%self169903%_ + (list-ref + _%L169890%_ + _%self-index169598%_))) + (for-each + (lambda (_%g169904169906%_) + (gxc#apply-collect-object-refs__% + '#f + _%self169903%_ + _%method-calls167626%_ + _%slot-refs167627%_ + _%g169904169906%_)) + _%L169889%_))) + _%tl169861169886%_ + _%hd169862169884%_))) + (_%g169854169868%_ _%g169855169871%_)))) + (_%g169854169868%_ _%g169855169871%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g170824170880%_ - _%L170800%_)) - (let* ((_%g170883170902%_ - (lambda (_%g170884170899%_) - (let () + (_%g169853169909%_ + _%L169829%_)) + (let* ((_%g169912169931%_ + (lambda (_%g169913169928%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g169913169928%_)))) + (_%g169911170036%_ + (lambda (_%g169913169934%_) + (if (let () (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g170884170899%_)))) - (_%g170882171007%_ - (lambda (_%g170884170905%_) - (if (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#stx-pair? _%g170884170905%_)) - (let ((_%e170888170907%_ - (let () - (declare (not safe)) - (gx#stx-e _%g170884170905%_)))) - (let ((_%hd170887170910%_ - (let () - (declare (not safe)) - (##car _%e170888170907%_))) - (_%tl170886170912%_ - (let () - (declare (not safe)) - (##cdr _%e170888170907%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair/null? _%tl170886170912%_)) - (let ((_g172630_ - (let () - (declare (not safe)) - (gx#syntax-split-splice - _%tl170886170912%_ - '0)))) - (begin - (let ((_g172631_ - (let () - (declare (not safe)) - (if (##values? _g172630_) - (##vector-length _g172630_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g172631_ 2))) - (error "Context expects 2 values" - _g172631_))) - (let ((_%target170889170915%_ - (let () - (declare (not safe)) - (##vector-ref _g172630_ 0))) - (_%tl170891170917%_ - (let () - (declare (not safe)) - (##vector-ref _g172630_ 1)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl170891170917%_)) - (letrec ((_%loop170892170920%_ - (lambda (_%hd170890170923%_ - _%clause170896170925%_) - (if (let () - (declare - (not safe)) - (gx#stx-pair? - _%hd170890170923%_)) - (let ((_%e170893170928%_ + (gx#stx-pair? + _%g169913169934%_)) + (let ((_%e169917169936%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gx#stx-e _%hd170890170923%_)))) - (let ((_%lp-hd170894170931%_ - (let () - (declare (not safe)) - (##car _%e170893170928%_))) - (_%lp-tl170895170933%_ (let () (declare (not safe)) - (##cdr _%e170893170928%_)))) - (let ((__tmp172632 - (cons _%lp-hd170894170931%_ - _%clause170896170925%_))) - (declare (not safe)) - (_%loop170892170920%_ - _%lp-tl170895170933%_ - __tmp172632)))) - (let ((_%clause170897170936%_ - (reverse _%clause170896170925%_))) - ((lambda (_%L170939%_) - (for-each - (lambda (_%clause170952%_) - (let* ((_%g170954170965%_ - (lambda (_%g170955170962%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g170955170962%_)))) - (_%g170953170997%_ - (lambda (_%g170955170968%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%g170955170968%_)) - (let ((_%e170960170970%_ - (let () - (declare (not safe)) - (gx#stx-e - _%g170955170968%_)))) - (let ((_%hd170959170973%_ - (let () - (declare (not safe)) - (##car _%e170960170970%_))) - (_%tl170958170975%_ - (let () - (declare (not safe)) - (##cdr _%e170960170970%_)))) - ((lambda (_%L170978%_ _%L170979%_) - (let ((_%self170991%_ - (list-ref - _%L170979%_ - _%self-index170569%_))) - (for-each - (lambda (_%g170992170994%_) - (let () - (declare (not safe)) - (gxc#apply-collect-object-refs__% - '#f - _%self170991%_ - _%method-calls168597%_ - _%slot-refs168598%_ - _%g170992170994%_))) - _%L170978%_))) - _%tl170958170975%_ - _%hd170959170973%_))) - (let () - (declare (not safe)) - (_%g170954170965%_ - _%g170955170968%_)))))) - (declare (not safe)) - (_%g170953170997%_ _%clause170952%_))) - (let ((__tmp172633 - (lambda (_%g170999171002%_ _%g171000171004%_) - (cons _%g170999171002%_ _%g171000171004%_)))) - (declare (not safe)) - (__foldr1 __tmp172633 '() _%L170939%_)))) - _%clause170897170936%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop170892170920%_ - _%target170889170915%_ - '()))) - (let () - (declare (not safe)) - (_%g170883170902%_ - _%g170884170905%_)))))) - (let () - (declare (not safe)) - (_%g170883170902%_ _%g170884170905%_))))) - (let () - (declare (not safe)) - (_%g170883170902%_ _%g170884170905%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g170882171007%_ - _%L170799%_)) - (if (let () - (declare (not safe)) - (_%no-specializer?168601%_)) - _%stx168505%_ - (let* ((_%specializer-id171016%_ - (let* ((_%id171010%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp172634 - (let () - (declare (not safe)) - (gx#stx-e _%L168578%_)))) - (declare (not safe)) - (make-symbol__1 __tmp172634 '"::specialize"))) - (_%specializer-id171013%_ - (let ((__tmp172635 - (let () - (declare (not safe)) - (gx#stx-source _%stx168505%_)))) - (declare (not safe)) - (gx#core-quote-syntax__1 - _%id171010%_ - __tmp172635)))) - (let () - (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id171013%_)) - _%specializer-id171013%_)) - (_%$klass171018%_ - (let ((__tmp172636 + (gx#stx-e _%g169913169934%_)))) + (let ((_%hd169916169939%_ (let () (declare (not safe)) - (##gensym '__klass)))) - (declare (not safe)) - (make-symbol__0 __tmp172636))) - (_%$method-table171020%_ - (let ((__tmp172637 + (##car _%e169917169936%_))) + (_%tl169915169941%_ (let () (declare (not safe)) - (##gensym '__method-table)))) - (declare (not safe)) - (make-symbol__0 __tmp172637))) - (_%methods171022%_ - (let () - (declare (not safe)) - (hash-keys _%method-calls168597%_))) - (_%$methods171026%_ - (map (lambda (_%id171024%_) - (let ((__tmp172638 (gensym _%id171024%_))) - (declare (not safe)) - (make-symbol__1 '"__" __tmp172638))) - _%methods171022%_)) - (_%_171035%_ - (for-each - (lambda (_%g171027171030%_ _%g171028171032%_) - (let () - (declare (not safe)) - (hash-put! - _%method-calls168597%_ - _%g171027171030%_ - _%g171028171032%_))) - _%methods171022%_ - _%$methods171026%_)) - (_%methods-bind171045%_ - (map (lambda (_%g171037171040%_ _%g171038171042%_) - (let () - (declare (not safe)) - (_%generate-method-bind168507%_ - _%$klass171018%_ - _%$method-table171020%_ - _%g171037171040%_ - _%g171038171042%_))) - _%methods171022%_ - _%$methods171026%_)) - (_%slots171047%_ - (let () - (declare (not safe)) - (hash-keys _%slot-refs168598%_))) - (_%$slots171051%_ - (map (lambda (_%id171049%_) - (let ((__tmp172639 (gensym _%id171049%_))) - (declare (not safe)) - (make-symbol__1 '"__" __tmp172639))) - _%slots171047%_)) - (_%_171060%_ - (for-each - (lambda (_%g171052171055%_ _%g171053171057%_) - (let () - (declare (not safe)) - (hash-put! - _%slot-refs168598%_ - _%g171052171055%_ - _%g171053171057%_))) - _%slots171047%_ - _%$slots171051%_)) - (_%slots-bind171069%_ - (map (lambda (_%g171061171064%_ _%g171062171066%_) - (let () - (declare (not safe)) - (_%generate-slot-bind168508%_ - _%$klass171018%_ - _%g171061171064%_ - _%g171062171066%_))) - _%slots171047%_ - _%$slots171051%_)) - (_%specializer-lambda-expr171142%_ - (let* ((_%g171071171085%_ - (lambda (_%g171072171082%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g171072171082%_)))) - (_%g171070171139%_ - (lambda (_%g171072171088%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%g171072171088%_)) - (let ((_%e171077171090%_ - (let () - (declare (not safe)) - (gx#stx-e _%g171072171088%_)))) - (let ((_%hd171076171093%_ - (let () - (declare (not safe)) - (##car _%e171077171090%_))) - (_%tl171075171095%_ - (let () - (declare (not safe)) - (##cdr _%e171077171090%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl171075171095%_)) - (let ((_%e171080171098%_ - (let () - (declare (not safe)) - (gx#stx-e - _%tl171075171095%_)))) - (let ((_%hd171079171101%_ - (let () - (declare (not safe)) - (##car _%e171080171098%_))) - (_%tl171078171103%_ - (let () - (declare (not safe)) - (##cdr _%e171080171098%_)))) - ((lambda (_%L171106%_ - _%L171107%_) - (let* ((_%self171130%_ - (list-ref - _%L171107%_ - _%self-index170569%_)) - (_%body171136%_ - (map (lambda (_%g171131171133%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gxc#apply-subst-object-refs__% - '#f - _%self171130%_ - _%$klass171018%_ - _%method-calls168597%_ - _%slot-refs168598%_ - _%g171131171133%_))) - _%L171106%_)) - (__tmp172640 - (cons '%#lambda (cons _%L171107%_ _%body171136%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp172640 - _%L170800%_))) - _%tl171078171103%_ - _%hd171079171101%_))) - (let () - (declare (not safe)) - (_%g171071171085%_ - _%g171072171088%_))))) - (let () - (declare (not safe)) - (_%g171071171085%_ - _%g171072171088%_)))))) - (declare (not safe)) - (_%g171070171139%_ _%L170800%_))) - (_%specializer-case-lambda-expr171277%_ - (let* ((_%g171144171163%_ - (lambda (_%g171145171160%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g171145171160%_)))) - (_%g171143171274%_ - (lambda (_%g171145171166%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%g171145171166%_)) - (let ((_%e171149171168%_ - (let () - (declare (not safe)) - (gx#stx-e _%g171145171166%_)))) - (let ((_%hd171148171171%_ - (let () - (declare (not safe)) - (##car _%e171149171168%_))) - (_%tl171147171173%_ - (let () - (declare (not safe)) - (##cdr _%e171149171168%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair/null? - _%tl171147171173%_)) - (let ((_g172641_ - (let () - (declare (not safe)) - (gx#syntax-split-splice - _%tl171147171173%_ - '0)))) - (begin - (let ((_g172642_ - (let () - (declare (not safe)) - (if (##values? - _g172641_) - (##vector-length - _g172641_) - 1)))) - (if (not (let () - (declare - (not safe)) - (##fx= _g172642_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - 2))) - (error "Context expects 2 values" _g172642_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target171150171176%_ - (let () - (declare (not safe)) - (##vector-ref - _g172641_ - 0))) - (_%tl171152171178%_ - (let () - (declare (not safe)) - (##vector-ref - _g172641_ - 1)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl171152171178%_)) - (letrec ((_%loop171153171181%_ - (lambda (_%hd171151171184%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause171157171186%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd171151171184%_)) - (let ((_%e171154171189%_ - (let () - (declare (not safe)) - (gx#stx-e _%hd171151171184%_)))) - (let ((_%lp-hd171155171192%_ + (##cdr _%e169917169936%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? _%tl169915169941%_)) + (let ((_g171655_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _%tl169915169941%_ + '0)))) + (begin + (let ((_g171656_ (let () (declare (not safe)) - (##car _%e171154171189%_))) - (_%lp-tl171156171194%_ + (if (##values? _g171655_) + (##vector-length _g171655_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g171656_ 2))) + (error "Context expects 2 values" + _g171656_))) + (let ((_%target169918169944%_ (let () (declare (not safe)) - (##cdr _%e171154171189%_)))) - (let ((__tmp172643 - (cons _%lp-hd171155171192%_ - _%clause171157171186%_))) - (declare (not safe)) - (_%loop171153171181%_ - _%lp-tl171156171194%_ - __tmp172643)))) - (let ((_%clause171158171197%_ - (reverse _%clause171157171186%_))) - ((lambda (_%L171200%_) - (let* ((_%clauses171272%_ - (map (lambda (_%clause171214%_) - (let* ((_%g171216171227%_ - (lambda (_%g171217171224%_) - (let () - (declare - (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g171217171224%_)))) - (_%g171215171262%_ - (lambda (_%g171217171230%_) - (if (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#stx-pair? _%g171217171230%_)) - (let ((_%e171222171232%_ - (let () - (declare (not safe)) - (gx#stx-e _%g171217171230%_)))) - (let ((_%hd171221171235%_ - (let () - (declare (not safe)) - (##car _%e171222171232%_))) - (_%tl171220171237%_ - (let () - (declare (not safe)) - (##cdr _%e171222171232%_)))) - ((lambda (_%L171240%_ _%L171241%_) - (let* ((_%self171253%_ - (list-ref - _%L171241%_ - _%self-index170569%_)) - (_%body171259%_ - (map (lambda (_%g171254171256%_) - (let () - (declare (not safe)) - (gxc#apply-subst-object-refs__% - '#f - _%self171253%_ - _%$klass171018%_ - _%method-calls168597%_ - _%slot-refs168598%_ - _%g171254171256%_))) - _%L171240%_))) - (cons _%L171241%_ _%body171259%_))) - _%tl171220171237%_ - _%hd171221171235%_))) - (let () - (declare (not safe)) - (_%g171216171227%_ _%g171217171230%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g171215171262%_ - _%clause171214%_))) - (let ((__tmp172644 - (lambda (_%g171264171267%_ - _%g171265171269%_) - (cons _%g171264171267%_ - _%g171265171269%_)))) - (declare (not safe)) - (__foldr1 - __tmp172644 - '() - _%L171200%_)))) - (__tmp172645 - (cons '%#case-lambda - _%clauses171272%_))) - (declare (not safe)) - (gxc#xform-wrap-source - __tmp172645 - _%L170799%_))) - _%clause171158171197%_)))))) - (let () - (declare (not safe)) - (_%loop171153171181%_ _%target171150171176%_ '()))) - (let () - (declare (not safe)) - (_%g171144171163%_ _%g171145171166%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g171144171163%_ - _%g171145171166%_))))) - (let () - (declare (not safe)) - (_%g171144171163%_ - _%g171145171166%_)))))) - (declare (not safe)) - (_%g171143171274%_ _%L170799%_))) - (_%specializer-impl171279%_ - (let ((__tmp172646 - (cons '%#let-values - (cons (cons (cons (cons _%L170269%_ '()) - (cons (cons '%#let-values -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L170268%_ '()) - (cons (let ((__tmp172647 - (cons '%#let-values - (cons (cons (cons (cons _%L170801%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _%specializer-lambda-expr171142%_ - '())) - '()) - (cons _%specializer-case-lambda-expr171277%_ - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp172647 - _%stx168505%_)) - '())) - '()) - (cons _%L170266%_ '()))) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - (cons _%L170265%_ '()))))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp172646 _%stx168505%_))) - (_%specializer-impl171281%_ - (let () - (declare (not safe)) - (_%generate-specializer-impl168509%_ - _%$klass171018%_ - _%$method-table171020%_ - _%methods-bind171045%_ - _%slots-bind171069%_ - _%specializer-impl171279%_)))) - (let ((__tmp172649 - (let () (declare (not safe)) (gx#stx-e _%L168578%_))) - (__tmp172648 - (let () - (declare (not safe)) - (gx#stx-e _%specializer-id171016%_)))) - (declare (not safe)) - (gxc#verbose - '"generate method specializer " - __tmp172649 - '" => " - __tmp172648)) - (let () - (declare (not safe)) - (_%generate-specializer-def168510%_ - _%L168578%_ - _%specializer-id171016%_ - _%specializer-impl171281%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd170732170794%_ - _%hd170729170786%_ - _%hd170726170778%_) - (let () - (declare (not safe)) - (_%g170708170738%_ - _%g170709170741%_))))) + (##vector-ref _g171655_ 0))) + (_%tl169920169946%_ (let () (declare (not safe)) - (_%g170708170738%_ - _%g170709170741%_))) - (let () - (declare (not safe)) - (_%g170708170738%_ _%g170709170741%_))) - (let () - (declare (not safe)) - (_%g170708170738%_ _%g170709170741%_))))) + (##vector-ref _g171655_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl169920169946%_)) + (letrec ((_%loop169921169949%_ + (lambda (_%hd169919169952%_ + _%clause169925169954%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%hd169919169952%_)) + (let ((_%e169922169957%_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _%hd169919169952%_)))) + (let ((_%lp-hd169923169960%_ + (let () (declare (not safe)) (##car _%e169922169957%_))) + (_%lp-tl169924169962%_ (let () (declare (not safe)) - (_%g170708170738%_ _%g170709170741%_))) - (let () - (declare (not safe)) - (_%g170708170738%_ _%g170709170741%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g170708170738%_ - _%g170709170741%_))))) + (##cdr _%e169922169957%_)))) + (_%loop169921169949%_ + _%lp-tl169924169962%_ + (cons _%lp-hd169923169960%_ _%clause169925169954%_)))) + (let ((_%clause169926169965%_ (reverse _%clause169925169954%_))) + ((lambda (_%L169968%_) + (for-each + (lambda (_%clause169981%_) + (let* ((_%g169983169994%_ + (lambda (_%g169984169991%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g169984169991%_)))) + (_%g169982170026%_ + (lambda (_%g169984169997%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%g169984169997%_)) + (let ((_%e169989169999%_ (let () (declare (not safe)) - (_%g170708170738%_ - _%g170709170741%_))))) - (let () - (declare (not safe)) - (_%g170708170738%_ _%g170709170741%_))))) - (let () - (declare (not safe)) - (_%g170708170738%_ _%g170709170741%_))))) - (let () - (declare (not safe)) - (_%g170708170738%_ _%g170709170741%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#stx-e _%g169984169997%_)))) + (let ((_%hd169988170002%_ + (let () (declare (not safe)) - (_%g170707171284%_ - _%L170267%_))) - (let () _%stx168505%_))))) - _%hd170365170488%_ - _%kw-ref170363170509%_ - _%hd170353170475%_ - _%hd170344170451%_ - _%hd170335170427%_) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_)))))))) + (##car _%e169989169999%_))) + (_%tl169987170004%_ + (let () + (declare (not safe)) + (##cdr _%e169989169999%_)))) + ((lambda (_%L170007%_ _%L170008%_) + (let ((_%self170020%_ + (list-ref + _%L170008%_ + _%self-index169598%_))) + (for-each + (lambda (_%g170021170023%_) + (gxc#apply-collect-object-refs__% + '#f + _%self170020%_ + _%method-calls167626%_ + _%slot-refs167627%_ + _%g170021170023%_)) + _%L170007%_))) + _%tl169987170004%_ + _%hd169988170002%_))) + (_%g169983169994%_ _%g169984169997%_))))) + (_%g169982170026%_ _%clause169981%_))) + (let ((__tmp171657 + (lambda (_%g170028170031%_ _%g170029170033%_) + (cons _%g170028170031%_ _%g170029170033%_)))) + (declare (not safe)) + (__foldr1 __tmp171657 '() _%L169968%_)))) + _%clause169926169965%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop170358170493%_ - _%target170355170480%_ - '()))) - (let () - (declare (not safe)) - (_%g170309170371%_ - _%g170310170374%_))))) - (let () - (declare (not safe)) - (_%g170309170371%_ - _%g170310170374%_)))))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))) + (_%loop169921169949%_ + _%target169918169944%_ + '())) + (_%g169912169931%_ _%g169913169934%_))))) + (_%g169912169931%_ _%g169913169934%_)))) + (_%g169912169931%_ _%g169913169934%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g170309170371%_ - _%g170310170374%_))) - (let () - (declare (not safe)) - (_%g170309170371%_ - _%g170310170374%_))))) - (let () - (declare (not safe)) - (_%g170309170371%_ - _%g170310170374%_))))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))) - (let () + (_%g169911170036%_ + _%L169828%_)) + (if (_%no-specializer?167630%_) + _%stx167534%_ + (let* ((_%specializer-id170045%_ + (let* ((_%id170039%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp171658 + (let () + (declare (not safe)) + (gx#stx-e _%L167607%_)))) (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g170309170371%_ - _%g170310170374%_))))) - (let () - (declare (not safe)) - (_%g170309170371%_ - _%g170310170374%_))))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g170309170371%_ - _%g170310170374%_))))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g170309170371%_ - _%g170310170374%_))) - (let () - (declare (not safe)) - (_%g170309170371%_ - _%g170310170374%_))) - (let () - (declare (not safe)) - (_%g170309170371%_ - _%g170310170374%_))))) - (let () - (declare (not safe)) - (_%g170309170371%_ _%g170310170374%_)))))) - (declare (not safe)) - (_%g170308171288%_ _%L170266%_))) - _%hd170142170260%_ - _%hd170139170252%_ - _%hd170136170244%_ - _%hd170133170236%_ - _%hd170115170188%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g170095170148%_ - _%g170096170151%_))))) - (let () - (declare (not safe)) - (_%g170095170148%_ - _%g170096170151%_))) - (let () - (declare (not safe)) - (_%g170095170148%_ - _%g170096170151%_))) - (let () - (declare (not safe)) - (_%g170095170148%_ _%g170096170151%_))) + (make-symbol__1 __tmp171658 '"::specialize"))) + (_%specializer-id170042%_ + (let ((__tmp171659 (let () (declare (not safe)) - (_%g170095170148%_ _%g170096170151%_))))) + (gx#stx-source _%stx167534%_)))) + (declare (not safe)) + (gx#core-quote-syntax__1 + _%id170039%_ + __tmp171659)))) + (let () + (declare (not safe)) + (gx#core-bind-runtime!__0 _%specializer-id170042%_)) + _%specializer-id170042%_)) + (_%$klass170047%_ + (let ((__tmp171660 + (let () (declare (not safe)) (##gensym '__klass)))) + (declare (not safe)) + (make-symbol__0 __tmp171660))) + (_%$method-table170049%_ + (let ((__tmp171661 (let () (declare (not safe)) - (_%g170095170148%_ _%g170096170151%_))) + (##gensym '__method-table)))) + (declare (not safe)) + (make-symbol__0 __tmp171661))) + (_%methods170051%_ + (let () + (declare (not safe)) + (hash-keys _%method-calls167626%_))) + (_%$methods170055%_ + (map (lambda (_%id170053%_) + (let ((__tmp171662 (gensym _%id170053%_))) + (declare (not safe)) + (make-symbol__1 '"__" __tmp171662))) + _%methods170051%_)) + (_%_170064%_ + (for-each + (lambda (_%g170056170059%_ _%g170057170061%_) (let () (declare (not safe)) - (_%g170095170148%_ _%g170096170151%_))) - (let () - (declare (not safe)) - (_%g170095170148%_ _%g170096170151%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g170095170148%_ - _%g170096170151%_))) - (let () - (declare (not safe)) - (_%g170095170148%_ - _%g170096170151%_))))) - (let () - (declare (not safe)) - (_%g170095170148%_ - _%g170096170151%_))))) - (let () - (declare (not safe)) - (_%g170095170148%_ _%g170096170151%_))))) + (hash-put! + _%method-calls167626%_ + _%g170056170059%_ + _%g170057170061%_))) + _%methods170051%_ + _%$methods170055%_)) + (_%methods-bind170074%_ + (map (lambda (_%g170066170069%_ _%g170067170071%_) + (_%generate-method-bind167536%_ + _%$klass170047%_ + _%$method-table170049%_ + _%g170066170069%_ + _%g170067170071%_)) + _%methods170051%_ + _%$methods170055%_)) + (_%slots170076%_ + (let () + (declare (not safe)) + (hash-keys _%slot-refs167627%_))) + (_%$slots170080%_ + (map (lambda (_%id170078%_) + (let ((__tmp171663 (gensym _%id170078%_))) + (declare (not safe)) + (make-symbol__1 '"__" __tmp171663))) + _%slots170076%_)) + (_%_170089%_ + (for-each + (lambda (_%g170081170084%_ _%g170082170086%_) (let () (declare (not safe)) - (_%g170095170148%_ _%g170096170151%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g170095170148%_ - _%g170096170151%_))) + (hash-put! + _%slot-refs167627%_ + _%g170081170084%_ + _%g170082170086%_))) + _%slots170076%_ + _%$slots170080%_)) + (_%slots-bind170098%_ + (map (lambda (_%g170090170093%_ _%g170091170095%_) + (_%generate-slot-bind167537%_ + _%$klass170047%_ + _%g170090170093%_ + _%g170091170095%_)) + _%slots170076%_ + _%$slots170080%_)) + (_%specializer-lambda-expr170171%_ + (let* ((_%g170100170114%_ + (lambda (_%g170101170111%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g170101170111%_)))) + (_%g170099170168%_ + (lambda (_%g170101170117%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%g170101170117%_)) + (let ((_%e170106170119%_ + (let () + (declare (not safe)) + (gx#stx-e _%g170101170117%_)))) + (let ((_%hd170105170122%_ + (let () + (declare (not safe)) + (##car _%e170106170119%_))) + (_%tl170104170124%_ + (let () + (declare (not safe)) + (##cdr _%e170106170119%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl170104170124%_)) + (let ((_%e170109170127%_ + (let () + (declare (not safe)) + (gx#stx-e + _%tl170104170124%_)))) + (let ((_%hd170108170130%_ (let () (declare (not safe)) - (_%g170095170148%_ - _%g170096170151%_))) - (let () - (declare (not safe)) - (_%g170095170148%_ - _%g170096170151%_))))) - (let () - (declare (not safe)) - (_%g170095170148%_ - _%g170096170151%_))))) - (let () - (declare (not safe)) - (_%g170095170148%_ _%g170096170151%_))) - (let () - (declare (not safe)) - (_%g170095170148%_ _%g170096170151%_))))) - (let () - (declare (not safe)) - (_%g170095170148%_ _%g170096170151%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (##car _%e170109170127%_))) + (_%tl170107170132%_ (let () (declare (not safe)) - (_%g170095170148%_ - _%g170096170151%_))))) + (##cdr _%e170109170127%_)))) + ((lambda (_%L170135%_ _%L170136%_) + (let* ((_%self170159%_ + (list-ref + _%L170136%_ + _%self-index169598%_)) + (_%body170165%_ + (map (lambda (_%g170160170162%_) + (gxc#apply-subst-object-refs__% + '#f + _%self170159%_ + _%$klass170047%_ + _%method-calls167626%_ + _%slot-refs167627%_ + _%g170160170162%_)) + _%L170135%_)) + (__tmp171664 + (cons '%#lambda + (cons _%L170136%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body170165%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp171664 + _%L169829%_))) + _%tl170107170132%_ + _%hd170108170130%_))) + (_%g170100170114%_ + _%g170101170117%_)))) + (_%g170100170114%_ _%g170101170117%_))))) + (_%g170099170168%_ _%L169829%_))) + (_%specializer-case-lambda-expr170306%_ + (let* ((_%g170173170192%_ + (lambda (_%g170174170189%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g170174170189%_)))) + (_%g170172170303%_ + (lambda (_%g170174170195%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%g170174170195%_)) + (let ((_%e170178170197%_ + (let () + (declare (not safe)) + (gx#stx-e _%g170174170195%_)))) + (let ((_%hd170177170200%_ (let () (declare (not safe)) - (_%g170095170148%_ - _%g170096170151%_))))) + (##car _%e170178170197%_))) + (_%tl170176170202%_ + (let () + (declare (not safe)) + (##cdr _%e170178170197%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _%tl170176170202%_)) + (let ((_g171665_ + (let () + (declare (not safe)) + (gx#syntax-split-splice + _%tl170176170202%_ + '0)))) + (begin + (let ((_g171666_ + (let () + (declare (not safe)) + (if (##values? _g171665_) + (##vector-length + _g171665_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g171666_ 2))) + (error "Context expects 2 values" + _g171666_))) + (let ((_%target170179170205%_ + (let () + (declare (not safe)) + (##vector-ref + _g171665_ + 0))) + (_%tl170181170207%_ + (let () + (declare (not safe)) + (##vector-ref + _g171665_ + 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _%tl170181170207%_)) + (letrec ((_%loop170182170210%_ + (lambda (_%hd170180170213%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clause170186170215%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd170180170213%_)) + (let ((_%e170183170218%_ (let () (declare (not safe)) - (_%g170095170148%_ _%g170096170151%_))) + (gx#stx-e _%hd170180170213%_)))) + (let ((_%lp-hd170184170221%_ + (let () + (declare (not safe)) + (##car _%e170183170218%_))) + (_%lp-tl170185170223%_ + (let () + (declare (not safe)) + (##cdr _%e170183170218%_)))) + (_%loop170182170210%_ + _%lp-tl170185170223%_ + (cons _%lp-hd170184170221%_ + _%clause170186170215%_)))) + (let ((_%clause170187170226%_ + (reverse _%clause170186170215%_))) + ((lambda (_%L170229%_) + (let* ((_%clauses170301%_ + (map (lambda (_%clause170243%_) + (let* ((_%g170245170256%_ + (lambda (_%g170246170253%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g170246170253%_)))) + (_%g170244170291%_ + (lambda (_%g170246170259%_) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _%g170246170259%_)) + (let ((_%e170251170261%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#stx-e _%g170246170259%_)))) + (let ((_%hd170250170264%_ (let () (declare (not safe)) - (_%g170095170148%_ _%g170096170151%_))) - (let () - (declare (not safe)) - (_%g170095170148%_ _%g170096170151%_))))) - (let () - (declare (not safe)) - (_%g170095170148%_ _%g170096170151%_)))))) + (##car _%e170251170261%_))) + (_%tl170249170266%_ + (let () + (declare (not safe)) + (##cdr _%e170251170261%_)))) + ((lambda (_%L170269%_ _%L170270%_) + (let* ((_%self170282%_ + (list-ref _%L170270%_ _%self-index169598%_)) + (_%body170288%_ + (map (lambda (_%g170283170285%_) + (gxc#apply-subst-object-refs__% + '#f + _%self170282%_ + _%$klass170047%_ + _%method-calls167626%_ + _%slot-refs167627%_ + _%g170283170285%_)) + _%L170269%_))) + (cons _%L170270%_ _%body170288%_))) + _%tl170249170266%_ + _%hd170250170264%_))) + (_%g170245170256%_ _%g170246170259%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g170094171291%_ _%L168577%_))) - (let () _%stx168505%_))))))))) - (_%__kont171514171515%_ (lambda () _%stx168505%_))) - (let ((_%__match171543171544%_ - (lambda (_%e168519168545%_ - _%hd168518168548%_ - _%tl168517168550%_ - _%e168522168553%_ - _%hd168521168556%_ - _%tl168520168558%_ - _%e168525168561%_ - _%hd168524168564%_ - _%tl168523168566%_ - _%e168528168569%_ - _%hd168527168572%_ - _%tl168526168574%_) - (let ((_%L168577%_ _%hd168527168572%_) - (_%L168578%_ _%hd168524168564%_)) - (if (let ((__tmp172650 + (_%g170244170291%_ + _%clause170243%_))) + (let ((__tmp171667 + (lambda (_%g170293170296%_ + _%g170294170298%_) + (cons _%g170293170296%_ + _%g170294170298%_)))) + (declare (not safe)) + (__foldr1 + __tmp171667 + '() + _%L170229%_)))) + (__tmp171668 + (cons '%#case-lambda + _%clauses170301%_))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp171668 + _%L169828%_))) + _%clause170187170226%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop170182170210%_ + _%target170179170205%_ + '())) + (_%g170173170192%_ + _%g170174170195%_))))) + (_%g170173170192%_ + _%g170174170195%_)))) + (_%g170173170192%_ _%g170174170195%_))))) + (_%g170172170303%_ _%L169828%_))) + (_%specializer-impl170308%_ + (let ((__tmp171669 + (cons '%#let-values + (cons (cons (cons (cons _%L169298%_ '()) + (cons (cons '%#let-values + (cons (cons (cons (cons _%L169297%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '()) + (cons (let ((__tmp171670 + (cons '%#let-values + (cons (cons (cons (cons _%L169830%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '()) + (cons _%specializer-lambda-expr170171%_ + '())) + '()) + (cons _%specializer-case-lambda-expr170306%_ '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp171670 + _%stx167534%_)) + '())) + '()) + (cons _%L169295%_ '()))) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()) + (cons _%L169294%_ '()))))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp171669 _%stx167534%_))) + (_%specializer-impl170310%_ + (_%generate-specializer-impl167538%_ + _%$klass170047%_ + _%$method-table170049%_ + _%methods-bind170074%_ + _%slots-bind170098%_ + _%specializer-impl170308%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp171672 + (let () + (declare + (not safe)) + (gx#stx-e + _%L167607%_))) + (__tmp171671 + (let () + (declare + (not safe)) + (gx#stx-e + _%specializer-id170045%_)))) + (declare (not safe)) + (gxc#verbose + '"generate method specializer " + __tmp171672 + '" => " + __tmp171671)) + (_%generate-specializer-def167539%_ + _%L167607%_ + _%specializer-id170045%_ + _%specializer-impl170310%_)))) + _%hd169761169823%_ + _%hd169758169815%_ + _%hd169755169807%_) + (_%g169737169767%_ + _%g169738169770%_)))) + (_%g169737169767%_ _%g169738169770%_)) + (_%g169737169767%_ _%g169738169770%_)) + (_%g169737169767%_ _%g169738169770%_)))) + (_%g169737169767%_ _%g169738169770%_)) + (_%g169737169767%_ _%g169738169770%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g169737169767%_ + _%g169738169770%_)))) + (_%g169737169767%_ _%g169738169770%_)))) + (_%g169737169767%_ _%g169738169770%_)))) + (_%g169737169767%_ _%g169738169770%_)))) + (_%g169737169767%_ _%g169738169770%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g169736170313%_ _%L169296%_)) + _%stx167534%_)))) + _%hd169394169517%_ + _%kw-ref169392169538%_ + _%hd169382169504%_ + _%hd169373169480%_ + _%hd169364169456%_) + (_%g169338169400%_ _%g169339169403%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop169387169522%_ + _%target169384169509%_ + '())) + (_%g169338169400%_ + _%g169339169403%_)))) + (_%g169338169400%_ _%g169339169403%_))))) + (_%g169338169400%_ _%g169339169403%_)) + (_%g169338169400%_ _%g169339169403%_)) + (_%g169338169400%_ _%g169339169403%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g169338169400%_ + _%g169339169403%_)) + (_%g169338169400%_ + _%g169339169403%_)) + (_%g169338169400%_ + _%g169339169403%_)))) + (_%g169338169400%_ _%g169339169403%_)))) + (_%g169338169400%_ _%g169339169403%_)) + (_%g169338169400%_ _%g169339169403%_)))) + (_%g169338169400%_ _%g169339169403%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g169338169400%_ + _%g169339169403%_)) + (_%g169338169400%_ + _%g169339169403%_)))) + (_%g169338169400%_ + _%g169339169403%_)))) + (_%g169338169400%_ _%g169339169403%_)) + (_%g169338169400%_ _%g169339169403%_)))) + (_%g169338169400%_ _%g169339169403%_)) + (_%g169338169400%_ _%g169339169403%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g169338169400%_ + _%g169339169403%_)))) + (_%g169338169400%_ + _%g169339169403%_)))) + (_%g169338169400%_ _%g169339169403%_)) + (_%g169338169400%_ _%g169339169403%_)) + (_%g169338169400%_ _%g169339169403%_)))) + (_%g169338169400%_ _%g169339169403%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g169338169400%_ + _%g169339169403%_)))) + (_%g169338169400%_ + _%g169339169403%_)) + (_%g169338169400%_ _%g169339169403%_)) + (_%g169338169400%_ _%g169339169403%_)))) + (_%g169338169400%_ _%g169339169403%_))))) + (_%g169337170317%_ _%L169295%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd169171169289%_ + _%hd169168169281%_ + _%hd169165169273%_ + _%hd169162169265%_ + _%hd169144169217%_) + (_%g169124169177%_ + _%g169125169180%_)))) + (_%g169124169177%_ + _%g169125169180%_)) + (_%g169124169177%_ _%g169125169180%_)) + (_%g169124169177%_ _%g169125169180%_)) + (_%g169124169177%_ _%g169125169180%_)))) + (_%g169124169177%_ _%g169125169180%_)) + (_%g169124169177%_ _%g169125169180%_)) + (_%g169124169177%_ _%g169125169180%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g169124169177%_ + _%g169125169180%_)) + (_%g169124169177%_ + _%g169125169180%_)))) + (_%g169124169177%_ _%g169125169180%_)))) + (_%g169124169177%_ _%g169125169180%_)))) + (_%g169124169177%_ _%g169125169180%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g169124169177%_ + _%g169125169180%_)) + (_%g169124169177%_ + _%g169125169180%_)) + (_%g169124169177%_ + _%g169125169180%_)))) + (_%g169124169177%_ _%g169125169180%_)))) + (_%g169124169177%_ _%g169125169180%_)) + (_%g169124169177%_ _%g169125169180%_)))) + (_%g169124169177%_ _%g169125169180%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g169124169177%_ + _%g169125169180%_)))) + (_%g169124169177%_ _%g169125169180%_)))) + (_%g169124169177%_ _%g169125169180%_)) + (_%g169124169177%_ _%g169125169180%_)) + (_%g169124169177%_ _%g169125169180%_)))) + (_%g169124169177%_ _%g169125169180%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g169123170320%_ _%L167606%_)) + _%stx167534%_)))))))) + (_%__kont170543170544%_ (lambda () _%stx167534%_))) + (let ((_%__match170572170573%_ + (lambda (_%e167548167574%_ + _%hd167547167577%_ + _%tl167546167579%_ + _%e167551167582%_ + _%hd167550167585%_ + _%tl167549167587%_ + _%e167554167590%_ + _%hd167553167593%_ + _%tl167552167595%_ + _%e167557167598%_ + _%hd167556167601%_ + _%tl167555167603%_) + (let ((_%L167606%_ _%hd167556167601%_) + (_%L167607%_ _%hd167553167593%_)) + (if (let ((__tmp171673 (let () (declare (not safe)) - (gxc#identifier-symbol _%L168578%_)))) + (gxc#identifier-symbol _%L167607%_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp172650)) - (_%__kont171512171513%_ _%L168577%_ _%L168578%_) - (_%__kont171514171515%_)))))) + (gxc#optimizer-top-level-method? __tmp171673)) + (_%__kont170541170542%_ _%L167606%_ _%L167607%_) + (_%__kont170543170544%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx171510171511%_)) - (let ((_%e168519168545%_ + (gx#stx-pair? _%__stx170539170540%_)) + (let ((_%e167548167574%_ (let () (declare (not safe)) - (gx#stx-e _%__stx171510171511%_)))) - (let ((_%tl168517168550%_ + (gx#stx-e _%__stx170539170540%_)))) + (let ((_%tl167546167579%_ (let () (declare (not safe)) - (##cdr _%e168519168545%_))) - (_%hd168518168548%_ + (##cdr _%e167548167574%_))) + (_%hd167547167577%_ (let () (declare (not safe)) - (##car _%e168519168545%_)))) + (##car _%e167548167574%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168517168550%_)) - (let ((_%e168522168553%_ + (gx#stx-pair? _%tl167546167579%_)) + (let ((_%e167551167582%_ (let () (declare (not safe)) - (gx#stx-e _%tl168517168550%_)))) - (let ((_%tl168520168558%_ + (gx#stx-e _%tl167546167579%_)))) + (let ((_%tl167549167587%_ (let () (declare (not safe)) - (##cdr _%e168522168553%_))) - (_%hd168521168556%_ + (##cdr _%e167551167582%_))) + (_%hd167550167585%_ (let () (declare (not safe)) - (##car _%e168522168553%_)))) + (##car _%e167551167582%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd168521168556%_)) - (let ((_%e168525168561%_ + (gx#stx-pair? _%hd167550167585%_)) + (let ((_%e167554167590%_ (let () (declare (not safe)) - (gx#stx-e _%hd168521168556%_)))) - (let ((_%tl168523168566%_ + (gx#stx-e _%hd167550167585%_)))) + (let ((_%tl167552167595%_ (let () (declare (not safe)) - (##cdr _%e168525168561%_))) - (_%hd168524168564%_ + (##cdr _%e167554167590%_))) + (_%hd167553167593%_ (let () (declare (not safe)) - (##car _%e168525168561%_)))) + (##car _%e167554167590%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl168523168566%_)) + _%tl167552167595%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168520168558%_)) - (let ((_%e168528168569%_ + _%tl167549167587%_)) + (let ((_%e167557167598%_ (let () (declare (not safe)) (gx#stx-e - _%tl168520168558%_)))) - (let ((_%tl168526168574%_ + _%tl167549167587%_)))) + (let ((_%tl167555167603%_ (let () (declare (not safe)) - (##cdr _%e168528168569%_))) - (_%hd168527168572%_ + (##cdr _%e167557167598%_))) + (_%hd167556167601%_ (let () (declare (not safe)) - (##car _%e168528168569%_)))) + (##car _%e167557167598%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl168526168574%_)) - (_%__match171543171544%_ - _%e168519168545%_ - _%hd168518168548%_ - _%tl168517168550%_ - _%e168522168553%_ - _%hd168521168556%_ - _%tl168520168558%_ - _%e168525168561%_ - _%hd168524168564%_ - _%tl168523168566%_ - _%e168528168569%_ - _%hd168527168572%_ - _%tl168526168574%_) - (_%__kont171514171515%_)))) - (_%__kont171514171515%_)) - (_%__kont171514171515%_)))) - (_%__kont171514171515%_)))) - (_%__kont171514171515%_)))) - (_%__kont171514171515%_)))))))) + _%tl167555167603%_)) + (_%__match170572170573%_ + _%e167548167574%_ + _%hd167547167577%_ + _%tl167546167579%_ + _%e167551167582%_ + _%hd167550167585%_ + _%tl167549167587%_ + _%e167554167590%_ + _%hd167553167593%_ + _%tl167552167595%_ + _%e167557167598%_ + _%hd167556167601%_ + _%tl167555167603%_) + (_%__kont170543170544%_)))) + (_%__kont170543170544%_)) + (_%__kont170543170544%_)))) + (_%__kont170543170544%_)))) + (_%__kont170543170544%_)))) + (_%__kont170543170544%_)))))))) (define gxc#collect-object-refs-call% - (lambda (_%self167465%_ _%stx167466%_) - (let* ((_%__stx171546171547%_ _%stx167466%_) - (_%g167474167696%_ + (lambda (_%self166494%_ _%stx166495%_) + (let* ((_%__stx170575170576%_ _%stx166495%_) + (_%g166503166725%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx171546171547%_))))) - (let ((_%__kont171548171549%_ - (lambda (_%L168453%_ _%L168454%_ _%L168455%_ _%L168456%_) - (let ((__tmp172652 + _%__stx170575170576%_))))) + (let ((_%__kont170577170578%_ + (lambda (_%L167482%_ _%L167483%_ _%L167484%_ _%L167485%_) + (let ((__tmp171675 (let () (declare (not safe)) - (slot-ref__0 _%self167465%_ 'methods))) - (__tmp172651 + (slot-ref__0 _%self166494%_ 'methods))) + (__tmp171674 (let () (declare (not safe)) - (gx#stx-e _%L168454%_)))) + (gx#stx-e _%L167483%_)))) (declare (not safe)) - (hash-put! __tmp172652 __tmp172651 '#t)) + (hash-put! __tmp171675 __tmp171674 '#t)) (for-each - (lambda (_%g168489168491%_) + (lambda (_%g167518167520%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167465%_ _%g168489168491%_))) - (let ((__tmp172653 - (lambda (_%g168493168496%_ _%g168494168498%_) - (cons _%g168493168496%_ _%g168494168498%_)))) + (gxc#compile-e__1 _%self166494%_ _%g167518167520%_))) + (let ((__tmp171676 + (lambda (_%g167522167525%_ _%g167523167527%_) + (cons _%g167522167525%_ _%g167523167527%_)))) (declare (not safe)) - (__foldr1 __tmp172653 '() _%L168453%_))))) - (_%__kont171552171553%_ - (lambda (_%L168288%_ - _%L168289%_ - _%L168290%_ - _%L168291%_ - _%L168292%_) - (let ((__tmp172655 + (__foldr1 __tmp171676 '() _%L167482%_))))) + (_%__kont170581170582%_ + (lambda (_%L167317%_ + _%L167318%_ + _%L167319%_ + _%L167320%_ + _%L167321%_) + (let ((__tmp171678 (let () (declare (not safe)) - (slot-ref__0 _%self167465%_ 'methods))) - (__tmp172654 + (slot-ref__0 _%self166494%_ 'methods))) + (__tmp171677 (let () (declare (not safe)) - (gx#stx-e _%L168289%_)))) + (gx#stx-e _%L167318%_)))) (declare (not safe)) - (hash-put! __tmp172655 __tmp172654 '#t)) + (hash-put! __tmp171678 __tmp171677 '#t)) (for-each - (lambda (_%g168332168334%_) + (lambda (_%g167361167363%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167465%_ _%g168332168334%_))) - (let ((__tmp172656 - (lambda (_%g168336168339%_ _%g168337168341%_) - (cons _%g168336168339%_ _%g168337168341%_)))) + (gxc#compile-e__1 _%self166494%_ _%g167361167363%_))) + (let ((__tmp171679 + (lambda (_%g167365167368%_ _%g167366167370%_) + (cons _%g167365167368%_ _%g167366167370%_)))) (declare (not safe)) - (__foldr1 __tmp172656 '() _%L168288%_))))) - (_%__kont171556171557%_ - (lambda (_%L168121%_ _%L168122%_ _%L168123%_) - (let ((__tmp172658 + (__foldr1 __tmp171679 '() _%L167317%_))))) + (_%__kont170585170586%_ + (lambda (_%L167150%_ _%L167151%_ _%L167152%_) + (let ((__tmp171681 (let () (declare (not safe)) - (slot-ref__0 _%self167465%_ 'slots))) - (__tmp172657 + (slot-ref__0 _%self166494%_ 'slots))) + (__tmp171680 (let () (declare (not safe)) - (gx#stx-e _%L168121%_)))) + (gx#stx-e _%L167150%_)))) (declare (not safe)) - (hash-put! __tmp172658 __tmp172657 '#t)))) - (_%__kont171558171559%_ - (lambda (_%L167998%_ _%L167999%_ _%L168000%_ _%L168001%_) - (let ((__tmp172660 + (hash-put! __tmp171681 __tmp171680 '#t)))) + (_%__kont170587170588%_ + (lambda (_%L167027%_ _%L167028%_ _%L167029%_ _%L167030%_) + (let ((__tmp171683 (let () (declare (not safe)) - (slot-ref__0 _%self167465%_ 'slots))) - (__tmp172659 + (slot-ref__0 _%self166494%_ 'slots))) + (__tmp171682 (let () (declare (not safe)) - (gx#stx-e _%L167999%_)))) + (gx#stx-e _%L167028%_)))) (declare (not safe)) - (hash-put! __tmp172660 __tmp172659 '#t)) + (hash-put! __tmp171683 __tmp171682 '#t)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167465%_ _%L167998%_)))) - (_%__kont171560171561%_ - (lambda (_%L167872%_ _%L167873%_) - (let* ((_%accessor167895%_ - (let ((__tmp172661 + (gxc#compile-e__1 _%self166494%_ _%L167027%_)))) + (_%__kont170589170590%_ + (lambda (_%L166901%_ _%L166902%_) + (let* ((_%accessor166924%_ + (let ((__tmp171684 (let () (declare (not safe)) - (gxc#identifier-symbol _%L167873%_)))) + (gxc#identifier-symbol _%L166902%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp172661))) - (_%klass167897%_ - (let ((__tmp172662 + (gxc#optimizer-resolve-type __tmp171684))) + (_%klass166926%_ + (let ((__tmp171685 (##structure-ref - _%accessor167895%_ + _%accessor166924%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx167466%_ - __tmp172662))) - (_%slot167899%_ + _%stx166495%_ + __tmp171685))) + (_%slot166928%_ (##structure-ref - _%accessor167895%_ + _%accessor166924%_ '3 gxc#!accessor::t '#f))) - (if (and (let ((__tmp172663 - (##structure-ref - _%accessor167895%_ - '4 - gxc#!accessor::t - '#f))) - (declare (not safe)) - (not __tmp172663)) + (if (and (not (##structure-ref + _%accessor166924%_ + '4 + gxc#!accessor::t + '#f)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass167897%_ - _%slot167899%_)) + _%klass166926%_ + _%slot166928%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass167897%_ + _%klass166926%_ '8 '#f '#f)))) '#!void - (let ((__tmp172665 + (let ((__tmp171687 (let () (declare (not safe)) - (slot-ref__0 _%self167465%_ 'slots))) - (__tmp172664 + (slot-ref__0 _%self166494%_ 'slots))) + (__tmp171686 (##structure-ref - _%accessor167895%_ + _%accessor166924%_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (hash-put! __tmp172665 __tmp172664 '#t)))))) - (_%__kont171562171563%_ - (lambda (_%L167772%_ _%L167773%_ _%L167774%_) - (let* ((_%mutator167801%_ - (let ((__tmp172666 + (hash-put! __tmp171687 __tmp171686 '#t)))))) + (_%__kont170591170592%_ + (lambda (_%L166801%_ _%L166802%_ _%L166803%_) + (let* ((_%mutator166830%_ + (let ((__tmp171688 (let () (declare (not safe)) - (gxc#identifier-symbol _%L167774%_)))) + (gxc#identifier-symbol _%L166803%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp172666))) - (_%klass167803%_ - (let ((__tmp172667 + (gxc#optimizer-resolve-type __tmp171688))) + (_%klass166832%_ + (let ((__tmp171689 (##structure-ref - _%mutator167801%_ + _%mutator166830%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx167466%_ - __tmp172667))) - (_%slot167805%_ + _%stx166495%_ + __tmp171689))) + (_%slot166834%_ (##structure-ref - _%mutator167801%_ + _%mutator166830%_ '3 gxc#!mutator::t '#f))) - (if (and (let ((__tmp172668 - (##structure-ref - _%mutator167801%_ - '4 - gxc#!mutator::t - '#f))) - (declare (not safe)) - (not __tmp172668)) + (if (and (not (##structure-ref + _%mutator166830%_ + '4 + gxc#!mutator::t + '#f)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass167803%_ - _%slot167805%_)) + _%klass166832%_ + _%slot166834%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass167803%_ + _%klass166832%_ '8 '#f '#f)))) '#!void - (let ((__tmp172669 + (let ((__tmp171690 (let () (declare (not safe)) - (slot-ref__0 _%self167465%_ 'slots)))) + (slot-ref__0 _%self166494%_ 'slots)))) (declare (not safe)) - (hash-put! __tmp172669 _%slot167805%_ '#t))) + (hash-put! __tmp171690 _%slot166834%_ '#t))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167465%_ _%L167772%_))))) - (_%__kont171564171565%_ + (gxc#compile-e__1 _%self166494%_ _%L166801%_))))) + (_%__kont170593170594%_ (lambda () (let () (declare (not safe)) - (gxc#apply-operands _%self167465%_ _%stx167466%_))))) - (let* ((_%__match172045172046%_ - (lambda (_%e167670167708%_ - _%hd167669167711%_ - _%tl167668167713%_ - _%e167673167716%_ - _%hd167672167719%_ - _%tl167671167721%_ - _%e167676167724%_ - _%hd167675167727%_ - _%tl167674167729%_ - _%e167679167732%_ - _%hd167678167735%_ - _%tl167677167737%_ - _%e167682167740%_ - _%hd167681167743%_ - _%tl167680167745%_ - _%e167685167748%_ - _%hd167684167751%_ - _%tl167683167753%_ - _%e167688167756%_ - _%hd167687167759%_ - _%tl167686167761%_ - _%e167691167764%_ - _%hd167690167767%_ - _%tl167689167769%_) - (let ((_%L167772%_ _%hd167690167767%_) - (_%L167773%_ _%hd167687167759%_) - (_%L167774%_ _%hd167678167735%_)) - (if (and (let ((__tmp172670 - (let ((__tmp172671 + (gxc#apply-operands _%self166494%_ _%stx166495%_))))) + (let* ((_%__match171074171075%_ + (lambda (_%e166699166737%_ + _%hd166698166740%_ + _%tl166697166742%_ + _%e166702166745%_ + _%hd166701166748%_ + _%tl166700166750%_ + _%e166705166753%_ + _%hd166704166756%_ + _%tl166703166758%_ + _%e166708166761%_ + _%hd166707166764%_ + _%tl166706166766%_ + _%e166711166769%_ + _%hd166710166772%_ + _%tl166709166774%_ + _%e166714166777%_ + _%hd166713166780%_ + _%tl166712166782%_ + _%e166717166785%_ + _%hd166716166788%_ + _%tl166715166790%_ + _%e166720166793%_ + _%hd166719166796%_ + _%tl166718166798%_) + (let ((_%L166801%_ _%hd166719166796%_) + (_%L166802%_ _%hd166716166788%_) + (_%L166803%_ _%hd166707166764%_)) + (if (and (let ((__tmp171691 + (let ((__tmp171692 (let () (declare (not safe)) (gxc#identifier-symbol - _%L167774%_)))) + _%L166803%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp172671)))) + __tmp171692)))) (declare (not safe)) (##structure-instance-of? - __tmp172670 + __tmp171691 'gxc#!mutator::t)) - (let ((__tmp172672 + (let ((__tmp171693 (let () (declare (not safe)) (slot-ref__0 - _%self167465%_ + _%self166494%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L167773%_ - __tmp172672))) - (_%__kont171562171563%_ - _%L167772%_ - _%L167773%_ - _%L167774%_) - (_%__kont171564171565%_))))) - (_%__match172043172044%_ - (lambda (_%e167670167708%_ - _%hd167669167711%_ - _%tl167668167713%_ - _%e167673167716%_ - _%hd167672167719%_ - _%tl167671167721%_ - _%e167676167724%_ - _%hd167675167727%_ - _%tl167674167729%_ - _%e167679167732%_ - _%hd167678167735%_ - _%tl167677167737%_ - _%e167682167740%_ - _%hd167681167743%_ - _%tl167680167745%_ - _%e167685167748%_ - _%hd167684167751%_ - _%tl167683167753%_ - _%e167688167756%_ - _%hd167687167759%_ - _%tl167686167761%_ - _%e167691167764%_ - _%hd167690167767%_ - _%tl167689167769%_) + _%L166802%_ + __tmp171693))) + (_%__kont170591170592%_ + _%L166801%_ + _%L166802%_ + _%L166803%_) + (_%__kont170593170594%_))))) + (_%__match171072171073%_ + (lambda (_%e166699166737%_ + _%hd166698166740%_ + _%tl166697166742%_ + _%e166702166745%_ + _%hd166701166748%_ + _%tl166700166750%_ + _%e166705166753%_ + _%hd166704166756%_ + _%tl166703166758%_ + _%e166708166761%_ + _%hd166707166764%_ + _%tl166706166766%_ + _%e166711166769%_ + _%hd166710166772%_ + _%tl166709166774%_ + _%e166714166777%_ + _%hd166713166780%_ + _%tl166712166782%_ + _%e166717166785%_ + _%hd166716166788%_ + _%tl166715166790%_ + _%e166720166793%_ + _%hd166719166796%_ + _%tl166718166798%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167689167769%_)) - (_%__match172045172046%_ - _%e167670167708%_ - _%hd167669167711%_ - _%tl167668167713%_ - _%e167673167716%_ - _%hd167672167719%_ - _%tl167671167721%_ - _%e167676167724%_ - _%hd167675167727%_ - _%tl167674167729%_ - _%e167679167732%_ - _%hd167678167735%_ - _%tl167677167737%_ - _%e167682167740%_ - _%hd167681167743%_ - _%tl167680167745%_ - _%e167685167748%_ - _%hd167684167751%_ - _%tl167683167753%_ - _%e167688167756%_ - _%hd167687167759%_ - _%tl167686167761%_ - _%e167691167764%_ - _%hd167690167767%_ - _%tl167689167769%_) - (_%__kont171564171565%_)))) - (_%__match172037172038%_ - (lambda (_%e167670167708%_ - _%hd167669167711%_ - _%tl167668167713%_ - _%e167673167716%_ - _%hd167672167719%_ - _%tl167671167721%_ - _%e167676167724%_ - _%hd167675167727%_ - _%tl167674167729%_ - _%e167679167732%_ - _%hd167678167735%_ - _%tl167677167737%_ - _%e167682167740%_ - _%hd167681167743%_ - _%tl167680167745%_ - _%e167685167748%_ - _%hd167684167751%_ - _%tl167683167753%_ - _%e167688167756%_ - _%hd167687167759%_ - _%tl167686167761%_) + (gx#stx-null? _%tl166718166798%_)) + (_%__match171074171075%_ + _%e166699166737%_ + _%hd166698166740%_ + _%tl166697166742%_ + _%e166702166745%_ + _%hd166701166748%_ + _%tl166700166750%_ + _%e166705166753%_ + _%hd166704166756%_ + _%tl166703166758%_ + _%e166708166761%_ + _%hd166707166764%_ + _%tl166706166766%_ + _%e166711166769%_ + _%hd166710166772%_ + _%tl166709166774%_ + _%e166714166777%_ + _%hd166713166780%_ + _%tl166712166782%_ + _%e166717166785%_ + _%hd166716166788%_ + _%tl166715166790%_ + _%e166720166793%_ + _%hd166719166796%_ + _%tl166718166798%_) + (_%__kont170593170594%_)))) + (_%__match171066171067%_ + (lambda (_%e166699166737%_ + _%hd166698166740%_ + _%tl166697166742%_ + _%e166702166745%_ + _%hd166701166748%_ + _%tl166700166750%_ + _%e166705166753%_ + _%hd166704166756%_ + _%tl166703166758%_ + _%e166708166761%_ + _%hd166707166764%_ + _%tl166706166766%_ + _%e166711166769%_ + _%hd166710166772%_ + _%tl166709166774%_ + _%e166714166777%_ + _%hd166713166780%_ + _%tl166712166782%_ + _%e166717166785%_ + _%hd166716166788%_ + _%tl166715166790%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167680167745%_)) - (let ((_%e167691167764%_ + (gx#stx-pair? _%tl166709166774%_)) + (let ((_%e166720166793%_ (let () (declare (not safe)) - (gx#stx-e _%tl167680167745%_)))) - (let ((_%tl167689167769%_ + (gx#stx-e _%tl166709166774%_)))) + (let ((_%tl166718166798%_ (let () (declare (not safe)) - (##cdr _%e167691167764%_))) - (_%hd167690167767%_ + (##cdr _%e166720166793%_))) + (_%hd166719166796%_ (let () (declare (not safe)) - (##car _%e167691167764%_)))) + (##car _%e166720166793%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167689167769%_)) - (_%__match172045172046%_ - _%e167670167708%_ - _%hd167669167711%_ - _%tl167668167713%_ - _%e167673167716%_ - _%hd167672167719%_ - _%tl167671167721%_ - _%e167676167724%_ - _%hd167675167727%_ - _%tl167674167729%_ - _%e167679167732%_ - _%hd167678167735%_ - _%tl167677167737%_ - _%e167682167740%_ - _%hd167681167743%_ - _%tl167680167745%_ - _%e167685167748%_ - _%hd167684167751%_ - _%tl167683167753%_ - _%e167688167756%_ - _%hd167687167759%_ - _%tl167686167761%_ - _%e167691167764%_ - _%hd167690167767%_ - _%tl167689167769%_) - (_%__kont171564171565%_)))) - (_%__kont171564171565%_)))) - (_%__match171983171984%_ - (lambda (_%e167646167816%_ - _%hd167645167819%_ - _%tl167644167821%_ - _%e167649167824%_ - _%hd167648167827%_ - _%tl167647167829%_ - _%e167652167832%_ - _%hd167651167835%_ - _%tl167650167837%_ - _%e167655167840%_ - _%hd167654167843%_ - _%tl167653167845%_ - _%e167658167848%_ - _%hd167657167851%_ - _%tl167656167853%_ - _%e167661167856%_ - _%hd167660167859%_ - _%tl167659167861%_ - _%e167664167864%_ - _%hd167663167867%_ - _%tl167662167869%_) - (let ((_%L167872%_ _%hd167663167867%_) - (_%L167873%_ _%hd167654167843%_)) - (if (and (let ((__tmp172673 - (let ((__tmp172674 + (gx#stx-null? _%tl166718166798%_)) + (_%__match171074171075%_ + _%e166699166737%_ + _%hd166698166740%_ + _%tl166697166742%_ + _%e166702166745%_ + _%hd166701166748%_ + _%tl166700166750%_ + _%e166705166753%_ + _%hd166704166756%_ + _%tl166703166758%_ + _%e166708166761%_ + _%hd166707166764%_ + _%tl166706166766%_ + _%e166711166769%_ + _%hd166710166772%_ + _%tl166709166774%_ + _%e166714166777%_ + _%hd166713166780%_ + _%tl166712166782%_ + _%e166717166785%_ + _%hd166716166788%_ + _%tl166715166790%_ + _%e166720166793%_ + _%hd166719166796%_ + _%tl166718166798%_) + (_%__kont170593170594%_)))) + (_%__kont170593170594%_)))) + (_%__match171012171013%_ + (lambda (_%e166675166845%_ + _%hd166674166848%_ + _%tl166673166850%_ + _%e166678166853%_ + _%hd166677166856%_ + _%tl166676166858%_ + _%e166681166861%_ + _%hd166680166864%_ + _%tl166679166866%_ + _%e166684166869%_ + _%hd166683166872%_ + _%tl166682166874%_ + _%e166687166877%_ + _%hd166686166880%_ + _%tl166685166882%_ + _%e166690166885%_ + _%hd166689166888%_ + _%tl166688166890%_ + _%e166693166893%_ + _%hd166692166896%_ + _%tl166691166898%_) + (let ((_%L166901%_ _%hd166692166896%_) + (_%L166902%_ _%hd166683166872%_)) + (if (and (let ((__tmp171694 + (let ((__tmp171695 (let () (declare (not safe)) (gxc#identifier-symbol - _%L167873%_)))) + _%L166902%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp172674)))) + __tmp171695)))) (declare (not safe)) (##structure-instance-of? - __tmp172673 + __tmp171694 'gxc#!accessor::t)) - (let ((__tmp172675 + (let ((__tmp171696 (let () (declare (not safe)) (slot-ref__0 - _%self167465%_ + _%self166494%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L167872%_ - __tmp172675))) - (_%__kont171560171561%_ _%L167872%_ _%L167873%_) - (_%__kont171564171565%_))))) - (_%__match171981171982%_ - (lambda (_%e167646167816%_ - _%hd167645167819%_ - _%tl167644167821%_ - _%e167649167824%_ - _%hd167648167827%_ - _%tl167647167829%_ - _%e167652167832%_ - _%hd167651167835%_ - _%tl167650167837%_ - _%e167655167840%_ - _%hd167654167843%_ - _%tl167653167845%_ - _%e167658167848%_ - _%hd167657167851%_ - _%tl167656167853%_ - _%e167661167856%_ - _%hd167660167859%_ - _%tl167659167861%_ - _%e167664167864%_ - _%hd167663167867%_ - _%tl167662167869%_) + _%L166901%_ + __tmp171696))) + (_%__kont170589170590%_ _%L166901%_ _%L166902%_) + (_%__kont170593170594%_))))) + (_%__match171010171011%_ + (lambda (_%e166675166845%_ + _%hd166674166848%_ + _%tl166673166850%_ + _%e166678166853%_ + _%hd166677166856%_ + _%tl166676166858%_ + _%e166681166861%_ + _%hd166680166864%_ + _%tl166679166866%_ + _%e166684166869%_ + _%hd166683166872%_ + _%tl166682166874%_ + _%e166687166877%_ + _%hd166686166880%_ + _%tl166685166882%_ + _%e166690166885%_ + _%hd166689166888%_ + _%tl166688166890%_ + _%e166693166893%_ + _%hd166692166896%_ + _%tl166691166898%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167656167853%_)) - (_%__match171983171984%_ - _%e167646167816%_ - _%hd167645167819%_ - _%tl167644167821%_ - _%e167649167824%_ - _%hd167648167827%_ - _%tl167647167829%_ - _%e167652167832%_ - _%hd167651167835%_ - _%tl167650167837%_ - _%e167655167840%_ - _%hd167654167843%_ - _%tl167653167845%_ - _%e167658167848%_ - _%hd167657167851%_ - _%tl167656167853%_ - _%e167661167856%_ - _%hd167660167859%_ - _%tl167659167861%_ - _%e167664167864%_ - _%hd167663167867%_ - _%tl167662167869%_) - (_%__match172037172038%_ - _%e167646167816%_ - _%hd167645167819%_ - _%tl167644167821%_ - _%e167649167824%_ - _%hd167648167827%_ - _%tl167647167829%_ - _%e167652167832%_ - _%hd167651167835%_ - _%tl167650167837%_ - _%e167655167840%_ - _%hd167654167843%_ - _%tl167653167845%_ - _%e167658167848%_ - _%hd167657167851%_ - _%tl167656167853%_ - _%e167661167856%_ - _%hd167660167859%_ - _%tl167659167861%_ - _%e167664167864%_ - _%hd167663167867%_ - _%tl167662167869%_)))) - (_%__match171927171928%_ - (lambda (_%e167611167910%_ - _%hd167610167913%_ - _%tl167609167915%_ - _%e167614167918%_ - _%hd167613167921%_ - _%tl167612167923%_ - _%e167617167926%_ - _%hd167616167929%_ - _%tl167615167931%_ - _%e167620167934%_ - _%hd167619167937%_ - _%tl167618167939%_ - _%e167623167942%_ - _%hd167622167945%_ - _%tl167621167947%_ - _%e167626167950%_ - _%hd167625167953%_ - _%tl167624167955%_ - _%e167629167958%_ - _%hd167628167961%_ - _%tl167627167963%_ - _%e167632167966%_ - _%hd167631167969%_ - _%tl167630167971%_ - _%e167635167974%_ - _%hd167634167977%_ - _%tl167633167979%_ - _%e167638167982%_ - _%hd167637167985%_ - _%tl167636167987%_ - _%e167641167990%_ - _%hd167640167993%_ - _%tl167639167995%_) - (let ((_%L167998%_ _%hd167640167993%_) - (_%L167999%_ _%hd167637167985%_) - (_%L168000%_ _%hd167628167961%_) - (_%L168001%_ _%hd167619167937%_)) + (gx#stx-null? _%tl166685166882%_)) + (_%__match171012171013%_ + _%e166675166845%_ + _%hd166674166848%_ + _%tl166673166850%_ + _%e166678166853%_ + _%hd166677166856%_ + _%tl166676166858%_ + _%e166681166861%_ + _%hd166680166864%_ + _%tl166679166866%_ + _%e166684166869%_ + _%hd166683166872%_ + _%tl166682166874%_ + _%e166687166877%_ + _%hd166686166880%_ + _%tl166685166882%_ + _%e166690166885%_ + _%hd166689166888%_ + _%tl166688166890%_ + _%e166693166893%_ + _%hd166692166896%_ + _%tl166691166898%_) + (_%__match171066171067%_ + _%e166675166845%_ + _%hd166674166848%_ + _%tl166673166850%_ + _%e166678166853%_ + _%hd166677166856%_ + _%tl166676166858%_ + _%e166681166861%_ + _%hd166680166864%_ + _%tl166679166866%_ + _%e166684166869%_ + _%hd166683166872%_ + _%tl166682166874%_ + _%e166687166877%_ + _%hd166686166880%_ + _%tl166685166882%_ + _%e166690166885%_ + _%hd166689166888%_ + _%tl166688166890%_ + _%e166693166893%_ + _%hd166692166896%_ + _%tl166691166898%_)))) + (_%__match170956170957%_ + (lambda (_%e166640166939%_ + _%hd166639166942%_ + _%tl166638166944%_ + _%e166643166947%_ + _%hd166642166950%_ + _%tl166641166952%_ + _%e166646166955%_ + _%hd166645166958%_ + _%tl166644166960%_ + _%e166649166963%_ + _%hd166648166966%_ + _%tl166647166968%_ + _%e166652166971%_ + _%hd166651166974%_ + _%tl166650166976%_ + _%e166655166979%_ + _%hd166654166982%_ + _%tl166653166984%_ + _%e166658166987%_ + _%hd166657166990%_ + _%tl166656166992%_ + _%e166661166995%_ + _%hd166660166998%_ + _%tl166659167000%_ + _%e166664167003%_ + _%hd166663167006%_ + _%tl166662167008%_ + _%e166667167011%_ + _%hd166666167014%_ + _%tl166665167016%_ + _%e166670167019%_ + _%hd166669167022%_ + _%tl166668167024%_) + (let ((_%L167027%_ _%hd166669167022%_) + (_%L167028%_ _%hd166666167014%_) + (_%L167029%_ _%hd166657166990%_) + (_%L167030%_ _%hd166648166966%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L168001%_ + _%L167030%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L168001%_ + _%L167030%_ 'unchecked-slot-set!))) - (let ((__tmp172676 + (let ((__tmp171697 (let () (declare (not safe)) (slot-ref__0 - _%self167465%_ + _%self166494%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L168000%_ - __tmp172676))) - (_%__kont171558171559%_ - _%L167998%_ - _%L167999%_ - _%L168000%_ - _%L168001%_) - (_%__kont171564171565%_))))) - (_%__match171919171920%_ - (lambda (_%e167611167910%_ - _%hd167610167913%_ - _%tl167609167915%_ - _%e167614167918%_ - _%hd167613167921%_ - _%tl167612167923%_ - _%e167617167926%_ - _%hd167616167929%_ - _%tl167615167931%_ - _%e167620167934%_ - _%hd167619167937%_ - _%tl167618167939%_ - _%e167623167942%_ - _%hd167622167945%_ - _%tl167621167947%_ - _%e167626167950%_ - _%hd167625167953%_ - _%tl167624167955%_ - _%e167629167958%_ - _%hd167628167961%_ - _%tl167627167963%_ - _%e167632167966%_ - _%hd167631167969%_ - _%tl167630167971%_ - _%e167635167974%_ - _%hd167634167977%_ - _%tl167633167979%_ - _%e167638167982%_ - _%hd167637167985%_ - _%tl167636167987%_) + _%L167029%_ + __tmp171697))) + (_%__kont170587170588%_ + _%L167027%_ + _%L167028%_ + _%L167029%_ + _%L167030%_) + (_%__kont170593170594%_))))) + (_%__match170948170949%_ + (lambda (_%e166640166939%_ + _%hd166639166942%_ + _%tl166638166944%_ + _%e166643166947%_ + _%hd166642166950%_ + _%tl166641166952%_ + _%e166646166955%_ + _%hd166645166958%_ + _%tl166644166960%_ + _%e166649166963%_ + _%hd166648166966%_ + _%tl166647166968%_ + _%e166652166971%_ + _%hd166651166974%_ + _%tl166650166976%_ + _%e166655166979%_ + _%hd166654166982%_ + _%tl166653166984%_ + _%e166658166987%_ + _%hd166657166990%_ + _%tl166656166992%_ + _%e166661166995%_ + _%hd166660166998%_ + _%tl166659167000%_ + _%e166664167003%_ + _%hd166663167006%_ + _%tl166662167008%_ + _%e166667167011%_ + _%hd166666167014%_ + _%tl166665167016%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167630167971%_)) - (let ((_%e167641167990%_ + (gx#stx-pair? _%tl166659167000%_)) + (let ((_%e166670167019%_ (let () (declare (not safe)) - (gx#stx-e _%tl167630167971%_)))) - (let ((_%tl167639167995%_ + (gx#stx-e _%tl166659167000%_)))) + (let ((_%tl166668167024%_ (let () (declare (not safe)) - (##cdr _%e167641167990%_))) - (_%hd167640167993%_ + (##cdr _%e166670167019%_))) + (_%hd166669167022%_ (let () (declare (not safe)) - (##car _%e167641167990%_)))) + (##car _%e166670167019%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167639167995%_)) - (_%__match171927171928%_ - _%e167611167910%_ - _%hd167610167913%_ - _%tl167609167915%_ - _%e167614167918%_ - _%hd167613167921%_ - _%tl167612167923%_ - _%e167617167926%_ - _%hd167616167929%_ - _%tl167615167931%_ - _%e167620167934%_ - _%hd167619167937%_ - _%tl167618167939%_ - _%e167623167942%_ - _%hd167622167945%_ - _%tl167621167947%_ - _%e167626167950%_ - _%hd167625167953%_ - _%tl167624167955%_ - _%e167629167958%_ - _%hd167628167961%_ - _%tl167627167963%_ - _%e167632167966%_ - _%hd167631167969%_ - _%tl167630167971%_ - _%e167635167974%_ - _%hd167634167977%_ - _%tl167633167979%_ - _%e167638167982%_ - _%hd167637167985%_ - _%tl167636167987%_ - _%e167641167990%_ - _%hd167640167993%_ - _%tl167639167995%_) - (_%__kont171564171565%_)))) - (_%__match172043172044%_ - _%e167611167910%_ - _%hd167610167913%_ - _%tl167609167915%_ - _%e167614167918%_ - _%hd167613167921%_ - _%tl167612167923%_ - _%e167617167926%_ - _%hd167616167929%_ - _%tl167615167931%_ - _%e167620167934%_ - _%hd167619167937%_ - _%tl167618167939%_ - _%e167623167942%_ - _%hd167622167945%_ - _%tl167621167947%_ - _%e167626167950%_ - _%hd167625167953%_ - _%tl167624167955%_ - _%e167629167958%_ - _%hd167628167961%_ - _%tl167627167963%_ - _%e167632167966%_ - _%hd167631167969%_ - _%tl167630167971%_)))) - (_%__match171841171842%_ - (lambda (_%e167577168041%_ - _%hd167576168044%_ - _%tl167575168046%_ - _%e167580168049%_ - _%hd167579168052%_ - _%tl167578168054%_ - _%e167583168057%_ - _%hd167582168060%_ - _%tl167581168062%_ - _%e167586168065%_ - _%hd167585168068%_ - _%tl167584168070%_ - _%e167589168073%_ - _%hd167588168076%_ - _%tl167587168078%_ - _%e167592168081%_ - _%hd167591168084%_ - _%tl167590168086%_ - _%e167595168089%_ - _%hd167594168092%_ - _%tl167593168094%_ - _%e167598168097%_ - _%hd167597168100%_ - _%tl167596168102%_ - _%e167601168105%_ - _%hd167600168108%_ - _%tl167599168110%_ - _%e167604168113%_ - _%hd167603168116%_ - _%tl167602168118%_) - (let ((_%L168121%_ _%hd167603168116%_) - (_%L168122%_ _%hd167594168092%_) - (_%L168123%_ _%hd167585168068%_)) + (gx#stx-null? _%tl166668167024%_)) + (_%__match170956170957%_ + _%e166640166939%_ + _%hd166639166942%_ + _%tl166638166944%_ + _%e166643166947%_ + _%hd166642166950%_ + _%tl166641166952%_ + _%e166646166955%_ + _%hd166645166958%_ + _%tl166644166960%_ + _%e166649166963%_ + _%hd166648166966%_ + _%tl166647166968%_ + _%e166652166971%_ + _%hd166651166974%_ + _%tl166650166976%_ + _%e166655166979%_ + _%hd166654166982%_ + _%tl166653166984%_ + _%e166658166987%_ + _%hd166657166990%_ + _%tl166656166992%_ + _%e166661166995%_ + _%hd166660166998%_ + _%tl166659167000%_ + _%e166664167003%_ + _%hd166663167006%_ + _%tl166662167008%_ + _%e166667167011%_ + _%hd166666167014%_ + _%tl166665167016%_ + _%e166670167019%_ + _%hd166669167022%_ + _%tl166668167024%_) + (_%__kont170593170594%_)))) + (_%__match171072171073%_ + _%e166640166939%_ + _%hd166639166942%_ + _%tl166638166944%_ + _%e166643166947%_ + _%hd166642166950%_ + _%tl166641166952%_ + _%e166646166955%_ + _%hd166645166958%_ + _%tl166644166960%_ + _%e166649166963%_ + _%hd166648166966%_ + _%tl166647166968%_ + _%e166652166971%_ + _%hd166651166974%_ + _%tl166650166976%_ + _%e166655166979%_ + _%hd166654166982%_ + _%tl166653166984%_ + _%e166658166987%_ + _%hd166657166990%_ + _%tl166656166992%_ + _%e166661166995%_ + _%hd166660166998%_ + _%tl166659167000%_)))) + (_%__match170870170871%_ + (lambda (_%e166606167070%_ + _%hd166605167073%_ + _%tl166604167075%_ + _%e166609167078%_ + _%hd166608167081%_ + _%tl166607167083%_ + _%e166612167086%_ + _%hd166611167089%_ + _%tl166610167091%_ + _%e166615167094%_ + _%hd166614167097%_ + _%tl166613167099%_ + _%e166618167102%_ + _%hd166617167105%_ + _%tl166616167107%_ + _%e166621167110%_ + _%hd166620167113%_ + _%tl166619167115%_ + _%e166624167118%_ + _%hd166623167121%_ + _%tl166622167123%_ + _%e166627167126%_ + _%hd166626167129%_ + _%tl166625167131%_ + _%e166630167134%_ + _%hd166629167137%_ + _%tl166628167139%_ + _%e166633167142%_ + _%hd166632167145%_ + _%tl166631167147%_) + (let ((_%L167150%_ _%hd166632167145%_) + (_%L167151%_ _%hd166623167121%_) + (_%L167152%_ _%hd166614167097%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L168123%_ + _%L167152%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L168123%_ + _%L167152%_ 'unchecked-slot-ref))) - (let ((__tmp172677 + (let ((__tmp171698 (let () (declare (not safe)) (slot-ref__0 - _%self167465%_ + _%self166494%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L168122%_ - __tmp172677))) - (_%__kont171556171557%_ - _%L168121%_ - _%L168122%_ - _%L168123%_) - (_%__match172045172046%_ - _%e167577168041%_ - _%hd167576168044%_ - _%tl167575168046%_ - _%e167580168049%_ - _%hd167579168052%_ - _%tl167578168054%_ - _%e167583168057%_ - _%hd167582168060%_ - _%tl167581168062%_ - _%e167586168065%_ - _%hd167585168068%_ - _%tl167584168070%_ - _%e167589168073%_ - _%hd167588168076%_ - _%tl167587168078%_ - _%e167592168081%_ - _%hd167591168084%_ - _%tl167590168086%_ - _%e167595168089%_ - _%hd167594168092%_ - _%tl167593168094%_ - _%e167598168097%_ - _%hd167597168100%_ - _%tl167596168102%_))))) - (_%__match171839171840%_ - (lambda (_%e167577168041%_ - _%hd167576168044%_ - _%tl167575168046%_ - _%e167580168049%_ - _%hd167579168052%_ - _%tl167578168054%_ - _%e167583168057%_ - _%hd167582168060%_ - _%tl167581168062%_ - _%e167586168065%_ - _%hd167585168068%_ - _%tl167584168070%_ - _%e167589168073%_ - _%hd167588168076%_ - _%tl167587168078%_ - _%e167592168081%_ - _%hd167591168084%_ - _%tl167590168086%_ - _%e167595168089%_ - _%hd167594168092%_ - _%tl167593168094%_ - _%e167598168097%_ - _%hd167597168100%_ - _%tl167596168102%_ - _%e167601168105%_ - _%hd167600168108%_ - _%tl167599168110%_ - _%e167604168113%_ - _%hd167603168116%_ - _%tl167602168118%_) + _%L167151%_ + __tmp171698))) + (_%__kont170585170586%_ + _%L167150%_ + _%L167151%_ + _%L167152%_) + (_%__match171074171075%_ + _%e166606167070%_ + _%hd166605167073%_ + _%tl166604167075%_ + _%e166609167078%_ + _%hd166608167081%_ + _%tl166607167083%_ + _%e166612167086%_ + _%hd166611167089%_ + _%tl166610167091%_ + _%e166615167094%_ + _%hd166614167097%_ + _%tl166613167099%_ + _%e166618167102%_ + _%hd166617167105%_ + _%tl166616167107%_ + _%e166621167110%_ + _%hd166620167113%_ + _%tl166619167115%_ + _%e166624167118%_ + _%hd166623167121%_ + _%tl166622167123%_ + _%e166627167126%_ + _%hd166626167129%_ + _%tl166625167131%_))))) + (_%__match170868170869%_ + (lambda (_%e166606167070%_ + _%hd166605167073%_ + _%tl166604167075%_ + _%e166609167078%_ + _%hd166608167081%_ + _%tl166607167083%_ + _%e166612167086%_ + _%hd166611167089%_ + _%tl166610167091%_ + _%e166615167094%_ + _%hd166614167097%_ + _%tl166613167099%_ + _%e166618167102%_ + _%hd166617167105%_ + _%tl166616167107%_ + _%e166621167110%_ + _%hd166620167113%_ + _%tl166619167115%_ + _%e166624167118%_ + _%hd166623167121%_ + _%tl166622167123%_ + _%e166627167126%_ + _%hd166626167129%_ + _%tl166625167131%_ + _%e166630167134%_ + _%hd166629167137%_ + _%tl166628167139%_ + _%e166633167142%_ + _%hd166632167145%_ + _%tl166631167147%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167596168102%_)) - (_%__match171841171842%_ - _%e167577168041%_ - _%hd167576168044%_ - _%tl167575168046%_ - _%e167580168049%_ - _%hd167579168052%_ - _%tl167578168054%_ - _%e167583168057%_ - _%hd167582168060%_ - _%tl167581168062%_ - _%e167586168065%_ - _%hd167585168068%_ - _%tl167584168070%_ - _%e167589168073%_ - _%hd167588168076%_ - _%tl167587168078%_ - _%e167592168081%_ - _%hd167591168084%_ - _%tl167590168086%_ - _%e167595168089%_ - _%hd167594168092%_ - _%tl167593168094%_ - _%e167598168097%_ - _%hd167597168100%_ - _%tl167596168102%_ - _%e167601168105%_ - _%hd167600168108%_ - _%tl167599168110%_ - _%e167604168113%_ - _%hd167603168116%_ - _%tl167602168118%_) - (_%__match171919171920%_ - _%e167577168041%_ - _%hd167576168044%_ - _%tl167575168046%_ - _%e167580168049%_ - _%hd167579168052%_ - _%tl167578168054%_ - _%e167583168057%_ - _%hd167582168060%_ - _%tl167581168062%_ - _%e167586168065%_ - _%hd167585168068%_ - _%tl167584168070%_ - _%e167589168073%_ - _%hd167588168076%_ - _%tl167587168078%_ - _%e167592168081%_ - _%hd167591168084%_ - _%tl167590168086%_ - _%e167595168089%_ - _%hd167594168092%_ - _%tl167593168094%_ - _%e167598168097%_ - _%hd167597168100%_ - _%tl167596168102%_ - _%e167601168105%_ - _%hd167600168108%_ - _%tl167599168110%_ - _%e167604168113%_ - _%hd167603168116%_ - _%tl167602168118%_)))) - (_%__match171829171830%_ - (lambda (_%e167577168041%_ - _%hd167576168044%_ - _%tl167575168046%_ - _%e167580168049%_ - _%hd167579168052%_ - _%tl167578168054%_ - _%e167583168057%_ - _%hd167582168060%_ - _%tl167581168062%_ - _%e167586168065%_ - _%hd167585168068%_ - _%tl167584168070%_ - _%e167589168073%_ - _%hd167588168076%_ - _%tl167587168078%_ - _%e167592168081%_ - _%hd167591168084%_ - _%tl167590168086%_ - _%e167595168089%_ - _%hd167594168092%_ - _%tl167593168094%_ - _%e167598168097%_ - _%hd167597168100%_ - _%tl167596168102%_ - _%e167601168105%_ - _%hd167600168108%_ - _%tl167599168110%_) + (gx#stx-null? _%tl166625167131%_)) + (_%__match170870170871%_ + _%e166606167070%_ + _%hd166605167073%_ + _%tl166604167075%_ + _%e166609167078%_ + _%hd166608167081%_ + _%tl166607167083%_ + _%e166612167086%_ + _%hd166611167089%_ + _%tl166610167091%_ + _%e166615167094%_ + _%hd166614167097%_ + _%tl166613167099%_ + _%e166618167102%_ + _%hd166617167105%_ + _%tl166616167107%_ + _%e166621167110%_ + _%hd166620167113%_ + _%tl166619167115%_ + _%e166624167118%_ + _%hd166623167121%_ + _%tl166622167123%_ + _%e166627167126%_ + _%hd166626167129%_ + _%tl166625167131%_ + _%e166630167134%_ + _%hd166629167137%_ + _%tl166628167139%_ + _%e166633167142%_ + _%hd166632167145%_ + _%tl166631167147%_) + (_%__match170948170949%_ + _%e166606167070%_ + _%hd166605167073%_ + _%tl166604167075%_ + _%e166609167078%_ + _%hd166608167081%_ + _%tl166607167083%_ + _%e166612167086%_ + _%hd166611167089%_ + _%tl166610167091%_ + _%e166615167094%_ + _%hd166614167097%_ + _%tl166613167099%_ + _%e166618167102%_ + _%hd166617167105%_ + _%tl166616167107%_ + _%e166621167110%_ + _%hd166620167113%_ + _%tl166619167115%_ + _%e166624167118%_ + _%hd166623167121%_ + _%tl166622167123%_ + _%e166627167126%_ + _%hd166626167129%_ + _%tl166625167131%_ + _%e166630167134%_ + _%hd166629167137%_ + _%tl166628167139%_ + _%e166633167142%_ + _%hd166632167145%_ + _%tl166631167147%_)))) + (_%__match170858170859%_ + (lambda (_%e166606167070%_ + _%hd166605167073%_ + _%tl166604167075%_ + _%e166609167078%_ + _%hd166608167081%_ + _%tl166607167083%_ + _%e166612167086%_ + _%hd166611167089%_ + _%tl166610167091%_ + _%e166615167094%_ + _%hd166614167097%_ + _%tl166613167099%_ + _%e166618167102%_ + _%hd166617167105%_ + _%tl166616167107%_ + _%e166621167110%_ + _%hd166620167113%_ + _%tl166619167115%_ + _%e166624167118%_ + _%hd166623167121%_ + _%tl166622167123%_ + _%e166627167126%_ + _%hd166626167129%_ + _%tl166625167131%_ + _%e166630167134%_ + _%hd166629167137%_ + _%tl166628167139%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd167600168108%_)) + (gx#stx-eq? '%#quote _%hd166629167137%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167599168110%_)) - (let ((_%e167604168113%_ + (gx#stx-pair? _%tl166628167139%_)) + (let ((_%e166633167142%_ (let () (declare (not safe)) - (gx#stx-e _%tl167599168110%_)))) - (let ((_%tl167602168118%_ + (gx#stx-e _%tl166628167139%_)))) + (let ((_%tl166631167147%_ (let () (declare (not safe)) - (##cdr _%e167604168113%_))) - (_%hd167603168116%_ + (##cdr _%e166633167142%_))) + (_%hd166632167145%_ (let () (declare (not safe)) - (##car _%e167604168113%_)))) + (##car _%e166633167142%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167602168118%_)) + (gx#stx-null? _%tl166631167147%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167596168102%_)) - (_%__match171841171842%_ - _%e167577168041%_ - _%hd167576168044%_ - _%tl167575168046%_ - _%e167580168049%_ - _%hd167579168052%_ - _%tl167578168054%_ - _%e167583168057%_ - _%hd167582168060%_ - _%tl167581168062%_ - _%e167586168065%_ - _%hd167585168068%_ - _%tl167584168070%_ - _%e167589168073%_ - _%hd167588168076%_ - _%tl167587168078%_ - _%e167592168081%_ - _%hd167591168084%_ - _%tl167590168086%_ - _%e167595168089%_ - _%hd167594168092%_ - _%tl167593168094%_ - _%e167598168097%_ - _%hd167597168100%_ - _%tl167596168102%_ - _%e167601168105%_ - _%hd167600168108%_ - _%tl167599168110%_ - _%e167604168113%_ - _%hd167603168116%_ - _%tl167602168118%_) - (_%__match171919171920%_ - _%e167577168041%_ - _%hd167576168044%_ - _%tl167575168046%_ - _%e167580168049%_ - _%hd167579168052%_ - _%tl167578168054%_ - _%e167583168057%_ - _%hd167582168060%_ - _%tl167581168062%_ - _%e167586168065%_ - _%hd167585168068%_ - _%tl167584168070%_ - _%e167589168073%_ - _%hd167588168076%_ - _%tl167587168078%_ - _%e167592168081%_ - _%hd167591168084%_ - _%tl167590168086%_ - _%e167595168089%_ - _%hd167594168092%_ - _%tl167593168094%_ - _%e167598168097%_ - _%hd167597168100%_ - _%tl167596168102%_ - _%e167601168105%_ - _%hd167600168108%_ - _%tl167599168110%_ - _%e167604168113%_ - _%hd167603168116%_ - _%tl167602168118%_)) - (_%__match172043172044%_ - _%e167577168041%_ - _%hd167576168044%_ - _%tl167575168046%_ - _%e167580168049%_ - _%hd167579168052%_ - _%tl167578168054%_ - _%e167583168057%_ - _%hd167582168060%_ - _%tl167581168062%_ - _%e167586168065%_ - _%hd167585168068%_ - _%tl167584168070%_ - _%e167589168073%_ - _%hd167588168076%_ - _%tl167587168078%_ - _%e167592168081%_ - _%hd167591168084%_ - _%tl167590168086%_ - _%e167595168089%_ - _%hd167594168092%_ - _%tl167593168094%_ - _%e167598168097%_ - _%hd167597168100%_ - _%tl167596168102%_)))) - (_%__match172043172044%_ - _%e167577168041%_ - _%hd167576168044%_ - _%tl167575168046%_ - _%e167580168049%_ - _%hd167579168052%_ - _%tl167578168054%_ - _%e167583168057%_ - _%hd167582168060%_ - _%tl167581168062%_ - _%e167586168065%_ - _%hd167585168068%_ - _%tl167584168070%_ - _%e167589168073%_ - _%hd167588168076%_ - _%tl167587168078%_ - _%e167592168081%_ - _%hd167591168084%_ - _%tl167590168086%_ - _%e167595168089%_ - _%hd167594168092%_ - _%tl167593168094%_ - _%e167598168097%_ - _%hd167597168100%_ - _%tl167596168102%_)) - (_%__match172043172044%_ - _%e167577168041%_ - _%hd167576168044%_ - _%tl167575168046%_ - _%e167580168049%_ - _%hd167579168052%_ - _%tl167578168054%_ - _%e167583168057%_ - _%hd167582168060%_ - _%tl167581168062%_ - _%e167586168065%_ - _%hd167585168068%_ - _%tl167584168070%_ - _%e167589168073%_ - _%hd167588168076%_ - _%tl167587168078%_ - _%e167592168081%_ - _%hd167591168084%_ - _%tl167590168086%_ - _%e167595168089%_ - _%hd167594168092%_ - _%tl167593168094%_ - _%e167598168097%_ - _%hd167597168100%_ - _%tl167596168102%_)))) - (_%__match171761171762%_ - (lambda (_%e167526168160%_ - _%hd167525168163%_ - _%tl167524168165%_ - _%e167529168168%_ - _%hd167528168171%_ - _%tl167527168173%_ - _%e167532168176%_ - _%hd167531168179%_ - _%tl167530168181%_ - _%e167535168184%_ - _%hd167534168187%_ - _%tl167533168189%_ - _%e167538168192%_ - _%hd167537168195%_ - _%tl167536168197%_ - _%e167541168200%_ - _%hd167540168203%_ - _%tl167539168205%_ - _%e167544168208%_ - _%hd167543168211%_ - _%tl167542168213%_ - _%e167547168216%_ - _%hd167546168219%_ - _%tl167545168221%_ - _%e167550168224%_ - _%hd167549168227%_ - _%tl167548168229%_ - _%e167553168232%_ - _%hd167552168235%_ - _%tl167551168237%_ - _%e167556168240%_ - _%hd167555168243%_ - _%tl167554168245%_ - _%e167559168248%_ - _%hd167558168251%_ - _%tl167557168253%_ - _%e167562168256%_ - _%hd167561168259%_ - _%tl167560168261%_ - _%__splice171554171555%_ - _%target167563168264%_ - _%tl167565168266%_) - (letrec ((_%loop167566168269%_ - (lambda (_%hd167564168272%_ - _%args167570168274%_) + (gx#stx-null? _%tl166625167131%_)) + (_%__match170870170871%_ + _%e166606167070%_ + _%hd166605167073%_ + _%tl166604167075%_ + _%e166609167078%_ + _%hd166608167081%_ + _%tl166607167083%_ + _%e166612167086%_ + _%hd166611167089%_ + _%tl166610167091%_ + _%e166615167094%_ + _%hd166614167097%_ + _%tl166613167099%_ + _%e166618167102%_ + _%hd166617167105%_ + _%tl166616167107%_ + _%e166621167110%_ + _%hd166620167113%_ + _%tl166619167115%_ + _%e166624167118%_ + _%hd166623167121%_ + _%tl166622167123%_ + _%e166627167126%_ + _%hd166626167129%_ + _%tl166625167131%_ + _%e166630167134%_ + _%hd166629167137%_ + _%tl166628167139%_ + _%e166633167142%_ + _%hd166632167145%_ + _%tl166631167147%_) + (_%__match170948170949%_ + _%e166606167070%_ + _%hd166605167073%_ + _%tl166604167075%_ + _%e166609167078%_ + _%hd166608167081%_ + _%tl166607167083%_ + _%e166612167086%_ + _%hd166611167089%_ + _%tl166610167091%_ + _%e166615167094%_ + _%hd166614167097%_ + _%tl166613167099%_ + _%e166618167102%_ + _%hd166617167105%_ + _%tl166616167107%_ + _%e166621167110%_ + _%hd166620167113%_ + _%tl166619167115%_ + _%e166624167118%_ + _%hd166623167121%_ + _%tl166622167123%_ + _%e166627167126%_ + _%hd166626167129%_ + _%tl166625167131%_ + _%e166630167134%_ + _%hd166629167137%_ + _%tl166628167139%_ + _%e166633167142%_ + _%hd166632167145%_ + _%tl166631167147%_)) + (_%__match171072171073%_ + _%e166606167070%_ + _%hd166605167073%_ + _%tl166604167075%_ + _%e166609167078%_ + _%hd166608167081%_ + _%tl166607167083%_ + _%e166612167086%_ + _%hd166611167089%_ + _%tl166610167091%_ + _%e166615167094%_ + _%hd166614167097%_ + _%tl166613167099%_ + _%e166618167102%_ + _%hd166617167105%_ + _%tl166616167107%_ + _%e166621167110%_ + _%hd166620167113%_ + _%tl166619167115%_ + _%e166624167118%_ + _%hd166623167121%_ + _%tl166622167123%_ + _%e166627167126%_ + _%hd166626167129%_ + _%tl166625167131%_)))) + (_%__match171072171073%_ + _%e166606167070%_ + _%hd166605167073%_ + _%tl166604167075%_ + _%e166609167078%_ + _%hd166608167081%_ + _%tl166607167083%_ + _%e166612167086%_ + _%hd166611167089%_ + _%tl166610167091%_ + _%e166615167094%_ + _%hd166614167097%_ + _%tl166613167099%_ + _%e166618167102%_ + _%hd166617167105%_ + _%tl166616167107%_ + _%e166621167110%_ + _%hd166620167113%_ + _%tl166619167115%_ + _%e166624167118%_ + _%hd166623167121%_ + _%tl166622167123%_ + _%e166627167126%_ + _%hd166626167129%_ + _%tl166625167131%_)) + (_%__match171072171073%_ + _%e166606167070%_ + _%hd166605167073%_ + _%tl166604167075%_ + _%e166609167078%_ + _%hd166608167081%_ + _%tl166607167083%_ + _%e166612167086%_ + _%hd166611167089%_ + _%tl166610167091%_ + _%e166615167094%_ + _%hd166614167097%_ + _%tl166613167099%_ + _%e166618167102%_ + _%hd166617167105%_ + _%tl166616167107%_ + _%e166621167110%_ + _%hd166620167113%_ + _%tl166619167115%_ + _%e166624167118%_ + _%hd166623167121%_ + _%tl166622167123%_ + _%e166627167126%_ + _%hd166626167129%_ + _%tl166625167131%_)))) + (_%__match170790170791%_ + (lambda (_%e166555167189%_ + _%hd166554167192%_ + _%tl166553167194%_ + _%e166558167197%_ + _%hd166557167200%_ + _%tl166556167202%_ + _%e166561167205%_ + _%hd166560167208%_ + _%tl166559167210%_ + _%e166564167213%_ + _%hd166563167216%_ + _%tl166562167218%_ + _%e166567167221%_ + _%hd166566167224%_ + _%tl166565167226%_ + _%e166570167229%_ + _%hd166569167232%_ + _%tl166568167234%_ + _%e166573167237%_ + _%hd166572167240%_ + _%tl166571167242%_ + _%e166576167245%_ + _%hd166575167248%_ + _%tl166574167250%_ + _%e166579167253%_ + _%hd166578167256%_ + _%tl166577167258%_ + _%e166582167261%_ + _%hd166581167264%_ + _%tl166580167266%_ + _%e166585167269%_ + _%hd166584167272%_ + _%tl166583167274%_ + _%e166588167277%_ + _%hd166587167280%_ + _%tl166586167282%_ + _%e166591167285%_ + _%hd166590167288%_ + _%tl166589167290%_ + _%__splice170583170584%_ + _%target166592167293%_ + _%tl166594167295%_) + (letrec ((_%loop166595167298%_ + (lambda (_%hd166593167301%_ + _%args166599167303%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167564168272%_)) - (let ((_%e167567168277%_ + (gx#stx-pair? _%hd166593167301%_)) + (let ((_%e166596167306%_ (let () (declare (not safe)) - (gx#stx-e _%hd167564168272%_)))) - (let ((_%lp-tl167569168282%_ + (gx#stx-e _%hd166593167301%_)))) + (let ((_%lp-tl166598167311%_ (let () (declare (not safe)) - (##cdr _%e167567168277%_))) - (_%lp-hd167568168280%_ + (##cdr _%e166596167306%_))) + (_%lp-hd166597167309%_ (let () (declare (not safe)) - (##car _%e167567168277%_)))) - (let ((__tmp172678 - (cons _%lp-hd167568168280%_ - _%args167570168274%_))) - (declare (not safe)) - (_%loop167566168269%_ - _%lp-tl167569168282%_ - __tmp172678)))) - (let ((_%args167571168285%_ - (reverse _%args167570168274%_))) - (let ((_%L168288%_ - _%args167571168285%_) - (_%L168289%_ _%hd167561168259%_) - (_%L168290%_ _%hd167552168235%_) - (_%L168291%_ _%hd167543168211%_) - (_%L168292%_ _%hd167534168187%_)) + (##car _%e166596167306%_)))) + (_%loop166595167298%_ + _%lp-tl166598167311%_ + (cons _%lp-hd166597167309%_ + _%args166599167303%_)))) + (let ((_%args166600167314%_ + (reverse _%args166599167303%_))) + (let ((_%L167317%_ + _%args166600167314%_) + (_%L167318%_ _%hd166590167288%_) + (_%L167319%_ _%hd166581167264%_) + (_%L167320%_ _%hd166572167240%_) + (_%L167321%_ _%hd166563167216%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L168292%_ + _%L167321%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L168291%_ + _%L167320%_ 'call-method)) - (let ((__tmp172679 + (let ((__tmp171699 (let () (declare (not safe)) (slot-ref__0 - _%self167465%_ + _%self166494%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L168290%_ - __tmp172679))) - (_%__kont171552171553%_ - _%L168288%_ - _%L168289%_ - _%L168290%_ - _%L168291%_ - _%L168292%_) - (_%__kont171564171565%_)))))))) - (let () - (declare (not safe)) - (_%loop167566168269%_ _%target167563168264%_ '()))))) - (_%__match171719171720%_ - (lambda (_%e167526168160%_ - _%hd167525168163%_ - _%tl167524168165%_ - _%e167529168168%_ - _%hd167528168171%_ - _%tl167527168173%_ - _%e167532168176%_ - _%hd167531168179%_ - _%tl167530168181%_ - _%e167535168184%_ - _%hd167534168187%_ - _%tl167533168189%_ - _%e167538168192%_ - _%hd167537168195%_ - _%tl167536168197%_ - _%e167541168200%_ - _%hd167540168203%_ - _%tl167539168205%_ - _%e167544168208%_ - _%hd167543168211%_ - _%tl167542168213%_ - _%e167547168216%_ - _%hd167546168219%_ - _%tl167545168221%_ - _%e167550168224%_ - _%hd167549168227%_ - _%tl167548168229%_) + _%L167319%_ + __tmp171699))) + (_%__kont170581170582%_ + _%L167317%_ + _%L167318%_ + _%L167319%_ + _%L167320%_ + _%L167321%_) + (_%__kont170593170594%_)))))))) + (_%loop166595167298%_ _%target166592167293%_ '())))) + (_%__match170748170749%_ + (lambda (_%e166555167189%_ + _%hd166554167192%_ + _%tl166553167194%_ + _%e166558167197%_ + _%hd166557167200%_ + _%tl166556167202%_ + _%e166561167205%_ + _%hd166560167208%_ + _%tl166559167210%_ + _%e166564167213%_ + _%hd166563167216%_ + _%tl166562167218%_ + _%e166567167221%_ + _%hd166566167224%_ + _%tl166565167226%_ + _%e166570167229%_ + _%hd166569167232%_ + _%tl166568167234%_ + _%e166573167237%_ + _%hd166572167240%_ + _%tl166571167242%_ + _%e166576167245%_ + _%hd166575167248%_ + _%tl166574167250%_ + _%e166579167253%_ + _%hd166578167256%_ + _%tl166577167258%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd167549168227%_)) + (gx#stx-eq? '%#ref _%hd166578167256%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167548168229%_)) - (let ((_%e167553168232%_ + (gx#stx-pair? _%tl166577167258%_)) + (let ((_%e166582167261%_ (let () (declare (not safe)) - (gx#stx-e _%tl167548168229%_)))) - (let ((_%tl167551168237%_ + (gx#stx-e _%tl166577167258%_)))) + (let ((_%tl166580167266%_ (let () (declare (not safe)) - (##cdr _%e167553168232%_))) - (_%hd167552168235%_ + (##cdr _%e166582167261%_))) + (_%hd166581167264%_ (let () (declare (not safe)) - (##car _%e167553168232%_)))) + (##car _%e166582167261%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167551168237%_)) + (gx#stx-null? _%tl166580167266%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167545168221%_)) - (let ((_%e167556168240%_ + (gx#stx-pair? _%tl166574167250%_)) + (let ((_%e166585167269%_ (let () (declare (not safe)) (gx#stx-e - _%tl167545168221%_)))) - (let ((_%tl167554168245%_ + _%tl166574167250%_)))) + (let ((_%tl166583167274%_ (let () (declare (not safe)) - (##cdr _%e167556168240%_))) - (_%hd167555168243%_ + (##cdr _%e166585167269%_))) + (_%hd166584167272%_ (let () (declare (not safe)) - (##car _%e167556168240%_)))) + (##car _%e166585167269%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd167555168243%_)) - (let ((_%e167559168248%_ + _%hd166584167272%_)) + (let ((_%e166588167277%_ (let () (declare (not safe)) (gx#stx-e - _%hd167555168243%_)))) - (let ((_%tl167557168253%_ + _%hd166584167272%_)))) + (let ((_%tl166586167282%_ (let () (declare (not safe)) - (##cdr _%e167559168248%_))) - (_%hd167558168251%_ + (##cdr _%e166588167277%_))) + (_%hd166587167280%_ (let () (declare (not safe)) - (##car _%e167559168248%_)))) + (##car _%e166588167277%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd167558168251%_)) + _%hd166587167280%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd167558168251%_)) + (gx#stx-eq? '%#quote _%hd166587167280%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167557168253%_)) - (let ((_%e167562168256%_ + (gx#stx-pair? _%tl166586167282%_)) + (let ((_%e166591167285%_ (let () (declare (not safe)) - (gx#stx-e _%tl167557168253%_)))) - (let ((_%tl167560168261%_ + (gx#stx-e _%tl166586167282%_)))) + (let ((_%tl166589167290%_ (let () (declare (not safe)) - (##cdr _%e167562168256%_))) - (_%hd167561168259%_ + (##cdr _%e166591167285%_))) + (_%hd166590167288%_ (let () (declare (not safe)) - (##car _%e167562168256%_)))) + (##car _%e166591167285%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167560168261%_)) + (gx#stx-null? _%tl166589167290%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl167554168245%_)) - (let ((_%__splice171554171555%_ + (gx#stx-pair/null? _%tl166583167274%_)) + (let ((_%__splice170583170584%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl167554168245%_ + _%tl166583167274%_ '0)))) - (let ((_%tl167565168266%_ + (let ((_%tl166594167295%_ (let () (declare (not safe)) (##vector-ref - _%__splice171554171555%_ + _%__splice170583170584%_ '1))) - (_%target167563168264%_ + (_%target166592167293%_ (let () (declare (not safe)) (##vector-ref - _%__splice171554171555%_ + _%__splice170583170584%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167565168266%_)) - (_%__match171761171762%_ - _%e167526168160%_ - _%hd167525168163%_ - _%tl167524168165%_ - _%e167529168168%_ - _%hd167528168171%_ - _%tl167527168173%_ - _%e167532168176%_ - _%hd167531168179%_ - _%tl167530168181%_ - _%e167535168184%_ - _%hd167534168187%_ - _%tl167533168189%_ - _%e167538168192%_ - _%hd167537168195%_ - _%tl167536168197%_ - _%e167541168200%_ - _%hd167540168203%_ - _%tl167539168205%_ - _%e167544168208%_ - _%hd167543168211%_ - _%tl167542168213%_ - _%e167547168216%_ - _%hd167546168219%_ - _%tl167545168221%_ - _%e167550168224%_ - _%hd167549168227%_ - _%tl167548168229%_ - _%e167553168232%_ - _%hd167552168235%_ - _%tl167551168237%_ - _%e167556168240%_ - _%hd167555168243%_ - _%tl167554168245%_ - _%e167559168248%_ - _%hd167558168251%_ - _%tl167557168253%_ - _%e167562168256%_ - _%hd167561168259%_ - _%tl167560168261%_ - _%__splice171554171555%_ - _%target167563168264%_ - _%tl167565168266%_) - (_%__kont171564171565%_)))) - (_%__kont171564171565%_)) - (_%__kont171564171565%_)))) - (_%__kont171564171565%_)) - (_%__kont171564171565%_)) - (_%__kont171564171565%_)))) + _%tl166594167295%_)) + (_%__match170790170791%_ + _%e166555167189%_ + _%hd166554167192%_ + _%tl166553167194%_ + _%e166558167197%_ + _%hd166557167200%_ + _%tl166556167202%_ + _%e166561167205%_ + _%hd166560167208%_ + _%tl166559167210%_ + _%e166564167213%_ + _%hd166563167216%_ + _%tl166562167218%_ + _%e166567167221%_ + _%hd166566167224%_ + _%tl166565167226%_ + _%e166570167229%_ + _%hd166569167232%_ + _%tl166568167234%_ + _%e166573167237%_ + _%hd166572167240%_ + _%tl166571167242%_ + _%e166576167245%_ + _%hd166575167248%_ + _%tl166574167250%_ + _%e166579167253%_ + _%hd166578167256%_ + _%tl166577167258%_ + _%e166582167261%_ + _%hd166581167264%_ + _%tl166580167266%_ + _%e166585167269%_ + _%hd166584167272%_ + _%tl166583167274%_ + _%e166588167277%_ + _%hd166587167280%_ + _%tl166586167282%_ + _%e166591167285%_ + _%hd166590167288%_ + _%tl166589167290%_ + _%__splice170583170584%_ + _%target166592167293%_ + _%tl166594167295%_) + (_%__kont170593170594%_)))) + (_%__kont170593170594%_)) + (_%__kont170593170594%_)))) + (_%__kont170593170594%_)) + (_%__kont170593170594%_)) + (_%__kont170593170594%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont171564171565%_)))) - (_%__match172043172044%_ - _%e167526168160%_ - _%hd167525168163%_ - _%tl167524168165%_ - _%e167529168168%_ - _%hd167528168171%_ - _%tl167527168173%_ - _%e167532168176%_ - _%hd167531168179%_ - _%tl167530168181%_ - _%e167535168184%_ - _%hd167534168187%_ - _%tl167533168189%_ - _%e167538168192%_ - _%hd167537168195%_ - _%tl167536168197%_ - _%e167541168200%_ - _%hd167540168203%_ - _%tl167539168205%_ - _%e167544168208%_ - _%hd167543168211%_ - _%tl167542168213%_ - _%e167547168216%_ - _%hd167546168219%_ - _%tl167545168221%_)) - (_%__match172043172044%_ - _%e167526168160%_ - _%hd167525168163%_ - _%tl167524168165%_ - _%e167529168168%_ - _%hd167528168171%_ - _%tl167527168173%_ - _%e167532168176%_ - _%hd167531168179%_ - _%tl167530168181%_ - _%e167535168184%_ - _%hd167534168187%_ - _%tl167533168189%_ - _%e167538168192%_ - _%hd167537168195%_ - _%tl167536168197%_ - _%e167541168200%_ - _%hd167540168203%_ - _%tl167539168205%_ - _%e167544168208%_ - _%hd167543168211%_ - _%tl167542168213%_ - _%e167547168216%_ - _%hd167546168219%_ - _%tl167545168221%_)))) - (_%__match172043172044%_ - _%e167526168160%_ - _%hd167525168163%_ - _%tl167524168165%_ - _%e167529168168%_ - _%hd167528168171%_ - _%tl167527168173%_ - _%e167532168176%_ - _%hd167531168179%_ - _%tl167530168181%_ - _%e167535168184%_ - _%hd167534168187%_ - _%tl167533168189%_ - _%e167538168192%_ - _%hd167537168195%_ - _%tl167536168197%_ - _%e167541168200%_ - _%hd167540168203%_ - _%tl167539168205%_ - _%e167544168208%_ - _%hd167543168211%_ - _%tl167542168213%_ - _%e167547168216%_ - _%hd167546168219%_ - _%tl167545168221%_)) - (_%__match171829171830%_ - _%e167526168160%_ - _%hd167525168163%_ - _%tl167524168165%_ - _%e167529168168%_ - _%hd167528168171%_ - _%tl167527168173%_ - _%e167532168176%_ - _%hd167531168179%_ - _%tl167530168181%_ - _%e167535168184%_ - _%hd167534168187%_ - _%tl167533168189%_ - _%e167538168192%_ - _%hd167537168195%_ - _%tl167536168197%_ - _%e167541168200%_ - _%hd167540168203%_ - _%tl167539168205%_ - _%e167544168208%_ - _%hd167543168211%_ - _%tl167542168213%_ - _%e167547168216%_ - _%hd167546168219%_ - _%tl167545168221%_ - _%e167550168224%_ - _%hd167549168227%_ - _%tl167548168229%_)))) - (_%__match171651171652%_ - (lambda (_%e167482168349%_ - _%hd167481168352%_ - _%tl167480168354%_ - _%e167485168357%_ - _%hd167484168360%_ - _%tl167483168362%_ - _%e167488168365%_ - _%hd167487168368%_ - _%tl167486168370%_ - _%e167491168373%_ - _%hd167490168376%_ - _%tl167489168378%_ - _%e167494168381%_ - _%hd167493168384%_ - _%tl167492168386%_ - _%e167497168389%_ - _%hd167496168392%_ - _%tl167495168394%_ - _%e167500168397%_ - _%hd167499168400%_ - _%tl167498168402%_ - _%e167503168405%_ - _%hd167502168408%_ - _%tl167501168410%_ - _%e167506168413%_ - _%hd167505168416%_ - _%tl167504168418%_ - _%e167509168421%_ - _%hd167508168424%_ - _%tl167507168426%_ - _%__splice171550171551%_ - _%target167510168429%_ - _%tl167512168431%_) - (letrec ((_%loop167513168434%_ - (lambda (_%hd167511168437%_ - _%args167517168439%_) + (_%__kont170593170594%_)))) + (_%__match171072171073%_ + _%e166555167189%_ + _%hd166554167192%_ + _%tl166553167194%_ + _%e166558167197%_ + _%hd166557167200%_ + _%tl166556167202%_ + _%e166561167205%_ + _%hd166560167208%_ + _%tl166559167210%_ + _%e166564167213%_ + _%hd166563167216%_ + _%tl166562167218%_ + _%e166567167221%_ + _%hd166566167224%_ + _%tl166565167226%_ + _%e166570167229%_ + _%hd166569167232%_ + _%tl166568167234%_ + _%e166573167237%_ + _%hd166572167240%_ + _%tl166571167242%_ + _%e166576167245%_ + _%hd166575167248%_ + _%tl166574167250%_)) + (_%__match171072171073%_ + _%e166555167189%_ + _%hd166554167192%_ + _%tl166553167194%_ + _%e166558167197%_ + _%hd166557167200%_ + _%tl166556167202%_ + _%e166561167205%_ + _%hd166560167208%_ + _%tl166559167210%_ + _%e166564167213%_ + _%hd166563167216%_ + _%tl166562167218%_ + _%e166567167221%_ + _%hd166566167224%_ + _%tl166565167226%_ + _%e166570167229%_ + _%hd166569167232%_ + _%tl166568167234%_ + _%e166573167237%_ + _%hd166572167240%_ + _%tl166571167242%_ + _%e166576167245%_ + _%hd166575167248%_ + _%tl166574167250%_)))) + (_%__match171072171073%_ + _%e166555167189%_ + _%hd166554167192%_ + _%tl166553167194%_ + _%e166558167197%_ + _%hd166557167200%_ + _%tl166556167202%_ + _%e166561167205%_ + _%hd166560167208%_ + _%tl166559167210%_ + _%e166564167213%_ + _%hd166563167216%_ + _%tl166562167218%_ + _%e166567167221%_ + _%hd166566167224%_ + _%tl166565167226%_ + _%e166570167229%_ + _%hd166569167232%_ + _%tl166568167234%_ + _%e166573167237%_ + _%hd166572167240%_ + _%tl166571167242%_ + _%e166576167245%_ + _%hd166575167248%_ + _%tl166574167250%_)) + (_%__match170858170859%_ + _%e166555167189%_ + _%hd166554167192%_ + _%tl166553167194%_ + _%e166558167197%_ + _%hd166557167200%_ + _%tl166556167202%_ + _%e166561167205%_ + _%hd166560167208%_ + _%tl166559167210%_ + _%e166564167213%_ + _%hd166563167216%_ + _%tl166562167218%_ + _%e166567167221%_ + _%hd166566167224%_ + _%tl166565167226%_ + _%e166570167229%_ + _%hd166569167232%_ + _%tl166568167234%_ + _%e166573167237%_ + _%hd166572167240%_ + _%tl166571167242%_ + _%e166576167245%_ + _%hd166575167248%_ + _%tl166574167250%_ + _%e166579167253%_ + _%hd166578167256%_ + _%tl166577167258%_)))) + (_%__match170680170681%_ + (lambda (_%e166511167378%_ + _%hd166510167381%_ + _%tl166509167383%_ + _%e166514167386%_ + _%hd166513167389%_ + _%tl166512167391%_ + _%e166517167394%_ + _%hd166516167397%_ + _%tl166515167399%_ + _%e166520167402%_ + _%hd166519167405%_ + _%tl166518167407%_ + _%e166523167410%_ + _%hd166522167413%_ + _%tl166521167415%_ + _%e166526167418%_ + _%hd166525167421%_ + _%tl166524167423%_ + _%e166529167426%_ + _%hd166528167429%_ + _%tl166527167431%_ + _%e166532167434%_ + _%hd166531167437%_ + _%tl166530167439%_ + _%e166535167442%_ + _%hd166534167445%_ + _%tl166533167447%_ + _%e166538167450%_ + _%hd166537167453%_ + _%tl166536167455%_ + _%__splice170579170580%_ + _%target166539167458%_ + _%tl166541167460%_) + (letrec ((_%loop166542167463%_ + (lambda (_%hd166540167466%_ + _%args166546167468%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167511168437%_)) - (let ((_%e167514168442%_ + (gx#stx-pair? _%hd166540167466%_)) + (let ((_%e166543167471%_ (let () (declare (not safe)) - (gx#stx-e _%hd167511168437%_)))) - (let ((_%lp-tl167516168447%_ + (gx#stx-e _%hd166540167466%_)))) + (let ((_%lp-tl166545167476%_ (let () (declare (not safe)) - (##cdr _%e167514168442%_))) - (_%lp-hd167515168445%_ + (##cdr _%e166543167471%_))) + (_%lp-hd166544167474%_ (let () (declare (not safe)) - (##car _%e167514168442%_)))) - (let ((__tmp172680 - (cons _%lp-hd167515168445%_ - _%args167517168439%_))) - (declare (not safe)) - (_%loop167513168434%_ - _%lp-tl167516168447%_ - __tmp172680)))) - (let ((_%args167518168450%_ - (reverse _%args167517168439%_))) - (let ((_%L168453%_ - _%args167518168450%_) - (_%L168454%_ _%hd167508168424%_) - (_%L168455%_ _%hd167499168400%_) - (_%L168456%_ _%hd167490168376%_)) + (##car _%e166543167471%_)))) + (_%loop166542167463%_ + _%lp-tl166545167476%_ + (cons _%lp-hd166544167474%_ + _%args166546167468%_)))) + (let ((_%args166547167479%_ + (reverse _%args166546167468%_))) + (let ((_%L167482%_ + _%args166547167479%_) + (_%L167483%_ _%hd166537167453%_) + (_%L167484%_ _%hd166528167429%_) + (_%L167485%_ _%hd166519167405%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L168456%_ + _%L167485%_ 'call-method)) - (let ((__tmp172681 + (let ((__tmp171700 (let () (declare (not safe)) (slot-ref__0 - _%self167465%_ + _%self166494%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L168455%_ - __tmp172681))) - (_%__kont171548171549%_ - _%L168453%_ - _%L168454%_ - _%L168455%_ - _%L168456%_) - (_%__match171839171840%_ - _%e167482168349%_ - _%hd167481168352%_ - _%tl167480168354%_ - _%e167485168357%_ - _%hd167484168360%_ - _%tl167483168362%_ - _%e167488168365%_ - _%hd167487168368%_ - _%tl167486168370%_ - _%e167491168373%_ - _%hd167490168376%_ - _%tl167489168378%_ - _%e167494168381%_ - _%hd167493168384%_ - _%tl167492168386%_ - _%e167497168389%_ - _%hd167496168392%_ - _%tl167495168394%_ - _%e167500168397%_ - _%hd167499168400%_ - _%tl167498168402%_ - _%e167503168405%_ - _%hd167502168408%_ - _%tl167501168410%_ - _%e167506168413%_ - _%hd167505168416%_ - _%tl167504168418%_ - _%e167509168421%_ - _%hd167508168424%_ - _%tl167507168426%_)))))))) - (let () - (declare (not safe)) - (_%loop167513168434%_ - _%target167510168429%_ - '())))))) + _%L167484%_ + __tmp171700))) + (_%__kont170577170578%_ + _%L167482%_ + _%L167483%_ + _%L167484%_ + _%L167485%_) + (_%__match170868170869%_ + _%e166511167378%_ + _%hd166510167381%_ + _%tl166509167383%_ + _%e166514167386%_ + _%hd166513167389%_ + _%tl166512167391%_ + _%e166517167394%_ + _%hd166516167397%_ + _%tl166515167399%_ + _%e166520167402%_ + _%hd166519167405%_ + _%tl166518167407%_ + _%e166523167410%_ + _%hd166522167413%_ + _%tl166521167415%_ + _%e166526167418%_ + _%hd166525167421%_ + _%tl166524167423%_ + _%e166529167426%_ + _%hd166528167429%_ + _%tl166527167431%_ + _%e166532167434%_ + _%hd166531167437%_ + _%tl166530167439%_ + _%e166535167442%_ + _%hd166534167445%_ + _%tl166533167447%_ + _%e166538167450%_ + _%hd166537167453%_ + _%tl166536167455%_)))))))) + (_%loop166542167463%_ _%target166539167458%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx171546171547%_)) - (let ((_%e167482168349%_ + (gx#stx-pair? _%__stx170575170576%_)) + (let ((_%e166511167378%_ (let () (declare (not safe)) - (gx#stx-e _%__stx171546171547%_)))) - (let ((_%tl167480168354%_ + (gx#stx-e _%__stx170575170576%_)))) + (let ((_%tl166509167383%_ (let () (declare (not safe)) - (##cdr _%e167482168349%_))) - (_%hd167481168352%_ + (##cdr _%e166511167378%_))) + (_%hd166510167381%_ (let () (declare (not safe)) - (##car _%e167482168349%_)))) + (##car _%e166511167378%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167480168354%_)) - (let ((_%e167485168357%_ + (gx#stx-pair? _%tl166509167383%_)) + (let ((_%e166514167386%_ (let () (declare (not safe)) - (gx#stx-e _%tl167480168354%_)))) - (let ((_%tl167483168362%_ + (gx#stx-e _%tl166509167383%_)))) + (let ((_%tl166512167391%_ (let () (declare (not safe)) - (##cdr _%e167485168357%_))) - (_%hd167484168360%_ + (##cdr _%e166514167386%_))) + (_%hd166513167389%_ (let () (declare (not safe)) - (##car _%e167485168357%_)))) + (##car _%e166514167386%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167484168360%_)) - (let ((_%e167488168365%_ + (gx#stx-pair? _%hd166513167389%_)) + (let ((_%e166517167394%_ (let () (declare (not safe)) - (gx#stx-e _%hd167484168360%_)))) - (let ((_%tl167486168370%_ + (gx#stx-e _%hd166513167389%_)))) + (let ((_%tl166515167399%_ (let () (declare (not safe)) - (##cdr _%e167488168365%_))) - (_%hd167487168368%_ + (##cdr _%e166517167394%_))) + (_%hd166516167397%_ (let () (declare (not safe)) - (##car _%e167488168365%_)))) + (##car _%e166517167394%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd167487168368%_)) + _%hd166516167397%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd167487168368%_)) + _%hd166516167397%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167486168370%_)) - (let ((_%e167491168373%_ + _%tl166515167399%_)) + (let ((_%e166520167402%_ (let () (declare (not safe)) (gx#stx-e - _%tl167486168370%_)))) - (let ((_%tl167489168378%_ + _%tl166515167399%_)))) + (let ((_%tl166518167407%_ (let () (declare (not safe)) - (##cdr _%e167491168373%_))) - (_%hd167490168376%_ + (##cdr _%e166520167402%_))) + (_%hd166519167405%_ (let () (declare (not safe)) - (##car _%e167491168373%_)))) + (##car _%e166520167402%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167489168378%_)) + _%tl166518167407%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl167483168362%_)) - (let ((_%e167494168381%_ + (gx#stx-pair? _%tl166512167391%_)) + (let ((_%e166523167410%_ (let () (declare (not safe)) - (gx#stx-e _%tl167483168362%_)))) - (let ((_%tl167492168386%_ + (gx#stx-e _%tl166512167391%_)))) + (let ((_%tl166521167415%_ (let () (declare (not safe)) - (##cdr _%e167494168381%_))) - (_%hd167493168384%_ + (##cdr _%e166523167410%_))) + (_%hd166522167413%_ (let () (declare (not safe)) - (##car _%e167494168381%_)))) + (##car _%e166523167410%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167493168384%_)) - (let ((_%e167497168389%_ + (gx#stx-pair? _%hd166522167413%_)) + (let ((_%e166526167418%_ (let () (declare (not safe)) - (gx#stx-e _%hd167493168384%_)))) - (let ((_%tl167495168394%_ + (gx#stx-e _%hd166522167413%_)))) + (let ((_%tl166524167423%_ (let () (declare (not safe)) - (##cdr _%e167497168389%_))) - (_%hd167496168392%_ + (##cdr _%e166526167418%_))) + (_%hd166525167421%_ (let () (declare (not safe)) - (##car _%e167497168389%_)))) + (##car _%e166526167418%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167496168392%_)) + (gx#identifier? _%hd166525167421%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd167496168392%_)) + _%hd166525167421%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167495168394%_)) - (let ((_%e167500168397%_ + _%tl166524167423%_)) + (let ((_%e166529167426%_ (let () (declare (not safe)) (gx#stx-e - _%tl167495168394%_)))) - (let ((_%tl167498168402%_ + _%tl166524167423%_)))) + (let ((_%tl166527167431%_ (let () (declare (not safe)) - (##cdr _%e167500168397%_))) - (_%hd167499168400%_ + (##cdr _%e166529167426%_))) + (_%hd166528167429%_ (let () (declare (not safe)) - (##car _%e167500168397%_)))) + (##car _%e166529167426%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167498168402%_)) + _%tl166527167431%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167492168386%_)) - (let ((_%e167503168405%_ + _%tl166521167415%_)) + (let ((_%e166532167434%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl167492168386%_)))) - (let ((_%tl167501168410%_ + (gx#stx-e _%tl166521167415%_)))) + (let ((_%tl166530167439%_ (let () (declare (not safe)) - (##cdr _%e167503168405%_))) - (_%hd167502168408%_ + (##cdr _%e166532167434%_))) + (_%hd166531167437%_ (let () (declare (not safe)) - (##car _%e167503168405%_)))) + (##car _%e166532167434%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167502168408%_)) - (let ((_%e167506168413%_ + (gx#stx-pair? _%hd166531167437%_)) + (let ((_%e166535167442%_ (let () (declare (not safe)) - (gx#stx-e _%hd167502168408%_)))) - (let ((_%tl167504168418%_ + (gx#stx-e _%hd166531167437%_)))) + (let ((_%tl166533167447%_ (let () (declare (not safe)) - (##cdr _%e167506168413%_))) - (_%hd167505168416%_ + (##cdr _%e166535167442%_))) + (_%hd166534167445%_ (let () (declare (not safe)) - (##car _%e167506168413%_)))) + (##car _%e166535167442%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167505168416%_)) + (gx#identifier? _%hd166534167445%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd167505168416%_)) + _%hd166534167445%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167504168418%_)) - (let ((_%e167509168421%_ + (gx#stx-pair? _%tl166533167447%_)) + (let ((_%e166538167450%_ (let () (declare (not safe)) (gx#stx-e - _%tl167504168418%_)))) - (let ((_%tl167507168426%_ + _%tl166533167447%_)))) + (let ((_%tl166536167455%_ (let () (declare (not safe)) - (##cdr _%e167509168421%_))) - (_%hd167508168424%_ + (##cdr _%e166538167450%_))) + (_%hd166537167453%_ (let () (declare (not safe)) - (##car _%e167509168421%_)))) + (##car _%e166538167450%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167507168426%_)) + _%tl166536167455%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl167501168410%_)) - (let ((_%__splice171550171551%_ + _%tl166530167439%_)) + (let ((_%__splice170579170580%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl167501168410%_ '0)))) - (let ((_%tl167512168431%_ + (gx#syntax-split-splice _%tl166530167439%_ '0)))) + (let ((_%tl166541167460%_ (let () (declare (not safe)) - (##vector-ref _%__splice171550171551%_ '1))) - (_%target167510168429%_ + (##vector-ref _%__splice170579170580%_ '1))) + (_%target166539167458%_ (let () (declare (not safe)) - (##vector-ref _%__splice171550171551%_ '0)))) + (##vector-ref _%__splice170579170580%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167512168431%_)) - (_%__match171651171652%_ - _%e167482168349%_ - _%hd167481168352%_ - _%tl167480168354%_ - _%e167485168357%_ - _%hd167484168360%_ - _%tl167483168362%_ - _%e167488168365%_ - _%hd167487168368%_ - _%tl167486168370%_ - _%e167491168373%_ - _%hd167490168376%_ - _%tl167489168378%_ - _%e167494168381%_ - _%hd167493168384%_ - _%tl167492168386%_ - _%e167497168389%_ - _%hd167496168392%_ - _%tl167495168394%_ - _%e167500168397%_ - _%hd167499168400%_ - _%tl167498168402%_ - _%e167503168405%_ - _%hd167502168408%_ - _%tl167501168410%_ - _%e167506168413%_ - _%hd167505168416%_ - _%tl167504168418%_ - _%e167509168421%_ - _%hd167508168424%_ - _%tl167507168426%_ - _%__splice171550171551%_ - _%target167510168429%_ - _%tl167512168431%_) - (_%__match171839171840%_ - _%e167482168349%_ - _%hd167481168352%_ - _%tl167480168354%_ - _%e167485168357%_ - _%hd167484168360%_ - _%tl167483168362%_ - _%e167488168365%_ - _%hd167487168368%_ - _%tl167486168370%_ - _%e167491168373%_ - _%hd167490168376%_ - _%tl167489168378%_ - _%e167494168381%_ - _%hd167493168384%_ - _%tl167492168386%_ - _%e167497168389%_ - _%hd167496168392%_ - _%tl167495168394%_ - _%e167500168397%_ - _%hd167499168400%_ - _%tl167498168402%_ - _%e167503168405%_ - _%hd167502168408%_ - _%tl167501168410%_ - _%e167506168413%_ - _%hd167505168416%_ - _%tl167504168418%_ - _%e167509168421%_ - _%hd167508168424%_ - _%tl167507168426%_)))) - (_%__match171839171840%_ - _%e167482168349%_ - _%hd167481168352%_ - _%tl167480168354%_ - _%e167485168357%_ - _%hd167484168360%_ - _%tl167483168362%_ - _%e167488168365%_ - _%hd167487168368%_ - _%tl167486168370%_ - _%e167491168373%_ - _%hd167490168376%_ - _%tl167489168378%_ - _%e167494168381%_ - _%hd167493168384%_ - _%tl167492168386%_ - _%e167497168389%_ - _%hd167496168392%_ - _%tl167495168394%_ - _%e167500168397%_ - _%hd167499168400%_ - _%tl167498168402%_ - _%e167503168405%_ - _%hd167502168408%_ - _%tl167501168410%_ - _%e167506168413%_ - _%hd167505168416%_ - _%tl167504168418%_ - _%e167509168421%_ - _%hd167508168424%_ - _%tl167507168426%_)) + (gx#stx-null? _%tl166541167460%_)) + (_%__match170680170681%_ + _%e166511167378%_ + _%hd166510167381%_ + _%tl166509167383%_ + _%e166514167386%_ + _%hd166513167389%_ + _%tl166512167391%_ + _%e166517167394%_ + _%hd166516167397%_ + _%tl166515167399%_ + _%e166520167402%_ + _%hd166519167405%_ + _%tl166518167407%_ + _%e166523167410%_ + _%hd166522167413%_ + _%tl166521167415%_ + _%e166526167418%_ + _%hd166525167421%_ + _%tl166524167423%_ + _%e166529167426%_ + _%hd166528167429%_ + _%tl166527167431%_ + _%e166532167434%_ + _%hd166531167437%_ + _%tl166530167439%_ + _%e166535167442%_ + _%hd166534167445%_ + _%tl166533167447%_ + _%e166538167450%_ + _%hd166537167453%_ + _%tl166536167455%_ + _%__splice170579170580%_ + _%target166539167458%_ + _%tl166541167460%_) + (_%__match170868170869%_ + _%e166511167378%_ + _%hd166510167381%_ + _%tl166509167383%_ + _%e166514167386%_ + _%hd166513167389%_ + _%tl166512167391%_ + _%e166517167394%_ + _%hd166516167397%_ + _%tl166515167399%_ + _%e166520167402%_ + _%hd166519167405%_ + _%tl166518167407%_ + _%e166523167410%_ + _%hd166522167413%_ + _%tl166521167415%_ + _%e166526167418%_ + _%hd166525167421%_ + _%tl166524167423%_ + _%e166529167426%_ + _%hd166528167429%_ + _%tl166527167431%_ + _%e166532167434%_ + _%hd166531167437%_ + _%tl166530167439%_ + _%e166535167442%_ + _%hd166534167445%_ + _%tl166533167447%_ + _%e166538167450%_ + _%hd166537167453%_ + _%tl166536167455%_)))) + (_%__match170868170869%_ + _%e166511167378%_ + _%hd166510167381%_ + _%tl166509167383%_ + _%e166514167386%_ + _%hd166513167389%_ + _%tl166512167391%_ + _%e166517167394%_ + _%hd166516167397%_ + _%tl166515167399%_ + _%e166520167402%_ + _%hd166519167405%_ + _%tl166518167407%_ + _%e166523167410%_ + _%hd166522167413%_ + _%tl166521167415%_ + _%e166526167418%_ + _%hd166525167421%_ + _%tl166524167423%_ + _%e166529167426%_ + _%hd166528167429%_ + _%tl166527167431%_ + _%e166532167434%_ + _%hd166531167437%_ + _%tl166530167439%_ + _%e166535167442%_ + _%hd166534167445%_ + _%tl166533167447%_ + _%e166538167450%_ + _%hd166537167453%_ + _%tl166536167455%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match172043172044%_ - _%e167482168349%_ - _%hd167481168352%_ - _%tl167480168354%_ - _%e167485168357%_ - _%hd167484168360%_ - _%tl167483168362%_ - _%e167488168365%_ - _%hd167487168368%_ - _%tl167486168370%_ - _%e167491168373%_ - _%hd167490168376%_ - _%tl167489168378%_ - _%e167494168381%_ - _%hd167493168384%_ - _%tl167492168386%_ - _%e167497168389%_ - _%hd167496168392%_ - _%tl167495168394%_ - _%e167500168397%_ - _%hd167499168400%_ - _%tl167498168402%_ - _%e167503168405%_ - _%hd167502168408%_ - _%tl167501168410%_)))) - (_%__match172043172044%_ - _%e167482168349%_ - _%hd167481168352%_ - _%tl167480168354%_ - _%e167485168357%_ - _%hd167484168360%_ - _%tl167483168362%_ - _%e167488168365%_ - _%hd167487168368%_ - _%tl167486168370%_ - _%e167491168373%_ - _%hd167490168376%_ - _%tl167489168378%_ - _%e167494168381%_ - _%hd167493168384%_ - _%tl167492168386%_ - _%e167497168389%_ - _%hd167496168392%_ - _%tl167495168394%_ - _%e167500168397%_ - _%hd167499168400%_ - _%tl167498168402%_ - _%e167503168405%_ - _%hd167502168408%_ - _%tl167501168410%_)) - (_%__match171719171720%_ - _%e167482168349%_ - _%hd167481168352%_ - _%tl167480168354%_ - _%e167485168357%_ - _%hd167484168360%_ - _%tl167483168362%_ - _%e167488168365%_ - _%hd167487168368%_ - _%tl167486168370%_ - _%e167491168373%_ - _%hd167490168376%_ - _%tl167489168378%_ - _%e167494168381%_ - _%hd167493168384%_ - _%tl167492168386%_ - _%e167497168389%_ - _%hd167496168392%_ - _%tl167495168394%_ - _%e167500168397%_ - _%hd167499168400%_ - _%tl167498168402%_ - _%e167503168405%_ - _%hd167502168408%_ - _%tl167501168410%_ - _%e167506168413%_ - _%hd167505168416%_ - _%tl167504168418%_)) - (_%__match172043172044%_ - _%e167482168349%_ - _%hd167481168352%_ - _%tl167480168354%_ - _%e167485168357%_ - _%hd167484168360%_ - _%tl167483168362%_ - _%e167488168365%_ - _%hd167487168368%_ - _%tl167486168370%_ - _%e167491168373%_ - _%hd167490168376%_ - _%tl167489168378%_ - _%e167494168381%_ - _%hd167493168384%_ - _%tl167492168386%_ - _%e167497168389%_ - _%hd167496168392%_ - _%tl167495168394%_ - _%e167500168397%_ - _%hd167499168400%_ - _%tl167498168402%_ - _%e167503168405%_ - _%hd167502168408%_ - _%tl167501168410%_)))) - (_%__match172043172044%_ - _%e167482168349%_ - _%hd167481168352%_ - _%tl167480168354%_ - _%e167485168357%_ - _%hd167484168360%_ - _%tl167483168362%_ - _%e167488168365%_ - _%hd167487168368%_ - _%tl167486168370%_ - _%e167491168373%_ - _%hd167490168376%_ - _%tl167489168378%_ - _%e167494168381%_ - _%hd167493168384%_ - _%tl167492168386%_ - _%e167497168389%_ - _%hd167496168392%_ - _%tl167495168394%_ - _%e167500168397%_ - _%hd167499168400%_ - _%tl167498168402%_ - _%e167503168405%_ - _%hd167502168408%_ - _%tl167501168410%_)))) - (_%__match171981171982%_ - _%e167482168349%_ - _%hd167481168352%_ - _%tl167480168354%_ - _%e167485168357%_ - _%hd167484168360%_ - _%tl167483168362%_ - _%e167488168365%_ - _%hd167487168368%_ - _%tl167486168370%_ - _%e167491168373%_ - _%hd167490168376%_ - _%tl167489168378%_ - _%e167494168381%_ - _%hd167493168384%_ - _%tl167492168386%_ - _%e167497168389%_ - _%hd167496168392%_ - _%tl167495168394%_ - _%e167500168397%_ - _%hd167499168400%_ - _%tl167498168402%_)) - (_%__kont171564171565%_)))) + (_%__match171072171073%_ + _%e166511167378%_ + _%hd166510167381%_ + _%tl166509167383%_ + _%e166514167386%_ + _%hd166513167389%_ + _%tl166512167391%_ + _%e166517167394%_ + _%hd166516167397%_ + _%tl166515167399%_ + _%e166520167402%_ + _%hd166519167405%_ + _%tl166518167407%_ + _%e166523167410%_ + _%hd166522167413%_ + _%tl166521167415%_ + _%e166526167418%_ + _%hd166525167421%_ + _%tl166524167423%_ + _%e166529167426%_ + _%hd166528167429%_ + _%tl166527167431%_ + _%e166532167434%_ + _%hd166531167437%_ + _%tl166530167439%_)))) + (_%__match171072171073%_ + _%e166511167378%_ + _%hd166510167381%_ + _%tl166509167383%_ + _%e166514167386%_ + _%hd166513167389%_ + _%tl166512167391%_ + _%e166517167394%_ + _%hd166516167397%_ + _%tl166515167399%_ + _%e166520167402%_ + _%hd166519167405%_ + _%tl166518167407%_ + _%e166523167410%_ + _%hd166522167413%_ + _%tl166521167415%_ + _%e166526167418%_ + _%hd166525167421%_ + _%tl166524167423%_ + _%e166529167426%_ + _%hd166528167429%_ + _%tl166527167431%_ + _%e166532167434%_ + _%hd166531167437%_ + _%tl166530167439%_)) + (_%__match170748170749%_ + _%e166511167378%_ + _%hd166510167381%_ + _%tl166509167383%_ + _%e166514167386%_ + _%hd166513167389%_ + _%tl166512167391%_ + _%e166517167394%_ + _%hd166516167397%_ + _%tl166515167399%_ + _%e166520167402%_ + _%hd166519167405%_ + _%tl166518167407%_ + _%e166523167410%_ + _%hd166522167413%_ + _%tl166521167415%_ + _%e166526167418%_ + _%hd166525167421%_ + _%tl166524167423%_ + _%e166529167426%_ + _%hd166528167429%_ + _%tl166527167431%_ + _%e166532167434%_ + _%hd166531167437%_ + _%tl166530167439%_ + _%e166535167442%_ + _%hd166534167445%_ + _%tl166533167447%_)) + (_%__match171072171073%_ + _%e166511167378%_ + _%hd166510167381%_ + _%tl166509167383%_ + _%e166514167386%_ + _%hd166513167389%_ + _%tl166512167391%_ + _%e166517167394%_ + _%hd166516167397%_ + _%tl166515167399%_ + _%e166520167402%_ + _%hd166519167405%_ + _%tl166518167407%_ + _%e166523167410%_ + _%hd166522167413%_ + _%tl166521167415%_ + _%e166526167418%_ + _%hd166525167421%_ + _%tl166524167423%_ + _%e166529167426%_ + _%hd166528167429%_ + _%tl166527167431%_ + _%e166532167434%_ + _%hd166531167437%_ + _%tl166530167439%_)))) + (_%__match171072171073%_ + _%e166511167378%_ + _%hd166510167381%_ + _%tl166509167383%_ + _%e166514167386%_ + _%hd166513167389%_ + _%tl166512167391%_ + _%e166517167394%_ + _%hd166516167397%_ + _%tl166515167399%_ + _%e166520167402%_ + _%hd166519167405%_ + _%tl166518167407%_ + _%e166523167410%_ + _%hd166522167413%_ + _%tl166521167415%_ + _%e166526167418%_ + _%hd166525167421%_ + _%tl166524167423%_ + _%e166529167426%_ + _%hd166528167429%_ + _%tl166527167431%_ + _%e166532167434%_ + _%hd166531167437%_ + _%tl166530167439%_)))) + (_%__match171010171011%_ + _%e166511167378%_ + _%hd166510167381%_ + _%tl166509167383%_ + _%e166514167386%_ + _%hd166513167389%_ + _%tl166512167391%_ + _%e166517167394%_ + _%hd166516167397%_ + _%tl166515167399%_ + _%e166520167402%_ + _%hd166519167405%_ + _%tl166518167407%_ + _%e166523167410%_ + _%hd166522167413%_ + _%tl166521167415%_ + _%e166526167418%_ + _%hd166525167421%_ + _%tl166524167423%_ + _%e166529167426%_ + _%hd166528167429%_ + _%tl166527167431%_)) + (_%__kont170593170594%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont171564171565%_)) - (_%__kont171564171565%_)) - (_%__kont171564171565%_)))) - (_%__kont171564171565%_)))) - (_%__kont171564171565%_)) - (_%__kont171564171565%_)))) + (_%__kont170593170594%_)) + (_%__kont170593170594%_)) + (_%__kont170593170594%_)))) + (_%__kont170593170594%_)))) + (_%__kont170593170594%_)) + (_%__kont170593170594%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont171564171565%_)) - (_%__kont171564171565%_)) - (_%__kont171564171565%_)))) - (_%__kont171564171565%_)))) - (_%__kont171564171565%_)))) - (_%__kont171564171565%_))))))) + (_%__kont170593170594%_)) + (_%__kont170593170594%_)) + (_%__kont170593170594%_)))) + (_%__kont170593170594%_)))) + (_%__kont170593170594%_)))) + (_%__kont170593170594%_))))))) (define gxc#subst-object-refs-call% - (lambda (_%self166404%_ _%stx166405%_) - (letrec ((_%force-e166407%_ - (lambda (_%target167463%_) + (lambda (_%self165433%_ _%stx165434%_) + (letrec ((_%force-e165436%_ + (lambda (_%target166492%_) (cons '%#call (cons (cons '%#ref (cons 'force '())) - (cons (cons '%#ref (cons _%target167463%_ '())) + (cons (cons '%#ref (cons _%target166492%_ '())) '())))))) - (let* ((_%__stx172048172049%_ _%stx166405%_) - (_%g166415166637%_ + (let* ((_%__stx171077171078%_ _%stx165434%_) + (_%g165444165666%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx172048172049%_))))) - (let ((_%__kont172050172051%_ - (lambda (_%L167409%_ _%L167410%_ _%L167411%_ _%L167412%_) - (let ((_%$method167457%_ - (let ((__tmp172683 + _%__stx171077171078%_))))) + (let ((_%__kont171079171080%_ + (lambda (_%L166438%_ _%L166439%_ _%L166440%_ _%L166441%_) + (let ((_%$method166486%_ + (let ((__tmp171702 (let () (declare (not safe)) - (slot-ref__0 _%self166404%_ 'methods))) - (__tmp172682 + (slot-ref__0 _%self165433%_ 'methods))) + (__tmp171701 (let () (declare (not safe)) - (gx#stx-e _%L167410%_)))) + (gx#stx-e _%L166439%_)))) (declare (not safe)) - (hash-ref__0 __tmp172683 __tmp172682))) - (_%args167458%_ - (map (lambda (_%g167445167447%_) + (hash-ref__0 __tmp171702 __tmp171701))) + (_%args166487%_ + (map (lambda (_%g166474166476%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166404%_ - _%g167445167447%_))) - (let ((__tmp172684 - (lambda (_%g167449167452%_ - _%g167450167454%_) - (cons _%g167449167452%_ - _%g167450167454%_)))) + _%self165433%_ + _%g166474166476%_))) + (let ((__tmp171703 + (lambda (_%g166478166481%_ + _%g166479166483%_) + (cons _%g166478166481%_ + _%g166479166483%_)))) (declare (not safe)) - (__foldr1 __tmp172684 '() _%L167409%_))))) - (let ((__tmp172685 + (__foldr1 __tmp171703 '() _%L166438%_))))) + (let ((__tmp171704 (cons '%#call - (cons (let () - (declare (not safe)) - (_%force-e166407%_ - _%$method167457%_)) + (cons (_%force-e165436%_ _%$method166486%_) (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self166404%_ + _%self165433%_ 'receiver)) '())) - _%args167458%_))))) + _%args166487%_))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp172685 _%stx166405%_))))) - (_%__kont172054172055%_ - (lambda (_%L167241%_ - _%L167242%_ - _%L167243%_ - _%L167244%_ - _%L167245%_) - (let ((_%$method167297%_ - (let ((__tmp172687 + (gxc#xform-wrap-source __tmp171704 _%stx165434%_))))) + (_%__kont171083171084%_ + (lambda (_%L166270%_ + _%L166271%_ + _%L166272%_ + _%L166273%_ + _%L166274%_) + (let ((_%$method166326%_ + (let ((__tmp171706 (let () (declare (not safe)) - (slot-ref__0 _%self166404%_ 'methods))) - (__tmp172686 + (slot-ref__0 _%self165433%_ 'methods))) + (__tmp171705 (let () (declare (not safe)) - (gx#stx-e _%L167242%_)))) + (gx#stx-e _%L166271%_)))) (declare (not safe)) - (hash-ref__0 __tmp172687 __tmp172686))) - (_%args167298%_ - (map (lambda (_%g167285167287%_) + (hash-ref__0 __tmp171706 __tmp171705))) + (_%args166327%_ + (map (lambda (_%g166314166316%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166404%_ - _%g167285167287%_))) - (let ((__tmp172688 - (lambda (_%g167289167292%_ - _%g167290167294%_) - (cons _%g167289167292%_ - _%g167290167294%_)))) + _%self165433%_ + _%g166314166316%_))) + (let ((__tmp171707 + (lambda (_%g166318166321%_ + _%g166319166323%_) + (cons _%g166318166321%_ + _%g166319166323%_)))) (declare (not safe)) - (__foldr1 __tmp172688 '() _%L167241%_))))) - (let ((__tmp172689 + (__foldr1 __tmp171707 '() _%L166270%_))))) + (let ((__tmp171708 (cons '%#call (cons (cons '%#ref (cons 'apply '())) - (cons (let () - (declare (not safe)) - (_%force-e166407%_ - _%$method167297%_)) + (cons (_%force-e165436%_ + _%$method166326%_) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self166404%_ 'receiver)) + (slot-ref__0 _%self165433%_ 'receiver)) '())) - _%args167298%_)))))) + _%args166327%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp172689 _%stx166405%_))))) - (_%__kont172058172059%_ - (lambda (_%L167072%_ _%L167073%_ _%L167074%_) - (let* ((_%$field167106%_ - (let ((__tmp172691 + (gxc#xform-wrap-source __tmp171708 _%stx165434%_))))) + (_%__kont171087171088%_ + (lambda (_%L166101%_ _%L166102%_ _%L166103%_) + (let* ((_%$field166135%_ + (let ((__tmp171710 (let () (declare (not safe)) - (slot-ref__0 _%self166404%_ 'slots))) - (__tmp172690 + (slot-ref__0 _%self165433%_ 'slots))) + (__tmp171709 (let () (declare (not safe)) - (gx#stx-e _%L167072%_)))) + (gx#stx-e _%L166101%_)))) (declare (not safe)) - (hash-ref__0 __tmp172691 __tmp172690))) - (__tmp172692 + (hash-ref__0 __tmp171710 __tmp171709))) + (__tmp171711 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self166404%_ + _%self165433%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field167106%_ + (cons _%$field166135%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self166404%_ 'receiver)) + (slot-ref__0 _%self165433%_ 'receiver)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp172692 _%stx166405%_)))) - (_%__kont172060172061%_ - (lambda (_%L166946%_ _%L166947%_ _%L166948%_ _%L166949%_) - (let ((_%$field166984%_ - (let ((__tmp172694 + (gxc#xform-wrap-source __tmp171711 _%stx165434%_)))) + (_%__kont171089171090%_ + (lambda (_%L165975%_ _%L165976%_ _%L165977%_ _%L165978%_) + (let ((_%$field166013%_ + (let ((__tmp171713 (let () (declare (not safe)) - (slot-ref__0 _%self166404%_ 'slots))) - (__tmp172693 + (slot-ref__0 _%self165433%_ 'slots))) + (__tmp171712 (let () (declare (not safe)) - (gx#stx-e _%L166947%_)))) + (gx#stx-e _%L165976%_)))) (declare (not safe)) - (hash-ref__0 __tmp172694 __tmp172693))) - (_%expr166985%_ + (hash-ref__0 __tmp171713 __tmp171712))) + (_%expr166014%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self166404%_ _%L166946%_)))) - (let ((__tmp172695 + (gxc#compile-e__1 _%self165433%_ _%L165975%_)))) + (let ((__tmp171714 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self166404%_ + _%self165433%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field166984%_ + (cons _%$field166013%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self166404%_ 'receiver)) + (slot-ref__0 _%self165433%_ 'receiver)) '())) - (cons _%expr166985%_ '()))))))) + (cons _%expr166014%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp172695 _%stx166405%_))))) - (_%__kont172062172063%_ - (lambda (_%L166818%_ _%L166819%_) - (let* ((_%accessor166841%_ - (let ((__tmp172696 + (gxc#xform-wrap-source __tmp171714 _%stx165434%_))))) + (_%__kont171091171092%_ + (lambda (_%L165847%_ _%L165848%_) + (let* ((_%accessor165870%_ + (let ((__tmp171715 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166819%_)))) + (gxc#identifier-symbol _%L165848%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp172696))) - (_%klass166843%_ - (let ((__tmp172697 + (gxc#optimizer-resolve-type __tmp171715))) + (_%klass165872%_ + (let ((__tmp171716 (##structure-ref - _%accessor166841%_ + _%accessor165870%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166405%_ - __tmp172697))) - (_%slot166845%_ + _%stx165434%_ + __tmp171716))) + (_%slot165874%_ (##structure-ref - _%accessor166841%_ + _%accessor165870%_ '3 gxc#!accessor::t '#f))) - (if (and (let ((__tmp172698 - (##structure-ref - _%accessor166841%_ - '4 - gxc#!accessor::t - '#f))) - (declare (not safe)) - (not __tmp172698)) + (if (and (not (##structure-ref + _%accessor165870%_ + '4 + gxc#!accessor::t + '#f)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass166843%_ - _%slot166845%_)) + _%klass165872%_ + _%slot165874%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass166843%_ + _%klass165872%_ '8 '#f '#f)))) - _%stx166405%_ - (let* ((_%$field166851%_ - (let ((__tmp172699 + _%stx165434%_ + (let* ((_%$field165880%_ + (let ((__tmp171717 (let () (declare (not safe)) (slot-ref__0 - _%self166404%_ + _%self165433%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp172699 _%slot166845%_))) - (__tmp172700 + (hash-ref__0 __tmp171717 _%slot165874%_))) + (__tmp171718 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self166404%_ + _%self165433%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field166851%_ + (cons _%$field165880%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -6788,105 +6425,102 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self166404%_ 'receiver)) + (slot-ref__0 _%self165433%_ 'receiver)) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp172700 - _%stx166405%_)))))) - (_%__kont172064172065%_ - (lambda (_%L166713%_ _%L166714%_ _%L166715%_) - (let* ((_%mutator166743%_ - (let ((__tmp172701 + __tmp171718 + _%stx165434%_)))))) + (_%__kont171093171094%_ + (lambda (_%L165742%_ _%L165743%_ _%L165744%_) + (let* ((_%mutator165772%_ + (let ((__tmp171719 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166715%_)))) + (gxc#identifier-symbol _%L165744%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp172701))) - (_%klass166745%_ - (let ((__tmp172702 + (gxc#optimizer-resolve-type __tmp171719))) + (_%klass165774%_ + (let ((__tmp171720 (##structure-ref - _%mutator166743%_ + _%mutator165772%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166405%_ - __tmp172702))) - (_%slot166747%_ + _%stx165434%_ + __tmp171720))) + (_%slot165776%_ (##structure-ref - _%mutator166743%_ + _%mutator165772%_ '3 gxc#!mutator::t '#f)) - (_%expr166749%_ + (_%expr165778%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self166404%_ _%L166713%_)))) - (if (and (let ((__tmp172703 - (##structure-ref - _%mutator166743%_ - '4 - gxc#!mutator::t - '#f))) - (declare (not safe)) - (not __tmp172703)) + (gxc#compile-e__1 _%self165433%_ _%L165742%_)))) + (if (and (not (##structure-ref + _%mutator165772%_ + '4 + gxc#!mutator::t + '#f)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass166745%_ - _%slot166747%_)) + _%klass165774%_ + _%slot165776%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass166745%_ + _%klass165774%_ '8 '#f '#f)))) - (let ((__tmp172704 + (let ((__tmp171721 (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L166715%_ '())) + (cons _%L165744%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L166714%_ + (cons _%L165743%_ '())) - (cons _%expr166749%_ + (cons _%expr165778%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp172704 _%stx166405%_)) - (let* ((_%$field166755%_ - (let ((__tmp172705 + (gxc#xform-wrap-source __tmp171721 _%stx165434%_)) + (let* ((_%$field165784%_ + (let ((__tmp171722 (let () (declare (not safe)) (slot-ref__0 - _%self166404%_ + _%self165433%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp172705 _%slot166747%_))) - (__tmp172706 + (hash-ref__0 __tmp171722 _%slot165776%_))) + (__tmp171723 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self166404%_ + _%self165433%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field166755%_ + (cons _%$field165784%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -6894,1860 +6528,1846 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self166404%_ 'receiver)) + (slot-ref__0 _%self165433%_ 'receiver)) '())) - (cons _%expr166749%_ '()))))))) + (cons _%expr165778%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp172706 - _%stx166405%_)))))) - (_%__kont172066172067%_ + __tmp171723 + _%stx165434%_)))))) + (_%__kont171095171096%_ (lambda () (let () (declare (not safe)) - (gxc#xform-operands _%self166404%_ _%stx166405%_))))) - (let* ((_%__match172547172548%_ - (lambda (_%e166611166649%_ - _%hd166610166652%_ - _%tl166609166654%_ - _%e166614166657%_ - _%hd166613166660%_ - _%tl166612166662%_ - _%e166617166665%_ - _%hd166616166668%_ - _%tl166615166670%_ - _%e166620166673%_ - _%hd166619166676%_ - _%tl166618166678%_ - _%e166623166681%_ - _%hd166622166684%_ - _%tl166621166686%_ - _%e166626166689%_ - _%hd166625166692%_ - _%tl166624166694%_ - _%e166629166697%_ - _%hd166628166700%_ - _%tl166627166702%_ - _%e166632166705%_ - _%hd166631166708%_ - _%tl166630166710%_) - (let ((_%L166713%_ _%hd166631166708%_) - (_%L166714%_ _%hd166628166700%_) - (_%L166715%_ _%hd166619166676%_)) - (if (and (let ((__tmp172707 + (gxc#xform-operands _%self165433%_ _%stx165434%_))))) + (let* ((_%__match171576171577%_ + (lambda (_%e165640165678%_ + _%hd165639165681%_ + _%tl165638165683%_ + _%e165643165686%_ + _%hd165642165689%_ + _%tl165641165691%_ + _%e165646165694%_ + _%hd165645165697%_ + _%tl165644165699%_ + _%e165649165702%_ + _%hd165648165705%_ + _%tl165647165707%_ + _%e165652165710%_ + _%hd165651165713%_ + _%tl165650165715%_ + _%e165655165718%_ + _%hd165654165721%_ + _%tl165653165723%_ + _%e165658165726%_ + _%hd165657165729%_ + _%tl165656165731%_ + _%e165661165734%_ + _%hd165660165737%_ + _%tl165659165739%_) + (let ((_%L165742%_ _%hd165660165737%_) + (_%L165743%_ _%hd165657165729%_) + (_%L165744%_ _%hd165648165705%_)) + (if (and (let ((__tmp171724 (let () (declare (not safe)) (slot-ref__0 - _%self166404%_ + _%self165433%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L166714%_ - __tmp172707)) - (let ((__tmp172708 - (let ((__tmp172709 + _%L165743%_ + __tmp171724)) + (let ((__tmp171725 + (let ((__tmp171726 (let () (declare (not safe)) (gxc#identifier-symbol - _%L166715%_)))) + _%L165744%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp172709)))) + __tmp171726)))) (declare (not safe)) (##structure-instance-of? - __tmp172708 + __tmp171725 'gxc#!mutator::t))) - (_%__kont172064172065%_ - _%L166713%_ - _%L166714%_ - _%L166715%_) - (_%__kont172066172067%_))))) - (_%__match172545172546%_ - (lambda (_%e166611166649%_ - _%hd166610166652%_ - _%tl166609166654%_ - _%e166614166657%_ - _%hd166613166660%_ - _%tl166612166662%_ - _%e166617166665%_ - _%hd166616166668%_ - _%tl166615166670%_ - _%e166620166673%_ - _%hd166619166676%_ - _%tl166618166678%_ - _%e166623166681%_ - _%hd166622166684%_ - _%tl166621166686%_ - _%e166626166689%_ - _%hd166625166692%_ - _%tl166624166694%_ - _%e166629166697%_ - _%hd166628166700%_ - _%tl166627166702%_ - _%e166632166705%_ - _%hd166631166708%_ - _%tl166630166710%_) + (_%__kont171093171094%_ + _%L165742%_ + _%L165743%_ + _%L165744%_) + (_%__kont171095171096%_))))) + (_%__match171574171575%_ + (lambda (_%e165640165678%_ + _%hd165639165681%_ + _%tl165638165683%_ + _%e165643165686%_ + _%hd165642165689%_ + _%tl165641165691%_ + _%e165646165694%_ + _%hd165645165697%_ + _%tl165644165699%_ + _%e165649165702%_ + _%hd165648165705%_ + _%tl165647165707%_ + _%e165652165710%_ + _%hd165651165713%_ + _%tl165650165715%_ + _%e165655165718%_ + _%hd165654165721%_ + _%tl165653165723%_ + _%e165658165726%_ + _%hd165657165729%_ + _%tl165656165731%_ + _%e165661165734%_ + _%hd165660165737%_ + _%tl165659165739%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166630166710%_)) - (_%__match172547172548%_ - _%e166611166649%_ - _%hd166610166652%_ - _%tl166609166654%_ - _%e166614166657%_ - _%hd166613166660%_ - _%tl166612166662%_ - _%e166617166665%_ - _%hd166616166668%_ - _%tl166615166670%_ - _%e166620166673%_ - _%hd166619166676%_ - _%tl166618166678%_ - _%e166623166681%_ - _%hd166622166684%_ - _%tl166621166686%_ - _%e166626166689%_ - _%hd166625166692%_ - _%tl166624166694%_ - _%e166629166697%_ - _%hd166628166700%_ - _%tl166627166702%_ - _%e166632166705%_ - _%hd166631166708%_ - _%tl166630166710%_) - (_%__kont172066172067%_)))) - (_%__match172539172540%_ - (lambda (_%e166611166649%_ - _%hd166610166652%_ - _%tl166609166654%_ - _%e166614166657%_ - _%hd166613166660%_ - _%tl166612166662%_ - _%e166617166665%_ - _%hd166616166668%_ - _%tl166615166670%_ - _%e166620166673%_ - _%hd166619166676%_ - _%tl166618166678%_ - _%e166623166681%_ - _%hd166622166684%_ - _%tl166621166686%_ - _%e166626166689%_ - _%hd166625166692%_ - _%tl166624166694%_ - _%e166629166697%_ - _%hd166628166700%_ - _%tl166627166702%_) + (gx#stx-null? _%tl165659165739%_)) + (_%__match171576171577%_ + _%e165640165678%_ + _%hd165639165681%_ + _%tl165638165683%_ + _%e165643165686%_ + _%hd165642165689%_ + _%tl165641165691%_ + _%e165646165694%_ + _%hd165645165697%_ + _%tl165644165699%_ + _%e165649165702%_ + _%hd165648165705%_ + _%tl165647165707%_ + _%e165652165710%_ + _%hd165651165713%_ + _%tl165650165715%_ + _%e165655165718%_ + _%hd165654165721%_ + _%tl165653165723%_ + _%e165658165726%_ + _%hd165657165729%_ + _%tl165656165731%_ + _%e165661165734%_ + _%hd165660165737%_ + _%tl165659165739%_) + (_%__kont171095171096%_)))) + (_%__match171568171569%_ + (lambda (_%e165640165678%_ + _%hd165639165681%_ + _%tl165638165683%_ + _%e165643165686%_ + _%hd165642165689%_ + _%tl165641165691%_ + _%e165646165694%_ + _%hd165645165697%_ + _%tl165644165699%_ + _%e165649165702%_ + _%hd165648165705%_ + _%tl165647165707%_ + _%e165652165710%_ + _%hd165651165713%_ + _%tl165650165715%_ + _%e165655165718%_ + _%hd165654165721%_ + _%tl165653165723%_ + _%e165658165726%_ + _%hd165657165729%_ + _%tl165656165731%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166621166686%_)) - (let ((_%e166632166705%_ + (gx#stx-pair? _%tl165650165715%_)) + (let ((_%e165661165734%_ (let () (declare (not safe)) - (gx#stx-e _%tl166621166686%_)))) - (let ((_%tl166630166710%_ + (gx#stx-e _%tl165650165715%_)))) + (let ((_%tl165659165739%_ (let () (declare (not safe)) - (##cdr _%e166632166705%_))) - (_%hd166631166708%_ + (##cdr _%e165661165734%_))) + (_%hd165660165737%_ (let () (declare (not safe)) - (##car _%e166632166705%_)))) + (##car _%e165661165734%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166630166710%_)) - (_%__match172547172548%_ - _%e166611166649%_ - _%hd166610166652%_ - _%tl166609166654%_ - _%e166614166657%_ - _%hd166613166660%_ - _%tl166612166662%_ - _%e166617166665%_ - _%hd166616166668%_ - _%tl166615166670%_ - _%e166620166673%_ - _%hd166619166676%_ - _%tl166618166678%_ - _%e166623166681%_ - _%hd166622166684%_ - _%tl166621166686%_ - _%e166626166689%_ - _%hd166625166692%_ - _%tl166624166694%_ - _%e166629166697%_ - _%hd166628166700%_ - _%tl166627166702%_ - _%e166632166705%_ - _%hd166631166708%_ - _%tl166630166710%_) - (_%__kont172066172067%_)))) - (_%__kont172066172067%_)))) - (_%__match172485172486%_ - (lambda (_%e166587166762%_ - _%hd166586166765%_ - _%tl166585166767%_ - _%e166590166770%_ - _%hd166589166773%_ - _%tl166588166775%_ - _%e166593166778%_ - _%hd166592166781%_ - _%tl166591166783%_ - _%e166596166786%_ - _%hd166595166789%_ - _%tl166594166791%_ - _%e166599166794%_ - _%hd166598166797%_ - _%tl166597166799%_ - _%e166602166802%_ - _%hd166601166805%_ - _%tl166600166807%_ - _%e166605166810%_ - _%hd166604166813%_ - _%tl166603166815%_) - (let ((_%L166818%_ _%hd166604166813%_) - (_%L166819%_ _%hd166595166789%_)) - (if (and (let ((__tmp172710 + (gx#stx-null? _%tl165659165739%_)) + (_%__match171576171577%_ + _%e165640165678%_ + _%hd165639165681%_ + _%tl165638165683%_ + _%e165643165686%_ + _%hd165642165689%_ + _%tl165641165691%_ + _%e165646165694%_ + _%hd165645165697%_ + _%tl165644165699%_ + _%e165649165702%_ + _%hd165648165705%_ + _%tl165647165707%_ + _%e165652165710%_ + _%hd165651165713%_ + _%tl165650165715%_ + _%e165655165718%_ + _%hd165654165721%_ + _%tl165653165723%_ + _%e165658165726%_ + _%hd165657165729%_ + _%tl165656165731%_ + _%e165661165734%_ + _%hd165660165737%_ + _%tl165659165739%_) + (_%__kont171095171096%_)))) + (_%__kont171095171096%_)))) + (_%__match171514171515%_ + (lambda (_%e165616165791%_ + _%hd165615165794%_ + _%tl165614165796%_ + _%e165619165799%_ + _%hd165618165802%_ + _%tl165617165804%_ + _%e165622165807%_ + _%hd165621165810%_ + _%tl165620165812%_ + _%e165625165815%_ + _%hd165624165818%_ + _%tl165623165820%_ + _%e165628165823%_ + _%hd165627165826%_ + _%tl165626165828%_ + _%e165631165831%_ + _%hd165630165834%_ + _%tl165629165836%_ + _%e165634165839%_ + _%hd165633165842%_ + _%tl165632165844%_) + (let ((_%L165847%_ _%hd165633165842%_) + (_%L165848%_ _%hd165624165818%_)) + (if (and (let ((__tmp171727 (let () (declare (not safe)) (slot-ref__0 - _%self166404%_ + _%self165433%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L166818%_ - __tmp172710)) - (let ((__tmp172711 - (let ((__tmp172712 + _%L165847%_ + __tmp171727)) + (let ((__tmp171728 + (let ((__tmp171729 (let () (declare (not safe)) (gxc#identifier-symbol - _%L166819%_)))) + _%L165848%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp172712)))) + __tmp171729)))) (declare (not safe)) (##structure-instance-of? - __tmp172711 + __tmp171728 'gxc#!accessor::t))) - (_%__kont172062172063%_ _%L166818%_ _%L166819%_) - (_%__kont172066172067%_))))) - (_%__match172483172484%_ - (lambda (_%e166587166762%_ - _%hd166586166765%_ - _%tl166585166767%_ - _%e166590166770%_ - _%hd166589166773%_ - _%tl166588166775%_ - _%e166593166778%_ - _%hd166592166781%_ - _%tl166591166783%_ - _%e166596166786%_ - _%hd166595166789%_ - _%tl166594166791%_ - _%e166599166794%_ - _%hd166598166797%_ - _%tl166597166799%_ - _%e166602166802%_ - _%hd166601166805%_ - _%tl166600166807%_ - _%e166605166810%_ - _%hd166604166813%_ - _%tl166603166815%_) + (_%__kont171091171092%_ _%L165847%_ _%L165848%_) + (_%__kont171095171096%_))))) + (_%__match171512171513%_ + (lambda (_%e165616165791%_ + _%hd165615165794%_ + _%tl165614165796%_ + _%e165619165799%_ + _%hd165618165802%_ + _%tl165617165804%_ + _%e165622165807%_ + _%hd165621165810%_ + _%tl165620165812%_ + _%e165625165815%_ + _%hd165624165818%_ + _%tl165623165820%_ + _%e165628165823%_ + _%hd165627165826%_ + _%tl165626165828%_ + _%e165631165831%_ + _%hd165630165834%_ + _%tl165629165836%_ + _%e165634165839%_ + _%hd165633165842%_ + _%tl165632165844%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166597166799%_)) - (_%__match172485172486%_ - _%e166587166762%_ - _%hd166586166765%_ - _%tl166585166767%_ - _%e166590166770%_ - _%hd166589166773%_ - _%tl166588166775%_ - _%e166593166778%_ - _%hd166592166781%_ - _%tl166591166783%_ - _%e166596166786%_ - _%hd166595166789%_ - _%tl166594166791%_ - _%e166599166794%_ - _%hd166598166797%_ - _%tl166597166799%_ - _%e166602166802%_ - _%hd166601166805%_ - _%tl166600166807%_ - _%e166605166810%_ - _%hd166604166813%_ - _%tl166603166815%_) - (_%__match172539172540%_ - _%e166587166762%_ - _%hd166586166765%_ - _%tl166585166767%_ - _%e166590166770%_ - _%hd166589166773%_ - _%tl166588166775%_ - _%e166593166778%_ - _%hd166592166781%_ - _%tl166591166783%_ - _%e166596166786%_ - _%hd166595166789%_ - _%tl166594166791%_ - _%e166599166794%_ - _%hd166598166797%_ - _%tl166597166799%_ - _%e166602166802%_ - _%hd166601166805%_ - _%tl166600166807%_ - _%e166605166810%_ - _%hd166604166813%_ - _%tl166603166815%_)))) - (_%__match172429172430%_ - (lambda (_%e166552166858%_ - _%hd166551166861%_ - _%tl166550166863%_ - _%e166555166866%_ - _%hd166554166869%_ - _%tl166553166871%_ - _%e166558166874%_ - _%hd166557166877%_ - _%tl166556166879%_ - _%e166561166882%_ - _%hd166560166885%_ - _%tl166559166887%_ - _%e166564166890%_ - _%hd166563166893%_ - _%tl166562166895%_ - _%e166567166898%_ - _%hd166566166901%_ - _%tl166565166903%_ - _%e166570166906%_ - _%hd166569166909%_ - _%tl166568166911%_ - _%e166573166914%_ - _%hd166572166917%_ - _%tl166571166919%_ - _%e166576166922%_ - _%hd166575166925%_ - _%tl166574166927%_ - _%e166579166930%_ - _%hd166578166933%_ - _%tl166577166935%_ - _%e166582166938%_ - _%hd166581166941%_ - _%tl166580166943%_) - (let ((_%L166946%_ _%hd166581166941%_) - (_%L166947%_ _%hd166578166933%_) - (_%L166948%_ _%hd166569166909%_) - (_%L166949%_ _%hd166560166885%_)) + (gx#stx-null? _%tl165626165828%_)) + (_%__match171514171515%_ + _%e165616165791%_ + _%hd165615165794%_ + _%tl165614165796%_ + _%e165619165799%_ + _%hd165618165802%_ + _%tl165617165804%_ + _%e165622165807%_ + _%hd165621165810%_ + _%tl165620165812%_ + _%e165625165815%_ + _%hd165624165818%_ + _%tl165623165820%_ + _%e165628165823%_ + _%hd165627165826%_ + _%tl165626165828%_ + _%e165631165831%_ + _%hd165630165834%_ + _%tl165629165836%_ + _%e165634165839%_ + _%hd165633165842%_ + _%tl165632165844%_) + (_%__match171568171569%_ + _%e165616165791%_ + _%hd165615165794%_ + _%tl165614165796%_ + _%e165619165799%_ + _%hd165618165802%_ + _%tl165617165804%_ + _%e165622165807%_ + _%hd165621165810%_ + _%tl165620165812%_ + _%e165625165815%_ + _%hd165624165818%_ + _%tl165623165820%_ + _%e165628165823%_ + _%hd165627165826%_ + _%tl165626165828%_ + _%e165631165831%_ + _%hd165630165834%_ + _%tl165629165836%_ + _%e165634165839%_ + _%hd165633165842%_ + _%tl165632165844%_)))) + (_%__match171458171459%_ + (lambda (_%e165581165887%_ + _%hd165580165890%_ + _%tl165579165892%_ + _%e165584165895%_ + _%hd165583165898%_ + _%tl165582165900%_ + _%e165587165903%_ + _%hd165586165906%_ + _%tl165585165908%_ + _%e165590165911%_ + _%hd165589165914%_ + _%tl165588165916%_ + _%e165593165919%_ + _%hd165592165922%_ + _%tl165591165924%_ + _%e165596165927%_ + _%hd165595165930%_ + _%tl165594165932%_ + _%e165599165935%_ + _%hd165598165938%_ + _%tl165597165940%_ + _%e165602165943%_ + _%hd165601165946%_ + _%tl165600165948%_ + _%e165605165951%_ + _%hd165604165954%_ + _%tl165603165956%_ + _%e165608165959%_ + _%hd165607165962%_ + _%tl165606165964%_ + _%e165611165967%_ + _%hd165610165970%_ + _%tl165609165972%_) + (let ((_%L165975%_ _%hd165610165970%_) + (_%L165976%_ _%hd165607165962%_) + (_%L165977%_ _%hd165598165938%_) + (_%L165978%_ _%hd165589165914%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L166949%_ + _%L165978%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L166949%_ + _%L165978%_ 'unchecked-slot-set!))) - (let ((__tmp172713 + (let ((__tmp171730 (let () (declare (not safe)) (slot-ref__0 - _%self166404%_ + _%self165433%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L166948%_ - __tmp172713))) - (_%__kont172060172061%_ - _%L166946%_ - _%L166947%_ - _%L166948%_ - _%L166949%_) - (_%__kont172066172067%_))))) - (_%__match172421172422%_ - (lambda (_%e166552166858%_ - _%hd166551166861%_ - _%tl166550166863%_ - _%e166555166866%_ - _%hd166554166869%_ - _%tl166553166871%_ - _%e166558166874%_ - _%hd166557166877%_ - _%tl166556166879%_ - _%e166561166882%_ - _%hd166560166885%_ - _%tl166559166887%_ - _%e166564166890%_ - _%hd166563166893%_ - _%tl166562166895%_ - _%e166567166898%_ - _%hd166566166901%_ - _%tl166565166903%_ - _%e166570166906%_ - _%hd166569166909%_ - _%tl166568166911%_ - _%e166573166914%_ - _%hd166572166917%_ - _%tl166571166919%_ - _%e166576166922%_ - _%hd166575166925%_ - _%tl166574166927%_ - _%e166579166930%_ - _%hd166578166933%_ - _%tl166577166935%_) + _%L165977%_ + __tmp171730))) + (_%__kont171089171090%_ + _%L165975%_ + _%L165976%_ + _%L165977%_ + _%L165978%_) + (_%__kont171095171096%_))))) + (_%__match171450171451%_ + (lambda (_%e165581165887%_ + _%hd165580165890%_ + _%tl165579165892%_ + _%e165584165895%_ + _%hd165583165898%_ + _%tl165582165900%_ + _%e165587165903%_ + _%hd165586165906%_ + _%tl165585165908%_ + _%e165590165911%_ + _%hd165589165914%_ + _%tl165588165916%_ + _%e165593165919%_ + _%hd165592165922%_ + _%tl165591165924%_ + _%e165596165927%_ + _%hd165595165930%_ + _%tl165594165932%_ + _%e165599165935%_ + _%hd165598165938%_ + _%tl165597165940%_ + _%e165602165943%_ + _%hd165601165946%_ + _%tl165600165948%_ + _%e165605165951%_ + _%hd165604165954%_ + _%tl165603165956%_ + _%e165608165959%_ + _%hd165607165962%_ + _%tl165606165964%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166571166919%_)) - (let ((_%e166582166938%_ + (gx#stx-pair? _%tl165600165948%_)) + (let ((_%e165611165967%_ (let () (declare (not safe)) - (gx#stx-e _%tl166571166919%_)))) - (let ((_%tl166580166943%_ + (gx#stx-e _%tl165600165948%_)))) + (let ((_%tl165609165972%_ (let () (declare (not safe)) - (##cdr _%e166582166938%_))) - (_%hd166581166941%_ + (##cdr _%e165611165967%_))) + (_%hd165610165970%_ (let () (declare (not safe)) - (##car _%e166582166938%_)))) + (##car _%e165611165967%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166580166943%_)) - (_%__match172429172430%_ - _%e166552166858%_ - _%hd166551166861%_ - _%tl166550166863%_ - _%e166555166866%_ - _%hd166554166869%_ - _%tl166553166871%_ - _%e166558166874%_ - _%hd166557166877%_ - _%tl166556166879%_ - _%e166561166882%_ - _%hd166560166885%_ - _%tl166559166887%_ - _%e166564166890%_ - _%hd166563166893%_ - _%tl166562166895%_ - _%e166567166898%_ - _%hd166566166901%_ - _%tl166565166903%_ - _%e166570166906%_ - _%hd166569166909%_ - _%tl166568166911%_ - _%e166573166914%_ - _%hd166572166917%_ - _%tl166571166919%_ - _%e166576166922%_ - _%hd166575166925%_ - _%tl166574166927%_ - _%e166579166930%_ - _%hd166578166933%_ - _%tl166577166935%_ - _%e166582166938%_ - _%hd166581166941%_ - _%tl166580166943%_) - (_%__kont172066172067%_)))) - (_%__match172545172546%_ - _%e166552166858%_ - _%hd166551166861%_ - _%tl166550166863%_ - _%e166555166866%_ - _%hd166554166869%_ - _%tl166553166871%_ - _%e166558166874%_ - _%hd166557166877%_ - _%tl166556166879%_ - _%e166561166882%_ - _%hd166560166885%_ - _%tl166559166887%_ - _%e166564166890%_ - _%hd166563166893%_ - _%tl166562166895%_ - _%e166567166898%_ - _%hd166566166901%_ - _%tl166565166903%_ - _%e166570166906%_ - _%hd166569166909%_ - _%tl166568166911%_ - _%e166573166914%_ - _%hd166572166917%_ - _%tl166571166919%_)))) - (_%__match172343172344%_ - (lambda (_%e166518166992%_ - _%hd166517166995%_ - _%tl166516166997%_ - _%e166521167000%_ - _%hd166520167003%_ - _%tl166519167005%_ - _%e166524167008%_ - _%hd166523167011%_ - _%tl166522167013%_ - _%e166527167016%_ - _%hd166526167019%_ - _%tl166525167021%_ - _%e166530167024%_ - _%hd166529167027%_ - _%tl166528167029%_ - _%e166533167032%_ - _%hd166532167035%_ - _%tl166531167037%_ - _%e166536167040%_ - _%hd166535167043%_ - _%tl166534167045%_ - _%e166539167048%_ - _%hd166538167051%_ - _%tl166537167053%_ - _%e166542167056%_ - _%hd166541167059%_ - _%tl166540167061%_ - _%e166545167064%_ - _%hd166544167067%_ - _%tl166543167069%_) - (let ((_%L167072%_ _%hd166544167067%_) - (_%L167073%_ _%hd166535167043%_) - (_%L167074%_ _%hd166526167019%_)) + (gx#stx-null? _%tl165609165972%_)) + (_%__match171458171459%_ + _%e165581165887%_ + _%hd165580165890%_ + _%tl165579165892%_ + _%e165584165895%_ + _%hd165583165898%_ + _%tl165582165900%_ + _%e165587165903%_ + _%hd165586165906%_ + _%tl165585165908%_ + _%e165590165911%_ + _%hd165589165914%_ + _%tl165588165916%_ + _%e165593165919%_ + _%hd165592165922%_ + _%tl165591165924%_ + _%e165596165927%_ + _%hd165595165930%_ + _%tl165594165932%_ + _%e165599165935%_ + _%hd165598165938%_ + _%tl165597165940%_ + _%e165602165943%_ + _%hd165601165946%_ + _%tl165600165948%_ + _%e165605165951%_ + _%hd165604165954%_ + _%tl165603165956%_ + _%e165608165959%_ + _%hd165607165962%_ + _%tl165606165964%_ + _%e165611165967%_ + _%hd165610165970%_ + _%tl165609165972%_) + (_%__kont171095171096%_)))) + (_%__match171574171575%_ + _%e165581165887%_ + _%hd165580165890%_ + _%tl165579165892%_ + _%e165584165895%_ + _%hd165583165898%_ + _%tl165582165900%_ + _%e165587165903%_ + _%hd165586165906%_ + _%tl165585165908%_ + _%e165590165911%_ + _%hd165589165914%_ + _%tl165588165916%_ + _%e165593165919%_ + _%hd165592165922%_ + _%tl165591165924%_ + _%e165596165927%_ + _%hd165595165930%_ + _%tl165594165932%_ + _%e165599165935%_ + _%hd165598165938%_ + _%tl165597165940%_ + _%e165602165943%_ + _%hd165601165946%_ + _%tl165600165948%_)))) + (_%__match171372171373%_ + (lambda (_%e165547166021%_ + _%hd165546166024%_ + _%tl165545166026%_ + _%e165550166029%_ + _%hd165549166032%_ + _%tl165548166034%_ + _%e165553166037%_ + _%hd165552166040%_ + _%tl165551166042%_ + _%e165556166045%_ + _%hd165555166048%_ + _%tl165554166050%_ + _%e165559166053%_ + _%hd165558166056%_ + _%tl165557166058%_ + _%e165562166061%_ + _%hd165561166064%_ + _%tl165560166066%_ + _%e165565166069%_ + _%hd165564166072%_ + _%tl165563166074%_ + _%e165568166077%_ + _%hd165567166080%_ + _%tl165566166082%_ + _%e165571166085%_ + _%hd165570166088%_ + _%tl165569166090%_ + _%e165574166093%_ + _%hd165573166096%_ + _%tl165572166098%_) + (let ((_%L166101%_ _%hd165573166096%_) + (_%L166102%_ _%hd165564166072%_) + (_%L166103%_ _%hd165555166048%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L167074%_ + _%L166103%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L167074%_ + _%L166103%_ 'unchecked-slot-ref))) - (let ((__tmp172714 + (let ((__tmp171731 (let () (declare (not safe)) (slot-ref__0 - _%self166404%_ + _%self165433%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L167073%_ - __tmp172714))) - (_%__kont172058172059%_ - _%L167072%_ - _%L167073%_ - _%L167074%_) - (_%__match172547172548%_ - _%e166518166992%_ - _%hd166517166995%_ - _%tl166516166997%_ - _%e166521167000%_ - _%hd166520167003%_ - _%tl166519167005%_ - _%e166524167008%_ - _%hd166523167011%_ - _%tl166522167013%_ - _%e166527167016%_ - _%hd166526167019%_ - _%tl166525167021%_ - _%e166530167024%_ - _%hd166529167027%_ - _%tl166528167029%_ - _%e166533167032%_ - _%hd166532167035%_ - _%tl166531167037%_ - _%e166536167040%_ - _%hd166535167043%_ - _%tl166534167045%_ - _%e166539167048%_ - _%hd166538167051%_ - _%tl166537167053%_))))) - (_%__match172341172342%_ - (lambda (_%e166518166992%_ - _%hd166517166995%_ - _%tl166516166997%_ - _%e166521167000%_ - _%hd166520167003%_ - _%tl166519167005%_ - _%e166524167008%_ - _%hd166523167011%_ - _%tl166522167013%_ - _%e166527167016%_ - _%hd166526167019%_ - _%tl166525167021%_ - _%e166530167024%_ - _%hd166529167027%_ - _%tl166528167029%_ - _%e166533167032%_ - _%hd166532167035%_ - _%tl166531167037%_ - _%e166536167040%_ - _%hd166535167043%_ - _%tl166534167045%_ - _%e166539167048%_ - _%hd166538167051%_ - _%tl166537167053%_ - _%e166542167056%_ - _%hd166541167059%_ - _%tl166540167061%_ - _%e166545167064%_ - _%hd166544167067%_ - _%tl166543167069%_) + _%L166102%_ + __tmp171731))) + (_%__kont171087171088%_ + _%L166101%_ + _%L166102%_ + _%L166103%_) + (_%__match171576171577%_ + _%e165547166021%_ + _%hd165546166024%_ + _%tl165545166026%_ + _%e165550166029%_ + _%hd165549166032%_ + _%tl165548166034%_ + _%e165553166037%_ + _%hd165552166040%_ + _%tl165551166042%_ + _%e165556166045%_ + _%hd165555166048%_ + _%tl165554166050%_ + _%e165559166053%_ + _%hd165558166056%_ + _%tl165557166058%_ + _%e165562166061%_ + _%hd165561166064%_ + _%tl165560166066%_ + _%e165565166069%_ + _%hd165564166072%_ + _%tl165563166074%_ + _%e165568166077%_ + _%hd165567166080%_ + _%tl165566166082%_))))) + (_%__match171370171371%_ + (lambda (_%e165547166021%_ + _%hd165546166024%_ + _%tl165545166026%_ + _%e165550166029%_ + _%hd165549166032%_ + _%tl165548166034%_ + _%e165553166037%_ + _%hd165552166040%_ + _%tl165551166042%_ + _%e165556166045%_ + _%hd165555166048%_ + _%tl165554166050%_ + _%e165559166053%_ + _%hd165558166056%_ + _%tl165557166058%_ + _%e165562166061%_ + _%hd165561166064%_ + _%tl165560166066%_ + _%e165565166069%_ + _%hd165564166072%_ + _%tl165563166074%_ + _%e165568166077%_ + _%hd165567166080%_ + _%tl165566166082%_ + _%e165571166085%_ + _%hd165570166088%_ + _%tl165569166090%_ + _%e165574166093%_ + _%hd165573166096%_ + _%tl165572166098%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166537167053%_)) - (_%__match172343172344%_ - _%e166518166992%_ - _%hd166517166995%_ - _%tl166516166997%_ - _%e166521167000%_ - _%hd166520167003%_ - _%tl166519167005%_ - _%e166524167008%_ - _%hd166523167011%_ - _%tl166522167013%_ - _%e166527167016%_ - _%hd166526167019%_ - _%tl166525167021%_ - _%e166530167024%_ - _%hd166529167027%_ - _%tl166528167029%_ - _%e166533167032%_ - _%hd166532167035%_ - _%tl166531167037%_ - _%e166536167040%_ - _%hd166535167043%_ - _%tl166534167045%_ - _%e166539167048%_ - _%hd166538167051%_ - _%tl166537167053%_ - _%e166542167056%_ - _%hd166541167059%_ - _%tl166540167061%_ - _%e166545167064%_ - _%hd166544167067%_ - _%tl166543167069%_) - (_%__match172421172422%_ - _%e166518166992%_ - _%hd166517166995%_ - _%tl166516166997%_ - _%e166521167000%_ - _%hd166520167003%_ - _%tl166519167005%_ - _%e166524167008%_ - _%hd166523167011%_ - _%tl166522167013%_ - _%e166527167016%_ - _%hd166526167019%_ - _%tl166525167021%_ - _%e166530167024%_ - _%hd166529167027%_ - _%tl166528167029%_ - _%e166533167032%_ - _%hd166532167035%_ - _%tl166531167037%_ - _%e166536167040%_ - _%hd166535167043%_ - _%tl166534167045%_ - _%e166539167048%_ - _%hd166538167051%_ - _%tl166537167053%_ - _%e166542167056%_ - _%hd166541167059%_ - _%tl166540167061%_ - _%e166545167064%_ - _%hd166544167067%_ - _%tl166543167069%_)))) - (_%__match172331172332%_ - (lambda (_%e166518166992%_ - _%hd166517166995%_ - _%tl166516166997%_ - _%e166521167000%_ - _%hd166520167003%_ - _%tl166519167005%_ - _%e166524167008%_ - _%hd166523167011%_ - _%tl166522167013%_ - _%e166527167016%_ - _%hd166526167019%_ - _%tl166525167021%_ - _%e166530167024%_ - _%hd166529167027%_ - _%tl166528167029%_ - _%e166533167032%_ - _%hd166532167035%_ - _%tl166531167037%_ - _%e166536167040%_ - _%hd166535167043%_ - _%tl166534167045%_ - _%e166539167048%_ - _%hd166538167051%_ - _%tl166537167053%_ - _%e166542167056%_ - _%hd166541167059%_ - _%tl166540167061%_) + (gx#stx-null? _%tl165566166082%_)) + (_%__match171372171373%_ + _%e165547166021%_ + _%hd165546166024%_ + _%tl165545166026%_ + _%e165550166029%_ + _%hd165549166032%_ + _%tl165548166034%_ + _%e165553166037%_ + _%hd165552166040%_ + _%tl165551166042%_ + _%e165556166045%_ + _%hd165555166048%_ + _%tl165554166050%_ + _%e165559166053%_ + _%hd165558166056%_ + _%tl165557166058%_ + _%e165562166061%_ + _%hd165561166064%_ + _%tl165560166066%_ + _%e165565166069%_ + _%hd165564166072%_ + _%tl165563166074%_ + _%e165568166077%_ + _%hd165567166080%_ + _%tl165566166082%_ + _%e165571166085%_ + _%hd165570166088%_ + _%tl165569166090%_ + _%e165574166093%_ + _%hd165573166096%_ + _%tl165572166098%_) + (_%__match171450171451%_ + _%e165547166021%_ + _%hd165546166024%_ + _%tl165545166026%_ + _%e165550166029%_ + _%hd165549166032%_ + _%tl165548166034%_ + _%e165553166037%_ + _%hd165552166040%_ + _%tl165551166042%_ + _%e165556166045%_ + _%hd165555166048%_ + _%tl165554166050%_ + _%e165559166053%_ + _%hd165558166056%_ + _%tl165557166058%_ + _%e165562166061%_ + _%hd165561166064%_ + _%tl165560166066%_ + _%e165565166069%_ + _%hd165564166072%_ + _%tl165563166074%_ + _%e165568166077%_ + _%hd165567166080%_ + _%tl165566166082%_ + _%e165571166085%_ + _%hd165570166088%_ + _%tl165569166090%_ + _%e165574166093%_ + _%hd165573166096%_ + _%tl165572166098%_)))) + (_%__match171360171361%_ + (lambda (_%e165547166021%_ + _%hd165546166024%_ + _%tl165545166026%_ + _%e165550166029%_ + _%hd165549166032%_ + _%tl165548166034%_ + _%e165553166037%_ + _%hd165552166040%_ + _%tl165551166042%_ + _%e165556166045%_ + _%hd165555166048%_ + _%tl165554166050%_ + _%e165559166053%_ + _%hd165558166056%_ + _%tl165557166058%_ + _%e165562166061%_ + _%hd165561166064%_ + _%tl165560166066%_ + _%e165565166069%_ + _%hd165564166072%_ + _%tl165563166074%_ + _%e165568166077%_ + _%hd165567166080%_ + _%tl165566166082%_ + _%e165571166085%_ + _%hd165570166088%_ + _%tl165569166090%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd166541167059%_)) + (gx#stx-eq? '%#quote _%hd165570166088%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166540167061%_)) - (let ((_%e166545167064%_ + (gx#stx-pair? _%tl165569166090%_)) + (let ((_%e165574166093%_ (let () (declare (not safe)) - (gx#stx-e _%tl166540167061%_)))) - (let ((_%tl166543167069%_ + (gx#stx-e _%tl165569166090%_)))) + (let ((_%tl165572166098%_ (let () (declare (not safe)) - (##cdr _%e166545167064%_))) - (_%hd166544167067%_ + (##cdr _%e165574166093%_))) + (_%hd165573166096%_ (let () (declare (not safe)) - (##car _%e166545167064%_)))) + (##car _%e165574166093%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166543167069%_)) + (gx#stx-null? _%tl165572166098%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166537167053%_)) - (_%__match172343172344%_ - _%e166518166992%_ - _%hd166517166995%_ - _%tl166516166997%_ - _%e166521167000%_ - _%hd166520167003%_ - _%tl166519167005%_ - _%e166524167008%_ - _%hd166523167011%_ - _%tl166522167013%_ - _%e166527167016%_ - _%hd166526167019%_ - _%tl166525167021%_ - _%e166530167024%_ - _%hd166529167027%_ - _%tl166528167029%_ - _%e166533167032%_ - _%hd166532167035%_ - _%tl166531167037%_ - _%e166536167040%_ - _%hd166535167043%_ - _%tl166534167045%_ - _%e166539167048%_ - _%hd166538167051%_ - _%tl166537167053%_ - _%e166542167056%_ - _%hd166541167059%_ - _%tl166540167061%_ - _%e166545167064%_ - _%hd166544167067%_ - _%tl166543167069%_) - (_%__match172421172422%_ - _%e166518166992%_ - _%hd166517166995%_ - _%tl166516166997%_ - _%e166521167000%_ - _%hd166520167003%_ - _%tl166519167005%_ - _%e166524167008%_ - _%hd166523167011%_ - _%tl166522167013%_ - _%e166527167016%_ - _%hd166526167019%_ - _%tl166525167021%_ - _%e166530167024%_ - _%hd166529167027%_ - _%tl166528167029%_ - _%e166533167032%_ - _%hd166532167035%_ - _%tl166531167037%_ - _%e166536167040%_ - _%hd166535167043%_ - _%tl166534167045%_ - _%e166539167048%_ - _%hd166538167051%_ - _%tl166537167053%_ - _%e166542167056%_ - _%hd166541167059%_ - _%tl166540167061%_ - _%e166545167064%_ - _%hd166544167067%_ - _%tl166543167069%_)) - (_%__match172545172546%_ - _%e166518166992%_ - _%hd166517166995%_ - _%tl166516166997%_ - _%e166521167000%_ - _%hd166520167003%_ - _%tl166519167005%_ - _%e166524167008%_ - _%hd166523167011%_ - _%tl166522167013%_ - _%e166527167016%_ - _%hd166526167019%_ - _%tl166525167021%_ - _%e166530167024%_ - _%hd166529167027%_ - _%tl166528167029%_ - _%e166533167032%_ - _%hd166532167035%_ - _%tl166531167037%_ - _%e166536167040%_ - _%hd166535167043%_ - _%tl166534167045%_ - _%e166539167048%_ - _%hd166538167051%_ - _%tl166537167053%_)))) - (_%__match172545172546%_ - _%e166518166992%_ - _%hd166517166995%_ - _%tl166516166997%_ - _%e166521167000%_ - _%hd166520167003%_ - _%tl166519167005%_ - _%e166524167008%_ - _%hd166523167011%_ - _%tl166522167013%_ - _%e166527167016%_ - _%hd166526167019%_ - _%tl166525167021%_ - _%e166530167024%_ - _%hd166529167027%_ - _%tl166528167029%_ - _%e166533167032%_ - _%hd166532167035%_ - _%tl166531167037%_ - _%e166536167040%_ - _%hd166535167043%_ - _%tl166534167045%_ - _%e166539167048%_ - _%hd166538167051%_ - _%tl166537167053%_)) - (_%__match172545172546%_ - _%e166518166992%_ - _%hd166517166995%_ - _%tl166516166997%_ - _%e166521167000%_ - _%hd166520167003%_ - _%tl166519167005%_ - _%e166524167008%_ - _%hd166523167011%_ - _%tl166522167013%_ - _%e166527167016%_ - _%hd166526167019%_ - _%tl166525167021%_ - _%e166530167024%_ - _%hd166529167027%_ - _%tl166528167029%_ - _%e166533167032%_ - _%hd166532167035%_ - _%tl166531167037%_ - _%e166536167040%_ - _%hd166535167043%_ - _%tl166534167045%_ - _%e166539167048%_ - _%hd166538167051%_ - _%tl166537167053%_)))) - (_%__match172263172264%_ - (lambda (_%e166467167113%_ - _%hd166466167116%_ - _%tl166465167118%_ - _%e166470167121%_ - _%hd166469167124%_ - _%tl166468167126%_ - _%e166473167129%_ - _%hd166472167132%_ - _%tl166471167134%_ - _%e166476167137%_ - _%hd166475167140%_ - _%tl166474167142%_ - _%e166479167145%_ - _%hd166478167148%_ - _%tl166477167150%_ - _%e166482167153%_ - _%hd166481167156%_ - _%tl166480167158%_ - _%e166485167161%_ - _%hd166484167164%_ - _%tl166483167166%_ - _%e166488167169%_ - _%hd166487167172%_ - _%tl166486167174%_ - _%e166491167177%_ - _%hd166490167180%_ - _%tl166489167182%_ - _%e166494167185%_ - _%hd166493167188%_ - _%tl166492167190%_ - _%e166497167193%_ - _%hd166496167196%_ - _%tl166495167198%_ - _%e166500167201%_ - _%hd166499167204%_ - _%tl166498167206%_ - _%e166503167209%_ - _%hd166502167212%_ - _%tl166501167214%_ - _%__splice172056172057%_ - _%target166504167217%_ - _%tl166506167219%_) - (letrec ((_%loop166507167222%_ - (lambda (_%hd166505167225%_ - _%args166511167227%_) + _%tl165566166082%_)) + (_%__match171372171373%_ + _%e165547166021%_ + _%hd165546166024%_ + _%tl165545166026%_ + _%e165550166029%_ + _%hd165549166032%_ + _%tl165548166034%_ + _%e165553166037%_ + _%hd165552166040%_ + _%tl165551166042%_ + _%e165556166045%_ + _%hd165555166048%_ + _%tl165554166050%_ + _%e165559166053%_ + _%hd165558166056%_ + _%tl165557166058%_ + _%e165562166061%_ + _%hd165561166064%_ + _%tl165560166066%_ + _%e165565166069%_ + _%hd165564166072%_ + _%tl165563166074%_ + _%e165568166077%_ + _%hd165567166080%_ + _%tl165566166082%_ + _%e165571166085%_ + _%hd165570166088%_ + _%tl165569166090%_ + _%e165574166093%_ + _%hd165573166096%_ + _%tl165572166098%_) + (_%__match171450171451%_ + _%e165547166021%_ + _%hd165546166024%_ + _%tl165545166026%_ + _%e165550166029%_ + _%hd165549166032%_ + _%tl165548166034%_ + _%e165553166037%_ + _%hd165552166040%_ + _%tl165551166042%_ + _%e165556166045%_ + _%hd165555166048%_ + _%tl165554166050%_ + _%e165559166053%_ + _%hd165558166056%_ + _%tl165557166058%_ + _%e165562166061%_ + _%hd165561166064%_ + _%tl165560166066%_ + _%e165565166069%_ + _%hd165564166072%_ + _%tl165563166074%_ + _%e165568166077%_ + _%hd165567166080%_ + _%tl165566166082%_ + _%e165571166085%_ + _%hd165570166088%_ + _%tl165569166090%_ + _%e165574166093%_ + _%hd165573166096%_ + _%tl165572166098%_)) + (_%__match171574171575%_ + _%e165547166021%_ + _%hd165546166024%_ + _%tl165545166026%_ + _%e165550166029%_ + _%hd165549166032%_ + _%tl165548166034%_ + _%e165553166037%_ + _%hd165552166040%_ + _%tl165551166042%_ + _%e165556166045%_ + _%hd165555166048%_ + _%tl165554166050%_ + _%e165559166053%_ + _%hd165558166056%_ + _%tl165557166058%_ + _%e165562166061%_ + _%hd165561166064%_ + _%tl165560166066%_ + _%e165565166069%_ + _%hd165564166072%_ + _%tl165563166074%_ + _%e165568166077%_ + _%hd165567166080%_ + _%tl165566166082%_)))) + (_%__match171574171575%_ + _%e165547166021%_ + _%hd165546166024%_ + _%tl165545166026%_ + _%e165550166029%_ + _%hd165549166032%_ + _%tl165548166034%_ + _%e165553166037%_ + _%hd165552166040%_ + _%tl165551166042%_ + _%e165556166045%_ + _%hd165555166048%_ + _%tl165554166050%_ + _%e165559166053%_ + _%hd165558166056%_ + _%tl165557166058%_ + _%e165562166061%_ + _%hd165561166064%_ + _%tl165560166066%_ + _%e165565166069%_ + _%hd165564166072%_ + _%tl165563166074%_ + _%e165568166077%_ + _%hd165567166080%_ + _%tl165566166082%_)) + (_%__match171574171575%_ + _%e165547166021%_ + _%hd165546166024%_ + _%tl165545166026%_ + _%e165550166029%_ + _%hd165549166032%_ + _%tl165548166034%_ + _%e165553166037%_ + _%hd165552166040%_ + _%tl165551166042%_ + _%e165556166045%_ + _%hd165555166048%_ + _%tl165554166050%_ + _%e165559166053%_ + _%hd165558166056%_ + _%tl165557166058%_ + _%e165562166061%_ + _%hd165561166064%_ + _%tl165560166066%_ + _%e165565166069%_ + _%hd165564166072%_ + _%tl165563166074%_ + _%e165568166077%_ + _%hd165567166080%_ + _%tl165566166082%_)))) + (_%__match171292171293%_ + (lambda (_%e165496166142%_ + _%hd165495166145%_ + _%tl165494166147%_ + _%e165499166150%_ + _%hd165498166153%_ + _%tl165497166155%_ + _%e165502166158%_ + _%hd165501166161%_ + _%tl165500166163%_ + _%e165505166166%_ + _%hd165504166169%_ + _%tl165503166171%_ + _%e165508166174%_ + _%hd165507166177%_ + _%tl165506166179%_ + _%e165511166182%_ + _%hd165510166185%_ + _%tl165509166187%_ + _%e165514166190%_ + _%hd165513166193%_ + _%tl165512166195%_ + _%e165517166198%_ + _%hd165516166201%_ + _%tl165515166203%_ + _%e165520166206%_ + _%hd165519166209%_ + _%tl165518166211%_ + _%e165523166214%_ + _%hd165522166217%_ + _%tl165521166219%_ + _%e165526166222%_ + _%hd165525166225%_ + _%tl165524166227%_ + _%e165529166230%_ + _%hd165528166233%_ + _%tl165527166235%_ + _%e165532166238%_ + _%hd165531166241%_ + _%tl165530166243%_ + _%__splice171085171086%_ + _%target165533166246%_ + _%tl165535166248%_) + (letrec ((_%loop165536166251%_ + (lambda (_%hd165534166254%_ + _%args165540166256%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166505167225%_)) - (let ((_%e166508167230%_ + (gx#stx-pair? _%hd165534166254%_)) + (let ((_%e165537166259%_ (let () (declare (not safe)) (gx#stx-e - _%hd166505167225%_)))) - (let ((_%lp-tl166510167235%_ + _%hd165534166254%_)))) + (let ((_%lp-tl165539166264%_ (let () (declare (not safe)) - (##cdr _%e166508167230%_))) - (_%lp-hd166509167233%_ + (##cdr _%e165537166259%_))) + (_%lp-hd165538166262%_ (let () (declare (not safe)) - (##car _%e166508167230%_)))) - (let ((__tmp172715 - (cons _%lp-hd166509167233%_ - _%args166511167227%_))) - (declare (not safe)) - (_%loop166507167222%_ - _%lp-tl166510167235%_ - __tmp172715)))) - (let ((_%args166512167238%_ - (reverse _%args166511167227%_))) - (let ((_%L167241%_ - _%args166512167238%_) - (_%L167242%_ - _%hd166502167212%_) - (_%L167243%_ - _%hd166493167188%_) - (_%L167244%_ - _%hd166484167164%_) - (_%L167245%_ - _%hd166475167140%_)) + (##car _%e165537166259%_)))) + (_%loop165536166251%_ + _%lp-tl165539166264%_ + (cons _%lp-hd165538166262%_ + _%args165540166256%_)))) + (let ((_%args165541166267%_ + (reverse _%args165540166256%_))) + (let ((_%L166270%_ + _%args165541166267%_) + (_%L166271%_ + _%hd165531166241%_) + (_%L166272%_ + _%hd165522166217%_) + (_%L166273%_ + _%hd165513166193%_) + (_%L166274%_ + _%hd165504166169%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L167245%_ + _%L166274%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L167244%_ + _%L166273%_ 'call-method)) - (let ((__tmp172716 + (let ((__tmp171732 (let () (declare (not safe)) (slot-ref__0 - _%self166404%_ + _%self165433%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L167243%_ - __tmp172716))) - (_%__kont172054172055%_ - _%L167241%_ - _%L167242%_ - _%L167243%_ - _%L167244%_ - _%L167245%_) - (_%__kont172066172067%_)))))))) - (let () - (declare (not safe)) - (_%loop166507167222%_ - _%target166504167217%_ - '()))))) - (_%__match172221172222%_ - (lambda (_%e166467167113%_ - _%hd166466167116%_ - _%tl166465167118%_ - _%e166470167121%_ - _%hd166469167124%_ - _%tl166468167126%_ - _%e166473167129%_ - _%hd166472167132%_ - _%tl166471167134%_ - _%e166476167137%_ - _%hd166475167140%_ - _%tl166474167142%_ - _%e166479167145%_ - _%hd166478167148%_ - _%tl166477167150%_ - _%e166482167153%_ - _%hd166481167156%_ - _%tl166480167158%_ - _%e166485167161%_ - _%hd166484167164%_ - _%tl166483167166%_ - _%e166488167169%_ - _%hd166487167172%_ - _%tl166486167174%_ - _%e166491167177%_ - _%hd166490167180%_ - _%tl166489167182%_) + _%L166272%_ + __tmp171732))) + (_%__kont171083171084%_ + _%L166270%_ + _%L166271%_ + _%L166272%_ + _%L166273%_ + _%L166274%_) + (_%__kont171095171096%_)))))))) + (_%loop165536166251%_ _%target165533166246%_ '())))) + (_%__match171250171251%_ + (lambda (_%e165496166142%_ + _%hd165495166145%_ + _%tl165494166147%_ + _%e165499166150%_ + _%hd165498166153%_ + _%tl165497166155%_ + _%e165502166158%_ + _%hd165501166161%_ + _%tl165500166163%_ + _%e165505166166%_ + _%hd165504166169%_ + _%tl165503166171%_ + _%e165508166174%_ + _%hd165507166177%_ + _%tl165506166179%_ + _%e165511166182%_ + _%hd165510166185%_ + _%tl165509166187%_ + _%e165514166190%_ + _%hd165513166193%_ + _%tl165512166195%_ + _%e165517166198%_ + _%hd165516166201%_ + _%tl165515166203%_ + _%e165520166206%_ + _%hd165519166209%_ + _%tl165518166211%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd166490167180%_)) + (gx#stx-eq? '%#ref _%hd165519166209%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166489167182%_)) - (let ((_%e166494167185%_ + (gx#stx-pair? _%tl165518166211%_)) + (let ((_%e165523166214%_ (let () (declare (not safe)) - (gx#stx-e _%tl166489167182%_)))) - (let ((_%tl166492167190%_ + (gx#stx-e _%tl165518166211%_)))) + (let ((_%tl165521166219%_ (let () (declare (not safe)) - (##cdr _%e166494167185%_))) - (_%hd166493167188%_ + (##cdr _%e165523166214%_))) + (_%hd165522166217%_ (let () (declare (not safe)) - (##car _%e166494167185%_)))) + (##car _%e165523166214%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166492167190%_)) + (gx#stx-null? _%tl165521166219%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166486167174%_)) - (let ((_%e166497167193%_ + _%tl165515166203%_)) + (let ((_%e165526166222%_ (let () (declare (not safe)) (gx#stx-e - _%tl166486167174%_)))) - (let ((_%tl166495167198%_ + _%tl165515166203%_)))) + (let ((_%tl165524166227%_ (let () (declare (not safe)) - (##cdr _%e166497167193%_))) - (_%hd166496167196%_ + (##cdr _%e165526166222%_))) + (_%hd165525166225%_ (let () (declare (not safe)) - (##car _%e166497167193%_)))) + (##car _%e165526166222%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd166496167196%_)) - (let ((_%e166500167201%_ + _%hd165525166225%_)) + (let ((_%e165529166230%_ (let () (declare (not safe)) (gx#stx-e - _%hd166496167196%_)))) - (let ((_%tl166498167206%_ + _%hd165525166225%_)))) + (let ((_%tl165527166235%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e166500167201%_))) - (_%hd166499167204%_ - (let () (declare (not safe)) (##car _%e166500167201%_)))) + (##cdr _%e165529166230%_))) + (_%hd165528166233%_ + (let () (declare (not safe)) (##car _%e165529166230%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166499167204%_)) + (gx#identifier? _%hd165528166233%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd166499167204%_)) + (gx#stx-eq? '%#quote _%hd165528166233%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166498167206%_)) - (let ((_%e166503167209%_ + (gx#stx-pair? _%tl165527166235%_)) + (let ((_%e165532166238%_ (let () (declare (not safe)) - (gx#stx-e _%tl166498167206%_)))) - (let ((_%tl166501167214%_ + (gx#stx-e _%tl165527166235%_)))) + (let ((_%tl165530166243%_ (let () (declare (not safe)) - (##cdr _%e166503167209%_))) - (_%hd166502167212%_ + (##cdr _%e165532166238%_))) + (_%hd165531166241%_ (let () (declare (not safe)) - (##car _%e166503167209%_)))) + (##car _%e165532166238%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166501167214%_)) + (gx#stx-null? _%tl165530166243%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl166495167198%_)) - (let ((_%__splice172056172057%_ + _%tl165524166227%_)) + (let ((_%__splice171085171086%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166495167198%_ + _%tl165524166227%_ '0)))) - (let ((_%tl166506167219%_ + (let ((_%tl165535166248%_ (let () (declare (not safe)) (##vector-ref - _%__splice172056172057%_ + _%__splice171085171086%_ '1))) - (_%target166504167217%_ + (_%target165533166246%_ (let () (declare (not safe)) (##vector-ref - _%__splice172056172057%_ + _%__splice171085171086%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166506167219%_)) - (_%__match172263172264%_ - _%e166467167113%_ - _%hd166466167116%_ - _%tl166465167118%_ - _%e166470167121%_ - _%hd166469167124%_ - _%tl166468167126%_ - _%e166473167129%_ - _%hd166472167132%_ - _%tl166471167134%_ - _%e166476167137%_ - _%hd166475167140%_ - _%tl166474167142%_ - _%e166479167145%_ - _%hd166478167148%_ - _%tl166477167150%_ - _%e166482167153%_ - _%hd166481167156%_ - _%tl166480167158%_ - _%e166485167161%_ - _%hd166484167164%_ - _%tl166483167166%_ - _%e166488167169%_ - _%hd166487167172%_ - _%tl166486167174%_ - _%e166491167177%_ - _%hd166490167180%_ - _%tl166489167182%_ - _%e166494167185%_ - _%hd166493167188%_ - _%tl166492167190%_ - _%e166497167193%_ - _%hd166496167196%_ - _%tl166495167198%_ - _%e166500167201%_ - _%hd166499167204%_ - _%tl166498167206%_ - _%e166503167209%_ - _%hd166502167212%_ - _%tl166501167214%_ - _%__splice172056172057%_ - _%target166504167217%_ - _%tl166506167219%_) - (_%__kont172066172067%_)))) - (_%__kont172066172067%_)) - (_%__kont172066172067%_)))) - (_%__kont172066172067%_)) - (_%__kont172066172067%_)) - (_%__kont172066172067%_)))) + _%tl165535166248%_)) + (_%__match171292171293%_ + _%e165496166142%_ + _%hd165495166145%_ + _%tl165494166147%_ + _%e165499166150%_ + _%hd165498166153%_ + _%tl165497166155%_ + _%e165502166158%_ + _%hd165501166161%_ + _%tl165500166163%_ + _%e165505166166%_ + _%hd165504166169%_ + _%tl165503166171%_ + _%e165508166174%_ + _%hd165507166177%_ + _%tl165506166179%_ + _%e165511166182%_ + _%hd165510166185%_ + _%tl165509166187%_ + _%e165514166190%_ + _%hd165513166193%_ + _%tl165512166195%_ + _%e165517166198%_ + _%hd165516166201%_ + _%tl165515166203%_ + _%e165520166206%_ + _%hd165519166209%_ + _%tl165518166211%_ + _%e165523166214%_ + _%hd165522166217%_ + _%tl165521166219%_ + _%e165526166222%_ + _%hd165525166225%_ + _%tl165524166227%_ + _%e165529166230%_ + _%hd165528166233%_ + _%tl165527166235%_ + _%e165532166238%_ + _%hd165531166241%_ + _%tl165530166243%_ + _%__splice171085171086%_ + _%target165533166246%_ + _%tl165535166248%_) + (_%__kont171095171096%_)))) + (_%__kont171095171096%_)) + (_%__kont171095171096%_)))) + (_%__kont171095171096%_)) + (_%__kont171095171096%_)) + (_%__kont171095171096%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont172066172067%_)))) - (_%__match172545172546%_ - _%e166467167113%_ - _%hd166466167116%_ - _%tl166465167118%_ - _%e166470167121%_ - _%hd166469167124%_ - _%tl166468167126%_ - _%e166473167129%_ - _%hd166472167132%_ - _%tl166471167134%_ - _%e166476167137%_ - _%hd166475167140%_ - _%tl166474167142%_ - _%e166479167145%_ - _%hd166478167148%_ - _%tl166477167150%_ - _%e166482167153%_ - _%hd166481167156%_ - _%tl166480167158%_ - _%e166485167161%_ - _%hd166484167164%_ - _%tl166483167166%_ - _%e166488167169%_ - _%hd166487167172%_ - _%tl166486167174%_)) - (_%__match172545172546%_ - _%e166467167113%_ - _%hd166466167116%_ - _%tl166465167118%_ - _%e166470167121%_ - _%hd166469167124%_ - _%tl166468167126%_ - _%e166473167129%_ - _%hd166472167132%_ - _%tl166471167134%_ - _%e166476167137%_ - _%hd166475167140%_ - _%tl166474167142%_ - _%e166479167145%_ - _%hd166478167148%_ - _%tl166477167150%_ - _%e166482167153%_ - _%hd166481167156%_ - _%tl166480167158%_ - _%e166485167161%_ - _%hd166484167164%_ - _%tl166483167166%_ - _%e166488167169%_ - _%hd166487167172%_ - _%tl166486167174%_)))) - (_%__match172545172546%_ - _%e166467167113%_ - _%hd166466167116%_ - _%tl166465167118%_ - _%e166470167121%_ - _%hd166469167124%_ - _%tl166468167126%_ - _%e166473167129%_ - _%hd166472167132%_ - _%tl166471167134%_ - _%e166476167137%_ - _%hd166475167140%_ - _%tl166474167142%_ - _%e166479167145%_ - _%hd166478167148%_ - _%tl166477167150%_ - _%e166482167153%_ - _%hd166481167156%_ - _%tl166480167158%_ - _%e166485167161%_ - _%hd166484167164%_ - _%tl166483167166%_ - _%e166488167169%_ - _%hd166487167172%_ - _%tl166486167174%_)) - (_%__match172331172332%_ - _%e166467167113%_ - _%hd166466167116%_ - _%tl166465167118%_ - _%e166470167121%_ - _%hd166469167124%_ - _%tl166468167126%_ - _%e166473167129%_ - _%hd166472167132%_ - _%tl166471167134%_ - _%e166476167137%_ - _%hd166475167140%_ - _%tl166474167142%_ - _%e166479167145%_ - _%hd166478167148%_ - _%tl166477167150%_ - _%e166482167153%_ - _%hd166481167156%_ - _%tl166480167158%_ - _%e166485167161%_ - _%hd166484167164%_ - _%tl166483167166%_ - _%e166488167169%_ - _%hd166487167172%_ - _%tl166486167174%_ - _%e166491167177%_ - _%hd166490167180%_ - _%tl166489167182%_)))) - (_%__match172153172154%_ - (lambda (_%e166423167305%_ - _%hd166422167308%_ - _%tl166421167310%_ - _%e166426167313%_ - _%hd166425167316%_ - _%tl166424167318%_ - _%e166429167321%_ - _%hd166428167324%_ - _%tl166427167326%_ - _%e166432167329%_ - _%hd166431167332%_ - _%tl166430167334%_ - _%e166435167337%_ - _%hd166434167340%_ - _%tl166433167342%_ - _%e166438167345%_ - _%hd166437167348%_ - _%tl166436167350%_ - _%e166441167353%_ - _%hd166440167356%_ - _%tl166439167358%_ - _%e166444167361%_ - _%hd166443167364%_ - _%tl166442167366%_ - _%e166447167369%_ - _%hd166446167372%_ - _%tl166445167374%_ - _%e166450167377%_ - _%hd166449167380%_ - _%tl166448167382%_ - _%__splice172052172053%_ - _%target166451167385%_ - _%tl166453167387%_) - (letrec ((_%loop166454167390%_ - (lambda (_%hd166452167393%_ - _%args166458167395%_) + (_%__kont171095171096%_)))) + (_%__match171574171575%_ + _%e165496166142%_ + _%hd165495166145%_ + _%tl165494166147%_ + _%e165499166150%_ + _%hd165498166153%_ + _%tl165497166155%_ + _%e165502166158%_ + _%hd165501166161%_ + _%tl165500166163%_ + _%e165505166166%_ + _%hd165504166169%_ + _%tl165503166171%_ + _%e165508166174%_ + _%hd165507166177%_ + _%tl165506166179%_ + _%e165511166182%_ + _%hd165510166185%_ + _%tl165509166187%_ + _%e165514166190%_ + _%hd165513166193%_ + _%tl165512166195%_ + _%e165517166198%_ + _%hd165516166201%_ + _%tl165515166203%_)) + (_%__match171574171575%_ + _%e165496166142%_ + _%hd165495166145%_ + _%tl165494166147%_ + _%e165499166150%_ + _%hd165498166153%_ + _%tl165497166155%_ + _%e165502166158%_ + _%hd165501166161%_ + _%tl165500166163%_ + _%e165505166166%_ + _%hd165504166169%_ + _%tl165503166171%_ + _%e165508166174%_ + _%hd165507166177%_ + _%tl165506166179%_ + _%e165511166182%_ + _%hd165510166185%_ + _%tl165509166187%_ + _%e165514166190%_ + _%hd165513166193%_ + _%tl165512166195%_ + _%e165517166198%_ + _%hd165516166201%_ + _%tl165515166203%_)))) + (_%__match171574171575%_ + _%e165496166142%_ + _%hd165495166145%_ + _%tl165494166147%_ + _%e165499166150%_ + _%hd165498166153%_ + _%tl165497166155%_ + _%e165502166158%_ + _%hd165501166161%_ + _%tl165500166163%_ + _%e165505166166%_ + _%hd165504166169%_ + _%tl165503166171%_ + _%e165508166174%_ + _%hd165507166177%_ + _%tl165506166179%_ + _%e165511166182%_ + _%hd165510166185%_ + _%tl165509166187%_ + _%e165514166190%_ + _%hd165513166193%_ + _%tl165512166195%_ + _%e165517166198%_ + _%hd165516166201%_ + _%tl165515166203%_)) + (_%__match171360171361%_ + _%e165496166142%_ + _%hd165495166145%_ + _%tl165494166147%_ + _%e165499166150%_ + _%hd165498166153%_ + _%tl165497166155%_ + _%e165502166158%_ + _%hd165501166161%_ + _%tl165500166163%_ + _%e165505166166%_ + _%hd165504166169%_ + _%tl165503166171%_ + _%e165508166174%_ + _%hd165507166177%_ + _%tl165506166179%_ + _%e165511166182%_ + _%hd165510166185%_ + _%tl165509166187%_ + _%e165514166190%_ + _%hd165513166193%_ + _%tl165512166195%_ + _%e165517166198%_ + _%hd165516166201%_ + _%tl165515166203%_ + _%e165520166206%_ + _%hd165519166209%_ + _%tl165518166211%_)))) + (_%__match171182171183%_ + (lambda (_%e165452166334%_ + _%hd165451166337%_ + _%tl165450166339%_ + _%e165455166342%_ + _%hd165454166345%_ + _%tl165453166347%_ + _%e165458166350%_ + _%hd165457166353%_ + _%tl165456166355%_ + _%e165461166358%_ + _%hd165460166361%_ + _%tl165459166363%_ + _%e165464166366%_ + _%hd165463166369%_ + _%tl165462166371%_ + _%e165467166374%_ + _%hd165466166377%_ + _%tl165465166379%_ + _%e165470166382%_ + _%hd165469166385%_ + _%tl165468166387%_ + _%e165473166390%_ + _%hd165472166393%_ + _%tl165471166395%_ + _%e165476166398%_ + _%hd165475166401%_ + _%tl165474166403%_ + _%e165479166406%_ + _%hd165478166409%_ + _%tl165477166411%_ + _%__splice171081171082%_ + _%target165480166414%_ + _%tl165482166416%_) + (letrec ((_%loop165483166419%_ + (lambda (_%hd165481166422%_ + _%args165487166424%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166452167393%_)) - (let ((_%e166455167398%_ + (gx#stx-pair? _%hd165481166422%_)) + (let ((_%e165484166427%_ (let () (declare (not safe)) (gx#stx-e - _%hd166452167393%_)))) - (let ((_%lp-tl166457167403%_ + _%hd165481166422%_)))) + (let ((_%lp-tl165486166432%_ (let () (declare (not safe)) - (##cdr _%e166455167398%_))) - (_%lp-hd166456167401%_ + (##cdr _%e165484166427%_))) + (_%lp-hd165485166430%_ (let () (declare (not safe)) - (##car _%e166455167398%_)))) - (let ((__tmp172717 - (cons _%lp-hd166456167401%_ - _%args166458167395%_))) - (declare (not safe)) - (_%loop166454167390%_ - _%lp-tl166457167403%_ - __tmp172717)))) - (let ((_%args166459167406%_ - (reverse _%args166458167395%_))) - (let ((_%L167409%_ - _%args166459167406%_) - (_%L167410%_ - _%hd166449167380%_) - (_%L167411%_ - _%hd166440167356%_) - (_%L167412%_ - _%hd166431167332%_)) + (##car _%e165484166427%_)))) + (_%loop165483166419%_ + _%lp-tl165486166432%_ + (cons _%lp-hd165485166430%_ + _%args165487166424%_)))) + (let ((_%args165488166435%_ + (reverse _%args165487166424%_))) + (let ((_%L166438%_ + _%args165488166435%_) + (_%L166439%_ + _%hd165478166409%_) + (_%L166440%_ + _%hd165469166385%_) + (_%L166441%_ + _%hd165460166361%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L167412%_ + _%L166441%_ 'call-method)) - (let ((__tmp172718 + (let ((__tmp171733 (let () (declare (not safe)) (slot-ref__0 - _%self166404%_ + _%self165433%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L167411%_ - __tmp172718))) - (_%__kont172050172051%_ - _%L167409%_ - _%L167410%_ - _%L167411%_ - _%L167412%_) - (_%__match172341172342%_ - _%e166423167305%_ - _%hd166422167308%_ - _%tl166421167310%_ - _%e166426167313%_ - _%hd166425167316%_ - _%tl166424167318%_ - _%e166429167321%_ - _%hd166428167324%_ - _%tl166427167326%_ - _%e166432167329%_ - _%hd166431167332%_ - _%tl166430167334%_ - _%e166435167337%_ - _%hd166434167340%_ - _%tl166433167342%_ - _%e166438167345%_ - _%hd166437167348%_ - _%tl166436167350%_ - _%e166441167353%_ - _%hd166440167356%_ - _%tl166439167358%_ - _%e166444167361%_ - _%hd166443167364%_ - _%tl166442167366%_ - _%e166447167369%_ - _%hd166446167372%_ - _%tl166445167374%_ - _%e166450167377%_ - _%hd166449167380%_ - _%tl166448167382%_)))))))) - (let () - (declare (not safe)) - (_%loop166454167390%_ - _%target166451167385%_ - '())))))) + _%L166440%_ + __tmp171733))) + (_%__kont171079171080%_ + _%L166438%_ + _%L166439%_ + _%L166440%_ + _%L166441%_) + (_%__match171370171371%_ + _%e165452166334%_ + _%hd165451166337%_ + _%tl165450166339%_ + _%e165455166342%_ + _%hd165454166345%_ + _%tl165453166347%_ + _%e165458166350%_ + _%hd165457166353%_ + _%tl165456166355%_ + _%e165461166358%_ + _%hd165460166361%_ + _%tl165459166363%_ + _%e165464166366%_ + _%hd165463166369%_ + _%tl165462166371%_ + _%e165467166374%_ + _%hd165466166377%_ + _%tl165465166379%_ + _%e165470166382%_ + _%hd165469166385%_ + _%tl165468166387%_ + _%e165473166390%_ + _%hd165472166393%_ + _%tl165471166395%_ + _%e165476166398%_ + _%hd165475166401%_ + _%tl165474166403%_ + _%e165479166406%_ + _%hd165478166409%_ + _%tl165477166411%_)))))))) + (_%loop165483166419%_ _%target165480166414%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx172048172049%_)) - (let ((_%e166423167305%_ + (gx#stx-pair? _%__stx171077171078%_)) + (let ((_%e165452166334%_ (let () (declare (not safe)) - (gx#stx-e _%__stx172048172049%_)))) - (let ((_%tl166421167310%_ + (gx#stx-e _%__stx171077171078%_)))) + (let ((_%tl165450166339%_ (let () (declare (not safe)) - (##cdr _%e166423167305%_))) - (_%hd166422167308%_ + (##cdr _%e165452166334%_))) + (_%hd165451166337%_ (let () (declare (not safe)) - (##car _%e166423167305%_)))) + (##car _%e165452166334%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166421167310%_)) - (let ((_%e166426167313%_ + (gx#stx-pair? _%tl165450166339%_)) + (let ((_%e165455166342%_ (let () (declare (not safe)) - (gx#stx-e _%tl166421167310%_)))) - (let ((_%tl166424167318%_ + (gx#stx-e _%tl165450166339%_)))) + (let ((_%tl165453166347%_ (let () (declare (not safe)) - (##cdr _%e166426167313%_))) - (_%hd166425167316%_ + (##cdr _%e165455166342%_))) + (_%hd165454166345%_ (let () (declare (not safe)) - (##car _%e166426167313%_)))) + (##car _%e165455166342%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166425167316%_)) - (let ((_%e166429167321%_ + (gx#stx-pair? _%hd165454166345%_)) + (let ((_%e165458166350%_ (let () (declare (not safe)) - (gx#stx-e _%hd166425167316%_)))) - (let ((_%tl166427167326%_ + (gx#stx-e _%hd165454166345%_)))) + (let ((_%tl165456166355%_ (let () (declare (not safe)) - (##cdr _%e166429167321%_))) - (_%hd166428167324%_ + (##cdr _%e165458166350%_))) + (_%hd165457166353%_ (let () (declare (not safe)) - (##car _%e166429167321%_)))) + (##car _%e165458166350%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd166428167324%_)) + _%hd165457166353%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd166428167324%_)) + _%hd165457166353%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166427167326%_)) - (let ((_%e166432167329%_ + _%tl165456166355%_)) + (let ((_%e165461166358%_ (let () (declare (not safe)) (gx#stx-e - _%tl166427167326%_)))) - (let ((_%tl166430167334%_ + _%tl165456166355%_)))) + (let ((_%tl165459166363%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e166432167329%_))) - (_%hd166431167332%_ - (let () (declare (not safe)) (##car _%e166432167329%_)))) + (##cdr _%e165461166358%_))) + (_%hd165460166361%_ + (let () (declare (not safe)) (##car _%e165461166358%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166430167334%_)) + (gx#stx-null? _%tl165459166363%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166424167318%_)) - (let ((_%e166435167337%_ + (gx#stx-pair? _%tl165453166347%_)) + (let ((_%e165464166366%_ (let () (declare (not safe)) - (gx#stx-e _%tl166424167318%_)))) - (let ((_%tl166433167342%_ + (gx#stx-e _%tl165453166347%_)))) + (let ((_%tl165462166371%_ (let () (declare (not safe)) - (##cdr _%e166435167337%_))) - (_%hd166434167340%_ + (##cdr _%e165464166366%_))) + (_%hd165463166369%_ (let () (declare (not safe)) - (##car _%e166435167337%_)))) + (##car _%e165464166366%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166434167340%_)) - (let ((_%e166438167345%_ + (gx#stx-pair? _%hd165463166369%_)) + (let ((_%e165467166374%_ (let () (declare (not safe)) - (gx#stx-e _%hd166434167340%_)))) - (let ((_%tl166436167350%_ + (gx#stx-e _%hd165463166369%_)))) + (let ((_%tl165465166379%_ (let () (declare (not safe)) - (##cdr _%e166438167345%_))) - (_%hd166437167348%_ + (##cdr _%e165467166374%_))) + (_%hd165466166377%_ (let () (declare (not safe)) - (##car _%e166438167345%_)))) + (##car _%e165467166374%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166437167348%_)) + (gx#identifier? _%hd165466166377%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd166437167348%_)) + _%hd165466166377%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166436167350%_)) - (let ((_%e166441167353%_ + _%tl165465166379%_)) + (let ((_%e165470166382%_ (let () (declare (not safe)) (gx#stx-e - _%tl166436167350%_)))) - (let ((_%tl166439167358%_ + _%tl165465166379%_)))) + (let ((_%tl165468166387%_ (let () (declare (not safe)) - (##cdr _%e166441167353%_))) - (_%hd166440167356%_ + (##cdr _%e165470166382%_))) + (_%hd165469166385%_ (let () (declare (not safe)) - (##car _%e166441167353%_)))) + (##car _%e165470166382%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166439167358%_)) + _%tl165468166387%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166433167342%_)) - (let ((_%e166444167361%_ + _%tl165462166371%_)) + (let ((_%e165473166390%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl166433167342%_)))) - (let ((_%tl166442167366%_ + (gx#stx-e _%tl165462166371%_)))) + (let ((_%tl165471166395%_ (let () (declare (not safe)) - (##cdr _%e166444167361%_))) - (_%hd166443167364%_ + (##cdr _%e165473166390%_))) + (_%hd165472166393%_ (let () (declare (not safe)) - (##car _%e166444167361%_)))) + (##car _%e165473166390%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166443167364%_)) - (let ((_%e166447167369%_ + (gx#stx-pair? _%hd165472166393%_)) + (let ((_%e165476166398%_ (let () (declare (not safe)) - (gx#stx-e _%hd166443167364%_)))) - (let ((_%tl166445167374%_ + (gx#stx-e _%hd165472166393%_)))) + (let ((_%tl165474166403%_ (let () (declare (not safe)) - (##cdr _%e166447167369%_))) - (_%hd166446167372%_ + (##cdr _%e165476166398%_))) + (_%hd165475166401%_ (let () (declare (not safe)) - (##car _%e166447167369%_)))) + (##car _%e165476166398%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166446167372%_)) + (gx#identifier? _%hd165475166401%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd166446167372%_)) + _%hd165475166401%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166445167374%_)) - (let ((_%e166450167377%_ + _%tl165474166403%_)) + (let ((_%e165479166406%_ (let () (declare (not safe)) (gx#stx-e - _%tl166445167374%_)))) - (let ((_%tl166448167382%_ + _%tl165474166403%_)))) + (let ((_%tl165477166411%_ (let () (declare (not safe)) - (##cdr _%e166450167377%_))) - (_%hd166449167380%_ + (##cdr _%e165479166406%_))) + (_%hd165478166409%_ (let () (declare (not safe)) - (##car _%e166450167377%_)))) + (##car _%e165479166406%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166448167382%_)) + _%tl165477166411%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl166442167366%_)) - (let ((_%__splice172052172053%_ + _%tl165471166395%_)) + (let ((_%__splice171081171082%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl166442167366%_ '0)))) - (let ((_%tl166453167387%_ + (gx#syntax-split-splice _%tl165471166395%_ '0)))) + (let ((_%tl165482166416%_ (let () (declare (not safe)) - (##vector-ref _%__splice172052172053%_ '1))) - (_%target166451167385%_ + (##vector-ref _%__splice171081171082%_ '1))) + (_%target165480166414%_ (let () (declare (not safe)) - (##vector-ref _%__splice172052172053%_ '0)))) + (##vector-ref _%__splice171081171082%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166453167387%_)) - (_%__match172153172154%_ - _%e166423167305%_ - _%hd166422167308%_ - _%tl166421167310%_ - _%e166426167313%_ - _%hd166425167316%_ - _%tl166424167318%_ - _%e166429167321%_ - _%hd166428167324%_ - _%tl166427167326%_ - _%e166432167329%_ - _%hd166431167332%_ - _%tl166430167334%_ - _%e166435167337%_ - _%hd166434167340%_ - _%tl166433167342%_ - _%e166438167345%_ - _%hd166437167348%_ - _%tl166436167350%_ - _%e166441167353%_ - _%hd166440167356%_ - _%tl166439167358%_ - _%e166444167361%_ - _%hd166443167364%_ - _%tl166442167366%_ - _%e166447167369%_ - _%hd166446167372%_ - _%tl166445167374%_ - _%e166450167377%_ - _%hd166449167380%_ - _%tl166448167382%_ - _%__splice172052172053%_ - _%target166451167385%_ - _%tl166453167387%_) - (_%__match172341172342%_ - _%e166423167305%_ - _%hd166422167308%_ - _%tl166421167310%_ - _%e166426167313%_ - _%hd166425167316%_ - _%tl166424167318%_ - _%e166429167321%_ - _%hd166428167324%_ - _%tl166427167326%_ - _%e166432167329%_ - _%hd166431167332%_ - _%tl166430167334%_ - _%e166435167337%_ - _%hd166434167340%_ - _%tl166433167342%_ - _%e166438167345%_ - _%hd166437167348%_ - _%tl166436167350%_ - _%e166441167353%_ - _%hd166440167356%_ - _%tl166439167358%_ - _%e166444167361%_ - _%hd166443167364%_ - _%tl166442167366%_ - _%e166447167369%_ - _%hd166446167372%_ - _%tl166445167374%_ - _%e166450167377%_ - _%hd166449167380%_ - _%tl166448167382%_)))) - (_%__match172341172342%_ - _%e166423167305%_ - _%hd166422167308%_ - _%tl166421167310%_ - _%e166426167313%_ - _%hd166425167316%_ - _%tl166424167318%_ - _%e166429167321%_ - _%hd166428167324%_ - _%tl166427167326%_ - _%e166432167329%_ - _%hd166431167332%_ - _%tl166430167334%_ - _%e166435167337%_ - _%hd166434167340%_ - _%tl166433167342%_ - _%e166438167345%_ - _%hd166437167348%_ - _%tl166436167350%_ - _%e166441167353%_ - _%hd166440167356%_ - _%tl166439167358%_ - _%e166444167361%_ - _%hd166443167364%_ - _%tl166442167366%_ - _%e166447167369%_ - _%hd166446167372%_ - _%tl166445167374%_ - _%e166450167377%_ - _%hd166449167380%_ - _%tl166448167382%_)) + (gx#stx-null? _%tl165482166416%_)) + (_%__match171182171183%_ + _%e165452166334%_ + _%hd165451166337%_ + _%tl165450166339%_ + _%e165455166342%_ + _%hd165454166345%_ + _%tl165453166347%_ + _%e165458166350%_ + _%hd165457166353%_ + _%tl165456166355%_ + _%e165461166358%_ + _%hd165460166361%_ + _%tl165459166363%_ + _%e165464166366%_ + _%hd165463166369%_ + _%tl165462166371%_ + _%e165467166374%_ + _%hd165466166377%_ + _%tl165465166379%_ + _%e165470166382%_ + _%hd165469166385%_ + _%tl165468166387%_ + _%e165473166390%_ + _%hd165472166393%_ + _%tl165471166395%_ + _%e165476166398%_ + _%hd165475166401%_ + _%tl165474166403%_ + _%e165479166406%_ + _%hd165478166409%_ + _%tl165477166411%_ + _%__splice171081171082%_ + _%target165480166414%_ + _%tl165482166416%_) + (_%__match171370171371%_ + _%e165452166334%_ + _%hd165451166337%_ + _%tl165450166339%_ + _%e165455166342%_ + _%hd165454166345%_ + _%tl165453166347%_ + _%e165458166350%_ + _%hd165457166353%_ + _%tl165456166355%_ + _%e165461166358%_ + _%hd165460166361%_ + _%tl165459166363%_ + _%e165464166366%_ + _%hd165463166369%_ + _%tl165462166371%_ + _%e165467166374%_ + _%hd165466166377%_ + _%tl165465166379%_ + _%e165470166382%_ + _%hd165469166385%_ + _%tl165468166387%_ + _%e165473166390%_ + _%hd165472166393%_ + _%tl165471166395%_ + _%e165476166398%_ + _%hd165475166401%_ + _%tl165474166403%_ + _%e165479166406%_ + _%hd165478166409%_ + _%tl165477166411%_)))) + (_%__match171370171371%_ + _%e165452166334%_ + _%hd165451166337%_ + _%tl165450166339%_ + _%e165455166342%_ + _%hd165454166345%_ + _%tl165453166347%_ + _%e165458166350%_ + _%hd165457166353%_ + _%tl165456166355%_ + _%e165461166358%_ + _%hd165460166361%_ + _%tl165459166363%_ + _%e165464166366%_ + _%hd165463166369%_ + _%tl165462166371%_ + _%e165467166374%_ + _%hd165466166377%_ + _%tl165465166379%_ + _%e165470166382%_ + _%hd165469166385%_ + _%tl165468166387%_ + _%e165473166390%_ + _%hd165472166393%_ + _%tl165471166395%_ + _%e165476166398%_ + _%hd165475166401%_ + _%tl165474166403%_ + _%e165479166406%_ + _%hd165478166409%_ + _%tl165477166411%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match172545172546%_ - _%e166423167305%_ - _%hd166422167308%_ - _%tl166421167310%_ - _%e166426167313%_ - _%hd166425167316%_ - _%tl166424167318%_ - _%e166429167321%_ - _%hd166428167324%_ - _%tl166427167326%_ - _%e166432167329%_ - _%hd166431167332%_ - _%tl166430167334%_ - _%e166435167337%_ - _%hd166434167340%_ - _%tl166433167342%_ - _%e166438167345%_ - _%hd166437167348%_ - _%tl166436167350%_ - _%e166441167353%_ - _%hd166440167356%_ - _%tl166439167358%_ - _%e166444167361%_ - _%hd166443167364%_ - _%tl166442167366%_)))) - (_%__match172545172546%_ - _%e166423167305%_ - _%hd166422167308%_ - _%tl166421167310%_ - _%e166426167313%_ - _%hd166425167316%_ - _%tl166424167318%_ - _%e166429167321%_ - _%hd166428167324%_ - _%tl166427167326%_ - _%e166432167329%_ - _%hd166431167332%_ - _%tl166430167334%_ - _%e166435167337%_ - _%hd166434167340%_ - _%tl166433167342%_ - _%e166438167345%_ - _%hd166437167348%_ - _%tl166436167350%_ - _%e166441167353%_ - _%hd166440167356%_ - _%tl166439167358%_ - _%e166444167361%_ - _%hd166443167364%_ - _%tl166442167366%_)) - (_%__match172221172222%_ - _%e166423167305%_ - _%hd166422167308%_ - _%tl166421167310%_ - _%e166426167313%_ - _%hd166425167316%_ - _%tl166424167318%_ - _%e166429167321%_ - _%hd166428167324%_ - _%tl166427167326%_ - _%e166432167329%_ - _%hd166431167332%_ - _%tl166430167334%_ - _%e166435167337%_ - _%hd166434167340%_ - _%tl166433167342%_ - _%e166438167345%_ - _%hd166437167348%_ - _%tl166436167350%_ - _%e166441167353%_ - _%hd166440167356%_ - _%tl166439167358%_ - _%e166444167361%_ - _%hd166443167364%_ - _%tl166442167366%_ - _%e166447167369%_ - _%hd166446167372%_ - _%tl166445167374%_)) - (_%__match172545172546%_ - _%e166423167305%_ - _%hd166422167308%_ - _%tl166421167310%_ - _%e166426167313%_ - _%hd166425167316%_ - _%tl166424167318%_ - _%e166429167321%_ - _%hd166428167324%_ - _%tl166427167326%_ - _%e166432167329%_ - _%hd166431167332%_ - _%tl166430167334%_ - _%e166435167337%_ - _%hd166434167340%_ - _%tl166433167342%_ - _%e166438167345%_ - _%hd166437167348%_ - _%tl166436167350%_ - _%e166441167353%_ - _%hd166440167356%_ - _%tl166439167358%_ - _%e166444167361%_ - _%hd166443167364%_ - _%tl166442167366%_)))) - (_%__match172545172546%_ - _%e166423167305%_ - _%hd166422167308%_ - _%tl166421167310%_ - _%e166426167313%_ - _%hd166425167316%_ - _%tl166424167318%_ - _%e166429167321%_ - _%hd166428167324%_ - _%tl166427167326%_ - _%e166432167329%_ - _%hd166431167332%_ - _%tl166430167334%_ - _%e166435167337%_ - _%hd166434167340%_ - _%tl166433167342%_ - _%e166438167345%_ - _%hd166437167348%_ - _%tl166436167350%_ - _%e166441167353%_ - _%hd166440167356%_ - _%tl166439167358%_ - _%e166444167361%_ - _%hd166443167364%_ - _%tl166442167366%_)))) - (_%__match172483172484%_ - _%e166423167305%_ - _%hd166422167308%_ - _%tl166421167310%_ - _%e166426167313%_ - _%hd166425167316%_ - _%tl166424167318%_ - _%e166429167321%_ - _%hd166428167324%_ - _%tl166427167326%_ - _%e166432167329%_ - _%hd166431167332%_ - _%tl166430167334%_ - _%e166435167337%_ - _%hd166434167340%_ - _%tl166433167342%_ - _%e166438167345%_ - _%hd166437167348%_ - _%tl166436167350%_ - _%e166441167353%_ - _%hd166440167356%_ - _%tl166439167358%_)) - (_%__kont172066172067%_)))) + (_%__match171574171575%_ + _%e165452166334%_ + _%hd165451166337%_ + _%tl165450166339%_ + _%e165455166342%_ + _%hd165454166345%_ + _%tl165453166347%_ + _%e165458166350%_ + _%hd165457166353%_ + _%tl165456166355%_ + _%e165461166358%_ + _%hd165460166361%_ + _%tl165459166363%_ + _%e165464166366%_ + _%hd165463166369%_ + _%tl165462166371%_ + _%e165467166374%_ + _%hd165466166377%_ + _%tl165465166379%_ + _%e165470166382%_ + _%hd165469166385%_ + _%tl165468166387%_ + _%e165473166390%_ + _%hd165472166393%_ + _%tl165471166395%_)))) + (_%__match171574171575%_ + _%e165452166334%_ + _%hd165451166337%_ + _%tl165450166339%_ + _%e165455166342%_ + _%hd165454166345%_ + _%tl165453166347%_ + _%e165458166350%_ + _%hd165457166353%_ + _%tl165456166355%_ + _%e165461166358%_ + _%hd165460166361%_ + _%tl165459166363%_ + _%e165464166366%_ + _%hd165463166369%_ + _%tl165462166371%_ + _%e165467166374%_ + _%hd165466166377%_ + _%tl165465166379%_ + _%e165470166382%_ + _%hd165469166385%_ + _%tl165468166387%_ + _%e165473166390%_ + _%hd165472166393%_ + _%tl165471166395%_)) + (_%__match171250171251%_ + _%e165452166334%_ + _%hd165451166337%_ + _%tl165450166339%_ + _%e165455166342%_ + _%hd165454166345%_ + _%tl165453166347%_ + _%e165458166350%_ + _%hd165457166353%_ + _%tl165456166355%_ + _%e165461166358%_ + _%hd165460166361%_ + _%tl165459166363%_ + _%e165464166366%_ + _%hd165463166369%_ + _%tl165462166371%_ + _%e165467166374%_ + _%hd165466166377%_ + _%tl165465166379%_ + _%e165470166382%_ + _%hd165469166385%_ + _%tl165468166387%_ + _%e165473166390%_ + _%hd165472166393%_ + _%tl165471166395%_ + _%e165476166398%_ + _%hd165475166401%_ + _%tl165474166403%_)) + (_%__match171574171575%_ + _%e165452166334%_ + _%hd165451166337%_ + _%tl165450166339%_ + _%e165455166342%_ + _%hd165454166345%_ + _%tl165453166347%_ + _%e165458166350%_ + _%hd165457166353%_ + _%tl165456166355%_ + _%e165461166358%_ + _%hd165460166361%_ + _%tl165459166363%_ + _%e165464166366%_ + _%hd165463166369%_ + _%tl165462166371%_ + _%e165467166374%_ + _%hd165466166377%_ + _%tl165465166379%_ + _%e165470166382%_ + _%hd165469166385%_ + _%tl165468166387%_ + _%e165473166390%_ + _%hd165472166393%_ + _%tl165471166395%_)))) + (_%__match171574171575%_ + _%e165452166334%_ + _%hd165451166337%_ + _%tl165450166339%_ + _%e165455166342%_ + _%hd165454166345%_ + _%tl165453166347%_ + _%e165458166350%_ + _%hd165457166353%_ + _%tl165456166355%_ + _%e165461166358%_ + _%hd165460166361%_ + _%tl165459166363%_ + _%e165464166366%_ + _%hd165463166369%_ + _%tl165462166371%_ + _%e165467166374%_ + _%hd165466166377%_ + _%tl165465166379%_ + _%e165470166382%_ + _%hd165469166385%_ + _%tl165468166387%_ + _%e165473166390%_ + _%hd165472166393%_ + _%tl165471166395%_)))) + (_%__match171512171513%_ + _%e165452166334%_ + _%hd165451166337%_ + _%tl165450166339%_ + _%e165455166342%_ + _%hd165454166345%_ + _%tl165453166347%_ + _%e165458166350%_ + _%hd165457166353%_ + _%tl165456166355%_ + _%e165461166358%_ + _%hd165460166361%_ + _%tl165459166363%_ + _%e165464166366%_ + _%hd165463166369%_ + _%tl165462166371%_ + _%e165467166374%_ + _%hd165466166377%_ + _%tl165465166379%_ + _%e165470166382%_ + _%hd165469166385%_ + _%tl165468166387%_)) + (_%__kont171095171096%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont172066172067%_)) - (_%__kont172066172067%_)) - (_%__kont172066172067%_)))) - (_%__kont172066172067%_)))) - (_%__kont172066172067%_)) - (_%__kont172066172067%_)))) + (_%__kont171095171096%_)) + (_%__kont171095171096%_)) + (_%__kont171095171096%_)))) + (_%__kont171095171096%_)))) + (_%__kont171095171096%_)) + (_%__kont171095171096%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont172066172067%_)) - (_%__kont172066172067%_)) - (_%__kont172066172067%_)))) - (_%__kont172066172067%_)))) - (_%__kont172066172067%_)))) - (_%__kont172066172067%_)))))))))) + (_%__kont171095171096%_)) + (_%__kont171095171096%_)) + (_%__kont171095171096%_)))) + (_%__kont171095171096%_)))) + (_%__kont171095171096%_)))) + (_%__kont171095171096%_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm index 674d6ef3d..144dc0869 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm @@ -1,279 +1,279 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g172720_| + (define |gxc[1]#_g171735_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172722_| + (define |gxc[1]#_g171737_| (##structure gx#syntax-quote::t '::generate-method-specializers::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172724_| + (define |gxc[1]#_g171739_| (##structure gx#syntax-quote::t 'make-::generate-method-specializers #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172726_| + (define |gxc[1]#_g171741_| (##structure gx#syntax-quote::t '::generate-method-specializers? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172728_| + (define |gxc[1]#_g171743_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172730_| + (define |gxc[1]#_g171745_| (##structure gx#syntax-quote::t '::collect-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172732_| + (define |gxc[1]#_g171747_| (##structure gx#syntax-quote::t 'make-::collect-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172734_| + (define |gxc[1]#_g171749_| (##structure gx#syntax-quote::t '::collect-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172736_| + (define |gxc[1]#_g171751_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172737_| + (define |gxc[1]#_g171752_| (##structure gx#syntax-quote::t '::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172738_| + (define |gxc[1]#_g171753_| (##structure gx#syntax-quote::t '::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172740_| + (define |gxc[1]#_g171755_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172741_| + (define |gxc[1]#_g171756_| (##structure gx#syntax-quote::t '::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172742_| + (define |gxc[1]#_g171757_| (##structure gx#syntax-quote::t '::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172744_| + (define |gxc[1]#_g171759_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172745_| + (define |gxc[1]#_g171760_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172746_| + (define |gxc[1]#_g171761_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172748_| + (define |gxc[1]#_g171763_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172749_| + (define |gxc[1]#_g171764_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172750_| + (define |gxc[1]#_g171765_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172752_| + (define |gxc[1]#_g171767_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172754_| + (define |gxc[1]#_g171769_| (##structure gx#syntax-quote::t '::subst-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172756_| + (define |gxc[1]#_g171771_| (##structure gx#syntax-quote::t 'make-::subst-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172758_| + (define |gxc[1]#_g171773_| (##structure gx#syntax-quote::t '::subst-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172760_| + (define |gxc[1]#_g171775_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172761_| + (define |gxc[1]#_g171776_| (##structure gx#syntax-quote::t '::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172762_| + (define |gxc[1]#_g171777_| (##structure gx#syntax-quote::t '::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172763_| + (define |gxc[1]#_g171778_| (##structure gx#syntax-quote::t '::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172765_| + (define |gxc[1]#_g171780_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172766_| + (define |gxc[1]#_g171781_| (##structure gx#syntax-quote::t '::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172767_| + (define |gxc[1]#_g171782_| (##structure gx#syntax-quote::t '::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172768_| + (define |gxc[1]#_g171783_| (##structure gx#syntax-quote::t '::subst-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172770_| + (define |gxc[1]#_g171785_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172771_| + (define |gxc[1]#_g171786_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172772_| + (define |gxc[1]#_g171787_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172773_| + (define |gxc[1]#_g171788_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172775_| + (define |gxc[1]#_g171790_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172776_| + (define |gxc[1]#_g171791_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172777_| + (define |gxc[1]#_g171792_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g172778_| + (define |gxc[1]#_g171793_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots-set! @@ -282,7 +282,7 @@ '())) (begin (define |gxc[:0:]#::generate-method-specializers| - (let ((__obj172549 + (let ((__obj171578 (let () (declare (not safe)) (##structure @@ -311,7 +311,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj172549 + __obj171578 'gxc#::generate-method-specializers::t '1 '#f @@ -319,65 +319,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj172549 + __obj171578 '::generate-method-specializers '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172549 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171578 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172549 '() '6 '#f '#f)) - (let ((__tmp172719 (cons |gxc[1]#_g172720_| '()))) + (##unchecked-structure-set! __obj171578 '() '6 '#f '#f)) + (let ((__tmp171734 (cons |gxc[1]#_g171735_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj172549 __tmp172719 '3 '#f '#f)) + (##unchecked-structure-set! __obj171578 __tmp171734 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172549 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171578 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172549 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171578 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172549 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171578 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172549 '#f '11 '#f '#f)) - (let ((__tmp172721 |gxc[1]#_g172722_|)) + (##unchecked-structure-set! __obj171578 '#f '11 '#f '#f)) + (let ((__tmp171736 |gxc[1]#_g171737_|)) (declare (not safe)) - (##unchecked-structure-set! __obj172549 __tmp172721 '12 '#f '#f)) - (let ((__tmp172723 |gxc[1]#_g172724_|)) + (##unchecked-structure-set! __obj171578 __tmp171736 '12 '#f '#f)) + (let ((__tmp171738 |gxc[1]#_g171739_|)) (declare (not safe)) - (##unchecked-structure-set! __obj172549 __tmp172723 '13 '#f '#f)) - (let ((__tmp172725 |gxc[1]#_g172726_|)) + (##unchecked-structure-set! __obj171578 __tmp171738 '13 '#f '#f)) + (let ((__tmp171740 |gxc[1]#_g171741_|)) (declare (not safe)) - (##unchecked-structure-set! __obj172549 __tmp172725 '14 '#f '#f)) + (##unchecked-structure-set! __obj171578 __tmp171740 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172549 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171578 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172549 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171578 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172549 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171578 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172549 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171578 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172549 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171578 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172549 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171578 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172549 '() '20 '#f '#f)) - __obj172549)) + (##unchecked-structure-set! __obj171578 '() '20 '#f '#f)) + __obj171578)) (define |gxc[:0:]#::collect-object-refs| - (let ((__obj172551 + (let ((__obj171580 (let () (declare (not safe)) (##structure @@ -406,7 +406,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj172551 + __obj171580 'gxc#::collect-object-refs::t '1 '#f @@ -414,7 +414,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj172551 + __obj171580 '::collect-object-refs '2 '#f @@ -422,7 +422,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj172551 + __obj171580 '(receiver methods slots) '4 '#f @@ -430,71 +430,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj172551 + __obj171580 '(receiver methods slots) '6 '#f '#f)) - (let ((__tmp172727 (cons |gxc[1]#_g172728_| '()))) + (let ((__tmp171742 (cons |gxc[1]#_g171743_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj172551 __tmp172727 '3 '#f '#f)) + (##unchecked-structure-set! __obj171580 __tmp171742 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172551 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171580 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172551 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171580 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172551 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171580 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172551 '#f '11 '#f '#f)) - (let ((__tmp172729 |gxc[1]#_g172730_|)) + (##unchecked-structure-set! __obj171580 '#f '11 '#f '#f)) + (let ((__tmp171744 |gxc[1]#_g171745_|)) (declare (not safe)) - (##unchecked-structure-set! __obj172551 __tmp172729 '12 '#f '#f)) - (let ((__tmp172731 |gxc[1]#_g172732_|)) + (##unchecked-structure-set! __obj171580 __tmp171744 '12 '#f '#f)) + (let ((__tmp171746 |gxc[1]#_g171747_|)) (declare (not safe)) - (##unchecked-structure-set! __obj172551 __tmp172731 '13 '#f '#f)) - (let ((__tmp172733 |gxc[1]#_g172734_|)) + (##unchecked-structure-set! __obj171580 __tmp171746 '13 '#f '#f)) + (let ((__tmp171748 |gxc[1]#_g171749_|)) (declare (not safe)) - (##unchecked-structure-set! __obj172551 __tmp172733 '14 '#f '#f)) - (let ((__tmp172735 - (cons (cons 'receiver |gxc[1]#_g172736_|) - (cons (cons 'methods |gxc[1]#_g172737_|) - (cons (cons 'slots |gxc[1]#_g172738_|) '()))))) + (##unchecked-structure-set! __obj171580 __tmp171748 '14 '#f '#f)) + (let ((__tmp171750 + (cons (cons 'receiver |gxc[1]#_g171751_|) + (cons (cons 'methods |gxc[1]#_g171752_|) + (cons (cons 'slots |gxc[1]#_g171753_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj172551 __tmp172735 '15 '#f '#f)) - (let ((__tmp172739 - (cons (cons 'receiver |gxc[1]#_g172740_|) - (cons (cons 'methods |gxc[1]#_g172741_|) - (cons (cons 'slots |gxc[1]#_g172742_|) '()))))) + (##unchecked-structure-set! __obj171580 __tmp171750 '15 '#f '#f)) + (let ((__tmp171754 + (cons (cons 'receiver |gxc[1]#_g171755_|) + (cons (cons 'methods |gxc[1]#_g171756_|) + (cons (cons 'slots |gxc[1]#_g171757_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj172551 __tmp172739 '16 '#f '#f)) - (let ((__tmp172743 - (cons (cons 'receiver |gxc[1]#_g172744_|) - (cons (cons 'methods |gxc[1]#_g172745_|) - (cons (cons 'slots |gxc[1]#_g172746_|) '()))))) + (##unchecked-structure-set! __obj171580 __tmp171754 '16 '#f '#f)) + (let ((__tmp171758 + (cons (cons 'receiver |gxc[1]#_g171759_|) + (cons (cons 'methods |gxc[1]#_g171760_|) + (cons (cons 'slots |gxc[1]#_g171761_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj172551 __tmp172743 '17 '#f '#f)) - (let ((__tmp172747 - (cons (cons 'receiver |gxc[1]#_g172748_|) - (cons (cons 'methods |gxc[1]#_g172749_|) - (cons (cons 'slots |gxc[1]#_g172750_|) '()))))) + (##unchecked-structure-set! __obj171580 __tmp171758 '17 '#f '#f)) + (let ((__tmp171762 + (cons (cons 'receiver |gxc[1]#_g171763_|) + (cons (cons 'methods |gxc[1]#_g171764_|) + (cons (cons 'slots |gxc[1]#_g171765_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj172551 __tmp172747 '18 '#f '#f)) + (##unchecked-structure-set! __obj171580 __tmp171762 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172551 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171580 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172551 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171580 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172551 '() '20 '#f '#f)) - __obj172551)) + (##unchecked-structure-set! __obj171580 '() '20 '#f '#f)) + __obj171580)) (define |gxc[:0:]#::subst-object-refs| - (let ((__obj172553 + (let ((__obj171582 (let () (declare (not safe)) (##structure @@ -523,7 +523,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj172553 + __obj171582 'gxc#::subst-object-refs::t '1 '#f @@ -531,7 +531,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj172553 + __obj171582 '::subst-object-refs '2 '#f @@ -539,7 +539,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj172553 + __obj171582 '(receiver klass methods slots) '4 '#f @@ -547,74 +547,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj172553 + __obj171582 '(receiver klass methods slots) '6 '#f '#f)) - (let ((__tmp172751 (cons |gxc[1]#_g172752_| '()))) + (let ((__tmp171766 (cons |gxc[1]#_g171767_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj172553 __tmp172751 '3 '#f '#f)) + (##unchecked-structure-set! __obj171582 __tmp171766 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172553 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171582 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172553 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171582 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172553 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171582 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172553 '#f '11 '#f '#f)) - (let ((__tmp172753 |gxc[1]#_g172754_|)) + (##unchecked-structure-set! __obj171582 '#f '11 '#f '#f)) + (let ((__tmp171768 |gxc[1]#_g171769_|)) (declare (not safe)) - (##unchecked-structure-set! __obj172553 __tmp172753 '12 '#f '#f)) - (let ((__tmp172755 |gxc[1]#_g172756_|)) + (##unchecked-structure-set! __obj171582 __tmp171768 '12 '#f '#f)) + (let ((__tmp171770 |gxc[1]#_g171771_|)) (declare (not safe)) - (##unchecked-structure-set! __obj172553 __tmp172755 '13 '#f '#f)) - (let ((__tmp172757 |gxc[1]#_g172758_|)) + (##unchecked-structure-set! __obj171582 __tmp171770 '13 '#f '#f)) + (let ((__tmp171772 |gxc[1]#_g171773_|)) (declare (not safe)) - (##unchecked-structure-set! __obj172553 __tmp172757 '14 '#f '#f)) - (let ((__tmp172759 - (cons (cons 'receiver |gxc[1]#_g172760_|) - (cons (cons 'klass |gxc[1]#_g172761_|) - (cons (cons 'methods |gxc[1]#_g172762_|) - (cons (cons 'slots |gxc[1]#_g172763_|) + (##unchecked-structure-set! __obj171582 __tmp171772 '14 '#f '#f)) + (let ((__tmp171774 + (cons (cons 'receiver |gxc[1]#_g171775_|) + (cons (cons 'klass |gxc[1]#_g171776_|) + (cons (cons 'methods |gxc[1]#_g171777_|) + (cons (cons 'slots |gxc[1]#_g171778_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj172553 __tmp172759 '15 '#f '#f)) - (let ((__tmp172764 - (cons (cons 'receiver |gxc[1]#_g172765_|) - (cons (cons 'klass |gxc[1]#_g172766_|) - (cons (cons 'methods |gxc[1]#_g172767_|) - (cons (cons 'slots |gxc[1]#_g172768_|) + (##unchecked-structure-set! __obj171582 __tmp171774 '15 '#f '#f)) + (let ((__tmp171779 + (cons (cons 'receiver |gxc[1]#_g171780_|) + (cons (cons 'klass |gxc[1]#_g171781_|) + (cons (cons 'methods |gxc[1]#_g171782_|) + (cons (cons 'slots |gxc[1]#_g171783_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj172553 __tmp172764 '16 '#f '#f)) - (let ((__tmp172769 - (cons (cons 'receiver |gxc[1]#_g172770_|) - (cons (cons 'klass |gxc[1]#_g172771_|) - (cons (cons 'methods |gxc[1]#_g172772_|) - (cons (cons 'slots |gxc[1]#_g172773_|) + (##unchecked-structure-set! __obj171582 __tmp171779 '16 '#f '#f)) + (let ((__tmp171784 + (cons (cons 'receiver |gxc[1]#_g171785_|) + (cons (cons 'klass |gxc[1]#_g171786_|) + (cons (cons 'methods |gxc[1]#_g171787_|) + (cons (cons 'slots |gxc[1]#_g171788_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj172553 __tmp172769 '17 '#f '#f)) - (let ((__tmp172774 - (cons (cons 'receiver |gxc[1]#_g172775_|) - (cons (cons 'klass |gxc[1]#_g172776_|) - (cons (cons 'methods |gxc[1]#_g172777_|) - (cons (cons 'slots |gxc[1]#_g172778_|) + (##unchecked-structure-set! __obj171582 __tmp171784 '17 '#f '#f)) + (let ((__tmp171789 + (cons (cons 'receiver |gxc[1]#_g171790_|) + (cons (cons 'klass |gxc[1]#_g171791_|) + (cons (cons 'methods |gxc[1]#_g171792_|) + (cons (cons 'slots |gxc[1]#_g171793_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj172553 __tmp172774 '18 '#f '#f)) + (##unchecked-structure-set! __obj171582 __tmp171789 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172553 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171582 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172553 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171582 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj172553 '() '20 '#f '#f)) - __obj172553)))) + (##unchecked-structure-set! __obj171582 '() '20 '#f '#f)) + __obj171582)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top.ssxi.ss b/src/bootstrap/gerbil/compiler/optimize-top.ssxi.ss index ed70ee786..19b9ea7f4 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/optimize-top.ssxi.ss @@ -40,7 +40,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) (declare-class gxc#::collect-top-level-declarations::t (@class gxc#::collect-top-level-declarations::t @@ -79,7 +88,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) (declare-class gxc#::basic-expression-top-level-type::t (@class gxc#::basic-expression-top-level-type::t @@ -118,7 +136,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) (declare-class gxc#::collect-type-info::t (@class gxc#::collect-type-info::t @@ -155,7 +182,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) (declare-class gxc#::raw-expression-type::t (@class gxc#::raw-expression-type::t @@ -194,7 +230,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) (declare-class gxc#::basic-expression-type::t (@class gxc#::basic-expression-type::t @@ -234,7 +279,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) (declare-class gxc#::lift-top-lambdas::t (@class gxc#::lift-top-lambdas::t @@ -271,7 +325,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) (declare-class gxc#::extract-lambda-signature::t (@class gxc#::extract-lambda-signature::t @@ -310,64 +373,272 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#collect-top-level-type-define-values% (@lambda 2 #f)) - (declare-type gxc#collect-top-level-decl-begin-annotation% (@lambda 2 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#collect-top-level-type-define-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#collect-top-level-decl-begin-annotation% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) (declare-type gxc#eval-in-ssxi-context (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#collect-type-define-values% (@lambda 2 #f)) - (declare-type gxc#collect-type-begin-annotation% (@lambda 2 #f)) - (declare-type gxc#collect-type-lambda% (@lambda 2 #f)) - (declare-type gxc#collect-type-case-lambda% (@lambda 2 #f)) - (declare-type gxc#collect-type-lambda-formals-tail (@lambda 2 #f)) - (declare-type gxc#collect-type-let-values%__% (@lambda 3 #f)) - (declare-type gxc#collect-type-let-values%__0 (@lambda 2 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) (declare-type - gxc#collect-type-let-values% - (@case-lambda - (2 gxc#collect-type-let-values%__0) - (3 gxc#collect-type-let-values%__%))) - (declare-type gxc#collect-type-letrec-values%__% (@lambda 3 #f)) - (declare-type gxc#collect-type-letrec-values%__0 (@lambda 2 #f)) + gxc#collect-type-define-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) (declare-type - gxc#collect-type-letrec-values% + gxc#collect-type-begin-annotation% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#collect-type-lambda% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#collect-type-case-lambda% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#collect-type-lambda-formals-tail + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#collect-type-let-values%__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#collect-type-let-values%__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#collect-type-let-values% (@case-lambda - (2 gxc#collect-type-letrec-values%__0) - (3 gxc#collect-type-letrec-values%__%))) - (declare-type gxc#collect-top-level-type-let-values% (@lambda 2 #f)) - (declare-type gxc#collect-top-level-type-letrec-values% (@lambda 2 #f)) - (declare-type gxc#collect-type-call% (@lambda 2 #f)) - (declare-type gxc#collect-type-setq% (@lambda 2 #f)) - (declare-type gxc#basic-expression-type-begin-annotation% (@lambda 2 #f)) - (declare-type gxc#basic-expression-type-annotation-typedecl (@lambda 2 #f)) - (declare-type gxc#basic-expression-type-annotation-mop.class (@lambda 2 #f)) - (declare-type gxc#basic-expression-type-annotation-mop.system (@lambda 2 #f)) + (2 + gxc#collect-type-let-values%__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top)) + (3 + gxc#collect-type-let-values%__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top)))) (declare-type - gxc#basic-expression-type-annotation-mop.constructor - (@lambda 2 #f)) + gxc#collect-type-letrec-values%__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) (declare-type - gxc#basic-expression-type-annotation-mop.predicate - (@lambda 2 #f)) + gxc#collect-type-letrec-values%__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) (declare-type - gxc#basic-expression-type-annotation-mop.accessor - (@lambda 2 #f)) + gxc#collect-type-letrec-values% + (@case-lambda + (2 + gxc#collect-type-letrec-values%__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top)) + (3 + gxc#collect-type-letrec-values%__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top)))) (declare-type - gxc#basic-expression-type-annotation-mop.mutator - (@lambda 2 #f)) - (declare-type gxc#basic-expression-type-annotation-interface (@lambda 2 #f)) - (declare-type gxc#basic-expression-type-annotation-predicate (@lambda 2 #f)) - (declare-type gxc#basic-expression-type-annotation-abort (@lambda 2 #f)) - (declare-type gxc#raw-expression-type-lambda% (@lambda 2 #f)) - (declare-type gxc#basic-expression-type-lambda% (@lambda 2 #f)) - (declare-type gxc#basic-expression-type-case-lambda% (@lambda 2 #f)) - (declare-type gxc#basic-expression-type-call% (@lambda 2 #f)) + gxc#collect-top-level-type-let-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) (declare-type - gxc#!procedure::return-type - (@lambda 4 + gxc#collect-top-level-type-letrec-values% + (@lambda 2 #f signature: (return: @@ -375,12 +646,14 @@ package: gerbil/compiler effect: #f arguments: - (t::t t::t t::t t::t) + #f unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-top))) (declare-type - gxc#!procedure::apply-return-type - (@lambda 4 + gxc#collect-type-call% + (@lambda 2 #f signature: (return: @@ -388,12 +661,14 @@ package: gerbil/compiler effect: #f arguments: - (t::t t::t t::t t::t) + #f unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-top))) (declare-type - gxc#!lambda::return-type - (@lambda 4 + gxc#collect-type-setq% + (@lambda 2 #f signature: (return: @@ -401,12 +676,19 @@ package: gerbil/compiler effect: #f arguments: - (t::t t::t t::t t::t) + #f unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-top))) (declare-type - gxc#!lambda::apply-return-type - (@lambda 4 + gxc#basic-expression-type-annotations + (optimizer-resolve-class + '(typedecl gxc#basic-expression-type-annotations) + 't::t)) + (declare-type + gxc#basic-expression-type-begin-annotation% + (@lambda 2 #f signature: (return: @@ -414,12 +696,14 @@ package: gerbil/compiler effect: #f arguments: - (t::t t::t t::t t::t) + #f unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-top))) (declare-type - gxc#!case-lambda::return-type - (@lambda 4 + gxc#basic-expression-type-annotation-typedecl + (@lambda 2 #f signature: (return: @@ -427,12 +711,14 @@ package: gerbil/compiler effect: #f arguments: - (t::t t::t t::t t::t) + #f unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-top))) (declare-type - gxc#!case-lambda::apply-return-type - (@lambda 4 + gxc#basic-expression-type-annotation-mop.class + (@lambda 2 #f signature: (return: @@ -440,12 +726,14 @@ package: gerbil/compiler effect: #f arguments: - (t::t t::t t::t t::t) + #f unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-top))) (declare-type - gxc#!kw-lambda::return-type - (@lambda 4 + gxc#basic-expression-type-annotation-mop.system + (@lambda 2 #f signature: (return: @@ -453,12 +741,14 @@ package: gerbil/compiler effect: #f arguments: - (t::t t::t t::t t::t) + #f unchecked: - #f))) + #f + origin: + gerbil/compiler/optimize-top))) (declare-type - gxc#!kw-lambda::apply-return-type - (@lambda 4 + gxc#basic-expression-type-annotation-mop.constructor + (@lambda 2 #f signature: (return: @@ -466,35 +756,672 @@ package: gerbil/compiler effect: #f arguments: - (t::t t::t t::t t::t) + #f unchecked: - #f))) - (declare-type gxc#extract-keyword-args (@lambda 1 #f)) - (declare-type gxc#!lambda-arity-match? (@lambda 2 #f)) - (declare-type gxc#!lambda-arity-match-apply? (@lambda 2 #f)) - (declare-type gxc#basic-expression-type-special-cast (@lambda 2 #f)) - (declare-type gxc#basic-expression-type-special-apply (@lambda 2 #f)) - (declare-type gxc#basic-expression-type-ref% (@lambda 2 #f)) - (declare-type gxc#basic-expression-type-if% (@lambda 2 #f)) - (declare-type gxc#greatest-common-type (@lambda 3 #f)) - (declare-type gxc#basic-expression-type-quote% (@lambda 2 #f)) - (declare-type gxc#dispatch-lambda-form? (@lambda 1 #f)) - (declare-type gxc#dispatch-lambda-form-delegate (@lambda 1 #f)) - (declare-type gxc#lambda-form-arity (@lambda 1 #f)) - (declare-type gxc#lambda-form-infer-signature (@lambda 1 #f)) - (declare-type gxc#extract-lambda-signature-begin-annotation% (@lambda 2 #f)) - (declare-type gxc#lambda-expr? (@lambda 1 #f)) - (declare-type gxc#case-lambda-expr? (@lambda 1 #f)) - (declare-type gxc#opt-lambda-expr? (@lambda 1 #f)) - (declare-type gxc#kw-lambda-expr? (@lambda 1 #f)) - (declare-type gxc#lift-case-lambda-clauses__% (@lambda 4 #f)) - (declare-type gxc#lift-case-lambda-clauses__0 (@lambda 3 #f)) + #f + origin: + gerbil/compiler/optimize-top))) (declare-type - gxc#lift-case-lambda-clauses - (@case-lambda - (3 gxc#lift-case-lambda-clauses__0) - (4 gxc#lift-case-lambda-clauses__%))) - (declare-type gxc#lift-top-lambda-define-values% (@lambda 2 #f)) - (declare-type gxc#lift-top-lambda-let-values% (@lambda 2 #f)) - (declare-type gxc#lift-top-lambda-letrec-values% (@lambda 2 #f)) - (declare-type gxc#lift-top-lambda-binding? (@lambda 1 #f))) + gxc#basic-expression-type-annotation-mop.predicate + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#basic-expression-type-annotation-mop.accessor + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#basic-expression-type-annotation-mop.mutator + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#basic-expression-type-annotation-interface + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#basic-expression-type-annotation-predicate + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#basic-expression-type-annotation-abort + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#raw-expression-type-lambda% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#basic-expression-type-lambda% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#basic-expression-type-case-lambda% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#basic-expression-type-special + (optimizer-resolve-class + '(typedecl gxc#basic-expression-type-special) + 't::t)) + (declare-type + gxc#basic-expression-type-call% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#!procedure::return-type + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + (t::t t::t t::t t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#!procedure::apply-return-type + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + (t::t t::t t::t t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#!lambda::return-type + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + (t::t t::t t::t t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#!lambda::apply-return-type + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + (t::t t::t t::t t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#!case-lambda::return-type + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + (t::t t::t t::t t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#!case-lambda::apply-return-type + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + (t::t t::t t::t t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#!kw-lambda::return-type + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + (t::t t::t t::t t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#!kw-lambda::apply-return-type + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + (t::t t::t t::t t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#extract-keyword-args + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#!lambda-arity-match? + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#!lambda-arity-match-apply? + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#basic-expression-type-special-cast + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#basic-expression-type-special-apply + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#basic-expression-type-ref% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#basic-expression-type-if% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#greatest-common-type + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#basic-expression-type-quote% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#dispatch-lambda-form? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#dispatch-lambda-form-delegate + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#lambda-form-arity + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#lambda-form-infer-signature + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#extract-lambda-signature-begin-annotation% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#lambda-expr? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#case-lambda-expr? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#opt-lambda-expr? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#kw-lambda-expr? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#lift-case-lambda-clauses__% + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#lift-case-lambda-clauses__0 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#lift-case-lambda-clauses + (@case-lambda + (3 + gxc#lift-case-lambda-clauses__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top)) + (4 + gxc#lift-case-lambda-clauses__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top)))) + (declare-type + gxc#lift-top-lambda-define-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#lift-top-lambda-let-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#lift-top-lambda-letrec-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top))) + (declare-type + gxc#lift-top-lambda-binding? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-top)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~0.scm b/src/bootstrap/gerbil/compiler/optimize-top~0.scm index 156455ba0..2b0e24883 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 1712533292) + (define gerbil/compiler/optimize-top::timestamp 1712573432) (begin (define gxc#::collect-top-level-type-info::t - (let ((__tmp165998 (list gxc#::void::t)) - (__tmp165997 (cons (cons 'final: '#t) '()))) + (let ((__tmp165100 (list gxc#::void::t)) + (__tmp165099 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-type-info::t '::collect-top-level-type-info - __tmp165998 + __tmp165100 '() - __tmp165997 + __tmp165099 '#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 _%$args163411%_ + (lambda _%$args162512%_ (apply make-instance gxc#::collect-top-level-type-info::t - _%$args163411%_))) + _%$args162512%_))) (define gxc#::collect-top-level-type-info-bind-methods! - (let ((__tmp165999 + (let ((__tmp165101 (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 __tmp165999))) + (__make-promise __tmp165101))) (define gxc#apply-collect-top-level-type-info - (lambda (_%stx163403%_) + (lambda (_%stx162504%_) (force gxc#::collect-top-level-type-info-bind-methods!) - (let* ((_%self163406%_ - (let ((__obj165949 + (let* ((_%self162507%_ + (let ((__obj165050 (let () (declare (not safe)) (##structure gxc#::collect-top-level-type-info::t)))) - __obj165949)) - (__tmp166000 + __obj165050)) + (__tmp165102 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self163406%_ _%stx163403%_))))) + (gxc#compile-e__1 _%self162507%_ _%stx162504%_))))) (declare (not safe)) (__call-with-parameters - __tmp166000 + __tmp165102 gxc#current-compile-method - _%self163406%_)))) + _%self162507%_)))) (define gxc#::collect-top-level-declarations::t - (let ((__tmp166002 (list gxc#::void::t)) - (__tmp166001 (cons (cons 'final: '#t) '()))) + (let ((__tmp165104 (list gxc#::void::t)) + (__tmp165103 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-declarations::t '::collect-top-level-declarations - __tmp166002 + __tmp165104 '() - __tmp166001 + __tmp165103 '#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 _%$args163400%_ + (lambda _%$args162501%_ (apply make-instance gxc#::collect-top-level-declarations::t - _%$args163400%_))) + _%$args162501%_))) (define gxc#::collect-top-level-declarations-bind-methods! - (let ((__tmp166003 + (let ((__tmp165105 (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 __tmp166003))) + (__make-promise __tmp165105))) (define gxc#apply-collect-top-level-declarations - (lambda (_%stx163392%_) + (lambda (_%stx162493%_) (force gxc#::collect-top-level-declarations-bind-methods!) - (let* ((_%self163395%_ - (let ((__obj165951 + (let* ((_%self162496%_ + (let ((__obj165052 (let () (declare (not safe)) (##structure gxc#::collect-top-level-declarations::t)))) - __obj165951)) - (__tmp166004 + __obj165052)) + (__tmp165106 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self163395%_ _%stx163392%_))))) + (gxc#compile-e__1 _%self162496%_ _%stx162493%_))))) (declare (not safe)) (__call-with-parameters - __tmp166004 + __tmp165106 gxc#current-compile-method - _%self163395%_)))) + _%self162496%_)))) (define gxc#::basic-expression-top-level-type::t - (let ((__tmp166006 (list gxc#::false::t)) - (__tmp166005 (cons (cons 'final: '#t) '()))) + (let ((__tmp165108 (list gxc#::false::t)) + (__tmp165107 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-top-level-type::t '::basic-expression-top-level-type - __tmp166006 + __tmp165108 '() - __tmp166005 + __tmp165107 '#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 _%$args163389%_ + (lambda _%$args162490%_ (apply make-instance gxc#::basic-expression-top-level-type::t - _%$args163389%_))) + _%$args162490%_))) (define gxc#::basic-expression-top-level-type-bind-methods! - (let ((__tmp166007 + (let ((__tmp165109 (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 __tmp166007))) + (__make-promise __tmp165109))) (define gxc#apply-basic-expression-top-level-type - (lambda (_%stx163381%_) + (lambda (_%stx162482%_) (force gxc#::basic-expression-top-level-type-bind-methods!) - (let* ((_%self163384%_ - (let ((__obj165953 + (let* ((_%self162485%_ + (let ((__obj165054 (let () (declare (not safe)) (##structure gxc#::basic-expression-top-level-type::t)))) - __obj165953)) - (__tmp166008 + __obj165054)) + (__tmp165110 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self163384%_ _%stx163381%_))))) + (gxc#compile-e__1 _%self162485%_ _%stx162482%_))))) (declare (not safe)) (__call-with-parameters - __tmp166008 + __tmp165110 gxc#current-compile-method - _%self163384%_)))) + _%self162485%_)))) (define gxc#::collect-type-info::t - (let ((__tmp166010 (list gxc#::void::t)) - (__tmp166009 (cons (cons 'final: '#t) '()))) + (let ((__tmp165112 (list gxc#::void::t)) + (__tmp165111 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-type-info::t '::collect-type-info - __tmp166010 + __tmp165112 '() - __tmp166009 + __tmp165111 '#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 _%$args163378%_ - (apply make-instance gxc#::collect-type-info::t _%$args163378%_))) + (lambda _%$args162479%_ + (apply make-instance gxc#::collect-type-info::t _%$args162479%_))) (define gxc#::collect-type-info-bind-methods! - (let ((__tmp166011 + (let ((__tmp165113 (lambda () (force gxc#::void-bind-methods!) (let () @@ -354,33 +354,33 @@ (declare (not safe)) (__seal-class! gxc#::collect-type-info::t))))) (declare (not safe)) - (__make-promise __tmp166011))) + (__make-promise __tmp165113))) (define gxc#apply-collect-type-info - (lambda (_%stx163370%_) + (lambda (_%stx162471%_) (force gxc#::collect-type-info-bind-methods!) - (let* ((_%self163373%_ - (let ((__obj165955 + (let* ((_%self162474%_ + (let ((__obj165056 (let () (declare (not safe)) (##structure gxc#::collect-type-info::t)))) - __obj165955)) - (__tmp166012 + __obj165056)) + (__tmp165114 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self163373%_ _%stx163370%_))))) + (gxc#compile-e__1 _%self162474%_ _%stx162471%_))))) (declare (not safe)) (__call-with-parameters - __tmp166012 + __tmp165114 gxc#current-compile-method - _%self163373%_)))) + _%self162474%_)))) (define gxc#::raw-expression-type::t - (let ((__tmp166013 (list gxc#::false::t))) + (let ((__tmp165115 (list gxc#::false::t))) (declare (not safe)) (__make-class-type 'gxc#::raw-expression-type::t '::raw-expression-type - __tmp166013 + __tmp165115 '() '() '#f))) @@ -389,10 +389,10 @@ (declare (not safe)) (__make-class-predicate gxc#::raw-expression-type::t))) (define gxc#make-::raw-expression-type - (lambda _%$args163367%_ - (apply make-instance gxc#::raw-expression-type::t _%$args163367%_))) + (lambda _%$args162468%_ + (apply make-instance gxc#::raw-expression-type::t _%$args162468%_))) (define gxc#::raw-expression-type-bind-methods! - (let ((__tmp166014 + (let ((__tmp165116 (lambda () (force gxc#::false-bind-methods!) (let () @@ -462,46 +462,46 @@ '%#quote gxc#basic-expression-type-quote%))))) (declare (not safe)) - (__make-promise __tmp166014))) + (__make-promise __tmp165116))) (define gxc#apply-raw-expression-type - (lambda (_%stx163359%_) + (lambda (_%stx162460%_) (force gxc#::raw-expression-type-bind-methods!) - (let* ((_%self163362%_ - (let ((__obj165957 + (let* ((_%self162463%_ + (let ((__obj165058 (let () (declare (not safe)) (##structure gxc#::raw-expression-type::t)))) - __obj165957)) - (__tmp166015 + __obj165058)) + (__tmp165117 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self163362%_ _%stx163359%_))))) + (gxc#compile-e__1 _%self162463%_ _%stx162460%_))))) (declare (not safe)) (__call-with-parameters - __tmp166015 + __tmp165117 gxc#current-compile-method - _%self163362%_)))) + _%self162463%_)))) (define gxc#::basic-expression-type::t - (let ((__tmp166017 (list gxc#::raw-expression-type::t gxc#::false::t)) - (__tmp166016 (cons (cons 'final: '#t) '()))) + (let ((__tmp165119 (list gxc#::raw-expression-type::t gxc#::false::t)) + (__tmp165118 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-type::t '::basic-expression-type - __tmp166017 + __tmp165119 '() - __tmp166016 + __tmp165118 '#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 _%$args163356%_ - (apply make-instance gxc#::basic-expression-type::t _%$args163356%_))) + (lambda _%$args162457%_ + (apply make-instance gxc#::basic-expression-type::t _%$args162457%_))) (define gxc#::basic-expression-type-bind-methods! - (let ((__tmp166018 + (let ((__tmp165120 (lambda () (force gxc#::raw-expression-type-bind-methods!) (force gxc#::false-bind-methods!) @@ -515,46 +515,46 @@ (declare (not safe)) (__seal-class! gxc#::basic-expression-type::t))))) (declare (not safe)) - (__make-promise __tmp166018))) + (__make-promise __tmp165120))) (define gxc#apply-basic-expression-type - (lambda (_%stx163348%_) + (lambda (_%stx162449%_) (force gxc#::basic-expression-type-bind-methods!) - (let* ((_%self163351%_ - (let ((__obj165959 + (let* ((_%self162452%_ + (let ((__obj165060 (let () (declare (not safe)) (##structure gxc#::basic-expression-type::t)))) - __obj165959)) - (__tmp166019 + __obj165060)) + (__tmp165121 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self163351%_ _%stx163348%_))))) + (gxc#compile-e__1 _%self162452%_ _%stx162449%_))))) (declare (not safe)) (__call-with-parameters - __tmp166019 + __tmp165121 gxc#current-compile-method - _%self163351%_)))) + _%self162452%_)))) (define gxc#::lift-top-lambdas::t - (let ((__tmp166021 (list gxc#::basic-xform::t)) - (__tmp166020 (cons (cons 'final: '#t) '()))) + (let ((__tmp165123 (list gxc#::basic-xform::t)) + (__tmp165122 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-top-lambdas::t '::lift-top-lambdas - __tmp166021 + __tmp165123 '() - __tmp166020 + __tmp165122 '#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 _%$args163345%_ - (apply make-instance gxc#::lift-top-lambdas::t _%$args163345%_))) + (lambda _%$args162446%_ + (apply make-instance gxc#::lift-top-lambdas::t _%$args162446%_))) (define gxc#::lift-top-lambdas-bind-methods! - (let ((__tmp166022 + (let ((__tmp165124 (lambda () (force gxc#::basic-xform-bind-methods!) (let () @@ -585,48 +585,48 @@ (declare (not safe)) (__seal-class! gxc#::lift-top-lambdas::t))))) (declare (not safe)) - (__make-promise __tmp166022))) + (__make-promise __tmp165124))) (define gxc#apply-lift-top-lambdas - (lambda (_%stx163337%_) + (lambda (_%stx162438%_) (force gxc#::lift-top-lambdas-bind-methods!) - (let* ((_%self163340%_ - (let ((__obj165961 + (let* ((_%self162441%_ + (let ((__obj165062 (let () (declare (not safe)) (##structure gxc#::lift-top-lambdas::t)))) - __obj165961)) - (__tmp166023 + __obj165062)) + (__tmp165125 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self163340%_ _%stx163337%_))))) + (gxc#compile-e__1 _%self162441%_ _%stx162438%_))))) (declare (not safe)) (__call-with-parameters - __tmp166023 + __tmp165125 gxc#current-compile-method - _%self163340%_)))) + _%self162441%_)))) (define gxc#::extract-lambda-signature::t - (let ((__tmp166025 (list gxc#::false::t)) - (__tmp166024 (cons (cons 'final: '#t) '()))) + (let ((__tmp165127 (list gxc#::false::t)) + (__tmp165126 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::extract-lambda-signature::t '::extract-lambda-signature - __tmp166025 + __tmp165127 '() - __tmp166024 + __tmp165126 '#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 _%$args163334%_ + (lambda _%$args162435%_ (apply make-instance gxc#::extract-lambda-signature::t - _%$args163334%_))) + _%$args162435%_))) (define gxc#::extract-lambda-signature-bind-methods! - (let ((__tmp166026 + (let ((__tmp165128 (lambda () (force gxc#::false-bind-methods!) (let () @@ -663,224 +663,218 @@ (declare (not safe)) (__seal-class! gxc#::extract-lambda-signature::t))))) (declare (not safe)) - (__make-promise __tmp166026))) + (__make-promise __tmp165128))) (define gxc#apply-extract-lambda-signature - (lambda (_%stx163326%_) + (lambda (_%stx162427%_) (force gxc#::extract-lambda-signature-bind-methods!) - (let* ((_%self163329%_ - (let ((__obj165963 + (let* ((_%self162430%_ + (let ((__obj165064 (let () (declare (not safe)) (##structure gxc#::extract-lambda-signature::t)))) - __obj165963)) - (__tmp166027 + __obj165064)) + (__tmp165129 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self163329%_ _%stx163326%_))))) + (gxc#compile-e__1 _%self162430%_ _%stx162427%_))))) (declare (not safe)) (__call-with-parameters - __tmp166027 + __tmp165129 gxc#current-compile-method - _%self163329%_)))) + _%self162430%_)))) (define gxc#collect-top-level-type-define-values% - (lambda (_%self163228%_ _%stx163229%_) - (let* ((_%__stx163424163425%_ _%stx163229%_) - (_%g163232163252%_ + (lambda (_%self162329%_ _%stx162330%_) + (let* ((_%__stx162525162526%_ _%stx162330%_) + (_%g162333162353%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx163424163425%_))))) - (let ((_%__kont163426163427%_ - (lambda (_%L163296%_ _%L163297%_) - (let ((_%sym163315%_ + _%__stx162525162526%_))))) + (let ((_%__kont162527162528%_ + (lambda (_%L162397%_ _%L162398%_) + (let ((_%sym162416%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L163297%_)))) - (let () - (declare (not safe)) - (gxc#apply-collect-top-level-type-info _%L163296%_)) - (let ((_%type163316163318%_ - (let () - (declare (not safe)) - (gxc#apply-basic-expression-top-level-type - _%L163296%_)))) - (if _%type163316163318%_ - (let ((_%type163321%_ _%type163316163318%_)) + (gxc#identifier-symbol _%L162398%_)))) + (gxc#apply-collect-top-level-type-info _%L162397%_) + (let ((_%type162417162419%_ + (gxc#apply-basic-expression-top-level-type + _%L162397%_))) + (if _%type162417162419%_ + (let ((_%type162422%_ _%type162417162419%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type163321%_ + _%type162422%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp166028 + (let ((__tmp165130 (##structure-ref - _%type163321%_ + _%type162422%_ '2 gxc#!class-meta::t '#f))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym163315%_ - __tmp166028)) - (let ((__tmp166029 + _%sym162416%_ + __tmp165130)) + (let ((__tmp165131 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx163229%_ + _%stx162330%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym163315%_ - __tmp166029))) + _%sym162416%_ + __tmp165131))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym163315%_ - _%type163321%_)))) + _%sym162416%_ + _%type162422%_)))) '#f))))) - (_%__kont163428163429%_ (lambda () '#!void))) - (let ((_%__match163457163458%_ - (lambda (_%e163238163264%_ - _%hd163237163267%_ - _%tl163236163269%_ - _%e163241163272%_ - _%hd163240163275%_ - _%tl163239163277%_ - _%e163244163280%_ - _%hd163243163283%_ - _%tl163242163285%_ - _%e163247163288%_ - _%hd163246163291%_ - _%tl163245163293%_) - (let ((_%L163296%_ _%hd163246163291%_) - (_%L163297%_ _%hd163243163283%_)) + (_%__kont162529162530%_ (lambda () '#!void))) + (let ((_%__match162558162559%_ + (lambda (_%e162339162365%_ + _%hd162338162368%_ + _%tl162337162370%_ + _%e162342162373%_ + _%hd162341162376%_ + _%tl162340162378%_ + _%e162345162381%_ + _%hd162344162384%_ + _%tl162343162386%_ + _%e162348162389%_ + _%hd162347162392%_ + _%tl162346162394%_) + (let ((_%L162397%_ _%hd162347162392%_) + (_%L162398%_ _%hd162344162384%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L163297%_)) - (_%__kont163426163427%_ _%L163296%_ _%L163297%_) - (_%__kont163428163429%_)))))) + (gx#identifier? _%L162398%_)) + (_%__kont162527162528%_ _%L162397%_ _%L162398%_) + (_%__kont162529162530%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx163424163425%_)) - (let ((_%e163238163264%_ + (gx#stx-pair? _%__stx162525162526%_)) + (let ((_%e162339162365%_ (let () (declare (not safe)) - (gx#stx-e _%__stx163424163425%_)))) - (let ((_%tl163236163269%_ + (gx#stx-e _%__stx162525162526%_)))) + (let ((_%tl162337162370%_ (let () (declare (not safe)) - (##cdr _%e163238163264%_))) - (_%hd163237163267%_ + (##cdr _%e162339162365%_))) + (_%hd162338162368%_ (let () (declare (not safe)) - (##car _%e163238163264%_)))) + (##car _%e162339162365%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163236163269%_)) - (let ((_%e163241163272%_ + (gx#stx-pair? _%tl162337162370%_)) + (let ((_%e162342162373%_ (let () (declare (not safe)) - (gx#stx-e _%tl163236163269%_)))) - (let ((_%tl163239163277%_ + (gx#stx-e _%tl162337162370%_)))) + (let ((_%tl162340162378%_ (let () (declare (not safe)) - (##cdr _%e163241163272%_))) - (_%hd163240163275%_ + (##cdr _%e162342162373%_))) + (_%hd162341162376%_ (let () (declare (not safe)) - (##car _%e163241163272%_)))) + (##car _%e162342162373%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163240163275%_)) - (let ((_%e163244163280%_ + (gx#stx-pair? _%hd162341162376%_)) + (let ((_%e162345162381%_ (let () (declare (not safe)) - (gx#stx-e _%hd163240163275%_)))) - (let ((_%tl163242163285%_ + (gx#stx-e _%hd162341162376%_)))) + (let ((_%tl162343162386%_ (let () (declare (not safe)) - (##cdr _%e163244163280%_))) - (_%hd163243163283%_ + (##cdr _%e162345162381%_))) + (_%hd162344162384%_ (let () (declare (not safe)) - (##car _%e163244163280%_)))) + (##car _%e162345162381%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163242163285%_)) + (gx#stx-null? _%tl162343162386%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163239163277%_)) - (let ((_%e163247163288%_ + _%tl162340162378%_)) + (let ((_%e162348162389%_ (let () (declare (not safe)) (gx#stx-e - _%tl163239163277%_)))) - (let ((_%tl163245163293%_ + _%tl162340162378%_)))) + (let ((_%tl162346162394%_ (let () (declare (not safe)) - (##cdr _%e163247163288%_))) - (_%hd163246163291%_ + (##cdr _%e162348162389%_))) + (_%hd162347162392%_ (let () (declare (not safe)) - (##car _%e163247163288%_)))) + (##car _%e162348162389%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163245163293%_)) - (_%__match163457163458%_ - _%e163238163264%_ - _%hd163237163267%_ - _%tl163236163269%_ - _%e163241163272%_ - _%hd163240163275%_ - _%tl163239163277%_ - _%e163244163280%_ - _%hd163243163283%_ - _%tl163242163285%_ - _%e163247163288%_ - _%hd163246163291%_ - _%tl163245163293%_) - (_%__kont163428163429%_)))) - (_%__kont163428163429%_)) - (_%__kont163428163429%_)))) - (_%__kont163428163429%_)))) - (_%__kont163428163429%_)))) - (_%__kont163428163429%_))))))) + _%tl162346162394%_)) + (_%__match162558162559%_ + _%e162339162365%_ + _%hd162338162368%_ + _%tl162337162370%_ + _%e162342162373%_ + _%hd162341162376%_ + _%tl162340162378%_ + _%e162345162381%_ + _%hd162344162384%_ + _%tl162343162386%_ + _%e162348162389%_ + _%hd162347162392%_ + _%tl162346162394%_) + (_%__kont162529162530%_)))) + (_%__kont162529162530%_)) + (_%__kont162529162530%_)))) + (_%__kont162529162530%_)))) + (_%__kont162529162530%_)))) + (_%__kont162529162530%_))))))) (define gxc#collect-top-level-decl-begin-annotation% - (lambda (_%self163050%_ _%stx163051%_) - (let* ((_%__stx163460163461%_ _%stx163051%_) - (_%g163054163094%_ + (lambda (_%self162151%_ _%stx162152%_) + (let* ((_%__stx162561162562%_ _%stx162152%_) + (_%g162155162195%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx163460163461%_))))) - (let ((_%__kont163462163463%_ - (lambda (_%L163200%_ _%L163201%_) - (let ((_%type163223%_ - (let ((__tmp166030 + _%__stx162561162562%_))))) + (let ((_%__kont162563162564%_ + (lambda (_%L162301%_ _%L162302%_) + (let ((_%type162324%_ + (let ((__tmp165132 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163201%_)))) + (gxc#identifier-symbol _%L162302%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp166030)))) + (gxc#optimizer-lookup-type __tmp165132)))) (if (let () (declare (not safe)) (##structure-instance-of? - _%type163223%_ + _%type162324%_ 'gxc#!lambda::t)) (##structure-set! - _%type163223%_ - (let () - (declare (not safe)) - (gxc#eval-in-ssxi-context _%L163200%_)) + _%type162324%_ + (gxc#eval-in-ssxi-context _%L162301%_) '5 gxc#!lambda::t '#f) @@ -888,4067 +882,3927 @@ (declare (not safe)) (gxc#raise-compile-error '"inline rule for non lambda procedure" - _%stx163051%_ - _%L163201%_)))))) - (_%__kont163464163465%_ - (lambda (_%L163123%_ _%L163124%_) '#!void))) + _%stx162152%_ + _%L162302%_)))))) + (_%__kont162565162566%_ + (lambda (_%L162224%_ _%L162225%_) '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx163460163461%_)) - (let ((_%e163060163144%_ + (gx#stx-pair? _%__stx162561162562%_)) + (let ((_%e162161162245%_ (let () (declare (not safe)) - (gx#stx-e _%__stx163460163461%_)))) - (let ((_%tl163058163149%_ + (gx#stx-e _%__stx162561162562%_)))) + (let ((_%tl162159162250%_ (let () (declare (not safe)) - (##cdr _%e163060163144%_))) - (_%hd163059163147%_ + (##cdr _%e162161162245%_))) + (_%hd162160162248%_ (let () (declare (not safe)) - (##car _%e163060163144%_)))) + (##car _%e162161162245%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163058163149%_)) - (let ((_%e163063163152%_ + (gx#stx-pair? _%tl162159162250%_)) + (let ((_%e162164162253%_ (let () (declare (not safe)) - (gx#stx-e _%tl163058163149%_)))) - (let ((_%tl163061163157%_ + (gx#stx-e _%tl162159162250%_)))) + (let ((_%tl162162162258%_ (let () (declare (not safe)) - (##cdr _%e163063163152%_))) - (_%hd163062163155%_ + (##cdr _%e162164162253%_))) + (_%hd162163162256%_ (let () (declare (not safe)) - (##car _%e163063163152%_)))) + (##car _%e162164162253%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163062163155%_)) - (let ((_%e163066163160%_ + (gx#stx-pair? _%hd162163162256%_)) + (let ((_%e162167162261%_ (let () (declare (not safe)) - (gx#stx-e _%hd163062163155%_)))) - (let ((_%tl163064163165%_ + (gx#stx-e _%hd162163162256%_)))) + (let ((_%tl162165162266%_ (let () (declare (not safe)) - (##cdr _%e163066163160%_))) - (_%hd163065163163%_ + (##cdr _%e162167162261%_))) + (_%hd162166162264%_ (let () (declare (not safe)) - (##car _%e163066163160%_)))) + (##car _%e162167162261%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd163065163163%_)) + (gx#identifier? _%hd162166162264%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd163065163163%_)) + _%hd162166162264%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163064163165%_)) - (let ((_%e163069163168%_ + _%tl162165162266%_)) + (let ((_%e162170162269%_ (let () (declare (not safe)) (gx#stx-e - _%tl163064163165%_)))) - (let ((_%tl163067163173%_ + _%tl162165162266%_)))) + (let ((_%tl162168162274%_ (let () (declare (not safe)) - (##cdr _%e163069163168%_))) - (_%hd163068163171%_ + (##cdr _%e162170162269%_))) + (_%hd162169162272%_ (let () (declare (not safe)) - (##car _%e163069163168%_)))) + (##car _%e162170162269%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163067163173%_)) + _%tl162168162274%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163061163157%_)) - (let ((_%e163072163176%_ + _%tl162162162258%_)) + (let ((_%e162173162277%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl163061163157%_)))) - (let ((_%tl163070163181%_ + (gx#stx-e _%tl162162162258%_)))) + (let ((_%tl162171162282%_ (let () (declare (not safe)) - (##cdr _%e163072163176%_))) - (_%hd163071163179%_ + (##cdr _%e162173162277%_))) + (_%hd162172162280%_ (let () (declare (not safe)) - (##car _%e163072163176%_)))) + (##car _%e162173162277%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163071163179%_)) - (let ((_%e163075163184%_ + (gx#stx-pair? _%hd162172162280%_)) + (let ((_%e162176162285%_ (let () (declare (not safe)) - (gx#stx-e _%hd163071163179%_)))) - (let ((_%tl163073163189%_ + (gx#stx-e _%hd162172162280%_)))) + (let ((_%tl162174162290%_ (let () (declare (not safe)) - (##cdr _%e163075163184%_))) - (_%hd163074163187%_ + (##cdr _%e162176162285%_))) + (_%hd162175162288%_ (let () (declare (not safe)) - (##car _%e163075163184%_)))) + (##car _%e162176162285%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd163074163187%_)) + (gx#identifier? _%hd162175162288%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd163074163187%_)) + _%hd162175162288%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163073163189%_)) - (let ((_%e163078163192%_ + _%tl162174162290%_)) + (let ((_%e162179162293%_ (let () (declare (not safe)) (gx#stx-e - _%tl163073163189%_)))) - (let ((_%tl163076163197%_ + _%tl162174162290%_)))) + (let ((_%tl162177162298%_ (let () (declare (not safe)) - (##cdr _%e163078163192%_))) - (_%hd163077163195%_ + (##cdr _%e162179162293%_))) + (_%hd162178162296%_ (let () (declare (not safe)) - (##car _%e163078163192%_)))) + (##car _%e162179162293%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163076163197%_)) + _%tl162177162298%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163070163181%_)) - (_%__kont163462163463%_ - _%hd163077163195%_ - _%hd163068163171%_) + _%tl162171162282%_)) + (_%__kont162563162564%_ + _%hd162178162296%_ + _%hd162169162272%_) (let () (declare (not safe)) - (_%g163054163094%_))) + (_%g162155162195%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163070163181%_)) - (_%__kont163464163465%_ - _%hd163071163179%_ - _%hd163062163155%_) + _%tl162171162282%_)) + (_%__kont162565162566%_ + _%hd162172162280%_ + _%hd162163162256%_) (let () (declare (not safe)) - (_%g163054163094%_)))))) + (_%g162155162195%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163070163181%_)) - (_%__kont163464163465%_ - _%hd163071163179%_ - _%hd163062163155%_) + _%tl162171162282%_)) + (_%__kont162565162566%_ + _%hd162172162280%_ + _%hd162163162256%_) (let () (declare (not safe)) - (_%g163054163094%_)))) + (_%g162155162195%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163070163181%_)) - (_%__kont163464163465%_ - _%hd163071163179%_ - _%hd163062163155%_) + _%tl162171162282%_)) + (_%__kont162565162566%_ + _%hd162172162280%_ + _%hd162163162256%_) (let () (declare (not safe)) - (_%g163054163094%_)))) + (_%g162155162195%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163070163181%_)) - (_%__kont163464163465%_ - _%hd163071163179%_ - _%hd163062163155%_) + (gx#stx-null? _%tl162171162282%_)) + (_%__kont162565162566%_ + _%hd162172162280%_ + _%hd162163162256%_) (let () (declare (not safe)) - (_%g163054163094%_)))))) + (_%g162155162195%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163070163181%_)) - (_%__kont163464163465%_ - _%hd163071163179%_ - _%hd163062163155%_) + (gx#stx-null? _%tl162171162282%_)) + (_%__kont162565162566%_ + _%hd162172162280%_ + _%hd162163162256%_) (let () (declare (not safe)) - (_%g163054163094%_)))))) - (let () (declare (not safe)) (_%g163054163094%_))) + (_%g162155162195%_)))))) + (let () (declare (not safe)) (_%g162155162195%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163061163157%_)) - (let ((_%e163089163115%_ + (gx#stx-pair? _%tl162162162258%_)) + (let ((_%e162190162216%_ (let () (declare (not safe)) - (gx#stx-e _%tl163061163157%_)))) - (let ((_%tl163087163120%_ + (gx#stx-e _%tl162162162258%_)))) + (let ((_%tl162188162221%_ (let () (declare (not safe)) - (##cdr _%e163089163115%_))) - (_%hd163088163118%_ + (##cdr _%e162190162216%_))) + (_%hd162189162219%_ (let () (declare (not safe)) - (##car _%e163089163115%_)))) + (##car _%e162190162216%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163087163120%_)) - (_%__kont163464163465%_ - _%hd163088163118%_ - _%hd163062163155%_) + (gx#stx-null? _%tl162188162221%_)) + (_%__kont162565162566%_ + _%hd162189162219%_ + _%hd162163162256%_) (let () (declare (not safe)) - (_%g163054163094%_))))) - (let () (declare (not safe)) (_%g163054163094%_)))))) + (_%g162155162195%_))))) + (let () (declare (not safe)) (_%g162155162195%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163061163157%_)) - (let ((_%e163089163115%_ + _%tl162162162258%_)) + (let ((_%e162190162216%_ (let () (declare (not safe)) (gx#stx-e - _%tl163061163157%_)))) - (let ((_%tl163087163120%_ + _%tl162162162258%_)))) + (let ((_%tl162188162221%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e163089163115%_))) - (_%hd163088163118%_ - (let () (declare (not safe)) (##car _%e163089163115%_)))) + (##cdr _%e162190162216%_))) + (_%hd162189162219%_ + (let () (declare (not safe)) (##car _%e162190162216%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163087163120%_)) - (_%__kont163464163465%_ - _%hd163088163118%_ - _%hd163062163155%_) - (let () (declare (not safe)) (_%g163054163094%_))))) + (gx#stx-null? _%tl162188162221%_)) + (_%__kont162565162566%_ + _%hd162189162219%_ + _%hd162163162256%_) + (let () (declare (not safe)) (_%g162155162195%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g163054163094%_)))) + (_%g162155162195%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163061163157%_)) - (let ((_%e163089163115%_ + _%tl162162162258%_)) + (let ((_%e162190162216%_ (let () (declare (not safe)) (gx#stx-e - _%tl163061163157%_)))) - (let ((_%tl163087163120%_ + _%tl162162162258%_)))) + (let ((_%tl162188162221%_ (let () (declare (not safe)) - (##cdr _%e163089163115%_))) - (_%hd163088163118%_ + (##cdr _%e162190162216%_))) + (_%hd162189162219%_ (let () (declare (not safe)) - (##car _%e163089163115%_)))) + (##car _%e162190162216%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163087163120%_)) - (_%__kont163464163465%_ - _%hd163088163118%_ - _%hd163062163155%_) + _%tl162188162221%_)) + (_%__kont162565162566%_ + _%hd162189162219%_ + _%hd162163162256%_) (let () (declare (not safe)) - (_%g163054163094%_))))) + (_%g162155162195%_))))) (let () (declare (not safe)) - (_%g163054163094%_)))) + (_%g162155162195%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163061163157%_)) - (let ((_%e163089163115%_ + _%tl162162162258%_)) + (let ((_%e162190162216%_ (let () (declare (not safe)) (gx#stx-e - _%tl163061163157%_)))) - (let ((_%tl163087163120%_ + _%tl162162162258%_)))) + (let ((_%tl162188162221%_ (let () (declare (not safe)) - (##cdr _%e163089163115%_))) - (_%hd163088163118%_ + (##cdr _%e162190162216%_))) + (_%hd162189162219%_ (let () (declare (not safe)) - (##car _%e163089163115%_)))) + (##car _%e162190162216%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163087163120%_)) - (_%__kont163464163465%_ - _%hd163088163118%_ - _%hd163062163155%_) + _%tl162188162221%_)) + (_%__kont162565162566%_ + _%hd162189162219%_ + _%hd162163162256%_) (let () (declare (not safe)) - (_%g163054163094%_))))) + (_%g162155162195%_))))) (let () (declare (not safe)) - (_%g163054163094%_)))))) + (_%g162155162195%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163061163157%_)) - (let ((_%e163089163115%_ + (gx#stx-pair? _%tl162162162258%_)) + (let ((_%e162190162216%_ (let () (declare (not safe)) - (gx#stx-e _%tl163061163157%_)))) - (let ((_%tl163087163120%_ + (gx#stx-e _%tl162162162258%_)))) + (let ((_%tl162188162221%_ (let () (declare (not safe)) - (##cdr _%e163089163115%_))) - (_%hd163088163118%_ + (##cdr _%e162190162216%_))) + (_%hd162189162219%_ (let () (declare (not safe)) - (##car _%e163089163115%_)))) + (##car _%e162190162216%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163087163120%_)) - (_%__kont163464163465%_ - _%hd163088163118%_ - _%hd163062163155%_) + _%tl162188162221%_)) + (_%__kont162565162566%_ + _%hd162189162219%_ + _%hd162163162256%_) (let () (declare (not safe)) - (_%g163054163094%_))))) + (_%g162155162195%_))))) (let () (declare (not safe)) - (_%g163054163094%_)))))) - (let () (declare (not safe)) (_%g163054163094%_))))) - (let () (declare (not safe)) (_%g163054163094%_))))))) + (_%g162155162195%_)))))) + (let () (declare (not safe)) (_%g162155162195%_))))) + (let () (declare (not safe)) (_%g162155162195%_))))))) (define gxc#eval-in-ssxi-context - (lambda (_%expr163047%_) - (let ((__tmp166032 + (lambda (_%expr162148%_) + (let ((__tmp165134 (lambda () (eval '(import :gerbil/compiler/ssxi)) (let () (declare (not safe)) - (gx#eval-syntax__0 _%expr163047%_)))) - (__tmp166031 - (let ((__obj165964 + (gx#eval-syntax__0 _%expr162148%_)))) + (__tmp165133 + (let ((__obj165065 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) - (gx#top-context:::init! __obj165964) - __obj165964))) + (gx#top-context:::init! __obj165065) + __obj165065))) (declare (not safe)) (__call-with-parameters - __tmp166032 + __tmp165134 gx#current-expander-context - __tmp166031)))) + __tmp165133)))) (define gxc#collect-type-define-values% - (lambda (_%self162909%_ _%stx162910%_) - (let* ((_%__stx163544163545%_ _%stx162910%_) - (_%g162913162943%_ + (lambda (_%self162010%_ _%stx162011%_) + (let* ((_%__stx162645162646%_ _%stx162011%_) + (_%g162014162044%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx163544163545%_))))) - (let ((_%__kont163546163547%_ - (lambda (_%L163023%_ _%L163024%_) - (let ((_%sym163040%_ + _%__stx162645162646%_))))) + (let ((_%__kont162647162648%_ + (lambda (_%L162124%_ _%L162125%_) + (let ((_%sym162141%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L163024%_)))) + (gxc#identifier-symbol _%L162125%_)))) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym163040%_)) + (gxc#optimizer-lookup-type _%sym162141%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self162909%_ _%L163023%_)) - (let ((_%type163042%_ - (let () - (declare (not safe)) - (gxc#apply-basic-expression-type - _%L163023%_)))) - (if _%type163042%_ + (gxc#compile-e__1 _%self162010%_ _%L162124%_)) + (let ((_%type162143%_ + (gxc#apply-basic-expression-type _%L162124%_))) + (if _%type162143%_ (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym163040%_ - _%type163042%_)) + _%sym162141%_ + _%type162143%_)) '#!void) (let () (declare (not safe)) (gxc#compile-e__1 - _%self162909%_ - _%L163023%_))))))) - (_%__kont163548163549%_ - (lambda (_%L162972%_) + _%self162010%_ + _%L162124%_))))))) + (_%__kont162649162650%_ + (lambda (_%L162073%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self162909%_ _%L162972%_))))) - (let ((_%__match163577163578%_ - (lambda (_%e162919162991%_ - _%hd162918162994%_ - _%tl162917162996%_ - _%e162922162999%_ - _%hd162921163002%_ - _%tl162920163004%_ - _%e162925163007%_ - _%hd162924163010%_ - _%tl162923163012%_ - _%e162928163015%_ - _%hd162927163018%_ - _%tl162926163020%_) - (let ((_%L163023%_ _%hd162927163018%_) - (_%L163024%_ _%hd162924163010%_)) + (gxc#compile-e__1 _%self162010%_ _%L162073%_))))) + (let ((_%__match162678162679%_ + (lambda (_%e162020162092%_ + _%hd162019162095%_ + _%tl162018162097%_ + _%e162023162100%_ + _%hd162022162103%_ + _%tl162021162105%_ + _%e162026162108%_ + _%hd162025162111%_ + _%tl162024162113%_ + _%e162029162116%_ + _%hd162028162119%_ + _%tl162027162121%_) + (let ((_%L162124%_ _%hd162028162119%_) + (_%L162125%_ _%hd162025162111%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L163024%_)) - (_%__kont163546163547%_ _%L163023%_ _%L163024%_) - (_%__kont163548163549%_ _%hd162927163018%_)))))) + (gx#identifier? _%L162125%_)) + (_%__kont162647162648%_ _%L162124%_ _%L162125%_) + (_%__kont162649162650%_ _%hd162028162119%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx163544163545%_)) - (let ((_%e162919162991%_ + (gx#stx-pair? _%__stx162645162646%_)) + (let ((_%e162020162092%_ (let () (declare (not safe)) - (gx#stx-e _%__stx163544163545%_)))) - (let ((_%tl162917162996%_ + (gx#stx-e _%__stx162645162646%_)))) + (let ((_%tl162018162097%_ (let () (declare (not safe)) - (##cdr _%e162919162991%_))) - (_%hd162918162994%_ + (##cdr _%e162020162092%_))) + (_%hd162019162095%_ (let () (declare (not safe)) - (##car _%e162919162991%_)))) + (##car _%e162020162092%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162917162996%_)) - (let ((_%e162922162999%_ + (gx#stx-pair? _%tl162018162097%_)) + (let ((_%e162023162100%_ (let () (declare (not safe)) - (gx#stx-e _%tl162917162996%_)))) - (let ((_%tl162920163004%_ + (gx#stx-e _%tl162018162097%_)))) + (let ((_%tl162021162105%_ (let () (declare (not safe)) - (##cdr _%e162922162999%_))) - (_%hd162921163002%_ + (##cdr _%e162023162100%_))) + (_%hd162022162103%_ (let () (declare (not safe)) - (##car _%e162922162999%_)))) + (##car _%e162023162100%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162921163002%_)) - (let ((_%e162925163007%_ + (gx#stx-pair? _%hd162022162103%_)) + (let ((_%e162026162108%_ (let () (declare (not safe)) - (gx#stx-e _%hd162921163002%_)))) - (let ((_%tl162923163012%_ + (gx#stx-e _%hd162022162103%_)))) + (let ((_%tl162024162113%_ (let () (declare (not safe)) - (##cdr _%e162925163007%_))) - (_%hd162924163010%_ + (##cdr _%e162026162108%_))) + (_%hd162025162111%_ (let () (declare (not safe)) - (##car _%e162925163007%_)))) + (##car _%e162026162108%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162923163012%_)) + (gx#stx-null? _%tl162024162113%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162920163004%_)) - (let ((_%e162928163015%_ + _%tl162021162105%_)) + (let ((_%e162029162116%_ (let () (declare (not safe)) (gx#stx-e - _%tl162920163004%_)))) - (let ((_%tl162926163020%_ + _%tl162021162105%_)))) + (let ((_%tl162027162121%_ (let () (declare (not safe)) - (##cdr _%e162928163015%_))) - (_%hd162927163018%_ + (##cdr _%e162029162116%_))) + (_%hd162028162119%_ (let () (declare (not safe)) - (##car _%e162928163015%_)))) + (##car _%e162029162116%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162926163020%_)) - (_%__match163577163578%_ - _%e162919162991%_ - _%hd162918162994%_ - _%tl162917162996%_ - _%e162922162999%_ - _%hd162921163002%_ - _%tl162920163004%_ - _%e162925163007%_ - _%hd162924163010%_ - _%tl162923163012%_ - _%e162928163015%_ - _%hd162927163018%_ - _%tl162926163020%_) + _%tl162027162121%_)) + (_%__match162678162679%_ + _%e162020162092%_ + _%hd162019162095%_ + _%tl162018162097%_ + _%e162023162100%_ + _%hd162022162103%_ + _%tl162021162105%_ + _%e162026162108%_ + _%hd162025162111%_ + _%tl162024162113%_ + _%e162029162116%_ + _%hd162028162119%_ + _%tl162027162121%_) (let () (declare (not safe)) - (_%g162913162943%_))))) + (_%g162014162044%_))))) (let () (declare (not safe)) - (_%g162913162943%_))) + (_%g162014162044%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162920163004%_)) - (let ((_%e162938162964%_ + _%tl162021162105%_)) + (let ((_%e162039162065%_ (let () (declare (not safe)) (gx#stx-e - _%tl162920163004%_)))) - (let ((_%tl162936162969%_ + _%tl162021162105%_)))) + (let ((_%tl162037162070%_ (let () (declare (not safe)) - (##cdr _%e162938162964%_))) - (_%hd162937162967%_ + (##cdr _%e162039162065%_))) + (_%hd162038162068%_ (let () (declare (not safe)) - (##car _%e162938162964%_)))) + (##car _%e162039162065%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162936162969%_)) - (_%__kont163548163549%_ - _%hd162937162967%_) + _%tl162037162070%_)) + (_%__kont162649162650%_ + _%hd162038162068%_) (let () (declare (not safe)) - (_%g162913162943%_))))) + (_%g162014162044%_))))) (let () (declare (not safe)) - (_%g162913162943%_)))))) + (_%g162014162044%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162920163004%_)) - (let ((_%e162938162964%_ + (gx#stx-pair? _%tl162021162105%_)) + (let ((_%e162039162065%_ (let () (declare (not safe)) - (gx#stx-e _%tl162920163004%_)))) - (let ((_%tl162936162969%_ + (gx#stx-e _%tl162021162105%_)))) + (let ((_%tl162037162070%_ (let () (declare (not safe)) - (##cdr _%e162938162964%_))) - (_%hd162937162967%_ + (##cdr _%e162039162065%_))) + (_%hd162038162068%_ (let () (declare (not safe)) - (##car _%e162938162964%_)))) + (##car _%e162039162065%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162936162969%_)) - (_%__kont163548163549%_ - _%hd162937162967%_) + _%tl162037162070%_)) + (_%__kont162649162650%_ + _%hd162038162068%_) (let () (declare (not safe)) - (_%g162913162943%_))))) + (_%g162014162044%_))))) (let () (declare (not safe)) - (_%g162913162943%_)))))) - (let () (declare (not safe)) (_%g162913162943%_))))) - (let () (declare (not safe)) (_%g162913162943%_)))))))) + (_%g162014162044%_)))))) + (let () (declare (not safe)) (_%g162014162044%_))))) + (let () (declare (not safe)) (_%g162014162044%_)))))))) (define gxc#collect-type-begin-annotation% - (lambda (_%self162664%_ _%stx162665%_) - (let* ((_%__stx163622163623%_ _%stx162665%_) - (_%g162668162708%_ + (lambda (_%self161765%_ _%stx161766%_) + (let* ((_%__stx162723162724%_ _%stx161766%_) + (_%g161769161809%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx163622163623%_))))) - (let ((_%__kont163624163625%_ - (lambda (_%L162814%_ _%L162815%_) + _%__stx162723162724%_))))) + (let ((_%__kont162725162726%_ + (lambda (_%L161915%_ _%L161916%_) (for-each - (lambda (_%assertion162835%_) - (let* ((_%__stx163600163601%_ _%assertion162835%_) - (_%g162838162852%_ + (lambda (_%assertion161936%_) + (let* ((_%__stx162701162702%_ _%assertion161936%_) + (_%g161939161953%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx163600163601%_))))) - (let ((_%__kont163602163603%_ - (lambda (_%L162880%_ _%L162881%_) - (let ((__tmp166035 + _%__stx162701162702%_))))) + (let ((_%__kont162703162704%_ + (lambda (_%L161981%_ _%L161982%_) + (let ((__tmp165137 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162881%_))) - (__tmp166033 - (let ((__tmp166034 + (gxc#identifier-symbol _%L161982%_))) + (__tmp165135 + (let ((__tmp165136 (let () (declare (not safe)) (gxc#identifier-symbol - _%L162880%_)))) + _%L161981%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx162665%_ - __tmp166034)))) + _%stx161766%_ + __tmp165136)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp166035 - __tmp166033 + __tmp165137 + __tmp165135 '#t)))) - (_%__kont163604163605%_ + (_%__kont162705162706%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"malformed type assertion" - _%stx162665%_ - _%assertion162835%_))))) - (let ((_%__match163619163620%_ - (lambda (_%e162844162864%_ - _%hd162843162867%_ - _%tl162842162869%_ - _%e162847162872%_ - _%hd162846162875%_ - _%tl162845162877%_) - (let ((_%L162880%_ _%hd162846162875%_) - (_%L162881%_ _%hd162843162867%_)) + _%stx161766%_ + _%assertion161936%_))))) + (let ((_%__match162720162721%_ + (lambda (_%e161945161965%_ + _%hd161944161968%_ + _%tl161943161970%_ + _%e161948161973%_ + _%hd161947161976%_ + _%tl161946161978%_) + (let ((_%L161981%_ _%hd161947161976%_) + (_%L161982%_ _%hd161944161968%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L162881%_)) + (gx#identifier? _%L161982%_)) (let () (declare (not safe)) - (gx#identifier? _%L162880%_))) - (_%__kont163602163603%_ - _%L162880%_ - _%L162881%_) - (_%__kont163604163605%_)))))) + (gx#identifier? _%L161981%_))) + (_%__kont162703162704%_ + _%L161981%_ + _%L161982%_) + (_%__kont162705162706%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx163600163601%_)) - (let ((_%e162844162864%_ + (gx#stx-pair? _%__stx162701162702%_)) + (let ((_%e161945161965%_ (let () (declare (not safe)) - (gx#stx-e _%__stx163600163601%_)))) - (let ((_%tl162842162869%_ + (gx#stx-e _%__stx162701162702%_)))) + (let ((_%tl161943161970%_ (let () (declare (not safe)) - (##cdr _%e162844162864%_))) - (_%hd162843162867%_ + (##cdr _%e161945161965%_))) + (_%hd161944161968%_ (let () (declare (not safe)) - (##car _%e162844162864%_)))) + (##car _%e161945161965%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162842162869%_)) - (let ((_%e162847162872%_ + (gx#stx-pair? _%tl161943161970%_)) + (let ((_%e161948161973%_ (let () (declare (not safe)) (gx#stx-e - _%tl162842162869%_)))) - (let ((_%tl162845162877%_ + _%tl161943161970%_)))) + (let ((_%tl161946161978%_ (let () (declare (not safe)) - (##cdr _%e162847162872%_))) - (_%hd162846162875%_ + (##cdr _%e161948161973%_))) + (_%hd161947161976%_ (let () (declare (not safe)) - (##car _%e162847162872%_)))) + (##car _%e161948161973%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162845162877%_)) - (_%__match163619163620%_ - _%e162844162864%_ - _%hd162843162867%_ - _%tl162842162869%_ - _%e162847162872%_ - _%hd162846162875%_ - _%tl162845162877%_) - (_%__kont163604163605%_)))) - (_%__kont163604163605%_)))) - (_%__kont163604163605%_)))))) - (let ((__tmp166036 - (lambda (_%g162898162901%_ _%g162899162903%_) - (cons _%g162898162901%_ _%g162899162903%_)))) + _%tl161946161978%_)) + (_%__match162720162721%_ + _%e161945161965%_ + _%hd161944161968%_ + _%tl161943161970%_ + _%e161948161973%_ + _%hd161947161976%_ + _%tl161946161978%_) + (_%__kont162705162706%_)))) + (_%__kont162705162706%_)))) + (_%__kont162705162706%_)))))) + (let ((__tmp165138 + (lambda (_%g161999162002%_ _%g162000162004%_) + (cons _%g161999162002%_ _%g162000162004%_)))) (declare (not safe)) - (__foldr1 __tmp166036 '() _%L162815%_))) + (__foldr1 __tmp165138 '() _%L161916%_))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self162664%_ _%L162814%_)))) - (_%__kont163628163629%_ - (lambda (_%L162737%_ _%L162738%_) + (gxc#compile-e__1 _%self161765%_ _%L161915%_)))) + (_%__kont162729162730%_ + (lambda (_%L161838%_ _%L161839%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self162664%_ _%L162737%_))))) - (let ((_%__match163659163660%_ - (lambda (_%e162674162758%_ - _%hd162673162761%_ - _%tl162672162763%_ - _%e162677162766%_ - _%hd162676162769%_ - _%tl162675162771%_ - _%e162680162774%_ - _%hd162679162777%_ - _%tl162678162779%_ - _%__splice163626163627%_ - _%target162681162782%_ - _%tl162683162784%_) - (letrec ((_%loop162684162787%_ - (lambda (_%hd162682162790%_ - _%assertion162688162792%_) + (gxc#compile-e__1 _%self161765%_ _%L161838%_))))) + (let ((_%__match162760162761%_ + (lambda (_%e161775161859%_ + _%hd161774161862%_ + _%tl161773161864%_ + _%e161778161867%_ + _%hd161777161870%_ + _%tl161776161872%_ + _%e161781161875%_ + _%hd161780161878%_ + _%tl161779161880%_ + _%__splice162727162728%_ + _%target161782161883%_ + _%tl161784161885%_) + (letrec ((_%loop161785161888%_ + (lambda (_%hd161783161891%_ + _%assertion161789161893%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162682162790%_)) - (let ((_%e162685162795%_ + (gx#stx-pair? _%hd161783161891%_)) + (let ((_%e161786161896%_ (let () (declare (not safe)) - (gx#stx-e _%hd162682162790%_)))) - (let ((_%lp-tl162687162800%_ + (gx#stx-e _%hd161783161891%_)))) + (let ((_%lp-tl161788161901%_ (let () (declare (not safe)) - (##cdr _%e162685162795%_))) - (_%lp-hd162686162798%_ + (##cdr _%e161786161896%_))) + (_%lp-hd161787161899%_ (let () (declare (not safe)) - (##car _%e162685162795%_)))) - (let ((__tmp166037 - (cons _%lp-hd162686162798%_ - _%assertion162688162792%_))) - (declare (not safe)) - (_%loop162684162787%_ - _%lp-tl162687162800%_ - __tmp166037)))) - (let ((_%assertion162689162803%_ - (reverse _%assertion162688162792%_))) + (##car _%e161786161896%_)))) + (_%loop161785161888%_ + _%lp-tl161788161901%_ + (cons _%lp-hd161787161899%_ + _%assertion161789161893%_)))) + (let ((_%assertion161790161904%_ + (reverse _%assertion161789161893%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162675162771%_)) - (let ((_%e162692162806%_ + (gx#stx-pair? _%tl161776161872%_)) + (let ((_%e161793161907%_ (let () (declare (not safe)) (gx#stx-e - _%tl162675162771%_)))) - (let ((_%tl162690162811%_ + _%tl161776161872%_)))) + (let ((_%tl161791161912%_ (let () (declare (not safe)) - (##cdr _%e162692162806%_))) - (_%hd162691162809%_ + (##cdr _%e161793161907%_))) + (_%hd161792161910%_ (let () (declare (not safe)) - (##car _%e162692162806%_)))) + (##car _%e161793161907%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162690162811%_)) - (_%__kont163624163625%_ - _%hd162691162809%_ - _%assertion162689162803%_) + _%tl161791161912%_)) + (_%__kont162725162726%_ + _%hd161792161910%_ + _%assertion161790161904%_) (let () (declare (not safe)) - (_%g162668162708%_))))) + (_%g161769161809%_))))) (let () (declare (not safe)) - (_%g162668162708%_)))))))) - (let () - (declare (not safe)) - (_%loop162684162787%_ _%target162681162782%_ '())))))) + (_%g161769161809%_)))))))) + (_%loop161785161888%_ _%target161782161883%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx163622163623%_)) - (let ((_%e162674162758%_ + (gx#stx-pair? _%__stx162723162724%_)) + (let ((_%e161775161859%_ (let () (declare (not safe)) - (gx#stx-e _%__stx163622163623%_)))) - (let ((_%tl162672162763%_ + (gx#stx-e _%__stx162723162724%_)))) + (let ((_%tl161773161864%_ (let () (declare (not safe)) - (##cdr _%e162674162758%_))) - (_%hd162673162761%_ + (##cdr _%e161775161859%_))) + (_%hd161774161862%_ (let () (declare (not safe)) - (##car _%e162674162758%_)))) + (##car _%e161775161859%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162672162763%_)) - (let ((_%e162677162766%_ + (gx#stx-pair? _%tl161773161864%_)) + (let ((_%e161778161867%_ (let () (declare (not safe)) - (gx#stx-e _%tl162672162763%_)))) - (let ((_%tl162675162771%_ + (gx#stx-e _%tl161773161864%_)))) + (let ((_%tl161776161872%_ (let () (declare (not safe)) - (##cdr _%e162677162766%_))) - (_%hd162676162769%_ + (##cdr _%e161778161867%_))) + (_%hd161777161870%_ (let () (declare (not safe)) - (##car _%e162677162766%_)))) + (##car _%e161778161867%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162676162769%_)) - (let ((_%e162680162774%_ + (gx#stx-pair? _%hd161777161870%_)) + (let ((_%e161781161875%_ (let () (declare (not safe)) - (gx#stx-e _%hd162676162769%_)))) - (let ((_%tl162678162779%_ + (gx#stx-e _%hd161777161870%_)))) + (let ((_%tl161779161880%_ (let () (declare (not safe)) - (##cdr _%e162680162774%_))) - (_%hd162679162777%_ + (##cdr _%e161781161875%_))) + (_%hd161780161878%_ (let () (declare (not safe)) - (##car _%e162680162774%_)))) + (##car _%e161781161875%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162679162777%_)) + _%hd161780161878%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.assert - _%hd162679162777%_)) + _%hd161780161878%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl162678162779%_)) - (let ((_%__splice163626163627%_ + _%tl161779161880%_)) + (let ((_%__splice162727162728%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl162678162779%_ + _%tl161779161880%_ '0)))) - (let ((_%tl162683162784%_ + (let ((_%tl161784161885%_ (let () (declare (not safe)) (##vector-ref - _%__splice163626163627%_ + _%__splice162727162728%_ '1))) - (_%target162681162782%_ + (_%target161782161883%_ (let () (declare (not safe)) (##vector-ref - _%__splice163626163627%_ + _%__splice162727162728%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162683162784%_)) - (_%__match163659163660%_ - _%e162674162758%_ - _%hd162673162761%_ - _%tl162672162763%_ - _%e162677162766%_ - _%hd162676162769%_ - _%tl162675162771%_ - _%e162680162774%_ - _%hd162679162777%_ - _%tl162678162779%_ - _%__splice163626163627%_ - _%target162681162782%_ - _%tl162683162784%_) + _%tl161784161885%_)) + (_%__match162760162761%_ + _%e161775161859%_ + _%hd161774161862%_ + _%tl161773161864%_ + _%e161778161867%_ + _%hd161777161870%_ + _%tl161776161872%_ + _%e161781161875%_ + _%hd161780161878%_ + _%tl161779161880%_ + _%__splice162727162728%_ + _%target161782161883%_ + _%tl161784161885%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl162675162771%_)) - (let ((_%e162703162729%_ + (gx#stx-pair? _%tl161776161872%_)) + (let ((_%e161804161830%_ (let () (declare (not safe)) - (gx#stx-e _%tl162675162771%_)))) - (let ((_%tl162701162734%_ + (gx#stx-e _%tl161776161872%_)))) + (let ((_%tl161802161835%_ (let () (declare (not safe)) - (##cdr _%e162703162729%_))) - (_%hd162702162732%_ + (##cdr _%e161804161830%_))) + (_%hd161803161833%_ (let () (declare (not safe)) - (##car _%e162703162729%_)))) + (##car _%e161804161830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162701162734%_)) - (_%__kont163628163629%_ - _%hd162702162732%_ - _%hd162676162769%_) + (gx#stx-null? _%tl161802161835%_)) + (_%__kont162729162730%_ + _%hd161803161833%_ + _%hd161777161870%_) (let () (declare (not safe)) - (_%g162668162708%_))))) - (let () (declare (not safe)) (_%g162668162708%_)))))) + (_%g161769161809%_))))) + (let () (declare (not safe)) (_%g161769161809%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162675162771%_)) - (let ((_%e162703162729%_ + _%tl161776161872%_)) + (let ((_%e161804161830%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162675162771%_)))) - (let ((_%tl162701162734%_ - (let () (declare (not safe)) (##cdr _%e162703162729%_))) - (_%hd162702162732%_ + (gx#stx-e _%tl161776161872%_)))) + (let ((_%tl161802161835%_ + (let () (declare (not safe)) (##cdr _%e161804161830%_))) + (_%hd161803161833%_ (let () (declare (not safe)) - (##car _%e162703162729%_)))) + (##car _%e161804161830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162701162734%_)) - (_%__kont163628163629%_ - _%hd162702162732%_ - _%hd162676162769%_) - (let () (declare (not safe)) (_%g162668162708%_))))) - (let () (declare (not safe)) (_%g162668162708%_)))) + (gx#stx-null? _%tl161802161835%_)) + (_%__kont162729162730%_ + _%hd161803161833%_ + _%hd161777161870%_) + (let () (declare (not safe)) (_%g161769161809%_))))) + (let () (declare (not safe)) (_%g161769161809%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162675162771%_)) - (let ((_%e162703162729%_ + _%tl161776161872%_)) + (let ((_%e161804161830%_ (let () (declare (not safe)) (gx#stx-e - _%tl162675162771%_)))) - (let ((_%tl162701162734%_ + _%tl161776161872%_)))) + (let ((_%tl161802161835%_ (let () (declare (not safe)) - (##cdr _%e162703162729%_))) - (_%hd162702162732%_ + (##cdr _%e161804161830%_))) + (_%hd161803161833%_ (let () (declare (not safe)) - (##car _%e162703162729%_)))) + (##car _%e161804161830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162701162734%_)) - (_%__kont163628163629%_ - _%hd162702162732%_ - _%hd162676162769%_) + _%tl161802161835%_)) + (_%__kont162729162730%_ + _%hd161803161833%_ + _%hd161777161870%_) (let () (declare (not safe)) - (_%g162668162708%_))))) + (_%g161769161809%_))))) (let () (declare (not safe)) - (_%g162668162708%_)))) + (_%g161769161809%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162675162771%_)) - (let ((_%e162703162729%_ + _%tl161776161872%_)) + (let ((_%e161804161830%_ (let () (declare (not safe)) (gx#stx-e - _%tl162675162771%_)))) - (let ((_%tl162701162734%_ + _%tl161776161872%_)))) + (let ((_%tl161802161835%_ (let () (declare (not safe)) - (##cdr _%e162703162729%_))) - (_%hd162702162732%_ + (##cdr _%e161804161830%_))) + (_%hd161803161833%_ (let () (declare (not safe)) - (##car _%e162703162729%_)))) + (##car _%e161804161830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162701162734%_)) - (_%__kont163628163629%_ - _%hd162702162732%_ - _%hd162676162769%_) + _%tl161802161835%_)) + (_%__kont162729162730%_ + _%hd161803161833%_ + _%hd161777161870%_) (let () (declare (not safe)) - (_%g162668162708%_))))) + (_%g161769161809%_))))) (let () (declare (not safe)) - (_%g162668162708%_)))))) + (_%g161769161809%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162675162771%_)) - (let ((_%e162703162729%_ + (gx#stx-pair? _%tl161776161872%_)) + (let ((_%e161804161830%_ (let () (declare (not safe)) - (gx#stx-e _%tl162675162771%_)))) - (let ((_%tl162701162734%_ + (gx#stx-e _%tl161776161872%_)))) + (let ((_%tl161802161835%_ (let () (declare (not safe)) - (##cdr _%e162703162729%_))) - (_%hd162702162732%_ + (##cdr _%e161804161830%_))) + (_%hd161803161833%_ (let () (declare (not safe)) - (##car _%e162703162729%_)))) + (##car _%e161804161830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162701162734%_)) - (_%__kont163628163629%_ - _%hd162702162732%_ - _%hd162676162769%_) + _%tl161802161835%_)) + (_%__kont162729162730%_ + _%hd161803161833%_ + _%hd161777161870%_) (let () (declare (not safe)) - (_%g162668162708%_))))) + (_%g161769161809%_))))) (let () (declare (not safe)) - (_%g162668162708%_)))))) - (let () (declare (not safe)) (_%g162668162708%_))))) - (let () (declare (not safe)) (_%g162668162708%_)))))))) + (_%g161769161809%_)))))) + (let () (declare (not safe)) (_%g161769161809%_))))) + (let () (declare (not safe)) (_%g161769161809%_)))))))) (define gxc#collect-type-lambda% - (lambda (_%self162609%_ _%stx162610%_) - (let* ((_%g162612162626%_ - (lambda (_%g162613162623%_) + (lambda (_%self161710%_ _%stx161711%_) + (let* ((_%g161713161727%_ + (lambda (_%g161714161724%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162613162623%_)))) - (_%g162611162661%_ - (lambda (_%g162613162629%_) + _%g161714161724%_)))) + (_%g161712161762%_ + (lambda (_%g161714161730%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162613162629%_)) - (let ((_%e162618162631%_ + (gx#stx-pair? _%g161714161730%_)) + (let ((_%e161719161732%_ (let () (declare (not safe)) - (gx#stx-e _%g162613162629%_)))) - (let ((_%hd162617162634%_ + (gx#stx-e _%g161714161730%_)))) + (let ((_%hd161718161735%_ (let () (declare (not safe)) - (##car _%e162618162631%_))) - (_%tl162616162636%_ + (##car _%e161719161732%_))) + (_%tl161717161737%_ (let () (declare (not safe)) - (##cdr _%e162618162631%_)))) + (##cdr _%e161719161732%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162616162636%_)) - (let ((_%e162621162639%_ + (gx#stx-pair? _%tl161717161737%_)) + (let ((_%e161722161740%_ (let () (declare (not safe)) - (gx#stx-e _%tl162616162636%_)))) - (let ((_%hd162620162642%_ + (gx#stx-e _%tl161717161737%_)))) + (let ((_%hd161721161743%_ (let () (declare (not safe)) - (##car _%e162621162639%_))) - (_%tl162619162644%_ + (##car _%e161722161740%_))) + (_%tl161720161745%_ (let () (declare (not safe)) - (##cdr _%e162621162639%_)))) - ((lambda (_%L162647%_ _%L162648%_) - (let () - (declare (not safe)) - (gxc#collect-type-lambda-formals-tail - _%stx162610%_ - _%L162648%_)) + (##cdr _%e161722161740%_)))) + ((lambda (_%L161748%_ _%L161749%_) + (gxc#collect-type-lambda-formals-tail + _%stx161711%_ + _%L161749%_) (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self162609%_ - _%stx162610%_))) - _%tl162619162644%_ - _%hd162620162642%_))) - (let () - (declare (not safe)) - (_%g162612162626%_ _%g162613162629%_))))) - (let () - (declare (not safe)) - (_%g162612162626%_ _%g162613162629%_)))))) - (declare (not safe)) - (_%g162611162661%_ _%stx162610%_)))) + _%self161710%_ + _%stx161711%_))) + _%tl161720161745%_ + _%hd161721161743%_))) + (_%g161713161727%_ _%g161714161730%_)))) + (_%g161713161727%_ _%g161714161730%_))))) + (_%g161712161762%_ _%stx161711%_)))) (define gxc#collect-type-case-lambda% - (lambda (_%self162511%_ _%stx162512%_) - (let* ((_%g162514162536%_ - (lambda (_%g162515162533%_) + (lambda (_%self161612%_ _%stx161613%_) + (let* ((_%g161615161637%_ + (lambda (_%g161616161634%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162515162533%_)))) - (_%g162513162606%_ - (lambda (_%g162515162539%_) + _%g161616161634%_)))) + (_%g161614161707%_ + (lambda (_%g161616161640%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162515162539%_)) - (let ((_%e162519162541%_ + (gx#stx-pair? _%g161616161640%_)) + (let ((_%e161620161642%_ (let () (declare (not safe)) - (gx#stx-e _%g162515162539%_)))) - (let ((_%hd162518162544%_ + (gx#stx-e _%g161616161640%_)))) + (let ((_%hd161619161645%_ (let () (declare (not safe)) - (##car _%e162519162541%_))) - (_%tl162517162546%_ + (##car _%e161620161642%_))) + (_%tl161618161647%_ (let () (declare (not safe)) - (##cdr _%e162519162541%_)))) + (##cdr _%e161620161642%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl162517162546%_)) - (let ((_g166038_ + (gx#stx-pair/null? _%tl161618161647%_)) + (let ((_g165139_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl162517162546%_ + _%tl161618161647%_ '0)))) (begin - (let ((_g166039_ + (let ((_g165140_ (let () (declare (not safe)) - (if (##values? _g166038_) - (##vector-length _g166038_) + (if (##values? _g165139_) + (##vector-length _g165139_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g166039_ 2))) + (##fx= _g165140_ 2))) (error "Context expects 2 values" - _g166039_))) - (let ((_%target162520162549%_ + _g165140_))) + (let ((_%target161621161650%_ (let () (declare (not safe)) - (##vector-ref _g166038_ 0))) - (_%tl162522162551%_ + (##vector-ref _g165139_ 0))) + (_%tl161623161652%_ (let () (declare (not safe)) - (##vector-ref _g166038_ 1)))) + (##vector-ref _g165139_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162522162551%_)) - (letrec ((_%loop162523162554%_ - (lambda (_%hd162521162557%_ - _%args162527162559%_) + (gx#stx-null? _%tl161623161652%_)) + (letrec ((_%loop161624161655%_ + (lambda (_%hd161622161658%_ + _%args161628161660%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162521162557%_)) - (let ((_%e162524162562%_ + _%hd161622161658%_)) + (let ((_%e161625161663%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd162521162557%_)))) - (let ((_%lp-hd162525162565%_ + (gx#stx-e _%hd161622161658%_)))) + (let ((_%lp-hd161626161666%_ (let () (declare (not safe)) - (##car _%e162524162562%_))) - (_%lp-tl162526162567%_ + (##car _%e161625161663%_))) + (_%lp-tl161627161668%_ (let () (declare (not safe)) - (##cdr _%e162524162562%_)))) + (##cdr _%e161625161663%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd162525162565%_)) - (let ((_%e162531162570%_ + (gx#stx-pair? _%lp-hd161626161666%_)) + (let ((_%e161632161671%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd162525162565%_)))) - (let ((_%hd162530162573%_ + (gx#stx-e _%lp-hd161626161666%_)))) + (let ((_%hd161631161674%_ (let () (declare (not safe)) - (##car _%e162531162570%_))) - (_%tl162529162575%_ + (##car _%e161632161671%_))) + (_%tl161630161676%_ (let () (declare (not safe)) - (##cdr _%e162531162570%_)))) - (let ((__tmp166040 - (cons _%hd162530162573%_ - _%args162527162559%_))) - (declare (not safe)) - (_%loop162523162554%_ - _%lp-tl162526162567%_ - __tmp166040)))) - (let () - (declare (not safe)) - (_%g162514162536%_ _%g162515162539%_))))) - (let ((_%args162528162578%_ (reverse _%args162527162559%_))) - ((lambda (_%L162581%_) + (##cdr _%e161632161671%_)))) + (_%loop161624161655%_ + _%lp-tl161627161668%_ + (cons _%hd161631161674%_ _%args161628161660%_)))) + (_%g161615161637%_ _%g161616161640%_)))) + (let ((_%args161629161679%_ (reverse _%args161628161660%_))) + ((lambda (_%L161682%_) (for-each - (lambda (_%g162594162596%_) - (let () - (declare (not safe)) - (gxc#collect-type-lambda-formals-tail - _%stx162512%_ - _%g162594162596%_))) - (let ((__tmp166041 - (lambda (_%g162598162601%_ _%g162599162603%_) - (cons _%g162598162601%_ _%g162599162603%_)))) + (lambda (_%g161695161697%_) + (gxc#collect-type-lambda-formals-tail + _%stx161613%_ + _%g161695161697%_)) + (let ((__tmp165141 + (lambda (_%g161699161702%_ _%g161700161704%_) + (cons _%g161699161702%_ _%g161700161704%_)))) (declare (not safe)) - (__foldr1 __tmp166041 '() _%L162581%_))) + (__foldr1 __tmp165141 '() _%L161682%_))) (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self162511%_ - _%stx162512%_))) - _%args162528162578%_)))))) + _%self161612%_ + _%stx161613%_))) + _%args161629161679%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop162523162554%_ - _%target162520162549%_ - '()))) - (let () - (declare (not safe)) - (_%g162514162536%_ - _%g162515162539%_)))))) - (let () - (declare (not safe)) - (_%g162514162536%_ _%g162515162539%_))))) - (let () - (declare (not safe)) - (_%g162514162536%_ _%g162515162539%_)))))) - (declare (not safe)) - (_%g162513162606%_ _%stx162512%_)))) + (_%loop161624161655%_ + _%target161621161650%_ + '())) + (_%g161615161637%_ + _%g161616161640%_))))) + (_%g161615161637%_ _%g161616161640%_)))) + (_%g161615161637%_ _%g161616161640%_))))) + (_%g161614161707%_ _%stx161613%_)))) (define gxc#collect-type-lambda-formals-tail - (lambda (_%stx162443%_ _%formals162444%_) - (let _%loop162446%_ ((_%rest162448%_ _%formals162444%_)) - (let* ((_%__stx163682163683%_ + (lambda (_%stx161544%_ _%formals161545%_) + (let _%loop161547%_ ((_%rest161549%_ _%formals161545%_)) + (let* ((_%__stx162783162784%_ (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (_%g162452162463%_ + (_%g161553161564%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx163682163683%_))))) - (let ((_%__kont163684163685%_ - (lambda (_%L162498%_) - (let () - (declare (not safe)) - (_%loop162446%_ _%L162498%_)))) - (_%__kont163686163687%_ (lambda () '#!void)) - (_%__kont163688163689%_ - (lambda (_%L162468%_) - (let ((__tmp166043 + _%__stx162783162784%_))))) + (let ((_%__kont162785162786%_ + (lambda (_%L161599%_) (_%loop161547%_ _%L161599%_))) + (_%__kont162787162788%_ (lambda () '#!void)) + (_%__kont162789162790%_ + (lambda (_%L161569%_) + (let ((__tmp165143 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162468%_))) - (__tmp166042 + (gxc#identifier-symbol _%L161569%_))) + (__tmp165142 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx162443%_ + _%stx161544%_ 'list::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp166043 - __tmp166042 + __tmp165143 + __tmp165142 '#t))))) - (let* ((_%g162451162478%_ + (let* ((_%g161552161579%_ (lambda () - (let ((_%L162468%_ _%__stx163682163683%_)) + (let ((_%L161569%_ _%__stx162783162784%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L162468%_)) - (_%__kont163688163689%_ _%L162468%_) + (gx#identifier? _%L161569%_)) + (_%__kont162789162790%_ _%L161569%_) (let () (declare (not safe)) - (_%g162452162463%_)))))) - (_%g162450162485%_ + (_%g161553161564%_)))))) + (_%g161551161586%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-null? _%__stx163682163683%_)) - (_%__kont163686163687%_) + (gx#stx-null? _%__stx162783162784%_)) + (_%__kont162787162788%_) (let () (declare (not safe)) - (_%g162451162478%_)))))) + (_%g161552161579%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx163682163683%_)) - (let ((_%e162457162490%_ + (gx#stx-pair? _%__stx162783162784%_)) + (let ((_%e161558161591%_ (let () (declare (not safe)) - (gx#stx-e _%__stx163682163683%_)))) - (let ((_%tl162455162495%_ + (gx#stx-e _%__stx162783162784%_)))) + (let ((_%tl161556161596%_ (let () (declare (not safe)) - (##cdr _%e162457162490%_))) - (_%hd162456162493%_ + (##cdr _%e161558161591%_))) + (_%hd161557161594%_ (let () (declare (not safe)) - (##car _%e162457162490%_)))) - (_%__kont163684163685%_ _%tl162455162495%_))) - (let () (declare (not safe)) (_%g162450162485%_))))))))) + (##car _%e161558161591%_)))) + (_%__kont162785162786%_ _%tl161556161596%_))) + (let () (declare (not safe)) (_%g161551161586%_))))))))) (define gxc#collect-type-let-values%__% - (lambda (_%self162210%_ _%stx162211%_ _%expression-type162212%_) - (letrec ((_%collect-e162214%_ - (lambda (_%hd162375%_ _%expr162376%_) - (let* ((_%__stx163700163701%_ _%hd162375%_) - (_%g162379162389%_ + (lambda (_%self161311%_ _%stx161312%_ _%expression-type161313%_) + (letrec ((_%collect-e161315%_ + (lambda (_%hd161476%_ _%expr161477%_) + (let* ((_%__stx162801162802%_ _%hd161476%_) + (_%g161480161490%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx163700163701%_))))) - (let ((_%__kont163702163703%_ - (lambda (_%L162409%_) - (let* ((_%sym162420%_ + _%__stx162801162802%_))))) + (let ((_%__kont162803162804%_ + (lambda (_%L161510%_) + (let* ((_%sym161521%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L162409%_))) - (_%type162421162423%_ - (_%expression-type162212%_ - _%expr162376%_))) - (if _%type162421162423%_ - (let ((_%type162426%_ - _%type162421162423%_)) + (gxc#identifier-symbol _%L161510%_))) + (_%type161522161524%_ + (_%expression-type161313%_ + _%expr161477%_))) + (if _%type161522161524%_ + (let ((_%type161527%_ + _%type161522161524%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type162426%_ + _%type161527%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp166044 + (let ((__tmp165144 (##structure-ref - _%type162426%_ + _%type161527%_ '2 gxc#!class-meta::t '#f))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym162420%_ - __tmp166044)) - (let ((__tmp166045 + _%sym161521%_ + __tmp165144)) + (let ((__tmp165145 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx162211%_ + _%stx161312%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym162420%_ - __tmp166045))) + _%sym161521%_ + __tmp165145))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym162420%_ - _%type162426%_ + _%sym161521%_ + _%type161527%_ '#t)))) '#f)))) - (_%__kont163704163705%_ (lambda () '#!void))) - (let ((_%__match163713163714%_ - (lambda (_%e162384162401%_ - _%hd162383162404%_ - _%tl162382162406%_) - (let ((_%L162409%_ _%hd162383162404%_)) + (_%__kont162805162806%_ (lambda () '#!void))) + (let ((_%__match162814162815%_ + (lambda (_%e161485161502%_ + _%hd161484161505%_ + _%tl161483161507%_) + (let ((_%L161510%_ _%hd161484161505%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L162409%_)) - (_%__kont163702163703%_ _%L162409%_) - (_%__kont163704163705%_)))))) + (gx#identifier? _%L161510%_)) + (_%__kont162803162804%_ _%L161510%_) + (_%__kont162805162806%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx163700163701%_)) - (let ((_%e162384162401%_ + (gx#stx-pair? _%__stx162801162802%_)) + (let ((_%e161485161502%_ (let () (declare (not safe)) - (gx#stx-e _%__stx163700163701%_)))) - (let ((_%tl162382162406%_ + (gx#stx-e _%__stx162801162802%_)))) + (let ((_%tl161483161507%_ (let () (declare (not safe)) - (##cdr _%e162384162401%_))) - (_%hd162383162404%_ + (##cdr _%e161485161502%_))) + (_%hd161484161505%_ (let () (declare (not safe)) - (##car _%e162384162401%_)))) + (##car _%e161485161502%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162382162406%_)) - (_%__match163713163714%_ - _%e162384162401%_ - _%hd162383162404%_ - _%tl162382162406%_) - (_%__kont163704163705%_)))) - (_%__kont163704163705%_)))))))) - (let* ((_%g162216162251%_ - (lambda (_%g162217162248%_) + (gx#stx-null? _%tl161483161507%_)) + (_%__match162814162815%_ + _%e161485161502%_ + _%hd161484161505%_ + _%tl161483161507%_) + (_%__kont162805162806%_)))) + (_%__kont162805162806%_)))))))) + (let* ((_%g161317161352%_ + (lambda (_%g161318161349%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162217162248%_)))) - (_%g162215162372%_ - (lambda (_%g162217162254%_) + _%g161318161349%_)))) + (_%g161316161473%_ + (lambda (_%g161318161355%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162217162254%_)) - (let ((_%e162223162256%_ + (gx#stx-pair? _%g161318161355%_)) + (let ((_%e161324161357%_ (let () (declare (not safe)) - (gx#stx-e _%g162217162254%_)))) - (let ((_%hd162222162259%_ + (gx#stx-e _%g161318161355%_)))) + (let ((_%hd161323161360%_ (let () (declare (not safe)) - (##car _%e162223162256%_))) - (_%tl162221162261%_ + (##car _%e161324161357%_))) + (_%tl161322161362%_ (let () (declare (not safe)) - (##cdr _%e162223162256%_)))) + (##cdr _%e161324161357%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162221162261%_)) - (let ((_%e162226162264%_ + (gx#stx-pair? _%tl161322161362%_)) + (let ((_%e161327161365%_ (let () (declare (not safe)) - (gx#stx-e _%tl162221162261%_)))) - (let ((_%hd162225162267%_ + (gx#stx-e _%tl161322161362%_)))) + (let ((_%hd161326161368%_ (let () (declare (not safe)) - (##car _%e162226162264%_))) - (_%tl162224162269%_ + (##car _%e161327161365%_))) + (_%tl161325161370%_ (let () (declare (not safe)) - (##cdr _%e162226162264%_)))) + (##cdr _%e161327161365%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd162225162267%_)) - (let ((_g166046_ + _%hd161326161368%_)) + (let ((_g165146_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd162225162267%_ + _%hd161326161368%_ '0)))) (begin - (let ((_g166047_ + (let ((_g165147_ (let () (declare (not safe)) - (if (##values? _g166046_) + (if (##values? _g165146_) (##vector-length - _g166046_) + _g165146_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g166047_ 2))) + (##fx= _g165147_ 2))) (error "Context expects 2 values" - _g166047_))) - (let ((_%target162227162272%_ + _g165147_))) + (let ((_%target161328161373%_ (let () (declare (not safe)) (##vector-ref - _g166046_ + _g165146_ 0))) - (_%tl162229162274%_ + (_%tl161330161375%_ (let () (declare (not safe)) (##vector-ref - _g166046_ + _g165146_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162229162274%_)) - (letrec ((_%loop162230162277%_ - (lambda (_%hd162228162280%_ + _%tl161330161375%_)) + (letrec ((_%loop161331161378%_ + (lambda (_%hd161329161381%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr162234162282%_ - _%hd162235162284%_) + _%expr161335161383%_ + _%hd161336161385%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162228162280%_)) - (let ((_%e162231162287%_ + (gx#stx-pair? _%hd161329161381%_)) + (let ((_%e161332161388%_ (let () (declare (not safe)) - (gx#stx-e _%hd162228162280%_)))) - (let ((_%lp-hd162232162290%_ + (gx#stx-e _%hd161329161381%_)))) + (let ((_%lp-hd161333161391%_ (let () (declare (not safe)) - (##car _%e162231162287%_))) - (_%lp-tl162233162292%_ + (##car _%e161332161388%_))) + (_%lp-tl161334161393%_ (let () (declare (not safe)) - (##cdr _%e162231162287%_)))) + (##cdr _%e161332161388%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd162232162290%_)) - (let ((_%e162240162295%_ + (gx#stx-pair? _%lp-hd161333161391%_)) + (let ((_%e161341161396%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd162232162290%_)))) - (let ((_%hd162239162298%_ + (gx#stx-e _%lp-hd161333161391%_)))) + (let ((_%hd161340161399%_ (let () (declare (not safe)) - (##car _%e162240162295%_))) - (_%tl162238162300%_ + (##car _%e161341161396%_))) + (_%tl161339161401%_ (let () (declare (not safe)) - (##cdr _%e162240162295%_)))) + (##cdr _%e161341161396%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162238162300%_)) - (let ((_%e162243162303%_ + (gx#stx-pair? _%tl161339161401%_)) + (let ((_%e161344161404%_ (let () (declare (not safe)) (gx#stx-e - _%tl162238162300%_)))) - (let ((_%hd162242162306%_ + _%tl161339161401%_)))) + (let ((_%hd161343161407%_ (let () (declare (not safe)) - (##car _%e162243162303%_))) - (_%tl162241162308%_ + (##car _%e161344161404%_))) + (_%tl161342161409%_ (let () (declare (not safe)) - (##cdr _%e162243162303%_)))) + (##cdr _%e161344161404%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162241162308%_)) - (let ((__tmp166049 - (cons _%hd162242162306%_ - _%expr162234162282%_)) - (__tmp166048 - (cons _%hd162239162298%_ - _%hd162235162284%_))) - (declare (not safe)) - (_%loop162230162277%_ - _%lp-tl162233162292%_ - __tmp166049 - __tmp166048)) - (let () - (declare (not safe)) - (_%g162216162251%_ - _%g162217162254%_))))) - (let () - (declare (not safe)) - (_%g162216162251%_ - _%g162217162254%_))))) - (let () - (declare (not safe)) - (_%g162216162251%_ _%g162217162254%_))))) - (let ((_%expr162236162311%_ - (reverse _%expr162234162282%_)) - (_%hd162237162313%_ - (reverse _%hd162235162284%_))) + _%tl161342161409%_)) + (_%loop161331161378%_ + _%lp-tl161334161393%_ + (cons _%hd161343161407%_ + _%expr161335161383%_) + (cons _%hd161340161399%_ + _%hd161336161385%_)) + (_%g161317161352%_ + _%g161318161355%_)))) + (_%g161317161352%_ + _%g161318161355%_)))) + (_%g161317161352%_ _%g161318161355%_)))) + (let ((_%expr161337161412%_ + (reverse _%expr161335161383%_)) + (_%hd161338161414%_ + (reverse _%hd161336161385%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162224162269%_)) - (let ((_%e162246162316%_ + (gx#stx-pair? _%tl161325161370%_)) + (let ((_%e161347161417%_ (let () (declare (not safe)) - (gx#stx-e _%tl162224162269%_)))) - (let ((_%hd162245162319%_ + (gx#stx-e _%tl161325161370%_)))) + (let ((_%hd161346161420%_ (let () (declare (not safe)) - (##car _%e162246162316%_))) - (_%tl162244162321%_ + (##car _%e161347161417%_))) + (_%tl161345161422%_ (let () (declare (not safe)) - (##cdr _%e162246162316%_)))) + (##cdr _%e161347161417%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162244162321%_)) - ((lambda (_%L162324%_ - _%L162325%_ - _%L162326%_) + (gx#stx-null? _%tl161345161422%_)) + ((lambda (_%L161425%_ + _%L161426%_ + _%L161427%_) (for-each - _%collect-e162214%_ - (let ((__tmp166050 - (lambda (_%g162346162349%_ - _%g162347162351%_) - (cons _%g162346162349%_ - _%g162347162351%_)))) + _%collect-e161315%_ + (let ((__tmp165148 + (lambda (_%g161447161450%_ + _%g161448161452%_) + (cons _%g161447161450%_ + _%g161448161452%_)))) (declare (not safe)) (__foldr1 - __tmp166050 + __tmp165148 '() - _%L162326%_)) - (let ((__tmp166051 - (lambda (_%g162353162356%_ - _%g162354162358%_) - (cons _%g162353162356%_ - _%g162354162358%_)))) + _%L161427%_)) + (let ((__tmp165149 + (lambda (_%g161454161457%_ + _%g161455161459%_) + (cons _%g161454161457%_ + _%g161455161459%_)))) (declare (not safe)) (__foldr1 - __tmp166051 + __tmp165149 '() - _%L162325%_))) + _%L161426%_))) (for-each - (lambda (_%g162360162362%_) + (lambda (_%g161461161463%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self162210%_ - _%g162360162362%_))) - (let ((__tmp166052 - (lambda (_%g162364162367%_ - _%g162365162369%_) - (cons _%g162364162367%_ - _%g162365162369%_)))) + _%self161311%_ + _%g161461161463%_))) + (let ((__tmp165150 + (lambda (_%g161465161468%_ + _%g161466161470%_) + (cons _%g161465161468%_ + _%g161466161470%_)))) (declare (not safe)) (__foldr1 - __tmp166052 + __tmp165150 '() - _%L162325%_))) + _%L161426%_))) (let () (declare (not safe)) (gxc#compile-e__1 - _%self162210%_ - _%L162324%_))) - _%hd162245162319%_ - _%expr162236162311%_ - _%hd162237162313%_) - (let () - (declare (not safe)) - (_%g162216162251%_ - _%g162217162254%_))))) - (let () - (declare (not safe)) - (_%g162216162251%_ _%g162217162254%_)))))))) + _%self161311%_ + _%L161425%_))) + _%hd161346161420%_ + _%expr161337161412%_ + _%hd161338161414%_) + (_%g161317161352%_ + _%g161318161355%_)))) + (_%g161317161352%_ _%g161318161355%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop162230162277%_ - _%target162227162272%_ - '() - '()))) - (let () - (declare (not safe)) - (_%g162216162251%_ - _%g162217162254%_)))))) - (let () - (declare (not safe)) - (_%g162216162251%_ - _%g162217162254%_))))) - (let () - (declare (not safe)) - (_%g162216162251%_ _%g162217162254%_))))) - (let () - (declare (not safe)) - (_%g162216162251%_ _%g162217162254%_)))))) - (declare (not safe)) - (_%g162215162372%_ _%stx162211%_))))) + (_%loop161331161378%_ + _%target161328161373%_ + '() + '())) + (_%g161317161352%_ + _%g161318161355%_))))) + (_%g161317161352%_ + _%g161318161355%_)))) + (_%g161317161352%_ _%g161318161355%_)))) + (_%g161317161352%_ _%g161318161355%_))))) + (_%g161316161473%_ _%stx161312%_))))) (define gxc#collect-type-let-values%__0 - (lambda (_%self162434%_ _%stx162435%_) - (let ((_%expression-type162437%_ gxc#apply-basic-expression-type)) - (declare (not safe)) + (lambda (_%self161535%_ _%stx161536%_) + (let ((_%expression-type161538%_ gxc#apply-basic-expression-type)) (gxc#collect-type-let-values%__% - _%self162434%_ - _%stx162435%_ - _%expression-type162437%_)))) + _%self161535%_ + _%stx161536%_ + _%expression-type161538%_)))) (define gxc#collect-type-let-values% - (lambda _g166054_ - (let ((_g166053_ (let () (declare (not safe)) (##length _g166054_)))) - (cond ((let () (declare (not safe)) (##fx= _g166053_ 2)) - (apply (lambda (_%self162434%_ _%stx162435%_) - (let () - (declare (not safe)) - (gxc#collect-type-let-values%__0 - _%self162434%_ - _%stx162435%_))) - _g166054_)) - ((let () (declare (not safe)) (##fx= _g166053_ 3)) - (apply (lambda (_%self162439%_ - _%stx162440%_ - _%expression-type162441%_) - (let () - (declare (not safe)) - (gxc#collect-type-let-values%__% - _%self162439%_ - _%stx162440%_ - _%expression-type162441%_))) - _g166054_)) + (lambda _g165152_ + (let ((_g165151_ (let () (declare (not safe)) (##length _g165152_)))) + (cond ((let () (declare (not safe)) (##fx= _g165151_ 2)) + (apply gxc#collect-type-let-values%__0 _g165152_)) + ((let () (declare (not safe)) (##fx= _g165151_ 3)) + (apply gxc#collect-type-let-values%__% _g165152_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-let-values% - _g166054_)))))) + _g165152_)))))) (define gxc#collect-type-letrec-values%__% - (lambda (_%self161951%_ _%stx161952%_ _%expression-type161953%_) - (letrec ((_%collect-e161955%_ - (lambda (_%hd162141%_ _%expr162142%_) - (let* ((_%__stx163716163717%_ _%hd162141%_) - (_%g162145162155%_ + (lambda (_%self161052%_ _%stx161053%_ _%expression-type161054%_) + (letrec ((_%collect-e161056%_ + (lambda (_%hd161242%_ _%expr161243%_) + (let* ((_%__stx162817162818%_ _%hd161242%_) + (_%g161246161256%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx163716163717%_))))) - (let ((_%__kont163718163719%_ - (lambda (_%L162175%_) - (let* ((_%sym162186%_ + _%__stx162817162818%_))))) + (let ((_%__kont162819162820%_ + (lambda (_%L161276%_) + (let* ((_%sym161287%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L162175%_))) - (_%type162187162189%_ - (_%expression-type161953%_ - _%expr162142%_))) - (if _%type162187162189%_ - (let ((_%type162192%_ - _%type162187162189%_)) + (gxc#identifier-symbol _%L161276%_))) + (_%type161288161290%_ + (_%expression-type161054%_ + _%expr161243%_))) + (if _%type161288161290%_ + (let ((_%type161293%_ + _%type161288161290%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type162192%_ + _%type161293%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp166055 + (let ((__tmp165153 (##structure-ref - _%type162192%_ + _%type161293%_ '2 gxc#!class-meta::t '#f))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym162186%_ - __tmp166055)) - (let ((__tmp166056 + _%sym161287%_ + __tmp165153)) + (let ((__tmp165154 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx161952%_ + _%stx161053%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym162186%_ - __tmp166056))) + _%sym161287%_ + __tmp165154))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym162186%_ - _%type162192%_ + _%sym161287%_ + _%type161293%_ '#t)))) '#f)))) - (_%__kont163720163721%_ (lambda () '#!void))) - (let ((_%__match163729163730%_ - (lambda (_%e162150162167%_ - _%hd162149162170%_ - _%tl162148162172%_) - (let ((_%L162175%_ _%hd162149162170%_)) + (_%__kont162821162822%_ (lambda () '#!void))) + (let ((_%__match162830162831%_ + (lambda (_%e161251161268%_ + _%hd161250161271%_ + _%tl161249161273%_) + (let ((_%L161276%_ _%hd161250161271%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L162175%_)) - (_%__kont163718163719%_ _%L162175%_) - (_%__kont163720163721%_)))))) + (gx#identifier? _%L161276%_)) + (_%__kont162819162820%_ _%L161276%_) + (_%__kont162821162822%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx163716163717%_)) - (let ((_%e162150162167%_ + (gx#stx-pair? _%__stx162817162818%_)) + (let ((_%e161251161268%_ (let () (declare (not safe)) - (gx#stx-e _%__stx163716163717%_)))) - (let ((_%tl162148162172%_ + (gx#stx-e _%__stx162817162818%_)))) + (let ((_%tl161249161273%_ (let () (declare (not safe)) - (##cdr _%e162150162167%_))) - (_%hd162149162170%_ + (##cdr _%e161251161268%_))) + (_%hd161250161271%_ (let () (declare (not safe)) - (##car _%e162150162167%_)))) + (##car _%e161251161268%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162148162172%_)) - (_%__match163729163730%_ - _%e162150162167%_ - _%hd162149162170%_ - _%tl162148162172%_) - (_%__kont163720163721%_)))) - (_%__kont163720163721%_)))))))) - (let* ((_%g161957161992%_ - (lambda (_%g161958161989%_) + (gx#stx-null? _%tl161249161273%_)) + (_%__match162830162831%_ + _%e161251161268%_ + _%hd161250161271%_ + _%tl161249161273%_) + (_%__kont162821162822%_)))) + (_%__kont162821162822%_)))))))) + (let* ((_%g161058161093%_ + (lambda (_%g161059161090%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g161958161989%_)))) - (_%g161956162138%_ - (lambda (_%g161958161995%_) + _%g161059161090%_)))) + (_%g161057161239%_ + (lambda (_%g161059161096%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g161958161995%_)) - (let ((_%e161964161997%_ + (gx#stx-pair? _%g161059161096%_)) + (let ((_%e161065161098%_ (let () (declare (not safe)) - (gx#stx-e _%g161958161995%_)))) - (let ((_%hd161963162000%_ + (gx#stx-e _%g161059161096%_)))) + (let ((_%hd161064161101%_ (let () (declare (not safe)) - (##car _%e161964161997%_))) - (_%tl161962162002%_ + (##car _%e161065161098%_))) + (_%tl161063161103%_ (let () (declare (not safe)) - (##cdr _%e161964161997%_)))) + (##cdr _%e161065161098%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161962162002%_)) - (let ((_%e161967162005%_ + (gx#stx-pair? _%tl161063161103%_)) + (let ((_%e161068161106%_ (let () (declare (not safe)) - (gx#stx-e _%tl161962162002%_)))) - (let ((_%hd161966162008%_ + (gx#stx-e _%tl161063161103%_)))) + (let ((_%hd161067161109%_ (let () (declare (not safe)) - (##car _%e161967162005%_))) - (_%tl161965162010%_ + (##car _%e161068161106%_))) + (_%tl161066161111%_ (let () (declare (not safe)) - (##cdr _%e161967162005%_)))) + (##cdr _%e161068161106%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd161966162008%_)) - (let ((_g166057_ + _%hd161067161109%_)) + (let ((_g165155_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd161966162008%_ + _%hd161067161109%_ '0)))) (begin - (let ((_g166058_ + (let ((_g165156_ (let () (declare (not safe)) - (if (##values? _g166057_) + (if (##values? _g165155_) (##vector-length - _g166057_) + _g165155_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g166058_ 2))) + (##fx= _g165156_ 2))) (error "Context expects 2 values" - _g166058_))) - (let ((_%target161968162013%_ + _g165156_))) + (let ((_%target161069161114%_ (let () (declare (not safe)) (##vector-ref - _g166057_ + _g165155_ 0))) - (_%tl161970162015%_ + (_%tl161071161116%_ (let () (declare (not safe)) (##vector-ref - _g166057_ + _g165155_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161970162015%_)) - (letrec ((_%loop161971162018%_ - (lambda (_%hd161969162021%_ + _%tl161071161116%_)) + (letrec ((_%loop161072161119%_ + (lambda (_%hd161070161122%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr161975162023%_ - _%hd161976162025%_) + _%expr161076161124%_ + _%hd161077161126%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161969162021%_)) - (let ((_%e161972162028%_ + (gx#stx-pair? _%hd161070161122%_)) + (let ((_%e161073161129%_ (let () (declare (not safe)) - (gx#stx-e _%hd161969162021%_)))) - (let ((_%lp-hd161973162031%_ + (gx#stx-e _%hd161070161122%_)))) + (let ((_%lp-hd161074161132%_ (let () (declare (not safe)) - (##car _%e161972162028%_))) - (_%lp-tl161974162033%_ + (##car _%e161073161129%_))) + (_%lp-tl161075161134%_ (let () (declare (not safe)) - (##cdr _%e161972162028%_)))) + (##cdr _%e161073161129%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd161973162031%_)) - (let ((_%e161981162036%_ + (gx#stx-pair? _%lp-hd161074161132%_)) + (let ((_%e161082161137%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd161973162031%_)))) - (let ((_%hd161980162039%_ + (gx#stx-e _%lp-hd161074161132%_)))) + (let ((_%hd161081161140%_ (let () (declare (not safe)) - (##car _%e161981162036%_))) - (_%tl161979162041%_ + (##car _%e161082161137%_))) + (_%tl161080161142%_ (let () (declare (not safe)) - (##cdr _%e161981162036%_)))) + (##cdr _%e161082161137%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161979162041%_)) - (let ((_%e161984162044%_ + (gx#stx-pair? _%tl161080161142%_)) + (let ((_%e161085161145%_ (let () (declare (not safe)) (gx#stx-e - _%tl161979162041%_)))) - (let ((_%hd161983162047%_ + _%tl161080161142%_)))) + (let ((_%hd161084161148%_ (let () (declare (not safe)) - (##car _%e161984162044%_))) - (_%tl161982162049%_ + (##car _%e161085161145%_))) + (_%tl161083161150%_ (let () (declare (not safe)) - (##cdr _%e161984162044%_)))) + (##cdr _%e161085161145%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161982162049%_)) - (let ((__tmp166060 - (cons _%hd161983162047%_ - _%expr161975162023%_)) - (__tmp166059 - (cons _%hd161980162039%_ - _%hd161976162025%_))) - (declare (not safe)) - (_%loop161971162018%_ - _%lp-tl161974162033%_ - __tmp166060 - __tmp166059)) - (let () - (declare (not safe)) - (_%g161957161992%_ - _%g161958161995%_))))) - (let () - (declare (not safe)) - (_%g161957161992%_ - _%g161958161995%_))))) - (let () - (declare (not safe)) - (_%g161957161992%_ _%g161958161995%_))))) - (let ((_%expr161977162052%_ - (reverse _%expr161975162023%_)) - (_%hd161978162054%_ - (reverse _%hd161976162025%_))) + _%tl161083161150%_)) + (_%loop161072161119%_ + _%lp-tl161075161134%_ + (cons _%hd161084161148%_ + _%expr161076161124%_) + (cons _%hd161081161140%_ + _%hd161077161126%_)) + (_%g161058161093%_ + _%g161059161096%_)))) + (_%g161058161093%_ + _%g161059161096%_)))) + (_%g161058161093%_ _%g161059161096%_)))) + (let ((_%expr161078161153%_ + (reverse _%expr161076161124%_)) + (_%hd161079161155%_ + (reverse _%hd161077161126%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161965162010%_)) - (let ((_%e161987162057%_ + (gx#stx-pair? _%tl161066161111%_)) + (let ((_%e161088161158%_ (let () (declare (not safe)) - (gx#stx-e _%tl161965162010%_)))) - (let ((_%hd161986162060%_ + (gx#stx-e _%tl161066161111%_)))) + (let ((_%hd161087161161%_ (let () (declare (not safe)) - (##car _%e161987162057%_))) - (_%tl161985162062%_ + (##car _%e161088161158%_))) + (_%tl161086161163%_ (let () (declare (not safe)) - (##cdr _%e161987162057%_)))) + (##cdr _%e161088161158%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161985162062%_)) - ((lambda (_%L162065%_ - _%L162066%_ - _%L162067%_) + (gx#stx-null? _%tl161086161163%_)) + ((lambda (_%L161166%_ + _%L161167%_ + _%L161168%_) (for-each - _%collect-e161955%_ - (let ((__tmp166061 - (lambda (_%g162087162090%_ - _%g162088162092%_) - (cons _%g162087162090%_ - _%g162088162092%_)))) + _%collect-e161056%_ + (let ((__tmp165157 + (lambda (_%g161188161191%_ + _%g161189161193%_) + (cons _%g161188161191%_ + _%g161189161193%_)))) (declare (not safe)) (__foldr1 - __tmp166061 + __tmp165157 '() - _%L162067%_)) - (let ((__tmp166062 - (lambda (_%g162094162097%_ - _%g162095162099%_) - (cons _%g162094162097%_ - _%g162095162099%_)))) + _%L161168%_)) + (let ((__tmp165158 + (lambda (_%g161195161198%_ + _%g161196161200%_) + (cons _%g161195161198%_ + _%g161196161200%_)))) (declare (not safe)) (__foldr1 - __tmp166062 + __tmp165158 '() - _%L162066%_))) + _%L161167%_))) (for-each - (lambda (_%g162101162103%_) + (lambda (_%g161202161204%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self161951%_ - _%g162101162103%_))) - (let ((__tmp166063 - (lambda (_%g162105162108%_ - _%g162106162110%_) - (cons _%g162105162108%_ - _%g162106162110%_)))) + _%self161052%_ + _%g161202161204%_))) + (let ((__tmp165159 + (lambda (_%g161206161209%_ + _%g161207161211%_) + (cons _%g161206161209%_ + _%g161207161211%_)))) (declare (not safe)) (__foldr1 - __tmp166063 + __tmp165159 '() - _%L162066%_))) + _%L161167%_))) (for-each - _%collect-e161955%_ - (let ((__tmp166064 - (lambda (_%g162112162115%_ - _%g162113162117%_) - (cons _%g162112162115%_ - _%g162113162117%_)))) + _%collect-e161056%_ + (let ((__tmp165160 + (lambda (_%g161213161216%_ + _%g161214161218%_) + (cons _%g161213161216%_ + _%g161214161218%_)))) (declare (not safe)) (__foldr1 - __tmp166064 + __tmp165160 '() - _%L162067%_)) - (let ((__tmp166065 - (lambda (_%g162119162122%_ - _%g162120162124%_) - (cons _%g162119162122%_ - _%g162120162124%_)))) + _%L161168%_)) + (let ((__tmp165161 + (lambda (_%g161220161223%_ + _%g161221161225%_) + (cons _%g161220161223%_ + _%g161221161225%_)))) (declare (not safe)) (__foldr1 - __tmp166065 + __tmp165161 '() - _%L162066%_))) + _%L161167%_))) (for-each - (lambda (_%g162126162128%_) + (lambda (_%g161227161229%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self161951%_ - _%g162126162128%_))) - (let ((__tmp166066 - (lambda (_%g162130162133%_ - _%g162131162135%_) - (cons _%g162130162133%_ - _%g162131162135%_)))) + _%self161052%_ + _%g161227161229%_))) + (let ((__tmp165162 + (lambda (_%g161231161234%_ + _%g161232161236%_) + (cons _%g161231161234%_ + _%g161232161236%_)))) (declare (not safe)) (__foldr1 - __tmp166066 + __tmp165162 '() - _%L162066%_))) + _%L161167%_))) (let () (declare (not safe)) (gxc#compile-e__1 - _%self161951%_ - _%L162065%_))) - _%hd161986162060%_ - _%expr161977162052%_ - _%hd161978162054%_) - (let () - (declare (not safe)) - (_%g161957161992%_ - _%g161958161995%_))))) - (let () - (declare (not safe)) - (_%g161957161992%_ _%g161958161995%_)))))))) + _%self161052%_ + _%L161166%_))) + _%hd161087161161%_ + _%expr161078161153%_ + _%hd161079161155%_) + (_%g161058161093%_ + _%g161059161096%_)))) + (_%g161058161093%_ _%g161059161096%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop161971162018%_ - _%target161968162013%_ - '() - '()))) - (let () - (declare (not safe)) - (_%g161957161992%_ - _%g161958161995%_)))))) - (let () - (declare (not safe)) - (_%g161957161992%_ - _%g161958161995%_))))) - (let () - (declare (not safe)) - (_%g161957161992%_ _%g161958161995%_))))) - (let () - (declare (not safe)) - (_%g161957161992%_ _%g161958161995%_)))))) - (declare (not safe)) - (_%g161956162138%_ _%stx161952%_))))) + (_%loop161072161119%_ + _%target161069161114%_ + '() + '())) + (_%g161058161093%_ + _%g161059161096%_))))) + (_%g161058161093%_ + _%g161059161096%_)))) + (_%g161058161093%_ _%g161059161096%_)))) + (_%g161058161093%_ _%g161059161096%_))))) + (_%g161057161239%_ _%stx161053%_))))) (define gxc#collect-type-letrec-values%__0 - (lambda (_%self162200%_ _%stx162201%_) - (let ((_%expression-type162203%_ gxc#apply-basic-expression-type)) - (declare (not safe)) + (lambda (_%self161301%_ _%stx161302%_) + (let ((_%expression-type161304%_ gxc#apply-basic-expression-type)) (gxc#collect-type-letrec-values%__% - _%self162200%_ - _%stx162201%_ - _%expression-type162203%_)))) + _%self161301%_ + _%stx161302%_ + _%expression-type161304%_)))) (define gxc#collect-type-letrec-values% - (lambda _g166068_ - (let ((_g166067_ (let () (declare (not safe)) (##length _g166068_)))) - (cond ((let () (declare (not safe)) (##fx= _g166067_ 2)) - (apply (lambda (_%self162200%_ _%stx162201%_) - (let () - (declare (not safe)) - (gxc#collect-type-letrec-values%__0 - _%self162200%_ - _%stx162201%_))) - _g166068_)) - ((let () (declare (not safe)) (##fx= _g166067_ 3)) - (apply (lambda (_%self162205%_ - _%stx162206%_ - _%expression-type162207%_) - (let () - (declare (not safe)) - (gxc#collect-type-letrec-values%__% - _%self162205%_ - _%stx162206%_ - _%expression-type162207%_))) - _g166068_)) + (lambda _g165164_ + (let ((_g165163_ (let () (declare (not safe)) (##length _g165164_)))) + (cond ((let () (declare (not safe)) (##fx= _g165163_ 2)) + (apply gxc#collect-type-letrec-values%__0 _g165164_)) + ((let () (declare (not safe)) (##fx= _g165163_ 3)) + (apply gxc#collect-type-letrec-values%__% _g165164_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-letrec-values% - _g166068_)))))) + _g165164_)))))) (define gxc#collect-top-level-type-let-values% - (lambda (_%self161947%_ _%stx161948%_) - (let () - (declare (not safe)) - (gxc#collect-type-let-values%__% - _%self161947%_ - _%stx161948%_ - gxc#apply-raw-expression-type)))) + (lambda (_%self161048%_ _%stx161049%_) + (gxc#collect-type-let-values%__% + _%self161048%_ + _%stx161049%_ + gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-letrec-values% - (lambda (_%self161944%_ _%stx161945%_) - (let () - (declare (not safe)) - (gxc#collect-type-letrec-values%__% - _%self161944%_ - _%stx161945%_ - gxc#apply-raw-expression-type)))) + (lambda (_%self161045%_ _%stx161046%_) + (gxc#collect-type-letrec-values%__% + _%self161045%_ + _%stx161046%_ + gxc#apply-raw-expression-type))) (define gxc#collect-type-call% - (lambda (_%self161431%_ _%stx161432%_) - (let* ((_%__stx163732163733%_ _%stx161432%_) - (_%g161436161551%_ + (lambda (_%self160532%_ _%stx160533%_) + (let* ((_%__stx162833162834%_ _%stx160533%_) + (_%g160537160652%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx163732163733%_))))) - (let ((_%__kont163734163735%_ - (lambda (_%L161894%_ - _%L161895%_ - _%L161896%_ - _%L161897%_ - _%L161898%_) - (let ((__tmp166072 + _%__stx162833162834%_))))) + (let ((_%__kont162835162836%_ + (lambda (_%L160995%_ + _%L160996%_ + _%L160997%_ + _%L160998%_ + _%L160999%_) + (let ((__tmp165168 (let () (declare (not safe)) - (gxc#identifier-symbol _%L161897%_))) - (__tmp166071 - (let () (declare (not safe)) (gx#stx-e _%L161896%_))) - (__tmp166070 + (gxc#identifier-symbol _%L160998%_))) + (__tmp165167 + (let () (declare (not safe)) (gx#stx-e _%L160997%_))) + (__tmp165166 (let () (declare (not safe)) - (gxc#identifier-symbol _%L161895%_))) - (__tmp166069 + (gxc#identifier-symbol _%L160996%_))) + (__tmp165165 (let () (declare (not safe)) - (gx#stx-e _%L161894%_)))) + (gx#stx-e _%L160995%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp166072 - __tmp166071 - __tmp166070 - __tmp166069)))) - (_%__kont163736163737%_ - (lambda (_%L161722%_ _%L161723%_ _%L161724%_ _%L161725%_) - (let ((__tmp166075 + __tmp165168 + __tmp165167 + __tmp165166 + __tmp165165)))) + (_%__kont162837162838%_ + (lambda (_%L160823%_ _%L160824%_ _%L160825%_ _%L160826%_) + (let ((__tmp165171 (let () (declare (not safe)) - (gxc#identifier-symbol _%L161724%_))) - (__tmp166074 - (let () (declare (not safe)) (gx#stx-e _%L161723%_))) - (__tmp166073 + (gxc#identifier-symbol _%L160825%_))) + (__tmp165170 + (let () (declare (not safe)) (gx#stx-e _%L160824%_))) + (__tmp165169 (let () (declare (not safe)) - (gxc#identifier-symbol _%L161722%_)))) + (gxc#identifier-symbol _%L160823%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp166075 - __tmp166074 - __tmp166073 + __tmp165171 + __tmp165170 + __tmp165169 '#f)))) - (_%__kont163738163739%_ - (lambda (_%L161588%_) + (_%__kont162839162840%_ + (lambda (_%L160689%_) (for-each - (lambda (_%g161601161603%_) + (lambda (_%g160702160704%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self161431%_ _%g161601161603%_))) - (let ((__tmp166076 - (lambda (_%g161605161608%_ _%g161606161610%_) - (cons _%g161605161608%_ _%g161606161610%_)))) + (gxc#compile-e__1 _%self160532%_ _%g160702160704%_))) + (let ((__tmp165172 + (lambda (_%g160706160709%_ _%g160707160711%_) + (cons _%g160706160709%_ _%g160707160711%_)))) (declare (not safe)) - (__foldr1 __tmp166076 '() _%L161588%_)))))) - (let* ((_%__match163989163990%_ - (lambda (_%e161537161556%_ - _%hd161536161559%_ - _%tl161535161561%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) - (letrec ((_%loop161541161569%_ - (lambda (_%hd161539161572%_ - _%expr161545161574%_) + (__foldr1 __tmp165172 '() _%L160689%_)))))) + (let* ((_%__match163090163091%_ + (lambda (_%e160638160657%_ + _%hd160637160660%_ + _%tl160636160662%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) + (letrec ((_%loop160642160670%_ + (lambda (_%hd160640160673%_ + _%expr160646160675%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161539161572%_)) - (let ((_%e161542161577%_ + (gx#stx-pair? _%hd160640160673%_)) + (let ((_%e160643160678%_ (let () (declare (not safe)) - (gx#stx-e _%hd161539161572%_)))) - (let ((_%lp-tl161544161582%_ + (gx#stx-e _%hd160640160673%_)))) + (let ((_%lp-tl160645160683%_ (let () (declare (not safe)) - (##cdr _%e161542161577%_))) - (_%lp-hd161543161580%_ + (##cdr _%e160643160678%_))) + (_%lp-hd160644160681%_ (let () (declare (not safe)) - (##car _%e161542161577%_)))) - (let ((__tmp166077 - (cons _%lp-hd161543161580%_ - _%expr161545161574%_))) - (declare (not safe)) - (_%loop161541161569%_ - _%lp-tl161544161582%_ - __tmp166077)))) - (let ((_%expr161546161585%_ - (reverse _%expr161545161574%_))) - (_%__kont163738163739%_ - _%expr161546161585%_)))))) - (let () - (declare (not safe)) - (_%loop161541161569%_ _%target161538161564%_ '()))))) - (_%__match163869163870%_ - (lambda (_%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%e161448161774%_ - _%hd161447161777%_ - _%tl161446161779%_ - _%e161451161782%_ - _%hd161450161785%_ - _%tl161449161787%_ - _%e161454161790%_ - _%hd161453161793%_ - _%tl161452161795%_ - _%e161457161798%_ - _%hd161456161801%_ - _%tl161455161803%_ - _%e161460161806%_ - _%hd161459161809%_ - _%tl161458161811%_ - _%e161463161814%_ - _%hd161462161817%_ - _%tl161461161819%_ - _%e161466161822%_ - _%hd161465161825%_ - _%tl161464161827%_ - _%e161469161830%_ - _%hd161468161833%_ - _%tl161467161835%_ - _%e161472161838%_ - _%hd161471161841%_ - _%tl161470161843%_ - _%e161475161846%_ - _%hd161474161849%_ - _%tl161473161851%_ - _%e161478161854%_ - _%hd161477161857%_ - _%tl161476161859%_ - _%e161481161862%_ - _%hd161480161865%_ - _%tl161479161867%_ - _%e161484161870%_ - _%hd161483161873%_ - _%tl161482161875%_ - _%e161487161878%_ - _%hd161486161881%_ - _%tl161485161883%_ - _%e161490161886%_ - _%hd161489161889%_ - _%tl161488161891%_) - (let ((_%L161894%_ _%hd161489161889%_) - (_%L161895%_ _%hd161480161865%_) - (_%L161896%_ _%hd161471161841%_) - (_%L161897%_ _%hd161462161817%_) - (_%L161898%_ _%hd161453161793%_)) + (##car _%e160643160678%_)))) + (_%loop160642160670%_ + _%lp-tl160645160683%_ + (cons _%lp-hd160644160681%_ + _%expr160646160675%_)))) + (let ((_%expr160647160686%_ + (reverse _%expr160646160675%_))) + (_%__kont162839162840%_ + _%expr160647160686%_)))))) + (_%loop160642160670%_ _%target160639160665%_ '())))) + (_%__match162970162971%_ + (lambda (_%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%e160549160875%_ + _%hd160548160878%_ + _%tl160547160880%_ + _%e160552160883%_ + _%hd160551160886%_ + _%tl160550160888%_ + _%e160555160891%_ + _%hd160554160894%_ + _%tl160553160896%_ + _%e160558160899%_ + _%hd160557160902%_ + _%tl160556160904%_ + _%e160561160907%_ + _%hd160560160910%_ + _%tl160559160912%_ + _%e160564160915%_ + _%hd160563160918%_ + _%tl160562160920%_ + _%e160567160923%_ + _%hd160566160926%_ + _%tl160565160928%_ + _%e160570160931%_ + _%hd160569160934%_ + _%tl160568160936%_ + _%e160573160939%_ + _%hd160572160942%_ + _%tl160571160944%_ + _%e160576160947%_ + _%hd160575160950%_ + _%tl160574160952%_ + _%e160579160955%_ + _%hd160578160958%_ + _%tl160577160960%_ + _%e160582160963%_ + _%hd160581160966%_ + _%tl160580160968%_ + _%e160585160971%_ + _%hd160584160974%_ + _%tl160583160976%_ + _%e160588160979%_ + _%hd160587160982%_ + _%tl160586160984%_ + _%e160591160987%_ + _%hd160590160990%_ + _%tl160589160992%_) + (let ((_%L160995%_ _%hd160590160990%_) + (_%L160996%_ _%hd160581160966%_) + (_%L160997%_ _%hd160572160942%_) + (_%L160998%_ _%hd160563160918%_) + (_%L160999%_ _%hd160554160894%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L161898%_ + _%L160999%_ 'bind-method!)) - (_%__kont163734163735%_ - _%L161894%_ - _%L161895%_ - _%L161896%_ - _%L161897%_ - _%L161898%_) + (_%__kont162835162836%_ + _%L160995%_ + _%L160996%_ + _%L160997%_ + _%L160998%_ + _%L160999%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))))))) + (_%g160537160652%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx163732163733%_)) - (let ((_%e161445161766%_ + (gx#stx-pair? _%__stx162833162834%_)) + (let ((_%e160546160867%_ (let () (declare (not safe)) - (gx#stx-e _%__stx163732163733%_)))) - (let ((_%tl161443161771%_ + (gx#stx-e _%__stx162833162834%_)))) + (let ((_%tl160544160872%_ (let () (declare (not safe)) - (##cdr _%e161445161766%_))) - (_%hd161444161769%_ + (##cdr _%e160546160867%_))) + (_%hd160545160870%_ (let () (declare (not safe)) - (##car _%e161445161766%_)))) + (##car _%e160546160867%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161443161771%_)) - (let ((_%e161448161774%_ + (gx#stx-pair? _%tl160544160872%_)) + (let ((_%e160549160875%_ (let () (declare (not safe)) - (gx#stx-e _%tl161443161771%_)))) - (let ((_%tl161446161779%_ + (gx#stx-e _%tl160544160872%_)))) + (let ((_%tl160547160880%_ (let () (declare (not safe)) - (##cdr _%e161448161774%_))) - (_%hd161447161777%_ + (##cdr _%e160549160875%_))) + (_%hd160548160878%_ (let () (declare (not safe)) - (##car _%e161448161774%_)))) + (##car _%e160549160875%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161447161777%_)) - (let ((_%e161451161782%_ + (gx#stx-pair? _%hd160548160878%_)) + (let ((_%e160552160883%_ (let () (declare (not safe)) - (gx#stx-e _%hd161447161777%_)))) - (let ((_%tl161449161787%_ + (gx#stx-e _%hd160548160878%_)))) + (let ((_%tl160550160888%_ (let () (declare (not safe)) - (##cdr _%e161451161782%_))) - (_%hd161450161785%_ + (##cdr _%e160552160883%_))) + (_%hd160551160886%_ (let () (declare (not safe)) - (##car _%e161451161782%_)))) + (##car _%e160552160883%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd161450161785%_)) + _%hd160551160886%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd161450161785%_)) + _%hd160551160886%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161449161787%_)) - (let ((_%e161454161790%_ + _%tl160550160888%_)) + (let ((_%e160555160891%_ (let () (declare (not safe)) (gx#stx-e - _%tl161449161787%_)))) - (let ((_%tl161452161795%_ + _%tl160550160888%_)))) + (let ((_%tl160553160896%_ (let () (declare (not safe)) - (##cdr _%e161454161790%_))) - (_%hd161453161793%_ + (##cdr _%e160555160891%_))) + (_%hd160554160894%_ (let () (declare (not safe)) - (##car _%e161454161790%_)))) + (##car _%e160555160891%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161452161795%_)) + _%tl160553160896%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl161446161779%_)) - (let ((_%e161457161798%_ + (gx#stx-pair? _%tl160547160880%_)) + (let ((_%e160558160899%_ (let () (declare (not safe)) - (gx#stx-e _%tl161446161779%_)))) - (let ((_%tl161455161803%_ + (gx#stx-e _%tl160547160880%_)))) + (let ((_%tl160556160904%_ (let () (declare (not safe)) - (##cdr _%e161457161798%_))) - (_%hd161456161801%_ + (##cdr _%e160558160899%_))) + (_%hd160557160902%_ (let () (declare (not safe)) - (##car _%e161457161798%_)))) + (##car _%e160558160899%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161456161801%_)) - (let ((_%e161460161806%_ + (gx#stx-pair? _%hd160557160902%_)) + (let ((_%e160561160907%_ (let () (declare (not safe)) - (gx#stx-e _%hd161456161801%_)))) - (let ((_%tl161458161811%_ + (gx#stx-e _%hd160557160902%_)))) + (let ((_%tl160559160912%_ (let () (declare (not safe)) - (##cdr _%e161460161806%_))) - (_%hd161459161809%_ + (##cdr _%e160561160907%_))) + (_%hd160560160910%_ (let () (declare (not safe)) - (##car _%e161460161806%_)))) + (##car _%e160561160907%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161459161809%_)) + (gx#identifier? _%hd160560160910%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd161459161809%_)) + _%hd160560160910%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161458161811%_)) - (let ((_%e161463161814%_ + _%tl160559160912%_)) + (let ((_%e160564160915%_ (let () (declare (not safe)) (gx#stx-e - _%tl161458161811%_)))) - (let ((_%tl161461161819%_ + _%tl160559160912%_)))) + (let ((_%tl160562160920%_ (let () (declare (not safe)) - (##cdr _%e161463161814%_))) - (_%hd161462161817%_ + (##cdr _%e160564160915%_))) + (_%hd160563160918%_ (let () (declare (not safe)) - (##car _%e161463161814%_)))) + (##car _%e160564160915%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161461161819%_)) + _%tl160562160920%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161455161803%_)) - (let ((_%e161466161822%_ + _%tl160556160904%_)) + (let ((_%e160567160923%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl161455161803%_)))) - (let ((_%tl161464161827%_ + (gx#stx-e _%tl160556160904%_)))) + (let ((_%tl160565160928%_ (let () (declare (not safe)) - (##cdr _%e161466161822%_))) - (_%hd161465161825%_ + (##cdr _%e160567160923%_))) + (_%hd160566160926%_ (let () (declare (not safe)) - (##car _%e161466161822%_)))) + (##car _%e160567160923%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161465161825%_)) - (let ((_%e161469161830%_ + (gx#stx-pair? _%hd160566160926%_)) + (let ((_%e160570160931%_ (let () (declare (not safe)) - (gx#stx-e _%hd161465161825%_)))) - (let ((_%tl161467161835%_ + (gx#stx-e _%hd160566160926%_)))) + (let ((_%tl160568160936%_ (let () (declare (not safe)) - (##cdr _%e161469161830%_))) - (_%hd161468161833%_ + (##cdr _%e160570160931%_))) + (_%hd160569160934%_ (let () (declare (not safe)) - (##car _%e161469161830%_)))) + (##car _%e160570160931%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161468161833%_)) + (gx#identifier? _%hd160569160934%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd161468161833%_)) + _%hd160569160934%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161467161835%_)) - (let ((_%e161472161838%_ + (gx#stx-pair? _%tl160568160936%_)) + (let ((_%e160573160939%_ (let () (declare (not safe)) (gx#stx-e - _%tl161467161835%_)))) - (let ((_%tl161470161843%_ + _%tl160568160936%_)))) + (let ((_%tl160571160944%_ (let () (declare (not safe)) - (##cdr _%e161472161838%_))) - (_%hd161471161841%_ + (##cdr _%e160573160939%_))) + (_%hd160572160942%_ (let () (declare (not safe)) - (##car _%e161472161838%_)))) + (##car _%e160573160939%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161470161843%_)) + _%tl160571160944%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161464161827%_)) - (let ((_%e161475161846%_ + _%tl160565160928%_)) + (let ((_%e160576160947%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl161464161827%_)))) - (let ((_%tl161473161851%_ - (let () (declare (not safe)) (##cdr _%e161475161846%_))) - (_%hd161474161849%_ + (gx#stx-e _%tl160565160928%_)))) + (let ((_%tl160574160952%_ + (let () (declare (not safe)) (##cdr _%e160576160947%_))) + (_%hd160575160950%_ (let () (declare (not safe)) - (##car _%e161475161846%_)))) + (##car _%e160576160947%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161474161849%_)) - (let ((_%e161478161854%_ + (gx#stx-pair? _%hd160575160950%_)) + (let ((_%e160579160955%_ (let () (declare (not safe)) - (gx#stx-e _%hd161474161849%_)))) - (let ((_%tl161476161859%_ + (gx#stx-e _%hd160575160950%_)))) + (let ((_%tl160577160960%_ (let () (declare (not safe)) - (##cdr _%e161478161854%_))) - (_%hd161477161857%_ + (##cdr _%e160579160955%_))) + (_%hd160578160958%_ (let () (declare (not safe)) - (##car _%e161478161854%_)))) + (##car _%e160579160955%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161477161857%_)) + (gx#identifier? _%hd160578160958%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161477161857%_)) + (gx#stx-eq? '%#ref _%hd160578160958%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161476161859%_)) - (let ((_%e161481161862%_ + (gx#stx-pair? _%tl160577160960%_)) + (let ((_%e160582160963%_ (let () (declare (not safe)) - (gx#stx-e _%tl161476161859%_)))) - (let ((_%tl161479161867%_ + (gx#stx-e _%tl160577160960%_)))) + (let ((_%tl160580160968%_ (let () (declare (not safe)) - (##cdr _%e161481161862%_))) - (_%hd161480161865%_ + (##cdr _%e160582160963%_))) + (_%hd160581160966%_ (let () (declare (not safe)) - (##car _%e161481161862%_)))) + (##car _%e160582160963%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161479161867%_)) + _%tl160580160968%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161473161851%_)) - (let ((_%e161484161870%_ + _%tl160574160952%_)) + (let ((_%e160585160971%_ (let () (declare (not safe)) (gx#stx-e - _%tl161473161851%_)))) - (let ((_%tl161482161875%_ + _%tl160574160952%_)))) + (let ((_%tl160583160976%_ (let () (declare (not safe)) - (##cdr _%e161484161870%_))) - (_%hd161483161873%_ + (##cdr _%e160585160971%_))) + (_%hd160584160974%_ (let () (declare (not safe)) - (##car _%e161484161870%_)))) + (##car _%e160585160971%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd161483161873%_)) - (let ((_%e161487161878%_ + _%hd160584160974%_)) + (let ((_%e160588160979%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd161483161873%_)))) - (let ((_%tl161485161883%_ + (gx#stx-e _%hd160584160974%_)))) + (let ((_%tl160586160984%_ (let () (declare (not safe)) - (##cdr _%e161487161878%_))) - (_%hd161486161881%_ + (##cdr _%e160588160979%_))) + (_%hd160587160982%_ (let () (declare (not safe)) - (##car _%e161487161878%_)))) + (##car _%e160588160979%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161486161881%_)) + (gx#identifier? _%hd160587160982%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd161486161881%_)) + (gx#stx-eq? '%#quote _%hd160587160982%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161485161883%_)) - (let ((_%e161490161886%_ + (gx#stx-pair? _%tl160586160984%_)) + (let ((_%e160591160987%_ (let () (declare (not safe)) - (gx#stx-e _%tl161485161883%_)))) - (let ((_%tl161488161891%_ + (gx#stx-e _%tl160586160984%_)))) + (let ((_%tl160589160992%_ (let () (declare (not safe)) - (##cdr _%e161490161886%_))) - (_%hd161489161889%_ + (##cdr _%e160591160987%_))) + (_%hd160590160990%_ (let () (declare (not safe)) - (##car _%e161490161886%_)))) + (##car _%e160591160987%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161488161891%_)) + (gx#stx-null? _%tl160589160992%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161482161875%_)) - (_%__match163869163870%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%e161448161774%_ - _%hd161447161777%_ - _%tl161446161779%_ - _%e161451161782%_ - _%hd161450161785%_ - _%tl161449161787%_ - _%e161454161790%_ - _%hd161453161793%_ - _%tl161452161795%_ - _%e161457161798%_ - _%hd161456161801%_ - _%tl161455161803%_ - _%e161460161806%_ - _%hd161459161809%_ - _%tl161458161811%_ - _%e161463161814%_ - _%hd161462161817%_ - _%tl161461161819%_ - _%e161466161822%_ - _%hd161465161825%_ - _%tl161464161827%_ - _%e161469161830%_ - _%hd161468161833%_ - _%tl161467161835%_ - _%e161472161838%_ - _%hd161471161841%_ - _%tl161470161843%_ - _%e161475161846%_ - _%hd161474161849%_ - _%tl161473161851%_ - _%e161478161854%_ - _%hd161477161857%_ - _%tl161476161859%_ - _%e161481161862%_ - _%hd161480161865%_ - _%tl161479161867%_ - _%e161484161870%_ - _%hd161483161873%_ - _%tl161482161875%_ - _%e161487161878%_ - _%hd161486161881%_ - _%tl161485161883%_ - _%e161490161886%_ - _%hd161489161889%_ - _%tl161488161891%_) + _%tl160583160976%_)) + (_%__match162970162971%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%e160549160875%_ + _%hd160548160878%_ + _%tl160547160880%_ + _%e160552160883%_ + _%hd160551160886%_ + _%tl160550160888%_ + _%e160555160891%_ + _%hd160554160894%_ + _%tl160553160896%_ + _%e160558160899%_ + _%hd160557160902%_ + _%tl160556160904%_ + _%e160561160907%_ + _%hd160560160910%_ + _%tl160559160912%_ + _%e160564160915%_ + _%hd160563160918%_ + _%tl160562160920%_ + _%e160567160923%_ + _%hd160566160926%_ + _%tl160565160928%_ + _%e160570160931%_ + _%hd160569160934%_ + _%tl160568160936%_ + _%e160573160939%_ + _%hd160572160942%_ + _%tl160571160944%_ + _%e160576160947%_ + _%hd160575160950%_ + _%tl160574160952%_ + _%e160579160955%_ + _%hd160578160958%_ + _%tl160577160960%_ + _%e160582160963%_ + _%hd160581160966%_ + _%tl160580160968%_ + _%e160585160971%_ + _%hd160584160974%_ + _%tl160583160976%_ + _%e160588160979%_ + _%hd160587160982%_ + _%tl160586160984%_ + _%e160591160987%_ + _%hd160590160990%_ + _%tl160589160992%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))) + (_%g160537160652%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))))) + (_%g160537160652%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))) + (_%g160537160652%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))) + (_%g160537160652%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))))) + (_%g160537160652%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '1))) - (_%target161538161564%_ + (##vector-ref _%__splice162841162842%_ '1))) + (_%target160639160665%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '0)))) + (##vector-ref _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) - (let () (declare (not safe)) (_%g161436161551%_)))))) + (_%g160537160652%_))))) + (let () (declare (not safe)) (_%g160537160652%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl161473161851%_)) - (if (let ((__tmp166078 + _%tl160574160952%_)) + (if (let ((__tmp165173 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp166078 'bind-method!)) - (let ((_%L161722%_ _%hd161480161865%_) - (_%L161723%_ _%hd161471161841%_) - (_%L161724%_ _%hd161462161817%_) - (_%L161725%_ _%hd161453161793%_)) - (_%__kont163736163737%_ - _%L161722%_ - _%L161723%_ - _%L161724%_ - _%L161725%_)) + (gxc#runtime-identifier=? __tmp165173 'bind-method!)) + (let ((_%L160823%_ _%hd160581160966%_) + (_%L160824%_ _%hd160572160942%_) + (_%L160825%_ _%hd160563160918%_) + (_%L160826%_ _%hd160554160894%_)) + (_%__kont162837162838%_ + _%L160823%_ + _%L160824%_ + _%L160825%_ + _%L160826%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '1))) - (_%target161538161564%_ + (##vector-ref _%__splice162841162842%_ '1))) + (_%target160639160665%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '0)))) + (##vector-ref _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) - (let () (declare (not safe)) (_%g161436161551%_)))) + (_%g160537160652%_))))) + (let () (declare (not safe)) (_%g160537160652%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl161443161771%_ '0)))) - (let ((_%tl161540161566%_ + (gx#syntax-split-splice _%tl160544160872%_ '0)))) + (let ((_%tl160641160667%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '1))) - (_%target161538161564%_ + (##vector-ref _%__splice162841162842%_ '1))) + (_%target160639160665%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '0)))) + (##vector-ref _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) - (let () (declare (not safe)) (_%g161436161551%_))))) - (let () (declare (not safe)) (_%g161436161551%_))))) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) + (let () (declare (not safe)) (_%g160537160652%_))))) + (let () (declare (not safe)) (_%g160537160652%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))))) + (_%g160537160652%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))) + (_%g160537160652%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))) + (_%g160537160652%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))))) + (_%g160537160652%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) - (let () (declare (not safe)) (_%g161436161551%_)))))) + (_%g160537160652%_))))) + (let () (declare (not safe)) (_%g160537160652%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl161443161771%_ '0)))) - (let ((_%tl161540161566%_ + (gx#syntax-split-splice _%tl160544160872%_ '0)))) + (let ((_%tl160641160667%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '1))) - (_%target161538161564%_ + (##vector-ref _%__splice162841162842%_ '1))) + (_%target160639160665%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '0)))) + (##vector-ref _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) - (let () (declare (not safe)) (_%g161436161551%_))))) - (let () (declare (not safe)) (_%g161436161551%_)))) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) + (let () (declare (not safe)) (_%g160537160652%_))))) + (let () (declare (not safe)) (_%g160537160652%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl161443161771%_ '0)))) - (let ((_%tl161540161566%_ + (gx#syntax-split-splice _%tl160544160872%_ '0)))) + (let ((_%tl160641160667%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '1))) - (_%target161538161564%_ + (##vector-ref _%__splice162841162842%_ '1))) + (_%target160639160665%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '0)))) + (##vector-ref _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) - (let () (declare (not safe)) (_%g161436161551%_))))) - (let () (declare (not safe)) (_%g161436161551%_)))))) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) + (let () (declare (not safe)) (_%g160537160652%_))))) + (let () (declare (not safe)) (_%g160537160652%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))) + (_%g160537160652%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))) + (_%g160537160652%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))))) + (_%g160537160652%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))))) + (_%g160537160652%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '1))) - (_%target161538161564%_ + (##vector-ref _%__splice162841162842%_ '1))) + (_%target160639160665%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '0)))) + (##vector-ref _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) - (let () (declare (not safe)) (_%g161436161551%_)))) + (_%g160537160652%_))))) + (let () (declare (not safe)) (_%g160537160652%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl161443161771%_ '0)))) - (let ((_%tl161540161566%_ + (gx#syntax-split-splice _%tl160544160872%_ '0)))) + (let ((_%tl160641160667%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '1))) - (_%target161538161564%_ + (##vector-ref _%__splice162841162842%_ '1))) + (_%target160639160665%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '0)))) + (##vector-ref _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) - (let () (declare (not safe)) (_%g161436161551%_))))) - (let () (declare (not safe)) (_%g161436161551%_)))))) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) + (let () (declare (not safe)) (_%g160537160652%_))))) + (let () (declare (not safe)) (_%g160537160652%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))) + (_%g160537160652%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))) + (_%g160537160652%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))))) + (_%g160537160652%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))))) + (_%g160537160652%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) - (let () (declare (not safe)) (_%g161436161551%_)))) + (_%g160537160652%_))))) + (let () (declare (not safe)) (_%g160537160652%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '1))) - (_%target161538161564%_ + (##vector-ref _%__splice162841162842%_ '1))) + (_%target160639160665%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '0)))) + (##vector-ref _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) - (let () (declare (not safe)) (_%g161436161551%_)))))) + (_%g160537160652%_))))) + (let () (declare (not safe)) (_%g160537160652%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl161443161771%_ '0)))) - (let ((_%tl161540161566%_ + (gx#syntax-split-splice _%tl160544160872%_ '0)))) + (let ((_%tl160641160667%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '1))) - (_%target161538161564%_ + (##vector-ref _%__splice162841162842%_ '1))) + (_%target160639160665%_ (let () (declare (not safe)) - (##vector-ref _%__splice163740163741%_ '0)))) + (##vector-ref _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) - (let () (declare (not safe)) (_%g161436161551%_))))) - (let () (declare (not safe)) (_%g161436161551%_)))) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) + (let () (declare (not safe)) (_%g160537160652%_))))) + (let () (declare (not safe)) (_%g160537160652%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))) + (_%g160537160652%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))))) + (_%g160537160652%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))))) + (_%g160537160652%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161443161771%_)) - (let ((_%__splice163740163741%_ + (gx#stx-pair/null? _%tl160544160872%_)) + (let ((_%__splice162841162842%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161443161771%_ + _%tl160544160872%_ '0)))) - (let ((_%tl161540161566%_ + (let ((_%tl160641160667%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '1))) - (_%target161538161564%_ + (_%target160639160665%_ (let () (declare (not safe)) (##vector-ref - _%__splice163740163741%_ + _%__splice162841162842%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161540161566%_)) - (_%__match163989163990%_ - _%e161445161766%_ - _%hd161444161769%_ - _%tl161443161771%_ - _%__splice163740163741%_ - _%target161538161564%_ - _%tl161540161566%_) + (gx#stx-null? _%tl160641160667%_)) + (_%__match163090163091%_ + _%e160546160867%_ + _%hd160545160870%_ + _%tl160544160872%_ + _%__splice162841162842%_ + _%target160639160665%_ + _%tl160641160667%_) (let () (declare (not safe)) - (_%g161436161551%_))))) + (_%g160537160652%_))))) (let () (declare (not safe)) - (_%g161436161551%_)))))) - (let () (declare (not safe)) (_%g161436161551%_)))))))) + (_%g160537160652%_)))))) + (let () (declare (not safe)) (_%g160537160652%_)))))))) (define gxc#collect-type-setq% - (lambda (_%self161360%_ _%stx161361%_) - (let* ((_%g161363161380%_ - (lambda (_%g161364161377%_) + (lambda (_%self160461%_ _%stx160462%_) + (let* ((_%g160464160481%_ + (lambda (_%g160465160478%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g161364161377%_)))) - (_%g161362161428%_ - (lambda (_%g161364161383%_) + _%g160465160478%_)))) + (_%g160463160529%_ + (lambda (_%g160465160484%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g161364161383%_)) - (let ((_%e161369161385%_ + (gx#stx-pair? _%g160465160484%_)) + (let ((_%e160470160486%_ (let () (declare (not safe)) - (gx#stx-e _%g161364161383%_)))) - (let ((_%hd161368161388%_ + (gx#stx-e _%g160465160484%_)))) + (let ((_%hd160469160489%_ (let () (declare (not safe)) - (##car _%e161369161385%_))) - (_%tl161367161390%_ + (##car _%e160470160486%_))) + (_%tl160468160491%_ (let () (declare (not safe)) - (##cdr _%e161369161385%_)))) + (##cdr _%e160470160486%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161367161390%_)) - (let ((_%e161372161393%_ + (gx#stx-pair? _%tl160468160491%_)) + (let ((_%e160473160494%_ (let () (declare (not safe)) - (gx#stx-e _%tl161367161390%_)))) - (let ((_%hd161371161396%_ + (gx#stx-e _%tl160468160491%_)))) + (let ((_%hd160472160497%_ (let () (declare (not safe)) - (##car _%e161372161393%_))) - (_%tl161370161398%_ + (##car _%e160473160494%_))) + (_%tl160471160499%_ (let () (declare (not safe)) - (##cdr _%e161372161393%_)))) + (##cdr _%e160473160494%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161370161398%_)) - (let ((_%e161375161401%_ + (gx#stx-pair? _%tl160471160499%_)) + (let ((_%e160476160502%_ (let () (declare (not safe)) - (gx#stx-e _%tl161370161398%_)))) - (let ((_%hd161374161404%_ + (gx#stx-e _%tl160471160499%_)))) + (let ((_%hd160475160505%_ (let () (declare (not safe)) - (##car _%e161375161401%_))) - (_%tl161373161406%_ + (##car _%e160476160502%_))) + (_%tl160474160507%_ (let () (declare (not safe)) - (##cdr _%e161375161401%_)))) + (##cdr _%e160476160502%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161373161406%_)) - ((lambda (_%L161409%_ - _%L161410%_) - (let ((_%bind-type161425%_ - (let ((__tmp166079 + _%tl160474160507%_)) + ((lambda (_%L160510%_ + _%L160511%_) + (let ((_%bind-type160526%_ + (let ((__tmp165174 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%L161410%_)))) - (declare (not safe)) - (gxc#optimizer-resolve-type __tmp166079))) - (_%expr-type161426%_ - (let () + (gxc#identifier-symbol _%L160511%_)))) (declare (not safe)) - (gxc#apply-basic-expression-type _%L161409%_)))) + (gxc#optimizer-resolve-type __tmp165174))) + (_%expr-type160527%_ + (gxc#apply-basic-expression-type _%L160510%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type161426%_ - _%bind-type161425%_)) + _%expr-type160527%_ + _%bind-type160526%_)) '#!void - (let ((__tmp166080 + (let ((__tmp165175 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#identifier-symbol _%L161410%_)))) + (gxc#identifier-symbol _%L160511%_)))) (declare (not safe)) - (gxc#optimizer-clear-type! __tmp166080))))) + (gxc#optimizer-clear-type! __tmp165175))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd161374161404%_ - _%hd161371161396%_) - (let () - (declare (not safe)) - (_%g161363161380%_ - _%g161364161383%_))))) - (let () - (declare (not safe)) - (_%g161363161380%_ - _%g161364161383%_))))) - (let () - (declare (not safe)) - (_%g161363161380%_ _%g161364161383%_))))) - (let () - (declare (not safe)) - (_%g161363161380%_ _%g161364161383%_)))))) - (declare (not safe)) - (_%g161362161428%_ _%stx161361%_)))) + _%hd160475160505%_ + _%hd160472160497%_) + (_%g160464160481%_ + _%g160465160484%_)))) + (_%g160464160481%_ _%g160465160484%_)))) + (_%g160464160481%_ _%g160465160484%_)))) + (_%g160464160481%_ _%g160465160484%_))))) + (_%g160463160529%_ _%stx160462%_)))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_%self161238%_ _%stx161239%_) - (let* ((_%g161241161258%_ - (lambda (_%g161242161255%_) + (lambda (_%self160339%_ _%stx160340%_) + (let* ((_%g160342160359%_ + (lambda (_%g160343160356%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g161242161255%_)))) - (_%g161240161357%_ - (lambda (_%g161242161261%_) + _%g160343160356%_)))) + (_%g160341160458%_ + (lambda (_%g160343160362%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g161242161261%_)) - (let ((_%e161247161263%_ + (gx#stx-pair? _%g160343160362%_)) + (let ((_%e160348160364%_ (let () (declare (not safe)) - (gx#stx-e _%g161242161261%_)))) - (let ((_%hd161246161266%_ + (gx#stx-e _%g160343160362%_)))) + (let ((_%hd160347160367%_ (let () (declare (not safe)) - (##car _%e161247161263%_))) - (_%tl161245161268%_ + (##car _%e160348160364%_))) + (_%tl160346160369%_ (let () (declare (not safe)) - (##cdr _%e161247161263%_)))) + (##cdr _%e160348160364%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161245161268%_)) - (let ((_%e161250161271%_ + (gx#stx-pair? _%tl160346160369%_)) + (let ((_%e160351160372%_ (let () (declare (not safe)) - (gx#stx-e _%tl161245161268%_)))) - (let ((_%hd161249161274%_ + (gx#stx-e _%tl160346160369%_)))) + (let ((_%hd160350160375%_ (let () (declare (not safe)) - (##car _%e161250161271%_))) - (_%tl161248161276%_ + (##car _%e160351160372%_))) + (_%tl160349160377%_ (let () (declare (not safe)) - (##cdr _%e161250161271%_)))) + (##cdr _%e160351160372%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161248161276%_)) - (let ((_%e161253161279%_ + (gx#stx-pair? _%tl160349160377%_)) + (let ((_%e160354160380%_ (let () (declare (not safe)) - (gx#stx-e _%tl161248161276%_)))) - (let ((_%hd161252161282%_ + (gx#stx-e _%tl160349160377%_)))) + (let ((_%hd160353160383%_ (let () (declare (not safe)) - (##car _%e161253161279%_))) - (_%tl161251161284%_ + (##car _%e160354160380%_))) + (_%tl160352160385%_ (let () (declare (not safe)) - (##cdr _%e161253161279%_)))) + (##cdr _%e160354160380%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161251161284%_)) - ((lambda (_%L161287%_ - _%L161288%_) - (let* ((_%__stx163992163993%_ - _%L161288%_) - (_%g161304161315%_ + _%tl160352160385%_)) + ((lambda (_%L160388%_ + _%L160389%_) + (let* ((_%__stx163093163094%_ + _%L160389%_) + (_%g160405160416%_ (lambda () (let () (declare @@ -4956,343 +4810,325 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx163992163993%_))))) - (let ((_%__kont163994163995%_ - (lambda (_%L161335%_ + _%__stx163093163094%_))))) + (let ((_%__kont163095163096%_ + (lambda (_%L160436%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L161336%_) - (let ((_%$e161348%_ - (let ((__tmp166081 + _%L160437%_) + (let ((_%$e160449%_ + (let ((__tmp165176 (let () (declare (not safe)) - (gx#stx-e _%L161336%_)))) + (gx#stx-e _%L160437%_)))) (declare (not safe)) (hash-get gxc#basic-expression-type-annotations - __tmp166081)))) - (if _%$e161348%_ - ((lambda (_%type-e161351%_) - (_%type-e161351%_ _%stx161239%_ _%L161288%_)) - _%$e161348%_) + __tmp165176)))) + (if _%$e160449%_ + ((lambda (_%type-e160452%_) + (_%type-e160452%_ _%stx160340%_ _%L160389%_)) + _%$e160449%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self161238%_ _%L161287%_)))))) - (_%__kont163996163997%_ + (gxc#compile-e__1 _%self160339%_ _%L160388%_)))))) + (_%__kont163097163098%_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self161238%_ _%L161287%_))))) + (gxc#compile-e__1 _%self160339%_ _%L160388%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match164003164004%_ - (lambda (_%e161310161327%_ + (let ((_%__match163104163105%_ + (lambda (_%e160411160428%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd161309161330%_ - _%tl161308161332%_) - (let ((_%L161335%_ _%tl161308161332%_) - (_%L161336%_ _%hd161309161330%_)) + _%hd160410160431%_ + _%tl160409160433%_) + (let ((_%L160436%_ _%tl160409160433%_) + (_%L160437%_ _%hd160410160431%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L161336%_)) - (_%__kont163994163995%_ _%L161335%_ _%L161336%_) - (_%__kont163996163997%_)))))) + (gx#identifier? _%L160437%_)) + (_%__kont163095163096%_ _%L160436%_ _%L160437%_) + (_%__kont163097163098%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx163992163993%_)) - (let ((_%e161310161327%_ + (gx#stx-pair? _%__stx163093163094%_)) + (let ((_%e160411160428%_ (let () (declare (not safe)) - (gx#stx-e _%__stx163992163993%_)))) - (let ((_%tl161308161332%_ + (gx#stx-e _%__stx163093163094%_)))) + (let ((_%tl160409160433%_ (let () (declare (not safe)) - (##cdr _%e161310161327%_))) - (_%hd161309161330%_ + (##cdr _%e160411160428%_))) + (_%hd160410160431%_ (let () (declare (not safe)) - (##car _%e161310161327%_)))) - (_%__match164003164004%_ - _%e161310161327%_ - _%hd161309161330%_ - _%tl161308161332%_))) - (_%__kont163996163997%_)))))) + (##car _%e160411160428%_)))) + (_%__match163104163105%_ + _%e160411160428%_ + _%hd160410160431%_ + _%tl160409160433%_))) + (_%__kont163097163098%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd161252161282%_ - _%hd161249161274%_) - (let () - (declare (not safe)) - (_%g161241161258%_ - _%g161242161261%_))))) - (let () - (declare (not safe)) - (_%g161241161258%_ - _%g161242161261%_))))) - (let () - (declare (not safe)) - (_%g161241161258%_ _%g161242161261%_))))) - (let () - (declare (not safe)) - (_%g161241161258%_ _%g161242161261%_)))))) - (declare (not safe)) - (_%g161240161357%_ _%stx161239%_)))) + _%hd160353160383%_ + _%hd160350160375%_) + (_%g160342160359%_ + _%g160343160362%_)))) + (_%g160342160359%_ _%g160343160362%_)))) + (_%g160342160359%_ _%g160343160362%_)))) + (_%g160342160359%_ _%g160343160362%_))))) + (_%g160341160458%_ _%stx160340%_)))) (define gxc#basic-expression-type-annotation-typedecl - (lambda (_%stx161186%_ _%ann161187%_) - (let* ((_%g161189161202%_ - (lambda (_%g161190161199%_) + (lambda (_%stx160287%_ _%ann160288%_) + (let* ((_%g160290160303%_ + (lambda (_%g160291160300%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g161190161199%_)))) - (_%g161188161235%_ - (lambda (_%g161190161205%_) + _%g160291160300%_)))) + (_%g160289160336%_ + (lambda (_%g160291160306%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g161190161205%_)) - (let ((_%e161194161207%_ + (gx#stx-pair? _%g160291160306%_)) + (let ((_%e160295160308%_ (let () (declare (not safe)) - (gx#stx-e _%g161190161205%_)))) - (let ((_%hd161193161210%_ + (gx#stx-e _%g160291160306%_)))) + (let ((_%hd160294160311%_ (let () (declare (not safe)) - (##car _%e161194161207%_))) - (_%tl161192161212%_ + (##car _%e160295160308%_))) + (_%tl160293160313%_ (let () (declare (not safe)) - (##cdr _%e161194161207%_)))) + (##cdr _%e160295160308%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161192161212%_)) - (let ((_%e161197161215%_ + (gx#stx-pair? _%tl160293160313%_)) + (let ((_%e160298160316%_ (let () (declare (not safe)) - (gx#stx-e _%tl161192161212%_)))) - (let ((_%hd161196161218%_ + (gx#stx-e _%tl160293160313%_)))) + (let ((_%hd160297160319%_ (let () (declare (not safe)) - (##car _%e161197161215%_))) - (_%tl161195161220%_ + (##car _%e160298160316%_))) + (_%tl160296160321%_ (let () (declare (not safe)) - (##cdr _%e161197161215%_)))) + (##cdr _%e160298160316%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161195161220%_)) - ((lambda (_%L161223%_) - (let ((__tmp166082 + (gx#stx-null? _%tl160296160321%_)) + ((lambda (_%L160324%_) + (let ((__tmp165177 (let () (declare (not safe)) (gxc#identifier-symbol - _%L161223%_)))) + _%L160324%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx161186%_ - __tmp166082))) - _%hd161196161218%_) - (let () - (declare (not safe)) - (_%g161189161202%_ - _%g161190161205%_))))) - (let () - (declare (not safe)) - (_%g161189161202%_ _%g161190161205%_))))) - (let () - (declare (not safe)) - (_%g161189161202%_ _%g161190161205%_)))))) - (declare (not safe)) - (_%g161188161235%_ _%ann161187%_)))) + _%stx160287%_ + __tmp165177))) + _%hd160297160319%_) + (_%g160290160303%_ _%g160291160306%_)))) + (_%g160290160303%_ _%g160291160306%_)))) + (_%g160290160303%_ _%g160291160306%_))))) + (_%g160289160336%_ _%ann160288%_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_%stx161030%_ _%ann161031%_) - (let* ((_%g161033161070%_ - (lambda (_%g161034161067%_) + (lambda (_%stx160131%_ _%ann160132%_) + (let* ((_%g160134160171%_ + (lambda (_%g160135160168%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g161034161067%_)))) - (_%g161032161183%_ - (lambda (_%g161034161073%_) + _%g160135160168%_)))) + (_%g160133160284%_ + (lambda (_%g160135160174%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g161034161073%_)) - (let ((_%e161044161075%_ + (gx#stx-pair? _%g160135160174%_)) + (let ((_%e160145160176%_ (let () (declare (not safe)) - (gx#stx-e _%g161034161073%_)))) - (let ((_%hd161043161078%_ + (gx#stx-e _%g160135160174%_)))) + (let ((_%hd160144160179%_ (let () (declare (not safe)) - (##car _%e161044161075%_))) - (_%tl161042161080%_ + (##car _%e160145160176%_))) + (_%tl160143160181%_ (let () (declare (not safe)) - (##cdr _%e161044161075%_)))) + (##cdr _%e160145160176%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161042161080%_)) - (let ((_%e161047161083%_ + (gx#stx-pair? _%tl160143160181%_)) + (let ((_%e160148160184%_ (let () (declare (not safe)) - (gx#stx-e _%tl161042161080%_)))) - (let ((_%hd161046161086%_ + (gx#stx-e _%tl160143160181%_)))) + (let ((_%hd160147160187%_ (let () (declare (not safe)) - (##car _%e161047161083%_))) - (_%tl161045161088%_ + (##car _%e160148160184%_))) + (_%tl160146160189%_ (let () (declare (not safe)) - (##cdr _%e161047161083%_)))) + (##cdr _%e160148160184%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161045161088%_)) - (let ((_%e161050161091%_ + (gx#stx-pair? _%tl160146160189%_)) + (let ((_%e160151160192%_ (let () (declare (not safe)) - (gx#stx-e _%tl161045161088%_)))) - (let ((_%hd161049161094%_ + (gx#stx-e _%tl160146160189%_)))) + (let ((_%hd160150160195%_ (let () (declare (not safe)) - (##car _%e161050161091%_))) - (_%tl161048161096%_ + (##car _%e160151160192%_))) + (_%tl160149160197%_ (let () (declare (not safe)) - (##cdr _%e161050161091%_)))) + (##cdr _%e160151160192%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161048161096%_)) - (let ((_%e161053161099%_ + _%tl160149160197%_)) + (let ((_%e160154160200%_ (let () (declare (not safe)) (gx#stx-e - _%tl161048161096%_)))) - (let ((_%hd161052161102%_ + _%tl160149160197%_)))) + (let ((_%hd160153160203%_ (let () (declare (not safe)) - (##car _%e161053161099%_))) - (_%tl161051161104%_ + (##car _%e160154160200%_))) + (_%tl160152160205%_ (let () (declare (not safe)) - (##cdr _%e161053161099%_)))) + (##cdr _%e160154160200%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161051161104%_)) - (let ((_%e161056161107%_ + _%tl160152160205%_)) + (let ((_%e160157160208%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl161051161104%_)))) - (let ((_%hd161055161110%_ - (let () (declare (not safe)) (##car _%e161056161107%_))) - (_%tl161054161112%_ + (gx#stx-e _%tl160152160205%_)))) + (let ((_%hd160156160211%_ + (let () (declare (not safe)) (##car _%e160157160208%_))) + (_%tl160155160213%_ (let () (declare (not safe)) - (##cdr _%e161056161107%_)))) + (##cdr _%e160157160208%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161054161112%_)) - (let ((_%e161059161115%_ + (gx#stx-pair? _%tl160155160213%_)) + (let ((_%e160160160216%_ (let () (declare (not safe)) - (gx#stx-e _%tl161054161112%_)))) - (let ((_%hd161058161118%_ + (gx#stx-e _%tl160155160213%_)))) + (let ((_%hd160159160219%_ (let () (declare (not safe)) - (##car _%e161059161115%_))) - (_%tl161057161120%_ + (##car _%e160160160216%_))) + (_%tl160158160221%_ (let () (declare (not safe)) - (##cdr _%e161059161115%_)))) + (##cdr _%e160160160216%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161057161120%_)) - (let ((_%e161062161123%_ + (gx#stx-pair? _%tl160158160221%_)) + (let ((_%e160163160224%_ (let () (declare (not safe)) - (gx#stx-e _%tl161057161120%_)))) - (let ((_%hd161061161126%_ + (gx#stx-e _%tl160158160221%_)))) + (let ((_%hd160162160227%_ (let () (declare (not safe)) - (##car _%e161062161123%_))) - (_%tl161060161128%_ + (##car _%e160163160224%_))) + (_%tl160161160229%_ (let () (declare (not safe)) - (##cdr _%e161062161123%_)))) + (##cdr _%e160163160224%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161060161128%_)) - (let ((_%e161065161131%_ + (gx#stx-pair? _%tl160161160229%_)) + (let ((_%e160166160232%_ (let () (declare (not safe)) - (gx#stx-e _%tl161060161128%_)))) - (let ((_%hd161064161134%_ + (gx#stx-e _%tl160161160229%_)))) + (let ((_%hd160165160235%_ (let () (declare (not safe)) - (##car _%e161065161131%_))) - (_%tl161063161136%_ + (##car _%e160166160232%_))) + (_%tl160164160237%_ (let () (declare (not safe)) - (##cdr _%e161065161131%_)))) + (##cdr _%e160166160232%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161063161136%_)) - ((lambda (_%L161139%_ - _%L161140%_ - _%L161141%_ - _%L161142%_ - _%L161143%_ - _%L161144%_ - _%L161145%_) - (let ((_%type-id161175%_ + _%tl160164160237%_)) + ((lambda (_%L160240%_ + _%L160241%_ + _%L160242%_ + _%L160243%_ + _%L160244%_ + _%L160245%_ + _%L160246%_) + (let ((_%type-id160276%_ (let () (declare (not safe)) (gx#stx-e - _%L161145%_))) - (_%super161176%_ + _%L160246%_))) + (_%super160277%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L161144%_))) - (_%slots161177%_ + _%L160245%_))) + (_%slots160278%_ (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L161143%_))) - (_%ctor-method161178%_ + _%L160244%_))) + (_%ctor-method160279%_ (let () (declare (not safe)) (gx#stx-e - _%L161142%_))) - (_%struct?161179%_ + _%L160243%_))) + (_%struct?160280%_ (let () (declare (not safe)) (gx#stx-e - _%L161141%_))) - (_%final?161180%_ + _%L160242%_))) + (_%final?160281%_ (let () (declare (not safe)) (gx#stx-e - _%L161140%_))) - (_%metaclass161181%_ + _%L160241%_))) + (_%metaclass160282%_ (if (let () (declare (not safe)) (gx#stx-e - _%L161139%_)) + _%L160240%_)) (let () (declare (not safe)) (gxc#identifier-symbol - _%L161139%_)) + _%L160240%_)) '#f))) - (let ((__obj165966 + (let ((__obj165067 (let () (declare (not safe)) @@ -5301,8 +5137,8 @@ '#f '#f)))) (gxc#!class-meta:::init! - __obj165966 - (let ((__obj165965 + __obj165067 + (let ((__obj165066 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -5321,134 +5157,113 @@ '#f '#f)))) (gxc#!class:::init! - __obj165965 - _%type-id161175%_ - _%super161176%_ - _%slots161177%_ - _%ctor-method161178%_ - _%struct?161179%_ - _%final?161180%_ + __obj165066 + _%type-id160276%_ + _%super160277%_ + _%slots160278%_ + _%ctor-method160279%_ + _%struct?160280%_ + _%final?160281%_ '#f - _%metaclass161181%_) - __obj165965)) + _%metaclass160282%_) + __obj165066)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj165966))) - _%hd161064161134%_ - _%hd161061161126%_ - _%hd161058161118%_ - _%hd161055161110%_ - _%hd161052161102%_ - _%hd161049161094%_ - _%hd161046161086%_) - (let () - (declare (not safe)) - (_%g161033161070%_ - _%g161034161073%_))))) - (let () - (declare (not safe)) - (_%g161033161070%_ - _%g161034161073%_))))) - (let () - (declare (not safe)) - (_%g161033161070%_ _%g161034161073%_))))) - (let () - (declare (not safe)) - (_%g161033161070%_ _%g161034161073%_))))) - (let () - (declare (not safe)) - (_%g161033161070%_ _%g161034161073%_))))) + __obj165067))) + _%hd160165160235%_ + _%hd160162160227%_ + _%hd160159160219%_ + _%hd160156160211%_ + _%hd160153160203%_ + _%hd160150160195%_ + _%hd160147160187%_) + (_%g160134160171%_ + _%g160135160174%_)))) + (_%g160134160171%_ _%g160135160174%_)))) + (_%g160134160171%_ _%g160135160174%_)))) + (_%g160134160171%_ _%g160135160174%_)))) + (_%g160134160171%_ _%g160135160174%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g161033161070%_ - _%g161034161073%_))))) - (let () - (declare (not safe)) - (_%g161033161070%_ - _%g161034161073%_))))) - (let () - (declare (not safe)) - (_%g161033161070%_ _%g161034161073%_))))) - (let () - (declare (not safe)) - (_%g161033161070%_ _%g161034161073%_)))))) - (declare (not safe)) - (_%g161032161183%_ _%ann161031%_)))) + (_%g160134160171%_ + _%g160135160174%_)))) + (_%g160134160171%_ _%g160135160174%_)))) + (_%g160134160171%_ _%g160135160174%_)))) + (_%g160134160171%_ _%g160135160174%_))))) + (_%g160133160284%_ _%ann160132%_)))) (define gxc#basic-expression-type-annotation-mop.system - (lambda (_%stx160959%_ _%ann160960%_) - (let* ((_%g160962160979%_ - (lambda (_%g160963160976%_) + (lambda (_%stx160060%_ _%ann160061%_) + (let* ((_%g160063160080%_ + (lambda (_%g160064160077%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160963160976%_)))) - (_%g160961161027%_ - (lambda (_%g160963160982%_) + _%g160064160077%_)))) + (_%g160062160128%_ + (lambda (_%g160064160083%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160963160982%_)) - (let ((_%e160968160984%_ + (gx#stx-pair? _%g160064160083%_)) + (let ((_%e160069160085%_ (let () (declare (not safe)) - (gx#stx-e _%g160963160982%_)))) - (let ((_%hd160967160987%_ + (gx#stx-e _%g160064160083%_)))) + (let ((_%hd160068160088%_ (let () (declare (not safe)) - (##car _%e160968160984%_))) - (_%tl160966160989%_ + (##car _%e160069160085%_))) + (_%tl160067160090%_ (let () (declare (not safe)) - (##cdr _%e160968160984%_)))) + (##cdr _%e160069160085%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160966160989%_)) - (let ((_%e160971160992%_ + (gx#stx-pair? _%tl160067160090%_)) + (let ((_%e160072160093%_ (let () (declare (not safe)) - (gx#stx-e _%tl160966160989%_)))) - (let ((_%hd160970160995%_ + (gx#stx-e _%tl160067160090%_)))) + (let ((_%hd160071160096%_ (let () (declare (not safe)) - (##car _%e160971160992%_))) - (_%tl160969160997%_ + (##car _%e160072160093%_))) + (_%tl160070160098%_ (let () (declare (not safe)) - (##cdr _%e160971160992%_)))) + (##cdr _%e160072160093%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160969160997%_)) - (let ((_%e160974161000%_ + (gx#stx-pair? _%tl160070160098%_)) + (let ((_%e160075160101%_ (let () (declare (not safe)) - (gx#stx-e _%tl160969160997%_)))) - (let ((_%hd160973161003%_ + (gx#stx-e _%tl160070160098%_)))) + (let ((_%hd160074160104%_ (let () (declare (not safe)) - (##car _%e160974161000%_))) - (_%tl160972161005%_ + (##car _%e160075160101%_))) + (_%tl160073160106%_ (let () (declare (not safe)) - (##cdr _%e160974161000%_)))) + (##cdr _%e160075160101%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160972161005%_)) - ((lambda (_%L161008%_ - _%L161009%_) - (let ((_%type-id161024%_ + _%tl160073160106%_)) + ((lambda (_%L160109%_ + _%L160110%_) + (let ((_%type-id160125%_ (let () (declare (not safe)) (gx#stx-e - _%L161009%_))) - (_%super161025%_ + _%L160110%_))) + (_%super160126%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L161008%_)))) - (let ((__obj165968 + _%L160109%_)))) + (let ((__obj165069 (let () (declare (not safe)) @@ -5457,8 +5272,8 @@ '#f '#f)))) (gxc#!class-meta:::init! - __obj165968 - (let ((__obj165967 + __obj165069 + (let ((__obj165068 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -5477,83 +5292,73 @@ '#f '#f)))) (gxc#!class:::init! - __obj165967 - _%type-id161024%_ - _%super161025%_ + __obj165068 + _%type-id160125%_ + _%super160126%_ '() '#f '#f '#f '#t '#f) - __obj165967)) + __obj165068)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj165968))) - _%hd160973161003%_ - _%hd160970160995%_) - (let () - (declare (not safe)) - (_%g160962160979%_ - _%g160963160982%_))))) - (let () - (declare (not safe)) - (_%g160962160979%_ - _%g160963160982%_))))) - (let () - (declare (not safe)) - (_%g160962160979%_ _%g160963160982%_))))) - (let () - (declare (not safe)) - (_%g160962160979%_ _%g160963160982%_)))))) - (declare (not safe)) - (_%g160961161027%_ _%ann160960%_)))) + __obj165069))) + _%hd160074160104%_ + _%hd160071160096%_) + (_%g160063160080%_ + _%g160064160083%_)))) + (_%g160063160080%_ _%g160064160083%_)))) + (_%g160063160080%_ _%g160064160083%_)))) + (_%g160063160080%_ _%g160064160083%_))))) + (_%g160062160128%_ _%ann160061%_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_%stx160907%_ _%ann160908%_) - (let* ((_%g160910160923%_ - (lambda (_%g160911160920%_) + (lambda (_%stx160008%_ _%ann160009%_) + (let* ((_%g160011160024%_ + (lambda (_%g160012160021%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160911160920%_)))) - (_%g160909160956%_ - (lambda (_%g160911160926%_) + _%g160012160021%_)))) + (_%g160010160057%_ + (lambda (_%g160012160027%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160911160926%_)) - (let ((_%e160915160928%_ + (gx#stx-pair? _%g160012160027%_)) + (let ((_%e160016160029%_ (let () (declare (not safe)) - (gx#stx-e _%g160911160926%_)))) - (let ((_%hd160914160931%_ + (gx#stx-e _%g160012160027%_)))) + (let ((_%hd160015160032%_ (let () (declare (not safe)) - (##car _%e160915160928%_))) - (_%tl160913160933%_ + (##car _%e160016160029%_))) + (_%tl160014160034%_ (let () (declare (not safe)) - (##cdr _%e160915160928%_)))) + (##cdr _%e160016160029%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160913160933%_)) - (let ((_%e160918160936%_ + (gx#stx-pair? _%tl160014160034%_)) + (let ((_%e160019160037%_ (let () (declare (not safe)) - (gx#stx-e _%tl160913160933%_)))) - (let ((_%hd160917160939%_ + (gx#stx-e _%tl160014160034%_)))) + (let ((_%hd160018160040%_ (let () (declare (not safe)) - (##car _%e160918160936%_))) - (_%tl160916160941%_ + (##car _%e160019160037%_))) + (_%tl160017160042%_ (let () (declare (not safe)) - (##cdr _%e160918160936%_)))) + (##cdr _%e160019160037%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160916160941%_)) - ((lambda (_%L160944%_) - (let ((__obj165969 + (gx#stx-null? _%tl160017160042%_)) + ((lambda (_%L160045%_) + (let ((__obj165070 (let () (declare (not safe)) (##structure @@ -5561,72 +5366,64 @@ '#f '#f)))) (gxc#!constructor:::init! - __obj165969 + __obj165070 (let () (declare (not safe)) (gxc#identifier-symbol - _%L160944%_))) - __obj165969)) - _%hd160917160939%_) - (let () - (declare (not safe)) - (_%g160910160923%_ - _%g160911160926%_))))) - (let () - (declare (not safe)) - (_%g160910160923%_ _%g160911160926%_))))) - (let () - (declare (not safe)) - (_%g160910160923%_ _%g160911160926%_)))))) - (declare (not safe)) - (_%g160909160956%_ _%ann160908%_)))) + _%L160045%_))) + __obj165070)) + _%hd160018160040%_) + (_%g160011160024%_ _%g160012160027%_)))) + (_%g160011160024%_ _%g160012160027%_)))) + (_%g160011160024%_ _%g160012160027%_))))) + (_%g160010160057%_ _%ann160009%_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_%stx160855%_ _%ann160856%_) - (let* ((_%g160858160871%_ - (lambda (_%g160859160868%_) + (lambda (_%stx159956%_ _%ann159957%_) + (let* ((_%g159959159972%_ + (lambda (_%g159960159969%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160859160868%_)))) - (_%g160857160904%_ - (lambda (_%g160859160874%_) + _%g159960159969%_)))) + (_%g159958160005%_ + (lambda (_%g159960159975%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160859160874%_)) - (let ((_%e160863160876%_ + (gx#stx-pair? _%g159960159975%_)) + (let ((_%e159964159977%_ (let () (declare (not safe)) - (gx#stx-e _%g160859160874%_)))) - (let ((_%hd160862160879%_ + (gx#stx-e _%g159960159975%_)))) + (let ((_%hd159963159980%_ (let () (declare (not safe)) - (##car _%e160863160876%_))) - (_%tl160861160881%_ + (##car _%e159964159977%_))) + (_%tl159962159982%_ (let () (declare (not safe)) - (##cdr _%e160863160876%_)))) + (##cdr _%e159964159977%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160861160881%_)) - (let ((_%e160866160884%_ + (gx#stx-pair? _%tl159962159982%_)) + (let ((_%e159967159985%_ (let () (declare (not safe)) - (gx#stx-e _%tl160861160881%_)))) - (let ((_%hd160865160887%_ + (gx#stx-e _%tl159962159982%_)))) + (let ((_%hd159966159988%_ (let () (declare (not safe)) - (##car _%e160866160884%_))) - (_%tl160864160889%_ + (##car _%e159967159985%_))) + (_%tl159965159990%_ (let () (declare (not safe)) - (##cdr _%e160866160884%_)))) + (##cdr _%e159967159985%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160864160889%_)) - ((lambda (_%L160892%_) - (let ((__obj165970 + (gx#stx-null? _%tl159965159990%_)) + ((lambda (_%L159993%_) + (let ((__obj165071 (let () (declare (not safe)) (##structure @@ -5634,403 +5431,361 @@ '#f '#f)))) (gxc#!predicate:::init! - __obj165970 + __obj165071 (let () (declare (not safe)) (gxc#identifier-symbol - _%L160892%_))) - __obj165970)) - _%hd160865160887%_) - (let () - (declare (not safe)) - (_%g160858160871%_ - _%g160859160874%_))))) - (let () - (declare (not safe)) - (_%g160858160871%_ _%g160859160874%_))))) - (let () - (declare (not safe)) - (_%g160858160871%_ _%g160859160874%_)))))) - (declare (not safe)) - (_%g160857160904%_ _%ann160856%_)))) + _%L159993%_))) + __obj165071)) + _%hd159966159988%_) + (_%g159959159972%_ _%g159960159975%_)))) + (_%g159959159972%_ _%g159960159975%_)))) + (_%g159959159972%_ _%g159960159975%_))))) + (_%g159958160005%_ _%ann159957%_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_%stx160771%_ _%ann160772%_) - (let* ((_%g160774160795%_ - (lambda (_%g160775160792%_) + (lambda (_%stx159872%_ _%ann159873%_) + (let* ((_%g159875159896%_ + (lambda (_%g159876159893%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160775160792%_)))) - (_%g160773160852%_ - (lambda (_%g160775160798%_) + _%g159876159893%_)))) + (_%g159874159953%_ + (lambda (_%g159876159899%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160775160798%_)) - (let ((_%e160781160800%_ + (gx#stx-pair? _%g159876159899%_)) + (let ((_%e159882159901%_ (let () (declare (not safe)) - (gx#stx-e _%g160775160798%_)))) - (let ((_%hd160780160803%_ + (gx#stx-e _%g159876159899%_)))) + (let ((_%hd159881159904%_ (let () (declare (not safe)) - (##car _%e160781160800%_))) - (_%tl160779160805%_ + (##car _%e159882159901%_))) + (_%tl159880159906%_ (let () (declare (not safe)) - (##cdr _%e160781160800%_)))) + (##cdr _%e159882159901%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160779160805%_)) - (let ((_%e160784160808%_ + (gx#stx-pair? _%tl159880159906%_)) + (let ((_%e159885159909%_ (let () (declare (not safe)) - (gx#stx-e _%tl160779160805%_)))) - (let ((_%hd160783160811%_ + (gx#stx-e _%tl159880159906%_)))) + (let ((_%hd159884159912%_ (let () (declare (not safe)) - (##car _%e160784160808%_))) - (_%tl160782160813%_ + (##car _%e159885159909%_))) + (_%tl159883159914%_ (let () (declare (not safe)) - (##cdr _%e160784160808%_)))) + (##cdr _%e159885159909%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160782160813%_)) - (let ((_%e160787160816%_ + (gx#stx-pair? _%tl159883159914%_)) + (let ((_%e159888159917%_ (let () (declare (not safe)) - (gx#stx-e _%tl160782160813%_)))) - (let ((_%hd160786160819%_ + (gx#stx-e _%tl159883159914%_)))) + (let ((_%hd159887159920%_ (let () (declare (not safe)) - (##car _%e160787160816%_))) - (_%tl160785160821%_ + (##car _%e159888159917%_))) + (_%tl159886159922%_ (let () (declare (not safe)) - (##cdr _%e160787160816%_)))) + (##cdr _%e159888159917%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160785160821%_)) - (let ((_%e160790160824%_ + _%tl159886159922%_)) + (let ((_%e159891159925%_ (let () (declare (not safe)) (gx#stx-e - _%tl160785160821%_)))) - (let ((_%hd160789160827%_ + _%tl159886159922%_)))) + (let ((_%hd159890159928%_ (let () (declare (not safe)) - (##car _%e160790160824%_))) - (_%tl160788160829%_ + (##car _%e159891159925%_))) + (_%tl159889159930%_ (let () (declare (not safe)) - (##cdr _%e160790160824%_)))) + (##cdr _%e159891159925%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160788160829%_)) - ((lambda (_%L160832%_ - _%L160833%_ - _%L160834%_) - (let ((__obj165971 + _%tl159889159930%_)) + ((lambda (_%L159933%_ + _%L159934%_ + _%L159935%_) + (let ((__obj165072 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!accessor::t '#f '#f '#f '#f)))) (gxc#!accessor:::init! - __obj165971 + __obj165072 (let () (declare (not safe)) - (gxc#identifier-symbol _%L160834%_)) - (let () (declare (not safe)) (gx#stx-e _%L160833%_)) - (let () (declare (not safe)) (gx#stx-e _%L160832%_))) - __obj165971)) - _%hd160789160827%_ - _%hd160786160819%_ - _%hd160783160811%_) - (let () - (declare (not safe)) - (_%g160774160795%_ _%g160775160798%_))))) + (gxc#identifier-symbol _%L159935%_)) + (let () (declare (not safe)) (gx#stx-e _%L159934%_)) + (let () (declare (not safe)) (gx#stx-e _%L159933%_))) + __obj165072)) + _%hd159890159928%_ + _%hd159887159920%_ + _%hd159884159912%_) + (_%g159875159896%_ _%g159876159899%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g160774160795%_ - _%g160775160798%_))))) - (let () - (declare (not safe)) - (_%g160774160795%_ - _%g160775160798%_))))) - (let () - (declare (not safe)) - (_%g160774160795%_ _%g160775160798%_))))) - (let () - (declare (not safe)) - (_%g160774160795%_ _%g160775160798%_)))))) - (declare (not safe)) - (_%g160773160852%_ _%ann160772%_)))) + (_%g159875159896%_ + _%g159876159899%_)))) + (_%g159875159896%_ _%g159876159899%_)))) + (_%g159875159896%_ _%g159876159899%_)))) + (_%g159875159896%_ _%g159876159899%_))))) + (_%g159874159953%_ _%ann159873%_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_%stx160687%_ _%ann160688%_) - (let* ((_%g160690160711%_ - (lambda (_%g160691160708%_) + (lambda (_%stx159788%_ _%ann159789%_) + (let* ((_%g159791159812%_ + (lambda (_%g159792159809%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160691160708%_)))) - (_%g160689160768%_ - (lambda (_%g160691160714%_) + _%g159792159809%_)))) + (_%g159790159869%_ + (lambda (_%g159792159815%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160691160714%_)) - (let ((_%e160697160716%_ + (gx#stx-pair? _%g159792159815%_)) + (let ((_%e159798159817%_ (let () (declare (not safe)) - (gx#stx-e _%g160691160714%_)))) - (let ((_%hd160696160719%_ + (gx#stx-e _%g159792159815%_)))) + (let ((_%hd159797159820%_ (let () (declare (not safe)) - (##car _%e160697160716%_))) - (_%tl160695160721%_ + (##car _%e159798159817%_))) + (_%tl159796159822%_ (let () (declare (not safe)) - (##cdr _%e160697160716%_)))) + (##cdr _%e159798159817%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160695160721%_)) - (let ((_%e160700160724%_ + (gx#stx-pair? _%tl159796159822%_)) + (let ((_%e159801159825%_ (let () (declare (not safe)) - (gx#stx-e _%tl160695160721%_)))) - (let ((_%hd160699160727%_ + (gx#stx-e _%tl159796159822%_)))) + (let ((_%hd159800159828%_ (let () (declare (not safe)) - (##car _%e160700160724%_))) - (_%tl160698160729%_ + (##car _%e159801159825%_))) + (_%tl159799159830%_ (let () (declare (not safe)) - (##cdr _%e160700160724%_)))) + (##cdr _%e159801159825%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160698160729%_)) - (let ((_%e160703160732%_ + (gx#stx-pair? _%tl159799159830%_)) + (let ((_%e159804159833%_ (let () (declare (not safe)) - (gx#stx-e _%tl160698160729%_)))) - (let ((_%hd160702160735%_ + (gx#stx-e _%tl159799159830%_)))) + (let ((_%hd159803159836%_ (let () (declare (not safe)) - (##car _%e160703160732%_))) - (_%tl160701160737%_ + (##car _%e159804159833%_))) + (_%tl159802159838%_ (let () (declare (not safe)) - (##cdr _%e160703160732%_)))) + (##cdr _%e159804159833%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160701160737%_)) - (let ((_%e160706160740%_ + _%tl159802159838%_)) + (let ((_%e159807159841%_ (let () (declare (not safe)) (gx#stx-e - _%tl160701160737%_)))) - (let ((_%hd160705160743%_ + _%tl159802159838%_)))) + (let ((_%hd159806159844%_ (let () (declare (not safe)) - (##car _%e160706160740%_))) - (_%tl160704160745%_ + (##car _%e159807159841%_))) + (_%tl159805159846%_ (let () (declare (not safe)) - (##cdr _%e160706160740%_)))) + (##cdr _%e159807159841%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160704160745%_)) - ((lambda (_%L160748%_ - _%L160749%_ - _%L160750%_) - (let ((__obj165972 + _%tl159805159846%_)) + ((lambda (_%L159849%_ + _%L159850%_ + _%L159851%_) + (let ((__obj165073 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!mutator::t '#f '#f '#f '#f)))) (gxc#!mutator:::init! - __obj165972 + __obj165073 (let () (declare (not safe)) - (gxc#identifier-symbol _%L160750%_)) - (let () (declare (not safe)) (gx#stx-e _%L160749%_)) - (let () (declare (not safe)) (gx#stx-e _%L160748%_))) - __obj165972)) - _%hd160705160743%_ - _%hd160702160735%_ - _%hd160699160727%_) - (let () - (declare (not safe)) - (_%g160690160711%_ _%g160691160714%_))))) + (gxc#identifier-symbol _%L159851%_)) + (let () (declare (not safe)) (gx#stx-e _%L159850%_)) + (let () (declare (not safe)) (gx#stx-e _%L159849%_))) + __obj165073)) + _%hd159806159844%_ + _%hd159803159836%_ + _%hd159800159828%_) + (_%g159791159812%_ _%g159792159815%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g160690160711%_ - _%g160691160714%_))))) - (let () - (declare (not safe)) - (_%g160690160711%_ - _%g160691160714%_))))) - (let () - (declare (not safe)) - (_%g160690160711%_ _%g160691160714%_))))) - (let () - (declare (not safe)) - (_%g160690160711%_ _%g160691160714%_)))))) - (declare (not safe)) - (_%g160689160768%_ _%ann160688%_)))) + (_%g159791159812%_ + _%g159792159815%_)))) + (_%g159791159812%_ _%g159792159815%_)))) + (_%g159791159812%_ _%g159792159815%_)))) + (_%g159791159812%_ _%g159792159815%_))))) + (_%g159790159869%_ _%ann159789%_)))) (define gxc#basic-expression-type-annotation-interface - (lambda (_%stx160619%_ _%ann160620%_) - (let* ((_%g160622160639%_ - (lambda (_%g160623160636%_) + (lambda (_%stx159720%_ _%ann159721%_) + (let* ((_%g159723159740%_ + (lambda (_%g159724159737%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160623160636%_)))) - (_%g160621160684%_ - (lambda (_%g160623160642%_) + _%g159724159737%_)))) + (_%g159722159785%_ + (lambda (_%g159724159743%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160623160642%_)) - (let ((_%e160628160644%_ + (gx#stx-pair? _%g159724159743%_)) + (let ((_%e159729159745%_ (let () (declare (not safe)) - (gx#stx-e _%g160623160642%_)))) - (let ((_%hd160627160647%_ + (gx#stx-e _%g159724159743%_)))) + (let ((_%hd159728159748%_ (let () (declare (not safe)) - (##car _%e160628160644%_))) - (_%tl160626160649%_ + (##car _%e159729159745%_))) + (_%tl159727159750%_ (let () (declare (not safe)) - (##cdr _%e160628160644%_)))) + (##cdr _%e159729159745%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160626160649%_)) - (let ((_%e160631160652%_ + (gx#stx-pair? _%tl159727159750%_)) + (let ((_%e159732159753%_ (let () (declare (not safe)) - (gx#stx-e _%tl160626160649%_)))) - (let ((_%hd160630160655%_ + (gx#stx-e _%tl159727159750%_)))) + (let ((_%hd159731159756%_ (let () (declare (not safe)) - (##car _%e160631160652%_))) - (_%tl160629160657%_ + (##car _%e159732159753%_))) + (_%tl159730159758%_ (let () (declare (not safe)) - (##cdr _%e160631160652%_)))) + (##cdr _%e159732159753%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160629160657%_)) - (let ((_%e160634160660%_ + (gx#stx-pair? _%tl159730159758%_)) + (let ((_%e159735159761%_ (let () (declare (not safe)) - (gx#stx-e _%tl160629160657%_)))) - (let ((_%hd160633160663%_ + (gx#stx-e _%tl159730159758%_)))) + (let ((_%hd159734159764%_ (let () (declare (not safe)) - (##car _%e160634160660%_))) - (_%tl160632160665%_ + (##car _%e159735159761%_))) + (_%tl159733159766%_ (let () (declare (not safe)) - (##cdr _%e160634160660%_)))) + (##cdr _%e159735159761%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160632160665%_)) - ((lambda (_%L160668%_ - _%L160669%_) - (let ((__tmp166084 + _%tl159733159766%_)) + ((lambda (_%L159769%_ + _%L159770%_) + (let ((__tmp165179 (let () (declare (not safe)) (gxc#identifier-symbol - _%L160669%_))) - (__tmp166083 + _%L159770%_))) + (__tmp165178 (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L160668%_)))) + _%L159769%_)))) (declare (not safe)) (##structure gxc#!interface::t - __tmp166084 - __tmp166083))) - _%hd160633160663%_ - _%hd160630160655%_) - (let () - (declare (not safe)) - (_%g160622160639%_ - _%g160623160642%_))))) - (let () - (declare (not safe)) - (_%g160622160639%_ - _%g160623160642%_))))) - (let () - (declare (not safe)) - (_%g160622160639%_ _%g160623160642%_))))) - (let () - (declare (not safe)) - (_%g160622160639%_ _%g160623160642%_)))))) - (declare (not safe)) - (_%g160621160684%_ _%ann160620%_)))) + __tmp165179 + __tmp165178))) + _%hd159734159764%_ + _%hd159731159756%_) + (_%g159723159740%_ + _%g159724159743%_)))) + (_%g159723159740%_ _%g159724159743%_)))) + (_%g159723159740%_ _%g159724159743%_)))) + (_%g159723159740%_ _%g159724159743%_))))) + (_%g159722159785%_ _%ann159721%_)))) (define gxc#basic-expression-type-annotation-predicate - (lambda (_%stx160567%_ _%ann160568%_) - (let* ((_%g160570160583%_ - (lambda (_%g160571160580%_) + (lambda (_%stx159668%_ _%ann159669%_) + (let* ((_%g159671159684%_ + (lambda (_%g159672159681%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160571160580%_)))) - (_%g160569160616%_ - (lambda (_%g160571160586%_) + _%g159672159681%_)))) + (_%g159670159717%_ + (lambda (_%g159672159687%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160571160586%_)) - (let ((_%e160575160588%_ + (gx#stx-pair? _%g159672159687%_)) + (let ((_%e159676159689%_ (let () (declare (not safe)) - (gx#stx-e _%g160571160586%_)))) - (let ((_%hd160574160591%_ + (gx#stx-e _%g159672159687%_)))) + (let ((_%hd159675159692%_ (let () (declare (not safe)) - (##car _%e160575160588%_))) - (_%tl160573160593%_ + (##car _%e159676159689%_))) + (_%tl159674159694%_ (let () (declare (not safe)) - (##cdr _%e160575160588%_)))) + (##cdr _%e159676159689%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160573160593%_)) - (let ((_%e160578160596%_ + (gx#stx-pair? _%tl159674159694%_)) + (let ((_%e159679159697%_ (let () (declare (not safe)) - (gx#stx-e _%tl160573160593%_)))) - (let ((_%hd160577160599%_ + (gx#stx-e _%tl159674159694%_)))) + (let ((_%hd159678159700%_ (let () (declare (not safe)) - (##car _%e160578160596%_))) - (_%tl160576160601%_ + (##car _%e159679159697%_))) + (_%tl159677159702%_ (let () (declare (not safe)) - (##cdr _%e160578160596%_)))) + (##cdr _%e159679159697%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160576160601%_)) - ((lambda (_%L160604%_) - (let ((__obj165973 + (gx#stx-null? _%tl159677159702%_)) + ((lambda (_%L159705%_) + (let ((__obj165074 (let () (declare (not safe)) (##structure @@ -6038,70 +5793,57 @@ '#f '#f)))) (gxc#!primitive-predicate:::init! - __obj165973 + __obj165074 (let () (declare (not safe)) (gxc#identifier-symbol - _%L160604%_))) - __obj165973)) - _%hd160577160599%_) - (let () - (declare (not safe)) - (_%g160570160583%_ - _%g160571160586%_))))) - (let () - (declare (not safe)) - (_%g160570160583%_ _%g160571160586%_))))) - (let () - (declare (not safe)) - (_%g160570160583%_ _%g160571160586%_)))))) - (declare (not safe)) - (_%g160569160616%_ _%ann160568%_)))) + _%L159705%_))) + __obj165074)) + _%hd159678159700%_) + (_%g159671159684%_ _%g159672159687%_)))) + (_%g159671159684%_ _%g159672159687%_)))) + (_%g159671159684%_ _%g159672159687%_))))) + (_%g159670159717%_ _%ann159669%_)))) (define gxc#basic-expression-type-annotation-abort - (lambda (_%stx160537%_ _%ann160538%_) - (let* ((_%g160540160549%_ - (lambda (_%g160541160546%_) + (lambda (_%stx159638%_ _%ann159639%_) + (let* ((_%g159641159650%_ + (lambda (_%g159642159647%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160541160546%_)))) - (_%g160539160564%_ - (lambda (_%g160541160552%_) + _%g159642159647%_)))) + (_%g159640159665%_ + (lambda (_%g159642159653%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160541160552%_)) - (let ((_%e160544160554%_ + (gx#stx-pair? _%g159642159653%_)) + (let ((_%e159645159655%_ (let () (declare (not safe)) - (gx#stx-e _%g160541160552%_)))) - (let ((_%hd160543160557%_ + (gx#stx-e _%g159642159653%_)))) + (let ((_%hd159644159658%_ (let () (declare (not safe)) - (##car _%e160544160554%_))) - (_%tl160542160559%_ + (##car _%e159645159655%_))) + (_%tl159643159660%_ (let () (declare (not safe)) - (##cdr _%e160544160554%_)))) + (##cdr _%e159645159655%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160542160559%_)) + (gx#stx-null? _%tl159643159660%_)) ((lambda () - (let ((__obj165974 + (let ((__obj165075 (let () (declare (not safe)) (##structure gxc#!abort::t '#f)))) - (gxc#!abort:::init! __obj165974) - __obj165974))) - (let () - (declare (not safe)) - (_%g160540160549%_ _%g160541160552%_))))) - (let () - (declare (not safe)) - (_%g160540160549%_ _%g160541160552%_)))))) - (declare (not safe)) - (_%g160539160564%_ _%ann160538%_)))) + (gxc#!abort:::init! __obj165075) + __obj165075))) + (_%g159641159650%_ _%g159642159653%_)))) + (_%g159641159650%_ _%g159642159653%_))))) + (_%g159640159665%_ _%ann159639%_)))) (let () (declare (not safe)) (hash-put! @@ -6163,19 +5905,19 @@ '@abort gxc#basic-expression-type-annotation-abort)) (define gxc#raw-expression-type-lambda% - (lambda (_%self160469%_ _%stx160470%_) - (let* ((_%__stx164006164007%_ _%stx160470%_) - (_%g160473160487%_ + (lambda (_%self159570%_ _%stx159571%_) + (let* ((_%__stx163107163108%_ _%stx159571%_) + (_%g159574159588%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx164006164007%_))))) - (let ((_%__kont164008164009%_ - (lambda (_%L160525%_) - (let ((__obj165975 + _%__stx163107163108%_))))) + (let ((_%__kont163109163110%_ + (lambda (_%L159626%_) + (let ((__obj165076 (let () (declare (not safe)) (##structure @@ -6187,21 +5929,15 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj165975 - (let () - (declare (not safe)) - (gxc#lambda-form-arity _%L160525%_)) - (let () - (declare (not safe)) - (gxc#dispatch-lambda-form-delegate _%L160525%_))) - __obj165975))) - (_%__kont164010164011%_ - (lambda (_%L160500%_) - (let* ((_%signature160510%_ - (let () - (declare (not safe)) - (gxc#lambda-form-infer-signature _%L160500%_))) - (__obj165976 + __obj165076 + (gxc#lambda-form-arity _%L159626%_) + (gxc#dispatch-lambda-form-delegate _%L159626%_)) + __obj165076))) + (_%__kont163111163112%_ + (lambda (_%L159601%_) + (let* ((_%signature159611%_ + (gxc#lambda-form-infer-signature _%L159601%_)) + (__obj165077 (let () (declare (not safe)) (##structure @@ -6213,96 +5949,92 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj165976 - (let () - (declare (not safe)) - (gxc#lambda-form-arity _%L160500%_)) + __obj165077 + (gxc#lambda-form-arity _%L159601%_) '#f 'signature: - _%signature160510%_) - __obj165976)))) - (let ((_%__match164017164018%_ - (lambda (_%e160478160517%_ - _%hd160477160520%_ - _%tl160476160522%_) - (let ((_%L160525%_ _%tl160476160522%_)) - (if (let () - (declare (not safe)) - (gxc#dispatch-lambda-form? _%L160525%_)) - (_%__kont164008164009%_ _%L160525%_) - (_%__kont164010164011%_ _%tl160476160522%_)))))) + _%signature159611%_) + __obj165077)))) + (let ((_%__match163118163119%_ + (lambda (_%e159579159618%_ + _%hd159578159621%_ + _%tl159577159623%_) + (let ((_%L159626%_ _%tl159577159623%_)) + (if (gxc#dispatch-lambda-form? _%L159626%_) + (_%__kont163109163110%_ _%L159626%_) + (_%__kont163111163112%_ _%tl159577159623%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx164006164007%_)) - (let ((_%e160478160517%_ + (gx#stx-pair? _%__stx163107163108%_)) + (let ((_%e159579159618%_ (let () (declare (not safe)) - (gx#stx-e _%__stx164006164007%_)))) - (let ((_%tl160476160522%_ + (gx#stx-e _%__stx163107163108%_)))) + (let ((_%tl159577159623%_ (let () (declare (not safe)) - (##cdr _%e160478160517%_))) - (_%hd160477160520%_ + (##cdr _%e159579159618%_))) + (_%hd159578159621%_ (let () (declare (not safe)) - (##car _%e160478160517%_)))) - (_%__match164017164018%_ - _%e160478160517%_ - _%hd160477160520%_ - _%tl160476160522%_))) - (let () (declare (not safe)) (_%g160473160487%_)))))))) + (##car _%e159579159618%_)))) + (_%__match163118163119%_ + _%e159579159618%_ + _%hd159578159621%_ + _%tl159577159623%_))) + (let () (declare (not safe)) (_%g159574159588%_)))))))) (define gxc#basic-expression-type-lambda% - (lambda (_%self159613%_ _%stx159614%_) - (let* ((_%__stx164026164027%_ _%stx159614%_) - (_%g159619159811%_ + (lambda (_%self158714%_ _%stx158715%_) + (let* ((_%__stx163127163128%_ _%stx158715%_) + (_%g158720158912%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx164026164027%_))))) - (let ((_%__kont164028164029%_ - (lambda (_%L160406%_ - _%L160407%_ - _%L160408%_ - _%L160409%_ - _%L160410%_ - _%L160411%_) - (let* ((_%tab160461%_ + _%__stx163127163128%_))))) + (let ((_%__kont163129163130%_ + (lambda (_%L159507%_ + _%L159508%_ + _%L159509%_ + _%L159510%_ + _%L159511%_ + _%L159512%_) + (let* ((_%tab159562%_ (let () (declare (not safe)) - (gx#stx-e _%L160408%_))) - (_%keys160463%_ - (if _%tab160461%_ - (let ((__tmp166085 - (vector->list _%tab160461%_))) + (gx#stx-e _%L159509%_))) + (_%keys159564%_ + (if _%tab159562%_ + (let ((__tmp165180 + (vector->list _%tab159562%_))) (declare (not safe)) - (##filter identity __tmp166085)) + (##filter identity __tmp165180)) '#f)) - (__obj165977 + (__obj165078 (let () (declare (not safe)) (##structure gxc#!kw-lambda::t '#f '#f '#f '#f)))) (gxc#!kw-lambda:::init! - __obj165977 - _%keys160463%_ + __obj165078 + _%keys159564%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L160407%_))) - __obj165977))) - (_%__kont164030164031%_ - (lambda (_%L160139%_ - _%L160140%_ - _%L160141%_ - _%L160142%_ - _%L160143%_ - _%L160144%_ - _%L160145%_ - _%L160146%_ - _%L160147%_ - _%L160148%_) - (let ((__obj165978 + (gxc#identifier-symbol _%L159508%_))) + __obj165078))) + (_%__kont163131163132%_ + (lambda (_%L159240%_ + _%L159241%_ + _%L159242%_ + _%L159243%_ + _%L159244%_ + _%L159245%_ + _%L159246%_ + _%L159247%_ + _%L159248%_ + _%L159249%_) + (let ((__obj165079 (let () (declare (not safe)) (##structure @@ -6312,21 +6044,21 @@ '#f '#f)))) (gxc#!kw-lambda-primary:::init! - __obj165978 + __obj165079 (map gx#stx-e - (let ((__tmp166086 - (lambda (_%g160241160244%_ _%g160242160246%_) - (cons _%g160241160244%_ - _%g160242160246%_)))) + (let ((__tmp165181 + (lambda (_%g159342159345%_ _%g159343159347%_) + (cons _%g159342159345%_ + _%g159343159347%_)))) (declare (not safe)) - (__foldr1 __tmp166086 '() _%L160141%_))) + (__foldr1 __tmp165181 '() _%L159242%_))) (let () (declare (not safe)) - (gxc#identifier-symbol _%L160145%_))) - __obj165978))) - (_%__kont164034164035%_ - (lambda (_%L159849%_) - (let ((__obj165979 + (gxc#identifier-symbol _%L159246%_))) + __obj165079))) + (_%__kont163135163136%_ + (lambda (_%L158950%_) + (let ((__obj165080 (let () (declare (not safe)) (##structure @@ -6338,21 +6070,15 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj165979 - (let () - (declare (not safe)) - (gxc#lambda-form-arity _%L159849%_)) - (let () - (declare (not safe)) - (gxc#dispatch-lambda-form-delegate _%L159849%_))) - __obj165979))) - (_%__kont164036164037%_ - (lambda (_%L159824%_) - (let* ((_%signature159834%_ - (let () - (declare (not safe)) - (gxc#lambda-form-infer-signature _%L159824%_))) - (__obj165980 + __obj165080 + (gxc#lambda-form-arity _%L158950%_) + (gxc#dispatch-lambda-form-delegate _%L158950%_)) + __obj165080))) + (_%__kont163137163138%_ + (lambda (_%L158925%_) + (let* ((_%signature158935%_ + (gxc#lambda-form-infer-signature _%L158925%_)) + (__obj165081 (let () (declare (not safe)) (##structure @@ -6364,1952 +6090,1934 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj165980 - (let () - (declare (not safe)) - (gxc#lambda-form-arity _%L159824%_)) + __obj165081 + (gxc#lambda-form-arity _%L158925%_) '#f 'signature: - _%signature159834%_) - __obj165980)))) - (let* ((_%__match164335164336%_ - (lambda (_%e159802159841%_ - _%hd159801159844%_ - _%tl159800159846%_) - (let ((_%L159849%_ _%tl159800159846%_)) - (if (let () - (declare (not safe)) - (gxc#dispatch-lambda-form? _%L159849%_)) - (_%__kont164034164035%_ _%L159849%_) - (_%__kont164036164037%_ _%tl159800159846%_))))) - (_%__match164329164330%_ - (lambda (_%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_ - _%e159699159871%_ - _%hd159698159874%_ - _%tl159697159876%_ - _%e159702159879%_ - _%hd159701159882%_ - _%tl159700159884%_ - _%e159705159887%_ - _%hd159704159890%_ - _%tl159703159892%_ - _%e159708159895%_ - _%hd159707159898%_ - _%tl159706159900%_ - _%e159711159903%_ - _%hd159710159906%_ - _%tl159709159908%_ - _%e159714159911%_ - _%hd159713159914%_ - _%tl159712159916%_ - _%e159717159919%_ - _%hd159716159922%_ - _%tl159715159924%_ - _%e159720159927%_ - _%hd159719159930%_ - _%tl159718159932%_ - _%e159723159935%_ - _%hd159722159938%_ - _%tl159721159940%_ - _%e159726159943%_ - _%hd159725159946%_ - _%tl159724159948%_ - _%e159729159951%_ - _%hd159728159954%_ - _%tl159727159956%_ - _%e159732159959%_ - _%hd159731159962%_ - _%tl159730159964%_ - _%e159735159967%_ - _%hd159734159970%_ - _%tl159733159972%_ - _%__splice164032164033%_ - _%target159736159975%_ - _%tl159738159977%_ - _%e159753159980%_ - _%hd159752159983%_ - _%tl159751159985%_ - _%e159756159988%_ - _%hd159755159991%_ - _%tl159754159993%_ - _%e159759159996%_ - _%hd159758159999%_ - _%tl159757160001%_) - (letrec ((_%loop159739160004%_ - (lambda (_%hd159737160007%_ - _%-absent-value159743160009%_ - _%key159744160011%_ - _%-xkwvar159745160013%_ - _%-hash-ref159746160015%_) + _%signature158935%_) + __obj165081)))) + (let* ((_%__match163436163437%_ + (lambda (_%e158903158942%_ + _%hd158902158945%_ + _%tl158901158947%_) + (let ((_%L158950%_ _%tl158901158947%_)) + (if (gxc#dispatch-lambda-form? _%L158950%_) + (_%__kont163135163136%_ _%L158950%_) + (_%__kont163137163138%_ _%tl158901158947%_))))) + (_%__match163430163431%_ + (lambda (_%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_ + _%e158800158972%_ + _%hd158799158975%_ + _%tl158798158977%_ + _%e158803158980%_ + _%hd158802158983%_ + _%tl158801158985%_ + _%e158806158988%_ + _%hd158805158991%_ + _%tl158804158993%_ + _%e158809158996%_ + _%hd158808158999%_ + _%tl158807159001%_ + _%e158812159004%_ + _%hd158811159007%_ + _%tl158810159009%_ + _%e158815159012%_ + _%hd158814159015%_ + _%tl158813159017%_ + _%e158818159020%_ + _%hd158817159023%_ + _%tl158816159025%_ + _%e158821159028%_ + _%hd158820159031%_ + _%tl158819159033%_ + _%e158824159036%_ + _%hd158823159039%_ + _%tl158822159041%_ + _%e158827159044%_ + _%hd158826159047%_ + _%tl158825159049%_ + _%e158830159052%_ + _%hd158829159055%_ + _%tl158828159057%_ + _%e158833159060%_ + _%hd158832159063%_ + _%tl158831159065%_ + _%e158836159068%_ + _%hd158835159071%_ + _%tl158834159073%_ + _%__splice163133163134%_ + _%target158837159076%_ + _%tl158839159078%_ + _%e158854159081%_ + _%hd158853159084%_ + _%tl158852159086%_ + _%e158857159089%_ + _%hd158856159092%_ + _%tl158855159094%_ + _%e158860159097%_ + _%hd158859159100%_ + _%tl158858159102%_) + (letrec ((_%loop158840159105%_ + (lambda (_%hd158838159108%_ + _%-absent-value158844159110%_ + _%key158845159112%_ + _%-xkwvar158846159114%_ + _%-hash-ref158847159116%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159737160007%_)) - (let ((_%e159740160018%_ + (gx#stx-pair? _%hd158838159108%_)) + (let ((_%e158841159119%_ (let () (declare (not safe)) - (gx#stx-e _%hd159737160007%_)))) - (let ((_%lp-tl159742160023%_ + (gx#stx-e _%hd158838159108%_)))) + (let ((_%lp-tl158843159124%_ (let () (declare (not safe)) - (##cdr _%e159740160018%_))) - (_%lp-hd159741160021%_ + (##cdr _%e158841159119%_))) + (_%lp-hd158842159122%_ (let () (declare (not safe)) - (##car _%e159740160018%_)))) + (##car _%e158841159119%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd159741160021%_)) - (let ((_%e159762160026%_ + _%lp-hd158842159122%_)) + (let ((_%e158863159127%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd159741160021%_)))) - (let ((_%tl159760160031%_ + _%lp-hd158842159122%_)))) + (let ((_%tl158861159132%_ (let () (declare (not safe)) - (##cdr _%e159762160026%_))) - (_%hd159761160029%_ + (##cdr _%e158863159127%_))) + (_%hd158862159130%_ (let () (declare (not safe)) - (##car _%e159762160026%_)))) + (##car _%e158863159127%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159761160029%_)) + _%hd158862159130%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd159761160029%_)) + _%hd158862159130%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl159760160031%_)) - (let ((_%e159765160034%_ + (gx#stx-pair? _%tl158861159132%_)) + (let ((_%e158866159135%_ (let () (declare (not safe)) - (gx#stx-e _%tl159760160031%_)))) - (let ((_%tl159763160039%_ + (gx#stx-e _%tl158861159132%_)))) + (let ((_%tl158864159140%_ (let () (declare (not safe)) - (##cdr _%e159765160034%_))) - (_%hd159764160037%_ + (##cdr _%e158866159135%_))) + (_%hd158865159138%_ (let () (declare (not safe)) - (##car _%e159765160034%_)))) + (##car _%e158866159135%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159764160037%_)) - (let ((_%e159768160042%_ + (gx#stx-pair? _%hd158865159138%_)) + (let ((_%e158869159143%_ (let () (declare (not safe)) - (gx#stx-e _%hd159764160037%_)))) - (let ((_%tl159766160047%_ + (gx#stx-e _%hd158865159138%_)))) + (let ((_%tl158867159148%_ (let () (declare (not safe)) - (##cdr _%e159768160042%_))) - (_%hd159767160045%_ + (##cdr _%e158869159143%_))) + (_%hd158868159146%_ (let () (declare (not safe)) - (##car _%e159768160042%_)))) + (##car _%e158869159143%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159767160045%_)) + (gx#identifier? _%hd158868159146%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159767160045%_)) + _%hd158868159146%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159766160047%_)) - (let ((_%e159771160050%_ + _%tl158867159148%_)) + (let ((_%e158872159151%_ (let () (declare (not safe)) (gx#stx-e - _%tl159766160047%_)))) - (let ((_%tl159769160055%_ + _%tl158867159148%_)))) + (let ((_%tl158870159156%_ (let () (declare (not safe)) - (##cdr _%e159771160050%_))) - (_%hd159770160053%_ + (##cdr _%e158872159151%_))) + (_%hd158871159154%_ (let () (declare (not safe)) - (##car _%e159771160050%_)))) + (##car _%e158872159151%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159769160055%_)) + _%tl158870159156%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159763160039%_)) - (let ((_%e159774160058%_ + _%tl158864159140%_)) + (let ((_%e158875159159%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl159763160039%_)))) - (let ((_%tl159772160063%_ + (gx#stx-e _%tl158864159140%_)))) + (let ((_%tl158873159164%_ (let () (declare (not safe)) - (##cdr _%e159774160058%_))) - (_%hd159773160061%_ + (##cdr _%e158875159159%_))) + (_%hd158874159162%_ (let () (declare (not safe)) - (##car _%e159774160058%_)))) + (##car _%e158875159159%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159773160061%_)) - (let ((_%e159777160066%_ + (gx#stx-pair? _%hd158874159162%_)) + (let ((_%e158878159167%_ (let () (declare (not safe)) - (gx#stx-e _%hd159773160061%_)))) - (let ((_%tl159775160071%_ + (gx#stx-e _%hd158874159162%_)))) + (let ((_%tl158876159172%_ (let () (declare (not safe)) - (##cdr _%e159777160066%_))) - (_%hd159776160069%_ + (##cdr _%e158878159167%_))) + (_%hd158877159170%_ (let () (declare (not safe)) - (##car _%e159777160066%_)))) + (##car _%e158878159167%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159776160069%_)) + (gx#identifier? _%hd158877159170%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159776160069%_)) + (gx#stx-eq? '%#ref _%hd158877159170%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159775160071%_)) - (let ((_%e159780160074%_ + (gx#stx-pair? _%tl158876159172%_)) + (let ((_%e158881159175%_ (let () (declare (not safe)) (gx#stx-e - _%tl159775160071%_)))) - (let ((_%tl159778160079%_ + _%tl158876159172%_)))) + (let ((_%tl158879159180%_ (let () (declare (not safe)) - (##cdr _%e159780160074%_))) - (_%hd159779160077%_ + (##cdr _%e158881159175%_))) + (_%hd158880159178%_ (let () (declare (not safe)) - (##car _%e159780160074%_)))) + (##car _%e158881159175%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159778160079%_)) + _%tl158879159180%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159772160063%_)) - (let ((_%e159783160082%_ + _%tl158873159164%_)) + (let ((_%e158884159183%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl159772160063%_)))) - (let ((_%tl159781160087%_ - (let () (declare (not safe)) (##cdr _%e159783160082%_))) - (_%hd159782160085%_ + (gx#stx-e _%tl158873159164%_)))) + (let ((_%tl158882159188%_ + (let () (declare (not safe)) (##cdr _%e158884159183%_))) + (_%hd158883159186%_ (let () (declare (not safe)) - (##car _%e159783160082%_)))) + (##car _%e158884159183%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159782160085%_)) - (let ((_%e159786160090%_ + (gx#stx-pair? _%hd158883159186%_)) + (let ((_%e158887159191%_ (let () (declare (not safe)) - (gx#stx-e _%hd159782160085%_)))) - (let ((_%tl159784160095%_ + (gx#stx-e _%hd158883159186%_)))) + (let ((_%tl158885159196%_ (let () (declare (not safe)) - (##cdr _%e159786160090%_))) - (_%hd159785160093%_ + (##cdr _%e158887159191%_))) + (_%hd158886159194%_ (let () (declare (not safe)) - (##car _%e159786160090%_)))) + (##car _%e158887159191%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159785160093%_)) + (gx#identifier? _%hd158886159194%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd159785160093%_)) + (gx#stx-eq? '%#quote _%hd158886159194%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159784160095%_)) - (let ((_%e159789160098%_ + (gx#stx-pair? _%tl158885159196%_)) + (let ((_%e158890159199%_ (let () (declare (not safe)) - (gx#stx-e _%tl159784160095%_)))) - (let ((_%tl159787160103%_ + (gx#stx-e _%tl158885159196%_)))) + (let ((_%tl158888159204%_ (let () (declare (not safe)) - (##cdr _%e159789160098%_))) - (_%hd159788160101%_ + (##cdr _%e158890159199%_))) + (_%hd158889159202%_ (let () (declare (not safe)) - (##car _%e159789160098%_)))) + (##car _%e158890159199%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159787160103%_)) + _%tl158888159204%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159781160087%_)) - (let ((_%e159792160106%_ + _%tl158882159188%_)) + (let ((_%e158893159207%_ (let () (declare (not safe)) (gx#stx-e - _%tl159781160087%_)))) - (let ((_%tl159790160111%_ + _%tl158882159188%_)))) + (let ((_%tl158891159212%_ (let () (declare (not safe)) - (##cdr _%e159792160106%_))) - (_%hd159791160109%_ + (##cdr _%e158893159207%_))) + (_%hd158892159210%_ (let () (declare (not safe)) - (##car _%e159792160106%_)))) + (##car _%e158893159207%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159791160109%_)) - (let ((_%e159795160114%_ + _%hd158892159210%_)) + (let ((_%e158896159215%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd159791160109%_)))) - (let ((_%tl159793160119%_ + (gx#stx-e _%hd158892159210%_)))) + (let ((_%tl158894159220%_ (let () (declare (not safe)) - (##cdr _%e159795160114%_))) - (_%hd159794160117%_ + (##cdr _%e158896159215%_))) + (_%hd158895159218%_ (let () (declare (not safe)) - (##car _%e159795160114%_)))) + (##car _%e158896159215%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159794160117%_)) + (gx#identifier? _%hd158895159218%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159794160117%_)) + (gx#stx-eq? '%#ref _%hd158895159218%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159793160119%_)) - (let ((_%e159798160122%_ + (gx#stx-pair? _%tl158894159220%_)) + (let ((_%e158899159223%_ (let () (declare (not safe)) - (gx#stx-e _%tl159793160119%_)))) - (let ((_%tl159796160127%_ + (gx#stx-e _%tl158894159220%_)))) + (let ((_%tl158897159228%_ (let () (declare (not safe)) - (##cdr _%e159798160122%_))) - (_%hd159797160125%_ + (##cdr _%e158899159223%_))) + (_%hd158898159226%_ (let () (declare (not safe)) - (##car _%e159798160122%_)))) + (##car _%e158899159223%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159796160127%_)) + (gx#stx-null? _%tl158897159228%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159790160111%_)) - (let ((__tmp166090 - (cons _%hd159797160125%_ - _%-absent-value159743160009%_)) - (__tmp166089 - (cons _%hd159788160101%_ - _%key159744160011%_)) - (__tmp166088 - (cons _%hd159779160077%_ - _%-xkwvar159745160013%_)) - (__tmp166087 - (cons _%hd159770160053%_ - _%-hash-ref159746160015%_))) - (declare (not safe)) - (_%loop159739160004%_ - _%lp-tl159742160023%_ - __tmp166090 - __tmp166089 - __tmp166088 - __tmp166087)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) + _%tl158891159212%_)) + (_%loop158840159105%_ + _%lp-tl158843159124%_ + (cons _%hd158898159226%_ + _%-absent-value158844159110%_) + (cons _%hd158889159202%_ + _%key158845159112%_) + (cons _%hd158880159178%_ + _%-xkwvar158846159114%_) + (cons _%hd158871159154%_ + _%-hash-ref158847159116%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (let ((_%-hash-ref159750160136%_ - (reverse _%-hash-ref159746160015%_)) - (_%-xkwvar159749160134%_ - (reverse _%-xkwvar159745160013%_)) - (_%key159748160132%_ - (reverse _%key159744160011%_)) - (_%-absent-value159747160130%_ - (reverse _%-absent-value159743160009%_))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (let ((_%-hash-ref158851159237%_ + (reverse _%-hash-ref158847159116%_)) + (_%-xkwvar158850159235%_ + (reverse _%-xkwvar158846159114%_)) + (_%key158849159233%_ + (reverse _%key158845159112%_)) + (_%-absent-value158848159231%_ + (reverse _%-absent-value158844159110%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159703159892%_)) - (let ((_%L160139%_ - _%hd159758159999%_) - (_%L160140%_ - _%-absent-value159747160130%_) - (_%L160141%_ - _%key159748160132%_) - (_%L160142%_ - _%-xkwvar159749160134%_) - (_%L160143%_ - _%-hash-ref159750160136%_) - (_%L160144%_ - _%hd159734159970%_) - (_%L160145%_ - _%hd159725159946%_) - (_%L160146%_ - _%hd159716159922%_) - (_%L160147%_ - _%tl159700159884%_) - (_%L160148%_ - _%hd159701159882%_)) + _%tl158804158993%_)) + (let ((_%L159240%_ + _%hd158859159100%_) + (_%L159241%_ + _%-absent-value158848159231%_) + (_%L159242%_ + _%key158849159233%_) + (_%L159243%_ + _%-xkwvar158850159235%_) + (_%L159244%_ + _%-hash-ref158851159237%_) + (_%L159245%_ + _%hd158835159071%_) + (_%L159246%_ + _%hd158826159047%_) + (_%L159247%_ + _%hd158817159023%_) + (_%L159248%_ + _%tl158801158985%_) + (_%L159249%_ + _%hd158802158983%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L160148%_)) + _%L159249%_)) (let () (declare (not safe)) (gx#identifier? - _%L160147%_)) + _%L159248%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L160146%_ + _%L159247%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L160148%_ - _%L160144%_)) - (let ((__tmp166091 - (let ((__tmp166092 + _%L159249%_ + _%L159245%_)) + (let ((__tmp165182 + (let ((__tmp165183 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g160201160204%_ _%g160202160206%_) - (cons _%g160201160204%_ _%g160202160206%_)))) + (lambda (_%g159302159305%_ _%g159303159307%_) + (cons _%g159302159305%_ _%g159303159307%_)))) (declare (not safe)) - (__foldr1 __tmp166092 '() _%L160141%_)))) + (__foldr1 __tmp165183 '() _%L159242%_)))) (declare (not safe)) - (__andmap1 gx#stx-keyword? __tmp166091)) - (let ((__tmp166095 - (lambda (_%g160208160210%_) + (__andmap1 gx#stx-keyword? __tmp165182)) + (let ((__tmp165186 + (lambda (_%g159309159311%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g160208160210%_ + _%g159309159311%_ 'symbolic-table-ref)))) - (__tmp166093 - (let ((__tmp166094 - (lambda (_%g160212160215%_ _%g160213160217%_) - (cons _%g160212160215%_ _%g160213160217%_)))) + (__tmp165184 + (let ((__tmp165185 + (lambda (_%g159313159316%_ _%g159314159318%_) + (cons _%g159313159316%_ _%g159314159318%_)))) (declare (not safe)) - (__foldr1 __tmp166094 '() _%L160143%_)))) + (__foldr1 __tmp165185 '() _%L159244%_)))) (declare (not safe)) - (__andmap1 __tmp166095 __tmp166093)) - (let ((__tmp166098 - (lambda (_%g160219160221%_) + (__andmap1 __tmp165186 __tmp165184)) + (let ((__tmp165189 + (lambda (_%g159320159322%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g160219160221%_ + _%g159320159322%_ 'absent-value)))) - (__tmp166096 - (let ((__tmp166097 - (lambda (_%g160223160226%_ _%g160224160228%_) - (cons _%g160223160226%_ _%g160224160228%_)))) + (__tmp165187 + (let ((__tmp165188 + (lambda (_%g159324159327%_ _%g159325159329%_) + (cons _%g159324159327%_ _%g159325159329%_)))) (declare (not safe)) - (__foldr1 __tmp166097 '() _%L160140%_)))) + (__foldr1 __tmp165188 '() _%L159241%_)))) (declare (not safe)) - (__andmap1 __tmp166098 __tmp166096)) - (let ((__tmp166101 - (lambda (_%g160230160232%_) + (__andmap1 __tmp165189 __tmp165187)) + (let ((__tmp165192 + (lambda (_%g159331159333%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g160230160232%_ - _%L160148%_)))) - (__tmp166099 - (let ((__tmp166100 - (lambda (_%g160234160237%_ _%g160235160239%_) - (cons _%g160234160237%_ _%g160235160239%_)))) + _%g159331159333%_ + _%L159249%_)))) + (__tmp165190 + (let ((__tmp165191 + (lambda (_%g159335159338%_ _%g159336159340%_) + (cons _%g159335159338%_ _%g159336159340%_)))) (declare (not safe)) - (__foldr1 __tmp166100 '() _%L160142%_)))) + (__foldr1 __tmp165191 '() _%L159243%_)))) (declare (not safe)) - (__andmap1 __tmp166101 __tmp166099))) + (__andmap1 __tmp165192 __tmp165190))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont164030164031%_ - _%L160139%_ - _%L160140%_ - _%L160141%_ - _%L160142%_ - _%L160143%_ - _%L160144%_ - _%L160145%_ - _%L160146%_ - _%L160147%_ - _%L160148%_) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_))))))) - (let () - (declare (not safe)) - (_%loop159739160004%_ - _%target159736159975%_ - '() - '() - '() - '()))))) - (_%__match164201164202%_ - (lambda (_%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_ - _%e159699159871%_ - _%hd159698159874%_ - _%tl159697159876%_) + (_%__kont163131163132%_ + _%L159240%_ + _%L159241%_ + _%L159242%_ + _%L159243%_ + _%L159244%_ + _%L159245%_ + _%L159246%_ + _%L159247%_ + _%L159248%_ + _%L159249%_) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_))))))) + (_%loop158840159105%_ + _%target158837159076%_ + '() + '() + '() + '())))) + (_%__match163302163303%_ + (lambda (_%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_ + _%e158800158972%_ + _%hd158799158975%_ + _%tl158798158977%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159698159874%_)) - (let ((_%e159702159879%_ + (gx#stx-pair? _%hd158799158975%_)) + (let ((_%e158803158980%_ (let () (declare (not safe)) - (gx#stx-e _%hd159698159874%_)))) - (let ((_%tl159700159884%_ + (gx#stx-e _%hd158799158975%_)))) + (let ((_%tl158801158985%_ (let () (declare (not safe)) - (##cdr _%e159702159879%_))) - (_%hd159701159882%_ + (##cdr _%e158803158980%_))) + (_%hd158802158983%_ (let () (declare (not safe)) - (##car _%e159702159879%_)))) + (##car _%e158803158980%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159697159876%_)) - (let ((_%e159705159887%_ + (gx#stx-pair? _%tl158798158977%_)) + (let ((_%e158806158988%_ (let () (declare (not safe)) - (gx#stx-e _%tl159697159876%_)))) - (let ((_%tl159703159892%_ + (gx#stx-e _%tl158798158977%_)))) + (let ((_%tl158804158993%_ (let () (declare (not safe)) - (##cdr _%e159705159887%_))) - (_%hd159704159890%_ + (##cdr _%e158806158988%_))) + (_%hd158805158991%_ (let () (declare (not safe)) - (##car _%e159705159887%_)))) + (##car _%e158806158988%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159704159890%_)) - (let ((_%e159708159895%_ + (gx#stx-pair? _%hd158805158991%_)) + (let ((_%e158809158996%_ (let () (declare (not safe)) (gx#stx-e - _%hd159704159890%_)))) - (let ((_%tl159706159900%_ + _%hd158805158991%_)))) + (let ((_%tl158807159001%_ (let () (declare (not safe)) - (##cdr _%e159708159895%_))) - (_%hd159707159898%_ + (##cdr _%e158809158996%_))) + (_%hd158808158999%_ (let () (declare (not safe)) - (##car _%e159708159895%_)))) + (##car _%e158809158996%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159707159898%_)) + _%hd158808158999%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd159707159898%_)) + _%hd158808158999%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159706159900%_)) - (let ((_%e159711159903%_ + _%tl158807159001%_)) + (let ((_%e158812159004%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl159706159900%_)))) - (let ((_%tl159709159908%_ + (gx#stx-e _%tl158807159001%_)))) + (let ((_%tl158810159009%_ (let () (declare (not safe)) - (##cdr _%e159711159903%_))) - (_%hd159710159906%_ + (##cdr _%e158812159004%_))) + (_%hd158811159007%_ (let () (declare (not safe)) - (##car _%e159711159903%_)))) + (##car _%e158812159004%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159710159906%_)) - (let ((_%e159714159911%_ + (gx#stx-pair? _%hd158811159007%_)) + (let ((_%e158815159012%_ (let () (declare (not safe)) - (gx#stx-e _%hd159710159906%_)))) - (let ((_%tl159712159916%_ + (gx#stx-e _%hd158811159007%_)))) + (let ((_%tl158813159017%_ (let () (declare (not safe)) - (##cdr _%e159714159911%_))) - (_%hd159713159914%_ + (##cdr _%e158815159012%_))) + (_%hd158814159015%_ (let () (declare (not safe)) - (##car _%e159714159911%_)))) + (##car _%e158815159012%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159713159914%_)) + (gx#identifier? _%hd158814159015%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159713159914%_)) + (gx#stx-eq? '%#ref _%hd158814159015%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159712159916%_)) - (let ((_%e159717159919%_ + (gx#stx-pair? _%tl158813159017%_)) + (let ((_%e158818159020%_ (let () (declare (not safe)) (gx#stx-e - _%tl159712159916%_)))) - (let ((_%tl159715159924%_ + _%tl158813159017%_)))) + (let ((_%tl158816159025%_ (let () (declare (not safe)) - (##cdr _%e159717159919%_))) - (_%hd159716159922%_ + (##cdr _%e158818159020%_))) + (_%hd158817159023%_ (let () (declare (not safe)) - (##car _%e159717159919%_)))) + (##car _%e158818159020%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159715159924%_)) + _%tl158816159025%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159709159908%_)) - (let ((_%e159720159927%_ + _%tl158810159009%_)) + (let ((_%e158821159028%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl159709159908%_)))) - (let ((_%tl159718159932%_ - (let () (declare (not safe)) (##cdr _%e159720159927%_))) - (_%hd159719159930%_ + (gx#stx-e _%tl158810159009%_)))) + (let ((_%tl158819159033%_ + (let () (declare (not safe)) (##cdr _%e158821159028%_))) + (_%hd158820159031%_ (let () (declare (not safe)) - (##car _%e159720159927%_)))) + (##car _%e158821159028%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159719159930%_)) - (let ((_%e159723159935%_ + (gx#stx-pair? _%hd158820159031%_)) + (let ((_%e158824159036%_ (let () (declare (not safe)) - (gx#stx-e _%hd159719159930%_)))) - (let ((_%tl159721159940%_ + (gx#stx-e _%hd158820159031%_)))) + (let ((_%tl158822159041%_ (let () (declare (not safe)) - (##cdr _%e159723159935%_))) - (_%hd159722159938%_ + (##cdr _%e158824159036%_))) + (_%hd158823159039%_ (let () (declare (not safe)) - (##car _%e159723159935%_)))) + (##car _%e158824159036%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159722159938%_)) + (gx#identifier? _%hd158823159039%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159722159938%_)) + (gx#stx-eq? '%#ref _%hd158823159039%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159721159940%_)) - (let ((_%e159726159943%_ + (gx#stx-pair? _%tl158822159041%_)) + (let ((_%e158827159044%_ (let () (declare (not safe)) - (gx#stx-e _%tl159721159940%_)))) - (let ((_%tl159724159948%_ + (gx#stx-e _%tl158822159041%_)))) + (let ((_%tl158825159049%_ (let () (declare (not safe)) - (##cdr _%e159726159943%_))) - (_%hd159725159946%_ + (##cdr _%e158827159044%_))) + (_%hd158826159047%_ (let () (declare (not safe)) - (##car _%e159726159943%_)))) + (##car _%e158827159044%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159724159948%_)) + _%tl158825159049%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159718159932%_)) - (let ((_%e159729159951%_ + _%tl158819159033%_)) + (let ((_%e158830159052%_ (let () (declare (not safe)) (gx#stx-e - _%tl159718159932%_)))) - (let ((_%tl159727159956%_ + _%tl158819159033%_)))) + (let ((_%tl158828159057%_ (let () (declare (not safe)) - (##cdr _%e159729159951%_))) - (_%hd159728159954%_ + (##cdr _%e158830159052%_))) + (_%hd158829159055%_ (let () (declare (not safe)) - (##car _%e159729159951%_)))) + (##car _%e158830159052%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159728159954%_)) - (let ((_%e159732159959%_ + _%hd158829159055%_)) + (let ((_%e158833159060%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd159728159954%_)))) - (let ((_%tl159730159964%_ + (gx#stx-e _%hd158829159055%_)))) + (let ((_%tl158831159065%_ (let () (declare (not safe)) - (##cdr _%e159732159959%_))) - (_%hd159731159962%_ + (##cdr _%e158833159060%_))) + (_%hd158832159063%_ (let () (declare (not safe)) - (##car _%e159732159959%_)))) + (##car _%e158833159060%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159731159962%_)) + (gx#identifier? _%hd158832159063%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159731159962%_)) + (gx#stx-eq? '%#ref _%hd158832159063%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159730159964%_)) - (let ((_%e159735159967%_ + (gx#stx-pair? _%tl158831159065%_)) + (let ((_%e158836159068%_ (let () (declare (not safe)) - (gx#stx-e _%tl159730159964%_)))) - (let ((_%tl159733159972%_ + (gx#stx-e _%tl158831159065%_)))) + (let ((_%tl158834159073%_ (let () (declare (not safe)) - (##cdr _%e159735159967%_))) - (_%hd159734159970%_ + (##cdr _%e158836159068%_))) + (_%hd158835159071%_ (let () (declare (not safe)) - (##car _%e159735159967%_)))) + (##car _%e158836159068%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159733159972%_)) + (gx#stx-null? _%tl158834159073%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl159727159956%_)) - (if (let ((__tmp166102 + _%tl158828159057%_)) + (if (let ((__tmp165193 (let () (declare (not safe)) (gx#stx-length - _%tl159727159956%_)))) + _%tl158828159057%_)))) (declare (not safe)) - (##fx>= __tmp166102 '1)) - (let ((_%__splice164032164033%_ + (##fx>= __tmp165193 '1)) + (let ((_%__splice163133163134%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl159727159956%_ + _%tl158828159057%_ '1)))) - (let ((_%tl159738159977%_ + (let ((_%tl158839159078%_ (let () (declare (not safe)) (##vector-ref - _%__splice164032164033%_ + _%__splice163133163134%_ '1))) - (_%target159736159975%_ + (_%target158837159076%_ (let () (declare (not safe)) (##vector-ref - _%__splice164032164033%_ + _%__splice163133163134%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159738159977%_)) - (let ((_%e159753159980%_ + _%tl158839159078%_)) + (let ((_%e158854159081%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl159738159977%_)))) - (let ((_%tl159751159985%_ + (gx#stx-e _%tl158839159078%_)))) + (let ((_%tl158852159086%_ (let () (declare (not safe)) - (##cdr _%e159753159980%_))) - (_%hd159752159983%_ + (##cdr _%e158854159081%_))) + (_%hd158853159084%_ (let () (declare (not safe)) - (##car _%e159753159980%_)))) + (##car _%e158854159081%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159752159983%_)) - (let ((_%e159756159988%_ + (gx#stx-pair? _%hd158853159084%_)) + (let ((_%e158857159089%_ (let () (declare (not safe)) - (gx#stx-e _%hd159752159983%_)))) - (let ((_%tl159754159993%_ + (gx#stx-e _%hd158853159084%_)))) + (let ((_%tl158855159094%_ (let () (declare (not safe)) - (##cdr _%e159756159988%_))) - (_%hd159755159991%_ + (##cdr _%e158857159089%_))) + (_%hd158856159092%_ (let () (declare (not safe)) - (##car _%e159756159988%_)))) + (##car _%e158857159089%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159755159991%_)) + (gx#identifier? _%hd158856159092%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159755159991%_)) + (gx#stx-eq? '%#ref _%hd158856159092%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159754159993%_)) - (let ((_%e159759159996%_ + (gx#stx-pair? _%tl158855159094%_)) + (let ((_%e158860159097%_ (let () (declare (not safe)) (gx#stx-e - _%tl159754159993%_)))) - (let ((_%tl159757160001%_ + _%tl158855159094%_)))) + (let ((_%tl158858159102%_ (let () (declare (not safe)) - (##cdr _%e159759159996%_))) - (_%hd159758159999%_ + (##cdr _%e158860159097%_))) + (_%hd158859159100%_ (let () (declare (not safe)) - (##car _%e159759159996%_)))) + (##car _%e158860159097%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159757160001%_)) + _%tl158858159102%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159751159985%_)) - (_%__match164329164330%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_ - _%e159699159871%_ - _%hd159698159874%_ - _%tl159697159876%_ - _%e159702159879%_ - _%hd159701159882%_ - _%tl159700159884%_ - _%e159705159887%_ - _%hd159704159890%_ - _%tl159703159892%_ - _%e159708159895%_ - _%hd159707159898%_ - _%tl159706159900%_ - _%e159711159903%_ - _%hd159710159906%_ - _%tl159709159908%_ - _%e159714159911%_ - _%hd159713159914%_ - _%tl159712159916%_ - _%e159717159919%_ - _%hd159716159922%_ - _%tl159715159924%_ - _%e159720159927%_ - _%hd159719159930%_ - _%tl159718159932%_ - _%e159723159935%_ - _%hd159722159938%_ - _%tl159721159940%_ - _%e159726159943%_ - _%hd159725159946%_ - _%tl159724159948%_ - _%e159729159951%_ - _%hd159728159954%_ - _%tl159727159956%_ - _%e159732159959%_ - _%hd159731159962%_ - _%tl159730159964%_ - _%e159735159967%_ - _%hd159734159970%_ - _%tl159733159972%_ - _%__splice164032164033%_ - _%target159736159975%_ - _%tl159738159977%_ - _%e159753159980%_ - _%hd159752159983%_ - _%tl159751159985%_ - _%e159756159988%_ - _%hd159755159991%_ - _%tl159754159993%_ - _%e159759159996%_ - _%hd159758159999%_ - _%tl159757160001%_) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) + _%tl158852159086%_)) + (_%__match163430163431%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_ + _%e158800158972%_ + _%hd158799158975%_ + _%tl158798158977%_ + _%e158803158980%_ + _%hd158802158983%_ + _%tl158801158985%_ + _%e158806158988%_ + _%hd158805158991%_ + _%tl158804158993%_ + _%e158809158996%_ + _%hd158808158999%_ + _%tl158807159001%_ + _%e158812159004%_ + _%hd158811159007%_ + _%tl158810159009%_ + _%e158815159012%_ + _%hd158814159015%_ + _%tl158813159017%_ + _%e158818159020%_ + _%hd158817159023%_ + _%tl158816159025%_ + _%e158821159028%_ + _%hd158820159031%_ + _%tl158819159033%_ + _%e158824159036%_ + _%hd158823159039%_ + _%tl158822159041%_ + _%e158827159044%_ + _%hd158826159047%_ + _%tl158825159049%_ + _%e158830159052%_ + _%hd158829159055%_ + _%tl158828159057%_ + _%e158833159060%_ + _%hd158832159063%_ + _%tl158831159065%_ + _%e158836159068%_ + _%hd158835159071%_ + _%tl158834159073%_ + _%__splice163133163134%_ + _%target158837159076%_ + _%tl158839159078%_ + _%e158854159081%_ + _%hd158853159084%_ + _%tl158852159086%_ + _%e158857159089%_ + _%hd158856159092%_ + _%tl158855159094%_ + _%e158860159097%_ + _%hd158859159100%_ + _%tl158858159102%_) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164335164336%_ - _%e159696159863%_ - _%hd159695159866%_ - _%tl159694159868%_)))) - (_%__match164189164190%_ - (lambda (_%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_ - _%e159635160270%_ - _%hd159634160273%_ - _%tl159633160275%_ - _%e159638160278%_ - _%hd159637160281%_ - _%tl159636160283%_ - _%e159641160286%_ - _%hd159640160289%_ - _%tl159639160291%_ - _%e159644160294%_ - _%hd159643160297%_ - _%tl159642160299%_ - _%e159647160302%_ - _%hd159646160305%_ - _%tl159645160307%_ - _%e159650160310%_ - _%hd159649160313%_ - _%tl159648160315%_ - _%e159653160318%_ - _%hd159652160321%_ - _%tl159651160323%_ - _%e159656160326%_ - _%hd159655160329%_ - _%tl159654160331%_ - _%e159659160334%_ - _%hd159658160337%_ - _%tl159657160339%_ - _%e159662160342%_ - _%hd159661160345%_ - _%tl159660160347%_ - _%e159665160350%_ - _%hd159664160353%_ - _%tl159663160355%_ - _%e159668160358%_ - _%hd159667160361%_ - _%tl159666160363%_ - _%e159671160366%_ - _%hd159670160369%_ - _%tl159669160371%_ - _%e159674160374%_ - _%hd159673160377%_ - _%tl159672160379%_ - _%e159677160382%_ - _%hd159676160385%_ - _%tl159675160387%_ - _%e159680160390%_ - _%hd159679160393%_ - _%tl159678160395%_ - _%e159683160398%_ - _%hd159682160401%_ - _%tl159681160403%_) - (let ((_%L160406%_ _%hd159682160401%_) - (_%L160407%_ _%hd159673160377%_) - (_%L160408%_ _%hd159664160353%_) - (_%L160409%_ _%hd159655160329%_) - (_%L160410%_ _%hd159646160305%_) - (_%L160411%_ _%hd159631160265%_)) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163436163437%_ + _%e158797158964%_ + _%hd158796158967%_ + _%tl158795158969%_)))) + (_%__match163290163291%_ + (lambda (_%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_ + _%e158736159371%_ + _%hd158735159374%_ + _%tl158734159376%_ + _%e158739159379%_ + _%hd158738159382%_ + _%tl158737159384%_ + _%e158742159387%_ + _%hd158741159390%_ + _%tl158740159392%_ + _%e158745159395%_ + _%hd158744159398%_ + _%tl158743159400%_ + _%e158748159403%_ + _%hd158747159406%_ + _%tl158746159408%_ + _%e158751159411%_ + _%hd158750159414%_ + _%tl158749159416%_ + _%e158754159419%_ + _%hd158753159422%_ + _%tl158752159424%_ + _%e158757159427%_ + _%hd158756159430%_ + _%tl158755159432%_ + _%e158760159435%_ + _%hd158759159438%_ + _%tl158758159440%_ + _%e158763159443%_ + _%hd158762159446%_ + _%tl158761159448%_ + _%e158766159451%_ + _%hd158765159454%_ + _%tl158764159456%_ + _%e158769159459%_ + _%hd158768159462%_ + _%tl158767159464%_ + _%e158772159467%_ + _%hd158771159470%_ + _%tl158770159472%_ + _%e158775159475%_ + _%hd158774159478%_ + _%tl158773159480%_ + _%e158778159483%_ + _%hd158777159486%_ + _%tl158776159488%_ + _%e158781159491%_ + _%hd158780159494%_ + _%tl158779159496%_ + _%e158784159499%_ + _%hd158783159502%_ + _%tl158782159504%_) + (let ((_%L159507%_ _%hd158783159502%_) + (_%L159508%_ _%hd158774159478%_) + (_%L159509%_ _%hd158765159454%_) + (_%L159510%_ _%hd158756159430%_) + (_%L159511%_ _%hd158747159406%_) + (_%L159512%_ _%hd158732159366%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L160411%_)) + (gx#identifier? _%L159512%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L160410%_ + _%L159511%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L160409%_ + _%L159510%_ 'keyword-dispatch)) (let () (declare (not safe)) (gx#free-identifier=? - _%L160411%_ - _%L160406%_))) - (_%__kont164028164029%_ - _%L160406%_ - _%L160407%_ - _%L160408%_ - _%L160409%_ - _%L160410%_ - _%L160411%_) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))))) + _%L159512%_ + _%L159507%_))) + (_%__kont163129163130%_ + _%L159507%_ + _%L159508%_ + _%L159509%_ + _%L159510%_ + _%L159511%_ + _%L159512%_) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx164026164027%_)) - (let ((_%e159629160254%_ + (gx#stx-pair? _%__stx163127163128%_)) + (let ((_%e158730159355%_ (let () (declare (not safe)) - (gx#stx-e _%__stx164026164027%_)))) - (let ((_%tl159627160259%_ + (gx#stx-e _%__stx163127163128%_)))) + (let ((_%tl158728159360%_ (let () (declare (not safe)) - (##cdr _%e159629160254%_))) - (_%hd159628160257%_ + (##cdr _%e158730159355%_))) + (_%hd158729159358%_ (let () (declare (not safe)) - (##car _%e159629160254%_)))) + (##car _%e158730159355%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159627160259%_)) - (let ((_%e159632160262%_ + (gx#stx-pair? _%tl158728159360%_)) + (let ((_%e158733159363%_ (let () (declare (not safe)) - (gx#stx-e _%tl159627160259%_)))) - (let ((_%tl159630160267%_ + (gx#stx-e _%tl158728159360%_)))) + (let ((_%tl158731159368%_ (let () (declare (not safe)) - (##cdr _%e159632160262%_))) - (_%hd159631160265%_ + (##cdr _%e158733159363%_))) + (_%hd158732159366%_ (let () (declare (not safe)) - (##car _%e159632160262%_)))) + (##car _%e158733159363%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159630160267%_)) - (let ((_%e159635160270%_ + (gx#stx-pair? _%tl158731159368%_)) + (let ((_%e158736159371%_ (let () (declare (not safe)) - (gx#stx-e _%tl159630160267%_)))) - (let ((_%tl159633160275%_ + (gx#stx-e _%tl158731159368%_)))) + (let ((_%tl158734159376%_ (let () (declare (not safe)) - (##cdr _%e159635160270%_))) - (_%hd159634160273%_ + (##cdr _%e158736159371%_))) + (_%hd158735159374%_ (let () (declare (not safe)) - (##car _%e159635160270%_)))) + (##car _%e158736159371%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159634160273%_)) - (let ((_%e159638160278%_ + (gx#stx-pair? _%hd158735159374%_)) + (let ((_%e158739159379%_ (let () (declare (not safe)) (gx#stx-e - _%hd159634160273%_)))) - (let ((_%tl159636160283%_ + _%hd158735159374%_)))) + (let ((_%tl158737159384%_ (let () (declare (not safe)) - (##cdr _%e159638160278%_))) - (_%hd159637160281%_ + (##cdr _%e158739159379%_))) + (_%hd158738159382%_ (let () (declare (not safe)) - (##car _%e159638160278%_)))) + (##car _%e158739159379%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159637160281%_)) + _%hd158738159382%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd159637160281%_)) + _%hd158738159382%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159636160283%_)) - (let ((_%e159641160286%_ + _%tl158737159384%_)) + (let ((_%e158742159387%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl159636160283%_)))) - (let ((_%tl159639160291%_ + (gx#stx-e _%tl158737159384%_)))) + (let ((_%tl158740159392%_ (let () (declare (not safe)) - (##cdr _%e159641160286%_))) - (_%hd159640160289%_ + (##cdr _%e158742159387%_))) + (_%hd158741159390%_ (let () (declare (not safe)) - (##car _%e159641160286%_)))) + (##car _%e158742159387%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159640160289%_)) - (let ((_%e159644160294%_ + (gx#stx-pair? _%hd158741159390%_)) + (let ((_%e158745159395%_ (let () (declare (not safe)) - (gx#stx-e _%hd159640160289%_)))) - (let ((_%tl159642160299%_ + (gx#stx-e _%hd158741159390%_)))) + (let ((_%tl158743159400%_ (let () (declare (not safe)) - (##cdr _%e159644160294%_))) - (_%hd159643160297%_ + (##cdr _%e158745159395%_))) + (_%hd158744159398%_ (let () (declare (not safe)) - (##car _%e159644160294%_)))) + (##car _%e158745159395%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159643160297%_)) + (gx#identifier? _%hd158744159398%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159643160297%_)) + (gx#stx-eq? '%#ref _%hd158744159398%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159642160299%_)) - (let ((_%e159647160302%_ + (gx#stx-pair? _%tl158743159400%_)) + (let ((_%e158748159403%_ (let () (declare (not safe)) (gx#stx-e - _%tl159642160299%_)))) - (let ((_%tl159645160307%_ + _%tl158743159400%_)))) + (let ((_%tl158746159408%_ (let () (declare (not safe)) - (##cdr _%e159647160302%_))) - (_%hd159646160305%_ + (##cdr _%e158748159403%_))) + (_%hd158747159406%_ (let () (declare (not safe)) - (##car _%e159647160302%_)))) + (##car _%e158748159403%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159645160307%_)) + _%tl158746159408%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159639160291%_)) - (let ((_%e159650160310%_ + _%tl158740159392%_)) + (let ((_%e158751159411%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl159639160291%_)))) - (let ((_%tl159648160315%_ - (let () (declare (not safe)) (##cdr _%e159650160310%_))) - (_%hd159649160313%_ + (gx#stx-e _%tl158740159392%_)))) + (let ((_%tl158749159416%_ + (let () (declare (not safe)) (##cdr _%e158751159411%_))) + (_%hd158750159414%_ (let () (declare (not safe)) - (##car _%e159650160310%_)))) + (##car _%e158751159411%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159649160313%_)) - (let ((_%e159653160318%_ + (gx#stx-pair? _%hd158750159414%_)) + (let ((_%e158754159419%_ (let () (declare (not safe)) - (gx#stx-e _%hd159649160313%_)))) - (let ((_%tl159651160323%_ + (gx#stx-e _%hd158750159414%_)))) + (let ((_%tl158752159424%_ (let () (declare (not safe)) - (##cdr _%e159653160318%_))) - (_%hd159652160321%_ + (##cdr _%e158754159419%_))) + (_%hd158753159422%_ (let () (declare (not safe)) - (##car _%e159653160318%_)))) + (##car _%e158754159419%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159652160321%_)) + (gx#identifier? _%hd158753159422%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159652160321%_)) + (gx#stx-eq? '%#ref _%hd158753159422%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159651160323%_)) - (let ((_%e159656160326%_ + (gx#stx-pair? _%tl158752159424%_)) + (let ((_%e158757159427%_ (let () (declare (not safe)) - (gx#stx-e _%tl159651160323%_)))) - (let ((_%tl159654160331%_ + (gx#stx-e _%tl158752159424%_)))) + (let ((_%tl158755159432%_ (let () (declare (not safe)) - (##cdr _%e159656160326%_))) - (_%hd159655160329%_ + (##cdr _%e158757159427%_))) + (_%hd158756159430%_ (let () (declare (not safe)) - (##car _%e159656160326%_)))) + (##car _%e158757159427%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159654160331%_)) + _%tl158755159432%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159648160315%_)) - (let ((_%e159659160334%_ + _%tl158749159416%_)) + (let ((_%e158760159435%_ (let () (declare (not safe)) (gx#stx-e - _%tl159648160315%_)))) - (let ((_%tl159657160339%_ + _%tl158749159416%_)))) + (let ((_%tl158758159440%_ (let () (declare (not safe)) - (##cdr _%e159659160334%_))) - (_%hd159658160337%_ + (##cdr _%e158760159435%_))) + (_%hd158759159438%_ (let () (declare (not safe)) - (##car _%e159659160334%_)))) + (##car _%e158760159435%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159658160337%_)) - (let ((_%e159662160342%_ + _%hd158759159438%_)) + (let ((_%e158763159443%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd159658160337%_)))) - (let ((_%tl159660160347%_ + (gx#stx-e _%hd158759159438%_)))) + (let ((_%tl158761159448%_ (let () (declare (not safe)) - (##cdr _%e159662160342%_))) - (_%hd159661160345%_ + (##cdr _%e158763159443%_))) + (_%hd158762159446%_ (let () (declare (not safe)) - (##car _%e159662160342%_)))) + (##car _%e158763159443%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159661160345%_)) + (gx#identifier? _%hd158762159446%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd159661160345%_)) + (gx#stx-eq? '%#quote _%hd158762159446%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159660160347%_)) - (let ((_%e159665160350%_ + (gx#stx-pair? _%tl158761159448%_)) + (let ((_%e158766159451%_ (let () (declare (not safe)) - (gx#stx-e _%tl159660160347%_)))) - (let ((_%tl159663160355%_ + (gx#stx-e _%tl158761159448%_)))) + (let ((_%tl158764159456%_ (let () (declare (not safe)) - (##cdr _%e159665160350%_))) - (_%hd159664160353%_ + (##cdr _%e158766159451%_))) + (_%hd158765159454%_ (let () (declare (not safe)) - (##car _%e159665160350%_)))) + (##car _%e158766159451%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159663160355%_)) + (gx#stx-null? _%tl158764159456%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159657160339%_)) - (let ((_%e159668160358%_ + _%tl158758159440%_)) + (let ((_%e158769159459%_ (let () (declare (not safe)) (gx#stx-e - _%tl159657160339%_)))) - (let ((_%tl159666160363%_ + _%tl158758159440%_)))) + (let ((_%tl158767159464%_ (let () (declare (not safe)) - (##cdr _%e159668160358%_))) - (_%hd159667160361%_ + (##cdr _%e158769159459%_))) + (_%hd158768159462%_ (let () (declare (not safe)) - (##car _%e159668160358%_)))) + (##car _%e158769159459%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159667160361%_)) - (let ((_%e159671160366%_ + _%hd158768159462%_)) + (let ((_%e158772159467%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd159667160361%_)))) - (let ((_%tl159669160371%_ - (let () (declare (not safe)) (##cdr _%e159671160366%_))) - (_%hd159670160369%_ + (gx#stx-e _%hd158768159462%_)))) + (let ((_%tl158770159472%_ + (let () (declare (not safe)) (##cdr _%e158772159467%_))) + (_%hd158771159470%_ (let () (declare (not safe)) - (##car _%e159671160366%_)))) + (##car _%e158772159467%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159670160369%_)) + (gx#identifier? _%hd158771159470%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159670160369%_)) + (gx#stx-eq? '%#ref _%hd158771159470%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159669160371%_)) - (let ((_%e159674160374%_ + (gx#stx-pair? _%tl158770159472%_)) + (let ((_%e158775159475%_ (let () (declare (not safe)) - (gx#stx-e _%tl159669160371%_)))) - (let ((_%tl159672160379%_ + (gx#stx-e _%tl158770159472%_)))) + (let ((_%tl158773159480%_ (let () (declare (not safe)) - (##cdr _%e159674160374%_))) - (_%hd159673160377%_ + (##cdr _%e158775159475%_))) + (_%hd158774159478%_ (let () (declare (not safe)) - (##car _%e159674160374%_)))) + (##car _%e158775159475%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159672160379%_)) + (gx#stx-null? _%tl158773159480%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159666160363%_)) - (let ((_%e159677160382%_ + (gx#stx-pair? _%tl158767159464%_)) + (let ((_%e158778159483%_ (let () (declare (not safe)) (gx#stx-e - _%tl159666160363%_)))) - (let ((_%tl159675160387%_ + _%tl158767159464%_)))) + (let ((_%tl158776159488%_ (let () (declare (not safe)) - (##cdr _%e159677160382%_))) - (_%hd159676160385%_ + (##cdr _%e158778159483%_))) + (_%hd158777159486%_ (let () (declare (not safe)) - (##car _%e159677160382%_)))) + (##car _%e158778159483%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159676160385%_)) - (let ((_%e159680160390%_ + _%hd158777159486%_)) + (let ((_%e158781159491%_ (let () (declare (not safe)) (gx#stx-e - _%hd159676160385%_)))) - (let ((_%tl159678160395%_ + _%hd158777159486%_)))) + (let ((_%tl158779159496%_ (let () (declare (not safe)) - (##cdr _%e159680160390%_))) - (_%hd159679160393%_ + (##cdr _%e158781159491%_))) + (_%hd158780159494%_ (let () (declare (not safe)) - (##car _%e159680160390%_)))) + (##car _%e158781159491%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159679160393%_)) + _%hd158780159494%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd159679160393%_)) + (gx#stx-eq? '%#ref _%hd158780159494%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159678160395%_)) - (let ((_%e159683160398%_ + (gx#stx-pair? _%tl158779159496%_)) + (let ((_%e158784159499%_ (let () (declare (not safe)) - (gx#stx-e _%tl159678160395%_)))) - (let ((_%tl159681160403%_ + (gx#stx-e _%tl158779159496%_)))) + (let ((_%tl158782159504%_ (let () (declare (not safe)) - (##cdr _%e159683160398%_))) - (_%hd159682160401%_ + (##cdr _%e158784159499%_))) + (_%hd158783159502%_ (let () (declare (not safe)) - (##car _%e159683160398%_)))) + (##car _%e158784159499%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159681160403%_)) + (gx#stx-null? _%tl158782159504%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159675160387%_)) + (gx#stx-null? _%tl158776159488%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159633160275%_)) - (_%__match164189164190%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_ - _%e159635160270%_ - _%hd159634160273%_ - _%tl159633160275%_ - _%e159638160278%_ - _%hd159637160281%_ - _%tl159636160283%_ - _%e159641160286%_ - _%hd159640160289%_ - _%tl159639160291%_ - _%e159644160294%_ - _%hd159643160297%_ - _%tl159642160299%_ - _%e159647160302%_ - _%hd159646160305%_ - _%tl159645160307%_ - _%e159650160310%_ - _%hd159649160313%_ - _%tl159648160315%_ - _%e159653160318%_ - _%hd159652160321%_ - _%tl159651160323%_ - _%e159656160326%_ - _%hd159655160329%_ - _%tl159654160331%_ - _%e159659160334%_ - _%hd159658160337%_ - _%tl159657160339%_ - _%e159662160342%_ - _%hd159661160345%_ - _%tl159660160347%_ - _%e159665160350%_ - _%hd159664160353%_ - _%tl159663160355%_ - _%e159668160358%_ - _%hd159667160361%_ - _%tl159666160363%_ - _%e159671160366%_ - _%hd159670160369%_ - _%tl159669160371%_ - _%e159674160374%_ - _%hd159673160377%_ - _%tl159672160379%_ - _%e159677160382%_ - _%hd159676160385%_ - _%tl159675160387%_ - _%e159680160390%_ - _%hd159679160393%_ - _%tl159678160395%_ - _%e159683160398%_ - _%hd159682160401%_ - _%tl159681160403%_) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) + (gx#stx-null? _%tl158734159376%_)) + (_%__match163290163291%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_ + _%e158736159371%_ + _%hd158735159374%_ + _%tl158734159376%_ + _%e158739159379%_ + _%hd158738159382%_ + _%tl158737159384%_ + _%e158742159387%_ + _%hd158741159390%_ + _%tl158740159392%_ + _%e158745159395%_ + _%hd158744159398%_ + _%tl158743159400%_ + _%e158748159403%_ + _%hd158747159406%_ + _%tl158746159408%_ + _%e158751159411%_ + _%hd158750159414%_ + _%tl158749159416%_ + _%e158754159419%_ + _%hd158753159422%_ + _%tl158752159424%_ + _%e158757159427%_ + _%hd158756159430%_ + _%tl158755159432%_ + _%e158760159435%_ + _%hd158759159438%_ + _%tl158758159440%_ + _%e158763159443%_ + _%hd158762159446%_ + _%tl158761159448%_ + _%e158766159451%_ + _%hd158765159454%_ + _%tl158764159456%_ + _%e158769159459%_ + _%hd158768159462%_ + _%tl158767159464%_ + _%e158772159467%_ + _%hd158771159470%_ + _%tl158770159472%_ + _%e158775159475%_ + _%hd158774159478%_ + _%tl158773159480%_ + _%e158778159483%_ + _%hd158777159486%_ + _%tl158776159488%_ + _%e158781159491%_ + _%hd158780159494%_ + _%tl158779159496%_ + _%e158784159499%_ + _%hd158783159502%_ + _%tl158782159504%_) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) - (_%__match164201164202%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_ - _%e159632160262%_ - _%hd159631160265%_ - _%tl159630160267%_)))) - (_%__match164335164336%_ - _%e159629160254%_ - _%hd159628160257%_ - _%tl159627160259%_)))) - (let () (declare (not safe)) (_%g159619159811%_)))))))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) + (_%__match163302163303%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_ + _%e158733159363%_ + _%hd158732159366%_ + _%tl158731159368%_)))) + (_%__match163436163437%_ + _%e158730159355%_ + _%hd158729159358%_ + _%tl158728159360%_)))) + (let () (declare (not safe)) (_%g158720158912%_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_%self159483%_ _%stx159484%_) - (letrec ((_%clause-e159486%_ - (lambda (_%form159609%_) - (let* ((_%signature159611%_ - (let () - (declare (not safe)) - (gxc#lambda-form-infer-signature - _%form159609%_))) - (__obj165981 + (lambda (_%self158584%_ _%stx158585%_) + (letrec ((_%clause-e158587%_ + (lambda (_%form158710%_) + (let* ((_%signature158712%_ + (gxc#lambda-form-infer-signature _%form158710%_)) + (__obj165082 (let () (declare (not safe)) (##structure @@ -8321,137 +8029,121 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj165981 - (let () - (declare (not safe)) - (gxc#lambda-form-arity _%form159609%_)) - (if (let () - (declare (not safe)) - (gxc#dispatch-lambda-form? _%form159609%_)) - (let () - (declare (not safe)) - (gxc#dispatch-lambda-form-delegate - _%form159609%_)) + __obj165082 + (gxc#lambda-form-arity _%form158710%_) + (if (gxc#dispatch-lambda-form? _%form158710%_) + (gxc#dispatch-lambda-form-delegate _%form158710%_) '#f) 'signature: - _%signature159611%_) - __obj165981))) - (_%return-type-e159487%_ - (lambda (_%clauses159537%_) - (let _%loop159539%_ ((_%rest159541%_ _%clauses159537%_) - (_%result159542%_ '#f)) - (let* ((_%rest159543159551%_ _%rest159541%_) - (_%else159545159559%_ - (lambda () _%result159542%_)) - (_%K159547159597%_ - (lambda (_%rest159562%_ _%clause159563%_) - (let ((_%clause159565%_ _%clause159563%_)) - (let* ((_%return159589%_ - (let* ((_%signature159578%_ - (let () + _%signature158712%_) + __obj165082))) + (_%return-type-e158588%_ + (lambda (_%clauses158638%_) + (let _%loop158640%_ ((_%rest158642%_ _%clauses158638%_) + (_%result158643%_ '#f)) + (let* ((_%rest158644158652%_ _%rest158642%_) + (_%else158646158660%_ + (lambda () _%result158643%_)) + (_%K158648158698%_ + (lambda (_%rest158663%_ _%clause158664%_) + (let* ((_%clause158666%_ _%clause158664%_) + (_%return158690%_ + (let* ((_%signature158679%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%clause158666%_ + '2 + '#f + '#f))) + (_%signature158681%_ + _%signature158679%_)) + (if _%signature158681%_ + (if (let () (declare (not safe)) (##unchecked-structure-ref - _%clause159565%_ - '2 + _%signature158681%_ + '1 '#f - '#f))) - (_%signature159580%_ - _%signature159578%_)) - (if _%signature159580%_ - (if (let () - (declare (not safe)) - (##unchecked-structure-ref - _%signature159580%_ - '1 - '#f - '#f)) - (let ((__tmp166103 - (let () - (declare - (not safe)) - (##unchecked-structure-ref - _%signature159580%_ - '1 - '#f - '#f)))) - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx159484%_ - __tmp166103)) - '#f) - '#f))) - (_%result159594%_ - (if (and _%result159542%_ - _%return159589%_) - (let () - (declare (not safe)) - (gxc#greatest-common-type - _%stx159484%_ - _%result159542%_ - _%return159589%_)) - (let ((_%$e159591%_ - _%result159542%_)) - (if _%$e159591%_ - _%$e159591%_ - _%return159589%_))))) - (declare (not safe)) - (_%loop159539%_ - _%rest159562%_ - _%result159594%_)))))) + '#f)) + (let ((__tmp165194 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%signature158681%_ + '1 + '#f + '#f)))) + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx158585%_ + __tmp165194)) + '#f) + '#f))) + (_%result158695%_ + (if (and _%result158643%_ + _%return158690%_) + (gxc#greatest-common-type + _%stx158585%_ + _%result158643%_ + _%return158690%_) + (let ((_%$e158692%_ + _%result158643%_)) + (if _%$e158692%_ + _%$e158692%_ + _%return158690%_))))) + (_%loop158640%_ + _%rest158663%_ + _%result158695%_))))) (if (let () (declare (not safe)) - (##pair? _%rest159543159551%_)) - (let ((_%hd159548159600%_ + (##pair? _%rest158644158652%_)) + (let ((_%hd158649158701%_ (let () (declare (not safe)) - (##car _%rest159543159551%_))) - (_%tl159549159602%_ + (##car _%rest158644158652%_))) + (_%tl158650158703%_ (let () (declare (not safe)) - (##cdr _%rest159543159551%_)))) - (let* ((_%clause159605%_ _%hd159548159600%_) - (_%rest159607%_ _%tl159549159602%_)) - (declare (not safe)) - (_%K159547159597%_ - _%rest159607%_ - _%clause159605%_))) - (let () - (declare (not safe)) - (_%else159545159559%_)))))))) - (let* ((_%g159489159499%_ - (lambda (_%g159490159496%_) + (##cdr _%rest158644158652%_)))) + (let* ((_%clause158706%_ _%hd158649158701%_) + (_%rest158708%_ _%tl158650158703%_)) + (_%K158648158698%_ + _%rest158708%_ + _%clause158706%_))) + (_%else158646158660%_))))))) + (let* ((_%g158590158600%_ + (lambda (_%g158591158597%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g159490159496%_)))) - (_%g159488159534%_ - (lambda (_%g159490159502%_) + _%g158591158597%_)))) + (_%g158589158635%_ + (lambda (_%g158591158603%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g159490159502%_)) - (let ((_%e159494159504%_ + (gx#stx-pair? _%g158591158603%_)) + (let ((_%e158595158605%_ (let () (declare (not safe)) - (gx#stx-e _%g159490159502%_)))) - (let ((_%hd159493159507%_ + (gx#stx-e _%g158591158603%_)))) + (let ((_%hd158594158608%_ (let () (declare (not safe)) - (##car _%e159494159504%_))) - (_%tl159492159509%_ + (##car _%e158595158605%_))) + (_%tl158593158610%_ (let () (declare (not safe)) - (##cdr _%e159494159504%_)))) - ((lambda (_%L159512%_) - (let* ((_%clauses159523%_ - (map _%clause-e159486%_ _%L159512%_)) - (_%return159525%_ - (let () - (declare (not safe)) - (_%return-type-e159487%_ - _%clauses159523%_))) - (__obj165983 + (##cdr _%e158595158605%_)))) + ((lambda (_%L158613%_) + (let* ((_%clauses158624%_ + (map _%clause-e158587%_ _%L158613%_)) + (_%return158626%_ + (_%return-type-e158588%_ + _%clauses158624%_)) + (__obj165084 (let () (declare (not safe)) (##structure @@ -8460,19 +8152,19 @@ '#f '#f)))) (gxc#!case-lambda:::init! - __obj165983 - _%clauses159523%_ + __obj165084 + _%clauses158624%_ 'signature: - (if _%return159525%_ - (let ((_%return-type159527159529%_ + (if _%return158626%_ + (let ((_%return-type158628158630%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return159525%_)))) - (if _%return-type159527159529%_ - (let* ((_%return-type159532%_ - _%return-type159527159529%_) - (__obj165982 + _%return158626%_)))) + (if _%return-type158628158630%_ + (let* ((_%return-type158633%_ + _%return-type158628158630%_) + (__obj165083 (let () (declare (not safe)) (##structure @@ -8480,254 +8172,235 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj165982 - _%return-type159532%_ + __obj165083 + _%return-type158633%_ '1 '#f '#f)) - __obj165982) + __obj165083) '#f)) '#f)) - __obj165983)) - _%tl159492159509%_))) - (let () - (declare (not safe)) - (_%g159489159499%_ _%g159490159502%_)))))) - (declare (not safe)) - (_%g159488159534%_ _%stx159484%_))))) + __obj165084)) + _%tl158593158610%_))) + (_%g158590158600%_ _%g158591158603%_))))) + (_%g158589158635%_ _%stx158585%_))))) (define gxc#basic-expression-type-special (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-call% - (lambda (_%self159339%_ _%stx159340%_) - (letrec ((_%type-e159342%_ - (lambda (_%rator159472%_ _%rator-type159473%_ _%args159474%_) - (if (let () - (declare (not safe)) - (not _%rator-type159473%_)) - (let () '#f) + (lambda (_%self158440%_ _%stx158441%_) + (letrec ((_%type-e158443%_ + (lambda (_%rator158573%_ _%rator-type158574%_ _%args158575%_) + (if (not _%rator-type158574%_) + '#f (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type159473%_ + _%rator-type158574%_ 'gxc#!procedure::t)) - (let ((__method165984 + (let ((__method165085 (let () (declare (not safe)) (__method-ref - _%rator-type159473%_ + _%rator-type158574%_ 'return-type)))) - (if __method165984 - (__method165984 - _%rator-type159473%_ - _%self159339%_ - _%stx159340%_ - _%args159474%_) + (if __method165085 + (__method165085 + _%rator-type158574%_ + _%self158440%_ + _%stx158441%_ + _%args158575%_) (let () (declare (not safe)) (error '"Missing method" - _%rator-type159473%_ + _%rator-type158574%_ 'return-type)))) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type159473%_ + _%rator-type158574%_ 'gxc#!class::t)) (or (eq? (##structure-ref - _%rator-type159473%_ + _%rator-type158574%_ '1 gxc#!type::t '#f) 'procedure) (eq? (##structure-ref - _%rator-type159473%_ + _%rator-type158574%_ '1 gxc#!type::t '#f) 't))) - (let () '#f) + '#f (let () (declare (not safe)) (gxc#raise-compile-error '"operator is not a procedure" - _%stx159340%_ - _%rator159472%_ - _%rator-type159473%_)))))))) - (let* ((_%__stx164344164345%_ _%stx159340%_) - (_%g159345159373%_ + _%stx158441%_ + _%rator158573%_ + _%rator-type158574%_)))))))) + (let* ((_%__stx163445163446%_ _%stx158441%_) + (_%g158446158474%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx164344164345%_))))) - (let ((_%__kont164346164347%_ - (lambda (_%L159446%_ _%L159447%_) - (let ((_%$e159463%_ - (let ((__tmp166104 + _%__stx163445163446%_))))) + (let ((_%__kont163447163448%_ + (lambda (_%L158547%_ _%L158548%_) + (let ((_%$e158564%_ + (let ((__tmp165195 (let () (declare (not safe)) - (gxc#identifier-symbol _%L159447%_)))) + (gxc#identifier-symbol _%L158548%_)))) (declare (not safe)) (hash-get gxc#basic-expression-type-special - __tmp166104)))) - (if _%$e159463%_ - ((lambda (_%type-e159466%_) - (_%type-e159466%_ _%self159339%_ _%stx159340%_)) - _%$e159463%_) - (let ((__tmp166105 - (let ((__tmp166106 - (let () - (declare (not safe)) - (gxc#identifier-symbol - _%L159447%_)))) - (declare (not safe)) - (gxc#optimizer-resolve-type __tmp166106)))) - (declare (not safe)) - (_%type-e159342%_ - _%L159447%_ - __tmp166105 - _%L159446%_)))))) - (_%__kont164348164349%_ - (lambda (_%L159394%_ _%L159395%_) - (let ((__tmp166107 - (let () + __tmp165195)))) + (if _%$e158564%_ + ((lambda (_%type-e158567%_) + (_%type-e158567%_ _%self158440%_ _%stx158441%_)) + _%$e158564%_) + (_%type-e158443%_ + _%L158548%_ + (let ((__tmp165196 + (let () + (declare (not safe)) + (gxc#identifier-symbol _%L158548%_)))) (declare (not safe)) - (gxc#apply-basic-expression-type _%L159395%_)))) - (declare (not safe)) - (_%type-e159342%_ - _%L159395%_ - __tmp166107 - _%L159394%_))))) + (gxc#optimizer-resolve-type __tmp165196)) + _%L158547%_))))) + (_%__kont163449163450%_ + (lambda (_%L158495%_ _%L158496%_) + (_%type-e158443%_ + _%L158496%_ + (gxc#apply-basic-expression-type _%L158496%_) + _%L158495%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx164344164345%_)) - (let ((_%e159351159414%_ + (gx#stx-pair? _%__stx163445163446%_)) + (let ((_%e158452158515%_ (let () (declare (not safe)) - (gx#stx-e _%__stx164344164345%_)))) - (let ((_%tl159349159419%_ + (gx#stx-e _%__stx163445163446%_)))) + (let ((_%tl158450158520%_ (let () (declare (not safe)) - (##cdr _%e159351159414%_))) - (_%hd159350159417%_ + (##cdr _%e158452158515%_))) + (_%hd158451158518%_ (let () (declare (not safe)) - (##car _%e159351159414%_)))) + (##car _%e158452158515%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159349159419%_)) - (let ((_%e159354159422%_ + (gx#stx-pair? _%tl158450158520%_)) + (let ((_%e158455158523%_ (let () (declare (not safe)) - (gx#stx-e _%tl159349159419%_)))) - (let ((_%tl159352159427%_ + (gx#stx-e _%tl158450158520%_)))) + (let ((_%tl158453158528%_ (let () (declare (not safe)) - (##cdr _%e159354159422%_))) - (_%hd159353159425%_ + (##cdr _%e158455158523%_))) + (_%hd158454158526%_ (let () (declare (not safe)) - (##car _%e159354159422%_)))) + (##car _%e158455158523%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159353159425%_)) - (let ((_%e159357159430%_ + (gx#stx-pair? _%hd158454158526%_)) + (let ((_%e158458158531%_ (let () (declare (not safe)) - (gx#stx-e _%hd159353159425%_)))) - (let ((_%tl159355159435%_ + (gx#stx-e _%hd158454158526%_)))) + (let ((_%tl158456158536%_ (let () (declare (not safe)) - (##cdr _%e159357159430%_))) - (_%hd159356159433%_ + (##cdr _%e158458158531%_))) + (_%hd158457158534%_ (let () (declare (not safe)) - (##car _%e159357159430%_)))) + (##car _%e158458158531%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159356159433%_)) + _%hd158457158534%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159356159433%_)) + _%hd158457158534%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159355159435%_)) - (let ((_%e159360159438%_ + _%tl158456158536%_)) + (let ((_%e158461158539%_ (let () (declare (not safe)) (gx#stx-e - _%tl159355159435%_)))) - (let ((_%tl159358159443%_ + _%tl158456158536%_)))) + (let ((_%tl158459158544%_ (let () (declare (not safe)) - (##cdr _%e159360159438%_))) - (_%hd159359159441%_ + (##cdr _%e158461158539%_))) + (_%hd158460158542%_ (let () (declare (not safe)) - (##car _%e159360159438%_)))) + (##car _%e158461158539%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159358159443%_)) - (_%__kont164346164347%_ - _%tl159352159427%_ - _%hd159359159441%_) - (_%__kont164348164349%_ - _%tl159352159427%_ - _%hd159353159425%_)))) - (_%__kont164348164349%_ - _%tl159352159427%_ - _%hd159353159425%_)) - (_%__kont164348164349%_ - _%tl159352159427%_ - _%hd159353159425%_)) - (_%__kont164348164349%_ - _%tl159352159427%_ - _%hd159353159425%_)))) - (_%__kont164348164349%_ - _%tl159352159427%_ - _%hd159353159425%_)))) - (let () (declare (not safe)) (_%g159345159373%_))))) - (let () (declare (not safe)) (_%g159345159373%_)))))))) + _%tl158459158544%_)) + (_%__kont163447163448%_ + _%tl158453158528%_ + _%hd158460158542%_) + (_%__kont163449163450%_ + _%tl158453158528%_ + _%hd158454158526%_)))) + (_%__kont163449163450%_ + _%tl158453158528%_ + _%hd158454158526%_)) + (_%__kont163449163450%_ + _%tl158453158528%_ + _%hd158454158526%_)) + (_%__kont163449163450%_ + _%tl158453158528%_ + _%hd158454158526%_)))) + (_%__kont163449163450%_ + _%tl158453158528%_ + _%hd158454158526%_)))) + (let () (declare (not safe)) (_%g158446158474%_))))) + (let () (declare (not safe)) (_%g158446158474%_)))))))) (define gxc#!procedure::return-type - (lambda (_%self159310%_ _%ctx159311%_ _%stx159312%_ _%args159313%_) - (let () - (let* ((_%self159316%_ _%self159310%_) - (_%signature159325159327%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref _%self159316%_ '2 '#f '#f)))) - (if _%signature159325159327%_ - (let* ((_%signature159330%_ _%signature159325159327%_) - (_%return159331159333%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%signature159330%_ - '1 - '#f - '#f)))) - (if _%return159331159333%_ - (let ((_%return159336%_ _%return159331159333%_)) - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx159312%_ - _%return159336%_)) - '#f)) - '#f))))) + (lambda (_%self158424%_ _%ctx158425%_ _%stx158426%_ _%args158427%_) + (let ((_%self158430%_ _%self158424%_)) + (if (let () + (declare (not safe)) + (##unchecked-structure-ref _%self158430%_ '2 '#f '#f)) + (let ((__tmp165197 + (let ((__tmp165198 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self158430%_ + '2 + '#f + '#f)))) + (declare (not safe)) + (##unchecked-structure-ref __tmp165198 '1 '#f '#f)))) + (declare (not safe)) + (gxc#optimizer-resolve-class _%stx158426%_ __tmp165197)) + '#f)))) (let () (declare (not safe)) (__bind-method! @@ -8744,50 +8417,48 @@ gxc#!procedure::apply-return-type '#f)) (define gxc#!lambda::return-type - (lambda (_%self159044%_ _%ctx159045%_ _%stx159046%_ _%args159047%_) - (let ((_%self159050%_ _%self159044%_)) + (lambda (_%self158158%_ _%ctx158159%_ _%stx158160%_ _%args158161%_) + (let ((_%self158164%_ _%self158158%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self159050%_ '4 '#f '#f)) - (let ((_%dispatch-type159059159061%_ - (let ((__tmp166108 + (##unchecked-structure-ref _%self158164%_ '4 '#f '#f)) + (let ((_%dispatch-type158173158175%_ + (let ((__tmp165199 (let () (declare (not safe)) (##unchecked-structure-ref - _%self159050%_ + _%self158164%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp166108)))) - (if _%dispatch-type159059159061%_ - (let* ((_%dispatch-type159064%_ - _%dispatch-type159059159061%_) - (__method165985 + (gxc#optimizer-lookup-type __tmp165199)))) + (if _%dispatch-type158173158175%_ + (let* ((_%dispatch-type158178%_ + _%dispatch-type158173158175%_) + (__method165086 (let () (declare (not safe)) (__method-ref - _%dispatch-type159064%_ + _%dispatch-type158178%_ 'return-type)))) - (if __method165985 - (__method165985 - _%dispatch-type159064%_ - _%ctx159045%_ - _%stx159046%_ - _%args159047%_) + (if __method165086 + (__method165086 + _%dispatch-type158178%_ + _%ctx158159%_ + _%stx158160%_ + _%args158161%_) (let () (declare (not safe)) (error '"Missing method" - _%dispatch-type159064%_ + _%dispatch-type158178%_ 'return-type)))) '#f)) - (let () - (declare (not safe)) - (gxc#!procedure::return-type - _%self159050%_ - _%ctx159045%_ - _%stx159046%_ - _%args159047%_)))))) + (gxc#!procedure::return-type + _%self158164%_ + _%ctx158159%_ + _%stx158160%_ + _%args158161%_))))) (let () (declare (not safe)) (__bind-method! @@ -8804,52 +8475,47 @@ gxc#!lambda::apply-return-type '#f)) (define gxc#!case-lambda::return-type - (lambda (_%self158774%_ _%ctx158775%_ _%stx158776%_ _%args158777%_) - (let () - (let* ((_%self158780%_ _%self158774%_) - (_%$e158794%_ - (let ((__tmp166110 - (lambda (_%g158789158791%_) - (let () - (declare (not safe)) - (gxc#!lambda-arity-match? - _%g158789158791%_ - _%args158777%_)))) - (__tmp166109 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self158780%_ - '3 - '#f - '#f)))) - (declare (not safe)) - (__find __tmp166110 __tmp166109)))) - (if _%$e158794%_ - ((lambda (_%clause158797%_) - (let ((__method165986 - (let () - (declare (not safe)) - (__method-ref _%clause158797%_ 'return-type)))) - (if __method165986 - (__method165986 - _%clause158797%_ - _%ctx158775%_ - _%stx158776%_ - _%args158777%_) - (let () - (declare (not safe)) - (error '"Missing method" - _%clause158797%_ - 'return-type))))) - _%$e158794%_) - (let () + (lambda (_%self157888%_ _%ctx157889%_ _%stx157890%_ _%args157891%_) + (let* ((_%self157894%_ _%self157888%_) + (_%$e157908%_ + (let ((__tmp165201 + (lambda (_%g157903157905%_) + (gxc#!lambda-arity-match? + _%g157903157905%_ + _%args157891%_))) + (__tmp165200 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self157894%_ + '3 + '#f + '#f)))) (declare (not safe)) - (gxc#!procedure::return-type - _%self158780%_ - _%ctx158775%_ - _%stx158776%_ - _%args158777%_))))))) + (__find __tmp165201 __tmp165200)))) + (if _%$e157908%_ + ((lambda (_%clause157911%_) + (let ((__method165087 + (let () + (declare (not safe)) + (__method-ref _%clause157911%_ 'return-type)))) + (if __method165087 + (__method165087 + _%clause157911%_ + _%ctx157889%_ + _%stx157890%_ + _%args157891%_) + (let () + (declare (not safe)) + (error '"Missing method" + _%clause157911%_ + 'return-type))))) + _%$e157908%_) + (gxc#!procedure::return-type + _%self157894%_ + _%ctx157889%_ + _%stx157890%_ + _%args157891%_))))) (let () (declare (not safe)) (__bind-method! @@ -8858,68 +8524,62 @@ gxc#!case-lambda::return-type '#f)) (define gxc#!case-lambda::apply-return-type - (lambda (_%self158622%_ _%ctx158623%_ _%stx158624%_ _%args158625%_) - (let ((_%self158628%_ _%self158622%_)) - (let* ((_%candidates158642%_ - (filter (lambda (_%g158637158639%_) - (let () - (declare (not safe)) - (gxc#!lambda-arity-match-apply? - _%g158637158639%_ - _%args158625%_))) - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self158628%_ - '3 - '#f - '#f)))) - (_%candidate-types158646%_ - (let ((__tmp166111 - (lambda (_%candidate158644%_) - (let ((__method165987 - (let () - (declare (not safe)) - (__method-ref - _%candidate158644%_ - 'apply-return-type)))) - (if __method165987 - (__method165987 - _%candidate158644%_ - _%ctx158623%_ - _%stx158624%_ - _%args158625%_) - (let () - (declare (not safe)) - (error '"Missing method" - _%candidate158644%_ - 'apply-return-type))))))) - (declare (not safe)) - (##map __tmp166111 _%candidates158642%_)))) - (if (let () (declare (not safe)) (pair? _%candidate-types158646%_)) - (let ((__tmp166114 - (lambda (_%candidate-type158649%_ _%ret158650%_) - (if _%ret158650%_ - (if _%candidate-type158649%_ - (let () - (declare (not safe)) - (gxc#greatest-common-type - _%stx158624%_ - _%candidate-type158649%_ - _%ret158650%_)) - '#f) - '#f))) - (__tmp166113 (car _%candidate-types158646%_)) - (__tmp166112 (cdr _%candidate-types158646%_))) - (declare (not safe)) - (__foldl1 __tmp166114 __tmp166113 __tmp166112)) - (let () + (lambda (_%self157736%_ _%ctx157737%_ _%stx157738%_ _%args157739%_) + (let* ((_%self157742%_ _%self157736%_) + (_%candidates157756%_ + (filter (lambda (_%g157751157753%_) + (gxc#!lambda-arity-match-apply? + _%g157751157753%_ + _%args157739%_)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self157742%_ + '3 + '#f + '#f)))) + (_%candidate-types157760%_ + (let ((__tmp165202 + (lambda (_%candidate157758%_) + (let ((__method165088 + (let () + (declare (not safe)) + (__method-ref + _%candidate157758%_ + 'apply-return-type)))) + (if __method165088 + (__method165088 + _%candidate157758%_ + _%ctx157737%_ + _%stx157738%_ + _%args157739%_) + (let () + (declare (not safe)) + (error '"Missing method" + _%candidate157758%_ + 'apply-return-type))))))) (declare (not safe)) - (gxc#!procedure::return-type - _%self158628%_ - _%ctx158623%_ - _%stx158624%_ - _%args158625%_))))))) + (##map __tmp165202 _%candidates157756%_)))) + (if (pair? _%candidate-types157760%_) + (let ((__tmp165205 + (lambda (_%candidate-type157763%_ _%ret157764%_) + (if _%ret157764%_ + (if _%candidate-type157763%_ + (gxc#greatest-common-type + _%stx157738%_ + _%candidate-type157763%_ + _%ret157764%_) + '#f) + '#f))) + (__tmp165204 (car _%candidate-types157760%_)) + (__tmp165203 (cdr _%candidate-types157760%_))) + (declare (not safe)) + (__foldl1 __tmp165205 __tmp165204 __tmp165203)) + (gxc#!procedure::return-type + _%self157742%_ + _%ctx157737%_ + _%stx157738%_ + _%args157739%_))))) (let () (declare (not safe)) (__bind-method! @@ -8928,135 +8588,123 @@ gxc#!case-lambda::apply-return-type '#f)) (define gxc#!kw-lambda::return-type - (lambda (_%self158428%_ _%ctx158429%_ _%stx158430%_ _%args158431%_) - (let ((_%self158434%_ _%self158428%_)) - (let* ((_%g158443158454%_ - (let ((__tmp166115 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self158434%_ - '4 - '#f - '#f)))) + (lambda (_%self157542%_ _%ctx157543%_ _%stx157544%_ _%args157545%_) + (let* ((_%self157548%_ _%self157542%_) + (_%g157557157568%_ + (let ((__tmp165206 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self157548%_ + '4 + '#f + '#f)))) + (declare (not safe)) + (gxc#optimizer-lookup-type __tmp165206))) + (_%E157560157572%_ + (lambda () + (let () (declare (not safe)) - (gxc#optimizer-lookup-type __tmp166115))) - (_%E158446158458%_ - (lambda () - (let () - (declare (not safe)) - (error '"No clause matching" - _%g158443158454%_ - '((!kw-lambda-primary _ _ keys main)) - '((? !procedure? proc)))) - '#!void))) - (let ((_%K158448158481%_ - (lambda (_%main158472%_ _%keys158473%_) - (let ((_%main-type158474158476%_ - (let () - (declare (not safe)) - (gxc#optimizer-lookup-type _%main158472%_)))) - (if _%main-type158474158476%_ - (let* ((_%main-type158479%_ - _%main-type158474158476%_) - (__method165988 - (let () - (declare (not safe)) - (__method-ref - _%main-type158479%_ - 'return-type)))) - (if __method165988 - (__method165988 - _%main-type158479%_ - _%ctx158429%_ - _%stx158430%_ - (let () - (declare (not safe)) - (gxc#extract-keyword-args _%args158431%_))) + (error '"No clause matching" + _%g157557157568%_ + '((!kw-lambda-primary _ _ keys main)) + '((? !procedure? proc)))) + '#!void))) + (let ((_%K157562157595%_ + (lambda (_%main157586%_ _%keys157587%_) + (let ((_%main-type157588157590%_ + (let () + (declare (not safe)) + (gxc#optimizer-lookup-type _%main157586%_)))) + (if _%main-type157588157590%_ + (let* ((_%main-type157593%_ _%main-type157588157590%_) + (__method165089 (let () (declare (not safe)) - (error '"Missing method" - _%main-type158479%_ - 'return-type)))) - '#f)))) - (_%K158447158464%_ - (lambda (_%proc158462%_) - (let ((__method165989 - (let () - (declare (not safe)) - (__method-ref _%proc158462%_ 'return-type)))) - (if __method165989 - (__method165989 - _%proc158462%_ - _%proc158462%_ - _%ctx158429%_ - _%stx158430%_ - (let () - (declare (not safe)) - (gxc#extract-keyword-args _%args158431%_))) - (let () - (declare (not safe)) - (error '"Missing method" - _%proc158462%_ - 'return-type))))))) - (let ((_%try-match158445158469%_ - (lambda () - (if (let () - (declare (not safe)) - (##structure-instance-of? - _%g158443158454%_ - 'gxc#!procedure::t)) - (let ((_%proc158467%_ _%g158443158454%_)) - (declare (not safe)) - (_%K158447158464%_ _%proc158467%_)) - (let () - (declare (not safe)) - (_%E158446158458%_)))))) - (if (let () - (declare (not safe)) - (##structure-instance-of? - _%g158443158454%_ - 'gxc#!kw-lambda-primary::t)) - (let* ((_%e158449158484%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%g158443158454%_ - '1 - '#f - '#f))) - (_%e158450158487%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%g158443158454%_ - '2 - '#f - '#f))) - (_%e158451158490%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%g158443158454%_ - '3 - '#f - '#f))) - (_%e158452158495%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%g158443158454%_ - '4 - '#f - '#f)))) - (let ((_%keys158493%_ _%e158451158490%_) - (_%main158498%_ _%e158452158495%_)) - (let () - (declare (not safe)) - (_%K158448158481%_ _%main158498%_ _%keys158493%_)))) - (let () - (declare (not safe)) - (_%try-match158445158469%_))))))))) + (__method-ref + _%main-type157593%_ + 'return-type)))) + (if __method165089 + (__method165089 + _%main-type157593%_ + _%ctx157543%_ + _%stx157544%_ + (gxc#extract-keyword-args _%args157545%_)) + (let () + (declare (not safe)) + (error '"Missing method" + _%main-type157593%_ + 'return-type)))) + '#f)))) + (_%K157561157578%_ + (lambda (_%proc157576%_) + (let ((__method165090 + (let () + (declare (not safe)) + (__method-ref _%proc157576%_ 'return-type)))) + (if __method165090 + (__method165090 + _%proc157576%_ + _%proc157576%_ + _%ctx157543%_ + _%stx157544%_ + (gxc#extract-keyword-args _%args157545%_)) + (let () + (declare (not safe)) + (error '"Missing method" + _%proc157576%_ + 'return-type))))))) + (let ((_%try-match157559157583%_ + (lambda () + (if (let () + (declare (not safe)) + (##structure-instance-of? + _%g157557157568%_ + 'gxc#!procedure::t)) + (let ((_%proc157581%_ _%g157557157568%_)) + (_%K157561157578%_ _%proc157581%_)) + (_%E157560157572%_))))) + (if (let () + (declare (not safe)) + (##structure-instance-of? + _%g157557157568%_ + 'gxc#!kw-lambda-primary::t)) + (let* ((_%e157563157598%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%g157557157568%_ + '1 + '#f + '#f))) + (_%e157564157601%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%g157557157568%_ + '2 + '#f + '#f))) + (_%e157565157604%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%g157557157568%_ + '3 + '#f + '#f))) + (_%e157566157609%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%g157557157568%_ + '4 + '#f + '#f)))) + (let ((_%keys157607%_ _%e157565157604%_) + (_%main157612%_ _%e157566157609%_)) + (_%K157562157595%_ _%main157612%_ _%keys157607%_))) + (_%try-match157559157583%_))))))) (let () (declare (not safe)) (__bind-method! @@ -9065,137 +8713,123 @@ gxc#!kw-lambda::return-type '#f)) (define gxc#!kw-lambda::apply-return-type - (lambda (_%self158234%_ _%ctx158235%_ _%stx158236%_ _%args158237%_) - (let ((_%self158240%_ _%self158234%_)) - (let* ((_%g158249158260%_ - (let ((__tmp166116 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self158240%_ - '4 - '#f - '#f)))) + (lambda (_%self157348%_ _%ctx157349%_ _%stx157350%_ _%args157351%_) + (let* ((_%self157354%_ _%self157348%_) + (_%g157363157374%_ + (let ((__tmp165207 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self157354%_ + '4 + '#f + '#f)))) + (declare (not safe)) + (gxc#optimizer-lookup-type __tmp165207))) + (_%E157366157378%_ + (lambda () + (let () (declare (not safe)) - (gxc#optimizer-lookup-type __tmp166116))) - (_%E158252158264%_ - (lambda () - (let () - (declare (not safe)) - (error '"No clause matching" - _%g158249158260%_ - '((!kw-lambda-primary _ _ keys main)) - '((? !procedure? proc)))) - '#!void))) - (let ((_%K158254158287%_ - (lambda (_%main158278%_ _%keys158279%_) - (let ((_%main-type158280158282%_ - (let () - (declare (not safe)) - (gxc#optimizer-lookup-type _%main158278%_)))) - (if _%main-type158280158282%_ - (let* ((_%main-type158285%_ - _%main-type158280158282%_) - (__method165990 - (let () - (declare (not safe)) - (__method-ref - _%main-type158285%_ - 'apply-return-type)))) - (if __method165990 - (__method165990 - _%main-type158285%_ - _%ctx158235%_ - _%stx158236%_ - (let () - (declare (not safe)) - (gxc#extract-keyword-args _%args158237%_))) + (error '"No clause matching" + _%g157363157374%_ + '((!kw-lambda-primary _ _ keys main)) + '((? !procedure? proc)))) + '#!void))) + (let ((_%K157368157401%_ + (lambda (_%main157392%_ _%keys157393%_) + (let ((_%main-type157394157396%_ + (let () + (declare (not safe)) + (gxc#optimizer-lookup-type _%main157392%_)))) + (if _%main-type157394157396%_ + (let* ((_%main-type157399%_ _%main-type157394157396%_) + (__method165091 (let () (declare (not safe)) - (error '"Missing method" - _%main-type158285%_ - 'apply-return-type)))) - '#f)))) - (_%K158253158270%_ - (lambda (_%proc158268%_) - (let ((__method165991 - (let () - (declare (not safe)) - (__method-ref - _%proc158268%_ - 'apply-return-type)))) - (if __method165991 - (__method165991 - _%proc158268%_ - _%proc158268%_ - _%ctx158235%_ - _%stx158236%_ - (let () - (declare (not safe)) - (gxc#extract-keyword-args _%args158237%_))) - (let () - (declare (not safe)) - (error '"Missing method" - _%proc158268%_ - 'apply-return-type))))))) - (let ((_%try-match158251158275%_ - (lambda () - (if (let () - (declare (not safe)) - (##structure-instance-of? - _%g158249158260%_ - 'gxc#!procedure::t)) - (let ((_%proc158273%_ _%g158249158260%_)) - (declare (not safe)) - (_%K158253158270%_ _%proc158273%_)) - (let () - (declare (not safe)) - (_%E158252158264%_)))))) - (if (let () - (declare (not safe)) - (##structure-instance-of? - _%g158249158260%_ - 'gxc#!kw-lambda-primary::t)) - (let* ((_%e158255158290%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%g158249158260%_ - '1 - '#f - '#f))) - (_%e158256158293%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%g158249158260%_ - '2 - '#f - '#f))) - (_%e158257158296%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%g158249158260%_ - '3 - '#f - '#f))) - (_%e158258158301%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%g158249158260%_ - '4 - '#f - '#f)))) - (let ((_%keys158299%_ _%e158257158296%_) - (_%main158304%_ _%e158258158301%_)) - (let () - (declare (not safe)) - (_%K158254158287%_ _%main158304%_ _%keys158299%_)))) - (let () - (declare (not safe)) - (_%try-match158251158275%_))))))))) + (__method-ref + _%main-type157399%_ + 'apply-return-type)))) + (if __method165091 + (__method165091 + _%main-type157399%_ + _%ctx157349%_ + _%stx157350%_ + (gxc#extract-keyword-args _%args157351%_)) + (let () + (declare (not safe)) + (error '"Missing method" + _%main-type157399%_ + 'apply-return-type)))) + '#f)))) + (_%K157367157384%_ + (lambda (_%proc157382%_) + (let ((__method165092 + (let () + (declare (not safe)) + (__method-ref _%proc157382%_ 'apply-return-type)))) + (if __method165092 + (__method165092 + _%proc157382%_ + _%proc157382%_ + _%ctx157349%_ + _%stx157350%_ + (gxc#extract-keyword-args _%args157351%_)) + (let () + (declare (not safe)) + (error '"Missing method" + _%proc157382%_ + 'apply-return-type))))))) + (let ((_%try-match157365157389%_ + (lambda () + (if (let () + (declare (not safe)) + (##structure-instance-of? + _%g157363157374%_ + 'gxc#!procedure::t)) + (let ((_%proc157387%_ _%g157363157374%_)) + (_%K157367157384%_ _%proc157387%_)) + (_%E157366157378%_))))) + (if (let () + (declare (not safe)) + (##structure-instance-of? + _%g157363157374%_ + 'gxc#!kw-lambda-primary::t)) + (let* ((_%e157369157404%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%g157363157374%_ + '1 + '#f + '#f))) + (_%e157370157407%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%g157363157374%_ + '2 + '#f + '#f))) + (_%e157371157410%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%g157363157374%_ + '3 + '#f + '#f))) + (_%e157372157415%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%g157363157374%_ + '4 + '#f + '#f)))) + (let ((_%keys157413%_ _%e157371157410%_) + (_%main157418%_ _%e157372157415%_)) + (_%K157368157401%_ _%main157418%_ _%keys157413%_))) + (_%try-match157365157389%_))))))) (let () (declare (not safe)) (__bind-method! @@ -9204,864 +8838,817 @@ gxc#!kw-lambda::apply-return-type '#f)) (define gxc#extract-keyword-args - (lambda (_%args157983%_) - (let _%loop157985%_ ((_%rest157987%_ _%args157983%_) - (_%result157988%_ '())) - (let* ((_%__stx164424164425%_ _%rest157987%_) - (_%g157992158018%_ + (lambda (_%args157097%_) + (let _%loop157099%_ ((_%rest157101%_ _%args157097%_) + (_%result157102%_ '())) + (let* ((_%__stx163525163526%_ _%rest157101%_) + (_%g157106157132%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx164424164425%_))))) - (let ((_%__kont164426164427%_ - (lambda (_%L158090%_ _%L158091%_ _%L158092%_) - (let ((__tmp166117 (cons _%L158091%_ _%result157988%_))) - (declare (not safe)) - (_%loop157985%_ _%L158090%_ __tmp166117)))) - (_%__kont164428164429%_ - (lambda (_%L158038%_ _%L158039%_) - (let ((__tmp166118 (cons _%L158039%_ _%result157988%_))) - (declare (not safe)) - (_%loop157985%_ _%L158038%_ __tmp166118)))) - (_%__kont164430164431%_ - (lambda () (reverse! _%result157988%_)))) - (let ((_%__match164461164462%_ - (lambda (_%e157999158058%_ - _%hd157998158061%_ - _%tl157997158063%_ - _%e158002158066%_ - _%hd158001158069%_ - _%tl158000158071%_ - _%e158005158074%_ - _%hd158004158077%_ - _%tl158003158079%_ - _%e158008158082%_ - _%hd158007158085%_ - _%tl158006158087%_) - (let ((_%L158090%_ _%tl158006158087%_) - (_%L158091%_ _%hd158007158085%_) - (_%L158092%_ _%hd158004158077%_)) + _%__stx163525163526%_))))) + (let ((_%__kont163527163528%_ + (lambda (_%L157204%_ _%L157205%_ _%L157206%_) + (_%loop157099%_ + _%L157204%_ + (cons _%L157205%_ _%result157102%_)))) + (_%__kont163529163530%_ + (lambda (_%L157152%_ _%L157153%_) + (_%loop157099%_ + _%L157152%_ + (cons _%L157153%_ _%result157102%_)))) + (_%__kont163531163532%_ + (lambda () (reverse! _%result157102%_)))) + (let ((_%__match163562163563%_ + (lambda (_%e157113157172%_ + _%hd157112157175%_ + _%tl157111157177%_ + _%e157116157180%_ + _%hd157115157183%_ + _%tl157114157185%_ + _%e157119157188%_ + _%hd157118157191%_ + _%tl157117157193%_ + _%e157122157196%_ + _%hd157121157199%_ + _%tl157120157201%_) + (let ((_%L157204%_ _%tl157120157201%_) + (_%L157205%_ _%hd157121157199%_) + (_%L157206%_ _%hd157118157191%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L158092%_)) - (_%__kont164426164427%_ - _%L158090%_ - _%L158091%_ - _%L158092%_) - (_%__kont164428164429%_ - _%tl157997158063%_ - _%hd157998158061%_)))))) + (gx#stx-keyword? _%L157206%_)) + (_%__kont163527163528%_ + _%L157204%_ + _%L157205%_ + _%L157206%_) + (_%__kont163529163530%_ + _%tl157111157177%_ + _%hd157112157175%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx164424164425%_)) - (let ((_%e157999158058%_ + (gx#stx-pair? _%__stx163525163526%_)) + (let ((_%e157113157172%_ (let () (declare (not safe)) - (gx#stx-e _%__stx164424164425%_)))) - (let ((_%tl157997158063%_ + (gx#stx-e _%__stx163525163526%_)))) + (let ((_%tl157111157177%_ (let () (declare (not safe)) - (##cdr _%e157999158058%_))) - (_%hd157998158061%_ + (##cdr _%e157113157172%_))) + (_%hd157112157175%_ (let () (declare (not safe)) - (##car _%e157999158058%_)))) + (##car _%e157113157172%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157998158061%_)) - (let ((_%e158002158066%_ + (gx#stx-pair? _%hd157112157175%_)) + (let ((_%e157116157180%_ (let () (declare (not safe)) - (gx#stx-e _%hd157998158061%_)))) - (let ((_%tl158000158071%_ + (gx#stx-e _%hd157112157175%_)))) + (let ((_%tl157114157185%_ (let () (declare (not safe)) - (##cdr _%e158002158066%_))) - (_%hd158001158069%_ + (##cdr _%e157116157180%_))) + (_%hd157115157183%_ (let () (declare (not safe)) - (##car _%e158002158066%_)))) + (##car _%e157116157180%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158001158069%_)) + (gx#identifier? _%hd157115157183%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd158001158069%_)) + _%hd157115157183%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158000158071%_)) - (let ((_%e158005158074%_ + _%tl157114157185%_)) + (let ((_%e157119157188%_ (let () (declare (not safe)) (gx#stx-e - _%tl158000158071%_)))) - (let ((_%tl158003158079%_ + _%tl157114157185%_)))) + (let ((_%tl157117157193%_ (let () (declare (not safe)) - (##cdr _%e158005158074%_))) - (_%hd158004158077%_ + (##cdr _%e157119157188%_))) + (_%hd157118157191%_ (let () (declare (not safe)) - (##car _%e158005158074%_)))) + (##car _%e157119157188%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158003158079%_)) + _%tl157117157193%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157997158063%_)) - (let ((_%e158008158082%_ + _%tl157111157177%_)) + (let ((_%e157122157196%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl157997158063%_)))) - (let ((_%tl158006158087%_ + (gx#stx-e _%tl157111157177%_)))) + (let ((_%tl157120157201%_ (let () (declare (not safe)) - (##cdr _%e158008158082%_))) - (_%hd158007158085%_ + (##cdr _%e157122157196%_))) + (_%hd157121157199%_ (let () (declare (not safe)) - (##car _%e158008158082%_)))) - (_%__match164461164462%_ - _%e157999158058%_ - _%hd157998158061%_ - _%tl157997158063%_ - _%e158002158066%_ - _%hd158001158069%_ - _%tl158000158071%_ - _%e158005158074%_ - _%hd158004158077%_ - _%tl158003158079%_ - _%e158008158082%_ - _%hd158007158085%_ - _%tl158006158087%_))) - (_%__kont164428164429%_ _%tl157997158063%_ _%hd157998158061%_)) + (##car _%e157122157196%_)))) + (_%__match163562163563%_ + _%e157113157172%_ + _%hd157112157175%_ + _%tl157111157177%_ + _%e157116157180%_ + _%hd157115157183%_ + _%tl157114157185%_ + _%e157119157188%_ + _%hd157118157191%_ + _%tl157117157193%_ + _%e157122157196%_ + _%hd157121157199%_ + _%tl157120157201%_))) + (_%__kont163529163530%_ _%tl157111157177%_ _%hd157112157175%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont164428164429%_ - _%tl157997158063%_ - _%hd157998158061%_)))) - (_%__kont164428164429%_ - _%tl157997158063%_ - _%hd157998158061%_)) - (_%__kont164428164429%_ - _%tl157997158063%_ - _%hd157998158061%_)) - (_%__kont164428164429%_ - _%tl157997158063%_ - _%hd157998158061%_)))) - (_%__kont164428164429%_ - _%tl157997158063%_ - _%hd157998158061%_)))) - (_%__kont164430164431%_)))))))) + (_%__kont163529163530%_ + _%tl157111157177%_ + _%hd157112157175%_)))) + (_%__kont163529163530%_ + _%tl157111157177%_ + _%hd157112157175%_)) + (_%__kont163529163530%_ + _%tl157111157177%_ + _%hd157112157175%_)) + (_%__kont163529163530%_ + _%tl157111157177%_ + _%hd157112157175%_)))) + (_%__kont163529163530%_ + _%tl157111157177%_ + _%hd157112157175%_)))) + (_%__kont163531163532%_)))))))) (define gxc#!lambda-arity-match? - (lambda (_%self157915%_ _%args157916%_) - (let* ((_%self157917157925%_ _%self157915%_) - (_%E157919157929%_ + (lambda (_%self157029%_ _%args157030%_) + (let* ((_%self157031157039%_ _%self157029%_) + (_%E157033157043%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self157917157925%_ + _%self157031157039%_ '((!lambda _ _ arity)))) '#!void)) - (_%K157920157969%_ - (lambda (_%arity157932%_) - (let* ((_%arity157933157942%_ _%arity157932%_) - (_%E157936157946%_ + (_%K157034157083%_ + (lambda (_%arity157046%_) + (let* ((_%arity157047157056%_ _%arity157046%_) + (_%E157050157060%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity157933157942%_ + _%arity157047157056%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K157940157966%_ + (let ((_%K157054157080%_ (lambda () - (fx= (length _%args157916%_) _%arity157932%_))) - (_%K157937157952%_ - (lambda (_%arity157950%_) - (fx>= (length _%args157916%_) _%arity157950%_)))) - (let* ((_%__match164480164481%_ - (lambda (_%hd157938157955%_ _%tl157939157957%_) - (let ((_%arity157960%_ _%hd157938157955%_)) - (declare (not safe)) - (_%E157936157946%_)))) - (_%try-match157935157962%_ + (fx= (length _%args157030%_) _%arity157046%_))) + (_%K157051157066%_ + (lambda (_%arity157064%_) + (fx>= (length _%args157030%_) _%arity157064%_)))) + (let* ((_%__match163581163582%_ + (lambda (_%hd157052157069%_ _%tl157053157071%_) + (let ((_%arity157074%_ _%hd157052157069%_)) + (_%E157050157060%_)))) + (_%try-match157049157076%_ (lambda () (if (let () (declare (not safe)) - (##pair? _%arity157933157942%_)) - (let ((_%tl157939157957%_ + (##pair? _%arity157047157056%_)) + (let ((_%tl157053157071%_ (let () (declare (not safe)) - (##cdr _%arity157933157942%_))) - (_%hd157938157955%_ + (##cdr _%arity157047157056%_))) + (_%hd157052157069%_ (let () (declare (not safe)) - (##car _%arity157933157942%_)))) + (##car _%arity157047157056%_)))) (if (let () (declare (not safe)) - (##null? _%tl157939157957%_)) - (let ((_%arity157960%_ - _%hd157938157955%_)) - (declare (not safe)) - (_%K157937157952%_ - _%arity157960%_)) - (_%__match164480164481%_ - _%hd157938157955%_ - _%tl157939157957%_))) - (let () - (declare (not safe)) - (_%E157936157946%_)))))) - (if (let () - (declare (not safe)) - (fixnum? _%arity157933157942%_)) - (let () (declare (not safe)) (_%K157940157966%_)) - (let () - (declare (not safe)) - (_%try-match157935157962%_))))))))) + (##null? _%tl157053157071%_)) + (let ((_%arity157074%_ + _%hd157052157069%_)) + (_%K157051157066%_ + _%arity157074%_)) + (_%__match163581163582%_ + _%hd157052157069%_ + _%tl157053157071%_))) + (_%E157050157060%_))))) + (if (fixnum? _%arity157047157056%_) + (_%K157054157080%_) + (_%try-match157049157076%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self157917157925%_ + _%self157031157039%_ 'gxc#!lambda::t)) - (let* ((_%e157921157972%_ + (let* ((_%e157035157086%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self157917157925%_ + _%self157031157039%_ '1 '#f '#f))) - (_%e157922157975%_ + (_%e157036157089%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self157917157925%_ + _%self157031157039%_ '2 '#f '#f))) - (_%e157923157978%_ + (_%e157037157092%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self157917157925%_ + _%self157031157039%_ '3 '#f '#f))) - (_%arity157981%_ _%e157923157978%_)) - (declare (not safe)) - (_%K157920157969%_ _%arity157981%_)) - (let () (declare (not safe)) (_%E157919157929%_)))))) + (_%arity157095%_ _%e157037157092%_)) + (_%K157034157083%_ _%arity157095%_)) + (_%E157033157043%_))))) (define gxc#!lambda-arity-match-apply? - (lambda (_%self157847%_ _%args157848%_) - (let* ((_%self157849157857%_ _%self157847%_) - (_%E157851157861%_ + (lambda (_%self156961%_ _%args156962%_) + (let* ((_%self156963156971%_ _%self156961%_) + (_%E156965156975%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self157849157857%_ + _%self156963156971%_ '((!lambda _ _ arity)))) '#!void)) - (_%K157852157901%_ - (lambda (_%arity157864%_) - (let* ((_%arity157865157874%_ _%arity157864%_) - (_%E157868157878%_ + (_%K156966157015%_ + (lambda (_%arity156978%_) + (let* ((_%arity156979156988%_ _%arity156978%_) + (_%E156982156992%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity157865157874%_ + _%arity156979156988%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K157872157898%_ + (let ((_%K156986157012%_ (lambda () - (let ((__tmp166119 (length _%args157848%_))) + (let ((__tmp165208 (length _%args156962%_))) (declare (not safe)) - (##fx>= _%arity157864%_ __tmp166119)))) - (_%K157869157884%_ (lambda (_%arity157882%_) '#t))) - (let* ((_%__match164493164494%_ - (lambda (_%hd157870157887%_ _%tl157871157889%_) - (let ((_%arity157892%_ _%hd157870157887%_)) - (declare (not safe)) - (_%E157868157878%_)))) - (_%try-match157867157894%_ + (##fx>= _%arity156978%_ __tmp165208)))) + (_%K156983156998%_ (lambda (_%arity156996%_) '#t))) + (let* ((_%__match163594163595%_ + (lambda (_%hd156984157001%_ _%tl156985157003%_) + (let ((_%arity157006%_ _%hd156984157001%_)) + (_%E156982156992%_)))) + (_%try-match156981157008%_ (lambda () (if (let () (declare (not safe)) - (##pair? _%arity157865157874%_)) - (let ((_%tl157871157889%_ + (##pair? _%arity156979156988%_)) + (let ((_%tl156985157003%_ (let () (declare (not safe)) - (##cdr _%arity157865157874%_))) - (_%hd157870157887%_ + (##cdr _%arity156979156988%_))) + (_%hd156984157001%_ (let () (declare (not safe)) - (##car _%arity157865157874%_)))) + (##car _%arity156979156988%_)))) (if (let () (declare (not safe)) - (##null? _%tl157871157889%_)) - (let ((_%arity157892%_ - _%hd157870157887%_)) - (declare (not safe)) - (_%K157869157884%_ - _%arity157892%_)) - (_%__match164493164494%_ - _%hd157870157887%_ - _%tl157871157889%_))) - (let () - (declare (not safe)) - (_%E157868157878%_)))))) - (if (let () - (declare (not safe)) - (fixnum? _%arity157865157874%_)) - (let () (declare (not safe)) (_%K157872157898%_)) - (let () - (declare (not safe)) - (_%try-match157867157894%_))))))))) + (##null? _%tl156985157003%_)) + (let ((_%arity157006%_ + _%hd156984157001%_)) + (_%K156983156998%_ + _%arity157006%_)) + (_%__match163594163595%_ + _%hd156984157001%_ + _%tl156985157003%_))) + (_%E156982156992%_))))) + (if (fixnum? _%arity156979156988%_) + (_%K156986157012%_) + (_%try-match156981157008%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self157849157857%_ + _%self156963156971%_ 'gxc#!lambda::t)) - (let* ((_%e157853157904%_ + (let* ((_%e156967157018%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self157849157857%_ + _%self156963156971%_ '1 '#f '#f))) - (_%e157854157907%_ + (_%e156968157021%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self157849157857%_ + _%self156963156971%_ '2 '#f '#f))) - (_%e157855157910%_ + (_%e156969157024%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self157849157857%_ + _%self156963156971%_ '3 '#f '#f))) - (_%arity157913%_ _%e157855157910%_)) - (declare (not safe)) - (_%K157852157901%_ _%arity157913%_)) - (let () (declare (not safe)) (_%E157851157861%_)))))) + (_%arity157027%_ _%e156969157024%_)) + (_%K156966157015%_ _%arity157027%_)) + (_%E156965156975%_))))) (define gxc#basic-expression-type-special-cast - (lambda (_%ctx157734%_ _%stx157735%_) - (let* ((_%g157737157763%_ - (lambda (_%g157738157760%_) + (lambda (_%ctx156848%_ _%stx156849%_) + (let* ((_%g156851156877%_ + (lambda (_%g156852156874%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g157738157760%_)))) - (_%g157736157844%_ - (lambda (_%g157738157766%_) + _%g156852156874%_)))) + (_%g156850156958%_ + (lambda (_%g156852156880%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g157738157766%_)) - (let ((_%e157743157768%_ + (gx#stx-pair? _%g156852156880%_)) + (let ((_%e156857156882%_ (let () (declare (not safe)) - (gx#stx-e _%g157738157766%_)))) - (let ((_%hd157742157771%_ + (gx#stx-e _%g156852156880%_)))) + (let ((_%hd156856156885%_ (let () (declare (not safe)) - (##car _%e157743157768%_))) - (_%tl157741157773%_ + (##car _%e156857156882%_))) + (_%tl156855156887%_ (let () (declare (not safe)) - (##cdr _%e157743157768%_)))) + (##cdr _%e156857156882%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157741157773%_)) - (let ((_%e157746157776%_ + (gx#stx-pair? _%tl156855156887%_)) + (let ((_%e156860156890%_ (let () (declare (not safe)) - (gx#stx-e _%tl157741157773%_)))) - (let ((_%hd157745157779%_ + (gx#stx-e _%tl156855156887%_)))) + (let ((_%hd156859156893%_ (let () (declare (not safe)) - (##car _%e157746157776%_))) - (_%tl157744157781%_ + (##car _%e156860156890%_))) + (_%tl156858156895%_ (let () (declare (not safe)) - (##cdr _%e157746157776%_)))) + (##cdr _%e156860156890%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157744157781%_)) - (let ((_%e157749157784%_ + (gx#stx-pair? _%tl156858156895%_)) + (let ((_%e156863156898%_ (let () (declare (not safe)) - (gx#stx-e _%tl157744157781%_)))) - (let ((_%hd157748157787%_ + (gx#stx-e _%tl156858156895%_)))) + (let ((_%hd156862156901%_ (let () (declare (not safe)) - (##car _%e157749157784%_))) - (_%tl157747157789%_ + (##car _%e156863156898%_))) + (_%tl156861156903%_ (let () (declare (not safe)) - (##cdr _%e157749157784%_)))) + (##cdr _%e156863156898%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157748157787%_)) - (let ((_%e157752157792%_ + _%hd156862156901%_)) + (let ((_%e156866156906%_ (let () (declare (not safe)) (gx#stx-e - _%hd157748157787%_)))) - (let ((_%hd157751157795%_ + _%hd156862156901%_)))) + (let ((_%hd156865156909%_ (let () (declare (not safe)) - (##car _%e157752157792%_))) - (_%tl157750157797%_ + (##car _%e156866156906%_))) + (_%tl156864156911%_ (let () (declare (not safe)) - (##cdr _%e157752157792%_)))) + (##cdr _%e156866156906%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157751157795%_)) + _%hd156865156909%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157751157795%_)) + _%hd156865156909%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl157750157797%_)) - (let ((_%e157755157800%_ + (gx#stx-pair? _%tl156864156911%_)) + (let ((_%e156869156914%_ (let () (declare (not safe)) - (gx#stx-e _%tl157750157797%_)))) - (let ((_%hd157754157803%_ + (gx#stx-e _%tl156864156911%_)))) + (let ((_%hd156868156917%_ (let () (declare (not safe)) - (##car _%e157755157800%_))) - (_%tl157753157805%_ + (##car _%e156869156914%_))) + (_%tl156867156919%_ (let () (declare (not safe)) - (##cdr _%e157755157800%_)))) + (##cdr _%e156869156914%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157753157805%_)) + (gx#stx-null? _%tl156867156919%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157747157789%_)) - (let ((_%e157758157808%_ + (gx#stx-pair? _%tl156861156903%_)) + (let ((_%e156872156922%_ (let () (declare (not safe)) - (gx#stx-e _%tl157747157789%_)))) - (let ((_%hd157757157811%_ + (gx#stx-e _%tl156861156903%_)))) + (let ((_%hd156871156925%_ (let () (declare (not safe)) - (##car _%e157758157808%_))) - (_%tl157756157813%_ + (##car _%e156872156922%_))) + (_%tl156870156927%_ (let () (declare (not safe)) - (##cdr _%e157758157808%_)))) + (##cdr _%e156872156922%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157756157813%_)) - ((lambda (_%L157816%_ _%L157817%_) - (let ((_%interface-type157837157839%_ - (let ((__tmp166120 + (gx#stx-null? _%tl156870156927%_)) + ((lambda (_%L156930%_ _%L156931%_) + (let ((_%interface-type156951156953%_ + (let ((__tmp165209 (let () (declare (not safe)) (gxc#identifier-symbol - _%L157817%_)))) + _%L156931%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp166120)))) - (if _%interface-type157837157839%_ - (let ((_%interface-type157842%_ - _%interface-type157837157839%_)) + __tmp165209)))) + (if _%interface-type156951156953%_ + (let ((_%interface-type156956%_ + _%interface-type156951156953%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%interface-type157842%_ + _%interface-type156956%_ 'gxc#!interface::t)) - (let ((__tmp166121 + (let ((__tmp165210 (##structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%interface-type157842%_ + _%interface-type156956%_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx157735%_ __tmp166121)) + (gxc#optimizer-resolve-class _%stx156849%_ __tmp165210)) (let () (declare (not safe)) (gxc#raise-compile-error '"cast to non interface" - _%stx157735%_ - _%L157817%_ - _%interface-type157842%_)))) + _%stx156849%_ + _%L156931%_ + _%interface-type156956%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#f))) - _%hd157757157811%_ - _%hd157754157803%_) - (let () - (declare (not safe)) - (_%g157737157763%_ - _%g157738157766%_))))) - (let () - (declare (not safe)) - (_%g157737157763%_ _%g157738157766%_))) - (let () - (declare (not safe)) - (_%g157737157763%_ _%g157738157766%_))))) - (let () - (declare (not safe)) - (_%g157737157763%_ _%g157738157766%_))) - (let () - (declare (not safe)) - (_%g157737157763%_ _%g157738157766%_))) - (let () - (declare (not safe)) - (_%g157737157763%_ _%g157738157766%_))))) + _%hd156871156925%_ + _%hd156868156917%_) + (_%g156851156877%_ + _%g156852156880%_)))) + (_%g156851156877%_ _%g156852156880%_)) + (_%g156851156877%_ _%g156852156880%_)))) + (_%g156851156877%_ _%g156852156880%_)) + (_%g156851156877%_ _%g156852156880%_)) + (_%g156851156877%_ _%g156852156880%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g157737157763%_ - _%g157738157766%_))))) - (let () - (declare (not safe)) - (_%g157737157763%_ - _%g157738157766%_))))) - (let () - (declare (not safe)) - (_%g157737157763%_ _%g157738157766%_))))) - (let () - (declare (not safe)) - (_%g157737157763%_ _%g157738157766%_)))))) - (declare (not safe)) - (_%g157736157844%_ _%stx157735%_)))) + (_%g156851156877%_ + _%g156852156880%_)))) + (_%g156851156877%_ _%g156852156880%_)))) + (_%g156851156877%_ _%g156852156880%_)))) + (_%g156851156877%_ _%g156852156880%_))))) + (_%g156850156958%_ _%stx156849%_)))) (define gxc#basic-expression-type-special-apply - (lambda (_%ctx157518%_ _%stx157519%_) - (letrec ((_%type-e157521%_ - (lambda (_%rator157724%_ _%rator-type157725%_ _%args157726%_) + (lambda (_%ctx156632%_ _%stx156633%_) + (letrec ((_%type-e156635%_ + (lambda (_%rator156838%_ _%rator-type156839%_ _%args156840%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type157725%_ + _%rator-type156839%_ 'gxc#!procedure::t)) - (let ((__method165992 + (let ((__method165093 (let () (declare (not safe)) (__method-ref - _%rator-type157725%_ + _%rator-type156839%_ 'apply-return-type)))) - (if __method165992 - (__method165992 - _%rator-type157725%_ - _%ctx157518%_ - _%stx157519%_ - _%args157726%_) + (if __method165093 + (__method165093 + _%rator-type156839%_ + _%ctx156632%_ + _%stx156633%_ + _%args156840%_) (let () (declare (not safe)) (error '"Missing method" - _%rator-type157725%_ + _%rator-type156839%_ 'apply-return-type)))) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type157725%_ + _%rator-type156839%_ 'gxc#!class::t)) (or (eq? (##structure-ref - _%rator-type157725%_ + _%rator-type156839%_ '1 gxc#!type::t '#f) 'procedure) (eq? (##structure-ref - _%rator-type157725%_ + _%rator-type156839%_ '1 gxc#!type::t '#f) 't))) - (let () '#f) - (let ((__tmp166122 + '#f + (let ((__tmp165211 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rator)))) (declare (not safe)) (gxc#raise-compile-error '"applied operator is not a procedure" - _%stx157519%_ - __tmp166122 - _%rator-type157725%_))))))) - (let* ((_%__stx164496164497%_ _%stx157519%_) - (_%g157525157567%_ + _%stx156633%_ + __tmp165211 + _%rator-type156839%_))))))) + (let* ((_%__stx163597163598%_ _%stx156633%_) + (_%g156639156681%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx164496164497%_))))) - (let ((_%__kont164498164499%_ - (lambda (_%L157688%_ _%L157689%_ _%L157690%_ _%L157691%_) - (let ((_%rator-type157714157716%_ - (let () - (declare (not safe)) - (gxc#apply-basic-expression-type _%L157689%_)))) - (if _%rator-type157714157716%_ - (let* ((_%rator-type157719%_ - _%rator-type157714157716%_) - (__tmp166123 (cons _%L157690%_ _%L157688%_))) - (declare (not safe)) - (_%type-e157521%_ - _%L157689%_ - _%rator-type157719%_ - __tmp166123)) + _%__stx163597163598%_))))) + (let ((_%__kont163599163600%_ + (lambda (_%L156802%_ _%L156803%_ _%L156804%_ _%L156805%_) + (let ((_%rator-type156828156830%_ + (gxc#apply-basic-expression-type _%L156803%_))) + (if _%rator-type156828156830%_ + (let ((_%rator-type156833%_ + _%rator-type156828156830%_)) + (_%type-e156635%_ + _%L156803%_ + _%rator-type156833%_ + (cons _%L156804%_ _%L156802%_))) '#f)))) - (_%__kont164500164501%_ - (lambda (_%L157603%_ _%L157604%_) - (let ((_%rator-type157620157622%_ - (let () - (declare (not safe)) - (gxc#apply-basic-expression-type _%L157604%_)))) - (if _%rator-type157620157622%_ - (let ((_%rator-type157625%_ - _%rator-type157620157622%_)) - (declare (not safe)) - (_%type-e157521%_ - _%L157604%_ - _%rator-type157625%_ - _%L157603%_)) + (_%__kont163601163602%_ + (lambda (_%L156717%_ _%L156718%_) + (let ((_%rator-type156734156736%_ + (gxc#apply-basic-expression-type _%L156718%_))) + (if _%rator-type156734156736%_ + (let ((_%rator-type156739%_ + _%rator-type156734156736%_)) + (_%type-e156635%_ + _%L156718%_ + _%rator-type156739%_ + _%L156717%_)) '#f)))) - (_%__kont164502164503%_ (lambda () '#f))) - (let ((_%__match164551164552%_ - (lambda (_%e157533157632%_ - _%hd157532157635%_ - _%tl157531157637%_ - _%e157536157640%_ - _%hd157535157643%_ - _%tl157534157645%_ - _%e157539157648%_ - _%hd157538157651%_ - _%tl157537157653%_ - _%e157542157656%_ - _%hd157541157659%_ - _%tl157540157661%_ - _%e157545157664%_ - _%hd157544157667%_ - _%tl157543157669%_ - _%e157548157672%_ - _%hd157547157675%_ - _%tl157546157677%_ - _%e157551157680%_ - _%hd157550157683%_ - _%tl157549157685%_) - (let ((_%L157688%_ _%tl157549157685%_) - (_%L157689%_ _%hd157550157683%_) - (_%L157690%_ _%hd157547157675%_) - (_%L157691%_ _%hd157544157667%_)) + (_%__kont163603163604%_ (lambda () '#f))) + (let ((_%__match163652163653%_ + (lambda (_%e156647156746%_ + _%hd156646156749%_ + _%tl156645156751%_ + _%e156650156754%_ + _%hd156649156757%_ + _%tl156648156759%_ + _%e156653156762%_ + _%hd156652156765%_ + _%tl156651156767%_ + _%e156656156770%_ + _%hd156655156773%_ + _%tl156654156775%_ + _%e156659156778%_ + _%hd156658156781%_ + _%tl156657156783%_ + _%e156662156786%_ + _%hd156661156789%_ + _%tl156660156791%_ + _%e156665156794%_ + _%hd156664156797%_ + _%tl156663156799%_) + (let ((_%L156802%_ _%tl156663156799%_) + (_%L156803%_ _%hd156664156797%_) + (_%L156804%_ _%hd156661156789%_) + (_%L156805%_ _%hd156658156781%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157691%_ + _%L156805%_ 'keyword-dispatch)) - (_%__kont164498164499%_ - _%L157688%_ - _%L157689%_ - _%L157690%_ - _%L157691%_) - (_%__kont164500164501%_ - _%tl157537157653%_ - _%hd157538157651%_)))))) + (_%__kont163599163600%_ + _%L156802%_ + _%L156803%_ + _%L156804%_ + _%L156805%_) + (_%__kont163601163602%_ + _%tl156651156767%_ + _%hd156652156765%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx164496164497%_)) - (let ((_%e157533157632%_ + (gx#stx-pair? _%__stx163597163598%_)) + (let ((_%e156647156746%_ (let () (declare (not safe)) - (gx#stx-e _%__stx164496164497%_)))) - (let ((_%tl157531157637%_ + (gx#stx-e _%__stx163597163598%_)))) + (let ((_%tl156645156751%_ (let () (declare (not safe)) - (##cdr _%e157533157632%_))) - (_%hd157532157635%_ + (##cdr _%e156647156746%_))) + (_%hd156646156749%_ (let () (declare (not safe)) - (##car _%e157533157632%_)))) + (##car _%e156647156746%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157531157637%_)) - (let ((_%e157536157640%_ + (gx#stx-pair? _%tl156645156751%_)) + (let ((_%e156650156754%_ (let () (declare (not safe)) - (gx#stx-e _%tl157531157637%_)))) - (let ((_%tl157534157645%_ + (gx#stx-e _%tl156645156751%_)))) + (let ((_%tl156648156759%_ (let () (declare (not safe)) - (##cdr _%e157536157640%_))) - (_%hd157535157643%_ + (##cdr _%e156650156754%_))) + (_%hd156649156757%_ (let () (declare (not safe)) - (##car _%e157536157640%_)))) + (##car _%e156650156754%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157534157645%_)) - (let ((_%e157539157648%_ + (gx#stx-pair? _%tl156648156759%_)) + (let ((_%e156653156762%_ (let () (declare (not safe)) - (gx#stx-e _%tl157534157645%_)))) - (let ((_%tl157537157653%_ + (gx#stx-e _%tl156648156759%_)))) + (let ((_%tl156651156767%_ (let () (declare (not safe)) - (##cdr _%e157539157648%_))) - (_%hd157538157651%_ + (##cdr _%e156653156762%_))) + (_%hd156652156765%_ (let () (declare (not safe)) - (##car _%e157539157648%_)))) + (##car _%e156653156762%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157538157651%_)) - (let ((_%e157542157656%_ + _%hd156652156765%_)) + (let ((_%e156656156770%_ (let () (declare (not safe)) (gx#stx-e - _%hd157538157651%_)))) - (let ((_%tl157540157661%_ + _%hd156652156765%_)))) + (let ((_%tl156654156775%_ (let () (declare (not safe)) - (##cdr _%e157542157656%_))) - (_%hd157541157659%_ + (##cdr _%e156656156770%_))) + (_%hd156655156773%_ (let () (declare (not safe)) - (##car _%e157542157656%_)))) + (##car _%e156656156770%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157541157659%_)) + _%hd156655156773%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157541157659%_)) + _%hd156655156773%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157540157661%_)) - (let ((_%e157545157664%_ + _%tl156654156775%_)) + (let ((_%e156659156778%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl157540157661%_)))) - (let ((_%tl157543157669%_ + (gx#stx-e _%tl156654156775%_)))) + (let ((_%tl156657156783%_ (let () (declare (not safe)) - (##cdr _%e157545157664%_))) - (_%hd157544157667%_ + (##cdr _%e156659156778%_))) + (_%hd156658156781%_ (let () (declare (not safe)) - (##car _%e157545157664%_)))) + (##car _%e156659156778%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157543157669%_)) + (gx#stx-null? _%tl156657156783%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157537157653%_)) - (let ((_%e157548157672%_ + (gx#stx-pair? _%tl156651156767%_)) + (let ((_%e156662156786%_ (let () (declare (not safe)) - (gx#stx-e _%tl157537157653%_)))) - (let ((_%tl157546157677%_ + (gx#stx-e _%tl156651156767%_)))) + (let ((_%tl156660156791%_ (let () (declare (not safe)) - (##cdr _%e157548157672%_))) - (_%hd157547157675%_ + (##cdr _%e156662156786%_))) + (_%hd156661156789%_ (let () (declare (not safe)) - (##car _%e157548157672%_)))) + (##car _%e156662156786%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157546157677%_)) - (let ((_%e157551157680%_ + (gx#stx-pair? _%tl156660156791%_)) + (let ((_%e156665156794%_ (let () (declare (not safe)) (gx#stx-e - _%tl157546157677%_)))) - (let ((_%tl157549157685%_ + _%tl156660156791%_)))) + (let ((_%tl156663156799%_ (let () (declare (not safe)) - (##cdr _%e157551157680%_))) - (_%hd157550157683%_ + (##cdr _%e156665156794%_))) + (_%hd156664156797%_ (let () (declare (not safe)) - (##car _%e157551157680%_)))) - (_%__match164551164552%_ - _%e157533157632%_ - _%hd157532157635%_ - _%tl157531157637%_ - _%e157536157640%_ - _%hd157535157643%_ - _%tl157534157645%_ - _%e157539157648%_ - _%hd157538157651%_ - _%tl157537157653%_ - _%e157542157656%_ - _%hd157541157659%_ - _%tl157540157661%_ - _%e157545157664%_ - _%hd157544157667%_ - _%tl157543157669%_ - _%e157548157672%_ - _%hd157547157675%_ - _%tl157546157677%_ - _%e157551157680%_ - _%hd157550157683%_ - _%tl157549157685%_))) - (_%__kont164500164501%_ - _%tl157537157653%_ - _%hd157538157651%_)))) - (_%__kont164500164501%_ - _%tl157537157653%_ - _%hd157538157651%_)) - (_%__kont164500164501%_ - _%tl157537157653%_ - _%hd157538157651%_)))) - (_%__kont164500164501%_ - _%tl157537157653%_ - _%hd157538157651%_)) - (_%__kont164500164501%_ _%tl157537157653%_ _%hd157538157651%_)) + (##car _%e156665156794%_)))) + (_%__match163652163653%_ + _%e156647156746%_ + _%hd156646156749%_ + _%tl156645156751%_ + _%e156650156754%_ + _%hd156649156757%_ + _%tl156648156759%_ + _%e156653156762%_ + _%hd156652156765%_ + _%tl156651156767%_ + _%e156656156770%_ + _%hd156655156773%_ + _%tl156654156775%_ + _%e156659156778%_ + _%hd156658156781%_ + _%tl156657156783%_ + _%e156662156786%_ + _%hd156661156789%_ + _%tl156660156791%_ + _%e156665156794%_ + _%hd156664156797%_ + _%tl156663156799%_))) + (_%__kont163601163602%_ + _%tl156651156767%_ + _%hd156652156765%_)))) + (_%__kont163601163602%_ + _%tl156651156767%_ + _%hd156652156765%_)) + (_%__kont163601163602%_ + _%tl156651156767%_ + _%hd156652156765%_)))) + (_%__kont163601163602%_ + _%tl156651156767%_ + _%hd156652156765%_)) + (_%__kont163601163602%_ _%tl156651156767%_ _%hd156652156765%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont164500164501%_ - _%tl157537157653%_ - _%hd157538157651%_)))) - (_%__kont164500164501%_ - _%tl157537157653%_ - _%hd157538157651%_)))) - (_%__kont164502164503%_)))) - (_%__kont164502164503%_)))) - (_%__kont164502164503%_)))))))) + (_%__kont163601163602%_ + _%tl156651156767%_ + _%hd156652156765%_)))) + (_%__kont163601163602%_ + _%tl156651156767%_ + _%hd156652156765%_)))) + (_%__kont163603163604%_)))) + (_%__kont163603163604%_)))) + (_%__kont163603163604%_)))))))) (let () (declare (not safe)) (hash-put! @@ -10081,339 +9668,303 @@ '##apply gxc#basic-expression-type-special-apply)) (define gxc#basic-expression-type-ref% - (lambda (_%self157466%_ _%stx157467%_) - (let* ((_%g157469157482%_ - (lambda (_%g157470157479%_) + (lambda (_%self156580%_ _%stx156581%_) + (let* ((_%g156583156596%_ + (lambda (_%g156584156593%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g157470157479%_)))) - (_%g157468157515%_ - (lambda (_%g157470157485%_) + _%g156584156593%_)))) + (_%g156582156629%_ + (lambda (_%g156584156599%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g157470157485%_)) - (let ((_%e157474157487%_ + (gx#stx-pair? _%g156584156599%_)) + (let ((_%e156588156601%_ (let () (declare (not safe)) - (gx#stx-e _%g157470157485%_)))) - (let ((_%hd157473157490%_ + (gx#stx-e _%g156584156599%_)))) + (let ((_%hd156587156604%_ (let () (declare (not safe)) - (##car _%e157474157487%_))) - (_%tl157472157492%_ + (##car _%e156588156601%_))) + (_%tl156586156606%_ (let () (declare (not safe)) - (##cdr _%e157474157487%_)))) + (##cdr _%e156588156601%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157472157492%_)) - (let ((_%e157477157495%_ + (gx#stx-pair? _%tl156586156606%_)) + (let ((_%e156591156609%_ (let () (declare (not safe)) - (gx#stx-e _%tl157472157492%_)))) - (let ((_%hd157476157498%_ + (gx#stx-e _%tl156586156606%_)))) + (let ((_%hd156590156612%_ (let () (declare (not safe)) - (##car _%e157477157495%_))) - (_%tl157475157500%_ + (##car _%e156591156609%_))) + (_%tl156589156614%_ (let () (declare (not safe)) - (##cdr _%e157477157495%_)))) + (##cdr _%e156591156609%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157475157500%_)) - ((lambda (_%L157503%_) - (let ((__tmp166124 + (gx#stx-null? _%tl156589156614%_)) + ((lambda (_%L156617%_) + (let ((__tmp165212 (let () (declare (not safe)) (gxc#identifier-symbol - _%L157503%_)))) + _%L156617%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp166124))) - _%hd157476157498%_) - (let () - (declare (not safe)) - (_%g157469157482%_ - _%g157470157485%_))))) - (let () - (declare (not safe)) - (_%g157469157482%_ _%g157470157485%_))))) - (let () - (declare (not safe)) - (_%g157469157482%_ _%g157470157485%_)))))) - (declare (not safe)) - (_%g157468157515%_ _%stx157467%_)))) + __tmp165212))) + _%hd156590156612%_) + (_%g156583156596%_ _%g156584156599%_)))) + (_%g156583156596%_ _%g156584156599%_)))) + (_%g156583156596%_ _%g156584156599%_))))) + (_%g156582156629%_ _%stx156581%_)))) (define gxc#basic-expression-type-if% - (lambda (_%self157376%_ _%stx157377%_) - (let* ((_%g157379157400%_ - (lambda (_%g157380157397%_) + (lambda (_%self156490%_ _%stx156491%_) + (let* ((_%g156493156514%_ + (lambda (_%g156494156511%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g157380157397%_)))) - (_%g157378157463%_ - (lambda (_%g157380157403%_) + _%g156494156511%_)))) + (_%g156492156577%_ + (lambda (_%g156494156517%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g157380157403%_)) - (let ((_%e157386157405%_ + (gx#stx-pair? _%g156494156517%_)) + (let ((_%e156500156519%_ (let () (declare (not safe)) - (gx#stx-e _%g157380157403%_)))) - (let ((_%hd157385157408%_ + (gx#stx-e _%g156494156517%_)))) + (let ((_%hd156499156522%_ (let () (declare (not safe)) - (##car _%e157386157405%_))) - (_%tl157384157410%_ + (##car _%e156500156519%_))) + (_%tl156498156524%_ (let () (declare (not safe)) - (##cdr _%e157386157405%_)))) + (##cdr _%e156500156519%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157384157410%_)) - (let ((_%e157389157413%_ + (gx#stx-pair? _%tl156498156524%_)) + (let ((_%e156503156527%_ (let () (declare (not safe)) - (gx#stx-e _%tl157384157410%_)))) - (let ((_%hd157388157416%_ + (gx#stx-e _%tl156498156524%_)))) + (let ((_%hd156502156530%_ (let () (declare (not safe)) - (##car _%e157389157413%_))) - (_%tl157387157418%_ + (##car _%e156503156527%_))) + (_%tl156501156532%_ (let () (declare (not safe)) - (##cdr _%e157389157413%_)))) + (##cdr _%e156503156527%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157387157418%_)) - (let ((_%e157392157421%_ + (gx#stx-pair? _%tl156501156532%_)) + (let ((_%e156506156535%_ (let () (declare (not safe)) - (gx#stx-e _%tl157387157418%_)))) - (let ((_%hd157391157424%_ + (gx#stx-e _%tl156501156532%_)))) + (let ((_%hd156505156538%_ (let () (declare (not safe)) - (##car _%e157392157421%_))) - (_%tl157390157426%_ + (##car _%e156506156535%_))) + (_%tl156504156540%_ (let () (declare (not safe)) - (##cdr _%e157392157421%_)))) + (##cdr _%e156506156535%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157390157426%_)) - (let ((_%e157395157429%_ + _%tl156504156540%_)) + (let ((_%e156509156543%_ (let () (declare (not safe)) (gx#stx-e - _%tl157390157426%_)))) - (let ((_%hd157394157432%_ + _%tl156504156540%_)))) + (let ((_%hd156508156546%_ (let () (declare (not safe)) - (##car _%e157395157429%_))) - (_%tl157393157434%_ + (##car _%e156509156543%_))) + (_%tl156507156548%_ (let () (declare (not safe)) - (##cdr _%e157395157429%_)))) + (##cdr _%e156509156543%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157393157434%_)) - ((lambda (_%L157437%_ - _%L157438%_ - _%L157439%_) - (let ((_%type-K157457%_ - (let () + _%tl156507156548%_)) + ((lambda (_%L156551%_ + _%L156552%_ + _%L156553%_) + (let ((_%type-K156571%_ + (gxc#apply-basic-expression-type ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gxc#apply-basic-expression-type _%L157438%_))) - (_%type-E157458%_ - (let () - (declare (not safe)) - (gxc#apply-basic-expression-type _%L157437%_)))) + _%L156552%_)) + (_%type-E156572%_ + (gxc#apply-basic-expression-type _%L156551%_))) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-E157458%_ + _%type-E156572%_ 'gxc#!abort::t)) - (let () _%type-K157457%_) + _%type-K156571%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-K157457%_ + _%type-K156571%_ 'gxc#!abort::t)) - (let () _%type-E157458%_) - (let () - (declare (not safe)) - (gxc#greatest-common-type - _%stx157377%_ - _%type-K157457%_ - _%type-E157458%_)))))) - _%hd157394157432%_ - _%hd157391157424%_ - _%hd157388157416%_) - (let () - (declare (not safe)) - (_%g157379157400%_ _%g157380157403%_))))) + _%type-E156572%_ + (gxc#greatest-common-type + _%stx156491%_ + _%type-K156571%_ + _%type-E156572%_))))) + _%hd156508156546%_ + _%hd156505156538%_ + _%hd156502156530%_) + (_%g156493156514%_ _%g156494156517%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g157379157400%_ - _%g157380157403%_))))) - (let () - (declare (not safe)) - (_%g157379157400%_ - _%g157380157403%_))))) - (let () - (declare (not safe)) - (_%g157379157400%_ _%g157380157403%_))))) - (let () - (declare (not safe)) - (_%g157379157400%_ _%g157380157403%_)))))) - (declare (not safe)) - (_%g157378157463%_ _%stx157377%_)))) + (_%g156493156514%_ + _%g156494156517%_)))) + (_%g156493156514%_ _%g156494156517%_)))) + (_%g156493156514%_ _%g156494156517%_)))) + (_%g156493156514%_ _%g156494156517%_))))) + (_%g156492156577%_ _%stx156491%_)))) (define gxc#greatest-common-type - (lambda (_%stx157286%_ _%type-a157287%_ _%type-b157288%_) - (if (or (let () (declare (not safe)) (not _%type-a157287%_)) - (let () (declare (not safe)) (not _%type-b157288%_))) - (let () '#f) + (lambda (_%stx156400%_ _%type-a156401%_ _%type-b156402%_) + (if (or (not _%type-a156401%_) (not _%type-b156402%_)) + '#f (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-a157287%_ _%type-b157288%_)) - (let () _%type-b157288%_) + (gxc#!type-subtype? _%type-a156401%_ _%type-b156402%_)) + _%type-b156402%_ (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-b157288%_ _%type-a157287%_)) - (let () _%type-a157287%_) + (gxc#!type-subtype? _%type-b156402%_ _%type-a156401%_)) + _%type-a156401%_ (if (and (let () (declare (not safe)) (##structure-instance-of? - _%type-a157287%_ + _%type-a156401%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%type-b157288%_ + _%type-b156402%_ 'gxc#!class::t))) - (let () - (let* ((_%rev-precedence-list-a157297%_ - (reverse (##structure-ref - _%type-a157287%_ - '3 - gxc#!class::t - '#f))) - (_%rev-precedence-list-b157299%_ - (reverse (##structure-ref - _%type-b157288%_ - '3 - gxc#!class::t - '#f)))) - (let _%loop157302%_ ((_%rest-a157304%_ - _%rev-precedence-list-a157297%_) - (_%rest-b157305%_ - _%rev-precedence-list-b157299%_) - (_%result157306%_ '#f)) - (let* ((_%rest-a157307157315%_ _%rest-a157304%_) - (_%else157309157323%_ - (lambda () - (if _%result157306%_ - (let () + (let* ((_%rev-precedence-list-a156411%_ + (reverse (##structure-ref + _%type-a156401%_ + '3 + gxc#!class::t + '#f))) + (_%rev-precedence-list-b156413%_ + (reverse (##structure-ref + _%type-b156402%_ + '3 + gxc#!class::t + '#f)))) + (let _%loop156416%_ ((_%rest-a156418%_ + _%rev-precedence-list-a156411%_) + (_%rest-b156419%_ + _%rev-precedence-list-b156413%_) + (_%result156420%_ '#f)) + (let* ((_%rest-a156421156429%_ _%rest-a156418%_) + (_%else156423156437%_ + (lambda () + (if _%result156420%_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156400%_ + _%result156420%_)) + '#f))) + (_%K156425156476%_ + (lambda (_%rest-a156440%_ + _%super-a156441%_) + (let* ((_%rest-b156442156450%_ + _%rest-b156419%_) + (_%else156444156458%_ + (lambda () + (if _%result156420%_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156400%_ + _%result156420%_)) + '#f))) + (_%K156446156464%_ + (lambda (_%rest-b156461%_ + _%super-b156462%_) + (if (eq? _%super-a156441%_ + _%super-b156462%_) + (_%loop156416%_ + _%rest-a156440%_ + _%rest-b156461%_ + _%super-a156441%_) + (if _%result156420%_ + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156400%_ + _%result156420%_)) + '#f))))) + (if (let () (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157286%_ - _%result157306%_)) - '#f))) - (_%K157311157362%_ - (lambda (_%rest-a157326%_ - _%super-a157327%_) - (let* ((_%rest-b157328157336%_ - _%rest-b157305%_) - (_%else157330157344%_ - (lambda () - (if _%result157306%_ - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157286%_ - _%result157306%_)) - '#f))) - (_%K157332157350%_ - (lambda (_%rest-b157347%_ - _%super-b157348%_) - (if (eq? _%super-a157327%_ - _%super-b157348%_) - (let () - (declare (not safe)) - (_%loop157302%_ - _%rest-a157326%_ - _%rest-b157347%_ - _%super-a157327%_)) - (if _%result157306%_ - (let () - (declare - (not safe)) - (gxc#optimizer-resolve-class - _%stx157286%_ - _%result157306%_)) - '#f))))) - (if (let () - (declare (not safe)) - (##pair? _%rest-b157328157336%_)) - (let ((_%hd157333157353%_ - (let () - (declare (not safe)) - (##car _%rest-b157328157336%_))) - (_%tl157334157355%_ - (let () - (declare (not safe)) - (##cdr _%rest-b157328157336%_)))) - (let* ((_%super-b157358%_ - _%hd157333157353%_) - (_%rest-b157360%_ - _%tl157334157355%_)) - (declare (not safe)) - (_%K157332157350%_ - _%rest-b157360%_ - _%super-b157358%_))) - (let () - (declare (not safe)) - (_%else157330157344%_))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest-a157307157315%_)) - (let ((_%hd157312157365%_ - (let () - (declare (not safe)) - (##car _%rest-a157307157315%_))) - (_%tl157313157367%_ - (let () - (declare (not safe)) - (##cdr _%rest-a157307157315%_)))) - (let* ((_%super-a157370%_ - _%hd157312157365%_) - (_%rest-a157372%_ - _%tl157313157367%_)) - (declare (not safe)) - (_%K157311157362%_ - _%rest-a157372%_ - _%super-a157370%_))) - (let () - (declare (not safe)) - (_%else157309157323%_))))))) + (##pair? _%rest-b156442156450%_)) + (let ((_%hd156447156467%_ + (let () + (declare (not safe)) + (##car _%rest-b156442156450%_))) + (_%tl156448156469%_ + (let () + (declare (not safe)) + (##cdr _%rest-b156442156450%_)))) + (let* ((_%super-b156472%_ + _%hd156447156467%_) + (_%rest-b156474%_ + _%tl156448156469%_)) + (_%K156446156464%_ + _%rest-b156474%_ + _%super-b156472%_))) + (_%else156444156458%_)))))) + (if (let () + (declare (not safe)) + (##pair? _%rest-a156421156429%_)) + (let ((_%hd156426156479%_ + (let () + (declare (not safe)) + (##car _%rest-a156421156429%_))) + (_%tl156427156481%_ + (let () + (declare (not safe)) + (##cdr _%rest-a156421156429%_)))) + (let* ((_%super-a156484%_ + _%hd156426156479%_) + (_%rest-a156486%_ + _%tl156427156481%_)) + (_%K156425156476%_ + _%rest-a156486%_ + _%super-a156484%_))) + (_%else156423156437%_))))) (if (and (eq? (##structure-ref - _%type-a157287%_ + _%type-a156401%_ '1 gxc#!type::t '#f) 'procedure) (eq? (##structure-ref - _%type-b157288%_ + _%type-b156402%_ '1 gxc#!type::t '#f) @@ -10421,5641 +9972,5534 @@ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx157286%_ + _%stx156400%_ 'procedure::t)) - (let () '#f)))))))) + '#f))))))) (define gxc#basic-expression-type-quote% - (lambda (_%self157198%_ _%stx157199%_) - (let* ((_%g157201157214%_ - (lambda (_%g157202157211%_) + (lambda (_%self156312%_ _%stx156313%_) + (let* ((_%g156315156328%_ + (lambda (_%g156316156325%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g157202157211%_)))) - (_%g157200157283%_ - (lambda (_%g157202157217%_) + _%g156316156325%_)))) + (_%g156314156397%_ + (lambda (_%g156316156331%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g157202157217%_)) - (let ((_%e157206157219%_ + (gx#stx-pair? _%g156316156331%_)) + (let ((_%e156320156333%_ (let () (declare (not safe)) - (gx#stx-e _%g157202157217%_)))) - (let ((_%hd157205157222%_ - (let () - (declare (not safe)) - (##car _%e157206157219%_))) - (_%tl157204157224%_ + (gx#stx-e _%g156316156331%_)))) + (let ((_%hd156319156336%_ (let () (declare (not safe)) - (##cdr _%e157206157219%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl157204157224%_)) - (let ((_%e157209157227%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl157204157224%_)))) - (let ((_%hd157208157230%_ - (let () - (declare (not safe)) - (##car _%e157209157227%_))) - (_%tl157207157232%_ - (let () - (declare (not safe)) - (##cdr _%e157209157227%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl157207157232%_)) - ((lambda (_%L157235%_) - (let ((_%obj157247%_ - (let () - (declare (not safe)) - (gx#stx-e _%L157235%_)))) - (if (let () - (declare (not safe)) - (immediate? _%obj157247%_)) - (let () - (if (let () - (declare (not safe)) - (char? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'char::t)) - (if (let () - (declare (not safe)) - (eq? _%obj157247%_ - '#t)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'true::t)) - (if (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (not _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class _%stx157199%_ 'false::t)) - (if (let () - (declare (not safe)) - (eq? _%obj157247%_ '#!void)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'void::t)) - (if (let () - (declare (not safe)) - (eof-object? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'eof::t)) - (if (let () - (declare (not safe)) - (fixnum? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'fixnum::t)) - (if (let () - (declare (not safe)) - (null? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'null::t)) + (##car _%e156320156333%_))) + (_%tl156318156338%_ + (let () + (declare (not safe)) + (##cdr _%e156320156333%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl156318156338%_)) + (let ((_%e156323156341%_ (let () (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'special::t)))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (number? _%obj157247%_)) + (gx#stx-e _%tl156318156338%_)))) + (let ((_%hd156322156344%_ + (let () + (declare (not safe)) + (##car _%e156323156341%_))) + (_%tl156321156346%_ + (let () + (declare (not safe)) + (##cdr _%e156323156341%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl156321156346%_)) + ((lambda (_%L156349%_) + (let ((_%obj156361%_ + (let () + (declare (not safe)) + (gx#stx-e _%L156349%_)))) + (if (let () + (declare (not safe)) + (immediate? _%obj156361%_)) + (if (char? _%obj156361%_) (let () - (if (let () - (declare (not safe)) - (flonum? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'flonum::t)) - (if (let () - (declare + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'char::t)) + (if (eq? _%obj156361%_ '#t) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'true::t)) + (if (not _%obj156361%_) + (let () + (declare + (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'false::t)) + (if (eq? _%obj156361%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##bignum? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class _%stx157199%_ 'bignum::t)) - (if (let () - (declare (not safe)) - (##ratnum? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'ratnum::t)) - (if (let () - (declare (not safe)) - (##cpxnum? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'cpxnum::t)) - (let () '#f)))))) + '#!void) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class _%stx156313%_ 'void::t)) + (if (eof-object? _%obj156361%_) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'eof::t)) + (if (fixnum? _%obj156361%_) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'fixnum::t)) + (if (null? _%obj156361%_) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'null::t)) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'special::t))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (symbol? _%obj157247%_)) + (if (number? _%obj156361%_) + (if (flonum? _%obj156361%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx157199%_ - 'symbol::t)) + _%stx156313%_ + 'flonum::t)) (if (let () (declare (not safe)) - (keyword? - _%obj157247%_)) + (##bignum? + _%obj156361%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx157199%_ - 'keyword::t)) + _%stx156313%_ + 'bignum::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (pair? _%obj157247%_)) + (##ratnum? _%obj156361%_)) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx157199%_ 'pair::t)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'ratnum::t)) (if (let () (declare (not safe)) - (sequence? _%obj157247%_)) + (##cpxnum? _%obj156361%_)) (let () - (if (let () - (declare (not safe)) - (vector? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'vector::t)) - (if (let () - (declare (not safe)) - (string? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'string::t)) - (if (let () - (declare (not safe)) - (u8vector? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'u8vector::t)) - (if (let () - (declare (not safe)) - (s8vector? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 's8vector::t)) - (if (let () - (declare (not safe)) - (u16vector? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'u16vector::t)) - (if (let () - (declare (not safe)) - (s16vector? - _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 's16vector::t)) - (if (let () - (declare (not safe)) - (u32vector? - _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'u32vector::t)) - (if (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (s32vector? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 's32vector::t)) - (if (u64vector? _%obj157247%_) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'u64vector::t)) - (if (s64vector? _%obj157247%_) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 's64vector::t)) - (if (let () - (declare (not safe)) - (f32vector? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'f32vector::t)) - (if (let () - (declare (not safe)) - (f64vector? _%obj157247%_)) - (let () - (declare (not safe)) - (gxc#optimizer-resolve-class - _%stx157199%_ - 'f64vector::t)) - (let () '#f)))))))))))))) + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'cpxnum::t)) + '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () + (if (symbol? _%obj156361%_) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'symbol::t)) + (if (keyword? + _%obj156361%_) + (let () + (declare + (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'keyword::t)) + (if (pair? _%obj156361%_) + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gxc#optimizer-resolve-class _%stx156313%_ 'pair::t)) + (if (sequence? _%obj156361%_) + (if (vector? _%obj156361%_) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'vector::t)) + (if (string? _%obj156361%_) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'string::t)) + (if (u8vector? _%obj156361%_) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'u8vector::t)) + (if (s8vector? _%obj156361%_) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 's8vector::t)) + (if (u16vector? _%obj156361%_) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'u16vector::t)) + (if (s16vector? _%obj156361%_) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 's16vector::t)) + (if (u32vector? + _%obj156361%_) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'u32vector::t)) + (if (s32vector? + _%obj156361%_) + (let () + (declare + (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 's32vector::t)) + (if (u64vector? + _%obj156361%_) + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'u64vector::t)) + (if (s64vector? _%obj156361%_) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 's64vector::t)) + (if (f32vector? _%obj156361%_) + (let () (declare (not safe)) - (box? _%obj157247%_)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'f32vector::t)) + (if (f64vector? _%obj156361%_) + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _%stx156313%_ + 'f64vector::t)) + '#f)))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (box? _%obj156361%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx157199%_ + _%stx156313%_ 'box::t)) - (let () '#f)))))))))) + '#f))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd157208157230%_) - (let () - (declare (not safe)) - (_%g157201157214%_ - _%g157202157217%_))))) - (let () - (declare (not safe)) - (_%g157201157214%_ _%g157202157217%_))))) - (let () - (declare (not safe)) - (_%g157201157214%_ _%g157202157217%_)))))) - (declare (not safe)) - (_%g157200157283%_ _%stx157199%_)))) + _%hd156322156344%_) + (_%g156315156328%_ _%g156316156331%_)))) + (_%g156315156328%_ _%g156316156331%_)))) + (_%g156315156328%_ _%g156316156331%_))))) + (_%g156314156397%_ _%stx156313%_)))) (define gxc#dispatch-lambda-form? - (lambda (_%form156432%_) - (let* ((_%__stx164572164573%_ _%form156432%_) - (_%g156437156594%_ + (lambda (_%form155546%_) + (let* ((_%__stx163673163674%_ _%form155546%_) + (_%g155551155708%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx164572164573%_))))) - (let ((_%__kont164574164575%_ - (lambda (_%L157118%_ _%L157119%_ _%L157120%_) '#t)) - (_%__kont164580164581%_ - (lambda (_%L156906%_ - _%L156907%_ - _%L156908%_ - _%L156909%_ - _%L156910%_ - _%L156911%_) + _%__stx163673163674%_))))) + (let ((_%__kont163675163676%_ + (lambda (_%L156232%_ _%L156233%_ _%L156234%_) '#t)) + (_%__kont163681163682%_ + (lambda (_%L156020%_ + _%L156021%_ + _%L156022%_ + _%L156023%_ + _%L156024%_ + _%L156025%_) '#t)) - (_%__kont164586164587%_ - (lambda (_%L156702%_ _%L156703%_ _%L156704%_ _%L156705%_) + (_%__kont163687163688%_ + (lambda (_%L155816%_ _%L155817%_ _%L155818%_ _%L155819%_) '#t)) - (_%__kont164588164589%_ (lambda () '#f))) - (let* ((_%__match164713164714%_ - (lambda (_%e156556156606%_ - _%hd156555156609%_ - _%tl156554156611%_ - _%e156559156614%_ - _%hd156558156617%_ - _%tl156557156619%_ - _%e156562156622%_ - _%hd156561156625%_ - _%tl156560156627%_ - _%e156565156630%_ - _%hd156564156633%_ - _%tl156563156635%_ - _%e156568156638%_ - _%hd156567156641%_ - _%tl156566156643%_ - _%e156571156646%_ - _%hd156570156649%_ - _%tl156569156651%_ - _%e156574156654%_ - _%hd156573156657%_ - _%tl156572156659%_ - _%e156577156662%_ - _%hd156576156665%_ - _%tl156575156667%_ - _%e156580156670%_ - _%hd156579156673%_ - _%tl156578156675%_ - _%e156583156678%_ - _%hd156582156681%_ - _%tl156581156683%_ - _%e156586156686%_ - _%hd156585156689%_ - _%tl156584156691%_ - _%e156589156694%_ - _%hd156588156697%_ - _%tl156587156699%_) - (let ((_%L156702%_ _%hd156588156697%_) - (_%L156703%_ _%hd156579156673%_) - (_%L156704%_ _%hd156570156649%_) - (_%L156705%_ _%hd156555156609%_)) + (_%__kont163689163690%_ (lambda () '#f))) + (let* ((_%__match163814163815%_ + (lambda (_%e155670155720%_ + _%hd155669155723%_ + _%tl155668155725%_ + _%e155673155728%_ + _%hd155672155731%_ + _%tl155671155733%_ + _%e155676155736%_ + _%hd155675155739%_ + _%tl155674155741%_ + _%e155679155744%_ + _%hd155678155747%_ + _%tl155677155749%_ + _%e155682155752%_ + _%hd155681155755%_ + _%tl155680155757%_ + _%e155685155760%_ + _%hd155684155763%_ + _%tl155683155765%_ + _%e155688155768%_ + _%hd155687155771%_ + _%tl155686155773%_ + _%e155691155776%_ + _%hd155690155779%_ + _%tl155689155781%_ + _%e155694155784%_ + _%hd155693155787%_ + _%tl155692155789%_ + _%e155697155792%_ + _%hd155696155795%_ + _%tl155695155797%_ + _%e155700155800%_ + _%hd155699155803%_ + _%tl155698155805%_ + _%e155703155808%_ + _%hd155702155811%_ + _%tl155701155813%_) + (let ((_%L155816%_ _%hd155702155811%_) + (_%L155817%_ _%hd155693155787%_) + (_%L155818%_ _%hd155684155763%_) + (_%L155819%_ _%hd155669155723%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L156705%_)) + (gx#identifier? _%L155819%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L156704%_ + _%L155818%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L156705%_ - _%L156702%_)) - (let ((__tmp166125 - (let () - (declare (not safe)) - (gx#free-identifier=? - _%L156703%_ - _%L156705%_)))) - (declare (not safe)) - (not __tmp166125))) - (_%__kont164586164587%_ - _%L156702%_ - _%L156703%_ - _%L156704%_ - _%L156705%_) - (_%__kont164588164589%_))))) - (_%__match164685164686%_ - (lambda (_%e156556156606%_ - _%hd156555156609%_ - _%tl156554156611%_ - _%e156559156614%_ - _%hd156558156617%_ - _%tl156557156619%_ - _%e156562156622%_ - _%hd156561156625%_ - _%tl156560156627%_ - _%e156565156630%_ - _%hd156564156633%_ - _%tl156563156635%_ - _%e156568156638%_ - _%hd156567156641%_ - _%tl156566156643%_ - _%e156571156646%_ - _%hd156570156649%_ - _%tl156569156651%_ - _%e156574156654%_ - _%hd156573156657%_ - _%tl156572156659%_ - _%e156577156662%_ - _%hd156576156665%_ - _%tl156575156667%_ - _%e156580156670%_ - _%hd156579156673%_ - _%tl156578156675%_) + _%L155819%_ + _%L155816%_)) + (not (let () + (declare (not safe)) + (gx#free-identifier=? + _%L155817%_ + _%L155819%_)))) + (_%__kont163687163688%_ + _%L155816%_ + _%L155817%_ + _%L155818%_ + _%L155819%_) + (_%__kont163689163690%_))))) + (_%__match163786163787%_ + (lambda (_%e155670155720%_ + _%hd155669155723%_ + _%tl155668155725%_ + _%e155673155728%_ + _%hd155672155731%_ + _%tl155671155733%_ + _%e155676155736%_ + _%hd155675155739%_ + _%tl155674155741%_ + _%e155679155744%_ + _%hd155678155747%_ + _%tl155677155749%_ + _%e155682155752%_ + _%hd155681155755%_ + _%tl155680155757%_ + _%e155685155760%_ + _%hd155684155763%_ + _%tl155683155765%_ + _%e155688155768%_ + _%hd155687155771%_ + _%tl155686155773%_ + _%e155691155776%_ + _%hd155690155779%_ + _%tl155689155781%_ + _%e155694155784%_ + _%hd155693155787%_ + _%tl155692155789%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156572156659%_)) - (let ((_%e156583156678%_ + (gx#stx-pair? _%tl155686155773%_)) + (let ((_%e155697155792%_ (let () (declare (not safe)) - (gx#stx-e _%tl156572156659%_)))) - (let ((_%tl156581156683%_ + (gx#stx-e _%tl155686155773%_)))) + (let ((_%tl155695155797%_ (let () (declare (not safe)) - (##cdr _%e156583156678%_))) - (_%hd156582156681%_ + (##cdr _%e155697155792%_))) + (_%hd155696155795%_ (let () (declare (not safe)) - (##car _%e156583156678%_)))) + (##car _%e155697155792%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156582156681%_)) - (let ((_%e156586156686%_ + (gx#stx-pair? _%hd155696155795%_)) + (let ((_%e155700155800%_ (let () (declare (not safe)) - (gx#stx-e _%hd156582156681%_)))) - (let ((_%tl156584156691%_ + (gx#stx-e _%hd155696155795%_)))) + (let ((_%tl155698155805%_ (let () (declare (not safe)) - (##cdr _%e156586156686%_))) - (_%hd156585156689%_ + (##cdr _%e155700155800%_))) + (_%hd155699155803%_ (let () (declare (not safe)) - (##car _%e156586156686%_)))) + (##car _%e155700155800%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd156585156689%_)) + _%hd155699155803%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd156585156689%_)) + _%hd155699155803%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156584156691%_)) - (let ((_%e156589156694%_ + _%tl155698155805%_)) + (let ((_%e155703155808%_ (let () (declare (not safe)) (gx#stx-e - _%tl156584156691%_)))) - (let ((_%tl156587156699%_ + _%tl155698155805%_)))) + (let ((_%tl155701155813%_ (let () (declare (not safe)) - (##cdr _%e156589156694%_))) - (_%hd156588156697%_ + (##cdr _%e155703155808%_))) + (_%hd155702155811%_ (let () (declare (not safe)) - (##car _%e156589156694%_)))) + (##car _%e155703155808%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156587156699%_)) + _%tl155701155813%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl156581156683%_)) + (gx#stx-null? _%tl155695155797%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156557156619%_)) - (_%__match164713164714%_ - _%e156556156606%_ - _%hd156555156609%_ - _%tl156554156611%_ - _%e156559156614%_ - _%hd156558156617%_ - _%tl156557156619%_ - _%e156562156622%_ - _%hd156561156625%_ - _%tl156560156627%_ - _%e156565156630%_ - _%hd156564156633%_ - _%tl156563156635%_ - _%e156568156638%_ - _%hd156567156641%_ - _%tl156566156643%_ - _%e156571156646%_ - _%hd156570156649%_ - _%tl156569156651%_ - _%e156574156654%_ - _%hd156573156657%_ - _%tl156572156659%_ - _%e156577156662%_ - _%hd156576156665%_ - _%tl156575156667%_ - _%e156580156670%_ - _%hd156579156673%_ - _%tl156578156675%_ - _%e156583156678%_ - _%hd156582156681%_ - _%tl156581156683%_ - _%e156586156686%_ - _%hd156585156689%_ - _%tl156584156691%_ - _%e156589156694%_ - _%hd156588156697%_ - _%tl156587156699%_) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)))) + (gx#stx-null? _%tl155671155733%_)) + (_%__match163814163815%_ + _%e155670155720%_ + _%hd155669155723%_ + _%tl155668155725%_ + _%e155673155728%_ + _%hd155672155731%_ + _%tl155671155733%_ + _%e155676155736%_ + _%hd155675155739%_ + _%tl155674155741%_ + _%e155679155744%_ + _%hd155678155747%_ + _%tl155677155749%_ + _%e155682155752%_ + _%hd155681155755%_ + _%tl155680155757%_ + _%e155685155760%_ + _%hd155684155763%_ + _%tl155683155765%_ + _%e155688155768%_ + _%hd155687155771%_ + _%tl155686155773%_ + _%e155691155776%_ + _%hd155690155779%_ + _%tl155689155781%_ + _%e155694155784%_ + _%hd155693155787%_ + _%tl155692155789%_ + _%e155697155792%_ + _%hd155696155795%_ + _%tl155695155797%_ + _%e155700155800%_ + _%hd155699155803%_ + _%tl155698155805%_ + _%e155703155808%_ + _%hd155702155811%_ + _%tl155701155813%_) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont164588164589%_)) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)))) - (_%__kont164588164589%_)))) - (_%__kont164588164589%_)))) - (_%__match164615164616%_ - (lambda (_%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%__splice164582164583%_ - _%target156493156754%_ - _%tl156495156756%_) - (letrec ((_%loop156496156759%_ - (lambda (_%hd156494156762%_ - _%arg156500156764%_) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_)))) + (_%__match163716163717%_ + (lambda (_%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%__splice163683163684%_ + _%target155607155868%_ + _%tl155609155870%_) + (letrec ((_%loop155610155873%_ + (lambda (_%hd155608155876%_ + _%arg155614155878%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156494156762%_)) - (let ((_%e156497156767%_ + (gx#stx-pair? _%hd155608155876%_)) + (let ((_%e155611155881%_ (let () (declare (not safe)) - (gx#stx-e _%hd156494156762%_)))) - (let ((_%lp-tl156499156772%_ + (gx#stx-e _%hd155608155876%_)))) + (let ((_%lp-tl155613155886%_ (let () (declare (not safe)) - (##cdr _%e156497156767%_))) - (_%lp-hd156498156770%_ + (##cdr _%e155611155881%_))) + (_%lp-hd155612155884%_ (let () (declare (not safe)) - (##car _%e156497156767%_)))) - (let ((__tmp166126 - (cons _%lp-hd156498156770%_ - _%arg156500156764%_))) - (declare (not safe)) - (_%loop156496156759%_ - _%lp-tl156499156772%_ - __tmp166126)))) - (let ((_%arg156501156775%_ - (reverse _%arg156500156764%_))) + (##car _%e155611155881%_)))) + (_%loop155610155873%_ + _%lp-tl155613155886%_ + (cons _%lp-hd155612155884%_ + _%arg155614155878%_)))) + (let ((_%arg155615155889%_ + (reverse _%arg155614155878%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156490156751%_)) - (let ((_%e156504156778%_ + _%tl155604155865%_)) + (let ((_%e155618155892%_ (let () (declare (not safe)) (gx#stx-e - _%tl156490156751%_)))) - (let ((_%tl156502156783%_ + _%tl155604155865%_)))) + (let ((_%tl155616155897%_ (let () (declare (not safe)) - (##cdr _%e156504156778%_))) - (_%hd156503156781%_ + (##cdr _%e155618155892%_))) + (_%hd155617155895%_ (let () (declare (not safe)) - (##car _%e156504156778%_)))) + (##car _%e155618155892%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156503156781%_)) - (let ((_%e156507156786%_ + _%hd155617155895%_)) + (let ((_%e155621155900%_ (let () (declare (not safe)) (gx#stx-e - _%hd156503156781%_)))) - (let ((_%tl156505156791%_ + _%hd155617155895%_)))) + (let ((_%tl155619155905%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e156507156786%_))) - (_%hd156506156789%_ - (let () (declare (not safe)) (##car _%e156507156786%_)))) + (##cdr _%e155621155900%_))) + (_%hd155620155903%_ + (let () (declare (not safe)) (##car _%e155621155900%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156506156789%_)) + (gx#identifier? _%hd155620155903%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd156506156789%_)) + (gx#stx-eq? '%#call _%hd155620155903%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156505156791%_)) - (let ((_%e156510156794%_ + (gx#stx-pair? _%tl155619155905%_)) + (let ((_%e155624155908%_ (let () (declare (not safe)) - (gx#stx-e _%tl156505156791%_)))) - (let ((_%tl156508156799%_ + (gx#stx-e _%tl155619155905%_)))) + (let ((_%tl155622155913%_ (let () (declare (not safe)) - (##cdr _%e156510156794%_))) - (_%hd156509156797%_ + (##cdr _%e155624155908%_))) + (_%hd155623155911%_ (let () (declare (not safe)) - (##car _%e156510156794%_)))) + (##car _%e155624155908%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156509156797%_)) - (let ((_%e156513156802%_ + (gx#stx-pair? _%hd155623155911%_)) + (let ((_%e155627155916%_ (let () (declare (not safe)) - (gx#stx-e _%hd156509156797%_)))) - (let ((_%tl156511156807%_ + (gx#stx-e _%hd155623155911%_)))) + (let ((_%tl155625155921%_ (let () (declare (not safe)) - (##cdr _%e156513156802%_))) - (_%hd156512156805%_ + (##cdr _%e155627155916%_))) + (_%hd155626155919%_ (let () (declare (not safe)) - (##car _%e156513156802%_)))) + (##car _%e155627155916%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd156512156805%_)) + _%hd155626155919%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd156512156805%_)) + _%hd155626155919%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156511156807%_)) - (let ((_%e156516156810%_ + _%tl155625155921%_)) + (let ((_%e155630155924%_ (let () (declare (not safe)) (gx#stx-e - _%tl156511156807%_)))) - (let ((_%tl156514156815%_ + _%tl155625155921%_)))) + (let ((_%tl155628155929%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e156516156810%_))) - (_%hd156515156813%_ - (let () (declare (not safe)) (##car _%e156516156810%_)))) + (##cdr _%e155630155924%_))) + (_%hd155629155927%_ + (let () (declare (not safe)) (##car _%e155630155924%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156514156815%_)) + (gx#stx-null? _%tl155628155929%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156508156799%_)) - (let ((_%e156519156818%_ + (gx#stx-pair? _%tl155622155913%_)) + (let ((_%e155633155932%_ (let () (declare (not safe)) - (gx#stx-e _%tl156508156799%_)))) - (let ((_%tl156517156823%_ + (gx#stx-e _%tl155622155913%_)))) + (let ((_%tl155631155937%_ (let () (declare (not safe)) - (##cdr _%e156519156818%_))) - (_%hd156518156821%_ + (##cdr _%e155633155932%_))) + (_%hd155632155935%_ (let () (declare (not safe)) - (##car _%e156519156818%_)))) + (##car _%e155633155932%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156518156821%_)) - (let ((_%e156522156826%_ + (gx#stx-pair? _%hd155632155935%_)) + (let ((_%e155636155940%_ (let () (declare (not safe)) - (gx#stx-e _%hd156518156821%_)))) - (let ((_%tl156520156831%_ + (gx#stx-e _%hd155632155935%_)))) + (let ((_%tl155634155945%_ (let () (declare (not safe)) - (##cdr _%e156522156826%_))) - (_%hd156521156829%_ + (##cdr _%e155636155940%_))) + (_%hd155635155943%_ (let () (declare (not safe)) - (##car _%e156522156826%_)))) + (##car _%e155636155940%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156521156829%_)) + (gx#identifier? _%hd155635155943%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd156521156829%_)) + _%hd155635155943%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156520156831%_)) - (let ((_%e156525156834%_ + _%tl155634155945%_)) + (let ((_%e155639155948%_ (let () (declare (not safe)) (gx#stx-e - _%tl156520156831%_)))) - (let ((_%tl156523156839%_ + _%tl155634155945%_)))) + (let ((_%tl155637155953%_ (let () (declare (not safe)) - (##cdr _%e156525156834%_))) - (_%hd156524156837%_ + (##cdr _%e155639155948%_))) + (_%hd155638155951%_ (let () (declare (not safe)) - (##car _%e156525156834%_)))) + (##car _%e155639155948%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156523156839%_)) + _%tl155637155953%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl156517156823%_)) - (if (let ((__tmp166127 + _%tl155631155937%_)) + (if (let ((__tmp165213 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-length _%tl156517156823%_)))) + (gx#stx-length _%tl155631155937%_)))) (declare (not safe)) - (##fx>= __tmp166127 '1)) - (let ((_%__splice164584164585%_ + (##fx>= __tmp165213 '1)) + (let ((_%__splice163685163686%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl156517156823%_ + _%tl155631155937%_ '1)))) - (let ((_%tl156528156844%_ + (let ((_%tl155642155958%_ (let () (declare (not safe)) - (##vector-ref _%__splice164584164585%_ '1))) - (_%target156526156842%_ + (##vector-ref _%__splice163685163686%_ '1))) + (_%target155640155956%_ (let () (declare (not safe)) (##vector-ref - _%__splice164584164585%_ + _%__splice163685163686%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156528156844%_)) - (let ((_%e156537156847%_ + (gx#stx-pair? _%tl155642155958%_)) + (let ((_%e155651155961%_ (let () (declare (not safe)) - (gx#stx-e _%tl156528156844%_)))) - (let ((_%tl156535156852%_ + (gx#stx-e _%tl155642155958%_)))) + (let ((_%tl155649155966%_ (let () (declare (not safe)) - (##cdr _%e156537156847%_))) - (_%hd156536156850%_ + (##cdr _%e155651155961%_))) + (_%hd155650155964%_ (let () (declare (not safe)) - (##car _%e156537156847%_)))) + (##car _%e155651155961%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156536156850%_)) - (let ((_%e156540156855%_ + (gx#stx-pair? _%hd155650155964%_)) + (let ((_%e155654155969%_ (let () (declare (not safe)) (gx#stx-e - _%hd156536156850%_)))) - (let ((_%tl156538156860%_ + _%hd155650155964%_)))) + (let ((_%tl155652155974%_ (let () (declare (not safe)) - (##cdr _%e156540156855%_))) - (_%hd156539156858%_ + (##cdr _%e155654155969%_))) + (_%hd155653155972%_ (let () (declare (not safe)) - (##car _%e156540156855%_)))) + (##car _%e155654155969%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd156539156858%_)) + _%hd155653155972%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd156539156858%_)) + _%hd155653155972%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156538156860%_)) - (let ((_%e156543156863%_ + _%tl155652155974%_)) + (let ((_%e155657155977%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl156538156860%_)))) - (let ((_%tl156541156868%_ + (gx#stx-e _%tl155652155974%_)))) + (let ((_%tl155655155982%_ (let () (declare (not safe)) - (##cdr _%e156543156863%_))) - (_%hd156542156866%_ + (##cdr _%e155657155977%_))) + (_%hd155656155980%_ (let () (declare (not safe)) - (##car _%e156543156863%_)))) + (##car _%e155657155977%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156541156868%_)) + (gx#stx-null? _%tl155655155982%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156535156852%_)) - (letrec ((_%loop156529156871%_ - (lambda (_%hd156527156874%_ - _%xarg156533156876%_) + (gx#stx-null? _%tl155649155966%_)) + (letrec ((_%loop155643155985%_ + (lambda (_%hd155641155988%_ + _%xarg155647155990%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156527156874%_)) - (let ((_%e156530156879%_ + _%hd155641155988%_)) + (let ((_%e155644155993%_ (let () (declare (not safe)) (gx#stx-e - _%hd156527156874%_)))) - (let ((_%lp-tl156532156884%_ + _%hd155641155988%_)))) + (let ((_%lp-tl155646155998%_ (let () (declare (not safe)) - (##cdr _%e156530156879%_))) - (_%lp-hd156531156882%_ + (##cdr _%e155644155993%_))) + (_%lp-hd155645155996%_ (let () (declare (not safe)) - (##car _%e156530156879%_)))) + (##car _%e155644155993%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd156531156882%_)) - (let ((_%e156546156887%_ + _%lp-hd155645155996%_)) + (let ((_%e155660156001%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd156531156882%_)))) - (let ((_%tl156544156892%_ + _%lp-hd155645155996%_)))) + (let ((_%tl155658156006%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e156546156887%_))) - (_%hd156545156890%_ - (let () (declare (not safe)) (##car _%e156546156887%_)))) + (##cdr _%e155660156001%_))) + (_%hd155659156004%_ + (let () (declare (not safe)) (##car _%e155660156001%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156545156890%_)) + (gx#identifier? _%hd155659156004%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd156545156890%_)) + (gx#stx-eq? '%#ref _%hd155659156004%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156544156892%_)) - (let ((_%e156549156895%_ + (gx#stx-pair? _%tl155658156006%_)) + (let ((_%e155663156009%_ (let () (declare (not safe)) - (gx#stx-e _%tl156544156892%_)))) - (let ((_%tl156547156900%_ + (gx#stx-e _%tl155658156006%_)))) + (let ((_%tl155661156014%_ (let () (declare (not safe)) - (##cdr _%e156549156895%_))) - (_%hd156548156898%_ + (##cdr _%e155663156009%_))) + (_%hd155662156012%_ (let () (declare (not safe)) - (##car _%e156549156895%_)))) + (##car _%e155663156009%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156547156900%_)) - (let ((__tmp166128 - (cons _%hd156548156898%_ - _%xarg156533156876%_))) - (declare (not safe)) - (_%loop156529156871%_ - _%lp-tl156532156884%_ - __tmp166128)) - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_)))) - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_)) - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_)) - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_)))) + (gx#stx-null? _%tl155661156014%_)) + (_%loop155643155985%_ + _%lp-tl155646155998%_ + (cons _%hd155662156012%_ + _%xarg155647155990%_)) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_)))) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_)) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_)) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_)))) - (let ((_%xarg156534156903%_ - (reverse _%xarg156533156876%_))) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_)))) + (let ((_%xarg155648156017%_ + (reverse _%xarg155647155990%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156502156783%_)) - (let ((_%L156906%_ - _%hd156542156866%_) - (_%L156907%_ - _%xarg156534156903%_) - (_%L156908%_ - _%hd156524156837%_) - (_%L156909%_ - _%hd156515156813%_) - (_%L156910%_ - _%tl156495156756%_) - (_%L156911%_ - _%arg156501156775%_)) - (if (and (let ((__tmp166129 + _%tl155616155897%_)) + (let ((_%L156020%_ + _%hd155656155980%_) + (_%L156021%_ + _%xarg155648156017%_) + (_%L156022%_ + _%hd155638155951%_) + (_%L156023%_ + _%hd155629155927%_) + (_%L156024%_ + _%tl155609155870%_) + (_%L156025%_ + _%arg155615155889%_)) + (if (and (let ((__tmp165214 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp166130 - (lambda (_%g156954156957%_ - _%g156955156959%_) - (cons _%g156954156957%_ - _%g156955156959%_)))) + (let ((__tmp165215 + (lambda (_%g156068156071%_ + _%g156069156073%_) + (cons _%g156068156071%_ + _%g156069156073%_)))) (declare (not safe)) - (__foldr1 __tmp166130 '() _%L156911%_)))) + (__foldr1 __tmp165215 '() _%L156025%_)))) (declare (not safe)) - (gx#identifier-list? __tmp166129)) - (let () (declare (not safe)) (gx#identifier? _%L156910%_)) + (gx#identifier-list? __tmp165214)) + (let () (declare (not safe)) (gx#identifier? _%L156024%_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L156909%_ 'apply)) - (let ((__tmp166133 - (length (let ((__tmp166134 - (lambda (_%g156961156964%_ - _%g156962156966%_) - (cons _%g156961156964%_ - _%g156962156966%_)))) + (gxc#runtime-identifier=? _%L156023%_ 'apply)) + (let ((__tmp165218 + (length (let ((__tmp165219 + (lambda (_%g156075156078%_ + _%g156076156080%_) + (cons _%g156075156078%_ + _%g156076156080%_)))) (declare (not safe)) - (__foldr1 __tmp166134 '() _%L156911%_)))) - (__tmp166131 - (length (let ((__tmp166132 - (lambda (_%g156968156971%_ - _%g156969156973%_) - (cons _%g156968156971%_ - _%g156969156973%_)))) + (__foldr1 __tmp165219 '() _%L156025%_)))) + (__tmp165216 + (length (let ((__tmp165217 + (lambda (_%g156082156085%_ + _%g156083156087%_) + (cons _%g156082156085%_ + _%g156083156087%_)))) (declare (not safe)) (__foldr1 - __tmp166132 + __tmp165217 '() - _%L156907%_))))) + _%L156021%_))))) (declare (not safe)) - (##fx= __tmp166133 __tmp166131)) - (let ((__tmp166137 - (let ((__tmp166138 - (lambda (_%g156975156978%_ - _%g156976156980%_) - (cons _%g156975156978%_ - _%g156976156980%_)))) + (##fx= __tmp165218 __tmp165216)) + (let ((__tmp165222 + (let ((__tmp165223 + (lambda (_%g156089156092%_ + _%g156090156094%_) + (cons _%g156089156092%_ + _%g156090156094%_)))) (declare (not safe)) - (__foldr1 __tmp166138 '() _%L156911%_))) - (__tmp166135 - (let ((__tmp166136 - (lambda (_%g156982156985%_ - _%g156983156987%_) - (cons _%g156982156985%_ - _%g156983156987%_)))) + (__foldr1 __tmp165223 '() _%L156025%_))) + (__tmp165220 + (let ((__tmp165221 + (lambda (_%g156096156099%_ + _%g156097156101%_) + (cons _%g156096156099%_ + _%g156097156101%_)))) (declare (not safe)) - (__foldr1 __tmp166136 '() _%L156907%_)))) + (__foldr1 __tmp165221 '() _%L156021%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp166137 - __tmp166135)) + __tmp165222 + __tmp165220)) (let () (declare (not safe)) - (gx#free-identifier=? _%L156910%_ _%L156906%_)) - (let ((__tmp166139 - (let ((__tmp166143 - (lambda (_%g156989156991%_) - (let () - (declare (not safe)) - (gx#free-identifier=? - _%g156989156991%_ - _%L156908%_)))) - (__tmp166140 - (let ((__tmp166142 - (lambda (_%g156993156996%_ - _%g156994156998%_) - (cons _%g156993156996%_ - _%g156994156998%_))) - (__tmp166141 (cons _%L156910%_ '()))) + (gx#free-identifier=? _%L156024%_ _%L156020%_)) + (not (let ((__tmp165227 + (lambda (_%g156103156105%_) + (let () (declare (not safe)) - (__foldr1 - __tmp166142 - __tmp166141 - _%L156911%_)))) - (declare (not safe)) - (__find __tmp166143 __tmp166140)))) - (declare (not safe)) - (not __tmp166139))) - (_%__kont164580164581%_ - _%L156906%_ - _%L156907%_ - _%L156908%_ - _%L156909%_ - _%L156910%_ - _%L156911%_) - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_))) + (gx#free-identifier=? + _%g156103156105%_ + _%L156022%_)))) + (__tmp165224 + (let ((__tmp165226 + (lambda (_%g156107156110%_ + _%g156108156112%_) + (cons _%g156107156110%_ + _%g156108156112%_))) + (__tmp165225 (cons _%L156024%_ '()))) + (declare (not safe)) + (__foldr1 + __tmp165226 + __tmp165225 + _%L156025%_)))) + (declare (not safe)) + (__find __tmp165227 __tmp165224)))) + (_%__kont163681163682%_ + _%L156020%_ + _%L156021%_ + _%L156022%_ + _%L156023%_ + _%L156024%_ + _%L156025%_) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_))))))) - (let () - (declare (not safe)) - (_%loop156529156871%_ - _%target156526156842%_ - '()))) - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_)) - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_)))) - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_)) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_))))))) + (_%loop155643155985%_ + _%target155640155956%_ + '())) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_)) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_)))) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_)) - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_)))) - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_)))) - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_)))) - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_)) - (_%__match164685164686%_ - _%e156492156746%_ - _%hd156491156749%_ - _%tl156490156751%_ - _%e156504156778%_ - _%hd156503156781%_ - _%tl156502156783%_ - _%e156507156786%_ - _%hd156506156789%_ - _%tl156505156791%_ - _%e156510156794%_ - _%hd156509156797%_ - _%tl156508156799%_ - _%e156513156802%_ - _%hd156512156805%_ - _%tl156511156807%_ - _%e156516156810%_ - _%hd156515156813%_ - _%tl156514156815%_ - _%e156519156818%_ - _%hd156518156821%_ - _%tl156517156823%_ - _%e156522156826%_ - _%hd156521156829%_ - _%tl156520156831%_ - _%e156525156834%_ - _%hd156524156837%_ - _%tl156523156839%_)) - (_%__kont164588164589%_)))) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_)) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_)))) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_)))) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_)))) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_)) + (_%__match163786163787%_ + _%e155606155860%_ + _%hd155605155863%_ + _%tl155604155865%_ + _%e155618155892%_ + _%hd155617155895%_ + _%tl155616155897%_ + _%e155621155900%_ + _%hd155620155903%_ + _%tl155619155905%_ + _%e155624155908%_ + _%hd155623155911%_ + _%tl155622155913%_ + _%e155627155916%_ + _%hd155626155919%_ + _%tl155625155921%_ + _%e155630155924%_ + _%hd155629155927%_ + _%tl155628155929%_ + _%e155633155932%_ + _%hd155632155935%_ + _%tl155631155937%_ + _%e155636155940%_ + _%hd155635155943%_ + _%tl155634155945%_ + _%e155639155948%_ + _%hd155638155951%_ + _%tl155637155953%_)) + (_%__kont163689163690%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont164588164589%_)) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)))) - (_%__kont164588164589%_)))) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)))) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont164588164589%_)) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)))) - (_%__kont164588164589%_)))) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)))) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont164588164589%_)))) - (_%__kont164588164589%_))))))) - (let () - (declare (not safe)) - (_%loop156496156759%_ _%target156493156754%_ '()))))) - (_%__match164603164604%_ - (lambda (_%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_) - (letrec ((_%loop156448157019%_ - (lambda (_%hd156446157022%_ - _%arg156452157024%_) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_))))))) + (_%loop155610155873%_ _%target155607155868%_ '())))) + (_%__match163704163705%_ + (lambda (_%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_) + (letrec ((_%loop155562156133%_ + (lambda (_%hd155560156136%_ + _%arg155566156138%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156446157022%_)) - (let ((_%e156449157027%_ + (gx#stx-pair? _%hd155560156136%_)) + (let ((_%e155563156141%_ (let () (declare (not safe)) - (gx#stx-e _%hd156446157022%_)))) - (let ((_%lp-tl156451157032%_ + (gx#stx-e _%hd155560156136%_)))) + (let ((_%lp-tl155565156146%_ (let () (declare (not safe)) - (##cdr _%e156449157027%_))) - (_%lp-hd156450157030%_ + (##cdr _%e155563156141%_))) + (_%lp-hd155564156144%_ (let () (declare (not safe)) - (##car _%e156449157027%_)))) - (let ((__tmp166144 - (cons _%lp-hd156450157030%_ - _%arg156452157024%_))) - (declare (not safe)) - (_%loop156448157019%_ - _%lp-tl156451157032%_ - __tmp166144)))) - (let ((_%arg156453157035%_ - (reverse _%arg156452157024%_))) + (##car _%e155563156141%_)))) + (_%loop155562156133%_ + _%lp-tl155565156146%_ + (cons _%lp-hd155564156144%_ + _%arg155566156138%_)))) + (let ((_%arg155567156149%_ + (reverse _%arg155566156138%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156442157011%_)) - (let ((_%e156456157038%_ + _%tl155556156125%_)) + (let ((_%e155570156152%_ (let () (declare (not safe)) (gx#stx-e - _%tl156442157011%_)))) - (let ((_%tl156454157043%_ + _%tl155556156125%_)))) + (let ((_%tl155568156157%_ (let () (declare (not safe)) - (##cdr _%e156456157038%_))) - (_%hd156455157041%_ + (##cdr _%e155570156152%_))) + (_%hd155569156155%_ (let () (declare (not safe)) - (##car _%e156456157038%_)))) + (##car _%e155570156152%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156455157041%_)) - (let ((_%e156459157046%_ + _%hd155569156155%_)) + (let ((_%e155573156160%_ (let () (declare (not safe)) (gx#stx-e - _%hd156455157041%_)))) - (let ((_%tl156457157051%_ + _%hd155569156155%_)))) + (let ((_%tl155571156165%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e156459157046%_))) - (_%hd156458157049%_ - (let () (declare (not safe)) (##car _%e156459157046%_)))) + (##cdr _%e155573156160%_))) + (_%hd155572156163%_ + (let () (declare (not safe)) (##car _%e155573156160%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156458157049%_)) + (gx#identifier? _%hd155572156163%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd156458157049%_)) + (gx#stx-eq? '%#call _%hd155572156163%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156457157051%_)) - (let ((_%e156462157054%_ + (gx#stx-pair? _%tl155571156165%_)) + (let ((_%e155576156168%_ (let () (declare (not safe)) - (gx#stx-e _%tl156457157051%_)))) - (let ((_%tl156460157059%_ + (gx#stx-e _%tl155571156165%_)))) + (let ((_%tl155574156173%_ (let () (declare (not safe)) - (##cdr _%e156462157054%_))) - (_%hd156461157057%_ + (##cdr _%e155576156168%_))) + (_%hd155575156171%_ (let () (declare (not safe)) - (##car _%e156462157054%_)))) + (##car _%e155576156168%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156461157057%_)) - (let ((_%e156465157062%_ + (gx#stx-pair? _%hd155575156171%_)) + (let ((_%e155579156176%_ (let () (declare (not safe)) - (gx#stx-e _%hd156461157057%_)))) - (let ((_%tl156463157067%_ + (gx#stx-e _%hd155575156171%_)))) + (let ((_%tl155577156181%_ (let () (declare (not safe)) - (##cdr _%e156465157062%_))) - (_%hd156464157065%_ + (##cdr _%e155579156176%_))) + (_%hd155578156179%_ (let () (declare (not safe)) - (##car _%e156465157062%_)))) + (##car _%e155579156176%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd156464157065%_)) + _%hd155578156179%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd156464157065%_)) + _%hd155578156179%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156463157067%_)) - (let ((_%e156468157070%_ + _%tl155577156181%_)) + (let ((_%e155582156184%_ (let () (declare (not safe)) (gx#stx-e - _%tl156463157067%_)))) - (let ((_%tl156466157075%_ + _%tl155577156181%_)))) + (let ((_%tl155580156189%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e156468157070%_))) - (_%hd156467157073%_ - (let () (declare (not safe)) (##car _%e156468157070%_)))) + (##cdr _%e155582156184%_))) + (_%hd155581156187%_ + (let () (declare (not safe)) (##car _%e155582156184%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156466157075%_)) + (gx#stx-null? _%tl155580156189%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl156460157059%_)) - (let ((_%__splice164578164579%_ + (gx#stx-pair/null? _%tl155574156173%_)) + (let ((_%__splice163679163680%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl156460157059%_ + _%tl155574156173%_ '0)))) - (let ((_%tl156471157080%_ + (let ((_%tl155585156194%_ (let () (declare (not safe)) - (##vector-ref _%__splice164578164579%_ '1))) - (_%target156469157078%_ + (##vector-ref _%__splice163679163680%_ '1))) + (_%target155583156192%_ (let () (declare (not safe)) (##vector-ref - _%__splice164578164579%_ + _%__splice163679163680%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156471157080%_)) - (letrec ((_%loop156472157083%_ - (lambda (_%hd156470157086%_ - _%xarg156476157088%_) + (gx#stx-null? _%tl155585156194%_)) + (letrec ((_%loop155586156197%_ + (lambda (_%hd155584156200%_ + _%xarg155590156202%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156470157086%_)) - (let ((_%e156473157091%_ + _%hd155584156200%_)) + (let ((_%e155587156205%_ (let () (declare (not safe)) (gx#stx-e - _%hd156470157086%_)))) - (let ((_%lp-tl156475157096%_ + _%hd155584156200%_)))) + (let ((_%lp-tl155589156210%_ (let () (declare (not safe)) - (##cdr _%e156473157091%_))) - (_%lp-hd156474157094%_ + (##cdr _%e155587156205%_))) + (_%lp-hd155588156208%_ (let () (declare (not safe)) - (##car _%e156473157091%_)))) + (##car _%e155587156205%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd156474157094%_)) - (let ((_%e156480157099%_ + _%lp-hd155588156208%_)) + (let ((_%e155594156213%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd156474157094%_)))) - (let ((_%tl156478157104%_ + (gx#stx-e _%lp-hd155588156208%_)))) + (let ((_%tl155592156218%_ (let () (declare (not safe)) - (##cdr _%e156480157099%_))) - (_%hd156479157102%_ + (##cdr _%e155594156213%_))) + (_%hd155593156216%_ (let () (declare (not safe)) - (##car _%e156480157099%_)))) + (##car _%e155594156213%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156479157102%_)) + (gx#identifier? _%hd155593156216%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd156479157102%_)) + (gx#stx-eq? '%#ref _%hd155593156216%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156478157104%_)) - (let ((_%e156483157107%_ + (gx#stx-pair? _%tl155592156218%_)) + (let ((_%e155597156221%_ (let () (declare (not safe)) - (gx#stx-e _%tl156478157104%_)))) - (let ((_%tl156481157112%_ + (gx#stx-e _%tl155592156218%_)))) + (let ((_%tl155595156226%_ (let () (declare (not safe)) - (##cdr _%e156483157107%_))) - (_%hd156482157110%_ + (##cdr _%e155597156221%_))) + (_%hd155596156224%_ (let () (declare (not safe)) - (##car _%e156483157107%_)))) + (##car _%e155597156221%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156481157112%_)) - (let ((__tmp166145 - (cons _%hd156482157110%_ - _%xarg156476157088%_))) - (declare (not safe)) - (_%loop156472157083%_ - _%lp-tl156475157096%_ - __tmp166145)) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)))) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)))) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)))) + (gx#stx-null? _%tl155595156226%_)) + (_%loop155586156197%_ + _%lp-tl155589156210%_ + (cons _%hd155596156224%_ + _%xarg155590156202%_)) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)))) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)))) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg156477157115%_ - (reverse _%xarg156476157088%_))) + (let ((_%xarg155591156229%_ + (reverse _%xarg155590156202%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156454157043%_)) - (let ((_%L157118%_ - _%xarg156477157115%_) - (_%L157119%_ - _%hd156467157073%_) - (_%L157120%_ - _%arg156453157035%_)) - (if (and (let ((__tmp166146 + _%tl155568156157%_)) + (let ((_%L156232%_ + _%xarg155591156229%_) + (_%L156233%_ + _%hd155581156187%_) + (_%L156234%_ + _%arg155567156149%_)) + (if (and (let ((__tmp165228 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp166147 - (lambda (_%g157148157151%_ - _%g157149157153%_) - (cons _%g157148157151%_ - _%g157149157153%_)))) + (let ((__tmp165229 + (lambda (_%g156262156265%_ + _%g156263156267%_) + (cons _%g156262156265%_ + _%g156263156267%_)))) (declare (not safe)) - (__foldr1 __tmp166147 '() _%L157120%_)))) + (__foldr1 __tmp165229 '() _%L156234%_)))) (declare (not safe)) - (gx#identifier-list? __tmp166146)) - (let ((__tmp166150 - (length (let ((__tmp166151 - (lambda (_%g157155157158%_ - _%g157156157160%_) - (cons _%g157155157158%_ - _%g157156157160%_)))) + (gx#identifier-list? __tmp165228)) + (let ((__tmp165232 + (length (let ((__tmp165233 + (lambda (_%g156269156272%_ + _%g156270156274%_) + (cons _%g156269156272%_ + _%g156270156274%_)))) (declare (not safe)) (__foldr1 - __tmp166151 + __tmp165233 '() - _%L157120%_)))) - (__tmp166148 - (length (let ((__tmp166149 - (lambda (_%g157162157165%_ - _%g157163157167%_) - (cons _%g157162157165%_ - _%g157163157167%_)))) + _%L156234%_)))) + (__tmp165230 + (length (let ((__tmp165231 + (lambda (_%g156276156279%_ + _%g156277156281%_) + (cons _%g156276156279%_ + _%g156277156281%_)))) (declare (not safe)) (__foldr1 - __tmp166149 + __tmp165231 '() - _%L157118%_))))) + _%L156232%_))))) (declare (not safe)) - (##fx= __tmp166150 __tmp166148)) - (let ((__tmp166154 - (let ((__tmp166155 - (lambda (_%g157169157172%_ - _%g157170157174%_) - (cons _%g157169157172%_ - _%g157170157174%_)))) + (##fx= __tmp165232 __tmp165230)) + (let ((__tmp165236 + (let ((__tmp165237 + (lambda (_%g156283156286%_ + _%g156284156288%_) + (cons _%g156283156286%_ + _%g156284156288%_)))) (declare (not safe)) - (__foldr1 __tmp166155 '() _%L157120%_))) - (__tmp166152 - (let ((__tmp166153 - (lambda (_%g157176157179%_ - _%g157177157181%_) - (cons _%g157176157179%_ - _%g157177157181%_)))) + (__foldr1 __tmp165237 '() _%L156234%_))) + (__tmp165234 + (let ((__tmp165235 + (lambda (_%g156290156293%_ + _%g156291156295%_) + (cons _%g156290156293%_ + _%g156291156295%_)))) (declare (not safe)) - (__foldr1 __tmp166153 '() _%L157118%_)))) + (__foldr1 __tmp165235 '() _%L156232%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp166154 - __tmp166152)) - (let ((__tmp166156 - (let ((__tmp166159 - (lambda (_%g157183157185%_) - (let () - (declare (not safe)) - (gx#free-identifier=? - _%g157183157185%_ - _%L157119%_)))) - (__tmp166157 - (let ((__tmp166158 - (lambda (_%g157187157190%_ - _%g157188157192%_) - (cons _%g157187157190%_ - _%g157188157192%_)))) + __tmp165236 + __tmp165234)) + (not (let ((__tmp165240 + (lambda (_%g156297156299%_) + (let () (declare (not safe)) - (__foldr1 - __tmp166158 - '() - _%L157120%_)))) - (declare (not safe)) - (__find __tmp166159 __tmp166157)))) - (declare (not safe)) - (not __tmp166156))) - (_%__kont164574164575%_ - _%L157118%_ - _%L157119%_ - _%L157120%_) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_))) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_))))))) + (gx#free-identifier=? + _%g156297156299%_ + _%L156233%_)))) + (__tmp165238 + (let ((__tmp165239 + (lambda (_%g156301156304%_ + _%g156302156306%_) + (cons _%g156301156304%_ + _%g156302156306%_)))) + (declare (not safe)) + (__foldr1 + __tmp165239 + '() + _%L156234%_)))) + (declare (not safe)) + (__find __tmp165240 __tmp165238)))) + (_%__kont163675163676%_ + _%L156232%_ + _%L156233%_ + _%L156234%_) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_))) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop156472157083%_ - _%target156469157078%_ - '()))) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)))) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)))) + (_%loop155586156197%_ + _%target155583156192%_ + '())) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)))) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)))) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)))) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)))) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)))) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)))) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)))) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_))))))) - (let () - (declare (not safe)) - (_%loop156448157019%_ - _%target156445157014%_ - '())))))) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)))) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_))))))) + (_%loop155562156133%_ _%target155559156128%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx164572164573%_)) - (let ((_%e156444157006%_ + (gx#stx-pair? _%__stx163673163674%_)) + (let ((_%e155558156120%_ (let () (declare (not safe)) - (gx#stx-e _%__stx164572164573%_)))) - (let ((_%tl156442157011%_ + (gx#stx-e _%__stx163673163674%_)))) + (let ((_%tl155556156125%_ (let () (declare (not safe)) - (##cdr _%e156444157006%_))) - (_%hd156443157009%_ + (##cdr _%e155558156120%_))) + (_%hd155557156123%_ (let () (declare (not safe)) - (##car _%e156444157006%_)))) + (##car _%e155558156120%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd156443157009%_)) - (let ((_%__splice164576164577%_ + (gx#stx-pair/null? _%hd155557156123%_)) + (let ((_%__splice163677163678%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd156443157009%_ + _%hd155557156123%_ '0)))) - (let ((_%tl156447157016%_ + (let ((_%tl155561156130%_ (let () (declare (not safe)) (##vector-ref - _%__splice164576164577%_ + _%__splice163677163678%_ '1))) - (_%target156445157014%_ + (_%target155559156128%_ (let () (declare (not safe)) (##vector-ref - _%__splice164576164577%_ + _%__splice163677163678%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156447157016%_)) - (_%__match164603164604%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_) - (_%__match164615164616%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%__splice164576164577%_ - _%target156445157014%_ - _%tl156447157016%_)))) + (gx#stx-null? _%tl155561156130%_)) + (_%__match163704163705%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_) + (_%__match163716163717%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%__splice163677163678%_ + _%target155559156128%_ + _%tl155561156130%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156442157011%_)) - (let ((_%e156559156614%_ + (gx#stx-pair? _%tl155556156125%_)) + (let ((_%e155673155728%_ (let () (declare (not safe)) - (gx#stx-e _%tl156442157011%_)))) - (let ((_%tl156557156619%_ + (gx#stx-e _%tl155556156125%_)))) + (let ((_%tl155671155733%_ (let () (declare (not safe)) - (##cdr _%e156559156614%_))) - (_%hd156558156617%_ + (##cdr _%e155673155728%_))) + (_%hd155672155731%_ (let () (declare (not safe)) - (##car _%e156559156614%_)))) + (##car _%e155673155728%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156558156617%_)) - (let ((_%e156562156622%_ + (gx#stx-pair? _%hd155672155731%_)) + (let ((_%e155676155736%_ (let () (declare (not safe)) - (gx#stx-e _%hd156558156617%_)))) - (let ((_%tl156560156627%_ + (gx#stx-e _%hd155672155731%_)))) + (let ((_%tl155674155741%_ (let () (declare (not safe)) - (##cdr _%e156562156622%_))) - (_%hd156561156625%_ + (##cdr _%e155676155736%_))) + (_%hd155675155739%_ (let () (declare (not safe)) - (##car _%e156562156622%_)))) + (##car _%e155676155736%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd156561156625%_)) + _%hd155675155739%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd156561156625%_)) + _%hd155675155739%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156560156627%_)) - (let ((_%e156565156630%_ + _%tl155674155741%_)) + (let ((_%e155679155744%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl156560156627%_)))) - (let ((_%tl156563156635%_ - (let () (declare (not safe)) (##cdr _%e156565156630%_))) - (_%hd156564156633%_ + (gx#stx-e _%tl155674155741%_)))) + (let ((_%tl155677155749%_ + (let () (declare (not safe)) (##cdr _%e155679155744%_))) + (_%hd155678155747%_ (let () (declare (not safe)) - (##car _%e156565156630%_)))) + (##car _%e155679155744%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156564156633%_)) - (let ((_%e156568156638%_ + (gx#stx-pair? _%hd155678155747%_)) + (let ((_%e155682155752%_ (let () (declare (not safe)) - (gx#stx-e _%hd156564156633%_)))) - (let ((_%tl156566156643%_ + (gx#stx-e _%hd155678155747%_)))) + (let ((_%tl155680155757%_ (let () (declare (not safe)) - (##cdr _%e156568156638%_))) - (_%hd156567156641%_ + (##cdr _%e155682155752%_))) + (_%hd155681155755%_ (let () (declare (not safe)) - (##car _%e156568156638%_)))) + (##car _%e155682155752%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156567156641%_)) + (gx#identifier? _%hd155681155755%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd156567156641%_)) + (gx#stx-eq? '%#ref _%hd155681155755%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156566156643%_)) - (let ((_%e156571156646%_ + (gx#stx-pair? _%tl155680155757%_)) + (let ((_%e155685155760%_ (let () (declare (not safe)) - (gx#stx-e _%tl156566156643%_)))) - (let ((_%tl156569156651%_ + (gx#stx-e _%tl155680155757%_)))) + (let ((_%tl155683155765%_ (let () (declare (not safe)) - (##cdr _%e156571156646%_))) - (_%hd156570156649%_ + (##cdr _%e155685155760%_))) + (_%hd155684155763%_ (let () (declare (not safe)) - (##car _%e156571156646%_)))) + (##car _%e155685155760%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156569156651%_)) + _%tl155683155765%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156563156635%_)) - (let ((_%e156574156654%_ + _%tl155677155749%_)) + (let ((_%e155688155768%_ (let () (declare (not safe)) (gx#stx-e - _%tl156563156635%_)))) - (let ((_%tl156572156659%_ + _%tl155677155749%_)))) + (let ((_%tl155686155773%_ (let () (declare (not safe)) - (##cdr _%e156574156654%_))) - (_%hd156573156657%_ + (##cdr _%e155688155768%_))) + (_%hd155687155771%_ (let () (declare (not safe)) - (##car _%e156574156654%_)))) + (##car _%e155688155768%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156573156657%_)) - (let ((_%e156577156662%_ + _%hd155687155771%_)) + (let ((_%e155691155776%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd156573156657%_)))) - (let ((_%tl156575156667%_ + (gx#stx-e _%hd155687155771%_)))) + (let ((_%tl155689155781%_ (let () (declare (not safe)) - (##cdr _%e156577156662%_))) - (_%hd156576156665%_ + (##cdr _%e155691155776%_))) + (_%hd155690155779%_ (let () (declare (not safe)) - (##car _%e156577156662%_)))) + (##car _%e155691155776%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156576156665%_)) + (gx#identifier? _%hd155690155779%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd156576156665%_)) + (gx#stx-eq? '%#ref _%hd155690155779%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156575156667%_)) - (let ((_%e156580156670%_ + (gx#stx-pair? _%tl155689155781%_)) + (let ((_%e155694155784%_ (let () (declare (not safe)) - (gx#stx-e _%tl156575156667%_)))) - (let ((_%tl156578156675%_ + (gx#stx-e _%tl155689155781%_)))) + (let ((_%tl155692155789%_ (let () (declare (not safe)) - (##cdr _%e156580156670%_))) - (_%hd156579156673%_ + (##cdr _%e155694155784%_))) + (_%hd155693155787%_ (let () (declare (not safe)) - (##car _%e156580156670%_)))) + (##car _%e155694155784%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156578156675%_)) + (gx#stx-null? _%tl155692155789%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156572156659%_)) - (let ((_%e156583156678%_ + _%tl155686155773%_)) + (let ((_%e155697155792%_ (let () (declare (not safe)) (gx#stx-e - _%tl156572156659%_)))) - (let ((_%tl156581156683%_ + _%tl155686155773%_)))) + (let ((_%tl155695155797%_ (let () (declare (not safe)) - (##cdr _%e156583156678%_))) - (_%hd156582156681%_ + (##cdr _%e155697155792%_))) + (_%hd155696155795%_ (let () (declare (not safe)) - (##car _%e156583156678%_)))) + (##car _%e155697155792%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156582156681%_)) - (let ((_%e156586156686%_ + _%hd155696155795%_)) + (let ((_%e155700155800%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd156582156681%_)))) - (let ((_%tl156584156691%_ - (let () (declare (not safe)) (##cdr _%e156586156686%_))) - (_%hd156585156689%_ + (gx#stx-e _%hd155696155795%_)))) + (let ((_%tl155698155805%_ + (let () (declare (not safe)) (##cdr _%e155700155800%_))) + (_%hd155699155803%_ (let () (declare (not safe)) - (##car _%e156586156686%_)))) + (##car _%e155700155800%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156585156689%_)) + (gx#identifier? _%hd155699155803%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd156585156689%_)) + (gx#stx-eq? '%#ref _%hd155699155803%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156584156691%_)) - (let ((_%e156589156694%_ + (gx#stx-pair? _%tl155698155805%_)) + (let ((_%e155703155808%_ (let () (declare (not safe)) - (gx#stx-e _%tl156584156691%_)))) - (let ((_%tl156587156699%_ + (gx#stx-e _%tl155698155805%_)))) + (let ((_%tl155701155813%_ (let () (declare (not safe)) - (##cdr _%e156589156694%_))) - (_%hd156588156697%_ + (##cdr _%e155703155808%_))) + (_%hd155702155811%_ (let () (declare (not safe)) - (##car _%e156589156694%_)))) + (##car _%e155703155808%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156587156699%_)) + (gx#stx-null? _%tl155701155813%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156581156683%_)) + (gx#stx-null? _%tl155695155797%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156557156619%_)) - (_%__match164713164714%_ - _%e156444157006%_ - _%hd156443157009%_ - _%tl156442157011%_ - _%e156559156614%_ - _%hd156558156617%_ - _%tl156557156619%_ - _%e156562156622%_ - _%hd156561156625%_ - _%tl156560156627%_ - _%e156565156630%_ - _%hd156564156633%_ - _%tl156563156635%_ - _%e156568156638%_ - _%hd156567156641%_ - _%tl156566156643%_ - _%e156571156646%_ - _%hd156570156649%_ - _%tl156569156651%_ - _%e156574156654%_ - _%hd156573156657%_ - _%tl156572156659%_ - _%e156577156662%_ - _%hd156576156665%_ - _%tl156575156667%_ - _%e156580156670%_ - _%hd156579156673%_ - _%tl156578156675%_ - _%e156583156678%_ - _%hd156582156681%_ - _%tl156581156683%_ - _%e156586156686%_ - _%hd156585156689%_ - _%tl156584156691%_ - _%e156589156694%_ - _%hd156588156697%_ - _%tl156587156699%_) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)))) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)))) - (_%__kont164588164589%_)))) + _%tl155671155733%_)) + (_%__match163814163815%_ + _%e155558156120%_ + _%hd155557156123%_ + _%tl155556156125%_ + _%e155673155728%_ + _%hd155672155731%_ + _%tl155671155733%_ + _%e155676155736%_ + _%hd155675155739%_ + _%tl155674155741%_ + _%e155679155744%_ + _%hd155678155747%_ + _%tl155677155749%_ + _%e155682155752%_ + _%hd155681155755%_ + _%tl155680155757%_ + _%e155685155760%_ + _%hd155684155763%_ + _%tl155683155765%_ + _%e155688155768%_ + _%hd155687155771%_ + _%tl155686155773%_ + _%e155691155776%_ + _%hd155690155779%_ + _%tl155689155781%_ + _%e155694155784%_ + _%hd155693155787%_ + _%tl155692155789%_ + _%e155697155792%_ + _%hd155696155795%_ + _%tl155695155797%_ + _%e155700155800%_ + _%hd155699155803%_ + _%tl155698155805%_ + _%e155703155808%_ + _%hd155702155811%_ + _%tl155701155813%_) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont164588164589%_)) - (_%__kont164588164589%_)))) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)))) - (_%__kont164588164589%_)))) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont164588164589%_)) - (_%__kont164588164589%_)))) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)) - (_%__kont164588164589%_)))) - (_%__kont164588164589%_)))) - (_%__kont164588164589%_)) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont164588164589%_)) - (_%__kont164588164589%_)))) - (_%__kont164588164589%_)))) - (_%__kont164588164589%_))))) - (_%__kont164588164589%_))))))) + (_%__kont163689163690%_)) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_)))) + (_%__kont163689163690%_))))) + (_%__kont163689163690%_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_%form155900%_) - (let* ((_%__stx164716164717%_ _%form155900%_) - (_%g155904156028%_ + (lambda (_%form155014%_) + (let* ((_%__stx163817163818%_ _%form155014%_) + (_%g155018155142%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx164716164717%_))))) - (let ((_%__kont164718164719%_ - (lambda (_%L156398%_ _%L156399%_ _%L156400%_) + _%__stx163817163818%_))))) + (let ((_%__kont163819163820%_ + (lambda (_%L155512%_ _%L155513%_ _%L155514%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L156399%_)))) - (_%__kont164724164725%_ - (lambda (_%L156246%_ _%L156247%_ _%L156248%_ _%L156249%_) + (gxc#identifier-symbol _%L155513%_)))) + (_%__kont163825163826%_ + (lambda (_%L155360%_ _%L155361%_ _%L155362%_ _%L155363%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L156246%_)))) - (_%__kont164728164729%_ - (lambda (_%L156113%_ _%L156114%_ _%L156115%_) + (gxc#identifier-symbol _%L155360%_)))) + (_%__kont163829163830%_ + (lambda (_%L155227%_ _%L155228%_ _%L155229%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L156113%_))))) - (let* ((_%__match164825164826%_ - (lambda (_%e155996156033%_ - _%hd155995156036%_ - _%tl155994156038%_ - _%e155999156041%_ - _%hd155998156044%_ - _%tl155997156046%_ - _%e156002156049%_ - _%hd156001156052%_ - _%tl156000156054%_ - _%e156005156057%_ - _%hd156004156060%_ - _%tl156003156062%_ - _%e156008156065%_ - _%hd156007156068%_ - _%tl156006156070%_ - _%e156011156073%_ - _%hd156010156076%_ - _%tl156009156078%_ - _%e156014156081%_ - _%hd156013156084%_ - _%tl156012156086%_ - _%e156017156089%_ - _%hd156016156092%_ - _%tl156015156094%_ - _%e156020156097%_ - _%hd156019156100%_ - _%tl156018156102%_) + (gxc#identifier-symbol _%L155227%_))))) + (let* ((_%__match163926163927%_ + (lambda (_%e155110155147%_ + _%hd155109155150%_ + _%tl155108155152%_ + _%e155113155155%_ + _%hd155112155158%_ + _%tl155111155160%_ + _%e155116155163%_ + _%hd155115155166%_ + _%tl155114155168%_ + _%e155119155171%_ + _%hd155118155174%_ + _%tl155117155176%_ + _%e155122155179%_ + _%hd155121155182%_ + _%tl155120155184%_ + _%e155125155187%_ + _%hd155124155190%_ + _%tl155123155192%_ + _%e155128155195%_ + _%hd155127155198%_ + _%tl155126155200%_ + _%e155131155203%_ + _%hd155130155206%_ + _%tl155129155208%_ + _%e155134155211%_ + _%hd155133155214%_ + _%tl155132155216%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156012156086%_)) - (let ((_%e156023156105%_ + (gx#stx-pair? _%tl155126155200%_)) + (let ((_%e155137155219%_ (let () (declare (not safe)) - (gx#stx-e _%tl156012156086%_)))) - (let ((_%tl156021156110%_ + (gx#stx-e _%tl155126155200%_)))) + (let ((_%tl155135155224%_ (let () (declare (not safe)) - (##cdr _%e156023156105%_))) - (_%hd156022156108%_ + (##cdr _%e155137155219%_))) + (_%hd155136155222%_ (let () (declare (not safe)) - (##car _%e156023156105%_)))) + (##car _%e155137155219%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156021156110%_)) + (gx#stx-null? _%tl155135155224%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155997156046%_)) - (_%__kont164728164729%_ - _%hd156019156100%_ - _%hd156010156076%_ - _%hd155995156036%_) + (gx#stx-null? _%tl155111155160%_)) + (_%__kont163829163830%_ + _%hd155133155214%_ + _%hd155124155190%_ + _%hd155109155150%_) (let () (declare (not safe)) - (_%g155904156028%_))) + (_%g155018155142%_))) (let () (declare (not safe)) - (_%g155904156028%_))))) - (let () (declare (not safe)) (_%g155904156028%_))))) - (_%__match164755164756%_ - (lambda (_%e155957156150%_ - _%hd155956156153%_ - _%tl155955156155%_ - _%__splice164726164727%_ - _%target155958156158%_ - _%tl155960156160%_) - (letrec ((_%loop155961156163%_ - (lambda (_%hd155959156166%_ - _%arg155965156168%_) + (_%g155018155142%_))))) + (let () (declare (not safe)) (_%g155018155142%_))))) + (_%__match163856163857%_ + (lambda (_%e155071155264%_ + _%hd155070155267%_ + _%tl155069155269%_ + _%__splice163827163828%_ + _%target155072155272%_ + _%tl155074155274%_) + (letrec ((_%loop155075155277%_ + (lambda (_%hd155073155280%_ + _%arg155079155282%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155959156166%_)) - (let ((_%e155962156171%_ + (gx#stx-pair? _%hd155073155280%_)) + (let ((_%e155076155285%_ (let () (declare (not safe)) - (gx#stx-e _%hd155959156166%_)))) - (let ((_%lp-tl155964156176%_ + (gx#stx-e _%hd155073155280%_)))) + (let ((_%lp-tl155078155290%_ (let () (declare (not safe)) - (##cdr _%e155962156171%_))) - (_%lp-hd155963156174%_ + (##cdr _%e155076155285%_))) + (_%lp-hd155077155288%_ (let () (declare (not safe)) - (##car _%e155962156171%_)))) - (let ((__tmp166160 - (cons _%lp-hd155963156174%_ - _%arg155965156168%_))) - (declare (not safe)) - (_%loop155961156163%_ - _%lp-tl155964156176%_ - __tmp166160)))) - (let ((_%arg155966156179%_ - (reverse _%arg155965156168%_))) + (##car _%e155076155285%_)))) + (_%loop155075155277%_ + _%lp-tl155078155290%_ + (cons _%lp-hd155077155288%_ + _%arg155079155282%_)))) + (let ((_%arg155080155293%_ + (reverse _%arg155079155282%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155955156155%_)) - (let ((_%e155969156182%_ + _%tl155069155269%_)) + (let ((_%e155083155296%_ (let () (declare (not safe)) (gx#stx-e - _%tl155955156155%_)))) - (let ((_%tl155967156187%_ + _%tl155069155269%_)))) + (let ((_%tl155081155301%_ (let () (declare (not safe)) - (##cdr _%e155969156182%_))) - (_%hd155968156185%_ + (##cdr _%e155083155296%_))) + (_%hd155082155299%_ (let () (declare (not safe)) - (##car _%e155969156182%_)))) + (##car _%e155083155296%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155968156185%_)) - (let ((_%e155972156190%_ + _%hd155082155299%_)) + (let ((_%e155086155304%_ (let () (declare (not safe)) (gx#stx-e - _%hd155968156185%_)))) - (let ((_%tl155970156195%_ + _%hd155082155299%_)))) + (let ((_%tl155084155309%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e155972156190%_))) - (_%hd155971156193%_ - (let () (declare (not safe)) (##car _%e155972156190%_)))) + (##cdr _%e155086155304%_))) + (_%hd155085155307%_ + (let () (declare (not safe)) (##car _%e155086155304%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155971156193%_)) + (gx#identifier? _%hd155085155307%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd155971156193%_)) + (gx#stx-eq? '%#call _%hd155085155307%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155970156195%_)) - (let ((_%e155975156198%_ + (gx#stx-pair? _%tl155084155309%_)) + (let ((_%e155089155312%_ (let () (declare (not safe)) - (gx#stx-e _%tl155970156195%_)))) - (let ((_%tl155973156203%_ + (gx#stx-e _%tl155084155309%_)))) + (let ((_%tl155087155317%_ (let () (declare (not safe)) - (##cdr _%e155975156198%_))) - (_%hd155974156201%_ + (##cdr _%e155089155312%_))) + (_%hd155088155315%_ (let () (declare (not safe)) - (##car _%e155975156198%_)))) + (##car _%e155089155312%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155974156201%_)) - (let ((_%e155978156206%_ + (gx#stx-pair? _%hd155088155315%_)) + (let ((_%e155092155320%_ (let () (declare (not safe)) - (gx#stx-e _%hd155974156201%_)))) - (let ((_%tl155976156211%_ + (gx#stx-e _%hd155088155315%_)))) + (let ((_%tl155090155325%_ (let () (declare (not safe)) - (##cdr _%e155978156206%_))) - (_%hd155977156209%_ + (##cdr _%e155092155320%_))) + (_%hd155091155323%_ (let () (declare (not safe)) - (##car _%e155978156206%_)))) + (##car _%e155092155320%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd155977156209%_)) + _%hd155091155323%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd155977156209%_)) + _%hd155091155323%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155976156211%_)) - (let ((_%e155981156214%_ + _%tl155090155325%_)) + (let ((_%e155095155328%_ (let () (declare (not safe)) (gx#stx-e - _%tl155976156211%_)))) - (let ((_%tl155979156219%_ + _%tl155090155325%_)))) + (let ((_%tl155093155333%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e155981156214%_))) - (_%hd155980156217%_ - (let () (declare (not safe)) (##car _%e155981156214%_)))) + (##cdr _%e155095155328%_))) + (_%hd155094155331%_ + (let () (declare (not safe)) (##car _%e155095155328%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155979156219%_)) + (gx#stx-null? _%tl155093155333%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155973156203%_)) - (let ((_%e155984156222%_ + (gx#stx-pair? _%tl155087155317%_)) + (let ((_%e155098155336%_ (let () (declare (not safe)) - (gx#stx-e _%tl155973156203%_)))) - (let ((_%tl155982156227%_ + (gx#stx-e _%tl155087155317%_)))) + (let ((_%tl155096155341%_ (let () (declare (not safe)) - (##cdr _%e155984156222%_))) - (_%hd155983156225%_ + (##cdr _%e155098155336%_))) + (_%hd155097155339%_ (let () (declare (not safe)) - (##car _%e155984156222%_)))) + (##car _%e155098155336%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155983156225%_)) - (let ((_%e155987156230%_ + (gx#stx-pair? _%hd155097155339%_)) + (let ((_%e155101155344%_ (let () (declare (not safe)) - (gx#stx-e _%hd155983156225%_)))) - (let ((_%tl155985156235%_ + (gx#stx-e _%hd155097155339%_)))) + (let ((_%tl155099155349%_ (let () (declare (not safe)) - (##cdr _%e155987156230%_))) - (_%hd155986156233%_ + (##cdr _%e155101155344%_))) + (_%hd155100155347%_ (let () (declare (not safe)) - (##car _%e155987156230%_)))) + (##car _%e155101155344%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155986156233%_)) + (gx#identifier? _%hd155100155347%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd155986156233%_)) + _%hd155100155347%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155985156235%_)) - (let ((_%e155990156238%_ + _%tl155099155349%_)) + (let ((_%e155104155352%_ (let () (declare (not safe)) (gx#stx-e - _%tl155985156235%_)))) - (let ((_%tl155988156243%_ + _%tl155099155349%_)))) + (let ((_%tl155102155357%_ (let () (declare (not safe)) - (##cdr _%e155990156238%_))) - (_%hd155989156241%_ + (##cdr _%e155104155352%_))) + (_%hd155103155355%_ (let () (declare (not safe)) - (##car _%e155990156238%_)))) + (##car _%e155104155352%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155988156243%_)) + _%tl155102155357%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155967156187%_)) - (_%__kont164724164725%_ - _%hd155989156241%_ - _%hd155980156217%_ - _%tl155960156160%_ - _%arg155966156179%_) - (_%__match164825164826%_ - _%e155957156150%_ - _%hd155956156153%_ - _%tl155955156155%_ - _%e155969156182%_ - _%hd155968156185%_ - _%tl155967156187%_ - _%e155972156190%_ - _%hd155971156193%_ - _%tl155970156195%_ - _%e155975156198%_ - _%hd155974156201%_ - _%tl155973156203%_ - _%e155978156206%_ - _%hd155977156209%_ - _%tl155976156211%_ - _%e155981156214%_ - _%hd155980156217%_ - _%tl155979156219%_ - _%e155984156222%_ - _%hd155983156225%_ - _%tl155982156227%_ - _%e155987156230%_ - _%hd155986156233%_ - _%tl155985156235%_ - _%e155990156238%_ - _%hd155989156241%_ - _%tl155988156243%_)) + _%tl155081155301%_)) + (_%__kont163825163826%_ + _%hd155103155355%_ + _%hd155094155331%_ + _%tl155074155274%_ + _%arg155080155293%_) + (_%__match163926163927%_ + _%e155071155264%_ + _%hd155070155267%_ + _%tl155069155269%_ + _%e155083155296%_ + _%hd155082155299%_ + _%tl155081155301%_ + _%e155086155304%_ + _%hd155085155307%_ + _%tl155084155309%_ + _%e155089155312%_ + _%hd155088155315%_ + _%tl155087155317%_ + _%e155092155320%_ + _%hd155091155323%_ + _%tl155090155325%_ + _%e155095155328%_ + _%hd155094155331%_ + _%tl155093155333%_ + _%e155098155336%_ + _%hd155097155339%_ + _%tl155096155341%_ + _%e155101155344%_ + _%hd155100155347%_ + _%tl155099155349%_ + _%e155104155352%_ + _%hd155103155355%_ + _%tl155102155357%_)) (let () (declare (not safe)) - (_%g155904156028%_))))) + (_%g155018155142%_))))) (let () (declare (not safe)) - (_%g155904156028%_))) + (_%g155018155142%_))) (let () (declare (not safe)) - (_%g155904156028%_))) + (_%g155018155142%_))) (let () (declare (not safe)) - (_%g155904156028%_))))) + (_%g155018155142%_))))) (let () (declare (not safe)) - (_%g155904156028%_))))) - (let () (declare (not safe)) (_%g155904156028%_))) - (let () (declare (not safe)) (_%g155904156028%_))))) + (_%g155018155142%_))))) + (let () (declare (not safe)) (_%g155018155142%_))) + (let () (declare (not safe)) (_%g155018155142%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g155904156028%_))) + (_%g155018155142%_))) (let () (declare (not safe)) - (_%g155904156028%_))) + (_%g155018155142%_))) (let () (declare (not safe)) - (_%g155904156028%_))))) + (_%g155018155142%_))))) (let () (declare (not safe)) - (_%g155904156028%_))))) - (let () (declare (not safe)) (_%g155904156028%_))) - (let () (declare (not safe)) (_%g155904156028%_))) - (let () (declare (not safe)) (_%g155904156028%_))))) + (_%g155018155142%_))))) + (let () (declare (not safe)) (_%g155018155142%_))) + (let () (declare (not safe)) (_%g155018155142%_))) + (let () (declare (not safe)) (_%g155018155142%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g155904156028%_))))) + (_%g155018155142%_))))) (let () (declare (not safe)) - (_%g155904156028%_)))))))) - (let () - (declare (not safe)) - (_%loop155961156163%_ _%target155958156158%_ '()))))) - (_%__match164743164744%_ - (lambda (_%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_) - (letrec ((_%loop155915156299%_ - (lambda (_%hd155913156302%_ - _%arg155919156304%_) + (_%g155018155142%_)))))))) + (_%loop155075155277%_ _%target155072155272%_ '())))) + (_%__match163844163845%_ + (lambda (_%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_) + (letrec ((_%loop155029155413%_ + (lambda (_%hd155027155416%_ + _%arg155033155418%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155913156302%_)) - (let ((_%e155916156307%_ + (gx#stx-pair? _%hd155027155416%_)) + (let ((_%e155030155421%_ (let () (declare (not safe)) - (gx#stx-e _%hd155913156302%_)))) - (let ((_%lp-tl155918156312%_ + (gx#stx-e _%hd155027155416%_)))) + (let ((_%lp-tl155032155426%_ (let () (declare (not safe)) - (##cdr _%e155916156307%_))) - (_%lp-hd155917156310%_ + (##cdr _%e155030155421%_))) + (_%lp-hd155031155424%_ (let () (declare (not safe)) - (##car _%e155916156307%_)))) - (let ((__tmp166161 - (cons _%lp-hd155917156310%_ - _%arg155919156304%_))) - (declare (not safe)) - (_%loop155915156299%_ - _%lp-tl155918156312%_ - __tmp166161)))) - (let ((_%arg155920156315%_ - (reverse _%arg155919156304%_))) + (##car _%e155030155421%_)))) + (_%loop155029155413%_ + _%lp-tl155032155426%_ + (cons _%lp-hd155031155424%_ + _%arg155033155418%_)))) + (let ((_%arg155034155429%_ + (reverse _%arg155033155418%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155909156291%_)) - (let ((_%e155923156318%_ + _%tl155023155405%_)) + (let ((_%e155037155432%_ (let () (declare (not safe)) (gx#stx-e - _%tl155909156291%_)))) - (let ((_%tl155921156323%_ + _%tl155023155405%_)))) + (let ((_%tl155035155437%_ (let () (declare (not safe)) - (##cdr _%e155923156318%_))) - (_%hd155922156321%_ + (##cdr _%e155037155432%_))) + (_%hd155036155435%_ (let () (declare (not safe)) - (##car _%e155923156318%_)))) + (##car _%e155037155432%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155922156321%_)) - (let ((_%e155926156326%_ + _%hd155036155435%_)) + (let ((_%e155040155440%_ (let () (declare (not safe)) (gx#stx-e - _%hd155922156321%_)))) - (let ((_%tl155924156331%_ + _%hd155036155435%_)))) + (let ((_%tl155038155445%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e155926156326%_))) - (_%hd155925156329%_ - (let () (declare (not safe)) (##car _%e155926156326%_)))) + (##cdr _%e155040155440%_))) + (_%hd155039155443%_ + (let () (declare (not safe)) (##car _%e155040155440%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155925156329%_)) + (gx#identifier? _%hd155039155443%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd155925156329%_)) + (gx#stx-eq? '%#call _%hd155039155443%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155924156331%_)) - (let ((_%e155929156334%_ + (gx#stx-pair? _%tl155038155445%_)) + (let ((_%e155043155448%_ (let () (declare (not safe)) - (gx#stx-e _%tl155924156331%_)))) - (let ((_%tl155927156339%_ + (gx#stx-e _%tl155038155445%_)))) + (let ((_%tl155041155453%_ (let () (declare (not safe)) - (##cdr _%e155929156334%_))) - (_%hd155928156337%_ + (##cdr _%e155043155448%_))) + (_%hd155042155451%_ (let () (declare (not safe)) - (##car _%e155929156334%_)))) + (##car _%e155043155448%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155928156337%_)) - (let ((_%e155932156342%_ + (gx#stx-pair? _%hd155042155451%_)) + (let ((_%e155046155456%_ (let () (declare (not safe)) - (gx#stx-e _%hd155928156337%_)))) - (let ((_%tl155930156347%_ + (gx#stx-e _%hd155042155451%_)))) + (let ((_%tl155044155461%_ (let () (declare (not safe)) - (##cdr _%e155932156342%_))) - (_%hd155931156345%_ + (##cdr _%e155046155456%_))) + (_%hd155045155459%_ (let () (declare (not safe)) - (##car _%e155932156342%_)))) + (##car _%e155046155456%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd155931156345%_)) + _%hd155045155459%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd155931156345%_)) + _%hd155045155459%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155930156347%_)) - (let ((_%e155935156350%_ + _%tl155044155461%_)) + (let ((_%e155049155464%_ (let () (declare (not safe)) (gx#stx-e - _%tl155930156347%_)))) - (let ((_%tl155933156355%_ + _%tl155044155461%_)))) + (let ((_%tl155047155469%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e155935156350%_))) - (_%hd155934156353%_ - (let () (declare (not safe)) (##car _%e155935156350%_)))) + (##cdr _%e155049155464%_))) + (_%hd155048155467%_ + (let () (declare (not safe)) (##car _%e155049155464%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155933156355%_)) + (gx#stx-null? _%tl155047155469%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl155927156339%_)) - (let ((_%__splice164722164723%_ + (gx#stx-pair/null? _%tl155041155453%_)) + (let ((_%__splice163823163824%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl155927156339%_ + _%tl155041155453%_ '0)))) - (let ((_%tl155938156360%_ + (let ((_%tl155052155474%_ (let () (declare (not safe)) - (##vector-ref _%__splice164722164723%_ '1))) - (_%target155936156358%_ + (##vector-ref _%__splice163823163824%_ '1))) + (_%target155050155472%_ (let () (declare (not safe)) (##vector-ref - _%__splice164722164723%_ + _%__splice163823163824%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155938156360%_)) - (letrec ((_%loop155939156363%_ - (lambda (_%hd155937156366%_ - _%xarg155943156368%_) + (gx#stx-null? _%tl155052155474%_)) + (letrec ((_%loop155053155477%_ + (lambda (_%hd155051155480%_ + _%xarg155057155482%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155937156366%_)) - (let ((_%e155940156371%_ + _%hd155051155480%_)) + (let ((_%e155054155485%_ (let () (declare (not safe)) (gx#stx-e - _%hd155937156366%_)))) - (let ((_%lp-tl155942156376%_ + _%hd155051155480%_)))) + (let ((_%lp-tl155056155490%_ (let () (declare (not safe)) - (##cdr _%e155940156371%_))) - (_%lp-hd155941156374%_ + (##cdr _%e155054155485%_))) + (_%lp-hd155055155488%_ (let () (declare (not safe)) - (##car _%e155940156371%_)))) + (##car _%e155054155485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd155941156374%_)) - (let ((_%e155947156379%_ + _%lp-hd155055155488%_)) + (let ((_%e155061155493%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd155941156374%_)))) - (let ((_%tl155945156384%_ + (gx#stx-e _%lp-hd155055155488%_)))) + (let ((_%tl155059155498%_ (let () (declare (not safe)) - (##cdr _%e155947156379%_))) - (_%hd155946156382%_ + (##cdr _%e155061155493%_))) + (_%hd155060155496%_ (let () (declare (not safe)) - (##car _%e155947156379%_)))) + (##car _%e155061155493%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155946156382%_)) + (gx#identifier? _%hd155060155496%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd155946156382%_)) + (gx#stx-eq? '%#ref _%hd155060155496%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155945156384%_)) - (let ((_%e155950156387%_ + (gx#stx-pair? _%tl155059155498%_)) + (let ((_%e155064155501%_ (let () (declare (not safe)) - (gx#stx-e _%tl155945156384%_)))) - (let ((_%tl155948156392%_ + (gx#stx-e _%tl155059155498%_)))) + (let ((_%tl155062155506%_ (let () (declare (not safe)) - (##cdr _%e155950156387%_))) - (_%hd155949156390%_ + (##cdr _%e155064155501%_))) + (_%hd155063155504%_ (let () (declare (not safe)) - (##car _%e155950156387%_)))) + (##car _%e155064155501%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155948156392%_)) - (let ((__tmp166162 - (cons _%hd155949156390%_ - _%xarg155943156368%_))) - (declare (not safe)) - (_%loop155939156363%_ - _%lp-tl155942156376%_ - __tmp166162)) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)))) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)))) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)))) + (gx#stx-null? _%tl155062155506%_)) + (_%loop155053155477%_ + _%lp-tl155056155490%_ + (cons _%hd155063155504%_ + _%xarg155057155482%_)) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)))) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)))) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg155944156395%_ - (reverse _%xarg155943156368%_))) + (let ((_%xarg155058155509%_ + (reverse _%xarg155057155482%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155921156323%_)) - (_%__kont164718164719%_ - _%xarg155944156395%_ - _%hd155934156353%_ - _%arg155920156315%_) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_))))))) - (let () - (declare (not safe)) - (_%loop155939156363%_ - _%target155936156358%_ - '()))) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)))) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)))) + _%tl155035155437%_)) + (_%__kont163819163820%_ + _%xarg155058155509%_ + _%hd155048155467%_ + _%arg155034155429%_) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_))))))) + (_%loop155053155477%_ + _%target155050155472%_ + '())) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)))) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)))) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)))) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)))) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)))) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)))) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)))) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_))))))) - (let () - (declare (not safe)) - (_%loop155915156299%_ - _%target155912156294%_ - '())))))) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)))) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_))))))) + (_%loop155029155413%_ _%target155026155408%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx164716164717%_)) - (let ((_%e155911156286%_ + (gx#stx-pair? _%__stx163817163818%_)) + (let ((_%e155025155400%_ (let () (declare (not safe)) - (gx#stx-e _%__stx164716164717%_)))) - (let ((_%tl155909156291%_ + (gx#stx-e _%__stx163817163818%_)))) + (let ((_%tl155023155405%_ (let () (declare (not safe)) - (##cdr _%e155911156286%_))) - (_%hd155910156289%_ + (##cdr _%e155025155400%_))) + (_%hd155024155403%_ (let () (declare (not safe)) - (##car _%e155911156286%_)))) + (##car _%e155025155400%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd155910156289%_)) - (let ((_%__splice164720164721%_ + (gx#stx-pair/null? _%hd155024155403%_)) + (let ((_%__splice163821163822%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd155910156289%_ + _%hd155024155403%_ '0)))) - (let ((_%tl155914156296%_ + (let ((_%tl155028155410%_ (let () (declare (not safe)) (##vector-ref - _%__splice164720164721%_ + _%__splice163821163822%_ '1))) - (_%target155912156294%_ + (_%target155026155408%_ (let () (declare (not safe)) (##vector-ref - _%__splice164720164721%_ + _%__splice163821163822%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155914156296%_)) - (_%__match164743164744%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_) - (_%__match164755164756%_ - _%e155911156286%_ - _%hd155910156289%_ - _%tl155909156291%_ - _%__splice164720164721%_ - _%target155912156294%_ - _%tl155914156296%_)))) + (gx#stx-null? _%tl155028155410%_)) + (_%__match163844163845%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_) + (_%__match163856163857%_ + _%e155025155400%_ + _%hd155024155403%_ + _%tl155023155405%_ + _%__splice163821163822%_ + _%target155026155408%_ + _%tl155028155410%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155909156291%_)) - (let ((_%e155999156041%_ + (gx#stx-pair? _%tl155023155405%_)) + (let ((_%e155113155155%_ (let () (declare (not safe)) - (gx#stx-e _%tl155909156291%_)))) - (let ((_%tl155997156046%_ + (gx#stx-e _%tl155023155405%_)))) + (let ((_%tl155111155160%_ (let () (declare (not safe)) - (##cdr _%e155999156041%_))) - (_%hd155998156044%_ + (##cdr _%e155113155155%_))) + (_%hd155112155158%_ (let () (declare (not safe)) - (##car _%e155999156041%_)))) + (##car _%e155113155155%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155998156044%_)) - (let ((_%e156002156049%_ + (gx#stx-pair? _%hd155112155158%_)) + (let ((_%e155116155163%_ (let () (declare (not safe)) - (gx#stx-e _%hd155998156044%_)))) - (let ((_%tl156000156054%_ + (gx#stx-e _%hd155112155158%_)))) + (let ((_%tl155114155168%_ (let () (declare (not safe)) - (##cdr _%e156002156049%_))) - (_%hd156001156052%_ + (##cdr _%e155116155163%_))) + (_%hd155115155166%_ (let () (declare (not safe)) - (##car _%e156002156049%_)))) + (##car _%e155116155163%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd156001156052%_)) + _%hd155115155166%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd156001156052%_)) + _%hd155115155166%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156000156054%_)) - (let ((_%e156005156057%_ + _%tl155114155168%_)) + (let ((_%e155119155171%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl156000156054%_)))) - (let ((_%tl156003156062%_ - (let () (declare (not safe)) (##cdr _%e156005156057%_))) - (_%hd156004156060%_ + (gx#stx-e _%tl155114155168%_)))) + (let ((_%tl155117155176%_ + (let () (declare (not safe)) (##cdr _%e155119155171%_))) + (_%hd155118155174%_ (let () (declare (not safe)) - (##car _%e156005156057%_)))) + (##car _%e155119155171%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156004156060%_)) - (let ((_%e156008156065%_ + (gx#stx-pair? _%hd155118155174%_)) + (let ((_%e155122155179%_ (let () (declare (not safe)) - (gx#stx-e _%hd156004156060%_)))) - (let ((_%tl156006156070%_ + (gx#stx-e _%hd155118155174%_)))) + (let ((_%tl155120155184%_ (let () (declare (not safe)) - (##cdr _%e156008156065%_))) - (_%hd156007156068%_ + (##cdr _%e155122155179%_))) + (_%hd155121155182%_ (let () (declare (not safe)) - (##car _%e156008156065%_)))) + (##car _%e155122155179%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156007156068%_)) + (gx#identifier? _%hd155121155182%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd156007156068%_)) + (gx#stx-eq? '%#ref _%hd155121155182%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156006156070%_)) - (let ((_%e156011156073%_ + (gx#stx-pair? _%tl155120155184%_)) + (let ((_%e155125155187%_ (let () (declare (not safe)) - (gx#stx-e _%tl156006156070%_)))) - (let ((_%tl156009156078%_ + (gx#stx-e _%tl155120155184%_)))) + (let ((_%tl155123155192%_ (let () (declare (not safe)) - (##cdr _%e156011156073%_))) - (_%hd156010156076%_ + (##cdr _%e155125155187%_))) + (_%hd155124155190%_ (let () (declare (not safe)) - (##car _%e156011156073%_)))) + (##car _%e155125155187%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156009156078%_)) + _%tl155123155192%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156003156062%_)) - (let ((_%e156014156081%_ + _%tl155117155176%_)) + (let ((_%e155128155195%_ (let () (declare (not safe)) (gx#stx-e - _%tl156003156062%_)))) - (let ((_%tl156012156086%_ + _%tl155117155176%_)))) + (let ((_%tl155126155200%_ (let () (declare (not safe)) - (##cdr _%e156014156081%_))) - (_%hd156013156084%_ + (##cdr _%e155128155195%_))) + (_%hd155127155198%_ (let () (declare (not safe)) - (##car _%e156014156081%_)))) + (##car _%e155128155195%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156013156084%_)) - (let ((_%e156017156089%_ + _%hd155127155198%_)) + (let ((_%e155131155203%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd156013156084%_)))) - (let ((_%tl156015156094%_ + (gx#stx-e _%hd155127155198%_)))) + (let ((_%tl155129155208%_ (let () (declare (not safe)) - (##cdr _%e156017156089%_))) - (_%hd156016156092%_ + (##cdr _%e155131155203%_))) + (_%hd155130155206%_ (let () (declare (not safe)) - (##car _%e156017156089%_)))) + (##car _%e155131155203%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156016156092%_)) + (gx#identifier? _%hd155130155206%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd156016156092%_)) + (gx#stx-eq? '%#ref _%hd155130155206%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156015156094%_)) - (let ((_%e156020156097%_ + (gx#stx-pair? _%tl155129155208%_)) + (let ((_%e155134155211%_ (let () (declare (not safe)) - (gx#stx-e _%tl156015156094%_)))) - (let ((_%tl156018156102%_ + (gx#stx-e _%tl155129155208%_)))) + (let ((_%tl155132155216%_ (let () (declare (not safe)) - (##cdr _%e156020156097%_))) - (_%hd156019156100%_ + (##cdr _%e155134155211%_))) + (_%hd155133155214%_ (let () (declare (not safe)) - (##car _%e156020156097%_)))) + (##car _%e155134155211%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156018156102%_)) + (gx#stx-null? _%tl155132155216%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156012156086%_)) - (let ((_%e156023156105%_ + _%tl155126155200%_)) + (let ((_%e155137155219%_ (let () (declare (not safe)) (gx#stx-e - _%tl156012156086%_)))) - (let ((_%tl156021156110%_ + _%tl155126155200%_)))) + (let ((_%tl155135155224%_ (let () (declare (not safe)) - (##cdr _%e156023156105%_))) - (_%hd156022156108%_ + (##cdr _%e155137155219%_))) + (_%hd155136155222%_ (let () (declare (not safe)) - (##car _%e156023156105%_)))) + (##car _%e155137155219%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156021156110%_)) + _%tl155135155224%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155997156046%_)) - (_%__kont164728164729%_ - _%hd156019156100%_ - _%hd156010156076%_ - _%hd155910156289%_) + _%tl155111155160%_)) + (_%__kont163829163830%_ + _%hd155133155214%_ + _%hd155124155190%_ + _%hd155024155403%_) (let () (declare (not safe)) - (_%g155904156028%_))) + (_%g155018155142%_))) (let () (declare (not safe)) - (_%g155904156028%_))))) + (_%g155018155142%_))))) (let () (declare (not safe)) - (_%g155904156028%_))) + (_%g155018155142%_))) (let () (declare (not safe)) - (_%g155904156028%_))))) + (_%g155018155142%_))))) (let () (declare (not safe)) - (_%g155904156028%_))) + (_%g155018155142%_))) (let () (declare (not safe)) - (_%g155904156028%_))) - (let () (declare (not safe)) (_%g155904156028%_))))) - (let () (declare (not safe)) (_%g155904156028%_))))) + (_%g155018155142%_))) + (let () (declare (not safe)) (_%g155018155142%_))))) + (let () (declare (not safe)) (_%g155018155142%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g155904156028%_))) + (_%g155018155142%_))) (let () (declare (not safe)) - (_%g155904156028%_))))) + (_%g155018155142%_))))) (let () (declare (not safe)) - (_%g155904156028%_))) + (_%g155018155142%_))) (let () (declare (not safe)) - (_%g155904156028%_))) + (_%g155018155142%_))) (let () (declare (not safe)) - (_%g155904156028%_))))) - (let () (declare (not safe)) (_%g155904156028%_))))) - (let () (declare (not safe)) (_%g155904156028%_))) + (_%g155018155142%_))))) + (let () (declare (not safe)) (_%g155018155142%_))))) + (let () (declare (not safe)) (_%g155018155142%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g155904156028%_))) + (_%g155018155142%_))) (let () (declare (not safe)) - (_%g155904156028%_))))) + (_%g155018155142%_))))) (let () (declare (not safe)) - (_%g155904156028%_))))) + (_%g155018155142%_))))) (let () (declare (not safe)) - (_%g155904156028%_)))))) - (let () (declare (not safe)) (_%g155904156028%_)))))))) + (_%g155018155142%_)))))) + (let () (declare (not safe)) (_%g155018155142%_)))))))) (define gxc#lambda-form-arity - (lambda (_%form155704%_) - (let* ((_%g155706155720%_ - (lambda (_%g155707155717%_) + (lambda (_%form154818%_) + (let* ((_%g154820154834%_ + (lambda (_%g154821154831%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155707155717%_)))) - (_%g155705155897%_ - (lambda (_%g155707155723%_) + _%g154821154831%_)))) + (_%g154819155011%_ + (lambda (_%g154821154837%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g155707155723%_)) - (let ((_%e155712155725%_ + (gx#stx-pair? _%g154821154837%_)) + (let ((_%e154826154839%_ (let () (declare (not safe)) - (gx#stx-e _%g155707155723%_)))) - (let ((_%hd155711155728%_ + (gx#stx-e _%g154821154837%_)))) + (let ((_%hd154825154842%_ (let () (declare (not safe)) - (##car _%e155712155725%_))) - (_%tl155710155730%_ + (##car _%e154826154839%_))) + (_%tl154824154844%_ (let () (declare (not safe)) - (##cdr _%e155712155725%_)))) + (##cdr _%e154826154839%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155710155730%_)) - (let ((_%e155715155733%_ + (gx#stx-pair? _%tl154824154844%_)) + (let ((_%e154829154847%_ (let () (declare (not safe)) - (gx#stx-e _%tl155710155730%_)))) - (let ((_%hd155714155736%_ + (gx#stx-e _%tl154824154844%_)))) + (let ((_%hd154828154850%_ (let () (declare (not safe)) - (##car _%e155715155733%_))) - (_%tl155713155738%_ + (##car _%e154829154847%_))) + (_%tl154827154852%_ (let () (declare (not safe)) - (##cdr _%e155715155733%_)))) + (##cdr _%e154829154847%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155713155738%_)) - ((lambda (_%L155741%_ _%L155742%_) - (let* ((_%__stx164838164839%_ - _%L155742%_) - (_%g155757155785%_ + (gx#stx-null? _%tl154827154852%_)) + ((lambda (_%L154855%_ _%L154856%_) + (let* ((_%__stx163939163940%_ + _%L154856%_) + (_%g154871154899%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx164838164839%_))))) - (let ((_%__kont164840164841%_ - (lambda (_%L155876%_) - (length (let ((__tmp166163 + _%__stx163939163940%_))))) + (let ((_%__kont163941163942%_ + (lambda (_%L154990%_) + (length (let ((__tmp165241 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g155886155889%_ _%g155887155891%_) - (cons _%g155886155889%_ _%g155887155891%_)))) + (lambda (_%g155000155003%_ _%g155001155005%_) + (cons _%g155000155003%_ _%g155001155005%_)))) (declare (not safe)) - (__foldr1 __tmp166163 '() _%L155876%_))))) + (__foldr1 __tmp165241 '() _%L154990%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont164844164845%_ - (lambda (_%L155827%_ - _%L155828%_) - (cons (length (let ((__tmp166164 + (_%__kont163945163946%_ + (lambda (_%L154941%_ + _%L154942%_) + (cons (length (let ((__tmp165242 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g155839155842%_ _%g155840155844%_) - (cons _%g155839155842%_ - _%g155840155844%_)))) + (lambda (_%g154953154956%_ _%g154954154958%_) + (cons _%g154953154956%_ + _%g154954154958%_)))) (declare (not safe)) - (__foldr1 __tmp166164 '() _%L155828%_))) + (__foldr1 __tmp165242 '() _%L154942%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont164848164849%_ - (lambda (_%L155790%_) + (_%__kont163949163950%_ + (lambda (_%L154904%_) (cons '0 '())))) - (let* ((_%__match164863164864%_ - (lambda (_%__splice164846164847%_ - _%target155771155803%_ - _%tl155773155805%_) - (letrec ((_%loop155774155808%_ + (let* ((_%__match163964163965%_ + (lambda (_%__splice163947163948%_ + _%target154885154917%_ + _%tl154887154919%_) + (letrec ((_%loop154888154922%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd155772155811%_ _%arg155778155813%_) + (lambda (_%hd154886154925%_ _%arg154892154927%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155772155811%_)) - (let ((_%e155775155816%_ + (gx#stx-pair? _%hd154886154925%_)) + (let ((_%e154889154930%_ (let () (declare (not safe)) - (gx#stx-e _%hd155772155811%_)))) - (let ((_%lp-tl155777155821%_ + (gx#stx-e _%hd154886154925%_)))) + (let ((_%lp-tl154891154935%_ (let () (declare (not safe)) - (##cdr _%e155775155816%_))) - (_%lp-hd155776155819%_ + (##cdr _%e154889154930%_))) + (_%lp-hd154890154933%_ (let () (declare (not safe)) - (##car _%e155775155816%_)))) - (let ((__tmp166165 - (cons _%lp-hd155776155819%_ - _%arg155778155813%_))) - (declare (not safe)) - (_%loop155774155808%_ - _%lp-tl155777155821%_ - __tmp166165)))) - (let ((_%arg155779155824%_ - (reverse _%arg155778155813%_))) - (_%__kont164844164845%_ - _%tl155773155805%_ - _%arg155779155824%_)))))) - (let () - (declare (not safe)) - (_%loop155774155808%_ _%target155771155803%_ '()))))) + (##car _%e154889154930%_)))) + (_%loop154888154922%_ + _%lp-tl154891154935%_ + (cons _%lp-hd154890154933%_ + _%arg154892154927%_)))) + (let ((_%arg154893154938%_ + (reverse _%arg154892154927%_))) + (_%__kont163945163946%_ + _%tl154887154919%_ + _%arg154893154938%_)))))) + (_%loop154888154922%_ _%target154885154917%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match164857164858%_ - (lambda (_%__splice164842164843%_ - _%target155760155852%_ - _%tl155762155854%_) - (letrec ((_%loop155763155857%_ + (_%__match163958163959%_ + (lambda (_%__splice163943163944%_ + _%target154874154966%_ + _%tl154876154968%_) + (letrec ((_%loop154877154971%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd155761155860%_ _%arg155767155862%_) + (lambda (_%hd154875154974%_ _%arg154881154976%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155761155860%_)) - (let ((_%e155764155865%_ + (gx#stx-pair? _%hd154875154974%_)) + (let ((_%e154878154979%_ (let () (declare (not safe)) - (gx#stx-e _%hd155761155860%_)))) - (let ((_%lp-tl155766155870%_ + (gx#stx-e _%hd154875154974%_)))) + (let ((_%lp-tl154880154984%_ (let () (declare (not safe)) - (##cdr _%e155764155865%_))) - (_%lp-hd155765155868%_ + (##cdr _%e154878154979%_))) + (_%lp-hd154879154982%_ (let () (declare (not safe)) - (##car _%e155764155865%_)))) - (let ((__tmp166166 - (cons _%lp-hd155765155868%_ - _%arg155767155862%_))) - (declare (not safe)) - (_%loop155763155857%_ - _%lp-tl155766155870%_ - __tmp166166)))) - (let ((_%arg155768155873%_ - (reverse _%arg155767155862%_))) - (_%__kont164840164841%_ - _%arg155768155873%_)))))) - (let () - (declare (not safe)) - (_%loop155763155857%_ _%target155760155852%_ '())))))) + (##car _%e154878154979%_)))) + (_%loop154877154971%_ + _%lp-tl154880154984%_ + (cons _%lp-hd154879154982%_ + _%arg154881154976%_)))) + (let ((_%arg154882154987%_ + (reverse _%arg154881154976%_))) + (_%__kont163941163942%_ + _%arg154882154987%_)))))) + (_%loop154877154971%_ _%target154874154966%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%__stx164838164839%_)) - (let ((_%__splice164842164843%_ + _%__stx163939163940%_)) + (let ((_%__splice163943163944%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx164838164839%_ + _%__stx163939163940%_ '0)))) - (let ((_%tl155762155854%_ + (let ((_%tl154876154968%_ (let () (declare (not safe)) (##vector-ref - _%__splice164842164843%_ + _%__splice163943163944%_ '1))) - (_%target155760155852%_ + (_%target154874154966%_ (let () (declare (not safe)) (##vector-ref - _%__splice164842164843%_ + _%__splice163943163944%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155762155854%_)) - (_%__match164857164858%_ - _%__splice164842164843%_ - _%target155760155852%_ - _%tl155762155854%_) - (_%__match164863164864%_ - _%__splice164842164843%_ - _%target155760155852%_ - _%tl155762155854%_)))) - (_%__kont164848164849%_ - _%__stx164838164839%_)))))) - _%hd155714155736%_ - _%hd155711155728%_) - (let () - (declare (not safe)) - (_%g155706155720%_ - _%g155707155723%_))))) - (let () - (declare (not safe)) - (_%g155706155720%_ _%g155707155723%_))))) - (let () - (declare (not safe)) - (_%g155706155720%_ _%g155707155723%_)))))) - (declare (not safe)) - (_%g155705155897%_ _%form155704%_)))) + _%tl154876154968%_)) + (_%__match163958163959%_ + _%__splice163943163944%_ + _%target154874154966%_ + _%tl154876154968%_) + (_%__match163964163965%_ + _%__splice163943163944%_ + _%target154874154966%_ + _%tl154876154968%_)))) + (_%__kont163949163950%_ + _%__stx163939163940%_)))))) + _%hd154828154850%_ + _%hd154825154842%_) + (_%g154820154834%_ _%g154821154837%_)))) + (_%g154820154834%_ _%g154821154837%_)))) + (_%g154820154834%_ _%g154821154837%_))))) + (_%g154819155011%_ _%form154818%_)))) (define gxc#lambda-form-infer-signature - (lambda (_%form155634%_) - (let* ((_%g155636155650%_ - (lambda (_%g155637155647%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g155637155647%_)))) - (_%g155635155701%_ - (lambda (_%g155637155653%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%g155637155653%_)) - (let ((_%e155642155655%_ - (let () - (declare (not safe)) - (gx#stx-e _%g155637155653%_)))) - (let ((_%hd155641155658%_ - (let () - (declare (not safe)) - (##car _%e155642155655%_))) - (_%tl155640155660%_ - (let () - (declare (not safe)) - (##cdr _%e155642155655%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl155640155660%_)) - (let ((_%e155645155663%_ - (let () - (declare (not safe)) - (gx#stx-e _%tl155640155660%_)))) - (let ((_%hd155644155666%_ - (let () - (declare (not safe)) - (##car _%e155645155663%_))) - (_%tl155643155668%_ - (let () - (declare (not safe)) - (##cdr _%e155645155663%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl155643155668%_)) - ((lambda (_%L155671%_ _%L155672%_) - (let ((_%$e155685%_ - (let () - (declare (not safe)) - (gxc#apply-extract-lambda-signature - _%L155671%_)))) - (if _%$e155685%_ - _%$e155685%_ - (let ((_%$e155688%_ - (let () - (declare (not safe)) - (gxc#apply-basic-expression-type - _%L155671%_)))) - (if _%$e155688%_ - ((lambda (_%return-type155691%_) - (if (let () - (declare - (not safe)) - (##structure-instance-of? - _%return-type155691%_ - 'gxc#!procedure::t)) - (let ((__obj165993 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%form154744%_) + (letrec ((_%default-signature154746%_ + (lambda () + (let ((__obj165094 (let () (declare (not safe)) - (##structure gxc#!signature::t '#f '#f '#f '#f)))) + (##structure + gxc#!signature::t + '#f + '#f + '#f + '#f + '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj165993 - 'procedure::t - '1 + __obj165094 + 't::t + '1 + '#f + '#f)) + (let ((__tmp165243 + (##structure-ref + (let () + (declare (not safe)) + (gx#current-expander-context)) + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (##unchecked-structure-set! + __obj165094 + __tmp165243 + '5 '#f '#f)) - __obj165993) - (let ((_%$e155694%_ - (let () - (declare (not safe)) - (gxc#optimizer-lookup-class-name - _%return-type155691%_)))) - (if _%$e155694%_ - ((lambda (_%return-type-name155697%_) - (let ((__obj165994 - (let () - (declare (not safe)) - (##structure - gxc#!signature::t - '#f - '#f - '#f - '#f)))) + __obj165094)))) + (let* ((_%g154748154762%_ + (lambda (_%g154749154759%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g154749154759%_)))) + (_%g154747154814%_ + (lambda (_%g154749154765%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%g154749154765%_)) + (let ((_%e154754154767%_ (let () (declare (not safe)) - (##unchecked-structure-set! - __obj165994 - _%return-type-name155697%_ - '1 - '#f - '#f)) - __obj165994)) - _%$e155694%_) - (let () '#f))))) - _%$e155688%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () '#f)))))) - _%hd155644155666%_ - _%hd155641155658%_) + (gx#stx-e _%g154749154765%_)))) + (let ((_%hd154753154770%_ + (let () + (declare (not safe)) + (##car _%e154754154767%_))) + (_%tl154752154772%_ + (let () + (declare (not safe)) + (##cdr _%e154754154767%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl154752154772%_)) + (let ((_%e154757154775%_ + (let () + (declare (not safe)) + (gx#stx-e _%tl154752154772%_)))) + (let ((_%hd154756154778%_ + (let () + (declare (not safe)) + (##car _%e154757154775%_))) + (_%tl154755154780%_ + (let () + (declare (not safe)) + (##cdr _%e154757154775%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl154755154780%_)) + ((lambda (_%L154783%_ _%L154784%_) + (let ((_%$e154798%_ + (gxc#apply-extract-lambda-signature + _%L154783%_))) + (if _%$e154798%_ + _%$e154798%_ + (let ((_%$e154801%_ + (gxc#apply-basic-expression-type + _%L154783%_))) + (if _%$e154801%_ + ((lambda (_%return-type154804%_) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##structure-instance-of? + _%return-type154804%_ + 'gxc#!procedure::t)) + (let ((__obj165095 + (let () + (declare (not safe)) + (##structure + gxc#!signature::t + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj165095 + 'procedure::t + '1 + '#f + '#f)) + (let ((__tmp165244 + (##structure-ref + (let () + (declare (not safe)) + (gx#current-expander-context)) + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (##unchecked-structure-set! + __obj165095 + __tmp165244 + '5 + '#f + '#f)) + __obj165095) + (let ((_%$e154807%_ + (let () + (declare (not safe)) + (gxc#optimizer-lookup-class-name + _%return-type154804%_)))) + (if _%$e154807%_ + ((lambda (_%return-type-name154810%_) + (let ((__obj165096 (let () (declare (not safe)) - (_%g155636155650%_ - _%g155637155653%_))))) - (let () - (declare (not safe)) - (_%g155636155650%_ _%g155637155653%_))))) - (let () - (declare (not safe)) - (_%g155636155650%_ _%g155637155653%_)))))) - (declare (not safe)) - (_%g155635155701%_ _%form155634%_)))) + (##structure + gxc#!signature::t + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj165096 + _%return-type-name154810%_ + '1 + '#f + '#f)) + (let ((__tmp165245 + (##structure-ref + (let () + (declare (not safe)) + (gx#current-expander-context)) + '1 + gx#expander-context::t + '#f))) + (declare (not safe)) + (##unchecked-structure-set! + __obj165096 + __tmp165245 + '5 + '#f + '#f)) + __obj165096)) + _%$e154807%_) + (_%default-signature154746%_))))) + _%$e154801%_) + (_%default-signature154746%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd154756154778%_ + _%hd154753154770%_) + (_%g154748154762%_ + _%g154749154765%_)))) + (_%g154748154762%_ _%g154749154765%_)))) + (_%g154748154762%_ _%g154749154765%_))))) + (_%g154747154814%_ _%form154744%_))))) (define gxc#extract-lambda-signature-begin-annotation% - (lambda (_%self155373%_ _%stx155374%_) - (let* ((_%__stx164879164880%_ _%stx155374%_) - (_%g155377155417%_ + (lambda (_%self154483%_ _%stx154484%_) + (let* ((_%__stx163980163981%_ _%stx154484%_) + (_%g154487154527%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx164879164880%_))))) - (let ((_%__kont164881164882%_ - (lambda (_%L155523%_ _%L155524%_) - (let _%loop155544%_ ((_%rest155546%_ - (let ((__tmp166183 - (lambda (_%g155623155626%_ - _%g155624155628%_) - (cons _%g155623155626%_ - _%g155624155628%_)))) + _%__stx163980163981%_))))) + (let ((_%__kont163982163983%_ + (lambda (_%L154633%_ _%L154634%_) + (let _%loop154654%_ ((_%rest154656%_ + (let ((__tmp165250 + (lambda (_%g154733154736%_ + _%g154734154738%_) + (cons _%g154733154736%_ + _%g154734154738%_)))) (declare (not safe)) (__foldr1 - __tmp166183 + __tmp165250 '() - _%L155524%_))) - (_%result155547%_ '())) - (let* ((_%rest155548155561%_ _%rest155546%_) - (_%E155552155565%_ + _%L154634%_))) + (_%result154657%_ '())) + (let* ((_%rest154658154671%_ _%rest154656%_) + (_%E154662154675%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest155548155561%_ + _%rest154658154671%_ '([(? stx-keyword? key) arg . rest]) '([]) '(_))) '#!void))) - (let ((_%K155555155605%_ - (lambda (_%rest155591%_ - _%arg155592%_ - _%key155593%_) - (let ((_%$e155595%_ + (let ((_%K154665154715%_ + (lambda (_%rest154701%_ + _%arg154702%_ + _%key154703%_) + (let ((_%$e154705%_ (let () (declare (not safe)) - (gx#stx-e _%key155593%_)))) - (if (eq? 'return: _%$e155595%_) - (let ((__tmp166167 - (let ((__tmp166168 - (let ((__tmp166169 - (let () + (gx#stx-e _%key154703%_)))) + (if (eq? 'return: _%$e154705%_) + (_%loop154654%_ + _%rest154701%_ + (cons 'return: + (cons (let () + (declare (not safe)) + (gxc#identifier-symbol + _%arg154702%_)) + _%result154657%_))) + (if (eq? 'effect: _%$e154705%_) + (_%loop154654%_ + _%rest154701%_ + (cons 'effect: + (cons (if _%arg154702%_ + (map gx#stx-e + _%arg154702%_) + '#f) + _%result154657%_))) + (if (eq? 'arguments: _%$e154705%_) + (_%loop154654%_ + _%rest154701%_ + (cons 'arguments: + (cons (let () (declare (not safe)) - (gxc#identifier-symbol - _%arg155592%_)))) - (declare (not safe)) - (cons __tmp166169 - _%result155547%_)))) - (declare (not safe)) - (cons 'return: __tmp166168)))) - (declare (not safe)) - (_%loop155544%_ - _%rest155591%_ - __tmp166167)) - (if (eq? 'effect: _%$e155595%_) - (let ((__tmp166170 - (let ((__tmp166171 - (let ((__tmp166172 - (if _%arg155592%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (map gx#stx-e _%arg155592%_) - '#f))) - (declare (not safe)) - (cons __tmp166172 _%result155547%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons 'effect: - __tmp166171)))) - (declare (not safe)) - (_%loop155544%_ - _%rest155591%_ - __tmp166170)) - (if (eq? 'arguments: _%$e155595%_) - (let ((__tmp166173 - (let ((__tmp166174 - (let ((__tmp166175 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gxc#map* gxc#identifier-symbol _%arg155592%_)))) - (declare (not safe)) - (cons __tmp166175 _%result155547%_)))) - (declare (not safe)) - (cons 'arguments: __tmp166174)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%loop155544%_ - _%rest155591%_ - __tmp166173)) + (gxc#map* + gxc#identifier-symbol + _%arg154702%_)) + _%result154657%_))) (if (eq? 'unchecked: - _%$e155595%_) - (let ((__tmp166176 - (let ((__tmp166177 - (let ((__tmp166178 + _%$e154705%_) + (_%loop154654%_ + _%rest154701%_ + (cons 'unchecked: + (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gxc#identifier-symbol _%arg155592%_)))) - (declare (not safe)) - (cons __tmp166178 _%result155547%_)))) - (declare (not safe)) - (cons 'unchecked: __tmp166177)))) + (declare (not safe)) + (gxc#identifier-symbol _%arg154702%_)) + _%result154657%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%loop155544%_ - _%rest155591%_ - __tmp166176)) - (let ((__tmp166179 - (let ((__tmp166180 - (lambda (_%g155597155600%_ + (let ((__tmp165246 + (let ((__tmp165247 + (lambda (_%g154707154710%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g155598155602%_) - (cons _%g155597155600%_ _%g155598155602%_)))) + _%g154708154712%_) + (cons _%g154707154710%_ _%g154708154712%_)))) (declare (not safe)) - (__foldr1 __tmp166180 '() _%L155524%_)))) + (__foldr1 __tmp165247 '() _%L154634%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx155374%_ - __tmp166179 - _%key155593%_))))))))) - (_%K155554155585%_ + _%stx154484%_ + __tmp165246 + _%key154703%_))))))))) + (_%K154664154695%_ (lambda () - (apply gxc#make-!signature _%result155547%_))) - (_%K155553155577%_ + (apply gxc#make-!signature + 'origin: + (##structure-ref + (let () + (declare (not safe)) + (gx#current-expander-context)) + '1 + gx#expander-context::t + '#f) + _%result154657%_))) + (_%K154663154687%_ (lambda () - (let ((__tmp166181 - (let ((__tmp166182 - (lambda (_%g155569155572%_ - _%g155570155574%_) - (cons _%g155569155572%_ - _%g155570155574%_)))) + (let ((__tmp165248 + (let ((__tmp165249 + (lambda (_%g154679154682%_ + _%g154680154684%_) + (cons _%g154679154682%_ + _%g154680154684%_)))) (declare (not safe)) (__foldr1 - __tmp166182 + __tmp165249 '() - _%L155524%_)))) + _%L154634%_)))) (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx155374%_ - __tmp166181))))) - (let ((_%try-match155550155588%_ + _%stx154484%_ + __tmp165248))))) + (let ((_%try-match154660154698%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest155548155561%_)) - (let () - (declare (not safe)) - (_%K155554155585%_)) - (let () - (declare (not safe)) - (_%K155553155577%_)))))) + (##null? _%rest154658154671%_)) + (_%K154664154695%_) + (_%K154663154687%_))))) (if (let () (declare (not safe)) - (##pair? _%rest155548155561%_)) - (let ((_%tl155557155610%_ + (##pair? _%rest154658154671%_)) + (let ((_%tl154667154720%_ (let () (declare (not safe)) - (##cdr _%rest155548155561%_))) - (_%hd155556155608%_ + (##cdr _%rest154658154671%_))) + (_%hd154666154718%_ (let () (declare (not safe)) - (##car _%rest155548155561%_)))) + (##car _%rest154658154671%_)))) (if (let () (declare (not safe)) - (gx#stx-keyword? _%hd155556155608%_)) + (gx#stx-keyword? _%hd154666154718%_)) (if (let () (declare (not safe)) - (##pair? _%tl155557155610%_)) - (let ((_%tl155559155617%_ + (##pair? _%tl154667154720%_)) + (let ((_%tl154669154727%_ (let () (declare (not safe)) - (##cdr _%tl155557155610%_))) - (_%hd155558155615%_ + (##cdr _%tl154667154720%_))) + (_%hd154668154725%_ (let () (declare (not safe)) - (##car _%tl155557155610%_)))) - (let ((_%key155613%_ - _%hd155556155608%_) - (_%arg155620%_ - _%hd155558155615%_) - (_%rest155622%_ - _%tl155559155617%_)) - (let () - (declare (not safe)) - (_%K155555155605%_ - _%rest155622%_ - _%arg155620%_ - _%key155613%_)))) - (let () - (declare (not safe)) - (_%K155553155577%_))) - (let () - (declare (not safe)) - (_%K155553155577%_)))) - (let () - (declare (not safe)) - (_%try-match155550155588%_))))))))) - (_%__kont164885164886%_ - (lambda (_%L155446%_ _%L155447%_) + (##car _%tl154667154720%_)))) + (let ((_%key154723%_ + _%hd154666154718%_) + (_%arg154730%_ + _%hd154668154725%_) + (_%rest154732%_ + _%tl154669154727%_)) + (_%K154665154715%_ + _%rest154732%_ + _%arg154730%_ + _%key154723%_))) + (_%K154663154687%_)) + (_%K154663154687%_))) + (_%try-match154660154698%_)))))))) + (_%__kont163986163987%_ + (lambda (_%L154556%_ _%L154557%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self155373%_ _%L155446%_))))) - (let ((_%__match164916164917%_ - (lambda (_%e155383155467%_ - _%hd155382155470%_ - _%tl155381155472%_ - _%e155386155475%_ - _%hd155385155478%_ - _%tl155384155480%_ - _%e155389155483%_ - _%hd155388155486%_ - _%tl155387155488%_ - _%__splice164883164884%_ - _%target155390155491%_ - _%tl155392155493%_) - (letrec ((_%loop155393155496%_ - (lambda (_%hd155391155499%_ - _%signature155397155501%_) + (gxc#compile-e__1 _%self154483%_ _%L154556%_))))) + (let ((_%__match164017164018%_ + (lambda (_%e154493154577%_ + _%hd154492154580%_ + _%tl154491154582%_ + _%e154496154585%_ + _%hd154495154588%_ + _%tl154494154590%_ + _%e154499154593%_ + _%hd154498154596%_ + _%tl154497154598%_ + _%__splice163984163985%_ + _%target154500154601%_ + _%tl154502154603%_) + (letrec ((_%loop154503154606%_ + (lambda (_%hd154501154609%_ + _%signature154507154611%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155391155499%_)) - (let ((_%e155394155504%_ + (gx#stx-pair? _%hd154501154609%_)) + (let ((_%e154504154614%_ (let () (declare (not safe)) - (gx#stx-e _%hd155391155499%_)))) - (let ((_%lp-tl155396155509%_ + (gx#stx-e _%hd154501154609%_)))) + (let ((_%lp-tl154506154619%_ (let () (declare (not safe)) - (##cdr _%e155394155504%_))) - (_%lp-hd155395155507%_ + (##cdr _%e154504154614%_))) + (_%lp-hd154505154617%_ (let () (declare (not safe)) - (##car _%e155394155504%_)))) - (let ((__tmp166184 - (cons _%lp-hd155395155507%_ - _%signature155397155501%_))) - (declare (not safe)) - (_%loop155393155496%_ - _%lp-tl155396155509%_ - __tmp166184)))) - (let ((_%signature155398155512%_ - (reverse _%signature155397155501%_))) + (##car _%e154504154614%_)))) + (_%loop154503154606%_ + _%lp-tl154506154619%_ + (cons _%lp-hd154505154617%_ + _%signature154507154611%_)))) + (let ((_%signature154508154622%_ + (reverse _%signature154507154611%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155384155480%_)) - (let ((_%e155401155515%_ + (gx#stx-pair? _%tl154494154590%_)) + (let ((_%e154511154625%_ (let () (declare (not safe)) (gx#stx-e - _%tl155384155480%_)))) - (let ((_%tl155399155520%_ + _%tl154494154590%_)))) + (let ((_%tl154509154630%_ (let () (declare (not safe)) - (##cdr _%e155401155515%_))) - (_%hd155400155518%_ + (##cdr _%e154511154625%_))) + (_%hd154510154628%_ (let () (declare (not safe)) - (##car _%e155401155515%_)))) + (##car _%e154511154625%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155399155520%_)) - (_%__kont164881164882%_ - _%hd155400155518%_ - _%signature155398155512%_) + _%tl154509154630%_)) + (_%__kont163982163983%_ + _%hd154510154628%_ + _%signature154508154622%_) (let () (declare (not safe)) - (_%g155377155417%_))))) + (_%g154487154527%_))))) (let () (declare (not safe)) - (_%g155377155417%_)))))))) - (let () - (declare (not safe)) - (_%loop155393155496%_ _%target155390155491%_ '())))))) + (_%g154487154527%_)))))))) + (_%loop154503154606%_ _%target154500154601%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx164879164880%_)) - (let ((_%e155383155467%_ + (gx#stx-pair? _%__stx163980163981%_)) + (let ((_%e154493154577%_ (let () (declare (not safe)) - (gx#stx-e _%__stx164879164880%_)))) - (let ((_%tl155381155472%_ + (gx#stx-e _%__stx163980163981%_)))) + (let ((_%tl154491154582%_ (let () (declare (not safe)) - (##cdr _%e155383155467%_))) - (_%hd155382155470%_ + (##cdr _%e154493154577%_))) + (_%hd154492154580%_ (let () (declare (not safe)) - (##car _%e155383155467%_)))) + (##car _%e154493154577%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155381155472%_)) - (let ((_%e155386155475%_ + (gx#stx-pair? _%tl154491154582%_)) + (let ((_%e154496154585%_ (let () (declare (not safe)) - (gx#stx-e _%tl155381155472%_)))) - (let ((_%tl155384155480%_ + (gx#stx-e _%tl154491154582%_)))) + (let ((_%tl154494154590%_ (let () (declare (not safe)) - (##cdr _%e155386155475%_))) - (_%hd155385155478%_ + (##cdr _%e154496154585%_))) + (_%hd154495154588%_ (let () (declare (not safe)) - (##car _%e155386155475%_)))) + (##car _%e154496154585%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155385155478%_)) - (let ((_%e155389155483%_ + (gx#stx-pair? _%hd154495154588%_)) + (let ((_%e154499154593%_ (let () (declare (not safe)) - (gx#stx-e _%hd155385155478%_)))) - (let ((_%tl155387155488%_ + (gx#stx-e _%hd154495154588%_)))) + (let ((_%tl154497154598%_ (let () (declare (not safe)) - (##cdr _%e155389155483%_))) - (_%hd155388155486%_ + (##cdr _%e154499154593%_))) + (_%hd154498154596%_ (let () (declare (not safe)) - (##car _%e155389155483%_)))) + (##car _%e154499154593%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd155388155486%_)) + _%hd154498154596%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd155388155486%_)) + _%hd154498154596%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl155387155488%_)) - (let ((_%__splice164883164884%_ + _%tl154497154598%_)) + (let ((_%__splice163984163985%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl155387155488%_ + _%tl154497154598%_ '0)))) - (let ((_%tl155392155493%_ + (let ((_%tl154502154603%_ (let () (declare (not safe)) (##vector-ref - _%__splice164883164884%_ + _%__splice163984163985%_ '1))) - (_%target155390155491%_ + (_%target154500154601%_ (let () (declare (not safe)) (##vector-ref - _%__splice164883164884%_ + _%__splice163984163985%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155392155493%_)) - (_%__match164916164917%_ - _%e155383155467%_ - _%hd155382155470%_ - _%tl155381155472%_ - _%e155386155475%_ - _%hd155385155478%_ - _%tl155384155480%_ - _%e155389155483%_ - _%hd155388155486%_ - _%tl155387155488%_ - _%__splice164883164884%_ - _%target155390155491%_ - _%tl155392155493%_) + _%tl154502154603%_)) + (_%__match164017164018%_ + _%e154493154577%_ + _%hd154492154580%_ + _%tl154491154582%_ + _%e154496154585%_ + _%hd154495154588%_ + _%tl154494154590%_ + _%e154499154593%_ + _%hd154498154596%_ + _%tl154497154598%_ + _%__splice163984163985%_ + _%target154500154601%_ + _%tl154502154603%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl155384155480%_)) - (let ((_%e155412155438%_ + (gx#stx-pair? _%tl154494154590%_)) + (let ((_%e154522154548%_ (let () (declare (not safe)) - (gx#stx-e _%tl155384155480%_)))) - (let ((_%tl155410155443%_ + (gx#stx-e _%tl154494154590%_)))) + (let ((_%tl154520154553%_ (let () (declare (not safe)) - (##cdr _%e155412155438%_))) - (_%hd155411155441%_ + (##cdr _%e154522154548%_))) + (_%hd154521154551%_ (let () (declare (not safe)) - (##car _%e155412155438%_)))) + (##car _%e154522154548%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155410155443%_)) - (_%__kont164885164886%_ - _%hd155411155441%_ - _%hd155385155478%_) + (gx#stx-null? _%tl154520154553%_)) + (_%__kont163986163987%_ + _%hd154521154551%_ + _%hd154495154588%_) (let () (declare (not safe)) - (_%g155377155417%_))))) - (let () (declare (not safe)) (_%g155377155417%_)))))) + (_%g154487154527%_))))) + (let () (declare (not safe)) (_%g154487154527%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155384155480%_)) - (let ((_%e155412155438%_ + _%tl154494154590%_)) + (let ((_%e154522154548%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl155384155480%_)))) - (let ((_%tl155410155443%_ - (let () (declare (not safe)) (##cdr _%e155412155438%_))) - (_%hd155411155441%_ + (gx#stx-e _%tl154494154590%_)))) + (let ((_%tl154520154553%_ + (let () (declare (not safe)) (##cdr _%e154522154548%_))) + (_%hd154521154551%_ (let () (declare (not safe)) - (##car _%e155412155438%_)))) + (##car _%e154522154548%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155410155443%_)) - (_%__kont164885164886%_ - _%hd155411155441%_ - _%hd155385155478%_) - (let () (declare (not safe)) (_%g155377155417%_))))) - (let () (declare (not safe)) (_%g155377155417%_)))) + (gx#stx-null? _%tl154520154553%_)) + (_%__kont163986163987%_ + _%hd154521154551%_ + _%hd154495154588%_) + (let () (declare (not safe)) (_%g154487154527%_))))) + (let () (declare (not safe)) (_%g154487154527%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155384155480%_)) - (let ((_%e155412155438%_ + _%tl154494154590%_)) + (let ((_%e154522154548%_ (let () (declare (not safe)) (gx#stx-e - _%tl155384155480%_)))) - (let ((_%tl155410155443%_ + _%tl154494154590%_)))) + (let ((_%tl154520154553%_ (let () (declare (not safe)) - (##cdr _%e155412155438%_))) - (_%hd155411155441%_ + (##cdr _%e154522154548%_))) + (_%hd154521154551%_ (let () (declare (not safe)) - (##car _%e155412155438%_)))) + (##car _%e154522154548%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155410155443%_)) - (_%__kont164885164886%_ - _%hd155411155441%_ - _%hd155385155478%_) + _%tl154520154553%_)) + (_%__kont163986163987%_ + _%hd154521154551%_ + _%hd154495154588%_) (let () (declare (not safe)) - (_%g155377155417%_))))) + (_%g154487154527%_))))) (let () (declare (not safe)) - (_%g155377155417%_)))) + (_%g154487154527%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155384155480%_)) - (let ((_%e155412155438%_ + _%tl154494154590%_)) + (let ((_%e154522154548%_ (let () (declare (not safe)) (gx#stx-e - _%tl155384155480%_)))) - (let ((_%tl155410155443%_ + _%tl154494154590%_)))) + (let ((_%tl154520154553%_ (let () (declare (not safe)) - (##cdr _%e155412155438%_))) - (_%hd155411155441%_ + (##cdr _%e154522154548%_))) + (_%hd154521154551%_ (let () (declare (not safe)) - (##car _%e155412155438%_)))) + (##car _%e154522154548%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155410155443%_)) - (_%__kont164885164886%_ - _%hd155411155441%_ - _%hd155385155478%_) + _%tl154520154553%_)) + (_%__kont163986163987%_ + _%hd154521154551%_ + _%hd154495154588%_) (let () (declare (not safe)) - (_%g155377155417%_))))) + (_%g154487154527%_))))) (let () (declare (not safe)) - (_%g155377155417%_)))))) + (_%g154487154527%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155384155480%_)) - (let ((_%e155412155438%_ + (gx#stx-pair? _%tl154494154590%_)) + (let ((_%e154522154548%_ (let () (declare (not safe)) - (gx#stx-e _%tl155384155480%_)))) - (let ((_%tl155410155443%_ + (gx#stx-e _%tl154494154590%_)))) + (let ((_%tl154520154553%_ (let () (declare (not safe)) - (##cdr _%e155412155438%_))) - (_%hd155411155441%_ + (##cdr _%e154522154548%_))) + (_%hd154521154551%_ (let () (declare (not safe)) - (##car _%e155412155438%_)))) + (##car _%e154522154548%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155410155443%_)) - (_%__kont164885164886%_ - _%hd155411155441%_ - _%hd155385155478%_) + _%tl154520154553%_)) + (_%__kont163986163987%_ + _%hd154521154551%_ + _%hd154495154588%_) (let () (declare (not safe)) - (_%g155377155417%_))))) + (_%g154487154527%_))))) (let () (declare (not safe)) - (_%g155377155417%_)))))) - (let () (declare (not safe)) (_%g155377155417%_))))) - (let () (declare (not safe)) (_%g155377155417%_)))))))) + (_%g154487154527%_)))))) + (let () (declare (not safe)) (_%g154487154527%_))))) + (let () (declare (not safe)) (_%g154487154527%_)))))))) (define gxc#lambda-expr? - (lambda (_%expr155326%_) - (let* ((_%__stx164939164940%_ _%expr155326%_) - (_%g155329155339%_ + (lambda (_%expr154436%_) + (let* ((_%__stx164040164041%_ _%expr154436%_) + (_%g154439154449%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx164939164940%_))))) - (let ((_%__kont164941164942%_ (lambda (_%L155359%_) '#t)) - (_%__kont164943164944%_ (lambda () '#f))) + _%__stx164040164041%_))))) + (let ((_%__kont164042164043%_ (lambda (_%L154469%_) '#t)) + (_%__kont164044164045%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx164939164940%_)) - (let ((_%e155334155351%_ + (gx#stx-pair? _%__stx164040164041%_)) + (let ((_%e154444154461%_ (let () (declare (not safe)) - (gx#stx-e _%__stx164939164940%_)))) - (let ((_%tl155332155356%_ + (gx#stx-e _%__stx164040164041%_)))) + (let ((_%tl154442154466%_ (let () (declare (not safe)) - (##cdr _%e155334155351%_))) - (_%hd155333155354%_ + (##cdr _%e154444154461%_))) + (_%hd154443154464%_ (let () (declare (not safe)) - (##car _%e155334155351%_)))) + (##car _%e154444154461%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155333155354%_)) + (gx#identifier? _%hd154443154464%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd155333155354%_)) - (_%__kont164941164942%_ _%tl155332155356%_) - (_%__kont164943164944%_)) - (_%__kont164943164944%_)))) - (_%__kont164943164944%_)))))) + (gx#stx-eq? '%#lambda _%hd154443154464%_)) + (_%__kont164042164043%_ _%tl154442154466%_) + (_%__kont164044164045%_)) + (_%__kont164044164045%_)))) + (_%__kont164044164045%_)))))) (define gxc#case-lambda-expr? - (lambda (_%expr155279%_) - (let* ((_%__stx164957164958%_ _%expr155279%_) - (_%g155282155292%_ + (lambda (_%expr154389%_) + (let* ((_%__stx164058164059%_ _%expr154389%_) + (_%g154392154402%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx164957164958%_))))) - (let ((_%__kont164959164960%_ (lambda (_%L155312%_) '#t)) - (_%__kont164961164962%_ (lambda () '#f))) + _%__stx164058164059%_))))) + (let ((_%__kont164060164061%_ (lambda (_%L154422%_) '#t)) + (_%__kont164062164063%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx164957164958%_)) - (let ((_%e155287155304%_ + (gx#stx-pair? _%__stx164058164059%_)) + (let ((_%e154397154414%_ (let () (declare (not safe)) - (gx#stx-e _%__stx164957164958%_)))) - (let ((_%tl155285155309%_ + (gx#stx-e _%__stx164058164059%_)))) + (let ((_%tl154395154419%_ (let () (declare (not safe)) - (##cdr _%e155287155304%_))) - (_%hd155286155307%_ + (##cdr _%e154397154414%_))) + (_%hd154396154417%_ (let () (declare (not safe)) - (##car _%e155287155304%_)))) + (##car _%e154397154414%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155286155307%_)) + (gx#identifier? _%hd154396154417%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _%hd155286155307%_)) - (_%__kont164959164960%_ _%tl155285155309%_) - (_%__kont164961164962%_)) - (_%__kont164961164962%_)))) - (_%__kont164961164962%_)))))) + (gx#stx-eq? '%#case-lambda _%hd154396154417%_)) + (_%__kont164060164061%_ _%tl154395154419%_) + (_%__kont164062164063%_)) + (_%__kont164062164063%_)))) + (_%__kont164062164063%_)))))) (define gxc#opt-lambda-expr? - (lambda (_%expr155148%_) - (let* ((_%__stx164975164976%_ _%expr155148%_) - (_%g155151155181%_ + (lambda (_%expr154258%_) + (let* ((_%__stx164076164077%_ _%expr154258%_) + (_%g154261154291%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx164975164976%_))))) - (let ((_%__kont164977164978%_ - (lambda (_%L155249%_ _%L155250%_ _%L155251%_) + _%__stx164076164077%_))))) + (let ((_%__kont164078164079%_ + (lambda (_%L154359%_ _%L154360%_ _%L154361%_) (if (let () (declare (not safe)) - (gx#identifier? _%L155251%_)) - (if (let () - (declare (not safe)) - (gxc#lambda-expr? _%L155250%_)) - (let () - (declare (not safe)) - (gxc#case-lambda-expr? _%L155249%_)) + (gx#identifier? _%L154361%_)) + (if (gxc#lambda-expr? _%L154360%_) + (gxc#case-lambda-expr? _%L154359%_) '#f) '#f))) - (_%__kont164979164980%_ (lambda () '#f))) + (_%__kont164080164081%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx164975164976%_)) - (let ((_%e155158155193%_ + (gx#stx-pair? _%__stx164076164077%_)) + (let ((_%e154268154303%_ (let () (declare (not safe)) - (gx#stx-e _%__stx164975164976%_)))) - (let ((_%tl155156155198%_ + (gx#stx-e _%__stx164076164077%_)))) + (let ((_%tl154266154308%_ (let () (declare (not safe)) - (##cdr _%e155158155193%_))) - (_%hd155157155196%_ + (##cdr _%e154268154303%_))) + (_%hd154267154306%_ (let () (declare (not safe)) - (##car _%e155158155193%_)))) + (##car _%e154268154303%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155157155196%_)) + (gx#identifier? _%hd154267154306%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd155157155196%_)) + (gx#stx-eq? '%#let-values _%hd154267154306%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155156155198%_)) - (let ((_%e155161155201%_ + (gx#stx-pair? _%tl154266154308%_)) + (let ((_%e154271154311%_ (let () (declare (not safe)) - (gx#stx-e _%tl155156155198%_)))) - (let ((_%tl155159155206%_ + (gx#stx-e _%tl154266154308%_)))) + (let ((_%tl154269154316%_ (let () (declare (not safe)) - (##cdr _%e155161155201%_))) - (_%hd155160155204%_ + (##cdr _%e154271154311%_))) + (_%hd154270154314%_ (let () (declare (not safe)) - (##car _%e155161155201%_)))) + (##car _%e154271154311%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155160155204%_)) - (let ((_%e155164155209%_ + (gx#stx-pair? _%hd154270154314%_)) + (let ((_%e154274154319%_ (let () (declare (not safe)) (gx#stx-e - _%hd155160155204%_)))) - (let ((_%tl155162155214%_ + _%hd154270154314%_)))) + (let ((_%tl154272154324%_ (let () (declare (not safe)) - (##cdr _%e155164155209%_))) - (_%hd155163155212%_ + (##cdr _%e154274154319%_))) + (_%hd154273154322%_ (let () (declare (not safe)) - (##car _%e155164155209%_)))) + (##car _%e154274154319%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155163155212%_)) - (let ((_%e155167155217%_ + _%hd154273154322%_)) + (let ((_%e154277154327%_ (let () (declare (not safe)) (gx#stx-e - _%hd155163155212%_)))) - (let ((_%tl155165155222%_ + _%hd154273154322%_)))) + (let ((_%tl154275154332%_ (let () (declare (not safe)) - (##cdr _%e155167155217%_))) - (_%hd155166155220%_ + (##cdr _%e154277154327%_))) + (_%hd154276154330%_ (let () (declare (not safe)) - (##car _%e155167155217%_)))) + (##car _%e154277154327%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155166155220%_)) - (let ((_%e155170155225%_ + _%hd154276154330%_)) + (let ((_%e154280154335%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd155166155220%_)))) - (let ((_%tl155168155230%_ + (gx#stx-e _%hd154276154330%_)))) + (let ((_%tl154278154340%_ (let () (declare (not safe)) - (##cdr _%e155170155225%_))) - (_%hd155169155228%_ + (##cdr _%e154280154335%_))) + (_%hd154279154338%_ (let () (declare (not safe)) - (##car _%e155170155225%_)))) + (##car _%e154280154335%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155168155230%_)) + (gx#stx-null? _%tl154278154340%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155165155222%_)) - (let ((_%e155173155233%_ + (gx#stx-pair? _%tl154275154332%_)) + (let ((_%e154283154343%_ (let () (declare (not safe)) - (gx#stx-e _%tl155165155222%_)))) - (let ((_%tl155171155238%_ + (gx#stx-e _%tl154275154332%_)))) + (let ((_%tl154281154348%_ (let () (declare (not safe)) - (##cdr _%e155173155233%_))) - (_%hd155172155236%_ + (##cdr _%e154283154343%_))) + (_%hd154282154346%_ (let () (declare (not safe)) - (##car _%e155173155233%_)))) + (##car _%e154283154343%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155171155238%_)) + (gx#stx-null? _%tl154281154348%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155162155214%_)) + (gx#stx-null? _%tl154272154324%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155159155206%_)) - (let ((_%e155176155241%_ + _%tl154269154316%_)) + (let ((_%e154286154351%_ (let () (declare (not safe)) (gx#stx-e - _%tl155159155206%_)))) - (let ((_%tl155174155246%_ + _%tl154269154316%_)))) + (let ((_%tl154284154356%_ (let () (declare (not safe)) - (##cdr _%e155176155241%_))) - (_%hd155175155244%_ + (##cdr _%e154286154351%_))) + (_%hd154285154354%_ (let () (declare (not safe)) - (##car _%e155176155241%_)))) + (##car _%e154286154351%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155174155246%_)) - (_%__kont164977164978%_ - _%hd155175155244%_ - _%hd155172155236%_ - _%hd155169155228%_) - (_%__kont164979164980%_)))) - (_%__kont164979164980%_)) - (_%__kont164979164980%_)) - (_%__kont164979164980%_)))) - (_%__kont164979164980%_)) - (_%__kont164979164980%_)))) - (_%__kont164979164980%_)))) + _%tl154284154356%_)) + (_%__kont164078164079%_ + _%hd154285154354%_ + _%hd154282154346%_ + _%hd154279154338%_) + (_%__kont164080164081%_)))) + (_%__kont164080164081%_)) + (_%__kont164080164081%_)) + (_%__kont164080164081%_)))) + (_%__kont164080164081%_)) + (_%__kont164080164081%_)))) + (_%__kont164080164081%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont164979164980%_)))) - (_%__kont164979164980%_)))) - (_%__kont164979164980%_)) - (_%__kont164979164980%_)) - (_%__kont164979164980%_)))) - (_%__kont164979164980%_)))))) + (_%__kont164080164081%_)))) + (_%__kont164080164081%_)))) + (_%__kont164080164081%_)) + (_%__kont164080164081%_)) + (_%__kont164080164081%_)))) + (_%__kont164080164081%_)))))) (define gxc#kw-lambda-expr? - (lambda (_%expr154473%_) - (let* ((_%__stx165037165038%_ _%expr154473%_) - (_%g154476154634%_ + (lambda (_%expr153583%_) + (let* ((_%__stx164138164139%_ _%expr153583%_) + (_%g153586153744%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx165037165038%_))))) - (let ((_%__kont165039165040%_ - (lambda (_%L155022%_ - _%L155023%_ - _%L155024%_ - _%L155025%_ - _%L155026%_ - _%L155027%_ - _%L155028%_ - _%L155029%_ - _%L155030%_ - _%L155031%_ - _%L155032%_) + _%__stx164138164139%_))))) + (let ((_%__kont164140164141%_ + (lambda (_%L154132%_ + _%L154133%_ + _%L154134%_ + _%L154135%_ + _%L154136%_ + _%L154137%_ + _%L154138%_ + _%L154139%_ + _%L154140%_ + _%L154141%_ + _%L154142%_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L155029%_ 'apply)) + (gxc#runtime-identifier=? _%L154139%_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L155025%_ 'apply)) + (gxc#runtime-identifier=? _%L154135%_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L155024%_ + _%L154134%_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L155032%_ - _%L155023%_)) + _%L154142%_ + _%L154133%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L155031%_ - _%L155028%_)) + _%L154141%_ + _%L154138%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L155026%_ - _%L155022%_)) + _%L154136%_ + _%L154132%_)) (let () (declare (not safe)) (gx#free-identifier=? - _%L155030%_ - _%L155027%_)) + _%L154140%_ + _%L154137%_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (_%__kont165041165042%_ (lambda () '#f))) + (_%__kont164142164143%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx165037165038%_)) - (let ((_%e154491154646%_ + (gx#stx-pair? _%__stx164138164139%_)) + (let ((_%e153601153756%_ (let () (declare (not safe)) - (gx#stx-e _%__stx165037165038%_)))) - (let ((_%tl154489154651%_ + (gx#stx-e _%__stx164138164139%_)))) + (let ((_%tl153599153761%_ (let () (declare (not safe)) - (##cdr _%e154491154646%_))) - (_%hd154490154649%_ + (##cdr _%e153601153756%_))) + (_%hd153600153759%_ (let () (declare (not safe)) - (##car _%e154491154646%_)))) + (##car _%e153601153756%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154490154649%_)) + (gx#identifier? _%hd153600153759%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd154490154649%_)) + (gx#stx-eq? '%#let-values _%hd153600153759%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154489154651%_)) - (let ((_%e154494154654%_ + (gx#stx-pair? _%tl153599153761%_)) + (let ((_%e153604153764%_ (let () (declare (not safe)) - (gx#stx-e _%tl154489154651%_)))) - (let ((_%tl154492154659%_ + (gx#stx-e _%tl153599153761%_)))) + (let ((_%tl153602153769%_ (let () (declare (not safe)) - (##cdr _%e154494154654%_))) - (_%hd154493154657%_ + (##cdr _%e153604153764%_))) + (_%hd153603153767%_ (let () (declare (not safe)) - (##car _%e154494154654%_)))) + (##car _%e153604153764%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154493154657%_)) - (let ((_%e154497154662%_ + (gx#stx-pair? _%hd153603153767%_)) + (let ((_%e153607153772%_ (let () (declare (not safe)) (gx#stx-e - _%hd154493154657%_)))) - (let ((_%tl154495154667%_ + _%hd153603153767%_)))) + (let ((_%tl153605153777%_ (let () (declare (not safe)) - (##cdr _%e154497154662%_))) - (_%hd154496154665%_ + (##cdr _%e153607153772%_))) + (_%hd153606153775%_ (let () (declare (not safe)) - (##car _%e154497154662%_)))) + (##car _%e153607153772%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154496154665%_)) - (let ((_%e154500154670%_ + _%hd153606153775%_)) + (let ((_%e153610153780%_ (let () (declare (not safe)) (gx#stx-e - _%hd154496154665%_)))) - (let ((_%tl154498154675%_ + _%hd153606153775%_)))) + (let ((_%tl153608153785%_ (let () (declare (not safe)) - (##cdr _%e154500154670%_))) - (_%hd154499154673%_ + (##cdr _%e153610153780%_))) + (_%hd153609153783%_ (let () (declare (not safe)) - (##car _%e154500154670%_)))) + (##car _%e153610153780%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154499154673%_)) - (let ((_%e154503154678%_ + _%hd153609153783%_)) + (let ((_%e153613153788%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd154499154673%_)))) - (let ((_%tl154501154683%_ + (gx#stx-e _%hd153609153783%_)))) + (let ((_%tl153611153793%_ (let () (declare (not safe)) - (##cdr _%e154503154678%_))) - (_%hd154502154681%_ + (##cdr _%e153613153788%_))) + (_%hd153612153791%_ (let () (declare (not safe)) - (##car _%e154503154678%_)))) + (##car _%e153613153788%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154501154683%_)) + (gx#stx-null? _%tl153611153793%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154498154675%_)) - (let ((_%e154506154686%_ + (gx#stx-pair? _%tl153608153785%_)) + (let ((_%e153616153796%_ (let () (declare (not safe)) - (gx#stx-e _%tl154498154675%_)))) - (let ((_%tl154504154691%_ + (gx#stx-e _%tl153608153785%_)))) + (let ((_%tl153614153801%_ (let () (declare (not safe)) - (##cdr _%e154506154686%_))) - (_%hd154505154689%_ + (##cdr _%e153616153796%_))) + (_%hd153615153799%_ (let () (declare (not safe)) - (##car _%e154506154686%_)))) + (##car _%e153616153796%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154505154689%_)) - (let ((_%e154509154694%_ + (gx#stx-pair? _%hd153615153799%_)) + (let ((_%e153619153804%_ (let () (declare (not safe)) - (gx#stx-e _%hd154505154689%_)))) - (let ((_%tl154507154699%_ + (gx#stx-e _%hd153615153799%_)))) + (let ((_%tl153617153809%_ (let () (declare (not safe)) - (##cdr _%e154509154694%_))) - (_%hd154508154697%_ + (##cdr _%e153619153804%_))) + (_%hd153618153807%_ (let () (declare (not safe)) - (##car _%e154509154694%_)))) + (##car _%e153619153804%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd154508154697%_)) + _%hd153618153807%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd154508154697%_)) + _%hd153618153807%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154507154699%_)) - (let ((_%e154512154702%_ + _%tl153617153809%_)) + (let ((_%e153622153812%_ (let () (declare (not safe)) (gx#stx-e - _%tl154507154699%_)))) - (let ((_%tl154510154707%_ + _%tl153617153809%_)))) + (let ((_%tl153620153817%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e154512154702%_))) - (_%hd154511154705%_ - (let () (declare (not safe)) (##car _%e154512154702%_)))) + (##cdr _%e153622153812%_))) + (_%hd153621153815%_ + (let () (declare (not safe)) (##car _%e153622153812%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154511154705%_)) - (let ((_%e154515154710%_ + (gx#stx-pair? _%hd153621153815%_)) + (let ((_%e153625153820%_ (let () (declare (not safe)) - (gx#stx-e _%hd154511154705%_)))) - (let ((_%tl154513154715%_ + (gx#stx-e _%hd153621153815%_)))) + (let ((_%tl153623153825%_ (let () (declare (not safe)) - (##cdr _%e154515154710%_))) - (_%hd154514154713%_ + (##cdr _%e153625153820%_))) + (_%hd153624153823%_ (let () (declare (not safe)) - (##car _%e154515154710%_)))) + (##car _%e153625153820%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154514154713%_)) - (let ((_%e154518154718%_ + (gx#stx-pair? _%hd153624153823%_)) + (let ((_%e153628153828%_ (let () (declare (not safe)) - (gx#stx-e _%hd154514154713%_)))) - (let ((_%tl154516154723%_ + (gx#stx-e _%hd153624153823%_)))) + (let ((_%tl153626153833%_ (let () (declare (not safe)) - (##cdr _%e154518154718%_))) - (_%hd154517154721%_ + (##cdr _%e153628153828%_))) + (_%hd153627153831%_ (let () (declare (not safe)) - (##car _%e154518154718%_)))) + (##car _%e153628153828%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154517154721%_)) - (let ((_%e154521154726%_ + (gx#stx-pair? _%hd153627153831%_)) + (let ((_%e153631153836%_ (let () (declare (not safe)) - (gx#stx-e _%hd154517154721%_)))) - (let ((_%tl154519154731%_ + (gx#stx-e _%hd153627153831%_)))) + (let ((_%tl153629153841%_ (let () (declare (not safe)) - (##cdr _%e154521154726%_))) - (_%hd154520154729%_ + (##cdr _%e153631153836%_))) + (_%hd153630153839%_ (let () (declare (not safe)) - (##car _%e154521154726%_)))) + (##car _%e153631153836%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154519154731%_)) + _%tl153629153841%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154516154723%_)) - (let ((_%e154524154734%_ + _%tl153626153833%_)) + (let ((_%e153634153844%_ (let () (declare (not safe)) (gx#stx-e - _%tl154516154723%_)))) - (let ((_%tl154522154739%_ + _%tl153626153833%_)))) + (let ((_%tl153632153849%_ (let () (declare (not safe)) - (##cdr _%e154524154734%_))) - (_%hd154523154737%_ + (##cdr _%e153634153844%_))) + (_%hd153633153847%_ (let () (declare (not safe)) - (##car _%e154524154734%_)))) + (##car _%e153634153844%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154522154739%_)) + _%tl153632153849%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154513154715%_)) + _%tl153623153825%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl154510154707%_)) - (let ((_%e154527154742%_ + (gx#stx-pair? _%tl153620153817%_)) + (let ((_%e153637153852%_ (let () (declare (not safe)) - (gx#stx-e _%tl154510154707%_)))) - (let ((_%tl154525154747%_ + (gx#stx-e _%tl153620153817%_)))) + (let ((_%tl153635153857%_ (let () (declare (not safe)) - (##cdr _%e154527154742%_))) - (_%hd154526154745%_ + (##cdr _%e153637153852%_))) + (_%hd153636153855%_ (let () (declare (not safe)) - (##car _%e154527154742%_)))) + (##car _%e153637153852%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154526154745%_)) - (let ((_%e154530154750%_ + (gx#stx-pair? _%hd153636153855%_)) + (let ((_%e153640153860%_ (let () (declare (not safe)) - (gx#stx-e _%hd154526154745%_)))) - (let ((_%tl154528154755%_ + (gx#stx-e _%hd153636153855%_)))) + (let ((_%tl153638153865%_ (let () (declare (not safe)) - (##cdr _%e154530154750%_))) - (_%hd154529154753%_ + (##cdr _%e153640153860%_))) + (_%hd153639153863%_ (let () (declare (not safe)) - (##car _%e154530154750%_)))) + (##car _%e153640153860%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154529154753%_)) + (gx#identifier? _%hd153639153863%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd154529154753%_)) + _%hd153639153863%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154528154755%_)) - (let ((_%e154533154758%_ + _%tl153638153865%_)) + (let ((_%e153643153868%_ (let () (declare (not safe)) (gx#stx-e - _%tl154528154755%_)))) - (let ((_%tl154531154763%_ + _%tl153638153865%_)))) + (let ((_%tl153641153873%_ (let () (declare (not safe)) - (##cdr _%e154533154758%_))) - (_%hd154532154761%_ + (##cdr _%e153643153868%_))) + (_%hd153642153871%_ (let () (declare (not safe)) - (##car _%e154533154758%_)))) + (##car _%e153643153868%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154532154761%_)) - (let ((_%e154536154766%_ + _%hd153642153871%_)) + (let ((_%e153646153876%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd154532154761%_)))) - (let ((_%tl154534154771%_ + (gx#stx-e _%hd153642153871%_)))) + (let ((_%tl153644153881%_ (let () (declare (not safe)) - (##cdr _%e154536154766%_))) - (_%hd154535154769%_ + (##cdr _%e153646153876%_))) + (_%hd153645153879%_ (let () (declare (not safe)) - (##car _%e154536154766%_)))) + (##car _%e153646153876%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154531154763%_)) - (let ((_%e154539154774%_ + (gx#stx-pair? _%tl153641153873%_)) + (let ((_%e153649153884%_ (let () (declare (not safe)) - (gx#stx-e _%tl154531154763%_)))) - (let ((_%tl154537154779%_ + (gx#stx-e _%tl153641153873%_)))) + (let ((_%tl153647153889%_ (let () (declare (not safe)) - (##cdr _%e154539154774%_))) - (_%hd154538154777%_ + (##cdr _%e153649153884%_))) + (_%hd153648153887%_ (let () (declare (not safe)) - (##car _%e154539154774%_)))) + (##car _%e153649153884%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154538154777%_)) - (let ((_%e154542154782%_ + (gx#stx-pair? _%hd153648153887%_)) + (let ((_%e153652153892%_ (let () (declare (not safe)) - (gx#stx-e _%hd154538154777%_)))) - (let ((_%tl154540154787%_ + (gx#stx-e _%hd153648153887%_)))) + (let ((_%tl153650153897%_ (let () (declare (not safe)) - (##cdr _%e154542154782%_))) - (_%hd154541154785%_ + (##cdr _%e153652153892%_))) + (_%hd153651153895%_ (let () (declare (not safe)) - (##car _%e154542154782%_)))) + (##car _%e153652153892%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154541154785%_)) + (gx#identifier? _%hd153651153895%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd154541154785%_)) + _%hd153651153895%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154540154787%_)) - (let ((_%e154545154790%_ + _%tl153650153897%_)) + (let ((_%e153655153900%_ (let () (declare (not safe)) (gx#stx-e - _%tl154540154787%_)))) - (let ((_%tl154543154795%_ + _%tl153650153897%_)))) + (let ((_%tl153653153905%_ (let () (declare (not safe)) - (##cdr _%e154545154790%_))) - (_%hd154544154793%_ + (##cdr _%e153655153900%_))) + (_%hd153654153903%_ (let () (declare (not safe)) - (##car _%e154545154790%_)))) + (##car _%e153655153900%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154544154793%_)) - (let ((_%e154548154798%_ + _%hd153654153903%_)) + (let ((_%e153658153908%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd154544154793%_)))) - (let ((_%tl154546154803%_ + (gx#stx-e _%hd153654153903%_)))) + (let ((_%tl153656153913%_ (let () (declare (not safe)) - (##cdr _%e154548154798%_))) - (_%hd154547154801%_ + (##cdr _%e153658153908%_))) + (_%hd153657153911%_ (let () (declare (not safe)) - (##car _%e154548154798%_)))) + (##car _%e153658153908%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154547154801%_)) + (gx#identifier? _%hd153657153911%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd154547154801%_)) + (gx#stx-eq? '%#ref _%hd153657153911%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154546154803%_)) - (let ((_%e154551154806%_ + (gx#stx-pair? _%tl153656153913%_)) + (let ((_%e153661153916%_ (let () (declare (not safe)) - (gx#stx-e _%tl154546154803%_)))) - (let ((_%tl154549154811%_ + (gx#stx-e _%tl153656153913%_)))) + (let ((_%tl153659153921%_ (let () (declare (not safe)) - (##cdr _%e154551154806%_))) - (_%hd154550154809%_ + (##cdr _%e153661153916%_))) + (_%hd153660153919%_ (let () (declare (not safe)) - (##car _%e154551154806%_)))) + (##car _%e153661153916%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154549154811%_)) + (gx#stx-null? _%tl153659153921%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154543154795%_)) - (let ((_%e154554154814%_ + _%tl153653153905%_)) + (let ((_%e153664153924%_ (let () (declare (not safe)) (gx#stx-e - _%tl154543154795%_)))) - (let ((_%tl154552154819%_ + _%tl153653153905%_)))) + (let ((_%tl153662153929%_ (let () (declare (not safe)) - (##cdr _%e154554154814%_))) - (_%hd154553154817%_ + (##cdr _%e153664153924%_))) + (_%hd153663153927%_ (let () (declare (not safe)) - (##car _%e154554154814%_)))) + (##car _%e153664153924%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154553154817%_)) - (let ((_%e154557154822%_ + _%hd153663153927%_)) + (let ((_%e153667153932%_ (let () (declare (not safe)) (gx#stx-e - _%hd154553154817%_)))) - (let ((_%tl154555154827%_ + _%hd153663153927%_)))) + (let ((_%tl153665153937%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e154557154822%_))) - (_%hd154556154825%_ - (let () (declare (not safe)) (##car _%e154557154822%_)))) + (##cdr _%e153667153932%_))) + (_%hd153666153935%_ + (let () (declare (not safe)) (##car _%e153667153932%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154556154825%_)) + (gx#identifier? _%hd153666153935%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd154556154825%_)) + (gx#stx-eq? '%#ref _%hd153666153935%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154555154827%_)) - (let ((_%e154560154830%_ + (gx#stx-pair? _%tl153665153937%_)) + (let ((_%e153670153940%_ (let () (declare (not safe)) - (gx#stx-e _%tl154555154827%_)))) - (let ((_%tl154558154835%_ + (gx#stx-e _%tl153665153937%_)))) + (let ((_%tl153668153945%_ (let () (declare (not safe)) - (##cdr _%e154560154830%_))) - (_%hd154559154833%_ + (##cdr _%e153670153940%_))) + (_%hd153669153943%_ (let () (declare (not safe)) - (##car _%e154560154830%_)))) + (##car _%e153670153940%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154558154835%_)) + (gx#stx-null? _%tl153668153945%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154552154819%_)) - (let ((_%e154563154838%_ + (gx#stx-pair? _%tl153662153929%_)) + (let ((_%e153673153948%_ (let () (declare (not safe)) (gx#stx-e - _%tl154552154819%_)))) - (let ((_%tl154561154843%_ + _%tl153662153929%_)))) + (let ((_%tl153671153953%_ (let () (declare (not safe)) - (##cdr _%e154563154838%_))) - (_%hd154562154841%_ + (##cdr _%e153673153948%_))) + (_%hd153672153951%_ (let () (declare (not safe)) - (##car _%e154563154838%_)))) + (##car _%e153673153948%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154562154841%_)) - (let ((_%e154566154846%_ + _%hd153672153951%_)) + (let ((_%e153676153956%_ (let () (declare (not safe)) (gx#stx-e - _%hd154562154841%_)))) - (let ((_%tl154564154851%_ + _%hd153672153951%_)))) + (let ((_%tl153674153961%_ (let () (declare (not safe)) - (##cdr _%e154566154846%_))) - (_%hd154565154849%_ + (##cdr _%e153676153956%_))) + (_%hd153675153959%_ (let () (declare (not safe)) - (##car _%e154566154846%_)))) + (##car _%e153676153956%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd154565154849%_)) + _%hd153675153959%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd154565154849%_)) + _%hd153675153959%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl154564154851%_)) - (let ((_%e154569154854%_ + (gx#stx-pair? _%tl153674153961%_)) + (let ((_%e153679153964%_ (let () (declare (not safe)) - (gx#stx-e _%tl154564154851%_)))) - (let ((_%tl154567154859%_ + (gx#stx-e _%tl153674153961%_)))) + (let ((_%tl153677153969%_ (let () (declare (not safe)) - (##cdr _%e154569154854%_))) - (_%hd154568154857%_ + (##cdr _%e153679153964%_))) + (_%hd153678153967%_ (let () (declare (not safe)) - (##car _%e154569154854%_)))) + (##car _%e153679153964%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154567154859%_)) + (gx#stx-null? _%tl153677153969%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154537154779%_)) + (gx#stx-null? _%tl153647153889%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154525154747%_)) + (gx#stx-null? _%tl153635153857%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154504154691%_)) + _%tl153614153801%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154495154667%_)) + _%tl153605153777%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154492154659%_)) - (let ((_%e154572154862%_ + _%tl153602153769%_)) + (let ((_%e153682153972%_ (let () (declare (not safe)) (gx#stx-e - _%tl154492154659%_)))) - (let ((_%tl154570154867%_ + _%tl153602153769%_)))) + (let ((_%tl153680153977%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e154572154862%_))) - (_%hd154571154865%_ - (let () (declare (not safe)) (##car _%e154572154862%_)))) + (##cdr _%e153682153972%_))) + (_%hd153681153975%_ + (let () (declare (not safe)) (##car _%e153682153972%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154571154865%_)) - (let ((_%e154575154870%_ + (gx#stx-pair? _%hd153681153975%_)) + (let ((_%e153685153980%_ (let () (declare (not safe)) - (gx#stx-e _%hd154571154865%_)))) - (let ((_%tl154573154875%_ + (gx#stx-e _%hd153681153975%_)))) + (let ((_%tl153683153985%_ (let () (declare (not safe)) - (##cdr _%e154575154870%_))) - (_%hd154574154873%_ + (##cdr _%e153685153980%_))) + (_%hd153684153983%_ (let () (declare (not safe)) - (##car _%e154575154870%_)))) + (##car _%e153685153980%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154574154873%_)) + (gx#identifier? _%hd153684153983%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd154574154873%_)) + (gx#stx-eq? '%#lambda _%hd153684153983%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154573154875%_)) - (let ((_%e154578154878%_ + (gx#stx-pair? _%tl153683153985%_)) + (let ((_%e153688153988%_ (let () (declare (not safe)) - (gx#stx-e _%tl154573154875%_)))) - (let ((_%tl154576154883%_ + (gx#stx-e _%tl153683153985%_)))) + (let ((_%tl153686153993%_ (let () (declare (not safe)) - (##cdr _%e154578154878%_))) - (_%hd154577154881%_ + (##cdr _%e153688153988%_))) + (_%hd153687153991%_ (let () (declare (not safe)) - (##car _%e154578154878%_)))) + (##car _%e153688153988%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154576154883%_)) - (let ((_%e154581154886%_ + _%tl153686153993%_)) + (let ((_%e153691153996%_ (let () (declare (not safe)) (gx#stx-e - _%tl154576154883%_)))) - (let ((_%tl154579154891%_ + _%tl153686153993%_)))) + (let ((_%tl153689154001%_ (let () (declare (not safe)) - (##cdr _%e154581154886%_))) - (_%hd154580154889%_ + (##cdr _%e153691153996%_))) + (_%hd153690153999%_ (let () (declare (not safe)) - (##car _%e154581154886%_)))) + (##car _%e153691153996%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154580154889%_)) - (let ((_%e154584154894%_ + _%hd153690153999%_)) + (let ((_%e153694154004%_ (let () (declare (not safe)) (gx#stx-e - _%hd154580154889%_)))) - (let ((_%tl154582154899%_ + _%hd153690153999%_)))) + (let ((_%tl153692154009%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e154584154894%_))) - (_%hd154583154897%_ - (let () (declare (not safe)) (##car _%e154584154894%_)))) + (##cdr _%e153694154004%_))) + (_%hd153693154007%_ + (let () (declare (not safe)) (##car _%e153694154004%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154583154897%_)) + (gx#identifier? _%hd153693154007%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd154583154897%_)) + (gx#stx-eq? '%#call _%hd153693154007%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154582154899%_)) - (let ((_%e154587154902%_ + (gx#stx-pair? _%tl153692154009%_)) + (let ((_%e153697154012%_ (let () (declare (not safe)) - (gx#stx-e _%tl154582154899%_)))) - (let ((_%tl154585154907%_ + (gx#stx-e _%tl153692154009%_)))) + (let ((_%tl153695154017%_ (let () (declare (not safe)) - (##cdr _%e154587154902%_))) - (_%hd154586154905%_ + (##cdr _%e153697154012%_))) + (_%hd153696154015%_ (let () (declare (not safe)) - (##car _%e154587154902%_)))) + (##car _%e153697154012%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154586154905%_)) - (let ((_%e154590154910%_ + (gx#stx-pair? _%hd153696154015%_)) + (let ((_%e153700154020%_ (let () (declare (not safe)) - (gx#stx-e _%hd154586154905%_)))) - (let ((_%tl154588154915%_ + (gx#stx-e _%hd153696154015%_)))) + (let ((_%tl153698154025%_ (let () (declare (not safe)) - (##cdr _%e154590154910%_))) - (_%hd154589154913%_ + (##cdr _%e153700154020%_))) + (_%hd153699154023%_ (let () (declare (not safe)) - (##car _%e154590154910%_)))) + (##car _%e153700154020%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd154589154913%_)) + _%hd153699154023%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd154589154913%_)) + _%hd153699154023%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154588154915%_)) - (let ((_%e154593154918%_ + _%tl153698154025%_)) + (let ((_%e153703154028%_ (let () (declare (not safe)) (gx#stx-e - _%tl154588154915%_)))) - (let ((_%tl154591154923%_ + _%tl153698154025%_)))) + (let ((_%tl153701154033%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e154593154918%_))) - (_%hd154592154921%_ - (let () (declare (not safe)) (##car _%e154593154918%_)))) + (##cdr _%e153703154028%_))) + (_%hd153702154031%_ + (let () (declare (not safe)) (##car _%e153703154028%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154591154923%_)) + (gx#stx-null? _%tl153701154033%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154585154907%_)) - (let ((_%e154596154926%_ + (gx#stx-pair? _%tl153695154017%_)) + (let ((_%e153706154036%_ (let () (declare (not safe)) - (gx#stx-e _%tl154585154907%_)))) - (let ((_%tl154594154931%_ + (gx#stx-e _%tl153695154017%_)))) + (let ((_%tl153704154041%_ (let () (declare (not safe)) - (##cdr _%e154596154926%_))) - (_%hd154595154929%_ + (##cdr _%e153706154036%_))) + (_%hd153705154039%_ (let () (declare (not safe)) - (##car _%e154596154926%_)))) + (##car _%e153706154036%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154595154929%_)) - (let ((_%e154599154934%_ + (gx#stx-pair? _%hd153705154039%_)) + (let ((_%e153709154044%_ (let () (declare (not safe)) - (gx#stx-e _%hd154595154929%_)))) - (let ((_%tl154597154939%_ + (gx#stx-e _%hd153705154039%_)))) + (let ((_%tl153707154049%_ (let () (declare (not safe)) - (##cdr _%e154599154934%_))) - (_%hd154598154937%_ + (##cdr _%e153709154044%_))) + (_%hd153708154047%_ (let () (declare (not safe)) - (##car _%e154599154934%_)))) + (##car _%e153709154044%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154598154937%_)) + (gx#identifier? _%hd153708154047%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd154598154937%_)) + _%hd153708154047%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154597154939%_)) - (let ((_%e154602154942%_ + _%tl153707154049%_)) + (let ((_%e153712154052%_ (let () (declare (not safe)) (gx#stx-e - _%tl154597154939%_)))) - (let ((_%tl154600154947%_ + _%tl153707154049%_)))) + (let ((_%tl153710154057%_ (let () (declare (not safe)) - (##cdr _%e154602154942%_))) - (_%hd154601154945%_ + (##cdr _%e153712154052%_))) + (_%hd153711154055%_ (let () (declare (not safe)) - (##car _%e154602154942%_)))) + (##car _%e153712154052%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154600154947%_)) + _%tl153710154057%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154594154931%_)) - (let ((_%e154605154950%_ + _%tl153704154041%_)) + (let ((_%e153715154060%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl154594154931%_)))) - (let ((_%tl154603154955%_ + (gx#stx-e _%tl153704154041%_)))) + (let ((_%tl153713154065%_ (let () (declare (not safe)) - (##cdr _%e154605154950%_))) - (_%hd154604154953%_ + (##cdr _%e153715154060%_))) + (_%hd153714154063%_ (let () (declare (not safe)) - (##car _%e154605154950%_)))) + (##car _%e153715154060%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154604154953%_)) - (let ((_%e154608154958%_ + (gx#stx-pair? _%hd153714154063%_)) + (let ((_%e153718154068%_ (let () (declare (not safe)) - (gx#stx-e _%hd154604154953%_)))) - (let ((_%tl154606154963%_ + (gx#stx-e _%hd153714154063%_)))) + (let ((_%tl153716154073%_ (let () (declare (not safe)) - (##cdr _%e154608154958%_))) - (_%hd154607154961%_ + (##cdr _%e153718154068%_))) + (_%hd153717154071%_ (let () (declare (not safe)) - (##car _%e154608154958%_)))) + (##car _%e153718154068%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154607154961%_)) + (gx#identifier? _%hd153717154071%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd154607154961%_)) + _%hd153717154071%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154606154963%_)) - (let ((_%e154611154966%_ + _%tl153716154073%_)) + (let ((_%e153721154076%_ (let () (declare (not safe)) (gx#stx-e - _%tl154606154963%_)))) - (let ((_%tl154609154971%_ + _%tl153716154073%_)))) + (let ((_%tl153719154081%_ (let () (declare (not safe)) - (##cdr _%e154611154966%_))) - (_%hd154610154969%_ + (##cdr _%e153721154076%_))) + (_%hd153720154079%_ (let () (declare (not safe)) - (##car _%e154611154966%_)))) + (##car _%e153721154076%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154609154971%_)) + _%tl153719154081%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154603154955%_)) - (let ((_%e154614154974%_ + _%tl153713154065%_)) + (let ((_%e153724154084%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl154603154955%_)))) - (let ((_%tl154612154979%_ + (gx#stx-e _%tl153713154065%_)))) + (let ((_%tl153722154089%_ (let () (declare (not safe)) - (##cdr _%e154614154974%_))) - (_%hd154613154977%_ + (##cdr _%e153724154084%_))) + (_%hd153723154087%_ (let () (declare (not safe)) - (##car _%e154614154974%_)))) + (##car _%e153724154084%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154613154977%_)) - (let ((_%e154617154982%_ + (gx#stx-pair? _%hd153723154087%_)) + (let ((_%e153727154092%_ (let () (declare (not safe)) - (gx#stx-e _%hd154613154977%_)))) - (let ((_%tl154615154987%_ + (gx#stx-e _%hd153723154087%_)))) + (let ((_%tl153725154097%_ (let () (declare (not safe)) - (##cdr _%e154617154982%_))) - (_%hd154616154985%_ + (##cdr _%e153727154092%_))) + (_%hd153726154095%_ (let () (declare (not safe)) - (##car _%e154617154982%_)))) + (##car _%e153727154092%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154616154985%_)) + (gx#identifier? _%hd153726154095%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd154616154985%_)) + (gx#stx-eq? '%#ref _%hd153726154095%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154615154987%_)) - (let ((_%e154620154990%_ + (gx#stx-pair? _%tl153725154097%_)) + (let ((_%e153730154100%_ (let () (declare (not safe)) (gx#stx-e - _%tl154615154987%_)))) - (let ((_%tl154618154995%_ + _%tl153725154097%_)))) + (let ((_%tl153728154105%_ (let () (declare (not safe)) - (##cdr _%e154620154990%_))) - (_%hd154619154993%_ + (##cdr _%e153730154100%_))) + (_%hd153729154103%_ (let () (declare (not safe)) - (##car _%e154620154990%_)))) + (##car _%e153730154100%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154618154995%_)) + _%tl153728154105%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154612154979%_)) - (let ((_%e154623154998%_ + _%tl153722154089%_)) + (let ((_%e153733154108%_ (let () (declare (not safe)) (gx#stx-e - _%tl154612154979%_)))) - (let ((_%tl154621155003%_ + _%tl153722154089%_)))) + (let ((_%tl153731154113%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e154623154998%_))) - (_%hd154622155001%_ - (let () (declare (not safe)) (##car _%e154623154998%_)))) + (##cdr _%e153733154108%_))) + (_%hd153732154111%_ + (let () (declare (not safe)) (##car _%e153733154108%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154622155001%_)) - (let ((_%e154626155006%_ + (gx#stx-pair? _%hd153732154111%_)) + (let ((_%e153736154116%_ (let () (declare (not safe)) - (gx#stx-e _%hd154622155001%_)))) - (let ((_%tl154624155011%_ + (gx#stx-e _%hd153732154111%_)))) + (let ((_%tl153734154121%_ (let () (declare (not safe)) - (##cdr _%e154626155006%_))) - (_%hd154625155009%_ + (##cdr _%e153736154116%_))) + (_%hd153735154119%_ (let () (declare (not safe)) - (##car _%e154626155006%_)))) + (##car _%e153736154116%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154625155009%_)) + (gx#identifier? _%hd153735154119%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd154625155009%_)) + (gx#stx-eq? '%#ref _%hd153735154119%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154624155011%_)) - (let ((_%e154629155014%_ + (gx#stx-pair? _%tl153734154121%_)) + (let ((_%e153739154124%_ (let () (declare (not safe)) - (gx#stx-e _%tl154624155011%_)))) - (let ((_%tl154627155019%_ + (gx#stx-e _%tl153734154121%_)))) + (let ((_%tl153737154129%_ (let () (declare (not safe)) - (##cdr _%e154629155014%_))) - (_%hd154628155017%_ + (##cdr _%e153739154124%_))) + (_%hd153738154127%_ (let () (declare (not safe)) - (##car _%e154629155014%_)))) + (##car _%e153739154124%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154627155019%_)) + _%tl153737154129%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154621155003%_)) + _%tl153731154113%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154579154891%_)) + _%tl153689154001%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154570154867%_)) - (_%__kont165039165040%_ - _%hd154628155017%_ - _%hd154619154993%_ - _%hd154601154945%_ - _%hd154592154921%_ - _%hd154577154881%_ - _%hd154568154857%_ - _%hd154559154833%_ - _%hd154550154809%_ - _%hd154535154769%_ - _%hd154520154729%_ - _%hd154502154681%_) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) + _%tl153680153977%_)) + (_%__kont164140164141%_ + _%hd153738154127%_ + _%hd153729154103%_ + _%hd153711154055%_ + _%hd153702154031%_ + _%hd153687153991%_ + _%hd153678153967%_ + _%hd153669153943%_ + _%hd153660153919%_ + _%hd153645153879%_ + _%hd153630153839%_ + _%hd153612153791%_) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)) - (_%__kont165041165042%_)))) - (_%__kont165041165042%_)))))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)) + (_%__kont164142164143%_)))) + (_%__kont164142164143%_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_%stx154215%_ _%id154216%_ _%clauses154217%_ _%gensym?154218%_) - (let _%lp154220%_ ((_%rest154222%_ _%clauses154217%_) - (_%ids154223%_ '()) - (_%impls154224%_ '()) - (_%clauses154225%_ '())) - (let* ((_%rest154226154234%_ _%rest154222%_) - (_%else154228154242%_ + (lambda (_%stx153325%_ _%id153326%_ _%clauses153327%_ _%gensym?153328%_) + (let _%lp153330%_ ((_%rest153332%_ _%clauses153327%_) + (_%ids153333%_ '()) + (_%impls153334%_ '()) + (_%clauses153335%_ '())) + (let* ((_%rest153336153344%_ _%rest153332%_) + (_%else153338153352%_ (lambda () - (values (reverse _%ids154223%_) - (reverse _%impls154224%_) - (reverse _%clauses154225%_)))) - (_%K154230154447%_ - (lambda (_%rest154245%_ _%clause154246%_) - (if (let () - (declare (not safe)) - (gxc#dispatch-lambda-form? _%clause154246%_)) - (let ((__tmp166185 - (cons _%clause154246%_ _%clauses154225%_))) - (declare (not safe)) - (_%lp154220%_ - _%rest154245%_ - _%ids154223%_ - _%impls154224%_ - __tmp166185)) - (let* ((_%g154248154259%_ - (lambda (_%g154249154256%_) + (values (reverse _%ids153333%_) + (reverse _%impls153334%_) + (reverse _%clauses153335%_)))) + (_%K153340153557%_ + (lambda (_%rest153355%_ _%clause153356%_) + (if (gxc#dispatch-lambda-form? _%clause153356%_) + (_%lp153330%_ + _%rest153355%_ + _%ids153333%_ + _%impls153334%_ + (cons _%clause153356%_ _%clauses153335%_)) + (let* ((_%g153358153369%_ + (lambda (_%g153359153366%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154249154256%_)))) - (_%g154247154444%_ - (lambda (_%g154249154262%_) + _%g153359153366%_)))) + (_%g153357153554%_ + (lambda (_%g153359153372%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g154249154262%_)) - (let ((_%e154254154264%_ + (gx#stx-pair? _%g153359153372%_)) + (let ((_%e153364153374%_ (let () (declare (not safe)) - (gx#stx-e _%g154249154262%_)))) - (let ((_%hd154253154267%_ + (gx#stx-e _%g153359153372%_)))) + (let ((_%hd153363153377%_ (let () (declare (not safe)) - (##car _%e154254154264%_))) - (_%tl154252154269%_ + (##car _%e153364153374%_))) + (_%tl153362153379%_ (let () (declare (not safe)) - (##cdr _%e154254154264%_)))) - ((lambda (_%L154272%_ _%L154273%_) - (let* ((_%id154290%_ - (let ((__tmp166188 + (##cdr _%e153364153374%_)))) + ((lambda (_%L153382%_ _%L153383%_) + (let* ((_%id153400%_ + (let ((__tmp165253 (let () (declare (not safe)) (gx#stx-e - _%id154216%_))) - (__tmp166187 - (length _%clauses154225%_)) - (__tmp166186 - (if _%gensym?154218%_ + _%id153326%_))) + (__tmp165252 + (length _%clauses153335%_)) + (__tmp165251 + (if _%gensym?153328%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##gensym '__)) '""))) (declare (not safe)) - (make-symbol__1 __tmp166188 '"__" __tmp166187 __tmp166186))) + (make-symbol__1 __tmp165253 '"__" __tmp165252 __tmp165251))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%id154292%_ - (let ((__tmp166189 + (_%id153402%_ + (let ((__tmp165254 (let () (declare (not safe)) (gx#stx-source - _%stx154215%_)))) + _%stx153325%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id154290%_ - __tmp166189))) - (_%impl154294%_ - (let ((__tmp166190 + _%id153400%_ + __tmp165254))) + (_%impl153404%_ + (let ((__tmp165255 (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons _%L154273%_ _%L154272%_)))) + (cons _%L153383%_ _%L153382%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp166190 _%stx154215%_))) + (gxc#xform-wrap-source __tmp165255 _%stx153325%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%clause154441%_ - (let* ((_%__stx165421165422%_ - _%L154273%_) - (_%g154298154326%_ + (_%clause153551%_ + (let* ((_%__stx164522164523%_ + _%L153383%_) + (_%g153408153436%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -16063,396 +15507,353 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx165421165422%_))))) - (let ((_%__kont165423165424%_ - (lambda (_%L154420%_) - (cons _%L154273%_ - (cons (let ((__tmp166191 + _%__stx164522164523%_))))) + (let ((_%__kont164524164525%_ + (lambda (_%L153530%_) + (cons _%L153383%_ + (cons (let ((__tmp165256 (cons '%#call (cons (cons '%#ref - (cons _%id154292%_ + (cons _%id153402%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp166192 - (lambda (_%g154430154433%_ _%g154431154435%_) + (let ((__tmp165257 + (lambda (_%g153540153543%_ _%g153541153545%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g154430154433%_ '())) - _%g154431154435%_)))) + (cons _%g153540153543%_ '())) + _%g153541153545%_)))) (declare (not safe)) - (__foldr1 __tmp166192 '() _%L154420%_)))))) + (__foldr1 __tmp165257 '() _%L153530%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp166191 - _%stx154215%_)) + __tmp165256 + _%stx153325%_)) '())))) - (_%__kont165427165428%_ - (lambda (_%L154371%_ _%L154372%_) - (cons _%L154273%_ - (cons (let ((__tmp166193 + (_%__kont164528164529%_ + (lambda (_%L153481%_ _%L153482%_) + (cons _%L153383%_ + (cons (let ((__tmp165258 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id154292%_ '())) - (let ((__tmp166196 + (cons _%id153402%_ '())) + (let ((__tmp165261 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L154371%_ '())) + (cons _%L153481%_ '())) '())) - (__tmp166194 - (let ((__tmp166195 - (lambda (_%g154383154386%_ - _%g154384154388%_) + (__tmp165259 + (let ((__tmp165260 + (lambda (_%g153493153496%_ + _%g153494153498%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g154383154386%_ '())) - _%g154384154388%_)))) + (cons _%g153493153496%_ '())) + _%g153494153498%_)))) (declare (not safe)) - (__foldr1 __tmp166195 '() _%L154372%_)))) + (__foldr1 __tmp165260 '() _%L153482%_)))) (declare (not safe)) - (__foldr1 cons __tmp166196 __tmp166194))))))) + (__foldr1 cons __tmp165261 __tmp165259))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp166193 - _%stx154215%_)) + __tmp165258 + _%stx153325%_)) '())))) - (_%__kont165431165432%_ - (lambda (_%L154331%_) - (cons _%L154273%_ - (cons (let ((__tmp166197 + (_%__kont164532164533%_ + (lambda (_%L153441%_) + (cons _%L153383%_ + (cons (let ((__tmp165262 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id154292%_ '())) + (cons _%id153402%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L154331%_ '())) + (cons _%L153441%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp166197 - _%stx154215%_)) + __tmp165262 + _%stx153325%_)) '()))))) - (let* ((_%__match165446165447%_ - (lambda (_%__splice165429165430%_ - _%target154312154347%_ - _%tl154314154349%_) - (letrec ((_%loop154315154352%_ - (lambda (_%hd154313154355%_ - _%arg154319154357%_) + (let* ((_%__match164547164548%_ + (lambda (_%__splice164530164531%_ + _%target153422153457%_ + _%tl153424153459%_) + (letrec ((_%loop153425153462%_ + (lambda (_%hd153423153465%_ + _%arg153429153467%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154313154355%_)) - (let ((_%e154316154360%_ + (gx#stx-pair? _%hd153423153465%_)) + (let ((_%e153426153470%_ (let () (declare (not safe)) (gx#stx-e - _%hd154313154355%_)))) - (let ((_%lp-tl154318154365%_ + _%hd153423153465%_)))) + (let ((_%lp-tl153428153475%_ (let () (declare (not safe)) - (##cdr _%e154316154360%_))) - (_%lp-hd154317154363%_ + (##cdr _%e153426153470%_))) + (_%lp-hd153427153473%_ (let () (declare (not safe)) - (##car _%e154316154360%_)))) - (let ((__tmp166198 - (cons _%lp-hd154317154363%_ - _%arg154319154357%_))) - (declare (not safe)) - (_%loop154315154352%_ - _%lp-tl154318154365%_ - __tmp166198)))) - (let ((_%arg154320154368%_ - (reverse _%arg154319154357%_))) - (_%__kont165427165428%_ - _%tl154314154349%_ - _%arg154320154368%_)))))) - (let () - (declare (not safe)) - (_%loop154315154352%_ - _%target154312154347%_ - '()))))) - (_%__match165440165441%_ - (lambda (_%__splice165425165426%_ - _%target154301154396%_ - _%tl154303154398%_) - (letrec ((_%loop154304154401%_ - (lambda (_%hd154302154404%_ - _%arg154308154406%_) + (##car _%e153426153470%_)))) + (_%loop153425153462%_ + _%lp-tl153428153475%_ + (cons _%lp-hd153427153473%_ + _%arg153429153467%_)))) + (let ((_%arg153430153478%_ + (reverse _%arg153429153467%_))) + (_%__kont164528164529%_ + _%tl153424153459%_ + _%arg153430153478%_)))))) + (_%loop153425153462%_ + _%target153422153457%_ + '())))) + (_%__match164541164542%_ + (lambda (_%__splice164526164527%_ + _%target153411153506%_ + _%tl153413153508%_) + (letrec ((_%loop153414153511%_ + (lambda (_%hd153412153514%_ + _%arg153418153516%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154302154404%_)) - (let ((_%e154305154409%_ + (gx#stx-pair? _%hd153412153514%_)) + (let ((_%e153415153519%_ (let () (declare (not safe)) (gx#stx-e - _%hd154302154404%_)))) - (let ((_%lp-tl154307154414%_ + _%hd153412153514%_)))) + (let ((_%lp-tl153417153524%_ (let () (declare (not safe)) - (##cdr _%e154305154409%_))) - (_%lp-hd154306154412%_ + (##cdr _%e153415153519%_))) + (_%lp-hd153416153522%_ (let () (declare (not safe)) - (##car _%e154305154409%_)))) - (let ((__tmp166199 - (cons _%lp-hd154306154412%_ - _%arg154308154406%_))) - (declare (not safe)) - (_%loop154304154401%_ - _%lp-tl154307154414%_ - __tmp166199)))) - (let ((_%arg154309154417%_ - (reverse _%arg154308154406%_))) - (_%__kont165423165424%_ - _%arg154309154417%_)))))) - (let () - (declare (not safe)) - (_%loop154304154401%_ - _%target154301154396%_ - '())))))) + (##car _%e153415153519%_)))) + (_%loop153414153511%_ + _%lp-tl153417153524%_ + (cons _%lp-hd153416153522%_ + _%arg153418153516%_)))) + (let ((_%arg153419153527%_ + (reverse _%arg153418153516%_))) + (_%__kont164524164525%_ + _%arg153419153527%_)))))) + (_%loop153414153511%_ + _%target153411153506%_ + '()))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%__stx165421165422%_)) - (let ((_%__splice165425165426%_ + (gx#stx-pair/null? _%__stx164522164523%_)) + (let ((_%__splice164526164527%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx165421165422%_ + _%__stx164522164523%_ '0)))) - (let ((_%tl154303154398%_ + (let ((_%tl153413153508%_ (let () (declare (not safe)) - (##vector-ref _%__splice165425165426%_ '1))) - (_%target154301154396%_ + (##vector-ref _%__splice164526164527%_ '1))) + (_%target153411153506%_ (let () (declare (not safe)) - (##vector-ref _%__splice165425165426%_ '0)))) + (##vector-ref _%__splice164526164527%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154303154398%_)) - (_%__match165440165441%_ - _%__splice165425165426%_ - _%target154301154396%_ - _%tl154303154398%_) - (_%__match165446165447%_ - _%__splice165425165426%_ - _%target154301154396%_ - _%tl154303154398%_)))) - (_%__kont165431165432%_ _%__stx165421165422%_))))))) + (gx#stx-null? _%tl153413153508%_)) + (_%__match164541164542%_ + _%__splice164526164527%_ + _%target153411153506%_ + _%tl153413153508%_) + (_%__match164547164548%_ + _%__splice164526164527%_ + _%target153411153506%_ + _%tl153413153508%_)))) + (_%__kont164532164533%_ _%__stx164522164523%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp166202 - (cons _%id154292%_ - _%ids154223%_)) - (__tmp166201 - (cons _%impl154294%_ - _%impls154224%_)) - (__tmp166200 - (cons _%clause154441%_ - _%clauses154225%_))) - (declare (not safe)) - (_%lp154220%_ - _%rest154245%_ - __tmp166202 - __tmp166201 - __tmp166200)))) - _%tl154252154269%_ - _%hd154253154267%_))) - (let () - (declare (not safe)) - (_%g154248154259%_ - _%g154249154262%_)))))) - (declare (not safe)) - (_%g154247154444%_ _%clause154246%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest154226154234%_)) - (let ((_%hd154231154450%_ + (_%lp153330%_ + _%rest153355%_ + (cons _%id153402%_ + _%ids153333%_) + (cons _%impl153404%_ + _%impls153334%_) + (cons _%clause153551%_ + _%clauses153335%_)))) + _%tl153362153379%_ + _%hd153363153377%_))) + (_%g153358153369%_ _%g153359153372%_))))) + (_%g153357153554%_ _%clause153356%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest153336153344%_)) + (let ((_%hd153341153560%_ (let () (declare (not safe)) - (##car _%rest154226154234%_))) - (_%tl154232154452%_ + (##car _%rest153336153344%_))) + (_%tl153342153562%_ (let () (declare (not safe)) - (##cdr _%rest154226154234%_)))) - (let* ((_%clause154455%_ _%hd154231154450%_) - (_%rest154457%_ _%tl154232154452%_)) - (declare (not safe)) - (_%K154230154447%_ _%rest154457%_ _%clause154455%_))) - (let () (declare (not safe)) (_%else154228154242%_))))))) + (##cdr _%rest153336153344%_)))) + (let* ((_%clause153565%_ _%hd153341153560%_) + (_%rest153567%_ _%tl153342153562%_)) + (_%K153340153557%_ _%rest153567%_ _%clause153565%_))) + (_%else153338153352%_)))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_%stx154462%_ _%id154463%_ _%clauses154464%_) - (let ((_%gensym?154466%_ '#f)) - (declare (not safe)) + (lambda (_%stx153572%_ _%id153573%_ _%clauses153574%_) + (let ((_%gensym?153576%_ '#f)) (gxc#lift-case-lambda-clauses__% - _%stx154462%_ - _%id154463%_ - _%clauses154464%_ - _%gensym?154466%_)))) + _%stx153572%_ + _%id153573%_ + _%clauses153574%_ + _%gensym?153576%_)))) (define gxc#lift-case-lambda-clauses - (lambda _g166204_ - (let ((_g166203_ (let () (declare (not safe)) (##length _g166204_)))) - (cond ((let () (declare (not safe)) (##fx= _g166203_ 3)) - (apply (lambda (_%stx154462%_ _%id154463%_ _%clauses154464%_) - (let () - (declare (not safe)) - (gxc#lift-case-lambda-clauses__0 - _%stx154462%_ - _%id154463%_ - _%clauses154464%_))) - _g166204_)) - ((let () (declare (not safe)) (##fx= _g166203_ 4)) - (apply (lambda (_%stx154468%_ - _%id154469%_ - _%clauses154470%_ - _%gensym?154471%_) - (let () - (declare (not safe)) - (gxc#lift-case-lambda-clauses__% - _%stx154468%_ - _%id154469%_ - _%clauses154470%_ - _%gensym?154471%_))) - _g166204_)) + (lambda _g165264_ + (let ((_g165263_ (let () (declare (not safe)) (##length _g165264_)))) + (cond ((let () (declare (not safe)) (##fx= _g165263_ 3)) + (apply gxc#lift-case-lambda-clauses__0 _g165264_)) + ((let () (declare (not safe)) (##fx= _g165263_ 4)) + (apply gxc#lift-case-lambda-clauses__% _g165264_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g166204_)))))) + _g165264_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_%self153487%_ _%stx153488%_) - (letrec ((_%case-lambda-clause-def153490%_ - (lambda (_%id154211%_ _%impl154212%_) - (let ((__tmp166205 + (lambda (_%self152597%_ _%stx152598%_) + (letrec ((_%case-lambda-clause-def152600%_ + (lambda (_%id153321%_ _%impl153322%_) + (let ((__tmp165265 (cons '%#define-values - (cons (cons _%id154211%_ '()) + (cons (cons _%id153321%_ '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self153487%_ - _%impl154212%_)) + _%self152597%_ + _%impl153322%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp166205 _%stx153488%_)))) - (_%opt-lambda-dispatch-name153491%_ - (lambda (_%id154207%_) - (if (uninterned-symbol? _%id154207%_) - (let ((_%str154209%_ (symbol->string _%id154207%_))) + (gxc#xform-wrap-source __tmp165265 _%stx152598%_)))) + (_%opt-lambda-dispatch-name152601%_ + (lambda (_%id153317%_) + (if (uninterned-symbol? _%id153317%_) + (let ((_%str153319%_ (symbol->string _%id153317%_))) (if (let () (declare (not safe)) - (##string-prefix? '"opt-lambda" _%str154209%_)) + (##string-prefix? '"opt-lambda" _%str153319%_)) '"%" - _%id154207%_)) - _%id154207%_))) - (_%kw-lambda-dispatch-name153492%_ - (lambda (_%id154202%_ _%name154203%_) - (if (uninterned-symbol? _%id154202%_) - (let ((_%str154205%_ (symbol->string _%id154202%_))) + _%id153317%_)) + _%id153317%_))) + (_%kw-lambda-dispatch-name152602%_ + (lambda (_%id153312%_ _%name153313%_) + (if (uninterned-symbol? _%id153312%_) + (let ((_%str153315%_ (symbol->string _%id153312%_))) (if (let () (declare (not safe)) - (##string-prefix? '"kw-lambda" _%str154205%_)) - _%name154203%_ - _%id154202%_)) - _%id154202%_)))) - (let* ((_%__stx165469165470%_ _%stx153488%_) - (_%g153497153556%_ + (##string-prefix? '"kw-lambda" _%str153315%_)) + _%name153313%_ + _%id153312%_)) + _%id153312%_)))) + (let* ((_%__stx164570164571%_ _%stx152598%_) + (_%g152607152666%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx165469165470%_))))) - (let ((_%__kont165471165472%_ - (lambda (_%L154110%_ _%L154111%_) - (let* ((_%__stx165449165450%_ _%L154110%_) - (_%g154128154142%_ + _%__stx164570164571%_))))) + (let ((_%__kont164572164573%_ + (lambda (_%L153220%_ _%L153221%_) + (let* ((_%__stx164550164551%_ _%L153220%_) + (_%g153238153252%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx165449165450%_))))) - (let ((_%__kont165451165452%_ - (lambda (_%L154187%_) _%stx153488%_)) - (_%__kont165453165454%_ - (lambda (_%L154155%_) - (let ((_g166206_ - (let () - (declare (not safe)) - (gxc#lift-case-lambda-clauses__0 - _%stx153488%_ - _%L154111%_ - _%L154155%_)))) + _%__stx164550164551%_))))) + (let ((_%__kont164552164553%_ + (lambda (_%L153297%_) _%stx152598%_)) + (_%__kont164554164555%_ + (lambda (_%L153265%_) + (let ((_g165266_ + (gxc#lift-case-lambda-clauses__0 + _%stx152598%_ + _%L153221%_ + _%L153265%_))) (begin - (let ((_g166207_ + (let ((_g165267_ (let () (declare (not safe)) - (if (##values? _g166206_) - (##vector-length _g166206_) + (if (##values? _g165266_) + (##vector-length _g165266_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g166207_ 3))) + (##fx= _g165267_ 3))) (error "Context expects 3 values" - _g166207_))) - (let ((_%ids154165%_ + _g165267_))) + (let ((_%ids153275%_ (let () (declare (not safe)) - (##vector-ref _g166206_ 0))) - (_%impls154166%_ + (##vector-ref _g165266_ 0))) + (_%impls153276%_ (let () (declare (not safe)) - (##vector-ref _g166206_ 1))) - (_%clauses154167%_ + (##vector-ref _g165266_ 1))) + (_%clauses153277%_ (let () (declare (not safe)) - (##vector-ref _g166206_ 2)))) - (let* ((_%_154169%_ + (##vector-ref _g165266_ 2)))) + (let* ((_%_153279%_ (for-each gx#core-bind-runtime! - _%ids154165%_)) - (_%defs154171%_ - (map _%case-lambda-clause-def153490%_ - _%ids154165%_ - _%impls154166%_))) - (let ((__tmp166209 + _%ids153275%_)) + (_%defs153281%_ + (map _%case-lambda-clause-def152600%_ + _%ids153275%_ + _%impls153276%_))) + (let ((__tmp165269 (let () (declare (not safe)) (gxc#identifier-symbol - _%L154111%_))) - (__tmp166208 + _%L153221%_))) + (__tmp165268 (map gxc#identifier-symbol - _%ids154165%_))) + _%ids153275%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp166209 + __tmp165269 '" => " - __tmp166208)) - (let ((__tmp166210 + __tmp165268)) + (let ((__tmp165270 (cons '%#begin - (let ((__tmp166211 - (cons (let ((__tmp166212 + (let ((__tmp165271 + (cons (let ((__tmp165272 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#define-values - (cons (cons _%L154111%_ '()) - (cons (let ((__tmp166214 + (cons (cons _%L153221%_ '()) + (cons (let ((__tmp165274 (cons '%#case-lambda - _%clauses154167%_)) - (__tmp166213 + _%clauses153277%_)) + (__tmp165273 (let () (declare (not safe)) @@ -16461,1246 +15862,1128 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp166214 - __tmp166213)) + __tmp165274 + __tmp165273)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp166212 _%stx153488%_)) + (gxc#xform-wrap-source __tmp165272 _%stx152598%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp166211 _%defs154171%_))))) + (__foldr1 cons __tmp165271 _%defs153281%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp166210 - _%stx153488%_))))))))) - (let ((_%__match165460165461%_ - (lambda (_%e154133154179%_ - _%hd154132154182%_ - _%tl154131154184%_) - (let ((_%L154187%_ _%tl154131154184%_)) + __tmp165270 + _%stx152598%_))))))))) + (let ((_%__match164561164562%_ + (lambda (_%e153243153289%_ + _%hd153242153292%_ + _%tl153241153294%_) + (let ((_%L153297%_ _%tl153241153294%_)) (if (let () (declare (not safe)) (__andmap1 gxc#dispatch-lambda-form? - _%L154187%_)) - (_%__kont165451165452%_ _%L154187%_) - (_%__kont165453165454%_ - _%tl154131154184%_)))))) + _%L153297%_)) + (_%__kont164552164553%_ _%L153297%_) + (_%__kont164554164555%_ + _%tl153241153294%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx165449165450%_)) - (let ((_%e154133154179%_ + (gx#stx-pair? _%__stx164550164551%_)) + (let ((_%e153243153289%_ (let () (declare (not safe)) - (gx#stx-e _%__stx165449165450%_)))) - (let ((_%tl154131154184%_ + (gx#stx-e _%__stx164550164551%_)))) + (let ((_%tl153241153294%_ (let () (declare (not safe)) - (##cdr _%e154133154179%_))) - (_%hd154132154182%_ + (##cdr _%e153243153289%_))) + (_%hd153242153292%_ (let () (declare (not safe)) - (##car _%e154133154179%_)))) - (_%__match165460165461%_ - _%e154133154179%_ - _%hd154132154182%_ - _%tl154131154184%_))) + (##car _%e153243153289%_)))) + (_%__match164561164562%_ + _%e153243153289%_ + _%hd153242153292%_ + _%tl153241153294%_))) (let () (declare (not safe)) - (_%g154128154142%_)))))))) - (_%__kont165473165474%_ - (lambda (_%L153927%_ _%L153928%_) - (let* ((_%g153944153974%_ - (lambda (_%g153945153971%_) + (_%g153238153252%_)))))))) + (_%__kont164574164575%_ + (lambda (_%L153037%_ _%L153038%_) + (let* ((_%g153054153084%_ + (lambda (_%g153055153081%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153945153971%_)))) - (_%g153943154070%_ - (lambda (_%g153945153977%_) + _%g153055153081%_)))) + (_%g153053153180%_ + (lambda (_%g153055153087%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153945153977%_)) - (let ((_%e153951153979%_ + (gx#stx-pair? _%g153055153087%_)) + (let ((_%e153061153089%_ (let () (declare (not safe)) - (gx#stx-e _%g153945153977%_)))) - (let ((_%hd153950153982%_ + (gx#stx-e _%g153055153087%_)))) + (let ((_%hd153060153092%_ (let () (declare (not safe)) - (##car _%e153951153979%_))) - (_%tl153949153984%_ + (##car _%e153061153089%_))) + (_%tl153059153094%_ (let () (declare (not safe)) - (##cdr _%e153951153979%_)))) + (##cdr _%e153061153089%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153949153984%_)) - (let ((_%e153954153987%_ + (gx#stx-pair? _%tl153059153094%_)) + (let ((_%e153064153097%_ (let () (declare (not safe)) (gx#stx-e - _%tl153949153984%_)))) - (let ((_%hd153953153990%_ + _%tl153059153094%_)))) + (let ((_%hd153063153100%_ (let () (declare (not safe)) - (##car _%e153954153987%_))) - (_%tl153952153992%_ + (##car _%e153064153097%_))) + (_%tl153062153102%_ (let () (declare (not safe)) - (##cdr _%e153954153987%_)))) + (##cdr _%e153064153097%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153953153990%_)) - (let ((_%e153957153995%_ + _%hd153063153100%_)) + (let ((_%e153067153105%_ (let () (declare (not safe)) (gx#stx-e - _%hd153953153990%_)))) - (let ((_%hd153956153998%_ + _%hd153063153100%_)))) + (let ((_%hd153066153108%_ (let () (declare (not safe)) - (##car _%e153957153995%_))) - (_%tl153955154000%_ + (##car _%e153067153105%_))) + (_%tl153065153110%_ (let () (declare (not safe)) - (##cdr _%e153957153995%_)))) + (##cdr _%e153067153105%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153956153998%_)) - (let ((_%e153960154003%_ + _%hd153066153108%_)) + (let ((_%e153070153113%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd153956153998%_)))) - (let ((_%hd153959154006%_ + (gx#stx-e _%hd153066153108%_)))) + (let ((_%hd153069153116%_ (let () (declare (not safe)) - (##car _%e153960154003%_))) - (_%tl153958154008%_ + (##car _%e153070153113%_))) + (_%tl153068153118%_ (let () (declare (not safe)) - (##cdr _%e153960154003%_)))) + (##cdr _%e153070153113%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153959154006%_)) - (let ((_%e153963154011%_ + (gx#stx-pair? _%hd153069153116%_)) + (let ((_%e153073153121%_ (let () (declare (not safe)) - (gx#stx-e _%hd153959154006%_)))) - (let ((_%hd153962154014%_ + (gx#stx-e _%hd153069153116%_)))) + (let ((_%hd153072153124%_ (let () (declare (not safe)) - (##car _%e153963154011%_))) - (_%tl153961154016%_ + (##car _%e153073153121%_))) + (_%tl153071153126%_ (let () (declare (not safe)) - (##cdr _%e153963154011%_)))) + (##cdr _%e153073153121%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153961154016%_)) + (gx#stx-null? _%tl153071153126%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153958154008%_)) - (let ((_%e153966154019%_ + (gx#stx-pair? _%tl153068153118%_)) + (let ((_%e153076153129%_ (let () (declare (not safe)) (gx#stx-e - _%tl153958154008%_)))) - (let ((_%hd153965154022%_ + _%tl153068153118%_)))) + (let ((_%hd153075153132%_ (let () (declare (not safe)) - (##car _%e153966154019%_))) - (_%tl153964154024%_ + (##car _%e153076153129%_))) + (_%tl153074153134%_ (let () (declare (not safe)) - (##cdr _%e153966154019%_)))) + (##cdr _%e153076153129%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153964154024%_)) + _%tl153074153134%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153955154000%_)) + _%tl153065153110%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153952153992%_)) - (let ((_%e153969154027%_ + _%tl153062153102%_)) + (let ((_%e153079153137%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl153952153992%_)))) - (let ((_%hd153968154030%_ + (gx#stx-e _%tl153062153102%_)))) + (let ((_%hd153078153140%_ (let () (declare (not safe)) - (##car _%e153969154027%_))) - (_%tl153967154032%_ + (##car _%e153079153137%_))) + (_%tl153077153142%_ (let () (declare (not safe)) - (##cdr _%e153969154027%_)))) + (##cdr _%e153079153137%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153967154032%_)) - ((lambda (_%L154035%_ _%L154036%_ _%L154037%_) - (let* ((_%lambda-id154061%_ - (let ((__tmp166217 + (gx#stx-null? _%tl153077153142%_)) + ((lambda (_%L153145%_ _%L153146%_ _%L153147%_) + (let* ((_%lambda-id153171%_ + (let ((__tmp165276 (let () (declare (not safe)) - (gx#stx-e _%L153928%_))) - (__tmp166215 - (let ((__tmp166216 - (let () - (declare (not safe)) - (gx#stx-e _%L154037%_)))) - (declare (not safe)) - (_%opt-lambda-dispatch-name153491%_ - __tmp166216)))) + (gx#stx-e _%L153038%_))) + (__tmp165275 + (_%opt-lambda-dispatch-name152601%_ + (let () + (declare (not safe)) + (gx#stx-e _%L153147%_))))) (declare (not safe)) (make-symbol__1 - __tmp166217 + __tmp165276 '"__" - __tmp166215))) - (_%lambda-id154063%_ - (let ((__tmp166218 + __tmp165275))) + (_%lambda-id153173%_ + (let ((__tmp165277 (let () (declare (not safe)) - (gx#stx-source _%stx153488%_)))) + (gx#stx-source _%stx152598%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%lambda-id154061%_ - __tmp166218))) - (_%_154065%_ + _%lambda-id153171%_ + __tmp165277))) + (_%_153175%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%lambda-id154063%_))) - (_%new-case-lambda-expr154067%_ + _%lambda-id153173%_))) + (_%new-case-lambda-expr153177%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154037%_ - _%lambda-id154063%_ - _%L154035%_)))) - (let ((__tmp166220 + _%L153147%_ + _%lambda-id153173%_ + _%L153145%_)))) + (let ((__tmp165279 (let () (declare (not safe)) - (gxc#identifier-symbol _%L153928%_))) - (__tmp166219 + (gxc#identifier-symbol _%L153038%_))) + (__tmp165278 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id154063%_)))) + _%lambda-id153173%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp166220 + __tmp165279 '" => " - __tmp166219)) - (let ((__tmp166221 + __tmp165278)) + (let ((__tmp165280 (cons '%#begin - (cons (let ((__tmp166222 + (cons (let ((__tmp165281 (cons '%#define-values - (cons (cons _%lambda-id154063%_ + (cons (cons _%lambda-id153173%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self153487%_ - _%L154036%_)) + _%self152597%_ + _%L153146%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp166222 - _%stx153488%_)) - (cons (let ((__tmp166223 - (let ((__tmp166224 + __tmp165281 + _%stx152598%_)) + (cons (gxc#lift-top-lambda-define-values% + _%self152597%_ + (let ((__tmp165282 + (cons '%#define-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '%#define-values - (cons (cons _%L153928%_ '()) - (cons _%new-case-lambda-expr154067%_ - '()))))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp166224 _%stx153488%_)))) - (declare (not safe)) - (gxc#lift-top-lambda-define-values% _%self153487%_ __tmp166223)) + (cons (cons _%L153038%_ '()) + (cons _%new-case-lambda-expr153177%_ '()))))) + (declare (not safe)) + (gxc#xform-wrap-source __tmp165282 _%stx152598%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp166221 - _%stx153488%_)))) - _%hd153968154030%_ - _%hd153965154022%_ - _%hd153962154014%_) - (let () - (declare (not safe)) - (_%g153944153974%_ _%g153945153977%_))))) - (let () - (declare (not safe)) - (_%g153944153974%_ _%g153945153977%_))) + __tmp165280 + _%stx152598%_)))) + _%hd153078153140%_ + _%hd153075153132%_ + _%hd153072153124%_) + (_%g153054153084%_ _%g153055153087%_)))) + (_%g153054153084%_ _%g153055153087%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g153944153974%_ - _%g153945153977%_))) - (let () - (declare (not safe)) - (_%g153944153974%_ - _%g153945153977%_))))) - (let () - (declare (not safe)) - (_%g153944153974%_ - _%g153945153977%_))) - (let () - (declare (not safe)) - (_%g153944153974%_ _%g153945153977%_))))) - (let () - (declare (not safe)) - (_%g153944153974%_ _%g153945153977%_))))) - (let () - (declare (not safe)) - (_%g153944153974%_ _%g153945153977%_))))) + (_%g153054153084%_ + _%g153055153087%_)) + (_%g153054153084%_ + _%g153055153087%_)))) + (_%g153054153084%_ _%g153055153087%_)) + (_%g153054153084%_ _%g153055153087%_)))) + (_%g153054153084%_ _%g153055153087%_)))) + (_%g153054153084%_ _%g153055153087%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g153944153974%_ - _%g153945153977%_))))) - (let () - (declare (not safe)) - (_%g153944153974%_ - _%g153945153977%_))))) - (let () - (declare (not safe)) - (_%g153944153974%_ _%g153945153977%_)))))) - (declare (not safe)) - (_%g153943154070%_ _%L153927%_)))) - (_%__kont165475165476%_ - (lambda (_%L153639%_ _%L153640%_) - (let* ((_%g153656153709%_ - (lambda (_%g153657153706%_) + (_%g153054153084%_ + _%g153055153087%_)))) + (_%g153054153084%_ + _%g153055153087%_)))) + (_%g153054153084%_ _%g153055153087%_))))) + (_%g153053153180%_ _%L153037%_)))) + (_%__kont164576164577%_ + (lambda (_%L152749%_ _%L152750%_) + (let* ((_%g152766152819%_ + (lambda (_%g152767152816%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153657153706%_)))) - (_%g153655153887%_ - (lambda (_%g153657153712%_) + _%g152767152816%_)))) + (_%g152765152997%_ + (lambda (_%g152767152822%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153657153712%_)) - (let ((_%e153665153714%_ + (gx#stx-pair? _%g152767152822%_)) + (let ((_%e152775152824%_ (let () (declare (not safe)) - (gx#stx-e _%g153657153712%_)))) - (let ((_%hd153664153717%_ + (gx#stx-e _%g152767152822%_)))) + (let ((_%hd152774152827%_ (let () (declare (not safe)) - (##car _%e153665153714%_))) - (_%tl153663153719%_ + (##car _%e152775152824%_))) + (_%tl152773152829%_ (let () (declare (not safe)) - (##cdr _%e153665153714%_)))) + (##cdr _%e152775152824%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153663153719%_)) - (let ((_%e153668153722%_ + (gx#stx-pair? _%tl152773152829%_)) + (let ((_%e152778152832%_ (let () (declare (not safe)) (gx#stx-e - _%tl153663153719%_)))) - (let ((_%hd153667153725%_ + _%tl152773152829%_)))) + (let ((_%hd152777152835%_ (let () (declare (not safe)) - (##car _%e153668153722%_))) - (_%tl153666153727%_ + (##car _%e152778152832%_))) + (_%tl152776152837%_ (let () (declare (not safe)) - (##cdr _%e153668153722%_)))) + (##cdr _%e152778152832%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153667153725%_)) - (let ((_%e153671153730%_ + _%hd152777152835%_)) + (let ((_%e152781152840%_ (let () (declare (not safe)) (gx#stx-e - _%hd153667153725%_)))) - (let ((_%hd153670153733%_ + _%hd152777152835%_)))) + (let ((_%hd152780152843%_ (let () (declare (not safe)) - (##car _%e153671153730%_))) - (_%tl153669153735%_ + (##car _%e152781152840%_))) + (_%tl152779152845%_ (let () (declare (not safe)) - (##cdr _%e153671153730%_)))) + (##cdr _%e152781152840%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153670153733%_)) - (let ((_%e153674153738%_ + _%hd152780152843%_)) + (let ((_%e152784152848%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd153670153733%_)))) - (let ((_%hd153673153741%_ + (gx#stx-e _%hd152780152843%_)))) + (let ((_%hd152783152851%_ (let () (declare (not safe)) - (##car _%e153674153738%_))) - (_%tl153672153743%_ + (##car _%e152784152848%_))) + (_%tl152782152853%_ (let () (declare (not safe)) - (##cdr _%e153674153738%_)))) + (##cdr _%e152784152848%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153673153741%_)) - (let ((_%e153677153746%_ + (gx#stx-pair? _%hd152783152851%_)) + (let ((_%e152787152856%_ (let () (declare (not safe)) - (gx#stx-e _%hd153673153741%_)))) - (let ((_%hd153676153749%_ + (gx#stx-e _%hd152783152851%_)))) + (let ((_%hd152786152859%_ (let () (declare (not safe)) - (##car _%e153677153746%_))) - (_%tl153675153751%_ + (##car _%e152787152856%_))) + (_%tl152785152861%_ (let () (declare (not safe)) - (##cdr _%e153677153746%_)))) + (##cdr _%e152787152856%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153675153751%_)) + (gx#stx-null? _%tl152785152861%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153672153743%_)) - (let ((_%e153680153754%_ + (gx#stx-pair? _%tl152782152853%_)) + (let ((_%e152790152864%_ (let () (declare (not safe)) (gx#stx-e - _%tl153672153743%_)))) - (let ((_%hd153679153757%_ + _%tl152782152853%_)))) + (let ((_%hd152789152867%_ (let () (declare (not safe)) - (##car _%e153680153754%_))) - (_%tl153678153759%_ + (##car _%e152790152864%_))) + (_%tl152788152869%_ (let () (declare (not safe)) - (##cdr _%e153680153754%_)))) + (##cdr _%e152790152864%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153679153757%_)) - (let ((_%e153683153762%_ + _%hd152789152867%_)) + (let ((_%e152793152872%_ (let () (declare (not safe)) (gx#stx-e - _%hd153679153757%_)))) - (let ((_%hd153682153765%_ + _%hd152789152867%_)))) + (let ((_%hd152792152875%_ (let () (declare (not safe)) - (##car _%e153683153762%_))) - (_%tl153681153767%_ + (##car _%e152793152872%_))) + (_%tl152791152877%_ (let () (declare (not safe)) - (##cdr _%e153683153762%_)))) + (##cdr _%e152793152872%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153681153767%_)) - (let ((_%e153686153770%_ + _%tl152791152877%_)) + (let ((_%e152796152880%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl153681153767%_)))) - (let ((_%hd153685153773%_ + (gx#stx-e _%tl152791152877%_)))) + (let ((_%hd152795152883%_ (let () (declare (not safe)) - (##car _%e153686153770%_))) - (_%tl153684153775%_ + (##car _%e152796152880%_))) + (_%tl152794152885%_ (let () (declare (not safe)) - (##cdr _%e153686153770%_)))) + (##cdr _%e152796152880%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153685153773%_)) - (let ((_%e153689153778%_ + (gx#stx-pair? _%hd152795152883%_)) + (let ((_%e152799152888%_ (let () (declare (not safe)) - (gx#stx-e _%hd153685153773%_)))) - (let ((_%hd153688153781%_ + (gx#stx-e _%hd152795152883%_)))) + (let ((_%hd152798152891%_ (let () (declare (not safe)) - (##car _%e153689153778%_))) - (_%tl153687153783%_ + (##car _%e152799152888%_))) + (_%tl152797152893%_ (let () (declare (not safe)) - (##cdr _%e153689153778%_)))) + (##cdr _%e152799152888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153688153781%_)) - (let ((_%e153692153786%_ + (gx#stx-pair? _%hd152798152891%_)) + (let ((_%e152802152896%_ (let () (declare (not safe)) - (gx#stx-e _%hd153688153781%_)))) - (let ((_%hd153691153789%_ + (gx#stx-e _%hd152798152891%_)))) + (let ((_%hd152801152899%_ (let () (declare (not safe)) - (##car _%e153692153786%_))) - (_%tl153690153791%_ + (##car _%e152802152896%_))) + (_%tl152800152901%_ (let () (declare (not safe)) - (##cdr _%e153692153786%_)))) + (##cdr _%e152802152896%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153691153789%_)) - (let ((_%e153695153794%_ + (gx#stx-pair? _%hd152801152899%_)) + (let ((_%e152805152904%_ (let () (declare (not safe)) (gx#stx-e - _%hd153691153789%_)))) - (let ((_%hd153694153797%_ + _%hd152801152899%_)))) + (let ((_%hd152804152907%_ (let () (declare (not safe)) - (##car _%e153695153794%_))) - (_%tl153693153799%_ + (##car _%e152805152904%_))) + (_%tl152803152909%_ (let () (declare (not safe)) - (##cdr _%e153695153794%_)))) + (##cdr _%e152805152904%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153693153799%_)) + _%tl152803152909%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153690153791%_)) - (let ((_%e153698153802%_ + _%tl152800152901%_)) + (let ((_%e152808152912%_ (let () (declare (not safe)) (gx#stx-e - _%tl153690153791%_)))) - (let ((_%hd153697153805%_ + _%tl152800152901%_)))) + (let ((_%hd152807152915%_ (let () (declare (not safe)) - (##car _%e153698153802%_))) - (_%tl153696153807%_ + (##car _%e152808152912%_))) + (_%tl152806152917%_ (let () (declare (not safe)) - (##cdr _%e153698153802%_)))) + (##cdr _%e152808152912%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153696153807%_)) + _%tl152806152917%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _%tl153687153783%_)) + (gx#stx-null? _%tl152797152893%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153684153775%_)) - (let ((_%e153701153810%_ + (gx#stx-pair? _%tl152794152885%_)) + (let ((_%e152811152920%_ (let () (declare (not safe)) - (gx#stx-e _%tl153684153775%_)))) - (let ((_%hd153700153813%_ + (gx#stx-e _%tl152794152885%_)))) + (let ((_%hd152810152923%_ (let () (declare (not safe)) - (##car _%e153701153810%_))) - (_%tl153699153815%_ + (##car _%e152811152920%_))) + (_%tl152809152925%_ (let () (declare (not safe)) - (##cdr _%e153701153810%_)))) + (##cdr _%e152811152920%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153699153815%_)) + (gx#stx-null? _%tl152809152925%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153678153759%_)) + (gx#stx-null? _%tl152788152869%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153669153735%_)) + (gx#stx-null? _%tl152779152845%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153666153727%_)) - (let ((_%e153704153818%_ + _%tl152776152837%_)) + (let ((_%e152814152928%_ (let () (declare (not safe)) (gx#stx-e - _%tl153666153727%_)))) - (let ((_%hd153703153821%_ + _%tl152776152837%_)))) + (let ((_%hd152813152931%_ (let () (declare (not safe)) - (##car _%e153704153818%_))) - (_%tl153702153823%_ + (##car _%e152814152928%_))) + (_%tl152812152933%_ (let () (declare (not safe)) - (##cdr _%e153704153818%_)))) + (##cdr _%e152814152928%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153702153823%_)) - ((lambda (_%L153826%_ + _%tl152812152933%_)) + ((lambda (_%L152936%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L153827%_ - _%L153828%_ - _%L153829%_ - _%L153830%_) - (let* ((_%get-kws-id153870%_ - (let ((__tmp166227 + _%L152937%_ + _%L152938%_ + _%L152939%_ + _%L152940%_) + (let* ((_%get-kws-id152980%_ + (let ((__tmp165284 (let () (declare (not safe)) - (gx#stx-e _%L153640%_))) - (__tmp166225 - (let ((__tmp166226 - (let () - (declare (not safe)) - (gx#stx-e _%L153830%_)))) - (declare (not safe)) - (_%kw-lambda-dispatch-name153492%_ - __tmp166226 - '"@")))) + (gx#stx-e _%L152750%_))) + (__tmp165283 + (_%kw-lambda-dispatch-name152602%_ + (let () + (declare (not safe)) + (gx#stx-e _%L152940%_)) + '"@"))) (declare (not safe)) - (make-symbol__1 __tmp166227 '"__" __tmp166225))) - (_%get-kws-id153872%_ - (let ((__tmp166228 + (make-symbol__1 __tmp165284 '"__" __tmp165283))) + (_%get-kws-id152982%_ + (let ((__tmp165285 (let () (declare (not safe)) - (gx#stx-source _%stx153488%_)))) + (gx#stx-source _%stx152598%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id153870%_ - __tmp166228))) - (_%main-id153874%_ - (let ((__tmp166231 + _%get-kws-id152980%_ + __tmp165285))) + (_%main-id152984%_ + (let ((__tmp165287 (let () (declare (not safe)) - (gx#stx-e _%L153640%_))) - (__tmp166229 - (let ((__tmp166230 - (let () - (declare (not safe)) - (gx#stx-e _%L153829%_)))) - (declare (not safe)) - (_%kw-lambda-dispatch-name153492%_ - __tmp166230 - '"%")))) + (gx#stx-e _%L152750%_))) + (__tmp165286 + (_%kw-lambda-dispatch-name152602%_ + (let () + (declare (not safe)) + (gx#stx-e _%L152939%_)) + '"%"))) (declare (not safe)) - (make-symbol__1 __tmp166231 '"__" __tmp166229))) - (_%main-id153876%_ - (let ((__tmp166232 + (make-symbol__1 __tmp165287 '"__" __tmp165286))) + (_%main-id152986%_ + (let ((__tmp165288 (let () (declare (not safe)) - (gx#stx-source _%stx153488%_)))) + (gx#stx-source _%stx152598%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id153874%_ - __tmp166232))) - (_%_153878%_ + _%main-id152984%_ + __tmp165288))) + (_%_152988%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%get-kws-id153872%_))) - (_%_153880%_ + (gx#core-bind-runtime!__0 _%get-kws-id152982%_))) + (_%_152990%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%main-id153876%_))) - (_%new-kw-dispatch153882%_ + (gx#core-bind-runtime!__0 _%main-id152986%_))) + (_%new-kw-dispatch152992%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L153830%_ - _%get-kws-id153872%_ - _%L153826%_))) - (_%new-get-kws153884%_ + _%L152940%_ + _%get-kws-id152982%_ + _%L152936%_))) + (_%new-get-kws152994%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L153829%_ - _%main-id153876%_ - _%L153827%_)))) - (let ((__tmp166235 + _%L152939%_ + _%main-id152986%_ + _%L152937%_)))) + (let ((__tmp165291 (let () (declare (not safe)) - (gxc#identifier-symbol _%L153640%_))) - (__tmp166234 + (gxc#identifier-symbol _%L152750%_))) + (__tmp165290 (let () (declare (not safe)) - (gxc#identifier-symbol _%get-kws-id153872%_))) - (__tmp166233 + (gxc#identifier-symbol _%get-kws-id152982%_))) + (__tmp165289 (let () (declare (not safe)) - (gxc#identifier-symbol _%main-id153876%_)))) + (gxc#identifier-symbol _%main-id152986%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp166235 + __tmp165291 '" => " - __tmp166234 + __tmp165290 '" => " - __tmp166233)) - (let ((__tmp166236 + __tmp165289)) + (let ((__tmp165292 (cons '%#begin - (cons (let ((__tmp166237 - (let ((__tmp166238 - (cons '%#define-values - (cons (cons _%main-id153876%_ + (cons (gxc#lift-top-lambda-define-values% + _%self152597%_ + (let ((__tmp165293 + (cons '%#define-values + (cons (cons _%main-id152986%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _%L153828%_ '()))))) + '()) + (cons _%L152938%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp166238 - _%stx153488%_)))) - (declare (not safe)) - (gxc#lift-top-lambda-define-values% - _%self153487%_ - __tmp166237)) - (cons (let ((__tmp166239 + (declare (not safe)) + (gxc#xform-wrap-source + __tmp165293 + _%stx152598%_))) + (cons (let ((__tmp165294 (cons '%#define-values - (cons (cons _%get-kws-id153872%_ + (cons (cons _%get-kws-id152982%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-get-kws153884%_ '()))))) + (cons _%new-get-kws152994%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp166239 - _%stx153488%_)) - (cons (let ((__tmp166240 + __tmp165294 + _%stx152598%_)) + (cons (let ((__tmp165295 (cons '%#define-values - (cons (cons _%L153640%_ + (cons (cons _%L152750%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-kw-dispatch153882%_ '()))))) + (cons _%new-kw-dispatch152992%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp166240 - _%stx153488%_)) + __tmp165295 + _%stx152598%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp166236 _%stx153488%_)))) - _%hd153703153821%_ - _%hd153700153813%_ - _%hd153697153805%_ - _%hd153694153797%_ - _%hd153676153749%_) - (let () - (declare (not safe)) - (_%g153656153709%_ _%g153657153712%_))))) + (gxc#xform-wrap-source __tmp165292 _%stx152598%_)))) + _%hd152813152931%_ + _%hd152810152923%_ + _%hd152807152915%_ + _%hd152804152907%_ + _%hd152786152859%_) + (_%g152766152819%_ _%g152767152822%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g153656153709%_ - _%g153657153712%_))) - (let () - (declare (not safe)) - (_%g153656153709%_ - _%g153657153712%_))) - (let () - (declare (not safe)) - (_%g153656153709%_ - _%g153657153712%_))) - (let () - (declare (not safe)) - (_%g153656153709%_ _%g153657153712%_))))) - (let () - (declare (not safe)) - (_%g153656153709%_ _%g153657153712%_))) - (let () - (declare (not safe)) - (_%g153656153709%_ _%g153657153712%_))) - (let () - (declare (not safe)) - (_%g153656153709%_ _%g153657153712%_))))) + (_%g152766152819%_ + _%g152767152822%_)) + (_%g152766152819%_ + _%g152767152822%_)) + (_%g152766152819%_ _%g152767152822%_)) + (_%g152766152819%_ _%g152767152822%_)))) + (_%g152766152819%_ _%g152767152822%_)) + (_%g152766152819%_ _%g152767152822%_)) + (_%g152766152819%_ _%g152767152822%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g153656153709%_ - _%g153657153712%_))) - (let () - (declare (not safe)) - (_%g153656153709%_ - _%g153657153712%_))))) - (let () - (declare (not safe)) - (_%g153656153709%_ - _%g153657153712%_))))) - (let () - (declare (not safe)) - (_%g153656153709%_ _%g153657153712%_))))) - (let () - (declare (not safe)) - (_%g153656153709%_ _%g153657153712%_))))) - (let () - (declare (not safe)) - (_%g153656153709%_ _%g153657153712%_))))) + (_%g152766152819%_ + _%g152767152822%_)) + (_%g152766152819%_ + _%g152767152822%_)))) + (_%g152766152819%_ _%g152767152822%_)))) + (_%g152766152819%_ _%g152767152822%_)))) + (_%g152766152819%_ _%g152767152822%_)))) + (_%g152766152819%_ _%g152767152822%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g153656153709%_ - _%g153657153712%_))))) - (let () - (declare (not safe)) - (_%g153656153709%_ - _%g153657153712%_))) - (let () - (declare (not safe)) - (_%g153656153709%_ _%g153657153712%_))))) - (let () - (declare (not safe)) - (_%g153656153709%_ _%g153657153712%_))))) - (let () - (declare (not safe)) - (_%g153656153709%_ _%g153657153712%_))))) + (_%g152766152819%_ + _%g152767152822%_)))) + (_%g152766152819%_ _%g152767152822%_)) + (_%g152766152819%_ _%g152767152822%_)))) + (_%g152766152819%_ _%g152767152822%_)))) + (_%g152766152819%_ _%g152767152822%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g153656153709%_ - _%g153657153712%_))))) - (let () - (declare (not safe)) - (_%g153656153709%_ - _%g153657153712%_))))) - (let () - (declare (not safe)) - (_%g153656153709%_ _%g153657153712%_)))))) - (declare (not safe)) - (_%g153655153887%_ _%L153639%_)))) - (_%__kont165477165478%_ - (lambda (_%L153585%_ _%L153586%_) - (let ((__tmp166241 + (_%g152766152819%_ + _%g152767152822%_)))) + (_%g152766152819%_ + _%g152767152822%_)))) + (_%g152766152819%_ _%g152767152822%_))))) + (_%g152765152997%_ _%L152749%_)))) + (_%__kont164578164579%_ + (lambda (_%L152695%_ _%L152696%_) + (let ((__tmp165296 (cons '%#define-values - (cons _%L153586%_ + (cons _%L152696%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self153487%_ - _%L153585%_)) + _%self152597%_ + _%L152695%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp166241 _%stx153488%_))))) - (let* ((_%__match165562165563%_ - (lambda (_%e153531153607%_ - _%hd153530153610%_ - _%tl153529153612%_ - _%e153534153615%_ - _%hd153533153618%_ - _%tl153532153620%_ - _%e153537153623%_ - _%hd153536153626%_ - _%tl153535153628%_ - _%e153540153631%_ - _%hd153539153634%_ - _%tl153538153636%_) - (let ((_%L153639%_ _%hd153539153634%_) - (_%L153640%_ _%hd153536153626%_)) + (gxc#xform-wrap-source __tmp165296 _%stx152598%_))))) + (let* ((_%__match164663164664%_ + (lambda (_%e152641152717%_ + _%hd152640152720%_ + _%tl152639152722%_ + _%e152644152725%_ + _%hd152643152728%_ + _%tl152642152730%_ + _%e152647152733%_ + _%hd152646152736%_ + _%tl152645152738%_ + _%e152650152741%_ + _%hd152649152744%_ + _%tl152648152746%_) + (let ((_%L152749%_ _%hd152649152744%_) + (_%L152750%_ _%hd152646152736%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L153640%_)) - (let () - (declare (not safe)) - (gxc#kw-lambda-expr? _%L153639%_))) - (_%__kont165475165476%_ _%L153639%_ _%L153640%_) - (_%__kont165477165478%_ - _%hd153539153634%_ - _%hd153533153618%_))))) - (_%__match165534165535%_ - (lambda (_%e153517153895%_ - _%hd153516153898%_ - _%tl153515153900%_ - _%e153520153903%_ - _%hd153519153906%_ - _%tl153518153908%_ - _%e153523153911%_ - _%hd153522153914%_ - _%tl153521153916%_ - _%e153526153919%_ - _%hd153525153922%_ - _%tl153524153924%_) - (let ((_%L153927%_ _%hd153525153922%_) - (_%L153928%_ _%hd153522153914%_)) + (gx#identifier? _%L152750%_)) + (gxc#kw-lambda-expr? _%L152749%_)) + (_%__kont164576164577%_ _%L152749%_ _%L152750%_) + (_%__kont164578164579%_ + _%hd152649152744%_ + _%hd152643152728%_))))) + (_%__match164635164636%_ + (lambda (_%e152627153005%_ + _%hd152626153008%_ + _%tl152625153010%_ + _%e152630153013%_ + _%hd152629153016%_ + _%tl152628153018%_ + _%e152633153021%_ + _%hd152632153024%_ + _%tl152631153026%_ + _%e152636153029%_ + _%hd152635153032%_ + _%tl152634153034%_) + (let ((_%L153037%_ _%hd152635153032%_) + (_%L153038%_ _%hd152632153024%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L153928%_)) - (let () - (declare (not safe)) - (gxc#opt-lambda-expr? _%L153927%_))) - (_%__kont165473165474%_ _%L153927%_ _%L153928%_) - (_%__match165562165563%_ - _%e153517153895%_ - _%hd153516153898%_ - _%tl153515153900%_ - _%e153520153903%_ - _%hd153519153906%_ - _%tl153518153908%_ - _%e153523153911%_ - _%hd153522153914%_ - _%tl153521153916%_ - _%e153526153919%_ - _%hd153525153922%_ - _%tl153524153924%_))))) - (_%__match165506165507%_ - (lambda (_%e153503154078%_ - _%hd153502154081%_ - _%tl153501154083%_ - _%e153506154086%_ - _%hd153505154089%_ - _%tl153504154091%_ - _%e153509154094%_ - _%hd153508154097%_ - _%tl153507154099%_ - _%e153512154102%_ - _%hd153511154105%_ - _%tl153510154107%_) - (let ((_%L154110%_ _%hd153511154105%_) - (_%L154111%_ _%hd153508154097%_)) + (gx#identifier? _%L153038%_)) + (gxc#opt-lambda-expr? _%L153037%_)) + (_%__kont164574164575%_ _%L153037%_ _%L153038%_) + (_%__match164663164664%_ + _%e152627153005%_ + _%hd152626153008%_ + _%tl152625153010%_ + _%e152630153013%_ + _%hd152629153016%_ + _%tl152628153018%_ + _%e152633153021%_ + _%hd152632153024%_ + _%tl152631153026%_ + _%e152636153029%_ + _%hd152635153032%_ + _%tl152634153034%_))))) + (_%__match164607164608%_ + (lambda (_%e152613153188%_ + _%hd152612153191%_ + _%tl152611153193%_ + _%e152616153196%_ + _%hd152615153199%_ + _%tl152614153201%_ + _%e152619153204%_ + _%hd152618153207%_ + _%tl152617153209%_ + _%e152622153212%_ + _%hd152621153215%_ + _%tl152620153217%_) + (let ((_%L153220%_ _%hd152621153215%_) + (_%L153221%_ _%hd152618153207%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L154111%_)) - (let () - (declare (not safe)) - (gxc#case-lambda-expr? _%L154110%_))) - (_%__kont165471165472%_ _%L154110%_ _%L154111%_) - (_%__match165534165535%_ - _%e153503154078%_ - _%hd153502154081%_ - _%tl153501154083%_ - _%e153506154086%_ - _%hd153505154089%_ - _%tl153504154091%_ - _%e153509154094%_ - _%hd153508154097%_ - _%tl153507154099%_ - _%e153512154102%_ - _%hd153511154105%_ - _%tl153510154107%_)))))) + (gx#identifier? _%L153221%_)) + (gxc#case-lambda-expr? _%L153220%_)) + (_%__kont164572164573%_ _%L153220%_ _%L153221%_) + (_%__match164635164636%_ + _%e152613153188%_ + _%hd152612153191%_ + _%tl152611153193%_ + _%e152616153196%_ + _%hd152615153199%_ + _%tl152614153201%_ + _%e152619153204%_ + _%hd152618153207%_ + _%tl152617153209%_ + _%e152622153212%_ + _%hd152621153215%_ + _%tl152620153217%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx165469165470%_)) - (let ((_%e153503154078%_ + (gx#stx-pair? _%__stx164570164571%_)) + (let ((_%e152613153188%_ (let () (declare (not safe)) - (gx#stx-e _%__stx165469165470%_)))) - (let ((_%tl153501154083%_ + (gx#stx-e _%__stx164570164571%_)))) + (let ((_%tl152611153193%_ (let () (declare (not safe)) - (##cdr _%e153503154078%_))) - (_%hd153502154081%_ + (##cdr _%e152613153188%_))) + (_%hd152612153191%_ (let () (declare (not safe)) - (##car _%e153503154078%_)))) + (##car _%e152613153188%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153501154083%_)) - (let ((_%e153506154086%_ + (gx#stx-pair? _%tl152611153193%_)) + (let ((_%e152616153196%_ (let () (declare (not safe)) - (gx#stx-e _%tl153501154083%_)))) - (let ((_%tl153504154091%_ + (gx#stx-e _%tl152611153193%_)))) + (let ((_%tl152614153201%_ (let () (declare (not safe)) - (##cdr _%e153506154086%_))) - (_%hd153505154089%_ + (##cdr _%e152616153196%_))) + (_%hd152615153199%_ (let () (declare (not safe)) - (##car _%e153506154086%_)))) + (##car _%e152616153196%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153505154089%_)) - (let ((_%e153509154094%_ + (gx#stx-pair? _%hd152615153199%_)) + (let ((_%e152619153204%_ (let () (declare (not safe)) - (gx#stx-e _%hd153505154089%_)))) - (let ((_%tl153507154099%_ + (gx#stx-e _%hd152615153199%_)))) + (let ((_%tl152617153209%_ (let () (declare (not safe)) - (##cdr _%e153509154094%_))) - (_%hd153508154097%_ + (##cdr _%e152619153204%_))) + (_%hd152618153207%_ (let () (declare (not safe)) - (##car _%e153509154094%_)))) + (##car _%e152619153204%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153507154099%_)) + _%tl152617153209%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153504154091%_)) - (let ((_%e153512154102%_ + _%tl152614153201%_)) + (let ((_%e152622153212%_ (let () (declare (not safe)) (gx#stx-e - _%tl153504154091%_)))) - (let ((_%tl153510154107%_ + _%tl152614153201%_)))) + (let ((_%tl152620153217%_ (let () (declare (not safe)) - (##cdr _%e153512154102%_))) - (_%hd153511154105%_ + (##cdr _%e152622153212%_))) + (_%hd152621153215%_ (let () (declare (not safe)) - (##car _%e153512154102%_)))) + (##car _%e152622153212%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153510154107%_)) - (_%__match165506165507%_ - _%e153503154078%_ - _%hd153502154081%_ - _%tl153501154083%_ - _%e153506154086%_ - _%hd153505154089%_ - _%tl153504154091%_ - _%e153509154094%_ - _%hd153508154097%_ - _%tl153507154099%_ - _%e153512154102%_ - _%hd153511154105%_ - _%tl153510154107%_) + _%tl152620153217%_)) + (_%__match164607164608%_ + _%e152613153188%_ + _%hd152612153191%_ + _%tl152611153193%_ + _%e152616153196%_ + _%hd152615153199%_ + _%tl152614153201%_ + _%e152619153204%_ + _%hd152618153207%_ + _%tl152617153209%_ + _%e152622153212%_ + _%hd152621153215%_ + _%tl152620153217%_) (let () (declare (not safe)) - (_%g153497153556%_))))) + (_%g152607152666%_))))) (let () (declare (not safe)) - (_%g153497153556%_))) + (_%g152607152666%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153504154091%_)) - (let ((_%e153551153577%_ + _%tl152614153201%_)) + (let ((_%e152661152687%_ (let () (declare (not safe)) (gx#stx-e - _%tl153504154091%_)))) - (let ((_%tl153549153582%_ + _%tl152614153201%_)))) + (let ((_%tl152659152692%_ (let () (declare (not safe)) - (##cdr _%e153551153577%_))) - (_%hd153550153580%_ + (##cdr _%e152661152687%_))) + (_%hd152660152690%_ (let () (declare (not safe)) - (##car _%e153551153577%_)))) + (##car _%e152661152687%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153549153582%_)) - (_%__kont165477165478%_ - _%hd153550153580%_ - _%hd153505154089%_) + _%tl152659152692%_)) + (_%__kont164578164579%_ + _%hd152660152690%_ + _%hd152615153199%_) (let () (declare (not safe)) - (_%g153497153556%_))))) + (_%g152607152666%_))))) (let () (declare (not safe)) - (_%g153497153556%_)))))) + (_%g152607152666%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153504154091%_)) - (let ((_%e153551153577%_ + (gx#stx-pair? _%tl152614153201%_)) + (let ((_%e152661152687%_ (let () (declare (not safe)) (gx#stx-e - _%tl153504154091%_)))) - (let ((_%tl153549153582%_ + _%tl152614153201%_)))) + (let ((_%tl152659152692%_ (let () (declare (not safe)) - (##cdr _%e153551153577%_))) - (_%hd153550153580%_ + (##cdr _%e152661152687%_))) + (_%hd152660152690%_ (let () (declare (not safe)) - (##car _%e153551153577%_)))) + (##car _%e152661152687%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153549153582%_)) - (_%__kont165477165478%_ - _%hd153550153580%_ - _%hd153505154089%_) + _%tl152659152692%_)) + (_%__kont164578164579%_ + _%hd152660152690%_ + _%hd152615153199%_) (let () (declare (not safe)) - (_%g153497153556%_))))) + (_%g152607152666%_))))) (let () (declare (not safe)) - (_%g153497153556%_)))))) + (_%g152607152666%_)))))) (let () (declare (not safe)) - (_%g153497153556%_))))) - (let () (declare (not safe)) (_%g153497153556%_))))))))) + (_%g152607152666%_))))) + (let () (declare (not safe)) (_%g152607152666%_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_%self152414%_ _%stx152415%_) - (letrec* ((_%bind-e__163414163415%_ - (lambda (_%id153471%_ _%expr153472%_ _%compile?153473%_) - (cons (cons _%id153471%_ '()) - (cons (if _%compile?153473%_ + (lambda (_%self151524%_ _%stx151525%_) + (letrec* ((_%bind-e__162515162516%_ + (lambda (_%id152581%_ _%expr152582%_ _%compile?152583%_) + (cons (cons _%id152581%_ '()) + (cons (if _%compile?152583%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152414%_ - _%expr153472%_)) - _%expr153472%_) + _%self151524%_ + _%expr152582%_)) + _%expr152582%_) '())))) - (_%bind-e__0__163416163417%_ - (lambda (_%id153478%_ _%expr153479%_) - (let ((_%compile?153481%_ '#t)) - (declare (not safe)) - (_%bind-e__163414163415%_ - _%id153478%_ - _%expr153479%_ - _%compile?153481%_)))) - (_%bind-e152417%_ - (lambda _g166243_ - (let ((_g166242_ + (_%bind-e__0__162517162518%_ + (lambda (_%id152588%_ _%expr152589%_) + (let ((_%compile?152591%_ '#t)) + (_%bind-e__162515162516%_ + _%id152588%_ + _%expr152589%_ + _%compile?152591%_)))) + (_%bind-e151527%_ + (lambda _g165298_ + (let ((_g165297_ (let () (declare (not safe)) - (##length _g166243_)))) - (cond ((let () (declare (not safe)) (##fx= _g166242_ 2)) - (apply (lambda (_%id153478%_ _%expr153479%_) - (let () - (declare (not safe)) - (_%bind-e__0__163416163417%_ - _%id153478%_ - _%expr153479%_))) - _g166243_)) - ((let () (declare (not safe)) (##fx= _g166242_ 3)) - (apply (lambda (_%id153483%_ - _%expr153484%_ - _%compile?153485%_) - (let () - (declare (not safe)) - (_%bind-e__163414163415%_ - _%id153483%_ - _%expr153484%_ - _%compile?153485%_))) - _g166243_)) + (##length _g165298_)))) + (cond ((let () (declare (not safe)) (##fx= _g165297_ 2)) + (apply _%bind-e__0__162517162518%_ _g165298_)) + ((let () (declare (not safe)) (##fx= _g165297_ 3)) + (apply _%bind-e__162515162516%_ _g165298_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g166243_)))))) - (_%compile-bindings152418%_ - (lambda (_%bindings153053%_) - (let _%lp153055%_ ((_%rest153057%_ _%bindings153053%_) - (_%lift1153058%_ '()) - (_%lift2153059%_ '()) - (_%bind153060%_ '())) - (let* ((_%rest153061153069%_ _%rest153057%_) - (_%else153063153077%_ + _g165298_)))))) + (_%compile-bindings151528%_ + (lambda (_%bindings152163%_) + (let _%lp152165%_ ((_%rest152167%_ _%bindings152163%_) + (_%lift1152168%_ '()) + (_%lift2152169%_ '()) + (_%bind152170%_ '())) + (let* ((_%rest152171152179%_ _%rest152167%_) + (_%else152173152187%_ (lambda () - (values (reverse _%lift1153058%_) - (reverse _%lift2153059%_) - (reverse _%bind153060%_)))) - (_%K153065153458%_ - (lambda (_%rest153080%_ _%hd153081%_) - (let* ((_%__stx165605165606%_ _%hd153081%_) - (_%g153085153121%_ + (values (reverse _%lift1152168%_) + (reverse _%lift2152169%_) + (reverse _%bind152170%_)))) + (_%K152175152568%_ + (lambda (_%rest152190%_ _%hd152191%_) + (let* ((_%__stx164706164707%_ _%hd152191%_) + (_%g152195152231%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx165605165606%_))))) - (let ((_%__kont165607165608%_ - (lambda (_%L153364%_ _%L153365%_) - (let* ((_%__stx165585165586%_ - _%L153364%_) - (_%g153380153394%_ + _%__stx164706164707%_))))) + (let ((_%__kont164708164709%_ + (lambda (_%L152474%_ _%L152475%_) + (let* ((_%__stx164686164687%_ + _%L152474%_) + (_%g152490152504%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx165585165586%_))))) - (let ((_%__kont165587165588%_ - (lambda (_%L153443%_) - (let ((__tmp166244 - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (_%bind-e__163414163415%_ - _%L153365%_ - _%L153364%_ - '#f)) - _%bind153060%_))) - (declare (not safe)) - (_%lp153055%_ - _%rest153080%_ - _%lift1153058%_ - _%lift2153059%_ - __tmp166244)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165589165590%_ - (lambda (_%L153407%_) - (let ((_g166245_ - (let () - (declare + _%__stx164686164687%_))))) + (let ((_%__kont164688164689%_ + (lambda (_%L152553%_) + (_%lp152165%_ + _%rest152190%_ + _%lift1152168%_ + _%lift2152169%_ + (cons (_%bind-e__162515162516%_ + _%L152475%_ + _%L152474%_ + '#f) + _%bind152170%_)))) + (_%__kont164690164691%_ + (lambda (_%L152517%_) + (let ((_g165299_ + (gxc#lift-case-lambda-clauses__% + _%stx151525%_ + _%L152475%_ + _%L152517%_ + '#t))) + (begin + (let ((_g165300_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gxc#lift-case-lambda-clauses__% - _%stx152415%_ - _%L153365%_ - _%L153407%_ - '#t)))) - (begin - (let ((_g166246_ (let () (declare (not safe)) - (if (##values? _g166245_) - (##vector-length _g166245_) + (if (##values? _g165299_) + (##vector-length _g165299_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g166246_ 3))) - (error "Context expects 3 values" _g166246_))) - (let ((_%ids153417%_ + (##fx= _g165300_ 3))) + (error "Context expects 3 values" _g165300_))) + (let ((_%ids152527%_ (let () (declare (not safe)) - (##vector-ref _g166245_ 0))) - (_%impls153418%_ + (##vector-ref _g165299_ 0))) + (_%impls152528%_ (let () (declare (not safe)) - (##vector-ref _g166245_ 1))) - (_%clauses153419%_ + (##vector-ref _g165299_ 1))) + (_%clauses152529%_ (let () (declare (not safe)) - (##vector-ref _g166245_ 2)))) - (let* ((_%_153421%_ - (for-each gx#core-bind-runtime! _%ids153417%_)) - (_%xbind153423%_ - (map _%bind-e152417%_ - _%ids153417%_ - _%impls153418%_)) - (_%expr*153425%_ - (let ((__tmp166248 - (cons '%#case-lambda _%clauses153419%_)) - (__tmp166247 + (##vector-ref _g165299_ 2)))) + (let* ((_%_152531%_ + (for-each gx#core-bind-runtime! _%ids152527%_)) + (_%xbind152533%_ + (map _%bind-e151527%_ + _%ids152527%_ + _%impls152528%_)) + (_%expr*152535%_ + (let ((__tmp165302 + (cons '%#case-lambda _%clauses152529%_)) + (__tmp165301 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -17708,1551 +16991,1412 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp166248 - __tmp166247))) - (_%bind*153427%_ - (let () - (declare (not safe)) - (_%bind-e__163414163415%_ - _%L153365%_ - _%expr*153425%_ - '#f)))) - (let ((__tmp166250 + __tmp165302 + __tmp165301))) + (_%bind*152537%_ + (_%bind-e__162515162516%_ + _%L152475%_ + _%expr*152535%_ + '#f))) + (let ((__tmp165304 (let () (declare (not safe)) - (gxc#identifier-symbol _%L153365%_))) - (__tmp166249 - (map gxc#identifier-symbol _%ids153417%_))) + (gxc#identifier-symbol _%L152475%_))) + (__tmp165303 + (map gxc#identifier-symbol _%ids152527%_))) (declare (not safe)) (gxc#verbose - '"lift case-lambda clauses " - __tmp166250 - '" => " - __tmp166249)) - (let ((__tmp166252 - (let () - (declare (not safe)) - (__foldl1 - cons - _%lift2153059%_ - _%xbind153423%_))) - (__tmp166251 - (cons _%bind*153427%_ _%bind153060%_))) - (declare (not safe)) - (_%lp153055%_ - _%rest153080%_ - _%lift1153058%_ - __tmp166252 - __tmp166251))))))))) + '"lift case-lambda clauses " + __tmp165304 + '" => " + __tmp165303)) + (_%lp152165%_ + _%rest152190%_ + _%lift1152168%_ + (let () + (declare (not safe)) + (__foldl1 cons _%lift2152169%_ _%xbind152533%_)) + (cons _%bind*152537%_ _%bind152170%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match165596165597%_ - (lambda (_%e153385153435%_ - _%hd153384153438%_ - _%tl153383153440%_) - (let ((_%L153443%_ - _%tl153383153440%_)) + (let ((_%__match164697164698%_ + (lambda (_%e152495152545%_ + _%hd152494152548%_ + _%tl152493152550%_) + (let ((_%L152553%_ + _%tl152493152550%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L153443%_)) - (_%__kont165587165588%_ _%L153443%_) - (_%__kont165589165590%_ _%tl153383153440%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L152553%_)) + (_%__kont164688164689%_ _%L152553%_) + (_%__kont164690164691%_ _%tl152493152550%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx165585165586%_)) - (let ((_%e153385153435%_ + _%__stx164686164687%_)) + (let ((_%e152495152545%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx165585165586%_)))) - (let ((_%tl153383153440%_ - (let () (declare (not safe)) (##cdr _%e153385153435%_))) - (_%hd153384153438%_ + (gx#stx-e _%__stx164686164687%_)))) + (let ((_%tl152493152550%_ + (let () (declare (not safe)) (##cdr _%e152495152545%_))) + (_%hd152494152548%_ (let () (declare (not safe)) - (##car _%e153385153435%_)))) - (_%__match165596165597%_ - _%e153385153435%_ - _%hd153384153438%_ - _%tl153383153440%_))) - (let () (declare (not safe)) (_%g153380153394%_)))))))) + (##car _%e152495152545%_)))) + (_%__match164697164698%_ + _%e152495152545%_ + _%hd152494152548%_ + _%tl152493152550%_))) + (let () (declare (not safe)) (_%g152490152504%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165609165610%_ - (lambda (_%L153191%_ _%L153192%_) - (let* ((_%g153206153236%_ - (lambda (_%g153207153233%_) + (_%__kont164710164711%_ + (lambda (_%L152301%_ _%L152302%_) + (let* ((_%g152316152346%_ + (lambda (_%g152317152343%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153207153233%_)))) - (_%g153205153332%_ - (lambda (_%g153207153239%_) + _%g152317152343%_)))) + (_%g152315152442%_ + (lambda (_%g152317152349%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g153207153239%_)) - (let ((_%e153213153241%_ + _%g152317152349%_)) + (let ((_%e152323152351%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g153207153239%_)))) - (let ((_%hd153212153244%_ + (gx#stx-e _%g152317152349%_)))) + (let ((_%hd152322152354%_ (let () (declare (not safe)) - (##car _%e153213153241%_))) - (_%tl153211153246%_ + (##car _%e152323152351%_))) + (_%tl152321152356%_ (let () (declare (not safe)) - (##cdr _%e153213153241%_)))) + (##cdr _%e152323152351%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153211153246%_)) - (let ((_%e153216153249%_ + (gx#stx-pair? _%tl152321152356%_)) + (let ((_%e152326152359%_ (let () (declare (not safe)) - (gx#stx-e _%tl153211153246%_)))) - (let ((_%hd153215153252%_ + (gx#stx-e _%tl152321152356%_)))) + (let ((_%hd152325152362%_ (let () (declare (not safe)) - (##car _%e153216153249%_))) - (_%tl153214153254%_ + (##car _%e152326152359%_))) + (_%tl152324152364%_ (let () (declare (not safe)) - (##cdr _%e153216153249%_)))) + (##cdr _%e152326152359%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153215153252%_)) - (let ((_%e153219153257%_ + (gx#stx-pair? _%hd152325152362%_)) + (let ((_%e152329152367%_ (let () (declare (not safe)) - (gx#stx-e _%hd153215153252%_)))) - (let ((_%hd153218153260%_ + (gx#stx-e _%hd152325152362%_)))) + (let ((_%hd152328152370%_ (let () (declare (not safe)) - (##car _%e153219153257%_))) - (_%tl153217153262%_ + (##car _%e152329152367%_))) + (_%tl152327152372%_ (let () (declare (not safe)) - (##cdr _%e153219153257%_)))) + (##cdr _%e152329152367%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153218153260%_)) - (let ((_%e153222153265%_ + (gx#stx-pair? _%hd152328152370%_)) + (let ((_%e152332152375%_ (let () (declare (not safe)) (gx#stx-e - _%hd153218153260%_)))) - (let ((_%hd153221153268%_ + _%hd152328152370%_)))) + (let ((_%hd152331152378%_ (let () (declare (not safe)) - (##car _%e153222153265%_))) - (_%tl153220153270%_ + (##car _%e152332152375%_))) + (_%tl152330152380%_ (let () (declare (not safe)) - (##cdr _%e153222153265%_)))) + (##cdr _%e152332152375%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153221153268%_)) - (let ((_%e153225153273%_ + _%hd152331152378%_)) + (let ((_%e152335152383%_ (let () (declare (not safe)) (gx#stx-e - _%hd153221153268%_)))) - (let ((_%hd153224153276%_ + _%hd152331152378%_)))) + (let ((_%hd152334152386%_ (let () (declare (not safe)) - (##car _%e153225153273%_))) - (_%tl153223153278%_ + (##car _%e152335152383%_))) + (_%tl152333152388%_ (let () (declare (not safe)) - (##cdr _%e153225153273%_)))) + (##cdr _%e152335152383%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153223153278%_)) + _%tl152333152388%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl153220153270%_)) - (let ((_%e153228153281%_ + (gx#stx-pair? _%tl152330152380%_)) + (let ((_%e152338152391%_ (let () (declare (not safe)) - (gx#stx-e _%tl153220153270%_)))) - (let ((_%hd153227153284%_ + (gx#stx-e _%tl152330152380%_)))) + (let ((_%hd152337152394%_ (let () (declare (not safe)) - (##car _%e153228153281%_))) - (_%tl153226153286%_ + (##car _%e152338152391%_))) + (_%tl152336152396%_ (let () (declare (not safe)) - (##cdr _%e153228153281%_)))) + (##cdr _%e152338152391%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153226153286%_)) + (gx#stx-null? _%tl152336152396%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153217153262%_)) + (gx#stx-null? _%tl152327152372%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153214153254%_)) - (let ((_%e153231153289%_ + (gx#stx-pair? _%tl152324152364%_)) + (let ((_%e152341152399%_ (let () (declare (not safe)) - (gx#stx-e _%tl153214153254%_)))) - (let ((_%hd153230153292%_ + (gx#stx-e _%tl152324152364%_)))) + (let ((_%hd152340152402%_ (let () (declare (not safe)) - (##car _%e153231153289%_))) - (_%tl153229153294%_ + (##car _%e152341152399%_))) + (_%tl152339152404%_ (let () (declare (not safe)) - (##cdr _%e153231153289%_)))) + (##cdr _%e152341152399%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153229153294%_)) - ((lambda (_%L153297%_ - _%L153298%_ - _%L153299%_) - (let* ((_%lambda-id153323%_ - (let ((__tmp166254 + _%tl152339152404%_)) + ((lambda (_%L152407%_ + _%L152408%_ + _%L152409%_) + (let* ((_%lambda-id152433%_ + (let ((__tmp165306 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L153192%_))) - (__tmp166253 + (gx#stx-e _%L152302%_))) + (__tmp165305 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp166254 __tmp166253))) - (_%lambda-id153325%_ - (let ((__tmp166255 + (make-symbol__1 __tmp165306 __tmp165305))) + (_%lambda-id152435%_ + (let ((__tmp165307 (let () (declare (not safe)) - (gx#stx-source _%stx152415%_)))) + (gx#stx-source _%stx151525%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id153323%_ __tmp166255))) - (_%_153327%_ + (gx#core-quote-syntax__1 _%lambda-id152433%_ __tmp165307))) + (_%_152437%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id153325%_))) - (_%new-case-lambda-expr153329%_ + (gx#core-bind-runtime!__0 _%lambda-id152435%_))) + (_%new-case-lambda-expr152439%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L153299%_ - _%lambda-id153325%_ - _%L153297%_)))) + _%L152409%_ + _%lambda-id152435%_ + _%L152407%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp166257 + (let ((__tmp165309 (let () (declare (not safe)) (gxc#identifier-symbol - _%L153192%_))) - (__tmp166256 + _%L152302%_))) + (__tmp165308 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id153325%_)))) + _%lambda-id152435%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp166257 + __tmp165309 '" => " - __tmp166256)) - (let ((__tmp166259 - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (_%bind-e__163414163415%_ - _%L153192%_ - _%new-case-lambda-expr153329%_ - '#f)) - _%rest153080%_)) - (__tmp166258 - (cons (let () - (declare (not safe)) - (_%bind-e__0__163416163417%_ - _%lambda-id153325%_ - _%L153298%_)) - _%lift1153058%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp153055%_ - __tmp166259 - __tmp166258 - _%lift2153059%_ - _%bind153060%_)))) - _%hd153230153292%_ - _%hd153227153284%_ - _%hd153224153276%_) - (let () - (declare (not safe)) - (_%g153206153236%_ - _%g153207153239%_))))) - (let () - (declare (not safe)) - (_%g153206153236%_ _%g153207153239%_))) - (let () - (declare (not safe)) - (_%g153206153236%_ _%g153207153239%_))) - (let () - (declare (not safe)) - (_%g153206153236%_ _%g153207153239%_))))) - (let () - (declare (not safe)) - (_%g153206153236%_ _%g153207153239%_))) - (let () - (declare (not safe)) - (_%g153206153236%_ _%g153207153239%_))))) + __tmp165308)) + (_%lp152165%_ + (cons (_%bind-e__162515162516%_ + _%L152302%_ + _%new-case-lambda-expr152439%_ + '#f) + _%rest152190%_) + (cons (_%bind-e__0__162517162518%_ + _%lambda-id152435%_ + _%L152408%_) + _%lift1152168%_) + _%lift2152169%_ + _%bind152170%_))) + _%hd152340152402%_ + _%hd152337152394%_ + _%hd152334152386%_) + (_%g152316152346%_ + _%g152317152349%_)))) + (_%g152316152346%_ _%g152317152349%_)) + (_%g152316152346%_ _%g152317152349%_)) + (_%g152316152346%_ _%g152317152349%_)))) + (_%g152316152346%_ _%g152317152349%_)) + (_%g152316152346%_ _%g152317152349%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g153206153236%_ - _%g153207153239%_))))) - (let () - (declare (not safe)) - (_%g153206153236%_ - _%g153207153239%_))))) - (let () - (declare (not safe)) - (_%g153206153236%_ _%g153207153239%_))))) - (let () - (declare (not safe)) - (_%g153206153236%_ _%g153207153239%_))))) - (let () - (declare (not safe)) - (_%g153206153236%_ _%g153207153239%_)))))) + (_%g152316152346%_ + _%g152317152349%_)))) + (_%g152316152346%_ + _%g152317152349%_)))) + (_%g152316152346%_ _%g152317152349%_)))) + (_%g152316152346%_ _%g152317152349%_)))) + (_%g152316152346%_ _%g152317152349%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g153205153332%_ - _%L153191%_)))) - (_%__kont165611165612%_ - (lambda (_%L153142%_ _%L153143%_) - (let ((__tmp166260 - (cons (cons _%L153143%_ - (cons (let () + (_%g152315152442%_ + _%L152301%_)))) + (_%__kont164712164713%_ + (lambda (_%L152252%_ _%L152253%_) + (_%lp152165%_ + _%rest152190%_ + _%lift1152168%_ + _%lift2152169%_ + (cons (cons _%L152253%_ + (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gxc#compile-e__1 _%self152414%_ _%L153142%_)) - '())) - _%bind153060%_))) + (declare (not safe)) + (gxc#compile-e__1 _%self151524%_ _%L152252%_)) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp153055%_ - _%rest153080%_ - _%lift1153058%_ - _%lift2153059%_ - __tmp166260))))) - (let* ((_%__match165656165657%_ - (lambda (_%e153102153167%_ - _%hd153101153170%_ - _%tl153100153172%_ - _%e153105153175%_ - _%hd153104153178%_ - _%tl153103153180%_ - _%e153108153183%_ - _%hd153107153186%_ - _%tl153106153188%_) - (let ((_%L153191%_ - _%hd153107153186%_) - (_%L153192%_ - _%hd153104153178%_)) + _%bind152170%_))))) + (let* ((_%__match164757164758%_ + (lambda (_%e152212152277%_ + _%hd152211152280%_ + _%tl152210152282%_ + _%e152215152285%_ + _%hd152214152288%_ + _%tl152213152290%_ + _%e152218152293%_ + _%hd152217152296%_ + _%tl152216152298%_) + (let ((_%L152301%_ + _%hd152217152296%_) + (_%L152302%_ + _%hd152214152288%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L153192%_)) - (let () - (declare - (not safe)) - (gxc#opt-lambda-expr? - _%L153191%_))) - (_%__kont165609165610%_ - _%L153191%_ - _%L153192%_) - (_%__kont165611165612%_ - _%hd153107153186%_ - _%hd153101153170%_))))) - (_%__match165634165635%_ - (lambda (_%e153091153340%_ - _%hd153090153343%_ - _%tl153089153345%_ - _%e153094153348%_ - _%hd153093153351%_ - _%tl153092153353%_ - _%e153097153356%_ - _%hd153096153359%_ - _%tl153095153361%_) - (let ((_%L153364%_ - _%hd153096153359%_) - (_%L153365%_ - _%hd153093153351%_)) + _%L152302%_)) + (gxc#opt-lambda-expr? + _%L152301%_)) + (_%__kont164710164711%_ + _%L152301%_ + _%L152302%_) + (_%__kont164712164713%_ + _%hd152217152296%_ + _%hd152211152280%_))))) + (_%__match164735164736%_ + (lambda (_%e152201152450%_ + _%hd152200152453%_ + _%tl152199152455%_ + _%e152204152458%_ + _%hd152203152461%_ + _%tl152202152463%_ + _%e152207152466%_ + _%hd152206152469%_ + _%tl152205152471%_) + (let ((_%L152474%_ + _%hd152206152469%_) + (_%L152475%_ + _%hd152203152461%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L153365%_)) - (let () - (declare - (not safe)) - (gxc#case-lambda-expr? - _%L153364%_))) - (_%__kont165607165608%_ - _%L153364%_ - _%L153365%_) - (_%__match165656165657%_ - _%e153091153340%_ - _%hd153090153343%_ - _%tl153089153345%_ - _%e153094153348%_ - _%hd153093153351%_ - _%tl153092153353%_ - _%e153097153356%_ - _%hd153096153359%_ - _%tl153095153361%_)))))) + _%L152475%_)) + (gxc#case-lambda-expr? + _%L152474%_)) + (_%__kont164708164709%_ + _%L152474%_ + _%L152475%_) + (_%__match164757164758%_ + _%e152201152450%_ + _%hd152200152453%_ + _%tl152199152455%_ + _%e152204152458%_ + _%hd152203152461%_ + _%tl152202152463%_ + _%e152207152466%_ + _%hd152206152469%_ + _%tl152205152471%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx165605165606%_)) - (let ((_%e153091153340%_ + _%__stx164706164707%_)) + (let ((_%e152201152450%_ (let () (declare (not safe)) (gx#stx-e - _%__stx165605165606%_)))) - (let ((_%tl153089153345%_ + _%__stx164706164707%_)))) + (let ((_%tl152199152455%_ (let () (declare (not safe)) - (##cdr _%e153091153340%_))) - (_%hd153090153343%_ + (##cdr _%e152201152450%_))) + (_%hd152200152453%_ (let () (declare (not safe)) - (##car _%e153091153340%_)))) + (##car _%e152201152450%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153090153343%_)) - (let ((_%e153094153348%_ + _%hd152200152453%_)) + (let ((_%e152204152458%_ (let () (declare (not safe)) (gx#stx-e - _%hd153090153343%_)))) - (let ((_%tl153092153353%_ + _%hd152200152453%_)))) + (let ((_%tl152202152463%_ (let () (declare (not safe)) - (##cdr _%e153094153348%_))) - (_%hd153093153351%_ + (##cdr _%e152204152458%_))) + (_%hd152203152461%_ (let () (declare (not safe)) - (##car _%e153094153348%_)))) + (##car _%e152204152458%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153092153353%_)) + _%tl152202152463%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl153089153345%_)) - (let ((_%e153097153356%_ + (gx#stx-pair? _%tl152199152455%_)) + (let ((_%e152207152466%_ (let () (declare (not safe)) - (gx#stx-e _%tl153089153345%_)))) - (let ((_%tl153095153361%_ + (gx#stx-e _%tl152199152455%_)))) + (let ((_%tl152205152471%_ (let () (declare (not safe)) - (##cdr _%e153097153356%_))) - (_%hd153096153359%_ + (##cdr _%e152207152466%_))) + (_%hd152206152469%_ (let () (declare (not safe)) - (##car _%e153097153356%_)))) + (##car _%e152207152466%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153095153361%_)) - (_%__match165634165635%_ - _%e153091153340%_ - _%hd153090153343%_ - _%tl153089153345%_ - _%e153094153348%_ - _%hd153093153351%_ - _%tl153092153353%_ - _%e153097153356%_ - _%hd153096153359%_ - _%tl153095153361%_) + (gx#stx-null? _%tl152205152471%_)) + (_%__match164735164736%_ + _%e152201152450%_ + _%hd152200152453%_ + _%tl152199152455%_ + _%e152204152458%_ + _%hd152203152461%_ + _%tl152202152463%_ + _%e152207152466%_ + _%hd152206152469%_ + _%tl152205152471%_) (let () (declare (not safe)) - (_%g153085153121%_))))) - (let () (declare (not safe)) (_%g153085153121%_))) + (_%g152195152231%_))))) + (let () (declare (not safe)) (_%g152195152231%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153089153345%_)) - (let ((_%e153116153134%_ + (gx#stx-pair? _%tl152199152455%_)) + (let ((_%e152226152244%_ (let () (declare (not safe)) - (gx#stx-e _%tl153089153345%_)))) - (let ((_%tl153114153139%_ + (gx#stx-e _%tl152199152455%_)))) + (let ((_%tl152224152249%_ (let () (declare (not safe)) - (##cdr _%e153116153134%_))) - (_%hd153115153137%_ + (##cdr _%e152226152244%_))) + (_%hd152225152247%_ (let () (declare (not safe)) - (##car _%e153116153134%_)))) + (##car _%e152226152244%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153114153139%_)) - (_%__kont165611165612%_ - _%hd153115153137%_ - _%hd153090153343%_) + (gx#stx-null? _%tl152224152249%_)) + (_%__kont164712164713%_ + _%hd152225152247%_ + _%hd152200152453%_) (let () (declare (not safe)) - (_%g153085153121%_))))) - (let () (declare (not safe)) (_%g153085153121%_)))))) + (_%g152195152231%_))))) + (let () (declare (not safe)) (_%g152195152231%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153089153345%_)) - (let ((_%e153116153134%_ + _%tl152199152455%_)) + (let ((_%e152226152244%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl153089153345%_)))) - (let ((_%tl153114153139%_ + (gx#stx-e _%tl152199152455%_)))) + (let ((_%tl152224152249%_ (let () (declare (not safe)) - (##cdr _%e153116153134%_))) - (_%hd153115153137%_ + (##cdr _%e152226152244%_))) + (_%hd152225152247%_ (let () (declare (not safe)) - (##car _%e153116153134%_)))) + (##car _%e152226152244%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153114153139%_)) - (_%__kont165611165612%_ - _%hd153115153137%_ - _%hd153090153343%_) - (let () (declare (not safe)) (_%g153085153121%_))))) - (let () (declare (not safe)) (_%g153085153121%_)))))) + (gx#stx-null? _%tl152224152249%_)) + (_%__kont164712164713%_ + _%hd152225152247%_ + _%hd152200152453%_) + (let () (declare (not safe)) (_%g152195152231%_))))) + (let () (declare (not safe)) (_%g152195152231%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g153085153121%_))))))))) + (_%g152195152231%_))))))))) (if (let () (declare (not safe)) - (##pair? _%rest153061153069%_)) - (let ((_%hd153066153461%_ + (##pair? _%rest152171152179%_)) + (let ((_%hd152176152571%_ (let () (declare (not safe)) - (##car _%rest153061153069%_))) - (_%tl153067153463%_ + (##car _%rest152171152179%_))) + (_%tl152177152573%_ (let () (declare (not safe)) - (##cdr _%rest153061153069%_)))) - (let* ((_%hd153466%_ _%hd153066153461%_) - (_%rest153468%_ _%tl153067153463%_)) - (declare (not safe)) - (_%K153065153458%_ - _%rest153468%_ - _%hd153466%_))) - (let () - (declare (not safe)) - (_%else153063153077%_))))))) - (_%lift-kw-lambda?152419%_ - (lambda (_%bind152977%_) - (let* ((_%__stx165673165674%_ _%bind152977%_) - (_%g152980152997%_ + (##cdr _%rest152171152179%_)))) + (let* ((_%hd152576%_ _%hd152176152571%_) + (_%rest152578%_ _%tl152177152573%_)) + (_%K152175152568%_ + _%rest152578%_ + _%hd152576%_))) + (_%else152173152187%_)))))) + (_%lift-kw-lambda?151529%_ + (lambda (_%bind152087%_) + (let* ((_%__stx164774164775%_ _%bind152087%_) + (_%g152090152107%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx165673165674%_))))) - (let ((_%__kont165675165676%_ - (lambda (_%L153033%_ _%L153034%_) + _%__stx164774164775%_))))) + (let ((_%__kont164776164777%_ + (lambda (_%L152143%_ _%L152144%_) (if (let () (declare (not safe)) - (gx#identifier? _%L153034%_)) - (let () - (declare (not safe)) - (gxc#kw-lambda-expr? _%L153033%_)) + (gx#identifier? _%L152144%_)) + (gxc#kw-lambda-expr? _%L152143%_) '#f))) - (_%__kont165677165678%_ (lambda () '#f))) + (_%__kont164778164779%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx165673165674%_)) - (let ((_%e152986153009%_ + (gx#stx-pair? _%__stx164774164775%_)) + (let ((_%e152096152119%_ (let () (declare (not safe)) - (gx#stx-e _%__stx165673165674%_)))) - (let ((_%tl152984153014%_ + (gx#stx-e _%__stx164774164775%_)))) + (let ((_%tl152094152124%_ (let () (declare (not safe)) - (##cdr _%e152986153009%_))) - (_%hd152985153012%_ + (##cdr _%e152096152119%_))) + (_%hd152095152122%_ (let () (declare (not safe)) - (##car _%e152986153009%_)))) + (##car _%e152096152119%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd152985153012%_)) - (let ((_%e152989153017%_ + (gx#stx-pair? _%hd152095152122%_)) + (let ((_%e152099152127%_ (let () (declare (not safe)) - (gx#stx-e _%hd152985153012%_)))) - (let ((_%tl152987153022%_ + (gx#stx-e _%hd152095152122%_)))) + (let ((_%tl152097152132%_ (let () (declare (not safe)) - (##cdr _%e152989153017%_))) - (_%hd152988153020%_ + (##cdr _%e152099152127%_))) + (_%hd152098152130%_ (let () (declare (not safe)) - (##car _%e152989153017%_)))) + (##car _%e152099152127%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152987153022%_)) + _%tl152097152132%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl152984153014%_)) - (let ((_%e152992153025%_ + _%tl152094152124%_)) + (let ((_%e152102152135%_ (let () (declare (not safe)) (gx#stx-e - _%tl152984153014%_)))) - (let ((_%tl152990153030%_ + _%tl152094152124%_)))) + (let ((_%tl152100152140%_ (let () (declare (not safe)) - (##cdr _%e152992153025%_))) - (_%hd152991153028%_ + (##cdr _%e152102152135%_))) + (_%hd152101152138%_ (let () (declare (not safe)) - (##car _%e152992153025%_)))) + (##car _%e152102152135%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152990153030%_)) - (_%__kont165675165676%_ - _%hd152991153028%_ - _%hd152988153020%_) - (_%__kont165677165678%_)))) - (_%__kont165677165678%_)) - (_%__kont165677165678%_)))) - (_%__kont165677165678%_)))) - (_%__kont165677165678%_)))))) - (_%lift-kw-lambda-bindings152420%_ - (lambda (_%bindings152587%_) - (let _%lp152589%_ ((_%rest152591%_ _%bindings152587%_) - (_%lift1152592%_ '()) - (_%lift2152593%_ '()) - (_%bind152594%_ '())) - (let* ((_%rest152595152603%_ _%rest152591%_) - (_%else152597152611%_ + _%tl152100152140%_)) + (_%__kont164776164777%_ + _%hd152101152138%_ + _%hd152098152130%_) + (_%__kont164778164779%_)))) + (_%__kont164778164779%_)) + (_%__kont164778164779%_)))) + (_%__kont164778164779%_)))) + (_%__kont164778164779%_)))))) + (_%lift-kw-lambda-bindings151530%_ + (lambda (_%bindings151697%_) + (let _%lp151699%_ ((_%rest151701%_ _%bindings151697%_) + (_%lift1151702%_ '()) + (_%lift2151703%_ '()) + (_%bind151704%_ '())) + (let* ((_%rest151705151713%_ _%rest151701%_) + (_%else151707151721%_ (lambda () - (values (reverse _%lift1152592%_) - (reverse _%lift2152593%_) - (reverse _%bind152594%_)))) - (_%K152599152965%_ - (lambda (_%rest152614%_ _%hd152615%_) - (let* ((_%__stx165703165704%_ _%hd152615%_) - (_%g152618152643%_ + (values (reverse _%lift1151702%_) + (reverse _%lift2151703%_) + (reverse _%bind151704%_)))) + (_%K151709152075%_ + (lambda (_%rest151724%_ _%hd151725%_) + (let* ((_%__stx164804164805%_ _%hd151725%_) + (_%g151728151753%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx165703165704%_))))) - (let ((_%__kont165705165706%_ - (lambda (_%L152713%_ _%L152714%_) - (let* ((_%g152728152781%_ - (lambda (_%g152729152778%_) + _%__stx164804164805%_))))) + (let ((_%__kont164806164807%_ + (lambda (_%L151823%_ _%L151824%_) + (let* ((_%g151838151891%_ + (lambda (_%g151839151888%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152729152778%_)))) - (_%g152727152959%_ - (lambda (_%g152729152784%_) + _%g151839151888%_)))) + (_%g151837152069%_ + (lambda (_%g151839151894%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g152729152784%_)) - (let ((_%e152737152786%_ + _%g151839151894%_)) + (let ((_%e151847151896%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g152729152784%_)))) - (let ((_%hd152736152789%_ + (gx#stx-e _%g151839151894%_)))) + (let ((_%hd151846151899%_ (let () (declare (not safe)) - (##car _%e152737152786%_))) - (_%tl152735152791%_ + (##car _%e151847151896%_))) + (_%tl151845151901%_ (let () (declare (not safe)) - (##cdr _%e152737152786%_)))) + (##cdr _%e151847151896%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152735152791%_)) - (let ((_%e152740152794%_ + (gx#stx-pair? _%tl151845151901%_)) + (let ((_%e151850151904%_ (let () (declare (not safe)) - (gx#stx-e _%tl152735152791%_)))) - (let ((_%hd152739152797%_ + (gx#stx-e _%tl151845151901%_)))) + (let ((_%hd151849151907%_ (let () (declare (not safe)) - (##car _%e152740152794%_))) - (_%tl152738152799%_ + (##car _%e151850151904%_))) + (_%tl151848151909%_ (let () (declare (not safe)) - (##cdr _%e152740152794%_)))) + (##cdr _%e151850151904%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd152739152797%_)) - (let ((_%e152743152802%_ + (gx#stx-pair? _%hd151849151907%_)) + (let ((_%e151853151912%_ (let () (declare (not safe)) - (gx#stx-e _%hd152739152797%_)))) - (let ((_%hd152742152805%_ + (gx#stx-e _%hd151849151907%_)))) + (let ((_%hd151852151915%_ (let () (declare (not safe)) - (##car _%e152743152802%_))) - (_%tl152741152807%_ + (##car _%e151853151912%_))) + (_%tl151851151917%_ (let () (declare (not safe)) - (##cdr _%e152743152802%_)))) + (##cdr _%e151853151912%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd152742152805%_)) - (let ((_%e152746152810%_ + (gx#stx-pair? _%hd151852151915%_)) + (let ((_%e151856151920%_ (let () (declare (not safe)) (gx#stx-e - _%hd152742152805%_)))) - (let ((_%hd152745152813%_ + _%hd151852151915%_)))) + (let ((_%hd151855151923%_ (let () (declare (not safe)) - (##car _%e152746152810%_))) - (_%tl152744152815%_ + (##car _%e151856151920%_))) + (_%tl151854151925%_ (let () (declare (not safe)) - (##cdr _%e152746152810%_)))) + (##cdr _%e151856151920%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd152745152813%_)) - (let ((_%e152749152818%_ + _%hd151855151923%_)) + (let ((_%e151859151928%_ (let () (declare (not safe)) (gx#stx-e - _%hd152745152813%_)))) - (let ((_%hd152748152821%_ + _%hd151855151923%_)))) + (let ((_%hd151858151931%_ (let () (declare (not safe)) - (##car _%e152749152818%_))) - (_%tl152747152823%_ + (##car _%e151859151928%_))) + (_%tl151857151933%_ (let () (declare (not safe)) - (##cdr _%e152749152818%_)))) + (##cdr _%e151859151928%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152747152823%_)) + _%tl151857151933%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl152744152815%_)) - (let ((_%e152752152826%_ + (gx#stx-pair? _%tl151854151925%_)) + (let ((_%e151862151936%_ (let () (declare (not safe)) - (gx#stx-e _%tl152744152815%_)))) - (let ((_%hd152751152829%_ + (gx#stx-e _%tl151854151925%_)))) + (let ((_%hd151861151939%_ (let () (declare (not safe)) - (##car _%e152752152826%_))) - (_%tl152750152831%_ + (##car _%e151862151936%_))) + (_%tl151860151941%_ (let () (declare (not safe)) - (##cdr _%e152752152826%_)))) + (##cdr _%e151862151936%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd152751152829%_)) - (let ((_%e152755152834%_ + (gx#stx-pair? _%hd151861151939%_)) + (let ((_%e151865151944%_ (let () (declare (not safe)) - (gx#stx-e _%hd152751152829%_)))) - (let ((_%hd152754152837%_ + (gx#stx-e _%hd151861151939%_)))) + (let ((_%hd151864151947%_ (let () (declare (not safe)) - (##car _%e152755152834%_))) - (_%tl152753152839%_ + (##car _%e151865151944%_))) + (_%tl151863151949%_ (let () (declare (not safe)) - (##cdr _%e152755152834%_)))) + (##cdr _%e151865151944%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152753152839%_)) - (let ((_%e152758152842%_ + (gx#stx-pair? _%tl151863151949%_)) + (let ((_%e151868151952%_ (let () (declare (not safe)) - (gx#stx-e _%tl152753152839%_)))) - (let ((_%hd152757152845%_ + (gx#stx-e _%tl151863151949%_)))) + (let ((_%hd151867151955%_ (let () (declare (not safe)) - (##car _%e152758152842%_))) - (_%tl152756152847%_ + (##car _%e151868151952%_))) + (_%tl151866151957%_ (let () (declare (not safe)) - (##cdr _%e152758152842%_)))) + (##cdr _%e151868151952%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd152757152845%_)) - (let ((_%e152761152850%_ + _%hd151867151955%_)) + (let ((_%e151871151960%_ (let () (declare (not safe)) (gx#stx-e - _%hd152757152845%_)))) - (let ((_%hd152760152853%_ + _%hd151867151955%_)))) + (let ((_%hd151870151963%_ (let () (declare (not safe)) - (##car _%e152761152850%_))) - (_%tl152759152855%_ + (##car _%e151871151960%_))) + (_%tl151869151965%_ (let () (declare (not safe)) - (##cdr _%e152761152850%_)))) + (##cdr _%e151871151960%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd152760152853%_)) - (let ((_%e152764152858%_ + _%hd151870151963%_)) + (let ((_%e151874151968%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd152760152853%_)))) - (let ((_%hd152763152861%_ - (let () (declare (not safe)) (##car _%e152764152858%_))) - (_%tl152762152863%_ + (gx#stx-e _%hd151870151963%_)))) + (let ((_%hd151873151971%_ + (let () (declare (not safe)) (##car _%e151874151968%_))) + (_%tl151872151973%_ (let () (declare (not safe)) - (##cdr _%e152764152858%_)))) + (##cdr _%e151874151968%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd152763152861%_)) - (let ((_%e152767152866%_ + (gx#stx-pair? _%hd151873151971%_)) + (let ((_%e151877151976%_ (let () (declare (not safe)) - (gx#stx-e _%hd152763152861%_)))) - (let ((_%hd152766152869%_ + (gx#stx-e _%hd151873151971%_)))) + (let ((_%hd151876151979%_ (let () (declare (not safe)) - (##car _%e152767152866%_))) - (_%tl152765152871%_ + (##car _%e151877151976%_))) + (_%tl151875151981%_ (let () (declare (not safe)) - (##cdr _%e152767152866%_)))) + (##cdr _%e151877151976%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152765152871%_)) + (gx#stx-null? _%tl151875151981%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152762152863%_)) - (let ((_%e152770152874%_ + (gx#stx-pair? _%tl151872151973%_)) + (let ((_%e151880151984%_ (let () (declare (not safe)) - (gx#stx-e _%tl152762152863%_)))) - (let ((_%hd152769152877%_ + (gx#stx-e _%tl151872151973%_)))) + (let ((_%hd151879151987%_ (let () (declare (not safe)) - (##car _%e152770152874%_))) - (_%tl152768152879%_ + (##car _%e151880151984%_))) + (_%tl151878151989%_ (let () (declare (not safe)) - (##cdr _%e152770152874%_)))) + (##cdr _%e151880151984%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152768152879%_)) + (gx#stx-null? _%tl151878151989%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152759152855%_)) + _%tl151869151965%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl152756152847%_)) - (let ((_%e152773152882%_ + _%tl151866151957%_)) + (let ((_%e151883151992%_ (let () (declare (not safe)) (gx#stx-e - _%tl152756152847%_)))) - (let ((_%hd152772152885%_ + _%tl151866151957%_)))) + (let ((_%hd151882151995%_ (let () (declare (not safe)) - (##car _%e152773152882%_))) - (_%tl152771152887%_ + (##car _%e151883151992%_))) + (_%tl151881151997%_ (let () (declare (not safe)) - (##cdr _%e152773152882%_)))) + (##cdr _%e151883151992%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152771152887%_)) + _%tl151881151997%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl152750152831%_)) + (gx#stx-null? _%tl151860151941%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152741152807%_)) + (gx#stx-null? _%tl151851151917%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152738152799%_)) - (let ((_%e152776152890%_ + (gx#stx-pair? _%tl151848151909%_)) + (let ((_%e151886152000%_ (let () (declare (not safe)) - (gx#stx-e _%tl152738152799%_)))) - (let ((_%hd152775152893%_ + (gx#stx-e _%tl151848151909%_)))) + (let ((_%hd151885152003%_ (let () (declare (not safe)) - (##car _%e152776152890%_))) - (_%tl152774152895%_ + (##car _%e151886152000%_))) + (_%tl151884152005%_ (let () (declare (not safe)) - (##cdr _%e152776152890%_)))) + (##cdr _%e151886152000%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152774152895%_)) - ((lambda (_%L152898%_ - _%L152899%_ - _%L152900%_ - _%L152901%_ - _%L152902%_) - (let* ((_%get-kws-id152942%_ - (let ((__tmp166262 + (gx#stx-null? _%tl151884152005%_)) + ((lambda (_%L152008%_ + _%L152009%_ + _%L152010%_ + _%L152011%_ + _%L152012%_) + (let* ((_%get-kws-id152052%_ + (let ((__tmp165311 (let () (declare (not safe)) (gx#stx-e - _%L152714%_))) - (__tmp166261 + _%L151824%_))) + (__tmp165310 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp166262 - __tmp166261))) - (_%get-kws-id152944%_ - (let ((__tmp166263 + __tmp165311 + __tmp165310))) + (_%get-kws-id152054%_ + (let ((__tmp165312 (let () (declare (not safe)) (gx#stx-source - _%stx152415%_)))) + _%stx151525%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id152942%_ - __tmp166263))) - (_%main-id152946%_ - (let ((__tmp166265 + _%get-kws-id152052%_ + __tmp165312))) + (_%main-id152056%_ + (let ((__tmp165314 (let () (declare (not safe)) (gx#stx-e - _%L152714%_))) - (__tmp166264 + _%L151824%_))) + (__tmp165313 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp166265 - __tmp166264))) - (_%main-id152948%_ - (let ((__tmp166266 + __tmp165314 + __tmp165313))) + (_%main-id152058%_ + (let ((__tmp165315 (let () (declare (not safe)) (gx#stx-source - _%stx152415%_)))) + _%stx151525%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id152946%_ - __tmp166266))) - (_%_152950%_ + _%main-id152056%_ + __tmp165315))) + (_%_152060%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id152944%_))) - (_%_152952%_ + _%get-kws-id152054%_))) + (_%_152062%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id152948%_))) - (_%new-kw-dispatch152954%_ + _%main-id152058%_))) + (_%new-kw-dispatch152064%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L152902%_ - _%get-kws-id152944%_ - _%L152898%_))) - (_%new-get-kws152956%_ + _%L152012%_ + _%get-kws-id152054%_ + _%L152008%_))) + (_%new-get-kws152066%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L152901%_ - _%main-id152948%_ - _%L152899%_)))) - (let ((__tmp166269 + _%L152011%_ + _%main-id152058%_ + _%L152009%_)))) + (let ((__tmp165318 (let () (declare (not safe)) (gxc#identifier-symbol - _%L152714%_))) - (__tmp166268 + _%L151824%_))) + (__tmp165317 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id152944%_))) - (__tmp166267 + _%get-kws-id152054%_))) + (__tmp165316 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id152948%_)))) + _%main-id152058%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp166269 + __tmp165318 '" => " - __tmp166268 + __tmp165317 '" => " - __tmp166267)) - (let ((__tmp166272 - (cons (let () - (declare (not safe)) - (_%bind-e__163414163415%_ - _%main-id152948%_ - _%L152900%_ - '#f)) - _%lift1152592%_)) - (__tmp166271 - (cons (let () - (declare (not safe)) - (_%bind-e__163414163415%_ - _%get-kws-id152944%_ - _%new-get-kws152956%_ - '#f)) - _%lift2152593%_)) - (__tmp166270 - (cons (let () - (declare (not safe)) - (_%bind-e__163414163415%_ - _%L152714%_ - _%new-kw-dispatch152954%_ - '#f)) - _%bind152594%_))) - (declare (not safe)) - (_%lp152589%_ - _%rest152614%_ - __tmp166272 - __tmp166271 - __tmp166270)))) - _%hd152775152893%_ - _%hd152772152885%_ - _%hd152769152877%_ - _%hd152766152869%_ - _%hd152748152821%_) - (let () - (declare (not safe)) - (_%g152728152781%_ - _%g152729152784%_))))) - (let () - (declare (not safe)) - (_%g152728152781%_ _%g152729152784%_))) - (let () - (declare (not safe)) - (_%g152728152781%_ _%g152729152784%_))) - (let () - (declare (not safe)) - (_%g152728152781%_ _%g152729152784%_))) - (let () - (declare (not safe)) - (_%g152728152781%_ _%g152729152784%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g152728152781%_ - _%g152729152784%_))) - (let () - (declare (not safe)) - (_%g152728152781%_ - _%g152729152784%_))) - (let () - (declare (not safe)) - (_%g152728152781%_ - _%g152729152784%_))))) - (let () - (declare (not safe)) - (_%g152728152781%_ _%g152729152784%_))) - (let () - (declare (not safe)) - (_%g152728152781%_ _%g152729152784%_))))) - (let () - (declare (not safe)) - (_%g152728152781%_ _%g152729152784%_))))) - (let () - (declare (not safe)) - (_%g152728152781%_ _%g152729152784%_))))) + __tmp165316)) + (_%lp151699%_ + _%rest151724%_ + (cons (_%bind-e__162515162516%_ + _%main-id152058%_ + _%L152010%_ + '#f) + _%lift1151702%_) + (cons (_%bind-e__162515162516%_ + _%get-kws-id152054%_ + _%new-get-kws152066%_ + '#f) + _%lift2151703%_) + (cons (_%bind-e__162515162516%_ + _%L151824%_ + _%new-kw-dispatch152064%_ + '#f) + _%bind151704%_)))) + _%hd151885152003%_ + _%hd151882151995%_ + _%hd151879151987%_ + _%hd151876151979%_ + _%hd151858151931%_) + (_%g151838151891%_ _%g151839151894%_)))) + (_%g151838151891%_ _%g151839151894%_)) + (_%g151838151891%_ _%g151839151894%_)) + (_%g151838151891%_ _%g151839151894%_)) + (_%g151838151891%_ _%g151839151894%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g152728152781%_ - _%g152729152784%_))))) - (let () - (declare (not safe)) - (_%g152728152781%_ - _%g152729152784%_))))) - (let () - (declare (not safe)) - (_%g152728152781%_ _%g152729152784%_))))) - (let () - (declare (not safe)) - (_%g152728152781%_ _%g152729152784%_))) - (let () - (declare (not safe)) - (_%g152728152781%_ _%g152729152784%_))))) + (_%g151838151891%_ + _%g151839151894%_)) + (_%g151838151891%_ + _%g151839151894%_)) + (_%g151838151891%_ + _%g151839151894%_)))) + (_%g151838151891%_ _%g151839151894%_)) + (_%g151838151891%_ _%g151839151894%_)))) + (_%g151838151891%_ _%g151839151894%_)))) + (_%g151838151891%_ _%g151839151894%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g152728152781%_ - _%g152729152784%_))))) - (let () - (declare (not safe)) - (_%g152728152781%_ - _%g152729152784%_))))) - (let () - (declare (not safe)) - (_%g152728152781%_ _%g152729152784%_))))) - (let () - (declare (not safe)) - (_%g152728152781%_ _%g152729152784%_))))) - (let () - (declare (not safe)) - (_%g152728152781%_ _%g152729152784%_)))))) + (_%g151838151891%_ + _%g151839151894%_)))) + (_%g151838151891%_ _%g151839151894%_)))) + (_%g151838151891%_ _%g151839151894%_)))) + (_%g151838151891%_ _%g151839151894%_)) + (_%g151838151891%_ _%g151839151894%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g152727152959%_ - _%L152713%_)))) - (_%__kont165707165708%_ - (lambda (_%L152664%_ _%L152665%_) - (let ((__tmp166273 - (cons (cons _%L152665%_ - (cons _%L152664%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - _%bind152594%_))) + (_%g151838151891%_ + _%g151839151894%_)))) + (_%g151838151891%_ + _%g151839151894%_)))) + (_%g151838151891%_ _%g151839151894%_)))) + (_%g151838151891%_ _%g151839151894%_)))) + (_%g151838151891%_ _%g151839151894%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp152589%_ - _%rest152614%_ - _%lift1152592%_ - _%lift2152593%_ - __tmp166273))))) - (let ((_%__match165730165731%_ - (lambda (_%e152624152689%_ - _%hd152623152692%_ - _%tl152622152694%_ - _%e152627152697%_ - _%hd152626152700%_ - _%tl152625152702%_ - _%e152630152705%_ - _%hd152629152708%_ - _%tl152628152710%_) - (let ((_%L152713%_ - _%hd152629152708%_) - (_%L152714%_ - _%hd152626152700%_)) + (_%g151837152069%_ + _%L151823%_)))) + (_%__kont164808164809%_ + (lambda (_%L151774%_ _%L151775%_) + (_%lp151699%_ + _%rest151724%_ + _%lift1151702%_ + _%lift2151703%_ + (cons (cons _%L151775%_ + (cons _%L151774%_ + '())) + _%bind151704%_))))) + (let ((_%__match164831164832%_ + (lambda (_%e151734151799%_ + _%hd151733151802%_ + _%tl151732151804%_ + _%e151737151807%_ + _%hd151736151810%_ + _%tl151735151812%_ + _%e151740151815%_ + _%hd151739151818%_ + _%tl151738151820%_) + (let ((_%L151823%_ + _%hd151739151818%_) + (_%L151824%_ + _%hd151736151810%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L152714%_)) - (let () - (declare (not safe)) - (gxc#kw-lambda-expr? - _%L152713%_))) - (_%__kont165705165706%_ - _%L152713%_ - _%L152714%_) - (_%__kont165707165708%_ - _%hd152629152708%_ - _%hd152623152692%_)))))) + _%L151824%_)) + (gxc#kw-lambda-expr? + _%L151823%_)) + (_%__kont164806164807%_ + _%L151823%_ + _%L151824%_) + (_%__kont164808164809%_ + _%hd151739151818%_ + _%hd151733151802%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx165703165704%_)) - (let ((_%e152624152689%_ + _%__stx164804164805%_)) + (let ((_%e151734151799%_ (let () (declare (not safe)) (gx#stx-e - _%__stx165703165704%_)))) - (let ((_%tl152622152694%_ + _%__stx164804164805%_)))) + (let ((_%tl151732151804%_ (let () (declare (not safe)) - (##cdr _%e152624152689%_))) - (_%hd152623152692%_ + (##cdr _%e151734151799%_))) + (_%hd151733151802%_ (let () (declare (not safe)) - (##car _%e152624152689%_)))) + (##car _%e151734151799%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd152623152692%_)) - (let ((_%e152627152697%_ + _%hd151733151802%_)) + (let ((_%e151737151807%_ (let () (declare (not safe)) (gx#stx-e - _%hd152623152692%_)))) - (let ((_%tl152625152702%_ + _%hd151733151802%_)))) + (let ((_%tl151735151812%_ (let () (declare (not safe)) - (##cdr _%e152627152697%_))) - (_%hd152626152700%_ + (##cdr _%e151737151807%_))) + (_%hd151736151810%_ (let () (declare (not safe)) - (##car _%e152627152697%_)))) + (##car _%e151737151807%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152625152702%_)) + _%tl151735151812%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl152622152694%_)) - (let ((_%e152630152705%_ + (gx#stx-pair? _%tl151732151804%_)) + (let ((_%e151740151815%_ (let () (declare (not safe)) - (gx#stx-e _%tl152622152694%_)))) - (let ((_%tl152628152710%_ + (gx#stx-e _%tl151732151804%_)))) + (let ((_%tl151738151820%_ (let () (declare (not safe)) - (##cdr _%e152630152705%_))) - (_%hd152629152708%_ + (##cdr _%e151740151815%_))) + (_%hd151739151818%_ (let () (declare (not safe)) - (##car _%e152630152705%_)))) + (##car _%e151740151815%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152628152710%_)) - (_%__match165730165731%_ - _%e152624152689%_ - _%hd152623152692%_ - _%tl152622152694%_ - _%e152627152697%_ - _%hd152626152700%_ - _%tl152625152702%_ - _%e152630152705%_ - _%hd152629152708%_ - _%tl152628152710%_) + (gx#stx-null? _%tl151738151820%_)) + (_%__match164831164832%_ + _%e151734151799%_ + _%hd151733151802%_ + _%tl151732151804%_ + _%e151737151807%_ + _%hd151736151810%_ + _%tl151735151812%_ + _%e151740151815%_ + _%hd151739151818%_ + _%tl151738151820%_) (let () (declare (not safe)) - (_%g152618152643%_))))) - (let () (declare (not safe)) (_%g152618152643%_))) + (_%g151728151753%_))))) + (let () (declare (not safe)) (_%g151728151753%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152622152694%_)) - (let ((_%e152638152656%_ + (gx#stx-pair? _%tl151732151804%_)) + (let ((_%e151748151766%_ (let () (declare (not safe)) - (gx#stx-e _%tl152622152694%_)))) - (let ((_%tl152636152661%_ + (gx#stx-e _%tl151732151804%_)))) + (let ((_%tl151746151771%_ (let () (declare (not safe)) - (##cdr _%e152638152656%_))) - (_%hd152637152659%_ + (##cdr _%e151748151766%_))) + (_%hd151747151769%_ (let () (declare (not safe)) - (##car _%e152638152656%_)))) + (##car _%e151748151766%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152636152661%_)) - (_%__kont165707165708%_ - _%hd152637152659%_ - _%hd152623152692%_) + (gx#stx-null? _%tl151746151771%_)) + (_%__kont164808164809%_ + _%hd151747151769%_ + _%hd151733151802%_) (let () (declare (not safe)) - (_%g152618152643%_))))) - (let () (declare (not safe)) (_%g152618152643%_)))))) + (_%g151728151753%_))))) + (let () (declare (not safe)) (_%g151728151753%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl152622152694%_)) - (let ((_%e152638152656%_ + _%tl151732151804%_)) + (let ((_%e151748151766%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl152622152694%_)))) - (let ((_%tl152636152661%_ + (gx#stx-e _%tl151732151804%_)))) + (let ((_%tl151746151771%_ (let () (declare (not safe)) - (##cdr _%e152638152656%_))) - (_%hd152637152659%_ + (##cdr _%e151748151766%_))) + (_%hd151747151769%_ (let () (declare (not safe)) - (##car _%e152638152656%_)))) + (##car _%e151748151766%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152636152661%_)) - (_%__kont165707165708%_ - _%hd152637152659%_ - _%hd152623152692%_) - (let () (declare (not safe)) (_%g152618152643%_))))) - (let () (declare (not safe)) (_%g152618152643%_)))))) + (gx#stx-null? _%tl151746151771%_)) + (_%__kont164808164809%_ + _%hd151747151769%_ + _%hd151733151802%_) + (let () (declare (not safe)) (_%g151728151753%_))))) + (let () (declare (not safe)) (_%g151728151753%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g152618152643%_))))))))) + (_%g151728151753%_))))))))) (if (let () (declare (not safe)) - (##pair? _%rest152595152603%_)) - (let ((_%hd152600152968%_ + (##pair? _%rest151705151713%_)) + (let ((_%hd151710152078%_ (let () (declare (not safe)) - (##car _%rest152595152603%_))) - (_%tl152601152970%_ + (##car _%rest151705151713%_))) + (_%tl151711152080%_ (let () (declare (not safe)) - (##cdr _%rest152595152603%_)))) - (let* ((_%hd152973%_ _%hd152600152968%_) - (_%rest152975%_ _%tl152601152970%_)) - (declare (not safe)) - (_%K152599152965%_ - _%rest152975%_ - _%hd152973%_))) - (let () - (declare (not safe)) - (_%else152597152611%_)))))))) - (let* ((_%__stx165747165748%_ _%stx152415%_) - (_%g152423152449%_ + (##cdr _%rest151705151713%_)))) + (let* ((_%hd152083%_ _%hd151710152078%_) + (_%rest152085%_ _%tl151711152080%_)) + (_%K151709152075%_ + _%rest152085%_ + _%hd152083%_))) + (_%else151707151721%_))))))) + (let* ((_%__stx164848164849%_ _%stx151525%_) + (_%g151533151559%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx165747165748%_))))) - (let ((_%__kont165749165750%_ - (lambda (_%L152509%_ _%L152510%_) - (let ((__tmp166275 + _%__stx164848164849%_))))) + (let ((_%__kont164850164851%_ + (lambda (_%L151619%_ _%L151620%_) + (let ((__tmp165320 (lambda () - (if (let ((__tmp166276 - (let ((__tmp166277 - (lambda (_%g152538152541%_ - _%g152539152543%_) - (cons _%g152538152541%_ - _%g152539152543%_)))) + (if (let ((__tmp165321 + (let ((__tmp165322 + (lambda (_%g151648151651%_ + _%g151649151653%_) + (cons _%g151648151651%_ + _%g151649151653%_)))) (declare (not safe)) (__foldr1 - __tmp166277 + __tmp165322 '() - _%L152510%_)))) + _%L151620%_)))) (declare (not safe)) (__ormap1 - _%lift-kw-lambda?152419%_ - __tmp166276)) - (let ((_g166278_ - (let ((__tmp166280 - (let ((__tmp166281 - (lambda (_%g152545152548%_ - _%g152546152550%_) - (cons _%g152545152548%_ - _%g152546152550%_)))) - (declare (not safe)) - (__foldr1 - __tmp166281 - '() - _%L152510%_)))) - (declare (not safe)) - (_%lift-kw-lambda-bindings152420%_ - __tmp166280)))) + _%lift-kw-lambda?151529%_ + __tmp165321)) + (let ((_g165323_ + (_%lift-kw-lambda-bindings151530%_ + (let ((__tmp165325 + (lambda (_%g151655151658%_ + _%g151656151660%_) + (cons _%g151655151658%_ + _%g151656151660%_)))) + (declare (not safe)) + (__foldr1 + __tmp165325 + '() + _%L151620%_))))) (begin - (let ((_g166279_ + (let ((_g165324_ (let () (declare (not safe)) - (if (##values? _g166278_) - (##vector-length _g166278_) + (if (##values? _g165323_) + (##vector-length _g165323_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g166279_ 3))) + (##fx= _g165324_ 3))) (error "Context expects 3 values" - _g166279_))) - (let ((_%lift1152553%_ + _g165324_))) + (let ((_%lift1151663%_ (let () (declare (not safe)) - (##vector-ref _g166278_ 0))) - (_%lift2152554%_ + (##vector-ref _g165323_ 0))) + (_%lift2151664%_ (let () (declare (not safe)) - (##vector-ref _g166278_ 1))) - (_%hd152555%_ + (##vector-ref _g165323_ 1))) + (_%hd151665%_ (let () (declare (not safe)) - (##vector-ref _g166278_ 2)))) - (let* ((_%expr152557%_ - (let ((__tmp166282 + (##vector-ref _g165323_ 2)))) + (let* ((_%expr151667%_ + (let ((__tmp165326 (cons '%#let-values - (cons _%hd152555%_ + (cons _%hd151665%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L152509%_ '()))))) + (cons _%L151619%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp166282 - _%stx152415%_))) - (_%expr152559%_ - (let ((__tmp166283 + __tmp165326 + _%stx151525%_))) + (_%expr151669%_ + (let ((__tmp165327 (cons '%#let-values - (cons _%lift2152554%_ + (cons _%lift2151664%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr152557%_ '()))))) + (cons _%expr151667%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp166283 - _%stx152415%_))) - (_%expr152561%_ - (let ((__tmp166284 + __tmp165327 + _%stx151525%_))) + (_%expr151671%_ + (let ((__tmp165328 (cons '%#let-values - (cons _%lift1152553%_ + (cons _%lift1151663%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr152559%_ '()))))) + (cons _%expr151669%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp166284 - _%stx152415%_)))) - (declare (not safe)) + __tmp165328 + _%stx151525%_)))) (gxc#lift-top-lambda-let-values% - _%self152414%_ - _%expr152561%_))))) - (let ((_g166285_ - (let ((__tmp166287 - (let ((__tmp166288 - (lambda (_%g152563152566%_ - _%g152564152568%_) - (cons _%g152563152566%_ - _%g152564152568%_)))) - (declare (not safe)) - (__foldr1 - __tmp166288 - '() - _%L152510%_)))) - (declare (not safe)) - (_%compile-bindings152418%_ - __tmp166287)))) + _%self151524%_ + _%expr151671%_))))) + (let ((_g165329_ + (_%compile-bindings151528%_ + (let ((__tmp165331 + (lambda (_%g151673151676%_ + _%g151674151678%_) + (cons _%g151673151676%_ + _%g151674151678%_)))) + (declare (not safe)) + (__foldr1 + __tmp165331 + '() + _%L151620%_))))) (begin - (let ((_g166286_ + (let ((_g165330_ (let () (declare (not safe)) - (if (##values? _g166285_) - (##vector-length _g166285_) + (if (##values? _g165329_) + (##vector-length _g165329_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g166286_ 3))) + (##fx= _g165330_ 3))) (error "Context expects 3 values" - _g166286_))) - (let ((_%lift1152571%_ + _g165330_))) + (let ((_%lift1151681%_ (let () (declare (not safe)) - (##vector-ref _g166285_ 0))) - (_%lift2152572%_ + (##vector-ref _g165329_ 0))) + (_%lift2151682%_ (let () (declare (not safe)) - (##vector-ref _g166285_ 1))) - (_%hd152573%_ + (##vector-ref _g165329_ 1))) + (_%hd151683%_ (let () (declare (not safe)) - (##vector-ref _g166285_ 2)))) - (let* ((_%body152575%_ + (##vector-ref _g165329_ 2)))) + (let* ((_%body151685%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152414%_ - _%L152509%_))) - (_%expr152577%_ - (let ((__tmp166289 + _%self151524%_ + _%L151619%_))) + (_%expr151687%_ + (let ((__tmp165332 (cons '%#let-values - (cons _%hd152573%_ + (cons _%hd151683%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body152575%_ '()))))) + (cons _%body151685%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp166289 - _%stx152415%_))) - (_%expr152579%_ - (if (let () - (declare (not safe)) - (null? _%lift2152572%_)) - _%expr152577%_ - (let ((__tmp166290 + __tmp165332 + _%stx151525%_))) + (_%expr151689%_ + (if (null? _%lift2151682%_) + _%expr151687%_ + (let ((__tmp165333 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift2152572%_ (cons _%expr152577%_ '()))))) + (cons _%lift2151682%_ (cons _%expr151687%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp166290 _%stx152415%_)))) + (gxc#xform-wrap-source __tmp165333 _%stx151525%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%expr152581%_ - (if (let () - (declare (not safe)) - (null? _%lift1152571%_)) - _%expr152579%_ - (let ((__tmp166291 + (_%expr151691%_ + (if (null? _%lift1151681%_) + _%expr151689%_ + (let ((__tmp165334 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift1152571%_ (cons _%expr152579%_ '()))))) + (cons _%lift1151681%_ (cons _%expr151689%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp166291 _%stx152415%_))))) + (gxc#xform-wrap-source __tmp165334 _%stx151525%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%expr152581%_))))))) - (__tmp166274 - (let ((__obj165995 + _%expr151691%_))))))) + (__tmp165319 + (let ((__obj165097 (let () (declare (not safe)) (##structure @@ -19262,309 +18406,278 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj165995) - __obj165995))) + (gx#local-context:::init! __obj165097) + __obj165097))) (declare (not safe)) (__call-with-parameters - __tmp166275 + __tmp165320 gx#current-expander-context - __tmp166274)))) - (_%__kont165753165754%_ + __tmp165319)))) + (_%__kont164854164855%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self152414%_ _%stx152415%_))))) - (let ((_%__match165774165775%_ - (lambda (_%e152429152461%_ - _%hd152428152464%_ - _%tl152427152466%_ - _%e152432152469%_ - _%hd152431152472%_ - _%tl152430152474%_ - _%__splice165751165752%_ - _%target152433152477%_ - _%tl152435152479%_) - (letrec ((_%loop152436152482%_ - (lambda (_%hd152434152485%_ - _%bind152440152487%_) + (gxc#xform-let-values% _%self151524%_ _%stx151525%_))))) + (let ((_%__match164875164876%_ + (lambda (_%e151539151571%_ + _%hd151538151574%_ + _%tl151537151576%_ + _%e151542151579%_ + _%hd151541151582%_ + _%tl151540151584%_ + _%__splice164852164853%_ + _%target151543151587%_ + _%tl151545151589%_) + (letrec ((_%loop151546151592%_ + (lambda (_%hd151544151595%_ + _%bind151550151597%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd152434152485%_)) - (let ((_%e152437152490%_ + (gx#stx-pair? _%hd151544151595%_)) + (let ((_%e151547151600%_ (let () (declare (not safe)) (gx#stx-e - _%hd152434152485%_)))) - (let ((_%lp-tl152439152495%_ + _%hd151544151595%_)))) + (let ((_%lp-tl151549151605%_ (let () (declare (not safe)) - (##cdr _%e152437152490%_))) - (_%lp-hd152438152493%_ + (##cdr _%e151547151600%_))) + (_%lp-hd151548151603%_ (let () (declare (not safe)) - (##car _%e152437152490%_)))) - (let ((__tmp166292 - (cons _%lp-hd152438152493%_ - _%bind152440152487%_))) - (declare (not safe)) - (_%loop152436152482%_ - _%lp-tl152439152495%_ - __tmp166292)))) - (let ((_%bind152441152498%_ - (reverse _%bind152440152487%_))) + (##car _%e151547151600%_)))) + (_%loop151546151592%_ + _%lp-tl151549151605%_ + (cons _%lp-hd151548151603%_ + _%bind151550151597%_)))) + (let ((_%bind151551151608%_ + (reverse _%bind151550151597%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl152430152474%_)) - (let ((_%e152444152501%_ + _%tl151540151584%_)) + (let ((_%e151554151611%_ (let () (declare (not safe)) (gx#stx-e - _%tl152430152474%_)))) - (let ((_%tl152442152506%_ + _%tl151540151584%_)))) + (let ((_%tl151552151616%_ (let () (declare (not safe)) - (##cdr _%e152444152501%_))) - (_%hd152443152504%_ + (##cdr _%e151554151611%_))) + (_%hd151553151614%_ (let () (declare (not safe)) - (##car _%e152444152501%_)))) + (##car _%e151554151611%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152442152506%_)) - (let ((_%L152509%_ - _%hd152443152504%_) - (_%L152510%_ - _%bind152441152498%_)) - (if (let ((__tmp166293 + _%tl151552151616%_)) + (let ((_%L151619%_ + _%hd151553151614%_) + (_%L151620%_ + _%bind151551151608%_)) + (if (let ((__tmp165335 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp166294 - (lambda (_%g152530152533%_ _%g152531152535%_) - (cons _%g152530152533%_ - _%g152531152535%_)))) + (let ((__tmp165336 + (lambda (_%g151640151643%_ _%g151641151645%_) + (cons _%g151640151643%_ + _%g151641151645%_)))) (declare (not safe)) - (__foldr1 __tmp166294 '() _%L152510%_)))) + (__foldr1 __tmp165336 '() _%L151620%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp166293)) - (_%__kont165749165750%_ _%L152509%_ _%L152510%_) - (_%__kont165753165754%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp165335)) + (_%__kont164850164851%_ _%L151619%_ _%L151620%_) + (_%__kont164854164855%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165753165754%_)))) - (_%__kont165753165754%_))))))) - (let () - (declare (not safe)) - (_%loop152436152482%_ - _%target152433152477%_ - '())))))) + (_%__kont164854164855%_)))) + (_%__kont164854164855%_))))))) + (_%loop151546151592%_ _%target151543151587%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx165747165748%_)) - (let ((_%e152429152461%_ + (gx#stx-pair? _%__stx164848164849%_)) + (let ((_%e151539151571%_ (let () (declare (not safe)) - (gx#stx-e _%__stx165747165748%_)))) - (let ((_%tl152427152466%_ + (gx#stx-e _%__stx164848164849%_)))) + (let ((_%tl151537151576%_ (let () (declare (not safe)) - (##cdr _%e152429152461%_))) - (_%hd152428152464%_ + (##cdr _%e151539151571%_))) + (_%hd151538151574%_ (let () (declare (not safe)) - (##car _%e152429152461%_)))) + (##car _%e151539151571%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152427152466%_)) - (let ((_%e152432152469%_ + (gx#stx-pair? _%tl151537151576%_)) + (let ((_%e151542151579%_ (let () (declare (not safe)) - (gx#stx-e _%tl152427152466%_)))) - (let ((_%tl152430152474%_ + (gx#stx-e _%tl151537151576%_)))) + (let ((_%tl151540151584%_ (let () (declare (not safe)) - (##cdr _%e152432152469%_))) - (_%hd152431152472%_ + (##cdr _%e151542151579%_))) + (_%hd151541151582%_ (let () (declare (not safe)) - (##car _%e152432152469%_)))) + (##car _%e151542151579%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd152431152472%_)) - (let ((_%__splice165751165752%_ + (gx#stx-pair/null? _%hd151541151582%_)) + (let ((_%__splice164852164853%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd152431152472%_ + _%hd151541151582%_ '0)))) - (let ((_%tl152435152479%_ + (let ((_%tl151545151589%_ (let () (declare (not safe)) (##vector-ref - _%__splice165751165752%_ + _%__splice164852164853%_ '1))) - (_%target152433152477%_ + (_%target151543151587%_ (let () (declare (not safe)) (##vector-ref - _%__splice165751165752%_ + _%__splice164852164853%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152435152479%_)) - (_%__match165774165775%_ - _%e152429152461%_ - _%hd152428152464%_ - _%tl152427152466%_ - _%e152432152469%_ - _%hd152431152472%_ - _%tl152430152474%_ - _%__splice165751165752%_ - _%target152433152477%_ - _%tl152435152479%_) - (_%__kont165753165754%_)))) - (_%__kont165753165754%_)))) - (_%__kont165753165754%_)))) - (_%__kont165753165754%_)))))))) + _%tl151545151589%_)) + (_%__match164875164876%_ + _%e151539151571%_ + _%hd151538151574%_ + _%tl151537151576%_ + _%e151542151579%_ + _%hd151541151582%_ + _%tl151540151584%_ + _%__splice164852164853%_ + _%target151543151587%_ + _%tl151545151589%_) + (_%__kont164854164855%_)))) + (_%__kont164854164855%_)))) + (_%__kont164854164855%_)))) + (_%__kont164854164855%_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_%self151553%_ _%stx151554%_) - (letrec* ((_%bind-e__163419163420%_ - (lambda (_%id152398%_ _%expr152399%_ _%compile?152400%_) - (cons (cons _%id152398%_ '()) - (cons (if _%compile?152400%_ + (lambda (_%self150663%_ _%stx150664%_) + (letrec* ((_%bind-e__162520162521%_ + (lambda (_%id151508%_ _%expr151509%_ _%compile?151510%_) + (cons (cons _%id151508%_ '()) + (cons (if _%compile?151510%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self151553%_ - _%expr152399%_)) - _%expr152399%_) + _%self150663%_ + _%expr151509%_)) + _%expr151509%_) '())))) - (_%bind-e__0__163421163422%_ - (lambda (_%id152405%_ _%expr152406%_) - (let ((_%compile?152408%_ '#t)) - (declare (not safe)) - (_%bind-e__163419163420%_ - _%id152405%_ - _%expr152406%_ - _%compile?152408%_)))) - (_%bind-e151556%_ - (lambda _g166296_ - (let ((_g166295_ + (_%bind-e__0__162522162523%_ + (lambda (_%id151515%_ _%expr151516%_) + (let ((_%compile?151518%_ '#t)) + (_%bind-e__162520162521%_ + _%id151515%_ + _%expr151516%_ + _%compile?151518%_)))) + (_%bind-e150666%_ + (lambda _g165338_ + (let ((_g165337_ (let () (declare (not safe)) - (##length _g166296_)))) - (cond ((let () (declare (not safe)) (##fx= _g166295_ 2)) - (apply (lambda (_%id152405%_ _%expr152406%_) - (let () - (declare (not safe)) - (_%bind-e__0__163421163422%_ - _%id152405%_ - _%expr152406%_))) - _g166296_)) - ((let () (declare (not safe)) (##fx= _g166295_ 3)) - (apply (lambda (_%id152410%_ - _%expr152411%_ - _%compile?152412%_) - (let () - (declare (not safe)) - (_%bind-e__163419163420%_ - _%id152410%_ - _%expr152411%_ - _%compile?152412%_))) - _g166296_)) + (##length _g165338_)))) + (cond ((let () (declare (not safe)) (##fx= _g165337_ 2)) + (apply _%bind-e__0__162522162523%_ _g165338_)) + ((let () (declare (not safe)) (##fx= _g165337_ 3)) + (apply _%bind-e__162520162521%_ _g165338_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g166296_)))))) - (_%compile-bindings151557%_ - (lambda (_%rest151692%_) - (let _%lp151694%_ ((_%rest151696%_ _%rest151692%_) - (_%bind151697%_ '())) - (let* ((_%rest151698151706%_ _%rest151696%_) - (_%else151700151714%_ - (lambda () (reverse _%bind151697%_))) - (_%K151702152385%_ - (lambda (_%rest151717%_ _%hd151718%_) - (let* ((_%__stx165797165798%_ _%hd151718%_) - (_%g151723151770%_ + _g165338_)))))) + (_%compile-bindings150667%_ + (lambda (_%rest150802%_) + (let _%lp150804%_ ((_%rest150806%_ _%rest150802%_) + (_%bind150807%_ '())) + (let* ((_%rest150808150816%_ _%rest150806%_) + (_%else150810150824%_ + (lambda () (reverse _%bind150807%_))) + (_%K150812151495%_ + (lambda (_%rest150827%_ _%hd150828%_) + (let* ((_%__stx164898164899%_ _%hd150828%_) + (_%g150833150880%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx165797165798%_))))) - (let ((_%__kont165799165800%_ - (lambda (_%L152291%_ _%L152292%_) - (let* ((_%__stx165777165778%_ - _%L152291%_) - (_%g152307152321%_ + _%__stx164898164899%_))))) + (let ((_%__kont164900164901%_ + (lambda (_%L151401%_ _%L151402%_) + (let* ((_%__stx164878164879%_ + _%L151401%_) + (_%g151417151431%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx165777165778%_))))) - (let ((_%__kont165779165780%_ - (lambda (_%L152370%_) - (let ((__tmp166297 - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (_%bind-e__163419163420%_ - _%L152292%_ - _%L152291%_ - '#f)) - _%bind151697%_))) - (declare (not safe)) - (_%lp151694%_ _%rest151717%_ __tmp166297)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165781165782%_ - (lambda (_%L152334%_) - (let ((_g166298_ - (let () - (declare + _%__stx164878164879%_))))) + (let ((_%__kont164880164881%_ + (lambda (_%L151480%_) + (_%lp150804%_ + _%rest150827%_ + (cons (_%bind-e__162520162521%_ + _%L151402%_ + _%L151401%_ + '#f) + _%bind150807%_)))) + (_%__kont164882164883%_ + (lambda (_%L151444%_) + (let ((_g165339_ + (gxc#lift-case-lambda-clauses__% + _%stx150664%_ + _%L151402%_ + _%L151444%_ + '#t))) + (begin + (let ((_g165340_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gxc#lift-case-lambda-clauses__% - _%stx151554%_ - _%L152292%_ - _%L152334%_ - '#t)))) - (begin - (let ((_g166299_ (let () (declare (not safe)) - (if (##values? _g166298_) - (##vector-length _g166298_) + (if (##values? _g165339_) + (##vector-length _g165339_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g166299_ 3))) - (error "Context expects 3 values" _g166299_))) - (let ((_%ids152344%_ + (##fx= _g165340_ 3))) + (error "Context expects 3 values" _g165340_))) + (let ((_%ids151454%_ (let () (declare (not safe)) - (##vector-ref _g166298_ 0))) - (_%impls152345%_ + (##vector-ref _g165339_ 0))) + (_%impls151455%_ (let () (declare (not safe)) - (##vector-ref _g166298_ 1))) - (_%clauses152346%_ + (##vector-ref _g165339_ 1))) + (_%clauses151456%_ (let () (declare (not safe)) - (##vector-ref _g166298_ 2)))) - (let* ((_%_152348%_ - (for-each gx#core-bind-runtime! _%ids152344%_)) - (_%xbind152350%_ - (map _%bind-e151556%_ - _%ids152344%_ - _%impls152345%_)) - (_%expr*152352%_ - (let ((__tmp166301 - (cons '%#case-lambda _%clauses152346%_)) - (__tmp166300 + (##vector-ref _g165339_ 2)))) + (let* ((_%_151458%_ + (for-each gx#core-bind-runtime! _%ids151454%_)) + (_%xbind151460%_ + (map _%bind-e150666%_ + _%ids151454%_ + _%impls151455%_)) + (_%expr*151462%_ + (let ((__tmp165342 + (cons '%#case-lambda _%clauses151456%_)) + (__tmp165341 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -19572,1141 +18685,1017 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp166301 - __tmp166300))) - (_%bind*152354%_ - (let () - (declare (not safe)) - (_%bind-e__163419163420%_ - _%L152292%_ - _%expr*152352%_ - '#f)))) - (let ((__tmp166303 + __tmp165342 + __tmp165341))) + (_%bind*151464%_ + (_%bind-e__162520162521%_ + _%L151402%_ + _%expr*151462%_ + '#f))) + (let ((__tmp165344 (let () (declare (not safe)) - (gxc#identifier-symbol _%L152292%_))) - (__tmp166302 - (map gxc#identifier-symbol _%ids152344%_))) + (gxc#identifier-symbol _%L151402%_))) + (__tmp165343 + (map gxc#identifier-symbol _%ids151454%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp166303 + __tmp165344 '" => " - __tmp166302)) - (let ((__tmp166304 - (cons _%bind*152354%_ - (let () - (declare (not safe)) - (__foldl1 - cons - _%bind151697%_ - _%xbind152350%_))))) - (declare (not safe)) - (_%lp151694%_ _%rest151717%_ __tmp166304))))))))) + __tmp165343)) + (_%lp150804%_ + _%rest150827%_ + (cons _%bind*151464%_ + (let () + (declare (not safe)) + (__foldl1 + cons + _%bind150807%_ + _%xbind151460%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match165788165789%_ - (lambda (_%e152312152362%_ - _%hd152311152365%_ - _%tl152310152367%_) - (let ((_%L152370%_ - _%tl152310152367%_)) + (let ((_%__match164889164890%_ + (lambda (_%e151422151472%_ + _%hd151421151475%_ + _%tl151420151477%_) + (let ((_%L151480%_ + _%tl151420151477%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L152370%_)) - (_%__kont165779165780%_ _%L152370%_) - (_%__kont165781165782%_ _%tl152310152367%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L151480%_)) + (_%__kont164880164881%_ _%L151480%_) + (_%__kont164882164883%_ _%tl151420151477%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx165777165778%_)) - (let ((_%e152312152362%_ + _%__stx164878164879%_)) + (let ((_%e151422151472%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx165777165778%_)))) - (let ((_%tl152310152367%_ - (let () (declare (not safe)) (##cdr _%e152312152362%_))) - (_%hd152311152365%_ + (gx#stx-e _%__stx164878164879%_)))) + (let ((_%tl151420151477%_ + (let () (declare (not safe)) (##cdr _%e151422151472%_))) + (_%hd151421151475%_ (let () (declare (not safe)) - (##car _%e152312152362%_)))) - (_%__match165788165789%_ - _%e152312152362%_ - _%hd152311152365%_ - _%tl152310152367%_))) - (let () (declare (not safe)) (_%g152307152321%_)))))))) + (##car _%e151422151472%_)))) + (_%__match164889164890%_ + _%e151422151472%_ + _%hd151421151475%_ + _%tl151420151477%_))) + (let () (declare (not safe)) (_%g151417151431%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165801165802%_ - (lambda (_%L152118%_ _%L152119%_) - (let* ((_%g152133152163%_ - (lambda (_%g152134152160%_) + (_%__kont164902164903%_ + (lambda (_%L151228%_ _%L151229%_) + (let* ((_%g151243151273%_ + (lambda (_%g151244151270%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152134152160%_)))) - (_%g152132152259%_ - (lambda (_%g152134152166%_) + _%g151244151270%_)))) + (_%g151242151369%_ + (lambda (_%g151244151276%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g152134152166%_)) - (let ((_%e152140152168%_ + _%g151244151276%_)) + (let ((_%e151250151278%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g152134152166%_)))) - (let ((_%hd152139152171%_ + (gx#stx-e _%g151244151276%_)))) + (let ((_%hd151249151281%_ (let () (declare (not safe)) - (##car _%e152140152168%_))) - (_%tl152138152173%_ + (##car _%e151250151278%_))) + (_%tl151248151283%_ (let () (declare (not safe)) - (##cdr _%e152140152168%_)))) + (##cdr _%e151250151278%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152138152173%_)) - (let ((_%e152143152176%_ + (gx#stx-pair? _%tl151248151283%_)) + (let ((_%e151253151286%_ (let () (declare (not safe)) - (gx#stx-e _%tl152138152173%_)))) - (let ((_%hd152142152179%_ + (gx#stx-e _%tl151248151283%_)))) + (let ((_%hd151252151289%_ (let () (declare (not safe)) - (##car _%e152143152176%_))) - (_%tl152141152181%_ + (##car _%e151253151286%_))) + (_%tl151251151291%_ (let () (declare (not safe)) - (##cdr _%e152143152176%_)))) + (##cdr _%e151253151286%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd152142152179%_)) - (let ((_%e152146152184%_ + (gx#stx-pair? _%hd151252151289%_)) + (let ((_%e151256151294%_ (let () (declare (not safe)) - (gx#stx-e _%hd152142152179%_)))) - (let ((_%hd152145152187%_ + (gx#stx-e _%hd151252151289%_)))) + (let ((_%hd151255151297%_ (let () (declare (not safe)) - (##car _%e152146152184%_))) - (_%tl152144152189%_ + (##car _%e151256151294%_))) + (_%tl151254151299%_ (let () (declare (not safe)) - (##cdr _%e152146152184%_)))) + (##cdr _%e151256151294%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd152145152187%_)) - (let ((_%e152149152192%_ + (gx#stx-pair? _%hd151255151297%_)) + (let ((_%e151259151302%_ (let () (declare (not safe)) (gx#stx-e - _%hd152145152187%_)))) - (let ((_%hd152148152195%_ + _%hd151255151297%_)))) + (let ((_%hd151258151305%_ (let () (declare (not safe)) - (##car _%e152149152192%_))) - (_%tl152147152197%_ + (##car _%e151259151302%_))) + (_%tl151257151307%_ (let () (declare (not safe)) - (##cdr _%e152149152192%_)))) + (##cdr _%e151259151302%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd152148152195%_)) - (let ((_%e152152152200%_ + _%hd151258151305%_)) + (let ((_%e151262151310%_ (let () (declare (not safe)) (gx#stx-e - _%hd152148152195%_)))) - (let ((_%hd152151152203%_ + _%hd151258151305%_)))) + (let ((_%hd151261151313%_ (let () (declare (not safe)) - (##car _%e152152152200%_))) - (_%tl152150152205%_ + (##car _%e151262151310%_))) + (_%tl151260151315%_ (let () (declare (not safe)) - (##cdr _%e152152152200%_)))) + (##cdr _%e151262151310%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152150152205%_)) + _%tl151260151315%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl152147152197%_)) - (let ((_%e152155152208%_ + (gx#stx-pair? _%tl151257151307%_)) + (let ((_%e151265151318%_ (let () (declare (not safe)) - (gx#stx-e _%tl152147152197%_)))) - (let ((_%hd152154152211%_ + (gx#stx-e _%tl151257151307%_)))) + (let ((_%hd151264151321%_ (let () (declare (not safe)) - (##car _%e152155152208%_))) - (_%tl152153152213%_ + (##car _%e151265151318%_))) + (_%tl151263151323%_ (let () (declare (not safe)) - (##cdr _%e152155152208%_)))) + (##cdr _%e151265151318%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152153152213%_)) + (gx#stx-null? _%tl151263151323%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152144152189%_)) + (gx#stx-null? _%tl151254151299%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152141152181%_)) - (let ((_%e152158152216%_ + (gx#stx-pair? _%tl151251151291%_)) + (let ((_%e151268151326%_ (let () (declare (not safe)) - (gx#stx-e _%tl152141152181%_)))) - (let ((_%hd152157152219%_ + (gx#stx-e _%tl151251151291%_)))) + (let ((_%hd151267151329%_ (let () (declare (not safe)) - (##car _%e152158152216%_))) - (_%tl152156152221%_ + (##car _%e151268151326%_))) + (_%tl151266151331%_ (let () (declare (not safe)) - (##cdr _%e152158152216%_)))) + (##cdr _%e151268151326%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152156152221%_)) - ((lambda (_%L152224%_ - _%L152225%_ - _%L152226%_) - (let* ((_%lambda-id152250%_ - (let ((__tmp166306 + _%tl151266151331%_)) + ((lambda (_%L151334%_ + _%L151335%_ + _%L151336%_) + (let* ((_%lambda-id151360%_ + (let ((__tmp165346 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L152119%_))) - (__tmp166305 + (gx#stx-e _%L151229%_))) + (__tmp165345 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp166306 __tmp166305))) - (_%lambda-id152252%_ - (let ((__tmp166307 + (make-symbol__1 __tmp165346 __tmp165345))) + (_%lambda-id151362%_ + (let ((__tmp165347 (let () (declare (not safe)) - (gx#stx-source _%stx151554%_)))) + (gx#stx-source _%stx150664%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id152250%_ __tmp166307))) - (_%_152254%_ + (gx#core-quote-syntax__1 _%lambda-id151360%_ __tmp165347))) + (_%_151364%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id152252%_))) - (_%new-case-lambda-expr152256%_ + (gx#core-bind-runtime!__0 _%lambda-id151362%_))) + (_%new-case-lambda-expr151366%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L152226%_ - _%lambda-id152252%_ - _%L152224%_)))) + _%L151336%_ + _%lambda-id151362%_ + _%L151334%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp166309 + (let ((__tmp165349 (let () (declare (not safe)) (gxc#identifier-symbol - _%L152119%_))) - (__tmp166308 + _%L151229%_))) + (__tmp165348 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id152252%_)))) + _%lambda-id151362%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp166309 + __tmp165349 '" => " - __tmp166308)) - (let ((__tmp166311 - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (_%bind-e__163419163420%_ - _%L152119%_ - _%new-case-lambda-expr152256%_ - '#f)) - _%rest151717%_)) - (__tmp166310 - (cons (let () - (declare (not safe)) - (_%bind-e__0__163421163422%_ - _%lambda-id152252%_ - _%L152225%_)) - _%bind151697%_))) + __tmp165348)) + (_%lp150804%_ + (cons (_%bind-e__162520162521%_ + _%L151229%_ + _%new-case-lambda-expr151366%_ + '#f) + _%rest150827%_) + (cons (_%bind-e__0__162522162523%_ + _%lambda-id151362%_ + _%L151335%_) + _%bind150807%_)))) + _%hd151267151329%_ + _%hd151264151321%_ + _%hd151261151313%_) + (_%g151243151273%_ + _%g151244151276%_)))) + (_%g151243151273%_ _%g151244151276%_)) + (_%g151243151273%_ _%g151244151276%_)) + (_%g151243151273%_ _%g151244151276%_)))) + (_%g151243151273%_ _%g151244151276%_)) + (_%g151243151273%_ _%g151244151276%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp151694%_ - __tmp166311 - __tmp166310)))) - _%hd152157152219%_ - _%hd152154152211%_ - _%hd152151152203%_) - (let () - (declare (not safe)) - (_%g152133152163%_ - _%g152134152166%_))))) - (let () - (declare (not safe)) - (_%g152133152163%_ _%g152134152166%_))) - (let () - (declare (not safe)) - (_%g152133152163%_ _%g152134152166%_))) - (let () - (declare (not safe)) - (_%g152133152163%_ _%g152134152166%_))))) - (let () - (declare (not safe)) - (_%g152133152163%_ _%g152134152166%_))) - (let () - (declare (not safe)) - (_%g152133152163%_ _%g152134152166%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g152133152163%_ - _%g152134152166%_))))) - (let () - (declare (not safe)) - (_%g152133152163%_ - _%g152134152166%_))))) - (let () - (declare (not safe)) - (_%g152133152163%_ _%g152134152166%_))))) - (let () - (declare (not safe)) - (_%g152133152163%_ _%g152134152166%_))))) - (let () - (declare (not safe)) - (_%g152133152163%_ _%g152134152166%_)))))) + (_%g151243151273%_ + _%g151244151276%_)))) + (_%g151243151273%_ + _%g151244151276%_)))) + (_%g151243151273%_ _%g151244151276%_)))) + (_%g151243151273%_ _%g151244151276%_)))) + (_%g151243151273%_ _%g151244151276%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g152132152259%_ - _%L152118%_)))) - (_%__kont165803165804%_ - (lambda (_%L151840%_ _%L151841%_) - (let* ((_%g151855151908%_ - (lambda (_%g151856151905%_) + (_%g151242151369%_ + _%L151228%_)))) + (_%__kont164904164905%_ + (lambda (_%L150950%_ _%L150951%_) + (let* ((_%g150965151018%_ + (lambda (_%g150966151015%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151856151905%_)))) - (_%g151854152086%_ - (lambda (_%g151856151911%_) + _%g150966151015%_)))) + (_%g150964151196%_ + (lambda (_%g150966151021%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g151856151911%_)) - (let ((_%e151864151913%_ + _%g150966151021%_)) + (let ((_%e150974151023%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g151856151911%_)))) - (let ((_%hd151863151916%_ + (gx#stx-e _%g150966151021%_)))) + (let ((_%hd150973151026%_ (let () (declare (not safe)) - (##car _%e151864151913%_))) - (_%tl151862151918%_ + (##car _%e150974151023%_))) + (_%tl150972151028%_ (let () (declare (not safe)) - (##cdr _%e151864151913%_)))) + (##cdr _%e150974151023%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151862151918%_)) - (let ((_%e151867151921%_ + (gx#stx-pair? _%tl150972151028%_)) + (let ((_%e150977151031%_ (let () (declare (not safe)) - (gx#stx-e _%tl151862151918%_)))) - (let ((_%hd151866151924%_ + (gx#stx-e _%tl150972151028%_)))) + (let ((_%hd150976151034%_ (let () (declare (not safe)) - (##car _%e151867151921%_))) - (_%tl151865151926%_ + (##car _%e150977151031%_))) + (_%tl150975151036%_ (let () (declare (not safe)) - (##cdr _%e151867151921%_)))) + (##cdr _%e150977151031%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd151866151924%_)) - (let ((_%e151870151929%_ + (gx#stx-pair? _%hd150976151034%_)) + (let ((_%e150980151039%_ (let () (declare (not safe)) - (gx#stx-e _%hd151866151924%_)))) - (let ((_%hd151869151932%_ + (gx#stx-e _%hd150976151034%_)))) + (let ((_%hd150979151042%_ (let () (declare (not safe)) - (##car _%e151870151929%_))) - (_%tl151868151934%_ + (##car _%e150980151039%_))) + (_%tl150978151044%_ (let () (declare (not safe)) - (##cdr _%e151870151929%_)))) + (##cdr _%e150980151039%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd151869151932%_)) - (let ((_%e151873151937%_ + (gx#stx-pair? _%hd150979151042%_)) + (let ((_%e150983151047%_ (let () (declare (not safe)) (gx#stx-e - _%hd151869151932%_)))) - (let ((_%hd151872151940%_ + _%hd150979151042%_)))) + (let ((_%hd150982151050%_ (let () (declare (not safe)) - (##car _%e151873151937%_))) - (_%tl151871151942%_ + (##car _%e150983151047%_))) + (_%tl150981151052%_ (let () (declare (not safe)) - (##cdr _%e151873151937%_)))) + (##cdr _%e150983151047%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd151872151940%_)) - (let ((_%e151876151945%_ + _%hd150982151050%_)) + (let ((_%e150986151055%_ (let () (declare (not safe)) (gx#stx-e - _%hd151872151940%_)))) - (let ((_%hd151875151948%_ + _%hd150982151050%_)))) + (let ((_%hd150985151058%_ (let () (declare (not safe)) - (##car _%e151876151945%_))) - (_%tl151874151950%_ + (##car _%e150986151055%_))) + (_%tl150984151060%_ (let () (declare (not safe)) - (##cdr _%e151876151945%_)))) + (##cdr _%e150986151055%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151874151950%_)) + _%tl150984151060%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl151871151942%_)) - (let ((_%e151879151953%_ + (gx#stx-pair? _%tl150981151052%_)) + (let ((_%e150989151063%_ (let () (declare (not safe)) - (gx#stx-e _%tl151871151942%_)))) - (let ((_%hd151878151956%_ + (gx#stx-e _%tl150981151052%_)))) + (let ((_%hd150988151066%_ (let () (declare (not safe)) - (##car _%e151879151953%_))) - (_%tl151877151958%_ + (##car _%e150989151063%_))) + (_%tl150987151068%_ (let () (declare (not safe)) - (##cdr _%e151879151953%_)))) + (##cdr _%e150989151063%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd151878151956%_)) - (let ((_%e151882151961%_ + (gx#stx-pair? _%hd150988151066%_)) + (let ((_%e150992151071%_ (let () (declare (not safe)) - (gx#stx-e _%hd151878151956%_)))) - (let ((_%hd151881151964%_ + (gx#stx-e _%hd150988151066%_)))) + (let ((_%hd150991151074%_ (let () (declare (not safe)) - (##car _%e151882151961%_))) - (_%tl151880151966%_ + (##car _%e150992151071%_))) + (_%tl150990151076%_ (let () (declare (not safe)) - (##cdr _%e151882151961%_)))) + (##cdr _%e150992151071%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151880151966%_)) - (let ((_%e151885151969%_ + (gx#stx-pair? _%tl150990151076%_)) + (let ((_%e150995151079%_ (let () (declare (not safe)) - (gx#stx-e _%tl151880151966%_)))) - (let ((_%hd151884151972%_ + (gx#stx-e _%tl150990151076%_)))) + (let ((_%hd150994151082%_ (let () (declare (not safe)) - (##car _%e151885151969%_))) - (_%tl151883151974%_ + (##car _%e150995151079%_))) + (_%tl150993151084%_ (let () (declare (not safe)) - (##cdr _%e151885151969%_)))) + (##cdr _%e150995151079%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd151884151972%_)) - (let ((_%e151888151977%_ + _%hd150994151082%_)) + (let ((_%e150998151087%_ (let () (declare (not safe)) (gx#stx-e - _%hd151884151972%_)))) - (let ((_%hd151887151980%_ + _%hd150994151082%_)))) + (let ((_%hd150997151090%_ (let () (declare (not safe)) - (##car _%e151888151977%_))) - (_%tl151886151982%_ + (##car _%e150998151087%_))) + (_%tl150996151092%_ (let () (declare (not safe)) - (##cdr _%e151888151977%_)))) + (##cdr _%e150998151087%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd151887151980%_)) - (let ((_%e151891151985%_ + _%hd150997151090%_)) + (let ((_%e151001151095%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd151887151980%_)))) - (let ((_%hd151890151988%_ - (let () (declare (not safe)) (##car _%e151891151985%_))) - (_%tl151889151990%_ + (gx#stx-e _%hd150997151090%_)))) + (let ((_%hd151000151098%_ + (let () (declare (not safe)) (##car _%e151001151095%_))) + (_%tl150999151100%_ (let () (declare (not safe)) - (##cdr _%e151891151985%_)))) + (##cdr _%e151001151095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd151890151988%_)) - (let ((_%e151894151993%_ + (gx#stx-pair? _%hd151000151098%_)) + (let ((_%e151004151103%_ (let () (declare (not safe)) - (gx#stx-e _%hd151890151988%_)))) - (let ((_%hd151893151996%_ + (gx#stx-e _%hd151000151098%_)))) + (let ((_%hd151003151106%_ (let () (declare (not safe)) - (##car _%e151894151993%_))) - (_%tl151892151998%_ + (##car _%e151004151103%_))) + (_%tl151002151108%_ (let () (declare (not safe)) - (##cdr _%e151894151993%_)))) + (##cdr _%e151004151103%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151892151998%_)) + (gx#stx-null? _%tl151002151108%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151889151990%_)) - (let ((_%e151897152001%_ + (gx#stx-pair? _%tl150999151100%_)) + (let ((_%e151007151111%_ (let () (declare (not safe)) - (gx#stx-e _%tl151889151990%_)))) - (let ((_%hd151896152004%_ + (gx#stx-e _%tl150999151100%_)))) + (let ((_%hd151006151114%_ (let () (declare (not safe)) - (##car _%e151897152001%_))) - (_%tl151895152006%_ + (##car _%e151007151111%_))) + (_%tl151005151116%_ (let () (declare (not safe)) - (##cdr _%e151897152001%_)))) + (##cdr _%e151007151111%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151895152006%_)) + (gx#stx-null? _%tl151005151116%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151886151982%_)) + _%tl150996151092%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl151883151974%_)) - (let ((_%e151900152009%_ + _%tl150993151084%_)) + (let ((_%e151010151119%_ (let () (declare (not safe)) (gx#stx-e - _%tl151883151974%_)))) - (let ((_%hd151899152012%_ + _%tl150993151084%_)))) + (let ((_%hd151009151122%_ (let () (declare (not safe)) - (##car _%e151900152009%_))) - (_%tl151898152014%_ + (##car _%e151010151119%_))) + (_%tl151008151124%_ (let () (declare (not safe)) - (##cdr _%e151900152009%_)))) + (##cdr _%e151010151119%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151898152014%_)) + _%tl151008151124%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl151877151958%_)) + (gx#stx-null? _%tl150987151068%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151868151934%_)) + (gx#stx-null? _%tl150978151044%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151865151926%_)) - (let ((_%e151903152017%_ + (gx#stx-pair? _%tl150975151036%_)) + (let ((_%e151013151127%_ (let () (declare (not safe)) - (gx#stx-e _%tl151865151926%_)))) - (let ((_%hd151902152020%_ + (gx#stx-e _%tl150975151036%_)))) + (let ((_%hd151012151130%_ (let () (declare (not safe)) - (##car _%e151903152017%_))) - (_%tl151901152022%_ + (##car _%e151013151127%_))) + (_%tl151011151132%_ (let () (declare (not safe)) - (##cdr _%e151903152017%_)))) + (##cdr _%e151013151127%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151901152022%_)) - ((lambda (_%L152025%_ - _%L152026%_ - _%L152027%_ - _%L152028%_ - _%L152029%_) - (let* ((_%get-kws-id152069%_ - (let ((__tmp166313 + (gx#stx-null? _%tl151011151132%_)) + ((lambda (_%L151135%_ + _%L151136%_ + _%L151137%_ + _%L151138%_ + _%L151139%_) + (let* ((_%get-kws-id151179%_ + (let ((__tmp165351 (let () (declare (not safe)) (gx#stx-e - _%L151841%_))) - (__tmp166312 + _%L150951%_))) + (__tmp165350 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp166313 - __tmp166312))) - (_%get-kws-id152071%_ - (let ((__tmp166314 + __tmp165351 + __tmp165350))) + (_%get-kws-id151181%_ + (let ((__tmp165352 (let () (declare (not safe)) (gx#stx-source - _%stx151554%_)))) + _%stx150664%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id152069%_ - __tmp166314))) - (_%main-id152073%_ - (let ((__tmp166316 + _%get-kws-id151179%_ + __tmp165352))) + (_%main-id151183%_ + (let ((__tmp165354 (let () (declare (not safe)) (gx#stx-e - _%L151841%_))) - (__tmp166315 + _%L150951%_))) + (__tmp165353 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp166316 - __tmp166315))) - (_%main-id152075%_ - (let ((__tmp166317 + __tmp165354 + __tmp165353))) + (_%main-id151185%_ + (let ((__tmp165355 (let () (declare (not safe)) (gx#stx-source - _%stx151554%_)))) + _%stx150664%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id152073%_ - __tmp166317))) - (_%_152077%_ + _%main-id151183%_ + __tmp165355))) + (_%_151187%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id152071%_))) - (_%_152079%_ + _%get-kws-id151181%_))) + (_%_151189%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id152075%_))) - (_%new-kw-dispatch152081%_ + _%main-id151185%_))) + (_%new-kw-dispatch151191%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L152029%_ - _%get-kws-id152071%_ - _%L152025%_))) - (_%new-get-kws152083%_ + _%L151139%_ + _%get-kws-id151181%_ + _%L151135%_))) + (_%new-get-kws151193%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L152028%_ - _%main-id152075%_ - _%L152026%_)))) - (let ((__tmp166320 + _%L151138%_ + _%main-id151185%_ + _%L151136%_)))) + (let ((__tmp165358 (let () (declare (not safe)) (gxc#identifier-symbol - _%L151841%_))) - (__tmp166319 + _%L150951%_))) + (__tmp165357 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id152071%_))) - (__tmp166318 + _%get-kws-id151181%_))) + (__tmp165356 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id152075%_)))) + _%main-id151185%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp166320 + __tmp165358 '" => " - __tmp166319 + __tmp165357 '" => " - __tmp166318)) - (let ((__tmp166321 - (let ((__tmp166326 - (let () - (declare (not safe)) - (_%bind-e__163419163420%_ - _%main-id152075%_ - _%L152027%_ - '#f))) - (__tmp166322 - (let ((__tmp166325 - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (_%bind-e__163419163420%_ - _%get-kws-id152071%_ - _%new-get-kws152083%_ - '#f))) - (__tmp166323 - (let ((__tmp166324 - (let () - (declare (not safe)) - (_%bind-e__163419163420%_ - _%L151841%_ - _%new-kw-dispatch152081%_ - '#f)))) - (declare (not safe)) - (cons __tmp166324 _%rest151717%_)))) - (declare (not safe)) - (cons __tmp166325 __tmp166323)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp166326 - __tmp166322)))) - (declare (not safe)) - (_%lp151694%_ - __tmp166321 - _%bind151697%_)))) - _%hd151902152020%_ - _%hd151899152012%_ - _%hd151896152004%_ - _%hd151893151996%_ - _%hd151875151948%_) - (let () - (declare (not safe)) - (_%g151855151908%_ - _%g151856151911%_))))) - (let () - (declare (not safe)) - (_%g151855151908%_ _%g151856151911%_))) - (let () - (declare (not safe)) - (_%g151855151908%_ _%g151856151911%_))) - (let () - (declare (not safe)) - (_%g151855151908%_ _%g151856151911%_))) - (let () - (declare (not safe)) - (_%g151855151908%_ _%g151856151911%_))))) + __tmp165356)) + (_%lp150804%_ + (cons (_%bind-e__162520162521%_ + _%main-id151185%_ + _%L151137%_ + '#f) + (cons (_%bind-e__162520162521%_ + _%get-kws-id151181%_ + _%new-get-kws151193%_ + '#f) + (cons (_%bind-e__162520162521%_ + _%L150951%_ + _%new-kw-dispatch151191%_ + '#f) + _%rest150827%_))) + _%bind150807%_))) + _%hd151012151130%_ + _%hd151009151122%_ + _%hd151006151114%_ + _%hd151003151106%_ + _%hd150985151058%_) + (_%g150965151018%_ _%g150966151021%_)))) + (_%g150965151018%_ _%g150966151021%_)) + (_%g150965151018%_ _%g150966151021%_)) + (_%g150965151018%_ _%g150966151021%_)) + (_%g150965151018%_ _%g150966151021%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g151855151908%_ - _%g151856151911%_))) - (let () - (declare (not safe)) - (_%g151855151908%_ - _%g151856151911%_))) - (let () - (declare (not safe)) - (_%g151855151908%_ - _%g151856151911%_))))) - (let () - (declare (not safe)) - (_%g151855151908%_ _%g151856151911%_))) - (let () - (declare (not safe)) - (_%g151855151908%_ _%g151856151911%_))))) - (let () - (declare (not safe)) - (_%g151855151908%_ _%g151856151911%_))))) - (let () - (declare (not safe)) - (_%g151855151908%_ _%g151856151911%_))))) + (_%g150965151018%_ + _%g150966151021%_)) + (_%g150965151018%_ + _%g150966151021%_)) + (_%g150965151018%_ + _%g150966151021%_)))) + (_%g150965151018%_ _%g150966151021%_)) + (_%g150965151018%_ _%g150966151021%_)))) + (_%g150965151018%_ _%g150966151021%_)))) + (_%g150965151018%_ _%g150966151021%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g151855151908%_ - _%g151856151911%_))))) - (let () - (declare (not safe)) - (_%g151855151908%_ - _%g151856151911%_))))) - (let () - (declare (not safe)) - (_%g151855151908%_ _%g151856151911%_))))) - (let () - (declare (not safe)) - (_%g151855151908%_ _%g151856151911%_))) - (let () - (declare (not safe)) - (_%g151855151908%_ _%g151856151911%_))))) + (_%g150965151018%_ + _%g150966151021%_)))) + (_%g150965151018%_ _%g150966151021%_)))) + (_%g150965151018%_ _%g150966151021%_)))) + (_%g150965151018%_ _%g150966151021%_)) + (_%g150965151018%_ _%g150966151021%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g151855151908%_ - _%g151856151911%_))))) - (let () - (declare (not safe)) - (_%g151855151908%_ - _%g151856151911%_))))) - (let () - (declare (not safe)) - (_%g151855151908%_ _%g151856151911%_))))) - (let () - (declare (not safe)) - (_%g151855151908%_ _%g151856151911%_))))) - (let () - (declare (not safe)) - (_%g151855151908%_ _%g151856151911%_)))))) + (_%g150965151018%_ + _%g150966151021%_)))) + (_%g150965151018%_ + _%g150966151021%_)))) + (_%g150965151018%_ _%g150966151021%_)))) + (_%g150965151018%_ _%g150966151021%_)))) + (_%g150965151018%_ _%g150966151021%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g151854152086%_ - _%L151840%_)))) - (_%__kont165805165806%_ - (lambda (_%L151791%_ _%L151792%_) - (let ((__tmp166327 - (cons (cons _%L151792%_ - (cons (let () + (_%g150964151196%_ + _%L150950%_)))) + (_%__kont164906164907%_ + (lambda (_%L150901%_ _%L150902%_) + (_%lp150804%_ + _%rest150827%_ + (cons (cons _%L150902%_ + (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gxc#compile-e__1 _%self151553%_ _%L151791%_)) - '())) - _%bind151697%_))) + (declare (not safe)) + (gxc#compile-e__1 _%self150663%_ _%L150901%_)) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp151694%_ - _%rest151717%_ - __tmp166327))))) - (let* ((_%__match165872165873%_ - (lambda (_%e151751151816%_ - _%hd151750151819%_ - _%tl151749151821%_ - _%e151754151824%_ - _%hd151753151827%_ - _%tl151752151829%_ - _%e151757151832%_ - _%hd151756151835%_ - _%tl151755151837%_) - (let ((_%L151840%_ - _%hd151756151835%_) - (_%L151841%_ - _%hd151753151827%_)) + _%bind150807%_))))) + (let* ((_%__match164973164974%_ + (lambda (_%e150861150926%_ + _%hd150860150929%_ + _%tl150859150931%_ + _%e150864150934%_ + _%hd150863150937%_ + _%tl150862150939%_ + _%e150867150942%_ + _%hd150866150945%_ + _%tl150865150947%_) + (let ((_%L150950%_ + _%hd150866150945%_) + (_%L150951%_ + _%hd150863150937%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L151841%_)) - (let () - (declare - (not safe)) - (gxc#kw-lambda-expr? - _%L151840%_))) - (_%__kont165803165804%_ - _%L151840%_ - _%L151841%_) - (_%__kont165805165806%_ - _%hd151756151835%_ - _%hd151750151819%_))))) - (_%__match165850165851%_ - (lambda (_%e151740152094%_ - _%hd151739152097%_ - _%tl151738152099%_ - _%e151743152102%_ - _%hd151742152105%_ - _%tl151741152107%_ - _%e151746152110%_ - _%hd151745152113%_ - _%tl151744152115%_) - (let ((_%L152118%_ - _%hd151745152113%_) - (_%L152119%_ - _%hd151742152105%_)) + _%L150951%_)) + (gxc#kw-lambda-expr? + _%L150950%_)) + (_%__kont164904164905%_ + _%L150950%_ + _%L150951%_) + (_%__kont164906164907%_ + _%hd150866150945%_ + _%hd150860150929%_))))) + (_%__match164951164952%_ + (lambda (_%e150850151204%_ + _%hd150849151207%_ + _%tl150848151209%_ + _%e150853151212%_ + _%hd150852151215%_ + _%tl150851151217%_ + _%e150856151220%_ + _%hd150855151223%_ + _%tl150854151225%_) + (let ((_%L151228%_ + _%hd150855151223%_) + (_%L151229%_ + _%hd150852151215%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L152119%_)) - (let () - (declare - (not safe)) - (gxc#opt-lambda-expr? - _%L152118%_))) - (_%__kont165801165802%_ - _%L152118%_ - _%L152119%_) - (_%__match165872165873%_ - _%e151740152094%_ - _%hd151739152097%_ - _%tl151738152099%_ - _%e151743152102%_ - _%hd151742152105%_ - _%tl151741152107%_ - _%e151746152110%_ - _%hd151745152113%_ - _%tl151744152115%_))))) - (_%__match165828165829%_ - (lambda (_%e151729152267%_ - _%hd151728152270%_ - _%tl151727152272%_ - _%e151732152275%_ - _%hd151731152278%_ - _%tl151730152280%_ - _%e151735152283%_ - _%hd151734152286%_ - _%tl151733152288%_) - (let ((_%L152291%_ - _%hd151734152286%_) - (_%L152292%_ - _%hd151731152278%_)) + _%L151229%_)) + (gxc#opt-lambda-expr? + _%L151228%_)) + (_%__kont164902164903%_ + _%L151228%_ + _%L151229%_) + (_%__match164973164974%_ + _%e150850151204%_ + _%hd150849151207%_ + _%tl150848151209%_ + _%e150853151212%_ + _%hd150852151215%_ + _%tl150851151217%_ + _%e150856151220%_ + _%hd150855151223%_ + _%tl150854151225%_))))) + (_%__match164929164930%_ + (lambda (_%e150839151377%_ + _%hd150838151380%_ + _%tl150837151382%_ + _%e150842151385%_ + _%hd150841151388%_ + _%tl150840151390%_ + _%e150845151393%_ + _%hd150844151396%_ + _%tl150843151398%_) + (let ((_%L151401%_ + _%hd150844151396%_) + (_%L151402%_ + _%hd150841151388%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L152292%_)) - (let () - (declare - (not safe)) - (gxc#case-lambda-expr? - _%L152291%_))) - (_%__kont165799165800%_ - _%L152291%_ - _%L152292%_) - (_%__match165850165851%_ - _%e151729152267%_ - _%hd151728152270%_ - _%tl151727152272%_ - _%e151732152275%_ - _%hd151731152278%_ - _%tl151730152280%_ - _%e151735152283%_ - _%hd151734152286%_ - _%tl151733152288%_)))))) + _%L151402%_)) + (gxc#case-lambda-expr? + _%L151401%_)) + (_%__kont164900164901%_ + _%L151401%_ + _%L151402%_) + (_%__match164951164952%_ + _%e150839151377%_ + _%hd150838151380%_ + _%tl150837151382%_ + _%e150842151385%_ + _%hd150841151388%_ + _%tl150840151390%_ + _%e150845151393%_ + _%hd150844151396%_ + _%tl150843151398%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx165797165798%_)) - (let ((_%e151729152267%_ + _%__stx164898164899%_)) + (let ((_%e150839151377%_ (let () (declare (not safe)) (gx#stx-e - _%__stx165797165798%_)))) - (let ((_%tl151727152272%_ + _%__stx164898164899%_)))) + (let ((_%tl150837151382%_ (let () (declare (not safe)) - (##cdr _%e151729152267%_))) - (_%hd151728152270%_ + (##cdr _%e150839151377%_))) + (_%hd150838151380%_ (let () (declare (not safe)) - (##car _%e151729152267%_)))) + (##car _%e150839151377%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd151728152270%_)) - (let ((_%e151732152275%_ + _%hd150838151380%_)) + (let ((_%e150842151385%_ (let () (declare (not safe)) (gx#stx-e - _%hd151728152270%_)))) - (let ((_%tl151730152280%_ + _%hd150838151380%_)))) + (let ((_%tl150840151390%_ (let () (declare (not safe)) - (##cdr _%e151732152275%_))) - (_%hd151731152278%_ + (##cdr _%e150842151385%_))) + (_%hd150841151388%_ (let () (declare (not safe)) - (##car _%e151732152275%_)))) + (##car _%e150842151385%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151730152280%_)) + _%tl150840151390%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl151727152272%_)) - (let ((_%e151735152283%_ + (gx#stx-pair? _%tl150837151382%_)) + (let ((_%e150845151393%_ (let () (declare (not safe)) - (gx#stx-e _%tl151727152272%_)))) - (let ((_%tl151733152288%_ + (gx#stx-e _%tl150837151382%_)))) + (let ((_%tl150843151398%_ (let () (declare (not safe)) - (##cdr _%e151735152283%_))) - (_%hd151734152286%_ + (##cdr _%e150845151393%_))) + (_%hd150844151396%_ (let () (declare (not safe)) - (##car _%e151735152283%_)))) + (##car _%e150845151393%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151733152288%_)) - (_%__match165828165829%_ - _%e151729152267%_ - _%hd151728152270%_ - _%tl151727152272%_ - _%e151732152275%_ - _%hd151731152278%_ - _%tl151730152280%_ - _%e151735152283%_ - _%hd151734152286%_ - _%tl151733152288%_) + (gx#stx-null? _%tl150843151398%_)) + (_%__match164929164930%_ + _%e150839151377%_ + _%hd150838151380%_ + _%tl150837151382%_ + _%e150842151385%_ + _%hd150841151388%_ + _%tl150840151390%_ + _%e150845151393%_ + _%hd150844151396%_ + _%tl150843151398%_) (let () (declare (not safe)) - (_%g151723151770%_))))) - (let () (declare (not safe)) (_%g151723151770%_))) + (_%g150833150880%_))))) + (let () (declare (not safe)) (_%g150833150880%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151727152272%_)) - (let ((_%e151765151783%_ + (gx#stx-pair? _%tl150837151382%_)) + (let ((_%e150875150893%_ (let () (declare (not safe)) - (gx#stx-e _%tl151727152272%_)))) - (let ((_%tl151763151788%_ + (gx#stx-e _%tl150837151382%_)))) + (let ((_%tl150873150898%_ (let () (declare (not safe)) - (##cdr _%e151765151783%_))) - (_%hd151764151786%_ + (##cdr _%e150875150893%_))) + (_%hd150874150896%_ (let () (declare (not safe)) - (##car _%e151765151783%_)))) + (##car _%e150875150893%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151763151788%_)) - (_%__kont165805165806%_ - _%hd151764151786%_ - _%hd151728152270%_) + (gx#stx-null? _%tl150873150898%_)) + (_%__kont164906164907%_ + _%hd150874150896%_ + _%hd150838151380%_) (let () (declare (not safe)) - (_%g151723151770%_))))) - (let () (declare (not safe)) (_%g151723151770%_)))))) + (_%g150833150880%_))))) + (let () (declare (not safe)) (_%g150833150880%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl151727152272%_)) - (let ((_%e151765151783%_ + _%tl150837151382%_)) + (let ((_%e150875150893%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl151727152272%_)))) - (let ((_%tl151763151788%_ + (gx#stx-e _%tl150837151382%_)))) + (let ((_%tl150873150898%_ (let () (declare (not safe)) - (##cdr _%e151765151783%_))) - (_%hd151764151786%_ + (##cdr _%e150875150893%_))) + (_%hd150874150896%_ (let () (declare (not safe)) - (##car _%e151765151783%_)))) + (##car _%e150875150893%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151763151788%_)) - (_%__kont165805165806%_ - _%hd151764151786%_ - _%hd151728152270%_) - (let () (declare (not safe)) (_%g151723151770%_))))) - (let () (declare (not safe)) (_%g151723151770%_)))))) + (gx#stx-null? _%tl150873150898%_)) + (_%__kont164906164907%_ + _%hd150874150896%_ + _%hd150838151380%_) + (let () (declare (not safe)) (_%g150833150880%_))))) + (let () (declare (not safe)) (_%g150833150880%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g151723151770%_))))))))) + (_%g150833150880%_))))))))) (if (let () (declare (not safe)) - (##pair? _%rest151698151706%_)) - (let ((_%hd151703152388%_ + (##pair? _%rest150808150816%_)) + (let ((_%hd150813151498%_ (let () (declare (not safe)) - (##car _%rest151698151706%_))) - (_%tl151704152390%_ + (##car _%rest150808150816%_))) + (_%tl150814151500%_ (let () (declare (not safe)) - (##cdr _%rest151698151706%_)))) - (let* ((_%hd152393%_ _%hd151703152388%_) - (_%rest152395%_ _%tl151704152390%_)) - (declare (not safe)) - (_%K151702152385%_ - _%rest152395%_ - _%hd152393%_))) - (let () - (declare (not safe)) - (_%else151700151714%_)))))))) - (let* ((_%__stx165889165890%_ _%stx151554%_) - (_%g151560151587%_ + (##cdr _%rest150808150816%_)))) + (let* ((_%hd151503%_ _%hd150813151498%_) + (_%rest151505%_ _%tl150814151500%_)) + (_%K150812151495%_ + _%rest151505%_ + _%hd151503%_))) + (_%else150810150824%_))))))) + (let* ((_%__stx164990164991%_ _%stx150664%_) + (_%g150670150697%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx165889165890%_))))) - (let ((_%__kont165891165892%_ - (lambda (_%L151647%_ _%L151648%_ _%L151649%_) - (let ((__tmp166329 + _%__stx164990164991%_))))) + (let ((_%__kont164992164993%_ + (lambda (_%L150757%_ _%L150758%_ _%L150759%_) + (let ((__tmp165360 (lambda () - (let ((_%hd151686%_ - (let ((__tmp166330 - (let ((__tmp166331 - (lambda (_%g151678151681%_ - _%g151679151683%_) - (cons _%g151678151681%_ - _%g151679151683%_)))) - (declare (not safe)) - (__foldr1 - __tmp166331 - '() - _%L151648%_)))) - (declare (not safe)) - (_%compile-bindings151557%_ - __tmp166330))) - (_%body151687%_ + (let ((_%hd150796%_ + (_%compile-bindings150667%_ + (let ((__tmp165361 + (lambda (_%g150788150791%_ + _%g150789150793%_) + (cons _%g150788150791%_ + _%g150789150793%_)))) + (declare (not safe)) + (__foldr1 + __tmp165361 + '() + _%L150758%_)))) + (_%body150797%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self151553%_ - _%L151647%_)))) - (let ((__tmp166332 - (cons _%L151649%_ - (cons _%hd151686%_ - (cons _%body151687%_ + _%self150663%_ + _%L150757%_)))) + (let ((__tmp165362 + (cons _%L150759%_ + (cons _%hd150796%_ + (cons _%body150797%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp166332 - _%stx151554%_))))) - (__tmp166328 - (let ((__obj165996 + __tmp165362 + _%stx150664%_))))) + (__tmp165359 + (let ((__obj165098 (let () (declare (not safe)) (##structure @@ -20716,262 +19705,249 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj165996) - __obj165996))) + (gx#local-context:::init! __obj165098) + __obj165098))) (declare (not safe)) (__call-with-parameters - __tmp166329 + __tmp165360 gx#current-expander-context - __tmp166328)))) - (_%__kont165895165896%_ + __tmp165359)))) + (_%__kont164996164997%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self151553%_ _%stx151554%_))))) - (let ((_%__match165916165917%_ - (lambda (_%e151567151599%_ - _%hd151566151602%_ - _%tl151565151604%_ - _%e151570151607%_ - _%hd151569151610%_ - _%tl151568151612%_ - _%__splice165893165894%_ - _%target151571151615%_ - _%tl151573151617%_) - (letrec ((_%loop151574151620%_ - (lambda (_%hd151572151623%_ - _%bind151578151625%_) + (gxc#xform-let-values% _%self150663%_ _%stx150664%_))))) + (let ((_%__match165017165018%_ + (lambda (_%e150677150709%_ + _%hd150676150712%_ + _%tl150675150714%_ + _%e150680150717%_ + _%hd150679150720%_ + _%tl150678150722%_ + _%__splice164994164995%_ + _%target150681150725%_ + _%tl150683150727%_) + (letrec ((_%loop150684150730%_ + (lambda (_%hd150682150733%_ + _%bind150688150735%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd151572151623%_)) - (let ((_%e151575151628%_ + (gx#stx-pair? _%hd150682150733%_)) + (let ((_%e150685150738%_ (let () (declare (not safe)) (gx#stx-e - _%hd151572151623%_)))) - (let ((_%lp-tl151577151633%_ + _%hd150682150733%_)))) + (let ((_%lp-tl150687150743%_ (let () (declare (not safe)) - (##cdr _%e151575151628%_))) - (_%lp-hd151576151631%_ + (##cdr _%e150685150738%_))) + (_%lp-hd150686150741%_ (let () (declare (not safe)) - (##car _%e151575151628%_)))) - (let ((__tmp166333 - (cons _%lp-hd151576151631%_ - _%bind151578151625%_))) - (declare (not safe)) - (_%loop151574151620%_ - _%lp-tl151577151633%_ - __tmp166333)))) - (let ((_%bind151579151636%_ - (reverse _%bind151578151625%_))) + (##car _%e150685150738%_)))) + (_%loop150684150730%_ + _%lp-tl150687150743%_ + (cons _%lp-hd150686150741%_ + _%bind150688150735%_)))) + (let ((_%bind150689150746%_ + (reverse _%bind150688150735%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl151568151612%_)) - (let ((_%e151582151639%_ + _%tl150678150722%_)) + (let ((_%e150692150749%_ (let () (declare (not safe)) (gx#stx-e - _%tl151568151612%_)))) - (let ((_%tl151580151644%_ + _%tl150678150722%_)))) + (let ((_%tl150690150754%_ (let () (declare (not safe)) - (##cdr _%e151582151639%_))) - (_%hd151581151642%_ + (##cdr _%e150692150749%_))) + (_%hd150691150752%_ (let () (declare (not safe)) - (##car _%e151582151639%_)))) + (##car _%e150692150749%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151580151644%_)) - (let ((_%L151647%_ - _%hd151581151642%_) - (_%L151648%_ - _%bind151579151636%_) - (_%L151649%_ - _%hd151566151602%_)) - (if (let ((__tmp166334 + _%tl150690150754%_)) + (let ((_%L150757%_ + _%hd150691150752%_) + (_%L150758%_ + _%bind150689150746%_) + (_%L150759%_ + _%hd150676150712%_)) + (if (let ((__tmp165363 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp166335 - (lambda (_%g151670151673%_ _%g151671151675%_) - (cons _%g151670151673%_ - _%g151671151675%_)))) + (let ((__tmp165364 + (lambda (_%g150780150783%_ _%g150781150785%_) + (cons _%g150780150783%_ + _%g150781150785%_)))) (declare (not safe)) - (__foldr1 __tmp166335 '() _%L151648%_)))) + (__foldr1 __tmp165364 '() _%L150758%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp166334)) - (_%__kont165891165892%_ _%L151647%_ _%L151648%_ _%L151649%_) - (_%__kont165895165896%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp165363)) + (_%__kont164992164993%_ _%L150757%_ _%L150758%_ _%L150759%_) + (_%__kont164996164997%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont165895165896%_)))) - (_%__kont165895165896%_))))))) - (let () - (declare (not safe)) - (_%loop151574151620%_ - _%target151571151615%_ - '())))))) + (_%__kont164996164997%_)))) + (_%__kont164996164997%_))))))) + (_%loop150684150730%_ _%target150681150725%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx165889165890%_)) - (let ((_%e151567151599%_ + (gx#stx-pair? _%__stx164990164991%_)) + (let ((_%e150677150709%_ (let () (declare (not safe)) - (gx#stx-e _%__stx165889165890%_)))) - (let ((_%tl151565151604%_ + (gx#stx-e _%__stx164990164991%_)))) + (let ((_%tl150675150714%_ (let () (declare (not safe)) - (##cdr _%e151567151599%_))) - (_%hd151566151602%_ + (##cdr _%e150677150709%_))) + (_%hd150676150712%_ (let () (declare (not safe)) - (##car _%e151567151599%_)))) + (##car _%e150677150709%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151565151604%_)) - (let ((_%e151570151607%_ + (gx#stx-pair? _%tl150675150714%_)) + (let ((_%e150680150717%_ (let () (declare (not safe)) - (gx#stx-e _%tl151565151604%_)))) - (let ((_%tl151568151612%_ + (gx#stx-e _%tl150675150714%_)))) + (let ((_%tl150678150722%_ (let () (declare (not safe)) - (##cdr _%e151570151607%_))) - (_%hd151569151610%_ + (##cdr _%e150680150717%_))) + (_%hd150679150720%_ (let () (declare (not safe)) - (##car _%e151570151607%_)))) + (##car _%e150680150717%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd151569151610%_)) - (let ((_%__splice165893165894%_ + (gx#stx-pair/null? _%hd150679150720%_)) + (let ((_%__splice164994164995%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd151569151610%_ + _%hd150679150720%_ '0)))) - (let ((_%tl151573151617%_ + (let ((_%tl150683150727%_ (let () (declare (not safe)) (##vector-ref - _%__splice165893165894%_ + _%__splice164994164995%_ '1))) - (_%target151571151615%_ + (_%target150681150725%_ (let () (declare (not safe)) (##vector-ref - _%__splice165893165894%_ + _%__splice164994164995%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151573151617%_)) - (_%__match165916165917%_ - _%e151567151599%_ - _%hd151566151602%_ - _%tl151565151604%_ - _%e151570151607%_ - _%hd151569151610%_ - _%tl151568151612%_ - _%__splice165893165894%_ - _%target151571151615%_ - _%tl151573151617%_) - (_%__kont165895165896%_)))) - (_%__kont165895165896%_)))) - (_%__kont165895165896%_)))) - (_%__kont165895165896%_)))))))) + _%tl150683150727%_)) + (_%__match165017165018%_ + _%e150677150709%_ + _%hd150676150712%_ + _%tl150675150714%_ + _%e150680150717%_ + _%hd150679150720%_ + _%tl150678150722%_ + _%__splice164994164995%_ + _%target150681150725%_ + _%tl150683150727%_) + (_%__kont164996164997%_)))) + (_%__kont164996164997%_)))) + (_%__kont164996164997%_)))) + (_%__kont164996164997%_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_%bind151471%_) - (let* ((_%__stx165919165920%_ _%bind151471%_) - (_%g151474151491%_ + (lambda (_%bind150581%_) + (let* ((_%__stx165020165021%_ _%bind150581%_) + (_%g150584150601%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx165919165920%_))))) - (let ((_%__kont165921165922%_ - (lambda (_%L151527%_ _%L151528%_) + _%__stx165020165021%_))))) + (let ((_%__kont165022165023%_ + (lambda (_%L150637%_ _%L150638%_) (if (let () (declare (not safe)) - (gx#identifier? _%L151528%_)) - (let ((_%$e151544%_ - (let () - (declare (not safe)) - (gxc#case-lambda-expr? _%L151527%_)))) - (if _%$e151544%_ - _%$e151544%_ - (let ((_%$e151547%_ - (let () - (declare (not safe)) - (gxc#opt-lambda-expr? _%L151527%_)))) - (if _%$e151547%_ - _%$e151547%_ - (let () - (declare (not safe)) - (gxc#kw-lambda-expr? _%L151527%_)))))) + (gx#identifier? _%L150638%_)) + (let ((_%$e150654%_ + (gxc#case-lambda-expr? _%L150637%_))) + (if _%$e150654%_ + _%$e150654%_ + (let ((_%$e150657%_ + (gxc#opt-lambda-expr? _%L150637%_))) + (if _%$e150657%_ + _%$e150657%_ + (gxc#kw-lambda-expr? _%L150637%_))))) '#f))) - (_%__kont165923165924%_ (lambda () '#f))) + (_%__kont165024165025%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx165919165920%_)) - (let ((_%e151480151503%_ + (gx#stx-pair? _%__stx165020165021%_)) + (let ((_%e150590150613%_ (let () (declare (not safe)) - (gx#stx-e _%__stx165919165920%_)))) - (let ((_%tl151478151508%_ + (gx#stx-e _%__stx165020165021%_)))) + (let ((_%tl150588150618%_ (let () (declare (not safe)) - (##cdr _%e151480151503%_))) - (_%hd151479151506%_ + (##cdr _%e150590150613%_))) + (_%hd150589150616%_ (let () (declare (not safe)) - (##car _%e151480151503%_)))) + (##car _%e150590150613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd151479151506%_)) - (let ((_%e151483151511%_ + (gx#stx-pair? _%hd150589150616%_)) + (let ((_%e150593150621%_ (let () (declare (not safe)) - (gx#stx-e _%hd151479151506%_)))) - (let ((_%tl151481151516%_ + (gx#stx-e _%hd150589150616%_)))) + (let ((_%tl150591150626%_ (let () (declare (not safe)) - (##cdr _%e151483151511%_))) - (_%hd151482151514%_ + (##cdr _%e150593150621%_))) + (_%hd150592150624%_ (let () (declare (not safe)) - (##car _%e151483151511%_)))) + (##car _%e150593150621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151481151516%_)) + (gx#stx-null? _%tl150591150626%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151478151508%_)) - (let ((_%e151486151519%_ + (gx#stx-pair? _%tl150588150618%_)) + (let ((_%e150596150629%_ (let () (declare (not safe)) - (gx#stx-e _%tl151478151508%_)))) - (let ((_%tl151484151524%_ + (gx#stx-e _%tl150588150618%_)))) + (let ((_%tl150594150634%_ (let () (declare (not safe)) - (##cdr _%e151486151519%_))) - (_%hd151485151522%_ + (##cdr _%e150596150629%_))) + (_%hd150595150632%_ (let () (declare (not safe)) - (##car _%e151486151519%_)))) + (##car _%e150596150629%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151484151524%_)) - (_%__kont165921165922%_ - _%hd151485151522%_ - _%hd151482151514%_) - (_%__kont165923165924%_)))) - (_%__kont165923165924%_)) - (_%__kont165923165924%_)))) - (_%__kont165923165924%_)))) - (_%__kont165923165924%_)))))))) + _%tl150594150634%_)) + (_%__kont165022165023%_ + _%hd150595150632%_ + _%hd150592150624%_) + (_%__kont165024165025%_)))) + (_%__kont165024165025%_)) + (_%__kont165024165025%_)))) + (_%__kont165024165025%_)))) + (_%__kont165024165025%_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~1.scm b/src/bootstrap/gerbil/compiler/optimize-top~1.scm index bd6da51eb..c21bef767 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top~1.scm @@ -1,195 +1,195 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g166337_| + (define |gxc[1]#_g165366_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166339_| + (define |gxc[1]#_g165368_| (##structure gx#syntax-quote::t '::collect-top-level-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166341_| + (define |gxc[1]#_g165370_| (##structure gx#syntax-quote::t 'make-::collect-top-level-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166343_| + (define |gxc[1]#_g165372_| (##structure gx#syntax-quote::t '::collect-top-level-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166346_| + (define |gxc[1]#_g165375_| (##structure gx#syntax-quote::t '::collect-top-level-declarations::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166348_| + (define |gxc[1]#_g165377_| (##structure gx#syntax-quote::t 'make-::collect-top-level-declarations #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166350_| + (define |gxc[1]#_g165379_| (##structure gx#syntax-quote::t '::collect-top-level-declarations? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166352_| + (define |gxc[1]#_g165381_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166354_| + (define |gxc[1]#_g165383_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166356_| + (define |gxc[1]#_g165385_| (##structure gx#syntax-quote::t 'make-::basic-expression-top-level-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166358_| + (define |gxc[1]#_g165387_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166361_| + (define |gxc[1]#_g165390_| (##structure gx#syntax-quote::t '::collect-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166363_| + (define |gxc[1]#_g165392_| (##structure gx#syntax-quote::t 'make-::collect-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166365_| + (define |gxc[1]#_g165394_| (##structure gx#syntax-quote::t '::collect-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166368_| + (define |gxc[1]#_g165397_| (##structure gx#syntax-quote::t '::raw-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166370_| + (define |gxc[1]#_g165399_| (##structure gx#syntax-quote::t 'make-::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166372_| + (define |gxc[1]#_g165401_| (##structure gx#syntax-quote::t '::raw-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166374_| + (define |gxc[1]#_g165403_| (##structure gx#syntax-quote::t '::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166376_| + (define |gxc[1]#_g165405_| (##structure gx#syntax-quote::t '::basic-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166378_| + (define |gxc[1]#_g165407_| (##structure gx#syntax-quote::t 'make-::basic-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166380_| + (define |gxc[1]#_g165409_| (##structure gx#syntax-quote::t '::basic-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166382_| + (define |gxc[1]#_g165411_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166384_| + (define |gxc[1]#_g165413_| (##structure gx#syntax-quote::t '::lift-top-lambdas::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166386_| + (define |gxc[1]#_g165415_| (##structure gx#syntax-quote::t 'make-::lift-top-lambdas #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166388_| + (define |gxc[1]#_g165417_| (##structure gx#syntax-quote::t '::lift-top-lambdas? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166391_| + (define |gxc[1]#_g165420_| (##structure gx#syntax-quote::t '::extract-lambda-signature::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166393_| + (define |gxc[1]#_g165422_| (##structure gx#syntax-quote::t 'make-::extract-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g166395_| + (define |gxc[1]#_g165424_| (##structure gx#syntax-quote::t '::extract-lambda-signature? @@ -198,7 +198,7 @@ '())) (begin (define |gxc[:0:]#::collect-top-level-type-info| - (let ((__obj165948 + (let ((__obj165049 (let () (declare (not safe)) (##structure @@ -227,7 +227,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165948 + __obj165049 'gxc#::collect-top-level-type-info::t '1 '#f @@ -235,65 +235,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165948 + __obj165049 '::collect-top-level-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165948 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj165049 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165948 '() '6 '#f '#f)) - (let ((__tmp166336 (cons |gxc[1]#_g166337_| '()))) + (##unchecked-structure-set! __obj165049 '() '6 '#f '#f)) + (let ((__tmp165365 (cons |gxc[1]#_g165366_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj165948 __tmp166336 '3 '#f '#f)) + (##unchecked-structure-set! __obj165049 __tmp165365 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165948 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj165049 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165948 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj165049 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165948 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj165049 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165948 '#f '11 '#f '#f)) - (let ((__tmp166338 |gxc[1]#_g166339_|)) + (##unchecked-structure-set! __obj165049 '#f '11 '#f '#f)) + (let ((__tmp165367 |gxc[1]#_g165368_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165948 __tmp166338 '12 '#f '#f)) - (let ((__tmp166340 |gxc[1]#_g166341_|)) + (##unchecked-structure-set! __obj165049 __tmp165367 '12 '#f '#f)) + (let ((__tmp165369 |gxc[1]#_g165370_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165948 __tmp166340 '13 '#f '#f)) - (let ((__tmp166342 |gxc[1]#_g166343_|)) + (##unchecked-structure-set! __obj165049 __tmp165369 '13 '#f '#f)) + (let ((__tmp165371 |gxc[1]#_g165372_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165948 __tmp166342 '14 '#f '#f)) + (##unchecked-structure-set! __obj165049 __tmp165371 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165948 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj165049 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165948 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj165049 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165948 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj165049 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165948 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj165049 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165948 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj165049 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165948 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj165049 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165948 '() '20 '#f '#f)) - __obj165948)) + (##unchecked-structure-set! __obj165049 '() '20 '#f '#f)) + __obj165049)) (define |gxc[:0:]#::collect-top-level-declarations| - (let ((__obj165950 + (let ((__obj165051 (let () (declare (not safe)) (##structure @@ -322,7 +322,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165950 + __obj165051 'gxc#::collect-top-level-declarations::t '1 '#f @@ -330,65 +330,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165950 + __obj165051 '::collect-top-level-declarations '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165950 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj165051 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165950 '() '6 '#f '#f)) - (let ((__tmp166344 (cons |gxc[1]#_g166337_| '()))) + (##unchecked-structure-set! __obj165051 '() '6 '#f '#f)) + (let ((__tmp165373 (cons |gxc[1]#_g165366_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj165950 __tmp166344 '3 '#f '#f)) + (##unchecked-structure-set! __obj165051 __tmp165373 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165950 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj165051 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165950 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj165051 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165950 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj165051 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165950 '#f '11 '#f '#f)) - (let ((__tmp166345 |gxc[1]#_g166346_|)) + (##unchecked-structure-set! __obj165051 '#f '11 '#f '#f)) + (let ((__tmp165374 |gxc[1]#_g165375_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165950 __tmp166345 '12 '#f '#f)) - (let ((__tmp166347 |gxc[1]#_g166348_|)) + (##unchecked-structure-set! __obj165051 __tmp165374 '12 '#f '#f)) + (let ((__tmp165376 |gxc[1]#_g165377_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165950 __tmp166347 '13 '#f '#f)) - (let ((__tmp166349 |gxc[1]#_g166350_|)) + (##unchecked-structure-set! __obj165051 __tmp165376 '13 '#f '#f)) + (let ((__tmp165378 |gxc[1]#_g165379_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165950 __tmp166349 '14 '#f '#f)) + (##unchecked-structure-set! __obj165051 __tmp165378 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165950 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj165051 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165950 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj165051 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165950 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj165051 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165950 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj165051 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165950 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj165051 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165950 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj165051 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165950 '() '20 '#f '#f)) - __obj165950)) + (##unchecked-structure-set! __obj165051 '() '20 '#f '#f)) + __obj165051)) (define |gxc[:0:]#::basic-expression-top-level-type| - (let ((__obj165952 + (let ((__obj165053 (let () (declare (not safe)) (##structure @@ -417,7 +417,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165952 + __obj165053 'gxc#::basic-expression-top-level-type::t '1 '#f @@ -425,65 +425,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165952 + __obj165053 '::basic-expression-top-level-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165952 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj165053 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165952 '() '6 '#f '#f)) - (let ((__tmp166351 (cons |gxc[1]#_g166352_| '()))) + (##unchecked-structure-set! __obj165053 '() '6 '#f '#f)) + (let ((__tmp165380 (cons |gxc[1]#_g165381_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj165952 __tmp166351 '3 '#f '#f)) + (##unchecked-structure-set! __obj165053 __tmp165380 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165952 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj165053 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165952 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj165053 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165952 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj165053 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165952 '#f '11 '#f '#f)) - (let ((__tmp166353 |gxc[1]#_g166354_|)) + (##unchecked-structure-set! __obj165053 '#f '11 '#f '#f)) + (let ((__tmp165382 |gxc[1]#_g165383_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165952 __tmp166353 '12 '#f '#f)) - (let ((__tmp166355 |gxc[1]#_g166356_|)) + (##unchecked-structure-set! __obj165053 __tmp165382 '12 '#f '#f)) + (let ((__tmp165384 |gxc[1]#_g165385_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165952 __tmp166355 '13 '#f '#f)) - (let ((__tmp166357 |gxc[1]#_g166358_|)) + (##unchecked-structure-set! __obj165053 __tmp165384 '13 '#f '#f)) + (let ((__tmp165386 |gxc[1]#_g165387_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165952 __tmp166357 '14 '#f '#f)) + (##unchecked-structure-set! __obj165053 __tmp165386 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165952 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj165053 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165952 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj165053 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165952 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj165053 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165952 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj165053 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165952 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj165053 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165952 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj165053 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165952 '() '20 '#f '#f)) - __obj165952)) + (##unchecked-structure-set! __obj165053 '() '20 '#f '#f)) + __obj165053)) (define |gxc[:0:]#::collect-type-info| - (let ((__obj165954 + (let ((__obj165055 (let () (declare (not safe)) (##structure @@ -512,7 +512,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165954 + __obj165055 'gxc#::collect-type-info::t '1 '#f @@ -520,65 +520,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165954 + __obj165055 '::collect-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165954 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj165055 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165954 '() '6 '#f '#f)) - (let ((__tmp166359 (cons |gxc[1]#_g166337_| '()))) + (##unchecked-structure-set! __obj165055 '() '6 '#f '#f)) + (let ((__tmp165388 (cons |gxc[1]#_g165366_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj165954 __tmp166359 '3 '#f '#f)) + (##unchecked-structure-set! __obj165055 __tmp165388 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165954 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj165055 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165954 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj165055 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165954 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj165055 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165954 '#f '11 '#f '#f)) - (let ((__tmp166360 |gxc[1]#_g166361_|)) + (##unchecked-structure-set! __obj165055 '#f '11 '#f '#f)) + (let ((__tmp165389 |gxc[1]#_g165390_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165954 __tmp166360 '12 '#f '#f)) - (let ((__tmp166362 |gxc[1]#_g166363_|)) + (##unchecked-structure-set! __obj165055 __tmp165389 '12 '#f '#f)) + (let ((__tmp165391 |gxc[1]#_g165392_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165954 __tmp166362 '13 '#f '#f)) - (let ((__tmp166364 |gxc[1]#_g166365_|)) + (##unchecked-structure-set! __obj165055 __tmp165391 '13 '#f '#f)) + (let ((__tmp165393 |gxc[1]#_g165394_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165954 __tmp166364 '14 '#f '#f)) + (##unchecked-structure-set! __obj165055 __tmp165393 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165954 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj165055 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165954 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj165055 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165954 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj165055 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165954 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj165055 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165954 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj165055 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165954 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj165055 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165954 '() '20 '#f '#f)) - __obj165954)) + (##unchecked-structure-set! __obj165055 '() '20 '#f '#f)) + __obj165055)) (define |gxc[:0:]#::raw-expression-type| - (let ((__obj165956 + (let ((__obj165057 (let () (declare (not safe)) (##structure @@ -607,7 +607,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165956 + __obj165057 'gxc#::raw-expression-type::t '1 '#f @@ -615,65 +615,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165956 + __obj165057 '::raw-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165956 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj165057 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165956 '() '6 '#f '#f)) - (let ((__tmp166366 (cons |gxc[1]#_g166352_| '()))) + (##unchecked-structure-set! __obj165057 '() '6 '#f '#f)) + (let ((__tmp165395 (cons |gxc[1]#_g165381_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj165956 __tmp166366 '3 '#f '#f)) + (##unchecked-structure-set! __obj165057 __tmp165395 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165956 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj165057 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165956 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj165057 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165956 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj165057 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165956 '#f '11 '#f '#f)) - (let ((__tmp166367 |gxc[1]#_g166368_|)) + (##unchecked-structure-set! __obj165057 '#f '11 '#f '#f)) + (let ((__tmp165396 |gxc[1]#_g165397_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165956 __tmp166367 '12 '#f '#f)) - (let ((__tmp166369 |gxc[1]#_g166370_|)) + (##unchecked-structure-set! __obj165057 __tmp165396 '12 '#f '#f)) + (let ((__tmp165398 |gxc[1]#_g165399_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165956 __tmp166369 '13 '#f '#f)) - (let ((__tmp166371 |gxc[1]#_g166372_|)) + (##unchecked-structure-set! __obj165057 __tmp165398 '13 '#f '#f)) + (let ((__tmp165400 |gxc[1]#_g165401_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165956 __tmp166371 '14 '#f '#f)) + (##unchecked-structure-set! __obj165057 __tmp165400 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165956 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj165057 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165956 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj165057 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165956 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj165057 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165956 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj165057 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165956 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj165057 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165956 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj165057 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165956 '() '20 '#f '#f)) - __obj165956)) + (##unchecked-structure-set! __obj165057 '() '20 '#f '#f)) + __obj165057)) (define |gxc[:0:]#::basic-expression-type| - (let ((__obj165958 + (let ((__obj165059 (let () (declare (not safe)) (##structure @@ -702,7 +702,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165958 + __obj165059 'gxc#::basic-expression-type::t '1 '#f @@ -710,66 +710,66 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165958 + __obj165059 '::basic-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165958 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj165059 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165958 '() '6 '#f '#f)) - (let ((__tmp166373 - (cons |gxc[1]#_g166374_| (cons |gxc[1]#_g166352_| '())))) + (##unchecked-structure-set! __obj165059 '() '6 '#f '#f)) + (let ((__tmp165402 + (cons |gxc[1]#_g165403_| (cons |gxc[1]#_g165381_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj165958 __tmp166373 '3 '#f '#f)) + (##unchecked-structure-set! __obj165059 __tmp165402 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165958 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj165059 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165958 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj165059 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165958 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj165059 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165958 '#f '11 '#f '#f)) - (let ((__tmp166375 |gxc[1]#_g166376_|)) + (##unchecked-structure-set! __obj165059 '#f '11 '#f '#f)) + (let ((__tmp165404 |gxc[1]#_g165405_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165958 __tmp166375 '12 '#f '#f)) - (let ((__tmp166377 |gxc[1]#_g166378_|)) + (##unchecked-structure-set! __obj165059 __tmp165404 '12 '#f '#f)) + (let ((__tmp165406 |gxc[1]#_g165407_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165958 __tmp166377 '13 '#f '#f)) - (let ((__tmp166379 |gxc[1]#_g166380_|)) + (##unchecked-structure-set! __obj165059 __tmp165406 '13 '#f '#f)) + (let ((__tmp165408 |gxc[1]#_g165409_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165958 __tmp166379 '14 '#f '#f)) + (##unchecked-structure-set! __obj165059 __tmp165408 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165958 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj165059 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165958 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj165059 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165958 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj165059 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165958 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj165059 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165958 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj165059 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165958 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj165059 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165958 '() '20 '#f '#f)) - __obj165958)) + (##unchecked-structure-set! __obj165059 '() '20 '#f '#f)) + __obj165059)) (define |gxc[:0:]#::lift-top-lambdas| - (let ((__obj165960 + (let ((__obj165061 (let () (declare (not safe)) (##structure @@ -798,7 +798,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165960 + __obj165061 'gxc#::lift-top-lambdas::t '1 '#f @@ -806,65 +806,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165960 + __obj165061 '::lift-top-lambdas '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165960 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj165061 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165960 '() '6 '#f '#f)) - (let ((__tmp166381 (cons |gxc[1]#_g166382_| '()))) + (##unchecked-structure-set! __obj165061 '() '6 '#f '#f)) + (let ((__tmp165410 (cons |gxc[1]#_g165411_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj165960 __tmp166381 '3 '#f '#f)) + (##unchecked-structure-set! __obj165061 __tmp165410 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165960 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj165061 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165960 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj165061 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165960 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj165061 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165960 '#f '11 '#f '#f)) - (let ((__tmp166383 |gxc[1]#_g166384_|)) + (##unchecked-structure-set! __obj165061 '#f '11 '#f '#f)) + (let ((__tmp165412 |gxc[1]#_g165413_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165960 __tmp166383 '12 '#f '#f)) - (let ((__tmp166385 |gxc[1]#_g166386_|)) + (##unchecked-structure-set! __obj165061 __tmp165412 '12 '#f '#f)) + (let ((__tmp165414 |gxc[1]#_g165415_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165960 __tmp166385 '13 '#f '#f)) - (let ((__tmp166387 |gxc[1]#_g166388_|)) + (##unchecked-structure-set! __obj165061 __tmp165414 '13 '#f '#f)) + (let ((__tmp165416 |gxc[1]#_g165417_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165960 __tmp166387 '14 '#f '#f)) + (##unchecked-structure-set! __obj165061 __tmp165416 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165960 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj165061 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165960 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj165061 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165960 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj165061 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165960 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj165061 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165960 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj165061 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165960 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj165061 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165960 '() '20 '#f '#f)) - __obj165960)) + (##unchecked-structure-set! __obj165061 '() '20 '#f '#f)) + __obj165061)) (define |gxc[:0:]#::extract-lambda-signature| - (let ((__obj165962 + (let ((__obj165063 (let () (declare (not safe)) (##structure @@ -893,7 +893,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165962 + __obj165063 'gxc#::extract-lambda-signature::t '1 '#f @@ -901,189 +901,189 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165962 + __obj165063 '::extract-lambda-signature '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165962 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj165063 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165962 '() '6 '#f '#f)) - (let ((__tmp166389 (cons |gxc[1]#_g166352_| '()))) + (##unchecked-structure-set! __obj165063 '() '6 '#f '#f)) + (let ((__tmp165418 (cons |gxc[1]#_g165381_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj165962 __tmp166389 '3 '#f '#f)) + (##unchecked-structure-set! __obj165063 __tmp165418 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165962 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj165063 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165962 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj165063 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165962 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj165063 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165962 '#f '11 '#f '#f)) - (let ((__tmp166390 |gxc[1]#_g166391_|)) + (##unchecked-structure-set! __obj165063 '#f '11 '#f '#f)) + (let ((__tmp165419 |gxc[1]#_g165420_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165962 __tmp166390 '12 '#f '#f)) - (let ((__tmp166392 |gxc[1]#_g166393_|)) + (##unchecked-structure-set! __obj165063 __tmp165419 '12 '#f '#f)) + (let ((__tmp165421 |gxc[1]#_g165422_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165962 __tmp166392 '13 '#f '#f)) - (let ((__tmp166394 |gxc[1]#_g166395_|)) + (##unchecked-structure-set! __obj165063 __tmp165421 '13 '#f '#f)) + (let ((__tmp165423 |gxc[1]#_g165424_|)) (declare (not safe)) - (##unchecked-structure-set! __obj165962 __tmp166394 '14 '#f '#f)) + (##unchecked-structure-set! __obj165063 __tmp165423 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165962 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj165063 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165962 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj165063 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165962 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj165063 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165962 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj165063 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165962 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj165063 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165962 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj165063 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj165962 '() '20 '#f '#f)) - __obj165962)) + (##unchecked-structure-set! __obj165063 '() '20 '#f '#f)) + __obj165063)) (define |gxc[:0:]#defbasic-expression-type-annotations| - (lambda (_%$stx151194%_) - (let* ((_%g151198151227%_ - (lambda (_%g151199151223%_) + (lambda (_%$stx150304%_) + (let* ((_%g150308150337%_ + (lambda (_%g150309150333%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151199151223%_)))) - (_%g151197151328%_ - (lambda (_%g151199151231%_) + _%g150309150333%_)))) + (_%g150307150438%_ + (lambda (_%g150309150341%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151199151231%_)) - (let ((_%e151204151234%_ + (gx#stx-pair? _%g150309150341%_)) + (let ((_%e150314150344%_ (let () (declare (not safe)) - (gx#syntax-e _%g151199151231%_)))) - (let ((_%hd151203151238%_ + (gx#syntax-e _%g150309150341%_)))) + (let ((_%hd150313150348%_ (let () (declare (not safe)) - (##car _%e151204151234%_))) - (_%tl151202151241%_ + (##car _%e150314150344%_))) + (_%tl150312150351%_ (let () (declare (not safe)) - (##cdr _%e151204151234%_)))) + (##cdr _%e150314150344%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl151202151241%_)) - (let ((_g166396_ + (gx#stx-pair/null? _%tl150312150351%_)) + (let ((_g165425_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl151202151241%_ + _%tl150312150351%_ '0)))) (begin - (let ((_g166397_ + (let ((_g165426_ (let () (declare (not safe)) - (if (##values? _g166396_) - (##vector-length _g166396_) + (if (##values? _g165425_) + (##vector-length _g165425_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g166397_ 2))) + (##fx= _g165426_ 2))) (error "Context expects 2 values" - _g166397_))) - (let ((_%target151205151244%_ + _g165426_))) + (let ((_%target150315150354%_ (let () (declare (not safe)) - (##vector-ref _g166396_ 0))) - (_%tl151207151247%_ + (##vector-ref _g165425_ 0))) + (_%tl150317150357%_ (let () (declare (not safe)) - (##vector-ref _g166396_ 1)))) + (##vector-ref _g165425_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151207151247%_)) - (letrec ((_%loop151208151250%_ - (lambda (_%hd151206151254%_ - _%type-e151212151257%_ - _%id151213151259%_) + (gx#stx-null? _%tl150317150357%_)) + (letrec ((_%loop150318150360%_ + (lambda (_%hd150316150364%_ + _%type-e150322150367%_ + _%id150323150369%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd151206151254%_)) - (let ((_%e151209151262%_ + _%hd150316150364%_)) + (let ((_%e150319150372%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd151206151254%_)))) - (let ((_%lp-hd151210151266%_ + (gx#syntax-e _%hd150316150364%_)))) + (let ((_%lp-hd150320150376%_ (let () (declare (not safe)) - (##car _%e151209151262%_))) - (_%lp-tl151211151269%_ + (##car _%e150319150372%_))) + (_%lp-tl150321150379%_ (let () (declare (not safe)) - (##cdr _%e151209151262%_)))) + (##cdr _%e150319150372%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd151210151266%_)) - (let ((_%e151218151272%_ + (gx#stx-pair? _%lp-hd150320150376%_)) + (let ((_%e150328150382%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd151210151266%_)))) - (let ((_%hd151217151276%_ + (gx#syntax-e _%lp-hd150320150376%_)))) + (let ((_%hd150327150386%_ (let () (declare (not safe)) - (##car _%e151218151272%_))) - (_%tl151216151279%_ + (##car _%e150328150382%_))) + (_%tl150326150389%_ (let () (declare (not safe)) - (##cdr _%e151218151272%_)))) + (##cdr _%e150328150382%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151216151279%_)) - (let ((_%e151221151282%_ + (gx#stx-pair? _%tl150326150389%_)) + (let ((_%e150331150392%_ (let () (declare (not safe)) - (gx#syntax-e _%tl151216151279%_)))) - (let ((_%hd151220151286%_ + (gx#syntax-e _%tl150326150389%_)))) + (let ((_%hd150330150396%_ (let () (declare (not safe)) - (##car _%e151221151282%_))) - (_%tl151219151289%_ + (##car _%e150331150392%_))) + (_%tl150329150399%_ (let () (declare (not safe)) - (##cdr _%e151221151282%_)))) + (##cdr _%e150331150392%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151219151289%_)) - (_%loop151208151250%_ - _%lp-tl151211151269%_ - (cons _%hd151220151286%_ - _%type-e151212151257%_) - (cons _%hd151217151276%_ - _%id151213151259%_)) - (_%g151198151227%_ - _%g151199151231%_)))) - (_%g151198151227%_ _%g151199151231%_)))) - (_%g151198151227%_ _%g151199151231%_)))) - (let ((_%type-e151214151292%_ (reverse _%type-e151212151257%_)) - (_%id151215151295%_ (reverse _%id151213151259%_))) - ((lambda (_%L151298%_ _%L151300%_) + (gx#stx-null? _%tl150329150399%_)) + (_%loop150318150360%_ + _%lp-tl150321150379%_ + (cons _%hd150330150396%_ + _%type-e150322150367%_) + (cons _%hd150327150386%_ + _%id150323150369%_)) + (_%g150308150337%_ + _%g150309150341%_)))) + (_%g150308150337%_ _%g150309150341%_)))) + (_%g150308150337%_ _%g150309150341%_)))) + (let ((_%type-e150324150402%_ (reverse _%type-e150322150367%_)) + (_%id150325150405%_ (reverse _%id150323150369%_))) + ((lambda (_%L150408%_ _%L150410%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1091,12 +1091,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L151298%_ - _%L151300%_)) - (let ((__tmp166398 - (lambda (_%g151316151320%_ - _%g151317151323%_ - _%g151318151325%_) + _%L150408%_ + _%L150410%_)) + (let ((__tmp165427 + (lambda (_%g150426150430%_ + _%g150427150433%_ + _%g150428150435%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1111,154 +1111,154 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g151317151323%_ '())) - (cons _%g151316151320%_ '())))) + (cons _%g150427150433%_ '())) + (cons _%g150426150430%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g151318151325%_)))) + _%g150428150435%_)))) (declare (not safe)) (__foldr2 - __tmp166398 + __tmp165427 '() - _%L151298%_ - _%L151300%_))))) - _%type-e151214151292%_ - _%id151215151295%_)))))) + _%L150408%_ + _%L150410%_))))) + _%type-e150324150402%_ + _%id150325150405%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop151208151250%_ - _%target151205151244%_ + (_%loop150318150360%_ + _%target150315150354%_ '() '())) - (_%g151198151227%_ - _%g151199151231%_))))) - (_%g151198151227%_ _%g151199151231%_)))) - (_%g151198151227%_ _%g151199151231%_))))) - (_%g151197151328%_ _%$stx151194%_)))) + (_%g150308150337%_ + _%g150309150341%_))))) + (_%g150308150337%_ _%g150309150341%_)))) + (_%g150308150337%_ _%g150309150341%_))))) + (_%g150307150438%_ _%$stx150304%_)))) (define |gxc[:0:]#defbasic-expression-type-special| - (lambda (_%$stx151333%_) - (let* ((_%g151337151366%_ - (lambda (_%g151338151362%_) + (lambda (_%$stx150443%_) + (let* ((_%g150447150476%_ + (lambda (_%g150448150472%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151338151362%_)))) - (_%g151336151466%_ - (lambda (_%g151338151370%_) + _%g150448150472%_)))) + (_%g150446150576%_ + (lambda (_%g150448150480%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151338151370%_)) - (let ((_%e151343151373%_ + (gx#stx-pair? _%g150448150480%_)) + (let ((_%e150453150483%_ (let () (declare (not safe)) - (gx#syntax-e _%g151338151370%_)))) - (let ((_%hd151342151377%_ + (gx#syntax-e _%g150448150480%_)))) + (let ((_%hd150452150487%_ (let () (declare (not safe)) - (##car _%e151343151373%_))) - (_%tl151341151380%_ + (##car _%e150453150483%_))) + (_%tl150451150490%_ (let () (declare (not safe)) - (##cdr _%e151343151373%_)))) + (##cdr _%e150453150483%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl151341151380%_)) - (let ((_g166399_ + (gx#stx-pair/null? _%tl150451150490%_)) + (let ((_g165428_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl151341151380%_ + _%tl150451150490%_ '0)))) (begin - (let ((_g166400_ + (let ((_g165429_ (let () (declare (not safe)) - (if (##values? _g166399_) - (##vector-length _g166399_) + (if (##values? _g165428_) + (##vector-length _g165428_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g166400_ 2))) + (##fx= _g165429_ 2))) (error "Context expects 2 values" - _g166400_))) - (let ((_%target151344151383%_ + _g165429_))) + (let ((_%target150454150493%_ (let () (declare (not safe)) - (##vector-ref _g166399_ 0))) - (_%tl151346151386%_ + (##vector-ref _g165428_ 0))) + (_%tl150456150496%_ (let () (declare (not safe)) - (##vector-ref _g166399_ 1)))) + (##vector-ref _g165428_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151346151386%_)) - (letrec ((_%loop151347151389%_ - (lambda (_%hd151345151393%_ - _%type-e151351151396%_ - _%id151352151398%_) + (gx#stx-null? _%tl150456150496%_)) + (letrec ((_%loop150457150499%_ + (lambda (_%hd150455150503%_ + _%type-e150461150506%_ + _%id150462150508%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd151345151393%_)) - (let ((_%e151348151401%_ + _%hd150455150503%_)) + (let ((_%e150458150511%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd151345151393%_)))) - (let ((_%lp-hd151349151405%_ + (gx#syntax-e _%hd150455150503%_)))) + (let ((_%lp-hd150459150515%_ (let () (declare (not safe)) - (##car _%e151348151401%_))) - (_%lp-tl151350151408%_ + (##car _%e150458150511%_))) + (_%lp-tl150460150518%_ (let () (declare (not safe)) - (##cdr _%e151348151401%_)))) + (##cdr _%e150458150511%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd151349151405%_)) - (let ((_%e151357151411%_ + (gx#stx-pair? _%lp-hd150459150515%_)) + (let ((_%e150467150521%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd151349151405%_)))) - (let ((_%hd151356151415%_ + (gx#syntax-e _%lp-hd150459150515%_)))) + (let ((_%hd150466150525%_ (let () (declare (not safe)) - (##car _%e151357151411%_))) - (_%tl151355151418%_ + (##car _%e150467150521%_))) + (_%tl150465150528%_ (let () (declare (not safe)) - (##cdr _%e151357151411%_)))) + (##cdr _%e150467150521%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151355151418%_)) - (let ((_%e151360151421%_ + (gx#stx-pair? _%tl150465150528%_)) + (let ((_%e150470150531%_ (let () (declare (not safe)) - (gx#syntax-e _%tl151355151418%_)))) - (let ((_%hd151359151425%_ + (gx#syntax-e _%tl150465150528%_)))) + (let ((_%hd150469150535%_ (let () (declare (not safe)) - (##car _%e151360151421%_))) - (_%tl151358151428%_ + (##car _%e150470150531%_))) + (_%tl150468150538%_ (let () (declare (not safe)) - (##cdr _%e151360151421%_)))) + (##cdr _%e150470150531%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151358151428%_)) - (_%loop151347151389%_ - _%lp-tl151350151408%_ - (cons _%hd151359151425%_ - _%type-e151351151396%_) - (cons _%hd151356151415%_ - _%id151352151398%_)) - (_%g151337151366%_ - _%g151338151370%_)))) - (_%g151337151366%_ _%g151338151370%_)))) - (_%g151337151366%_ _%g151338151370%_)))) - (let ((_%type-e151353151431%_ (reverse _%type-e151351151396%_)) - (_%id151354151434%_ (reverse _%id151352151398%_))) - ((lambda (_%L151437%_ _%L151439%_) + (gx#stx-null? _%tl150468150538%_)) + (_%loop150457150499%_ + _%lp-tl150460150518%_ + (cons _%hd150469150535%_ + _%type-e150461150506%_) + (cons _%hd150466150525%_ + _%id150462150508%_)) + (_%g150447150476%_ + _%g150448150480%_)))) + (_%g150447150476%_ _%g150448150480%_)))) + (_%g150447150476%_ _%g150448150480%_)))) + (let ((_%type-e150463150541%_ (reverse _%type-e150461150506%_)) + (_%id150464150544%_ (reverse _%id150462150508%_))) + ((lambda (_%L150547%_ _%L150549%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1266,12 +1266,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L151437%_ - _%L151439%_)) - (let ((__tmp166401 - (lambda (_%g151454151458%_ - _%g151455151461%_ - _%g151456151463%_) + _%L150547%_ + _%L150549%_)) + (let ((__tmp165430 + (lambda (_%g150564150568%_ + _%g150565150571%_ + _%g150566150573%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1286,25 +1286,25 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g151455151461%_ '())) - (cons _%g151454151458%_ '())))) + (cons _%g150565150571%_ '())) + (cons _%g150564150568%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g151456151463%_)))) + _%g150566150573%_)))) (declare (not safe)) (__foldr2 - __tmp166401 + __tmp165430 '() - _%L151437%_ - _%L151439%_))))) - _%type-e151353151431%_ - _%id151354151434%_)))))) + _%L150547%_ + _%L150549%_))))) + _%type-e150463150541%_ + _%id150464150544%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop151347151389%_ - _%target151344151383%_ + (_%loop150457150499%_ + _%target150454150493%_ '() '())) - (_%g151337151366%_ - _%g151338151370%_))))) - (_%g151337151366%_ _%g151338151370%_)))) - (_%g151337151366%_ _%g151338151370%_))))) - (_%g151336151466%_ _%$stx151333%_)))))) + (_%g150447150476%_ + _%g150448150480%_))))) + (_%g150447150476%_ _%g150448150480%_)))) + (_%g150447150476%_ _%g150448150480%_))))) + (_%g150446150576%_ _%$stx150443%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform.ssxi.ss b/src/bootstrap/gerbil/compiler/optimize-xform.ssxi.ss index 0a4aa17cf..a59ea17eb 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/optimize-xform.ssxi.ss @@ -36,7 +36,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) (declare-class gxc#::collect-methods::t (@class gxc#::collect-methods::t @@ -71,7 +80,16 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) (declare-class gxc#::expression-subst::t (@class gxc#::expression-subst::t @@ -126,7 +144,16 @@ package: gerbil/compiler (@lambda 4 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) (declare-type gxc#apply-expression-subst__@ (@kw-lambda-dispatch (id: new-id:) gxc#apply-expression-subst__%)) @@ -177,7 +204,16 @@ package: gerbil/compiler (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) (declare-type gxc#apply-expression-subst*__@ (@kw-lambda-dispatch (subst:) gxc#apply-expression-subst*__%)) @@ -249,7 +285,16 @@ package: gerbil/compiler (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) (declare-type gxc#apply-find-var-refs__@ (@kw-lambda-dispatch (ids:) gxc#apply-find-var-refs__%)) @@ -302,22 +347,199 @@ package: gerbil/compiler (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) (declare-type gxc#apply-collect-runtime-refs__@ (@kw-lambda-dispatch (table:) gxc#apply-collect-runtime-refs__%)) (declare-type gxc#apply-collect-runtime-refs (@kw-lambda (table:) gxc#apply-collect-runtime-refs__@)) - (declare-type gxc#collect-mutators-setq% (@lambda 2 #f)) - (declare-type gxc#collect-methods-call% (@lambda 2 #f)) - (declare-type gxc#expression-subst-ref% (@lambda 2 #f)) - (declare-type gxc#expression-subst*-ref% (@lambda 2 #f)) - (declare-type gxc#expression-subst-setq% (@lambda 2 #f)) - (declare-type gxc#expression-subst*-setq% (@lambda 2 #f)) - (declare-type gxc#collect-runtime-refs-ref% (@lambda 2 #f)) - (declare-type gxc#collect-runtime-refs-setq% (@lambda 2 #f)) - (declare-type gxc#find-body% (@lambda 2 #f)) - (declare-type gxc#find-let-values% (@lambda 2 #f)) - (declare-type gxc#find-var-refs-ref% (@lambda 2 #f)) - (declare-type gxc#find-var-refs-setq% (@lambda 2 #f))) + (declare-type + gxc#collect-mutators-setq% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) + (declare-type + gxc#collect-methods-call% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) + (declare-type + gxc#expression-subst-ref% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) + (declare-type + gxc#expression-subst*-ref% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) + (declare-type + gxc#expression-subst-setq% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) + (declare-type + gxc#expression-subst*-setq% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) + (declare-type + gxc#collect-runtime-refs-ref% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) + (declare-type + gxc#collect-runtime-refs-setq% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) + (declare-type + gxc#find-body% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) + (declare-type + gxc#find-let-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) + (declare-type + gxc#find-var-refs-ref% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform))) + (declare-type + gxc#find-var-refs-setq% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize-xform)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~0.scm b/src/bootstrap/gerbil/compiler/optimize-xform~0.scm index e7bedc8e6..964285a7e 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 1712533291) + (define gerbil/compiler/optimize-xform::timestamp 1712573432) (begin (define gxc#::collect-mutators::t - (let ((__tmp151042 (list gxc#::void::t)) - (__tmp151041 (cons (cons 'final: '#t) '()))) + (let ((__tmp150155 (list gxc#::void::t)) + (__tmp150154 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-mutators::t '::collect-mutators - __tmp151042 + __tmp150155 '() - __tmp151041 + __tmp150154 '#f))) (define gxc#::collect-mutators? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-mutators::t))) (define gxc#make-::collect-mutators - (lambda _%$args150782%_ - (apply make-instance gxc#::collect-mutators::t _%$args150782%_))) + (lambda _%$args149895%_ + (apply make-instance gxc#::collect-mutators::t _%$args149895%_))) (define gxc#::collect-mutators-bind-methods! - (let ((__tmp151043 + (let ((__tmp150156 (lambda () (force gxc#::void-bind-methods!) (let () @@ -166,46 +166,46 @@ (declare (not safe)) (__seal-class! gxc#::collect-mutators::t))))) (declare (not safe)) - (__make-promise __tmp151043))) + (__make-promise __tmp150156))) (define gxc#apply-collect-mutators - (lambda (_%stx150774%_) + (lambda (_%stx149887%_) (force gxc#::collect-mutators-bind-methods!) - (let* ((_%self150777%_ - (let ((__obj151029 + (let* ((_%self149890%_ + (let ((__obj150142 (let () (declare (not safe)) (##structure gxc#::collect-mutators::t)))) - __obj151029)) - (__tmp151044 + __obj150142)) + (__tmp150157 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self150777%_ _%stx150774%_))))) + (gxc#compile-e__1 _%self149890%_ _%stx149887%_))))) (declare (not safe)) (__call-with-parameters - __tmp151044 + __tmp150157 gxc#current-compile-method - _%self150777%_)))) + _%self149890%_)))) (define gxc#::collect-methods::t - (let ((__tmp151046 (list gxc#::void::t)) - (__tmp151045 (cons (cons 'final: '#t) '()))) + (let ((__tmp150159 (list gxc#::void::t)) + (__tmp150158 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-methods::t '::collect-methods - __tmp151046 + __tmp150159 '() - __tmp151045 + __tmp150158 '#f))) (define gxc#::collect-methods? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-methods::t))) (define gxc#make-::collect-methods - (lambda _%$args150771%_ - (apply make-instance gxc#::collect-methods::t _%$args150771%_))) + (lambda _%$args149884%_ + (apply make-instance gxc#::collect-methods::t _%$args149884%_))) (define gxc#::collect-methods-bind-methods! - (let ((__tmp151047 + (let ((__tmp150160 (lambda () (force gxc#::void-bind-methods!) (let () @@ -242,44 +242,44 @@ (declare (not safe)) (__seal-class! gxc#::collect-methods::t))))) (declare (not safe)) - (__make-promise __tmp151047))) + (__make-promise __tmp150160))) (define gxc#apply-collect-methods - (lambda (_%stx150763%_) + (lambda (_%stx149876%_) (force gxc#::collect-methods-bind-methods!) - (let* ((_%self150766%_ - (let ((__obj151031 + (let* ((_%self149879%_ + (let ((__obj150144 (let () (declare (not safe)) (##structure gxc#::collect-methods::t)))) - __obj151031)) - (__tmp151048 + __obj150144)) + (__tmp150161 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self150766%_ _%stx150763%_))))) + (gxc#compile-e__1 _%self149879%_ _%stx149876%_))))) (declare (not safe)) (__call-with-parameters - __tmp151048 + __tmp150161 gxc#current-compile-method - _%self150766%_)))) + _%self149879%_)))) (define gxc#::expression-subst::t - (let ((__tmp151050 (list gxc#::basic-xform-expression::t)) - (__tmp151049 (cons (cons 'final: '#t) '()))) + (let ((__tmp150163 (list gxc#::basic-xform-expression::t)) + (__tmp150162 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst::t '::expression-subst - __tmp151050 + __tmp150163 '(id new-id) - __tmp151049 + __tmp150162 '#f))) (define gxc#::expression-subst? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst::t))) (define gxc#make-::expression-subst - (lambda _%$args150760%_ - (apply make-instance gxc#::expression-subst::t _%$args150760%_))) + (lambda _%$args149873%_ + (apply make-instance gxc#::expression-subst::t _%$args149873%_))) (define gxc#::expression-subst-id (let () (declare (not safe)) @@ -317,7 +317,7 @@ gxc#::expression-subst::t 'new-id))) (define gxc#::expression-subst-bind-methods! - (let ((__tmp151051 + (let ((__tmp150164 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (let () @@ -342,95 +342,95 @@ (declare (not safe)) (__seal-class! gxc#::expression-subst::t))))) (declare (not safe)) - (__make-promise __tmp151051))) + (__make-promise __tmp150164))) (define gxc#apply-expression-subst__% - (lambda (_%@@keywords150730%_ - _%id150726150731%_ - _%new-id150727150733%_ - _%stx150735%_) - (let* ((_%id150738%_ - (if (eq? _%id150726150731%_ absent-value) + (lambda (_%@@keywords149843%_ + _%id149839149844%_ + _%new-id149840149846%_ + _%stx149848%_) + (let* ((_%id149851%_ + (if (eq? _%id149839149844%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'id:)) - _%id150726150731%_)) - (_%new-id150740%_ - (if (eq? _%new-id150727150733%_ absent-value) + _%id149839149844%_)) + (_%new-id149853%_ + (if (eq? _%new-id149840149846%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'new-id:)) - _%new-id150727150733%_))) + _%new-id149840149846%_))) (force gxc#::expression-subst-bind-methods!) - (let* ((_%self150742%_ - (let ((__obj151033 + (let* ((_%self149855%_ + (let ((__obj150146 (let () (declare (not safe)) (##structure gxc#::expression-subst::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj151033 - _%id150738%_ + __obj150146 + _%id149851%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj151033 - _%new-id150740%_ + __obj150146 + _%new-id149853%_ '2 '#f '#f)) - __obj151033)) - (__tmp151052 + __obj150146)) + (__tmp150165 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self150742%_ _%stx150735%_))))) + (gxc#compile-e__1 _%self149855%_ _%stx149848%_))))) (declare (not safe)) (__call-with-parameters - __tmp151052 + __tmp150165 gxc#current-compile-method - _%self150742%_))))) + _%self149855%_))))) (define gxc#apply-expression-subst__@ - (lambda (_%@@keywords150749%_ . _%args150750%_) + (lambda (_%@@keywords149862%_ . _%args149863%_) (apply gxc#apply-expression-subst__% - _%@@keywords150749%_ + _%@@keywords149862%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords150749%_ 'id: absent-value)) + (symbolic-table-ref _%@@keywords149862%_ 'id: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords150749%_ + _%@@keywords149862%_ 'new-id: absent-value)) - _%args150750%_))) + _%args149863%_))) (define gxc#apply-expression-subst - (lambda _%args150728150756%_ + (lambda _%args149841149869%_ (apply keyword-dispatch '#(id: new-id:) gxc#apply-expression-subst__@ - _%args150728150756%_))) + _%args149841149869%_))) (define gxc#::expression-subst*::t - (let ((__tmp151054 (list gxc#::basic-xform-expression::t)) - (__tmp151053 (cons (cons 'final: '#t) '()))) + (let ((__tmp150167 (list gxc#::basic-xform-expression::t)) + (__tmp150166 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst*::t '::expression-subst* - __tmp151054 + __tmp150167 '(subst) - __tmp151053 + __tmp150166 '#f))) (define gxc#::expression-subst*? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst*::t))) (define gxc#make-::expression-subst* - (lambda _%$args150722%_ - (apply make-instance gxc#::expression-subst*::t _%$args150722%_))) + (lambda _%$args149835%_ + (apply make-instance gxc#::expression-subst*::t _%$args149835%_))) (define gxc#::expression-subst*-subst (let () (declare (not safe)) @@ -452,7 +452,7 @@ gxc#::expression-subst*::t 'subst))) (define gxc#::expression-subst*-bind-methods! - (let ((__tmp151055 + (let ((__tmp150168 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (let () @@ -477,64 +477,64 @@ (declare (not safe)) (__seal-class! gxc#::expression-subst*::t))))) (declare (not safe)) - (__make-promise __tmp151055))) + (__make-promise __tmp150168))) (define gxc#apply-expression-subst*__% - (lambda (_%@@keywords150696%_ _%subst150693150697%_ _%stx150699%_) - (let ((_%subst150702%_ - (if (eq? _%subst150693150697%_ absent-value) + (lambda (_%@@keywords149809%_ _%subst149806149810%_ _%stx149812%_) + (let ((_%subst149815%_ + (if (eq? _%subst149806149810%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'subst:)) - _%subst150693150697%_))) + _%subst149806149810%_))) (force gxc#::expression-subst*-bind-methods!) - (let* ((_%self150704%_ - (let ((__obj151035 + (let* ((_%self149817%_ + (let ((__obj150148 (let () (declare (not safe)) (##structure gxc#::expression-subst*::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj151035 - _%subst150702%_ + __obj150148 + _%subst149815%_ '1 '#f '#f)) - __obj151035)) - (__tmp151056 + __obj150148)) + (__tmp150169 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self150704%_ _%stx150699%_))))) + (gxc#compile-e__1 _%self149817%_ _%stx149812%_))))) (declare (not safe)) (__call-with-parameters - __tmp151056 + __tmp150169 gxc#current-compile-method - _%self150704%_))))) + _%self149817%_))))) (define gxc#apply-expression-subst*__@ - (lambda (_%@@keywords150711%_ . _%args150712%_) + (lambda (_%@@keywords149824%_ . _%args149825%_) (apply gxc#apply-expression-subst*__% - _%@@keywords150711%_ + _%@@keywords149824%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords150711%_ + _%@@keywords149824%_ 'subst: absent-value)) - _%args150712%_))) + _%args149825%_))) (define gxc#apply-expression-subst* - (lambda _%args150694150718%_ + (lambda _%args149807149831%_ (apply keyword-dispatch '#(subst:) gxc#apply-expression-subst*__@ - _%args150694150718%_))) + _%args149807149831%_))) (define gxc#::find-expression::t - (let ((__tmp151057 (list gxc#::false-expression::t))) + (let ((__tmp150170 (list gxc#::false-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::find-expression::t '::find-expression - __tmp151057 + __tmp150170 '() '() '#f))) @@ -543,10 +543,10 @@ (declare (not safe)) (__make-class-predicate gxc#::find-expression::t))) (define gxc#make-::find-expression - (lambda _%$args150689%_ - (apply make-instance gxc#::find-expression::t _%$args150689%_))) + (lambda _%$args149802%_ + (apply make-instance gxc#::find-expression::t _%$args149802%_))) (define gxc#::find-expression-bind-methods! - (let ((__tmp151058 + (let ((__tmp150171 (lambda () (force gxc#::false-expression-bind-methods!) (let () @@ -664,25 +664,25 @@ '%#struct-unchecked-set! gxc#find-body%))))) (declare (not safe)) - (__make-promise __tmp151058))) + (__make-promise __tmp150171))) (define gxc#::find-var-refs::t - (let ((__tmp151060 (list gxc#::find-expression::t)) - (__tmp151059 (cons (cons 'final: '#t) '()))) + (let ((__tmp150173 (list gxc#::find-expression::t)) + (__tmp150172 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-var-refs::t '::find-var-refs - __tmp151060 + __tmp150173 '(ids) - __tmp151059 + __tmp150172 '#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 _%$args150685%_ - (apply make-instance gxc#::find-var-refs::t _%$args150685%_))) + (lambda _%$args149798%_ + (apply make-instance gxc#::find-var-refs::t _%$args149798%_))) (define gxc#::find-var-refs-ids (let () (declare (not safe)) @@ -700,7 +700,7 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#::find-var-refs::t 'ids))) (define gxc#::find-var-refs-bind-methods! - (let ((__tmp151061 + (let ((__tmp150174 (lambda () (force gxc#::find-expression-bind-methods!) (let () @@ -719,72 +719,72 @@ (declare (not safe)) (__seal-class! gxc#::find-var-refs::t))))) (declare (not safe)) - (__make-promise __tmp151061))) + (__make-promise __tmp150174))) (define gxc#apply-find-var-refs__% - (lambda (_%@@keywords150659%_ _%ids150656150660%_ _%stx150662%_) - (let ((_%ids150665%_ - (if (eq? _%ids150656150660%_ absent-value) + (lambda (_%@@keywords149772%_ _%ids149769149773%_ _%stx149775%_) + (let ((_%ids149778%_ + (if (eq? _%ids149769149773%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'ids:)) - _%ids150656150660%_))) + _%ids149769149773%_))) (force gxc#::find-var-refs-bind-methods!) - (let* ((_%self150667%_ - (let ((__obj151038 + (let* ((_%self149780%_ + (let ((__obj150151 (let () (declare (not safe)) (##structure gxc#::find-var-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj151038 - _%ids150665%_ + __obj150151 + _%ids149778%_ '1 '#f '#f)) - __obj151038)) - (__tmp151062 + __obj150151)) + (__tmp150175 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self150667%_ _%stx150662%_))))) + (gxc#compile-e__1 _%self149780%_ _%stx149775%_))))) (declare (not safe)) (__call-with-parameters - __tmp151062 + __tmp150175 gxc#current-compile-method - _%self150667%_))))) + _%self149780%_))))) (define gxc#apply-find-var-refs__@ - (lambda (_%@@keywords150674%_ . _%args150675%_) + (lambda (_%@@keywords149787%_ . _%args149788%_) (apply gxc#apply-find-var-refs__% - _%@@keywords150674%_ + _%@@keywords149787%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords150674%_ 'ids: absent-value)) - _%args150675%_))) + (symbolic-table-ref _%@@keywords149787%_ 'ids: absent-value)) + _%args149788%_))) (define gxc#apply-find-var-refs - (lambda _%args150657150681%_ + (lambda _%args149770149794%_ (apply keyword-dispatch '#(ids:) gxc#apply-find-var-refs__@ - _%args150657150681%_))) + _%args149770149794%_))) (define gxc#::collect-runtime-refs::t - (let ((__tmp151064 (list gxc#::collect-expression-refs::t)) - (__tmp151063 (cons (cons 'final: '#t) '()))) + (let ((__tmp150177 (list gxc#::collect-expression-refs::t)) + (__tmp150176 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-runtime-refs::t '::collect-runtime-refs - __tmp151064 + __tmp150177 '() - __tmp151063 + __tmp150176 '#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 _%$args150652%_ - (apply make-instance gxc#::collect-runtime-refs::t _%$args150652%_))) + (lambda _%$args149765%_ + (apply make-instance gxc#::collect-runtime-refs::t _%$args149765%_))) (define gxc#::collect-runtime-refs-table (let () (declare (not safe)) @@ -806,7 +806,7 @@ gxc#::collect-runtime-refs::t 'table))) (define gxc#::collect-runtime-refs-bind-methods! - (let ((__tmp151065 + (let ((__tmp150178 (lambda () (force gxc#::collect-expression-refs-bind-methods!) (let () @@ -825,1806 +825,1684 @@ (declare (not safe)) (__seal-class! gxc#::collect-runtime-refs::t))))) (declare (not safe)) - (__make-promise __tmp151065))) + (__make-promise __tmp150178))) (define gxc#apply-collect-runtime-refs__% - (lambda (_%@@keywords150626%_ _%table150623150627%_ _%stx150629%_) - (let ((_%table150632%_ - (if (eq? _%table150623150627%_ absent-value) + (lambda (_%@@keywords149739%_ _%table149736149740%_ _%stx149742%_) + (let ((_%table149745%_ + (if (eq? _%table149736149740%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table150623150627%_))) + _%table149736149740%_))) (force gxc#::collect-runtime-refs-bind-methods!) - (let* ((_%self150634%_ - (let ((__obj151040 + (let* ((_%self149747%_ + (let ((__obj150153 (let () (declare (not safe)) (##structure gxc#::collect-runtime-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj151040 - _%table150632%_ + __obj150153 + _%table149745%_ '1 '#f '#f)) - __obj151040)) - (__tmp151066 + __obj150153)) + (__tmp150179 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self150634%_ _%stx150629%_))))) + (gxc#compile-e__1 _%self149747%_ _%stx149742%_))))) (declare (not safe)) (__call-with-parameters - __tmp151066 + __tmp150179 gxc#current-compile-method - _%self150634%_))))) + _%self149747%_))))) (define gxc#apply-collect-runtime-refs__@ - (lambda (_%@@keywords150641%_ . _%args150642%_) + (lambda (_%@@keywords149754%_ . _%args149755%_) (apply gxc#apply-collect-runtime-refs__% - _%@@keywords150641%_ + _%@@keywords149754%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords150641%_ + _%@@keywords149754%_ 'table: absent-value)) - _%args150642%_))) + _%args149755%_))) (define gxc#apply-collect-runtime-refs - (lambda _%args150624150648%_ + (lambda _%args149737149761%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-runtime-refs__@ - _%args150624150648%_))) + _%args149737149761%_))) (define gxc#collect-mutators-setq% - (lambda (_%self150552%_ _%stx150553%_) - (let* ((_%g150555150572%_ - (lambda (_%g150556150569%_) + (lambda (_%self149665%_ _%stx149666%_) + (let* ((_%g149668149685%_ + (lambda (_%g149669149682%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g150556150569%_)))) - (_%g150554150619%_ - (lambda (_%g150556150575%_) + _%g149669149682%_)))) + (_%g149667149732%_ + (lambda (_%g149669149688%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g150556150575%_)) - (let ((_%e150561150577%_ + (gx#stx-pair? _%g149669149688%_)) + (let ((_%e149674149690%_ (let () (declare (not safe)) - (gx#stx-e _%g150556150575%_)))) - (let ((_%hd150560150580%_ + (gx#stx-e _%g149669149688%_)))) + (let ((_%hd149673149693%_ (let () (declare (not safe)) - (##car _%e150561150577%_))) - (_%tl150559150582%_ + (##car _%e149674149690%_))) + (_%tl149672149695%_ (let () (declare (not safe)) - (##cdr _%e150561150577%_)))) + (##cdr _%e149674149690%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150559150582%_)) - (let ((_%e150564150585%_ + (gx#stx-pair? _%tl149672149695%_)) + (let ((_%e149677149698%_ (let () (declare (not safe)) - (gx#stx-e _%tl150559150582%_)))) - (let ((_%hd150563150588%_ + (gx#stx-e _%tl149672149695%_)))) + (let ((_%hd149676149701%_ (let () (declare (not safe)) - (##car _%e150564150585%_))) - (_%tl150562150590%_ + (##car _%e149677149698%_))) + (_%tl149675149703%_ (let () (declare (not safe)) - (##cdr _%e150564150585%_)))) + (##cdr _%e149677149698%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150562150590%_)) - (let ((_%e150567150593%_ + (gx#stx-pair? _%tl149675149703%_)) + (let ((_%e149680149706%_ (let () (declare (not safe)) - (gx#stx-e _%tl150562150590%_)))) - (let ((_%hd150566150596%_ + (gx#stx-e _%tl149675149703%_)))) + (let ((_%hd149679149709%_ (let () (declare (not safe)) - (##car _%e150567150593%_))) - (_%tl150565150598%_ + (##car _%e149680149706%_))) + (_%tl149678149711%_ (let () (declare (not safe)) - (##cdr _%e150567150593%_)))) + (##cdr _%e149680149706%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl150565150598%_)) - ((lambda (_%L150601%_ - _%L150602%_) - (let ((_%sym150617%_ + _%tl149678149711%_)) + ((lambda (_%L149714%_ + _%L149715%_) + (let ((_%sym149730%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L150602%_)))) + _%L149715%_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _%sym150617%_)) - (let ((__tmp151067 + _%sym149730%_)) + (let ((__tmp150180 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) (hash-put! - __tmp151067 - _%sym150617%_ + __tmp150180 + _%sym149730%_ '#t)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self150552%_ - _%L150601%_)))) - _%hd150566150596%_ - _%hd150563150588%_) - (let () - (declare (not safe)) - (_%g150555150572%_ - _%g150556150575%_))))) - (let () - (declare (not safe)) - (_%g150555150572%_ - _%g150556150575%_))))) - (let () - (declare (not safe)) - (_%g150555150572%_ _%g150556150575%_))))) - (let () - (declare (not safe)) - (_%g150555150572%_ _%g150556150575%_)))))) - (declare (not safe)) - (_%g150554150619%_ _%stx150553%_)))) + _%self149665%_ + _%L149714%_)))) + _%hd149679149709%_ + _%hd149676149701%_) + (_%g149668149685%_ + _%g149669149688%_)))) + (_%g149668149685%_ _%g149669149688%_)))) + (_%g149668149685%_ _%g149669149688%_)))) + (_%g149668149685%_ _%g149669149688%_))))) + (_%g149667149732%_ _%stx149666%_)))) (define gxc#collect-methods-call% - (lambda (_%self150105%_ _%stx150106%_) - (let* ((_%__stx150785150786%_ _%stx150106%_) - (_%g150110150212%_ + (lambda (_%self149218%_ _%stx149219%_) + (let* ((_%__stx149898149899%_ _%stx149219%_) + (_%g149223149325%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx150785150786%_))))) - (let ((_%__kont150787150788%_ - (lambda (_%L150502%_ - _%L150503%_ - _%L150504%_ - _%L150505%_ - _%L150506%_) - (let ((__tmp151068 + _%__stx149898149899%_))))) + (let ((_%__kont149900149901%_ + (lambda (_%L149615%_ + _%L149616%_ + _%L149617%_ + _%L149618%_ + _%L149619%_) + (let ((__tmp150181 (let () (declare (not safe)) - (gxc#identifier-symbol _%L150503%_)))) + (gxc#identifier-symbol _%L149616%_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp151068)))) - (_%__kont150789150790%_ - (lambda (_%L150328%_ _%L150329%_ _%L150330%_ _%L150331%_) - (let ((__tmp151069 + (gxc#optimizer-top-level-method! __tmp150181)))) + (_%__kont149902149903%_ + (lambda (_%L149441%_ _%L149442%_ _%L149443%_ _%L149444%_) + (let ((__tmp150182 (let () (declare (not safe)) - (gxc#identifier-symbol _%L150328%_)))) + (gxc#identifier-symbol _%L149441%_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp151069)))) - (_%__kont150791150792%_ (lambda () '#!void))) - (let ((_%__match150920150921%_ - (lambda (_%e150119150374%_ - _%hd150118150377%_ - _%tl150117150379%_ - _%e150122150382%_ - _%hd150121150385%_ - _%tl150120150387%_ - _%e150125150390%_ - _%hd150124150393%_ - _%tl150123150395%_ - _%e150128150398%_ - _%hd150127150401%_ - _%tl150126150403%_ - _%e150131150406%_ - _%hd150130150409%_ - _%tl150129150411%_ - _%e150134150414%_ - _%hd150133150417%_ - _%tl150132150419%_ - _%e150137150422%_ - _%hd150136150425%_ - _%tl150135150427%_ - _%e150140150430%_ - _%hd150139150433%_ - _%tl150138150435%_ - _%e150143150438%_ - _%hd150142150441%_ - _%tl150141150443%_ - _%e150146150446%_ - _%hd150145150449%_ - _%tl150144150451%_ - _%e150149150454%_ - _%hd150148150457%_ - _%tl150147150459%_ - _%e150152150462%_ - _%hd150151150465%_ - _%tl150150150467%_ - _%e150155150470%_ - _%hd150154150473%_ - _%tl150153150475%_ - _%e150158150478%_ - _%hd150157150481%_ - _%tl150156150483%_ - _%e150161150486%_ - _%hd150160150489%_ - _%tl150159150491%_ - _%e150164150494%_ - _%hd150163150497%_ - _%tl150162150499%_) - (let ((_%L150502%_ _%hd150163150497%_) - (_%L150503%_ _%hd150154150473%_) - (_%L150504%_ _%hd150145150449%_) - (_%L150505%_ _%hd150136150425%_) - (_%L150506%_ _%hd150127150401%_)) + (gxc#optimizer-top-level-method! __tmp150182)))) + (_%__kont149904149905%_ (lambda () '#!void))) + (let ((_%__match150033150034%_ + (lambda (_%e149232149487%_ + _%hd149231149490%_ + _%tl149230149492%_ + _%e149235149495%_ + _%hd149234149498%_ + _%tl149233149500%_ + _%e149238149503%_ + _%hd149237149506%_ + _%tl149236149508%_ + _%e149241149511%_ + _%hd149240149514%_ + _%tl149239149516%_ + _%e149244149519%_ + _%hd149243149522%_ + _%tl149242149524%_ + _%e149247149527%_ + _%hd149246149530%_ + _%tl149245149532%_ + _%e149250149535%_ + _%hd149249149538%_ + _%tl149248149540%_ + _%e149253149543%_ + _%hd149252149546%_ + _%tl149251149548%_ + _%e149256149551%_ + _%hd149255149554%_ + _%tl149254149556%_ + _%e149259149559%_ + _%hd149258149562%_ + _%tl149257149564%_ + _%e149262149567%_ + _%hd149261149570%_ + _%tl149260149572%_ + _%e149265149575%_ + _%hd149264149578%_ + _%tl149263149580%_ + _%e149268149583%_ + _%hd149267149586%_ + _%tl149266149588%_ + _%e149271149591%_ + _%hd149270149594%_ + _%tl149269149596%_ + _%e149274149599%_ + _%hd149273149602%_ + _%tl149272149604%_ + _%e149277149607%_ + _%hd149276149610%_ + _%tl149275149612%_) + (let ((_%L149615%_ _%hd149276149610%_) + (_%L149616%_ _%hd149267149586%_) + (_%L149617%_ _%hd149258149562%_) + (_%L149618%_ _%hd149249149538%_) + (_%L149619%_ _%hd149240149514%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L150506%_ + _%L149619%_ 'bind-method!)) - (_%__kont150787150788%_ - _%L150502%_ - _%L150503%_ - _%L150504%_ - _%L150505%_ - _%L150506%_) - (_%__kont150791150792%_)))))) + (_%__kont149900149901%_ + _%L149615%_ + _%L149616%_ + _%L149617%_ + _%L149618%_ + _%L149619%_) + (_%__kont149904149905%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx150785150786%_)) - (let ((_%e150119150374%_ + (gx#stx-pair? _%__stx149898149899%_)) + (let ((_%e149232149487%_ (let () (declare (not safe)) - (gx#stx-e _%__stx150785150786%_)))) - (let ((_%tl150117150379%_ + (gx#stx-e _%__stx149898149899%_)))) + (let ((_%tl149230149492%_ (let () (declare (not safe)) - (##cdr _%e150119150374%_))) - (_%hd150118150377%_ + (##cdr _%e149232149487%_))) + (_%hd149231149490%_ (let () (declare (not safe)) - (##car _%e150119150374%_)))) + (##car _%e149232149487%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150117150379%_)) - (let ((_%e150122150382%_ + (gx#stx-pair? _%tl149230149492%_)) + (let ((_%e149235149495%_ (let () (declare (not safe)) - (gx#stx-e _%tl150117150379%_)))) - (let ((_%tl150120150387%_ + (gx#stx-e _%tl149230149492%_)))) + (let ((_%tl149233149500%_ (let () (declare (not safe)) - (##cdr _%e150122150382%_))) - (_%hd150121150385%_ + (##cdr _%e149235149495%_))) + (_%hd149234149498%_ (let () (declare (not safe)) - (##car _%e150122150382%_)))) + (##car _%e149235149495%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd150121150385%_)) - (let ((_%e150125150390%_ + (gx#stx-pair? _%hd149234149498%_)) + (let ((_%e149238149503%_ (let () (declare (not safe)) - (gx#stx-e _%hd150121150385%_)))) - (let ((_%tl150123150395%_ + (gx#stx-e _%hd149234149498%_)))) + (let ((_%tl149236149508%_ (let () (declare (not safe)) - (##cdr _%e150125150390%_))) - (_%hd150124150393%_ + (##cdr _%e149238149503%_))) + (_%hd149237149506%_ (let () (declare (not safe)) - (##car _%e150125150390%_)))) + (##car _%e149238149503%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd150124150393%_)) + _%hd149237149506%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd150124150393%_)) + _%hd149237149506%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl150123150395%_)) - (let ((_%e150128150398%_ + _%tl149236149508%_)) + (let ((_%e149241149511%_ (let () (declare (not safe)) (gx#stx-e - _%tl150123150395%_)))) - (let ((_%tl150126150403%_ + _%tl149236149508%_)))) + (let ((_%tl149239149516%_ (let () (declare (not safe)) - (##cdr _%e150128150398%_))) - (_%hd150127150401%_ + (##cdr _%e149241149511%_))) + (_%hd149240149514%_ (let () (declare (not safe)) - (##car _%e150128150398%_)))) + (##car _%e149241149511%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl150126150403%_)) + _%tl149239149516%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl150120150387%_)) - (let ((_%e150131150406%_ + (gx#stx-pair? _%tl149233149500%_)) + (let ((_%e149244149519%_ (let () (declare (not safe)) - (gx#stx-e _%tl150120150387%_)))) - (let ((_%tl150129150411%_ + (gx#stx-e _%tl149233149500%_)))) + (let ((_%tl149242149524%_ (let () (declare (not safe)) - (##cdr _%e150131150406%_))) - (_%hd150130150409%_ + (##cdr _%e149244149519%_))) + (_%hd149243149522%_ (let () (declare (not safe)) - (##car _%e150131150406%_)))) + (##car _%e149244149519%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd150130150409%_)) - (let ((_%e150134150414%_ + (gx#stx-pair? _%hd149243149522%_)) + (let ((_%e149247149527%_ (let () (declare (not safe)) - (gx#stx-e _%hd150130150409%_)))) - (let ((_%tl150132150419%_ + (gx#stx-e _%hd149243149522%_)))) + (let ((_%tl149245149532%_ (let () (declare (not safe)) - (##cdr _%e150134150414%_))) - (_%hd150133150417%_ + (##cdr _%e149247149527%_))) + (_%hd149246149530%_ (let () (declare (not safe)) - (##car _%e150134150414%_)))) + (##car _%e149247149527%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd150133150417%_)) + (gx#identifier? _%hd149246149530%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd150133150417%_)) + _%hd149246149530%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl150132150419%_)) - (let ((_%e150137150422%_ + _%tl149245149532%_)) + (let ((_%e149250149535%_ (let () (declare (not safe)) (gx#stx-e - _%tl150132150419%_)))) - (let ((_%tl150135150427%_ + _%tl149245149532%_)))) + (let ((_%tl149248149540%_ (let () (declare (not safe)) - (##cdr _%e150137150422%_))) - (_%hd150136150425%_ + (##cdr _%e149250149535%_))) + (_%hd149249149538%_ (let () (declare (not safe)) - (##car _%e150137150422%_)))) + (##car _%e149250149535%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl150135150427%_)) + _%tl149248149540%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl150129150411%_)) - (let ((_%e150140150430%_ + _%tl149242149524%_)) + (let ((_%e149253149543%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl150129150411%_)))) - (let ((_%tl150138150435%_ + (gx#stx-e _%tl149242149524%_)))) + (let ((_%tl149251149548%_ (let () (declare (not safe)) - (##cdr _%e150140150430%_))) - (_%hd150139150433%_ + (##cdr _%e149253149543%_))) + (_%hd149252149546%_ (let () (declare (not safe)) - (##car _%e150140150430%_)))) + (##car _%e149253149543%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd150139150433%_)) - (let ((_%e150143150438%_ + (gx#stx-pair? _%hd149252149546%_)) + (let ((_%e149256149551%_ (let () (declare (not safe)) - (gx#stx-e _%hd150139150433%_)))) - (let ((_%tl150141150443%_ + (gx#stx-e _%hd149252149546%_)))) + (let ((_%tl149254149556%_ (let () (declare (not safe)) - (##cdr _%e150143150438%_))) - (_%hd150142150441%_ + (##cdr _%e149256149551%_))) + (_%hd149255149554%_ (let () (declare (not safe)) - (##car _%e150143150438%_)))) + (##car _%e149256149551%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd150142150441%_)) + (gx#identifier? _%hd149255149554%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd150142150441%_)) + _%hd149255149554%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150141150443%_)) - (let ((_%e150146150446%_ + (gx#stx-pair? _%tl149254149556%_)) + (let ((_%e149259149559%_ (let () (declare (not safe)) (gx#stx-e - _%tl150141150443%_)))) - (let ((_%tl150144150451%_ + _%tl149254149556%_)))) + (let ((_%tl149257149564%_ (let () (declare (not safe)) - (##cdr _%e150146150446%_))) - (_%hd150145150449%_ + (##cdr _%e149259149559%_))) + (_%hd149258149562%_ (let () (declare (not safe)) - (##car _%e150146150446%_)))) + (##car _%e149259149559%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl150144150451%_)) + _%tl149257149564%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl150138150435%_)) - (let ((_%e150149150454%_ + _%tl149251149548%_)) + (let ((_%e149262149567%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl150138150435%_)))) - (let ((_%tl150147150459%_ - (let () (declare (not safe)) (##cdr _%e150149150454%_))) - (_%hd150148150457%_ + (gx#stx-e _%tl149251149548%_)))) + (let ((_%tl149260149572%_ + (let () (declare (not safe)) (##cdr _%e149262149567%_))) + (_%hd149261149570%_ (let () (declare (not safe)) - (##car _%e150149150454%_)))) + (##car _%e149262149567%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd150148150457%_)) - (let ((_%e150152150462%_ + (gx#stx-pair? _%hd149261149570%_)) + (let ((_%e149265149575%_ (let () (declare (not safe)) - (gx#stx-e _%hd150148150457%_)))) - (let ((_%tl150150150467%_ + (gx#stx-e _%hd149261149570%_)))) + (let ((_%tl149263149580%_ (let () (declare (not safe)) - (##cdr _%e150152150462%_))) - (_%hd150151150465%_ + (##cdr _%e149265149575%_))) + (_%hd149264149578%_ (let () (declare (not safe)) - (##car _%e150152150462%_)))) + (##car _%e149265149575%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd150151150465%_)) + (gx#identifier? _%hd149264149578%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd150151150465%_)) + (gx#stx-eq? '%#ref _%hd149264149578%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150150150467%_)) - (let ((_%e150155150470%_ + (gx#stx-pair? _%tl149263149580%_)) + (let ((_%e149268149583%_ (let () (declare (not safe)) - (gx#stx-e _%tl150150150467%_)))) - (let ((_%tl150153150475%_ + (gx#stx-e _%tl149263149580%_)))) + (let ((_%tl149266149588%_ (let () (declare (not safe)) - (##cdr _%e150155150470%_))) - (_%hd150154150473%_ + (##cdr _%e149268149583%_))) + (_%hd149267149586%_ (let () (declare (not safe)) - (##car _%e150155150470%_)))) + (##car _%e149268149583%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl150153150475%_)) + _%tl149266149588%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl150147150459%_)) - (let ((_%e150158150478%_ + _%tl149260149572%_)) + (let ((_%e149271149591%_ (let () (declare (not safe)) (gx#stx-e - _%tl150147150459%_)))) - (let ((_%tl150156150483%_ + _%tl149260149572%_)))) + (let ((_%tl149269149596%_ (let () (declare (not safe)) - (##cdr _%e150158150478%_))) - (_%hd150157150481%_ + (##cdr _%e149271149591%_))) + (_%hd149270149594%_ (let () (declare (not safe)) - (##car _%e150158150478%_)))) + (##car _%e149271149591%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd150157150481%_)) - (let ((_%e150161150486%_ + _%hd149270149594%_)) + (let ((_%e149274149599%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd150157150481%_)))) - (let ((_%tl150159150491%_ + (gx#stx-e _%hd149270149594%_)))) + (let ((_%tl149272149604%_ (let () (declare (not safe)) - (##cdr _%e150161150486%_))) - (_%hd150160150489%_ + (##cdr _%e149274149599%_))) + (_%hd149273149602%_ (let () (declare (not safe)) - (##car _%e150161150486%_)))) + (##car _%e149274149599%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd150160150489%_)) + (gx#identifier? _%hd149273149602%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd150160150489%_)) + (gx#stx-eq? '%#quote _%hd149273149602%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150159150491%_)) - (let ((_%e150164150494%_ + (gx#stx-pair? _%tl149272149604%_)) + (let ((_%e149277149607%_ (let () (declare (not safe)) - (gx#stx-e _%tl150159150491%_)))) - (let ((_%tl150162150499%_ + (gx#stx-e _%tl149272149604%_)))) + (let ((_%tl149275149612%_ (let () (declare (not safe)) - (##cdr _%e150164150494%_))) - (_%hd150163150497%_ + (##cdr _%e149277149607%_))) + (_%hd149276149610%_ (let () (declare (not safe)) - (##car _%e150164150494%_)))) + (##car _%e149277149607%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl150162150499%_)) + (gx#stx-null? _%tl149275149612%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl150156150483%_)) - (_%__match150920150921%_ - _%e150119150374%_ - _%hd150118150377%_ - _%tl150117150379%_ - _%e150122150382%_ - _%hd150121150385%_ - _%tl150120150387%_ - _%e150125150390%_ - _%hd150124150393%_ - _%tl150123150395%_ - _%e150128150398%_ - _%hd150127150401%_ - _%tl150126150403%_ - _%e150131150406%_ - _%hd150130150409%_ - _%tl150129150411%_ - _%e150134150414%_ - _%hd150133150417%_ - _%tl150132150419%_ - _%e150137150422%_ - _%hd150136150425%_ - _%tl150135150427%_ - _%e150140150430%_ - _%hd150139150433%_ - _%tl150138150435%_ - _%e150143150438%_ - _%hd150142150441%_ - _%tl150141150443%_ - _%e150146150446%_ - _%hd150145150449%_ - _%tl150144150451%_ - _%e150149150454%_ - _%hd150148150457%_ - _%tl150147150459%_ - _%e150152150462%_ - _%hd150151150465%_ - _%tl150150150467%_ - _%e150155150470%_ - _%hd150154150473%_ - _%tl150153150475%_ - _%e150158150478%_ - _%hd150157150481%_ - _%tl150156150483%_ - _%e150161150486%_ - _%hd150160150489%_ - _%tl150159150491%_ - _%e150164150494%_ - _%hd150163150497%_ - _%tl150162150499%_) - (_%__kont150791150792%_)) - (_%__kont150791150792%_)))) - (_%__kont150791150792%_)) - (_%__kont150791150792%_)) - (_%__kont150791150792%_)))) - (_%__kont150791150792%_)))) + _%tl149269149596%_)) + (_%__match150033150034%_ + _%e149232149487%_ + _%hd149231149490%_ + _%tl149230149492%_ + _%e149235149495%_ + _%hd149234149498%_ + _%tl149233149500%_ + _%e149238149503%_ + _%hd149237149506%_ + _%tl149236149508%_ + _%e149241149511%_ + _%hd149240149514%_ + _%tl149239149516%_ + _%e149244149519%_ + _%hd149243149522%_ + _%tl149242149524%_ + _%e149247149527%_ + _%hd149246149530%_ + _%tl149245149532%_ + _%e149250149535%_ + _%hd149249149538%_ + _%tl149248149540%_ + _%e149253149543%_ + _%hd149252149546%_ + _%tl149251149548%_ + _%e149256149551%_ + _%hd149255149554%_ + _%tl149254149556%_ + _%e149259149559%_ + _%hd149258149562%_ + _%tl149257149564%_ + _%e149262149567%_ + _%hd149261149570%_ + _%tl149260149572%_ + _%e149265149575%_ + _%hd149264149578%_ + _%tl149263149580%_ + _%e149268149583%_ + _%hd149267149586%_ + _%tl149266149588%_ + _%e149271149591%_ + _%hd149270149594%_ + _%tl149269149596%_ + _%e149274149599%_ + _%hd149273149602%_ + _%tl149272149604%_ + _%e149277149607%_ + _%hd149276149610%_ + _%tl149275149612%_) + (_%__kont149904149905%_)) + (_%__kont149904149905%_)))) + (_%__kont149904149905%_)) + (_%__kont149904149905%_)) + (_%__kont149904149905%_)))) + (_%__kont149904149905%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl150147150459%_)) - (if (let ((__tmp151070 + _%tl149260149572%_)) + (if (let ((__tmp150183 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp151070 'bind-method!)) - (let ((_%L150328%_ _%hd150154150473%_) - (_%L150329%_ _%hd150145150449%_) - (_%L150330%_ _%hd150136150425%_) - (_%L150331%_ _%hd150127150401%_)) - (_%__kont150789150790%_ - _%L150328%_ - _%L150329%_ - _%L150330%_ - _%L150331%_)) - (_%__kont150791150792%_)) - (_%__kont150791150792%_))) + (gxc#runtime-identifier=? __tmp150183 'bind-method!)) + (let ((_%L149441%_ _%hd149267149586%_) + (_%L149442%_ _%hd149258149562%_) + (_%L149443%_ _%hd149249149538%_) + (_%L149444%_ _%hd149240149514%_)) + (_%__kont149902149903%_ + _%L149441%_ + _%L149442%_ + _%L149443%_ + _%L149444%_)) + (_%__kont149904149905%_)) + (_%__kont149904149905%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont150791150792%_)))) - (_%__kont150791150792%_)) - (_%__kont150791150792%_)) - (_%__kont150791150792%_)))) - (_%__kont150791150792%_)))) - (_%__kont150791150792%_)) + (_%__kont149904149905%_)))) + (_%__kont149904149905%_)) + (_%__kont149904149905%_)) + (_%__kont149904149905%_)))) + (_%__kont149904149905%_)))) + (_%__kont149904149905%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont150791150792%_)))) - (_%__kont150791150792%_)) - (_%__kont150791150792%_)) - (_%__kont150791150792%_)))) - (_%__kont150791150792%_)))) - (_%__kont150791150792%_)) - (_%__kont150791150792%_)))) + (_%__kont149904149905%_)))) + (_%__kont149904149905%_)) + (_%__kont149904149905%_)) + (_%__kont149904149905%_)))) + (_%__kont149904149905%_)))) + (_%__kont149904149905%_)) + (_%__kont149904149905%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont150791150792%_)) - (_%__kont150791150792%_)) - (_%__kont150791150792%_)))) - (_%__kont150791150792%_)))) - (_%__kont150791150792%_)) - (_%__kont150791150792%_)))) + (_%__kont149904149905%_)) + (_%__kont149904149905%_)) + (_%__kont149904149905%_)))) + (_%__kont149904149905%_)))) + (_%__kont149904149905%_)) + (_%__kont149904149905%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont150791150792%_)) - (_%__kont150791150792%_)) - (_%__kont150791150792%_)))) - (_%__kont150791150792%_)))) - (_%__kont150791150792%_)))) - (_%__kont150791150792%_))))))) + (_%__kont149904149905%_)) + (_%__kont149904149905%_)) + (_%__kont149904149905%_)))) + (_%__kont149904149905%_)))) + (_%__kont149904149905%_)))) + (_%__kont149904149905%_))))))) (define gxc#expression-subst-ref% - (lambda (_%self150053%_ _%stx150054%_) - (let* ((_%g150056150069%_ - (lambda (_%g150057150066%_) + (lambda (_%self149166%_ _%stx149167%_) + (let* ((_%g149169149182%_ + (lambda (_%g149170149179%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g150057150066%_)))) - (_%g150055150102%_ - (lambda (_%g150057150072%_) + _%g149170149179%_)))) + (_%g149168149215%_ + (lambda (_%g149170149185%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g150057150072%_)) - (let ((_%e150061150074%_ + (gx#stx-pair? _%g149170149185%_)) + (let ((_%e149174149187%_ (let () (declare (not safe)) - (gx#stx-e _%g150057150072%_)))) - (let ((_%hd150060150077%_ + (gx#stx-e _%g149170149185%_)))) + (let ((_%hd149173149190%_ (let () (declare (not safe)) - (##car _%e150061150074%_))) - (_%tl150059150079%_ + (##car _%e149174149187%_))) + (_%tl149172149192%_ (let () (declare (not safe)) - (##cdr _%e150061150074%_)))) + (##cdr _%e149174149187%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150059150079%_)) - (let ((_%e150064150082%_ + (gx#stx-pair? _%tl149172149192%_)) + (let ((_%e149177149195%_ (let () (declare (not safe)) - (gx#stx-e _%tl150059150079%_)))) - (let ((_%hd150063150085%_ + (gx#stx-e _%tl149172149192%_)))) + (let ((_%hd149176149198%_ (let () (declare (not safe)) - (##car _%e150064150082%_))) - (_%tl150062150087%_ + (##car _%e149177149195%_))) + (_%tl149175149200%_ (let () (declare (not safe)) - (##cdr _%e150064150082%_)))) + (##cdr _%e149177149195%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl150062150087%_)) - ((lambda (_%L150090%_) - (if (let ((__tmp151071 + (gx#stx-null? _%tl149175149200%_)) + ((lambda (_%L149203%_) + (if (let ((__tmp150184 (let () (declare (not safe)) (slot-ref__0 - _%self150053%_ + _%self149166%_ 'id)))) (declare (not safe)) (gx#free-identifier=? - _%L150090%_ - __tmp151071)) - (let ((__tmp151072 + _%L149203%_ + __tmp150184)) + (let ((__tmp150185 (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self150053%_ 'new-id)) + (slot-ref__0 _%self149166%_ 'new-id)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp151072 - _%stx150054%_)) - _%stx150054%_)) - _%hd150063150085%_) - (let () - (declare (not safe)) - (_%g150056150069%_ - _%g150057150072%_))))) - (let () - (declare (not safe)) - (_%g150056150069%_ _%g150057150072%_))))) - (let () - (declare (not safe)) - (_%g150056150069%_ _%g150057150072%_)))))) - (declare (not safe)) - (_%g150055150102%_ _%stx150054%_)))) + __tmp150185 + _%stx149167%_)) + _%stx149167%_)) + _%hd149176149198%_) + (_%g149169149182%_ _%g149170149185%_)))) + (_%g149169149182%_ _%g149170149185%_)))) + (_%g149169149182%_ _%g149170149185%_))))) + (_%g149168149215%_ _%stx149167%_)))) (define gxc#expression-subst*-ref% - (lambda (_%self149993%_ _%stx149994%_) - (let* ((_%g149996150009%_ - (lambda (_%g149997150006%_) + (lambda (_%self149106%_ _%stx149107%_) + (let* ((_%g149109149122%_ + (lambda (_%g149110149119%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149997150006%_)))) - (_%g149995150050%_ - (lambda (_%g149997150012%_) + _%g149110149119%_)))) + (_%g149108149163%_ + (lambda (_%g149110149125%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149997150012%_)) - (let ((_%e150001150014%_ + (gx#stx-pair? _%g149110149125%_)) + (let ((_%e149114149127%_ (let () (declare (not safe)) - (gx#stx-e _%g149997150012%_)))) - (let ((_%hd150000150017%_ + (gx#stx-e _%g149110149125%_)))) + (let ((_%hd149113149130%_ (let () (declare (not safe)) - (##car _%e150001150014%_))) - (_%tl149999150019%_ + (##car _%e149114149127%_))) + (_%tl149112149132%_ (let () (declare (not safe)) - (##cdr _%e150001150014%_)))) + (##cdr _%e149114149127%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149999150019%_)) - (let ((_%e150004150022%_ + (gx#stx-pair? _%tl149112149132%_)) + (let ((_%e149117149135%_ (let () (declare (not safe)) - (gx#stx-e _%tl149999150019%_)))) - (let ((_%hd150003150025%_ + (gx#stx-e _%tl149112149132%_)))) + (let ((_%hd149116149138%_ (let () (declare (not safe)) - (##car _%e150004150022%_))) - (_%tl150002150027%_ + (##car _%e149117149135%_))) + (_%tl149115149140%_ (let () (declare (not safe)) - (##cdr _%e150004150022%_)))) + (##cdr _%e149117149135%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl150002150027%_)) - ((lambda (_%L150030%_) - (let ((_%$e150044%_ - (let ((__tmp151074 - (lambda (_%sub150042%_) - (let ((__tmp151075 - (car _%sub150042%_))) + (gx#stx-null? _%tl149115149140%_)) + ((lambda (_%L149143%_) + (let ((_%$e149157%_ + (let ((__tmp150187 + (lambda (_%sub149155%_) + (let ((__tmp150188 + (car _%sub149155%_))) (declare (not safe)) (gx#free-identifier=? - _%L150030%_ - __tmp151075)))) - (__tmp151073 + _%L149143%_ + __tmp150188)))) + (__tmp150186 (let () (declare (not safe)) (slot-ref__0 - _%self149993%_ + _%self149106%_ 'subst)))) (declare (not safe)) - (__find __tmp151074 - __tmp151073)))) - (if _%$e150044%_ - ((lambda (_%sub150047%_) - (let ((__tmp151076 + (__find __tmp150187 + __tmp150186)))) + (if _%$e149157%_ + ((lambda (_%sub149160%_) + (let ((__tmp150189 (cons '%#ref - (cons (cdr _%sub150047%_) + (cons (cdr _%sub149160%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp151076 - _%stx149994%_))) - _%$e150044%_) - (let () _%stx149994%_)))) - _%hd150003150025%_) - (let () - (declare (not safe)) - (_%g149996150009%_ - _%g149997150012%_))))) - (let () - (declare (not safe)) - (_%g149996150009%_ _%g149997150012%_))))) - (let () - (declare (not safe)) - (_%g149996150009%_ _%g149997150012%_)))))) - (declare (not safe)) - (_%g149995150050%_ _%stx149994%_)))) + __tmp150189 + _%stx149107%_))) + _%$e149157%_) + _%stx149107%_))) + _%hd149116149138%_) + (_%g149109149122%_ _%g149110149125%_)))) + (_%g149109149122%_ _%g149110149125%_)))) + (_%g149109149122%_ _%g149110149125%_))))) + (_%g149108149163%_ _%stx149107%_)))) (define gxc#expression-subst-setq% - (lambda (_%self149922%_ _%stx149923%_) - (let* ((_%g149925149942%_ - (lambda (_%g149926149939%_) + (lambda (_%self149035%_ _%stx149036%_) + (let* ((_%g149038149055%_ + (lambda (_%g149039149052%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149926149939%_)))) - (_%g149924149990%_ - (lambda (_%g149926149945%_) + _%g149039149052%_)))) + (_%g149037149103%_ + (lambda (_%g149039149058%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149926149945%_)) - (let ((_%e149931149947%_ + (gx#stx-pair? _%g149039149058%_)) + (let ((_%e149044149060%_ (let () (declare (not safe)) - (gx#stx-e _%g149926149945%_)))) - (let ((_%hd149930149950%_ + (gx#stx-e _%g149039149058%_)))) + (let ((_%hd149043149063%_ (let () (declare (not safe)) - (##car _%e149931149947%_))) - (_%tl149929149952%_ + (##car _%e149044149060%_))) + (_%tl149042149065%_ (let () (declare (not safe)) - (##cdr _%e149931149947%_)))) + (##cdr _%e149044149060%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149929149952%_)) - (let ((_%e149934149955%_ + (gx#stx-pair? _%tl149042149065%_)) + (let ((_%e149047149068%_ (let () (declare (not safe)) - (gx#stx-e _%tl149929149952%_)))) - (let ((_%hd149933149958%_ + (gx#stx-e _%tl149042149065%_)))) + (let ((_%hd149046149071%_ (let () (declare (not safe)) - (##car _%e149934149955%_))) - (_%tl149932149960%_ + (##car _%e149047149068%_))) + (_%tl149045149073%_ (let () (declare (not safe)) - (##cdr _%e149934149955%_)))) + (##cdr _%e149047149068%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149932149960%_)) - (let ((_%e149937149963%_ + (gx#stx-pair? _%tl149045149073%_)) + (let ((_%e149050149076%_ (let () (declare (not safe)) - (gx#stx-e _%tl149932149960%_)))) - (let ((_%hd149936149966%_ + (gx#stx-e _%tl149045149073%_)))) + (let ((_%hd149049149079%_ (let () (declare (not safe)) - (##car _%e149937149963%_))) - (_%tl149935149968%_ + (##car _%e149050149076%_))) + (_%tl149048149081%_ (let () (declare (not safe)) - (##cdr _%e149937149963%_)))) + (##cdr _%e149050149076%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl149935149968%_)) - ((lambda (_%L149971%_ - _%L149972%_) - (let ((_%new-expr149987%_ + _%tl149048149081%_)) + ((lambda (_%L149084%_ + _%L149085%_) + (let ((_%new-expr149100%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self149922%_ - _%L149971%_))) - (_%new-xid149988%_ - (if (let ((__tmp151077 + _%self149035%_ + _%L149084%_))) + (_%new-xid149101%_ + (if (let ((__tmp150190 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _%self149922%_ 'id)))) + (slot-ref__0 _%self149035%_ 'id)))) (declare (not safe)) - (gx#free-identifier=? _%L149972%_ __tmp151077)) + (gx#free-identifier=? _%L149085%_ __tmp150190)) (let () (declare (not safe)) - (slot-ref__0 _%self149922%_ 'new-id)) - _%L149972%_))) + (slot-ref__0 _%self149035%_ 'new-id)) + _%L149085%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp151078 + (let ((__tmp150191 (cons '%#set! - (cons _%new-xid149988%_ + (cons _%new-xid149101%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr149987%_ '()))))) + (cons _%new-expr149100%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp151078 - _%stx149923%_)))) - _%hd149936149966%_ - _%hd149933149958%_) - (let () - (declare (not safe)) - (_%g149925149942%_ - _%g149926149945%_))))) - (let () - (declare (not safe)) - (_%g149925149942%_ - _%g149926149945%_))))) - (let () - (declare (not safe)) - (_%g149925149942%_ _%g149926149945%_))))) - (let () - (declare (not safe)) - (_%g149925149942%_ _%g149926149945%_)))))) - (declare (not safe)) - (_%g149924149990%_ _%stx149923%_)))) + __tmp150191 + _%stx149036%_)))) + _%hd149049149079%_ + _%hd149046149071%_) + (_%g149038149055%_ + _%g149039149058%_)))) + (_%g149038149055%_ _%g149039149058%_)))) + (_%g149038149055%_ _%g149039149058%_)))) + (_%g149038149055%_ _%g149039149058%_))))) + (_%g149037149103%_ _%stx149036%_)))) (define gxc#expression-subst*-setq% - (lambda (_%self149845%_ _%stx149846%_) - (let* ((_%g149848149865%_ - (lambda (_%g149849149862%_) + (lambda (_%self148958%_ _%stx148959%_) + (let* ((_%g148961148978%_ + (lambda (_%g148962148975%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149849149862%_)))) - (_%g149847149919%_ - (lambda (_%g149849149868%_) + _%g148962148975%_)))) + (_%g148960149032%_ + (lambda (_%g148962148981%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149849149868%_)) - (let ((_%e149854149870%_ + (gx#stx-pair? _%g148962148981%_)) + (let ((_%e148967148983%_ (let () (declare (not safe)) - (gx#stx-e _%g149849149868%_)))) - (let ((_%hd149853149873%_ + (gx#stx-e _%g148962148981%_)))) + (let ((_%hd148966148986%_ (let () (declare (not safe)) - (##car _%e149854149870%_))) - (_%tl149852149875%_ + (##car _%e148967148983%_))) + (_%tl148965148988%_ (let () (declare (not safe)) - (##cdr _%e149854149870%_)))) + (##cdr _%e148967148983%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149852149875%_)) - (let ((_%e149857149878%_ + (gx#stx-pair? _%tl148965148988%_)) + (let ((_%e148970148991%_ (let () (declare (not safe)) - (gx#stx-e _%tl149852149875%_)))) - (let ((_%hd149856149881%_ + (gx#stx-e _%tl148965148988%_)))) + (let ((_%hd148969148994%_ (let () (declare (not safe)) - (##car _%e149857149878%_))) - (_%tl149855149883%_ + (##car _%e148970148991%_))) + (_%tl148968148996%_ (let () (declare (not safe)) - (##cdr _%e149857149878%_)))) + (##cdr _%e148970148991%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149855149883%_)) - (let ((_%e149860149886%_ + (gx#stx-pair? _%tl148968148996%_)) + (let ((_%e148973148999%_ (let () (declare (not safe)) - (gx#stx-e _%tl149855149883%_)))) - (let ((_%hd149859149889%_ + (gx#stx-e _%tl148968148996%_)))) + (let ((_%hd148972149002%_ (let () (declare (not safe)) - (##car _%e149860149886%_))) - (_%tl149858149891%_ + (##car _%e148973148999%_))) + (_%tl148971149004%_ (let () (declare (not safe)) - (##cdr _%e149860149886%_)))) + (##cdr _%e148973148999%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl149858149891%_)) - ((lambda (_%L149894%_ - _%L149895%_) - (let ((_%new-expr149916%_ + _%tl148971149004%_)) + ((lambda (_%L149007%_ + _%L149008%_) + (let ((_%new-expr149029%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self149845%_ - _%L149894%_))) - (_%new-xid149917%_ - (let ((_%$e149912%_ - (let ((__tmp151080 + _%self148958%_ + _%L149007%_))) + (_%new-xid149030%_ + (let ((_%$e149025%_ + (let ((__tmp150193 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%sub149910%_) - (let ((__tmp151081 (car _%sub149910%_))) + (lambda (_%sub149023%_) + (let ((__tmp150194 (car _%sub149023%_))) (declare (not safe)) (gx#free-identifier=? - _%L149895%_ - __tmp151081)))) - (__tmp151079 + _%L149008%_ + __tmp150194)))) + (__tmp150192 (let () (declare (not safe)) - (slot-ref__0 _%self149845%_ 'subst)))) + (slot-ref__0 _%self148958%_ 'subst)))) (declare (not safe)) - (__find __tmp151080 __tmp151079)))) - (if _%$e149912%_ (cdr _%$e149912%_) (let () _%L149895%_))))) + (__find __tmp150193 __tmp150192)))) + (if _%$e149025%_ (cdr _%$e149025%_) _%L149008%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp151082 + (let ((__tmp150195 (cons '%#set! - (cons _%new-xid149917%_ + (cons _%new-xid149030%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr149916%_ '()))))) + (cons _%new-expr149029%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp151082 - _%stx149846%_)))) - _%hd149859149889%_ - _%hd149856149881%_) - (let () - (declare (not safe)) - (_%g149848149865%_ - _%g149849149868%_))))) - (let () - (declare (not safe)) - (_%g149848149865%_ - _%g149849149868%_))))) - (let () - (declare (not safe)) - (_%g149848149865%_ _%g149849149868%_))))) - (let () - (declare (not safe)) - (_%g149848149865%_ _%g149849149868%_)))))) - (declare (not safe)) - (_%g149847149919%_ _%stx149846%_)))) + __tmp150195 + _%stx148959%_)))) + _%hd148972149002%_ + _%hd148969148994%_) + (_%g148961148978%_ + _%g148962148981%_)))) + (_%g148961148978%_ _%g148962148981%_)))) + (_%g148961148978%_ _%g148962148981%_)))) + (_%g148961148978%_ _%g148962148981%_))))) + (_%g148960149032%_ _%stx148959%_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_%self149791%_ _%stx149792%_) - (let* ((_%g149794149807%_ - (lambda (_%g149795149804%_) + (lambda (_%self148904%_ _%stx148905%_) + (let* ((_%g148907148920%_ + (lambda (_%g148908148917%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149795149804%_)))) - (_%g149793149842%_ - (lambda (_%g149795149810%_) + _%g148908148917%_)))) + (_%g148906148955%_ + (lambda (_%g148908148923%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149795149810%_)) - (let ((_%e149799149812%_ + (gx#stx-pair? _%g148908148923%_)) + (let ((_%e148912148925%_ (let () (declare (not safe)) - (gx#stx-e _%g149795149810%_)))) - (let ((_%hd149798149815%_ + (gx#stx-e _%g148908148923%_)))) + (let ((_%hd148911148928%_ (let () (declare (not safe)) - (##car _%e149799149812%_))) - (_%tl149797149817%_ + (##car _%e148912148925%_))) + (_%tl148910148930%_ (let () (declare (not safe)) - (##cdr _%e149799149812%_)))) + (##cdr _%e148912148925%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149797149817%_)) - (let ((_%e149802149820%_ + (gx#stx-pair? _%tl148910148930%_)) + (let ((_%e148915148933%_ (let () (declare (not safe)) - (gx#stx-e _%tl149797149817%_)))) - (let ((_%hd149801149823%_ + (gx#stx-e _%tl148910148930%_)))) + (let ((_%hd148914148936%_ (let () (declare (not safe)) - (##car _%e149802149820%_))) - (_%tl149800149825%_ + (##car _%e148915148933%_))) + (_%tl148913148938%_ (let () (declare (not safe)) - (##cdr _%e149802149820%_)))) + (##cdr _%e148915148933%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl149800149825%_)) - ((lambda (_%L149828%_) - (let* ((_%eid149840%_ + (gx#stx-null? _%tl148913148938%_)) + ((lambda (_%L148941%_) + (let* ((_%eid148953%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L149828%_))) - (__tmp151083 + _%L148941%_))) + (__tmp150196 (let () (declare (not safe)) (slot-ref__0 - _%self149791%_ + _%self148904%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp151083 - _%eid149840%_ + __tmp150196 + _%eid148953%_ 1+ '0))) - _%hd149801149823%_) - (let () - (declare (not safe)) - (_%g149794149807%_ - _%g149795149810%_))))) - (let () - (declare (not safe)) - (_%g149794149807%_ _%g149795149810%_))))) - (let () - (declare (not safe)) - (_%g149794149807%_ _%g149795149810%_)))))) - (declare (not safe)) - (_%g149793149842%_ _%stx149792%_)))) + _%hd148914148936%_) + (_%g148907148920%_ _%g148908148923%_)))) + (_%g148907148920%_ _%g148908148923%_)))) + (_%g148907148920%_ _%g148908148923%_))))) + (_%g148906148955%_ _%stx148905%_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_%self149721%_ _%stx149722%_) - (let* ((_%g149724149741%_ - (lambda (_%g149725149738%_) + (lambda (_%self148834%_ _%stx148835%_) + (let* ((_%g148837148854%_ + (lambda (_%g148838148851%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149725149738%_)))) - (_%g149723149788%_ - (lambda (_%g149725149744%_) + _%g148838148851%_)))) + (_%g148836148901%_ + (lambda (_%g148838148857%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149725149744%_)) - (let ((_%e149730149746%_ + (gx#stx-pair? _%g148838148857%_)) + (let ((_%e148843148859%_ (let () (declare (not safe)) - (gx#stx-e _%g149725149744%_)))) - (let ((_%hd149729149749%_ + (gx#stx-e _%g148838148857%_)))) + (let ((_%hd148842148862%_ (let () (declare (not safe)) - (##car _%e149730149746%_))) - (_%tl149728149751%_ + (##car _%e148843148859%_))) + (_%tl148841148864%_ (let () (declare (not safe)) - (##cdr _%e149730149746%_)))) + (##cdr _%e148843148859%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149728149751%_)) - (let ((_%e149733149754%_ + (gx#stx-pair? _%tl148841148864%_)) + (let ((_%e148846148867%_ (let () (declare (not safe)) - (gx#stx-e _%tl149728149751%_)))) - (let ((_%hd149732149757%_ + (gx#stx-e _%tl148841148864%_)))) + (let ((_%hd148845148870%_ (let () (declare (not safe)) - (##car _%e149733149754%_))) - (_%tl149731149759%_ + (##car _%e148846148867%_))) + (_%tl148844148872%_ (let () (declare (not safe)) - (##cdr _%e149733149754%_)))) + (##cdr _%e148846148867%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149731149759%_)) - (let ((_%e149736149762%_ + (gx#stx-pair? _%tl148844148872%_)) + (let ((_%e148849148875%_ (let () (declare (not safe)) - (gx#stx-e _%tl149731149759%_)))) - (let ((_%hd149735149765%_ + (gx#stx-e _%tl148844148872%_)))) + (let ((_%hd148848148878%_ (let () (declare (not safe)) - (##car _%e149736149762%_))) - (_%tl149734149767%_ + (##car _%e148849148875%_))) + (_%tl148847148880%_ (let () (declare (not safe)) - (##cdr _%e149736149762%_)))) + (##cdr _%e148849148875%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl149734149767%_)) - ((lambda (_%L149770%_ - _%L149771%_) - (let ((_%eid149786%_ + _%tl148847148880%_)) + ((lambda (_%L148883%_ + _%L148884%_) + (let ((_%eid148899%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L149771%_)))) - (let ((__tmp151084 + _%L148884%_)))) + (let ((__tmp150197 (let () (declare (not safe)) (slot-ref__0 - _%self149721%_ + _%self148834%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp151084 - _%eid149786%_ + __tmp150197 + _%eid148899%_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self149721%_ - _%L149770%_)))) - _%hd149735149765%_ - _%hd149732149757%_) - (let () - (declare (not safe)) - (_%g149724149741%_ - _%g149725149744%_))))) - (let () - (declare (not safe)) - (_%g149724149741%_ - _%g149725149744%_))))) - (let () - (declare (not safe)) - (_%g149724149741%_ _%g149725149744%_))))) - (let () - (declare (not safe)) - (_%g149724149741%_ _%g149725149744%_)))))) - (declare (not safe)) - (_%g149723149788%_ _%stx149722%_)))) + _%self148834%_ + _%L148883%_)))) + _%hd148848148878%_ + _%hd148845148870%_) + (_%g148837148854%_ + _%g148838148857%_)))) + (_%g148837148854%_ _%g148838148857%_)))) + (_%g148837148854%_ _%g148838148857%_)))) + (_%g148837148854%_ _%g148838148857%_))))) + (_%g148836148901%_ _%stx148835%_)))) (define gxc#find-body% - (lambda (_%self149634%_ _%stx149635%_) - (let* ((_%g149637149656%_ - (lambda (_%g149638149653%_) + (lambda (_%self148747%_ _%stx148748%_) + (let* ((_%g148750148769%_ + (lambda (_%g148751148766%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149638149653%_)))) - (_%g149636149718%_ - (lambda (_%g149638149659%_) + _%g148751148766%_)))) + (_%g148749148831%_ + (lambda (_%g148751148772%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149638149659%_)) - (let ((_%e149642149661%_ + (gx#stx-pair? _%g148751148772%_)) + (let ((_%e148755148774%_ (let () (declare (not safe)) - (gx#stx-e _%g149638149659%_)))) - (let ((_%hd149641149664%_ + (gx#stx-e _%g148751148772%_)))) + (let ((_%hd148754148777%_ (let () (declare (not safe)) - (##car _%e149642149661%_))) - (_%tl149640149666%_ + (##car _%e148755148774%_))) + (_%tl148753148779%_ (let () (declare (not safe)) - (##cdr _%e149642149661%_)))) + (##cdr _%e148755148774%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl149640149666%_)) - (let ((_g151085_ + (gx#stx-pair/null? _%tl148753148779%_)) + (let ((_g150198_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl149640149666%_ + _%tl148753148779%_ '0)))) (begin - (let ((_g151086_ + (let ((_g150199_ (let () (declare (not safe)) - (if (##values? _g151085_) - (##vector-length _g151085_) + (if (##values? _g150198_) + (##vector-length _g150198_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g151086_ 2))) + (##fx= _g150199_ 2))) (error "Context expects 2 values" - _g151086_))) - (let ((_%target149643149669%_ + _g150199_))) + (let ((_%target148756148782%_ (let () (declare (not safe)) - (##vector-ref _g151085_ 0))) - (_%tl149645149671%_ + (##vector-ref _g150198_ 0))) + (_%tl148758148784%_ (let () (declare (not safe)) - (##vector-ref _g151085_ 1)))) + (##vector-ref _g150198_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl149645149671%_)) - (letrec ((_%loop149646149674%_ - (lambda (_%hd149644149677%_ - _%expr149650149679%_) + (gx#stx-null? _%tl148758148784%_)) + (letrec ((_%loop148759148787%_ + (lambda (_%hd148757148790%_ + _%expr148763148792%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd149644149677%_)) - (let ((_%e149647149682%_ + _%hd148757148790%_)) + (let ((_%e148760148795%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd149644149677%_)))) - (let ((_%lp-hd149648149685%_ + (gx#stx-e _%hd148757148790%_)))) + (let ((_%lp-hd148761148798%_ (let () (declare (not safe)) - (##car _%e149647149682%_))) - (_%lp-tl149649149687%_ + (##car _%e148760148795%_))) + (_%lp-tl148762148800%_ (let () (declare (not safe)) - (##cdr _%e149647149682%_)))) - (let ((__tmp151087 - (cons _%lp-hd149648149685%_ _%expr149650149679%_))) - (declare (not safe)) - (_%loop149646149674%_ - _%lp-tl149649149687%_ - __tmp151087)))) - (let ((_%expr149651149690%_ (reverse _%expr149650149679%_))) - ((lambda (_%L149693%_) - (let ((__tmp151090 - (lambda (_%g149706149708%_) + (##cdr _%e148760148795%_)))) + (_%loop148759148787%_ + _%lp-tl148762148800%_ + (cons _%lp-hd148761148798%_ _%expr148763148792%_)))) + (let ((_%expr148764148803%_ (reverse _%expr148763148792%_))) + ((lambda (_%L148806%_) + (let ((__tmp150202 + (lambda (_%g148819148821%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self149634%_ - _%g149706149708%_)))) - (__tmp151088 - (let ((__tmp151089 - (lambda (_%g149710149713%_ - _%g149711149715%_) - (cons _%g149710149713%_ - _%g149711149715%_)))) + _%self148747%_ + _%g148819148821%_)))) + (__tmp150200 + (let ((__tmp150201 + (lambda (_%g148823148826%_ + _%g148824148828%_) + (cons _%g148823148826%_ + _%g148824148828%_)))) (declare (not safe)) - (__foldr1 __tmp151089 '() _%L149693%_)))) + (__foldr1 __tmp150201 '() _%L148806%_)))) (declare (not safe)) - (__ormap1 __tmp151090 __tmp151088))) - _%expr149651149690%_)))))) + (__ormap1 __tmp150202 __tmp150200))) + _%expr148764148803%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop149646149674%_ - _%target149643149669%_ - '()))) - (let () - (declare (not safe)) - (_%g149637149656%_ - _%g149638149659%_)))))) - (let () - (declare (not safe)) - (_%g149637149656%_ _%g149638149659%_))))) - (let () - (declare (not safe)) - (_%g149637149656%_ _%g149638149659%_)))))) - (declare (not safe)) - (_%g149636149718%_ _%stx149635%_)))) + (_%loop148759148787%_ + _%target148756148782%_ + '())) + (_%g148750148769%_ + _%g148751148772%_))))) + (_%g148750148769%_ _%g148751148772%_)))) + (_%g148750148769%_ _%g148751148772%_))))) + (_%g148749148831%_ _%stx148748%_)))) (define gxc#find-let-values% - (lambda (_%self149484%_ _%stx149485%_) - (let* ((_%g149487149522%_ - (lambda (_%g149488149519%_) + (lambda (_%self148597%_ _%stx148598%_) + (let* ((_%g148600148635%_ + (lambda (_%g148601148632%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149488149519%_)))) - (_%g149486149631%_ - (lambda (_%g149488149525%_) + _%g148601148632%_)))) + (_%g148599148744%_ + (lambda (_%g148601148638%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149488149525%_)) - (let ((_%e149494149527%_ + (gx#stx-pair? _%g148601148638%_)) + (let ((_%e148607148640%_ (let () (declare (not safe)) - (gx#stx-e _%g149488149525%_)))) - (let ((_%hd149493149530%_ + (gx#stx-e _%g148601148638%_)))) + (let ((_%hd148606148643%_ (let () (declare (not safe)) - (##car _%e149494149527%_))) - (_%tl149492149532%_ + (##car _%e148607148640%_))) + (_%tl148605148645%_ (let () (declare (not safe)) - (##cdr _%e149494149527%_)))) + (##cdr _%e148607148640%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149492149532%_)) - (let ((_%e149497149535%_ + (gx#stx-pair? _%tl148605148645%_)) + (let ((_%e148610148648%_ (let () (declare (not safe)) - (gx#stx-e _%tl149492149532%_)))) - (let ((_%hd149496149538%_ + (gx#stx-e _%tl148605148645%_)))) + (let ((_%hd148609148651%_ (let () (declare (not safe)) - (##car _%e149497149535%_))) - (_%tl149495149540%_ + (##car _%e148610148648%_))) + (_%tl148608148653%_ (let () (declare (not safe)) - (##cdr _%e149497149535%_)))) + (##cdr _%e148610148648%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd149496149538%_)) - (let ((_g151091_ + (gx#stx-pair/null? _%hd148609148651%_)) + (let ((_g150203_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd149496149538%_ + _%hd148609148651%_ '0)))) (begin - (let ((_g151092_ + (let ((_g150204_ (let () (declare (not safe)) - (if (##values? _g151091_) + (if (##values? _g150203_) (##vector-length - _g151091_) + _g150203_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g151092_ 2))) + (##fx= _g150204_ 2))) (error "Context expects 2 values" - _g151092_))) - (let ((_%target149498149543%_ + _g150204_))) + (let ((_%target148611148656%_ (let () (declare (not safe)) - (##vector-ref _g151091_ 0))) - (_%tl149500149545%_ + (##vector-ref _g150203_ 0))) + (_%tl148613148658%_ (let () (declare (not safe)) (##vector-ref - _g151091_ + _g150203_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl149500149545%_)) - (letrec ((_%loop149501149548%_ - (lambda (_%hd149499149551%_ + _%tl148613148658%_)) + (letrec ((_%loop148614148661%_ + (lambda (_%hd148612148664%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr149505149553%_ - _%bind149506149555%_) + _%expr148618148666%_ + _%bind148619148668%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd149499149551%_)) - (let ((_%e149502149558%_ + (gx#stx-pair? _%hd148612148664%_)) + (let ((_%e148615148671%_ (let () (declare (not safe)) - (gx#stx-e _%hd149499149551%_)))) - (let ((_%lp-hd149503149561%_ + (gx#stx-e _%hd148612148664%_)))) + (let ((_%lp-hd148616148674%_ (let () (declare (not safe)) - (##car _%e149502149558%_))) - (_%lp-tl149504149563%_ + (##car _%e148615148671%_))) + (_%lp-tl148617148676%_ (let () (declare (not safe)) - (##cdr _%e149502149558%_)))) + (##cdr _%e148615148671%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd149503149561%_)) - (let ((_%e149511149566%_ + (gx#stx-pair? _%lp-hd148616148674%_)) + (let ((_%e148624148679%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd149503149561%_)))) - (let ((_%hd149510149569%_ + (gx#stx-e _%lp-hd148616148674%_)))) + (let ((_%hd148623148682%_ (let () (declare (not safe)) - (##car _%e149511149566%_))) - (_%tl149509149571%_ + (##car _%e148624148679%_))) + (_%tl148622148684%_ (let () (declare (not safe)) - (##cdr _%e149511149566%_)))) + (##cdr _%e148624148679%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149509149571%_)) - (let ((_%e149514149574%_ + (gx#stx-pair? _%tl148622148684%_)) + (let ((_%e148627148687%_ (let () (declare (not safe)) (gx#stx-e - _%tl149509149571%_)))) - (let ((_%hd149513149577%_ + _%tl148622148684%_)))) + (let ((_%hd148626148690%_ (let () (declare (not safe)) - (##car _%e149514149574%_))) - (_%tl149512149579%_ + (##car _%e148627148687%_))) + (_%tl148625148692%_ (let () (declare (not safe)) - (##cdr _%e149514149574%_)))) + (##cdr _%e148627148687%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl149512149579%_)) - (let ((__tmp151094 - (cons _%hd149513149577%_ - _%expr149505149553%_)) - (__tmp151093 - (cons _%hd149510149569%_ - _%bind149506149555%_))) - (declare (not safe)) - (_%loop149501149548%_ - _%lp-tl149504149563%_ - __tmp151094 - __tmp151093)) - (let () - (declare (not safe)) - (_%g149487149522%_ - _%g149488149525%_))))) - (let () - (declare (not safe)) - (_%g149487149522%_ - _%g149488149525%_))))) - (let () - (declare (not safe)) - (_%g149487149522%_ _%g149488149525%_))))) - (let ((_%expr149507149582%_ - (reverse _%expr149505149553%_)) - (_%bind149508149584%_ - (reverse _%bind149506149555%_))) + _%tl148625148692%_)) + (_%loop148614148661%_ + _%lp-tl148617148676%_ + (cons _%hd148626148690%_ + _%expr148618148666%_) + (cons _%hd148623148682%_ + _%bind148619148668%_)) + (_%g148600148635%_ + _%g148601148638%_)))) + (_%g148600148635%_ + _%g148601148638%_)))) + (_%g148600148635%_ _%g148601148638%_)))) + (let ((_%expr148620148695%_ + (reverse _%expr148618148666%_)) + (_%bind148621148697%_ + (reverse _%bind148619148668%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149495149540%_)) - (let ((_%e149517149587%_ + (gx#stx-pair? _%tl148608148653%_)) + (let ((_%e148630148700%_ (let () (declare (not safe)) - (gx#stx-e _%tl149495149540%_)))) - (let ((_%hd149516149590%_ + (gx#stx-e _%tl148608148653%_)))) + (let ((_%hd148629148703%_ (let () (declare (not safe)) - (##car _%e149517149587%_))) - (_%tl149515149592%_ + (##car _%e148630148700%_))) + (_%tl148628148705%_ (let () (declare (not safe)) - (##cdr _%e149517149587%_)))) + (##cdr _%e148630148700%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl149515149592%_)) - ((lambda (_%L149595%_ - _%L149596%_ - _%L149597%_) - (let ((_%$e149628%_ - (let ((__tmp151097 - (lambda (_%g149616149618%_) + (gx#stx-null? _%tl148628148705%_)) + ((lambda (_%L148708%_ + _%L148709%_ + _%L148710%_) + (let ((_%$e148741%_ + (let ((__tmp150207 + (lambda (_%g148729148731%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self149484%_ - _%g149616149618%_)))) - (__tmp151095 - (let ((__tmp151096 - (lambda (_%g149620149623%_ + _%self148597%_ + _%g148729148731%_)))) + (__tmp150205 + (let ((__tmp150206 + (lambda (_%g148733148736%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g149621149625%_) - (cons _%g149620149623%_ _%g149621149625%_)))) + _%g148734148738%_) + (cons _%g148733148736%_ _%g148734148738%_)))) (declare (not safe)) - (__foldr1 __tmp151096 '() _%L149596%_)))) + (__foldr1 __tmp150206 '() _%L148709%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__ormap1 - __tmp151097 - __tmp151095)))) - (if _%$e149628%_ - _%$e149628%_ + __tmp150207 + __tmp150205)))) + (if _%$e148741%_ + _%$e148741%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self149484%_ - _%L149595%_))))) - _%hd149516149590%_ - _%expr149507149582%_ - _%bind149508149584%_) - (let () - (declare (not safe)) - (_%g149487149522%_ - _%g149488149525%_))))) - (let () - (declare (not safe)) - (_%g149487149522%_ _%g149488149525%_)))))))) + _%self148597%_ + _%L148708%_))))) + _%hd148629148703%_ + _%expr148620148695%_ + _%bind148621148697%_) + (_%g148600148635%_ _%g148601148638%_)))) + (_%g148600148635%_ _%g148601148638%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop149501149548%_ - _%target149498149543%_ - '() - '()))) - (let () - (declare (not safe)) - (_%g149487149522%_ - _%g149488149525%_)))))) - (let () - (declare (not safe)) - (_%g149487149522%_ - _%g149488149525%_))))) - (let () - (declare (not safe)) - (_%g149487149522%_ _%g149488149525%_))))) - (let () - (declare (not safe)) - (_%g149487149522%_ _%g149488149525%_)))))) - (declare (not safe)) - (_%g149486149631%_ _%stx149485%_)))) + (_%loop148614148661%_ + _%target148611148656%_ + '() + '())) + (_%g148600148635%_ + _%g148601148638%_))))) + (_%g148600148635%_ _%g148601148638%_)))) + (_%g148600148635%_ _%g148601148638%_)))) + (_%g148600148635%_ _%g148601148638%_))))) + (_%g148599148744%_ _%stx148598%_)))) (define gxc#find-var-refs-ref% - (lambda (_%self149428%_ _%stx149429%_) - (let* ((_%g149431149444%_ - (lambda (_%g149432149441%_) + (lambda (_%self148541%_ _%stx148542%_) + (let* ((_%g148544148557%_ + (lambda (_%g148545148554%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149432149441%_)))) - (_%g149430149481%_ - (lambda (_%g149432149447%_) + _%g148545148554%_)))) + (_%g148543148594%_ + (lambda (_%g148545148560%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149432149447%_)) - (let ((_%e149436149449%_ + (gx#stx-pair? _%g148545148560%_)) + (let ((_%e148549148562%_ (let () (declare (not safe)) - (gx#stx-e _%g149432149447%_)))) - (let ((_%hd149435149452%_ + (gx#stx-e _%g148545148560%_)))) + (let ((_%hd148548148565%_ (let () (declare (not safe)) - (##car _%e149436149449%_))) - (_%tl149434149454%_ + (##car _%e148549148562%_))) + (_%tl148547148567%_ (let () (declare (not safe)) - (##cdr _%e149436149449%_)))) + (##cdr _%e148549148562%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149434149454%_)) - (let ((_%e149439149457%_ + (gx#stx-pair? _%tl148547148567%_)) + (let ((_%e148552148570%_ (let () (declare (not safe)) - (gx#stx-e _%tl149434149454%_)))) - (let ((_%hd149438149460%_ + (gx#stx-e _%tl148547148567%_)))) + (let ((_%hd148551148573%_ (let () (declare (not safe)) - (##car _%e149439149457%_))) - (_%tl149437149462%_ + (##car _%e148552148570%_))) + (_%tl148550148575%_ (let () (declare (not safe)) - (##cdr _%e149439149457%_)))) + (##cdr _%e148552148570%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl149437149462%_)) - ((lambda (_%L149465%_) - (let ((__tmp151099 - (lambda (_%g149476149478%_) + (gx#stx-null? _%tl148550148575%_)) + ((lambda (_%L148578%_) + (let ((__tmp150209 + (lambda (_%g148589148591%_) (let () (declare (not safe)) (gx#free-identifier=? - _%L149465%_ - _%g149476149478%_)))) - (__tmp151098 + _%L148578%_ + _%g148589148591%_)))) + (__tmp150208 (let () (declare (not safe)) (slot-ref__0 - _%self149428%_ + _%self148541%_ 'ids)))) (declare (not safe)) - (__find __tmp151099 __tmp151098))) - _%hd149438149460%_) - (let () - (declare (not safe)) - (_%g149431149444%_ - _%g149432149447%_))))) - (let () - (declare (not safe)) - (_%g149431149444%_ _%g149432149447%_))))) - (let () - (declare (not safe)) - (_%g149431149444%_ _%g149432149447%_)))))) - (declare (not safe)) - (_%g149430149481%_ _%stx149429%_)))) + (__find __tmp150209 __tmp150208))) + _%hd148551148573%_) + (_%g148544148557%_ _%g148545148560%_)))) + (_%g148544148557%_ _%g148545148560%_)))) + (_%g148544148557%_ _%g148545148560%_))))) + (_%g148543148594%_ _%stx148542%_)))) (define gxc#find-var-refs-setq% - (lambda (_%self149353%_ _%stx149354%_) - (let* ((_%g149356149373%_ - (lambda (_%g149357149370%_) + (lambda (_%self148466%_ _%stx148467%_) + (let* ((_%g148469148486%_ + (lambda (_%g148470148483%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149357149370%_)))) - (_%g149355149425%_ - (lambda (_%g149357149376%_) + _%g148470148483%_)))) + (_%g148468148538%_ + (lambda (_%g148470148489%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149357149376%_)) - (let ((_%e149362149378%_ + (gx#stx-pair? _%g148470148489%_)) + (let ((_%e148475148491%_ (let () (declare (not safe)) - (gx#stx-e _%g149357149376%_)))) - (let ((_%hd149361149381%_ + (gx#stx-e _%g148470148489%_)))) + (let ((_%hd148474148494%_ (let () (declare (not safe)) - (##car _%e149362149378%_))) - (_%tl149360149383%_ + (##car _%e148475148491%_))) + (_%tl148473148496%_ (let () (declare (not safe)) - (##cdr _%e149362149378%_)))) + (##cdr _%e148475148491%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149360149383%_)) - (let ((_%e149365149386%_ + (gx#stx-pair? _%tl148473148496%_)) + (let ((_%e148478148499%_ (let () (declare (not safe)) - (gx#stx-e _%tl149360149383%_)))) - (let ((_%hd149364149389%_ + (gx#stx-e _%tl148473148496%_)))) + (let ((_%hd148477148502%_ (let () (declare (not safe)) - (##car _%e149365149386%_))) - (_%tl149363149391%_ + (##car _%e148478148499%_))) + (_%tl148476148504%_ (let () (declare (not safe)) - (##cdr _%e149365149386%_)))) + (##cdr _%e148478148499%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149363149391%_)) - (let ((_%e149368149394%_ + (gx#stx-pair? _%tl148476148504%_)) + (let ((_%e148481148507%_ (let () (declare (not safe)) - (gx#stx-e _%tl149363149391%_)))) - (let ((_%hd149367149397%_ + (gx#stx-e _%tl148476148504%_)))) + (let ((_%hd148480148510%_ (let () (declare (not safe)) - (##car _%e149368149394%_))) - (_%tl149366149399%_ + (##car _%e148481148507%_))) + (_%tl148479148512%_ (let () (declare (not safe)) - (##cdr _%e149368149394%_)))) + (##cdr _%e148481148507%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl149366149399%_)) - ((lambda (_%L149402%_ - _%L149403%_) - (let ((_%$e149422%_ - (let ((__tmp151101 - (lambda (_%g149417149419%_) + _%tl148479148512%_)) + ((lambda (_%L148515%_ + _%L148516%_) + (let ((_%$e148535%_ + (let ((__tmp150211 + (lambda (_%g148530148532%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#free-identifier=? - _%L149403%_ - _%g149417149419%_)))) - (__tmp151100 + _%L148516%_ + _%g148530148532%_)))) + (__tmp150210 (let () (declare (not safe)) - (slot-ref__0 _%self149353%_ 'ids)))) + (slot-ref__0 _%self148466%_ 'ids)))) (declare (not safe)) - (__find __tmp151101 __tmp151100)))) + (__find __tmp150211 __tmp150210)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e149422%_ - _%$e149422%_ + (if _%$e148535%_ + _%$e148535%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self149353%_ - _%L149402%_))))) - _%hd149367149397%_ - _%hd149364149389%_) - (let () - (declare (not safe)) - (_%g149356149373%_ - _%g149357149376%_))))) - (let () - (declare (not safe)) - (_%g149356149373%_ - _%g149357149376%_))))) - (let () - (declare (not safe)) - (_%g149356149373%_ _%g149357149376%_))))) - (let () - (declare (not safe)) - (_%g149356149373%_ _%g149357149376%_)))))) - (declare (not safe)) - (_%g149355149425%_ _%stx149354%_)))))) + _%self148466%_ + _%L148515%_))))) + _%hd148480148510%_ + _%hd148477148502%_) + (_%g148469148486%_ + _%g148470148489%_)))) + (_%g148469148486%_ _%g148470148489%_)))) + (_%g148469148486%_ _%g148470148489%_)))) + (_%g148469148486%_ _%g148470148489%_))))) + (_%g148468148538%_ _%stx148467%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm index 81c7ba5d6..fd281d998 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm @@ -1,321 +1,321 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g151103_| + (define |gxc[1]#_g150213_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151105_| + (define |gxc[1]#_g150215_| (##structure gx#syntax-quote::t '::collect-mutators::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151107_| + (define |gxc[1]#_g150217_| (##structure gx#syntax-quote::t 'make-::collect-mutators #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151109_| + (define |gxc[1]#_g150219_| (##structure gx#syntax-quote::t '::collect-mutators? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151112_| + (define |gxc[1]#_g150222_| (##structure gx#syntax-quote::t '::collect-methods::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151114_| + (define |gxc[1]#_g150224_| (##structure gx#syntax-quote::t 'make-::collect-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151116_| + (define |gxc[1]#_g150226_| (##structure gx#syntax-quote::t '::collect-methods? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151118_| + (define |gxc[1]#_g150228_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151120_| + (define |gxc[1]#_g150230_| (##structure gx#syntax-quote::t '::expression-subst::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151122_| + (define |gxc[1]#_g150232_| (##structure gx#syntax-quote::t 'make-::expression-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151124_| + (define |gxc[1]#_g150234_| (##structure gx#syntax-quote::t '::expression-subst? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151126_| + (define |gxc[1]#_g150236_| (##structure gx#syntax-quote::t '::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151127_| + (define |gxc[1]#_g150237_| (##structure gx#syntax-quote::t '::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151129_| + (define |gxc[1]#_g150239_| (##structure gx#syntax-quote::t '::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151130_| + (define |gxc[1]#_g150240_| (##structure gx#syntax-quote::t '::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151132_| + (define |gxc[1]#_g150242_| (##structure gx#syntax-quote::t '&::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151133_| + (define |gxc[1]#_g150243_| (##structure gx#syntax-quote::t '&::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151135_| + (define |gxc[1]#_g150245_| (##structure gx#syntax-quote::t '&::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151136_| + (define |gxc[1]#_g150246_| (##structure gx#syntax-quote::t '&::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151139_| + (define |gxc[1]#_g150249_| (##structure gx#syntax-quote::t '::expression-subst*::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151141_| + (define |gxc[1]#_g150251_| (##structure gx#syntax-quote::t 'make-::expression-subst* #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151143_| + (define |gxc[1]#_g150253_| (##structure gx#syntax-quote::t '::expression-subst*? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151145_| + (define |gxc[1]#_g150255_| (##structure gx#syntax-quote::t '::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151147_| + (define |gxc[1]#_g150257_| (##structure gx#syntax-quote::t '::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151149_| + (define |gxc[1]#_g150259_| (##structure gx#syntax-quote::t '&::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151151_| + (define |gxc[1]#_g150261_| (##structure gx#syntax-quote::t '&::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151153_| + (define |gxc[1]#_g150263_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151155_| + (define |gxc[1]#_g150265_| (##structure gx#syntax-quote::t '::find-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151157_| + (define |gxc[1]#_g150267_| (##structure gx#syntax-quote::t 'make-::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151159_| + (define |gxc[1]#_g150269_| (##structure gx#syntax-quote::t '::find-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151161_| + (define |gxc[1]#_g150271_| (##structure gx#syntax-quote::t '::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151163_| + (define |gxc[1]#_g150273_| (##structure gx#syntax-quote::t '::find-var-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151165_| + (define |gxc[1]#_g150275_| (##structure gx#syntax-quote::t 'make-::find-var-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151167_| + (define |gxc[1]#_g150277_| (##structure gx#syntax-quote::t '::find-var-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151169_| + (define |gxc[1]#_g150279_| (##structure gx#syntax-quote::t '::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151171_| + (define |gxc[1]#_g150281_| (##structure gx#syntax-quote::t '::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151173_| + (define |gxc[1]#_g150283_| (##structure gx#syntax-quote::t '&::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151175_| + (define |gxc[1]#_g150285_| (##structure gx#syntax-quote::t '&::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151177_| + (define |gxc[1]#_g150287_| (##structure gx#syntax-quote::t '::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151179_| + (define |gxc[1]#_g150289_| (##structure gx#syntax-quote::t '::collect-runtime-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151181_| + (define |gxc[1]#_g150291_| (##structure gx#syntax-quote::t 'make-::collect-runtime-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151183_| + (define |gxc[1]#_g150293_| (##structure gx#syntax-quote::t '::collect-runtime-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151185_| + (define |gxc[1]#_g150295_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151187_| + (define |gxc[1]#_g150297_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151189_| + (define |gxc[1]#_g150299_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g151191_| + (define |gxc[1]#_g150301_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table-set! @@ -324,7 +324,7 @@ '())) (begin (define |gxc[:0:]#::collect-mutators| - (let ((__obj151028 + (let ((__obj150141 (let () (declare (not safe)) (##structure @@ -353,7 +353,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj151028 + __obj150141 'gxc#::collect-mutators::t '1 '#f @@ -361,65 +361,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj151028 + __obj150141 '::collect-mutators '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151028 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150141 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151028 '() '6 '#f '#f)) - (let ((__tmp151102 (cons |gxc[1]#_g151103_| '()))) + (##unchecked-structure-set! __obj150141 '() '6 '#f '#f)) + (let ((__tmp150212 (cons |gxc[1]#_g150213_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151028 __tmp151102 '3 '#f '#f)) + (##unchecked-structure-set! __obj150141 __tmp150212 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151028 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150141 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151028 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150141 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151028 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150141 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151028 '#f '11 '#f '#f)) - (let ((__tmp151104 |gxc[1]#_g151105_|)) + (##unchecked-structure-set! __obj150141 '#f '11 '#f '#f)) + (let ((__tmp150214 |gxc[1]#_g150215_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151028 __tmp151104 '12 '#f '#f)) - (let ((__tmp151106 |gxc[1]#_g151107_|)) + (##unchecked-structure-set! __obj150141 __tmp150214 '12 '#f '#f)) + (let ((__tmp150216 |gxc[1]#_g150217_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151028 __tmp151106 '13 '#f '#f)) - (let ((__tmp151108 |gxc[1]#_g151109_|)) + (##unchecked-structure-set! __obj150141 __tmp150216 '13 '#f '#f)) + (let ((__tmp150218 |gxc[1]#_g150219_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151028 __tmp151108 '14 '#f '#f)) + (##unchecked-structure-set! __obj150141 __tmp150218 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151028 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150141 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151028 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150141 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151028 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150141 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151028 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150141 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151028 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150141 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151028 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150141 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151028 '() '20 '#f '#f)) - __obj151028)) + (##unchecked-structure-set! __obj150141 '() '20 '#f '#f)) + __obj150141)) (define |gxc[:0:]#::collect-methods| - (let ((__obj151030 + (let ((__obj150143 (let () (declare (not safe)) (##structure @@ -448,7 +448,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj151030 + __obj150143 'gxc#::collect-methods::t '1 '#f @@ -456,65 +456,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj151030 + __obj150143 '::collect-methods '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151030 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150143 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151030 '() '6 '#f '#f)) - (let ((__tmp151110 (cons |gxc[1]#_g151103_| '()))) + (##unchecked-structure-set! __obj150143 '() '6 '#f '#f)) + (let ((__tmp150220 (cons |gxc[1]#_g150213_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151030 __tmp151110 '3 '#f '#f)) + (##unchecked-structure-set! __obj150143 __tmp150220 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151030 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150143 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151030 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150143 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151030 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150143 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151030 '#f '11 '#f '#f)) - (let ((__tmp151111 |gxc[1]#_g151112_|)) + (##unchecked-structure-set! __obj150143 '#f '11 '#f '#f)) + (let ((__tmp150221 |gxc[1]#_g150222_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151030 __tmp151111 '12 '#f '#f)) - (let ((__tmp151113 |gxc[1]#_g151114_|)) + (##unchecked-structure-set! __obj150143 __tmp150221 '12 '#f '#f)) + (let ((__tmp150223 |gxc[1]#_g150224_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151030 __tmp151113 '13 '#f '#f)) - (let ((__tmp151115 |gxc[1]#_g151116_|)) + (##unchecked-structure-set! __obj150143 __tmp150223 '13 '#f '#f)) + (let ((__tmp150225 |gxc[1]#_g150226_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151030 __tmp151115 '14 '#f '#f)) + (##unchecked-structure-set! __obj150143 __tmp150225 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151030 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150143 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151030 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150143 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151030 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150143 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151030 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150143 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151030 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150143 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151030 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150143 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151030 '() '20 '#f '#f)) - __obj151030)) + (##unchecked-structure-set! __obj150143 '() '20 '#f '#f)) + __obj150143)) (define |gxc[:0:]#::expression-subst| - (let ((__obj151032 + (let ((__obj150145 (let () (declare (not safe)) (##structure @@ -543,7 +543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj151032 + __obj150145 'gxc#::expression-subst::t '1 '#f @@ -551,73 +551,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj151032 + __obj150145 '::expression-subst '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151032 '(id new-id) '4 '#f '#f)) + (##unchecked-structure-set! __obj150145 '(id new-id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151032 '(id new-id) '6 '#f '#f)) - (let ((__tmp151117 (cons |gxc[1]#_g151118_| '()))) + (##unchecked-structure-set! __obj150145 '(id new-id) '6 '#f '#f)) + (let ((__tmp150227 (cons |gxc[1]#_g150228_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151032 __tmp151117 '3 '#f '#f)) + (##unchecked-structure-set! __obj150145 __tmp150227 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151032 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150145 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151032 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150145 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151032 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150145 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151032 '#f '11 '#f '#f)) - (let ((__tmp151119 |gxc[1]#_g151120_|)) + (##unchecked-structure-set! __obj150145 '#f '11 '#f '#f)) + (let ((__tmp150229 |gxc[1]#_g150230_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151032 __tmp151119 '12 '#f '#f)) - (let ((__tmp151121 |gxc[1]#_g151122_|)) + (##unchecked-structure-set! __obj150145 __tmp150229 '12 '#f '#f)) + (let ((__tmp150231 |gxc[1]#_g150232_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151032 __tmp151121 '13 '#f '#f)) - (let ((__tmp151123 |gxc[1]#_g151124_|)) + (##unchecked-structure-set! __obj150145 __tmp150231 '13 '#f '#f)) + (let ((__tmp150233 |gxc[1]#_g150234_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151032 __tmp151123 '14 '#f '#f)) - (let ((__tmp151125 - (cons (cons 'id |gxc[1]#_g151126_|) - (cons (cons 'new-id |gxc[1]#_g151127_|) '())))) + (##unchecked-structure-set! __obj150145 __tmp150233 '14 '#f '#f)) + (let ((__tmp150235 + (cons (cons 'id |gxc[1]#_g150236_|) + (cons (cons 'new-id |gxc[1]#_g150237_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj151032 __tmp151125 '15 '#f '#f)) - (let ((__tmp151128 - (cons (cons 'id |gxc[1]#_g151129_|) - (cons (cons 'new-id |gxc[1]#_g151130_|) '())))) + (##unchecked-structure-set! __obj150145 __tmp150235 '15 '#f '#f)) + (let ((__tmp150238 + (cons (cons 'id |gxc[1]#_g150239_|) + (cons (cons 'new-id |gxc[1]#_g150240_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj151032 __tmp151128 '16 '#f '#f)) - (let ((__tmp151131 - (cons (cons 'id |gxc[1]#_g151132_|) - (cons (cons 'new-id |gxc[1]#_g151133_|) '())))) + (##unchecked-structure-set! __obj150145 __tmp150238 '16 '#f '#f)) + (let ((__tmp150241 + (cons (cons 'id |gxc[1]#_g150242_|) + (cons (cons 'new-id |gxc[1]#_g150243_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj151032 __tmp151131 '17 '#f '#f)) - (let ((__tmp151134 - (cons (cons 'id |gxc[1]#_g151135_|) - (cons (cons 'new-id |gxc[1]#_g151136_|) '())))) + (##unchecked-structure-set! __obj150145 __tmp150241 '17 '#f '#f)) + (let ((__tmp150244 + (cons (cons 'id |gxc[1]#_g150245_|) + (cons (cons 'new-id |gxc[1]#_g150246_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj151032 __tmp151134 '18 '#f '#f)) + (##unchecked-structure-set! __obj150145 __tmp150244 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151032 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150145 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151032 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150145 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151032 '() '20 '#f '#f)) - __obj151032)) + (##unchecked-structure-set! __obj150145 '() '20 '#f '#f)) + __obj150145)) (define |gxc[:0:]#::expression-subst*| - (let ((__obj151034 + (let ((__obj150147 (let () (declare (not safe)) (##structure @@ -646,7 +646,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj151034 + __obj150147 'gxc#::expression-subst*::t '1 '#f @@ -654,65 +654,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj151034 + __obj150147 '::expression-subst* '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151034 '(subst) '4 '#f '#f)) + (##unchecked-structure-set! __obj150147 '(subst) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151034 '(subst) '6 '#f '#f)) - (let ((__tmp151137 (cons |gxc[1]#_g151118_| '()))) + (##unchecked-structure-set! __obj150147 '(subst) '6 '#f '#f)) + (let ((__tmp150247 (cons |gxc[1]#_g150228_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151034 __tmp151137 '3 '#f '#f)) + (##unchecked-structure-set! __obj150147 __tmp150247 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151034 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150147 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151034 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150147 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151034 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150147 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151034 '#f '11 '#f '#f)) - (let ((__tmp151138 |gxc[1]#_g151139_|)) + (##unchecked-structure-set! __obj150147 '#f '11 '#f '#f)) + (let ((__tmp150248 |gxc[1]#_g150249_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151034 __tmp151138 '12 '#f '#f)) - (let ((__tmp151140 |gxc[1]#_g151141_|)) + (##unchecked-structure-set! __obj150147 __tmp150248 '12 '#f '#f)) + (let ((__tmp150250 |gxc[1]#_g150251_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151034 __tmp151140 '13 '#f '#f)) - (let ((__tmp151142 |gxc[1]#_g151143_|)) + (##unchecked-structure-set! __obj150147 __tmp150250 '13 '#f '#f)) + (let ((__tmp150252 |gxc[1]#_g150253_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151034 __tmp151142 '14 '#f '#f)) - (let ((__tmp151144 (cons (cons 'subst |gxc[1]#_g151145_|) '()))) + (##unchecked-structure-set! __obj150147 __tmp150252 '14 '#f '#f)) + (let ((__tmp150254 (cons (cons 'subst |gxc[1]#_g150255_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151034 __tmp151144 '15 '#f '#f)) - (let ((__tmp151146 (cons (cons 'subst |gxc[1]#_g151147_|) '()))) + (##unchecked-structure-set! __obj150147 __tmp150254 '15 '#f '#f)) + (let ((__tmp150256 (cons (cons 'subst |gxc[1]#_g150257_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151034 __tmp151146 '16 '#f '#f)) - (let ((__tmp151148 (cons (cons 'subst |gxc[1]#_g151149_|) '()))) + (##unchecked-structure-set! __obj150147 __tmp150256 '16 '#f '#f)) + (let ((__tmp150258 (cons (cons 'subst |gxc[1]#_g150259_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151034 __tmp151148 '17 '#f '#f)) - (let ((__tmp151150 (cons (cons 'subst |gxc[1]#_g151151_|) '()))) + (##unchecked-structure-set! __obj150147 __tmp150258 '17 '#f '#f)) + (let ((__tmp150260 (cons (cons 'subst |gxc[1]#_g150261_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151034 __tmp151150 '18 '#f '#f)) + (##unchecked-structure-set! __obj150147 __tmp150260 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151034 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150147 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151034 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150147 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151034 '() '20 '#f '#f)) - __obj151034)) + (##unchecked-structure-set! __obj150147 '() '20 '#f '#f)) + __obj150147)) (define |gxc[:0:]#::find-expression| - (let ((__obj151036 + (let ((__obj150149 (let () (declare (not safe)) (##structure @@ -741,7 +741,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj151036 + __obj150149 'gxc#::find-expression::t '1 '#f @@ -749,65 +749,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj151036 + __obj150149 '::find-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151036 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150149 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151036 '() '6 '#f '#f)) - (let ((__tmp151152 (cons |gxc[1]#_g151153_| '()))) + (##unchecked-structure-set! __obj150149 '() '6 '#f '#f)) + (let ((__tmp150262 (cons |gxc[1]#_g150263_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151036 __tmp151152 '3 '#f '#f)) + (##unchecked-structure-set! __obj150149 __tmp150262 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151036 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150149 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151036 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150149 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151036 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150149 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151036 '#f '11 '#f '#f)) - (let ((__tmp151154 |gxc[1]#_g151155_|)) + (##unchecked-structure-set! __obj150149 '#f '11 '#f '#f)) + (let ((__tmp150264 |gxc[1]#_g150265_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151036 __tmp151154 '12 '#f '#f)) - (let ((__tmp151156 |gxc[1]#_g151157_|)) + (##unchecked-structure-set! __obj150149 __tmp150264 '12 '#f '#f)) + (let ((__tmp150266 |gxc[1]#_g150267_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151036 __tmp151156 '13 '#f '#f)) - (let ((__tmp151158 |gxc[1]#_g151159_|)) + (##unchecked-structure-set! __obj150149 __tmp150266 '13 '#f '#f)) + (let ((__tmp150268 |gxc[1]#_g150269_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151036 __tmp151158 '14 '#f '#f)) + (##unchecked-structure-set! __obj150149 __tmp150268 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151036 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150149 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151036 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150149 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151036 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150149 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151036 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150149 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151036 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150149 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151036 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150149 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151036 '() '20 '#f '#f)) - __obj151036)) + (##unchecked-structure-set! __obj150149 '() '20 '#f '#f)) + __obj150149)) (define |gxc[:0:]#::find-var-refs| - (let ((__obj151037 + (let ((__obj150150 (let () (declare (not safe)) (##structure @@ -836,68 +836,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj151037 + __obj150150 'gxc#::find-var-refs::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151037 '::find-var-refs '2 '#f '#f)) + (##unchecked-structure-set! __obj150150 '::find-var-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151037 '(ids) '4 '#f '#f)) + (##unchecked-structure-set! __obj150150 '(ids) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151037 '(ids) '6 '#f '#f)) - (let ((__tmp151160 (cons |gxc[1]#_g151161_| '()))) + (##unchecked-structure-set! __obj150150 '(ids) '6 '#f '#f)) + (let ((__tmp150270 (cons |gxc[1]#_g150271_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151037 __tmp151160 '3 '#f '#f)) + (##unchecked-structure-set! __obj150150 __tmp150270 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151037 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150150 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151037 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150150 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151037 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150150 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151037 '#f '11 '#f '#f)) - (let ((__tmp151162 |gxc[1]#_g151163_|)) + (##unchecked-structure-set! __obj150150 '#f '11 '#f '#f)) + (let ((__tmp150272 |gxc[1]#_g150273_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151037 __tmp151162 '12 '#f '#f)) - (let ((__tmp151164 |gxc[1]#_g151165_|)) + (##unchecked-structure-set! __obj150150 __tmp150272 '12 '#f '#f)) + (let ((__tmp150274 |gxc[1]#_g150275_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151037 __tmp151164 '13 '#f '#f)) - (let ((__tmp151166 |gxc[1]#_g151167_|)) + (##unchecked-structure-set! __obj150150 __tmp150274 '13 '#f '#f)) + (let ((__tmp150276 |gxc[1]#_g150277_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151037 __tmp151166 '14 '#f '#f)) - (let ((__tmp151168 (cons (cons 'ids |gxc[1]#_g151169_|) '()))) + (##unchecked-structure-set! __obj150150 __tmp150276 '14 '#f '#f)) + (let ((__tmp150278 (cons (cons 'ids |gxc[1]#_g150279_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151037 __tmp151168 '15 '#f '#f)) - (let ((__tmp151170 (cons (cons 'ids |gxc[1]#_g151171_|) '()))) + (##unchecked-structure-set! __obj150150 __tmp150278 '15 '#f '#f)) + (let ((__tmp150280 (cons (cons 'ids |gxc[1]#_g150281_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151037 __tmp151170 '16 '#f '#f)) - (let ((__tmp151172 (cons (cons 'ids |gxc[1]#_g151173_|) '()))) + (##unchecked-structure-set! __obj150150 __tmp150280 '16 '#f '#f)) + (let ((__tmp150282 (cons (cons 'ids |gxc[1]#_g150283_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151037 __tmp151172 '17 '#f '#f)) - (let ((__tmp151174 (cons (cons 'ids |gxc[1]#_g151175_|) '()))) + (##unchecked-structure-set! __obj150150 __tmp150282 '17 '#f '#f)) + (let ((__tmp150284 (cons (cons 'ids |gxc[1]#_g150285_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151037 __tmp151174 '18 '#f '#f)) + (##unchecked-structure-set! __obj150150 __tmp150284 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151037 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150150 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151037 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150150 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151037 '() '20 '#f '#f)) - __obj151037)) + (##unchecked-structure-set! __obj150150 '() '20 '#f '#f)) + __obj150150)) (define |gxc[:0:]#::collect-runtime-refs| - (let ((__obj151039 + (let ((__obj150152 (let () (declare (not safe)) (##structure @@ -926,7 +926,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj151039 + __obj150152 'gxc#::collect-runtime-refs::t '1 '#f @@ -934,60 +934,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj151039 + __obj150152 '::collect-runtime-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151039 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150152 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151039 '(table) '6 '#f '#f)) - (let ((__tmp151176 (cons |gxc[1]#_g151177_| '()))) + (##unchecked-structure-set! __obj150152 '(table) '6 '#f '#f)) + (let ((__tmp150286 (cons |gxc[1]#_g150287_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151039 __tmp151176 '3 '#f '#f)) + (##unchecked-structure-set! __obj150152 __tmp150286 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151039 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150152 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151039 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150152 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151039 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150152 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151039 '#f '11 '#f '#f)) - (let ((__tmp151178 |gxc[1]#_g151179_|)) + (##unchecked-structure-set! __obj150152 '#f '11 '#f '#f)) + (let ((__tmp150288 |gxc[1]#_g150289_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151039 __tmp151178 '12 '#f '#f)) - (let ((__tmp151180 |gxc[1]#_g151181_|)) + (##unchecked-structure-set! __obj150152 __tmp150288 '12 '#f '#f)) + (let ((__tmp150290 |gxc[1]#_g150291_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151039 __tmp151180 '13 '#f '#f)) - (let ((__tmp151182 |gxc[1]#_g151183_|)) + (##unchecked-structure-set! __obj150152 __tmp150290 '13 '#f '#f)) + (let ((__tmp150292 |gxc[1]#_g150293_|)) (declare (not safe)) - (##unchecked-structure-set! __obj151039 __tmp151182 '14 '#f '#f)) - (let ((__tmp151184 (cons (cons 'table |gxc[1]#_g151185_|) '()))) + (##unchecked-structure-set! __obj150152 __tmp150292 '14 '#f '#f)) + (let ((__tmp150294 (cons (cons 'table |gxc[1]#_g150295_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151039 __tmp151184 '15 '#f '#f)) - (let ((__tmp151186 (cons (cons 'table |gxc[1]#_g151187_|) '()))) + (##unchecked-structure-set! __obj150152 __tmp150294 '15 '#f '#f)) + (let ((__tmp150296 (cons (cons 'table |gxc[1]#_g150297_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151039 __tmp151186 '16 '#f '#f)) - (let ((__tmp151188 (cons (cons 'table |gxc[1]#_g151189_|) '()))) + (##unchecked-structure-set! __obj150152 __tmp150296 '16 '#f '#f)) + (let ((__tmp150298 (cons (cons 'table |gxc[1]#_g150299_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151039 __tmp151188 '17 '#f '#f)) - (let ((__tmp151190 (cons (cons 'table |gxc[1]#_g151191_|) '()))) + (##unchecked-structure-set! __obj150152 __tmp150298 '17 '#f '#f)) + (let ((__tmp150300 (cons (cons 'table |gxc[1]#_g150301_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj151039 __tmp151190 '18 '#f '#f)) + (##unchecked-structure-set! __obj150152 __tmp150300 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151039 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150152 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151039 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150152 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj151039 '() '20 '#f '#f)) - __obj151039)))) + (##unchecked-structure-set! __obj150152 '() '20 '#f '#f)) + __obj150152)))) diff --git a/src/bootstrap/gerbil/compiler/optimize.ssxi.ss b/src/bootstrap/gerbil/compiler/optimize.ssxi.ss index e4451ebc7..efcdd953f 100644 --- a/src/bootstrap/gerbil/compiler/optimize.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/optimize.ssxi.ss @@ -2,34 +2,126 @@ prelude: :gerbil/compiler/ssxi package: gerbil/compiler (begin - (declare-type gxc#optimizer-info-init! (@lambda 0 #f)) + (declare-type + gxc#optimizer-info-init! + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#optimize! (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#optimizer-load-builtin-ssxi (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#optimizer-load-ssxi-deps (@lambda 1 #f)) - (declare-type gxc#optimizer-load-ssxi (@lambda 1 #f)) - (declare-type gxc#optimizer-import-ssxi (@lambda 1 #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize))) + (declare-type + gxc#optimizer-load-ssxi-deps + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize))) + (declare-type + gxc#optimizer-load-ssxi + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize))) + (declare-type + gxc#optimizer-import-ssxi + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#optimizer-import-ssxi-by-id (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#optimize-source (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-class gxc#::generate-ssxi::t (@class gxc#::generate-ssxi::t @@ -58,81 +150,268 @@ package: gerbil/compiler (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gxc#generate-ssxi-begin-syntax% (@lambda 2 #f)) - (declare-type gxc#generate-ssxi-module% (@lambda 2 #f)) - (declare-type gxc#generate-ssxi-define-values% (@lambda 2 #f)) - (declare-type gxc#generate-ssxi-call% (@lambda 2 #f)) - (declare-type gxc#generate-ssxi-begin-annotation% (@lambda 2 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize))) + (declare-type + gxc#generate-ssxi-begin-syntax% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize))) + (declare-type + gxc#generate-ssxi-module% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize))) + (declare-type + gxc#generate-ssxi-define-values% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize))) + (declare-type + gxc#generate-ssxi-call% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize))) + (declare-type + gxc#generate-ssxi-begin-annotation% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#!alias::typedecl (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#!class::typedecl (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#!predicate::typedecl (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#!constructor::typedecl (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#!accessor::typedecl (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#!mutator::typedecl (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#!interface::typedecl (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#!lambda::typedecl (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#!case-lambda::typedecl (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#!kw-lambda::typedecl (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#!kw-lambda-primary::typedecl (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize))) (declare-type gxc#!primitive-predicate::typedecl (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/compiler/optimize)))) diff --git a/src/bootstrap/gerbil/compiler/optimize~0.scm b/src/bootstrap/gerbil/compiler/optimize~0.scm index 045061e6e..049d3b473 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 1712533296) + (define gerbil/compiler/optimize::timestamp 1712573437) (begin (define gxc#optimizer-info-init! (lambda () (if (let () (declare (not safe)) (gxc#current-compile-optimizer-info)) '#!void - (let ((__tmp194453 - (let ((__obj194447 + (let ((__tmp193363 + (let ((__obj193357 (let () (declare (not safe)) (##structure @@ -16,21 +16,17 @@ '#f '#f '#f)))) - (gxc#optimizer-info:::init! __obj194447) - __obj194447))) + (gxc#optimizer-info:::init! __obj193357) + __obj193357))) (declare (not safe)) - (gxc#current-compile-optimizer-info __tmp194453))))) + (gxc#current-compile-optimizer-info __tmp193363))))) (define gxc#optimize! - (lambda (_%ctx194056%_) - (let ((__tmp194456 + (lambda (_%ctx192966%_) + (let ((__tmp193366 (lambda () - (let () - (declare (not safe)) - (gxc#optimizer-load-builtin-ssxi _%ctx194056%_)) - (let () - (declare (not safe)) - (gxc#optimizer-load-ssxi-deps _%ctx194056%_)) - (let ((__tmp194458 + (gxc#optimizer-load-builtin-ssxi _%ctx192966%_) + (gxc#optimizer-load-ssxi-deps _%ctx192966%_) + (let ((__tmp193368 (##structure-ref (let () (declare (not safe)) @@ -38,43 +34,41 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp194457 + (__tmp193367 (##structure-ref - _%ctx194056%_ + _%ctx192966%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-put! __tmp194458 __tmp194457 '#t)) - (let ((_%code194059%_ - (let ((__tmp194459 - (##structure-ref - _%ctx194056%_ - '11 - gx#module-context::t - '#f))) - (declare (not safe)) - (gxc#optimize-source __tmp194459)))) + (hash-put! __tmp193368 __tmp193367 '#t)) + (let ((_%code192969%_ + (gxc#optimize-source + (##structure-ref + _%ctx192966%_ + '11 + gx#module-context::t + '#f)))) (##structure-set! - _%ctx194056%_ - _%code194059%_ + _%ctx192966%_ + _%code192969%_ '11 gx#module-context::t '#f)))) - (__tmp194455 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp194454 (let () (declare (not safe)) (make-hash-table-eq)))) + (__tmp193365 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp193364 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (__call-with-parameters - __tmp194456 + __tmp193366 gxc#current-compile-mutators - __tmp194455 + __tmp193365 gxc#current-compile-local-type - __tmp194454)))) + __tmp193364)))) (define gxc#optimizer-load-builtin-ssxi - (lambda (_%ctx194042%_) - (letrec ((_%load-it!194044%_ - (lambda (_%id194054%_) - (if (let ((__tmp194460 + (lambda (_%ctx192952%_) + (letrec ((_%load-it!192954%_ + (lambda (_%id192964%_) + (if (let ((__tmp193369 (##structure-ref (let () (declare (not safe)) @@ -83,13 +77,11 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp194460 _%id194054%_)) + (hash-get __tmp193369 _%id192964%_)) '#!void (begin - (let () - (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id _%id194054%_)) - (let ((__tmp194461 + (gxc#optimizer-import-ssxi-by-id _%id192964%_) + (let ((__tmp193370 (##structure-ref (let () (declare (not safe)) @@ -98,29 +90,29 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp194461 _%id194054%_ '#t))))))) - (let* ((_%modid194046%_ + (hash-put! __tmp193370 _%id192964%_ '#t))))))) + (let* ((_%modid192956%_ (##structure-ref - _%ctx194042%_ + _%ctx192952%_ '1 gx#expander-context::t '#f)) - (_%modid-str194048%_ (symbol->string _%modid194046%_))) + (_%modid-str192958%_ (symbol->string _%modid192956%_))) (if (or (let () (declare (not safe)) - (##string-prefix? '"gerbil/runtime" _%modid-str194048%_)) + (##string-prefix? '"gerbil/runtime" _%modid-str192958%_)) (let () (declare (not safe)) - (##string-prefix? '"gerbil/core" _%modid-str194048%_))) + (##string-prefix? '"gerbil/core" _%modid-str192958%_))) (let () (declare (not safe)) (##for-each - _%load-it!194044%_ + _%load-it!192954%_ '(gerbil/builtin gerbil/builtin-inline-rules))) (let () (declare (not safe)) (##for-each - _%load-it!194044%_ + _%load-it!192954%_ '(gerbil/builtin gerbil/builtin-inline-rules gerbil/runtime/gambit @@ -142,35 +134,35 @@ gerbil/runtime/init gerbil/runtime)))))))) (define gxc#optimizer-load-ssxi-deps - (lambda (_%ctx193979%_) - (letrec* ((_%deps193981%_ - (let* ((_%imports194032%_ + (lambda (_%ctx192889%_) + (letrec* ((_%deps192891%_ + (let* ((_%imports192942%_ (##structure-ref - _%ctx193979%_ + _%ctx192889%_ '8 gx#module-context::t '#f)) - (_%$e194034%_ + (_%$e192944%_ (let () (declare (not safe)) - (gx#core-context-prelude__% _%ctx193979%_)))) - (if _%$e194034%_ - ((lambda (_%g194036194038%_) - (cons _%g194036194038%_ _%imports194032%_)) - _%$e194034%_) - (let () _%imports194032%_))))) - (let _%lp193983%_ ((_%rest193985%_ _%deps193981%_)) - (let* ((_%rest193986193994%_ _%rest193985%_) - (_%else193988194002%_ (lambda () '#!void)) - (_%K193990194020%_ - (lambda (_%rest194005%_ _%hd194006%_) + (gx#core-context-prelude__% _%ctx192889%_)))) + (if _%$e192944%_ + ((lambda (_%g192946192948%_) + (cons _%g192946192948%_ _%imports192942%_)) + _%$e192944%_) + _%imports192942%_)))) + (let _%lp192893%_ ((_%rest192895%_ _%deps192891%_)) + (let* ((_%rest192896192904%_ _%rest192895%_) + (_%else192898192912%_ (lambda () '#!void)) + (_%K192900192930%_ + (lambda (_%rest192915%_ _%hd192916%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd194006%_ + _%hd192916%_ 'gx#module-context::t)) (let () - (if (let ((__tmp194463 + (if (let ((__tmp193372 (##structure-ref (let () (declare (not safe)) @@ -178,54 +170,46 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp194462 + (__tmp193371 (##structure-ref - _%hd194006%_ + _%hd192916%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-get __tmp194463 __tmp194462)) + (hash-get __tmp193372 __tmp193371)) '#!void (begin - (let ((_%$e194009%_ + (let ((_%$e192919%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd194006%_)))) - (if _%$e194009%_ - ((lambda (_%pre194012%_) - (let ((__tmp194464 - (cons _%pre194012%_ - (##structure-ref - _%hd194006%_ - '8 - gx#module-context::t - '#f)))) - (declare (not safe)) - (_%lp193983%_ __tmp194464))) - _%$e194009%_) - (let ((__tmp194465 - (##structure-ref - _%hd194006%_ - '8 - gx#module-context::t - '#f))) - (declare (not safe)) - (_%lp193983%_ __tmp194465)))) - (let () - (declare (not safe)) - (gxc#optimizer-load-ssxi _%hd194006%_)))) - (let () - (declare (not safe)) - (_%lp193983%_ _%rest194005%_))) + _%hd192916%_)))) + (if _%$e192919%_ + ((lambda (_%pre192922%_) + (_%lp192893%_ + (cons _%pre192922%_ + (##structure-ref + _%hd192916%_ + '8 + gx#module-context::t + '#f)))) + _%$e192919%_) + (_%lp192893%_ + (##structure-ref + _%hd192916%_ + '8 + gx#module-context::t + '#f)))) + (gxc#optimizer-load-ssxi _%hd192916%_))) + (_%lp192893%_ _%rest192915%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd194006%_ + _%hd192916%_ 'gx#prelude-context::t)) (let () - (if (let ((__tmp194467 + (if (let ((__tmp193374 (##structure-ref (let () (declare (not safe)) @@ -233,108 +217,91 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp194466 + (__tmp193373 (##structure-ref - _%hd194006%_ + _%hd192916%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-get __tmp194467 __tmp194466)) + (hash-get __tmp193374 __tmp193373)) '#!void (begin - (let ((__tmp194468 - (##structure-ref - _%hd194006%_ - '7 - gx#prelude-context::t - '#f))) - (declare (not safe)) - (_%lp193983%_ __tmp194468)) - (let () - (declare (not safe)) - (gxc#optimizer-load-ssxi - _%hd194006%_)))) - (let () - (declare (not safe)) - (_%lp193983%_ _%rest194005%_))) + (_%lp192893%_ + (##structure-ref + _%hd192916%_ + '7 + gx#prelude-context::t + '#f)) + (gxc#optimizer-load-ssxi _%hd192916%_))) + (_%lp192893%_ _%rest192915%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd194006%_ + _%hd192916%_ 'gx#module-import::t)) - (let ((__tmp194469 - (cons (##direct-structure-ref - _%hd194006%_ - '1 - gx#module-import::t - '#f) - _%rest194005%_))) - (declare (not safe)) - (_%lp193983%_ __tmp194469)) + (_%lp192893%_ + (cons (##direct-structure-ref + _%hd192916%_ + '1 + gx#module-import::t + '#f) + _%rest192915%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd194006%_ + _%hd192916%_ 'gx#module-export::t)) - (let ((__tmp194470 - (cons (##direct-structure-ref - _%hd194006%_ - '1 - gx#module-export::t - '#f) - _%rest194005%_))) - (declare (not safe)) - (_%lp193983%_ __tmp194470)) + (_%lp192893%_ + (cons (##direct-structure-ref + _%hd192916%_ + '1 + gx#module-export::t + '#f) + _%rest192915%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd194006%_ + _%hd192916%_ 'gx#import-set::t)) - (let ((__tmp194471 - (cons (##direct-structure-ref - _%hd194006%_ - '1 - gx#import-set::t - '#f) - _%rest194005%_))) - (declare (not safe)) - (_%lp193983%_ __tmp194471)) + (_%lp192893%_ + (cons (##direct-structure-ref + _%hd192916%_ + '1 + gx#import-set::t + '#f) + _%rest192915%_)) (let () (declare (not safe)) (error '"Unexpected module import" - _%hd194006%_)))))))))) - (if (let () (declare (not safe)) (##pair? _%rest193986193994%_)) - (let ((_%hd193991194023%_ + _%hd192916%_)))))))))) + (if (let () (declare (not safe)) (##pair? _%rest192896192904%_)) + (let ((_%hd192901192933%_ (let () (declare (not safe)) - (##car _%rest193986193994%_))) - (_%tl193992194025%_ + (##car _%rest192896192904%_))) + (_%tl192902192935%_ (let () (declare (not safe)) - (##cdr _%rest193986193994%_)))) - (let* ((_%hd194028%_ _%hd193991194023%_) - (_%rest194030%_ _%tl193992194025%_)) - (declare (not safe)) - (_%K193990194020%_ _%rest194030%_ _%hd194028%_))) + (##cdr _%rest192896192904%_)))) + (let* ((_%hd192938%_ _%hd192901192933%_) + (_%rest192940%_ _%tl192902192935%_)) + (_%K192900192930%_ _%rest192940%_ _%hd192938%_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_%ctx193959%_) + (lambda (_%ctx192869%_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%ctx193959%_ + _%ctx192869%_ 'gx#module-context::t)) - (let ((__tmp194472 - (##structure-ref - _%ctx193959%_ + (list? (##structure-ref + _%ctx192869%_ '7 gx#module-context::t '#f))) - (declare (not safe)) - (list? __tmp194472))) '#!void - (let* ((_%ht193961%_ + (let* ((_%ht192871%_ (##structure-ref (let () (declare (not safe)) @@ -342,162 +309,154 @@ '3 gxc#optimizer-info::t '#f)) - (_%id193963%_ + (_%id192873%_ (##structure-ref - _%ctx193959%_ + _%ctx192869%_ '1 gx#expander-context::t '#f)) - (_%mod193965%_ + (_%mod192875%_ (let () (declare (not safe)) - (hash-get _%ht193961%_ _%id193963%_))) - (_%$e193968%_ _%mod193965%_)) - (if _%$e193968%_ - _%$e193968%_ - (let* ((_%mod193971%_ - (let () - (declare (not safe)) - (gxc#optimizer-import-ssxi _%ctx193959%_))) - (_%val193976%_ - (let ((_%$e193973%_ _%mod193971%_)) - (if _%$e193973%_ _%$e193973%_ '#!void)))) + (hash-get _%ht192871%_ _%id192873%_))) + (_%$e192878%_ _%mod192875%_)) + (if _%$e192878%_ + _%$e192878%_ + (let* ((_%mod192881%_ + (gxc#optimizer-import-ssxi _%ctx192869%_)) + (_%val192886%_ + (let ((_%$e192883%_ _%mod192881%_)) + (if _%$e192883%_ _%$e192883%_ '#!void)))) (let () (declare (not safe)) - (hash-put! _%ht193961%_ _%id193963%_ _%val193976%_)) - _%val193976%_)))))) + (hash-put! _%ht192871%_ _%id192873%_ _%val192886%_)) + _%val192886%_)))))) (define gxc#optimizer-import-ssxi - (lambda (_%ctx193957%_) - (if (##structure-ref _%ctx193957%_ '1 gx#expander-context::t '#f) - (let ((__tmp194473 - (##structure-ref - _%ctx193957%_ - '1 - gx#expander-context::t - '#f))) - (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id __tmp194473)) + (lambda (_%ctx192867%_) + (if (##structure-ref _%ctx192867%_ '1 gx#expander-context::t '#f) + (gxc#optimizer-import-ssxi-by-id + (##structure-ref _%ctx192867%_ '1 gx#expander-context::t '#f)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_%id193934%_) - (letrec ((_%catch-e193936%_ - (lambda (_%exn193955%_) + (lambda (_%id192844%_) + (letrec ((_%catch-e192846%_ + (lambda (_%exn192865%_) (if (equal? (let () (declare (not safe)) - (error-message _%exn193955%_)) + (error-message _%exn192865%_)) '"cannot find library module") '#!void (begin - (display-exception _%exn193955%_) + (display-exception _%exn192865%_) (let () (declare (not safe)) (displayln '"*** WARNING Failed to load ssxi module for " - _%id193934%_)))) + _%id192844%_)))) '#f)) - (_%import-e193937%_ + (_%import-e192847%_ (lambda () - (let* ((_%str-id193940%_ - (let ((__tmp194474 + (let* ((_%str-id192850%_ + (let ((__tmp193375 (let () (declare (not safe)) (gxc#module-id->path-string - _%id193934%_)))) + _%id192844%_)))) (declare (not safe)) - (##string-append __tmp194474 '".ssxi"))) - (_%artefact-path193948%_ - (let ((_%odir193941193943%_ + (##string-append __tmp193375 '".ssxi"))) + (_%artefact-path192858%_ + (let ((_%odir192851192853%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%odir193941193943%_ - (let ((_%odir193946%_ _%odir193941193943%_)) + (if _%odir192851192853%_ + (let ((_%odir192856%_ _%odir192851192853%_)) (path-expand (let () (declare (not safe)) (##string-append - _%str-id193940%_ + _%str-id192850%_ '".ss")) - _%odir193946%_)) + _%odir192856%_)) '#f))) - (_%library-path193950%_ - (let ((__tmp194475 + (_%library-path192860%_ + (let ((__tmp193376 (let () (declare (not safe)) (##string-append '":" - _%str-id193940%_ + _%str-id192850%_ '".ss")))) (declare (not safe)) - (##string->symbol __tmp194475))) - (_%ssxi-path193952%_ - (if (and _%artefact-path193948%_ - (file-exists? _%artefact-path193948%_)) - _%artefact-path193948%_ - _%library-path193950%_))) + (##string->symbol __tmp193376))) + (_%ssxi-path192862%_ + (if (and _%artefact-path192858%_ + (file-exists? _%artefact-path192858%_)) + _%artefact-path192858%_ + _%library-path192860%_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _%ssxi-path193952%_)) + _%ssxi-path192862%_)) (let () (declare (not safe)) - (gx#import-module__% _%ssxi-path193952%_ '#t '#t)))))) + (gx#import-module__% _%ssxi-path192862%_ '#t '#t)))))) (let () (declare (not safe)) - (__with-catch _%catch-e193936%_ _%import-e193937%_))))) + (__with-catch _%catch-e192846%_ _%import-e192847%_))))) (define gxc#optimize-source - (lambda (_%stx193925%_) + (lambda (_%stx192835%_) (let () (declare (not safe)) - (gxc#apply-collect-mutators _%stx193925%_)) - (let () (declare (not safe)) (gxc#apply-collect-methods _%stx193925%_)) + (gxc#apply-collect-mutators _%stx192835%_)) + (let () (declare (not safe)) (gxc#apply-collect-methods _%stx192835%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _%stx193925%_)) - (let* ((_%stx193927%_ + (gxc#apply-collect-top-level-type-info _%stx192835%_)) + (let* ((_%stx192837%_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _%stx193925%_))) - (_%stx193929%_ + (gxc#apply-generate-method-specializers _%stx192835%_))) + (_%stx192839%_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _%stx193927%_)))) + (gxc#apply-lift-top-lambdas _%stx192837%_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _%stx193929%_)) + (gxc#apply-collect-type-info _%stx192839%_)) (let () (declare (not safe)) - (gxc#apply-check-return-type _%stx193929%_)) + (gxc#apply-check-return-type _%stx192839%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-declarations _%stx193929%_)) - (let ((_%stx193932%_ + (gxc#apply-collect-top-level-declarations _%stx192839%_)) + (let ((_%stx192842%_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _%stx193929%_)))) + (gxc#apply-optimize-annotated _%stx192839%_)))) (declare (not safe)) - (gxc#apply-optimize-call _%stx193932%_))))) + (gxc#apply-optimize-call _%stx192842%_))))) (define gxc#::generate-ssxi::t - (let ((__tmp194477 (list gxc#::generate-runtime-empty::t)) - (__tmp194476 (cons (cons 'final: '#t) '()))) + (let ((__tmp193378 (list gxc#::generate-runtime-empty::t)) + (__tmp193377 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-ssxi::t '::generate-ssxi - __tmp194477 + __tmp193378 '() - __tmp194476 + __tmp193377 '#f))) (define gxc#::generate-ssxi? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-ssxi::t))) (define gxc#make-::generate-ssxi - (lambda _%$args193922%_ - (apply make-instance gxc#::generate-ssxi::t _%$args193922%_))) + (lambda _%$args192832%_ + (apply make-instance gxc#::generate-ssxi::t _%$args192832%_))) (define gxc#::generate-ssxi-bind-methods! - (let ((__tmp194478 + (let ((__tmp193379 (lambda () (force gxc#::generate-runtime-empty-bind-methods!) (let () @@ -540,205 +499,197 @@ (declare (not safe)) (__seal-class! gxc#::generate-ssxi::t))))) (declare (not safe)) - (__make-promise __tmp194478))) + (__make-promise __tmp193379))) (define gxc#apply-generate-ssxi - (lambda (_%stx193914%_) + (lambda (_%stx192824%_) (force gxc#::generate-ssxi-bind-methods!) - (let* ((_%self193917%_ - (let ((__obj194449 + (let* ((_%self192827%_ + (let ((__obj193359 (let () (declare (not safe)) (##structure gxc#::generate-ssxi::t)))) - __obj194449)) - (__tmp194479 + __obj193359)) + (__tmp193380 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self193917%_ _%stx193914%_))))) + (gxc#compile-e__1 _%self192827%_ _%stx192824%_))))) (declare (not safe)) (__call-with-parameters - __tmp194479 + __tmp193380 gxc#current-compile-method - _%self193917%_)))) + _%self192827%_)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_%self193874%_ _%stx193875%_) - (let* ((_%g193877193887%_ - (lambda (_%g193878193884%_) + (lambda (_%self192784%_ _%stx192785%_) + (let* ((_%g192787192797%_ + (lambda (_%g192788192794%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g193878193884%_)))) - (_%g193876193911%_ - (lambda (_%g193878193890%_) + _%g192788192794%_)))) + (_%g192786192821%_ + (lambda (_%g192788192800%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g193878193890%_)) - (let ((_%e193882193892%_ + (gx#stx-pair? _%g192788192800%_)) + (let ((_%e192792192802%_ (let () (declare (not safe)) - (gx#stx-e _%g193878193890%_)))) - (let ((_%hd193881193895%_ + (gx#stx-e _%g192788192800%_)))) + (let ((_%hd192791192805%_ (let () (declare (not safe)) - (##car _%e193882193892%_))) - (_%tl193880193897%_ + (##car _%e192792192802%_))) + (_%tl192790192807%_ (let () (declare (not safe)) - (##cdr _%e193882193892%_)))) - ((lambda (_%L193900%_) - (let ((__tmp194482 + (##cdr _%e192792192802%_)))) + ((lambda (_%L192810%_) + (let ((__tmp193383 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _%self193874%_ - _%stx193875%_)))) - (__tmp194480 - (let ((__tmp194481 + _%self192784%_ + _%stx192785%_)))) + (__tmp193381 + (let ((__tmp193382 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp194481 '1)))) + (##fx+ __tmp193382 '1)))) (declare (not safe)) (__call-with-parameters - __tmp194482 + __tmp193383 gx#current-expander-phi - __tmp194480))) - _%tl193880193897%_))) - (let () - (declare (not safe)) - (_%g193877193887%_ _%g193878193890%_)))))) - (declare (not safe)) - (_%g193876193911%_ _%stx193875%_)))) + __tmp193381))) + _%tl192790192807%_))) + (_%g192787192797%_ _%g192788192800%_))))) + (_%g192786192821%_ _%stx192785%_)))) (define gxc#generate-ssxi-module% - (lambda (_%self193813%_ _%stx193814%_) - (let* ((_%g193816193830%_ - (lambda (_%g193817193827%_) + (lambda (_%self192723%_ _%stx192724%_) + (let* ((_%g192726192740%_ + (lambda (_%g192727192737%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g193817193827%_)))) - (_%g193815193871%_ - (lambda (_%g193817193833%_) + _%g192727192737%_)))) + (_%g192725192781%_ + (lambda (_%g192727192743%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g193817193833%_)) - (let ((_%e193822193835%_ + (gx#stx-pair? _%g192727192743%_)) + (let ((_%e192732192745%_ (let () (declare (not safe)) - (gx#stx-e _%g193817193833%_)))) - (let ((_%hd193821193838%_ + (gx#stx-e _%g192727192743%_)))) + (let ((_%hd192731192748%_ (let () (declare (not safe)) - (##car _%e193822193835%_))) - (_%tl193820193840%_ + (##car _%e192732192745%_))) + (_%tl192730192750%_ (let () (declare (not safe)) - (##cdr _%e193822193835%_)))) + (##cdr _%e192732192745%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193820193840%_)) - (let ((_%e193825193843%_ + (gx#stx-pair? _%tl192730192750%_)) + (let ((_%e192735192753%_ (let () (declare (not safe)) - (gx#stx-e _%tl193820193840%_)))) - (let ((_%hd193824193846%_ + (gx#stx-e _%tl192730192750%_)))) + (let ((_%hd192734192756%_ (let () (declare (not safe)) - (##car _%e193825193843%_))) - (_%tl193823193848%_ + (##car _%e192735192753%_))) + (_%tl192733192758%_ (let () (declare (not safe)) - (##cdr _%e193825193843%_)))) - ((lambda (_%L193851%_ _%L193852%_) - (let* ((_%ctx193865%_ + (##cdr _%e192735192753%_)))) + ((lambda (_%L192761%_ _%L192762%_) + (let* ((_%ctx192775%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L193852%_))) - (_%code193867%_ + _%L192762%_))) + (_%code192777%_ (##structure-ref - _%ctx193865%_ + _%ctx192775%_ '11 gx#module-context::t '#f)) - (__tmp194483 + (__tmp193384 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self193813%_ - _%code193867%_))))) + _%self192723%_ + _%code192777%_))))) (declare (not safe)) (__call-with-parameters - __tmp194483 + __tmp193384 gx#current-expander-context - _%ctx193865%_))) - _%tl193823193848%_ - _%hd193824193846%_))) - (let () - (declare (not safe)) - (_%g193816193830%_ _%g193817193833%_))))) - (let () - (declare (not safe)) - (_%g193816193830%_ _%g193817193833%_)))))) - (declare (not safe)) - (_%g193815193871%_ _%stx193814%_)))) + _%ctx192775%_))) + _%tl192733192758%_ + _%hd192734192756%_))) + (_%g192726192740%_ _%g192727192743%_)))) + (_%g192726192740%_ _%g192727192743%_))))) + (_%g192725192781%_ _%stx192724%_)))) (define gxc#generate-ssxi-define-values% - (lambda (_%self193618%_ _%stx193619%_) - (letrec ((_%generate-e193621%_ - (lambda (_%id193798%_) - (let* ((_%sym193800%_ - (if (let ((__tmp194484 + (lambda (_%self192528%_ _%stx192529%_) + (letrec ((_%generate-e192531%_ + (lambda (_%id192708%_) + (let* ((_%sym192710%_ + (if (let ((__tmp193385 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp194484)) + (gx#identifier? __tmp193385)) (let () (declare (not safe)) - (gxc#identifier-symbol _%id193798%_)) + (gxc#identifier-symbol _%id192708%_)) '#f)) - (_%$e193802%_ + (_%$e192712%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-class _%sym193800%_)))) - (if _%$e193802%_ - ((lambda (_%klass193805%_) + (gxc#optimizer-lookup-class _%sym192710%_)))) + (if _%$e192712%_ + ((lambda (_%klass192715%_) (let () (declare (not safe)) (gxc#verbose '"generate class decl" - _%sym193800%_)) + _%sym192710%_)) (cons 'begin (cons (cons 'declare-class - (cons _%sym193800%_ - (cons (let ((__method194450 + (cons _%sym192710%_ + (cons (let ((__method193360 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__method-ref _%klass193805%_ 'typedecl)))) - (if __method194450 - (__method194450 _%klass193805%_) + (__method-ref _%klass192715%_ 'typedecl)))) + (if __method193360 + (__method193360 _%klass192715%_) (let () (declare (not safe)) (error '"Missing method" - _%klass193805%_ + _%klass192715%_ 'typedecl)))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'declare-type - (cons _%sym193800%_ + (cons _%sym192710%_ (cons (cons 'optimizer-resolve-class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'quote (cons (cons 'typedecl - (cons _%sym193800%_ + (cons _%sym192710%_ '())) '())) (cons (cons 'quote (cons 'class::t '())) @@ -746,1481 +697,1470 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%$e193802%_) - (let ((_%$e193807%_ + _%$e192712%_) + (let ((_%$e192717%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym193800%_)))) - (if _%$e193807%_ - ((lambda (_%type193810%_) + (gxc#optimizer-lookup-type _%sym192710%_)))) + (if _%$e192717%_ + ((lambda (_%type192720%_) (let () (declare (not safe)) (gxc#verbose '"generate typedecl " - _%sym193800%_ + _%sym192710%_ '" " - _%type193810%_)) + _%type192720%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type193810%_ + _%type192720%_ 'gxc#!class::t)) (cons 'declare-type - (cons _%sym193800%_ + (cons _%sym192710%_ (cons (cons 'optimizer-resolve-class (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'typedecl - (cons _%sym193800%_ '())) + (cons _%sym192710%_ '())) '())) (cons (cons 'quote (cons (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%type193810%_)) + _%type192720%_)) '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons 'declare-type - (cons _%sym193800%_ - (cons (let ((__method194451 + (cons _%sym192710%_ + (cons (let ((__method193361 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__method-ref _%type193810%_ 'typedecl)))) - (if __method194451 - (__method194451 _%type193810%_) + (__method-ref _%type192720%_ 'typedecl)))) + (if __method193361 + (__method193361 _%type192720%_) (let () (declare (not safe)) - (error '"Missing method" _%type193810%_ 'typedecl)))) + (error '"Missing method" _%type192720%_ 'typedecl)))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e193807%_) - (let () '(begin))))))))) - (let* ((_%__stx194062194063%_ _%stx193619%_) - (_%g193624193662%_ + _%$e192717%_) + '(begin)))))))) + (let* ((_%__stx192972192973%_ _%stx192529%_) + (_%g192534192572%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx194062194063%_))))) - (let ((_%__kont194064194065%_ - (lambda (_%L193780%_) - (let () - (declare (not safe)) - (_%generate-e193621%_ _%L193780%_)))) - (_%__kont194066194067%_ - (lambda (_%L193715%_) - (let ((_%types193741%_ - (map _%generate-e193621%_ - (let ((__tmp194485 - (lambda (_%g193733193736%_ - _%g193734193738%_) - (cons _%g193733193736%_ - _%g193734193738%_)))) + _%__stx192972192973%_))))) + (let ((_%__kont192974192975%_ + (lambda (_%L192690%_) (_%generate-e192531%_ _%L192690%_))) + (_%__kont192976192977%_ + (lambda (_%L192625%_) + (let ((_%types192651%_ + (map _%generate-e192531%_ + (let ((__tmp193386 + (lambda (_%g192643192646%_ + _%g192644192648%_) + (cons _%g192643192646%_ + _%g192644192648%_)))) (declare (not safe)) - (__foldr1 __tmp194485 '() _%L193715%_))))) - (cons 'begin _%types193741%_))))) - (let ((_%__match194117194118%_ - (lambda (_%e193642193667%_ - _%hd193641193670%_ - _%tl193640193672%_ - _%e193645193675%_ - _%hd193644193678%_ - _%tl193643193680%_ - _%__splice194068194069%_ - _%target193646193683%_ - _%tl193648193685%_) - (letrec ((_%loop193649193688%_ - (lambda (_%hd193647193691%_ - _%id193653193693%_) + (__foldr1 __tmp193386 '() _%L192625%_))))) + (cons 'begin _%types192651%_))))) + (let ((_%__match193027193028%_ + (lambda (_%e192552192577%_ + _%hd192551192580%_ + _%tl192550192582%_ + _%e192555192585%_ + _%hd192554192588%_ + _%tl192553192590%_ + _%__splice192978192979%_ + _%target192556192593%_ + _%tl192558192595%_) + (letrec ((_%loop192559192598%_ + (lambda (_%hd192557192601%_ + _%id192563192603%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193647193691%_)) - (let ((_%e193650193696%_ + (gx#stx-pair? _%hd192557192601%_)) + (let ((_%e192560192606%_ (let () (declare (not safe)) (gx#stx-e - _%hd193647193691%_)))) - (let ((_%lp-tl193652193701%_ + _%hd192557192601%_)))) + (let ((_%lp-tl192562192611%_ (let () (declare (not safe)) - (##cdr _%e193650193696%_))) - (_%lp-hd193651193699%_ + (##cdr _%e192560192606%_))) + (_%lp-hd192561192609%_ (let () (declare (not safe)) - (##car _%e193650193696%_)))) - (let ((__tmp194486 - (cons _%lp-hd193651193699%_ - _%id193653193693%_))) - (declare (not safe)) - (_%loop193649193688%_ - _%lp-tl193652193701%_ - __tmp194486)))) - (let ((_%id193654193704%_ - (reverse _%id193653193693%_))) + (##car _%e192560192606%_)))) + (_%loop192559192598%_ + _%lp-tl192562192611%_ + (cons _%lp-hd192561192609%_ + _%id192563192603%_)))) + (let ((_%id192564192614%_ + (reverse _%id192563192603%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193643193680%_)) - (let ((_%e193657193707%_ + _%tl192553192590%_)) + (let ((_%e192567192617%_ (let () (declare (not safe)) (gx#stx-e - _%tl193643193680%_)))) - (let ((_%tl193655193712%_ + _%tl192553192590%_)))) + (let ((_%tl192565192622%_ (let () (declare (not safe)) - (##cdr _%e193657193707%_))) - (_%hd193656193710%_ + (##cdr _%e192567192617%_))) + (_%hd192566192620%_ (let () (declare (not safe)) - (##car _%e193657193707%_)))) + (##car _%e192567192617%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193655193712%_)) - (_%__kont194066194067%_ - _%id193654193704%_) + _%tl192565192622%_)) + (_%__kont192976192977%_ + _%id192564192614%_) (let () (declare (not safe)) - (_%g193624193662%_))))) + (_%g192534192572%_))))) (let () (declare (not safe)) - (_%g193624193662%_)))))))) - (let () - (declare (not safe)) - (_%loop193649193688%_ - _%target193646193683%_ - '())))))) + (_%g192534192572%_)))))))) + (_%loop192559192598%_ _%target192556192593%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx194062194063%_)) - (let ((_%e193629193748%_ + (gx#stx-pair? _%__stx192972192973%_)) + (let ((_%e192539192658%_ (let () (declare (not safe)) - (gx#stx-e _%__stx194062194063%_)))) - (let ((_%tl193627193753%_ + (gx#stx-e _%__stx192972192973%_)))) + (let ((_%tl192537192663%_ (let () (declare (not safe)) - (##cdr _%e193629193748%_))) - (_%hd193628193751%_ + (##cdr _%e192539192658%_))) + (_%hd192538192661%_ (let () (declare (not safe)) - (##car _%e193629193748%_)))) + (##car _%e192539192658%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193627193753%_)) - (let ((_%e193632193756%_ + (gx#stx-pair? _%tl192537192663%_)) + (let ((_%e192542192666%_ (let () (declare (not safe)) - (gx#stx-e _%tl193627193753%_)))) - (let ((_%tl193630193761%_ + (gx#stx-e _%tl192537192663%_)))) + (let ((_%tl192540192671%_ (let () (declare (not safe)) - (##cdr _%e193632193756%_))) - (_%hd193631193759%_ + (##cdr _%e192542192666%_))) + (_%hd192541192669%_ (let () (declare (not safe)) - (##car _%e193632193756%_)))) + (##car _%e192542192666%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193631193759%_)) - (let ((_%e193635193764%_ + (gx#stx-pair? _%hd192541192669%_)) + (let ((_%e192545192674%_ (let () (declare (not safe)) - (gx#stx-e _%hd193631193759%_)))) - (let ((_%tl193633193769%_ + (gx#stx-e _%hd192541192669%_)))) + (let ((_%tl192543192679%_ (let () (declare (not safe)) - (##cdr _%e193635193764%_))) - (_%hd193634193767%_ + (##cdr _%e192545192674%_))) + (_%hd192544192677%_ (let () (declare (not safe)) - (##car _%e193635193764%_)))) + (##car _%e192545192674%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193633193769%_)) + _%tl192543192679%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193630193761%_)) - (let ((_%e193638193772%_ + _%tl192540192671%_)) + (let ((_%e192548192682%_ (let () (declare (not safe)) (gx#stx-e - _%tl193630193761%_)))) - (let ((_%tl193636193777%_ + _%tl192540192671%_)))) + (let ((_%tl192546192687%_ (let () (declare (not safe)) - (##cdr _%e193638193772%_))) - (_%hd193637193775%_ + (##cdr _%e192548192682%_))) + (_%hd192547192685%_ (let () (declare (not safe)) - (##car _%e193638193772%_)))) + (##car _%e192548192682%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193636193777%_)) - (_%__kont194064194065%_ - _%hd193634193767%_) + _%tl192546192687%_)) + (_%__kont192974192975%_ + _%hd192544192677%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd193631193759%_)) - (let ((_%__splice194068194069%_ + _%hd192541192669%_)) + (let ((_%__splice192978192979%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd193631193759%_ '0)))) - (let ((_%tl193648193685%_ + (gx#syntax-split-splice _%hd192541192669%_ '0)))) + (let ((_%tl192558192595%_ (let () (declare (not safe)) - (##vector-ref _%__splice194068194069%_ '1))) - (_%target193646193683%_ + (##vector-ref _%__splice192978192979%_ '1))) + (_%target192556192593%_ (let () (declare (not safe)) - (##vector-ref _%__splice194068194069%_ '0)))) + (##vector-ref _%__splice192978192979%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193648193685%_)) - (_%__match194117194118%_ - _%e193629193748%_ - _%hd193628193751%_ - _%tl193627193753%_ - _%e193632193756%_ - _%hd193631193759%_ - _%tl193630193761%_ - _%__splice194068194069%_ - _%target193646193683%_ - _%tl193648193685%_) + (gx#stx-null? _%tl192558192595%_)) + (_%__match193027193028%_ + _%e192539192658%_ + _%hd192538192661%_ + _%tl192537192663%_ + _%e192542192666%_ + _%hd192541192669%_ + _%tl192540192671%_ + _%__splice192978192979%_ + _%target192556192593%_ + _%tl192558192595%_) (let () (declare (not safe)) - (_%g193624193662%_))))) - (let () (declare (not safe)) (_%g193624193662%_)))))) + (_%g192534192572%_))))) + (let () (declare (not safe)) (_%g192534192572%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd193631193759%_)) - (let ((_%__splice194068194069%_ + _%hd192541192669%_)) + (let ((_%__splice192978192979%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd193631193759%_ + _%hd192541192669%_ '0)))) - (let ((_%tl193648193685%_ + (let ((_%tl192558192595%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice194068194069%_ '1))) - (_%target193646193683%_ + (##vector-ref _%__splice192978192979%_ '1))) + (_%target192556192593%_ (let () (declare (not safe)) - (##vector-ref _%__splice194068194069%_ '0)))) + (##vector-ref _%__splice192978192979%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193648193685%_)) - (_%__match194117194118%_ - _%e193629193748%_ - _%hd193628193751%_ - _%tl193627193753%_ - _%e193632193756%_ - _%hd193631193759%_ - _%tl193630193761%_ - _%__splice194068194069%_ - _%target193646193683%_ - _%tl193648193685%_) - (let () (declare (not safe)) (_%g193624193662%_))))) + (gx#stx-null? _%tl192558192595%_)) + (_%__match193027193028%_ + _%e192539192658%_ + _%hd192538192661%_ + _%tl192537192663%_ + _%e192542192666%_ + _%hd192541192669%_ + _%tl192540192671%_ + _%__splice192978192979%_ + _%target192556192593%_ + _%tl192558192595%_) + (let () (declare (not safe)) (_%g192534192572%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g193624193662%_)))) + (_%g192534192572%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd193631193759%_)) - (let ((_%__splice194068194069%_ + _%hd192541192669%_)) + (let ((_%__splice192978192979%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd193631193759%_ + _%hd192541192669%_ '0)))) - (let ((_%tl193648193685%_ + (let ((_%tl192558192595%_ (let () (declare (not safe)) (##vector-ref - _%__splice194068194069%_ + _%__splice192978192979%_ '1))) - (_%target193646193683%_ + (_%target192556192593%_ (let () (declare (not safe)) (##vector-ref - _%__splice194068194069%_ + _%__splice192978192979%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193648193685%_)) - (_%__match194117194118%_ - _%e193629193748%_ - _%hd193628193751%_ - _%tl193627193753%_ - _%e193632193756%_ - _%hd193631193759%_ - _%tl193630193761%_ - _%__splice194068194069%_ - _%target193646193683%_ - _%tl193648193685%_) + _%tl192558192595%_)) + (_%__match193027193028%_ + _%e192539192658%_ + _%hd192538192661%_ + _%tl192537192663%_ + _%e192542192666%_ + _%hd192541192669%_ + _%tl192540192671%_ + _%__splice192978192979%_ + _%target192556192593%_ + _%tl192558192595%_) (let () (declare (not safe)) - (_%g193624193662%_))))) + (_%g192534192572%_))))) (let () (declare (not safe)) - (_%g193624193662%_)))))) + (_%g192534192572%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd193631193759%_)) - (let ((_%__splice194068194069%_ + _%hd192541192669%_)) + (let ((_%__splice192978192979%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd193631193759%_ + _%hd192541192669%_ '0)))) - (let ((_%tl193648193685%_ + (let ((_%tl192558192595%_ (let () (declare (not safe)) (##vector-ref - _%__splice194068194069%_ + _%__splice192978192979%_ '1))) - (_%target193646193683%_ + (_%target192556192593%_ (let () (declare (not safe)) (##vector-ref - _%__splice194068194069%_ + _%__splice192978192979%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193648193685%_)) - (_%__match194117194118%_ - _%e193629193748%_ - _%hd193628193751%_ - _%tl193627193753%_ - _%e193632193756%_ - _%hd193631193759%_ - _%tl193630193761%_ - _%__splice194068194069%_ - _%target193646193683%_ - _%tl193648193685%_) + _%tl192558192595%_)) + (_%__match193027193028%_ + _%e192539192658%_ + _%hd192538192661%_ + _%tl192537192663%_ + _%e192542192666%_ + _%hd192541192669%_ + _%tl192540192671%_ + _%__splice192978192979%_ + _%target192556192593%_ + _%tl192558192595%_) (let () (declare (not safe)) - (_%g193624193662%_))))) + (_%g192534192572%_))))) (let () (declare (not safe)) - (_%g193624193662%_)))))) + (_%g192534192572%_)))))) (let () (declare (not safe)) - (_%g193624193662%_))))) - (let () (declare (not safe)) (_%g193624193662%_))))))))) + (_%g192534192572%_))))) + (let () (declare (not safe)) (_%g192534192572%_))))))))) (define gxc#generate-ssxi-call% - (lambda (_%self193171%_ _%stx193172%_) - (let* ((_%__stx194120194121%_ _%stx193172%_) - (_%g193176193278%_ + (lambda (_%self192081%_ _%stx192082%_) + (let* ((_%__stx193030193031%_ _%stx192082%_) + (_%g192086192188%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx194120194121%_))))) - (let ((_%__kont194122194123%_ - (lambda (_%L193568%_ - _%L193569%_ - _%L193570%_ - _%L193571%_ - _%L193572%_) + _%__stx193030193031%_))))) + (let ((_%__kont193032193033%_ + (lambda (_%L192478%_ + _%L192479%_ + _%L192480%_ + _%L192481%_ + _%L192482%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L193571%_)) + (gxc#identifier-symbol _%L192481%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L193570%_)) + (gx#stx-e _%L192480%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L193569%_)) + _%L192479%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L193568%_)) + (gx#stx-e _%L192478%_)) '()))))))) - (_%__kont194124194125%_ - (lambda (_%L193394%_ _%L193395%_ _%L193396%_ _%L193397%_) + (_%__kont193034193035%_ + (lambda (_%L192304%_ _%L192305%_ _%L192306%_ _%L192307%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L193396%_)) + (gxc#identifier-symbol _%L192306%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L193395%_)) + (gx#stx-e _%L192305%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L193394%_)) + _%L192304%_)) (cons '#f '()))))))) - (_%__kont194126194127%_ (lambda () '(begin)))) - (let ((_%__match194255194256%_ - (lambda (_%e193185193440%_ - _%hd193184193443%_ - _%tl193183193445%_ - _%e193188193448%_ - _%hd193187193451%_ - _%tl193186193453%_ - _%e193191193456%_ - _%hd193190193459%_ - _%tl193189193461%_ - _%e193194193464%_ - _%hd193193193467%_ - _%tl193192193469%_ - _%e193197193472%_ - _%hd193196193475%_ - _%tl193195193477%_ - _%e193200193480%_ - _%hd193199193483%_ - _%tl193198193485%_ - _%e193203193488%_ - _%hd193202193491%_ - _%tl193201193493%_ - _%e193206193496%_ - _%hd193205193499%_ - _%tl193204193501%_ - _%e193209193504%_ - _%hd193208193507%_ - _%tl193207193509%_ - _%e193212193512%_ - _%hd193211193515%_ - _%tl193210193517%_ - _%e193215193520%_ - _%hd193214193523%_ - _%tl193213193525%_ - _%e193218193528%_ - _%hd193217193531%_ - _%tl193216193533%_ - _%e193221193536%_ - _%hd193220193539%_ - _%tl193219193541%_ - _%e193224193544%_ - _%hd193223193547%_ - _%tl193222193549%_ - _%e193227193552%_ - _%hd193226193555%_ - _%tl193225193557%_ - _%e193230193560%_ - _%hd193229193563%_ - _%tl193228193565%_) - (let ((_%L193568%_ _%hd193229193563%_) - (_%L193569%_ _%hd193220193539%_) - (_%L193570%_ _%hd193211193515%_) - (_%L193571%_ _%hd193202193491%_) - (_%L193572%_ _%hd193193193467%_)) + (_%__kont193036193037%_ (lambda () '(begin)))) + (let ((_%__match193165193166%_ + (lambda (_%e192095192350%_ + _%hd192094192353%_ + _%tl192093192355%_ + _%e192098192358%_ + _%hd192097192361%_ + _%tl192096192363%_ + _%e192101192366%_ + _%hd192100192369%_ + _%tl192099192371%_ + _%e192104192374%_ + _%hd192103192377%_ + _%tl192102192379%_ + _%e192107192382%_ + _%hd192106192385%_ + _%tl192105192387%_ + _%e192110192390%_ + _%hd192109192393%_ + _%tl192108192395%_ + _%e192113192398%_ + _%hd192112192401%_ + _%tl192111192403%_ + _%e192116192406%_ + _%hd192115192409%_ + _%tl192114192411%_ + _%e192119192414%_ + _%hd192118192417%_ + _%tl192117192419%_ + _%e192122192422%_ + _%hd192121192425%_ + _%tl192120192427%_ + _%e192125192430%_ + _%hd192124192433%_ + _%tl192123192435%_ + _%e192128192438%_ + _%hd192127192441%_ + _%tl192126192443%_ + _%e192131192446%_ + _%hd192130192449%_ + _%tl192129192451%_ + _%e192134192454%_ + _%hd192133192457%_ + _%tl192132192459%_ + _%e192137192462%_ + _%hd192136192465%_ + _%tl192135192467%_ + _%e192140192470%_ + _%hd192139192473%_ + _%tl192138192475%_) + (let ((_%L192478%_ _%hd192139192473%_) + (_%L192479%_ _%hd192130192449%_) + (_%L192480%_ _%hd192121192425%_) + (_%L192481%_ _%hd192112192401%_) + (_%L192482%_ _%hd192103192377%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L193572%_ + _%L192482%_ 'bind-method!)) - (_%__kont194122194123%_ - _%L193568%_ - _%L193569%_ - _%L193570%_ - _%L193571%_ - _%L193572%_) - (_%__kont194126194127%_)))))) + (_%__kont193032193033%_ + _%L192478%_ + _%L192479%_ + _%L192480%_ + _%L192481%_ + _%L192482%_) + (_%__kont193036193037%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx194120194121%_)) - (let ((_%e193185193440%_ + (gx#stx-pair? _%__stx193030193031%_)) + (let ((_%e192095192350%_ (let () (declare (not safe)) - (gx#stx-e _%__stx194120194121%_)))) - (let ((_%tl193183193445%_ + (gx#stx-e _%__stx193030193031%_)))) + (let ((_%tl192093192355%_ (let () (declare (not safe)) - (##cdr _%e193185193440%_))) - (_%hd193184193443%_ + (##cdr _%e192095192350%_))) + (_%hd192094192353%_ (let () (declare (not safe)) - (##car _%e193185193440%_)))) + (##car _%e192095192350%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193183193445%_)) - (let ((_%e193188193448%_ + (gx#stx-pair? _%tl192093192355%_)) + (let ((_%e192098192358%_ (let () (declare (not safe)) - (gx#stx-e _%tl193183193445%_)))) - (let ((_%tl193186193453%_ + (gx#stx-e _%tl192093192355%_)))) + (let ((_%tl192096192363%_ (let () (declare (not safe)) - (##cdr _%e193188193448%_))) - (_%hd193187193451%_ + (##cdr _%e192098192358%_))) + (_%hd192097192361%_ (let () (declare (not safe)) - (##car _%e193188193448%_)))) + (##car _%e192098192358%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193187193451%_)) - (let ((_%e193191193456%_ + (gx#stx-pair? _%hd192097192361%_)) + (let ((_%e192101192366%_ (let () (declare (not safe)) - (gx#stx-e _%hd193187193451%_)))) - (let ((_%tl193189193461%_ + (gx#stx-e _%hd192097192361%_)))) + (let ((_%tl192099192371%_ (let () (declare (not safe)) - (##cdr _%e193191193456%_))) - (_%hd193190193459%_ + (##cdr _%e192101192366%_))) + (_%hd192100192369%_ (let () (declare (not safe)) - (##car _%e193191193456%_)))) + (##car _%e192101192366%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd193190193459%_)) + _%hd192100192369%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd193190193459%_)) + _%hd192100192369%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193189193461%_)) - (let ((_%e193194193464%_ + _%tl192099192371%_)) + (let ((_%e192104192374%_ (let () (declare (not safe)) (gx#stx-e - _%tl193189193461%_)))) - (let ((_%tl193192193469%_ + _%tl192099192371%_)))) + (let ((_%tl192102192379%_ (let () (declare (not safe)) - (##cdr _%e193194193464%_))) - (_%hd193193193467%_ + (##cdr _%e192104192374%_))) + (_%hd192103192377%_ (let () (declare (not safe)) - (##car _%e193194193464%_)))) + (##car _%e192104192374%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193192193469%_)) + _%tl192102192379%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl193186193453%_)) - (let ((_%e193197193472%_ + (gx#stx-pair? _%tl192096192363%_)) + (let ((_%e192107192382%_ (let () (declare (not safe)) - (gx#stx-e _%tl193186193453%_)))) - (let ((_%tl193195193477%_ + (gx#stx-e _%tl192096192363%_)))) + (let ((_%tl192105192387%_ (let () (declare (not safe)) - (##cdr _%e193197193472%_))) - (_%hd193196193475%_ + (##cdr _%e192107192382%_))) + (_%hd192106192385%_ (let () (declare (not safe)) - (##car _%e193197193472%_)))) + (##car _%e192107192382%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193196193475%_)) - (let ((_%e193200193480%_ + (gx#stx-pair? _%hd192106192385%_)) + (let ((_%e192110192390%_ (let () (declare (not safe)) - (gx#stx-e _%hd193196193475%_)))) - (let ((_%tl193198193485%_ + (gx#stx-e _%hd192106192385%_)))) + (let ((_%tl192108192395%_ (let () (declare (not safe)) - (##cdr _%e193200193480%_))) - (_%hd193199193483%_ + (##cdr _%e192110192390%_))) + (_%hd192109192393%_ (let () (declare (not safe)) - (##car _%e193200193480%_)))) + (##car _%e192110192390%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193199193483%_)) + (gx#identifier? _%hd192109192393%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd193199193483%_)) + _%hd192109192393%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193198193485%_)) - (let ((_%e193203193488%_ + _%tl192108192395%_)) + (let ((_%e192113192398%_ (let () (declare (not safe)) (gx#stx-e - _%tl193198193485%_)))) - (let ((_%tl193201193493%_ + _%tl192108192395%_)))) + (let ((_%tl192111192403%_ (let () (declare (not safe)) - (##cdr _%e193203193488%_))) - (_%hd193202193491%_ + (##cdr _%e192113192398%_))) + (_%hd192112192401%_ (let () (declare (not safe)) - (##car _%e193203193488%_)))) + (##car _%e192113192398%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193201193493%_)) + _%tl192111192403%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193195193477%_)) - (let ((_%e193206193496%_ + _%tl192105192387%_)) + (let ((_%e192116192406%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl193195193477%_)))) - (let ((_%tl193204193501%_ + (gx#stx-e _%tl192105192387%_)))) + (let ((_%tl192114192411%_ (let () (declare (not safe)) - (##cdr _%e193206193496%_))) - (_%hd193205193499%_ + (##cdr _%e192116192406%_))) + (_%hd192115192409%_ (let () (declare (not safe)) - (##car _%e193206193496%_)))) + (##car _%e192116192406%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193205193499%_)) - (let ((_%e193209193504%_ + (gx#stx-pair? _%hd192115192409%_)) + (let ((_%e192119192414%_ (let () (declare (not safe)) - (gx#stx-e _%hd193205193499%_)))) - (let ((_%tl193207193509%_ + (gx#stx-e _%hd192115192409%_)))) + (let ((_%tl192117192419%_ (let () (declare (not safe)) - (##cdr _%e193209193504%_))) - (_%hd193208193507%_ + (##cdr _%e192119192414%_))) + (_%hd192118192417%_ (let () (declare (not safe)) - (##car _%e193209193504%_)))) + (##car _%e192119192414%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193208193507%_)) + (gx#identifier? _%hd192118192417%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd193208193507%_)) + _%hd192118192417%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193207193509%_)) - (let ((_%e193212193512%_ + (gx#stx-pair? _%tl192117192419%_)) + (let ((_%e192122192422%_ (let () (declare (not safe)) (gx#stx-e - _%tl193207193509%_)))) - (let ((_%tl193210193517%_ + _%tl192117192419%_)))) + (let ((_%tl192120192427%_ (let () (declare (not safe)) - (##cdr _%e193212193512%_))) - (_%hd193211193515%_ + (##cdr _%e192122192422%_))) + (_%hd192121192425%_ (let () (declare (not safe)) - (##car _%e193212193512%_)))) + (##car _%e192122192422%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193210193517%_)) + _%tl192120192427%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193204193501%_)) - (let ((_%e193215193520%_ + _%tl192114192411%_)) + (let ((_%e192125192430%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl193204193501%_)))) - (let ((_%tl193213193525%_ - (let () (declare (not safe)) (##cdr _%e193215193520%_))) - (_%hd193214193523%_ + (gx#stx-e _%tl192114192411%_)))) + (let ((_%tl192123192435%_ + (let () (declare (not safe)) (##cdr _%e192125192430%_))) + (_%hd192124192433%_ (let () (declare (not safe)) - (##car _%e193215193520%_)))) + (##car _%e192125192430%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193214193523%_)) - (let ((_%e193218193528%_ + (gx#stx-pair? _%hd192124192433%_)) + (let ((_%e192128192438%_ (let () (declare (not safe)) - (gx#stx-e _%hd193214193523%_)))) - (let ((_%tl193216193533%_ + (gx#stx-e _%hd192124192433%_)))) + (let ((_%tl192126192443%_ (let () (declare (not safe)) - (##cdr _%e193218193528%_))) - (_%hd193217193531%_ + (##cdr _%e192128192438%_))) + (_%hd192127192441%_ (let () (declare (not safe)) - (##car _%e193218193528%_)))) + (##car _%e192128192438%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193217193531%_)) + (gx#identifier? _%hd192127192441%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd193217193531%_)) + (gx#stx-eq? '%#ref _%hd192127192441%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193216193533%_)) - (let ((_%e193221193536%_ + (gx#stx-pair? _%tl192126192443%_)) + (let ((_%e192131192446%_ (let () (declare (not safe)) - (gx#stx-e _%tl193216193533%_)))) - (let ((_%tl193219193541%_ + (gx#stx-e _%tl192126192443%_)))) + (let ((_%tl192129192451%_ (let () (declare (not safe)) - (##cdr _%e193221193536%_))) - (_%hd193220193539%_ + (##cdr _%e192131192446%_))) + (_%hd192130192449%_ (let () (declare (not safe)) - (##car _%e193221193536%_)))) + (##car _%e192131192446%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193219193541%_)) + _%tl192129192451%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193213193525%_)) - (let ((_%e193224193544%_ + _%tl192123192435%_)) + (let ((_%e192134192454%_ (let () (declare (not safe)) (gx#stx-e - _%tl193213193525%_)))) - (let ((_%tl193222193549%_ + _%tl192123192435%_)))) + (let ((_%tl192132192459%_ (let () (declare (not safe)) - (##cdr _%e193224193544%_))) - (_%hd193223193547%_ + (##cdr _%e192134192454%_))) + (_%hd192133192457%_ (let () (declare (not safe)) - (##car _%e193224193544%_)))) + (##car _%e192134192454%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd193223193547%_)) - (let ((_%e193227193552%_ + _%hd192133192457%_)) + (let ((_%e192137192462%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd193223193547%_)))) - (let ((_%tl193225193557%_ + (gx#stx-e _%hd192133192457%_)))) + (let ((_%tl192135192467%_ (let () (declare (not safe)) - (##cdr _%e193227193552%_))) - (_%hd193226193555%_ + (##cdr _%e192137192462%_))) + (_%hd192136192465%_ (let () (declare (not safe)) - (##car _%e193227193552%_)))) + (##car _%e192137192462%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193226193555%_)) + (gx#identifier? _%hd192136192465%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd193226193555%_)) + (gx#stx-eq? '%#quote _%hd192136192465%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193225193557%_)) - (let ((_%e193230193560%_ + (gx#stx-pair? _%tl192135192467%_)) + (let ((_%e192140192470%_ (let () (declare (not safe)) - (gx#stx-e _%tl193225193557%_)))) - (let ((_%tl193228193565%_ + (gx#stx-e _%tl192135192467%_)))) + (let ((_%tl192138192475%_ (let () (declare (not safe)) - (##cdr _%e193230193560%_))) - (_%hd193229193563%_ + (##cdr _%e192140192470%_))) + (_%hd192139192473%_ (let () (declare (not safe)) - (##car _%e193230193560%_)))) + (##car _%e192140192470%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193228193565%_)) + (gx#stx-null? _%tl192138192475%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193222193549%_)) - (_%__match194255194256%_ - _%e193185193440%_ - _%hd193184193443%_ - _%tl193183193445%_ - _%e193188193448%_ - _%hd193187193451%_ - _%tl193186193453%_ - _%e193191193456%_ - _%hd193190193459%_ - _%tl193189193461%_ - _%e193194193464%_ - _%hd193193193467%_ - _%tl193192193469%_ - _%e193197193472%_ - _%hd193196193475%_ - _%tl193195193477%_ - _%e193200193480%_ - _%hd193199193483%_ - _%tl193198193485%_ - _%e193203193488%_ - _%hd193202193491%_ - _%tl193201193493%_ - _%e193206193496%_ - _%hd193205193499%_ - _%tl193204193501%_ - _%e193209193504%_ - _%hd193208193507%_ - _%tl193207193509%_ - _%e193212193512%_ - _%hd193211193515%_ - _%tl193210193517%_ - _%e193215193520%_ - _%hd193214193523%_ - _%tl193213193525%_ - _%e193218193528%_ - _%hd193217193531%_ - _%tl193216193533%_ - _%e193221193536%_ - _%hd193220193539%_ - _%tl193219193541%_ - _%e193224193544%_ - _%hd193223193547%_ - _%tl193222193549%_ - _%e193227193552%_ - _%hd193226193555%_ - _%tl193225193557%_ - _%e193230193560%_ - _%hd193229193563%_ - _%tl193228193565%_) - (_%__kont194126194127%_)) - (_%__kont194126194127%_)))) - (_%__kont194126194127%_)) - (_%__kont194126194127%_)) - (_%__kont194126194127%_)))) - (_%__kont194126194127%_)))) + _%tl192132192459%_)) + (_%__match193165193166%_ + _%e192095192350%_ + _%hd192094192353%_ + _%tl192093192355%_ + _%e192098192358%_ + _%hd192097192361%_ + _%tl192096192363%_ + _%e192101192366%_ + _%hd192100192369%_ + _%tl192099192371%_ + _%e192104192374%_ + _%hd192103192377%_ + _%tl192102192379%_ + _%e192107192382%_ + _%hd192106192385%_ + _%tl192105192387%_ + _%e192110192390%_ + _%hd192109192393%_ + _%tl192108192395%_ + _%e192113192398%_ + _%hd192112192401%_ + _%tl192111192403%_ + _%e192116192406%_ + _%hd192115192409%_ + _%tl192114192411%_ + _%e192119192414%_ + _%hd192118192417%_ + _%tl192117192419%_ + _%e192122192422%_ + _%hd192121192425%_ + _%tl192120192427%_ + _%e192125192430%_ + _%hd192124192433%_ + _%tl192123192435%_ + _%e192128192438%_ + _%hd192127192441%_ + _%tl192126192443%_ + _%e192131192446%_ + _%hd192130192449%_ + _%tl192129192451%_ + _%e192134192454%_ + _%hd192133192457%_ + _%tl192132192459%_ + _%e192137192462%_ + _%hd192136192465%_ + _%tl192135192467%_ + _%e192140192470%_ + _%hd192139192473%_ + _%tl192138192475%_) + (_%__kont193036193037%_)) + (_%__kont193036193037%_)))) + (_%__kont193036193037%_)) + (_%__kont193036193037%_)) + (_%__kont193036193037%_)))) + (_%__kont193036193037%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl193213193525%_)) - (if (let ((__tmp194487 + _%tl192123192435%_)) + (if (let ((__tmp193387 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp194487 'bind-method!)) - (let ((_%L193394%_ _%hd193220193539%_) - (_%L193395%_ _%hd193211193515%_) - (_%L193396%_ _%hd193202193491%_) - (_%L193397%_ _%hd193193193467%_)) - (_%__kont194124194125%_ - _%L193394%_ - _%L193395%_ - _%L193396%_ - _%L193397%_)) - (_%__kont194126194127%_)) - (_%__kont194126194127%_))) + (gxc#runtime-identifier=? __tmp193387 'bind-method!)) + (let ((_%L192304%_ _%hd192130192449%_) + (_%L192305%_ _%hd192121192425%_) + (_%L192306%_ _%hd192112192401%_) + (_%L192307%_ _%hd192103192377%_)) + (_%__kont193034193035%_ + _%L192304%_ + _%L192305%_ + _%L192306%_ + _%L192307%_)) + (_%__kont193036193037%_)) + (_%__kont193036193037%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont194126194127%_)))) - (_%__kont194126194127%_)) - (_%__kont194126194127%_)) - (_%__kont194126194127%_)))) - (_%__kont194126194127%_)))) - (_%__kont194126194127%_)) + (_%__kont193036193037%_)))) + (_%__kont193036193037%_)) + (_%__kont193036193037%_)) + (_%__kont193036193037%_)))) + (_%__kont193036193037%_)))) + (_%__kont193036193037%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont194126194127%_)))) - (_%__kont194126194127%_)) - (_%__kont194126194127%_)) - (_%__kont194126194127%_)))) - (_%__kont194126194127%_)))) - (_%__kont194126194127%_)) - (_%__kont194126194127%_)))) + (_%__kont193036193037%_)))) + (_%__kont193036193037%_)) + (_%__kont193036193037%_)) + (_%__kont193036193037%_)))) + (_%__kont193036193037%_)))) + (_%__kont193036193037%_)) + (_%__kont193036193037%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont194126194127%_)) - (_%__kont194126194127%_)) - (_%__kont194126194127%_)))) - (_%__kont194126194127%_)))) - (_%__kont194126194127%_)) - (_%__kont194126194127%_)))) + (_%__kont193036193037%_)) + (_%__kont193036193037%_)) + (_%__kont193036193037%_)))) + (_%__kont193036193037%_)))) + (_%__kont193036193037%_)) + (_%__kont193036193037%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont194126194127%_)) - (_%__kont194126194127%_)) - (_%__kont194126194127%_)))) - (_%__kont194126194127%_)))) - (_%__kont194126194127%_)))) - (_%__kont194126194127%_))))))) + (_%__kont193036193037%_)) + (_%__kont193036193037%_)) + (_%__kont193036193037%_)))) + (_%__kont193036193037%_)))) + (_%__kont193036193037%_)))) + (_%__kont193036193037%_))))))) (define gxc#generate-ssxi-begin-annotation% - (lambda (_%self192995%_ _%stx192996%_) - (let* ((_%__stx194364194365%_ _%stx192996%_) - (_%g192999193039%_ + (lambda (_%self191905%_ _%stx191906%_) + (let* ((_%__stx193274193275%_ _%stx191906%_) + (_%g191909191949%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx194364194365%_))))) - (let ((_%__kont194366194367%_ - (lambda (_%L193145%_ _%L193146%_) + _%__stx193274193275%_))))) + (let ((_%__kont193276193277%_ + (lambda (_%L192055%_ _%L192056%_) (cons 'declare-inline-rule! (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L193146%_)) - (cons _%L193145%_ '()))))) - (_%__kont194368194369%_ - (lambda (_%L193068%_ _%L193069%_) '(begin)))) + (gxc#identifier-symbol _%L192056%_)) + (cons _%L192055%_ '()))))) + (_%__kont193278193279%_ + (lambda (_%L191978%_ _%L191979%_) '(begin)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx194364194365%_)) - (let ((_%e193005193089%_ + (gx#stx-pair? _%__stx193274193275%_)) + (let ((_%e191915191999%_ (let () (declare (not safe)) - (gx#stx-e _%__stx194364194365%_)))) - (let ((_%tl193003193094%_ + (gx#stx-e _%__stx193274193275%_)))) + (let ((_%tl191913192004%_ (let () (declare (not safe)) - (##cdr _%e193005193089%_))) - (_%hd193004193092%_ + (##cdr _%e191915191999%_))) + (_%hd191914192002%_ (let () (declare (not safe)) - (##car _%e193005193089%_)))) + (##car _%e191915191999%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193003193094%_)) - (let ((_%e193008193097%_ + (gx#stx-pair? _%tl191913192004%_)) + (let ((_%e191918192007%_ (let () (declare (not safe)) - (gx#stx-e _%tl193003193094%_)))) - (let ((_%tl193006193102%_ + (gx#stx-e _%tl191913192004%_)))) + (let ((_%tl191916192012%_ (let () (declare (not safe)) - (##cdr _%e193008193097%_))) - (_%hd193007193100%_ + (##cdr _%e191918192007%_))) + (_%hd191917192010%_ (let () (declare (not safe)) - (##car _%e193008193097%_)))) + (##car _%e191918192007%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193007193100%_)) - (let ((_%e193011193105%_ + (gx#stx-pair? _%hd191917192010%_)) + (let ((_%e191921192015%_ (let () (declare (not safe)) - (gx#stx-e _%hd193007193100%_)))) - (let ((_%tl193009193110%_ + (gx#stx-e _%hd191917192010%_)))) + (let ((_%tl191919192020%_ (let () (declare (not safe)) - (##cdr _%e193011193105%_))) - (_%hd193010193108%_ + (##cdr _%e191921192015%_))) + (_%hd191920192018%_ (let () (declare (not safe)) - (##car _%e193011193105%_)))) + (##car _%e191921192015%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193010193108%_)) + (gx#identifier? _%hd191920192018%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd193010193108%_)) + _%hd191920192018%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193009193110%_)) - (let ((_%e193014193113%_ + _%tl191919192020%_)) + (let ((_%e191924192023%_ (let () (declare (not safe)) (gx#stx-e - _%tl193009193110%_)))) - (let ((_%tl193012193118%_ + _%tl191919192020%_)))) + (let ((_%tl191922192028%_ (let () (declare (not safe)) - (##cdr _%e193014193113%_))) - (_%hd193013193116%_ + (##cdr _%e191924192023%_))) + (_%hd191923192026%_ (let () (declare (not safe)) - (##car _%e193014193113%_)))) + (##car _%e191924192023%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193012193118%_)) + _%tl191922192028%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193006193102%_)) - (let ((_%e193017193121%_ + _%tl191916192012%_)) + (let ((_%e191927192031%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl193006193102%_)))) - (let ((_%tl193015193126%_ + (gx#stx-e _%tl191916192012%_)))) + (let ((_%tl191925192036%_ (let () (declare (not safe)) - (##cdr _%e193017193121%_))) - (_%hd193016193124%_ + (##cdr _%e191927192031%_))) + (_%hd191926192034%_ (let () (declare (not safe)) - (##car _%e193017193121%_)))) + (##car _%e191927192031%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193016193124%_)) - (let ((_%e193020193129%_ + (gx#stx-pair? _%hd191926192034%_)) + (let ((_%e191930192039%_ (let () (declare (not safe)) - (gx#stx-e _%hd193016193124%_)))) - (let ((_%tl193018193134%_ + (gx#stx-e _%hd191926192034%_)))) + (let ((_%tl191928192044%_ (let () (declare (not safe)) - (##cdr _%e193020193129%_))) - (_%hd193019193132%_ + (##cdr _%e191930192039%_))) + (_%hd191929192042%_ (let () (declare (not safe)) - (##car _%e193020193129%_)))) + (##car _%e191930192039%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193019193132%_)) + (gx#identifier? _%hd191929192042%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd193019193132%_)) + _%hd191929192042%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193018193134%_)) - (let ((_%e193023193137%_ + _%tl191928192044%_)) + (let ((_%e191933192047%_ (let () (declare (not safe)) (gx#stx-e - _%tl193018193134%_)))) - (let ((_%tl193021193142%_ + _%tl191928192044%_)))) + (let ((_%tl191931192052%_ (let () (declare (not safe)) - (##cdr _%e193023193137%_))) - (_%hd193022193140%_ + (##cdr _%e191933192047%_))) + (_%hd191932192050%_ (let () (declare (not safe)) - (##car _%e193023193137%_)))) + (##car _%e191933192047%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193021193142%_)) + _%tl191931192052%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193015193126%_)) - (_%__kont194366194367%_ - _%hd193022193140%_ - _%hd193013193116%_) + _%tl191925192036%_)) + (_%__kont193276193277%_ + _%hd191932192050%_ + _%hd191923192026%_) (let () (declare (not safe)) - (_%g192999193039%_))) + (_%g191909191949%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193015193126%_)) - (_%__kont194368194369%_ - _%hd193016193124%_ - _%hd193007193100%_) + _%tl191925192036%_)) + (_%__kont193278193279%_ + _%hd191926192034%_ + _%hd191917192010%_) (let () (declare (not safe)) - (_%g192999193039%_)))))) + (_%g191909191949%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193015193126%_)) - (_%__kont194368194369%_ - _%hd193016193124%_ - _%hd193007193100%_) + _%tl191925192036%_)) + (_%__kont193278193279%_ + _%hd191926192034%_ + _%hd191917192010%_) (let () (declare (not safe)) - (_%g192999193039%_)))) + (_%g191909191949%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193015193126%_)) - (_%__kont194368194369%_ - _%hd193016193124%_ - _%hd193007193100%_) + _%tl191925192036%_)) + (_%__kont193278193279%_ + _%hd191926192034%_ + _%hd191917192010%_) (let () (declare (not safe)) - (_%g192999193039%_)))) + (_%g191909191949%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193015193126%_)) - (_%__kont194368194369%_ - _%hd193016193124%_ - _%hd193007193100%_) + (gx#stx-null? _%tl191925192036%_)) + (_%__kont193278193279%_ + _%hd191926192034%_ + _%hd191917192010%_) (let () (declare (not safe)) - (_%g192999193039%_)))))) + (_%g191909191949%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193015193126%_)) - (_%__kont194368194369%_ - _%hd193016193124%_ - _%hd193007193100%_) + (gx#stx-null? _%tl191925192036%_)) + (_%__kont193278193279%_ + _%hd191926192034%_ + _%hd191917192010%_) (let () (declare (not safe)) - (_%g192999193039%_)))))) - (let () (declare (not safe)) (_%g192999193039%_))) + (_%g191909191949%_)))))) + (let () (declare (not safe)) (_%g191909191949%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193006193102%_)) - (let ((_%e193034193060%_ + (gx#stx-pair? _%tl191916192012%_)) + (let ((_%e191944191970%_ (let () (declare (not safe)) - (gx#stx-e _%tl193006193102%_)))) - (let ((_%tl193032193065%_ + (gx#stx-e _%tl191916192012%_)))) + (let ((_%tl191942191975%_ (let () (declare (not safe)) - (##cdr _%e193034193060%_))) - (_%hd193033193063%_ + (##cdr _%e191944191970%_))) + (_%hd191943191973%_ (let () (declare (not safe)) - (##car _%e193034193060%_)))) + (##car _%e191944191970%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193032193065%_)) - (_%__kont194368194369%_ - _%hd193033193063%_ - _%hd193007193100%_) + (gx#stx-null? _%tl191942191975%_)) + (_%__kont193278193279%_ + _%hd191943191973%_ + _%hd191917192010%_) (let () (declare (not safe)) - (_%g192999193039%_))))) - (let () (declare (not safe)) (_%g192999193039%_)))))) + (_%g191909191949%_))))) + (let () (declare (not safe)) (_%g191909191949%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193006193102%_)) - (let ((_%e193034193060%_ + _%tl191916192012%_)) + (let ((_%e191944191970%_ (let () (declare (not safe)) (gx#stx-e - _%tl193006193102%_)))) - (let ((_%tl193032193065%_ + _%tl191916192012%_)))) + (let ((_%tl191942191975%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e193034193060%_))) - (_%hd193033193063%_ - (let () (declare (not safe)) (##car _%e193034193060%_)))) + (##cdr _%e191944191970%_))) + (_%hd191943191973%_ + (let () (declare (not safe)) (##car _%e191944191970%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193032193065%_)) - (_%__kont194368194369%_ - _%hd193033193063%_ - _%hd193007193100%_) - (let () (declare (not safe)) (_%g192999193039%_))))) + (gx#stx-null? _%tl191942191975%_)) + (_%__kont193278193279%_ + _%hd191943191973%_ + _%hd191917192010%_) + (let () (declare (not safe)) (_%g191909191949%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192999193039%_)))) + (_%g191909191949%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193006193102%_)) - (let ((_%e193034193060%_ + _%tl191916192012%_)) + (let ((_%e191944191970%_ (let () (declare (not safe)) (gx#stx-e - _%tl193006193102%_)))) - (let ((_%tl193032193065%_ + _%tl191916192012%_)))) + (let ((_%tl191942191975%_ (let () (declare (not safe)) - (##cdr _%e193034193060%_))) - (_%hd193033193063%_ + (##cdr _%e191944191970%_))) + (_%hd191943191973%_ (let () (declare (not safe)) - (##car _%e193034193060%_)))) + (##car _%e191944191970%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193032193065%_)) - (_%__kont194368194369%_ - _%hd193033193063%_ - _%hd193007193100%_) + _%tl191942191975%_)) + (_%__kont193278193279%_ + _%hd191943191973%_ + _%hd191917192010%_) (let () (declare (not safe)) - (_%g192999193039%_))))) + (_%g191909191949%_))))) (let () (declare (not safe)) - (_%g192999193039%_)))) + (_%g191909191949%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193006193102%_)) - (let ((_%e193034193060%_ + _%tl191916192012%_)) + (let ((_%e191944191970%_ (let () (declare (not safe)) (gx#stx-e - _%tl193006193102%_)))) - (let ((_%tl193032193065%_ + _%tl191916192012%_)))) + (let ((_%tl191942191975%_ (let () (declare (not safe)) - (##cdr _%e193034193060%_))) - (_%hd193033193063%_ + (##cdr _%e191944191970%_))) + (_%hd191943191973%_ (let () (declare (not safe)) - (##car _%e193034193060%_)))) + (##car _%e191944191970%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193032193065%_)) - (_%__kont194368194369%_ - _%hd193033193063%_ - _%hd193007193100%_) + _%tl191942191975%_)) + (_%__kont193278193279%_ + _%hd191943191973%_ + _%hd191917192010%_) (let () (declare (not safe)) - (_%g192999193039%_))))) + (_%g191909191949%_))))) (let () (declare (not safe)) - (_%g192999193039%_)))))) + (_%g191909191949%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193006193102%_)) - (let ((_%e193034193060%_ + (gx#stx-pair? _%tl191916192012%_)) + (let ((_%e191944191970%_ (let () (declare (not safe)) - (gx#stx-e _%tl193006193102%_)))) - (let ((_%tl193032193065%_ + (gx#stx-e _%tl191916192012%_)))) + (let ((_%tl191942191975%_ (let () (declare (not safe)) - (##cdr _%e193034193060%_))) - (_%hd193033193063%_ + (##cdr _%e191944191970%_))) + (_%hd191943191973%_ (let () (declare (not safe)) - (##car _%e193034193060%_)))) + (##car _%e191944191970%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193032193065%_)) - (_%__kont194368194369%_ - _%hd193033193063%_ - _%hd193007193100%_) + _%tl191942191975%_)) + (_%__kont193278193279%_ + _%hd191943191973%_ + _%hd191917192010%_) (let () (declare (not safe)) - (_%g192999193039%_))))) + (_%g191909191949%_))))) (let () (declare (not safe)) - (_%g192999193039%_)))))) - (let () (declare (not safe)) (_%g192999193039%_))))) - (let () (declare (not safe)) (_%g192999193039%_))))))) + (_%g191909191949%_)))))) + (let () (declare (not safe)) (_%g191909191949%_))))) + (let () (declare (not safe)) (_%g191909191949%_))))))) (define gxc#!alias::typedecl - (lambda (_%self192982%_) - (let ((_%self192985%_ _%self192982%_)) + (lambda (_%self191892%_) + (let ((_%self191895%_ _%self191892%_)) (cons '@alias (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self192985%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self191895%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) (__bind-method! gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_%self192755%_) - (let ((_%self192758%_ _%self192755%_)) - (let* ((_%self192767192783%_ _%self192758%_) - (_%E192769192787%_ - (lambda () - (let () - (declare (not safe)) - (error '"No clause matching" - _%self192767192783%_ - '((!class id - super - precendence-list - slots - fields - constructor - struct? - final? - system? - metaclass - methods)))) - '#!void)) - (_%K192770192802%_ - (lambda (_%methods192790%_ - _%metaclass192791%_ - _%system?192792%_ - _%final?192793%_ - _%struct?192794%_ - _%constructor192795%_ - _%fields192796%_ - _%slots192797%_ - _%precendence-list192798%_ - _%super192799%_ - _%id192800%_) - (cons '@class - (cons _%id192800%_ - (cons _%super192799%_ - (cons _%precendence-list192798%_ - (cons _%slots192797%_ - (cons _%fields192796%_ - (cons _%constructor192795%_ - (cons _%struct?192794%_ + (lambda (_%self191665%_) + (let* ((_%self191668%_ _%self191665%_) + (_%self191677191693%_ _%self191668%_) + (_%E191679191697%_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" + _%self191677191693%_ + '((!class id + super + precendence-list + slots + fields + constructor + struct? + final? + system? + metaclass + methods)))) + '#!void)) + (_%K191680191712%_ + (lambda (_%methods191700%_ + _%metaclass191701%_ + _%system?191702%_ + _%final?191703%_ + _%struct?191704%_ + _%constructor191705%_ + _%fields191706%_ + _%slots191707%_ + _%precendence-list191708%_ + _%super191709%_ + _%id191710%_) + (cons '@class + (cons _%id191710%_ + (cons _%super191709%_ + (cons _%precendence-list191708%_ + (cons _%slots191707%_ + (cons _%fields191706%_ + (cons _%constructor191705%_ + (cons _%struct?191704%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%final?192793%_ - (cons _%system?192792%_ - (cons _%metaclass192791%_ - (cons (if _%methods192790%_ - (let () - (declare (not safe)) - (hash->list - _%methods192790%_)) - '#f) - '()))))))))))))))) + (cons _%final?191703%_ + (cons _%system?191702%_ + (cons _%metaclass191701%_ + (cons (if _%methods191700%_ + (let () + (declare (not safe)) + (hash->list + _%methods191700%_)) + '#f) + '()))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if '#t - (let* ((_%e192771192805%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self192767192783%_ - '1 - '#f - '#f))) - (_%id192808%_ _%e192771192805%_) - (_%e192772192810%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self192767192783%_ - '2 - '#f - '#f))) - (_%super192813%_ _%e192772192810%_) - (_%e192773192815%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self192767192783%_ - '3 - '#f - '#f))) - (_%precendence-list192818%_ _%e192773192815%_) - (_%e192774192820%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self192767192783%_ - '4 - '#f - '#f))) - (_%slots192823%_ _%e192774192820%_) - (_%e192775192825%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self192767192783%_ - '5 - '#f - '#f))) - (_%fields192828%_ _%e192775192825%_) - (_%e192776192830%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self192767192783%_ - '6 - '#f - '#f))) - (_%constructor192833%_ _%e192776192830%_) - (_%e192777192835%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self192767192783%_ - '7 - '#f - '#f))) - (_%struct?192838%_ _%e192777192835%_) - (_%e192778192840%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self192767192783%_ - '8 - '#f - '#f))) - (_%final?192843%_ _%e192778192840%_) - (_%e192779192845%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self192767192783%_ - '9 - '#f - '#f))) - (_%system?192848%_ _%e192779192845%_) - (_%e192780192850%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self192767192783%_ - '10 - '#f - '#f))) - (_%metaclass192853%_ _%e192780192850%_) - (_%e192781192855%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self192767192783%_ - '11 - '#f - '#f))) - (_%methods192858%_ _%e192781192855%_)) - (declare (not safe)) - (_%K192770192802%_ - _%methods192858%_ - _%metaclass192853%_ - _%system?192848%_ - _%final?192843%_ - _%struct?192838%_ - _%constructor192833%_ - _%fields192828%_ - _%slots192823%_ - _%precendence-list192818%_ - _%super192813%_ - _%id192808%_)) - (let () (declare (not safe)) (_%E192769192787%_))))))) + (if '#t + (let* ((_%e191681191715%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self191677191693%_ + '1 + '#f + '#f))) + (_%id191718%_ _%e191681191715%_) + (_%e191682191720%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self191677191693%_ + '2 + '#f + '#f))) + (_%super191723%_ _%e191682191720%_) + (_%e191683191725%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self191677191693%_ + '3 + '#f + '#f))) + (_%precendence-list191728%_ _%e191683191725%_) + (_%e191684191730%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self191677191693%_ + '4 + '#f + '#f))) + (_%slots191733%_ _%e191684191730%_) + (_%e191685191735%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self191677191693%_ + '5 + '#f + '#f))) + (_%fields191738%_ _%e191685191735%_) + (_%e191686191740%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self191677191693%_ + '6 + '#f + '#f))) + (_%constructor191743%_ _%e191686191740%_) + (_%e191687191745%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self191677191693%_ + '7 + '#f + '#f))) + (_%struct?191748%_ _%e191687191745%_) + (_%e191688191750%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self191677191693%_ + '8 + '#f + '#f))) + (_%final?191753%_ _%e191688191750%_) + (_%e191689191755%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self191677191693%_ + '9 + '#f + '#f))) + (_%system?191758%_ _%e191689191755%_) + (_%e191690191760%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self191677191693%_ + '10 + '#f + '#f))) + (_%metaclass191763%_ _%e191690191760%_) + (_%e191691191765%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self191677191693%_ + '11 + '#f + '#f))) + (_%methods191768%_ _%e191691191765%_)) + (_%K191680191712%_ + _%methods191768%_ + _%metaclass191763%_ + _%system?191758%_ + _%final?191753%_ + _%struct?191748%_ + _%constructor191743%_ + _%fields191738%_ + _%slots191733%_ + _%precendence-list191728%_ + _%super191723%_ + _%id191718%_)) + (_%E191679191697%_))))) (let () (declare (not safe)) (__bind-method! gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_%self192620%_) - (let ((_%self192623%_ _%self192620%_)) + (lambda (_%self191530%_) + (let ((_%self191533%_ _%self191530%_)) (cons '@predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self192623%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self191533%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2230,12 +2170,12 @@ gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_%self192485%_) - (let ((_%self192488%_ _%self192485%_)) + (lambda (_%self191395%_) + (let ((_%self191398%_ _%self191395%_)) (cons '@constructor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self192488%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self191398%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2245,23 +2185,23 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_%self192350%_) - (let ((_%self192353%_ _%self192350%_)) + (lambda (_%self191260%_) + (let ((_%self191263%_ _%self191260%_)) (cons '@accessor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self192353%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self191263%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192353%_ + _%self191263%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192353%_ + _%self191263%_ '4 '#f '#f)) @@ -2270,23 +2210,23 @@ (declare (not safe)) (__bind-method! gxc#!accessor::t 'typedecl gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_%self192215%_) - (let ((_%self192218%_ _%self192215%_)) + (lambda (_%self191125%_) + (let ((_%self191128%_ _%self191125%_)) (cons '@mutator (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self192218%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self191128%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192218%_ + _%self191128%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192218%_ + _%self191128%_ '4 '#f '#f)) @@ -2295,16 +2235,16 @@ (declare (not safe)) (__bind-method! gxc#!mutator::t 'typedecl gxc#!mutator::typedecl '#f)) (define gxc#!interface::typedecl - (lambda (_%self192080%_) - (let ((_%self192083%_ _%self192080%_)) + (lambda (_%self190990%_) + (let ((_%self190993%_ _%self190990%_)) (cons '@interface (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self192083%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self190993%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192083%_ + _%self190993%_ '2 '#f '#f)) @@ -2317,137 +2257,145 @@ gxc#!interface::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_%self191893%_) - (let ((_%self191896%_ _%self191893%_)) - (let* ((_%self191905191914%_ _%self191896%_) - (_%E191907191918%_ - (lambda () - (let () - (declare (not safe)) - (error '"No clause matching" - _%self191905191914%_ - '((!lambda _ signature arity dispatch)))) - '#!void)) - (_%K191908191937%_ - (lambda (_%dispatch191921%_ - _%arity191922%_ - _%signature191923%_) - (if _%signature191923%_ - (let ((_%signature191925%_ _%signature191923%_)) - (cons '@lambda - (cons _%arity191922%_ - (cons _%dispatch191921%_ - (cons 'signature: - (cons (cons 'return: - (cons (let () + (lambda (_%self190803%_) + (let* ((_%self190806%_ _%self190803%_) + (_%self190815190824%_ _%self190806%_) + (_%E190817190828%_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" + _%self190815190824%_ + '((!lambda _ signature arity dispatch)))) + '#!void)) + (_%K190818190847%_ + (lambda (_%dispatch190831%_ + _%arity190832%_ + _%signature190833%_) + (if _%signature190833%_ + (let ((_%signature190835%_ _%signature190833%_)) + (cons '@lambda + (cons _%arity190832%_ + (cons _%dispatch190831%_ + (cons 'signature: + (cons (cons 'return: + (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##unchecked-structure-ref - _%signature191925%_ - '1 - '#f - '#f)) - (cons 'effect: - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%signature191925%_ - '2 - '#f - '#f)) - (cons 'arguments: - (cons (let () - (declare (not safe)) - (##unchecked-structure-ref - _%signature191925%_ - '3 - '#f - '#f)) - (cons 'unchecked: - (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%signature190835%_ + '1 + '#f + '#f)) + (cons 'effect: + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%signature190835%_ + '2 + '#f + '#f)) + (cons 'arguments: + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%signature190835%_ + '3 + '#f + '#f)) + (cons 'unchecked: + (cons (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##unchecked-structure-ref - _%signature191925%_ - '4 - '#f - '#f)) - '())))))))) + (not safe)) + (##unchecked-structure-ref + _%signature190835%_ + '4 + '#f + '#f)) + (cons 'origin: + (cons (let () + (declare (not safe)) + (##unchecked-structure-ref + _%signature190835%_ + '5 + '#f + '#f)) + '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons '@lambda - (cons _%arity191922%_ - (cons _%dispatch191921%_ '()))))))) - (if '#t - (let* ((_%e191909191940%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self191905191914%_ - '1 - '#f - '#f))) - (_%e191910191943%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self191905191914%_ - '2 - '#f - '#f))) - (_%signature191946%_ _%e191910191943%_) - (_%e191911191948%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self191905191914%_ - '3 - '#f - '#f))) - (_%arity191951%_ _%e191911191948%_) - (_%e191912191953%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%self191905191914%_ - '4 - '#f - '#f))) - (_%dispatch191956%_ _%e191912191953%_)) - (declare (not safe)) - (_%K191908191937%_ - _%dispatch191956%_ - _%arity191951%_ - _%signature191946%_)) - (let () (declare (not safe)) (_%E191907191918%_))))))) + (cons '@lambda + (cons _%arity190832%_ + (cons _%dispatch190831%_ '()))))))) + (if '#t + (let* ((_%e190819190850%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self190815190824%_ + '1 + '#f + '#f))) + (_%e190820190853%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self190815190824%_ + '2 + '#f + '#f))) + (_%signature190856%_ _%e190820190853%_) + (_%e190821190858%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self190815190824%_ + '3 + '#f + '#f))) + (_%arity190861%_ _%e190821190858%_) + (_%e190822190863%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%self190815190824%_ + '4 + '#f + '#f))) + (_%dispatch190866%_ _%e190822190863%_)) + (_%K190818190847%_ + _%dispatch190866%_ + _%arity190861%_ + _%signature190856%_)) + (_%E190817190828%_))))) (let () (declare (not safe)) (__bind-method! gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_%self191754%_) - (let ((_%self191757%_ _%self191754%_)) - (letrec ((_%clause-e191767%_ - (lambda (_%clause191769%_) - (cdr (let ((__method194452 + (lambda (_%self190664%_) + (let ((_%self190667%_ _%self190664%_)) + (letrec ((_%clause-e190677%_ + (lambda (_%clause190679%_) + (cdr (let ((__method193362 (let () (declare (not safe)) (__method-ref - _%clause191769%_ + _%clause190679%_ 'typedecl)))) - (if __method194452 - (__method194452 _%clause191769%_) + (if __method193362 + (__method193362 _%clause190679%_) (let () (declare (not safe)) (error '"Missing method" - _%clause191769%_ + _%clause190679%_ 'typedecl)))))))) (cons '@case-lambda - (map _%clause-e191767%_ + (map _%clause-e190677%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self191757%_ + _%self190667%_ '3 '#f '#f)))))))) @@ -2459,16 +2407,16 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_%self191619%_) - (let ((_%self191622%_ _%self191619%_)) + (lambda (_%self190529%_) + (let ((_%self190532%_ _%self190529%_)) (cons '@kw-lambda (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self191622%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self190532%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self191622%_ + _%self190532%_ '4 '#f '#f)) @@ -2481,16 +2429,16 @@ gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_%self191484%_) - (let ((_%self191487%_ _%self191484%_)) + (lambda (_%self190394%_) + (let ((_%self190397%_ _%self190394%_)) (cons '@kw-lambda-dispatch (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self191487%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self190397%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self191487%_ + _%self190397%_ '4 '#f '#f)) @@ -2503,12 +2451,12 @@ gxc#!kw-lambda-primary::typedecl '#f)) (define gxc#!primitive-predicate::typedecl - (lambda (_%self191349%_) - (let ((_%self191352%_ _%self191349%_)) + (lambda (_%self190259%_) + (let ((_%self190262%_ _%self190259%_)) (cons '@primitive-predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self191352%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self190262%_ '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 4dc7ec426..5dba9d126 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]#_g194489_| + (define |gxc[1]#_g193389_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g194491_| + (define |gxc[1]#_g193391_| (##structure gx#syntax-quote::t '::generate-ssxi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g194493_| + (define |gxc[1]#_g193393_| (##structure gx#syntax-quote::t 'make-::generate-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g194495_| + (define |gxc[1]#_g193395_| (##structure gx#syntax-quote::t '::generate-ssxi? @@ -29,7 +29,7 @@ (gx#current-expander-context) '())) (define |gxc[:0:]#::generate-ssxi| - (let ((__obj194448 + (let ((__obj193358 (let () (declare (not safe)) (##structure @@ -58,63 +58,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj194448 + __obj193358 'gxc#::generate-ssxi::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj194448 '::generate-ssxi '2 '#f '#f)) + (##unchecked-structure-set! __obj193358 '::generate-ssxi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj194448 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj193358 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj194448 '() '6 '#f '#f)) - (let ((__tmp194488 (cons |gxc[1]#_g194489_| '()))) + (##unchecked-structure-set! __obj193358 '() '6 '#f '#f)) + (let ((__tmp193388 (cons |gxc[1]#_g193389_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj194448 __tmp194488 '3 '#f '#f)) + (##unchecked-structure-set! __obj193358 __tmp193388 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj194448 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj193358 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj194448 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj193358 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj194448 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj193358 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj194448 '#f '11 '#f '#f)) - (let ((__tmp194490 |gxc[1]#_g194491_|)) + (##unchecked-structure-set! __obj193358 '#f '11 '#f '#f)) + (let ((__tmp193390 |gxc[1]#_g193391_|)) (declare (not safe)) - (##unchecked-structure-set! __obj194448 __tmp194490 '12 '#f '#f)) - (let ((__tmp194492 |gxc[1]#_g194493_|)) + (##unchecked-structure-set! __obj193358 __tmp193390 '12 '#f '#f)) + (let ((__tmp193392 |gxc[1]#_g193393_|)) (declare (not safe)) - (##unchecked-structure-set! __obj194448 __tmp194492 '13 '#f '#f)) - (let ((__tmp194494 |gxc[1]#_g194495_|)) + (##unchecked-structure-set! __obj193358 __tmp193392 '13 '#f '#f)) + (let ((__tmp193394 |gxc[1]#_g193395_|)) (declare (not safe)) - (##unchecked-structure-set! __obj194448 __tmp194494 '14 '#f '#f)) + (##unchecked-structure-set! __obj193358 __tmp193394 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj194448 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj193358 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj194448 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj193358 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj194448 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj193358 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj194448 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj193358 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj194448 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj193358 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj194448 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj193358 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj194448 '() '20 '#f '#f)) - __obj194448))) + (##unchecked-structure-set! __obj193358 '() '20 '#f '#f)) + __obj193358))) diff --git a/src/bootstrap/gerbil/compiler/ssxi.ssxi.ss b/src/bootstrap/gerbil/compiler/ssxi.ssxi.ss index 0fdacd61b..ca702dc93 100644 --- a/src/bootstrap/gerbil/compiler/ssxi.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/ssxi.ssxi.ss @@ -2,7 +2,63 @@ prelude: :gerbil/compiler/ssxi package: gerbil/compiler (begin - (declare-type |gxc[1]#verify-procedure!| (@lambda 2 #f)) - (declare-type |gxc[1]#verify-class!| (@lambda 2 #f)) - (declare-type |gxc[1]#parse-signature| (@lambda 3 #f)) - (declare-type |gxc[1]#signature->unchecked-signature| (@lambda 1 #f))) + (declare-type + |gxc[1]#verify-procedure!| + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/ssxi))) + (declare-type + |gxc[1]#verify-class!| + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/ssxi))) + (declare-type + |gxc[1]#parse-signature| + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/ssxi))) + (declare-type + |gxc[1]#signature->unchecked-signature| + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/compiler/ssxi)))) diff --git a/src/bootstrap/gerbil/compiler/ssxi~1.scm b/src/bootstrap/gerbil/compiler/ssxi~1.scm index 2fc5296e5..6fb97d369 100644 --- a/src/bootstrap/gerbil/compiler/ssxi~1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi~1.scm @@ -1,62 +1,76 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g202747_| + (define |gxc[1]#_g201716_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g202761_| + (define |gxc[1]#_g201723_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g202763_| + (define |gxc[1]#_g201725_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g202765_| + (define |gxc[1]#_g201727_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g202767_| + (define |gxc[1]#_g201729_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g202780_| + (define |gxc[1]#_g201731_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g202782_| + (define |gxc[1]#_g201743_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g202784_| + (define |gxc[1]#_g201745_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g202786_| + (define |gxc[1]#_g201747_| + (##structure + gx#syntax-quote::t + 'quote + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g201749_| + (##structure + gx#syntax-quote::t + 'quote + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g201751_| (##structure gx#syntax-quote::t 'quote @@ -65,73 +79,73 @@ '())) (begin (define |gxc[:0:]#declare-type| - (lambda (_%$stx196303%_) - (let* ((_%g196307196325%_ - (lambda (_%g196308196321%_) + (lambda (_%$stx195134%_) + (let* ((_%g195138195156%_ + (lambda (_%g195139195152%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g196308196321%_)))) - (_%g196306196380%_ - (lambda (_%g196308196329%_) + _%g195139195152%_)))) + (_%g195137195211%_ + (lambda (_%g195139195160%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g196308196329%_)) - (let ((_%e196313196332%_ + (gx#stx-pair? _%g195139195160%_)) + (let ((_%e195144195163%_ (let () (declare (not safe)) - (gx#syntax-e _%g196308196329%_)))) - (let ((_%hd196312196336%_ + (gx#syntax-e _%g195139195160%_)))) + (let ((_%hd195143195167%_ (let () (declare (not safe)) - (##car _%e196313196332%_))) - (_%tl196311196339%_ + (##car _%e195144195163%_))) + (_%tl195142195170%_ (let () (declare (not safe)) - (##cdr _%e196313196332%_)))) + (##cdr _%e195144195163%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196311196339%_)) - (let ((_%e196316196342%_ + (gx#stx-pair? _%tl195142195170%_)) + (let ((_%e195147195173%_ (let () (declare (not safe)) - (gx#syntax-e _%tl196311196339%_)))) - (let ((_%hd196315196346%_ + (gx#syntax-e _%tl195142195170%_)))) + (let ((_%hd195146195177%_ (let () (declare (not safe)) - (##car _%e196316196342%_))) - (_%tl196314196349%_ + (##car _%e195147195173%_))) + (_%tl195145195180%_ (let () (declare (not safe)) - (##cdr _%e196316196342%_)))) + (##cdr _%e195147195173%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196314196349%_)) - (let ((_%e196319196352%_ + (gx#stx-pair? _%tl195145195180%_)) + (let ((_%e195150195183%_ (let () (declare (not safe)) (gx#syntax-e - _%tl196314196349%_)))) - (let ((_%hd196318196356%_ + _%tl195145195180%_)))) + (let ((_%hd195149195187%_ (let () (declare (not safe)) - (##car _%e196319196352%_))) - (_%tl196317196359%_ + (##car _%e195150195183%_))) + (_%tl195148195190%_ (let () (declare (not safe)) - (##cdr _%e196319196352%_)))) + (##cdr _%e195150195183%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196317196359%_)) - ((lambda (_%L196362%_ - _%L196364%_) + _%tl195148195190%_)) + ((lambda (_%L195193%_ + _%L195195%_) (if (let () (declare (not safe)) (gx#identifier? - _%L196364%_)) + _%L195195%_)) (cons (let () (declare (not safe)) @@ -142,87 +156,87 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L196364%_ '())) - (cons _%L196362%_ '()))) + (cons _%L195195%_ '())) + (cons _%L195193%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g196307196325%_ - _%g196308196329%_))) - _%hd196318196356%_ - _%hd196315196346%_) - (_%g196307196325%_ - _%g196308196329%_)))) - (_%g196307196325%_ _%g196308196329%_)))) - (_%g196307196325%_ _%g196308196329%_)))) - (_%g196307196325%_ _%g196308196329%_))))) - (_%g196306196380%_ _%$stx196303%_)))) + (_%g195138195156%_ + _%g195139195160%_))) + _%hd195149195187%_ + _%hd195146195177%_) + (_%g195138195156%_ + _%g195139195160%_)))) + (_%g195138195156%_ _%g195139195160%_)))) + (_%g195138195156%_ _%g195139195160%_)))) + (_%g195138195156%_ _%g195139195160%_))))) + (_%g195137195211%_ _%$stx195134%_)))) (define |gxc[:0:]#declare-class| - (lambda (_%$stx196384%_) - (let* ((_%g196388196406%_ - (lambda (_%g196389196402%_) + (lambda (_%$stx195215%_) + (let* ((_%g195219195237%_ + (lambda (_%g195220195233%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g196389196402%_)))) - (_%g196387196461%_ - (lambda (_%g196389196410%_) + _%g195220195233%_)))) + (_%g195218195292%_ + (lambda (_%g195220195241%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g196389196410%_)) - (let ((_%e196394196413%_ + (gx#stx-pair? _%g195220195241%_)) + (let ((_%e195225195244%_ (let () (declare (not safe)) - (gx#syntax-e _%g196389196410%_)))) - (let ((_%hd196393196417%_ + (gx#syntax-e _%g195220195241%_)))) + (let ((_%hd195224195248%_ (let () (declare (not safe)) - (##car _%e196394196413%_))) - (_%tl196392196420%_ + (##car _%e195225195244%_))) + (_%tl195223195251%_ (let () (declare (not safe)) - (##cdr _%e196394196413%_)))) + (##cdr _%e195225195244%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196392196420%_)) - (let ((_%e196397196423%_ + (gx#stx-pair? _%tl195223195251%_)) + (let ((_%e195228195254%_ (let () (declare (not safe)) - (gx#syntax-e _%tl196392196420%_)))) - (let ((_%hd196396196427%_ + (gx#syntax-e _%tl195223195251%_)))) + (let ((_%hd195227195258%_ (let () (declare (not safe)) - (##car _%e196397196423%_))) - (_%tl196395196430%_ + (##car _%e195228195254%_))) + (_%tl195226195261%_ (let () (declare (not safe)) - (##cdr _%e196397196423%_)))) + (##cdr _%e195228195254%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196395196430%_)) - (let ((_%e196400196433%_ + (gx#stx-pair? _%tl195226195261%_)) + (let ((_%e195231195264%_ (let () (declare (not safe)) (gx#syntax-e - _%tl196395196430%_)))) - (let ((_%hd196399196437%_ + _%tl195226195261%_)))) + (let ((_%hd195230195268%_ (let () (declare (not safe)) - (##car _%e196400196433%_))) - (_%tl196398196440%_ + (##car _%e195231195264%_))) + (_%tl195229195271%_ (let () (declare (not safe)) - (##cdr _%e196400196433%_)))) + (##cdr _%e195231195264%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196398196440%_)) - ((lambda (_%L196443%_ - _%L196445%_) + _%tl195229195271%_)) + ((lambda (_%L195274%_ + _%L195276%_) (if (let () (declare (not safe)) (gx#identifier? - _%L196445%_)) + _%L195276%_)) (cons (let () (declare (not safe)) @@ -233,146 +247,146 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L196445%_ '())) - (cons _%L196443%_ '()))) + (cons _%L195276%_ '())) + (cons _%L195274%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g196388196406%_ - _%g196389196410%_))) - _%hd196399196437%_ - _%hd196396196427%_) - (_%g196388196406%_ - _%g196389196410%_)))) - (_%g196388196406%_ _%g196389196410%_)))) - (_%g196388196406%_ _%g196389196410%_)))) - (_%g196388196406%_ _%g196389196410%_))))) - (_%g196387196461%_ _%$stx196384%_)))) + (_%g195219195237%_ + _%g195220195241%_))) + _%hd195230195268%_ + _%hd195227195258%_) + (_%g195219195237%_ + _%g195220195241%_)))) + (_%g195219195237%_ _%g195220195241%_)))) + (_%g195219195237%_ _%g195220195241%_)))) + (_%g195219195237%_ _%g195220195241%_))))) + (_%g195218195292%_ _%$stx195215%_)))) (define |gxc[:0:]#declare-type*| - (lambda (_%$stx196465%_) - (let* ((_%g196469196498%_ - (lambda (_%g196470196494%_) + (lambda (_%$stx195296%_) + (let* ((_%g195300195329%_ + (lambda (_%g195301195325%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g196470196494%_)))) - (_%g196468196598%_ - (lambda (_%g196470196502%_) + _%g195301195325%_)))) + (_%g195299195429%_ + (lambda (_%g195301195333%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g196470196502%_)) - (let ((_%e196475196505%_ + (gx#stx-pair? _%g195301195333%_)) + (let ((_%e195306195336%_ (let () (declare (not safe)) - (gx#syntax-e _%g196470196502%_)))) - (let ((_%hd196474196509%_ + (gx#syntax-e _%g195301195333%_)))) + (let ((_%hd195305195340%_ (let () (declare (not safe)) - (##car _%e196475196505%_))) - (_%tl196473196512%_ + (##car _%e195306195336%_))) + (_%tl195304195343%_ (let () (declare (not safe)) - (##cdr _%e196475196505%_)))) + (##cdr _%e195306195336%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl196473196512%_)) - (let ((_g202725_ + (gx#stx-pair/null? _%tl195304195343%_)) + (let ((_g201694_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196473196512%_ + _%tl195304195343%_ '0)))) (begin - (let ((_g202726_ + (let ((_g201695_ (let () (declare (not safe)) - (if (##values? _g202725_) - (##vector-length _g202725_) + (if (##values? _g201694_) + (##vector-length _g201694_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g202726_ 2))) + (##fx= _g201695_ 2))) (error "Context expects 2 values" - _g202726_))) - (let ((_%target196476196515%_ + _g201695_))) + (let ((_%target195307195346%_ (let () (declare (not safe)) - (##vector-ref _g202725_ 0))) - (_%tl196478196518%_ + (##vector-ref _g201694_ 0))) + (_%tl195309195349%_ (let () (declare (not safe)) - (##vector-ref _g202725_ 1)))) + (##vector-ref _g201694_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196478196518%_)) - (letrec ((_%loop196479196521%_ - (lambda (_%hd196477196525%_ - _%type196483196528%_ - _%symbol196484196530%_) + (gx#stx-null? _%tl195309195349%_)) + (letrec ((_%loop195310195352%_ + (lambda (_%hd195308195356%_ + _%type195314195359%_ + _%symbol195315195361%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd196477196525%_)) - (let ((_%e196480196533%_ + _%hd195308195356%_)) + (let ((_%e195311195364%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd196477196525%_)))) - (let ((_%lp-hd196481196537%_ + (gx#syntax-e _%hd195308195356%_)))) + (let ((_%lp-hd195312195368%_ (let () (declare (not safe)) - (##car _%e196480196533%_))) - (_%lp-tl196482196540%_ + (##car _%e195311195364%_))) + (_%lp-tl195313195371%_ (let () (declare (not safe)) - (##cdr _%e196480196533%_)))) + (##cdr _%e195311195364%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd196481196537%_)) - (let ((_%e196489196543%_ + (gx#stx-pair? _%lp-hd195312195368%_)) + (let ((_%e195320195374%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd196481196537%_)))) - (let ((_%hd196488196547%_ + (gx#syntax-e _%lp-hd195312195368%_)))) + (let ((_%hd195319195378%_ (let () (declare (not safe)) - (##car _%e196489196543%_))) - (_%tl196487196550%_ + (##car _%e195320195374%_))) + (_%tl195318195381%_ (let () (declare (not safe)) - (##cdr _%e196489196543%_)))) + (##cdr _%e195320195374%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196487196550%_)) - (let ((_%e196492196553%_ + (gx#stx-pair? _%tl195318195381%_)) + (let ((_%e195323195384%_ (let () (declare (not safe)) - (gx#syntax-e _%tl196487196550%_)))) - (let ((_%hd196491196557%_ + (gx#syntax-e _%tl195318195381%_)))) + (let ((_%hd195322195388%_ (let () (declare (not safe)) - (##car _%e196492196553%_))) - (_%tl196490196560%_ + (##car _%e195323195384%_))) + (_%tl195321195391%_ (let () (declare (not safe)) - (##cdr _%e196492196553%_)))) + (##cdr _%e195323195384%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196490196560%_)) - (_%loop196479196521%_ - _%lp-tl196482196540%_ - (cons _%hd196491196557%_ - _%type196483196528%_) - (cons _%hd196488196547%_ - _%symbol196484196530%_)) - (_%g196469196498%_ - _%g196470196502%_)))) - (_%g196469196498%_ _%g196470196502%_)))) - (_%g196469196498%_ _%g196470196502%_)))) - (let ((_%type196485196563%_ (reverse _%type196483196528%_)) - (_%symbol196486196566%_ - (reverse _%symbol196484196530%_))) - ((lambda (_%L196569%_ _%L196571%_) + (gx#stx-null? _%tl195321195391%_)) + (_%loop195310195352%_ + _%lp-tl195313195371%_ + (cons _%hd195322195388%_ + _%type195314195359%_) + (cons _%hd195319195378%_ + _%symbol195315195361%_)) + (_%g195300195329%_ + _%g195301195333%_)))) + (_%g195300195329%_ _%g195301195333%_)))) + (_%g195300195329%_ _%g195301195333%_)))) + (let ((_%type195316195394%_ (reverse _%type195314195359%_)) + (_%symbol195317195397%_ + (reverse _%symbol195315195361%_))) + ((lambda (_%L195400%_ _%L195402%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -380,52 +394,52 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L196569%_ - _%L196571%_)) - (let ((__tmp202727 - (lambda (_%g196586196590%_ - _%g196587196593%_ - _%g196588196595%_) + _%L195400%_ + _%L195402%_)) + (let ((__tmp201696 + (lambda (_%g195417195421%_ + _%g195418195424%_ + _%g195419195426%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%g196587196593%_ - (cons _%g196586196590%_ + (cons _%g195418195424%_ + (cons _%g195417195421%_ '()))) - _%g196588196595%_)))) + _%g195419195426%_)))) (declare (not safe)) (__foldr2 - __tmp202727 + __tmp201696 '() - _%L196569%_ - _%L196571%_))))) - _%type196485196563%_ - _%symbol196486196566%_)))))) + _%L195400%_ + _%L195402%_))))) + _%type195316195394%_ + _%symbol195317195397%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop196479196521%_ - _%target196476196515%_ + (_%loop195310195352%_ + _%target195307195346%_ '() '())) - (_%g196469196498%_ - _%g196470196502%_))))) - (_%g196469196498%_ _%g196470196502%_)))) - (_%g196469196498%_ _%g196470196502%_))))) - (_%g196468196598%_ _%$stx196465%_)))) + (_%g195300195329%_ + _%g195301195333%_))))) + (_%g195300195329%_ _%g195301195333%_)))) + (_%g195300195329%_ _%g195301195333%_))))) + (_%g195299195429%_ _%$stx195296%_)))) (define |gxc[:0:]#declare-method| - (lambda (_%$stx196603%_) - (let* ((_%__stx202036202037%_ _%$stx196603%_) - (_%g196608196650%_ + (lambda (_%$stx195434%_) + (let* ((_%__stx201005201006%_ _%$stx195434%_) + (_%g195439195481%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx202036202037%_))))) - (let ((_%__kont202039202040%_ - (lambda (_%L196778%_ _%L196780%_ _%L196781%_ _%L196782%_) + _%__stx201005201006%_))))) + (let ((_%__kont201008201009%_ + (lambda (_%L195609%_ _%L195611%_ _%L195612%_ _%L195613%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -434,342 +448,342 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L196782%_ '())) + (cons _%L195613%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L196781%_ '())) + (cons _%L195612%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L196780%_ '())) - (cons _%L196778%_ '()))))))) - (_%__kont202041202042%_ - (lambda (_%L196697%_ _%L196699%_ _%L196700%_ _%L196701%_) - (cons _%L196701%_ - (cons _%L196700%_ - (cons _%L196699%_ - (cons _%L196697%_ + (cons _%L195611%_ '())) + (cons _%L195609%_ '()))))))) + (_%__kont201010201011%_ + (lambda (_%L195528%_ _%L195530%_ _%L195531%_ _%L195532%_) + (cons _%L195532%_ + (cons _%L195531%_ + (cons _%L195530%_ + (cons _%L195528%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)) '())))))))) - (let ((_%__match202075202076%_ - (lambda (_%e196616196728%_ - _%hd196615196732%_ - _%tl196614196735%_ - _%e196619196738%_ - _%hd196618196742%_ - _%tl196617196745%_ - _%e196622196748%_ - _%hd196621196752%_ - _%tl196620196755%_ - _%e196625196758%_ - _%hd196624196762%_ - _%tl196623196765%_ - _%e196628196768%_ - _%hd196627196772%_ - _%tl196626196775%_) - (let ((_%L196778%_ _%hd196627196772%_) - (_%L196780%_ _%hd196624196762%_) - (_%L196781%_ _%hd196621196752%_) - (_%L196782%_ _%hd196618196742%_)) + (let ((_%__match201044201045%_ + (lambda (_%e195447195559%_ + _%hd195446195563%_ + _%tl195445195566%_ + _%e195450195569%_ + _%hd195449195573%_ + _%tl195448195576%_ + _%e195453195579%_ + _%hd195452195583%_ + _%tl195451195586%_ + _%e195456195589%_ + _%hd195455195593%_ + _%tl195454195596%_ + _%e195459195599%_ + _%hd195458195603%_ + _%tl195457195606%_) + (let ((_%L195609%_ _%hd195458195603%_) + (_%L195611%_ _%hd195455195593%_) + (_%L195612%_ _%hd195452195583%_) + (_%L195613%_ _%hd195449195573%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L196782%_)) + (gx#identifier? _%L195613%_)) (let () (declare (not safe)) - (gx#identifier? _%L196781%_)) + (gx#identifier? _%L195612%_)) (let () (declare (not safe)) - (gx#identifier? _%L196780%_))) - (_%__kont202039202040%_ - _%L196778%_ - _%L196780%_ - _%L196781%_ - _%L196782%_) + (gx#identifier? _%L195611%_))) + (_%__kont201008201009%_ + _%L195609%_ + _%L195611%_ + _%L195612%_ + _%L195613%_) (let () (declare (not safe)) - (_%g196608196650%_))))))) + (_%g195439195481%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx202036202037%_)) - (let ((_%e196616196728%_ + (gx#stx-pair? _%__stx201005201006%_)) + (let ((_%e195447195559%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx202036202037%_)))) - (let ((_%tl196614196735%_ + (gx#syntax-e _%__stx201005201006%_)))) + (let ((_%tl195445195566%_ (let () (declare (not safe)) - (##cdr _%e196616196728%_))) - (_%hd196615196732%_ + (##cdr _%e195447195559%_))) + (_%hd195446195563%_ (let () (declare (not safe)) - (##car _%e196616196728%_)))) + (##car _%e195447195559%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196614196735%_)) - (let ((_%e196619196738%_ + (gx#stx-pair? _%tl195445195566%_)) + (let ((_%e195450195569%_ (let () (declare (not safe)) - (gx#syntax-e _%tl196614196735%_)))) - (let ((_%tl196617196745%_ + (gx#syntax-e _%tl195445195566%_)))) + (let ((_%tl195448195576%_ (let () (declare (not safe)) - (##cdr _%e196619196738%_))) - (_%hd196618196742%_ + (##cdr _%e195450195569%_))) + (_%hd195449195573%_ (let () (declare (not safe)) - (##car _%e196619196738%_)))) + (##car _%e195450195569%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196617196745%_)) - (let ((_%e196622196748%_ + (gx#stx-pair? _%tl195448195576%_)) + (let ((_%e195453195579%_ (let () (declare (not safe)) - (gx#syntax-e _%tl196617196745%_)))) - (let ((_%tl196620196755%_ + (gx#syntax-e _%tl195448195576%_)))) + (let ((_%tl195451195586%_ (let () (declare (not safe)) - (##cdr _%e196622196748%_))) - (_%hd196621196752%_ + (##cdr _%e195453195579%_))) + (_%hd195452195583%_ (let () (declare (not safe)) - (##car _%e196622196748%_)))) + (##car _%e195453195579%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196620196755%_)) - (let ((_%e196625196758%_ + (gx#stx-pair? _%tl195451195586%_)) + (let ((_%e195456195589%_ (let () (declare (not safe)) (gx#syntax-e - _%tl196620196755%_)))) - (let ((_%tl196623196765%_ + _%tl195451195586%_)))) + (let ((_%tl195454195596%_ (let () (declare (not safe)) - (##cdr _%e196625196758%_))) - (_%hd196624196762%_ + (##cdr _%e195456195589%_))) + (_%hd195455195593%_ (let () (declare (not safe)) - (##car _%e196625196758%_)))) + (##car _%e195456195589%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196623196765%_)) - (let ((_%e196628196768%_ + _%tl195454195596%_)) + (let ((_%e195459195599%_ (let () (declare (not safe)) (gx#syntax-e - _%tl196623196765%_)))) - (let ((_%tl196626196775%_ + _%tl195454195596%_)))) + (let ((_%tl195457195606%_ (let () (declare (not safe)) - (##cdr _%e196628196768%_))) - (_%hd196627196772%_ + (##cdr _%e195459195599%_))) + (_%hd195458195603%_ (let () (declare (not safe)) - (##car _%e196628196768%_)))) + (##car _%e195459195599%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196626196775%_)) - (_%__match202075202076%_ - _%e196616196728%_ - _%hd196615196732%_ - _%tl196614196735%_ - _%e196619196738%_ - _%hd196618196742%_ - _%tl196617196745%_ - _%e196622196748%_ - _%hd196621196752%_ - _%tl196620196755%_ - _%e196625196758%_ - _%hd196624196762%_ - _%tl196623196765%_ - _%e196628196768%_ - _%hd196627196772%_ - _%tl196626196775%_) + _%tl195457195606%_)) + (_%__match201044201045%_ + _%e195447195559%_ + _%hd195446195563%_ + _%tl195445195566%_ + _%e195450195569%_ + _%hd195449195573%_ + _%tl195448195576%_ + _%e195453195579%_ + _%hd195452195583%_ + _%tl195451195586%_ + _%e195456195589%_ + _%hd195455195593%_ + _%tl195454195596%_ + _%e195459195599%_ + _%hd195458195603%_ + _%tl195457195606%_) (let () (declare (not safe)) - (_%g196608196650%_))))) + (_%g195439195481%_))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196623196765%_)) - (_%__kont202041202042%_ - _%hd196624196762%_ - _%hd196621196752%_ - _%hd196618196742%_ - _%hd196615196732%_) + _%tl195454195596%_)) + (_%__kont201010201011%_ + _%hd195455195593%_ + _%hd195452195583%_ + _%hd195449195573%_ + _%hd195446195563%_) (let () (declare (not safe)) - (_%g196608196650%_)))))) + (_%g195439195481%_)))))) (let () (declare (not safe)) - (_%g196608196650%_))))) + (_%g195439195481%_))))) (let () (declare (not safe)) - (_%g196608196650%_))))) - (let () (declare (not safe)) (_%g196608196650%_))))) - (let () (declare (not safe)) (_%g196608196650%_)))))))) + (_%g195439195481%_))))) + (let () (declare (not safe)) (_%g195439195481%_))))) + (let () (declare (not safe)) (_%g195439195481%_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_%$stx196807%_) - (let* ((_%g196811196846%_ - (lambda (_%g196812196842%_) + (lambda (_%$stx195638%_) + (let* ((_%g195642195677%_ + (lambda (_%g195643195673%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g196812196842%_)))) - (_%g196810196965%_ - (lambda (_%g196812196850%_) + _%g195643195673%_)))) + (_%g195641195796%_ + (lambda (_%g195643195681%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g196812196850%_)) - (let ((_%e196818196853%_ + (gx#stx-pair? _%g195643195681%_)) + (let ((_%e195649195684%_ (let () (declare (not safe)) - (gx#syntax-e _%g196812196850%_)))) - (let ((_%hd196817196857%_ + (gx#syntax-e _%g195643195681%_)))) + (let ((_%hd195648195688%_ (let () (declare (not safe)) - (##car _%e196818196853%_))) - (_%tl196816196860%_ + (##car _%e195649195684%_))) + (_%tl195647195691%_ (let () (declare (not safe)) - (##cdr _%e196818196853%_)))) + (##cdr _%e195649195684%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl196816196860%_)) - (let ((_g202728_ + (gx#stx-pair/null? _%tl195647195691%_)) + (let ((_g201697_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196816196860%_ + _%tl195647195691%_ '0)))) (begin - (let ((_g202729_ + (let ((_g201698_ (let () (declare (not safe)) - (if (##values? _g202728_) - (##vector-length _g202728_) + (if (##values? _g201697_) + (##vector-length _g201697_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g202729_ 2))) + (##fx= _g201698_ 2))) (error "Context expects 2 values" - _g202729_))) - (let ((_%target196819196863%_ + _g201698_))) + (let ((_%target195650195694%_ (let () (declare (not safe)) - (##vector-ref _g202728_ 0))) - (_%tl196821196866%_ + (##vector-ref _g201697_ 0))) + (_%tl195652195697%_ (let () (declare (not safe)) - (##vector-ref _g202728_ 1)))) + (##vector-ref _g201697_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196821196866%_)) - (letrec ((_%loop196822196869%_ - (lambda (_%hd196820196873%_ - _%symbol196826196876%_ - _%method196827196878%_ - _%type-t196828196880%_) + (gx#stx-null? _%tl195652195697%_)) + (letrec ((_%loop195653195700%_ + (lambda (_%hd195651195704%_ + _%symbol195657195707%_ + _%method195658195709%_ + _%type-t195659195711%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd196820196873%_)) - (let ((_%e196823196883%_ + _%hd195651195704%_)) + (let ((_%e195654195714%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd196820196873%_)))) - (let ((_%lp-hd196824196887%_ + (gx#syntax-e _%hd195651195704%_)))) + (let ((_%lp-hd195655195718%_ (let () (declare (not safe)) - (##car _%e196823196883%_))) - (_%lp-tl196825196890%_ + (##car _%e195654195714%_))) + (_%lp-tl195656195721%_ (let () (declare (not safe)) - (##cdr _%e196823196883%_)))) + (##cdr _%e195654195714%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd196824196887%_)) - (let ((_%e196834196893%_ + (gx#stx-pair? _%lp-hd195655195718%_)) + (let ((_%e195665195724%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd196824196887%_)))) - (let ((_%hd196833196897%_ + (gx#syntax-e _%lp-hd195655195718%_)))) + (let ((_%hd195664195728%_ (let () (declare (not safe)) - (##car _%e196834196893%_))) - (_%tl196832196900%_ + (##car _%e195665195724%_))) + (_%tl195663195731%_ (let () (declare (not safe)) - (##cdr _%e196834196893%_)))) + (##cdr _%e195665195724%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196832196900%_)) - (let ((_%e196837196903%_ + (gx#stx-pair? _%tl195663195731%_)) + (let ((_%e195668195734%_ (let () (declare (not safe)) - (gx#syntax-e _%tl196832196900%_)))) - (let ((_%hd196836196907%_ + (gx#syntax-e _%tl195663195731%_)))) + (let ((_%hd195667195738%_ (let () (declare (not safe)) - (##car _%e196837196903%_))) - (_%tl196835196910%_ + (##car _%e195668195734%_))) + (_%tl195666195741%_ (let () (declare (not safe)) - (##cdr _%e196837196903%_)))) + (##cdr _%e195668195734%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196835196910%_)) - (let ((_%e196840196913%_ + (gx#stx-pair? _%tl195666195741%_)) + (let ((_%e195671195744%_ (let () (declare (not safe)) (gx#syntax-e - _%tl196835196910%_)))) - (let ((_%hd196839196917%_ + _%tl195666195741%_)))) + (let ((_%hd195670195748%_ (let () (declare (not safe)) - (##car _%e196840196913%_))) - (_%tl196838196920%_ + (##car _%e195671195744%_))) + (_%tl195669195751%_ (let () (declare (not safe)) - (##cdr _%e196840196913%_)))) + (##cdr _%e195671195744%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196838196920%_)) - (_%loop196822196869%_ - _%lp-tl196825196890%_ - (cons _%hd196839196917%_ - _%symbol196826196876%_) - (cons _%hd196836196907%_ - _%method196827196878%_) - (cons _%hd196833196897%_ - _%type-t196828196880%_)) - (_%g196811196846%_ - _%g196812196850%_)))) - (_%g196811196846%_ - _%g196812196850%_)))) - (_%g196811196846%_ _%g196812196850%_)))) - (_%g196811196846%_ _%g196812196850%_)))) - (let ((_%symbol196829196923%_ (reverse _%symbol196826196876%_)) - (_%method196830196926%_ (reverse _%method196827196878%_)) - (_%type-t196831196928%_ - (reverse _%type-t196828196880%_))) - ((lambda (_%L196931%_ _%L196933%_ _%L196934%_) + _%tl195669195751%_)) + (_%loop195653195700%_ + _%lp-tl195656195721%_ + (cons _%hd195670195748%_ + _%symbol195657195707%_) + (cons _%hd195667195738%_ + _%method195658195709%_) + (cons _%hd195664195728%_ + _%type-t195659195711%_)) + (_%g195642195677%_ + _%g195643195681%_)))) + (_%g195642195677%_ + _%g195643195681%_)))) + (_%g195642195677%_ _%g195643195681%_)))) + (_%g195642195677%_ _%g195643195681%_)))) + (let ((_%symbol195660195754%_ (reverse _%symbol195657195707%_)) + (_%method195661195757%_ (reverse _%method195658195709%_)) + (_%type-t195662195759%_ + (reverse _%type-t195659195711%_))) + ((lambda (_%L195762%_ _%L195764%_ _%L195765%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -777,196 +791,196 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L196931%_ - _%L196933%_ - _%L196934%_)) - (let ((__tmp202730 - (lambda (_%g196950196955%_ - _%g196951196958%_ - _%g196952196960%_ - _%g196953196962%_) + _%L195762%_ + _%L195764%_ + _%L195765%_)) + (let ((__tmp201699 + (lambda (_%g195781195786%_ + _%g195782195789%_ + _%g195783195791%_ + _%g195784195793%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%g196952196960%_ - (cons _%g196951196958%_ - (cons _%g196950196955%_ + (cons _%g195783195791%_ + (cons _%g195782195789%_ + (cons _%g195781195786%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g196953196962%_)))) + _%g195784195793%_)))) (declare (not safe)) (__foldr* - __tmp202730 + __tmp201699 '() - _%L196931%_ - _%L196933%_ - _%L196934%_))))) - _%symbol196829196923%_ - _%method196830196926%_ - _%type-t196831196928%_)))))) + _%L195762%_ + _%L195764%_ + _%L195765%_))))) + _%symbol195660195754%_ + _%method195661195757%_ + _%type-t195662195759%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop196822196869%_ - _%target196819196863%_ + (_%loop195653195700%_ + _%target195650195694%_ '() '() '())) - (_%g196811196846%_ - _%g196812196850%_))))) - (_%g196811196846%_ _%g196812196850%_)))) - (_%g196811196846%_ _%g196812196850%_))))) - (_%g196810196965%_ _%$stx196807%_)))) + (_%g195642195677%_ + _%g195643195681%_))))) + (_%g195642195677%_ _%g195643195681%_)))) + (_%g195642195677%_ _%g195643195681%_))))) + (_%g195641195796%_ _%$stx195638%_)))) (define |gxc[:0:]#declare-methods| - (lambda (_%$stx196970%_) - (let* ((_%g196974197007%_ - (lambda (_%g196975197003%_) + (lambda (_%$stx195801%_) + (let* ((_%g195805195838%_ + (lambda (_%g195806195834%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g196975197003%_)))) - (_%g196973197121%_ - (lambda (_%g196975197011%_) + _%g195806195834%_)))) + (_%g195804195952%_ + (lambda (_%g195806195842%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g196975197011%_)) - (let ((_%e196981197014%_ + (gx#stx-pair? _%g195806195842%_)) + (let ((_%e195812195845%_ (let () (declare (not safe)) - (gx#syntax-e _%g196975197011%_)))) - (let ((_%hd196980197018%_ + (gx#syntax-e _%g195806195842%_)))) + (let ((_%hd195811195849%_ (let () (declare (not safe)) - (##car _%e196981197014%_))) - (_%tl196979197021%_ + (##car _%e195812195845%_))) + (_%tl195810195852%_ (let () (declare (not safe)) - (##cdr _%e196981197014%_)))) + (##cdr _%e195812195845%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196979197021%_)) - (let ((_%e196984197024%_ + (gx#stx-pair? _%tl195810195852%_)) + (let ((_%e195815195855%_ (let () (declare (not safe)) - (gx#syntax-e _%tl196979197021%_)))) - (let ((_%hd196983197028%_ + (gx#syntax-e _%tl195810195852%_)))) + (let ((_%hd195814195859%_ (let () (declare (not safe)) - (##car _%e196984197024%_))) - (_%tl196982197031%_ + (##car _%e195815195855%_))) + (_%tl195813195862%_ (let () (declare (not safe)) - (##cdr _%e196984197024%_)))) + (##cdr _%e195815195855%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl196982197031%_)) - (let ((_g202731_ + (gx#stx-pair/null? _%tl195813195862%_)) + (let ((_g201700_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196982197031%_ + _%tl195813195862%_ '0)))) (begin - (let ((_g202732_ + (let ((_g201701_ (let () (declare (not safe)) - (if (##values? _g202731_) + (if (##values? _g201700_) (##vector-length - _g202731_) + _g201700_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g202732_ 2))) + (##fx= _g201701_ 2))) (error "Context expects 2 values" - _g202732_))) - (let ((_%target196985197034%_ + _g201701_))) + (let ((_%target195816195865%_ (let () (declare (not safe)) - (##vector-ref _g202731_ 0))) - (_%tl196987197037%_ + (##vector-ref _g201700_ 0))) + (_%tl195818195868%_ (let () (declare (not safe)) (##vector-ref - _g202731_ + _g201700_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196987197037%_)) - (letrec ((_%loop196988197040%_ - (lambda (_%hd196986197044%_ + _%tl195818195868%_)) + (letrec ((_%loop195819195871%_ + (lambda (_%hd195817195875%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%symbol196992197047%_ - _%method196993197049%_) + _%symbol195823195878%_ + _%method195824195880%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196986197044%_)) - (let ((_%e196989197052%_ + (gx#stx-pair? _%hd195817195875%_)) + (let ((_%e195820195883%_ (let () (declare (not safe)) - (gx#syntax-e _%hd196986197044%_)))) - (let ((_%lp-hd196990197056%_ + (gx#syntax-e _%hd195817195875%_)))) + (let ((_%lp-hd195821195887%_ (let () (declare (not safe)) - (##car _%e196989197052%_))) - (_%lp-tl196991197059%_ + (##car _%e195820195883%_))) + (_%lp-tl195822195890%_ (let () (declare (not safe)) - (##cdr _%e196989197052%_)))) + (##cdr _%e195820195883%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd196990197056%_)) - (let ((_%e196998197062%_ + (gx#stx-pair? _%lp-hd195821195887%_)) + (let ((_%e195829195893%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd196990197056%_)))) - (let ((_%hd196997197066%_ + (gx#syntax-e _%lp-hd195821195887%_)))) + (let ((_%hd195828195897%_ (let () (declare (not safe)) - (##car _%e196998197062%_))) - (_%tl196996197069%_ + (##car _%e195829195893%_))) + (_%tl195827195900%_ (let () (declare (not safe)) - (##cdr _%e196998197062%_)))) + (##cdr _%e195829195893%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196996197069%_)) - (let ((_%e197001197072%_ + (gx#stx-pair? _%tl195827195900%_)) + (let ((_%e195832195903%_ (let () (declare (not safe)) (gx#syntax-e - _%tl196996197069%_)))) - (let ((_%hd197000197076%_ + _%tl195827195900%_)))) + (let ((_%hd195831195907%_ (let () (declare (not safe)) - (##car _%e197001197072%_))) - (_%tl196999197079%_ + (##car _%e195832195903%_))) + (_%tl195830195910%_ (let () (declare (not safe)) - (##cdr _%e197001197072%_)))) + (##cdr _%e195832195903%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196999197079%_)) - (_%loop196988197040%_ - _%lp-tl196991197059%_ - (cons _%hd197000197076%_ - _%symbol196992197047%_) - (cons _%hd196997197066%_ - _%method196993197049%_)) - (_%g196974197007%_ - _%g196975197011%_)))) - (_%g196974197007%_ - _%g196975197011%_)))) - (_%g196974197007%_ _%g196975197011%_)))) - (let ((_%symbol196994197082%_ - (reverse _%symbol196992197047%_)) - (_%method196995197085%_ - (reverse _%method196993197049%_))) - ((lambda (_%L197088%_ _%L197090%_ _%L197091%_) + _%tl195830195910%_)) + (_%loop195819195871%_ + _%lp-tl195822195890%_ + (cons _%hd195831195907%_ + _%symbol195823195878%_) + (cons _%hd195828195897%_ + _%method195824195880%_)) + (_%g195805195838%_ + _%g195806195842%_)))) + (_%g195805195838%_ + _%g195806195842%_)))) + (_%g195805195838%_ _%g195806195842%_)))) + (let ((_%symbol195825195913%_ + (reverse _%symbol195823195878%_)) + (_%method195826195916%_ + (reverse _%method195824195880%_))) + ((lambda (_%L195919%_ _%L195921%_ _%L195922%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -974,90 +988,90 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L197088%_ - _%L197090%_)) - (let ((__tmp202733 - (lambda (_%g197109197113%_ - _%g197110197116%_ - _%g197111197118%_) + _%L195919%_ + _%L195921%_)) + (let ((__tmp201702 + (lambda (_%g195940195944%_ + _%g195941195947%_ + _%g195942195949%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%L197091%_ - (cons _%g197110197116%_ + (cons _%L195922%_ + (cons _%g195941195947%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g197109197113%_ '())))) + (cons _%g195940195944%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g197111197118%_)))) + _%g195942195949%_)))) (declare (not safe)) (__foldr2 - __tmp202733 + __tmp201702 '() - _%L197088%_ - _%L197090%_))))) - _%symbol196994197082%_ - _%method196995197085%_ - _%hd196983197028%_)))))) + _%L195919%_ + _%L195921%_))))) + _%symbol195825195913%_ + _%method195826195916%_ + _%hd195814195859%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop196988197040%_ - _%target196985197034%_ + (_%loop195819195871%_ + _%target195816195865%_ '() '())) - (_%g196974197007%_ - _%g196975197011%_))))) - (_%g196974197007%_ _%g196975197011%_)))) - (_%g196974197007%_ _%g196975197011%_)))) - (_%g196974197007%_ _%g196975197011%_))))) - (_%g196973197121%_ _%$stx196970%_)))) + (_%g195805195838%_ + _%g195806195842%_))))) + (_%g195805195838%_ _%g195806195842%_)))) + (_%g195805195838%_ _%g195806195842%_)))) + (_%g195805195838%_ _%g195806195842%_))))) + (_%g195804195952%_ _%$stx195801%_)))) (define |gxc[:0:]#@alias| - (lambda (_%$stx197126%_) - (let* ((_%g197130197144%_ - (lambda (_%g197131197140%_) + (lambda (_%$stx195957%_) + (let* ((_%g195961195975%_ + (lambda (_%g195962195971%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g197131197140%_)))) - (_%g197129197185%_ - (lambda (_%g197131197148%_) + _%g195962195971%_)))) + (_%g195960196016%_ + (lambda (_%g195962195979%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g197131197148%_)) - (let ((_%e197135197151%_ + (gx#stx-pair? _%g195962195979%_)) + (let ((_%e195966195982%_ (let () (declare (not safe)) - (gx#syntax-e _%g197131197148%_)))) - (let ((_%hd197134197155%_ + (gx#syntax-e _%g195962195979%_)))) + (let ((_%hd195965195986%_ (let () (declare (not safe)) - (##car _%e197135197151%_))) - (_%tl197133197158%_ + (##car _%e195966195982%_))) + (_%tl195964195989%_ (let () (declare (not safe)) - (##cdr _%e197135197151%_)))) + (##cdr _%e195966195982%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197133197158%_)) - (let ((_%e197138197161%_ + (gx#stx-pair? _%tl195964195989%_)) + (let ((_%e195969195992%_ (let () (declare (not safe)) - (gx#syntax-e _%tl197133197158%_)))) - (let ((_%hd197137197165%_ + (gx#syntax-e _%tl195964195989%_)))) + (let ((_%hd195968195996%_ (let () (declare (not safe)) - (##car _%e197138197161%_))) - (_%tl197136197168%_ + (##car _%e195969195992%_))) + (_%tl195967195999%_ (let () (declare (not safe)) - (##cdr _%e197138197161%_)))) + (##cdr _%e195969195992%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197136197168%_)) - ((lambda (_%L197171%_) + (gx#stx-null? _%tl195967195999%_)) + ((lambda (_%L196002%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1069,230 +1083,230 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197171%_ + (cons _%L196002%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd197137197165%_) - (_%g197130197144%_ _%g197131197148%_)))) - (_%g197130197144%_ _%g197131197148%_)))) - (_%g197130197144%_ _%g197131197148%_))))) - (_%g197129197185%_ _%$stx197126%_)))) + _%hd195968195996%_) + (_%g195961195975%_ _%g195962195979%_)))) + (_%g195961195975%_ _%g195962195979%_)))) + (_%g195961195975%_ _%g195962195979%_))))) + (_%g195960196016%_ _%$stx195957%_)))) (define |gxc[:0:]#@class| - (lambda (_%$stx197189%_) - (let* ((_%g197193197247%_ - (lambda (_%g197194197243%_) + (lambda (_%$stx196020%_) + (let* ((_%g196024196078%_ + (lambda (_%g196025196074%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g197194197243%_)))) - (_%g197192197428%_ - (lambda (_%g197194197251%_) + _%g196025196074%_)))) + (_%g196023196259%_ + (lambda (_%g196025196082%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g197194197251%_)) - (let ((_%e197208197254%_ + (gx#stx-pair? _%g196025196082%_)) + (let ((_%e196039196085%_ (let () (declare (not safe)) - (gx#syntax-e _%g197194197251%_)))) - (let ((_%hd197207197258%_ + (gx#syntax-e _%g196025196082%_)))) + (let ((_%hd196038196089%_ (let () (declare (not safe)) - (##car _%e197208197254%_))) - (_%tl197206197261%_ + (##car _%e196039196085%_))) + (_%tl196037196092%_ (let () (declare (not safe)) - (##cdr _%e197208197254%_)))) + (##cdr _%e196039196085%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197206197261%_)) - (let ((_%e197211197264%_ + (gx#stx-pair? _%tl196037196092%_)) + (let ((_%e196042196095%_ (let () (declare (not safe)) - (gx#syntax-e _%tl197206197261%_)))) - (let ((_%hd197210197268%_ + (gx#syntax-e _%tl196037196092%_)))) + (let ((_%hd196041196099%_ (let () (declare (not safe)) - (##car _%e197211197264%_))) - (_%tl197209197271%_ + (##car _%e196042196095%_))) + (_%tl196040196102%_ (let () (declare (not safe)) - (##cdr _%e197211197264%_)))) + (##cdr _%e196042196095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197209197271%_)) - (let ((_%e197214197274%_ + (gx#stx-pair? _%tl196040196102%_)) + (let ((_%e196045196105%_ (let () (declare (not safe)) (gx#syntax-e - _%tl197209197271%_)))) - (let ((_%hd197213197278%_ + _%tl196040196102%_)))) + (let ((_%hd196044196109%_ (let () (declare (not safe)) - (##car _%e197214197274%_))) - (_%tl197212197281%_ + (##car _%e196045196105%_))) + (_%tl196043196112%_ (let () (declare (not safe)) - (##cdr _%e197214197274%_)))) + (##cdr _%e196045196105%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197212197281%_)) - (let ((_%e197217197284%_ + _%tl196043196112%_)) + (let ((_%e196048196115%_ (let () (declare (not safe)) (gx#syntax-e - _%tl197212197281%_)))) - (let ((_%hd197216197288%_ + _%tl196043196112%_)))) + (let ((_%hd196047196119%_ (let () (declare (not safe)) - (##car _%e197217197284%_))) - (_%tl197215197291%_ + (##car _%e196048196115%_))) + (_%tl196046196122%_ (let () (declare (not safe)) - (##cdr _%e197217197284%_)))) + (##cdr _%e196048196115%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197215197291%_)) - (let ((_%e197220197294%_ + _%tl196046196122%_)) + (let ((_%e196051196125%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl197215197291%_)))) - (let ((_%hd197219197298%_ - (let () (declare (not safe)) (##car _%e197220197294%_))) - (_%tl197218197301%_ + (gx#syntax-e _%tl196046196122%_)))) + (let ((_%hd196050196129%_ + (let () (declare (not safe)) (##car _%e196051196125%_))) + (_%tl196049196132%_ (let () (declare (not safe)) - (##cdr _%e197220197294%_)))) + (##cdr _%e196051196125%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197218197301%_)) - (let ((_%e197223197304%_ + (gx#stx-pair? _%tl196049196132%_)) + (let ((_%e196054196135%_ (let () (declare (not safe)) - (gx#syntax-e _%tl197218197301%_)))) - (let ((_%hd197222197308%_ + (gx#syntax-e _%tl196049196132%_)))) + (let ((_%hd196053196139%_ (let () (declare (not safe)) - (##car _%e197223197304%_))) - (_%tl197221197311%_ + (##car _%e196054196135%_))) + (_%tl196052196142%_ (let () (declare (not safe)) - (##cdr _%e197223197304%_)))) + (##cdr _%e196054196135%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197221197311%_)) - (let ((_%e197226197314%_ + (gx#stx-pair? _%tl196052196142%_)) + (let ((_%e196057196145%_ (let () (declare (not safe)) - (gx#syntax-e _%tl197221197311%_)))) - (let ((_%hd197225197318%_ + (gx#syntax-e _%tl196052196142%_)))) + (let ((_%hd196056196149%_ (let () (declare (not safe)) - (##car _%e197226197314%_))) - (_%tl197224197321%_ + (##car _%e196057196145%_))) + (_%tl196055196152%_ (let () (declare (not safe)) - (##cdr _%e197226197314%_)))) + (##cdr _%e196057196145%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197224197321%_)) - (let ((_%e197229197324%_ + (gx#stx-pair? _%tl196055196152%_)) + (let ((_%e196060196155%_ (let () (declare (not safe)) (gx#syntax-e - _%tl197224197321%_)))) - (let ((_%hd197228197328%_ + _%tl196055196152%_)))) + (let ((_%hd196059196159%_ (let () (declare (not safe)) - (##car _%e197229197324%_))) - (_%tl197227197331%_ + (##car _%e196060196155%_))) + (_%tl196058196162%_ (let () (declare (not safe)) - (##cdr _%e197229197324%_)))) + (##cdr _%e196060196155%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197227197331%_)) - (let ((_%e197232197334%_ + _%tl196058196162%_)) + (let ((_%e196063196165%_ (let () (declare (not safe)) (gx#syntax-e - _%tl197227197331%_)))) - (let ((_%hd197231197338%_ + _%tl196058196162%_)))) + (let ((_%hd196062196169%_ (let () (declare (not safe)) - (##car _%e197232197334%_))) - (_%tl197230197341%_ + (##car _%e196063196165%_))) + (_%tl196061196172%_ (let () (declare (not safe)) - (##cdr _%e197232197334%_)))) + (##cdr _%e196063196165%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197230197341%_)) - (let ((_%e197235197344%_ + _%tl196061196172%_)) + (let ((_%e196066196175%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl197230197341%_)))) - (let ((_%hd197234197348%_ - (let () (declare (not safe)) (##car _%e197235197344%_))) - (_%tl197233197351%_ + (gx#syntax-e _%tl196061196172%_)))) + (let ((_%hd196065196179%_ + (let () (declare (not safe)) (##car _%e196066196175%_))) + (_%tl196064196182%_ (let () (declare (not safe)) - (##cdr _%e197235197344%_)))) + (##cdr _%e196066196175%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197233197351%_)) - (let ((_%e197238197354%_ + (gx#stx-pair? _%tl196064196182%_)) + (let ((_%e196069196185%_ (let () (declare (not safe)) - (gx#syntax-e _%tl197233197351%_)))) - (let ((_%hd197237197358%_ + (gx#syntax-e _%tl196064196182%_)))) + (let ((_%hd196068196189%_ (let () (declare (not safe)) - (##car _%e197238197354%_))) - (_%tl197236197361%_ + (##car _%e196069196185%_))) + (_%tl196067196192%_ (let () (declare (not safe)) - (##cdr _%e197238197354%_)))) + (##cdr _%e196069196185%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197236197361%_)) - (let ((_%e197241197364%_ + (gx#stx-pair? _%tl196067196192%_)) + (let ((_%e196072196195%_ (let () (declare (not safe)) - (gx#syntax-e _%tl197236197361%_)))) - (let ((_%hd197240197368%_ + (gx#syntax-e _%tl196067196192%_)))) + (let ((_%hd196071196199%_ (let () (declare (not safe)) - (##car _%e197241197364%_))) - (_%tl197239197371%_ + (##car _%e196072196195%_))) + (_%tl196070196202%_ (let () (declare (not safe)) - (##cdr _%e197241197364%_)))) + (##cdr _%e196072196195%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197239197371%_)) - ((lambda (_%L197374%_ - _%L197376%_ - _%L197377%_ - _%L197378%_ - _%L197379%_ - _%L197380%_ - _%L197381%_ - _%L197382%_ - _%L197383%_ - _%L197384%_ - _%L197385%_) + (gx#stx-null? _%tl196070196202%_)) + ((lambda (_%L196205%_ + _%L196207%_ + _%L196208%_ + _%L196209%_ + _%L196210%_ + _%L196211%_ + _%L196212%_ + _%L196213%_ + _%L196214%_ + _%L196215%_ + _%L196216%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1304,7 +1318,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197385%_ + (cons _%L196216%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1312,115 +1326,115 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197384%_ '())) + (cons _%L196215%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197383%_ '())) + (cons _%L196214%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197382%_ '())) + (cons _%L196213%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197381%_ '())) + (cons _%L196212%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197380%_ '())) - (cons _%L197379%_ - (cons _%L197378%_ - (cons _%L197377%_ + (cons _%L196211%_ '())) + (cons _%L196210%_ + (cons _%L196209%_ + (cons _%L196208%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197376%_ '())) + (cons _%L196207%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197374%_ '())) + (cons _%L196205%_ '())) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd197240197368%_ - _%hd197237197358%_ - _%hd197234197348%_ - _%hd197231197338%_ - _%hd197228197328%_ - _%hd197225197318%_ - _%hd197222197308%_ - _%hd197219197298%_ - _%hd197216197288%_ - _%hd197213197278%_ - _%hd197210197268%_) - (_%g197193197247%_ _%g197194197251%_)))) - (_%g197193197247%_ _%g197194197251%_)))) - (_%g197193197247%_ _%g197194197251%_)))) - (_%g197193197247%_ _%g197194197251%_)))) + _%hd196071196199%_ + _%hd196068196189%_ + _%hd196065196179%_ + _%hd196062196169%_ + _%hd196059196159%_ + _%hd196056196149%_ + _%hd196053196139%_ + _%hd196050196129%_ + _%hd196047196119%_ + _%hd196044196109%_ + _%hd196041196099%_) + (_%g196024196078%_ _%g196025196082%_)))) + (_%g196024196078%_ _%g196025196082%_)))) + (_%g196024196078%_ _%g196025196082%_)))) + (_%g196024196078%_ _%g196025196082%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g197193197247%_ - _%g197194197251%_)))) - (_%g197193197247%_ _%g197194197251%_)))) - (_%g197193197247%_ _%g197194197251%_)))) - (_%g197193197247%_ _%g197194197251%_)))) - (_%g197193197247%_ _%g197194197251%_)))) + (_%g196024196078%_ + _%g196025196082%_)))) + (_%g196024196078%_ _%g196025196082%_)))) + (_%g196024196078%_ _%g196025196082%_)))) + (_%g196024196078%_ _%g196025196082%_)))) + (_%g196024196078%_ _%g196025196082%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g197193197247%_ - _%g197194197251%_)))) - (_%g197193197247%_ _%g197194197251%_)))) - (_%g197193197247%_ _%g197194197251%_)))) - (_%g197193197247%_ _%g197194197251%_))))) - (_%g197192197428%_ _%$stx197189%_)))) + (_%g196024196078%_ + _%g196025196082%_)))) + (_%g196024196078%_ _%g196025196082%_)))) + (_%g196024196078%_ _%g196025196082%_)))) + (_%g196024196078%_ _%g196025196082%_))))) + (_%g196023196259%_ _%$stx196020%_)))) (define |gxc[:0:]#@predicate| - (lambda (_%$stx197432%_) - (let* ((_%g197436197450%_ - (lambda (_%g197437197446%_) + (lambda (_%$stx196263%_) + (let* ((_%g196267196281%_ + (lambda (_%g196268196277%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g197437197446%_)))) - (_%g197435197491%_ - (lambda (_%g197437197454%_) + _%g196268196277%_)))) + (_%g196266196322%_ + (lambda (_%g196268196285%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g197437197454%_)) - (let ((_%e197441197457%_ + (gx#stx-pair? _%g196268196285%_)) + (let ((_%e196272196288%_ (let () (declare (not safe)) - (gx#syntax-e _%g197437197454%_)))) - (let ((_%hd197440197461%_ + (gx#syntax-e _%g196268196285%_)))) + (let ((_%hd196271196292%_ (let () (declare (not safe)) - (##car _%e197441197457%_))) - (_%tl197439197464%_ + (##car _%e196272196288%_))) + (_%tl196270196295%_ (let () (declare (not safe)) - (##cdr _%e197441197457%_)))) + (##cdr _%e196272196288%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197439197464%_)) - (let ((_%e197444197467%_ + (gx#stx-pair? _%tl196270196295%_)) + (let ((_%e196275196298%_ (let () (declare (not safe)) - (gx#syntax-e _%tl197439197464%_)))) - (let ((_%hd197443197471%_ + (gx#syntax-e _%tl196270196295%_)))) + (let ((_%hd196274196302%_ (let () (declare (not safe)) - (##car _%e197444197467%_))) - (_%tl197442197474%_ + (##car _%e196275196298%_))) + (_%tl196273196305%_ (let () (declare (not safe)) - (##cdr _%e197444197467%_)))) + (##cdr _%e196275196298%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197442197474%_)) - ((lambda (_%L197477%_) + (gx#stx-null? _%tl196273196305%_)) + ((lambda (_%L196308%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1432,62 +1446,62 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197477%_ + (cons _%L196308%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd197443197471%_) - (_%g197436197450%_ _%g197437197454%_)))) - (_%g197436197450%_ _%g197437197454%_)))) - (_%g197436197450%_ _%g197437197454%_))))) - (_%g197435197491%_ _%$stx197432%_)))) + _%hd196274196302%_) + (_%g196267196281%_ _%g196268196285%_)))) + (_%g196267196281%_ _%g196268196285%_)))) + (_%g196267196281%_ _%g196268196285%_))))) + (_%g196266196322%_ _%$stx196263%_)))) (define |gxc[:0:]#@constructor| - (lambda (_%$stx197495%_) - (let* ((_%g197499197513%_ - (lambda (_%g197500197509%_) + (lambda (_%$stx196326%_) + (let* ((_%g196330196344%_ + (lambda (_%g196331196340%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g197500197509%_)))) - (_%g197498197554%_ - (lambda (_%g197500197517%_) + _%g196331196340%_)))) + (_%g196329196385%_ + (lambda (_%g196331196348%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g197500197517%_)) - (let ((_%e197504197520%_ + (gx#stx-pair? _%g196331196348%_)) + (let ((_%e196335196351%_ (let () (declare (not safe)) - (gx#syntax-e _%g197500197517%_)))) - (let ((_%hd197503197524%_ + (gx#syntax-e _%g196331196348%_)))) + (let ((_%hd196334196355%_ (let () (declare (not safe)) - (##car _%e197504197520%_))) - (_%tl197502197527%_ + (##car _%e196335196351%_))) + (_%tl196333196358%_ (let () (declare (not safe)) - (##cdr _%e197504197520%_)))) + (##cdr _%e196335196351%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197502197527%_)) - (let ((_%e197507197530%_ + (gx#stx-pair? _%tl196333196358%_)) + (let ((_%e196338196361%_ (let () (declare (not safe)) - (gx#syntax-e _%tl197502197527%_)))) - (let ((_%hd197506197534%_ + (gx#syntax-e _%tl196333196358%_)))) + (let ((_%hd196337196365%_ (let () (declare (not safe)) - (##car _%e197507197530%_))) - (_%tl197505197537%_ + (##car _%e196338196361%_))) + (_%tl196336196368%_ (let () (declare (not safe)) - (##cdr _%e197507197530%_)))) + (##cdr _%e196338196361%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197505197537%_)) - ((lambda (_%L197540%_) + (gx#stx-null? _%tl196336196368%_)) + ((lambda (_%L196371%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1499,98 +1513,98 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197540%_ + (cons _%L196371%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd197506197534%_) - (_%g197499197513%_ _%g197500197517%_)))) - (_%g197499197513%_ _%g197500197517%_)))) - (_%g197499197513%_ _%g197500197517%_))))) - (_%g197498197554%_ _%$stx197495%_)))) + _%hd196337196365%_) + (_%g196330196344%_ _%g196331196348%_)))) + (_%g196330196344%_ _%g196331196348%_)))) + (_%g196330196344%_ _%g196331196348%_))))) + (_%g196329196385%_ _%$stx196326%_)))) (define |gxc[:0:]#@accessor| - (lambda (_%$stx197558%_) - (let* ((_%g197562197584%_ - (lambda (_%g197563197580%_) + (lambda (_%$stx196389%_) + (let* ((_%g196393196415%_ + (lambda (_%g196394196411%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g197563197580%_)))) - (_%g197561197653%_ - (lambda (_%g197563197588%_) + _%g196394196411%_)))) + (_%g196392196484%_ + (lambda (_%g196394196419%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g197563197588%_)) - (let ((_%e197569197591%_ + (gx#stx-pair? _%g196394196419%_)) + (let ((_%e196400196422%_ (let () (declare (not safe)) - (gx#syntax-e _%g197563197588%_)))) - (let ((_%hd197568197595%_ + (gx#syntax-e _%g196394196419%_)))) + (let ((_%hd196399196426%_ (let () (declare (not safe)) - (##car _%e197569197591%_))) - (_%tl197567197598%_ + (##car _%e196400196422%_))) + (_%tl196398196429%_ (let () (declare (not safe)) - (##cdr _%e197569197591%_)))) + (##cdr _%e196400196422%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197567197598%_)) - (let ((_%e197572197601%_ + (gx#stx-pair? _%tl196398196429%_)) + (let ((_%e196403196432%_ (let () (declare (not safe)) - (gx#syntax-e _%tl197567197598%_)))) - (let ((_%hd197571197605%_ + (gx#syntax-e _%tl196398196429%_)))) + (let ((_%hd196402196436%_ (let () (declare (not safe)) - (##car _%e197572197601%_))) - (_%tl197570197608%_ + (##car _%e196403196432%_))) + (_%tl196401196439%_ (let () (declare (not safe)) - (##cdr _%e197572197601%_)))) + (##cdr _%e196403196432%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197570197608%_)) - (let ((_%e197575197611%_ + (gx#stx-pair? _%tl196401196439%_)) + (let ((_%e196406196442%_ (let () (declare (not safe)) (gx#syntax-e - _%tl197570197608%_)))) - (let ((_%hd197574197615%_ + _%tl196401196439%_)))) + (let ((_%hd196405196446%_ (let () (declare (not safe)) - (##car _%e197575197611%_))) - (_%tl197573197618%_ + (##car _%e196406196442%_))) + (_%tl196404196449%_ (let () (declare (not safe)) - (##cdr _%e197575197611%_)))) + (##cdr _%e196406196442%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197573197618%_)) - (let ((_%e197578197621%_ + _%tl196404196449%_)) + (let ((_%e196409196452%_ (let () (declare (not safe)) (gx#syntax-e - _%tl197573197618%_)))) - (let ((_%hd197577197625%_ + _%tl196404196449%_)))) + (let ((_%hd196408196456%_ (let () (declare (not safe)) - (##car _%e197578197621%_))) - (_%tl197576197628%_ + (##car _%e196409196452%_))) + (_%tl196407196459%_ (let () (declare (not safe)) - (##cdr _%e197578197621%_)))) + (##cdr _%e196409196452%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197576197628%_)) - ((lambda (_%L197631%_ - _%L197633%_ - _%L197634%_) + _%tl196407196459%_)) + ((lambda (_%L196462%_ + _%L196464%_ + _%L196465%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1598,105 +1612,105 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197634%_ '())) + (cons _%L196465%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197633%_ '())) - (cons _%L197631%_ '()))))) - _%hd197577197625%_ - _%hd197574197615%_ - _%hd197571197605%_) - (_%g197562197584%_ _%g197563197588%_)))) + (cons _%L196464%_ '())) + (cons _%L196462%_ '()))))) + _%hd196408196456%_ + _%hd196405196446%_ + _%hd196402196436%_) + (_%g196393196415%_ _%g196394196419%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g197562197584%_ - _%g197563197588%_)))) - (_%g197562197584%_ _%g197563197588%_)))) - (_%g197562197584%_ _%g197563197588%_)))) - (_%g197562197584%_ _%g197563197588%_))))) - (_%g197561197653%_ _%$stx197558%_)))) + (_%g196393196415%_ + _%g196394196419%_)))) + (_%g196393196415%_ _%g196394196419%_)))) + (_%g196393196415%_ _%g196394196419%_)))) + (_%g196393196415%_ _%g196394196419%_))))) + (_%g196392196484%_ _%$stx196389%_)))) (define |gxc[:0:]#@mutator| - (lambda (_%$stx197657%_) - (let* ((_%g197661197683%_ - (lambda (_%g197662197679%_) + (lambda (_%$stx196488%_) + (let* ((_%g196492196514%_ + (lambda (_%g196493196510%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g197662197679%_)))) - (_%g197660197752%_ - (lambda (_%g197662197687%_) + _%g196493196510%_)))) + (_%g196491196583%_ + (lambda (_%g196493196518%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g197662197687%_)) - (let ((_%e197668197690%_ + (gx#stx-pair? _%g196493196518%_)) + (let ((_%e196499196521%_ (let () (declare (not safe)) - (gx#syntax-e _%g197662197687%_)))) - (let ((_%hd197667197694%_ + (gx#syntax-e _%g196493196518%_)))) + (let ((_%hd196498196525%_ (let () (declare (not safe)) - (##car _%e197668197690%_))) - (_%tl197666197697%_ + (##car _%e196499196521%_))) + (_%tl196497196528%_ (let () (declare (not safe)) - (##cdr _%e197668197690%_)))) + (##cdr _%e196499196521%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197666197697%_)) - (let ((_%e197671197700%_ + (gx#stx-pair? _%tl196497196528%_)) + (let ((_%e196502196531%_ (let () (declare (not safe)) - (gx#syntax-e _%tl197666197697%_)))) - (let ((_%hd197670197704%_ + (gx#syntax-e _%tl196497196528%_)))) + (let ((_%hd196501196535%_ (let () (declare (not safe)) - (##car _%e197671197700%_))) - (_%tl197669197707%_ + (##car _%e196502196531%_))) + (_%tl196500196538%_ (let () (declare (not safe)) - (##cdr _%e197671197700%_)))) + (##cdr _%e196502196531%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197669197707%_)) - (let ((_%e197674197710%_ + (gx#stx-pair? _%tl196500196538%_)) + (let ((_%e196505196541%_ (let () (declare (not safe)) (gx#syntax-e - _%tl197669197707%_)))) - (let ((_%hd197673197714%_ + _%tl196500196538%_)))) + (let ((_%hd196504196545%_ (let () (declare (not safe)) - (##car _%e197674197710%_))) - (_%tl197672197717%_ + (##car _%e196505196541%_))) + (_%tl196503196548%_ (let () (declare (not safe)) - (##cdr _%e197674197710%_)))) + (##cdr _%e196505196541%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197672197717%_)) - (let ((_%e197677197720%_ + _%tl196503196548%_)) + (let ((_%e196508196551%_ (let () (declare (not safe)) (gx#syntax-e - _%tl197672197717%_)))) - (let ((_%hd197676197724%_ + _%tl196503196548%_)))) + (let ((_%hd196507196555%_ (let () (declare (not safe)) - (##car _%e197677197720%_))) - (_%tl197675197727%_ + (##car _%e196508196551%_))) + (_%tl196506196558%_ (let () (declare (not safe)) - (##cdr _%e197677197720%_)))) + (##cdr _%e196508196551%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197675197727%_)) - ((lambda (_%L197730%_ - _%L197732%_ - _%L197733%_) + _%tl196506196558%_)) + ((lambda (_%L196561%_ + _%L196563%_ + _%L196564%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1704,69 +1718,69 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197733%_ '())) + (cons _%L196564%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197732%_ '())) - (cons _%L197730%_ '()))))) - _%hd197676197724%_ - _%hd197673197714%_ - _%hd197670197704%_) - (_%g197661197683%_ _%g197662197687%_)))) + (cons _%L196563%_ '())) + (cons _%L196561%_ '()))))) + _%hd196507196555%_ + _%hd196504196545%_ + _%hd196501196535%_) + (_%g196492196514%_ _%g196493196518%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g197661197683%_ - _%g197662197687%_)))) - (_%g197661197683%_ _%g197662197687%_)))) - (_%g197661197683%_ _%g197662197687%_)))) - (_%g197661197683%_ _%g197662197687%_))))) - (_%g197660197752%_ _%$stx197657%_)))) + (_%g196492196514%_ + _%g196493196518%_)))) + (_%g196492196514%_ _%g196493196518%_)))) + (_%g196492196514%_ _%g196493196518%_)))) + (_%g196492196514%_ _%g196493196518%_))))) + (_%g196491196583%_ _%$stx196488%_)))) (define |gxc[:0:]#@primitive-predicate| - (lambda (_%$stx197756%_) - (let* ((_%g197760197774%_ - (lambda (_%g197761197770%_) + (lambda (_%$stx196587%_) + (let* ((_%g196591196605%_ + (lambda (_%g196592196601%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g197761197770%_)))) - (_%g197759197815%_ - (lambda (_%g197761197778%_) + _%g196592196601%_)))) + (_%g196590196646%_ + (lambda (_%g196592196609%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g197761197778%_)) - (let ((_%e197765197781%_ + (gx#stx-pair? _%g196592196609%_)) + (let ((_%e196596196612%_ (let () (declare (not safe)) - (gx#syntax-e _%g197761197778%_)))) - (let ((_%hd197764197785%_ + (gx#syntax-e _%g196592196609%_)))) + (let ((_%hd196595196616%_ (let () (declare (not safe)) - (##car _%e197765197781%_))) - (_%tl197763197788%_ + (##car _%e196596196612%_))) + (_%tl196594196619%_ (let () (declare (not safe)) - (##cdr _%e197765197781%_)))) + (##cdr _%e196596196612%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197763197788%_)) - (let ((_%e197768197791%_ + (gx#stx-pair? _%tl196594196619%_)) + (let ((_%e196599196622%_ (let () (declare (not safe)) - (gx#syntax-e _%tl197763197788%_)))) - (let ((_%hd197767197795%_ + (gx#syntax-e _%tl196594196619%_)))) + (let ((_%hd196598196626%_ (let () (declare (not safe)) - (##car _%e197768197791%_))) - (_%tl197766197798%_ + (##car _%e196599196622%_))) + (_%tl196597196629%_ (let () (declare (not safe)) - (##cdr _%e197768197791%_)))) + (##cdr _%e196599196622%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197766197798%_)) - ((lambda (_%L197801%_) + (gx#stx-null? _%tl196597196629%_)) + ((lambda (_%L196632%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1778,80 +1792,80 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197801%_ + (cons _%L196632%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd197767197795%_) - (_%g197760197774%_ _%g197761197778%_)))) - (_%g197760197774%_ _%g197761197778%_)))) - (_%g197760197774%_ _%g197761197778%_))))) - (_%g197759197815%_ _%$stx197756%_)))) + _%hd196598196626%_) + (_%g196591196605%_ _%g196592196609%_)))) + (_%g196591196605%_ _%g196592196609%_)))) + (_%g196591196605%_ _%g196592196609%_))))) + (_%g196590196646%_ _%$stx196587%_)))) (define |gxc[:0:]#@interface| - (lambda (_%$stx197819%_) - (let* ((_%g197823197841%_ - (lambda (_%g197824197837%_) + (lambda (_%$stx196650%_) + (let* ((_%g196654196672%_ + (lambda (_%g196655196668%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g197824197837%_)))) - (_%g197822197896%_ - (lambda (_%g197824197845%_) + _%g196655196668%_)))) + (_%g196653196727%_ + (lambda (_%g196655196676%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g197824197845%_)) - (let ((_%e197829197848%_ + (gx#stx-pair? _%g196655196676%_)) + (let ((_%e196660196679%_ (let () (declare (not safe)) - (gx#syntax-e _%g197824197845%_)))) - (let ((_%hd197828197852%_ + (gx#syntax-e _%g196655196676%_)))) + (let ((_%hd196659196683%_ (let () (declare (not safe)) - (##car _%e197829197848%_))) - (_%tl197827197855%_ + (##car _%e196660196679%_))) + (_%tl196658196686%_ (let () (declare (not safe)) - (##cdr _%e197829197848%_)))) + (##cdr _%e196660196679%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197827197855%_)) - (let ((_%e197832197858%_ + (gx#stx-pair? _%tl196658196686%_)) + (let ((_%e196663196689%_ (let () (declare (not safe)) - (gx#syntax-e _%tl197827197855%_)))) - (let ((_%hd197831197862%_ + (gx#syntax-e _%tl196658196686%_)))) + (let ((_%hd196662196693%_ (let () (declare (not safe)) - (##car _%e197832197858%_))) - (_%tl197830197865%_ + (##car _%e196663196689%_))) + (_%tl196661196696%_ (let () (declare (not safe)) - (##cdr _%e197832197858%_)))) + (##cdr _%e196663196689%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197830197865%_)) - (let ((_%e197835197868%_ + (gx#stx-pair? _%tl196661196696%_)) + (let ((_%e196666196699%_ (let () (declare (not safe)) (gx#syntax-e - _%tl197830197865%_)))) - (let ((_%hd197834197872%_ + _%tl196661196696%_)))) + (let ((_%hd196665196703%_ (let () (declare (not safe)) - (##car _%e197835197868%_))) - (_%tl197833197875%_ + (##car _%e196666196699%_))) + (_%tl196664196706%_ (let () (declare (not safe)) - (##cdr _%e197835197868%_)))) + (##cdr _%e196666196699%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197833197875%_)) - ((lambda (_%L197878%_ - _%L197880%_) + _%tl196664196706%_)) + ((lambda (_%L196709%_ + _%L196711%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1861,59 +1875,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197880%_ '())) + (cons _%L196711%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L197878%_ '())) + (cons _%L196709%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd197834197872%_ - _%hd197831197862%_) - (_%g197823197841%_ - _%g197824197845%_)))) - (_%g197823197841%_ _%g197824197845%_)))) - (_%g197823197841%_ _%g197824197845%_)))) - (_%g197823197841%_ _%g197824197845%_))))) - (_%g197822197896%_ _%$stx197819%_)))) + _%hd196665196703%_ + _%hd196662196693%_) + (_%g196654196672%_ + _%g196655196676%_)))) + (_%g196654196672%_ _%g196655196676%_)))) + (_%g196654196672%_ _%g196655196676%_)))) + (_%g196654196672%_ _%g196655196676%_))))) + (_%g196653196727%_ _%$stx196650%_)))) (define |gxc[:0:]#@lambda| - (lambda (_%$stx197900%_) - (let* ((_%__stx202104202105%_ _%$stx197900%_) - (_%g197907197968%_ + (lambda (_%$stx196731%_) + (let* ((_%__stx201073201074%_ _%$stx196731%_) + (_%g196738196799%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx202104202105%_))))) - (let ((_%__kont202107202108%_ - (lambda (_%L198206%_ _%L198208%_) + _%__stx201073201074%_))))) + (let ((_%__kont201076201077%_ + (lambda (_%L197037%_ _%L197039%_) (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 _%L198208%_ '())) + (cons _%L197039%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L198206%_ '())) + (cons _%L197037%_ '())) '()))))) - (_%__kont202109202110%_ - (lambda (_%L198145%_ _%L198147%_ _%L198148%_) + (_%__kont201078201079%_ + (lambda (_%L196976%_ _%L196978%_ _%L196979%_) (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 _%L198148%_ '())) + (cons _%L196979%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L198147%_ '())) + (cons _%L196978%_ '())) (cons 'signature: (cons (cons (let () (declare (not safe)) @@ -1928,478 +1942,478 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L198145%_ '())) + (cons _%L196976%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (_%__kont202111202112%_ - (lambda (_%L198069%_ _%L198071%_) - (cons _%L198071%_ (cons _%L198069%_ (cons '#f '()))))) - (_%__kont202113202114%_ - (lambda (_%L198019%_ _%L198021%_ _%L198022%_) - (cons _%L198022%_ - (cons _%L198021%_ + (_%__kont201080201081%_ + (lambda (_%L196900%_ _%L196902%_) + (cons _%L196902%_ (cons _%L196900%_ (cons '#f '()))))) + (_%__kont201082201083%_ + (lambda (_%L196850%_ _%L196852%_ _%L196853%_) + (cons _%L196853%_ + (cons _%L196852%_ (cons '#f (cons 'signature: - (cons _%L198019%_ '())))))))) + (cons _%L196850%_ '())))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx202104202105%_)) - (let ((_%e197913198176%_ + (gx#stx-pair? _%__stx201073201074%_)) + (let ((_%e196744197007%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx202104202105%_)))) - (let ((_%tl197911198183%_ + (gx#syntax-e _%__stx201073201074%_)))) + (let ((_%tl196742197014%_ (let () (declare (not safe)) - (##cdr _%e197913198176%_))) - (_%hd197912198180%_ + (##cdr _%e196744197007%_))) + (_%hd196743197011%_ (let () (declare (not safe)) - (##car _%e197913198176%_)))) + (##car _%e196744197007%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197911198183%_)) - (let ((_%e197916198186%_ + (gx#stx-pair? _%tl196742197014%_)) + (let ((_%e196747197017%_ (let () (declare (not safe)) - (gx#syntax-e _%tl197911198183%_)))) - (let ((_%tl197914198193%_ + (gx#syntax-e _%tl196742197014%_)))) + (let ((_%tl196745197024%_ (let () (declare (not safe)) - (##cdr _%e197916198186%_))) - (_%hd197915198190%_ + (##cdr _%e196747197017%_))) + (_%hd196746197021%_ (let () (declare (not safe)) - (##car _%e197916198186%_)))) + (##car _%e196747197017%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197914198193%_)) - (let ((_%e197919198196%_ + (gx#stx-pair? _%tl196745197024%_)) + (let ((_%e196750197027%_ (let () (declare (not safe)) - (gx#syntax-e _%tl197914198193%_)))) - (let ((_%tl197917198203%_ + (gx#syntax-e _%tl196745197024%_)))) + (let ((_%tl196748197034%_ (let () (declare (not safe)) - (##cdr _%e197919198196%_))) - (_%hd197918198200%_ + (##cdr _%e196750197027%_))) + (_%hd196749197031%_ (let () (declare (not safe)) - (##car _%e197919198196%_)))) + (##car _%e196750197027%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197917198203%_)) - (_%__kont202107202108%_ - _%hd197918198200%_ - _%hd197915198190%_) + (gx#stx-null? _%tl196748197034%_)) + (_%__kont201076201077%_ + _%hd196749197031%_ + _%hd196746197021%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197917198203%_)) - (let ((_%e197934198121%_ + _%tl196748197034%_)) + (let ((_%e196765196952%_ (let () (declare (not safe)) (gx#syntax-e - _%tl197917198203%_)))) - (let ((_%tl197932198128%_ + _%tl196748197034%_)))) + (let ((_%tl196763196959%_ (let () (declare (not safe)) - (##cdr _%e197934198121%_))) - (_%hd197933198125%_ + (##cdr _%e196765196952%_))) + (_%hd196764196956%_ (let () (declare (not safe)) - (##car _%e197934198121%_)))) + (##car _%e196765196952%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd197933198125%_)) - (let ((_%e197935198131%_ + _%hd196764196956%_)) + (let ((_%e196766196962%_ (let () (declare (not safe)) (gx#stx-e - _%hd197933198125%_)))) - (if (equal? _%e197935198131%_ + _%hd196764196956%_)))) + (if (equal? _%e196766196962%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'signature:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197932198128%_)) - (let ((_%e197938198135%_ + (gx#stx-pair? _%tl196763196959%_)) + (let ((_%e196769196966%_ (let () (declare (not safe)) - (gx#syntax-e _%tl197932198128%_)))) - (let ((_%tl197936198142%_ + (gx#syntax-e _%tl196763196959%_)))) + (let ((_%tl196767196973%_ (let () (declare (not safe)) - (##cdr _%e197938198135%_))) - (_%hd197937198139%_ + (##cdr _%e196769196966%_))) + (_%hd196768196970%_ (let () (declare (not safe)) - (##car _%e197938198135%_)))) + (##car _%e196769196966%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197936198142%_)) - (_%__kont202109202110%_ - _%hd197937198139%_ - _%hd197918198200%_ - _%hd197915198190%_) + (gx#stx-null? _%tl196767196973%_)) + (_%__kont201078201079%_ + _%hd196768196970%_ + _%hd196749197031%_ + _%hd196746197021%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd197918198200%_)) - (let ((_%e197959198005%_ + (gx#stx-datum? _%hd196749197031%_)) + (let ((_%e196790196836%_ (let () (declare (not safe)) - (gx#stx-e _%hd197918198200%_)))) + (gx#stx-e _%hd196749197031%_)))) (declare (not safe)) - (_%g197907197968%_)) + (_%g196738196799%_)) (let () (declare (not safe)) - (_%g197907197968%_)))))) + (_%g196738196799%_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd197918198200%_)) - (let ((_%e197959198005%_ + (gx#stx-datum? _%hd196749197031%_)) + (let ((_%e196790196836%_ (let () (declare (not safe)) - (gx#stx-e _%hd197918198200%_)))) - (if (equal? _%e197959198005%_ 'signature:) + (gx#stx-e _%hd196749197031%_)))) + (if (equal? _%e196790196836%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197932198128%_)) - (_%__kont202113202114%_ - _%hd197933198125%_ - _%hd197915198190%_ - _%hd197912198180%_) + (gx#stx-null? _%tl196763196959%_)) + (_%__kont201082201083%_ + _%hd196764196956%_ + _%hd196746197021%_ + _%hd196743197011%_) (let () (declare (not safe)) - (_%g197907197968%_))) + (_%g196738196799%_))) (let () (declare (not safe)) - (_%g197907197968%_)))) - (let () (declare (not safe)) (_%g197907197968%_)))) + (_%g196738196799%_)))) + (let () (declare (not safe)) (_%g196738196799%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd197918198200%_)) - (let ((_%e197959198005%_ + (gx#stx-datum? _%hd196749197031%_)) + (let ((_%e196790196836%_ (let () (declare (not safe)) - (gx#stx-e _%hd197918198200%_)))) - (if (equal? _%e197959198005%_ 'signature:) + (gx#stx-e _%hd196749197031%_)))) + (if (equal? _%e196790196836%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197932198128%_)) - (_%__kont202113202114%_ - _%hd197933198125%_ - _%hd197915198190%_ - _%hd197912198180%_) + (gx#stx-null? _%tl196763196959%_)) + (_%__kont201082201083%_ + _%hd196764196956%_ + _%hd196746197021%_ + _%hd196743197011%_) (let () (declare (not safe)) - (_%g197907197968%_))) - (let () (declare (not safe)) (_%g197907197968%_)))) - (let () (declare (not safe)) (_%g197907197968%_))))) + (_%g196738196799%_))) + (let () (declare (not safe)) (_%g196738196799%_)))) + (let () (declare (not safe)) (_%g196738196799%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd197918198200%_)) - (let ((_%e197959198005%_ + _%hd196749197031%_)) + (let ((_%e196790196836%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd197918198200%_)))) - (if (equal? _%e197959198005%_ 'signature:) + (gx#stx-e _%hd196749197031%_)))) + (if (equal? _%e196790196836%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197932198128%_)) - (_%__kont202113202114%_ - _%hd197933198125%_ - _%hd197915198190%_ - _%hd197912198180%_) - (let () (declare (not safe)) (_%g197907197968%_))) - (let () (declare (not safe)) (_%g197907197968%_)))) - (let () (declare (not safe)) (_%g197907197968%_)))))) + (gx#stx-null? _%tl196763196959%_)) + (_%__kont201082201083%_ + _%hd196764196956%_ + _%hd196746197021%_ + _%hd196743197011%_) + (let () (declare (not safe)) (_%g196738196799%_))) + (let () (declare (not safe)) (_%g196738196799%_)))) + (let () (declare (not safe)) (_%g196738196799%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd197918198200%_)) - (let ((_%e197959198005%_ + _%hd196749197031%_)) + (let ((_%e196790196836%_ (let () (declare (not safe)) (gx#stx-e - _%hd197918198200%_)))) + _%hd196749197031%_)))) (declare (not safe)) - (_%g197907197968%_)) + (_%g196738196799%_)) (let () (declare (not safe)) - (_%g197907197968%_))))))) + (_%g196738196799%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197914198193%_)) - (_%__kont202111202112%_ - _%hd197915198190%_ - _%hd197912198180%_) + (gx#stx-null? _%tl196745197024%_)) + (_%__kont201080201081%_ + _%hd196746197021%_ + _%hd196743197011%_) (let () (declare (not safe)) - (_%g197907197968%_)))))) - (let () (declare (not safe)) (_%g197907197968%_))))) - (let () (declare (not safe)) (_%g197907197968%_))))))) + (_%g196738196799%_)))))) + (let () (declare (not safe)) (_%g196738196799%_))))) + (let () (declare (not safe)) (_%g196738196799%_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_%$stx198227%_) - (let* ((_%g198231198260%_ - (lambda (_%g198232198256%_) + (lambda (_%$stx197058%_) + (let* ((_%g197062197091%_ + (lambda (_%g197063197087%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g198232198256%_)))) - (_%g198230198369%_ - (lambda (_%g198232198264%_) + _%g197063197087%_)))) + (_%g197061197200%_ + (lambda (_%g197063197095%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g198232198264%_)) - (let ((_%e198236198267%_ + (gx#stx-pair? _%g197063197095%_)) + (let ((_%e197067197098%_ (let () (declare (not safe)) - (gx#syntax-e _%g198232198264%_)))) - (let ((_%hd198235198271%_ + (gx#syntax-e _%g197063197095%_)))) + (let ((_%hd197066197102%_ (let () (declare (not safe)) - (##car _%e198236198267%_))) - (_%tl198234198274%_ + (##car _%e197067197098%_))) + (_%tl197065197105%_ (let () (declare (not safe)) - (##cdr _%e198236198267%_)))) + (##cdr _%e197067197098%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl198234198274%_)) - (let ((_g202734_ + (gx#stx-pair/null? _%tl197065197105%_)) + (let ((_g201703_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl198234198274%_ + _%tl197065197105%_ '0)))) (begin - (let ((_g202735_ + (let ((_g201704_ (let () (declare (not safe)) - (if (##values? _g202734_) - (##vector-length _g202734_) + (if (##values? _g201703_) + (##vector-length _g201703_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g202735_ 2))) + (##fx= _g201704_ 2))) (error "Context expects 2 values" - _g202735_))) - (let ((_%target198237198277%_ + _g201704_))) + (let ((_%target197068197108%_ (let () (declare (not safe)) - (##vector-ref _g202734_ 0))) - (_%tl198239198280%_ + (##vector-ref _g201703_ 0))) + (_%tl197070197111%_ (let () (declare (not safe)) - (##vector-ref _g202734_ 1)))) + (##vector-ref _g201703_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl198239198280%_)) - (letrec ((_%loop198240198283%_ - (lambda (_%hd198238198287%_ - _%clause198244198290%_) + (gx#stx-null? _%tl197070197111%_)) + (letrec ((_%loop197071197114%_ + (lambda (_%hd197069197118%_ + _%clause197075197121%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd198238198287%_)) - (let ((_%e198241198293%_ + _%hd197069197118%_)) + (let ((_%e197072197124%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd198238198287%_)))) - (let ((_%lp-hd198242198297%_ + (gx#syntax-e _%hd197069197118%_)))) + (let ((_%lp-hd197073197128%_ (let () (declare (not safe)) - (##car _%e198241198293%_))) - (_%lp-tl198243198300%_ + (##car _%e197072197124%_))) + (_%lp-tl197074197131%_ (let () (declare (not safe)) - (##cdr _%e198241198293%_)))) + (##cdr _%e197072197124%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%lp-hd198242198297%_)) - (let ((_g202736_ + (gx#stx-pair/null? _%lp-hd197073197128%_)) + (let ((_g201705_ (let () (declare (not safe)) (gx#syntax-split-splice - _%lp-hd198242198297%_ + _%lp-hd197073197128%_ '0)))) (begin - (let ((_g202737_ + (let ((_g201706_ (let () (declare (not safe)) - (if (##values? _g202736_) - (##vector-length _g202736_) + (if (##values? _g201705_) + (##vector-length _g201705_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g202737_ 2))) + (##fx= _g201706_ 2))) (error "Context expects 2 values" - _g202737_))) - (let ((_%target198246198303%_ + _g201706_))) + (let ((_%target197077197134%_ (let () (declare (not safe)) - (##vector-ref _g202736_ 0))) - (_%tl198248198306%_ + (##vector-ref _g201705_ 0))) + (_%tl197079197137%_ (let () (declare (not safe)) - (##vector-ref _g202736_ 1)))) + (##vector-ref _g201705_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl198248198306%_)) - (letrec ((_%loop198249198309%_ - (lambda (_%hd198247198313%_ - _%clause198253198316%_) + (gx#stx-null? _%tl197079197137%_)) + (letrec ((_%loop197080197140%_ + (lambda (_%hd197078197144%_ + _%clause197084197147%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd198247198313%_)) - (let ((_%e198250198319%_ + _%hd197078197144%_)) + (let ((_%e197081197150%_ (let () (declare (not safe)) (gx#syntax-e - _%hd198247198313%_)))) - (let ((_%lp-hd198251198323%_ + _%hd197078197144%_)))) + (let ((_%lp-hd197082197154%_ (let () (declare (not safe)) - (##car _%e198250198319%_))) - (_%lp-tl198252198326%_ + (##car _%e197081197150%_))) + (_%lp-tl197083197157%_ (let () (declare (not safe)) - (##cdr _%e198250198319%_)))) - (_%loop198249198309%_ - _%lp-tl198252198326%_ - (cons _%lp-hd198251198323%_ - _%clause198253198316%_)))) - (let ((_%clause198254198329%_ - (reverse _%clause198253198316%_))) - (_%loop198240198283%_ - _%lp-tl198243198300%_ - (cons _%clause198254198329%_ - _%clause198244198290%_))))))) - (_%loop198249198309%_ - _%target198246198303%_ + (##cdr _%e197081197150%_)))) + (_%loop197080197140%_ + _%lp-tl197083197157%_ + (cons _%lp-hd197082197154%_ + _%clause197084197147%_)))) + (let ((_%clause197085197160%_ + (reverse _%clause197084197147%_))) + (_%loop197071197114%_ + _%lp-tl197074197131%_ + (cons _%clause197085197160%_ + _%clause197075197121%_))))))) + (_%loop197080197140%_ + _%target197077197134%_ '())) - (_%g198231198260%_ _%g198232198264%_))))) - (_%g198231198260%_ _%g198232198264%_)))) - (let ((_%clause198245198333%_ - (reverse _%clause198244198290%_))) - ((lambda (_%L198337%_) + (_%g197062197091%_ _%g197063197095%_))))) + (_%g197062197091%_ _%g197063197095%_)))) + (let ((_%clause197076197164%_ + (reverse _%clause197075197121%_))) + ((lambda (_%L197168%_) (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 ((__tmp202738 - (lambda (_%g198352198357%_ - _%g198353198360%_) + (let ((__tmp201707 + (lambda (_%g197183197188%_ + _%g197184197191%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda)) - (let ((__tmp202739 + (let ((__tmp201708 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g198354198363%_ _%g198355198366%_) - (cons _%g198354198363%_ _%g198355198366%_)))) + (lambda (_%g197185197194%_ _%g197186197197%_) + (cons _%g197185197194%_ _%g197186197197%_)))) (declare (not safe)) - (__foldr1 __tmp202739 '() _%g198352198357%_))) - _%g198353198360%_)))) + (__foldr1 __tmp201708 '() _%g197183197188%_))) + _%g197184197191%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp202738 + __tmp201707 '() - _%L198337%_))) + _%L197168%_))) '()))) - _%clause198245198333%_)))))) + _%clause197076197164%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop198240198283%_ - _%target198237198277%_ + (_%loop197071197114%_ + _%target197068197108%_ '())) - (_%g198231198260%_ - _%g198232198264%_))))) - (_%g198231198260%_ _%g198232198264%_)))) - (_%g198231198260%_ _%g198232198264%_))))) - (_%g198230198369%_ _%$stx198227%_)))) + (_%g197062197091%_ + _%g197063197095%_))))) + (_%g197062197091%_ _%g197063197095%_)))) + (_%g197062197091%_ _%g197063197095%_))))) + (_%g197061197200%_ _%$stx197058%_)))) (define |gxc[:0:]#@kw-lambda| - (lambda (_%$stx198375%_) - (let* ((_%g198379198397%_ - (lambda (_%g198380198393%_) + (lambda (_%$stx197206%_) + (let* ((_%g197210197228%_ + (lambda (_%g197211197224%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g198380198393%_)))) - (_%g198378198452%_ - (lambda (_%g198380198401%_) + _%g197211197224%_)))) + (_%g197209197283%_ + (lambda (_%g197211197232%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g198380198401%_)) - (let ((_%e198385198404%_ + (gx#stx-pair? _%g197211197232%_)) + (let ((_%e197216197235%_ (let () (declare (not safe)) - (gx#syntax-e _%g198380198401%_)))) - (let ((_%hd198384198408%_ + (gx#syntax-e _%g197211197232%_)))) + (let ((_%hd197215197239%_ (let () (declare (not safe)) - (##car _%e198385198404%_))) - (_%tl198383198411%_ + (##car _%e197216197235%_))) + (_%tl197214197242%_ (let () (declare (not safe)) - (##cdr _%e198385198404%_)))) + (##cdr _%e197216197235%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198383198411%_)) - (let ((_%e198388198414%_ + (gx#stx-pair? _%tl197214197242%_)) + (let ((_%e197219197245%_ (let () (declare (not safe)) - (gx#syntax-e _%tl198383198411%_)))) - (let ((_%hd198387198418%_ + (gx#syntax-e _%tl197214197242%_)))) + (let ((_%hd197218197249%_ (let () (declare (not safe)) - (##car _%e198388198414%_))) - (_%tl198386198421%_ + (##car _%e197219197245%_))) + (_%tl197217197252%_ (let () (declare (not safe)) - (##cdr _%e198388198414%_)))) + (##cdr _%e197219197245%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198386198421%_)) - (let ((_%e198391198424%_ + (gx#stx-pair? _%tl197217197252%_)) + (let ((_%e197222197255%_ (let () (declare (not safe)) (gx#syntax-e - _%tl198386198421%_)))) - (let ((_%hd198390198428%_ + _%tl197217197252%_)))) + (let ((_%hd197221197259%_ (let () (declare (not safe)) - (##car _%e198391198424%_))) - (_%tl198389198431%_ + (##car _%e197222197255%_))) + (_%tl197220197262%_ (let () (declare (not safe)) - (##cdr _%e198391198424%_)))) + (##cdr _%e197222197255%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198389198431%_)) - ((lambda (_%L198434%_ - _%L198436%_) + _%tl197220197262%_)) + ((lambda (_%L197265%_ + _%L197267%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2409,85 +2423,85 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L198436%_ '())) + (cons _%L197267%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L198434%_ '())) + (cons _%L197265%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd198390198428%_ - _%hd198387198418%_) - (_%g198379198397%_ - _%g198380198401%_)))) - (_%g198379198397%_ _%g198380198401%_)))) - (_%g198379198397%_ _%g198380198401%_)))) - (_%g198379198397%_ _%g198380198401%_))))) - (_%g198378198452%_ _%$stx198375%_)))) + _%hd197221197259%_ + _%hd197218197249%_) + (_%g197210197228%_ + _%g197211197232%_)))) + (_%g197210197228%_ _%g197211197232%_)))) + (_%g197210197228%_ _%g197211197232%_)))) + (_%g197210197228%_ _%g197211197232%_))))) + (_%g197209197283%_ _%$stx197206%_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_%$stx198456%_) - (let* ((_%g198460198478%_ - (lambda (_%g198461198474%_) + (lambda (_%$stx197287%_) + (let* ((_%g197291197309%_ + (lambda (_%g197292197305%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g198461198474%_)))) - (_%g198459198533%_ - (lambda (_%g198461198482%_) + _%g197292197305%_)))) + (_%g197290197364%_ + (lambda (_%g197292197313%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g198461198482%_)) - (let ((_%e198466198485%_ + (gx#stx-pair? _%g197292197313%_)) + (let ((_%e197297197316%_ (let () (declare (not safe)) - (gx#syntax-e _%g198461198482%_)))) - (let ((_%hd198465198489%_ + (gx#syntax-e _%g197292197313%_)))) + (let ((_%hd197296197320%_ (let () (declare (not safe)) - (##car _%e198466198485%_))) - (_%tl198464198492%_ + (##car _%e197297197316%_))) + (_%tl197295197323%_ (let () (declare (not safe)) - (##cdr _%e198466198485%_)))) + (##cdr _%e197297197316%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198464198492%_)) - (let ((_%e198469198495%_ + (gx#stx-pair? _%tl197295197323%_)) + (let ((_%e197300197326%_ (let () (declare (not safe)) - (gx#syntax-e _%tl198464198492%_)))) - (let ((_%hd198468198499%_ + (gx#syntax-e _%tl197295197323%_)))) + (let ((_%hd197299197330%_ (let () (declare (not safe)) - (##car _%e198469198495%_))) - (_%tl198467198502%_ + (##car _%e197300197326%_))) + (_%tl197298197333%_ (let () (declare (not safe)) - (##cdr _%e198469198495%_)))) + (##cdr _%e197300197326%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198467198502%_)) - (let ((_%e198472198505%_ + (gx#stx-pair? _%tl197298197333%_)) + (let ((_%e197303197336%_ (let () (declare (not safe)) (gx#syntax-e - _%tl198467198502%_)))) - (let ((_%hd198471198509%_ + _%tl197298197333%_)))) + (let ((_%hd197302197340%_ (let () (declare (not safe)) - (##car _%e198472198505%_))) - (_%tl198470198512%_ + (##car _%e197303197336%_))) + (_%tl197301197343%_ (let () (declare (not safe)) - (##cdr _%e198472198505%_)))) + (##cdr _%e197303197336%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198470198512%_)) - ((lambda (_%L198515%_ - _%L198517%_) + _%tl197301197343%_)) + ((lambda (_%L197346%_ + _%L197348%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2497,147 +2511,147 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L198517%_ '())) + (cons _%L197348%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L198515%_ '())) + (cons _%L197346%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd198471198509%_ - _%hd198468198499%_) - (_%g198460198478%_ - _%g198461198482%_)))) - (_%g198460198478%_ _%g198461198482%_)))) - (_%g198460198478%_ _%g198461198482%_)))) - (_%g198460198478%_ _%g198461198482%_))))) - (_%g198459198533%_ _%$stx198456%_)))) + _%hd197302197340%_ + _%hd197299197330%_) + (_%g197291197309%_ + _%g197292197313%_)))) + (_%g197291197309%_ _%g197292197313%_)))) + (_%g197291197309%_ _%g197292197313%_)))) + (_%g197291197309%_ _%g197292197313%_))))) + (_%g197290197364%_ _%$stx197287%_)))) (define |gxc[:0:]#declare-inline-rules!| - (lambda (_%$stx198537%_) - (let* ((_%g198541198570%_ - (lambda (_%g198542198566%_) + (lambda (_%$stx197368%_) + (let* ((_%g197372197401%_ + (lambda (_%g197373197397%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g198542198566%_)))) - (_%g198540198670%_ - (lambda (_%g198542198574%_) + _%g197373197397%_)))) + (_%g197371197501%_ + (lambda (_%g197373197405%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g198542198574%_)) - (let ((_%e198547198577%_ + (gx#stx-pair? _%g197373197405%_)) + (let ((_%e197378197408%_ (let () (declare (not safe)) - (gx#syntax-e _%g198542198574%_)))) - (let ((_%hd198546198581%_ + (gx#syntax-e _%g197373197405%_)))) + (let ((_%hd197377197412%_ (let () (declare (not safe)) - (##car _%e198547198577%_))) - (_%tl198545198584%_ + (##car _%e197378197408%_))) + (_%tl197376197415%_ (let () (declare (not safe)) - (##cdr _%e198547198577%_)))) + (##cdr _%e197378197408%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl198545198584%_)) - (let ((_g202740_ + (gx#stx-pair/null? _%tl197376197415%_)) + (let ((_g201709_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl198545198584%_ + _%tl197376197415%_ '0)))) (begin - (let ((_g202741_ + (let ((_g201710_ (let () (declare (not safe)) - (if (##values? _g202740_) - (##vector-length _g202740_) + (if (##values? _g201709_) + (##vector-length _g201709_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g202741_ 2))) + (##fx= _g201710_ 2))) (error "Context expects 2 values" - _g202741_))) - (let ((_%target198548198587%_ + _g201710_))) + (let ((_%target197379197418%_ (let () (declare (not safe)) - (##vector-ref _g202740_ 0))) - (_%tl198550198590%_ + (##vector-ref _g201709_ 0))) + (_%tl197381197421%_ (let () (declare (not safe)) - (##vector-ref _g202740_ 1)))) + (##vector-ref _g201709_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl198550198590%_)) - (letrec ((_%loop198551198593%_ - (lambda (_%hd198549198597%_ - _%rule198555198600%_ - _%proc198556198602%_) + (gx#stx-null? _%tl197381197421%_)) + (letrec ((_%loop197382197424%_ + (lambda (_%hd197380197428%_ + _%rule197386197431%_ + _%proc197387197433%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd198549198597%_)) - (let ((_%e198552198605%_ + _%hd197380197428%_)) + (let ((_%e197383197436%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd198549198597%_)))) - (let ((_%lp-hd198553198609%_ + (gx#syntax-e _%hd197380197428%_)))) + (let ((_%lp-hd197384197440%_ (let () (declare (not safe)) - (##car _%e198552198605%_))) - (_%lp-tl198554198612%_ + (##car _%e197383197436%_))) + (_%lp-tl197385197443%_ (let () (declare (not safe)) - (##cdr _%e198552198605%_)))) + (##cdr _%e197383197436%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd198553198609%_)) - (let ((_%e198561198615%_ + (gx#stx-pair? _%lp-hd197384197440%_)) + (let ((_%e197392197446%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd198553198609%_)))) - (let ((_%hd198560198619%_ + (gx#syntax-e _%lp-hd197384197440%_)))) + (let ((_%hd197391197450%_ (let () (declare (not safe)) - (##car _%e198561198615%_))) - (_%tl198559198622%_ + (##car _%e197392197446%_))) + (_%tl197390197453%_ (let () (declare (not safe)) - (##cdr _%e198561198615%_)))) + (##cdr _%e197392197446%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198559198622%_)) - (let ((_%e198564198625%_ + (gx#stx-pair? _%tl197390197453%_)) + (let ((_%e197395197456%_ (let () (declare (not safe)) - (gx#syntax-e _%tl198559198622%_)))) - (let ((_%hd198563198629%_ + (gx#syntax-e _%tl197390197453%_)))) + (let ((_%hd197394197460%_ (let () (declare (not safe)) - (##car _%e198564198625%_))) - (_%tl198562198632%_ + (##car _%e197395197456%_))) + (_%tl197393197463%_ (let () (declare (not safe)) - (##cdr _%e198564198625%_)))) + (##cdr _%e197395197456%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl198562198632%_)) - (_%loop198551198593%_ - _%lp-tl198554198612%_ - (cons _%hd198563198629%_ - _%rule198555198600%_) - (cons _%hd198560198619%_ - _%proc198556198602%_)) - (_%g198541198570%_ - _%g198542198574%_)))) - (_%g198541198570%_ _%g198542198574%_)))) - (_%g198541198570%_ _%g198542198574%_)))) - (let ((_%rule198557198635%_ (reverse _%rule198555198600%_)) - (_%proc198558198638%_ (reverse _%proc198556198602%_))) - ((lambda (_%L198641%_ _%L198643%_) + (gx#stx-null? _%tl197393197463%_)) + (_%loop197382197424%_ + _%lp-tl197385197443%_ + (cons _%hd197394197460%_ + _%rule197386197431%_) + (cons _%hd197391197450%_ + _%proc197387197433%_)) + (_%g197372197401%_ + _%g197373197405%_)))) + (_%g197372197401%_ _%g197373197405%_)))) + (_%g197372197401%_ _%g197373197405%_)))) + (let ((_%rule197388197466%_ (reverse _%rule197386197431%_)) + (_%proc197389197469%_ (reverse _%proc197387197433%_))) + ((lambda (_%L197472%_ _%L197474%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2645,103 +2659,103 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L198641%_ - _%L198643%_)) - (let ((__tmp202742 - (lambda (_%g198658198662%_ - _%g198659198665%_ - _%g198660198667%_) + _%L197472%_ + _%L197474%_)) + (let ((__tmp201711 + (lambda (_%g197489197493%_ + _%g197490197496%_ + _%g197491197498%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-inline-rule!)) - (cons _%g198659198665%_ - (cons _%g198658198662%_ + (cons _%g197490197496%_ + (cons _%g197489197493%_ '()))) - _%g198660198667%_)))) + _%g197491197498%_)))) (declare (not safe)) (__foldr2 - __tmp202742 + __tmp201711 '() - _%L198641%_ - _%L198643%_))))) - _%rule198557198635%_ - _%proc198558198638%_)))))) + _%L197472%_ + _%L197474%_))))) + _%rule197388197466%_ + _%proc197389197469%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop198551198593%_ - _%target198548198587%_ + (_%loop197382197424%_ + _%target197379197418%_ '() '())) - (_%g198541198570%_ - _%g198542198574%_))))) - (_%g198541198570%_ _%g198542198574%_)))) - (_%g198541198570%_ _%g198542198574%_))))) - (_%g198540198670%_ _%$stx198537%_)))) + (_%g197372197401%_ + _%g197373197405%_))))) + (_%g197372197401%_ _%g197373197405%_)))) + (_%g197372197401%_ _%g197373197405%_))))) + (_%g197371197501%_ _%$stx197368%_)))) (define |gxc[:0:]#declare-inline-rule!| - (lambda (_%$stx198675%_) - (let* ((_%g198679198697%_ - (lambda (_%g198680198693%_) + (lambda (_%$stx197506%_) + (let* ((_%g197510197528%_ + (lambda (_%g197511197524%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g198680198693%_)))) - (_%g198678198752%_ - (lambda (_%g198680198701%_) + _%g197511197524%_)))) + (_%g197509197583%_ + (lambda (_%g197511197532%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g198680198701%_)) - (let ((_%e198685198704%_ + (gx#stx-pair? _%g197511197532%_)) + (let ((_%e197516197535%_ (let () (declare (not safe)) - (gx#syntax-e _%g198680198701%_)))) - (let ((_%hd198684198708%_ + (gx#syntax-e _%g197511197532%_)))) + (let ((_%hd197515197539%_ (let () (declare (not safe)) - (##car _%e198685198704%_))) - (_%tl198683198711%_ + (##car _%e197516197535%_))) + (_%tl197514197542%_ (let () (declare (not safe)) - (##cdr _%e198685198704%_)))) + (##cdr _%e197516197535%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198683198711%_)) - (let ((_%e198688198714%_ + (gx#stx-pair? _%tl197514197542%_)) + (let ((_%e197519197545%_ (let () (declare (not safe)) - (gx#syntax-e _%tl198683198711%_)))) - (let ((_%hd198687198718%_ + (gx#syntax-e _%tl197514197542%_)))) + (let ((_%hd197518197549%_ (let () (declare (not safe)) - (##car _%e198688198714%_))) - (_%tl198686198721%_ + (##car _%e197519197545%_))) + (_%tl197517197552%_ (let () (declare (not safe)) - (##cdr _%e198688198714%_)))) + (##cdr _%e197519197545%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198686198721%_)) - (let ((_%e198691198724%_ + (gx#stx-pair? _%tl197517197552%_)) + (let ((_%e197522197555%_ (let () (declare (not safe)) (gx#syntax-e - _%tl198686198721%_)))) - (let ((_%hd198690198728%_ + _%tl197517197552%_)))) + (let ((_%hd197521197559%_ (let () (declare (not safe)) - (##car _%e198691198724%_))) - (_%tl198689198731%_ + (##car _%e197522197555%_))) + (_%tl197520197562%_ (let () (declare (not safe)) - (##cdr _%e198691198724%_)))) + (##cdr _%e197522197555%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198689198731%_)) - ((lambda (_%L198734%_ - _%L198736%_) + _%tl197520197562%_)) + ((lambda (_%L197565%_ + _%L197567%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2761,7 +2775,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L198736%_ '())) + (cons _%L197567%_ '())) '())) '())) (cons (cons (let () @@ -2791,7 +2805,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'type)) '())) - (cons _%L198734%_ '()))) + (cons _%L197565%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare (not safe)) @@ -2803,39 +2817,39 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L198736%_ '())) + (cons _%L197567%_ '())) (cons '"; ignoring inline rule" '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd198690198728%_ - _%hd198687198718%_) - (_%g198679198697%_ - _%g198680198701%_)))) - (_%g198679198697%_ _%g198680198701%_)))) - (_%g198679198697%_ _%g198680198701%_)))) - (_%g198679198697%_ _%g198680198701%_))))) - (_%g198678198752%_ _%$stx198675%_)))) + _%hd197521197559%_ + _%hd197518197549%_) + (_%g197510197528%_ + _%g197511197532%_)))) + (_%g197510197528%_ _%g197511197532%_)))) + (_%g197510197528%_ _%g197511197532%_)))) + (_%g197510197528%_ _%g197511197532%_))))) + (_%g197509197583%_ _%$stx197506%_)))) (define |gxc[:0:]#declare-primitive-predicates| - (lambda (_%$stx198756%_) - (let* ((_%__stx202222202223%_ _%$stx198756%_) - (_%g198761198786%_ + (lambda (_%$stx197587%_) + (let* ((_%__stx201191201192%_ _%$stx197587%_) + (_%g197592197617%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx202222202223%_))))) - (let ((_%__kont202225202226%_ + _%__stx201191201192%_))))) + (let ((_%__kont201194201195%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont202227202228%_ - (lambda (_%L198833%_ _%L198835%_ _%L198836%_) + (_%__kont201196201197%_ + (lambda (_%L197664%_ _%L197666%_ _%L197667%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2844,121 +2858,121 @@ (gx#datum->syntax__0 '#f 'declare-primitive-predicate)) - (cons _%L198836%_ (cons _%L198835%_ '()))) + (cons _%L197667%_ (cons _%L197666%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-predicates)) - _%L198833%_) + _%L197664%_) '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx202222202223%_)) - (let ((_%e198765198862%_ + (gx#stx-pair? _%__stx201191201192%_)) + (let ((_%e197596197693%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx202222202223%_)))) - (let ((_%tl198763198869%_ + (gx#syntax-e _%__stx201191201192%_)))) + (let ((_%tl197594197700%_ (let () (declare (not safe)) - (##cdr _%e198765198862%_))) - (_%hd198764198866%_ + (##cdr _%e197596197693%_))) + (_%hd197595197697%_ (let () (declare (not safe)) - (##car _%e198765198862%_)))) + (##car _%e197596197693%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl198763198869%_)) - (_%__kont202225202226%_) + (gx#stx-null? _%tl197594197700%_)) + (_%__kont201194201195%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198763198869%_)) - (let ((_%e198774198803%_ + (gx#stx-pair? _%tl197594197700%_)) + (let ((_%e197605197634%_ (let () (declare (not safe)) - (gx#syntax-e _%tl198763198869%_)))) - (let ((_%tl198772198810%_ + (gx#syntax-e _%tl197594197700%_)))) + (let ((_%tl197603197641%_ (let () (declare (not safe)) - (##cdr _%e198774198803%_))) - (_%hd198773198807%_ + (##cdr _%e197605197634%_))) + (_%hd197604197638%_ (let () (declare (not safe)) - (##car _%e198774198803%_)))) + (##car _%e197605197634%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd198773198807%_)) - (let ((_%e198777198813%_ + (gx#stx-pair? _%hd197604197638%_)) + (let ((_%e197608197644%_ (let () (declare (not safe)) (gx#syntax-e - _%hd198773198807%_)))) - (let ((_%tl198775198820%_ + _%hd197604197638%_)))) + (let ((_%tl197606197651%_ (let () (declare (not safe)) - (##cdr _%e198777198813%_))) - (_%hd198776198817%_ + (##cdr _%e197608197644%_))) + (_%hd197607197648%_ (let () (declare (not safe)) - (##car _%e198777198813%_)))) + (##car _%e197608197644%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl198775198820%_)) - (let ((_%e198780198823%_ + _%tl197606197651%_)) + (let ((_%e197611197654%_ (let () (declare (not safe)) (gx#syntax-e - _%tl198775198820%_)))) - (let ((_%tl198778198830%_ + _%tl197606197651%_)))) + (let ((_%tl197609197661%_ (let () (declare (not safe)) - (##cdr _%e198780198823%_))) - (_%hd198779198827%_ + (##cdr _%e197611197654%_))) + (_%hd197610197658%_ (let () (declare (not safe)) - (##car _%e198780198823%_)))) + (##car _%e197611197654%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198778198830%_)) - (_%__kont202227202228%_ - _%tl198772198810%_ - _%hd198779198827%_ - _%hd198776198817%_) + _%tl197609197661%_)) + (_%__kont201196201197%_ + _%tl197603197641%_ + _%hd197610197658%_ + _%hd197607197648%_) (let () (declare (not safe)) - (_%g198761198786%_))))) + (_%g197592197617%_))))) (let () (declare (not safe)) - (_%g198761198786%_))))) + (_%g197592197617%_))))) (let () (declare (not safe)) - (_%g198761198786%_))))) + (_%g197592197617%_))))) (let () (declare (not safe)) - (_%g198761198786%_)))))) - (let () (declare (not safe)) (_%g198761198786%_))))))) + (_%g197592197617%_)))))) + (let () (declare (not safe)) (_%g197592197617%_))))))) (define |gxc[:0:]#declare-primitive-procedures| - (lambda (_%$stx198880%_) - (let* ((_%__stx202266202267%_ _%$stx198880%_) - (_%g198885198916%_ + (lambda (_%$stx197711%_) + (let* ((_%__stx201235201236%_ _%$stx197711%_) + (_%g197716197747%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx202266202267%_))))) - (let ((_%__kont202269202270%_ + _%__stx201235201236%_))))) + (let ((_%__kont201238201239%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont202271202272%_ - (lambda (_%L198983%_ _%L198985%_ _%L198986%_) + (_%__kont201240201241%_ + (lambda (_%L197814%_ _%L197816%_ _%L197817%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2967,1905 +2981,1884 @@ (gx#datum->syntax__0 '#f 'declare-primitive-procedure)) - (cons _%L198986%_ - (let ((__tmp202743 - (lambda (_%g199006199009%_ - _%g199007199012%_) - (cons _%g199006199009%_ - _%g199007199012%_)))) + (cons _%L197817%_ + (let ((__tmp201712 + (lambda (_%g197837197840%_ + _%g197838197843%_) + (cons _%g197837197840%_ + _%g197838197843%_)))) (declare (not safe)) (__foldr1 - __tmp202743 + __tmp201712 '() - _%L198985%_)))) + _%L197816%_)))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-procedures)) - _%L198983%_) + _%L197814%_) '())))))) - (let ((_%__match202309202310%_ - (lambda (_%e198895198923%_ - _%hd198894198927%_ - _%tl198893198930%_ - _%e198898198933%_ - _%hd198897198937%_ - _%tl198896198940%_ - _%e198901198943%_ - _%hd198900198947%_ - _%tl198899198950%_ - _%__splice202273202274%_ - _%target198902198953%_ - _%tl198904198956%_) - (letrec ((_%loop198905198959%_ - (lambda (_%hd198903198963%_ _%sig198909198966%_) + (let ((_%__match201278201279%_ + (lambda (_%e197726197754%_ + _%hd197725197758%_ + _%tl197724197761%_ + _%e197729197764%_ + _%hd197728197768%_ + _%tl197727197771%_ + _%e197732197774%_ + _%hd197731197778%_ + _%tl197730197781%_ + _%__splice201242201243%_ + _%target197733197784%_ + _%tl197735197787%_) + (letrec ((_%loop197736197790%_ + (lambda (_%hd197734197794%_ _%sig197740197797%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd198903198963%_)) - (let ((_%e198906198969%_ + (gx#stx-pair? _%hd197734197794%_)) + (let ((_%e197737197800%_ (let () (declare (not safe)) (gx#syntax-e - _%hd198903198963%_)))) - (let ((_%lp-tl198908198976%_ + _%hd197734197794%_)))) + (let ((_%lp-tl197739197807%_ (let () (declare (not safe)) - (##cdr _%e198906198969%_))) - (_%lp-hd198907198973%_ + (##cdr _%e197737197800%_))) + (_%lp-hd197738197804%_ (let () (declare (not safe)) - (##car _%e198906198969%_)))) - (_%loop198905198959%_ - _%lp-tl198908198976%_ - (cons _%lp-hd198907198973%_ - _%sig198909198966%_)))) - (let ((_%sig198910198979%_ - (reverse _%sig198909198966%_))) - (_%__kont202271202272%_ - _%tl198896198940%_ - _%sig198910198979%_ - _%hd198900198947%_)))))) - (_%loop198905198959%_ _%target198902198953%_ '()))))) + (##car _%e197737197800%_)))) + (_%loop197736197790%_ + _%lp-tl197739197807%_ + (cons _%lp-hd197738197804%_ + _%sig197740197797%_)))) + (let ((_%sig197741197810%_ + (reverse _%sig197740197797%_))) + (_%__kont201240201241%_ + _%tl197727197771%_ + _%sig197741197810%_ + _%hd197731197778%_)))))) + (_%loop197736197790%_ _%target197733197784%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx202266202267%_)) - (let ((_%e198889199022%_ + (gx#stx-pair? _%__stx201235201236%_)) + (let ((_%e197720197853%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx202266202267%_)))) - (let ((_%tl198887199029%_ + (gx#syntax-e _%__stx201235201236%_)))) + (let ((_%tl197718197860%_ (let () (declare (not safe)) - (##cdr _%e198889199022%_))) - (_%hd198888199026%_ + (##cdr _%e197720197853%_))) + (_%hd197719197857%_ (let () (declare (not safe)) - (##car _%e198889199022%_)))) + (##car _%e197720197853%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl198887199029%_)) - (_%__kont202269202270%_) + (gx#stx-null? _%tl197718197860%_)) + (_%__kont201238201239%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198887199029%_)) - (let ((_%e198898198933%_ + (gx#stx-pair? _%tl197718197860%_)) + (let ((_%e197729197764%_ (let () (declare (not safe)) - (gx#syntax-e _%tl198887199029%_)))) - (let ((_%tl198896198940%_ + (gx#syntax-e _%tl197718197860%_)))) + (let ((_%tl197727197771%_ (let () (declare (not safe)) - (##cdr _%e198898198933%_))) - (_%hd198897198937%_ + (##cdr _%e197729197764%_))) + (_%hd197728197768%_ (let () (declare (not safe)) - (##car _%e198898198933%_)))) + (##car _%e197729197764%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd198897198937%_)) - (let ((_%e198901198943%_ + (gx#stx-pair? _%hd197728197768%_)) + (let ((_%e197732197774%_ (let () (declare (not safe)) (gx#syntax-e - _%hd198897198937%_)))) - (let ((_%tl198899198950%_ + _%hd197728197768%_)))) + (let ((_%tl197730197781%_ (let () (declare (not safe)) - (##cdr _%e198901198943%_))) - (_%hd198900198947%_ + (##cdr _%e197732197774%_))) + (_%hd197731197778%_ (let () (declare (not safe)) - (##car _%e198901198943%_)))) + (##car _%e197732197774%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl198899198950%_)) - (let ((_%__splice202273202274%_ + _%tl197730197781%_)) + (let ((_%__splice201242201243%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl198899198950%_ + _%tl197730197781%_ '0)))) - (let ((_%tl198904198956%_ + (let ((_%tl197735197787%_ (let () (declare (not safe)) (##vector-ref - _%__splice202273202274%_ + _%__splice201242201243%_ '1))) - (_%target198902198953%_ + (_%target197733197784%_ (let () (declare (not safe)) (##vector-ref - _%__splice202273202274%_ + _%__splice201242201243%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198904198956%_)) - (_%__match202309202310%_ - _%e198889199022%_ - _%hd198888199026%_ - _%tl198887199029%_ - _%e198898198933%_ - _%hd198897198937%_ - _%tl198896198940%_ - _%e198901198943%_ - _%hd198900198947%_ - _%tl198899198950%_ - _%__splice202273202274%_ - _%target198902198953%_ - _%tl198904198956%_) + _%tl197735197787%_)) + (_%__match201278201279%_ + _%e197720197853%_ + _%hd197719197857%_ + _%tl197718197860%_ + _%e197729197764%_ + _%hd197728197768%_ + _%tl197727197771%_ + _%e197732197774%_ + _%hd197731197778%_ + _%tl197730197781%_ + _%__splice201242201243%_ + _%target197733197784%_ + _%tl197735197787%_) (let () (declare (not safe)) - (_%g198885198916%_))))) + (_%g197716197747%_))))) (let () (declare (not safe)) - (_%g198885198916%_))))) + (_%g197716197747%_))))) (let () (declare (not safe)) - (_%g198885198916%_))))) + (_%g197716197747%_))))) (let () (declare (not safe)) - (_%g198885198916%_)))))) - (let () (declare (not safe)) (_%g198885198916%_)))))))) + (_%g197716197747%_)))))) + (let () (declare (not safe)) (_%g197716197747%_)))))))) (define |gxc[:0:]#declare-primitive-procedure| - (lambda (_%$stx199041%_) - (let* ((_%__stx202312202313%_ _%$stx199041%_) - (_%g199046199093%_ + (lambda (_%$stx197872%_) + (let* ((_%__stx201281201282%_ _%$stx197872%_) + (_%g197877197924%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx202312202313%_))))) - (let ((_%__kont202315202316%_ - (lambda (_%L199255%_ _%L199257%_) + _%__stx201281201282%_))))) + (let ((_%__kont201284201285%_ + (lambda (_%L198086%_ _%L198088%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-case-lambda)) - (cons _%L199257%_ - (let ((__tmp202744 - (lambda (_%g199277199280%_ - _%g199278199283%_) - (cons _%g199277199280%_ - _%g199278199283%_)))) + (cons _%L198088%_ + (let ((__tmp201713 + (lambda (_%g198108198111%_ + _%g198109198114%_) + (cons _%g198108198111%_ + _%g198109198114%_)))) (declare (not safe)) - (__foldr1 __tmp202744 '() _%L199255%_)))))) - (_%__kont202319202320%_ - (lambda (_%L199150%_ _%L199152%_) + (__foldr1 __tmp201713 '() _%L198086%_)))))) + (_%__kont201288201289%_ + (lambda (_%L197981%_ _%L197983%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-lambda)) - (cons _%L199152%_ - (let ((__tmp202745 - (lambda (_%g199169199172%_ - _%g199170199175%_) - (cons _%g199169199172%_ - _%g199170199175%_)))) + (cons _%L197983%_ + (let ((__tmp201714 + (lambda (_%g198000198003%_ + _%g198001198006%_) + (cons _%g198000198003%_ + _%g198001198006%_)))) (declare (not safe)) - (__foldr1 __tmp202745 '() _%L199150%_))))))) - (let* ((_%__match202379202380%_ - (lambda (_%e199075199100%_ - _%hd199074199104%_ - _%tl199073199107%_ - _%e199078199110%_ - _%hd199077199114%_ - _%tl199076199117%_ - _%__splice202321202322%_ - _%target199079199120%_ - _%tl199081199123%_) - (letrec ((_%loop199082199126%_ - (lambda (_%hd199080199130%_ - _%sig199086199133%_) + (__foldr1 __tmp201714 '() _%L197981%_))))))) + (let* ((_%__match201348201349%_ + (lambda (_%e197906197931%_ + _%hd197905197935%_ + _%tl197904197938%_ + _%e197909197941%_ + _%hd197908197945%_ + _%tl197907197948%_ + _%__splice201290201291%_ + _%target197910197951%_ + _%tl197912197954%_) + (letrec ((_%loop197913197957%_ + (lambda (_%hd197911197961%_ + _%sig197917197964%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199080199130%_)) - (let ((_%e199083199136%_ + (gx#stx-pair? _%hd197911197961%_)) + (let ((_%e197914197967%_ (let () (declare (not safe)) (gx#syntax-e - _%hd199080199130%_)))) - (let ((_%lp-tl199085199143%_ + _%hd197911197961%_)))) + (let ((_%lp-tl197916197974%_ (let () (declare (not safe)) - (##cdr _%e199083199136%_))) - (_%lp-hd199084199140%_ + (##cdr _%e197914197967%_))) + (_%lp-hd197915197971%_ (let () (declare (not safe)) - (##car _%e199083199136%_)))) - (_%loop199082199126%_ - _%lp-tl199085199143%_ - (cons _%lp-hd199084199140%_ - _%sig199086199133%_)))) - (let ((_%sig199087199146%_ - (reverse _%sig199086199133%_))) - (_%__kont202319202320%_ - _%sig199087199146%_ - _%hd199077199114%_)))))) - (_%loop199082199126%_ _%target199079199120%_ '())))) - (_%__match202371202372%_ - (lambda (_%e199075199100%_ - _%hd199074199104%_ - _%tl199073199107%_ - _%e199078199110%_ - _%hd199077199114%_ - _%tl199076199117%_) + (##car _%e197914197967%_)))) + (_%loop197913197957%_ + _%lp-tl197916197974%_ + (cons _%lp-hd197915197971%_ + _%sig197917197964%_)))) + (let ((_%sig197918197977%_ + (reverse _%sig197917197964%_))) + (_%__kont201288201289%_ + _%sig197918197977%_ + _%hd197908197945%_)))))) + (_%loop197913197957%_ _%target197910197951%_ '())))) + (_%__match201340201341%_ + (lambda (_%e197906197931%_ + _%hd197905197935%_ + _%tl197904197938%_ + _%e197909197941%_ + _%hd197908197945%_ + _%tl197907197948%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl199076199117%_)) - (let ((_%__splice202321202322%_ + (gx#stx-pair/null? _%tl197907197948%_)) + (let ((_%__splice201290201291%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl199076199117%_ + _%tl197907197948%_ '0)))) - (let ((_%tl199081199123%_ + (let ((_%tl197912197954%_ (let () (declare (not safe)) (##vector-ref - _%__splice202321202322%_ + _%__splice201290201291%_ '1))) - (_%target199079199120%_ + (_%target197910197951%_ (let () (declare (not safe)) (##vector-ref - _%__splice202321202322%_ + _%__splice201290201291%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199081199123%_)) - (_%__match202379202380%_ - _%e199075199100%_ - _%hd199074199104%_ - _%tl199073199107%_ - _%e199078199110%_ - _%hd199077199114%_ - _%tl199076199117%_ - _%__splice202321202322%_ - _%target199079199120%_ - _%tl199081199123%_) + (gx#stx-null? _%tl197912197954%_)) + (_%__match201348201349%_ + _%e197906197931%_ + _%hd197905197935%_ + _%tl197904197938%_ + _%e197909197941%_ + _%hd197908197945%_ + _%tl197907197948%_ + _%__splice201290201291%_ + _%target197910197951%_ + _%tl197912197954%_) (let () (declare (not safe)) - (_%g199046199093%_))))) - (let () (declare (not safe)) (_%g199046199093%_))))) - (_%__match202359202360%_ - (lambda (_%e199052199185%_ - _%hd199051199189%_ - _%tl199050199192%_ - _%e199055199195%_ - _%hd199054199199%_ - _%tl199053199202%_ - _%e199058199205%_ - _%hd199057199209%_ - _%tl199056199212%_ - _%e199061199215%_ - _%hd199060199219%_ - _%tl199059199222%_ - _%__splice202317202318%_ - _%target199062199225%_ - _%tl199064199228%_) - (letrec ((_%loop199065199231%_ - (lambda (_%hd199063199235%_ - _%sig199069199238%_) + (_%g197877197924%_))))) + (let () (declare (not safe)) (_%g197877197924%_))))) + (_%__match201328201329%_ + (lambda (_%e197883198016%_ + _%hd197882198020%_ + _%tl197881198023%_ + _%e197886198026%_ + _%hd197885198030%_ + _%tl197884198033%_ + _%e197889198036%_ + _%hd197888198040%_ + _%tl197887198043%_ + _%e197892198046%_ + _%hd197891198050%_ + _%tl197890198053%_ + _%__splice201286201287%_ + _%target197893198056%_ + _%tl197895198059%_) + (letrec ((_%loop197896198062%_ + (lambda (_%hd197894198066%_ + _%sig197900198069%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199063199235%_)) - (let ((_%e199066199241%_ + (gx#stx-pair? _%hd197894198066%_)) + (let ((_%e197897198072%_ (let () (declare (not safe)) (gx#syntax-e - _%hd199063199235%_)))) - (let ((_%lp-tl199068199248%_ + _%hd197894198066%_)))) + (let ((_%lp-tl197899198079%_ (let () (declare (not safe)) - (##cdr _%e199066199241%_))) - (_%lp-hd199067199245%_ + (##cdr _%e197897198072%_))) + (_%lp-hd197898198076%_ (let () (declare (not safe)) - (##car _%e199066199241%_)))) - (_%loop199065199231%_ - _%lp-tl199068199248%_ - (cons _%lp-hd199067199245%_ - _%sig199069199238%_)))) - (let ((_%sig199070199251%_ - (reverse _%sig199069199238%_))) + (##car _%e197897198072%_)))) + (_%loop197896198062%_ + _%lp-tl197899198079%_ + (cons _%lp-hd197898198076%_ + _%sig197900198069%_)))) + (let ((_%sig197901198082%_ + (reverse _%sig197900198069%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199056199212%_)) - (_%__kont202315202316%_ - _%sig199070199251%_ - _%hd199054199199%_) - (_%__match202371202372%_ - _%e199052199185%_ - _%hd199051199189%_ - _%tl199050199192%_ - _%e199055199195%_ - _%hd199054199199%_ - _%tl199053199202%_))))))) - (_%loop199065199231%_ _%target199062199225%_ '()))))) + _%tl197887198043%_)) + (_%__kont201284201285%_ + _%sig197901198082%_ + _%hd197885198030%_) + (_%__match201340201341%_ + _%e197883198016%_ + _%hd197882198020%_ + _%tl197881198023%_ + _%e197886198026%_ + _%hd197885198030%_ + _%tl197884198033%_))))))) + (_%loop197896198062%_ _%target197893198056%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx202312202313%_)) - (let ((_%e199052199185%_ + (gx#stx-pair? _%__stx201281201282%_)) + (let ((_%e197883198016%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx202312202313%_)))) - (let ((_%tl199050199192%_ + (gx#syntax-e _%__stx201281201282%_)))) + (let ((_%tl197881198023%_ (let () (declare (not safe)) - (##cdr _%e199052199185%_))) - (_%hd199051199189%_ + (##cdr _%e197883198016%_))) + (_%hd197882198020%_ (let () (declare (not safe)) - (##car _%e199052199185%_)))) + (##car _%e197883198016%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199050199192%_)) - (let ((_%e199055199195%_ + (gx#stx-pair? _%tl197881198023%_)) + (let ((_%e197886198026%_ (let () (declare (not safe)) - (gx#syntax-e _%tl199050199192%_)))) - (let ((_%tl199053199202%_ + (gx#syntax-e _%tl197881198023%_)))) + (let ((_%tl197884198033%_ (let () (declare (not safe)) - (##cdr _%e199055199195%_))) - (_%hd199054199199%_ + (##cdr _%e197886198026%_))) + (_%hd197885198030%_ (let () (declare (not safe)) - (##car _%e199055199195%_)))) + (##car _%e197886198026%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199053199202%_)) - (let ((_%e199058199205%_ + (gx#stx-pair? _%tl197884198033%_)) + (let ((_%e197889198036%_ (let () (declare (not safe)) - (gx#syntax-e _%tl199053199202%_)))) - (let ((_%tl199056199212%_ + (gx#syntax-e _%tl197884198033%_)))) + (let ((_%tl197887198043%_ (let () (declare (not safe)) - (##cdr _%e199058199205%_))) - (_%hd199057199209%_ + (##cdr _%e197889198036%_))) + (_%hd197888198040%_ (let () (declare (not safe)) - (##car _%e199058199205%_)))) + (##car _%e197889198036%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199057199209%_)) - (let ((_%e199061199215%_ + (gx#stx-pair? _%hd197888198040%_)) + (let ((_%e197892198046%_ (let () (declare (not safe)) (gx#syntax-e - _%hd199057199209%_)))) - (let ((_%tl199059199222%_ + _%hd197888198040%_)))) + (let ((_%tl197890198053%_ (let () (declare (not safe)) - (##cdr _%e199061199215%_))) - (_%hd199060199219%_ + (##cdr _%e197892198046%_))) + (_%hd197891198050%_ (let () (declare (not safe)) - (##car _%e199061199215%_)))) + (##car _%e197892198046%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd199060199219%_)) - (if (let ((__tmp202746 - |gxc[1]#_g202747_|)) + _%hd197891198050%_)) + (if (let ((__tmp201715 + |gxc[1]#_g201716_|)) (declare (not safe)) (gx#free-identifier=? - __tmp202746 - _%hd199060199219%_)) + __tmp201715 + _%hd197891198050%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl199059199222%_)) - (let ((_%__splice202317202318%_ + _%tl197890198053%_)) + (let ((_%__splice201286201287%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl199059199222%_ '0)))) - (let ((_%tl199064199228%_ + (gx#syntax-split-splice _%tl197890198053%_ '0)))) + (let ((_%tl197895198059%_ (let () (declare (not safe)) - (##vector-ref _%__splice202317202318%_ '1))) - (_%target199062199225%_ + (##vector-ref _%__splice201286201287%_ '1))) + (_%target197893198056%_ (let () (declare (not safe)) - (##vector-ref _%__splice202317202318%_ '0)))) + (##vector-ref _%__splice201286201287%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199064199228%_)) - (_%__match202359202360%_ - _%e199052199185%_ - _%hd199051199189%_ - _%tl199050199192%_ - _%e199055199195%_ - _%hd199054199199%_ - _%tl199053199202%_ - _%e199058199205%_ - _%hd199057199209%_ - _%tl199056199212%_ - _%e199061199215%_ - _%hd199060199219%_ - _%tl199059199222%_ - _%__splice202317202318%_ - _%target199062199225%_ - _%tl199064199228%_) + (gx#stx-null? _%tl197895198059%_)) + (_%__match201328201329%_ + _%e197883198016%_ + _%hd197882198020%_ + _%tl197881198023%_ + _%e197886198026%_ + _%hd197885198030%_ + _%tl197884198033%_ + _%e197889198036%_ + _%hd197888198040%_ + _%tl197887198043%_ + _%e197892198046%_ + _%hd197891198050%_ + _%tl197890198053%_ + _%__splice201286201287%_ + _%target197893198056%_ + _%tl197895198059%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl199053199202%_)) - (let ((_%__splice202321202322%_ + (gx#stx-pair/null? _%tl197884198033%_)) + (let ((_%__splice201290201291%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl199053199202%_ + _%tl197884198033%_ '0)))) - (let ((_%tl199081199123%_ + (let ((_%tl197912197954%_ (let () (declare (not safe)) (##vector-ref - _%__splice202321202322%_ + _%__splice201290201291%_ '1))) - (_%target199079199120%_ + (_%target197910197951%_ (let () (declare (not safe)) (##vector-ref - _%__splice202321202322%_ + _%__splice201290201291%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199081199123%_)) - (_%__match202379202380%_ - _%e199052199185%_ - _%hd199051199189%_ - _%tl199050199192%_ - _%e199055199195%_ - _%hd199054199199%_ - _%tl199053199202%_ - _%__splice202321202322%_ - _%target199079199120%_ - _%tl199081199123%_) + (gx#stx-null? _%tl197912197954%_)) + (_%__match201348201349%_ + _%e197883198016%_ + _%hd197882198020%_ + _%tl197881198023%_ + _%e197886198026%_ + _%hd197885198030%_ + _%tl197884198033%_ + _%__splice201290201291%_ + _%target197910197951%_ + _%tl197912197954%_) (let () (declare (not safe)) - (_%g199046199093%_))))) + (_%g197877197924%_))))) (let () (declare (not safe)) - (_%g199046199093%_)))))) + (_%g197877197924%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl199053199202%_)) - (let ((_%__splice202321202322%_ + (gx#stx-pair/null? _%tl197884198033%_)) + (let ((_%__splice201290201291%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl199053199202%_ + _%tl197884198033%_ '0)))) - (let ((_%tl199081199123%_ + (let ((_%tl197912197954%_ (let () (declare (not safe)) - (##vector-ref _%__splice202321202322%_ '1))) - (_%target199079199120%_ + (##vector-ref _%__splice201290201291%_ '1))) + (_%target197910197951%_ (let () (declare (not safe)) - (##vector-ref _%__splice202321202322%_ '0)))) + (##vector-ref _%__splice201290201291%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199081199123%_)) - (_%__match202379202380%_ - _%e199052199185%_ - _%hd199051199189%_ - _%tl199050199192%_ - _%e199055199195%_ - _%hd199054199199%_ - _%tl199053199202%_ - _%__splice202321202322%_ - _%target199079199120%_ - _%tl199081199123%_) + (gx#stx-null? _%tl197912197954%_)) + (_%__match201348201349%_ + _%e197883198016%_ + _%hd197882198020%_ + _%tl197881198023%_ + _%e197886198026%_ + _%hd197885198030%_ + _%tl197884198033%_ + _%__splice201290201291%_ + _%target197910197951%_ + _%tl197912197954%_) (let () (declare (not safe)) - (_%g199046199093%_))))) - (let () (declare (not safe)) (_%g199046199093%_)))) + (_%g197877197924%_))))) + (let () (declare (not safe)) (_%g197877197924%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl199053199202%_)) - (let ((_%__splice202321202322%_ + (gx#stx-pair/null? _%tl197884198033%_)) + (let ((_%__splice201290201291%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl199053199202%_ '0)))) - (let ((_%tl199081199123%_ + (gx#syntax-split-splice _%tl197884198033%_ '0)))) + (let ((_%tl197912197954%_ (let () (declare (not safe)) - (##vector-ref _%__splice202321202322%_ '1))) - (_%target199079199120%_ + (##vector-ref _%__splice201290201291%_ '1))) + (_%target197910197951%_ (let () (declare (not safe)) - (##vector-ref _%__splice202321202322%_ '0)))) + (##vector-ref _%__splice201290201291%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199081199123%_)) - (_%__match202379202380%_ - _%e199052199185%_ - _%hd199051199189%_ - _%tl199050199192%_ - _%e199055199195%_ - _%hd199054199199%_ - _%tl199053199202%_ - _%__splice202321202322%_ - _%target199079199120%_ - _%tl199081199123%_) - (let () (declare (not safe)) (_%g199046199093%_))))) - (let () (declare (not safe)) (_%g199046199093%_)))) + (gx#stx-null? _%tl197912197954%_)) + (_%__match201348201349%_ + _%e197883198016%_ + _%hd197882198020%_ + _%tl197881198023%_ + _%e197886198026%_ + _%hd197885198030%_ + _%tl197884198033%_ + _%__splice201290201291%_ + _%target197910197951%_ + _%tl197912197954%_) + (let () (declare (not safe)) (_%g197877197924%_))))) + (let () (declare (not safe)) (_%g197877197924%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl199053199202%_)) - (let ((_%__splice202321202322%_ + _%tl197884198033%_)) + (let ((_%__splice201290201291%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl199053199202%_ '0)))) - (let ((_%tl199081199123%_ + (gx#syntax-split-splice _%tl197884198033%_ '0)))) + (let ((_%tl197912197954%_ (let () (declare (not safe)) - (##vector-ref _%__splice202321202322%_ '1))) - (_%target199079199120%_ + (##vector-ref _%__splice201290201291%_ '1))) + (_%target197910197951%_ (let () (declare (not safe)) - (##vector-ref _%__splice202321202322%_ '0)))) + (##vector-ref _%__splice201290201291%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199081199123%_)) - (_%__match202379202380%_ - _%e199052199185%_ - _%hd199051199189%_ - _%tl199050199192%_ - _%e199055199195%_ - _%hd199054199199%_ - _%tl199053199202%_ - _%__splice202321202322%_ - _%target199079199120%_ - _%tl199081199123%_) - (let () (declare (not safe)) (_%g199046199093%_))))) - (let () (declare (not safe)) (_%g199046199093%_)))))) + (gx#stx-null? _%tl197912197954%_)) + (_%__match201348201349%_ + _%e197883198016%_ + _%hd197882198020%_ + _%tl197881198023%_ + _%e197886198026%_ + _%hd197885198030%_ + _%tl197884198033%_ + _%__splice201290201291%_ + _%target197910197951%_ + _%tl197912197954%_) + (let () (declare (not safe)) (_%g197877197924%_))))) + (let () (declare (not safe)) (_%g197877197924%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl199053199202%_)) - (let ((_%__splice202321202322%_ + _%tl197884198033%_)) + (let ((_%__splice201290201291%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl199053199202%_ + _%tl197884198033%_ '0)))) - (let ((_%tl199081199123%_ + (let ((_%tl197912197954%_ (let () (declare (not safe)) (##vector-ref - _%__splice202321202322%_ + _%__splice201290201291%_ '1))) - (_%target199079199120%_ + (_%target197910197951%_ (let () (declare (not safe)) (##vector-ref - _%__splice202321202322%_ + _%__splice201290201291%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199081199123%_)) - (_%__match202379202380%_ - _%e199052199185%_ - _%hd199051199189%_ - _%tl199050199192%_ - _%e199055199195%_ - _%hd199054199199%_ - _%tl199053199202%_ - _%__splice202321202322%_ - _%target199079199120%_ - _%tl199081199123%_) + _%tl197912197954%_)) + (_%__match201348201349%_ + _%e197883198016%_ + _%hd197882198020%_ + _%tl197881198023%_ + _%e197886198026%_ + _%hd197885198030%_ + _%tl197884198033%_ + _%__splice201290201291%_ + _%target197910197951%_ + _%tl197912197954%_) (let () (declare (not safe)) - (_%g199046199093%_))))) + (_%g197877197924%_))))) (let () (declare (not safe)) - (_%g199046199093%_)))))) + (_%g197877197924%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl199053199202%_)) - (let ((_%__splice202321202322%_ + (gx#stx-pair/null? _%tl197884198033%_)) + (let ((_%__splice201290201291%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl199053199202%_ + _%tl197884198033%_ '0)))) - (let ((_%tl199081199123%_ + (let ((_%tl197912197954%_ (let () (declare (not safe)) (##vector-ref - _%__splice202321202322%_ + _%__splice201290201291%_ '1))) - (_%target199079199120%_ + (_%target197910197951%_ (let () (declare (not safe)) (##vector-ref - _%__splice202321202322%_ + _%__splice201290201291%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199081199123%_)) - (_%__match202379202380%_ - _%e199052199185%_ - _%hd199051199189%_ - _%tl199050199192%_ - _%e199055199195%_ - _%hd199054199199%_ - _%tl199053199202%_ - _%__splice202321202322%_ - _%target199079199120%_ - _%tl199081199123%_) + _%tl197912197954%_)) + (_%__match201348201349%_ + _%e197883198016%_ + _%hd197882198020%_ + _%tl197881198023%_ + _%e197886198026%_ + _%hd197885198030%_ + _%tl197884198033%_ + _%__splice201290201291%_ + _%target197910197951%_ + _%tl197912197954%_) (let () (declare (not safe)) - (_%g199046199093%_))))) + (_%g197877197924%_))))) (let () (declare (not safe)) - (_%g199046199093%_)))))) - (let () (declare (not safe)) (_%g199046199093%_))))) - (let () (declare (not safe)) (_%g199046199093%_)))))))) + (_%g197877197924%_)))))) + (let () (declare (not safe)) (_%g197877197924%_))))) + (let () (declare (not safe)) (_%g197877197924%_)))))))) (define |gxc[1]#verify-procedure!| - (lambda (_%ctx200371%_ _%id200373%_) - (let ((_%proc200377%_ - (let ((__tmp202748 + (lambda (_%ctx199271%_ _%id199273%_) + (let ((_%proc199277%_ + (let ((__tmp201717 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id200373%_))))) + (gx#eval-syntax__0 _%id199273%_))))) (declare (not safe)) - (__with-catch false __tmp202748)))) - (if (let () (declare (not safe)) (procedure? _%proc200377%_)) + (__with-catch false __tmp201717)))) + (if (procedure? _%proc199277%_) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown procedure" - _%ctx200371%_ - _%id200373%_)))))) + _%ctx199271%_ + _%id199273%_)))))) (define |gxc[1]#verify-class!| - (lambda (_%ctx200362%_ _%id200364%_) - (let ((_%klass200368%_ - (let ((__tmp202749 + (lambda (_%ctx199262%_ _%id199264%_) + (let ((_%klass199268%_ + (let ((__tmp201718 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id200364%_))))) + (gx#eval-syntax__0 _%id199264%_))))) (declare (not safe)) - (__with-catch false __tmp202749)))) + (__with-catch false __tmp201718)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass200368%_ 'class)) + (##structure-instance-of? _%klass199268%_ 'class)) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown class" - _%ctx200362%_ - _%id200364%_)))))) + _%ctx199262%_ + _%id199264%_)))))) (define |gxc[1]#parse-signature| - (lambda (_%ctx199612%_ _%proc199614%_ _%sig199615%_) - (letrec ((_%signature-arity199617%_ - (lambda (_%args200294%_) - (let _%loop200297%_ ((_%rest200300%_ _%args200294%_) - (_%count200302%_ '0)) - (let* ((_%rest200303200314%_ _%rest200300%_) - (_%E200307200320%_ + (lambda (_%ctx198512%_ _%proc198514%_ _%sig198515%_) + (letrec ((_%signature-arity198517%_ + (lambda (_%args199194%_) + (let _%loop199197%_ ((_%rest199200%_ _%args199194%_) + (_%count199202%_ '0)) + (let* ((_%rest199203199214%_ _%rest199200%_) + (_%E199207199220%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest200303200314%_ + _%rest199203199214%_ '([_ . rest]) '([]) '(_))) '#!void))) - (let ((_%K200310200351%_ - (lambda (_%rest200348%_) - (let ((__tmp202750 - (let () - (declare (not safe)) - (##fx+ _%count200302%_ '1)))) - (declare (not safe)) - (_%loop200297%_ - _%rest200348%_ - __tmp202750)))) - (_%K200309200340%_ (lambda () _%count200302%_)) - (_%K200308200328%_ - (lambda () (cons _%count200302%_ '())))) - (let ((_%try-match200305200344%_ + (let ((_%K199210199251%_ + (lambda (_%rest199248%_) + (_%loop199197%_ + _%rest199248%_ + (let () + (declare (not safe)) + (##fx+ _%count199202%_ '1))))) + (_%K199209199240%_ (lambda () _%count199202%_)) + (_%K199208199228%_ + (lambda () (cons _%count199202%_ '())))) + (let ((_%try-match199205199244%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest200303200314%_)) - (let () - (declare (not safe)) - (_%K200309200340%_)) - (let () - (declare (not safe)) - (_%K200308200328%_)))))) + (##null? _%rest199203199214%_)) + (_%K199209199240%_) + (_%K199208199228%_))))) (if (let () (declare (not safe)) - (##pair? _%rest200303200314%_)) - (let* ((_%tl200312200355%_ + (##pair? _%rest199203199214%_)) + (let* ((_%tl199212199255%_ (let () (declare (not safe)) - (##cdr _%rest200303200314%_))) - (_%rest200359%_ _%tl200312200355%_)) - (declare (not safe)) - (_%K200310200351%_ _%rest200359%_)) - (let () - (declare (not safe)) - (_%try-match200305200344%_))))))))) - (_%make-signature199619%_ - (lambda (_%args200176%_ - _%return200178%_ - _%effect200179%_ - _%unchecked200180%_) - (let ((__tmp202751 - (lambda (_%g200181200183%_) - (let () - (declare (not safe)) - (|gxc[1]#verify-class!| - _%ctx199612%_ - _%g200181200183%_))))) - (declare (not safe)) - (gx#stx-for-each1 __tmp202751 _%args200176%_)) - (let () + (##cdr _%rest199203199214%_))) + (_%rest199259%_ _%tl199212199255%_)) + (_%K199210199251%_ _%rest199259%_)) + (_%try-match199205199244%_)))))))) + (_%make-signature198519%_ + (lambda (_%args199076%_ + _%return199078%_ + _%effect199079%_ + _%unchecked199080%_) + (let ((__tmp201719 + (lambda (_%g199081199083%_) + (|gxc[1]#verify-class!| + _%ctx198512%_ + _%g199081199083%_)))) (declare (not safe)) - (|gxc[1]#verify-class!| _%ctx199612%_ _%return200178%_)) - (if _%unchecked200180%_ - (let () - (declare (not safe)) - (|gxc[1]#verify-procedure!| - _%ctx199612%_ - _%unchecked200180%_)) + (gx#stx-for-each1 __tmp201719 _%args199076%_)) + (|gxc[1]#verify-class!| _%ctx198512%_ _%return199078%_) + (if _%unchecked199080%_ + (|gxc[1]#verify-procedure!| + _%ctx198512%_ + _%unchecked199080%_) '#!void) - (let ((_%arity200187%_ - (let ((__tmp202752 - (let () - (declare (not safe)) - (gx#stx-map1 gx#stx-e _%args200176%_)))) - (declare (not safe)) - (_%signature-arity199617%_ __tmp202752)))) - (if _%effect200179%_ - (let ((_%effect200190%_ + (let ((_%arity199087%_ + (_%signature-arity198517%_ + (let () + (declare (not safe)) + (gx#stx-map1 gx#stx-e _%args199076%_))))) + (if _%effect199079%_ + (let ((_%effect199090%_ (let () (declare (not safe)) - (gx#syntax->datum _%effect200179%_)))) - (if (and (let () - (declare (not safe)) - (list? _%effect200190%_)) + (gx#syntax->datum _%effect199079%_)))) + (if (and (list? _%effect199090%_) (let () (declare (not safe)) - (__andmap1 symbol? _%effect200190%_))) + (__andmap1 symbol? _%effect199090%_))) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"bad effect" - _%ctx199612%_ - _%proc199614%_ - _%effect200190%_)))) + _%ctx198512%_ + _%proc198514%_ + _%effect199090%_)))) '#!void) - (cons _%arity200187%_ - (cons (let* ((_%g200193200216%_ - (lambda (_%g200194200212%_) + (cons _%arity199087%_ + (cons (let* ((_%g199093199116%_ + (lambda (_%g199094199112%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200194200212%_)))) - (_%g200192200290%_ - (lambda (_%g200194200220%_) + _%g199094199112%_)))) + (_%g199092199190%_ + (lambda (_%g199094199120%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g200194200220%_)) - (let ((_%e200201200223%_ + _%g199094199120%_)) + (let ((_%e199101199123%_ (let () (declare (not safe)) (gx#syntax-e - _%g200194200220%_)))) - (let ((_%hd200200200227%_ + _%g199094199120%_)))) + (let ((_%hd199100199127%_ (let () (declare (not safe)) - (##car _%e200201200223%_))) - (_%tl200199200230%_ + (##car _%e199101199123%_))) + (_%tl199099199130%_ (let () (declare (not safe)) - (##cdr _%e200201200223%_)))) + (##cdr _%e199101199123%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl200199200230%_)) - (let ((_%e200204200233%_ + _%tl199099199130%_)) + (let ((_%e199104199133%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl200199200230%_)))) - (let ((_%hd200203200237%_ + (gx#syntax-e _%tl199099199130%_)))) + (let ((_%hd199103199137%_ (let () (declare (not safe)) - (##car _%e200204200233%_))) - (_%tl200202200240%_ + (##car _%e199104199133%_))) + (_%tl199102199140%_ (let () (declare (not safe)) - (##cdr _%e200204200233%_)))) + (##cdr _%e199104199133%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl200202200240%_)) - (let ((_%e200207200243%_ + (gx#stx-pair? _%tl199102199140%_)) + (let ((_%e199107199143%_ (let () (declare (not safe)) - (gx#syntax-e _%tl200202200240%_)))) - (let ((_%hd200206200247%_ + (gx#syntax-e _%tl199102199140%_)))) + (let ((_%hd199106199147%_ (let () (declare (not safe)) - (##car _%e200207200243%_))) - (_%tl200205200250%_ + (##car _%e199107199143%_))) + (_%tl199105199150%_ (let () (declare (not safe)) - (##cdr _%e200207200243%_)))) + (##cdr _%e199107199143%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl200205200250%_)) - (let ((_%e200210200253%_ + (gx#stx-pair? _%tl199105199150%_)) + (let ((_%e199110199153%_ (let () (declare (not safe)) - (gx#syntax-e _%tl200205200250%_)))) - (let ((_%hd200209200257%_ + (gx#syntax-e _%tl199105199150%_)))) + (let ((_%hd199109199157%_ (let () (declare (not safe)) - (##car _%e200210200253%_))) - (_%tl200208200260%_ + (##car _%e199110199153%_))) + (_%tl199108199160%_ (let () (declare (not safe)) - (##cdr _%e200210200253%_)))) + (##cdr _%e199110199153%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl200208200260%_)) - ((lambda (_%L200263%_ - _%L200265%_ - _%L200266%_ - _%L200267%_) - (let () - (cons (let () + (gx#stx-null? _%tl199108199160%_)) + ((lambda (_%L199163%_ + _%L199165%_ + _%L199166%_ + _%L199167%_) + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!signature)) + (cons 'arguments: + (cons (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote)) + (cons _%L199167%_ '())) + (cons 'return: + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote)) + (cons _%L199166%_ '())) + (cons 'effect: + (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f - 'make-!signature)) - (cons 'arguments: - (cons (cons (let () + 'quote)) + (cons _%L199165%_ '())) + (cons 'unchecked: + (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'quote)) - (cons _%L200267%_ '())) - (cons 'return: - (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote)) + (cons _%L199163%_ '())) + (cons 'origin: + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote)) + (cons (let () (declare (not safe)) - (gx#datum->syntax__0 '#f 'quote)) - (cons _%L200266%_ '())) - (cons 'effect: - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'quote)) - (cons _%L200265%_ '())) - (cons 'unchecked: - (cons (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'quote)) - (cons _%L200263%_ '())) - '()))))))))))) + (gx#datum->syntax__0 '#f 'builtin)) + '())) + '())))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd200209200257%_ - _%hd200206200247%_ - _%hd200203200237%_ - _%hd200200200227%_) - (let () - (declare (not safe)) - (_%g200193200216%_ - _%g200194200220%_))))) - (let () - (declare (not safe)) - (_%g200193200216%_ _%g200194200220%_))))) - (let () - (declare (not safe)) - (_%g200193200216%_ _%g200194200220%_))))) - (let () - (declare (not safe)) - (_%g200193200216%_ _%g200194200220%_))))) + _%hd199109199157%_ + _%hd199106199147%_ + _%hd199103199137%_ + _%hd199100199127%_) + (_%g199093199116%_ + _%g199094199120%_)))) + (_%g199093199116%_ _%g199094199120%_)))) + (_%g199093199116%_ _%g199094199120%_)))) + (_%g199093199116%_ _%g199094199120%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g200193200216%_ - _%g200194200220%_))))) - (__tmp202753 - (list _%args200176%_ - _%return200178%_ - _%effect200179%_ - _%unchecked200180%_))) - (declare (not safe)) - (_%g200192200290%_ __tmp202753)) + (_%g199093199116%_ + _%g199094199120%_))))) + (_%g199092199190%_ + (list _%args199076%_ + _%return199078%_ + _%effect199079%_ + _%unchecked199080%_))) '())))))) - (let () - (declare (not safe)) - (|gxc[1]#verify-procedure!| _%ctx199612%_ _%proc199614%_)) - (let* ((_%__stx202390202391%_ _%sig199615%_) - (_%g199626199729%_ + (|gxc[1]#verify-procedure!| _%ctx198512%_ _%proc198514%_) + (let* ((_%__stx201359201360%_ _%sig198515%_) + (_%g198526198629%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx202390202391%_))))) - (let ((_%__kont202393202394%_ - (lambda (_%L200157%_ _%L200159%_) - (let () - (declare (not safe)) - (_%make-signature199619%_ - _%L200159%_ - _%L200157%_ - '#f - '#f)))) - (_%__kont202395202396%_ - (lambda (_%L200108%_ _%L200110%_ _%L200111%_) - (let () - (declare (not safe)) - (_%make-signature199619%_ - _%L200111%_ - _%L200110%_ - _%L200108%_ - '#f)))) - (_%__kont202397202398%_ - (lambda (_%L200032%_ _%L200034%_ _%L200035%_) - (let ((__tmp202754 - (let ((__tmp202755 - (let () - (declare (not safe)) - (gx#stx-e _%proc199614%_)))) - (declare (not safe)) - (make-symbol__1 '"##" __tmp202755)))) - (declare (not safe)) - (_%make-signature199619%_ - _%L200035%_ - _%L200034%_ - _%L200032%_ - __tmp202754)))) - (_%__kont202399202400%_ - (lambda (_%L199938%_ _%L199940%_ _%L199941%_ _%L199942%_) - (let ((__tmp202756 - (let () - (declare (not safe)) - (gx#stx-e _%L199938%_)))) - (declare (not safe)) - (_%make-signature199619%_ - _%L199942%_ - _%L199941%_ - '#f - __tmp202756)))) - (_%__kont202401202402%_ - (lambda (_%L199845%_ _%L199847%_) - (let ((__tmp202757 - (let ((__tmp202758 - (let () - (declare (not safe)) - (gx#stx-e _%proc199614%_)))) - (declare (not safe)) - (make-symbol__1 '"##" __tmp202758)))) - (declare (not safe)) - (_%make-signature199619%_ - _%L199847%_ - _%L199845%_ - '#f - __tmp202757)))) - (_%__kont202403202404%_ - (lambda (_%L199780%_ _%L199782%_ _%L199783%_) - (let ((__tmp202759 - (let () - (declare (not safe)) - (gx#stx-e _%L199780%_)))) - (declare (not safe)) - (_%make-signature199619%_ - _%L199783%_ - _%L199782%_ - '#f - __tmp202759))))) + _%__stx201359201360%_))))) + (let ((_%__kont201362201363%_ + (lambda (_%L199057%_ _%L199059%_) + (_%make-signature198519%_ + _%L199059%_ + _%L199057%_ + '#f + '#f))) + (_%__kont201364201365%_ + (lambda (_%L199008%_ _%L199010%_ _%L199011%_) + (_%make-signature198519%_ + _%L199011%_ + _%L199010%_ + _%L199008%_ + '#f))) + (_%__kont201366201367%_ + (lambda (_%L198932%_ _%L198934%_ _%L198935%_) + (_%make-signature198519%_ + _%L198935%_ + _%L198934%_ + _%L198932%_ + (let ((__tmp201720 + (let () + (declare (not safe)) + (gx#stx-e _%proc198514%_)))) + (declare (not safe)) + (make-symbol__1 '"##" __tmp201720))))) + (_%__kont201368201369%_ + (lambda (_%L198838%_ _%L198840%_ _%L198841%_ _%L198842%_) + (_%make-signature198519%_ + _%L198842%_ + _%L198841%_ + '#f + (let () (declare (not safe)) (gx#stx-e _%L198838%_))))) + (_%__kont201370201371%_ + (lambda (_%L198745%_ _%L198747%_) + (_%make-signature198519%_ + _%L198747%_ + _%L198745%_ + '#f + (let ((__tmp201721 + (let () + (declare (not safe)) + (gx#stx-e _%proc198514%_)))) + (declare (not safe)) + (make-symbol__1 '"##" __tmp201721))))) + (_%__kont201372201373%_ + (lambda (_%L198680%_ _%L198682%_ _%L198683%_) + (_%make-signature198519%_ + _%L198683%_ + _%L198682%_ + '#f + (let () (declare (not safe)) (gx#stx-e _%L198680%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx202390202391%_)) - (let ((_%e199632200137%_ + (gx#stx-pair? _%__stx201359201360%_)) + (let ((_%e198532199037%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx202390202391%_)))) - (let ((_%tl199630200144%_ + (gx#syntax-e _%__stx201359201360%_)))) + (let ((_%tl198530199044%_ (let () (declare (not safe)) - (##cdr _%e199632200137%_))) - (_%hd199631200141%_ + (##cdr _%e198532199037%_))) + (_%hd198531199041%_ (let () (declare (not safe)) - (##car _%e199632200137%_)))) + (##car _%e198532199037%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199630200144%_)) - (let ((_%e199635200147%_ + (gx#stx-pair? _%tl198530199044%_)) + (let ((_%e198535199047%_ (let () (declare (not safe)) - (gx#syntax-e _%tl199630200144%_)))) - (let ((_%tl199633200154%_ + (gx#syntax-e _%tl198530199044%_)))) + (let ((_%tl198533199054%_ (let () (declare (not safe)) - (##cdr _%e199635200147%_))) - (_%hd199634200151%_ + (##cdr _%e198535199047%_))) + (_%hd198534199051%_ (let () (declare (not safe)) - (##car _%e199635200147%_)))) + (##car _%e198535199047%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199633200154%_)) - (_%__kont202393202394%_ - _%hd199634200151%_ - _%hd199631200141%_) + (gx#stx-null? _%tl198533199054%_)) + (_%__kont201362201363%_ + _%hd198534199051%_ + _%hd198531199041%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199633200154%_)) - (let ((_%e199647200084%_ + (gx#stx-pair? _%tl198533199054%_)) + (let ((_%e198547198984%_ (let () (declare (not safe)) (gx#syntax-e - _%tl199633200154%_)))) - (let ((_%tl199645200091%_ + _%tl198533199054%_)))) + (let ((_%tl198545198991%_ (let () (declare (not safe)) - (##cdr _%e199647200084%_))) - (_%hd199646200088%_ + (##cdr _%e198547198984%_))) + (_%hd198546198988%_ (let () (declare (not safe)) - (##car _%e199647200084%_)))) + (##car _%e198547198984%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd199646200088%_)) - (let ((_%e199648200094%_ + _%hd198546198988%_)) + (let ((_%e198548198994%_ (let () (declare (not safe)) (gx#stx-e - _%hd199646200088%_)))) - (if (equal? _%e199648200094%_ + _%hd198546198988%_)))) + (if (equal? _%e198548198994%_ 'effect:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199645200091%_)) - (let ((_%e199651200098%_ + _%tl198545198991%_)) + (let ((_%e198551198998%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl199645200091%_)))) - (let ((_%tl199649200105%_ + (gx#syntax-e _%tl198545198991%_)))) + (let ((_%tl198549199005%_ (let () (declare (not safe)) - (##cdr _%e199651200098%_))) - (_%hd199650200102%_ + (##cdr _%e198551198998%_))) + (_%hd198550199002%_ (let () (declare (not safe)) - (##car _%e199651200098%_)))) + (##car _%e198551198998%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199649200105%_)) - (_%__kont202395202396%_ - _%hd199650200102%_ - _%hd199634200151%_ - _%hd199631200141%_) + (gx#stx-null? _%tl198549199005%_)) + (_%__kont201364201365%_ + _%hd198550199002%_ + _%hd198534199051%_ + _%hd198531199041%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199649200105%_)) - (let ((_%e199670200018%_ + (gx#stx-pair? _%tl198549199005%_)) + (let ((_%e198570198918%_ (let () (declare (not safe)) - (gx#syntax-e _%tl199649200105%_)))) - (let ((_%tl199668200025%_ + (gx#syntax-e _%tl198549199005%_)))) + (let ((_%tl198568198925%_ (let () (declare (not safe)) - (##cdr _%e199670200018%_))) - (_%hd199669200022%_ + (##cdr _%e198570198918%_))) + (_%hd198569198922%_ (let () (declare (not safe)) - (##car _%e199670200018%_)))) + (##car _%e198570198918%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd199669200022%_)) - (let ((_%e199671200028%_ + (gx#stx-datum? _%hd198569198922%_)) + (let ((_%e198571198928%_ (let () (declare (not safe)) - (gx#stx-e _%hd199669200022%_)))) - (if (equal? _%e199671200028%_ + (gx#stx-e _%hd198569198922%_)))) + (if (equal? _%e198571198928%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199668200025%_)) - (_%__kont202397202398%_ - _%hd199650200102%_ - _%hd199634200151%_ - _%hd199631200141%_) + _%tl198568198925%_)) + (_%__kont201366201367%_ + _%hd198550199002%_ + _%hd198534199051%_ + _%hd198531199041%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199668200025%_)) - (let ((_%e199695199928%_ + _%tl198568198925%_)) + (let ((_%e198595198828%_ (let () (declare (not safe)) (gx#syntax-e - _%tl199668200025%_)))) - (let ((_%tl199693199935%_ + _%tl198568198925%_)))) + (let ((_%tl198593198835%_ (let () (declare (not safe)) - (##cdr _%e199695199928%_))) - (_%hd199694199932%_ + (##cdr _%e198595198828%_))) + (_%hd198594198832%_ (let () (declare (not safe)) - (##car _%e199695199928%_)))) + (##car _%e198595198828%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199693199935%_)) - (_%__kont202399202400%_ - _%hd199694199932%_ - _%hd199650200102%_ - _%hd199634200151%_ - _%hd199631200141%_) + _%tl198593198835%_)) + (_%__kont201368201369%_ + _%hd198594198832%_ + _%hd198550199002%_ + _%hd198534199051%_ + _%hd198531199041%_) (let () (declare (not safe)) - (_%g199626199729%_))))) + (_%g198526198629%_))))) (let () (declare (not safe)) - (_%g199626199729%_)))) + (_%g198526198629%_)))) (let () (declare (not safe)) - (_%g199626199729%_)))) + (_%g198526198629%_)))) (let () (declare (not safe)) - (_%g199626199729%_))))) + (_%g198526198629%_))))) (let () (declare (not safe)) - (_%g199626199729%_)))))) - (let () (declare (not safe)) (_%g199626199729%_))) + (_%g198526198629%_)))))) + (let () (declare (not safe)) (_%g198526198629%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e199648200094%_ + (if (equal? _%e198548198994%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199645200091%_)) - (_%__kont202401202402%_ - _%hd199634200151%_ - _%hd199631200141%_) + _%tl198545198991%_)) + (_%__kont201370201371%_ + _%hd198534199051%_ + _%hd198531199041%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl199645200091%_)) - (let ((_%e199723199770%_ + (gx#stx-pair? _%tl198545198991%_)) + (let ((_%e198623198670%_ (let () (declare (not safe)) - (gx#syntax-e _%tl199645200091%_)))) - (let ((_%tl199721199777%_ + (gx#syntax-e _%tl198545198991%_)))) + (let ((_%tl198621198677%_ (let () (declare (not safe)) - (##cdr _%e199723199770%_))) - (_%hd199722199774%_ + (##cdr _%e198623198670%_))) + (_%hd198622198674%_ (let () (declare (not safe)) - (##car _%e199723199770%_)))) + (##car _%e198623198670%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199721199777%_)) - (_%__kont202403202404%_ - _%hd199722199774%_ - _%hd199634200151%_ - _%hd199631200141%_) + (gx#stx-null? _%tl198621198677%_)) + (_%__kont201372201373%_ + _%hd198622198674%_ + _%hd198534199051%_ + _%hd198531199041%_) (let () (declare (not safe)) - (_%g199626199729%_))))) - (let () (declare (not safe)) (_%g199626199729%_)))) - (let () (declare (not safe)) (_%g199626199729%_))))) + (_%g198526198629%_))))) + (let () (declare (not safe)) (_%g198526198629%_)))) + (let () (declare (not safe)) (_%g198526198629%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g199626199729%_))))) + (_%g198526198629%_))))) (let () (declare (not safe)) - (_%g199626199729%_)))))) - (let () (declare (not safe)) (_%g199626199729%_))))) - (let () (declare (not safe)) (_%g199626199729%_)))))))) + (_%g198526198629%_)))))) + (let () (declare (not safe)) (_%g198526198629%_))))) + (let () (declare (not safe)) (_%g198526198629%_)))))))) (define |gxc[1]#signature->unchecked-signature| - (lambda (_%sig199292%_) - (let* ((_%g199295199361%_ - (lambda (_%g199296199357%_) + (lambda (_%sig198123%_) + (let* ((_%g198126198206%_ + (lambda (_%g198127198202%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g199296199357%_)))) - (_%g199294199608%_ - (lambda (_%g199296199365%_) + _%g198127198202%_)))) + (_%g198125198508%_ + (lambda (_%g198127198210%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g199296199365%_)) - (let ((_%e199303199368%_ + (gx#stx-pair? _%g198127198210%_)) + (let ((_%e198135198213%_ (let () (declare (not safe)) - (gx#syntax-e _%g199296199365%_)))) - (let ((_%hd199302199372%_ + (gx#syntax-e _%g198127198210%_)))) + (let ((_%hd198134198217%_ (let () (declare (not safe)) - (##car _%e199303199368%_))) - (_%tl199301199375%_ + (##car _%e198135198213%_))) + (_%tl198133198220%_ (let () (declare (not safe)) - (##cdr _%e199303199368%_)))) + (##cdr _%e198135198213%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199301199375%_)) - (let ((_%e199306199378%_ + (gx#stx-pair? _%tl198133198220%_)) + (let ((_%e198138198223%_ (let () (declare (not safe)) - (gx#syntax-e _%tl199301199375%_)))) - (let ((_%hd199305199382%_ + (gx#syntax-e _%tl198133198220%_)))) + (let ((_%hd198137198227%_ (let () (declare (not safe)) - (##car _%e199306199378%_))) - (_%tl199304199385%_ + (##car _%e198138198223%_))) + (_%tl198136198230%_ (let () (declare (not safe)) - (##cdr _%e199306199378%_)))) + (##cdr _%e198138198223%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd199305199382%_)) - (let ((_%e199307199388%_ + (gx#stx-datum? _%hd198137198227%_)) + (let ((_%e198139198233%_ (let () (declare (not safe)) - (gx#stx-e _%hd199305199382%_)))) - (if (equal? _%e199307199388%_ + (gx#stx-e _%hd198137198227%_)))) + (if (equal? _%e198139198233%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199304199385%_)) - (let ((_%e199310199392%_ + _%tl198136198230%_)) + (let ((_%e198142198237%_ (let () (declare (not safe)) (gx#syntax-e - _%tl199304199385%_)))) - (let ((_%hd199309199396%_ + _%tl198136198230%_)))) + (let ((_%hd198141198241%_ (let () (declare (not safe)) - (##car _%e199310199392%_))) - (_%tl199308199399%_ + (##car _%e198142198237%_))) + (_%tl198140198244%_ (let () (declare (not safe)) - (##cdr _%e199310199392%_)))) + (##cdr _%e198142198237%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd199309199396%_)) - (let ((_%e199313199402%_ + _%hd198141198241%_)) + (let ((_%e198145198247%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd199309199396%_)))) - (let ((_%hd199312199406%_ + (gx#syntax-e _%hd198141198241%_)))) + (let ((_%hd198144198251%_ (let () (declare (not safe)) - (##car _%e199313199402%_))) - (_%tl199311199409%_ + (##car _%e198145198247%_))) + (_%tl198143198254%_ (let () (declare (not safe)) - (##cdr _%e199313199402%_)))) + (##cdr _%e198145198247%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199312199406%_)) - (if (let ((__tmp202760 |gxc[1]#_g202761_|)) + (gx#identifier? _%hd198144198251%_)) + (if (let ((__tmp201722 |gxc[1]#_g201723_|)) (declare (not safe)) (gx#free-identifier=? - __tmp202760 - _%hd199312199406%_)) + __tmp201722 + _%hd198144198251%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199311199409%_)) - (let ((_%e199316199412%_ + (gx#stx-pair? _%tl198143198254%_)) + (let ((_%e198148198257%_ (let () (declare (not safe)) - (gx#syntax-e _%tl199311199409%_)))) - (let ((_%hd199315199416%_ + (gx#syntax-e _%tl198143198254%_)))) + (let ((_%hd198147198261%_ (let () (declare (not safe)) - (##car _%e199316199412%_))) - (_%tl199314199419%_ + (##car _%e198148198257%_))) + (_%tl198146198264%_ (let () (declare (not safe)) - (##cdr _%e199316199412%_)))) + (##cdr _%e198148198257%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199314199419%_)) + (gx#stx-null? _%tl198146198264%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199308199399%_)) - (let ((_%e199319199422%_ + _%tl198140198244%_)) + (let ((_%e198151198267%_ (let () (declare (not safe)) (gx#syntax-e - _%tl199308199399%_)))) - (let ((_%hd199318199426%_ + _%tl198140198244%_)))) + (let ((_%hd198150198271%_ (let () (declare (not safe)) - (##car _%e199319199422%_))) - (_%tl199317199429%_ + (##car _%e198151198267%_))) + (_%tl198149198274%_ (let () (declare (not safe)) - (##cdr _%e199319199422%_)))) + (##cdr _%e198151198267%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd199318199426%_)) - (let ((_%e199320199432%_ + _%hd198150198271%_)) + (let ((_%e198152198277%_ (let () (declare (not safe)) (gx#stx-e - _%hd199318199426%_)))) - (if (equal? _%e199320199432%_ + _%hd198150198271%_)))) + (if (equal? _%e198152198277%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199317199429%_)) - (let ((_%e199323199436%_ + (gx#stx-pair? _%tl198149198274%_)) + (let ((_%e198155198281%_ (let () (declare (not safe)) - (gx#syntax-e _%tl199317199429%_)))) - (let ((_%hd199322199440%_ + (gx#syntax-e _%tl198149198274%_)))) + (let ((_%hd198154198285%_ (let () (declare (not safe)) - (##car _%e199323199436%_))) - (_%tl199321199443%_ + (##car _%e198155198281%_))) + (_%tl198153198288%_ (let () (declare (not safe)) - (##cdr _%e199323199436%_)))) + (##cdr _%e198155198281%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199322199440%_)) - (let ((_%e199326199446%_ + (gx#stx-pair? _%hd198154198285%_)) + (let ((_%e198158198291%_ (let () (declare (not safe)) - (gx#syntax-e _%hd199322199440%_)))) - (let ((_%hd199325199450%_ + (gx#syntax-e _%hd198154198285%_)))) + (let ((_%hd198157198295%_ (let () (declare (not safe)) - (##car _%e199326199446%_))) - (_%tl199324199453%_ + (##car _%e198158198291%_))) + (_%tl198156198298%_ (let () (declare (not safe)) - (##cdr _%e199326199446%_)))) + (##cdr _%e198158198291%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199325199450%_)) - (if (let ((__tmp202762 - |gxc[1]#_g202763_|)) + (gx#identifier? _%hd198157198295%_)) + (if (let ((__tmp201724 + |gxc[1]#_g201725_|)) (declare (not safe)) (gx#free-identifier=? - __tmp202762 - _%hd199325199450%_)) + __tmp201724 + _%hd198157198295%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199324199453%_)) - (let ((_%e199329199456%_ + _%tl198156198298%_)) + (let ((_%e198161198301%_ (let () (declare (not safe)) (gx#syntax-e - _%tl199324199453%_)))) - (let ((_%hd199328199460%_ + _%tl198156198298%_)))) + (let ((_%hd198160198305%_ (let () (declare (not safe)) - (##car _%e199329199456%_))) - (_%tl199327199463%_ + (##car _%e198161198301%_))) + (_%tl198159198308%_ (let () (declare (not safe)) - (##cdr _%e199329199456%_)))) + (##cdr _%e198161198301%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199327199463%_)) + _%tl198159198308%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199321199443%_)) - (let ((_%e199332199466%_ + _%tl198153198288%_)) + (let ((_%e198164198311%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl199321199443%_)))) - (let ((_%hd199331199470%_ + (gx#syntax-e _%tl198153198288%_)))) + (let ((_%hd198163198315%_ (let () (declare (not safe)) - (##car _%e199332199466%_))) - (_%tl199330199473%_ + (##car _%e198164198311%_))) + (_%tl198162198318%_ (let () (declare (not safe)) - (##cdr _%e199332199466%_)))) + (##cdr _%e198164198311%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd199331199470%_)) - (let ((_%e199333199476%_ + (gx#stx-datum? _%hd198163198315%_)) + (let ((_%e198165198321%_ (let () (declare (not safe)) - (gx#stx-e _%hd199331199470%_)))) - (if (equal? _%e199333199476%_ 'effect:) + (gx#stx-e _%hd198163198315%_)))) + (if (equal? _%e198165198321%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199330199473%_)) - (let ((_%e199336199480%_ + (gx#stx-pair? _%tl198162198318%_)) + (let ((_%e198168198325%_ (let () (declare (not safe)) (gx#syntax-e - _%tl199330199473%_)))) - (let ((_%hd199335199484%_ + _%tl198162198318%_)))) + (let ((_%hd198167198329%_ (let () (declare (not safe)) - (##car _%e199336199480%_))) - (_%tl199334199487%_ + (##car _%e198168198325%_))) + (_%tl198166198332%_ (let () (declare (not safe)) - (##cdr _%e199336199480%_)))) + (##cdr _%e198168198325%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd199335199484%_)) - (let ((_%e199339199490%_ + _%hd198167198329%_)) + (let ((_%e198171198335%_ (let () (declare (not safe)) (gx#syntax-e - _%hd199335199484%_)))) - (let ((_%hd199338199494%_ + _%hd198167198329%_)))) + (let ((_%hd198170198339%_ (let () (declare (not safe)) - (##car _%e199339199490%_))) - (_%tl199337199497%_ + (##car _%e198171198335%_))) + (_%tl198169198342%_ (let () (declare (not safe)) - (##cdr _%e199339199490%_)))) + (##cdr _%e198171198335%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd199338199494%_)) - (if (let ((__tmp202764 - |gxc[1]#_g202765_|)) + _%hd198170198339%_)) + (if (let ((__tmp201726 + |gxc[1]#_g201727_|)) (declare (not safe)) (gx#free-identifier=? - __tmp202764 - _%hd199338199494%_)) + __tmp201726 + _%hd198170198339%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199337199497%_)) - (let ((_%e199342199500%_ + _%tl198169198342%_)) + (let ((_%e198174198345%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl199337199497%_)))) - (let ((_%hd199341199504%_ + (gx#syntax-e _%tl198169198342%_)))) + (let ((_%hd198173198349%_ (let () (declare (not safe)) - (##car _%e199342199500%_))) - (_%tl199340199507%_ + (##car _%e198174198345%_))) + (_%tl198172198352%_ (let () (declare (not safe)) - (##cdr _%e199342199500%_)))) + (##cdr _%e198174198345%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199340199507%_)) + (gx#stx-null? _%tl198172198352%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199334199487%_)) - (let ((_%e199345199510%_ + (gx#stx-pair? _%tl198166198332%_)) + (let ((_%e198177198355%_ (let () (declare (not safe)) - (gx#syntax-e _%tl199334199487%_)))) - (let ((_%hd199344199514%_ + (gx#syntax-e _%tl198166198332%_)))) + (let ((_%hd198176198359%_ (let () (declare (not safe)) - (##car _%e199345199510%_))) - (_%tl199343199517%_ + (##car _%e198177198355%_))) + (_%tl198175198362%_ (let () (declare (not safe)) - (##cdr _%e199345199510%_)))) + (##cdr _%e198177198355%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd199344199514%_)) - (let ((_%e199346199520%_ + (gx#stx-datum? _%hd198176198359%_)) + (let ((_%e198178198365%_ (let () (declare (not safe)) (gx#stx-e - _%hd199344199514%_)))) - (if (equal? _%e199346199520%_ + _%hd198176198359%_)))) + (if (equal? _%e198178198365%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199343199517%_)) - (let ((_%e199349199524%_ + _%tl198175198362%_)) + (let ((_%e198181198369%_ (let () (declare (not safe)) (gx#syntax-e - _%tl199343199517%_)))) - (let ((_%hd199348199528%_ + _%tl198175198362%_)))) + (let ((_%hd198180198373%_ (let () (declare (not safe)) - (##car _%e199349199524%_))) - (_%tl199347199531%_ + (##car _%e198181198369%_))) + (_%tl198179198376%_ (let () (declare (not safe)) - (##cdr _%e199349199524%_)))) + (##cdr _%e198181198369%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd199348199528%_)) - (let ((_%e199352199534%_ + _%hd198180198373%_)) + (let ((_%e198184198379%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd199348199528%_)))) - (let ((_%hd199351199538%_ + (gx#syntax-e _%hd198180198373%_)))) + (let ((_%hd198183198383%_ (let () (declare (not safe)) - (##car _%e199352199534%_))) - (_%tl199350199541%_ + (##car _%e198184198379%_))) + (_%tl198182198386%_ (let () (declare (not safe)) - (##cdr _%e199352199534%_)))) + (##cdr _%e198184198379%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199351199538%_)) - (if (let ((__tmp202766 |gxc[1]#_g202767_|)) + (gx#identifier? _%hd198183198383%_)) + (if (let ((__tmp201728 |gxc[1]#_g201729_|)) (declare (not safe)) (gx#free-identifier=? - __tmp202766 - _%hd199351199538%_)) + __tmp201728 + _%hd198183198383%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199350199541%_)) - (let ((_%e199355199544%_ + (gx#stx-pair? _%tl198182198386%_)) + (let ((_%e198187198389%_ (let () (declare (not safe)) - (gx#syntax-e _%tl199350199541%_)))) - (let ((_%hd199354199548%_ + (gx#syntax-e _%tl198182198386%_)))) + (let ((_%hd198186198393%_ (let () (declare (not safe)) - (##car _%e199355199544%_))) - (_%tl199353199551%_ + (##car _%e198187198389%_))) + (_%tl198185198396%_ (let () (declare (not safe)) - (##cdr _%e199355199544%_)))) + (##cdr _%e198187198389%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199353199551%_)) + (gx#stx-null? _%tl198185198396%_)) (if (let () (declare (not safe)) - (gx#stx-null? - _%tl199347199531%_)) - ((lambda (_%L199554%_ - _%L199556%_ - _%L199557%_ - _%L199558%_) - (if (let () + (gx#stx-pair? + _%tl198179198376%_)) + (let ((_%e198190198399%_ + (let () (declare (not safe)) - (gx#stx-e _%L199554%_)) - (cons _%L199554%_ - (cons (cons (let () + (gx#syntax-e + _%tl198179198376%_)))) + (let ((_%hd198189198403%_ + (let () + (declare (not safe)) + (##car _%e198190198399%_))) + (_%tl198188198406%_ + (let () + (declare (not safe)) + (##cdr _%e198190198399%_)))) + (if (let () + (declare (not safe)) + (gx#stx-datum? + _%hd198189198403%_)) + (let ((_%e198191198409%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _%hd198189198403%_)))) + (if (equal? _%e198191198409%_ 'origin:) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl198188198406%_)) + (let ((_%e198194198413%_ + (let () (declare (not safe)) - (gx#datum->syntax__0 '#f 'make-!signature)) - (cons 'return: - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'quote)) - (cons _%L199557%_ '())) - '()))) - '())) + (gx#syntax-e _%tl198188198406%_)))) + (let ((_%hd198193198417%_ + (let () + (declare (not safe)) + (##car _%e198194198413%_))) + (_%tl198192198420%_ + (let () + (declare (not safe)) + (##cdr _%e198194198413%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd198193198417%_)) + (let ((_%e198197198423%_ + (let () + (declare (not safe)) + (gx#syntax-e _%hd198193198417%_)))) + (let ((_%hd198196198427%_ + (let () + (declare (not safe)) + (##car _%e198197198423%_))) + (_%tl198195198430%_ + (let () + (declare (not safe)) + (##cdr _%e198197198423%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _%hd198196198427%_)) + (if (let ((__tmp201730 + |gxc[1]#_g201731_|)) + (declare (not safe)) + (gx#free-identifier=? + __tmp201730 + _%hd198196198427%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl198195198430%_)) + (let ((_%e198200198433%_ + (let () + (declare (not safe)) + (gx#syntax-e + _%tl198195198430%_)))) + (let ((_%hd198199198437%_ + (let () + (declare (not safe)) + (##car _%e198200198433%_))) + (_%tl198198198440%_ + (let () + (declare (not safe)) + (##cdr _%e198200198433%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _%tl198198198440%_)) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _%tl198192198420%_)) + ((lambda (_%L198443%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%L198445%_ + _%L198446%_ + _%L198447%_ + _%L198448%_) + (if (let () (declare (not safe)) (gx#stx-e _%L198445%_)) + (cons _%L198445%_ + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!signature)) + (cons 'return: + (cons (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote)) + (cons _%L198447%_ '())) + (cons 'origin: + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote)) + (cons _%L198443%_ '())) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '#f)) - _%hd199354199548%_ - _%hd199341199504%_ - _%hd199328199460%_ - _%hd199315199416%_) - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_))) - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_))))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))))) + '())) + '#f)) + _%hd198199198437%_ + _%hd198186198393%_ + _%hd198173198349%_ + _%hd198160198305%_ + _%hd198147198261%_) + (_%g198126198206%_ _%g198127198210%_)) + (_%g198126198206%_ _%g198127198210%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_))) - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_)))) - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_))))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))) + (_%g198126198206%_ + _%g198127198210%_)) + (_%g198126198206%_ + _%g198127198210%_)) + (_%g198126198206%_ + _%g198127198210%_)))) + (_%g198126198206%_ _%g198127198210%_)))) + (_%g198126198206%_ _%g198127198210%_)) + (_%g198126198206%_ _%g198127198210%_))) + (_%g198126198206%_ _%g198127198210%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_))))) - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_))))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_)))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))))) + (_%g198126198206%_ + _%g198127198210%_)) + (_%g198126198206%_ + _%g198127198210%_)))) + (_%g198126198206%_ _%g198127198210%_)) + (_%g198126198206%_ _%g198127198210%_)) + (_%g198126198206%_ _%g198127198210%_)))) + (_%g198126198206%_ _%g198127198210%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_))) - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_))) - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_))))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_)))) + (_%g198126198206%_ + _%g198127198210%_)) + (_%g198126198206%_ + _%g198127198210%_))) + (_%g198126198206%_ + _%g198127198210%_)))) + (_%g198126198206%_ _%g198127198210%_)) + (_%g198126198206%_ _%g198127198210%_)))) + (_%g198126198206%_ _%g198127198210%_)) + (_%g198126198206%_ _%g198127198210%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_))))) - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_))) - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_))))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))))) + (_%g198126198206%_ + _%g198127198210%_)))) + (_%g198126198206%_ + _%g198127198210%_)))) + (_%g198126198206%_ _%g198127198210%_)) + (_%g198126198206%_ _%g198127198210%_))) + (_%g198126198206%_ _%g198127198210%_)))) + (_%g198126198206%_ _%g198127198210%_)) + (_%g198126198206%_ _%g198127198210%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_))) - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_)))) - (let () - (declare (not safe)) - (_%g199295199361%_ - _%g199296199365%_))))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_))))) - (let () - (declare (not safe)) - (_%g199295199361%_ _%g199296199365%_)))))) - (declare (not safe)) - (_%g199294199608%_ _%sig199292%_)))) + (_%g198126198206%_ + _%g198127198210%_)) + (_%g198126198206%_ + _%g198127198210%_)) + (_%g198126198206%_ _%g198127198210%_)))) + (_%g198126198206%_ _%g198127198210%_)))) + (_%g198126198206%_ _%g198127198210%_)) + (_%g198126198206%_ _%g198127198210%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g198126198206%_ + _%g198127198210%_)))) + (_%g198126198206%_ + _%g198127198210%_)) + (_%g198126198206%_ + _%g198127198210%_)))) + (_%g198126198206%_ _%g198127198210%_)) + (_%g198126198206%_ _%g198127198210%_)) + (_%g198126198206%_ _%g198127198210%_)))) + (_%g198126198206%_ _%g198127198210%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g198126198206%_ + _%g198127198210%_)) + (_%g198126198206%_ + _%g198127198210%_))) + (_%g198126198206%_ _%g198127198210%_)))) + (_%g198126198206%_ _%g198127198210%_)))) + (_%g198126198206%_ _%g198127198210%_))))) + (_%g198125198508%_ _%sig198123%_)))) (define |gxc[:0:]#declare-primitive-predicate| - (lambda (_%stx200380%_) - (let* ((_%g200383200401%_ - (lambda (_%g200384200397%_) + (lambda (_%stx199280%_) + (let* ((_%g199283199301%_ + (lambda (_%g199284199297%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200384200397%_)))) - (_%g200382200456%_ - (lambda (_%g200384200405%_) + _%g199284199297%_)))) + (_%g199282199356%_ + (lambda (_%g199284199305%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g200384200405%_)) - (let ((_%e200389200408%_ + (gx#stx-pair? _%g199284199305%_)) + (let ((_%e199289199308%_ (let () (declare (not safe)) - (gx#syntax-e _%g200384200405%_)))) - (let ((_%hd200388200412%_ + (gx#syntax-e _%g199284199305%_)))) + (let ((_%hd199288199312%_ (let () (declare (not safe)) - (##car _%e200389200408%_))) - (_%tl200387200415%_ + (##car _%e199289199308%_))) + (_%tl199287199315%_ (let () (declare (not safe)) - (##cdr _%e200389200408%_)))) + (##cdr _%e199289199308%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl200387200415%_)) - (let ((_%e200392200418%_ + (gx#stx-pair? _%tl199287199315%_)) + (let ((_%e199292199318%_ (let () (declare (not safe)) - (gx#syntax-e _%tl200387200415%_)))) - (let ((_%hd200391200422%_ + (gx#syntax-e _%tl199287199315%_)))) + (let ((_%hd199291199322%_ (let () (declare (not safe)) - (##car _%e200392200418%_))) - (_%tl200390200425%_ + (##car _%e199292199318%_))) + (_%tl199290199325%_ (let () (declare (not safe)) - (##cdr _%e200392200418%_)))) + (##cdr _%e199292199318%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl200390200425%_)) - (let ((_%e200395200428%_ + (gx#stx-pair? _%tl199290199325%_)) + (let ((_%e199295199328%_ (let () (declare (not safe)) (gx#syntax-e - _%tl200390200425%_)))) - (let ((_%hd200394200432%_ + _%tl199290199325%_)))) + (let ((_%hd199294199332%_ (let () (declare (not safe)) - (##car _%e200395200428%_))) - (_%tl200393200435%_ + (##car _%e199295199328%_))) + (_%tl199293199335%_ (let () (declare (not safe)) - (##cdr _%e200395200428%_)))) + (##cdr _%e199295199328%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl200393200435%_)) - ((lambda (_%L200438%_ - _%L200440%_) + _%tl199293199335%_)) + ((lambda (_%L199338%_ + _%L199340%_) (if (and (let () (declare (not safe)) (gx#identifier? - _%L200440%_)) + _%L199340%_)) (let () (declare (not safe)) (gx#identifier? - _%L200438%_))) + _%L199338%_))) (begin - (let () - (declare (not safe)) - (|gxc[1]#verify-procedure!| - _%stx200380%_ - _%L200440%_)) - (let () - (declare (not safe)) - (|gxc[1]#verify-class!| - _%stx200380%_ - _%L200438%_)) + (|gxc[1]#verify-procedure!| + _%stx199280%_ + _%L199340%_) + (|gxc[1]#verify-class!| + _%stx199280%_ + _%L199338%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L200440%_ + (cons _%L199340%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4876,1466 +4869,1564 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L200438%_ '())) + (cons _%L199338%_ '())) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g200383200401%_ - _%g200384200405%_))) - _%hd200394200432%_ - _%hd200391200422%_) - (_%g200383200401%_ - _%g200384200405%_)))) - (_%g200383200401%_ _%g200384200405%_)))) - (_%g200383200401%_ _%g200384200405%_)))) - (_%g200383200401%_ _%g200384200405%_))))) - (_%g200382200456%_ _%stx200380%_)))) + (_%g199283199301%_ + _%g199284199305%_))) + _%hd199294199332%_ + _%hd199291199322%_) + (_%g199283199301%_ + _%g199284199305%_)))) + (_%g199283199301%_ _%g199284199305%_)))) + (_%g199283199301%_ _%g199284199305%_)))) + (_%g199283199301%_ _%g199284199305%_))))) + (_%g199282199356%_ _%stx199280%_)))) (define |gxc[:0:]#declare-primitive-lambda| - (lambda (_%stx200460%_) - (let* ((_%g200463200487%_ - (lambda (_%g200464200483%_) + (lambda (_%stx199360%_) + (let* ((_%g199363199387%_ + (lambda (_%g199364199383%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200464200483%_)))) - (_%g200462200770%_ - (lambda (_%g200464200491%_) + _%g199364199383%_)))) + (_%g199362199670%_ + (lambda (_%g199364199391%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g200464200491%_)) - (let ((_%e200469200494%_ + (gx#stx-pair? _%g199364199391%_)) + (let ((_%e199369199394%_ (let () (declare (not safe)) - (gx#syntax-e _%g200464200491%_)))) - (let ((_%hd200468200498%_ + (gx#syntax-e _%g199364199391%_)))) + (let ((_%hd199368199398%_ (let () (declare (not safe)) - (##car _%e200469200494%_))) - (_%tl200467200501%_ + (##car _%e199369199394%_))) + (_%tl199367199401%_ (let () (declare (not safe)) - (##cdr _%e200469200494%_)))) + (##cdr _%e199369199394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl200467200501%_)) - (let ((_%e200472200504%_ + (gx#stx-pair? _%tl199367199401%_)) + (let ((_%e199372199404%_ (let () (declare (not safe)) - (gx#syntax-e _%tl200467200501%_)))) - (let ((_%hd200471200508%_ + (gx#syntax-e _%tl199367199401%_)))) + (let ((_%hd199371199408%_ (let () (declare (not safe)) - (##car _%e200472200504%_))) - (_%tl200470200511%_ + (##car _%e199372199404%_))) + (_%tl199370199411%_ (let () (declare (not safe)) - (##cdr _%e200472200504%_)))) + (##cdr _%e199372199404%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl200470200511%_)) - (let ((_g202768_ + (gx#stx-pair/null? _%tl199370199411%_)) + (let ((_g201732_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl200470200511%_ + _%tl199370199411%_ '0)))) (begin - (let ((_g202769_ + (let ((_g201733_ (let () (declare (not safe)) - (if (##values? _g202768_) + (if (##values? _g201732_) (##vector-length - _g202768_) + _g201732_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g202769_ 2))) + (##fx= _g201733_ 2))) (error "Context expects 2 values" - _g202769_))) - (let ((_%target200473200514%_ + _g201733_))) + (let ((_%target199373199414%_ (let () (declare (not safe)) - (##vector-ref _g202768_ 0))) - (_%tl200475200517%_ + (##vector-ref _g201732_ 0))) + (_%tl199375199417%_ (let () (declare (not safe)) (##vector-ref - _g202768_ + _g201732_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl200475200517%_)) - (letrec ((_%loop200476200520%_ - (lambda (_%hd200474200524%_ + _%tl199375199417%_)) + (letrec ((_%loop199376199420%_ + (lambda (_%hd199374199424%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signature200480200527%_) + _%signature199380199427%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd200474200524%_)) - (let ((_%e200477200530%_ + (gx#stx-pair? _%hd199374199424%_)) + (let ((_%e199377199430%_ (let () (declare (not safe)) - (gx#syntax-e _%hd200474200524%_)))) - (let ((_%lp-hd200478200534%_ + (gx#syntax-e _%hd199374199424%_)))) + (let ((_%lp-hd199378199434%_ (let () (declare (not safe)) - (##car _%e200477200530%_))) - (_%lp-tl200479200537%_ + (##car _%e199377199430%_))) + (_%lp-tl199379199437%_ (let () (declare (not safe)) - (##cdr _%e200477200530%_)))) - (_%loop200476200520%_ - _%lp-tl200479200537%_ - (cons _%lp-hd200478200534%_ - _%signature200480200527%_)))) - (let ((_%signature200481200540%_ - (reverse _%signature200480200527%_))) - ((lambda (_%L200544%_ _%L200546%_) + (##cdr _%e199377199430%_)))) + (_%loop199376199420%_ + _%lp-tl199379199437%_ + (cons _%lp-hd199378199434%_ + _%signature199380199427%_)))) + (let ((_%signature199381199440%_ + (reverse _%signature199380199427%_))) + ((lambda (_%L199444%_ _%L199446%_) (if (let () (declare (not safe)) - (gx#identifier? _%L200546%_)) - (let* ((_%g200564200579%_ - (lambda (_%g200565200575%_) + (gx#identifier? _%L199446%_)) + (let* ((_%g199464199479%_ + (lambda (_%g199465199475%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200565200575%_)))) - (_%g200563200758%_ - (lambda (_%g200565200583%_) + _%g199465199475%_)))) + (_%g199463199658%_ + (lambda (_%g199465199483%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g200565200583%_)) - (let ((_%e200570200586%_ + _%g199465199483%_)) + (let ((_%e199470199486%_ (let () (declare (not safe)) (gx#syntax-e - _%g200565200583%_)))) - (let ((_%hd200569200590%_ + _%g199465199483%_)))) + (let ((_%hd199469199490%_ (let () (declare (not safe)) - (##car _%e200570200586%_))) - (_%tl200568200593%_ + (##car _%e199470199486%_))) + (_%tl199468199493%_ (let () (declare (not safe)) - (##cdr _%e200570200586%_)))) + (##cdr _%e199470199486%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl200568200593%_)) - (let ((_%e200573200596%_ + _%tl199468199493%_)) + (let ((_%e199473199496%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl200568200593%_)))) - (let ((_%hd200572200600%_ + (gx#syntax-e _%tl199468199493%_)))) + (let ((_%hd199472199500%_ (let () (declare (not safe)) - (##car _%e200573200596%_))) - (_%tl200571200603%_ + (##car _%e199473199496%_))) + (_%tl199471199503%_ (let () (declare (not safe)) - (##cdr _%e200573200596%_)))) + (##cdr _%e199473199496%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl200571200603%_)) - ((lambda (_%L200606%_ _%L200608%_) - (let () - (let* ((_%g200624200632%_ - (lambda (_%g200625200628%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g200625200628%_)))) - (_%g200623200754%_ - (lambda (_%g200625200636%_) - ((lambda (_%L200639%_) - (let () - (let* ((_%unchecked200652%_ - (let () - (declare (not safe)) - (|gxc[1]#signature->unchecked-signature| - _%L200606%_))) - (_%g200655200663%_ - (lambda (_%g200656200659%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g200656200659%_)))) - (_%g200654200686%_ - (lambda (_%g200656200667%_) - ((lambda (_%L200670%_) - (let () - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'begin)) - (cons _%L200639%_ (cons _%L200670%_ '()))))) - _%g200656200667%_)))) + (gx#stx-null? _%tl199471199503%_)) + ((lambda (_%L199506%_ _%L199508%_) + (let* ((_%g199524199532%_ + (lambda (_%g199525199528%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g199525199528%_)))) + (_%g199523199654%_ + (lambda (_%g199525199536%_) + ((lambda (_%L199539%_) + (let* ((_%unchecked199552%_ + (|gxc[1]#signature->unchecked-signature| + _%L199506%_)) + (_%g199555199563%_ + (lambda (_%g199556199559%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g199556199559%_)))) + (_%g199554199586%_ + (lambda (_%g199556199567%_) + ((lambda (_%L199570%_) + (cons (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'begin)) + (cons _%L199539%_ + (cons _%L199570%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g200654200686%_ - (if _%unchecked200652%_ - (let* ((_%g200690200705%_ - (lambda (_%g200691200701%_) - (let () + _%g199556199567%_)))) + (_%g199554199586%_ + (if _%unchecked199552%_ + (let* ((_%g199590199605%_ + (lambda (_%g199591199601%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g199591199601%_)))) + (_%g199589199650%_ + (lambda (_%g199591199609%_) + (if (let () (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g200691200701%_)))) - (_%g200689200750%_ - (lambda (_%g200691200709%_) - (if (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#stx-pair? _%g200691200709%_)) - (let ((_%e200696200712%_ - (let () - (declare (not safe)) - (gx#syntax-e _%g200691200709%_)))) - (let ((_%hd200695200716%_ - (let () - (declare (not safe)) - (##car _%e200696200712%_))) - (_%tl200694200719%_ - (let () - (declare (not safe)) - (##cdr _%e200696200712%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl200694200719%_)) - (let ((_%e200699200722%_ - (let () - (declare (not safe)) - (gx#syntax-e _%tl200694200719%_)))) - (let ((_%hd200698200726%_ - (let () - (declare (not safe)) - (##car _%e200699200722%_))) - (_%tl200697200729%_ - (let () - (declare (not safe)) - (##cdr _%e200699200722%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl200697200729%_)) - ((lambda (_%L200732%_ _%L200734%_) - (let () - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'declare-type)) - (cons _%L200734%_ - (cons (cons (let () + (gx#stx-pair? + _%g199591199609%_)) + (let ((_%e199596199612%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#syntax-e _%g199591199609%_)))) + (let ((_%hd199595199616%_ + (let () (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'make-!primitive-lambda)) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'quote)) - (cons _%L200608%_ '())) - (cons '#f - (cons 'signature: - (cons _%L200732%_ '()))))) - '()))))) + (##car _%e199596199612%_))) + (_%tl199594199619%_ + (let () + (declare (not safe)) + (##cdr _%e199596199612%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl199594199619%_)) + (let ((_%e199599199622%_ + (let () + (declare (not safe)) + (gx#syntax-e _%tl199594199619%_)))) + (let ((_%hd199598199626%_ + (let () + (declare (not safe)) + (##car _%e199599199622%_))) + (_%tl199597199629%_ + (let () + (declare (not safe)) + (##cdr _%e199599199622%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl199597199629%_)) + ((lambda (_%L199632%_ _%L199634%_) + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'declare-type)) + (cons _%L199634%_ + (cons (cons (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#datum->syntax__0 '#f 'make-!primitive-lambda)) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote)) + (cons _%L199508%_ '())) + (cons '#f + (cons 'signature: (cons _%L199632%_ '()))))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd200698200726%_ - _%hd200695200716%_) - (_%g200690200705%_ - _%g200691200709%_)))) - (_%g200690200705%_ _%g200691200709%_)))) - (_%g200690200705%_ _%g200691200709%_))))) + _%hd199598199626%_ + _%hd199595199616%_) + (_%g199590199605%_ _%g199591199609%_)))) + (_%g199590199605%_ _%g199591199609%_)))) + (_%g199590199605%_ _%g199591199609%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g200689200750%_ - _%unchecked200652%_)) - '(begin)))))) - _%g200625200636%_)))) - (_%g200623200754%_ - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L200546%_ - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'make-!primitive-lambda)) - (cons (cons (let () + (_%g199589199650%_ + _%unchecked199552%_)) + '(begin))))) + _%g199525199536%_)))) + (_%g199523199654%_ + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'declare-type)) + (cons _%L199446%_ + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!primitive-lambda)) + (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 '#f 'quote)) - (cons _%L200608%_ '())) - (cons '#f (cons 'signature: (cons _%L200606%_ '()))))) + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote)) + (cons _%L199508%_ '())) + (cons '#f (cons 'signature: (cons _%L199506%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))))) - _%hd200572200600%_ - _%hd200569200590%_) - (_%g200564200579%_ _%g200565200583%_)))) - (_%g200564200579%_ _%g200565200583%_)))) + '())))))) + _%hd199472199500%_ + _%hd199469199490%_) + (_%g199464199479%_ _%g199465199483%_)))) + (_%g199464199479%_ _%g199465199483%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g200564200579%_ - _%g200565200583%_))))) - (_%g200563200758%_ - (let ((__tmp202770 - (let ((__tmp202771 - (lambda (_%g200761200764%_ - _%g200762200767%_) - (cons _%g200761200764%_ - _%g200762200767%_)))) - (declare (not safe)) - (__foldr1 - __tmp202771 - '() - _%L200544%_)))) - (declare (not safe)) - (|gxc[1]#parse-signature| - _%stx200460%_ - _%L200546%_ - __tmp202770)))) - (_%g200463200487%_ _%g200464200491%_))) - _%signature200481200540%_ - _%hd200471200508%_)))))) + (_%g199464199479%_ + _%g199465199483%_))))) + (_%g199463199658%_ + (|gxc[1]#parse-signature| + _%stx199360%_ + _%L199446%_ + (let ((__tmp201734 + (lambda (_%g199661199664%_ + _%g199662199667%_) + (cons _%g199661199664%_ + _%g199662199667%_)))) + (declare (not safe)) + (__foldr1 + __tmp201734 + '() + _%L199444%_))))) + (_%g199363199387%_ _%g199364199391%_))) + _%signature199381199440%_ + _%hd199371199408%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop200476200520%_ - _%target200473200514%_ + (_%loop199376199420%_ + _%target199373199414%_ '())) - (_%g200463200487%_ - _%g200464200491%_))))) - (_%g200463200487%_ _%g200464200491%_)))) - (_%g200463200487%_ _%g200464200491%_)))) - (_%g200463200487%_ _%g200464200491%_))))) - (_%g200462200770%_ _%stx200460%_)))) + (_%g199363199387%_ + _%g199364199391%_))))) + (_%g199363199387%_ _%g199364199391%_)))) + (_%g199363199387%_ _%g199364199391%_)))) + (_%g199363199387%_ _%g199364199391%_))))) + (_%g199362199670%_ _%stx199360%_)))) (define |gxc[:0:]#declare-primitive-case-lambda| - (lambda (_%stx200775%_) - (let* ((_%g200778200802%_ - (lambda (_%g200779200798%_) + (lambda (_%stx199675%_) + (let* ((_%g199678199702%_ + (lambda (_%g199679199698%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200779200798%_)))) - (_%g200777201616%_ - (lambda (_%g200779200806%_) + _%g199679199698%_)))) + (_%g199677200585%_ + (lambda (_%g199679199706%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g200779200806%_)) - (let ((_%e200784200809%_ + (gx#stx-pair? _%g199679199706%_)) + (let ((_%e199684199709%_ (let () (declare (not safe)) - (gx#syntax-e _%g200779200806%_)))) - (let ((_%hd200783200813%_ + (gx#syntax-e _%g199679199706%_)))) + (let ((_%hd199683199713%_ (let () (declare (not safe)) - (##car _%e200784200809%_))) - (_%tl200782200816%_ + (##car _%e199684199709%_))) + (_%tl199682199716%_ (let () (declare (not safe)) - (##cdr _%e200784200809%_)))) + (##cdr _%e199684199709%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl200782200816%_)) - (let ((_%e200787200819%_ + (gx#stx-pair? _%tl199682199716%_)) + (let ((_%e199687199719%_ (let () (declare (not safe)) - (gx#syntax-e _%tl200782200816%_)))) - (let ((_%hd200786200823%_ + (gx#syntax-e _%tl199682199716%_)))) + (let ((_%hd199686199723%_ (let () (declare (not safe)) - (##car _%e200787200819%_))) - (_%tl200785200826%_ + (##car _%e199687199719%_))) + (_%tl199685199726%_ (let () (declare (not safe)) - (##cdr _%e200787200819%_)))) + (##cdr _%e199687199719%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl200785200826%_)) - (let ((_g202772_ + (gx#stx-pair/null? _%tl199685199726%_)) + (let ((_g201735_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl200785200826%_ + _%tl199685199726%_ '0)))) (begin - (let ((_g202773_ + (let ((_g201736_ (let () (declare (not safe)) - (if (##values? _g202772_) + (if (##values? _g201735_) (##vector-length - _g202772_) + _g201735_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g202773_ 2))) + (##fx= _g201736_ 2))) (error "Context expects 2 values" - _g202773_))) - (let ((_%target200788200829%_ + _g201736_))) + (let ((_%target199688199729%_ (let () (declare (not safe)) - (##vector-ref _g202772_ 0))) - (_%tl200790200832%_ + (##vector-ref _g201735_ 0))) + (_%tl199690199732%_ (let () (declare (not safe)) (##vector-ref - _g202772_ + _g201735_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl200790200832%_)) - (letrec ((_%loop200791200835%_ - (lambda (_%hd200789200839%_ + _%tl199690199732%_)) + (letrec ((_%loop199691199735%_ + (lambda (_%hd199689199739%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%case-signature200795200842%_) + _%case-signature199695199742%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd200789200839%_)) - (let ((_%e200792200845%_ + (gx#stx-pair? _%hd199689199739%_)) + (let ((_%e199692199745%_ (let () (declare (not safe)) - (gx#syntax-e _%hd200789200839%_)))) - (let ((_%lp-hd200793200849%_ + (gx#syntax-e _%hd199689199739%_)))) + (let ((_%lp-hd199693199749%_ (let () (declare (not safe)) - (##car _%e200792200845%_))) - (_%lp-tl200794200852%_ + (##car _%e199692199745%_))) + (_%lp-tl199694199752%_ (let () (declare (not safe)) - (##cdr _%e200792200845%_)))) - (_%loop200791200835%_ - _%lp-tl200794200852%_ - (cons _%lp-hd200793200849%_ - _%case-signature200795200842%_)))) - (let ((_%case-signature200796200855%_ - (reverse _%case-signature200795200842%_))) - ((lambda (_%L200859%_ _%L200861%_) + (##cdr _%e199692199745%_)))) + (_%loop199691199735%_ + _%lp-tl199694199752%_ + (cons _%lp-hd199693199749%_ + _%case-signature199695199742%_)))) + (let ((_%case-signature199696199755%_ + (reverse _%case-signature199695199742%_))) + ((lambda (_%L199759%_ _%L199761%_) (if (let () (declare (not safe)) - (gx#identifier? _%L200861%_)) - (let* ((_%signatures200892%_ - (map (lambda (_%g200878200880%_) - (let () - (declare (not safe)) - (|gxc[1]#parse-signature| - _%stx200775%_ - _%L200861%_ - _%g200878200880%_))) - (let ((__tmp202774 - (lambda (_%g200883200886%_ - _%g200884200889%_) - (cons _%g200883200886%_ - _%g200884200889%_)))) + (gx#identifier? _%L199761%_)) + (let* ((_%signatures199792%_ + (map (lambda (_%g199778199780%_) + (|gxc[1]#parse-signature| + _%stx199675%_ + _%L199761%_ + _%g199778199780%_)) + (let ((__tmp201737 + (lambda (_%g199783199786%_ + _%g199784199789%_) + (cons _%g199783199786%_ + _%g199784199789%_)))) (declare (not safe)) (__foldr1 - __tmp202774 + __tmp201737 '() - _%L200859%_)))) - (_%g200895200921%_ - (lambda (_%g200896200917%_) + _%L199759%_)))) + (_%g199795199821%_ + (lambda (_%g199796199817%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200896200917%_)))) - (_%g200894201612%_ - (lambda (_%g200896200925%_) + _%g199796199817%_)))) + (_%g199794200581%_ + (lambda (_%g199796199825%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g200896200925%_)) - (let ((_g202775_ + _%g199796199825%_)) + (let ((_g201738_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g200896200925%_ + _%g199796199825%_ '0)))) (begin - (let ((_g202776_ + (let ((_g201739_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g202775_) - (##vector-length _g202775_) + _g201738_) + (##vector-length _g201738_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g202776_ 2))) - (error "Context expects 2 values" _g202776_))) + (##fx= _g201739_ 2))) + (error "Context expects 2 values" _g201739_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target200899200928%_ + (let ((_%target199799199828%_ (let () (declare (not safe)) (##vector-ref - _g202775_ + _g201738_ 0))) - (_%tl200901200931%_ + (_%tl199801199831%_ (let () (declare (not safe)) (##vector-ref - _g202775_ + _g201738_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl200901200931%_)) - (letrec ((_%loop200902200934%_ + _%tl199801199831%_)) + (letrec ((_%loop199802199834%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd200900200938%_ - _%sig200906200941%_ - _%arity200907200943%_) + (lambda (_%hd199800199838%_ + _%sig199806199841%_ + _%arity199807199843%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd200900200938%_)) - (let ((_%e200903200946%_ + (gx#stx-pair? _%hd199800199838%_)) + (let ((_%e199803199846%_ (let () (declare (not safe)) - (gx#syntax-e _%hd200900200938%_)))) - (let ((_%lp-hd200904200950%_ + (gx#syntax-e _%hd199800199838%_)))) + (let ((_%lp-hd199804199850%_ (let () (declare (not safe)) - (##car _%e200903200946%_))) - (_%lp-tl200905200953%_ + (##car _%e199803199846%_))) + (_%lp-tl199805199853%_ (let () (declare (not safe)) - (##cdr _%e200903200946%_)))) + (##cdr _%e199803199846%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd200904200950%_)) - (let ((_%e200912200956%_ + _%lp-hd199804199850%_)) + (let ((_%e199812199856%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd200904200950%_)))) - (let ((_%hd200911200960%_ + _%lp-hd199804199850%_)))) + (let ((_%hd199811199860%_ (let () (declare (not safe)) - (##car _%e200912200956%_))) - (_%tl200910200963%_ + (##car _%e199812199856%_))) + (_%tl199810199863%_ (let () (declare (not safe)) - (##cdr _%e200912200956%_)))) + (##cdr _%e199812199856%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl200910200963%_)) - (let ((_%e200915200966%_ + _%tl199810199863%_)) + (let ((_%e199815199866%_ (let () (declare (not safe)) (gx#syntax-e - _%tl200910200963%_)))) - (let ((_%hd200914200970%_ + _%tl199810199863%_)))) + (let ((_%hd199814199870%_ (let () (declare (not safe)) - (##car _%e200915200966%_))) - (_%tl200913200973%_ + (##car _%e199815199866%_))) + (_%tl199813199873%_ (let () (declare (not safe)) - (##cdr _%e200915200966%_)))) + (##cdr _%e199815199866%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl200913200973%_)) - (_%loop200902200934%_ - _%lp-tl200905200953%_ - (cons _%hd200914200970%_ - _%sig200906200941%_) - (cons _%hd200911200960%_ - _%arity200907200943%_)) - (_%g200895200921%_ - _%g200896200925%_)))) - (_%g200895200921%_ - _%g200896200925%_)))) - (_%g200895200921%_ - _%g200896200925%_)))) - (let ((_%sig200908200976%_ - (reverse _%sig200906200941%_)) - (_%arity200909200979%_ - (reverse _%arity200907200943%_))) - ((lambda (_%L200982%_ _%L200984%_) - (let () - (let* ((_%g201001201009%_ - (lambda (_%g201002201005%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g201002201005%_)))) - (_%g201000201597%_ - (lambda (_%g201002201013%_) - ((lambda (_%L201016%_) - (let () - (let* ((_%g201029201037%_ - (lambda (_%g201030201033%_) + _%tl199813199873%_)) + (_%loop199802199834%_ + _%lp-tl199805199853%_ + (cons _%hd199814199870%_ + _%sig199806199841%_) + (cons _%hd199811199860%_ + _%arity199807199843%_)) + (_%g199795199821%_ + _%g199796199825%_)))) + (_%g199795199821%_ + _%g199796199825%_)))) + (_%g199795199821%_ + _%g199796199825%_)))) + (let ((_%sig199808199876%_ + (reverse _%sig199806199841%_)) + (_%arity199809199879%_ + (reverse _%arity199807199843%_))) + ((lambda (_%L199882%_ _%L199884%_) + (let* ((_%g199901199909%_ + (lambda (_%g199902199905%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g199902199905%_)))) + (_%g199900200566%_ + (lambda (_%g199902199913%_) + ((lambda (_%L199916%_) + (let* ((_%g199929199937%_ + (lambda (_%g199930199933%_) + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g201030201033%_)))) - (_%g201028201059%_ - (lambda (_%g201030201041%_) - ((lambda (_%L201044%_) - (let () - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'begin)) - (cons _%L201016%_ - (cons _%L201044%_ '()))))) - _%g201030201041%_)))) - (_%g201028201059%_ - (let ((_g202777_ - (let _%loop201063%_ ((_%rest201066%_ - _%signatures200892%_) - (_%unchecked-proc201068%_ '#f) - (_%unchecked-clauses201069%_ - '())) - (let* ((_%rest201070201078%_ _%rest201066%_) - (_%else201072201090%_ - (lambda () - (values _%unchecked-proc201068%_ - (reverse! - _%unchecked-clauses201069%_)))) - (_%K201074201462%_ - (lambda (_%rest201094%_ _%hd201096%_) - (let* ((_%g201098201171%_ - (lambda (_%g201099201167%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g201099201167%_)))) - (_%g201097201458%_ - (lambda (_%g201099201175%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%g201099201175%_)) - (let ((_%e201107201178%_ - (let () - (declare - (not safe)) - (gx#syntax-e - _%g201099201175%_)))) - (let ((_%hd201106201182%_ - (let () - (declare - (not safe)) - (##car _%e201107201178%_))) - (_%tl201105201185%_ - (let () - (declare - (not safe)) - (##cdr _%e201107201178%_)))) - (if (let () - (declare - (not safe)) - (gx#stx-pair? - _%tl201105201185%_)) - (let ((_%e201110201188%_ + (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g199930199933%_)))) + (_%g199928199959%_ + (lambda (_%g199930199941%_) + ((lambda (_%L199944%_) + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'begin)) + (cons _%L199916%_ (cons _%L199944%_ '())))) + _%g199930199941%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g199928199959%_ + (let ((_g201740_ + (let _%loop199963%_ ((_%rest199966%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gx#syntax-e _%tl201105201185%_)))) - (let ((_%hd201109201192%_ - (let () - (declare (not safe)) - (##car _%e201110201188%_))) - (_%tl201108201195%_ - (let () - (declare (not safe)) - (##cdr _%e201110201188%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd201109201192%_)) - (let ((_%e201113201198%_ - (let () - (declare (not safe)) - (gx#syntax-e _%hd201109201192%_)))) - (let ((_%hd201112201202%_ - (let () - (declare (not safe)) - (##car _%e201113201198%_))) - (_%tl201111201205%_ - (let () - (declare (not safe)) - (##cdr _%e201113201198%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl201111201205%_)) - (let ((_%e201116201208%_ - (let () - (declare (not safe)) - (gx#syntax-e _%tl201111201205%_)))) - (let ((_%hd201115201212%_ - (let () - (declare (not safe)) - (##car _%e201116201208%_))) - (_%tl201114201215%_ - (let () - (declare (not safe)) - (##cdr _%e201116201208%_)))) - (if (let () + _%signatures199792%_) + (_%unchecked-proc199968%_ '#f) + (_%unchecked-clauses199969%_ '())) + (let* ((_%rest199970199978%_ _%rest199966%_) + (_%else199972199990%_ + (lambda () + (values _%unchecked-proc199968%_ + (reverse! + _%unchecked-clauses199969%_)))) + (_%K199974200431%_ + (lambda (_%rest199994%_ _%hd199996%_) + (let* ((_%g199998200085%_ + (lambda (_%g199999200081%_) + (let () (declare (not safe)) - (gx#stx-datum? - _%hd201115201212%_)) - (let ((_%e201117201218%_ - (let () - (declare (not safe)) - (gx#stx-e - _%hd201115201212%_)))) - (if (equal? _%e201117201218%_ - 'arguments:) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl201114201215%_)) - (let ((_%e201120201222%_ - (let () - (declare - (not safe)) - (gx#syntax-e - _%tl201114201215%_)))) - (let ((_%hd201119201226%_ + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g199999200081%_)))) + (_%g199997200427%_ + (lambda (_%g199999200089%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%g199999200089%_)) + (let ((_%e200008200092%_ + (let () + (declare (not safe)) + (gx#syntax-e + _%g199999200089%_)))) + (let ((_%hd200007200096%_ + (let () + (declare (not safe)) + (##car _%e200008200092%_))) + (_%tl200006200099%_ + (let () + (declare (not safe)) + (##cdr _%e200008200092%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl200006200099%_)) + (let ((_%e200011200102%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e201120201222%_))) - (_%tl201118201229%_ - (let () (declare (not safe)) (##cdr _%e201120201222%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd201119201226%_)) - (let ((_%e201123201232%_ - (let () - (declare (not safe)) - (gx#syntax-e _%hd201119201226%_)))) - (let ((_%hd201122201236%_ - (let () - (declare (not safe)) - (##car _%e201123201232%_))) - (_%tl201121201239%_ + (gx#syntax-e _%tl200006200099%_)))) + (let ((_%hd200010200106%_ + (let () + (declare (not safe)) + (##car _%e200011200102%_))) + (_%tl200009200109%_ + (let () + (declare (not safe)) + (##cdr _%e200011200102%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd200010200106%_)) + (let ((_%e200014200112%_ (let () (declare (not safe)) - (##cdr _%e201123201232%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? _%hd201122201236%_)) - (if (let ((__tmp202779 |gxc[1]#_g202780_|)) - (declare (not safe)) - (gx#free-identifier=? - __tmp202779 - _%hd201122201236%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl201121201239%_)) - (let ((_%e201126201242%_ - (let () - (declare (not safe)) - (gx#syntax-e - _%tl201121201239%_)))) - (let ((_%hd201125201246%_ - (let () - (declare (not safe)) - (##car _%e201126201242%_))) - (_%tl201124201249%_ + (gx#syntax-e _%hd200010200106%_)))) + (let ((_%hd200013200116%_ + (let () + (declare (not safe)) + (##car _%e200014200112%_))) + (_%tl200012200119%_ + (let () + (declare (not safe)) + (##cdr _%e200014200112%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl200012200119%_)) + (let ((_%e200017200122%_ + (let () + (declare (not safe)) + (gx#syntax-e _%tl200012200119%_)))) + (let ((_%hd200016200126%_ + (let () + (declare (not safe)) + (##car _%e200017200122%_))) + (_%tl200015200129%_ + (let () + (declare (not safe)) + (##cdr _%e200017200122%_)))) + (if (let () + (declare (not safe)) + (gx#stx-datum? _%hd200016200126%_)) + (let ((_%e200018200132%_ (let () (declare (not safe)) - (##cdr _%e201126201242%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl201124201249%_)) + (gx#stx-e + _%hd200016200126%_)))) + (if (equal? _%e200018200132%_ + 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201118201229%_)) - (let ((_%e201129201252%_ + _%tl200015200129%_)) + (let ((_%e200021200136%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201118201229%_)))) - (let ((_%hd201128201256%_ + _%tl200015200129%_)))) + (let ((_%hd200020200140%_ (let () (declare (not safe)) - (##car _%e201129201252%_))) - (_%tl201127201259%_ + (##car _%e200021200136%_))) + (_%tl200019200143%_ (let () (declare (not safe)) - (##cdr _%e201129201252%_)))) + (##cdr _%e200021200136%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? - _%hd201128201256%_)) - (let ((_%e201130201262%_ + (gx#stx-pair? + _%hd200020200140%_)) + (let ((_%e200024200146%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd201128201256%_)))) - (if (equal? _%e201130201262%_ 'return:) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl201127201259%_)) - (let ((_%e201133201266%_ - (let () - (declare (not safe)) - (gx#syntax-e _%tl201127201259%_)))) - (let ((_%hd201132201270%_ - (let () - (declare (not safe)) - (##car _%e201133201266%_))) - (_%tl201131201273%_ - (let () - (declare (not safe)) - (##cdr _%e201133201266%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd201132201270%_)) - (let ((_%e201136201276%_ + (gx#syntax-e _%hd200020200140%_)))) + (let ((_%hd200023200150%_ + (let () + (declare (not safe)) + (##car _%e200024200146%_))) + (_%tl200022200153%_ + (let () + (declare (not safe)) + (##cdr _%e200024200146%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _%hd200023200150%_)) + (if (let ((__tmp201742 |gxc[1]#_g201743_|)) + (declare (not safe)) + (gx#free-identifier=? + __tmp201742 + _%hd200023200150%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl200022200153%_)) + (let ((_%e200027200156%_ + (let () + (declare (not safe)) + (gx#syntax-e _%tl200022200153%_)))) + (let ((_%hd200026200160%_ (let () (declare (not safe)) - (gx#syntax-e _%hd201132201270%_)))) - (let ((_%hd201135201280%_ - (let () - (declare (not safe)) - (##car _%e201136201276%_))) - (_%tl201134201283%_ - (let () - (declare (not safe)) - (##cdr _%e201136201276%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? - _%hd201135201280%_)) - (if (let ((__tmp202781 - |gxc[1]#_g202782_|)) - (declare (not safe)) - (gx#free-identifier=? - __tmp202781 - _%hd201135201280%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl201134201283%_)) - (let ((_%e201139201286%_ - (let () - (declare - (not safe)) - (gx#syntax-e - _%tl201134201283%_)))) - (let ((_%hd201138201290%_ - (let () - (declare - (not safe)) - (##car _%e201139201286%_))) - (_%tl201137201293%_ - (let () - (declare + (##car _%e200027200156%_))) + (_%tl200025200163%_ + (let () + (declare (not safe)) + (##cdr _%e200027200156%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl200025200163%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl200019200143%_)) + (let ((_%e200030200166%_ + (let () + (declare (not safe)) + (gx#syntax-e + _%tl200019200143%_)))) + (let ((_%hd200029200170%_ + (let () + (declare (not safe)) + (##car _%e200030200166%_))) + (_%tl200028200173%_ + (let () + (declare (not safe)) + (##cdr _%e200030200166%_)))) + (if (let () + (declare (not safe)) + (gx#stx-datum? + _%hd200029200170%_)) + (let ((_%e200031200176%_ + (let () + (declare (not safe)) - (##cdr _%e201139201286%_)))) - (if (let () - (declare - (not safe)) - (gx#stx-null? - _%tl201137201293%_)) - (if (let () + (gx#stx-e + _%hd200029200170%_)))) + (if (equal? _%e200031200176%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + 'return:) + (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201131201273%_)) - (let ((_%e201142201296%_ + (gx#stx-pair? _%tl200028200173%_)) + (let ((_%e200034200180%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201131201273%_)))) - (let ((_%hd201141201300%_ + (gx#syntax-e _%tl200028200173%_)))) + (let ((_%hd200033200184%_ (let () (declare (not safe)) - (##car _%e201142201296%_))) - (_%tl201140201303%_ + (##car _%e200034200180%_))) + (_%tl200032200187%_ (let () (declare (not safe)) - (##cdr _%e201142201296%_)))) + (##cdr _%e200034200180%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd201141201300%_)) - (let ((_%e201143201306%_ + (gx#stx-pair? _%hd200033200184%_)) + (let ((_%e200037200190%_ (let () (declare (not safe)) - (gx#stx-e _%hd201141201300%_)))) - (if (equal? _%e201143201306%_ 'effect:) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl201140201303%_)) - (let ((_%e201146201310%_ - (let () - (declare (not safe)) - (gx#syntax-e - _%tl201140201303%_)))) - (let ((_%hd201145201314%_ - (let () - (declare (not safe)) - (##car _%e201146201310%_))) - (_%tl201144201317%_ - (let () - (declare (not safe)) - (##cdr _%e201146201310%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%hd201145201314%_)) - (let ((_%e201149201320%_ + (gx#syntax-e _%hd200033200184%_)))) + (let ((_%hd200036200194%_ + (let () + (declare (not safe)) + (##car _%e200037200190%_))) + (_%tl200035200197%_ + (let () + (declare (not safe)) + (##cdr _%e200037200190%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _%hd200036200194%_)) + (if (let ((__tmp201744 + |gxc[1]#_g201745_|)) + (declare (not safe)) + (gx#free-identifier=? + __tmp201744 + _%hd200036200194%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl200035200197%_)) + (let ((_%e200040200200%_ + (let () + (declare (not safe)) + (gx#syntax-e + _%tl200035200197%_)))) + (let ((_%hd200039200204%_ (let () (declare (not safe)) - (gx#syntax-e - _%hd201145201314%_)))) - (let ((_%hd201148201324%_ - (let () - (declare - (not safe)) - (##car _%e201149201320%_))) - (_%tl201147201327%_ - (let () - (declare - (not safe)) - (##cdr _%e201149201320%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? - _%hd201148201324%_)) - (if (let ((__tmp202783 + (##car _%e200040200200%_))) + (_%tl200038200207%_ + (let () + (declare (not safe)) + (##cdr _%e200040200200%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _%tl200038200207%_)) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _%tl200032200187%_)) + (let ((_%e200043200210%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g202784_|)) - (declare (not safe)) - (gx#free-identifier=? __tmp202783 _%hd201148201324%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl201147201327%_)) - (let ((_%e201152201330%_ - (let () - (declare (not safe)) - (gx#syntax-e _%tl201147201327%_)))) - (let ((_%hd201151201334%_ - (let () - (declare (not safe)) - (##car _%e201152201330%_))) - (_%tl201150201337%_ + (let () + (declare (not safe)) + (gx#syntax-e _%tl200032200187%_)))) + (let ((_%hd200042200214%_ + (let () + (declare (not safe)) + (##car _%e200043200210%_))) + (_%tl200041200217%_ + (let () + (declare (not safe)) + (##cdr _%e200043200210%_)))) + (if (let () + (declare (not safe)) + (gx#stx-datum? _%hd200042200214%_)) + (let ((_%e200044200220%_ (let () (declare (not safe)) - (##cdr _%e201152201330%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl201150201337%_)) + (gx#stx-e _%hd200042200214%_)))) + (if (equal? _%e200044200220%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201144201317%_)) - (let ((_%e201155201340%_ + (gx#stx-pair? _%tl200041200217%_)) + (let ((_%e200047200224%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201144201317%_)))) - (let ((_%hd201154201344%_ + _%tl200041200217%_)))) + (let ((_%hd200046200228%_ (let () (declare (not safe)) - (##car _%e201155201340%_))) - (_%tl201153201347%_ + (##car _%e200047200224%_))) + (_%tl200045200231%_ (let () (declare (not safe)) - (##cdr _%e201155201340%_)))) + (##cdr _%e200047200224%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? - _%hd201154201344%_)) - (let ((_%e201156201350%_ + (gx#stx-pair? + _%hd200046200228%_)) + (let ((_%e200050200234%_ (let () (declare (not safe)) - (gx#stx-e - _%hd201154201344%_)))) - (if (equal? _%e201156201350%_ - 'unchecked:) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl201153201347%_)) - (let ((_%e201159201354%_ - (let () - (declare + (gx#syntax-e + _%hd200046200228%_)))) + (let ((_%hd200049200238%_ + (let () + (declare (not safe)) + (##car _%e200050200234%_))) + (_%tl200048200241%_ + (let () + (declare (not safe)) + (##cdr _%e200050200234%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _%hd200049200238%_)) + (if (let ((__tmp201746 + |gxc[1]#_g201747_|)) + (declare (not safe)) + (gx#free-identifier=? + __tmp201746 + _%hd200049200238%_)) + (if (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gx#syntax-e _%tl201153201347%_)))) - (let ((_%hd201158201358%_ - (let () - (declare (not safe)) - (##car _%e201159201354%_))) - (_%tl201157201361%_ - (let () - (declare (not safe)) - (##cdr _%e201159201354%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%hd201158201358%_)) - (let ((_%e201162201364%_ + (not safe)) + (gx#stx-pair? _%tl200048200241%_)) + (let ((_%e200053200244%_ + (let () + (declare (not safe)) + (gx#syntax-e _%tl200048200241%_)))) + (let ((_%hd200052200248%_ (let () (declare (not safe)) - (gx#syntax-e _%hd201158201358%_)))) - (let ((_%hd201161201368%_ - (let () - (declare (not safe)) - (##car _%e201162201364%_))) - (_%tl201160201371%_ - (let () - (declare (not safe)) - (##cdr _%e201162201364%_)))) - (if (let () - (declare (not safe)) - (gx#identifier? _%hd201161201368%_)) - (if (let ((__tmp202785 |gxc[1]#_g202786_|)) - (declare (not safe)) - (gx#free-identifier=? - __tmp202785 - _%hd201161201368%_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%tl201160201371%_)) - (let ((_%e201165201374%_ - (let () - (declare (not safe)) - (gx#syntax-e - _%tl201160201371%_)))) - (let ((_%hd201164201378%_ - (let () - (declare (not safe)) - (##car _%e201165201374%_))) - (_%tl201163201381%_ + (##car _%e200053200244%_))) + (_%tl200051200251%_ + (let () + (declare (not safe)) + (##cdr _%e200053200244%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl200051200251%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl200045200231%_)) + (let ((_%e200056200254%_ + (let () + (declare (not safe)) + (gx#syntax-e _%tl200045200231%_)))) + (let ((_%hd200055200258%_ + (let () + (declare (not safe)) + (##car _%e200056200254%_))) + (_%tl200054200261%_ + (let () + (declare (not safe)) + (##cdr _%e200056200254%_)))) + (if (let () + (declare (not safe)) + (gx#stx-datum? _%hd200055200258%_)) + (let ((_%e200057200264%_ (let () (declare (not safe)) - (##cdr _%e201165201374%_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl201163201381%_)) + (gx#stx-e + _%hd200055200258%_)))) + (if (equal? _%e200057200264%_ + 'unchecked:) (if (let () (declare (not safe)) - (gx#stx-null? - _%tl201157201361%_)) + (gx#stx-pair? + _%tl200054200261%_)) + (let ((_%e200060200268%_ + (let () + (declare + (not safe)) + (gx#syntax-e + _%tl200054200261%_)))) + (let ((_%hd200059200272%_ + (let () + (declare + (not safe)) + (##car _%e200060200268%_))) + (_%tl200058200275%_ + (let () + (declare + (not safe)) + (##cdr _%e200060200268%_)))) + (if (let () + (declare + (not safe)) + (gx#stx-pair? + _%hd200059200272%_)) + (let ((_%e200063200278%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (gx#syntax-e _%hd200059200272%_)))) + (let ((_%hd200062200282%_ + (let () + (declare (not safe)) + (##car _%e200063200278%_))) + (_%tl200061200285%_ + (let () + (declare (not safe)) + (##cdr _%e200063200278%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _%hd200062200282%_)) + (if (let ((__tmp201748 |gxc[1]#_g201749_|)) + (declare (not safe)) + (gx#free-identifier=? + __tmp201748 + _%hd200062200282%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl200061200285%_)) + (let ((_%e200066200288%_ + (let () + (declare (not safe)) + (gx#syntax-e _%tl200061200285%_)))) + (let ((_%hd200065200292%_ + (let () + (declare (not safe)) + (##car _%e200066200288%_))) + (_%tl200064200295%_ + (let () + (declare (not safe)) + (##cdr _%e200066200288%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl200064200295%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl200058200275%_)) + (let ((_%e200069200298%_ + (let () + (declare (not safe)) + (gx#syntax-e + _%tl200058200275%_)))) + (let ((_%hd200068200302%_ + (let () + (declare (not safe)) + (##car _%e200069200298%_))) + (_%tl200067200305%_ + (let () + (declare (not safe)) + (##cdr _%e200069200298%_)))) (if (let () (declare (not safe)) - (gx#stx-null? - _%tl201108201195%_)) - ((lambda (_%L201384%_ + (gx#stx-datum? + _%hd200068200302%_)) + (let ((_%e200070200308%_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-e _%hd200068200302%_)))) + (if (equal? _%e200070200308%_ 'origin:) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%tl200067200305%_)) + (let ((_%e200073200312%_ + (let () + (declare (not safe)) + (gx#syntax-e _%tl200067200305%_)))) + (let ((_%hd200072200316%_ + (let () + (declare (not safe)) + (##car _%e200073200312%_))) + (_%tl200071200319%_ + (let () + (declare (not safe)) + (##cdr _%e200073200312%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd200072200316%_)) + (let ((_%e200076200322%_ + (let () + (declare (not safe)) + (gx#syntax-e _%hd200072200316%_)))) + (let ((_%hd200075200326%_ + (let () + (declare (not safe)) + (##car _%e200076200322%_))) + (_%tl200074200329%_ + (let () + (declare (not safe)) + (##cdr _%e200076200322%_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _%hd200075200326%_)) + (if (let ((__tmp201750 + |gxc[1]#_g201751_|)) + (declare (not safe)) + (gx#free-identifier=? + __tmp201750 + _%hd200075200326%_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl200074200329%_)) + (let ((_%e200079200332%_ + (let () + (declare (not safe)) + (gx#syntax-e + _%tl200074200329%_)))) + (let ((_%hd200078200336%_ + (let () + (declare + (not safe)) + (##car _%e200079200332%_))) + (_%tl200077200339%_ + (let () + (declare + (not safe)) + (##cdr _%e200079200332%_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _%tl200077200339%_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gx#stx-null? _%tl200071200319%_)) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl200009200109%_)) + ((lambda (_%L200342%_ + _%L200344%_ + _%L200345%_ + _%L200346%_ + _%L200347%_ + _%L200348%_) + (let ((_%clause200419%_ + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!primitive-lambda)) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote)) + (cons _%L200348%_ '())) + (cons '#f + (cons 'signature: + (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L201386%_ - _%L201387%_ - _%L201388%_ - _%L201389%_) - (let ((_%clause201450%_ - (cons (let () (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'make-!primitive-lambda)) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201389%_ '())) - (cons '#f - (cons 'signature: + (gx#datum->syntax__0 '#f 'make-!signature)) + (cons 'return: + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote)) + (cons _%L200346%_ '())) + (cons 'origin: (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#datum->syntax__0 '#f 'make-!signature)) - (cons 'return: - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201387%_ '())) - '()))) - '())))))) + (gx#datum->syntax__0 '#f 'quote)) + (cons _%L200342%_ '())) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%unchecked201452%_ - (let () (declare (not safe)) (gx#stx-e _%L201384%_)))) - (_%loop201063%_ - _%rest201094%_ - (let ((_%$e201454%_ _%unchecked201452%_)) - (if _%$e201454%_ _%$e201454%_ _%unchecked-proc201068%_)) - (cons _%clause201450%_ _%unchecked-clauses201069%_)))) - _%hd201164201378%_ - _%hd201151201334%_ - _%hd201138201290%_ - _%hd201125201246%_ - _%hd201106201182%_) - (_%g201098201171%_ _%g201099201175%_)) + '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g201098201171%_ - _%g201099201175%_)) - (_%g201098201171%_ - _%g201099201175%_)))) - (_%g201098201171%_ _%g201099201175%_)) - (_%g201098201171%_ _%g201099201175%_)) - (_%g201098201171%_ _%g201099201175%_)))) - (_%g201098201171%_ _%g201099201175%_)))) - (_%g201098201171%_ _%g201099201175%_)) + (_%unchecked200421%_ + (let () + (declare (not safe)) + (gx#stx-e _%L200344%_)))) + (_%loop199963%_ + _%rest199994%_ + (let ((_%$e200423%_ _%unchecked200421%_)) + (if _%$e200423%_ + _%$e200423%_ + _%unchecked-proc199968%_)) + (cons _%clause200419%_ + _%unchecked-clauses199969%_)))) + _%hd200078200336%_ + _%hd200065200292%_ + _%hd200052200248%_ + _%hd200039200204%_ + _%hd200026200160%_ + _%hd200007200096%_) + (_%g199998200085%_ _%g199999200089%_)) + (_%g199998200085%_ _%g199999200089%_)) + (_%g199998200085%_ _%g199999200089%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g201098201171%_ - _%g201099201175%_))) - (_%g201098201171%_ - _%g201099201175%_)))) - (_%g201098201171%_ _%g201099201175%_)) - (_%g201098201171%_ _%g201099201175%_)))) - (_%g201098201171%_ _%g201099201175%_)) - (_%g201098201171%_ _%g201099201175%_)) - (_%g201098201171%_ _%g201099201175%_)))) + (_%g199998200085%_ + _%g199999200089%_)) + (_%g199998200085%_ + _%g199999200089%_)) + (_%g199998200085%_ + _%g199999200089%_)))) + (_%g199998200085%_ _%g199999200089%_)))) + (_%g199998200085%_ _%g199999200089%_)) + (_%g199998200085%_ _%g199999200089%_))) + (_%g199998200085%_ _%g199999200089%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g201098201171%_ - _%g201099201175%_)))) - (_%g201098201171%_ _%g201099201175%_)) - (_%g201098201171%_ _%g201099201175%_))) - (_%g201098201171%_ _%g201099201175%_)))) - (_%g201098201171%_ _%g201099201175%_)) - (_%g201098201171%_ _%g201099201175%_)))) + (_%g199998200085%_ + _%g199999200089%_)) + (_%g199998200085%_ + _%g199999200089%_)))) + (_%g199998200085%_ _%g199999200089%_)) + (_%g199998200085%_ _%g199999200089%_)) + (_%g199998200085%_ _%g199999200089%_)))) + (_%g199998200085%_ _%g199999200089%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g201098201171%_ - _%g201099201175%_)) - (_%g201098201171%_ - _%g201099201175%_)) - (_%g201098201171%_ - _%g201099201175%_)))) - (_%g201098201171%_ _%g201099201175%_)))) - (_%g201098201171%_ _%g201099201175%_)) - (_%g201098201171%_ _%g201099201175%_))) - (_%g201098201171%_ _%g201099201175%_)))) + (_%g199998200085%_ + _%g199999200089%_)) + (_%g199998200085%_ + _%g199999200089%_))) + (_%g199998200085%_ + _%g199999200089%_)))) + (_%g199998200085%_ _%g199999200089%_)) + (_%g199998200085%_ _%g199999200089%_)))) + (_%g199998200085%_ _%g199999200089%_)) + (_%g199998200085%_ _%g199999200089%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g201098201171%_ - _%g201099201175%_)) - (_%g201098201171%_ - _%g201099201175%_)))) - (_%g201098201171%_ _%g201099201175%_)) - (_%g201098201171%_ _%g201099201175%_)) - (_%g201098201171%_ _%g201099201175%_)))) - (_%g201098201171%_ _%g201099201175%_)))) + (_%g199998200085%_ + _%g199999200089%_)))) + (_%g199998200085%_ + _%g199999200089%_)))) + (_%g199998200085%_ _%g199999200089%_)) + (_%g199998200085%_ _%g199999200089%_))) + (_%g199998200085%_ _%g199999200089%_)))) + (_%g199998200085%_ _%g199999200089%_)) + (_%g199998200085%_ _%g199999200089%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g201098201171%_ - _%g201099201175%_)) - (_%g201098201171%_ - _%g201099201175%_))) - (_%g201098201171%_ - _%g201099201175%_)))) - (_%g201098201171%_ _%g201099201175%_)))) - (_%g201098201171%_ _%g201099201175%_)))) - (_%g201098201171%_ _%g201099201175%_)))) + (_%g199998200085%_ + _%g199999200089%_)) + (_%g199998200085%_ + _%g199999200089%_)) + (_%g199998200085%_ _%g199999200089%_)))) + (_%g199998200085%_ _%g199999200089%_)))) + (_%g199998200085%_ _%g199999200089%_)) + (_%g199998200085%_ _%g199999200089%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g201098201171%_ - _%g201099201175%_))))) - (_%g201097201458%_ _%hd201096%_))))) - (if (let () - (declare (not safe)) - (##pair? _%rest201070201078%_)) - (let ((_%hd201075201466%_ - (let () - (declare (not safe)) - (##car _%rest201070201078%_))) - (_%tl201076201469%_ - (let () - (declare (not safe)) - (##cdr _%rest201070201078%_)))) - (let* ((_%hd201472%_ _%hd201075201466%_) - (_%rest201475%_ _%tl201076201469%_)) - (_%K201074201462%_ - _%rest201475%_ - _%hd201472%_))) - (_%else201072201090%_)))))) - (begin - (let ((_g202778_ - (let () - (declare (not safe)) - (if (##values? _g202777_) - (##vector-length _g202777_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g202778_ 2))) - (error "Context expects 2 values" _g202778_))) - (let ((_%unchecked-proc201478%_ - (let () - (declare (not safe)) - (##vector-ref _g202777_ 0))) - (_%unchecked-clauses201480%_ - (let () + (_%g199998200085%_ + _%g199999200089%_)))) + (_%g199998200085%_ + _%g199999200089%_)) + (_%g199998200085%_ + _%g199999200089%_)))) + (_%g199998200085%_ _%g199999200089%_)) + (_%g199998200085%_ _%g199999200089%_)) + (_%g199998200085%_ _%g199999200089%_)))) + (_%g199998200085%_ _%g199999200089%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g199998200085%_ + _%g199999200089%_)) + (_%g199998200085%_ + _%g199999200089%_))) + (_%g199998200085%_ _%g199999200089%_)))) + (_%g199998200085%_ _%g199999200089%_)))) + (_%g199998200085%_ _%g199999200089%_)))) + (_%g199998200085%_ _%g199999200089%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g199998200085%_ + _%g199999200089%_))))) + (_%g199997200427%_ _%hd199996%_))))) + (if (let () (declare (not safe)) - (##vector-ref _g202777_ 1)))) - (if _%unchecked-proc201478%_ - (let* ((_%g201482201506%_ - (lambda (_%g201483201502%_) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g201483201502%_)))) - (_%g201481201593%_ - (lambda (_%g201483201510%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? _%g201483201510%_)) - (let ((_%e201488201513%_ - (let () - (declare (not safe)) - (gx#syntax-e - _%g201483201510%_)))) - (let ((_%hd201487201517%_ - (let () - (declare (not safe)) - (##car _%e201488201513%_))) - (_%tl201486201520%_ - (let () - (declare (not safe)) - (##cdr _%e201488201513%_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%tl201486201520%_)) - (let ((_%e201491201523%_ - (let () - (declare (not safe)) - (gx#syntax-e - _%tl201486201520%_)))) - (let ((_%hd201490201527%_ - (let () - (declare - (not safe)) - (##car _%e201491201523%_))) - (_%tl201489201530%_ - (let () - (declare - (not safe)) - (##cdr _%e201491201523%_)))) - (if (let () - (declare - (not safe)) - (gx#stx-pair/null? - _%hd201490201527%_)) - (let ((_g202787_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (##pair? _%rest199970199978%_)) + (let ((_%hd199975200435%_ + (let () + (declare (not safe)) + (##car _%rest199970199978%_))) + (_%tl199976200438%_ + (let () + (declare (not safe)) + (##cdr _%rest199970199978%_)))) + (let* ((_%hd200441%_ _%hd199975200435%_) + (_%rest200444%_ _%tl199976200438%_)) + (_%K199974200431%_ + _%rest200444%_ + _%hd200441%_))) + (_%else199972199990%_)))))) + (begin + (let ((_g201741_ (let () (declare (not safe)) - (gx#syntax-split-splice _%hd201490201527%_ '0)))) - (begin - (let ((_g202788_ - (let () - (declare (not safe)) - (if (##values? _g202787_) - (##vector-length _g202787_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g202788_ 2))) - (error "Context expects 2 values" _g202788_))) - (let ((_%target201492201533%_ - (let () - (declare (not safe)) - (##vector-ref _g202787_ 0))) - (_%tl201494201536%_ - (let () - (declare (not safe)) - (##vector-ref _g202787_ 1)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl201494201536%_)) - (letrec ((_%loop201495201539%_ - (lambda (_%hd201493201543%_ - _%clause201499201546%_) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%hd201493201543%_)) - (let ((_%e201496201549%_ - (let () - (declare (not safe)) - (gx#syntax-e - _%hd201493201543%_)))) - (let ((_%lp-hd201497201553%_ - (let () - (declare (not safe)) - (##car _%e201496201549%_))) - (_%lp-tl201498201556%_ + (if (##values? _g201740_) + (##vector-length _g201740_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g201741_ 2))) + (error "Context expects 2 values" _g201741_))) + (let ((_%unchecked-proc200447%_ + (let () + (declare (not safe)) + (##vector-ref _g201740_ 0))) + (_%unchecked-clauses200449%_ + (let () + (declare (not safe)) + (##vector-ref _g201740_ 1)))) + (if _%unchecked-proc200447%_ + (let* ((_%g200451200475%_ + (lambda (_%g200452200471%_) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g200452200471%_)))) + (_%g200450200562%_ + (lambda (_%g200452200479%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%g200452200479%_)) + (let ((_%e200457200482%_ + (let () + (declare (not safe)) + (gx#syntax-e + _%g200452200479%_)))) + (let ((_%hd200456200486%_ + (let () + (declare (not safe)) + (##car _%e200457200482%_))) + (_%tl200455200489%_ + (let () + (declare (not safe)) + (##cdr _%e200457200482%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%tl200455200489%_)) + (let ((_%e200460200492%_ (let () (declare (not safe)) - (##cdr _%e201496201549%_)))) - (_%loop201495201539%_ - _%lp-tl201498201556%_ - (cons _%lp-hd201497201553%_ - _%clause201499201546%_)))) - (let ((_%clause201500201559%_ - (reverse _%clause201499201546%_))) - (if (let () - (declare (not safe)) - (gx#stx-null? - _%tl201489201530%_)) - ((lambda (_%L201563%_ - _%L201565%_) - (let () - (cons (let () + (gx#syntax-e + _%tl200455200489%_)))) + (let ((_%hd200459200496%_ + (let () + (declare (not safe)) + (##car _%e200460200492%_))) + (_%tl200458200499%_ + (let () + (declare (not safe)) + (##cdr _%e200460200492%_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair/null? + _%hd200459200496%_)) + (let ((_g201752_ + (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L201565%_ - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'make-!primitive-case-lambda)) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - '@list)) - (let ((__tmp202789 - (lambda (_%g201584201587%_ + (gx#syntax-split-splice _%hd200459200496%_ '0)))) + (begin + (let ((_g201753_ + (let () + (declare (not safe)) + (if (##values? _g201752_) + (##vector-length _g201752_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g201753_ 2))) + (error "Context expects 2 values" _g201753_))) + (let ((_%target200461200502%_ + (let () + (declare (not safe)) + (##vector-ref _g201752_ 0))) + (_%tl200463200505%_ + (let () + (declare (not safe)) + (##vector-ref _g201752_ 1)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _%tl200463200505%_)) + (letrec ((_%loop200464200508%_ + (lambda (_%hd200462200512%_ + _%clause200468200515%_) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%hd200462200512%_)) + (let ((_%e200465200518%_ + (let () + (declare (not safe)) + (gx#syntax-e + _%hd200462200512%_)))) + (let ((_%lp-hd200466200522%_ + (let () + (declare (not safe)) + (##car _%e200465200518%_))) + (_%lp-tl200467200525%_ + (let () + (declare (not safe)) + (##cdr _%e200465200518%_)))) + (_%loop200464200508%_ + _%lp-tl200467200525%_ + (cons _%lp-hd200466200522%_ + _%clause200468200515%_)))) + (let ((_%clause200469200528%_ + (reverse _%clause200468200515%_))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _%tl200458200499%_)) + ((lambda (_%L200532%_ + _%L200534%_) + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'declare-type)) + (cons _%L200534%_ + (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g201585201590%_) - (cons _%g201584201587%_ _%g201585201590%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr1 - __tmp202789 - '() - _%L201563%_))) - '())) - '()))))) + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!primitive-case-lambda)) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + '@list)) + (let ((__tmp201754 + (lambda (_%g200553200556%_ + _%g200554200559%_) + (cons _%g200553200556%_ + _%g200554200559%_)))) + (declare (not safe)) + (__foldr1 + __tmp201754 + '() + _%L200532%_))) + '())) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause201500201559%_ - _%hd201487201517%_) - (_%g201482201506%_ - _%g201483201510%_))))))) - (_%loop201495201539%_ - _%target201492201533%_ - '())) - (_%g201482201506%_ _%g201483201510%_))))) - (_%g201482201506%_ _%g201483201510%_)))) + _%clause200469200528%_ + _%hd200456200486%_) + (_%g200451200475%_ + _%g200452200479%_))))))) + (_%loop200464200508%_ _%target200461200502%_ '())) + (_%g200451200475%_ _%g200452200479%_))))) + (_%g200451200475%_ _%g200452200479%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g201482201506%_ - _%g201483201510%_)))) - (_%g201482201506%_ - _%g201483201510%_))))) - (_%g201481201593%_ - (list _%unchecked-proc201478%_ - _%unchecked-clauses201480%_))) - '(begin))))))))) + (_%g200451200475%_ + _%g200452200479%_)))) + (_%g200451200475%_ _%g200452200479%_))))) + (_%g200450200562%_ + (list _%unchecked-proc200447%_ + _%unchecked-clauses200449%_))) + '(begin)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g201002201013%_)))) - (_%g201000201597%_ - (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'declare-type)) - (cons _%L200861%_ - (cons (cons (let () + _%g199902199913%_)))) + (_%g199900200566%_ + (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'declare-type)) + (cons _%L199761%_ + (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'make-!primitive-case-lambda)) - (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!primitive-case-lambda)) + (cons (cons (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '@list)) + (begin + (let () (declare (not safe)) - (gx#datum->syntax__0 '#f '@list)) - (begin - (let () - (declare (not safe)) - (gx#syntax-check-splice-targets - _%L200982%_ - _%L200984%_)) - (let ((__tmp202790 - (lambda (_%g201600201604%_ - _%g201601201607%_ - _%g201602201609%_) - (cons (cons (let () - (declare + (gx#syntax-check-splice-targets + _%L199882%_ + _%L199884%_)) + (let ((__tmp201755 + (lambda (_%g200569200573%_ + _%g200570200576%_ + _%g200571200578%_) + (cons (cons (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!primitive-lambda)) + (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gx#datum->syntax__0 '#f 'make-!primitive-lambda)) - (cons (cons (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'quote)) - (cons _%g201601201607%_ '())) - (cons '#f - (cons 'signature: - (cons _%g201600201604%_ '()))))) - _%g201602201609%_)))) + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote)) + (cons _%g200570200576%_ '())) + (cons '#f + (cons 'signature: + (cons _%g200569200573%_ '()))))) + _%g200571200578%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr2 - __tmp202790 - '() - _%L200982%_ - _%L200984%_)))) - '())) - '()))))))) + (declare (not safe)) + (__foldr2 + __tmp201755 + '() + _%L199882%_ + _%L199884%_)))) + '())) + '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%sig200908200976%_ - _%arity200909200979%_)))))) - (_%loop200902200934%_ _%target200899200928%_ '() '())) - (_%g200895200921%_ _%g200896200925%_))))) + _%sig199808199876%_ + _%arity199809199879%_)))))) + (_%loop199802199834%_ _%target199799199828%_ '() '())) + (_%g199795199821%_ _%g199796199825%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g200895200921%_ - _%g200896200925%_))))) - (_%g200894201612%_ _%signatures200892%_)) - (_%g200778200802%_ _%g200779200806%_))) - _%case-signature200796200855%_ - _%hd200786200823%_)))))) + (_%g199795199821%_ + _%g199796199825%_))))) + (_%g199794200581%_ _%signatures199792%_)) + (_%g199678199702%_ _%g199679199706%_))) + _%case-signature199696199755%_ + _%hd199686199723%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop200791200835%_ - _%target200788200829%_ + (_%loop199691199735%_ + _%target199688199729%_ '())) - (_%g200778200802%_ - _%g200779200806%_))))) - (_%g200778200802%_ _%g200779200806%_)))) - (_%g200778200802%_ _%g200779200806%_)))) - (_%g200778200802%_ _%g200779200806%_))))) - (_%g200777201616%_ _%stx200775%_)))) + (_%g199678199702%_ + _%g199679199706%_))))) + (_%g199678199702%_ _%g199679199706%_)))) + (_%g199678199702%_ _%g199679199706%_)))) + (_%g199678199702%_ _%g199679199706%_))))) + (_%g199677200585%_ _%stx199675%_)))) (define |gxc[:0:]#declare-builtin-class| - (lambda (_%$stx201624%_) - (let* ((_%__stx202606202607%_ _%$stx201624%_) - (_%g201630201690%_ + (lambda (_%$stx200593%_) + (let* ((_%__stx201575201576%_ _%$stx200593%_) + (_%g200599200659%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx202606202607%_))))) - (let ((_%__kont202609202610%_ - (lambda (_%L201912%_ _%L201914%_) + _%__stx201575201576%_))))) + (let ((_%__kont201578201579%_ + (lambda (_%L200881%_ _%L200883%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6344,7 +6435,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201914%_ '())) + (cons _%L200883%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6355,13 +6446,13 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L201914%_ '())) + (cons _%L200883%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201912%_ '())) + (cons _%L200881%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)) @@ -6370,8 +6461,8 @@ (cons '#f (cons '#f (cons '#t (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont202611202612%_ - (lambda (_%L201837%_ _%L201839%_ _%L201840%_) + (_%__kont201580201581%_ + (lambda (_%L200806%_ _%L200808%_ _%L200809%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6380,7 +6471,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201840%_ '())) + (cons _%L200809%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6391,23 +6482,23 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L201840%_ '())) + (cons _%L200809%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201839%_ '())) + (cons _%L200808%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201837%_ '())) + (cons _%L200806%_ '())) (cons '#f (cons '#f (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont202613202614%_ - (lambda (_%L201751%_ _%L201753%_ _%L201754%_) + (_%__kont201582201583%_ + (lambda (_%L200720%_ _%L200722%_ _%L200723%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6416,7 +6507,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201754%_ '())) + (cons _%L200723%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6427,360 +6518,360 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L201754%_ '())) + (cons _%L200723%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201753%_ '())) + (cons _%L200722%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201751%_ '())) + (cons _%L200720%_ '())) (cons '#f (cons '#t (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx202606202607%_)) - (let ((_%e201636201868%_ + (gx#stx-pair? _%__stx201575201576%_)) + (let ((_%e200605200837%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx202606202607%_)))) - (let ((_%tl201634201875%_ + (gx#syntax-e _%__stx201575201576%_)))) + (let ((_%tl200603200844%_ (let () (declare (not safe)) - (##cdr _%e201636201868%_))) - (_%hd201635201872%_ + (##cdr _%e200605200837%_))) + (_%hd200604200841%_ (let () (declare (not safe)) - (##car _%e201636201868%_)))) + (##car _%e200605200837%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201634201875%_)) - (let ((_%e201639201878%_ + (gx#stx-pair? _%tl200603200844%_)) + (let ((_%e200608200847%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201634201875%_)))) - (let ((_%tl201637201885%_ + (gx#syntax-e _%tl200603200844%_)))) + (let ((_%tl200606200854%_ (let () (declare (not safe)) - (##cdr _%e201639201878%_))) - (_%hd201638201882%_ + (##cdr _%e200608200847%_))) + (_%hd200607200851%_ (let () (declare (not safe)) - (##car _%e201639201878%_)))) + (##car _%e200608200847%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd201638201882%_)) - (let ((_%e201640201888%_ + (gx#stx-datum? _%hd200607200851%_)) + (let ((_%e200609200857%_ (let () (declare (not safe)) - (gx#stx-e _%hd201638201882%_)))) - (if (equal? _%e201640201888%_ 'system:) + (gx#stx-e _%hd200607200851%_)))) + (if (equal? _%e200609200857%_ 'system:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201637201885%_)) - (let ((_%e201643201892%_ + (gx#stx-pair? _%tl200606200854%_)) + (let ((_%e200612200861%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201637201885%_)))) - (let ((_%tl201641201899%_ + _%tl200606200854%_)))) + (let ((_%tl200610200868%_ (let () (declare (not safe)) - (##cdr _%e201643201892%_))) - (_%hd201642201896%_ + (##cdr _%e200612200861%_))) + (_%hd200611200865%_ (let () (declare (not safe)) - (##car _%e201643201892%_)))) + (##car _%e200612200861%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201641201899%_)) - (let ((_%e201646201902%_ + _%tl200610200868%_)) + (let ((_%e200615200871%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201641201899%_)))) - (let ((_%tl201644201909%_ + _%tl200610200868%_)))) + (let ((_%tl200613200878%_ (let () (declare (not safe)) - (##cdr _%e201646201902%_))) - (_%hd201645201906%_ + (##cdr _%e200615200871%_))) + (_%hd200614200875%_ (let () (declare (not safe)) - (##car _%e201646201902%_)))) + (##car _%e200615200871%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201644201909%_)) - (_%__kont202609202610%_ - _%hd201645201906%_ - _%hd201642201896%_) + _%tl200613200878%_)) + (_%__kont201578201579%_ + _%hd200614200875%_ + _%hd200611200865%_) (let () (declare (not safe)) - (_%g201630201690%_))))) + (_%g200599200659%_))))) (let () (declare (not safe)) - (_%g201630201690%_))))) + (_%g200599200659%_))))) (let () (declare (not safe)) - (_%g201630201690%_))) - (if (equal? _%e201640201888%_ 'struct:) + (_%g200599200659%_))) + (if (equal? _%e200609200857%_ 'struct:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201637201885%_)) - (let ((_%e201659201807%_ + _%tl200606200854%_)) + (let ((_%e200628200776%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201637201885%_)))) - (let ((_%tl201657201814%_ + _%tl200606200854%_)))) + (let ((_%tl200626200783%_ (let () (declare (not safe)) - (##cdr _%e201659201807%_))) - (_%hd201658201811%_ + (##cdr _%e200628200776%_))) + (_%hd200627200780%_ (let () (declare (not safe)) - (##car _%e201659201807%_)))) + (##car _%e200628200776%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201657201814%_)) - (let ((_%e201662201817%_ + _%tl200626200783%_)) + (let ((_%e200631200786%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl201657201814%_)))) - (let ((_%tl201660201824%_ - (let () (declare (not safe)) (##cdr _%e201662201817%_))) - (_%hd201661201821%_ + (gx#syntax-e _%tl200626200783%_)))) + (let ((_%tl200629200793%_ + (let () (declare (not safe)) (##cdr _%e200631200786%_))) + (_%hd200630200790%_ (let () (declare (not safe)) - (##car _%e201662201817%_)))) + (##car _%e200631200786%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201660201824%_)) - (let ((_%e201665201827%_ + (gx#stx-pair? _%tl200629200793%_)) + (let ((_%e200634200796%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201660201824%_)))) - (let ((_%tl201663201834%_ + (gx#syntax-e _%tl200629200793%_)))) + (let ((_%tl200632200803%_ (let () (declare (not safe)) - (##cdr _%e201665201827%_))) - (_%hd201664201831%_ + (##cdr _%e200634200796%_))) + (_%hd200633200800%_ (let () (declare (not safe)) - (##car _%e201665201827%_)))) + (##car _%e200634200796%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201663201834%_)) - (_%__kont202611202612%_ - _%hd201664201831%_ - _%hd201661201821%_ - _%hd201658201811%_) + (gx#stx-null? _%tl200632200803%_)) + (_%__kont201580201581%_ + _%hd200633200800%_ + _%hd200630200790%_ + _%hd200627200780%_) (let () (declare (not safe)) - (_%g201630201690%_))))) - (let () (declare (not safe)) (_%g201630201690%_))))) - (let () (declare (not safe)) (_%g201630201690%_))))) + (_%g200599200659%_))))) + (let () (declare (not safe)) (_%g200599200659%_))))) + (let () (declare (not safe)) (_%g200599200659%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g201630201690%_))) - (if (equal? _%e201640201888%_ + (_%g200599200659%_))) + (if (equal? _%e200609200857%_ 'class:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201637201885%_)) - (let ((_%e201678201721%_ + _%tl200606200854%_)) + (let ((_%e200647200690%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201637201885%_)))) - (let ((_%tl201676201728%_ + _%tl200606200854%_)))) + (let ((_%tl200645200697%_ (let () (declare (not safe)) - (##cdr _%e201678201721%_))) - (_%hd201677201725%_ + (##cdr _%e200647200690%_))) + (_%hd200646200694%_ (let () (declare (not safe)) - (##car _%e201678201721%_)))) + (##car _%e200647200690%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201676201728%_)) - (let ((_%e201681201731%_ + _%tl200645200697%_)) + (let ((_%e200650200700%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl201676201728%_)))) - (let ((_%tl201679201738%_ + (gx#syntax-e _%tl200645200697%_)))) + (let ((_%tl200648200707%_ (let () (declare (not safe)) - (##cdr _%e201681201731%_))) - (_%hd201680201735%_ + (##cdr _%e200650200700%_))) + (_%hd200649200704%_ (let () (declare (not safe)) - (##car _%e201681201731%_)))) + (##car _%e200650200700%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201679201738%_)) - (let ((_%e201684201741%_ + (gx#stx-pair? _%tl200648200707%_)) + (let ((_%e200653200710%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201679201738%_)))) - (let ((_%tl201682201748%_ + (gx#syntax-e _%tl200648200707%_)))) + (let ((_%tl200651200717%_ (let () (declare (not safe)) - (##cdr _%e201684201741%_))) - (_%hd201683201745%_ + (##cdr _%e200653200710%_))) + (_%hd200652200714%_ (let () (declare (not safe)) - (##car _%e201684201741%_)))) + (##car _%e200653200710%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201682201748%_)) - (_%__kont202613202614%_ - _%hd201683201745%_ - _%hd201680201735%_ - _%hd201677201725%_) + (gx#stx-null? _%tl200651200717%_)) + (_%__kont201582201583%_ + _%hd200652200714%_ + _%hd200649200704%_ + _%hd200646200694%_) (let () (declare (not safe)) - (_%g201630201690%_))))) - (let () (declare (not safe)) (_%g201630201690%_))))) - (let () (declare (not safe)) (_%g201630201690%_))))) + (_%g200599200659%_))))) + (let () (declare (not safe)) (_%g200599200659%_))))) + (let () (declare (not safe)) (_%g200599200659%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g201630201690%_))) + (_%g200599200659%_))) (let () (declare (not safe)) - (_%g201630201690%_)))))) + (_%g200599200659%_)))))) (let () (declare (not safe)) - (_%g201630201690%_))))) - (let () (declare (not safe)) (_%g201630201690%_))))) - (let () (declare (not safe)) (_%g201630201690%_))))))) + (_%g200599200659%_))))) + (let () (declare (not safe)) (_%g200599200659%_))))) + (let () (declare (not safe)) (_%g200599200659%_))))))) (define |gxc[:0:]#declare-builtin-classes| - (lambda (_%$stx201936%_) - (let* ((_%g201940201960%_ - (lambda (_%g201941201956%_) + (lambda (_%$stx200905%_) + (let* ((_%g200909200929%_ + (lambda (_%g200910200925%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g201941201956%_)))) - (_%g201939202031%_ - (lambda (_%g201941201964%_) + _%g200910200925%_)))) + (_%g200908201000%_ + (lambda (_%g200910200933%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g201941201964%_)) - (let ((_%e201945201967%_ + (gx#stx-pair? _%g200910200933%_)) + (let ((_%e200914200936%_ (let () (declare (not safe)) - (gx#syntax-e _%g201941201964%_)))) - (let ((_%hd201944201971%_ + (gx#syntax-e _%g200910200933%_)))) + (let ((_%hd200913200940%_ (let () (declare (not safe)) - (##car _%e201945201967%_))) - (_%tl201943201974%_ + (##car _%e200914200936%_))) + (_%tl200912200943%_ (let () (declare (not safe)) - (##cdr _%e201945201967%_)))) + (##cdr _%e200914200936%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl201943201974%_)) - (let ((_g202791_ + (gx#stx-pair/null? _%tl200912200943%_)) + (let ((_g201756_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl201943201974%_ + _%tl200912200943%_ '0)))) (begin - (let ((_g202792_ + (let ((_g201757_ (let () (declare (not safe)) - (if (##values? _g202791_) - (##vector-length _g202791_) + (if (##values? _g201756_) + (##vector-length _g201756_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g202792_ 2))) + (##fx= _g201757_ 2))) (error "Context expects 2 values" - _g202792_))) - (let ((_%target201946201977%_ + _g201757_))) + (let ((_%target200915200946%_ (let () (declare (not safe)) - (##vector-ref _g202791_ 0))) - (_%tl201948201980%_ + (##vector-ref _g201756_ 0))) + (_%tl200917200949%_ (let () (declare (not safe)) - (##vector-ref _g202791_ 1)))) + (##vector-ref _g201756_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201948201980%_)) - (letrec ((_%loop201949201983%_ - (lambda (_%hd201947201987%_ - _%decl201953201990%_) + (gx#stx-null? _%tl200917200949%_)) + (letrec ((_%loop200918200952%_ + (lambda (_%hd200916200956%_ + _%decl200922200959%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd201947201987%_)) - (let ((_%e201950201993%_ + _%hd200916200956%_)) + (let ((_%e200919200962%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd201947201987%_)))) - (let ((_%lp-hd201951201997%_ + (gx#syntax-e _%hd200916200956%_)))) + (let ((_%lp-hd200920200966%_ (let () (declare (not safe)) - (##car _%e201950201993%_))) - (_%lp-tl201952202000%_ + (##car _%e200919200962%_))) + (_%lp-tl200921200969%_ (let () (declare (not safe)) - (##cdr _%e201950201993%_)))) - (_%loop201949201983%_ - _%lp-tl201952202000%_ - (cons _%lp-hd201951201997%_ _%decl201953201990%_)))) - (let ((_%decl201954202003%_ (reverse _%decl201953201990%_))) - ((lambda (_%L202007%_) + (##cdr _%e200919200962%_)))) + (_%loop200918200952%_ + _%lp-tl200921200969%_ + (cons _%lp-hd200920200966%_ _%decl200922200959%_)))) + (let ((_%decl200923200972%_ (reverse _%decl200922200959%_))) + ((lambda (_%L200976%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp202793 - (lambda (_%g202022202025%_ _%g202023202028%_) + (let ((__tmp201758 + (lambda (_%g200991200994%_ _%g200992200997%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-builtin-class)) - _%g202022202025%_) - _%g202023202028%_)))) + _%g200991200994%_) + _%g200992200997%_)))) (declare (not safe)) - (__foldr1 __tmp202793 '() _%L202007%_)))) - _%decl201954202003%_)))))) + (__foldr1 __tmp201758 '() _%L200976%_)))) + _%decl200923200972%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop201949201983%_ - _%target201946201977%_ + (_%loop200918200952%_ + _%target200915200946%_ '())) - (_%g201940201960%_ - _%g201941201964%_))))) - (_%g201940201960%_ _%g201941201964%_)))) - (_%g201940201960%_ _%g201941201964%_))))) - (_%g201939202031%_ _%$stx201936%_)))))) + (_%g200909200929%_ + _%g200910200933%_))))) + (_%g200909200929%_ _%g200910200933%_)))) + (_%g200909200929%_ _%g200910200933%_))))) + (_%g200908201000%_ _%$stx200905%_)))))) diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index 27a29adfb..952823747 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -23,357 +23,357 @@ namespace: gerbil/core (phi: 2 :gerbil/core/expander)) (%#export (spec: 1 !class-precedence-list !class-precedence-list) - (spec: 1 type-env-checked? type-env-checked?) - (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-checked?-set! &type-env-checked?-set!) - (spec: 1 &type-env-super-set! &type-env-super-set!) (spec: 1 current-type-env current-type-env) + (spec: 1 type-env type-env) + (spec: 1 &type-env-super &type-env-super) + (spec: 1 type-env::t type-env::t) + (spec: 1 &type-env-var &type-env-var) (spec: 1 type-env-var-set! type-env-var-set!) - (spec: 1 type-env-super type-env-super) (spec: 1 type-env-super-set! type-env-super-set!) (spec: 1 type-env-type-set! type-env-type-set!) - (spec: 1 type-env-var type-env-var) - (spec: 1 &type-env-var-set! &type-env-var-set!) - (spec: 1 &type-env-var &type-env-var) - (spec: 1 type-env::t type-env::t) - (spec: 1 make-type-env make-type-env) (spec: 1 type-env-type type-env-type) - (spec: 1 &type-env-super &type-env-super) - (spec: 1 type-env? type-env?) - (spec: 1 type-env-lookup type-env-lookup) + (spec: 1 &type-env-var-set! &type-env-var-set!) (spec: 1 &type-env-type &type-env-type) - (spec: 1 type-env type-env) + (spec: 1 type-env-lookup type-env-lookup) + (spec: 1 type-env-var type-env-var) + (spec: 1 &type-env-checked?-set! &type-env-checked?-set!) + (spec: 1 &type-env-checked? &type-env-checked?) + (spec: 1 type-env-checked? type-env-checked?) + (spec: 1 &type-env-super-set! &type-env-super-set!) + (spec: 1 make-type-env make-type-env) (spec: 1 type-env-checked?-set! type-env-checked?-set!) + (spec: 1 type-env-super type-env-super) (spec: 1 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) (spec: 1 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + interface-info-instance-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) (spec: 1 - interface-info-instance-constructor - interface-info-instance-constructor) - (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) + &interface-info-interface-descriptor + &interface-info-interface-descriptor) (spec: 1 - interface-info-interface-methods-set! - interface-info-interface-methods-set!) + &interface-info-instance-try-constructor-set! + &interface-info-instance-try-constructor-set!) + (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) (spec: 1 - &interface-info-interface-descriptor-set! - &interface-info-interface-descriptor-set!) + &interface-info-interface-methods + &interface-info-interface-methods) (spec: 1 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) (spec: 1 - &interface-info-interface-descriptor - &interface-info-interface-descriptor) + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) (spec: 1 &interface-info-unchecked-implementation-methods-set! &interface-info-unchecked-implementation-methods-set!) - (spec: 1 interface-info? interface-info?) + (spec: 1 &interface-info-instance-type &interface-info-instance-type) (spec: 1 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) (spec: 1 - &interface-info-instance-constructor - &interface-info-instance-constructor) - (spec: 1 &interface-info-name-set! &interface-info-name-set!) + &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-set! + &interface-info-interface-methods-set!) + (spec: 1 interface-info::t interface-info::t) (spec: 1 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + &interface-info-instance-type-set! + &interface-info-instance-type-set!) (spec: 1 - interface-info-instance-type-set! - interface-info-instance-type-set!) + interface-info::apply-macro-expander + interface-info::apply-macro-expander) + (spec: 1 interface-info-flatten-mixin interface-info-flatten-mixin) (spec: 1 - interface-info-interface-descriptor - interface-info-interface-descriptor) + interface-info-interface-methods-set! + interface-info-interface-methods-set!) (spec: 1 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) - (spec: 1 interface-info interface-info) + interface-info-interface-mixin + interface-info-interface-mixin) (spec: 1 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) + interface-info-instance-try-constructor + interface-info-instance-try-constructor) + (spec: 1 interface-info interface-info) (spec: 1 - &interface-info-implementation-methods - &interface-info-implementation-methods) + interface-info-instance-type-set! + interface-info-instance-type-set!) (spec: 1 - interface-info-instance-predicate - interface-info-instance-predicate) + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) (spec: 1 - interface-info-interface-methods - interface-info-interface-methods) - (spec: 1 interface-info-flatten-mixin interface-info-flatten-mixin) + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) (spec: 1 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) + &interface-info-instance-try-constructor + &interface-info-instance-try-constructor) (spec: 1 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-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-implementation-methods-set! - &interface-info-implementation-methods-set!) + &interface-info-instance-predicate + &interface-info-instance-predicate) (spec: 1 - interface-info-interface-mixin - interface-info-interface-mixin) + &interface-info-implementation-methods + &interface-info-implementation-methods) (spec: 1 interface-info-instance-type interface-info-instance-type) - (spec: 1 interface-info-name-set! interface-info-name-set!) (spec: 1 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) + interface-info-implementation-methods + interface-info-implementation-methods) (spec: 1 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) + 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-predicate-set! + interface-info-instance-predicate-set!) + (spec: 1 &interface-info-name &interface-info-name) (spec: 1 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) + &interface-info-instance-constructor + &interface-info-instance-constructor) (spec: 1 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) + interface-info-interface-methods + interface-info-interface-methods) + (spec: 1 &interface-info-name-set! &interface-info-name-set!) (spec: 1 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) (spec: 1 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) (spec: 1 - &interface-info-interface-mixin - &interface-info-interface-mixin) + interface-info-instance-predicate + interface-info-instance-predicate) + (spec: 1 interface-info? interface-info?) (spec: 1 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) + &interface-info-interface-mixin + &interface-info-interface-mixin) + (spec: 1 interface-info-name interface-info-name) (spec: 1 - interface-info-instance-predicate-set! - interface-info-instance-predicate-set!) - (spec: 1 interface-info::t interface-info::t) - (spec: 1 &interface-info-instance-type &interface-info-instance-type) + &interface-info-interface-descriptor-set! + &interface-info-interface-descriptor-set!) (spec: 1 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) + interface-info-instance-constructor + interface-info-instance-constructor) (spec: 1 - &interface-info-instance-try-constructor - &interface-info-instance-try-constructor) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) (spec: 1 make-interface-info make-interface-info) (spec: 1 - &interface-info-interface-methods - &interface-info-interface-methods) - (spec: 1 interface-info-name interface-info-name) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) (spec: 1 - &interface-info-instance-try-constructor-set! - &interface-info-instance-try-constructor-set!) + 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) + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) (spec: 1 - &interface-info-instance-predicate - &interface-info-instance-predicate) + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) (spec: 1 is-signature? is-signature?) - (spec: 0 def/c def/c) + (spec: 0 case-lambda/c case-lambda/c) + (spec: 0 def*/c def*/c) + (spec: 0 defmethod/c defmethod/c) + (spec: 0 with-procedure-signature with-procedure-signature) (spec: 0 with-procedure-unchecked-contract with-procedure-unchecked-contract) - (spec: 0 with-procedure-signature with-procedure-signature) - (spec: 0 case-lambda/c case-lambda/c) - (spec: 0 defmethod/c defmethod/c) - (spec: 0 let/c let/c) + (spec: 0 with-procedure-contract with-procedure-contract) + (spec: 0 def/c def/c) (spec: 0 defstruct/c defstruct/c) (spec: 0 defclass/c defclass/c) - (spec: 0 def*/c def*/c) (spec: 0 lambda/c lambda/c) - (spec: 0 with-procedure-contract with-procedure-contract) - (spec: 1 signature-keywords signature-keywords) - (spec: 1 make-procedure-contract make-procedure-contract) - (spec: 1 signature-contract? signature-contract?) - (spec: - 1 - check-signature-contract-types! - check-signature-contract-types!) + (spec: 0 let/c let/c) + (spec: 1 contract-type-subtype? contract-type-subtype?) + (spec: 1 symboltype-descriptor resolve-type->type-descriptor) (spec: 1 type-reference? type-reference?) - (spec: 1 resolve-type->identifier resolve-type->identifier) + (spec: 1 type-reference-identifier type-reference-identifier) + (spec: 1 resolve-type resolve-type) + (spec: 1 type-identifier? type-identifier?) (spec: 1 type-reference::t type-reference::t) (spec: 1 make-type-reference make-type-reference) - (spec: - 1 - type-reference-identifier-set! - type-reference-identifier-set!) - (spec: 1 type-reference type-reference) - (spec: 1 type-identifier? type-identifier?) - (spec: 1 type-reference-identifier type-reference-identifier) + (spec: 1 resolve-type->identifier resolve-type->identifier) (spec: 1 &type-reference-identifier &type-reference-identifier) - (spec: 1 resolve-type resolve-type) + (spec: 1 resolve-type->type-descriptor resolve-type->type-descriptor) (spec: 0 deftype deftype) (spec: 0 Using Using) - (spec: 0 ContractRules ContractRules) - (spec: 0 TypedDefinitions TypedDefinitions) - (spec: 0 ClassMeta ClassMeta) - (spec: 0 InterfaceInfo InterfaceInfo) + (spec: 0 TypeReference TypeReference) (spec: 0 TypeEnv TypeEnv) - (spec: 0 Interface Interface) + (spec: 0 ClassMeta ClassMeta) (spec: 0 TypeCast TypeCast) - (spec: 0 TypeReference TypeReference) - (spec: 0 prefix-out prefix-out) - (spec: 0 rename-out rename-out) + (spec: 0 Interface Interface) + (spec: 0 TypedDefinitions TypedDefinitions) + (spec: 0 ContractRules ContractRules) + (spec: 0 InterfaceInfo InterfaceInfo) + (spec: 0 rename-in rename-in) + (spec: 0 struct-out struct-out) + (spec: 0 group-in group-in) + (spec: 0 for-template for-template) + (spec: 0 for-syntax for-syntax) + (spec: 0 defsyntax-for-export defsyntax-for-export) (spec: 0 except-in except-in) (spec: 0 defsyntax-for-import defsyntax-for-import) - (spec: 0 only-in only-in) + (spec: 0 rename-out rename-out) + (spec: 0 require require) (spec: 0 defsyntax-for-import-export defsyntax-for-import-export) + (spec: 0 only-in only-in) (spec: 0 prefix-in prefix-in) (spec: 0 except-out except-out) - (spec: 0 require require) - (spec: 0 for-template for-template) - (spec: 0 group-in group-in) - (spec: 0 rename-in rename-in) - (spec: 0 for-syntax for-syntax) - (spec: 0 struct-out struct-out) - (spec: 0 defsyntax-for-export defsyntax-for-export) - (spec: 1 syntax-local-setq-macro? syntax-local-setq-macro?) + (spec: 0 prefix-out prefix-out) + (spec: 1 expand-set! expand-set!) + (spec: 1 setq-macro setq-macro) + (spec: 1 setq-macro-macro setq-macro-macro) + (spec: 1 setq-macro? setq-macro?) + (spec: 1 syntax-local-setf-macro? syntax-local-setf-macro?) + (spec: 1 setf-macro? setf-macro?) (spec: 1 setq-macro::t setq-macro::t) (spec: 1 &setq-macro-macro &setq-macro-macro) (spec: 1 setf-macro-macro-set! setf-macro-macro-set!) - (spec: 1 &setf-macro-macro-set! &setf-macro-macro-set!) - (spec: 1 expand-set! expand-set!) - (spec: 1 setq-macro? setq-macro?) - (spec: 1 setq-macro-macro setq-macro-macro) (spec: 1 make-setq-macro make-setq-macro) - (spec: 1 setq-macro-macro-set! setq-macro-macro-set!) - (spec: 1 &setq-macro-macro-set! &setq-macro-macro-set!) - (spec: 1 syntax-local-setf-macro? syntax-local-setf-macro?) (spec: 1 setf-macro-macro setf-macro-macro) - (spec: 1 setq-macro setq-macro) + (spec: 1 &setq-macro-macro-set! &setq-macro-macro-set!) + (spec: 1 syntax-local-setq-macro? syntax-local-setq-macro?) + (spec: 1 &setf-macro-macro-set! &setf-macro-macro-set!) (spec: 1 setf-macro setf-macro) + (spec: 1 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 1 make-setf-macro make-setf-macro) (spec: 1 &setf-macro-macro &setf-macro-macro) (spec: 1 setf-macro::t setf-macro::t) - (spec: 1 make-setf-macro make-setf-macro) - (spec: 1 setf-macro? setf-macro?) + (spec: 0 let/cc let/cc) (spec: 0 parameterize parameterize) - (spec: 0 values-set! values-set!) (spec: 0 eval-when-compile eval-when-compile) - (spec: 0 let/cc let/cc) + (spec: 0 values-set! values-set!) (spec: 0 unwind-protect unwind-protect) (spec: 0 @bytes @bytes) (spec: 1 match-pattern? match-pattern?) @@ -382,2540 +382,2540 @@ namespace: gerbil/core (spec: 1 make-match-macro make-match-macro) (spec: 1 match-macro::t match-macro::t) (spec: 1 match-macro match-macro) - (spec: 0 match match) (spec: 0 defsyntax-for-match defsyntax-for-match) (spec: 0 with with) - (spec: 0 ? ?) + (spec: 0 match match) (spec: 0 match* match*) (spec: 0 defrules-for-match defrules-for-match) + (spec: 0 ? ?) (spec: 0 with* with*) + (spec: 1 :boolean :boolean) + (spec: 1 :writeenv :writeenv) + (spec: 1 :pair :pair) + (spec: 1 :immediate :immediate) (spec: 1 defsystem-class-info defsystem-class-info) - (spec: 1 class class) - (spec: 1 :real :real) - (spec: 1 :s64vector :s64vector) - (spec: 1 :f32vector :f32vector) + (spec: 1 :f64vector :f64vector) + (spec: 1 :u64vector :u64vector) + (spec: 1 :true :true) (spec: 1 :foreign :foreign) - (spec: 1 :fixnum :fixnum) - (spec: 1 :mutex :mutex) - (spec: 1 :t :t) - (spec: 1 :values :values) - (spec: 1 :vector-port :vector-port) - (spec: 1 :weak :weak) - (spec: 1 :character-port :character-port) - (spec: 1 :atom :atom) - (spec: 1 :raw-device-port :raw-device-port) - (spec: 1 :symbolic :symbolic) (spec: 1 :time :time) - (spec: 1 :string :string) - (spec: 1 :thread-group :thread-group) - (spec: 1 :condvar :condvar) - (spec: 1 :char :char) - (spec: 1 :writeenv :writeenv) - (spec: 1 :sequence :sequence) + (spec: 1 :readtable :readtable) + (spec: 1 :vector :vector) (spec: 1 :box :box) - (spec: 1 :bignum :bignum) - (spec: 1 :udp-port :udp-port) + (spec: 1 :directory-port :directory-port) + (spec: 1 :u8vector-port :u8vector-port) (spec: 1 :u8vector :u8vector) - (spec: 1 :false :false) - (spec: 1 :processor :processor) - (spec: 1 :frame :frame) - (spec: 1 :socket-info :socket-info) - (spec: 1 :address-info :address-info) - (spec: 1 :cpxnum :cpxnum) + (spec: 1 :number :number) + (spec: 1 :tcp-server-port :tcp-server-port) (spec: 1 :class :class) - (spec: 1 :object :object) - (spec: 1 :keyword :keyword) - (spec: 1 :symbol :symbol) - (spec: 1 :hvector :hvector) - (spec: 1 :flonum :flonum) - (spec: 1 :promise :promise) - (spec: 1 :string-port :string-port) - (spec: 1 :null :null) + (spec: 1 :table :table) + (spec: 1 :byte-port :byte-port) + (spec: 1 :special :special) + (spec: 1 :eof :eof) + (spec: 1 :symbolic :symbolic) + (spec: 1 :string :string) (spec: 1 :list :list) - (spec: 1 :s8vector :s8vector) - (spec: 1 :thread :thread) + (spec: 1 :keyword :keyword) + (spec: 1 :s16vector :s16vector) (spec: 1 :u16vector :u16vector) - (spec: 1 :integer :integer) - (spec: 1 :true :true) - (spec: 1 :u64vector :u64vector) - (spec: 1 :port :port) - (spec: 1 :device-port :device-port) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :directory-port :directory-port) - (spec: 1 :vector :vector) - (spec: 1 :number :number) - (spec: 1 :u32vector :u32vector) + (spec: 1 :object-port :object-port) + (spec: 1 :character-port :character-port) + (spec: 1 :bignum :bignum) + (spec: 1 :sequence :sequence) (spec: 1 :procedure :procedure) - (spec: 1 :byte-port :byte-port) - (spec: 1 :event-queue-port :event-queue-port) + (spec: 1 :thread :thread) + (spec: 1 :device-port :device-port) + (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :cpxnum :cpxnum) + (spec: 1 :udp-port :udp-port) + (spec: 1 :flonum :flonum) + (spec: 1 :void :void) + (spec: 1 :string-port :string-port) + (spec: 1 :ratnum :ratnum) + (spec: 1 :condvar :condvar) + (spec: 1 :hvector :hvector) + (spec: 1 :real :real) + (spec: 1 :thread-group :thread-group) + (spec: 1 :vector-port :vector-port) (spec: 1 :readenv :readenv) (spec: 1 :vm :vm) - (spec: 1 :special :special) - (spec: 1 :file-info :file-info) - (spec: 1 :readtable :readtable) - (spec: 1 :object-port :object-port) - (spec: 1 :eof :eof) - (spec: 1 :u8vector-port :u8vector-port) - (spec: 1 :table :table) - (spec: 1 :pair :pair) - (spec: 1 :immediate :immediate) + (spec: 1 :address-info :address-info) (spec: 1 :s32vector :s32vector) + (spec: 1 class class) + (spec: 1 :integer :integer) + (spec: 1 :values :values) + (spec: 1 :socket-info :socket-info) + (spec: 1 :file-info :file-info) + (spec: 1 :object :object) + (spec: 1 :t :t) + (spec: 1 :char :char) + (spec: 1 :s8vector :s8vector) + (spec: 1 :promise :promise) + (spec: 1 :event-queue-port :event-queue-port) + (spec: 1 :fixnum :fixnum) + (spec: 1 :symbol :symbol) + (spec: 1 :s64vector :s64vector) + (spec: 1 :port :port) + (spec: 1 :u32vector :u32vector) + (spec: 1 :frame :frame) (spec: 1 :continuation :continuation) - (spec: 1 :void :void) - (spec: 1 :f64vector :f64vector) - (spec: 1 :s16vector :s16vector) - (spec: 1 :boolean :boolean) - (spec: 1 :ratnum :ratnum) - (spec: 1 @-set! @-set!) + (spec: 1 :false :false) + (spec: 1 :atom :atom) + (spec: 1 :null :null) + (spec: 1 :f32vector :f32vector) + (spec: 1 :weak :weak) + (spec: 1 :mutex :mutex) + (spec: 1 :processor :processor) + (spec: 1 define-struct define-struct) + (spec: 1 @ @) (spec: 1 define-class define-class) + (spec: 1 @-set! @-set!) (spec: 1 @method @method) - (spec: 1 @ @) - (spec: 1 define-struct define-struct) (spec: 1 class-type-info class-type-info) (spec: 1 !class-type-ordered-slots-set! !class-type-ordered-slots-set!) + (spec: 1 !class-type-constructor-set! !class-type-constructor-set!) + (spec: 1 !class-type-metaclass !class-type-metaclass) (spec: 1 - &!class-type-precedence-list-set! - &!class-type-precedence-list-set!) + !class-type-unchecked-mutators + !class-type-unchecked-mutators) + (spec: 1 !class-type-super-set! !class-type-super-set!) + (spec: 1 &!class-type-constructor-set! &!class-type-constructor-set!) (spec: 1 - &!class-type-constructor-method-set! - &!class-type-constructor-method-set!) - (spec: 1 !class-type-precedence-list !class-type-precedence-list) + !class-type-constructor-method + !class-type-constructor-method) + (spec: 1 !class-type-descriptor-set! !class-type-descriptor-set!) + (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) + (spec: 1 &!class-type-struct?-set! &!class-type-struct?-set!) + (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) + (spec: 1 &!class-type-slots &!class-type-slots) + (spec: 1 !class-type-mutators !class-type-mutators) + (spec: 1 !class-type-slot-contracts !class-type-slot-contracts) + (spec: 1 !class-type-id-set! !class-type-id-set!) (spec: 1 !class-type-metaclass-set! !class-type-metaclass-set!) - (spec: 1 &!class-type-id &!class-type-id) - (spec: 1 !class-type-system? !class-type-system?) - (spec: 1 !class-type-system?-set! !class-type-system?-set!) - (spec: 1 &!class-type-constructor-set! &!class-type-constructor-set!) - (spec: 1 !class-type-constructor !class-type-constructor) - (spec: 1 &!class-type-accessors-set! &!class-type-accessors-set!) - (spec: 1 !class-type-struct? !class-type-struct?) - (spec: 1 !class-type-slots-set! !class-type-slots-set!) + (spec: 1 &!class-type-mutators &!class-type-mutators) + (spec: 1 &!class-type-name &!class-type-name) + (spec: 1 &!class-type-struct? &!class-type-struct?) (spec: 1 - !class-type-precedence-list-set! - !class-type-precedence-list-set!) - (spec: 1 !class-type-slot-types-set! !class-type-slot-types-set!) + &!class-type-unchecked-accessors + &!class-type-unchecked-accessors) (spec: 1 - &!class-type-constructor-method - &!class-type-constructor-method) - (spec: 1 &!class-type-slot-defaults &!class-type-slot-defaults) - (spec: 1 &!class-type-id-set! &!class-type-id-set!) - (spec: 1 &!class-type-slots-set! &!class-type-slots-set!) - (spec: 1 !class-type-ordered-slots !class-type-ordered-slots) - (spec: 1 !class-type-struct?-set! !class-type-struct?-set!) - (spec: 1 &!class-type-struct?-set! &!class-type-struct?-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-super !class-type-super) - (spec: 1 !class-type-metaclass !class-type-metaclass) - (spec: 1 &!class-type-slot-types &!class-type-slot-types) - (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) - (spec: 1 &!class-type-mutators &!class-type-mutators) + &!class-type-constructor-method-set! + &!class-type-constructor-method-set!) (spec: 1 - &!class-type-unchecked-accessors-set! - &!class-type-unchecked-accessors-set!) - (spec: 1 !class-type-name-set! !class-type-name-set!) - (spec: 1 !class-type-final? !class-type-final?) + !class-type-slot-defaults-set! + !class-type-slot-defaults-set!) + (spec: 1 &!class-type-id-set! &!class-type-id-set!) + (spec: 1 &!class-type-slot-types-set! &!class-type-slot-types-set!) + (spec: 1 !class-type-constructor !class-type-constructor) (spec: 1 &!class-type-system? &!class-type-system?) - (spec: 1 &!class-type-struct? &!class-type-struct?) - (spec: 1 &!class-type-super-set! &!class-type-super-set!) + (spec: 1 !class-type-slots-set! !class-type-slots-set!) + (spec: 1 !class-type-slot-types-set! !class-type-slot-types-set!) + (spec: 1 &!class-type-descriptor-set! &!class-type-descriptor-set!) + (spec: 1 !class-type-slot-defaults !class-type-slot-defaults) + (spec: 1 &!class-type-predicate &!class-type-predicate) + (spec: 1 &!class-type-name-set! &!class-type-name-set!) (spec: 1 - &!class-type-unchecked-mutators-set! - &!class-type-unchecked-mutators-set!) + &!class-type-ordered-slots-set! + &!class-type-ordered-slots-set!) (spec: 1 class-type-info::apply-macro-expander class-type-info::apply-macro-expander) - (spec: 1 !class-type-slot-defaults !class-type-slot-defaults) + (spec: 1 !class-type-struct? !class-type-struct?) + (spec: 1 &!class-type-final? &!class-type-final?) + (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) + (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) + (spec: 1 !class-type-predicate-set! !class-type-predicate-set!) + (spec: + 1 + &!class-type-slot-defaults-set! + &!class-type-slot-defaults-set!) + (spec: 1 !class-type-name-set! !class-type-name-set!) + (spec: 1 !class-type-ordered-slots !class-type-ordered-slots) + (spec: 1 !class-type-system? !class-type-system?) + (spec: + 1 + !class-type-unchecked-mutators-set! + !class-type-unchecked-mutators-set!) + (spec: 1 !class-type-id !class-type-id) (spec: 1 !class-type-unchecked-accessors !class-type-unchecked-accessors) + (spec: 1 &!class-type-id &!class-type-id) (spec: 1 - &!class-type-unchecked-accessors - &!class-type-unchecked-accessors) - (spec: 1 class-type-info::t class-type-info::t) - (spec: 1 &!class-type-name-set! &!class-type-name-set!) + &!class-type-constructor-method + &!class-type-constructor-method) + (spec: 1 &!class-type-descriptor &!class-type-descriptor) + (spec: 1 &!class-type-slot-contracts &!class-type-slot-contracts) + (spec: 1 !class-type-accessors !class-type-accessors) + (spec: 1 !class-type-name !class-type-name) + (spec: 1 make-class-type-info make-class-type-info) (spec: 1 &!class-type-super &!class-type-super) - (spec: 1 !class-type-predicate !class-type-predicate) - (spec: - 1 - &!class-type-unchecked-mutators - &!class-type-unchecked-mutators) + (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) + (spec: 1 &!class-type-super-set! &!class-type-super-set!) + (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) (spec: 1 - !class-type-unchecked-mutators - !class-type-unchecked-mutators) - (spec: 1 &!class-type-slots &!class-type-slots) + &!class-type-precedence-list-set! + &!class-type-precedence-list-set!) + (spec: 1 !class-type-slot-types !class-type-slot-types) (spec: 1 !class-type-slot-contracts-set! !class-type-slot-contracts-set!) - (spec: 1 &!class-type-name &!class-type-name) - (spec: 1 &!class-type-final?-set! &!class-type-final?-set!) - (spec: 1 !class-type-slot-contracts !class-type-slot-contracts) - (spec: 1 !class-type-super-set! !class-type-super-set!) - (spec: 1 !class-type-descriptor-set! !class-type-descriptor-set!) - (spec: - 1 - !class-type-slot-defaults-set! - !class-type-slot-defaults-set!) - (spec: 1 !class-type-id !class-type-id) - (spec: - 1 - !class-type-constructor-method - !class-type-constructor-method) - (spec: 1 class-type-info? class-type-info?) - (spec: 1 !class-type-constructor-set! !class-type-constructor-set!) - (spec: 1 &!class-type-metaclass &!class-type-metaclass) - (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) - (spec: 1 &!class-type-constructor &!class-type-constructor) - (spec: 1 !class-type-predicate-set! !class-type-predicate-set!) - (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) - (spec: 1 &!class-type-predicate-set! &!class-type-predicate-set!) (spec: 1 !class-type-constructor-method-set! !class-type-constructor-method-set!) - (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) (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 &!class-type-slot-types) + (spec: 1 &!class-type-final?-set! &!class-type-final?-set!) + (spec: 1 &!class-type-predicate-set! &!class-type-predicate-set!) (spec: 1 syntax-local-class-type-info? syntax-local-class-type-info?) - (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) - (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) - (spec: 1 !class-type-mutators !class-type-mutators) + (spec: 1 !class-type-predicate !class-type-predicate) + (spec: 1 !class-type-slots !class-type-slots) (spec: 1 - !class-type-unchecked-mutators-set! - !class-type-unchecked-mutators-set!) + &!class-type-unchecked-mutators-set! + &!class-type-unchecked-mutators-set!) + (spec: 1 !class-type-final?-set! !class-type-final?-set!) (spec: 1 - &!class-type-ordered-slots-set! - &!class-type-ordered-slots-set!) + &!class-type-unchecked-mutators + &!class-type-unchecked-mutators) + (spec: 1 &!class-type-accessors &!class-type-accessors) + (spec: 1 &!class-type-metaclass &!class-type-metaclass) (spec: 1 !class-type-descriptor !class-type-descriptor) - (spec: 1 !class-type-final?-set! !class-type-final?-set!) + (spec: 1 !class-type-system?-set! !class-type-system?-set!) + (spec: 1 &!class-type-slot-defaults &!class-type-slot-defaults) + (spec: 1 !class-type-super !class-type-super) + (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) (spec: 1 - !class-type-unchecked-accessors-set! - !class-type-unchecked-accessors-set!) + &!class-type-unchecked-accessors-set! + &!class-type-unchecked-accessors-set!) + (spec: 1 class-type-info::t class-type-info::t) + (spec: 1 !class-type-precedence-list !class-type-precedence-list) + (spec: 1 !class-type-final? !class-type-final?) + (spec: 1 !class-type-struct?-set! !class-type-struct?-set!) + (spec: 1 &!class-type-constructor &!class-type-constructor) + (spec: 1 class-type-info? class-type-info?) + (spec: 1 &!class-type-slots-set! &!class-type-slots-set!) + (spec: 1 &!class-type-accessors-set! &!class-type-accessors-set!) (spec: 1 &!class-type-slot-contracts-set! &!class-type-slot-contracts-set!) - (spec: 1 !class-type-slot-types !class-type-slot-types) - (spec: 1 &!class-type-accessors &!class-type-accessors) - (spec: 1 &!class-type-final? &!class-type-final?) - (spec: 1 !class-type-accessors !class-type-accessors) - (spec: 1 !class-type-id-set! !class-type-id-set!) - (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) - (spec: 1 &!class-type-descriptor &!class-type-descriptor) - (spec: 1 &!class-type-predicate &!class-type-predicate) - (spec: 1 make-class-type-info make-class-type-info) - (spec: 1 &!class-type-slot-contracts &!class-type-slot-contracts) - (spec: 1 !class-type-slots !class-type-slots) - (spec: 1 !class-type-name !class-type-name) + (spec: + 1 + !class-type-precedence-list-set! + !class-type-precedence-list-set!) (spec: 2 make-class-type-id make-class-type-id) (spec: 2 module-type-id module-type-id) (spec: 1 defclass-type defclass-type) (spec: 1 defstruct-type defstruct-type) + (spec: 0 :boolean :boolean) + (spec: 0 :writeenv :writeenv) + (spec: 0 :pair :pair) + (spec: 0 :immediate :immediate) (spec: 0 defsystem-class-info defsystem-class-info) - (spec: 0 class class) - (spec: 0 :real :real) - (spec: 0 :s64vector :s64vector) - (spec: 0 :f32vector :f32vector) + (spec: 0 :f64vector :f64vector) + (spec: 0 :u64vector :u64vector) + (spec: 0 :true :true) (spec: 0 :foreign :foreign) - (spec: 0 :fixnum :fixnum) - (spec: 0 :mutex :mutex) - (spec: 0 :t :t) - (spec: 0 :values :values) - (spec: 0 :vector-port :vector-port) - (spec: 0 :weak :weak) - (spec: 0 :character-port :character-port) - (spec: 0 :atom :atom) - (spec: 0 :raw-device-port :raw-device-port) - (spec: 0 :symbolic :symbolic) (spec: 0 :time :time) - (spec: 0 :string :string) - (spec: 0 :thread-group :thread-group) - (spec: 0 :condvar :condvar) - (spec: 0 :char :char) - (spec: 0 :writeenv :writeenv) - (spec: 0 :sequence :sequence) + (spec: 0 :readtable :readtable) + (spec: 0 :vector :vector) (spec: 0 :box :box) - (spec: 0 :bignum :bignum) - (spec: 0 :udp-port :udp-port) + (spec: 0 :directory-port :directory-port) + (spec: 0 :u8vector-port :u8vector-port) (spec: 0 :u8vector :u8vector) - (spec: 0 :false :false) - (spec: 0 :processor :processor) - (spec: 0 :frame :frame) - (spec: 0 :socket-info :socket-info) - (spec: 0 :address-info :address-info) - (spec: 0 :cpxnum :cpxnum) + (spec: 0 :number :number) + (spec: 0 :tcp-server-port :tcp-server-port) (spec: 0 :class :class) - (spec: 0 :object :object) - (spec: 0 :keyword :keyword) - (spec: 0 :symbol :symbol) - (spec: 0 :hvector :hvector) - (spec: 0 :flonum :flonum) - (spec: 0 :promise :promise) - (spec: 0 :string-port :string-port) - (spec: 0 :null :null) + (spec: 0 :table :table) + (spec: 0 :byte-port :byte-port) + (spec: 0 :special :special) + (spec: 0 :eof :eof) + (spec: 0 :symbolic :symbolic) + (spec: 0 :string :string) (spec: 0 :list :list) - (spec: 0 :s8vector :s8vector) - (spec: 0 :thread :thread) - (spec: 0 :u16vector :u16vector) - (spec: 0 :integer :integer) - (spec: 0 :true :true) - (spec: 0 :u64vector :u64vector) - (spec: 0 :port :port) - (spec: 0 :device-port :device-port) - (spec: 0 :tcp-server-port :tcp-server-port) - (spec: 0 :directory-port :directory-port) - (spec: 0 :vector :vector) - (spec: 0 :number :number) - (spec: 0 :u32vector :u32vector) + (spec: 0 :keyword :keyword) + (spec: 0 :s16vector :s16vector) + (spec: 0 :u16vector :u16vector) + (spec: 0 :object-port :object-port) + (spec: 0 :character-port :character-port) + (spec: 0 :bignum :bignum) + (spec: 0 :sequence :sequence) (spec: 0 :procedure :procedure) - (spec: 0 :byte-port :byte-port) - (spec: 0 :event-queue-port :event-queue-port) + (spec: 0 :thread :thread) + (spec: 0 :device-port :device-port) + (spec: 0 :raw-device-port :raw-device-port) + (spec: 0 :cpxnum :cpxnum) + (spec: 0 :udp-port :udp-port) + (spec: 0 :flonum :flonum) + (spec: 0 :void :void) + (spec: 0 :string-port :string-port) + (spec: 0 :ratnum :ratnum) + (spec: 0 :condvar :condvar) + (spec: 0 :hvector :hvector) + (spec: 0 :real :real) + (spec: 0 :thread-group :thread-group) + (spec: 0 :vector-port :vector-port) (spec: 0 :readenv :readenv) (spec: 0 :vm :vm) - (spec: 0 :special :special) - (spec: 0 :file-info :file-info) - (spec: 0 :readtable :readtable) - (spec: 0 :object-port :object-port) - (spec: 0 :eof :eof) - (spec: 0 :u8vector-port :u8vector-port) - (spec: 0 :table :table) - (spec: 0 :pair :pair) - (spec: 0 :immediate :immediate) + (spec: 0 :address-info :address-info) (spec: 0 :s32vector :s32vector) + (spec: 0 class class) + (spec: 0 :integer :integer) + (spec: 0 :values :values) + (spec: 0 :socket-info :socket-info) + (spec: 0 :file-info :file-info) + (spec: 0 :object :object) + (spec: 0 :t :t) + (spec: 0 :char :char) + (spec: 0 :s8vector :s8vector) + (spec: 0 :promise :promise) + (spec: 0 :event-queue-port :event-queue-port) + (spec: 0 :fixnum :fixnum) + (spec: 0 :symbol :symbol) + (spec: 0 :s64vector :s64vector) + (spec: 0 :port :port) + (spec: 0 :u32vector :u32vector) + (spec: 0 :frame :frame) (spec: 0 :continuation :continuation) - (spec: 0 :void :void) - (spec: 0 :f64vector :f64vector) - (spec: 0 :s16vector :s16vector) - (spec: 0 :boolean :boolean) - (spec: 0 :ratnum :ratnum) - (spec: 0 @-set! @-set!) + (spec: 0 :false :false) + (spec: 0 :atom :atom) + (spec: 0 :null :null) + (spec: 0 :f32vector :f32vector) + (spec: 0 :weak :weak) + (spec: 0 :mutex :mutex) + (spec: 0 :processor :processor) + (spec: 0 define-struct define-struct) + (spec: 0 @ @) (spec: 0 define-class define-class) + (spec: 0 @-set! @-set!) (spec: 0 @method @method) - (spec: 0 @ @) - (spec: 0 define-struct define-struct) (spec: 1 make-class-type-id make-class-type-id) (spec: 1 module-type-id module-type-id) (spec: 0 defclass-type defclass-type) (spec: 0 defstruct-type defstruct-type) - (spec: 0 MOP-4 MOP-4) (spec: 0 MOP-5 MOP-5) + (spec: 0 MOP-1 MOP-1) (spec: 0 MOP-2 MOP-2) + (spec: 0 MOP-4 MOP-4) (spec: 0 MOP-3 MOP-3) - (spec: 0 MOP-1 MOP-1) (spec: 0 defconst defconst) (spec: 0 definline definline) (spec: 0 defsyntax defsyntax) - (spec: 0 delay delay) - (spec: 0 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 0 and-let* and-let*) + (spec: 0 quasiquote quasiquote) + (spec: 0 <> <>) (spec: 0 alet* alet*) + (spec: 0 defvalues defvalues) (spec: 0 ~case-dispatch ~case-dispatch) - (spec: 0 ~case-dispatch* ~case-dispatch*) - (spec: 0 begin0 begin0) - (spec: 0 ~case ~case) - (spec: 0 and-let* and-let*) + (spec: 0 rec rec) + (spec: 0 alet alet) (spec: 0 @list @list) - (spec: 0 cut cut) (spec: 0 do-while do-while) - (spec: 0 quasiquote quasiquote) - (spec: 0 defvalues defvalues) - (spec: 0 <> <>) + (spec: 0 cut cut) + (spec: 0 <...> <...>) (spec: 0 do do) - (spec: 0 case case) + (spec: 0 begin0 begin0) (spec: 0 ~case-test ~case-test) - (spec: 0 alet alet) - (spec: 0 rec rec) - (spec: 0 <...> <...>) - (spec: 0 letrec letrec) - (spec: 0 and and) + (spec: 0 case case) + (spec: 0 delay delay) + (spec: 0 ~case-dispatch* ~case-dispatch*) + (spec: 0 ~case ~case) + (spec: 0 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 0 defmutable defmutable) (spec: 0 defsyntax% defsyntax%) - (spec: 0 letrec* letrec*) - (spec: 0 or or) + (spec: 0 defrules defrules) + (spec: 0 cond cond) + (spec: 0 let* let*) (spec: 0 define define) + (spec: 0 let*-values let*-values) (spec: 0 ~let ~let) + (spec: 0 and and) + (spec: 0 define-rules define-rules) + (spec: 0 letrec letrec) (spec: 0 when when) - (spec: 0 cond cond) - (spec: 0 defmutable defmutable) - (spec: 0 let* let*) (spec: 0 defrule defrule) - (spec: 0 let*-values let*-values) + (spec: 0 letrec* letrec*) (spec: 0 syntax-error syntax-error) - (spec: 0 unless unless) (spec: 0 defalias defalias) - (spec: 0 defrules defrules) - (spec: 0 define-rules define-rules) - (spec: 0 s16vector-ref-set! s16vector-ref-set!) + (spec: 0 unless unless) + (spec: 0 or or) + (spec: 0 cdr-set! cdr-set!) (spec: 0 car-set! car-set!) - (spec: 0 s8vector-ref-set! s8vector-ref-set!) + (spec: 0 u16vector-ref-set! u16vector-ref-set!) + (spec: 0 box-set! box-set!) (spec: 0 s64vector-ref-set! s64vector-ref-set!) - (spec: 0 u64vector-ref-set! u64vector-ref-set!) (spec: 0 vector-ref-set! vector-ref-set!) - (spec: 0 u16vector-ref-set! u16vector-ref-set!) - (spec: 0 string-ref-set! string-ref-set!) - (spec: 0 s32vector-ref-set! s32vector-ref-set!) (spec: 0 call/values call/values) - (spec: 0 cdr-set! cdr-set!) - (spec: 0 f32vector-ref-set! f32vector-ref-set!) + (spec: 0 u8vector-ref-set! u8vector-ref-set!) + (spec: 0 u32vector-ref-set! u32vector-ref-set!) + (spec: 0 u64vector-ref-set! u64vector-ref-set!) + (spec: 0 call/parameters call/parameters) + (spec: 0 s32vector-ref-set! s32vector-ref-set!) (spec: 0 f64vector-ref-set! f64vector-ref-set!) (spec: 0 random-source-make-bytes random-source-make-bytes) - (spec: 0 call/parameters call/parameters) - (spec: 0 u32vector-ref-set! u32vector-ref-set!) - (spec: 0 box-set! box-set!) - (spec: 0 u8vector-ref-set! u8vector-ref-set!) + (spec: 0 s16vector-ref-set! s16vector-ref-set!) + (spec: 0 f32vector-ref-set! f32vector-ref-set!) (spec: 0 random-bytes random-bytes) - (spec: 0 with-exception-handler with-exception-handler) - (spec: 0 hvector::t hvector::t) - (spec: 0 HashTable::interface HashTable::interface) - (spec: 0 with-unwind-protect with-unwind-protect) - (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 0 list->hash-table list->hash-table) - (spec: 0 build-manifest/head build-manifest/head) - (spec: 0 class-type? class-type?) - (spec: 0 special::t special::t) - (spec: 0 make-hash-table-string make-hash-table-string) - (spec: 0 make-class-predicate make-class-predicate) - (spec: 0 class-type-fields class-type-fields) - (spec: 0 seal-class! seal-class!) - (spec: 0 hash-key? hash-key?) - (spec: 0 thread-local-ref thread-local-ref) - (spec: 0 actor-thread? actor-thread?) - (spec: 0 find-method find-method) - (spec: 0 immediate? immediate?) - (spec: 0 vector-port? vector-port?) - (spec: 0 symblic-hash symblic-hash) - (spec: 0 error-irritants error-irritants) - (spec: 0 hash-merge! hash-merge!) - (spec: 0 HashTable::t HashTable::t) - (spec: 0 build-manifest/layer build-manifest/layer) - (spec: 0 gerbil-path gerbil-path) + (spec: 0 s8vector-ref-set! s8vector-ref-set!) + (spec: 0 string-ref-set! string-ref-set!) + (spec: 0 AST-e AST-e) + (spec: 0 make-class-slot-accessor make-class-slot-accessor) + (spec: 0 gerbil-load-expander! gerbil-load-expander!) (spec: 0 readenv::t readenv::t) - (spec: 0 cast cast) - (spec: 0 add-load-path! add-load-path!) - (spec: 0 raise raise) - (spec: 0 &class-type-fields &class-type-fields) + (spec: 0 struct->list struct->list) + (spec: 0 hash-copy hash-copy) (spec: 0 special? special?) - (spec: 0 &class-type-slot-vector &class-type-slot-vector) - (spec: 0 make-class-slot-accessor make-class-slot-accessor) - (spec: 0 class->list class->list) - (spec: 0 class::t class::t) - (spec: 0 class-type-precedence-list class-type-precedence-list) - (spec: 0 symbol::t symbol::t) - (spec: 0 t::t t::t) - (spec: 0 eof::t eof::t) - (spec: 0 cpxnum::t cpxnum::t) + (spec: 0 eqv-hash eqv-hash) (spec: 0 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 0 memf memf) - (spec: 0 hash->list hash->list) - (spec: 0 vector::t vector::t) - (spec: 0 fx/ fx/) - (spec: 0 atom::t atom::t) - (spec: 0 thread::t thread::t) - (spec: 0 hvector? hvector?) - (spec: 0 error-message error-message) - (spec: 0 call-with-parameters call-with-parameters) - (spec: 0 checked-method-ref checked-method-ref) - (spec: 0 interface-descriptor-methods interface-descriptor-methods) - (spec: 0 raw-device-port::t raw-device-port::t) - (spec: 0 hash-put! hash-put!) - (spec: 0 gerbil-load-expander! gerbil-load-expander!) - (spec: 0 class-type-system? class-type-system?) - (spec: 0 string-empty? string-empty?) - (spec: 0 make-hash-table-eqv make-hash-table-eqv) - (spec: 0 s8vector::t s8vector::t) - (spec: 0 display-build-manifest display-build-manifest) - (spec: 0 error error) - (spec: 0 1+ 1+) - (spec: 0 andmap andmap) - (spec: 0 exception? exception?) - (spec: 0 assgetq assgetq) - (spec: 0 integer::t integer::t) - (spec: 0 frame::t frame::t) - (spec: 0 udp-port? udp-port?) - (spec: 0 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 0 hash-map hash-map) - (spec: 0 thread-local-set! thread-local-set!) - (spec: 0 replx replx) - (spec: 0 bind-method! bind-method!) - (spec: 0 raw-device-port? raw-device-port?) - (spec: 0 with-lock with-lock) - (spec: 0 class-type=? class-type=?) - (spec: 0 &class-type-constructor &class-type-constructor) - (spec: 0 string-hash string-hash) - (spec: 0 &class-type-slot-table &class-type-slot-table) - (spec: 0 class-type-field-count class-type-field-count) - (spec: 0 class-type-name class-type-name) - (spec: 0 display-exception display-exception) - (spec: 0 satisfies? satisfies?) - (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 0 HashTableLock::interface HashTableLock::interface) - (spec: 0 make-hash-table-immediate make-hash-table-immediate) + (spec: 0 display* display*) (spec: 0 max-char-code max-char-code) - (spec: 0 1- 1-) - (spec: 0 unbound-key-error? unbound-key-error?) - (spec: 0 find find) - (spec: 0 assgetv assgetv) (spec: 0 immediate::t immediate::t) - (spec: 0 vector-port::t vector-port::t) + (spec: 0 vm::t vm::t) + (spec: 0 raw-device-port::t raw-device-port::t) (spec: 0 pgetq pgetq) - (spec: 0 event-queue-port::t event-queue-port::t) + (spec: 0 byte-port? byte-port?) + (spec: 0 unchecked-slot-ref unchecked-slot-ref) (spec: 0 interface-cast-error? interface-cast-error?) - (spec: 0 real::t real::t) - (spec: 0 byte-port::t byte-port::t) - (spec: 0 character-port? character-port?) - (spec: 0 fx<=0? fx<=0?) - (spec: 0 list->hash-table-immediate list->hash-table-immediate) - (spec: 0 hash-merge hash-merge) - (spec: 0 class-type-seal! class-type-seal!) + (spec: 0 AST? AST?) + (spec: 0 class-type-flags class-type-flags) + (spec: 0 make-class-slot-mutator make-class-slot-mutator) + (spec: 0 s8vector::t s8vector::t) + (spec: 0 list->hash-table-eq list->hash-table-eq) + (spec: 0 string-empty? string-empty?) (spec: 0 - make-class-slot-unchecked-mutator - make-class-slot-unchecked-mutator) - (spec: 0 class-of class-of) + datum-parsing-exception-filepos + datum-parsing-exception-filepos) + (spec: 0 class-type-slot-table class-type-slot-table) + (spec: 0 &class-type-slot-table &class-type-slot-table) + (spec: 0 &class-type-constructor &class-type-constructor) + (spec: 0 hash-find hash-find) + (spec: 0 t::t t::t) + (spec: 0 number::t number::t) + (spec: 0 directory-port::t directory-port::t) + (spec: 0 dssl-rest-object? dssl-rest-object?) + (spec: 0 fxshift fxshift) + (spec: 0 boolean::t boolean::t) + (spec: 0 vector-port? vector-port?) + (spec: 0 file-newer? file-newer?) + (spec: 0 agetv agetv) + (spec: 0 foldr foldr) + (spec: 0 as-string as-string) + (spec: 0 raw-device-port? raw-device-port?) + (spec: 0 satisfies? satisfies?) + (spec: 0 with-lock with-lock) + (spec: 0 list::t list::t) + (spec: 0 continuation::t continuation::t) + (spec: 0 string-hash string-hash) + (spec: 0 tcp-server-port? tcp-server-port?) + (spec: 0 thread::t thread::t) + (spec: 0 hash-remove! hash-remove!) + (spec: 0 method-ref method-ref) + (spec: 0 directory-port? directory-port?) + (spec: 0 symbol::t symbol::t) + (spec: 0 build-manifest-string build-manifest-string) + (spec: 0 vector::t vector::t) + (spec: 0 andmap andmap) + (spec: 0 filter-map filter-map) + (spec: 0 assgetq assgetq) + (spec: 0 with-unwind-protect with-unwind-protect) + (spec: 0 error error) + (spec: 0 exception? exception?) + (spec: 0 gerbil-home gerbil-home) + (spec: 0 call-next-method call-next-method) (spec: 0 sequence::t sequence::t) - (spec: 0 eof-object eof-object) - (spec: 0 symbolic-table-delete! symbolic-table-delete!) - (spec: 0 displayln displayln) - (spec: 0 make-symbol make-symbol) - (spec: 0 struct-copy struct-copy) - (spec: 0 null::t null::t) - (spec: 0 condvar::t condvar::t) - (spec: 0 make-promise make-promise) - (spec: 0 unchecked-slot-set! unchecked-slot-set!) - (spec: 0 flonum::t flonum::t) - (spec: 0 ormap ormap) - (spec: 0 f64vector::t f64vector::t) - (spec: 0 event-queue-port? event-queue-port?) - (spec: 0 vm? vm?) - (spec: 0 hash-copy hash-copy) - (spec: 0 source-location-path source-location-path) - (spec: 0 gerbil-system gerbil-system) + (spec: 0 hash->plist hash->plist) + (spec: 0 real::t real::t) + (spec: 0 &interface-instance-object &interface-instance-object) + (spec: 0 dump-stack-trace! dump-stack-trace!) + (spec: 0 struct-instance? struct-instance?) + (spec: 0 replx replx) + (spec: 0 error-irritants error-irritants) + (spec: 0 &class-type-properties &class-type-properties) + (spec: 0 source-location-path? source-location-path?) + (spec: 0 hash-clear! hash-clear!) + (spec: 0 load-module load-module) + (spec: 0 hash-ref hash-ref) + (spec: 0 subclass? subclass?) + (spec: 0 symbolic-table-set! symbolic-table-set!) + (spec: 0 void? void?) + (spec: 0 find find) + (spec: 0 assgetv assgetv) (spec: 0 write-u8vector write-u8vector) - (spec: 0 fx=0? fx=0?) + (spec: 0 class-type-constructor class-type-constructor) + (spec: 0 raise raise) + (spec: 0 call-with-parameters call-with-parameters) + (spec: 0 checked-method-ref checked-method-ref) + (spec: 0 sequence? sequence?) (spec: 0 list->hash-table-string list->hash-table-string) - (spec: 0 &class-type-id &class-type-id) - (spec: 0 class-type-sealed? class-type-sealed?) + (spec: 0 string-join string-join) + (spec: 0 class-type-system? class-type-system?) (spec: 0 source-location? source-location?) - (spec: 0 source-location-path? source-location-path?) - (spec: 0 symbolic-table-ref symbolic-table-ref) - (spec: 0 device-port::t device-port::t) - (spec: 0 tcp-server-port::t tcp-server-port::t) - (spec: 0 number::t number::t) - (spec: 0 struct-instance-init! struct-instance-init!) - (spec: 0 error-object? error-object?) - (spec: 0 method-ref method-ref) - (spec: 0 false::t false::t) - (spec: 0 void::t void::t) - (spec: 0 foldl foldl) - (spec: 0 hash-remove! hash-remove!) - (spec: 0 hash-find hash-find) - (spec: 0 pgetv pgetv) - (spec: 0 readenv? readenv?) - (spec: - 0 - unhandled-actor-exception-hook-set! - unhandled-actor-exception-hook-set!) - (spec: 0 char::t char::t) - (spec: 0 fx1- fx1-) + (spec: 0 null::t null::t) + (spec: 0 eof-object eof-object) + (spec: 0 hash-fold hash-fold) + (spec: 0 find-method find-method) + (spec: 0 interface-descriptor-type interface-descriptor-type) + (spec: 0 u16vector::t u16vector::t) (spec: 0 is-hash-table? is-hash-table?) - (spec: 0 bind-specializer! bind-specializer!) - (spec: 0 class-type-properties class-type-properties) - (spec: 0 list->hash-table-eq list->hash-table-eq) - (spec: 0 string-index string-index) - (spec: 0 make-class-slot-mutator make-class-slot-mutator) - (spec: 0 class-instance-init! class-instance-init!) - (spec: 0 table::t table::t) - (spec: 0 eq-hash eq-hash) - (spec: 0 string::t string::t) - (spec: 0 create-directory* create-directory*) - (spec: 0 hash->plist hash->plist) - (spec: 0 port::t port::t) - (spec: 0 address-info::t address-info::t) - (spec: 0 fx1+ fx1+) - (spec: 0 hash-ref hash-ref) - (spec: 0 time::t time::t) - (spec: 0 error-trace error-trace) - (spec: 0 error? error?) - (spec: 0 readtable::t readtable::t) + (spec: 0 class-type-name class-type-name) (spec: 0 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 0 character-port::t character-port::t) - (spec: 0 fx<0? fx<0?) - (spec: 0 list->hash-table-eqv list->hash-table-eqv) + (spec: 0 HashTableLock::t HashTableLock::t) + (spec: 0 list->hash-table-symbolic list->hash-table-symbolic) + (spec: 0 cons* cons*) + (spec: 0 string-index string-index) (spec: 0 &class-type-flags &class-type-flags) + (spec: 0 make-symbol make-symbol) + (spec: 0 class-type-struct? class-type-struct?) (spec: 0 &class-type-super &class-type-super) - (spec: 0 make-object make-object) - (spec: - 0 - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) - (spec: 0 class-instance? class-instance?) - (spec: 0 class-type-final? class-type-final?) + (spec: 0 struct-copy struct-copy) (spec: 0 socket-info::t socket-info::t) - (spec: 0 hash-clear! hash-clear!) - (spec: 0 struct->list struct->list) - (spec: 0 unchecked-slot-ref unchecked-slot-ref) + (spec: 0 tcp-server-port::t tcp-server-port::t) + (spec: 0 display-as-string display-as-string) + (spec: 0 ormap ormap) + (spec: 0 address-info::t address-info::t) + (spec: 0 object-port? object-port?) + (spec: 0 symbolic-table-delete! symbolic-table-delete!) + (spec: 0 build-manifest build-manifest) + (spec: 0 readenv? readenv?) + (spec: 0 vm? vm?) + (spec: 0 assget assget) + (spec: 0 keyword-dispatch keyword-dispatch) + (spec: 0 unchecked-slot-set! unchecked-slot-set!) + (spec: 0 foreign::t foreign::t) + (spec: 0 class-type-metaclass? class-type-metaclass?) + (spec: 0 call-method call-method) + (spec: 0 error-object? error-object?) + (spec: 0 symblic-hash symblic-hash) + (spec: 0 readtable::t readtable::t) + (spec: 0 1+ 1+) + (spec: 0 dump-stack-trace? dump-stack-trace?) + (spec: 0 class-type-super class-type-super) + (spec: 0 struct-instance-init! struct-instance-init!) + (spec: 0 make-keyword make-keyword) + (spec: 0 object-type object-type) (spec: 0 aget aget) - (spec: 0 fixnum::t fixnum::t) + (spec: 0 true? true?) + (spec: 0 display-build-manifest display-build-manifest) + (spec: 0 pair::t pair::t) (spec: 0 f32vector::t f32vector::t) - (spec: 0 vm::t vm::t) - (spec: 0 interface-descriptor-type interface-descriptor-type) - (spec: 0 true true) - (spec: 0 load-module load-module) - (spec: 0 read-syntax read-syntax) - (spec: 0 gerbil-version-string gerbil-version-string) - (spec: 0 weak? weak?) + (spec: 0 mutex::t mutex::t) (spec: 0 raise-contract-violation-error raise-contract-violation-error) - (spec: 0 fxshift fxshift) + (spec: 0 symbolic-table-ref symbolic-table-ref) + (spec: 0 build-manifest/layer build-manifest/layer) (spec: 0 keyword-rest keyword-rest) - (spec: 0 boolean::t boolean::t) - (spec: 0 reload-module! reload-module!) - (spec: 0 class-type-flags class-type-flags) - (spec: 0 direct-method-ref direct-method-ref) - (spec: 0 dssl-optional-object? dssl-optional-object?) - (spec: 0 symbolic::t symbolic::t) - (spec: 0 constructor-init! constructor-init!) - (spec: 0 make-symbolic-table make-symbolic-table) - (spec: 0 string-port::t string-port::t) - (spec: 0 u32vector::t u32vector::t) - (spec: 0 procedure-hash procedure-hash) - (spec: 0 file-info::t file-info::t) - (spec: 0 thread-group::t thread-group::t) - (spec: 0 object-port::t object-port::t) - (spec: 0 true::t true::t) - (spec: 0 c4-linearize c4-linearize) + (spec: 0 void::t void::t) + (spec: 0 frame::t frame::t) + (spec: 0 procedure::t procedure::t) + (spec: 0 error? error?) + (spec: 0 class-type-methods class-type-methods) + (spec: 0 gerbil-path gerbil-path) (spec: 0 interface-instance-object interface-instance-object) + (spec: 0 class->list class->list) + (spec: 0 cast cast) + (spec: 0 string-rindex string-rindex) + (spec: 0 1- 1-) (spec: 0 hash-table? hash-table?) + (spec: 0 &class-type-fields &class-type-fields) + (spec: 0 class::t class::t) + (spec: 0 &class-type-slot-vector &class-type-slot-vector) + (spec: 0 object-fill! object-fill!) + (spec: 0 f64vector::t f64vector::t) + (spec: 0 event-queue-port::t event-queue-port::t) + (spec: 0 HashTable::interface HashTable::interface) + (spec: 0 make-hash-table make-hash-table) + (spec: 0 hash-update! hash-update!) + (spec: 0 bind-specializer! bind-specializer!) + (spec: 0 hash-for-each hash-for-each) + (spec: 0 thread-local-ref thread-local-ref) + (spec: 0 interface-descriptor? interface-descriptor?) + (spec: 0 fixnum::t fixnum::t) + (spec: 0 u8vector-port::t u8vector-port::t) + (spec: 0 values->list values->list) + (spec: 0 fx1- fx1-) + (spec: 0 processor::t processor::t) + (spec: 0 plist->hash-table-eq plist->hash-table-eq) + (spec: 0 char::t char::t) + (spec: 0 thread-local-get thread-local-get) (spec: 0 remf remf) - (spec: 0 interface-instance::t interface-instance::t) - (spec: 0 bound-method-ref bound-method-ref) - (spec: 0 class-type-slot-vector class-type-slot-vector) - (spec: 0 keyword::t keyword::t) - (spec: 0 plist->hash-table plist->hash-table) - (spec: 0 &class-type-name &class-type-name) - (spec: 0 make-instance make-instance) - (spec: 0 class-type-id class-type-id) - (spec: 0 remv remv) - (spec: 0 substring->bytes substring->bytes) - (spec: 0 directory-port::t directory-port::t) - (spec: 0 symbolic? symbolic?) - (spec: 0 dssl-rest-object? dssl-rest-object?) - (spec: 0 mutex::t mutex::t) - (spec: 0 string-port? string-port?) + (spec: 0 gerbil-system-manifest gerbil-system-manifest) + (spec: 0 class-instance-init! class-instance-init!) + (spec: 0 remq remq) (spec: 0 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 0 file-newer? file-newer?) - (spec: 0 agetv agetv) - (spec: 0 foldr foldr) - (spec: 0 as-string as-string) - (spec: 0 eqv-hash eqv-hash) - (spec: 0 absent-obj absent-obj) - (spec: 0 u64vector::t u64vector::t) - (spec: 0 bytes->string bytes->string) - (spec: 0 procedure::t procedure::t) + unhandled-actor-exception-hook-set! + unhandled-actor-exception-hook-set!) + (spec: 0 actor-thread? actor-thread?) + (spec: 0 condvar::t condvar::t) + (spec: 0 make-instance make-instance) + (spec: 0 thread-group::t thread-group::t) + (spec: 0 object-port::t object-port::t) + (spec: 0 true true) + (spec: 0 displayln displayln) + (spec: 0 error-message error-message) + (spec: 0 hash-keys hash-keys) + (spec: 0 hash-values hash-values) + (spec: 0 bind-method! bind-method!) + (spec: 0 make-promise make-promise) + (spec: 0 writeenv::t writeenv::t) + (spec: 0 flonum::t flonum::t) (spec: 0 keyword->symbol keyword->symbol) - (spec: 0 fx>0? fx>0?) - (spec: 0 gerbil-system-manifest gerbil-system-manifest) - (spec: 0 checked-bound-method-ref checked-bound-method-ref) - (spec: 0 object-port? object-port?) - (spec: 0 class-type-slot-list class-type-slot-list) - (spec: 0 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 0 return::t return::t) - (spec: 0 hash-update! hash-update!) - (spec: 0 sequence? sequence?) - (spec: 0 hash-for-each hash-for-each) - (spec: 0 symbolic-table-set! symbolic-table-set!) - (spec: 0 device-port? device-port?) - (spec: 0 dssl-key-object? dssl-key-object?) - (spec: 0 struct-instance? struct-instance?) - (spec: 0 tcp-server-port? tcp-server-port?) - (spec: 0 subclass? subclass?) - (spec: 0 hash-fold hash-fold) - (spec: 0 agetq agetq) - (spec: 0 void? void?) - (spec: 0 interface-descriptor? interface-descriptor?) - (spec: 0 spawn spawn) + (spec: 0 fx<0? fx<0?) + (spec: 0 values-count values-count) (spec: 0 immediate-hash immediate-hash) - (spec: 0 absent-value absent-value) - (spec: 0 thread-local-delete! thread-local-delete!) - (spec: 0 AST-source AST-source) + (spec: 0 class-type-final? class-type-final?) + (spec: 0 class-type-properties class-type-properties) + (spec: 0 make-class-type make-class-type) + (spec: 0 slot-ref slot-ref) + (spec: 0 u8vector-port? u8vector-port?) + (spec: 0 cpxnum::t cpxnum::t) (spec: 0 gerbil-system-version-string gerbil-system-version-string) - (spec: 0 cons* cons*) - (spec: 0 fx>=0? fx>=0?) - (spec: 0 keyword-dispatch keyword-dispatch) - (spec: 0 list::t list::t) - (spec: 0 class-type-slot-table class-type-slot-table) + (spec: 0 make-symbolic-table make-symbolic-table) + (spec: 0 class-type=? class-type=?) + (spec: 0 string-port::t string-port::t) + (spec: 0 with-catch with-catch) + (spec: 0 error-trace error-trace) + (spec: 0 make-interface-descriptor make-interface-descriptor) + (spec: 0 absent-obj absent-obj) + (spec: 0 true::t true::t) + (spec: 0 hash-length hash-length) + (spec: 0 eof::t eof::t) + (spec: 0 symbolic::t symbolic::t) (spec: 0 weak::t weak::t) + (spec: 0 build-manifest/head build-manifest/head) + (spec: 0 spawn spawn) + (spec: 0 u32vector::t u32vector::t) + (spec: 0 plist->hash-table plist->hash-table) + (spec: 0 fx/ fx/) + (spec: 0 procedure-hash procedure-hash) + (spec: 0 class-type-field-count class-type-field-count) + (spec: 0 atom::t atom::t) + (spec: 0 return::t return::t) + (spec: 0 thread-local-delete! thread-local-delete!) + (spec: 0 make-AST make-AST) + (spec: 0 read-syntax read-syntax) + (spec: 0 create-directory* create-directory*) + (spec: 0 string-port? string-port?) (spec: 0 read-syntax-from-file read-syntax-from-file) + (spec: 0 class-type? class-type?) + (spec: 0 make-hash-table-immediate make-hash-table-immediate) + (spec: 0 source-location-path source-location-path) (spec: 0 load-path load-path) - (spec: 0 set-load-path! set-load-path!) - (spec: 0 direct-instance? direct-instance?) - (spec: 0 dssl-object? dssl-object?) - (spec: 0 string-join string-join) - (spec: 0 current-thread-group current-thread-group) - (spec: 0 u16vector::t u16vector::t) - (spec: 0 AST-e AST-e) - (spec: 0 object-fill! object-fill!) - (spec: 0 pget pget) - (spec: 0 call-method call-method) - (spec: 0 read-u8vector read-u8vector) - (spec: 0 hash-values hash-values) + (spec: 0 hash-get hash-get) + (spec: 0 thread-local-set! thread-local-set!) + (spec: 0 add-load-path! add-load-path!) + (spec: 0 substring->bytes substring->bytes) + (spec: 0 eq-hash eq-hash) + (spec: 0 symbolic? symbolic?) (spec: 0 interned-keyword? interned-keyword?) - (spec: 0 build-manifest build-manifest) - (spec: 0 false false) - (spec: 0 class-type-super class-type-super) + (spec: 0 next-method next-method) (spec: 0 ratnum::t ratnum::t) - (spec: 0 make-hash-table make-hash-table) + (spec: 0 agetq agetq) + (spec: 0 u64vector::t u64vector::t) + (spec: 0 fx1+ fx1+) + (spec: 0 weak? weak?) + (spec: 0 class-type-fields class-type-fields) + (spec: 0 class-type-precedence-list class-type-precedence-list) + (spec: 0 writenv? writenv?) + (spec: 0 read-u8vector read-u8vector) + (spec: 0 HashTable::t HashTable::t) + (spec: 0 plist->hash-table-string plist->hash-table-string) + (spec: 0 set-load-path! set-load-path!) + (spec: 0 gerbil-system gerbil-system) + (spec: 0 current-thread-group current-thread-group) + (spec: 0 class-type-sealed? class-type-sealed?) + (spec: 0 &class-type-id &class-type-id) + (spec: 0 make-hash-table-string make-hash-table-string) (spec: 0 spawn/group spawn/group) + (spec: 0 object::t object::t) + (spec: 0 hash-key? hash-key?) + (spec: 0 reload-module! reload-module!) + (spec: 0 direct-instance? direct-instance?) + (spec: 0 absent-value absent-value) + (spec: 0 dssl-object? dssl-object?) + (spec: 0 fx>0? fx>0?) + (spec: 0 with-exception-handler with-exception-handler) + (spec: 0 keyword::t keyword::t) + (spec: 0 interface-instance::t interface-instance::t) + (spec: 0 immediate-instance-of? immediate-instance-of?) + (spec: 0 udp-port? udp-port?) + (spec: 0 plist->hash-table-symbolic plist->hash-table-symbolic) + (spec: 0 make-class-predicate make-class-predicate) (spec: 0 s32vector::t s32vector::t) - (spec: 0 display* display*) + (spec: 0 slot-set! slot-set!) + (spec: 0 bytes->string bytes->string) + (spec: 0 checked-bound-method-ref checked-bound-method-ref) + (spec: 0 constructor-init! constructor-init!) + (spec: 0 make-hash-table-eq make-hash-table-eq) + (spec: 0 spawn/name spawn/name) + (spec: 0 class-type-slot-list class-type-slot-list) + (spec: 0 object? object?) + (spec: 0 hash-merge! hash-merge!) + (spec: 0 pget pget) + (spec: 0 hvector::t hvector::t) + (spec: 0 direct-method-ref direct-method-ref) + (spec: 0 dssl-optional-object? dssl-optional-object?) + (spec: 0 interface-instance? interface-instance?) + (spec: 0 fx>=0? fx>=0?) + (spec: 0 raise-unbound-key-error raise-unbound-key-error) + (spec: 0 promise::t promise::t) + (spec: 0 vector-port::t vector-port::t) + (spec: 0 s64vector::t s64vector::t) + (spec: 0 file-info::t file-info::t) + (spec: 0 unbound-key-error? unbound-key-error?) + (spec: 0 HashTableLock::interface HashTableLock::interface) + (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) + (spec: 0 character-port::t character-port::t) + (spec: 0 display-exception display-exception) + (spec: 0 make-hash-table-eqv make-hash-table-eqv) + (spec: 0 make-syntax-error make-syntax-error) + (spec: 0 hash-put! hash-put!) + (spec: 0 &class-type-precedence-list &class-type-precedence-list) + (spec: 0 hvector? hvector?) (spec: 0 substruct? substruct?) - (spec: 0 with-exception-stack-trace with-exception-stack-trace) + (spec: 0 event-queue-port? event-queue-port?) (spec: 0 new-instance new-instance) - (spec: 0 make-syntax-error make-syntax-error) + (spec: 0 device-port::t device-port::t) + (spec: 0 try-cast try-cast) + (spec: 0 with-dynamic-lock with-dynamic-lock) + (spec: 0 fx<=0? fx<=0?) + (spec: 0 immediate? immediate?) + (spec: 0 values-ref values-ref) (spec: 0 u8vector::t u8vector::t) + (spec: 0 false::t false::t) + (spec: 0 foldl foldl) (spec: 0 plist->hash-table-immediate plist->hash-table-immediate) - (spec: 0 values-ref values-ref) - (spec: 0 object? object?) - (spec: 0 hash-keys hash-keys) - (spec: 0 try-cast try-cast) - (spec: 0 gerbil-home gerbil-home) - (spec: 0 call-next-method call-next-method) - (spec: 0 AST? AST?) - (spec: 0 interned-symbol? interned-symbol?) - (spec: 0 build-manifest-string build-manifest-string) - (spec: 0 spawn/name spawn/name) - (spec: 0 make-hash-table-eq make-hash-table-eq) - (spec: 0 s64vector::t s64vector::t) - (spec: 0 class-type-constructor class-type-constructor) - (spec: 0 class-type-methods class-type-methods) - (spec: 0 display-as-string display-as-string) - (spec: 0 &class-type-properties &class-type-properties) - (spec: 0 symbol->keyword symbol->keyword) - (spec: 0 slot-set! slot-set!) - (spec: 0 next-method next-method) + (spec: 0 class-instance? class-instance?) + (spec: 0 list->hash-table-eqv list->hash-table-eqv) + (spec: 0 remove1 remove1) + (spec: 0 false false) (spec: 0 string-split string-split) - (spec: 0 dump-stack-trace? dump-stack-trace?) - (spec: 0 syntax-error? syntax-error?) - (spec: 0 udp-port::t udp-port::t) - (spec: 0 assget assget) - (spec: 0 values::t values::t) - (spec: 0 foreign::t foreign::t) - (spec: 0 writenv? writenv?) - (spec: 0 true? true?) - (spec: 0 pair::t pair::t) + (spec: 0 character-port? character-port?) + (spec: 0 gerbil-version-string gerbil-version-string) + (spec: 0 make-object make-object) + (spec: 0 byte-port::t byte-port::t) + (spec: 0 string->bytes string->bytes) + (spec: 0 class-type-seal! class-type-seal!) + (spec: 0 table::t table::t) + (spec: 0 time::t time::t) + (spec: 0 hash-map hash-map) + (spec: 0 memf memf) + (spec: 0 symbol->keyword symbol->keyword) + (spec: 0 device-port? device-port?) + (spec: 0 hash->list hash->list) + (spec: 0 dssl-key-object? dssl-key-object?) (spec: 0 with-exception-catcher with-exception-catcher) - (spec: 0 plist->hash-table-string plist->hash-table-string) - (spec: 0 bignum::t bignum::t) - (spec: 0 box::t box::t) - (spec: 0 with-catch with-catch) - (spec: 0 writeenv::t writeenv::t) - (spec: 0 interface-instance? interface-instance?) - (spec: 0 make-interface-descriptor make-interface-descriptor) - (spec: 0 remq remq) - (spec: 0 raise-unbound-key-error raise-unbound-key-error) - (spec: 0 HashTableLock::t HashTableLock::t) - (spec: 0 make-class-type make-class-type) - (spec: 0 slot-ref slot-ref) - (spec: 0 directory-port? directory-port?) - (spec: 0 hash-length hash-length) - (spec: 0 dump-stack-trace! dump-stack-trace!) - (spec: 0 string-rindex string-rindex) - (spec: 0 continuation::t continuation::t) - (spec: 0 immediate-instance-of? immediate-instance-of?) - (spec: 0 filter-map filter-map) - (spec: 0 values->list values->list) - (spec: 0 u8vector-port::t u8vector-port::t) - (spec: 0 object-type object-type) - (spec: 0 processor::t processor::t) - (spec: 0 plist->hash-table-eq plist->hash-table-eq) - (spec: 0 byte-port? byte-port?) - (spec: 0 remove1 remove1) - (spec: 0 hash-get hash-get) - (spec: 0 thread-local-get thread-local-get) - (spec: 0 with-dynamic-lock with-dynamic-lock) - (spec: 0 class-type-struct? class-type-struct?) - (spec: 0 make-AST make-AST) - (spec: 0 string->bytes string->bytes) - (spec: 0 make-keyword make-keyword) - (spec: 0 class-type-metaclass? class-type-metaclass?) - (spec: 0 &class-type-precedence-list &class-type-precedence-list) + (spec: 0 fx=0? fx=0?) + (spec: 0 bound-method-ref bound-method-ref) + (spec: 0 values::t values::t) (spec: 0 s16vector::t s16vector::t) - (spec: 0 &interface-instance-object &interface-instance-object) - (spec: 0 u8vector-port? u8vector-port?) - (spec: 0 promise::t promise::t) - (spec: 0 values-count values-count) - (spec: 0 object::t object::t) - (spec: 0 s8vector-copy s8vector-copy) - (spec: 0 char-set-xor char-set-xor) - (spec: 0 all-bits-set? all-bits-set?) - (spec: 0 char-set= char-set=) - (spec: 0 file-info-group file-info-group) - (spec: 0 mutex-state mutex-state) - (spec: 0 random-u8vector random-u8vector) - (spec: 0 create-link create-link) - (spec: 0 tty-history tty-history) - (spec: 0 file-mode file-mode) + (spec: 0 udp-port::t udp-port::t) (spec: 0 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 0 network-info-name network-info-name) + make-class-slot-unchecked-accessor + make-class-slot-unchecked-accessor) + (spec: 0 class-of class-of) + (spec: 0 interface-descriptor-methods interface-descriptor-methods) + (spec: 0 class-type-id class-type-id) (spec: 0 - current-user-interrupt-handler - current-user-interrupt-handler) - (spec: 0 u8vector-ref u8vector-ref) - (spec: 0 f64vector-concatenate f64vector-concatenate) - (spec: 0 udp-source-socket-info udp-source-socket-info) + make-class-slot-unchecked-mutator + make-class-slot-unchecked-mutator) + (spec: 0 c4-linearize c4-linearize) + (spec: 0 list->hash-table list->hash-table) + (spec: 0 string::t string::t) + (spec: 0 list->hash-table-immediate list->hash-table-immediate) + (spec: 0 with-exception-stack-trace with-exception-stack-trace) + (spec: 0 special::t special::t) + (spec: 0 class-type-slot-vector class-type-slot-vector) + (spec: 0 hash-merge hash-merge) + (spec: 0 &class-type-name &class-type-name) + (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) + (spec: 0 syntax-error? syntax-error?) + (spec: 0 AST-source AST-source) + (spec: 0 interned-symbol? interned-symbol?) + (spec: 0 bignum::t bignum::t) + (spec: 0 remv remv) + (spec: 0 integer::t integer::t) + (spec: 0 pgetv pgetv) + (spec: 0 box::t box::t) + (spec: 0 port::t port::t) + (spec: 0 seal-class! seal-class!) + (spec: 0 f32vector-swap! f32vector-swap!) + (spec: 0 bit-count bit-count) + (spec: 0 mutex-specific mutex-specific) (spec: 0 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 0 subs8vector subs8vector) - (spec: 0 u64vector u64vector) - (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 0 bit-field-any? bit-field-any?) - (spec: 0 subu8vector-fill! subu8vector-fill!) - (spec: 0 module-not-found-exception? module-not-found-exception?) - (spec: 0 continuation? continuation?) - (spec: 0 with-exception-handler with-exception-handler) - (spec: 0 flfinite? flfinite?) - (spec: 0 bitwise-eqv bitwise-eqv) + wrong-number-of-values-exception-code + wrong-number-of-values-exception-code) + (spec: 0 f64vector-swap! f64vector-swap!) + (spec: 0 bitwise-andc1 bitwise-andc1) + (spec: 0 host-info host-info) + (spec: 0 make-thread make-thread) + (spec: 0 delete! delete!) + (spec: 0 call-with-output-string call-with-output-string) + (spec: 0 flcosh flcosh) + (spec: 0 setenv setenv) + (spec: 0 subs64vector-fill! subs64vector-fill!) + (spec: 0 flmin flmin) + (spec: 0 readtable-max-write-level readtable-max-write-level) (spec: 0 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) - (spec: 0 tcp-server-socket-info tcp-server-socket-info) - (spec: 0 with-input-from-u8vector with-input-from-u8vector) - (spec: 0 repl-error-port repl-error-port) - (spec: 0 call-with-output-vector call-with-output-vector) - (spec: 0 open-directory open-directory) - (spec: 0 display-exception-in-context display-exception-in-context) - (spec: 0 fixnum->flonum fixnum->flonum) - (spec: 0 input-port-readtable input-port-readtable) - (spec: 0 system-stamp system-stamp) + nonprocedure-operator-exception? + nonprocedure-operator-exception?) + (spec: 0 table-merge! table-merge!) (spec: 0 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 0 readtable-max-write-length readtable-max-write-length) - (spec: 0 flabs flabs) + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) + (spec: 0 filter! filter!) (spec: 0 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) - (spec: 0 table-ref table-ref) + default-user-interrupt-handler + default-user-interrupt-handler) + (spec: 0 fl/ fl/) + (spec: 0 initial-current-directory initial-current-directory) + (spec: 0 network-info network-info) + (spec: 0 udp-read-subu8vector udp-read-subu8vector) + (spec: 0 foreign? foreign?) + (spec: 0 char-set-adjoin! char-set-adjoin!) + (spec: 0 input-port-line input-port-line) + (spec: + 0 + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) + (spec: 0 read-subu8vector read-subu8vector) + (spec: + 0 + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) + (spec: 0 char-set-filter char-set-filter) + (spec: 0 fxand fxand) + (spec: 0 thread-quantum-set! thread-quantum-set!) + (spec: 0 flsinh flsinh) (spec: 0 output-port-timeout-set! output-port-timeout-set!) - (spec: 0 thread-state-running? thread-state-running?) - (spec: 0 char-set-complement! char-set-complement!) - (spec: 0 list->u16vector list->u16vector) + (spec: + 0 + thread-state-normally-terminated-result + thread-state-normally-terminated-result) + (spec: 0 foreign-address foreign-address) + (spec: 0 repl-input-port repl-input-port) + (spec: 0 join-timeout-exception? join-timeout-exception?) + (spec: 0 apropos apropos) + (spec: 0 open-output-u8vector open-output-u8vector) + (spec: 0 thread-group-resume! thread-group-resume!) + (spec: 0 executable-path executable-path) + (spec: 0 s8vector-copy s8vector-copy) + (spec: 0 string-contains-ci string-contains-ci) + (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) + (spec: 0 with-input-from-u8vector with-input-from-u8vector) (spec: 0 error-exception-message error-exception-message) - (spec: 0 fxabs fxabs) + (spec: 0 fxsquare fxsquare) + (spec: 0 make-f32vector make-f32vector) + (spec: 0 string-prefix-ci? string-prefix-ci?) + (spec: 0 address-infos address-infos) + (spec: 0 char-set= char-set=) + (spec: 0 gc-report-set! gc-report-set!) + (spec: 0 list->s64vector list->s64vector) (spec: 0 s32vector-fill! s32vector-fill!) - (spec: 0 time->seconds time->seconds) - (spec: 0 char-set-for-each char-set-for-each) - (spec: 0 last last) - (spec: 0 fxmin fxmin) - (spec: 0 open-output-u8vector open-output-u8vector) - (spec: 0 socket-info-family socket-info-family) - (spec: 0 thread-group-terminate! thread-group-terminate!) + (spec: 0 started-thread-exception? started-thread-exception?) + (spec: 0 s64vector-copy! s64vector-copy!) + (spec: 0 list-sort! list-sort!) + (spec: 0 path-volume path-volume) + (spec: 0 top top) (spec: 0 vector-set vector-set) - (spec: 0 fltanh fltanh) - (spec: 0 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 0 thread-send thread-send) - (spec: 0 executable-path executable-path) - (spec: 0 u16vector->list u16vector->list) - (spec: 0 make-thread-group make-thread-group) + (spec: 0 create-temporary-directory create-temporary-directory) + (spec: 0 file-info? file-info?) + (spec: + 0 + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 0 random-f64vector random-f64vector) + (spec: 0 subu64vector-move! subu64vector-move!) (spec: 0 f32vector-append f32vector-append) - (spec: 0 group-info-members group-info-members) - (spec: 0 processor-id processor-id) - (spec: 0 service-info-name service-info-name) - (spec: 0 u32vector u32vector) - (spec: 0 list= list=) - (spec: 0 host-info-addresses host-info-addresses) - (spec: 0 path-volume path-volume) - (spec: 0 s64vector-copy! s64vector-copy!) - (spec: 0 string->uninterned-symbol string->uninterned-symbol) + (spec: 0 u64vector? u64vector?) (spec: 0 - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-procedure) - (spec: 0 fxwrapabs fxwrapabs) - (spec: 0 s8vector-copy! s8vector-copy!) - (spec: 0 with-input-from-vector with-input-from-vector) - (spec: 0 char-set? char-set?) - (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 0 file-info-inode file-info-inode) - (spec: 0 mutex-unlock! mutex-unlock!) - (spec: 0 file-number-of-links file-number-of-links) - (spec: 0 create-symbolic-link create-symbolic-link) + wrong-number-of-values-exception-rte + wrong-number-of-values-exception-rte) + (spec: 0 range-exception-arg-id range-exception-arg-id) + (spec: 0 u8vector-length u8vector-length) + (spec: 0 bits->list bits->list) + (spec: 0 f64vector-append f64vector-append) + (spec: 0 compilation-target compilation-target) + (spec: 0 host-info-addresses host-info-addresses) + (spec: 0 make-s8vector make-s8vector) + (spec: 0 fl>= fl>=) + (spec: 0 call-with-input-vector call-with-input-vector) + (spec: 0 configure-command-string configure-command-string) + (spec: 0 service-info-name service-info-name) (spec: 0 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 0 network-info-number network-info-number) - (spec: 0 u8vector-set u8vector-set) - (spec: 0 f64vector-copy f64vector-copy) - (spec: 0 bit-field-clear bit-field-clear) + sfun-conversion-exception-code + sfun-conversion-exception-code) + (spec: 0 subs64vector-move! subs64vector-move!) + (spec: 0 flexpt flexpt) + (spec: 0 u16vector-swap! u16vector-swap!) + (spec: 0 delete-directory delete-directory) (spec: 0 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 0 subs8vector-fill! subs8vector-fill!) - (spec: 0 u32vector-append u32vector-append) - (spec: 0 fifth fifth) - (spec: 0 bitwise-fold bitwise-fold) - (spec: 0 sinh sinh) - (spec: 0 raise raise) - (spec: 0 subu8vector-move! subu8vector-move!) - (spec: 0 u64vector->list u64vector->list) - (spec: 0 flfloor flfloor) + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) + (spec: 0 readtable-max-write-level-set readtable-max-write-level-set) + (spec: 0 file-last-modification-time file-last-modification-time) + (spec: 0 table-ref table-ref) + (spec: 0 null-list? null-list?) + (spec: 0 u32vector-shrink! u32vector-shrink!) + (spec: 0 uncaught-exception? uncaught-exception?) + (spec: 0 read-all read-all) + (spec: 0 udp-local-socket-info udp-local-socket-info) + (spec: 0 char-set-any char-set-any) + (spec: 0 defer-user-interrupts defer-user-interrupts) + (spec: 0 thread-specific thread-specific) (spec: 0 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) + unbound-key-exception-procedure + unbound-key-exception-procedure) + (spec: 0 char-set-filter! char-set-filter!) (spec: 0 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 0 flonum? flonum?) - (spec: 0 open-dummy open-dummy) - (spec: 0 repl-highlight-source-level repl-highlight-source-level) - (spec: 0 third third) - (spec: 0 input-port-readtable-set! input-port-readtable-set!) + length-mismatch-exception-arguments + length-mismatch-exception-arguments) + (spec: 0 fourth fourth) (spec: 0 - noncontinuable-exception-reason - noncontinuable-exception-reason) - (spec: 0 read-substring read-substring) - (spec: 0 system-type system-type) - (spec: 0 flacos flacos) - (spec: 0 default-random-source default-random-source) - (spec: 0 table-search table-search) - (spec: 0 udp-write-subu8vector udp-write-subu8vector) + rpc-remote-error-exception-message + rpc-remote-error-exception-message) + (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) + (spec: 0 flodd? flodd?) (spec: 0 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 0 output-port-width output-port-width) - (spec: 0 fxand fxand) + thread-state-normally-terminated? + thread-state-normally-terminated?) (spec: 0 s16vector-ref s16vector-ref) - (spec: 0 vector-cumulate vector-cumulate) - (spec: 0 char-set-contains? char-set-contains?) - (spec: 0 error-exception-parameters error-exception-parameters) - (spec: 0 fxmodulo fxmodulo) - (spec: 0 list->u32vector list->u32vector) - (spec: 0 s32vector-length s32vector-length) - (spec: 0 char-set-hash char-set-hash) - (spec: 0 open-output-vector open-output-vector) + (spec: 0 vector-cas! vector-cas!) (spec: 0 fltruncate fltruncate) - (spec: 0 reverse! reverse!) + (spec: 0 display-procedure-environment display-procedure-environment) + (spec: 0 repl-output-port repl-output-port) + (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) (spec: 0 socket-info-port-number socket-info-port-number) - (spec: - 0 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 0 os-exception-arguments os-exception-arguments) - (spec: 0 foreign? foreign?) - (spec: 0 thread-group? thread-group?) - (spec: - 0 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) - (spec: 0 thread-sleep! thread-sleep!) - (spec: 0 time? time?) + (spec: 0 thread-group-specific thread-group-specific) + (spec: 0 reverse! reverse!) (spec: 0 group-info-name group-info-name) - (spec: 0 make-mutex make-mutex) + (spec: 0 s8vector-copy! s8vector-copy!) + (spec: 0 tty-history-set! tty-history-set!) + (spec: 0 fxmodulo fxmodulo) + (spec: 0 with-input-from-port with-input-from-port) + (spec: 0 make-f64vector make-f64vector) + (spec: 0 pretty-print pretty-print) (spec: 0 string-set string-set) - (spec: 0 u16vector-append u16vector-append) - (spec: 0 processor? processor?) - (spec: 0 f32vector-concatenate f32vector-concatenate) - (spec: 0 host-info-aliases host-info-aliases) - (spec: 0 make-tls-context make-tls-context) - (spec: 0 service-info-port-number service-info-port-number) - (spec: 0 command-name command-name) - (spec: 0 u32vector->list u32vector->list) (spec: 0 fxwraparithmetic-shift fxwraparithmetic-shift) + (spec: 0 list->s8vector list->s8vector) + (spec: 0 error-exception-parameters error-exception-parameters) + (spec: 0 s32vector-length s32vector-length) + (spec: 0 bitwise-unfold bitwise-unfold) + (spec: 0 list-tabulate list-tabulate) + (spec: 0 path-strip-extension path-strip-extension) (spec: 0 s64vector-fill! s64vector-fill!) + (spec: 0 file-info-device file-info-device) + (spec: 0 copy-bit copy-bit) + (spec: 0 random-integer random-integer) + (spec: 0 subu8vector subu8vector) + (spec: 0 u64vector-set! u64vector-set!) (spec: 0 wrong-number-of-arguments-exception? wrong-number-of-arguments-exception?) - (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 0 tty-mode-set! tty-mode-set!) - (spec: 0 with-input-from-process with-input-from-process) - (spec: 0 mutex-specific mutex-specific) - (spec: 0 random-source-state-set! random-source-state-set!) - (spec: 0 create-directory create-directory) - (spec: 0 file-info-creation-time file-info-creation-time) - (spec: 0 network-info network-info) - (spec: 0 udp-read-subu8vector udp-read-subu8vector) - (spec: 0 current-thread current-thread) - (spec: 0 initial-current-directory initial-current-directory) - (spec: 0 file-last-change-time file-last-change-time) - (spec: - 0 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 0 subs64vector-fill! subs64vector-fill!) - (spec: 0 bit-count bit-count) - (spec: - 0 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 0 f64vector->list f64vector->list) + (spec: 0 create-link create-link) + (spec: 0 file-info-group file-info-group) + (spec: 0 mutex-lock! mutex-lock!) + (spec: 0 random-u8vector random-u8vector) + (spec: 0 bits->vector bits->vector) + (spec: 0 subf64vector subf64vector) + (spec: 0 command-name command-name) + (spec: 0 f32vector-concatenate f32vector-concatenate) + (spec: 0 processor? processor?) + (spec: 0 service-info-port-number service-info-port-number) + (spec: 0 substring-fill! substring-fill!) + (spec: 0 u16vector? u16vector?) + (spec: 0 f64vector-concatenate f64vector-concatenate) (spec: 0 - module-not-found-exception-arguments - module-not-found-exception-arguments) - (spec: 0 r7rs-raise r7rs-raise) - (spec: 0 subu64vector-move! subu64vector-move!) - (spec: 0 bitwise-andc1 bitwise-andc1) - (spec: 0 continuation-graft continuation-graft) - (spec: 0 u64vector? u64vector?) - (spec: 0 call-with-output-string call-with-output-string) - (spec: 0 flexpm1 flexpm1) - (spec: 0 join-timeout-exception? join-timeout-exception?) + sfun-conversion-exception-message + sfun-conversion-exception-message) + (spec: 0 take take) + (spec: 0 u32vector-swap! u32vector-swap!) (spec: 0 - display-continuation-environment - display-continuation-environment) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) + (spec: 0 flabs flabs) + (spec: 0 readtable-max-write-length readtable-max-write-length) + (spec: 0 tenth tenth) + (spec: 0 flfinite? flfinite?) (spec: 0 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) - (spec: 0 read-file-u8vector read-file-u8vector) + current-user-interrupt-handler + current-user-interrupt-handler) + (spec: 0 file-mode file-mode) + (spec: 0 system-version-string system-version-string) + (spec: 0 thread-specific-set! thread-specific-set!) + (spec: 0 fixnum->flonum fixnum->flonum) + (spec: 0 unbound-key-exception? unbound-key-exception?) + (spec: 0 char-set-count char-set-count) + (spec: 0 os-exception-message os-exception-message) + (spec: 0 foreign-tags foreign-tags) (spec: 0 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 0 input-port-line input-port-line) - (spec: 0 table-merge! table-merge!) - (spec: 0 first-set-bit first-set-bit) + length-mismatch-exception-procedure + length-mismatch-exception-procedure) (spec: 0 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 0 fl= fl=) + rpc-remote-error-exception-procedure + rpc-remote-error-exception-procedure) + (spec: 0 output-port-readtable output-port-readtable) + (spec: 0 fxandc1 fxandc1) (spec: 0 s16vector-fill! s16vector-fill!) - (spec: - 0 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) + (spec: 0 thread-base-priority thread-base-priority) (spec: 0 vector-concatenate vector-concatenate) - (spec: 0 fx> fx>) - (spec: 0 char-set-any char-set-any) - (spec: 0 s32vector-copy s32vector-copy) - (spec: 0 output-port-readtable output-port-readtable) - (spec: 0 error error) - (spec: 0 char-set-filter! char-set-filter!) - (spec: 0 fxlength fxlength) - (spec: 0 thread-group-specific-set! thread-group-specific-set!) - (spec: 0 flsquare flsquare) + (spec: 0 keyword->string keyword->string) + (spec: 0 display-exception-in-context display-exception-in-context) + (spec: 0 repl-error-port repl-error-port) + (spec: 0 open-output-process open-output-process) + (spec: 0 tty-type-set! tty-type-set!) + (spec: 0 socket-info? socket-info?) (spec: 0 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 0 open-output-process open-output-process) - (spec: 0 thread-receive thread-receive) - (spec: 0 foreign-released? foreign-released?) - (spec: 0 scheduler-exception? scheduler-exception?) - (spec: 0 string-prefix-length-ci string-prefix-length-ci) - (spec: 0 group-info group-info) - (spec: 0 service-info service-info) - (spec: 0 make-table make-table) - (spec: 0 f32vector f32vector) - (spec: 0 s64vector-concatenate s64vector-concatenate) - (spec: 0 fxwrap+ fxwrap+) - (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) + (spec: 0 gensym gensym) (spec: 0 s8vector-append s8vector-append) + (spec: 0 u16vector-concatenate u16vector-concatenate) + (spec: 0 with-input-from-process with-input-from-process) + (spec: 0 group-info? group-info?) + (spec: 0 scheduler-exception? scheduler-exception?) + (spec: 0 list->u64vector list->u64vector) + (spec: 0 error error) + (spec: 0 fxnand fxnand) + (spec: 0 s32vector-copy s32vector-copy) + (spec: 0 touch touch) + (spec: 0 bitwise-xor bitwise-xor) (spec: 0 path-strip-trailing-directory-separator path-strip-trailing-directory-separator) - (spec: 0 s8vector-concatenate s8vector-concatenate) - (spec: - 0 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 0 char-set<= char-set<=) - (spec: 0 mutex-specific-set! mutex-specific-set!) - (spec: 0 file-info-device file-info-device) - (spec: 0 random-source? random-source?) - (spec: 0 with-input-from-string with-input-from-string) - (spec: 0 create-fifo create-fifo) - (spec: 0 file-last-modification-time file-last-modification-time) - (spec: 0 network-info-aliases network-info-aliases) - (spec: 0 udp-read-u8vector udp-read-u8vector) - (spec: 0 current-time current-time) - (spec: 0 f64vector-append f64vector-append) - (spec: - 0 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 0 subs64vector-move! subs64vector-move!) - (spec: 0 bit-field bit-field) - (spec: 0 condition-variable? condition-variable?) - (spec: - 0 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 0 subu8vector subu8vector) - (spec: 0 bitwise-andc2 bitwise-andc2) - (spec: 0 continuation-return continuation-return) - (spec: 0 flexpt flexpt) - (spec: 0 real-time real-time) - (spec: 0 call-with-output-u8vector call-with-output-u8vector) - (spec: 0 flodd? flodd?) - (spec: 0 display-exception display-exception) - (spec: - 0 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) + (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 0 s64vector-concatenate s64vector-concatenate) + (spec: 0 subvector-move! subvector-move!) + (spec: 0 continuation? continuation?) + (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 0 u64vector-shrink! u64vector-shrink!) + (spec: 0 atanh atanh) + (spec: 0 subf64vector-fill! subf64vector-fill!) + (spec: 0 create-symbolic-link create-symbolic-link) + (spec: 0 file-info-attributes file-info-attributes) + (spec: 0 mutex-unlock! mutex-unlock!) + (spec: 0 substring-move! substring-move!) + (spec: 0 bit-field-clear bit-field-clear) + (spec: 0 make-u16vector make-u16vector) + (spec: 0 f32vector f32vector) + (spec: 0 service-info service-info) + (spec: 0 u32vector-append u32vector-append) + (spec: 0 take! take!) + (spec: 0 u64vector->list u64vector->list) + (spec: 0 f64vector f64vector) + (spec: 0 delete delete) + (spec: 0 fl= fl=) (spec: 0 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) + readtable-max-write-length-set + readtable-max-write-length-set) + (spec: 0 flexp flexp) (spec: 0 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 0 fl>= fl>=) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) + (spec: 0 iota iota) + (spec: 0 udp-write-subu8vector udp-write-subu8vector) + (spec: 0 network-info-number network-info-number) + (spec: 0 file-last-access-time file-last-access-time) + (spec: 0 thread-send thread-send) (spec: 0 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 0 output-port-readtable-set! output-port-readtable-set!) - (spec: 0 fl> fl>) - (spec: 0 s16vector-length s16vector-length) - (spec: 0 fx>= fx>=) - (spec: 0 char-set-complement char-set-complement) - (spec: 0 list->table list->table) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 0 default-random-source default-random-source) + (spec: 0 first first) + (spec: 0 read-substring read-substring) + (spec: 0 thread-priority-set! thread-priority-set!) + (spec: 0 thread-state-running? thread-state-running?) + (spec: 0 s16vector-shrink! s16vector-shrink!) + (spec: 0 vector-fold vector-fold) + (spec: 0 os-exception-procedure os-exception-procedure) + (spec: 0 thread-base-priority-set! thread-base-priority-set!) (spec: 0 end-of-char-set? end-of-char-set?) - (spec: 0 s32vector-copy! s32vector-copy!) + (spec: 0 fx>= fx>=) + (spec: 0 s16vector-length s16vector-length) + (spec: 0 thread-init! thread-init!) (spec: 0 - thread-state-running-processor - thread-state-running-processor) - (spec: 0 char-set-fold char-set-fold) - (spec: 0 fxmax fxmax) - (spec: 0 socket-info-address socket-info-address) - (spec: 0 thread-group-suspend! thread-group-suspend!) + cfun-conversion-exception-message + cfun-conversion-exception-message) + (spec: 0 open-dummy open-dummy) + (spec: 0 flnumerator flnumerator) + (spec: 0 repl-highlight-source-level repl-highlight-source-level) + (spec: 0 user-info user-info) + (spec: 0 tty? tty?) (spec: 0 fltan fltan) - (spec: 0 length+ length+) - (spec: 0 thread-resume! thread-resume!) + (spec: 0 open-process open-process) + (spec: 0 socket-info-address socket-info-address) + (spec: 0 u16vector-copy u16vector-copy) + (spec: 0 circular-list? circular-list?) + (spec: 0 ->char-set ->char-set) + (spec: 0 with-output-to-port with-output-to-port) + (spec: 0 s8vector-concatenate s8vector-concatenate) (spec: 0 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 0 foreign-tags foreign-tags) - (spec: 0 string-prefix? string-prefix?) - (spec: 0 u16vector u16vector) + mailbox-receive-timeout-exception-procedure + mailbox-receive-timeout-exception-procedure) + (spec: 0 char-set-intersection! char-set-intersection!) + (spec: 0 timeout->time timeout->time) + (spec: 0 print print) (spec: 0 group-info-gid group-info-gid) - (spec: 0 make-thread make-thread) - (spec: 0 ->char-set ->char-set) - (spec: 0 service-info-aliases service-info-aliases) - (spec: 0 command-args command-args) - (spec: 0 host-info host-info) - (spec: 0 f32vector->list f32vector->list) - (spec: 0 path-strip-volume path-strip-volume) - (spec: 0 s64vector-copy s64vector-copy) + (spec: 0 string-prefix? string-prefix?) + (spec: 0 trace trace) + (spec: 0 vector-swap! vector-swap!) + (spec: 0 partition partition) + (spec: 0 fxmax fxmax) + (spec: 0 s32vector-copy! s32vector-copy!) + (spec: 0 list->u8vector list->u8vector) + (spec: 0 bitwise-fold bitwise-fold) + (spec: 0 write-file-string write-file-string) (spec: 0 fxwrap- fxwrap-) - (spec: 0 abort abort) + (spec: 0 s64vector-copy s64vector-copy) (spec: 0 string->uninterned-keyword string->uninterned-keyword) + (spec: 0 raise raise) + (spec: 0 u8vector-set u8vector-set) + (spec: 0 subf32vector-fill! subf32vector-fill!) + (spec: 0 u32vector-concatenate u32vector-concatenate) + (spec: 0 file-info-creation-time file-info-creation-time) + (spec: 0 mutex? mutex?) + (spec: 0 subs8vector-move! subs8vector-move!) + (spec: 0 u64vector-append u64vector-append) + (spec: 0 concatenate! concatenate!) + (spec: 0 f32vector->list f32vector->list) + (spec: 0 host-info? host-info?) + (spec: 0 make-u32vector make-u32vector) + (spec: 0 service-info-aliases service-info-aliases) + (spec: 0 table? table?) + (spec: 0 f64vector->list f64vector->list) + (spec: 0 bit-field-every? bit-field-every?) + (spec: 0 readtable-start-syntax readtable-start-syntax) (spec: 0 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) - (spec: - 0 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 0 s64vector-ref s64vector-ref) - (spec: - 0 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 0 range-exception-arguments range-exception-arguments) - (spec: - 0 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 0 subvector-move! subvector-move!) - (spec: 0 u8vector->object u8vector->object) - (spec: 0 file-size file-size) - (spec: 0 u8vector-swap! u8vector-swap!) - (spec: 0 f64vector-length f64vector-length) - (spec: 0 bit-field-replace-same bit-field-replace-same) - (spec: 0 set-box! set-box!) - (spec: 0 subf64vector subf64vector) - (spec: 0 copy-bit-field copy-bit-field) - (spec: 0 file-device file-device) - (spec: 0 bitwise-ior bitwise-ior) - (spec: 0 module-whitelist-add! module-whitelist-add!) - (spec: 0 random-real random-real) - (spec: 0 substring-fill! substring-fill!) - (spec: 0 u32vector-copy! u32vector-copy!) - (spec: 0 flinfinite? flinfinite?) - (spec: 0 u64vector-copy u64vector-copy) - (spec: 0 take take) + sfun-conversion-exception-arguments + sfun-conversion-exception-arguments) + (spec: 0 tcp-service-register! tcp-service-register!) + (spec: 0 fl> fl>) + (spec: 0 uninterned-keyword? uninterned-keyword?) + (spec: 0 udp-write-u8vector udp-write-u8vector) + (spec: 0 directory-files directory-files) + (spec: 0 flexpm1 flexpm1) (spec: 0 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) + invalid-utf8-encoding-exception-procedure + invalid-utf8-encoding-exception-procedure) (spec: 0 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 0 keyword->string keyword->string) - (spec: 0 tenth tenth) + number-of-arguments-limit-exception? + number-of-arguments-limit-exception?) + (spec: 0 system-type-string system-type-string) + (spec: 0 file-last-change-time file-last-change-time) (spec: 0 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) - (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) + (spec: 0 readtable-case-conversion? readtable-case-conversion?) + (spec: 0 initialized-thread-exception? initialized-thread-exception?) + (spec: 0 network-info? network-info?) + (spec: 0 thread-sleep! thread-sleep!) + (spec: 0 first-set-bit first-set-bit) + (spec: 0 input-port-timeout-set! input-port-timeout-set!) + (spec: 0 noncontinuable-exception? noncontinuable-exception?) + (spec: 0 s16vector-swap! s16vector-swap!) + (spec: 0 vector-cumulate vector-cumulate) (spec: 0 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) - (spec: 0 readtable-max-write-level-set readtable-max-write-level-set) + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) + (spec: 0 os-exception-arguments os-exception-arguments) + (spec: 0 fxabs fxabs) + (spec: 0 char-set-cursor char-set-cursor) + (spec: 0 replace-bit-field replace-bit-field) + (spec: 0 thread-group-terminate! thread-group-terminate!) + (spec: 0 user-info-gid user-info-gid) (spec: 0 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) - (spec: 0 char-set-cursor char-set-cursor) - (spec: 0 fxarithmetic-shift fxarithmetic-shift) - (spec: 0 stack-overflow-exception? stack-overflow-exception?) - (spec: 0 thread-start! thread-start!) - (spec: 0 char-set-map char-set-map) - (spec: 0 partition! partition!) - (spec: 0 fxnor fxnor) - (spec: 0 s16vector-shrink! s16vector-shrink!) - (spec: 0 thread-state-waiting-for thread-state-waiting-for) + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) + (spec: 0 open-event-queue open-event-queue) + (spec: 0 with-output-to-process with-output-to-process) + (spec: 0 fltanh fltanh) (spec: 0 cfun-conversion-exception-procedure cfun-conversion-exception-procedure) - (spec: 0 vector-fold vector-fold) + (spec: 0 last last) (spec: 0 open-string open-string) - (spec: 0 fold fold) - (spec: 0 replace-bit-field replace-bit-field) - (spec: 0 length-mismatch-exception? length-mismatch-exception?) - (spec: 0 os-exception-procedure os-exception-procedure) - (spec: 0 thread-interrupt! thread-interrupt!) - (spec: 0 user-info-gid user-info-gid) - (spec: 0 clear-bit-field clear-bit-field) - (spec: 0 println println) - (spec: 0 with-output-to-process with-output-to-process) - (spec: 0 string-suffix-ci? string-suffix-ci?) - (spec: 0 compilation-target compilation-target) - (spec: 0 make-u64vector make-u64vector) - (spec: 0 f32vector-fill! f32vector-fill!) - (spec: 0 host-name host-name) + (spec: 0 socket-info-family socket-info-family) + (spec: 0 u16vector->list u16vector->list) + (spec: 0 all-bits-set? all-bits-set?) (spec: 0 script-file script-file) - (spec: 0 acosh acosh) - (spec: 0 subf32vector-move! subf32vector-move!) - (spec: 0 u16vector-copy! u16vector-copy!) - (spec: 0 fxwrapquotient fxwrapquotient) - (spec: 0 s32vector-set s32vector-set) + (spec: + 0 + port-io-exception-handler-set! + port-io-exception-handler-set!) + (spec: 0 time->seconds time->seconds) (spec: 0 vector-unfold vector-unfold) - (spec: 0 any any) + (spec: 0 group-info-members group-info-members) + (spec: 0 clear-bit-field clear-bit-field) + (spec: 0 println println) + (spec: 0 s32vector-set s32vector-set) (spec: 0 write-file-string-list write-file-string-list) - (spec: 0 any-bit-set? any-bit-set?) - (spec: 0 main main) - (spec: 0 s64vector-set s64vector-set) - (spec: 0 file-info-mode file-info-mode) - (spec: 0 current-directory current-directory) - (spec: 0 module-whitelist-reset! module-whitelist-reset!) - (spec: 0 range-exception-procedure range-exception-procedure) - (spec: 0 u8vector-append u8vector-append) - (spec: 0 file-type file-type) - (spec: 0 u8vector? u8vector?) - (spec: 0 bit-field-reverse bit-field-reverse) - (spec: 0 conjugate conjugate) - (spec: 0 subf64vector-fill! subf64vector-fill!) - (spec: 0 u32vector-fill! u32vector-fill!) + (spec: 0 fxmin fxmin) + (spec: 0 char-set-map char-set-map) + (spec: 0 list->u16vector list->u16vector) + (spec: 0 partition! partition!) + (spec: 0 s64vector-ref s64vector-ref) + (spec: 0 fxwrapabs fxwrapabs) + (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) + (spec: 0 list= list=) + (spec: 0 string->uninterned-symbol string->uninterned-symbol) + (spec: 0 subvector subvector) + (spec: 0 u8vector u8vector) + (spec: 0 bitwise-for-each bitwise-for-each) + (spec: 0 range-exception? range-exception?) + (spec: 0 module-search-order-add! module-search-order-add!) + (spec: 0 subf32vector-move! subf32vector-move!) + (spec: 0 u32vector u32vector) + (spec: 0 file-info-last-change-time file-info-last-change-time) + (spec: 0 u8vector-set! u8vector-set!) + (spec: 0 current-exception-handler current-exception-handler) + (spec: 0 mutex-specific-set! mutex-specific-set!) (spec: 0 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 0 bitwise-merge bitwise-merge) - (spec: 0 copy-file copy-file) - (spec: 0 substring-move! substring-move!) - (spec: 0 u64vector-copy! u64vector-copy!) - (spec: 0 flinteger? flinteger?) - (spec: 0 iota iota) + wrong-processor-c-return-exception? + wrong-processor-c-return-exception?) + (spec: 0 f32vector-fill! f32vector-fill!) + (spec: 0 host-name host-name) + (spec: 0 make-thread-group make-thread-group) + (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) (spec: 0 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) - (spec: 0 take! take!) + uninitialized-thread-exception-procedure + uninitialized-thread-exception-procedure) + (spec: 0 f64vector-fill! f64vector-fill!) + (spec: 0 bit-field bit-field) + (spec: 0 cons* cons*) + (spec: 0 tcp-service-unregister! tcp-service-unregister!) + (spec: 0 udp-read-u8vector udp-read-u8vector) + (spec: 0 call-with-output-u8vector call-with-output-u8vector) + (spec: 0 flilogb flilogb) (spec: 0 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 0 repl-result-history-ref repl-result-history-ref) + invalid-utf8-encoding-exception? + invalid-utf8-encoding-exception?) + (spec: 0 system-version system-version) (spec: 0 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 0 fixnum? fixnum?) - (spec: 0 unbound-global-exception-code unbound-global-exception-code) - (spec: 0 flasin flasin) - (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) + readtable-case-conversion?-set + readtable-case-conversion?-set) (spec: 0 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) - (spec: 0 system-version-string system-version-string) - (spec: 0 char-set-cursor-next char-set-cursor-next) + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) + (spec: 0 network-info-aliases network-info-aliases) + (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) (spec: 0 - unbound-serial-number-exception? - unbound-serial-number-exception?) + fixnum-overflow-exception-procedure + fixnum-overflow-exception-procedure) + (spec: + 0 + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) + (spec: 0 s16vector-set s16vector-set) + (spec: 0 thread-state-waiting? thread-state-waiting?) + (spec: 0 vector-every vector-every) + (spec: 0 list->char-set list->char-set) + (spec: 0 os-exception-code os-exception-code) + (spec: 0 thread thread) (spec: 0 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 0 list->bits list->bits) - (spec: 0 thread-state thread-state) - (spec: 0 char-set-ref char-set-ref) - (spec: 0 fxnot fxnot) - (spec: 0 s16vector-swap! s16vector-swap!) - (spec: 0 vector-fold-right vector-fold-right) - (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 0 open-string-pipe open-string-pipe) + (spec: 0 char-set-contains? char-set-contains?) + (spec: 0 output-port-width output-port-width) + (spec: 0 thread-group? thread-group?) + (spec: 0 divide-by-zero-exception? divide-by-zero-exception?) + (spec: 0 s8vector-ref s8vector-ref) + (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) (spec: 0 fold-right fold-right) - (spec: 0 last-pair last-pair) - (spec: 0 os-exception? os-exception?) - (spec: 0 user-info-home user-info-home) - (spec: 0 thread-join! thread-join!) (spec: 0 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 0 s8vector-ref s8vector-ref) - (spec: 0 make-random-source make-random-source) - (spec: 0 with-output-to-string with-output-to-string) - (spec: 0 f32vector-length f32vector-length) - (spec: 0 proper-list? proper-list?) - (spec: 0 make-u8vector make-u8vector) + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 0 open-output-vector open-output-vector) + (spec: 0 u16vector-append u16vector-append) + (spec: 0 with-input-from-vector with-input-from-vector) + (spec: 0 char-set? char-set?) (spec: 0 string-suffix-length string-suffix-length) - (spec: 0 u16vector-fill! u16vector-fill!) - (spec: 0 write-file-u8vector write-file-u8vector) - (spec: 0 fxwrapsquare fxwrapsquare) + (spec: 0 time? time?) (spec: 0 s32vector-set! s32vector-set!) + (spec: 0 make-mutex make-mutex) + (spec: + 0 + expression-parsing-exception-kind + expression-parsing-exception-kind) (spec: 0 step step) - (spec: 0 vector-unfold-right vector-unfold-right) - (spec: 0 s8vector-fill! s8vector-fill!) + (spec: 0 s64vector-set s64vector-set) + (spec: 0 fxnot fxnot) + (spec: 0 char-set-hash char-set-hash) + (spec: 0 list->u32vector list->u32vector) + (spec: 0 subvector-fill! subvector-fill!) + (spec: 0 random-source-make-integers random-source-make-integers) + (spec: 0 fxwrapsquare fxwrapsquare) + (spec: 0 file-creation-time file-creation-time) + (spec: 0 bitwise-andc2 bitwise-andc2) (spec: 0 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 0 poll-point poll-point) - (spec: 0 touch touch) - (spec: 0 create-temporary-directory create-temporary-directory) - (spec: 0 mutex? mutex?) - (spec: 0 file-info-last-access-time file-info-last-access-time) - (spec: 0 thread-priority thread-priority) - (spec: 0 u8vector u8vector) - (spec: 0 initialized-thread-exception? initialized-thread-exception?) - (spec: 0 network-info? network-info?) - (spec: 0 file-owner file-owner) - (spec: 0 u8vector-set! u8vector-set!) - (spec: 0 bit-field-every? bit-field-every?) - (spec: 0 subs8vector-move! subs8vector-move!) - (spec: 0 f64vector-copy! f64vector-copy!) - (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 0 u32vector-concatenate u32vector-concatenate) - (spec: 0 bitwise-for-each bitwise-for-each) - (spec: 0 module-search-order-add! module-search-order-add!) - (spec: 0 file-attributes file-attributes) - (spec: 0 random-f64vector random-f64vector) - (spec: 0 subvector subvector) + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 0 cosh cosh) + (spec: 0 proper-list? proper-list?) + (spec: 0 set-box! set-box!) + (spec: 0 identity identity) (spec: 0 - invalid-utf8-encoding-exception-procedure - invalid-utf8-encoding-exception-procedure) - (spec: 0 u64vector-append u64vector-append) + file-info-last-modification-time + file-info-last-modification-time) + (spec: 0 mutex-state mutex-state) + (spec: 0 subs16vector-fill! subs16vector-fill!) + (spec: 0 subu16vector-move! subu16vector-move!) + (spec: 0 u32vector->list u32vector->list) + (spec: 0 make-tls-context make-tls-context) + (spec: 0 f32vector-length f32vector-length) + (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) + (spec: 0 tanh tanh) + (spec: 0 bit-field-any? bit-field-any?) (spec: 0 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) - (spec: 0 flhypot flhypot) - (spec: 0 tcp-service-register! tcp-service-register!) - (spec: 0 uninterned-keyword? uninterned-keyword?) + invalid-hash-number-exception? + invalid-hash-number-exception?) + (spec: 0 f64vector-length f64vector-length) + (spec: 0 terminated-thread-exception? terminated-thread-exception?) + (spec: 0 u64vector u64vector) (spec: 0 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 0 open-event-queue open-event-queue) - (spec: 0 repl-input-port repl-input-port) - (spec: 0 input-port-timeout-set! input-port-timeout-set!) + uninitialized-thread-exception? + uninitialized-thread-exception?) (spec: 0 - default-user-interrupt-handler - default-user-interrupt-handler) - (spec: 0 noncontinuable-exception? noncontinuable-exception?) + wrong-number-of-values-exception-vals + wrong-number-of-values-exception-vals) + (spec: 0 flasin flasin) + (spec: 0 udp-source-socket-info udp-source-socket-info) + (spec: 0 call-with-output-vector call-with-output-vector) (spec: 0 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) - (spec: 0 read-subu8vector read-subu8vector) - (spec: 0 system-type-string system-type-string) - (spec: 0 delete! delete!) - (spec: 0 table-set! table-set!) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) + (spec: 0 flinfinite? flinfinite?) (spec: 0 - readtable-max-write-length-set - readtable-max-write-length-set) - (spec: 0 udp-write-u8vector udp-write-u8vector) - (spec: 0 delete delete) - (spec: 0 fxandc1 fxandc1) - (spec: 0 s16vector-set s16vector-set) - (spec: 0 thread-specific thread-specific) - (spec: 0 vector-every vector-every) - (spec: 0 error-exception? error-exception?) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 0 network-info-name network-info-name) + (spec: 0 file-size file-size) + (spec: + 0 + thread-state-abnormally-terminated-reason + thread-state-abnormally-terminated-reason) + (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) + (spec: 0 s16vector-set! s16vector-set!) + (spec: 0 list->char-set! list->char-set!) + (spec: 0 thread-suspend! thread-suspend!) + (spec: 0 vector-inc! vector-inc!) + (spec: + 0 + thread-group->thread-group-list + thread-group->thread-group-list) + (spec: + 0 + repl-result-history-max-length-set! + repl-result-history-max-length-set!) (spec: 0 char-set-copy char-set-copy) - (spec: 0 fxnand fxnand) - (spec: 0 list->u64vector list->u64vector) - (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 0 vector-shrink! vector-shrink!) - (spec: 0 char-set-intersection char-set-intersection) - (spec: 0 socket-info? socket-info?) - (spec: 0 thread-base-priority thread-base-priority) - (spec: 0 fourth fourth) + (spec: 0 keyword-expected-exception? keyword-expected-exception?) + (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) (spec: 0 - cfun-conversion-exception-code - cfun-conversion-exception-code) + thread-mailbox-extract-and-rewind + thread-mailbox-extract-and-rewind) + (spec: 0 open-directory open-directory) + (spec: 0 type-exception-arg-id type-exception-arg-id) + (spec: 0 s8vector-fill! s8vector-fill!) (spec: 0 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) - (spec: 0 os-exception-code os-exception-code) - (spec: 0 group-info? group-info?) - (spec: 0 primordial-exception-handler primordial-exception-handler) - (spec: 0 tty-type-set! tty-type-set!) - (spec: 0 f32vector-copy f32vector-copy) - (spec: 0 atanh atanh) + cfun-conversion-exception-code + cfun-conversion-exception-code) + (spec: 0 u16vector-length u16vector-length) + (spec: 0 string-suffix-length-ci string-suffix-length-ci) + (spec: 0 any-bits-set? any-bits-set?) + (spec: 0 poll-point poll-point) + (spec: 0 vector-shrink! vector-shrink!) + (spec: 0 step-level-set! step-level-set!) (spec: 0 circular-list circular-list) - (spec: 0 host-info-name host-info-name) - (spec: 0 make-u16vector make-u16vector) - (spec: 0 every every) - (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 0 primordial-exception-handler primordial-exception-handler) (spec: 0 s64vector-length s64vector-length) + (spec: 0 char-set-intersection char-set-intersection) + (spec: 0 error-exception? error-exception?) + (spec: 0 fxodd? fxodd?) + (spec: 0 random-real random-real) + (spec: 0 every every) + (spec: 0 compile-file compile-file) + (spec: 0 fxxor fxxor) + (spec: 0 range-exception-arguments range-exception-arguments) + (spec: 0 bitwise-eqv bitwise-eqv) + (spec: 0 copy-bit-field copy-bit-field) + (spec: 0 file-device file-device) + (spec: 0 module-not-found-exception? module-not-found-exception?) (spec: 0 service-info-protocol service-info-protocol) - (spec: 0 subf32vector subf32vector) - (spec: 0 u16vector-concatenate u16vector-concatenate) - (spec: 0 gensym gensym) + (spec: 0 subs16vector-move! subs16vector-move!) + (spec: 0 u32vector-fill! u32vector-fill!) + (spec: 0 current-directory current-directory) + (spec: 0 file-info-inode file-info-inode) (spec: 0 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 0 trace trace) - (spec: 0 s8vector-length s8vector-length) - (spec: 0 file-info-last-change-time file-info-last-change-time) - (spec: 0 range-exception-arg-id range-exception-arg-id) - (spec: 0 u8vector->list u8vector->list) - (spec: 0 read-all read-all) - (spec: 0 u8vector-shrink! u8vector-shrink!) - (spec: 0 bit-field-replace bit-field-replace) - (spec: 0 configure-command-string configure-command-string) - (spec: 0 f64vector-fill! f64vector-fill!) - (spec: 0 u32vector-copy u32vector-copy) + sfun-conversion-exception-procedure + sfun-conversion-exception-procedure) + (spec: 0 subu32vector subu32vector) + (spec: 0 u64vector-copy! u64vector-copy!) + (spec: 0 concatenate concatenate) + (spec: 0 f32vector-copy f32vector-copy) (spec: 0 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) - (spec: 0 bitwise-if bitwise-if) - (spec: 0 copy-bit copy-bit) - (spec: 0 file-creation-time file-creation-time) - (spec: 0 module-search-order-reset! module-search-order-reset!) - (spec: 0 random-integer random-integer) - (spec: 0 call/cc call/cc) - (spec: 0 compile-file-to-target compile-file-to-target) - (spec: 0 flilogb flilogb) + readtable-sharing-allowed?-set + readtable-sharing-allowed?-set) + (spec: 0 u8vector-ref u8vector-ref) + (spec: 0 bit-field-reverse bit-field-reverse) (spec: 0 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) - (spec: 0 subvector-fill! subvector-fill!) - (spec: 0 tcp-service-unregister! tcp-service-unregister!) - (spec: 0 display-procedure-environment display-procedure-environment) - (spec: 0 open-file open-file) - (spec: 0 repl-output-port repl-output-port) - (spec: 0 u64vector-concatenate u64vector-concatenate) - (spec: 0 thread thread) - (spec: 0 uninterned-symbol? uninterned-symbol?) - (spec: 0 defer-user-interrupts defer-user-interrupts) + not-in-compilation-context-exception? + not-in-compilation-context-exception?) + (spec: 0 conjugate conjugate) + (spec: 0 f64vector-copy f64vector-copy) (spec: 0 - fixnum-overflow-exception-procedure - fixnum-overflow-exception-procedure) + unterminated-process-exception? + unterminated-process-exception?) (spec: 0 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 0 system-version system-version) - (spec: 0 delete-directory delete-directory) - (spec: 0 table? table?) - (spec: 0 readtable-max-write-level readtable-max-write-level) - (spec: 0 flacosh flacosh) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 0 delete-file-or-directory delete-file-or-directory) + (spec: 0 flacos flacos) + (spec: 0 input-port-byte-position input-port-byte-position) + (spec: 0 unbound-global-exception-code unbound-global-exception-code) + (spec: 0 flfloor flfloor) + (spec: 0 unbox unbox) + (spec: 0 table->list table->list) (spec: 0 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) - (spec: 0 fxandc2 fxandc2) - (spec: 0 char-set-count char-set-count) - (spec: 0 thread-specific-set! thread-specific-set!) - (spec: 0 s16vector-set! s16vector-set!) - (spec: 0 fxnegative? fxnegative?) - (spec: 0 char-set-intersection! char-set-intersection!) - (spec: 0 list->u8vector list->u8vector) - (spec: 0 partition partition) - (spec: 0 s32vector-ref s32vector-ref) - (spec: 0 flzero? flzero?) + nonempty-input-port-character-buffer-exception-arguments + nonempty-input-port-character-buffer-exception-arguments) + (spec: 0 file-number-of-links file-number-of-links) + (spec: 0 length-mismatch-exception? length-mismatch-exception?) + (spec: 0 s16vector s16vector) + (spec: 0 thread-start! thread-start!) + (spec: 0 vector->bits vector->bits) + (spec: 0 stack-overflow-exception? stack-overflow-exception?) + (spec: 0 thread-state-waiting-for thread-state-waiting-for) + (spec: 0 eq?-hash eq?-hash) + (spec: 0 repl-result-history-ref repl-result-history-ref) + (spec: 0 keyword-hash keyword-hash) + (spec: 0 char-set-delete! char-set-delete!) (spec: 0 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 0 open-process open-process) - (spec: 0 thread-base-priority-set! thread-base-priority-set!) + thread-group->thread-group-vector + thread-group->thread-group-vector) + (spec: 0 fxandc2 fxandc2) + (spec: 0 user-info-shell user-info-shell) + (spec: 0 thread-mailbox-next thread-mailbox-next) + (spec: 0 open-tcp-server open-tcp-server) (spec: 0 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 0 os-exception-message os-exception-message) - (spec: 0 thread-init! thread-init!) - (spec: 0 user-info user-info) - (spec: 0 circular-list? circular-list?) - (spec: 0 print print) - (spec: 0 string-shrink! string-shrink!) + divide-by-zero-exception-arguments + divide-by-zero-exception-arguments) + (spec: 0 flonum? flonum?) + (spec: 0 s8vector-length s8vector-length) + (spec: 0 type-exception-arguments type-exception-arguments) + (spec: 0 with-output-to-vector with-output-to-vector) + (spec: 0 flzero? flzero?) (spec: 0 script-directory script-directory) - (spec: 0 tty? tty?) - (spec: 0 host-info? host-info?) - (spec: 0 subf32vector-fill! subf32vector-fill!) - (spec: 0 make-u32vector make-u32vector) - (spec: 0 f32vector-copy! f32vector-copy!) - (spec: 0 service-info? service-info?) - (spec: 0 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 0 u16vector-copy u16vector-copy) - (spec: 0 with-output-to-port with-output-to-port) + (spec: 0 string-shrink! string-shrink!) + (spec: 0 s32vector-ref s32vector-ref) + (spec: 0 will-execute! will-execute!) + (spec: 0 char-set-unfold char-set-unfold) + (spec: 0 fxnegative? fxnegative?) + (spec: 0 compile-file-to-target compile-file-to-target) + (spec: + 0 + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 0 sinh sinh) + (spec: 0 u8vector-append u8vector-append) + (spec: 0 module-whitelist-reset! module-whitelist-reset!) + (spec: 0 address-info-family address-info-family) (spec: 0 every-bit-set? every-bit-set?) - (spec: 0 timeout->time timeout->time) - (spec: 0 vector-swap! vector-swap!) - (spec: 0 write-file-string write-file-string) - (spec: 0 append! append!) - (spec: 0 get-output-u8vector get-output-u8vector) - (spec: 0 s64vector-swap! s64vector-swap!) - (spec: 0 will-testator will-testator) + (spec: 0 fxwraplogical-shift-right fxwraplogical-shift-right) + (spec: 0 bitwise-merge bitwise-merge) + (spec: 0 range-exception-procedure range-exception-procedure) + (spec: 0 copy-file copy-file) + (spec: 0 fifth fifth) + (spec: 0 protocol-info-name protocol-info-name) + (spec: 0 service-info? service-info?) + (spec: 0 subf64vector-move! subf64vector-move!) + (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 0 box box) + (spec: 0 file-info-last-access-time file-info-last-access-time) + (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) + (spec: 0 subu16vector subu16vector) + (spec: 0 u32vector-length u32vector-length) + (spec: 0 f32vector-copy! f32vector-copy!) (spec: 0 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 0 random-source-make-reals random-source-make-reals) + readtable-write-extended-read-macros? + readtable-write-extended-read-macros?) (spec: 0 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 0 u8vector-copy! u8vector-copy!) - (spec: 0 file-info-size file-info-size) - (spec: 0 protocol-info protocol-info) - (spec: 0 f32vector-set! f32vector-set!) - (spec: 0 bit-set? bit-set?) - (spec: 0 identity identity) - (spec: 0 subs16vector-fill! subs16vector-fill!) - (spec: 0 u32vector-ref u32vector-ref) - (spec: 0 f64vector-set! f64vector-set!) - (spec: 0 bitwise-not bitwise-not) - (spec: 0 subu16vector-move! subu16vector-move!) - (spec: 0 flceiling flceiling) - (spec: - 0 - invalid-hash-number-exception? - invalid-hash-number-exception?) - (spec: - 0 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 0 tanh tanh) + invalid-hash-number-exception-arguments + invalid-hash-number-exception-arguments) + (spec: 0 take-right take-right) + (spec: 0 u64vector-fill! u64vector-fill!) + (spec: 0 u8vector? u8vector?) + (spec: 0 bit-field-rotate bit-field-rotate) + (spec: 0 f64vector-copy! f64vector-copy!) + (spec: 0 remq remq) (spec: 0 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 0 fllog1p fllog1p) - (spec: 0 remove remove) - (spec: 0 object->string object->string) - (spec: 0 terminated-thread-exception? terminated-thread-exception?) - (spec: 0 ninth ninth) - (spec: 0 unbound-global-exception? unbound-global-exception?) + terminated-thread-exception-arguments + terminated-thread-exception-arguments) (spec: 0 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 0 fl+ fl+) + unknown-keyword-argument-exception-arguments + unknown-keyword-argument-exception-arguments) + (spec: 0 flacosh flacosh) + (spec: 0 untrace untrace) + (spec: 0 write-subu8vector write-subu8vector) + (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) + (spec: 0 datum-parsing-exception? datum-parsing-exception?) + (spec: 0 car+cdr car+cdr) + (spec: 0 flhypot flhypot) (spec: 0 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) + nonempty-input-port-character-buffer-exception-procedure + nonempty-input-port-character-buffer-exception-procedure) + (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) + (spec: 0 unbreak unbreak) + (spec: 0 file-owner file-owner) + (spec: 0 os-exception? os-exception?) + (spec: 0 thread-state thread-state) + (spec: 0 s16vector->list s16vector->list) + (spec: 0 fx+ fx+) (spec: 0 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: 0 char-set-diff+intersection char-set-diff+intersection) - (spec: 0 fxbit-set? fxbit-set?) - (spec: 0 s16vector s16vector) + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) + (spec: 0 list->bits list->bits) + (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: 0 vector-fold-right vector-fold-right) + (spec: 0 fxeqv fxeqv) (spec: 0 - thread-state-abnormally-terminated? - thread-state-abnormally-terminated?) - (spec: 0 vector->bits vector->bits) - (spec: 0 char-set-unfold! char-set-unfold!) - (spec: 0 eq?-hash eq?-hash) - (spec: 0 fxorc2 fxorc2) - (spec: 0 list->f32vector list->f32vector) - (spec: 0 thread-terminate! thread-terminate!) - (spec: 0 keyword? keyword?) + keyword-expected-exception-arguments + keyword-expected-exception-arguments) (spec: 0 open-input-process open-input-process) - (spec: 0 thread-group->thread-list thread-group->thread-list) + (spec: 0 fxarithmetic-shift fxarithmetic-shift) + (spec: 0 char-set-diff+intersection char-set-diff+intersection) (spec: 0 open-u8vector open-u8vector) - (spec: 0 fx* fx*) - (spec: 0 split-at split-at) - (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 0 arithmetic-shift arithmetic-shift) - (spec: 0 make-bitwise-generator make-bitwise-generator) - (spec: 0 heap-overflow-exception? heap-overflow-exception?) - (spec: 0 s8vector-shrink! s8vector-shrink!) - (spec: 0 type-exception-procedure type-exception-procedure) + (spec: 0 thread-interrupt! thread-interrupt!) (spec: 0 user-info-uid user-info-uid) + (spec: 0 s8vector-shrink! s8vector-shrink!) + (spec: + 0 + mailbox-receive-timeout-exception? + mailbox-receive-timeout-exception?) + (spec: 0 fold fold) + (spec: 0 string-suffix-ci? string-suffix-ci?) + (spec: 0 u16vector-copy! u16vector-copy!) (spec: 0 expression-parsing-exception? expression-parsing-exception?) - (spec: 0 make-root-thread make-root-thread) - (spec: 0 string-swap! string-swap!) - (spec: 0 u16vector-ref u16vector-ref) - (spec: 0 address-info-protocol address-info-protocol) + (spec: 0 any any) (spec: 0 path-expand path-expand) (spec: 0 s32vector? s32vector?) (spec: 0 void void) + (spec: 0 s64vector-swap! s64vector-swap!) + (spec: 0 will-testator will-testator) + (spec: 0 fxnor fxnor) + (spec: 0 char-set-unfold! char-set-unfold!) (spec: 0 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 0 append-reverse append-reverse) - (spec: 0 s64vector? s64vector?) - (spec: 0 u8vector-fill! u8vector-fill!) - (spec: 0 will? will?) - (spec: 0 file-exists-exception? file-exists-exception?) - (spec: 0 bitwise-orc1 bitwise-orc1) - (spec: - 0 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) - (spec: 0 udp-destination-set! udp-destination-set!) - (spec: 0 file-info-type file-info-type) - (spec: - 0 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 0 u32vector-set u32vector-set) - (spec: 0 f32vector-shrink! f32vector-shrink!) - (spec: 0 console-port console-port) - (spec: 0 subs16vector-move! subs16vector-move!) - (spec: 0 protocol-info-aliases protocol-info-aliases) - (spec: 0 u64vector-ref u64vector-ref) - (spec: 0 bit-swap bit-swap) - (spec: 0 f64vector-shrink! f64vector-shrink!) - (spec: 0 subu32vector subu32vector) - (spec: 0 flcos flcos) - (spec: 0 call-with-input-string call-with-input-string) - (spec: - 0 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 0 flmax flmax) - (spec: 0 object->u8vector object->u8vector) - (spec: 0 remove! remove!) - (spec: 0 filter filter) - (spec: 0 input-port-byte-position input-port-byte-position) - (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 0 fl+* fl+*) - (spec: 0 call-with-input-process call-with-input-process) - (spec: 0 readtable-comment-handler readtable-comment-handler) - (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 0 output-port-byte-position output-port-byte-position) - (spec: 0 fx+ fx+) - (spec: 0 s16vector->list s16vector->list) - (spec: 0 char-set-union char-set-union) - (spec: 0 fxeqv fxeqv) - (spec: 0 list->f64vector list->f64vector) - (spec: 0 thread-thread-group thread-thread-group) - (spec: 0 flround flround) - (spec: 0 char-set char-set) - (spec: 0 thread-group->thread-vector thread-group->thread-vector) - (spec: 0 force-output force-output) - (spec: 0 open-u8vector-pipe open-u8vector-pipe) - (spec: 0 split-at! split-at!) - (spec: 0 compile-file compile-file) - (spec: 0 thread-name thread-name) - (spec: 0 user-info? user-info?) - (spec: 0 get-output-vector get-output-vector) - (spec: 0 s8vector-swap! s8vector-swap!) - (spec: 0 type-exception-type-id type-exception-type-id) - (spec: 0 process-pid process-pid) - (spec: 0 help help) - (spec: 0 make-s16vector make-s16vector) - (spec: 0 u16vector-set u16vector-set) - (spec: 0 path-extension path-extension) - (spec: 0 fxpositive? fxpositive?) - (spec: 0 address-info-socket-info address-info-socket-info) - (spec: 0 list-set list-set) - (spec: 0 string->char-set string->char-set) - (spec: 0 any-bits-set? any-bits-set?) - (spec: 0 s64vector-set! s64vector-set!) - (spec: 0 port-settings-set! port-settings-set!) - (spec: 0 box box) - (spec: 0 file-info-number-of-links file-info-number-of-links) - (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) + random-source-pseudo-randomize! + random-source-pseudo-randomize!) (spec: 0 u8vector-concatenate u8vector-concatenate) - (spec: 0 range-exception? range-exception?) + (spec: 0 cpu-time cpu-time) + (spec: 0 acosh acosh) + (spec: 0 fxwrapquotient fxwrapquotient) (spec: 0 ucs-range->char-set ucs-range->char-set) - (spec: 0 bit-field-rotate bit-field-rotate) - (spec: 0 subf64vector-move! subf64vector-move!) - (spec: 0 f64vector-ref f64vector-ref) - (spec: 0 u32vector-length u32vector-length) + (spec: 0 file-attributes file-attributes) (spec: 0 bitwise-nand bitwise-nand) - (spec: 0 subu16vector subu16vector) - (spec: 0 u64vector-fill! u64vector-fill!) - (spec: 0 car+cdr car+cdr) - (spec: 0 directory-files directory-files) - (spec: 0 readtable-start-syntax readtable-start-syntax) - (spec: 0 take-right take-right) + (spec: 0 condition-variable-name condition-variable-name) + (spec: 0 make-u64vector make-u64vector) + (spec: 0 protocol-info-number protocol-info-number) + (spec: 0 f32vector-set f32vector-set) + (spec: 0 subs16vector subs16vector) + (spec: 0 u32vector-copy u32vector-copy) + (spec: 0 subu16vector-fill! subu16vector-fill!) + (spec: 0 u64vector-concatenate u64vector-concatenate) + (spec: 0 f64vector-set f64vector-set) (spec: 0 - unknown-keyword-argument-exception-arguments - unknown-keyword-argument-exception-arguments) + invalid-hash-number-exception-procedure + invalid-hash-number-exception-procedure) (spec: 0 - keyword-expected-exception-arguments - keyword-expected-exception-arguments) + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) (spec: 0 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) + (spec: 0 flatanh flatanh) + (spec: 0 bit-field-replace bit-field-replace) + (spec: 0 uninterned-symbol? uninterned-symbol?) (spec: 0 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 0 flpositive? flpositive?) - (spec: 0 untrace untrace) - (spec: 0 fl* fl*) - (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) - (spec: 0 flasinh flasinh) - (spec: 0 delete-file-or-directory delete-file-or-directory) + terminated-thread-exception-procedure + terminated-thread-exception-procedure) + (spec: 0 rename-file rename-file) (spec: 0 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) + unterminated-process-exception-arguments + unterminated-process-exception-arguments) + (spec: 0 fllog fllog) + (spec: 0 xcons xcons) + (spec: 0 dead-end dead-end) + (spec: 0 call/cc call/cc) + (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) (spec: 0 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) - (spec: 0 unbox unbox) - (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 0 char-set-delete char-set-delete) - (spec: 0 fxodd? fxodd?) - (spec: 0 char-set-size char-set-size) - (spec: 0 list->char-set list->char-set) - (spec: 0 path-directory path-directory) + unbound-serial-number-exception-procedure + unbound-serial-number-exception-procedure) + (spec: 0 fl+ fl+) + (spec: 0 fx- fx-) + (spec: 0 thread-priority-boost thread-priority-boost) + (spec: 0 list->s16vector list->s16vector) + (spec: 0 fxeven? fxeven?) (spec: 0 s16vector? s16vector?) - (spec: 0 thread-state-waiting? thread-state-waiting?) - (spec: 0 keyword-expected-exception? keyword-expected-exception?) - (spec: 0 open-tcp-client open-tcp-client) - (spec: - 0 - thread-group->thread-group-list - thread-group->thread-group-list) (spec: 0 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 0 user-info-name user-info-name) + started-thread-exception-arguments + started-thread-exception-arguments) + (spec: 0 thread-state-initialized? thread-state-initialized?) (spec: 0 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: 0 s8vector-set s8vector-set) - (spec: 0 type-exception-arg-id type-exception-arg-id) - (spec: 0 with-output-to-u8vector with-output-to-u8vector) - (spec: 0 concatenate concatenate) - (spec: 0 second second) - (spec: 0 string-suffix-length-ci string-suffix-length-ci) - (spec: 0 u16vector-length u16vector-length) - (spec: 0 fxxor fxxor) - (spec: 0 s32vector-shrink! s32vector-shrink!) - (spec: 0 step-level-set! step-level-set!) - (spec: 0 string-ci=?-hash string-ci=?-hash) - (spec: 0 s64vector-shrink! s64vector-shrink!) - (spec: 0 will-execute! will-execute!) - (spec: 0 box? box?) - (spec: 0 current-exception-handler current-exception-handler) + keyword-expected-exception-procedure + keyword-expected-exception-procedure) + (spec: 0 open-file open-file) + (spec: 0 flround flround) + (spec: 0 char-set-cursor-next char-set-cursor-next) + (spec: 0 last-pair last-pair) + (spec: 0 open-string-pipe open-string-pipe) + (spec: 0 split-at! split-at!) + (spec: 0 thread-join! thread-join!) + (spec: 0 force-output force-output) + (spec: 0 user-info-home user-info-home) + (spec: 0 main main) + (spec: 0 with-output-to-string with-output-to-string) + (spec: 0 s8vector-swap! s8vector-swap!) + (spec: 0 get-output-vector get-output-vector) + (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) + (spec: 0 make-random-source make-random-source) + (spec: 0 u16vector-fill! u16vector-fill!) + (spec: 0 write-file-u8vector write-file-u8vector) + (spec: 0 any-bit-set? any-bit-set?) + (spec: 0 help help) + (spec: 0 string->char-set string->char-set) + (spec: 0 vector-unfold-right vector-unfold-right) + (spec: 0 fxpositive? fxpositive?) + (spec: 0 s64vector? s64vector?) + (spec: 0 char-set-ref char-set-ref) + (spec: 0 module-search-order-reset! module-search-order-reset!) + (spec: 0 u8vector->list u8vector->list) + (spec: 0 random-source-randomize! random-source-randomize!) (spec: 0 file-exists-exception-arguments file-exists-exception-arguments) - (spec: 0 random-source-make-integers random-source-make-integers) - (spec: 0 u8vector-copy u8vector-copy) - (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) + (spec: 0 current-processor current-processor) + (spec: 0 u8vector-shrink! u8vector-shrink!) (spec: 0 file-info-owner file-info-owner) - (spec: 0 ucs-range->char-set! ucs-range->char-set!) - (spec: 0 bit-field-set bit-field-set) - (spec: 0 cons* cons*) - (spec: 0 f32vector-set f32vector-set) - (spec: 0 make-will make-will) - (spec: 0 subs16vector subs16vector) - (spec: 0 bitwise-nor bitwise-nor) - (spec: 0 cosh cosh) - (spec: 0 f64vector-set f64vector-set) - (spec: 0 u64vector-length u64vector-length) - (spec: 0 subu16vector-fill! subu16vector-fill!) + (spec: 0 bitwise-if bitwise-if) + (spec: 0 f32vector-set! f32vector-set!) + (spec: 0 make-u8vector make-u8vector) + (spec: 0 protocol-info protocol-info) + (spec: 0 string=?-hash string=?-hash) + (spec: 0 u32vector-copy! u32vector-copy!) + (spec: 0 f64vector-set! f64vector-set!) + (spec: 0 subs32vector-move! subs32vector-move!) + (spec: 0 u64vector-copy u64vector-copy) (spec: 0 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 0 not-pair? not-pair?) - (spec: 0 flatanh flatanh) - (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) + not-in-compilation-context-exception-procedure + not-in-compilation-context-exception-procedure) + (spec: 0 flceiling flceiling) (spec: 0 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 0 divide-by-zero-exception? divide-by-zero-exception?) - (spec: 0 object->serial-number object->serial-number) - (spec: 0 fllog fllog) + readtable-write-cdr-read-macros? + readtable-write-cdr-read-macros?) + (spec: 0 table-length table-length) + (spec: 0 bit-field-replace-same bit-field-replace-same) (spec: 0 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) + join-timeout-exception-arguments + join-timeout-exception-arguments) + (spec: 0 fllog1p fllog1p) + (spec: 0 remove remove) (spec: 0 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) + unterminated-process-exception-procedure + unterminated-process-exception-procedure) (spec: 0 - unbound-global-exception-variable - unbound-global-exception-variable) + input-port-characters-buffered + input-port-characters-buffered) (spec: 0 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) + datum-parsing-exception-parameters + datum-parsing-exception-parameters) + (spec: 0 integer-sqrt integer-sqrt) + (spec: 0 fl+* fl+*) + (spec: 0 readtable-comment-handler readtable-comment-handler) (spec: 0 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 0 flatan flatan) - (spec: 0 readtable-case-conversion? readtable-case-conversion?) - (spec: 0 unbreak unbreak) + unbound-serial-number-exception? + unbound-serial-number-exception?) + (spec: 0 output-port-column output-port-column) + (spec: 0 char-set->string char-set->string) (spec: 0 fxbit-count fxbit-count) - (spec: 0 char-set-delete! char-set-delete!) - (spec: - 0 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 0 fxorc1 fxorc1) - (spec: 0 char-set-unfold char-set-unfold) - (spec: 0 list->char-set! list->char-set!) - (spec: 0 thread-suspend! thread-suspend!) - (spec: 0 vector-inc! vector-inc!) - (spec: 0 keyword-hash keyword-hash) - (spec: - 0 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 0 open-tcp-server open-tcp-server) - (spec: 0 thread-mailbox-next thread-mailbox-next) - (spec: 0 user-info-shell user-info-shell) - (spec: 0 thread-priority-set! thread-priority-set!) + (spec: 0 vector-any vector-any) + (spec: 0 list->s32vector list->s32vector) + (spec: 0 char-set-difference! char-set-difference!) + (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) + (spec: 0 flscalbn flscalbn) + (spec: 0 char-set-delete char-set-delete) + (spec: 0 open-tcp-client open-tcp-client) + (spec: 0 thread-group-name thread-group-name) + (spec: 0 user-info-name user-info-name) + (spec: 0 make-condition-variable make-condition-variable) + (spec: 0 getenv getenv) + (spec: 0 port-settings-set! port-settings-set!) + (spec: 0 s8vector-set s8vector-set) + (spec: 0 append-reverse! append-reverse!) + (spec: 0 with-output-to-u8vector with-output-to-u8vector) (spec: 0 - expression-parsing-exception-source - expression-parsing-exception-source) - (spec: 0 type-exception-arguments type-exception-arguments) - (spec: 0 s8vector-set! s8vector-set!) - (spec: 0 with-output-to-vector with-output-to-vector) - (spec: 0 concatenate! concatenate!) - (spec: 0 string-suffix? string-suffix?) - (spec: 0 f32vector-ref f32vector-ref) - (spec: 0 seconds->time seconds->time) - (spec: 0 address-info-family address-info-family) - (spec: 0 fxzero? fxzero?) - (spec: 0 s32vector-swap! s32vector-swap!) - (spec: 0 address-infos address-infos) - (spec: 0 gc-report-set! gc-report-set!) - (spec: 0 string-contains-ci string-contains-ci) - (spec: 0 file-info file-info) - (spec: 0 bitwise-xor bitwise-xor) - (spec: 0 mutex-lock! mutex-lock!) - (spec: 0 current-readtable current-readtable) + expression-parsing-exception-parameters + expression-parsing-exception-parameters) + (spec: 0 help-browser help-browser) + (spec: 0 make-s32vector make-s32vector) + (spec: 0 second second) + (spec: 0 type-exception? type-exception?) + (spec: 0 fxquotient fxquotient) + (spec: 0 path-directory path-directory) + (spec: 0 s32vector-shrink! s32vector-shrink!) + (spec: 0 string->char-set! string->char-set!) + (spec: 0 thread-yield! thread-yield!) + (spec: 0 s64vector-set! s64vector-set!) + (spec: 0 string-concatenate string-concatenate) + (spec: 0 address-info-socket-type address-info-socket-type) + (spec: 0 char-set-size char-set-size) (spec: 0 - file-last-access-and-modification-times-set! - file-last-access-and-modification-times-set!) - (spec: 0 seventh seventh) - (spec: 0 subs32vector-move! subs32vector-move!) - (spec: 0 condition-variable-signal! condition-variable-signal!) - (spec: 0 u32vector-swap! u32vector-swap!) - (spec: 0 protocol-info? protocol-info?) - (spec: 0 shell-command shell-command) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 0 module-whitelist-add! module-whitelist-add!) + (spec: 0 random-source-make-reals random-source-make-reals) (spec: 0 subu64vector subu64vector) - (spec: 0 link-incremental link-incremental) - (spec: 0 u64vector-shrink! u64vector-shrink!) - (spec: 0 bits->vector bits->vector) - (spec: 0 fleven? fleven?) - (spec: 0 readtable? readtable?) + (spec: 0 u8vector->object u8vector->object) + (spec: 0 file-info-size file-info-size) + (spec: 0 u8vector-swap! u8vector-swap!) + (spec: 0 bitwise-ior bitwise-ior) + (spec: 0 protocol-info-aliases protocol-info-aliases) + (spec: 0 u16vector-set! u16vector-set!) + (spec: 0 console-port console-port) + (spec: 0 u32vector-set u32vector-set) + (spec: 0 write-substring write-substring) + (spec: 0 bit-swap bit-swap) + (spec: 0 flasinh flasinh) (spec: 0 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 0 flnegative? flnegative?) + readtable-write-cdr-read-macros?-set + readtable-write-cdr-read-macros?-set) + (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) + (spec: 0 call-with-input-string call-with-input-string) + (spec: 0 subs64vector subs64vector) + (spec: 0 object->u8vector object->u8vector) + (spec: 0 flinteger? flinteger?) (spec: 0 - join-timeout-exception-arguments - join-timeout-exception-arguments) - (spec: 0 unbound-key-exception? unbound-key-exception?) - (spec: 0 read-file-string read-file-string) + join-timeout-exception-procedure + join-timeout-exception-procedure) + (spec: 0 remove! remove!) + (spec: 0 table-merge table-merge) (spec: 0 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 0 table-length table-length) - (spec: - 0 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) - (spec: 0 fl< fl<) - (spec: 0 integer-nth-root integer-nth-root) - (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) - (spec: 0 s16vector-copy s16vector-copy) + datum-parsing-exception-readenv + datum-parsing-exception-readenv) + (spec: 0 file-type file-type) + (spec: 0 input-port-column input-port-column) + (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) + (spec: 0 udp-destination-set! udp-destination-set!) + (spec: 0 fixnum? fixnum?) + (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) + (spec: 0 fx* fx*) (spec: 0 char-set-adjoin char-set-adjoin) (spec: 0 output-port-line output-port-line) - (spec: 0 fx<= fx<=) - (spec: 0 s32vector-append s32vector-append) - (spec: 0 table-for-each table-for-each) - (spec: 0 char-set-every char-set-every) - (spec: 0 list->s64vector list->s64vector) (spec: 0 eqv?-hash eqv?-hash) - (spec: 0 fxif fxif) - (spec: 0 started-thread-exception? started-thread-exception?) - (spec: 0 thread-group-resume! thread-group-resume!) + (spec: 0 char-set-every char-set-every) + (spec: 0 fxbit-set? fxbit-set?) + (spec: 0 list->f32vector list->f32vector) + (spec: 0 s16vector-copy s16vector-copy) + (spec: 0 open-input-vector open-input-vector) + (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) + (spec: 0 open-vector open-vector) + (spec: 0 s8vector-set! s8vector-set!) + (spec: 0 with-exception-handler with-exception-handler) + (spec: 0 thread-group-parent thread-group-parent) (spec: 0 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 0 drop-right drop-right) - (spec: 0 flsinh flsinh) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 thread-quantum thread-quantum) - (spec: 0 open-vector-pipe open-vector-pipe) - (spec: 0 foreign-address foreign-address) - (spec: 0 apropos apropos) - (spec: 0 make-f32vector make-f32vector) - (spec: 0 u16vector-swap! u16vector-swap!) - (spec: 0 string-prefix-ci? string-prefix-ci?) - (spec: 0 make-s8vector make-s8vector) - (spec: 0 process-times process-times) - (spec: 0 s64vector->list s64vector->list) - (spec: 0 top top) - (spec: 0 char-set-xor! char-set-xor!) - (spec: 0 list-sort! list-sort!) - (spec: 0 fxsquare fxsquare) - (spec: 0 path-strip-directory path-strip-directory) - (spec: 0 s8vector s8vector) - (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) - (spec: 0 tty-history-set! tty-history-set!) - (spec: 0 mutex-name mutex-name) - (spec: 0 file-info-attributes file-info-attributes) - (spec: 0 random-source-state-ref random-source-state-ref) - (spec: 0 link-flat link-flat) - (spec: 0 file-last-access-time file-last-access-time) - (spec: 0 subs64vector subs64vector) - (spec: 0 u32vector? u32vector?) - (spec: 0 f64vector f64vector) - (spec: 0 condition-variable-specific condition-variable-specific) + expression-parsing-exception-source + expression-parsing-exception-source) + (spec: 0 asinh asinh) + (spec: 0 make-s64vector make-s64vector) + (spec: 0 process-status process-status) + (spec: 0 seconds->time seconds->time) + (spec: 0 string-suffix? string-suffix?) + (spec: 0 fxorc1 fxorc1) + (spec: 0 s32vector-swap! s32vector-swap!) + (spec: 0 list-sort list-sort) + (spec: 0 char-set-xor char-set-xor) + (spec: 0 tty-history tty-history) + (spec: 0 permission-denied-exception? permission-denied-exception?) + (spec: 0 address-info? address-info?) + (spec: 0 fxzero? fxzero?) + (spec: 0 s64vector-shrink! s64vector-shrink!) + (spec: 0 string-ci=?-hash string-ci=?-hash) + (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) + (spec: 0 thread? thread?) + (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) + (spec: 0 u64vector-ref u64vector-ref) + (spec: 0 bitwise-orc1 bitwise-orc1) + (spec: 0 file-info-mode file-info-mode) + (spec: 0 u8vector-fill! u8vector-fill!) (spec: 0 subu64vector-fill! subu64vector-fill!) - (spec: 0 u64vector-swap! u64vector-swap!) - (spec: 0 bitwise-and bitwise-and) - (spec: 0 continuation-capture continuation-capture) - (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) - (spec: 0 flexp flexp) - (spec: 0 call-with-output-process call-with-output-process) - (spec: 0 flnumerator flnumerator) - (spec: - 0 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) (spec: 0 - join-timeout-exception-procedure - join-timeout-exception-procedure) + condition-variable-specific-set! + condition-variable-specific-set!) + (spec: 0 f32vector-ref f32vector-ref) + (spec: 0 continuation-graft continuation-graft) + (spec: 0 bits bits) + (spec: 0 f64vector-ref f64vector-ref) (spec: 0 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 0 first first) - (spec: 0 deadlock-exception? deadlock-exception?) - (spec: 0 input-port-column input-port-column) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) + (spec: 0 u16vector-shrink! u16vector-shrink!) + (spec: 0 call-with-input-u8vector call-with-input-u8vector) + (spec: 0 flatan flatan) + (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) + (spec: 0 subs32vector subs32vector) + (spec: 0 u32vector-set! u32vector-set!) (spec: 0 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) - (spec: 0 read-file-string-list read-file-string-list) - (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 0 fl<= fl<=) - (spec: 0 integer-sqrt integer-sqrt) + display-continuation-environment + display-continuation-environment) + (spec: 0 table-copy table-copy) + (spec: 0 uncaught-exception-reason uncaught-exception-reason) + (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) + (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) + (spec: 0 fl* fl*) + (spec: 0 read-file-u8vector read-file-u8vector) + (spec: 0 integer-length integer-length) (spec: 0 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) - (spec: 0 char-set-adjoin! char-set-adjoin!) - (spec: 0 s16vector-copy! s16vector-copy!) + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) (spec: 0 fx= fx=) - (spec: 0 table-merge table-merge) - (spec: 0 s32vector-concatenate s32vector-concatenate) + (spec: 0 char-set char-set) + (spec: 0 output-port-byte-position output-port-byte-position) (spec: 0 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 0 char-set-filter char-set-filter) - (spec: 0 vector-cas! vector-cas!) - (spec: 0 err-code->string err-code->string) + unbound-key-exception-arguments + unbound-key-exception-arguments) (spec: 0 fxior fxior) - (spec: 0 list->s8vector list->s8vector) - (spec: 0 thread-group-specific thread-group-specific) - (spec: 0 drop-right! drop-right!) - (spec: 0 flsqrt flsqrt) + (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) + (spec: 0 err-code->string err-code->string) + (spec: 0 list->f64vector list->f64vector) (spec: 0 rpc-remote-error-exception-arguments rpc-remote-error-exception-arguments) - (spec: 0 thread-quantum-set! thread-quantum-set!) - (spec: 0 foreign-release! foreign-release!) - (spec: 0 scheduler-exception-reason scheduler-exception-reason) - (spec: 0 string-prefix-length string-prefix-length) - (spec: 0 pretty-print pretty-print) - (spec: 0 make-f64vector make-f64vector) - (spec: 0 string=?-hash string=?-hash) - (spec: 0 u16vector? u16vector?) - (spec: 0 s64vector-append s64vector-append) - (spec: 0 path-strip-extension path-strip-extension) - (spec: 0 fxwrap* fxwrap*) - (spec: 0 list-tabulate list-tabulate) - (spec: 0 s8vector->list s8vector->list) - (spec: 0 with-input-from-port with-input-from-port) - (spec: 0 address-info-socket-type address-info-socket-type) + (spec: 0 drop-right drop-right) + (spec: 0 flpositive? flpositive?) + (spec: 0 keyword? keyword?) + (spec: 0 open-output-bytevector open-output-bytevector) + (spec: 0 thread-name thread-name) + (spec: 0 thread-priority thread-priority) (spec: 0 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 0 string-concatenate string-concatenate) - (spec: 0 with-exception-catcher with-exception-catcher) + thread-state-abnormally-terminated? + thread-state-abnormally-terminated?) + (spec: 0 user-info? user-info?) + (spec: 0 split-at split-at) + (spec: 0 open-vector-pipe open-vector-pipe) + (spec: 0 test-bit-field? test-bit-field?) + (spec: 0 append! append!) + (spec: 0 get-output-u8vector get-output-u8vector) + (spec: 0 make-bitwise-generator make-bitwise-generator) + (spec: 0 s8vector s8vector) + (spec: 0 thread-group->thread-list thread-group->thread-list) + (spec: 0 heap-overflow-exception? heap-overflow-exception?) + (spec: 0 arithmetic-shift arithmetic-shift) + (spec: 0 make-root-thread make-root-thread) + (spec: 0 process-times process-times) + (spec: 0 string-swap! string-swap!) + (spec: 0 fxorc2 fxorc2) + (spec: 0 char-set-xor! char-set-xor!) + (spec: 0 path-strip-directory path-strip-directory) + (spec: 0 s32vector-append s32vector-append) + (spec: 0 type-exception-procedure type-exception-procedure) + (spec: 0 address-info-protocol address-info-protocol) + (spec: 0 s64vector->list s64vector->list) + (spec: 0 thread-terminate! thread-terminate!) + (spec: 0 create-directory create-directory) + (spec: 0 bitwise-orc2 bitwise-orc2) + (spec: 0 r7rs-raise r7rs-raise) (spec: 0 inactive-thread-exception-procedure inactive-thread-exception-procedure) - (spec: 0 bitwise-orc2 bitwise-orc2) - (spec: 0 cpu-time cpu-time) - (spec: - 0 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) + (spec: 0 current-thread current-thread) (spec: 0 break break) - (spec: 0 file-info? file-info?) - (spec: 0 u32vector-set! u32vector-set!) - (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 0 subs32vector subs32vector) - (spec: 0 protocol-info-name protocol-info-name) - (spec: 0 f32vector-swap! f32vector-swap!) - (spec: 0 setenv setenv) - (spec: 0 bits bits) + (spec: 0 file-info-number-of-links file-info-number-of-links) + (spec: 0 random-source-state-set! random-source-state-set!) (spec: 0 subu32vector-fill! subu32vector-fill!) - (spec: 0 f64vector-swap! f64vector-swap!) + (spec: 0 f32vector? f32vector?) (spec: 0 u64vector-set u64vector-set) - (spec: 0 call-with-input-u8vector call-with-input-u8vector) - (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 0 flcosh flcosh) + (spec: 0 condition-variable? condition-variable?) + (spec: 0 make-will make-will) + (spec: 0 random-source? random-source?) + (spec: 0 f64vector? f64vector?) + (spec: 0 bit-field-set bit-field-set) + (spec: 0 continuation-return continuation-return) + (spec: 0 symbol-hash symbol-hash) + (spec: 0 processor-id processor-id) + (spec: 0 fldenominator fldenominator) + (spec: 0 u16vector-ref u16vector-ref) + (spec: 0 u8vector-copy u8vector-copy) + (spec: 0 not-pair? not-pair?) + (spec: 0 subs32vector-fill! subs32vector-fill!) + (spec: 0 link-incremental link-incremental) + (spec: 0 flnan? flnan?) (spec: 0 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) - (spec: 0 test-bit-field? test-bit-field?) - (spec: 0 flmin flmin) - (spec: 0 remq remq) + wrong-number-of-arguments-exception-procedure + wrong-number-of-arguments-exception-procedure) + (spec: 0 display-exception display-exception) + (spec: 0 object->serial-number object->serial-number) (spec: 0 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 0 datum-parsing-exception? datum-parsing-exception?) - (spec: 0 filter! filter!) - (spec: 0 uncaught-exception-reason uncaught-exception-reason) - (spec: 0 fl- fl-) - (spec: 0 table->list table->list) - (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) - (spec: 0 thread-state-initialized? thread-state-initialized?) - (spec: 0 char-set-difference char-set-difference) - (spec: 0 fx- fx-) - (spec: 0 output-port-char-position output-port-char-position) - (spec: 0 s16vector-append s16vector-append) - (spec: 0 thread-yield! thread-yield!) - (spec: 0 equal?-hash equal?-hash) - (spec: 0 char-set-union! char-set-union!) - (spec: 0 fxeven? fxeven?) - (spec: 0 list->s16vector list->s16vector) - (spec: 0 s32vector s32vector) - (spec: 0 dotted-list? dotted-list?) - (spec: 0 flscalbn flscalbn) + readtable-max-unescaped-char-set + readtable-max-unescaped-char-set) + (spec: 0 table-for-each table-for-each) + (spec: 0 input-port-char-position input-port-char-position) + (spec: 0 real-time real-time) + (spec: 0 tcp-client-peer-socket-info tcp-client-peer-socket-info) + (spec: 0 fl< fl<) (spec: 0 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: 0 open-input-u8vector open-input-u8vector) - (spec: 0 thread-group-name thread-group-name) - (spec: 0 thread-priority-boost thread-priority-boost) - (spec: 0 eighth eighth) + unknown-keyword-argument-exception-procedure + unknown-keyword-argument-exception-procedure) + (spec: 0 integer-nth-root integer-nth-root) + (spec: + 0 + nonempty-input-port-character-buffer-exception? + nonempty-input-port-character-buffer-exception?) + (spec: 0 ucs-range->char-set! ucs-range->char-set!) (spec: 0 char-set->list char-set->list) - (spec: 0 open-udp open-udp) - (spec: 0 type-exception? type-exception?) + (spec: 0 output-port-char-position output-port-char-position) + (spec: 0 fx> fx>) + (spec: + 0 + unbound-global-exception-variable + unbound-global-exception-variable) + (spec: 0 char-set-difference char-set-difference) + (spec: 0 equal?-hash equal?-hash) + (spec: 0 fxlength fxlength) + (spec: 0 thread-receive thread-receive) + (spec: 0 flsqrt flsqrt) (spec: 0 user-name user-name) - (spec: 0 append-reverse! append-reverse!) - (spec: 0 getenv getenv) - (spec: 0 make-condition-variable make-condition-variable) - (spec: 0 pp pp) - (spec: 0 s8vector? s8vector?) - (spec: 0 help-browser help-browser) - (spec: 0 serial-number->object serial-number->object) - (spec: 0 make-s32vector make-s32vector) - (spec: 0 u16vector-set! u16vector-set!) - (spec: 0 write-substring write-substring) - (spec: 0 fxquotient fxquotient) - (spec: 0 string->char-set! string->char-set!) - (spec: 0 path-normalize path-normalize) - (spec: 0 address-info? address-info?) - (spec: 0 string-contains string-contains) - (spec: 0 permission-denied-exception? permission-denied-exception?) - (spec: 0 u8vector-length u8vector-length) - (spec: 0 bitwise-unfold bitwise-unfold) - (spec: 0 random-source-randomize! random-source-randomize!) + (spec: 0 drop-right! drop-right!) + (spec: 0 s16vector-copy! s16vector-copy!) + (spec: 0 foreign-release! foreign-release!) + (spec: 0 open-u8vector-pipe open-u8vector-pipe) + (spec: 0 append-reverse append-reverse) + (spec: 0 thread-group->thread-vector thread-group->thread-vector) + (spec: 0 string-prefix-length string-prefix-length) + (spec: 0 make-s16vector make-s16vector) + (spec: 0 process-pid process-pid) + (spec: 0 s8vector->list s8vector->list) + (spec: 0 fxwrap* fxwrap*) + (spec: 0 char-set-union char-set-union) + (spec: 0 list-set list-set) + (spec: 0 path-extension path-extension) + (spec: 0 scheduler-exception-reason scheduler-exception-reason) + (spec: 0 type-exception-type-id type-exception-type-id) + (spec: 0 address-info-socket-info address-info-socket-info) + (spec: 0 will? will?) + (spec: + 0 + permission-denied-exception-arguments + permission-denied-exception-arguments) + (spec: 0 thread-thread-group thread-thread-group) + (spec: 0 s32vector-concatenate s32vector-concatenate) (spec: 0 file-group file-group) + (spec: 0 bitwise-nor bitwise-nor) (spec: 0 inactive-thread-exception? inactive-thread-exception?) - (spec: 0 symbol-hash symbol-hash) - (spec: 0 current-processor current-processor) - (spec: 0 udp-local-socket-info udp-local-socket-info) + (spec: 0 create-fifo create-fifo) + (spec: 0 s64vector-append s64vector-append) (spec: 0 file-inode file-inode) - (spec: 0 u32vector-shrink! u32vector-shrink!) - (spec: 0 xcons xcons) - (spec: 0 condition-variable-name condition-variable-name) - (spec: 0 protocol-info-number protocol-info-number) - (spec: 0 f32vector? f32vector?) - (spec: 0 subs32vector-fill! subs32vector-fill!) - (spec: 0 u64vector-set! u64vector-set!) - (spec: 0 bits->list bits->list) - (spec: 0 f64vector? f64vector?) + (spec: 0 box? box?) + (spec: 0 current-time current-time) (spec: 0 subu32vector-move! subu32vector-move!) - (spec: 0 call-with-input-vector call-with-input-vector) - (spec: 0 null-list? null-list?) - (spec: 0 fldenominator fldenominator) + (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) + (spec: 0 u64vector-length u64vector-length) + (spec: 0 host-info-aliases host-info-aliases) + (spec: 0 condition-variable-signal! condition-variable-signal!) + (spec: 0 u8vector-copy! u8vector-copy!) + (spec: 0 bit-set? bit-set?) + (spec: 0 u16vector-set u16vector-set) + (spec: 0 call-with-input-process call-with-input-process) + (spec: 0 fleven? fleven?) + (spec: 0 protocol-info? protocol-info?) + (spec: 0 seventh seventh) + (spec: 0 subs8vector subs8vector) + (spec: 0 u32vector-ref u32vector-ref) (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) - (spec: 0 flnan? flnan?) - (spec: 0 rename-file rename-file) + display-continuation-backtrace + display-continuation-backtrace) + (spec: 0 flnegative? flnegative?) + (spec: 0 object->string object->string) + (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) + (spec: 0 table-search table-search) (spec: 0 - unbound-key-exception-procedure - unbound-key-exception-procedure) - (spec: 0 dead-end dead-end) - (spec: 0 input-port-char-position input-port-char-position) - (spec: 0 uncaught-exception? uncaught-exception?) - (spec: 0 integer-length integer-length) - (spec: 0 table-copy table-copy) - (spec: 0 fl/ fl/) + initialized-thread-exception-arguments + initialized-thread-exception-arguments) + (spec: 0 ninth ninth) + (spec: 0 readtable? readtable?) + (spec: 0 tcp-server-socket-info tcp-server-socket-info) + (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) + (spec: 0 input-port-readtable input-port-readtable) + (spec: 0 fl<= fl<=) (spec: 0 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) - (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) - (spec: 0 vector-any vector-any) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) + (spec: 0 char-set-complement char-set-complement) (spec: 0 fx< fx<) - (spec: 0 char-set->string char-set->string) - (spec: 0 output-port-column output-port-column) - (spec: 0 s16vector-concatenate s16vector-concatenate) - (spec: 0 thread? thread?) + (spec: 0 read-file-string read-file-string) + (spec: 0 system-stamp system-stamp) + (spec: 0 char-set-fold char-set-fold) + (spec: 0 output-port-readtable-set! output-port-readtable-set!) (spec: 0 fxfirst-set-bit fxfirst-set-bit) - (spec: 0 char-set-difference! char-set-difference!) - (spec: 0 list->s32vector list->s32vector) + (spec: 0 unbound-global-exception? unbound-global-exception?) + (spec: 0 length+ length+) + (spec: 0 thread-resume! thread-resume!) + (spec: 0 open-input-u8vector open-input-u8vector) + (spec: 0 dotted-list? dotted-list?) + (spec: 0 flsquare flsquare) + (spec: 0 s16vector-append s16vector-append) + (spec: 0 eighth eighth) + (spec: 0 foreign-released? foreign-released?) + (spec: 0 open-udp open-udp) + (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 0 pp pp) + (spec: 0 group-info group-info) + (spec: 0 thread-group-specific-set! thread-group-specific-set!) + (spec: 0 tty-mode-set! tty-mode-set!) + (spec: 0 with-exception-catcher with-exception-catcher) + (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) + (spec: 0 char-set-union! char-set-union!) + (spec: 0 fxwrap+ fxwrap+) + (spec: 0 path-normalize path-normalize) + (spec: 0 s8vector? s8vector?) + (spec: 0 string-prefix-length-ci string-prefix-length-ci) (spec: 0 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 0 s32vector->list s32vector->list) - (spec: 0 thread-group-parent thread-group-parent) - (spec: 0 flsin flsin) - (spec: 0 sixth sixth) - (spec: 0 drop drop) - (spec: 0 open-input-vector open-input-vector) - (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 0 open-vector open-vector) - (spec: 0 u16vector-shrink! u16vector-shrink!) - (spec: 0 write-subu8vector write-subu8vector) - (spec: 0 asinh asinh) - (spec: 0 make-s64vector make-s64vector) - (spec: 0 extract-bit-field extract-bit-field) - (spec: 0 process-status process-status) - (spec: 0 fxremainder fxremainder) - (spec: 0 string->keyword string->keyword) - (spec: 0 list-sort list-sort) - (spec: 0 s64vector s64vector) - (spec: 0 u8-ready? u8-ready?) - (spec: 0 bytevector-u8-set! bytevector-u8-set!) - (spec: 0 read-string read-string) - (spec: 0 vector-copy! vector-copy!) - (spec: 0 make-list make-list) - (spec: 0 command-line command-line) - (spec: 0 string-foldcase string-foldcase) - (spec: 0 call-with-port call-with-port) - (spec: 0 bytevector? bytevector?) - (spec: 0 string->utf8 string->utf8) - (spec: 0 features features) - (spec: 0 bytevector-length bytevector-length) - (spec: 0 open-binary-input-file open-binary-input-file) - (spec: 0 ceiling-remainder ceiling-remainder) - (spec: 0 emergency-exit emergency-exit) - (spec: 0 string-copy! string-copy!) - (spec: 0 write-bytevector write-bytevector) - (spec: 0 open-binary-output-file open-binary-output-file) - (spec: 0 bytevector-u8-ref bytevector-u8-ref) - (spec: 0 input-port-open? input-port-open?) - (spec: 0 ceiling/ ceiling/) - (spec: 0 open-output-string open-output-string) - (spec: 0 get-environment-variables get-environment-variables) - (spec: 0 inexact inexact) - (spec: 0 read-bytevector read-bytevector) - (spec: 0 floor-remainder floor-remainder) - (spec: 0 delete-file delete-file) - (spec: 0 eof-object eof-object) - (spec: 0 error-object-message error-object-message) - (spec: 0 make-promise make-promise) - (spec: 0 exact exact) - (spec: 0 open-input-bytevector open-input-bytevector) - (spec: 0 file-error? file-error?) - (spec: 0 floor/ floor/) - (spec: 0 read-bytevector! read-bytevector!) - (spec: 0 error-object? error-object?) - (spec: 0 list-copy list-copy) - (spec: 0 read-line read-line) - (spec: 0 peek-u8 peek-u8) - (spec: 0 boolean=? boolean=?) - (spec: 0 string-downcase string-downcase) + permission-denied-exception-procedure + permission-denied-exception-procedure) + (spec: 0 s32vector s32vector) + (spec: 0 bitwise-not bitwise-not) + (spec: 0 file-info file-info) + (spec: 0 current-readtable current-readtable) + (spec: + 0 + file-last-access-and-modification-times-set! + file-last-access-and-modification-times-set!) + (spec: 0 shell-command shell-command) + (spec: 0 subu8vector-fill! subu8vector-fill!) + (spec: 0 condition-variable-specific condition-variable-specific) + (spec: 0 f32vector-shrink! f32vector-shrink!) + (spec: 0 link-flat link-flat) + (spec: 0 make-table make-table) + (spec: 0 bitwise-and bitwise-and) + (spec: 0 random-source-state-ref random-source-state-ref) + (spec: 0 continuation-capture continuation-capture) + (spec: 0 f64vector-shrink! f64vector-shrink!) + (spec: 0 host-info-name host-info-name) + (spec: 0 serial-number->object serial-number->object) + (spec: 0 call-with-output-process call-with-output-process) + (spec: + 0 + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) + (spec: 0 flcos flcos) + (spec: 0 subf32vector subf32vector) + (spec: 0 u32vector? u32vector?) + (spec: 0 subs8vector-fill! subs8vector-fill!) + (spec: + 0 + display-continuation-dynamic-environment + display-continuation-dynamic-environment) + (spec: 0 flmax flmax) + (spec: + 0 + readtable-keywords-allowed?-set + readtable-keywords-allowed?-set) + (spec: 0 table-set! table-set!) + (spec: 0 deadlock-exception? deadlock-exception?) + (spec: 0 filter filter) + (spec: + 0 + invalid-utf8-encoding-exception-arguments + invalid-utf8-encoding-exception-arguments) + (spec: + 0 + no-such-file-or-directory-exception-arguments + no-such-file-or-directory-exception-arguments) + (spec: 0 fl- fl-) + (spec: + 0 + initialized-thread-exception-procedure + initialized-thread-exception-procedure) + (spec: 0 fx<= fx<=) + (spec: 0 char-set-complement! char-set-complement!) + (spec: 0 input-port-readtable-set! input-port-readtable-set!) + (spec: 0 read-file-string-list read-file-string-list) + (spec: 0 system-type system-type) + (spec: 0 fxif fxif) + (spec: 0 char-set-for-each char-set-for-each) + (spec: 0 rpc-remote-error-exception? rpc-remote-error-exception?) + (spec: 0 thread-quantum thread-quantum) + (spec: 0 drop drop) + (spec: 0 flsin flsin) + (spec: 0 s16vector-concatenate s16vector-concatenate) + (spec: + 0 + thread-state-running-processor + thread-state-running-processor) + (spec: 0 third third) + (spec: 0 sixth sixth) + (spec: 0 thread-group-suspend! thread-group-suspend!) + (spec: 0 command-args command-args) + (spec: 0 extract-bit-field extract-bit-field) + (spec: 0 with-input-from-string with-input-from-string) + (spec: 0 string-contains string-contains) + (spec: + 0 + tty-paren-balance-duration-set! + tty-paren-balance-duration-set!) + (spec: 0 fxremainder fxremainder) + (spec: 0 abort abort) + (spec: 0 char-set<= char-set<=) + (spec: 0 u16vector u16vector) + (spec: 0 path-strip-volume path-strip-volume) + (spec: 0 s32vector->list s32vector->list) + (spec: 0 list->table list->table) + (spec: + 0 + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 0 file-exists-exception? file-exists-exception?) + (spec: 0 s64vector s64vector) + (spec: 0 string->keyword string->keyword) + (spec: 0 file-info-type file-info-type) + (spec: 0 mutex-name mutex-name) + (spec: 0 u64vector-swap! u64vector-swap!) + (spec: 0 subu8vector-move! subu8vector-move!) + (spec: 0 promise? promise?) (spec: 0 digit-value digit-value) - (spec: 0 string-for-each string-for-each) + (spec: 0 bytevector-length bytevector-length) + (spec: 0 exact-integer? exact-integer?) + (spec: 0 open-binary-input-file open-binary-input-file) + (spec: 0 command-line command-line) (spec: 0 vector-copy vector-copy) - (spec: 0 exit exit) + (spec: 0 file-exists? file-exists?) + (spec: 0 vector-copy! vector-copy!) + (spec: 0 bytevector-append bytevector-append) + (spec: 0 emergency-exit emergency-exit) + (spec: 0 ceiling-quotient ceiling-quotient) + (spec: 0 input-port-open? input-port-open?) + (spec: 0 output-port-open? output-port-open?) + (spec: 0 read-u8 read-u8) + (spec: 0 inexact inexact) + (spec: 0 string->utf8 string->utf8) + (spec: 0 bytevector-copy bytevector-copy) + (spec: 0 char-foldcase char-foldcase) + (spec: 0 ceiling-remainder ceiling-remainder) (spec: 0 flush-output-port flush-output-port) (spec: 0 make-parameter make-parameter) + (spec: 0 read-string read-string) (spec: 0 string->vector string->vector) + (spec: 0 call-with-port call-with-port) + (spec: 0 bytevector? bytevector?) + (spec: 0 string-foldcase string-foldcase) + (spec: 0 string-for-each string-for-each) + (spec: 0 string-downcase string-downcase) + (spec: 0 write-bytevector write-bytevector) + (spec: 0 boolean=? boolean=?) + (spec: 0 current-error-port current-error-port) + (spec: 0 eof-object eof-object) + (spec: 0 error-object-message error-object-message) + (spec: 0 exact exact) + (spec: 0 features features) + (spec: 0 make-list make-list) + (spec: 0 bytevector-u8-ref bytevector-u8-ref) (spec: 0 floor-quotient floor-quotient) - (spec: 0 read-u8 read-u8) - (spec: 0 error-object-irritants error-object-irritants) - (spec: 0 char-foldcase char-foldcase) - (spec: 0 promise? promise?) + (spec: 0 open-binary-output-file open-binary-output-file) + (spec: 0 error-object? error-object?) + (spec: 0 delete-file delete-file) + (spec: 0 bytevector-u8-set! bytevector-u8-set!) + (spec: 0 read-bytevector read-bytevector) + (spec: 0 floor-remainder floor-remainder) + (spec: 0 get-output-bytevector get-output-bytevector) + (spec: 0 exit exit) + (spec: 0 string-map string-map) + (spec: 0 u8-ready? u8-ready?) + (spec: 0 read-bytevector! read-bytevector!) + (spec: 0 port? port?) (spec: 0 get-environment-variable get-environment-variable) - (spec: 0 truncate-remainder truncate-remainder) + (spec: 0 error-object-irritants error-object-irritants) + (spec: 0 truncate-quotient truncate-quotient) + (spec: 0 balanced-quotient balanced-quotient) + (spec: 0 read-error? read-error?) + (spec: 0 write-shared write-shared) (spec: 0 round-quotient round-quotient) - (spec: 0 balanced-remainder balanced-remainder) - (spec: 0 truncate/ truncate/) - (spec: 0 current-jiffy current-jiffy) - (spec: 0 nan? nan?) + (spec: 0 get-environment-variables get-environment-variables) + (spec: 0 make-promise make-promise) (spec: 0 write-simple write-simple) - (spec: 0 open-input-string open-input-string) - (spec: 0 make-bytevector make-bytevector) - (spec: 0 balanced/ balanced/) - (spec: 0 current-error-port current-error-port) - (spec: 0 euclidean-quotient euclidean-quotient) - (spec: 0 get-output-bytevector get-output-bytevector) + (spec: 0 write-u8 write-u8) + (spec: 0 vector-for-each vector-for-each) (spec: 0 round-remainder round-remainder) + (spec: 0 euclidean-quotient euclidean-quotient) + (spec: 0 list-copy list-copy) + (spec: 0 peek-u8 peek-u8) (spec: 0 string-upcase string-upcase) - (spec: 0 string-map string-map) - (spec: 0 vector-for-each vector-for-each) - (spec: 0 get-output-string get-output-string) - (spec: 0 truncate-quotient truncate-quotient) (spec: 0 write-string write-string) - (spec: 0 port? port?) - (spec: 0 balanced-quotient balanced-quotient) - (spec: 0 symbol=? symbol=?) - (spec: 0 write-shared write-shared) + (spec: 0 open-input-bytevector open-input-bytevector) (spec: 0 textual-port? textual-port?) - (spec: 0 finite? finite?) - (spec: 0 bytevector-copy bytevector-copy) + (spec: 0 list-set! list-set!) + (spec: 0 symbol=? symbol=?) + (spec: 0 floor/ floor/) + (spec: 0 get-output-string get-output-string) + (spec: 0 utf8->string utf8->string) + (spec: 0 file-error? file-error?) + (spec: 0 current-jiffy current-jiffy) + (spec: 0 jiffies-per-second jiffies-per-second) + (spec: 0 bytevector bytevector) + (spec: 0 nan? nan?) (spec: 0 open-output-bytevector open-output-bytevector) (spec: 0 close-port close-port) - (spec: 0 utf8->string utf8->string) - (spec: 0 current-second current-second) - (spec: 0 binary-port? binary-port?) - (spec: 0 bytevector-copy! bytevector-copy!) - (spec: 0 output-port-open? output-port-open?) - (spec: 0 ceiling-quotient ceiling-quotient) - (spec: 0 vector-append vector-append) - (spec: 0 write-u8 write-u8) - (spec: 0 exact-integer-sqrt exact-integer-sqrt) + (spec: 0 truncate-remainder truncate-remainder) (spec: 0 infinite? infinite?) - (spec: 0 file-exists? file-exists?) - (spec: 0 bytevector bytevector) - (spec: 0 jiffies-per-second jiffies-per-second) - (spec: 0 read-error? read-error?) - (spec: 0 round/ round/) - (spec: 0 euclidean-remainder euclidean-remainder) - (spec: 0 exact-integer? exact-integer?) - (spec: 0 list-set! list-set!) - (spec: 0 vector->string vector->string) - (spec: 0 bytevector-append bytevector-append) + (spec: 0 balanced-remainder balanced-remainder) + (spec: 0 vector-append vector-append) (spec: 0 vector-map vector-map) + (spec: 0 read-line read-line) + (spec: 0 open-input-string open-input-string) + (spec: 0 make-bytevector make-bytevector) + (spec: 0 round/ round/) + (spec: 0 truncate/ truncate/) + (spec: 0 balanced/ balanced/) + (spec: 0 finite? finite?) (spec: 0 square square) + (spec: 0 vector->string vector->string) + (spec: 0 string-copy! string-copy!) + (spec: 0 exact-integer-sqrt exact-integer-sqrt) + (spec: 0 euclidean-remainder euclidean-remainder) + (spec: 0 binary-port? binary-port?) + (spec: 0 bytevector-copy! bytevector-copy!) + (spec: 0 open-output-string open-output-string) + (spec: 0 ceiling/ ceiling/) (spec: 0 euclidean/ euclidean/) - (spec: 0 string-fill! string-fill!) - (spec: 0 sin sin) - (spec: 0 real? real?) - (spec: 0 cdadr cdadr) - (spec: 0 cadaar cadaar) - (spec: 0 reverse reverse) + (spec: 0 current-second current-second) + (spec: 0 string>? string>?) + (spec: 0 cdadar cdadar) + (spec: 0 interaction-environment interaction-environment) + (spec: 0 number->string number->string) + (spec: 0 caar caar) + (spec: 0 read read) (spec: 0 char-downcase char-downcase) - (spec: 0 string-ref string-ref) - (spec: 0 string? string?) - (spec: 0 abs abs) + (spec: 0 * *) + (spec: 0 reverse reverse) (spec: 0 write-char write-char) - (spec: 0 member member) - (spec: 0 cdar cdar) - (spec: 0 cadar cadar) - (spec: 0 cadadr cadadr) - (spec: 0 vector-set! vector-set!) - (spec: 0 values values) - (spec: 0 atan atan) - (spec: 0 list? list?) - (spec: 0 number->string number->string) - (spec: 0 real-part real-part) - (spec: 0 cdadar cdadar) - (spec: 0 caadr caadr) - (spec: 0 integer? integer?) - (spec: 0 list->string list->string) - (spec: 0 length length) + (spec: 0 string->list string->list) + (spec: 0 string? string?) + (spec: 0 cdaaar cdaaar) + (spec: 0 caadar caadar) + (spec: 0 char-ci>=? char-ci>=?) + (spec: 0 open-output-file open-output-file) + (spec: 0 assoc assoc) + (spec: 0 write write) + (spec: 0 / /) + (spec: 0 make-string make-string) + (spec: 0 call-with-output-file call-with-output-file) + (spec: 0 cdaadr cdaadr) + (spec: 0 max max) + (spec: 0 caaddr caaddr) + (spec: 0 negative? negative?) + (spec: 0 null? null?) + (spec: 0 real? real?) + (spec: 0 vector-fill! vector-fill!) (spec: 0 char-ci>? char-ci>?) - (spec: 0 string>=? string>=?) - (spec: 0 - -) - (spec: 0 assq assq) + (spec: 0 angle angle) + (spec: 0 string-set! string-set!) (spec: 0 even? even?) + (spec: 0 imag-part imag-part) + (spec: 0 load load) + (spec: 0 inexact->exact inexact->exact) + (spec: 0 < <) + (spec: 0 cadar cadar) + (spec: 0 member member) + (spec: 0 sin sin) + (spec: 0 cdar cdar) + (spec: 0 char-upcase char-upcase) (spec: 0 gcd gcd) - (spec: 0 list-tail list-tail) - (spec: 0 string->symbol string->symbol) - (spec: 0 zero? zero?) - (spec: 0 cdaddr cdaddr) - (spec: 0 not not) - (spec: 0 caar caar) - (spec: 0 interaction-environment interaction-environment) - (spec: 0 vector-ref vector-ref) - (spec: 0 string>? string>?) - (spec: 0 assv assv) + (spec: 0 make-polar make-polar) (spec: 0 scheme-report-environment scheme-report-environment) - (spec: 0 magnitude magnitude) - (spec: 0 string-length string-length) - (spec: 0 transcript-off transcript-off) - (spec: 0 memv memv) - (spec: 0 imag-part imag-part) - (spec: 0 number? number?) - (spec: 0 cddar cddar) - (spec: 0 list list) - (spec: 0 list->vector list->vector) - (spec: 0 string-ci<=? string-ci<=?) + (spec: 0 acos acos) + (spec: 0 peek-char peek-char) + (spec: 0 cons cons) + (spec: 0 caddar caddar) + (spec: 0 denominator denominator) + (spec: 0 read-char read-char) + (spec: 0 call-with-values call-with-values) + (spec: 0 values values) + (spec: 0 cddaar cddaar) (spec: 0 char-upper-case? char-upper-case?) - (spec: 0 inexact->exact inexact->exact) - (spec: 0 string-ciinexact exact->inexact) + (spec: 0 list? list?) + (spec: 0 atan atan) + (spec: 0 complex? complex?) + (spec: 0 cadadr cadadr) + (spec: 0 vector vector) + (spec: 0 char-numeric? char-numeric?) + (spec: 0 output-port? output-port?) + (spec: 0 cdadr cdadr) (spec: 0 with-output-to-file with-output-to-file) - (spec: 0 read read) - (spec: 0 call-with-values call-with-values) - (spec: 0 cddaar cddaar) + (spec: 0 string-ci=? string-ci=?) + (spec: 0 truncate truncate) + (spec: 0 > >) + (spec: 0 cadr cadr) + (spec: 0 car car) + (spec: 0 integer->char integer->char) + (spec: 0 numerator numerator) + (spec: 0 list list) + (spec: 0 char-ready? char-ready?) + (spec: 0 open-input-file open-input-file) + (spec: 0 cdddar cdddar) + (spec: 0 append append) + (spec: 0 char<=? char<=?) + (spec: 0 exp exp) + (spec: 0 make-rectangular make-rectangular) + (spec: 0 inexact? inexact?) + (spec: 0 make-vector make-vector) + (spec: 0 procedure? procedure?) + (spec: 0 <= <=) + (spec: 0 string-append string-append) + (spec: 0 display display) + (spec: + 0 + call-with-current-continuation + call-with-current-continuation) + (spec: 0 equal? equal?) + (spec: 0 cddddr cddddr) (spec: 0 floor floor) - (spec: 0 caddar caddar) - (spec: 0 output-port? output-port?) - (spec: 0 string-set! string-set!) - (spec: 0 load load) - (spec: 0 angle angle) + (spec: 0 char->integer char->integer) + (spec: 0 charvector list->vector) + (spec: 0 modulo modulo) + (spec: 0 string-ci<=? string-ci<=?) + (spec: 0 current-output-port current-output-port) (spec: 0 boolean? boolean?) + (spec: 0 = =) (spec: 0 memq memq) - (spec: 0 substring substring) - (spec: 0 cddadr cddadr) - (spec: 0 input-port? input-port?) + (spec: 0 string-length string-length) (spec: 0 cadddr cadddr) - (spec: 0 vector-fill! vector-fill!) - (spec: 0 exp exp) - (spec: 0 make-polar make-polar) - (spec: 0 acos acos) - (spec: 0 char-upcase char-upcase) - (spec: 0 char? string-ci>?) + (spec: 0 transcript-on transcript-on) + (spec: 0 memv memv) (spec: 0 quotient quotient) + (spec: 0 number? number?) + (spec: 0 caddr caddr) + (spec: 0 eq? eq?) + (spec: 0 sqrt sqrt) + (spec: 0 cddar cddar) + (spec: 0 asin asin) + (spec: 0 char-whitespace? char-whitespace?) + (spec: 0 string<=? string<=?) + (spec: 0 vector? vector?) + (spec: 0 current-input-port current-input-port) (spec: 0 rational? rational?) - (spec: 0 cddr cddr) - (spec: 0 string-append string-append) - (spec: 0 caaaar caaaar) - (spec: 0 call-with-input-file call-with-input-file) - (spec: 0 string-ci>=? string-ci>=?) - (spec: 0 char->integer char->integer) - (spec: 0 char-ready? char-ready?) + (spec: 0 set-car! set-car!) + (spec: 0 string>=? string>=?) + (spec: 0 symbol? symbol?) + (spec: 0 integer? integer?) + (spec: 0 caaadr caaadr) + (spec: 0 cdr cdr) + (spec: 0 char-ci? char>?) + (spec: 0 for-each for-each) + (spec: 0 round round) + (spec: 0 dynamic-wind dynamic-wind) + (spec: 0 rationalize rationalize) + (spec: 0 >= >=) + (spec: 0 set-cdr! set-cdr!) + (spec: 0 stringstring symbol->string) + (spec: 0 real-part real-part) + (spec: 0 null-environment null-environment) + (spec: 0 caaar caaar) + (spec: 0 ceiling ceiling) + (spec: 0 char-ci=? char-ci=?) + (spec: 0 char? char?) + (spec: 0 exact? exact?) (spec: 0 force force) - (spec: 0 = =) (spec: 0 lcm lcm) - (spec: 0 char=? char=?) (spec: 0 list-ref list-ref) - (spec: 0 log log) - (spec: 0 inexact? inexact?) - (spec: 0 rationalize rationalize) (spec: 0 string string) - (spec: 0 string-ci>? string-ci>?) - (spec: 0 vector->list vector->list) - (spec: 0 equal? equal?) + (spec: 0 string-ci>=? string-ci>=?) + (spec: 0 with-input-from-file with-input-from-file) + (spec: 0 min min) + (spec: 0 call-with-input-file call-with-input-file) + (spec: 0 string=? string=?) + (spec: 0 zero? zero?) + (spec: 0 newline newline) + (spec: 0 eval eval) + (spec: 0 length length) + (spec: 0 pair? pair?) + (spec: 0 cdddr cdddr) (spec: 0 char-alphabetic? char-alphabetic?) - (spec: 0 vector-length vector-length) + (spec: 0 char=? char=?) (spec: 0 close-input-port close-input-port) + (spec: 0 + +) (spec: 0 positive? positive?) - (spec: 0 expt expt) - (spec: 0 char-whitespace? char-whitespace?) - (spec: 0 modulo modulo) - (spec: 0 string-ci=? string-ci=?) - (spec: 0 cons cons) - (spec: 0 cos cos) - (spec: 0 make-vector make-vector) - (spec: 0 set-cdr! set-cdr!) - (spec: 0 cddddr cddddr) - (spec: 0 read-char read-char) - (spec: 0 cadr cadr) - (spec: 0 truncate truncate) - (spec: 0 char-lower-case? char-lower-case?) - (spec: 0 < <) - (spec: 0 append append) - (spec: 0 char<=? char<=?) - (spec: 0 vector? vector?) - (spec: 0 min min) - (spec: 0 tan tan) - (spec: 0 cdddr cdddr) - (spec: 0 newline newline) - (spec: - 0 - call-with-current-continuation - call-with-current-continuation) - (spec: 0 denominator denominator) - (spec: 0 eq? eq?) - (spec: 0 remainder remainder) - (spec: 0 for-each for-each) - (spec: 0 char-numeric? char-numeric?) - (spec: 0 open-input-file open-input-file) - (spec: 0 <= <=) - (spec: 0 make-rectangular make-rectangular) - (spec: 0 procedure? procedure?) - (spec: 0 round round) - (spec: 0 vector vector) - (spec: 0 dynamic-wind dynamic-wind) - (spec: 0 negative? negative?) - (spec: 0 max max) - (spec: 0 call-with-output-file call-with-output-file) - (spec: 0 cdaadr cdaadr) - (spec: 0 null? null?) - (spec: 0 caadar caadar) - (spec: 0 ceiling ceiling) - (spec: 0 char-ci=? char-ci=?) - (spec: 0 * *) - (spec: 0 char? char?) - (spec: 0 exact? exact?) - (spec: 0 string->list string->list) - (spec: 0 string=? string=?) - (spec: 0 symbol? symbol?) - (spec: 0 with-input-from-file with-input-from-file) - (spec: 0 eval eval) - (spec: 0 odd? odd?) - (spec: 0 cdaar cdaar) - (spec: 0 caaddr caaddr) - (spec: 0 open-output-file open-output-file) - (spec: 0 char-ci>=? char-ci>=?) - (spec: 0 write write) - (spec: 0 + +) - (spec: 0 assoc assoc) - (spec: 0 string-copy string-copy) - (spec: 0 char>=? char>=?) - (spec: 0 make-string make-string) - (spec: 0 current-output-port current-output-port) + (spec: 0 log log) (spec: 0 string->number string->number) - (spec: 0 symbol->string symbol->string) - (spec: 0 null-environment null-environment) - (spec: 0 display display) - (spec: 0 caaadr caaadr) - (spec: 0 integer->char integer->char) - (spec: 0 pair? pair?) + (spec: 0 string-copy string-copy) + (spec: 0 map map) + (spec: 0 vector->list vector->list) + (spec: 0 vector-length vector-length) + (spec: 0 caaaar caaaar) + (spec: 0 eqv? eqv?) + (spec: 0 cddr cddr) (spec: 0 char-ci<=? char-ci<=?) - (spec: 0 sqrt sqrt) + (spec: 0 char>=? char>=?) + (spec: 0 assq assq) (spec: 0 close-output-port close-output-port) - (spec: 0 > >) - (spec: 0 string<=? string<=?) - (spec: 0 asin asin) - (spec: 0 cdaaar cdaaar) - (spec: 0 caaar caaar) - (spec: 0 eqv? eqv?) - (spec: 0 cdr cdr) - (spec: 0 char-ci? char>?) - (spec: 0 string= >=) - (spec: 0 R5RSRuntime R5RSRuntime) + (spec: 0 - -) + (spec: 0 list->string list->string) + (spec: 0 list-tail list-tail) + (spec: 0 string->symbol string->symbol) + (spec: 0 cdaar cdaar) + (spec: 0 caadr caadr) + (spec: 0 odd? odd?) + (spec: 0 assv assv) + (spec: 0 magnitude magnitude) + (spec: 0 vector-ref vector-ref) (spec: 0 R7RSRuntime R7RSRuntime) - (spec: 0 Runtime Runtime) + (spec: 0 R5RSRuntime R5RSRuntime) (spec: 0 RuntimeAliases RuntimeAliases) - (spec: 0 GerbilRuntime GerbilRuntime) (spec: 0 GambitRuntime GambitRuntime) + (spec: 0 Runtime Runtime) + (spec: 0 GerbilRuntime GerbilRuntime) (spec: 0 %%app-dotted %%app) (spec: 0 %%ref-dotted %%ref) (spec: 0 %%set-dotted! set!) @@ -2927,520 +2927,520 @@ namespace: gerbil/core (spec: 0 defmethod/c defmethod) (spec: 0 defclass/c defclass) (spec: 0 defstruct/c defstruct) - (spec: 1 identifier-rules identifier-rules) (spec: 1 quasisyntax quasisyntax) - (spec: 1 macro-object-macro-set! macro-object-macro-set!) - (spec: 1 ¯o-object-macro ¯o-object-macro) + (spec: 1 identifier-rules identifier-rules) (spec: 1 macro-object macro-object) - (spec: 1 make-macro-object make-macro-object) + (spec: 1 macro-object-macro macro-object-macro) + (spec: 1 ¯o-object-macro ¯o-object-macro) + (spec: 1 ¯o-object-macro-set! ¯o-object-macro-set!) + (spec: 1 macro-object::t macro-object::t) + (spec: 1 macro-object? macro-object?) (spec: 1 macro-object::apply-macro-expander macro-object::apply-macro-expander) - (spec: 1 ¯o-object-macro-set! ¯o-object-macro-set!) - (spec: 1 macro-object? macro-object?) - (spec: 1 macro-object-macro macro-object-macro) - (spec: 1 macro-object::t macro-object::t) + (spec: 1 make-macro-object make-macro-object) + (spec: 1 macro-object-macro-set! macro-object-macro-set!) (spec: 1 syntax-rules syntax-rules) - (spec: 1 with-syntax* with-syntax*) - (spec: 1 with-syntax with-syntax) (spec: 1 syntax/loc syntax/loc) + (spec: 1 with-syntax with-syntax) + (spec: 1 with-syntax* with-syntax*) (spec: 1 syntax syntax) (spec: 1 syntax-case syntax-case) - (spec: 1 core-resolve-module-export core-resolve-module-export) - (spec: 1 module-export-name module-export-name) - (spec: 1 core-module-export->import core-module-export->import) - (spec: 1 make-module-import make-module-import) - (spec: 1 stx-foldl stx-foldl) - (spec: 1 current-expander-context current-expander-context) - (spec: 1 export-set-source export-set-source) - (spec: 1 stx-null? stx-null?) - (spec: 1 free-identifier=? free-identifier=?) - (spec: 1 import-set-source import-set-source) - (spec: 1 syntax-local-introduce syntax-local-introduce) - (spec: 1 gentemps gentemps) + (spec: 1 stx-last stx-last) + (spec: 1 local-context? local-context?) (spec: 1 core-context-top core-context-top) - (spec: 1 module-import? module-import?) - (spec: 1 core-resolve-module-path core-resolve-module-path) - (spec: 1 stx-identifier stx-identifier) - (spec: 1 stx-char? stx-char?) - (spec: 1 eval-module eval-module) - (spec: 1 module-binding? module-binding?) + (spec: 1 module-import-name module-import-name) + (spec: 1 core-expand-import-source core-expand-import-source) + (spec: 1 module-export? module-export?) + (spec: 1 stx-pair? stx-pair?) + (spec: 1 stx-fixnum? stx-fixnum?) + (spec: 1 stx-wrap-source stx-wrap-source) + (spec: 1 module-context? module-context?) + (spec: 1 expander-binding-e expander-binding-e) + (spec: 1 identifier-list? identifier-list?) + (spec: 1 stx-reverse stx-reverse) + (spec: 1 core-library-module-path? core-library-module-path?) + (spec: 1 datum->syntax datum->syntax) + (spec: 1 stx-null? stx-null?) (spec: 1 core-apply-expander core-apply-expander) - (spec: 1 syntax-local-unwrap syntax-local-unwrap) - (spec: 1 stx-foldr stx-foldr) + (spec: 1 stx-list-ref stx-list-ref) + (spec: 1 stx-eqv? stx-eqv?) + (spec: 1 import-binding-e import-binding-e) (spec: 1 syntax-pattern-id syntax-pattern-id) - (spec: 1 make-export-expander make-export-expander) - (spec: 1 module-export-weak? module-export-weak?) + (spec: 1 ellipsis? ellipsis?) + (spec: 1 top-context? top-context?) + (spec: 1 stx-string? stx-string?) + (spec: 1 stx-number? stx-number?) + (spec: 1 expander? expander?) + (spec: 1 syntax-local-e syntax-local-e) + (spec: 1 import-binding? import-binding?) + (spec: 1 expander-e expander-e) + (spec: 1 module-import? module-import?) + (spec: 1 export-set-source export-set-source) + (spec: 1 prelude-context? prelude-context?) (spec: 1 make-module-export make-module-export) - (spec: 1 stx-length stx-length) - (spec: 1 stx-for-each stx-for-each) - (spec: 1 binding? binding?) - (spec: 1 expander-binding-e expander-binding-e) - (spec: 1 export-set-phi export-set-phi) - (spec: 1 export-set-exports export-set-exports) - (spec: 1 core-resolve-identifier core-resolve-identifier) + (spec: 1 module-import-weak? module-import-weak?) + (spec: 1 module-context-import module-context-import) + (spec: 1 current-expander-compiling? current-expander-compiling?) + (spec: 1 stx-keyword? stx-keyword?) (spec: 1 stx-false? stx-false?) + (spec: 1 make-local-context make-local-context) + (spec: 1 core-expand-head core-expand-head) + (spec: 1 stx-source stx-source) + (spec: 1 resolve-identifier resolve-identifier) + (spec: 1 module-binding? module-binding?) + (spec: 1 stx-foldl stx-foldl) + (spec: 1 binding? binding?) + (spec: 1 import-set-source import-set-source) (spec: 1 core-expand-export-source core-expand-export-source) - (spec: 1 stx-string? stx-string?) - (spec: 1 syntax-split-splice syntax-split-splice) - (spec: 1 stx-cdr stx-cdr) - (spec: 1 syntax-pattern-depth syntax-pattern-depth) - (spec: 1 core-identifier=? core-identifier=?) - (spec: 1 extern-binding? extern-binding?) - (spec: 1 make-user-expander make-user-expander) - (spec: 1 import-set-phi import-set-phi) - (spec: 1 import-module import-module) - (spec: 1 current-expander-compiling? current-expander-compiling?) - (spec: 1 module-context-ns module-context-ns) - (spec: 1 stx-map stx-map) + (spec: 1 export-expander? export-expander?) + (spec: 1 stx-char? stx-char?) + (spec: 1 stx-ormap stx-ormap) + (spec: 1 free-identifier=? free-identifier=?) + (spec: 1 identifier? identifier?) + (spec: 1 core-identifier-key core-identifier-key) + (spec: 1 stx-last-pair stx-last-pair) + (spec: 1 current-module-reader-args current-module-reader-args) + (spec: 1 module-import-phi module-import-phi) (spec: 1 module-import-source module-import-source) - (spec: 1 prelude-context? prelude-context?) - (spec: 1 core-library-module-path? core-library-module-path?) - (spec: 1 make-import-expander make-import-expander) - (spec: 1 syntax-binding-e syntax-binding-e) - (spec: 1 current-expander-marks current-expander-marks) + (spec: 1 import-set? import-set?) + (spec: 1 genident genident) + (spec: 1 stx-plist? stx-plist?) + (spec: 1 binding-id binding-id) (spec: 1 stx-vector? stx-vector?) - (spec: 1 syntax-local-e syntax-local-e) - (spec: 1 import-binding-e import-binding-e) - (spec: 1 user-expander-phi user-expander-phi) - (spec: 1 core-expand-expression+1 core-expand-expression+1) - (spec: 1 stx-pair/null? stx-pair/null?) - (spec: 1 stx-andmap stx-andmap) - (spec: 1 macro-expand-syntax macro-expand-syntax) - (spec: 1 core-expand-head core-expand-head) - (spec: 1 datum->syntax datum->syntax) - (spec: 1 syntax-pattern? syntax-pattern?) + (spec: 1 import-export-expander? import-export-expander?) + (spec: 1 stx-cdr stx-cdr) (spec: 1 core-resolve-library-module-path core-resolve-library-module-path) - (spec: 1 expander? expander?) - (spec: 1 module-context-code module-context-code) - (spec: 1 binding-id binding-id) - (spec: 1 stx-pair? stx-pair?) - (spec: 1 module-export-phi module-export-phi) - (spec: 1 syntax-local-pattern? syntax-local-pattern?) - (spec: 1 identifier? identifier?) - (spec: 1 stx-car stx-car) - (spec: 1 module-context? module-context?) - (spec: 1 make-import-export-expander make-import-export-expander) - (spec: 1 check-duplicate-identifiers check-duplicate-identifiers) - (spec: 1 user-expander-context user-expander-context) - (spec: 1 export-set? export-set?) - (spec: 1 stx-list? stx-list?) - (spec: 1 import-set? import-set?) - (spec: 1 stx-getq stx-getq) - (spec: 1 stx-last-pair stx-last-pair) - (spec: 1 stx-last stx-last) - (spec: 1 raise-syntax-error raise-syntax-error) - (spec: 1 import-expander? import-expander?) + (spec: 1 stx-identifier stx-identifier) + (spec: 1 syntax-local-introduce syntax-local-introduce) + (spec: 1 core-identifier=? core-identifier=?) (spec: 1 syntax->datum syntax->datum) - (spec: 1 stx-ormap stx-ormap) - (spec: 1 alias-binding-e alias-binding-e) - (spec: 1 stx-fixnum? stx-fixnum?) - (spec: 1 stx-box? stx-box?) - (spec: 1 expander-binding? expander-binding?) - (spec: 1 stx-reverse stx-reverse) - (spec: 1 current-expander-path current-expander-path) - (spec: 1 syntax-local-rewrap syntax-local-rewrap) - (spec: 1 stx-source stx-source) - (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) - (spec: 1 expander-context-id expander-context-id) - (spec: 1 module-import-name module-import-name) - (spec: 1 local-context? local-context?) - (spec: 1 resolve-identifier resolve-identifier) - (spec: 1 export-expander? export-expander?) - (spec: 1 core-quote-syntax core-quote-syntax) - (spec: 1 module-import-weak? module-import-weak?) - (spec: 1 module-context-import module-context-import) - (spec: 1 stx-boolean? stx-boolean?) - (spec: 1 syntax-local-value syntax-local-value) - (spec: 1 module-import-phi module-import-phi) - (spec: 1 module-export? module-export?) - (spec: 1 current-module-reader-path current-module-reader-path) - (spec: 1 stx-number? stx-number?) + (spec: 1 import-expander? import-expander?) + (spec: 1 syntax-pattern? syntax-pattern?) + (spec: 1 raise-syntax-error raise-syntax-error) + (spec: 1 core-resolve-identifier core-resolve-identifier) (spec: 1 module-export-key module-export-key) + (spec: 1 current-expander-phi current-expander-phi) + (spec: 1 make-user-expander make-user-expander) + (spec: 1 stx-foldr stx-foldr) + (spec: 1 stx-datum? stx-datum?) + (spec: 1 syntax-pattern-depth syntax-pattern-depth) + (spec: 1 stx-map stx-map) + (spec: 1 current-expander-context current-expander-context) + (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) + (spec: 1 export-set-phi export-set-phi) + (spec: 1 export-set-exports export-set-exports) + (spec: 1 syntax-local-pattern? syntax-local-pattern?) (spec: 1 user-expander? user-expander?) - (spec: 1 stx-wrap-source stx-wrap-source) - (spec: 1 import-set-imports import-set-imports) - (spec: 1 core-expand-import-source core-expand-import-source) - (spec: 1 runtime-binding? runtime-binding?) - (spec: 1 import-export-expander? import-export-expander?) - (spec: 1 core-expand core-expand) - (spec: 1 top-binding? top-binding?) + (spec: 1 make-export-expander make-export-expander) + (spec: 1 bound-identifier=? bound-identifier=?) + (spec: 1 gentemps gentemps) + (spec: 1 syntax-local-unwrap syntax-local-unwrap) + (spec: 1 stx-getq stx-getq) (spec: 1 feature-expander? feature-expander?) - (spec: 1 genident genident) - (spec: 1 stx-keyword? stx-keyword?) - (spec: 1 core-identifier-key core-identifier-key) - (spec: 1 syntax-e syntax-e) - (spec: 1 stx-e stx-e) - (spec: 1 expander-e expander-e) - (spec: 1 ellipsis? ellipsis?) - (spec: 1 module-export-context module-export-context) - (spec: 1 identifier-list? identifier-list?) - (spec: 1 syntax-error? syntax-error?) - (spec: 1 module-context-export module-context-export) - (spec: 1 stx-eq? stx-eq?) - (spec: 1 syntax-binding? syntax-binding?) - (spec: 1 stx-eqv? stx-eqv?) - (spec: 1 stx-list-tail stx-list-tail) - (spec: 1 alias-binding? alias-binding?) (spec: 1 stx-equal? stx-equal?) - (spec: 1 top-context? top-context?) - (spec: 1 syntax->list syntax->list) - (spec: 1 current-expander-phi current-expander-phi) + (spec: 1 module-context-export module-context-export) + (spec: 1 stx-box? stx-box?) (spec: 1 make-syntax-pattern make-syntax-pattern) - (spec: 1 bound-identifier=? bound-identifier=?) + (spec: 1 module-export-weak? module-export-weak?) + (spec: 1 make-module-import make-module-import) + (spec: 1 extern-binding? extern-binding?) + (spec: 1 export-set? export-set?) + (spec: 1 stx-for-each stx-for-each) (spec: 1 underscore? underscore?) - (spec: 1 make-local-context make-local-context) - (spec: 1 stx-plist? stx-plist?) + (spec: 1 module-context-code module-context-code) + (spec: 1 user-expander-context user-expander-context) + (spec: 1 core-resolve-module-export core-resolve-module-export) + (spec: 1 top-binding? top-binding?) + (spec: 1 stx-length stx-length) + (spec: 1 user-expander-phi user-expander-phi) + (spec: 1 stx-list-tail stx-list-tail) + (spec: 1 module-export-context module-export-context) + (spec: 1 import-set-phi import-set-phi) + (spec: 1 module-context-ns module-context-ns) + (spec: 1 current-expander-marks current-expander-marks) + (spec: 1 core-quote-syntax core-quote-syntax) + (spec: 1 syntax-local-rewrap syntax-local-rewrap) + (spec: 1 runtime-binding? runtime-binding?) + (spec: 1 alias-binding-e alias-binding-e) + (spec: 1 module-export-phi module-export-phi) + (spec: 1 module-export-name module-export-name) + (spec: 1 current-expander-path current-expander-path) + (spec: 1 syntax->list syntax->list) + (spec: 1 syntax-split-splice syntax-split-splice) + (spec: 1 core-module-export->import core-module-export->import) + (spec: 1 core-resolve-module-path core-resolve-module-path) + (spec: 1 stx-e stx-e) + (spec: 1 syntax-e syntax-e) + (spec: 1 stx-boolean? stx-boolean?) + (spec: 1 syntax-binding-e syntax-binding-e) + (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) + (spec: 1 macro-expand-syntax macro-expand-syntax) + (spec: 1 import-module import-module) + (spec: 1 make-import-expander make-import-expander) + (spec: 1 stx-car stx-car) + (spec: 1 alias-binding? alias-binding?) + (spec: 1 stx-eq? stx-eq?) + (spec: 1 expander-binding? expander-binding?) + (spec: 1 syntax-binding? syntax-binding?) + (spec: 1 syntax-error? syntax-error?) + (spec: 1 expander-context-id expander-context-id) + (spec: 1 stx-list? stx-list?) + (spec: 1 core-expand core-expand) + (spec: 1 syntax-local-value syntax-local-value) + (spec: 1 core-expand-expression+1 core-expand-expression+1) + (spec: 1 stx-andmap stx-andmap) + (spec: 1 eval-module eval-module) (spec: 1 eval-syntax eval-syntax) - (spec: 1 stx-list-ref stx-list-ref) - (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) - (spec: 1 import-binding? import-binding?) - (spec: 1 stx-datum? stx-datum?) - (spec: 1 current-module-reader-args current-module-reader-args) - (spec: 1 SyntaxSugar SyntaxSugar) + (spec: 1 current-module-reader-path current-module-reader-path) + (spec: 1 make-import-export-expander make-import-export-expander) + (spec: 1 import-set-imports import-set-imports) + (spec: 1 stx-pair/null? stx-pair/null?) + (spec: 1 check-duplicate-identifiers check-duplicate-identifiers) (spec: 1 SyntaxCase SyntaxCase) + (spec: 1 SyntaxSugar SyntaxSugar) (spec: 1 ExpanderRuntime ExpanderRuntime) (spec: 2 !class-precedence-list !class-precedence-list) - (spec: 2 type-env-checked? type-env-checked?) - (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-checked?-set! &type-env-checked?-set!) - (spec: 2 &type-env-super-set! &type-env-super-set!) (spec: 2 current-type-env current-type-env) + (spec: 2 type-env type-env) + (spec: 2 &type-env-super &type-env-super) + (spec: 2 type-env::t type-env::t) + (spec: 2 &type-env-var &type-env-var) (spec: 2 type-env-var-set! type-env-var-set!) - (spec: 2 type-env-super type-env-super) (spec: 2 type-env-super-set! type-env-super-set!) (spec: 2 type-env-type-set! type-env-type-set!) - (spec: 2 type-env-var type-env-var) - (spec: 2 &type-env-var-set! &type-env-var-set!) - (spec: 2 &type-env-var &type-env-var) - (spec: 2 type-env::t type-env::t) - (spec: 2 make-type-env make-type-env) (spec: 2 type-env-type type-env-type) - (spec: 2 &type-env-super &type-env-super) - (spec: 2 type-env? type-env?) - (spec: 2 type-env-lookup type-env-lookup) + (spec: 2 &type-env-var-set! &type-env-var-set!) (spec: 2 &type-env-type &type-env-type) - (spec: 2 type-env type-env) + (spec: 2 type-env-lookup type-env-lookup) + (spec: 2 type-env-var type-env-var) + (spec: 2 &type-env-checked?-set! &type-env-checked?-set!) + (spec: 2 &type-env-checked? &type-env-checked?) + (spec: 2 type-env-checked? type-env-checked?) + (spec: 2 &type-env-super-set! &type-env-super-set!) + (spec: 2 make-type-env make-type-env) (spec: 2 type-env-checked?-set! type-env-checked?-set!) + (spec: 2 type-env-super type-env-super) (spec: 2 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) (spec: 2 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + interface-info-instance-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) (spec: 2 - interface-info-instance-constructor - interface-info-instance-constructor) - (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) + &interface-info-interface-descriptor + &interface-info-interface-descriptor) (spec: 2 - interface-info-interface-methods-set! - interface-info-interface-methods-set!) + &interface-info-instance-try-constructor-set! + &interface-info-instance-try-constructor-set!) + (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) (spec: 2 - &interface-info-interface-descriptor-set! - &interface-info-interface-descriptor-set!) + &interface-info-interface-methods + &interface-info-interface-methods) (spec: 2 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) (spec: 2 - &interface-info-interface-descriptor - &interface-info-interface-descriptor) + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) (spec: 2 &interface-info-unchecked-implementation-methods-set! &interface-info-unchecked-implementation-methods-set!) - (spec: 2 interface-info? interface-info?) + (spec: 2 &interface-info-instance-type &interface-info-instance-type) (spec: 2 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) (spec: 2 - &interface-info-instance-constructor - &interface-info-instance-constructor) - (spec: 2 &interface-info-name-set! &interface-info-name-set!) + &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-set! + &interface-info-interface-methods-set!) + (spec: 2 interface-info::t interface-info::t) (spec: 2 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + &interface-info-instance-type-set! + &interface-info-instance-type-set!) (spec: 2 - interface-info-instance-type-set! - interface-info-instance-type-set!) + interface-info::apply-macro-expander + interface-info::apply-macro-expander) + (spec: 2 interface-info-flatten-mixin interface-info-flatten-mixin) (spec: 2 - interface-info-interface-descriptor - interface-info-interface-descriptor) + interface-info-interface-methods-set! + interface-info-interface-methods-set!) (spec: 2 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) - (spec: 2 interface-info interface-info) + interface-info-interface-mixin + interface-info-interface-mixin) (spec: 2 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) + interface-info-instance-try-constructor + interface-info-instance-try-constructor) + (spec: 2 interface-info interface-info) (spec: 2 - &interface-info-implementation-methods - &interface-info-implementation-methods) + interface-info-instance-type-set! + interface-info-instance-type-set!) (spec: 2 - interface-info-instance-predicate - interface-info-instance-predicate) + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) (spec: 2 - interface-info-interface-methods - interface-info-interface-methods) - (spec: 2 interface-info-flatten-mixin interface-info-flatten-mixin) + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) (spec: 2 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) + &interface-info-instance-try-constructor + &interface-info-instance-try-constructor) (spec: 2 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-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-implementation-methods-set! - &interface-info-implementation-methods-set!) + &interface-info-instance-predicate + &interface-info-instance-predicate) (spec: 2 - interface-info-interface-mixin - interface-info-interface-mixin) + &interface-info-implementation-methods + &interface-info-implementation-methods) (spec: 2 interface-info-instance-type interface-info-instance-type) - (spec: 2 interface-info-name-set! interface-info-name-set!) (spec: 2 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) + interface-info-implementation-methods + interface-info-implementation-methods) (spec: 2 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) + interface-info-interface-descriptor + interface-info-interface-descriptor) (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-name &interface-info-name) (spec: 2 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) + &interface-info-instance-constructor + &interface-info-instance-constructor) (spec: 2 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) + interface-info-interface-methods + interface-info-interface-methods) + (spec: 2 &interface-info-name-set! &interface-info-name-set!) (spec: 2 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) (spec: 2 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) (spec: 2 - &interface-info-interface-mixin - &interface-info-interface-mixin) + interface-info-instance-predicate + interface-info-instance-predicate) + (spec: 2 interface-info? interface-info?) (spec: 2 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) + &interface-info-interface-mixin + &interface-info-interface-mixin) + (spec: 2 interface-info-name interface-info-name) (spec: 2 - interface-info-instance-predicate-set! - interface-info-instance-predicate-set!) - (spec: 2 interface-info::t interface-info::t) - (spec: 2 &interface-info-instance-type &interface-info-instance-type) + &interface-info-interface-descriptor-set! + &interface-info-interface-descriptor-set!) (spec: 2 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) + interface-info-instance-constructor + interface-info-instance-constructor) (spec: 2 - &interface-info-instance-try-constructor - &interface-info-instance-try-constructor) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) (spec: 2 make-interface-info make-interface-info) (spec: 2 - &interface-info-interface-methods - &interface-info-interface-methods) - (spec: 2 interface-info-name interface-info-name) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) (spec: 2 - &interface-info-instance-try-constructor-set! - &interface-info-instance-try-constructor-set!) + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) (spec: 2 - interface-info-implementation-methods - interface-info-implementation-methods) - (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-predicate - &interface-info-instance-predicate) + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) (spec: 2 is-signature? is-signature?) - (spec: 1 def/c def/c) + (spec: 1 case-lambda/c case-lambda/c) + (spec: 1 def*/c def*/c) + (spec: 1 defmethod/c defmethod/c) + (spec: 1 with-procedure-signature with-procedure-signature) (spec: 1 with-procedure-unchecked-contract with-procedure-unchecked-contract) - (spec: 1 with-procedure-signature with-procedure-signature) - (spec: 1 case-lambda/c case-lambda/c) - (spec: 1 defmethod/c defmethod/c) - (spec: 1 let/c let/c) + (spec: 1 with-procedure-contract with-procedure-contract) + (spec: 1 def/c def/c) (spec: 1 defstruct/c defstruct/c) (spec: 1 defclass/c defclass/c) - (spec: 1 def*/c def*/c) (spec: 1 lambda/c lambda/c) - (spec: 1 with-procedure-contract with-procedure-contract) - (spec: 2 signature-keywords signature-keywords) - (spec: 2 make-procedure-contract make-procedure-contract) - (spec: 2 signature-contract? signature-contract?) - (spec: - 2 - check-signature-contract-types! - check-signature-contract-types!) + (spec: 1 let/c let/c) + (spec: 2 contract-type-subtype? contract-type-subtype?) + (spec: 2 symboltype-descriptor resolve-type->type-descriptor) (spec: 2 type-reference? type-reference?) - (spec: 2 resolve-type->identifier resolve-type->identifier) + (spec: 2 type-reference-identifier type-reference-identifier) + (spec: 2 resolve-type resolve-type) + (spec: 2 type-identifier? type-identifier?) (spec: 2 type-reference::t type-reference::t) (spec: 2 make-type-reference make-type-reference) - (spec: - 2 - type-reference-identifier-set! - type-reference-identifier-set!) - (spec: 2 type-reference type-reference) - (spec: 2 type-identifier? type-identifier?) - (spec: 2 type-reference-identifier type-reference-identifier) + (spec: 2 resolve-type->identifier resolve-type->identifier) (spec: 2 &type-reference-identifier &type-reference-identifier) - (spec: 2 resolve-type resolve-type) + (spec: 2 resolve-type->type-descriptor resolve-type->type-descriptor) (spec: 1 deftype deftype) (spec: 1 Using Using) - (spec: 1 ContractRules ContractRules) - (spec: 1 TypedDefinitions TypedDefinitions) - (spec: 1 ClassMeta ClassMeta) - (spec: 1 InterfaceInfo InterfaceInfo) + (spec: 1 TypeReference TypeReference) (spec: 1 TypeEnv TypeEnv) - (spec: 1 Interface Interface) + (spec: 1 ClassMeta ClassMeta) (spec: 1 TypeCast TypeCast) - (spec: 1 TypeReference TypeReference) - (spec: 2 syntax-local-setq-macro? syntax-local-setq-macro?) + (spec: 1 Interface Interface) + (spec: 1 TypedDefinitions TypedDefinitions) + (spec: 1 ContractRules ContractRules) + (spec: 1 InterfaceInfo InterfaceInfo) + (spec: 2 expand-set! expand-set!) + (spec: 2 setq-macro setq-macro) + (spec: 2 setq-macro-macro setq-macro-macro) + (spec: 2 setq-macro? setq-macro?) + (spec: 2 syntax-local-setf-macro? syntax-local-setf-macro?) + (spec: 2 setf-macro? setf-macro?) (spec: 2 setq-macro::t setq-macro::t) (spec: 2 &setq-macro-macro &setq-macro-macro) (spec: 2 setf-macro-macro-set! setf-macro-macro-set!) - (spec: 2 &setf-macro-macro-set! &setf-macro-macro-set!) - (spec: 2 expand-set! expand-set!) - (spec: 2 setq-macro? setq-macro?) - (spec: 2 setq-macro-macro setq-macro-macro) (spec: 2 make-setq-macro make-setq-macro) - (spec: 2 setq-macro-macro-set! setq-macro-macro-set!) - (spec: 2 &setq-macro-macro-set! &setq-macro-macro-set!) - (spec: 2 syntax-local-setf-macro? syntax-local-setf-macro?) (spec: 2 setf-macro-macro setf-macro-macro) - (spec: 2 setq-macro setq-macro) + (spec: 2 &setq-macro-macro-set! &setq-macro-macro-set!) + (spec: 2 syntax-local-setq-macro? syntax-local-setq-macro?) + (spec: 2 &setf-macro-macro-set! &setf-macro-macro-set!) (spec: 2 setf-macro setf-macro) + (spec: 2 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 2 make-setf-macro make-setf-macro) (spec: 2 &setf-macro-macro &setf-macro-macro) (spec: 2 setf-macro::t setf-macro::t) - (spec: 2 make-setf-macro make-setf-macro) - (spec: 2 setf-macro? setf-macro?) + (spec: 1 let/cc let/cc) (spec: 1 parameterize parameterize) - (spec: 1 values-set! values-set!) (spec: 1 eval-when-compile eval-when-compile) - (spec: 1 let/cc let/cc) + (spec: 1 values-set! values-set!) (spec: 1 unwind-protect unwind-protect) (spec: 1 @bytes @bytes) (spec: 2 match-pattern? match-pattern?) @@ -3449,2540 +3449,2540 @@ namespace: gerbil/core (spec: 2 make-match-macro make-match-macro) (spec: 2 match-macro::t match-macro::t) (spec: 2 match-macro match-macro) - (spec: 1 match match) (spec: 1 defsyntax-for-match defsyntax-for-match) (spec: 1 with with) - (spec: 1 ? ?) + (spec: 1 match match) (spec: 1 match* match*) (spec: 1 defrules-for-match defrules-for-match) + (spec: 1 ? ?) (spec: 1 with* with*) + (spec: 2 :boolean :boolean) + (spec: 2 :writeenv :writeenv) + (spec: 2 :pair :pair) + (spec: 2 :immediate :immediate) (spec: 2 defsystem-class-info defsystem-class-info) - (spec: 2 class class) - (spec: 2 :real :real) - (spec: 2 :s64vector :s64vector) - (spec: 2 :f32vector :f32vector) + (spec: 2 :f64vector :f64vector) + (spec: 2 :u64vector :u64vector) + (spec: 2 :true :true) (spec: 2 :foreign :foreign) - (spec: 2 :fixnum :fixnum) - (spec: 2 :mutex :mutex) - (spec: 2 :t :t) - (spec: 2 :values :values) - (spec: 2 :vector-port :vector-port) - (spec: 2 :weak :weak) - (spec: 2 :character-port :character-port) - (spec: 2 :atom :atom) - (spec: 2 :raw-device-port :raw-device-port) - (spec: 2 :symbolic :symbolic) (spec: 2 :time :time) - (spec: 2 :string :string) - (spec: 2 :thread-group :thread-group) - (spec: 2 :condvar :condvar) - (spec: 2 :char :char) - (spec: 2 :writeenv :writeenv) - (spec: 2 :sequence :sequence) - (spec: 2 :box :box) - (spec: 2 :bignum :bignum) - (spec: 2 :udp-port :udp-port) + (spec: 2 :readtable :readtable) + (spec: 2 :vector :vector) + (spec: 2 :box :box) + (spec: 2 :directory-port :directory-port) + (spec: 2 :u8vector-port :u8vector-port) (spec: 2 :u8vector :u8vector) - (spec: 2 :false :false) - (spec: 2 :processor :processor) - (spec: 2 :frame :frame) - (spec: 2 :socket-info :socket-info) - (spec: 2 :address-info :address-info) - (spec: 2 :cpxnum :cpxnum) + (spec: 2 :number :number) + (spec: 2 :tcp-server-port :tcp-server-port) (spec: 2 :class :class) - (spec: 2 :object :object) - (spec: 2 :keyword :keyword) - (spec: 2 :symbol :symbol) - (spec: 2 :hvector :hvector) - (spec: 2 :flonum :flonum) - (spec: 2 :promise :promise) - (spec: 2 :string-port :string-port) - (spec: 2 :null :null) + (spec: 2 :table :table) + (spec: 2 :byte-port :byte-port) + (spec: 2 :special :special) + (spec: 2 :eof :eof) + (spec: 2 :symbolic :symbolic) + (spec: 2 :string :string) (spec: 2 :list :list) - (spec: 2 :s8vector :s8vector) - (spec: 2 :thread :thread) + (spec: 2 :keyword :keyword) + (spec: 2 :s16vector :s16vector) (spec: 2 :u16vector :u16vector) - (spec: 2 :integer :integer) - (spec: 2 :true :true) - (spec: 2 :u64vector :u64vector) - (spec: 2 :port :port) - (spec: 2 :device-port :device-port) - (spec: 2 :tcp-server-port :tcp-server-port) - (spec: 2 :directory-port :directory-port) - (spec: 2 :vector :vector) - (spec: 2 :number :number) - (spec: 2 :u32vector :u32vector) + (spec: 2 :object-port :object-port) + (spec: 2 :character-port :character-port) + (spec: 2 :bignum :bignum) + (spec: 2 :sequence :sequence) (spec: 2 :procedure :procedure) - (spec: 2 :byte-port :byte-port) - (spec: 2 :event-queue-port :event-queue-port) + (spec: 2 :thread :thread) + (spec: 2 :device-port :device-port) + (spec: 2 :raw-device-port :raw-device-port) + (spec: 2 :cpxnum :cpxnum) + (spec: 2 :udp-port :udp-port) + (spec: 2 :flonum :flonum) + (spec: 2 :void :void) + (spec: 2 :string-port :string-port) + (spec: 2 :ratnum :ratnum) + (spec: 2 :condvar :condvar) + (spec: 2 :hvector :hvector) + (spec: 2 :real :real) + (spec: 2 :thread-group :thread-group) + (spec: 2 :vector-port :vector-port) (spec: 2 :readenv :readenv) (spec: 2 :vm :vm) - (spec: 2 :special :special) - (spec: 2 :file-info :file-info) - (spec: 2 :readtable :readtable) - (spec: 2 :object-port :object-port) - (spec: 2 :eof :eof) - (spec: 2 :u8vector-port :u8vector-port) - (spec: 2 :table :table) - (spec: 2 :pair :pair) - (spec: 2 :immediate :immediate) + (spec: 2 :address-info :address-info) (spec: 2 :s32vector :s32vector) + (spec: 2 class class) + (spec: 2 :integer :integer) + (spec: 2 :values :values) + (spec: 2 :socket-info :socket-info) + (spec: 2 :file-info :file-info) + (spec: 2 :object :object) + (spec: 2 :t :t) + (spec: 2 :char :char) + (spec: 2 :s8vector :s8vector) + (spec: 2 :promise :promise) + (spec: 2 :event-queue-port :event-queue-port) + (spec: 2 :fixnum :fixnum) + (spec: 2 :symbol :symbol) + (spec: 2 :s64vector :s64vector) + (spec: 2 :port :port) + (spec: 2 :u32vector :u32vector) + (spec: 2 :frame :frame) (spec: 2 :continuation :continuation) - (spec: 2 :void :void) - (spec: 2 :f64vector :f64vector) - (spec: 2 :s16vector :s16vector) - (spec: 2 :boolean :boolean) - (spec: 2 :ratnum :ratnum) - (spec: 2 @-set! @-set!) + (spec: 2 :false :false) + (spec: 2 :atom :atom) + (spec: 2 :null :null) + (spec: 2 :f32vector :f32vector) + (spec: 2 :weak :weak) + (spec: 2 :mutex :mutex) + (spec: 2 :processor :processor) + (spec: 2 define-struct define-struct) + (spec: 2 @ @) (spec: 2 define-class define-class) + (spec: 2 @-set! @-set!) (spec: 2 @method @method) - (spec: 2 @ @) - (spec: 2 define-struct define-struct) (spec: 2 class-type-info class-type-info) (spec: 2 !class-type-ordered-slots-set! !class-type-ordered-slots-set!) + (spec: 2 !class-type-constructor-set! !class-type-constructor-set!) + (spec: 2 !class-type-metaclass !class-type-metaclass) (spec: 2 - &!class-type-precedence-list-set! - &!class-type-precedence-list-set!) + !class-type-unchecked-mutators + !class-type-unchecked-mutators) + (spec: 2 !class-type-super-set! !class-type-super-set!) + (spec: 2 &!class-type-constructor-set! &!class-type-constructor-set!) (spec: 2 - &!class-type-constructor-method-set! - &!class-type-constructor-method-set!) - (spec: 2 !class-type-precedence-list !class-type-precedence-list) + !class-type-constructor-method + !class-type-constructor-method) + (spec: 2 !class-type-descriptor-set! !class-type-descriptor-set!) + (spec: 2 &!class-type-mutators-set! &!class-type-mutators-set!) + (spec: 2 &!class-type-struct?-set! &!class-type-struct?-set!) + (spec: 2 !class-type-mutators-set! !class-type-mutators-set!) + (spec: 2 &!class-type-slots &!class-type-slots) + (spec: 2 !class-type-mutators !class-type-mutators) + (spec: 2 !class-type-slot-contracts !class-type-slot-contracts) + (spec: 2 !class-type-id-set! !class-type-id-set!) (spec: 2 !class-type-metaclass-set! !class-type-metaclass-set!) - (spec: 2 &!class-type-id &!class-type-id) - (spec: 2 !class-type-system? !class-type-system?) - (spec: 2 !class-type-system?-set! !class-type-system?-set!) - (spec: 2 &!class-type-constructor-set! &!class-type-constructor-set!) - (spec: 2 !class-type-constructor !class-type-constructor) - (spec: 2 &!class-type-accessors-set! &!class-type-accessors-set!) - (spec: 2 !class-type-struct? !class-type-struct?) - (spec: 2 !class-type-slots-set! !class-type-slots-set!) + (spec: 2 &!class-type-mutators &!class-type-mutators) + (spec: 2 &!class-type-name &!class-type-name) + (spec: 2 &!class-type-struct? &!class-type-struct?) (spec: 2 - !class-type-precedence-list-set! - !class-type-precedence-list-set!) - (spec: 2 !class-type-slot-types-set! !class-type-slot-types-set!) + &!class-type-unchecked-accessors + &!class-type-unchecked-accessors) (spec: 2 - &!class-type-constructor-method - &!class-type-constructor-method) - (spec: 2 &!class-type-slot-defaults &!class-type-slot-defaults) - (spec: 2 &!class-type-id-set! &!class-type-id-set!) - (spec: 2 &!class-type-slots-set! &!class-type-slots-set!) - (spec: 2 !class-type-ordered-slots !class-type-ordered-slots) - (spec: 2 !class-type-struct?-set! !class-type-struct?-set!) - (spec: 2 &!class-type-struct?-set! &!class-type-struct?-set!) - (spec: 2 &!class-type-descriptor-set! &!class-type-descriptor-set!) - (spec: 2 &!class-type-slot-types-set! &!class-type-slot-types-set!) - (spec: 2 !class-type-super !class-type-super) - (spec: 2 !class-type-metaclass !class-type-metaclass) - (spec: 2 &!class-type-slot-types &!class-type-slot-types) - (spec: 2 !class-type-accessors-set! !class-type-accessors-set!) - (spec: 2 &!class-type-mutators &!class-type-mutators) + &!class-type-constructor-method-set! + &!class-type-constructor-method-set!) (spec: 2 - &!class-type-unchecked-accessors-set! - &!class-type-unchecked-accessors-set!) - (spec: 2 !class-type-name-set! !class-type-name-set!) - (spec: 2 !class-type-final? !class-type-final?) + !class-type-slot-defaults-set! + !class-type-slot-defaults-set!) + (spec: 2 &!class-type-id-set! &!class-type-id-set!) + (spec: 2 &!class-type-slot-types-set! &!class-type-slot-types-set!) + (spec: 2 !class-type-constructor !class-type-constructor) (spec: 2 &!class-type-system? &!class-type-system?) - (spec: 2 &!class-type-struct? &!class-type-struct?) - (spec: 2 &!class-type-super-set! &!class-type-super-set!) + (spec: 2 !class-type-slots-set! !class-type-slots-set!) + (spec: 2 !class-type-slot-types-set! !class-type-slot-types-set!) + (spec: 2 &!class-type-descriptor-set! &!class-type-descriptor-set!) + (spec: 2 !class-type-slot-defaults !class-type-slot-defaults) + (spec: 2 &!class-type-predicate &!class-type-predicate) + (spec: 2 &!class-type-name-set! &!class-type-name-set!) (spec: 2 - &!class-type-unchecked-mutators-set! - &!class-type-unchecked-mutators-set!) + &!class-type-ordered-slots-set! + &!class-type-ordered-slots-set!) (spec: 2 class-type-info::apply-macro-expander class-type-info::apply-macro-expander) - (spec: 2 !class-type-slot-defaults !class-type-slot-defaults) + (spec: 2 !class-type-struct? !class-type-struct?) + (spec: 2 &!class-type-final? &!class-type-final?) + (spec: 2 &!class-type-system?-set! &!class-type-system?-set!) + (spec: 2 &!class-type-metaclass-set! &!class-type-metaclass-set!) + (spec: 2 !class-type-predicate-set! !class-type-predicate-set!) + (spec: + 2 + &!class-type-slot-defaults-set! + &!class-type-slot-defaults-set!) + (spec: 2 !class-type-name-set! !class-type-name-set!) + (spec: 2 !class-type-ordered-slots !class-type-ordered-slots) + (spec: 2 !class-type-system? !class-type-system?) + (spec: + 2 + !class-type-unchecked-mutators-set! + !class-type-unchecked-mutators-set!) + (spec: 2 !class-type-id !class-type-id) (spec: 2 !class-type-unchecked-accessors !class-type-unchecked-accessors) + (spec: 2 &!class-type-id &!class-type-id) (spec: 2 - &!class-type-unchecked-accessors - &!class-type-unchecked-accessors) - (spec: 2 class-type-info::t class-type-info::t) - (spec: 2 &!class-type-name-set! &!class-type-name-set!) + &!class-type-constructor-method + &!class-type-constructor-method) + (spec: 2 &!class-type-descriptor &!class-type-descriptor) + (spec: 2 &!class-type-slot-contracts &!class-type-slot-contracts) + (spec: 2 !class-type-accessors !class-type-accessors) + (spec: 2 !class-type-name !class-type-name) + (spec: 2 make-class-type-info make-class-type-info) (spec: 2 &!class-type-super &!class-type-super) - (spec: 2 !class-type-predicate !class-type-predicate) - (spec: - 2 - &!class-type-unchecked-mutators - &!class-type-unchecked-mutators) + (spec: 2 &!class-type-precedence-list &!class-type-precedence-list) + (spec: 2 &!class-type-super-set! &!class-type-super-set!) + (spec: 2 !class-type-accessors-set! !class-type-accessors-set!) (spec: 2 - !class-type-unchecked-mutators - !class-type-unchecked-mutators) - (spec: 2 &!class-type-slots &!class-type-slots) + &!class-type-precedence-list-set! + &!class-type-precedence-list-set!) + (spec: 2 !class-type-slot-types !class-type-slot-types) (spec: 2 !class-type-slot-contracts-set! !class-type-slot-contracts-set!) - (spec: 2 &!class-type-name &!class-type-name) - (spec: 2 &!class-type-final?-set! &!class-type-final?-set!) - (spec: 2 !class-type-slot-contracts !class-type-slot-contracts) - (spec: 2 !class-type-super-set! !class-type-super-set!) - (spec: 2 !class-type-descriptor-set! !class-type-descriptor-set!) (spec: 2 - !class-type-slot-defaults-set! - !class-type-slot-defaults-set!) - (spec: 2 !class-type-id !class-type-id) + !class-type-constructor-method-set! + !class-type-constructor-method-set!) (spec: 2 - !class-type-constructor-method - !class-type-constructor-method) - (spec: 2 class-type-info? class-type-info?) - (spec: 2 !class-type-constructor-set! !class-type-constructor-set!) - (spec: 2 &!class-type-metaclass &!class-type-metaclass) - (spec: 2 &!class-type-ordered-slots &!class-type-ordered-slots) - (spec: 2 &!class-type-constructor &!class-type-constructor) - (spec: 2 !class-type-predicate-set! !class-type-predicate-set!) - (spec: 2 &!class-type-metaclass-set! &!class-type-metaclass-set!) + !class-type-unchecked-accessors-set! + !class-type-unchecked-accessors-set!) + (spec: 2 &!class-type-slot-types &!class-type-slot-types) + (spec: 2 &!class-type-final?-set! &!class-type-final?-set!) (spec: 2 &!class-type-predicate-set! &!class-type-predicate-set!) + (spec: 2 syntax-local-class-type-info? syntax-local-class-type-info?) + (spec: 2 !class-type-predicate !class-type-predicate) + (spec: 2 !class-type-slots !class-type-slots) (spec: 2 - !class-type-constructor-method-set! - !class-type-constructor-method-set!) - (spec: 2 &!class-type-mutators-set! &!class-type-mutators-set!) - (spec: - 2 - &!class-type-slot-defaults-set! - &!class-type-slot-defaults-set!) - (spec: 2 syntax-local-class-type-info? syntax-local-class-type-info?) - (spec: 2 !class-type-mutators-set! !class-type-mutators-set!) - (spec: 2 &!class-type-system?-set! &!class-type-system?-set!) - (spec: 2 !class-type-mutators !class-type-mutators) - (spec: - 2 - !class-type-unchecked-mutators-set! - !class-type-unchecked-mutators-set!) + &!class-type-unchecked-mutators-set! + &!class-type-unchecked-mutators-set!) + (spec: 2 !class-type-final?-set! !class-type-final?-set!) (spec: 2 - &!class-type-ordered-slots-set! - &!class-type-ordered-slots-set!) + &!class-type-unchecked-mutators + &!class-type-unchecked-mutators) + (spec: 2 &!class-type-accessors &!class-type-accessors) + (spec: 2 &!class-type-metaclass &!class-type-metaclass) (spec: 2 !class-type-descriptor !class-type-descriptor) - (spec: 2 !class-type-final?-set! !class-type-final?-set!) + (spec: 2 !class-type-system?-set! !class-type-system?-set!) + (spec: 2 &!class-type-slot-defaults &!class-type-slot-defaults) + (spec: 2 !class-type-super !class-type-super) + (spec: 2 &!class-type-ordered-slots &!class-type-ordered-slots) (spec: 2 - !class-type-unchecked-accessors-set! - !class-type-unchecked-accessors-set!) + &!class-type-unchecked-accessors-set! + &!class-type-unchecked-accessors-set!) + (spec: 2 class-type-info::t class-type-info::t) + (spec: 2 !class-type-precedence-list !class-type-precedence-list) + (spec: 2 !class-type-final? !class-type-final?) + (spec: 2 !class-type-struct?-set! !class-type-struct?-set!) + (spec: 2 &!class-type-constructor &!class-type-constructor) + (spec: 2 class-type-info? class-type-info?) + (spec: 2 &!class-type-slots-set! &!class-type-slots-set!) + (spec: 2 &!class-type-accessors-set! &!class-type-accessors-set!) (spec: 2 &!class-type-slot-contracts-set! &!class-type-slot-contracts-set!) - (spec: 2 !class-type-slot-types !class-type-slot-types) - (spec: 2 &!class-type-accessors &!class-type-accessors) - (spec: 2 &!class-type-final? &!class-type-final?) - (spec: 2 !class-type-accessors !class-type-accessors) - (spec: 2 !class-type-id-set! !class-type-id-set!) - (spec: 2 &!class-type-precedence-list &!class-type-precedence-list) - (spec: 2 &!class-type-descriptor &!class-type-descriptor) - (spec: 2 &!class-type-predicate &!class-type-predicate) - (spec: 2 make-class-type-info make-class-type-info) - (spec: 2 &!class-type-slot-contracts &!class-type-slot-contracts) - (spec: 2 !class-type-slots !class-type-slots) - (spec: 2 !class-type-name !class-type-name) + (spec: + 2 + !class-type-precedence-list-set! + !class-type-precedence-list-set!) (spec: 3 make-class-type-id make-class-type-id) (spec: 3 module-type-id module-type-id) (spec: 2 defclass-type defclass-type) (spec: 2 defstruct-type defstruct-type) + (spec: 1 :boolean :boolean) + (spec: 1 :writeenv :writeenv) + (spec: 1 :pair :pair) + (spec: 1 :immediate :immediate) (spec: 1 defsystem-class-info defsystem-class-info) - (spec: 1 class class) - (spec: 1 :real :real) - (spec: 1 :s64vector :s64vector) - (spec: 1 :f32vector :f32vector) + (spec: 1 :f64vector :f64vector) + (spec: 1 :u64vector :u64vector) + (spec: 1 :true :true) (spec: 1 :foreign :foreign) - (spec: 1 :fixnum :fixnum) - (spec: 1 :mutex :mutex) - (spec: 1 :t :t) - (spec: 1 :values :values) - (spec: 1 :vector-port :vector-port) - (spec: 1 :weak :weak) - (spec: 1 :character-port :character-port) - (spec: 1 :atom :atom) - (spec: 1 :raw-device-port :raw-device-port) - (spec: 1 :symbolic :symbolic) (spec: 1 :time :time) - (spec: 1 :string :string) - (spec: 1 :thread-group :thread-group) - (spec: 1 :condvar :condvar) - (spec: 1 :char :char) - (spec: 1 :writeenv :writeenv) - (spec: 1 :sequence :sequence) + (spec: 1 :readtable :readtable) + (spec: 1 :vector :vector) (spec: 1 :box :box) - (spec: 1 :bignum :bignum) - (spec: 1 :udp-port :udp-port) + (spec: 1 :directory-port :directory-port) + (spec: 1 :u8vector-port :u8vector-port) (spec: 1 :u8vector :u8vector) - (spec: 1 :false :false) - (spec: 1 :processor :processor) - (spec: 1 :frame :frame) - (spec: 1 :socket-info :socket-info) - (spec: 1 :address-info :address-info) - (spec: 1 :cpxnum :cpxnum) + (spec: 1 :number :number) + (spec: 1 :tcp-server-port :tcp-server-port) (spec: 1 :class :class) - (spec: 1 :object :object) - (spec: 1 :keyword :keyword) - (spec: 1 :symbol :symbol) - (spec: 1 :hvector :hvector) - (spec: 1 :flonum :flonum) - (spec: 1 :promise :promise) - (spec: 1 :string-port :string-port) - (spec: 1 :null :null) + (spec: 1 :table :table) + (spec: 1 :byte-port :byte-port) + (spec: 1 :special :special) + (spec: 1 :eof :eof) + (spec: 1 :symbolic :symbolic) + (spec: 1 :string :string) (spec: 1 :list :list) - (spec: 1 :s8vector :s8vector) - (spec: 1 :thread :thread) + (spec: 1 :keyword :keyword) + (spec: 1 :s16vector :s16vector) (spec: 1 :u16vector :u16vector) - (spec: 1 :integer :integer) - (spec: 1 :true :true) - (spec: 1 :u64vector :u64vector) - (spec: 1 :port :port) - (spec: 1 :device-port :device-port) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :directory-port :directory-port) - (spec: 1 :vector :vector) - (spec: 1 :number :number) - (spec: 1 :u32vector :u32vector) + (spec: 1 :object-port :object-port) + (spec: 1 :character-port :character-port) + (spec: 1 :bignum :bignum) + (spec: 1 :sequence :sequence) (spec: 1 :procedure :procedure) - (spec: 1 :byte-port :byte-port) - (spec: 1 :event-queue-port :event-queue-port) + (spec: 1 :thread :thread) + (spec: 1 :device-port :device-port) + (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :cpxnum :cpxnum) + (spec: 1 :udp-port :udp-port) + (spec: 1 :flonum :flonum) + (spec: 1 :void :void) + (spec: 1 :string-port :string-port) + (spec: 1 :ratnum :ratnum) + (spec: 1 :condvar :condvar) + (spec: 1 :hvector :hvector) + (spec: 1 :real :real) + (spec: 1 :thread-group :thread-group) + (spec: 1 :vector-port :vector-port) (spec: 1 :readenv :readenv) (spec: 1 :vm :vm) - (spec: 1 :special :special) - (spec: 1 :file-info :file-info) - (spec: 1 :readtable :readtable) - (spec: 1 :object-port :object-port) - (spec: 1 :eof :eof) - (spec: 1 :u8vector-port :u8vector-port) - (spec: 1 :table :table) - (spec: 1 :pair :pair) - (spec: 1 :immediate :immediate) + (spec: 1 :address-info :address-info) (spec: 1 :s32vector :s32vector) + (spec: 1 class class) + (spec: 1 :integer :integer) + (spec: 1 :values :values) + (spec: 1 :socket-info :socket-info) + (spec: 1 :file-info :file-info) + (spec: 1 :object :object) + (spec: 1 :t :t) + (spec: 1 :char :char) + (spec: 1 :s8vector :s8vector) + (spec: 1 :promise :promise) + (spec: 1 :event-queue-port :event-queue-port) + (spec: 1 :fixnum :fixnum) + (spec: 1 :symbol :symbol) + (spec: 1 :s64vector :s64vector) + (spec: 1 :port :port) + (spec: 1 :u32vector :u32vector) + (spec: 1 :frame :frame) (spec: 1 :continuation :continuation) - (spec: 1 :void :void) - (spec: 1 :f64vector :f64vector) - (spec: 1 :s16vector :s16vector) - (spec: 1 :boolean :boolean) - (spec: 1 :ratnum :ratnum) - (spec: 1 @-set! @-set!) + (spec: 1 :false :false) + (spec: 1 :atom :atom) + (spec: 1 :null :null) + (spec: 1 :f32vector :f32vector) + (spec: 1 :weak :weak) + (spec: 1 :mutex :mutex) + (spec: 1 :processor :processor) + (spec: 1 define-struct define-struct) + (spec: 1 @ @) (spec: 1 define-class define-class) + (spec: 1 @-set! @-set!) (spec: 1 @method @method) - (spec: 1 @ @) - (spec: 1 define-struct define-struct) (spec: 2 make-class-type-id make-class-type-id) (spec: 2 module-type-id module-type-id) (spec: 1 defclass-type defclass-type) (spec: 1 defstruct-type defstruct-type) - (spec: 1 MOP-4 MOP-4) (spec: 1 MOP-5 MOP-5) + (spec: 1 MOP-1 MOP-1) (spec: 1 MOP-2 MOP-2) + (spec: 1 MOP-4 MOP-4) (spec: 1 MOP-3 MOP-3) - (spec: 1 MOP-1 MOP-1) (spec: 1 defconst defconst) (spec: 1 definline definline) (spec: 1 defsyntax defsyntax) - (spec: 1 delay delay) - (spec: 1 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 1 and-let* and-let*) + (spec: 1 quasiquote quasiquote) + (spec: 1 <> <>) (spec: 1 alet* alet*) + (spec: 1 defvalues defvalues) (spec: 1 ~case-dispatch ~case-dispatch) - (spec: 1 ~case-dispatch* ~case-dispatch*) - (spec: 1 begin0 begin0) - (spec: 1 ~case ~case) - (spec: 1 and-let* and-let*) + (spec: 1 rec rec) + (spec: 1 alet alet) (spec: 1 @list @list) - (spec: 1 cut cut) (spec: 1 do-while do-while) - (spec: 1 quasiquote quasiquote) - (spec: 1 defvalues defvalues) - (spec: 1 <> <>) + (spec: 1 cut cut) + (spec: 1 <...> <...>) (spec: 1 do do) - (spec: 1 case case) + (spec: 1 begin0 begin0) (spec: 1 ~case-test ~case-test) - (spec: 1 alet alet) - (spec: 1 rec rec) - (spec: 1 <...> <...>) - (spec: 1 letrec letrec) - (spec: 1 and and) + (spec: 1 case case) + (spec: 1 delay delay) + (spec: 1 ~case-dispatch* ~case-dispatch*) + (spec: 1 ~case ~case) + (spec: 1 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 1 defmutable defmutable) (spec: 1 defsyntax% defsyntax%) - (spec: 1 letrec* letrec*) - (spec: 1 or or) + (spec: 1 defrules defrules) + (spec: 1 cond cond) + (spec: 1 let* let*) (spec: 1 define define) + (spec: 1 let*-values let*-values) (spec: 1 ~let ~let) + (spec: 1 and and) + (spec: 1 define-rules define-rules) + (spec: 1 letrec letrec) (spec: 1 when when) - (spec: 1 cond cond) - (spec: 1 defmutable defmutable) - (spec: 1 let* let*) (spec: 1 defrule defrule) - (spec: 1 let*-values let*-values) + (spec: 1 letrec* letrec*) (spec: 1 syntax-error syntax-error) - (spec: 1 unless unless) (spec: 1 defalias defalias) - (spec: 1 defrules defrules) - (spec: 1 define-rules define-rules) - (spec: 1 s16vector-ref-set! s16vector-ref-set!) + (spec: 1 unless unless) + (spec: 1 or or) + (spec: 1 cdr-set! cdr-set!) (spec: 1 car-set! car-set!) - (spec: 1 s8vector-ref-set! s8vector-ref-set!) + (spec: 1 u16vector-ref-set! u16vector-ref-set!) + (spec: 1 box-set! box-set!) (spec: 1 s64vector-ref-set! s64vector-ref-set!) - (spec: 1 u64vector-ref-set! u64vector-ref-set!) (spec: 1 vector-ref-set! vector-ref-set!) - (spec: 1 u16vector-ref-set! u16vector-ref-set!) - (spec: 1 string-ref-set! string-ref-set!) - (spec: 1 s32vector-ref-set! s32vector-ref-set!) (spec: 1 call/values call/values) - (spec: 1 cdr-set! cdr-set!) - (spec: 1 f32vector-ref-set! f32vector-ref-set!) - (spec: 1 f64vector-ref-set! f64vector-ref-set!) - (spec: 1 random-source-make-bytes random-source-make-bytes) - (spec: 1 call/parameters call/parameters) - (spec: 1 u32vector-ref-set! u32vector-ref-set!) - (spec: 1 box-set! box-set!) (spec: 1 u8vector-ref-set! u8vector-ref-set!) + (spec: 1 u32vector-ref-set! u32vector-ref-set!) + (spec: 1 u64vector-ref-set! u64vector-ref-set!) + (spec: 1 call/parameters call/parameters) + (spec: 1 s32vector-ref-set! s32vector-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 f32vector-ref-set! f32vector-ref-set!) (spec: 1 random-bytes random-bytes) - (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 hvector::t hvector::t) - (spec: 1 HashTable::interface HashTable::interface) - (spec: 1 with-unwind-protect with-unwind-protect) - (spec: 1 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 1 list->hash-table list->hash-table) - (spec: 1 build-manifest/head build-manifest/head) - (spec: 1 class-type? class-type?) - (spec: 1 special::t special::t) - (spec: 1 make-hash-table-string make-hash-table-string) - (spec: 1 make-class-predicate make-class-predicate) - (spec: 1 class-type-fields class-type-fields) - (spec: 1 seal-class! seal-class!) - (spec: 1 hash-key? hash-key?) - (spec: 1 thread-local-ref thread-local-ref) - (spec: 1 actor-thread? actor-thread?) - (spec: 1 find-method find-method) - (spec: 1 immediate? immediate?) - (spec: 1 vector-port? vector-port?) - (spec: 1 symblic-hash symblic-hash) - (spec: 1 error-irritants error-irritants) - (spec: 1 hash-merge! hash-merge!) - (spec: 1 HashTable::t HashTable::t) - (spec: 1 build-manifest/layer build-manifest/layer) - (spec: 1 gerbil-path gerbil-path) + (spec: 1 s8vector-ref-set! s8vector-ref-set!) + (spec: 1 string-ref-set! string-ref-set!) + (spec: 1 AST-e AST-e) + (spec: 1 make-class-slot-accessor make-class-slot-accessor) + (spec: 1 gerbil-load-expander! gerbil-load-expander!) (spec: 1 readenv::t readenv::t) - (spec: 1 cast cast) - (spec: 1 add-load-path! add-load-path!) - (spec: 1 raise raise) - (spec: 1 &class-type-fields &class-type-fields) + (spec: 1 struct->list struct->list) + (spec: 1 hash-copy hash-copy) (spec: 1 special? special?) - (spec: 1 &class-type-slot-vector &class-type-slot-vector) - (spec: 1 make-class-slot-accessor make-class-slot-accessor) - (spec: 1 class->list class->list) - (spec: 1 class::t class::t) - (spec: 1 class-type-precedence-list class-type-precedence-list) - (spec: 1 symbol::t symbol::t) - (spec: 1 t::t t::t) - (spec: 1 eof::t eof::t) - (spec: 1 cpxnum::t cpxnum::t) + (spec: 1 eqv-hash eqv-hash) (spec: 1 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 1 memf memf) - (spec: 1 hash->list hash->list) - (spec: 1 vector::t vector::t) - (spec: 1 fx/ fx/) - (spec: 1 atom::t atom::t) - (spec: 1 thread::t thread::t) - (spec: 1 hvector? hvector?) - (spec: 1 error-message error-message) - (spec: 1 call-with-parameters call-with-parameters) - (spec: 1 checked-method-ref checked-method-ref) - (spec: 1 interface-descriptor-methods interface-descriptor-methods) - (spec: 1 raw-device-port::t raw-device-port::t) - (spec: 1 hash-put! hash-put!) - (spec: 1 gerbil-load-expander! gerbil-load-expander!) - (spec: 1 class-type-system? class-type-system?) - (spec: 1 string-empty? string-empty?) - (spec: 1 make-hash-table-eqv make-hash-table-eqv) - (spec: 1 s8vector::t s8vector::t) - (spec: 1 display-build-manifest display-build-manifest) - (spec: 1 error error) - (spec: 1 1+ 1+) - (spec: 1 andmap andmap) - (spec: 1 exception? exception?) - (spec: 1 assgetq assgetq) - (spec: 1 integer::t integer::t) - (spec: 1 frame::t frame::t) - (spec: 1 udp-port? udp-port?) - (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 1 hash-map hash-map) - (spec: 1 thread-local-set! thread-local-set!) - (spec: 1 replx replx) - (spec: 1 bind-method! bind-method!) - (spec: 1 raw-device-port? raw-device-port?) - (spec: 1 with-lock with-lock) - (spec: 1 class-type=? class-type=?) - (spec: 1 &class-type-constructor &class-type-constructor) - (spec: 1 string-hash string-hash) - (spec: 1 &class-type-slot-table &class-type-slot-table) - (spec: 1 class-type-field-count class-type-field-count) - (spec: 1 class-type-name class-type-name) - (spec: 1 display-exception display-exception) - (spec: 1 satisfies? satisfies?) - (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 1 HashTableLock::interface HashTableLock::interface) - (spec: 1 make-hash-table-immediate make-hash-table-immediate) + (spec: 1 display* display*) (spec: 1 max-char-code max-char-code) - (spec: 1 1- 1-) - (spec: 1 unbound-key-error? unbound-key-error?) - (spec: 1 find find) - (spec: 1 assgetv assgetv) (spec: 1 immediate::t immediate::t) - (spec: 1 vector-port::t vector-port::t) + (spec: 1 vm::t vm::t) + (spec: 1 raw-device-port::t raw-device-port::t) (spec: 1 pgetq pgetq) - (spec: 1 event-queue-port::t event-queue-port::t) + (spec: 1 byte-port? byte-port?) + (spec: 1 unchecked-slot-ref unchecked-slot-ref) (spec: 1 interface-cast-error? interface-cast-error?) - (spec: 1 real::t real::t) - (spec: 1 byte-port::t byte-port::t) - (spec: 1 character-port? character-port?) - (spec: 1 fx<=0? fx<=0?) - (spec: 1 list->hash-table-immediate list->hash-table-immediate) - (spec: 1 hash-merge hash-merge) - (spec: 1 class-type-seal! class-type-seal!) + (spec: 1 AST? AST?) + (spec: 1 class-type-flags class-type-flags) + (spec: 1 make-class-slot-mutator make-class-slot-mutator) + (spec: 1 s8vector::t s8vector::t) + (spec: 1 list->hash-table-eq list->hash-table-eq) + (spec: 1 string-empty? string-empty?) (spec: 1 - make-class-slot-unchecked-mutator - make-class-slot-unchecked-mutator) - (spec: 1 class-of class-of) + datum-parsing-exception-filepos + datum-parsing-exception-filepos) + (spec: 1 class-type-slot-table class-type-slot-table) + (spec: 1 &class-type-slot-table &class-type-slot-table) + (spec: 1 &class-type-constructor &class-type-constructor) + (spec: 1 hash-find hash-find) + (spec: 1 t::t t::t) + (spec: 1 number::t number::t) + (spec: 1 directory-port::t directory-port::t) + (spec: 1 dssl-rest-object? dssl-rest-object?) + (spec: 1 fxshift fxshift) + (spec: 1 boolean::t boolean::t) + (spec: 1 vector-port? vector-port?) + (spec: 1 file-newer? file-newer?) + (spec: 1 agetv agetv) + (spec: 1 foldr foldr) + (spec: 1 as-string as-string) + (spec: 1 raw-device-port? raw-device-port?) + (spec: 1 satisfies? satisfies?) + (spec: 1 with-lock with-lock) + (spec: 1 list::t list::t) + (spec: 1 continuation::t continuation::t) + (spec: 1 string-hash string-hash) + (spec: 1 tcp-server-port? tcp-server-port?) + (spec: 1 thread::t thread::t) + (spec: 1 hash-remove! hash-remove!) + (spec: 1 method-ref method-ref) + (spec: 1 directory-port? directory-port?) + (spec: 1 symbol::t symbol::t) + (spec: 1 build-manifest-string build-manifest-string) + (spec: 1 vector::t vector::t) + (spec: 1 andmap andmap) + (spec: 1 filter-map filter-map) + (spec: 1 assgetq assgetq) + (spec: 1 with-unwind-protect with-unwind-protect) + (spec: 1 error error) + (spec: 1 exception? exception?) + (spec: 1 gerbil-home gerbil-home) + (spec: 1 call-next-method call-next-method) (spec: 1 sequence::t sequence::t) + (spec: 1 hash->plist hash->plist) + (spec: 1 real::t real::t) + (spec: 1 &interface-instance-object &interface-instance-object) + (spec: 1 dump-stack-trace! dump-stack-trace!) + (spec: 1 struct-instance? struct-instance?) + (spec: 1 replx replx) + (spec: 1 error-irritants error-irritants) + (spec: 1 &class-type-properties &class-type-properties) + (spec: 1 source-location-path? source-location-path?) + (spec: 1 hash-clear! hash-clear!) + (spec: 1 load-module load-module) + (spec: 1 hash-ref hash-ref) + (spec: 1 subclass? subclass?) + (spec: 1 symbolic-table-set! symbolic-table-set!) + (spec: 1 void? void?) + (spec: 1 find find) + (spec: 1 assgetv assgetv) + (spec: 1 write-u8vector write-u8vector) + (spec: 1 class-type-constructor class-type-constructor) + (spec: 1 raise raise) + (spec: 1 call-with-parameters call-with-parameters) + (spec: 1 checked-method-ref checked-method-ref) + (spec: 1 sequence? sequence?) + (spec: 1 list->hash-table-string list->hash-table-string) + (spec: 1 string-join string-join) + (spec: 1 class-type-system? class-type-system?) + (spec: 1 source-location? source-location?) + (spec: 1 null::t null::t) (spec: 1 eof-object eof-object) - (spec: 1 symbolic-table-delete! symbolic-table-delete!) - (spec: 1 displayln displayln) + (spec: 1 hash-fold hash-fold) + (spec: 1 find-method find-method) + (spec: 1 interface-descriptor-type interface-descriptor-type) + (spec: 1 u16vector::t u16vector::t) + (spec: 1 is-hash-table? is-hash-table?) + (spec: 1 class-type-name class-type-name) + (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) + (spec: 1 HashTableLock::t HashTableLock::t) + (spec: 1 list->hash-table-symbolic list->hash-table-symbolic) + (spec: 1 cons* cons*) + (spec: 1 string-index string-index) + (spec: 1 &class-type-flags &class-type-flags) (spec: 1 make-symbol make-symbol) + (spec: 1 class-type-struct? class-type-struct?) + (spec: 1 &class-type-super &class-type-super) (spec: 1 struct-copy struct-copy) - (spec: 1 null::t null::t) - (spec: 1 condvar::t condvar::t) - (spec: 1 make-promise make-promise) - (spec: 1 unchecked-slot-set! unchecked-slot-set!) - (spec: 1 flonum::t flonum::t) + (spec: 1 socket-info::t socket-info::t) + (spec: 1 tcp-server-port::t tcp-server-port::t) + (spec: 1 display-as-string display-as-string) (spec: 1 ormap ormap) - (spec: 1 f64vector::t f64vector::t) - (spec: 1 event-queue-port? event-queue-port?) + (spec: 1 address-info::t address-info::t) + (spec: 1 object-port? object-port?) + (spec: 1 symbolic-table-delete! symbolic-table-delete!) + (spec: 1 build-manifest build-manifest) + (spec: 1 readenv? readenv?) (spec: 1 vm? vm?) - (spec: 1 hash-copy hash-copy) - (spec: 1 source-location-path source-location-path) - (spec: 1 gerbil-system gerbil-system) - (spec: 1 write-u8vector write-u8vector) - (spec: 1 fx=0? fx=0?) - (spec: 1 list->hash-table-string list->hash-table-string) - (spec: 1 &class-type-id &class-type-id) - (spec: 1 class-type-sealed? class-type-sealed?) - (spec: 1 source-location? source-location?) - (spec: 1 source-location-path? source-location-path?) - (spec: 1 symbolic-table-ref symbolic-table-ref) - (spec: 1 device-port::t device-port::t) - (spec: 1 tcp-server-port::t tcp-server-port::t) - (spec: 1 number::t number::t) - (spec: 1 struct-instance-init! struct-instance-init!) + (spec: 1 assget assget) + (spec: 1 keyword-dispatch keyword-dispatch) + (spec: 1 unchecked-slot-set! unchecked-slot-set!) + (spec: 1 foreign::t foreign::t) + (spec: 1 class-type-metaclass? class-type-metaclass?) + (spec: 1 call-method call-method) (spec: 1 error-object? error-object?) - (spec: 1 method-ref method-ref) - (spec: 1 false::t false::t) - (spec: 1 void::t void::t) - (spec: 1 foldl foldl) - (spec: 1 hash-remove! hash-remove!) - (spec: 1 hash-find hash-find) - (spec: 1 pgetv pgetv) - (spec: 1 readenv? readenv?) - (spec: - 1 - unhandled-actor-exception-hook-set! - unhandled-actor-exception-hook-set!) - (spec: 1 char::t char::t) - (spec: 1 fx1- fx1-) - (spec: 1 is-hash-table? is-hash-table?) - (spec: 1 bind-specializer! bind-specializer!) - (spec: 1 class-type-properties class-type-properties) - (spec: 1 list->hash-table-eq list->hash-table-eq) - (spec: 1 string-index string-index) - (spec: 1 make-class-slot-mutator make-class-slot-mutator) - (spec: 1 class-instance-init! class-instance-init!) - (spec: 1 table::t table::t) - (spec: 1 eq-hash eq-hash) - (spec: 1 string::t string::t) - (spec: 1 create-directory* create-directory*) - (spec: 1 hash->plist hash->plist) - (spec: 1 port::t port::t) - (spec: 1 address-info::t address-info::t) - (spec: 1 fx1+ fx1+) - (spec: 1 hash-ref hash-ref) - (spec: 1 time::t time::t) - (spec: 1 error-trace error-trace) - (spec: 1 error? error?) + (spec: 1 symblic-hash symblic-hash) (spec: 1 readtable::t readtable::t) - (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 1 character-port::t character-port::t) - (spec: 1 fx<0? fx<0?) - (spec: 1 list->hash-table-eqv list->hash-table-eqv) - (spec: 1 &class-type-flags &class-type-flags) - (spec: 1 &class-type-super &class-type-super) - (spec: 1 make-object make-object) - (spec: - 1 - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) - (spec: 1 class-instance? class-instance?) - (spec: 1 class-type-final? class-type-final?) - (spec: 1 socket-info::t socket-info::t) - (spec: 1 hash-clear! hash-clear!) - (spec: 1 struct->list struct->list) - (spec: 1 unchecked-slot-ref unchecked-slot-ref) + (spec: 1 1+ 1+) + (spec: 1 dump-stack-trace? dump-stack-trace?) + (spec: 1 class-type-super class-type-super) + (spec: 1 struct-instance-init! struct-instance-init!) + (spec: 1 make-keyword make-keyword) + (spec: 1 object-type object-type) (spec: 1 aget aget) - (spec: 1 fixnum::t fixnum::t) + (spec: 1 true? true?) + (spec: 1 display-build-manifest display-build-manifest) + (spec: 1 pair::t pair::t) (spec: 1 f32vector::t f32vector::t) - (spec: 1 vm::t vm::t) - (spec: 1 interface-descriptor-type interface-descriptor-type) - (spec: 1 true true) - (spec: 1 load-module load-module) - (spec: 1 read-syntax read-syntax) - (spec: 1 gerbil-version-string gerbil-version-string) - (spec: 1 weak? weak?) + (spec: 1 mutex::t mutex::t) (spec: 1 raise-contract-violation-error raise-contract-violation-error) - (spec: 1 fxshift fxshift) + (spec: 1 symbolic-table-ref symbolic-table-ref) + (spec: 1 build-manifest/layer build-manifest/layer) (spec: 1 keyword-rest keyword-rest) - (spec: 1 boolean::t boolean::t) - (spec: 1 reload-module! reload-module!) - (spec: 1 class-type-flags class-type-flags) - (spec: 1 direct-method-ref direct-method-ref) - (spec: 1 dssl-optional-object? dssl-optional-object?) - (spec: 1 symbolic::t symbolic::t) - (spec: 1 constructor-init! constructor-init!) - (spec: 1 make-symbolic-table make-symbolic-table) - (spec: 1 string-port::t string-port::t) - (spec: 1 u32vector::t u32vector::t) - (spec: 1 procedure-hash procedure-hash) - (spec: 1 file-info::t file-info::t) - (spec: 1 thread-group::t thread-group::t) - (spec: 1 object-port::t object-port::t) - (spec: 1 true::t true::t) - (spec: 1 c4-linearize c4-linearize) + (spec: 1 void::t void::t) + (spec: 1 frame::t frame::t) + (spec: 1 procedure::t procedure::t) + (spec: 1 error? error?) + (spec: 1 class-type-methods class-type-methods) + (spec: 1 gerbil-path gerbil-path) (spec: 1 interface-instance-object interface-instance-object) + (spec: 1 class->list class->list) + (spec: 1 cast cast) + (spec: 1 string-rindex string-rindex) + (spec: 1 1- 1-) (spec: 1 hash-table? hash-table?) + (spec: 1 &class-type-fields &class-type-fields) + (spec: 1 class::t class::t) + (spec: 1 &class-type-slot-vector &class-type-slot-vector) + (spec: 1 object-fill! object-fill!) + (spec: 1 f64vector::t f64vector::t) + (spec: 1 event-queue-port::t event-queue-port::t) + (spec: 1 HashTable::interface HashTable::interface) + (spec: 1 make-hash-table make-hash-table) + (spec: 1 hash-update! hash-update!) + (spec: 1 bind-specializer! bind-specializer!) + (spec: 1 hash-for-each hash-for-each) + (spec: 1 thread-local-ref thread-local-ref) + (spec: 1 interface-descriptor? interface-descriptor?) + (spec: 1 fixnum::t fixnum::t) + (spec: 1 u8vector-port::t u8vector-port::t) + (spec: 1 values->list values->list) + (spec: 1 fx1- fx1-) + (spec: 1 processor::t processor::t) + (spec: 1 plist->hash-table-eq plist->hash-table-eq) + (spec: 1 char::t char::t) + (spec: 1 thread-local-get thread-local-get) (spec: 1 remf remf) - (spec: 1 interface-instance::t interface-instance::t) - (spec: 1 bound-method-ref bound-method-ref) - (spec: 1 class-type-slot-vector class-type-slot-vector) - (spec: 1 keyword::t keyword::t) - (spec: 1 plist->hash-table plist->hash-table) - (spec: 1 &class-type-name &class-type-name) - (spec: 1 make-instance make-instance) - (spec: 1 class-type-id class-type-id) - (spec: 1 remv remv) - (spec: 1 substring->bytes substring->bytes) - (spec: 1 directory-port::t directory-port::t) - (spec: 1 symbolic? symbolic?) - (spec: 1 dssl-rest-object? dssl-rest-object?) - (spec: 1 mutex::t mutex::t) - (spec: 1 string-port? string-port?) + (spec: 1 gerbil-system-manifest gerbil-system-manifest) + (spec: 1 class-instance-init! class-instance-init!) + (spec: 1 remq remq) (spec: 1 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 1 file-newer? file-newer?) - (spec: 1 agetv agetv) - (spec: 1 foldr foldr) - (spec: 1 as-string as-string) - (spec: 1 eqv-hash eqv-hash) - (spec: 1 absent-obj absent-obj) - (spec: 1 u64vector::t u64vector::t) - (spec: 1 bytes->string bytes->string) - (spec: 1 procedure::t procedure::t) + unhandled-actor-exception-hook-set! + unhandled-actor-exception-hook-set!) + (spec: 1 actor-thread? actor-thread?) + (spec: 1 condvar::t condvar::t) + (spec: 1 make-instance make-instance) + (spec: 1 thread-group::t thread-group::t) + (spec: 1 object-port::t object-port::t) + (spec: 1 true true) + (spec: 1 displayln displayln) + (spec: 1 error-message error-message) + (spec: 1 hash-keys hash-keys) + (spec: 1 hash-values hash-values) + (spec: 1 bind-method! bind-method!) + (spec: 1 make-promise make-promise) + (spec: 1 writeenv::t writeenv::t) + (spec: 1 flonum::t flonum::t) (spec: 1 keyword->symbol keyword->symbol) - (spec: 1 fx>0? fx>0?) - (spec: 1 gerbil-system-manifest gerbil-system-manifest) - (spec: 1 checked-bound-method-ref checked-bound-method-ref) - (spec: 1 object-port? object-port?) - (spec: 1 class-type-slot-list class-type-slot-list) - (spec: 1 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 1 return::t return::t) - (spec: 1 hash-update! hash-update!) - (spec: 1 sequence? sequence?) - (spec: 1 hash-for-each hash-for-each) - (spec: 1 symbolic-table-set! symbolic-table-set!) - (spec: 1 device-port? device-port?) - (spec: 1 dssl-key-object? dssl-key-object?) - (spec: 1 struct-instance? struct-instance?) - (spec: 1 tcp-server-port? tcp-server-port?) - (spec: 1 subclass? subclass?) - (spec: 1 hash-fold hash-fold) - (spec: 1 agetq agetq) - (spec: 1 void? void?) - (spec: 1 interface-descriptor? interface-descriptor?) - (spec: 1 spawn spawn) + (spec: 1 fx<0? fx<0?) + (spec: 1 values-count values-count) (spec: 1 immediate-hash immediate-hash) - (spec: 1 absent-value absent-value) - (spec: 1 thread-local-delete! thread-local-delete!) - (spec: 1 AST-source AST-source) + (spec: 1 class-type-final? class-type-final?) + (spec: 1 class-type-properties class-type-properties) + (spec: 1 make-class-type make-class-type) + (spec: 1 slot-ref slot-ref) + (spec: 1 u8vector-port? u8vector-port?) + (spec: 1 cpxnum::t cpxnum::t) (spec: 1 gerbil-system-version-string gerbil-system-version-string) - (spec: 1 cons* cons*) - (spec: 1 fx>=0? fx>=0?) - (spec: 1 keyword-dispatch keyword-dispatch) - (spec: 1 list::t list::t) - (spec: 1 class-type-slot-table class-type-slot-table) + (spec: 1 make-symbolic-table make-symbolic-table) + (spec: 1 class-type=? class-type=?) + (spec: 1 string-port::t string-port::t) + (spec: 1 with-catch with-catch) + (spec: 1 error-trace error-trace) + (spec: 1 make-interface-descriptor make-interface-descriptor) + (spec: 1 absent-obj absent-obj) + (spec: 1 true::t true::t) + (spec: 1 hash-length hash-length) + (spec: 1 eof::t eof::t) + (spec: 1 symbolic::t symbolic::t) (spec: 1 weak::t weak::t) + (spec: 1 build-manifest/head build-manifest/head) + (spec: 1 spawn spawn) + (spec: 1 u32vector::t u32vector::t) + (spec: 1 plist->hash-table plist->hash-table) + (spec: 1 fx/ fx/) + (spec: 1 procedure-hash procedure-hash) + (spec: 1 class-type-field-count class-type-field-count) + (spec: 1 atom::t atom::t) + (spec: 1 return::t return::t) + (spec: 1 thread-local-delete! thread-local-delete!) + (spec: 1 make-AST make-AST) + (spec: 1 read-syntax read-syntax) + (spec: 1 create-directory* create-directory*) + (spec: 1 string-port? string-port?) (spec: 1 read-syntax-from-file read-syntax-from-file) + (spec: 1 class-type? class-type?) + (spec: 1 make-hash-table-immediate make-hash-table-immediate) + (spec: 1 source-location-path source-location-path) (spec: 1 load-path load-path) - (spec: 1 set-load-path! set-load-path!) - (spec: 1 direct-instance? direct-instance?) - (spec: 1 dssl-object? dssl-object?) - (spec: 1 string-join string-join) - (spec: 1 current-thread-group current-thread-group) - (spec: 1 u16vector::t u16vector::t) - (spec: 1 AST-e AST-e) - (spec: 1 object-fill! object-fill!) - (spec: 1 pget pget) - (spec: 1 call-method call-method) - (spec: 1 read-u8vector read-u8vector) - (spec: 1 hash-values hash-values) + (spec: 1 hash-get hash-get) + (spec: 1 thread-local-set! thread-local-set!) + (spec: 1 add-load-path! add-load-path!) + (spec: 1 substring->bytes substring->bytes) + (spec: 1 eq-hash eq-hash) + (spec: 1 symbolic? symbolic?) (spec: 1 interned-keyword? interned-keyword?) - (spec: 1 build-manifest build-manifest) - (spec: 1 false false) - (spec: 1 class-type-super class-type-super) + (spec: 1 next-method next-method) (spec: 1 ratnum::t ratnum::t) - (spec: 1 make-hash-table make-hash-table) + (spec: 1 agetq agetq) + (spec: 1 u64vector::t u64vector::t) + (spec: 1 fx1+ fx1+) + (spec: 1 weak? weak?) + (spec: 1 class-type-fields class-type-fields) + (spec: 1 class-type-precedence-list class-type-precedence-list) + (spec: 1 writenv? writenv?) + (spec: 1 read-u8vector read-u8vector) + (spec: 1 HashTable::t HashTable::t) + (spec: 1 plist->hash-table-string plist->hash-table-string) + (spec: 1 set-load-path! set-load-path!) + (spec: 1 gerbil-system gerbil-system) + (spec: 1 current-thread-group current-thread-group) + (spec: 1 class-type-sealed? class-type-sealed?) + (spec: 1 &class-type-id &class-type-id) + (spec: 1 make-hash-table-string make-hash-table-string) (spec: 1 spawn/group spawn/group) + (spec: 1 object::t object::t) + (spec: 1 hash-key? hash-key?) + (spec: 1 reload-module! reload-module!) + (spec: 1 direct-instance? direct-instance?) + (spec: 1 absent-value absent-value) + (spec: 1 dssl-object? dssl-object?) + (spec: 1 fx>0? fx>0?) + (spec: 1 with-exception-handler with-exception-handler) + (spec: 1 keyword::t keyword::t) + (spec: 1 interface-instance::t interface-instance::t) + (spec: 1 immediate-instance-of? immediate-instance-of?) + (spec: 1 udp-port? udp-port?) + (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) + (spec: 1 make-class-predicate make-class-predicate) (spec: 1 s32vector::t s32vector::t) - (spec: 1 display* display*) + (spec: 1 slot-set! slot-set!) + (spec: 1 bytes->string bytes->string) + (spec: 1 checked-bound-method-ref checked-bound-method-ref) + (spec: 1 constructor-init! constructor-init!) + (spec: 1 make-hash-table-eq make-hash-table-eq) + (spec: 1 spawn/name spawn/name) + (spec: 1 class-type-slot-list class-type-slot-list) + (spec: 1 object? object?) + (spec: 1 hash-merge! hash-merge!) + (spec: 1 pget pget) + (spec: 1 hvector::t hvector::t) + (spec: 1 direct-method-ref direct-method-ref) + (spec: 1 dssl-optional-object? dssl-optional-object?) + (spec: 1 interface-instance? interface-instance?) + (spec: 1 fx>=0? fx>=0?) + (spec: 1 raise-unbound-key-error raise-unbound-key-error) + (spec: 1 promise::t promise::t) + (spec: 1 vector-port::t vector-port::t) + (spec: 1 s64vector::t s64vector::t) + (spec: 1 file-info::t file-info::t) + (spec: 1 unbound-key-error? unbound-key-error?) + (spec: 1 HashTableLock::interface HashTableLock::interface) + (spec: 1 plist->hash-table-eqv plist->hash-table-eqv) + (spec: 1 character-port::t character-port::t) + (spec: 1 display-exception display-exception) + (spec: 1 make-hash-table-eqv make-hash-table-eqv) + (spec: 1 make-syntax-error make-syntax-error) + (spec: 1 hash-put! hash-put!) + (spec: 1 &class-type-precedence-list &class-type-precedence-list) + (spec: 1 hvector? hvector?) (spec: 1 substruct? substruct?) - (spec: 1 with-exception-stack-trace with-exception-stack-trace) + (spec: 1 event-queue-port? event-queue-port?) (spec: 1 new-instance new-instance) - (spec: 1 make-syntax-error make-syntax-error) + (spec: 1 device-port::t device-port::t) + (spec: 1 try-cast try-cast) + (spec: 1 with-dynamic-lock with-dynamic-lock) + (spec: 1 fx<=0? fx<=0?) + (spec: 1 immediate? immediate?) + (spec: 1 values-ref values-ref) (spec: 1 u8vector::t u8vector::t) + (spec: 1 false::t false::t) + (spec: 1 foldl foldl) (spec: 1 plist->hash-table-immediate plist->hash-table-immediate) - (spec: 1 values-ref values-ref) - (spec: 1 object? object?) - (spec: 1 hash-keys hash-keys) - (spec: 1 try-cast try-cast) - (spec: 1 gerbil-home gerbil-home) - (spec: 1 call-next-method call-next-method) - (spec: 1 AST? AST?) - (spec: 1 interned-symbol? interned-symbol?) - (spec: 1 build-manifest-string build-manifest-string) - (spec: 1 spawn/name spawn/name) - (spec: 1 make-hash-table-eq make-hash-table-eq) - (spec: 1 s64vector::t s64vector::t) - (spec: 1 class-type-constructor class-type-constructor) - (spec: 1 class-type-methods class-type-methods) - (spec: 1 display-as-string display-as-string) - (spec: 1 &class-type-properties &class-type-properties) - (spec: 1 symbol->keyword symbol->keyword) - (spec: 1 slot-set! slot-set!) - (spec: 1 next-method next-method) - (spec: 1 string-split string-split) - (spec: 1 dump-stack-trace? dump-stack-trace?) - (spec: 1 syntax-error? syntax-error?) - (spec: 1 udp-port::t udp-port::t) - (spec: 1 assget assget) - (spec: 1 values::t values::t) - (spec: 1 foreign::t foreign::t) - (spec: 1 writenv? writenv?) - (spec: 1 true? true?) - (spec: 1 pair::t pair::t) - (spec: 1 with-exception-catcher with-exception-catcher) - (spec: 1 plist->hash-table-string plist->hash-table-string) - (spec: 1 bignum::t bignum::t) - (spec: 1 box::t box::t) - (spec: 1 with-catch with-catch) - (spec: 1 writeenv::t writeenv::t) - (spec: 1 interface-instance? interface-instance?) - (spec: 1 make-interface-descriptor make-interface-descriptor) - (spec: 1 remq remq) - (spec: 1 raise-unbound-key-error raise-unbound-key-error) - (spec: 1 HashTableLock::t HashTableLock::t) - (spec: 1 make-class-type make-class-type) - (spec: 1 slot-ref slot-ref) - (spec: 1 directory-port? directory-port?) - (spec: 1 hash-length hash-length) - (spec: 1 dump-stack-trace! dump-stack-trace!) - (spec: 1 string-rindex string-rindex) - (spec: 1 continuation::t continuation::t) - (spec: 1 immediate-instance-of? immediate-instance-of?) - (spec: 1 filter-map filter-map) - (spec: 1 values->list values->list) - (spec: 1 u8vector-port::t u8vector-port::t) - (spec: 1 object-type object-type) - (spec: 1 processor::t processor::t) - (spec: 1 plist->hash-table-eq plist->hash-table-eq) - (spec: 1 byte-port? byte-port?) + (spec: 1 class-instance? class-instance?) + (spec: 1 list->hash-table-eqv list->hash-table-eqv) (spec: 1 remove1 remove1) - (spec: 1 hash-get hash-get) - (spec: 1 thread-local-get thread-local-get) - (spec: 1 with-dynamic-lock with-dynamic-lock) - (spec: 1 class-type-struct? class-type-struct?) - (spec: 1 make-AST make-AST) + (spec: 1 false false) + (spec: 1 string-split string-split) + (spec: 1 character-port? character-port?) + (spec: 1 gerbil-version-string gerbil-version-string) + (spec: 1 make-object make-object) + (spec: 1 byte-port::t byte-port::t) (spec: 1 string->bytes string->bytes) - (spec: 1 make-keyword make-keyword) - (spec: 1 class-type-metaclass? class-type-metaclass?) - (spec: 1 &class-type-precedence-list &class-type-precedence-list) + (spec: 1 class-type-seal! class-type-seal!) + (spec: 1 table::t table::t) + (spec: 1 time::t time::t) + (spec: 1 hash-map hash-map) + (spec: 1 memf memf) + (spec: 1 symbol->keyword symbol->keyword) + (spec: 1 device-port? device-port?) + (spec: 1 hash->list hash->list) + (spec: 1 dssl-key-object? dssl-key-object?) + (spec: 1 with-exception-catcher with-exception-catcher) + (spec: 1 fx=0? fx=0?) + (spec: 1 bound-method-ref bound-method-ref) + (spec: 1 values::t values::t) (spec: 1 s16vector::t s16vector::t) - (spec: 1 &interface-instance-object &interface-instance-object) - (spec: 1 u8vector-port? u8vector-port?) - (spec: 1 promise::t promise::t) - (spec: 1 values-count values-count) - (spec: 1 object::t object::t) - (spec: 1 s8vector-copy s8vector-copy) - (spec: 1 char-set-xor char-set-xor) - (spec: 1 all-bits-set? all-bits-set?) - (spec: 1 char-set= char-set=) - (spec: 1 file-info-group file-info-group) - (spec: 1 mutex-state mutex-state) - (spec: 1 random-u8vector random-u8vector) - (spec: 1 create-link create-link) - (spec: 1 tty-history tty-history) - (spec: 1 file-mode file-mode) + (spec: 1 udp-port::t udp-port::t) + (spec: + 1 + make-class-slot-unchecked-accessor + make-class-slot-unchecked-accessor) + (spec: 1 class-of class-of) + (spec: 1 interface-descriptor-methods interface-descriptor-methods) + (spec: 1 class-type-id class-type-id) + (spec: + 1 + make-class-slot-unchecked-mutator + make-class-slot-unchecked-mutator) + (spec: 1 c4-linearize c4-linearize) + (spec: 1 list->hash-table list->hash-table) + (spec: 1 string::t string::t) + (spec: 1 list->hash-table-immediate list->hash-table-immediate) + (spec: 1 with-exception-stack-trace with-exception-stack-trace) + (spec: 1 special::t special::t) + (spec: 1 class-type-slot-vector class-type-slot-vector) + (spec: 1 hash-merge hash-merge) + (spec: 1 &class-type-name &class-type-name) + (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) + (spec: 1 syntax-error? syntax-error?) + (spec: 1 AST-source AST-source) + (spec: 1 interned-symbol? interned-symbol?) + (spec: 1 bignum::t bignum::t) + (spec: 1 remv remv) + (spec: 1 integer::t integer::t) + (spec: 1 pgetv pgetv) + (spec: 1 box::t box::t) + (spec: 1 port::t port::t) + (spec: 1 seal-class! seal-class!) + (spec: 1 f32vector-swap! f32vector-swap!) + (spec: 1 bit-count bit-count) + (spec: 1 mutex-specific mutex-specific) (spec: 1 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 1 network-info-name network-info-name) + wrong-number-of-values-exception-code + wrong-number-of-values-exception-code) + (spec: 1 f64vector-swap! f64vector-swap!) + (spec: 1 bitwise-andc1 bitwise-andc1) + (spec: 1 host-info host-info) + (spec: 1 make-thread make-thread) + (spec: 1 delete! delete!) + (spec: 1 call-with-output-string call-with-output-string) + (spec: 1 flcosh flcosh) + (spec: 1 setenv setenv) + (spec: 1 subs64vector-fill! subs64vector-fill!) + (spec: 1 flmin flmin) + (spec: 1 readtable-max-write-level readtable-max-write-level) (spec: 1 - current-user-interrupt-handler - current-user-interrupt-handler) - (spec: 1 u8vector-ref u8vector-ref) - (spec: 1 f64vector-concatenate f64vector-concatenate) - (spec: 1 udp-source-socket-info udp-source-socket-info) + nonprocedure-operator-exception? + nonprocedure-operator-exception?) + (spec: 1 table-merge! table-merge!) (spec: 1 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 1 subs8vector subs8vector) - (spec: 1 u64vector u64vector) - (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 1 bit-field-any? bit-field-any?) - (spec: 1 subu8vector-fill! subu8vector-fill!) - (spec: 1 module-not-found-exception? module-not-found-exception?) - (spec: 1 continuation? continuation?) - (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 flfinite? flfinite?) - (spec: 1 bitwise-eqv bitwise-eqv) + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) + (spec: 1 filter! filter!) (spec: 1 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) - (spec: 1 tcp-server-socket-info tcp-server-socket-info) - (spec: 1 with-input-from-u8vector with-input-from-u8vector) - (spec: 1 repl-error-port repl-error-port) - (spec: 1 call-with-output-vector call-with-output-vector) - (spec: 1 open-directory open-directory) - (spec: 1 display-exception-in-context display-exception-in-context) - (spec: 1 fixnum->flonum fixnum->flonum) - (spec: 1 input-port-readtable input-port-readtable) - (spec: 1 system-stamp system-stamp) + default-user-interrupt-handler + default-user-interrupt-handler) + (spec: 1 fl/ fl/) + (spec: 1 initial-current-directory initial-current-directory) + (spec: 1 network-info network-info) + (spec: 1 udp-read-subu8vector udp-read-subu8vector) + (spec: 1 foreign? foreign?) + (spec: 1 char-set-adjoin! char-set-adjoin!) + (spec: 1 input-port-line input-port-line) (spec: 1 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 1 readtable-max-write-length readtable-max-write-length) - (spec: 1 flabs flabs) + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) + (spec: 1 read-subu8vector read-subu8vector) (spec: 1 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) - (spec: 1 table-ref table-ref) + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) + (spec: 1 char-set-filter char-set-filter) + (spec: 1 fxand fxand) + (spec: 1 thread-quantum-set! thread-quantum-set!) + (spec: 1 flsinh flsinh) (spec: 1 output-port-timeout-set! output-port-timeout-set!) - (spec: 1 thread-state-running? thread-state-running?) - (spec: 1 char-set-complement! char-set-complement!) - (spec: 1 list->u16vector list->u16vector) - (spec: 1 error-exception-message error-exception-message) - (spec: 1 fxabs fxabs) - (spec: 1 s32vector-fill! s32vector-fill!) - (spec: 1 time->seconds time->seconds) - (spec: 1 char-set-for-each char-set-for-each) - (spec: 1 last last) - (spec: 1 fxmin fxmin) + (spec: + 1 + thread-state-normally-terminated-result + thread-state-normally-terminated-result) + (spec: 1 foreign-address foreign-address) + (spec: 1 repl-input-port repl-input-port) + (spec: 1 join-timeout-exception? join-timeout-exception?) + (spec: 1 apropos apropos) (spec: 1 open-output-u8vector open-output-u8vector) - (spec: 1 socket-info-family socket-info-family) - (spec: 1 thread-group-terminate! thread-group-terminate!) - (spec: 1 vector-set vector-set) - (spec: 1 fltanh fltanh) - (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 1 thread-send thread-send) + (spec: 1 thread-group-resume! thread-group-resume!) (spec: 1 executable-path executable-path) - (spec: 1 u16vector->list u16vector->list) - (spec: 1 make-thread-group make-thread-group) - (spec: 1 f32vector-append f32vector-append) - (spec: 1 group-info-members group-info-members) - (spec: 1 processor-id processor-id) - (spec: 1 service-info-name service-info-name) - (spec: 1 u32vector u32vector) - (spec: 1 list= list=) - (spec: 1 host-info-addresses host-info-addresses) - (spec: 1 path-volume path-volume) + (spec: 1 s8vector-copy s8vector-copy) + (spec: 1 string-contains-ci string-contains-ci) + (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) + (spec: 1 with-input-from-u8vector with-input-from-u8vector) + (spec: 1 error-exception-message error-exception-message) + (spec: 1 fxsquare fxsquare) + (spec: 1 make-f32vector make-f32vector) + (spec: 1 string-prefix-ci? string-prefix-ci?) + (spec: 1 address-infos address-infos) + (spec: 1 char-set= char-set=) + (spec: 1 gc-report-set! gc-report-set!) + (spec: 1 list->s64vector list->s64vector) + (spec: 1 s32vector-fill! s32vector-fill!) + (spec: 1 started-thread-exception? started-thread-exception?) (spec: 1 s64vector-copy! s64vector-copy!) - (spec: 1 string->uninterned-symbol string->uninterned-symbol) - (spec: - 1 - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-procedure) - (spec: 1 fxwrapabs fxwrapabs) - (spec: 1 s8vector-copy! s8vector-copy!) - (spec: 1 with-input-from-vector with-input-from-vector) - (spec: 1 char-set? char-set?) - (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 1 file-info-inode file-info-inode) - (spec: 1 mutex-unlock! mutex-unlock!) - (spec: 1 file-number-of-links file-number-of-links) - (spec: 1 create-symbolic-link create-symbolic-link) - (spec: - 1 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 1 network-info-number network-info-number) - (spec: 1 u8vector-set u8vector-set) - (spec: 1 f64vector-copy f64vector-copy) - (spec: 1 bit-field-clear bit-field-clear) + (spec: 1 list-sort! list-sort!) + (spec: 1 path-volume path-volume) + (spec: 1 top top) + (spec: 1 vector-set vector-set) + (spec: 1 create-temporary-directory create-temporary-directory) + (spec: 1 file-info? file-info?) (spec: 1 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 1 subs8vector-fill! subs8vector-fill!) - (spec: 1 u32vector-append u32vector-append) - (spec: 1 fifth fifth) - (spec: 1 bitwise-fold bitwise-fold) - (spec: 1 sinh sinh) - (spec: 1 raise raise) - (spec: 1 subu8vector-move! subu8vector-move!) - (spec: 1 u64vector->list u64vector->list) - (spec: 1 flfloor flfloor) + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 1 random-f64vector random-f64vector) + (spec: 1 subu64vector-move! subu64vector-move!) + (spec: 1 f32vector-append f32vector-append) + (spec: 1 u64vector? u64vector?) (spec: 1 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) + wrong-number-of-values-exception-rte + wrong-number-of-values-exception-rte) + (spec: 1 range-exception-arg-id range-exception-arg-id) + (spec: 1 u8vector-length u8vector-length) + (spec: 1 bits->list bits->list) + (spec: 1 f64vector-append f64vector-append) + (spec: 1 compilation-target compilation-target) + (spec: 1 host-info-addresses host-info-addresses) + (spec: 1 make-s8vector make-s8vector) + (spec: 1 fl>= fl>=) + (spec: 1 call-with-input-vector call-with-input-vector) + (spec: 1 configure-command-string configure-command-string) + (spec: 1 service-info-name service-info-name) (spec: 1 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 1 flonum? flonum?) - (spec: 1 open-dummy open-dummy) - (spec: 1 repl-highlight-source-level repl-highlight-source-level) - (spec: 1 third third) - (spec: 1 input-port-readtable-set! input-port-readtable-set!) + sfun-conversion-exception-code + sfun-conversion-exception-code) + (spec: 1 subs64vector-move! subs64vector-move!) + (spec: 1 flexpt flexpt) + (spec: 1 u16vector-swap! u16vector-swap!) + (spec: 1 delete-directory delete-directory) (spec: 1 - noncontinuable-exception-reason - noncontinuable-exception-reason) - (spec: 1 read-substring read-substring) - (spec: 1 system-type system-type) - (spec: 1 flacos flacos) - (spec: 1 default-random-source default-random-source) - (spec: 1 table-search table-search) - (spec: 1 udp-write-subu8vector udp-write-subu8vector) + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) + (spec: 1 readtable-max-write-level-set readtable-max-write-level-set) + (spec: 1 file-last-modification-time file-last-modification-time) + (spec: 1 table-ref table-ref) + (spec: 1 null-list? null-list?) + (spec: 1 u32vector-shrink! u32vector-shrink!) + (spec: 1 uncaught-exception? uncaught-exception?) + (spec: 1 read-all read-all) + (spec: 1 udp-local-socket-info udp-local-socket-info) + (spec: 1 char-set-any char-set-any) + (spec: 1 defer-user-interrupts defer-user-interrupts) + (spec: 1 thread-specific thread-specific) (spec: 1 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 1 output-port-width output-port-width) - (spec: 1 fxand fxand) - (spec: 1 s16vector-ref s16vector-ref) - (spec: 1 vector-cumulate vector-cumulate) - (spec: 1 char-set-contains? char-set-contains?) - (spec: 1 error-exception-parameters error-exception-parameters) - (spec: 1 fxmodulo fxmodulo) - (spec: 1 list->u32vector list->u32vector) - (spec: 1 s32vector-length s32vector-length) - (spec: 1 char-set-hash char-set-hash) - (spec: 1 open-output-vector open-output-vector) - (spec: 1 fltruncate fltruncate) - (spec: 1 reverse! reverse!) - (spec: 1 socket-info-port-number socket-info-port-number) + unbound-key-exception-procedure + unbound-key-exception-procedure) + (spec: 1 char-set-filter! char-set-filter!) (spec: 1 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 1 os-exception-arguments os-exception-arguments) - (spec: 1 foreign? foreign?) - (spec: 1 thread-group? thread-group?) + length-mismatch-exception-arguments + length-mismatch-exception-arguments) + (spec: 1 fourth fourth) (spec: 1 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) - (spec: 1 thread-sleep! thread-sleep!) - (spec: 1 time? time?) + rpc-remote-error-exception-message + rpc-remote-error-exception-message) + (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) + (spec: 1 flodd? flodd?) + (spec: + 1 + thread-state-normally-terminated? + thread-state-normally-terminated?) + (spec: 1 s16vector-ref s16vector-ref) + (spec: 1 vector-cas! vector-cas!) + (spec: 1 fltruncate fltruncate) + (spec: 1 display-procedure-environment display-procedure-environment) + (spec: 1 repl-output-port repl-output-port) + (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) + (spec: 1 socket-info-port-number socket-info-port-number) + (spec: 1 thread-group-specific thread-group-specific) + (spec: 1 reverse! reverse!) (spec: 1 group-info-name group-info-name) - (spec: 1 make-mutex make-mutex) + (spec: 1 s8vector-copy! s8vector-copy!) + (spec: 1 tty-history-set! tty-history-set!) + (spec: 1 fxmodulo fxmodulo) + (spec: 1 with-input-from-port with-input-from-port) + (spec: 1 make-f64vector make-f64vector) + (spec: 1 pretty-print pretty-print) (spec: 1 string-set string-set) - (spec: 1 u16vector-append u16vector-append) - (spec: 1 processor? processor?) - (spec: 1 f32vector-concatenate f32vector-concatenate) - (spec: 1 host-info-aliases host-info-aliases) - (spec: 1 make-tls-context make-tls-context) - (spec: 1 service-info-port-number service-info-port-number) - (spec: 1 command-name command-name) - (spec: 1 u32vector->list u32vector->list) (spec: 1 fxwraparithmetic-shift fxwraparithmetic-shift) + (spec: 1 list->s8vector list->s8vector) + (spec: 1 error-exception-parameters error-exception-parameters) + (spec: 1 s32vector-length s32vector-length) + (spec: 1 bitwise-unfold bitwise-unfold) + (spec: 1 list-tabulate list-tabulate) + (spec: 1 path-strip-extension path-strip-extension) (spec: 1 s64vector-fill! s64vector-fill!) + (spec: 1 file-info-device file-info-device) + (spec: 1 copy-bit copy-bit) + (spec: 1 random-integer random-integer) + (spec: 1 subu8vector subu8vector) + (spec: 1 u64vector-set! u64vector-set!) (spec: 1 wrong-number-of-arguments-exception? wrong-number-of-arguments-exception?) - (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 1 tty-mode-set! tty-mode-set!) - (spec: 1 with-input-from-process with-input-from-process) - (spec: 1 mutex-specific mutex-specific) - (spec: 1 random-source-state-set! random-source-state-set!) - (spec: 1 create-directory create-directory) - (spec: 1 file-info-creation-time file-info-creation-time) - (spec: 1 network-info network-info) - (spec: 1 udp-read-subu8vector udp-read-subu8vector) - (spec: 1 current-thread current-thread) - (spec: 1 initial-current-directory initial-current-directory) - (spec: 1 file-last-change-time file-last-change-time) - (spec: - 1 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 1 subs64vector-fill! subs64vector-fill!) - (spec: 1 bit-count bit-count) - (spec: - 1 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 1 f64vector->list f64vector->list) + (spec: 1 create-link create-link) + (spec: 1 file-info-group file-info-group) + (spec: 1 mutex-lock! mutex-lock!) + (spec: 1 random-u8vector random-u8vector) + (spec: 1 bits->vector bits->vector) + (spec: 1 subf64vector subf64vector) + (spec: 1 command-name command-name) + (spec: 1 f32vector-concatenate f32vector-concatenate) + (spec: 1 processor? processor?) + (spec: 1 service-info-port-number service-info-port-number) + (spec: 1 substring-fill! substring-fill!) + (spec: 1 u16vector? u16vector?) + (spec: 1 f64vector-concatenate f64vector-concatenate) (spec: 1 - module-not-found-exception-arguments - module-not-found-exception-arguments) - (spec: 1 r7rs-raise r7rs-raise) - (spec: 1 subu64vector-move! subu64vector-move!) - (spec: 1 bitwise-andc1 bitwise-andc1) - (spec: 1 continuation-graft continuation-graft) - (spec: 1 u64vector? u64vector?) - (spec: 1 call-with-output-string call-with-output-string) - (spec: 1 flexpm1 flexpm1) - (spec: 1 join-timeout-exception? join-timeout-exception?) + sfun-conversion-exception-message + sfun-conversion-exception-message) + (spec: 1 take take) + (spec: 1 u32vector-swap! u32vector-swap!) (spec: 1 - display-continuation-environment - display-continuation-environment) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) + (spec: 1 flabs flabs) + (spec: 1 readtable-max-write-length readtable-max-write-length) + (spec: 1 tenth tenth) + (spec: 1 flfinite? flfinite?) (spec: 1 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) - (spec: 1 read-file-u8vector read-file-u8vector) + current-user-interrupt-handler + current-user-interrupt-handler) + (spec: 1 file-mode file-mode) + (spec: 1 system-version-string system-version-string) + (spec: 1 thread-specific-set! thread-specific-set!) + (spec: 1 fixnum->flonum fixnum->flonum) + (spec: 1 unbound-key-exception? unbound-key-exception?) + (spec: 1 char-set-count char-set-count) + (spec: 1 os-exception-message os-exception-message) + (spec: 1 foreign-tags foreign-tags) (spec: 1 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 1 input-port-line input-port-line) - (spec: 1 table-merge! table-merge!) - (spec: 1 first-set-bit first-set-bit) + length-mismatch-exception-procedure + length-mismatch-exception-procedure) (spec: 1 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 1 fl= fl=) + rpc-remote-error-exception-procedure + rpc-remote-error-exception-procedure) + (spec: 1 output-port-readtable output-port-readtable) + (spec: 1 fxandc1 fxandc1) (spec: 1 s16vector-fill! s16vector-fill!) - (spec: - 1 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) + (spec: 1 thread-base-priority thread-base-priority) (spec: 1 vector-concatenate vector-concatenate) - (spec: 1 fx> fx>) - (spec: 1 char-set-any char-set-any) - (spec: 1 s32vector-copy s32vector-copy) - (spec: 1 output-port-readtable output-port-readtable) - (spec: 1 error error) - (spec: 1 char-set-filter! char-set-filter!) - (spec: 1 fxlength fxlength) - (spec: 1 thread-group-specific-set! thread-group-specific-set!) - (spec: 1 flsquare flsquare) + (spec: 1 keyword->string keyword->string) + (spec: 1 display-exception-in-context display-exception-in-context) + (spec: 1 repl-error-port repl-error-port) + (spec: 1 open-output-process open-output-process) + (spec: 1 tty-type-set! tty-type-set!) + (spec: 1 socket-info? socket-info?) (spec: 1 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 1 open-output-process open-output-process) - (spec: 1 thread-receive thread-receive) - (spec: 1 foreign-released? foreign-released?) - (spec: 1 scheduler-exception? scheduler-exception?) - (spec: 1 string-prefix-length-ci string-prefix-length-ci) - (spec: 1 group-info group-info) - (spec: 1 service-info service-info) - (spec: 1 make-table make-table) - (spec: 1 f32vector f32vector) - (spec: 1 s64vector-concatenate s64vector-concatenate) - (spec: 1 fxwrap+ fxwrap+) - (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) + (spec: 1 gensym gensym) (spec: 1 s8vector-append s8vector-append) + (spec: 1 u16vector-concatenate u16vector-concatenate) + (spec: 1 with-input-from-process with-input-from-process) + (spec: 1 group-info? group-info?) + (spec: 1 scheduler-exception? scheduler-exception?) + (spec: 1 list->u64vector list->u64vector) + (spec: 1 error error) + (spec: 1 fxnand fxnand) + (spec: 1 s32vector-copy s32vector-copy) + (spec: 1 touch touch) + (spec: 1 bitwise-xor bitwise-xor) (spec: 1 path-strip-trailing-directory-separator path-strip-trailing-directory-separator) - (spec: 1 s8vector-concatenate s8vector-concatenate) - (spec: - 1 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 1 char-set<= char-set<=) - (spec: 1 mutex-specific-set! mutex-specific-set!) - (spec: 1 file-info-device file-info-device) - (spec: 1 random-source? random-source?) - (spec: 1 with-input-from-string with-input-from-string) - (spec: 1 create-fifo create-fifo) - (spec: 1 file-last-modification-time file-last-modification-time) - (spec: 1 network-info-aliases network-info-aliases) - (spec: 1 udp-read-u8vector udp-read-u8vector) - (spec: 1 current-time current-time) - (spec: 1 f64vector-append f64vector-append) - (spec: - 1 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 1 subs64vector-move! subs64vector-move!) - (spec: 1 bit-field bit-field) - (spec: 1 condition-variable? condition-variable?) - (spec: - 1 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 1 subu8vector subu8vector) - (spec: 1 bitwise-andc2 bitwise-andc2) - (spec: 1 continuation-return continuation-return) - (spec: 1 flexpt flexpt) - (spec: 1 real-time real-time) - (spec: 1 call-with-output-u8vector call-with-output-u8vector) - (spec: 1 flodd? flodd?) - (spec: 1 display-exception display-exception) - (spec: - 1 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) + (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 1 s64vector-concatenate s64vector-concatenate) + (spec: 1 subvector-move! subvector-move!) + (spec: 1 continuation? continuation?) + (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 1 u64vector-shrink! u64vector-shrink!) + (spec: 1 atanh atanh) + (spec: 1 subf64vector-fill! subf64vector-fill!) + (spec: 1 create-symbolic-link create-symbolic-link) + (spec: 1 file-info-attributes file-info-attributes) + (spec: 1 mutex-unlock! mutex-unlock!) + (spec: 1 substring-move! substring-move!) + (spec: 1 bit-field-clear bit-field-clear) + (spec: 1 make-u16vector make-u16vector) + (spec: 1 f32vector f32vector) + (spec: 1 service-info service-info) + (spec: 1 u32vector-append u32vector-append) + (spec: 1 take! take!) + (spec: 1 u64vector->list u64vector->list) + (spec: 1 f64vector f64vector) + (spec: 1 delete delete) + (spec: 1 fl= fl=) (spec: 1 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) + readtable-max-write-length-set + readtable-max-write-length-set) + (spec: 1 flexp flexp) (spec: 1 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 1 fl>= fl>=) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) + (spec: 1 iota iota) + (spec: 1 udp-write-subu8vector udp-write-subu8vector) + (spec: 1 network-info-number network-info-number) + (spec: 1 file-last-access-time file-last-access-time) + (spec: 1 thread-send thread-send) (spec: 1 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 1 output-port-readtable-set! output-port-readtable-set!) - (spec: 1 fl> fl>) - (spec: 1 s16vector-length s16vector-length) - (spec: 1 fx>= fx>=) - (spec: 1 char-set-complement char-set-complement) - (spec: 1 list->table list->table) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 1 default-random-source default-random-source) + (spec: 1 first first) + (spec: 1 read-substring read-substring) + (spec: 1 thread-priority-set! thread-priority-set!) + (spec: 1 thread-state-running? thread-state-running?) + (spec: 1 s16vector-shrink! s16vector-shrink!) + (spec: 1 vector-fold vector-fold) + (spec: 1 os-exception-procedure os-exception-procedure) + (spec: 1 thread-base-priority-set! thread-base-priority-set!) (spec: 1 end-of-char-set? end-of-char-set?) - (spec: 1 s32vector-copy! s32vector-copy!) + (spec: 1 fx>= fx>=) + (spec: 1 s16vector-length s16vector-length) + (spec: 1 thread-init! thread-init!) (spec: 1 - thread-state-running-processor - thread-state-running-processor) - (spec: 1 char-set-fold char-set-fold) - (spec: 1 fxmax fxmax) - (spec: 1 socket-info-address socket-info-address) - (spec: 1 thread-group-suspend! thread-group-suspend!) + cfun-conversion-exception-message + cfun-conversion-exception-message) + (spec: 1 open-dummy open-dummy) + (spec: 1 flnumerator flnumerator) + (spec: 1 repl-highlight-source-level repl-highlight-source-level) + (spec: 1 user-info user-info) + (spec: 1 tty? tty?) (spec: 1 fltan fltan) - (spec: 1 length+ length+) - (spec: 1 thread-resume! thread-resume!) + (spec: 1 open-process open-process) + (spec: 1 socket-info-address socket-info-address) + (spec: 1 u16vector-copy u16vector-copy) + (spec: 1 circular-list? circular-list?) + (spec: 1 ->char-set ->char-set) + (spec: 1 with-output-to-port with-output-to-port) + (spec: 1 s8vector-concatenate s8vector-concatenate) (spec: 1 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 1 foreign-tags foreign-tags) - (spec: 1 string-prefix? string-prefix?) - (spec: 1 u16vector u16vector) + mailbox-receive-timeout-exception-procedure + mailbox-receive-timeout-exception-procedure) + (spec: 1 char-set-intersection! char-set-intersection!) + (spec: 1 timeout->time timeout->time) + (spec: 1 print print) (spec: 1 group-info-gid group-info-gid) - (spec: 1 make-thread make-thread) - (spec: 1 ->char-set ->char-set) - (spec: 1 service-info-aliases service-info-aliases) - (spec: 1 command-args command-args) - (spec: 1 host-info host-info) - (spec: 1 f32vector->list f32vector->list) - (spec: 1 path-strip-volume path-strip-volume) - (spec: 1 s64vector-copy s64vector-copy) + (spec: 1 string-prefix? string-prefix?) + (spec: 1 trace trace) + (spec: 1 vector-swap! vector-swap!) + (spec: 1 partition partition) + (spec: 1 fxmax fxmax) + (spec: 1 s32vector-copy! s32vector-copy!) + (spec: 1 list->u8vector list->u8vector) + (spec: 1 bitwise-fold bitwise-fold) + (spec: 1 write-file-string write-file-string) (spec: 1 fxwrap- fxwrap-) - (spec: 1 abort abort) + (spec: 1 s64vector-copy s64vector-copy) (spec: 1 string->uninterned-keyword string->uninterned-keyword) + (spec: 1 raise raise) + (spec: 1 u8vector-set u8vector-set) + (spec: 1 subf32vector-fill! subf32vector-fill!) + (spec: 1 u32vector-concatenate u32vector-concatenate) + (spec: 1 file-info-creation-time file-info-creation-time) + (spec: 1 mutex? mutex?) + (spec: 1 subs8vector-move! subs8vector-move!) + (spec: 1 u64vector-append u64vector-append) + (spec: 1 concatenate! concatenate!) + (spec: 1 f32vector->list f32vector->list) + (spec: 1 host-info? host-info?) + (spec: 1 make-u32vector make-u32vector) + (spec: 1 service-info-aliases service-info-aliases) + (spec: 1 table? table?) + (spec: 1 f64vector->list f64vector->list) + (spec: 1 bit-field-every? bit-field-every?) + (spec: 1 readtable-start-syntax readtable-start-syntax) (spec: 1 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) - (spec: - 1 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 1 s64vector-ref s64vector-ref) - (spec: - 1 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 1 range-exception-arguments range-exception-arguments) - (spec: - 1 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 1 subvector-move! subvector-move!) - (spec: 1 u8vector->object u8vector->object) - (spec: 1 file-size file-size) - (spec: 1 u8vector-swap! u8vector-swap!) - (spec: 1 f64vector-length f64vector-length) - (spec: 1 bit-field-replace-same bit-field-replace-same) - (spec: 1 set-box! set-box!) - (spec: 1 subf64vector subf64vector) - (spec: 1 copy-bit-field copy-bit-field) - (spec: 1 file-device file-device) - (spec: 1 bitwise-ior bitwise-ior) - (spec: 1 module-whitelist-add! module-whitelist-add!) - (spec: 1 random-real random-real) - (spec: 1 substring-fill! substring-fill!) - (spec: 1 u32vector-copy! u32vector-copy!) - (spec: 1 flinfinite? flinfinite?) - (spec: 1 u64vector-copy u64vector-copy) - (spec: 1 take take) + sfun-conversion-exception-arguments + sfun-conversion-exception-arguments) + (spec: 1 tcp-service-register! tcp-service-register!) + (spec: 1 fl> fl>) + (spec: 1 uninterned-keyword? uninterned-keyword?) + (spec: 1 udp-write-u8vector udp-write-u8vector) + (spec: 1 directory-files directory-files) + (spec: 1 flexpm1 flexpm1) (spec: 1 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) + invalid-utf8-encoding-exception-procedure + invalid-utf8-encoding-exception-procedure) (spec: 1 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 1 keyword->string keyword->string) - (spec: 1 tenth tenth) + number-of-arguments-limit-exception? + number-of-arguments-limit-exception?) + (spec: 1 system-type-string system-type-string) + (spec: 1 file-last-change-time file-last-change-time) (spec: 1 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) - (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) + (spec: 1 readtable-case-conversion? readtable-case-conversion?) + (spec: 1 initialized-thread-exception? initialized-thread-exception?) + (spec: 1 network-info? network-info?) + (spec: 1 thread-sleep! thread-sleep!) + (spec: 1 first-set-bit first-set-bit) + (spec: 1 input-port-timeout-set! input-port-timeout-set!) + (spec: 1 noncontinuable-exception? noncontinuable-exception?) + (spec: 1 s16vector-swap! s16vector-swap!) + (spec: 1 vector-cumulate vector-cumulate) (spec: 1 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) - (spec: 1 readtable-max-write-level-set readtable-max-write-level-set) + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) + (spec: 1 os-exception-arguments os-exception-arguments) + (spec: 1 fxabs fxabs) + (spec: 1 char-set-cursor char-set-cursor) + (spec: 1 replace-bit-field replace-bit-field) + (spec: 1 thread-group-terminate! thread-group-terminate!) + (spec: 1 user-info-gid user-info-gid) (spec: 1 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) - (spec: 1 char-set-cursor char-set-cursor) - (spec: 1 fxarithmetic-shift fxarithmetic-shift) - (spec: 1 stack-overflow-exception? stack-overflow-exception?) - (spec: 1 thread-start! thread-start!) - (spec: 1 char-set-map char-set-map) - (spec: 1 partition! partition!) - (spec: 1 fxnor fxnor) - (spec: 1 s16vector-shrink! s16vector-shrink!) - (spec: 1 thread-state-waiting-for thread-state-waiting-for) + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) + (spec: 1 open-event-queue open-event-queue) + (spec: 1 with-output-to-process with-output-to-process) + (spec: 1 fltanh fltanh) (spec: 1 cfun-conversion-exception-procedure cfun-conversion-exception-procedure) - (spec: 1 vector-fold vector-fold) + (spec: 1 last last) (spec: 1 open-string open-string) - (spec: 1 fold fold) - (spec: 1 replace-bit-field replace-bit-field) - (spec: 1 length-mismatch-exception? length-mismatch-exception?) - (spec: 1 os-exception-procedure os-exception-procedure) - (spec: 1 thread-interrupt! thread-interrupt!) - (spec: 1 user-info-gid user-info-gid) + (spec: 1 socket-info-family socket-info-family) + (spec: 1 u16vector->list u16vector->list) + (spec: 1 all-bits-set? all-bits-set?) + (spec: 1 script-file script-file) + (spec: + 1 + port-io-exception-handler-set! + port-io-exception-handler-set!) + (spec: 1 time->seconds time->seconds) + (spec: 1 vector-unfold vector-unfold) + (spec: 1 group-info-members group-info-members) (spec: 1 clear-bit-field clear-bit-field) (spec: 1 println println) - (spec: 1 with-output-to-process with-output-to-process) - (spec: 1 string-suffix-ci? string-suffix-ci?) - (spec: 1 compilation-target compilation-target) - (spec: 1 make-u64vector make-u64vector) - (spec: 1 f32vector-fill! f32vector-fill!) - (spec: 1 host-name host-name) - (spec: 1 script-file script-file) - (spec: 1 acosh acosh) - (spec: 1 subf32vector-move! subf32vector-move!) - (spec: 1 u16vector-copy! u16vector-copy!) - (spec: 1 fxwrapquotient fxwrapquotient) (spec: 1 s32vector-set s32vector-set) - (spec: 1 vector-unfold vector-unfold) - (spec: 1 any any) (spec: 1 write-file-string-list write-file-string-list) - (spec: 1 any-bit-set? any-bit-set?) - (spec: 1 main main) - (spec: 1 s64vector-set s64vector-set) - (spec: 1 file-info-mode file-info-mode) - (spec: 1 current-directory current-directory) - (spec: 1 module-whitelist-reset! module-whitelist-reset!) - (spec: 1 range-exception-procedure range-exception-procedure) - (spec: 1 u8vector-append u8vector-append) - (spec: 1 file-type file-type) - (spec: 1 u8vector? u8vector?) - (spec: 1 bit-field-reverse bit-field-reverse) - (spec: 1 conjugate conjugate) - (spec: 1 subf64vector-fill! subf64vector-fill!) - (spec: 1 u32vector-fill! u32vector-fill!) + (spec: 1 fxmin fxmin) + (spec: 1 char-set-map char-set-map) + (spec: 1 list->u16vector list->u16vector) + (spec: 1 partition! partition!) + (spec: 1 s64vector-ref s64vector-ref) + (spec: 1 fxwrapabs fxwrapabs) + (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) + (spec: 1 list= list=) + (spec: 1 string->uninterned-symbol string->uninterned-symbol) + (spec: 1 subvector subvector) + (spec: 1 u8vector u8vector) + (spec: 1 bitwise-for-each bitwise-for-each) + (spec: 1 range-exception? range-exception?) + (spec: 1 module-search-order-add! module-search-order-add!) + (spec: 1 subf32vector-move! subf32vector-move!) + (spec: 1 u32vector u32vector) + (spec: 1 file-info-last-change-time file-info-last-change-time) + (spec: 1 u8vector-set! u8vector-set!) + (spec: 1 current-exception-handler current-exception-handler) + (spec: 1 mutex-specific-set! mutex-specific-set!) + (spec: + 1 + wrong-processor-c-return-exception? + wrong-processor-c-return-exception?) + (spec: 1 f32vector-fill! f32vector-fill!) + (spec: 1 host-name host-name) + (spec: 1 make-thread-group make-thread-group) + (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) (spec: 1 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 1 bitwise-merge bitwise-merge) - (spec: 1 copy-file copy-file) - (spec: 1 substring-move! substring-move!) - (spec: 1 u64vector-copy! u64vector-copy!) - (spec: 1 flinteger? flinteger?) - (spec: 1 iota iota) + uninitialized-thread-exception-procedure + uninitialized-thread-exception-procedure) + (spec: 1 f64vector-fill! f64vector-fill!) + (spec: 1 bit-field bit-field) + (spec: 1 cons* cons*) + (spec: 1 tcp-service-unregister! tcp-service-unregister!) + (spec: 1 udp-read-u8vector udp-read-u8vector) + (spec: 1 call-with-output-u8vector call-with-output-u8vector) + (spec: 1 flilogb flilogb) (spec: 1 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) - (spec: 1 take! take!) + invalid-utf8-encoding-exception? + invalid-utf8-encoding-exception?) + (spec: 1 system-version system-version) (spec: 1 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 1 repl-result-history-ref repl-result-history-ref) + readtable-case-conversion?-set + readtable-case-conversion?-set) (spec: 1 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 1 fixnum? fixnum?) - (spec: 1 unbound-global-exception-code unbound-global-exception-code) - (spec: 1 flasin flasin) - (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) + (spec: 1 network-info-aliases network-info-aliases) + (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) (spec: 1 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) - (spec: 1 system-version-string system-version-string) - (spec: 1 char-set-cursor-next char-set-cursor-next) + fixnum-overflow-exception-procedure + fixnum-overflow-exception-procedure) (spec: 1 - unbound-serial-number-exception? - unbound-serial-number-exception?) + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) + (spec: 1 s16vector-set s16vector-set) + (spec: 1 thread-state-waiting? thread-state-waiting?) + (spec: 1 vector-every vector-every) + (spec: 1 list->char-set list->char-set) + (spec: 1 os-exception-code os-exception-code) + (spec: 1 thread thread) (spec: 1 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 1 list->bits list->bits) - (spec: 1 thread-state thread-state) - (spec: 1 char-set-ref char-set-ref) - (spec: 1 fxnot fxnot) - (spec: 1 s16vector-swap! s16vector-swap!) - (spec: 1 vector-fold-right vector-fold-right) - (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 1 open-string-pipe open-string-pipe) + (spec: 1 char-set-contains? char-set-contains?) + (spec: 1 output-port-width output-port-width) + (spec: 1 thread-group? thread-group?) + (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) + (spec: 1 s8vector-ref s8vector-ref) + (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) (spec: 1 fold-right fold-right) - (spec: 1 last-pair last-pair) - (spec: 1 os-exception? os-exception?) - (spec: 1 user-info-home user-info-home) - (spec: 1 thread-join! thread-join!) (spec: 1 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 1 s8vector-ref s8vector-ref) - (spec: 1 make-random-source make-random-source) - (spec: 1 with-output-to-string with-output-to-string) - (spec: 1 f32vector-length f32vector-length) - (spec: 1 proper-list? proper-list?) - (spec: 1 make-u8vector make-u8vector) + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 1 open-output-vector open-output-vector) + (spec: 1 u16vector-append u16vector-append) + (spec: 1 with-input-from-vector with-input-from-vector) + (spec: 1 char-set? char-set?) (spec: 1 string-suffix-length string-suffix-length) - (spec: 1 u16vector-fill! u16vector-fill!) - (spec: 1 write-file-u8vector write-file-u8vector) - (spec: 1 fxwrapsquare fxwrapsquare) + (spec: 1 time? time?) (spec: 1 s32vector-set! s32vector-set!) + (spec: 1 make-mutex make-mutex) + (spec: + 1 + expression-parsing-exception-kind + expression-parsing-exception-kind) (spec: 1 step step) - (spec: 1 vector-unfold-right vector-unfold-right) - (spec: 1 s8vector-fill! s8vector-fill!) + (spec: 1 s64vector-set s64vector-set) + (spec: 1 fxnot fxnot) + (spec: 1 char-set-hash char-set-hash) + (spec: 1 list->u32vector list->u32vector) + (spec: 1 subvector-fill! subvector-fill!) + (spec: 1 random-source-make-integers random-source-make-integers) + (spec: 1 fxwrapsquare fxwrapsquare) + (spec: 1 file-creation-time file-creation-time) + (spec: 1 bitwise-andc2 bitwise-andc2) (spec: 1 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 1 poll-point poll-point) - (spec: 1 touch touch) - (spec: 1 create-temporary-directory create-temporary-directory) - (spec: 1 mutex? mutex?) - (spec: 1 file-info-last-access-time file-info-last-access-time) - (spec: 1 thread-priority thread-priority) - (spec: 1 u8vector u8vector) - (spec: 1 initialized-thread-exception? initialized-thread-exception?) - (spec: 1 network-info? network-info?) - (spec: 1 file-owner file-owner) - (spec: 1 u8vector-set! u8vector-set!) - (spec: 1 bit-field-every? bit-field-every?) - (spec: 1 subs8vector-move! subs8vector-move!) - (spec: 1 f64vector-copy! f64vector-copy!) - (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 1 u32vector-concatenate u32vector-concatenate) - (spec: 1 bitwise-for-each bitwise-for-each) - (spec: 1 module-search-order-add! module-search-order-add!) - (spec: 1 file-attributes file-attributes) - (spec: 1 random-f64vector random-f64vector) - (spec: 1 subvector subvector) + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 1 cosh cosh) + (spec: 1 proper-list? proper-list?) + (spec: 1 set-box! set-box!) + (spec: 1 identity identity) (spec: 1 - invalid-utf8-encoding-exception-procedure - invalid-utf8-encoding-exception-procedure) - (spec: 1 u64vector-append u64vector-append) + file-info-last-modification-time + file-info-last-modification-time) + (spec: 1 mutex-state mutex-state) + (spec: 1 subs16vector-fill! subs16vector-fill!) + (spec: 1 subu16vector-move! subu16vector-move!) + (spec: 1 u32vector->list u32vector->list) + (spec: 1 make-tls-context make-tls-context) + (spec: 1 f32vector-length f32vector-length) + (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) + (spec: 1 tanh tanh) + (spec: 1 bit-field-any? bit-field-any?) (spec: 1 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) - (spec: 1 flhypot flhypot) - (spec: 1 tcp-service-register! tcp-service-register!) - (spec: 1 uninterned-keyword? uninterned-keyword?) + invalid-hash-number-exception? + invalid-hash-number-exception?) + (spec: 1 f64vector-length f64vector-length) + (spec: 1 terminated-thread-exception? terminated-thread-exception?) + (spec: 1 u64vector u64vector) (spec: 1 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 1 open-event-queue open-event-queue) - (spec: 1 repl-input-port repl-input-port) - (spec: 1 input-port-timeout-set! input-port-timeout-set!) + uninitialized-thread-exception? + uninitialized-thread-exception?) (spec: 1 - default-user-interrupt-handler - default-user-interrupt-handler) - (spec: 1 noncontinuable-exception? noncontinuable-exception?) + wrong-number-of-values-exception-vals + wrong-number-of-values-exception-vals) + (spec: 1 flasin flasin) + (spec: 1 udp-source-socket-info udp-source-socket-info) + (spec: 1 call-with-output-vector call-with-output-vector) (spec: 1 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) - (spec: 1 read-subu8vector read-subu8vector) - (spec: 1 system-type-string system-type-string) - (spec: 1 delete! delete!) - (spec: 1 table-set! table-set!) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) + (spec: 1 flinfinite? flinfinite?) (spec: 1 - readtable-max-write-length-set - readtable-max-write-length-set) - (spec: 1 udp-write-u8vector udp-write-u8vector) - (spec: 1 delete delete) - (spec: 1 fxandc1 fxandc1) - (spec: 1 s16vector-set s16vector-set) - (spec: 1 thread-specific thread-specific) - (spec: 1 vector-every vector-every) - (spec: 1 error-exception? error-exception?) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 1 network-info-name network-info-name) + (spec: 1 file-size file-size) + (spec: + 1 + thread-state-abnormally-terminated-reason + thread-state-abnormally-terminated-reason) + (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) + (spec: 1 s16vector-set! s16vector-set!) + (spec: 1 list->char-set! list->char-set!) + (spec: 1 thread-suspend! thread-suspend!) + (spec: 1 vector-inc! vector-inc!) + (spec: + 1 + thread-group->thread-group-list + thread-group->thread-group-list) + (spec: + 1 + repl-result-history-max-length-set! + repl-result-history-max-length-set!) (spec: 1 char-set-copy char-set-copy) - (spec: 1 fxnand fxnand) - (spec: 1 list->u64vector list->u64vector) - (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 1 vector-shrink! vector-shrink!) - (spec: 1 char-set-intersection char-set-intersection) - (spec: 1 socket-info? socket-info?) - (spec: 1 thread-base-priority thread-base-priority) - (spec: 1 fourth fourth) + (spec: 1 keyword-expected-exception? keyword-expected-exception?) + (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) (spec: 1 - cfun-conversion-exception-code - cfun-conversion-exception-code) + thread-mailbox-extract-and-rewind + thread-mailbox-extract-and-rewind) + (spec: 1 open-directory open-directory) + (spec: 1 type-exception-arg-id type-exception-arg-id) + (spec: 1 s8vector-fill! s8vector-fill!) (spec: 1 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) - (spec: 1 os-exception-code os-exception-code) - (spec: 1 group-info? group-info?) - (spec: 1 primordial-exception-handler primordial-exception-handler) - (spec: 1 tty-type-set! tty-type-set!) - (spec: 1 f32vector-copy f32vector-copy) - (spec: 1 atanh atanh) + cfun-conversion-exception-code + cfun-conversion-exception-code) + (spec: 1 u16vector-length u16vector-length) + (spec: 1 string-suffix-length-ci string-suffix-length-ci) + (spec: 1 any-bits-set? any-bits-set?) + (spec: 1 poll-point poll-point) + (spec: 1 vector-shrink! vector-shrink!) + (spec: 1 step-level-set! step-level-set!) (spec: 1 circular-list circular-list) - (spec: 1 host-info-name host-info-name) - (spec: 1 make-u16vector make-u16vector) - (spec: 1 every every) - (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 1 primordial-exception-handler primordial-exception-handler) (spec: 1 s64vector-length s64vector-length) + (spec: 1 char-set-intersection char-set-intersection) + (spec: 1 error-exception? error-exception?) + (spec: 1 fxodd? fxodd?) + (spec: 1 random-real random-real) + (spec: 1 every every) + (spec: 1 compile-file compile-file) + (spec: 1 fxxor fxxor) + (spec: 1 range-exception-arguments range-exception-arguments) + (spec: 1 bitwise-eqv bitwise-eqv) + (spec: 1 copy-bit-field copy-bit-field) + (spec: 1 file-device file-device) + (spec: 1 module-not-found-exception? module-not-found-exception?) (spec: 1 service-info-protocol service-info-protocol) - (spec: 1 subf32vector subf32vector) - (spec: 1 u16vector-concatenate u16vector-concatenate) - (spec: 1 gensym gensym) + (spec: 1 subs16vector-move! subs16vector-move!) + (spec: 1 u32vector-fill! u32vector-fill!) + (spec: 1 current-directory current-directory) + (spec: 1 file-info-inode file-info-inode) (spec: 1 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 1 trace trace) - (spec: 1 s8vector-length s8vector-length) - (spec: 1 file-info-last-change-time file-info-last-change-time) - (spec: 1 range-exception-arg-id range-exception-arg-id) - (spec: 1 u8vector->list u8vector->list) - (spec: 1 read-all read-all) - (spec: 1 u8vector-shrink! u8vector-shrink!) - (spec: 1 bit-field-replace bit-field-replace) - (spec: 1 configure-command-string configure-command-string) - (spec: 1 f64vector-fill! f64vector-fill!) - (spec: 1 u32vector-copy u32vector-copy) + sfun-conversion-exception-procedure + sfun-conversion-exception-procedure) + (spec: 1 subu32vector subu32vector) + (spec: 1 u64vector-copy! u64vector-copy!) + (spec: 1 concatenate concatenate) + (spec: 1 f32vector-copy f32vector-copy) (spec: 1 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) - (spec: 1 bitwise-if bitwise-if) - (spec: 1 copy-bit copy-bit) - (spec: 1 file-creation-time file-creation-time) - (spec: 1 module-search-order-reset! module-search-order-reset!) - (spec: 1 random-integer random-integer) - (spec: 1 call/cc call/cc) - (spec: 1 compile-file-to-target compile-file-to-target) - (spec: 1 flilogb flilogb) + readtable-sharing-allowed?-set + readtable-sharing-allowed?-set) + (spec: 1 u8vector-ref u8vector-ref) + (spec: 1 bit-field-reverse bit-field-reverse) (spec: 1 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) - (spec: 1 subvector-fill! subvector-fill!) - (spec: 1 tcp-service-unregister! tcp-service-unregister!) - (spec: 1 display-procedure-environment display-procedure-environment) - (spec: 1 open-file open-file) - (spec: 1 repl-output-port repl-output-port) - (spec: 1 u64vector-concatenate u64vector-concatenate) - (spec: 1 thread thread) - (spec: 1 uninterned-symbol? uninterned-symbol?) - (spec: 1 defer-user-interrupts defer-user-interrupts) + not-in-compilation-context-exception? + not-in-compilation-context-exception?) + (spec: 1 conjugate conjugate) + (spec: 1 f64vector-copy f64vector-copy) (spec: 1 - fixnum-overflow-exception-procedure - fixnum-overflow-exception-procedure) + unterminated-process-exception? + unterminated-process-exception?) (spec: 1 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 1 system-version system-version) - (spec: 1 delete-directory delete-directory) - (spec: 1 table? table?) - (spec: 1 readtable-max-write-level readtable-max-write-level) - (spec: 1 flacosh flacosh) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 1 delete-file-or-directory delete-file-or-directory) + (spec: 1 flacos flacos) + (spec: 1 input-port-byte-position input-port-byte-position) + (spec: 1 unbound-global-exception-code unbound-global-exception-code) + (spec: 1 flfloor flfloor) + (spec: 1 unbox unbox) + (spec: 1 table->list table->list) (spec: 1 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) - (spec: 1 fxandc2 fxandc2) - (spec: 1 char-set-count char-set-count) - (spec: 1 thread-specific-set! thread-specific-set!) - (spec: 1 s16vector-set! s16vector-set!) - (spec: 1 fxnegative? fxnegative?) - (spec: 1 char-set-intersection! char-set-intersection!) - (spec: 1 list->u8vector list->u8vector) - (spec: 1 partition partition) - (spec: 1 s32vector-ref s32vector-ref) - (spec: 1 flzero? flzero?) + nonempty-input-port-character-buffer-exception-arguments + nonempty-input-port-character-buffer-exception-arguments) + (spec: 1 file-number-of-links file-number-of-links) + (spec: 1 length-mismatch-exception? length-mismatch-exception?) + (spec: 1 s16vector s16vector) + (spec: 1 thread-start! thread-start!) + (spec: 1 vector->bits vector->bits) + (spec: 1 stack-overflow-exception? stack-overflow-exception?) + (spec: 1 thread-state-waiting-for thread-state-waiting-for) + (spec: 1 eq?-hash eq?-hash) + (spec: 1 repl-result-history-ref repl-result-history-ref) + (spec: 1 keyword-hash keyword-hash) + (spec: 1 char-set-delete! char-set-delete!) (spec: 1 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 1 open-process open-process) - (spec: 1 thread-base-priority-set! thread-base-priority-set!) + thread-group->thread-group-vector + thread-group->thread-group-vector) + (spec: 1 fxandc2 fxandc2) + (spec: 1 user-info-shell user-info-shell) + (spec: 1 thread-mailbox-next thread-mailbox-next) + (spec: 1 open-tcp-server open-tcp-server) (spec: 1 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 1 os-exception-message os-exception-message) - (spec: 1 thread-init! thread-init!) - (spec: 1 user-info user-info) - (spec: 1 circular-list? circular-list?) - (spec: 1 print print) - (spec: 1 string-shrink! string-shrink!) + divide-by-zero-exception-arguments + divide-by-zero-exception-arguments) + (spec: 1 flonum? flonum?) + (spec: 1 s8vector-length s8vector-length) + (spec: 1 type-exception-arguments type-exception-arguments) + (spec: 1 with-output-to-vector with-output-to-vector) + (spec: 1 flzero? flzero?) (spec: 1 script-directory script-directory) - (spec: 1 tty? tty?) - (spec: 1 host-info? host-info?) - (spec: 1 subf32vector-fill! subf32vector-fill!) - (spec: 1 make-u32vector make-u32vector) - (spec: 1 f32vector-copy! f32vector-copy!) - (spec: 1 service-info? service-info?) - (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 1 u16vector-copy u16vector-copy) - (spec: 1 with-output-to-port with-output-to-port) - (spec: 1 every-bit-set? every-bit-set?) - (spec: 1 timeout->time timeout->time) - (spec: 1 vector-swap! vector-swap!) - (spec: 1 write-file-string write-file-string) - (spec: 1 append! append!) - (spec: 1 get-output-u8vector get-output-u8vector) - (spec: 1 s64vector-swap! s64vector-swap!) - (spec: 1 will-testator will-testator) - (spec: - 1 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 1 random-source-make-reals random-source-make-reals) + (spec: 1 string-shrink! string-shrink!) + (spec: 1 s32vector-ref s32vector-ref) + (spec: 1 will-execute! will-execute!) + (spec: 1 char-set-unfold char-set-unfold) + (spec: 1 fxnegative? fxnegative?) + (spec: 1 compile-file-to-target compile-file-to-target) (spec: 1 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 1 u8vector-copy! u8vector-copy!) - (spec: 1 file-info-size file-info-size) - (spec: 1 protocol-info protocol-info) - (spec: 1 f32vector-set! f32vector-set!) - (spec: 1 bit-set? bit-set?) - (spec: 1 identity identity) - (spec: 1 subs16vector-fill! subs16vector-fill!) - (spec: 1 u32vector-ref u32vector-ref) - (spec: 1 f64vector-set! f64vector-set!) - (spec: 1 bitwise-not bitwise-not) - (spec: 1 subu16vector-move! subu16vector-move!) - (spec: 1 flceiling flceiling) + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 1 sinh sinh) + (spec: 1 u8vector-append u8vector-append) + (spec: 1 module-whitelist-reset! module-whitelist-reset!) + (spec: 1 address-info-family address-info-family) + (spec: 1 every-bit-set? every-bit-set?) + (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) + (spec: 1 bitwise-merge bitwise-merge) + (spec: 1 range-exception-procedure range-exception-procedure) + (spec: 1 copy-file copy-file) + (spec: 1 fifth fifth) + (spec: 1 protocol-info-name protocol-info-name) + (spec: 1 service-info? service-info?) + (spec: 1 subf64vector-move! subf64vector-move!) + (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 1 box box) + (spec: 1 file-info-last-access-time file-info-last-access-time) + (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) + (spec: 1 subu16vector subu16vector) + (spec: 1 u32vector-length u32vector-length) + (spec: 1 f32vector-copy! f32vector-copy!) (spec: 1 - invalid-hash-number-exception? - invalid-hash-number-exception?) + readtable-write-extended-read-macros? + readtable-write-extended-read-macros?) (spec: 1 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 1 tanh tanh) + invalid-hash-number-exception-arguments + invalid-hash-number-exception-arguments) + (spec: 1 take-right take-right) + (spec: 1 u64vector-fill! u64vector-fill!) + (spec: 1 u8vector? u8vector?) + (spec: 1 bit-field-rotate bit-field-rotate) + (spec: 1 f64vector-copy! f64vector-copy!) + (spec: 1 remq remq) (spec: 1 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 1 fllog1p fllog1p) - (spec: 1 remove remove) - (spec: 1 object->string object->string) - (spec: 1 terminated-thread-exception? terminated-thread-exception?) - (spec: 1 ninth ninth) - (spec: 1 unbound-global-exception? unbound-global-exception?) + terminated-thread-exception-arguments + terminated-thread-exception-arguments) (spec: 1 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 1 fl+ fl+) + unknown-keyword-argument-exception-arguments + unknown-keyword-argument-exception-arguments) + (spec: 1 flacosh flacosh) + (spec: 1 untrace untrace) + (spec: 1 write-subu8vector write-subu8vector) + (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) + (spec: 1 datum-parsing-exception? datum-parsing-exception?) + (spec: 1 car+cdr car+cdr) + (spec: 1 flhypot flhypot) (spec: 1 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) + nonempty-input-port-character-buffer-exception-procedure + nonempty-input-port-character-buffer-exception-procedure) + (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) + (spec: 1 unbreak unbreak) + (spec: 1 file-owner file-owner) + (spec: 1 os-exception? os-exception?) + (spec: 1 thread-state thread-state) + (spec: 1 s16vector->list s16vector->list) + (spec: 1 fx+ fx+) (spec: 1 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: 1 char-set-diff+intersection char-set-diff+intersection) - (spec: 1 fxbit-set? fxbit-set?) - (spec: 1 s16vector s16vector) + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) + (spec: 1 list->bits list->bits) + (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: 1 vector-fold-right vector-fold-right) + (spec: 1 fxeqv fxeqv) (spec: 1 - thread-state-abnormally-terminated? - thread-state-abnormally-terminated?) - (spec: 1 vector->bits vector->bits) - (spec: 1 char-set-unfold! char-set-unfold!) - (spec: 1 eq?-hash eq?-hash) - (spec: 1 fxorc2 fxorc2) - (spec: 1 list->f32vector list->f32vector) - (spec: 1 thread-terminate! thread-terminate!) - (spec: 1 keyword? keyword?) + keyword-expected-exception-arguments + keyword-expected-exception-arguments) (spec: 1 open-input-process open-input-process) - (spec: 1 thread-group->thread-list thread-group->thread-list) + (spec: 1 fxarithmetic-shift fxarithmetic-shift) + (spec: 1 char-set-diff+intersection char-set-diff+intersection) (spec: 1 open-u8vector open-u8vector) - (spec: 1 fx* fx*) - (spec: 1 split-at split-at) - (spec: 1 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 1 arithmetic-shift arithmetic-shift) - (spec: 1 make-bitwise-generator make-bitwise-generator) - (spec: 1 heap-overflow-exception? heap-overflow-exception?) - (spec: 1 s8vector-shrink! s8vector-shrink!) - (spec: 1 type-exception-procedure type-exception-procedure) + (spec: 1 thread-interrupt! thread-interrupt!) (spec: 1 user-info-uid user-info-uid) + (spec: 1 s8vector-shrink! s8vector-shrink!) + (spec: + 1 + mailbox-receive-timeout-exception? + mailbox-receive-timeout-exception?) + (spec: 1 fold fold) + (spec: 1 string-suffix-ci? string-suffix-ci?) + (spec: 1 u16vector-copy! u16vector-copy!) (spec: 1 expression-parsing-exception? expression-parsing-exception?) - (spec: 1 make-root-thread make-root-thread) - (spec: 1 string-swap! string-swap!) - (spec: 1 u16vector-ref u16vector-ref) - (spec: 1 address-info-protocol address-info-protocol) + (spec: 1 any any) (spec: 1 path-expand path-expand) (spec: 1 s32vector? s32vector?) (spec: 1 void void) + (spec: 1 s64vector-swap! s64vector-swap!) + (spec: 1 will-testator will-testator) + (spec: 1 fxnor fxnor) + (spec: 1 char-set-unfold! char-set-unfold!) (spec: 1 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 1 append-reverse append-reverse) - (spec: 1 s64vector? s64vector?) - (spec: 1 u8vector-fill! u8vector-fill!) - (spec: 1 will? will?) - (spec: 1 file-exists-exception? file-exists-exception?) - (spec: 1 bitwise-orc1 bitwise-orc1) - (spec: - 1 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) - (spec: 1 udp-destination-set! udp-destination-set!) - (spec: 1 file-info-type file-info-type) - (spec: - 1 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 1 u32vector-set u32vector-set) - (spec: 1 f32vector-shrink! f32vector-shrink!) - (spec: 1 console-port console-port) - (spec: 1 subs16vector-move! subs16vector-move!) - (spec: 1 protocol-info-aliases protocol-info-aliases) - (spec: 1 u64vector-ref u64vector-ref) - (spec: 1 bit-swap bit-swap) - (spec: 1 f64vector-shrink! f64vector-shrink!) - (spec: 1 subu32vector subu32vector) - (spec: 1 flcos flcos) - (spec: 1 call-with-input-string call-with-input-string) - (spec: - 1 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 1 flmax flmax) - (spec: 1 object->u8vector object->u8vector) - (spec: 1 remove! remove!) - (spec: 1 filter filter) - (spec: 1 input-port-byte-position input-port-byte-position) - (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 1 fl+* fl+*) - (spec: 1 call-with-input-process call-with-input-process) - (spec: 1 readtable-comment-handler readtable-comment-handler) - (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 1 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 1 output-port-byte-position output-port-byte-position) - (spec: 1 fx+ fx+) - (spec: 1 s16vector->list s16vector->list) - (spec: 1 char-set-union char-set-union) - (spec: 1 fxeqv fxeqv) - (spec: 1 list->f64vector list->f64vector) - (spec: 1 thread-thread-group thread-thread-group) - (spec: 1 flround flround) - (spec: 1 char-set char-set) - (spec: 1 thread-group->thread-vector thread-group->thread-vector) - (spec: 1 force-output force-output) - (spec: 1 open-u8vector-pipe open-u8vector-pipe) - (spec: 1 split-at! split-at!) - (spec: 1 compile-file compile-file) - (spec: 1 thread-name thread-name) - (spec: 1 user-info? user-info?) - (spec: 1 get-output-vector get-output-vector) - (spec: 1 s8vector-swap! s8vector-swap!) - (spec: 1 type-exception-type-id type-exception-type-id) - (spec: 1 process-pid process-pid) - (spec: 1 help help) - (spec: 1 make-s16vector make-s16vector) - (spec: 1 u16vector-set u16vector-set) - (spec: 1 path-extension path-extension) - (spec: 1 fxpositive? fxpositive?) - (spec: 1 address-info-socket-info address-info-socket-info) - (spec: 1 list-set list-set) - (spec: 1 string->char-set string->char-set) - (spec: 1 any-bits-set? any-bits-set?) - (spec: 1 s64vector-set! s64vector-set!) - (spec: 1 port-settings-set! port-settings-set!) - (spec: 1 box box) - (spec: 1 file-info-number-of-links file-info-number-of-links) - (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) + random-source-pseudo-randomize! + random-source-pseudo-randomize!) (spec: 1 u8vector-concatenate u8vector-concatenate) - (spec: 1 range-exception? range-exception?) + (spec: 1 cpu-time cpu-time) + (spec: 1 acosh acosh) + (spec: 1 fxwrapquotient fxwrapquotient) (spec: 1 ucs-range->char-set ucs-range->char-set) - (spec: 1 bit-field-rotate bit-field-rotate) - (spec: 1 subf64vector-move! subf64vector-move!) - (spec: 1 f64vector-ref f64vector-ref) - (spec: 1 u32vector-length u32vector-length) + (spec: 1 file-attributes file-attributes) (spec: 1 bitwise-nand bitwise-nand) - (spec: 1 subu16vector subu16vector) - (spec: 1 u64vector-fill! u64vector-fill!) - (spec: 1 car+cdr car+cdr) - (spec: 1 directory-files directory-files) - (spec: 1 readtable-start-syntax readtable-start-syntax) - (spec: 1 take-right take-right) + (spec: 1 condition-variable-name condition-variable-name) + (spec: 1 make-u64vector make-u64vector) + (spec: 1 protocol-info-number protocol-info-number) + (spec: 1 f32vector-set f32vector-set) + (spec: 1 subs16vector subs16vector) + (spec: 1 u32vector-copy u32vector-copy) + (spec: 1 subu16vector-fill! subu16vector-fill!) + (spec: 1 u64vector-concatenate u64vector-concatenate) + (spec: 1 f64vector-set f64vector-set) (spec: 1 - unknown-keyword-argument-exception-arguments - unknown-keyword-argument-exception-arguments) + invalid-hash-number-exception-procedure + invalid-hash-number-exception-procedure) (spec: 1 - keyword-expected-exception-arguments - keyword-expected-exception-arguments) + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) (spec: 1 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) + (spec: 1 flatanh flatanh) + (spec: 1 bit-field-replace bit-field-replace) + (spec: 1 uninterned-symbol? uninterned-symbol?) (spec: 1 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 1 flpositive? flpositive?) - (spec: 1 untrace untrace) - (spec: 1 fl* fl*) - (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) - (spec: 1 flasinh flasinh) - (spec: 1 delete-file-or-directory delete-file-or-directory) + terminated-thread-exception-procedure + terminated-thread-exception-procedure) + (spec: 1 rename-file rename-file) (spec: 1 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) + unterminated-process-exception-arguments + unterminated-process-exception-arguments) + (spec: 1 fllog fllog) + (spec: 1 xcons xcons) + (spec: 1 dead-end dead-end) + (spec: 1 call/cc call/cc) + (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) (spec: 1 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) - (spec: 1 unbox unbox) - (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 1 char-set-delete char-set-delete) - (spec: 1 fxodd? fxodd?) - (spec: 1 char-set-size char-set-size) - (spec: 1 list->char-set list->char-set) - (spec: 1 path-directory path-directory) + unbound-serial-number-exception-procedure + unbound-serial-number-exception-procedure) + (spec: 1 fl+ fl+) + (spec: 1 fx- fx-) + (spec: 1 thread-priority-boost thread-priority-boost) + (spec: 1 list->s16vector list->s16vector) + (spec: 1 fxeven? fxeven?) (spec: 1 s16vector? s16vector?) - (spec: 1 thread-state-waiting? thread-state-waiting?) - (spec: 1 keyword-expected-exception? keyword-expected-exception?) - (spec: 1 open-tcp-client open-tcp-client) - (spec: - 1 - thread-group->thread-group-list - thread-group->thread-group-list) (spec: 1 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 1 user-info-name user-info-name) + started-thread-exception-arguments + started-thread-exception-arguments) + (spec: 1 thread-state-initialized? thread-state-initialized?) (spec: 1 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: 1 s8vector-set s8vector-set) - (spec: 1 type-exception-arg-id type-exception-arg-id) - (spec: 1 with-output-to-u8vector with-output-to-u8vector) - (spec: 1 concatenate concatenate) - (spec: 1 second second) - (spec: 1 string-suffix-length-ci string-suffix-length-ci) - (spec: 1 u16vector-length u16vector-length) - (spec: 1 fxxor fxxor) - (spec: 1 s32vector-shrink! s32vector-shrink!) - (spec: 1 step-level-set! step-level-set!) - (spec: 1 string-ci=?-hash string-ci=?-hash) - (spec: 1 s64vector-shrink! s64vector-shrink!) - (spec: 1 will-execute! will-execute!) - (spec: 1 box? box?) - (spec: 1 current-exception-handler current-exception-handler) + keyword-expected-exception-procedure + keyword-expected-exception-procedure) + (spec: 1 open-file open-file) + (spec: 1 flround flround) + (spec: 1 char-set-cursor-next char-set-cursor-next) + (spec: 1 last-pair last-pair) + (spec: 1 open-string-pipe open-string-pipe) + (spec: 1 split-at! split-at!) + (spec: 1 thread-join! thread-join!) + (spec: 1 force-output force-output) + (spec: 1 user-info-home user-info-home) + (spec: 1 main main) + (spec: 1 with-output-to-string with-output-to-string) + (spec: 1 s8vector-swap! s8vector-swap!) + (spec: 1 get-output-vector get-output-vector) + (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) + (spec: 1 make-random-source make-random-source) + (spec: 1 u16vector-fill! u16vector-fill!) + (spec: 1 write-file-u8vector write-file-u8vector) + (spec: 1 any-bit-set? any-bit-set?) + (spec: 1 help help) + (spec: 1 string->char-set string->char-set) + (spec: 1 vector-unfold-right vector-unfold-right) + (spec: 1 fxpositive? fxpositive?) + (spec: 1 s64vector? s64vector?) + (spec: 1 char-set-ref char-set-ref) + (spec: 1 module-search-order-reset! module-search-order-reset!) + (spec: 1 u8vector->list u8vector->list) + (spec: 1 random-source-randomize! random-source-randomize!) (spec: 1 file-exists-exception-arguments file-exists-exception-arguments) - (spec: 1 random-source-make-integers random-source-make-integers) - (spec: 1 u8vector-copy u8vector-copy) - (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) + (spec: 1 current-processor current-processor) + (spec: 1 u8vector-shrink! u8vector-shrink!) (spec: 1 file-info-owner file-info-owner) - (spec: 1 ucs-range->char-set! ucs-range->char-set!) - (spec: 1 bit-field-set bit-field-set) - (spec: 1 cons* cons*) - (spec: 1 f32vector-set f32vector-set) - (spec: 1 make-will make-will) - (spec: 1 subs16vector subs16vector) - (spec: 1 bitwise-nor bitwise-nor) - (spec: 1 cosh cosh) - (spec: 1 f64vector-set f64vector-set) - (spec: 1 u64vector-length u64vector-length) - (spec: 1 subu16vector-fill! subu16vector-fill!) + (spec: 1 bitwise-if bitwise-if) + (spec: 1 f32vector-set! f32vector-set!) + (spec: 1 make-u8vector make-u8vector) + (spec: 1 protocol-info protocol-info) + (spec: 1 string=?-hash string=?-hash) + (spec: 1 u32vector-copy! u32vector-copy!) + (spec: 1 f64vector-set! f64vector-set!) + (spec: 1 subs32vector-move! subs32vector-move!) + (spec: 1 u64vector-copy u64vector-copy) (spec: 1 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 1 not-pair? not-pair?) - (spec: 1 flatanh flatanh) - (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) + not-in-compilation-context-exception-procedure + not-in-compilation-context-exception-procedure) + (spec: 1 flceiling flceiling) (spec: 1 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) - (spec: 1 object->serial-number object->serial-number) - (spec: 1 fllog fllog) + readtable-write-cdr-read-macros? + readtable-write-cdr-read-macros?) + (spec: 1 table-length table-length) + (spec: 1 bit-field-replace-same bit-field-replace-same) (spec: 1 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) + join-timeout-exception-arguments + join-timeout-exception-arguments) + (spec: 1 fllog1p fllog1p) + (spec: 1 remove remove) (spec: 1 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) + unterminated-process-exception-procedure + unterminated-process-exception-procedure) (spec: 1 - unbound-global-exception-variable - unbound-global-exception-variable) + input-port-characters-buffered + input-port-characters-buffered) (spec: 1 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) + datum-parsing-exception-parameters + datum-parsing-exception-parameters) + (spec: 1 integer-sqrt integer-sqrt) + (spec: 1 fl+* fl+*) + (spec: 1 readtable-comment-handler readtable-comment-handler) (spec: 1 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 1 flatan flatan) - (spec: 1 readtable-case-conversion? readtable-case-conversion?) - (spec: 1 unbreak unbreak) + unbound-serial-number-exception? + unbound-serial-number-exception?) + (spec: 1 output-port-column output-port-column) + (spec: 1 char-set->string char-set->string) (spec: 1 fxbit-count fxbit-count) - (spec: 1 char-set-delete! char-set-delete!) + (spec: 1 vector-any vector-any) + (spec: 1 list->s32vector list->s32vector) + (spec: 1 char-set-difference! char-set-difference!) + (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) + (spec: 1 flscalbn flscalbn) + (spec: 1 char-set-delete char-set-delete) + (spec: 1 open-tcp-client open-tcp-client) + (spec: 1 thread-group-name thread-group-name) + (spec: 1 user-info-name user-info-name) + (spec: 1 make-condition-variable make-condition-variable) + (spec: 1 getenv getenv) + (spec: 1 port-settings-set! port-settings-set!) + (spec: 1 s8vector-set s8vector-set) + (spec: 1 append-reverse! append-reverse!) + (spec: 1 with-output-to-u8vector with-output-to-u8vector) (spec: 1 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 1 fxorc1 fxorc1) - (spec: 1 char-set-unfold char-set-unfold) - (spec: 1 list->char-set! list->char-set!) - (spec: 1 thread-suspend! thread-suspend!) - (spec: 1 vector-inc! vector-inc!) - (spec: 1 keyword-hash keyword-hash) + expression-parsing-exception-parameters + expression-parsing-exception-parameters) + (spec: 1 help-browser help-browser) + (spec: 1 make-s32vector make-s32vector) + (spec: 1 second second) + (spec: 1 type-exception? type-exception?) + (spec: 1 fxquotient fxquotient) + (spec: 1 path-directory path-directory) + (spec: 1 s32vector-shrink! s32vector-shrink!) + (spec: 1 string->char-set! string->char-set!) + (spec: 1 thread-yield! thread-yield!) + (spec: 1 s64vector-set! s64vector-set!) + (spec: 1 string-concatenate string-concatenate) + (spec: 1 address-info-socket-type address-info-socket-type) + (spec: 1 char-set-size char-set-size) (spec: 1 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 1 open-tcp-server open-tcp-server) - (spec: 1 thread-mailbox-next thread-mailbox-next) - (spec: 1 user-info-shell user-info-shell) - (spec: 1 thread-priority-set! thread-priority-set!) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 1 module-whitelist-add! module-whitelist-add!) + (spec: 1 random-source-make-reals random-source-make-reals) + (spec: 1 subu64vector subu64vector) + (spec: 1 u8vector->object u8vector->object) + (spec: 1 file-info-size file-info-size) + (spec: 1 u8vector-swap! u8vector-swap!) + (spec: 1 bitwise-ior bitwise-ior) + (spec: 1 protocol-info-aliases protocol-info-aliases) + (spec: 1 u16vector-set! u16vector-set!) + (spec: 1 console-port console-port) + (spec: 1 u32vector-set u32vector-set) + (spec: 1 write-substring write-substring) + (spec: 1 bit-swap bit-swap) + (spec: 1 flasinh flasinh) + (spec: + 1 + readtable-write-cdr-read-macros?-set + readtable-write-cdr-read-macros?-set) + (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) + (spec: 1 call-with-input-string call-with-input-string) + (spec: 1 subs64vector subs64vector) + (spec: 1 object->u8vector object->u8vector) + (spec: 1 flinteger? flinteger?) + (spec: + 1 + join-timeout-exception-procedure + join-timeout-exception-procedure) + (spec: 1 remove! remove!) + (spec: 1 table-merge table-merge) + (spec: + 1 + datum-parsing-exception-readenv + datum-parsing-exception-readenv) + (spec: 1 file-type file-type) + (spec: 1 input-port-column input-port-column) + (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) + (spec: 1 udp-destination-set! udp-destination-set!) + (spec: 1 fixnum? fixnum?) + (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) + (spec: 1 fx* fx*) + (spec: 1 char-set-adjoin char-set-adjoin) + (spec: 1 output-port-line output-port-line) + (spec: 1 eqv?-hash eqv?-hash) + (spec: 1 char-set-every char-set-every) + (spec: 1 fxbit-set? fxbit-set?) + (spec: 1 list->f32vector list->f32vector) + (spec: 1 s16vector-copy s16vector-copy) + (spec: 1 open-input-vector open-input-vector) + (spec: 1 thread-mailbox-rewind thread-mailbox-rewind) + (spec: 1 open-vector open-vector) + (spec: 1 s8vector-set! s8vector-set!) + (spec: 1 with-exception-handler with-exception-handler) + (spec: 1 thread-group-parent thread-group-parent) (spec: 1 expression-parsing-exception-source expression-parsing-exception-source) - (spec: 1 type-exception-arguments type-exception-arguments) - (spec: 1 s8vector-set! s8vector-set!) - (spec: 1 with-output-to-vector with-output-to-vector) - (spec: 1 concatenate! concatenate!) - (spec: 1 string-suffix? string-suffix?) - (spec: 1 f32vector-ref f32vector-ref) + (spec: 1 asinh asinh) + (spec: 1 make-s64vector make-s64vector) + (spec: 1 process-status process-status) (spec: 1 seconds->time seconds->time) - (spec: 1 address-info-family address-info-family) - (spec: 1 fxzero? fxzero?) + (spec: 1 string-suffix? string-suffix?) + (spec: 1 fxorc1 fxorc1) (spec: 1 s32vector-swap! s32vector-swap!) - (spec: 1 address-infos address-infos) - (spec: 1 gc-report-set! gc-report-set!) - (spec: 1 string-contains-ci string-contains-ci) - (spec: 1 file-info file-info) - (spec: 1 bitwise-xor bitwise-xor) - (spec: 1 mutex-lock! mutex-lock!) - (spec: 1 current-readtable current-readtable) + (spec: 1 list-sort list-sort) + (spec: 1 char-set-xor char-set-xor) + (spec: 1 tty-history tty-history) + (spec: 1 permission-denied-exception? permission-denied-exception?) + (spec: 1 address-info? address-info?) + (spec: 1 fxzero? fxzero?) + (spec: 1 s64vector-shrink! s64vector-shrink!) + (spec: 1 string-ci=?-hash string-ci=?-hash) + (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) + (spec: 1 thread? thread?) + (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) + (spec: 1 u64vector-ref u64vector-ref) + (spec: 1 bitwise-orc1 bitwise-orc1) + (spec: 1 file-info-mode file-info-mode) + (spec: 1 u8vector-fill! u8vector-fill!) + (spec: 1 subu64vector-fill! subu64vector-fill!) (spec: 1 - file-last-access-and-modification-times-set! - file-last-access-and-modification-times-set!) - (spec: 1 seventh seventh) - (spec: 1 subs32vector-move! subs32vector-move!) - (spec: 1 condition-variable-signal! condition-variable-signal!) - (spec: 1 u32vector-swap! u32vector-swap!) - (spec: 1 protocol-info? protocol-info?) - (spec: 1 shell-command shell-command) - (spec: 1 subu64vector subu64vector) - (spec: 1 link-incremental link-incremental) - (spec: 1 u64vector-shrink! u64vector-shrink!) - (spec: 1 bits->vector bits->vector) - (spec: 1 fleven? fleven?) - (spec: 1 readtable? readtable?) + condition-variable-specific-set! + condition-variable-specific-set!) + (spec: 1 f32vector-ref f32vector-ref) + (spec: 1 continuation-graft continuation-graft) + (spec: 1 bits bits) + (spec: 1 f64vector-ref f64vector-ref) (spec: 1 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 1 flnegative? flnegative?) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) + (spec: 1 u16vector-shrink! u16vector-shrink!) + (spec: 1 call-with-input-u8vector call-with-input-u8vector) + (spec: 1 flatan flatan) + (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) + (spec: 1 subs32vector subs32vector) + (spec: 1 u32vector-set! u32vector-set!) (spec: 1 - join-timeout-exception-arguments - join-timeout-exception-arguments) - (spec: 1 unbound-key-exception? unbound-key-exception?) - (spec: 1 read-file-string read-file-string) + display-continuation-environment + display-continuation-environment) + (spec: 1 table-copy table-copy) + (spec: 1 uncaught-exception-reason uncaught-exception-reason) + (spec: 1 input-port-bytes-buffered input-port-bytes-buffered) + (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) + (spec: 1 fl* fl*) + (spec: 1 read-file-u8vector read-file-u8vector) + (spec: 1 integer-length integer-length) (spec: 1 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 1 table-length table-length) + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) + (spec: 1 fx= fx=) + (spec: 1 char-set char-set) + (spec: 1 output-port-byte-position output-port-byte-position) (spec: 1 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) - (spec: 1 fl< fl<) - (spec: 1 integer-nth-root integer-nth-root) - (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) - (spec: 1 s16vector-copy s16vector-copy) - (spec: 1 char-set-adjoin char-set-adjoin) - (spec: 1 output-port-line output-port-line) - (spec: 1 fx<= fx<=) - (spec: 1 s32vector-append s32vector-append) - (spec: 1 table-for-each table-for-each) - (spec: 1 char-set-every char-set-every) - (spec: 1 list->s64vector list->s64vector) - (spec: 1 eqv?-hash eqv?-hash) - (spec: 1 fxif fxif) - (spec: 1 started-thread-exception? started-thread-exception?) - (spec: 1 thread-group-resume! thread-group-resume!) + unbound-key-exception-arguments + unbound-key-exception-arguments) + (spec: 1 fxior fxior) + (spec: 1 char-set-diff+intersection! char-set-diff+intersection!) + (spec: 1 err-code->string err-code->string) + (spec: 1 list->f64vector list->f64vector) (spec: 1 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) + rpc-remote-error-exception-arguments + rpc-remote-error-exception-arguments) (spec: 1 drop-right drop-right) - (spec: 1 flsinh flsinh) + (spec: 1 flpositive? flpositive?) + (spec: 1 keyword? keyword?) (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 thread-quantum thread-quantum) + (spec: 1 thread-name thread-name) + (spec: 1 thread-priority thread-priority) + (spec: + 1 + thread-state-abnormally-terminated? + thread-state-abnormally-terminated?) + (spec: 1 user-info? user-info?) + (spec: 1 split-at split-at) (spec: 1 open-vector-pipe open-vector-pipe) - (spec: 1 foreign-address foreign-address) - (spec: 1 apropos apropos) - (spec: 1 make-f32vector make-f32vector) - (spec: 1 u16vector-swap! u16vector-swap!) - (spec: 1 string-prefix-ci? string-prefix-ci?) - (spec: 1 make-s8vector make-s8vector) + (spec: 1 test-bit-field? test-bit-field?) + (spec: 1 append! append!) + (spec: 1 get-output-u8vector get-output-u8vector) + (spec: 1 make-bitwise-generator make-bitwise-generator) + (spec: 1 s8vector s8vector) + (spec: 1 thread-group->thread-list thread-group->thread-list) + (spec: 1 heap-overflow-exception? heap-overflow-exception?) + (spec: 1 arithmetic-shift arithmetic-shift) + (spec: 1 make-root-thread make-root-thread) (spec: 1 process-times process-times) - (spec: 1 s64vector->list s64vector->list) - (spec: 1 top top) + (spec: 1 string-swap! string-swap!) + (spec: 1 fxorc2 fxorc2) (spec: 1 char-set-xor! char-set-xor!) - (spec: 1 list-sort! list-sort!) - (spec: 1 fxsquare fxsquare) (spec: 1 path-strip-directory path-strip-directory) - (spec: 1 s8vector s8vector) - (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) - (spec: 1 tty-history-set! tty-history-set!) - (spec: 1 mutex-name mutex-name) - (spec: 1 file-info-attributes file-info-attributes) - (spec: 1 random-source-state-ref random-source-state-ref) - (spec: 1 link-flat link-flat) - (spec: 1 file-last-access-time file-last-access-time) - (spec: 1 subs64vector subs64vector) - (spec: 1 u32vector? u32vector?) - (spec: 1 f64vector f64vector) - (spec: 1 condition-variable-specific condition-variable-specific) - (spec: 1 subu64vector-fill! subu64vector-fill!) - (spec: 1 u64vector-swap! u64vector-swap!) - (spec: 1 bitwise-and bitwise-and) - (spec: 1 continuation-capture continuation-capture) - (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) - (spec: 1 flexp flexp) - (spec: 1 call-with-output-process call-with-output-process) - (spec: 1 flnumerator flnumerator) + (spec: 1 s32vector-append s32vector-append) + (spec: 1 type-exception-procedure type-exception-procedure) + (spec: 1 address-info-protocol address-info-protocol) + (spec: 1 s64vector->list s64vector->list) + (spec: 1 thread-terminate! thread-terminate!) + (spec: 1 create-directory create-directory) + (spec: 1 bitwise-orc2 bitwise-orc2) + (spec: 1 r7rs-raise r7rs-raise) (spec: 1 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) + inactive-thread-exception-procedure + inactive-thread-exception-procedure) + (spec: 1 current-thread current-thread) + (spec: 1 break break) + (spec: 1 file-info-number-of-links file-info-number-of-links) + (spec: 1 random-source-state-set! random-source-state-set!) + (spec: 1 subu32vector-fill! subu32vector-fill!) + (spec: 1 f32vector? f32vector?) + (spec: 1 u64vector-set u64vector-set) + (spec: 1 condition-variable? condition-variable?) + (spec: 1 make-will make-will) + (spec: 1 random-source? random-source?) + (spec: 1 f64vector? f64vector?) + (spec: 1 bit-field-set bit-field-set) + (spec: 1 continuation-return continuation-return) + (spec: 1 symbol-hash symbol-hash) + (spec: 1 processor-id processor-id) + (spec: 1 fldenominator fldenominator) + (spec: 1 u16vector-ref u16vector-ref) + (spec: 1 u8vector-copy u8vector-copy) + (spec: 1 not-pair? not-pair?) + (spec: 1 subs32vector-fill! subs32vector-fill!) + (spec: 1 link-incremental link-incremental) + (spec: 1 flnan? flnan?) (spec: 1 - join-timeout-exception-procedure - join-timeout-exception-procedure) + wrong-number-of-arguments-exception-procedure + wrong-number-of-arguments-exception-procedure) + (spec: 1 display-exception display-exception) + (spec: 1 object->serial-number object->serial-number) (spec: 1 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 1 first first) - (spec: 1 deadlock-exception? deadlock-exception?) - (spec: 1 input-port-column input-port-column) + readtable-max-unescaped-char-set + readtable-max-unescaped-char-set) + (spec: 1 table-for-each table-for-each) + (spec: 1 input-port-char-position input-port-char-position) + (spec: 1 real-time real-time) + (spec: 1 tcp-client-peer-socket-info tcp-client-peer-socket-info) + (spec: 1 fl< fl<) (spec: 1 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) - (spec: 1 read-file-string-list read-file-string-list) - (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 1 fl<= fl<=) - (spec: 1 integer-sqrt integer-sqrt) + unknown-keyword-argument-exception-procedure + unknown-keyword-argument-exception-procedure) + (spec: 1 integer-nth-root integer-nth-root) (spec: 1 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) - (spec: 1 char-set-adjoin! char-set-adjoin!) - (spec: 1 s16vector-copy! s16vector-copy!) - (spec: 1 fx= fx=) - (spec: 1 table-merge table-merge) - (spec: 1 s32vector-concatenate s32vector-concatenate) + nonempty-input-port-character-buffer-exception? + nonempty-input-port-character-buffer-exception?) + (spec: 1 ucs-range->char-set! ucs-range->char-set!) + (spec: 1 char-set->list char-set->list) + (spec: 1 output-port-char-position output-port-char-position) + (spec: 1 fx> fx>) (spec: 1 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 1 char-set-filter char-set-filter) - (spec: 1 vector-cas! vector-cas!) - (spec: 1 err-code->string err-code->string) - (spec: 1 fxior fxior) - (spec: 1 list->s8vector list->s8vector) - (spec: 1 thread-group-specific thread-group-specific) - (spec: 1 drop-right! drop-right!) + unbound-global-exception-variable + unbound-global-exception-variable) + (spec: 1 char-set-difference char-set-difference) + (spec: 1 equal?-hash equal?-hash) + (spec: 1 fxlength fxlength) + (spec: 1 thread-receive thread-receive) (spec: 1 flsqrt flsqrt) - (spec: - 1 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 1 thread-quantum-set! thread-quantum-set!) + (spec: 1 user-name user-name) + (spec: 1 drop-right! drop-right!) + (spec: 1 s16vector-copy! s16vector-copy!) (spec: 1 foreign-release! foreign-release!) - (spec: 1 scheduler-exception-reason scheduler-exception-reason) + (spec: 1 open-u8vector-pipe open-u8vector-pipe) + (spec: 1 append-reverse append-reverse) + (spec: 1 thread-group->thread-vector thread-group->thread-vector) (spec: 1 string-prefix-length string-prefix-length) - (spec: 1 pretty-print pretty-print) - (spec: 1 make-f64vector make-f64vector) - (spec: 1 string=?-hash string=?-hash) - (spec: 1 u16vector? u16vector?) - (spec: 1 s64vector-append s64vector-append) - (spec: 1 path-strip-extension path-strip-extension) - (spec: 1 fxwrap* fxwrap*) - (spec: 1 list-tabulate list-tabulate) + (spec: 1 make-s16vector make-s16vector) + (spec: 1 process-pid process-pid) (spec: 1 s8vector->list s8vector->list) - (spec: 1 with-input-from-port with-input-from-port) - (spec: 1 address-info-socket-type address-info-socket-type) + (spec: 1 fxwrap* fxwrap*) + (spec: 1 char-set-union char-set-union) + (spec: 1 list-set list-set) + (spec: 1 path-extension path-extension) + (spec: 1 scheduler-exception-reason scheduler-exception-reason) + (spec: 1 type-exception-type-id type-exception-type-id) + (spec: 1 address-info-socket-info address-info-socket-info) + (spec: 1 will? will?) + (spec: + 1 + permission-denied-exception-arguments + permission-denied-exception-arguments) + (spec: 1 thread-thread-group thread-thread-group) + (spec: 1 s32vector-concatenate s32vector-concatenate) + (spec: 1 file-group file-group) + (spec: 1 bitwise-nor bitwise-nor) + (spec: 1 inactive-thread-exception? inactive-thread-exception?) + (spec: 1 create-fifo create-fifo) + (spec: 1 s64vector-append s64vector-append) + (spec: 1 file-inode file-inode) + (spec: 1 box? box?) + (spec: 1 current-time current-time) + (spec: 1 subu32vector-move! subu32vector-move!) + (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) + (spec: 1 u64vector-length u64vector-length) + (spec: 1 host-info-aliases host-info-aliases) + (spec: 1 condition-variable-signal! condition-variable-signal!) + (spec: 1 u8vector-copy! u8vector-copy!) + (spec: 1 bit-set? bit-set?) + (spec: 1 u16vector-set u16vector-set) + (spec: 1 call-with-input-process call-with-input-process) + (spec: 1 fleven? fleven?) + (spec: 1 protocol-info? protocol-info?) + (spec: 1 seventh seventh) + (spec: 1 subs8vector subs8vector) + (spec: 1 u32vector-ref u32vector-ref) + (spec: + 1 + display-continuation-backtrace + display-continuation-backtrace) + (spec: 1 flnegative? flnegative?) + (spec: 1 object->string object->string) + (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) + (spec: 1 table-search table-search) + (spec: + 1 + initialized-thread-exception-arguments + initialized-thread-exception-arguments) + (spec: 1 ninth ninth) + (spec: 1 readtable? readtable?) + (spec: 1 tcp-server-socket-info tcp-server-socket-info) + (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) + (spec: 1 input-port-readtable input-port-readtable) + (spec: 1 fl<= fl<=) (spec: 1 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 1 string-concatenate string-concatenate) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) + (spec: 1 char-set-complement char-set-complement) + (spec: 1 fx< fx<) + (spec: 1 read-file-string read-file-string) + (spec: 1 system-stamp system-stamp) + (spec: 1 char-set-fold char-set-fold) + (spec: 1 output-port-readtable-set! output-port-readtable-set!) + (spec: 1 fxfirst-set-bit fxfirst-set-bit) + (spec: 1 unbound-global-exception? unbound-global-exception?) + (spec: 1 length+ length+) + (spec: 1 thread-resume! thread-resume!) + (spec: 1 open-input-u8vector open-input-u8vector) + (spec: 1 dotted-list? dotted-list?) + (spec: 1 flsquare flsquare) + (spec: 1 s16vector-append s16vector-append) + (spec: 1 eighth eighth) + (spec: 1 foreign-released? foreign-released?) + (spec: 1 open-udp open-udp) + (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 1 pp pp) + (spec: 1 group-info group-info) + (spec: 1 thread-group-specific-set! thread-group-specific-set!) + (spec: 1 tty-mode-set! tty-mode-set!) (spec: 1 with-exception-catcher with-exception-catcher) + (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) + (spec: 1 char-set-union! char-set-union!) + (spec: 1 fxwrap+ fxwrap+) + (spec: 1 path-normalize path-normalize) + (spec: 1 s8vector? s8vector?) + (spec: 1 string-prefix-length-ci string-prefix-length-ci) (spec: 1 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 1 bitwise-orc2 bitwise-orc2) - (spec: 1 cpu-time cpu-time) + permission-denied-exception-procedure + permission-denied-exception-procedure) + (spec: 1 s32vector s32vector) + (spec: 1 bitwise-not bitwise-not) + (spec: 1 file-info file-info) + (spec: 1 current-readtable current-readtable) (spec: 1 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) - (spec: 1 break break) - (spec: 1 file-info? file-info?) - (spec: 1 u32vector-set! u32vector-set!) - (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 1 subs32vector subs32vector) - (spec: 1 protocol-info-name protocol-info-name) - (spec: 1 f32vector-swap! f32vector-swap!) - (spec: 1 setenv setenv) - (spec: 1 bits bits) - (spec: 1 subu32vector-fill! subu32vector-fill!) - (spec: 1 f64vector-swap! f64vector-swap!) - (spec: 1 u64vector-set u64vector-set) - (spec: 1 call-with-input-u8vector call-with-input-u8vector) - (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 1 flcosh flcosh) + file-last-access-and-modification-times-set! + file-last-access-and-modification-times-set!) + (spec: 1 shell-command shell-command) + (spec: 1 subu8vector-fill! subu8vector-fill!) + (spec: 1 condition-variable-specific condition-variable-specific) + (spec: 1 f32vector-shrink! f32vector-shrink!) + (spec: 1 link-flat link-flat) + (spec: 1 make-table make-table) + (spec: 1 bitwise-and bitwise-and) + (spec: 1 random-source-state-ref random-source-state-ref) + (spec: 1 continuation-capture continuation-capture) + (spec: 1 f64vector-shrink! f64vector-shrink!) + (spec: 1 host-info-name host-info-name) + (spec: 1 serial-number->object serial-number->object) + (spec: 1 call-with-output-process call-with-output-process) (spec: 1 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) - (spec: 1 test-bit-field? test-bit-field?) - (spec: 1 flmin flmin) - (spec: 1 remq remq) + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) + (spec: 1 flcos flcos) + (spec: 1 subf32vector subf32vector) + (spec: 1 u32vector? u32vector?) + (spec: 1 subs8vector-fill! subs8vector-fill!) (spec: 1 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 1 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 1 datum-parsing-exception? datum-parsing-exception?) - (spec: 1 filter! filter!) - (spec: 1 uncaught-exception-reason uncaught-exception-reason) - (spec: 1 fl- fl-) - (spec: 1 table->list table->list) - (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) - (spec: 1 thread-state-initialized? thread-state-initialized?) - (spec: 1 char-set-difference char-set-difference) - (spec: 1 fx- fx-) - (spec: 1 output-port-char-position output-port-char-position) - (spec: 1 s16vector-append s16vector-append) - (spec: 1 thread-yield! thread-yield!) - (spec: 1 equal?-hash equal?-hash) - (spec: 1 char-set-union! char-set-union!) - (spec: 1 fxeven? fxeven?) - (spec: 1 list->s16vector list->s16vector) - (spec: 1 s32vector s32vector) - (spec: 1 dotted-list? dotted-list?) - (spec: 1 flscalbn flscalbn) + display-continuation-dynamic-environment + display-continuation-dynamic-environment) + (spec: 1 flmax flmax) (spec: 1 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: 1 open-input-u8vector open-input-u8vector) - (spec: 1 thread-group-name thread-group-name) - (spec: 1 thread-priority-boost thread-priority-boost) - (spec: 1 eighth eighth) - (spec: 1 char-set->list char-set->list) - (spec: 1 open-udp open-udp) - (spec: 1 type-exception? type-exception?) - (spec: 1 user-name user-name) - (spec: 1 append-reverse! append-reverse!) - (spec: 1 getenv getenv) - (spec: 1 make-condition-variable make-condition-variable) - (spec: 1 pp pp) - (spec: 1 s8vector? s8vector?) - (spec: 1 help-browser help-browser) - (spec: 1 serial-number->object serial-number->object) - (spec: 1 make-s32vector make-s32vector) - (spec: 1 u16vector-set! u16vector-set!) - (spec: 1 write-substring write-substring) - (spec: 1 fxquotient fxquotient) - (spec: 1 string->char-set! string->char-set!) - (spec: 1 path-normalize path-normalize) - (spec: 1 address-info? address-info?) - (spec: 1 string-contains string-contains) - (spec: 1 permission-denied-exception? permission-denied-exception?) - (spec: 1 u8vector-length u8vector-length) - (spec: 1 bitwise-unfold bitwise-unfold) - (spec: 1 random-source-randomize! random-source-randomize!) - (spec: 1 file-group file-group) - (spec: 1 inactive-thread-exception? inactive-thread-exception?) - (spec: 1 symbol-hash symbol-hash) - (spec: 1 current-processor current-processor) - (spec: 1 udp-local-socket-info udp-local-socket-info) - (spec: 1 file-inode file-inode) - (spec: 1 u32vector-shrink! u32vector-shrink!) - (spec: 1 xcons xcons) - (spec: 1 condition-variable-name condition-variable-name) - (spec: 1 protocol-info-number protocol-info-number) - (spec: 1 f32vector? f32vector?) - (spec: 1 subs32vector-fill! subs32vector-fill!) - (spec: 1 u64vector-set! u64vector-set!) - (spec: 1 bits->list bits->list) - (spec: 1 f64vector? f64vector?) - (spec: 1 subu32vector-move! subu32vector-move!) - (spec: 1 call-with-input-vector call-with-input-vector) - (spec: 1 null-list? null-list?) - (spec: 1 fldenominator fldenominator) + readtable-keywords-allowed?-set + readtable-keywords-allowed?-set) + (spec: 1 table-set! table-set!) + (spec: 1 deadlock-exception? deadlock-exception?) + (spec: 1 filter filter) (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) - (spec: 1 flnan? flnan?) - (spec: 1 rename-file rename-file) + invalid-utf8-encoding-exception-arguments + invalid-utf8-encoding-exception-arguments) (spec: 1 - unbound-key-exception-procedure - unbound-key-exception-procedure) - (spec: 1 dead-end dead-end) - (spec: 1 input-port-char-position input-port-char-position) - (spec: 1 uncaught-exception? uncaught-exception?) - (spec: 1 integer-length integer-length) - (spec: 1 table-copy table-copy) - (spec: 1 fl/ fl/) + no-such-file-or-directory-exception-arguments + no-such-file-or-directory-exception-arguments) + (spec: 1 fl- fl-) (spec: 1 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) - (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) - (spec: 1 vector-any vector-any) - (spec: 1 fx< fx<) - (spec: 1 char-set->string char-set->string) - (spec: 1 output-port-column output-port-column) + initialized-thread-exception-procedure + initialized-thread-exception-procedure) + (spec: 1 fx<= fx<=) + (spec: 1 char-set-complement! char-set-complement!) + (spec: 1 input-port-readtable-set! input-port-readtable-set!) + (spec: 1 read-file-string-list read-file-string-list) + (spec: 1 system-type system-type) + (spec: 1 fxif fxif) + (spec: 1 char-set-for-each char-set-for-each) + (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) + (spec: 1 thread-quantum thread-quantum) + (spec: 1 drop drop) + (spec: 1 flsin flsin) (spec: 1 s16vector-concatenate s16vector-concatenate) - (spec: 1 thread? thread?) - (spec: 1 fxfirst-set-bit fxfirst-set-bit) - (spec: 1 char-set-difference! char-set-difference!) - (spec: 1 list->s32vector list->s32vector) (spec: 1 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 1 s32vector->list s32vector->list) - (spec: 1 thread-group-parent thread-group-parent) - (spec: 1 flsin flsin) + thread-state-running-processor + thread-state-running-processor) + (spec: 1 third third) (spec: 1 sixth sixth) - (spec: 1 drop drop) - (spec: 1 open-input-vector open-input-vector) - (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 1 open-vector open-vector) - (spec: 1 u16vector-shrink! u16vector-shrink!) - (spec: 1 write-subu8vector write-subu8vector) - (spec: 1 asinh asinh) - (spec: 1 make-s64vector make-s64vector) + (spec: 1 thread-group-suspend! thread-group-suspend!) + (spec: 1 command-args command-args) (spec: 1 extract-bit-field extract-bit-field) - (spec: 1 process-status process-status) + (spec: 1 with-input-from-string with-input-from-string) + (spec: 1 string-contains string-contains) + (spec: + 1 + tty-paren-balance-duration-set! + tty-paren-balance-duration-set!) (spec: 1 fxremainder fxremainder) - (spec: 1 string->keyword string->keyword) - (spec: 1 list-sort list-sort) - (spec: 1 s64vector s64vector) - (spec: 1 u8-ready? u8-ready?) - (spec: 1 bytevector-u8-set! bytevector-u8-set!) - (spec: 1 read-string read-string) - (spec: 1 vector-copy! vector-copy!) - (spec: 1 make-list make-list) - (spec: 1 command-line command-line) - (spec: 1 string-foldcase string-foldcase) - (spec: 1 call-with-port call-with-port) - (spec: 1 bytevector? bytevector?) - (spec: 1 string->utf8 string->utf8) - (spec: 1 features features) + (spec: 1 abort abort) + (spec: 1 char-set<= char-set<=) + (spec: 1 u16vector u16vector) + (spec: 1 path-strip-volume path-strip-volume) + (spec: 1 s32vector->list s32vector->list) + (spec: 1 list->table list->table) + (spec: + 1 + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 1 file-exists-exception? file-exists-exception?) + (spec: 1 s64vector s64vector) + (spec: 1 string->keyword string->keyword) + (spec: 1 file-info-type file-info-type) + (spec: 1 mutex-name mutex-name) + (spec: 1 u64vector-swap! u64vector-swap!) + (spec: 1 subu8vector-move! subu8vector-move!) + (spec: 1 promise? promise?) + (spec: 1 digit-value digit-value) (spec: 1 bytevector-length bytevector-length) + (spec: 1 exact-integer? exact-integer?) (spec: 1 open-binary-input-file open-binary-input-file) - (spec: 1 ceiling-remainder ceiling-remainder) + (spec: 1 command-line command-line) + (spec: 1 vector-copy vector-copy) + (spec: 1 file-exists? file-exists?) + (spec: 1 vector-copy! vector-copy!) + (spec: 1 bytevector-append bytevector-append) (spec: 1 emergency-exit emergency-exit) - (spec: 1 string-copy! string-copy!) - (spec: 1 write-bytevector write-bytevector) - (spec: 1 open-binary-output-file open-binary-output-file) - (spec: 1 bytevector-u8-ref bytevector-u8-ref) + (spec: 1 ceiling-quotient ceiling-quotient) (spec: 1 input-port-open? input-port-open?) - (spec: 1 ceiling/ ceiling/) - (spec: 1 open-output-string open-output-string) - (spec: 1 get-environment-variables get-environment-variables) + (spec: 1 output-port-open? output-port-open?) + (spec: 1 read-u8 read-u8) (spec: 1 inexact inexact) - (spec: 1 read-bytevector read-bytevector) - (spec: 1 floor-remainder floor-remainder) - (spec: 1 delete-file delete-file) + (spec: 1 string->utf8 string->utf8) + (spec: 1 bytevector-copy bytevector-copy) + (spec: 1 char-foldcase char-foldcase) + (spec: 1 ceiling-remainder ceiling-remainder) + (spec: 1 flush-output-port flush-output-port) + (spec: 1 make-parameter make-parameter) + (spec: 1 read-string read-string) + (spec: 1 string->vector string->vector) + (spec: 1 call-with-port call-with-port) + (spec: 1 bytevector? bytevector?) + (spec: 1 string-foldcase string-foldcase) + (spec: 1 string-for-each string-for-each) + (spec: 1 string-downcase string-downcase) + (spec: 1 write-bytevector write-bytevector) + (spec: 1 boolean=? boolean=?) + (spec: 1 current-error-port current-error-port) (spec: 1 eof-object eof-object) (spec: 1 error-object-message error-object-message) - (spec: 1 make-promise make-promise) (spec: 1 exact exact) - (spec: 1 open-input-bytevector open-input-bytevector) - (spec: 1 file-error? file-error?) - (spec: 1 floor/ floor/) - (spec: 1 read-bytevector! read-bytevector!) + (spec: 1 features features) + (spec: 1 make-list make-list) + (spec: 1 bytevector-u8-ref bytevector-u8-ref) + (spec: 1 floor-quotient floor-quotient) + (spec: 1 open-binary-output-file open-binary-output-file) (spec: 1 error-object? error-object?) - (spec: 1 list-copy list-copy) - (spec: 1 read-line read-line) - (spec: 1 peek-u8 peek-u8) - (spec: 1 boolean=? boolean=?) - (spec: 1 string-downcase string-downcase) - (spec: 1 digit-value digit-value) - (spec: 1 string-for-each string-for-each) - (spec: 1 vector-copy vector-copy) + (spec: 1 delete-file delete-file) + (spec: 1 bytevector-u8-set! bytevector-u8-set!) + (spec: 1 read-bytevector read-bytevector) + (spec: 1 floor-remainder floor-remainder) + (spec: 1 get-output-bytevector get-output-bytevector) (spec: 1 exit exit) - (spec: 1 flush-output-port flush-output-port) - (spec: 1 make-parameter make-parameter) - (spec: 1 string->vector string->vector) - (spec: 1 floor-quotient floor-quotient) - (spec: 1 read-u8 read-u8) - (spec: 1 error-object-irritants error-object-irritants) - (spec: 1 char-foldcase char-foldcase) - (spec: 1 promise? promise?) + (spec: 1 string-map string-map) + (spec: 1 u8-ready? u8-ready?) + (spec: 1 read-bytevector! read-bytevector!) + (spec: 1 port? port?) (spec: 1 get-environment-variable get-environment-variable) - (spec: 1 truncate-remainder truncate-remainder) + (spec: 1 error-object-irritants error-object-irritants) + (spec: 1 truncate-quotient truncate-quotient) + (spec: 1 balanced-quotient balanced-quotient) + (spec: 1 read-error? read-error?) + (spec: 1 write-shared write-shared) (spec: 1 round-quotient round-quotient) - (spec: 1 balanced-remainder balanced-remainder) - (spec: 1 truncate/ truncate/) - (spec: 1 current-jiffy current-jiffy) - (spec: 1 nan? nan?) + (spec: 1 get-environment-variables get-environment-variables) + (spec: 1 make-promise make-promise) (spec: 1 write-simple write-simple) - (spec: 1 open-input-string open-input-string) - (spec: 1 make-bytevector make-bytevector) - (spec: 1 balanced/ balanced/) - (spec: 1 current-error-port current-error-port) - (spec: 1 euclidean-quotient euclidean-quotient) - (spec: 1 get-output-bytevector get-output-bytevector) + (spec: 1 write-u8 write-u8) + (spec: 1 vector-for-each vector-for-each) (spec: 1 round-remainder round-remainder) + (spec: 1 euclidean-quotient euclidean-quotient) + (spec: 1 list-copy list-copy) + (spec: 1 peek-u8 peek-u8) (spec: 1 string-upcase string-upcase) - (spec: 1 string-map string-map) - (spec: 1 vector-for-each vector-for-each) - (spec: 1 get-output-string get-output-string) - (spec: 1 truncate-quotient truncate-quotient) (spec: 1 write-string write-string) - (spec: 1 port? port?) - (spec: 1 balanced-quotient balanced-quotient) - (spec: 1 symbol=? symbol=?) - (spec: 1 write-shared write-shared) + (spec: 1 open-input-bytevector open-input-bytevector) (spec: 1 textual-port? textual-port?) - (spec: 1 finite? finite?) - (spec: 1 bytevector-copy bytevector-copy) + (spec: 1 list-set! list-set!) + (spec: 1 symbol=? symbol=?) + (spec: 1 floor/ floor/) + (spec: 1 get-output-string get-output-string) + (spec: 1 utf8->string utf8->string) + (spec: 1 file-error? file-error?) + (spec: 1 current-jiffy current-jiffy) + (spec: 1 jiffies-per-second jiffies-per-second) + (spec: 1 bytevector bytevector) + (spec: 1 nan? nan?) (spec: 1 open-output-bytevector open-output-bytevector) (spec: 1 close-port close-port) - (spec: 1 utf8->string utf8->string) - (spec: 1 current-second current-second) - (spec: 1 binary-port? binary-port?) - (spec: 1 bytevector-copy! bytevector-copy!) - (spec: 1 output-port-open? output-port-open?) - (spec: 1 ceiling-quotient ceiling-quotient) - (spec: 1 vector-append vector-append) - (spec: 1 write-u8 write-u8) - (spec: 1 exact-integer-sqrt exact-integer-sqrt) + (spec: 1 truncate-remainder truncate-remainder) (spec: 1 infinite? infinite?) - (spec: 1 file-exists? file-exists?) - (spec: 1 bytevector bytevector) - (spec: 1 jiffies-per-second jiffies-per-second) - (spec: 1 read-error? read-error?) - (spec: 1 round/ round/) - (spec: 1 euclidean-remainder euclidean-remainder) - (spec: 1 exact-integer? exact-integer?) - (spec: 1 list-set! list-set!) - (spec: 1 vector->string vector->string) - (spec: 1 bytevector-append bytevector-append) + (spec: 1 balanced-remainder balanced-remainder) + (spec: 1 vector-append vector-append) (spec: 1 vector-map vector-map) + (spec: 1 read-line read-line) + (spec: 1 open-input-string open-input-string) + (spec: 1 make-bytevector make-bytevector) + (spec: 1 round/ round/) + (spec: 1 truncate/ truncate/) + (spec: 1 balanced/ balanced/) + (spec: 1 finite? finite?) (spec: 1 square square) + (spec: 1 vector->string vector->string) + (spec: 1 string-copy! string-copy!) + (spec: 1 exact-integer-sqrt exact-integer-sqrt) + (spec: 1 euclidean-remainder euclidean-remainder) + (spec: 1 binary-port? binary-port?) + (spec: 1 bytevector-copy! bytevector-copy!) + (spec: 1 open-output-string open-output-string) + (spec: 1 ceiling/ ceiling/) (spec: 1 euclidean/ euclidean/) - (spec: 1 string-fill! string-fill!) - (spec: 1 sin sin) - (spec: 1 real? real?) - (spec: 1 cdadr cdadr) - (spec: 1 cadaar cadaar) - (spec: 1 reverse reverse) - (spec: 1 char-downcase char-downcase) - (spec: 1 string-ref string-ref) - (spec: 1 string? string?) - (spec: 1 abs abs) - (spec: 1 write-char write-char) - (spec: 1 member member) - (spec: 1 cdar cdar) - (spec: 1 cadar cadar) - (spec: 1 cadadr cadadr) - (spec: 1 vector-set! vector-set!) - (spec: 1 values values) - (spec: 1 atan atan) - (spec: 1 list? list?) - (spec: 1 number->string number->string) - (spec: 1 real-part real-part) + (spec: 1 current-second current-second) + (spec: 1 string>? string>?) (spec: 1 cdadar cdadar) - (spec: 1 caadr caadr) - (spec: 1 integer? integer?) - (spec: 1 list->string list->string) - (spec: 1 length length) - (spec: 1 char-ci>? char-ci>?) - (spec: 1 string>=? string>=?) - (spec: 1 - -) - (spec: 1 assq assq) - (spec: 1 even? even?) - (spec: 1 gcd gcd) - (spec: 1 list-tail list-tail) - (spec: 1 string->symbol string->symbol) - (spec: 1 zero? zero?) - (spec: 1 cdaddr cdaddr) - (spec: 1 not not) - (spec: 1 caar caar) (spec: 1 interaction-environment interaction-environment) - (spec: 1 vector-ref vector-ref) - (spec: 1 string>? string>?) - (spec: 1 assv assv) - (spec: 1 scheme-report-environment scheme-report-environment) - (spec: 1 magnitude magnitude) - (spec: 1 string-length string-length) - (spec: 1 transcript-off transcript-off) - (spec: 1 memv memv) - (spec: 1 imag-part imag-part) - (spec: 1 number? number?) - (spec: 1 cddar cddar) - (spec: 1 list list) - (spec: 1 list->vector list->vector) - (spec: 1 string-ci<=? string-ci<=?) - (spec: 1 char-upper-case? char-upper-case?) - (spec: 1 inexact->exact inexact->exact) - (spec: 1 string-ciinexact exact->inexact) - (spec: 1 with-output-to-file with-output-to-file) + (spec: 1 number->string number->string) + (spec: 1 caar caar) (spec: 1 read read) - (spec: 1 call-with-values call-with-values) - (spec: 1 cddaar cddaar) - (spec: 1 floor floor) - (spec: 1 caddar caddar) - (spec: 1 output-port? output-port?) + (spec: 1 char-downcase char-downcase) + (spec: 1 * *) + (spec: 1 reverse reverse) + (spec: 1 write-char write-char) + (spec: 1 string->list string->list) + (spec: 1 string? string?) + (spec: 1 cdaaar cdaaar) + (spec: 1 caadar caadar) + (spec: 1 char-ci>=? char-ci>=?) + (spec: 1 open-output-file open-output-file) + (spec: 1 assoc assoc) + (spec: 1 write write) + (spec: 1 / /) + (spec: 1 make-string make-string) + (spec: 1 call-with-output-file call-with-output-file) + (spec: 1 cdaadr cdaadr) + (spec: 1 max max) + (spec: 1 caaddr caaddr) + (spec: 1 negative? negative?) + (spec: 1 null? null?) + (spec: 1 real? real?) + (spec: 1 vector-fill! vector-fill!) + (spec: 1 char-ci>? char-ci>?) + (spec: 1 angle angle) (spec: 1 string-set! string-set!) + (spec: 1 even? even?) + (spec: 1 imag-part imag-part) (spec: 1 load load) - (spec: 1 angle angle) - (spec: 1 boolean? boolean?) - (spec: 1 memq memq) - (spec: 1 substring substring) - (spec: 1 cddadr cddadr) - (spec: 1 input-port? input-port?) - (spec: 1 cadddr cadddr) - (spec: 1 vector-fill! vector-fill!) - (spec: 1 exp exp) + (spec: 1 inexact->exact inexact->exact) + (spec: 1 < <) + (spec: 1 cadar cadar) + (spec: 1 member member) + (spec: 1 sin sin) + (spec: 1 cdar cdar) + (spec: 1 char-upcase char-upcase) + (spec: 1 gcd gcd) (spec: 1 make-polar make-polar) + (spec: 1 scheme-report-environment scheme-report-environment) (spec: 1 acos acos) - (spec: 1 char-upcase char-upcase) - (spec: 1 char=? string-ci>=?) - (spec: 1 char->integer char->integer) - (spec: 1 char-ready? char-ready?) - (spec: 1 force force) - (spec: 1 = =) - (spec: 1 lcm lcm) - (spec: 1 char=? char=?) - (spec: 1 list-ref list-ref) - (spec: 1 log log) - (spec: 1 inexact? inexact?) - (spec: 1 rationalize rationalize) - (spec: 1 string string) - (spec: 1 string-ci>? string-ci>?) - (spec: 1 vector->list vector->list) - (spec: 1 equal? equal?) - (spec: 1 char-alphabetic? char-alphabetic?) - (spec: 1 vector-length vector-length) - (spec: 1 close-input-port close-input-port) - (spec: 1 positive? positive?) - (spec: 1 expt expt) - (spec: 1 char-whitespace? char-whitespace?) - (spec: 1 modulo modulo) - (spec: 1 string-ci=? string-ci=?) (spec: 1 cons cons) - (spec: 1 cos cos) - (spec: 1 make-vector make-vector) - (spec: 1 set-cdr! set-cdr!) - (spec: 1 cddddr cddddr) + (spec: 1 caddar caddar) + (spec: 1 denominator denominator) (spec: 1 read-char read-char) - (spec: 1 cadr cadr) + (spec: 1 call-with-values call-with-values) + (spec: 1 values values) + (spec: 1 cddaar cddaar) + (spec: 1 char-upper-case? char-upper-case?) + (spec: 1 string-fill! string-fill!) + (spec: 1 string-ref string-ref) + (spec: 1 abs abs) + (spec: 1 cos cos) + (spec: 1 substring substring) + (spec: 1 cadaar cadaar) + (spec: 1 not not) + (spec: 1 remainder remainder) + (spec: 1 input-port? input-port?) + (spec: 1 eof-object? eof-object?) + (spec: 1 cdaddr cdaddr) + (spec: 1 vector-set! vector-set!) + (spec: 1 string-ciinexact exact->inexact) + (spec: 1 list? list?) + (spec: 1 atan atan) + (spec: 1 complex? complex?) + (spec: 1 cadadr cadadr) + (spec: 1 vector vector) + (spec: 1 char-numeric? char-numeric?) + (spec: 1 output-port? output-port?) + (spec: 1 cdadr cdadr) + (spec: 1 with-output-to-file with-output-to-file) + (spec: 1 string-ci=? string-ci=?) (spec: 1 truncate truncate) - (spec: 1 char-lower-case? char-lower-case?) - (spec: 1 < <) + (spec: 1 > >) + (spec: 1 cadr cadr) + (spec: 1 car car) + (spec: 1 integer->char integer->char) + (spec: 1 numerator numerator) + (spec: 1 list list) + (spec: 1 char-ready? char-ready?) + (spec: 1 open-input-file open-input-file) + (spec: 1 cdddar cdddar) (spec: 1 append append) (spec: 1 char<=? char<=?) - (spec: 1 vector? vector?) - (spec: 1 min min) - (spec: 1 tan tan) - (spec: 1 cdddr cdddr) - (spec: 1 newline newline) + (spec: 1 exp exp) + (spec: 1 make-rectangular make-rectangular) + (spec: 1 inexact? inexact?) + (spec: 1 make-vector make-vector) + (spec: 1 procedure? procedure?) + (spec: 1 <= <=) + (spec: 1 string-append string-append) + (spec: 1 display display) (spec: 1 call-with-current-continuation call-with-current-continuation) - (spec: 1 denominator denominator) + (spec: 1 equal? equal?) + (spec: 1 cddddr cddddr) + (spec: 1 floor floor) + (spec: 1 char->integer char->integer) + (spec: 1 charvector list->vector) + (spec: 1 modulo modulo) + (spec: 1 string-ci<=? string-ci<=?) + (spec: 1 current-output-port current-output-port) + (spec: 1 boolean? boolean?) + (spec: 1 = =) + (spec: 1 memq memq) + (spec: 1 string-length string-length) + (spec: 1 cadddr cadddr) + (spec: 1 tan tan) + (spec: 1 transcript-off transcript-off) + (spec: 1 char-lower-case? char-lower-case?) + (spec: 1 cddadr cddadr) + (spec: 1 expt expt) + (spec: 1 string-ci>? string-ci>?) + (spec: 1 transcript-on transcript-on) + (spec: 1 memv memv) + (spec: 1 quotient quotient) + (spec: 1 number? number?) + (spec: 1 caddr caddr) (spec: 1 eq? eq?) - (spec: 1 remainder remainder) + (spec: 1 sqrt sqrt) + (spec: 1 cddar cddar) + (spec: 1 asin asin) + (spec: 1 char-whitespace? char-whitespace?) + (spec: 1 string<=? string<=?) + (spec: 1 vector? vector?) + (spec: 1 current-input-port current-input-port) + (spec: 1 rational? rational?) + (spec: 1 set-car! set-car!) + (spec: 1 string>=? string>=?) + (spec: 1 symbol? symbol?) + (spec: 1 integer? integer?) + (spec: 1 caaadr caaadr) + (spec: 1 cdr cdr) + (spec: 1 char-ci? char>?) (spec: 1 for-each for-each) - (spec: 1 char-numeric? char-numeric?) - (spec: 1 open-input-file open-input-file) - (spec: 1 <= <=) - (spec: 1 make-rectangular make-rectangular) - (spec: 1 procedure? procedure?) (spec: 1 round round) - (spec: 1 vector vector) (spec: 1 dynamic-wind dynamic-wind) - (spec: 1 negative? negative?) - (spec: 1 max max) - (spec: 1 call-with-output-file call-with-output-file) - (spec: 1 cdaadr cdaadr) - (spec: 1 null? null?) - (spec: 1 caadar caadar) + (spec: 1 rationalize rationalize) + (spec: 1 >= >=) + (spec: 1 set-cdr! set-cdr!) + (spec: 1 stringstring symbol->string) + (spec: 1 real-part real-part) + (spec: 1 null-environment null-environment) + (spec: 1 caaar caaar) (spec: 1 ceiling ceiling) (spec: 1 char-ci=? char-ci=?) - (spec: 1 * *) (spec: 1 char? char?) (spec: 1 exact? exact?) - (spec: 1 string->list string->list) - (spec: 1 string=? string=?) - (spec: 1 symbol? symbol?) + (spec: 1 force force) + (spec: 1 lcm lcm) + (spec: 1 list-ref list-ref) + (spec: 1 string string) + (spec: 1 string-ci>=? string-ci>=?) (spec: 1 with-input-from-file with-input-from-file) + (spec: 1 min min) + (spec: 1 call-with-input-file call-with-input-file) + (spec: 1 string=? string=?) + (spec: 1 zero? zero?) + (spec: 1 newline newline) (spec: 1 eval eval) - (spec: 1 odd? odd?) - (spec: 1 cdaar cdaar) - (spec: 1 caaddr caaddr) - (spec: 1 open-output-file open-output-file) - (spec: 1 char-ci>=? char-ci>=?) - (spec: 1 write write) + (spec: 1 length length) + (spec: 1 pair? pair?) + (spec: 1 cdddr cdddr) + (spec: 1 char-alphabetic? char-alphabetic?) + (spec: 1 char=? char=?) + (spec: 1 close-input-port close-input-port) (spec: 1 + +) - (spec: 1 assoc assoc) - (spec: 1 string-copy string-copy) - (spec: 1 char>=? char>=?) - (spec: 1 make-string make-string) - (spec: 1 current-output-port current-output-port) + (spec: 1 positive? positive?) + (spec: 1 log log) (spec: 1 string->number string->number) - (spec: 1 symbol->string symbol->string) - (spec: 1 null-environment null-environment) - (spec: 1 display display) - (spec: 1 caaadr caaadr) - (spec: 1 integer->char integer->char) - (spec: 1 pair? pair?) + (spec: 1 string-copy string-copy) + (spec: 1 map map) + (spec: 1 vector->list vector->list) + (spec: 1 vector-length vector-length) + (spec: 1 caaaar caaaar) + (spec: 1 eqv? eqv?) + (spec: 1 cddr cddr) (spec: 1 char-ci<=? char-ci<=?) - (spec: 1 sqrt sqrt) + (spec: 1 char>=? char>=?) + (spec: 1 assq assq) (spec: 1 close-output-port close-output-port) - (spec: 1 > >) - (spec: 1 string<=? string<=?) - (spec: 1 asin asin) - (spec: 1 cdaaar cdaaar) - (spec: 1 caaar caaar) - (spec: 1 eqv? eqv?) - (spec: 1 cdr cdr) - (spec: 1 char-ci? char>?) - (spec: 1 string= >=) - (spec: 1 R5RSRuntime R5RSRuntime) + (spec: 1 - -) + (spec: 1 list->string list->string) + (spec: 1 list-tail list-tail) + (spec: 1 string->symbol string->symbol) + (spec: 1 cdaar cdaar) + (spec: 1 caadr caadr) + (spec: 1 odd? odd?) + (spec: 1 assv assv) + (spec: 1 magnitude magnitude) + (spec: 1 vector-ref vector-ref) (spec: 1 R7RSRuntime R7RSRuntime) - (spec: 1 Runtime Runtime) + (spec: 1 R5RSRuntime R5RSRuntime) (spec: 1 RuntimeAliases RuntimeAliases) - (spec: 1 GerbilRuntime GerbilRuntime) (spec: 1 GambitRuntime GambitRuntime) + (spec: 1 Runtime Runtime) + (spec: 1 GerbilRuntime GerbilRuntime) (spec: 1 %%app-dotted %%app) (spec: 1 %%ref-dotted %%ref) (spec: 1 %%set-dotted! set!) diff --git a/src/bootstrap/gerbil/core/contract.ssxi.ss b/src/bootstrap/gerbil/core/contract.ssxi.ss index de3ac48bc..decfbddf1 100644 --- a/src/bootstrap/gerbil/core/contract.ssxi.ss +++ b/src/bootstrap/gerbil/core/contract.ssxi.ss @@ -305,18 +305,78 @@ package: gerbil/core #f) (declare-type gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - (@lambda 1 #f)) + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~InterfaceInfo))) (declare-type gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~InterfaceInfo))) (declare-type gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - (@lambda 1 #f)) + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~InterfaceInfo))) (declare-type gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? (@case-lambda - (1 gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0) - (2 gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__%))) + (1 + gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~InterfaceInfo)) + (2 + gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~InterfaceInfo)))) (declare-class |gerbil/core/contract~TypeReference[1]#type-reference::t| (@class gerbil/core/contract~TypeReference#type-reference::t @@ -370,16 +430,61 @@ package: gerbil/core (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~TypeReference))) (declare-type |gerbil/core/contract~TypeReference[1]#resolve-type| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~TypeReference))) (declare-type |gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~TypeReference))) (declare-type |gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~TypeReference))) (declare-class gerbil/core/contract~TypeEnv#type-env::t (@class gerbil/core/contract~TypeEnv#type-env::t @@ -452,44 +557,201 @@ package: gerbil/core (declare-type gerbil/core/contract~TypeEnv#&type-env-super-set! (@mutator gerbil/core/contract~TypeEnv#type-env::t super #f)) - (declare-type gerbil/core/contract~TypeEnv#current-type-env (@lambda 0 #f)) - (declare-type gerbil/core/contract~TypeEnv#type-env-lookup (@lambda 1 #f)) + (declare-type + gerbil/core/contract~TypeEnv#current-type-env + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~TypeEnv))) + (declare-type + gerbil/core/contract~TypeEnv#type-env-lookup + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~TypeEnv))) (declare-type |gerbil/core/contract~Using[1]#!class-slot-type| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Using))) (declare-type |gerbil/core/contract~Using[1]#!class-slot-default| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Using))) (declare-type |gerbil/core/contract~Using[1]#!class-slot-contract| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Using))) (declare-type |gerbil/core/contract~Using[1]#!class-slot-checked-method-contract?| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Using))) (declare-type |gerbil/core/contract~Using[1]#!class-slot-checked-mutator-contract?| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Using))) (declare-type |gerbil/core/contract~Using[1]#dotted-identifier?| (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Using))) (declare-type |gerbil/core/contract~Using[1]#split-dotted-identifier| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Using))) (declare-type |gerbil/core/contract~Using[1]#get-slot-accessor| - (@lambda 3 #f)) + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Using))) (declare-type |gerbil/core/contract~Using[1]#get-slot-mutator| - (@lambda 4 #f)) + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Using))) (declare-type gerbil/core/contract~ClassMeta#!class-precedence-list - (@lambda 1 #f)) + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~ClassMeta))) (declare-type |gerbil/core/contract~Interface[1]#check-signature!__%| - (@lambda 6 #f)) + (@lambda 6 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#check-signature!__@| (@kw-lambda-dispatch @@ -502,10 +764,34 @@ package: gerbil/core |gerbil/core/contract~Interface[1]#check-signature!__@|)) (declare-type |gerbil/core/contract~Interface[1]#check-valid-type!| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#check-signature-spec!__%| - (@lambda 5 #f)) + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#check-signature-spec!__@| (@kw-lambda-dispatch @@ -518,64 +804,271 @@ package: gerbil/core |gerbil/core/contract~Interface[1]#check-signature-spec!__@|)) (declare-type |gerbil/core/contract~Interface[1]#signature-contract?| - (@lambda 1 #f)) + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#check-signature-contract-types!| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#signature-arguments-in| - (@lambda 1 #f)) + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#signature-arguments-out| - (@lambda 1 #f)) + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| - (@lambda 6 #f)) + (@lambda 6 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#make-interface-method-contract| - (@lambda 5 #f)) + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - (@lambda 4 #f)) + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#make-procedure-contract| - (@lambda 3 #f)) + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#compatible-signatures?| (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#compatible-type-contract?| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#contract-type-subtype?| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#signature-type-contract| - (@lambda 1 #f)) + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#signature-arity| - (@lambda 1 #f)) + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#signature-keywords| - (@lambda 1 #f)) + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~Interface))) (declare-type |gerbil/core/contract~Interface[1]#symbol>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj80517 __tmp80612 '15 '#f '#f)) - (let ((__tmp80624 + (##unchecked-structure-set! __obj80342 __tmp80430 '15 '#f '#f)) + (let ((__tmp80442 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g80625_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80443_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g80626_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80444_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g80627_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80445_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g80628_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80446_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g80629_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80447_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g80630_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80448_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g80631_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80449_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g80632_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80450_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g80633_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80451_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g80634_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80452_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g80635_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80453_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj80517 __tmp80624 '16 '#f '#f)) - (let ((__tmp80636 + (##unchecked-structure-set! __obj80342 __tmp80442 '16 '#f '#f)) + (let ((__tmp80454 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g80637_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80455_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g80638_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80456_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g80639_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80457_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g80640_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80458_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g80641_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80459_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g80642_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80460_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g80643_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80461_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g80644_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80462_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g80645_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80463_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g80646_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80464_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g80647_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80465_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj80517 __tmp80636 '17 '#f '#f)) - (let ((__tmp80648 + (##unchecked-structure-set! __obj80342 __tmp80454 '17 '#f '#f)) + (let ((__tmp80466 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g80649_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80467_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g80650_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80468_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g80651_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80469_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g80652_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80470_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g80653_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80471_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g80654_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80472_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g80655_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80473_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g80656_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80474_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g80657_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80475_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g80658_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80476_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g80659_|) + |gerbil/core/contract~InterfaceInfo[1]#_g80477_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj80517 __tmp80648 '18 '#f '#f)) - __obj80517))) + (##unchecked-structure-set! __obj80342 __tmp80466 '18 '#f '#f)) + __obj80342))) diff --git a/src/bootstrap/gerbil/core/contract~2.scm b/src/bootstrap/gerbil/core/contract~2.scm index b0dc29a71..55757e977 100644 --- a/src/bootstrap/gerbil/core/contract~2.scm +++ b/src/bootstrap/gerbil/core/contract~2.scm @@ -12,10 +12,10 @@ (make-class-predicate |gerbil/core/contract~TypeReference[1]#type-reference::t|)) (define |gerbil/core/contract~TypeReference[1]#make-type-reference| - (lambda _%$args45333%_ + (lambda _%$args45158%_ (apply make-instance |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%$args45333%_))) + _%$args45158%_))) (define |gerbil/core/contract~TypeReference[1]#type-reference-identifier| (make-class-slot-accessor |gerbil/core/contract~TypeReference[1]#type-reference::t| @@ -33,253 +33,242 @@ |gerbil/core/contract~TypeReference[1]#type-reference::t| 'identifier)) (define |gerbil/core/contract~TypeReference[1]#type-identifier?| - (lambda (_%id45314%_) - (if (gx#identifier? _%id45314%_) - (let ((_%t4531645318%_ (gx#syntax-local-value _%id45314%_ false))) - (if _%t4531645318%_ - (let* ((_%t45322%_ _%t4531645318%_) - (_%$e45325%_ + (lambda (_%id45139%_) + (if (gx#identifier? _%id45139%_) + (let ((_%t4514145143%_ (gx#syntax-local-value _%id45139%_ false))) + (if _%t4514145143%_ + (let* ((_%t45147%_ _%t4514145143%_) + (_%$e45150%_ (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45322%_)))) - (if _%$e45325%_ - _%$e45325%_ - (let ((_%$e45329%_ + _%t45147%_)))) + (if _%$e45150%_ + _%$e45150%_ + (let ((_%$e45154%_ (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45322%_)))) - (if _%$e45329%_ - _%$e45329%_ + _%t45147%_)))) + (if _%$e45154%_ + _%$e45154%_ (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t45322%_)))))) + _%t45147%_)))))) '#f)) '#f))) (define |gerbil/core/contract~TypeReference[1]#resolve-type| - (lambda (_%stx45294%_ _%id45296%_) - (let _%loop45298%_ ((_%t45301%_ - (gx#syntax-local-value _%id45296%_ false))) + (lambda (_%stx45119%_ _%id45121%_) + (let _%loop45123%_ ((_%t45126%_ + (gx#syntax-local-value _%id45121%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45301%_)) - (let () _%t45301%_) + _%t45126%_)) + _%t45126%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45301%_)) - (let () _%t45301%_) + _%t45126%_)) + _%t45126%_ (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t45301%_)) - (let ((__tmp80660 - (gx#syntax-local-value - (let ((__obj80525 _%t45301%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80525 - 'gerbil/core/contract~TypeReference#type-reference::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80525 - '1 - '#f - '#f)) - (class-slot-ref - |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80525 - 'identifier))) - false))) - (declare (not safe)) - (_%loop45298%_ __tmp80660)) - (if (let () (declare (not safe)) (not _%t45301%_)) - (let () - (gx#raise-syntax-error - '#f - '"unresolved type" - _%stx45294%_ - _%id45296%_)) - (let () - (gx#raise-syntax-error - '#f - '"unexpected type; expected class, interface or type reference" - _%stx45294%_ - _%id45296%_ - _%t45301%_))))))))) + _%t45126%_)) + (_%loop45123%_ + (gx#syntax-local-value + (let ((__obj80350 _%t45126%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80350 + 'gerbil/core/contract~TypeReference#type-reference::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80350 + '1 + '#f + '#f)) + (class-slot-ref + |gerbil/core/contract~TypeReference[1]#type-reference::t| + __obj80350 + 'identifier))) + false)) + (if (not _%t45126%_) + (gx#raise-syntax-error + '#f + '"unresolved type" + _%stx45119%_ + _%id45121%_) + (gx#raise-syntax-error + '#f + '"unexpected type; expected class, interface or type reference" + _%stx45119%_ + _%id45121%_ + _%t45126%_)))))))) (define |gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - (lambda (_%stx45270%_ _%id45272%_) - (let _%loop45274%_ ((_%id45277%_ _%id45272%_) - (_%t45279%_ - (gx#syntax-local-value _%id45272%_ false))) + (lambda (_%stx45095%_ _%id45097%_) + (let _%loop45099%_ ((_%id45102%_ _%id45097%_) + (_%t45104%_ + (gx#syntax-local-value _%id45097%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45279%_)) - (let () _%id45277%_) + _%t45104%_)) + _%id45102%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45279%_)) - (let () _%id45277%_) + _%t45104%_)) + _%id45102%_ (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t45279%_)) - (let () - (let* ((_%id45287%_ - (let ((__obj80526 _%t45279%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80526 - 'gerbil/core/contract~TypeReference#type-reference::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80526 - '1 - '#f - '#f)) - (class-slot-ref - |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80526 - 'identifier)))) - (__tmp80661 - (gx#syntax-local-value _%id45287%_ false))) - (declare (not safe)) - (_%loop45274%_ _%id45287%_ __tmp80661))) - (if (let () (declare (not safe)) (not _%t45279%_)) - (let () - (gx#raise-syntax-error - '#f - '"unresolved type" - _%stx45270%_ - _%id45277%_)) - (let () - (gx#raise-syntax-error - '#f - '"unexpected type; expected class, interface or type reference" - _%stx45270%_ - _%id45277%_ - _%t45279%_))))))))) + _%t45104%_)) + (let ((_%id45112%_ + (let ((__obj80351 _%t45104%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80351 + 'gerbil/core/contract~TypeReference#type-reference::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80351 + '1 + '#f + '#f)) + (class-slot-ref + |gerbil/core/contract~TypeReference[1]#type-reference::t| + __obj80351 + 'identifier))))) + (_%loop45099%_ + _%id45112%_ + (gx#syntax-local-value _%id45112%_ false))) + (if (not _%t45104%_) + (gx#raise-syntax-error + '#f + '"unresolved type" + _%stx45095%_ + _%id45102%_) + (gx#raise-syntax-error + '#f + '"unexpected type; expected class, interface or type reference" + _%stx45095%_ + _%id45102%_ + _%t45104%_)))))))) (define |gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - (lambda (_%stx45257%_ _%id45259%_) - (let ((_%t45261%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx45257%_ - _%id45259%_)))) + (lambda (_%stx45082%_ _%id45084%_) + (let ((_%t45086%_ + (|gerbil/core/contract~TypeReference[1]#resolve-type| + _%stx45082%_ + _%id45084%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45261%_)) - (let ((__obj80527 _%t45261%_)) + _%t45086%_)) + (let ((__obj80352 _%t45086%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80527 + __obj80352 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj80527 '12 '#f '#f)) + (##unchecked-structure-ref __obj80352 '12 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80527 + __obj80352 'type-descriptor))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45261%_)) - (let ((__obj80528 _%t45261%_)) + _%t45086%_)) + (let ((__obj80353 _%t45086%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80528 + __obj80353 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj80528 '4 '#f '#f)) + (##unchecked-structure-ref __obj80353 '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj80528 + __obj80353 'instance-type))) - (let () - (gx#raise-syntax-error - '#f - '"unexpected type; expected class, interface or type reference" - _%stx45257%_ - _%id45259%_ - _%t45261%_))))))) + (gx#raise-syntax-error + '#f + '"unexpected type; expected class, interface or type reference" + _%stx45082%_ + _%id45084%_ + _%t45086%_)))))) (define |gerbil/core/contract~TypeReference[:0:]#deftype| - (lambda (_%$stx45337%_) - (let* ((_%g4534145359%_ - (lambda (_%g4534245355%_) + (lambda (_%$stx45162%_) + (let* ((_%g4516645184%_ + (lambda (_%g4516745180%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4534245355%_))) - (_%g4534045414%_ - (lambda (_%g4534245363%_) - (if (gx#stx-pair? _%g4534245363%_) - (let ((_%e4534745366%_ (gx#syntax-e _%g4534245363%_))) - (let ((_%hd4534645370%_ + _%g4516745180%_))) + (_%g4516545239%_ + (lambda (_%g4516745188%_) + (if (gx#stx-pair? _%g4516745188%_) + (let ((_%e4517245191%_ (gx#syntax-e _%g4516745188%_))) + (let ((_%hd4517145195%_ (let () (declare (not safe)) - (##car _%e4534745366%_))) - (_%tl4534545373%_ + (##car _%e4517245191%_))) + (_%tl4517045198%_ (let () (declare (not safe)) - (##cdr _%e4534745366%_)))) - (if (gx#stx-pair? _%tl4534545373%_) - (let ((_%e4535045376%_ - (gx#syntax-e _%tl4534545373%_))) - (let ((_%hd4534945380%_ + (##cdr _%e4517245191%_)))) + (if (gx#stx-pair? _%tl4517045198%_) + (let ((_%e4517545201%_ + (gx#syntax-e _%tl4517045198%_))) + (let ((_%hd4517445205%_ (let () (declare (not safe)) - (##car _%e4535045376%_))) - (_%tl4534845383%_ + (##car _%e4517545201%_))) + (_%tl4517345208%_ (let () (declare (not safe)) - (##cdr _%e4535045376%_)))) - (if (gx#stx-pair? _%tl4534845383%_) - (let ((_%e4535345386%_ - (gx#syntax-e _%tl4534845383%_))) - (let ((_%hd4535245390%_ + (##cdr _%e4517545201%_)))) + (if (gx#stx-pair? _%tl4517345208%_) + (let ((_%e4517845211%_ + (gx#syntax-e _%tl4517345208%_))) + (let ((_%hd4517745215%_ (let () (declare (not safe)) - (##car _%e4535345386%_))) - (_%tl4535145393%_ + (##car _%e4517845211%_))) + (_%tl4517645218%_ (let () (declare (not safe)) - (##cdr _%e4535345386%_)))) - (if (gx#stx-null? _%tl4535145393%_) - ((lambda (_%L45396%_ _%L45398%_) + (##cdr _%e4517845211%_)))) + (if (gx#stx-null? _%tl4517645218%_) + ((lambda (_%L45221%_ _%L45223%_) (if (and (gx#identifier? - _%L45398%_) + _%L45223%_) (gx#identifier? - _%L45396%_)) + _%L45221%_)) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L45398%_ + (cons _%L45223%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -288,17 +277,17 @@ (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L45396%_ '())) + (cons _%L45221%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4534145359%_ - _%g4534245363%_))) - _%hd4535245390%_ - _%hd4534945380%_) - (_%g4534145359%_ - _%g4534245363%_)))) - (_%g4534145359%_ _%g4534245363%_)))) - (_%g4534145359%_ _%g4534245363%_)))) - (_%g4534145359%_ _%g4534245363%_))))) - (_%g4534045414%_ _%$stx45337%_))))) + (_%g4516645184%_ + _%g4516745188%_))) + _%hd4517745215%_ + _%hd4517445205%_) + (_%g4516645184%_ + _%g4516745188%_)))) + (_%g4516645184%_ _%g4516745188%_)))) + (_%g4516645184%_ _%g4516745188%_)))) + (_%g4516645184%_ _%g4516745188%_))))) + (_%g4516545239%_ _%$stx45162%_))))) diff --git a/src/bootstrap/gerbil/core/contract~3.scm b/src/bootstrap/gerbil/core/contract~3.scm index e864d9805..ae60dc53b 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]#_g80663_| + (define |gerbil/core/contract~TypeReference[2]#_g80479_| (##structure gx#syntax-quote::t 'type-reference::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g80665_| + (define |gerbil/core/contract~TypeReference[2]#_g80481_| (##structure gx#syntax-quote::t 'make-type-reference #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g80667_| + (define |gerbil/core/contract~TypeReference[2]#_g80483_| (##structure gx#syntax-quote::t 'type-reference? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g80669_| + (define |gerbil/core/contract~TypeReference[2]#_g80485_| (##structure gx#syntax-quote::t 'type-reference-identifier #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g80671_| + (define |gerbil/core/contract~TypeReference[2]#_g80487_| (##structure gx#syntax-quote::t 'type-reference-identifier-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g80673_| + (define |gerbil/core/contract~TypeReference[2]#_g80489_| (##structure gx#syntax-quote::t '&type-reference-identifier #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g80675_| + (define |gerbil/core/contract~TypeReference[2]#_g80491_| (##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 ((__obj80524 + (let ((__obj80349 (let () (declare (not safe)) (##structure @@ -79,63 +79,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80524 + __obj80349 'gerbil/core/contract~TypeReference#type-reference::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj80524 'type-reference '2 '#f '#f)) + (##unchecked-structure-set! __obj80349 'type-reference '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj80524 '(identifier) '4 '#f '#f)) + (##unchecked-structure-set! __obj80349 '(identifier) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj80524 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj80349 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj80524 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj80349 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj80524 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj80349 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj80524 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj80349 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj80524 '#f '11 '#f '#f)) - (let ((__tmp80662 |gerbil/core/contract~TypeReference[2]#_g80663_|)) + (##unchecked-structure-set! __obj80349 '#f '11 '#f '#f)) + (let ((__tmp80478 |gerbil/core/contract~TypeReference[2]#_g80479_|)) (declare (not safe)) - (##unchecked-structure-set! __obj80524 __tmp80662 '12 '#f '#f)) - (let ((__tmp80664 |gerbil/core/contract~TypeReference[2]#_g80665_|)) + (##unchecked-structure-set! __obj80349 __tmp80478 '12 '#f '#f)) + (let ((__tmp80480 |gerbil/core/contract~TypeReference[2]#_g80481_|)) (declare (not safe)) - (##unchecked-structure-set! __obj80524 __tmp80664 '13 '#f '#f)) - (let ((__tmp80666 |gerbil/core/contract~TypeReference[2]#_g80667_|)) + (##unchecked-structure-set! __obj80349 __tmp80480 '13 '#f '#f)) + (let ((__tmp80482 |gerbil/core/contract~TypeReference[2]#_g80483_|)) (declare (not safe)) - (##unchecked-structure-set! __obj80524 __tmp80666 '14 '#f '#f)) - (let ((__tmp80668 + (##unchecked-structure-set! __obj80349 __tmp80482 '14 '#f '#f)) + (let ((__tmp80484 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g80669_|) + |gerbil/core/contract~TypeReference[2]#_g80485_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj80524 __tmp80668 '15 '#f '#f)) - (let ((__tmp80670 + (##unchecked-structure-set! __obj80349 __tmp80484 '15 '#f '#f)) + (let ((__tmp80486 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g80671_|) + |gerbil/core/contract~TypeReference[2]#_g80487_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj80524 __tmp80670 '16 '#f '#f)) - (let ((__tmp80672 + (##unchecked-structure-set! __obj80349 __tmp80486 '16 '#f '#f)) + (let ((__tmp80488 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g80673_|) + |gerbil/core/contract~TypeReference[2]#_g80489_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj80524 __tmp80672 '17 '#f '#f)) - (let ((__tmp80674 + (##unchecked-structure-set! __obj80349 __tmp80488 '17 '#f '#f)) + (let ((__tmp80490 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g80675_|) + |gerbil/core/contract~TypeReference[2]#_g80491_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj80524 __tmp80674 '18 '#f '#f)) - __obj80524))) + (##unchecked-structure-set! __obj80349 __tmp80490 '18 '#f '#f)) + __obj80349))) diff --git a/src/bootstrap/gerbil/core/contract~4.scm b/src/bootstrap/gerbil/core/contract~4.scm index bc0f5a305..82e9a26a2 100644 --- a/src/bootstrap/gerbil/core/contract~4.scm +++ b/src/bootstrap/gerbil/core/contract~4.scm @@ -1,706 +1,699 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypeCast[1]#_g80678_| + (define |gerbil/core/contract~TypeCast[1]#_g80494_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~TypeCast[:0:]#:| - (lambda (_%stx45419%_) - (let* ((_%g4542245440%_ - (lambda (_%g4542345436%_) + (lambda (_%stx45244%_) + (let* ((_%g4524745265%_ + (lambda (_%g4524845261%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4542345436%_))) - (_%g4542145635%_ - (lambda (_%g4542345444%_) - (if (gx#stx-pair? _%g4542345444%_) - (let ((_%e4542845447%_ (gx#syntax-e _%g4542345444%_))) - (let ((_%hd4542745451%_ + _%g4524845261%_))) + (_%g4524645460%_ + (lambda (_%g4524845269%_) + (if (gx#stx-pair? _%g4524845269%_) + (let ((_%e4525345272%_ (gx#syntax-e _%g4524845269%_))) + (let ((_%hd4525245276%_ (let () (declare (not safe)) - (##car _%e4542845447%_))) - (_%tl4542645454%_ + (##car _%e4525345272%_))) + (_%tl4525145279%_ (let () (declare (not safe)) - (##cdr _%e4542845447%_)))) - (if (gx#stx-pair? _%tl4542645454%_) - (let ((_%e4543145457%_ - (gx#syntax-e _%tl4542645454%_))) - (let ((_%hd4543045461%_ + (##cdr _%e4525345272%_)))) + (if (gx#stx-pair? _%tl4525145279%_) + (let ((_%e4525645282%_ + (gx#syntax-e _%tl4525145279%_))) + (let ((_%hd4525545286%_ (let () (declare (not safe)) - (##car _%e4543145457%_))) - (_%tl4542945464%_ + (##car _%e4525645282%_))) + (_%tl4525445289%_ (let () (declare (not safe)) - (##cdr _%e4543145457%_)))) - (if (gx#stx-pair? _%tl4542945464%_) - (let ((_%e4543445467%_ - (gx#syntax-e _%tl4542945464%_))) - (let ((_%hd4543345471%_ + (##cdr _%e4525645282%_)))) + (if (gx#stx-pair? _%tl4525445289%_) + (let ((_%e4525945292%_ + (gx#syntax-e _%tl4525445289%_))) + (let ((_%hd4525845296%_ (let () (declare (not safe)) - (##car _%e4543445467%_))) - (_%tl4543245474%_ + (##car _%e4525945292%_))) + (_%tl4525745299%_ (let () (declare (not safe)) - (##cdr _%e4543445467%_)))) - (if (gx#stx-null? _%tl4543245474%_) - ((lambda (_%L45477%_ _%L45479%_) + (##cdr _%e4525945292%_)))) + (if (gx#stx-null? _%tl4525745299%_) + ((lambda (_%L45302%_ _%L45304%_) (if (gx#identifier? - _%L45477%_) - (let ((_%meta45496%_ + _%L45302%_) + (let ((_%meta45321%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx45419%_ - _%L45477%_)))) + _%stx45244%_ + _%L45302%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta45496%_)) - (let () - (let* ((_%g4550145516%_ + _%meta45321%_)) + (let* ((_%g4532645341%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4550245512%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g4550245512%_))) - (_%g4550045563%_ - (lambda (_%g4550245520%_) - (if (gx#stx-pair? _%g4550245520%_) - (let ((_%e4550745523%_ - (gx#syntax-e _%g4550245520%_))) - (let ((_%hd4550645527%_ - (let () - (declare (not safe)) - (##car _%e4550745523%_))) - (_%tl4550545530%_ - (let () - (declare (not safe)) - (##cdr _%e4550745523%_)))) - (if (gx#stx-pair? _%tl4550545530%_) - (let ((_%e4551045533%_ - (gx#syntax-e - _%tl4550545530%_))) - (let ((_%hd4550945537%_ - (let () - (declare (not safe)) - (##car _%e4551045533%_))) - (_%tl4550845540%_ - (let () - (declare (not safe)) - (##cdr _%e4551045533%_)))) - (if (gx#stx-null? - _%tl4550845540%_) - ((lambda (_%L45543%_ - _%L45545%_) - (let () - (if (let ((__tmp80676 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__obj80529 _%meta45496%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80529 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80529 - '1 - '#f - '#f)) - (class-slot-ref - gerbil/core/mop~MOP-2#class-type-info::t - __obj80529 - 'id))))) - (declare (not safe)) - (##memq __tmp80676 '(t void))) - (cons (gx#datum->syntax '#f 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45545%_ '())) - (cons _%L45479%_ '()))) - (cons (gx#datum->syntax '#f 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45545%_ '())) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (gx#datum->syntax - '#f - 'val) - (cons _%L45479%_ '())) - (cons (cons (gx#datum->syntax - '#f - 'if) - (cons (cons _%L45543%_ + (lambda (_%g4532745337%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g4532745337%_))) + (_%g4532545388%_ + (lambda (_%g4532745345%_) + (if (gx#stx-pair? _%g4532745345%_) + (let ((_%e4533245348%_ + (gx#syntax-e _%g4532745345%_))) + (let ((_%hd4533145352%_ + (let () + (declare (not safe)) + (##car _%e4533245348%_))) + (_%tl4533045355%_ + (let () + (declare (not safe)) + (##cdr _%e4533245348%_)))) + (if (gx#stx-pair? _%tl4533045355%_) + (let ((_%e4533545358%_ + (gx#syntax-e + _%tl4533045355%_))) + (let ((_%hd4533445362%_ + (let () + (declare (not safe)) + (##car _%e4533545358%_))) + (_%tl4533345365%_ + (let () + (declare (not safe)) + (##cdr _%e4533545358%_)))) + (if (gx#stx-null? + _%tl4533345365%_) + ((lambda (_%L45368%_ + _%L45370%_) + (if (let ((__tmp80492 + (let ((__obj80354 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 'val) '())) - (cons (gx#datum->syntax '#f 'val) - (cons (cons (gx#datum->syntax '#f 'error) - (cons '"bad cast" - (cons _%L45545%_ - (cons (gx#datum->syntax + _%meta45321%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80354 + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80354 + '1 + '#f + '#f)) + (class-slot-ref + gerbil/core/mop~MOP-2#class-type-info::t + __obj80354 + 'id))))) + (declare (not safe)) + (##memq __tmp80492 '(t void))) + (cons (gx#datum->syntax '#f 'begin-annotation) + (cons (cons (gx#datum->syntax '#f '@type) + (cons _%L45370%_ '())) + (cons _%L45304%_ '()))) + (cons (gx#datum->syntax '#f 'begin-annotation) + (cons (cons (gx#datum->syntax '#f '@type) + (cons _%L45370%_ '())) + (cons (cons (gx#datum->syntax '#f 'let) + (cons (cons (gx#datum->syntax '#f 'val) + (cons _%L45304%_ '())) + (cons (cons (gx#datum->syntax + '#f + 'if) + (cons (cons _%L45368%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'val) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - '()))) + (cons (gx#datum->syntax '#f 'val) '())) + (cons (gx#datum->syntax '#f 'val) + (cons (cons (gx#datum->syntax '#f 'error) + (cons '"bad cast" + (cons _%L45370%_ + (cons (gx#datum->syntax + '#f + 'val) + '())))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + '()))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4550945537%_ - _%hd4550645527%_) - (_%g4550145516%_ - _%g4550245520%_)))) - (_%g4550145516%_ _%g4550245520%_)))) - (_%g4550145516%_ _%g4550245520%_))))) - (_%g4550045563%_ - (list (let ((__obj80530 _%meta45496%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80530 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80530 - '12 - '#f - '#f)) - (class-slot-ref - gerbil/core/mop~MOP-2#class-type-info::t - __obj80530 - 'type-descriptor))) - (let ((__obj80531 _%meta45496%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80531 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80531 - '14 - '#f - '#f)) - (class-slot-ref - gerbil/core/mop~MOP-2#class-type-info::t - __obj80531 - 'predicate))))))) + _%hd4533445362%_ + _%hd4533145352%_) + (_%g4532645341%_ + _%g4532745345%_)))) + (_%g4532645341%_ _%g4532745345%_)))) + (_%g4532645341%_ _%g4532745345%_))))) + (_%g4532545388%_ + (list (let ((__obj80355 _%meta45321%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80355 + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80355 + '12 + '#f + '#f)) + (class-slot-ref + gerbil/core/mop~MOP-2#class-type-info::t + __obj80355 + 'type-descriptor))) + (let ((__obj80356 _%meta45321%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80356 + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80356 + '14 + '#f + '#f)) + (class-slot-ref + gerbil/core/mop~MOP-2#class-type-info::t + __obj80356 + 'predicate)))))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta45496%_)) - (let () - (let* ((_%g4556945584%_ - (lambda (_%g4557045580%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g4557045580%_))) - (_%g4556845629%_ - (lambda (_%g4557045588%_) - (if (gx#stx-pair? _%g4557045588%_) - (let ((_%e4557545591%_ - (gx#syntax-e _%g4557045588%_))) - (let ((_%hd4557445595%_ - (let () - (declare (not safe)) - (##car _%e4557545591%_))) - (_%tl4557345598%_ - (let () - (declare (not safe)) - (##cdr _%e4557545591%_)))) - (if (gx#stx-pair? _%tl4557345598%_) - (let ((_%e4557845601%_ - (gx#syntax-e - _%tl4557345598%_))) - (let ((_%hd4557745605%_ - (let () - (declare (not safe)) - (##car _%e4557845601%_))) - (_%tl4557645608%_ - (let () - (declare (not safe)) - (##cdr _%e4557845601%_)))) - (if (gx#stx-null? - _%tl4557645608%_) - ((lambda (_%L45611%_ + _%meta45321%_)) + (let* ((_%g4539445409%_ + (lambda (_%g4539545405%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g4539545405%_))) + (_%g4539345454%_ + (lambda (_%g4539545413%_) + (if (gx#stx-pair? _%g4539545413%_) + (let ((_%e4540045416%_ + (gx#syntax-e _%g4539545413%_))) + (let ((_%hd4539945420%_ + (let () + (declare (not safe)) + (##car _%e4540045416%_))) + (_%tl4539845423%_ + (let () + (declare (not safe)) + (##cdr _%e4540045416%_)))) + (if (gx#stx-pair? _%tl4539845423%_) + (let ((_%e4540345426%_ + (gx#syntax-e + _%tl4539845423%_))) + (let ((_%hd4540245430%_ + (let () + (declare (not safe)) + (##car _%e4540345426%_))) + (_%tl4540145433%_ + (let () + (declare (not safe)) + (##cdr _%e4540345426%_)))) + (if (gx#stx-null? + _%tl4540145433%_) + ((lambda (_%L45436%_ + _%L45438%_) + (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L45613%_) - (let () - (cons (gx#datum->syntax '#f 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45613%_ '())) - (cons (cons _%L45611%_ (cons _%L45479%_ '())) - '()))))) - _%hd4557745605%_ - _%hd4557445595%_) - (_%g4556945584%_ _%g4557045588%_)))) + '#f + '@type) + (cons _%L45438%_ '())) + (cons (cons _%L45436%_ (cons _%L45304%_ '())) + '())))) + _%hd4540245430%_ + _%hd4539945420%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4556945584%_ - _%g4557045588%_)))) - (_%g4556945584%_ _%g4557045588%_))))) - (_%g4556845629%_ - (list (let ((__obj80532 _%meta45496%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80532 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80532 - '4 - '#f - '#f)) - (class-slot-ref - gerbil/core/contract~InterfaceInfo#interface-info::t - __obj80532 - 'instance-type))) - (let () - (declare (not safe)) - (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%stx45419%_ - _%L45477%_)))))) - (let () - (gx#raise-syntax-error - '#f - '"not a class type or interface" - _%stx45419%_ - _%L45477%_))))) + (_%g4539445409%_ + _%g4539545413%_)))) + (_%g4539445409%_ + _%g4539545413%_)))) + (_%g4539445409%_ _%g4539545413%_))))) + (_%g4539345454%_ + (list (let ((__obj80357 _%meta45321%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80357 + 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80357 + '4 + '#f + '#f)) + (class-slot-ref + gerbil/core/contract~InterfaceInfo#interface-info::t + __obj80357 + 'instance-type))) + (let () + (declare (not safe)) + (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| + _%stx45244%_ + _%L45302%_))))) + (gx#raise-syntax-error + '#f + '"not a class type or interface" + _%stx45244%_ + _%L45302%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4542245440%_ - _%g4542345444%_))) - _%hd4543345471%_ - _%hd4543045461%_) - (_%g4542245440%_ - _%g4542345444%_)))) - (_%g4542245440%_ _%g4542345444%_)))) - (_%g4542245440%_ _%g4542345444%_)))) - (_%g4542245440%_ _%g4542345444%_))))) - (_%g4542145635%_ _%stx45419%_)))) + (_%g4524745265%_ + _%g4524845269%_))) + _%hd4525845296%_ + _%hd4525545286%_) + (_%g4524745265%_ + _%g4524845269%_)))) + (_%g4524745265%_ _%g4524845269%_)))) + (_%g4524745265%_ _%g4524845269%_)))) + (_%g4524745265%_ _%g4524845269%_))))) + (_%g4524645460%_ _%stx45244%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:?| - (lambda (_%stx45639%_) - (let* ((_%g4564245660%_ - (lambda (_%g4564345656%_) + (lambda (_%stx45464%_) + (let* ((_%g4546745485%_ + (lambda (_%g4546845481%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4564345656%_))) - (_%g4564145854%_ - (lambda (_%g4564345664%_) - (if (gx#stx-pair? _%g4564345664%_) - (let ((_%e4564845667%_ (gx#syntax-e _%g4564345664%_))) - (let ((_%hd4564745671%_ + _%g4546845481%_))) + (_%g4546645679%_ + (lambda (_%g4546845489%_) + (if (gx#stx-pair? _%g4546845489%_) + (let ((_%e4547345492%_ (gx#syntax-e _%g4546845489%_))) + (let ((_%hd4547245496%_ (let () (declare (not safe)) - (##car _%e4564845667%_))) - (_%tl4564645674%_ + (##car _%e4547345492%_))) + (_%tl4547145499%_ (let () (declare (not safe)) - (##cdr _%e4564845667%_)))) - (if (gx#stx-pair? _%tl4564645674%_) - (let ((_%e4565145677%_ - (gx#syntax-e _%tl4564645674%_))) - (let ((_%hd4565045681%_ + (##cdr _%e4547345492%_)))) + (if (gx#stx-pair? _%tl4547145499%_) + (let ((_%e4547645502%_ + (gx#syntax-e _%tl4547145499%_))) + (let ((_%hd4547545506%_ (let () (declare (not safe)) - (##car _%e4565145677%_))) - (_%tl4564945684%_ + (##car _%e4547645502%_))) + (_%tl4547445509%_ (let () (declare (not safe)) - (##cdr _%e4565145677%_)))) - (if (gx#stx-pair? _%tl4564945684%_) - (let ((_%e4565445687%_ - (gx#syntax-e _%tl4564945684%_))) - (let ((_%hd4565345691%_ + (##cdr _%e4547645502%_)))) + (if (gx#stx-pair? _%tl4547445509%_) + (let ((_%e4547945512%_ + (gx#syntax-e _%tl4547445509%_))) + (let ((_%hd4547845516%_ (let () (declare (not safe)) - (##car _%e4565445687%_))) - (_%tl4565245694%_ + (##car _%e4547945512%_))) + (_%tl4547745519%_ (let () (declare (not safe)) - (##cdr _%e4565445687%_)))) - (if (gx#stx-null? _%tl4565245694%_) - ((lambda (_%L45697%_ _%L45699%_) + (##cdr _%e4547945512%_)))) + (if (gx#stx-null? _%tl4547745519%_) + ((lambda (_%L45522%_ _%L45524%_) (if (gx#identifier? - _%L45697%_) - (let ((_%meta45715%_ + _%L45522%_) + (let ((_%meta45540%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx45639%_ - _%L45697%_)))) + _%stx45464%_ + _%L45522%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta45715%_)) - (let () - (let* ((_%g4572045735%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4572145731%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g4572145731%_))) - (_%g4571945782%_ - (lambda (_%g4572145739%_) - (if (gx#stx-pair? _%g4572145739%_) - (let ((_%e4572645742%_ - (gx#syntax-e _%g4572145739%_))) - (let ((_%hd4572545746%_ - (let () - (declare (not safe)) - (##car _%e4572645742%_))) - (_%tl4572445749%_ - (let () - (declare (not safe)) - (##cdr _%e4572645742%_)))) - (if (gx#stx-pair? _%tl4572445749%_) - (let ((_%e4572945752%_ - (gx#syntax-e - _%tl4572445749%_))) - (let ((_%hd4572845756%_ - (let () - (declare (not safe)) - (##car _%e4572945752%_))) - (_%tl4572745759%_ - (let () - (declare (not safe)) - (##cdr _%e4572945752%_)))) - (if (gx#stx-null? - _%tl4572745759%_) - ((lambda (_%L45762%_ - _%L45764%_) - (let () - (if (let ((__tmp80677 + _%meta45540%_)) + (let* ((_%g4554545560%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__obj80533 _%meta45715%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80533 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80533 - '1 - '#f - '#f)) - (class-slot-ref - gerbil/core/mop~MOP-2#class-type-info::t - __obj80533 - 'id))))) - (declare (not safe)) - (##memq __tmp80677 '(t void))) - (cons (gx#datum->syntax '#f 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45764%_ '())) - (cons _%L45699%_ '()))) - (cons (gx#datum->syntax '#f 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45764%_ '())) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (gx#datum->syntax - '#f - 'val) - (cons _%L45699%_ '())) - (cons (cons (gx#datum->syntax - '#f - 'if) - (cons (cons (gx#datum->syntax + (lambda (_%g4554645556%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g4554645556%_))) + (_%g4554445607%_ + (lambda (_%g4554645564%_) + (if (gx#stx-pair? _%g4554645564%_) + (let ((_%e4555145567%_ + (gx#syntax-e _%g4554645564%_))) + (let ((_%hd4555045571%_ + (let () + (declare (not safe)) + (##car _%e4555145567%_))) + (_%tl4554945574%_ + (let () + (declare (not safe)) + (##cdr _%e4555145567%_)))) + (if (gx#stx-pair? _%tl4554945574%_) + (let ((_%e4555445577%_ + (gx#syntax-e + _%tl4554945574%_))) + (let ((_%hd4555345581%_ + (let () + (declare (not safe)) + (##car _%e4555445577%_))) + (_%tl4555245584%_ + (let () + (declare (not safe)) + (##cdr _%e4555445577%_)))) + (if (gx#stx-null? + _%tl4555245584%_) + ((lambda (_%L45587%_ + _%L45589%_) + (if (let ((__tmp80493 + (let ((__obj80358 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'or) - (cons (cons (gx#datum->syntax '#f 'not) - (cons (gx#datum->syntax '#f 'val) - '())) - (cons (cons _%L45762%_ - (cons (gx#datum->syntax + _%meta45540%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80358 + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80358 + '1 + '#f + '#f)) + (class-slot-ref + gerbil/core/mop~MOP-2#class-type-info::t + __obj80358 + 'id))))) + (declare (not safe)) + (##memq __tmp80493 '(t void))) + (cons (gx#datum->syntax '#f 'begin-annotation) + (cons (cons (gx#datum->syntax '#f '@type) + (cons _%L45589%_ '())) + (cons _%L45524%_ '()))) + (cons (gx#datum->syntax '#f 'begin-annotation) + (cons (cons (gx#datum->syntax '#f '@type) + (cons _%L45589%_ '())) + (cons (cons (gx#datum->syntax '#f 'let) + (cons (cons (gx#datum->syntax '#f 'val) + (cons _%L45524%_ '())) + (cons (cons (gx#datum->syntax '#f - 'val) - '())) - '()))) - (cons (gx#datum->syntax '#f 'val) - (cons (cons (gx#datum->syntax - '#f - 'contract-violation!) - (cons '"bad cast" - (cons _%L45699%_ - (cons _%L45762%_ - (cons (gx#datum->syntax + 'if) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'val) - '()))))) + 'or) + (cons (cons (gx#datum->syntax '#f 'not) + (cons (gx#datum->syntax '#f 'val) + '())) + (cons (cons _%L45587%_ + (cons (gx#datum->syntax + '#f + 'val) + '())) + '()))) + (cons (gx#datum->syntax '#f 'val) + (cons (cons (gx#datum->syntax + '#f + 'contract-violation!) + (cons '"bad cast" + (cons _%L45524%_ + (cons _%L45587%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'val) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - '()))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) + '()))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4572845756%_ - _%hd4572545746%_) - (_%g4572045735%_ - _%g4572145739%_)))) - (_%g4572045735%_ _%g4572145739%_)))) - (_%g4572045735%_ _%g4572145739%_))))) - (_%g4571945782%_ - (list (let ((__obj80534 _%meta45715%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80534 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80534 - '12 - '#f - '#f)) - (class-slot-ref - gerbil/core/mop~MOP-2#class-type-info::t - __obj80534 - 'type-descriptor))) - (let ((__obj80535 _%meta45715%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80535 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80535 - '14 - '#f - '#f)) - (class-slot-ref - gerbil/core/mop~MOP-2#class-type-info::t - __obj80535 - 'predicate))))))) + _%hd4555345581%_ + _%hd4555045571%_) + (_%g4554545560%_ + _%g4554645564%_)))) + (_%g4554545560%_ _%g4554645564%_)))) + (_%g4554545560%_ _%g4554645564%_))))) + (_%g4554445607%_ + (list (let ((__obj80359 _%meta45540%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80359 + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80359 + '12 + '#f + '#f)) + (class-slot-ref + gerbil/core/mop~MOP-2#class-type-info::t + __obj80359 + 'type-descriptor))) + (let ((__obj80360 _%meta45540%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80360 + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80360 + '14 + '#f + '#f)) + (class-slot-ref + gerbil/core/mop~MOP-2#class-type-info::t + __obj80360 + 'predicate)))))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta45715%_)) - (let () - (let* ((_%g4578845803%_ - (lambda (_%g4578945799%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g4578945799%_))) - (_%g4578745848%_ - (lambda (_%g4578945807%_) - (if (gx#stx-pair? _%g4578945807%_) - (let ((_%e4579445810%_ - (gx#syntax-e _%g4578945807%_))) - (let ((_%hd4579345814%_ - (let () - (declare (not safe)) - (##car _%e4579445810%_))) - (_%tl4579245817%_ - (let () - (declare (not safe)) - (##cdr _%e4579445810%_)))) - (if (gx#stx-pair? _%tl4579245817%_) - (let ((_%e4579745820%_ - (gx#syntax-e - _%tl4579245817%_))) - (let ((_%hd4579645824%_ - (let () - (declare (not safe)) - (##car _%e4579745820%_))) - (_%tl4579545827%_ - (let () - (declare (not safe)) - (##cdr _%e4579745820%_)))) - (if (gx#stx-null? - _%tl4579545827%_) - ((lambda (_%L45830%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L45832%_) - (let () - (cons (gx#datum->syntax '#f 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45832%_ '())) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (gx#datum->syntax - '#f - 'val) - (cons _%L45699%_ '())) - (cons (cons (gx#datum->syntax + _%meta45540%_)) + (let* ((_%g4561345628%_ + (lambda (_%g4561445624%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g4561445624%_))) + (_%g4561245673%_ + (lambda (_%g4561445632%_) + (if (gx#stx-pair? _%g4561445632%_) + (let ((_%e4561945635%_ + (gx#syntax-e _%g4561445632%_))) + (let ((_%hd4561845639%_ + (let () + (declare (not safe)) + (##car _%e4561945635%_))) + (_%tl4561745642%_ + (let () + (declare (not safe)) + (##cdr _%e4561945635%_)))) + (if (gx#stx-pair? _%tl4561745642%_) + (let ((_%e4562245645%_ + (gx#syntax-e + _%tl4561745642%_))) + (let ((_%hd4562145649%_ + (let () + (declare (not safe)) + (##car _%e4562245645%_))) + (_%tl4562045652%_ + (let () + (declare (not safe)) + (##cdr _%e4562245645%_)))) + (if (gx#stx-null? + _%tl4562045652%_) + ((lambda (_%L45655%_ + _%L45657%_) + (cons (gx#datum->syntax '#f - 'and) - (cons (gx#datum->syntax + 'begin-annotation) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'val) - (cons (cons _%L45830%_ - (cons (gx#datum->syntax '#f 'val) '())) - '()))) - '()))) + '#f + '@type) + (cons _%L45657%_ '())) + (cons (cons (gx#datum->syntax '#f 'let) + (cons (cons (gx#datum->syntax '#f 'val) + (cons _%L45524%_ '())) + (cons (cons (gx#datum->syntax + '#f + 'and) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'val) + (cons (cons _%L45655%_ + (cons (gx#datum->syntax '#f 'val) '())) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - _%hd4579645824%_ - _%hd4579345814%_) - (_%g4578845803%_ _%g4578945807%_)))) + '()))) + '())))) + _%hd4562145649%_ + _%hd4561845639%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4578845803%_ - _%g4578945807%_)))) - (_%g4578845803%_ _%g4578945807%_))))) - (_%g4578745848%_ - (list (let ((__obj80536 _%meta45715%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80536 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80536 - '4 - '#f - '#f)) - (class-slot-ref - gerbil/core/contract~InterfaceInfo#interface-info::t - __obj80536 - 'instance-type))) - (let () - (declare (not safe)) - (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%stx45639%_ - _%L45697%_)))))) - (let () - (gx#raise-syntax-error - '#f - '"not a class type or interface" - _%stx45639%_ - _%L45697%_))))) + (_%g4561345628%_ + _%g4561445632%_)))) + (_%g4561345628%_ + _%g4561445632%_)))) + (_%g4561345628%_ _%g4561445632%_))))) + (_%g4561245673%_ + (list (let ((__obj80361 _%meta45540%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80361 + 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80361 + '4 + '#f + '#f)) + (class-slot-ref + gerbil/core/contract~InterfaceInfo#interface-info::t + __obj80361 + 'instance-type))) + (let () + (declare (not safe)) + (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| + _%stx45464%_ + _%L45522%_))))) + (gx#raise-syntax-error + '#f + '"not a class type or interface" + _%stx45464%_ + _%L45522%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4564245660%_ - _%g4564345664%_))) - _%hd4565345691%_ - _%hd4565045681%_) - (_%g4564245660%_ - _%g4564345664%_)))) - (_%g4564245660%_ _%g4564345664%_)))) - (_%g4564245660%_ _%g4564345664%_)))) - (_%g4564245660%_ _%g4564345664%_))))) - (_%g4564145854%_ _%stx45639%_)))) + (_%g4546745485%_ + _%g4546845489%_))) + _%hd4547845516%_ + _%hd4547545506%_) + (_%g4546745485%_ + _%g4546845489%_)))) + (_%g4546745485%_ _%g4546845489%_)))) + (_%g4546745485%_ _%g4546845489%_)))) + (_%g4546745485%_ _%g4546845489%_))))) + (_%g4546645679%_ _%stx45464%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:-| - (lambda (_%stx45858%_) - (let* ((_%g4586145879%_ - (lambda (_%g4586245875%_) + (lambda (_%stx45683%_) + (let* ((_%g4568645704%_ + (lambda (_%g4568745700%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4586245875%_))) - (_%g4586045965%_ - (lambda (_%g4586245883%_) - (if (gx#stx-pair? _%g4586245883%_) - (let ((_%e4586745886%_ (gx#syntax-e _%g4586245883%_))) - (let ((_%hd4586645890%_ + _%g4568745700%_))) + (_%g4568545790%_ + (lambda (_%g4568745708%_) + (if (gx#stx-pair? _%g4568745708%_) + (let ((_%e4569245711%_ (gx#syntax-e _%g4568745708%_))) + (let ((_%hd4569145715%_ (let () (declare (not safe)) - (##car _%e4586745886%_))) - (_%tl4586545893%_ + (##car _%e4569245711%_))) + (_%tl4569045718%_ (let () (declare (not safe)) - (##cdr _%e4586745886%_)))) - (if (gx#stx-pair? _%tl4586545893%_) - (let ((_%e4587045896%_ - (gx#syntax-e _%tl4586545893%_))) - (let ((_%hd4586945900%_ + (##cdr _%e4569245711%_)))) + (if (gx#stx-pair? _%tl4569045718%_) + (let ((_%e4569545721%_ + (gx#syntax-e _%tl4569045718%_))) + (let ((_%hd4569445725%_ (let () (declare (not safe)) - (##car _%e4587045896%_))) - (_%tl4586845903%_ + (##car _%e4569545721%_))) + (_%tl4569345728%_ (let () (declare (not safe)) - (##cdr _%e4587045896%_)))) - (if (gx#stx-pair? _%tl4586845903%_) - (let ((_%e4587345906%_ - (gx#syntax-e _%tl4586845903%_))) - (let ((_%hd4587245910%_ + (##cdr _%e4569545721%_)))) + (if (gx#stx-pair? _%tl4569345728%_) + (let ((_%e4569845731%_ + (gx#syntax-e _%tl4569345728%_))) + (let ((_%hd4569745735%_ (let () (declare (not safe)) - (##car _%e4587345906%_))) - (_%tl4587145913%_ + (##car _%e4569845731%_))) + (_%tl4569645738%_ (let () (declare (not safe)) - (##cdr _%e4587345906%_)))) - (if (gx#stx-null? _%tl4587145913%_) - ((lambda (_%L45916%_ _%L45918%_) + (##cdr _%e4569845731%_)))) + (if (gx#stx-null? _%tl4569645738%_) + ((lambda (_%L45741%_ _%L45743%_) (if (gx#identifier? - _%L45916%_) - (let* ((_%g4593445942%_ - (lambda (_%g4593545938%_) + _%L45741%_) + (let* ((_%g4575945767%_ + (lambda (_%g4576045763%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4593545938%_))) - (_%g4593345961%_ - (lambda (_%g4593545946%_) - ((lambda (_%L45949%_) + _%g4576045763%_))) + (_%g4575845786%_ + (lambda (_%g4576045771%_) + ((lambda (_%L45774%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (cons (gx#datum->syntax '#f 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45949%_ '())) - (cons _%L45918%_ '()))))) - _%g4593545946%_)))) - (_%g4593345961%_ + (cons (gx#datum->syntax '#f 'begin-annotation) + (cons (cons (gx#datum->syntax '#f '@type) + (cons _%L45774%_ '())) + (cons _%L45743%_ '())))) + _%g4576045771%_)))) + (_%g4575845786%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx45858%_ - _%L45916%_)))) + _%stx45683%_ + _%L45741%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4586145879%_ - _%g4586245883%_))) - _%hd4587245910%_ - _%hd4586945900%_) - (_%g4586145879%_ - _%g4586245883%_)))) - (_%g4586145879%_ _%g4586245883%_)))) - (_%g4586145879%_ _%g4586245883%_)))) - (_%g4586145879%_ _%g4586245883%_))))) - (_%g4586045965%_ _%stx45858%_)))) + (_%g4568645704%_ + _%g4568745708%_))) + _%hd4569745735%_ + _%hd4569445725%_) + (_%g4568645704%_ + _%g4568745708%_)))) + (_%g4568645704%_ _%g4568745708%_)))) + (_%g4568645704%_ _%g4568745708%_)))) + (_%g4568645704%_ _%g4568745708%_))))) + (_%g4568545790%_ _%stx45683%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:~| - (lambda (_%$stx45969%_) - (let* ((_%__stx7557675577%_ _%$stx45969%_) - (_%g4597446010%_ + (lambda (_%$stx45794%_) + (let* ((_%__stx7540175402%_ _%$stx45794%_) + (_%g4579945835%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7557675577%_)))) - (let ((_%__kont7557975580%_ - (lambda (_%L46128%_ _%L46130%_) + _%__stx7540175402%_)))) + (let ((_%__kont7540475405%_ + (lambda (_%L45953%_ _%L45955%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L46130%_ '())) + (cons _%L45955%_ '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L46128%_ + (cons (cons _%L45953%_ (cons (gx#datum->syntax '#f 'val) @@ -712,431 +705,425 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'contract-violation!) - (cons _%L46130%_ - (cons _%L46128%_ + (cons _%L45955%_ + (cons _%L45953%_ (cons (gx#datum->syntax '#f 'val) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7558175582%_ - (lambda (_%L46067%_ _%L46069%_ _%L46070%_) + (_%__kont7540675407%_ + (lambda (_%L45892%_ _%L45894%_ _%L45895%_) (cons (gx#datum->syntax '#f ':-) (cons (cons (gx#datum->syntax '#f ':~) - (cons _%L46070%_ (cons _%L46069%_ '()))) - (cons _%L46067%_ '())))))) - (if (gx#stx-pair? _%__stx7557675577%_) - (let ((_%e4598046098%_ (gx#syntax-e _%__stx7557675577%_))) - (let ((_%tl4597846105%_ - (let () (declare (not safe)) (##cdr _%e4598046098%_))) - (_%hd4597946102%_ + (cons _%L45895%_ (cons _%L45894%_ '()))) + (cons _%L45892%_ '())))))) + (if (gx#stx-pair? _%__stx7540175402%_) + (let ((_%e4580545923%_ (gx#syntax-e _%__stx7540175402%_))) + (let ((_%tl4580345930%_ + (let () (declare (not safe)) (##cdr _%e4580545923%_))) + (_%hd4580445927%_ (let () (declare (not safe)) - (##car _%e4598046098%_)))) - (if (gx#stx-pair? _%tl4597846105%_) - (let ((_%e4598346108%_ (gx#syntax-e _%tl4597846105%_))) - (let ((_%tl4598146115%_ + (##car _%e4580545923%_)))) + (if (gx#stx-pair? _%tl4580345930%_) + (let ((_%e4580845933%_ (gx#syntax-e _%tl4580345930%_))) + (let ((_%tl4580645940%_ (let () (declare (not safe)) - (##cdr _%e4598346108%_))) - (_%hd4598246112%_ + (##cdr _%e4580845933%_))) + (_%hd4580745937%_ (let () (declare (not safe)) - (##car _%e4598346108%_)))) - (if (gx#stx-pair? _%tl4598146115%_) - (let ((_%e4598646118%_ - (gx#syntax-e _%tl4598146115%_))) - (let ((_%tl4598446125%_ + (##car _%e4580845933%_)))) + (if (gx#stx-pair? _%tl4580645940%_) + (let ((_%e4581145943%_ + (gx#syntax-e _%tl4580645940%_))) + (let ((_%tl4580945950%_ (let () (declare (not safe)) - (##cdr _%e4598646118%_))) - (_%hd4598546122%_ + (##cdr _%e4581145943%_))) + (_%hd4581045947%_ (let () (declare (not safe)) - (##car _%e4598646118%_)))) - (if (gx#stx-null? _%tl4598446125%_) - (_%__kont7557975580%_ - _%hd4598546122%_ - _%hd4598246112%_) - (if (gx#stx-pair? _%tl4598446125%_) - (let ((_%e4600146047%_ + (##car _%e4581145943%_)))) + (if (gx#stx-null? _%tl4580945950%_) + (_%__kont7540475405%_ + _%hd4581045947%_ + _%hd4580745937%_) + (if (gx#stx-pair? _%tl4580945950%_) + (let ((_%e4582645872%_ (gx#syntax-e - _%tl4598446125%_))) - (let ((_%tl4599946054%_ + _%tl4580945950%_))) + (let ((_%tl4582445879%_ (let () (declare (not safe)) - (##cdr _%e4600146047%_))) - (_%hd4600046051%_ + (##cdr _%e4582645872%_))) + (_%hd4582545876%_ (let () (declare (not safe)) - (##car _%e4600146047%_)))) + (##car _%e4582645872%_)))) (if (gx#identifier? - _%hd4600046051%_) + _%hd4582545876%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypeCast[1]#_g80678_| - _%hd4600046051%_) + |gerbil/core/contract~TypeCast[1]#_g80494_| + _%hd4582545876%_) (if (gx#stx-pair? - _%tl4599946054%_) - (let ((_%e4600446057%_ + _%tl4582445879%_) + (let ((_%e4582945882%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4599946054%_))) - (let ((_%tl4600246064%_ + (gx#syntax-e _%tl4582445879%_))) + (let ((_%tl4582745889%_ (let () (declare (not safe)) - (##cdr _%e4600446057%_))) - (_%hd4600346061%_ + (##cdr _%e4582945882%_))) + (_%hd4582845886%_ (let () (declare (not safe)) - (##car _%e4600446057%_)))) - (if (gx#stx-null? _%tl4600246064%_) - (_%__kont7558175582%_ - _%hd4600346061%_ - _%hd4598546122%_ - _%hd4598246112%_) - (let () (declare (not safe)) (_%g4597446010%_))))) - (let () (declare (not safe)) (_%g4597446010%_))) - (let () (declare (not safe)) (_%g4597446010%_))) + (##car _%e4582945882%_)))) + (if (gx#stx-null? _%tl4582745889%_) + (_%__kont7540675407%_ + _%hd4582845886%_ + _%hd4581045947%_ + _%hd4580745937%_) + (let () (declare (not safe)) (_%g4579945835%_))))) + (let () (declare (not safe)) (_%g4579945835%_))) + (let () (declare (not safe)) (_%g4579945835%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4597446010%_))))) + (_%g4579945835%_))))) (let () (declare (not safe)) - (_%g4597446010%_)))))) + (_%g4579945835%_)))))) (let () (declare (not safe)) - (_%g4597446010%_))))) - (let () (declare (not safe)) (_%g4597446010%_))))) - (let () (declare (not safe)) (_%g4597446010%_))))))) + (_%g4579945835%_))))) + (let () (declare (not safe)) (_%g4579945835%_))))) + (let () (declare (not safe)) (_%g4579945835%_))))))) (define |gerbil/core/contract~TypeCast[:0:]#::-| - (lambda (_%$stx46149%_) - (let ((_%g4615246159%_ - (lambda (_%g4615346155%_) + (lambda (_%$stx45974%_) + (let ((_%g4597745984%_ + (lambda (_%g4597845980%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4615346155%_)))) - (_%g4615246159%_ _%$stx46149%_)))) + _%g4597845980%_)))) + (_%g4597745984%_ _%$stx45974%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:=| - (lambda (_%$stx46163%_) - (let ((_%g4616646173%_ - (lambda (_%g4616746169%_) + (lambda (_%$stx45988%_) + (let ((_%g4599145998%_ + (lambda (_%g4599245994%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4616746169%_)))) - (_%g4616646173%_ _%$stx46163%_)))) + _%g4599245994%_)))) + (_%g4599145998%_ _%$stx45988%_)))) (define |gerbil/core/contract~TypeCast[:0:]#check-nil!| - (lambda (_%$stx46177%_) - (let* ((_%g4618146195%_ - (lambda (_%g4618246191%_) + (lambda (_%$stx46002%_) + (let* ((_%g4600646020%_ + (lambda (_%g4600746016%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4618246191%_))) - (_%g4618046236%_ - (lambda (_%g4618246199%_) - (if (gx#stx-pair? _%g4618246199%_) - (let ((_%e4618646202%_ (gx#syntax-e _%g4618246199%_))) - (let ((_%hd4618546206%_ + _%g4600746016%_))) + (_%g4600546061%_ + (lambda (_%g4600746024%_) + (if (gx#stx-pair? _%g4600746024%_) + (let ((_%e4601146027%_ (gx#syntax-e _%g4600746024%_))) + (let ((_%hd4601046031%_ (let () (declare (not safe)) - (##car _%e4618646202%_))) - (_%tl4618446209%_ + (##car _%e4601146027%_))) + (_%tl4600946034%_ (let () (declare (not safe)) - (##cdr _%e4618646202%_)))) - (if (gx#stx-pair? _%tl4618446209%_) - (let ((_%e4618946212%_ - (gx#syntax-e _%tl4618446209%_))) - (let ((_%hd4618846216%_ + (##cdr _%e4601146027%_)))) + (if (gx#stx-pair? _%tl4600946034%_) + (let ((_%e4601446037%_ + (gx#syntax-e _%tl4600946034%_))) + (let ((_%hd4601346041%_ (let () (declare (not safe)) - (##car _%e4618946212%_))) - (_%tl4618746219%_ + (##car _%e4601446037%_))) + (_%tl4601246044%_ (let () (declare (not safe)) - (##cdr _%e4618946212%_)))) - (if (gx#stx-null? _%tl4618746219%_) - ((lambda (_%L46222%_) + (##cdr _%e4601446037%_)))) + (if (gx#stx-null? _%tl4601246044%_) + ((lambda (_%L46047%_) (cons (gx#datum->syntax '#f 'or) - (cons _%L46222%_ + (cons _%L46047%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'nil-dereference!) - (cons _%L46222%_ '())) + (cons _%L46047%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4618846216%_) - (_%g4618146195%_ _%g4618246199%_)))) - (_%g4618146195%_ _%g4618246199%_)))) - (_%g4618146195%_ _%g4618246199%_))))) - (_%g4618046236%_ _%$stx46177%_)))) + _%hd4601346041%_) + (_%g4600646020%_ _%g4600746024%_)))) + (_%g4600646020%_ _%g4600746024%_)))) + (_%g4600646020%_ _%g4600746024%_))))) + (_%g4600546061%_ _%$stx46002%_)))) (define |gerbil/core/contract~TypeCast[:0:]#contract-violation!| - (lambda (_%stx46240%_) - (let* ((_%g4624346266%_ - (lambda (_%g4624446262%_) + (lambda (_%stx46065%_) + (let* ((_%g4606846091%_ + (lambda (_%g4606946087%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4624446262%_))) - (_%g4624246390%_ - (lambda (_%g4624446270%_) - (if (gx#stx-pair? _%g4624446270%_) - (let ((_%e4625146273%_ (gx#syntax-e _%g4624446270%_))) - (let ((_%hd4625046277%_ + _%g4606946087%_))) + (_%g4606746215%_ + (lambda (_%g4606946095%_) + (if (gx#stx-pair? _%g4606946095%_) + (let ((_%e4607646098%_ (gx#syntax-e _%g4606946095%_))) + (let ((_%hd4607546102%_ (let () (declare (not safe)) - (##car _%e4625146273%_))) - (_%tl4624946280%_ + (##car _%e4607646098%_))) + (_%tl4607446105%_ (let () (declare (not safe)) - (##cdr _%e4625146273%_)))) - (if (gx#stx-pair? _%tl4624946280%_) - (let ((_%e4625446283%_ - (gx#syntax-e _%tl4624946280%_))) - (let ((_%hd4625346287%_ + (##cdr _%e4607646098%_)))) + (if (gx#stx-pair? _%tl4607446105%_) + (let ((_%e4607946108%_ + (gx#syntax-e _%tl4607446105%_))) + (let ((_%hd4607846112%_ (let () (declare (not safe)) - (##car _%e4625446283%_))) - (_%tl4625246290%_ + (##car _%e4607946108%_))) + (_%tl4607746115%_ (let () (declare (not safe)) - (##cdr _%e4625446283%_)))) - (if (gx#stx-pair? _%tl4625246290%_) - (let ((_%e4625746293%_ - (gx#syntax-e _%tl4625246290%_))) - (let ((_%hd4625646297%_ + (##cdr _%e4607946108%_)))) + (if (gx#stx-pair? _%tl4607746115%_) + (let ((_%e4608246118%_ + (gx#syntax-e _%tl4607746115%_))) + (let ((_%hd4608146122%_ (let () (declare (not safe)) - (##car _%e4625746293%_))) - (_%tl4625546300%_ + (##car _%e4608246118%_))) + (_%tl4608046125%_ (let () (declare (not safe)) - (##cdr _%e4625746293%_)))) - (if (gx#stx-pair? _%tl4625546300%_) - (let ((_%e4626046303%_ + (##cdr _%e4608246118%_)))) + (if (gx#stx-pair? _%tl4608046125%_) + (let ((_%e4608546128%_ (gx#syntax-e - _%tl4625546300%_))) - (let ((_%hd4625946307%_ + _%tl4608046125%_))) + (let ((_%hd4608446132%_ (let () (declare (not safe)) - (##car _%e4626046303%_))) - (_%tl4625846310%_ + (##car _%e4608546128%_))) + (_%tl4608346135%_ (let () (declare (not safe)) - (##cdr _%e4626046303%_)))) + (##cdr _%e4608546128%_)))) (if (gx#stx-null? - _%tl4625846310%_) - ((lambda (_%L46313%_ - _%L46315%_ - _%L46316%_ - _%L46317%_) - (let* ((_%g4633746345%_ + _%tl4608346135%_) + ((lambda (_%L46138%_ + _%L46140%_ + _%L46141%_ + _%L46142%_) + (let* ((_%g4616246170%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4633846341%_) + (lambda (_%g4616346166%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4633846341%_))) - (_%g4633646364%_ - (lambda (_%g4633846349%_) - ((lambda (_%L46352%_) - (let () - (cons (gx#datum->syntax '#f 'abort!) - (cons (cons (gx#datum->syntax - '#f - 'raise-contract-violation-error) - (cons '"contract violation" - (cons 'context: - (cons (cons (gx#datum->syntax + _%g4616346166%_))) + (_%g4616146189%_ + (lambda (_%g4616346174%_) + ((lambda (_%L46177%_) + (cons (gx#datum->syntax '#f 'abort!) + (cons (cons (gx#datum->syntax + '#f + 'raise-contract-violation-error) + (cons '"contract violation" + (cons 'context: + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L46352%_ '())) - (cons 'contract: - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L46315%_ '())) - (cons 'value: - (cons _%L46313%_ '())))))))) + '#f + 'quote) + (cons _%L46177%_ '())) + (cons 'contract: + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L46140%_ '())) + (cons 'value: + (cons _%L46138%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - _%g4633846349%_)))) - (_%g4633646364%_ - (let ((_%$e46376%_ - (let ((_%$e46368%_ (gx#stx-source _%L46316%_))) - (if _%$e46368%_ - _%$e46368%_ - (let ((_%$e46372%_ - (gx#stx-source _%stx46240%_))) - (if _%$e46372%_ - _%$e46372%_ - (gx#stx-source _%L46317%_))))))) - (if _%$e46376%_ - ((lambda (_%locat46380%_) + '()))) + _%g4616346174%_)))) + (_%g4616146189%_ + (let ((_%$e46201%_ + (let ((_%$e46193%_ (gx#stx-source _%L46141%_))) + (if _%$e46193%_ + _%$e46193%_ + (let ((_%$e46197%_ + (gx#stx-source _%stx46065%_))) + (if _%$e46197%_ + _%$e46197%_ + (gx#stx-source _%L46142%_))))))) + (if _%$e46201%_ + ((lambda (_%locat46205%_) (call-with-output-string '"" - (lambda (_%g4638246384%_) + (lambda (_%g4620746209%_) (let () (declare (not safe)) (##display-locat - _%locat46380%_ + _%locat46205%_ '#t - _%g4638246384%_))))) - _%$e46376%_) - (let () - (gx#expander-context-id - (gx#core-context-top)))))))) - _%hd4625946307%_ - _%hd4625646297%_ - _%hd4625346287%_ - _%hd4625046277%_) - (_%g4624346266%_ _%g4624446270%_)))) + _%g4620746209%_))))) + _%$e46201%_) + (gx#expander-context-id (gx#core-context-top))))))) + _%hd4608446132%_ + _%hd4608146122%_ + _%hd4607846112%_ + _%hd4607546102%_) + (_%g4606846091%_ _%g4606946095%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4624346266%_ - _%g4624446270%_)))) - (_%g4624346266%_ _%g4624446270%_)))) - (_%g4624346266%_ _%g4624446270%_)))) - (_%g4624346266%_ _%g4624446270%_))))) - (_%g4624246390%_ _%stx46240%_)))) + (_%g4606846091%_ + _%g4606946095%_)))) + (_%g4606846091%_ _%g4606946095%_)))) + (_%g4606846091%_ _%g4606946095%_)))) + (_%g4606846091%_ _%g4606946095%_))))) + (_%g4606746215%_ _%stx46065%_)))) (define |gerbil/core/contract~TypeCast[:0:]#nil-dereference!| - (lambda (_%stx46394%_) - (let* ((_%g4639746412%_ - (lambda (_%g4639846408%_) + (lambda (_%stx46219%_) + (let* ((_%g4622246237%_ + (lambda (_%g4622346233%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4639846408%_))) - (_%g4639646508%_ - (lambda (_%g4639846416%_) - (if (gx#stx-pair? _%g4639846416%_) - (let ((_%e4640346419%_ (gx#syntax-e _%g4639846416%_))) - (let ((_%hd4640246423%_ + _%g4622346233%_))) + (_%g4622146333%_ + (lambda (_%g4622346241%_) + (if (gx#stx-pair? _%g4622346241%_) + (let ((_%e4622846244%_ (gx#syntax-e _%g4622346241%_))) + (let ((_%hd4622746248%_ (let () (declare (not safe)) - (##car _%e4640346419%_))) - (_%tl4640146426%_ + (##car _%e4622846244%_))) + (_%tl4622646251%_ (let () (declare (not safe)) - (##cdr _%e4640346419%_)))) - (if (gx#stx-pair? _%tl4640146426%_) - (let ((_%e4640646429%_ - (gx#syntax-e _%tl4640146426%_))) - (let ((_%hd4640546433%_ + (##cdr _%e4622846244%_)))) + (if (gx#stx-pair? _%tl4622646251%_) + (let ((_%e4623146254%_ + (gx#syntax-e _%tl4622646251%_))) + (let ((_%hd4623046258%_ (let () (declare (not safe)) - (##car _%e4640646429%_))) - (_%tl4640446436%_ + (##car _%e4623146254%_))) + (_%tl4622946261%_ (let () (declare (not safe)) - (##cdr _%e4640646429%_)))) - (if (gx#stx-null? _%tl4640446436%_) - ((lambda (_%L46439%_ _%L46441%_) - (let* ((_%g4645546463%_ - (lambda (_%g4645646459%_) + (##cdr _%e4623146254%_)))) + (if (gx#stx-null? _%tl4622946261%_) + ((lambda (_%L46264%_ _%L46266%_) + (let* ((_%g4628046288%_ + (lambda (_%g4628146284%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4645646459%_))) - (_%g4645446482%_ - (lambda (_%g4645646467%_) - ((lambda (_%L46470%_) - (let () - (cons (gx#datum->syntax - '#f - 'abort!) - (cons (cons (gx#datum->syntax + _%g4628146284%_))) + (_%g4627946307%_ + (lambda (_%g4628146292%_) + ((lambda (_%L46295%_) + (cons (gx#datum->syntax + '#f + 'abort!) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'raise-contract-violation-error) - (cons '"nil (#f) derefence" - (cons 'context: - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L46470%_ - '())) - (cons 'contract: - (cons (cons (gx#datum->syntax + '#f + 'raise-contract-violation-error) + (cons '"nil (#f) derefence" + (cons 'context: + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%L46295%_ '())) + (cons 'contract: + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L46439%_ '())) - '())) - (cons 'value: (cons '#f '())))))))) + '#f + 'quote) + (cons (cons (gx#datum->syntax '#f 'check-nil!) + (cons _%L46264%_ '())) + '())) + (cons 'value: (cons '#f '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g4645646467%_)))) - (_%g4645446482%_ - (let ((_%$e46494%_ - (let ((_%$e46486%_ + _%g4628146292%_)))) + (_%g4627946307%_ + (let ((_%$e46319%_ + (let ((_%$e46311%_ (gx#stx-source - _%L46439%_))) - (if _%$e46486%_ - _%$e46486%_ - (let ((_%$e46490%_ + _%L46264%_))) + (if _%$e46311%_ + _%$e46311%_ + (let ((_%$e46315%_ (gx#stx-source ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%stx46394%_))) - (if _%$e46490%_ _%$e46490%_ (gx#stx-source _%L46441%_))))))) + _%stx46219%_))) + (if _%$e46315%_ _%$e46315%_ (gx#stx-source _%L46266%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e46494%_ - ((lambda (_%locat46498%_) + (if _%$e46319%_ + ((lambda (_%locat46323%_) (call-with-output-string '"" - (lambda (_%g4650046502%_) + (lambda (_%g4632546327%_) (let () (declare (not safe)) (##display-locat - _%locat46498%_ + _%locat46323%_ '#t - _%g4650046502%_))))) - _%$e46494%_) - (let () - (gx#expander-context-id - (gx#core-context-top)))))))) - _%hd4640546433%_ - _%hd4640246423%_) - (_%g4639746412%_ _%g4639846416%_)))) - (_%g4639746412%_ _%g4639846416%_)))) - (_%g4639746412%_ _%g4639846416%_))))) - (_%g4639646508%_ _%stx46394%_)))) + _%g4632546327%_))))) + _%$e46319%_) + (gx#expander-context-id + (gx#core-context-top))))))) + _%hd4623046258%_ + _%hd4622746248%_) + (_%g4622246237%_ _%g4622346241%_)))) + (_%g4622246237%_ _%g4622346241%_)))) + (_%g4622246237%_ _%g4622346241%_))))) + (_%g4622146333%_ _%stx46219%_)))) (define |gerbil/core/contract~TypeCast[:0:]#abort!| - (lambda (_%$stx46512%_) - (let* ((_%g4651646530%_ - (lambda (_%g4651746526%_) + (lambda (_%$stx46337%_) + (let* ((_%g4634146355%_ + (lambda (_%g4634246351%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4651746526%_))) - (_%g4651546571%_ - (lambda (_%g4651746534%_) - (if (gx#stx-pair? _%g4651746534%_) - (let ((_%e4652146537%_ (gx#syntax-e _%g4651746534%_))) - (let ((_%hd4652046541%_ + _%g4634246351%_))) + (_%g4634046396%_ + (lambda (_%g4634246359%_) + (if (gx#stx-pair? _%g4634246359%_) + (let ((_%e4634646362%_ (gx#syntax-e _%g4634246359%_))) + (let ((_%hd4634546366%_ (let () (declare (not safe)) - (##car _%e4652146537%_))) - (_%tl4651946544%_ + (##car _%e4634646362%_))) + (_%tl4634446369%_ (let () (declare (not safe)) - (##cdr _%e4652146537%_)))) - (if (gx#stx-pair? _%tl4651946544%_) - (let ((_%e4652446547%_ - (gx#syntax-e _%tl4651946544%_))) - (let ((_%hd4652346551%_ + (##cdr _%e4634646362%_)))) + (if (gx#stx-pair? _%tl4634446369%_) + (let ((_%e4634946372%_ + (gx#syntax-e _%tl4634446369%_))) + (let ((_%hd4634846376%_ (let () (declare (not safe)) - (##car _%e4652446547%_))) - (_%tl4652246554%_ + (##car _%e4634946372%_))) + (_%tl4634746379%_ (let () (declare (not safe)) - (##cdr _%e4652446547%_)))) - (if (gx#stx-null? _%tl4652246554%_) - ((lambda (_%L46557%_) + (##cdr _%e4634946372%_)))) + (if (gx#stx-null? _%tl4634746379%_) + ((lambda (_%L46382%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -1148,13 +1135,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - (cons _%L46557%_ + (cons _%L46382%_ (cons (cons (gx#datum->syntax '#f 'void) '()) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4652346551%_) - (_%g4651646530%_ _%g4651746534%_)))) - (_%g4651646530%_ _%g4651746534%_)))) - (_%g4651646530%_ _%g4651746534%_))))) - (_%g4651546571%_ _%$stx46512%_)))))) + _%hd4634846376%_) + (_%g4634146355%_ _%g4634246359%_)))) + (_%g4634146355%_ _%g4634246359%_)))) + (_%g4634146355%_ _%g4634246359%_))))) + (_%g4634046396%_ _%$stx46337%_)))))) diff --git a/src/bootstrap/gerbil/core/contract~5.scm b/src/bootstrap/gerbil/core/contract~5.scm index f125c734d..3bcaad627 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]#_g80680_| + (define |gerbil/core/contract~TypeEnv[1]#_g80496_| (##structure gx#syntax-quote::t 'type-env::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80682_| + (define |gerbil/core/contract~TypeEnv[1]#_g80498_| (##structure gx#syntax-quote::t 'make-type-env #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80684_| + (define |gerbil/core/contract~TypeEnv[1]#_g80500_| (##structure gx#syntax-quote::t 'type-env? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80686_| + (define |gerbil/core/contract~TypeEnv[1]#_g80502_| (##structure gx#syntax-quote::t 'type-env-var #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80687_| + (define |gerbil/core/contract~TypeEnv[1]#_g80503_| (##structure gx#syntax-quote::t 'type-env-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80688_| + (define |gerbil/core/contract~TypeEnv[1]#_g80504_| (##structure gx#syntax-quote::t 'type-env-checked? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80689_| + (define |gerbil/core/contract~TypeEnv[1]#_g80505_| (##structure gx#syntax-quote::t 'type-env-super #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80691_| + (define |gerbil/core/contract~TypeEnv[1]#_g80507_| (##structure gx#syntax-quote::t 'type-env-var-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80692_| + (define |gerbil/core/contract~TypeEnv[1]#_g80508_| (##structure gx#syntax-quote::t 'type-env-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80693_| + (define |gerbil/core/contract~TypeEnv[1]#_g80509_| (##structure gx#syntax-quote::t 'type-env-checked?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80694_| + (define |gerbil/core/contract~TypeEnv[1]#_g80510_| (##structure gx#syntax-quote::t 'type-env-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80696_| + (define |gerbil/core/contract~TypeEnv[1]#_g80512_| (##structure gx#syntax-quote::t '&type-env-var #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80697_| + (define |gerbil/core/contract~TypeEnv[1]#_g80513_| (##structure gx#syntax-quote::t '&type-env-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80698_| + (define |gerbil/core/contract~TypeEnv[1]#_g80514_| (##structure gx#syntax-quote::t '&type-env-checked? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80699_| + (define |gerbil/core/contract~TypeEnv[1]#_g80515_| (##structure gx#syntax-quote::t '&type-env-super #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80701_| + (define |gerbil/core/contract~TypeEnv[1]#_g80517_| (##structure gx#syntax-quote::t '&type-env-var-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80702_| + (define |gerbil/core/contract~TypeEnv[1]#_g80518_| (##structure gx#syntax-quote::t '&type-env-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80703_| + (define |gerbil/core/contract~TypeEnv[1]#_g80519_| (##structure gx#syntax-quote::t '&type-env-checked?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g80704_| + (define |gerbil/core/contract~TypeEnv[1]#_g80520_| (##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 ((__obj80537 + (let ((__obj80362 (let () (declare (not safe)) (##structure @@ -163,88 +163,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80537 + __obj80362 'gerbil/core/contract~TypeEnv#type-env::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj80537 'type-env '2 '#f '#f)) + (##unchecked-structure-set! __obj80362 'type-env '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj80537 + __obj80362 '(var type checked? super) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj80537 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj80362 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj80537 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj80362 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj80537 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj80362 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj80537 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj80362 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj80537 '#f '11 '#f '#f)) - (let ((__tmp80679 |gerbil/core/contract~TypeEnv[1]#_g80680_|)) + (##unchecked-structure-set! __obj80362 '#f '11 '#f '#f)) + (let ((__tmp80495 |gerbil/core/contract~TypeEnv[1]#_g80496_|)) (declare (not safe)) - (##unchecked-structure-set! __obj80537 __tmp80679 '12 '#f '#f)) - (let ((__tmp80681 |gerbil/core/contract~TypeEnv[1]#_g80682_|)) + (##unchecked-structure-set! __obj80362 __tmp80495 '12 '#f '#f)) + (let ((__tmp80497 |gerbil/core/contract~TypeEnv[1]#_g80498_|)) (declare (not safe)) - (##unchecked-structure-set! __obj80537 __tmp80681 '13 '#f '#f)) - (let ((__tmp80683 |gerbil/core/contract~TypeEnv[1]#_g80684_|)) + (##unchecked-structure-set! __obj80362 __tmp80497 '13 '#f '#f)) + (let ((__tmp80499 |gerbil/core/contract~TypeEnv[1]#_g80500_|)) (declare (not safe)) - (##unchecked-structure-set! __obj80537 __tmp80683 '14 '#f '#f)) - (let ((__tmp80685 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g80686_|) + (##unchecked-structure-set! __obj80362 __tmp80499 '14 '#f '#f)) + (let ((__tmp80501 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g80502_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g80687_|) + |gerbil/core/contract~TypeEnv[1]#_g80503_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g80688_|) + |gerbil/core/contract~TypeEnv[1]#_g80504_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g80689_|) + |gerbil/core/contract~TypeEnv[1]#_g80505_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj80537 __tmp80685 '15 '#f '#f)) - (let ((__tmp80690 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g80691_|) + (##unchecked-structure-set! __obj80362 __tmp80501 '15 '#f '#f)) + (let ((__tmp80506 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g80507_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g80692_|) + |gerbil/core/contract~TypeEnv[1]#_g80508_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g80693_|) + |gerbil/core/contract~TypeEnv[1]#_g80509_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g80694_|) + |gerbil/core/contract~TypeEnv[1]#_g80510_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj80537 __tmp80690 '16 '#f '#f)) - (let ((__tmp80695 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g80696_|) + (##unchecked-structure-set! __obj80362 __tmp80506 '16 '#f '#f)) + (let ((__tmp80511 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g80512_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g80697_|) + |gerbil/core/contract~TypeEnv[1]#_g80513_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g80698_|) + |gerbil/core/contract~TypeEnv[1]#_g80514_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g80699_|) + |gerbil/core/contract~TypeEnv[1]#_g80515_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj80537 __tmp80695 '17 '#f '#f)) - (let ((__tmp80700 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g80701_|) + (##unchecked-structure-set! __obj80362 __tmp80511 '17 '#f '#f)) + (let ((__tmp80516 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g80517_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g80702_|) + |gerbil/core/contract~TypeEnv[1]#_g80518_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g80703_|) + |gerbil/core/contract~TypeEnv[1]#_g80519_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g80704_|) + |gerbil/core/contract~TypeEnv[1]#_g80520_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj80537 __tmp80700 '18 '#f '#f)) - __obj80537))) + (##unchecked-structure-set! __obj80362 __tmp80516 '18 '#f '#f)) + __obj80362))) diff --git a/src/bootstrap/gerbil/core/contract~6.scm b/src/bootstrap/gerbil/core/contract~6.scm index 9aa8d393b..0dc67bc6a 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]#_g80705_| + (define |gerbil/core/contract~Using[1]#_g80521_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g80706_| + (define |gerbil/core/contract~Using[1]#_g80522_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g80707_| + (define |gerbil/core/contract~Using[1]#_g80523_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g80712_| + (define |gerbil/core/contract~Using[1]#_g80526_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g80714_| + (define |gerbil/core/contract~Using[1]#_g80527_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g80718_| + (define |gerbil/core/contract~Using[1]#_g80530_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g80719_| + (define |gerbil/core/contract~Using[1]#_g80531_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g80720_| + (define |gerbil/core/contract~Using[1]#_g80532_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g80721_| + (define |gerbil/core/contract~Using[1]#_g80533_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g80724_| + (define |gerbil/core/contract~Using[1]#_g80536_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g80725_| + (define |gerbil/core/contract~Using[1]#_g80537_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g80726_| + (define |gerbil/core/contract~Using[1]#_g80538_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g80727_| + (define |gerbil/core/contract~Using[1]#_g80539_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g80730_| + (define |gerbil/core/contract~Using[1]#_g80542_| (##structure gx#syntax-quote::t '%%ref-dotted @@ -35,8682 +35,8573 @@ '())) (begin (define |gerbil/core/contract~Using[:0:]#using| - (lambda (_%stx46590%_) - (let* ((_%__stx7564275643%_ _%stx46590%_) - (_%g4659946808%_ + (lambda (_%stx46415%_) + (let* ((_%__stx7546775468%_ _%stx46415%_) + (_%g4642446633%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7564275643%_)))) - (let ((_%__kont7564575646%_ - (lambda (_%L47714%_ - _%L47716%_ - _%L47717%_ - _%L47718%_ - _%L47719%_) + _%__stx7546775468%_)))) + (let ((_%__kont7547075471%_ + (lambda (_%L47539%_ + _%L47541%_ + _%L47542%_ + _%L47543%_ + _%L47544%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L47719%_ (cons _%L47718%_ '())) + (cons (cons _%L47544%_ (cons _%L47543%_ '())) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47719%_ - (cons _%L47717%_ - (cons _%L47716%_ + (cons (cons _%L47544%_ + (cons _%L47542%_ + (cons _%L47541%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g4776247765%_ + (foldr (lambda (_%g4758747590%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4776347768%_) - (cons _%g4776247765%_ _%g4776347768%_)) + _%g4758847593%_) + (cons _%g4758747590%_ _%g4758847593%_)) '() - _%L47714%_))) + _%L47539%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7564975650%_ - (lambda (_%L47558%_ - _%L47560%_ - _%L47561%_ - _%L47562%_ - _%L47563%_ - _%L47564%_) + (_%__kont7547475475%_ + (lambda (_%L47383%_ + _%L47385%_ + _%L47386%_ + _%L47387%_ + _%L47388%_ + _%L47389%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L47564%_ (cons _%L47563%_ '())) + (cons (cons _%L47389%_ (cons _%L47388%_ '())) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47564%_ + (cons (cons _%L47389%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L47562%_ + (cons _%L47387%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47564%_ + (cons (cons _%L47389%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L47561%_ (cons _%L47560%_ '()))) - (foldr (lambda (_%g4760847611%_ _%g4760947614%_) - (cons _%g4760847611%_ _%g4760947614%_)) + (cons _%L47386%_ (cons _%L47385%_ '()))) + (foldr (lambda (_%g4743347436%_ _%g4743447439%_) + (cons _%g4743347436%_ _%g4743447439%_)) '() - _%L47558%_))) + _%L47383%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7565375654%_ - (lambda (_%L47375%_ _%L47377%_ _%L47378%_ _%L47379%_) - (let ((_%meta47416%_ + (_%__kont7547875479%_ + (lambda (_%L47200%_ _%L47202%_ _%L47203%_ _%L47204%_) + (let ((_%meta47241%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx46590%_ - _%L47377%_)))) + _%stx46415%_ + _%L47202%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta47416%_)) - (let () - (cons (gx#datum->syntax '#f 'with-interface) - (cons (cons _%L47379%_ - (cons _%L47378%_ - (cons _%L47377%_ '()))) - (foldr (lambda (_%g4742047423%_ - _%g4742147426%_) - (cons _%g4742047423%_ - _%g4742147426%_)) - '() - _%L47375%_)))) + _%meta47241%_)) + (cons (gx#datum->syntax '#f 'with-interface) + (cons (cons _%L47204%_ + (cons _%L47203%_ + (cons _%L47202%_ '()))) + (foldr (lambda (_%g4724547248%_ + _%g4724647251%_) + (cons _%g4724547248%_ + _%g4724647251%_)) + '() + _%L47200%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta47416%_)) - (let () - (cons (gx#datum->syntax '#f 'with-class) - (cons (cons _%L47379%_ - (cons _%L47378%_ - (cons _%L47377%_ '()))) - (foldr (lambda (_%g4743047433%_ - _%g4743147436%_) - (cons _%g4743047433%_ - _%g4743147436%_)) - '() - _%L47375%_)))) - (let () - (gx#raise-syntax-error - '#f - '"unexpected type; must be a class type or interface" - _%stx46590%_ - _%L47377%_ - _%meta47416%_))))))) - (_%__kont7565775658%_ - (lambda (_%L47253%_ _%L47255%_ _%L47256%_) + _%meta47241%_)) + (cons (gx#datum->syntax '#f 'with-class) + (cons (cons _%L47204%_ + (cons _%L47203%_ + (cons _%L47202%_ '()))) + (foldr (lambda (_%g4725547258%_ + _%g4725647261%_) + (cons _%g4725547258%_ + _%g4725647261%_)) + '() + _%L47200%_))) + (gx#raise-syntax-error + '#f + '"unexpected type; must be a class type or interface" + _%stx46415%_ + _%L47202%_ + _%meta47241%_)))))) + (_%__kont7548275483%_ + (lambda (_%L47078%_ _%L47080%_ _%L47081%_) (cons (gx#datum->syntax '#f 'with-contract) - (cons (cons _%L47256%_ + (cons (cons _%L47081%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L47255%_ '()))) - (foldr (lambda (_%g4727947282%_ _%g4728047285%_) - (cons _%g4727947282%_ _%g4728047285%_)) + (cons _%L47080%_ '()))) + (foldr (lambda (_%g4710447107%_ _%g4710547110%_) + (cons _%g4710447107%_ _%g4710547110%_)) '() - _%L47253%_))))) - (_%__kont7566175662%_ - (lambda (_%L47111%_ - _%L47113%_ - _%L47114%_ - _%L47115%_ - _%L47116%_) + _%L47078%_))))) + (_%__kont7548675487%_ + (lambda (_%L46936%_ + _%L46938%_ + _%L46939%_ + _%L46940%_ + _%L46941%_) (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47116%_ + (cons (cons _%L46941%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L47115%_ '()))) + (cons _%L46940%_ '()))) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47116%_ - (cons _%L47114%_ - (cons _%L47113%_ + (cons (cons _%L46941%_ + (cons _%L46939%_ + (cons _%L46938%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g4715747160%_ + (foldr (lambda (_%g4698246985%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4715847163%_) - (cons _%g4715747160%_ _%g4715847163%_)) + _%g4698346988%_) + (cons _%g4698246985%_ _%g4698346988%_)) '() - _%L47111%_))) + _%L46936%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7566575666%_ - (lambda (_%L46969%_ _%L46971%_ _%L46972%_ _%L46973%_) + (_%__kont7549075491%_ + (lambda (_%L46794%_ _%L46796%_ _%L46797%_ _%L46798%_) (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L46973%_ _%L46972%_) + (cons (cons _%L46798%_ _%L46797%_) (cons (cons (gx#datum->syntax '#f 'using) - (cons _%L46971%_ - (foldr (lambda (_%g4699546998%_ + (cons _%L46796%_ + (foldr (lambda (_%g4682046823%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4699647001%_) - (cons _%g4699546998%_ _%g4699647001%_)) + _%g4682146826%_) + (cons _%g4682046823%_ _%g4682146826%_)) '() - _%L46969%_))) + _%L46794%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7566975670%_ - (lambda (_%L46865%_) + (_%__kont7549475495%_ + (lambda (_%L46690%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4688346886%_ _%g4688446889%_) - (cons _%g4688346886%_ _%g4688446889%_)) + (foldr (lambda (_%g4670846711%_ _%g4670946714%_) + (cons _%g4670846711%_ _%g4670946714%_)) '() - _%L46865%_)))))) - (let* ((_%__match7597575976%_ - (lambda (_%e4679046815%_ - _%hd4678946819%_ - _%tl4678846822%_ - _%e4679346825%_ - _%hd4679246829%_ - _%tl4679146832%_ - _%__splice7567175672%_ - _%target4679446835%_ - _%tl4679646838%_) - (letrec ((_%loop4679746841%_ - (lambda (_%hd4679546845%_ _%body4680146848%_) - (if (gx#stx-pair? _%hd4679546845%_) - (let ((_%e4679846851%_ - (gx#syntax-e _%hd4679546845%_))) - (let ((_%lp-tl4680046858%_ + _%L46690%_)))))) + (let* ((_%__match7580075801%_ + (lambda (_%e4661546640%_ + _%hd4661446644%_ + _%tl4661346647%_ + _%e4661846650%_ + _%hd4661746654%_ + _%tl4661646657%_ + _%__splice7549675497%_ + _%target4661946660%_ + _%tl4662146663%_) + (letrec ((_%loop4662246666%_ + (lambda (_%hd4662046670%_ _%body4662646673%_) + (if (gx#stx-pair? _%hd4662046670%_) + (let ((_%e4662346676%_ + (gx#syntax-e _%hd4662046670%_))) + (let ((_%lp-tl4662546683%_ (let () (declare (not safe)) - (##cdr _%e4679846851%_))) - (_%lp-hd4679946855%_ + (##cdr _%e4662346676%_))) + (_%lp-hd4662446680%_ (let () (declare (not safe)) - (##car _%e4679846851%_)))) - (_%loop4679746841%_ - _%lp-tl4680046858%_ - (cons _%lp-hd4679946855%_ - _%body4680146848%_)))) - (let ((_%body4680246861%_ - (reverse _%body4680146848%_))) - (_%__kont7566975670%_ - _%body4680246861%_)))))) - (_%loop4679746841%_ _%target4679446835%_ '())))) - (_%__match7595375954%_ - (lambda (_%e4676846899%_ - _%hd4676746903%_ - _%tl4676646906%_ - _%e4677146909%_ - _%hd4677046913%_ - _%tl4676946916%_ - _%e4677446919%_ - _%hd4677346923%_ - _%tl4677246926%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) - (letrec ((_%loop4678146945%_ - (lambda (_%hd4677946949%_ _%body4678546952%_) - (if (gx#stx-pair? _%hd4677946949%_) - (let ((_%e4678246955%_ - (gx#syntax-e _%hd4677946949%_))) - (let ((_%lp-tl4678446962%_ + (##car _%e4662346676%_)))) + (_%loop4662246666%_ + _%lp-tl4662546683%_ + (cons _%lp-hd4662446680%_ + _%body4662646673%_)))) + (let ((_%body4662746686%_ + (reverse _%body4662646673%_))) + (_%__kont7549475495%_ + _%body4662746686%_)))))) + (_%loop4662246666%_ _%target4661946660%_ '())))) + (_%__match7577875779%_ + (lambda (_%e4659346724%_ + _%hd4659246728%_ + _%tl4659146731%_ + _%e4659646734%_ + _%hd4659546738%_ + _%tl4659446741%_ + _%e4659946744%_ + _%hd4659846748%_ + _%tl4659746751%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) + (letrec ((_%loop4660646770%_ + (lambda (_%hd4660446774%_ _%body4661046777%_) + (if (gx#stx-pair? _%hd4660446774%_) + (let ((_%e4660746780%_ + (gx#syntax-e _%hd4660446774%_))) + (let ((_%lp-tl4660946787%_ (let () (declare (not safe)) - (##cdr _%e4678246955%_))) - (_%lp-hd4678346959%_ + (##cdr _%e4660746780%_))) + (_%lp-hd4660846784%_ (let () (declare (not safe)) - (##car _%e4678246955%_)))) - (_%loop4678146945%_ - _%lp-tl4678446962%_ - (cons _%lp-hd4678346959%_ - _%body4678546952%_)))) - (let ((_%body4678646965%_ - (reverse _%body4678546952%_))) - (let ((_%L46969%_ _%body4678646965%_) - (_%L46971%_ _%tl4677246926%_) - (_%L46972%_ _%tl4677546936%_) - (_%L46973%_ _%hd4677646933%_)) - (if (gx#identifier? _%L46973%_) - (_%__kont7566575666%_ - _%L46969%_ - _%L46971%_ - _%L46972%_ - _%L46973%_) + (##car _%e4660746780%_)))) + (_%loop4660646770%_ + _%lp-tl4660946787%_ + (cons _%lp-hd4660846784%_ + _%body4661046777%_)))) + (let ((_%body4661146790%_ + (reverse _%body4661046777%_))) + (let ((_%L46794%_ _%body4661146790%_) + (_%L46796%_ _%tl4659746751%_) + (_%L46797%_ _%tl4660046761%_) + (_%L46798%_ _%hd4660146758%_)) + (if (gx#identifier? _%L46798%_) + (_%__kont7549075491%_ + _%L46794%_ + _%L46796%_ + _%L46797%_ + _%L46798%_) (let () (declare (not safe)) - (_%g4659946808%_))))))))) - (_%loop4678146945%_ _%target4677846939%_ '())))) - (_%__match7593975940%_ - (lambda (_%e4676846899%_ - _%hd4676746903%_ - _%tl4676646906%_ - _%e4677146909%_ - _%hd4677046913%_ - _%tl4676946916%_ - _%e4677446919%_ - _%hd4677346923%_ - _%tl4677246926%_) - (if (gx#stx-pair? _%hd4677346923%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4677346923%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_))))))))) + (_%loop4660646770%_ _%target4660346764%_ '())))) + (_%__match7576475765%_ + (lambda (_%e4659346724%_ + _%hd4659246728%_ + _%tl4659146731%_ + _%e4659646734%_ + _%hd4659546738%_ + _%tl4659446741%_ + _%e4659946744%_ + _%hd4659846748%_ + _%tl4659746751%_) + (if (gx#stx-pair? _%hd4659846748%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4659846748%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4676946916%_) - (let ((_%__splice7566775668%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4659446741%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4676946916%_ + _%tl4659446741%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4676846899%_ - _%hd4676746903%_ - _%tl4676646906%_ - _%e4677146909%_ - _%hd4677046913%_ - _%tl4676946916%_ - _%e4677446919%_ - _%hd4677346923%_ - _%tl4677246926%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4659346724%_ + _%hd4659246728%_ + _%tl4659146731%_ + _%e4659646734%_ + _%hd4659546738%_ + _%tl4659446741%_ + _%e4659946744%_ + _%hd4659846748%_ + _%tl4659746751%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) - (_%__match7592175922%_ - (lambda (_%e4673447011%_ - _%hd4673347015%_ - _%tl4673247018%_ - _%e4673747021%_ - _%hd4673647025%_ - _%tl4673547028%_ - _%e4674047031%_ - _%hd4673947035%_ - _%tl4673847038%_ - _%e4674347041%_ - _%hd4674247045%_ - _%tl4674147048%_ - _%e4674647051%_ - _%hd4674547055%_ - _%tl4674447058%_ - _%e4674947061%_ - _%hd4674847065%_ - _%tl4674747068%_ - _%e4675247071%_ - _%hd4675147075%_ - _%tl4675047078%_ - _%__splice7566375664%_ - _%target4675347081%_ - _%tl4675547084%_) - (letrec ((_%loop4675647087%_ - (lambda (_%hd4675447091%_ _%body4676047094%_) - (if (gx#stx-pair? _%hd4675447091%_) - (let ((_%e4675747097%_ - (gx#syntax-e _%hd4675447091%_))) - (let ((_%lp-tl4675947104%_ + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) + (_%__match7574675747%_ + (lambda (_%e4655946836%_ + _%hd4655846840%_ + _%tl4655746843%_ + _%e4656246846%_ + _%hd4656146850%_ + _%tl4656046853%_ + _%e4656546856%_ + _%hd4656446860%_ + _%tl4656346863%_ + _%e4656846866%_ + _%hd4656746870%_ + _%tl4656646873%_ + _%e4657146876%_ + _%hd4657046880%_ + _%tl4656946883%_ + _%e4657446886%_ + _%hd4657346890%_ + _%tl4657246893%_ + _%e4657746896%_ + _%hd4657646900%_ + _%tl4657546903%_ + _%__splice7548875489%_ + _%target4657846906%_ + _%tl4658046909%_) + (letrec ((_%loop4658146912%_ + (lambda (_%hd4657946916%_ _%body4658546919%_) + (if (gx#stx-pair? _%hd4657946916%_) + (let ((_%e4658246922%_ + (gx#syntax-e _%hd4657946916%_))) + (let ((_%lp-tl4658446929%_ (let () (declare (not safe)) - (##cdr _%e4675747097%_))) - (_%lp-hd4675847101%_ + (##cdr _%e4658246922%_))) + (_%lp-hd4658346926%_ (let () (declare (not safe)) - (##car _%e4675747097%_)))) - (_%loop4675647087%_ - _%lp-tl4675947104%_ - (cons _%lp-hd4675847101%_ - _%body4676047094%_)))) - (let ((_%body4676147107%_ - (reverse _%body4676047094%_))) - (let ((_%L47111%_ _%body4676147107%_) - (_%L47113%_ _%hd4675147075%_) - (_%L47114%_ _%hd4674847065%_) - (_%L47115%_ _%hd4674547055%_) - (_%L47116%_ _%hd4673947035%_)) - (if (and (gx#identifier? _%L47116%_) - (gx#identifier? _%L47113%_) - (gx#identifier? _%L47114%_) + (##car _%e4658246922%_)))) + (_%loop4658146912%_ + _%lp-tl4658446929%_ + (cons _%lp-hd4658346926%_ + _%body4658546919%_)))) + (let ((_%body4658646932%_ + (reverse _%body4658546919%_))) + (let ((_%L46936%_ _%body4658646932%_) + (_%L46938%_ _%hd4657646900%_) + (_%L46939%_ _%hd4657346890%_) + (_%L46940%_ _%hd4657046880%_) + (_%L46941%_ _%hd4656446860%_)) + (if (and (gx#identifier? _%L46941%_) + (gx#identifier? _%L46938%_) + (gx#identifier? _%L46939%_) (or (gx#free-identifier=? - _%L47114%_ + _%L46939%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47114%_ + _%L46939%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47114%_ + _%L46939%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47114%_ + _%L46939%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7566175662%_ - _%L47111%_ - _%L47113%_ - _%L47114%_ - _%L47115%_ - _%L47116%_) - (_%__match7593975940%_ - _%e4673447011%_ - _%hd4673347015%_ - _%tl4673247018%_ - _%e4673747021%_ - _%hd4673647025%_ - _%tl4673547028%_ - _%e4674047031%_ - _%hd4673947035%_ - _%tl4673847038%_)))))))) - (_%loop4675647087%_ _%target4675347081%_ '())))) - (_%__match7586575866%_ - (lambda (_%e4670547173%_ - _%hd4670447177%_ - _%tl4670347180%_ - _%e4670847183%_ - _%hd4670747187%_ - _%tl4670647190%_ - _%e4671147193%_ - _%hd4671047197%_ - _%tl4670947200%_ - _%e4671447203%_ - _%hd4671347207%_ - _%tl4671247210%_ - _%e4671747213%_ - _%hd4671647217%_ - _%tl4671547220%_ - _%__splice7565975660%_ - _%target4671847223%_ - _%tl4672047226%_) - (letrec ((_%loop4672147229%_ - (lambda (_%hd4671947233%_ _%body4672547236%_) - (if (gx#stx-pair? _%hd4671947233%_) - (let ((_%e4672247239%_ - (gx#syntax-e _%hd4671947233%_))) - (let ((_%lp-tl4672447246%_ + (_%__kont7548675487%_ + _%L46936%_ + _%L46938%_ + _%L46939%_ + _%L46940%_ + _%L46941%_) + (_%__match7576475765%_ + _%e4655946836%_ + _%hd4655846840%_ + _%tl4655746843%_ + _%e4656246846%_ + _%hd4656146850%_ + _%tl4656046853%_ + _%e4656546856%_ + _%hd4656446860%_ + _%tl4656346863%_)))))))) + (_%loop4658146912%_ _%target4657846906%_ '())))) + (_%__match7569075691%_ + (lambda (_%e4653046998%_ + _%hd4652947002%_ + _%tl4652847005%_ + _%e4653347008%_ + _%hd4653247012%_ + _%tl4653147015%_ + _%e4653647018%_ + _%hd4653547022%_ + _%tl4653447025%_ + _%e4653947028%_ + _%hd4653847032%_ + _%tl4653747035%_ + _%e4654247038%_ + _%hd4654147042%_ + _%tl4654047045%_ + _%__splice7548475485%_ + _%target4654347048%_ + _%tl4654547051%_) + (letrec ((_%loop4654647054%_ + (lambda (_%hd4654447058%_ _%body4655047061%_) + (if (gx#stx-pair? _%hd4654447058%_) + (let ((_%e4654747064%_ + (gx#syntax-e _%hd4654447058%_))) + (let ((_%lp-tl4654947071%_ (let () (declare (not safe)) - (##cdr _%e4672247239%_))) - (_%lp-hd4672347243%_ + (##cdr _%e4654747064%_))) + (_%lp-hd4654847068%_ (let () (declare (not safe)) - (##car _%e4672247239%_)))) - (_%loop4672147229%_ - _%lp-tl4672447246%_ - (cons _%lp-hd4672347243%_ - _%body4672547236%_)))) - (let ((_%body4672647249%_ - (reverse _%body4672547236%_))) - (let ((_%L47253%_ _%body4672647249%_) - (_%L47255%_ _%hd4671647217%_) - (_%L47256%_ _%hd4671047197%_)) - (if (gx#identifier? _%L47256%_) - (_%__kont7565775658%_ - _%L47253%_ - _%L47255%_ - _%L47256%_) - (_%__match7593975940%_ - _%e4670547173%_ - _%hd4670447177%_ - _%tl4670347180%_ - _%e4670847183%_ - _%hd4670747187%_ - _%tl4670647190%_ - _%e4671147193%_ - _%hd4671047197%_ - _%tl4670947200%_)))))))) - (_%loop4672147229%_ _%target4671847223%_ '())))) - (_%__match7584575846%_ - (lambda (_%e4670547173%_ - _%hd4670447177%_ - _%tl4670347180%_ - _%e4670847183%_ - _%hd4670747187%_ - _%tl4670647190%_ - _%e4671147193%_ - _%hd4671047197%_ - _%tl4670947200%_ - _%e4671447203%_ - _%hd4671347207%_ - _%tl4671247210%_) - (if (gx#identifier? _%hd4671347207%_) + (##car _%e4654747064%_)))) + (_%loop4654647054%_ + _%lp-tl4654947071%_ + (cons _%lp-hd4654847068%_ + _%body4655047061%_)))) + (let ((_%body4655147074%_ + (reverse _%body4655047061%_))) + (let ((_%L47078%_ _%body4655147074%_) + (_%L47080%_ _%hd4654147042%_) + (_%L47081%_ _%hd4653547022%_)) + (if (gx#identifier? _%L47081%_) + (_%__kont7548275483%_ + _%L47078%_ + _%L47080%_ + _%L47081%_) + (_%__match7576475765%_ + _%e4653046998%_ + _%hd4652947002%_ + _%tl4652847005%_ + _%e4653347008%_ + _%hd4653247012%_ + _%tl4653147015%_ + _%e4653647018%_ + _%hd4653547022%_ + _%tl4653447025%_)))))))) + (_%loop4654647054%_ _%target4654347048%_ '())))) + (_%__match7567075671%_ + (lambda (_%e4653046998%_ + _%hd4652947002%_ + _%tl4652847005%_ + _%e4653347008%_ + _%hd4653247012%_ + _%tl4653147015%_ + _%e4653647018%_ + _%hd4653547022%_ + _%tl4653447025%_ + _%e4653947028%_ + _%hd4653847032%_ + _%tl4653747035%_) + (if (gx#identifier? _%hd4653847032%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80705_| - _%hd4671347207%_) - (if (gx#stx-pair? _%tl4671247210%_) - (let ((_%e4671747213%_ - (gx#syntax-e _%tl4671247210%_))) - (let ((_%tl4671547220%_ + |gerbil/core/contract~Using[1]#_g80521_| + _%hd4653847032%_) + (if (gx#stx-pair? _%tl4653747035%_) + (let ((_%e4654247038%_ + (gx#syntax-e _%tl4653747035%_))) + (let ((_%tl4654047045%_ (let () (declare (not safe)) - (##cdr _%e4671747213%_))) - (_%hd4671647217%_ + (##cdr _%e4654247038%_))) + (_%hd4654147042%_ (let () (declare (not safe)) - (##car _%e4671747213%_)))) - (if (gx#stx-null? _%tl4671547220%_) + (##car _%e4654247038%_)))) + (if (gx#stx-null? _%tl4654047045%_) (if (gx#stx-pair/null? - _%tl4670647190%_) - (let ((_%__splice7565975660%_ + _%tl4653147015%_) + (let ((_%__splice7548475485%_ (gx#syntax-split-splice - _%tl4670647190%_ + _%tl4653147015%_ '0))) - (let ((_%tl4672047226%_ + (let ((_%tl4654547051%_ (let () (declare (not safe)) (##vector-ref - _%__splice7565975660%_ + _%__splice7548475485%_ '1))) - (_%target4671847223%_ + (_%target4654347048%_ (let () (declare (not safe)) (##vector-ref - _%__splice7565975660%_ + _%__splice7548475485%_ '0)))) (if (gx#stx-null? - _%tl4672047226%_) - (_%__match7586575866%_ - _%e4670547173%_ - _%hd4670447177%_ - _%tl4670347180%_ - _%e4670847183%_ - _%hd4670747187%_ - _%tl4670647190%_ - _%e4671147193%_ - _%hd4671047197%_ - _%tl4670947200%_ - _%e4671447203%_ - _%hd4671347207%_ - _%tl4671247210%_ - _%e4671747213%_ - _%hd4671647217%_ - _%tl4671547220%_ - _%__splice7565975660%_ - _%target4671847223%_ - _%tl4672047226%_) + _%tl4654547051%_) + (_%__match7569075691%_ + _%e4653046998%_ + _%hd4652947002%_ + _%tl4652847005%_ + _%e4653347008%_ + _%hd4653247012%_ + _%tl4653147015%_ + _%e4653647018%_ + _%hd4653547022%_ + _%tl4653447025%_ + _%e4653947028%_ + _%hd4653847032%_ + _%tl4653747035%_ + _%e4654247038%_ + _%hd4654147042%_ + _%tl4654047045%_ + _%__splice7548475485%_ + _%target4654347048%_ + _%tl4654547051%_) (if (gx#stx-pair? - _%hd4671047197%_) - (let ((_%e4677746929%_ + _%hd4653547022%_) + (let ((_%e4660246754%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd4671047197%_))) - (let ((_%tl4677546936%_ + (gx#syntax-e _%hd4653547022%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))))) + (##car _%e4660246754%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4671047197%_) - (let ((_%e4677746929%_ + _%hd4653547022%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4671047197%_))) - (let ((_%tl4677546936%_ + _%hd4653547022%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#stx-pair? _%tl4671547220%_) - (let ((_%e4674947061%_ + (_%g4642446633%_)))) + (if (gx#stx-pair? _%tl4654047045%_) + (let ((_%e4657446886%_ (gx#syntax-e - _%tl4671547220%_))) - (let ((_%tl4674747068%_ + _%tl4654047045%_))) + (let ((_%tl4657246893%_ (let () (declare (not safe)) - (##cdr _%e4674947061%_))) - (_%hd4674847065%_ + (##cdr _%e4657446886%_))) + (_%hd4657346890%_ (let () (declare (not safe)) - (##car _%e4674947061%_)))) + (##car _%e4657446886%_)))) (if (gx#stx-pair? - _%tl4674747068%_) - (let ((_%e4675247071%_ + _%tl4657246893%_) + (let ((_%e4657746896%_ (gx#syntax-e - _%tl4674747068%_))) - (let ((_%tl4675047078%_ + _%tl4657246893%_))) + (let ((_%tl4657546903%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4675247071%_))) - (_%hd4675147075%_ - (let () (declare (not safe)) (##car _%e4675247071%_)))) - (if (gx#stx-null? _%tl4675047078%_) - (if (gx#stx-pair/null? _%tl4670647190%_) - (let ((_%__splice7566375664%_ - (gx#syntax-split-splice _%tl4670647190%_ '0))) - (let ((_%tl4675547084%_ + (##cdr _%e4657746896%_))) + (_%hd4657646900%_ + (let () (declare (not safe)) (##car _%e4657746896%_)))) + (if (gx#stx-null? _%tl4657546903%_) + (if (gx#stx-pair/null? _%tl4653147015%_) + (let ((_%__splice7548875489%_ + (gx#syntax-split-splice _%tl4653147015%_ '0))) + (let ((_%tl4658046909%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566375664%_ '1))) - (_%target4675347081%_ + (##vector-ref _%__splice7548875489%_ '1))) + (_%target4657846906%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566375664%_ + _%__splice7548875489%_ '0)))) - (if (gx#stx-null? _%tl4675547084%_) - (_%__match7592175922%_ - _%e4670547173%_ - _%hd4670447177%_ - _%tl4670347180%_ - _%e4670847183%_ - _%hd4670747187%_ - _%tl4670647190%_ - _%e4671147193%_ - _%hd4671047197%_ - _%tl4670947200%_ - _%e4671447203%_ - _%hd4671347207%_ - _%tl4671247210%_ - _%e4671747213%_ - _%hd4671647217%_ - _%tl4671547220%_ - _%e4674947061%_ - _%hd4674847065%_ - _%tl4674747068%_ - _%e4675247071%_ - _%hd4675147075%_ - _%tl4675047078%_ - _%__splice7566375664%_ - _%target4675347081%_ - _%tl4675547084%_) - (if (gx#stx-pair? _%hd4671047197%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4671047197%_))) - (let ((_%tl4677546936%_ + (if (gx#stx-null? _%tl4658046909%_) + (_%__match7574675747%_ + _%e4653046998%_ + _%hd4652947002%_ + _%tl4652847005%_ + _%e4653347008%_ + _%hd4653247012%_ + _%tl4653147015%_ + _%e4653647018%_ + _%hd4653547022%_ + _%tl4653447025%_ + _%e4653947028%_ + _%hd4653847032%_ + _%tl4653747035%_ + _%e4654247038%_ + _%hd4654147042%_ + _%tl4654047045%_ + _%e4657446886%_ + _%hd4657346890%_ + _%tl4657246893%_ + _%e4657746896%_ + _%hd4657646900%_ + _%tl4657546903%_ + _%__splice7548875489%_ + _%target4657846906%_ + _%tl4658046909%_) + (if (gx#stx-pair? _%hd4653547022%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4653547022%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))))) - (if (gx#stx-pair? _%hd4671047197%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4671047197%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))))) + (if (gx#stx-pair? _%hd4653547022%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4653547022%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4671047197%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4671047197%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4653547022%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4653547022%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4670647190%_) - (let ((_%__splice7566775668%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4653147015%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4670647190%_ + _%tl4653147015%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4670547173%_ - _%hd4670447177%_ - _%tl4670347180%_ - _%e4670847183%_ - _%hd4670747187%_ - _%tl4670647190%_ - _%e4671147193%_ - _%hd4671047197%_ - _%tl4670947200%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4653046998%_ + _%hd4652947002%_ + _%tl4652847005%_ + _%e4653347008%_ + _%hd4653247012%_ + _%tl4653147015%_ + _%e4653647018%_ + _%hd4653547022%_ + _%tl4653447025%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))))) - (if (gx#stx-pair? _%hd4671047197%_) - (let ((_%e4677746929%_ (gx#syntax-e _%hd4671047197%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))))) + (if (gx#stx-pair? _%hd4653547022%_) + (let ((_%e4660246754%_ (gx#syntax-e _%hd4653547022%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4670647190%_) - (let ((_%__splice7566775668%_ - (gx#syntax-split-splice _%tl4670647190%_ '0))) - (let ((_%tl4678046942%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4653147015%_) + (let ((_%__splice7549275493%_ + (gx#syntax-split-splice _%tl4653147015%_ '0))) + (let ((_%tl4660546767%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4670547173%_ - _%hd4670447177%_ - _%tl4670347180%_ - _%e4670847183%_ - _%hd4670747187%_ - _%tl4670647190%_ - _%e4671147193%_ - _%hd4671047197%_ - _%tl4670947200%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4653046998%_ + _%hd4652947002%_ + _%tl4652847005%_ + _%e4653347008%_ + _%hd4653247012%_ + _%tl4653147015%_ + _%e4653647018%_ + _%hd4653547022%_ + _%tl4653447025%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))))) + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4671047197%_) - (let ((_%e4677746929%_ + _%hd4653547022%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4671047197%_))) - (let ((_%tl4677546936%_ + _%hd4653547022%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4670647190%_) - (let ((_%__splice7566775668%_ + _%tl4653147015%_) + (let ((_%__splice7549275493%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4670647190%_ '0))) - (let ((_%tl4678046942%_ + (gx#syntax-split-splice _%tl4653147015%_ '0))) + (let ((_%tl4660546767%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4670547173%_ - _%hd4670447177%_ - _%tl4670347180%_ - _%e4670847183%_ - _%hd4670747187%_ - _%tl4670647190%_ - _%e4671147193%_ - _%hd4671047197%_ - _%tl4670947200%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) + (##vector-ref _%__splice7549275493%_ '0)))) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4653046998%_ + _%hd4652947002%_ + _%tl4652847005%_ + _%e4653347008%_ + _%hd4653247012%_ + _%tl4653147015%_ + _%e4653647018%_ + _%hd4653547022%_ + _%tl4653447025%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4659946808%_))))))) - (if (gx#stx-pair? _%hd4671047197%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4671047197%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_))))))) + (if (gx#stx-pair? _%hd4653547022%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4653547022%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4670647190%_) - (let ((_%__splice7566775668%_ + _%tl4653147015%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4670647190%_ + _%tl4653147015%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) (if (gx#stx-null? - _%tl4678046942%_) - (_%__match7595375954%_ - _%e4670547173%_ - _%hd4670447177%_ - _%tl4670347180%_ - _%e4670847183%_ - _%hd4670747187%_ - _%tl4670647190%_ - _%e4671147193%_ - _%hd4671047197%_ - _%tl4670947200%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + _%tl4660546767%_) + (_%__match7577875779%_ + _%e4653046998%_ + _%hd4652947002%_ + _%tl4652847005%_ + _%e4653347008%_ + _%hd4653247012%_ + _%tl4653147015%_ + _%e4653647018%_ + _%hd4653547022%_ + _%tl4653447025%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4671047197%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4671047197%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4653547022%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4653547022%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4670647190%_) - (let ((_%__splice7566775668%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4653147015%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4670647190%_ + _%tl4653147015%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) (if (gx#stx-null? - _%tl4678046942%_) - (_%__match7595375954%_ - _%e4670547173%_ - _%hd4670447177%_ - _%tl4670347180%_ - _%e4670847183%_ - _%hd4670747187%_ - _%tl4670647190%_ - _%e4671147193%_ - _%hd4671047197%_ - _%tl4670947200%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + _%tl4660546767%_) + (_%__match7577875779%_ + _%e4653046998%_ + _%hd4652947002%_ + _%tl4652847005%_ + _%e4653347008%_ + _%hd4653247012%_ + _%tl4653147015%_ + _%e4653647018%_ + _%hd4653547022%_ + _%tl4653447025%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4671047197%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4671047197%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4653547022%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4653547022%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4670647190%_) - (let ((_%__splice7566775668%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4653147015%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4670647190%_ + _%tl4653147015%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4670547173%_ - _%hd4670447177%_ - _%tl4670347180%_ - _%e4670847183%_ - _%hd4670747187%_ - _%tl4670647190%_ - _%e4671147193%_ - _%hd4671047197%_ - _%tl4670947200%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4653046998%_ + _%hd4652947002%_ + _%tl4652847005%_ + _%e4653347008%_ + _%hd4653247012%_ + _%tl4653147015%_ + _%e4653647018%_ + _%hd4653547022%_ + _%tl4653447025%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_)))))) - (_%__match7582175822%_ - (lambda (_%e4667847295%_ - _%hd4667747299%_ - _%tl4667647302%_ - _%e4668147305%_ - _%hd4668047309%_ - _%tl4667947312%_ - _%e4668447315%_ - _%hd4668347319%_ - _%tl4668247322%_ - _%e4668747325%_ - _%hd4668647329%_ - _%tl4668547332%_ - _%e4669047335%_ - _%hd4668947339%_ - _%tl4668847342%_ - _%__splice7565575656%_ - _%target4669147345%_ - _%tl4669347348%_) - (letrec ((_%loop4669447351%_ - (lambda (_%hd4669247355%_ _%body4669847358%_) - (if (gx#stx-pair? _%hd4669247355%_) - (let ((_%e4669547361%_ - (gx#syntax-e _%hd4669247355%_))) - (let ((_%lp-tl4669747368%_ + (_%g4642446633%_)))))) + (_%__match7564675647%_ + (lambda (_%e4650347120%_ + _%hd4650247124%_ + _%tl4650147127%_ + _%e4650647130%_ + _%hd4650547134%_ + _%tl4650447137%_ + _%e4650947140%_ + _%hd4650847144%_ + _%tl4650747147%_ + _%e4651247150%_ + _%hd4651147154%_ + _%tl4651047157%_ + _%e4651547160%_ + _%hd4651447164%_ + _%tl4651347167%_ + _%__splice7548075481%_ + _%target4651647170%_ + _%tl4651847173%_) + (letrec ((_%loop4651947176%_ + (lambda (_%hd4651747180%_ _%body4652347183%_) + (if (gx#stx-pair? _%hd4651747180%_) + (let ((_%e4652047186%_ + (gx#syntax-e _%hd4651747180%_))) + (let ((_%lp-tl4652247193%_ (let () (declare (not safe)) - (##cdr _%e4669547361%_))) - (_%lp-hd4669647365%_ + (##cdr _%e4652047186%_))) + (_%lp-hd4652147190%_ (let () (declare (not safe)) - (##car _%e4669547361%_)))) - (_%loop4669447351%_ - _%lp-tl4669747368%_ - (cons _%lp-hd4669647365%_ - _%body4669847358%_)))) - (let ((_%body4669947371%_ - (reverse _%body4669847358%_))) - (let ((_%L47375%_ _%body4669947371%_) - (_%L47377%_ _%hd4668947339%_) - (_%L47378%_ _%hd4668647329%_) - (_%L47379%_ _%hd4668347319%_)) - (if (and (gx#identifier? _%L47379%_) - (gx#identifier? _%L47377%_) - (gx#identifier? _%L47378%_) + (##car _%e4652047186%_)))) + (_%loop4651947176%_ + _%lp-tl4652247193%_ + (cons _%lp-hd4652147190%_ + _%body4652347183%_)))) + (let ((_%body4652447196%_ + (reverse _%body4652347183%_))) + (let ((_%L47200%_ _%body4652447196%_) + (_%L47202%_ _%hd4651447164%_) + (_%L47203%_ _%hd4651147154%_) + (_%L47204%_ _%hd4650847144%_)) + (if (and (gx#identifier? _%L47204%_) + (gx#identifier? _%L47202%_) + (gx#identifier? _%L47203%_) (or (gx#free-identifier=? - _%L47378%_ + _%L47203%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47378%_ + _%L47203%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47378%_ + _%L47203%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47378%_ + _%L47203%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7565375654%_ - _%L47375%_ - _%L47377%_ - _%L47378%_ - _%L47379%_) - (_%__match7584575846%_ - _%e4667847295%_ - _%hd4667747299%_ - _%tl4667647302%_ - _%e4668147305%_ - _%hd4668047309%_ - _%tl4667947312%_ - _%e4668447315%_ - _%hd4668347319%_ - _%tl4668247322%_ - _%e4668747325%_ - _%hd4668647329%_ - _%tl4668547332%_)))))))) - (_%loop4669447351%_ _%target4669147345%_ '())))) - (_%__match7578175782%_ - (lambda (_%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4665047478%_ - _%hd4664947482%_ - _%tl4664847485%_ - _%e4665347488%_ - _%hd4665247492%_ - _%tl4665147495%_ - _%e4665647498%_ - _%hd4665547502%_ - _%tl4665447505%_ - _%e4665947508%_ - _%hd4665847512%_ - _%tl4665747515%_ - _%e4666247518%_ - _%hd4666147522%_ - _%tl4666047525%_ - _%__splice7565175652%_ - _%target4666347528%_ - _%tl4666547531%_) - (letrec ((_%loop4666647534%_ - (lambda (_%hd4666447538%_ _%body4667047541%_) - (if (gx#stx-pair? _%hd4666447538%_) - (let ((_%e4666747544%_ - (gx#syntax-e _%hd4666447538%_))) - (let ((_%lp-tl4666947551%_ + (_%__kont7547875479%_ + _%L47200%_ + _%L47202%_ + _%L47203%_ + _%L47204%_) + (_%__match7567075671%_ + _%e4650347120%_ + _%hd4650247124%_ + _%tl4650147127%_ + _%e4650647130%_ + _%hd4650547134%_ + _%tl4650447137%_ + _%e4650947140%_ + _%hd4650847144%_ + _%tl4650747147%_ + _%e4651247150%_ + _%hd4651147154%_ + _%tl4651047157%_)))))))) + (_%loop4651947176%_ _%target4651647170%_ '())))) + (_%__match7560675607%_ + (lambda (_%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4647547303%_ + _%hd4647447307%_ + _%tl4647347310%_ + _%e4647847313%_ + _%hd4647747317%_ + _%tl4647647320%_ + _%e4648147323%_ + _%hd4648047327%_ + _%tl4647947330%_ + _%e4648447333%_ + _%hd4648347337%_ + _%tl4648247340%_ + _%e4648747343%_ + _%hd4648647347%_ + _%tl4648547350%_ + _%__splice7547675477%_ + _%target4648847353%_ + _%tl4649047356%_) + (letrec ((_%loop4649147359%_ + (lambda (_%hd4648947363%_ _%body4649547366%_) + (if (gx#stx-pair? _%hd4648947363%_) + (let ((_%e4649247369%_ + (gx#syntax-e _%hd4648947363%_))) + (let ((_%lp-tl4649447376%_ (let () (declare (not safe)) - (##cdr _%e4666747544%_))) - (_%lp-hd4666847548%_ + (##cdr _%e4649247369%_))) + (_%lp-hd4649347373%_ (let () (declare (not safe)) - (##car _%e4666747544%_)))) - (_%loop4666647534%_ - _%lp-tl4666947551%_ - (cons _%lp-hd4666847548%_ - _%body4667047541%_)))) - (let ((_%body4667147554%_ - (reverse _%body4667047541%_))) - (let ((_%L47558%_ _%body4667147554%_) - (_%L47560%_ _%hd4666147522%_) - (_%L47561%_ _%hd4665847512%_) - (_%L47562%_ _%hd4665547502%_) - (_%L47563%_ _%hd4664947482%_) - (_%L47564%_ _%hd4664647472%_)) - (if (and (gx#identifier? _%L47564%_) - (gx#identifier? _%L47560%_) - (gx#identifier? _%L47561%_) + (##car _%e4649247369%_)))) + (_%loop4649147359%_ + _%lp-tl4649447376%_ + (cons _%lp-hd4649347373%_ + _%body4649547366%_)))) + (let ((_%body4649647379%_ + (reverse _%body4649547366%_))) + (let ((_%L47383%_ _%body4649647379%_) + (_%L47385%_ _%hd4648647347%_) + (_%L47386%_ _%hd4648347337%_) + (_%L47387%_ _%hd4648047327%_) + (_%L47388%_ _%hd4647447307%_) + (_%L47389%_ _%hd4647147297%_)) + (if (and (gx#identifier? _%L47389%_) + (gx#identifier? _%L47385%_) + (gx#identifier? _%L47386%_) (or (gx#free-identifier=? - _%L47561%_ + _%L47386%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47561%_ + _%L47386%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47561%_ + _%L47386%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47561%_ + _%L47386%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7564975650%_ - _%L47558%_ - _%L47560%_ - _%L47561%_ - _%L47562%_ - _%L47563%_ - _%L47564%_) - (_%__match7584575846%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4665047478%_ - _%hd4664947482%_ - _%tl4664847485%_)))))))) - (_%loop4666647534%_ _%target4666347528%_ '())))) - (_%__match7574975750%_ - (lambda (_%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4665047478%_ - _%hd4664947482%_ - _%tl4664847485%_ - _%e4665347488%_ - _%hd4665247492%_ - _%tl4665147495%_) - (if (gx#identifier? _%hd4665247492%_) + (_%__kont7547475475%_ + _%L47383%_ + _%L47385%_ + _%L47386%_ + _%L47387%_ + _%L47388%_ + _%L47389%_) + (_%__match7567075671%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4647547303%_ + _%hd4647447307%_ + _%tl4647347310%_)))))))) + (_%loop4649147359%_ _%target4648847353%_ '())))) + (_%__match7557475575%_ + (lambda (_%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4647547303%_ + _%hd4647447307%_ + _%tl4647347310%_ + _%e4647847313%_ + _%hd4647747317%_ + _%tl4647647320%_) + (if (gx#identifier? _%hd4647747317%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80706_| - _%hd4665247492%_) - (if (gx#stx-pair? _%tl4665147495%_) - (let ((_%e4665647498%_ - (gx#syntax-e _%tl4665147495%_))) - (let ((_%tl4665447505%_ + |gerbil/core/contract~Using[1]#_g80522_| + _%hd4647747317%_) + (if (gx#stx-pair? _%tl4647647320%_) + (let ((_%e4648147323%_ + (gx#syntax-e _%tl4647647320%_))) + (let ((_%tl4647947330%_ (let () (declare (not safe)) - (##cdr _%e4665647498%_))) - (_%hd4665547502%_ + (##cdr _%e4648147323%_))) + (_%hd4648047327%_ (let () (declare (not safe)) - (##car _%e4665647498%_)))) - (if (gx#stx-pair? _%tl4665447505%_) - (let ((_%e4665947508%_ + (##car _%e4648147323%_)))) + (if (gx#stx-pair? _%tl4647947330%_) + (let ((_%e4648447333%_ (gx#syntax-e - _%tl4665447505%_))) - (let ((_%tl4665747515%_ + _%tl4647947330%_))) + (let ((_%tl4648247340%_ (let () (declare (not safe)) - (##cdr _%e4665947508%_))) - (_%hd4665847512%_ + (##cdr _%e4648447333%_))) + (_%hd4648347337%_ (let () (declare (not safe)) - (##car _%e4665947508%_)))) + (##car _%e4648447333%_)))) (if (gx#stx-pair? - _%tl4665747515%_) - (let ((_%e4666247518%_ + _%tl4648247340%_) + (let ((_%e4648747343%_ (gx#syntax-e - _%tl4665747515%_))) - (let ((_%tl4666047525%_ + _%tl4648247340%_))) + (let ((_%tl4648547350%_ (let () (declare (not safe)) - (##cdr _%e4666247518%_))) - (_%hd4666147522%_ + (##cdr _%e4648747343%_))) + (_%hd4648647347%_ (let () (declare (not safe)) - (##car _%e4666247518%_)))) + (##car _%e4648747343%_)))) (if (gx#stx-null? - _%tl4666047525%_) + _%tl4648547350%_) (if (gx#stx-pair/null? - _%tl4664247465%_) - (let ((_%__splice7565175652%_ + _%tl4646747290%_) + (let ((_%__splice7547675477%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4664247465%_ '0))) - (let ((_%tl4666547531%_ + (gx#syntax-split-splice _%tl4646747290%_ '0))) + (let ((_%tl4649047356%_ (let () (declare (not safe)) - (##vector-ref _%__splice7565175652%_ '1))) - (_%target4666347528%_ + (##vector-ref _%__splice7547675477%_ '1))) + (_%target4648847353%_ (let () (declare (not safe)) - (##vector-ref _%__splice7565175652%_ '0)))) - (if (gx#stx-null? _%tl4666547531%_) - (_%__match7578175782%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4665047478%_ - _%hd4664947482%_ - _%tl4664847485%_ - _%e4665347488%_ - _%hd4665247492%_ - _%tl4665147495%_ - _%e4665647498%_ - _%hd4665547502%_ - _%tl4665447505%_ - _%e4665947508%_ - _%hd4665847512%_ - _%tl4665747515%_ - _%e4666247518%_ - _%hd4666147522%_ - _%tl4666047525%_ - _%__splice7565175652%_ - _%target4666347528%_ - _%tl4666547531%_) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (##vector-ref _%__splice7547675477%_ '0)))) + (if (gx#stx-null? _%tl4649047356%_) + (_%__match7560675607%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4647547303%_ + _%hd4647447307%_ + _%tl4647347310%_ + _%e4647847313%_ + _%hd4647747317%_ + _%tl4647647320%_ + _%e4648147323%_ + _%hd4648047327%_ + _%tl4647947330%_ + _%e4648447333%_ + _%hd4648347337%_ + _%tl4648247340%_ + _%e4648747343%_ + _%hd4648647347%_ + _%tl4648547350%_ + _%__splice7547675477%_ + _%target4648847353%_ + _%tl4649047356%_) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (##car _%e4660246754%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4664247465%_) - (let ((_%__splice7566775668%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4646747290%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4664247465%_ + _%tl4646747290%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))))) + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd4664947482%_) + _%hd4647447307%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80705_| - _%hd4664947482%_) + |gerbil/core/contract~Using[1]#_g80521_| + _%hd4647447307%_) (if (gx#stx-null? - _%tl4665747515%_) + _%tl4648247340%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl4664247465%_) - (let ((_%__splice7566375664%_ - (gx#syntax-split-splice _%tl4664247465%_ '0))) - (let ((_%tl4675547084%_ + _%tl4646747290%_) + (let ((_%__splice7548875489%_ + (gx#syntax-split-splice _%tl4646747290%_ '0))) + (let ((_%tl4658046909%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566375664%_ '1))) - (_%target4675347081%_ + (##vector-ref _%__splice7548875489%_ '1))) + (_%target4657846906%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566375664%_ + _%__splice7548875489%_ '0)))) - (if (gx#stx-null? _%tl4675547084%_) - (_%__match7592175922%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4665047478%_ - _%hd4664947482%_ - _%tl4664847485%_ - _%e4665347488%_ - _%hd4665247492%_ - _%tl4665147495%_ - _%e4665647498%_ - _%hd4665547502%_ - _%tl4665447505%_ - _%e4665947508%_ - _%hd4665847512%_ - _%tl4665747515%_ - _%__splice7566375664%_ - _%target4675347081%_ - _%tl4675547084%_) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (if (gx#stx-null? _%tl4658046909%_) + (_%__match7574675747%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4647547303%_ + _%hd4647447307%_ + _%tl4647347310%_ + _%e4647847313%_ + _%hd4647747317%_ + _%tl4647647320%_ + _%e4648147323%_ + _%hd4648047327%_ + _%tl4647947330%_ + _%e4648447333%_ + _%hd4648347337%_ + _%tl4648247340%_ + _%__splice7548875489%_ + _%target4657846906%_ + _%tl4658046909%_) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4664247465%_) - (let ((_%__splice7566775668%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4646747290%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4664247465%_ + _%tl4646747290%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4664247465%_) - (let ((_%__splice7566775668%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4646747290%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4664247465%_ + _%tl4646747290%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4664247465%_) - (let ((_%__splice7566775668%_ - (gx#syntax-split-splice _%tl4664247465%_ '0))) - (let ((_%tl4678046942%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4646747290%_) + (let ((_%__splice7549275493%_ + (gx#syntax-split-splice _%tl4646747290%_ '0))) + (let ((_%tl4660546767%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))))) + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4664647472%_))) - (let ((_%tl4677546936%_ + _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4664247465%_) - (let ((_%__splice7566775668%_ + _%tl4646747290%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4664247465%_ + _%tl4646747290%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) + (##vector-ref _%__splice7549275493%_ '0)))) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4659946808%_)))))) - (if (gx#stx-null? _%tl4665147495%_) - (if (gx#stx-pair/null? _%tl4664247465%_) - (let ((_%__splice7565575656%_ + (_%g4642446633%_)))))) + (if (gx#stx-null? _%tl4647647320%_) + (if (gx#stx-pair/null? _%tl4646747290%_) + (let ((_%__splice7548075481%_ (gx#syntax-split-splice - _%tl4664247465%_ + _%tl4646747290%_ '0))) - (let ((_%tl4669347348%_ + (let ((_%tl4651847173%_ (let () (declare (not safe)) (##vector-ref - _%__splice7565575656%_ + _%__splice7548075481%_ '1))) - (_%target4669147345%_ + (_%target4651647170%_ (let () (declare (not safe)) (##vector-ref - _%__splice7565575656%_ + _%__splice7548075481%_ '0)))) (if (gx#stx-null? - _%tl4669347348%_) - (_%__match7582175822%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4665047478%_ - _%hd4664947482%_ - _%tl4664847485%_ - _%e4665347488%_ - _%hd4665247492%_ - _%tl4665147495%_ - _%__splice7565575656%_ - _%target4669147345%_ - _%tl4669347348%_) + _%tl4651847173%_) + (_%__match7564675647%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4647547303%_ + _%hd4647447307%_ + _%tl4647347310%_ + _%e4647847313%_ + _%hd4647747317%_ + _%tl4647647320%_ + _%__splice7548075481%_ + _%target4651647170%_ + _%tl4651847173%_) (if (gx#stx-pair? - _%hd4664647472%_) - (let ((_%e4677746929%_ + _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4664647472%_))) - (let ((_%tl4677546936%_ + _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ - (let () (declare (not safe)) (##car _%e4677746929%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))))) + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ + (let () (declare (not safe)) (##car _%e4660246754%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4664647472%_))) - (let ((_%tl4677546936%_ + _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ + (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4664647472%_))) - (let ((_%tl4677546936%_ + _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4664247465%_) - (let ((_%__splice7566775668%_ + _%tl4646747290%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4664247465%_ + _%tl4646747290%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) (if (gx#stx-null? - _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) - (if (gx#stx-null? _%tl4665147495%_) - (if (gx#stx-pair/null? _%tl4664247465%_) - (let ((_%__splice7565575656%_ + (_%g4642446633%_))))) + (if (gx#stx-null? _%tl4647647320%_) + (if (gx#stx-pair/null? _%tl4646747290%_) + (let ((_%__splice7548075481%_ (gx#syntax-split-splice - _%tl4664247465%_ + _%tl4646747290%_ '0))) - (let ((_%tl4669347348%_ + (let ((_%tl4651847173%_ (let () (declare (not safe)) (##vector-ref - _%__splice7565575656%_ + _%__splice7548075481%_ '1))) - (_%target4669147345%_ + (_%target4651647170%_ (let () (declare (not safe)) (##vector-ref - _%__splice7565575656%_ + _%__splice7548075481%_ '0)))) - (if (gx#stx-null? _%tl4669347348%_) - (_%__match7582175822%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4665047478%_ - _%hd4664947482%_ - _%tl4664847485%_ - _%e4665347488%_ - _%hd4665247492%_ - _%tl4665147495%_ - _%__splice7565575656%_ - _%target4669147345%_ - _%tl4669347348%_) + (if (gx#stx-null? _%tl4651847173%_) + (_%__match7564675647%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4647547303%_ + _%hd4647447307%_ + _%tl4647347310%_ + _%e4647847313%_ + _%hd4647747317%_ + _%tl4647647320%_ + _%__splice7548075481%_ + _%target4651647170%_ + _%tl4651847173%_) (if (gx#stx-pair? - _%hd4664647472%_) - (let ((_%e4677746929%_ + _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4664647472%_))) - (let ((_%tl4677546936%_ + _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ + (_%g4642446633%_)))))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4664647472%_))) - (let ((_%tl4677546936%_ + _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#identifier? _%hd4664947482%_) + (_%g4642446633%_)))) + (if (gx#identifier? _%hd4647447307%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80705_| - _%hd4664947482%_) - (if (gx#stx-pair? _%tl4665147495%_) - (let ((_%e4674947061%_ + |gerbil/core/contract~Using[1]#_g80521_| + _%hd4647447307%_) + (if (gx#stx-pair? _%tl4647647320%_) + (let ((_%e4657446886%_ (gx#syntax-e - _%tl4665147495%_))) - (let ((_%tl4674747068%_ + _%tl4647647320%_))) + (let ((_%tl4657246893%_ (let () (declare (not safe)) - (##cdr _%e4674947061%_))) - (_%hd4674847065%_ + (##cdr _%e4657446886%_))) + (_%hd4657346890%_ (let () (declare (not safe)) - (##car _%e4674947061%_)))) + (##car _%e4657446886%_)))) (if (gx#stx-pair? - _%tl4674747068%_) - (let ((_%e4675247071%_ + _%tl4657246893%_) + (let ((_%e4657746896%_ (gx#syntax-e - _%tl4674747068%_))) - (let ((_%tl4675047078%_ + _%tl4657246893%_))) + (let ((_%tl4657546903%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4675247071%_))) - (_%hd4675147075%_ - (let () (declare (not safe)) (##car _%e4675247071%_)))) - (if (gx#stx-null? _%tl4675047078%_) - (if (gx#stx-pair/null? _%tl4664247465%_) - (let ((_%__splice7566375664%_ - (gx#syntax-split-splice _%tl4664247465%_ '0))) - (let ((_%tl4675547084%_ + (##cdr _%e4657746896%_))) + (_%hd4657646900%_ + (let () (declare (not safe)) (##car _%e4657746896%_)))) + (if (gx#stx-null? _%tl4657546903%_) + (if (gx#stx-pair/null? _%tl4646747290%_) + (let ((_%__splice7548875489%_ + (gx#syntax-split-splice _%tl4646747290%_ '0))) + (let ((_%tl4658046909%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566375664%_ '1))) - (_%target4675347081%_ + (##vector-ref _%__splice7548875489%_ '1))) + (_%target4657846906%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566375664%_ + _%__splice7548875489%_ '0)))) - (if (gx#stx-null? _%tl4675547084%_) - (_%__match7592175922%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4665047478%_ - _%hd4664947482%_ - _%tl4664847485%_ - _%e4665347488%_ - _%hd4665247492%_ - _%tl4665147495%_ - _%e4674947061%_ - _%hd4674847065%_ - _%tl4674747068%_ - _%e4675247071%_ - _%hd4675147075%_ - _%tl4675047078%_ - _%__splice7566375664%_ - _%target4675347081%_ - _%tl4675547084%_) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (if (gx#stx-null? _%tl4658046909%_) + (_%__match7574675747%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4647547303%_ + _%hd4647447307%_ + _%tl4647347310%_ + _%e4647847313%_ + _%hd4647747317%_ + _%tl4647647320%_ + _%e4657446886%_ + _%hd4657346890%_ + _%tl4657246893%_ + _%e4657746896%_ + _%hd4657646900%_ + _%tl4657546903%_ + _%__splice7548875489%_ + _%target4657846906%_ + _%tl4658046909%_) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4664247465%_) - (let ((_%__splice7566775668%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4646747290%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4664247465%_ + _%tl4646747290%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4664247465%_) - (let ((_%__splice7566775668%_ - (gx#syntax-split-splice _%tl4664247465%_ '0))) - (let ((_%tl4678046942%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4646747290%_) + (let ((_%__splice7549275493%_ + (gx#syntax-split-splice _%tl4646747290%_ '0))) + (let ((_%tl4660546767%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))))) + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4664647472%_) - (let ((_%e4677746929%_ + _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4664647472%_))) - (let ((_%tl4677546936%_ + _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4664247465%_) - (let ((_%__splice7566775668%_ + _%tl4646747290%_) + (let ((_%__splice7549275493%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4664247465%_ '0))) - (let ((_%tl4678046942%_ + (gx#syntax-split-splice _%tl4646747290%_ '0))) + (let ((_%tl4660546767%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) + (##vector-ref _%__splice7549275493%_ '0)))) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ + (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4664647472%_))) - (let ((_%tl4677546936%_ + _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4664247465%_) - (let ((_%__splice7566775668%_ + _%tl4646747290%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4664247465%_ + _%tl4646747290%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) + (##vector-ref _%__splice7549275493%_ '0)))) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ + (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4664647472%_))) - (let ((_%tl4677546936%_ + _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4664247465%_) - (let ((_%__splice7566775668%_ + _%tl4646747290%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4664247465%_ + _%tl4646747290%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) (if (gx#stx-null? - _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_)))))) - (if (gx#stx-null? _%tl4665147495%_) - (if (gx#stx-pair/null? _%tl4664247465%_) - (let ((_%__splice7565575656%_ + (_%g4642446633%_)))))) + (if (gx#stx-null? _%tl4647647320%_) + (if (gx#stx-pair/null? _%tl4646747290%_) + (let ((_%__splice7548075481%_ (gx#syntax-split-splice - _%tl4664247465%_ + _%tl4646747290%_ '0))) - (let ((_%tl4669347348%_ + (let ((_%tl4651847173%_ (let () (declare (not safe)) (##vector-ref - _%__splice7565575656%_ + _%__splice7548075481%_ '1))) - (_%target4669147345%_ + (_%target4651647170%_ (let () (declare (not safe)) (##vector-ref - _%__splice7565575656%_ + _%__splice7548075481%_ '0)))) - (if (gx#stx-null? _%tl4669347348%_) - (_%__match7582175822%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4665047478%_ - _%hd4664947482%_ - _%tl4664847485%_ - _%e4665347488%_ - _%hd4665247492%_ - _%tl4665147495%_ - _%__splice7565575656%_ - _%target4669147345%_ - _%tl4669347348%_) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ + (if (gx#stx-null? _%tl4651847173%_) + (_%__match7564675647%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4647547303%_ + _%hd4647447307%_ + _%tl4647347310%_ + _%e4647847313%_ + _%hd4647747317%_ + _%tl4647647320%_ + _%__splice7548075481%_ + _%target4651647170%_ + _%tl4651847173%_) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4664647472%_))) - (let ((_%tl4677546936%_ + _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#identifier? _%hd4664947482%_) + (_%g4642446633%_)))) + (if (gx#identifier? _%hd4647447307%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80705_| - _%hd4664947482%_) - (if (gx#stx-pair? _%tl4665147495%_) - (let ((_%e4674947061%_ + |gerbil/core/contract~Using[1]#_g80521_| + _%hd4647447307%_) + (if (gx#stx-pair? _%tl4647647320%_) + (let ((_%e4657446886%_ (gx#syntax-e - _%tl4665147495%_))) - (let ((_%tl4674747068%_ + _%tl4647647320%_))) + (let ((_%tl4657246893%_ (let () (declare (not safe)) - (##cdr _%e4674947061%_))) - (_%hd4674847065%_ + (##cdr _%e4657446886%_))) + (_%hd4657346890%_ (let () (declare (not safe)) - (##car _%e4674947061%_)))) + (##car _%e4657446886%_)))) (if (gx#stx-pair? - _%tl4674747068%_) - (let ((_%e4675247071%_ + _%tl4657246893%_) + (let ((_%e4657746896%_ (gx#syntax-e - _%tl4674747068%_))) - (let ((_%tl4675047078%_ + _%tl4657246893%_))) + (let ((_%tl4657546903%_ (let () (declare (not safe)) - (##cdr _%e4675247071%_))) - (_%hd4675147075%_ + (##cdr _%e4657746896%_))) + (_%hd4657646900%_ (let () (declare (not safe)) - (##car _%e4675247071%_)))) + (##car _%e4657746896%_)))) (if (gx#stx-null? - _%tl4675047078%_) + _%tl4657546903%_) (if (gx#stx-pair/null? - _%tl4664247465%_) - (let ((_%__splice7566375664%_ + _%tl4646747290%_) + (let ((_%__splice7548875489%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4664247465%_ '0))) - (let ((_%tl4675547084%_ + (gx#syntax-split-splice _%tl4646747290%_ '0))) + (let ((_%tl4658046909%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566375664%_ '1))) - (_%target4675347081%_ + (##vector-ref _%__splice7548875489%_ '1))) + (_%target4657846906%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566375664%_ '0)))) - (if (gx#stx-null? _%tl4675547084%_) - (_%__match7592175922%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4665047478%_ - _%hd4664947482%_ - _%tl4664847485%_ - _%e4665347488%_ - _%hd4665247492%_ - _%tl4665147495%_ - _%e4674947061%_ - _%hd4674847065%_ - _%tl4674747068%_ - _%e4675247071%_ - _%hd4675147075%_ - _%tl4675047078%_ - _%__splice7566375664%_ - _%target4675347081%_ - _%tl4675547084%_) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (##vector-ref _%__splice7548875489%_ '0)))) + (if (gx#stx-null? _%tl4658046909%_) + (_%__match7574675747%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4647547303%_ + _%hd4647447307%_ + _%tl4647347310%_ + _%e4647847313%_ + _%hd4647747317%_ + _%tl4647647320%_ + _%e4657446886%_ + _%hd4657346890%_ + _%tl4657246893%_ + _%e4657746896%_ + _%hd4657646900%_ + _%tl4657546903%_ + _%__splice7548875489%_ + _%target4657846906%_ + _%tl4658046909%_) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (##car _%e4660246754%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4664247465%_) - (let ((_%__splice7566775668%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4646747290%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4664247465%_ + _%tl4646747290%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))))) + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4664647472%_) - (let ((_%e4677746929%_ + _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4664647472%_))) - (let ((_%tl4677546936%_ + _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ - (let () (declare (not safe)) (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4664247465%_) - (let ((_%__splice7566775668%_ - (gx#syntax-split-splice _%tl4664247465%_ '0))) - (let ((_%tl4678046942%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ + (let () (declare (not safe)) (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4646747290%_) + (let ((_%__splice7549275493%_ + (gx#syntax-split-splice _%tl4646747290%_ '0))) + (let ((_%tl4660546767%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (##vector-ref _%__splice7549275493%_ '0)))) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))))) + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4664647472%_))) - (let ((_%tl4677546936%_ + _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4664247465%_) - (let ((_%__splice7566775668%_ + _%tl4646747290%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4664247465%_ + _%tl4646747290%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) + (##vector-ref _%__splice7549275493%_ '0)))) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ + (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4664647472%_))) - (let ((_%tl4677546936%_ + _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4664247465%_) - (let ((_%__splice7566775668%_ + _%tl4646747290%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4664247465%_ + _%tl4646747290%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) (if (gx#stx-null? - _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4664647472%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4664647472%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4647147297%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4647147297%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4664247465%_) - (let ((_%__splice7566775668%_ + _%tl4646747290%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4664247465%_ + _%tl4646747290%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) (if (gx#stx-null? - _%tl4678046942%_) - (_%__match7595375954%_ - _%e4664147448%_ - _%hd4664047452%_ - _%tl4663947455%_ - _%e4664447458%_ - _%hd4664347462%_ - _%tl4664247465%_ - _%e4664747468%_ - _%hd4664647472%_ - _%tl4664547475%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + _%tl4660546767%_) + (_%__match7577875779%_ + _%e4646647273%_ + _%hd4646547277%_ + _%tl4646447280%_ + _%e4646947283%_ + _%hd4646847287%_ + _%tl4646747290%_ + _%e4647247293%_ + _%hd4647147297%_ + _%tl4647047300%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_)))))))) - (_%__match7571975720%_ - (lambda (_%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4661747654%_ - _%hd4661647658%_ - _%tl4661547661%_ - _%e4662047664%_ - _%hd4661947668%_ - _%tl4661847671%_ - _%e4662347674%_ - _%hd4662247678%_ - _%tl4662147681%_ - _%__splice7564775648%_ - _%target4662447684%_ - _%tl4662647687%_) - (letrec ((_%loop4662747690%_ - (lambda (_%hd4662547694%_ _%body4663147697%_) - (if (gx#stx-pair? _%hd4662547694%_) - (let ((_%e4662847700%_ - (gx#syntax-e _%hd4662547694%_))) - (let ((_%lp-tl4663047707%_ + (_%g4642446633%_)))))))) + (_%__match7554475545%_ + (lambda (_%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4644247479%_ + _%hd4644147483%_ + _%tl4644047486%_ + _%e4644547489%_ + _%hd4644447493%_ + _%tl4644347496%_ + _%e4644847499%_ + _%hd4644747503%_ + _%tl4644647506%_ + _%__splice7547275473%_ + _%target4644947509%_ + _%tl4645147512%_) + (letrec ((_%loop4645247515%_ + (lambda (_%hd4645047519%_ _%body4645647522%_) + (if (gx#stx-pair? _%hd4645047519%_) + (let ((_%e4645347525%_ + (gx#syntax-e _%hd4645047519%_))) + (let ((_%lp-tl4645547532%_ (let () (declare (not safe)) - (##cdr _%e4662847700%_))) - (_%lp-hd4662947704%_ + (##cdr _%e4645347525%_))) + (_%lp-hd4645447529%_ (let () (declare (not safe)) - (##car _%e4662847700%_)))) - (_%loop4662747690%_ - _%lp-tl4663047707%_ - (cons _%lp-hd4662947704%_ - _%body4663147697%_)))) - (let ((_%body4663247710%_ - (reverse _%body4663147697%_))) - (let ((_%L47714%_ _%body4663247710%_) - (_%L47716%_ _%hd4662247678%_) - (_%L47717%_ _%hd4661947668%_) - (_%L47718%_ _%hd4661647658%_) - (_%L47719%_ _%hd4661347648%_)) - (if (and (gx#identifier? _%L47719%_) - (gx#identifier? _%L47717%_) + (##car _%e4645347525%_)))) + (_%loop4645247515%_ + _%lp-tl4645547532%_ + (cons _%lp-hd4645447529%_ + _%body4645647522%_)))) + (let ((_%body4645747535%_ + (reverse _%body4645647522%_))) + (let ((_%L47539%_ _%body4645747535%_) + (_%L47541%_ _%hd4644747503%_) + (_%L47542%_ _%hd4644447493%_) + (_%L47543%_ _%hd4644147483%_) + (_%L47544%_ _%hd4643847473%_)) + (if (and (gx#identifier? _%L47544%_) + (gx#identifier? _%L47542%_) (or (gx#free-identifier=? - _%L47717%_ + _%L47542%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47717%_ + _%L47542%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47717%_ + _%L47542%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47717%_ + _%L47542%_ (gx#datum->syntax '#f ':~)) (gx#free-identifier=? - _%L47717%_ + _%L47542%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7564575646%_ - _%L47714%_ - _%L47716%_ - _%L47717%_ - _%L47718%_ - _%L47719%_) - (_%__match7574975750%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4661747654%_ - _%hd4661647658%_ - _%tl4661547661%_ - _%e4662047664%_ - _%hd4661947668%_ - _%tl4661847671%_)))))))) - (_%loop4662747690%_ _%target4662447684%_ '()))))) - (if (gx#stx-pair? _%__stx7564275643%_) - (let ((_%e4660847624%_ (gx#syntax-e _%__stx7564275643%_))) - (let ((_%tl4660647631%_ + (_%__kont7547075471%_ + _%L47539%_ + _%L47541%_ + _%L47542%_ + _%L47543%_ + _%L47544%_) + (_%__match7557475575%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4644247479%_ + _%hd4644147483%_ + _%tl4644047486%_ + _%e4644547489%_ + _%hd4644447493%_ + _%tl4644347496%_)))))))) + (_%loop4645247515%_ _%target4644947509%_ '()))))) + (if (gx#stx-pair? _%__stx7546775468%_) + (let ((_%e4643347449%_ (gx#syntax-e _%__stx7546775468%_))) + (let ((_%tl4643147456%_ (let () (declare (not safe)) - (##cdr _%e4660847624%_))) - (_%hd4660747628%_ + (##cdr _%e4643347449%_))) + (_%hd4643247453%_ (let () (declare (not safe)) - (##car _%e4660847624%_)))) - (if (gx#stx-pair? _%tl4660647631%_) - (let ((_%e4661147634%_ - (gx#syntax-e _%tl4660647631%_))) - (let ((_%tl4660947641%_ + (##car _%e4643347449%_)))) + (if (gx#stx-pair? _%tl4643147456%_) + (let ((_%e4643647459%_ + (gx#syntax-e _%tl4643147456%_))) + (let ((_%tl4643447466%_ (let () (declare (not safe)) - (##cdr _%e4661147634%_))) - (_%hd4661047638%_ + (##cdr _%e4643647459%_))) + (_%hd4643547463%_ (let () (declare (not safe)) - (##car _%e4661147634%_)))) - (if (gx#stx-pair? _%hd4661047638%_) - (let ((_%e4661447644%_ - (gx#syntax-e _%hd4661047638%_))) - (let ((_%tl4661247651%_ + (##car _%e4643647459%_)))) + (if (gx#stx-pair? _%hd4643547463%_) + (let ((_%e4643947469%_ + (gx#syntax-e _%hd4643547463%_))) + (let ((_%tl4643747476%_ (let () (declare (not safe)) - (##cdr _%e4661447644%_))) - (_%hd4661347648%_ + (##cdr _%e4643947469%_))) + (_%hd4643847473%_ (let () (declare (not safe)) - (##car _%e4661447644%_)))) - (if (gx#stx-pair? _%tl4661247651%_) - (let ((_%e4661747654%_ + (##car _%e4643947469%_)))) + (if (gx#stx-pair? _%tl4643747476%_) + (let ((_%e4644247479%_ (gx#syntax-e - _%tl4661247651%_))) - (let ((_%tl4661547661%_ + _%tl4643747476%_))) + (let ((_%tl4644047486%_ (let () (declare (not safe)) - (##cdr _%e4661747654%_))) - (_%hd4661647658%_ + (##cdr _%e4644247479%_))) + (_%hd4644147483%_ (let () (declare (not safe)) - (##car _%e4661747654%_)))) + (##car _%e4644247479%_)))) (if (gx#stx-pair? - _%tl4661547661%_) - (let ((_%e4662047664%_ + _%tl4644047486%_) + (let ((_%e4644547489%_ (gx#syntax-e - _%tl4661547661%_))) - (let ((_%tl4661847671%_ + _%tl4644047486%_))) + (let ((_%tl4644347496%_ (let () (declare (not safe)) - (##cdr _%e4662047664%_))) - (_%hd4661947668%_ + (##cdr _%e4644547489%_))) + (_%hd4644447493%_ (let () (declare (not safe)) - (##car _%e4662047664%_)))) + (##car _%e4644547489%_)))) (if (gx#stx-pair? - _%tl4661847671%_) - (let ((_%e4662347674%_ + _%tl4644347496%_) + (let ((_%e4644847499%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4661847671%_))) - (let ((_%tl4662147681%_ + (gx#syntax-e _%tl4644347496%_))) + (let ((_%tl4644647506%_ (let () (declare (not safe)) - (##cdr _%e4662347674%_))) - (_%hd4662247678%_ + (##cdr _%e4644847499%_))) + (_%hd4644747503%_ (let () (declare (not safe)) - (##car _%e4662347674%_)))) - (if (gx#stx-null? _%tl4662147681%_) - (if (gx#stx-pair/null? _%tl4660947641%_) - (let ((_%__splice7564775648%_ + (##car _%e4644847499%_)))) + (if (gx#stx-null? _%tl4644647506%_) + (if (gx#stx-pair/null? _%tl4643447466%_) + (let ((_%__splice7547275473%_ (gx#syntax-split-splice - _%tl4660947641%_ + _%tl4643447466%_ '0))) - (let ((_%tl4662647687%_ + (let ((_%tl4645147512%_ (let () (declare (not safe)) (##vector-ref - _%__splice7564775648%_ + _%__splice7547275473%_ '1))) - (_%target4662447684%_ + (_%target4644947509%_ (let () (declare (not safe)) (##vector-ref - _%__splice7564775648%_ + _%__splice7547275473%_ '0)))) - (if (gx#stx-null? _%tl4662647687%_) - (_%__match7571975720%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4661747654%_ - _%hd4661647658%_ - _%tl4661547661%_ - _%e4662047664%_ - _%hd4661947668%_ - _%tl4661847671%_ - _%e4662347674%_ - _%hd4662247678%_ - _%tl4662147681%_ - _%__splice7564775648%_ - _%target4662447684%_ - _%tl4662647687%_) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ + (if (gx#stx-null? _%tl4645147512%_) + (_%__match7554475545%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4644247479%_ + _%hd4644147483%_ + _%tl4644047486%_ + _%e4644547489%_ + _%hd4644447493%_ + _%tl4644347496%_ + _%e4644847499%_ + _%hd4644747503%_ + _%tl4644647506%_ + _%__splice7547275473%_ + _%target4644947509%_ + _%tl4645147512%_) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4661347648%_))) - (let ((_%tl4677546936%_ + _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))))) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))))) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#identifier? _%hd4661947668%_) + (_%g4642446633%_)))) + (if (gx#identifier? _%hd4644447493%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80706_| - _%hd4661947668%_) - (if (gx#stx-pair? _%tl4662147681%_) - (let ((_%e4665947508%_ - (gx#syntax-e _%tl4662147681%_))) - (let ((_%tl4665747515%_ + |gerbil/core/contract~Using[1]#_g80522_| + _%hd4644447493%_) + (if (gx#stx-pair? _%tl4644647506%_) + (let ((_%e4648447333%_ + (gx#syntax-e _%tl4644647506%_))) + (let ((_%tl4648247340%_ (let () (declare (not safe)) - (##cdr _%e4665947508%_))) - (_%hd4665847512%_ + (##cdr _%e4648447333%_))) + (_%hd4648347337%_ (let () (declare (not safe)) - (##car _%e4665947508%_)))) - (if (gx#stx-pair? _%tl4665747515%_) - (let ((_%e4666247518%_ + (##car _%e4648447333%_)))) + (if (gx#stx-pair? _%tl4648247340%_) + (let ((_%e4648747343%_ (gx#syntax-e - _%tl4665747515%_))) - (let ((_%tl4666047525%_ + _%tl4648247340%_))) + (let ((_%tl4648547350%_ (let () (declare (not safe)) - (##cdr _%e4666247518%_))) - (_%hd4666147522%_ + (##cdr _%e4648747343%_))) + (_%hd4648647347%_ (let () (declare (not safe)) - (##car _%e4666247518%_)))) + (##car _%e4648747343%_)))) (if (gx#stx-null? - _%tl4666047525%_) + _%tl4648547350%_) (if (gx#stx-pair/null? - _%tl4660947641%_) - (let ((_%__splice7565175652%_ + _%tl4643447466%_) + (let ((_%__splice7547675477%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4660947641%_ '0))) - (let ((_%tl4666547531%_ + (gx#syntax-split-splice _%tl4643447466%_ '0))) + (let ((_%tl4649047356%_ (let () (declare (not safe)) - (##vector-ref _%__splice7565175652%_ '1))) - (_%target4666347528%_ + (##vector-ref _%__splice7547675477%_ '1))) + (_%target4648847353%_ (let () (declare (not safe)) - (##vector-ref _%__splice7565175652%_ '0)))) - (if (gx#stx-null? _%tl4666547531%_) - (_%__match7578175782%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4661747654%_ - _%hd4661647658%_ - _%tl4661547661%_ - _%e4662047664%_ - _%hd4661947668%_ - _%tl4661847671%_ - _%e4662347674%_ - _%hd4662247678%_ - _%tl4662147681%_ - _%e4665947508%_ - _%hd4665847512%_ - _%tl4665747515%_ - _%e4666247518%_ - _%hd4666147522%_ - _%tl4666047525%_ - _%__splice7565175652%_ - _%target4666347528%_ - _%tl4666547531%_) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (##vector-ref _%__splice7547675477%_ '0)))) + (if (gx#stx-null? _%tl4649047356%_) + (_%__match7560675607%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4644247479%_ + _%hd4644147483%_ + _%tl4644047486%_ + _%e4644547489%_ + _%hd4644447493%_ + _%tl4644347496%_ + _%e4644847499%_ + _%hd4644747503%_ + _%tl4644647506%_ + _%e4648447333%_ + _%hd4648347337%_ + _%tl4648247340%_ + _%e4648747343%_ + _%hd4648647347%_ + _%tl4648547350%_ + _%__splice7547675477%_ + _%target4648847353%_ + _%tl4649047356%_) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))))) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))))) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (##car _%e4660246754%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4660947641%_) - (let ((_%__splice7566775668%_ - (gx#syntax-split-splice _%tl4660947641%_ '0))) - (let ((_%tl4678046942%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4643447466%_) + (let ((_%__splice7549275493%_ + (gx#syntax-split-splice _%tl4643447466%_ '0))) + (let ((_%tl4660546767%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))))) + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd4661647658%_) + _%hd4644147483%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80705_| - _%hd4661647658%_) + |gerbil/core/contract~Using[1]#_g80521_| + _%hd4644147483%_) (if (gx#stx-null? - _%tl4665747515%_) + _%tl4648247340%_) (if (gx#stx-pair/null? - _%tl4660947641%_) - (let ((_%__splice7566375664%_ + _%tl4643447466%_) + (let ((_%__splice7548875489%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4660947641%_ '0))) - (let ((_%tl4675547084%_ + (gx#syntax-split-splice _%tl4643447466%_ '0))) + (let ((_%tl4658046909%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566375664%_ '1))) - (_%target4675347081%_ + (##vector-ref _%__splice7548875489%_ '1))) + (_%target4657846906%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566375664%_ '0)))) - (if (gx#stx-null? _%tl4675547084%_) - (_%__match7592175922%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4661747654%_ - _%hd4661647658%_ - _%tl4661547661%_ - _%e4662047664%_ - _%hd4661947668%_ - _%tl4661847671%_ - _%e4662347674%_ - _%hd4662247678%_ - _%tl4662147681%_ - _%e4665947508%_ - _%hd4665847512%_ - _%tl4665747515%_ - _%__splice7566375664%_ - _%target4675347081%_ - _%tl4675547084%_) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (##vector-ref _%__splice7548875489%_ '0)))) + (if (gx#stx-null? _%tl4658046909%_) + (_%__match7574675747%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4644247479%_ + _%hd4644147483%_ + _%tl4644047486%_ + _%e4644547489%_ + _%hd4644447493%_ + _%tl4644347496%_ + _%e4644847499%_ + _%hd4644747503%_ + _%tl4644647506%_ + _%e4648447333%_ + _%hd4648347337%_ + _%tl4648247340%_ + _%__splice7548875489%_ + _%target4657846906%_ + _%tl4658046909%_) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))))) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))))) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (##car _%e4660246754%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4660947641%_) - (let ((_%__splice7566775668%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4643447466%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4660947641%_ + _%tl4643447466%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4660947641%_) - (let ((_%__splice7566775668%_ - (gx#syntax-split-splice _%tl4660947641%_ '0))) - (let ((_%tl4678046942%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4643447466%_) + (let ((_%__splice7549275493%_ + (gx#syntax-split-splice _%tl4643447466%_ '0))) + (let ((_%tl4660546767%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))) + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4661347648%_) - (let ((_%e4677746929%_ + _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4661347648%_))) - (let ((_%tl4677546936%_ + _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ - (let () (declare (not safe)) (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4660947641%_) - (let ((_%__splice7566775668%_ - (gx#syntax-split-splice _%tl4660947641%_ '0))) - (let ((_%tl4678046942%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ + (let () (declare (not safe)) (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4643447466%_) + (let ((_%__splice7549275493%_ + (gx#syntax-split-splice _%tl4643447466%_ '0))) + (let ((_%tl4660546767%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (##vector-ref _%__splice7549275493%_ '0)))) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))))) + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4661347648%_))) - (let ((_%tl4677546936%_ + _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4660947641%_) - (let ((_%__splice7566775668%_ + _%tl4643447466%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4660947641%_ + _%tl4643447466%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) (if (gx#stx-null? - _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#identifier? _%hd4661647658%_) + (_%g4642446633%_)))) + (if (gx#identifier? _%hd4644147483%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80705_| - _%hd4661647658%_) - (if (gx#stx-pair? _%tl4662147681%_) - (let ((_%e4675247071%_ + |gerbil/core/contract~Using[1]#_g80521_| + _%hd4644147483%_) + (if (gx#stx-pair? _%tl4644647506%_) + (let ((_%e4657746896%_ (gx#syntax-e - _%tl4662147681%_))) - (let ((_%tl4675047078%_ + _%tl4644647506%_))) + (let ((_%tl4657546903%_ (let () (declare (not safe)) - (##cdr _%e4675247071%_))) - (_%hd4675147075%_ + (##cdr _%e4657746896%_))) + (_%hd4657646900%_ (let () (declare (not safe)) - (##car _%e4675247071%_)))) + (##car _%e4657746896%_)))) (if (gx#stx-null? - _%tl4675047078%_) + _%tl4657546903%_) (if (gx#stx-pair/null? - _%tl4660947641%_) - (let ((_%__splice7566375664%_ + _%tl4643447466%_) + (let ((_%__splice7548875489%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4660947641%_ '0))) - (let ((_%tl4675547084%_ + (gx#syntax-split-splice _%tl4643447466%_ '0))) + (let ((_%tl4658046909%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566375664%_ '1))) - (_%target4675347081%_ + (##vector-ref _%__splice7548875489%_ '1))) + (_%target4657846906%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566375664%_ '0)))) - (if (gx#stx-null? _%tl4675547084%_) - (_%__match7592175922%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4661747654%_ - _%hd4661647658%_ - _%tl4661547661%_ - _%e4662047664%_ - _%hd4661947668%_ - _%tl4661847671%_ - _%e4662347674%_ - _%hd4662247678%_ - _%tl4662147681%_ - _%e4675247071%_ - _%hd4675147075%_ - _%tl4675047078%_ - _%__splice7566375664%_ - _%target4675347081%_ - _%tl4675547084%_) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (##vector-ref _%__splice7548875489%_ '0)))) + (if (gx#stx-null? _%tl4658046909%_) + (_%__match7574675747%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4644247479%_ + _%hd4644147483%_ + _%tl4644047486%_ + _%e4644547489%_ + _%hd4644447493%_ + _%tl4644347496%_ + _%e4644847499%_ + _%hd4644747503%_ + _%tl4644647506%_ + _%e4657746896%_ + _%hd4657646900%_ + _%tl4657546903%_ + _%__splice7548875489%_ + _%target4657846906%_ + _%tl4658046909%_) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))))) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))))) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (##car _%e4660246754%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4660947641%_) - (let ((_%__splice7566775668%_ - (gx#syntax-split-splice _%tl4660947641%_ '0))) - (let ((_%tl4678046942%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4643447466%_) + (let ((_%__splice7549275493%_ + (gx#syntax-split-splice _%tl4643447466%_ '0))) + (let ((_%tl4660546767%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))))) + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4661347648%_) - (let ((_%e4677746929%_ + _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4661347648%_))) - (let ((_%tl4677546936%_ + _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4660947641%_) - (let ((_%__splice7566775668%_ + _%tl4643447466%_) + (let ((_%__splice7549275493%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4660947641%_ '0))) - (let ((_%tl4678046942%_ + (gx#syntax-split-splice _%tl4643447466%_ '0))) + (let ((_%tl4660546767%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) + (##vector-ref _%__splice7549275493%_ '0)))) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ + (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4661347648%_))) - (let ((_%tl4677546936%_ + _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4660947641%_) - (let ((_%__splice7566775668%_ + _%tl4643447466%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4660947641%_ + _%tl4643447466%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) + (##vector-ref _%__splice7549275493%_ '0)))) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ + (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4661347648%_))) - (let ((_%tl4677546936%_ + _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4660947641%_) - (let ((_%__splice7566775668%_ + _%tl4643447466%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4660947641%_ + _%tl4643447466%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) (if (gx#stx-null? - _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) - (if (gx#identifier? _%hd4661647658%_) + (_%g4642446633%_))))) + (if (gx#identifier? _%hd4644147483%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80705_| - _%hd4661647658%_) - (if (gx#stx-pair? _%tl4662147681%_) - (let ((_%e4675247071%_ + |gerbil/core/contract~Using[1]#_g80521_| + _%hd4644147483%_) + (if (gx#stx-pair? _%tl4644647506%_) + (let ((_%e4657746896%_ (gx#syntax-e - _%tl4662147681%_))) - (let ((_%tl4675047078%_ + _%tl4644647506%_))) + (let ((_%tl4657546903%_ (let () (declare (not safe)) - (##cdr _%e4675247071%_))) - (_%hd4675147075%_ + (##cdr _%e4657746896%_))) + (_%hd4657646900%_ (let () (declare (not safe)) - (##car _%e4675247071%_)))) + (##car _%e4657746896%_)))) (if (gx#stx-null? - _%tl4675047078%_) + _%tl4657546903%_) (if (gx#stx-pair/null? - _%tl4660947641%_) - (let ((_%__splice7566375664%_ + _%tl4643447466%_) + (let ((_%__splice7548875489%_ (gx#syntax-split-splice - _%tl4660947641%_ + _%tl4643447466%_ '0))) - (let ((_%tl4675547084%_ + (let ((_%tl4658046909%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7566375664%_ '1))) - (_%target4675347081%_ + (##vector-ref _%__splice7548875489%_ '1))) + (_%target4657846906%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566375664%_ '0)))) - (if (gx#stx-null? _%tl4675547084%_) - (_%__match7592175922%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4661747654%_ - _%hd4661647658%_ - _%tl4661547661%_ - _%e4662047664%_ - _%hd4661947668%_ - _%tl4661847671%_ - _%e4662347674%_ - _%hd4662247678%_ - _%tl4662147681%_ - _%e4675247071%_ - _%hd4675147075%_ - _%tl4675047078%_ - _%__splice7566375664%_ - _%target4675347081%_ - _%tl4675547084%_) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (##vector-ref _%__splice7548875489%_ '0)))) + (if (gx#stx-null? _%tl4658046909%_) + (_%__match7574675747%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4644247479%_ + _%hd4644147483%_ + _%tl4644047486%_ + _%e4644547489%_ + _%hd4644447493%_ + _%tl4644347496%_ + _%e4644847499%_ + _%hd4644747503%_ + _%tl4644647506%_ + _%e4657746896%_ + _%hd4657646900%_ + _%tl4657546903%_ + _%__splice7548875489%_ + _%target4657846906%_ + _%tl4658046909%_) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))))) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (##car _%e4660246754%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))))) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) + (##car _%e4660246754%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4661347648%_) - (let ((_%e4677746929%_ + _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4661347648%_))) - (let ((_%tl4677546936%_ + _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ - (let () (declare (not safe)) (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4660947641%_) - (let ((_%__splice7566775668%_ - (gx#syntax-split-splice _%tl4660947641%_ '0))) - (let ((_%tl4678046942%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ + (let () (declare (not safe)) (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4643447466%_) + (let ((_%__splice7549275493%_ + (gx#syntax-split-splice _%tl4643447466%_ '0))) + (let ((_%tl4660546767%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (##vector-ref _%__splice7549275493%_ '0)))) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))))) + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4661347648%_))) - (let ((_%tl4677546936%_ + _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4660947641%_) - (let ((_%__splice7566775668%_ + _%tl4643447466%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4660947641%_ + _%tl4643447466%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) + (##vector-ref _%__splice7549275493%_ '0)))) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ + (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4661347648%_))) - (let ((_%tl4677546936%_ + _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4660947641%_) - (let ((_%__splice7566775668%_ + _%tl4643447466%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4660947641%_ + _%tl4643447466%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) (if (gx#stx-null? - _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4660947641%_) - (let ((_%__splice7566775668%_ + _%tl4643447466%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4660947641%_ + _%tl4643447466%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) (if (gx#stx-null? - _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_)))))))) - (if (gx#stx-null? _%tl4661847671%_) - (if (gx#stx-pair/null? _%tl4660947641%_) - (let ((_%__splice7565575656%_ - (gx#syntax-split-splice _%tl4660947641%_ '0))) - (let ((_%tl4669347348%_ + (_%g4642446633%_)))))))) + (if (gx#stx-null? _%tl4644347496%_) + (if (gx#stx-pair/null? _%tl4643447466%_) + (let ((_%__splice7548075481%_ + (gx#syntax-split-splice _%tl4643447466%_ '0))) + (let ((_%tl4651847173%_ (let () (declare (not safe)) - (##vector-ref _%__splice7565575656%_ '1))) - (_%target4669147345%_ + (##vector-ref _%__splice7548075481%_ '1))) + (_%target4651647170%_ (let () (declare (not safe)) (##vector-ref - _%__splice7565575656%_ + _%__splice7548075481%_ '0)))) - (if (gx#stx-null? _%tl4669347348%_) - (_%__match7582175822%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4661747654%_ - _%hd4661647658%_ - _%tl4661547661%_ - _%e4662047664%_ - _%hd4661947668%_ - _%tl4661847671%_ - _%__splice7565575656%_ - _%target4669147345%_ - _%tl4669347348%_) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (if (gx#stx-null? _%tl4651847173%_) + (_%__match7564675647%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4644247479%_ + _%hd4644147483%_ + _%tl4644047486%_ + _%e4644547489%_ + _%hd4644447493%_ + _%tl4644347496%_ + _%__splice7548075481%_ + _%target4651647170%_ + _%tl4651847173%_) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) + (_%g4642446633%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))))) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))))) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (let () (declare (not safe)) - (_%g4659946808%_)))) - (let () (declare (not safe)) (_%g4659946808%_)))) - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ - (gx#syntax-e _%hd4661347648%_))) - (let ((_%tl4677546936%_ + (_%g4642446633%_)))) + (let () (declare (not safe)) (_%g4642446633%_)))) + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ + (gx#syntax-e _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4660947641%_) - (let ((_%__splice7566775668%_ + (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4643447466%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4660947641%_ + _%tl4643447466%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '1))) - (_%target4677846939%_ + (_%target4660346764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7566775668%_ + _%__splice7549275493%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))))) + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4661347648%_) - (let ((_%e4677746929%_ + _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4661347648%_))) - (let ((_%tl4677546936%_ + _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ - (let () (declare (not safe)) (##car _%e4677746929%_)))) - (if (gx#stx-pair/null? _%tl4660947641%_) - (let ((_%__splice7566775668%_ - (gx#syntax-split-splice _%tl4660947641%_ '0))) - (let ((_%tl4678046942%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ + (let () (declare (not safe)) (##car _%e4660246754%_)))) + (if (gx#stx-pair/null? _%tl4643447466%_) + (let ((_%__splice7549275493%_ + (gx#syntax-split-splice _%tl4643447466%_ '0))) + (let ((_%tl4660546767%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) + (##vector-ref _%__splice7549275493%_ '0)))) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) (let () (declare (not safe)) - (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))))) + (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4661347648%_) - (let ((_%e4677746929%_ + (if (gx#stx-pair? _%hd4643847473%_) + (let ((_%e4660246754%_ (gx#syntax-e - _%hd4661347648%_))) - (let ((_%tl4677546936%_ + _%hd4643847473%_))) + (let ((_%tl4660046761%_ (let () (declare (not safe)) - (##cdr _%e4677746929%_))) - (_%hd4677646933%_ + (##cdr _%e4660246754%_))) + (_%hd4660146758%_ (let () (declare (not safe)) - (##car _%e4677746929%_)))) + (##car _%e4660246754%_)))) (if (gx#stx-pair/null? - _%tl4660947641%_) - (let ((_%__splice7566775668%_ + _%tl4643447466%_) + (let ((_%__splice7549275493%_ (gx#syntax-split-splice - _%tl4660947641%_ + _%tl4643447466%_ '0))) - (let ((_%tl4678046942%_ + (let ((_%tl4660546767%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '1))) - (_%target4677846939%_ + (##vector-ref _%__splice7549275493%_ '1))) + (_%target4660346764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7566775668%_ '0)))) - (if (gx#stx-null? _%tl4678046942%_) - (_%__match7595375954%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%e4661447644%_ - _%hd4661347648%_ - _%tl4661247651%_ - _%e4677746929%_ - _%hd4677646933%_ - _%tl4677546936%_ - _%__splice7566775668%_ - _%target4677846939%_ - _%tl4678046942%_) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_))))) + (##vector-ref _%__splice7549275493%_ '0)))) + (if (gx#stx-null? _%tl4660546767%_) + (_%__match7577875779%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%e4643947469%_ + _%hd4643847473%_ + _%tl4643747476%_ + _%e4660246754%_ + _%hd4660146758%_ + _%tl4660046761%_ + _%__splice7549275493%_ + _%target4660346764%_ + _%tl4660546767%_) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4659946808%_)))))) - (if (gx#stx-null? _%hd4661047638%_) - (if (gx#stx-pair/null? _%tl4660947641%_) - (let ((_%__splice7567175672%_ + (_%g4642446633%_)))))) + (if (gx#stx-null? _%hd4643547463%_) + (if (gx#stx-pair/null? _%tl4643447466%_) + (let ((_%__splice7549675497%_ (gx#syntax-split-splice - _%tl4660947641%_ + _%tl4643447466%_ '0))) - (let ((_%tl4679646838%_ + (let ((_%tl4662146663%_ (let () (declare (not safe)) (##vector-ref - _%__splice7567175672%_ + _%__splice7549675497%_ '1))) - (_%target4679446835%_ + (_%target4661946660%_ (let () (declare (not safe)) (##vector-ref - _%__splice7567175672%_ + _%__splice7549675497%_ '0)))) (if (gx#stx-null? - _%tl4679646838%_) - (_%__match7597575976%_ - _%e4660847624%_ - _%hd4660747628%_ - _%tl4660647631%_ - _%e4661147634%_ - _%hd4661047638%_ - _%tl4660947641%_ - _%__splice7567175672%_ - _%target4679446835%_ - _%tl4679646838%_) + _%tl4662146663%_) + (_%__match7580075801%_ + _%e4643347449%_ + _%hd4643247453%_ + _%tl4643147456%_ + _%e4643647459%_ + _%hd4643547463%_ + _%tl4643447466%_ + _%__splice7549675497%_ + _%target4661946660%_ + _%tl4662146663%_) (let () (declare (not safe)) - (_%g4659946808%_))))) + (_%g4642446633%_))))) (let () (declare (not safe)) - (_%g4659946808%_))) + (_%g4642446633%_))) (let () (declare (not safe)) - (_%g4659946808%_)))))) - (let () (declare (not safe)) (_%g4659946808%_))))) - (let () (declare (not safe)) (_%g4659946808%_)))))))) + (_%g4642446633%_)))))) + (let () (declare (not safe)) (_%g4642446633%_))))) + (let () (declare (not safe)) (_%g4642446633%_)))))))) (define |gerbil/core/contract~Using[:0:]#with-contract| - (lambda (_%$stx47782%_) - (let* ((_%g4778647820%_ - (lambda (_%g4778747816%_) + (lambda (_%$stx47607%_) + (let* ((_%g4761147645%_ + (lambda (_%g4761247641%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4778747816%_))) - (_%g4778547943%_ - (lambda (_%g4778747824%_) - (if (gx#stx-pair? _%g4778747824%_) - (let ((_%e4779347827%_ (gx#syntax-e _%g4778747824%_))) - (let ((_%hd4779247831%_ + _%g4761247641%_))) + (_%g4761047768%_ + (lambda (_%g4761247649%_) + (if (gx#stx-pair? _%g4761247649%_) + (let ((_%e4761847652%_ (gx#syntax-e _%g4761247649%_))) + (let ((_%hd4761747656%_ (let () (declare (not safe)) - (##car _%e4779347827%_))) - (_%tl4779147834%_ + (##car _%e4761847652%_))) + (_%tl4761647659%_ (let () (declare (not safe)) - (##cdr _%e4779347827%_)))) - (if (gx#stx-pair? _%tl4779147834%_) - (let ((_%e4779647837%_ - (gx#syntax-e _%tl4779147834%_))) - (let ((_%hd4779547841%_ + (##cdr _%e4761847652%_)))) + (if (gx#stx-pair? _%tl4761647659%_) + (let ((_%e4762147662%_ + (gx#syntax-e _%tl4761647659%_))) + (let ((_%hd4762047666%_ (let () (declare (not safe)) - (##car _%e4779647837%_))) - (_%tl4779447844%_ + (##car _%e4762147662%_))) + (_%tl4761947669%_ (let () (declare (not safe)) - (##cdr _%e4779647837%_)))) - (if (gx#stx-pair? _%hd4779547841%_) - (let ((_%e4779947847%_ - (gx#syntax-e _%hd4779547841%_))) - (let ((_%hd4779847851%_ + (##cdr _%e4762147662%_)))) + (if (gx#stx-pair? _%hd4762047666%_) + (let ((_%e4762447672%_ + (gx#syntax-e _%hd4762047666%_))) + (let ((_%hd4762347676%_ (let () (declare (not safe)) - (##car _%e4779947847%_))) - (_%tl4779747854%_ + (##car _%e4762447672%_))) + (_%tl4762247679%_ (let () (declare (not safe)) - (##cdr _%e4779947847%_)))) - (if (gx#stx-pair? _%tl4779747854%_) - (let ((_%e4780247857%_ + (##cdr _%e4762447672%_)))) + (if (gx#stx-pair? _%tl4762247679%_) + (let ((_%e4762747682%_ (gx#syntax-e - _%tl4779747854%_))) - (let ((_%hd4780147861%_ + _%tl4762247679%_))) + (let ((_%hd4762647686%_ (let () (declare (not safe)) - (##car _%e4780247857%_))) - (_%tl4780047864%_ + (##car _%e4762747682%_))) + (_%tl4762547689%_ (let () (declare (not safe)) - (##cdr _%e4780247857%_)))) + (##cdr _%e4762747682%_)))) (if (gx#identifier? - _%hd4780147861%_) + _%hd4762647686%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80707_| - _%hd4780147861%_) + |gerbil/core/contract~Using[1]#_g80523_| + _%hd4762647686%_) (if (gx#stx-pair? - _%tl4780047864%_) - (let ((_%e4780547867%_ + _%tl4762547689%_) + (let ((_%e4763047692%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4780047864%_))) - (let ((_%hd4780447871%_ + (gx#syntax-e _%tl4762547689%_))) + (let ((_%hd4762947696%_ (let () (declare (not safe)) - (##car _%e4780547867%_))) - (_%tl4780347874%_ + (##car _%e4763047692%_))) + (_%tl4762847699%_ (let () (declare (not safe)) - (##cdr _%e4780547867%_)))) - (if (gx#stx-null? _%tl4780347874%_) - (if (gx#stx-pair/null? _%tl4779447844%_) - (let ((_g80708_ + (##cdr _%e4763047692%_)))) + (if (gx#stx-null? _%tl4762847699%_) + (if (gx#stx-pair/null? _%tl4761947669%_) + (let ((_g80524_ (gx#syntax-split-splice - _%tl4779447844%_ + _%tl4761947669%_ '0))) (begin - (let ((_g80709_ + (let ((_g80525_ (let () (declare (not safe)) - (if (##values? _g80708_) - (##vector-length _g80708_) + (if (##values? _g80524_) + (##vector-length _g80524_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80709_ 2))) + (##fx= _g80525_ 2))) (error "Context expects 2 values" - _g80709_))) - (let ((_%target4780647877%_ + _g80525_))) + (let ((_%target4763147702%_ (let () (declare (not safe)) - (##vector-ref _g80708_ 0))) - (_%tl4780847880%_ + (##vector-ref _g80524_ 0))) + (_%tl4763347705%_ (let () (declare (not safe)) - (##vector-ref _g80708_ 1)))) - (if (gx#stx-null? _%tl4780847880%_) - (letrec ((_%loop4780947883%_ - (lambda (_%hd4780747887%_ - _%body4781347890%_) + (##vector-ref _g80524_ 1)))) + (if (gx#stx-null? _%tl4763347705%_) + (letrec ((_%loop4763447708%_ + (lambda (_%hd4763247712%_ + _%body4763847715%_) (if (gx#stx-pair? - _%hd4780747887%_) - (let ((_%e4781047893%_ + _%hd4763247712%_) + (let ((_%e4763547718%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd4780747887%_))) - (let ((_%lp-hd4781147897%_ + (gx#syntax-e _%hd4763247712%_))) + (let ((_%lp-hd4763647722%_ (let () (declare (not safe)) - (##car _%e4781047893%_))) - (_%lp-tl4781247900%_ + (##car _%e4763547718%_))) + (_%lp-tl4763747725%_ (let () (declare (not safe)) - (##cdr _%e4781047893%_)))) - (_%loop4780947883%_ - _%lp-tl4781247900%_ - (cons _%lp-hd4781147897%_ _%body4781347890%_)))) - (let ((_%body4781447903%_ (reverse _%body4781347890%_))) - ((lambda (_%L47907%_ _%L47909%_ _%L47910%_) - (if (gx#identifier? _%L47910%_) + (##cdr _%e4763547718%_)))) + (_%loop4763447708%_ + _%lp-tl4763747725%_ + (cons _%lp-hd4763647722%_ _%body4763847715%_)))) + (let ((_%body4763947728%_ (reverse _%body4763847715%_))) + ((lambda (_%L47732%_ _%L47734%_ _%L47735%_) + (if (gx#identifier? _%L47735%_) (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L47909%_ - (cons _%L47910%_ '())) + (cons (cons _%L47734%_ + (cons _%L47735%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4793447937%_ + (foldr (lambda (_%g4775947762%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4793547940%_) - (cons _%g4793447937%_ _%g4793547940%_)) + _%g4776047765%_) + (cons _%g4775947762%_ _%g4776047765%_)) '() - _%L47907%_))) + _%L47732%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'contract-violation!) - (cons _%L47910%_ + (cons _%L47735%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L47909%_ (cons _%L47910%_ '())))) + (cons _%L47734%_ (cons _%L47735%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (_%g4778647820%_ _%g4778747824%_))) - _%body4781447903%_ - _%hd4780447871%_ - _%hd4779847851%_)))))) + (_%g4761147645%_ _%g4761247649%_))) + _%body4763947728%_ + _%hd4762947696%_ + _%hd4762347676%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4780947883%_ - _%target4780647877%_ + (_%loop4763447708%_ + _%target4763147702%_ '())) - (_%g4778647820%_ - _%g4778747824%_))))) - (_%g4778647820%_ _%g4778747824%_)) - (_%g4778647820%_ _%g4778747824%_)))) - (_%g4778647820%_ _%g4778747824%_)) - (_%g4778647820%_ _%g4778747824%_)) - (_%g4778647820%_ _%g4778747824%_)))) + (_%g4761147645%_ + _%g4761247649%_))))) + (_%g4761147645%_ _%g4761247649%_)) + (_%g4761147645%_ _%g4761247649%_)))) + (_%g4761147645%_ _%g4761247649%_)) + (_%g4761147645%_ _%g4761247649%_)) + (_%g4761147645%_ _%g4761247649%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4778647820%_ - _%g4778747824%_)))) - (_%g4778647820%_ _%g4778747824%_)))) - (_%g4778647820%_ _%g4778747824%_)))) - (_%g4778647820%_ _%g4778747824%_))))) - (_%g4778547943%_ _%$stx47782%_)))) + (_%g4761147645%_ + _%g4761247649%_)))) + (_%g4761147645%_ _%g4761247649%_)))) + (_%g4761147645%_ _%g4761247649%_)))) + (_%g4761147645%_ _%g4761247649%_))))) + (_%g4761047768%_ _%$stx47607%_)))) (define |gerbil/core/contract~Using[1]#!class-slot-type| - (lambda (_%klass48510%_ _%slot48512%_) - (let ((_%$e48514%_ - (let ((__obj80538 _%klass48510%_)) + (lambda (_%klass48335%_ _%slot48337%_) + (let ((_%$e48339%_ + (let ((__obj80363 _%klass48335%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80538 + __obj80363 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj80538 '19 '#f '#f)) + (##unchecked-structure-ref __obj80363 '19 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80538 + __obj80363 'slot-types))))) - (if _%$e48514%_ - ((lambda (_%slot-types48518%_) - (assgetq _%slot48512%_ _%slot-types48518%_)) - _%$e48514%_) - (let () '#f))))) + (if _%$e48339%_ + ((lambda (_%slot-types48343%_) + (assgetq _%slot48337%_ _%slot-types48343%_)) + _%$e48339%_) + '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-default| - (lambda (_%klass48491%_ _%slot48493%_) - (let ((_%$e48495%_ - (let ((__obj80539 _%klass48491%_)) + (lambda (_%klass48316%_ _%slot48318%_) + (let ((_%$e48320%_ + (let ((__obj80364 _%klass48316%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80539 + __obj80364 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj80539 '20 '#f '#f)) + (##unchecked-structure-ref __obj80364 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80539 + __obj80364 'slot-defaults))))) - (if _%$e48495%_ - ((lambda (_%slot-defaults48499%_) - (let ((_%$e48502%_ - (assgetq _%slot48493%_ _%slot-defaults48499%_))) - (if _%$e48502%_ - (gx#syntax-local-introduce _%$e48502%_) - (let () '#f)))) - _%$e48495%_) - (let () '#f))))) + (if _%$e48320%_ + ((lambda (_%slot-defaults48324%_) + (let ((_%$e48327%_ + (assgetq _%slot48318%_ _%slot-defaults48324%_))) + (if _%$e48327%_ + (gx#syntax-local-introduce _%$e48327%_) + '#f))) + _%$e48320%_) + '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-contract| - (lambda (_%klass48472%_ _%slot48474%_) - (let ((_%$e48476%_ - (let ((__obj80540 _%klass48472%_)) + (lambda (_%klass48297%_ _%slot48299%_) + (let ((_%$e48301%_ + (let ((__obj80365 _%klass48297%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80540 + __obj80365 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj80540 '20 '#f '#f)) + (##unchecked-structure-ref __obj80365 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80540 + __obj80365 'slot-defaults))))) - (if _%$e48476%_ - ((lambda (_%slot-defaults48480%_) - (let ((_%$e48483%_ - (assgetq _%slot48474%_ _%slot-defaults48480%_))) - (if _%$e48483%_ - (gx#syntax-local-introduce _%$e48483%_) - (let () '#f)))) - _%$e48476%_) - (let () '#f))))) + (if _%$e48301%_ + ((lambda (_%slot-defaults48305%_) + (let ((_%$e48308%_ + (assgetq _%slot48299%_ _%slot-defaults48305%_))) + (if _%$e48308%_ + (gx#syntax-local-introduce _%$e48308%_) + '#f))) + _%$e48301%_) + '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-checked-method-contract?| - (lambda (_%klass48240%_ _%slot48242%_) - (let ((_%contract4824348245%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%klass48240%_ - _%slot48242%_)))) - (if _%contract4824348245%_ - (let* ((_%contract48249%_ _%contract4824348245%_) - (_%__stx7597875979%_ _%contract48249%_) - (_%g4825448291%_ + (lambda (_%klass48065%_ _%slot48067%_) + (let ((_%contract4806848070%_ + (|gerbil/core/contract~Using[1]#!class-slot-contract| + _%klass48065%_ + _%slot48067%_))) + (if _%contract4806848070%_ + (let* ((_%contract48074%_ _%contract4806848070%_) + (_%__stx7580375804%_ _%contract48074%_) + (_%g4807948116%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7597875979%_)))) - (let ((_%__kont7598175982%_ - (lambda (_%L48441%_ _%L48443%_) - (let ((__tmp80710 - (gx#free-identifier=? - _%L48443%_ - (gx#datum->syntax '#f ':-)))) - (declare (not safe)) - (not __tmp80710)))) - (_%__kont7598375984%_ - (lambda (_%L48381%_ _%L48383%_ _%L48384%_) - (let ((__tmp80711 - (gx#free-identifier=? - _%L48383%_ - (gx#datum->syntax '#f ':-)))) - (declare (not safe)) - (not __tmp80711)))) - (_%__kont7598575986%_ (lambda (_%L48318%_) '#f))) - (let* ((_%__match7603176032%_ - (lambda (_%e4826948341%_ - _%hd4826848345%_ - _%tl4826748348%_ - _%e4827248351%_ - _%hd4827148355%_ - _%tl4827048358%_ - _%e4827548361%_ - _%hd4827448365%_ - _%tl4827348368%_ - _%e4827848371%_ - _%hd4827748375%_ - _%tl4827648378%_) - (let ((_%L48381%_ _%hd4827748375%_) - (_%L48383%_ _%hd4827448365%_) - (_%L48384%_ _%hd4827148355%_)) - (if (and (gx#identifier? _%L48383%_) + _%__stx7580375804%_)))) + (let ((_%__kont7580675807%_ + (lambda (_%L48266%_ _%L48268%_) + (not (gx#free-identifier=? + _%L48268%_ + (gx#datum->syntax '#f ':-))))) + (_%__kont7580875809%_ + (lambda (_%L48206%_ _%L48208%_ _%L48209%_) + (not (gx#free-identifier=? + _%L48208%_ + (gx#datum->syntax '#f ':-))))) + (_%__kont7581075811%_ (lambda (_%L48143%_) '#f))) + (let* ((_%__match7585675857%_ + (lambda (_%e4809448166%_ + _%hd4809348170%_ + _%tl4809248173%_ + _%e4809748176%_ + _%hd4809648180%_ + _%tl4809548183%_ + _%e4810048186%_ + _%hd4809948190%_ + _%tl4809848193%_ + _%e4810348196%_ + _%hd4810248200%_ + _%tl4810148203%_) + (let ((_%L48206%_ _%hd4810248200%_) + (_%L48208%_ _%hd4809948190%_) + (_%L48209%_ _%hd4809648180%_)) + (if (and (gx#identifier? _%L48208%_) (or (gx#free-identifier=? - _%L48383%_ + _%L48208%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L48383%_ + _%L48208%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L48383%_ + _%L48208%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L48383%_ + _%L48208%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7598375984%_ - _%L48381%_ - _%L48383%_ - _%L48384%_) + (_%__kont7580875809%_ + _%L48206%_ + _%L48208%_ + _%L48209%_) (let () (declare (not safe)) - (_%g4825448291%_)))))) - (_%__match7600176002%_ - (lambda (_%e4826048421%_ - _%hd4825948425%_ - _%tl4825848428%_ - _%e4826348431%_ - _%hd4826248435%_ - _%tl4826148438%_) - (let ((_%L48441%_ _%hd4826248435%_) - (_%L48443%_ _%hd4825948425%_)) - (if (and (gx#identifier? _%L48443%_) + (_%g4807948116%_)))))) + (_%__match7582675827%_ + (lambda (_%e4808548246%_ + _%hd4808448250%_ + _%tl4808348253%_ + _%e4808848256%_ + _%hd4808748260%_ + _%tl4808648263%_) + (let ((_%L48266%_ _%hd4808748260%_) + (_%L48268%_ _%hd4808448250%_)) + (if (and (gx#identifier? _%L48268%_) (or (gx#free-identifier=? - _%L48443%_ + _%L48268%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L48443%_ + _%L48268%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L48443%_ + _%L48268%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L48443%_ + _%L48268%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7598175982%_ _%L48441%_ _%L48443%_) - (if (gx#identifier? _%hd4825948425%_) + (_%__kont7580675807%_ _%L48266%_ _%L48268%_) + (if (gx#identifier? _%hd4808448250%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80712_| - _%hd4825948425%_) - (_%__kont7598575986%_ - _%hd4826248435%_) + |gerbil/core/contract~Using[1]#_g80526_| + _%hd4808448250%_) + (_%__kont7581075811%_ + _%hd4808748260%_) (let () (declare (not safe)) - (_%g4825448291%_))) + (_%g4807948116%_))) (let () (declare (not safe)) - (_%g4825448291%_)))))))) - (if (gx#stx-pair? _%__stx7597875979%_) - (let ((_%e4826048421%_ - (gx#syntax-e _%__stx7597875979%_))) - (let ((_%tl4825848428%_ + (_%g4807948116%_)))))))) + (if (gx#stx-pair? _%__stx7580375804%_) + (let ((_%e4808548246%_ + (gx#syntax-e _%__stx7580375804%_))) + (let ((_%tl4808348253%_ (let () (declare (not safe)) - (##cdr _%e4826048421%_))) - (_%hd4825948425%_ + (##cdr _%e4808548246%_))) + (_%hd4808448250%_ (let () (declare (not safe)) - (##car _%e4826048421%_)))) - (if (gx#stx-pair? _%tl4825848428%_) - (let ((_%e4826348431%_ - (gx#syntax-e _%tl4825848428%_))) - (let ((_%tl4826148438%_ + (##car _%e4808548246%_)))) + (if (gx#stx-pair? _%tl4808348253%_) + (let ((_%e4808848256%_ + (gx#syntax-e _%tl4808348253%_))) + (let ((_%tl4808648263%_ (let () (declare (not safe)) - (##cdr _%e4826348431%_))) - (_%hd4826248435%_ + (##cdr _%e4808848256%_))) + (_%hd4808748260%_ (let () (declare (not safe)) - (##car _%e4826348431%_)))) - (if (gx#stx-null? _%tl4826148438%_) - (_%__match7600176002%_ - _%e4826048421%_ - _%hd4825948425%_ - _%tl4825848428%_ - _%e4826348431%_ - _%hd4826248435%_ - _%tl4826148438%_) - (if (gx#identifier? _%hd4825948425%_) + (##car _%e4808848256%_)))) + (if (gx#stx-null? _%tl4808648263%_) + (_%__match7582675827%_ + _%e4808548246%_ + _%hd4808448250%_ + _%tl4808348253%_ + _%e4808848256%_ + _%hd4808748260%_ + _%tl4808648263%_) + (if (gx#identifier? _%hd4808448250%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80712_| - _%hd4825948425%_) + |gerbil/core/contract~Using[1]#_g80526_| + _%hd4808448250%_) (if (gx#stx-pair? - _%tl4826148438%_) - (let ((_%e4827548361%_ + _%tl4808648263%_) + (let ((_%e4810048186%_ (gx#syntax-e - _%tl4826148438%_))) - (let ((_%tl4827348368%_ + _%tl4808648263%_))) + (let ((_%tl4809848193%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4827548361%_))) - (_%hd4827448365%_ - (let () (declare (not safe)) (##car _%e4827548361%_)))) - (if (gx#stx-pair? _%tl4827348368%_) - (let ((_%e4827848371%_ (gx#syntax-e _%tl4827348368%_))) - (let ((_%tl4827648378%_ + (##cdr _%e4810048186%_))) + (_%hd4809948190%_ + (let () (declare (not safe)) (##car _%e4810048186%_)))) + (if (gx#stx-pair? _%tl4809848193%_) + (let ((_%e4810348196%_ (gx#syntax-e _%tl4809848193%_))) + (let ((_%tl4810148203%_ (let () (declare (not safe)) - (##cdr _%e4827848371%_))) - (_%hd4827748375%_ + (##cdr _%e4810348196%_))) + (_%hd4810248200%_ (let () (declare (not safe)) - (##car _%e4827848371%_)))) - (if (gx#stx-null? _%tl4827648378%_) - (_%__match7603176032%_ - _%e4826048421%_ - _%hd4825948425%_ - _%tl4825848428%_ - _%e4826348431%_ - _%hd4826248435%_ - _%tl4826148438%_ - _%e4827548361%_ - _%hd4827448365%_ - _%tl4827348368%_ - _%e4827848371%_ - _%hd4827748375%_ - _%tl4827648378%_) - (let () (declare (not safe)) (_%g4825448291%_))))) - (let () (declare (not safe)) (_%g4825448291%_))))) + (##car _%e4810348196%_)))) + (if (gx#stx-null? _%tl4810148203%_) + (_%__match7585675857%_ + _%e4808548246%_ + _%hd4808448250%_ + _%tl4808348253%_ + _%e4808848256%_ + _%hd4808748260%_ + _%tl4808648263%_ + _%e4810048186%_ + _%hd4809948190%_ + _%tl4809848193%_ + _%e4810348196%_ + _%hd4810248200%_ + _%tl4810148203%_) + (let () (declare (not safe)) (_%g4807948116%_))))) + (let () (declare (not safe)) (_%g4807948116%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4825448291%_))) + (_%g4807948116%_))) (let () (declare (not safe)) - (_%g4825448291%_))) + (_%g4807948116%_))) (let () (declare (not safe)) - (_%g4825448291%_)))))) + (_%g4807948116%_)))))) (let () (declare (not safe)) - (_%g4825448291%_))))) - (let () (declare (not safe)) (_%g4825448291%_)))))) + (_%g4807948116%_))))) + (let () (declare (not safe)) (_%g4807948116%_)))))) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-checked-mutator-contract?| - (lambda (_%klass48008%_ _%slot48010%_) - (let ((_%contract4801148013%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%klass48008%_ - _%slot48010%_)))) - (if _%contract4801148013%_ - (let* ((_%contract48017%_ _%contract4801148013%_) - (_%__stx7605276053%_ _%contract48017%_) - (_%g4802248059%_ + (lambda (_%klass47833%_ _%slot47835%_) + (let ((_%contract4783647838%_ + (|gerbil/core/contract~Using[1]#!class-slot-contract| + _%klass47833%_ + _%slot47835%_))) + (if _%contract4783647838%_ + (let* ((_%contract47842%_ _%contract4783647838%_) + (_%__stx7587775878%_ _%contract47842%_) + (_%g4784747884%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7605276053%_)))) - (let ((_%__kont7605576056%_ - (lambda (_%L48209%_ _%L48211%_) - (let ((__tmp80713 - (gx#free-identifier=? - _%L48211%_ - (gx#datum->syntax '#f ':-)))) - (declare (not safe)) - (not __tmp80713)))) - (_%__kont7605776058%_ - (lambda (_%L48149%_ _%L48151%_ _%L48152%_) '#t)) - (_%__kont7605976060%_ (lambda (_%L48086%_) '#t))) - (let* ((_%__match7610576106%_ - (lambda (_%e4803748109%_ - _%hd4803648113%_ - _%tl4803548116%_ - _%e4804048119%_ - _%hd4803948123%_ - _%tl4803848126%_ - _%e4804348129%_ - _%hd4804248133%_ - _%tl4804148136%_ - _%e4804648139%_ - _%hd4804548143%_ - _%tl4804448146%_) - (let ((_%L48149%_ _%hd4804548143%_) - (_%L48151%_ _%hd4804248133%_) - (_%L48152%_ _%hd4803948123%_)) - (if (and (gx#identifier? _%L48151%_) + _%__stx7587775878%_)))) + (let ((_%__kont7588075881%_ + (lambda (_%L48034%_ _%L48036%_) + (not (gx#free-identifier=? + _%L48036%_ + (gx#datum->syntax '#f ':-))))) + (_%__kont7588275883%_ + (lambda (_%L47974%_ _%L47976%_ _%L47977%_) '#t)) + (_%__kont7588475885%_ (lambda (_%L47911%_) '#t))) + (let* ((_%__match7593075931%_ + (lambda (_%e4786247934%_ + _%hd4786147938%_ + _%tl4786047941%_ + _%e4786547944%_ + _%hd4786447948%_ + _%tl4786347951%_ + _%e4786847954%_ + _%hd4786747958%_ + _%tl4786647961%_ + _%e4787147964%_ + _%hd4787047968%_ + _%tl4786947971%_) + (let ((_%L47974%_ _%hd4787047968%_) + (_%L47976%_ _%hd4786747958%_) + (_%L47977%_ _%hd4786447948%_)) + (if (and (gx#identifier? _%L47976%_) (or (gx#free-identifier=? - _%L48151%_ + _%L47976%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L48151%_ + _%L47976%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L48151%_ + _%L47976%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L48151%_ + _%L47976%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7605776058%_ - _%L48149%_ - _%L48151%_ - _%L48152%_) + (_%__kont7588275883%_ + _%L47974%_ + _%L47976%_ + _%L47977%_) (let () (declare (not safe)) - (_%g4802248059%_)))))) - (_%__match7607576076%_ - (lambda (_%e4802848189%_ - _%hd4802748193%_ - _%tl4802648196%_ - _%e4803148199%_ - _%hd4803048203%_ - _%tl4802948206%_) - (let ((_%L48209%_ _%hd4803048203%_) - (_%L48211%_ _%hd4802748193%_)) - (if (and (gx#identifier? _%L48211%_) + (_%g4784747884%_)))))) + (_%__match7590075901%_ + (lambda (_%e4785348014%_ + _%hd4785248018%_ + _%tl4785148021%_ + _%e4785648024%_ + _%hd4785548028%_ + _%tl4785448031%_) + (let ((_%L48034%_ _%hd4785548028%_) + (_%L48036%_ _%hd4785248018%_)) + (if (and (gx#identifier? _%L48036%_) (or (gx#free-identifier=? - _%L48211%_ + _%L48036%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L48211%_ + _%L48036%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L48211%_ + _%L48036%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L48211%_ + _%L48036%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7605576056%_ _%L48209%_ _%L48211%_) - (if (gx#identifier? _%hd4802748193%_) + (_%__kont7588075881%_ _%L48034%_ _%L48036%_) + (if (gx#identifier? _%hd4785248018%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80714_| - _%hd4802748193%_) - (_%__kont7605976060%_ - _%hd4803048203%_) + |gerbil/core/contract~Using[1]#_g80527_| + _%hd4785248018%_) + (_%__kont7588475885%_ + _%hd4785548028%_) (let () (declare (not safe)) - (_%g4802248059%_))) + (_%g4784747884%_))) (let () (declare (not safe)) - (_%g4802248059%_)))))))) - (if (gx#stx-pair? _%__stx7605276053%_) - (let ((_%e4802848189%_ - (gx#syntax-e _%__stx7605276053%_))) - (let ((_%tl4802648196%_ + (_%g4784747884%_)))))))) + (if (gx#stx-pair? _%__stx7587775878%_) + (let ((_%e4785348014%_ + (gx#syntax-e _%__stx7587775878%_))) + (let ((_%tl4785148021%_ (let () (declare (not safe)) - (##cdr _%e4802848189%_))) - (_%hd4802748193%_ + (##cdr _%e4785348014%_))) + (_%hd4785248018%_ (let () (declare (not safe)) - (##car _%e4802848189%_)))) - (if (gx#stx-pair? _%tl4802648196%_) - (let ((_%e4803148199%_ - (gx#syntax-e _%tl4802648196%_))) - (let ((_%tl4802948206%_ + (##car _%e4785348014%_)))) + (if (gx#stx-pair? _%tl4785148021%_) + (let ((_%e4785648024%_ + (gx#syntax-e _%tl4785148021%_))) + (let ((_%tl4785448031%_ (let () (declare (not safe)) - (##cdr _%e4803148199%_))) - (_%hd4803048203%_ + (##cdr _%e4785648024%_))) + (_%hd4785548028%_ (let () (declare (not safe)) - (##car _%e4803148199%_)))) - (if (gx#stx-null? _%tl4802948206%_) - (_%__match7607576076%_ - _%e4802848189%_ - _%hd4802748193%_ - _%tl4802648196%_ - _%e4803148199%_ - _%hd4803048203%_ - _%tl4802948206%_) - (if (gx#identifier? _%hd4802748193%_) + (##car _%e4785648024%_)))) + (if (gx#stx-null? _%tl4785448031%_) + (_%__match7590075901%_ + _%e4785348014%_ + _%hd4785248018%_ + _%tl4785148021%_ + _%e4785648024%_ + _%hd4785548028%_ + _%tl4785448031%_) + (if (gx#identifier? _%hd4785248018%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80714_| - _%hd4802748193%_) + |gerbil/core/contract~Using[1]#_g80527_| + _%hd4785248018%_) (if (gx#stx-pair? - _%tl4802948206%_) - (let ((_%e4804348129%_ + _%tl4785448031%_) + (let ((_%e4786847954%_ (gx#syntax-e - _%tl4802948206%_))) - (let ((_%tl4804148136%_ + _%tl4785448031%_))) + (let ((_%tl4786647961%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4804348129%_))) - (_%hd4804248133%_ - (let () (declare (not safe)) (##car _%e4804348129%_)))) - (if (gx#stx-pair? _%tl4804148136%_) - (let ((_%e4804648139%_ (gx#syntax-e _%tl4804148136%_))) - (let ((_%tl4804448146%_ + (##cdr _%e4786847954%_))) + (_%hd4786747958%_ + (let () (declare (not safe)) (##car _%e4786847954%_)))) + (if (gx#stx-pair? _%tl4786647961%_) + (let ((_%e4787147964%_ (gx#syntax-e _%tl4786647961%_))) + (let ((_%tl4786947971%_ (let () (declare (not safe)) - (##cdr _%e4804648139%_))) - (_%hd4804548143%_ + (##cdr _%e4787147964%_))) + (_%hd4787047968%_ (let () (declare (not safe)) - (##car _%e4804648139%_)))) - (if (gx#stx-null? _%tl4804448146%_) - (_%__match7610576106%_ - _%e4802848189%_ - _%hd4802748193%_ - _%tl4802648196%_ - _%e4803148199%_ - _%hd4803048203%_ - _%tl4802948206%_ - _%e4804348129%_ - _%hd4804248133%_ - _%tl4804148136%_ - _%e4804648139%_ - _%hd4804548143%_ - _%tl4804448146%_) - (let () (declare (not safe)) (_%g4802248059%_))))) - (let () (declare (not safe)) (_%g4802248059%_))))) + (##car _%e4787147964%_)))) + (if (gx#stx-null? _%tl4786947971%_) + (_%__match7593075931%_ + _%e4785348014%_ + _%hd4785248018%_ + _%tl4785148021%_ + _%e4785648024%_ + _%hd4785548028%_ + _%tl4785448031%_ + _%e4786847954%_ + _%hd4786747958%_ + _%tl4786647961%_ + _%e4787147964%_ + _%hd4787047968%_ + _%tl4786947971%_) + (let () (declare (not safe)) (_%g4784747884%_))))) + (let () (declare (not safe)) (_%g4784747884%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4802248059%_))) + (_%g4784747884%_))) (let () (declare (not safe)) - (_%g4802248059%_))) + (_%g4784747884%_))) (let () (declare (not safe)) - (_%g4802248059%_)))))) + (_%g4784747884%_)))))) (let () (declare (not safe)) - (_%g4802248059%_))))) - (let () (declare (not safe)) (_%g4802248059%_)))))) + (_%g4784747884%_))))) + (let () (declare (not safe)) (_%g4784747884%_)))))) '#f)))) (define |gerbil/core/contract~Using[1]#dotted-identifier?| - (lambda (_%id47994%_) - (if (gx#identifier? _%id47994%_) - (let* ((_%str47997%_ (symbol->string (gx#stx-e _%id47994%_))) - (_%index4799948001%_ (string-index _%str47997%_ '#\.))) - (if _%index4799948001%_ - (let ((_%index48005%_ _%index4799948001%_)) - (if (let () (declare (not safe)) (##fx> _%index48005%_ '0)) - (let ((__tmp80715 - (ormap string-empty? - (string-split _%str47997%_ '#\.)))) - (declare (not safe)) - (not __tmp80715)) + (lambda (_%id47819%_) + (if (gx#identifier? _%id47819%_) + (let* ((_%str47822%_ (symbol->string (gx#stx-e _%id47819%_))) + (_%index4782447826%_ (string-index _%str47822%_ '#\.))) + (if _%index4782447826%_ + (let ((_%index47830%_ _%index4782447826%_)) + (if (let () (declare (not safe)) (##fx> _%index47830%_ '0)) + (not (ormap string-empty? + (string-split _%str47822%_ '#\.))) '#f)) '#f)) '#f))) (define |gerbil/core/contract~Using[1]#split-dotted-identifier| - (lambda (_%stx47987%_ _%id47989%_) - (let ((_%parts47991%_ - (string-split (symbol->string (gx#stx-e _%id47989%_)) '#\.))) - (if (find string-empty? _%parts47991%_) + (lambda (_%stx47812%_ _%id47814%_) + (let ((_%parts47816%_ + (string-split (symbol->string (gx#stx-e _%id47814%_)) '#\.))) + (if (find string-empty? _%parts47816%_) (gx#raise-syntax-error '#f '"bad dotted identifier" - _%stx47987%_ - _%id47989%_) - (cons (gx#stx-identifier _%id47989%_ (car _%parts47991%_)) - (map string->symbol (cdr _%parts47991%_))))))) + _%stx47812%_ + _%id47814%_) + (cons (gx#stx-identifier _%id47814%_ (car _%parts47816%_)) + (map string->symbol (cdr _%parts47816%_))))))) (define |gerbil/core/contract~Using[1]#get-slot-accessor| - (lambda (_%stx47968%_ _%klass-or-id47970%_ _%slot47971%_) - (let* ((_%klass47973%_ - (if (gx#identifier? _%klass-or-id47970%_) + (lambda (_%stx47793%_ _%klass-or-id47795%_ _%slot47796%_) + (let* ((_%klass47798%_ + (if (gx#identifier? _%klass-or-id47795%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx47968%_ - _%klass-or-id47970%_)) - _%klass-or-id47970%_)) - (_%accessors47976%_ - (let ((__obj80541 _%klass47973%_)) + _%stx47793%_ + _%klass-or-id47795%_)) + _%klass-or-id47795%_)) + (_%accessors47801%_ + (let ((__obj80366 _%klass47798%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80541 + __obj80366 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj80541 '17 '#f '#f)) + (##unchecked-structure-ref __obj80366 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80541 + __obj80366 'unchecked-accessors)))) - (_%$e47981%_ (assgetq _%slot47971%_ _%accessors47976%_))) - (if _%$e47981%_ - _%$e47981%_ - (let () - (gx#raise-syntax-error - '#f - '"no accessor for slot" - _%stx47968%_ - _%klass47973%_ - _%slot47971%_)))))) + (_%$e47806%_ (assgetq _%slot47796%_ _%accessors47801%_))) + (if _%$e47806%_ + _%$e47806%_ + (gx#raise-syntax-error + '#f + '"no accessor for slot" + _%stx47793%_ + _%klass47798%_ + _%slot47796%_))))) (define |gerbil/core/contract~Using[1]#get-slot-mutator| - (lambda (_%stx47948%_ - _%klass-or-id47950%_ - _%slot47951%_ - _%checked?47952%_) - (let* ((_%klass47954%_ - (if (gx#identifier? _%klass-or-id47950%_) + (lambda (_%stx47773%_ + _%klass-or-id47775%_ + _%slot47776%_ + _%checked?47777%_) + (let* ((_%klass47779%_ + (if (gx#identifier? _%klass-or-id47775%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx47948%_ - _%klass-or-id47950%_)) - _%klass-or-id47950%_)) - (_%mutators47957%_ - (if _%checked?47952%_ - (let ((__obj80542 _%klass47954%_)) + _%stx47773%_ + _%klass-or-id47775%_)) + _%klass-or-id47775%_)) + (_%mutators47782%_ + (if _%checked?47777%_ + (let ((__obj80367 _%klass47779%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80542 + __obj80367 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj80542 '16 '#f '#f)) + (##unchecked-structure-ref __obj80367 '16 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80542 + __obj80367 'mutators))) - (let ((__obj80543 _%klass47954%_)) + (let ((__obj80368 _%klass47779%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80543 + __obj80368 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj80543 '18 '#f '#f)) + (##unchecked-structure-ref __obj80368 '18 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80543 + __obj80368 'unchecked-mutators))))) - (_%$e47962%_ (assgetq _%slot47951%_ _%mutators47957%_))) - (if _%$e47962%_ - _%$e47962%_ - (let () - (gx#raise-syntax-error - '#f - '"no mutator for slot" - _%stx47948%_ - _%klass47954%_ - _%slot47951%_)))))) + (_%$e47787%_ (assgetq _%slot47776%_ _%mutators47782%_))) + (if _%$e47787%_ + _%$e47787%_ + (gx#raise-syntax-error + '#f + '"no mutator for slot" + _%stx47773%_ + _%klass47779%_ + _%slot47776%_))))) (define |gerbil/core/contract~Using[:0:]#with-class| - (lambda (_%stx48523%_) - (letrec ((_%expand-body48526%_ - (lambda (_%klass49250%_ - _%var49252%_ - _%Type49253%_ - _%body49254%_ - _%checked?49255%_) - (let* ((_%g4925749301%_ - (lambda (_%g4925849297%_) + (lambda (_%stx48348%_) + (letrec ((_%expand-body48351%_ + (lambda (_%klass49075%_ + _%var49077%_ + _%Type49078%_ + _%body49079%_ + _%checked?49080%_) + (let* ((_%g4908249126%_ + (lambda (_%g4908349122%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4925849297%_))) - (_%g4925649458%_ - (lambda (_%g4925849305%_) - (if (gx#stx-pair? _%g4925849305%_) - (let ((_%e4926849308%_ - (gx#syntax-e _%g4925849305%_))) - (let ((_%hd4926749312%_ + _%g4908349122%_))) + (_%g4908149283%_ + (lambda (_%g4908349130%_) + (if (gx#stx-pair? _%g4908349130%_) + (let ((_%e4909349133%_ + (gx#syntax-e _%g4908349130%_))) + (let ((_%hd4909249137%_ (let () (declare (not safe)) - (##car _%e4926849308%_))) - (_%tl4926649315%_ + (##car _%e4909349133%_))) + (_%tl4909149140%_ (let () (declare (not safe)) - (##cdr _%e4926849308%_)))) - (if (gx#stx-pair? _%tl4926649315%_) - (let ((_%e4927149318%_ + (##cdr _%e4909349133%_)))) + (if (gx#stx-pair? _%tl4909149140%_) + (let ((_%e4909649143%_ (gx#syntax-e - _%tl4926649315%_))) - (let ((_%hd4927049322%_ + _%tl4909149140%_))) + (let ((_%hd4909549147%_ (let () (declare (not safe)) - (##car _%e4927149318%_))) - (_%tl4926949325%_ + (##car _%e4909649143%_))) + (_%tl4909449150%_ (let () (declare (not safe)) - (##cdr _%e4927149318%_)))) + (##cdr _%e4909649143%_)))) (if (gx#stx-pair? - _%tl4926949325%_) - (let ((_%e4927449328%_ + _%tl4909449150%_) + (let ((_%e4909949153%_ (gx#syntax-e - _%tl4926949325%_))) - (let ((_%hd4927349332%_ + _%tl4909449150%_))) + (let ((_%hd4909849157%_ (let () (declare (not safe)) - (##car _%e4927449328%_))) - (_%tl4927249335%_ + (##car _%e4909949153%_))) + (_%tl4909749160%_ (let () (declare (not safe)) - (##cdr _%e4927449328%_)))) + (##cdr _%e4909949153%_)))) (if (gx#stx-pair? - _%tl4927249335%_) - (let ((_%e4927749338%_ + _%tl4909749160%_) + (let ((_%e4910249163%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4927249335%_))) - (let ((_%hd4927649342%_ + (gx#syntax-e _%tl4909749160%_))) + (let ((_%hd4910149167%_ (let () (declare (not safe)) - (##car _%e4927749338%_))) - (_%tl4927549345%_ + (##car _%e4910249163%_))) + (_%tl4910049170%_ (let () (declare (not safe)) - (##cdr _%e4927749338%_)))) - (if (gx#stx-pair? _%tl4927549345%_) - (let ((_%e4928049348%_ - (gx#syntax-e _%tl4927549345%_))) - (let ((_%hd4927949352%_ + (##cdr _%e4910249163%_)))) + (if (gx#stx-pair? _%tl4910049170%_) + (let ((_%e4910549173%_ + (gx#syntax-e _%tl4910049170%_))) + (let ((_%hd4910449177%_ (let () (declare (not safe)) - (##car _%e4928049348%_))) - (_%tl4927849355%_ + (##car _%e4910549173%_))) + (_%tl4910349180%_ (let () (declare (not safe)) - (##cdr _%e4928049348%_)))) - (if (gx#stx-pair? _%tl4927849355%_) - (let ((_%e4928349358%_ - (gx#syntax-e _%tl4927849355%_))) - (let ((_%hd4928249362%_ + (##cdr _%e4910549173%_)))) + (if (gx#stx-pair? _%tl4910349180%_) + (let ((_%e4910849183%_ + (gx#syntax-e _%tl4910349180%_))) + (let ((_%hd4910749187%_ (let () (declare (not safe)) - (##car _%e4928349358%_))) - (_%tl4928149365%_ + (##car _%e4910849183%_))) + (_%tl4910649190%_ (let () (declare (not safe)) - (##cdr _%e4928349358%_)))) - (if (gx#stx-pair? _%tl4928149365%_) - (let ((_%e4928649368%_ + (##cdr _%e4910849183%_)))) + (if (gx#stx-pair? _%tl4910649190%_) + (let ((_%e4911149193%_ (gx#syntax-e - _%tl4928149365%_))) - (let ((_%hd4928549372%_ + _%tl4910649190%_))) + (let ((_%hd4911049197%_ (let () (declare (not safe)) - (##car _%e4928649368%_))) - (_%tl4928449375%_ + (##car _%e4911149193%_))) + (_%tl4910949200%_ (let () (declare (not safe)) - (##cdr _%e4928649368%_)))) + (##cdr _%e4911149193%_)))) (if (gx#stx-pair/null? - _%hd4928549372%_) - (let ((_g80716_ + _%hd4911049197%_) + (let ((_g80528_ (gx#syntax-split-splice - _%hd4928549372%_ + _%hd4911049197%_ '0))) (begin - (let ((_g80717_ + (let ((_g80529_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g80716_) - (##vector-length _g80716_) + (if (##values? _g80528_) + (##vector-length _g80528_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g80717_ 2))) - (error "Context expects 2 values" _g80717_))) - (let ((_%target4928749378%_ - (let () (declare (not safe)) (##vector-ref _g80716_ 0))) - (_%tl4928949381%_ - (let () (declare (not safe)) (##vector-ref _g80716_ 1)))) - (if (gx#stx-null? _%tl4928949381%_) - (letrec ((_%loop4929049384%_ - (lambda (_%hd4928849388%_ _%body4929449391%_) - (if (gx#stx-pair? _%hd4928849388%_) - (let ((_%e4929149394%_ - (gx#syntax-e _%hd4928849388%_))) - (let ((_%lp-hd4929249398%_ + (if (not (let () (declare (not safe)) (##fx= _g80529_ 2))) + (error "Context expects 2 values" _g80529_))) + (let ((_%target4911249203%_ + (let () (declare (not safe)) (##vector-ref _g80528_ 0))) + (_%tl4911449206%_ + (let () (declare (not safe)) (##vector-ref _g80528_ 1)))) + (if (gx#stx-null? _%tl4911449206%_) + (letrec ((_%loop4911549209%_ + (lambda (_%hd4911349213%_ _%body4911949216%_) + (if (gx#stx-pair? _%hd4911349213%_) + (let ((_%e4911649219%_ + (gx#syntax-e _%hd4911349213%_))) + (let ((_%lp-hd4911749223%_ (let () (declare (not safe)) - (##car _%e4929149394%_))) - (_%lp-tl4929349401%_ + (##car _%e4911649219%_))) + (_%lp-tl4911849226%_ (let () (declare (not safe)) - (##cdr _%e4929149394%_)))) - (_%loop4929049384%_ - _%lp-tl4929349401%_ - (cons _%lp-hd4929249398%_ - _%body4929449391%_)))) - (let ((_%body4929549404%_ - (reverse _%body4929449391%_))) - (if (gx#stx-null? _%tl4928449375%_) - ((lambda (_%L49408%_ - _%L49410%_ - _%L49411%_ - _%L49412%_ - _%L49413%_ - _%L49414%_ - _%L49415%_) - (let () - (cons (gx#datum->syntax - '#f - 'let) - (cons (cons _%L49413%_ + (##cdr _%e4911649219%_)))) + (_%loop4911549209%_ + _%lp-tl4911849226%_ + (cons _%lp-hd4911749223%_ + _%body4911949216%_)))) + (let ((_%body4912049229%_ + (reverse _%body4911949216%_))) + (if (gx#stx-null? _%tl4910949200%_) + ((lambda (_%L49233%_ + _%L49235%_ + _%L49236%_ + _%L49237%_ + _%L49238%_ + _%L49239%_ + _%L49240%_) + (cons (gx#datum->syntax '#f 'let) + (cons (cons _%L49238%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L49414%_ '())) - (cons _%L49413%_ '()))) - '())) - (cons (cons (gx#datum->syntax '#f 'let-syntax) - (cons (cons (cons _%L49415%_ - (cons (cons (gx#datum->syntax - '#f - 'make-type-env) - (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax '#f '@type) + (cons _%L49239%_ '())) + (cons _%L49238%_ '()))) + '())) + (cons (cons (gx#datum->syntax '#f 'let-syntax) + (cons (cons (cons _%L49240%_ + (cons (cons (gx#datum->syntax + '#f + 'make-type-env) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote-syntax) - (cons _%L49413%_ '())) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L49412%_ '())) - (cons _%L49411%_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L49410%_ '())) - '()))))) - '())) + '#f + 'quote-syntax) + (cons _%L49238%_ '())) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L49237%_ '())) + (cons _%L49236%_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L49235%_ '())) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - (cons (cons (gx#datum->syntax '#f 'let) - (cons '() - (foldr (lambda (_%g4944949452%_ + '())) + '()) + (cons (cons (gx#datum->syntax '#f 'let) + (cons '() + (foldr (lambda (_%g4927449277%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4945049455%_) - (cons _%g4944949452%_ _%g4945049455%_)) - '() - _%L49408%_))) + _%g4927549280%_) + (cons _%g4927449277%_ _%g4927549280%_)) + '() + _%L49233%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))))) + '()))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body4929549404%_ - _%hd4928249362%_ - _%hd4927949352%_ - _%hd4927649342%_ - _%hd4927349332%_ - _%hd4927049322%_ - _%hd4926749312%_) - (_%g4925749301%_ - _%g4925849305%_))))))) - (_%loop4929049384%_ _%target4928749378%_ '())) - (_%g4925749301%_ _%g4925849305%_))))) + _%body4912049229%_ + _%hd4910749187%_ + _%hd4910449177%_ + _%hd4910149167%_ + _%hd4909849157%_ + _%hd4909549147%_ + _%hd4909249137%_) + (_%g4908249126%_ + _%g4908349130%_))))))) + (_%loop4911549209%_ _%target4911249203%_ '())) + (_%g4908249126%_ _%g4908349130%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4925749301%_ - _%g4925849305%_)))) - (_%g4925749301%_ _%g4925849305%_)))) - (_%g4925749301%_ _%g4925849305%_)))) - (_%g4925749301%_ _%g4925849305%_)))) - (_%g4925749301%_ _%g4925849305%_)))) + (_%g4908249126%_ + _%g4908349130%_)))) + (_%g4908249126%_ _%g4908349130%_)))) + (_%g4908249126%_ _%g4908349130%_)))) + (_%g4908249126%_ _%g4908349130%_)))) + (_%g4908249126%_ _%g4908349130%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4925749301%_ - _%g4925849305%_)))) - (_%g4925749301%_ _%g4925849305%_)))) - (_%g4925749301%_ _%g4925849305%_))))) - (_%g4925649458%_ + (_%g4908249126%_ + _%g4908349130%_)))) + (_%g4908249126%_ _%g4908349130%_)))) + (_%g4908249126%_ _%g4908349130%_))))) + (_%g4908149283%_ (list (gx#syntax-local-introduce '@@type) - (let ((__obj80544 _%klass49250%_)) + (let ((__obj80369 _%klass49075%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80544 + __obj80369 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80544 + __obj80369 '12 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80544 + __obj80369 'type-descriptor))) - _%var49252%_ - _%klass49250%_ - _%checked?49255%_ + _%var49077%_ + _%klass49075%_ + _%checked?49080%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#current-type-env)) - _%body49254%_))))) - (_%expand48528%_ - (lambda (_%var49142%_ - _%Type49144%_ - _%body49145%_ - _%checked?49146%_ - _%checked-mutators?49147%_ - _%maybe?49148%_) - (let* ((_%klass49150%_ - (gx#syntax-local-value _%Type49144%_ false)) - (_%expr-body49157%_ - (_%expand-body48526%_ - _%klass49150%_ - _%var49142%_ - _%Type49144%_ - _%body49145%_ - (let ((_%$e49153%_ _%checked?49146%_)) - (if _%$e49153%_ - _%$e49153%_ - _%checked-mutators?49147%_))))) - (if _%checked?49146%_ - (let* ((_%g4916249181%_ - (lambda (_%g4916349177%_) + _%body49079%_))))) + (_%expand48353%_ + (lambda (_%var48967%_ + _%Type48969%_ + _%body48970%_ + _%checked?48971%_ + _%checked-mutators?48972%_ + _%maybe?48973%_) + (let* ((_%klass48975%_ + (gx#syntax-local-value _%Type48969%_ false)) + (_%expr-body48982%_ + (_%expand-body48351%_ + _%klass48975%_ + _%var48967%_ + _%Type48969%_ + _%body48970%_ + (let ((_%$e48978%_ _%checked?48971%_)) + (if _%$e48978%_ + _%$e48978%_ + _%checked-mutators?48972%_))))) + (if _%checked?48971%_ + (let* ((_%g4898749006%_ + (lambda (_%g4898849002%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4916349177%_))) - (_%g4916149243%_ - (lambda (_%g4916349185%_) - (if (gx#stx-pair? _%g4916349185%_) - (let ((_%e4916949188%_ - (gx#syntax-e _%g4916349185%_))) - (let ((_%hd4916849192%_ + _%g4898849002%_))) + (_%g4898649068%_ + (lambda (_%g4898849010%_) + (if (gx#stx-pair? _%g4898849010%_) + (let ((_%e4899449013%_ + (gx#syntax-e _%g4898849010%_))) + (let ((_%hd4899349017%_ (let () (declare (not safe)) - (##car _%e4916949188%_))) - (_%tl4916749195%_ + (##car _%e4899449013%_))) + (_%tl4899249020%_ (let () (declare (not safe)) - (##cdr _%e4916949188%_)))) - (if (gx#stx-pair? _%tl4916749195%_) - (let ((_%e4917249198%_ + (##cdr _%e4899449013%_)))) + (if (gx#stx-pair? _%tl4899249020%_) + (let ((_%e4899749023%_ (gx#syntax-e - _%tl4916749195%_))) - (let ((_%hd4917149202%_ + _%tl4899249020%_))) + (let ((_%hd4899649027%_ (let () (declare (not safe)) - (##car _%e4917249198%_))) - (_%tl4917049205%_ + (##car _%e4899749023%_))) + (_%tl4899549030%_ (let () (declare (not safe)) - (##cdr _%e4917249198%_)))) + (##cdr _%e4899749023%_)))) (if (gx#stx-pair? - _%tl4917049205%_) - (let ((_%e4917549208%_ + _%tl4899549030%_) + (let ((_%e4900049033%_ (gx#syntax-e - _%tl4917049205%_))) - (let ((_%hd4917449212%_ + _%tl4899549030%_))) + (let ((_%hd4899949037%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e4917549208%_))) - (_%tl4917349215%_ + (let () (declare (not safe)) (##car _%e4900049033%_))) + (_%tl4899849040%_ (let () (declare (not safe)) - (##cdr _%e4917549208%_)))) - (if (gx#stx-null? _%tl4917349215%_) - ((lambda (_%L49218%_ _%L49220%_ _%L49221%_) - (let () - (cons (gx#datum->syntax '#f 'with-contract) - (cons (cons _%L49220%_ - (cons (gx#datum->syntax '#f ':~) - (cons _%L49221%_ '()))) - (cons _%L49218%_ '()))))) - _%hd4917449212%_ - _%hd4917149202%_ - _%hd4916849192%_) - (_%g4916249181%_ _%g4916349185%_)))) - (_%g4916249181%_ _%g4916349185%_)))) + (##cdr _%e4900049033%_)))) + (if (gx#stx-null? _%tl4899849040%_) + ((lambda (_%L49043%_ _%L49045%_ _%L49046%_) + (cons (gx#datum->syntax '#f 'with-contract) + (cons (cons _%L49045%_ + (cons (gx#datum->syntax '#f ':~) + (cons _%L49046%_ '()))) + (cons _%L49043%_ '())))) + _%hd4899949037%_ + _%hd4899649027%_ + _%hd4899349017%_) + (_%g4898749006%_ _%g4898849010%_)))) + (_%g4898749006%_ _%g4898849010%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4916249181%_ - _%g4916349185%_)))) - (_%g4916249181%_ _%g4916349185%_))))) - (_%g4916149243%_ - (list (let ((_%instance?49247%_ - (let ((__obj80545 _%klass49150%_)) + (_%g4898749006%_ + _%g4898849010%_)))) + (_%g4898749006%_ _%g4898849010%_))))) + (_%g4898649068%_ + (list (let ((_%instance?49072%_ + (let ((__obj80370 _%klass48975%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80545 + __obj80370 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80545 + __obj80370 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80545 + __obj80370 'predicate))))) - (if _%maybe?49148%_ + (if _%maybe?48973%_ (cons '? (cons (cons 'or (cons 'not ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%instance?49247%_ '()))) + (cons _%instance?49072%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - _%instance?49247%_)) - _%var49142%_ - _%expr-body49157%_))) - _%expr-body49157%_))))) - (let* ((_%__stx7612676127%_ _%stx48523%_) - (_%g4853348648%_ + _%instance?49072%_)) + _%var48967%_ + _%expr-body48982%_))) + _%expr-body48982%_))))) + (let* ((_%__stx7595175952%_ _%stx48348%_) + (_%g4835848473%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7612676127%_)))) - (let ((_%__kont7612976130%_ - (lambda (_%L49103%_ _%L49105%_ _%L49106%_) - (_%expand48528%_ - _%L49106%_ - _%L49105%_ - (foldr (lambda (_%g4912949132%_ _%g4913049135%_) - (cons _%g4912949132%_ _%g4913049135%_)) + _%__stx7595175952%_)))) + (let ((_%__kont7595475955%_ + (lambda (_%L48928%_ _%L48930%_ _%L48931%_) + (_%expand48353%_ + _%L48931%_ + _%L48930%_ + (foldr (lambda (_%g4895448957%_ _%g4895548960%_) + (cons _%g4895448957%_ _%g4895548960%_)) '() - _%L49103%_) + _%L48928%_) '#t '#t '#f))) - (_%__kont7613376134%_ - (lambda (_%L48981%_ _%L48983%_ _%L48984%_) - (_%expand48528%_ - _%L48984%_ - _%L48983%_ - (foldr (lambda (_%g4900749010%_ _%g4900849013%_) - (cons _%g4900749010%_ _%g4900849013%_)) + (_%__kont7595875959%_ + (lambda (_%L48806%_ _%L48808%_ _%L48809%_) + (_%expand48353%_ + _%L48809%_ + _%L48808%_ + (foldr (lambda (_%g4883248835%_ _%g4883348838%_) + (cons _%g4883248835%_ _%g4883348838%_)) '() - _%L48981%_) + _%L48806%_) '#t '#t '#t))) - (_%__kont7613776138%_ - (lambda (_%L48859%_ _%L48861%_ _%L48862%_) - (_%expand48528%_ - _%L48862%_ - _%L48861%_ - (foldr (lambda (_%g4888548888%_ _%g4888648891%_) - (cons _%g4888548888%_ _%g4888648891%_)) + (_%__kont7596275963%_ + (lambda (_%L48684%_ _%L48686%_ _%L48687%_) + (_%expand48353%_ + _%L48687%_ + _%L48686%_ + (foldr (lambda (_%g4871048713%_ _%g4871148716%_) + (cons _%g4871048713%_ _%g4871148716%_)) '() - _%L48859%_) + _%L48684%_) '#f '#f '#f))) - (_%__kont7614176142%_ - (lambda (_%L48735%_ _%L48737%_ _%L48738%_) - (_%expand48528%_ - _%L48738%_ - _%L48737%_ - (foldr (lambda (_%g4876348766%_ _%g4876448769%_) - (cons _%g4876348766%_ _%g4876448769%_)) + (_%__kont7596675967%_ + (lambda (_%L48560%_ _%L48562%_ _%L48563%_) + (_%expand48353%_ + _%L48563%_ + _%L48562%_ + (foldr (lambda (_%g4858848591%_ _%g4858948594%_) + (cons _%g4858848591%_ _%g4858948594%_)) '() - _%L48735%_) + _%L48560%_) '#f '#t '#f)))) - (let* ((_%__match7632176322%_ - (lambda (_%e4862148655%_ - _%hd4862048659%_ - _%tl4861948662%_ - _%e4862448665%_ - _%hd4862348669%_ - _%tl4862248672%_ - _%e4862748675%_ - _%hd4862648679%_ - _%tl4862548682%_ - _%e4863048685%_ - _%hd4862948689%_ - _%tl4862848692%_ - _%e4863348695%_ - _%hd4863248699%_ - _%tl4863148702%_ - _%__splice7614376144%_ - _%target4863448705%_ - _%tl4863648708%_) - (letrec ((_%loop4863748711%_ - (lambda (_%hd4863548715%_ _%body4864148718%_) - (if (gx#stx-pair? _%hd4863548715%_) - (let ((_%e4863848721%_ - (gx#syntax-e _%hd4863548715%_))) - (let ((_%lp-tl4864048728%_ + (let* ((_%__match7614676147%_ + (lambda (_%e4844648480%_ + _%hd4844548484%_ + _%tl4844448487%_ + _%e4844948490%_ + _%hd4844848494%_ + _%tl4844748497%_ + _%e4845248500%_ + _%hd4845148504%_ + _%tl4845048507%_ + _%e4845548510%_ + _%hd4845448514%_ + _%tl4845348517%_ + _%e4845848520%_ + _%hd4845748524%_ + _%tl4845648527%_ + _%__splice7596875969%_ + _%target4845948530%_ + _%tl4846148533%_) + (letrec ((_%loop4846248536%_ + (lambda (_%hd4846048540%_ _%body4846648543%_) + (if (gx#stx-pair? _%hd4846048540%_) + (let ((_%e4846348546%_ + (gx#syntax-e _%hd4846048540%_))) + (let ((_%lp-tl4846548553%_ (let () (declare (not safe)) - (##cdr _%e4863848721%_))) - (_%lp-hd4863948725%_ + (##cdr _%e4846348546%_))) + (_%lp-hd4846448550%_ (let () (declare (not safe)) - (##car _%e4863848721%_)))) - (_%loop4863748711%_ - _%lp-tl4864048728%_ - (cons _%lp-hd4863948725%_ - _%body4864148718%_)))) - (let ((_%body4864248731%_ - (reverse _%body4864148718%_))) - (let ((_%L48735%_ _%body4864248731%_) - (_%L48737%_ _%hd4863248699%_) - (_%L48738%_ _%hd4862648679%_)) + (##car _%e4846348546%_)))) + (_%loop4846248536%_ + _%lp-tl4846548553%_ + (cons _%lp-hd4846448550%_ + _%body4846648543%_)))) + (let ((_%body4846748556%_ + (reverse _%body4846648543%_))) + (let ((_%L48560%_ _%body4846748556%_) + (_%L48562%_ _%hd4845748524%_) + (_%L48563%_ _%hd4845148504%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L48737%_)) - (_%__kont7614176142%_ - _%L48735%_ - _%L48737%_ - _%L48738%_) + _%L48562%_)) + (_%__kont7596675967%_ + _%L48560%_ + _%L48562%_ + _%L48563%_) (let () (declare (not safe)) - (_%g4853348648%_))))))))) - (_%loop4863748711%_ _%target4863448705%_ '())))) - (_%__match7627776278%_ - (lambda (_%e4859448779%_ - _%hd4859348783%_ - _%tl4859248786%_ - _%e4859748789%_ - _%hd4859648793%_ - _%tl4859548796%_ - _%e4860048799%_ - _%hd4859948803%_ - _%tl4859848806%_ - _%e4860348809%_ - _%hd4860248813%_ - _%tl4860148816%_ - _%e4860648819%_ - _%hd4860548823%_ - _%tl4860448826%_ - _%__splice7613976140%_ - _%target4860748829%_ - _%tl4860948832%_) - (letrec ((_%loop4861048835%_ - (lambda (_%hd4860848839%_ _%body4861448842%_) - (if (gx#stx-pair? _%hd4860848839%_) - (let ((_%e4861148845%_ - (gx#syntax-e _%hd4860848839%_))) - (let ((_%lp-tl4861348852%_ + (_%g4835848473%_))))))))) + (_%loop4846248536%_ _%target4845948530%_ '())))) + (_%__match7610276103%_ + (lambda (_%e4841948604%_ + _%hd4841848608%_ + _%tl4841748611%_ + _%e4842248614%_ + _%hd4842148618%_ + _%tl4842048621%_ + _%e4842548624%_ + _%hd4842448628%_ + _%tl4842348631%_ + _%e4842848634%_ + _%hd4842748638%_ + _%tl4842648641%_ + _%e4843148644%_ + _%hd4843048648%_ + _%tl4842948651%_ + _%__splice7596475965%_ + _%target4843248654%_ + _%tl4843448657%_) + (letrec ((_%loop4843548660%_ + (lambda (_%hd4843348664%_ _%body4843948667%_) + (if (gx#stx-pair? _%hd4843348664%_) + (let ((_%e4843648670%_ + (gx#syntax-e _%hd4843348664%_))) + (let ((_%lp-tl4843848677%_ (let () (declare (not safe)) - (##cdr _%e4861148845%_))) - (_%lp-hd4861248849%_ + (##cdr _%e4843648670%_))) + (_%lp-hd4843748674%_ (let () (declare (not safe)) - (##car _%e4861148845%_)))) - (_%loop4861048835%_ - _%lp-tl4861348852%_ - (cons _%lp-hd4861248849%_ - _%body4861448842%_)))) - (let ((_%body4861548855%_ - (reverse _%body4861448842%_))) - (let ((_%L48859%_ _%body4861548855%_) - (_%L48861%_ _%hd4860548823%_) - (_%L48862%_ _%hd4859948803%_)) + (##car _%e4843648670%_)))) + (_%loop4843548660%_ + _%lp-tl4843848677%_ + (cons _%lp-hd4843748674%_ + _%body4843948667%_)))) + (let ((_%body4844048680%_ + (reverse _%body4843948667%_))) + (let ((_%L48684%_ _%body4844048680%_) + (_%L48686%_ _%hd4843048648%_) + (_%L48687%_ _%hd4842448628%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L48861%_)) - (_%__kont7613776138%_ - _%L48859%_ - _%L48861%_ - _%L48862%_) + _%L48686%_)) + (_%__kont7596275963%_ + _%L48684%_ + _%L48686%_ + _%L48687%_) (let () (declare (not safe)) - (_%g4853348648%_))))))))) - (_%loop4861048835%_ _%target4860748829%_ '())))) - (_%__match7623376234%_ - (lambda (_%e4856748901%_ - _%hd4856648905%_ - _%tl4856548908%_ - _%e4857048911%_ - _%hd4856948915%_ - _%tl4856848918%_ - _%e4857348921%_ - _%hd4857248925%_ - _%tl4857148928%_ - _%e4857648931%_ - _%hd4857548935%_ - _%tl4857448938%_ - _%e4857948941%_ - _%hd4857848945%_ - _%tl4857748948%_ - _%__splice7613576136%_ - _%target4858048951%_ - _%tl4858248954%_) - (letrec ((_%loop4858348957%_ - (lambda (_%hd4858148961%_ _%body4858748964%_) - (if (gx#stx-pair? _%hd4858148961%_) - (let ((_%e4858448967%_ - (gx#syntax-e _%hd4858148961%_))) - (let ((_%lp-tl4858648974%_ + (_%g4835848473%_))))))))) + (_%loop4843548660%_ _%target4843248654%_ '())))) + (_%__match7605876059%_ + (lambda (_%e4839248726%_ + _%hd4839148730%_ + _%tl4839048733%_ + _%e4839548736%_ + _%hd4839448740%_ + _%tl4839348743%_ + _%e4839848746%_ + _%hd4839748750%_ + _%tl4839648753%_ + _%e4840148756%_ + _%hd4840048760%_ + _%tl4839948763%_ + _%e4840448766%_ + _%hd4840348770%_ + _%tl4840248773%_ + _%__splice7596075961%_ + _%target4840548776%_ + _%tl4840748779%_) + (letrec ((_%loop4840848782%_ + (lambda (_%hd4840648786%_ _%body4841248789%_) + (if (gx#stx-pair? _%hd4840648786%_) + (let ((_%e4840948792%_ + (gx#syntax-e _%hd4840648786%_))) + (let ((_%lp-tl4841148799%_ (let () (declare (not safe)) - (##cdr _%e4858448967%_))) - (_%lp-hd4858548971%_ + (##cdr _%e4840948792%_))) + (_%lp-hd4841048796%_ (let () (declare (not safe)) - (##car _%e4858448967%_)))) - (_%loop4858348957%_ - _%lp-tl4858648974%_ - (cons _%lp-hd4858548971%_ - _%body4858748964%_)))) - (let ((_%body4858848977%_ - (reverse _%body4858748964%_))) - (let ((_%L48981%_ _%body4858848977%_) - (_%L48983%_ _%hd4857848945%_) - (_%L48984%_ _%hd4857248925%_)) + (##car _%e4840948792%_)))) + (_%loop4840848782%_ + _%lp-tl4841148799%_ + (cons _%lp-hd4841048796%_ + _%body4841248789%_)))) + (let ((_%body4841348802%_ + (reverse _%body4841248789%_))) + (let ((_%L48806%_ _%body4841348802%_) + (_%L48808%_ _%hd4840348770%_) + (_%L48809%_ _%hd4839748750%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L48983%_)) - (_%__kont7613376134%_ - _%L48981%_ - _%L48983%_ - _%L48984%_) + _%L48808%_)) + (_%__kont7595875959%_ + _%L48806%_ + _%L48808%_ + _%L48809%_) (let () (declare (not safe)) - (_%g4853348648%_))))))))) - (_%loop4858348957%_ _%target4858048951%_ '())))) - (_%__match7618976190%_ - (lambda (_%e4854049023%_ - _%hd4853949027%_ - _%tl4853849030%_ - _%e4854349033%_ - _%hd4854249037%_ - _%tl4854149040%_ - _%e4854649043%_ - _%hd4854549047%_ - _%tl4854449050%_ - _%e4854949053%_ - _%hd4854849057%_ - _%tl4854749060%_ - _%e4855249063%_ - _%hd4855149067%_ - _%tl4855049070%_ - _%__splice7613176132%_ - _%target4855349073%_ - _%tl4855549076%_) - (letrec ((_%loop4855649079%_ - (lambda (_%hd4855449083%_ _%body4856049086%_) - (if (gx#stx-pair? _%hd4855449083%_) - (let ((_%e4855749089%_ - (gx#syntax-e _%hd4855449083%_))) - (let ((_%lp-tl4855949096%_ + (_%g4835848473%_))))))))) + (_%loop4840848782%_ _%target4840548776%_ '())))) + (_%__match7601476015%_ + (lambda (_%e4836548848%_ + _%hd4836448852%_ + _%tl4836348855%_ + _%e4836848858%_ + _%hd4836748862%_ + _%tl4836648865%_ + _%e4837148868%_ + _%hd4837048872%_ + _%tl4836948875%_ + _%e4837448878%_ + _%hd4837348882%_ + _%tl4837248885%_ + _%e4837748888%_ + _%hd4837648892%_ + _%tl4837548895%_ + _%__splice7595675957%_ + _%target4837848898%_ + _%tl4838048901%_) + (letrec ((_%loop4838148904%_ + (lambda (_%hd4837948908%_ _%body4838548911%_) + (if (gx#stx-pair? _%hd4837948908%_) + (let ((_%e4838248914%_ + (gx#syntax-e _%hd4837948908%_))) + (let ((_%lp-tl4838448921%_ (let () (declare (not safe)) - (##cdr _%e4855749089%_))) - (_%lp-hd4855849093%_ + (##cdr _%e4838248914%_))) + (_%lp-hd4838348918%_ (let () (declare (not safe)) - (##car _%e4855749089%_)))) - (_%loop4855649079%_ - _%lp-tl4855949096%_ - (cons _%lp-hd4855849093%_ - _%body4856049086%_)))) - (let ((_%body4856149099%_ - (reverse _%body4856049086%_))) - (let ((_%L49103%_ _%body4856149099%_) - (_%L49105%_ _%hd4855149067%_) - (_%L49106%_ _%hd4854549047%_)) + (##car _%e4838248914%_)))) + (_%loop4838148904%_ + _%lp-tl4838448921%_ + (cons _%lp-hd4838348918%_ + _%body4838548911%_)))) + (let ((_%body4838648924%_ + (reverse _%body4838548911%_))) + (let ((_%L48928%_ _%body4838648924%_) + (_%L48930%_ _%hd4837648892%_) + (_%L48931%_ _%hd4837048872%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L49105%_)) - (_%__kont7612976130%_ - _%L49103%_ - _%L49105%_ - _%L49106%_) + _%L48930%_)) + (_%__kont7595475955%_ + _%L48928%_ + _%L48930%_ + _%L48931%_) (let () (declare (not safe)) - (_%g4853348648%_))))))))) - (_%loop4855649079%_ _%target4855349073%_ '()))))) - (if (gx#stx-pair? _%__stx7612676127%_) - (let ((_%e4854049023%_ (gx#syntax-e _%__stx7612676127%_))) - (let ((_%tl4853849030%_ + (_%g4835848473%_))))))))) + (_%loop4838148904%_ _%target4837848898%_ '()))))) + (if (gx#stx-pair? _%__stx7595175952%_) + (let ((_%e4836548848%_ (gx#syntax-e _%__stx7595175952%_))) + (let ((_%tl4836348855%_ (let () (declare (not safe)) - (##cdr _%e4854049023%_))) - (_%hd4853949027%_ + (##cdr _%e4836548848%_))) + (_%hd4836448852%_ (let () (declare (not safe)) - (##car _%e4854049023%_)))) - (if (gx#stx-pair? _%tl4853849030%_) - (let ((_%e4854349033%_ - (gx#syntax-e _%tl4853849030%_))) - (let ((_%tl4854149040%_ + (##car _%e4836548848%_)))) + (if (gx#stx-pair? _%tl4836348855%_) + (let ((_%e4836848858%_ + (gx#syntax-e _%tl4836348855%_))) + (let ((_%tl4836648865%_ (let () (declare (not safe)) - (##cdr _%e4854349033%_))) - (_%hd4854249037%_ + (##cdr _%e4836848858%_))) + (_%hd4836748862%_ (let () (declare (not safe)) - (##car _%e4854349033%_)))) - (if (gx#stx-pair? _%hd4854249037%_) - (let ((_%e4854649043%_ - (gx#syntax-e _%hd4854249037%_))) - (let ((_%tl4854449050%_ + (##car _%e4836848858%_)))) + (if (gx#stx-pair? _%hd4836748862%_) + (let ((_%e4837148868%_ + (gx#syntax-e _%hd4836748862%_))) + (let ((_%tl4836948875%_ (let () (declare (not safe)) - (##cdr _%e4854649043%_))) - (_%hd4854549047%_ + (##cdr _%e4837148868%_))) + (_%hd4837048872%_ (let () (declare (not safe)) - (##car _%e4854649043%_)))) - (if (gx#stx-pair? _%tl4854449050%_) - (let ((_%e4854949053%_ + (##car _%e4837148868%_)))) + (if (gx#stx-pair? _%tl4836948875%_) + (let ((_%e4837448878%_ (gx#syntax-e - _%tl4854449050%_))) - (let ((_%tl4854749060%_ + _%tl4836948875%_))) + (let ((_%tl4837248885%_ (let () (declare (not safe)) - (##cdr _%e4854949053%_))) - (_%hd4854849057%_ + (##cdr _%e4837448878%_))) + (_%hd4837348882%_ (let () (declare (not safe)) - (##car _%e4854949053%_)))) + (##car _%e4837448878%_)))) (if (gx#identifier? - _%hd4854849057%_) + _%hd4837348882%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80718_| - _%hd4854849057%_) + |gerbil/core/contract~Using[1]#_g80530_| + _%hd4837348882%_) (if (gx#stx-pair? - _%tl4854749060%_) - (let ((_%e4855249063%_ + _%tl4837248885%_) + (let ((_%e4837748888%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4854749060%_))) - (let ((_%tl4855049070%_ + (gx#syntax-e _%tl4837248885%_))) + (let ((_%tl4837548895%_ (let () (declare (not safe)) - (##cdr _%e4855249063%_))) - (_%hd4855149067%_ + (##cdr _%e4837748888%_))) + (_%hd4837648892%_ (let () (declare (not safe)) - (##car _%e4855249063%_)))) - (if (gx#stx-null? _%tl4855049070%_) - (if (gx#stx-pair/null? _%tl4854149040%_) - (let ((_%__splice7613176132%_ + (##car _%e4837748888%_)))) + (if (gx#stx-null? _%tl4837548895%_) + (if (gx#stx-pair/null? _%tl4836648865%_) + (let ((_%__splice7595675957%_ (gx#syntax-split-splice - _%tl4854149040%_ + _%tl4836648865%_ '0))) - (let ((_%tl4855549076%_ + (let ((_%tl4838048901%_ (let () (declare (not safe)) (##vector-ref - _%__splice7613176132%_ + _%__splice7595675957%_ '1))) - (_%target4855349073%_ + (_%target4837848898%_ (let () (declare (not safe)) (##vector-ref - _%__splice7613176132%_ + _%__splice7595675957%_ '0)))) - (if (gx#stx-null? _%tl4855549076%_) - (_%__match7618976190%_ - _%e4854049023%_ - _%hd4853949027%_ - _%tl4853849030%_ - _%e4854349033%_ - _%hd4854249037%_ - _%tl4854149040%_ - _%e4854649043%_ - _%hd4854549047%_ - _%tl4854449050%_ - _%e4854949053%_ - _%hd4854849057%_ - _%tl4854749060%_ - _%e4855249063%_ - _%hd4855149067%_ - _%tl4855049070%_ - _%__splice7613176132%_ - _%target4855349073%_ - _%tl4855549076%_) + (if (gx#stx-null? _%tl4838048901%_) + (_%__match7601476015%_ + _%e4836548848%_ + _%hd4836448852%_ + _%tl4836348855%_ + _%e4836848858%_ + _%hd4836748862%_ + _%tl4836648865%_ + _%e4837148868%_ + _%hd4837048872%_ + _%tl4836948875%_ + _%e4837448878%_ + _%hd4837348882%_ + _%tl4837248885%_ + _%e4837748888%_ + _%hd4837648892%_ + _%tl4837548895%_ + _%__splice7595675957%_ + _%target4837848898%_ + _%tl4838048901%_) (let () (declare (not safe)) - (_%g4853348648%_))))) + (_%g4835848473%_))))) (let () (declare (not safe)) - (_%g4853348648%_))) - (let () (declare (not safe)) (_%g4853348648%_))))) - (let () (declare (not safe)) (_%g4853348648%_))) + (_%g4835848473%_))) + (let () (declare (not safe)) (_%g4835848473%_))))) + (let () (declare (not safe)) (_%g4835848473%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80719_| - _%hd4854849057%_) - (if (gx#stx-pair? _%tl4854749060%_) - (let ((_%e4857948941%_ (gx#syntax-e _%tl4854749060%_))) - (let ((_%tl4857748948%_ + |gerbil/core/contract~Using[1]#_g80531_| + _%hd4837348882%_) + (if (gx#stx-pair? _%tl4837248885%_) + (let ((_%e4840448766%_ (gx#syntax-e _%tl4837248885%_))) + (let ((_%tl4840248773%_ (let () (declare (not safe)) - (##cdr _%e4857948941%_))) - (_%hd4857848945%_ + (##cdr _%e4840448766%_))) + (_%hd4840348770%_ (let () (declare (not safe)) - (##car _%e4857948941%_)))) - (if (gx#stx-null? _%tl4857748948%_) - (if (gx#stx-pair/null? _%tl4854149040%_) - (let ((_%__splice7613576136%_ + (##car _%e4840448766%_)))) + (if (gx#stx-null? _%tl4840248773%_) + (if (gx#stx-pair/null? _%tl4836648865%_) + (let ((_%__splice7596075961%_ (gx#syntax-split-splice - _%tl4854149040%_ + _%tl4836648865%_ '0))) - (let ((_%tl4858248954%_ + (let ((_%tl4840748779%_ (let () (declare (not safe)) (##vector-ref - _%__splice7613576136%_ + _%__splice7596075961%_ '1))) - (_%target4858048951%_ + (_%target4840548776%_ (let () (declare (not safe)) (##vector-ref - _%__splice7613576136%_ + _%__splice7596075961%_ '0)))) - (if (gx#stx-null? _%tl4858248954%_) - (_%__match7623376234%_ - _%e4854049023%_ - _%hd4853949027%_ - _%tl4853849030%_ - _%e4854349033%_ - _%hd4854249037%_ - _%tl4854149040%_ - _%e4854649043%_ - _%hd4854549047%_ - _%tl4854449050%_ - _%e4854949053%_ - _%hd4854849057%_ - _%tl4854749060%_ - _%e4857948941%_ - _%hd4857848945%_ - _%tl4857748948%_ - _%__splice7613576136%_ - _%target4858048951%_ - _%tl4858248954%_) + (if (gx#stx-null? _%tl4840748779%_) + (_%__match7605876059%_ + _%e4836548848%_ + _%hd4836448852%_ + _%tl4836348855%_ + _%e4836848858%_ + _%hd4836748862%_ + _%tl4836648865%_ + _%e4837148868%_ + _%hd4837048872%_ + _%tl4836948875%_ + _%e4837448878%_ + _%hd4837348882%_ + _%tl4837248885%_ + _%e4840448766%_ + _%hd4840348770%_ + _%tl4840248773%_ + _%__splice7596075961%_ + _%target4840548776%_ + _%tl4840748779%_) (let () (declare (not safe)) - (_%g4853348648%_))))) + (_%g4835848473%_))))) (let () (declare (not safe)) - (_%g4853348648%_))) + (_%g4835848473%_))) (let () (declare (not safe)) - (_%g4853348648%_))))) - (let () (declare (not safe)) (_%g4853348648%_))) + (_%g4835848473%_))))) + (let () (declare (not safe)) (_%g4835848473%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80720_| - _%hd4854849057%_) - (if (gx#stx-pair? _%tl4854749060%_) - (let ((_%e4860648819%_ - (gx#syntax-e _%tl4854749060%_))) - (let ((_%tl4860448826%_ + |gerbil/core/contract~Using[1]#_g80532_| + _%hd4837348882%_) + (if (gx#stx-pair? _%tl4837248885%_) + (let ((_%e4843148644%_ + (gx#syntax-e _%tl4837248885%_))) + (let ((_%tl4842948651%_ (let () (declare (not safe)) - (##cdr _%e4860648819%_))) - (_%hd4860548823%_ + (##cdr _%e4843148644%_))) + (_%hd4843048648%_ (let () (declare (not safe)) - (##car _%e4860648819%_)))) - (if (gx#stx-null? _%tl4860448826%_) - (if (gx#stx-pair/null? _%tl4854149040%_) - (let ((_%__splice7613976140%_ + (##car _%e4843148644%_)))) + (if (gx#stx-null? _%tl4842948651%_) + (if (gx#stx-pair/null? _%tl4836648865%_) + (let ((_%__splice7596475965%_ (gx#syntax-split-splice - _%tl4854149040%_ + _%tl4836648865%_ '0))) - (let ((_%tl4860948832%_ + (let ((_%tl4843448657%_ (let () (declare (not safe)) (##vector-ref - _%__splice7613976140%_ + _%__splice7596475965%_ '1))) - (_%target4860748829%_ + (_%target4843248654%_ (let () (declare (not safe)) (##vector-ref - _%__splice7613976140%_ + _%__splice7596475965%_ '0)))) - (if (gx#stx-null? _%tl4860948832%_) - (_%__match7627776278%_ - _%e4854049023%_ - _%hd4853949027%_ - _%tl4853849030%_ - _%e4854349033%_ - _%hd4854249037%_ - _%tl4854149040%_ - _%e4854649043%_ - _%hd4854549047%_ - _%tl4854449050%_ - _%e4854949053%_ - _%hd4854849057%_ - _%tl4854749060%_ - _%e4860648819%_ - _%hd4860548823%_ - _%tl4860448826%_ - _%__splice7613976140%_ - _%target4860748829%_ - _%tl4860948832%_) + (if (gx#stx-null? _%tl4843448657%_) + (_%__match7610276103%_ + _%e4836548848%_ + _%hd4836448852%_ + _%tl4836348855%_ + _%e4836848858%_ + _%hd4836748862%_ + _%tl4836648865%_ + _%e4837148868%_ + _%hd4837048872%_ + _%tl4836948875%_ + _%e4837448878%_ + _%hd4837348882%_ + _%tl4837248885%_ + _%e4843148644%_ + _%hd4843048648%_ + _%tl4842948651%_ + _%__splice7596475965%_ + _%target4843248654%_ + _%tl4843448657%_) (let () (declare (not safe)) - (_%g4853348648%_))))) + (_%g4835848473%_))))) (let () (declare (not safe)) - (_%g4853348648%_))) + (_%g4835848473%_))) (let () (declare (not safe)) - (_%g4853348648%_))))) - (let () (declare (not safe)) (_%g4853348648%_))) + (_%g4835848473%_))))) + (let () (declare (not safe)) (_%g4835848473%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80721_| - _%hd4854849057%_) - (if (gx#stx-pair? _%tl4854749060%_) - (let ((_%e4863348695%_ - (gx#syntax-e _%tl4854749060%_))) - (let ((_%tl4863148702%_ + |gerbil/core/contract~Using[1]#_g80533_| + _%hd4837348882%_) + (if (gx#stx-pair? _%tl4837248885%_) + (let ((_%e4845848520%_ + (gx#syntax-e _%tl4837248885%_))) + (let ((_%tl4845648527%_ (let () (declare (not safe)) - (##cdr _%e4863348695%_))) - (_%hd4863248699%_ + (##cdr _%e4845848520%_))) + (_%hd4845748524%_ (let () (declare (not safe)) - (##car _%e4863348695%_)))) - (if (gx#stx-null? _%tl4863148702%_) + (##car _%e4845848520%_)))) + (if (gx#stx-null? _%tl4845648527%_) (if (gx#stx-pair/null? - _%tl4854149040%_) - (let ((_%__splice7614376144%_ + _%tl4836648865%_) + (let ((_%__splice7596875969%_ (gx#syntax-split-splice - _%tl4854149040%_ + _%tl4836648865%_ '0))) - (let ((_%tl4863648708%_ + (let ((_%tl4846148533%_ (let () (declare (not safe)) (##vector-ref - _%__splice7614376144%_ + _%__splice7596875969%_ '1))) - (_%target4863448705%_ + (_%target4845948530%_ (let () (declare (not safe)) (##vector-ref - _%__splice7614376144%_ + _%__splice7596875969%_ '0)))) (if (gx#stx-null? - _%tl4863648708%_) - (_%__match7632176322%_ - _%e4854049023%_ - _%hd4853949027%_ - _%tl4853849030%_ - _%e4854349033%_ - _%hd4854249037%_ - _%tl4854149040%_ - _%e4854649043%_ - _%hd4854549047%_ - _%tl4854449050%_ - _%e4854949053%_ - _%hd4854849057%_ - _%tl4854749060%_ - _%e4863348695%_ - _%hd4863248699%_ - _%tl4863148702%_ - _%__splice7614376144%_ - _%target4863448705%_ - _%tl4863648708%_) + _%tl4846148533%_) + (_%__match7614676147%_ + _%e4836548848%_ + _%hd4836448852%_ + _%tl4836348855%_ + _%e4836848858%_ + _%hd4836748862%_ + _%tl4836648865%_ + _%e4837148868%_ + _%hd4837048872%_ + _%tl4836948875%_ + _%e4837448878%_ + _%hd4837348882%_ + _%tl4837248885%_ + _%e4845848520%_ + _%hd4845748524%_ + _%tl4845648527%_ + _%__splice7596875969%_ + _%target4845948530%_ + _%tl4846148533%_) (let () (declare (not safe)) - (_%g4853348648%_))))) + (_%g4835848473%_))))) (let () (declare (not safe)) - (_%g4853348648%_))) + (_%g4835848473%_))) (let () (declare (not safe)) - (_%g4853348648%_))))) + (_%g4835848473%_))))) (let () (declare (not safe)) - (_%g4853348648%_))) - (let () (declare (not safe)) (_%g4853348648%_)))))) + (_%g4835848473%_))) + (let () (declare (not safe)) (_%g4835848473%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4853348648%_))))) + (_%g4835848473%_))))) (let () (declare (not safe)) - (_%g4853348648%_))))) + (_%g4835848473%_))))) (let () (declare (not safe)) - (_%g4853348648%_))))) - (let () (declare (not safe)) (_%g4853348648%_))))) - (let () (declare (not safe)) (_%g4853348648%_))))))))) + (_%g4835848473%_))))) + (let () (declare (not safe)) (_%g4835848473%_))))) + (let () (declare (not safe)) (_%g4835848473%_))))))))) (define |gerbil/core/contract~Using[:0:]#with-interface| - (lambda (_%stx49467%_) - (letrec ((_%expand-body49470%_ - (lambda (_%var50287%_ - _%Interface50289%_ - _%body50290%_ - _%checked?50291%_) - (let* ((_%type50293%_ + (lambda (_%stx49292%_) + (letrec ((_%expand-body49295%_ + (lambda (_%var50112%_ + _%Interface50114%_ + _%body50115%_ + _%checked?50116%_) + (let* ((_%type50118%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx49467%_ - _%Interface50289%_))) - (_%g5029650340%_ - (lambda (_%g5029750336%_) + _%stx49292%_ + _%Interface50114%_))) + (_%g5012150165%_ + (lambda (_%g5012250161%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5029750336%_))) - (_%g5029550498%_ - (lambda (_%g5029750344%_) - (if (gx#stx-pair? _%g5029750344%_) - (let ((_%e5030750347%_ - (gx#syntax-e _%g5029750344%_))) - (let ((_%hd5030650351%_ + _%g5012250161%_))) + (_%g5012050323%_ + (lambda (_%g5012250169%_) + (if (gx#stx-pair? _%g5012250169%_) + (let ((_%e5013250172%_ + (gx#syntax-e _%g5012250169%_))) + (let ((_%hd5013150176%_ (let () (declare (not safe)) - (##car _%e5030750347%_))) - (_%tl5030550354%_ + (##car _%e5013250172%_))) + (_%tl5013050179%_ (let () (declare (not safe)) - (##cdr _%e5030750347%_)))) - (if (gx#stx-pair? _%tl5030550354%_) - (let ((_%e5031050357%_ + (##cdr _%e5013250172%_)))) + (if (gx#stx-pair? _%tl5013050179%_) + (let ((_%e5013550182%_ (gx#syntax-e - _%tl5030550354%_))) - (let ((_%hd5030950361%_ + _%tl5013050179%_))) + (let ((_%hd5013450186%_ (let () (declare (not safe)) - (##car _%e5031050357%_))) - (_%tl5030850364%_ + (##car _%e5013550182%_))) + (_%tl5013350189%_ (let () (declare (not safe)) - (##cdr _%e5031050357%_)))) + (##cdr _%e5013550182%_)))) (if (gx#stx-pair? - _%tl5030850364%_) - (let ((_%e5031350367%_ + _%tl5013350189%_) + (let ((_%e5013850192%_ (gx#syntax-e - _%tl5030850364%_))) - (let ((_%hd5031250371%_ + _%tl5013350189%_))) + (let ((_%hd5013750196%_ (let () (declare (not safe)) - (##car _%e5031350367%_))) - (_%tl5031150374%_ + (##car _%e5013850192%_))) + (_%tl5013650199%_ (let () (declare (not safe)) - (##cdr _%e5031350367%_)))) + (##cdr _%e5013850192%_)))) (if (gx#stx-pair? - _%tl5031150374%_) - (let ((_%e5031650377%_ + _%tl5013650199%_) + (let ((_%e5014150202%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5031150374%_))) - (let ((_%hd5031550381%_ + (gx#syntax-e _%tl5013650199%_))) + (let ((_%hd5014050206%_ (let () (declare (not safe)) - (##car _%e5031650377%_))) - (_%tl5031450384%_ + (##car _%e5014150202%_))) + (_%tl5013950209%_ (let () (declare (not safe)) - (##cdr _%e5031650377%_)))) - (if (gx#stx-pair? _%tl5031450384%_) - (let ((_%e5031950387%_ - (gx#syntax-e _%tl5031450384%_))) - (let ((_%hd5031850391%_ + (##cdr _%e5014150202%_)))) + (if (gx#stx-pair? _%tl5013950209%_) + (let ((_%e5014450212%_ + (gx#syntax-e _%tl5013950209%_))) + (let ((_%hd5014350216%_ (let () (declare (not safe)) - (##car _%e5031950387%_))) - (_%tl5031750394%_ + (##car _%e5014450212%_))) + (_%tl5014250219%_ (let () (declare (not safe)) - (##cdr _%e5031950387%_)))) - (if (gx#stx-pair? _%tl5031750394%_) - (let ((_%e5032250397%_ - (gx#syntax-e _%tl5031750394%_))) - (let ((_%hd5032150401%_ + (##cdr _%e5014450212%_)))) + (if (gx#stx-pair? _%tl5014250219%_) + (let ((_%e5014750222%_ + (gx#syntax-e _%tl5014250219%_))) + (let ((_%hd5014650226%_ (let () (declare (not safe)) - (##car _%e5032250397%_))) - (_%tl5032050404%_ + (##car _%e5014750222%_))) + (_%tl5014550229%_ (let () (declare (not safe)) - (##cdr _%e5032250397%_)))) - (if (gx#stx-pair? _%tl5032050404%_) - (let ((_%e5032550407%_ + (##cdr _%e5014750222%_)))) + (if (gx#stx-pair? _%tl5014550229%_) + (let ((_%e5015050232%_ (gx#syntax-e - _%tl5032050404%_))) - (let ((_%hd5032450411%_ + _%tl5014550229%_))) + (let ((_%hd5014950236%_ (let () (declare (not safe)) - (##car _%e5032550407%_))) - (_%tl5032350414%_ + (##car _%e5015050232%_))) + (_%tl5014850239%_ (let () (declare (not safe)) - (##cdr _%e5032550407%_)))) + (##cdr _%e5015050232%_)))) (if (gx#stx-pair/null? - _%hd5032450411%_) - (let ((_g80722_ + _%hd5014950236%_) + (let ((_g80534_ (gx#syntax-split-splice - _%hd5032450411%_ + _%hd5014950236%_ '0))) (begin - (let ((_g80723_ + (let ((_g80535_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g80722_) - (##vector-length _g80722_) + (if (##values? _g80534_) + (##vector-length _g80534_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g80723_ 2))) - (error "Context expects 2 values" _g80723_))) - (let ((_%target5032650417%_ - (let () (declare (not safe)) (##vector-ref _g80722_ 0))) - (_%tl5032850420%_ - (let () (declare (not safe)) (##vector-ref _g80722_ 1)))) - (if (gx#stx-null? _%tl5032850420%_) - (letrec ((_%loop5032950423%_ - (lambda (_%hd5032750427%_ _%body5033350430%_) - (if (gx#stx-pair? _%hd5032750427%_) - (let ((_%e5033050433%_ - (gx#syntax-e _%hd5032750427%_))) - (let ((_%lp-hd5033150437%_ + (if (not (let () (declare (not safe)) (##fx= _g80535_ 2))) + (error "Context expects 2 values" _g80535_))) + (let ((_%target5015150242%_ + (let () (declare (not safe)) (##vector-ref _g80534_ 0))) + (_%tl5015350245%_ + (let () (declare (not safe)) (##vector-ref _g80534_ 1)))) + (if (gx#stx-null? _%tl5015350245%_) + (letrec ((_%loop5015450248%_ + (lambda (_%hd5015250252%_ _%body5015850255%_) + (if (gx#stx-pair? _%hd5015250252%_) + (let ((_%e5015550258%_ + (gx#syntax-e _%hd5015250252%_))) + (let ((_%lp-hd5015650262%_ (let () (declare (not safe)) - (##car _%e5033050433%_))) - (_%lp-tl5033250440%_ + (##car _%e5015550258%_))) + (_%lp-tl5015750265%_ (let () (declare (not safe)) - (##cdr _%e5033050433%_)))) - (_%loop5032950423%_ - _%lp-tl5033250440%_ - (cons _%lp-hd5033150437%_ - _%body5033350430%_)))) - (let ((_%body5033450443%_ - (reverse _%body5033350430%_))) - (if (gx#stx-null? _%tl5032350414%_) - ((lambda (_%L50447%_ - _%L50449%_ - _%L50450%_ - _%L50451%_ - _%L50452%_ - _%L50453%_ - _%L50454%_) - (let () - (cons (gx#datum->syntax - '#f - 'let) - (cons (cons _%L50451%_ + (##cdr _%e5015550258%_)))) + (_%loop5015450248%_ + _%lp-tl5015750265%_ + (cons _%lp-hd5015650262%_ + _%body5015850255%_)))) + (let ((_%body5015950268%_ + (reverse _%body5015850255%_))) + (if (gx#stx-null? _%tl5014850239%_) + ((lambda (_%L50272%_ + _%L50274%_ + _%L50275%_ + _%L50276%_ + _%L50277%_ + _%L50278%_ + _%L50279%_) + (cons (gx#datum->syntax '#f 'let) + (cons (cons _%L50276%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L50452%_ '())) - (cons _%L50451%_ '()))) - '())) - (cons (cons (gx#datum->syntax '#f 'let-syntax) - (cons (cons (cons _%L50454%_ - (cons (cons (gx#datum->syntax - '#f - 'make-type-env) - (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax '#f '@type) + (cons _%L50277%_ '())) + (cons _%L50276%_ '()))) + '())) + (cons (cons (gx#datum->syntax '#f 'let-syntax) + (cons (cons (cons _%L50279%_ + (cons (cons (gx#datum->syntax + '#f + 'make-type-env) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote-syntax) - (cons _%L50451%_ '())) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L50453%_ '())) - (cons _%L50450%_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L50449%_ '())) - '()))))) - '())) + '#f + 'quote-syntax) + (cons _%L50276%_ '())) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L50278%_ '())) + (cons _%L50275%_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L50274%_ '())) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - (cons (cons (gx#datum->syntax '#f 'let) - (cons '() - (foldr (lambda (_%g5048950492%_ + '())) + '()) + (cons (cons (gx#datum->syntax '#f 'let) + (cons '() + (foldr (lambda (_%g5031450317%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5049050495%_) - (cons _%g5048950492%_ _%g5049050495%_)) - '() - _%L50447%_))) + _%g5031550320%_) + (cons _%g5031450317%_ _%g5031550320%_)) + '() + _%L50272%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))))) + '()))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body5033450443%_ - _%hd5032150401%_ - _%hd5031850391%_ - _%hd5031550381%_ - _%hd5031250371%_ - _%hd5030950361%_ - _%hd5030650351%_) - (_%g5029650340%_ - _%g5029750344%_))))))) - (_%loop5032950423%_ _%target5032650417%_ '())) - (_%g5029650340%_ _%g5029750344%_))))) + _%body5015950268%_ + _%hd5014650226%_ + _%hd5014350216%_ + _%hd5014050206%_ + _%hd5013750196%_ + _%hd5013450186%_ + _%hd5013150176%_) + (_%g5012150165%_ + _%g5012250169%_))))))) + (_%loop5015450248%_ _%target5015150242%_ '())) + (_%g5012150165%_ _%g5012250169%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5029650340%_ - _%g5029750344%_)))) - (_%g5029650340%_ _%g5029750344%_)))) - (_%g5029650340%_ _%g5029750344%_)))) - (_%g5029650340%_ _%g5029750344%_)))) - (_%g5029650340%_ _%g5029750344%_)))) + (_%g5012150165%_ + _%g5012250169%_)))) + (_%g5012150165%_ _%g5012250169%_)))) + (_%g5012150165%_ _%g5012250169%_)))) + (_%g5012150165%_ _%g5012250169%_)))) + (_%g5012150165%_ _%g5012250169%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5029650340%_ - _%g5029750344%_)))) - (_%g5029650340%_ _%g5029750344%_)))) - (_%g5029650340%_ _%g5029750344%_))))) - (_%g5029550498%_ + (_%g5012150165%_ + _%g5012250169%_)))) + (_%g5012150165%_ _%g5012250169%_)))) + (_%g5012150165%_ _%g5012250169%_))))) + (_%g5012050323%_ (list (gx#syntax-local-introduce '@@type) - _%type50293%_ - (let ((__obj80546 _%type50293%_)) + _%type50118%_ + (let ((__obj80371 _%type50118%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80546 + __obj80371 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80546 + __obj80371 '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj80546 + __obj80371 'instance-type))) - _%var50287%_ - _%checked?50291%_ + _%var50112%_ + _%checked?50116%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#current-type-env)) - _%body50290%_))))) - (_%expand49472%_ - (lambda (_%var50086%_ - _%Interface50088%_ - _%body50089%_ - _%checked?50090%_ - _%checked-methods?50091%_ - _%maybe?50092%_) - (let* ((_%g5009450102%_ - (lambda (_%g5009550098%_) + _%body50115%_))))) + (_%expand49297%_ + (lambda (_%var49911%_ + _%Interface49913%_ + _%body49914%_ + _%checked?49915%_ + _%checked-methods?49916%_ + _%maybe?49917%_) + (let* ((_%g4991949927%_ + (lambda (_%g4992049923%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5009550098%_))) - (_%g5009350279%_ - (lambda (_%g5009550106%_) - ((lambda (_%L50109%_) - (let () - (if _%checked?50090%_ - (if _%maybe?50092%_ - (let* ((_%g5012150136%_ - (lambda (_%g5012250132%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5012250132%_))) - (_%g5012050182%_ - (lambda (_%g5012250140%_) - (if (gx#stx-pair? - _%g5012250140%_) - (let ((_%e5012750143%_ - (gx#syntax-e + _%g4992049923%_))) + (_%g4991850104%_ + (lambda (_%g4992049931%_) + ((lambda (_%L49934%_) + (if _%checked?49915%_ + (if _%maybe?49917%_ + (let* ((_%g4994649961%_ + (lambda (_%g4994749957%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g4994749957%_))) + (_%g4994550007%_ + (lambda (_%g4994749965%_) + (if (gx#stx-pair? + _%g4994749965%_) + (let ((_%e4995249968%_ + (gx#syntax-e + _%g4994749965%_))) + (let ((_%hd4995149972%_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5012250140%_))) - (let ((_%hd5012650147%_ - (let () - (declare (not safe)) - (##car _%e5012750143%_))) - (_%tl5012550150%_ - (let () - (declare (not safe)) - (##cdr _%e5012750143%_)))) - (if (gx#stx-pair? _%tl5012550150%_) - (let ((_%e5013050153%_ - (gx#syntax-e _%tl5012550150%_))) - (let ((_%hd5012950157%_ - (let () - (declare (not safe)) - (##car _%e5013050153%_))) - (_%tl5012850160%_ - (let () - (declare (not safe)) - (##cdr _%e5013050153%_)))) - (if (gx#stx-null? _%tl5012850160%_) - ((lambda (_%L50163%_ _%L50165%_) - (let () - (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L50165%_ - (cons (cons _%L50163%_ + (declare (not safe)) + (##car _%e4995249968%_))) + (_%tl4995049975%_ + (let () (declare (not safe)) (##cdr _%e4995249968%_)))) + (if (gx#stx-pair? _%tl4995049975%_) + (let ((_%e4995549978%_ (gx#syntax-e _%tl4995049975%_))) + (let ((_%hd4995449982%_ + (let () + (declare (not safe)) + (##car _%e4995549978%_))) + (_%tl4995349985%_ + (let () + (declare (not safe)) + (##cdr _%e4995549978%_)))) + (if (gx#stx-null? _%tl4995349985%_) + ((lambda (_%L49988%_ _%L49990%_) + (cons (gx#datum->syntax '#f 'let) + (cons (cons _%L49990%_ + (cons (cons _%L49988%_ + (cons _%L49990%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L50165%_ '())) - '())) + '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'if) - (cons _%L50165%_ + (cons (cons (gx#datum->syntax + '#f + 'if) + (cons _%L49990%_ + (cons _%L49934%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L50109%_ - (cons (cons (gx#datum->syntax - '#f - 'nil-dereference!) - (cons _%L50165%_ '())) - '())))) - '()))))) + (cons (cons (gx#datum->syntax + '#f + 'nil-dereference!) + (cons _%L49990%_ '())) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5012950157%_ - _%hd5012650147%_) - (_%g5012150136%_ _%g5012250140%_)))) - (_%g5012150136%_ _%g5012250140%_)))) - (_%g5012150136%_ _%g5012250140%_))))) + '())))) + _%hd4995449982%_ + _%hd4995149972%_) + (_%g4994649961%_ _%g4994749965%_)))) + (_%g4994649961%_ _%g4994749965%_)))) + (_%g4994649961%_ _%g4994749965%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5012050182%_ - (list _%var50086%_ - _%Interface50088%_))) - (let* ((_%g5018650201%_ - (lambda (_%g5018750197%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5018750197%_))) - (_%g5018550245%_ - (lambda (_%g5018750205%_) - (if (gx#stx-pair? - _%g5018750205%_) - (let ((_%e5019250208%_ - (gx#syntax-e + (_%g4994550007%_ + (list _%var49911%_ + _%Interface49913%_))) + (let* ((_%g5001150026%_ + (lambda (_%g5001250022%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5001250022%_))) + (_%g5001050070%_ + (lambda (_%g5001250030%_) + (if (gx#stx-pair? + _%g5001250030%_) + (let ((_%e5001750033%_ + (gx#syntax-e + _%g5001250030%_))) + (let ((_%hd5001650037%_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5018750205%_))) - (let ((_%hd5019150212%_ - (let () - (declare (not safe)) - (##car _%e5019250208%_))) - (_%tl5019050215%_ - (let () - (declare (not safe)) - (##cdr _%e5019250208%_)))) - (if (gx#stx-pair? _%tl5019050215%_) - (let ((_%e5019550218%_ - (gx#syntax-e _%tl5019050215%_))) - (let ((_%hd5019450222%_ - (let () - (declare (not safe)) - (##car _%e5019550218%_))) - (_%tl5019350225%_ - (let () - (declare (not safe)) - (##cdr _%e5019550218%_)))) - (if (gx#stx-null? _%tl5019350225%_) - ((lambda (_%L50228%_ _%L50230%_) - (let () - (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L50230%_ - (cons (cons _%L50228%_ + (declare (not safe)) + (##car _%e5001750033%_))) + (_%tl5001550040%_ + (let () (declare (not safe)) (##cdr _%e5001750033%_)))) + (if (gx#stx-pair? _%tl5001550040%_) + (let ((_%e5002050043%_ (gx#syntax-e _%tl5001550040%_))) + (let ((_%hd5001950047%_ + (let () + (declare (not safe)) + (##car _%e5002050043%_))) + (_%tl5001850050%_ + (let () + (declare (not safe)) + (##cdr _%e5002050043%_)))) + (if (gx#stx-null? _%tl5001850050%_) + ((lambda (_%L50053%_ _%L50055%_) + (cons (gx#datum->syntax '#f 'let) + (cons (cons _%L50055%_ + (cons (cons _%L50053%_ + (cons _%L50055%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L50230%_ '())) - '())) + '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L50109%_ '()))))) - _%hd5019450222%_ - _%hd5019150212%_) - (_%g5018650201%_ _%g5018750205%_)))) - (_%g5018650201%_ _%g5018750205%_)))) - (_%g5018650201%_ _%g5018750205%_))))) + (cons _%L49934%_ '())))) + _%hd5001950047%_ + _%hd5001650037%_) + (_%g5001150026%_ _%g5001250030%_)))) + (_%g5001150026%_ _%g5001250030%_)))) + (_%g5001150026%_ _%g5001250030%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5018550245%_ - (list _%var50086%_ - _%Interface50088%_)))) - (if _%maybe?50092%_ - (let* ((_%g5024950257%_ - (lambda (_%g5025050253%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5025050253%_))) - (_%g5024850275%_ - (lambda (_%g5025050261%_) - ((lambda (_%L50264%_) - (let () - (cons (gx#datum->syntax + (_%g5001050070%_ + (list _%var49911%_ + _%Interface49913%_)))) + (if _%maybe?49917%_ + (let* ((_%g5007450082%_ + (lambda (_%g5007550078%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5007550078%_))) + (_%g5007350100%_ + (lambda (_%g5007550086%_) + ((lambda (_%L50089%_) + (cons (gx#datum->syntax + '#f + 'if) + (cons _%L50089%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'if) - (cons _%L50264%_ - (cons _%L50109%_ - (cons (cons (gx#datum->syntax - '#f - 'nil-dereference!) - (cons _%L50264%_ '())) - '())))))) - _%g5025050261%_)))) + (cons _%L49934%_ + (cons (cons (gx#datum->syntax + '#f + 'nil-dereference!) + (cons _%L50089%_ '())) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5024850275%_ _%var50086%_)) - _%L50109%_)))) - _%g5009550106%_)))) - (_%g5009350279%_ - (_%expand-body49470%_ - _%var50086%_ - _%Interface50088%_ - _%body50089%_ - (let ((_%$e50283%_ _%checked?50090%_)) - (if _%$e50283%_ - _%$e50283%_ - _%checked-methods?50091%_)))))))) - (let* ((_%__stx7632476325%_ _%stx49467%_) - (_%g4947749592%_ + _%g5007550086%_)))) + (_%g5007350100%_ _%var49911%_)) + _%L49934%_))) + _%g4992049931%_)))) + (_%g4991850104%_ + (_%expand-body49295%_ + _%var49911%_ + _%Interface49913%_ + _%body49914%_ + (let ((_%$e50108%_ _%checked?49915%_)) + (if _%$e50108%_ + _%$e50108%_ + _%checked-methods?49916%_)))))))) + (let* ((_%__stx7614976150%_ _%stx49292%_) + (_%g4930249417%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7632476325%_)))) - (let ((_%__kont7632776328%_ - (lambda (_%L50047%_ _%L50049%_ _%L50050%_) - (_%expand49472%_ - _%L50050%_ - _%L50049%_ - (foldr (lambda (_%g5007350076%_ _%g5007450079%_) - (cons _%g5007350076%_ _%g5007450079%_)) + _%__stx7614976150%_)))) + (let ((_%__kont7615276153%_ + (lambda (_%L49872%_ _%L49874%_ _%L49875%_) + (_%expand49297%_ + _%L49875%_ + _%L49874%_ + (foldr (lambda (_%g4989849901%_ _%g4989949904%_) + (cons _%g4989849901%_ _%g4989949904%_)) '() - _%L50047%_) + _%L49872%_) '#t '#t '#f))) - (_%__kont7633176332%_ - (lambda (_%L49925%_ _%L49927%_ _%L49928%_) - (_%expand49472%_ - _%L49928%_ - _%L49927%_ - (foldr (lambda (_%g4995149954%_ _%g4995249957%_) - (cons _%g4995149954%_ _%g4995249957%_)) + (_%__kont7615676157%_ + (lambda (_%L49750%_ _%L49752%_ _%L49753%_) + (_%expand49297%_ + _%L49753%_ + _%L49752%_ + (foldr (lambda (_%g4977649779%_ _%g4977749782%_) + (cons _%g4977649779%_ _%g4977749782%_)) '() - _%L49925%_) + _%L49750%_) '#t '#t '#t))) - (_%__kont7633576336%_ - (lambda (_%L49803%_ _%L49805%_ _%L49806%_) - (_%expand49472%_ - _%L49806%_ - _%L49805%_ - (foldr (lambda (_%g4982949832%_ _%g4983049835%_) - (cons _%g4982949832%_ _%g4983049835%_)) + (_%__kont7616076161%_ + (lambda (_%L49628%_ _%L49630%_ _%L49631%_) + (_%expand49297%_ + _%L49631%_ + _%L49630%_ + (foldr (lambda (_%g4965449657%_ _%g4965549660%_) + (cons _%g4965449657%_ _%g4965549660%_)) '() - _%L49803%_) + _%L49628%_) '#f '#f '#f))) - (_%__kont7633976340%_ - (lambda (_%L49679%_ _%L49681%_ _%L49682%_) - (_%expand49472%_ - _%L49682%_ - _%L49681%_ - (foldr (lambda (_%g4970749710%_ _%g4970849713%_) - (cons _%g4970749710%_ _%g4970849713%_)) + (_%__kont7616476165%_ + (lambda (_%L49504%_ _%L49506%_ _%L49507%_) + (_%expand49297%_ + _%L49507%_ + _%L49506%_ + (foldr (lambda (_%g4953249535%_ _%g4953349538%_) + (cons _%g4953249535%_ _%g4953349538%_)) '() - _%L49679%_) + _%L49504%_) '#f '#t '#f)))) - (let* ((_%__match7651976520%_ - (lambda (_%e4956549599%_ - _%hd4956449603%_ - _%tl4956349606%_ - _%e4956849609%_ - _%hd4956749613%_ - _%tl4956649616%_ - _%e4957149619%_ - _%hd4957049623%_ - _%tl4956949626%_ - _%e4957449629%_ - _%hd4957349633%_ - _%tl4957249636%_ - _%e4957749639%_ - _%hd4957649643%_ - _%tl4957549646%_ - _%__splice7634176342%_ - _%target4957849649%_ - _%tl4958049652%_) - (letrec ((_%loop4958149655%_ - (lambda (_%hd4957949659%_ _%body4958549662%_) - (if (gx#stx-pair? _%hd4957949659%_) - (let ((_%e4958249665%_ - (gx#syntax-e _%hd4957949659%_))) - (let ((_%lp-tl4958449672%_ + (let* ((_%__match7634476345%_ + (lambda (_%e4939049424%_ + _%hd4938949428%_ + _%tl4938849431%_ + _%e4939349434%_ + _%hd4939249438%_ + _%tl4939149441%_ + _%e4939649444%_ + _%hd4939549448%_ + _%tl4939449451%_ + _%e4939949454%_ + _%hd4939849458%_ + _%tl4939749461%_ + _%e4940249464%_ + _%hd4940149468%_ + _%tl4940049471%_ + _%__splice7616676167%_ + _%target4940349474%_ + _%tl4940549477%_) + (letrec ((_%loop4940649480%_ + (lambda (_%hd4940449484%_ _%body4941049487%_) + (if (gx#stx-pair? _%hd4940449484%_) + (let ((_%e4940749490%_ + (gx#syntax-e _%hd4940449484%_))) + (let ((_%lp-tl4940949497%_ (let () (declare (not safe)) - (##cdr _%e4958249665%_))) - (_%lp-hd4958349669%_ + (##cdr _%e4940749490%_))) + (_%lp-hd4940849494%_ (let () (declare (not safe)) - (##car _%e4958249665%_)))) - (_%loop4958149655%_ - _%lp-tl4958449672%_ - (cons _%lp-hd4958349669%_ - _%body4958549662%_)))) - (let ((_%body4958649675%_ - (reverse _%body4958549662%_))) - (let ((_%L49679%_ _%body4958649675%_) - (_%L49681%_ _%hd4957649643%_) - (_%L49682%_ _%hd4957049623%_)) + (##car _%e4940749490%_)))) + (_%loop4940649480%_ + _%lp-tl4940949497%_ + (cons _%lp-hd4940849494%_ + _%body4941049487%_)))) + (let ((_%body4941149500%_ + (reverse _%body4941049487%_))) + (let ((_%L49504%_ _%body4941149500%_) + (_%L49506%_ _%hd4940149468%_) + (_%L49507%_ _%hd4939549448%_)) (if (and (gx#identifier? - _%L49682%_) + _%L49507%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L49681%_))) - (_%__kont7633976340%_ - _%L49679%_ - _%L49681%_ - _%L49682%_) + _%L49506%_))) + (_%__kont7616476165%_ + _%L49504%_ + _%L49506%_ + _%L49507%_) (let () (declare (not safe)) - (_%g4947749592%_))))))))) - (_%loop4958149655%_ _%target4957849649%_ '())))) - (_%__match7647576476%_ - (lambda (_%e4953849723%_ - _%hd4953749727%_ - _%tl4953649730%_ - _%e4954149733%_ - _%hd4954049737%_ - _%tl4953949740%_ - _%e4954449743%_ - _%hd4954349747%_ - _%tl4954249750%_ - _%e4954749753%_ - _%hd4954649757%_ - _%tl4954549760%_ - _%e4955049763%_ - _%hd4954949767%_ - _%tl4954849770%_ - _%__splice7633776338%_ - _%target4955149773%_ - _%tl4955349776%_) - (letrec ((_%loop4955449779%_ - (lambda (_%hd4955249783%_ _%body4955849786%_) - (if (gx#stx-pair? _%hd4955249783%_) - (let ((_%e4955549789%_ - (gx#syntax-e _%hd4955249783%_))) - (let ((_%lp-tl4955749796%_ + (_%g4930249417%_))))))))) + (_%loop4940649480%_ _%target4940349474%_ '())))) + (_%__match7630076301%_ + (lambda (_%e4936349548%_ + _%hd4936249552%_ + _%tl4936149555%_ + _%e4936649558%_ + _%hd4936549562%_ + _%tl4936449565%_ + _%e4936949568%_ + _%hd4936849572%_ + _%tl4936749575%_ + _%e4937249578%_ + _%hd4937149582%_ + _%tl4937049585%_ + _%e4937549588%_ + _%hd4937449592%_ + _%tl4937349595%_ + _%__splice7616276163%_ + _%target4937649598%_ + _%tl4937849601%_) + (letrec ((_%loop4937949604%_ + (lambda (_%hd4937749608%_ _%body4938349611%_) + (if (gx#stx-pair? _%hd4937749608%_) + (let ((_%e4938049614%_ + (gx#syntax-e _%hd4937749608%_))) + (let ((_%lp-tl4938249621%_ (let () (declare (not safe)) - (##cdr _%e4955549789%_))) - (_%lp-hd4955649793%_ + (##cdr _%e4938049614%_))) + (_%lp-hd4938149618%_ (let () (declare (not safe)) - (##car _%e4955549789%_)))) - (_%loop4955449779%_ - _%lp-tl4955749796%_ - (cons _%lp-hd4955649793%_ - _%body4955849786%_)))) - (let ((_%body4955949799%_ - (reverse _%body4955849786%_))) - (let ((_%L49803%_ _%body4955949799%_) - (_%L49805%_ _%hd4954949767%_) - (_%L49806%_ _%hd4954349747%_)) + (##car _%e4938049614%_)))) + (_%loop4937949604%_ + _%lp-tl4938249621%_ + (cons _%lp-hd4938149618%_ + _%body4938349611%_)))) + (let ((_%body4938449624%_ + (reverse _%body4938349611%_))) + (let ((_%L49628%_ _%body4938449624%_) + (_%L49630%_ _%hd4937449592%_) + (_%L49631%_ _%hd4936849572%_)) (if (and (gx#identifier? - _%L49806%_) + _%L49631%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L49805%_))) - (_%__kont7633576336%_ - _%L49803%_ - _%L49805%_ - _%L49806%_) + _%L49630%_))) + (_%__kont7616076161%_ + _%L49628%_ + _%L49630%_ + _%L49631%_) (let () (declare (not safe)) - (_%g4947749592%_))))))))) - (_%loop4955449779%_ _%target4955149773%_ '())))) - (_%__match7643176432%_ - (lambda (_%e4951149845%_ - _%hd4951049849%_ - _%tl4950949852%_ - _%e4951449855%_ - _%hd4951349859%_ - _%tl4951249862%_ - _%e4951749865%_ - _%hd4951649869%_ - _%tl4951549872%_ - _%e4952049875%_ - _%hd4951949879%_ - _%tl4951849882%_ - _%e4952349885%_ - _%hd4952249889%_ - _%tl4952149892%_ - _%__splice7633376334%_ - _%target4952449895%_ - _%tl4952649898%_) - (letrec ((_%loop4952749901%_ - (lambda (_%hd4952549905%_ _%body4953149908%_) - (if (gx#stx-pair? _%hd4952549905%_) - (let ((_%e4952849911%_ - (gx#syntax-e _%hd4952549905%_))) - (let ((_%lp-tl4953049918%_ + (_%g4930249417%_))))))))) + (_%loop4937949604%_ _%target4937649598%_ '())))) + (_%__match7625676257%_ + (lambda (_%e4933649670%_ + _%hd4933549674%_ + _%tl4933449677%_ + _%e4933949680%_ + _%hd4933849684%_ + _%tl4933749687%_ + _%e4934249690%_ + _%hd4934149694%_ + _%tl4934049697%_ + _%e4934549700%_ + _%hd4934449704%_ + _%tl4934349707%_ + _%e4934849710%_ + _%hd4934749714%_ + _%tl4934649717%_ + _%__splice7615876159%_ + _%target4934949720%_ + _%tl4935149723%_) + (letrec ((_%loop4935249726%_ + (lambda (_%hd4935049730%_ _%body4935649733%_) + (if (gx#stx-pair? _%hd4935049730%_) + (let ((_%e4935349736%_ + (gx#syntax-e _%hd4935049730%_))) + (let ((_%lp-tl4935549743%_ (let () (declare (not safe)) - (##cdr _%e4952849911%_))) - (_%lp-hd4952949915%_ + (##cdr _%e4935349736%_))) + (_%lp-hd4935449740%_ (let () (declare (not safe)) - (##car _%e4952849911%_)))) - (_%loop4952749901%_ - _%lp-tl4953049918%_ - (cons _%lp-hd4952949915%_ - _%body4953149908%_)))) - (let ((_%body4953249921%_ - (reverse _%body4953149908%_))) - (let ((_%L49925%_ _%body4953249921%_) - (_%L49927%_ _%hd4952249889%_) - (_%L49928%_ _%hd4951649869%_)) + (##car _%e4935349736%_)))) + (_%loop4935249726%_ + _%lp-tl4935549743%_ + (cons _%lp-hd4935449740%_ + _%body4935649733%_)))) + (let ((_%body4935749746%_ + (reverse _%body4935649733%_))) + (let ((_%L49750%_ _%body4935749746%_) + (_%L49752%_ _%hd4934749714%_) + (_%L49753%_ _%hd4934149694%_)) (if (and (gx#identifier? - _%L49928%_) + _%L49753%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L49927%_))) - (_%__kont7633176332%_ - _%L49925%_ - _%L49927%_ - _%L49928%_) + _%L49752%_))) + (_%__kont7615676157%_ + _%L49750%_ + _%L49752%_ + _%L49753%_) (let () (declare (not safe)) - (_%g4947749592%_))))))))) - (_%loop4952749901%_ _%target4952449895%_ '())))) - (_%__match7638776388%_ - (lambda (_%e4948449967%_ - _%hd4948349971%_ - _%tl4948249974%_ - _%e4948749977%_ - _%hd4948649981%_ - _%tl4948549984%_ - _%e4949049987%_ - _%hd4948949991%_ - _%tl4948849994%_ - _%e4949349997%_ - _%hd4949250001%_ - _%tl4949150004%_ - _%e4949650007%_ - _%hd4949550011%_ - _%tl4949450014%_ - _%__splice7632976330%_ - _%target4949750017%_ - _%tl4949950020%_) - (letrec ((_%loop4950050023%_ - (lambda (_%hd4949850027%_ _%body4950450030%_) - (if (gx#stx-pair? _%hd4949850027%_) - (let ((_%e4950150033%_ - (gx#syntax-e _%hd4949850027%_))) - (let ((_%lp-tl4950350040%_ + (_%g4930249417%_))))))))) + (_%loop4935249726%_ _%target4934949720%_ '())))) + (_%__match7621276213%_ + (lambda (_%e4930949792%_ + _%hd4930849796%_ + _%tl4930749799%_ + _%e4931249802%_ + _%hd4931149806%_ + _%tl4931049809%_ + _%e4931549812%_ + _%hd4931449816%_ + _%tl4931349819%_ + _%e4931849822%_ + _%hd4931749826%_ + _%tl4931649829%_ + _%e4932149832%_ + _%hd4932049836%_ + _%tl4931949839%_ + _%__splice7615476155%_ + _%target4932249842%_ + _%tl4932449845%_) + (letrec ((_%loop4932549848%_ + (lambda (_%hd4932349852%_ _%body4932949855%_) + (if (gx#stx-pair? _%hd4932349852%_) + (let ((_%e4932649858%_ + (gx#syntax-e _%hd4932349852%_))) + (let ((_%lp-tl4932849865%_ (let () (declare (not safe)) - (##cdr _%e4950150033%_))) - (_%lp-hd4950250037%_ + (##cdr _%e4932649858%_))) + (_%lp-hd4932749862%_ (let () (declare (not safe)) - (##car _%e4950150033%_)))) - (_%loop4950050023%_ - _%lp-tl4950350040%_ - (cons _%lp-hd4950250037%_ - _%body4950450030%_)))) - (let ((_%body4950550043%_ - (reverse _%body4950450030%_))) - (let ((_%L50047%_ _%body4950550043%_) - (_%L50049%_ _%hd4949550011%_) - (_%L50050%_ _%hd4948949991%_)) + (##car _%e4932649858%_)))) + (_%loop4932549848%_ + _%lp-tl4932849865%_ + (cons _%lp-hd4932749862%_ + _%body4932949855%_)))) + (let ((_%body4933049868%_ + (reverse _%body4932949855%_))) + (let ((_%L49872%_ _%body4933049868%_) + (_%L49874%_ _%hd4932049836%_) + (_%L49875%_ _%hd4931449816%_)) (if (and (gx#identifier? - _%L50050%_) + _%L49875%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L50049%_))) - (_%__kont7632776328%_ - _%L50047%_ - _%L50049%_ - _%L50050%_) + _%L49874%_))) + (_%__kont7615276153%_ + _%L49872%_ + _%L49874%_ + _%L49875%_) (let () (declare (not safe)) - (_%g4947749592%_))))))))) - (_%loop4950050023%_ _%target4949750017%_ '()))))) - (if (gx#stx-pair? _%__stx7632476325%_) - (let ((_%e4948449967%_ (gx#syntax-e _%__stx7632476325%_))) - (let ((_%tl4948249974%_ + (_%g4930249417%_))))))))) + (_%loop4932549848%_ _%target4932249842%_ '()))))) + (if (gx#stx-pair? _%__stx7614976150%_) + (let ((_%e4930949792%_ (gx#syntax-e _%__stx7614976150%_))) + (let ((_%tl4930749799%_ (let () (declare (not safe)) - (##cdr _%e4948449967%_))) - (_%hd4948349971%_ + (##cdr _%e4930949792%_))) + (_%hd4930849796%_ (let () (declare (not safe)) - (##car _%e4948449967%_)))) - (if (gx#stx-pair? _%tl4948249974%_) - (let ((_%e4948749977%_ - (gx#syntax-e _%tl4948249974%_))) - (let ((_%tl4948549984%_ + (##car _%e4930949792%_)))) + (if (gx#stx-pair? _%tl4930749799%_) + (let ((_%e4931249802%_ + (gx#syntax-e _%tl4930749799%_))) + (let ((_%tl4931049809%_ (let () (declare (not safe)) - (##cdr _%e4948749977%_))) - (_%hd4948649981%_ + (##cdr _%e4931249802%_))) + (_%hd4931149806%_ (let () (declare (not safe)) - (##car _%e4948749977%_)))) - (if (gx#stx-pair? _%hd4948649981%_) - (let ((_%e4949049987%_ - (gx#syntax-e _%hd4948649981%_))) - (let ((_%tl4948849994%_ + (##car _%e4931249802%_)))) + (if (gx#stx-pair? _%hd4931149806%_) + (let ((_%e4931549812%_ + (gx#syntax-e _%hd4931149806%_))) + (let ((_%tl4931349819%_ (let () (declare (not safe)) - (##cdr _%e4949049987%_))) - (_%hd4948949991%_ + (##cdr _%e4931549812%_))) + (_%hd4931449816%_ (let () (declare (not safe)) - (##car _%e4949049987%_)))) - (if (gx#stx-pair? _%tl4948849994%_) - (let ((_%e4949349997%_ + (##car _%e4931549812%_)))) + (if (gx#stx-pair? _%tl4931349819%_) + (let ((_%e4931849822%_ (gx#syntax-e - _%tl4948849994%_))) - (let ((_%tl4949150004%_ + _%tl4931349819%_))) + (let ((_%tl4931649829%_ (let () (declare (not safe)) - (##cdr _%e4949349997%_))) - (_%hd4949250001%_ + (##cdr _%e4931849822%_))) + (_%hd4931749826%_ (let () (declare (not safe)) - (##car _%e4949349997%_)))) + (##car _%e4931849822%_)))) (if (gx#identifier? - _%hd4949250001%_) + _%hd4931749826%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80724_| - _%hd4949250001%_) + |gerbil/core/contract~Using[1]#_g80536_| + _%hd4931749826%_) (if (gx#stx-pair? - _%tl4949150004%_) - (let ((_%e4949650007%_ + _%tl4931649829%_) + (let ((_%e4932149832%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4949150004%_))) - (let ((_%tl4949450014%_ + (gx#syntax-e _%tl4931649829%_))) + (let ((_%tl4931949839%_ (let () (declare (not safe)) - (##cdr _%e4949650007%_))) - (_%hd4949550011%_ + (##cdr _%e4932149832%_))) + (_%hd4932049836%_ (let () (declare (not safe)) - (##car _%e4949650007%_)))) - (if (gx#stx-null? _%tl4949450014%_) - (if (gx#stx-pair/null? _%tl4948549984%_) - (let ((_%__splice7632976330%_ + (##car _%e4932149832%_)))) + (if (gx#stx-null? _%tl4931949839%_) + (if (gx#stx-pair/null? _%tl4931049809%_) + (let ((_%__splice7615476155%_ (gx#syntax-split-splice - _%tl4948549984%_ + _%tl4931049809%_ '0))) - (let ((_%tl4949950020%_ + (let ((_%tl4932449845%_ (let () (declare (not safe)) (##vector-ref - _%__splice7632976330%_ + _%__splice7615476155%_ '1))) - (_%target4949750017%_ + (_%target4932249842%_ (let () (declare (not safe)) (##vector-ref - _%__splice7632976330%_ + _%__splice7615476155%_ '0)))) - (if (gx#stx-null? _%tl4949950020%_) - (_%__match7638776388%_ - _%e4948449967%_ - _%hd4948349971%_ - _%tl4948249974%_ - _%e4948749977%_ - _%hd4948649981%_ - _%tl4948549984%_ - _%e4949049987%_ - _%hd4948949991%_ - _%tl4948849994%_ - _%e4949349997%_ - _%hd4949250001%_ - _%tl4949150004%_ - _%e4949650007%_ - _%hd4949550011%_ - _%tl4949450014%_ - _%__splice7632976330%_ - _%target4949750017%_ - _%tl4949950020%_) + (if (gx#stx-null? _%tl4932449845%_) + (_%__match7621276213%_ + _%e4930949792%_ + _%hd4930849796%_ + _%tl4930749799%_ + _%e4931249802%_ + _%hd4931149806%_ + _%tl4931049809%_ + _%e4931549812%_ + _%hd4931449816%_ + _%tl4931349819%_ + _%e4931849822%_ + _%hd4931749826%_ + _%tl4931649829%_ + _%e4932149832%_ + _%hd4932049836%_ + _%tl4931949839%_ + _%__splice7615476155%_ + _%target4932249842%_ + _%tl4932449845%_) (let () (declare (not safe)) - (_%g4947749592%_))))) + (_%g4930249417%_))))) (let () (declare (not safe)) - (_%g4947749592%_))) - (let () (declare (not safe)) (_%g4947749592%_))))) - (let () (declare (not safe)) (_%g4947749592%_))) + (_%g4930249417%_))) + (let () (declare (not safe)) (_%g4930249417%_))))) + (let () (declare (not safe)) (_%g4930249417%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80725_| - _%hd4949250001%_) - (if (gx#stx-pair? _%tl4949150004%_) - (let ((_%e4952349885%_ (gx#syntax-e _%tl4949150004%_))) - (let ((_%tl4952149892%_ + |gerbil/core/contract~Using[1]#_g80537_| + _%hd4931749826%_) + (if (gx#stx-pair? _%tl4931649829%_) + (let ((_%e4934849710%_ (gx#syntax-e _%tl4931649829%_))) + (let ((_%tl4934649717%_ (let () (declare (not safe)) - (##cdr _%e4952349885%_))) - (_%hd4952249889%_ + (##cdr _%e4934849710%_))) + (_%hd4934749714%_ (let () (declare (not safe)) - (##car _%e4952349885%_)))) - (if (gx#stx-null? _%tl4952149892%_) - (if (gx#stx-pair/null? _%tl4948549984%_) - (let ((_%__splice7633376334%_ + (##car _%e4934849710%_)))) + (if (gx#stx-null? _%tl4934649717%_) + (if (gx#stx-pair/null? _%tl4931049809%_) + (let ((_%__splice7615876159%_ (gx#syntax-split-splice - _%tl4948549984%_ + _%tl4931049809%_ '0))) - (let ((_%tl4952649898%_ + (let ((_%tl4935149723%_ (let () (declare (not safe)) (##vector-ref - _%__splice7633376334%_ + _%__splice7615876159%_ '1))) - (_%target4952449895%_ + (_%target4934949720%_ (let () (declare (not safe)) (##vector-ref - _%__splice7633376334%_ + _%__splice7615876159%_ '0)))) - (if (gx#stx-null? _%tl4952649898%_) - (_%__match7643176432%_ - _%e4948449967%_ - _%hd4948349971%_ - _%tl4948249974%_ - _%e4948749977%_ - _%hd4948649981%_ - _%tl4948549984%_ - _%e4949049987%_ - _%hd4948949991%_ - _%tl4948849994%_ - _%e4949349997%_ - _%hd4949250001%_ - _%tl4949150004%_ - _%e4952349885%_ - _%hd4952249889%_ - _%tl4952149892%_ - _%__splice7633376334%_ - _%target4952449895%_ - _%tl4952649898%_) + (if (gx#stx-null? _%tl4935149723%_) + (_%__match7625676257%_ + _%e4930949792%_ + _%hd4930849796%_ + _%tl4930749799%_ + _%e4931249802%_ + _%hd4931149806%_ + _%tl4931049809%_ + _%e4931549812%_ + _%hd4931449816%_ + _%tl4931349819%_ + _%e4931849822%_ + _%hd4931749826%_ + _%tl4931649829%_ + _%e4934849710%_ + _%hd4934749714%_ + _%tl4934649717%_ + _%__splice7615876159%_ + _%target4934949720%_ + _%tl4935149723%_) (let () (declare (not safe)) - (_%g4947749592%_))))) + (_%g4930249417%_))))) (let () (declare (not safe)) - (_%g4947749592%_))) + (_%g4930249417%_))) (let () (declare (not safe)) - (_%g4947749592%_))))) - (let () (declare (not safe)) (_%g4947749592%_))) + (_%g4930249417%_))))) + (let () (declare (not safe)) (_%g4930249417%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80726_| - _%hd4949250001%_) - (if (gx#stx-pair? _%tl4949150004%_) - (let ((_%e4955049763%_ - (gx#syntax-e _%tl4949150004%_))) - (let ((_%tl4954849770%_ + |gerbil/core/contract~Using[1]#_g80538_| + _%hd4931749826%_) + (if (gx#stx-pair? _%tl4931649829%_) + (let ((_%e4937549588%_ + (gx#syntax-e _%tl4931649829%_))) + (let ((_%tl4937349595%_ (let () (declare (not safe)) - (##cdr _%e4955049763%_))) - (_%hd4954949767%_ + (##cdr _%e4937549588%_))) + (_%hd4937449592%_ (let () (declare (not safe)) - (##car _%e4955049763%_)))) - (if (gx#stx-null? _%tl4954849770%_) - (if (gx#stx-pair/null? _%tl4948549984%_) - (let ((_%__splice7633776338%_ + (##car _%e4937549588%_)))) + (if (gx#stx-null? _%tl4937349595%_) + (if (gx#stx-pair/null? _%tl4931049809%_) + (let ((_%__splice7616276163%_ (gx#syntax-split-splice - _%tl4948549984%_ + _%tl4931049809%_ '0))) - (let ((_%tl4955349776%_ + (let ((_%tl4937849601%_ (let () (declare (not safe)) (##vector-ref - _%__splice7633776338%_ + _%__splice7616276163%_ '1))) - (_%target4955149773%_ + (_%target4937649598%_ (let () (declare (not safe)) (##vector-ref - _%__splice7633776338%_ + _%__splice7616276163%_ '0)))) - (if (gx#stx-null? _%tl4955349776%_) - (_%__match7647576476%_ - _%e4948449967%_ - _%hd4948349971%_ - _%tl4948249974%_ - _%e4948749977%_ - _%hd4948649981%_ - _%tl4948549984%_ - _%e4949049987%_ - _%hd4948949991%_ - _%tl4948849994%_ - _%e4949349997%_ - _%hd4949250001%_ - _%tl4949150004%_ - _%e4955049763%_ - _%hd4954949767%_ - _%tl4954849770%_ - _%__splice7633776338%_ - _%target4955149773%_ - _%tl4955349776%_) + (if (gx#stx-null? _%tl4937849601%_) + (_%__match7630076301%_ + _%e4930949792%_ + _%hd4930849796%_ + _%tl4930749799%_ + _%e4931249802%_ + _%hd4931149806%_ + _%tl4931049809%_ + _%e4931549812%_ + _%hd4931449816%_ + _%tl4931349819%_ + _%e4931849822%_ + _%hd4931749826%_ + _%tl4931649829%_ + _%e4937549588%_ + _%hd4937449592%_ + _%tl4937349595%_ + _%__splice7616276163%_ + _%target4937649598%_ + _%tl4937849601%_) (let () (declare (not safe)) - (_%g4947749592%_))))) + (_%g4930249417%_))))) (let () (declare (not safe)) - (_%g4947749592%_))) + (_%g4930249417%_))) (let () (declare (not safe)) - (_%g4947749592%_))))) - (let () (declare (not safe)) (_%g4947749592%_))) + (_%g4930249417%_))))) + (let () (declare (not safe)) (_%g4930249417%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80727_| - _%hd4949250001%_) - (if (gx#stx-pair? _%tl4949150004%_) - (let ((_%e4957749639%_ - (gx#syntax-e _%tl4949150004%_))) - (let ((_%tl4957549646%_ + |gerbil/core/contract~Using[1]#_g80539_| + _%hd4931749826%_) + (if (gx#stx-pair? _%tl4931649829%_) + (let ((_%e4940249464%_ + (gx#syntax-e _%tl4931649829%_))) + (let ((_%tl4940049471%_ (let () (declare (not safe)) - (##cdr _%e4957749639%_))) - (_%hd4957649643%_ + (##cdr _%e4940249464%_))) + (_%hd4940149468%_ (let () (declare (not safe)) - (##car _%e4957749639%_)))) - (if (gx#stx-null? _%tl4957549646%_) + (##car _%e4940249464%_)))) + (if (gx#stx-null? _%tl4940049471%_) (if (gx#stx-pair/null? - _%tl4948549984%_) - (let ((_%__splice7634176342%_ + _%tl4931049809%_) + (let ((_%__splice7616676167%_ (gx#syntax-split-splice - _%tl4948549984%_ + _%tl4931049809%_ '0))) - (let ((_%tl4958049652%_ + (let ((_%tl4940549477%_ (let () (declare (not safe)) (##vector-ref - _%__splice7634176342%_ + _%__splice7616676167%_ '1))) - (_%target4957849649%_ + (_%target4940349474%_ (let () (declare (not safe)) (##vector-ref - _%__splice7634176342%_ + _%__splice7616676167%_ '0)))) (if (gx#stx-null? - _%tl4958049652%_) - (_%__match7651976520%_ - _%e4948449967%_ - _%hd4948349971%_ - _%tl4948249974%_ - _%e4948749977%_ - _%hd4948649981%_ - _%tl4948549984%_ - _%e4949049987%_ - _%hd4948949991%_ - _%tl4948849994%_ - _%e4949349997%_ - _%hd4949250001%_ - _%tl4949150004%_ - _%e4957749639%_ - _%hd4957649643%_ - _%tl4957549646%_ - _%__splice7634176342%_ - _%target4957849649%_ - _%tl4958049652%_) + _%tl4940549477%_) + (_%__match7634476345%_ + _%e4930949792%_ + _%hd4930849796%_ + _%tl4930749799%_ + _%e4931249802%_ + _%hd4931149806%_ + _%tl4931049809%_ + _%e4931549812%_ + _%hd4931449816%_ + _%tl4931349819%_ + _%e4931849822%_ + _%hd4931749826%_ + _%tl4931649829%_ + _%e4940249464%_ + _%hd4940149468%_ + _%tl4940049471%_ + _%__splice7616676167%_ + _%target4940349474%_ + _%tl4940549477%_) (let () (declare (not safe)) - (_%g4947749592%_))))) + (_%g4930249417%_))))) (let () (declare (not safe)) - (_%g4947749592%_))) + (_%g4930249417%_))) (let () (declare (not safe)) - (_%g4947749592%_))))) + (_%g4930249417%_))))) (let () (declare (not safe)) - (_%g4947749592%_))) - (let () (declare (not safe)) (_%g4947749592%_)))))) + (_%g4930249417%_))) + (let () (declare (not safe)) (_%g4930249417%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4947749592%_))))) + (_%g4930249417%_))))) (let () (declare (not safe)) - (_%g4947749592%_))))) + (_%g4930249417%_))))) (let () (declare (not safe)) - (_%g4947749592%_))))) - (let () (declare (not safe)) (_%g4947749592%_))))) - (let () (declare (not safe)) (_%g4947749592%_))))))))) + (_%g4930249417%_))))) + (let () (declare (not safe)) (_%g4930249417%_))))) + (let () (declare (not safe)) (_%g4930249417%_))))))))) (define |gerbil/core/contract~Using[:0:]#%%app-dotted| - (lambda (_%stx50507%_) - (let* ((_%__stx7652276523%_ _%stx50507%_) - (_%g5051250572%_ + (lambda (_%stx50332%_) + (let* ((_%__stx7634776348%_ _%stx50332%_) + (_%g5033750397%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7652276523%_)))) - (let ((_%__kont7652576526%_ - (lambda (_%L51134%_ _%L51136%_) + _%__stx7634776348%_)))) + (let ((_%__kont7635076351%_ + (lambda (_%L50959%_ _%L50961%_) (cons (gx#datum->syntax '#f '%%app-dotted) (cons (cons (gx#datum->syntax '#f '%%ref-dotted) - (cons _%L51136%_ '())) - (foldr (lambda (_%g5115251155%_ _%g5115351158%_) - (cons _%g5115251155%_ _%g5115351158%_)) + (cons _%L50961%_ '())) + (foldr (lambda (_%g5097750980%_ _%g5097850983%_) + (cons _%g5097750980%_ _%g5097850983%_)) '() - _%L51134%_))))) - (_%__kont7652976530%_ - (lambda (_%L50720%_ _%L50722%_) - (if (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L50722%_)) - (let* ((_%g5074250749%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx50507%_ - _%L50722%_))) - (_%E5074450755%_ + _%L50959%_))))) + (_%__kont7635476355%_ + (lambda (_%L50545%_ _%L50547%_) + (if (|gerbil/core/contract~Using[1]#dotted-identifier?| + _%L50547%_) + (let* ((_%g5056750574%_ + (|gerbil/core/contract~Using[1]#split-dotted-identifier| + _%stx50332%_ + _%L50547%_)) + (_%E5056950580%_ (lambda () (error '"No clause matching" - _%g5074250749%_ + _%g5056750574%_ '([var . parts])) (void))) - (_%K5074551053%_ - (lambda (_%parts50759%_ _%var50761%_) - (let ((_%$e50763%_ + (_%K5057050878%_ + (lambda (_%parts50584%_ _%var50586%_) + (let ((_%$e50588%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var50761%_)))) - (if _%$e50763%_ - ((lambda (_%te50767%_) - (let _%loop50770%_ ((_%parts50773%_ - _%parts50759%_) - (_%type50775%_ + _%var50586%_)))) + (if _%$e50588%_ + ((lambda (_%te50592%_) + (let _%loop50595%_ ((_%parts50598%_ + _%parts50584%_) + (_%type50600%_ (##direct-structure-ref - _%te50767%_ + _%te50592%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object50776%_ - _%var50761%_) - (_%checked-method?50777%_ + (_%object50601%_ + _%var50586%_) + (_%checked-method?50602%_ (##direct-structure-ref - _%te50767%_ + _%te50592%_ '3 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%nil-check?50778%_ + (_%nil-check?50603%_ '#f)) - (let* ((_%parts5077950787%_ - _%parts50773%_) - (_%else5078150848%_ + (let* ((_%parts5060450612%_ + _%parts50598%_) + (_%else5060650673%_ (lambda () - (let* ((_%g5079950807%_ - (lambda (_%g5080050803%_) + (let* ((_%g5062450632%_ + (lambda (_%g5062550628%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g5080050803%_))) - (_%g5079850844%_ - (lambda (_%g5080050811%_) - ((lambda (_%L50814%_) - (let () - (cons (gx#datum->syntax '#f '%%app) - (cons _%L50814%_ - (foldr (lambda (_%g5083550838%_ - _%g5083650841%_) - (cons _%g5083550838%_ - _%g5083650841%_)) - '() - _%L50720%_))))) - _%g5080050811%_)))) - (_%g5079850844%_ _%object50776%_)))) + _%g5062550628%_))) + (_%g5062350669%_ + (lambda (_%g5062550636%_) + ((lambda (_%L50639%_) + (cons (gx#datum->syntax '#f '%%app) + (cons _%L50639%_ + (foldr (lambda (_%g5066050663%_ + _%g5066150666%_) + (cons _%g5066050663%_ + _%g5066150666%_)) + '() + _%L50545%_)))) + _%g5062550636%_)))) + (_%g5062350669%_ _%object50601%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K5078351027%_ - (lambda (_%rest50852%_ - _%part50854%_) - (if (and (let () + (_%K5060850852%_ + (lambda (_%rest50677%_ + _%part50679%_) + (if (and (not _%nil-check?50603%_) + (let ((__tmp80540 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (symbol->string _%part50679%_))) (declare (not safe)) - (not _%nil-check?50778%_)) - (let ((__tmp80728 (symbol->string _%part50854%_))) - (declare (not safe)) - (##string-prefix? '"?" __tmp80728))) - (let ((_%str50858%_ (symbol->string _%part50854%_))) - (_%loop50770%_ - (cons (let ((__tmp80729 + (##string-prefix? '"?" __tmp80540))) + (let ((_%str50683%_ (symbol->string _%part50679%_))) + (_%loop50595%_ + (cons (let ((__tmp80541 (substring - _%str50858%_ + _%str50683%_ '1 - (string-length _%str50858%_)))) + (string-length _%str50683%_)))) (declare (not safe)) - (##string->symbol __tmp80729)) - _%rest50852%_) - _%type50775%_ - _%object50776%_ - _%checked-method?50777%_ + (##string->symbol __tmp80541)) + _%rest50677%_) + _%type50600%_ + _%object50601%_ + _%checked-method?50602%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type50775%_)) - (let () - (let* ((_%g5086350878%_ - (lambda (_%g5086450874%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5086450874%_))) - (_%g5086250947%_ - (lambda (_%g5086450882%_) - (if (gx#stx-pair? _%g5086450882%_) - (let ((_%e5086950885%_ - (gx#syntax-e _%g5086450882%_))) - (let ((_%hd5086850889%_ - (let () - (declare (not safe)) - (##car _%e5086950885%_))) - (_%tl5086750892%_ - (let () - (declare (not safe)) - (##cdr _%e5086950885%_)))) - (if (gx#stx-pair? _%tl5086750892%_) - (let ((_%e5087250895%_ - (gx#syntax-e - _%tl5086750892%_))) - (let ((_%hd5087150899%_ - (let () - (declare (not safe)) - (##car _%e5087250895%_))) - (_%tl5087050902%_ - (let () - (declare (not safe)) - (##cdr _%e5087250895%_)))) - (if (gx#stx-null? - _%tl5087050902%_) - ((lambda (_%L50905%_ - _%L50907%_) - (let () - (if (let () + _%type50600%_)) + (let* ((_%g5068850703%_ + (lambda (_%g5068950699%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5068950699%_))) + (_%g5068750772%_ + (lambda (_%g5068950707%_) + (if (gx#stx-pair? _%g5068950707%_) + (let ((_%e5069450710%_ + (gx#syntax-e _%g5068950707%_))) + (let ((_%hd5069350714%_ + (let () + (declare (not safe)) + (##car _%e5069450710%_))) + (_%tl5069250717%_ + (let () + (declare (not safe)) + (##cdr _%e5069450710%_)))) + (if (gx#stx-pair? _%tl5069250717%_) + (let ((_%e5069750720%_ + (gx#syntax-e + _%tl5069250717%_))) + (let ((_%hd5069650724%_ + (let () + (declare (not safe)) + (##car _%e5069750720%_))) + (_%tl5069550727%_ + (let () + (declare (not safe)) + (##cdr _%e5069750720%_)))) + (if (gx#stx-null? + _%tl5069550727%_) + ((lambda (_%L50730%_ + _%L50732%_) + (if (null? _%rest50677%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (null? _%rest50852%_)) - (let () - (cons (gx#datum->syntax '#f '%%app) - (cons (cons _%L50905%_ (cons _%L50907%_ '())) - (foldr (lambda (_%g5092650929%_ - _%g5092750932%_) - (cons _%g5092650929%_ - _%g5092750932%_)) - '() - _%L50720%_)))) - (let ((_%$e50935%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type50775%_ - _%part50854%_)))) - (if _%$e50935%_ - ((lambda (_%slot-type50939%_) - (let ((_%slot-type50942%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx50507%_ - _%slot-type50939%_)))) - (_%loop50770%_ - _%rest50852%_ - _%slot-type50942%_ - (cons _%L50905%_ (cons _%L50907%_ '())) + '#f + '%%app) + (cons (cons _%L50730%_ (cons _%L50732%_ '())) + (foldr (lambda (_%g5075150754%_ _%g5075250757%_) + (cons _%g5075150754%_ _%g5075250757%_)) + '() + _%L50545%_))) + (let ((_%$e50760%_ + (|gerbil/core/contract~Using[1]#!class-slot-type| + _%type50600%_ + _%part50679%_))) + (if _%$e50760%_ + ((lambda (_%slot-type50764%_) + (let ((_%slot-type50767%_ (let () (declare (not safe)) - (|gerbil/core/contract~Using[1]#!class-slot-checked-method-contract?| - _%type50775%_ - _%part50854%_)) - '#f))) - _%$e50935%_) - (let () - (gx#raise-syntax-error - '#f - '"unresolved dotted reference; unknown type for slot" - _%stx50507%_ - _%L50722%_ - _%part50854%_))))))) - _%hd5087150899%_ - _%hd5086850889%_) - (_%g5086350878%_ _%g5086450882%_)))) + (|gerbil/core/contract~TypeReference[1]#resolve-type| + _%stx50332%_ + _%slot-type50764%_)))) + (_%loop50595%_ + _%rest50677%_ + _%slot-type50767%_ + (cons _%L50730%_ (cons _%L50732%_ '())) + (|gerbil/core/contract~Using[1]#!class-slot-checked-method-contract?| + _%type50600%_ + _%part50679%_) + '#f))) + _%$e50760%_) + (gx#raise-syntax-error + '#f + '"unresolved dotted reference; unknown type for slot" + _%stx50332%_ + _%L50547%_ + _%part50679%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5086350878%_ - _%g5086450882%_)))) - (_%g5086350878%_ _%g5086450882%_))))) - (_%g5086250947%_ - (list (if _%nil-check?50778%_ - (cons 'check-nil! - (cons _%object50776%_ '())) - _%object50776%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx50507%_ - _%type50775%_ - _%part50854%_)))))) + _%hd5069650724%_ + _%hd5069350714%_) + (_%g5068850703%_ + _%g5068950707%_)))) + (_%g5068850703%_ + _%g5068950707%_)))) + (_%g5068850703%_ _%g5068950707%_))))) + (_%g5068750772%_ + (list (if _%nil-check?50603%_ + (cons 'check-nil! + (cons _%object50601%_ '())) + _%object50601%_) + (|gerbil/core/contract~Using[1]#get-slot-accessor| + _%stx50332%_ + _%type50600%_ + _%part50679%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type50775%_)) - (let () - (if (let () - (declare (not safe)) - (null? _%rest50852%_)) - (let* ((_%g5095350968%_ - (lambda (_%g5095450964%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5095450964%_))) - (_%g5095251021%_ - (lambda (_%g5095450972%_) - (if (gx#stx-pair? _%g5095450972%_) - (let ((_%e5095950975%_ - (gx#syntax-e - _%g5095450972%_))) - (let ((_%hd5095850979%_ - (let () - (declare (not safe)) - (##car _%e5095950975%_))) - (_%tl5095750982%_ - (let () - (declare (not safe)) - (##cdr _%e5095950975%_)))) - (if (gx#stx-pair? - _%tl5095750982%_) - (let ((_%e5096250985%_ - (gx#syntax-e - _%tl5095750982%_))) - (let ((_%hd5096150989%_ - (let () + _%type50600%_)) + (if (null? _%rest50677%_) + (let* ((_%g5077850793%_ + (lambda (_%g5077950789%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5077950789%_))) + (_%g5077750846%_ + (lambda (_%g5077950797%_) + (if (gx#stx-pair? _%g5077950797%_) + (let ((_%e5078450800%_ + (gx#syntax-e + _%g5077950797%_))) + (let ((_%hd5078350804%_ + (let () + (declare (not safe)) + (##car _%e5078450800%_))) + (_%tl5078250807%_ + (let () + (declare (not safe)) + (##cdr _%e5078450800%_)))) + (if (gx#stx-pair? + _%tl5078250807%_) + (let ((_%e5078750810%_ + (gx#syntax-e + _%tl5078250807%_))) + (let ((_%hd5078650814%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _%e5096250985%_))) - (_%tl5096050992%_ - (let () (declare (not safe)) (##cdr _%e5096250985%_)))) - (if (gx#stx-null? _%tl5096050992%_) - ((lambda (_%L50995%_ _%L50997%_) - (let () - (cons _%L50995%_ - (cons _%L50997%_ - (foldr (lambda (_%g5101251015%_ - _%g5101351018%_) - (cons _%g5101251015%_ - _%g5101351018%_)) - '() - _%L50720%_))))) - _%hd5096150989%_ - _%hd5095850979%_) - (_%g5095350968%_ _%g5095450972%_)))) - (_%g5095350968%_ _%g5095450972%_)))) + (not safe)) + (##car _%e5078750810%_))) + (_%tl5078550817%_ + (let () (declare (not safe)) (##cdr _%e5078750810%_)))) + (if (gx#stx-null? _%tl5078550817%_) + ((lambda (_%L50820%_ _%L50822%_) + (cons _%L50820%_ + (cons _%L50822%_ + (foldr (lambda (_%g5083750840%_ + _%g5083850843%_) + (cons _%g5083750840%_ + _%g5083850843%_)) + '() + _%L50545%_)))) + _%hd5078650814%_ + _%hd5078350804%_) + (_%g5077850793%_ _%g5077950797%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5095350968%_ - _%g5095450972%_))))) - (_%g5095251021%_ - (list (if _%nil-check?50778%_ - (cons 'check-nil! - (cons _%object50776%_ '())) - _%object50776%_) - (gx#stx-identifier - _%L50722%_ - (if _%checked-method?50777%_ - '"" - '"&") - (let ((__obj80547 _%type50775%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80547 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80547 - '1 - '#f - '#f)) - (class-slot-ref - gerbil/core/contract~InterfaceInfo#interface-info::t - __obj80547 - 'name))) - '"-" - _%part50854%_)))) - (gx#raise-syntax-error - '#f - '"illegal dotted reference; interface has no slots" - _%stx50507%_ - _%L50722%_ - _%part50854%_))) - (let () - (gx#raise-syntax-error - '#f - '"unexpected type" - _%stx50507%_ - _%type50775%_)))))))) + (_%g5077850793%_ + _%g5077950797%_)))) + (_%g5077850793%_ + _%g5077950797%_))))) + (_%g5077750846%_ + (list (if _%nil-check?50603%_ + (cons 'check-nil! + (cons _%object50601%_ '())) + _%object50601%_) + (gx#stx-identifier + _%L50547%_ + (if _%checked-method?50602%_ '"" '"&") + (let ((__obj80372 _%type50600%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80372 + 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80372 + '1 + '#f + '#f)) + (class-slot-ref + gerbil/core/contract~InterfaceInfo#interface-info::t + __obj80372 + 'name))) + '"-" + _%part50679%_)))) + (gx#raise-syntax-error + '#f + '"illegal dotted reference; interface has no slots" + _%stx50332%_ + _%L50547%_ + _%part50679%_)) + (gx#raise-syntax-error + '#f + '"unexpected type" + _%stx50332%_ + _%type50600%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%parts5077950787%_)) - (let ((_%hd5078451031%_ + (##pair? _%parts5060450612%_)) + (let ((_%hd5060950856%_ (let () (declare (not safe)) - (##car _%parts5077950787%_))) - (_%tl5078551034%_ + (##car _%parts5060450612%_))) + (_%tl5061050859%_ (let () (declare (not safe)) - (##cdr _%parts5077950787%_)))) - (let* ((_%part51037%_ - _%hd5078451031%_) - (_%rest51040%_ - _%tl5078551034%_)) - (_%K5078351027%_ - _%rest51040%_ - _%part51037%_))) - (_%else5078150848%_))))) - _%$e50763%_) - (let () - (cons (gx#datum->syntax '#f '%%app) - (cons _%L50722%_ - (foldr (lambda (_%g5104451047%_ + (##cdr _%parts5060450612%_)))) + (let* ((_%part50862%_ + _%hd5060950856%_) + (_%rest50865%_ + _%tl5061050859%_)) + (_%K5060850852%_ + _%rest50865%_ + _%part50862%_))) + (_%else5060650673%_))))) + _%$e50588%_) + (cons (gx#datum->syntax '#f '%%app) + (cons _%L50547%_ + (foldr (lambda (_%g5086950872%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5104551050%_) - (cons _%g5104451047%_ _%g5104551050%_)) - '() - _%L50720%_))))))))) + _%g5087050875%_) + (cons _%g5086950872%_ _%g5087050875%_)) + '() + _%L50545%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%g5074250749%_)) - (let ((_%hd5074651057%_ + (##pair? _%g5056750574%_)) + (let ((_%hd5057150882%_ (let () (declare (not safe)) - (##car _%g5074250749%_))) - (_%tl5074751060%_ + (##car _%g5056750574%_))) + (_%tl5057250885%_ (let () (declare (not safe)) - (##cdr _%g5074250749%_)))) - (let* ((_%var51063%_ _%hd5074651057%_) - (_%parts51066%_ _%tl5074751060%_)) - (_%K5074551053%_ - _%parts51066%_ - _%var51063%_))) - (_%E5074450755%_))) + (##cdr _%g5056750574%_)))) + (let* ((_%var50888%_ _%hd5057150882%_) + (_%parts50891%_ _%tl5057250885%_)) + (_%K5057050878%_ + _%parts50891%_ + _%var50888%_))) + (_%E5056950580%_))) (cons (gx#datum->syntax '#f '%%app) - (cons _%L50722%_ - (foldr (lambda (_%g5106851071%_ - _%g5106951074%_) - (cons _%g5106851071%_ - _%g5106951074%_)) + (cons _%L50547%_ + (foldr (lambda (_%g5089350896%_ + _%g5089450899%_) + (cons _%g5089350896%_ + _%g5089450899%_)) '() - _%L50720%_)))))) - (_%__kont7653376534%_ - (lambda (_%L50619%_) + _%L50545%_)))))) + (_%__kont7635876359%_ + (lambda (_%L50444%_) (cons (gx#datum->syntax '#f '%%app) - (foldr (lambda (_%g5063450637%_ _%g5063550640%_) - (cons _%g5063450637%_ _%g5063550640%_)) + (foldr (lambda (_%g5045950462%_ _%g5046050465%_) + (cons _%g5045950462%_ _%g5046050465%_)) '() - _%L50619%_))))) - (let* ((_%__match7660976610%_ - (lambda (_%e5055750579%_ - _%hd5055650583%_ - _%tl5055550586%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) - (letrec ((_%loop5056150595%_ - (lambda (_%hd5055950599%_ _%arg5056550602%_) - (if (gx#stx-pair? _%hd5055950599%_) - (let ((_%e5056250605%_ - (gx#syntax-e _%hd5055950599%_))) - (let ((_%lp-tl5056450612%_ + _%L50444%_))))) + (let* ((_%__match7643476435%_ + (lambda (_%e5038250404%_ + _%hd5038150408%_ + _%tl5038050411%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) + (letrec ((_%loop5038650420%_ + (lambda (_%hd5038450424%_ _%arg5039050427%_) + (if (gx#stx-pair? _%hd5038450424%_) + (let ((_%e5038750430%_ + (gx#syntax-e _%hd5038450424%_))) + (let ((_%lp-tl5038950437%_ (let () (declare (not safe)) - (##cdr _%e5056250605%_))) - (_%lp-hd5056350609%_ + (##cdr _%e5038750430%_))) + (_%lp-hd5038850434%_ (let () (declare (not safe)) - (##car _%e5056250605%_)))) - (_%loop5056150595%_ - _%lp-tl5056450612%_ - (cons _%lp-hd5056350609%_ - _%arg5056550602%_)))) - (let ((_%arg5056650615%_ - (reverse _%arg5056550602%_))) - (_%__kont7653376534%_ - _%arg5056650615%_)))))) - (_%loop5056150595%_ _%target5055850589%_ '())))) - (_%__match7659576596%_ - (lambda (_%e5053550650%_ - _%hd5053450654%_ - _%tl5053350657%_ - _%e5053850660%_ - _%hd5053750664%_ - _%tl5053650667%_ - _%e5054150670%_ - _%hd5054050674%_ - _%tl5053950677%_ - _%e5054450680%_ - _%hd5054350684%_ - _%tl5054250687%_ - _%__splice7653176532%_ - _%target5054550690%_ - _%tl5054750693%_) - (letrec ((_%loop5054850696%_ - (lambda (_%hd5054650700%_ _%rand5055250703%_) - (if (gx#stx-pair? _%hd5054650700%_) - (let ((_%e5054950706%_ - (gx#syntax-e _%hd5054650700%_))) - (let ((_%lp-tl5055150713%_ + (##car _%e5038750430%_)))) + (_%loop5038650420%_ + _%lp-tl5038950437%_ + (cons _%lp-hd5038850434%_ + _%arg5039050427%_)))) + (let ((_%arg5039150440%_ + (reverse _%arg5039050427%_))) + (_%__kont7635876359%_ + _%arg5039150440%_)))))) + (_%loop5038650420%_ _%target5038350414%_ '())))) + (_%__match7642076421%_ + (lambda (_%e5036050475%_ + _%hd5035950479%_ + _%tl5035850482%_ + _%e5036350485%_ + _%hd5036250489%_ + _%tl5036150492%_ + _%e5036650495%_ + _%hd5036550499%_ + _%tl5036450502%_ + _%e5036950505%_ + _%hd5036850509%_ + _%tl5036750512%_ + _%__splice7635676357%_ + _%target5037050515%_ + _%tl5037250518%_) + (letrec ((_%loop5037350521%_ + (lambda (_%hd5037150525%_ _%rand5037750528%_) + (if (gx#stx-pair? _%hd5037150525%_) + (let ((_%e5037450531%_ + (gx#syntax-e _%hd5037150525%_))) + (let ((_%lp-tl5037650538%_ (let () (declare (not safe)) - (##cdr _%e5054950706%_))) - (_%lp-hd5055050710%_ + (##cdr _%e5037450531%_))) + (_%lp-hd5037550535%_ (let () (declare (not safe)) - (##car _%e5054950706%_)))) - (_%loop5054850696%_ - _%lp-tl5055150713%_ - (cons _%lp-hd5055050710%_ - _%rand5055250703%_)))) - (let ((_%rand5055350716%_ - (reverse _%rand5055250703%_))) - (_%__kont7652976530%_ - _%rand5055350716%_ - _%hd5054350684%_)))))) - (_%loop5054850696%_ _%target5054550690%_ '())))) - (_%__match7656976570%_ - (lambda (_%e5053550650%_ - _%hd5053450654%_ - _%tl5053350657%_ - _%e5053850660%_ - _%hd5053750664%_ - _%tl5053650667%_) - (if (gx#stx-pair? _%hd5053750664%_) - (let ((_%e5054150670%_ - (gx#syntax-e _%hd5053750664%_))) - (let ((_%tl5053950677%_ + (##car _%e5037450531%_)))) + (_%loop5037350521%_ + _%lp-tl5037650538%_ + (cons _%lp-hd5037550535%_ + _%rand5037750528%_)))) + (let ((_%rand5037850541%_ + (reverse _%rand5037750528%_))) + (_%__kont7635476355%_ + _%rand5037850541%_ + _%hd5036850509%_)))))) + (_%loop5037350521%_ _%target5037050515%_ '())))) + (_%__match7639476395%_ + (lambda (_%e5036050475%_ + _%hd5035950479%_ + _%tl5035850482%_ + _%e5036350485%_ + _%hd5036250489%_ + _%tl5036150492%_) + (if (gx#stx-pair? _%hd5036250489%_) + (let ((_%e5036650495%_ + (gx#syntax-e _%hd5036250489%_))) + (let ((_%tl5036450502%_ (let () (declare (not safe)) - (##cdr _%e5054150670%_))) - (_%hd5054050674%_ + (##cdr _%e5036650495%_))) + (_%hd5036550499%_ (let () (declare (not safe)) - (##car _%e5054150670%_)))) - (if (gx#identifier? _%hd5054050674%_) + (##car _%e5036650495%_)))) + (if (gx#identifier? _%hd5036550499%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80730_| - _%hd5054050674%_) - (if (gx#stx-pair? _%tl5053950677%_) - (let ((_%e5054450680%_ + |gerbil/core/contract~Using[1]#_g80542_| + _%hd5036550499%_) + (if (gx#stx-pair? _%tl5036450502%_) + (let ((_%e5036950505%_ (gx#syntax-e - _%tl5053950677%_))) - (let ((_%tl5054250687%_ + _%tl5036450502%_))) + (let ((_%tl5036750512%_ (let () (declare (not safe)) - (##cdr _%e5054450680%_))) - (_%hd5054350684%_ + (##cdr _%e5036950505%_))) + (_%hd5036850509%_ (let () (declare (not safe)) - (##car _%e5054450680%_)))) + (##car _%e5036950505%_)))) (if (gx#stx-null? - _%tl5054250687%_) + _%tl5036750512%_) (if (gx#stx-pair/null? - _%tl5053650667%_) - (let ((_%__splice7653176532%_ + _%tl5036150492%_) + (let ((_%__splice7635676357%_ (gx#syntax-split-splice - _%tl5053650667%_ + _%tl5036150492%_ '0))) - (let ((_%tl5054750693%_ + (let ((_%tl5037250518%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7653176532%_ '1))) - (_%target5054550690%_ + (##vector-ref _%__splice7635676357%_ '1))) + (_%target5037050515%_ (let () (declare (not safe)) - (##vector-ref _%__splice7653176532%_ '0)))) - (if (gx#stx-null? _%tl5054750693%_) - (_%__match7659576596%_ - _%e5053550650%_ - _%hd5053450654%_ - _%tl5053350657%_ - _%e5053850660%_ - _%hd5053750664%_ - _%tl5053650667%_ - _%e5054150670%_ - _%hd5054050674%_ - _%tl5053950677%_ - _%e5054450680%_ - _%hd5054350684%_ - _%tl5054250687%_ - _%__splice7653176532%_ - _%target5054550690%_ - _%tl5054750693%_) - (if (gx#stx-pair/null? _%tl5053350657%_) - (let ((_%__splice7653576536%_ - (gx#syntax-split-splice _%tl5053350657%_ '0))) - (let ((_%tl5056050592%_ + (##vector-ref _%__splice7635676357%_ '0)))) + (if (gx#stx-null? _%tl5037250518%_) + (_%__match7642076421%_ + _%e5036050475%_ + _%hd5035950479%_ + _%tl5035850482%_ + _%e5036350485%_ + _%hd5036250489%_ + _%tl5036150492%_ + _%e5036650495%_ + _%hd5036550499%_ + _%tl5036450502%_ + _%e5036950505%_ + _%hd5036850509%_ + _%tl5036750512%_ + _%__splice7635676357%_ + _%target5037050515%_ + _%tl5037250518%_) + (if (gx#stx-pair/null? _%tl5035850482%_) + (let ((_%__splice7636076361%_ + (gx#syntax-split-splice _%tl5035850482%_ '0))) + (let ((_%tl5038550417%_ (let () (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '1))) - (_%target5055850589%_ + (##vector-ref _%__splice7636076361%_ '1))) + (_%target5038350414%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '0)))) - (if (gx#stx-null? _%tl5056050592%_) - (_%__match7660976610%_ - _%e5053550650%_ - _%hd5053450654%_ - _%tl5053350657%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) + (if (gx#stx-null? _%tl5038550417%_) + (_%__match7643476435%_ + _%e5036050475%_ + _%hd5035950479%_ + _%tl5035850482%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) (let () (declare (not safe)) - (_%g5051250572%_))))) - (let () (declare (not safe)) (_%g5051250572%_)))))) - (if (gx#stx-pair/null? _%tl5053350657%_) - (let ((_%__splice7653576536%_ - (gx#syntax-split-splice _%tl5053350657%_ '0))) - (let ((_%tl5056050592%_ + (_%g5033750397%_))))) + (let () (declare (not safe)) (_%g5033750397%_)))))) + (if (gx#stx-pair/null? _%tl5035850482%_) + (let ((_%__splice7636076361%_ + (gx#syntax-split-splice _%tl5035850482%_ '0))) + (let ((_%tl5038550417%_ (let () (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '1))) - (_%target5055850589%_ + (##vector-ref _%__splice7636076361%_ '1))) + (_%target5038350414%_ (let () (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '0)))) - (if (gx#stx-null? _%tl5056050592%_) - (_%__match7660976610%_ - _%e5053550650%_ - _%hd5053450654%_ - _%tl5053350657%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) - (let () (declare (not safe)) (_%g5051250572%_))))) - (let () (declare (not safe)) (_%g5051250572%_)))) + (##vector-ref _%__splice7636076361%_ '0)))) + (if (gx#stx-null? _%tl5038550417%_) + (_%__match7643476435%_ + _%e5036050475%_ + _%hd5035950479%_ + _%tl5035850482%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) + (let () (declare (not safe)) (_%g5033750397%_))))) + (let () (declare (not safe)) (_%g5033750397%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5053350657%_) - (let ((_%__splice7653576536%_ + _%tl5035850482%_) + (let ((_%__splice7636076361%_ (gx#syntax-split-splice - _%tl5053350657%_ + _%tl5035850482%_ '0))) - (let ((_%tl5056050592%_ + (let ((_%tl5038550417%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '1))) - (_%target5055850589%_ + (##vector-ref _%__splice7636076361%_ '1))) + (_%target5038350414%_ (let () (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '0)))) - (if (gx#stx-null? _%tl5056050592%_) - (_%__match7660976610%_ - _%e5053550650%_ - _%hd5053450654%_ - _%tl5053350657%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) - (let () (declare (not safe)) (_%g5051250572%_))))) - (let () (declare (not safe)) (_%g5051250572%_)))))) + (##vector-ref _%__splice7636076361%_ '0)))) + (if (gx#stx-null? _%tl5038550417%_) + (_%__match7643476435%_ + _%e5036050475%_ + _%hd5035950479%_ + _%tl5035850482%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) + (let () (declare (not safe)) (_%g5033750397%_))))) + (let () (declare (not safe)) (_%g5033750397%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5053350657%_) - (let ((_%__splice7653576536%_ + _%tl5035850482%_) + (let ((_%__splice7636076361%_ (gx#syntax-split-splice - _%tl5053350657%_ + _%tl5035850482%_ '0))) - (let ((_%tl5056050592%_ + (let ((_%tl5038550417%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '1))) - (_%target5055850589%_ + (_%target5038350414%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '0)))) (if (gx#stx-null? - _%tl5056050592%_) - (_%__match7660976610%_ - _%e5053550650%_ - _%hd5053450654%_ - _%tl5053350657%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) + _%tl5038550417%_) + (_%__match7643476435%_ + _%e5036050475%_ + _%hd5035950479%_ + _%tl5035850482%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) (let () (declare (not safe)) - (_%g5051250572%_))))) + (_%g5033750397%_))))) (let () (declare (not safe)) - (_%g5051250572%_)))) - (if (gx#stx-pair/null? _%tl5053350657%_) - (let ((_%__splice7653576536%_ + (_%g5033750397%_)))) + (if (gx#stx-pair/null? _%tl5035850482%_) + (let ((_%__splice7636076361%_ (gx#syntax-split-splice - _%tl5053350657%_ + _%tl5035850482%_ '0))) - (let ((_%tl5056050592%_ + (let ((_%tl5038550417%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '1))) - (_%target5055850589%_ + (_%target5038350414%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '0)))) (if (gx#stx-null? - _%tl5056050592%_) - (_%__match7660976610%_ - _%e5053550650%_ - _%hd5053450654%_ - _%tl5053350657%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) + _%tl5038550417%_) + (_%__match7643476435%_ + _%e5036050475%_ + _%hd5035950479%_ + _%tl5035850482%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) (let () (declare (not safe)) - (_%g5051250572%_))))) + (_%g5033750397%_))))) (let () (declare (not safe)) - (_%g5051250572%_)))) - (if (gx#stx-pair/null? _%tl5053350657%_) - (let ((_%__splice7653576536%_ + (_%g5033750397%_)))) + (if (gx#stx-pair/null? _%tl5035850482%_) + (let ((_%__splice7636076361%_ (gx#syntax-split-splice - _%tl5053350657%_ + _%tl5035850482%_ '0))) - (let ((_%tl5056050592%_ + (let ((_%tl5038550417%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '1))) - (_%target5055850589%_ + (_%target5038350414%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '0)))) - (if (gx#stx-null? _%tl5056050592%_) - (_%__match7660976610%_ - _%e5053550650%_ - _%hd5053450654%_ - _%tl5053350657%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) + (if (gx#stx-null? _%tl5038550417%_) + (_%__match7643476435%_ + _%e5036050475%_ + _%hd5035950479%_ + _%tl5035850482%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) (let () (declare (not safe)) - (_%g5051250572%_))))) + (_%g5033750397%_))))) (let () (declare (not safe)) - (_%g5051250572%_)))))) - (if (gx#stx-pair/null? _%tl5053350657%_) - (let ((_%__splice7653576536%_ + (_%g5033750397%_)))))) + (if (gx#stx-pair/null? _%tl5035850482%_) + (let ((_%__splice7636076361%_ (gx#syntax-split-splice - _%tl5053350657%_ + _%tl5035850482%_ '0))) - (let ((_%tl5056050592%_ + (let ((_%tl5038550417%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '1))) - (_%target5055850589%_ + (_%target5038350414%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '0)))) - (if (gx#stx-null? _%tl5056050592%_) - (_%__match7660976610%_ - _%e5053550650%_ - _%hd5053450654%_ - _%tl5053350657%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) + (if (gx#stx-null? _%tl5038550417%_) + (_%__match7643476435%_ + _%e5036050475%_ + _%hd5035950479%_ + _%tl5035850482%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) (let () (declare (not safe)) - (_%g5051250572%_))))) + (_%g5033750397%_))))) (let () (declare (not safe)) - (_%g5051250572%_)))))) - (_%__match7655776558%_ - (lambda (_%e5051851084%_ - _%hd5051751088%_ - _%tl5051651091%_ - _%e5052151094%_ - _%hd5052051098%_ - _%tl5051951101%_ - _%__splice7652776528%_ - _%target5052251104%_ - _%tl5052451107%_) - (letrec ((_%loop5052551110%_ - (lambda (_%hd5052351114%_ _%rand5052951117%_) - (if (gx#stx-pair? _%hd5052351114%_) - (let ((_%e5052651120%_ - (gx#syntax-e _%hd5052351114%_))) - (let ((_%lp-tl5052851127%_ + (_%g5033750397%_)))))) + (_%__match7638276383%_ + (lambda (_%e5034350909%_ + _%hd5034250913%_ + _%tl5034150916%_ + _%e5034650919%_ + _%hd5034550923%_ + _%tl5034450926%_ + _%__splice7635276353%_ + _%target5034750929%_ + _%tl5034950932%_) + (letrec ((_%loop5035050935%_ + (lambda (_%hd5034850939%_ _%rand5035450942%_) + (if (gx#stx-pair? _%hd5034850939%_) + (let ((_%e5035150945%_ + (gx#syntax-e _%hd5034850939%_))) + (let ((_%lp-tl5035350952%_ (let () (declare (not safe)) - (##cdr _%e5052651120%_))) - (_%lp-hd5052751124%_ + (##cdr _%e5035150945%_))) + (_%lp-hd5035250949%_ (let () (declare (not safe)) - (##car _%e5052651120%_)))) - (_%loop5052551110%_ - _%lp-tl5052851127%_ - (cons _%lp-hd5052751124%_ - _%rand5052951117%_)))) - (let ((_%rand5053051130%_ - (reverse _%rand5052951117%_))) - (let ((_%L51134%_ _%rand5053051130%_) - (_%L51136%_ _%hd5052051098%_)) - (if (gx#identifier? _%L51136%_) - (_%__kont7652576526%_ - _%L51134%_ - _%L51136%_) - (_%__match7656976570%_ - _%e5051851084%_ - _%hd5051751088%_ - _%tl5051651091%_ - _%e5052151094%_ - _%hd5052051098%_ - _%tl5051951101%_)))))))) - (_%loop5052551110%_ _%target5052251104%_ '()))))) - (if (gx#stx-pair? _%__stx7652276523%_) - (let ((_%e5051851084%_ (gx#syntax-e _%__stx7652276523%_))) - (let ((_%tl5051651091%_ + (##car _%e5035150945%_)))) + (_%loop5035050935%_ + _%lp-tl5035350952%_ + (cons _%lp-hd5035250949%_ + _%rand5035450942%_)))) + (let ((_%rand5035550955%_ + (reverse _%rand5035450942%_))) + (let ((_%L50959%_ _%rand5035550955%_) + (_%L50961%_ _%hd5034550923%_)) + (if (gx#identifier? _%L50961%_) + (_%__kont7635076351%_ + _%L50959%_ + _%L50961%_) + (_%__match7639476395%_ + _%e5034350909%_ + _%hd5034250913%_ + _%tl5034150916%_ + _%e5034650919%_ + _%hd5034550923%_ + _%tl5034450926%_)))))))) + (_%loop5035050935%_ _%target5034750929%_ '()))))) + (if (gx#stx-pair? _%__stx7634776348%_) + (let ((_%e5034350909%_ (gx#syntax-e _%__stx7634776348%_))) + (let ((_%tl5034150916%_ (let () (declare (not safe)) - (##cdr _%e5051851084%_))) - (_%hd5051751088%_ + (##cdr _%e5034350909%_))) + (_%hd5034250913%_ (let () (declare (not safe)) - (##car _%e5051851084%_)))) - (if (gx#stx-pair? _%tl5051651091%_) - (let ((_%e5052151094%_ - (gx#syntax-e _%tl5051651091%_))) - (let ((_%tl5051951101%_ + (##car _%e5034350909%_)))) + (if (gx#stx-pair? _%tl5034150916%_) + (let ((_%e5034650919%_ + (gx#syntax-e _%tl5034150916%_))) + (let ((_%tl5034450926%_ (let () (declare (not safe)) - (##cdr _%e5052151094%_))) - (_%hd5052051098%_ + (##cdr _%e5034650919%_))) + (_%hd5034550923%_ (let () (declare (not safe)) - (##car _%e5052151094%_)))) - (if (gx#stx-pair/null? _%tl5051951101%_) - (let ((_%__splice7652776528%_ + (##car _%e5034650919%_)))) + (if (gx#stx-pair/null? _%tl5034450926%_) + (let ((_%__splice7635276353%_ (gx#syntax-split-splice - _%tl5051951101%_ + _%tl5034450926%_ '0))) - (let ((_%tl5052451107%_ + (let ((_%tl5034950932%_ (let () (declare (not safe)) (##vector-ref - _%__splice7652776528%_ + _%__splice7635276353%_ '1))) - (_%target5052251104%_ + (_%target5034750929%_ (let () (declare (not safe)) (##vector-ref - _%__splice7652776528%_ + _%__splice7635276353%_ '0)))) - (if (gx#stx-null? _%tl5052451107%_) - (_%__match7655776558%_ - _%e5051851084%_ - _%hd5051751088%_ - _%tl5051651091%_ - _%e5052151094%_ - _%hd5052051098%_ - _%tl5051951101%_ - _%__splice7652776528%_ - _%target5052251104%_ - _%tl5052451107%_) - (if (gx#stx-pair? _%hd5052051098%_) - (let ((_%e5054150670%_ + (if (gx#stx-null? _%tl5034950932%_) + (_%__match7638276383%_ + _%e5034350909%_ + _%hd5034250913%_ + _%tl5034150916%_ + _%e5034650919%_ + _%hd5034550923%_ + _%tl5034450926%_ + _%__splice7635276353%_ + _%target5034750929%_ + _%tl5034950932%_) + (if (gx#stx-pair? _%hd5034550923%_) + (let ((_%e5036650495%_ (gx#syntax-e - _%hd5052051098%_))) - (let ((_%tl5053950677%_ + _%hd5034550923%_))) + (let ((_%tl5036450502%_ (let () (declare (not safe)) - (##cdr _%e5054150670%_))) - (_%hd5054050674%_ + (##cdr _%e5036650495%_))) + (_%hd5036550499%_ (let () (declare (not safe)) - (##car _%e5054150670%_)))) + (##car _%e5036650495%_)))) (if (gx#identifier? - _%hd5054050674%_) + _%hd5036550499%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80730_| - _%hd5054050674%_) + |gerbil/core/contract~Using[1]#_g80542_| + _%hd5036550499%_) (if (gx#stx-pair? - _%tl5053950677%_) - (let ((_%e5054450680%_ + _%tl5036450502%_) + (let ((_%e5036950505%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5053950677%_))) - (let ((_%tl5054250687%_ + (gx#syntax-e _%tl5036450502%_))) + (let ((_%tl5036750512%_ (let () (declare (not safe)) - (##cdr _%e5054450680%_))) - (_%hd5054350684%_ + (##cdr _%e5036950505%_))) + (_%hd5036850509%_ (let () (declare (not safe)) - (##car _%e5054450680%_)))) - (if (gx#stx-pair/null? _%tl5051651091%_) - (let ((_%__splice7653576536%_ + (##car _%e5036950505%_)))) + (if (gx#stx-pair/null? _%tl5034150916%_) + (let ((_%__splice7636076361%_ (gx#syntax-split-splice - _%tl5051651091%_ + _%tl5034150916%_ '0))) - (let ((_%tl5056050592%_ + (let ((_%tl5038550417%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '1))) - (_%target5055850589%_ + (_%target5038350414%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '0)))) - (if (gx#stx-null? _%tl5056050592%_) - (_%__match7660976610%_ - _%e5051851084%_ - _%hd5051751088%_ - _%tl5051651091%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) + (if (gx#stx-null? _%tl5038550417%_) + (_%__match7643476435%_ + _%e5034350909%_ + _%hd5034250913%_ + _%tl5034150916%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) (let () (declare (not safe)) - (_%g5051250572%_))))) + (_%g5033750397%_))))) (let () (declare (not safe)) - (_%g5051250572%_))))) - (if (gx#stx-pair/null? _%tl5051651091%_) - (let ((_%__splice7653576536%_ - (gx#syntax-split-splice _%tl5051651091%_ '0))) - (let ((_%tl5056050592%_ + (_%g5033750397%_))))) + (if (gx#stx-pair/null? _%tl5034150916%_) + (let ((_%__splice7636076361%_ + (gx#syntax-split-splice _%tl5034150916%_ '0))) + (let ((_%tl5038550417%_ (let () (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '1))) - (_%target5055850589%_ + (##vector-ref _%__splice7636076361%_ '1))) + (_%target5038350414%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '0)))) - (if (gx#stx-null? _%tl5056050592%_) - (_%__match7660976610%_ - _%e5051851084%_ - _%hd5051751088%_ - _%tl5051651091%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) + (if (gx#stx-null? _%tl5038550417%_) + (_%__match7643476435%_ + _%e5034350909%_ + _%hd5034250913%_ + _%tl5034150916%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) (let () (declare (not safe)) - (_%g5051250572%_))))) - (let () (declare (not safe)) (_%g5051250572%_)))) - (if (gx#stx-pair/null? _%tl5051651091%_) - (let ((_%__splice7653576536%_ - (gx#syntax-split-splice _%tl5051651091%_ '0))) - (let ((_%tl5056050592%_ + (_%g5033750397%_))))) + (let () (declare (not safe)) (_%g5033750397%_)))) + (if (gx#stx-pair/null? _%tl5034150916%_) + (let ((_%__splice7636076361%_ + (gx#syntax-split-splice _%tl5034150916%_ '0))) + (let ((_%tl5038550417%_ (let () (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '1))) - (_%target5055850589%_ + (##vector-ref _%__splice7636076361%_ '1))) + (_%target5038350414%_ (let () (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '0)))) - (if (gx#stx-null? _%tl5056050592%_) - (_%__match7660976610%_ - _%e5051851084%_ - _%hd5051751088%_ - _%tl5051651091%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) + (##vector-ref _%__splice7636076361%_ '0)))) + (if (gx#stx-null? _%tl5038550417%_) + (_%__match7643476435%_ + _%e5034350909%_ + _%hd5034250913%_ + _%tl5034150916%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) (let () (declare (not safe)) - (_%g5051250572%_))))) - (let () (declare (not safe)) (_%g5051250572%_)))) - (if (gx#stx-pair/null? _%tl5051651091%_) - (let ((_%__splice7653576536%_ - (gx#syntax-split-splice _%tl5051651091%_ '0))) - (let ((_%tl5056050592%_ + (_%g5033750397%_))))) + (let () (declare (not safe)) (_%g5033750397%_)))) + (if (gx#stx-pair/null? _%tl5034150916%_) + (let ((_%__splice7636076361%_ + (gx#syntax-split-splice _%tl5034150916%_ '0))) + (let ((_%tl5038550417%_ (let () (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '1))) - (_%target5055850589%_ + (##vector-ref _%__splice7636076361%_ '1))) + (_%target5038350414%_ (let () (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '0)))) - (if (gx#stx-null? _%tl5056050592%_) - (_%__match7660976610%_ - _%e5051851084%_ - _%hd5051751088%_ - _%tl5051651091%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) - (let () (declare (not safe)) (_%g5051250572%_))))) - (let () (declare (not safe)) (_%g5051250572%_)))))) + (##vector-ref _%__splice7636076361%_ '0)))) + (if (gx#stx-null? _%tl5038550417%_) + (_%__match7643476435%_ + _%e5034350909%_ + _%hd5034250913%_ + _%tl5034150916%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) + (let () (declare (not safe)) (_%g5033750397%_))))) + (let () (declare (not safe)) (_%g5033750397%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5051651091%_) - (let ((_%__splice7653576536%_ + _%tl5034150916%_) + (let ((_%__splice7636076361%_ (gx#syntax-split-splice - _%tl5051651091%_ + _%tl5034150916%_ '0))) - (let ((_%tl5056050592%_ + (let ((_%tl5038550417%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '1))) - (_%target5055850589%_ + (_%target5038350414%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '0)))) (if (gx#stx-null? - _%tl5056050592%_) - (_%__match7660976610%_ - _%e5051851084%_ - _%hd5051751088%_ - _%tl5051651091%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) + _%tl5038550417%_) + (_%__match7643476435%_ + _%e5034350909%_ + _%hd5034250913%_ + _%tl5034150916%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) (let () (declare (not safe)) - (_%g5051250572%_))))) + (_%g5033750397%_))))) (let () (declare (not safe)) - (_%g5051250572%_))))))) - (if (gx#stx-pair? _%hd5052051098%_) - (let ((_%e5054150670%_ - (gx#syntax-e _%hd5052051098%_))) - (let ((_%tl5053950677%_ + (_%g5033750397%_))))))) + (if (gx#stx-pair? _%hd5034550923%_) + (let ((_%e5036650495%_ + (gx#syntax-e _%hd5034550923%_))) + (let ((_%tl5036450502%_ (let () (declare (not safe)) - (##cdr _%e5054150670%_))) - (_%hd5054050674%_ + (##cdr _%e5036650495%_))) + (_%hd5036550499%_ (let () (declare (not safe)) - (##car _%e5054150670%_)))) - (if (gx#identifier? _%hd5054050674%_) + (##car _%e5036650495%_)))) + (if (gx#identifier? _%hd5036550499%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g80730_| - _%hd5054050674%_) + |gerbil/core/contract~Using[1]#_g80542_| + _%hd5036550499%_) (if (gx#stx-pair? - _%tl5053950677%_) - (let ((_%e5054450680%_ + _%tl5036450502%_) + (let ((_%e5036950505%_ (gx#syntax-e - _%tl5053950677%_))) - (let ((_%tl5054250687%_ + _%tl5036450502%_))) + (let ((_%tl5036750512%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5054450680%_))) - (_%hd5054350684%_ - (let () (declare (not safe)) (##car _%e5054450680%_)))) - (if (gx#stx-pair/null? _%tl5051651091%_) - (let ((_%__splice7653576536%_ - (gx#syntax-split-splice _%tl5051651091%_ '0))) - (let ((_%tl5056050592%_ + (##cdr _%e5036950505%_))) + (_%hd5036850509%_ + (let () (declare (not safe)) (##car _%e5036950505%_)))) + (if (gx#stx-pair/null? _%tl5034150916%_) + (let ((_%__splice7636076361%_ + (gx#syntax-split-splice _%tl5034150916%_ '0))) + (let ((_%tl5038550417%_ (let () (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '1))) - (_%target5055850589%_ + (##vector-ref _%__splice7636076361%_ '1))) + (_%target5038350414%_ (let () (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '0)))) - (if (gx#stx-null? _%tl5056050592%_) - (_%__match7660976610%_ - _%e5051851084%_ - _%hd5051751088%_ - _%tl5051651091%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) + (##vector-ref _%__splice7636076361%_ '0)))) + (if (gx#stx-null? _%tl5038550417%_) + (_%__match7643476435%_ + _%e5034350909%_ + _%hd5034250913%_ + _%tl5034150916%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) (let () (declare (not safe)) - (_%g5051250572%_))))) - (let () (declare (not safe)) (_%g5051250572%_))))) - (if (gx#stx-pair/null? _%tl5051651091%_) - (let ((_%__splice7653576536%_ - (gx#syntax-split-splice _%tl5051651091%_ '0))) - (let ((_%tl5056050592%_ + (_%g5033750397%_))))) + (let () (declare (not safe)) (_%g5033750397%_))))) + (if (gx#stx-pair/null? _%tl5034150916%_) + (let ((_%__splice7636076361%_ + (gx#syntax-split-splice _%tl5034150916%_ '0))) + (let ((_%tl5038550417%_ (let () (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '1))) - (_%target5055850589%_ + (##vector-ref _%__splice7636076361%_ '1))) + (_%target5038350414%_ (let () (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '0)))) - (if (gx#stx-null? _%tl5056050592%_) - (_%__match7660976610%_ - _%e5051851084%_ - _%hd5051751088%_ - _%tl5051651091%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) - (let () (declare (not safe)) (_%g5051250572%_))))) - (let () (declare (not safe)) (_%g5051250572%_)))) + (##vector-ref _%__splice7636076361%_ '0)))) + (if (gx#stx-null? _%tl5038550417%_) + (_%__match7643476435%_ + _%e5034350909%_ + _%hd5034250913%_ + _%tl5034150916%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) + (let () (declare (not safe)) (_%g5033750397%_))))) + (let () (declare (not safe)) (_%g5033750397%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5051651091%_) - (let ((_%__splice7653576536%_ + _%tl5034150916%_) + (let ((_%__splice7636076361%_ (gx#syntax-split-splice - _%tl5051651091%_ + _%tl5034150916%_ '0))) - (let ((_%tl5056050592%_ + (let ((_%tl5038550417%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '1))) - (_%target5055850589%_ + (##vector-ref _%__splice7636076361%_ '1))) + (_%target5038350414%_ (let () (declare (not safe)) - (##vector-ref _%__splice7653576536%_ '0)))) - (if (gx#stx-null? _%tl5056050592%_) - (_%__match7660976610%_ - _%e5051851084%_ - _%hd5051751088%_ - _%tl5051651091%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) - (let () (declare (not safe)) (_%g5051250572%_))))) - (let () (declare (not safe)) (_%g5051250572%_)))) + (##vector-ref _%__splice7636076361%_ '0)))) + (if (gx#stx-null? _%tl5038550417%_) + (_%__match7643476435%_ + _%e5034350909%_ + _%hd5034250913%_ + _%tl5034150916%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) + (let () (declare (not safe)) (_%g5033750397%_))))) + (let () (declare (not safe)) (_%g5033750397%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5051651091%_) - (let ((_%__splice7653576536%_ + _%tl5034150916%_) + (let ((_%__splice7636076361%_ (gx#syntax-split-splice - _%tl5051651091%_ + _%tl5034150916%_ '0))) - (let ((_%tl5056050592%_ + (let ((_%tl5038550417%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '1))) - (_%target5055850589%_ + (_%target5038350414%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '0)))) (if (gx#stx-null? - _%tl5056050592%_) - (_%__match7660976610%_ - _%e5051851084%_ - _%hd5051751088%_ - _%tl5051651091%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) + _%tl5038550417%_) + (_%__match7643476435%_ + _%e5034350909%_ + _%hd5034250913%_ + _%tl5034150916%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) (let () (declare (not safe)) - (_%g5051250572%_))))) + (_%g5033750397%_))))) (let () (declare (not safe)) - (_%g5051250572%_)))))) - (if (gx#stx-pair/null? _%tl5051651091%_) - (let ((_%__splice7653576536%_ + (_%g5033750397%_)))))) + (if (gx#stx-pair/null? _%tl5034150916%_) + (let ((_%__splice7636076361%_ (gx#syntax-split-splice - _%tl5051651091%_ + _%tl5034150916%_ '0))) - (let ((_%tl5056050592%_ + (let ((_%tl5038550417%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '1))) - (_%target5055850589%_ + (_%target5038350414%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '0)))) (if (gx#stx-null? - _%tl5056050592%_) - (_%__match7660976610%_ - _%e5051851084%_ - _%hd5051751088%_ - _%tl5051651091%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) + _%tl5038550417%_) + (_%__match7643476435%_ + _%e5034350909%_ + _%hd5034250913%_ + _%tl5034150916%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) (let () (declare (not safe)) - (_%g5051250572%_))))) + (_%g5033750397%_))))) (let () (declare (not safe)) - (_%g5051250572%_))))))) - (if (gx#stx-pair/null? _%tl5051651091%_) - (let ((_%__splice7653576536%_ + (_%g5033750397%_))))))) + (if (gx#stx-pair/null? _%tl5034150916%_) + (let ((_%__splice7636076361%_ (gx#syntax-split-splice - _%tl5051651091%_ + _%tl5034150916%_ '0))) - (let ((_%tl5056050592%_ + (let ((_%tl5038550417%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '1))) - (_%target5055850589%_ + (_%target5038350414%_ (let () (declare (not safe)) (##vector-ref - _%__splice7653576536%_ + _%__splice7636076361%_ '0)))) - (if (gx#stx-null? _%tl5056050592%_) - (_%__match7660976610%_ - _%e5051851084%_ - _%hd5051751088%_ - _%tl5051651091%_ - _%__splice7653576536%_ - _%target5055850589%_ - _%tl5056050592%_) + (if (gx#stx-null? _%tl5038550417%_) + (_%__match7643476435%_ + _%e5034350909%_ + _%hd5034250913%_ + _%tl5034150916%_ + _%__splice7636076361%_ + _%target5038350414%_ + _%tl5038550417%_) (let () (declare (not safe)) - (_%g5051250572%_))))) + (_%g5033750397%_))))) (let () (declare (not safe)) - (_%g5051250572%_)))))) - (let () (declare (not safe)) (_%g5051250572%_)))))))) + (_%g5033750397%_)))))) + (let () (declare (not safe)) (_%g5033750397%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%ref-dotted| - (lambda (_%stx51168%_) - (let* ((_%__stx7661276613%_ _%stx51168%_) - (_%g5117251193%_ + (lambda (_%stx50993%_) + (let* ((_%__stx7643776438%_ _%stx50993%_) + (_%g5099751018%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7661276613%_)))) - (let ((_%__kont7661576616%_ - (lambda (_%L51261%_) - (let* ((_%g5127351280%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx51168%_ - _%L51261%_))) - (_%E5127551286%_ + _%__stx7643776438%_)))) + (let ((_%__kont7644076441%_ + (lambda (_%L51086%_) + (let* ((_%g5109851105%_ + (|gerbil/core/contract~Using[1]#split-dotted-identifier| + _%stx50993%_ + _%L51086%_)) + (_%E5110051111%_ (lambda () (error '"No clause matching" - _%g5127351280%_ + _%g5109851105%_ '([var . parts])) (void))) - (_%K5127651502%_ - (lambda (_%parts51290%_ _%var51292%_) - (let ((_%$e51294%_ + (_%K5110151327%_ + (lambda (_%parts51115%_ _%var51117%_) + (let ((_%$e51119%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var51292%_)))) - (if _%$e51294%_ - ((lambda (_%te51298%_) - (let _%loop51301%_ ((_%parts51304%_ - _%parts51290%_) - (_%type51306%_ + _%var51117%_)))) + (if _%$e51119%_ + ((lambda (_%te51123%_) + (let _%loop51126%_ ((_%parts51129%_ + _%parts51115%_) + (_%type51131%_ (##direct-structure-ref - _%te51298%_ + _%te51123%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object51307%_ - _%var51292%_) - (_%nil-check?51308%_ + (_%object51132%_ + _%var51117%_) + (_%nil-check?51133%_ '#f)) - (let* ((_%parts5130951317%_ - _%parts51304%_) - (_%else5131151329%_ - (lambda () _%object51307%_)) - (_%K5131351484%_ - (lambda (_%rest51333%_ - _%part51335%_) - (if (and (let () - (declare - (not safe)) - (not _%nil-check?51308%_)) - (let ((__tmp80731 + (let* ((_%parts5113451142%_ + _%parts51129%_) + (_%else5113651154%_ + (lambda () _%object51132%_)) + (_%K5113851309%_ + (lambda (_%rest51158%_ + _%part51160%_) + (if (and (not _%nil-check?51133%_) + (let ((__tmp80543 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part51335%_))) + (symbol->string _%part51160%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp80731))) - (let ((_%str51339%_ (symbol->string _%part51335%_))) - (_%loop51301%_ - (cons (let ((__tmp80732 + (##string-prefix? '"?" __tmp80543))) + (let ((_%str51164%_ (symbol->string _%part51160%_))) + (_%loop51126%_ + (cons (let ((__tmp80544 (substring - _%str51339%_ + _%str51164%_ '1 - (string-length _%str51339%_)))) + (string-length _%str51164%_)))) (declare (not safe)) - (##string->symbol __tmp80732)) - _%rest51333%_) - _%type51306%_ - _%object51307%_ + (##string->symbol __tmp80544)) + _%rest51158%_) + _%type51131%_ + _%object51132%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type51306%_)) - (let () - (let* ((_%g5134451359%_ - (lambda (_%g5134551355%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5134551355%_))) - (_%g5134351476%_ - (lambda (_%g5134551363%_) - (if (gx#stx-pair? _%g5134551363%_) - (let ((_%e5135051366%_ - (gx#syntax-e _%g5134551363%_))) - (let ((_%hd5134951370%_ - (let () - (declare (not safe)) - (##car _%e5135051366%_))) - (_%tl5134851373%_ - (let () - (declare (not safe)) - (##cdr _%e5135051366%_)))) - (if (gx#stx-pair? _%tl5134851373%_) - (let ((_%e5135351376%_ - (gx#syntax-e - _%tl5134851373%_))) - (let ((_%hd5135251380%_ - (let () - (declare (not safe)) - (##car _%e5135351376%_))) - (_%tl5135151383%_ - (let () - (declare (not safe)) - (##cdr _%e5135351376%_)))) - (if (gx#stx-null? - _%tl5135151383%_) - ((lambda (_%L51386%_ - _%L51388%_) - (let () - (if (let () - (declare - (not safe)) - (null? _%rest51333%_)) - (let ((_%$e51418%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type51306%_ - _%part51335%_)))) - (if _%$e51418%_ - ((lambda (_%slot-type51422%_) - (let* ((_%g5142551433%_ - (lambda (_%g5142651429%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5142651429%_))) - (_%g5142451456%_ - (lambda (_%g5142651437%_) - ((lambda (_%L51440%_) + _%type51131%_)) + (let* ((_%g5116951184%_ + (lambda (_%g5117051180%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5117051180%_))) + (_%g5116851301%_ + (lambda (_%g5117051188%_) + (if (gx#stx-pair? _%g5117051188%_) + (let ((_%e5117551191%_ + (gx#syntax-e _%g5117051188%_))) + (let ((_%hd5117451195%_ (let () - (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax - '#f - '@type) - (cons _%L51440%_ + (declare (not safe)) + (##car _%e5117551191%_))) + (_%tl5117351198%_ + (let () + (declare (not safe)) + (##cdr _%e5117551191%_)))) + (if (gx#stx-pair? _%tl5117351198%_) + (let ((_%e5117851201%_ + (gx#syntax-e _%tl5117351198%_))) + (let ((_%hd5117751205%_ + (let () + (declare (not safe)) + (##car _%e5117851201%_))) + (_%tl5117651208%_ + (let () + (declare (not safe)) + (##cdr _%e5117851201%_)))) + (if (gx#stx-null? _%tl5117651208%_) + ((lambda (_%L51211%_ + _%L51213%_) + (if (null? _%rest51158%_) + (let ((_%$e51243%_ + (|gerbil/core/contract~Using[1]#!class-slot-type| + _%type51131%_ + _%part51160%_))) + (if _%$e51243%_ + ((lambda (_%slot-type51247%_) + (let* ((_%g5125051258%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g5125151254%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5125151254%_))) + (_%g5124951281%_ + (lambda (_%g5125151262%_) + ((lambda (_%L51265%_) + (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax + '#f + '@type) + (cons _%L51265%_ '())) + (cons (cons _%L51211%_ + (cons _%L51213%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons _%L51386%_ (cons _%L51388%_ '())) '()))))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g5142651437%_)))) - (_%g5142451456%_ + _%g5125151262%_)))) + (_%g5124951281%_ + (let () + (declare (not safe)) + (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| + _%stx50993%_ + _%slot-type51247%_))))) + _%$e51243%_) + (if _%nil-check?51133%_ + (cons _%L51211%_ + (cons (cons (gx#datum->syntax '#f 'check-nil!) + (cons _%L51213%_ '())) + '())) + (cons _%L51211%_ (cons _%L51213%_ '()))))) + (let ((_%$e51289%_ + (|gerbil/core/contract~Using[1]#!class-slot-type| + _%type51131%_ + _%part51160%_))) + (if _%$e51289%_ + ((lambda (_%type51293%_) + (let ((_%type51296%_ (let () (declare (not safe)) - (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx51168%_ - _%slot-type51422%_))))) - _%$e51418%_) - (if _%nil-check?51308%_ - (let () - (cons _%L51386%_ + (|gerbil/core/contract~TypeReference[1]#resolve-type| + _%stx50993%_ + _%type51293%_)))) + (if _%nil-check?51133%_ + (_%loop51126%_ + _%rest51158%_ + _%type51296%_ + (cons _%L51211%_ (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L51388%_ '())) - '()))) - (let () - (cons _%L51386%_ (cons _%L51388%_ '())))))) - (let ((_%$e51464%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type51306%_ - _%part51335%_)))) - (if _%$e51464%_ - ((lambda (_%type51468%_) - (let ((_%type51471%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx51168%_ - _%type51468%_)))) - (if _%nil-check?51308%_ - (_%loop51301%_ - _%rest51333%_ - _%type51471%_ - (cons _%L51386%_ - (cons (cons (gx#datum->syntax - '#f - 'check-nil!) - (cons _%L51388%_ '())) - '())) - '#f) - (_%loop51301%_ - _%rest51333%_ - _%type51471%_ - (cons _%L51386%_ (cons _%L51388%_ '())) - '#f)))) - _%$e51464%_) - (let () - (gx#raise-syntax-error - '#f - '"unresolved dotted reference; unknown type for slot" - _%stx51168%_ - _%L51261%_ - _%part51335%_))))))) + (cons _%L51213%_ '())) + '())) + '#f) + (_%loop51126%_ + _%rest51158%_ + _%type51296%_ + (cons _%L51211%_ (cons _%L51213%_ '())) + '#f)))) + _%$e51289%_) + (gx#raise-syntax-error + '#f + '"unresolved dotted reference; unknown type for slot" + _%stx50993%_ + _%L51086%_ + _%part51160%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5135251380%_ - _%hd5134951370%_) - (_%g5134451359%_ - _%g5134551363%_)))) - (_%g5134451359%_ _%g5134551363%_)))) - (_%g5134451359%_ _%g5134551363%_))))) - (_%g5134351476%_ - (list (if _%nil-check?51308%_ - (cons 'check-nil! (cons _%object51307%_ '())) - _%object51307%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx51168%_ - _%type51306%_ - _%part51335%_)))))) + _%hd5117751205%_ + _%hd5117451195%_) + (_%g5116951184%_ + _%g5117051188%_)))) + (_%g5116951184%_ _%g5117051188%_)))) + (_%g5116951184%_ _%g5117051188%_))))) + (_%g5116851301%_ + (list (if _%nil-check?51133%_ + (cons 'check-nil! (cons _%object51132%_ '())) + _%object51132%_) + (|gerbil/core/contract~Using[1]#get-slot-accessor| + _%stx50993%_ + _%type51131%_ + _%part51160%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type51306%_)) - (let () - (gx#raise-syntax-error - '#f - '"illegal dotted reference; interface has no slots")) - (let () - (gx#raise-syntax-error - '#f - '"unexpected type" - _%stx51168%_ - _%type51306%_)))))))) + _%type51131%_)) + (gx#raise-syntax-error + '#f + '"illegal dotted reference; interface has no slots") + (gx#raise-syntax-error + '#f + '"unexpected type" + _%stx50993%_ + _%type51131%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%parts5130951317%_)) - (let ((_%hd5131451488%_ + (##pair? _%parts5113451142%_)) + (let ((_%hd5113951313%_ (let () (declare (not safe)) - (##car _%parts5130951317%_))) - (_%tl5131551491%_ + (##car _%parts5113451142%_))) + (_%tl5114051316%_ (let () (declare (not safe)) - (##cdr _%parts5130951317%_)))) - (let* ((_%part51494%_ - _%hd5131451488%_) - (_%rest51497%_ - _%tl5131551491%_)) - (_%K5131351484%_ - _%rest51497%_ - _%part51494%_))) - (_%else5131151329%_))))) - _%$e51294%_) - (let () - (cons (gx#datum->syntax '#f '%%ref) - (cons _%L51261%_ '())))))))) + (##cdr _%parts5113451142%_)))) + (let* ((_%part51319%_ + _%hd5113951313%_) + (_%rest51322%_ + _%tl5114051316%_)) + (_%K5113851309%_ + _%rest51322%_ + _%part51319%_))) + (_%else5113651154%_))))) + _%$e51119%_) + (cons (gx#datum->syntax '#f '%%ref) + (cons _%L51086%_ '()))))))) (if (let () (declare (not safe)) - (##pair? _%g5127351280%_)) - (let ((_%hd5127751506%_ + (##pair? _%g5109851105%_)) + (let ((_%hd5110251331%_ (let () (declare (not safe)) - (##car _%g5127351280%_))) - (_%tl5127851509%_ + (##car _%g5109851105%_))) + (_%tl5110351334%_ (let () (declare (not safe)) - (##cdr _%g5127351280%_)))) - (let* ((_%var51512%_ _%hd5127751506%_) - (_%parts51515%_ _%tl5127851509%_)) - (_%K5127651502%_ _%parts51515%_ _%var51512%_))) - (_%E5127551286%_))))) - (_%__kont7661776618%_ - (lambda (_%L51220%_) + (##cdr _%g5109851105%_)))) + (let* ((_%var51337%_ _%hd5110251331%_) + (_%parts51340%_ _%tl5110351334%_)) + (_%K5110151327%_ _%parts51340%_ _%var51337%_))) + (_%E5110051111%_))))) + (_%__kont7644276443%_ + (lambda (_%L51045%_) (cons (gx#datum->syntax '#f '%%ref) - (cons _%L51220%_ '()))))) - (let ((_%__match7663376634%_ - (lambda (_%e5117751241%_ - _%hd5117651245%_ - _%tl5117551248%_ - _%e5118051251%_ - _%hd5117951255%_ - _%tl5117851258%_) - (let ((_%L51261%_ _%hd5117951255%_)) - (if (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L51261%_)) - (_%__kont7661576616%_ _%L51261%_) - (_%__kont7661776618%_ _%hd5117951255%_)))))) - (if (gx#stx-pair? _%__stx7661276613%_) - (let ((_%e5117751241%_ (gx#syntax-e _%__stx7661276613%_))) - (let ((_%tl5117551248%_ + (cons _%L51045%_ '()))))) + (let ((_%__match7645876459%_ + (lambda (_%e5100251066%_ + _%hd5100151070%_ + _%tl5100051073%_ + _%e5100551076%_ + _%hd5100451080%_ + _%tl5100351083%_) + (let ((_%L51086%_ _%hd5100451080%_)) + (if (|gerbil/core/contract~Using[1]#dotted-identifier?| + _%L51086%_) + (_%__kont7644076441%_ _%L51086%_) + (_%__kont7644276443%_ _%hd5100451080%_)))))) + (if (gx#stx-pair? _%__stx7643776438%_) + (let ((_%e5100251066%_ (gx#syntax-e _%__stx7643776438%_))) + (let ((_%tl5100051073%_ (let () (declare (not safe)) - (##cdr _%e5117751241%_))) - (_%hd5117651245%_ + (##cdr _%e5100251066%_))) + (_%hd5100151070%_ (let () (declare (not safe)) - (##car _%e5117751241%_)))) - (if (gx#stx-pair? _%tl5117551248%_) - (let ((_%e5118051251%_ - (gx#syntax-e _%tl5117551248%_))) - (let ((_%tl5117851258%_ + (##car _%e5100251066%_)))) + (if (gx#stx-pair? _%tl5100051073%_) + (let ((_%e5100551076%_ + (gx#syntax-e _%tl5100051073%_))) + (let ((_%tl5100351083%_ (let () (declare (not safe)) - (##cdr _%e5118051251%_))) - (_%hd5117951255%_ + (##cdr _%e5100551076%_))) + (_%hd5100451080%_ (let () (declare (not safe)) - (##car _%e5118051251%_)))) - (if (gx#stx-null? _%tl5117851258%_) - (_%__match7663376634%_ - _%e5117751241%_ - _%hd5117651245%_ - _%tl5117551248%_ - _%e5118051251%_ - _%hd5117951255%_ - _%tl5117851258%_) + (##car _%e5100551076%_)))) + (if (gx#stx-null? _%tl5100351083%_) + (_%__match7645876459%_ + _%e5100251066%_ + _%hd5100151070%_ + _%tl5100051073%_ + _%e5100551076%_ + _%hd5100451080%_ + _%tl5100351083%_) (let () (declare (not safe)) - (_%g5117251193%_))))) - (let () (declare (not safe)) (_%g5117251193%_))))) - (let () (declare (not safe)) (_%g5117251193%_)))))))) + (_%g5099751018%_))))) + (let () (declare (not safe)) (_%g5099751018%_))))) + (let () (declare (not safe)) (_%g5099751018%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%set-dotted!| - (lambda (_%stx51522%_) - (let* ((_%__stx7665076651%_ _%stx51522%_) - (_%g5152651555%_ + (lambda (_%stx51347%_) + (let* ((_%__stx7647576476%_ _%stx51347%_) + (_%g5135151380%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7665076651%_)))) - (let ((_%__kont7665376654%_ - (lambda (_%L51647%_ _%L51649%_) - (let* ((_%g5166351670%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx51522%_ - _%L51649%_))) - (_%E5166551676%_ + _%__stx7647576476%_)))) + (let ((_%__kont7647876479%_ + (lambda (_%L51472%_ _%L51474%_) + (let* ((_%g5148851495%_ + (|gerbil/core/contract~Using[1]#split-dotted-identifier| + _%stx51347%_ + _%L51474%_)) + (_%E5149051501%_ (lambda () (error '"No clause matching" - _%g5166351670%_ + _%g5148851495%_ '([var . parts])) (void))) - (_%K5166651906%_ - (lambda (_%parts51680%_ _%var51682%_) - (let ((_%$e51684%_ + (_%K5149151731%_ + (lambda (_%parts51505%_ _%var51507%_) + (let ((_%$e51509%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var51682%_)))) - (if _%$e51684%_ - ((lambda (_%te51688%_) - (let _%loop51691%_ ((_%parts51694%_ - _%parts51680%_) - (_%type51696%_ + _%var51507%_)))) + (if _%$e51509%_ + ((lambda (_%te51513%_) + (let _%loop51516%_ ((_%parts51519%_ + _%parts51505%_) + (_%type51521%_ (##direct-structure-ref - _%te51688%_ + _%te51513%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object51697%_ - _%var51682%_) - (_%checked-mutator?51698%_ + (_%object51522%_ + _%var51507%_) + (_%checked-mutator?51523%_ (##direct-structure-ref - _%te51688%_ + _%te51513%_ '3 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%nil-check?51699%_ + (_%nil-check?51524%_ '#f)) - (let* ((_%parts5170051707%_ - _%parts51694%_) - (_%E5170251713%_ + (let* ((_%parts5152551532%_ + _%parts51519%_) + (_%E5152751538%_ (lambda () (error '"No clause matching" - _%parts5170051707%_ + _%parts5152551532%_ '([part . rest])) (void))) - (_%K5170351888%_ - (lambda (_%rest51717%_ - _%part51719%_) - (if (and (let () - (declare - (not safe)) - (not _%nil-check?51699%_)) - (let ((__tmp80733 + (_%K5152851713%_ + (lambda (_%rest51542%_ + _%part51544%_) + (if (and (not _%nil-check?51524%_) + (let ((__tmp80545 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part51719%_))) + (symbol->string _%part51544%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp80733))) - (let ((_%str51723%_ (symbol->string _%part51719%_))) - (_%loop51691%_ - (cons (let ((__tmp80734 + (##string-prefix? '"?" __tmp80545))) + (let ((_%str51548%_ (symbol->string _%part51544%_))) + (_%loop51516%_ + (cons (let ((__tmp80546 (substring - _%str51723%_ + _%str51548%_ '1 - (string-length _%str51723%_)))) + (string-length _%str51548%_)))) (declare (not safe)) - (##string->symbol __tmp80734)) - _%rest51717%_) - _%type51696%_ - _%object51697%_ - _%checked-mutator?51698%_ + (##string->symbol __tmp80546)) + _%rest51542%_) + _%type51521%_ + _%object51522%_ + _%checked-mutator?51523%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type51696%_)) - (let () - (if (let () (declare (not safe)) (null? _%rest51717%_)) - (let () - (let* ((_%g5173051745%_ - (lambda (_%g5173151741%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5173151741%_))) - (_%g5172951802%_ - (lambda (_%g5173151749%_) - (if (gx#stx-pair? _%g5173151749%_) - (let ((_%e5173651752%_ - (gx#syntax-e _%g5173151749%_))) - (let ((_%hd5173551756%_ - (let () - (declare (not safe)) - (##car _%e5173651752%_))) - (_%tl5173451759%_ - (let () - (declare (not safe)) - (##cdr _%e5173651752%_)))) - (if (gx#stx-pair? _%tl5173451759%_) - (let ((_%e5173951762%_ - (gx#syntax-e - _%tl5173451759%_))) - (let ((_%hd5173851766%_ - (let () - (declare (not safe)) - (##car _%e5173951762%_))) - (_%tl5173751769%_ - (let () - (declare (not safe)) - (##cdr _%e5173951762%_)))) - (if (gx#stx-null? - _%tl5173751769%_) - ((lambda (_%L51772%_ + _%type51521%_)) + (if (null? _%rest51542%_) + (let* ((_%g5155551570%_ + (lambda (_%g5155651566%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5155651566%_))) + (_%g5155451627%_ + (lambda (_%g5155651574%_) + (if (gx#stx-pair? _%g5155651574%_) + (let ((_%e5156151577%_ + (gx#syntax-e _%g5155651574%_))) + (let ((_%hd5156051581%_ + (let () + (declare (not safe)) + (##car _%e5156151577%_))) + (_%tl5155951584%_ + (let () + (declare (not safe)) + (##cdr _%e5156151577%_)))) + (if (gx#stx-pair? _%tl5155951584%_) + (let ((_%e5156451587%_ + (gx#syntax-e + _%tl5155951584%_))) + (let ((_%hd5156351591%_ + (let () + (declare (not safe)) + (##car _%e5156451587%_))) + (_%tl5156251594%_ + (let () + (declare (not safe)) + (##cdr _%e5156451587%_)))) + (if (gx#stx-null? + _%tl5156251594%_) + ((lambda (_%L51597%_ + _%L51599%_) + (if _%nil-check?51524%_ + (cons _%L51597%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L51774%_) - (let () - (if _%nil-check?51699%_ - (cons _%L51772%_ - (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L51774%_ '())) - (cons _%L51647%_ '()))) - (cons _%L51772%_ - (cons _%L51774%_ (cons _%L51647%_ '())))))) - _%hd5173851766%_ - _%hd5173551756%_) - (_%g5173051745%_ _%g5173151749%_)))) + (cons (cons (gx#datum->syntax '#f 'check-nil!) + (cons _%L51599%_ '())) + (cons _%L51472%_ '()))) + (cons _%L51597%_ (cons _%L51599%_ (cons _%L51472%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5173051745%_ - _%g5173151749%_)))) - (_%g5173051745%_ _%g5173151749%_))))) - (_%g5172951802%_ - (list _%object51697%_ - (let ((__tmp80735 - (if _%checked-mutator?51698%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%type51696%_ - _%part51719%_)) - '#f))) - (declare (not safe)) - (|gerbil/core/contract~Using[1]#get-slot-mutator| - _%stx51522%_ - _%type51696%_ - _%part51719%_ - __tmp80735)))))) - (let ((_%$e51806%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type51696%_ - _%part51719%_)))) - (if _%$e51806%_ - ((lambda (_%type51810%_) - (let* ((_%type51813%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx51522%_ - _%type51810%_))) - (_%g5181651831%_ - (lambda (_%g5181751827%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5181751827%_))) - (_%g5181551878%_ - (lambda (_%g5181751835%_) - (if (gx#stx-pair? _%g5181751835%_) - (let ((_%e5182251838%_ - (gx#syntax-e - _%g5181751835%_))) - (let ((_%hd5182151842%_ - (let () - (declare (not safe)) - (##car _%e5182251838%_))) - (_%tl5182051845%_ - (let () - (declare (not safe)) - (##cdr _%e5182251838%_)))) - (if (gx#stx-pair? - _%tl5182051845%_) - (let ((_%e5182551848%_ - (gx#syntax-e - _%tl5182051845%_))) - (let ((_%hd5182451852%_ - (let () + _%hd5156351591%_ + _%hd5156051581%_) + (_%g5155551570%_ + _%g5155651574%_)))) + (_%g5155551570%_ + _%g5155651574%_)))) + (_%g5155551570%_ _%g5155651574%_))))) + (_%g5155451627%_ + (list _%object51522%_ + (|gerbil/core/contract~Using[1]#get-slot-mutator| + _%stx51347%_ + _%type51521%_ + _%part51544%_ + (if _%checked-mutator?51523%_ + (|gerbil/core/contract~Using[1]#!class-slot-contract| + _%type51521%_ + _%part51544%_) + '#f))))) + (let ((_%$e51631%_ + (|gerbil/core/contract~Using[1]#!class-slot-type| + _%type51521%_ + _%part51544%_))) + (if _%$e51631%_ + ((lambda (_%type51635%_) + (let* ((_%type51638%_ + (let () + (declare (not safe)) + (|gerbil/core/contract~TypeReference[1]#resolve-type| + _%stx51347%_ + _%type51635%_))) + (_%g5164151656%_ + (lambda (_%g5164251652%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5164251652%_))) + (_%g5164051703%_ + (lambda (_%g5164251660%_) + (if (gx#stx-pair? _%g5164251660%_) + (let ((_%e5164751663%_ + (gx#syntax-e + _%g5164251660%_))) + (let ((_%hd5164651667%_ + (let () + (declare (not safe)) + (##car _%e5164751663%_))) + (_%tl5164551670%_ + (let () + (declare (not safe)) + (##cdr _%e5164751663%_)))) + (if (gx#stx-pair? + _%tl5164551670%_) + (let ((_%e5165051673%_ + (gx#syntax-e + _%tl5164551670%_))) + (let ((_%hd5164951677%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _%e5182551848%_))) - (_%tl5182351855%_ - (let () (declare (not safe)) (##cdr _%e5182551848%_)))) - (if (gx#stx-null? _%tl5182351855%_) - ((lambda (_%L51858%_ _%L51860%_) - (let () - (_%loop51691%_ - _%rest51717%_ - _%type51813%_ - (cons _%L51858%_ (cons _%L51860%_ '())) - (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#!class-slot-checked-mutator-contract?| - _%type51813%_ - _%part51719%_)) - '#f))) - _%hd5182451852%_ - _%hd5182151842%_) - (_%g5181651831%_ _%g5181751835%_)))) - (_%g5181651831%_ _%g5181751835%_)))) + (not safe)) + (##car _%e5165051673%_))) + (_%tl5164851680%_ + (let () (declare (not safe)) (##cdr _%e5165051673%_)))) + (if (gx#stx-null? _%tl5164851680%_) + ((lambda (_%L51683%_ _%L51685%_) + (_%loop51516%_ + _%rest51542%_ + _%type51638%_ + (cons _%L51683%_ (cons _%L51685%_ '())) + (|gerbil/core/contract~Using[1]#!class-slot-checked-mutator-contract?| + _%type51638%_ + _%part51544%_) + '#f)) + _%hd5164951677%_ + _%hd5164651667%_) + (_%g5164151656%_ _%g5164251660%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5181651831%_ - _%g5181751835%_))))) - (_%g5181551878%_ - (list (if _%nil-check?51699%_ - (cons 'check-nil! - (cons _%object51697%_ '())) - _%object51697%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx51522%_ - _%type51813%_ - _%part51719%_)))))) - _%$e51806%_) - (let () - (gx#raise-syntax-error - '#f - '"unresolved dotted reference; unknown type for slot" - _%stx51522%_ - _%L51649%_ - _%part51719%_)))))) + (_%g5164151656%_ + _%g5164251660%_)))) + (_%g5164151656%_ + _%g5164251660%_))))) + (_%g5164051703%_ + (list (if _%nil-check?51524%_ + (cons 'check-nil! + (cons _%object51522%_ '())) + _%object51522%_) + (|gerbil/core/contract~Using[1]#get-slot-accessor| + _%stx51347%_ + _%type51638%_ + _%part51544%_))))) + _%$e51631%_) + (gx#raise-syntax-error + '#f + '"unresolved dotted reference; unknown type for slot" + _%stx51347%_ + _%L51474%_ + _%part51544%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type51696%_)) - (let () - (gx#raise-syntax-error - '#f - '"illegal dotted reference; interface has no slots")) - (let () - (gx#raise-syntax-error - '#f - '"unexpected type" - _%stx51522%_ - _%type51696%_)))))))) + _%type51521%_)) + (gx#raise-syntax-error + '#f + '"illegal dotted reference; interface has no slots") + (gx#raise-syntax-error + '#f + '"unexpected type" + _%stx51347%_ + _%type51521%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%parts5170051707%_)) - (let ((_%hd5170451892%_ + (##pair? _%parts5152551532%_)) + (let ((_%hd5152951717%_ (let () (declare (not safe)) - (##car _%parts5170051707%_))) - (_%tl5170551895%_ + (##car _%parts5152551532%_))) + (_%tl5153051720%_ (let () (declare (not safe)) - (##cdr _%parts5170051707%_)))) - (let* ((_%part51898%_ - _%hd5170451892%_) - (_%rest51901%_ - _%tl5170551895%_)) - (_%K5170351888%_ - _%rest51901%_ - _%part51898%_))) - (_%E5170251713%_))))) - _%$e51684%_) + (##cdr _%parts5152551532%_)))) + (let* ((_%part51723%_ + _%hd5152951717%_) + (_%rest51726%_ + _%tl5153051720%_)) + (_%K5152851713%_ + _%rest51726%_ + _%part51723%_))) + (_%E5152751538%_))))) + _%$e51509%_) (let () (declare (not safe)) (|gerbil/core/more-sugar[1]#expand-set!| - _%stx51522%_))))))) + _%stx51347%_))))))) (if (let () (declare (not safe)) - (##pair? _%g5166351670%_)) - (let ((_%hd5166751910%_ + (##pair? _%g5148851495%_)) + (let ((_%hd5149251735%_ (let () (declare (not safe)) - (##car _%g5166351670%_))) - (_%tl5166851913%_ + (##car _%g5148851495%_))) + (_%tl5149351738%_ (let () (declare (not safe)) - (##cdr _%g5166351670%_)))) - (let* ((_%var51916%_ _%hd5166751910%_) - (_%parts51919%_ _%tl5166851913%_)) - (_%K5166651906%_ _%parts51919%_ _%var51916%_))) - (_%E5166551676%_))))) - (_%__kont7665576656%_ - (lambda (_%L51592%_ _%L51594%_) + (##cdr _%g5148851495%_)))) + (let* ((_%var51741%_ _%hd5149251735%_) + (_%parts51744%_ _%tl5149351738%_)) + (_%K5149151731%_ _%parts51744%_ _%var51741%_))) + (_%E5149051501%_))))) + (_%__kont7648076481%_ + (lambda (_%L51417%_ _%L51419%_) (let () (declare (not safe)) - (|gerbil/core/more-sugar[1]#expand-set!| _%stx51522%_))))) - (let ((_%__match7667776678%_ - (lambda (_%e5153251617%_ - _%hd5153151621%_ - _%tl5153051624%_ - _%e5153551627%_ - _%hd5153451631%_ - _%tl5153351634%_ - _%e5153851637%_ - _%hd5153751641%_ - _%tl5153651644%_) - (let ((_%L51647%_ _%hd5153751641%_) - (_%L51649%_ _%hd5153451631%_)) - (if (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L51649%_)) - (_%__kont7665376654%_ _%L51647%_ _%L51649%_) - (_%__kont7665576656%_ - _%hd5153751641%_ - _%hd5153451631%_)))))) - (if (gx#stx-pair? _%__stx7665076651%_) - (let ((_%e5153251617%_ (gx#syntax-e _%__stx7665076651%_))) - (let ((_%tl5153051624%_ + (|gerbil/core/more-sugar[1]#expand-set!| _%stx51347%_))))) + (let ((_%__match7650276503%_ + (lambda (_%e5135751442%_ + _%hd5135651446%_ + _%tl5135551449%_ + _%e5136051452%_ + _%hd5135951456%_ + _%tl5135851459%_ + _%e5136351462%_ + _%hd5136251466%_ + _%tl5136151469%_) + (let ((_%L51472%_ _%hd5136251466%_) + (_%L51474%_ _%hd5135951456%_)) + (if (|gerbil/core/contract~Using[1]#dotted-identifier?| + _%L51474%_) + (_%__kont7647876479%_ _%L51472%_ _%L51474%_) + (_%__kont7648076481%_ + _%hd5136251466%_ + _%hd5135951456%_)))))) + (if (gx#stx-pair? _%__stx7647576476%_) + (let ((_%e5135751442%_ (gx#syntax-e _%__stx7647576476%_))) + (let ((_%tl5135551449%_ (let () (declare (not safe)) - (##cdr _%e5153251617%_))) - (_%hd5153151621%_ + (##cdr _%e5135751442%_))) + (_%hd5135651446%_ (let () (declare (not safe)) - (##car _%e5153251617%_)))) - (if (gx#stx-pair? _%tl5153051624%_) - (let ((_%e5153551627%_ - (gx#syntax-e _%tl5153051624%_))) - (let ((_%tl5153351634%_ + (##car _%e5135751442%_)))) + (if (gx#stx-pair? _%tl5135551449%_) + (let ((_%e5136051452%_ + (gx#syntax-e _%tl5135551449%_))) + (let ((_%tl5135851459%_ (let () (declare (not safe)) - (##cdr _%e5153551627%_))) - (_%hd5153451631%_ + (##cdr _%e5136051452%_))) + (_%hd5135951456%_ (let () (declare (not safe)) - (##car _%e5153551627%_)))) - (if (gx#stx-pair? _%tl5153351634%_) - (let ((_%e5153851637%_ - (gx#syntax-e _%tl5153351634%_))) - (let ((_%tl5153651644%_ + (##car _%e5136051452%_)))) + (if (gx#stx-pair? _%tl5135851459%_) + (let ((_%e5136351462%_ + (gx#syntax-e _%tl5135851459%_))) + (let ((_%tl5136151469%_ (let () (declare (not safe)) - (##cdr _%e5153851637%_))) - (_%hd5153751641%_ + (##cdr _%e5136351462%_))) + (_%hd5136251466%_ (let () (declare (not safe)) - (##car _%e5153851637%_)))) - (if (gx#stx-null? _%tl5153651644%_) - (_%__match7667776678%_ - _%e5153251617%_ - _%hd5153151621%_ - _%tl5153051624%_ - _%e5153551627%_ - _%hd5153451631%_ - _%tl5153351634%_ - _%e5153851637%_ - _%hd5153751641%_ - _%tl5153651644%_) + (##car _%e5136351462%_)))) + (if (gx#stx-null? _%tl5136151469%_) + (_%__match7650276503%_ + _%e5135751442%_ + _%hd5135651446%_ + _%tl5135551449%_ + _%e5136051452%_ + _%hd5135951456%_ + _%tl5135851459%_ + _%e5136351462%_ + _%hd5136251466%_ + _%tl5136151469%_) (let () (declare (not safe)) - (_%g5152651555%_))))) + (_%g5135151380%_))))) (let () (declare (not safe)) - (_%g5152651555%_))))) - (let () (declare (not safe)) (_%g5152651555%_))))) - (let () (declare (not safe)) (_%g5152651555%_)))))))))) + (_%g5135151380%_))))) + (let () (declare (not safe)) (_%g5135151380%_))))) + (let () (declare (not safe)) (_%g5135151380%_)))))))))) diff --git a/src/bootstrap/gerbil/core/contract~7.scm b/src/bootstrap/gerbil/core/contract~7.scm index 043fb3c0c..45d950165 100644 --- a/src/bootstrap/gerbil/core/contract~7.scm +++ b/src/bootstrap/gerbil/core/contract~7.scm @@ -1,38 +1,38 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core/contract~ContractRules[:0:]#maybe| - (lambda (_%$stx51927%_) - (let* ((_%g5193151945%_ - (lambda (_%g5193251941%_) + (lambda (_%$stx51752%_) + (let* ((_%g5175651770%_ + (lambda (_%g5175751766%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5193251941%_))) - (_%g5193051987%_ - (lambda (_%g5193251949%_) - (if (gx#stx-pair? _%g5193251949%_) - (let ((_%e5193651952%_ (gx#syntax-e _%g5193251949%_))) - (let ((_%hd5193551956%_ + _%g5175751766%_))) + (_%g5175551812%_ + (lambda (_%g5175751774%_) + (if (gx#stx-pair? _%g5175751774%_) + (let ((_%e5176151777%_ (gx#syntax-e _%g5175751774%_))) + (let ((_%hd5176051781%_ (let () (declare (not safe)) - (##car _%e5193651952%_))) - (_%tl5193451959%_ + (##car _%e5176151777%_))) + (_%tl5175951784%_ (let () (declare (not safe)) - (##cdr _%e5193651952%_)))) - (if (gx#stx-pair? _%tl5193451959%_) - (let ((_%e5193951962%_ - (gx#syntax-e _%tl5193451959%_))) - (let ((_%hd5193851966%_ + (##cdr _%e5176151777%_)))) + (if (gx#stx-pair? _%tl5175951784%_) + (let ((_%e5176451787%_ + (gx#syntax-e _%tl5175951784%_))) + (let ((_%hd5176351791%_ (let () (declare (not safe)) - (##car _%e5193951962%_))) - (_%tl5193751969%_ + (##car _%e5176451787%_))) + (_%tl5176251794%_ (let () (declare (not safe)) - (##cdr _%e5193951962%_)))) - (if (gx#stx-null? _%tl5193751969%_) - ((lambda (_%L51972%_) + (##cdr _%e5176451787%_)))) + (if (gx#stx-null? _%tl5176251794%_) + ((lambda (_%L51797%_) (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f @@ -40,60 +40,60 @@ (cons (gx#datum->syntax '#f 'not) - (cons _%L51972%_ + (cons _%L51797%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd5193851966%_) - (_%g5193151945%_ _%g5193251949%_)))) - (_%g5193151945%_ _%g5193251949%_)))) - (_%g5193151945%_ _%g5193251949%_))))) - (_%g5193051987%_ _%$stx51927%_)))) + _%hd5176351791%_) + (_%g5175651770%_ _%g5175751774%_)))) + (_%g5175651770%_ _%g5175751774%_)))) + (_%g5175651770%_ _%g5175751774%_))))) + (_%g5175551812%_ _%$stx51752%_)))) (define |gerbil/core/contract~ContractRules[:0:]#in-range?| - (lambda (_%$stx51991%_) - (let* ((_%g5199552013%_ - (lambda (_%g5199652009%_) + (lambda (_%$stx51816%_) + (let* ((_%g5182051838%_ + (lambda (_%g5182151834%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5199652009%_))) - (_%g5199452068%_ - (lambda (_%g5199652017%_) - (if (gx#stx-pair? _%g5199652017%_) - (let ((_%e5200152020%_ (gx#syntax-e _%g5199652017%_))) - (let ((_%hd5200052024%_ + _%g5182151834%_))) + (_%g5181951893%_ + (lambda (_%g5182151842%_) + (if (gx#stx-pair? _%g5182151842%_) + (let ((_%e5182651845%_ (gx#syntax-e _%g5182151842%_))) + (let ((_%hd5182551849%_ (let () (declare (not safe)) - (##car _%e5200152020%_))) - (_%tl5199952027%_ + (##car _%e5182651845%_))) + (_%tl5182451852%_ (let () (declare (not safe)) - (##cdr _%e5200152020%_)))) - (if (gx#stx-pair? _%tl5199952027%_) - (let ((_%e5200452030%_ - (gx#syntax-e _%tl5199952027%_))) - (let ((_%hd5200352034%_ + (##cdr _%e5182651845%_)))) + (if (gx#stx-pair? _%tl5182451852%_) + (let ((_%e5182951855%_ + (gx#syntax-e _%tl5182451852%_))) + (let ((_%hd5182851859%_ (let () (declare (not safe)) - (##car _%e5200452030%_))) - (_%tl5200252037%_ + (##car _%e5182951855%_))) + (_%tl5182751862%_ (let () (declare (not safe)) - (##cdr _%e5200452030%_)))) - (if (gx#stx-pair? _%tl5200252037%_) - (let ((_%e5200752040%_ - (gx#syntax-e _%tl5200252037%_))) - (let ((_%hd5200652044%_ + (##cdr _%e5182951855%_)))) + (if (gx#stx-pair? _%tl5182751862%_) + (let ((_%e5183251865%_ + (gx#syntax-e _%tl5182751862%_))) + (let ((_%hd5183151869%_ (let () (declare (not safe)) - (##car _%e5200752040%_))) - (_%tl5200552047%_ + (##car _%e5183251865%_))) + (_%tl5183051872%_ (let () (declare (not safe)) - (##cdr _%e5200752040%_)))) - (if (gx#stx-null? _%tl5200552047%_) - ((lambda (_%L52050%_ _%L52052%_) + (##cdr _%e5183251865%_)))) + (if (gx#stx-null? _%tl5183051872%_) + ((lambda (_%L51875%_ _%L51877%_) (cons (gx#datum->syntax '#f 'lambda) @@ -110,72 +110,72 @@ (cons (gx#datum->syntax '#f 'o) - (cons _%L52052%_ '()))) + (cons _%L51877%_ '()))) (cons (cons (gx#datum->syntax '#f 'fx<) (cons (gx#datum->syntax '#f 'o) - (cons _%L52050%_ + (cons _%L51875%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5200652044%_ - _%hd5200352034%_) - (_%g5199552013%_ - _%g5199652017%_)))) - (_%g5199552013%_ _%g5199652017%_)))) - (_%g5199552013%_ _%g5199652017%_)))) - (_%g5199552013%_ _%g5199652017%_))))) - (_%g5199452068%_ _%$stx51991%_)))) + _%hd5183151869%_ + _%hd5182851859%_) + (_%g5182051838%_ + _%g5182151842%_)))) + (_%g5182051838%_ _%g5182151842%_)))) + (_%g5182051838%_ _%g5182151842%_)))) + (_%g5182051838%_ _%g5182151842%_))))) + (_%g5181951893%_ _%$stx51816%_)))) (define |gerbil/core/contract~ContractRules[:0:]#in-range-inclusive?| - (lambda (_%$stx52072%_) - (let* ((_%g5207652094%_ - (lambda (_%g5207752090%_) + (lambda (_%$stx51897%_) + (let* ((_%g5190151919%_ + (lambda (_%g5190251915%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5207752090%_))) - (_%g5207552149%_ - (lambda (_%g5207752098%_) - (if (gx#stx-pair? _%g5207752098%_) - (let ((_%e5208252101%_ (gx#syntax-e _%g5207752098%_))) - (let ((_%hd5208152105%_ + _%g5190251915%_))) + (_%g5190051974%_ + (lambda (_%g5190251923%_) + (if (gx#stx-pair? _%g5190251923%_) + (let ((_%e5190751926%_ (gx#syntax-e _%g5190251923%_))) + (let ((_%hd5190651930%_ (let () (declare (not safe)) - (##car _%e5208252101%_))) - (_%tl5208052108%_ + (##car _%e5190751926%_))) + (_%tl5190551933%_ (let () (declare (not safe)) - (##cdr _%e5208252101%_)))) - (if (gx#stx-pair? _%tl5208052108%_) - (let ((_%e5208552111%_ - (gx#syntax-e _%tl5208052108%_))) - (let ((_%hd5208452115%_ + (##cdr _%e5190751926%_)))) + (if (gx#stx-pair? _%tl5190551933%_) + (let ((_%e5191051936%_ + (gx#syntax-e _%tl5190551933%_))) + (let ((_%hd5190951940%_ (let () (declare (not safe)) - (##car _%e5208552111%_))) - (_%tl5208352118%_ + (##car _%e5191051936%_))) + (_%tl5190851943%_ (let () (declare (not safe)) - (##cdr _%e5208552111%_)))) - (if (gx#stx-pair? _%tl5208352118%_) - (let ((_%e5208852121%_ - (gx#syntax-e _%tl5208352118%_))) - (let ((_%hd5208752125%_ + (##cdr _%e5191051936%_)))) + (if (gx#stx-pair? _%tl5190851943%_) + (let ((_%e5191351946%_ + (gx#syntax-e _%tl5190851943%_))) + (let ((_%hd5191251950%_ (let () (declare (not safe)) - (##car _%e5208852121%_))) - (_%tl5208652128%_ + (##car _%e5191351946%_))) + (_%tl5191151953%_ (let () (declare (not safe)) - (##cdr _%e5208852121%_)))) - (if (gx#stx-null? _%tl5208652128%_) - ((lambda (_%L52131%_ _%L52133%_) + (##cdr _%e5191351946%_)))) + (if (gx#stx-null? _%tl5191151953%_) + ((lambda (_%L51956%_ _%L51958%_) (cons (gx#datum->syntax '#f 'lambda) @@ -189,58 +189,58 @@ (cons (gx#datum->syntax '#f 'o) '())) (cons (cons (gx#datum->syntax '#f 'fx<=) - (cons _%L52133%_ + (cons _%L51958%_ (cons (gx#datum->syntax '#f 'o) - (cons _%L52131%_ + (cons _%L51956%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5208752125%_ - _%hd5208452115%_) - (_%g5207652094%_ - _%g5207752098%_)))) - (_%g5207652094%_ _%g5207752098%_)))) - (_%g5207652094%_ _%g5207752098%_)))) - (_%g5207652094%_ _%g5207752098%_))))) - (_%g5207552149%_ _%$stx52072%_)))) + _%hd5191251950%_ + _%hd5190951940%_) + (_%g5190151919%_ + _%g5190251923%_)))) + (_%g5190151919%_ _%g5190251923%_)))) + (_%g5190151919%_ _%g5190251923%_)))) + (_%g5190151919%_ _%g5190251923%_))))) + (_%g5190051974%_ _%$stx51897%_)))) (define |gerbil/core/contract~ContractRules[:0:]#list-of?| - (lambda (_%$stx52153%_) - (let* ((_%g5215752171%_ - (lambda (_%g5215852167%_) + (lambda (_%$stx51978%_) + (let* ((_%g5198251996%_ + (lambda (_%g5198351992%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5215852167%_))) - (_%g5215652212%_ - (lambda (_%g5215852175%_) - (if (gx#stx-pair? _%g5215852175%_) - (let ((_%e5216252178%_ (gx#syntax-e _%g5215852175%_))) - (let ((_%hd5216152182%_ + _%g5198351992%_))) + (_%g5198152037%_ + (lambda (_%g5198352000%_) + (if (gx#stx-pair? _%g5198352000%_) + (let ((_%e5198752003%_ (gx#syntax-e _%g5198352000%_))) + (let ((_%hd5198652007%_ (let () (declare (not safe)) - (##car _%e5216252178%_))) - (_%tl5216052185%_ + (##car _%e5198752003%_))) + (_%tl5198552010%_ (let () (declare (not safe)) - (##cdr _%e5216252178%_)))) - (if (gx#stx-pair? _%tl5216052185%_) - (let ((_%e5216552188%_ - (gx#syntax-e _%tl5216052185%_))) - (let ((_%hd5216452192%_ + (##cdr _%e5198752003%_)))) + (if (gx#stx-pair? _%tl5198552010%_) + (let ((_%e5199052013%_ + (gx#syntax-e _%tl5198552010%_))) + (let ((_%hd5198952017%_ (let () (declare (not safe)) - (##car _%e5216552188%_))) - (_%tl5216352195%_ + (##car _%e5199052013%_))) + (_%tl5198852020%_ (let () (declare (not safe)) - (##cdr _%e5216552188%_)))) - (if (gx#stx-null? _%tl5216352195%_) - ((lambda (_%L52198%_) + (##cdr _%e5199052013%_)))) + (if (gx#stx-null? _%tl5198852020%_) + ((lambda (_%L52023%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f @@ -255,14 +255,14 @@ 'list?) (cons (gx#datum->syntax '#f 'o) '())) (cons (cons (gx#datum->syntax '#f 'andmap) - (cons _%L52198%_ + (cons _%L52023%_ (cons (gx#datum->syntax '#f 'o) '()))) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5216452192%_) - (_%g5215752171%_ _%g5215852175%_)))) - (_%g5215752171%_ _%g5215852175%_)))) - (_%g5215752171%_ _%g5215852175%_))))) - (_%g5215652212%_ _%$stx52153%_))))) + _%hd5198952017%_) + (_%g5198251996%_ _%g5198352000%_)))) + (_%g5198251996%_ _%g5198352000%_)))) + (_%g5198251996%_ _%g5198352000%_))))) + (_%g5198152037%_ _%$stx51978%_))))) diff --git a/src/bootstrap/gerbil/core/contract~8.scm b/src/bootstrap/gerbil/core/contract~8.scm index e7adf021c..b412ad2f6 100644 --- a/src/bootstrap/gerbil/core/contract~8.scm +++ b/src/bootstrap/gerbil/core/contract~8.scm @@ -1,8523 +1,8165 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~Interface[1]#_g80741_| + (define |gerbil/core/contract~Interface[1]#_g80548_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80745_| + (define |gerbil/core/contract~Interface[1]#_g80550_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80753_| + (define |gerbil/core/contract~Interface[1]#_g80551_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80754_| + (define |gerbil/core/contract~Interface[1]#_g80552_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80755_| + (define |gerbil/core/contract~Interface[1]#_g80553_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80756_| + (define |gerbil/core/contract~Interface[1]#_g80554_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80762_| + (define |gerbil/core/contract~Interface[1]#_g80556_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80774_| + (define |gerbil/core/contract~Interface[1]#_g80558_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80786_| + (define |gerbil/core/contract~Interface[1]#_g80559_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80787_| + (define |gerbil/core/contract~Interface[1]#_g80560_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80788_| + (define |gerbil/core/contract~Interface[1]#_g80561_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80795_| + (define |gerbil/core/contract~Interface[1]#_g80562_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80796_| + (define |gerbil/core/contract~Interface[1]#_g80563_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80797_| + (define |gerbil/core/contract~Interface[1]#_g80564_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80805_| + (define |gerbil/core/contract~Interface[1]#_g80570_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80806_| + (define |gerbil/core/contract~Interface[1]#_g80571_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80807_| + (define |gerbil/core/contract~Interface[1]#_g80572_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80808_| + (define |gerbil/core/contract~Interface[1]#_g80573_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80809_| + (define |gerbil/core/contract~Interface[1]#_g80574_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80810_| + (define |gerbil/core/contract~Interface[1]#_g80575_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80811_| + (define |gerbil/core/contract~Interface[1]#_g80576_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80812_| + (define |gerbil/core/contract~Interface[1]#_g80577_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80813_| + (define |gerbil/core/contract~Interface[1]#_g80578_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80814_| + (define |gerbil/core/contract~Interface[1]#_g80579_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80815_| + (define |gerbil/core/contract~Interface[1]#_g80580_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80816_| + (define |gerbil/core/contract~Interface[1]#_g80581_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80817_| + (define |gerbil/core/contract~Interface[1]#_g80582_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80818_| + (define |gerbil/core/contract~Interface[1]#_g80583_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80819_| + (define |gerbil/core/contract~Interface[1]#_g80584_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80820_| + (define |gerbil/core/contract~Interface[1]#_g80585_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80821_| + (define |gerbil/core/contract~Interface[1]#_g80586_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80822_| + (define |gerbil/core/contract~Interface[1]#_g80587_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80845_| + (define |gerbil/core/contract~Interface[1]#_g80589_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g80856_| + (define |gerbil/core/contract~Interface[1]#_g80597_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~Interface[1]#check-signature!__%| - (lambda (_%@@keywords59596%_ - _%optionals-allowed?5959259598%_ - _%keywords-allowed?5959359600%_ - _%stx59602%_ - _%args59603%_ - _%return59604%_) - (let* ((_%optionals-allowed?59606%_ - (if (eq? _%optionals-allowed?5959259598%_ absent-value) + (lambda (_%@@keywords59421%_ + _%optionals-allowed?5941759423%_ + _%keywords-allowed?5941859425%_ + _%stx59427%_ + _%args59428%_ + _%return59429%_) + (let* ((_%optionals-allowed?59431%_ + (if (eq? _%optionals-allowed?5941759423%_ absent-value) '#t - _%optionals-allowed?5959259598%_)) - (_%keywords-allowed?59609%_ - (if (eq? _%keywords-allowed?5959359600%_ absent-value) + _%optionals-allowed?5941759423%_)) + (_%keywords-allowed?59434%_ + (if (eq? _%keywords-allowed?5941859425%_ absent-value) '#t - _%keywords-allowed?5959359600%_))) - (if (gx#stx-e _%return59604%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx59602%_ - _%return59604%_)) + _%keywords-allowed?5941859425%_))) + (if (gx#stx-e _%return59429%_) + (|gerbil/core/contract~Interface[1]#check-valid-type!| + _%stx59427%_ + _%return59429%_) '#!void) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#check-signature-spec!__%| - '#f - _%optionals-allowed?59606%_ - _%keywords-allowed?59609%_ - _%stx59602%_ - _%args59603%_))))) + (|gerbil/core/contract~Interface[1]#check-signature-spec!__%| + '#f + _%optionals-allowed?59431%_ + _%keywords-allowed?59434%_ + _%stx59427%_ + _%args59428%_)))) (define |gerbil/core/contract~Interface[1]#check-signature!__@| - (lambda (_%@@keywords59616%_ . _%args59618%_) + (lambda (_%@@keywords59441%_ . _%args59443%_) (apply |gerbil/core/contract~Interface[1]#check-signature!__%| - _%@@keywords59616%_ + _%@@keywords59441%_ (symbolic-table-ref - _%@@keywords59616%_ + _%@@keywords59441%_ 'optionals: absent-value) - (symbolic-table-ref _%@@keywords59616%_ 'keywords: absent-value) - _%args59618%_))) + (symbolic-table-ref _%@@keywords59441%_ 'keywords: absent-value) + _%args59443%_))) (define |gerbil/core/contract~Interface[1]#check-signature!| - (lambda _%args5959459625%_ + (lambda _%args5941959450%_ (apply keyword-dispatch '#(optionals: keywords:) |gerbil/core/contract~Interface[1]#check-signature!__@| - _%args5959459625%_))) + _%args5941959450%_))) (define |gerbil/core/contract~Interface[1]#check-valid-type!| - (lambda (_%stx59568%_ _%id59570%_) - (let* ((_%info59572%_ (gx#syntax-local-value _%id59570%_ false)) - (_%$e59583%_ - (let ((_%$e59575%_ + (lambda (_%stx59393%_ _%id59395%_) + (let* ((_%info59397%_ (gx#syntax-local-value _%id59395%_ false)) + (_%$e59408%_ + (let ((_%$e59400%_ (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%info59572%_)))) - (if _%$e59575%_ - _%$e59575%_ - (let ((_%$e59579%_ + _%info59397%_)))) + (if _%$e59400%_ + _%$e59400%_ + (let ((_%$e59404%_ (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info59572%_)))) - (if _%$e59579%_ - _%$e59579%_ + _%info59397%_)))) + (if _%$e59404%_ + _%$e59404%_ (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%info59572%_)))))))) - (if _%$e59583%_ - _%$e59583%_ - (if (let () (declare (not safe)) (not _%info59572%_)) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; unknown type" - _%stx59568%_ - _%id59570%_)) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; not a a class type or interface" - _%stx59568%_ - _%id59570%_ - _%info59572%_))))))) + _%info59397%_)))))))) + (if _%$e59408%_ + _%$e59408%_ + (if (not _%info59397%_) + (gx#raise-syntax-error + '#f + '"invalid signature; unknown type" + _%stx59393%_ + _%id59395%_) + (gx#raise-syntax-error + '#f + '"invalid signature; not a a class type or interface" + _%stx59393%_ + _%id59395%_ + _%info59397%_)))))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!__%| - (lambda (_%@@keywords58803%_ - _%optionals-allowed?5879958805%_ - _%keywords-allowed?5880058807%_ - _%stx58809%_ - _%signature58810%_) - (let* ((_%optionals-allowed?58812%_ - (if (eq? _%optionals-allowed?5879958805%_ absent-value) + (lambda (_%@@keywords58628%_ + _%optionals-allowed?5862458630%_ + _%keywords-allowed?5862558632%_ + _%stx58634%_ + _%signature58635%_) + (let* ((_%optionals-allowed?58637%_ + (if (eq? _%optionals-allowed?5862458630%_ absent-value) '#t - _%optionals-allowed?5879958805%_)) - (_%keywords-allowed?58815%_ - (if (eq? _%keywords-allowed?5880058807%_ absent-value) + _%optionals-allowed?5862458630%_)) + (_%keywords-allowed?58640%_ + (if (eq? _%keywords-allowed?5862558632%_ absent-value) '#t - _%keywords-allowed?5880058807%_))) - (let _%lp58818%_ ((_%rest58821%_ _%signature58810%_) - (_%have-optional?58823%_ '#f) - (_%ids58824%_ '()) - (_%kws58825%_ '())) - (let* ((_%__stx7677676777%_ _%rest58821%_) - (_%g5883558905%_ + _%keywords-allowed?5862558632%_))) + (let _%lp58643%_ ((_%rest58646%_ _%signature58635%_) + (_%have-optional?58648%_ '#f) + (_%ids58649%_ '()) + (_%kws58650%_ '())) + (let* ((_%__stx7660176602%_ _%rest58646%_) + (_%g5866058730%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7677676777%_)))) - (let ((_%__kont7677976780%_ - (lambda (_%L59521%_ _%L59523%_) - (if _%have-optional?58823%_ - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; required argument after optionals" - _%stx58809%_ - _%signature58810%_ - _%L59523%_)) - (if (let ((__tmp80736 - (let () - (declare (not safe)) - (null? _%kws58825%_)))) - (declare (not safe)) - (not __tmp80736)) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; positional arguments must precede keyword arguments")) - (if (find (lambda (_%g5953759539%_) + _%__stx7660176602%_)))) + (let ((_%__kont7660476605%_ + (lambda (_%L59346%_ _%L59348%_) + (if _%have-optional?58648%_ + (gx#raise-syntax-error + '#f + '"invalid signature; required argument after optionals" + _%stx58634%_ + _%signature58635%_ + _%L59348%_) + (if (not (null? _%kws58650%_)) + (gx#raise-syntax-error + '#f + '"invalid signature; positional arguments must precede keyword arguments") + (if (find (lambda (_%g5936259364%_) (gx#bound-identifier=? - _%g5953759539%_ - _%L59523%_)) - _%ids58824%_) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; duplicate identifier" - _%stx58809%_ - _%signature58810%_ - _%L59523%_)) - (let ((__tmp80737 - (cons _%L59523%_ _%ids58824%_))) - (declare (not safe)) - (_%lp58818%_ - _%L59521%_ - _%have-optional?58823%_ - __tmp80737 - _%kws58825%_))))))) - (_%__kont7678176782%_ - (lambda (_%L59474%_ _%L59476%_) - (if (let () - (declare (not safe)) - (not _%optionals-allowed?58812%_)) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; optionals not allowed" - _%stx58809%_ - _%signature58810%_)) - (if (let ((__tmp80738 - (let () - (declare (not safe)) - (null? _%kws58825%_)))) - (declare (not safe)) - (not __tmp80738)) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; positional arguments must precede keyword arguments")) - (if (find (lambda (_%g5949459496%_) + _%g5936259364%_ + _%L59348%_)) + _%ids58649%_) + (gx#raise-syntax-error + '#f + '"invalid signature; duplicate identifier" + _%stx58634%_ + _%signature58635%_ + _%L59348%_) + (_%lp58643%_ + _%L59346%_ + _%have-optional?58648%_ + (cons _%L59348%_ _%ids58649%_) + _%kws58650%_)))))) + (_%__kont7660676607%_ + (lambda (_%L59299%_ _%L59301%_) + (if (not _%optionals-allowed?58637%_) + (gx#raise-syntax-error + '#f + '"invalid signature; optionals not allowed" + _%stx58634%_ + _%signature58635%_) + (if (not (null? _%kws58650%_)) + (gx#raise-syntax-error + '#f + '"invalid signature; positional arguments must precede keyword arguments") + (if (find (lambda (_%g5931959321%_) (gx#bound-identifier=? - _%g5949459496%_ - _%L59476%_)) - _%ids58824%_) - (let () + _%g5931959321%_ + _%L59301%_)) + _%ids58649%_) + (gx#raise-syntax-error + '#f + '"invalid signature; duplicate identifier" + _%stx58634%_ + _%signature58635%_ + _%L59301%_) + (_%lp58643%_ + _%L59299%_ + '#t + (cons _%L59301%_ _%ids58649%_) + _%kws58650%_)))))) + (_%__kont7660876609%_ + (lambda (_%L59011%_ _%L59013%_ _%L59014%_) + (if (not _%optionals-allowed?58637%_) + (let* ((_%__stx7652576526%_ _%L59013%_) + (_%g5903159052%_ + (lambda () (gx#raise-syntax-error '#f - '"invalid signature; duplicate identifier" - _%stx58809%_ - _%signature58810%_ - _%L59476%_)) - (let ((__tmp80739 - (cons _%L59476%_ _%ids58824%_))) - (declare (not safe)) - (_%lp58818%_ - _%L59474%_ - '#t - __tmp80739 - _%kws58825%_))))))) - (_%__kont7678376784%_ - (lambda (_%L59186%_ _%L59188%_ _%L59189%_) - (if (let () - (declare (not safe)) - (not _%optionals-allowed?58812%_)) - (let () - (let* ((_%__stx7670076701%_ _%L59188%_) - (_%g5920659227%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx7670076701%_)))) - (let ((_%__kont7670376704%_ - (lambda (_%L59291%_) - (gx#raise-syntax-error - '#f - '"invalid signature; optionals not allowed" - _%stx58809%_ - _%signature58810%_))) - (_%__kont7670776708%_ (lambda () (void)))) - (let ((_%__match7673576736%_ - (lambda (_%__splice7670576706%_ - _%target5920959245%_ - _%tl5921159248%_ - _%e5921859251%_ - _%hd5921759255%_ - _%tl5921659258%_ - _%e5922159261%_ - _%hd5922059265%_ - _%tl5921959268%_) - (letrec ((_%loop5921259271%_ - (lambda (_%hd5921059275%_) - (if (gx#stx-pair? - _%hd5921059275%_) - (let ((_%e5921359279%_ + '"Bad syntax; invalid match target" + _%__stx7652576526%_)))) + (let ((_%__kont7652876529%_ + (lambda (_%L59116%_) + (gx#raise-syntax-error + '#f + '"invalid signature; optionals not allowed" + _%stx58634%_ + _%signature58635%_))) + (_%__kont7653276533%_ (lambda () (void)))) + (let ((_%__match7656076561%_ + (lambda (_%__splice7653076531%_ + _%target5903459070%_ + _%tl5903659073%_ + _%e5904359076%_ + _%hd5904259080%_ + _%tl5904159083%_ + _%e5904659086%_ + _%hd5904559090%_ + _%tl5904459093%_) + (letrec ((_%loop5903759096%_ + (lambda (_%hd5903559100%_) + (if (gx#stx-pair? + _%hd5903559100%_) + (let ((_%e5903859104%_ + (gx#syntax-e + _%hd5903559100%_))) + (let ((_%lp-tl5904059111%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd5921059275%_))) - (let ((_%lp-tl5921559286%_ - (let () - (declare (not safe)) - (##cdr _%e5921359279%_))) - (_%lp-hd5921459283%_ - (let () - (declare (not safe)) - (##car _%e5921359279%_)))) - (let () - (declare (not safe)) - (_%loop5921259271%_ _%lp-tl5921559286%_)))) - (let () (_%__kont7670376704%_ _%hd5922059265%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop5921259271%_ - _%target5920959245%_)))))) - (if (gx#stx-pair/null? _%__stx7670076701%_) - (if (let ((__tmp80740 - (gx#stx-length - _%__stx7670076701%_))) - (declare (not safe)) - (##fx>= __tmp80740 '2)) - (let ((_%__splice7670576706%_ - (gx#syntax-split-splice - _%__stx7670076701%_ - '2))) - (let ((_%tl5921159248%_ - (let () - (declare (not safe)) - (##vector-ref - _%__splice7670576706%_ - '1))) - (_%target5920959245%_ - (let () - (declare (not safe)) - (##vector-ref - _%__splice7670576706%_ - '0)))) - (if (gx#stx-pair? - _%tl5921159248%_) - (let ((_%e5921859251%_ - (gx#syntax-e - _%tl5921159248%_))) - (let ((_%tl5921659258%_ - (let () - (declare - (not safe)) - (##cdr _%e5921859251%_))) - (_%hd5921759255%_ - (let () - (declare - (not safe)) - (##car _%e5921859251%_)))) - (if (gx#identifier? - _%hd5921759255%_) - (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80741_| - _%hd5921759255%_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5921659258%_) - (let ((_%e5922159261%_ - (gx#syntax-e _%tl5921659258%_))) - (let ((_%tl5921959268%_ - (let () - (declare (not safe)) - (##cdr _%e5922159261%_))) - (_%hd5922059265%_ - (let () - (declare (not safe)) - (##car _%e5922159261%_)))) - (if (gx#stx-null? _%tl5921959268%_) - (_%__match7673576736%_ - _%__splice7670576706%_ - _%target5920959245%_ - _%tl5921159248%_ - _%e5921859251%_ - _%hd5921759255%_ - _%tl5921659258%_ - _%e5922159261%_ - _%hd5922059265%_ - _%tl5921959268%_) - (_%__kont7670776708%_)))) - (_%__kont7670776708%_)) - (_%__kont7670776708%_)) - (_%__kont7670776708%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7670776708%_)))) - (_%__kont7670776708%_)) - (_%__kont7670776708%_)))))) - (if (let ((__tmp80742 - (let () - (declare (not safe)) - (null? _%kws58825%_)))) - (declare (not safe)) - (not __tmp80742)) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; positional arguments must precede keyword arguments")) - (if _%have-optional?58823%_ - (let () - (let* ((_%__stx7673876739%_ _%L59188%_) - (_%g5932059341%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx7673876739%_)))) - (let ((_%__kont7674176742%_ - (lambda (_%L59405%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx58809%_ - _%L59188%_)) - (let ((__tmp80743 - (cons _%L59189%_ - _%ids58824%_))) - (declare (not safe)) - (_%lp58818%_ - _%L59186%_ - '#t - __tmp80743 - _%kws58825%_)))) - (_%__kont7674576746%_ - (lambda () - (gx#raise-syntax-error - '#f - '"invalid signature; expected optional argument" - _%stx58809%_ - _%signature58810%_ - _%L59188%_)))) - (let ((_%__match7677376774%_ - (lambda (_%__splice7674376744%_ - _%target5932359359%_ - _%tl5932559362%_ - _%e5933259365%_ - _%hd5933159369%_ - _%tl5933059372%_ - _%e5933559375%_ - _%hd5933459379%_ - _%tl5933359382%_) - (letrec ((_%loop5932659385%_ - (lambda (_%hd5932459389%_) - (if (gx#stx-pair? + (let () (declare (not safe)) (##cdr _%e5903859104%_))) + (_%lp-hd5903959108%_ + (let () + (declare (not safe)) + (##car _%e5903859104%_)))) + (_%loop5903759096%_ _%lp-tl5904059111%_))) + (_%__kont7652876529%_ _%hd5904559090%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop5903759096%_ + _%target5903459070%_))))) + (if (gx#stx-pair/null? _%__stx7652576526%_) + (if (let ((__tmp80547 + (gx#stx-length + _%__stx7652576526%_))) + (declare (not safe)) + (##fx>= __tmp80547 '2)) + (let ((_%__splice7653076531%_ + (gx#syntax-split-splice + _%__stx7652576526%_ + '2))) + (let ((_%tl5903659073%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice7653076531%_ + '1))) + (_%target5903459070%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice7653076531%_ + '0)))) + (if (gx#stx-pair? + _%tl5903659073%_) + (let ((_%e5904359076%_ + (gx#syntax-e + _%tl5903659073%_))) + (let ((_%tl5904159083%_ + (let () + (declare + (not safe)) + (##cdr _%e5904359076%_))) + (_%hd5904259080%_ + (let () + (declare + (not safe)) + (##car _%e5904359076%_)))) + (if (gx#identifier? + _%hd5904259080%_) + (if (gx#free-identifier=? + |gerbil/core/contract~Interface[1]#_g80548_| + _%hd5904259080%_) + (if (gx#stx-pair? +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%tl5904159083%_) + (let ((_%e5904659086%_ + (gx#syntax-e _%tl5904159083%_))) + (let ((_%tl5904459093%_ + (let () + (declare (not safe)) + (##cdr _%e5904659086%_))) + (_%hd5904559090%_ + (let () + (declare (not safe)) + (##car _%e5904659086%_)))) + (if (gx#stx-null? _%tl5904459093%_) + (_%__match7656076561%_ + _%__splice7653076531%_ + _%target5903459070%_ + _%tl5903659073%_ + _%e5904359076%_ + _%hd5904259080%_ + _%tl5904159083%_ + _%e5904659086%_ + _%hd5904559090%_ + _%tl5904459093%_) + (_%__kont7653276533%_)))) + (_%__kont7653276533%_)) + (_%__kont7653276533%_)) + (_%__kont7653276533%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7653276533%_)))) + (_%__kont7653276533%_)) + (_%__kont7653276533%_))))) + (if (not (null? _%kws58650%_)) + (gx#raise-syntax-error + '#f + '"invalid signature; positional arguments must precede keyword arguments") + (if _%have-optional?58648%_ + (let* ((_%__stx7656376564%_ _%L59013%_) + (_%g5914559166%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx7656376564%_)))) + (let ((_%__kont7656676567%_ + (lambda (_%L59230%_) + (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| + _%stx58634%_ + _%L59013%_) + (_%lp58643%_ + _%L59011%_ + '#t + (cons _%L59014%_ _%ids58649%_) + _%kws58650%_))) + (_%__kont7657076571%_ + (lambda () + (gx#raise-syntax-error + '#f + '"invalid signature; expected optional argument" + _%stx58634%_ + _%signature58635%_ + _%L59013%_)))) + (let ((_%__match7659876599%_ + (lambda (_%__splice7656876569%_ + _%target5914859184%_ + _%tl5915059187%_ + _%e5915759190%_ + _%hd5915659194%_ + _%tl5915559197%_ + _%e5916059200%_ + _%hd5915959204%_ + _%tl5915859207%_) + (letrec ((_%loop5915159210%_ + (lambda (_%hd5914959214%_) + (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd5932459389%_) - (let ((_%e5932759393%_ - (gx#syntax-e _%hd5932459389%_))) - (let ((_%lp-tl5932959400%_ - (let () - (declare (not safe)) - (##cdr _%e5932759393%_))) - (_%lp-hd5932859397%_ - (let () - (declare (not safe)) - (##car _%e5932759393%_)))) - (let () - (declare (not safe)) - (_%loop5932659385%_ _%lp-tl5932959400%_)))) - (let () (_%__kont7674176742%_ _%hd5933459379%_)))))) + _%hd5914959214%_) + (let ((_%e5915259218%_ (gx#syntax-e _%hd5914959214%_))) + (let ((_%lp-tl5915459225%_ + (let () + (declare (not safe)) + (##cdr _%e5915259218%_))) + (_%lp-hd5915359222%_ + (let () + (declare (not safe)) + (##car _%e5915259218%_)))) + (_%loop5915159210%_ _%lp-tl5915459225%_))) + (_%__kont7656676567%_ _%hd5915959204%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop5932659385%_ - _%target5932359359%_)))))) - (if (gx#stx-pair/null? - _%__stx7673876739%_) - (if (let ((__tmp80744 - (gx#stx-length - _%__stx7673876739%_))) - (declare (not safe)) - (##fx>= __tmp80744 '2)) - (let ((_%__splice7674376744%_ - (gx#syntax-split-splice - _%__stx7673876739%_ - '2))) - (let ((_%tl5932559362%_ - (let () - (declare - (not safe)) - (##vector-ref - _%__splice7674376744%_ - '1))) - (_%target5932359359%_ - (let () - (declare - (not safe)) - (##vector-ref - _%__splice7674376744%_ - '0)))) - (if (gx#stx-pair? - _%tl5932559362%_) - (let ((_%e5933259365%_ + (_%loop5915159210%_ + _%target5914859184%_))))) + (if (gx#stx-pair/null? + _%__stx7656376564%_) + (if (let ((__tmp80549 + (gx#stx-length + _%__stx7656376564%_))) + (declare (not safe)) + (##fx>= __tmp80549 '2)) + (let ((_%__splice7656876569%_ + (gx#syntax-split-splice + _%__stx7656376564%_ + '2))) + (let ((_%tl5915059187%_ + (let () + (declare + (not safe)) + (##vector-ref + _%__splice7656876569%_ + '1))) + (_%target5914859184%_ + (let () + (declare + (not safe)) + (##vector-ref + _%__splice7656876569%_ + '0)))) + (if (gx#stx-pair? + _%tl5915059187%_) + (let ((_%e5915759190%_ + (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5932559362%_))) - (let ((_%tl5933059372%_ - (let () - (declare (not safe)) - (##cdr _%e5933259365%_))) - (_%hd5933159369%_ - (let () - (declare (not safe)) - (##car _%e5933259365%_)))) - (if (gx#identifier? _%hd5933159369%_) - (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80745_| - _%hd5933159369%_) - (if (gx#stx-pair? _%tl5933059372%_) - (let ((_%e5933559375%_ - (gx#syntax-e _%tl5933059372%_))) - (let ((_%tl5933359382%_ - (let () - (declare (not safe)) - (##cdr _%e5933559375%_))) - (_%hd5933459379%_ - (let () - (declare (not safe)) - (##car _%e5933559375%_)))) - (if (gx#stx-null? _%tl5933359382%_) - (_%__match7677376774%_ - _%__splice7674376744%_ - _%target5932359359%_ - _%tl5932559362%_ - _%e5933259365%_ - _%hd5933159369%_ - _%tl5933059372%_ - _%e5933559375%_ - _%hd5933459379%_ - _%tl5933359382%_) - (_%__kont7674576746%_)))) - (_%__kont7674576746%_)) - (_%__kont7674576746%_)) - (_%__kont7674576746%_)))) - (_%__kont7674576746%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7674576746%_)) - (_%__kont7674576746%_)))))) - (if (find (lambda (_%g5942759429%_) + _%tl5915059187%_))) + (let ((_%tl5915559197%_ + (let () + (declare (not safe)) + (##cdr _%e5915759190%_))) + (_%hd5915659194%_ + (let () + (declare (not safe)) + (##car _%e5915759190%_)))) + (if (gx#identifier? _%hd5915659194%_) + (if (gx#free-identifier=? + |gerbil/core/contract~Interface[1]#_g80550_| + _%hd5915659194%_) + (if (gx#stx-pair? _%tl5915559197%_) + (let ((_%e5916059200%_ + (gx#syntax-e _%tl5915559197%_))) + (let ((_%tl5915859207%_ + (let () + (declare (not safe)) + (##cdr _%e5916059200%_))) + (_%hd5915959204%_ + (let () + (declare (not safe)) + (##car _%e5916059200%_)))) + (if (gx#stx-null? _%tl5915859207%_) + (_%__match7659876599%_ + _%__splice7656876569%_ + _%target5914859184%_ + _%tl5915059187%_ + _%e5915759190%_ + _%hd5915659194%_ + _%tl5915559197%_ + _%e5916059200%_ + _%hd5915959204%_ + _%tl5915859207%_) + (_%__kont7657076571%_)))) + (_%__kont7657076571%_)) + (_%__kont7657076571%_)) + (_%__kont7657076571%_)))) + (_%__kont7657076571%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7657076571%_)) + (_%__kont7657076571%_))))) + (if (find (lambda (_%g5925259254%_) (gx#bound-identifier=? - _%g5942759429%_ - _%L59189%_)) - _%ids58824%_) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; duplicate identifier" - _%stx58809%_ - _%signature58810%_ - _%L59189%_)) + _%g5925259254%_ + _%L59014%_)) + _%ids58649%_) + (gx#raise-syntax-error + '#f + '"invalid signature; duplicate identifier" + _%stx58634%_ + _%signature58635%_ + _%L59014%_) (let () - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx58809%_ - _%L59188%_)) - (let ((__tmp80746 - (cons _%L59189%_ - _%ids58824%_))) - (declare (not safe)) - (_%lp58818%_ - _%L59186%_ - _%have-optional?58823%_ - __tmp80746 - _%kws58825%_))))))))) - (_%__kont7678576786%_ - (lambda (_%L59129%_ _%L59131%_ _%L59132%_) - (if (let () - (declare (not safe)) - (not _%keywords-allowed?58815%_)) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; keywords not allowed" - _%stx58809%_ - _%signature58810%_)) - (if (find (lambda (_%g5914759149%_) + (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| + _%stx58634%_ + _%L59013%_) + (_%lp58643%_ + _%L59011%_ + _%have-optional?58648%_ + (cons _%L59014%_ _%ids58649%_) + _%kws58650%_)))))))) + (_%__kont7661076611%_ + (lambda (_%L58954%_ _%L58956%_ _%L58957%_) + (if (not _%keywords-allowed?58640%_) + (gx#raise-syntax-error + '#f + '"invalid signature; keywords not allowed" + _%stx58634%_ + _%signature58635%_) + (if (find (lambda (_%g5897258974%_) (gx#bound-identifier=? - _%g5914759149%_ - _%L59131%_)) - _%ids58824%_) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; duplicate identifier" - _%stx58809%_ - _%signature58810%_ - _%L59131%_)) - (if (memq (gx#stx-e _%L59132%_) _%kws58825%_) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; duplicate keyword" - _%stx58809%_ - _%signature58810%_ - _%L59132%_)) - (let ((__tmp80748 - (cons _%L59131%_ _%ids58824%_)) - (__tmp80747 - (cons (gx#stx-e _%L59132%_) - _%kws58825%_))) - (declare (not safe)) - (_%lp58818%_ - _%L59129%_ - _%have-optional?58823%_ - __tmp80748 - __tmp80747))))))) - (_%__kont7678776788%_ - (lambda (_%L59068%_ _%L59070%_ _%L59071%_) - (if (let () - (declare (not safe)) - (not _%keywords-allowed?58815%_)) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; keywords not allowed" - _%stx58809%_ - _%signature58810%_)) - (if (find (lambda (_%g5909059092%_) + _%g5897258974%_ + _%L58956%_)) + _%ids58649%_) + (gx#raise-syntax-error + '#f + '"invalid signature; duplicate identifier" + _%stx58634%_ + _%signature58635%_ + _%L58956%_) + (if (memq (gx#stx-e _%L58957%_) _%kws58650%_) + (gx#raise-syntax-error + '#f + '"invalid signature; duplicate keyword" + _%stx58634%_ + _%signature58635%_ + _%L58957%_) + (_%lp58643%_ + _%L58954%_ + _%have-optional?58648%_ + (cons _%L58956%_ _%ids58649%_) + (cons (gx#stx-e _%L58957%_) + _%kws58650%_))))))) + (_%__kont7661276613%_ + (lambda (_%L58893%_ _%L58895%_ _%L58896%_) + (if (not _%keywords-allowed?58640%_) + (gx#raise-syntax-error + '#f + '"invalid signature; keywords not allowed" + _%stx58634%_ + _%signature58635%_) + (if (find (lambda (_%g5891558917%_) (gx#bound-identifier=? - _%g5909059092%_ - _%L59070%_)) - _%ids58824%_) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; duplicate identifier" - _%stx58809%_ - _%signature58810%_ - _%L59070%_)) - (if (memq (gx#stx-e _%L59071%_) _%kws58825%_) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; duplicate keyword" - _%stx58809%_ - _%signature58810%_ - _%L59071%_)) - (let ((__tmp80750 - (cons _%L59070%_ _%ids58824%_)) - (__tmp80749 - (cons (gx#stx-e _%L59071%_) - _%kws58825%_))) - (declare (not safe)) - (_%lp58818%_ - _%L59068%_ - _%have-optional?58823%_ - __tmp80750 - __tmp80749))))))) - (_%__kont7678976790%_ - (lambda (_%L58987%_ _%L58989%_ _%L58990%_ _%L58991%_) - (if (let () - (declare (not safe)) - (not _%keywords-allowed?58815%_)) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; keywords not allowed" - _%stx58809%_ - _%signature58810%_)) - (if (find (lambda (_%g5900959011%_) + _%g5891558917%_ + _%L58895%_)) + _%ids58649%_) + (gx#raise-syntax-error + '#f + '"invalid signature; duplicate identifier" + _%stx58634%_ + _%signature58635%_ + _%L58895%_) + (if (memq (gx#stx-e _%L58896%_) _%kws58650%_) + (gx#raise-syntax-error + '#f + '"invalid signature; duplicate keyword" + _%stx58634%_ + _%signature58635%_ + _%L58896%_) + (_%lp58643%_ + _%L58893%_ + _%have-optional?58648%_ + (cons _%L58895%_ _%ids58649%_) + (cons (gx#stx-e _%L58896%_) + _%kws58650%_))))))) + (_%__kont7661476615%_ + (lambda (_%L58812%_ _%L58814%_ _%L58815%_ _%L58816%_) + (if (not _%keywords-allowed?58640%_) + (gx#raise-syntax-error + '#f + '"invalid signature; keywords not allowed" + _%stx58634%_ + _%signature58635%_) + (if (find (lambda (_%g5883458836%_) (gx#bound-identifier=? - _%g5900959011%_ - _%L58990%_)) - _%ids58824%_) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; duplicate identifier" - _%stx58809%_ - _%signature58810%_ - _%L58990%_)) - (if (memq (gx#stx-e _%L58991%_) _%kws58825%_) - (let () - (gx#raise-syntax-error - '#f - '"invalid signature; duplicate keyword" - _%stx58809%_ - _%signature58810%_ - _%L58991%_)) + _%g5883458836%_ + _%L58815%_)) + _%ids58649%_) + (gx#raise-syntax-error + '#f + '"invalid signature; duplicate identifier" + _%stx58634%_ + _%signature58635%_ + _%L58815%_) + (if (memq (gx#stx-e _%L58816%_) _%kws58650%_) + (gx#raise-syntax-error + '#f + '"invalid signature; duplicate keyword" + _%stx58634%_ + _%signature58635%_ + _%L58816%_) (let () - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx58809%_ - _%L58989%_)) - (let ((__tmp80752 - (cons _%L58990%_ _%ids58824%_)) - (__tmp80751 - (cons (gx#stx-e _%L58991%_) - _%kws58825%_))) - (declare (not safe)) - (_%lp58818%_ - _%L58987%_ - _%have-optional?58823%_ - __tmp80752 - __tmp80751)))))))) - (_%__kont7679176792%_ (lambda (_%L58934%_) '#t)) - (_%__kont7679376794%_ (lambda () '#t)) - (_%__kont7679576796%_ + (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| + _%stx58634%_ + _%L58814%_) + (_%lp58643%_ + _%L58812%_ + _%have-optional?58648%_ + (cons _%L58815%_ _%ids58649%_) + (cons (gx#stx-e _%L58816%_) + _%kws58650%_)))))))) + (_%__kont7661676617%_ (lambda (_%L58759%_) '#t)) + (_%__kont7661876619%_ (lambda () '#t)) + (_%__kont7662076621%_ (lambda () (gx#raise-syntax-error '#f '"invalid signature" - _%stx58809%_ - _%signature58810%_ - _%rest58821%_)))) - (let* ((_%g5883358927%_ + _%stx58634%_ + _%signature58635%_ + _%rest58646%_)))) + (let* ((_%g5865858752%_ (lambda () - (if (gx#stx-null? _%__stx7677676777%_) - (_%__kont7679376794%_) - (_%__kont7679576796%_)))) - (_%g5883258950%_ + (if (gx#stx-null? _%__stx7660176602%_) + (_%__kont7661876619%_) + (_%__kont7662076621%_)))) + (_%g5865758775%_ (lambda () - (let ((_%L58934%_ _%__stx7677676777%_)) - (if (gx#identifier? _%L58934%_) - (_%__kont7679176792%_ _%L58934%_) + (let ((_%L58759%_ _%__stx7660176602%_)) + (if (gx#identifier? _%L58759%_) + (_%__kont7661676617%_ _%L58759%_) (let () (declare (not safe)) - (_%g5883358927%_)))))) - (_%__match7689176892%_ - (lambda (_%e5889258957%_ - _%hd5889158961%_ - _%tl5889058964%_ - _%e5889558967%_ - _%hd5889458971%_ - _%tl5889358974%_ - _%e5889858977%_ - _%hd5889758981%_ - _%tl5889658984%_) - (let ((_%L58987%_ _%tl5889358974%_) - (_%L58989%_ _%tl5889658984%_) - (_%L58990%_ _%hd5889758981%_) - (_%L58991%_ _%hd5889158961%_)) - (if (and (gx#stx-keyword? _%L58991%_) - (gx#identifier? _%L58990%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L58989%_))) - (_%__kont7678976790%_ - _%L58987%_ - _%L58989%_ - _%L58990%_ - _%L58991%_) + (_%g5865858752%_)))))) + (_%__match7671676717%_ + (lambda (_%e5871758782%_ + _%hd5871658786%_ + _%tl5871558789%_ + _%e5872058792%_ + _%hd5871958796%_ + _%tl5871858799%_ + _%e5872358802%_ + _%hd5872258806%_ + _%tl5872158809%_) + (let ((_%L58812%_ _%tl5871858799%_) + (_%L58814%_ _%tl5872158809%_) + (_%L58815%_ _%hd5872258806%_) + (_%L58816%_ _%hd5871658786%_)) + (if (and (gx#stx-keyword? _%L58816%_) + (gx#identifier? _%L58815%_) + (|gerbil/core/contract~Interface[1]#signature-contract?| + _%L58814%_)) + (_%__kont7661476615%_ + _%L58812%_ + _%L58814%_ + _%L58815%_ + _%L58816%_) (let () (declare (not safe)) - (_%g5883258950%_)))))) - (_%__match7687376874%_ - (lambda (_%e5887659028%_ - _%hd5887559032%_ - _%tl5887459035%_ - _%e5887959038%_ - _%hd5887859042%_ - _%tl5887759045%_ - _%e5888259048%_ - _%hd5888159052%_ - _%tl5888059055%_ - _%e5888559058%_ - _%hd5888459062%_ - _%tl5888359065%_) - (let ((_%L59068%_ _%tl5887759045%_) - (_%L59070%_ _%hd5888159052%_) - (_%L59071%_ _%hd5887559032%_)) - (if (and (gx#stx-keyword? _%L59071%_) - (gx#identifier? _%L59070%_)) - (_%__kont7678776788%_ - _%L59068%_ - _%L59070%_ - _%L59071%_) - (_%__match7689176892%_ - _%e5887659028%_ - _%hd5887559032%_ - _%tl5887459035%_ - _%e5887959038%_ - _%hd5887859042%_ - _%tl5887759045%_ - _%e5888259048%_ - _%hd5888159052%_ - _%tl5888059055%_))))) - (_%__match7684776848%_ - (lambda (_%e5886759109%_ - _%hd5886659113%_ - _%tl5886559116%_ - _%e5887059119%_ - _%hd5886959123%_ - _%tl5886859126%_) - (let ((_%L59129%_ _%tl5886859126%_) - (_%L59131%_ _%hd5886959123%_) - (_%L59132%_ _%hd5886659113%_)) - (if (and (gx#stx-keyword? _%L59132%_) - (gx#identifier? _%L59131%_)) - (_%__kont7678576786%_ - _%L59129%_ - _%L59131%_ - _%L59132%_) - (if (gx#stx-pair? _%hd5886959123%_) - (let ((_%e5888259048%_ - (gx#syntax-e _%hd5886959123%_))) - (let ((_%tl5888059055%_ + (_%g5865758775%_)))))) + (_%__match7669876699%_ + (lambda (_%e5870158853%_ + _%hd5870058857%_ + _%tl5869958860%_ + _%e5870458863%_ + _%hd5870358867%_ + _%tl5870258870%_ + _%e5870758873%_ + _%hd5870658877%_ + _%tl5870558880%_ + _%e5871058883%_ + _%hd5870958887%_ + _%tl5870858890%_) + (let ((_%L58893%_ _%tl5870258870%_) + (_%L58895%_ _%hd5870658877%_) + (_%L58896%_ _%hd5870058857%_)) + (if (and (gx#stx-keyword? _%L58896%_) + (gx#identifier? _%L58895%_)) + (_%__kont7661276613%_ + _%L58893%_ + _%L58895%_ + _%L58896%_) + (_%__match7671676717%_ + _%e5870158853%_ + _%hd5870058857%_ + _%tl5869958860%_ + _%e5870458863%_ + _%hd5870358867%_ + _%tl5870258870%_ + _%e5870758873%_ + _%hd5870658877%_ + _%tl5870558880%_))))) + (_%__match7667276673%_ + (lambda (_%e5869258934%_ + _%hd5869158938%_ + _%tl5869058941%_ + _%e5869558944%_ + _%hd5869458948%_ + _%tl5869358951%_) + (let ((_%L58954%_ _%tl5869358951%_) + (_%L58956%_ _%hd5869458948%_) + (_%L58957%_ _%hd5869158938%_)) + (if (and (gx#stx-keyword? _%L58957%_) + (gx#identifier? _%L58956%_)) + (_%__kont7661076611%_ + _%L58954%_ + _%L58956%_ + _%L58957%_) + (if (gx#stx-pair? _%hd5869458948%_) + (let ((_%e5870758873%_ + (gx#syntax-e _%hd5869458948%_))) + (let ((_%tl5870558880%_ (let () (declare (not safe)) - (##cdr _%e5888259048%_))) - (_%hd5888159052%_ + (##cdr _%e5870758873%_))) + (_%hd5870658877%_ (let () (declare (not safe)) - (##car _%e5888259048%_)))) - (if (gx#stx-pair? _%tl5888059055%_) - (let ((_%e5888559058%_ + (##car _%e5870758873%_)))) + (if (gx#stx-pair? _%tl5870558880%_) + (let ((_%e5871058883%_ (gx#syntax-e - _%tl5888059055%_))) - (let ((_%tl5888359065%_ + _%tl5870558880%_))) + (let ((_%tl5870858890%_ (let () (declare (not safe)) - (##cdr _%e5888559058%_))) - (_%hd5888459062%_ + (##cdr _%e5871058883%_))) + (_%hd5870958887%_ (let () (declare (not safe)) - (##car _%e5888559058%_)))) + (##car _%e5871058883%_)))) (if (gx#stx-null? - _%tl5888359065%_) - (_%__match7687376874%_ - _%e5886759109%_ - _%hd5886659113%_ - _%tl5886559116%_ - _%e5887059119%_ - _%hd5886959123%_ - _%tl5886859126%_ - _%e5888259048%_ - _%hd5888159052%_ - _%tl5888059055%_ - _%e5888559058%_ - _%hd5888459062%_ - _%tl5888359065%_) - (_%__match7689176892%_ - _%e5886759109%_ - _%hd5886659113%_ - _%tl5886559116%_ - _%e5887059119%_ - _%hd5886959123%_ - _%tl5886859126%_ - _%e5888259048%_ - _%hd5888159052%_ - _%tl5888059055%_)))) - (_%__match7689176892%_ - _%e5886759109%_ - _%hd5886659113%_ - _%tl5886559116%_ - _%e5887059119%_ - _%hd5886959123%_ - _%tl5886859126%_ - _%e5888259048%_ - _%hd5888159052%_ - _%tl5888059055%_)))) + _%tl5870858890%_) + (_%__match7669876699%_ + _%e5869258934%_ + _%hd5869158938%_ + _%tl5869058941%_ + _%e5869558944%_ + _%hd5869458948%_ + _%tl5869358951%_ + _%e5870758873%_ + _%hd5870658877%_ + _%tl5870558880%_ + _%e5871058883%_ + _%hd5870958887%_ + _%tl5870858890%_) + (_%__match7671676717%_ + _%e5869258934%_ + _%hd5869158938%_ + _%tl5869058941%_ + _%e5869558944%_ + _%hd5869458948%_ + _%tl5869358951%_ + _%e5870758873%_ + _%hd5870658877%_ + _%tl5870558880%_)))) + (_%__match7671676717%_ + _%e5869258934%_ + _%hd5869158938%_ + _%tl5869058941%_ + _%e5869558944%_ + _%hd5869458948%_ + _%tl5869358951%_ + _%e5870758873%_ + _%hd5870658877%_ + _%tl5870558880%_)))) (let () (declare (not safe)) - (_%g5883258950%_))))))) - (_%__match7683576836%_ - (lambda (_%e5885859166%_ - _%hd5885759170%_ - _%tl5885659173%_ - _%e5886159176%_ - _%hd5886059180%_ - _%tl5885959183%_) - (let ((_%L59186%_ _%tl5885659173%_) - (_%L59188%_ _%tl5885959183%_) - (_%L59189%_ _%hd5886059180%_)) - (if (and (gx#identifier? _%L59189%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L59188%_))) - (_%__kont7678376784%_ - _%L59186%_ - _%L59188%_ - _%L59189%_) - (if (gx#stx-pair? _%tl5885659173%_) - (let ((_%e5887059119%_ - (gx#syntax-e _%tl5885659173%_))) - (let ((_%tl5886859126%_ + (_%g5865758775%_))))))) + (_%__match7666076661%_ + (lambda (_%e5868358991%_ + _%hd5868258995%_ + _%tl5868158998%_ + _%e5868659001%_ + _%hd5868559005%_ + _%tl5868459008%_) + (let ((_%L59011%_ _%tl5868158998%_) + (_%L59013%_ _%tl5868459008%_) + (_%L59014%_ _%hd5868559005%_)) + (if (and (gx#identifier? _%L59014%_) + (|gerbil/core/contract~Interface[1]#signature-contract?| + _%L59013%_)) + (_%__kont7660876609%_ + _%L59011%_ + _%L59013%_ + _%L59014%_) + (if (gx#stx-pair? _%tl5868158998%_) + (let ((_%e5869558944%_ + (gx#syntax-e _%tl5868158998%_))) + (let ((_%tl5869358951%_ (let () (declare (not safe)) - (##cdr _%e5887059119%_))) - (_%hd5886959123%_ + (##cdr _%e5869558944%_))) + (_%hd5869458948%_ (let () (declare (not safe)) - (##car _%e5887059119%_)))) - (_%__match7684776848%_ - _%e5885859166%_ - _%hd5885759170%_ - _%tl5885659173%_ - _%e5887059119%_ - _%hd5886959123%_ - _%tl5886859126%_))) + (##car _%e5869558944%_)))) + (_%__match7667276673%_ + _%e5868358991%_ + _%hd5868258995%_ + _%tl5868158998%_ + _%e5869558944%_ + _%hd5869458948%_ + _%tl5869358951%_))) (let () (declare (not safe)) - (_%g5883258950%_))))))) - (_%__match7682376824%_ - (lambda (_%e5884659444%_ - _%hd5884559448%_ - _%tl5884459451%_ - _%e5884959454%_ - _%hd5884859458%_ - _%tl5884759461%_ - _%e5885259464%_ - _%hd5885159468%_ - _%tl5885059471%_) - (let ((_%L59474%_ _%tl5884459451%_) - (_%L59476%_ _%hd5884859458%_)) - (if (gx#identifier? _%L59476%_) - (_%__kont7678176782%_ _%L59474%_ _%L59476%_) - (_%__match7683576836%_ - _%e5884659444%_ - _%hd5884559448%_ - _%tl5884459451%_ - _%e5884959454%_ - _%hd5884859458%_ - _%tl5884759461%_))))) - (_%__match7680376804%_ - (lambda (_%e5884159511%_ - _%hd5884059515%_ - _%tl5883959518%_) - (let ((_%L59521%_ _%tl5883959518%_) - (_%L59523%_ _%hd5884059515%_)) - (if (gx#identifier? _%L59523%_) - (_%__kont7677976780%_ _%L59521%_ _%L59523%_) - (if (gx#stx-pair? _%hd5884059515%_) - (let ((_%e5884959454%_ - (gx#syntax-e _%hd5884059515%_))) - (let ((_%tl5884759461%_ + (_%g5865758775%_))))))) + (_%__match7664876649%_ + (lambda (_%e5867159269%_ + _%hd5867059273%_ + _%tl5866959276%_ + _%e5867459279%_ + _%hd5867359283%_ + _%tl5867259286%_ + _%e5867759289%_ + _%hd5867659293%_ + _%tl5867559296%_) + (let ((_%L59299%_ _%tl5866959276%_) + (_%L59301%_ _%hd5867359283%_)) + (if (gx#identifier? _%L59301%_) + (_%__kont7660676607%_ _%L59299%_ _%L59301%_) + (_%__match7666076661%_ + _%e5867159269%_ + _%hd5867059273%_ + _%tl5866959276%_ + _%e5867459279%_ + _%hd5867359283%_ + _%tl5867259286%_))))) + (_%__match7662876629%_ + (lambda (_%e5866659336%_ + _%hd5866559340%_ + _%tl5866459343%_) + (let ((_%L59346%_ _%tl5866459343%_) + (_%L59348%_ _%hd5866559340%_)) + (if (gx#identifier? _%L59348%_) + (_%__kont7660476605%_ _%L59346%_ _%L59348%_) + (if (gx#stx-pair? _%hd5866559340%_) + (let ((_%e5867459279%_ + (gx#syntax-e _%hd5866559340%_))) + (let ((_%tl5867259286%_ (let () (declare (not safe)) - (##cdr _%e5884959454%_))) - (_%hd5884859458%_ + (##cdr _%e5867459279%_))) + (_%hd5867359283%_ (let () (declare (not safe)) - (##car _%e5884959454%_)))) - (if (gx#stx-pair? _%tl5884759461%_) - (let ((_%e5885259464%_ + (##car _%e5867459279%_)))) + (if (gx#stx-pair? _%tl5867259286%_) + (let ((_%e5867759289%_ (gx#syntax-e - _%tl5884759461%_))) - (let ((_%tl5885059471%_ + _%tl5867259286%_))) + (let ((_%tl5867559296%_ (let () (declare (not safe)) - (##cdr _%e5885259464%_))) - (_%hd5885159468%_ + (##cdr _%e5867759289%_))) + (_%hd5867659293%_ (let () (declare (not safe)) - (##car _%e5885259464%_)))) + (##car _%e5867759289%_)))) (if (gx#stx-null? - _%tl5885059471%_) - (_%__match7682376824%_ - _%e5884159511%_ - _%hd5884059515%_ - _%tl5883959518%_ - _%e5884959454%_ - _%hd5884859458%_ - _%tl5884759461%_ - _%e5885259464%_ - _%hd5885159468%_ - _%tl5885059471%_) - (_%__match7683576836%_ - _%e5884159511%_ - _%hd5884059515%_ - _%tl5883959518%_ - _%e5884959454%_ - _%hd5884859458%_ - _%tl5884759461%_)))) - (_%__match7683576836%_ - _%e5884159511%_ - _%hd5884059515%_ - _%tl5883959518%_ - _%e5884959454%_ - _%hd5884859458%_ - _%tl5884759461%_)))) - (if (gx#stx-pair? _%tl5883959518%_) - (let ((_%e5887059119%_ - (gx#syntax-e _%tl5883959518%_))) - (let ((_%tl5886859126%_ + _%tl5867559296%_) + (_%__match7664876649%_ + _%e5866659336%_ + _%hd5866559340%_ + _%tl5866459343%_ + _%e5867459279%_ + _%hd5867359283%_ + _%tl5867259286%_ + _%e5867759289%_ + _%hd5867659293%_ + _%tl5867559296%_) + (_%__match7666076661%_ + _%e5866659336%_ + _%hd5866559340%_ + _%tl5866459343%_ + _%e5867459279%_ + _%hd5867359283%_ + _%tl5867259286%_)))) + (_%__match7666076661%_ + _%e5866659336%_ + _%hd5866559340%_ + _%tl5866459343%_ + _%e5867459279%_ + _%hd5867359283%_ + _%tl5867259286%_)))) + (if (gx#stx-pair? _%tl5866459343%_) + (let ((_%e5869558944%_ + (gx#syntax-e _%tl5866459343%_))) + (let ((_%tl5869358951%_ (let () (declare (not safe)) - (##cdr _%e5887059119%_))) - (_%hd5886959123%_ + (##cdr _%e5869558944%_))) + (_%hd5869458948%_ (let () (declare (not safe)) - (##car _%e5887059119%_)))) - (_%__match7684776848%_ - _%e5884159511%_ - _%hd5884059515%_ - _%tl5883959518%_ - _%e5887059119%_ - _%hd5886959123%_ - _%tl5886859126%_))) + (##car _%e5869558944%_)))) + (_%__match7667276673%_ + _%e5866659336%_ + _%hd5866559340%_ + _%tl5866459343%_ + _%e5869558944%_ + _%hd5869458948%_ + _%tl5869358951%_))) (let () (declare (not safe)) - (_%g5883258950%_))))))))) - (if (gx#stx-pair? _%__stx7677676777%_) - (let ((_%e5884159511%_ - (gx#syntax-e _%__stx7677676777%_))) - (let ((_%tl5883959518%_ + (_%g5865758775%_))))))))) + (if (gx#stx-pair? _%__stx7660176602%_) + (let ((_%e5866659336%_ + (gx#syntax-e _%__stx7660176602%_))) + (let ((_%tl5866459343%_ (let () (declare (not safe)) - (##cdr _%e5884159511%_))) - (_%hd5884059515%_ + (##cdr _%e5866659336%_))) + (_%hd5866559340%_ (let () (declare (not safe)) - (##car _%e5884159511%_)))) - (_%__match7680376804%_ - _%e5884159511%_ - _%hd5884059515%_ - _%tl5883959518%_))) - (let () (declare (not safe)) (_%g5883258950%_)))))))))) + (##car _%e5866659336%_)))) + (_%__match7662876629%_ + _%e5866659336%_ + _%hd5866559340%_ + _%tl5866459343%_))) + (let () (declare (not safe)) (_%g5865758775%_)))))))))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!__@| - (lambda (_%@@keywords59555%_ . _%args59557%_) + (lambda (_%@@keywords59380%_ . _%args59382%_) (apply |gerbil/core/contract~Interface[1]#check-signature-spec!__%| - _%@@keywords59555%_ + _%@@keywords59380%_ (symbolic-table-ref - _%@@keywords59555%_ + _%@@keywords59380%_ 'optionals: absent-value) - (symbolic-table-ref _%@@keywords59555%_ 'keywords: absent-value) - _%args59557%_))) + (symbolic-table-ref _%@@keywords59380%_ 'keywords: absent-value) + _%args59382%_))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!| - (lambda _%args5880159564%_ + (lambda _%args5862659389%_ (apply keyword-dispatch '#(optionals: keywords:) |gerbil/core/contract~Interface[1]#check-signature-spec!__@| - _%args5880159564%_))) + _%args5862659389%_))) (define |gerbil/core/contract~Interface[1]#signature-contract?| - (lambda (_%contract58258%_) - (let* ((_%__stx7689676897%_ _%contract58258%_) - (_%g5826758355%_ + (lambda (_%contract58083%_) + (let* ((_%__stx7672176722%_ _%contract58083%_) + (_%g5809258180%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7689676897%_)))) - (let ((_%__kont7689976900%_ - (lambda (_%L58767%_ _%L58769%_) (gx#identifier? _%L58767%_))) - (_%__kont7690176902%_ - (lambda (_%L58707%_ _%L58709%_ _%L58710%_) - (gx#identifier? _%L58709%_))) - (_%__kont7690376904%_ (lambda (_%L58647%_) '#t)) - (_%__kont7690576906%_ (lambda (_%L58601%_ _%L58603%_) '#t)) - (_%__kont7690776908%_ - (lambda (_%L58521%_ _%L58523%_ _%L58524%_) - (gx#identifier? _%L58521%_))) - (_%__kont7690976910%_ - (lambda (_%L58433%_ _%L58435%_ _%L58436%_ _%L58437%_) - (gx#identifier? _%L58435%_))) - (_%__kont7691176912%_ (lambda () '#f))) - (let* ((_%__match7708577086%_ - (lambda (_%e5833458373%_ - _%hd5833358377%_ - _%tl5833258380%_ - _%e5833758383%_ - _%hd5833658387%_ - _%tl5833558390%_ - _%e5834058393%_ - _%hd5833958397%_ - _%tl5833858400%_ - _%e5834358403%_ - _%hd5834258407%_ - _%tl5834158410%_ - _%e5834658413%_ - _%hd5834558417%_ - _%tl5834458420%_ - _%e5834958423%_ - _%hd5834858427%_ - _%tl5834758430%_) - (let ((_%L58433%_ _%hd5834858427%_) - (_%L58435%_ _%hd5834258407%_) - (_%L58436%_ _%hd5833958397%_) - (_%L58437%_ _%hd5833658387%_)) - (if (and (gx#identifier? _%L58436%_) + _%__stx7672176722%_)))) + (let ((_%__kont7672476725%_ + (lambda (_%L58592%_ _%L58594%_) (gx#identifier? _%L58592%_))) + (_%__kont7672676727%_ + (lambda (_%L58532%_ _%L58534%_ _%L58535%_) + (gx#identifier? _%L58534%_))) + (_%__kont7672876729%_ (lambda (_%L58472%_) '#t)) + (_%__kont7673076731%_ (lambda (_%L58426%_ _%L58428%_) '#t)) + (_%__kont7673276733%_ + (lambda (_%L58346%_ _%L58348%_ _%L58349%_) + (gx#identifier? _%L58346%_))) + (_%__kont7673476735%_ + (lambda (_%L58258%_ _%L58260%_ _%L58261%_ _%L58262%_) + (gx#identifier? _%L58260%_))) + (_%__kont7673676737%_ (lambda () '#f))) + (let* ((_%__match7691076911%_ + (lambda (_%e5815958198%_ + _%hd5815858202%_ + _%tl5815758205%_ + _%e5816258208%_ + _%hd5816158212%_ + _%tl5816058215%_ + _%e5816558218%_ + _%hd5816458222%_ + _%tl5816358225%_ + _%e5816858228%_ + _%hd5816758232%_ + _%tl5816658235%_ + _%e5817158238%_ + _%hd5817058242%_ + _%tl5816958245%_ + _%e5817458248%_ + _%hd5817358252%_ + _%tl5817258255%_) + (let ((_%L58258%_ _%hd5817358252%_) + (_%L58260%_ _%hd5816758232%_) + (_%L58261%_ _%hd5816458222%_) + (_%L58262%_ _%hd5816158212%_)) + (if (and (gx#identifier? _%L58261%_) (or (gx#free-identifier=? - _%L58436%_ + _%L58261%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58436%_ + _%L58261%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58436%_ + _%L58261%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58436%_ + _%L58261%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7690976910%_ - _%L58433%_ - _%L58435%_ - _%L58436%_ - _%L58437%_) - (_%__kont7691176912%_))))) - (_%__match7703977040%_ - (lambda (_%e5831858481%_ - _%hd5831758485%_ - _%tl5831658488%_ - _%e5832158491%_ - _%hd5832058495%_ - _%tl5831958498%_ - _%e5832458501%_ - _%hd5832358505%_ - _%tl5832258508%_ - _%e5832758511%_ - _%hd5832658515%_ - _%tl5832558518%_) - (let ((_%L58521%_ _%hd5832658515%_) - (_%L58523%_ _%hd5832358505%_) - (_%L58524%_ _%hd5832058495%_)) - (if (and (gx#identifier? _%L58523%_) + (_%__kont7673476735%_ + _%L58258%_ + _%L58260%_ + _%L58261%_ + _%L58262%_) + (_%__kont7673676737%_))))) + (_%__match7686476865%_ + (lambda (_%e5814358306%_ + _%hd5814258310%_ + _%tl5814158313%_ + _%e5814658316%_ + _%hd5814558320%_ + _%tl5814458323%_ + _%e5814958326%_ + _%hd5814858330%_ + _%tl5814758333%_ + _%e5815258336%_ + _%hd5815158340%_ + _%tl5815058343%_) + (let ((_%L58346%_ _%hd5815158340%_) + (_%L58348%_ _%hd5814858330%_) + (_%L58349%_ _%hd5814558320%_)) + (if (and (gx#identifier? _%L58348%_) (or (gx#free-identifier=? - _%L58523%_ + _%L58348%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58523%_ + _%L58348%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58523%_ + _%L58348%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58523%_ + _%L58348%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7690776908%_ - _%L58521%_ - _%L58523%_ - _%L58524%_) - (_%__kont7691176912%_))))) - (_%__match7695776958%_ - (lambda (_%e5828258667%_ - _%hd5828158671%_ - _%tl5828058674%_ - _%e5828558677%_ - _%hd5828458681%_ - _%tl5828358684%_ - _%e5828858687%_ - _%hd5828758691%_ - _%tl5828658694%_ - _%e5829158697%_ - _%hd5829058701%_ - _%tl5828958704%_) - (let ((_%L58707%_ _%hd5829058701%_) - (_%L58709%_ _%hd5828458681%_) - (_%L58710%_ _%hd5828158671%_)) - (if (and (gx#identifier? _%L58710%_) + (_%__kont7673276733%_ + _%L58346%_ + _%L58348%_ + _%L58349%_) + (_%__kont7673676737%_))))) + (_%__match7678276783%_ + (lambda (_%e5810758492%_ + _%hd5810658496%_ + _%tl5810558499%_ + _%e5811058502%_ + _%hd5810958506%_ + _%tl5810858509%_ + _%e5811358512%_ + _%hd5811258516%_ + _%tl5811158519%_ + _%e5811658522%_ + _%hd5811558526%_ + _%tl5811458529%_) + (let ((_%L58532%_ _%hd5811558526%_) + (_%L58534%_ _%hd5810958506%_) + (_%L58535%_ _%hd5810658496%_)) + (if (and (gx#identifier? _%L58535%_) (or (gx#free-identifier=? - _%L58710%_ + _%L58535%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58710%_ + _%L58535%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58710%_ + _%L58535%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58710%_ + _%L58535%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7690176902%_ - _%L58707%_ - _%L58709%_ - _%L58710%_) - (if (gx#identifier? _%hd5828158671%_) + (_%__kont7672676727%_ + _%L58532%_ + _%L58534%_ + _%L58535%_) + (if (gx#identifier? _%hd5810658496%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80753_| - _%hd5828158671%_) - (_%__kont7690576906%_ - _%hd5829058701%_ - _%hd5828458681%_) - (_%__kont7691176912%_)) - (_%__kont7691176912%_)))))) - (_%__match7692776928%_ - (lambda (_%e5827358747%_ - _%hd5827258751%_ - _%tl5827158754%_ - _%e5827658757%_ - _%hd5827558761%_ - _%tl5827458764%_) - (let ((_%L58767%_ _%hd5827558761%_) - (_%L58769%_ _%hd5827258751%_)) - (if (and (gx#identifier? _%L58769%_) + |gerbil/core/contract~Interface[1]#_g80551_| + _%hd5810658496%_) + (_%__kont7673076731%_ + _%hd5811558526%_ + _%hd5810958506%_) + (_%__kont7673676737%_)) + (_%__kont7673676737%_)))))) + (_%__match7675276753%_ + (lambda (_%e5809858572%_ + _%hd5809758576%_ + _%tl5809658579%_ + _%e5810158582%_ + _%hd5810058586%_ + _%tl5809958589%_) + (let ((_%L58592%_ _%hd5810058586%_) + (_%L58594%_ _%hd5809758576%_)) + (if (and (gx#identifier? _%L58594%_) (or (gx#free-identifier=? - _%L58769%_ + _%L58594%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58769%_ + _%L58594%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58769%_ + _%L58594%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58769%_ + _%L58594%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7689976900%_ _%L58767%_ _%L58769%_) - (if (gx#identifier? _%hd5827258751%_) + (_%__kont7672476725%_ _%L58592%_ _%L58594%_) + (if (gx#identifier? _%hd5809758576%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80753_| - _%hd5827258751%_) - (_%__kont7690376904%_ _%hd5827558761%_) - (_%__kont7691176912%_)) - (_%__kont7691176912%_))))))) - (if (gx#stx-pair? _%__stx7689676897%_) - (let ((_%e5827358747%_ (gx#syntax-e _%__stx7689676897%_))) - (let ((_%tl5827158754%_ + |gerbil/core/contract~Interface[1]#_g80551_| + _%hd5809758576%_) + (_%__kont7672876729%_ _%hd5810058586%_) + (_%__kont7673676737%_)) + (_%__kont7673676737%_))))))) + (if (gx#stx-pair? _%__stx7672176722%_) + (let ((_%e5809858572%_ (gx#syntax-e _%__stx7672176722%_))) + (let ((_%tl5809658579%_ (let () (declare (not safe)) - (##cdr _%e5827358747%_))) - (_%hd5827258751%_ + (##cdr _%e5809858572%_))) + (_%hd5809758576%_ (let () (declare (not safe)) - (##car _%e5827358747%_)))) - (if (gx#stx-pair? _%tl5827158754%_) - (let ((_%e5827658757%_ - (gx#syntax-e _%tl5827158754%_))) - (let ((_%tl5827458764%_ + (##car _%e5809858572%_)))) + (if (gx#stx-pair? _%tl5809658579%_) + (let ((_%e5810158582%_ + (gx#syntax-e _%tl5809658579%_))) + (let ((_%tl5809958589%_ (let () (declare (not safe)) - (##cdr _%e5827658757%_))) - (_%hd5827558761%_ + (##cdr _%e5810158582%_))) + (_%hd5810058586%_ (let () (declare (not safe)) - (##car _%e5827658757%_)))) - (if (gx#stx-null? _%tl5827458764%_) - (_%__match7692776928%_ - _%e5827358747%_ - _%hd5827258751%_ - _%tl5827158754%_ - _%e5827658757%_ - _%hd5827558761%_ - _%tl5827458764%_) - (if (gx#stx-pair? _%tl5827458764%_) - (let ((_%e5828858687%_ - (gx#syntax-e _%tl5827458764%_))) - (let ((_%tl5828658694%_ + (##car _%e5810158582%_)))) + (if (gx#stx-null? _%tl5809958589%_) + (_%__match7675276753%_ + _%e5809858572%_ + _%hd5809758576%_ + _%tl5809658579%_ + _%e5810158582%_ + _%hd5810058586%_ + _%tl5809958589%_) + (if (gx#stx-pair? _%tl5809958589%_) + (let ((_%e5811358512%_ + (gx#syntax-e _%tl5809958589%_))) + (let ((_%tl5811158519%_ (let () (declare (not safe)) - (##cdr _%e5828858687%_))) - (_%hd5828758691%_ + (##cdr _%e5811358512%_))) + (_%hd5811258516%_ (let () (declare (not safe)) - (##car _%e5828858687%_)))) - (if (gx#identifier? _%hd5828758691%_) + (##car _%e5811358512%_)))) + (if (gx#identifier? _%hd5811258516%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80754_| - _%hd5828758691%_) + |gerbil/core/contract~Interface[1]#_g80552_| + _%hd5811258516%_) (if (gx#stx-pair? - _%tl5828658694%_) - (let ((_%e5829158697%_ + _%tl5811158519%_) + (let ((_%e5811658522%_ (gx#syntax-e - _%tl5828658694%_))) - (let ((_%tl5828958704%_ + _%tl5811158519%_))) + (let ((_%tl5811458529%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5829158697%_))) - (_%hd5829058701%_ - (let () (declare (not safe)) (##car _%e5829158697%_)))) - (if (gx#stx-null? _%tl5828958704%_) - (_%__match7695776958%_ - _%e5827358747%_ - _%hd5827258751%_ - _%tl5827158754%_ - _%e5827658757%_ - _%hd5827558761%_ - _%tl5827458764%_ - _%e5828858687%_ - _%hd5828758691%_ - _%tl5828658694%_ - _%e5829158697%_ - _%hd5829058701%_ - _%tl5828958704%_) - (if (gx#identifier? _%hd5827258751%_) + (##cdr _%e5811658522%_))) + (_%hd5811558526%_ + (let () (declare (not safe)) (##car _%e5811658522%_)))) + (if (gx#stx-null? _%tl5811458529%_) + (_%__match7678276783%_ + _%e5809858572%_ + _%hd5809758576%_ + _%tl5809658579%_ + _%e5810158582%_ + _%hd5810058586%_ + _%tl5809958589%_ + _%e5811358512%_ + _%hd5811258516%_ + _%tl5811158519%_ + _%e5811658522%_ + _%hd5811558526%_ + _%tl5811458529%_) + (if (gx#identifier? _%hd5809758576%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80753_| - _%hd5827258751%_) - (if (gx#stx-pair? _%tl5828958704%_) - (let ((_%e5834658413%_ - (gx#syntax-e _%tl5828958704%_))) - (let ((_%tl5834458420%_ + |gerbil/core/contract~Interface[1]#_g80551_| + _%hd5809758576%_) + (if (gx#stx-pair? _%tl5811458529%_) + (let ((_%e5817158238%_ + (gx#syntax-e _%tl5811458529%_))) + (let ((_%tl5816958245%_ (let () (declare (not safe)) - (##cdr _%e5834658413%_))) - (_%hd5834558417%_ + (##cdr _%e5817158238%_))) + (_%hd5817058242%_ (let () (declare (not safe)) - (##car _%e5834658413%_)))) - (if (gx#identifier? _%hd5834558417%_) + (##car _%e5817158238%_)))) + (if (gx#identifier? _%hd5817058242%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80755_| - _%hd5834558417%_) + |gerbil/core/contract~Interface[1]#_g80553_| + _%hd5817058242%_) (if (gx#stx-pair? - _%tl5834458420%_) - (let ((_%e5834958423%_ + _%tl5816958245%_) + (let ((_%e5817458248%_ (gx#syntax-e - _%tl5834458420%_))) - (let ((_%tl5834758430%_ + _%tl5816958245%_))) + (let ((_%tl5817258255%_ (let () (declare (not safe)) - (##cdr _%e5834958423%_))) - (_%hd5834858427%_ + (##cdr _%e5817458248%_))) + (_%hd5817358252%_ (let () (declare (not safe)) - (##car _%e5834958423%_)))) + (##car _%e5817458248%_)))) (if (gx#stx-null? - _%tl5834758430%_) - (_%__match7708577086%_ - _%e5827358747%_ - _%hd5827258751%_ - _%tl5827158754%_ - _%e5827658757%_ - _%hd5827558761%_ - _%tl5827458764%_ - _%e5828858687%_ - _%hd5828758691%_ - _%tl5828658694%_ - _%e5829158697%_ - _%hd5829058701%_ - _%tl5828958704%_ - _%e5834658413%_ - _%hd5834558417%_ - _%tl5834458420%_ - _%e5834958423%_ - _%hd5834858427%_ - _%tl5834758430%_) - (_%__kont7691176912%_)))) - (_%__kont7691176912%_)) - (_%__kont7691176912%_)) - (_%__kont7691176912%_)))) - (_%__kont7691176912%_)) - (_%__kont7691176912%_)) - (_%__kont7691176912%_))))) - (_%__kont7691176912%_)) + _%tl5817258255%_) + (_%__match7691076911%_ + _%e5809858572%_ + _%hd5809758576%_ + _%tl5809658579%_ + _%e5810158582%_ + _%hd5810058586%_ + _%tl5809958589%_ + _%e5811358512%_ + _%hd5811258516%_ + _%tl5811158519%_ + _%e5811658522%_ + _%hd5811558526%_ + _%tl5811458529%_ + _%e5817158238%_ + _%hd5817058242%_ + _%tl5816958245%_ + _%e5817458248%_ + _%hd5817358252%_ + _%tl5817258255%_) + (_%__kont7673676737%_)))) + (_%__kont7673676737%_)) + (_%__kont7673676737%_)) + (_%__kont7673676737%_)))) + (_%__kont7673676737%_)) + (_%__kont7673676737%_)) + (_%__kont7673676737%_))))) + (_%__kont7673676737%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd5827258751%_) + _%hd5809758576%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80753_| - _%hd5827258751%_) + |gerbil/core/contract~Interface[1]#_g80551_| + _%hd5809758576%_) (if (gx#stx-pair? - _%tl5828658694%_) - (let ((_%e5832758511%_ + _%tl5811158519%_) + (let ((_%e5815258336%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5828658694%_))) - (let ((_%tl5832558518%_ + (gx#syntax-e _%tl5811158519%_))) + (let ((_%tl5815058343%_ (let () (declare (not safe)) - (##cdr _%e5832758511%_))) - (_%hd5832658515%_ + (##cdr _%e5815258336%_))) + (_%hd5815158340%_ (let () (declare (not safe)) - (##car _%e5832758511%_)))) - (if (gx#stx-null? _%tl5832558518%_) - (_%__match7703977040%_ - _%e5827358747%_ - _%hd5827258751%_ - _%tl5827158754%_ - _%e5827658757%_ - _%hd5827558761%_ - _%tl5827458764%_ - _%e5828858687%_ - _%hd5828758691%_ - _%tl5828658694%_ - _%e5832758511%_ - _%hd5832658515%_ - _%tl5832558518%_) - (if (gx#stx-pair? _%tl5832558518%_) - (let ((_%e5834658413%_ - (gx#syntax-e _%tl5832558518%_))) - (let ((_%tl5834458420%_ + (##car _%e5815258336%_)))) + (if (gx#stx-null? _%tl5815058343%_) + (_%__match7686476865%_ + _%e5809858572%_ + _%hd5809758576%_ + _%tl5809658579%_ + _%e5810158582%_ + _%hd5810058586%_ + _%tl5809958589%_ + _%e5811358512%_ + _%hd5811258516%_ + _%tl5811158519%_ + _%e5815258336%_ + _%hd5815158340%_ + _%tl5815058343%_) + (if (gx#stx-pair? _%tl5815058343%_) + (let ((_%e5817158238%_ + (gx#syntax-e _%tl5815058343%_))) + (let ((_%tl5816958245%_ (let () (declare (not safe)) - (##cdr _%e5834658413%_))) - (_%hd5834558417%_ + (##cdr _%e5817158238%_))) + (_%hd5817058242%_ (let () (declare (not safe)) - (##car _%e5834658413%_)))) - (if (gx#identifier? _%hd5834558417%_) + (##car _%e5817158238%_)))) + (if (gx#identifier? _%hd5817058242%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80755_| - _%hd5834558417%_) + |gerbil/core/contract~Interface[1]#_g80553_| + _%hd5817058242%_) (if (gx#stx-pair? - _%tl5834458420%_) - (let ((_%e5834958423%_ + _%tl5816958245%_) + (let ((_%e5817458248%_ (gx#syntax-e - _%tl5834458420%_))) - (let ((_%tl5834758430%_ + _%tl5816958245%_))) + (let ((_%tl5817258255%_ (let () (declare (not safe)) - (##cdr _%e5834958423%_))) - (_%hd5834858427%_ + (##cdr _%e5817458248%_))) + (_%hd5817358252%_ (let () (declare (not safe)) - (##car _%e5834958423%_)))) + (##car _%e5817458248%_)))) (if (gx#stx-null? - _%tl5834758430%_) - (_%__match7708577086%_ - _%e5827358747%_ - _%hd5827258751%_ - _%tl5827158754%_ - _%e5827658757%_ - _%hd5827558761%_ - _%tl5827458764%_ - _%e5828858687%_ - _%hd5828758691%_ - _%tl5828658694%_ - _%e5832758511%_ - _%hd5832658515%_ - _%tl5832558518%_ - _%e5834658413%_ - _%hd5834558417%_ - _%tl5834458420%_ - _%e5834958423%_ - _%hd5834858427%_ - _%tl5834758430%_) - (_%__kont7691176912%_)))) - (_%__kont7691176912%_)) - (_%__kont7691176912%_)) - (_%__kont7691176912%_)))) - (_%__kont7691176912%_))))) - (_%__kont7691176912%_)) - (_%__kont7691176912%_)) - (_%__kont7691176912%_))) + _%tl5817258255%_) + (_%__match7691076911%_ + _%e5809858572%_ + _%hd5809758576%_ + _%tl5809658579%_ + _%e5810158582%_ + _%hd5810058586%_ + _%tl5809958589%_ + _%e5811358512%_ + _%hd5811258516%_ + _%tl5811158519%_ + _%e5815258336%_ + _%hd5815158340%_ + _%tl5815058343%_ + _%e5817158238%_ + _%hd5817058242%_ + _%tl5816958245%_ + _%e5817458248%_ + _%hd5817358252%_ + _%tl5817258255%_) + (_%__kont7673676737%_)))) + (_%__kont7673676737%_)) + (_%__kont7673676737%_)) + (_%__kont7673676737%_)))) + (_%__kont7673676737%_))))) + (_%__kont7673676737%_)) + (_%__kont7673676737%_)) + (_%__kont7673676737%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd5827258751%_) + _%hd5809758576%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80753_| - _%hd5827258751%_) + |gerbil/core/contract~Interface[1]#_g80551_| + _%hd5809758576%_) (if (gx#stx-pair? - _%tl5828658694%_) - (let ((_%e5832758511%_ + _%tl5811158519%_) + (let ((_%e5815258336%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5828658694%_))) - (let ((_%tl5832558518%_ + (gx#syntax-e _%tl5811158519%_))) + (let ((_%tl5815058343%_ (let () (declare (not safe)) - (##cdr _%e5832758511%_))) - (_%hd5832658515%_ + (##cdr _%e5815258336%_))) + (_%hd5815158340%_ (let () (declare (not safe)) - (##car _%e5832758511%_)))) - (if (gx#stx-null? _%tl5832558518%_) - (_%__match7703977040%_ - _%e5827358747%_ - _%hd5827258751%_ - _%tl5827158754%_ - _%e5827658757%_ - _%hd5827558761%_ - _%tl5827458764%_ - _%e5828858687%_ - _%hd5828758691%_ - _%tl5828658694%_ - _%e5832758511%_ - _%hd5832658515%_ - _%tl5832558518%_) - (if (gx#stx-pair? _%tl5832558518%_) - (let ((_%e5834658413%_ - (gx#syntax-e _%tl5832558518%_))) - (let ((_%tl5834458420%_ + (##car _%e5815258336%_)))) + (if (gx#stx-null? _%tl5815058343%_) + (_%__match7686476865%_ + _%e5809858572%_ + _%hd5809758576%_ + _%tl5809658579%_ + _%e5810158582%_ + _%hd5810058586%_ + _%tl5809958589%_ + _%e5811358512%_ + _%hd5811258516%_ + _%tl5811158519%_ + _%e5815258336%_ + _%hd5815158340%_ + _%tl5815058343%_) + (if (gx#stx-pair? _%tl5815058343%_) + (let ((_%e5817158238%_ + (gx#syntax-e _%tl5815058343%_))) + (let ((_%tl5816958245%_ (let () (declare (not safe)) - (##cdr _%e5834658413%_))) - (_%hd5834558417%_ + (##cdr _%e5817158238%_))) + (_%hd5817058242%_ (let () (declare (not safe)) - (##car _%e5834658413%_)))) - (if (gx#identifier? _%hd5834558417%_) + (##car _%e5817158238%_)))) + (if (gx#identifier? _%hd5817058242%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80755_| - _%hd5834558417%_) - (if (gx#stx-pair? _%tl5834458420%_) - (let ((_%e5834958423%_ + |gerbil/core/contract~Interface[1]#_g80553_| + _%hd5817058242%_) + (if (gx#stx-pair? _%tl5816958245%_) + (let ((_%e5817458248%_ (gx#syntax-e - _%tl5834458420%_))) - (let ((_%tl5834758430%_ + _%tl5816958245%_))) + (let ((_%tl5817258255%_ (let () (declare (not safe)) - (##cdr _%e5834958423%_))) - (_%hd5834858427%_ + (##cdr _%e5817458248%_))) + (_%hd5817358252%_ (let () (declare (not safe)) - (##car _%e5834958423%_)))) + (##car _%e5817458248%_)))) (if (gx#stx-null? - _%tl5834758430%_) - (_%__match7708577086%_ - _%e5827358747%_ - _%hd5827258751%_ - _%tl5827158754%_ - _%e5827658757%_ - _%hd5827558761%_ - _%tl5827458764%_ - _%e5828858687%_ - _%hd5828758691%_ - _%tl5828658694%_ - _%e5832758511%_ - _%hd5832658515%_ - _%tl5832558518%_ - _%e5834658413%_ - _%hd5834558417%_ - _%tl5834458420%_ - _%e5834958423%_ - _%hd5834858427%_ - _%tl5834758430%_) - (_%__kont7691176912%_)))) - (_%__kont7691176912%_)) - (_%__kont7691176912%_)) - (_%__kont7691176912%_)))) - (_%__kont7691176912%_))))) - (_%__kont7691176912%_)) - (_%__kont7691176912%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7691176912%_))))) - (_%__kont7691176912%_))))) - (_%__kont7691176912%_)))) - (_%__kont7691176912%_))))))) + _%tl5817258255%_) + (_%__match7691076911%_ + _%e5809858572%_ + _%hd5809758576%_ + _%tl5809658579%_ + _%e5810158582%_ + _%hd5810058586%_ + _%tl5809958589%_ + _%e5811358512%_ + _%hd5811258516%_ + _%tl5811158519%_ + _%e5815258336%_ + _%hd5815158340%_ + _%tl5815058343%_ + _%e5817158238%_ + _%hd5817058242%_ + _%tl5816958245%_ + _%e5817458248%_ + _%hd5817358252%_ + _%tl5817258255%_) + (_%__kont7673676737%_)))) + (_%__kont7673676737%_)) + (_%__kont7673676737%_)) + (_%__kont7673676737%_)))) + (_%__kont7673676737%_))))) + (_%__kont7673676737%_)) + (_%__kont7673676737%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7673676737%_))))) + (_%__kont7673676737%_))))) + (_%__kont7673676737%_)))) + (_%__kont7673676737%_))))))) (define |gerbil/core/contract~Interface[1]#check-signature-contract-types!| - (lambda (_%stx58065%_ _%contract58067%_) - (let* ((_%__stx7708877089%_ _%contract58067%_) - (_%g5807158103%_ + (lambda (_%stx57890%_ _%contract57892%_) + (let* ((_%__stx7691376914%_ _%contract57892%_) + (_%g5789657928%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7708877089%_)))) - (let ((_%__kont7709177092%_ - (lambda (_%L58225%_ _%L58227%_ _%L58228%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx58065%_ - _%L58227%_)))) - (_%__kont7709377094%_ - (lambda (_%L58161%_ _%L58163%_ _%L58164%_ _%L58165%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx58065%_ - _%L58163%_)))) - (_%__kont7709577096%_ (lambda () (void)))) - (let* ((_%__match7713777138%_ - (lambda (_%e5808858121%_ - _%hd5808758125%_ - _%tl5808658128%_ - _%e5809158131%_ - _%hd5809058135%_ - _%tl5808958138%_ - _%e5809458141%_ - _%hd5809358145%_ - _%tl5809258148%_ - _%e5809758151%_ - _%hd5809658155%_ - _%tl5809558158%_) - (let ((_%L58161%_ _%tl5809558158%_) - (_%L58163%_ _%hd5809658155%_) - (_%L58164%_ _%hd5809358145%_) - (_%L58165%_ _%hd5809058135%_)) - (if (and (gx#identifier? _%L58164%_) + _%__stx7691376914%_)))) + (let ((_%__kont7691676917%_ + (lambda (_%L58050%_ _%L58052%_ _%L58053%_) + (|gerbil/core/contract~Interface[1]#check-valid-type!| + _%stx57890%_ + _%L58052%_))) + (_%__kont7691876919%_ + (lambda (_%L57986%_ _%L57988%_ _%L57989%_ _%L57990%_) + (|gerbil/core/contract~Interface[1]#check-valid-type!| + _%stx57890%_ + _%L57988%_))) + (_%__kont7692076921%_ (lambda () (void)))) + (let* ((_%__match7696276963%_ + (lambda (_%e5791357946%_ + _%hd5791257950%_ + _%tl5791157953%_ + _%e5791657956%_ + _%hd5791557960%_ + _%tl5791457963%_ + _%e5791957966%_ + _%hd5791857970%_ + _%tl5791757973%_ + _%e5792257976%_ + _%hd5792157980%_ + _%tl5792057983%_) + (let ((_%L57986%_ _%tl5792057983%_) + (_%L57988%_ _%hd5792157980%_) + (_%L57989%_ _%hd5791857970%_) + (_%L57990%_ _%hd5791557960%_)) + (if (and (gx#identifier? _%L57989%_) (or (gx#free-identifier=? - _%L58164%_ + _%L57989%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58164%_ + _%L57989%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58164%_ + _%L57989%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58164%_ + _%L57989%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7709377094%_ - _%L58161%_ - _%L58163%_ - _%L58164%_ - _%L58165%_) - (_%__kont7709577096%_))))) - (_%__match7710977110%_ - (lambda (_%e5807858205%_ - _%hd5807758209%_ - _%tl5807658212%_ - _%e5808158215%_ - _%hd5808058219%_ - _%tl5807958222%_) - (let ((_%L58225%_ _%tl5807958222%_) - (_%L58227%_ _%hd5808058219%_) - (_%L58228%_ _%hd5807758209%_)) - (if (and (gx#identifier? _%L58228%_) + (_%__kont7691876919%_ + _%L57986%_ + _%L57988%_ + _%L57989%_ + _%L57990%_) + (_%__kont7692076921%_))))) + (_%__match7693476935%_ + (lambda (_%e5790358030%_ + _%hd5790258034%_ + _%tl5790158037%_ + _%e5790658040%_ + _%hd5790558044%_ + _%tl5790458047%_) + (let ((_%L58050%_ _%tl5790458047%_) + (_%L58052%_ _%hd5790558044%_) + (_%L58053%_ _%hd5790258034%_)) + (if (and (gx#identifier? _%L58053%_) (or (gx#free-identifier=? - _%L58228%_ + _%L58053%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58228%_ + _%L58053%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58228%_ + _%L58053%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58228%_ + _%L58053%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7709177092%_ - _%L58225%_ - _%L58227%_ - _%L58228%_) - (if (gx#identifier? _%hd5807758209%_) + (_%__kont7691676917%_ + _%L58050%_ + _%L58052%_ + _%L58053%_) + (if (gx#identifier? _%hd5790258034%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80756_| - _%hd5807758209%_) - (if (gx#stx-pair? _%tl5807958222%_) - (let ((_%e5809458141%_ - (gx#syntax-e _%tl5807958222%_))) - (let ((_%tl5809258148%_ + |gerbil/core/contract~Interface[1]#_g80554_| + _%hd5790258034%_) + (if (gx#stx-pair? _%tl5790458047%_) + (let ((_%e5791957966%_ + (gx#syntax-e _%tl5790458047%_))) + (let ((_%tl5791757973%_ (let () (declare (not safe)) - (##cdr _%e5809458141%_))) - (_%hd5809358145%_ + (##cdr _%e5791957966%_))) + (_%hd5791857970%_ (let () (declare (not safe)) - (##car _%e5809458141%_)))) - (if (gx#stx-pair? _%tl5809258148%_) - (let ((_%e5809758151%_ + (##car _%e5791957966%_)))) + (if (gx#stx-pair? _%tl5791757973%_) + (let ((_%e5792257976%_ (gx#syntax-e - _%tl5809258148%_))) - (let ((_%tl5809558158%_ + _%tl5791757973%_))) + (let ((_%tl5792057983%_ (let () (declare (not safe)) - (##cdr _%e5809758151%_))) - (_%hd5809658155%_ + (##cdr _%e5792257976%_))) + (_%hd5792157980%_ (let () (declare (not safe)) - (##car _%e5809758151%_)))) - (_%__match7713777138%_ - _%e5807858205%_ - _%hd5807758209%_ - _%tl5807658212%_ - _%e5808158215%_ - _%hd5808058219%_ - _%tl5807958222%_ - _%e5809458141%_ - _%hd5809358145%_ - _%tl5809258148%_ - _%e5809758151%_ - _%hd5809658155%_ - _%tl5809558158%_))) - (_%__kont7709577096%_)))) - (_%__kont7709577096%_)) - (_%__kont7709577096%_)) - (_%__kont7709577096%_))))))) - (if (gx#stx-pair? _%__stx7708877089%_) - (let ((_%e5807858205%_ (gx#syntax-e _%__stx7708877089%_))) - (let ((_%tl5807658212%_ + (##car _%e5792257976%_)))) + (_%__match7696276963%_ + _%e5790358030%_ + _%hd5790258034%_ + _%tl5790158037%_ + _%e5790658040%_ + _%hd5790558044%_ + _%tl5790458047%_ + _%e5791957966%_ + _%hd5791857970%_ + _%tl5791757973%_ + _%e5792257976%_ + _%hd5792157980%_ + _%tl5792057983%_))) + (_%__kont7692076921%_)))) + (_%__kont7692076921%_)) + (_%__kont7692076921%_)) + (_%__kont7692076921%_))))))) + (if (gx#stx-pair? _%__stx7691376914%_) + (let ((_%e5790358030%_ (gx#syntax-e _%__stx7691376914%_))) + (let ((_%tl5790158037%_ (let () (declare (not safe)) - (##cdr _%e5807858205%_))) - (_%hd5807758209%_ + (##cdr _%e5790358030%_))) + (_%hd5790258034%_ (let () (declare (not safe)) - (##car _%e5807858205%_)))) - (if (gx#stx-pair? _%tl5807658212%_) - (let ((_%e5808158215%_ - (gx#syntax-e _%tl5807658212%_))) - (let ((_%tl5807958222%_ + (##car _%e5790358030%_)))) + (if (gx#stx-pair? _%tl5790158037%_) + (let ((_%e5790658040%_ + (gx#syntax-e _%tl5790158037%_))) + (let ((_%tl5790458047%_ (let () (declare (not safe)) - (##cdr _%e5808158215%_))) - (_%hd5808058219%_ + (##cdr _%e5790658040%_))) + (_%hd5790558044%_ (let () (declare (not safe)) - (##car _%e5808158215%_)))) - (_%__match7710977110%_ - _%e5807858205%_ - _%hd5807758209%_ - _%tl5807658212%_ - _%e5808158215%_ - _%hd5808058219%_ - _%tl5807958222%_))) - (_%__kont7709577096%_)))) - (_%__kont7709577096%_))))))) + (##car _%e5790658040%_)))) + (_%__match7693476935%_ + _%e5790358030%_ + _%hd5790258034%_ + _%tl5790158037%_ + _%e5790658040%_ + _%hd5790558044%_ + _%tl5790458047%_))) + (_%__kont7692076921%_)))) + (_%__kont7692076921%_))))))) (define |gerbil/core/contract~Interface[1]#signature-arguments-in| - (lambda (_%signature57421%_) - (let _%loop57424%_ ((_%rest57427%_ _%signature57421%_) - (_%result57429%_ '())) - (let* ((_%__stx7721677217%_ _%rest57427%_) - (_%g5743857510%_ + (lambda (_%signature57246%_) + (let _%loop57249%_ ((_%rest57252%_ _%signature57246%_) + (_%result57254%_ '())) + (let* ((_%__stx7704177042%_ _%rest57252%_) + (_%g5726357335%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7721677217%_)))) - (let ((_%__kont7721977220%_ - (lambda (_%L58048%_ _%L58050%_) - (let ((__tmp80757 (cons _%L58050%_ _%result57429%_))) - (declare (not safe)) - (_%loop57424%_ _%L58048%_ __tmp80757)))) - (_%__kont7722177222%_ - (lambda (_%L58012%_ _%L58014%_ _%L58015%_) - (let ((__tmp80758 - (cons (cons _%L58015%_ (cons _%L58014%_ '())) - _%result57429%_))) - (declare (not safe)) - (_%loop57424%_ _%L58012%_ __tmp80758)))) - (_%__kont7722377224%_ - (lambda (_%L57849%_ _%L57851%_ _%L57852%_) - (let* ((_%__stx7717877179%_ _%L57851%_) - (_%g5786757888%_ + _%__stx7704177042%_)))) + (let ((_%__kont7704477045%_ + (lambda (_%L57873%_ _%L57875%_) + (_%loop57249%_ + _%L57873%_ + (cons _%L57875%_ _%result57254%_)))) + (_%__kont7704677047%_ + (lambda (_%L57837%_ _%L57839%_ _%L57840%_) + (_%loop57249%_ + _%L57837%_ + (cons (cons _%L57840%_ (cons _%L57839%_ '())) + _%result57254%_)))) + (_%__kont7704877049%_ + (lambda (_%L57674%_ _%L57676%_ _%L57677%_) + (let* ((_%__stx7700377004%_ _%L57676%_) + (_%g5769257713%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7717877179%_)))) - (let ((_%__kont7718177182%_ - (lambda (_%L57952%_) - (let ((__tmp80759 - (cons (cons _%L57852%_ - (cons _%L57952%_ '())) - _%result57429%_))) - (declare (not safe)) - (_%loop57424%_ _%L57849%_ __tmp80759)))) - (_%__kont7718577186%_ + _%__stx7700377004%_)))) + (let ((_%__kont7700677007%_ + (lambda (_%L57777%_) + (_%loop57249%_ + _%L57674%_ + (cons (cons _%L57677%_ (cons _%L57777%_ '())) + _%result57254%_)))) + (_%__kont7701077011%_ (lambda () - (let ((__tmp80760 - (cons _%L57852%_ _%result57429%_))) - (declare (not safe)) - (_%loop57424%_ _%L57849%_ __tmp80760))))) - (let ((_%__match7721377214%_ - (lambda (_%__splice7718377184%_ - _%target5787057906%_ - _%tl5787257909%_ - _%e5787957912%_ - _%hd5787857916%_ - _%tl5787757919%_ - _%e5788257922%_ - _%hd5788157926%_ - _%tl5788057929%_) - (letrec ((_%loop5787357932%_ - (lambda (_%hd5787157936%_) + (_%loop57249%_ + _%L57674%_ + (cons _%L57677%_ _%result57254%_))))) + (let ((_%__match7703877039%_ + (lambda (_%__splice7700877009%_ + _%target5769557731%_ + _%tl5769757734%_ + _%e5770457737%_ + _%hd5770357741%_ + _%tl5770257744%_ + _%e5770757747%_ + _%hd5770657751%_ + _%tl5770557754%_) + (letrec ((_%loop5769857757%_ + (lambda (_%hd5769657761%_) (if (gx#stx-pair? - _%hd5787157936%_) - (let ((_%e5787457940%_ + _%hd5769657761%_) + (let ((_%e5769957765%_ (gx#syntax-e - _%hd5787157936%_))) - (let ((_%lp-tl5787657947%_ + _%hd5769657761%_))) + (let ((_%lp-tl5770157772%_ (let () (declare (not safe)) - (##cdr _%e5787457940%_))) - (_%lp-hd5787557944%_ + (##cdr _%e5769957765%_))) + (_%lp-hd5770057769%_ (let () (declare (not safe)) - (##car _%e5787457940%_)))) - (let () - (declare (not safe)) - (_%loop5787357932%_ - _%lp-tl5787657947%_)))) - (let () - (_%__kont7718177182%_ - _%hd5788157926%_)))))) - (let () - (declare (not safe)) - (_%loop5787357932%_ - _%target5787057906%_)))))) - (if (gx#stx-pair/null? _%__stx7717877179%_) - (if (let ((__tmp80761 - (gx#stx-length _%__stx7717877179%_))) + (##car _%e5769957765%_)))) + (_%loop5769857757%_ + _%lp-tl5770157772%_))) + (_%__kont7700677007%_ + _%hd5770657751%_))))) + (_%loop5769857757%_ + _%target5769557731%_))))) + (if (gx#stx-pair/null? _%__stx7700377004%_) + (if (let ((__tmp80555 + (gx#stx-length _%__stx7700377004%_))) (declare (not safe)) - (##fx>= __tmp80761 '2)) - (let ((_%__splice7718377184%_ + (##fx>= __tmp80555 '2)) + (let ((_%__splice7700877009%_ (gx#syntax-split-splice - _%__stx7717877179%_ + _%__stx7700377004%_ '2))) - (let ((_%tl5787257909%_ + (let ((_%tl5769757734%_ (let () (declare (not safe)) (##vector-ref - _%__splice7718377184%_ + _%__splice7700877009%_ '1))) - (_%target5787057906%_ + (_%target5769557731%_ (let () (declare (not safe)) (##vector-ref - _%__splice7718377184%_ + _%__splice7700877009%_ '0)))) - (if (gx#stx-pair? _%tl5787257909%_) - (let ((_%e5787957912%_ + (if (gx#stx-pair? _%tl5769757734%_) + (let ((_%e5770457737%_ (gx#syntax-e - _%tl5787257909%_))) - (let ((_%tl5787757919%_ + _%tl5769757734%_))) + (let ((_%tl5770257744%_ (let () (declare (not safe)) - (##cdr _%e5787957912%_))) - (_%hd5787857916%_ + (##cdr _%e5770457737%_))) + (_%hd5770357741%_ (let () (declare (not safe)) - (##car _%e5787957912%_)))) + (##car _%e5770457737%_)))) (if (gx#identifier? - _%hd5787857916%_) + _%hd5770357741%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80762_| - _%hd5787857916%_) + |gerbil/core/contract~Interface[1]#_g80556_| + _%hd5770357741%_) (if (gx#stx-pair? - _%tl5787757919%_) - (let ((_%e5788257922%_ + _%tl5770257744%_) + (let ((_%e5770757747%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5787757919%_))) - (let ((_%tl5788057929%_ + (gx#syntax-e _%tl5770257744%_))) + (let ((_%tl5770557754%_ (let () (declare (not safe)) - (##cdr _%e5788257922%_))) - (_%hd5788157926%_ + (##cdr _%e5770757747%_))) + (_%hd5770657751%_ (let () (declare (not safe)) - (##car _%e5788257922%_)))) - (if (gx#stx-null? _%tl5788057929%_) - (_%__match7721377214%_ - _%__splice7718377184%_ - _%target5787057906%_ - _%tl5787257909%_ - _%e5787957912%_ - _%hd5787857916%_ - _%tl5787757919%_ - _%e5788257922%_ - _%hd5788157926%_ - _%tl5788057929%_) - (_%__kont7718577186%_)))) - (_%__kont7718577186%_)) - (_%__kont7718577186%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7718577186%_)))) - (_%__kont7718577186%_)))) - (_%__kont7718577186%_)) - (_%__kont7718577186%_))))))) - (_%__kont7722577226%_ - (lambda (_%L57805%_ _%L57807%_ _%L57808%_) - (let ((__tmp80763 - (let ((__tmp80764 - (let () - (declare (not safe)) - (cons _%L57808%_ _%result57429%_)))) - (declare (not safe)) - (cons _%L57807%_ __tmp80764)))) - (declare (not safe)) - (_%loop57424%_ _%L57805%_ __tmp80763)))) - (_%__kont7722777228%_ - (lambda (_%L57755%_ _%L57757%_ _%L57758%_ _%L57759%_) - (let ((__tmp80765 - (let ((__tmp80767 - (cons _%L57758%_ (cons _%L57757%_ '()))) - (__tmp80766 - (let () - (declare (not safe)) - (cons _%L57759%_ _%result57429%_)))) - (declare (not safe)) - (cons __tmp80767 __tmp80766)))) - (declare (not safe)) - (_%loop57424%_ _%L57755%_ __tmp80765)))) - (_%__kont7722977230%_ - (lambda (_%L57578%_ _%L57580%_ _%L57581%_ _%L57582%_) - (let* ((_%__stx7714077141%_ _%L57580%_) - (_%g5760057621%_ + (##car _%e5770757747%_)))) + (if (gx#stx-null? _%tl5770557754%_) + (_%__match7703877039%_ + _%__splice7700877009%_ + _%target5769557731%_ + _%tl5769757734%_ + _%e5770457737%_ + _%hd5770357741%_ + _%tl5770257744%_ + _%e5770757747%_ + _%hd5770657751%_ + _%tl5770557754%_) + (_%__kont7701077011%_)))) + (_%__kont7701077011%_)) + (_%__kont7701077011%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7701077011%_)))) + (_%__kont7701077011%_)))) + (_%__kont7701077011%_)) + (_%__kont7701077011%_))))))) + (_%__kont7705077051%_ + (lambda (_%L57630%_ _%L57632%_ _%L57633%_) + (_%loop57249%_ + _%L57630%_ + (cons _%L57632%_ (cons _%L57633%_ _%result57254%_))))) + (_%__kont7705277053%_ + (lambda (_%L57580%_ _%L57582%_ _%L57583%_ _%L57584%_) + (_%loop57249%_ + _%L57580%_ + (cons (cons _%L57583%_ (cons _%L57582%_ '())) + (cons _%L57584%_ _%result57254%_))))) + (_%__kont7705477055%_ + (lambda (_%L57403%_ _%L57405%_ _%L57406%_ _%L57407%_) + (let* ((_%__stx7696576966%_ _%L57405%_) + (_%g5742557446%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7714077141%_)))) - (let ((_%__kont7714377144%_ - (lambda (_%L57685%_) - (let ((__tmp80768 - (let ((__tmp80770 - (cons _%L57581%_ - (cons _%L57685%_ '()))) - (__tmp80769 - (let () - (declare (not safe)) - (cons _%L57582%_ - _%result57429%_)))) - (declare (not safe)) - (cons __tmp80770 __tmp80769)))) - (declare (not safe)) - (_%loop57424%_ _%L57578%_ __tmp80768)))) - (_%__kont7714777148%_ + _%__stx7696576966%_)))) + (let ((_%__kont7696876969%_ + (lambda (_%L57510%_) + (_%loop57249%_ + _%L57403%_ + (cons (cons _%L57406%_ (cons _%L57510%_ '())) + (cons _%L57407%_ _%result57254%_))))) + (_%__kont7697276973%_ (lambda () - (let ((__tmp80771 - (let ((__tmp80772 - (let () - (declare (not safe)) - (cons _%L57582%_ - _%result57429%_)))) - (declare (not safe)) - (cons _%L57581%_ __tmp80772)))) - (declare (not safe)) - (_%loop57424%_ _%L57578%_ __tmp80771))))) - (let ((_%__match7717577176%_ - (lambda (_%__splice7714577146%_ - _%target5760357639%_ - _%tl5760557642%_ - _%e5761257645%_ - _%hd5761157649%_ - _%tl5761057652%_ - _%e5761557655%_ - _%hd5761457659%_ - _%tl5761357662%_) - (letrec ((_%loop5760657665%_ - (lambda (_%hd5760457669%_) + (_%loop57249%_ + _%L57403%_ + (cons _%L57406%_ + (cons _%L57407%_ _%result57254%_)))))) + (let ((_%__match7700077001%_ + (lambda (_%__splice7697076971%_ + _%target5742857464%_ + _%tl5743057467%_ + _%e5743757470%_ + _%hd5743657474%_ + _%tl5743557477%_ + _%e5744057480%_ + _%hd5743957484%_ + _%tl5743857487%_) + (letrec ((_%loop5743157490%_ + (lambda (_%hd5742957494%_) (if (gx#stx-pair? - _%hd5760457669%_) - (let ((_%e5760757673%_ + _%hd5742957494%_) + (let ((_%e5743257498%_ (gx#syntax-e - _%hd5760457669%_))) - (let ((_%lp-tl5760957680%_ + _%hd5742957494%_))) + (let ((_%lp-tl5743457505%_ (let () (declare (not safe)) - (##cdr _%e5760757673%_))) - (_%lp-hd5760857677%_ + (##cdr _%e5743257498%_))) + (_%lp-hd5743357502%_ (let () (declare (not safe)) - (##car _%e5760757673%_)))) - (let () - (declare (not safe)) - (_%loop5760657665%_ - _%lp-tl5760957680%_)))) - (let () - (_%__kont7714377144%_ - _%hd5761457659%_)))))) - (let () - (declare (not safe)) - (_%loop5760657665%_ - _%target5760357639%_)))))) - (if (gx#stx-pair/null? _%__stx7714077141%_) - (if (let ((__tmp80773 - (gx#stx-length _%__stx7714077141%_))) + (##car _%e5743257498%_)))) + (_%loop5743157490%_ + _%lp-tl5743457505%_))) + (_%__kont7696876969%_ + _%hd5743957484%_))))) + (_%loop5743157490%_ + _%target5742857464%_))))) + (if (gx#stx-pair/null? _%__stx7696576966%_) + (if (let ((__tmp80557 + (gx#stx-length _%__stx7696576966%_))) (declare (not safe)) - (##fx>= __tmp80773 '2)) - (let ((_%__splice7714577146%_ + (##fx>= __tmp80557 '2)) + (let ((_%__splice7697076971%_ (gx#syntax-split-splice - _%__stx7714077141%_ + _%__stx7696576966%_ '2))) - (let ((_%tl5760557642%_ + (let ((_%tl5743057467%_ (let () (declare (not safe)) (##vector-ref - _%__splice7714577146%_ + _%__splice7697076971%_ '1))) - (_%target5760357639%_ + (_%target5742857464%_ (let () (declare (not safe)) (##vector-ref - _%__splice7714577146%_ + _%__splice7697076971%_ '0)))) - (if (gx#stx-pair? _%tl5760557642%_) - (let ((_%e5761257645%_ + (if (gx#stx-pair? _%tl5743057467%_) + (let ((_%e5743757470%_ (gx#syntax-e - _%tl5760557642%_))) - (let ((_%tl5761057652%_ + _%tl5743057467%_))) + (let ((_%tl5743557477%_ (let () (declare (not safe)) - (##cdr _%e5761257645%_))) - (_%hd5761157649%_ + (##cdr _%e5743757470%_))) + (_%hd5743657474%_ (let () (declare (not safe)) - (##car _%e5761257645%_)))) + (##car _%e5743757470%_)))) (if (gx#identifier? - _%hd5761157649%_) + _%hd5743657474%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80774_| - _%hd5761157649%_) + |gerbil/core/contract~Interface[1]#_g80558_| + _%hd5743657474%_) (if (gx#stx-pair? - _%tl5761057652%_) - (let ((_%e5761557655%_ + _%tl5743557477%_) + (let ((_%e5744057480%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5761057652%_))) - (let ((_%tl5761357662%_ + (gx#syntax-e _%tl5743557477%_))) + (let ((_%tl5743857487%_ (let () (declare (not safe)) - (##cdr _%e5761557655%_))) - (_%hd5761457659%_ + (##cdr _%e5744057480%_))) + (_%hd5743957484%_ (let () (declare (not safe)) - (##car _%e5761557655%_)))) - (if (gx#stx-null? _%tl5761357662%_) - (_%__match7717577176%_ - _%__splice7714577146%_ - _%target5760357639%_ - _%tl5760557642%_ - _%e5761257645%_ - _%hd5761157649%_ - _%tl5761057652%_ - _%e5761557655%_ - _%hd5761457659%_ - _%tl5761357662%_) - (_%__kont7714777148%_)))) - (_%__kont7714777148%_)) - (_%__kont7714777148%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7714777148%_)))) - (_%__kont7714777148%_)))) - (_%__kont7714777148%_)) - (_%__kont7714777148%_))))))) - (_%__kont7723177232%_ - (lambda (_%L57528%_) - (foldl cons _%L57528%_ _%result57429%_))) - (_%__kont7723377234%_ - (lambda () (reverse! _%result57429%_)))) - (let* ((_%g5743657541%_ + (##car _%e5744057480%_)))) + (if (gx#stx-null? _%tl5743857487%_) + (_%__match7700077001%_ + _%__splice7697076971%_ + _%target5742857464%_ + _%tl5743057467%_ + _%e5743757470%_ + _%hd5743657474%_ + _%tl5743557477%_ + _%e5744057480%_ + _%hd5743957484%_ + _%tl5743857487%_) + (_%__kont7697276973%_)))) + (_%__kont7697276973%_)) + (_%__kont7697276973%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7697276973%_)))) + (_%__kont7697276973%_)))) + (_%__kont7697276973%_)) + (_%__kont7697276973%_))))))) + (_%__kont7705677057%_ + (lambda (_%L57353%_) + (foldl cons _%L57353%_ _%result57254%_))) + (_%__kont7705877059%_ + (lambda () (reverse! _%result57254%_)))) + (let* ((_%g5726157366%_ (lambda () - (let ((_%L57528%_ _%__stx7721677217%_)) - (if (gx#identifier? _%L57528%_) - (_%__kont7723177232%_ _%L57528%_) - (_%__kont7723377234%_))))) - (_%__match7732977330%_ - (lambda (_%e5749757548%_ - _%hd5749657552%_ - _%tl5749557555%_ - _%e5750057558%_ - _%hd5749957562%_ - _%tl5749857565%_ - _%e5750357568%_ - _%hd5750257572%_ - _%tl5750157575%_) - (let ((_%L57578%_ _%tl5749857565%_) - (_%L57580%_ _%tl5750157575%_) - (_%L57581%_ _%hd5750257572%_) - (_%L57582%_ _%hd5749657552%_)) - (if (and (gx#stx-keyword? _%L57582%_) - (gx#identifier? _%L57581%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57580%_))) - (_%__kont7722977230%_ - _%L57578%_ - _%L57580%_ - _%L57581%_ - _%L57582%_) + (let ((_%L57353%_ _%__stx7704177042%_)) + (if (gx#identifier? _%L57353%_) + (_%__kont7705677057%_ _%L57353%_) + (_%__kont7705877059%_))))) + (_%__match7715477155%_ + (lambda (_%e5732257373%_ + _%hd5732157377%_ + _%tl5732057380%_ + _%e5732557383%_ + _%hd5732457387%_ + _%tl5732357390%_ + _%e5732857393%_ + _%hd5732757397%_ + _%tl5732657400%_) + (let ((_%L57403%_ _%tl5732357390%_) + (_%L57405%_ _%tl5732657400%_) + (_%L57406%_ _%hd5732757397%_) + (_%L57407%_ _%hd5732157377%_)) + (if (and (gx#stx-keyword? _%L57407%_) + (gx#identifier? _%L57406%_) + (|gerbil/core/contract~Interface[1]#signature-contract?| + _%L57405%_)) + (_%__kont7705477055%_ + _%L57403%_ + _%L57405%_ + _%L57406%_ + _%L57407%_) (let () (declare (not safe)) - (_%g5743657541%_)))))) - (_%__match7731177312%_ - (lambda (_%e5748157715%_ - _%hd5748057719%_ - _%tl5747957722%_ - _%e5748457725%_ - _%hd5748357729%_ - _%tl5748257732%_ - _%e5748757735%_ - _%hd5748657739%_ - _%tl5748557742%_ - _%e5749057745%_ - _%hd5748957749%_ - _%tl5748857752%_) - (let ((_%L57755%_ _%tl5748257732%_) - (_%L57757%_ _%hd5748957749%_) - (_%L57758%_ _%hd5748657739%_) - (_%L57759%_ _%hd5748057719%_)) - (if (and (gx#stx-keyword? _%L57759%_) - (gx#identifier? _%L57758%_)) - (_%__kont7722777228%_ - _%L57755%_ - _%L57757%_ - _%L57758%_ - _%L57759%_) - (_%__match7732977330%_ - _%e5748157715%_ - _%hd5748057719%_ - _%tl5747957722%_ - _%e5748457725%_ - _%hd5748357729%_ - _%tl5748257732%_ - _%e5748757735%_ - _%hd5748657739%_ - _%tl5748557742%_))))) - (_%__match7728577286%_ - (lambda (_%e5747157785%_ - _%hd5747057789%_ - _%tl5746957792%_ - _%e5747457795%_ - _%hd5747357799%_ - _%tl5747257802%_) - (let ((_%L57805%_ _%tl5747257802%_) - (_%L57807%_ _%hd5747357799%_) - (_%L57808%_ _%hd5747057789%_)) - (if (and (gx#stx-keyword? _%L57808%_) - (gx#identifier? _%L57807%_)) - (_%__kont7722577226%_ - _%L57805%_ - _%L57807%_ - _%L57808%_) - (if (gx#stx-pair? _%hd5747357799%_) - (let ((_%e5748757735%_ - (gx#syntax-e _%hd5747357799%_))) - (let ((_%tl5748557742%_ + (_%g5726157366%_)))))) + (_%__match7713677137%_ + (lambda (_%e5730657540%_ + _%hd5730557544%_ + _%tl5730457547%_ + _%e5730957550%_ + _%hd5730857554%_ + _%tl5730757557%_ + _%e5731257560%_ + _%hd5731157564%_ + _%tl5731057567%_ + _%e5731557570%_ + _%hd5731457574%_ + _%tl5731357577%_) + (let ((_%L57580%_ _%tl5730757557%_) + (_%L57582%_ _%hd5731457574%_) + (_%L57583%_ _%hd5731157564%_) + (_%L57584%_ _%hd5730557544%_)) + (if (and (gx#stx-keyword? _%L57584%_) + (gx#identifier? _%L57583%_)) + (_%__kont7705277053%_ + _%L57580%_ + _%L57582%_ + _%L57583%_ + _%L57584%_) + (_%__match7715477155%_ + _%e5730657540%_ + _%hd5730557544%_ + _%tl5730457547%_ + _%e5730957550%_ + _%hd5730857554%_ + _%tl5730757557%_ + _%e5731257560%_ + _%hd5731157564%_ + _%tl5731057567%_))))) + (_%__match7711077111%_ + (lambda (_%e5729657610%_ + _%hd5729557614%_ + _%tl5729457617%_ + _%e5729957620%_ + _%hd5729857624%_ + _%tl5729757627%_) + (let ((_%L57630%_ _%tl5729757627%_) + (_%L57632%_ _%hd5729857624%_) + (_%L57633%_ _%hd5729557614%_)) + (if (and (gx#stx-keyword? _%L57633%_) + (gx#identifier? _%L57632%_)) + (_%__kont7705077051%_ + _%L57630%_ + _%L57632%_ + _%L57633%_) + (if (gx#stx-pair? _%hd5729857624%_) + (let ((_%e5731257560%_ + (gx#syntax-e _%hd5729857624%_))) + (let ((_%tl5731057567%_ (let () (declare (not safe)) - (##cdr _%e5748757735%_))) - (_%hd5748657739%_ + (##cdr _%e5731257560%_))) + (_%hd5731157564%_ (let () (declare (not safe)) - (##car _%e5748757735%_)))) - (if (gx#stx-pair? _%tl5748557742%_) - (let ((_%e5749057745%_ + (##car _%e5731257560%_)))) + (if (gx#stx-pair? _%tl5731057567%_) + (let ((_%e5731557570%_ (gx#syntax-e - _%tl5748557742%_))) - (let ((_%tl5748857752%_ + _%tl5731057567%_))) + (let ((_%tl5731357577%_ (let () (declare (not safe)) - (##cdr _%e5749057745%_))) - (_%hd5748957749%_ + (##cdr _%e5731557570%_))) + (_%hd5731457574%_ (let () (declare (not safe)) - (##car _%e5749057745%_)))) + (##car _%e5731557570%_)))) (if (gx#stx-null? - _%tl5748857752%_) - (_%__match7731177312%_ - _%e5747157785%_ - _%hd5747057789%_ - _%tl5746957792%_ - _%e5747457795%_ - _%hd5747357799%_ - _%tl5747257802%_ - _%e5748757735%_ - _%hd5748657739%_ - _%tl5748557742%_ - _%e5749057745%_ - _%hd5748957749%_ - _%tl5748857752%_) - (_%__match7732977330%_ - _%e5747157785%_ - _%hd5747057789%_ - _%tl5746957792%_ - _%e5747457795%_ - _%hd5747357799%_ - _%tl5747257802%_ - _%e5748757735%_ - _%hd5748657739%_ - _%tl5748557742%_)))) - (_%__match7732977330%_ - _%e5747157785%_ - _%hd5747057789%_ - _%tl5746957792%_ - _%e5747457795%_ - _%hd5747357799%_ - _%tl5747257802%_ - _%e5748757735%_ - _%hd5748657739%_ - _%tl5748557742%_)))) + _%tl5731357577%_) + (_%__match7713677137%_ + _%e5729657610%_ + _%hd5729557614%_ + _%tl5729457617%_ + _%e5729957620%_ + _%hd5729857624%_ + _%tl5729757627%_ + _%e5731257560%_ + _%hd5731157564%_ + _%tl5731057567%_ + _%e5731557570%_ + _%hd5731457574%_ + _%tl5731357577%_) + (_%__match7715477155%_ + _%e5729657610%_ + _%hd5729557614%_ + _%tl5729457617%_ + _%e5729957620%_ + _%hd5729857624%_ + _%tl5729757627%_ + _%e5731257560%_ + _%hd5731157564%_ + _%tl5731057567%_)))) + (_%__match7715477155%_ + _%e5729657610%_ + _%hd5729557614%_ + _%tl5729457617%_ + _%e5729957620%_ + _%hd5729857624%_ + _%tl5729757627%_ + _%e5731257560%_ + _%hd5731157564%_ + _%tl5731057567%_)))) (let () (declare (not safe)) - (_%g5743657541%_))))))) - (_%__match7727377274%_ - (lambda (_%e5746257829%_ - _%hd5746157833%_ - _%tl5746057836%_ - _%e5746557839%_ - _%hd5746457843%_ - _%tl5746357846%_) - (let ((_%L57849%_ _%tl5746057836%_) - (_%L57851%_ _%tl5746357846%_) - (_%L57852%_ _%hd5746457843%_)) - (if (and (gx#identifier? _%L57852%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57851%_))) - (_%__kont7722377224%_ - _%L57849%_ - _%L57851%_ - _%L57852%_) - (if (gx#stx-pair? _%tl5746057836%_) - (let ((_%e5747457795%_ - (gx#syntax-e _%tl5746057836%_))) - (let ((_%tl5747257802%_ + (_%g5726157366%_))))))) + (_%__match7709877099%_ + (lambda (_%e5728757654%_ + _%hd5728657658%_ + _%tl5728557661%_ + _%e5729057664%_ + _%hd5728957668%_ + _%tl5728857671%_) + (let ((_%L57674%_ _%tl5728557661%_) + (_%L57676%_ _%tl5728857671%_) + (_%L57677%_ _%hd5728957668%_)) + (if (and (gx#identifier? _%L57677%_) + (|gerbil/core/contract~Interface[1]#signature-contract?| + _%L57676%_)) + (_%__kont7704877049%_ + _%L57674%_ + _%L57676%_ + _%L57677%_) + (if (gx#stx-pair? _%tl5728557661%_) + (let ((_%e5729957620%_ + (gx#syntax-e _%tl5728557661%_))) + (let ((_%tl5729757627%_ (let () (declare (not safe)) - (##cdr _%e5747457795%_))) - (_%hd5747357799%_ + (##cdr _%e5729957620%_))) + (_%hd5729857624%_ (let () (declare (not safe)) - (##car _%e5747457795%_)))) - (_%__match7728577286%_ - _%e5746257829%_ - _%hd5746157833%_ - _%tl5746057836%_ - _%e5747457795%_ - _%hd5747357799%_ - _%tl5747257802%_))) + (##car _%e5729957620%_)))) + (_%__match7711077111%_ + _%e5728757654%_ + _%hd5728657658%_ + _%tl5728557661%_ + _%e5729957620%_ + _%hd5729857624%_ + _%tl5729757627%_))) (let () (declare (not safe)) - (_%g5743657541%_))))))) - (_%__match7726177262%_ - (lambda (_%e5745057982%_ - _%hd5744957986%_ - _%tl5744857989%_ - _%e5745357992%_ - _%hd5745257996%_ - _%tl5745157999%_ - _%e5745658002%_ - _%hd5745558006%_ - _%tl5745458009%_) - (let ((_%L58012%_ _%tl5744857989%_) - (_%L58014%_ _%hd5745558006%_) - (_%L58015%_ _%hd5745257996%_)) - (if (gx#identifier? _%L58015%_) - (_%__kont7722177222%_ - _%L58012%_ - _%L58014%_ - _%L58015%_) - (_%__match7727377274%_ - _%e5745057982%_ - _%hd5744957986%_ - _%tl5744857989%_ - _%e5745357992%_ - _%hd5745257996%_ - _%tl5745157999%_))))) - (_%__match7724177242%_ - (lambda (_%e5744458038%_ - _%hd5744358042%_ - _%tl5744258045%_) - (let ((_%L58048%_ _%tl5744258045%_) - (_%L58050%_ _%hd5744358042%_)) - (if (gx#identifier? _%L58050%_) - (_%__kont7721977220%_ _%L58048%_ _%L58050%_) - (if (gx#stx-pair? _%hd5744358042%_) - (let ((_%e5745357992%_ - (gx#syntax-e _%hd5744358042%_))) - (let ((_%tl5745157999%_ + (_%g5726157366%_))))))) + (_%__match7708677087%_ + (lambda (_%e5727557807%_ + _%hd5727457811%_ + _%tl5727357814%_ + _%e5727857817%_ + _%hd5727757821%_ + _%tl5727657824%_ + _%e5728157827%_ + _%hd5728057831%_ + _%tl5727957834%_) + (let ((_%L57837%_ _%tl5727357814%_) + (_%L57839%_ _%hd5728057831%_) + (_%L57840%_ _%hd5727757821%_)) + (if (gx#identifier? _%L57840%_) + (_%__kont7704677047%_ + _%L57837%_ + _%L57839%_ + _%L57840%_) + (_%__match7709877099%_ + _%e5727557807%_ + _%hd5727457811%_ + _%tl5727357814%_ + _%e5727857817%_ + _%hd5727757821%_ + _%tl5727657824%_))))) + (_%__match7706677067%_ + (lambda (_%e5726957863%_ + _%hd5726857867%_ + _%tl5726757870%_) + (let ((_%L57873%_ _%tl5726757870%_) + (_%L57875%_ _%hd5726857867%_)) + (if (gx#identifier? _%L57875%_) + (_%__kont7704477045%_ _%L57873%_ _%L57875%_) + (if (gx#stx-pair? _%hd5726857867%_) + (let ((_%e5727857817%_ + (gx#syntax-e _%hd5726857867%_))) + (let ((_%tl5727657824%_ (let () (declare (not safe)) - (##cdr _%e5745357992%_))) - (_%hd5745257996%_ + (##cdr _%e5727857817%_))) + (_%hd5727757821%_ (let () (declare (not safe)) - (##car _%e5745357992%_)))) - (if (gx#stx-pair? _%tl5745157999%_) - (let ((_%e5745658002%_ + (##car _%e5727857817%_)))) + (if (gx#stx-pair? _%tl5727657824%_) + (let ((_%e5728157827%_ (gx#syntax-e - _%tl5745157999%_))) - (let ((_%tl5745458009%_ + _%tl5727657824%_))) + (let ((_%tl5727957834%_ (let () (declare (not safe)) - (##cdr _%e5745658002%_))) - (_%hd5745558006%_ + (##cdr _%e5728157827%_))) + (_%hd5728057831%_ (let () (declare (not safe)) - (##car _%e5745658002%_)))) + (##car _%e5728157827%_)))) (if (gx#stx-null? - _%tl5745458009%_) - (_%__match7726177262%_ - _%e5744458038%_ - _%hd5744358042%_ - _%tl5744258045%_ - _%e5745357992%_ - _%hd5745257996%_ - _%tl5745157999%_ - _%e5745658002%_ - _%hd5745558006%_ - _%tl5745458009%_) - (_%__match7727377274%_ - _%e5744458038%_ - _%hd5744358042%_ - _%tl5744258045%_ - _%e5745357992%_ - _%hd5745257996%_ - _%tl5745157999%_)))) - (_%__match7727377274%_ - _%e5744458038%_ - _%hd5744358042%_ - _%tl5744258045%_ - _%e5745357992%_ - _%hd5745257996%_ - _%tl5745157999%_)))) - (if (gx#stx-pair? _%tl5744258045%_) - (let ((_%e5747457795%_ - (gx#syntax-e _%tl5744258045%_))) - (let ((_%tl5747257802%_ + _%tl5727957834%_) + (_%__match7708677087%_ + _%e5726957863%_ + _%hd5726857867%_ + _%tl5726757870%_ + _%e5727857817%_ + _%hd5727757821%_ + _%tl5727657824%_ + _%e5728157827%_ + _%hd5728057831%_ + _%tl5727957834%_) + (_%__match7709877099%_ + _%e5726957863%_ + _%hd5726857867%_ + _%tl5726757870%_ + _%e5727857817%_ + _%hd5727757821%_ + _%tl5727657824%_)))) + (_%__match7709877099%_ + _%e5726957863%_ + _%hd5726857867%_ + _%tl5726757870%_ + _%e5727857817%_ + _%hd5727757821%_ + _%tl5727657824%_)))) + (if (gx#stx-pair? _%tl5726757870%_) + (let ((_%e5729957620%_ + (gx#syntax-e _%tl5726757870%_))) + (let ((_%tl5729757627%_ (let () (declare (not safe)) - (##cdr _%e5747457795%_))) - (_%hd5747357799%_ + (##cdr _%e5729957620%_))) + (_%hd5729857624%_ (let () (declare (not safe)) - (##car _%e5747457795%_)))) - (_%__match7728577286%_ - _%e5744458038%_ - _%hd5744358042%_ - _%tl5744258045%_ - _%e5747457795%_ - _%hd5747357799%_ - _%tl5747257802%_))) + (##car _%e5729957620%_)))) + (_%__match7711077111%_ + _%e5726957863%_ + _%hd5726857867%_ + _%tl5726757870%_ + _%e5729957620%_ + _%hd5729857624%_ + _%tl5729757627%_))) (let () (declare (not safe)) - (_%g5743657541%_))))))))) - (if (gx#stx-pair? _%__stx7721677217%_) - (let ((_%e5744458038%_ (gx#syntax-e _%__stx7721677217%_))) - (let ((_%tl5744258045%_ + (_%g5726157366%_))))))))) + (if (gx#stx-pair? _%__stx7704177042%_) + (let ((_%e5726957863%_ (gx#syntax-e _%__stx7704177042%_))) + (let ((_%tl5726757870%_ (let () (declare (not safe)) - (##cdr _%e5744458038%_))) - (_%hd5744358042%_ + (##cdr _%e5726957863%_))) + (_%hd5726857867%_ (let () (declare (not safe)) - (##car _%e5744458038%_)))) - (_%__match7724177242%_ - _%e5744458038%_ - _%hd5744358042%_ - _%tl5744258045%_))) - (let () (declare (not safe)) (_%g5743657541%_))))))))) + (##car _%e5726957863%_)))) + (_%__match7706677067%_ + _%e5726957863%_ + _%hd5726857867%_ + _%tl5726757870%_))) + (let () (declare (not safe)) (_%g5726157366%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-arguments-out| - (lambda (_%signature56997%_) - (let _%loop57000%_ ((_%rest57003%_ _%signature56997%_) - (_%has-keywords?57005%_ '#f) - (_%result57006%_ '())) - (let* ((_%__stx7733277333%_ _%rest57003%_) - (_%g5701557086%_ + (lambda (_%signature56822%_) + (let _%loop56825%_ ((_%rest56828%_ _%signature56822%_) + (_%has-keywords?56830%_ '#f) + (_%result56831%_ '())) + (let* ((_%__stx7715777158%_ _%rest56828%_) + (_%g5684056911%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7733277333%_)))) - (let ((_%__kont7733577336%_ - (lambda (_%L57404%_ _%L57406%_) - (let ((__tmp80775 (cons _%L57406%_ _%result57006%_))) - (declare (not safe)) - (_%loop57000%_ _%L57404%_ '#f __tmp80775)))) - (_%__kont7733777338%_ - (lambda (_%L57370%_ _%L57372%_) - (let ((__tmp80776 (cons _%L57372%_ _%result57006%_))) - (declare (not safe)) - (_%loop57000%_ _%L57370%_ '#f __tmp80776)))) - (_%__kont7733977340%_ - (lambda (_%L57316%_ _%L57318%_ _%L57319%_) - (let ((__tmp80777 (cons _%L57319%_ _%result57006%_))) - (declare (not safe)) - (_%loop57000%_ _%L57316%_ '#f __tmp80777)))) - (_%__kont7734177342%_ - (lambda (_%L57272%_ _%L57274%_ _%L57275%_) - (let ((__tmp80778 - (let ((__tmp80779 - (let () - (declare (not safe)) - (cons _%L57275%_ _%result57006%_)))) - (declare (not safe)) - (cons _%L57274%_ __tmp80779)))) - (declare (not safe)) - (_%loop57000%_ _%L57272%_ '#t __tmp80778)))) - (_%__kont7734377344%_ - (lambda (_%L57222%_ _%L57224%_ _%L57225%_ _%L57226%_) - (let ((__tmp80780 - (let ((__tmp80781 - (let () - (declare (not safe)) - (cons _%L57226%_ _%result57006%_)))) - (declare (not safe)) - (cons _%L57225%_ __tmp80781)))) - (declare (not safe)) - (_%loop57000%_ _%L57222%_ '#t __tmp80780)))) - (_%__kont7734577346%_ - (lambda (_%L57154%_ _%L57156%_ _%L57157%_ _%L57158%_) - (let ((__tmp80782 - (let ((__tmp80783 - (let () - (declare (not safe)) - (cons _%L57158%_ _%result57006%_)))) - (declare (not safe)) - (cons _%L57157%_ __tmp80783)))) - (declare (not safe)) - (_%loop57000%_ _%L57154%_ '#t __tmp80782)))) - (_%__kont7734777348%_ - (lambda (_%L57104%_) - (foldl cons (cons _%L57104%_ '()) _%result57006%_))) - (_%__kont7734977350%_ - (lambda () (reverse! _%result57006%_)))) - (let* ((_%g5701357117%_ + _%__stx7715777158%_)))) + (let ((_%__kont7716077161%_ + (lambda (_%L57229%_ _%L57231%_) + (_%loop56825%_ + _%L57229%_ + '#f + (cons _%L57231%_ _%result56831%_)))) + (_%__kont7716277163%_ + (lambda (_%L57195%_ _%L57197%_) + (_%loop56825%_ + _%L57195%_ + '#f + (cons _%L57197%_ _%result56831%_)))) + (_%__kont7716477165%_ + (lambda (_%L57141%_ _%L57143%_ _%L57144%_) + (_%loop56825%_ + _%L57141%_ + '#f + (cons _%L57144%_ _%result56831%_)))) + (_%__kont7716677167%_ + (lambda (_%L57097%_ _%L57099%_ _%L57100%_) + (_%loop56825%_ + _%L57097%_ + '#t + (cons _%L57099%_ (cons _%L57100%_ _%result56831%_))))) + (_%__kont7716877169%_ + (lambda (_%L57047%_ _%L57049%_ _%L57050%_ _%L57051%_) + (_%loop56825%_ + _%L57047%_ + '#t + (cons _%L57050%_ (cons _%L57051%_ _%result56831%_))))) + (_%__kont7717077171%_ + (lambda (_%L56979%_ _%L56981%_ _%L56982%_ _%L56983%_) + (_%loop56825%_ + _%L56979%_ + '#t + (cons _%L56982%_ (cons _%L56983%_ _%result56831%_))))) + (_%__kont7717277173%_ + (lambda (_%L56929%_) + (foldl cons (cons _%L56929%_ '()) _%result56831%_))) + (_%__kont7717477175%_ + (lambda () (reverse! _%result56831%_)))) + (let* ((_%g5683856942%_ (lambda () - (let ((_%L57104%_ _%__stx7733277333%_)) - (if (gx#identifier? _%L57104%_) - (_%__kont7734777348%_ _%L57104%_) - (_%__kont7734977350%_))))) - (_%__match7744577446%_ - (lambda (_%e5707357124%_ - _%hd5707257128%_ - _%tl5707157131%_ - _%e5707657134%_ - _%hd5707557138%_ - _%tl5707457141%_ - _%e5707957144%_ - _%hd5707857148%_ - _%tl5707757151%_) - (let ((_%L57154%_ _%tl5707457141%_) - (_%L57156%_ _%tl5707757151%_) - (_%L57157%_ _%hd5707857148%_) - (_%L57158%_ _%hd5707257128%_)) - (if (and (gx#stx-keyword? _%L57158%_) - (gx#identifier? _%L57157%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57156%_))) - (_%__kont7734577346%_ - _%L57154%_ - _%L57156%_ - _%L57157%_ - _%L57158%_) + (let ((_%L56929%_ _%__stx7715777158%_)) + (if (gx#identifier? _%L56929%_) + (_%__kont7717277173%_ _%L56929%_) + (_%__kont7717477175%_))))) + (_%__match7727077271%_ + (lambda (_%e5689856949%_ + _%hd5689756953%_ + _%tl5689656956%_ + _%e5690156959%_ + _%hd5690056963%_ + _%tl5689956966%_ + _%e5690456969%_ + _%hd5690356973%_ + _%tl5690256976%_) + (let ((_%L56979%_ _%tl5689956966%_) + (_%L56981%_ _%tl5690256976%_) + (_%L56982%_ _%hd5690356973%_) + (_%L56983%_ _%hd5689756953%_)) + (if (and (gx#stx-keyword? _%L56983%_) + (gx#identifier? _%L56982%_) + (|gerbil/core/contract~Interface[1]#signature-contract?| + _%L56981%_)) + (_%__kont7717077171%_ + _%L56979%_ + _%L56981%_ + _%L56982%_ + _%L56983%_) (let () (declare (not safe)) - (_%g5701357117%_)))))) - (_%__match7742777428%_ - (lambda (_%e5705757182%_ - _%hd5705657186%_ - _%tl5705557189%_ - _%e5706057192%_ - _%hd5705957196%_ - _%tl5705857199%_ - _%e5706357202%_ - _%hd5706257206%_ - _%tl5706157209%_ - _%e5706657212%_ - _%hd5706557216%_ - _%tl5706457219%_) - (let ((_%L57222%_ _%tl5705857199%_) - (_%L57224%_ _%hd5706557216%_) - (_%L57225%_ _%hd5706257206%_) - (_%L57226%_ _%hd5705657186%_)) - (if (and (gx#stx-keyword? _%L57226%_) - (gx#identifier? _%L57225%_)) - (_%__kont7734377344%_ - _%L57222%_ - _%L57224%_ - _%L57225%_ - _%L57226%_) - (_%__match7744577446%_ - _%e5705757182%_ - _%hd5705657186%_ - _%tl5705557189%_ - _%e5706057192%_ - _%hd5705957196%_ - _%tl5705857199%_ - _%e5706357202%_ - _%hd5706257206%_ - _%tl5706157209%_))))) - (_%__match7740177402%_ - (lambda (_%e5704757252%_ - _%hd5704657256%_ - _%tl5704557259%_ - _%e5705057262%_ - _%hd5704957266%_ - _%tl5704857269%_) - (let ((_%L57272%_ _%tl5704857269%_) - (_%L57274%_ _%hd5704957266%_) - (_%L57275%_ _%hd5704657256%_)) - (if (and (gx#stx-keyword? _%L57275%_) - (gx#identifier? _%L57274%_)) - (_%__kont7734177342%_ - _%L57272%_ - _%L57274%_ - _%L57275%_) - (if (gx#stx-pair? _%hd5704957266%_) - (let ((_%e5706357202%_ - (gx#syntax-e _%hd5704957266%_))) - (let ((_%tl5706157209%_ + (_%g5683856942%_)))))) + (_%__match7725277253%_ + (lambda (_%e5688257007%_ + _%hd5688157011%_ + _%tl5688057014%_ + _%e5688557017%_ + _%hd5688457021%_ + _%tl5688357024%_ + _%e5688857027%_ + _%hd5688757031%_ + _%tl5688657034%_ + _%e5689157037%_ + _%hd5689057041%_ + _%tl5688957044%_) + (let ((_%L57047%_ _%tl5688357024%_) + (_%L57049%_ _%hd5689057041%_) + (_%L57050%_ _%hd5688757031%_) + (_%L57051%_ _%hd5688157011%_)) + (if (and (gx#stx-keyword? _%L57051%_) + (gx#identifier? _%L57050%_)) + (_%__kont7716877169%_ + _%L57047%_ + _%L57049%_ + _%L57050%_ + _%L57051%_) + (_%__match7727077271%_ + _%e5688257007%_ + _%hd5688157011%_ + _%tl5688057014%_ + _%e5688557017%_ + _%hd5688457021%_ + _%tl5688357024%_ + _%e5688857027%_ + _%hd5688757031%_ + _%tl5688657034%_))))) + (_%__match7722677227%_ + (lambda (_%e5687257077%_ + _%hd5687157081%_ + _%tl5687057084%_ + _%e5687557087%_ + _%hd5687457091%_ + _%tl5687357094%_) + (let ((_%L57097%_ _%tl5687357094%_) + (_%L57099%_ _%hd5687457091%_) + (_%L57100%_ _%hd5687157081%_)) + (if (and (gx#stx-keyword? _%L57100%_) + (gx#identifier? _%L57099%_)) + (_%__kont7716677167%_ + _%L57097%_ + _%L57099%_ + _%L57100%_) + (if (gx#stx-pair? _%hd5687457091%_) + (let ((_%e5688857027%_ + (gx#syntax-e _%hd5687457091%_))) + (let ((_%tl5688657034%_ (let () (declare (not safe)) - (##cdr _%e5706357202%_))) - (_%hd5706257206%_ + (##cdr _%e5688857027%_))) + (_%hd5688757031%_ (let () (declare (not safe)) - (##car _%e5706357202%_)))) - (if (gx#stx-pair? _%tl5706157209%_) - (let ((_%e5706657212%_ + (##car _%e5688857027%_)))) + (if (gx#stx-pair? _%tl5688657034%_) + (let ((_%e5689157037%_ (gx#syntax-e - _%tl5706157209%_))) - (let ((_%tl5706457219%_ + _%tl5688657034%_))) + (let ((_%tl5688957044%_ (let () (declare (not safe)) - (##cdr _%e5706657212%_))) - (_%hd5706557216%_ + (##cdr _%e5689157037%_))) + (_%hd5689057041%_ (let () (declare (not safe)) - (##car _%e5706657212%_)))) + (##car _%e5689157037%_)))) (if (gx#stx-null? - _%tl5706457219%_) - (_%__match7742777428%_ - _%e5704757252%_ - _%hd5704657256%_ - _%tl5704557259%_ - _%e5705057262%_ - _%hd5704957266%_ - _%tl5704857269%_ - _%e5706357202%_ - _%hd5706257206%_ - _%tl5706157209%_ - _%e5706657212%_ - _%hd5706557216%_ - _%tl5706457219%_) - (_%__match7744577446%_ - _%e5704757252%_ - _%hd5704657256%_ - _%tl5704557259%_ - _%e5705057262%_ - _%hd5704957266%_ - _%tl5704857269%_ - _%e5706357202%_ - _%hd5706257206%_ - _%tl5706157209%_)))) - (_%__match7744577446%_ - _%e5704757252%_ - _%hd5704657256%_ - _%tl5704557259%_ - _%e5705057262%_ - _%hd5704957266%_ - _%tl5704857269%_ - _%e5706357202%_ - _%hd5706257206%_ - _%tl5706157209%_)))) + _%tl5688957044%_) + (_%__match7725277253%_ + _%e5687257077%_ + _%hd5687157081%_ + _%tl5687057084%_ + _%e5687557087%_ + _%hd5687457091%_ + _%tl5687357094%_ + _%e5688857027%_ + _%hd5688757031%_ + _%tl5688657034%_ + _%e5689157037%_ + _%hd5689057041%_ + _%tl5688957044%_) + (_%__match7727077271%_ + _%e5687257077%_ + _%hd5687157081%_ + _%tl5687057084%_ + _%e5687557087%_ + _%hd5687457091%_ + _%tl5687357094%_ + _%e5688857027%_ + _%hd5688757031%_ + _%tl5688657034%_)))) + (_%__match7727077271%_ + _%e5687257077%_ + _%hd5687157081%_ + _%tl5687057084%_ + _%e5687557087%_ + _%hd5687457091%_ + _%tl5687357094%_ + _%e5688857027%_ + _%hd5688757031%_ + _%tl5688657034%_)))) (let () (declare (not safe)) - (_%g5701357117%_))))))) - (_%__match7738977390%_ - (lambda (_%e5703857296%_ - _%hd5703757300%_ - _%tl5703657303%_ - _%e5704157306%_ - _%hd5704057310%_ - _%tl5703957313%_) - (let ((_%L57316%_ _%tl5703657303%_) - (_%L57318%_ _%tl5703957313%_) - (_%L57319%_ _%hd5704057310%_)) - (if (and (gx#identifier? _%L57319%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57318%_))) - (_%__kont7733977340%_ - _%L57316%_ - _%L57318%_ - _%L57319%_) - (if (gx#stx-pair? _%tl5703657303%_) - (let ((_%e5705057262%_ - (gx#syntax-e _%tl5703657303%_))) - (let ((_%tl5704857269%_ + (_%g5683856942%_))))))) + (_%__match7721477215%_ + (lambda (_%e5686357121%_ + _%hd5686257125%_ + _%tl5686157128%_ + _%e5686657131%_ + _%hd5686557135%_ + _%tl5686457138%_) + (let ((_%L57141%_ _%tl5686157128%_) + (_%L57143%_ _%tl5686457138%_) + (_%L57144%_ _%hd5686557135%_)) + (if (and (gx#identifier? _%L57144%_) + (|gerbil/core/contract~Interface[1]#signature-contract?| + _%L57143%_)) + (_%__kont7716477165%_ + _%L57141%_ + _%L57143%_ + _%L57144%_) + (if (gx#stx-pair? _%tl5686157128%_) + (let ((_%e5687557087%_ + (gx#syntax-e _%tl5686157128%_))) + (let ((_%tl5687357094%_ (let () (declare (not safe)) - (##cdr _%e5705057262%_))) - (_%hd5704957266%_ + (##cdr _%e5687557087%_))) + (_%hd5687457091%_ (let () (declare (not safe)) - (##car _%e5705057262%_)))) - (_%__match7740177402%_ - _%e5703857296%_ - _%hd5703757300%_ - _%tl5703657303%_ - _%e5705057262%_ - _%hd5704957266%_ - _%tl5704857269%_))) + (##car _%e5687557087%_)))) + (_%__match7722677227%_ + _%e5686357121%_ + _%hd5686257125%_ + _%tl5686157128%_ + _%e5687557087%_ + _%hd5687457091%_ + _%tl5687357094%_))) (let () (declare (not safe)) - (_%g5701357117%_))))))) - (_%__match7737777378%_ - (lambda (_%e5702657340%_ - _%hd5702557344%_ - _%tl5702457347%_ - _%e5702957350%_ - _%hd5702857354%_ - _%tl5702757357%_ - _%e5703257360%_ - _%hd5703157364%_ - _%tl5703057367%_) - (let ((_%L57370%_ _%tl5702457347%_) - (_%L57372%_ _%hd5702857354%_)) - (if (gx#identifier? _%L57372%_) - (_%__kont7733777338%_ _%L57370%_ _%L57372%_) - (_%__match7738977390%_ - _%e5702657340%_ - _%hd5702557344%_ - _%tl5702457347%_ - _%e5702957350%_ - _%hd5702857354%_ - _%tl5702757357%_))))) - (_%__match7735777358%_ - (lambda (_%e5702157394%_ - _%hd5702057398%_ - _%tl5701957401%_) - (let ((_%L57404%_ _%tl5701957401%_) - (_%L57406%_ _%hd5702057398%_)) - (if (gx#identifier? _%L57406%_) - (_%__kont7733577336%_ _%L57404%_ _%L57406%_) - (if (gx#stx-pair? _%hd5702057398%_) - (let ((_%e5702957350%_ - (gx#syntax-e _%hd5702057398%_))) - (let ((_%tl5702757357%_ + (_%g5683856942%_))))))) + (_%__match7720277203%_ + (lambda (_%e5685157165%_ + _%hd5685057169%_ + _%tl5684957172%_ + _%e5685457175%_ + _%hd5685357179%_ + _%tl5685257182%_ + _%e5685757185%_ + _%hd5685657189%_ + _%tl5685557192%_) + (let ((_%L57195%_ _%tl5684957172%_) + (_%L57197%_ _%hd5685357179%_)) + (if (gx#identifier? _%L57197%_) + (_%__kont7716277163%_ _%L57195%_ _%L57197%_) + (_%__match7721477215%_ + _%e5685157165%_ + _%hd5685057169%_ + _%tl5684957172%_ + _%e5685457175%_ + _%hd5685357179%_ + _%tl5685257182%_))))) + (_%__match7718277183%_ + (lambda (_%e5684657219%_ + _%hd5684557223%_ + _%tl5684457226%_) + (let ((_%L57229%_ _%tl5684457226%_) + (_%L57231%_ _%hd5684557223%_)) + (if (gx#identifier? _%L57231%_) + (_%__kont7716077161%_ _%L57229%_ _%L57231%_) + (if (gx#stx-pair? _%hd5684557223%_) + (let ((_%e5685457175%_ + (gx#syntax-e _%hd5684557223%_))) + (let ((_%tl5685257182%_ (let () (declare (not safe)) - (##cdr _%e5702957350%_))) - (_%hd5702857354%_ + (##cdr _%e5685457175%_))) + (_%hd5685357179%_ (let () (declare (not safe)) - (##car _%e5702957350%_)))) - (if (gx#stx-pair? _%tl5702757357%_) - (let ((_%e5703257360%_ + (##car _%e5685457175%_)))) + (if (gx#stx-pair? _%tl5685257182%_) + (let ((_%e5685757185%_ (gx#syntax-e - _%tl5702757357%_))) - (let ((_%tl5703057367%_ + _%tl5685257182%_))) + (let ((_%tl5685557192%_ (let () (declare (not safe)) - (##cdr _%e5703257360%_))) - (_%hd5703157364%_ + (##cdr _%e5685757185%_))) + (_%hd5685657189%_ (let () (declare (not safe)) - (##car _%e5703257360%_)))) + (##car _%e5685757185%_)))) (if (gx#stx-null? - _%tl5703057367%_) - (_%__match7737777378%_ - _%e5702157394%_ - _%hd5702057398%_ - _%tl5701957401%_ - _%e5702957350%_ - _%hd5702857354%_ - _%tl5702757357%_ - _%e5703257360%_ - _%hd5703157364%_ - _%tl5703057367%_) - (_%__match7738977390%_ - _%e5702157394%_ - _%hd5702057398%_ - _%tl5701957401%_ - _%e5702957350%_ - _%hd5702857354%_ - _%tl5702757357%_)))) - (_%__match7738977390%_ - _%e5702157394%_ - _%hd5702057398%_ - _%tl5701957401%_ - _%e5702957350%_ - _%hd5702857354%_ - _%tl5702757357%_)))) - (if (gx#stx-pair? _%tl5701957401%_) - (let ((_%e5705057262%_ - (gx#syntax-e _%tl5701957401%_))) - (let ((_%tl5704857269%_ + _%tl5685557192%_) + (_%__match7720277203%_ + _%e5684657219%_ + _%hd5684557223%_ + _%tl5684457226%_ + _%e5685457175%_ + _%hd5685357179%_ + _%tl5685257182%_ + _%e5685757185%_ + _%hd5685657189%_ + _%tl5685557192%_) + (_%__match7721477215%_ + _%e5684657219%_ + _%hd5684557223%_ + _%tl5684457226%_ + _%e5685457175%_ + _%hd5685357179%_ + _%tl5685257182%_)))) + (_%__match7721477215%_ + _%e5684657219%_ + _%hd5684557223%_ + _%tl5684457226%_ + _%e5685457175%_ + _%hd5685357179%_ + _%tl5685257182%_)))) + (if (gx#stx-pair? _%tl5684457226%_) + (let ((_%e5687557087%_ + (gx#syntax-e _%tl5684457226%_))) + (let ((_%tl5687357094%_ (let () (declare (not safe)) - (##cdr _%e5705057262%_))) - (_%hd5704957266%_ + (##cdr _%e5687557087%_))) + (_%hd5687457091%_ (let () (declare (not safe)) - (##car _%e5705057262%_)))) - (_%__match7740177402%_ - _%e5702157394%_ - _%hd5702057398%_ - _%tl5701957401%_ - _%e5705057262%_ - _%hd5704957266%_ - _%tl5704857269%_))) + (##car _%e5687557087%_)))) + (_%__match7722677227%_ + _%e5684657219%_ + _%hd5684557223%_ + _%tl5684457226%_ + _%e5687557087%_ + _%hd5687457091%_ + _%tl5687357094%_))) (let () (declare (not safe)) - (_%g5701357117%_))))))))) - (if (gx#stx-pair? _%__stx7733277333%_) - (let ((_%e5702157394%_ (gx#syntax-e _%__stx7733277333%_))) - (let ((_%tl5701957401%_ + (_%g5683856942%_))))))))) + (if (gx#stx-pair? _%__stx7715777158%_) + (let ((_%e5684657219%_ (gx#syntax-e _%__stx7715777158%_))) + (let ((_%tl5684457226%_ (let () (declare (not safe)) - (##cdr _%e5702157394%_))) - (_%hd5702057398%_ + (##cdr _%e5684657219%_))) + (_%hd5684557223%_ (let () (declare (not safe)) - (##car _%e5702157394%_)))) - (_%__match7735777358%_ - _%e5702157394%_ - _%hd5702057398%_ - _%tl5701957401%_))) - (let () (declare (not safe)) (_%g5701357117%_))))))))) + (##car _%e5684657219%_)))) + (_%__match7718277183%_ + _%e5684657219%_ + _%hd5684557223%_ + _%tl5684457226%_))) + (let () (declare (not safe)) (_%g5683856942%_))))))))) (define |gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| - (lambda (_%stx56986%_ - _%self56988%_ - _%Interface56989%_ - _%signature56990%_ - _%return56991%_ - _%unchecked-proc56992%_) - (if (gx#stx-e _%unchecked-proc56992%_) - (let ((__tmp80784 - (cons (cons _%self56988%_ - (cons ': (cons _%Interface56989%_ '()))) - _%signature56990%_))) - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - _%stx56986%_ - __tmp80784 - _%return56991%_ - _%unchecked-proc56992%_)) - (let ((_%return-type56994%_ + (lambda (_%stx56811%_ + _%self56813%_ + _%Interface56814%_ + _%signature56815%_ + _%return56816%_ + _%unchecked-proc56817%_) + (if (gx#stx-e _%unchecked-proc56817%_) + (|gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| + _%stx56811%_ + (cons (cons _%self56813%_ (cons ': (cons _%Interface56814%_ '()))) + _%signature56815%_) + _%return56816%_ + _%unchecked-proc56817%_) + (let ((_%return-type56819%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56986%_ - _%return56991%_)))) - (cons 'return: (cons _%return-type56994%_ '())))))) + _%stx56811%_ + _%return56816%_)))) + (cons 'return: (cons _%return-type56819%_ '())))))) (define |gerbil/core/contract~Interface[1]#make-interface-method-contract| - (lambda (_%stx56979%_ - _%self56981%_ - _%Interface56982%_ - _%signature56983%_ - _%checked?56984%_) - (let ((__tmp80785 - (cons (cons _%self56981%_ - (cons (if _%checked?56984%_ ': '::-) - (cons _%Interface56982%_ '()))) - _%signature56983%_))) - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx56979%_ - __tmp80785 - _%checked?56984%_)))) + (lambda (_%stx56804%_ + _%self56806%_ + _%Interface56807%_ + _%signature56808%_ + _%checked?56809%_) + (|gerbil/core/contract~Interface[1]#make-procedure-contract| + _%stx56804%_ + (cons (cons _%self56806%_ + (cons (if _%checked?56809%_ ': '::-) + (cons _%Interface56807%_ '()))) + _%signature56808%_) + _%checked?56809%_))) (define |gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - (lambda (_%stx56212%_ - _%signature56214%_ - _%return56215%_ - _%unchecked56216%_) - (letrec ((_%type-e56218%_ - (lambda (_%contract56668%_) - (let* ((_%__stx7744877449%_ _%contract56668%_) - (_%g5667556730%_ + (lambda (_%stx56037%_ + _%signature56039%_ + _%return56040%_ + _%unchecked56041%_) + (letrec ((_%type-e56043%_ + (lambda (_%contract56493%_) + (let* ((_%__stx7727377274%_ _%contract56493%_) + (_%g5650056555%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7744877449%_)))) - (let ((_%__kont7745177452%_ - (lambda (_%L56960%_ _%L56962%_) + _%__stx7727377274%_)))) + (let ((_%__kont7727677277%_ + (lambda (_%L56785%_ _%L56787%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56212%_ - _%L56962%_)))) - (_%__kont7745377454%_ - (lambda (_%L56912%_ _%L56914%_ _%L56915%_) + _%stx56037%_ + _%L56787%_)))) + (_%__kont7727877279%_ + (lambda (_%L56737%_ _%L56739%_ _%L56740%_) (gx#core-quote-syntax 't::t))) - (_%__kont7745577456%_ - (lambda (_%L56864%_ _%L56866%_ _%L56867%_) + (_%__kont7728077281%_ + (lambda (_%L56689%_ _%L56691%_ _%L56692%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56212%_ - _%L56866%_)))) - (_%__kont7745777458%_ - (lambda (_%L56788%_ - _%L56790%_ - _%L56791%_ - _%L56792%_) + _%stx56037%_ + _%L56691%_)))) + (_%__kont7728277283%_ + (lambda (_%L56613%_ + _%L56615%_ + _%L56616%_ + _%L56617%_) (gx#core-quote-syntax 't::t))) - (_%__kont7745977460%_ (lambda () '#f))) - (let* ((_%__match7754977550%_ - (lambda (_%e5671556748%_ - _%hd5671456752%_ - _%tl5671356755%_ - _%e5671856758%_ - _%hd5671756762%_ - _%tl5671656765%_ - _%e5672156768%_ - _%hd5672056772%_ - _%tl5671956775%_ - _%e5672456778%_ - _%hd5672356782%_ - _%tl5672256785%_) - (let ((_%L56788%_ _%tl5672256785%_) - (_%L56790%_ _%hd5672356782%_) - (_%L56791%_ _%hd5672056772%_) - (_%L56792%_ _%hd5671756762%_)) - (if (and (gx#identifier? _%L56791%_) + (_%__kont7728477285%_ (lambda () '#f))) + (let* ((_%__match7737477375%_ + (lambda (_%e5654056573%_ + _%hd5653956577%_ + _%tl5653856580%_ + _%e5654356583%_ + _%hd5654256587%_ + _%tl5654156590%_ + _%e5654656593%_ + _%hd5654556597%_ + _%tl5654456600%_ + _%e5654956603%_ + _%hd5654856607%_ + _%tl5654756610%_) + (let ((_%L56613%_ _%tl5654756610%_) + (_%L56615%_ _%hd5654856607%_) + (_%L56616%_ _%hd5654556597%_) + (_%L56617%_ _%hd5654256587%_)) + (if (and (gx#identifier? _%L56616%_) (or (gx#free-identifier=? - _%L56791%_ + _%L56616%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L56791%_ + _%L56616%_ (gx#datum->syntax '#f '::-)))) - (_%__kont7745777458%_ - _%L56788%_ - _%L56790%_ - _%L56791%_ - _%L56792%_) - (_%__kont7745977460%_))))) - (_%__match7748977490%_ - (lambda (_%e5669056892%_ - _%hd5668956896%_ - _%tl5668856899%_ - _%e5669356902%_ - _%hd5669256906%_ - _%tl5669156909%_) - (let ((_%L56912%_ _%tl5669156909%_) - (_%L56914%_ _%hd5669256906%_) - (_%L56915%_ _%hd5668956896%_)) - (if (and (gx#identifier? _%L56915%_) + (_%__kont7728277283%_ + _%L56613%_ + _%L56615%_ + _%L56616%_ + _%L56617%_) + (_%__kont7728477285%_))))) + (_%__match7731477315%_ + (lambda (_%e5651556717%_ + _%hd5651456721%_ + _%tl5651356724%_ + _%e5651856727%_ + _%hd5651756731%_ + _%tl5651656734%_) + (let ((_%L56737%_ _%tl5651656734%_) + (_%L56739%_ _%hd5651756731%_) + (_%L56740%_ _%hd5651456721%_)) + (if (and (gx#identifier? _%L56740%_) (or (gx#free-identifier=? - _%L56915%_ + _%L56740%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L56915%_ + _%L56740%_ (gx#datum->syntax '#f '::-)))) - (_%__kont7745377454%_ - _%L56912%_ - _%L56914%_ - _%L56915%_) - (if (gx#identifier? _%hd5668956896%_) + (_%__kont7727877279%_ + _%L56737%_ + _%L56739%_ + _%L56740%_) + (if (gx#identifier? _%hd5651456721%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80786_| - _%hd5668956896%_) + |gerbil/core/contract~Interface[1]#_g80559_| + _%hd5651456721%_) (if (gx#stx-pair? - _%tl5669156909%_) - (let ((_%e5670556844%_ + _%tl5651656734%_) + (let ((_%e5653056669%_ (gx#syntax-e - _%tl5669156909%_))) - (let ((_%tl5670356851%_ + _%tl5651656734%_))) + (let ((_%tl5652856676%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5670556844%_))) - (_%hd5670456848%_ - (let () (declare (not safe)) (##car _%e5670556844%_)))) - (if (gx#identifier? _%hd5670456848%_) + (##cdr _%e5653056669%_))) + (_%hd5652956673%_ + (let () (declare (not safe)) (##car _%e5653056669%_)))) + (if (gx#identifier? _%hd5652956673%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80787_| - _%hd5670456848%_) - (if (gx#stx-pair? _%tl5670356851%_) - (let ((_%e5670856854%_ - (gx#syntax-e _%tl5670356851%_))) - (let ((_%tl5670656861%_ + |gerbil/core/contract~Interface[1]#_g80560_| + _%hd5652956673%_) + (if (gx#stx-pair? _%tl5652856676%_) + (let ((_%e5653356679%_ + (gx#syntax-e _%tl5652856676%_))) + (let ((_%tl5653156686%_ (let () (declare (not safe)) - (##cdr _%e5670856854%_))) - (_%hd5670756858%_ + (##cdr _%e5653356679%_))) + (_%hd5653256683%_ (let () (declare (not safe)) - (##car _%e5670856854%_)))) - (_%__kont7745577456%_ - _%tl5670656861%_ - _%hd5670756858%_ - _%hd5669256906%_))) - (_%__kont7745977460%_)) - (if (gx#stx-pair? _%tl5670356851%_) - (let ((_%e5672456778%_ - (gx#syntax-e _%tl5670356851%_))) - (let ((_%tl5672256785%_ + (##car _%e5653356679%_)))) + (_%__kont7728077281%_ + _%tl5653156686%_ + _%hd5653256683%_ + _%hd5651756731%_))) + (_%__kont7728477285%_)) + (if (gx#stx-pair? _%tl5652856676%_) + (let ((_%e5654956603%_ + (gx#syntax-e _%tl5652856676%_))) + (let ((_%tl5654756610%_ (let () (declare (not safe)) - (##cdr _%e5672456778%_))) - (_%hd5672356782%_ + (##cdr _%e5654956603%_))) + (_%hd5654856607%_ (let () (declare (not safe)) - (##car _%e5672456778%_)))) - (_%__match7754977550%_ - _%e5669056892%_ - _%hd5668956896%_ - _%tl5668856899%_ - _%e5669356902%_ - _%hd5669256906%_ - _%tl5669156909%_ - _%e5670556844%_ - _%hd5670456848%_ - _%tl5670356851%_ - _%e5672456778%_ - _%hd5672356782%_ - _%tl5672256785%_))) - (_%__kont7745977460%_))) - (if (gx#stx-pair? _%tl5670356851%_) - (let ((_%e5672456778%_ (gx#syntax-e _%tl5670356851%_))) - (let ((_%tl5672256785%_ + (##car _%e5654956603%_)))) + (_%__match7737477375%_ + _%e5651556717%_ + _%hd5651456721%_ + _%tl5651356724%_ + _%e5651856727%_ + _%hd5651756731%_ + _%tl5651656734%_ + _%e5653056669%_ + _%hd5652956673%_ + _%tl5652856676%_ + _%e5654956603%_ + _%hd5654856607%_ + _%tl5654756610%_))) + (_%__kont7728477285%_))) + (if (gx#stx-pair? _%tl5652856676%_) + (let ((_%e5654956603%_ (gx#syntax-e _%tl5652856676%_))) + (let ((_%tl5654756610%_ (let () (declare (not safe)) - (##cdr _%e5672456778%_))) - (_%hd5672356782%_ + (##cdr _%e5654956603%_))) + (_%hd5654856607%_ (let () (declare (not safe)) - (##car _%e5672456778%_)))) - (_%__match7754977550%_ - _%e5669056892%_ - _%hd5668956896%_ - _%tl5668856899%_ - _%e5669356902%_ - _%hd5669256906%_ - _%tl5669156909%_ - _%e5670556844%_ - _%hd5670456848%_ - _%tl5670356851%_ - _%e5672456778%_ - _%hd5672356782%_ - _%tl5672256785%_))) - (_%__kont7745977460%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7745977460%_)) - (_%__kont7745977460%_)) - (_%__kont7745977460%_))))))) - (if (gx#stx-pair? _%__stx7744877449%_) - (let ((_%e5668156940%_ - (gx#syntax-e _%__stx7744877449%_))) - (let ((_%tl5667956947%_ + (##car _%e5654956603%_)))) + (_%__match7737477375%_ + _%e5651556717%_ + _%hd5651456721%_ + _%tl5651356724%_ + _%e5651856727%_ + _%hd5651756731%_ + _%tl5651656734%_ + _%e5653056669%_ + _%hd5652956673%_ + _%tl5652856676%_ + _%e5654956603%_ + _%hd5654856607%_ + _%tl5654756610%_))) + (_%__kont7728477285%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7728477285%_)) + (_%__kont7728477285%_)) + (_%__kont7728477285%_))))))) + (if (gx#stx-pair? _%__stx7727377274%_) + (let ((_%e5650656765%_ + (gx#syntax-e _%__stx7727377274%_))) + (let ((_%tl5650456772%_ (let () (declare (not safe)) - (##cdr _%e5668156940%_))) - (_%hd5668056944%_ + (##cdr _%e5650656765%_))) + (_%hd5650556769%_ (let () (declare (not safe)) - (##car _%e5668156940%_)))) - (if (gx#identifier? _%hd5668056944%_) + (##car _%e5650656765%_)))) + (if (gx#identifier? _%hd5650556769%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80788_| - _%hd5668056944%_) - (if (gx#stx-pair? _%tl5667956947%_) - (let ((_%e5668456950%_ + |gerbil/core/contract~Interface[1]#_g80561_| + _%hd5650556769%_) + (if (gx#stx-pair? _%tl5650456772%_) + (let ((_%e5650956775%_ (gx#syntax-e - _%tl5667956947%_))) - (let ((_%tl5668256957%_ + _%tl5650456772%_))) + (let ((_%tl5650756782%_ (let () (declare (not safe)) - (##cdr _%e5668456950%_))) - (_%hd5668356954%_ + (##cdr _%e5650956775%_))) + (_%hd5650856779%_ (let () (declare (not safe)) - (##car _%e5668456950%_)))) - (_%__kont7745177452%_ - _%tl5668256957%_ - _%hd5668356954%_))) - (_%__kont7745977460%_)) - (if (gx#stx-pair? _%tl5667956947%_) - (let ((_%e5669356902%_ + (##car _%e5650956775%_)))) + (_%__kont7727677277%_ + _%tl5650756782%_ + _%hd5650856779%_))) + (_%__kont7728477285%_)) + (if (gx#stx-pair? _%tl5650456772%_) + (let ((_%e5651856727%_ (gx#syntax-e - _%tl5667956947%_))) - (let ((_%tl5669156909%_ + _%tl5650456772%_))) + (let ((_%tl5651656734%_ (let () (declare (not safe)) - (##cdr _%e5669356902%_))) - (_%hd5669256906%_ + (##cdr _%e5651856727%_))) + (_%hd5651756731%_ (let () (declare (not safe)) - (##car _%e5669356902%_)))) - (_%__match7748977490%_ - _%e5668156940%_ - _%hd5668056944%_ - _%tl5667956947%_ - _%e5669356902%_ - _%hd5669256906%_ - _%tl5669156909%_))) - (_%__kont7745977460%_))) - (if (gx#stx-pair? _%tl5667956947%_) - (let ((_%e5669356902%_ + (##car _%e5651856727%_)))) + (_%__match7731477315%_ + _%e5650656765%_ + _%hd5650556769%_ + _%tl5650456772%_ + _%e5651856727%_ + _%hd5651756731%_ + _%tl5651656734%_))) + (_%__kont7728477285%_))) + (if (gx#stx-pair? _%tl5650456772%_) + (let ((_%e5651856727%_ (gx#syntax-e - _%tl5667956947%_))) - (let ((_%tl5669156909%_ + _%tl5650456772%_))) + (let ((_%tl5651656734%_ (let () (declare (not safe)) - (##cdr _%e5669356902%_))) - (_%hd5669256906%_ + (##cdr _%e5651856727%_))) + (_%hd5651756731%_ (let () (declare (not safe)) - (##car _%e5669356902%_)))) - (_%__match7748977490%_ - _%e5668156940%_ - _%hd5668056944%_ - _%tl5667956947%_ - _%e5669356902%_ - _%hd5669256906%_ - _%tl5669156909%_))) - (_%__kont7745977460%_))))) - (_%__kont7745977460%_)))))))) - (let _%loop56221%_ ((_%rest56224%_ _%signature56214%_) - (_%has-keywords?56226%_ '#f) - (_%result56227%_ '())) - (let* ((_%__stx7755277553%_ _%rest56224%_) - (_%g5623656306%_ + (##car _%e5651856727%_)))) + (_%__match7731477315%_ + _%e5650656765%_ + _%hd5650556769%_ + _%tl5650456772%_ + _%e5651856727%_ + _%hd5651756731%_ + _%tl5651656734%_))) + (_%__kont7728477285%_))))) + (_%__kont7728477285%_)))))))) + (let _%loop56046%_ ((_%rest56049%_ _%signature56039%_) + (_%has-keywords?56051%_ '#f) + (_%result56052%_ '())) + (let* ((_%__stx7737777378%_ _%rest56049%_) + (_%g5606156131%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7755277553%_)))) - (let ((_%__kont7755577556%_ - (lambda (_%L56651%_ _%L56653%_) - (let ((__tmp80789 - (cons (gx#core-quote-syntax 't::t) - _%result56227%_))) - (declare (not safe)) - (_%loop56221%_ _%L56651%_ '#f __tmp80789)))) - (_%__kont7755777558%_ - (lambda (_%L56617%_ _%L56619%_) - (let ((__tmp80790 - (cons (gx#core-quote-syntax 't::t) - _%result56227%_))) - (declare (not safe)) - (_%loop56221%_ _%L56617%_ '#f __tmp80790)))) - (_%__kont7755977560%_ - (lambda (_%L56563%_ _%L56565%_ _%L56566%_) - (let ((__tmp80791 - (cons (let () - (declare (not safe)) - (_%type-e56218%_ _%L56565%_)) - _%result56227%_))) - (declare (not safe)) - (_%loop56221%_ _%L56563%_ '#f __tmp80791)))) - (_%__kont7756177562%_ - (lambda (_%L56519%_ _%L56521%_ _%L56522%_) - (let ((__tmp80792 - (cons (gx#core-quote-syntax 't::t) - _%result56227%_))) - (declare (not safe)) - (_%loop56221%_ _%L56519%_ '#t __tmp80792)))) - (_%__kont7756377564%_ - (lambda (_%L56471%_ _%L56473%_ _%L56474%_) - (let ((__tmp80793 - (cons (gx#core-quote-syntax 't::t) - _%result56227%_))) - (declare (not safe)) - (_%loop56221%_ _%L56471%_ '#t __tmp80793)))) - (_%__kont7756577566%_ - (lambda (_%L56403%_ _%L56405%_ _%L56406%_ _%L56407%_) - (let ((__tmp80794 - (cons (let () - (declare (not safe)) - (_%type-e56218%_ _%L56405%_)) - _%result56227%_))) - (declare (not safe)) - (_%loop56221%_ _%L56403%_ '#t __tmp80794)))) - (_%__kont7756777568%_ - (lambda (_%L56338%_) - (let* ((_%arguments56352%_ + _%__stx7737777378%_)))) + (let ((_%__kont7738077381%_ + (lambda (_%L56476%_ _%L56478%_) + (_%loop56046%_ + _%L56476%_ + '#f + (cons (gx#core-quote-syntax 't::t) _%result56052%_)))) + (_%__kont7738277383%_ + (lambda (_%L56442%_ _%L56444%_) + (_%loop56046%_ + _%L56442%_ + '#f + (cons (gx#core-quote-syntax 't::t) _%result56052%_)))) + (_%__kont7738477385%_ + (lambda (_%L56388%_ _%L56390%_ _%L56391%_) + (_%loop56046%_ + _%L56388%_ + '#f + (cons (_%type-e56043%_ _%L56390%_) _%result56052%_)))) + (_%__kont7738677387%_ + (lambda (_%L56344%_ _%L56346%_ _%L56347%_) + (_%loop56046%_ + _%L56344%_ + '#t + (cons (gx#core-quote-syntax 't::t) _%result56052%_)))) + (_%__kont7738877389%_ + (lambda (_%L56296%_ _%L56298%_ _%L56299%_) + (_%loop56046%_ + _%L56296%_ + '#t + (cons (gx#core-quote-syntax 't::t) _%result56052%_)))) + (_%__kont7739077391%_ + (lambda (_%L56228%_ _%L56230%_ _%L56231%_ _%L56232%_) + (_%loop56046%_ + _%L56228%_ + '#t + (cons (_%type-e56043%_ _%L56230%_) _%result56052%_)))) + (_%__kont7739277393%_ + (lambda (_%L56163%_) + (let* ((_%arguments56177%_ (foldl cons (gx#core-quote-syntax 't::t) - _%result56227%_)) - (_%arguments56355%_ - (if _%has-keywords?56226%_ + _%result56052%_)) + (_%arguments56180%_ + (if _%has-keywords?56051%_ (cons (gx#core-quote-syntax 't::t) - _%arguments56352%_) - _%arguments56352%_)) - (_%return-type56358%_ + _%arguments56177%_) + _%arguments56177%_)) + (_%return-type56183%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56212%_ - _%return56215%_))) - (_%unchecked56361%_ - (if (gx#stx-e _%unchecked56216%_) - (gx#core-quote-syntax _%unchecked56216%_) + _%stx56037%_ + _%return56040%_))) + (_%unchecked56186%_ + (if (gx#stx-e _%unchecked56041%_) + (gx#core-quote-syntax _%unchecked56041%_) '#f))) (cons 'arguments: - (cons _%arguments56355%_ + (cons _%arguments56180%_ (cons 'return: - (cons _%return-type56358%_ + (cons _%return-type56183%_ (cons 'unchecked: - (cons _%unchecked56361%_ + (cons _%unchecked56186%_ '()))))))))) - (_%__kont7756977570%_ + (_%__kont7739477395%_ (lambda () - (let* ((_%arguments56317%_ (reverse! _%result56227%_)) - (_%arguments56320%_ - (if _%has-keywords?56226%_ + (let* ((_%arguments56142%_ (reverse! _%result56052%_)) + (_%arguments56145%_ + (if _%has-keywords?56051%_ (cons (gx#core-quote-syntax 't::t) - _%arguments56317%_) - _%arguments56317%_)) - (_%return-type56323%_ + _%arguments56142%_) + _%arguments56142%_)) + (_%return-type56148%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56212%_ - _%return56215%_))) - (_%unchecked56326%_ - (if (gx#stx-e _%unchecked56216%_) - (gx#core-quote-syntax _%unchecked56216%_) + _%stx56037%_ + _%return56040%_))) + (_%unchecked56151%_ + (if (gx#stx-e _%unchecked56041%_) + (gx#core-quote-syntax _%unchecked56041%_) '#f))) (cons 'arguments: - (cons _%arguments56320%_ + (cons _%arguments56145%_ (cons 'return: - (cons _%return-type56323%_ + (cons _%return-type56148%_ (cons 'unchecked: - (cons _%unchecked56326%_ + (cons _%unchecked56151%_ '())))))))))) - (let* ((_%g5623556331%_ + (let* ((_%g5606056156%_ (lambda () - (if (gx#stx-null? _%__stx7755277553%_) - (_%__kont7756977570%_) + (if (gx#stx-null? _%__stx7737777378%_) + (_%__kont7739477395%_) (let () (declare (not safe)) - (_%g5623656306%_))))) - (_%g5623456366%_ + (_%g5606156131%_))))) + (_%g5605956191%_ (lambda () - (let ((_%L56338%_ _%__stx7755277553%_)) - (if (gx#identifier? _%L56338%_) - (_%__kont7756777568%_ _%L56338%_) + (let ((_%L56163%_ _%__stx7737777378%_)) + (if (gx#identifier? _%L56163%_) + (_%__kont7739277393%_ _%L56163%_) (let () (declare (not safe)) - (_%g5623556331%_)))))) - (_%__match7766577666%_ - (lambda (_%e5629356373%_ - _%hd5629256377%_ - _%tl5629156380%_ - _%e5629656383%_ - _%hd5629556387%_ - _%tl5629456390%_ - _%e5629956393%_ - _%hd5629856397%_ - _%tl5629756400%_) - (let ((_%L56403%_ _%tl5629456390%_) - (_%L56405%_ _%tl5629756400%_) - (_%L56406%_ _%hd5629856397%_) - (_%L56407%_ _%hd5629256377%_)) - (if (and (gx#stx-keyword? _%L56407%_) - (gx#identifier? _%L56406%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L56405%_))) - (_%__kont7756577566%_ - _%L56403%_ - _%L56405%_ - _%L56406%_ - _%L56407%_) + (_%g5606056156%_)))))) + (_%__match7749077491%_ + (lambda (_%e5611856198%_ + _%hd5611756202%_ + _%tl5611656205%_ + _%e5612156208%_ + _%hd5612056212%_ + _%tl5611956215%_ + _%e5612456218%_ + _%hd5612356222%_ + _%tl5612256225%_) + (let ((_%L56228%_ _%tl5611956215%_) + (_%L56230%_ _%tl5612256225%_) + (_%L56231%_ _%hd5612356222%_) + (_%L56232%_ _%hd5611756202%_)) + (if (and (gx#stx-keyword? _%L56232%_) + (gx#identifier? _%L56231%_) + (|gerbil/core/contract~Interface[1]#signature-contract?| + _%L56230%_)) + (_%__kont7739077391%_ + _%L56228%_ + _%L56230%_ + _%L56231%_ + _%L56232%_) (let () (declare (not safe)) - (_%g5623456366%_)))))) - (_%__match7764777648%_ - (lambda (_%e5627756431%_ - _%hd5627656435%_ - _%tl5627556438%_ - _%e5628056441%_ - _%hd5627956445%_ - _%tl5627856448%_ - _%e5628356451%_ - _%hd5628256455%_ - _%tl5628156458%_ - _%e5628656461%_ - _%hd5628556465%_ - _%tl5628456468%_) - (let ((_%L56471%_ _%tl5627856448%_) - (_%L56473%_ _%hd5628256455%_) - (_%L56474%_ _%hd5627656435%_)) - (if (and (gx#stx-keyword? _%L56474%_) - (gx#identifier? _%L56473%_)) - (_%__kont7756377564%_ - _%L56471%_ - _%L56473%_ - _%L56474%_) - (_%__match7766577666%_ - _%e5627756431%_ - _%hd5627656435%_ - _%tl5627556438%_ - _%e5628056441%_ - _%hd5627956445%_ - _%tl5627856448%_ - _%e5628356451%_ - _%hd5628256455%_ - _%tl5628156458%_))))) - (_%__match7762177622%_ - (lambda (_%e5626856499%_ - _%hd5626756503%_ - _%tl5626656506%_ - _%e5627156509%_ - _%hd5627056513%_ - _%tl5626956516%_) - (let ((_%L56519%_ _%tl5626956516%_) - (_%L56521%_ _%hd5627056513%_) - (_%L56522%_ _%hd5626756503%_)) - (if (and (gx#stx-keyword? _%L56522%_) - (gx#identifier? _%L56521%_)) - (_%__kont7756177562%_ - _%L56519%_ - _%L56521%_ - _%L56522%_) - (if (gx#stx-pair? _%hd5627056513%_) - (let ((_%e5628356451%_ - (gx#syntax-e _%hd5627056513%_))) - (let ((_%tl5628156458%_ + (_%g5605956191%_)))))) + (_%__match7747277473%_ + (lambda (_%e5610256256%_ + _%hd5610156260%_ + _%tl5610056263%_ + _%e5610556266%_ + _%hd5610456270%_ + _%tl5610356273%_ + _%e5610856276%_ + _%hd5610756280%_ + _%tl5610656283%_ + _%e5611156286%_ + _%hd5611056290%_ + _%tl5610956293%_) + (let ((_%L56296%_ _%tl5610356273%_) + (_%L56298%_ _%hd5610756280%_) + (_%L56299%_ _%hd5610156260%_)) + (if (and (gx#stx-keyword? _%L56299%_) + (gx#identifier? _%L56298%_)) + (_%__kont7738877389%_ + _%L56296%_ + _%L56298%_ + _%L56299%_) + (_%__match7749077491%_ + _%e5610256256%_ + _%hd5610156260%_ + _%tl5610056263%_ + _%e5610556266%_ + _%hd5610456270%_ + _%tl5610356273%_ + _%e5610856276%_ + _%hd5610756280%_ + _%tl5610656283%_))))) + (_%__match7744677447%_ + (lambda (_%e5609356324%_ + _%hd5609256328%_ + _%tl5609156331%_ + _%e5609656334%_ + _%hd5609556338%_ + _%tl5609456341%_) + (let ((_%L56344%_ _%tl5609456341%_) + (_%L56346%_ _%hd5609556338%_) + (_%L56347%_ _%hd5609256328%_)) + (if (and (gx#stx-keyword? _%L56347%_) + (gx#identifier? _%L56346%_)) + (_%__kont7738677387%_ + _%L56344%_ + _%L56346%_ + _%L56347%_) + (if (gx#stx-pair? _%hd5609556338%_) + (let ((_%e5610856276%_ + (gx#syntax-e _%hd5609556338%_))) + (let ((_%tl5610656283%_ (let () (declare (not safe)) - (##cdr _%e5628356451%_))) - (_%hd5628256455%_ + (##cdr _%e5610856276%_))) + (_%hd5610756280%_ (let () (declare (not safe)) - (##car _%e5628356451%_)))) - (if (gx#stx-pair? _%tl5628156458%_) - (let ((_%e5628656461%_ + (##car _%e5610856276%_)))) + (if (gx#stx-pair? _%tl5610656283%_) + (let ((_%e5611156286%_ (gx#syntax-e - _%tl5628156458%_))) - (let ((_%tl5628456468%_ + _%tl5610656283%_))) + (let ((_%tl5610956293%_ (let () (declare (not safe)) - (##cdr _%e5628656461%_))) - (_%hd5628556465%_ + (##cdr _%e5611156286%_))) + (_%hd5611056290%_ (let () (declare (not safe)) - (##car _%e5628656461%_)))) + (##car _%e5611156286%_)))) (if (gx#stx-null? - _%tl5628456468%_) - (_%__match7764777648%_ - _%e5626856499%_ - _%hd5626756503%_ - _%tl5626656506%_ - _%e5627156509%_ - _%hd5627056513%_ - _%tl5626956516%_ - _%e5628356451%_ - _%hd5628256455%_ - _%tl5628156458%_ - _%e5628656461%_ - _%hd5628556465%_ - _%tl5628456468%_) - (_%__match7766577666%_ - _%e5626856499%_ - _%hd5626756503%_ - _%tl5626656506%_ - _%e5627156509%_ - _%hd5627056513%_ - _%tl5626956516%_ - _%e5628356451%_ - _%hd5628256455%_ - _%tl5628156458%_)))) - (_%__match7766577666%_ - _%e5626856499%_ - _%hd5626756503%_ - _%tl5626656506%_ - _%e5627156509%_ - _%hd5627056513%_ - _%tl5626956516%_ - _%e5628356451%_ - _%hd5628256455%_ - _%tl5628156458%_)))) + _%tl5610956293%_) + (_%__match7747277473%_ + _%e5609356324%_ + _%hd5609256328%_ + _%tl5609156331%_ + _%e5609656334%_ + _%hd5609556338%_ + _%tl5609456341%_ + _%e5610856276%_ + _%hd5610756280%_ + _%tl5610656283%_ + _%e5611156286%_ + _%hd5611056290%_ + _%tl5610956293%_) + (_%__match7749077491%_ + _%e5609356324%_ + _%hd5609256328%_ + _%tl5609156331%_ + _%e5609656334%_ + _%hd5609556338%_ + _%tl5609456341%_ + _%e5610856276%_ + _%hd5610756280%_ + _%tl5610656283%_)))) + (_%__match7749077491%_ + _%e5609356324%_ + _%hd5609256328%_ + _%tl5609156331%_ + _%e5609656334%_ + _%hd5609556338%_ + _%tl5609456341%_ + _%e5610856276%_ + _%hd5610756280%_ + _%tl5610656283%_)))) (let () (declare (not safe)) - (_%g5623456366%_))))))) - (_%__match7760977610%_ - (lambda (_%e5625956543%_ - _%hd5625856547%_ - _%tl5625756550%_ - _%e5626256553%_ - _%hd5626156557%_ - _%tl5626056560%_) - (let ((_%L56563%_ _%tl5625756550%_) - (_%L56565%_ _%tl5626056560%_) - (_%L56566%_ _%hd5626156557%_)) - (if (and (gx#identifier? _%L56566%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L56565%_))) - (_%__kont7755977560%_ - _%L56563%_ - _%L56565%_ - _%L56566%_) - (if (gx#stx-pair? _%tl5625756550%_) - (let ((_%e5627156509%_ - (gx#syntax-e _%tl5625756550%_))) - (let ((_%tl5626956516%_ + (_%g5605956191%_))))))) + (_%__match7743477435%_ + (lambda (_%e5608456368%_ + _%hd5608356372%_ + _%tl5608256375%_ + _%e5608756378%_ + _%hd5608656382%_ + _%tl5608556385%_) + (let ((_%L56388%_ _%tl5608256375%_) + (_%L56390%_ _%tl5608556385%_) + (_%L56391%_ _%hd5608656382%_)) + (if (and (gx#identifier? _%L56391%_) + (|gerbil/core/contract~Interface[1]#signature-contract?| + _%L56390%_)) + (_%__kont7738477385%_ + _%L56388%_ + _%L56390%_ + _%L56391%_) + (if (gx#stx-pair? _%tl5608256375%_) + (let ((_%e5609656334%_ + (gx#syntax-e _%tl5608256375%_))) + (let ((_%tl5609456341%_ (let () (declare (not safe)) - (##cdr _%e5627156509%_))) - (_%hd5627056513%_ + (##cdr _%e5609656334%_))) + (_%hd5609556338%_ (let () (declare (not safe)) - (##car _%e5627156509%_)))) - (_%__match7762177622%_ - _%e5625956543%_ - _%hd5625856547%_ - _%tl5625756550%_ - _%e5627156509%_ - _%hd5627056513%_ - _%tl5626956516%_))) + (##car _%e5609656334%_)))) + (_%__match7744677447%_ + _%e5608456368%_ + _%hd5608356372%_ + _%tl5608256375%_ + _%e5609656334%_ + _%hd5609556338%_ + _%tl5609456341%_))) (let () (declare (not safe)) - (_%g5623456366%_))))))) - (_%__match7759777598%_ - (lambda (_%e5624756587%_ - _%hd5624656591%_ - _%tl5624556594%_ - _%e5625056597%_ - _%hd5624956601%_ - _%tl5624856604%_ - _%e5625356607%_ - _%hd5625256611%_ - _%tl5625156614%_) - (let ((_%L56617%_ _%tl5624556594%_) - (_%L56619%_ _%hd5624956601%_)) - (if (gx#identifier? _%L56619%_) - (_%__kont7755777558%_ _%L56617%_ _%L56619%_) - (_%__match7760977610%_ - _%e5624756587%_ - _%hd5624656591%_ - _%tl5624556594%_ - _%e5625056597%_ - _%hd5624956601%_ - _%tl5624856604%_))))) - (_%__match7757777578%_ - (lambda (_%e5624256641%_ - _%hd5624156645%_ - _%tl5624056648%_) - (let ((_%L56651%_ _%tl5624056648%_) - (_%L56653%_ _%hd5624156645%_)) - (if (gx#identifier? _%L56653%_) - (_%__kont7755577556%_ _%L56651%_ _%L56653%_) - (if (gx#stx-pair? _%hd5624156645%_) - (let ((_%e5625056597%_ - (gx#syntax-e _%hd5624156645%_))) - (let ((_%tl5624856604%_ + (_%g5605956191%_))))))) + (_%__match7742277423%_ + (lambda (_%e5607256412%_ + _%hd5607156416%_ + _%tl5607056419%_ + _%e5607556422%_ + _%hd5607456426%_ + _%tl5607356429%_ + _%e5607856432%_ + _%hd5607756436%_ + _%tl5607656439%_) + (let ((_%L56442%_ _%tl5607056419%_) + (_%L56444%_ _%hd5607456426%_)) + (if (gx#identifier? _%L56444%_) + (_%__kont7738277383%_ _%L56442%_ _%L56444%_) + (_%__match7743477435%_ + _%e5607256412%_ + _%hd5607156416%_ + _%tl5607056419%_ + _%e5607556422%_ + _%hd5607456426%_ + _%tl5607356429%_))))) + (_%__match7740277403%_ + (lambda (_%e5606756466%_ + _%hd5606656470%_ + _%tl5606556473%_) + (let ((_%L56476%_ _%tl5606556473%_) + (_%L56478%_ _%hd5606656470%_)) + (if (gx#identifier? _%L56478%_) + (_%__kont7738077381%_ _%L56476%_ _%L56478%_) + (if (gx#stx-pair? _%hd5606656470%_) + (let ((_%e5607556422%_ + (gx#syntax-e _%hd5606656470%_))) + (let ((_%tl5607356429%_ (let () (declare (not safe)) - (##cdr _%e5625056597%_))) - (_%hd5624956601%_ + (##cdr _%e5607556422%_))) + (_%hd5607456426%_ (let () (declare (not safe)) - (##car _%e5625056597%_)))) - (if (gx#stx-pair? _%tl5624856604%_) - (let ((_%e5625356607%_ + (##car _%e5607556422%_)))) + (if (gx#stx-pair? _%tl5607356429%_) + (let ((_%e5607856432%_ (gx#syntax-e - _%tl5624856604%_))) - (let ((_%tl5625156614%_ + _%tl5607356429%_))) + (let ((_%tl5607656439%_ (let () (declare (not safe)) - (##cdr _%e5625356607%_))) - (_%hd5625256611%_ + (##cdr _%e5607856432%_))) + (_%hd5607756436%_ (let () (declare (not safe)) - (##car _%e5625356607%_)))) + (##car _%e5607856432%_)))) (if (gx#stx-null? - _%tl5625156614%_) - (_%__match7759777598%_ - _%e5624256641%_ - _%hd5624156645%_ - _%tl5624056648%_ - _%e5625056597%_ - _%hd5624956601%_ - _%tl5624856604%_ - _%e5625356607%_ - _%hd5625256611%_ - _%tl5625156614%_) - (_%__match7760977610%_ - _%e5624256641%_ - _%hd5624156645%_ - _%tl5624056648%_ - _%e5625056597%_ - _%hd5624956601%_ - _%tl5624856604%_)))) - (_%__match7760977610%_ - _%e5624256641%_ - _%hd5624156645%_ - _%tl5624056648%_ - _%e5625056597%_ - _%hd5624956601%_ - _%tl5624856604%_)))) - (if (gx#stx-pair? _%tl5624056648%_) - (let ((_%e5627156509%_ - (gx#syntax-e _%tl5624056648%_))) - (let ((_%tl5626956516%_ + _%tl5607656439%_) + (_%__match7742277423%_ + _%e5606756466%_ + _%hd5606656470%_ + _%tl5606556473%_ + _%e5607556422%_ + _%hd5607456426%_ + _%tl5607356429%_ + _%e5607856432%_ + _%hd5607756436%_ + _%tl5607656439%_) + (_%__match7743477435%_ + _%e5606756466%_ + _%hd5606656470%_ + _%tl5606556473%_ + _%e5607556422%_ + _%hd5607456426%_ + _%tl5607356429%_)))) + (_%__match7743477435%_ + _%e5606756466%_ + _%hd5606656470%_ + _%tl5606556473%_ + _%e5607556422%_ + _%hd5607456426%_ + _%tl5607356429%_)))) + (if (gx#stx-pair? _%tl5606556473%_) + (let ((_%e5609656334%_ + (gx#syntax-e _%tl5606556473%_))) + (let ((_%tl5609456341%_ (let () (declare (not safe)) - (##cdr _%e5627156509%_))) - (_%hd5627056513%_ + (##cdr _%e5609656334%_))) + (_%hd5609556338%_ (let () (declare (not safe)) - (##car _%e5627156509%_)))) - (_%__match7762177622%_ - _%e5624256641%_ - _%hd5624156645%_ - _%tl5624056648%_ - _%e5627156509%_ - _%hd5627056513%_ - _%tl5626956516%_))) + (##car _%e5609656334%_)))) + (_%__match7744677447%_ + _%e5606756466%_ + _%hd5606656470%_ + _%tl5606556473%_ + _%e5609656334%_ + _%hd5609556338%_ + _%tl5609456341%_))) (let () (declare (not safe)) - (_%g5623456366%_))))))))) - (if (gx#stx-pair? _%__stx7755277553%_) - (let ((_%e5624256641%_ - (gx#syntax-e _%__stx7755277553%_))) - (let ((_%tl5624056648%_ + (_%g5605956191%_))))))))) + (if (gx#stx-pair? _%__stx7737777378%_) + (let ((_%e5606756466%_ + (gx#syntax-e _%__stx7737777378%_))) + (let ((_%tl5606556473%_ (let () (declare (not safe)) - (##cdr _%e5624256641%_))) - (_%hd5624156645%_ + (##cdr _%e5606756466%_))) + (_%hd5606656470%_ (let () (declare (not safe)) - (##car _%e5624256641%_)))) - (_%__match7757777578%_ - _%e5624256641%_ - _%hd5624156645%_ - _%tl5624056648%_))) - (let () (declare (not safe)) (_%g5623456366%_)))))))))) + (##car _%e5606756466%_)))) + (_%__match7740277403%_ + _%e5606756466%_ + _%hd5606656470%_ + _%tl5606556473%_))) + (let () (declare (not safe)) (_%g5605956191%_)))))))))) (define |gerbil/core/contract~Interface[1]#make-procedure-contract| - (lambda (_%stx55319%_ _%signature55321%_ _%checked?55322%_) - (letrec ((_%contract-e55324%_ - (lambda (_%id55727%_ _%contract55729%_) - (let* ((_%g5573155739%_ - (lambda (_%g5573255735%_) + (lambda (_%stx55144%_ _%signature55146%_ _%checked?55147%_) + (letrec ((_%contract-e55149%_ + (lambda (_%id55552%_ _%contract55554%_) + (let* ((_%g5555655564%_ + (lambda (_%g5555755560%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5573255735%_))) - (_%g5573056208%_ - (lambda (_%g5573255743%_) - ((lambda (_%L55746%_) - (let () - (let* ((_%__stx7767077671%_ - _%contract55729%_) - (_%g5576355842%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx7767077671%_)))) - (let ((_%__kont7767377674%_ - (lambda (_%L56179%_ - _%L56181%_ - _%L56182%_) - (if _%checked?55322%_ - (cons _%L55746%_ - (cons _%L56182%_ - (cons _%L56181%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55746%_ - (cons (gx#datum->syntax - '#f - '::-) - (cons _%L56181%_ + _%g5555755560%_))) + (_%g5555556033%_ + (lambda (_%g5555755568%_) + ((lambda (_%L55571%_) + (let* ((_%__stx7749577496%_ _%contract55554%_) + (_%g5558855667%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx7749577496%_)))) + (let ((_%__kont7749877499%_ + (lambda (_%L56004%_ + _%L56006%_ + _%L56007%_) + (if _%checked?55147%_ + (cons _%L55571%_ + (cons _%L56007%_ + (cons _%L56006%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7767577676%_ - (lambda (_%L56137%_ _%L56139%_) - (cons _%L55746%_ - (cons (gx#datum->syntax - '#f - ':-) - (cons _%L56139%_ - '()))))) - (_%__kont7767777678%_ - (lambda (_%L56079%_ - _%L56081%_ - _%L56082%_ - _%L56083%_) - (if _%checked?55322%_ - (cons _%L55746%_ - (cons (gx#datum->syntax - '#f - ':~) - (cons _%L56083%_ + (cons _%L55571%_ + (cons (gx#datum->syntax + '#f + '::-) + (cons _%L56006%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L56082%_ (cons _%L56081%_ '()))))) + '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55746%_ - (cons (gx#datum->syntax - '#f - '::-) - (cons _%L56081%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7767977680%_ - (lambda (_%L56001%_ - _%L56003%_ - _%L56004%_ - _%L56005%_) - (if _%checked?55322%_ - (cons _%L55746%_ - (cons (gx#datum->syntax - '#f - ':~) - (cons _%L56005%_ + (_%__kont7750077501%_ + (lambda (_%L55962%_ _%L55964%_) + (cons _%L55571%_ + (cons (gx#datum->syntax + '#f + ':-) + (cons _%L55964%_ + '()))))) + (_%__kont7750277503%_ + (lambda (_%L55904%_ + _%L55906%_ + _%L55907%_ + _%L55908%_) + (if _%checked?55147%_ + (cons _%L55571%_ + (cons (gx#datum->syntax + '#f + ':~) + (cons _%L55908%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L56004%_ (cons _%L56003%_ '()))))) + (cons _%L55907%_ (cons _%L55906%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55746%_ - (cons (gx#datum->syntax - '#f - '::-) - (cons _%L56003%_ + (cons _%L55571%_ + (cons (gx#datum->syntax + '#f + '::-) + (cons _%L55906%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7750477505%_ + (lambda (_%L55826%_ + _%L55828%_ + _%L55829%_ + _%L55830%_) + (if _%checked?55147%_ + (cons _%L55571%_ + (cons (gx#datum->syntax + '#f + ':~) + (cons _%L55830%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))))) + (cons _%L55829%_ (cons _%L55828%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7768177682%_ - (lambda (_%L55933%_ - _%L55935%_ - _%L55936%_) - (if _%checked?55322%_ - (cons _%L55746%_ - (cons (gx#datum->syntax - '#f - ':~) - (cons _%L55936%_ + (cons _%L55571%_ + (cons (gx#datum->syntax + '#f + '::-) + (cons _%L55828%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f ':-) - (cons _%L55935%_ '()))))) + '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55746%_ - (cons (gx#datum->syntax - '#f - ':-) - (cons _%L55935%_ + (_%__kont7750677507%_ + (lambda (_%L55758%_ + _%L55760%_ + _%L55761%_) + (if _%checked?55147%_ + (cons _%L55571%_ + (cons (gx#datum->syntax + '#f + ':~) + (cons _%L55761%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))))) + (cons (gx#datum->syntax '#f ':-) + (cons _%L55760%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7768377684%_ - (lambda (_%L55869%_ _%L55871%_) - (if _%checked?55322%_ - (cons _%L55746%_ - (cons (gx#datum->syntax - '#f - ':~) - (cons _%L55871%_ + (cons _%L55571%_ + (cons (gx#datum->syntax + '#f + ':-) + (cons _%L55760%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) + '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55746%_ - (cons (gx#datum->syntax - '#f - ':-) - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - ':t) - '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match7776977770%_ - (lambda (_%e5580455961%_ - _%hd5580355965%_ - _%tl5580255968%_ - _%e5580755971%_ - _%hd5580655975%_ - _%tl5580555978%_ - _%e5581055981%_ - _%hd5580955985%_ - _%tl5580855988%_ - _%e5581355991%_ - _%hd5581255995%_ - _%tl5581155998%_) - (let ((_%L56001%_ - _%tl5581155998%_) - (_%L56003%_ - _%hd5581255995%_) - (_%L56004%_ - _%hd5580955985%_) - (_%L56005%_ - _%hd5580655975%_)) - (if (or (gx#free-identifier=? - _%L56004%_ - (gx#datum->syntax - '#f - '::-)) - (gx#free-identifier=? - _%L56004%_ - (gx#datum->syntax - '#f - ':)) - (gx#free-identifier=? - _%L56004%_ - (gx#datum->syntax - '#f - ':?))) - (_%__kont7767977680%_ - _%L56001%_ - _%L56003%_ - _%L56004%_ - _%L56005%_) - (if (gx#identifier? - _%hd5580955985%_) - (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80795_| - _%hd5580955985%_) - (_%__kont7768177682%_ - _%tl5581155998%_ - _%hd5581255995%_ - _%hd5580655975%_) - (_%__kont7768377684%_ - _%tl5580555978%_ - _%hd5580655975%_)) - (_%__kont7768377684%_ - _%tl5580555978%_ - _%hd5580655975%_)))))) - (_%__match7774177742%_ - (lambda (_%e5578856039%_ - _%hd5578756043%_ - _%tl5578656046%_ - _%e5579156049%_ - _%hd5579056053%_ - _%tl5578956056%_ - _%e5579456059%_ - _%hd5579356063%_ - _%tl5579256066%_ - _%e5579756069%_ - _%hd5579656073%_ - _%tl5579556076%_) - (let ((_%L56079%_ - _%tl5579556076%_) - (_%L56081%_ - _%hd5579656073%_) - (_%L56082%_ - _%hd5579356063%_) - (_%L56083%_ - _%hd5579056053%_)) - (if (or (gx#free-identifier=? - _%L56082%_ - (gx#datum->syntax - '#f - '::-)) - (gx#free-identifier=? - _%L56082%_ - (gx#datum->syntax - '#f - ':)) - (gx#free-identifier=? - _%L56082%_ - (gx#datum->syntax - '#f - ':?))) - (_%__kont7767777678%_ - _%L56079%_ - _%L56081%_ - _%L56082%_ - _%L56083%_) - (_%__match7776977770%_ - _%e5578856039%_ - _%hd5578756043%_ - _%tl5578656046%_ - _%e5579156049%_ - _%hd5579056053%_ - _%tl5578956056%_ - _%e5579456059%_ - _%hd5579356063%_ - _%tl5579256066%_ - _%e5579756069%_ - _%hd5579656073%_ - _%tl5579556076%_))))) - (_%__match7769777698%_ - (lambda (_%e5577056159%_ - _%hd5576956163%_ - _%tl5576856166%_ - _%e5577356169%_ - _%hd5577256173%_ - _%tl5577156176%_) - (let ((_%L56179%_ - _%tl5577156176%_) - (_%L56181%_ - _%hd5577256173%_) - (_%L56182%_ - _%hd5576956163%_)) - (if (or (gx#free-identifier=? - _%L56182%_ - (gx#datum->syntax - '#f - '::-)) - (gx#free-identifier=? - _%L56182%_ - (gx#datum->syntax - '#f - ':)) - (gx#free-identifier=? - _%L56182%_ - (gx#datum->syntax + (_%__kont7750877509%_ + (lambda (_%L55694%_ _%L55696%_) + (if _%checked?55147%_ + (cons _%L55571%_ + (cons (gx#datum->syntax '#f - ':?))) - (_%__kont7767377674%_ - _%L56179%_ - _%L56181%_ - _%L56182%_) - (if (gx#identifier? - _%hd5576956163%_) - (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80796_| - _%hd5576956163%_) - (_%__kont7767577676%_ - _%tl5577156176%_ - _%hd5577256173%_) - (if (gx#free-identifier=? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~Interface[1]#_g80797_| - _%hd5576956163%_) - (if (gx#stx-pair? _%tl5577156176%_) - (let ((_%e5579456059%_ - (gx#syntax-e _%tl5577156176%_))) - (let ((_%tl5579256066%_ - (let () - (declare (not safe)) - (##cdr _%e5579456059%_))) - (_%hd5579356063%_ - (let () - (declare (not safe)) - (##car _%e5579456059%_)))) - (if (gx#stx-pair? _%tl5579256066%_) - (let ((_%e5579756069%_ - (gx#syntax-e _%tl5579256066%_))) - (let ((_%tl5579556076%_ - (let () - (declare (not safe)) - (##cdr _%e5579756069%_))) - (_%hd5579656073%_ - (let () - (declare (not safe)) - (##car _%e5579756069%_)))) - (_%__match7774177742%_ - _%e5577056159%_ - _%hd5576956163%_ - _%tl5576856166%_ - _%e5577356169%_ - _%hd5577256173%_ - _%tl5577156176%_ - _%e5579456059%_ - _%hd5579356063%_ - _%tl5579256066%_ - _%e5579756069%_ - _%hd5579656073%_ - _%tl5579556076%_))) - (_%__kont7768377684%_ - _%tl5577156176%_ - _%hd5577256173%_)))) - (_%__kont7768377684%_ - _%tl5577156176%_ - _%hd5577256173%_)) - (let () (declare (not safe)) (_%g5576355842%_)))) - (let () (declare (not safe)) (_%g5576355842%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx7767077671%_) - (let ((_%e5577056159%_ - (gx#syntax-e - _%__stx7767077671%_))) - (let ((_%tl5576856166%_ - (let () - (declare (not safe)) - (##cdr _%e5577056159%_))) - (_%hd5576956163%_ - (let () - (declare (not safe)) - (##car _%e5577056159%_)))) - (if (gx#stx-pair? - _%tl5576856166%_) - (let ((_%e5577356169%_ - (gx#syntax-e - _%tl5576856166%_))) - (let ((_%tl5577156176%_ - (let () - (declare + ':~) + (cons _%L55696%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##cdr _%e5577356169%_))) - (_%hd5577256173%_ - (let () (declare (not safe)) (##car _%e5577356169%_)))) - (_%__match7769777698%_ - _%e5577056159%_ - _%hd5576956163%_ - _%tl5576856166%_ - _%e5577356169%_ - _%hd5577256173%_ - _%tl5577156176%_))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g5576355842%_))))) - (let () - (declare (not safe)) - (_%g5576355842%_)))))))) - _%g5573255743%_)))) - (declare (not safe)) - (_%g5573056208%_ _%id55727%_))))) - (let _%loop55327%_ ((_%rest55330%_ _%signature55321%_) - (_%result55332%_ '())) - (let* ((_%__stx7782077821%_ _%rest55330%_) - (_%g5534055409%_ + (cons _%L55571%_ + (cons (gx#datum->syntax + '#f + ':-) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + ':t) + '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let* ((_%__match7759477595%_ + (lambda (_%e5562955786%_ + _%hd5562855790%_ + _%tl5562755793%_ + _%e5563255796%_ + _%hd5563155800%_ + _%tl5563055803%_ + _%e5563555806%_ + _%hd5563455810%_ + _%tl5563355813%_ + _%e5563855816%_ + _%hd5563755820%_ + _%tl5563655823%_) + (let ((_%L55826%_ + _%tl5563655823%_) + (_%L55828%_ + _%hd5563755820%_) + (_%L55829%_ + _%hd5563455810%_) + (_%L55830%_ + _%hd5563155800%_)) + (if (or (gx#free-identifier=? + _%L55829%_ + (gx#datum->syntax + '#f + '::-)) + (gx#free-identifier=? + _%L55829%_ + (gx#datum->syntax + '#f + ':)) + (gx#free-identifier=? + _%L55829%_ + (gx#datum->syntax + '#f + ':?))) + (_%__kont7750477505%_ + _%L55826%_ + _%L55828%_ + _%L55829%_ + _%L55830%_) + (if (gx#identifier? + _%hd5563455810%_) + (if (gx#free-identifier=? + |gerbil/core/contract~Interface[1]#_g80562_| + _%hd5563455810%_) + (_%__kont7750677507%_ + _%tl5563655823%_ + _%hd5563755820%_ + _%hd5563155800%_) + (_%__kont7750877509%_ + _%tl5563055803%_ + _%hd5563155800%_)) + (_%__kont7750877509%_ + _%tl5563055803%_ + _%hd5563155800%_)))))) + (_%__match7756677567%_ + (lambda (_%e5561355864%_ + _%hd5561255868%_ + _%tl5561155871%_ + _%e5561655874%_ + _%hd5561555878%_ + _%tl5561455881%_ + _%e5561955884%_ + _%hd5561855888%_ + _%tl5561755891%_ + _%e5562255894%_ + _%hd5562155898%_ + _%tl5562055901%_) + (let ((_%L55904%_ + _%tl5562055901%_) + (_%L55906%_ + _%hd5562155898%_) + (_%L55907%_ + _%hd5561855888%_) + (_%L55908%_ + _%hd5561555878%_)) + (if (or (gx#free-identifier=? + _%L55907%_ + (gx#datum->syntax + '#f + '::-)) + (gx#free-identifier=? + _%L55907%_ + (gx#datum->syntax + '#f + ':)) + (gx#free-identifier=? + _%L55907%_ + (gx#datum->syntax + '#f + ':?))) + (_%__kont7750277503%_ + _%L55904%_ + _%L55906%_ + _%L55907%_ + _%L55908%_) + (_%__match7759477595%_ + _%e5561355864%_ + _%hd5561255868%_ + _%tl5561155871%_ + _%e5561655874%_ + _%hd5561555878%_ + _%tl5561455881%_ + _%e5561955884%_ + _%hd5561855888%_ + _%tl5561755891%_ + _%e5562255894%_ + _%hd5562155898%_ + _%tl5562055901%_))))) + (_%__match7752277523%_ + (lambda (_%e5559555984%_ + _%hd5559455988%_ + _%tl5559355991%_ + _%e5559855994%_ + _%hd5559755998%_ + _%tl5559656001%_) + (let ((_%L56004%_ + _%tl5559656001%_) + (_%L56006%_ + _%hd5559755998%_) + (_%L56007%_ + _%hd5559455988%_)) + (if (or (gx#free-identifier=? + _%L56007%_ + (gx#datum->syntax + '#f + '::-)) + (gx#free-identifier=? + _%L56007%_ + (gx#datum->syntax + '#f + ':)) + (gx#free-identifier=? + _%L56007%_ + (gx#datum->syntax + '#f + ':?))) + (_%__kont7749877499%_ + _%L56004%_ + _%L56006%_ + _%L56007%_) + (if (gx#identifier? + _%hd5559455988%_) + (if (gx#free-identifier=? + |gerbil/core/contract~Interface[1]#_g80563_| + _%hd5559455988%_) + (_%__kont7750077501%_ + _%tl5559656001%_ + _%hd5559755998%_) + (if (gx#free-identifier=? +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |gerbil/core/contract~Interface[1]#_g80564_| + _%hd5559455988%_) + (if (gx#stx-pair? _%tl5559656001%_) + (let ((_%e5561955884%_ + (gx#syntax-e _%tl5559656001%_))) + (let ((_%tl5561755891%_ + (let () + (declare (not safe)) + (##cdr _%e5561955884%_))) + (_%hd5561855888%_ + (let () + (declare (not safe)) + (##car _%e5561955884%_)))) + (if (gx#stx-pair? _%tl5561755891%_) + (let ((_%e5562255894%_ + (gx#syntax-e _%tl5561755891%_))) + (let ((_%tl5562055901%_ + (let () + (declare (not safe)) + (##cdr _%e5562255894%_))) + (_%hd5562155898%_ + (let () + (declare (not safe)) + (##car _%e5562255894%_)))) + (_%__match7756677567%_ + _%e5559555984%_ + _%hd5559455988%_ + _%tl5559355991%_ + _%e5559855994%_ + _%hd5559755998%_ + _%tl5559656001%_ + _%e5561955884%_ + _%hd5561855888%_ + _%tl5561755891%_ + _%e5562255894%_ + _%hd5562155898%_ + _%tl5562055901%_))) + (_%__kont7750877509%_ + _%tl5559656001%_ + _%hd5559755998%_)))) + (_%__kont7750877509%_ + _%tl5559656001%_ + _%hd5559755998%_)) + (let () (declare (not safe)) (_%g5558855667%_)))) + (let () (declare (not safe)) (_%g5558855667%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%__stx7749577496%_) + (let ((_%e5559555984%_ + (gx#syntax-e + _%__stx7749577496%_))) + (let ((_%tl5559355991%_ + (let () + (declare (not safe)) + (##cdr _%e5559555984%_))) + (_%hd5559455988%_ + (let () + (declare (not safe)) + (##car _%e5559555984%_)))) + (if (gx#stx-pair? + _%tl5559355991%_) + (let ((_%e5559855994%_ + (gx#syntax-e + _%tl5559355991%_))) + (let ((_%tl5559656001%_ + (let () + (declare + (not safe)) + (##cdr _%e5559855994%_))) + (_%hd5559755998%_ + (let () + (declare + (not safe)) + (##car _%e5559855994%_)))) + (_%__match7752277523%_ + _%e5559555984%_ + _%hd5559455988%_ + _%tl5559355991%_ + _%e5559855994%_ + _%hd5559755998%_ + _%tl5559656001%_))) + (let () + (declare (not safe)) + (_%g5558855667%_))))) + (let () + (declare (not safe)) + (_%g5558855667%_))))))) + _%g5555755568%_)))) + (_%g5555556033%_ _%id55552%_))))) + (let _%loop55152%_ ((_%rest55155%_ _%signature55146%_) + (_%result55157%_ '())) + (let* ((_%__stx7764577646%_ _%rest55155%_) + (_%g5516555234%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7782077821%_)))) - (let ((_%__kont7782377824%_ - (lambda (_%L55710%_ _%L55712%_) - (let () - (declare (not safe)) - (_%loop55327%_ _%L55710%_ _%result55332%_)))) - (_%__kont7782577826%_ - (lambda (_%L55676%_ _%L55678%_) - (let () - (declare (not safe)) - (_%loop55327%_ _%L55676%_ _%result55332%_)))) - (_%__kont7782777828%_ - (lambda (_%L55622%_ _%L55624%_ _%L55625%_) - (let ((__tmp80798 - (cons (let () - (declare (not safe)) - (_%contract-e55324%_ - _%L55625%_ - _%L55624%_)) - _%result55332%_))) - (declare (not safe)) - (_%loop55327%_ _%L55622%_ __tmp80798)))) - (_%__kont7782977830%_ - (lambda (_%L55578%_ _%L55580%_ _%L55581%_) - (let () - (declare (not safe)) - (_%loop55327%_ _%L55578%_ _%result55332%_)))) - (_%__kont7783177832%_ - (lambda (_%L55530%_ _%L55532%_ _%L55533%_) - (let () - (declare (not safe)) - (_%loop55327%_ _%L55530%_ _%result55332%_)))) - (_%__kont7783377834%_ - (lambda (_%L55457%_ _%L55459%_ _%L55460%_ _%L55461%_) - (let ((__tmp80799 - (cons (let () - (declare (not safe)) - (_%contract-e55324%_ - _%L55460%_ - _%L55459%_)) - _%result55332%_))) - (declare (not safe)) - (_%loop55327%_ _%L55457%_ __tmp80799)))) - (_%__kont7783577836%_ - (lambda () (reverse! (filter identity _%result55332%_))))) - (let* ((_%__match7793177932%_ - (lambda (_%e5539755427%_ - _%hd5539655431%_ - _%tl5539555434%_ - _%e5540055437%_ - _%hd5539955441%_ - _%tl5539855444%_ - _%e5540355447%_ - _%hd5540255451%_ - _%tl5540155454%_) - (let ((_%L55457%_ _%tl5539855444%_) - (_%L55459%_ _%tl5540155454%_) - (_%L55460%_ _%hd5540255451%_) - (_%L55461%_ _%hd5539655431%_)) - (if (and (gx#stx-keyword? _%L55461%_) - (gx#identifier? _%L55460%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L55459%_))) - (_%__kont7783377834%_ - _%L55457%_ - _%L55459%_ - _%L55460%_ - _%L55461%_) - (_%__kont7783577836%_))))) - (_%__match7791377914%_ - (lambda (_%e5538155490%_ - _%hd5538055494%_ - _%tl5537955497%_ - _%e5538455500%_ - _%hd5538355504%_ - _%tl5538255507%_ - _%e5538755510%_ - _%hd5538655514%_ - _%tl5538555517%_ - _%e5539055520%_ - _%hd5538955524%_ - _%tl5538855527%_) - (let ((_%L55530%_ _%tl5538255507%_) - (_%L55532%_ _%hd5538655514%_) - (_%L55533%_ _%hd5538055494%_)) - (if (and (gx#stx-keyword? _%L55533%_) - (gx#identifier? _%L55532%_)) - (_%__kont7783177832%_ - _%L55530%_ - _%L55532%_ - _%L55533%_) - (_%__match7793177932%_ - _%e5538155490%_ - _%hd5538055494%_ - _%tl5537955497%_ - _%e5538455500%_ - _%hd5538355504%_ - _%tl5538255507%_ - _%e5538755510%_ - _%hd5538655514%_ - _%tl5538555517%_))))) - (_%__match7788777888%_ - (lambda (_%e5537255558%_ - _%hd5537155562%_ - _%tl5537055565%_ - _%e5537555568%_ - _%hd5537455572%_ - _%tl5537355575%_) - (let ((_%L55578%_ _%tl5537355575%_) - (_%L55580%_ _%hd5537455572%_) - (_%L55581%_ _%hd5537155562%_)) - (if (and (gx#stx-keyword? _%L55581%_) - (gx#identifier? _%L55580%_)) - (_%__kont7782977830%_ - _%L55578%_ - _%L55580%_ - _%L55581%_) - (if (gx#stx-pair? _%hd5537455572%_) - (let ((_%e5538755510%_ - (gx#syntax-e _%hd5537455572%_))) - (let ((_%tl5538555517%_ + _%__stx7764577646%_)))) + (let ((_%__kont7764877649%_ + (lambda (_%L55535%_ _%L55537%_) + (_%loop55152%_ _%L55535%_ _%result55157%_))) + (_%__kont7765077651%_ + (lambda (_%L55501%_ _%L55503%_) + (_%loop55152%_ _%L55501%_ _%result55157%_))) + (_%__kont7765277653%_ + (lambda (_%L55447%_ _%L55449%_ _%L55450%_) + (_%loop55152%_ + _%L55447%_ + (cons (_%contract-e55149%_ _%L55450%_ _%L55449%_) + _%result55157%_)))) + (_%__kont7765477655%_ + (lambda (_%L55403%_ _%L55405%_ _%L55406%_) + (_%loop55152%_ _%L55403%_ _%result55157%_))) + (_%__kont7765677657%_ + (lambda (_%L55355%_ _%L55357%_ _%L55358%_) + (_%loop55152%_ _%L55355%_ _%result55157%_))) + (_%__kont7765877659%_ + (lambda (_%L55282%_ _%L55284%_ _%L55285%_ _%L55286%_) + (_%loop55152%_ + _%L55282%_ + (cons (_%contract-e55149%_ _%L55285%_ _%L55284%_) + _%result55157%_)))) + (_%__kont7766077661%_ + (lambda () (reverse! (filter identity _%result55157%_))))) + (let* ((_%__match7775677757%_ + (lambda (_%e5522255252%_ + _%hd5522155256%_ + _%tl5522055259%_ + _%e5522555262%_ + _%hd5522455266%_ + _%tl5522355269%_ + _%e5522855272%_ + _%hd5522755276%_ + _%tl5522655279%_) + (let ((_%L55282%_ _%tl5522355269%_) + (_%L55284%_ _%tl5522655279%_) + (_%L55285%_ _%hd5522755276%_) + (_%L55286%_ _%hd5522155256%_)) + (if (and (gx#stx-keyword? _%L55286%_) + (gx#identifier? _%L55285%_) + (|gerbil/core/contract~Interface[1]#signature-contract?| + _%L55284%_)) + (_%__kont7765877659%_ + _%L55282%_ + _%L55284%_ + _%L55285%_ + _%L55286%_) + (_%__kont7766077661%_))))) + (_%__match7773877739%_ + (lambda (_%e5520655315%_ + _%hd5520555319%_ + _%tl5520455322%_ + _%e5520955325%_ + _%hd5520855329%_ + _%tl5520755332%_ + _%e5521255335%_ + _%hd5521155339%_ + _%tl5521055342%_ + _%e5521555345%_ + _%hd5521455349%_ + _%tl5521355352%_) + (let ((_%L55355%_ _%tl5520755332%_) + (_%L55357%_ _%hd5521155339%_) + (_%L55358%_ _%hd5520555319%_)) + (if (and (gx#stx-keyword? _%L55358%_) + (gx#identifier? _%L55357%_)) + (_%__kont7765677657%_ + _%L55355%_ + _%L55357%_ + _%L55358%_) + (_%__match7775677757%_ + _%e5520655315%_ + _%hd5520555319%_ + _%tl5520455322%_ + _%e5520955325%_ + _%hd5520855329%_ + _%tl5520755332%_ + _%e5521255335%_ + _%hd5521155339%_ + _%tl5521055342%_))))) + (_%__match7771277713%_ + (lambda (_%e5519755383%_ + _%hd5519655387%_ + _%tl5519555390%_ + _%e5520055393%_ + _%hd5519955397%_ + _%tl5519855400%_) + (let ((_%L55403%_ _%tl5519855400%_) + (_%L55405%_ _%hd5519955397%_) + (_%L55406%_ _%hd5519655387%_)) + (if (and (gx#stx-keyword? _%L55406%_) + (gx#identifier? _%L55405%_)) + (_%__kont7765477655%_ + _%L55403%_ + _%L55405%_ + _%L55406%_) + (if (gx#stx-pair? _%hd5519955397%_) + (let ((_%e5521255335%_ + (gx#syntax-e _%hd5519955397%_))) + (let ((_%tl5521055342%_ (let () (declare (not safe)) - (##cdr _%e5538755510%_))) - (_%hd5538655514%_ + (##cdr _%e5521255335%_))) + (_%hd5521155339%_ (let () (declare (not safe)) - (##car _%e5538755510%_)))) - (if (gx#stx-pair? _%tl5538555517%_) - (let ((_%e5539055520%_ + (##car _%e5521255335%_)))) + (if (gx#stx-pair? _%tl5521055342%_) + (let ((_%e5521555345%_ (gx#syntax-e - _%tl5538555517%_))) - (let ((_%tl5538855527%_ + _%tl5521055342%_))) + (let ((_%tl5521355352%_ (let () (declare (not safe)) - (##cdr _%e5539055520%_))) - (_%hd5538955524%_ + (##cdr _%e5521555345%_))) + (_%hd5521455349%_ (let () (declare (not safe)) - (##car _%e5539055520%_)))) + (##car _%e5521555345%_)))) (if (gx#stx-null? - _%tl5538855527%_) - (_%__match7791377914%_ - _%e5537255558%_ - _%hd5537155562%_ - _%tl5537055565%_ - _%e5537555568%_ - _%hd5537455572%_ - _%tl5537355575%_ - _%e5538755510%_ - _%hd5538655514%_ - _%tl5538555517%_ - _%e5539055520%_ - _%hd5538955524%_ - _%tl5538855527%_) - (_%__match7793177932%_ - _%e5537255558%_ - _%hd5537155562%_ - _%tl5537055565%_ - _%e5537555568%_ - _%hd5537455572%_ - _%tl5537355575%_ - _%e5538755510%_ - _%hd5538655514%_ - _%tl5538555517%_)))) - (_%__match7793177932%_ - _%e5537255558%_ - _%hd5537155562%_ - _%tl5537055565%_ - _%e5537555568%_ - _%hd5537455572%_ - _%tl5537355575%_ - _%e5538755510%_ - _%hd5538655514%_ - _%tl5538555517%_)))) - (_%__kont7783577836%_)))))) - (_%__match7787577876%_ - (lambda (_%e5536355602%_ - _%hd5536255606%_ - _%tl5536155609%_ - _%e5536655612%_ - _%hd5536555616%_ - _%tl5536455619%_) - (let ((_%L55622%_ _%tl5536155609%_) - (_%L55624%_ _%tl5536455619%_) - (_%L55625%_ _%hd5536555616%_)) - (if (and (gx#identifier? _%L55625%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L55624%_))) - (_%__kont7782777828%_ - _%L55622%_ - _%L55624%_ - _%L55625%_) - (if (gx#stx-pair? _%tl5536155609%_) - (let ((_%e5537555568%_ - (gx#syntax-e _%tl5536155609%_))) - (let ((_%tl5537355575%_ + _%tl5521355352%_) + (_%__match7773877739%_ + _%e5519755383%_ + _%hd5519655387%_ + _%tl5519555390%_ + _%e5520055393%_ + _%hd5519955397%_ + _%tl5519855400%_ + _%e5521255335%_ + _%hd5521155339%_ + _%tl5521055342%_ + _%e5521555345%_ + _%hd5521455349%_ + _%tl5521355352%_) + (_%__match7775677757%_ + _%e5519755383%_ + _%hd5519655387%_ + _%tl5519555390%_ + _%e5520055393%_ + _%hd5519955397%_ + _%tl5519855400%_ + _%e5521255335%_ + _%hd5521155339%_ + _%tl5521055342%_)))) + (_%__match7775677757%_ + _%e5519755383%_ + _%hd5519655387%_ + _%tl5519555390%_ + _%e5520055393%_ + _%hd5519955397%_ + _%tl5519855400%_ + _%e5521255335%_ + _%hd5521155339%_ + _%tl5521055342%_)))) + (_%__kont7766077661%_)))))) + (_%__match7770077701%_ + (lambda (_%e5518855427%_ + _%hd5518755431%_ + _%tl5518655434%_ + _%e5519155437%_ + _%hd5519055441%_ + _%tl5518955444%_) + (let ((_%L55447%_ _%tl5518655434%_) + (_%L55449%_ _%tl5518955444%_) + (_%L55450%_ _%hd5519055441%_)) + (if (and (gx#identifier? _%L55450%_) + (|gerbil/core/contract~Interface[1]#signature-contract?| + _%L55449%_)) + (_%__kont7765277653%_ + _%L55447%_ + _%L55449%_ + _%L55450%_) + (if (gx#stx-pair? _%tl5518655434%_) + (let ((_%e5520055393%_ + (gx#syntax-e _%tl5518655434%_))) + (let ((_%tl5519855400%_ (let () (declare (not safe)) - (##cdr _%e5537555568%_))) - (_%hd5537455572%_ + (##cdr _%e5520055393%_))) + (_%hd5519955397%_ (let () (declare (not safe)) - (##car _%e5537555568%_)))) - (_%__match7788777888%_ - _%e5536355602%_ - _%hd5536255606%_ - _%tl5536155609%_ - _%e5537555568%_ - _%hd5537455572%_ - _%tl5537355575%_))) - (_%__kont7783577836%_)))))) - (_%__match7786377864%_ - (lambda (_%e5535155646%_ - _%hd5535055650%_ - _%tl5534955653%_ - _%e5535455656%_ - _%hd5535355660%_ - _%tl5535255663%_ - _%e5535755666%_ - _%hd5535655670%_ - _%tl5535555673%_) - (let ((_%L55676%_ _%tl5534955653%_) - (_%L55678%_ _%hd5535355660%_)) - (if (gx#identifier? _%L55678%_) - (_%__kont7782577826%_ _%L55676%_ _%L55678%_) - (_%__match7787577876%_ - _%e5535155646%_ - _%hd5535055650%_ - _%tl5534955653%_ - _%e5535455656%_ - _%hd5535355660%_ - _%tl5535255663%_))))) - (_%__match7784377844%_ - (lambda (_%e5534655700%_ - _%hd5534555704%_ - _%tl5534455707%_) - (let ((_%L55710%_ _%tl5534455707%_) - (_%L55712%_ _%hd5534555704%_)) - (if (gx#identifier? _%L55712%_) - (_%__kont7782377824%_ _%L55710%_ _%L55712%_) - (if (gx#stx-pair? _%hd5534555704%_) - (let ((_%e5535455656%_ - (gx#syntax-e _%hd5534555704%_))) - (let ((_%tl5535255663%_ + (##car _%e5520055393%_)))) + (_%__match7771277713%_ + _%e5518855427%_ + _%hd5518755431%_ + _%tl5518655434%_ + _%e5520055393%_ + _%hd5519955397%_ + _%tl5519855400%_))) + (_%__kont7766077661%_)))))) + (_%__match7768877689%_ + (lambda (_%e5517655471%_ + _%hd5517555475%_ + _%tl5517455478%_ + _%e5517955481%_ + _%hd5517855485%_ + _%tl5517755488%_ + _%e5518255491%_ + _%hd5518155495%_ + _%tl5518055498%_) + (let ((_%L55501%_ _%tl5517455478%_) + (_%L55503%_ _%hd5517855485%_)) + (if (gx#identifier? _%L55503%_) + (_%__kont7765077651%_ _%L55501%_ _%L55503%_) + (_%__match7770077701%_ + _%e5517655471%_ + _%hd5517555475%_ + _%tl5517455478%_ + _%e5517955481%_ + _%hd5517855485%_ + _%tl5517755488%_))))) + (_%__match7766877669%_ + (lambda (_%e5517155525%_ + _%hd5517055529%_ + _%tl5516955532%_) + (let ((_%L55535%_ _%tl5516955532%_) + (_%L55537%_ _%hd5517055529%_)) + (if (gx#identifier? _%L55537%_) + (_%__kont7764877649%_ _%L55535%_ _%L55537%_) + (if (gx#stx-pair? _%hd5517055529%_) + (let ((_%e5517955481%_ + (gx#syntax-e _%hd5517055529%_))) + (let ((_%tl5517755488%_ (let () (declare (not safe)) - (##cdr _%e5535455656%_))) - (_%hd5535355660%_ + (##cdr _%e5517955481%_))) + (_%hd5517855485%_ (let () (declare (not safe)) - (##car _%e5535455656%_)))) - (if (gx#stx-pair? _%tl5535255663%_) - (let ((_%e5535755666%_ + (##car _%e5517955481%_)))) + (if (gx#stx-pair? _%tl5517755488%_) + (let ((_%e5518255491%_ (gx#syntax-e - _%tl5535255663%_))) - (let ((_%tl5535555673%_ + _%tl5517755488%_))) + (let ((_%tl5518055498%_ (let () (declare (not safe)) - (##cdr _%e5535755666%_))) - (_%hd5535655670%_ + (##cdr _%e5518255491%_))) + (_%hd5518155495%_ (let () (declare (not safe)) - (##car _%e5535755666%_)))) + (##car _%e5518255491%_)))) (if (gx#stx-null? - _%tl5535555673%_) - (_%__match7786377864%_ - _%e5534655700%_ - _%hd5534555704%_ - _%tl5534455707%_ - _%e5535455656%_ - _%hd5535355660%_ - _%tl5535255663%_ - _%e5535755666%_ - _%hd5535655670%_ - _%tl5535555673%_) - (_%__match7787577876%_ - _%e5534655700%_ - _%hd5534555704%_ - _%tl5534455707%_ - _%e5535455656%_ - _%hd5535355660%_ - _%tl5535255663%_)))) - (_%__match7787577876%_ - _%e5534655700%_ - _%hd5534555704%_ - _%tl5534455707%_ - _%e5535455656%_ - _%hd5535355660%_ - _%tl5535255663%_)))) - (if (gx#stx-pair? _%tl5534455707%_) - (let ((_%e5537555568%_ - (gx#syntax-e _%tl5534455707%_))) - (let ((_%tl5537355575%_ + _%tl5518055498%_) + (_%__match7768877689%_ + _%e5517155525%_ + _%hd5517055529%_ + _%tl5516955532%_ + _%e5517955481%_ + _%hd5517855485%_ + _%tl5517755488%_ + _%e5518255491%_ + _%hd5518155495%_ + _%tl5518055498%_) + (_%__match7770077701%_ + _%e5517155525%_ + _%hd5517055529%_ + _%tl5516955532%_ + _%e5517955481%_ + _%hd5517855485%_ + _%tl5517755488%_)))) + (_%__match7770077701%_ + _%e5517155525%_ + _%hd5517055529%_ + _%tl5516955532%_ + _%e5517955481%_ + _%hd5517855485%_ + _%tl5517755488%_)))) + (if (gx#stx-pair? _%tl5516955532%_) + (let ((_%e5520055393%_ + (gx#syntax-e _%tl5516955532%_))) + (let ((_%tl5519855400%_ (let () (declare (not safe)) - (##cdr _%e5537555568%_))) - (_%hd5537455572%_ + (##cdr _%e5520055393%_))) + (_%hd5519955397%_ (let () (declare (not safe)) - (##car _%e5537555568%_)))) - (_%__match7788777888%_ - _%e5534655700%_ - _%hd5534555704%_ - _%tl5534455707%_ - _%e5537555568%_ - _%hd5537455572%_ - _%tl5537355575%_))) - (_%__kont7783577836%_)))))))) - (if (gx#stx-pair? _%__stx7782077821%_) - (let ((_%e5534655700%_ - (gx#syntax-e _%__stx7782077821%_))) - (let ((_%tl5534455707%_ + (##car _%e5520055393%_)))) + (_%__match7771277713%_ + _%e5517155525%_ + _%hd5517055529%_ + _%tl5516955532%_ + _%e5520055393%_ + _%hd5519955397%_ + _%tl5519855400%_))) + (_%__kont7766077661%_)))))))) + (if (gx#stx-pair? _%__stx7764577646%_) + (let ((_%e5517155525%_ + (gx#syntax-e _%__stx7764577646%_))) + (let ((_%tl5516955532%_ (let () (declare (not safe)) - (##cdr _%e5534655700%_))) - (_%hd5534555704%_ + (##cdr _%e5517155525%_))) + (_%hd5517055529%_ (let () (declare (not safe)) - (##car _%e5534655700%_)))) - (_%__match7784377844%_ - _%e5534655700%_ - _%hd5534555704%_ - _%tl5534455707%_))) - (_%__kont7783577836%_))))))))) + (##car _%e5517155525%_)))) + (_%__match7766877669%_ + _%e5517155525%_ + _%hd5517055529%_ + _%tl5516955532%_))) + (_%__kont7766077661%_))))))))) (define |gerbil/core/contract~Interface[1]#compatible-signatures?| - (lambda (_%left55286%_ _%right55288%_) - (let ((__tmp80800 - (lambda (_%return55290%_) - (let ((_%left-arity55293%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-arity| - _%left55286%_))) - (_%right-arity55295%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-arity| - _%right55288%_)))) - (if (equal? _%left-arity55293%_ _%right-arity55295%_) + (lambda (_%left55111%_ _%right55113%_) + (let ((__tmp80565 + (lambda (_%return55115%_) + (let ((_%left-arity55118%_ + (|gerbil/core/contract~Interface[1]#signature-arity| + _%left55111%_)) + (_%right-arity55120%_ + (|gerbil/core/contract~Interface[1]#signature-arity| + _%right55113%_))) + (if (equal? _%left-arity55118%_ _%right-arity55120%_) '#!void - (_%return55290%_ '#f))) - (let ((_%left-kws55297%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-keywords| - _%left55286%_))) - (_%right-kws55299%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-keywords| - _%right55288%_)))) - (if (equal? _%left-kws55297%_ _%right-kws55299%_) + (_%return55115%_ '#f))) + (let ((_%left-kws55122%_ + (|gerbil/core/contract~Interface[1]#signature-keywords| + _%left55111%_)) + (_%right-kws55124%_ + (|gerbil/core/contract~Interface[1]#signature-keywords| + _%right55113%_))) + (if (equal? _%left-kws55122%_ _%right-kws55124%_) '#!void - (_%return55290%_ '#f))) - (let ((_g80801_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-type-contract| - _%left55286%_))) - (_g80803_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-type-contract| - _%right55288%_)))) + (_%return55115%_ '#f))) + (let ((_g80566_ + (|gerbil/core/contract~Interface[1]#signature-type-contract| + _%left55111%_)) + (_g80568_ + (|gerbil/core/contract~Interface[1]#signature-type-contract| + _%right55113%_))) (begin - (let ((_g80802_ + (let ((_g80567_ (let () (declare (not safe)) - (if (##values? _g80801_) - (##vector-length _g80801_) + (if (##values? _g80566_) + (##vector-length _g80566_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80802_ 2))) - (error "Context expects 2 values" _g80802_))) - (let ((_g80804_ + (##fx= _g80567_ 2))) + (error "Context expects 2 values" _g80567_))) + (let ((_g80569_ (let () (declare (not safe)) - (if (##values? _g80803_) - (##vector-length _g80803_) + (if (##values? _g80568_) + (##vector-length _g80568_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80804_ 2))) - (error "Context expects 2 values" _g80804_))) - (let ((_%left-positional-contract55301%_ + (##fx= _g80569_ 2))) + (error "Context expects 2 values" _g80569_))) + (let ((_%left-positional-contract55126%_ (let () (declare (not safe)) - (##vector-ref _g80801_ 0))) - (_%left-kw-contract55303%_ + (##vector-ref _g80566_ 0))) + (_%left-kw-contract55128%_ (let () (declare (not safe)) - (##vector-ref _g80801_ 1)))) - (let ((_%right-positional-contract55304%_ + (##vector-ref _g80566_ 1)))) + (let ((_%right-positional-contract55129%_ (let () (declare (not safe)) - (##vector-ref _g80803_ 0))) - (_%right-kw-contract55305%_ + (##vector-ref _g80568_ 0))) + (_%right-kw-contract55130%_ (let () (declare (not safe)) - (##vector-ref _g80803_ 1)))) - (let ((_%left-contract55315%_ - (append _%left-positional-contract55301%_ - (foldr (lambda (_%kwc55307%_ - _%r55309%_) - (cons (cdr _%kwc55307%_) - _%r55309%_)) + (##vector-ref _g80568_ 1)))) + (let ((_%left-contract55140%_ + (append _%left-positional-contract55126%_ + (foldr (lambda (_%kwc55132%_ + _%r55134%_) + (cons (cdr _%kwc55132%_) + _%r55134%_)) '() - _%left-kw-contract55303%_))) - (_%right-contract55317%_ - (append _%right-positional-contract55304%_ - (foldr (lambda (_%kwc55311%_ - _%r55313%_) - (cons (cdr _%kwc55311%_) - _%r55313%_)) + _%left-kw-contract55128%_))) + (_%right-contract55142%_ + (append _%right-positional-contract55129%_ + (foldr (lambda (_%kwc55136%_ + _%r55138%_) + (cons (cdr _%kwc55136%_) + _%r55138%_)) '() - _%right-kw-contract55305%_)))) - (if (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| - _%left-contract55315%_ - _%right-contract55317%_)) + _%right-kw-contract55130%_)))) + (if (|gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| + _%left-contract55140%_ + _%right-contract55142%_) '#!void - (_%return55290%_ '#f))))))) + (_%return55115%_ '#f))))))) '#t))) (declare (not safe)) - (##call-with-current-continuation __tmp80800)))) + (##call-with-current-continuation __tmp80565)))) (define |gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| - (lambda (_%left55189%_ _%right55191%_) - (let _%loop55193%_ ((_%left-rest55196%_ _%left55189%_) - (_%right-rest55198%_ _%right55191%_)) - (let* ((_%left-rest5519955207%_ _%left-rest55196%_) - (_%else5520155219%_ - (lambda () - (let () (declare (not safe)) (null? _%right-rest55198%_)))) - (_%K5520355270%_ - (lambda (_%left-rest55223%_ _%left55225%_) - (let* ((_%right-rest5522655234%_ _%right-rest55198%_) - (_%else5522855246%_ (lambda () '#f)) - (_%K5523055254%_ - (lambda (_%right-rest55250%_ _%right55252%_) - (if (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#compatible-type-contract?| - _%left55225%_ - _%right55252%_)) - (let () - (declare (not safe)) - (_%loop55193%_ - _%left-rest55223%_ - _%right-rest55250%_)) + (lambda (_%left55014%_ _%right55016%_) + (let _%loop55018%_ ((_%left-rest55021%_ _%left55014%_) + (_%right-rest55023%_ _%right55016%_)) + (let* ((_%left-rest5502455032%_ _%left-rest55021%_) + (_%else5502655044%_ (lambda () (null? _%right-rest55023%_))) + (_%K5502855095%_ + (lambda (_%left-rest55048%_ _%left55050%_) + (let* ((_%right-rest5505155059%_ _%right-rest55023%_) + (_%else5505355071%_ (lambda () '#f)) + (_%K5505555079%_ + (lambda (_%right-rest55075%_ _%right55077%_) + (if (|gerbil/core/contract~Interface[1]#compatible-type-contract?| + _%left55050%_ + _%right55077%_) + (_%loop55018%_ + _%left-rest55048%_ + _%right-rest55075%_) '#f)))) (if (let () (declare (not safe)) - (##pair? _%right-rest5522655234%_)) - (let ((_%hd5523155258%_ + (##pair? _%right-rest5505155059%_)) + (let ((_%hd5505655083%_ (let () (declare (not safe)) - (##car _%right-rest5522655234%_))) - (_%tl5523255261%_ + (##car _%right-rest5505155059%_))) + (_%tl5505755086%_ (let () (declare (not safe)) - (##cdr _%right-rest5522655234%_)))) - (let* ((_%right55264%_ _%hd5523155258%_) - (_%right-rest55267%_ _%tl5523255261%_)) - (declare (not safe)) - (_%K5523055254%_ - _%right-rest55267%_ - _%right55264%_))) - (let () - (declare (not safe)) - (_%else5522855246%_))))))) - (if (let () (declare (not safe)) (##pair? _%left-rest5519955207%_)) - (let ((_%hd5520455274%_ + (##cdr _%right-rest5505155059%_)))) + (let* ((_%right55089%_ _%hd5505655083%_) + (_%right-rest55092%_ _%tl5505755086%_)) + (_%K5505555079%_ + _%right-rest55092%_ + _%right55089%_))) + (_%else5505355071%_)))))) + (if (let () (declare (not safe)) (##pair? _%left-rest5502455032%_)) + (let ((_%hd5502955099%_ (let () (declare (not safe)) - (##car _%left-rest5519955207%_))) - (_%tl5520555277%_ + (##car _%left-rest5502455032%_))) + (_%tl5503055102%_ (let () (declare (not safe)) - (##cdr _%left-rest5519955207%_)))) - (let* ((_%left55280%_ _%hd5520455274%_) - (_%left-rest55283%_ _%tl5520555277%_)) - (declare (not safe)) - (_%K5520355270%_ _%left-rest55283%_ _%left55280%_))) - (let () (declare (not safe)) (_%else5520155219%_))))))) + (##cdr _%left-rest5502455032%_)))) + (let* ((_%left55105%_ _%hd5502955099%_) + (_%left-rest55108%_ _%tl5503055102%_)) + (_%K5502855095%_ _%left-rest55108%_ _%left55105%_))) + (_%else5502655044%_)))))) (define |gerbil/core/contract~Interface[1]#compatible-type-contract?| - (lambda (_%left53318%_ _%right53320%_) - (andmap (lambda (_%a53322%_ _%b53324%_) - (let* ((_%__stx7842678427%_ _%a53322%_) - (_%g5333253410%_ + (lambda (_%left53143%_ _%right53145%_) + (andmap (lambda (_%a53147%_ _%b53149%_) + (let* ((_%__stx7825178252%_ _%a53147%_) + (_%g5315753235%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7842678427%_)))) - (let ((_%__kont7842978430%_ - (lambda (_%L54923%_ _%L54925%_) - (let* ((_%__stx7834478345%_ _%b53324%_) - (_%g5494454988%_ + _%__stx7825178252%_)))) + (let ((_%__kont7825478255%_ + (lambda (_%L54748%_ _%L54750%_) + (let* ((_%__stx7816978170%_ _%b53149%_) + (_%g5476954813%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7834478345%_)))) - (let ((_%__kont7834778348%_ - (lambda (_%L55158%_ _%L55160%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54923%_ - _%L55158%_)))) - (_%__kont7834978350%_ - (lambda (_%L55102%_ - _%L55104%_ - _%L55105%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54923%_ - _%L55102%_)))) - (_%__kont7835178352%_ - (lambda (_%L55035%_ _%L55037%_) '#t))) - (let* ((_%__match7839378394%_ - (lambda (_%e5495955062%_ - _%hd5495855066%_ - _%tl5495755069%_ - _%e5496255072%_ - _%hd5496155076%_ - _%tl5496055079%_ - _%e5496555082%_ - _%hd5496455086%_ - _%tl5496355089%_ - _%e5496855092%_ - _%hd5496755096%_ - _%tl5496655099%_) - (let ((_%L55102%_ _%hd5496755096%_) - (_%L55104%_ _%hd5496455086%_) - (_%L55105%_ _%hd5496155076%_)) + _%__stx7816978170%_)))) + (let ((_%__kont7817278173%_ + (lambda (_%L54983%_ _%L54985%_) + (|gerbil/core/contract~Interface[1]#contract-type-subtype?| + _%L54748%_ + _%L54983%_))) + (_%__kont7817478175%_ + (lambda (_%L54927%_ + _%L54929%_ + _%L54930%_) + (|gerbil/core/contract~Interface[1]#contract-type-subtype?| + _%L54748%_ + _%L54927%_))) + (_%__kont7817678177%_ + (lambda (_%L54860%_ _%L54862%_) '#t))) + (let* ((_%__match7821878219%_ + (lambda (_%e5478454887%_ + _%hd5478354891%_ + _%tl5478254894%_ + _%e5478754897%_ + _%hd5478654901%_ + _%tl5478554904%_ + _%e5479054907%_ + _%hd5478954911%_ + _%tl5478854914%_ + _%e5479354917%_ + _%hd5479254921%_ + _%tl5479154924%_) + (let ((_%L54927%_ _%hd5479254921%_) + (_%L54929%_ _%hd5478954911%_) + (_%L54930%_ _%hd5478654901%_)) (if (or (gx#free-identifier=? - _%L55104%_ + _%L54929%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L55104%_ + _%L54929%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L55104%_ + _%L54929%_ (gx#datum->syntax '#f ':-))) - (_%__kont7834978350%_ - _%L55102%_ - _%L55104%_ - _%L55105%_) + (_%__kont7817478175%_ + _%L54927%_ + _%L54929%_ + _%L54930%_) (if (gx#stx-null? - _%tl5496655099%_) - (_%__kont7835178352%_ - _%hd5496455086%_ - _%hd5496155076%_) + _%tl5479154924%_) + (_%__kont7817678177%_ + _%hd5478954911%_ + _%hd5478654901%_) (let () (declare (not safe)) - (_%g5494454988%_))))))) - (_%__match7836578366%_ - (lambda (_%e5495055138%_ - _%hd5494955142%_ - _%tl5494855145%_ - _%e5495355148%_ - _%hd5495255152%_ - _%tl5495155155%_) - (let ((_%L55158%_ _%hd5495255152%_) - (_%L55160%_ _%hd5494955142%_)) + (_%g5476954813%_))))))) + (_%__match7819078191%_ + (lambda (_%e5477554963%_ + _%hd5477454967%_ + _%tl5477354970%_ + _%e5477854973%_ + _%hd5477754977%_ + _%tl5477654980%_) + (let ((_%L54983%_ _%hd5477754977%_) + (_%L54985%_ _%hd5477454967%_)) (if (or (gx#free-identifier=? - _%L55160%_ + _%L54985%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L55160%_ + _%L54985%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L55160%_ + _%L54985%_ (gx#datum->syntax '#f ':-))) - (_%__kont7834778348%_ - _%L55158%_ - _%L55160%_) + (_%__kont7817278173%_ + _%L54983%_ + _%L54985%_) (if (gx#identifier? - _%hd5494955142%_) + _%hd5477454967%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80805_| - _%hd5494955142%_) + |gerbil/core/contract~Interface[1]#_g80570_| + _%hd5477454967%_) (if (gx#stx-pair? - _%tl5495155155%_) - (let ((_%e5496555082%_ + _%tl5477654980%_) + (let ((_%e5479054907%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5495155155%_))) - (let ((_%tl5496355089%_ + (gx#syntax-e _%tl5477654980%_))) + (let ((_%tl5478854914%_ (let () (declare (not safe)) - (##cdr _%e5496555082%_))) - (_%hd5496455086%_ + (##cdr _%e5479054907%_))) + (_%hd5478954911%_ (let () (declare (not safe)) - (##car _%e5496555082%_)))) - (if (gx#stx-pair? _%tl5496355089%_) - (let ((_%e5496855092%_ - (gx#syntax-e _%tl5496355089%_))) - (let ((_%tl5496655099%_ + (##car _%e5479054907%_)))) + (if (gx#stx-pair? _%tl5478854914%_) + (let ((_%e5479354917%_ + (gx#syntax-e _%tl5478854914%_))) + (let ((_%tl5479154924%_ (let () (declare (not safe)) - (##cdr _%e5496855092%_))) - (_%hd5496755096%_ + (##cdr _%e5479354917%_))) + (_%hd5479254921%_ (let () (declare (not safe)) - (##car _%e5496855092%_)))) - (_%__match7839378394%_ - _%e5495055138%_ - _%hd5494955142%_ - _%tl5494855145%_ - _%e5495355148%_ - _%hd5495255152%_ - _%tl5495155155%_ - _%e5496555082%_ - _%hd5496455086%_ - _%tl5496355089%_ - _%e5496855092%_ - _%hd5496755096%_ - _%tl5496655099%_))) - (let () (declare (not safe)) (_%g5494454988%_))))) - (let () (declare (not safe)) (_%g5494454988%_))) - (let () (declare (not safe)) (_%g5494454988%_))) + (##car _%e5479354917%_)))) + (_%__match7821878219%_ + _%e5477554963%_ + _%hd5477454967%_ + _%tl5477354970%_ + _%e5477854973%_ + _%hd5477754977%_ + _%tl5477654980%_ + _%e5479054907%_ + _%hd5478954911%_ + _%tl5478854914%_ + _%e5479354917%_ + _%hd5479254921%_ + _%tl5479154924%_))) + (let () (declare (not safe)) (_%g5476954813%_))))) + (let () (declare (not safe)) (_%g5476954813%_))) + (let () (declare (not safe)) (_%g5476954813%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5494454988%_)))))))) - (if (gx#stx-pair? _%__stx7834478345%_) - (let ((_%e5495055138%_ + (_%g5476954813%_)))))))) + (if (gx#stx-pair? _%__stx7816978170%_) + (let ((_%e5477554963%_ (gx#syntax-e - _%__stx7834478345%_))) - (let ((_%tl5494855145%_ + _%__stx7816978170%_))) + (let ((_%tl5477354970%_ (let () (declare (not safe)) - (##cdr _%e5495055138%_))) - (_%hd5494955142%_ + (##cdr _%e5477554963%_))) + (_%hd5477454967%_ (let () (declare (not safe)) - (##car _%e5495055138%_)))) - (if (gx#stx-pair? _%tl5494855145%_) - (let ((_%e5495355148%_ + (##car _%e5477554963%_)))) + (if (gx#stx-pair? _%tl5477354970%_) + (let ((_%e5477854973%_ (gx#syntax-e - _%tl5494855145%_))) - (let ((_%tl5495155155%_ + _%tl5477354970%_))) + (let ((_%tl5477654980%_ (let () (declare (not safe)) - (##cdr _%e5495355148%_))) - (_%hd5495255152%_ + (##cdr _%e5477854973%_))) + (_%hd5477754977%_ (let () (declare (not safe)) - (##car _%e5495355148%_)))) - (_%__match7836578366%_ - _%e5495055138%_ - _%hd5494955142%_ - _%tl5494855145%_ - _%e5495355148%_ - _%hd5495255152%_ - _%tl5495155155%_))) + (##car _%e5477854973%_)))) + (_%__match7819078191%_ + _%e5477554963%_ + _%hd5477454967%_ + _%tl5477354970%_ + _%e5477854973%_ + _%hd5477754977%_ + _%tl5477654980%_))) (let () (declare (not safe)) - (_%g5494454988%_))))) + (_%g5476954813%_))))) (let () (declare (not safe)) - (_%g5494454988%_)))))))) - (_%__kont7843178432%_ - (lambda (_%L54730%_) - (let* ((_%__stx7828478285%_ _%b53324%_) - (_%g5474554773%_ + (_%g5476954813%_)))))))) + (_%__kont7825678257%_ + (lambda (_%L54555%_) + (let* ((_%__stx7810978110%_ _%b53149%_) + (_%g5457054598%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7828478285%_)))) - (let ((_%__kont7828778288%_ - (lambda (_%L54879%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54730%_ - _%L54879%_)))) - (_%__kont7828978290%_ - (lambda (_%L54831%_ _%L54833%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54730%_ - _%L54831%_)))) - (_%__kont7829178292%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx7828478285%_) - (let ((_%e5475054859%_ - (gx#syntax-e _%__stx7828478285%_))) - (let ((_%tl5474854866%_ + _%__stx7810978110%_)))) + (let ((_%__kont7811278113%_ + (lambda (_%L54704%_) + (|gerbil/core/contract~Interface[1]#contract-type-subtype?| + _%L54555%_ + _%L54704%_))) + (_%__kont7811478115%_ + (lambda (_%L54656%_ _%L54658%_) + (|gerbil/core/contract~Interface[1]#contract-type-subtype?| + _%L54555%_ + _%L54656%_))) + (_%__kont7811678117%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx7810978110%_) + (let ((_%e5457554684%_ + (gx#syntax-e _%__stx7810978110%_))) + (let ((_%tl5457354691%_ (let () (declare (not safe)) - (##cdr _%e5475054859%_))) - (_%hd5474954863%_ + (##cdr _%e5457554684%_))) + (_%hd5457454688%_ (let () (declare (not safe)) - (##car _%e5475054859%_)))) - (if (gx#identifier? _%hd5474954863%_) + (##car _%e5457554684%_)))) + (if (gx#identifier? _%hd5457454688%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80806_| - _%hd5474954863%_) + |gerbil/core/contract~Interface[1]#_g80571_| + _%hd5457454688%_) (if (gx#stx-pair? - _%tl5474854866%_) - (let ((_%e5475354869%_ + _%tl5457354691%_) + (let ((_%e5457854694%_ (gx#syntax-e - _%tl5474854866%_))) - (let ((_%tl5475154876%_ + _%tl5457354691%_))) + (let ((_%tl5457654701%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5475354869%_))) - (_%hd5475254873%_ - (let () (declare (not safe)) (##car _%e5475354869%_)))) - (_%__kont7828778288%_ _%hd5475254873%_))) + (##cdr _%e5457854694%_))) + (_%hd5457754698%_ + (let () (declare (not safe)) (##car _%e5457854694%_)))) + (_%__kont7811278113%_ _%hd5457754698%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7829178292%_)) + (_%__kont7811678117%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80807_| - _%hd5474954863%_) + |gerbil/core/contract~Interface[1]#_g80572_| + _%hd5457454688%_) (if (gx#stx-pair? - _%tl5474854866%_) - (let ((_%e5476154801%_ + _%tl5457354691%_) + (let ((_%e5458654626%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5474854866%_))) - (let ((_%tl5475954808%_ + _%tl5457354691%_))) + (let ((_%tl5458454633%_ (let () (declare (not safe)) - (##cdr _%e5476154801%_))) - (_%hd5476054805%_ + (##cdr _%e5458654626%_))) + (_%hd5458554630%_ (let () (declare (not safe)) - (##car _%e5476154801%_)))) - (if (gx#stx-pair? _%tl5475954808%_) - (let ((_%e5476454811%_ - (gx#syntax-e _%tl5475954808%_))) - (let ((_%tl5476254818%_ + (##car _%e5458654626%_)))) + (if (gx#stx-pair? _%tl5458454633%_) + (let ((_%e5458954636%_ + (gx#syntax-e _%tl5458454633%_))) + (let ((_%tl5458754643%_ (let () (declare (not safe)) - (##cdr _%e5476454811%_))) - (_%hd5476354815%_ + (##cdr _%e5458954636%_))) + (_%hd5458854640%_ (let () (declare (not safe)) - (##car _%e5476454811%_)))) - (if (gx#identifier? _%hd5476354815%_) + (##car _%e5458954636%_)))) + (if (gx#identifier? _%hd5458854640%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80808_| - _%hd5476354815%_) - (if (gx#stx-pair? _%tl5476254818%_) - (let ((_%e5476754821%_ + |gerbil/core/contract~Interface[1]#_g80573_| + _%hd5458854640%_) + (if (gx#stx-pair? _%tl5458754643%_) + (let ((_%e5459254646%_ (gx#syntax-e - _%tl5476254818%_))) - (let ((_%tl5476554828%_ + _%tl5458754643%_))) + (let ((_%tl5459054653%_ (let () (declare (not safe)) - (##cdr _%e5476754821%_))) - (_%hd5476654825%_ + (##cdr _%e5459254646%_))) + (_%hd5459154650%_ (let () (declare (not safe)) - (##car _%e5476754821%_)))) - (_%__kont7828978290%_ - _%hd5476654825%_ - _%hd5476054805%_))) - (_%__kont7829178292%_)) - (_%__kont7829178292%_)) - (_%__kont7829178292%_)))) - (_%__kont7829178292%_)))) - (_%__kont7829178292%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7829178292%_))) - (_%__kont7829178292%_)))) - (_%__kont7829178292%_)))))) - (_%__kont7843378434%_ - (lambda (_%L54447%_) - (let* ((_%__stx7819878199%_ _%b53324%_) - (_%g5446254506%_ + (##car _%e5459254646%_)))) + (_%__kont7811478115%_ + _%hd5459154650%_ + _%hd5458554630%_))) + (_%__kont7811678117%_)) + (_%__kont7811678117%_)) + (_%__kont7811678117%_)))) + (_%__kont7811678117%_)))) + (_%__kont7811678117%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7811678117%_))) + (_%__kont7811678117%_)))) + (_%__kont7811678117%_)))))) + (_%__kont7825878259%_ + (lambda (_%L54272%_) + (let* ((_%__stx7802378024%_ _%b53149%_) + (_%g5428754331%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7819878199%_)))) - (let ((_%__kont7820178202%_ - (lambda (_%L54676%_ _%L54678%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54447%_ - _%L54676%_)))) - (_%__kont7820378204%_ - (lambda (_%L54618%_ - _%L54620%_ - _%L54621%_ - _%L54622%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54447%_ - _%L54620%_)))) - (_%__kont7820578206%_ - (lambda (_%L54553%_) '#t))) - (let* ((_%__match7824778248%_ - (lambda (_%e5447854578%_ - _%hd5447754582%_ - _%tl5447654585%_ - _%e5448154588%_ - _%hd5448054592%_ - _%tl5447954595%_ - _%e5448454598%_ - _%hd5448354602%_ - _%tl5448254605%_ - _%e5448754608%_ - _%hd5448654612%_ - _%tl5448554615%_) - (let ((_%L54618%_ _%tl5448554615%_) - (_%L54620%_ _%hd5448654612%_) - (_%L54621%_ _%hd5448354602%_) - (_%L54622%_ _%hd5448054592%_)) + _%__stx7802378024%_)))) + (let ((_%__kont7802678027%_ + (lambda (_%L54501%_ _%L54503%_) + (|gerbil/core/contract~Interface[1]#contract-type-subtype?| + _%L54272%_ + _%L54501%_))) + (_%__kont7802878029%_ + (lambda (_%L54443%_ + _%L54445%_ + _%L54446%_ + _%L54447%_) + (|gerbil/core/contract~Interface[1]#contract-type-subtype?| + _%L54272%_ + _%L54445%_))) + (_%__kont7803078031%_ + (lambda (_%L54378%_) '#t))) + (let* ((_%__match7807278073%_ + (lambda (_%e5430354403%_ + _%hd5430254407%_ + _%tl5430154410%_ + _%e5430654413%_ + _%hd5430554417%_ + _%tl5430454420%_ + _%e5430954423%_ + _%hd5430854427%_ + _%tl5430754430%_ + _%e5431254433%_ + _%hd5431154437%_ + _%tl5431054440%_) + (let ((_%L54443%_ _%tl5431054440%_) + (_%L54445%_ _%hd5431154437%_) + (_%L54446%_ _%hd5430854427%_) + (_%L54447%_ _%hd5430554417%_)) (if (or (gx#free-identifier=? - _%L54621%_ + _%L54446%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54621%_ + _%L54446%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54621%_ + _%L54446%_ (gx#datum->syntax '#f ':-))) - (_%__kont7820378204%_ - _%L54618%_ - _%L54620%_ - _%L54621%_ - _%L54622%_) + (_%__kont7802878029%_ + _%L54443%_ + _%L54445%_ + _%L54446%_ + _%L54447%_) (if (gx#identifier? - _%hd5448354602%_) + _%hd5430854427%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80809_| - _%hd5448354602%_) + |gerbil/core/contract~Interface[1]#_g80574_| + _%hd5430854427%_) (if (gx#stx-null? - _%tl5448554615%_) - (_%__kont7820578206%_ - _%hd5448054592%_) + _%tl5431054440%_) + (_%__kont7803078031%_ + _%hd5430554417%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_%g5446254506%_))) - (let () (declare (not safe)) (_%g5446254506%_))) + (_%g5428754331%_))) + (let () (declare (not safe)) (_%g5428754331%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5446254506%_))))))) - (_%__match7821978220%_ - (lambda (_%e5446854656%_ - _%hd5446754660%_ - _%tl5446654663%_ - _%e5447154666%_ - _%hd5447054670%_ - _%tl5446954673%_) - (let ((_%L54676%_ _%hd5447054670%_) - (_%L54678%_ _%hd5446754660%_)) + (_%g5428754331%_))))))) + (_%__match7804478045%_ + (lambda (_%e5429354481%_ + _%hd5429254485%_ + _%tl5429154488%_ + _%e5429654491%_ + _%hd5429554495%_ + _%tl5429454498%_) + (let ((_%L54501%_ _%hd5429554495%_) + (_%L54503%_ _%hd5429254485%_)) (if (or (gx#free-identifier=? - _%L54678%_ + _%L54503%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54678%_ + _%L54503%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54678%_ + _%L54503%_ (gx#datum->syntax '#f ':-))) - (_%__kont7820178202%_ - _%L54676%_ - _%L54678%_) + (_%__kont7802678027%_ + _%L54501%_ + _%L54503%_) (if (gx#identifier? - _%hd5446754660%_) + _%hd5429254485%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80810_| - _%hd5446754660%_) + |gerbil/core/contract~Interface[1]#_g80575_| + _%hd5429254485%_) (if (gx#stx-pair? - _%tl5446954673%_) - (let ((_%e5448454598%_ + _%tl5429454498%_) + (let ((_%e5430954423%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5446954673%_))) - (let ((_%tl5448254605%_ + (gx#syntax-e _%tl5429454498%_))) + (let ((_%tl5430754430%_ (let () (declare (not safe)) - (##cdr _%e5448454598%_))) - (_%hd5448354602%_ + (##cdr _%e5430954423%_))) + (_%hd5430854427%_ (let () (declare (not safe)) - (##car _%e5448454598%_)))) - (if (gx#stx-pair? _%tl5448254605%_) - (let ((_%e5448754608%_ - (gx#syntax-e _%tl5448254605%_))) - (let ((_%tl5448554615%_ + (##car _%e5430954423%_)))) + (if (gx#stx-pair? _%tl5430754430%_) + (let ((_%e5431254433%_ + (gx#syntax-e _%tl5430754430%_))) + (let ((_%tl5431054440%_ (let () (declare (not safe)) - (##cdr _%e5448754608%_))) - (_%hd5448654612%_ + (##cdr _%e5431254433%_))) + (_%hd5431154437%_ (let () (declare (not safe)) - (##car _%e5448754608%_)))) - (_%__match7824778248%_ - _%e5446854656%_ - _%hd5446754660%_ - _%tl5446654663%_ - _%e5447154666%_ - _%hd5447054670%_ - _%tl5446954673%_ - _%e5448454598%_ - _%hd5448354602%_ - _%tl5448254605%_ - _%e5448754608%_ - _%hd5448654612%_ - _%tl5448554615%_))) - (let () (declare (not safe)) (_%g5446254506%_))))) - (let () (declare (not safe)) (_%g5446254506%_))) - (let () (declare (not safe)) (_%g5446254506%_))) + (##car _%e5431254433%_)))) + (_%__match7807278073%_ + _%e5429354481%_ + _%hd5429254485%_ + _%tl5429154488%_ + _%e5429654491%_ + _%hd5429554495%_ + _%tl5429454498%_ + _%e5430954423%_ + _%hd5430854427%_ + _%tl5430754430%_ + _%e5431254433%_ + _%hd5431154437%_ + _%tl5431054440%_))) + (let () (declare (not safe)) (_%g5428754331%_))))) + (let () (declare (not safe)) (_%g5428754331%_))) + (let () (declare (not safe)) (_%g5428754331%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5446254506%_)))))))) - (if (gx#stx-pair? _%__stx7819878199%_) - (let ((_%e5446854656%_ + (_%g5428754331%_)))))))) + (if (gx#stx-pair? _%__stx7802378024%_) + (let ((_%e5429354481%_ (gx#syntax-e - _%__stx7819878199%_))) - (let ((_%tl5446654663%_ + _%__stx7802378024%_))) + (let ((_%tl5429154488%_ (let () (declare (not safe)) - (##cdr _%e5446854656%_))) - (_%hd5446754660%_ + (##cdr _%e5429354481%_))) + (_%hd5429254485%_ (let () (declare (not safe)) - (##car _%e5446854656%_)))) - (if (gx#stx-pair? _%tl5446654663%_) - (let ((_%e5447154666%_ + (##car _%e5429354481%_)))) + (if (gx#stx-pair? _%tl5429154488%_) + (let ((_%e5429654491%_ (gx#syntax-e - _%tl5446654663%_))) - (let ((_%tl5446954673%_ + _%tl5429154488%_))) + (let ((_%tl5429454498%_ (let () (declare (not safe)) - (##cdr _%e5447154666%_))) - (_%hd5447054670%_ + (##cdr _%e5429654491%_))) + (_%hd5429554495%_ (let () (declare (not safe)) - (##car _%e5447154666%_)))) - (_%__match7821978220%_ - _%e5446854656%_ - _%hd5446754660%_ - _%tl5446654663%_ - _%e5447154666%_ - _%hd5447054670%_ - _%tl5446954673%_))) + (##car _%e5429654491%_)))) + (_%__match7804478045%_ + _%e5429354481%_ + _%hd5429254485%_ + _%tl5429154488%_ + _%e5429654491%_ + _%hd5429554495%_ + _%tl5429454498%_))) (let () (declare (not safe)) - (_%g5446254506%_))))) + (_%g5428754331%_))))) (let () (declare (not safe)) - (_%g5446254506%_)))))))) - (_%__kont7843578436%_ - (lambda (_%L54166%_ _%L54168%_) - (let* ((_%__stx7811678117%_ _%b53324%_) - (_%g5418754231%_ + (_%g5428754331%_)))))))) + (_%__kont7826078261%_ + (lambda (_%L53991%_ _%L53993%_) + (let* ((_%__stx7794177942%_ _%b53149%_) + (_%g5401254056%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7811678117%_)))) - (let ((_%__kont7811978120%_ - (lambda (_%L54393%_ _%L54395%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54166%_ - _%L54393%_)))) - (_%__kont7812178122%_ - (lambda (_%L54345%_ - _%L54347%_ - _%L54348%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54166%_ - _%L54345%_)))) - (_%__kont7812378124%_ - (lambda (_%L54278%_ _%L54280%_) '#t))) - (let ((_%__match7813778138%_ - (lambda (_%e5419354373%_ - _%hd5419254377%_ - _%tl5419154380%_ - _%e5419654383%_ - _%hd5419554387%_ - _%tl5419454390%_) - (let ((_%L54393%_ _%hd5419554387%_) - (_%L54395%_ _%hd5419254377%_)) + _%__stx7794177942%_)))) + (let ((_%__kont7794477945%_ + (lambda (_%L54218%_ _%L54220%_) + (|gerbil/core/contract~Interface[1]#contract-type-subtype?| + _%L53991%_ + _%L54218%_))) + (_%__kont7794677947%_ + (lambda (_%L54170%_ + _%L54172%_ + _%L54173%_) + (|gerbil/core/contract~Interface[1]#contract-type-subtype?| + _%L53991%_ + _%L54170%_))) + (_%__kont7794877949%_ + (lambda (_%L54103%_ _%L54105%_) '#t))) + (let ((_%__match7796277963%_ + (lambda (_%e5401854198%_ + _%hd5401754202%_ + _%tl5401654205%_ + _%e5402154208%_ + _%hd5402054212%_ + _%tl5401954215%_) + (let ((_%L54218%_ _%hd5402054212%_) + (_%L54220%_ _%hd5401754202%_)) (if (or (gx#free-identifier=? - _%L54395%_ + _%L54220%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54395%_ + _%L54220%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54395%_ + _%L54220%_ (gx#datum->syntax '#f ':-))) - (_%__kont7811978120%_ - _%L54393%_ - _%L54395%_) + (_%__kont7794477945%_ + _%L54218%_ + _%L54220%_) (if (gx#identifier? - _%hd5419254377%_) + _%hd5401754202%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80811_| - _%hd5419254377%_) + |gerbil/core/contract~Interface[1]#_g80576_| + _%hd5401754202%_) (if (gx#stx-pair? - _%tl5419454390%_) - (let ((_%e5420854325%_ + _%tl5401954215%_) + (let ((_%e5403354150%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5419454390%_))) - (let ((_%tl5420654332%_ + (gx#syntax-e _%tl5401954215%_))) + (let ((_%tl5403154157%_ (let () (declare (not safe)) - (##cdr _%e5420854325%_))) - (_%hd5420754329%_ + (##cdr _%e5403354150%_))) + (_%hd5403254154%_ (let () (declare (not safe)) - (##car _%e5420854325%_)))) - (if (gx#stx-pair? _%tl5420654332%_) - (let ((_%e5421154335%_ - (gx#syntax-e _%tl5420654332%_))) - (let ((_%tl5420954342%_ + (##car _%e5403354150%_)))) + (if (gx#stx-pair? _%tl5403154157%_) + (let ((_%e5403654160%_ + (gx#syntax-e _%tl5403154157%_))) + (let ((_%tl5403454167%_ (let () (declare (not safe)) - (##cdr _%e5421154335%_))) - (_%hd5421054339%_ + (##cdr _%e5403654160%_))) + (_%hd5403554164%_ (let () (declare (not safe)) - (##car _%e5421154335%_)))) - (_%__kont7812178122%_ - _%hd5421054339%_ - _%hd5420754329%_ - _%hd5419554387%_))) - (let () (declare (not safe)) (_%g5418754231%_))))) - (let () (declare (not safe)) (_%g5418754231%_))) - (let () (declare (not safe)) (_%g5418754231%_))) + (##car _%e5403654160%_)))) + (_%__kont7794677947%_ + _%hd5403554164%_ + _%hd5403254154%_ + _%hd5402054212%_))) + (let () (declare (not safe)) (_%g5401254056%_))))) + (let () (declare (not safe)) (_%g5401254056%_))) + (let () (declare (not safe)) (_%g5401254056%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5418754231%_)))))))) - (if (gx#stx-pair? _%__stx7811678117%_) - (let ((_%e5419354373%_ + (_%g5401254056%_)))))))) + (if (gx#stx-pair? _%__stx7794177942%_) + (let ((_%e5401854198%_ (gx#syntax-e - _%__stx7811678117%_))) - (let ((_%tl5419154380%_ + _%__stx7794177942%_))) + (let ((_%tl5401654205%_ (let () (declare (not safe)) - (##cdr _%e5419354373%_))) - (_%hd5419254377%_ + (##cdr _%e5401854198%_))) + (_%hd5401754202%_ (let () (declare (not safe)) - (##car _%e5419354373%_)))) - (if (gx#stx-pair? _%tl5419154380%_) - (let ((_%e5419654383%_ + (##car _%e5401854198%_)))) + (if (gx#stx-pair? _%tl5401654205%_) + (let ((_%e5402154208%_ (gx#syntax-e - _%tl5419154380%_))) - (let ((_%tl5419454390%_ + _%tl5401654205%_))) + (let ((_%tl5401954215%_ (let () (declare (not safe)) - (##cdr _%e5419654383%_))) - (_%hd5419554387%_ + (##cdr _%e5402154208%_))) + (_%hd5402054212%_ (let () (declare (not safe)) - (##car _%e5419654383%_)))) - (_%__match7813778138%_ - _%e5419354373%_ - _%hd5419254377%_ - _%tl5419154380%_ - _%e5419654383%_ - _%hd5419554387%_ - _%tl5419454390%_))) + (##car _%e5402154208%_)))) + (_%__match7796277963%_ + _%e5401854198%_ + _%hd5401754202%_ + _%tl5401654205%_ + _%e5402154208%_ + _%hd5402054212%_ + _%tl5401954215%_))) (let () (declare (not safe)) - (_%g5418754231%_))))) + (_%g5401254056%_))))) (let () (declare (not safe)) - (_%g5418754231%_)))))))) - (_%__kont7843778438%_ - (lambda (_%L53947%_ _%L53949%_) - (let* ((_%__stx7805678057%_ _%b53324%_) - (_%g5396853996%_ + (_%g5401254056%_)))))))) + (_%__kont7826278263%_ + (lambda (_%L53772%_ _%L53774%_) + (let* ((_%__stx7788177882%_ _%b53149%_) + (_%g5379353821%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7805678057%_)))) - (let ((_%__kont7805978060%_ - (lambda (_%L54102%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L53947%_ - _%L54102%_)))) - (_%__kont7806178062%_ - (lambda (_%L54054%_ _%L54056%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L53947%_ - _%L54054%_)))) - (_%__kont7806378064%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx7805678057%_) - (let ((_%e5397354082%_ - (gx#syntax-e _%__stx7805678057%_))) - (let ((_%tl5397154089%_ + _%__stx7788177882%_)))) + (let ((_%__kont7788477885%_ + (lambda (_%L53927%_) + (|gerbil/core/contract~Interface[1]#contract-type-subtype?| + _%L53772%_ + _%L53927%_))) + (_%__kont7788677887%_ + (lambda (_%L53879%_ _%L53881%_) + (|gerbil/core/contract~Interface[1]#contract-type-subtype?| + _%L53772%_ + _%L53879%_))) + (_%__kont7788877889%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx7788177882%_) + (let ((_%e5379853907%_ + (gx#syntax-e _%__stx7788177882%_))) + (let ((_%tl5379653914%_ (let () (declare (not safe)) - (##cdr _%e5397354082%_))) - (_%hd5397254086%_ + (##cdr _%e5379853907%_))) + (_%hd5379753911%_ (let () (declare (not safe)) - (##car _%e5397354082%_)))) - (if (gx#identifier? _%hd5397254086%_) + (##car _%e5379853907%_)))) + (if (gx#identifier? _%hd5379753911%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80812_| - _%hd5397254086%_) + |gerbil/core/contract~Interface[1]#_g80577_| + _%hd5379753911%_) (if (gx#stx-pair? - _%tl5397154089%_) - (let ((_%e5397654092%_ + _%tl5379653914%_) + (let ((_%e5380153917%_ (gx#syntax-e - _%tl5397154089%_))) - (let ((_%tl5397454099%_ + _%tl5379653914%_))) + (let ((_%tl5379953924%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5397654092%_))) - (_%hd5397554096%_ - (let () (declare (not safe)) (##car _%e5397654092%_)))) - (_%__kont7805978060%_ _%hd5397554096%_))) + (##cdr _%e5380153917%_))) + (_%hd5380053921%_ + (let () (declare (not safe)) (##car _%e5380153917%_)))) + (_%__kont7788477885%_ _%hd5380053921%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7806378064%_)) + (_%__kont7788877889%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80813_| - _%hd5397254086%_) + |gerbil/core/contract~Interface[1]#_g80578_| + _%hd5379753911%_) (if (gx#stx-pair? - _%tl5397154089%_) - (let ((_%e5398454024%_ + _%tl5379653914%_) + (let ((_%e5380953849%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5397154089%_))) - (let ((_%tl5398254031%_ + _%tl5379653914%_))) + (let ((_%tl5380753856%_ (let () (declare (not safe)) - (##cdr _%e5398454024%_))) - (_%hd5398354028%_ + (##cdr _%e5380953849%_))) + (_%hd5380853853%_ (let () (declare (not safe)) - (##car _%e5398454024%_)))) - (if (gx#stx-pair? _%tl5398254031%_) - (let ((_%e5398754034%_ - (gx#syntax-e _%tl5398254031%_))) - (let ((_%tl5398554041%_ + (##car _%e5380953849%_)))) + (if (gx#stx-pair? _%tl5380753856%_) + (let ((_%e5381253859%_ + (gx#syntax-e _%tl5380753856%_))) + (let ((_%tl5381053866%_ (let () (declare (not safe)) - (##cdr _%e5398754034%_))) - (_%hd5398654038%_ + (##cdr _%e5381253859%_))) + (_%hd5381153863%_ (let () (declare (not safe)) - (##car _%e5398754034%_)))) - (if (gx#identifier? _%hd5398654038%_) + (##car _%e5381253859%_)))) + (if (gx#identifier? _%hd5381153863%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80814_| - _%hd5398654038%_) - (if (gx#stx-pair? _%tl5398554041%_) - (let ((_%e5399054044%_ + |gerbil/core/contract~Interface[1]#_g80579_| + _%hd5381153863%_) + (if (gx#stx-pair? _%tl5381053866%_) + (let ((_%e5381553869%_ (gx#syntax-e - _%tl5398554041%_))) - (let ((_%tl5398854051%_ + _%tl5381053866%_))) + (let ((_%tl5381353876%_ (let () (declare (not safe)) - (##cdr _%e5399054044%_))) - (_%hd5398954048%_ + (##cdr _%e5381553869%_))) + (_%hd5381453873%_ (let () (declare (not safe)) - (##car _%e5399054044%_)))) - (_%__kont7806178062%_ - _%hd5398954048%_ - _%hd5398354028%_))) - (_%__kont7806378064%_)) - (_%__kont7806378064%_)) - (_%__kont7806378064%_)))) - (_%__kont7806378064%_)))) - (_%__kont7806378064%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7806378064%_))) - (_%__kont7806378064%_)))) - (_%__kont7806378064%_)))))) - (_%__kont7843978440%_ - (lambda (_%L53638%_ _%L53640%_) - (let* ((_%__stx7797477975%_ _%b53324%_) - (_%g5365953703%_ + (##car _%e5381553869%_)))) + (_%__kont7788677887%_ + _%hd5381453873%_ + _%hd5380853853%_))) + (_%__kont7788877889%_)) + (_%__kont7788877889%_)) + (_%__kont7788877889%_)))) + (_%__kont7788877889%_)))) + (_%__kont7788877889%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7788877889%_))) + (_%__kont7788877889%_)))) + (_%__kont7788877889%_)))))) + (_%__kont7826478265%_ + (lambda (_%L53463%_ _%L53465%_) + (let* ((_%__stx7779977800%_ _%b53149%_) + (_%g5348453528%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7797477975%_)))) - (let ((_%__kont7797777978%_ - (lambda (_%L53873%_ _%L53875%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L53638%_ - _%L53873%_)))) - (_%__kont7797977980%_ - (lambda (_%L53817%_ - _%L53819%_ - _%L53820%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L53638%_ - _%L53817%_)))) - (_%__kont7798177982%_ - (lambda (_%L53750%_ _%L53752%_) '#t))) - (let* ((_%__match7802378024%_ - (lambda (_%e5367453777%_ - _%hd5367353781%_ - _%tl5367253784%_ - _%e5367753787%_ - _%hd5367653791%_ - _%tl5367553794%_ - _%e5368053797%_ - _%hd5367953801%_ - _%tl5367853804%_ - _%e5368353807%_ - _%hd5368253811%_ - _%tl5368153814%_) - (let ((_%L53817%_ _%hd5368253811%_) - (_%L53819%_ _%hd5367953801%_) - (_%L53820%_ _%hd5367653791%_)) + _%__stx7779977800%_)))) + (let ((_%__kont7780277803%_ + (lambda (_%L53698%_ _%L53700%_) + (|gerbil/core/contract~Interface[1]#contract-type-subtype?| + _%L53463%_ + _%L53698%_))) + (_%__kont7780477805%_ + (lambda (_%L53642%_ + _%L53644%_ + _%L53645%_) + (|gerbil/core/contract~Interface[1]#contract-type-subtype?| + _%L53463%_ + _%L53642%_))) + (_%__kont7780677807%_ + (lambda (_%L53575%_ _%L53577%_) '#t))) + (let* ((_%__match7784877849%_ + (lambda (_%e5349953602%_ + _%hd5349853606%_ + _%tl5349753609%_ + _%e5350253612%_ + _%hd5350153616%_ + _%tl5350053619%_ + _%e5350553622%_ + _%hd5350453626%_ + _%tl5350353629%_ + _%e5350853632%_ + _%hd5350753636%_ + _%tl5350653639%_) + (let ((_%L53642%_ _%hd5350753636%_) + (_%L53644%_ _%hd5350453626%_) + (_%L53645%_ _%hd5350153616%_)) (if (or (gx#free-identifier=? - _%L53819%_ + _%L53644%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53819%_ + _%L53644%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53819%_ + _%L53644%_ (gx#datum->syntax '#f ':-))) - (_%__kont7797977980%_ - _%L53817%_ - _%L53819%_ - _%L53820%_) + (_%__kont7780477805%_ + _%L53642%_ + _%L53644%_ + _%L53645%_) (if (gx#stx-null? - _%tl5368153814%_) - (_%__kont7798177982%_ - _%hd5367953801%_ - _%hd5367653791%_) + _%tl5350653639%_) + (_%__kont7780677807%_ + _%hd5350453626%_ + _%hd5350153616%_) (let () (declare (not safe)) - (_%g5365953703%_))))))) - (_%__match7799577996%_ - (lambda (_%e5366553853%_ - _%hd5366453857%_ - _%tl5366353860%_ - _%e5366853863%_ - _%hd5366753867%_ - _%tl5366653870%_) - (let ((_%L53873%_ _%hd5366753867%_) - (_%L53875%_ _%hd5366453857%_)) + (_%g5348453528%_))))))) + (_%__match7782077821%_ + (lambda (_%e5349053678%_ + _%hd5348953682%_ + _%tl5348853685%_ + _%e5349353688%_ + _%hd5349253692%_ + _%tl5349153695%_) + (let ((_%L53698%_ _%hd5349253692%_) + (_%L53700%_ _%hd5348953682%_)) (if (or (gx#free-identifier=? - _%L53875%_ + _%L53700%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53875%_ + _%L53700%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53875%_ + _%L53700%_ (gx#datum->syntax '#f ':-))) - (_%__kont7797777978%_ - _%L53873%_ - _%L53875%_) + (_%__kont7780277803%_ + _%L53698%_ + _%L53700%_) (if (gx#identifier? - _%hd5366453857%_) + _%hd5348953682%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80815_| - _%hd5366453857%_) + |gerbil/core/contract~Interface[1]#_g80580_| + _%hd5348953682%_) (if (gx#stx-pair? - _%tl5366653870%_) - (let ((_%e5368053797%_ + _%tl5349153695%_) + (let ((_%e5350553622%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5366653870%_))) - (let ((_%tl5367853804%_ + (gx#syntax-e _%tl5349153695%_))) + (let ((_%tl5350353629%_ (let () (declare (not safe)) - (##cdr _%e5368053797%_))) - (_%hd5367953801%_ + (##cdr _%e5350553622%_))) + (_%hd5350453626%_ (let () (declare (not safe)) - (##car _%e5368053797%_)))) - (if (gx#stx-pair? _%tl5367853804%_) - (let ((_%e5368353807%_ - (gx#syntax-e _%tl5367853804%_))) - (let ((_%tl5368153814%_ + (##car _%e5350553622%_)))) + (if (gx#stx-pair? _%tl5350353629%_) + (let ((_%e5350853632%_ + (gx#syntax-e _%tl5350353629%_))) + (let ((_%tl5350653639%_ (let () (declare (not safe)) - (##cdr _%e5368353807%_))) - (_%hd5368253811%_ + (##cdr _%e5350853632%_))) + (_%hd5350753636%_ (let () (declare (not safe)) - (##car _%e5368353807%_)))) - (_%__match7802378024%_ - _%e5366553853%_ - _%hd5366453857%_ - _%tl5366353860%_ - _%e5366853863%_ - _%hd5366753867%_ - _%tl5366653870%_ - _%e5368053797%_ - _%hd5367953801%_ - _%tl5367853804%_ - _%e5368353807%_ - _%hd5368253811%_ - _%tl5368153814%_))) - (let () (declare (not safe)) (_%g5365953703%_))))) - (let () (declare (not safe)) (_%g5365953703%_))) - (let () (declare (not safe)) (_%g5365953703%_))) + (##car _%e5350853632%_)))) + (_%__match7784877849%_ + _%e5349053678%_ + _%hd5348953682%_ + _%tl5348853685%_ + _%e5349353688%_ + _%hd5349253692%_ + _%tl5349153695%_ + _%e5350553622%_ + _%hd5350453626%_ + _%tl5350353629%_ + _%e5350853632%_ + _%hd5350753636%_ + _%tl5350653639%_))) + (let () (declare (not safe)) (_%g5348453528%_))))) + (let () (declare (not safe)) (_%g5348453528%_))) + (let () (declare (not safe)) (_%g5348453528%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5365953703%_)))))))) - (if (gx#stx-pair? _%__stx7797477975%_) - (let ((_%e5366553853%_ + (_%g5348453528%_)))))))) + (if (gx#stx-pair? _%__stx7779977800%_) + (let ((_%e5349053678%_ (gx#syntax-e - _%__stx7797477975%_))) - (let ((_%tl5366353860%_ + _%__stx7779977800%_))) + (let ((_%tl5348853685%_ (let () (declare (not safe)) - (##cdr _%e5366553853%_))) - (_%hd5366453857%_ + (##cdr _%e5349053678%_))) + (_%hd5348953682%_ (let () (declare (not safe)) - (##car _%e5366553853%_)))) - (if (gx#stx-pair? _%tl5366353860%_) - (let ((_%e5366853863%_ + (##car _%e5349053678%_)))) + (if (gx#stx-pair? _%tl5348853685%_) + (let ((_%e5349353688%_ (gx#syntax-e - _%tl5366353860%_))) - (let ((_%tl5366653870%_ + _%tl5348853685%_))) + (let ((_%tl5349153695%_ (let () (declare (not safe)) - (##cdr _%e5366853863%_))) - (_%hd5366753867%_ + (##cdr _%e5349353688%_))) + (_%hd5349253692%_ (let () (declare (not safe)) - (##car _%e5366853863%_)))) - (_%__match7799577996%_ - _%e5366553853%_ - _%hd5366453857%_ - _%tl5366353860%_ - _%e5366853863%_ - _%hd5366753867%_ - _%tl5366653870%_))) + (##car _%e5349353688%_)))) + (_%__match7782077821%_ + _%e5349053678%_ + _%hd5348953682%_ + _%tl5348853685%_ + _%e5349353688%_ + _%hd5349253692%_ + _%tl5349153695%_))) (let () (declare (not safe)) - (_%g5365953703%_))))) + (_%g5348453528%_))))) (let () (declare (not safe)) - (_%g5365953703%_)))))))) - (_%__kont7844178442%_ - (lambda (_%L53437%_) - (let* ((_%__stx7793477935%_ _%b53324%_) - (_%g5345453476%_ + (_%g5348453528%_)))))))) + (_%__kont7826678267%_ + (lambda (_%L53262%_) + (let* ((_%__stx7775977760%_ _%b53149%_) + (_%g5327953301%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7793477935%_)))) - (let ((_%__kont7793777938%_ - (lambda (_%L53568%_) '#f)) - (_%__kont7793977940%_ - (lambda (_%L53524%_ _%L53526%_) '#f)) - (_%__kont7794177942%_ (lambda () '#t))) - (let* ((_%__match7797177972%_ - (lambda (_%e5346453494%_ - _%hd5346353498%_ - _%tl5346253501%_ - _%e5346753504%_ - _%hd5346653508%_ - _%tl5346553511%_ - _%e5347053514%_ - _%hd5346953518%_ - _%tl5346853521%_) - (let ((_%L53524%_ _%hd5346953518%_) - (_%L53526%_ _%hd5346653508%_)) + _%__stx7775977760%_)))) + (let ((_%__kont7776277763%_ + (lambda (_%L53393%_) '#f)) + (_%__kont7776477765%_ + (lambda (_%L53349%_ _%L53351%_) '#f)) + (_%__kont7776677767%_ (lambda () '#t))) + (let* ((_%__match7779677797%_ + (lambda (_%e5328953319%_ + _%hd5328853323%_ + _%tl5328753326%_ + _%e5329253329%_ + _%hd5329153333%_ + _%tl5329053336%_ + _%e5329553339%_ + _%hd5329453343%_ + _%tl5329353346%_) + (let ((_%L53349%_ _%hd5329453343%_) + (_%L53351%_ _%hd5329153333%_)) (if (or (gx#free-identifier=? - _%L53524%_ + _%L53349%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53524%_ + _%L53349%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53524%_ + _%L53349%_ (gx#datum->syntax '#f ':-))) - (_%__kont7793977940%_ - _%L53524%_ - _%L53526%_) - (_%__kont7794177942%_))))) - (_%__match7794977950%_ - (lambda (_%e5345953558%_ - _%hd5345853562%_ - _%tl5345753565%_) - (let ((_%L53568%_ _%hd5345853562%_)) + (_%__kont7776477765%_ + _%L53349%_ + _%L53351%_) + (_%__kont7776677767%_))))) + (_%__match7777477775%_ + (lambda (_%e5328453383%_ + _%hd5328353387%_ + _%tl5328253390%_) + (let ((_%L53393%_ _%hd5328353387%_)) (if (or (gx#free-identifier=? - _%L53568%_ + _%L53393%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53568%_ + _%L53393%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53568%_ + _%L53393%_ (gx#datum->syntax '#f ':-))) - (_%__kont7793777938%_ - _%L53568%_) + (_%__kont7776277763%_ + _%L53393%_) (if (gx#identifier? - _%hd5345853562%_) + _%hd5328353387%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80816_| - _%hd5345853562%_) + |gerbil/core/contract~Interface[1]#_g80581_| + _%hd5328353387%_) (if (gx#stx-pair? - _%tl5345753565%_) - (let ((_%e5346753504%_ + _%tl5328253390%_) + (let ((_%e5329253329%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5345753565%_))) - (let ((_%tl5346553511%_ + (gx#syntax-e _%tl5328253390%_))) + (let ((_%tl5329053336%_ (let () (declare (not safe)) - (##cdr _%e5346753504%_))) - (_%hd5346653508%_ + (##cdr _%e5329253329%_))) + (_%hd5329153333%_ (let () (declare (not safe)) - (##car _%e5346753504%_)))) - (if (gx#stx-pair? _%tl5346553511%_) - (let ((_%e5347053514%_ - (gx#syntax-e _%tl5346553511%_))) - (let ((_%tl5346853521%_ + (##car _%e5329253329%_)))) + (if (gx#stx-pair? _%tl5329053336%_) + (let ((_%e5329553339%_ + (gx#syntax-e _%tl5329053336%_))) + (let ((_%tl5329353346%_ (let () (declare (not safe)) - (##cdr _%e5347053514%_))) - (_%hd5346953518%_ + (##cdr _%e5329553339%_))) + (_%hd5329453343%_ (let () (declare (not safe)) - (##car _%e5347053514%_)))) - (_%__match7797177972%_ - _%e5345953558%_ - _%hd5345853562%_ - _%tl5345753565%_ - _%e5346753504%_ - _%hd5346653508%_ - _%tl5346553511%_ - _%e5347053514%_ - _%hd5346953518%_ - _%tl5346853521%_))) - (_%__kont7794177942%_)))) - (_%__kont7794177942%_)) - (_%__kont7794177942%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7794177942%_))))))) - (if (gx#stx-pair? _%__stx7793477935%_) - (let ((_%e5345953558%_ + (##car _%e5329553339%_)))) + (_%__match7779677797%_ + _%e5328453383%_ + _%hd5328353387%_ + _%tl5328253390%_ + _%e5329253329%_ + _%hd5329153333%_ + _%tl5329053336%_ + _%e5329553339%_ + _%hd5329453343%_ + _%tl5329353346%_))) + (_%__kont7776677767%_)))) + (_%__kont7776677767%_)) + (_%__kont7776677767%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7776677767%_))))))) + (if (gx#stx-pair? _%__stx7775977760%_) + (let ((_%e5328453383%_ (gx#syntax-e - _%__stx7793477935%_))) - (let ((_%tl5345753565%_ + _%__stx7775977760%_))) + (let ((_%tl5328253390%_ (let () (declare (not safe)) - (##cdr _%e5345953558%_))) - (_%hd5345853562%_ + (##cdr _%e5328453383%_))) + (_%hd5328353387%_ (let () (declare (not safe)) - (##car _%e5345953558%_)))) - (_%__match7794977950%_ - _%e5345953558%_ - _%hd5345853562%_ - _%tl5345753565%_))) - (_%__kont7794177942%_)))))))) - (let ((_%__match7845578456%_ - (lambda (_%e5333854903%_ - _%hd5333754907%_ - _%tl5333654910%_ - _%e5334154913%_ - _%hd5334054917%_ - _%tl5333954920%_) - (let ((_%L54923%_ _%hd5334054917%_) - (_%L54925%_ _%hd5333754907%_)) + (##car _%e5328453383%_)))) + (_%__match7777477775%_ + _%e5328453383%_ + _%hd5328353387%_ + _%tl5328253390%_))) + (_%__kont7776677767%_)))))))) + (let ((_%__match7828078281%_ + (lambda (_%e5316354728%_ + _%hd5316254732%_ + _%tl5316154735%_ + _%e5316654738%_ + _%hd5316554742%_ + _%tl5316454745%_) + (let ((_%L54748%_ _%hd5316554742%_) + (_%L54750%_ _%hd5316254732%_)) (if (or (gx#free-identifier=? - _%L54925%_ + _%L54750%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54925%_ + _%L54750%_ (gx#datum->syntax '#f ':-))) - (_%__kont7842978430%_ - _%L54923%_ - _%L54925%_) - (if (gx#identifier? _%hd5333754907%_) + (_%__kont7825478255%_ + _%L54748%_ + _%L54750%_) + (if (gx#identifier? _%hd5316254732%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80817_| - _%hd5333754907%_) - (_%__kont7843178432%_ - _%hd5334054917%_) + |gerbil/core/contract~Interface[1]#_g80582_| + _%hd5316254732%_) + (_%__kont7825678257%_ + _%hd5316554742%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80818_| - _%hd5333754907%_) - (_%__kont7843378434%_ - _%hd5334054917%_) + |gerbil/core/contract~Interface[1]#_g80583_| + _%hd5316254732%_) + (_%__kont7825878259%_ + _%hd5316554742%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80819_| - _%hd5333754907%_) + |gerbil/core/contract~Interface[1]#_g80584_| + _%hd5316254732%_) (if (gx#stx-pair? - _%tl5333954920%_) - (let ((_%e5336654146%_ + _%tl5316454745%_) + (let ((_%e5319153971%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5333954920%_))) - (let ((_%tl5336454153%_ + _%tl5316454745%_))) + (let ((_%tl5318953978%_ (let () (declare (not safe)) - (##cdr _%e5336654146%_))) - (_%hd5336554150%_ + (##cdr _%e5319153971%_))) + (_%hd5319053975%_ (let () (declare (not safe)) - (##car _%e5336654146%_)))) - (if (gx#identifier? _%hd5336554150%_) + (##car _%e5319153971%_)))) + (if (gx#identifier? _%hd5319053975%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80820_| - _%hd5336554150%_) - (if (gx#stx-pair? _%tl5336454153%_) - (let ((_%e5336954156%_ - (gx#syntax-e _%tl5336454153%_))) - (let ((_%tl5336754163%_ + |gerbil/core/contract~Interface[1]#_g80585_| + _%hd5319053975%_) + (if (gx#stx-pair? _%tl5318953978%_) + (let ((_%e5319453981%_ + (gx#syntax-e _%tl5318953978%_))) + (let ((_%tl5319253988%_ (let () (declare (not safe)) - (##cdr _%e5336954156%_))) - (_%hd5336854160%_ + (##cdr _%e5319453981%_))) + (_%hd5319353985%_ (let () (declare (not safe)) - (##car _%e5336954156%_)))) - (_%__kont7843578436%_ - _%hd5336854160%_ - _%hd5334054917%_))) - (_%__kont7844178442%_ _%hd5334054917%_)) + (##car _%e5319453981%_)))) + (_%__kont7826078261%_ + _%hd5319353985%_ + _%hd5316554742%_))) + (_%__kont7826678267%_ _%hd5316554742%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80821_| - _%hd5336554150%_) - (if (gx#stx-pair? _%tl5336454153%_) - (let ((_%e5338353937%_ - (gx#syntax-e _%tl5336454153%_))) - (let ((_%tl5338153944%_ + |gerbil/core/contract~Interface[1]#_g80586_| + _%hd5319053975%_) + (if (gx#stx-pair? _%tl5318953978%_) + (let ((_%e5320853762%_ + (gx#syntax-e _%tl5318953978%_))) + (let ((_%tl5320653769%_ (let () (declare (not safe)) - (##cdr _%e5338353937%_))) - (_%hd5338253941%_ + (##cdr _%e5320853762%_))) + (_%hd5320753766%_ (let () (declare (not safe)) - (##car _%e5338353937%_)))) - (_%__kont7843778438%_ - _%hd5338253941%_ - _%hd5334054917%_))) - (_%__kont7844178442%_ _%hd5334054917%_)) + (##car _%e5320853762%_)))) + (_%__kont7826278263%_ + _%hd5320753766%_ + _%hd5316554742%_))) + (_%__kont7826678267%_ _%hd5316554742%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80822_| - _%hd5336554150%_) - (if (gx#stx-pair? _%tl5336454153%_) - (let ((_%e5339753628%_ + |gerbil/core/contract~Interface[1]#_g80587_| + _%hd5319053975%_) + (if (gx#stx-pair? _%tl5318953978%_) + (let ((_%e5322253453%_ (gx#syntax-e - _%tl5336454153%_))) - (let ((_%tl5339553635%_ + _%tl5318953978%_))) + (let ((_%tl5322053460%_ (let () (declare (not safe)) - (##cdr _%e5339753628%_))) - (_%hd5339653632%_ + (##cdr _%e5322253453%_))) + (_%hd5322153457%_ (let () (declare (not safe)) - (##car _%e5339753628%_)))) - (_%__kont7843978440%_ - _%hd5339653632%_ - _%hd5334054917%_))) - (_%__kont7844178442%_ - _%hd5334054917%_)) - (_%__kont7844178442%_ _%hd5334054917%_)))) - (_%__kont7844178442%_ _%hd5334054917%_)))) - (_%__kont7844178442%_ _%hd5334054917%_)) + (##car _%e5322253453%_)))) + (_%__kont7826478265%_ + _%hd5322153457%_ + _%hd5316554742%_))) + (_%__kont7826678267%_ + _%hd5316554742%_)) + (_%__kont7826678267%_ _%hd5316554742%_)))) + (_%__kont7826678267%_ _%hd5316554742%_)))) + (_%__kont7826678267%_ _%hd5316554742%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5333253410%_))))) + (_%g5315753235%_))))) (let () (declare (not safe)) - (_%g5333253410%_)))))))) - (if (gx#stx-pair? _%__stx7842678427%_) - (let ((_%e5333854903%_ - (gx#syntax-e _%__stx7842678427%_))) - (let ((_%tl5333654910%_ + (_%g5315753235%_)))))))) + (if (gx#stx-pair? _%__stx7825178252%_) + (let ((_%e5316354728%_ + (gx#syntax-e _%__stx7825178252%_))) + (let ((_%tl5316154735%_ (let () (declare (not safe)) - (##cdr _%e5333854903%_))) - (_%hd5333754907%_ + (##cdr _%e5316354728%_))) + (_%hd5316254732%_ (let () (declare (not safe)) - (##car _%e5333854903%_)))) - (if (gx#stx-pair? _%tl5333654910%_) - (let ((_%e5334154913%_ - (gx#syntax-e _%tl5333654910%_))) - (let ((_%tl5333954920%_ + (##car _%e5316354728%_)))) + (if (gx#stx-pair? _%tl5316154735%_) + (let ((_%e5316654738%_ + (gx#syntax-e _%tl5316154735%_))) + (let ((_%tl5316454745%_ (let () (declare (not safe)) - (##cdr _%e5334154913%_))) - (_%hd5334054917%_ + (##cdr _%e5316654738%_))) + (_%hd5316554742%_ (let () (declare (not safe)) - (##car _%e5334154913%_)))) - (_%__match7845578456%_ - _%e5333854903%_ - _%hd5333754907%_ - _%tl5333654910%_ - _%e5334154913%_ - _%hd5334054917%_ - _%tl5333954920%_))) + (##car _%e5316654738%_)))) + (_%__match7828078281%_ + _%e5316354728%_ + _%hd5316254732%_ + _%tl5316154735%_ + _%e5316654738%_ + _%hd5316554742%_ + _%tl5316454745%_))) (let () (declare (not safe)) - (_%g5333253410%_))))) + (_%g5315753235%_))))) (let () (declare (not safe)) - (_%g5333253410%_))))))) - _%left53318%_ - _%right53320%_))) + (_%g5315753235%_))))))) + _%left53143%_ + _%right53145%_))) (define |gerbil/core/contract~Interface[1]#contract-type-subtype?| - (lambda (_%type-a53221%_ _%type-b53223%_) - (if (let () (declare (not safe)) (not _%type-a53221%_)) - (let () (declare (not safe)) (not _%type-b53223%_)) - (if (let () (declare (not safe)) (not _%type-b53223%_)) - (let () '#f) - (if (gx#free-identifier=? _%type-a53221%_ _%type-b53223%_) - (let () '#t) - (let _%again53233%_ ((_%klass-a53236%_ + (lambda (_%type-a53046%_ _%type-b53048%_) + (if (not _%type-a53046%_) + (not _%type-b53048%_) + (if (not _%type-b53048%_) + '#f + (if (gx#free-identifier=? _%type-a53046%_ _%type-b53048%_) + '#t + (let _%again53058%_ ((_%klass-a53061%_ (gx#syntax-local-value - _%type-a53221%_)) - (_%klass-b53238%_ + _%type-a53046%_)) + (_%klass-b53063%_ (gx#syntax-local-value - _%type-b53223%_))) - (if (eq? _%klass-a53236%_ _%klass-b53238%_) - (let () '#t) + _%type-b53048%_))) + (if (eq? _%klass-a53061%_ _%klass-b53063%_) + '#t (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-a53236%_)) - (let () - (if (let () - (declare (not safe)) - (class-instance? - gerbil/core/mop~MOP-2#class-type-info::t - _%klass-b53238%_)) - (let () - (if (eq? (let ((__obj80554 - _%klass-a53236%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80554 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80554 - '1 - '#f - '#f)) - (class-slot-ref - gerbil/core/mop~MOP-2#class-type-info::t - __obj80554 - 'id))) - (let ((__obj80555 - _%klass-b53238%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80555 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80555 - '1 - '#f - '#f)) - (class-slot-ref - gerbil/core/mop~MOP-2#class-type-info::t - __obj80555 - 'id)))) - (let () '#t) - (if (member _%type-b53223%_ - (let () - (declare (not safe)) - (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-a53236%_)) - gx#free-identifier=?) - (let () '#t) - (let () '#f)))) - (if (let () - (declare (not safe)) - (class-instance? - |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b53238%_)) - (let ((_%$e53254%_ - (gx#syntax-local-value - (let ((__obj80556 - _%klass-b53238%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80556 - 'gerbil/core/contract~TypeReference#type-reference::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80556 - '1 - '#f - '#f)) - (class-slot-ref - |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80556 - 'identifier))) - false))) - (if _%$e53254%_ - ((lambda (_%klass-b53258%_) - (let () - (declare (not safe)) - (_%again53233%_ - _%klass-a53236%_ - _%klass-b53258%_))) - _%$e53254%_) - (if (gx#free-identifier=? - _%type-a53221%_ - (let ((__obj80557 - _%klass-b53238%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80557 - 'gerbil/core/contract~TypeReference#type-reference::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80557 - '1 - '#f - '#f)) - (class-slot-ref - |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80557 - 'identifier)))) - (let () '#t) - (let () '#f)))) - (let () '#f)))) + _%klass-a53061%_)) + (if (let () + (declare (not safe)) + (class-instance? + gerbil/core/mop~MOP-2#class-type-info::t + _%klass-b53063%_)) + (if (eq? (let ((__obj80379 _%klass-a53061%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80379 + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80379 + '1 + '#f + '#f)) + (class-slot-ref + gerbil/core/mop~MOP-2#class-type-info::t + __obj80379 + 'id))) + (let ((__obj80380 _%klass-b53063%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80380 + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80380 + '1 + '#f + '#f)) + (class-slot-ref + gerbil/core/mop~MOP-2#class-type-info::t + __obj80380 + 'id)))) + '#t + (if (member _%type-b53048%_ + (let () + (declare (not safe)) + (gerbil/core/contract~ClassMeta#!class-precedence-list + _%klass-a53061%_)) + gx#free-identifier=?) + '#t + '#f)) + (if (let () + (declare (not safe)) + (class-instance? + |gerbil/core/contract~TypeReference[1]#type-reference::t| + _%klass-b53063%_)) + (let ((_%$e53079%_ + (gx#syntax-local-value + (let ((__obj80381 + _%klass-b53063%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80381 + 'gerbil/core/contract~TypeReference#type-reference::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80381 + '1 + '#f + '#f)) + (class-slot-ref + |gerbil/core/contract~TypeReference[1]#type-reference::t| + __obj80381 + 'identifier))) + false))) + (if _%$e53079%_ + ((lambda (_%klass-b53083%_) + (_%again53058%_ + _%klass-a53061%_ + _%klass-b53083%_)) + _%$e53079%_) + (if (gx#free-identifier=? + _%type-a53046%_ + (let ((__obj80382 + _%klass-b53063%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80382 + 'gerbil/core/contract~TypeReference#type-reference::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80382 + '1 + '#f + '#f)) + (class-slot-ref + |gerbil/core/contract~TypeReference[1]#type-reference::t| + __obj80382 + 'identifier)))) + '#t + '#f))) + '#f)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-a53236%_)) - (let () - (if (let () - (declare (not safe)) - (class-instance? - gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-b53238%_)) - (let () - (if (member _%type-b53223%_ - (let () - (declare (not safe)) - (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - _%klass-a53236%_))) - (let () '#t) - (let () '#f))) - (if (let () - (declare (not safe)) - (class-instance? - |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b53238%_)) - (let ((_%$e53277%_ - (gx#syntax-local-value - (let ((__obj80558 - _%klass-b53238%_)) - (if (let () - (declare - (not safe)) - (##structure-direct-instance-of? - __obj80558 - 'gerbil/core/contract~TypeReference#type-reference::t)) - (let () - (declare - (not safe)) - (##unchecked-structure-ref - __obj80558 - '1 - '#f - '#f)) - (class-slot-ref - |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80558 - 'identifier))) - false))) - (if _%$e53277%_ - ((lambda (_%klass-b53281%_) - (let () - (declare (not safe)) - (_%again53233%_ - _%klass-a53236%_ - _%klass-b53281%_))) - _%$e53277%_) - (if (gx#free-identifier=? - _%type-a53221%_ - (let ((__obj80559 - _%klass-b53238%_)) - (if (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##structure-direct-instance-of? - __obj80559 - 'gerbil/core/contract~TypeReference#type-reference::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref __obj80559 '1 '#f '#f)) - (class-slot-ref - |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80559 - 'identifier)))) - (let () '#t) - (let () '#f)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () '#f)))) + _%klass-a53061%_)) + (if (let () + (declare (not safe)) + (class-instance? + gerbil/core/contract~InterfaceInfo#interface-info::t + _%klass-b53063%_)) + (if (member _%type-b53048%_ + (let () + (declare (not safe)) + (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin + _%klass-a53061%_))) + '#t + '#f) + (if (let () + (declare (not safe)) + (class-instance? + |gerbil/core/contract~TypeReference[1]#type-reference::t| + _%klass-b53063%_)) + (let ((_%$e53102%_ + (gx#syntax-local-value + (let ((__obj80383 + _%klass-b53063%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80383 + 'gerbil/core/contract~TypeReference#type-reference::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80383 + '1 + '#f + '#f)) + (class-slot-ref + |gerbil/core/contract~TypeReference[1]#type-reference::t| + __obj80383 + 'identifier))) + false))) + (if _%$e53102%_ + ((lambda (_%klass-b53106%_) + (_%again53058%_ + _%klass-a53061%_ + _%klass-b53106%_)) + _%$e53102%_) + (if (gx#free-identifier=? + _%type-a53046%_ + (let ((__obj80384 + _%klass-b53063%_)) + (if (let () + (declare + (not safe)) + (##structure-direct-instance-of? + __obj80384 + 'gerbil/core/contract~TypeReference#type-reference::t)) + (let () + (declare + (not safe)) + (##unchecked-structure-ref + __obj80384 + '1 + '#f + '#f)) + (class-slot-ref + |gerbil/core/contract~TypeReference[1]#type-reference::t| + __obj80384 + 'identifier)))) + '#t + '#f))) + '#f)) (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-a53236%_)) - (let ((_%$e53292%_ + _%klass-a53061%_)) + (let ((_%$e53117%_ (gx#syntax-local-value - (let ((__obj80560 - _%klass-a53236%_)) + (let ((__obj80385 + _%klass-a53061%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80560 + __obj80385 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80560 + __obj80385 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80560 + __obj80385 'identifier))) false))) - (if _%$e53292%_ - ((lambda (_%klass-a53296%_) - (let () - (declare (not safe)) - (_%again53233%_ - _%klass-a53296%_ - _%klass-b53238%_))) - _%$e53292%_) + (if _%$e53117%_ + ((lambda (_%klass-a53121%_) + (_%again53058%_ + _%klass-a53121%_ + _%klass-b53063%_)) + _%$e53117%_) (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b53238%_)) - (let ((_%$e53301%_ + _%klass-b53063%_)) + (let ((_%$e53126%_ (gx#syntax-local-value - (let ((__obj80561 - _%klass-b53238%_)) + (let ((__obj80386 + _%klass-b53063%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj80561 + __obj80386 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj80561 '1 '#f '#f)) + (##unchecked-structure-ref __obj80386 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80561 + __obj80386 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e53301%_ - ((lambda (_%klass-b53305%_) - (let () - (declare (not safe)) - (_%again53233%_ - _%klass-a53236%_ - _%klass-b53305%_))) - _%$e53301%_) + (if _%$e53126%_ + ((lambda (_%klass-b53130%_) + (_%again53058%_ + _%klass-a53061%_ + _%klass-b53130%_)) + _%$e53126%_) (if (gx#free-identifier=? - (let ((__obj80562 + (let ((__obj80387 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-a53236%_)) + _%klass-a53061%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80562 + __obj80387 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj80562 '1 '#f '#f)) + (##unchecked-structure-ref __obj80387 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80562 + __obj80387 'identifier))) - (let ((__obj80563 _%klass-b53238%_)) + (let ((__obj80388 _%klass-b53063%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80563 + __obj80388 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj80563 '1 '#f '#f)) + (##unchecked-structure-ref __obj80388 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80563 + __obj80388 'identifier)))) - (let () '#t) - (let () '#f)))) + '#t + '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - _%type-b53223%_ - (let ((__obj80564 - _%klass-a53236%_)) + _%type-b53048%_ + (let ((__obj80389 + _%klass-a53061%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80564 + __obj80389 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80564 + __obj80389 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80564 + __obj80389 'identifier)))) - (let () '#t) - (let () '#f))))) - (let () '#f))))))))))) + '#t + '#f)))) + '#f)))))))))) (define |gerbil/core/contract~Interface[1]#signature-type-contract| - (lambda (_%signature52826%_) - (let _%loop52829%_ ((_%rest52832%_ _%signature52826%_) - (_%positionals52834%_ '()) - (_%keywords52835%_ '())) - (let* ((_%__stx7860278603%_ (gx#datum->syntax '#f 'rest)) - (_%g5284352910%_ + (lambda (_%signature52651%_) + (let _%loop52654%_ ((_%rest52657%_ _%signature52651%_) + (_%positionals52659%_ '()) + (_%keywords52660%_ '())) + (let* ((_%__stx7842778428%_ (gx#datum->syntax '#f 'rest)) + (_%g5266852735%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7860278603%_)))) - (let ((_%__kont7860578606%_ - (lambda (_%L53204%_ _%L53206%_) - (let ((__tmp80823 - (cons (cons (gx#datum->syntax '#f ':-) - (cons (gx#datum->syntax '#f ':t) '())) - _%positionals52834%_))) - (declare (not safe)) - (_%loop52829%_ - _%L53204%_ - __tmp80823 - _%keywords52835%_)))) - (_%__kont7860778608%_ - (lambda (_%L53168%_ _%L53170%_ _%L53171%_) - (let ((__tmp80824 - (cons (cons (gx#datum->syntax '#f ':-) - (cons (gx#datum->syntax '#f ':t) '())) - _%positionals52834%_))) - (declare (not safe)) - (_%loop52829%_ - _%L53168%_ - __tmp80824 - _%keywords52835%_)))) - (_%__kont7860978610%_ - (lambda (_%L53118%_ _%L53120%_) - (let ((__tmp80826 (gx#datum->syntax '#f 'rest)) - (__tmp80825 (cons _%L53118%_ _%positionals52834%_))) - (declare (not safe)) - (_%loop52829%_ - __tmp80826 - __tmp80825 - _%keywords52835%_)))) - (_%__kont7861178612%_ - (lambda (_%L53084%_ _%L53086%_ _%L53087%_) - (let ((__tmp80827 - (cons (let ((__tmp80830 (gx#stx-e _%L53087%_)) - (__tmp80828 - (let ((__tmp80829 - (cons (gx#datum->syntax - '#f - ':-) - (cons (gx#datum->syntax - '#f - ':t) - '())))) - (declare (not safe)) - (cons _%L53086%_ __tmp80829)))) - (declare (not safe)) - (cons __tmp80830 __tmp80828)) - _%keywords52835%_))) - (declare (not safe)) - (_%loop52829%_ - _%L53084%_ - _%positionals52834%_ - __tmp80827)))) - (_%__kont7861378614%_ - (lambda (_%L53034%_ _%L53036%_ _%L53037%_ _%L53038%_) - (let ((__tmp80831 - (cons (let ((__tmp80834 (gx#stx-e _%L53038%_)) - (__tmp80832 - (let ((__tmp80833 - (cons (gx#datum->syntax - '#f - ':-) - (cons (gx#datum->syntax - '#f - ':t) - '())))) - (declare (not safe)) - (cons _%L53037%_ __tmp80833)))) - (declare (not safe)) - (cons __tmp80834 __tmp80832)) - _%keywords52835%_))) - (declare (not safe)) - (_%loop52829%_ - _%L53034%_ - _%positionals52834%_ - __tmp80831)))) - (_%__kont7861578616%_ - (lambda (_%L52962%_ _%L52964%_ _%L52965%_ _%L52966%_) - (let ((__tmp80835 - (cons (let ((__tmp80837 (gx#stx-e _%L52966%_)) - (__tmp80836 - (let () - (declare (not safe)) - (cons _%L52965%_ _%L52964%_)))) - (declare (not safe)) - (cons __tmp80837 __tmp80836)) - _%keywords52835%_))) - (declare (not safe)) - (_%loop52829%_ - _%L52962%_ - _%positionals52834%_ - __tmp80835)))) - (_%__kont7861778618%_ + _%__stx7842778428%_)))) + (let ((_%__kont7843078431%_ + (lambda (_%L53029%_ _%L53031%_) + (_%loop52654%_ + _%L53029%_ + (cons (cons (gx#datum->syntax '#f ':-) + (cons (gx#datum->syntax '#f ':t) '())) + _%positionals52659%_) + _%keywords52660%_))) + (_%__kont7843278433%_ + (lambda (_%L52993%_ _%L52995%_ _%L52996%_) + (_%loop52654%_ + _%L52993%_ + (cons (cons (gx#datum->syntax '#f ':-) + (cons (gx#datum->syntax '#f ':t) '())) + _%positionals52659%_) + _%keywords52660%_))) + (_%__kont7843478435%_ + (lambda (_%L52943%_ _%L52945%_) + (_%loop52654%_ + (gx#datum->syntax '#f 'rest) + (cons _%L52943%_ _%positionals52659%_) + _%keywords52660%_))) + (_%__kont7843678437%_ + (lambda (_%L52909%_ _%L52911%_ _%L52912%_) + (_%loop52654%_ + _%L52909%_ + _%positionals52659%_ + (cons (cons (gx#stx-e _%L52912%_) + (cons _%L52911%_ + (cons (gx#datum->syntax '#f ':-) + (cons (gx#datum->syntax '#f ':t) + '())))) + _%keywords52660%_)))) + (_%__kont7843878439%_ + (lambda (_%L52859%_ _%L52861%_ _%L52862%_ _%L52863%_) + (_%loop52654%_ + _%L52859%_ + _%positionals52659%_ + (cons (cons (gx#stx-e _%L52863%_) + (cons _%L52862%_ + (cons (gx#datum->syntax '#f ':-) + (cons (gx#datum->syntax '#f ':t) + '())))) + _%keywords52660%_)))) + (_%__kont7844078441%_ + (lambda (_%L52787%_ _%L52789%_ _%L52790%_ _%L52791%_) + (_%loop52654%_ + _%L52787%_ + _%positionals52659%_ + (cons (cons (gx#stx-e _%L52791%_) + (cons _%L52790%_ _%L52789%_)) + _%keywords52660%_)))) + (_%__kont7844278443%_ (lambda () - (values (reverse! _%positionals52834%_) + (values (reverse! _%positionals52659%_) (list-sort - (lambda (_%a52921%_ _%b52923%_) - (let ((__tmp80839 (gx#stx-car _%a52921%_)) - (__tmp80838 (gx#stx-car _%b52923%_))) - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#keyword= __tmp80844 '2)) - (let ((_%__splice7871978720%_ + (##fx>= __tmp80588 '2)) + (let ((_%__splice7854478545%_ (gx#syntax-split-splice - _%hd5248952747%_ + _%hd5231452572%_ '2))) - (let ((_%tl5250452672%_ + (let ((_%tl5232952497%_ (let () (declare (not safe)) (##vector-ref - _%__splice7871978720%_ + _%__splice7854478545%_ '1))) - (_%target5250252669%_ + (_%target5232752494%_ (let () (declare (not safe)) (##vector-ref - _%__splice7871978720%_ + _%__splice7854478545%_ '0)))) - (if (gx#stx-pair? _%tl5250452672%_) - (let ((_%e5251152675%_ + (if (gx#stx-pair? _%tl5232952497%_) + (let ((_%e5233652500%_ (gx#syntax-e - _%tl5250452672%_))) - (let ((_%tl5250952682%_ + _%tl5232952497%_))) + (let ((_%tl5233452507%_ (let () (declare (not safe)) - (##cdr _%e5251152675%_))) - (_%hd5251052679%_ + (##cdr _%e5233652500%_))) + (_%hd5233552504%_ (let () (declare (not safe)) - (##car _%e5251152675%_)))) + (##car _%e5233652500%_)))) (if (gx#identifier? - _%hd5251052679%_) + _%hd5233552504%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80845_| - _%hd5251052679%_) + |gerbil/core/contract~Interface[1]#_g80589_| + _%hd5233552504%_) (if (gx#stx-pair? - _%tl5250952682%_) - (let ((_%e5251452685%_ + _%tl5233452507%_) + (let ((_%e5233952510%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5250952682%_))) - (let ((_%tl5251252692%_ + (gx#syntax-e _%tl5233452507%_))) + (let ((_%tl5233752517%_ (let () (declare (not safe)) - (##cdr _%e5251452685%_))) - (_%hd5251352689%_ + (##cdr _%e5233952510%_))) + (_%hd5233852514%_ (let () (declare (not safe)) - (##car _%e5251452685%_)))) - (if (gx#stx-null? _%tl5251252692%_) - (_%__match7878778788%_ - _%e5249052743%_ - _%hd5248952747%_ - _%tl5248852750%_ - _%__splice7871978720%_ - _%target5250252669%_ - _%tl5250452672%_ - _%e5251152675%_ - _%hd5251052679%_ - _%tl5250952682%_ - _%e5251452685%_ - _%hd5251352689%_ - _%tl5251252692%_) - (_%__match7879978800%_ - _%e5249052743%_ - _%hd5248952747%_ - _%tl5248852750%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)))) - (_%__match7879978800%_ - _%e5249052743%_ - _%hd5248952747%_ - _%tl5248852750%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)) - (_%__match7879978800%_ - _%e5249052743%_ - _%hd5248952747%_ - _%tl5248852750%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)) - (_%__match7879978800%_ - _%e5249052743%_ - _%hd5248952747%_ - _%tl5248852750%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match7879978800%_ - _%e5249052743%_ - _%hd5248952747%_ - _%tl5248852750%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)))) - (_%__match7879978800%_ - _%e5249052743%_ - _%hd5248952747%_ - _%tl5248852750%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)) - (_%__match7879978800%_ - _%e5249052743%_ - _%hd5248952747%_ - _%tl5248852750%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)))))) - (_%__match7873578736%_ - (lambda (_%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_) - (let ((_%L52809%_ _%tl5248252806%_) - (_%L52811%_ _%hd5248352803%_)) - (if (gx#identifier? _%L52811%_) - (_%__kont7871378714%_ _%L52809%_ _%L52811%_) - (if (gx#stx-pair? _%hd5248352803%_) - (let ((_%e5249352753%_ - (gx#syntax-e _%hd5248352803%_))) - (let ((_%tl5249152760%_ + (##car _%e5233952510%_)))) + (if (gx#stx-null? _%tl5233752517%_) + (_%__match7861278613%_ + _%e5231552568%_ + _%hd5231452572%_ + _%tl5231352575%_ + _%__splice7854478545%_ + _%target5232752494%_ + _%tl5232952497%_ + _%e5233652500%_ + _%hd5233552504%_ + _%tl5233452507%_ + _%e5233952510%_ + _%hd5233852514%_ + _%tl5233752517%_) + (_%__match7862478625%_ + _%e5231552568%_ + _%hd5231452572%_ + _%tl5231352575%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)))) + (_%__match7862478625%_ + _%e5231552568%_ + _%hd5231452572%_ + _%tl5231352575%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)) + (_%__match7862478625%_ + _%e5231552568%_ + _%hd5231452572%_ + _%tl5231352575%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)) + (_%__match7862478625%_ + _%e5231552568%_ + _%hd5231452572%_ + _%tl5231352575%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match7862478625%_ + _%e5231552568%_ + _%hd5231452572%_ + _%tl5231352575%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)))) + (_%__match7862478625%_ + _%e5231552568%_ + _%hd5231452572%_ + _%tl5231352575%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)) + (_%__match7862478625%_ + _%e5231552568%_ + _%hd5231452572%_ + _%tl5231352575%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)))))) + (_%__match7856078561%_ + (lambda (_%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_) + (let ((_%L52634%_ _%tl5230752631%_) + (_%L52636%_ _%hd5230852628%_)) + (if (gx#identifier? _%L52636%_) + (_%__kont7853878539%_ _%L52634%_ _%L52636%_) + (if (gx#stx-pair? _%hd5230852628%_) + (let ((_%e5231852578%_ + (gx#syntax-e _%hd5230852628%_))) + (let ((_%tl5231652585%_ (let () (declare (not safe)) - (##cdr _%e5249352753%_))) - (_%hd5249252757%_ + (##cdr _%e5231852578%_))) + (_%hd5231752582%_ (let () (declare (not safe)) - (##car _%e5249352753%_)))) - (if (gx#stx-pair? _%tl5249152760%_) - (let ((_%e5249652763%_ + (##car _%e5231852578%_)))) + (if (gx#stx-pair? _%tl5231652585%_) + (let ((_%e5232152588%_ (gx#syntax-e - _%tl5249152760%_))) - (let ((_%tl5249452770%_ + _%tl5231652585%_))) + (let ((_%tl5231952595%_ (let () (declare (not safe)) - (##cdr _%e5249652763%_))) - (_%hd5249552767%_ + (##cdr _%e5232152588%_))) + (_%hd5232052592%_ (let () (declare (not safe)) - (##car _%e5249652763%_)))) + (##car _%e5232152588%_)))) (if (gx#stx-null? - _%tl5249452770%_) - (_%__match7875578756%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_ - _%e5249652763%_ - _%hd5249552767%_ - _%tl5249452770%_) + _%tl5231952595%_) + (_%__match7858078581%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_ + _%e5232152588%_ + _%hd5232052592%_ + _%tl5231952595%_) (if (gx#stx-pair/null? - _%hd5248352803%_) - (if (let ((__tmp80846 + _%hd5230852628%_) + (if (let ((__tmp80590 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-length _%hd5248352803%_))) + (gx#stx-length _%hd5230852628%_))) (declare (not safe)) - (##fx>= __tmp80846 '2)) - (let ((_%__splice7871978720%_ - (gx#syntax-split-splice _%hd5248352803%_ '2))) - (let ((_%tl5250452672%_ + (##fx>= __tmp80590 '2)) + (let ((_%__splice7854478545%_ + (gx#syntax-split-splice _%hd5230852628%_ '2))) + (let ((_%tl5232952497%_ (let () (declare (not safe)) - (##vector-ref _%__splice7871978720%_ '1))) - (_%target5250252669%_ + (##vector-ref _%__splice7854478545%_ '1))) + (_%target5232752494%_ (let () (declare (not safe)) - (##vector-ref _%__splice7871978720%_ '0)))) - (if (gx#stx-pair? _%tl5250452672%_) - (let ((_%e5251152675%_ - (gx#syntax-e _%tl5250452672%_))) - (let ((_%tl5250952682%_ + (##vector-ref _%__splice7854478545%_ '0)))) + (if (gx#stx-pair? _%tl5232952497%_) + (let ((_%e5233652500%_ + (gx#syntax-e _%tl5232952497%_))) + (let ((_%tl5233452507%_ (let () (declare (not safe)) - (##cdr _%e5251152675%_))) - (_%hd5251052679%_ + (##cdr _%e5233652500%_))) + (_%hd5233552504%_ (let () (declare (not safe)) - (##car _%e5251152675%_)))) - (if (gx#identifier? _%hd5251052679%_) + (##car _%e5233652500%_)))) + (if (gx#identifier? _%hd5233552504%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80845_| - _%hd5251052679%_) - (if (gx#stx-pair? _%tl5250952682%_) - (let ((_%e5251452685%_ + |gerbil/core/contract~Interface[1]#_g80589_| + _%hd5233552504%_) + (if (gx#stx-pair? _%tl5233452507%_) + (let ((_%e5233952510%_ (gx#syntax-e - _%tl5250952682%_))) - (let ((_%tl5251252692%_ + _%tl5233452507%_))) + (let ((_%tl5233752517%_ (let () (declare (not safe)) - (##cdr _%e5251452685%_))) - (_%hd5251352689%_ + (##cdr _%e5233952510%_))) + (_%hd5233852514%_ (let () (declare (not safe)) - (##car _%e5251452685%_)))) + (##car _%e5233952510%_)))) (if (gx#stx-null? - _%tl5251252692%_) - (_%__match7878778788%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%__splice7871978720%_ - _%target5250252669%_ - _%tl5250452672%_ - _%e5251152675%_ - _%hd5251052679%_ - _%tl5250952682%_ - _%e5251452685%_ - _%hd5251352689%_ - _%tl5251252692%_) - (_%__match7879978800%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)))) - (_%__match7879978800%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)) - (_%__match7879978800%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)) - (_%__match7879978800%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)))) - (_%__match7879978800%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)))) - (_%__match7879978800%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)) - (_%__match7879978800%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_))))) + _%tl5233752517%_) + (_%__match7861278613%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%__splice7854478545%_ + _%target5232752494%_ + _%tl5232952497%_ + _%e5233652500%_ + _%hd5233552504%_ + _%tl5233452507%_ + _%e5233952510%_ + _%hd5233852514%_ + _%tl5233752517%_) + (_%__match7862478625%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)))) + (_%__match7862478625%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)) + (_%__match7862478625%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)) + (_%__match7862478625%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)))) + (_%__match7862478625%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)))) + (_%__match7862478625%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)) + (_%__match7862478625%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd5248352803%_) - (if (let ((__tmp80847 + _%hd5230852628%_) + (if (let ((__tmp80591 (gx#stx-length - _%hd5248352803%_))) + _%hd5230852628%_))) (declare (not safe)) - (##fx>= __tmp80847 '2)) - (let ((_%__splice7871978720%_ + (##fx>= __tmp80591 '2)) + (let ((_%__splice7854478545%_ (gx#syntax-split-splice - _%hd5248352803%_ + _%hd5230852628%_ '2))) - (let ((_%tl5250452672%_ + (let ((_%tl5232952497%_ (let () (declare (not safe)) (##vector-ref - _%__splice7871978720%_ + _%__splice7854478545%_ '1))) - (_%target5250252669%_ + (_%target5232752494%_ (let () (declare (not safe)) (##vector-ref - _%__splice7871978720%_ + _%__splice7854478545%_ '0)))) (if (gx#stx-pair? - _%tl5250452672%_) - (let ((_%e5251152675%_ + _%tl5232952497%_) + (let ((_%e5233652500%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5250452672%_))) - (let ((_%tl5250952682%_ + (gx#syntax-e _%tl5232952497%_))) + (let ((_%tl5233452507%_ (let () (declare (not safe)) - (##cdr _%e5251152675%_))) - (_%hd5251052679%_ + (##cdr _%e5233652500%_))) + (_%hd5233552504%_ (let () (declare (not safe)) - (##car _%e5251152675%_)))) - (if (gx#identifier? _%hd5251052679%_) + (##car _%e5233652500%_)))) + (if (gx#identifier? _%hd5233552504%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80845_| - _%hd5251052679%_) - (if (gx#stx-pair? _%tl5250952682%_) - (let ((_%e5251452685%_ - (gx#syntax-e _%tl5250952682%_))) - (let ((_%tl5251252692%_ + |gerbil/core/contract~Interface[1]#_g80589_| + _%hd5233552504%_) + (if (gx#stx-pair? _%tl5233452507%_) + (let ((_%e5233952510%_ + (gx#syntax-e _%tl5233452507%_))) + (let ((_%tl5233752517%_ (let () (declare (not safe)) - (##cdr _%e5251452685%_))) - (_%hd5251352689%_ + (##cdr _%e5233952510%_))) + (_%hd5233852514%_ (let () (declare (not safe)) - (##car _%e5251452685%_)))) - (if (gx#stx-null? _%tl5251252692%_) - (_%__match7878778788%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%__splice7871978720%_ - _%target5250252669%_ - _%tl5250452672%_ - _%e5251152675%_ - _%hd5251052679%_ - _%tl5250952682%_ - _%e5251452685%_ - _%hd5251352689%_ - _%tl5251252692%_) - (_%__match7879978800%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)))) - (_%__match7879978800%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)) - (_%__match7879978800%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)) - (_%__match7879978800%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)))) - (_%__match7879978800%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match7879978800%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_)) - (_%__match7879978800%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5249352753%_ - _%hd5249252757%_ - _%tl5249152760%_))))) - (if (gx#stx-pair/null? _%hd5248352803%_) - (if (let ((__tmp80848 + (##car _%e5233952510%_)))) + (if (gx#stx-null? _%tl5233752517%_) + (_%__match7861278613%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%__splice7854478545%_ + _%target5232752494%_ + _%tl5232952497%_ + _%e5233652500%_ + _%hd5233552504%_ + _%tl5233452507%_ + _%e5233952510%_ + _%hd5233852514%_ + _%tl5233752517%_) + (_%__match7862478625%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)))) + (_%__match7862478625%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)) + (_%__match7862478625%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)) + (_%__match7862478625%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)))) + (_%__match7862478625%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match7862478625%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_)) + (_%__match7862478625%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5231852578%_ + _%hd5231752582%_ + _%tl5231652585%_))))) + (if (gx#stx-pair/null? _%hd5230852628%_) + (if (let ((__tmp80592 (gx#stx-length - _%hd5248352803%_))) + _%hd5230852628%_))) (declare (not safe)) - (##fx>= __tmp80848 '2)) - (let ((_%__splice7871978720%_ + (##fx>= __tmp80592 '2)) + (let ((_%__splice7854478545%_ (gx#syntax-split-splice - _%hd5248352803%_ + _%hd5230852628%_ '2))) - (let ((_%tl5250452672%_ + (let ((_%tl5232952497%_ (let () (declare (not safe)) (##vector-ref - _%__splice7871978720%_ + _%__splice7854478545%_ '1))) - (_%target5250252669%_ + (_%target5232752494%_ (let () (declare (not safe)) (##vector-ref - _%__splice7871978720%_ + _%__splice7854478545%_ '0)))) (if (gx#stx-pair? - _%tl5250452672%_) - (let ((_%e5251152675%_ + _%tl5232952497%_) + (let ((_%e5233652500%_ (gx#syntax-e - _%tl5250452672%_))) - (let ((_%tl5250952682%_ + _%tl5232952497%_))) + (let ((_%tl5233452507%_ (let () (declare (not safe)) - (##cdr _%e5251152675%_))) - (_%hd5251052679%_ + (##cdr _%e5233652500%_))) + (_%hd5233552504%_ (let () (declare (not safe)) - (##car _%e5251152675%_)))) + (##car _%e5233652500%_)))) (if (gx#identifier? - _%hd5251052679%_) + _%hd5233552504%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g80845_| - _%hd5251052679%_) + |gerbil/core/contract~Interface[1]#_g80589_| + _%hd5233552504%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5250952682%_) - (let ((_%e5251452685%_ - (gx#syntax-e _%tl5250952682%_))) - (let ((_%tl5251252692%_ + _%tl5233452507%_) + (let ((_%e5233952510%_ + (gx#syntax-e _%tl5233452507%_))) + (let ((_%tl5233752517%_ (let () (declare (not safe)) - (##cdr _%e5251452685%_))) - (_%hd5251352689%_ + (##cdr _%e5233952510%_))) + (_%hd5233852514%_ (let () (declare (not safe)) - (##car _%e5251452685%_)))) - (if (gx#stx-null? _%tl5251252692%_) - (_%__match7878778788%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%__splice7871978720%_ - _%target5250252669%_ - _%tl5250452672%_ - _%e5251152675%_ - _%hd5251052679%_ - _%tl5250952682%_ - _%e5251452685%_ - _%hd5251352689%_ - _%tl5251252692%_) - (if (gx#stx-pair? _%tl5248252806%_) - (let ((_%e5253052585%_ - (gx#syntax-e _%tl5248252806%_))) - (let ((_%tl5252852592%_ + (##car _%e5233952510%_)))) + (if (gx#stx-null? _%tl5233752517%_) + (_%__match7861278613%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%__splice7854478545%_ + _%target5232752494%_ + _%tl5232952497%_ + _%e5233652500%_ + _%hd5233552504%_ + _%tl5233452507%_ + _%e5233952510%_ + _%hd5233852514%_ + _%tl5233752517%_) + (if (gx#stx-pair? _%tl5230752631%_) + (let ((_%e5235552410%_ + (gx#syntax-e _%tl5230752631%_))) + (let ((_%tl5235352417%_ (let () (declare (not safe)) - (##cdr _%e5253052585%_))) - (_%hd5252952589%_ + (##cdr _%e5235552410%_))) + (_%hd5235452414%_ (let () (declare (not safe)) - (##car _%e5253052585%_)))) - (_%__match7881178812%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5253052585%_ - _%hd5252952589%_ - _%tl5252852592%_))) + (##car _%e5235552410%_)))) + (_%__match7863678637%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5235552410%_ + _%hd5235452414%_ + _%tl5235352417%_))) (let () (declare (not safe)) - (_%g5247652568%_)))))) - (if (gx#stx-pair? _%tl5248252806%_) - (let ((_%e5253052585%_ - (gx#syntax-e _%tl5248252806%_))) - (let ((_%tl5252852592%_ + (_%g5230152393%_)))))) + (if (gx#stx-pair? _%tl5230752631%_) + (let ((_%e5235552410%_ + (gx#syntax-e _%tl5230752631%_))) + (let ((_%tl5235352417%_ (let () (declare (not safe)) - (##cdr _%e5253052585%_))) - (_%hd5252952589%_ + (##cdr _%e5235552410%_))) + (_%hd5235452414%_ (let () (declare (not safe)) - (##car _%e5253052585%_)))) - (_%__match7881178812%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5253052585%_ - _%hd5252952589%_ - _%tl5252852592%_))) - (let () (declare (not safe)) (_%g5247652568%_)))) - (if (gx#stx-pair? _%tl5248252806%_) - (let ((_%e5253052585%_ - (gx#syntax-e _%tl5248252806%_))) - (let ((_%tl5252852592%_ + (##car _%e5235552410%_)))) + (_%__match7863678637%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5235552410%_ + _%hd5235452414%_ + _%tl5235352417%_))) + (let () (declare (not safe)) (_%g5230152393%_)))) + (if (gx#stx-pair? _%tl5230752631%_) + (let ((_%e5235552410%_ + (gx#syntax-e _%tl5230752631%_))) + (let ((_%tl5235352417%_ (let () (declare (not safe)) - (##cdr _%e5253052585%_))) - (_%hd5252952589%_ + (##cdr _%e5235552410%_))) + (_%hd5235452414%_ (let () (declare (not safe)) - (##car _%e5253052585%_)))) - (_%__match7881178812%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5253052585%_ - _%hd5252952589%_ - _%tl5252852592%_))) - (let () (declare (not safe)) (_%g5247652568%_)))) - (if (gx#stx-pair? _%tl5248252806%_) - (let ((_%e5253052585%_ (gx#syntax-e _%tl5248252806%_))) - (let ((_%tl5252852592%_ + (##car _%e5235552410%_)))) + (_%__match7863678637%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5235552410%_ + _%hd5235452414%_ + _%tl5235352417%_))) + (let () (declare (not safe)) (_%g5230152393%_)))) + (if (gx#stx-pair? _%tl5230752631%_) + (let ((_%e5235552410%_ (gx#syntax-e _%tl5230752631%_))) + (let ((_%tl5235352417%_ (let () (declare (not safe)) - (##cdr _%e5253052585%_))) - (_%hd5252952589%_ + (##cdr _%e5235552410%_))) + (_%hd5235452414%_ (let () (declare (not safe)) - (##car _%e5253052585%_)))) - (_%__match7881178812%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5253052585%_ - _%hd5252952589%_ - _%tl5252852592%_))) - (let () (declare (not safe)) (_%g5247652568%_)))))) + (##car _%e5235552410%_)))) + (_%__match7863678637%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5235552410%_ + _%hd5235452414%_ + _%tl5235352417%_))) + (let () (declare (not safe)) (_%g5230152393%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%tl5248252806%_) - (let ((_%e5253052585%_ + _%tl5230752631%_) + (let ((_%e5235552410%_ (gx#syntax-e - _%tl5248252806%_))) - (let ((_%tl5252852592%_ + _%tl5230752631%_))) + (let ((_%tl5235352417%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5253052585%_))) - (_%hd5252952589%_ - (let () (declare (not safe)) (##car _%e5253052585%_)))) - (_%__match7881178812%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5253052585%_ - _%hd5252952589%_ - _%tl5252852592%_))) - (let () (declare (not safe)) (_%g5247652568%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl5248252806%_) - (let ((_%e5253052585%_ + (##cdr _%e5235552410%_))) + (_%hd5235452414%_ + (let () (declare (not safe)) (##car _%e5235552410%_)))) + (_%__match7863678637%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5235552410%_ + _%hd5235452414%_ + _%tl5235352417%_))) + (let () (declare (not safe)) (_%g5230152393%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%tl5230752631%_) + (let ((_%e5235552410%_ (gx#syntax-e - _%tl5248252806%_))) - (let ((_%tl5252852592%_ + _%tl5230752631%_))) + (let ((_%tl5235352417%_ (let () (declare (not safe)) - (##cdr _%e5253052585%_))) - (_%hd5252952589%_ + (##cdr _%e5235552410%_))) + (_%hd5235452414%_ (let () (declare (not safe)) - (##car _%e5253052585%_)))) - (_%__match7881178812%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5253052585%_ - _%hd5252952589%_ - _%tl5252852592%_))) + (##car _%e5235552410%_)))) + (_%__match7863678637%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5235552410%_ + _%hd5235452414%_ + _%tl5235352417%_))) (let () (declare (not safe)) - (_%g5247652568%_)))) - (if (gx#stx-pair? _%tl5248252806%_) - (let ((_%e5253052585%_ + (_%g5230152393%_)))) + (if (gx#stx-pair? _%tl5230752631%_) + (let ((_%e5235552410%_ (gx#syntax-e - _%tl5248252806%_))) - (let ((_%tl5252852592%_ + _%tl5230752631%_))) + (let ((_%tl5235352417%_ (let () (declare (not safe)) - (##cdr _%e5253052585%_))) - (_%hd5252952589%_ + (##cdr _%e5235552410%_))) + (_%hd5235452414%_ (let () (declare (not safe)) - (##car _%e5253052585%_)))) - (_%__match7881178812%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_ - _%e5253052585%_ - _%hd5252952589%_ - _%tl5252852592%_))) + (##car _%e5235552410%_)))) + (_%__match7863678637%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_ + _%e5235552410%_ + _%hd5235452414%_ + _%tl5235352417%_))) (let () (declare (not safe)) - (_%g5247652568%_)))))))))) - (if (gx#stx-pair? _%__stx7871078711%_) - (let ((_%e5248452799%_ (gx#syntax-e _%__stx7871078711%_))) - (let ((_%tl5248252806%_ + (_%g5230152393%_)))))))))) + (if (gx#stx-pair? _%__stx7853578536%_) + (let ((_%e5230952624%_ (gx#syntax-e _%__stx7853578536%_))) + (let ((_%tl5230752631%_ (let () (declare (not safe)) - (##cdr _%e5248452799%_))) - (_%hd5248352803%_ + (##cdr _%e5230952624%_))) + (_%hd5230852628%_ (let () (declare (not safe)) - (##car _%e5248452799%_)))) - (_%__match7873578736%_ - _%e5248452799%_ - _%hd5248352803%_ - _%tl5248252806%_))) - (let () (declare (not safe)) (_%g5247652568%_))))))))) + (##car _%e5230952624%_)))) + (_%__match7856078561%_ + _%e5230952624%_ + _%hd5230852628%_ + _%tl5230752631%_))) + (let () (declare (not safe)) (_%g5230152393%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-keywords| - (lambda (_%spec52286%_) - (let _%lp52289%_ ((_%rest52292%_ _%spec52286%_) - (_%keywords52294%_ '())) - (let* ((_%__stx7881678817%_ _%rest52292%_) - (_%g5229952327%_ + (lambda (_%spec52111%_) + (let _%lp52114%_ ((_%rest52117%_ _%spec52111%_) + (_%keywords52119%_ '())) + (let* ((_%__stx7864178642%_ _%rest52117%_) + (_%g5212452152%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7881678817%_)))) - (let ((_%__kont7881978820%_ - (lambda (_%L52444%_ _%L52446%_) - (let () - (declare (not safe)) - (_%lp52289%_ _%L52444%_ _%keywords52294%_)))) - (_%__kont7882178822%_ - (lambda (_%L52412%_ _%L52414%_) - (let () - (declare (not safe)) - (_%lp52289%_ _%L52412%_ _%keywords52294%_)))) - (_%__kont7882378824%_ - (lambda (_%L52365%_ _%L52367%_) - (let ((__tmp80849 - (cons (gx#stx-e _%L52367%_) _%keywords52294%_))) - (declare (not safe)) - (_%lp52289%_ _%L52365%_ __tmp80849)))) - (_%__kont7882578826%_ + _%__stx7864178642%_)))) + (let ((_%__kont7864478645%_ + (lambda (_%L52269%_ _%L52271%_) + (_%lp52114%_ _%L52269%_ _%keywords52119%_))) + (_%__kont7864678647%_ + (lambda (_%L52237%_ _%L52239%_) + (_%lp52114%_ _%L52237%_ _%keywords52119%_))) + (_%__kont7864878649%_ + (lambda (_%L52190%_ _%L52192%_) + (_%lp52114%_ + _%L52190%_ + (cons (gx#stx-e _%L52192%_) _%keywords52119%_)))) + (_%__kont7865078651%_ (lambda () (list-sort |gerbil/core/contract~Interface[1]#keywordstring (gx#stx-e _%x52282%_))) - (__tmp80850 (symbol->string (gx#stx-e _%y52284%_)))) + (lambda (_%x52107%_ _%y52109%_) + (let ((__tmp80594 (symbol->string (gx#stx-e _%x52107%_))) + (__tmp80593 (symbol->string (gx#stx-e _%y52109%_)))) (declare (not safe)) - (##stringstring (gx#stx-e _%x52278%_))) - (__tmp80852 (keyword->string (gx#stx-e _%y52280%_)))) + (lambda (_%x52103%_ _%y52105%_) + (let ((__tmp80596 (keyword->string (gx#stx-e _%x52103%_))) + (__tmp80595 (keyword->string (gx#stx-e _%y52105%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match7891178912%_ - _%e6116361270%_ - _%hd6116261274%_ - _%tl6116161277%_ - _%e6116661280%_ - _%hd6116561284%_ - _%tl6116461287%_)))) - (_%__kont7886978870%_ - _%__stx7886078861%_)))) + (##car _%e6099761125%_)))) + (_%__match7872478725%_ + _%e6098861095%_ + _%hd6098761099%_ + _%tl6098661102%_ + _%e6099161105%_ + _%hd6099061109%_ + _%tl6098961112%_ + _%e6099461115%_ + _%hd6099361119%_ + _%tl6099261122%_ + _%e6099761125%_ + _%hd6099661129%_ + _%tl6099561132%_))) + (_%__match7873678737%_ + _%e6098861095%_ + _%hd6098761099%_ + _%tl6098661102%_ + _%e6099161105%_ + _%hd6099061109%_ + _%tl6098961112%_)) + (_%__match7873678737%_ + _%e6098861095%_ + _%hd6098761099%_ + _%tl6098661102%_ + _%e6099161105%_ + _%hd6099061109%_ + _%tl6098961112%_)) + (_%__match7873678737%_ + _%e6098861095%_ + _%hd6098761099%_ + _%tl6098661102%_ + _%e6099161105%_ + _%hd6099061109%_ + _%tl6098961112%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match7873678737%_ + _%e6098861095%_ + _%hd6098761099%_ + _%tl6098661102%_ + _%e6099161105%_ + _%hd6099061109%_ + _%tl6098961112%_)))) + (_%__kont7869478695%_ + _%__stx7868578686%_)))) (let () (declare (not safe)) - (_%g6115361218%_))))))))) - (_%make-method-defs59643%_ - (lambda (_%Interface60935%_) - (lambda (_%method60938%_ _%offset60940%_) - (let* ((_%signature60942%_ - (gx#stx-car (gx#stx-cdr _%method60938%_))) - (_%g6094560985%_ - (lambda (_%g6094660981%_) + (_%g6097861043%_))))))))) + (_%make-method-defs59468%_ + (lambda (_%Interface60760%_) + (lambda (_%method60763%_ _%offset60765%_) + (let* ((_%signature60767%_ + (gx#stx-car (gx#stx-cdr _%method60763%_))) + (_%g6077060810%_ + (lambda (_%g6077160806%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6094660981%_))) - (_%g6094461138%_ - (lambda (_%g6094660989%_) - (if (gx#stx-pair? _%g6094660989%_) - (let ((_%e6095560992%_ - (gx#syntax-e _%g6094660989%_))) - (let ((_%hd6095460996%_ + _%g6077160806%_))) + (_%g6076960963%_ + (lambda (_%g6077160814%_) + (if (gx#stx-pair? _%g6077160814%_) + (let ((_%e6078060817%_ + (gx#syntax-e _%g6077160814%_))) + (let ((_%hd6077960821%_ (let () (declare (not safe)) - (##car _%e6095560992%_))) - (_%tl6095360999%_ + (##car _%e6078060817%_))) + (_%tl6077860824%_ (let () (declare (not safe)) - (##cdr _%e6095560992%_)))) - (if (gx#stx-pair? _%tl6095360999%_) - (let ((_%e6095861002%_ + (##cdr _%e6078060817%_)))) + (if (gx#stx-pair? _%tl6077860824%_) + (let ((_%e6078360827%_ (gx#syntax-e - _%tl6095360999%_))) - (let ((_%hd6095761006%_ + _%tl6077860824%_))) + (let ((_%hd6078260831%_ (let () (declare (not safe)) - (##car _%e6095861002%_))) - (_%tl6095661009%_ + (##car _%e6078360827%_))) + (_%tl6078160834%_ (let () (declare (not safe)) - (##cdr _%e6095861002%_)))) + (##cdr _%e6078360827%_)))) (if (gx#stx-pair? - _%tl6095661009%_) - (let ((_%e6096161012%_ + _%tl6078160834%_) + (let ((_%e6078660837%_ (gx#syntax-e - _%tl6095661009%_))) - (let ((_%hd6096061016%_ + _%tl6078160834%_))) + (let ((_%hd6078560841%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6096161012%_))) - (_%tl6095961019%_ - (let () (declare (not safe)) (##cdr _%e6096161012%_)))) - (if (gx#stx-pair? _%tl6095961019%_) - (let ((_%e6096461022%_ (gx#syntax-e _%tl6095961019%_))) - (let ((_%hd6096361026%_ + (##car _%e6078660837%_))) + (_%tl6078460844%_ + (let () (declare (not safe)) (##cdr _%e6078660837%_)))) + (if (gx#stx-pair? _%tl6078460844%_) + (let ((_%e6078960847%_ (gx#syntax-e _%tl6078460844%_))) + (let ((_%hd6078860851%_ (let () (declare (not safe)) - (##car _%e6096461022%_))) - (_%tl6096261029%_ + (##car _%e6078960847%_))) + (_%tl6078760854%_ (let () (declare (not safe)) - (##cdr _%e6096461022%_)))) - (if (gx#stx-pair? _%tl6096261029%_) - (let ((_%e6096761032%_ - (gx#syntax-e _%tl6096261029%_))) - (let ((_%hd6096661036%_ + (##cdr _%e6078960847%_)))) + (if (gx#stx-pair? _%tl6078760854%_) + (let ((_%e6079260857%_ + (gx#syntax-e _%tl6078760854%_))) + (let ((_%hd6079160861%_ (let () (declare (not safe)) - (##car _%e6096761032%_))) - (_%tl6096561039%_ + (##car _%e6079260857%_))) + (_%tl6079060864%_ (let () (declare (not safe)) - (##cdr _%e6096761032%_)))) - (if (gx#stx-pair? _%tl6096561039%_) - (let ((_%e6097061042%_ - (gx#syntax-e _%tl6096561039%_))) - (let ((_%hd6096961046%_ + (##cdr _%e6079260857%_)))) + (if (gx#stx-pair? _%tl6079060864%_) + (let ((_%e6079560867%_ + (gx#syntax-e _%tl6079060864%_))) + (let ((_%hd6079460871%_ (let () (declare (not safe)) - (##car _%e6097061042%_))) - (_%tl6096861049%_ + (##car _%e6079560867%_))) + (_%tl6079360874%_ (let () (declare (not safe)) - (##cdr _%e6097061042%_)))) + (##cdr _%e6079560867%_)))) (if (gx#stx-pair/null? - _%hd6096961046%_) - (let ((_g80857_ + _%hd6079460871%_) + (let ((_g80598_ (gx#syntax-split-splice - _%hd6096961046%_ + _%hd6079460871%_ '0))) (begin - (let ((_g80858_ + (let ((_g80599_ (let () (declare (not safe)) (if (##values? - _g80857_) + _g80598_) (##vector-length - _g80857_) + _g80598_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80858_ + (##fx= _g80599_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g80858_))) + (error "Context expects 2 values" _g80599_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6097161052%_ + (let ((_%target6079660877%_ (let () (declare (not safe)) (##vector-ref - _g80857_ + _g80598_ 0))) - (_%tl6097361055%_ + (_%tl6079860880%_ (let () (declare (not safe)) (##vector-ref - _g80857_ + _g80598_ 1)))) (if (gx#stx-null? - _%tl6097361055%_) - (letrec ((_%loop6097461058%_ - (lambda (_%hd6097261062%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out6097861065%_) - (if (gx#stx-pair? _%hd6097261062%_) - (let ((_%e6097561068%_ - (gx#syntax-e _%hd6097261062%_))) - (let ((_%lp-hd6097661072%_ + _%tl6079860880%_) + (letrec ((_%loop6079960883%_ + (lambda (_%hd6079760887%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%out6080360890%_) + (if (gx#stx-pair? _%hd6079760887%_) + (let ((_%e6080060893%_ + (gx#syntax-e _%hd6079760887%_))) + (let ((_%lp-hd6080160897%_ (let () (declare (not safe)) - (##car _%e6097561068%_))) - (_%lp-tl6097761075%_ + (##car _%e6080060893%_))) + (_%lp-tl6080260900%_ (let () (declare (not safe)) - (##cdr _%e6097561068%_)))) - (_%loop6097461058%_ - _%lp-tl6097761075%_ - (cons _%lp-hd6097661072%_ - _%out6097861065%_)))) - (let ((_%out6097961078%_ - (reverse _%out6097861065%_))) - (if (gx#stx-null? _%tl6096861049%_) - ((lambda (_%L61082%_ - _%L61084%_ - _%L61085%_ - _%L61086%_ - _%L61087%_ - _%L61088%_) - (let () - (if (gx#stx-list? _%signature60942%_) - (gx#stx-wrap-source + (##cdr _%e6080060893%_)))) + (_%loop6079960883%_ + _%lp-tl6080260900%_ + (cons _%lp-hd6080160897%_ + _%out6080360890%_)))) + (let ((_%out6080460903%_ + (reverse _%out6080360890%_))) + (if (gx#stx-null? _%tl6079360874%_) + ((lambda (_%L60907%_ + _%L60909%_ + _%L60910%_ + _%L60911%_ + _%L60912%_ + _%L60913%_) + (if (gx#stx-list? _%signature60767%_) + (gx#stx-wrap-source + (cons (gx#datum->syntax + '#f + 'definterface-method) + (cons _%L60913%_ + (cons _%L60912%_ + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'declare) + (cons (cons (gx#datum->syntax '#f 'not) (cons (gx#datum->syntax '#f - 'definterface-method) - (cons _%L61088%_ - (cons _%L61087%_ - (cons (cons (gx#datum->syntax + 'safe) + '())) + '())) + (cons (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons (gx#datum->syntax + '#f + 'obj) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'declare) - (cons (cons (gx#datum->syntax '#f 'not) - (cons (gx#datum->syntax - '#f - 'safe) - '())) - '())) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons (gx#datum->syntax + '#f + '##unchecked-structure-ref) + (cons _%L60910%_ + (cons '1 + (cons '#f + (cons (cons (gx#datum->syntax '#f - 'obj) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##unchecked-structure-ref) - (cons _%L61085%_ - (cons '1 - (cons '#f - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L61086%_ + 'quote) + (cons _%L60911%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (gx#datum->syntax '#f 'f) - (cons (cons (gx#datum->syntax - '#f - '##unchecked-structure-ref) - (cons _%L61085%_ - (cons _%L61084%_ - (cons '#f - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L61086%_ '())) - '()))))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'f) - (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'f) + (cons (cons (gx#datum->syntax + '#f + '##unchecked-structure-ref) + (cons _%L60910%_ + (cons _%L60909%_ + (cons '#f + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'obj) - (foldr (lambda (_%g6112161124%_ _%g6112261127%_) - (cons _%g6112161124%_ _%g6112261127%_)) - '() - _%L61082%_))) - '()))) + 'quote) + (cons _%L60911%_ '())) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) + '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx59636%_)) - (gx#stx-wrap-source + (cons (cons (gx#datum->syntax + '#f + 'f) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'obj) + (foldr (lambda (_%g6094660949%_ _%g6094760952%_) + (cons _%g6094660949%_ _%g6094760952%_)) + '() + _%L60907%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#stx-source _%stx59461%_)) + (gx#stx-wrap-source + (cons (gx#datum->syntax + '#f + 'definterface-method) + (cons _%L60913%_ + (cons _%L60912%_ + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'declare) + (cons (cons (gx#datum->syntax '#f 'not) (cons (gx#datum->syntax '#f - 'definterface-method) - (cons _%L61088%_ - (cons _%L61087%_ - (cons (cons (gx#datum->syntax + 'safe) + '())) + '())) + (cons (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons (gx#datum->syntax + '#f + 'obj) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'declare) - (cons (cons (gx#datum->syntax '#f 'not) - (cons (gx#datum->syntax - '#f - 'safe) - '())) - '())) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons (gx#datum->syntax + '#f + '##unchecked-structure-ref) + (cons _%L60910%_ + (cons '1 + (cons '#f + (cons (cons (gx#datum->syntax '#f - 'obj) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##unchecked-structure-ref) - (cons _%L61085%_ - (cons '1 - (cons '#f - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L61086%_ + 'quote) + (cons _%L60911%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (gx#datum->syntax '#f 'f) - (cons (cons (gx#datum->syntax - '#f - '##unchecked-structure-ref) - (cons _%L61085%_ - (cons _%L61084%_ - (cons '#f - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L61086%_ '())) - '()))))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - '##apply) - (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'f) + (cons (cons (gx#datum->syntax + '#f + '##unchecked-structure-ref) + (cons _%L60910%_ + (cons _%L60909%_ + (cons '#f + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'f) - (cons (gx#datum->syntax '#f 'obj) - (foldr (lambda (_%g6112961132%_ - _%g6113061135%_) - (cons _%g6112961132%_ - _%g6113061135%_)) - '() - _%L61082%_)))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx59636%_))))) - _%out6097961078%_ - _%hd6096661036%_ - _%hd6096361026%_ - _%hd6096061016%_ - _%hd6095761006%_ - _%hd6095460996%_) - (_%g6094560985%_ _%g6094660989%_))))))) - (_%loop6097461058%_ _%target6097161052%_ '())) - (_%g6094560985%_ _%g6094660989%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6094560985%_ - _%g6094660989%_)))) - (_%g6094560985%_ _%g6094660989%_)))) - (_%g6094560985%_ _%g6094660989%_)))) - (_%g6094560985%_ _%g6094660989%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6094560985%_ - _%g6094660989%_)))) - (_%g6094560985%_ - _%g6094660989%_)))) - (_%g6094560985%_ _%g6094660989%_))))) - (_%g6094461138%_ - (list _%Interface60935%_ - _%method60938%_ - (gx#stx-car _%method60938%_) + 'quote) + (cons _%L60911%_ '())) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + '##apply) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'f) + (cons (gx#datum->syntax '#f 'obj) + (foldr (lambda (_%g6095460957%_ _%g6095560960%_) + (cons _%g6095460957%_ _%g6095560960%_)) + '() + _%L60907%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#stx-source _%stx59461%_)))) + _%out6080460903%_ + _%hd6079160861%_ + _%hd6078860851%_ + _%hd6078560841%_ + _%hd6078260831%_ + _%hd6077960821%_) + (_%g6077060810%_ _%g6077160814%_))))))) + (_%loop6079960883%_ _%target6079660877%_ '())) + (_%g6077060810%_ _%g6077160814%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6077060810%_ + _%g6077160814%_)))) + (_%g6077060810%_ _%g6077160814%_)))) + (_%g6077060810%_ _%g6077160814%_)))) + (_%g6077060810%_ _%g6077160814%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6077060810%_ + _%g6077160814%_)))) + (_%g6077060810%_ + _%g6077160814%_)))) + (_%g6077060810%_ _%g6077160814%_))))) + (_%g6076960963%_ + (list _%Interface60760%_ + _%method60763%_ + (gx#stx-car _%method60763%_) (gx#syntax-local-introduce 'self) - _%offset60940%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature60942%_))))))))) - (let* ((_%g5964559669%_ - (lambda (_%g5964659665%_) + _%offset60765%_ + (|gerbil/core/contract~Interface[1]#signature-arguments-out| + _%signature60767%_)))))))) + (let* ((_%g5947059494%_ + (lambda (_%g5947159490%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5964659665%_))) - (_%g5964460931%_ - (lambda (_%g5964659673%_) - (if (gx#stx-pair? _%g5964659673%_) - (let ((_%e5965159676%_ (gx#syntax-e _%g5964659673%_))) - (let ((_%hd5965059680%_ + _%g5947159490%_))) + (_%g5946960756%_ + (lambda (_%g5947159498%_) + (if (gx#stx-pair? _%g5947159498%_) + (let ((_%e5947659501%_ (gx#syntax-e _%g5947159498%_))) + (let ((_%hd5947559505%_ (let () (declare (not safe)) - (##car _%e5965159676%_))) - (_%tl5964959683%_ + (##car _%e5947659501%_))) + (_%tl5947459508%_ (let () (declare (not safe)) - (##cdr _%e5965159676%_)))) - (if (gx#stx-pair? _%tl5964959683%_) - (let ((_%e5965459686%_ - (gx#syntax-e _%tl5964959683%_))) - (let ((_%hd5965359690%_ + (##cdr _%e5947659501%_)))) + (if (gx#stx-pair? _%tl5947459508%_) + (let ((_%e5947959511%_ + (gx#syntax-e _%tl5947459508%_))) + (let ((_%hd5947859515%_ (let () (declare (not safe)) - (##car _%e5965459686%_))) - (_%tl5965259693%_ + (##car _%e5947959511%_))) + (_%tl5947759518%_ (let () (declare (not safe)) - (##cdr _%e5965459686%_)))) - (if (gx#stx-pair/null? _%tl5965259693%_) - (let ((_g80859_ + (##cdr _%e5947959511%_)))) + (if (gx#stx-pair/null? _%tl5947759518%_) + (let ((_g80600_ (gx#syntax-split-splice - _%tl5965259693%_ + _%tl5947759518%_ '0))) (begin - (let ((_g80860_ + (let ((_g80601_ (let () (declare (not safe)) - (if (##values? _g80859_) + (if (##values? _g80600_) (##vector-length - _g80859_) + _g80600_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80860_ 2))) + (##fx= _g80601_ 2))) (error "Context expects 2 values" - _g80860_))) - (let ((_%target5965559696%_ + _g80601_))) + (let ((_%target5948059521%_ (let () (declare (not safe)) (##vector-ref - _g80859_ + _g80600_ 0))) - (_%tl5965759699%_ + (_%tl5948259524%_ (let () (declare (not safe)) (##vector-ref - _g80859_ + _g80600_ 1)))) (if (gx#stx-null? - _%tl5965759699%_) - (letrec ((_%loop5965859702%_ - (lambda (_%hd5965659706%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%spec5966259709%_) - (if (gx#stx-pair? _%hd5965659706%_) - (let ((_%e5965959712%_ - (gx#syntax-e _%hd5965659706%_))) - (let ((_%lp-hd5966059716%_ + _%tl5948259524%_) + (letrec ((_%loop5948359527%_ + (lambda (_%hd5948159531%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%spec5948759534%_) + (if (gx#stx-pair? _%hd5948159531%_) + (let ((_%e5948459537%_ + (gx#syntax-e _%hd5948159531%_))) + (let ((_%lp-hd5948559541%_ (let () (declare (not safe)) - (##car _%e5965959712%_))) - (_%lp-tl5966159719%_ + (##car _%e5948459537%_))) + (_%lp-tl5948659544%_ (let () (declare (not safe)) - (##cdr _%e5965959712%_)))) - (_%loop5965859702%_ - _%lp-tl5966159719%_ - (cons _%lp-hd5966059716%_ _%spec5966259709%_)))) - (let ((_%spec5966359722%_ - (reverse _%spec5966259709%_))) - ((lambda (_%L59726%_ _%L59728%_) - (if (or (gx#identifier? _%L59728%_) - (gx#identifier-list? _%L59728%_)) - (let* ((_%g5975159759%_ - (lambda (_%g5975259755%_) + (##cdr _%e5948459537%_)))) + (_%loop5948359527%_ + _%lp-tl5948659544%_ + (cons _%lp-hd5948559541%_ _%spec5948759534%_)))) + (let ((_%spec5948859547%_ + (reverse _%spec5948759534%_))) + ((lambda (_%L59551%_ _%L59553%_) + (if (or (gx#identifier? _%L59553%_) + (gx#identifier-list? _%L59553%_)) + (let* ((_%g5957659584%_ + (lambda (_%g5957759580%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5975259755%_))) - (_%g5975060927%_ - (lambda (_%g5975259763%_) - ((lambda (_%L59766%_) - (let () - (let* ((_%g5977859786%_ - (lambda (_%g5977959782%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5977959782%_))) - (_%g5977760923%_ - (lambda (_%g5977959790%_) - ((lambda (_%L59793%_) - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g5980659814%_ - (lambda (_%g5980759810%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5980759810%_))) - (_%g5980560919%_ - (lambda (_%g5980759818%_) - ((lambda (_%L59821%_) - (let () - (let* ((_%g5983459842%_ - (lambda (_%g5983559838%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5983559838%_))) - (_%g5983360915%_ - (lambda (_%g5983559846%_) - ((lambda (_%L59849%_) - (let () - (let* ((_%g5986259870%_ - (lambda (_%g5986359866%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5986359866%_))) - (_%g5986160911%_ - (lambda (_%g5986359874%_) - ((lambda (_%L59877%_) - (let () - (let* ((_%g5989059898%_ - (lambda (_%g5989159894%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5989159894%_))) - (_%g5988960907%_ - (lambda (_%g5989159902%_) - ((lambda (_%L59905%_) - (let () - (let* ((_%g5991859926%_ - (lambda (_%g5991959922%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5991959922%_))) - (_%g5991760903%_ - (lambda (_%g5991959930%_) - ((lambda (_%L59933%_) - (let () - (let* ((_%g5994659954%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g5994759950%_) + _%g5957759580%_))) + (_%g5957560752%_ + (lambda (_%g5957759588%_) + ((lambda (_%L59591%_) + (let* ((_%g5960359611%_ + (lambda (_%g5960459607%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5960459607%_))) + (_%g5960260748%_ + (lambda (_%g5960459615%_) + ((lambda (_%L59618%_) + (let* ((_%g5963159639%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g5963259635%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5963259635%_))) + (_%g5963060744%_ + (lambda (_%g5963259643%_) + ((lambda (_%L59646%_) + (let* ((_%g5965959667%_ + (lambda (_%g5966059663%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5966059663%_))) + (_%g5965860740%_ + (lambda (_%g5966059671%_) + ((lambda (_%L59674%_) + (let* ((_%g5968759695%_ + (lambda (_%g5968859691%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5968859691%_))) + (_%g5968660736%_ + (lambda (_%g5968859699%_) + ((lambda (_%L59702%_) + (let* ((_%g5971559723%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g5971659719%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5994759950%_))) - (_%g5994560899%_ - (lambda (_%g5994759958%_) - ((lambda (_%L59961%_) - (let () - (let* ((_%g5997459982%_ - (lambda (_%g5997559978%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g5997559978%_))) - (_%g5997360895%_ - (lambda (_%g5997559986%_) - ((lambda (_%L59989%_) - (let () - (let* ((_%g6000260019%_ - (lambda (_%g6000360015%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6000360015%_))) - (_%g6000160891%_ - (lambda (_%g6000360023%_) - (if (gx#stx-pair/null? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6000360023%_) - (let ((_g80861_ - (gx#syntax-split-splice _%g6000360023%_ '0))) - (begin - (let ((_g80862_ - (let () - (declare (not safe)) - (if (##values? _g80861_) - (##vector-length _g80861_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g80862_ 2))) - (error "Context expects 2 values" _g80862_))) - (let ((_%target6000560026%_ - (let () - (declare (not safe)) - (##vector-ref _g80861_ 0))) - (_%tl6000760029%_ - (let () - (declare (not safe)) - (##vector-ref _g80861_ 1)))) - (if (gx#stx-null? _%tl6000760029%_) - (letrec ((_%loop6000860032%_ - (lambda (_%hd6000660036%_ - _%mixin6001260039%_) - (if (gx#stx-pair? - _%hd6000660036%_) - (let ((_%e6000960042%_ - (gx#syntax-e - _%hd6000660036%_))) - (let ((_%lp-hd6001060046%_ - (let () - (declare - (not safe)) - (##car _%e6000960042%_))) - (_%lp-tl6001160049%_ - (let () - (declare - (not safe)) - (##cdr _%e6000960042%_)))) - (_%loop6000860032%_ - _%lp-tl6001160049%_ - (cons _%lp-hd6001060046%_ - _%mixin6001260039%_)))) - (let ((_%mixin6001360052%_ - (reverse _%mixin6001260039%_))) - ((lambda (_%L60056%_) - (let () - (let* ((_%g6007360090%_ + _%g5971659719%_))) + (_%g5971460732%_ + (lambda (_%g5971659727%_) + ((lambda (_%L59730%_) + (let* ((_%g5974359751%_ + (lambda (_%g5974459747%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5974459747%_))) + (_%g5974260728%_ + (lambda (_%g5974459755%_) + ((lambda (_%L59758%_) + (let* ((_%g5977159779%_ + (lambda (_%g5977259775%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5977259775%_))) + (_%g5977060724%_ + (lambda (_%g5977259783%_) + ((lambda (_%L59786%_) + (let* ((_%g5979959807%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g5980059803%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5980059803%_))) + (_%g5979860720%_ + (lambda (_%g5980059811%_) + ((lambda (_%L59814%_) + (let* ((_%g5982759844%_ + (lambda (_%g5982859840%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5982859840%_))) + (_%g5982660716%_ + (lambda (_%g5982859848%_) + (if (gx#stx-pair/null? + _%g5982859848%_) + (let ((_g80602_ + (gx#syntax-split-splice + _%g5982859848%_ + '0))) + (begin + (let ((_g80603_ + (let () + (declare (not safe)) + (if (##values? + _g80602_) + (##vector-length + _g80602_) + 1)))) + (if (not (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6007460086%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6007460086%_))) - (_%g6007260871%_ - (lambda (_%g6007460094%_) - (if (gx#stx-pair/null? _%g6007460094%_) - (let ((_g80863_ - (gx#syntax-split-splice - _%g6007460094%_ - '0))) - (begin - (let ((_g80864_ - (let () - (declare (not safe)) - (if (##values? _g80863_) - (##vector-length _g80863_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g80864_ 2))) - (error "Context expects 2 values" - _g80864_))) - (let ((_%target6007660097%_ - (let () - (declare (not safe)) - (##vector-ref _g80863_ 0))) - (_%tl6007860100%_ - (let () - (declare (not safe)) - (##vector-ref _g80863_ 1)))) - (if (gx#stx-null? _%tl6007860100%_) - (letrec ((_%loop6007960103%_ - (lambda (_%hd6007760107%_ - _%method6008360110%_) - (if (gx#stx-pair? - _%hd6007760107%_) - (let ((_%e6008060113%_ - (gx#syntax-e + (not safe)) + (##fx= _g80603_ 2))) + (error "Context expects 2 values" _g80603_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%target5983059851%_ + (let () + (declare (not safe)) + (##vector-ref + _g80602_ + 0))) + (_%tl5983259854%_ + (let () + (declare (not safe)) + (##vector-ref + _g80602_ + 1)))) + (if (gx#stx-null? + _%tl5983259854%_) + (letrec ((_%loop5983359857%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd5983159861%_ _%mixin5983759864%_) + (if (gx#stx-pair? _%hd5983159861%_) + (let ((_%e5983459867%_ + (gx#syntax-e _%hd5983159861%_))) + (let ((_%lp-hd5983559871%_ + (let () + (declare (not safe)) + (##car _%e5983459867%_))) + (_%lp-tl5983659874%_ + (let () + (declare (not safe)) + (##cdr _%e5983459867%_)))) + (_%loop5983359857%_ + _%lp-tl5983659874%_ + (cons _%lp-hd5983559871%_ + _%mixin5983759864%_)))) + (let ((_%mixin5983859877%_ + (reverse _%mixin5983759864%_))) + ((lambda (_%L59881%_) + (let* ((_%g5989859915%_ + (lambda (_%g5989959911%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5989959911%_))) + (_%g5989760696%_ + (lambda (_%g5989959919%_) + (if (gx#stx-pair/null? + _%g5989959919%_) + (let ((_g80604_ + (gx#syntax-split-splice + _%g5989959919%_ + '0))) + (begin + (let ((_g80605_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd6007760107%_))) - (let ((_%lp-hd6008160117%_ - (let () - (declare (not safe)) - (##car _%e6008060113%_))) - (_%lp-tl6008260120%_ - (let () - (declare (not safe)) - (##cdr _%e6008060113%_)))) - (_%loop6007960103%_ - _%lp-tl6008260120%_ - (cons _%lp-hd6008160117%_ _%method6008360110%_)))) - (let ((_%method6008460123%_ (reverse _%method6008360110%_))) - ((lambda (_%L60127%_) - (let () - (let* ((_%g6014460161%_ - (lambda (_%g6014560157%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6014560157%_))) - (_%g6014360859%_ - (lambda (_%g6014560165%_) - (if (gx#stx-pair/null? _%g6014560165%_) - (let ((_g80865_ - (gx#syntax-split-splice - _%g6014560165%_ - '0))) - (begin - (let ((_g80866_ - (let () - (declare (not safe)) - (if (##values? _g80865_) - (##vector-length - _g80865_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g80866_ 2))) - (error "Context expects 2 values" - _g80866_))) - (let ((_%target6014760168%_ - (let () - (declare (not safe)) - (##vector-ref _g80865_ 0))) - (_%tl6014960171%_ - (let () - (declare (not safe)) - (##vector-ref _g80865_ 1)))) - (if (gx#stx-null? _%tl6014960171%_) - (letrec ((_%loop6015060174%_ - (lambda (_%hd6014860178%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%method-name6015460181%_) - (if (gx#stx-pair? _%hd6014860178%_) - (let ((_%e6015160184%_ (gx#syntax-e _%hd6014860178%_))) - (let ((_%lp-hd6015260188%_ - (let () - (declare (not safe)) - (##car _%e6015160184%_))) - (_%lp-tl6015360191%_ - (let () - (declare (not safe)) - (##cdr _%e6015160184%_)))) - (_%loop6015060174%_ - _%lp-tl6015360191%_ - (cons _%lp-hd6015260188%_ - _%method-name6015460181%_)))) - (let ((_%method-name6015560194%_ - (reverse _%method-name6015460181%_))) - ((lambda (_%L60198%_) - (let () - (let* ((_%g6021560232%_ - (lambda (_%g6021660228%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6021660228%_))) - (_%g6021460847%_ - (lambda (_%g6021660236%_) - (if (gx#stx-pair/null? - _%g6021660236%_) - (let ((_g80867_ - (gx#syntax-split-splice - _%g6021660236%_ - '0))) - (begin - (let ((_g80868_ - (let () - (declare (not safe)) - (if (##values? - _g80867_) - (##vector-length - _g80867_) - 1)))) - (if (not (let () - (declare - (not safe)) - (##fx= _g80868_ + (not safe)) + (if (##values? _g80604_) + (##vector-length _g80604_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g80605_ 2))) + (error "Context expects 2 values" _g80605_))) + (let ((_%target5990159922%_ + (let () (declare (not safe)) (##vector-ref _g80604_ 0))) + (_%tl5990359925%_ + (let () (declare (not safe)) (##vector-ref _g80604_ 1)))) + (if (gx#stx-null? _%tl5990359925%_) + (letrec ((_%loop5990459928%_ + (lambda (_%hd5990259932%_ _%method5990859935%_) + (if (gx#stx-pair? _%hd5990259932%_) + (let ((_%e5990559938%_ + (gx#syntax-e _%hd5990259932%_))) + (let ((_%lp-hd5990659942%_ + (let () + (declare (not safe)) + (##car _%e5990559938%_))) + (_%lp-tl5990759945%_ + (let () + (declare (not safe)) + (##cdr _%e5990559938%_)))) + (_%loop5990459928%_ + _%lp-tl5990759945%_ + (cons _%lp-hd5990659942%_ + _%method5990859935%_)))) + (let ((_%method5990959948%_ + (reverse _%method5990859935%_))) + ((lambda (_%L59952%_) + (let* ((_%g5996959986%_ + (lambda (_%g5997059982%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5997059982%_))) + (_%g5996860684%_ + (lambda (_%g5997059990%_) + (if (gx#stx-pair/null? + _%g5997059990%_) + (let ((_g80606_ + (gx#syntax-split-splice + _%g5997059990%_ + '0))) + (begin + (let ((_g80607_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - 2))) - (error "Context expects 2 values" _g80868_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6021860239%_ + (let () + (declare (not safe)) + (if (##values? _g80606_) + (##vector-length _g80606_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g80607_ 2))) + (error "Context expects 2 values" _g80607_))) + (let ((_%target5997259993%_ + (let () + (declare (not safe)) + (##vector-ref _g80606_ 0))) + (_%tl5997459996%_ + (let () + (declare (not safe)) + (##vector-ref _g80606_ 1)))) + (if (gx#stx-null? _%tl5997459996%_) + (letrec ((_%loop5997559999%_ + (lambda (_%hd5997360003%_ + _%method-name5997960006%_) + (if (gx#stx-pair? _%hd5997360003%_) + (let ((_%e5997660009%_ + (gx#syntax-e + _%hd5997360003%_))) + (let ((_%lp-hd5997760013%_ + (let () + (declare (not safe)) + (##car _%e5997660009%_))) + (_%lp-tl5997860016%_ + (let () + (declare (not safe)) + (##cdr _%e5997660009%_)))) + (_%loop5997559999%_ + _%lp-tl5997860016%_ + (cons _%lp-hd5997760013%_ + _%method-name5997960006%_)))) + (let ((_%method-name5998060019%_ + (reverse _%method-name5997960006%_))) + ((lambda (_%L60023%_) + (let* ((_%g6004060057%_ + (lambda (_%g6004160053%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6004160053%_))) + (_%g6003960672%_ + (lambda (_%g6004160061%_) + (if (gx#stx-pair/null? + _%g6004160061%_) + (let ((_g80608_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-split-splice _%g6004160061%_ '0))) + (begin + (let ((_g80609_ + (let () + (declare (not safe)) + (if (##values? _g80608_) + (##vector-length _g80608_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g80609_ 2))) + (error "Context expects 2 values" _g80609_))) + (let ((_%target6004360064%_ + (let () + (declare (not safe)) + (##vector-ref _g80608_ 0))) + (_%tl6004560067%_ + (let () + (declare (not safe)) + (##vector-ref _g80608_ 1)))) + (if (gx#stx-null? _%tl6004560067%_) + (letrec ((_%loop6004660070%_ + (lambda (_%hd6004460074%_ + _%method-signature6005060077%_) + (if (gx#stx-pair? _%hd6004460074%_) + (let ((_%e6004760080%_ + (gx#syntax-e + _%hd6004460074%_))) + (let ((_%lp-hd6004860084%_ (let () (declare (not safe)) - (##vector-ref - _g80867_ - 0))) - (_%tl6022060242%_ + (##car _%e6004760080%_))) + (_%lp-tl6004960087%_ (let () (declare (not safe)) - (##vector-ref - _g80867_ - 1)))) - (if (gx#stx-null? - _%tl6022060242%_) - (letrec ((_%loop6022160245%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6021960249%_ - _%method-signature6022560252%_) - (if (gx#stx-pair? _%hd6021960249%_) - (let ((_%e6022260255%_ - (gx#syntax-e _%hd6021960249%_))) - (let ((_%lp-hd6022360259%_ - (let () - (declare (not safe)) - (##car _%e6022260255%_))) - (_%lp-tl6022460262%_ - (let () - (declare (not safe)) - (##cdr _%e6022260255%_)))) - (_%loop6022160245%_ - _%lp-tl6022460262%_ - (cons _%lp-hd6022360259%_ - _%method-signature6022560252%_)))) - (let ((_%method-signature6022660265%_ - (reverse _%method-signature6022560252%_))) - ((lambda (_%L60269%_) - (let () - (let* ((_%g6028660303%_ - (lambda (_%g6028760299%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6028760299%_))) - (_%g6028560832%_ - (lambda (_%g6028760307%_) - (if (gx#stx-pair/null? - _%g6028760307%_) - (let ((_g80869_ - (gx#syntax-split-splice - _%g6028760307%_ - '0))) - (begin - (let ((_g80870_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (if (##values? _g80869_) - (##vector-length _g80869_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g80870_ 2))) - (error "Context expects 2 values" _g80870_))) - (let ((_%target6028960310%_ - (let () (declare (not safe)) (##vector-ref _g80869_ 0))) - (_%tl6029160313%_ - (let () - (declare (not safe)) - (##vector-ref _g80869_ 1)))) - (if (gx#stx-null? _%tl6029160313%_) - (letrec ((_%loop6029260316%_ - (lambda (_%hd6029060320%_ - _%method-impl-name6029660323%_) - (if (gx#stx-pair? _%hd6029060320%_) - (let ((_%e6029360326%_ - (gx#syntax-e _%hd6029060320%_))) - (let ((_%lp-hd6029460330%_ - (let () - (declare (not safe)) - (##car _%e6029360326%_))) - (_%lp-tl6029560333%_ - (let () - (declare (not safe)) - (##cdr _%e6029360326%_)))) - (_%loop6029260316%_ - _%lp-tl6029560333%_ - (cons _%lp-hd6029460330%_ - _%method-impl-name6029660323%_)))) - (let ((_%method-impl-name6029760336%_ - (reverse _%method-impl-name6029660323%_))) - ((lambda (_%L60340%_) - (let () - (let* ((_%g6035760374%_ - (lambda (_%g6035860370%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6035860370%_))) - (_%g6035660817%_ - (lambda (_%g6035860378%_) - (if (gx#stx-pair/null? - _%g6035860378%_) - (let ((_g80871_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g6035860378%_ '0))) - (begin - (let ((_g80872_ - (let () - (declare (not safe)) - (if (##values? _g80871_) - (##vector-length _g80871_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g80872_ 2))) - (error "Context expects 2 values" _g80872_))) - (let ((_%target6036060381%_ - (let () - (declare (not safe)) - (##vector-ref _g80871_ 0))) - (_%tl6036260384%_ - (let () - (declare (not safe)) - (##vector-ref _g80871_ 1)))) - (if (gx#stx-null? _%tl6036260384%_) - (letrec ((_%loop6036360387%_ - (lambda (_%hd6036160391%_ - _%unchecked-method-impl-name6036760394%_) - (if (gx#stx-pair? _%hd6036160391%_) - (let ((_%e6036460397%_ - (gx#syntax-e - _%hd6036160391%_))) - (let ((_%lp-hd6036560401%_ - (let () - (declare (not safe)) - (##car _%e6036460397%_))) - (_%lp-tl6036660404%_ - (let () - (declare (not safe)) - (##cdr _%e6036460397%_)))) - (_%loop6036360387%_ - _%lp-tl6036660404%_ - (cons _%lp-hd6036560401%_ - _%unchecked-method-impl-name6036760394%_)))) - (let ((_%unchecked-method-impl-name6036860407%_ - (reverse _%unchecked-method-impl-name6036760394%_))) - ((lambda (_%L60411%_) - (let () - (let* ((_%g6042860445%_ - (lambda (_%g6042960441%_) + (##cdr _%e6004760080%_)))) + (_%loop6004660070%_ + _%lp-tl6004960087%_ + (cons _%lp-hd6004860084%_ + _%method-signature6005060077%_)))) + (let ((_%method-signature6005160090%_ + (reverse _%method-signature6005060077%_))) + ((lambda (_%L60094%_) + (let* ((_%g6011160128%_ + (lambda (_%g6011260124%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6042960441%_))) - (_%g6042760797%_ - (lambda (_%g6042960449%_) + _%g6011260124%_))) + (_%g6011060657%_ + (lambda (_%g6011260132%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6042960449%_) - (let ((_g80873_ - (gx#syntax-split-splice _%g6042960449%_ '0))) + _%g6011260132%_) + (let ((_g80610_ + (gx#syntax-split-splice _%g6011260132%_ '0))) (begin - (let ((_g80874_ + (let ((_g80611_ (let () (declare (not safe)) - (if (##values? _g80873_) - (##vector-length _g80873_) + (if (##values? _g80610_) + (##vector-length _g80610_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80874_ 2))) + (##fx= _g80611_ 2))) (error "Context expects 2 values" - _g80874_))) - (let ((_%target6043160452%_ + _g80611_))) + (let ((_%target6011460135%_ (let () (declare (not safe)) - (##vector-ref _g80873_ 0))) - (_%tl6043360455%_ + (##vector-ref _g80610_ 0))) + (_%tl6011660138%_ (let () (declare (not safe)) - (##vector-ref _g80873_ 1)))) - (if (gx#stx-null? _%tl6043360455%_) - (letrec ((_%loop6043460458%_ - (lambda (_%hd6043260462%_ - _%defmethod-impl6043860465%_) + (##vector-ref _g80610_ 1)))) + (if (gx#stx-null? _%tl6011660138%_) + (letrec ((_%loop6011760141%_ + (lambda (_%hd6011560145%_ + _%method-impl-name6012160148%_) (if (gx#stx-pair? - _%hd6043260462%_) - (let ((_%e6043560468%_ + _%hd6011560145%_) + (let ((_%e6011860151%_ (gx#syntax-e - _%hd6043260462%_))) - (let ((_%lp-hd6043660472%_ + _%hd6011560145%_))) + (let ((_%lp-hd6011960155%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6043560468%_))) - (_%lp-tl6043760475%_ - (let () (declare (not safe)) (##cdr _%e6043560468%_)))) - (_%loop6043460458%_ - _%lp-tl6043760475%_ - (cons _%lp-hd6043660472%_ _%defmethod-impl6043860465%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%defmethod-impl6043960478%_ - (reverse _%defmethod-impl6043860465%_))) - ((lambda (_%L60482%_) - (let () - (let* ((_%g6049960507%_ + (##car _%e6011860151%_))) + (_%lp-tl6012060158%_ + (let () (declare (not safe)) (##cdr _%e6011860151%_)))) + (_%loop6011760141%_ + _%lp-tl6012060158%_ + (cons _%lp-hd6011960155%_ _%method-impl-name6012160148%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%method-impl-name6012260161%_ + (reverse _%method-impl-name6012160148%_))) + ((lambda (_%L60165%_) + (let* ((_%g6018260199%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g6018360195%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6018360195%_))) + (_%g6018160642%_ + (lambda (_%g6018360203%_) + (if (gx#stx-pair/null? _%g6018360203%_) + (let ((_g80612_ + (gx#syntax-split-splice + _%g6018360203%_ + '0))) + (begin + (let ((_g80613_ + (let () + (declare (not safe)) + (if (##values? _g80612_) + (##vector-length _g80612_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g80613_ 2))) + (error "Context expects 2 values" + _g80613_))) + (let ((_%target6018560206%_ + (let () + (declare (not safe)) + (##vector-ref _g80612_ 0))) + (_%tl6018760209%_ + (let () + (declare (not safe)) + (##vector-ref _g80612_ 1)))) + (if (gx#stx-null? _%tl6018760209%_) + (letrec ((_%loop6018860212%_ + (lambda (_%hd6018660216%_ + _%unchecked-method-impl-name6019260219%_) + (if (gx#stx-pair? + _%hd6018660216%_) + (let ((_%e6018960222%_ + (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6050060503%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6050060503%_))) - (_%g6049860777%_ - (lambda (_%g6050060511%_) - ((lambda (_%L60514%_) - (let () - (let* ((_%g6052760535%_ - (lambda (_%g6052860531%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6052860531%_))) - (_%g6052660757%_ - (lambda (_%g6052860539%_) - ((lambda (_%L60542%_) + _%hd6018660216%_))) + (let ((_%lp-hd6019060226%_ + (let () + (declare (not safe)) + (##car _%e6018960222%_))) + (_%lp-tl6019160229%_ + (let () + (declare (not safe)) + (##cdr _%e6018960222%_)))) + (_%loop6018860212%_ + _%lp-tl6019160229%_ + (cons _%lp-hd6019060226%_ + _%unchecked-method-impl-name6019260219%_)))) + (let ((_%unchecked-method-impl-name6019360232%_ + (reverse _%unchecked-method-impl-name6019260219%_))) + ((lambda (_%L60236%_) + (let* ((_%g6025360270%_ + (lambda (_%g6025460266%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6025460266%_))) + (_%g6025260622%_ + (lambda (_%g6025460274%_) + (if (gx#stx-pair/null? _%g6025460274%_) + (let ((_g80614_ + (gx#syntax-split-splice + _%g6025460274%_ + '0))) + (begin + (let ((_g80615_ (let () - (let* ((_%g6055560563%_ - (lambda (_%g6055660559%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6055660559%_))) - (_%g6055460753%_ - (lambda (_%g6055660567%_) - ((lambda (_%L60570%_) - (let () - (let* ((_%g6058360591%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6058460587%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6058460587%_))) - (_%g6058260749%_ - (lambda (_%g6058460595%_) - ((lambda (_%L60598%_) - (let () - (let* ((_%g6061160619%_ - (lambda (_%g6061260615%_) + (declare (not safe)) + (if (##values? _g80614_) + (##vector-length _g80614_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g80615_ 2))) + (error "Context expects 2 values" + _g80615_))) + (let ((_%target6025660277%_ + (let () + (declare (not safe)) + (##vector-ref _g80614_ 0))) + (_%tl6025860280%_ + (let () + (declare (not safe)) + (##vector-ref _g80614_ 1)))) + (if (gx#stx-null? _%tl6025860280%_) + (letrec ((_%loop6025960283%_ + (lambda (_%hd6025760287%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%defmethod-impl6026360290%_) + (if (gx#stx-pair? _%hd6025760287%_) + (let ((_%e6026060293%_ (gx#syntax-e _%hd6025760287%_))) + (let ((_%lp-hd6026160297%_ + (let () + (declare (not safe)) + (##car _%e6026060293%_))) + (_%lp-tl6026260300%_ + (let () + (declare (not safe)) + (##cdr _%e6026060293%_)))) + (_%loop6025960283%_ + _%lp-tl6026260300%_ + (cons _%lp-hd6026160297%_ + _%defmethod-impl6026360290%_)))) + (let ((_%defmethod-impl6026460303%_ + (reverse _%defmethod-impl6026360290%_))) + ((lambda (_%L60307%_) + (let* ((_%g6032460332%_ + (lambda (_%g6032560328%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6032560328%_))) + (_%g6032360602%_ + (lambda (_%g6032560336%_) + ((lambda (_%L60339%_) + (let* ((_%g6035260360%_ + (lambda (_%g6035360356%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6035360356%_))) + (_%g6035160582%_ + (lambda (_%g6035360364%_) + ((lambda (_%L60367%_) + (let* ((_%g6038060388%_ + (lambda (_%g6038160384%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6038160384%_))) + (_%g6037960578%_ + (lambda (_%g6038160392%_) + ((lambda (_%L60395%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let* ((_%g6040860416%_ + (lambda (_%g6040960412%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6040960412%_))) + (_%g6040760574%_ + (lambda (_%g6040960420%_) + ((lambda (_%L60423%_) + (let* ((_%g6043660444%_ + (lambda (_%g6043760440%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6061260615%_))) - (_%g6061060745%_ - (lambda (_%g6061260623%_) - ((lambda (_%L60626%_) - (let () - (let* ((_%g6063960647%_ - (lambda (_%g6064060643%_) - (gx#raise-syntax-error -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '"Bad syntax; invalid match target" - _%g6064060643%_))) - (_%g6063860741%_ - (lambda (_%g6064060651%_) - ((lambda (_%L60654%_) - (let () - (let* ((_%g6066760675%_ - (lambda (_%g6066860671%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6066860671%_))) - (_%g6066660705%_ - (lambda (_%g6066860679%_) - ((lambda (_%L60682%_) - (let () - (cons (gx#datum->syntax '#f 'begin) - (cons _%L60514%_ - (cons _%L60542%_ - (cons _%L60570%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L60598%_ - (cons _%L60626%_ - (cons _%L60654%_ - (cons _%L60682%_ - (foldr (lambda (_%g6069660699%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6069760702%_) - (cons _%g6069660699%_ _%g6069760702%_)) - '() - _%L60482%_))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6066860679%_)))) - (_%g6066660705%_ - (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L59766%_ - (cons (cons (gx#datum->syntax - '#f - 'make-interface-info) - (cons 'name: - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L59766%_ '())) - (cons 'interface-mixin: - (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g6071460717%_ - _%g6071560720%_) - (cons (cons (gx#datum->syntax + _%g6043760440%_))) + (_%g6043560570%_ + (lambda (_%g6043760448%_) + ((lambda (_%L60451%_) + (let* ((_%g6046460472%_ + (lambda (_%g6046560468%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6046560468%_))) + (_%g6046360566%_ + (lambda (_%g6046560476%_) + ((lambda (_%L60479%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote-syntax) - (cons _%g6071460717%_ '())) - _%g6071560720%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let* ((_%g6049260500%_ + (lambda (_%g6049360496%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6049360496%_))) + (_%g6049160530%_ + (lambda (_%g6049360504%_) + ((lambda (_%L60507%_) + (cons (gx#datum->syntax '#f 'begin) + (cons _%L60339%_ + (cons _%L60367%_ + (cons _%L60395%_ + (cons _%L60423%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L60451%_ + (cons _%L60479%_ + (cons _%L60507%_ + (foldr (lambda (_%g6052160524%_ + _%g6052260527%_) + (cons _%g6052160524%_ + _%g6052260527%_)) '() - _%L60056%_)) - (cons 'interface-methods: - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons (foldr (lambda (_%g6071260723%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6071360726%_) - (cons _%g6071260723%_ _%g6071360726%_)) - '() - _%L60127%_) - '())) + _%L60307%_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons 'instance-type: + _%g6049360504%_)))) + (_%g6049160530%_ + (cons (gx#datum->syntax '#f 'defsyntax) + (cons _%L59591%_ + (cons (cons (gx#datum->syntax + '#f + 'make-interface-info) + (cons 'name: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'quote-syntax) - (cons _%L59793%_ '())) - (cons 'interface-descriptor: - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L59877%_ '())) - (cons 'instance-constructor: + 'quote) + (cons _%L59591%_ '())) + (cons 'interface-mixin: + (cons (cons (gx#datum->syntax '#f '@list) + (foldr (lambda (_%g6053960542%_ + _%g6054060545%_) + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%g6053960542%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + _%g6054060545%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '() + _%L59881%_)) + (cons 'interface-methods: (cons (cons (gx#datum->syntax '#f - 'quote-syntax) - (cons _%L59905%_ '())) - (cons 'instance-try-constructor: + 'quote) + (cons (foldr (lambda (_%g6053760548%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6053860551%_) + (cons _%g6053760548%_ _%g6053860551%_)) + '() + _%L59952%_) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons 'instance-type: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L59933%_ '())) - (cons 'instance-predicate: + (cons _%L59618%_ '())) + (cons 'interface-descriptor: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L59961%_ '())) - (cons 'instance-satisfies-predicate: + (cons _%L59702%_ '())) + (cons 'instance-constructor: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L59989%_ '())) - (cons 'implementation-methods: + (cons _%L59730%_ '())) + (cons 'instance-try-constructor: (cons (cons (gx#datum->syntax '#f - '@list) - (foldr (lambda (_%g6071060729%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6071160732%_) - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g6071060729%_ '())) - _%g6071160732%_)) - '() - _%L60340%_)) - (cons 'unchecked-implementation-methods: - (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g6070860735%_ - _%g6070960738%_) - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%g6070860735%_ - '())) - _%g6070960738%_)) - '() - _%L60411%_)) - '()))))))))))))))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))))) - _%g6064060651%_)))) - (_%g6063860741%_ - (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L59989%_ - (cons (gx#datum->syntax '#f 'obj) '())) - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) + 'quote-syntax) + (cons _%L59758%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + (cons 'instance-predicate: + (cons (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _%L59786%_ '())) + (cons 'instance-satisfies-predicate: + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%L59814%_ '())) + (cons 'implementation-methods: + (cons (cons (gx#datum->syntax + '#f + '@list) + (foldr (lambda (_%g6053560554%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6053660557%_) + (cons (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _%g6053560554%_ '())) + _%g6053660557%_)) + '() + _%L60165%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons 'unchecked-implementation-methods: + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '@list) + (foldr (lambda (_%g6053360560%_ _%g6053460563%_) + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%g6053360560%_ '())) + _%g6053460563%_)) + '() + _%L60236%_)) + '()))))))))))))))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))))) + _%g6046560476%_)))) + (_%g6046360566%_ + (cons (gx#datum->syntax '#f 'def) + (cons (cons _%L59814%_ + (cons (gx#datum->syntax '#f 'obj) '())) + (cons (cons (gx#datum->syntax '#f 'begin-annotation) + (cons (cons (gx#datum->syntax + '#f + '@type.signature) + (cons 'return: + (cons (gx#datum->syntax + '#f + 'boolean::t) + (cons 'effect: +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons (gx#datum->syntax '#f 'pure) '()) + (cons 'arguments: (cons (cons (gx#datum->syntax '#f - '@type.signature) - (cons 'return: - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'boolean::t) - (cons 'effect: - (cons (cons (gx#datum->syntax '#f 'pure) '()) - (cons 'arguments: - (cons (cons (gx#datum->syntax - '#f - 't::t) - '()) - '()))))))) + 't::t) + '()) + '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'and) - (cons (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax + '#f + 'and) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'satisfies?) - (cons _%L59877%_ - (cons (gx#datum->syntax '#f 'obj) '()))) - (cons '#t '()))) + '#f + 'satisfies?) + (cons _%L59702%_ + (cons (gx#datum->syntax '#f 'obj) '()))) + (cons '#t '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))))))) + '()))) + '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6061260623%_)))) - (_%g6061060745%_ + _%g6043760448%_)))) + (_%g6043560570%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L59961%_ + (cons _%L59786%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.predicate) - (cons _%L59821%_ '())) + (cons _%L59646%_ '())) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f @@ -8526,2147 +8168,2115 @@ (cons (cons (gx#datum->syntax '#f 'direct-instance?) - (cons _%L59793%_ + (cons _%L59618%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'obj) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6058460595%_)))) - (_%g6058260749%_ - (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L59933%_ - (cons (gx#datum->syntax '#f 'obj) - '())) - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax - '#f - '@type.signature) - (cons 'return: -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 't::t) - (cons 'effect: + '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g6040960420%_)))) + (_%g6040760574%_ + (cons (gx#datum->syntax '#f 'def) + (cons (cons _%L59758%_ + (cons (gx#datum->syntax + '#f + 'obj) + '())) (cons (cons (gx#datum->syntax '#f - 'cast) - '()) - (cons 'arguments: + 'begin-annotation) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 't::t) - '()) - '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax '#f 'try-cast) - (cons _%L59877%_ - (cons (gx#datum->syntax '#f 'obj) '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))))) - _%g6055660567%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6055460753%_ - (cons (gx#datum->syntax - '#f - 'def) - (cons (cons _%L59905%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 'obj) '())) - (cons (cons (gx#datum->syntax '#f 'begin-annotation) - (cons (cons (gx#datum->syntax - '#f - '@type.signature) - (cons 'return: - (cons _%L59821%_ - (cons 'effect: -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'cast) '()) - (cons 'arguments: - (cons (cons (gx#datum->syntax '#f 't::t) - '()) - '()))))))) + '@type.signature) + (cons 'return: + (cons (gx#datum->syntax '#f 't::t) + (cons 'effect: + (cons (cons (gx#datum->syntax + '#f + 'cast) + '()) + (cons 'arguments: + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 't::t) + '()) + '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax '#f 'try-cast) + (cons _%L59702%_ + (cons (gx#datum->syntax '#f 'obj) '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))))) + _%g6038160392%_)))) + (_%g6037960578%_ + (cons (gx#datum->syntax '#f 'def) + (cons (cons _%L59730%_ + (cons (gx#datum->syntax '#f 'obj) '())) + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax + '#f + '@type.signature) + (cons 'return: + (cons _%L59646%_ + (cons 'effect: +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons (gx#datum->syntax '#f 'cast) '()) + (cons 'arguments: (cons (cons (gx#datum->syntax '#f - 'cast) - (cons _%L59877%_ - (cons (gx#datum->syntax + 't::t) + '()) + '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'cast) + (cons _%L59702%_ + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'obj) - '()))) + '#f + 'obj) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))))))) + '()))) + '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6052860539%_)))) - (_%g6052660757%_ - (cons (gx#datum->syntax '#f 'def) - (cons _%L59877%_ - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax + _%g6035360364%_)))) + (_%g6035160582%_ + (cons (gx#datum->syntax '#f 'def) + (cons _%L59702%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@interface) - (cons _%L59821%_ - (cons (foldr (lambda (_%g6076260765%_ - _%g6076360768%_) - (cons _%g6076260765%_ - _%g6076360768%_)) - '() - _%L60198%_) - '()))) - (cons (cons (gx#datum->syntax - '#f - 'make-interface-descriptor) - (cons _%L59793%_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons (foldr (lambda (_%g6076060771%_ + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax '#f '@interface) + (cons _%L59646%_ + (cons (foldr (lambda (_%g6058760590%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6076160774%_) - (cons _%g6076060771%_ _%g6076160774%_)) - '() - _%L60198%_) - '())) + _%g6058860593%_) + (cons _%g6058760590%_ _%g6058860593%_)) + '() + _%L60023%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - '()))) - '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6050060511%_)))) - (_%g6049860777%_ - (cons (gx#datum->syntax '#f 'def) - (cons _%L59793%_ - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax - '#f - '@mop.class) - (cons _%L59849%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'interface-instance::t) - '()) - (cons (foldr (lambda (_%g6078260785%_ - _%g6078360788%_) - (cons _%g6078260785%_ - _%g6078360788%_)) - '() - _%L60198%_) - (cons '#f - (cons '#t - (cons '#t (cons '#f '())))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'make-class-type) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L59849%_ '())) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L59766%_ '())) - (cons (cons (gx#datum->syntax '#f '@list) - (cons (gx#datum->syntax - '#f - 'interface-instance::t) - '())) + (cons (cons (gx#datum->syntax + '#f + 'make-interface-descriptor) + (cons _%L59618%_ + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons (foldr (lambda (_%g6058560596%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6058660599%_) + (cons _%g6058560596%_ _%g6058660599%_)) + '() + _%L60023%_) + '())) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g6032560336%_)))) + (_%g6032360602%_ + (cons (gx#datum->syntax '#f 'def) + (cons _%L59618%_ (cons (cons (gx#datum->syntax '#f - 'quote) - (cons (foldr (lambda (_%g6078060791%_ + 'begin-annotation) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6078160794%_) - (cons _%g6078060791%_ _%g6078160794%_)) - '() - _%L60198%_) - '())) + '#f + '@mop.class) + (cons _%L59674%_ + (cons (cons (gx#datum->syntax + '#f + 'interface-instance::t) + '()) + (cons (foldr (lambda (_%g6060760610%_ + _%g6060860613%_) + (cons _%g6060760610%_ + _%g6060860613%_)) + '() + _%L60023%_) + (cons '#f + (cons '#t + (cons '#t + (cons '#f +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons (cons (cons 'final: + (cons (cons (gx#datum->syntax '#f 'make-class-type) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L59674%_ '())) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L59591%_ '())) + (cons (cons (gx#datum->syntax + '#f + '@list) + (cons (gx#datum->syntax + '#f + 'interface-instance::t) + '())) + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons (foldr (lambda (_%g6060560616%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#t) - (cons (cons 'struct: '#t) '())) - '())) - (cons '#f '()))))))) + _%g6060660619%_) + (cons _%g6060560616%_ _%g6060660619%_)) + '() + _%L60023%_) + '())) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons (cons (cons 'final: '#t) + (cons (cons 'struct: '#t) '())) + '())) + (cons '#f '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))))) + _%defmethod-impl6026460303%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))))) - _%defmethod-impl6043960478%_)))))) + (_%loop6025960283%_ + _%target6025660277%_ + '())) + (_%g6025360270%_ + _%g6025460274%_))))) + (_%g6025360270%_ _%g6025460274%_))))) + (_%g6025260622%_ + (map (_%make-method-defs59468%_ _%L59591%_) + (foldr (lambda (_%g6062560628%_ _%g6062660631%_) + (cons _%g6062560628%_ _%g6062660631%_)) + '() + _%L59952%_) + (let ((__tmp80616 + (length (foldr (lambda (_%g6063360636%_ + _%g6063460639%_) + (cons _%g6063360636%_ + _%g6063460639%_)) + '() + _%L60023%_)))) + (declare (not safe)) + (##iota __tmp80616 '2)))))) + _%unchecked-method-impl-name6019360232%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6043460458%_ - _%target6043160452%_ + (_%loop6018860212%_ + _%target6018560206%_ + '())) + (_%g6018260199%_ _%g6018360203%_))))) + (_%g6018260199%_ _%g6018360203%_))))) + (_%g6018160642%_ + (map (lambda (_%method-name60646%_) + (gx#stx-identifier + _%L59591%_ + '"&" + _%L59591%_ + '"-" + _%method-name60646%_)) + (foldr (lambda (_%g6064860651%_ _%g6064960654%_) + (cons _%g6064860651%_ _%g6064960654%_)) + '() + _%L60023%_))))) + _%method-impl-name6012260161%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6011760141%_ + _%target6011460135%_ '())) - (_%g6042860445%_ _%g6042960449%_))))) - (_%g6042860445%_ _%g6042960449%_))))) - (_%g6042760797%_ - (map (_%make-method-defs59643%_ _%L59766%_) - (foldr (lambda (_%g6080060803%_ _%g6080160806%_) - (cons _%g6080060803%_ _%g6080160806%_)) + (_%g6011160128%_ _%g6011260132%_))))) + (_%g6011160128%_ _%g6011260132%_))))) + (_%g6011060657%_ + (map (lambda (_%method-name60661%_) + (gx#stx-identifier + _%L59591%_ + _%L59591%_ + '"-" + _%method-name60661%_)) + (foldr (lambda (_%g6066360666%_ _%g6066460669%_) + (cons _%g6066360666%_ _%g6066460669%_)) '() - _%L60127%_) - (let ((__tmp80875 - (length (foldr (lambda (_%g6080860811%_ - _%g6080960814%_) - (cons _%g6080860811%_ - _%g6080960814%_)) - '() - _%L60198%_)))) - (declare (not safe)) - (##iota __tmp80875 '2))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%unchecked-method-impl-name6036860407%_)))))) - (_%loop6036360387%_ _%target6036060381%_ '())) - (_%g6035760374%_ _%g6035860378%_))))) - (_%g6035760374%_ _%g6035860378%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6035660817%_ - (map (lambda (_%method-name60821%_) - (gx#stx-identifier - _%L59766%_ - '"&" - _%L59766%_ - '"-" - _%method-name60821%_)) - (foldr (lambda (_%g6082360826%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6082460829%_) - (cons _%g6082360826%_ _%g6082460829%_)) - '() - _%L60198%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%method-impl-name6029760336%_)))))) - (_%loop6029260316%_ _%target6028960310%_ '())) - (_%g6028660303%_ _%g6028760307%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6028660303%_ - _%g6028760307%_))))) - (_%g6028560832%_ - (map (lambda (_%method-name60836%_) - (gx#stx-identifier - _%L59766%_ - _%L59766%_ - '"-" - _%method-name60836%_)) - (foldr (lambda (_%g6083860841%_ - _%g6083960844%_) - (cons _%g6083860841%_ - _%g6083960844%_)) - '() - _%L60198%_)))))) - _%method-signature6022660265%_)))))) - (_%loop6022160245%_ _%target6021860239%_ '())) - (_%g6021560232%_ _%g6021660236%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6021560232%_ - _%g6021660236%_))))) - (_%g6021460847%_ - (map gx#stx-cdr - (foldr (lambda (_%g6085060853%_ - _%g6085160856%_) - (cons _%g6085060853%_ - _%g6085160856%_)) - '() - _%L60127%_)))))) - _%method-name6015560194%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6015060174%_ - _%target6014760168%_ - '())) - (_%g6014460161%_ - _%g6014560165%_))))) - (_%g6014460161%_ _%g6014560165%_))))) - (_%g6014360859%_ - (map gx#stx-car - (foldr (lambda (_%g6086260865%_ - _%g6086360868%_) - (cons _%g6086260865%_ - _%g6086360868%_)) - '() - _%L60127%_)))))) - _%method6008460123%_)))))) + _%L60023%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6007960103%_ - _%target6007660097%_ - '())) - (_%g6007360090%_ _%g6007460094%_))))) - (_%g6007360090%_ _%g6007460094%_))))) - (_%g6007260871%_ - (_%fold-methods59639%_ - (foldr (lambda (_%g6087460877%_ _%g6087560880%_) - (cons _%g6087460877%_ _%g6087560880%_)) - '() - _%L60056%_) - (foldr (lambda (_%g6088260885%_ _%g6088360888%_) - (cons _%g6088260885%_ _%g6088360888%_)) - '() - _%L59726%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin6001360052%_)))))) - (_%loop6000860032%_ - _%target6000560026%_ - '())) - (_%g6000260019%_ _%g6000360023%_))))) - (_%g6000260019%_ _%g6000360023%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6000160891%_ - (if (gx#identifier? - _%L59728%_) - '() - (gx#stx-cdr - _%L59728%_)))))) - _%g5997559986%_)))) - (_%g5997360895%_ - (gx#stx-identifier - _%L59766%_ - '"is-" - _%L59766%_ - '"?"))))) - _%g5994759958%_)))) - (_%g5994560899%_ - (gx#stx-identifier _%L59766%_ _%L59766%_ '"?"))))) - _%g5991959930%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5991760903%_ - (gx#stx-identifier - _%L59766%_ - '"try-" - _%L59766%_))))) - _%g5989159902%_)))) - (_%g5988960907%_ - (gx#stx-identifier - _%L59766%_ - '"make-" - _%L59766%_))))) - _%g5986359874%_)))) - (_%g5986160911%_ - (gx#stx-identifier _%L59766%_ _%L59766%_ '"::interface"))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g5983559846%_)))) - (_%g5983360915%_ - (let () - (declare (not safe)) - (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L59766%_)))))) - _%g5980759818%_)))) - (_%g5980560919%_ - (gx#core-quote-syntax _%L59793%_))))) - _%g5977959790%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5977760923%_ - (gx#stx-identifier - _%L59766%_ - _%L59766%_ - '"::t"))))) - _%g5975259763%_)))) - (_%g5975060927%_ - (if (gx#identifier? _%L59728%_) - _%L59728%_ - (gx#stx-car _%L59728%_)))) - (_%g5964559669%_ _%g5964659673%_))) - _%spec5966359722%_ - _%hd5965359690%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop5965859702%_ - _%target5965559696%_ + _%method-signature6005160090%_)))))) + (_%loop6004660070%_ _%target6004360064%_ '())) + (_%g6004060057%_ _%g6004160061%_))))) + (_%g6004060057%_ _%g6004160061%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6003960672%_ + (map gx#stx-cdr + (foldr (lambda (_%g6067560678%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6067660681%_) + (cons _%g6067560678%_ _%g6067660681%_)) + '() + _%L59952%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%method-name5998060019%_)))))) + (_%loop5997559999%_ _%target5997259993%_ '())) + (_%g5996959986%_ _%g5997059990%_))))) + (_%g5996959986%_ _%g5997059990%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g5996860684%_ + (map gx#stx-car + (foldr (lambda (_%g6068760690%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6068860693%_) + (cons _%g6068760690%_ _%g6068860693%_)) + '() + _%L59952%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%method5990959948%_)))))) + (_%loop5990459928%_ _%target5990159922%_ '())) + (_%g5989859915%_ _%g5989959919%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g5989859915%_ + _%g5989959919%_))))) + (_%g5989760696%_ + (_%fold-methods59464%_ + (foldr (lambda (_%g6069960702%_ + _%g6070060705%_) + (cons _%g6069960702%_ + _%g6070060705%_)) + '() + _%L59881%_) + (foldr (lambda (_%g6070760710%_ + _%g6070860713%_) + (cons _%g6070760710%_ + _%g6070860713%_)) + '() + _%L59551%_))))) + _%mixin5983859877%_)))))) + (_%loop5983359857%_ _%target5983059851%_ '())) + (_%g5982759844%_ _%g5982859848%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g5982759844%_ + _%g5982859848%_))))) + (_%g5982660716%_ + (if (gx#identifier? _%L59553%_) + '() + (gx#stx-cdr _%L59553%_))))) + _%g5980059811%_)))) + (_%g5979860720%_ + (gx#stx-identifier _%L59591%_ '"is-" _%L59591%_ '"?")))) + _%g5977259783%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g5977060724%_ + (gx#stx-identifier + _%L59591%_ + _%L59591%_ + '"?")))) + _%g5974459755%_)))) + (_%g5974260728%_ + (gx#stx-identifier + _%L59591%_ + '"try-" + _%L59591%_)))) + _%g5971659727%_)))) + (_%g5971460732%_ + (gx#stx-identifier _%L59591%_ '"make-" _%L59591%_)))) + _%g5968859699%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g5968660736%_ + (gx#stx-identifier + _%L59591%_ + _%L59591%_ + '"::interface")))) + _%g5966059671%_)))) + (_%g5965860740%_ + (let () + (declare (not safe)) + (|gerbil/core/mop~MOP-1[1]#make-class-type-id| + _%L59591%_))))) + _%g5963259643%_)))) + (_%g5963060744%_ (gx#core-quote-syntax _%L59618%_)))) + _%g5960459615%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g5960260748%_ + (gx#stx-identifier + _%L59591%_ + _%L59591%_ + '"::t")))) + _%g5957759588%_)))) + (_%g5957560752%_ + (if (gx#identifier? _%L59553%_) + _%L59553%_ + (gx#stx-car _%L59553%_)))) + (_%g5947059494%_ _%g5947159498%_))) + _%spec5948859547%_ + _%hd5947859515%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop5948359527%_ + _%target5948059521%_ '())) - (_%g5964559669%_ - _%g5964659673%_))))) - (_%g5964559669%_ _%g5964659673%_)))) - (_%g5964559669%_ _%g5964659673%_)))) - (_%g5964559669%_ _%g5964659673%_))))) - (_%g5964460931%_ _%stx59636%_))))) + (_%g5947059494%_ + _%g5947159498%_))))) + (_%g5947059494%_ _%g5947159498%_)))) + (_%g5947059494%_ _%g5947159498%_)))) + (_%g5947059494%_ _%g5947159498%_))))) + (_%g5946960756%_ _%stx59461%_))))) (define |gerbil/core/contract~Interface[:0:]#definterface-method| - (lambda (_%stx61441%_) - (letrec ((_%emit-raw-method?61444%_ - (lambda (_%return62427%_) - (let ((_%return-type62430%_ - (gx#syntax-local-value _%return62427%_))) + (lambda (_%stx61266%_) + (letrec ((_%emit-raw-method?61269%_ + (lambda (_%return62252%_) + (let ((_%return-type62255%_ + (gx#syntax-local-value _%return62252%_))) (if (and (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%return-type62430%_)) - (let ((__tmp80876 - (let ((__obj80566 _%return-type62430%_)) + _%return-type62255%_)) + (let ((__tmp80617 + (let ((__obj80391 _%return-type62255%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80566 + __obj80391 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80566 + __obj80391 '1 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80566 + __obj80391 'id))))) (declare (not safe)) - (##memq __tmp80876 '(t void)))) + (##memq __tmp80617 '(t void)))) '#f '#t)))) - (_%make-checked-method-def61446%_ - (lambda (_%Interface62188%_ - _%method-name62190%_ - _%raw-method-name62191%_ - _%unchecked-method-name62192%_ - _%signature62193%_ - _%return62194%_) - (let* ((_%g6219662244%_ - (lambda (_%g6219762240%_) + (_%make-checked-method-def61271%_ + (lambda (_%Interface62013%_ + _%method-name62015%_ + _%raw-method-name62016%_ + _%unchecked-method-name62017%_ + _%signature62018%_ + _%return62019%_) + (let* ((_%g6202162069%_ + (lambda (_%g6202262065%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6219762240%_))) - (_%g6219562423%_ - (lambda (_%g6219762248%_) - (if (gx#stx-pair? _%g6219762248%_) - (let ((_%e6220862251%_ - (gx#syntax-e _%g6219762248%_))) - (let ((_%hd6220762255%_ + _%g6202262065%_))) + (_%g6202062248%_ + (lambda (_%g6202262073%_) + (if (gx#stx-pair? _%g6202262073%_) + (let ((_%e6203362076%_ + (gx#syntax-e _%g6202262073%_))) + (let ((_%hd6203262080%_ (let () (declare (not safe)) - (##car _%e6220862251%_))) - (_%tl6220662258%_ + (##car _%e6203362076%_))) + (_%tl6203162083%_ (let () (declare (not safe)) - (##cdr _%e6220862251%_)))) - (if (gx#stx-pair? _%tl6220662258%_) - (let ((_%e6221162261%_ + (##cdr _%e6203362076%_)))) + (if (gx#stx-pair? _%tl6203162083%_) + (let ((_%e6203662086%_ (gx#syntax-e - _%tl6220662258%_))) - (let ((_%hd6221062265%_ + _%tl6203162083%_))) + (let ((_%hd6203562090%_ (let () (declare (not safe)) - (##car _%e6221162261%_))) - (_%tl6220962268%_ + (##car _%e6203662086%_))) + (_%tl6203462093%_ (let () (declare (not safe)) - (##cdr _%e6221162261%_)))) + (##cdr _%e6203662086%_)))) (if (gx#stx-pair? - _%tl6220962268%_) - (let ((_%e6221462271%_ + _%tl6203462093%_) + (let ((_%e6203962096%_ (gx#syntax-e - _%tl6220962268%_))) - (let ((_%hd6221362275%_ + _%tl6203462093%_))) + (let ((_%hd6203862100%_ (let () (declare (not safe)) - (##car _%e6221462271%_))) - (_%tl6221262278%_ + (##car _%e6203962096%_))) + (_%tl6203762103%_ (let () (declare (not safe)) - (##cdr _%e6221462271%_)))) + (##cdr _%e6203962096%_)))) (if (gx#stx-pair? - _%tl6221262278%_) - (let ((_%e6221762281%_ + _%tl6203762103%_) + (let ((_%e6204262106%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6221262278%_))) - (let ((_%hd6221662285%_ + (gx#syntax-e _%tl6203762103%_))) + (let ((_%hd6204162110%_ (let () (declare (not safe)) - (##car _%e6221762281%_))) - (_%tl6221562288%_ + (##car _%e6204262106%_))) + (_%tl6204062113%_ (let () (declare (not safe)) - (##cdr _%e6221762281%_)))) - (if (gx#stx-pair? _%tl6221562288%_) - (let ((_%e6222062291%_ - (gx#syntax-e _%tl6221562288%_))) - (let ((_%hd6221962295%_ + (##cdr _%e6204262106%_)))) + (if (gx#stx-pair? _%tl6204062113%_) + (let ((_%e6204562116%_ + (gx#syntax-e _%tl6204062113%_))) + (let ((_%hd6204462120%_ (let () (declare (not safe)) - (##car _%e6222062291%_))) - (_%tl6221862298%_ + (##car _%e6204562116%_))) + (_%tl6204362123%_ (let () (declare (not safe)) - (##cdr _%e6222062291%_)))) - (if (gx#stx-pair? _%tl6221862298%_) - (let ((_%e6222362301%_ - (gx#syntax-e _%tl6221862298%_))) - (let ((_%hd6222262305%_ + (##cdr _%e6204562116%_)))) + (if (gx#stx-pair? _%tl6204362123%_) + (let ((_%e6204862126%_ + (gx#syntax-e _%tl6204362123%_))) + (let ((_%hd6204762130%_ (let () (declare (not safe)) - (##car _%e6222362301%_))) - (_%tl6222162308%_ + (##car _%e6204862126%_))) + (_%tl6204662133%_ (let () (declare (not safe)) - (##cdr _%e6222362301%_)))) - (if (gx#stx-pair/null? _%hd6222262305%_) - (let ((_g80877_ + (##cdr _%e6204862126%_)))) + (if (gx#stx-pair/null? _%hd6204762130%_) + (let ((_g80618_ (gx#syntax-split-splice - _%hd6222262305%_ + _%hd6204762130%_ '0))) (begin - (let ((_g80878_ + (let ((_g80619_ (let () (declare (not safe)) - (if (##values? _g80877_) + (if (##values? _g80618_) (##vector-length - _g80877_) + _g80618_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80878_ 2))) + (##fx= _g80619_ 2))) (error "Context expects 2 values" - _g80878_))) - (let ((_%target6222462311%_ + _g80619_))) + (let ((_%target6204962136%_ (let () (declare (not safe)) (##vector-ref - _g80877_ + _g80618_ 0))) - (_%tl6222662314%_ + (_%tl6205162139%_ (let () (declare (not safe)) (##vector-ref - _g80877_ + _g80618_ 1)))) (if (gx#stx-null? - _%tl6222662314%_) - (letrec ((_%loop6222762317%_ - (lambda (_%hd6222562321%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out6223162324%_) - (if (gx#stx-pair? _%hd6222562321%_) - (let ((_%e6222862327%_ - (gx#syntax-e _%hd6222562321%_))) - (let ((_%lp-hd6222962331%_ + _%tl6205162139%_) + (letrec ((_%loop6205262142%_ + (lambda (_%hd6205062146%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%out6205662149%_) + (if (gx#stx-pair? _%hd6205062146%_) + (let ((_%e6205362152%_ + (gx#syntax-e _%hd6205062146%_))) + (let ((_%lp-hd6205462156%_ (let () (declare (not safe)) - (##car _%e6222862327%_))) - (_%lp-tl6223062334%_ + (##car _%e6205362152%_))) + (_%lp-tl6205562159%_ (let () (declare (not safe)) - (##cdr _%e6222862327%_)))) - (_%loop6222762317%_ - _%lp-tl6223062334%_ - (cons _%lp-hd6222962331%_ - _%out6223162324%_)))) - (let ((_%out6223262337%_ - (reverse _%out6223162324%_))) - (if (gx#stx-pair? _%tl6222162308%_) - (let ((_%e6223562341%_ - (gx#syntax-e _%tl6222162308%_))) - (let ((_%hd6223462345%_ + (##cdr _%e6205362152%_)))) + (_%loop6205262142%_ + _%lp-tl6205562159%_ + (cons _%lp-hd6205462156%_ + _%out6205662149%_)))) + (let ((_%out6205762162%_ + (reverse _%out6205662149%_))) + (if (gx#stx-pair? _%tl6204662133%_) + (let ((_%e6206062166%_ + (gx#syntax-e _%tl6204662133%_))) + (let ((_%hd6205962170%_ (let () (declare (not safe)) - (##car _%e6223562341%_))) - (_%tl6223362348%_ + (##car _%e6206062166%_))) + (_%tl6205862173%_ (let () (declare (not safe)) - (##cdr _%e6223562341%_)))) - (if (gx#stx-pair? _%tl6223362348%_) - (let ((_%e6223862351%_ + (##cdr _%e6206062166%_)))) + (if (gx#stx-pair? _%tl6205862173%_) + (let ((_%e6206362176%_ (gx#syntax-e - _%tl6223362348%_))) - (let ((_%hd6223762355%_ + _%tl6205862173%_))) + (let ((_%hd6206262180%_ (let () (declare (not safe)) - (##car _%e6223862351%_))) - (_%tl6223662358%_ + (##car _%e6206362176%_))) + (_%tl6206162183%_ (let () (declare (not safe)) - (##cdr _%e6223862351%_)))) + (##cdr _%e6206362176%_)))) (if (gx#stx-null? - _%tl6223662358%_) - ((lambda (_%L62361%_ - _%L62363%_ - _%L62364%_ - _%L62365%_ - _%L62366%_ - _%L62367%_ - _%L62368%_ - _%L62369%_) - (let () - (if (gx#stx-list? - _%L62363%_) - (gx#stx-wrap-source - (cons (gx#datum->syntax + _%tl6206162183%_) + ((lambda (_%L62186%_ + _%L62188%_ + _%L62189%_ + _%L62190%_ + _%L62191%_ + _%L62192%_ + _%L62193%_ + _%L62194%_) + (if (gx#stx-list? + _%L62188%_) + (gx#stx-wrap-source + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'def) - (cons (cons _%L62368%_ (cons _%L62366%_ _%L62365%_)) - (cons (cons (gx#datum->syntax - '#f - 'with-interface-checked-method) - (cons _%L62366%_ - (cons (cons _%L62369%_ - (cons _%L62363%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62361%_ (cons _%L62367%_ '())))) - (cons (cons (gx#datum->syntax '#f ':-) - (cons (cons _%L62367%_ - (cons _%L62366%_ - (foldr (lambda (_%g6240662409%_ - _%g6240762412%_) - (cons _%g6240662409%_ - _%g6240762412%_)) - '() - _%L62364%_))) - (cons _%L62361%_ '()))) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (gx#stx-source _%stx61441%_)) - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L62368%_ (cons _%L62366%_ _%L62365%_)) - (cons (cons (gx#datum->syntax - '#f - 'with-interface-checked-method) - (cons _%L62366%_ - (cons (cons _%L62369%_ - (cons _%L62363%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62361%_ (cons _%L62367%_ '())))) - (cons (cons (gx#datum->syntax '#f ':-) - (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L62367%_ - (cons _%L62366%_ - (foldr (lambda (_%g6241462417%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6241562420%_) - (cons _%g6241462417%_ _%g6241562420%_)) - '() - _%L62364%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L62361%_ '()))) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (gx#stx-source _%stx61441%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd6223762355%_ - _%hd6223462345%_ - _%out6223262337%_ - _%hd6221962295%_ - _%hd6221662285%_ - _%hd6221362275%_ - _%hd6221062265%_ - _%hd6220762255%_) - (_%g6219662244%_ - _%g6219762248%_)))) - (_%g6219662244%_ _%g6219762248%_)))) - (_%g6219662244%_ _%g6219762248%_))))))) - (_%loop6222762317%_ _%target6222462311%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6219662244%_ - _%g6219762248%_))))) - (_%g6219662244%_ _%g6219762248%_)))) - (_%g6219662244%_ _%g6219762248%_)))) - (_%g6219662244%_ _%g6219762248%_)))) - (_%g6219662244%_ _%g6219762248%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6219662244%_ - _%g6219762248%_)))) - (_%g6219662244%_ _%g6219762248%_)))) - (_%g6219662244%_ _%g6219762248%_))))) - (_%g6219562423%_ - (list _%Interface62188%_ - _%method-name62190%_ - (if (_%emit-raw-method?61444%_ _%return62194%_) - _%raw-method-name62191%_ - _%unchecked-method-name62192%_) + '#f + 'def) + (cons (cons _%L62193%_ (cons _%L62191%_ _%L62190%_)) + (cons (cons (gx#datum->syntax + '#f + 'with-interface-checked-method) + (cons _%L62191%_ + (cons (cons _%L62194%_ + (cons _%L62188%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L62186%_ (cons _%L62192%_ '())))) + (cons (cons (gx#datum->syntax '#f ':-) + (cons (cons _%L62192%_ + (cons _%L62191%_ + (foldr (lambda (_%g6223162234%_ + _%g6223262237%_) + (cons _%g6223162234%_ + _%g6223262237%_)) + '() + _%L62189%_))) + (cons _%L62186%_ '()))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (gx#stx-source _%stx61266%_)) + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'def) + (cons (cons _%L62193%_ (cons _%L62191%_ _%L62190%_)) + (cons (cons (gx#datum->syntax + '#f + 'with-interface-checked-method) + (cons _%L62191%_ + (cons (cons _%L62194%_ + (cons _%L62188%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L62186%_ (cons _%L62192%_ '())))) + (cons (cons (gx#datum->syntax '#f ':-) + (cons (cons (gx#datum->syntax '#f '##apply) + (cons _%L62192%_ + (cons _%L62191%_ + (foldr (lambda (_%g6223962242%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6224062245%_) + (cons _%g6223962242%_ _%g6224062245%_)) + '() + _%L62189%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%L62186%_ '()))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (gx#stx-source _%stx61266%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd6206262180%_ + _%hd6205962170%_ + _%out6205762162%_ + _%hd6204462120%_ + _%hd6204162110%_ + _%hd6203862100%_ + _%hd6203562090%_ + _%hd6203262080%_) + (_%g6202162069%_ + _%g6202262073%_)))) + (_%g6202162069%_ _%g6202262073%_)))) + (_%g6202162069%_ _%g6202262073%_))))))) + (_%loop6205262142%_ _%target6204962136%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6202162069%_ + _%g6202262073%_))))) + (_%g6202162069%_ _%g6202262073%_)))) + (_%g6202162069%_ _%g6202262073%_)))) + (_%g6202162069%_ _%g6202262073%_)))) + (_%g6202162069%_ _%g6202262073%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6202162069%_ + _%g6202262073%_)))) + (_%g6202162069%_ _%g6202262073%_)))) + (_%g6202162069%_ _%g6202262073%_))))) + (_%g6202062248%_ + (list _%Interface62013%_ + _%method-name62015%_ + (if (_%emit-raw-method?61269%_ _%return62019%_) + _%raw-method-name62016%_ + _%unchecked-method-name62017%_) (gx#syntax-local-introduce 'self) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature62193%_)) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature62193%_)) - _%signature62193%_ - _%return62194%_))))) - (_%make-raw-method-def61447%_ - (lambda (_%Interface61950%_ - _%raw-method-name61952%_ - _%unchecked-method-name61953%_ - _%signature61954%_ - _%return61955%_) - (if (_%emit-raw-method?61444%_ _%return61955%_) - (let* ((_%g6195762005%_ - (lambda (_%g6195862001%_) + (|gerbil/core/contract~Interface[1]#signature-arguments-in| + _%signature62018%_) + (|gerbil/core/contract~Interface[1]#signature-arguments-out| + _%signature62018%_) + _%signature62018%_ + _%return62019%_))))) + (_%make-raw-method-def61272%_ + (lambda (_%Interface61775%_ + _%raw-method-name61777%_ + _%unchecked-method-name61778%_ + _%signature61779%_ + _%return61780%_) + (if (_%emit-raw-method?61269%_ _%return61780%_) + (let* ((_%g6178261830%_ + (lambda (_%g6178361826%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6195862001%_))) - (_%g6195662184%_ - (lambda (_%g6195862009%_) - (if (gx#stx-pair? _%g6195862009%_) - (let ((_%e6196962012%_ - (gx#syntax-e _%g6195862009%_))) - (let ((_%hd6196862016%_ + _%g6178361826%_))) + (_%g6178162009%_ + (lambda (_%g6178361834%_) + (if (gx#stx-pair? _%g6178361834%_) + (let ((_%e6179461837%_ + (gx#syntax-e _%g6178361834%_))) + (let ((_%hd6179361841%_ (let () (declare (not safe)) - (##car _%e6196962012%_))) - (_%tl6196762019%_ + (##car _%e6179461837%_))) + (_%tl6179261844%_ (let () (declare (not safe)) - (##cdr _%e6196962012%_)))) - (if (gx#stx-pair? _%tl6196762019%_) - (let ((_%e6197262022%_ + (##cdr _%e6179461837%_)))) + (if (gx#stx-pair? _%tl6179261844%_) + (let ((_%e6179761847%_ (gx#syntax-e - _%tl6196762019%_))) - (let ((_%hd6197162026%_ + _%tl6179261844%_))) + (let ((_%hd6179661851%_ (let () (declare (not safe)) - (##car _%e6197262022%_))) - (_%tl6197062029%_ + (##car _%e6179761847%_))) + (_%tl6179561854%_ (let () (declare (not safe)) - (##cdr _%e6197262022%_)))) + (##cdr _%e6179761847%_)))) (if (gx#stx-pair? - _%tl6197062029%_) - (let ((_%e6197562032%_ + _%tl6179561854%_) + (let ((_%e6180061857%_ (gx#syntax-e - _%tl6197062029%_))) - (let ((_%hd6197462036%_ + _%tl6179561854%_))) + (let ((_%hd6179961861%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6197562032%_))) - (_%tl6197362039%_ - (let () (declare (not safe)) (##cdr _%e6197562032%_)))) - (if (gx#stx-pair? _%tl6197362039%_) - (let ((_%e6197862042%_ (gx#syntax-e _%tl6197362039%_))) - (let ((_%hd6197762046%_ + (##car _%e6180061857%_))) + (_%tl6179861864%_ + (let () (declare (not safe)) (##cdr _%e6180061857%_)))) + (if (gx#stx-pair? _%tl6179861864%_) + (let ((_%e6180361867%_ (gx#syntax-e _%tl6179861864%_))) + (let ((_%hd6180261871%_ (let () (declare (not safe)) - (##car _%e6197862042%_))) - (_%tl6197662049%_ + (##car _%e6180361867%_))) + (_%tl6180161874%_ (let () (declare (not safe)) - (##cdr _%e6197862042%_)))) - (if (gx#stx-pair? _%tl6197662049%_) - (let ((_%e6198162052%_ - (gx#syntax-e _%tl6197662049%_))) - (let ((_%hd6198062056%_ + (##cdr _%e6180361867%_)))) + (if (gx#stx-pair? _%tl6180161874%_) + (let ((_%e6180661877%_ + (gx#syntax-e _%tl6180161874%_))) + (let ((_%hd6180561881%_ (let () (declare (not safe)) - (##car _%e6198162052%_))) - (_%tl6197962059%_ + (##car _%e6180661877%_))) + (_%tl6180461884%_ (let () (declare (not safe)) - (##cdr _%e6198162052%_)))) - (if (gx#stx-pair? _%tl6197962059%_) - (let ((_%e6198462062%_ - (gx#syntax-e _%tl6197962059%_))) - (let ((_%hd6198362066%_ + (##cdr _%e6180661877%_)))) + (if (gx#stx-pair? _%tl6180461884%_) + (let ((_%e6180961887%_ + (gx#syntax-e _%tl6180461884%_))) + (let ((_%hd6180861891%_ (let () (declare (not safe)) - (##car _%e6198462062%_))) - (_%tl6198262069%_ + (##car _%e6180961887%_))) + (_%tl6180761894%_ (let () (declare (not safe)) - (##cdr _%e6198462062%_)))) + (##cdr _%e6180961887%_)))) (if (gx#stx-pair/null? - _%hd6198362066%_) - (let ((_g80879_ + _%hd6180861891%_) + (let ((_g80727_ (gx#syntax-split-splice - _%hd6198362066%_ + _%hd6180861891%_ '0))) (begin - (let ((_g80880_ + (let ((_g80728_ (let () (declare (not safe)) (if (##values? - _g80879_) + _g80727_) (##vector-length - _g80879_) + _g80727_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g80880_ 2))) - (error "Context expects 2 values" _g80880_))) + (##fx= _g80728_ 2))) + (error "Context expects 2 values" _g80728_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6198562072%_ + (let ((_%target6181061897%_ (let () (declare (not safe)) (##vector-ref - _g80879_ + _g80727_ 0))) - (_%tl6198762075%_ + (_%tl6181261900%_ (let () (declare (not safe)) (##vector-ref - _g80879_ + _g80727_ 1)))) (if (gx#stx-null? - _%tl6198762075%_) - (letrec ((_%loop6198862078%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6198662082%_ _%out6199262085%_) - (if (gx#stx-pair? _%hd6198662082%_) - (let ((_%e6198962088%_ - (gx#syntax-e _%hd6198662082%_))) - (let ((_%lp-hd6199062092%_ + _%tl6181261900%_) + (letrec ((_%loop6181361903%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd6181161907%_ _%out6181761910%_) + (if (gx#stx-pair? _%hd6181161907%_) + (let ((_%e6181461913%_ + (gx#syntax-e _%hd6181161907%_))) + (let ((_%lp-hd6181561917%_ (let () (declare (not safe)) - (##car _%e6198962088%_))) - (_%lp-tl6199162095%_ + (##car _%e6181461913%_))) + (_%lp-tl6181661920%_ (let () (declare (not safe)) - (##cdr _%e6198962088%_)))) - (_%loop6198862078%_ - _%lp-tl6199162095%_ - (cons _%lp-hd6199062092%_ - _%out6199262085%_)))) - (let ((_%out6199362098%_ - (reverse _%out6199262085%_))) - (if (gx#stx-pair? _%tl6198262069%_) - (let ((_%e6199662102%_ - (gx#syntax-e _%tl6198262069%_))) - (let ((_%hd6199562106%_ + (##cdr _%e6181461913%_)))) + (_%loop6181361903%_ + _%lp-tl6181661920%_ + (cons _%lp-hd6181561917%_ + _%out6181761910%_)))) + (let ((_%out6181861923%_ + (reverse _%out6181761910%_))) + (if (gx#stx-pair? _%tl6180761894%_) + (let ((_%e6182161927%_ + (gx#syntax-e _%tl6180761894%_))) + (let ((_%hd6182061931%_ (let () (declare (not safe)) - (##car _%e6199662102%_))) - (_%tl6199462109%_ + (##car _%e6182161927%_))) + (_%tl6181961934%_ (let () (declare (not safe)) - (##cdr _%e6199662102%_)))) - (if (gx#stx-pair? _%tl6199462109%_) - (let ((_%e6199962112%_ + (##cdr _%e6182161927%_)))) + (if (gx#stx-pair? _%tl6181961934%_) + (let ((_%e6182461937%_ (gx#syntax-e - _%tl6199462109%_))) - (let ((_%hd6199862116%_ + _%tl6181961934%_))) + (let ((_%hd6182361941%_ (let () (declare (not safe)) - (##car _%e6199962112%_))) - (_%tl6199762119%_ + (##car _%e6182461937%_))) + (_%tl6182261944%_ (let () (declare (not safe)) - (##cdr _%e6199962112%_)))) + (##cdr _%e6182461937%_)))) (if (gx#stx-null? - _%tl6199762119%_) - ((lambda (_%L62122%_ - _%L62124%_ - _%L62125%_ - _%L62126%_ - _%L62127%_ - _%L62128%_ - _%L62129%_ - _%L62130%_) - (let () - (if (gx#stx-list? - _%L62124%_) - (gx#stx-wrap-source - (cons (gx#datum->syntax + _%tl6182261944%_) + ((lambda (_%L61947%_ + _%L61949%_ + _%L61950%_ + _%L61951%_ + _%L61952%_ + _%L61953%_ + _%L61954%_ + _%L61955%_) + (if (gx#stx-list? + _%L61949%_) + (gx#stx-wrap-source + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'def) - (cons (cons _%L62129%_ - (cons _%L62127%_ _%L62126%_)) - (cons (cons (gx#datum->syntax - '#f - 'with-interface-unchecked-method) - (cons _%L62127%_ - (cons (cons _%L62130%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62124%_ (cons _%L62122%_ '()))) - (cons (cons (gx#datum->syntax '#f ':) - (cons (cons _%L62128%_ - (cons _%L62127%_ - (foldr (lambda (_%g6216762170%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6216862173%_) - (cons _%g6216762170%_ _%g6216862173%_)) - '() - _%L62125%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L62122%_ '()))) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (gx#stx-source _%stx61441%_)) - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L62129%_ - (cons _%L62127%_ _%L62126%_)) - (cons (cons (gx#datum->syntax - '#f - 'with-interface-unchecked-method) - (cons _%L62127%_ - (cons (cons _%L62130%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62124%_ (cons _%L62122%_ '()))) - (cons (cons (gx#datum->syntax '#f ':) - (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L62128%_ - (cons _%L62127%_ - (foldr (lambda (_%g6217562178%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6217662181%_) - (cons _%g6217562178%_ _%g6217662181%_)) - '() - _%L62125%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L62122%_ '()))) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (gx#stx-source _%stx61441%_))))) - _%hd6199862116%_ - _%hd6199562106%_ - _%out6199362098%_ - _%hd6198062056%_ - _%hd6197762046%_ - _%hd6197462036%_ - _%hd6197162026%_ - _%hd6196862016%_) - (_%g6195762005%_ _%g6195862009%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6195762005%_ - _%g6195862009%_)))) - (_%g6195762005%_ _%g6195862009%_))))))) - (_%loop6198862078%_ _%target6198562072%_ '())) - (_%g6195762005%_ _%g6195862009%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6195762005%_ - _%g6195862009%_)))) - (_%g6195762005%_ _%g6195862009%_)))) - (_%g6195762005%_ _%g6195862009%_)))) - (_%g6195762005%_ _%g6195862009%_)))) - (_%g6195762005%_ _%g6195862009%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6195762005%_ - _%g6195862009%_)))) - (_%g6195762005%_ _%g6195862009%_))))) - (_%g6195662184%_ - (list _%Interface61950%_ - _%raw-method-name61952%_ - _%unchecked-method-name61953%_ + '#f + 'def) + (cons (cons _%L61954%_ + (cons _%L61952%_ _%L61951%_)) + (cons (cons (gx#datum->syntax + '#f + 'with-interface-unchecked-method) + (cons _%L61952%_ + (cons (cons _%L61955%_ + (cons _%L61949%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L61947%_ '()))) + (cons (cons (gx#datum->syntax '#f ':) + (cons (cons _%L61953%_ + (cons _%L61952%_ + (foldr (lambda (_%g6199261995%_ + _%g6199361998%_) + (cons _%g6199261995%_ + _%g6199361998%_)) + '() + _%L61950%_))) + (cons _%L61947%_ '()))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (gx#stx-source _%stx61266%_)) + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'def) + (cons (cons _%L61954%_ + (cons _%L61952%_ _%L61951%_)) + (cons (cons (gx#datum->syntax + '#f + 'with-interface-unchecked-method) + (cons _%L61952%_ + (cons (cons _%L61955%_ + (cons _%L61949%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L61947%_ '()))) + (cons (cons (gx#datum->syntax '#f ':) + (cons (cons (gx#datum->syntax '#f '##apply) + (cons _%L61953%_ + (cons _%L61952%_ + (foldr (lambda (_%g6200062003%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6200162006%_) + (cons _%g6200062003%_ _%g6200162006%_)) + '() + _%L61950%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%L61947%_ '()))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (gx#stx-source _%stx61266%_)))) + _%hd6182361941%_ + _%hd6182061931%_ + _%out6181861923%_ + _%hd6180561881%_ + _%hd6180261871%_ + _%hd6179961861%_ + _%hd6179661851%_ + _%hd6179361841%_) + (_%g6178261830%_ _%g6178361834%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6178261830%_ + _%g6178361834%_)))) + (_%g6178261830%_ _%g6178361834%_))))))) + (_%loop6181361903%_ _%target6181061897%_ '())) + (_%g6178261830%_ _%g6178361834%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6178261830%_ + _%g6178361834%_)))) + (_%g6178261830%_ _%g6178361834%_)))) + (_%g6178261830%_ _%g6178361834%_)))) + (_%g6178261830%_ _%g6178361834%_)))) + (_%g6178261830%_ _%g6178361834%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6178261830%_ + _%g6178361834%_)))) + (_%g6178261830%_ _%g6178361834%_))))) + (_%g6178162009%_ + (list _%Interface61775%_ + _%raw-method-name61777%_ + _%unchecked-method-name61778%_ (gx#syntax-local-introduce 'self) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature61954%_)) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature61954%_)) - _%signature61954%_ - _%return61955%_))) + (|gerbil/core/contract~Interface[1]#signature-arguments-in| + _%signature61779%_) + (|gerbil/core/contract~Interface[1]#signature-arguments-out| + _%signature61779%_) + _%signature61779%_ + _%return61780%_))) '(begin)))) - (_%make-unchecked-method-def61448%_ - (lambda (_%Interface61738%_ - _%unchecked-method-name61740%_ - _%signature61741%_ - _%return61742%_ - _%body61743%_) - (let* ((_%g6174561789%_ - (lambda (_%g6174661785%_) + (_%make-unchecked-method-def61273%_ + (lambda (_%Interface61563%_ + _%unchecked-method-name61565%_ + _%signature61566%_ + _%return61567%_ + _%body61568%_) + (let* ((_%g6157061614%_ + (lambda (_%g6157161610%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6174661785%_))) - (_%g6174461946%_ - (lambda (_%g6174661793%_) - (if (gx#stx-pair? _%g6174661793%_) - (let ((_%e6175661796%_ - (gx#syntax-e _%g6174661793%_))) - (let ((_%hd6175561800%_ + _%g6157161610%_))) + (_%g6156961771%_ + (lambda (_%g6157161618%_) + (if (gx#stx-pair? _%g6157161618%_) + (let ((_%e6158161621%_ + (gx#syntax-e _%g6157161618%_))) + (let ((_%hd6158061625%_ (let () (declare (not safe)) - (##car _%e6175661796%_))) - (_%tl6175461803%_ + (##car _%e6158161621%_))) + (_%tl6157961628%_ (let () (declare (not safe)) - (##cdr _%e6175661796%_)))) - (if (gx#stx-pair? _%tl6175461803%_) - (let ((_%e6175961806%_ + (##cdr _%e6158161621%_)))) + (if (gx#stx-pair? _%tl6157961628%_) + (let ((_%e6158461631%_ (gx#syntax-e - _%tl6175461803%_))) - (let ((_%hd6175861810%_ + _%tl6157961628%_))) + (let ((_%hd6158361635%_ (let () (declare (not safe)) - (##car _%e6175961806%_))) - (_%tl6175761813%_ + (##car _%e6158461631%_))) + (_%tl6158261638%_ (let () (declare (not safe)) - (##cdr _%e6175961806%_)))) + (##cdr _%e6158461631%_)))) (if (gx#stx-pair? - _%tl6175761813%_) - (let ((_%e6176261816%_ + _%tl6158261638%_) + (let ((_%e6158761641%_ (gx#syntax-e - _%tl6175761813%_))) - (let ((_%hd6176161820%_ + _%tl6158261638%_))) + (let ((_%hd6158661645%_ (let () (declare (not safe)) - (##car _%e6176261816%_))) - (_%tl6176061823%_ + (##car _%e6158761641%_))) + (_%tl6158561648%_ (let () (declare (not safe)) - (##cdr _%e6176261816%_)))) + (##cdr _%e6158761641%_)))) (if (gx#stx-pair? - _%tl6176061823%_) - (let ((_%e6176561826%_ + _%tl6158561648%_) + (let ((_%e6159061651%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6176061823%_))) - (let ((_%hd6176461830%_ + (gx#syntax-e _%tl6158561648%_))) + (let ((_%hd6158961655%_ (let () (declare (not safe)) - (##car _%e6176561826%_))) - (_%tl6176361833%_ + (##car _%e6159061651%_))) + (_%tl6158861658%_ (let () (declare (not safe)) - (##cdr _%e6176561826%_)))) - (if (gx#stx-pair? _%tl6176361833%_) - (let ((_%e6176861836%_ - (gx#syntax-e _%tl6176361833%_))) - (let ((_%hd6176761840%_ + (##cdr _%e6159061651%_)))) + (if (gx#stx-pair? _%tl6158861658%_) + (let ((_%e6159361661%_ + (gx#syntax-e _%tl6158861658%_))) + (let ((_%hd6159261665%_ (let () (declare (not safe)) - (##car _%e6176861836%_))) - (_%tl6176661843%_ + (##car _%e6159361661%_))) + (_%tl6159161668%_ (let () (declare (not safe)) - (##cdr _%e6176861836%_)))) - (if (gx#stx-pair? _%tl6176661843%_) - (let ((_%e6177161846%_ - (gx#syntax-e _%tl6176661843%_))) - (let ((_%hd6177061850%_ + (##cdr _%e6159361661%_)))) + (if (gx#stx-pair? _%tl6159161668%_) + (let ((_%e6159661671%_ + (gx#syntax-e _%tl6159161668%_))) + (let ((_%hd6159561675%_ (let () (declare (not safe)) - (##car _%e6177161846%_))) - (_%tl6176961853%_ + (##car _%e6159661671%_))) + (_%tl6159461678%_ (let () (declare (not safe)) - (##cdr _%e6177161846%_)))) - (if (gx#stx-pair? _%tl6176961853%_) - (let ((_%e6177461856%_ + (##cdr _%e6159661671%_)))) + (if (gx#stx-pair? _%tl6159461678%_) + (let ((_%e6159961681%_ (gx#syntax-e - _%tl6176961853%_))) - (let ((_%hd6177361860%_ + _%tl6159461678%_))) + (let ((_%hd6159861685%_ (let () (declare (not safe)) - (##car _%e6177461856%_))) - (_%tl6177261863%_ + (##car _%e6159961681%_))) + (_%tl6159761688%_ (let () (declare (not safe)) - (##cdr _%e6177461856%_)))) + (##cdr _%e6159961681%_)))) (if (gx#stx-pair/null? - _%hd6177361860%_) - (let ((_g80881_ + _%hd6159861685%_) + (let ((_g80729_ (gx#syntax-split-splice - _%hd6177361860%_ + _%hd6159861685%_ '0))) (begin - (let ((_g80882_ + (let ((_g80730_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g80881_) - (##vector-length _g80881_) + (if (##values? _g80729_) + (##vector-length _g80729_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g80882_ 2))) - (error "Context expects 2 values" _g80882_))) - (let ((_%target6177561866%_ - (let () (declare (not safe)) (##vector-ref _g80881_ 0))) - (_%tl6177761869%_ - (let () (declare (not safe)) (##vector-ref _g80881_ 1)))) - (if (gx#stx-null? _%tl6177761869%_) - (letrec ((_%loop6177861872%_ - (lambda (_%hd6177661876%_ _%body6178261879%_) - (if (gx#stx-pair? _%hd6177661876%_) - (let ((_%e6177961882%_ - (gx#syntax-e _%hd6177661876%_))) - (let ((_%lp-hd6178061886%_ + (if (not (let () (declare (not safe)) (##fx= _g80730_ 2))) + (error "Context expects 2 values" _g80730_))) + (let ((_%target6160061691%_ + (let () (declare (not safe)) (##vector-ref _g80729_ 0))) + (_%tl6160261694%_ + (let () (declare (not safe)) (##vector-ref _g80729_ 1)))) + (if (gx#stx-null? _%tl6160261694%_) + (letrec ((_%loop6160361697%_ + (lambda (_%hd6160161701%_ _%body6160761704%_) + (if (gx#stx-pair? _%hd6160161701%_) + (let ((_%e6160461707%_ + (gx#syntax-e _%hd6160161701%_))) + (let ((_%lp-hd6160561711%_ (let () (declare (not safe)) - (##car _%e6177961882%_))) - (_%lp-tl6178161889%_ + (##car _%e6160461707%_))) + (_%lp-tl6160661714%_ (let () (declare (not safe)) - (##cdr _%e6177961882%_)))) - (_%loop6177861872%_ - _%lp-tl6178161889%_ - (cons _%lp-hd6178061886%_ - _%body6178261879%_)))) - (let ((_%body6178361892%_ - (reverse _%body6178261879%_))) - (if (gx#stx-null? _%tl6177261863%_) - ((lambda (_%L61896%_ - _%L61898%_ - _%L61899%_ - _%L61900%_ - _%L61901%_ - _%L61902%_ - _%L61903%_) - (let () - (gx#stx-wrap-source - (cons (gx#datum->syntax - '#f - 'def) - (cons (cons _%L61902%_ + (##cdr _%e6160461707%_)))) + (_%loop6160361697%_ + _%lp-tl6160661714%_ + (cons _%lp-hd6160561711%_ + _%body6160761704%_)))) + (let ((_%body6160861717%_ + (reverse _%body6160761704%_))) + (if (gx#stx-null? _%tl6159761688%_) + ((lambda (_%L61721%_ + _%L61723%_ + _%L61724%_ + _%L61725%_ + _%L61726%_ + _%L61727%_ + _%L61728%_) + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'def) + (cons (cons _%L61727%_ + (cons _%L61726%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L61901%_ _%L61900%_)) - (cons (cons (gx#datum->syntax - '#f - 'with-interface-unchecked-method) - (cons _%L61901%_ - (cons (cons _%L61903%_ - (cons _%L61899%_ - (cons _%L61898%_ '()))) - (cons (cons (gx#datum->syntax - '#f - ':-) - (cons (cons (gx#datum->syntax + _%L61725%_)) + (cons (cons (gx#datum->syntax + '#f + 'with-interface-unchecked-method) + (cons _%L61726%_ + (cons (cons _%L61728%_ + (cons _%L61724%_ + (cons _%L61723%_ '()))) + (cons (cons (gx#datum->syntax + '#f + ':-) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'let) - (cons '() - (foldr (lambda (_%g6193761940%_ - _%g6193861943%_) - (cons _%g6193761940%_ - _%g6193861943%_)) - '() - _%L61896%_))) - (cons _%L61898%_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx61441%_)))) - _%body6178361892%_ - _%hd6177061850%_ - _%hd6176761840%_ - _%hd6176461830%_ - _%hd6176161820%_ - _%hd6175861810%_ - _%hd6175561800%_) - (_%g6174561789%_ - _%g6174661793%_))))))) - (_%loop6177861872%_ _%target6177561866%_ '())) - (_%g6174561789%_ _%g6174661793%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6174561789%_ - _%g6174661793%_)))) - (_%g6174561789%_ _%g6174661793%_)))) - (_%g6174561789%_ _%g6174661793%_)))) - (_%g6174561789%_ _%g6174661793%_)))) - (_%g6174561789%_ _%g6174661793%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6174561789%_ - _%g6174661793%_)))) - (_%g6174561789%_ _%g6174661793%_)))) - (_%g6174561789%_ _%g6174661793%_))))) - (_%g6174461946%_ - (list _%Interface61738%_ - _%unchecked-method-name61740%_ + '#f + 'let) + (cons '() + (foldr (lambda (_%g6176261765%_ + _%g6176361768%_) + (cons _%g6176261765%_ + _%g6176361768%_)) + '() + _%L61721%_))) + (cons _%L61723%_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#stx-source _%stx61266%_))) + _%body6160861717%_ + _%hd6159561675%_ + _%hd6159261665%_ + _%hd6158961655%_ + _%hd6158661645%_ + _%hd6158361635%_ + _%hd6158061625%_) + (_%g6157061614%_ + _%g6157161618%_))))))) + (_%loop6160361697%_ _%target6160061691%_ '())) + (_%g6157061614%_ _%g6157161618%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6157061614%_ + _%g6157161618%_)))) + (_%g6157061614%_ _%g6157161618%_)))) + (_%g6157061614%_ _%g6157161618%_)))) + (_%g6157061614%_ _%g6157161618%_)))) + (_%g6157061614%_ _%g6157161618%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6157061614%_ + _%g6157161618%_)))) + (_%g6157061614%_ _%g6157161618%_)))) + (_%g6157061614%_ _%g6157161618%_))))) + (_%g6156961771%_ + (list _%Interface61563%_ + _%unchecked-method-name61565%_ (gx#syntax-local-introduce 'self) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature61741%_)) - _%signature61741%_ - _%return61742%_ - _%body61743%_)))))) - (let* ((_%g6145061489%_ - (lambda (_%g6145161485%_) + (|gerbil/core/contract~Interface[1]#signature-arguments-in| + _%signature61566%_) + _%signature61566%_ + _%return61567%_ + _%body61568%_)))))) + (let* ((_%g6127561314%_ + (lambda (_%g6127661310%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6145161485%_))) - (_%g6144961734%_ - (lambda (_%g6145161493%_) - (if (gx#stx-pair? _%g6145161493%_) - (let ((_%e6145961496%_ (gx#syntax-e _%g6145161493%_))) - (let ((_%hd6145861500%_ + _%g6127661310%_))) + (_%g6127461559%_ + (lambda (_%g6127661318%_) + (if (gx#stx-pair? _%g6127661318%_) + (let ((_%e6128461321%_ (gx#syntax-e _%g6127661318%_))) + (let ((_%hd6128361325%_ (let () (declare (not safe)) - (##car _%e6145961496%_))) - (_%tl6145761503%_ + (##car _%e6128461321%_))) + (_%tl6128261328%_ (let () (declare (not safe)) - (##cdr _%e6145961496%_)))) - (if (gx#stx-pair? _%tl6145761503%_) - (let ((_%e6146261506%_ - (gx#syntax-e _%tl6145761503%_))) - (let ((_%hd6146161510%_ + (##cdr _%e6128461321%_)))) + (if (gx#stx-pair? _%tl6128261328%_) + (let ((_%e6128761331%_ + (gx#syntax-e _%tl6128261328%_))) + (let ((_%hd6128661335%_ (let () (declare (not safe)) - (##car _%e6146261506%_))) - (_%tl6146061513%_ + (##car _%e6128761331%_))) + (_%tl6128561338%_ (let () (declare (not safe)) - (##cdr _%e6146261506%_)))) - (if (gx#stx-pair? _%tl6146061513%_) - (let ((_%e6146561516%_ - (gx#syntax-e _%tl6146061513%_))) - (let ((_%hd6146461520%_ + (##cdr _%e6128761331%_)))) + (if (gx#stx-pair? _%tl6128561338%_) + (let ((_%e6129061341%_ + (gx#syntax-e _%tl6128561338%_))) + (let ((_%hd6128961345%_ (let () (declare (not safe)) - (##car _%e6146561516%_))) - (_%tl6146361523%_ + (##car _%e6129061341%_))) + (_%tl6128861348%_ (let () (declare (not safe)) - (##cdr _%e6146561516%_)))) - (if (gx#stx-pair? _%hd6146461520%_) - (let ((_%e6146861526%_ + (##cdr _%e6129061341%_)))) + (if (gx#stx-pair? _%hd6128961345%_) + (let ((_%e6129361351%_ (gx#syntax-e - _%hd6146461520%_))) - (let ((_%hd6146761530%_ + _%hd6128961345%_))) + (let ((_%hd6129261355%_ (let () (declare (not safe)) - (##car _%e6146861526%_))) - (_%tl6146661533%_ + (##car _%e6129361351%_))) + (_%tl6129161358%_ (let () (declare (not safe)) - (##cdr _%e6146861526%_)))) + (##cdr _%e6129361351%_)))) (if (gx#stx-pair? - _%tl6146661533%_) - (let ((_%e6147161536%_ + _%tl6129161358%_) + (let ((_%e6129661361%_ (gx#syntax-e - _%tl6146661533%_))) - (let ((_%hd6147061540%_ + _%tl6129161358%_))) + (let ((_%hd6129561365%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e6147161536%_))) - (_%tl6146961543%_ + (let () (declare (not safe)) (##car _%e6129661361%_))) + (_%tl6129461368%_ (let () (declare (not safe)) - (##cdr _%e6147161536%_)))) - (if (gx#stx-pair? _%tl6146961543%_) - (let ((_%e6147461546%_ (gx#syntax-e _%tl6146961543%_))) - (let ((_%hd6147361550%_ + (##cdr _%e6129661361%_)))) + (if (gx#stx-pair? _%tl6129461368%_) + (let ((_%e6129961371%_ (gx#syntax-e _%tl6129461368%_))) + (let ((_%hd6129861375%_ (let () (declare (not safe)) - (##car _%e6147461546%_))) - (_%tl6147261553%_ + (##car _%e6129961371%_))) + (_%tl6129761378%_ (let () (declare (not safe)) - (##cdr _%e6147461546%_)))) - (if (gx#stx-null? _%tl6147261553%_) - (if (gx#stx-pair/null? _%tl6146361523%_) - (let ((_g80883_ + (##cdr _%e6129961371%_)))) + (if (gx#stx-null? _%tl6129761378%_) + (if (gx#stx-pair/null? _%tl6128861348%_) + (let ((_g80731_ (gx#syntax-split-splice - _%tl6146361523%_ + _%tl6128861348%_ '0))) (begin - (let ((_g80884_ + (let ((_g80732_ (let () (declare (not safe)) - (if (##values? _g80883_) - (##vector-length _g80883_) + (if (##values? _g80731_) + (##vector-length _g80731_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80884_ 2))) + (##fx= _g80732_ 2))) (error "Context expects 2 values" - _g80884_))) - (let ((_%target6147561556%_ + _g80732_))) + (let ((_%target6130061381%_ (let () (declare (not safe)) - (##vector-ref _g80883_ 0))) - (_%tl6147761559%_ + (##vector-ref _g80731_ 0))) + (_%tl6130261384%_ (let () (declare (not safe)) - (##vector-ref _g80883_ 1)))) - (if (gx#stx-null? _%tl6147761559%_) - (letrec ((_%loop6147861562%_ - (lambda (_%hd6147661566%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6148261569%_) - (if (gx#stx-pair? _%hd6147661566%_) - (let ((_%e6147961572%_ (gx#syntax-e _%hd6147661566%_))) - (let ((_%lp-hd6148061576%_ + (##vector-ref _g80731_ 1)))) + (if (gx#stx-null? _%tl6130261384%_) + (letrec ((_%loop6130361387%_ + (lambda (_%hd6130161391%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6130761394%_) + (if (gx#stx-pair? _%hd6130161391%_) + (let ((_%e6130461397%_ (gx#syntax-e _%hd6130161391%_))) + (let ((_%lp-hd6130561401%_ (let () (declare (not safe)) - (##car _%e6147961572%_))) - (_%lp-tl6148161579%_ + (##car _%e6130461397%_))) + (_%lp-tl6130661404%_ (let () (declare (not safe)) - (##cdr _%e6147961572%_)))) - (_%loop6147861562%_ - _%lp-tl6148161579%_ - (cons _%lp-hd6148061576%_ _%body6148261569%_)))) - (let ((_%body6148361582%_ (reverse _%body6148261569%_))) - ((lambda (_%L61586%_ - _%L61588%_ - _%L61589%_ - _%L61590%_ - _%L61591%_) + (##cdr _%e6130461397%_)))) + (_%loop6130361387%_ + _%lp-tl6130661404%_ + (cons _%lp-hd6130561401%_ _%body6130761394%_)))) + (let ((_%body6130861407%_ (reverse _%body6130761394%_))) + ((lambda (_%L61411%_ + _%L61413%_ + _%L61414%_ + _%L61415%_ + _%L61416%_) (if (and (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L61591%_)) - (gx#identifier? _%L61590%_)) - (let* ((_%info61621%_ - (gx#syntax-local-value _%L61591%_)) - (_%interface-name61624%_ - (let ((__obj80567 _%info61621%_)) + _%L61416%_)) + (gx#identifier? _%L61415%_)) + (let* ((_%info61446%_ + (gx#syntax-local-value _%L61416%_)) + (_%interface-name61449%_ + (let ((__obj80392 _%info61446%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80567 + __obj80392 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80567 + __obj80392 '1 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj80567 + __obj80392 'name)))) - (_%method-name61627%_ + (_%method-name61452%_ (gx#stx-identifier - _%L61591%_ - _%interface-name61624%_ + _%L61416%_ + _%interface-name61449%_ '"-" - _%L61590%_)) - (_%raw-method-name61630%_ + _%L61415%_)) + (_%raw-method-name61455%_ (gx#stx-identifier - _%L61591%_ + _%L61416%_ '"__" - _%method-name61627%_)) - (_%unchecked-method-name61633%_ + _%method-name61452%_)) + (_%unchecked-method-name61458%_ (gx#stx-identifier - _%L61591%_ + _%L61416%_ '"&" - _%method-name61627%_))) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#check-signature!__%| - '#f - absent-value - absent-value - _%stx61441%_ - _%L61589%_ - _%L61588%_)) - (let* ((_%g6163861657%_ - (lambda (_%g6163961653%_) + _%method-name61452%_))) + (|gerbil/core/contract~Interface[1]#check-signature!__%| + '#f + absent-value + absent-value + _%stx61266%_ + _%L61414%_ + _%L61413%_) + (let* ((_%g6146361482%_ + (lambda (_%g6146461478%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6163961653%_))) - (_%g6163761722%_ - (lambda (_%g6163961661%_) - (if (gx#stx-pair? _%g6163961661%_) - (let ((_%e6164561664%_ + _%g6146461478%_))) + (_%g6146261547%_ + (lambda (_%g6146461486%_) + (if (gx#stx-pair? _%g6146461486%_) + (let ((_%e6147061489%_ (gx#syntax-e - _%g6163961661%_))) - (let ((_%hd6164461668%_ + _%g6146461486%_))) + (let ((_%hd6146961493%_ (let () (declare (not safe)) - (##car _%e6164561664%_))) - (_%tl6164361671%_ + (##car _%e6147061489%_))) + (_%tl6146861496%_ (let () (declare (not safe)) - (##cdr _%e6164561664%_)))) + (##cdr _%e6147061489%_)))) (if (gx#stx-pair? - _%tl6164361671%_) - (let ((_%e6164861674%_ + _%tl6146861496%_) + (let ((_%e6147361499%_ (gx#syntax-e - _%tl6164361671%_))) - (let ((_%hd6164761678%_ + _%tl6146861496%_))) + (let ((_%hd6147261503%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6164861674%_))) - (_%tl6164661681%_ - (let () (declare (not safe)) (##cdr _%e6164861674%_)))) - (if (gx#stx-pair? _%tl6164661681%_) - (let ((_%e6165161684%_ (gx#syntax-e _%tl6164661681%_))) - (let ((_%hd6165061688%_ + (##car _%e6147361499%_))) + (_%tl6147161506%_ + (let () (declare (not safe)) (##cdr _%e6147361499%_)))) + (if (gx#stx-pair? _%tl6147161506%_) + (let ((_%e6147661509%_ (gx#syntax-e _%tl6147161506%_))) + (let ((_%hd6147561513%_ (let () (declare (not safe)) - (##car _%e6165161684%_))) - (_%tl6164961691%_ + (##car _%e6147661509%_))) + (_%tl6147461516%_ (let () (declare (not safe)) - (##cdr _%e6165161684%_)))) - (if (gx#stx-null? _%tl6164961691%_) - ((lambda (_%L61694%_ _%L61696%_ _%L61697%_) - (let () - (cons (gx#datum->syntax '#f 'begin) - (cons _%L61697%_ - (cons _%L61696%_ - (cons _%L61694%_ - '())))))) - _%hd6165061688%_ - _%hd6164761678%_ - _%hd6164461668%_) - (_%g6163861657%_ _%g6163961661%_)))) - (_%g6163861657%_ _%g6163961661%_)))) - (_%g6163861657%_ _%g6163961661%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6163861657%_ - _%g6163961661%_))))) - (_%g6163761722%_ - (list (_%make-checked-method-def61446%_ - _%L61591%_ - _%method-name61627%_ - _%raw-method-name61630%_ - _%unchecked-method-name61633%_ - _%L61589%_ - _%L61588%_) - (_%make-raw-method-def61447%_ - _%L61591%_ - _%raw-method-name61630%_ - _%unchecked-method-name61633%_ - _%L61589%_ - _%L61588%_) - (_%make-unchecked-method-def61448%_ - _%L61591%_ - _%unchecked-method-name61633%_ - _%L61589%_ - _%L61588%_ - (foldr (lambda (_%g6172561728%_ - _%g6172661731%_) - (cons _%g6172561728%_ - _%g6172661731%_)) + (##cdr _%e6147661509%_)))) + (if (gx#stx-null? _%tl6147461516%_) + ((lambda (_%L61519%_ _%L61521%_ _%L61522%_) + (cons (gx#datum->syntax '#f 'begin) + (cons _%L61522%_ + (cons _%L61521%_ + (cons _%L61519%_ '()))))) + _%hd6147561513%_ + _%hd6147261503%_ + _%hd6146961493%_) + (_%g6146361482%_ _%g6146461486%_)))) + (_%g6146361482%_ _%g6146461486%_)))) + (_%g6146361482%_ _%g6146461486%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6146361482%_ + _%g6146461486%_))))) + (_%g6146261547%_ + (list (_%make-checked-method-def61271%_ + _%L61416%_ + _%method-name61452%_ + _%raw-method-name61455%_ + _%unchecked-method-name61458%_ + _%L61414%_ + _%L61413%_) + (_%make-raw-method-def61272%_ + _%L61416%_ + _%raw-method-name61455%_ + _%unchecked-method-name61458%_ + _%L61414%_ + _%L61413%_) + (_%make-unchecked-method-def61273%_ + _%L61416%_ + _%unchecked-method-name61458%_ + _%L61414%_ + _%L61413%_ + (foldr (lambda (_%g6155061553%_ + _%g6155161556%_) + (cons _%g6155061553%_ + _%g6155161556%_)) '() - _%L61586%_)))))) - (_%g6145061489%_ _%g6145161493%_))) - _%body6148361582%_ - _%hd6147361550%_ - _%hd6147061540%_ - _%hd6146761530%_ - _%hd6146161510%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6147861562%_ - _%target6147561556%_ + _%L61411%_)))))) + (_%g6127561314%_ _%g6127661318%_))) + _%body6130861407%_ + _%hd6129861375%_ + _%hd6129561365%_ + _%hd6129261355%_ + _%hd6128661335%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6130361387%_ + _%target6130061381%_ '())) - (_%g6145061489%_ - _%g6145161493%_))))) - (_%g6145061489%_ _%g6145161493%_)) - (_%g6145061489%_ _%g6145161493%_)))) - (_%g6145061489%_ _%g6145161493%_)))) - (_%g6145061489%_ _%g6145161493%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6145061489%_ - _%g6145161493%_)))) - (_%g6145061489%_ _%g6145161493%_)))) - (_%g6145061489%_ _%g6145161493%_)))) - (_%g6145061489%_ _%g6145161493%_))))) - (_%g6144961734%_ _%stx61441%_))))) + (_%g6127561314%_ + _%g6127661318%_))))) + (_%g6127561314%_ _%g6127661318%_)) + (_%g6127561314%_ _%g6127661318%_)))) + (_%g6127561314%_ _%g6127661318%_)))) + (_%g6127561314%_ _%g6127661318%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6127561314%_ + _%g6127661318%_)))) + (_%g6127561314%_ _%g6127661318%_)))) + (_%g6127561314%_ _%g6127661318%_)))) + (_%g6127561314%_ _%g6127661318%_))))) + (_%g6127461559%_ _%stx61266%_))))) (define |gerbil/core/contract~Interface[:0:]#with-interface-method| - (lambda (_%stx62437%_) - (let* ((_%g6244062483%_ - (lambda (_%g6244162479%_) + (lambda (_%stx62262%_) + (let* ((_%g6226562308%_ + (lambda (_%g6226662304%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6244162479%_))) - (_%g6243962704%_ - (lambda (_%g6244162487%_) - (if (gx#stx-pair? _%g6244162487%_) - (let ((_%e6245062490%_ (gx#syntax-e _%g6244162487%_))) - (let ((_%hd6244962494%_ + _%g6226662304%_))) + (_%g6226462529%_ + (lambda (_%g6226662312%_) + (if (gx#stx-pair? _%g6226662312%_) + (let ((_%e6227562315%_ (gx#syntax-e _%g6226662312%_))) + (let ((_%hd6227462319%_ (let () (declare (not safe)) - (##car _%e6245062490%_))) - (_%tl6244862497%_ + (##car _%e6227562315%_))) + (_%tl6227362322%_ (let () (declare (not safe)) - (##cdr _%e6245062490%_)))) - (if (gx#stx-pair? _%tl6244862497%_) - (let ((_%e6245362500%_ - (gx#syntax-e _%tl6244862497%_))) - (let ((_%hd6245262504%_ + (##cdr _%e6227562315%_)))) + (if (gx#stx-pair? _%tl6227362322%_) + (let ((_%e6227862325%_ + (gx#syntax-e _%tl6227362322%_))) + (let ((_%hd6227762329%_ (let () (declare (not safe)) - (##car _%e6245362500%_))) - (_%tl6245162507%_ + (##car _%e6227862325%_))) + (_%tl6227662332%_ (let () (declare (not safe)) - (##cdr _%e6245362500%_)))) - (if (gx#stx-pair? _%tl6245162507%_) - (let ((_%e6245662510%_ - (gx#syntax-e _%tl6245162507%_))) - (let ((_%hd6245562514%_ + (##cdr _%e6227862325%_)))) + (if (gx#stx-pair? _%tl6227662332%_) + (let ((_%e6228162335%_ + (gx#syntax-e _%tl6227662332%_))) + (let ((_%hd6228062339%_ (let () (declare (not safe)) - (##car _%e6245662510%_))) - (_%tl6245462517%_ + (##car _%e6228162335%_))) + (_%tl6227962342%_ (let () (declare (not safe)) - (##cdr _%e6245662510%_)))) - (if (gx#stx-pair? _%hd6245562514%_) - (let ((_%e6245962520%_ + (##cdr _%e6228162335%_)))) + (if (gx#stx-pair? _%hd6228062339%_) + (let ((_%e6228462345%_ (gx#syntax-e - _%hd6245562514%_))) - (let ((_%hd6245862524%_ + _%hd6228062339%_))) + (let ((_%hd6228362349%_ (let () (declare (not safe)) - (##car _%e6245962520%_))) - (_%tl6245762527%_ + (##car _%e6228462345%_))) + (_%tl6228262352%_ (let () (declare (not safe)) - (##cdr _%e6245962520%_)))) + (##cdr _%e6228462345%_)))) (if (gx#stx-pair? - _%tl6245762527%_) - (let ((_%e6246262530%_ + _%tl6228262352%_) + (let ((_%e6228762355%_ (gx#syntax-e - _%tl6245762527%_))) - (let ((_%hd6246162534%_ + _%tl6228262352%_))) + (let ((_%hd6228662359%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6246262530%_))) - (_%tl6246062537%_ - (let () (declare (not safe)) (##cdr _%e6246262530%_)))) - (if (gx#stx-pair? _%tl6246062537%_) - (let ((_%e6246562540%_ (gx#syntax-e _%tl6246062537%_))) - (let ((_%hd6246462544%_ + (##car _%e6228762355%_))) + (_%tl6228562362%_ + (let () (declare (not safe)) (##cdr _%e6228762355%_)))) + (if (gx#stx-pair? _%tl6228562362%_) + (let ((_%e6229062365%_ (gx#syntax-e _%tl6228562362%_))) + (let ((_%hd6228962369%_ (let () (declare (not safe)) - (##car _%e6246562540%_))) - (_%tl6246362547%_ + (##car _%e6229062365%_))) + (_%tl6228862372%_ (let () (declare (not safe)) - (##cdr _%e6246562540%_)))) - (if (gx#stx-pair? _%tl6246362547%_) - (let ((_%e6246862550%_ - (gx#syntax-e _%tl6246362547%_))) - (let ((_%hd6246762554%_ + (##cdr _%e6229062365%_)))) + (if (gx#stx-pair? _%tl6228862372%_) + (let ((_%e6229362375%_ + (gx#syntax-e _%tl6228862372%_))) + (let ((_%hd6229262379%_ (let () (declare (not safe)) - (##car _%e6246862550%_))) - (_%tl6246662557%_ + (##car _%e6229362375%_))) + (_%tl6229162382%_ (let () (declare (not safe)) - (##cdr _%e6246862550%_)))) - (if (gx#stx-null? _%tl6246662557%_) - (if (gx#stx-pair/null? _%tl6245462517%_) - (let ((_g80885_ + (##cdr _%e6229362375%_)))) + (if (gx#stx-null? _%tl6229162382%_) + (if (gx#stx-pair/null? _%tl6227962342%_) + (let ((_g80733_ (gx#syntax-split-splice - _%tl6245462517%_ + _%tl6227962342%_ '0))) (begin - (let ((_g80886_ + (let ((_g80734_ (let () (declare (not safe)) - (if (##values? _g80885_) + (if (##values? _g80733_) (##vector-length - _g80885_) + _g80733_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80886_ 2))) + (##fx= _g80734_ 2))) (error "Context expects 2 values" - _g80886_))) - (let ((_%target6246962560%_ + _g80734_))) + (let ((_%target6229462385%_ (let () (declare (not safe)) (##vector-ref - _g80885_ + _g80733_ 0))) - (_%tl6247162563%_ + (_%tl6229662388%_ (let () (declare (not safe)) (##vector-ref - _g80885_ + _g80733_ 1)))) (if (gx#stx-null? - _%tl6247162563%_) - (letrec ((_%loop6247262566%_ - (lambda (_%hd6247062570%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6247662573%_) - (if (gx#stx-pair? _%hd6247062570%_) - (let ((_%e6247362576%_ - (gx#syntax-e _%hd6247062570%_))) - (let ((_%lp-hd6247462580%_ + _%tl6229662388%_) + (letrec ((_%loop6229762391%_ + (lambda (_%hd6229562395%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6230162398%_) + (if (gx#stx-pair? _%hd6229562395%_) + (let ((_%e6229862401%_ + (gx#syntax-e _%hd6229562395%_))) + (let ((_%lp-hd6229962405%_ (let () (declare (not safe)) - (##car _%e6247362576%_))) - (_%lp-tl6247562583%_ + (##car _%e6229862401%_))) + (_%lp-tl6230062408%_ (let () (declare (not safe)) - (##cdr _%e6247362576%_)))) - (_%loop6247262566%_ - _%lp-tl6247562583%_ - (cons _%lp-hd6247462580%_ - _%body6247662573%_)))) - (let ((_%body6247762586%_ - (reverse _%body6247662573%_))) - ((lambda (_%L62590%_ - _%L62592%_ - _%L62593%_ - _%L62594%_ - _%L62595%_ - _%L62596%_) - (let* ((_%checked?62628%_ - (if (gx#stx-e _%L62592%_) '#t '#f)) - (_%g6263162646%_ - (lambda (_%g6263262642%_) + (##cdr _%e6229862401%_)))) + (_%loop6229762391%_ + _%lp-tl6230062408%_ + (cons _%lp-hd6229962405%_ + _%body6230162398%_)))) + (let ((_%body6230262411%_ + (reverse _%body6230162398%_))) + ((lambda (_%L62415%_ + _%L62417%_ + _%L62418%_ + _%L62419%_ + _%L62420%_ + _%L62421%_) + (let* ((_%checked?62453%_ + (if (gx#stx-e _%L62417%_) '#t '#f)) + (_%g6245662471%_ + (lambda (_%g6245762467%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6263262642%_))) - (_%g6263062700%_ - (lambda (_%g6263262650%_) - (if (gx#stx-pair? _%g6263262650%_) - (let ((_%e6263762653%_ + _%g6245762467%_))) + (_%g6245562525%_ + (lambda (_%g6245762475%_) + (if (gx#stx-pair? _%g6245762475%_) + (let ((_%e6246262478%_ (gx#syntax-e - _%g6263262650%_))) - (let ((_%hd6263662657%_ + _%g6245762475%_))) + (let ((_%hd6246162482%_ (let () (declare (not safe)) - (##car _%e6263762653%_))) - (_%tl6263562660%_ + (##car _%e6246262478%_))) + (_%tl6246062485%_ (let () (declare (not safe)) - (##cdr _%e6263762653%_)))) + (##cdr _%e6246262478%_)))) (if (gx#stx-pair? - _%tl6263562660%_) - (let ((_%e6264062663%_ + _%tl6246062485%_) + (let ((_%e6246562488%_ (gx#syntax-e - _%tl6263562660%_))) - (let ((_%hd6263962667%_ + _%tl6246062485%_))) + (let ((_%hd6246462492%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6264062663%_))) - (_%tl6263862670%_ - (let () (declare (not safe)) (##cdr _%e6264062663%_)))) - (if (gx#stx-null? _%tl6263862670%_) - ((lambda (_%L62673%_ _%L62675%_) - (let () - (cons (gx#datum->syntax '#f 'begin-annotation) - (cons (cons (gx#datum->syntax - '#f - '@type.signature) - _%L62675%_) - (cons (cons (gx#datum->syntax - '#f - 'using) - (cons _%L62673%_ - (foldr (lambda (_%g6269162694%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6269262697%_) - (cons _%g6269162694%_ _%g6269262697%_)) - '() - _%L62590%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - _%hd6263962667%_ - _%hd6263662657%_) - (_%g6263162646%_ _%g6263262650%_)))) - (_%g6263162646%_ _%g6263262650%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6263162646%_ - _%g6263262650%_))))) - (_%g6263062700%_ - (list (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| - _%stx62437%_ - _%L62596%_ - _%L62595%_ - _%L62594%_ - _%L62593%_ - _%L62592%_)) - (let () - (declare (not safe)) - (|gerbil/core/contract~Interface[1]#make-interface-method-contract| - _%stx62437%_ - _%L62596%_ - _%L62595%_ - _%L62594%_ - _%checked?62628%_)))))) - _%body6247762586%_ - _%hd6246762554%_ - _%hd6246462544%_ - _%hd6246162534%_ - _%hd6245862524%_ - _%hd6245262504%_)))))) - (_%loop6247262566%_ _%target6246962560%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6244062483%_ - _%g6244162487%_))))) - (_%g6244062483%_ _%g6244162487%_)) - (_%g6244062483%_ _%g6244162487%_)))) - (_%g6244062483%_ _%g6244162487%_)))) - (_%g6244062483%_ _%g6244162487%_)))) - (_%g6244062483%_ _%g6244162487%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6244062483%_ - _%g6244162487%_)))) - (_%g6244062483%_ _%g6244162487%_)))) - (_%g6244062483%_ _%g6244162487%_)))) - (_%g6244062483%_ _%g6244162487%_))))) - (_%g6243962704%_ _%stx62437%_)))) + (##car _%e6246562488%_))) + (_%tl6246362495%_ + (let () (declare (not safe)) (##cdr _%e6246562488%_)))) + (if (gx#stx-null? _%tl6246362495%_) + ((lambda (_%L62498%_ _%L62500%_) + (cons (gx#datum->syntax '#f 'begin-annotation) + (cons (cons (gx#datum->syntax + '#f + '@type.signature) + _%L62500%_) + (cons (cons (gx#datum->syntax '#f 'using) + (cons _%L62498%_ + (foldr (lambda (_%g6251662519%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6251762522%_) + (cons _%g6251662519%_ _%g6251762522%_)) + '() + _%L62415%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) + _%hd6246462492%_ + _%hd6246162482%_) + (_%g6245662471%_ _%g6245762475%_)))) + (_%g6245662471%_ _%g6245762475%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6245662471%_ + _%g6245762475%_))))) + (_%g6245562525%_ + (list (|gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| + _%stx62262%_ + _%L62421%_ + _%L62420%_ + _%L62419%_ + _%L62418%_ + _%L62417%_) + (|gerbil/core/contract~Interface[1]#make-interface-method-contract| + _%stx62262%_ + _%L62421%_ + _%L62420%_ + _%L62419%_ + _%checked?62453%_))))) + _%body6230262411%_ + _%hd6229262379%_ + _%hd6228962369%_ + _%hd6228662359%_ + _%hd6228362349%_ + _%hd6227762329%_)))))) + (_%loop6229762391%_ _%target6229462385%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6226562308%_ + _%g6226662312%_))))) + (_%g6226562308%_ _%g6226662312%_)) + (_%g6226562308%_ _%g6226662312%_)))) + (_%g6226562308%_ _%g6226662312%_)))) + (_%g6226562308%_ _%g6226662312%_)))) + (_%g6226562308%_ _%g6226662312%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6226562308%_ + _%g6226662312%_)))) + (_%g6226562308%_ _%g6226662312%_)))) + (_%g6226562308%_ _%g6226662312%_)))) + (_%g6226562308%_ _%g6226662312%_))))) + (_%g6226462529%_ _%stx62262%_)))) (define |gerbil/core/contract~Interface[:0:]#with-interface-checked-method| - (lambda (_%$stx62709%_) - (let* ((_%g6271362756%_ - (lambda (_%g6271462752%_) + (lambda (_%$stx62534%_) + (let* ((_%g6253862581%_ + (lambda (_%g6253962577%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6271462752%_))) - (_%g6271262909%_ - (lambda (_%g6271462760%_) - (if (gx#stx-pair? _%g6271462760%_) - (let ((_%e6272362763%_ (gx#syntax-e _%g6271462760%_))) - (let ((_%hd6272262767%_ + _%g6253962577%_))) + (_%g6253762734%_ + (lambda (_%g6253962585%_) + (if (gx#stx-pair? _%g6253962585%_) + (let ((_%e6254862588%_ (gx#syntax-e _%g6253962585%_))) + (let ((_%hd6254762592%_ (let () (declare (not safe)) - (##car _%e6272362763%_))) - (_%tl6272162770%_ + (##car _%e6254862588%_))) + (_%tl6254662595%_ (let () (declare (not safe)) - (##cdr _%e6272362763%_)))) - (if (gx#stx-pair? _%tl6272162770%_) - (let ((_%e6272662773%_ - (gx#syntax-e _%tl6272162770%_))) - (let ((_%hd6272562777%_ + (##cdr _%e6254862588%_)))) + (if (gx#stx-pair? _%tl6254662595%_) + (let ((_%e6255162598%_ + (gx#syntax-e _%tl6254662595%_))) + (let ((_%hd6255062602%_ (let () (declare (not safe)) - (##car _%e6272662773%_))) - (_%tl6272462780%_ + (##car _%e6255162598%_))) + (_%tl6254962605%_ (let () (declare (not safe)) - (##cdr _%e6272662773%_)))) - (if (gx#stx-pair? _%tl6272462780%_) - (let ((_%e6272962783%_ - (gx#syntax-e _%tl6272462780%_))) - (let ((_%hd6272862787%_ + (##cdr _%e6255162598%_)))) + (if (gx#stx-pair? _%tl6254962605%_) + (let ((_%e6255462608%_ + (gx#syntax-e _%tl6254962605%_))) + (let ((_%hd6255362612%_ (let () (declare (not safe)) - (##car _%e6272962783%_))) - (_%tl6272762790%_ + (##car _%e6255462608%_))) + (_%tl6255262615%_ (let () (declare (not safe)) - (##cdr _%e6272962783%_)))) - (if (gx#stx-pair? _%hd6272862787%_) - (let ((_%e6273262793%_ + (##cdr _%e6255462608%_)))) + (if (gx#stx-pair? _%hd6255362612%_) + (let ((_%e6255762618%_ (gx#syntax-e - _%hd6272862787%_))) - (let ((_%hd6273162797%_ + _%hd6255362612%_))) + (let ((_%hd6255662622%_ (let () (declare (not safe)) - (##car _%e6273262793%_))) - (_%tl6273062800%_ + (##car _%e6255762618%_))) + (_%tl6255562625%_ (let () (declare (not safe)) - (##cdr _%e6273262793%_)))) + (##cdr _%e6255762618%_)))) (if (gx#stx-pair? - _%tl6273062800%_) - (let ((_%e6273562803%_ + _%tl6255562625%_) + (let ((_%e6256062628%_ (gx#syntax-e - _%tl6273062800%_))) - (let ((_%hd6273462807%_ + _%tl6255562625%_))) + (let ((_%hd6255962632%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6273562803%_))) - (_%tl6273362810%_ - (let () (declare (not safe)) (##cdr _%e6273562803%_)))) - (if (gx#stx-pair? _%tl6273362810%_) - (let ((_%e6273862813%_ (gx#syntax-e _%tl6273362810%_))) - (let ((_%hd6273762817%_ + (##car _%e6256062628%_))) + (_%tl6255862635%_ + (let () (declare (not safe)) (##cdr _%e6256062628%_)))) + (if (gx#stx-pair? _%tl6255862635%_) + (let ((_%e6256362638%_ (gx#syntax-e _%tl6255862635%_))) + (let ((_%hd6256262642%_ (let () (declare (not safe)) - (##car _%e6273862813%_))) - (_%tl6273662820%_ + (##car _%e6256362638%_))) + (_%tl6256162645%_ (let () (declare (not safe)) - (##cdr _%e6273862813%_)))) - (if (gx#stx-pair? _%tl6273662820%_) - (let ((_%e6274162823%_ - (gx#syntax-e _%tl6273662820%_))) - (let ((_%hd6274062827%_ + (##cdr _%e6256362638%_)))) + (if (gx#stx-pair? _%tl6256162645%_) + (let ((_%e6256662648%_ + (gx#syntax-e _%tl6256162645%_))) + (let ((_%hd6256562652%_ (let () (declare (not safe)) - (##car _%e6274162823%_))) - (_%tl6273962830%_ + (##car _%e6256662648%_))) + (_%tl6256462655%_ (let () (declare (not safe)) - (##cdr _%e6274162823%_)))) - (if (gx#stx-null? _%tl6273962830%_) - (if (gx#stx-pair/null? _%tl6272762790%_) - (let ((_g80887_ + (##cdr _%e6256662648%_)))) + (if (gx#stx-null? _%tl6256462655%_) + (if (gx#stx-pair/null? _%tl6255262615%_) + (let ((_g80735_ (gx#syntax-split-splice - _%tl6272762790%_ + _%tl6255262615%_ '0))) (begin - (let ((_g80888_ + (let ((_g80736_ (let () (declare (not safe)) - (if (##values? _g80887_) + (if (##values? _g80735_) (##vector-length - _g80887_) + _g80735_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80888_ 2))) + (##fx= _g80736_ 2))) (error "Context expects 2 values" - _g80888_))) - (let ((_%target6274262833%_ + _g80736_))) + (let ((_%target6256762658%_ (let () (declare (not safe)) (##vector-ref - _g80887_ + _g80735_ 0))) - (_%tl6274462836%_ + (_%tl6256962661%_ (let () (declare (not safe)) (##vector-ref - _g80887_ + _g80735_ 1)))) (if (gx#stx-null? - _%tl6274462836%_) - (letrec ((_%loop6274562839%_ - (lambda (_%hd6274362843%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6274962846%_) - (if (gx#stx-pair? _%hd6274362843%_) - (let ((_%e6274662849%_ - (gx#syntax-e _%hd6274362843%_))) - (let ((_%lp-hd6274762853%_ + _%tl6256962661%_) + (letrec ((_%loop6257062664%_ + (lambda (_%hd6256862668%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6257462671%_) + (if (gx#stx-pair? _%hd6256862668%_) + (let ((_%e6257162674%_ + (gx#syntax-e _%hd6256862668%_))) + (let ((_%lp-hd6257262678%_ (let () (declare (not safe)) - (##car _%e6274662849%_))) - (_%lp-tl6274862856%_ + (##car _%e6257162674%_))) + (_%lp-tl6257362681%_ (let () (declare (not safe)) - (##cdr _%e6274662849%_)))) - (_%loop6274562839%_ - _%lp-tl6274862856%_ - (cons _%lp-hd6274762853%_ - _%body6274962846%_)))) - (let ((_%body6275062859%_ - (reverse _%body6274962846%_))) - ((lambda (_%L62863%_ - _%L62865%_ - _%L62866%_ - _%L62867%_ - _%L62868%_ - _%L62869%_) + (##cdr _%e6257162674%_)))) + (_%loop6257062664%_ + _%lp-tl6257362681%_ + (cons _%lp-hd6257262678%_ + _%body6257462671%_)))) + (let ((_%body6257562684%_ + (reverse _%body6257462671%_))) + ((lambda (_%L62688%_ + _%L62690%_ + _%L62691%_ + _%L62692%_ + _%L62693%_ + _%L62694%_) (cons (gx#datum->syntax '#f 'with-interface-method) - (cons _%L62869%_ - (cons (cons _%L62868%_ - (cons _%L62867%_ - (cons _%L62866%_ + (cons _%L62694%_ + (cons (cons _%L62693%_ + (cons _%L62692%_ + (cons _%L62691%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62865%_ '())))) + (cons _%L62690%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g6290062903%_ + (foldr (lambda (_%g6272562728%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6290162906%_) - (cons _%g6290062903%_ _%g6290162906%_)) + _%g6272662731%_) + (cons _%g6272562728%_ _%g6272662731%_)) '() - _%L62863%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body6275062859%_ - _%hd6274062827%_ - _%hd6273762817%_ - _%hd6273462807%_ - _%hd6273162797%_ - _%hd6272562777%_)))))) - (_%loop6274562839%_ _%target6274262833%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6271362756%_ - _%g6271462760%_))))) - (_%g6271362756%_ _%g6271462760%_)) - (_%g6271362756%_ _%g6271462760%_)))) - (_%g6271362756%_ _%g6271462760%_)))) - (_%g6271362756%_ _%g6271462760%_)))) - (_%g6271362756%_ _%g6271462760%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6271362756%_ - _%g6271462760%_)))) - (_%g6271362756%_ _%g6271462760%_)))) - (_%g6271362756%_ _%g6271462760%_)))) - (_%g6271362756%_ _%g6271462760%_))))) - (_%g6271262909%_ _%$stx62709%_)))) + _%L62688%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%body6257562684%_ + _%hd6256562652%_ + _%hd6256262642%_ + _%hd6255962632%_ + _%hd6255662622%_ + _%hd6255062602%_)))))) + (_%loop6257062664%_ _%target6256762658%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6253862581%_ + _%g6253962585%_))))) + (_%g6253862581%_ _%g6253962585%_)) + (_%g6253862581%_ _%g6253962585%_)))) + (_%g6253862581%_ _%g6253962585%_)))) + (_%g6253862581%_ _%g6253962585%_)))) + (_%g6253862581%_ _%g6253962585%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6253862581%_ + _%g6253962585%_)))) + (_%g6253862581%_ _%g6253962585%_)))) + (_%g6253862581%_ _%g6253962585%_)))) + (_%g6253862581%_ _%g6253962585%_))))) + (_%g6253762734%_ _%$stx62534%_)))) (define |gerbil/core/contract~Interface[:0:]#with-interface-unchecked-method| - (lambda (_%$stx62914%_) - (let* ((_%g6291862957%_ - (lambda (_%g6291962953%_) + (lambda (_%$stx62739%_) + (let* ((_%g6274362782%_ + (lambda (_%g6274462778%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6291962953%_))) - (_%g6291763096%_ - (lambda (_%g6291962961%_) - (if (gx#stx-pair? _%g6291962961%_) - (let ((_%e6292762964%_ (gx#syntax-e _%g6291962961%_))) - (let ((_%hd6292662968%_ + _%g6274462778%_))) + (_%g6274262921%_ + (lambda (_%g6274462786%_) + (if (gx#stx-pair? _%g6274462786%_) + (let ((_%e6275262789%_ (gx#syntax-e _%g6274462786%_))) + (let ((_%hd6275162793%_ (let () (declare (not safe)) - (##car _%e6292762964%_))) - (_%tl6292562971%_ + (##car _%e6275262789%_))) + (_%tl6275062796%_ (let () (declare (not safe)) - (##cdr _%e6292762964%_)))) - (if (gx#stx-pair? _%tl6292562971%_) - (let ((_%e6293062974%_ - (gx#syntax-e _%tl6292562971%_))) - (let ((_%hd6292962978%_ + (##cdr _%e6275262789%_)))) + (if (gx#stx-pair? _%tl6275062796%_) + (let ((_%e6275562799%_ + (gx#syntax-e _%tl6275062796%_))) + (let ((_%hd6275462803%_ (let () (declare (not safe)) - (##car _%e6293062974%_))) - (_%tl6292862981%_ + (##car _%e6275562799%_))) + (_%tl6275362806%_ (let () (declare (not safe)) - (##cdr _%e6293062974%_)))) - (if (gx#stx-pair? _%tl6292862981%_) - (let ((_%e6293362984%_ - (gx#syntax-e _%tl6292862981%_))) - (let ((_%hd6293262988%_ + (##cdr _%e6275562799%_)))) + (if (gx#stx-pair? _%tl6275362806%_) + (let ((_%e6275862809%_ + (gx#syntax-e _%tl6275362806%_))) + (let ((_%hd6275762813%_ (let () (declare (not safe)) - (##car _%e6293362984%_))) - (_%tl6293162991%_ + (##car _%e6275862809%_))) + (_%tl6275662816%_ (let () (declare (not safe)) - (##cdr _%e6293362984%_)))) - (if (gx#stx-pair? _%hd6293262988%_) - (let ((_%e6293662994%_ + (##cdr _%e6275862809%_)))) + (if (gx#stx-pair? _%hd6275762813%_) + (let ((_%e6276162819%_ (gx#syntax-e - _%hd6293262988%_))) - (let ((_%hd6293562998%_ + _%hd6275762813%_))) + (let ((_%hd6276062823%_ (let () (declare (not safe)) - (##car _%e6293662994%_))) - (_%tl6293463001%_ + (##car _%e6276162819%_))) + (_%tl6275962826%_ (let () (declare (not safe)) - (##cdr _%e6293662994%_)))) + (##cdr _%e6276162819%_)))) (if (gx#stx-pair? - _%tl6293463001%_) - (let ((_%e6293963004%_ + _%tl6275962826%_) + (let ((_%e6276462829%_ (gx#syntax-e - _%tl6293463001%_))) - (let ((_%hd6293863008%_ + _%tl6275962826%_))) + (let ((_%hd6276362833%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6293963004%_))) - (_%tl6293763011%_ - (let () (declare (not safe)) (##cdr _%e6293963004%_)))) - (if (gx#stx-pair? _%tl6293763011%_) - (let ((_%e6294263014%_ (gx#syntax-e _%tl6293763011%_))) - (let ((_%hd6294163018%_ + (##car _%e6276462829%_))) + (_%tl6276262836%_ + (let () (declare (not safe)) (##cdr _%e6276462829%_)))) + (if (gx#stx-pair? _%tl6276262836%_) + (let ((_%e6276762839%_ (gx#syntax-e _%tl6276262836%_))) + (let ((_%hd6276662843%_ (let () (declare (not safe)) - (##car _%e6294263014%_))) - (_%tl6294063021%_ + (##car _%e6276762839%_))) + (_%tl6276562846%_ (let () (declare (not safe)) - (##cdr _%e6294263014%_)))) - (if (gx#stx-null? _%tl6294063021%_) - (if (gx#stx-pair/null? _%tl6293162991%_) - (let ((_g80889_ + (##cdr _%e6276762839%_)))) + (if (gx#stx-null? _%tl6276562846%_) + (if (gx#stx-pair/null? _%tl6275662816%_) + (let ((_g80737_ (gx#syntax-split-splice - _%tl6293162991%_ + _%tl6275662816%_ '0))) (begin - (let ((_g80890_ + (let ((_g80738_ (let () (declare (not safe)) - (if (##values? _g80889_) - (##vector-length _g80889_) + (if (##values? _g80737_) + (##vector-length _g80737_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80890_ 2))) + (##fx= _g80738_ 2))) (error "Context expects 2 values" - _g80890_))) - (let ((_%target6294363024%_ + _g80738_))) + (let ((_%target6276862849%_ (let () (declare (not safe)) - (##vector-ref _g80889_ 0))) - (_%tl6294563027%_ + (##vector-ref _g80737_ 0))) + (_%tl6277062852%_ (let () (declare (not safe)) - (##vector-ref _g80889_ 1)))) - (if (gx#stx-null? _%tl6294563027%_) - (letrec ((_%loop6294663030%_ - (lambda (_%hd6294463034%_ - _%body6295063037%_) + (##vector-ref _g80737_ 1)))) + (if (gx#stx-null? _%tl6277062852%_) + (letrec ((_%loop6277162855%_ + (lambda (_%hd6276962859%_ + _%body6277562862%_) (if (gx#stx-pair? - _%hd6294463034%_) - (let ((_%e6294763040%_ + _%hd6276962859%_) + (let ((_%e6277262865%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6294463034%_))) - (let ((_%lp-hd6294863044%_ + (gx#syntax-e _%hd6276962859%_))) + (let ((_%lp-hd6277362869%_ (let () (declare (not safe)) - (##car _%e6294763040%_))) - (_%lp-tl6294963047%_ + (##car _%e6277262865%_))) + (_%lp-tl6277462872%_ (let () (declare (not safe)) - (##cdr _%e6294763040%_)))) - (_%loop6294663030%_ - _%lp-tl6294963047%_ - (cons _%lp-hd6294863044%_ _%body6295063037%_)))) - (let ((_%body6295163050%_ (reverse _%body6295063037%_))) - ((lambda (_%L63054%_ - _%L63056%_ - _%L63057%_ - _%L63058%_ - _%L63059%_) + (##cdr _%e6277262865%_)))) + (_%loop6277162855%_ + _%lp-tl6277462872%_ + (cons _%lp-hd6277362869%_ _%body6277562862%_)))) + (let ((_%body6277662875%_ (reverse _%body6277562862%_))) + ((lambda (_%L62879%_ + _%L62881%_ + _%L62882%_ + _%L62883%_ + _%L62884%_) (cons (gx#datum->syntax '#f 'with-interface-method) - (cons _%L63059%_ - (cons (cons _%L63058%_ - (cons _%L63057%_ - (cons _%L63056%_ + (cons _%L62884%_ + (cons (cons _%L62883%_ + (cons _%L62882%_ + (cons _%L62881%_ (cons '#f '())))) - (foldr (lambda (_%g6308763090%_ - _%g6308863093%_) - (cons _%g6308763090%_ - _%g6308863093%_)) + (foldr (lambda (_%g6291262915%_ + _%g6291362918%_) + (cons _%g6291262915%_ + _%g6291362918%_)) '() - _%L63054%_))))) - _%body6295163050%_ - _%hd6294163018%_ - _%hd6293863008%_ - _%hd6293562998%_ - _%hd6292962978%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6294663030%_ - _%target6294363024%_ + _%L62879%_))))) + _%body6277662875%_ + _%hd6276662843%_ + _%hd6276362833%_ + _%hd6276062823%_ + _%hd6275462803%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6277162855%_ + _%target6276862849%_ '())) - (_%g6291862957%_ - _%g6291962961%_))))) - (_%g6291862957%_ _%g6291962961%_)) - (_%g6291862957%_ _%g6291962961%_)))) - (_%g6291862957%_ _%g6291962961%_)))) - (_%g6291862957%_ _%g6291962961%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6291862957%_ - _%g6291962961%_)))) - (_%g6291862957%_ _%g6291962961%_)))) - (_%g6291862957%_ _%g6291962961%_)))) - (_%g6291862957%_ _%g6291962961%_))))) - (_%g6291763096%_ _%$stx62914%_)))) + (_%g6274362782%_ + _%g6274462786%_))))) + (_%g6274362782%_ _%g6274462786%_)) + (_%g6274362782%_ _%g6274462786%_)))) + (_%g6274362782%_ _%g6274462786%_)))) + (_%g6274362782%_ _%g6274462786%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6274362782%_ + _%g6274462786%_)))) + (_%g6274362782%_ _%g6274462786%_)))) + (_%g6274362782%_ _%g6274462786%_)))) + (_%g6274362782%_ _%g6274462786%_))))) + (_%g6274262921%_ _%$stx62739%_)))) (define |gerbil/core/contract~Interface[:0:]#interface-out| (gx#make-export-expander - (lambda (_%stx63101%_) - (letrec ((_%expand63104%_ - (lambda (_%body63326%_ _%unchecked?63328%_) - (let* ((_%g6333063347%_ - (lambda (_%g6333163343%_) + (lambda (_%stx62926%_) + (letrec ((_%expand62929%_ + (lambda (_%body63151%_ _%unchecked?63153%_) + (let* ((_%g6315563172%_ + (lambda (_%g6315663168%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6333163343%_))) - (_%g6332963578%_ - (lambda (_%g6333163351%_) - (if (gx#stx-pair/null? _%g6333163351%_) - (let ((_g80891_ + _%g6315663168%_))) + (_%g6315463403%_ + (lambda (_%g6315663176%_) + (if (gx#stx-pair/null? _%g6315663176%_) + (let ((_g80739_ (gx#syntax-split-splice - _%g6333163351%_ + _%g6315663176%_ '0))) (begin - (let ((_g80892_ + (let ((_g80740_ (let () (declare (not safe)) - (if (##values? _g80891_) - (##vector-length _g80891_) + (if (##values? _g80739_) + (##vector-length _g80739_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80892_ 2))) + (##fx= _g80740_ 2))) (error "Context expects 2 values" - _g80892_))) - (let ((_%target6333363354%_ + _g80740_))) + (let ((_%target6315863179%_ (let () (declare (not safe)) - (##vector-ref _g80891_ 0))) - (_%tl6333563357%_ + (##vector-ref _g80739_ 0))) + (_%tl6316063182%_ (let () (declare (not safe)) - (##vector-ref _g80891_ 1)))) - (if (gx#stx-null? _%tl6333563357%_) - (letrec ((_%loop6333663360%_ - (lambda (_%hd6333463364%_ - _%id6334063367%_) + (##vector-ref _g80739_ 1)))) + (if (gx#stx-null? _%tl6316063182%_) + (letrec ((_%loop6316163185%_ + (lambda (_%hd6315963189%_ + _%id6316563192%_) (if (gx#stx-pair? - _%hd6333463364%_) - (let ((_%e6333763370%_ + _%hd6315963189%_) + (let ((_%e6316263195%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6333463364%_))) - (let ((_%lp-hd6333863374%_ + (gx#syntax-e _%hd6315963189%_))) + (let ((_%lp-hd6316363199%_ (let () (declare (not safe)) - (##car _%e6333763370%_))) - (_%lp-tl6333963377%_ + (##car _%e6316263195%_))) + (_%lp-tl6316463202%_ (let () (declare (not safe)) - (##cdr _%e6333763370%_)))) - (_%loop6333663360%_ - _%lp-tl6333963377%_ - (cons _%lp-hd6333863374%_ _%id6334063367%_)))) - (let ((_%id6334163380%_ (reverse _%id6334063367%_))) - ((lambda (_%L63384%_) + (##cdr _%e6316263195%_)))) + (_%loop6316163185%_ + _%lp-tl6316463202%_ + (cons _%lp-hd6316363199%_ _%id6316563192%_)))) + (let ((_%id6316663205%_ (reverse _%id6316563192%_))) + ((lambda (_%L63209%_) (if (gx#identifier-list? - (foldr (lambda (_%g6339763400%_ _%g6339863403%_) - (cons _%g6339763400%_ _%g6339863403%_)) + (foldr (lambda (_%g6322263225%_ _%g6322363228%_) + (cons _%g6322263225%_ _%g6322363228%_)) '() - _%L63384%_)) - (let _%lp63406%_ ((_%rest63409%_ - (foldr (lambda (_%g6356963572%_ + _%L63209%_)) + (let _%lp63231%_ ((_%rest63234%_ + (foldr (lambda (_%g6339463397%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6357063575%_) - (cons _%g6356963572%_ _%g6357063575%_)) + _%g6339563400%_) + (cons _%g6339463397%_ _%g6339563400%_)) '() - _%L63384%_)) + _%L63209%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%ids63411%_ '())) - (let* ((_%__stx7891678917%_ _%rest63409%_) - (_%g6341463426%_ + (_%ids63236%_ '())) + (let* ((_%__stx7874178742%_ _%rest63234%_) + (_%g6323963251%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7891678917%_)))) - (let ((_%__kont7891978920%_ - (lambda (_%L63454%_ _%L63456%_) - (let ((_%info63471%_ + _%__stx7874178742%_)))) + (let ((_%__kont7874478745%_ + (lambda (_%L63279%_ _%L63281%_) + (let ((_%info63296%_ (gx#syntax-local-value - _%L63456%_ + _%L63281%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info63471%_)) + _%info63296%_)) '#!void (gx#raise-syntax-error '#f '"not an interface type" - _%stx63101%_ - _%L63456%_)) - (let* ((_%info6347363486%_ - _%info63471%_) - (_%E6347563492%_ + _%stx62926%_ + _%L63281%_)) + (let* ((_%info6329863311%_ + _%info63296%_) + (_%E6330063317%_ (lambda () (error '"No clause matching" - _%info6347363486%_ + _%info6329863311%_ '((interface-info ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< instance-type: @@ -10687,492 +10297,492 @@ unchecked-impl))) (void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K6347663506%_ - (lambda (_%unchecked-impl63496%_ - _%method-impl63498%_ - _%satisfies-predicate63499%_ - _%predicate63500%_ - _%try-constructor63501%_ - _%constructor63502%_ - _%descriptor63503%_ - _%type63504%_) - (_%lp63406%_ - _%L63454%_ - (cons _%L63456%_ - (cons _%type63504%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%descriptor63503%_ - (cons _%constructor63502%_ - (cons _%try-constructor63501%_ - (cons _%predicate63500%_ - (cons _%satisfies-predicate63499%_ + (_%K6330163331%_ + (lambda (_%unchecked-impl63321%_ + _%method-impl63323%_ + _%satisfies-predicate63324%_ + _%predicate63325%_ + _%try-constructor63326%_ + _%constructor63327%_ + _%descriptor63328%_ + _%type63329%_) + (_%lp63231%_ + _%L63279%_ + (cons _%L63281%_ + (cons _%type63329%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%descriptor63328%_ + (cons _%constructor63327%_ + (cons _%try-constructor63326%_ + (cons _%predicate63325%_ + (cons _%satisfies-predicate63324%_ (foldr cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr cons - _%ids63411%_ - (if _%unchecked?63328%_ - _%unchecked-impl63496%_ + _%ids63236%_ + (if _%unchecked?63153%_ + _%unchecked-impl63321%_ '())) - _%method-impl63498%_)))))))))))) + _%method-impl63323%_)))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info6347363486%_)) - (let* ((_%e6347763510%_ + _%info6329863311%_)) + (let* ((_%e6330263335%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6347363486%_ + _%info6329863311%_ 'instance-type))) - (_%type63514%_ - _%e6347763510%_) - (_%e6347863517%_ + (_%type63339%_ + _%e6330263335%_) + (_%e6330363342%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6347363486%_ + _%info6329863311%_ 'interface-descriptor))) - (_%descriptor63521%_ - _%e6347863517%_) - (_%e6347963524%_ + (_%descriptor63346%_ + _%e6330363342%_) + (_%e6330463349%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6347363486%_ + _%info6329863311%_ 'instance-constructor))) - (_%constructor63528%_ - _%e6347963524%_) - (_%e6348063531%_ + (_%constructor63353%_ + _%e6330463349%_) + (_%e6330563356%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6347363486%_ + _%info6329863311%_ 'instance-try-constructor))) - (_%try-constructor63535%_ - _%e6348063531%_) - (_%e6348163538%_ + (_%try-constructor63360%_ + _%e6330563356%_) + (_%e6330663363%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6347363486%_ + _%info6329863311%_ 'instance-predicate))) - (_%predicate63542%_ - _%e6348163538%_) - (_%e6348263545%_ + (_%predicate63367%_ + _%e6330663363%_) + (_%e6330763370%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6347363486%_ + _%info6329863311%_ 'instance-satisfies-predicate))) - (_%satisfies-predicate63549%_ - _%e6348263545%_) - (_%e6348363552%_ + (_%satisfies-predicate63374%_ + _%e6330763370%_) + (_%e6330863377%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6347363486%_ + _%info6329863311%_ 'implementation-methods))) - (_%method-impl63556%_ - _%e6348363552%_) - (_%e6348463559%_ + (_%method-impl63381%_ + _%e6330863377%_) + (_%e6330963384%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6347363486%_ + _%info6329863311%_ 'unchecked-implementation-methods))) - (_%unchecked-impl63563%_ - _%e6348463559%_)) - (_%K6347663506%_ - _%unchecked-impl63563%_ - _%method-impl63556%_ - _%satisfies-predicate63549%_ - _%predicate63542%_ - _%try-constructor63535%_ - _%constructor63528%_ - _%descriptor63521%_ - _%type63514%_)) - (_%E6347563492%_)))))) - (_%__kont7892178922%_ + (_%unchecked-impl63388%_ + _%e6330963384%_)) + (_%K6330163331%_ + _%unchecked-impl63388%_ + _%method-impl63381%_ + _%satisfies-predicate63374%_ + _%predicate63367%_ + _%try-constructor63360%_ + _%constructor63353%_ + _%descriptor63346%_ + _%type63339%_)) + (_%E6330063317%_)))))) + (_%__kont7874678747%_ (lambda () - (cons 'begin: _%ids63411%_)))) - (if (gx#stx-pair? _%__stx7891678917%_) - (let ((_%e6342063444%_ + (cons 'begin: _%ids63236%_)))) + (if (gx#stx-pair? _%__stx7874178742%_) + (let ((_%e6324563269%_ (gx#syntax-e - _%__stx7891678917%_))) - (let ((_%tl6341863451%_ + _%__stx7874178742%_))) + (let ((_%tl6324363276%_ (let () (declare (not safe)) - (##cdr _%e6342063444%_))) - (_%hd6341963448%_ + (##cdr _%e6324563269%_))) + (_%hd6324463273%_ (let () (declare (not safe)) - (##car _%e6342063444%_)))) - (_%__kont7891978920%_ - _%tl6341863451%_ - _%hd6341963448%_))) - (_%__kont7892178922%_))))) - (_%g6333063347%_ _%g6333163351%_))) - _%id6334163380%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6333663360%_ - _%target6333363354%_ + (##car _%e6324563269%_)))) + (_%__kont7874478745%_ + _%tl6324363276%_ + _%hd6324463273%_))) + (_%__kont7874678747%_))))) + (_%g6315563172%_ _%g6315663176%_))) + _%id6316663205%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6316163185%_ + _%target6315863179%_ '())) - (_%g6333063347%_ - _%g6333163351%_))))) - (_%g6333063347%_ _%g6333163351%_))))) - (_%g6332963578%_ _%body63326%_))))) - (let* ((_%__stx7893278933%_ _%stx63101%_) - (_%g6310863149%_ + (_%g6315563172%_ + _%g6315663176%_))))) + (_%g6315563172%_ _%g6315663176%_))))) + (_%g6315463403%_ _%body63151%_))))) + (let* ((_%__stx7875778758%_ _%stx62926%_) + (_%g6293362974%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7893278933%_)))) - (let ((_%__kont7893578936%_ - (lambda (_%L63292%_ _%L63294%_) - (_%expand63104%_ - (foldr (lambda (_%g6331363316%_ _%g6331463319%_) - (cons _%g6331363316%_ _%g6331463319%_)) + _%__stx7875778758%_)))) + (let ((_%__kont7876078761%_ + (lambda (_%L63117%_ _%L63119%_) + (_%expand62929%_ + (foldr (lambda (_%g6313863141%_ _%g6313963144%_) + (cons _%g6313863141%_ _%g6313963144%_)) '() - _%L63292%_) - (gx#stx-e _%L63294%_)))) - (_%__kont7893978940%_ - (lambda (_%L63196%_) - (_%expand63104%_ - (foldr (lambda (_%g6321263215%_ _%g6321363218%_) - (cons _%g6321263215%_ _%g6321363218%_)) + _%L63117%_) + (gx#stx-e _%L63119%_)))) + (_%__kont7876478765%_ + (lambda (_%L63021%_) + (_%expand62929%_ + (foldr (lambda (_%g6303763040%_ _%g6303863043%_) + (cons _%g6303763040%_ _%g6303863043%_)) '() - _%L63196%_) + _%L63021%_) '#t)))) - (let* ((_%__match7898978990%_ - (lambda (_%e6313463156%_ - _%hd6313363160%_ - _%tl6313263163%_ - _%__splice7894178942%_ - _%target6313563166%_ - _%tl6313763169%_) - (letrec ((_%loop6313863172%_ - (lambda (_%hd6313663176%_ - _%body6314263179%_) - (if (gx#stx-pair? _%hd6313663176%_) - (let ((_%e6313963182%_ + (let* ((_%__match7881478815%_ + (lambda (_%e6295962981%_ + _%hd6295862985%_ + _%tl6295762988%_ + _%__splice7876678767%_ + _%target6296062991%_ + _%tl6296262994%_) + (letrec ((_%loop6296362997%_ + (lambda (_%hd6296163001%_ + _%body6296763004%_) + (if (gx#stx-pair? _%hd6296163001%_) + (let ((_%e6296463007%_ (gx#syntax-e - _%hd6313663176%_))) - (let ((_%lp-tl6314163189%_ + _%hd6296163001%_))) + (let ((_%lp-tl6296663014%_ (let () (declare (not safe)) - (##cdr _%e6313963182%_))) - (_%lp-hd6314063186%_ + (##cdr _%e6296463007%_))) + (_%lp-hd6296563011%_ (let () (declare (not safe)) - (##car _%e6313963182%_)))) - (_%loop6313863172%_ - _%lp-tl6314163189%_ - (cons _%lp-hd6314063186%_ - _%body6314263179%_)))) - (let ((_%body6314363192%_ - (reverse _%body6314263179%_))) - (_%__kont7893978940%_ - _%body6314363192%_)))))) - (_%loop6313863172%_ _%target6313563166%_ '())))) - (_%__match7897578976%_ - (lambda (_%e6311463228%_ - _%hd6311363232%_ - _%tl6311263235%_ - _%e6311763238%_ - _%hd6311663242%_ - _%tl6311563245%_ - _%e6311863248%_ - _%e6312163252%_ - _%hd6312063256%_ - _%tl6311963259%_ - _%__splice7893778938%_ - _%target6312263262%_ - _%tl6312463265%_) - (letrec ((_%loop6312563268%_ - (lambda (_%hd6312363272%_ - _%body6312963275%_) - (if (gx#stx-pair? _%hd6312363272%_) - (let ((_%e6312663278%_ + (##car _%e6296463007%_)))) + (_%loop6296362997%_ + _%lp-tl6296663014%_ + (cons _%lp-hd6296563011%_ + _%body6296763004%_)))) + (let ((_%body6296863017%_ + (reverse _%body6296763004%_))) + (_%__kont7876478765%_ + _%body6296863017%_)))))) + (_%loop6296362997%_ _%target6296062991%_ '())))) + (_%__match7880078801%_ + (lambda (_%e6293963053%_ + _%hd6293863057%_ + _%tl6293763060%_ + _%e6294263063%_ + _%hd6294163067%_ + _%tl6294063070%_ + _%e6294363073%_ + _%e6294663077%_ + _%hd6294563081%_ + _%tl6294463084%_ + _%__splice7876278763%_ + _%target6294763087%_ + _%tl6294963090%_) + (letrec ((_%loop6295063093%_ + (lambda (_%hd6294863097%_ + _%body6295463100%_) + (if (gx#stx-pair? _%hd6294863097%_) + (let ((_%e6295163103%_ (gx#syntax-e - _%hd6312363272%_))) - (let ((_%lp-tl6312863285%_ + _%hd6294863097%_))) + (let ((_%lp-tl6295363110%_ (let () (declare (not safe)) - (##cdr _%e6312663278%_))) - (_%lp-hd6312763282%_ + (##cdr _%e6295163103%_))) + (_%lp-hd6295263107%_ (let () (declare (not safe)) - (##car _%e6312663278%_)))) - (_%loop6312563268%_ - _%lp-tl6312863285%_ - (cons _%lp-hd6312763282%_ - _%body6312963275%_)))) - (let ((_%body6313063288%_ - (reverse _%body6312963275%_))) - (_%__kont7893578936%_ - _%body6313063288%_ - _%hd6312063256%_)))))) - (_%loop6312563268%_ _%target6312263262%_ '()))))) - (if (gx#stx-pair? _%__stx7893278933%_) - (let ((_%e6311463228%_ (gx#syntax-e _%__stx7893278933%_))) - (let ((_%tl6311263235%_ + (##car _%e6295163103%_)))) + (_%loop6295063093%_ + _%lp-tl6295363110%_ + (cons _%lp-hd6295263107%_ + _%body6295463100%_)))) + (let ((_%body6295563113%_ + (reverse _%body6295463100%_))) + (_%__kont7876078761%_ + _%body6295563113%_ + _%hd6294563081%_)))))) + (_%loop6295063093%_ _%target6294763087%_ '()))))) + (if (gx#stx-pair? _%__stx7875778758%_) + (let ((_%e6293963053%_ (gx#syntax-e _%__stx7875778758%_))) + (let ((_%tl6293763060%_ (let () (declare (not safe)) - (##cdr _%e6311463228%_))) - (_%hd6311363232%_ + (##cdr _%e6293963053%_))) + (_%hd6293863057%_ (let () (declare (not safe)) - (##car _%e6311463228%_)))) - (if (gx#stx-pair? _%tl6311263235%_) - (let ((_%e6311763238%_ - (gx#syntax-e _%tl6311263235%_))) - (let ((_%tl6311563245%_ + (##car _%e6293963053%_)))) + (if (gx#stx-pair? _%tl6293763060%_) + (let ((_%e6294263063%_ + (gx#syntax-e _%tl6293763060%_))) + (let ((_%tl6294063070%_ (let () (declare (not safe)) - (##cdr _%e6311763238%_))) - (_%hd6311663242%_ + (##cdr _%e6294263063%_))) + (_%hd6294163067%_ (let () (declare (not safe)) - (##car _%e6311763238%_)))) - (if (gx#stx-datum? _%hd6311663242%_) - (let ((_%e6311863248%_ - (gx#stx-e _%hd6311663242%_))) - (if (equal? _%e6311863248%_ 'unchecked:) - (if (gx#stx-pair? _%tl6311563245%_) - (let ((_%e6312163252%_ + (##car _%e6294263063%_)))) + (if (gx#stx-datum? _%hd6294163067%_) + (let ((_%e6294363073%_ + (gx#stx-e _%hd6294163067%_))) + (if (equal? _%e6294363073%_ 'unchecked:) + (if (gx#stx-pair? _%tl6294063070%_) + (let ((_%e6294663077%_ (gx#syntax-e - _%tl6311563245%_))) - (let ((_%tl6311963259%_ + _%tl6294063070%_))) + (let ((_%tl6294463084%_ (let () (declare (not safe)) - (##cdr _%e6312163252%_))) - (_%hd6312063256%_ + (##cdr _%e6294663077%_))) + (_%hd6294563081%_ (let () (declare (not safe)) - (##car _%e6312163252%_)))) + (##car _%e6294663077%_)))) (if (gx#stx-pair/null? - _%tl6311963259%_) - (let ((_%__splice7893778938%_ + _%tl6294463084%_) + (let ((_%__splice7876278763%_ (gx#syntax-split-splice - _%tl6311963259%_ + _%tl6294463084%_ '0))) - (let ((_%tl6312463265%_ + (let ((_%tl6294963090%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7893778938%_ '1))) - (_%target6312263262%_ + (##vector-ref _%__splice7876278763%_ '1))) + (_%target6294763087%_ (let () (declare (not safe)) - (##vector-ref _%__splice7893778938%_ '0)))) - (if (gx#stx-null? _%tl6312463265%_) - (_%__match7897578976%_ - _%e6311463228%_ - _%hd6311363232%_ - _%tl6311263235%_ - _%e6311763238%_ - _%hd6311663242%_ - _%tl6311563245%_ - _%e6311863248%_ - _%e6312163252%_ - _%hd6312063256%_ - _%tl6311963259%_ - _%__splice7893778938%_ - _%target6312263262%_ - _%tl6312463265%_) - (if (gx#stx-pair/null? _%tl6311263235%_) - (let ((_%__splice7894178942%_ + (##vector-ref _%__splice7876278763%_ '0)))) + (if (gx#stx-null? _%tl6294963090%_) + (_%__match7880078801%_ + _%e6293963053%_ + _%hd6293863057%_ + _%tl6293763060%_ + _%e6294263063%_ + _%hd6294163067%_ + _%tl6294063070%_ + _%e6294363073%_ + _%e6294663077%_ + _%hd6294563081%_ + _%tl6294463084%_ + _%__splice7876278763%_ + _%target6294763087%_ + _%tl6294963090%_) + (if (gx#stx-pair/null? _%tl6293763060%_) + (let ((_%__splice7876678767%_ (gx#syntax-split-splice - _%tl6311263235%_ + _%tl6293763060%_ '0))) - (let ((_%tl6313763169%_ + (let ((_%tl6296262994%_ (let () (declare (not safe)) (##vector-ref - _%__splice7894178942%_ + _%__splice7876678767%_ '1))) - (_%target6313563166%_ + (_%target6296062991%_ (let () (declare (not safe)) (##vector-ref - _%__splice7894178942%_ + _%__splice7876678767%_ '0)))) - (if (gx#stx-null? _%tl6313763169%_) - (_%__match7898978990%_ - _%e6311463228%_ - _%hd6311363232%_ - _%tl6311263235%_ - _%__splice7894178942%_ - _%target6313563166%_ - _%tl6313763169%_) + (if (gx#stx-null? _%tl6296262994%_) + (_%__match7881478815%_ + _%e6293963053%_ + _%hd6293863057%_ + _%tl6293763060%_ + _%__splice7876678767%_ + _%target6296062991%_ + _%tl6296262994%_) (let () (declare (not safe)) - (_%g6310863149%_))))) - (let () (declare (not safe)) (_%g6310863149%_)))))) - (if (gx#stx-pair/null? _%tl6311263235%_) - (let ((_%__splice7894178942%_ - (gx#syntax-split-splice _%tl6311263235%_ '0))) - (let ((_%tl6313763169%_ + (_%g6293362974%_))))) + (let () (declare (not safe)) (_%g6293362974%_)))))) + (if (gx#stx-pair/null? _%tl6293763060%_) + (let ((_%__splice7876678767%_ + (gx#syntax-split-splice _%tl6293763060%_ '0))) + (let ((_%tl6296262994%_ (let () (declare (not safe)) - (##vector-ref _%__splice7894178942%_ '1))) - (_%target6313563166%_ + (##vector-ref _%__splice7876678767%_ '1))) + (_%target6296062991%_ (let () (declare (not safe)) - (##vector-ref _%__splice7894178942%_ '0)))) - (if (gx#stx-null? _%tl6313763169%_) - (_%__match7898978990%_ - _%e6311463228%_ - _%hd6311363232%_ - _%tl6311263235%_ - _%__splice7894178942%_ - _%target6313563166%_ - _%tl6313763169%_) - (let () (declare (not safe)) (_%g6310863149%_))))) - (let () (declare (not safe)) (_%g6310863149%_)))))) + (##vector-ref _%__splice7876678767%_ '0)))) + (if (gx#stx-null? _%tl6296262994%_) + (_%__match7881478815%_ + _%e6293963053%_ + _%hd6293863057%_ + _%tl6293763060%_ + _%__splice7876678767%_ + _%target6296062991%_ + _%tl6296262994%_) + (let () (declare (not safe)) (_%g6293362974%_))))) + (let () (declare (not safe)) (_%g6293362974%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6311263235%_) - (let ((_%__splice7894178942%_ + _%tl6293763060%_) + (let ((_%__splice7876678767%_ (gx#syntax-split-splice - _%tl6311263235%_ + _%tl6293763060%_ '0))) - (let ((_%tl6313763169%_ + (let ((_%tl6296262994%_ (let () (declare (not safe)) (##vector-ref - _%__splice7894178942%_ + _%__splice7876678767%_ '1))) - (_%target6313563166%_ + (_%target6296062991%_ (let () (declare (not safe)) (##vector-ref - _%__splice7894178942%_ + _%__splice7876678767%_ '0)))) (if (gx#stx-null? - _%tl6313763169%_) - (_%__match7898978990%_ - _%e6311463228%_ - _%hd6311363232%_ - _%tl6311263235%_ - _%__splice7894178942%_ - _%target6313563166%_ - _%tl6313763169%_) + _%tl6296262994%_) + (_%__match7881478815%_ + _%e6293963053%_ + _%hd6293863057%_ + _%tl6293763060%_ + _%__splice7876678767%_ + _%target6296062991%_ + _%tl6296262994%_) (let () (declare (not safe)) - (_%g6310863149%_))))) + (_%g6293362974%_))))) (let () (declare (not safe)) - (_%g6310863149%_)))) + (_%g6293362974%_)))) (if (gx#stx-pair/null? - _%tl6311263235%_) - (let ((_%__splice7894178942%_ + _%tl6293763060%_) + (let ((_%__splice7876678767%_ (gx#syntax-split-splice - _%tl6311263235%_ + _%tl6293763060%_ '0))) - (let ((_%tl6313763169%_ + (let ((_%tl6296262994%_ (let () (declare (not safe)) (##vector-ref - _%__splice7894178942%_ + _%__splice7876678767%_ '1))) - (_%target6313563166%_ + (_%target6296062991%_ (let () (declare (not safe)) (##vector-ref - _%__splice7894178942%_ + _%__splice7876678767%_ '0)))) (if (gx#stx-null? - _%tl6313763169%_) - (_%__match7898978990%_ - _%e6311463228%_ - _%hd6311363232%_ - _%tl6311263235%_ - _%__splice7894178942%_ - _%target6313563166%_ - _%tl6313763169%_) + _%tl6296262994%_) + (_%__match7881478815%_ + _%e6293963053%_ + _%hd6293863057%_ + _%tl6293763060%_ + _%__splice7876678767%_ + _%target6296062991%_ + _%tl6296262994%_) (let () (declare (not safe)) - (_%g6310863149%_))))) + (_%g6293362974%_))))) (let () (declare (not safe)) - (_%g6310863149%_))))) - (if (gx#stx-pair/null? _%tl6311263235%_) - (let ((_%__splice7894178942%_ + (_%g6293362974%_))))) + (if (gx#stx-pair/null? _%tl6293763060%_) + (let ((_%__splice7876678767%_ (gx#syntax-split-splice - _%tl6311263235%_ + _%tl6293763060%_ '0))) - (let ((_%tl6313763169%_ + (let ((_%tl6296262994%_ (let () (declare (not safe)) (##vector-ref - _%__splice7894178942%_ + _%__splice7876678767%_ '1))) - (_%target6313563166%_ + (_%target6296062991%_ (let () (declare (not safe)) (##vector-ref - _%__splice7894178942%_ + _%__splice7876678767%_ '0)))) (if (gx#stx-null? - _%tl6313763169%_) - (_%__match7898978990%_ - _%e6311463228%_ - _%hd6311363232%_ - _%tl6311263235%_ - _%__splice7894178942%_ - _%target6313563166%_ - _%tl6313763169%_) + _%tl6296262994%_) + (_%__match7881478815%_ + _%e6293963053%_ + _%hd6293863057%_ + _%tl6293763060%_ + _%__splice7876678767%_ + _%target6296062991%_ + _%tl6296262994%_) (let () (declare (not safe)) - (_%g6310863149%_))))) + (_%g6293362974%_))))) (let () (declare (not safe)) - (_%g6310863149%_)))))) - (if (gx#stx-pair/null? _%tl6311263235%_) - (let ((_%__splice7894178942%_ + (_%g6293362974%_)))))) + (if (gx#stx-pair/null? _%tl6293763060%_) + (let ((_%__splice7876678767%_ (gx#syntax-split-splice - _%tl6311263235%_ + _%tl6293763060%_ '0))) - (let ((_%tl6313763169%_ + (let ((_%tl6296262994%_ (let () (declare (not safe)) (##vector-ref - _%__splice7894178942%_ + _%__splice7876678767%_ '1))) - (_%target6313563166%_ + (_%target6296062991%_ (let () (declare (not safe)) (##vector-ref - _%__splice7894178942%_ + _%__splice7876678767%_ '0)))) - (if (gx#stx-null? _%tl6313763169%_) - (_%__match7898978990%_ - _%e6311463228%_ - _%hd6311363232%_ - _%tl6311263235%_ - _%__splice7894178942%_ - _%target6313563166%_ - _%tl6313763169%_) + (if (gx#stx-null? _%tl6296262994%_) + (_%__match7881478815%_ + _%e6293963053%_ + _%hd6293863057%_ + _%tl6293763060%_ + _%__splice7876678767%_ + _%target6296062991%_ + _%tl6296262994%_) (let () (declare (not safe)) - (_%g6310863149%_))))) + (_%g6293362974%_))))) (let () (declare (not safe)) - (_%g6310863149%_)))))) - (let () (declare (not safe)) (_%g6310863149%_)))))))))))) + (_%g6293362974%_)))))) + (let () (declare (not safe)) (_%g6293362974%_)))))))))))) diff --git a/src/bootstrap/gerbil/core/contract~9.scm b/src/bootstrap/gerbil/core/contract~9.scm index 4c89de6f2..a72dc77e2 100644 --- a/src/bootstrap/gerbil/core/contract~9.scm +++ b/src/bootstrap/gerbil/core/contract~9.scm @@ -1,3899 +1,3871 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypedDefinitions[1]#_g80897_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80624_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80904_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80631_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80907_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80634_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80908_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80635_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80913_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80640_| (##structure gx#syntax-quote::t '@method #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80914_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80641_| (##structure gx#syntax-quote::t 'lambda/c #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80915_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80642_| (##structure gx#syntax-quote::t 'case-lambda/c #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80917_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80643_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80919_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80645_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80920_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80646_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80921_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80647_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80923_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80649_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80924_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80650_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80925_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80651_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80927_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80653_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80928_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80654_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80929_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80655_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80930_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80656_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80931_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80657_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80932_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80658_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80933_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80659_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80934_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80660_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80935_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80661_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80936_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80662_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80937_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80663_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80938_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80664_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80939_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80665_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80940_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80666_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80941_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80667_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80942_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80668_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80943_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80669_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g80944_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g80670_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~TypedDefinitions[1]#is-signature?| - (lambda (_%formals63586%_) - (let _%lp63589%_ ((_%rest63592%_ _%formals63586%_)) - (let* ((_%__stx7899278993%_ _%rest63592%_) - (_%g6360163670%_ + (lambda (_%formals63411%_) + (let _%lp63414%_ ((_%rest63417%_ _%formals63411%_)) + (let* ((_%__stx7881778818%_ _%rest63417%_) + (_%g6342663495%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7899278993%_)))) - (let ((_%__kont7899578996%_ - (lambda (_%L63971%_ _%L63973%_) - (let () (declare (not safe)) (_%lp63589%_ _%L63971%_)))) - (_%__kont7899778998%_ - (lambda (_%L63937%_ _%L63939%_) - (let () (declare (not safe)) (_%lp63589%_ _%L63937%_)))) - (_%__kont7899979000%_ - (lambda (_%L63883%_ _%L63885%_ _%L63886%_) '#t)) - (_%__kont7900179002%_ - (lambda (_%L63839%_ _%L63841%_ _%L63842%_) - (let () (declare (not safe)) (_%lp63589%_ _%L63839%_)))) - (_%__kont7900379004%_ - (lambda (_%L63791%_ _%L63793%_ _%L63794%_) - (let () (declare (not safe)) (_%lp63589%_ _%L63791%_)))) - (_%__kont7900579006%_ - (lambda (_%L63718%_ _%L63720%_ _%L63721%_ _%L63722%_) '#t)) - (_%__kont7900779008%_ (lambda () '#f))) - (let* ((_%__match7910379104%_ - (lambda (_%e6365863688%_ - _%hd6365763692%_ - _%tl6365663695%_ - _%e6366163698%_ - _%hd6366063702%_ - _%tl6365963705%_ - _%e6366463708%_ - _%hd6366363712%_ - _%tl6366263715%_) - (let ((_%L63718%_ _%tl6365963705%_) - (_%L63720%_ _%tl6366263715%_) - (_%L63721%_ _%hd6366363712%_) - (_%L63722%_ _%hd6365763692%_)) - (if (and (gx#stx-keyword? _%L63722%_) - (gx#identifier? _%L63721%_) + _%__stx7881778818%_)))) + (let ((_%__kont7882078821%_ + (lambda (_%L63796%_ _%L63798%_) (_%lp63414%_ _%L63796%_))) + (_%__kont7882278823%_ + (lambda (_%L63762%_ _%L63764%_) (_%lp63414%_ _%L63762%_))) + (_%__kont7882478825%_ + (lambda (_%L63708%_ _%L63710%_ _%L63711%_) '#t)) + (_%__kont7882678827%_ + (lambda (_%L63664%_ _%L63666%_ _%L63667%_) + (_%lp63414%_ _%L63664%_))) + (_%__kont7882878829%_ + (lambda (_%L63616%_ _%L63618%_ _%L63619%_) + (_%lp63414%_ _%L63616%_))) + (_%__kont7883078831%_ + (lambda (_%L63543%_ _%L63545%_ _%L63546%_ _%L63547%_) '#t)) + (_%__kont7883278833%_ (lambda () '#f))) + (let* ((_%__match7892878929%_ + (lambda (_%e6348363513%_ + _%hd6348263517%_ + _%tl6348163520%_ + _%e6348663523%_ + _%hd6348563527%_ + _%tl6348463530%_ + _%e6348963533%_ + _%hd6348863537%_ + _%tl6348763540%_) + (let ((_%L63543%_ _%tl6348463530%_) + (_%L63545%_ _%tl6348763540%_) + (_%L63546%_ _%hd6348863537%_) + (_%L63547%_ _%hd6348263517%_)) + (if (and (gx#stx-keyword? _%L63547%_) + (gx#identifier? _%L63546%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L63720%_))) - (_%__kont7900579006%_ - _%L63718%_ - _%L63720%_ - _%L63721%_ - _%L63722%_) - (_%__kont7900779008%_))))) - (_%__match7908579086%_ - (lambda (_%e6364263751%_ - _%hd6364163755%_ - _%tl6364063758%_ - _%e6364563761%_ - _%hd6364463765%_ - _%tl6364363768%_ - _%e6364863771%_ - _%hd6364763775%_ - _%tl6364663778%_ - _%e6365163781%_ - _%hd6365063785%_ - _%tl6364963788%_) - (let ((_%L63791%_ _%tl6364363768%_) - (_%L63793%_ _%hd6364763775%_) - (_%L63794%_ _%hd6364163755%_)) - (if (and (gx#stx-keyword? _%L63794%_) - (gx#identifier? _%L63793%_)) - (_%__kont7900379004%_ - _%L63791%_ - _%L63793%_ - _%L63794%_) - (_%__match7910379104%_ - _%e6364263751%_ - _%hd6364163755%_ - _%tl6364063758%_ - _%e6364563761%_ - _%hd6364463765%_ - _%tl6364363768%_ - _%e6364863771%_ - _%hd6364763775%_ - _%tl6364663778%_))))) - (_%__match7905979060%_ - (lambda (_%e6363363819%_ - _%hd6363263823%_ - _%tl6363163826%_ - _%e6363663829%_ - _%hd6363563833%_ - _%tl6363463836%_) - (let ((_%L63839%_ _%tl6363463836%_) - (_%L63841%_ _%hd6363563833%_) - (_%L63842%_ _%hd6363263823%_)) - (if (and (gx#stx-keyword? _%L63842%_) - (gx#identifier? _%L63841%_)) - (_%__kont7900179002%_ - _%L63839%_ - _%L63841%_ - _%L63842%_) - (if (gx#stx-pair? _%hd6363563833%_) - (let ((_%e6364863771%_ - (gx#syntax-e _%hd6363563833%_))) - (let ((_%tl6364663778%_ + _%L63545%_))) + (_%__kont7883078831%_ + _%L63543%_ + _%L63545%_ + _%L63546%_ + _%L63547%_) + (_%__kont7883278833%_))))) + (_%__match7891078911%_ + (lambda (_%e6346763576%_ + _%hd6346663580%_ + _%tl6346563583%_ + _%e6347063586%_ + _%hd6346963590%_ + _%tl6346863593%_ + _%e6347363596%_ + _%hd6347263600%_ + _%tl6347163603%_ + _%e6347663606%_ + _%hd6347563610%_ + _%tl6347463613%_) + (let ((_%L63616%_ _%tl6346863593%_) + (_%L63618%_ _%hd6347263600%_) + (_%L63619%_ _%hd6346663580%_)) + (if (and (gx#stx-keyword? _%L63619%_) + (gx#identifier? _%L63618%_)) + (_%__kont7882878829%_ + _%L63616%_ + _%L63618%_ + _%L63619%_) + (_%__match7892878929%_ + _%e6346763576%_ + _%hd6346663580%_ + _%tl6346563583%_ + _%e6347063586%_ + _%hd6346963590%_ + _%tl6346863593%_ + _%e6347363596%_ + _%hd6347263600%_ + _%tl6347163603%_))))) + (_%__match7888478885%_ + (lambda (_%e6345863644%_ + _%hd6345763648%_ + _%tl6345663651%_ + _%e6346163654%_ + _%hd6346063658%_ + _%tl6345963661%_) + (let ((_%L63664%_ _%tl6345963661%_) + (_%L63666%_ _%hd6346063658%_) + (_%L63667%_ _%hd6345763648%_)) + (if (and (gx#stx-keyword? _%L63667%_) + (gx#identifier? _%L63666%_)) + (_%__kont7882678827%_ + _%L63664%_ + _%L63666%_ + _%L63667%_) + (if (gx#stx-pair? _%hd6346063658%_) + (let ((_%e6347363596%_ + (gx#syntax-e _%hd6346063658%_))) + (let ((_%tl6347163603%_ (let () (declare (not safe)) - (##cdr _%e6364863771%_))) - (_%hd6364763775%_ + (##cdr _%e6347363596%_))) + (_%hd6347263600%_ (let () (declare (not safe)) - (##car _%e6364863771%_)))) - (if (gx#stx-pair? _%tl6364663778%_) - (let ((_%e6365163781%_ + (##car _%e6347363596%_)))) + (if (gx#stx-pair? _%tl6347163603%_) + (let ((_%e6347663606%_ (gx#syntax-e - _%tl6364663778%_))) - (let ((_%tl6364963788%_ + _%tl6347163603%_))) + (let ((_%tl6347463613%_ (let () (declare (not safe)) - (##cdr _%e6365163781%_))) - (_%hd6365063785%_ + (##cdr _%e6347663606%_))) + (_%hd6347563610%_ (let () (declare (not safe)) - (##car _%e6365163781%_)))) + (##car _%e6347663606%_)))) (if (gx#stx-null? - _%tl6364963788%_) - (_%__match7908579086%_ - _%e6363363819%_ - _%hd6363263823%_ - _%tl6363163826%_ - _%e6363663829%_ - _%hd6363563833%_ - _%tl6363463836%_ - _%e6364863771%_ - _%hd6364763775%_ - _%tl6364663778%_ - _%e6365163781%_ - _%hd6365063785%_ - _%tl6364963788%_) - (_%__match7910379104%_ - _%e6363363819%_ - _%hd6363263823%_ - _%tl6363163826%_ - _%e6363663829%_ - _%hd6363563833%_ - _%tl6363463836%_ - _%e6364863771%_ - _%hd6364763775%_ - _%tl6364663778%_)))) - (_%__match7910379104%_ - _%e6363363819%_ - _%hd6363263823%_ - _%tl6363163826%_ - _%e6363663829%_ - _%hd6363563833%_ - _%tl6363463836%_ - _%e6364863771%_ - _%hd6364763775%_ - _%tl6364663778%_)))) - (_%__kont7900779008%_)))))) - (_%__match7904779048%_ - (lambda (_%e6362463863%_ - _%hd6362363867%_ - _%tl6362263870%_ - _%e6362763873%_ - _%hd6362663877%_ - _%tl6362563880%_) - (let ((_%L63883%_ _%tl6362263870%_) - (_%L63885%_ _%tl6362563880%_) - (_%L63886%_ _%hd6362663877%_)) - (if (and (gx#identifier? _%L63886%_) + _%tl6347463613%_) + (_%__match7891078911%_ + _%e6345863644%_ + _%hd6345763648%_ + _%tl6345663651%_ + _%e6346163654%_ + _%hd6346063658%_ + _%tl6345963661%_ + _%e6347363596%_ + _%hd6347263600%_ + _%tl6347163603%_ + _%e6347663606%_ + _%hd6347563610%_ + _%tl6347463613%_) + (_%__match7892878929%_ + _%e6345863644%_ + _%hd6345763648%_ + _%tl6345663651%_ + _%e6346163654%_ + _%hd6346063658%_ + _%tl6345963661%_ + _%e6347363596%_ + _%hd6347263600%_ + _%tl6347163603%_)))) + (_%__match7892878929%_ + _%e6345863644%_ + _%hd6345763648%_ + _%tl6345663651%_ + _%e6346163654%_ + _%hd6346063658%_ + _%tl6345963661%_ + _%e6347363596%_ + _%hd6347263600%_ + _%tl6347163603%_)))) + (_%__kont7883278833%_)))))) + (_%__match7887278873%_ + (lambda (_%e6344963688%_ + _%hd6344863692%_ + _%tl6344763695%_ + _%e6345263698%_ + _%hd6345163702%_ + _%tl6345063705%_) + (let ((_%L63708%_ _%tl6344763695%_) + (_%L63710%_ _%tl6345063705%_) + (_%L63711%_ _%hd6345163702%_)) + (if (and (gx#identifier? _%L63711%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L63885%_))) - (_%__kont7899979000%_ - _%L63883%_ - _%L63885%_ - _%L63886%_) - (if (gx#stx-pair? _%tl6362263870%_) - (let ((_%e6363663829%_ - (gx#syntax-e _%tl6362263870%_))) - (let ((_%tl6363463836%_ + _%L63710%_))) + (_%__kont7882478825%_ + _%L63708%_ + _%L63710%_ + _%L63711%_) + (if (gx#stx-pair? _%tl6344763695%_) + (let ((_%e6346163654%_ + (gx#syntax-e _%tl6344763695%_))) + (let ((_%tl6345963661%_ (let () (declare (not safe)) - (##cdr _%e6363663829%_))) - (_%hd6363563833%_ + (##cdr _%e6346163654%_))) + (_%hd6346063658%_ (let () (declare (not safe)) - (##car _%e6363663829%_)))) - (_%__match7905979060%_ - _%e6362463863%_ - _%hd6362363867%_ - _%tl6362263870%_ - _%e6363663829%_ - _%hd6363563833%_ - _%tl6363463836%_))) - (_%__kont7900779008%_)))))) - (_%__match7901579016%_ - (lambda (_%e6360763961%_ - _%hd6360663965%_ - _%tl6360563968%_) - (let ((_%L63971%_ _%tl6360563968%_) - (_%L63973%_ _%hd6360663965%_)) - (if (gx#identifier? _%L63973%_) - (_%__kont7899578996%_ _%L63971%_ _%L63973%_) - (if (gx#stx-pair? _%hd6360663965%_) - (let ((_%e6361563917%_ - (gx#syntax-e _%hd6360663965%_))) - (let ((_%tl6361363924%_ + (##car _%e6346163654%_)))) + (_%__match7888478885%_ + _%e6344963688%_ + _%hd6344863692%_ + _%tl6344763695%_ + _%e6346163654%_ + _%hd6346063658%_ + _%tl6345963661%_))) + (_%__kont7883278833%_)))))) + (_%__match7884078841%_ + (lambda (_%e6343263786%_ + _%hd6343163790%_ + _%tl6343063793%_) + (let ((_%L63796%_ _%tl6343063793%_) + (_%L63798%_ _%hd6343163790%_)) + (if (gx#identifier? _%L63798%_) + (_%__kont7882078821%_ _%L63796%_ _%L63798%_) + (if (gx#stx-pair? _%hd6343163790%_) + (let ((_%e6344063742%_ + (gx#syntax-e _%hd6343163790%_))) + (let ((_%tl6343863749%_ (let () (declare (not safe)) - (##cdr _%e6361563917%_))) - (_%hd6361463921%_ + (##cdr _%e6344063742%_))) + (_%hd6343963746%_ (let () (declare (not safe)) - (##car _%e6361563917%_)))) - (if (gx#stx-pair? _%tl6361363924%_) - (let ((_%e6361863927%_ + (##car _%e6344063742%_)))) + (if (gx#stx-pair? _%tl6343863749%_) + (let ((_%e6344363752%_ (gx#syntax-e - _%tl6361363924%_))) - (let ((_%tl6361663934%_ + _%tl6343863749%_))) + (let ((_%tl6344163759%_ (let () (declare (not safe)) - (##cdr _%e6361863927%_))) - (_%hd6361763931%_ + (##cdr _%e6344363752%_))) + (_%hd6344263756%_ (let () (declare (not safe)) - (##car _%e6361863927%_)))) + (##car _%e6344363752%_)))) (if (gx#stx-null? - _%tl6361663934%_) - (_%__kont7899778998%_ - _%tl6360563968%_ - _%hd6361463921%_) - (_%__match7904779048%_ - _%e6360763961%_ - _%hd6360663965%_ - _%tl6360563968%_ - _%e6361563917%_ - _%hd6361463921%_ - _%tl6361363924%_)))) - (_%__match7904779048%_ - _%e6360763961%_ - _%hd6360663965%_ - _%tl6360563968%_ - _%e6361563917%_ - _%hd6361463921%_ - _%tl6361363924%_)))) - (if (gx#stx-pair? _%tl6360563968%_) - (let ((_%e6363663829%_ - (gx#syntax-e _%tl6360563968%_))) - (let ((_%tl6363463836%_ + _%tl6344163759%_) + (_%__kont7882278823%_ + _%tl6343063793%_ + _%hd6343963746%_) + (_%__match7887278873%_ + _%e6343263786%_ + _%hd6343163790%_ + _%tl6343063793%_ + _%e6344063742%_ + _%hd6343963746%_ + _%tl6343863749%_)))) + (_%__match7887278873%_ + _%e6343263786%_ + _%hd6343163790%_ + _%tl6343063793%_ + _%e6344063742%_ + _%hd6343963746%_ + _%tl6343863749%_)))) + (if (gx#stx-pair? _%tl6343063793%_) + (let ((_%e6346163654%_ + (gx#syntax-e _%tl6343063793%_))) + (let ((_%tl6345963661%_ (let () (declare (not safe)) - (##cdr _%e6363663829%_))) - (_%hd6363563833%_ + (##cdr _%e6346163654%_))) + (_%hd6346063658%_ (let () (declare (not safe)) - (##car _%e6363663829%_)))) - (_%__match7905979060%_ - _%e6360763961%_ - _%hd6360663965%_ - _%tl6360563968%_ - _%e6363663829%_ - _%hd6363563833%_ - _%tl6363463836%_))) - (_%__kont7900779008%_)))))))) - (if (gx#stx-pair? _%__stx7899278993%_) - (let ((_%e6360763961%_ (gx#syntax-e _%__stx7899278993%_))) - (let ((_%tl6360563968%_ + (##car _%e6346163654%_)))) + (_%__match7888478885%_ + _%e6343263786%_ + _%hd6343163790%_ + _%tl6343063793%_ + _%e6346163654%_ + _%hd6346063658%_ + _%tl6345963661%_))) + (_%__kont7883278833%_)))))))) + (if (gx#stx-pair? _%__stx7881778818%_) + (let ((_%e6343263786%_ (gx#syntax-e _%__stx7881778818%_))) + (let ((_%tl6343063793%_ (let () (declare (not safe)) - (##cdr _%e6360763961%_))) - (_%hd6360663965%_ + (##cdr _%e6343263786%_))) + (_%hd6343163790%_ (let () (declare (not safe)) - (##car _%e6360763961%_)))) - (_%__match7901579016%_ - _%e6360763961%_ - _%hd6360663965%_ - _%tl6360563968%_))) - (_%__kont7900779008%_)))))))) + (##car _%e6343263786%_)))) + (_%__match7884078841%_ + _%e6343263786%_ + _%hd6343163790%_ + _%tl6343063793%_))) + (_%__kont7883278833%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#def/c| - (lambda (_%stx63988%_) - (letrec ((_%make-definition63991%_ - (lambda (_%id64895%_ - _%args64897%_ - _%return64898%_ - _%body64899%_) + (lambda (_%stx63813%_) + (letrec ((_%make-definition63816%_ + (lambda (_%id64720%_ + _%args64722%_ + _%return64723%_ + _%body64724%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#check-signature!__%| '#f absent-value absent-value - _%stx63988%_ - _%args64897%_ - _%return64898%_)) - (let* ((_%unchecked-id64901%_ - (gx#stx-identifier _%id64895%_ '"__" _%id64895%_)) - (_%g6490464919%_ - (lambda (_%g6490564915%_) + _%stx63813%_ + _%args64722%_ + _%return64723%_)) + (let* ((_%unchecked-id64726%_ + (gx#stx-identifier _%id64720%_ '"__" _%id64720%_)) + (_%g6472964744%_ + (lambda (_%g6473064740%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6490564915%_))) - (_%g6490364965%_ - (lambda (_%g6490564923%_) - (if (gx#stx-pair? _%g6490564923%_) - (let ((_%e6491064926%_ - (gx#syntax-e _%g6490564923%_))) - (let ((_%hd6490964930%_ + _%g6473064740%_))) + (_%g6472864790%_ + (lambda (_%g6473064748%_) + (if (gx#stx-pair? _%g6473064748%_) + (let ((_%e6473564751%_ + (gx#syntax-e _%g6473064748%_))) + (let ((_%hd6473464755%_ (let () (declare (not safe)) - (##car _%e6491064926%_))) - (_%tl6490864933%_ + (##car _%e6473564751%_))) + (_%tl6473364758%_ (let () (declare (not safe)) - (##cdr _%e6491064926%_)))) - (if (gx#stx-pair? _%tl6490864933%_) - (let ((_%e6491364936%_ + (##cdr _%e6473564751%_)))) + (if (gx#stx-pair? _%tl6473364758%_) + (let ((_%e6473864761%_ (gx#syntax-e - _%tl6490864933%_))) - (let ((_%hd6491264940%_ + _%tl6473364758%_))) + (let ((_%hd6473764765%_ (let () (declare (not safe)) - (##car _%e6491364936%_))) - (_%tl6491164943%_ + (##car _%e6473864761%_))) + (_%tl6473664768%_ (let () (declare (not safe)) - (##cdr _%e6491364936%_)))) + (##cdr _%e6473864761%_)))) (if (gx#stx-null? - _%tl6491164943%_) - ((lambda (_%L64946%_ - _%L64948%_) - (let () - (cons (gx#datum->syntax - '#f - 'begin) - (cons _%L64948%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L64946%_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd6491264940%_ - _%hd6490964930%_) - (_%g6490464919%_ - _%g6490564923%_)))) - (_%g6490464919%_ _%g6490564923%_)))) - (_%g6490464919%_ _%g6490564923%_))))) - (_%g6490364965%_ - (list (_%make-checked-def63993%_ - _%id64895%_ - _%unchecked-id64901%_ - _%args64897%_ - _%return64898%_) - (_%make-unchecked-def63994%_ - _%unchecked-id64901%_ - _%args64897%_ - _%return64898%_ - _%body64899%_)))))) - (_%make-checked-def63993%_ - (lambda (_%id64676%_ - _%unchecked-id64678%_ - _%signature64679%_ - _%return64680%_) - (let* ((_%g6468264726%_ - (lambda (_%g6468364722%_) + _%tl6473664768%_) + ((lambda (_%L64771%_ + _%L64773%_) + (cons (gx#datum->syntax + '#f + 'begin) + (cons _%L64773%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L64771%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd6473764765%_ + _%hd6473464755%_) + (_%g6472964744%_ + _%g6473064748%_)))) + (_%g6472964744%_ _%g6473064748%_)))) + (_%g6472964744%_ _%g6473064748%_))))) + (_%g6472864790%_ + (list (_%make-checked-def63818%_ + _%id64720%_ + _%unchecked-id64726%_ + _%args64722%_ + _%return64723%_) + (_%make-unchecked-def63819%_ + _%unchecked-id64726%_ + _%args64722%_ + _%return64723%_ + _%body64724%_)))))) + (_%make-checked-def63818%_ + (lambda (_%id64501%_ + _%unchecked-id64503%_ + _%signature64504%_ + _%return64505%_) + (let* ((_%g6450764551%_ + (lambda (_%g6450864547%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6468364722%_))) - (_%g6468164891%_ - (lambda (_%g6468364730%_) - (if (gx#stx-pair? _%g6468364730%_) - (let ((_%e6469364733%_ - (gx#syntax-e _%g6468364730%_))) - (let ((_%hd6469264737%_ + _%g6450864547%_))) + (_%g6450664716%_ + (lambda (_%g6450864555%_) + (if (gx#stx-pair? _%g6450864555%_) + (let ((_%e6451864558%_ + (gx#syntax-e _%g6450864555%_))) + (let ((_%hd6451764562%_ (let () (declare (not safe)) - (##car _%e6469364733%_))) - (_%tl6469164740%_ + (##car _%e6451864558%_))) + (_%tl6451664565%_ (let () (declare (not safe)) - (##cdr _%e6469364733%_)))) - (if (gx#stx-pair? _%tl6469164740%_) - (let ((_%e6469664743%_ + (##cdr _%e6451864558%_)))) + (if (gx#stx-pair? _%tl6451664565%_) + (let ((_%e6452164568%_ (gx#syntax-e - _%tl6469164740%_))) - (let ((_%hd6469564747%_ + _%tl6451664565%_))) + (let ((_%hd6452064572%_ (let () (declare (not safe)) - (##car _%e6469664743%_))) - (_%tl6469464750%_ + (##car _%e6452164568%_))) + (_%tl6451964575%_ (let () (declare (not safe)) - (##cdr _%e6469664743%_)))) + (##cdr _%e6452164568%_)))) (if (gx#stx-pair? - _%tl6469464750%_) - (let ((_%e6469964753%_ + _%tl6451964575%_) + (let ((_%e6452464578%_ (gx#syntax-e - _%tl6469464750%_))) - (let ((_%hd6469864757%_ + _%tl6451964575%_))) + (let ((_%hd6452364582%_ (let () (declare (not safe)) - (##car _%e6469964753%_))) - (_%tl6469764760%_ + (##car _%e6452464578%_))) + (_%tl6452264585%_ (let () (declare (not safe)) - (##cdr _%e6469964753%_)))) + (##cdr _%e6452464578%_)))) (if (gx#stx-pair? - _%tl6469764760%_) - (let ((_%e6470264763%_ + _%tl6452264585%_) + (let ((_%e6452764588%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6469764760%_))) - (let ((_%hd6470164767%_ + (gx#syntax-e _%tl6452264585%_))) + (let ((_%hd6452664592%_ (let () (declare (not safe)) - (##car _%e6470264763%_))) - (_%tl6470064770%_ + (##car _%e6452764588%_))) + (_%tl6452564595%_ (let () (declare (not safe)) - (##cdr _%e6470264763%_)))) - (if (gx#stx-pair/null? _%hd6470164767%_) - (let ((_g80893_ - (gx#syntax-split-splice _%hd6470164767%_ '0))) + (##cdr _%e6452764588%_)))) + (if (gx#stx-pair/null? _%hd6452664592%_) + (let ((_g80620_ + (gx#syntax-split-splice _%hd6452664592%_ '0))) (begin - (let ((_g80894_ + (let ((_g80621_ (let () (declare (not safe)) - (if (##values? _g80893_) - (##vector-length _g80893_) + (if (##values? _g80620_) + (##vector-length _g80620_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80894_ 2))) + (##fx= _g80621_ 2))) (error "Context expects 2 values" - _g80894_))) - (let ((_%target6470364773%_ + _g80621_))) + (let ((_%target6452864598%_ (let () (declare (not safe)) - (##vector-ref _g80893_ 0))) - (_%tl6470564776%_ + (##vector-ref _g80620_ 0))) + (_%tl6453064601%_ (let () (declare (not safe)) - (##vector-ref _g80893_ 1)))) - (if (gx#stx-null? _%tl6470564776%_) - (letrec ((_%loop6470664779%_ - (lambda (_%hd6470464783%_ - _%out6471064786%_) + (##vector-ref _g80620_ 1)))) + (if (gx#stx-null? _%tl6453064601%_) + (letrec ((_%loop6453164604%_ + (lambda (_%hd6452964608%_ + _%out6453564611%_) (if (gx#stx-pair? - _%hd6470464783%_) - (let ((_%e6470764789%_ + _%hd6452964608%_) + (let ((_%e6453264614%_ (gx#syntax-e - _%hd6470464783%_))) - (let ((_%lp-hd6470864793%_ + _%hd6452964608%_))) + (let ((_%lp-hd6453364618%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6470764789%_))) - (_%lp-tl6470964796%_ - (let () (declare (not safe)) (##cdr _%e6470764789%_)))) - (_%loop6470664779%_ - _%lp-tl6470964796%_ - (cons _%lp-hd6470864793%_ _%out6471064786%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%out6471164799%_ - (reverse _%out6471064786%_))) + (##car _%e6453264614%_))) + (_%lp-tl6453464621%_ + (let () (declare (not safe)) (##cdr _%e6453264614%_)))) + (_%loop6453164604%_ + _%lp-tl6453464621%_ + (cons _%lp-hd6453364618%_ _%out6453564611%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%out6453664624%_ + (reverse _%out6453564611%_))) (if (gx#stx-pair? - _%tl6470064770%_) - (let ((_%e6471464803%_ + _%tl6452564595%_) + (let ((_%e6453964628%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6470064770%_))) - (let ((_%hd6471364807%_ + (gx#syntax-e _%tl6452564595%_))) + (let ((_%hd6453864632%_ (let () (declare (not safe)) - (##car _%e6471464803%_))) - (_%tl6471264810%_ + (##car _%e6453964628%_))) + (_%tl6453764635%_ (let () (declare (not safe)) - (##cdr _%e6471464803%_)))) - (if (gx#stx-pair? _%tl6471264810%_) - (let ((_%e6471764813%_ - (gx#syntax-e _%tl6471264810%_))) - (let ((_%hd6471664817%_ + (##cdr _%e6453964628%_)))) + (if (gx#stx-pair? _%tl6453764635%_) + (let ((_%e6454264638%_ + (gx#syntax-e _%tl6453764635%_))) + (let ((_%hd6454164642%_ (let () (declare (not safe)) - (##car _%e6471764813%_))) - (_%tl6471564820%_ + (##car _%e6454264638%_))) + (_%tl6454064645%_ (let () (declare (not safe)) - (##cdr _%e6471764813%_)))) - (if (gx#stx-pair? _%tl6471564820%_) - (let ((_%e6472064823%_ - (gx#syntax-e _%tl6471564820%_))) - (let ((_%hd6471964827%_ + (##cdr _%e6454264638%_)))) + (if (gx#stx-pair? _%tl6454064645%_) + (let ((_%e6454564648%_ + (gx#syntax-e _%tl6454064645%_))) + (let ((_%hd6454464652%_ (let () (declare (not safe)) - (##car _%e6472064823%_))) - (_%tl6471864830%_ + (##car _%e6454564648%_))) + (_%tl6454364655%_ (let () (declare (not safe)) - (##cdr _%e6472064823%_)))) - (if (gx#stx-null? _%tl6471864830%_) - ((lambda (_%L64833%_ - _%L64835%_ - _%L64836%_ - _%L64837%_ - _%L64838%_ - _%L64839%_ - _%L64840%_) - (let () - (if (gx#stx-list? _%L64836%_) - (gx#stx-wrap-source - (cons (gx#datum->syntax - '#f - 'def) - (cons (cons _%L64840%_ + (##cdr _%e6454564648%_)))) + (if (gx#stx-null? _%tl6454364655%_) + ((lambda (_%L64658%_ + _%L64660%_ + _%L64661%_ + _%L64662%_ + _%L64663%_ + _%L64664%_ + _%L64665%_) + (if (gx#stx-list? _%L64661%_) + (gx#stx-wrap-source + (cons (gx#datum->syntax + '#f + 'def) + (cons (cons _%L64665%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L64838%_) - (cons (cons (gx#datum->syntax - '#f - 'with-procedure-signature) - (cons (cons _%L64836%_ - (cons _%L64835%_ - (cons _%L64839%_ '()))) - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax + _%L64663%_) + (cons (cons (gx#datum->syntax + '#f + 'with-procedure-signature) + (cons (cons _%L64661%_ + (cons _%L64660%_ + (cons _%L64664%_ '()))) + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@type) - (cons _%L64833%_ '())) - (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L64836%_ - (cons (cons _%L64839%_ - (foldr (lambda (_%g6487464877%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6487564880%_) - (cons _%g6487464877%_ _%g6487564880%_)) - '() - _%L64837%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) + '#f + '@type) + (cons _%L64658%_ '())) + (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) + (cons _%L64661%_ + (cons (cons _%L64664%_ + (foldr (lambda (_%g6469964702%_ + _%g6470064705%_) + (cons _%g6469964702%_ + _%g6470064705%_)) + '() + _%L64662%_)) + '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) + '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source - _%stx63988%_)) - (gx#stx-wrap-source - (cons (gx#datum->syntax - '#f - 'def) - (cons (cons _%L64840%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L64838%_) - (cons (cons (gx#datum->syntax - '#f - 'with-procedure-signature) - (cons (cons _%L64836%_ - (cons _%L64835%_ - (cons _%L64839%_ '()))) - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax + (gx#stx-source _%stx63813%_)) + (gx#stx-wrap-source + (cons (gx#datum->syntax + '#f + 'def) + (cons (cons _%L64665%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@type) - (cons _%L64833%_ '())) - (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L64836%_ - (cons (cons (gx#datum->syntax - '#f - '##apply) - (cons _%L64839%_ - (foldr (lambda (_%g6488264885%_ + _%L64663%_) + (cons (cons (gx#datum->syntax + '#f + 'with-procedure-signature) + (cons (cons _%L64661%_ + (cons _%L64660%_ + (cons _%L64664%_ '()))) + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6488364888%_) - (cons _%g6488264885%_ _%g6488364888%_)) - '() - _%L64837%_))) + '#f + '@type) + (cons _%L64658%_ '())) + (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) + (cons _%L64661%_ + (cons (cons (gx#datum->syntax '#f '##apply) + (cons _%L64664%_ + (foldr (lambda (_%g6470764710%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6470864713%_) + (cons _%g6470764710%_ _%g6470864713%_)) + '() + _%L64662%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) + '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) + '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source - _%stx63988%_))))) - _%hd6471964827%_ - _%hd6471664817%_ - _%hd6471364807%_ - _%out6471164799%_ - _%hd6469864757%_ - _%hd6469564747%_ - _%hd6469264737%_) - (_%g6468264726%_ _%g6468364730%_)))) - (_%g6468264726%_ _%g6468364730%_)))) - (_%g6468264726%_ _%g6468364730%_)))) - (_%g6468264726%_ _%g6468364730%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6470664779%_ - _%target6470364773%_ + (gx#stx-source + _%stx63813%_)))) + _%hd6454464652%_ + _%hd6454164642%_ + _%hd6453864632%_ + _%out6453664624%_ + _%hd6452364582%_ + _%hd6452064572%_ + _%hd6451764562%_) + (_%g6450764551%_ _%g6450864555%_)))) + (_%g6450764551%_ _%g6450864555%_)))) + (_%g6450764551%_ _%g6450864555%_)))) + (_%g6450764551%_ _%g6450864555%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6453164604%_ + _%target6452864598%_ '())) - (_%g6468264726%_ _%g6468364730%_))))) - (_%g6468264726%_ _%g6468364730%_)))) - (_%g6468264726%_ _%g6468364730%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6468264726%_ - _%g6468364730%_)))) - (_%g6468264726%_ _%g6468364730%_)))) - (_%g6468264726%_ _%g6468364730%_))))) - (_%g6468164891%_ - (list _%id64676%_ - _%unchecked-id64678%_ + (_%g6450764551%_ _%g6450864555%_))))) + (_%g6450764551%_ _%g6450864555%_)))) + (_%g6450764551%_ _%g6450864555%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6450764551%_ + _%g6450864555%_)))) + (_%g6450764551%_ _%g6450864555%_)))) + (_%g6450764551%_ _%g6450864555%_))))) + (_%g6450664716%_ + (list _%id64501%_ + _%unchecked-id64503%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature64679%_)) + _%signature64504%_)) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature64679%_)) - _%signature64679%_ - _%return64680%_ + _%signature64504%_)) + _%signature64504%_ + _%return64505%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx63988%_ - _%return64680%_))))))) - (_%make-unchecked-def63994%_ - (lambda (_%unchecked-id64501%_ - _%signature64503%_ - _%return64504%_ - _%body64505%_) - (let* ((_%g6450764543%_ - (lambda (_%g6450864539%_) + _%stx63813%_ + _%return64505%_))))))) + (_%make-unchecked-def63819%_ + (lambda (_%unchecked-id64326%_ + _%signature64328%_ + _%return64329%_ + _%body64330%_) + (let* ((_%g6433264368%_ + (lambda (_%g6433364364%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6450864539%_))) - (_%g6450664672%_ - (lambda (_%g6450864547%_) - (if (gx#stx-pair? _%g6450864547%_) - (let ((_%e6451664550%_ - (gx#syntax-e _%g6450864547%_))) - (let ((_%hd6451564554%_ + _%g6433364364%_))) + (_%g6433164497%_ + (lambda (_%g6433364372%_) + (if (gx#stx-pair? _%g6433364372%_) + (let ((_%e6434164375%_ + (gx#syntax-e _%g6433364372%_))) + (let ((_%hd6434064379%_ (let () (declare (not safe)) - (##car _%e6451664550%_))) - (_%tl6451464557%_ + (##car _%e6434164375%_))) + (_%tl6433964382%_ (let () (declare (not safe)) - (##cdr _%e6451664550%_)))) - (if (gx#stx-pair? _%tl6451464557%_) - (let ((_%e6451964560%_ + (##cdr _%e6434164375%_)))) + (if (gx#stx-pair? _%tl6433964382%_) + (let ((_%e6434464385%_ (gx#syntax-e - _%tl6451464557%_))) - (let ((_%hd6451864564%_ + _%tl6433964382%_))) + (let ((_%hd6434364389%_ (let () (declare (not safe)) - (##car _%e6451964560%_))) - (_%tl6451764567%_ + (##car _%e6434464385%_))) + (_%tl6434264392%_ (let () (declare (not safe)) - (##cdr _%e6451964560%_)))) + (##cdr _%e6434464385%_)))) (if (gx#stx-pair? - _%tl6451764567%_) - (let ((_%e6452264570%_ + _%tl6434264392%_) + (let ((_%e6434764395%_ (gx#syntax-e - _%tl6451764567%_))) - (let ((_%hd6452164574%_ + _%tl6434264392%_))) + (let ((_%hd6434664399%_ (let () (declare (not safe)) - (##car _%e6452264570%_))) - (_%tl6452064577%_ + (##car _%e6434764395%_))) + (_%tl6434564402%_ (let () (declare (not safe)) - (##cdr _%e6452264570%_)))) + (##cdr _%e6434764395%_)))) (if (gx#stx-pair? - _%tl6452064577%_) - (let ((_%e6452564580%_ + _%tl6434564402%_) + (let ((_%e6435064405%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6452064577%_))) - (let ((_%hd6452464584%_ + (gx#syntax-e _%tl6434564402%_))) + (let ((_%hd6434964409%_ (let () (declare (not safe)) - (##car _%e6452564580%_))) - (_%tl6452364587%_ + (##car _%e6435064405%_))) + (_%tl6434864412%_ (let () (declare (not safe)) - (##cdr _%e6452564580%_)))) - (if (gx#stx-pair? _%tl6452364587%_) - (let ((_%e6452864590%_ - (gx#syntax-e _%tl6452364587%_))) - (let ((_%hd6452764594%_ + (##cdr _%e6435064405%_)))) + (if (gx#stx-pair? _%tl6434864412%_) + (let ((_%e6435364415%_ + (gx#syntax-e _%tl6434864412%_))) + (let ((_%hd6435264419%_ (let () (declare (not safe)) - (##car _%e6452864590%_))) - (_%tl6452664597%_ + (##car _%e6435364415%_))) + (_%tl6435164422%_ (let () (declare (not safe)) - (##cdr _%e6452864590%_)))) - (if (gx#stx-pair/null? _%hd6452764594%_) - (let ((_g80895_ + (##cdr _%e6435364415%_)))) + (if (gx#stx-pair/null? _%hd6435264419%_) + (let ((_g80622_ (gx#syntax-split-splice - _%hd6452764594%_ + _%hd6435264419%_ '0))) (begin - (let ((_g80896_ + (let ((_g80623_ (let () (declare (not safe)) - (if (##values? _g80895_) - (##vector-length _g80895_) + (if (##values? _g80622_) + (##vector-length _g80622_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80896_ 2))) + (##fx= _g80623_ 2))) (error "Context expects 2 values" - _g80896_))) - (let ((_%target6452964600%_ + _g80623_))) + (let ((_%target6435464425%_ (let () (declare (not safe)) - (##vector-ref _g80895_ 0))) - (_%tl6453164603%_ + (##vector-ref _g80622_ 0))) + (_%tl6435664428%_ (let () (declare (not safe)) - (##vector-ref _g80895_ 1)))) - (if (gx#stx-null? _%tl6453164603%_) - (letrec ((_%loop6453264606%_ - (lambda (_%hd6453064610%_ - _%body6453664613%_) + (##vector-ref _g80622_ 1)))) + (if (gx#stx-null? _%tl6435664428%_) + (letrec ((_%loop6435764431%_ + (lambda (_%hd6435564435%_ + _%body6436164438%_) (if (gx#stx-pair? - _%hd6453064610%_) - (let ((_%e6453364616%_ + _%hd6435564435%_) + (let ((_%e6435864441%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6453064610%_))) - (let ((_%lp-hd6453464620%_ + (gx#syntax-e _%hd6435564435%_))) + (let ((_%lp-hd6435964445%_ (let () (declare (not safe)) - (##car _%e6453364616%_))) - (_%lp-tl6453564623%_ + (##car _%e6435864441%_))) + (_%lp-tl6436064448%_ (let () (declare (not safe)) - (##cdr _%e6453364616%_)))) - (_%loop6453264606%_ - _%lp-tl6453564623%_ - (cons _%lp-hd6453464620%_ _%body6453664613%_)))) - (let ((_%body6453764626%_ (reverse _%body6453664613%_))) - (if (gx#stx-null? _%tl6452664597%_) - ((lambda (_%L64630%_ - _%L64632%_ - _%L64633%_ - _%L64634%_ - _%L64635%_) - (let () - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L64635%_ _%L64634%_) - (cons (cons (gx#datum->syntax - '#f - 'with-procedure-signature) - (cons (cons '#f + (##cdr _%e6435864441%_)))) + (_%loop6435764431%_ + _%lp-tl6436064448%_ + (cons _%lp-hd6435964445%_ _%body6436164438%_)))) + (let ((_%body6436264451%_ (reverse _%body6436164438%_))) + (if (gx#stx-null? _%tl6435164422%_) + ((lambda (_%L64455%_ + _%L64457%_ + _%L64458%_ + _%L64459%_ + _%L64460%_) + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'def) + (cons (cons _%L64460%_ _%L64459%_) + (cons (cons (gx#datum->syntax + '#f + 'with-procedure-signature) + (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L64632%_ (cons '#f '()))) - (cons (cons (gx#datum->syntax - '#f - 'with-procedure-unchecked-contract) - (cons _%L64633%_ - (foldr (lambda (_%g6466364666%_ - _%g6466464669%_) - (cons _%g6466364666%_ - _%g6466464669%_)) - '() - _%L64630%_))) - '()))) + (cons _%L64457%_ (cons '#f '()))) + (cons (cons (gx#datum->syntax + '#f + 'with-procedure-unchecked-contract) + (cons _%L64458%_ + (foldr (lambda (_%g6448864491%_ + _%g6448964494%_) + (cons _%g6448864491%_ + _%g6448964494%_)) + '() + _%L64455%_))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (gx#stx-source _%stx63988%_)))) - _%body6453764626%_ - _%hd6452464584%_ - _%hd6452164574%_ - _%hd6451864564%_ - _%hd6451564554%_) - (_%g6450764543%_ _%g6450864547%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6453264606%_ - _%target6452964600%_ + '()))) + (gx#stx-source _%stx63813%_))) + _%body6436264451%_ + _%hd6434964409%_ + _%hd6434664399%_ + _%hd6434364389%_ + _%hd6434064379%_) + (_%g6433264368%_ _%g6433364372%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6435764431%_ + _%target6435464425%_ '())) - (_%g6450764543%_ - _%g6450864547%_))))) - (_%g6450764543%_ _%g6450864547%_)))) - (_%g6450764543%_ _%g6450864547%_)))) - (_%g6450764543%_ _%g6450864547%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6450764543%_ - _%g6450864547%_)))) - (_%g6450764543%_ _%g6450864547%_)))) - (_%g6450764543%_ _%g6450864547%_))))) - (_%g6450664672%_ - (list _%unchecked-id64501%_ + (_%g6433264368%_ + _%g6433364372%_))))) + (_%g6433264368%_ _%g6433364372%_)))) + (_%g6433264368%_ _%g6433364372%_)))) + (_%g6433264368%_ _%g6433364372%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6433264368%_ + _%g6433364372%_)))) + (_%g6433264368%_ _%g6433364372%_)))) + (_%g6433264368%_ _%g6433364372%_))))) + (_%g6433164497%_ + (list _%unchecked-id64326%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature64503%_)) - _%signature64503%_ - _%return64504%_ - _%body64505%_)))))) - (let* ((_%__stx7910679107%_ _%stx63988%_) - (_%g6399964091%_ + _%signature64328%_)) + _%signature64328%_ + _%return64329%_ + _%body64330%_)))))) + (let* ((_%__stx7893178932%_ _%stx63813%_) + (_%g6382463916%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7910679107%_)))) - (let ((_%__kont7910979110%_ - (lambda (_%L64452%_ _%L64454%_ _%L64455%_ _%L64456%_) - (if (let () - (declare (not safe)) - (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L64455%_)) - (_%make-definition63991%_ - _%L64456%_ - _%L64455%_ - _%L64454%_ - (foldr (lambda (_%g6448064483%_ _%g6448164486%_) - (cons _%g6448064483%_ _%g6448164486%_)) + _%__stx7893178932%_)))) + (let ((_%__kont7893478935%_ + (lambda (_%L64277%_ _%L64279%_ _%L64280%_ _%L64281%_) + (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| + _%L64280%_) + (_%make-definition63816%_ + _%L64281%_ + _%L64280%_ + _%L64279%_ + (foldr (lambda (_%g6430564308%_ _%g6430664311%_) + (cons _%g6430564308%_ _%g6430664311%_)) '() - _%L64452%_)) + _%L64277%_)) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L64456%_ _%L64455%_) + (cons (cons _%L64281%_ _%L64280%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f - (cons _%L64454%_ + (cons _%L64279%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '()))) - (foldr (lambda (_%g6448864491%_ _%g6448964494%_) - (cons _%g6448864491%_ _%g6448964494%_)) + (foldr (lambda (_%g6431364316%_ _%g6431464319%_) + (cons _%g6431364316%_ _%g6431464319%_)) '() - _%L64452%_))) + _%L64277%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont7911379114%_ - (lambda (_%L64326%_ _%L64328%_ _%L64329%_) - (if (let () - (declare (not safe)) - (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L64328%_)) + (_%__kont7893878939%_ + (lambda (_%L64151%_ _%L64153%_ _%L64154%_) + (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| + _%L64153%_) (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L64329%_ _%L64328%_) + (cons (cons _%L64154%_ _%L64153%_) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6434864351%_ + (foldr (lambda (_%g6417364176%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6434964354%_) - (cons _%g6434864351%_ _%g6434964354%_)) + _%g6417464179%_) + (cons _%g6417364176%_ _%g6417464179%_)) '() - _%L64326%_))))) + _%L64151%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L64329%_ _%L64328%_) - (foldr (lambda (_%g6435664359%_ - _%g6435764362%_) - (cons _%g6435664359%_ - _%g6435764362%_)) + (cons (cons _%L64154%_ _%L64153%_) + (foldr (lambda (_%g6418164184%_ + _%g6418264187%_) + (cons _%g6418164184%_ + _%g6418264187%_)) '() - _%L64326%_)))))) - (_%__kont7911779118%_ - (lambda (_%L64224%_ _%L64226%_ _%L64227%_ _%L64228%_) + _%L64151%_)))))) + (_%__kont7894278943%_ + (lambda (_%L64049%_ _%L64051%_ _%L64052%_ _%L64053%_) (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L64228%_ _%L64227%_) + (cons (cons _%L64053%_ _%L64052%_) (cons (cons (gx#datum->syntax '#f 'lambda/c) - (cons _%L64226%_ - (foldr (lambda (_%g6425064253%_ + (cons _%L64051%_ + (foldr (lambda (_%g6407564078%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6425164256%_) - (cons _%g6425064253%_ _%g6425164256%_)) + _%g6407664081%_) + (cons _%g6407564078%_ _%g6407664081%_)) '() - _%L64224%_))) + _%L64049%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7912179122%_ - (lambda (_%L64128%_ _%L64130%_) + (_%__kont7894678947%_ + (lambda (_%L63953%_ _%L63955%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L64130%_ (cons _%L64128%_ '())))))) - (let* ((_%__match7924379244%_ - (lambda (_%e6407964098%_ - _%hd6407864102%_ - _%tl6407764105%_ - _%e6408264108%_ - _%hd6408164112%_ - _%tl6408064115%_ - _%e6408564118%_ - _%hd6408464122%_ - _%tl6408364125%_) - (let ((_%L64128%_ _%hd6408464122%_) - (_%L64130%_ _%hd6408164112%_)) - (if (gx#identifier? _%L64130%_) - (_%__kont7912179122%_ _%L64128%_ _%L64130%_) + (cons _%L63955%_ (cons _%L63953%_ '())))))) + (let* ((_%__match7906879069%_ + (lambda (_%e6390463923%_ + _%hd6390363927%_ + _%tl6390263930%_ + _%e6390763933%_ + _%hd6390663937%_ + _%tl6390563940%_ + _%e6391063943%_ + _%hd6390963947%_ + _%tl6390863950%_) + (let ((_%L63953%_ _%hd6390963947%_) + (_%L63955%_ _%hd6390663937%_)) + (if (gx#identifier? _%L63955%_) + (_%__kont7894678947%_ _%L63953%_ _%L63955%_) (let () (declare (not safe)) - (_%g6399964091%_)))))) - (_%__match7922379224%_ - (lambda (_%e6405664154%_ - _%hd6405564158%_ - _%tl6405464161%_ - _%e6405964164%_ - _%hd6405864168%_ - _%tl6405764171%_ - _%e6406264174%_ - _%hd6406164178%_ - _%tl6406064181%_ - _%e6406564184%_ - _%hd6406464188%_ - _%tl6406364191%_ - _%__splice7911979120%_ - _%target6406664194%_ - _%tl6406864197%_) - (letrec ((_%loop6406964200%_ - (lambda (_%hd6406764204%_ _%body6407364207%_) - (if (gx#stx-pair? _%hd6406764204%_) - (let ((_%e6407064210%_ - (gx#syntax-e _%hd6406764204%_))) - (let ((_%lp-tl6407264217%_ + (_%g6382463916%_)))))) + (_%__match7904879049%_ + (lambda (_%e6388163979%_ + _%hd6388063983%_ + _%tl6387963986%_ + _%e6388463989%_ + _%hd6388363993%_ + _%tl6388263996%_ + _%e6388763999%_ + _%hd6388664003%_ + _%tl6388564006%_ + _%e6389064009%_ + _%hd6388964013%_ + _%tl6388864016%_ + _%__splice7894478945%_ + _%target6389164019%_ + _%tl6389364022%_) + (letrec ((_%loop6389464025%_ + (lambda (_%hd6389264029%_ _%body6389864032%_) + (if (gx#stx-pair? _%hd6389264029%_) + (let ((_%e6389564035%_ + (gx#syntax-e _%hd6389264029%_))) + (let ((_%lp-tl6389764042%_ (let () (declare (not safe)) - (##cdr _%e6407064210%_))) - (_%lp-hd6407164214%_ + (##cdr _%e6389564035%_))) + (_%lp-hd6389664039%_ (let () (declare (not safe)) - (##car _%e6407064210%_)))) - (_%loop6406964200%_ - _%lp-tl6407264217%_ - (cons _%lp-hd6407164214%_ - _%body6407364207%_)))) - (let ((_%body6407464220%_ - (reverse _%body6407364207%_))) - (_%__kont7911779118%_ - _%body6407464220%_ - _%tl6406064181%_ - _%tl6406364191%_ - _%hd6406464188%_)))))) - (_%loop6406964200%_ _%target6406664194%_ '())))) - (_%__match7920979210%_ - (lambda (_%e6405664154%_ - _%hd6405564158%_ - _%tl6405464161%_ - _%e6405964164%_ - _%hd6405864168%_ - _%tl6405764171%_ - _%e6406264174%_ - _%hd6406164178%_ - _%tl6406064181%_) - (if (gx#stx-pair? _%hd6406164178%_) - (let ((_%e6406564184%_ - (gx#syntax-e _%hd6406164178%_))) - (let ((_%tl6406364191%_ + (##car _%e6389564035%_)))) + (_%loop6389464025%_ + _%lp-tl6389764042%_ + (cons _%lp-hd6389664039%_ + _%body6389864032%_)))) + (let ((_%body6389964045%_ + (reverse _%body6389864032%_))) + (_%__kont7894278943%_ + _%body6389964045%_ + _%tl6388564006%_ + _%tl6388864016%_ + _%hd6388964013%_)))))) + (_%loop6389464025%_ _%target6389164019%_ '())))) + (_%__match7903479035%_ + (lambda (_%e6388163979%_ + _%hd6388063983%_ + _%tl6387963986%_ + _%e6388463989%_ + _%hd6388363993%_ + _%tl6388263996%_ + _%e6388763999%_ + _%hd6388664003%_ + _%tl6388564006%_) + (if (gx#stx-pair? _%hd6388664003%_) + (let ((_%e6389064009%_ + (gx#syntax-e _%hd6388664003%_))) + (let ((_%tl6388864016%_ (let () (declare (not safe)) - (##cdr _%e6406564184%_))) - (_%hd6406464188%_ + (##cdr _%e6389064009%_))) + (_%hd6388964013%_ (let () (declare (not safe)) - (##car _%e6406564184%_)))) - (if (gx#stx-pair/null? _%tl6405764171%_) - (let ((_%__splice7911979120%_ + (##car _%e6389064009%_)))) + (if (gx#stx-pair/null? _%tl6388263996%_) + (let ((_%__splice7894478945%_ (gx#syntax-split-splice - _%tl6405764171%_ + _%tl6388263996%_ '0))) - (let ((_%tl6406864197%_ + (let ((_%tl6389364022%_ (let () (declare (not safe)) (##vector-ref - _%__splice7911979120%_ + _%__splice7894478945%_ '1))) - (_%target6406664194%_ + (_%target6389164019%_ (let () (declare (not safe)) (##vector-ref - _%__splice7911979120%_ + _%__splice7894478945%_ '0)))) - (if (gx#stx-null? _%tl6406864197%_) - (_%__match7922379224%_ - _%e6405664154%_ - _%hd6405564158%_ - _%tl6405464161%_ - _%e6405964164%_ - _%hd6405864168%_ - _%tl6405764171%_ - _%e6406264174%_ - _%hd6406164178%_ - _%tl6406064181%_ - _%e6406564184%_ - _%hd6406464188%_ - _%tl6406364191%_ - _%__splice7911979120%_ - _%target6406664194%_ - _%tl6406864197%_) - (if (gx#stx-pair? _%tl6405764171%_) - (let ((_%e6408564118%_ + (if (gx#stx-null? _%tl6389364022%_) + (_%__match7904879049%_ + _%e6388163979%_ + _%hd6388063983%_ + _%tl6387963986%_ + _%e6388463989%_ + _%hd6388363993%_ + _%tl6388263996%_ + _%e6388763999%_ + _%hd6388664003%_ + _%tl6388564006%_ + _%e6389064009%_ + _%hd6388964013%_ + _%tl6388864016%_ + _%__splice7894478945%_ + _%target6389164019%_ + _%tl6389364022%_) + (if (gx#stx-pair? _%tl6388263996%_) + (let ((_%e6391063943%_ (gx#syntax-e - _%tl6405764171%_))) - (let ((_%tl6408364125%_ + _%tl6388263996%_))) + (let ((_%tl6390863950%_ (let () (declare (not safe)) - (##cdr _%e6408564118%_))) - (_%hd6408464122%_ + (##cdr _%e6391063943%_))) + (_%hd6390963947%_ (let () (declare (not safe)) - (##car _%e6408564118%_)))) + (##car _%e6391063943%_)))) (if (gx#stx-null? - _%tl6408364125%_) - (_%__match7924379244%_ - _%e6405664154%_ - _%hd6405564158%_ - _%tl6405464161%_ - _%e6405964164%_ - _%hd6405864168%_ - _%tl6405764171%_ - _%e6408564118%_ - _%hd6408464122%_ - _%tl6408364125%_) + _%tl6390863950%_) + (_%__match7906879069%_ + _%e6388163979%_ + _%hd6388063983%_ + _%tl6387963986%_ + _%e6388463989%_ + _%hd6388363993%_ + _%tl6388263996%_ + _%e6391063943%_ + _%hd6390963947%_ + _%tl6390863950%_) (let () (declare (not safe)) - (_%g6399964091%_))))) + (_%g6382463916%_))))) (let () (declare (not safe)) - (_%g6399964091%_)))))) - (if (gx#stx-pair? _%tl6405764171%_) - (let ((_%e6408564118%_ - (gx#syntax-e _%tl6405764171%_))) - (let ((_%tl6408364125%_ + (_%g6382463916%_)))))) + (if (gx#stx-pair? _%tl6388263996%_) + (let ((_%e6391063943%_ + (gx#syntax-e _%tl6388263996%_))) + (let ((_%tl6390863950%_ (let () (declare (not safe)) - (##cdr _%e6408564118%_))) - (_%hd6408464122%_ + (##cdr _%e6391063943%_))) + (_%hd6390963947%_ (let () (declare (not safe)) - (##car _%e6408564118%_)))) - (if (gx#stx-null? _%tl6408364125%_) - (_%__match7924379244%_ - _%e6405664154%_ - _%hd6405564158%_ - _%tl6405464161%_ - _%e6405964164%_ - _%hd6405864168%_ - _%tl6405764171%_ - _%e6408564118%_ - _%hd6408464122%_ - _%tl6408364125%_) + (##car _%e6391063943%_)))) + (if (gx#stx-null? _%tl6390863950%_) + (_%__match7906879069%_ + _%e6388163979%_ + _%hd6388063983%_ + _%tl6387963986%_ + _%e6388463989%_ + _%hd6388363993%_ + _%tl6388263996%_ + _%e6391063943%_ + _%hd6390963947%_ + _%tl6390863950%_) (let () (declare (not safe)) - (_%g6399964091%_))))) + (_%g6382463916%_))))) (let () (declare (not safe)) - (_%g6399964091%_)))))) - (if (gx#stx-pair? _%tl6405764171%_) - (let ((_%e6408564118%_ - (gx#syntax-e _%tl6405764171%_))) - (let ((_%tl6408364125%_ + (_%g6382463916%_)))))) + (if (gx#stx-pair? _%tl6388263996%_) + (let ((_%e6391063943%_ + (gx#syntax-e _%tl6388263996%_))) + (let ((_%tl6390863950%_ (let () (declare (not safe)) - (##cdr _%e6408564118%_))) - (_%hd6408464122%_ + (##cdr _%e6391063943%_))) + (_%hd6390963947%_ (let () (declare (not safe)) - (##car _%e6408564118%_)))) - (if (gx#stx-null? _%tl6408364125%_) - (_%__match7924379244%_ - _%e6405664154%_ - _%hd6405564158%_ - _%tl6405464161%_ - _%e6405964164%_ - _%hd6405864168%_ - _%tl6405764171%_ - _%e6408564118%_ - _%hd6408464122%_ - _%tl6408364125%_) + (##car _%e6391063943%_)))) + (if (gx#stx-null? _%tl6390863950%_) + (_%__match7906879069%_ + _%e6388163979%_ + _%hd6388063983%_ + _%tl6387963986%_ + _%e6388463989%_ + _%hd6388363993%_ + _%tl6388263996%_ + _%e6391063943%_ + _%hd6390963947%_ + _%tl6390863950%_) (let () (declare (not safe)) - (_%g6399964091%_))))) + (_%g6382463916%_))))) (let () (declare (not safe)) - (_%g6399964091%_)))))) - (_%__match7919179192%_ - (lambda (_%e6403464266%_ - _%hd6403364270%_ - _%tl6403264273%_ - _%e6403764276%_ - _%hd6403664280%_ - _%tl6403564283%_ - _%e6404064286%_ - _%hd6403964290%_ - _%tl6403864293%_ - _%__splice7911579116%_ - _%target6404164296%_ - _%tl6404364299%_) - (letrec ((_%loop6404464302%_ - (lambda (_%hd6404264306%_ _%body6404864309%_) - (if (gx#stx-pair? _%hd6404264306%_) - (let ((_%e6404564312%_ - (gx#syntax-e _%hd6404264306%_))) - (let ((_%lp-tl6404764319%_ + (_%g6382463916%_)))))) + (_%__match7901679017%_ + (lambda (_%e6385964091%_ + _%hd6385864095%_ + _%tl6385764098%_ + _%e6386264101%_ + _%hd6386164105%_ + _%tl6386064108%_ + _%e6386564111%_ + _%hd6386464115%_ + _%tl6386364118%_ + _%__splice7894078941%_ + _%target6386664121%_ + _%tl6386864124%_) + (letrec ((_%loop6386964127%_ + (lambda (_%hd6386764131%_ _%body6387364134%_) + (if (gx#stx-pair? _%hd6386764131%_) + (let ((_%e6387064137%_ + (gx#syntax-e _%hd6386764131%_))) + (let ((_%lp-tl6387264144%_ (let () (declare (not safe)) - (##cdr _%e6404564312%_))) - (_%lp-hd6404664316%_ + (##cdr _%e6387064137%_))) + (_%lp-hd6387164141%_ (let () (declare (not safe)) - (##car _%e6404564312%_)))) - (_%loop6404464302%_ - _%lp-tl6404764319%_ - (cons _%lp-hd6404664316%_ - _%body6404864309%_)))) - (let ((_%body6404964322%_ - (reverse _%body6404864309%_))) - (let ((_%L64326%_ _%body6404964322%_) - (_%L64328%_ _%tl6403864293%_) - (_%L64329%_ _%hd6403964290%_)) - (if (gx#identifier? _%L64329%_) - (_%__kont7911379114%_ - _%L64326%_ - _%L64328%_ - _%L64329%_) - (_%__match7920979210%_ - _%e6403464266%_ - _%hd6403364270%_ - _%tl6403264273%_ - _%e6403764276%_ - _%hd6403664280%_ - _%tl6403564283%_ - _%e6404064286%_ - _%hd6403964290%_ - _%tl6403864293%_)))))))) - (_%loop6404464302%_ _%target6404164296%_ '())))) - (_%__match7918379184%_ - (lambda (_%e6403464266%_ - _%hd6403364270%_ - _%tl6403264273%_ - _%e6403764276%_ - _%hd6403664280%_ - _%tl6403564283%_ - _%e6404064286%_ - _%hd6403964290%_ - _%tl6403864293%_) - (if (gx#stx-pair/null? _%tl6403564283%_) - (let ((_%__splice7911579116%_ + (##car _%e6387064137%_)))) + (_%loop6386964127%_ + _%lp-tl6387264144%_ + (cons _%lp-hd6387164141%_ + _%body6387364134%_)))) + (let ((_%body6387464147%_ + (reverse _%body6387364134%_))) + (let ((_%L64151%_ _%body6387464147%_) + (_%L64153%_ _%tl6386364118%_) + (_%L64154%_ _%hd6386464115%_)) + (if (gx#identifier? _%L64154%_) + (_%__kont7893878939%_ + _%L64151%_ + _%L64153%_ + _%L64154%_) + (_%__match7903479035%_ + _%e6385964091%_ + _%hd6385864095%_ + _%tl6385764098%_ + _%e6386264101%_ + _%hd6386164105%_ + _%tl6386064108%_ + _%e6386564111%_ + _%hd6386464115%_ + _%tl6386364118%_)))))))) + (_%loop6386964127%_ _%target6386664121%_ '())))) + (_%__match7900879009%_ + (lambda (_%e6385964091%_ + _%hd6385864095%_ + _%tl6385764098%_ + _%e6386264101%_ + _%hd6386164105%_ + _%tl6386064108%_ + _%e6386564111%_ + _%hd6386464115%_ + _%tl6386364118%_) + (if (gx#stx-pair/null? _%tl6386064108%_) + (let ((_%__splice7894078941%_ (gx#syntax-split-splice - _%tl6403564283%_ + _%tl6386064108%_ '0))) - (let ((_%tl6404364299%_ + (let ((_%tl6386864124%_ (let () (declare (not safe)) (##vector-ref - _%__splice7911579116%_ + _%__splice7894078941%_ '1))) - (_%target6404164296%_ + (_%target6386664121%_ (let () (declare (not safe)) (##vector-ref - _%__splice7911579116%_ + _%__splice7894078941%_ '0)))) - (if (gx#stx-null? _%tl6404364299%_) - (_%__match7919179192%_ - _%e6403464266%_ - _%hd6403364270%_ - _%tl6403264273%_ - _%e6403764276%_ - _%hd6403664280%_ - _%tl6403564283%_ - _%e6404064286%_ - _%hd6403964290%_ - _%tl6403864293%_ - _%__splice7911579116%_ - _%target6404164296%_ - _%tl6404364299%_) - (if (gx#stx-pair? _%hd6403964290%_) - (let ((_%e6406564184%_ - (gx#syntax-e _%hd6403964290%_))) - (let ((_%tl6406364191%_ + (if (gx#stx-null? _%tl6386864124%_) + (_%__match7901679017%_ + _%e6385964091%_ + _%hd6385864095%_ + _%tl6385764098%_ + _%e6386264101%_ + _%hd6386164105%_ + _%tl6386064108%_ + _%e6386564111%_ + _%hd6386464115%_ + _%tl6386364118%_ + _%__splice7894078941%_ + _%target6386664121%_ + _%tl6386864124%_) + (if (gx#stx-pair? _%hd6386464115%_) + (let ((_%e6389064009%_ + (gx#syntax-e _%hd6386464115%_))) + (let ((_%tl6388864016%_ (let () (declare (not safe)) - (##cdr _%e6406564184%_))) - (_%hd6406464188%_ + (##cdr _%e6389064009%_))) + (_%hd6388964013%_ (let () (declare (not safe)) - (##car _%e6406564184%_)))) - (if (gx#stx-pair? _%tl6403564283%_) - (let ((_%e6408564118%_ + (##car _%e6389064009%_)))) + (if (gx#stx-pair? _%tl6386064108%_) + (let ((_%e6391063943%_ (gx#syntax-e - _%tl6403564283%_))) - (let ((_%tl6408364125%_ + _%tl6386064108%_))) + (let ((_%tl6390863950%_ (let () (declare (not safe)) - (##cdr _%e6408564118%_))) - (_%hd6408464122%_ + (##cdr _%e6391063943%_))) + (_%hd6390963947%_ (let () (declare (not safe)) - (##car _%e6408564118%_)))) + (##car _%e6391063943%_)))) (if (gx#stx-null? - _%tl6408364125%_) - (_%__match7924379244%_ - _%e6403464266%_ - _%hd6403364270%_ - _%tl6403264273%_ - _%e6403764276%_ - _%hd6403664280%_ - _%tl6403564283%_ - _%e6408564118%_ - _%hd6408464122%_ - _%tl6408364125%_) + _%tl6390863950%_) + (_%__match7906879069%_ + _%e6385964091%_ + _%hd6385864095%_ + _%tl6385764098%_ + _%e6386264101%_ + _%hd6386164105%_ + _%tl6386064108%_ + _%e6391063943%_ + _%hd6390963947%_ + _%tl6390863950%_) (let () (declare (not safe)) - (_%g6399964091%_))))) + (_%g6382463916%_))))) (let () (declare (not safe)) - (_%g6399964091%_))))) - (if (gx#stx-pair? _%tl6403564283%_) - (let ((_%e6408564118%_ + (_%g6382463916%_))))) + (if (gx#stx-pair? _%tl6386064108%_) + (let ((_%e6391063943%_ (gx#syntax-e - _%tl6403564283%_))) - (let ((_%tl6408364125%_ + _%tl6386064108%_))) + (let ((_%tl6390863950%_ (let () (declare (not safe)) - (##cdr _%e6408564118%_))) - (_%hd6408464122%_ + (##cdr _%e6391063943%_))) + (_%hd6390963947%_ (let () (declare (not safe)) - (##car _%e6408564118%_)))) + (##car _%e6391063943%_)))) (if (gx#stx-null? - _%tl6408364125%_) - (_%__match7924379244%_ - _%e6403464266%_ - _%hd6403364270%_ - _%tl6403264273%_ - _%e6403764276%_ - _%hd6403664280%_ - _%tl6403564283%_ - _%e6408564118%_ - _%hd6408464122%_ - _%tl6408364125%_) + _%tl6390863950%_) + (_%__match7906879069%_ + _%e6385964091%_ + _%hd6385864095%_ + _%tl6385764098%_ + _%e6386264101%_ + _%hd6386164105%_ + _%tl6386064108%_ + _%e6391063943%_ + _%hd6390963947%_ + _%tl6390863950%_) (let () (declare (not safe)) - (_%g6399964091%_))))) + (_%g6382463916%_))))) (let () (declare (not safe)) - (_%g6399964091%_))))))) - (if (gx#stx-pair? _%hd6403964290%_) - (let ((_%e6406564184%_ - (gx#syntax-e _%hd6403964290%_))) - (let ((_%tl6406364191%_ + (_%g6382463916%_))))))) + (if (gx#stx-pair? _%hd6386464115%_) + (let ((_%e6389064009%_ + (gx#syntax-e _%hd6386464115%_))) + (let ((_%tl6388864016%_ (let () (declare (not safe)) - (##cdr _%e6406564184%_))) - (_%hd6406464188%_ + (##cdr _%e6389064009%_))) + (_%hd6388964013%_ (let () (declare (not safe)) - (##car _%e6406564184%_)))) - (if (gx#stx-pair? _%tl6403564283%_) - (let ((_%e6408564118%_ - (gx#syntax-e _%tl6403564283%_))) - (let ((_%tl6408364125%_ + (##car _%e6389064009%_)))) + (if (gx#stx-pair? _%tl6386064108%_) + (let ((_%e6391063943%_ + (gx#syntax-e _%tl6386064108%_))) + (let ((_%tl6390863950%_ (let () (declare (not safe)) - (##cdr _%e6408564118%_))) - (_%hd6408464122%_ + (##cdr _%e6391063943%_))) + (_%hd6390963947%_ (let () (declare (not safe)) - (##car _%e6408564118%_)))) - (if (gx#stx-null? _%tl6408364125%_) - (_%__match7924379244%_ - _%e6403464266%_ - _%hd6403364270%_ - _%tl6403264273%_ - _%e6403764276%_ - _%hd6403664280%_ - _%tl6403564283%_ - _%e6408564118%_ - _%hd6408464122%_ - _%tl6408364125%_) + (##car _%e6391063943%_)))) + (if (gx#stx-null? _%tl6390863950%_) + (_%__match7906879069%_ + _%e6385964091%_ + _%hd6385864095%_ + _%tl6385764098%_ + _%e6386264101%_ + _%hd6386164105%_ + _%tl6386064108%_ + _%e6391063943%_ + _%hd6390963947%_ + _%tl6390863950%_) (let () (declare (not safe)) - (_%g6399964091%_))))) + (_%g6382463916%_))))) (let () (declare (not safe)) - (_%g6399964091%_))))) - (if (gx#stx-pair? _%tl6403564283%_) - (let ((_%e6408564118%_ - (gx#syntax-e _%tl6403564283%_))) - (let ((_%tl6408364125%_ + (_%g6382463916%_))))) + (if (gx#stx-pair? _%tl6386064108%_) + (let ((_%e6391063943%_ + (gx#syntax-e _%tl6386064108%_))) + (let ((_%tl6390863950%_ (let () (declare (not safe)) - (##cdr _%e6408564118%_))) - (_%hd6408464122%_ + (##cdr _%e6391063943%_))) + (_%hd6390963947%_ (let () (declare (not safe)) - (##car _%e6408564118%_)))) - (if (gx#stx-null? _%tl6408364125%_) - (_%__match7924379244%_ - _%e6403464266%_ - _%hd6403364270%_ - _%tl6403264273%_ - _%e6403764276%_ - _%hd6403664280%_ - _%tl6403564283%_ - _%e6408564118%_ - _%hd6408464122%_ - _%tl6408364125%_) + (##car _%e6391063943%_)))) + (if (gx#stx-null? _%tl6390863950%_) + (_%__match7906879069%_ + _%e6385964091%_ + _%hd6385864095%_ + _%tl6385764098%_ + _%e6386264101%_ + _%hd6386164105%_ + _%tl6386064108%_ + _%e6391063943%_ + _%hd6390963947%_ + _%tl6390863950%_) (let () (declare (not safe)) - (_%g6399964091%_))))) + (_%g6382463916%_))))) (let () (declare (not safe)) - (_%g6399964091%_))))))) - (_%__match7916579166%_ - (lambda (_%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401364392%_ - _%hd6401264396%_ - _%tl6401164399%_ - _%e6401664402%_ - _%hd6401564406%_ - _%tl6401464409%_ - _%e6401964412%_ - _%hd6401864416%_ - _%tl6401764419%_ - _%__splice7911179112%_ - _%target6402064422%_ - _%tl6402264425%_) - (letrec ((_%loop6402364428%_ - (lambda (_%hd6402164432%_ _%body6402764435%_) - (if (gx#stx-pair? _%hd6402164432%_) - (let ((_%e6402464438%_ - (gx#syntax-e _%hd6402164432%_))) - (let ((_%lp-tl6402664445%_ + (_%g6382463916%_))))))) + (_%__match7899078991%_ + (lambda (_%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6383864217%_ + _%hd6383764221%_ + _%tl6383664224%_ + _%e6384164227%_ + _%hd6384064231%_ + _%tl6383964234%_ + _%e6384464237%_ + _%hd6384364241%_ + _%tl6384264244%_ + _%__splice7893678937%_ + _%target6384564247%_ + _%tl6384764250%_) + (letrec ((_%loop6384864253%_ + (lambda (_%hd6384664257%_ _%body6385264260%_) + (if (gx#stx-pair? _%hd6384664257%_) + (let ((_%e6384964263%_ + (gx#syntax-e _%hd6384664257%_))) + (let ((_%lp-tl6385164270%_ (let () (declare (not safe)) - (##cdr _%e6402464438%_))) - (_%lp-hd6402564442%_ + (##cdr _%e6384964263%_))) + (_%lp-hd6385064267%_ (let () (declare (not safe)) - (##car _%e6402464438%_)))) - (_%loop6402364428%_ - _%lp-tl6402664445%_ - (cons _%lp-hd6402564442%_ - _%body6402764435%_)))) - (let ((_%body6402864448%_ - (reverse _%body6402764435%_))) - (let ((_%L64452%_ _%body6402864448%_) - (_%L64454%_ _%hd6401864416%_) - (_%L64455%_ _%tl6401164399%_) - (_%L64456%_ _%hd6401264396%_)) - (if (gx#identifier? _%L64456%_) - (_%__kont7910979110%_ - _%L64452%_ - _%L64454%_ - _%L64455%_ - _%L64456%_) - (_%__match7918379184%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401364392%_ - _%hd6401264396%_ - _%tl6401164399%_)))))))) - (_%loop6402364428%_ _%target6402064422%_ '()))))) - (if (gx#stx-pair? _%__stx7910679107%_) - (let ((_%e6400764372%_ (gx#syntax-e _%__stx7910679107%_))) - (let ((_%tl6400564379%_ + (##car _%e6384964263%_)))) + (_%loop6384864253%_ + _%lp-tl6385164270%_ + (cons _%lp-hd6385064267%_ + _%body6385264260%_)))) + (let ((_%body6385364273%_ + (reverse _%body6385264260%_))) + (let ((_%L64277%_ _%body6385364273%_) + (_%L64279%_ _%hd6384364241%_) + (_%L64280%_ _%tl6383664224%_) + (_%L64281%_ _%hd6383764221%_)) + (if (gx#identifier? _%L64281%_) + (_%__kont7893478935%_ + _%L64277%_ + _%L64279%_ + _%L64280%_ + _%L64281%_) + (_%__match7900879009%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6383864217%_ + _%hd6383764221%_ + _%tl6383664224%_)))))))) + (_%loop6384864253%_ _%target6384564247%_ '()))))) + (if (gx#stx-pair? _%__stx7893178932%_) + (let ((_%e6383264197%_ (gx#syntax-e _%__stx7893178932%_))) + (let ((_%tl6383064204%_ (let () (declare (not safe)) - (##cdr _%e6400764372%_))) - (_%hd6400664376%_ + (##cdr _%e6383264197%_))) + (_%hd6383164201%_ (let () (declare (not safe)) - (##car _%e6400764372%_)))) - (if (gx#stx-pair? _%tl6400564379%_) - (let ((_%e6401064382%_ - (gx#syntax-e _%tl6400564379%_))) - (let ((_%tl6400864389%_ + (##car _%e6383264197%_)))) + (if (gx#stx-pair? _%tl6383064204%_) + (let ((_%e6383564207%_ + (gx#syntax-e _%tl6383064204%_))) + (let ((_%tl6383364214%_ (let () (declare (not safe)) - (##cdr _%e6401064382%_))) - (_%hd6400964386%_ + (##cdr _%e6383564207%_))) + (_%hd6383464211%_ (let () (declare (not safe)) - (##car _%e6401064382%_)))) - (if (gx#stx-pair? _%hd6400964386%_) - (let ((_%e6401364392%_ - (gx#syntax-e _%hd6400964386%_))) - (let ((_%tl6401164399%_ + (##car _%e6383564207%_)))) + (if (gx#stx-pair? _%hd6383464211%_) + (let ((_%e6383864217%_ + (gx#syntax-e _%hd6383464211%_))) + (let ((_%tl6383664224%_ (let () (declare (not safe)) - (##cdr _%e6401364392%_))) - (_%hd6401264396%_ + (##cdr _%e6383864217%_))) + (_%hd6383764221%_ (let () (declare (not safe)) - (##car _%e6401364392%_)))) - (if (gx#stx-pair? _%tl6400864389%_) - (let ((_%e6401664402%_ + (##car _%e6383864217%_)))) + (if (gx#stx-pair? _%tl6383364214%_) + (let ((_%e6384164227%_ (gx#syntax-e - _%tl6400864389%_))) - (let ((_%tl6401464409%_ + _%tl6383364214%_))) + (let ((_%tl6383964234%_ (let () (declare (not safe)) - (##cdr _%e6401664402%_))) - (_%hd6401564406%_ + (##cdr _%e6384164227%_))) + (_%hd6384064231%_ (let () (declare (not safe)) - (##car _%e6401664402%_)))) + (##car _%e6384164227%_)))) (if (gx#identifier? - _%hd6401564406%_) + _%hd6384064231%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80897_| - _%hd6401564406%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80624_| + _%hd6384064231%_) (if (gx#stx-pair? - _%tl6401464409%_) - (let ((_%e6401964412%_ + _%tl6383964234%_) + (let ((_%e6384464237%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6401464409%_))) - (let ((_%tl6401764419%_ + (gx#syntax-e _%tl6383964234%_))) + (let ((_%tl6384264244%_ (let () (declare (not safe)) - (##cdr _%e6401964412%_))) - (_%hd6401864416%_ + (##cdr _%e6384464237%_))) + (_%hd6384364241%_ (let () (declare (not safe)) - (##car _%e6401964412%_)))) - (if (gx#stx-pair/null? _%tl6401764419%_) - (let ((_%__splice7911179112%_ + (##car _%e6384464237%_)))) + (if (gx#stx-pair/null? _%tl6384264244%_) + (let ((_%__splice7893678937%_ (gx#syntax-split-splice - _%tl6401764419%_ + _%tl6384264244%_ '0))) - (let ((_%tl6402264425%_ + (let ((_%tl6384764250%_ (let () (declare (not safe)) (##vector-ref - _%__splice7911179112%_ + _%__splice7893678937%_ '1))) - (_%target6402064422%_ + (_%target6384564247%_ (let () (declare (not safe)) (##vector-ref - _%__splice7911179112%_ + _%__splice7893678937%_ '0)))) - (if (gx#stx-null? _%tl6402264425%_) - (_%__match7916579166%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401364392%_ - _%hd6401264396%_ - _%tl6401164399%_ - _%e6401664402%_ - _%hd6401564406%_ - _%tl6401464409%_ - _%e6401964412%_ - _%hd6401864416%_ - _%tl6401764419%_ - _%__splice7911179112%_ - _%target6402064422%_ - _%tl6402264425%_) - (if (gx#stx-pair/null? _%tl6400864389%_) - (let ((_%__splice7911579116%_ + (if (gx#stx-null? _%tl6384764250%_) + (_%__match7899078991%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6383864217%_ + _%hd6383764221%_ + _%tl6383664224%_ + _%e6384164227%_ + _%hd6384064231%_ + _%tl6383964234%_ + _%e6384464237%_ + _%hd6384364241%_ + _%tl6384264244%_ + _%__splice7893678937%_ + _%target6384564247%_ + _%tl6384764250%_) + (if (gx#stx-pair/null? _%tl6383364214%_) + (let ((_%__splice7894078941%_ (gx#syntax-split-splice - _%tl6400864389%_ + _%tl6383364214%_ '0))) - (let ((_%tl6404364299%_ + (let ((_%tl6386864124%_ (let () (declare (not safe)) (##vector-ref - _%__splice7911579116%_ + _%__splice7894078941%_ '1))) - (_%target6404164296%_ + (_%target6386664121%_ (let () (declare (not safe)) (##vector-ref - _%__splice7911579116%_ + _%__splice7894078941%_ '0)))) - (if (gx#stx-null? _%tl6404364299%_) - (_%__match7919179192%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401364392%_ - _%hd6401264396%_ - _%tl6401164399%_ - _%__splice7911579116%_ - _%target6404164296%_ - _%tl6404364299%_) + (if (gx#stx-null? _%tl6386864124%_) + (_%__match7901679017%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6383864217%_ + _%hd6383764221%_ + _%tl6383664224%_ + _%__splice7894078941%_ + _%target6386664121%_ + _%tl6386864124%_) (if (gx#stx-pair? - _%hd6401264396%_) - (let ((_%e6406564184%_ + _%hd6383764221%_) + (let ((_%e6389064009%_ (gx#syntax-e - _%hd6401264396%_))) - (let ((_%tl6406364191%_ + _%hd6383764221%_))) + (let ((_%tl6388864016%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6406564184%_))) - (_%hd6406464188%_ - (let () (declare (not safe)) (##car _%e6406564184%_)))) - (let () (declare (not safe)) (_%g6399964091%_)))) + (##cdr _%e6389064009%_))) + (_%hd6388964013%_ + (let () (declare (not safe)) (##car _%e6389064009%_)))) + (let () (declare (not safe)) (_%g6382463916%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6399964091%_)))))) - (if (gx#stx-pair? _%hd6401264396%_) - (let ((_%e6406564184%_ + (_%g6382463916%_)))))) + (if (gx#stx-pair? _%hd6383764221%_) + (let ((_%e6389064009%_ (gx#syntax-e - _%hd6401264396%_))) - (let ((_%tl6406364191%_ + _%hd6383764221%_))) + (let ((_%tl6388864016%_ (let () (declare (not safe)) - (##cdr _%e6406564184%_))) - (_%hd6406464188%_ + (##cdr _%e6389064009%_))) + (_%hd6388964013%_ (let () (declare (not safe)) - (##car _%e6406564184%_)))) + (##car _%e6389064009%_)))) (let () (declare (not safe)) - (_%g6399964091%_)))) + (_%g6382463916%_)))) (let () (declare (not safe)) - (_%g6399964091%_))))))) - (if (gx#stx-pair/null? _%tl6400864389%_) - (let ((_%__splice7911579116%_ + (_%g6382463916%_))))))) + (if (gx#stx-pair/null? _%tl6383364214%_) + (let ((_%__splice7894078941%_ (gx#syntax-split-splice - _%tl6400864389%_ + _%tl6383364214%_ '0))) - (let ((_%tl6404364299%_ + (let ((_%tl6386864124%_ (let () (declare (not safe)) (##vector-ref - _%__splice7911579116%_ + _%__splice7894078941%_ '1))) - (_%target6404164296%_ + (_%target6386664121%_ (let () (declare (not safe)) (##vector-ref - _%__splice7911579116%_ + _%__splice7894078941%_ '0)))) - (if (gx#stx-null? _%tl6404364299%_) - (_%__match7919179192%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401364392%_ - _%hd6401264396%_ - _%tl6401164399%_ - _%__splice7911579116%_ - _%target6404164296%_ - _%tl6404364299%_) - (if (gx#stx-pair? _%hd6401264396%_) - (let ((_%e6406564184%_ + (if (gx#stx-null? _%tl6386864124%_) + (_%__match7901679017%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6383864217%_ + _%hd6383764221%_ + _%tl6383664224%_ + _%__splice7894078941%_ + _%target6386664121%_ + _%tl6386864124%_) + (if (gx#stx-pair? _%hd6383764221%_) + (let ((_%e6389064009%_ (gx#syntax-e - _%hd6401264396%_))) - (let ((_%tl6406364191%_ + _%hd6383764221%_))) + (let ((_%tl6388864016%_ (let () (declare (not safe)) - (##cdr _%e6406564184%_))) - (_%hd6406464188%_ + (##cdr _%e6389064009%_))) + (_%hd6388964013%_ (let () (declare (not safe)) - (##car _%e6406564184%_)))) + (##car _%e6389064009%_)))) (let () (declare (not safe)) - (_%g6399964091%_)))) + (_%g6382463916%_)))) (let () (declare (not safe)) - (_%g6399964091%_)))))) - (if (gx#stx-pair? _%hd6401264396%_) - (let ((_%e6406564184%_ - (gx#syntax-e _%hd6401264396%_))) - (let ((_%tl6406364191%_ + (_%g6382463916%_)))))) + (if (gx#stx-pair? _%hd6383764221%_) + (let ((_%e6389064009%_ + (gx#syntax-e _%hd6383764221%_))) + (let ((_%tl6388864016%_ (let () (declare (not safe)) - (##cdr _%e6406564184%_))) - (_%hd6406464188%_ + (##cdr _%e6389064009%_))) + (_%hd6388964013%_ (let () (declare (not safe)) - (##car _%e6406564184%_)))) + (##car _%e6389064009%_)))) (let () (declare (not safe)) - (_%g6399964091%_)))) + (_%g6382463916%_)))) (let () (declare (not safe)) - (_%g6399964091%_))))))) - (if (gx#stx-pair/null? _%tl6400864389%_) - (let ((_%__splice7911579116%_ - (gx#syntax-split-splice _%tl6400864389%_ '0))) - (let ((_%tl6404364299%_ + (_%g6382463916%_))))))) + (if (gx#stx-pair/null? _%tl6383364214%_) + (let ((_%__splice7894078941%_ + (gx#syntax-split-splice _%tl6383364214%_ '0))) + (let ((_%tl6386864124%_ (let () (declare (not safe)) - (##vector-ref _%__splice7911579116%_ '1))) - (_%target6404164296%_ + (##vector-ref _%__splice7894078941%_ '1))) + (_%target6386664121%_ (let () (declare (not safe)) - (##vector-ref _%__splice7911579116%_ '0)))) - (if (gx#stx-null? _%tl6404364299%_) - (_%__match7919179192%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401364392%_ - _%hd6401264396%_ - _%tl6401164399%_ - _%__splice7911579116%_ - _%target6404164296%_ - _%tl6404364299%_) - (if (gx#stx-pair? _%hd6401264396%_) - (let ((_%e6406564184%_ - (gx#syntax-e _%hd6401264396%_))) - (let ((_%tl6406364191%_ + (##vector-ref _%__splice7894078941%_ '0)))) + (if (gx#stx-null? _%tl6386864124%_) + (_%__match7901679017%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6383864217%_ + _%hd6383764221%_ + _%tl6383664224%_ + _%__splice7894078941%_ + _%target6386664121%_ + _%tl6386864124%_) + (if (gx#stx-pair? _%hd6383764221%_) + (let ((_%e6389064009%_ + (gx#syntax-e _%hd6383764221%_))) + (let ((_%tl6388864016%_ (let () (declare (not safe)) - (##cdr _%e6406564184%_))) - (_%hd6406464188%_ + (##cdr _%e6389064009%_))) + (_%hd6388964013%_ (let () (declare (not safe)) - (##car _%e6406564184%_)))) - (if (gx#stx-null? _%tl6401464409%_) - (_%__match7924379244%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401664402%_ - _%hd6401564406%_ - _%tl6401464409%_) + (##car _%e6389064009%_)))) + (if (gx#stx-null? _%tl6383964234%_) + (_%__match7906879069%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6384164227%_ + _%hd6384064231%_ + _%tl6383964234%_) (let () (declare (not safe)) - (_%g6399964091%_))))) - (if (gx#stx-null? _%tl6401464409%_) - (_%__match7924379244%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401664402%_ - _%hd6401564406%_ - _%tl6401464409%_) + (_%g6382463916%_))))) + (if (gx#stx-null? _%tl6383964234%_) + (_%__match7906879069%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6384164227%_ + _%hd6384064231%_ + _%tl6383964234%_) (let () (declare (not safe)) - (_%g6399964091%_))))))) - (if (gx#stx-pair? _%hd6401264396%_) - (let ((_%e6406564184%_ - (gx#syntax-e _%hd6401264396%_))) - (let ((_%tl6406364191%_ + (_%g6382463916%_))))))) + (if (gx#stx-pair? _%hd6383764221%_) + (let ((_%e6389064009%_ + (gx#syntax-e _%hd6383764221%_))) + (let ((_%tl6388864016%_ (let () (declare (not safe)) - (##cdr _%e6406564184%_))) - (_%hd6406464188%_ + (##cdr _%e6389064009%_))) + (_%hd6388964013%_ (let () (declare (not safe)) - (##car _%e6406564184%_)))) - (if (gx#stx-null? _%tl6401464409%_) - (_%__match7924379244%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401664402%_ - _%hd6401564406%_ - _%tl6401464409%_) + (##car _%e6389064009%_)))) + (if (gx#stx-null? _%tl6383964234%_) + (_%__match7906879069%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6384164227%_ + _%hd6384064231%_ + _%tl6383964234%_) (let () (declare (not safe)) - (_%g6399964091%_))))) - (if (gx#stx-null? _%tl6401464409%_) - (_%__match7924379244%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401664402%_ - _%hd6401564406%_ - _%tl6401464409%_) + (_%g6382463916%_))))) + (if (gx#stx-null? _%tl6383964234%_) + (_%__match7906879069%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6384164227%_ + _%hd6384064231%_ + _%tl6383964234%_) (let () (declare (not safe)) - (_%g6399964091%_)))))) - (if (gx#stx-pair/null? _%tl6400864389%_) - (let ((_%__splice7911579116%_ - (gx#syntax-split-splice _%tl6400864389%_ '0))) - (let ((_%tl6404364299%_ + (_%g6382463916%_)))))) + (if (gx#stx-pair/null? _%tl6383364214%_) + (let ((_%__splice7894078941%_ + (gx#syntax-split-splice _%tl6383364214%_ '0))) + (let ((_%tl6386864124%_ (let () (declare (not safe)) - (##vector-ref _%__splice7911579116%_ '1))) - (_%target6404164296%_ + (##vector-ref _%__splice7894078941%_ '1))) + (_%target6386664121%_ (let () (declare (not safe)) - (##vector-ref _%__splice7911579116%_ '0)))) - (if (gx#stx-null? _%tl6404364299%_) - (_%__match7919179192%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401364392%_ - _%hd6401264396%_ - _%tl6401164399%_ - _%__splice7911579116%_ - _%target6404164296%_ - _%tl6404364299%_) - (if (gx#stx-pair? _%hd6401264396%_) - (let ((_%e6406564184%_ - (gx#syntax-e _%hd6401264396%_))) - (let ((_%tl6406364191%_ + (##vector-ref _%__splice7894078941%_ '0)))) + (if (gx#stx-null? _%tl6386864124%_) + (_%__match7901679017%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6383864217%_ + _%hd6383764221%_ + _%tl6383664224%_ + _%__splice7894078941%_ + _%target6386664121%_ + _%tl6386864124%_) + (if (gx#stx-pair? _%hd6383764221%_) + (let ((_%e6389064009%_ + (gx#syntax-e _%hd6383764221%_))) + (let ((_%tl6388864016%_ (let () (declare (not safe)) - (##cdr _%e6406564184%_))) - (_%hd6406464188%_ + (##cdr _%e6389064009%_))) + (_%hd6388964013%_ (let () (declare (not safe)) - (##car _%e6406564184%_)))) - (if (gx#stx-null? _%tl6401464409%_) - (_%__match7924379244%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401664402%_ - _%hd6401564406%_ - _%tl6401464409%_) + (##car _%e6389064009%_)))) + (if (gx#stx-null? _%tl6383964234%_) + (_%__match7906879069%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6384164227%_ + _%hd6384064231%_ + _%tl6383964234%_) (let () (declare (not safe)) - (_%g6399964091%_))))) - (if (gx#stx-null? _%tl6401464409%_) - (_%__match7924379244%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401664402%_ - _%hd6401564406%_ - _%tl6401464409%_) + (_%g6382463916%_))))) + (if (gx#stx-null? _%tl6383964234%_) + (_%__match7906879069%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6384164227%_ + _%hd6384064231%_ + _%tl6383964234%_) (let () (declare (not safe)) - (_%g6399964091%_))))))) - (if (gx#stx-pair? _%hd6401264396%_) - (let ((_%e6406564184%_ (gx#syntax-e _%hd6401264396%_))) - (let ((_%tl6406364191%_ + (_%g6382463916%_))))))) + (if (gx#stx-pair? _%hd6383764221%_) + (let ((_%e6389064009%_ (gx#syntax-e _%hd6383764221%_))) + (let ((_%tl6388864016%_ (let () (declare (not safe)) - (##cdr _%e6406564184%_))) - (_%hd6406464188%_ + (##cdr _%e6389064009%_))) + (_%hd6388964013%_ (let () (declare (not safe)) - (##car _%e6406564184%_)))) - (if (gx#stx-null? _%tl6401464409%_) - (_%__match7924379244%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401664402%_ - _%hd6401564406%_ - _%tl6401464409%_) + (##car _%e6389064009%_)))) + (if (gx#stx-null? _%tl6383964234%_) + (_%__match7906879069%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6384164227%_ + _%hd6384064231%_ + _%tl6383964234%_) (let () (declare (not safe)) - (_%g6399964091%_))))) - (if (gx#stx-null? _%tl6401464409%_) - (_%__match7924379244%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401664402%_ - _%hd6401564406%_ - _%tl6401464409%_) - (let () (declare (not safe)) (_%g6399964091%_)))))) + (_%g6382463916%_))))) + (if (gx#stx-null? _%tl6383964234%_) + (_%__match7906879069%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6384164227%_ + _%hd6384064231%_ + _%tl6383964234%_) + (let () (declare (not safe)) (_%g6382463916%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6400864389%_) - (let ((_%__splice7911579116%_ + _%tl6383364214%_) + (let ((_%__splice7894078941%_ (gx#syntax-split-splice - _%tl6400864389%_ + _%tl6383364214%_ '0))) - (let ((_%tl6404364299%_ + (let ((_%tl6386864124%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice7911579116%_ '1))) - (_%target6404164296%_ + (##vector-ref _%__splice7894078941%_ '1))) + (_%target6386664121%_ (let () (declare (not safe)) - (##vector-ref _%__splice7911579116%_ '0)))) - (if (gx#stx-null? _%tl6404364299%_) - (_%__match7919179192%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401364392%_ - _%hd6401264396%_ - _%tl6401164399%_ - _%__splice7911579116%_ - _%target6404164296%_ - _%tl6404364299%_) - (if (gx#stx-pair? _%hd6401264396%_) - (let ((_%e6406564184%_ - (gx#syntax-e _%hd6401264396%_))) - (let ((_%tl6406364191%_ + (##vector-ref _%__splice7894078941%_ '0)))) + (if (gx#stx-null? _%tl6386864124%_) + (_%__match7901679017%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6383864217%_ + _%hd6383764221%_ + _%tl6383664224%_ + _%__splice7894078941%_ + _%target6386664121%_ + _%tl6386864124%_) + (if (gx#stx-pair? _%hd6383764221%_) + (let ((_%e6389064009%_ + (gx#syntax-e _%hd6383764221%_))) + (let ((_%tl6388864016%_ (let () (declare (not safe)) - (##cdr _%e6406564184%_))) - (_%hd6406464188%_ + (##cdr _%e6389064009%_))) + (_%hd6388964013%_ (let () (declare (not safe)) - (##car _%e6406564184%_)))) - (if (gx#stx-null? _%tl6401464409%_) - (_%__match7924379244%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401664402%_ - _%hd6401564406%_ - _%tl6401464409%_) + (##car _%e6389064009%_)))) + (if (gx#stx-null? _%tl6383964234%_) + (_%__match7906879069%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6384164227%_ + _%hd6384064231%_ + _%tl6383964234%_) (let () (declare (not safe)) - (_%g6399964091%_))))) - (if (gx#stx-null? _%tl6401464409%_) - (_%__match7924379244%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401664402%_ - _%hd6401564406%_ - _%tl6401464409%_) + (_%g6382463916%_))))) + (if (gx#stx-null? _%tl6383964234%_) + (_%__match7906879069%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6384164227%_ + _%hd6384064231%_ + _%tl6383964234%_) (let () (declare (not safe)) - (_%g6399964091%_))))))) - (if (gx#stx-pair? _%hd6401264396%_) - (let ((_%e6406564184%_ (gx#syntax-e _%hd6401264396%_))) - (let ((_%tl6406364191%_ + (_%g6382463916%_))))))) + (if (gx#stx-pair? _%hd6383764221%_) + (let ((_%e6389064009%_ (gx#syntax-e _%hd6383764221%_))) + (let ((_%tl6388864016%_ (let () (declare (not safe)) - (##cdr _%e6406564184%_))) - (_%hd6406464188%_ + (##cdr _%e6389064009%_))) + (_%hd6388964013%_ (let () (declare (not safe)) - (##car _%e6406564184%_)))) - (if (gx#stx-null? _%tl6401464409%_) - (_%__match7924379244%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401664402%_ - _%hd6401564406%_ - _%tl6401464409%_) - (let () (declare (not safe)) (_%g6399964091%_))))) - (if (gx#stx-null? _%tl6401464409%_) - (_%__match7924379244%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401664402%_ - _%hd6401564406%_ - _%tl6401464409%_) - (let () (declare (not safe)) (_%g6399964091%_)))))))) + (##car _%e6389064009%_)))) + (if (gx#stx-null? _%tl6383964234%_) + (_%__match7906879069%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6384164227%_ + _%hd6384064231%_ + _%tl6383964234%_) + (let () (declare (not safe)) (_%g6382463916%_))))) + (if (gx#stx-null? _%tl6383964234%_) + (_%__match7906879069%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6384164227%_ + _%hd6384064231%_ + _%tl6383964234%_) + (let () (declare (not safe)) (_%g6382463916%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6400864389%_) - (let ((_%__splice7911579116%_ + _%tl6383364214%_) + (let ((_%__splice7894078941%_ (gx#syntax-split-splice - _%tl6400864389%_ + _%tl6383364214%_ '0))) - (let ((_%tl6404364299%_ + (let ((_%tl6386864124%_ (let () (declare (not safe)) (##vector-ref - _%__splice7911579116%_ + _%__splice7894078941%_ '1))) - (_%target6404164296%_ + (_%target6386664121%_ (let () (declare (not safe)) (##vector-ref - _%__splice7911579116%_ + _%__splice7894078941%_ '0)))) (if (gx#stx-null? - _%tl6404364299%_) - (_%__match7919179192%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6401364392%_ - _%hd6401264396%_ - _%tl6401164399%_ - _%__splice7911579116%_ - _%target6404164296%_ - _%tl6404364299%_) + _%tl6386864124%_) + (_%__match7901679017%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6383864217%_ + _%hd6383764221%_ + _%tl6383664224%_ + _%__splice7894078941%_ + _%target6386664121%_ + _%tl6386864124%_) (if (gx#stx-pair? - _%hd6401264396%_) - (let ((_%e6406564184%_ + _%hd6383764221%_) + (let ((_%e6389064009%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6401264396%_))) - (let ((_%tl6406364191%_ + (gx#syntax-e _%hd6383764221%_))) + (let ((_%tl6388864016%_ (let () (declare (not safe)) - (##cdr _%e6406564184%_))) - (_%hd6406464188%_ + (##cdr _%e6389064009%_))) + (_%hd6388964013%_ (let () (declare (not safe)) - (##car _%e6406564184%_)))) - (let () (declare (not safe)) (_%g6399964091%_)))) - (let () (declare (not safe)) (_%g6399964091%_)))))) + (##car _%e6389064009%_)))) + (let () (declare (not safe)) (_%g6382463916%_)))) + (let () (declare (not safe)) (_%g6382463916%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd6401264396%_) - (let ((_%e6406564184%_ + _%hd6383764221%_) + (let ((_%e6389064009%_ (gx#syntax-e - _%hd6401264396%_))) - (let ((_%tl6406364191%_ + _%hd6383764221%_))) + (let ((_%tl6388864016%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6406564184%_))) - (_%hd6406464188%_ - (let () (declare (not safe)) (##car _%e6406564184%_)))) - (let () (declare (not safe)) (_%g6399964091%_)))) + (##cdr _%e6389064009%_))) + (_%hd6388964013%_ + (let () (declare (not safe)) (##car _%e6389064009%_)))) + (let () (declare (not safe)) (_%g6382463916%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6399964091%_))))))) - (if (gx#stx-pair? _%tl6400864389%_) - (let ((_%e6408564118%_ - (gx#syntax-e _%tl6400864389%_))) - (let ((_%tl6408364125%_ + (_%g6382463916%_))))))) + (if (gx#stx-pair? _%tl6383364214%_) + (let ((_%e6391063943%_ + (gx#syntax-e _%tl6383364214%_))) + (let ((_%tl6390863950%_ (let () (declare (not safe)) - (##cdr _%e6408564118%_))) - (_%hd6408464122%_ + (##cdr _%e6391063943%_))) + (_%hd6390963947%_ (let () (declare (not safe)) - (##car _%e6408564118%_)))) - (if (gx#stx-null? _%tl6408364125%_) - (_%__match7924379244%_ - _%e6400764372%_ - _%hd6400664376%_ - _%tl6400564379%_ - _%e6401064382%_ - _%hd6400964386%_ - _%tl6400864389%_ - _%e6408564118%_ - _%hd6408464122%_ - _%tl6408364125%_) + (##car _%e6391063943%_)))) + (if (gx#stx-null? _%tl6390863950%_) + (_%__match7906879069%_ + _%e6383264197%_ + _%hd6383164201%_ + _%tl6383064204%_ + _%e6383564207%_ + _%hd6383464211%_ + _%tl6383364214%_ + _%e6391063943%_ + _%hd6390963947%_ + _%tl6390863950%_) (let () (declare (not safe)) - (_%g6399964091%_))))) + (_%g6382463916%_))))) (let () (declare (not safe)) - (_%g6399964091%_)))))) - (let () (declare (not safe)) (_%g6399964091%_))))) - (let () (declare (not safe)) (_%g6399964091%_))))))))) + (_%g6382463916%_)))))) + (let () (declare (not safe)) (_%g6382463916%_))))) + (let () (declare (not safe)) (_%g6382463916%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-signature| - (lambda (_%stx64974%_) - (let* ((_%__stx7924679247%_ _%stx64974%_) - (_%g6497865041%_ + (lambda (_%stx64799%_) + (let* ((_%__stx7907179072%_ _%stx64799%_) + (_%g6480364866%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7924679247%_)))) - (let ((_%__kont7924979250%_ - (lambda (_%L65292%_ _%L65294%_) - (let* ((_%g6531965327%_ - (lambda (_%g6532065323%_) + _%__stx7907179072%_)))) + (let ((_%__kont7907479075%_ + (lambda (_%L65117%_ _%L65119%_) + (let* ((_%g6514465152%_ + (lambda (_%g6514565148%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6532065323%_))) - (_%g6531865354%_ - (lambda (_%g6532065331%_) - ((lambda (_%L65334%_) - (let () - (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax - '#f - '@type.signature) - (cons 'return: - (cons _%L65334%_ - '()))) - (cons (cons (gx#datum->syntax - '#f - 'let) - (cons '() - (foldr (lambda (_%g6534565348%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6534665351%_) - (cons _%g6534565348%_ _%g6534665351%_)) - '() - _%L65292%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - _%g6532065331%_)))) - (_%g6531865354%_ + _%g6514565148%_))) + (_%g6514365179%_ + (lambda (_%g6514565156%_) + ((lambda (_%L65159%_) + (cons (gx#datum->syntax '#f 'begin-annotation) + (cons (cons (gx#datum->syntax + '#f + '@type.signature) + (cons 'return: + (cons _%L65159%_ '()))) + (cons (cons (gx#datum->syntax + '#f + 'let) + (cons '() + (foldr (lambda (_%g6517065173%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6517165176%_) + (cons _%g6517065173%_ _%g6517165176%_)) + '() + _%L65117%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) + _%g6514565156%_)))) + (_%g6514365179%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx64974%_ - _%L65294%_)))))) - (_%__kont7925379254%_ - (lambda (_%L65128%_ _%L65130%_ _%L65131%_ _%L65132%_) - (let* ((_%g6515865166%_ - (lambda (_%g6515965162%_) + _%stx64799%_ + _%L65119%_)))))) + (_%__kont7907879079%_ + (lambda (_%L64953%_ _%L64955%_ _%L64956%_ _%L64957%_) + (let* ((_%g6498364991%_ + (lambda (_%g6498464987%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6515965162%_))) - (_%g6515765193%_ - (lambda (_%g6515965170%_) - ((lambda (_%L65173%_) - (let () - (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax - '#f - '@type.signature) - _%L65173%_) - (cons (cons (gx#datum->syntax - '#f - 'let) - (cons '() - (foldr (lambda (_%g6518465187%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6518565190%_) - (cons _%g6518465187%_ _%g6518565190%_)) - '() - _%L65128%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - _%g6515965170%_)))) - (_%g6515765193%_ + _%g6498464987%_))) + (_%g6498265018%_ + (lambda (_%g6498464995%_) + ((lambda (_%L64998%_) + (cons (gx#datum->syntax '#f 'begin-annotation) + (cons (cons (gx#datum->syntax + '#f + '@type.signature) + _%L64998%_) + (cons (cons (gx#datum->syntax + '#f + 'let) + (cons '() + (foldr (lambda (_%g6500965012%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6501065015%_) + (cons _%g6500965012%_ _%g6501065015%_)) + '() + _%L64953%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) + _%g6498464995%_)))) + (_%g6498265018%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - _%stx64974%_ - _%L65132%_ - _%L65131%_ - _%L65130%_))))))) - (let* ((_%__match7934979350%_ - (lambda (_%e6501465048%_ - _%hd6501365052%_ - _%tl6501265055%_ - _%e6501765058%_ - _%hd6501665062%_ - _%tl6501565065%_ - _%e6502065068%_ - _%hd6501965072%_ - _%tl6501865075%_ - _%e6502365078%_ - _%hd6502265082%_ - _%tl6502165085%_ - _%e6502665088%_ - _%hd6502565092%_ - _%tl6502465095%_ - _%__splice7925579256%_ - _%target6502765098%_ - _%tl6502965101%_) - (letrec ((_%loop6503065104%_ - (lambda (_%hd6502865108%_ _%body6503465111%_) - (if (gx#stx-pair? _%hd6502865108%_) - (let ((_%e6503165114%_ - (gx#syntax-e _%hd6502865108%_))) - (let ((_%lp-tl6503365121%_ + _%stx64799%_ + _%L64957%_ + _%L64956%_ + _%L64955%_))))))) + (let* ((_%__match7917479175%_ + (lambda (_%e6483964873%_ + _%hd6483864877%_ + _%tl6483764880%_ + _%e6484264883%_ + _%hd6484164887%_ + _%tl6484064890%_ + _%e6484564893%_ + _%hd6484464897%_ + _%tl6484364900%_ + _%e6484864903%_ + _%hd6484764907%_ + _%tl6484664910%_ + _%e6485164913%_ + _%hd6485064917%_ + _%tl6484964920%_ + _%__splice7908079081%_ + _%target6485264923%_ + _%tl6485464926%_) + (letrec ((_%loop6485564929%_ + (lambda (_%hd6485364933%_ _%body6485964936%_) + (if (gx#stx-pair? _%hd6485364933%_) + (let ((_%e6485664939%_ + (gx#syntax-e _%hd6485364933%_))) + (let ((_%lp-tl6485864946%_ (let () (declare (not safe)) - (##cdr _%e6503165114%_))) - (_%lp-hd6503265118%_ + (##cdr _%e6485664939%_))) + (_%lp-hd6485764943%_ (let () (declare (not safe)) - (##car _%e6503165114%_)))) - (_%loop6503065104%_ - _%lp-tl6503365121%_ - (cons _%lp-hd6503265118%_ - _%body6503465111%_)))) - (let ((_%body6503565124%_ - (reverse _%body6503465111%_))) - (_%__kont7925379254%_ - _%body6503565124%_ - _%hd6502565092%_ - _%hd6502265082%_ - _%hd6501965072%_)))))) - (_%loop6503065104%_ _%target6502765098%_ '())))) - (_%__match7930979310%_ - (lambda (_%e6498465204%_ - _%hd6498365208%_ - _%tl6498265211%_ - _%e6498765214%_ - _%hd6498665218%_ - _%tl6498565221%_ - _%e6499065224%_ - _%hd6498965228%_ - _%tl6498865231%_ - _%e6499165234%_ - _%e6499465238%_ - _%hd6499365242%_ - _%tl6499265245%_ - _%e6499765248%_ - _%hd6499665252%_ - _%tl6499565255%_ - _%e6499865258%_ - _%__splice7925179252%_ - _%target6499965262%_ - _%tl6500165265%_) - (letrec ((_%loop6500265268%_ - (lambda (_%hd6500065272%_ _%body6500665275%_) - (if (gx#stx-pair? _%hd6500065272%_) - (let ((_%e6500365278%_ - (gx#syntax-e _%hd6500065272%_))) - (let ((_%lp-tl6500565285%_ + (##car _%e6485664939%_)))) + (_%loop6485564929%_ + _%lp-tl6485864946%_ + (cons _%lp-hd6485764943%_ + _%body6485964936%_)))) + (let ((_%body6486064949%_ + (reverse _%body6485964936%_))) + (_%__kont7907879079%_ + _%body6486064949%_ + _%hd6485064917%_ + _%hd6484764907%_ + _%hd6484464897%_)))))) + (_%loop6485564929%_ _%target6485264923%_ '())))) + (_%__match7913479135%_ + (lambda (_%e6480965029%_ + _%hd6480865033%_ + _%tl6480765036%_ + _%e6481265039%_ + _%hd6481165043%_ + _%tl6481065046%_ + _%e6481565049%_ + _%hd6481465053%_ + _%tl6481365056%_ + _%e6481665059%_ + _%e6481965063%_ + _%hd6481865067%_ + _%tl6481765070%_ + _%e6482265073%_ + _%hd6482165077%_ + _%tl6482065080%_ + _%e6482365083%_ + _%__splice7907679077%_ + _%target6482465087%_ + _%tl6482665090%_) + (letrec ((_%loop6482765093%_ + (lambda (_%hd6482565097%_ _%body6483165100%_) + (if (gx#stx-pair? _%hd6482565097%_) + (let ((_%e6482865103%_ + (gx#syntax-e _%hd6482565097%_))) + (let ((_%lp-tl6483065110%_ (let () (declare (not safe)) - (##cdr _%e6500365278%_))) - (_%lp-hd6500465282%_ + (##cdr _%e6482865103%_))) + (_%lp-hd6482965107%_ (let () (declare (not safe)) - (##car _%e6500365278%_)))) - (_%loop6500265268%_ - _%lp-tl6500565285%_ - (cons _%lp-hd6500465282%_ - _%body6500665275%_)))) - (let ((_%body6500765288%_ - (reverse _%body6500665275%_))) - (_%__kont7924979250%_ - _%body6500765288%_ - _%hd6499365242%_)))))) - (_%loop6500265268%_ _%target6499965262%_ '()))))) - (if (gx#stx-pair? _%__stx7924679247%_) - (let ((_%e6498465204%_ (gx#syntax-e _%__stx7924679247%_))) - (let ((_%tl6498265211%_ + (##car _%e6482865103%_)))) + (_%loop6482765093%_ + _%lp-tl6483065110%_ + (cons _%lp-hd6482965107%_ + _%body6483165100%_)))) + (let ((_%body6483265113%_ + (reverse _%body6483165100%_))) + (_%__kont7907479075%_ + _%body6483265113%_ + _%hd6481865067%_)))))) + (_%loop6482765093%_ _%target6482465087%_ '()))))) + (if (gx#stx-pair? _%__stx7907179072%_) + (let ((_%e6480965029%_ (gx#syntax-e _%__stx7907179072%_))) + (let ((_%tl6480765036%_ (let () (declare (not safe)) - (##cdr _%e6498465204%_))) - (_%hd6498365208%_ + (##cdr _%e6480965029%_))) + (_%hd6480865033%_ (let () (declare (not safe)) - (##car _%e6498465204%_)))) - (if (gx#stx-pair? _%tl6498265211%_) - (let ((_%e6498765214%_ - (gx#syntax-e _%tl6498265211%_))) - (let ((_%tl6498565221%_ + (##car _%e6480965029%_)))) + (if (gx#stx-pair? _%tl6480765036%_) + (let ((_%e6481265039%_ + (gx#syntax-e _%tl6480765036%_))) + (let ((_%tl6481065046%_ (let () (declare (not safe)) - (##cdr _%e6498765214%_))) - (_%hd6498665218%_ + (##cdr _%e6481265039%_))) + (_%hd6481165043%_ (let () (declare (not safe)) - (##car _%e6498765214%_)))) - (if (gx#stx-pair? _%hd6498665218%_) - (let ((_%e6499065224%_ - (gx#syntax-e _%hd6498665218%_))) - (let ((_%tl6498865231%_ + (##car _%e6481265039%_)))) + (if (gx#stx-pair? _%hd6481165043%_) + (let ((_%e6481565049%_ + (gx#syntax-e _%hd6481165043%_))) + (let ((_%tl6481365056%_ (let () (declare (not safe)) - (##cdr _%e6499065224%_))) - (_%hd6498965228%_ + (##cdr _%e6481565049%_))) + (_%hd6481465053%_ (let () (declare (not safe)) - (##car _%e6499065224%_)))) - (if (gx#stx-datum? _%hd6498965228%_) - (let ((_%e6499165234%_ - (gx#stx-e _%hd6498965228%_))) - (if (equal? _%e6499165234%_ '#f) + (##car _%e6481565049%_)))) + (if (gx#stx-datum? _%hd6481465053%_) + (let ((_%e6481665059%_ + (gx#stx-e _%hd6481465053%_))) + (if (equal? _%e6481665059%_ '#f) (if (gx#stx-pair? - _%tl6498865231%_) - (let ((_%e6499465238%_ + _%tl6481365056%_) + (let ((_%e6481965063%_ (gx#syntax-e - _%tl6498865231%_))) - (let ((_%tl6499265245%_ + _%tl6481365056%_))) + (let ((_%tl6481765070%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6499465238%_))) - (_%hd6499365242%_ - (let () (declare (not safe)) (##car _%e6499465238%_)))) - (if (gx#stx-pair? _%tl6499265245%_) - (let ((_%e6499765248%_ (gx#syntax-e _%tl6499265245%_))) - (let ((_%tl6499565255%_ + (##cdr _%e6481965063%_))) + (_%hd6481865067%_ + (let () (declare (not safe)) (##car _%e6481965063%_)))) + (if (gx#stx-pair? _%tl6481765070%_) + (let ((_%e6482265073%_ (gx#syntax-e _%tl6481765070%_))) + (let ((_%tl6482065080%_ (let () (declare (not safe)) - (##cdr _%e6499765248%_))) - (_%hd6499665252%_ + (##cdr _%e6482265073%_))) + (_%hd6482165077%_ (let () (declare (not safe)) - (##car _%e6499765248%_)))) - (if (gx#stx-datum? _%hd6499665252%_) - (let ((_%e6499865258%_ - (gx#stx-e _%hd6499665252%_))) - (if (equal? _%e6499865258%_ '#f) - (if (gx#stx-null? _%tl6499565255%_) - (if (gx#stx-pair/null? _%tl6498565221%_) - (let ((_%__splice7925179252%_ + (##car _%e6482265073%_)))) + (if (gx#stx-datum? _%hd6482165077%_) + (let ((_%e6482365083%_ + (gx#stx-e _%hd6482165077%_))) + (if (equal? _%e6482365083%_ '#f) + (if (gx#stx-null? _%tl6482065080%_) + (if (gx#stx-pair/null? _%tl6481065046%_) + (let ((_%__splice7907679077%_ (gx#syntax-split-splice - _%tl6498565221%_ + _%tl6481065046%_ '0))) - (let ((_%tl6500165265%_ + (let ((_%tl6482665090%_ (let () (declare (not safe)) (##vector-ref - _%__splice7925179252%_ + _%__splice7907679077%_ '1))) - (_%target6499965262%_ + (_%target6482465087%_ (let () (declare (not safe)) (##vector-ref - _%__splice7925179252%_ + _%__splice7907679077%_ '0)))) (if (gx#stx-null? - _%tl6500165265%_) - (_%__match7930979310%_ - _%e6498465204%_ - _%hd6498365208%_ - _%tl6498265211%_ - _%e6498765214%_ - _%hd6498665218%_ - _%tl6498565221%_ - _%e6499065224%_ - _%hd6498965228%_ - _%tl6498865231%_ - _%e6499165234%_ - _%e6499465238%_ - _%hd6499365242%_ - _%tl6499265245%_ - _%e6499765248%_ - _%hd6499665252%_ - _%tl6499565255%_ - _%e6499865258%_ - _%__splice7925179252%_ - _%target6499965262%_ - _%tl6500165265%_) + _%tl6482665090%_) + (_%__match7913479135%_ + _%e6480965029%_ + _%hd6480865033%_ + _%tl6480765036%_ + _%e6481265039%_ + _%hd6481165043%_ + _%tl6481065046%_ + _%e6481565049%_ + _%hd6481465053%_ + _%tl6481365056%_ + _%e6481665059%_ + _%e6481965063%_ + _%hd6481865067%_ + _%tl6481765070%_ + _%e6482265073%_ + _%hd6482165077%_ + _%tl6482065080%_ + _%e6482365083%_ + _%__splice7907679077%_ + _%target6482465087%_ + _%tl6482665090%_) (let () (declare (not safe)) - (_%g6497865041%_))))) + (_%g6480364866%_))))) (let () (declare (not safe)) - (_%g6497865041%_))) + (_%g6480364866%_))) (let () (declare (not safe)) - (_%g6497865041%_))) - (if (gx#stx-null? _%tl6499565255%_) - (if (gx#stx-pair/null? _%tl6498565221%_) - (let ((_%__splice7925579256%_ + (_%g6480364866%_))) + (if (gx#stx-null? _%tl6482065080%_) + (if (gx#stx-pair/null? _%tl6481065046%_) + (let ((_%__splice7908079081%_ (gx#syntax-split-splice - _%tl6498565221%_ + _%tl6481065046%_ '0))) - (let ((_%tl6502965101%_ + (let ((_%tl6485464926%_ (let () (declare (not safe)) (##vector-ref - _%__splice7925579256%_ + _%__splice7908079081%_ '1))) - (_%target6502765098%_ + (_%target6485264923%_ (let () (declare (not safe)) (##vector-ref - _%__splice7925579256%_ + _%__splice7908079081%_ '0)))) (if (gx#stx-null? - _%tl6502965101%_) - (_%__match7934979350%_ - _%e6498465204%_ - _%hd6498365208%_ - _%tl6498265211%_ - _%e6498765214%_ - _%hd6498665218%_ - _%tl6498565221%_ - _%e6499065224%_ - _%hd6498965228%_ - _%tl6498865231%_ - _%e6499465238%_ - _%hd6499365242%_ - _%tl6499265245%_ - _%e6499765248%_ - _%hd6499665252%_ - _%tl6499565255%_ - _%__splice7925579256%_ - _%target6502765098%_ - _%tl6502965101%_) + _%tl6485464926%_) + (_%__match7917479175%_ + _%e6480965029%_ + _%hd6480865033%_ + _%tl6480765036%_ + _%e6481265039%_ + _%hd6481165043%_ + _%tl6481065046%_ + _%e6481565049%_ + _%hd6481465053%_ + _%tl6481365056%_ + _%e6481965063%_ + _%hd6481865067%_ + _%tl6481765070%_ + _%e6482265073%_ + _%hd6482165077%_ + _%tl6482065080%_ + _%__splice7908079081%_ + _%target6485264923%_ + _%tl6485464926%_) (let () (declare (not safe)) - (_%g6497865041%_))))) + (_%g6480364866%_))))) (let () (declare (not safe)) - (_%g6497865041%_))) + (_%g6480364866%_))) (let () (declare (not safe)) - (_%g6497865041%_))))) - (if (gx#stx-null? _%tl6499565255%_) - (if (gx#stx-pair/null? _%tl6498565221%_) - (let ((_%__splice7925579256%_ + (_%g6480364866%_))))) + (if (gx#stx-null? _%tl6482065080%_) + (if (gx#stx-pair/null? _%tl6481065046%_) + (let ((_%__splice7908079081%_ (gx#syntax-split-splice - _%tl6498565221%_ + _%tl6481065046%_ '0))) - (let ((_%tl6502965101%_ + (let ((_%tl6485464926%_ (let () (declare (not safe)) (##vector-ref - _%__splice7925579256%_ + _%__splice7908079081%_ '1))) - (_%target6502765098%_ + (_%target6485264923%_ (let () (declare (not safe)) (##vector-ref - _%__splice7925579256%_ + _%__splice7908079081%_ '0)))) - (if (gx#stx-null? _%tl6502965101%_) - (_%__match7934979350%_ - _%e6498465204%_ - _%hd6498365208%_ - _%tl6498265211%_ - _%e6498765214%_ - _%hd6498665218%_ - _%tl6498565221%_ - _%e6499065224%_ - _%hd6498965228%_ - _%tl6498865231%_ - _%e6499465238%_ - _%hd6499365242%_ - _%tl6499265245%_ - _%e6499765248%_ - _%hd6499665252%_ - _%tl6499565255%_ - _%__splice7925579256%_ - _%target6502765098%_ - _%tl6502965101%_) + (if (gx#stx-null? _%tl6485464926%_) + (_%__match7917479175%_ + _%e6480965029%_ + _%hd6480865033%_ + _%tl6480765036%_ + _%e6481265039%_ + _%hd6481165043%_ + _%tl6481065046%_ + _%e6481565049%_ + _%hd6481465053%_ + _%tl6481365056%_ + _%e6481965063%_ + _%hd6481865067%_ + _%tl6481765070%_ + _%e6482265073%_ + _%hd6482165077%_ + _%tl6482065080%_ + _%__splice7908079081%_ + _%target6485264923%_ + _%tl6485464926%_) (let () (declare (not safe)) - (_%g6497865041%_))))) + (_%g6480364866%_))))) (let () (declare (not safe)) - (_%g6497865041%_))) + (_%g6480364866%_))) (let () (declare (not safe)) - (_%g6497865041%_)))))) - (let () (declare (not safe)) (_%g6497865041%_))))) + (_%g6480364866%_)))))) + (let () (declare (not safe)) (_%g6480364866%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6497865041%_))) + (_%g6480364866%_))) (if (gx#stx-pair? - _%tl6498865231%_) - (let ((_%e6502365078%_ + _%tl6481365056%_) + (let ((_%e6484864903%_ (gx#syntax-e - _%tl6498865231%_))) - (let ((_%tl6502165085%_ + _%tl6481365056%_))) + (let ((_%tl6484664910%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6502365078%_))) - (_%hd6502265082%_ - (let () (declare (not safe)) (##car _%e6502365078%_)))) - (if (gx#stx-pair? _%tl6502165085%_) - (let ((_%e6502665088%_ (gx#syntax-e _%tl6502165085%_))) - (let ((_%tl6502465095%_ + (##cdr _%e6484864903%_))) + (_%hd6484764907%_ + (let () (declare (not safe)) (##car _%e6484864903%_)))) + (if (gx#stx-pair? _%tl6484664910%_) + (let ((_%e6485164913%_ (gx#syntax-e _%tl6484664910%_))) + (let ((_%tl6484964920%_ (let () (declare (not safe)) - (##cdr _%e6502665088%_))) - (_%hd6502565092%_ + (##cdr _%e6485164913%_))) + (_%hd6485064917%_ (let () (declare (not safe)) - (##car _%e6502665088%_)))) - (if (gx#stx-null? _%tl6502465095%_) - (if (gx#stx-pair/null? _%tl6498565221%_) - (let ((_%__splice7925579256%_ + (##car _%e6485164913%_)))) + (if (gx#stx-null? _%tl6484964920%_) + (if (gx#stx-pair/null? _%tl6481065046%_) + (let ((_%__splice7908079081%_ (gx#syntax-split-splice - _%tl6498565221%_ + _%tl6481065046%_ '0))) - (let ((_%tl6502965101%_ + (let ((_%tl6485464926%_ (let () (declare (not safe)) (##vector-ref - _%__splice7925579256%_ + _%__splice7908079081%_ '1))) - (_%target6502765098%_ + (_%target6485264923%_ (let () (declare (not safe)) (##vector-ref - _%__splice7925579256%_ + _%__splice7908079081%_ '0)))) - (if (gx#stx-null? _%tl6502965101%_) - (_%__match7934979350%_ - _%e6498465204%_ - _%hd6498365208%_ - _%tl6498265211%_ - _%e6498765214%_ - _%hd6498665218%_ - _%tl6498565221%_ - _%e6499065224%_ - _%hd6498965228%_ - _%tl6498865231%_ - _%e6502365078%_ - _%hd6502265082%_ - _%tl6502165085%_ - _%e6502665088%_ - _%hd6502565092%_ - _%tl6502465095%_ - _%__splice7925579256%_ - _%target6502765098%_ - _%tl6502965101%_) + (if (gx#stx-null? _%tl6485464926%_) + (_%__match7917479175%_ + _%e6480965029%_ + _%hd6480865033%_ + _%tl6480765036%_ + _%e6481265039%_ + _%hd6481165043%_ + _%tl6481065046%_ + _%e6481565049%_ + _%hd6481465053%_ + _%tl6481365056%_ + _%e6484864903%_ + _%hd6484764907%_ + _%tl6484664910%_ + _%e6485164913%_ + _%hd6485064917%_ + _%tl6484964920%_ + _%__splice7908079081%_ + _%target6485264923%_ + _%tl6485464926%_) (let () (declare (not safe)) - (_%g6497865041%_))))) + (_%g6480364866%_))))) (let () (declare (not safe)) - (_%g6497865041%_))) - (let () (declare (not safe)) (_%g6497865041%_))))) - (let () (declare (not safe)) (_%g6497865041%_))))) + (_%g6480364866%_))) + (let () (declare (not safe)) (_%g6480364866%_))))) + (let () (declare (not safe)) (_%g6480364866%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6497865041%_))))) - (if (gx#stx-pair? _%tl6498865231%_) - (let ((_%e6502365078%_ + (_%g6480364866%_))))) + (if (gx#stx-pair? _%tl6481365056%_) + (let ((_%e6484864903%_ (gx#syntax-e - _%tl6498865231%_))) - (let ((_%tl6502165085%_ + _%tl6481365056%_))) + (let ((_%tl6484664910%_ (let () (declare (not safe)) - (##cdr _%e6502365078%_))) - (_%hd6502265082%_ + (##cdr _%e6484864903%_))) + (_%hd6484764907%_ (let () (declare (not safe)) - (##car _%e6502365078%_)))) + (##car _%e6484864903%_)))) (if (gx#stx-pair? - _%tl6502165085%_) - (let ((_%e6502665088%_ + _%tl6484664910%_) + (let ((_%e6485164913%_ (gx#syntax-e - _%tl6502165085%_))) - (let ((_%tl6502465095%_ + _%tl6484664910%_))) + (let ((_%tl6484964920%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6502665088%_))) - (_%hd6502565092%_ - (let () (declare (not safe)) (##car _%e6502665088%_)))) - (if (gx#stx-null? _%tl6502465095%_) - (if (gx#stx-pair/null? _%tl6498565221%_) - (let ((_%__splice7925579256%_ - (gx#syntax-split-splice _%tl6498565221%_ '0))) - (let ((_%tl6502965101%_ + (##cdr _%e6485164913%_))) + (_%hd6485064917%_ + (let () (declare (not safe)) (##car _%e6485164913%_)))) + (if (gx#stx-null? _%tl6484964920%_) + (if (gx#stx-pair/null? _%tl6481065046%_) + (let ((_%__splice7908079081%_ + (gx#syntax-split-splice _%tl6481065046%_ '0))) + (let ((_%tl6485464926%_ (let () (declare (not safe)) - (##vector-ref _%__splice7925579256%_ '1))) - (_%target6502765098%_ + (##vector-ref _%__splice7908079081%_ '1))) + (_%target6485264923%_ (let () (declare (not safe)) (##vector-ref - _%__splice7925579256%_ + _%__splice7908079081%_ '0)))) - (if (gx#stx-null? _%tl6502965101%_) - (_%__match7934979350%_ - _%e6498465204%_ - _%hd6498365208%_ - _%tl6498265211%_ - _%e6498765214%_ - _%hd6498665218%_ - _%tl6498565221%_ - _%e6499065224%_ - _%hd6498965228%_ - _%tl6498865231%_ - _%e6502365078%_ - _%hd6502265082%_ - _%tl6502165085%_ - _%e6502665088%_ - _%hd6502565092%_ - _%tl6502465095%_ - _%__splice7925579256%_ - _%target6502765098%_ - _%tl6502965101%_) + (if (gx#stx-null? _%tl6485464926%_) + (_%__match7917479175%_ + _%e6480965029%_ + _%hd6480865033%_ + _%tl6480765036%_ + _%e6481265039%_ + _%hd6481165043%_ + _%tl6481065046%_ + _%e6481565049%_ + _%hd6481465053%_ + _%tl6481365056%_ + _%e6484864903%_ + _%hd6484764907%_ + _%tl6484664910%_ + _%e6485164913%_ + _%hd6485064917%_ + _%tl6484964920%_ + _%__splice7908079081%_ + _%target6485264923%_ + _%tl6485464926%_) (let () (declare (not safe)) - (_%g6497865041%_))))) - (let () (declare (not safe)) (_%g6497865041%_))) - (let () (declare (not safe)) (_%g6497865041%_))))) - (let () (declare (not safe)) (_%g6497865041%_))))) + (_%g6480364866%_))))) + (let () (declare (not safe)) (_%g6480364866%_))) + (let () (declare (not safe)) (_%g6480364866%_))))) + (let () (declare (not safe)) (_%g6480364866%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6497865041%_)))))) + (_%g6480364866%_)))))) (let () (declare (not safe)) - (_%g6497865041%_))))) - (let () (declare (not safe)) (_%g6497865041%_))))) - (let () (declare (not safe)) (_%g6497865041%_)))))))) + (_%g6480364866%_))))) + (let () (declare (not safe)) (_%g6480364866%_))))) + (let () (declare (not safe)) (_%g6480364866%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-contract| - (lambda (_%stx65364%_) - (let* ((_%g6536765391%_ - (lambda (_%g6536865387%_) + (lambda (_%stx65189%_) + (let* ((_%g6519265216%_ + (lambda (_%g6519365212%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6536865387%_))) - (_%g6536665507%_ - (lambda (_%g6536865395%_) - (if (gx#stx-pair? _%g6536865395%_) - (let ((_%e6537365398%_ (gx#syntax-e _%g6536865395%_))) - (let ((_%hd6537265402%_ + _%g6519365212%_))) + (_%g6519165332%_ + (lambda (_%g6519365220%_) + (if (gx#stx-pair? _%g6519365220%_) + (let ((_%e6519865223%_ (gx#syntax-e _%g6519365220%_))) + (let ((_%hd6519765227%_ (let () (declare (not safe)) - (##car _%e6537365398%_))) - (_%tl6537165405%_ + (##car _%e6519865223%_))) + (_%tl6519665230%_ (let () (declare (not safe)) - (##cdr _%e6537365398%_)))) - (if (gx#stx-pair? _%tl6537165405%_) - (let ((_%e6537665408%_ - (gx#syntax-e _%tl6537165405%_))) - (let ((_%hd6537565412%_ + (##cdr _%e6519865223%_)))) + (if (gx#stx-pair? _%tl6519665230%_) + (let ((_%e6520165233%_ + (gx#syntax-e _%tl6519665230%_))) + (let ((_%hd6520065237%_ (let () (declare (not safe)) - (##car _%e6537665408%_))) - (_%tl6537465415%_ + (##car _%e6520165233%_))) + (_%tl6519965240%_ (let () (declare (not safe)) - (##cdr _%e6537665408%_)))) - (if (gx#stx-pair/null? _%tl6537465415%_) - (let ((_g80898_ + (##cdr _%e6520165233%_)))) + (if (gx#stx-pair/null? _%tl6519965240%_) + (let ((_g80625_ (gx#syntax-split-splice - _%tl6537465415%_ + _%tl6519965240%_ '0))) (begin - (let ((_g80899_ + (let ((_g80626_ (let () (declare (not safe)) - (if (##values? _g80898_) + (if (##values? _g80625_) (##vector-length - _g80898_) + _g80625_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80899_ 2))) + (##fx= _g80626_ 2))) (error "Context expects 2 values" - _g80899_))) - (let ((_%target6537765418%_ + _g80626_))) + (let ((_%target6520265243%_ (let () (declare (not safe)) - (##vector-ref _g80898_ 0))) - (_%tl6537965421%_ + (##vector-ref _g80625_ 0))) + (_%tl6520465246%_ (let () (declare (not safe)) - (##vector-ref _g80898_ 1)))) - (if (gx#stx-null? _%tl6537965421%_) - (letrec ((_%loop6538065424%_ - (lambda (_%hd6537865428%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6538465431%_) - (if (gx#stx-pair? _%hd6537865428%_) - (let ((_%e6538165434%_ (gx#syntax-e _%hd6537865428%_))) - (let ((_%lp-hd6538265438%_ + (##vector-ref _g80625_ 1)))) + (if (gx#stx-null? _%tl6520465246%_) + (letrec ((_%loop6520565249%_ + (lambda (_%hd6520365253%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6520965256%_) + (if (gx#stx-pair? _%hd6520365253%_) + (let ((_%e6520665259%_ (gx#syntax-e _%hd6520365253%_))) + (let ((_%lp-hd6520765263%_ (let () (declare (not safe)) - (##car _%e6538165434%_))) - (_%lp-tl6538365441%_ + (##car _%e6520665259%_))) + (_%lp-tl6520865266%_ (let () (declare (not safe)) - (##cdr _%e6538165434%_)))) - (_%loop6538065424%_ - _%lp-tl6538365441%_ - (cons _%lp-hd6538265438%_ _%body6538465431%_)))) - (let ((_%body6538565444%_ - (reverse _%body6538465431%_))) - ((lambda (_%L65448%_ _%L65450%_) - (let* ((_%g6546865476%_ - (lambda (_%g6546965472%_) + (##cdr _%e6520665259%_)))) + (_%loop6520565249%_ + _%lp-tl6520865266%_ + (cons _%lp-hd6520765263%_ _%body6520965256%_)))) + (let ((_%body6521065269%_ + (reverse _%body6520965256%_))) + ((lambda (_%L65273%_ _%L65275%_) + (let* ((_%g6529365301%_ + (lambda (_%g6529465297%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6546965472%_))) - (_%g6546765503%_ - (lambda (_%g6546965480%_) - ((lambda (_%L65483%_) - (let () - (cons (gx#datum->syntax '#f 'using) - (cons _%L65483%_ - (foldr (lambda (_%g6549465497%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6549565500%_) - (cons _%g6549465497%_ _%g6549565500%_)) - '() - _%L65448%_))))) + _%g6529465297%_))) + (_%g6529265328%_ + (lambda (_%g6529465305%_) + ((lambda (_%L65308%_) + (cons (gx#datum->syntax '#f 'using) + (cons _%L65308%_ + (foldr (lambda (_%g6531965322%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6532065325%_) + (cons _%g6531965322%_ _%g6532065325%_)) + '() + _%L65273%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6546965480%_)))) - (_%g6546765503%_ + _%g6529465305%_)))) + (_%g6529265328%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx65364%_ - _%L65450%_ + _%stx65189%_ + _%L65275%_ '#t))))) - _%body6538565444%_ - _%hd6537565412%_)))))) + _%body6521065269%_ + _%hd6520065237%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6538065424%_ - _%target6537765418%_ + (_%loop6520565249%_ + _%target6520265243%_ '())) - (_%g6536765391%_ - _%g6536865395%_))))) - (_%g6536765391%_ _%g6536865395%_)))) - (_%g6536765391%_ _%g6536865395%_)))) - (_%g6536765391%_ _%g6536865395%_))))) - (_%g6536665507%_ _%stx65364%_)))) + (_%g6519265216%_ + _%g6519365220%_))))) + (_%g6519265216%_ _%g6519365220%_)))) + (_%g6519265216%_ _%g6519365220%_)))) + (_%g6519265216%_ _%g6519365220%_))))) + (_%g6519165332%_ _%stx65189%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-unchecked-contract| - (lambda (_%stx65512%_) - (let* ((_%g6551565539%_ - (lambda (_%g6551665535%_) + (lambda (_%stx65337%_) + (let* ((_%g6534065364%_ + (lambda (_%g6534165360%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6551665535%_))) - (_%g6551465655%_ - (lambda (_%g6551665543%_) - (if (gx#stx-pair? _%g6551665543%_) - (let ((_%e6552165546%_ (gx#syntax-e _%g6551665543%_))) - (let ((_%hd6552065550%_ + _%g6534165360%_))) + (_%g6533965480%_ + (lambda (_%g6534165368%_) + (if (gx#stx-pair? _%g6534165368%_) + (let ((_%e6534665371%_ (gx#syntax-e _%g6534165368%_))) + (let ((_%hd6534565375%_ (let () (declare (not safe)) - (##car _%e6552165546%_))) - (_%tl6551965553%_ + (##car _%e6534665371%_))) + (_%tl6534465378%_ (let () (declare (not safe)) - (##cdr _%e6552165546%_)))) - (if (gx#stx-pair? _%tl6551965553%_) - (let ((_%e6552465556%_ - (gx#syntax-e _%tl6551965553%_))) - (let ((_%hd6552365560%_ + (##cdr _%e6534665371%_)))) + (if (gx#stx-pair? _%tl6534465378%_) + (let ((_%e6534965381%_ + (gx#syntax-e _%tl6534465378%_))) + (let ((_%hd6534865385%_ (let () (declare (not safe)) - (##car _%e6552465556%_))) - (_%tl6552265563%_ + (##car _%e6534965381%_))) + (_%tl6534765388%_ (let () (declare (not safe)) - (##cdr _%e6552465556%_)))) - (if (gx#stx-pair/null? _%tl6552265563%_) - (let ((_g80900_ + (##cdr _%e6534965381%_)))) + (if (gx#stx-pair/null? _%tl6534765388%_) + (let ((_g80627_ (gx#syntax-split-splice - _%tl6552265563%_ + _%tl6534765388%_ '0))) (begin - (let ((_g80901_ + (let ((_g80628_ (let () (declare (not safe)) - (if (##values? _g80900_) + (if (##values? _g80627_) (##vector-length - _g80900_) + _g80627_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80901_ 2))) + (##fx= _g80628_ 2))) (error "Context expects 2 values" - _g80901_))) - (let ((_%target6552565566%_ + _g80628_))) + (let ((_%target6535065391%_ (let () (declare (not safe)) - (##vector-ref _g80900_ 0))) - (_%tl6552765569%_ + (##vector-ref _g80627_ 0))) + (_%tl6535265394%_ (let () (declare (not safe)) - (##vector-ref _g80900_ 1)))) - (if (gx#stx-null? _%tl6552765569%_) - (letrec ((_%loop6552865572%_ - (lambda (_%hd6552665576%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6553265579%_) - (if (gx#stx-pair? _%hd6552665576%_) - (let ((_%e6552965582%_ (gx#syntax-e _%hd6552665576%_))) - (let ((_%lp-hd6553065586%_ + (##vector-ref _g80627_ 1)))) + (if (gx#stx-null? _%tl6535265394%_) + (letrec ((_%loop6535365397%_ + (lambda (_%hd6535165401%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6535765404%_) + (if (gx#stx-pair? _%hd6535165401%_) + (let ((_%e6535465407%_ (gx#syntax-e _%hd6535165401%_))) + (let ((_%lp-hd6535565411%_ (let () (declare (not safe)) - (##car _%e6552965582%_))) - (_%lp-tl6553165589%_ + (##car _%e6535465407%_))) + (_%lp-tl6535665414%_ (let () (declare (not safe)) - (##cdr _%e6552965582%_)))) - (_%loop6552865572%_ - _%lp-tl6553165589%_ - (cons _%lp-hd6553065586%_ _%body6553265579%_)))) - (let ((_%body6553365592%_ - (reverse _%body6553265579%_))) - ((lambda (_%L65596%_ _%L65598%_) - (let* ((_%g6561665624%_ - (lambda (_%g6561765620%_) + (##cdr _%e6535465407%_)))) + (_%loop6535365397%_ + _%lp-tl6535665414%_ + (cons _%lp-hd6535565411%_ _%body6535765404%_)))) + (let ((_%body6535865417%_ + (reverse _%body6535765404%_))) + ((lambda (_%L65421%_ _%L65423%_) + (let* ((_%g6544165449%_ + (lambda (_%g6544265445%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6561765620%_))) - (_%g6561565651%_ - (lambda (_%g6561765628%_) - ((lambda (_%L65631%_) - (let () - (cons (gx#datum->syntax '#f 'using) - (cons _%L65631%_ - (foldr (lambda (_%g6564265645%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6564365648%_) - (cons _%g6564265645%_ _%g6564365648%_)) - '() - _%L65596%_))))) + _%g6544265445%_))) + (_%g6544065476%_ + (lambda (_%g6544265453%_) + ((lambda (_%L65456%_) + (cons (gx#datum->syntax '#f 'using) + (cons _%L65456%_ + (foldr (lambda (_%g6546765470%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6546865473%_) + (cons _%g6546765470%_ _%g6546865473%_)) + '() + _%L65421%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6561765628%_)))) - (_%g6561565651%_ + _%g6544265453%_)))) + (_%g6544065476%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx65512%_ - _%L65598%_ + _%stx65337%_ + _%L65423%_ '#f))))) - _%body6553365592%_ - _%hd6552365560%_)))))) + _%body6535865417%_ + _%hd6534865385%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6552865572%_ - _%target6552565566%_ + (_%loop6535365397%_ + _%target6535065391%_ '())) - (_%g6551565539%_ - _%g6551665543%_))))) - (_%g6551565539%_ _%g6551665543%_)))) - (_%g6551565539%_ _%g6551665543%_)))) - (_%g6551565539%_ _%g6551665543%_))))) - (_%g6551465655%_ _%stx65512%_)))) + (_%g6534065364%_ + _%g6534165368%_))))) + (_%g6534065364%_ _%g6534165368%_)))) + (_%g6534065364%_ _%g6534165368%_)))) + (_%g6534065364%_ _%g6534165368%_))))) + (_%g6533965480%_ _%stx65337%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#lambda/c| - (lambda (_%stx65660%_) - (letrec ((_%make-lambda65663%_ - (lambda (_%signature65931%_ _%return65933%_ _%body65934%_) - (let* ((_%g6593665968%_ - (lambda (_%g6593765964%_) + (lambda (_%stx65485%_) + (letrec ((_%make-lambda65488%_ + (lambda (_%signature65756%_ _%return65758%_ _%body65759%_) + (let* ((_%g6576165793%_ + (lambda (_%g6576265789%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6593765964%_))) - (_%g6593566083%_ - (lambda (_%g6593765972%_) - (if (gx#stx-pair? _%g6593765972%_) - (let ((_%e6594465975%_ - (gx#syntax-e _%g6593765972%_))) - (let ((_%hd6594365979%_ + _%g6576265789%_))) + (_%g6576065908%_ + (lambda (_%g6576265797%_) + (if (gx#stx-pair? _%g6576265797%_) + (let ((_%e6576965800%_ + (gx#syntax-e _%g6576265797%_))) + (let ((_%hd6576865804%_ (let () (declare (not safe)) - (##car _%e6594465975%_))) - (_%tl6594265982%_ + (##car _%e6576965800%_))) + (_%tl6576765807%_ (let () (declare (not safe)) - (##cdr _%e6594465975%_)))) - (if (gx#stx-pair? _%tl6594265982%_) - (let ((_%e6594765985%_ + (##cdr _%e6576965800%_)))) + (if (gx#stx-pair? _%tl6576765807%_) + (let ((_%e6577265810%_ (gx#syntax-e - _%tl6594265982%_))) - (let ((_%hd6594665989%_ + _%tl6576765807%_))) + (let ((_%hd6577165814%_ (let () (declare (not safe)) - (##car _%e6594765985%_))) - (_%tl6594565992%_ + (##car _%e6577265810%_))) + (_%tl6577065817%_ (let () (declare (not safe)) - (##cdr _%e6594765985%_)))) + (##cdr _%e6577265810%_)))) (if (gx#stx-pair? - _%tl6594565992%_) - (let ((_%e6595065995%_ + _%tl6577065817%_) + (let ((_%e6577565820%_ (gx#syntax-e - _%tl6594565992%_))) - (let ((_%hd6594965999%_ + _%tl6577065817%_))) + (let ((_%hd6577465824%_ (let () (declare (not safe)) - (##car _%e6595065995%_))) - (_%tl6594866002%_ + (##car _%e6577565820%_))) + (_%tl6577365827%_ (let () (declare (not safe)) - (##cdr _%e6595065995%_)))) + (##cdr _%e6577565820%_)))) (if (gx#stx-pair? - _%tl6594866002%_) - (let ((_%e6595366005%_ + _%tl6577365827%_) + (let ((_%e6577865830%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6594866002%_))) - (let ((_%hd6595266009%_ + (gx#syntax-e _%tl6577365827%_))) + (let ((_%hd6577765834%_ (let () (declare (not safe)) - (##car _%e6595366005%_))) - (_%tl6595166012%_ + (##car _%e6577865830%_))) + (_%tl6577665837%_ (let () (declare (not safe)) - (##cdr _%e6595366005%_)))) - (if (gx#stx-pair/null? _%hd6595266009%_) - (let ((_g80902_ - (gx#syntax-split-splice _%hd6595266009%_ '0))) + (##cdr _%e6577865830%_)))) + (if (gx#stx-pair/null? _%hd6577765834%_) + (let ((_g80629_ + (gx#syntax-split-splice _%hd6577765834%_ '0))) (begin - (let ((_g80903_ + (let ((_g80630_ (let () (declare (not safe)) - (if (##values? _g80902_) - (##vector-length _g80902_) + (if (##values? _g80629_) + (##vector-length _g80629_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80903_ 2))) + (##fx= _g80630_ 2))) (error "Context expects 2 values" - _g80903_))) - (let ((_%target6595466015%_ + _g80630_))) + (let ((_%target6577965840%_ (let () (declare (not safe)) - (##vector-ref _g80902_ 0))) - (_%tl6595666018%_ + (##vector-ref _g80629_ 0))) + (_%tl6578165843%_ (let () (declare (not safe)) - (##vector-ref _g80902_ 1)))) - (if (gx#stx-null? _%tl6595666018%_) - (letrec ((_%loop6595766021%_ - (lambda (_%hd6595566025%_ - _%body6596166028%_) + (##vector-ref _g80629_ 1)))) + (if (gx#stx-null? _%tl6578165843%_) + (letrec ((_%loop6578265846%_ + (lambda (_%hd6578065850%_ + _%body6578665853%_) (if (gx#stx-pair? - _%hd6595566025%_) - (let ((_%e6595866031%_ + _%hd6578065850%_) + (let ((_%e6578365856%_ (gx#syntax-e - _%hd6595566025%_))) - (let ((_%lp-hd6595966035%_ + _%hd6578065850%_))) + (let ((_%lp-hd6578465860%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6595866031%_))) - (_%lp-tl6596066038%_ - (let () (declare (not safe)) (##cdr _%e6595866031%_)))) - (_%loop6595766021%_ - _%lp-tl6596066038%_ - (cons _%lp-hd6595966035%_ _%body6596166028%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body6596266041%_ - (reverse _%body6596166028%_))) + (##car _%e6578365856%_))) + (_%lp-tl6578565863%_ + (let () (declare (not safe)) (##cdr _%e6578365856%_)))) + (_%loop6578265846%_ + _%lp-tl6578565863%_ + (cons _%lp-hd6578465860%_ _%body6578665853%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%body6578765866%_ + (reverse _%body6578665853%_))) (if (gx#stx-null? - _%tl6595166012%_) - ((lambda (_%L66045%_ + _%tl6577665837%_) + ((lambda (_%L65870%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%L65872%_ + _%L65873%_ + _%L65874%_) + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'lambda) + (cons _%L65874%_ + (cons (cons (gx#datum->syntax + '#f + 'with-procedure-signature) + (cons (cons _%L65873%_ + (cons _%L65872%_ + (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L66047%_ - _%L66048%_ - _%L66049%_) - (let () - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'lambda) - (cons _%L66049%_ - (cons (cons (gx#datum->syntax - '#f - 'with-procedure-signature) - (cons (cons _%L66048%_ - (cons _%L66047%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '#f '()))) - (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L66048%_ - (foldr (lambda (_%g6607466077%_ - _%g6607566080%_) - (cons _%g6607466077%_ - _%g6607566080%_)) - '() - _%L66045%_))) - '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (gx#stx-source _%stx65660%_)))) - _%body6596266041%_ - _%hd6594965999%_ - _%hd6594665989%_ - _%hd6594365979%_) - (_%g6593665968%_ _%g6593765972%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6595766021%_ - _%target6595466015%_ + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'with-procedure-contract) + (cons _%L65873%_ + (foldr (lambda (_%g6589965902%_ _%g6590065905%_) + (cons _%g6589965902%_ _%g6590065905%_)) + '() + _%L65870%_))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (gx#stx-source _%stx65485%_))) + _%body6578765866%_ + _%hd6577465824%_ + _%hd6577165814%_ + _%hd6576865804%_) + (_%g6576165793%_ _%g6576265797%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6578265846%_ + _%target6577965840%_ '())) - (_%g6593665968%_ _%g6593765972%_))))) - (_%g6593665968%_ _%g6593765972%_)))) - (_%g6593665968%_ _%g6593765972%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6593665968%_ - _%g6593765972%_)))) - (_%g6593665968%_ _%g6593765972%_)))) - (_%g6593665968%_ _%g6593765972%_))))) - (_%g6593566083%_ + (_%g6576165793%_ _%g6576265797%_))))) + (_%g6576165793%_ _%g6576265797%_)))) + (_%g6576165793%_ _%g6576265797%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6576165793%_ + _%g6576265797%_)))) + (_%g6576165793%_ _%g6576265797%_)))) + (_%g6576165793%_ _%g6576265797%_))))) + (_%g6576065908%_ (list (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature65931%_)) - _%signature65931%_ - _%return65933%_ - _%body65934%_)))))) - (let* ((_%__stx7935279353%_ _%stx65660%_) - (_%g6566765715%_ + _%signature65756%_)) + _%signature65756%_ + _%return65758%_ + _%body65759%_)))))) + (let* ((_%__stx7917779178%_ _%stx65485%_) + (_%g6549265540%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7935279353%_)))) - (let ((_%__kont7935579356%_ - (lambda (_%L65886%_ _%L65888%_ _%L65889%_) - (if (let () - (declare (not safe)) - (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L65889%_)) - (_%make-lambda65663%_ - _%L65889%_ - _%L65888%_ - (foldr (lambda (_%g6591065913%_ _%g6591165916%_) - (cons _%g6591065913%_ _%g6591165916%_)) + _%__stx7917779178%_)))) + (let ((_%__kont7918079181%_ + (lambda (_%L65711%_ _%L65713%_ _%L65714%_) + (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| + _%L65714%_) + (_%make-lambda65488%_ + _%L65714%_ + _%L65713%_ + (foldr (lambda (_%g6573565738%_ _%g6573665741%_) + (cons _%g6573565738%_ _%g6573665741%_)) '() - _%L65886%_)) + _%L65711%_)) (cons (gx#datum->syntax '#f 'lambda) - (cons _%L65889%_ + (cons _%L65714%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f - (cons _%L65888%_ + (cons _%L65713%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '()))) - (foldr (lambda (_%g6591865921%_ _%g6591965924%_) - (cons _%g6591865921%_ _%g6591965924%_)) + (foldr (lambda (_%g6574365746%_ _%g6574465749%_) + (cons _%g6574365746%_ _%g6574465749%_)) '() - _%L65886%_))) + _%L65711%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont7935979360%_ - (lambda (_%L65772%_ _%L65774%_) - (if (let () - (declare (not safe)) - (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L65774%_)) + (_%__kont7918479185%_ + (lambda (_%L65597%_ _%L65599%_) + (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| + _%L65599%_) (cons (gx#datum->syntax '#f 'lambda/c) - (cons _%L65774%_ + (cons _%L65599%_ (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6579265795%_ + (foldr (lambda (_%g6561765620%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6579365798%_) - (cons _%g6579265795%_ _%g6579365798%_)) + _%g6561865623%_) + (cons _%g6561765620%_ _%g6561865623%_)) '() - _%L65772%_))))) + _%L65597%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f 'lambda) - (cons _%L65774%_ - (foldr (lambda (_%g6580065803%_ - _%g6580165806%_) - (cons _%g6580065803%_ - _%g6580165806%_)) + (cons _%L65599%_ + (foldr (lambda (_%g6562565628%_ + _%g6562665631%_) + (cons _%g6562565628%_ + _%g6562665631%_)) '() - _%L65772%_))))))) - (let* ((_%__match7941979420%_ - (lambda (_%e6569765722%_ - _%hd6569665726%_ - _%tl6569565729%_ - _%e6570065732%_ - _%hd6569965736%_ - _%tl6569865739%_ - _%__splice7936179362%_ - _%target6570165742%_ - _%tl6570365745%_) - (letrec ((_%loop6570465748%_ - (lambda (_%hd6570265752%_ _%body6570865755%_) - (if (gx#stx-pair? _%hd6570265752%_) - (let ((_%e6570565758%_ - (gx#syntax-e _%hd6570265752%_))) - (let ((_%lp-tl6570765765%_ + _%L65597%_))))))) + (let* ((_%__match7924479245%_ + (lambda (_%e6552265547%_ + _%hd6552165551%_ + _%tl6552065554%_ + _%e6552565557%_ + _%hd6552465561%_ + _%tl6552365564%_ + _%__splice7918679187%_ + _%target6552665567%_ + _%tl6552865570%_) + (letrec ((_%loop6552965573%_ + (lambda (_%hd6552765577%_ _%body6553365580%_) + (if (gx#stx-pair? _%hd6552765577%_) + (let ((_%e6553065583%_ + (gx#syntax-e _%hd6552765577%_))) + (let ((_%lp-tl6553265590%_ (let () (declare (not safe)) - (##cdr _%e6570565758%_))) - (_%lp-hd6570665762%_ + (##cdr _%e6553065583%_))) + (_%lp-hd6553165587%_ (let () (declare (not safe)) - (##car _%e6570565758%_)))) - (_%loop6570465748%_ - _%lp-tl6570765765%_ - (cons _%lp-hd6570665762%_ - _%body6570865755%_)))) - (let ((_%body6570965768%_ - (reverse _%body6570865755%_))) - (_%__kont7935979360%_ - _%body6570965768%_ - _%hd6569965736%_)))))) - (_%loop6570465748%_ _%target6570165742%_ '())))) - (_%__match7939979400%_ - (lambda (_%e6567465816%_ - _%hd6567365820%_ - _%tl6567265823%_ - _%e6567765826%_ - _%hd6567665830%_ - _%tl6567565833%_ - _%e6568065836%_ - _%hd6567965840%_ - _%tl6567865843%_ - _%e6568365846%_ - _%hd6568265850%_ - _%tl6568165853%_ - _%__splice7935779358%_ - _%target6568465856%_ - _%tl6568665859%_) - (letrec ((_%loop6568765862%_ - (lambda (_%hd6568565866%_ _%body6569165869%_) - (if (gx#stx-pair? _%hd6568565866%_) - (let ((_%e6568865872%_ - (gx#syntax-e _%hd6568565866%_))) - (let ((_%lp-tl6569065879%_ + (##car _%e6553065583%_)))) + (_%loop6552965573%_ + _%lp-tl6553265590%_ + (cons _%lp-hd6553165587%_ + _%body6553365580%_)))) + (let ((_%body6553465593%_ + (reverse _%body6553365580%_))) + (_%__kont7918479185%_ + _%body6553465593%_ + _%hd6552465561%_)))))) + (_%loop6552965573%_ _%target6552665567%_ '())))) + (_%__match7922479225%_ + (lambda (_%e6549965641%_ + _%hd6549865645%_ + _%tl6549765648%_ + _%e6550265651%_ + _%hd6550165655%_ + _%tl6550065658%_ + _%e6550565661%_ + _%hd6550465665%_ + _%tl6550365668%_ + _%e6550865671%_ + _%hd6550765675%_ + _%tl6550665678%_ + _%__splice7918279183%_ + _%target6550965681%_ + _%tl6551165684%_) + (letrec ((_%loop6551265687%_ + (lambda (_%hd6551065691%_ _%body6551665694%_) + (if (gx#stx-pair? _%hd6551065691%_) + (let ((_%e6551365697%_ + (gx#syntax-e _%hd6551065691%_))) + (let ((_%lp-tl6551565704%_ (let () (declare (not safe)) - (##cdr _%e6568865872%_))) - (_%lp-hd6568965876%_ + (##cdr _%e6551365697%_))) + (_%lp-hd6551465701%_ (let () (declare (not safe)) - (##car _%e6568865872%_)))) - (_%loop6568765862%_ - _%lp-tl6569065879%_ - (cons _%lp-hd6568965876%_ - _%body6569165869%_)))) - (let ((_%body6569265882%_ - (reverse _%body6569165869%_))) - (_%__kont7935579356%_ - _%body6569265882%_ - _%hd6568265850%_ - _%hd6567665830%_)))))) - (_%loop6568765862%_ _%target6568465856%_ '()))))) - (if (gx#stx-pair? _%__stx7935279353%_) - (let ((_%e6567465816%_ (gx#syntax-e _%__stx7935279353%_))) - (let ((_%tl6567265823%_ + (##car _%e6551365697%_)))) + (_%loop6551265687%_ + _%lp-tl6551565704%_ + (cons _%lp-hd6551465701%_ + _%body6551665694%_)))) + (let ((_%body6551765707%_ + (reverse _%body6551665694%_))) + (_%__kont7918079181%_ + _%body6551765707%_ + _%hd6550765675%_ + _%hd6550165655%_)))))) + (_%loop6551265687%_ _%target6550965681%_ '()))))) + (if (gx#stx-pair? _%__stx7917779178%_) + (let ((_%e6549965641%_ (gx#syntax-e _%__stx7917779178%_))) + (let ((_%tl6549765648%_ (let () (declare (not safe)) - (##cdr _%e6567465816%_))) - (_%hd6567365820%_ + (##cdr _%e6549965641%_))) + (_%hd6549865645%_ (let () (declare (not safe)) - (##car _%e6567465816%_)))) - (if (gx#stx-pair? _%tl6567265823%_) - (let ((_%e6567765826%_ - (gx#syntax-e _%tl6567265823%_))) - (let ((_%tl6567565833%_ + (##car _%e6549965641%_)))) + (if (gx#stx-pair? _%tl6549765648%_) + (let ((_%e6550265651%_ + (gx#syntax-e _%tl6549765648%_))) + (let ((_%tl6550065658%_ (let () (declare (not safe)) - (##cdr _%e6567765826%_))) - (_%hd6567665830%_ + (##cdr _%e6550265651%_))) + (_%hd6550165655%_ (let () (declare (not safe)) - (##car _%e6567765826%_)))) - (if (gx#stx-pair? _%tl6567565833%_) - (let ((_%e6568065836%_ - (gx#syntax-e _%tl6567565833%_))) - (let ((_%tl6567865843%_ + (##car _%e6550265651%_)))) + (if (gx#stx-pair? _%tl6550065658%_) + (let ((_%e6550565661%_ + (gx#syntax-e _%tl6550065658%_))) + (let ((_%tl6550365668%_ (let () (declare (not safe)) - (##cdr _%e6568065836%_))) - (_%hd6567965840%_ + (##cdr _%e6550565661%_))) + (_%hd6550465665%_ (let () (declare (not safe)) - (##car _%e6568065836%_)))) - (if (gx#identifier? _%hd6567965840%_) + (##car _%e6550565661%_)))) + (if (gx#identifier? _%hd6550465665%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80904_| - _%hd6567965840%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80631_| + _%hd6550465665%_) (if (gx#stx-pair? - _%tl6567865843%_) - (let ((_%e6568365846%_ + _%tl6550365668%_) + (let ((_%e6550865671%_ (gx#syntax-e - _%tl6567865843%_))) - (let ((_%tl6568165853%_ + _%tl6550365668%_))) + (let ((_%tl6550665678%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6568365846%_))) - (_%hd6568265850%_ - (let () (declare (not safe)) (##car _%e6568365846%_)))) - (if (gx#stx-pair/null? _%tl6568165853%_) - (let ((_%__splice7935779358%_ - (gx#syntax-split-splice _%tl6568165853%_ '0))) - (let ((_%tl6568665859%_ + (##cdr _%e6550865671%_))) + (_%hd6550765675%_ + (let () (declare (not safe)) (##car _%e6550865671%_)))) + (if (gx#stx-pair/null? _%tl6550665678%_) + (let ((_%__splice7918279183%_ + (gx#syntax-split-splice _%tl6550665678%_ '0))) + (let ((_%tl6551165684%_ (let () (declare (not safe)) - (##vector-ref _%__splice7935779358%_ '1))) - (_%target6568465856%_ + (##vector-ref _%__splice7918279183%_ '1))) + (_%target6550965681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7935779358%_ '0)))) - (if (gx#stx-null? _%tl6568665859%_) - (_%__match7939979400%_ - _%e6567465816%_ - _%hd6567365820%_ - _%tl6567265823%_ - _%e6567765826%_ - _%hd6567665830%_ - _%tl6567565833%_ - _%e6568065836%_ - _%hd6567965840%_ - _%tl6567865843%_ - _%e6568365846%_ - _%hd6568265850%_ - _%tl6568165853%_ - _%__splice7935779358%_ - _%target6568465856%_ - _%tl6568665859%_) - (if (gx#stx-pair/null? _%tl6567565833%_) - (let ((_%__splice7936179362%_ + (##vector-ref _%__splice7918279183%_ '0)))) + (if (gx#stx-null? _%tl6551165684%_) + (_%__match7922479225%_ + _%e6549965641%_ + _%hd6549865645%_ + _%tl6549765648%_ + _%e6550265651%_ + _%hd6550165655%_ + _%tl6550065658%_ + _%e6550565661%_ + _%hd6550465665%_ + _%tl6550365668%_ + _%e6550865671%_ + _%hd6550765675%_ + _%tl6550665678%_ + _%__splice7918279183%_ + _%target6550965681%_ + _%tl6551165684%_) + (if (gx#stx-pair/null? _%tl6550065658%_) + (let ((_%__splice7918679187%_ (gx#syntax-split-splice - _%tl6567565833%_ + _%tl6550065658%_ '0))) - (let ((_%tl6570365745%_ + (let ((_%tl6552865570%_ (let () (declare (not safe)) (##vector-ref - _%__splice7936179362%_ + _%__splice7918679187%_ '1))) - (_%target6570165742%_ + (_%target6552665567%_ (let () (declare (not safe)) (##vector-ref - _%__splice7936179362%_ + _%__splice7918679187%_ '0)))) - (if (gx#stx-null? _%tl6570365745%_) - (_%__match7941979420%_ - _%e6567465816%_ - _%hd6567365820%_ - _%tl6567265823%_ - _%e6567765826%_ - _%hd6567665830%_ - _%tl6567565833%_ - _%__splice7936179362%_ - _%target6570165742%_ - _%tl6570365745%_) + (if (gx#stx-null? _%tl6552865570%_) + (_%__match7924479245%_ + _%e6549965641%_ + _%hd6549865645%_ + _%tl6549765648%_ + _%e6550265651%_ + _%hd6550165655%_ + _%tl6550065658%_ + _%__splice7918679187%_ + _%target6552665567%_ + _%tl6552865570%_) (let () (declare (not safe)) - (_%g6566765715%_))))) + (_%g6549265540%_))))) (let () (declare (not safe)) - (_%g6566765715%_)))))) - (if (gx#stx-pair/null? _%tl6567565833%_) - (let ((_%__splice7936179362%_ - (gx#syntax-split-splice _%tl6567565833%_ '0))) - (let ((_%tl6570365745%_ + (_%g6549265540%_)))))) + (if (gx#stx-pair/null? _%tl6550065658%_) + (let ((_%__splice7918679187%_ + (gx#syntax-split-splice _%tl6550065658%_ '0))) + (let ((_%tl6552865570%_ (let () (declare (not safe)) - (##vector-ref _%__splice7936179362%_ '1))) - (_%target6570165742%_ + (##vector-ref _%__splice7918679187%_ '1))) + (_%target6552665567%_ (let () (declare (not safe)) - (##vector-ref _%__splice7936179362%_ '0)))) - (if (gx#stx-null? _%tl6570365745%_) - (_%__match7941979420%_ - _%e6567465816%_ - _%hd6567365820%_ - _%tl6567265823%_ - _%e6567765826%_ - _%hd6567665830%_ - _%tl6567565833%_ - _%__splice7936179362%_ - _%target6570165742%_ - _%tl6570365745%_) + (##vector-ref _%__splice7918679187%_ '0)))) + (if (gx#stx-null? _%tl6552865570%_) + (_%__match7924479245%_ + _%e6549965641%_ + _%hd6549865645%_ + _%tl6549765648%_ + _%e6550265651%_ + _%hd6550165655%_ + _%tl6550065658%_ + _%__splice7918679187%_ + _%target6552665567%_ + _%tl6552865570%_) (let () (declare (not safe)) - (_%g6566765715%_))))) - (let () (declare (not safe)) (_%g6566765715%_)))))) + (_%g6549265540%_))))) + (let () (declare (not safe)) (_%g6549265540%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6567565833%_) - (let ((_%__splice7936179362%_ + _%tl6550065658%_) + (let ((_%__splice7918679187%_ (gx#syntax-split-splice - _%tl6567565833%_ + _%tl6550065658%_ '0))) - (let ((_%tl6570365745%_ + (let ((_%tl6552865570%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice7936179362%_ '1))) - (_%target6570165742%_ + (##vector-ref _%__splice7918679187%_ '1))) + (_%target6552665567%_ (let () (declare (not safe)) - (##vector-ref _%__splice7936179362%_ '0)))) - (if (gx#stx-null? _%tl6570365745%_) - (_%__match7941979420%_ - _%e6567465816%_ - _%hd6567365820%_ - _%tl6567265823%_ - _%e6567765826%_ - _%hd6567665830%_ - _%tl6567565833%_ - _%__splice7936179362%_ - _%target6570165742%_ - _%tl6570365745%_) - (let () (declare (not safe)) (_%g6566765715%_))))) - (let () (declare (not safe)) (_%g6566765715%_)))) + (##vector-ref _%__splice7918679187%_ '0)))) + (if (gx#stx-null? _%tl6552865570%_) + (_%__match7924479245%_ + _%e6549965641%_ + _%hd6549865645%_ + _%tl6549765648%_ + _%e6550265651%_ + _%hd6550165655%_ + _%tl6550065658%_ + _%__splice7918679187%_ + _%target6552665567%_ + _%tl6552865570%_) + (let () (declare (not safe)) (_%g6549265540%_))))) + (let () (declare (not safe)) (_%g6549265540%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6567565833%_) - (let ((_%__splice7936179362%_ + _%tl6550065658%_) + (let ((_%__splice7918679187%_ (gx#syntax-split-splice - _%tl6567565833%_ + _%tl6550065658%_ '0))) - (let ((_%tl6570365745%_ + (let ((_%tl6552865570%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice7936179362%_ '1))) - (_%target6570165742%_ + (##vector-ref _%__splice7918679187%_ '1))) + (_%target6552665567%_ (let () (declare (not safe)) - (##vector-ref _%__splice7936179362%_ '0)))) - (if (gx#stx-null? _%tl6570365745%_) - (_%__match7941979420%_ - _%e6567465816%_ - _%hd6567365820%_ - _%tl6567265823%_ - _%e6567765826%_ - _%hd6567665830%_ - _%tl6567565833%_ - _%__splice7936179362%_ - _%target6570165742%_ - _%tl6570365745%_) - (let () (declare (not safe)) (_%g6566765715%_))))) + (##vector-ref _%__splice7918679187%_ '0)))) + (if (gx#stx-null? _%tl6552865570%_) + (_%__match7924479245%_ + _%e6549965641%_ + _%hd6549865645%_ + _%tl6549765648%_ + _%e6550265651%_ + _%hd6550165655%_ + _%tl6550065658%_ + _%__splice7918679187%_ + _%target6552665567%_ + _%tl6552865570%_) + (let () (declare (not safe)) (_%g6549265540%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6566765715%_)))) + (_%g6549265540%_)))) (if (gx#stx-pair/null? - _%tl6567565833%_) - (let ((_%__splice7936179362%_ + _%tl6550065658%_) + (let ((_%__splice7918679187%_ (gx#syntax-split-splice - _%tl6567565833%_ + _%tl6550065658%_ '0))) - (let ((_%tl6570365745%_ + (let ((_%tl6552865570%_ (let () (declare (not safe)) (##vector-ref - _%__splice7936179362%_ + _%__splice7918679187%_ '1))) - (_%target6570165742%_ + (_%target6552665567%_ (let () (declare (not safe)) (##vector-ref - _%__splice7936179362%_ + _%__splice7918679187%_ '0)))) (if (gx#stx-null? - _%tl6570365745%_) - (_%__match7941979420%_ - _%e6567465816%_ - _%hd6567365820%_ - _%tl6567265823%_ - _%e6567765826%_ - _%hd6567665830%_ - _%tl6567565833%_ - _%__splice7936179362%_ - _%target6570165742%_ - _%tl6570365745%_) + _%tl6552865570%_) + (_%__match7924479245%_ + _%e6549965641%_ + _%hd6549865645%_ + _%tl6549765648%_ + _%e6550265651%_ + _%hd6550165655%_ + _%tl6550065658%_ + _%__splice7918679187%_ + _%target6552665567%_ + _%tl6552865570%_) (let () (declare (not safe)) - (_%g6566765715%_))))) + (_%g6549265540%_))))) (let () (declare (not safe)) - (_%g6566765715%_)))))) - (if (gx#stx-pair/null? _%tl6567565833%_) - (let ((_%__splice7936179362%_ + (_%g6549265540%_)))))) + (if (gx#stx-pair/null? _%tl6550065658%_) + (let ((_%__splice7918679187%_ (gx#syntax-split-splice - _%tl6567565833%_ + _%tl6550065658%_ '0))) - (let ((_%tl6570365745%_ + (let ((_%tl6552865570%_ (let () (declare (not safe)) (##vector-ref - _%__splice7936179362%_ + _%__splice7918679187%_ '1))) - (_%target6570165742%_ + (_%target6552665567%_ (let () (declare (not safe)) (##vector-ref - _%__splice7936179362%_ + _%__splice7918679187%_ '0)))) - (if (gx#stx-null? _%tl6570365745%_) - (_%__match7941979420%_ - _%e6567465816%_ - _%hd6567365820%_ - _%tl6567265823%_ - _%e6567765826%_ - _%hd6567665830%_ - _%tl6567565833%_ - _%__splice7936179362%_ - _%target6570165742%_ - _%tl6570365745%_) + (if (gx#stx-null? _%tl6552865570%_) + (_%__match7924479245%_ + _%e6549965641%_ + _%hd6549865645%_ + _%tl6549765648%_ + _%e6550265651%_ + _%hd6550165655%_ + _%tl6550065658%_ + _%__splice7918679187%_ + _%target6552665567%_ + _%tl6552865570%_) (let () (declare (not safe)) - (_%g6566765715%_))))) + (_%g6549265540%_))))) (let () (declare (not safe)) - (_%g6566765715%_)))))) - (let () (declare (not safe)) (_%g6566765715%_))))) - (let () (declare (not safe)) (_%g6566765715%_))))))))) + (_%g6549265540%_)))))) + (let () (declare (not safe)) (_%g6549265540%_))))) + (let () (declare (not safe)) (_%g6549265540%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#def*/c| - (lambda (_%$stx66090%_) - (let* ((_%g6609466118%_ - (lambda (_%g6609566114%_) + (lambda (_%$stx65915%_) + (let* ((_%g6591965943%_ + (lambda (_%g6592065939%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6609566114%_))) - (_%g6609366203%_ - (lambda (_%g6609566122%_) - (if (gx#stx-pair? _%g6609566122%_) - (let ((_%e6610066125%_ (gx#syntax-e _%g6609566122%_))) - (let ((_%hd6609966129%_ + _%g6592065939%_))) + (_%g6591866028%_ + (lambda (_%g6592065947%_) + (if (gx#stx-pair? _%g6592065947%_) + (let ((_%e6592565950%_ (gx#syntax-e _%g6592065947%_))) + (let ((_%hd6592465954%_ (let () (declare (not safe)) - (##car _%e6610066125%_))) - (_%tl6609866132%_ + (##car _%e6592565950%_))) + (_%tl6592365957%_ (let () (declare (not safe)) - (##cdr _%e6610066125%_)))) - (if (gx#stx-pair? _%tl6609866132%_) - (let ((_%e6610366135%_ - (gx#syntax-e _%tl6609866132%_))) - (let ((_%hd6610266139%_ + (##cdr _%e6592565950%_)))) + (if (gx#stx-pair? _%tl6592365957%_) + (let ((_%e6592865960%_ + (gx#syntax-e _%tl6592365957%_))) + (let ((_%hd6592765964%_ (let () (declare (not safe)) - (##car _%e6610366135%_))) - (_%tl6610166142%_ + (##car _%e6592865960%_))) + (_%tl6592665967%_ (let () (declare (not safe)) - (##cdr _%e6610366135%_)))) - (if (gx#stx-pair/null? _%tl6610166142%_) - (let ((_g80905_ + (##cdr _%e6592865960%_)))) + (if (gx#stx-pair/null? _%tl6592665967%_) + (let ((_g80632_ (gx#syntax-split-splice - _%tl6610166142%_ + _%tl6592665967%_ '0))) (begin - (let ((_g80906_ + (let ((_g80633_ (let () (declare (not safe)) - (if (##values? _g80905_) + (if (##values? _g80632_) (##vector-length - _g80905_) + _g80632_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80906_ 2))) + (##fx= _g80633_ 2))) (error "Context expects 2 values" - _g80906_))) - (let ((_%target6610466145%_ + _g80633_))) + (let ((_%target6592965970%_ (let () (declare (not safe)) - (##vector-ref _g80905_ 0))) - (_%tl6610666148%_ + (##vector-ref _g80632_ 0))) + (_%tl6593165973%_ (let () (declare (not safe)) - (##vector-ref _g80905_ 1)))) - (if (gx#stx-null? _%tl6610666148%_) - (letrec ((_%loop6610766151%_ - (lambda (_%hd6610566155%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause6611166158%_) - (if (gx#stx-pair? _%hd6610566155%_) - (let ((_%e6610866161%_ (gx#syntax-e _%hd6610566155%_))) - (let ((_%lp-hd6610966165%_ + (##vector-ref _g80632_ 1)))) + (if (gx#stx-null? _%tl6593165973%_) + (letrec ((_%loop6593265976%_ + (lambda (_%hd6593065980%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clause6593665983%_) + (if (gx#stx-pair? _%hd6593065980%_) + (let ((_%e6593365986%_ (gx#syntax-e _%hd6593065980%_))) + (let ((_%lp-hd6593465990%_ (let () (declare (not safe)) - (##car _%e6610866161%_))) - (_%lp-tl6611066168%_ + (##car _%e6593365986%_))) + (_%lp-tl6593565993%_ (let () (declare (not safe)) - (##cdr _%e6610866161%_)))) - (_%loop6610766151%_ - _%lp-tl6611066168%_ - (cons _%lp-hd6610966165%_ _%clause6611166158%_)))) - (let ((_%clause6611266171%_ - (reverse _%clause6611166158%_))) - ((lambda (_%L66175%_ _%L66177%_) + (##cdr _%e6593365986%_)))) + (_%loop6593265976%_ + _%lp-tl6593565993%_ + (cons _%lp-hd6593465990%_ _%clause6593665983%_)))) + (let ((_%clause6593765996%_ + (reverse _%clause6593665983%_))) + ((lambda (_%L66000%_ _%L66002%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L66177%_ + (cons _%L66002%_ (cons (cons (gx#datum->syntax '#f 'case-lambda/c) - (foldr (lambda (_%g6619466197%_ + (foldr (lambda (_%g6601966022%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6619566200%_) - (cons _%g6619466197%_ _%g6619566200%_)) + _%g6602066025%_) + (cons _%g6601966022%_ _%g6602066025%_)) '() - _%L66175%_)) + _%L66000%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%clause6611266171%_ - _%hd6610266139%_)))))) + _%clause6593765996%_ + _%hd6592765964%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6610766151%_ - _%target6610466145%_ + (_%loop6593265976%_ + _%target6592965970%_ '())) - (_%g6609466118%_ - _%g6609566122%_))))) - (_%g6609466118%_ _%g6609566122%_)))) - (_%g6609466118%_ _%g6609566122%_)))) - (_%g6609466118%_ _%g6609566122%_))))) - (_%g6609366203%_ _%$stx66090%_)))) + (_%g6591965943%_ + _%g6592065947%_))))) + (_%g6591965943%_ _%g6592065947%_)))) + (_%g6591965943%_ _%g6592065947%_)))) + (_%g6591965943%_ _%g6592065947%_))))) + (_%g6591866028%_ _%$stx65915%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#case-lambda/c| - (lambda (_%stx66208%_) - (letrec ((_%is-clause-signature?66211%_ - (lambda (_%clause66745%_) - (let* ((_%__stx7942279423%_ _%clause66745%_) - (_%g6674966791%_ + (lambda (_%stx66033%_) + (letrec ((_%is-clause-signature?66036%_ + (lambda (_%clause66570%_) + (let* ((_%__stx7924779248%_ _%clause66570%_) + (_%g6657466616%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7942279423%_)))) - (let ((_%__kont7942579426%_ - (lambda (_%L66923%_ _%L66925%_ _%L66926%_) '#t)) - (_%__kont7942979430%_ - (lambda (_%L66838%_ _%L66840%_) - (let () - (declare (not safe)) - (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L66840%_))))) - (let* ((_%__match7947779478%_ - (lambda (_%e6677666798%_ - _%hd6677566802%_ - _%tl6677466805%_ - _%__splice7943179432%_ - _%target6677766808%_ - _%tl6677966811%_) - (letrec ((_%loop6678066814%_ - (lambda (_%hd6677866818%_ - _%body6678466821%_) + _%__stx7924779248%_)))) + (let ((_%__kont7925079251%_ + (lambda (_%L66748%_ _%L66750%_ _%L66751%_) '#t)) + (_%__kont7925479255%_ + (lambda (_%L66663%_ _%L66665%_) + (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| + _%L66665%_)))) + (let* ((_%__match7930279303%_ + (lambda (_%e6660166623%_ + _%hd6660066627%_ + _%tl6659966630%_ + _%__splice7925679257%_ + _%target6660266633%_ + _%tl6660466636%_) + (letrec ((_%loop6660566639%_ + (lambda (_%hd6660366643%_ + _%body6660966646%_) (if (gx#stx-pair? - _%hd6677866818%_) - (let ((_%e6678166824%_ + _%hd6660366643%_) + (let ((_%e6660666649%_ (gx#syntax-e - _%hd6677866818%_))) - (let ((_%lp-tl6678366831%_ + _%hd6660366643%_))) + (let ((_%lp-tl6660866656%_ (let () (declare (not safe)) - (##cdr _%e6678166824%_))) - (_%lp-hd6678266828%_ + (##cdr _%e6660666649%_))) + (_%lp-hd6660766653%_ (let () (declare (not safe)) - (##car _%e6678166824%_)))) - (_%loop6678066814%_ - _%lp-tl6678366831%_ - (cons _%lp-hd6678266828%_ - _%body6678466821%_)))) - (let ((_%body6678566834%_ - (reverse _%body6678466821%_))) - (_%__kont7942979430%_ - _%body6678566834%_ - _%hd6677566802%_)))))) - (_%loop6678066814%_ - _%target6677766808%_ + (##car _%e6660666649%_)))) + (_%loop6660566639%_ + _%lp-tl6660866656%_ + (cons _%lp-hd6660766653%_ + _%body6660966646%_)))) + (let ((_%body6661066659%_ + (reverse _%body6660966646%_))) + (_%__kont7925479255%_ + _%body6661066659%_ + _%hd6660066627%_)))))) + (_%loop6660566639%_ + _%target6660266633%_ '())))) - (_%__match7946379464%_ - (lambda (_%e6675666863%_ - _%hd6675566867%_ - _%tl6675466870%_ - _%e6675966873%_ - _%hd6675866877%_ - _%tl6675766880%_ - _%e6676266883%_ - _%hd6676166887%_ - _%tl6676066890%_ - _%__splice7942779428%_ - _%target6676366893%_ - _%tl6676566896%_) - (letrec ((_%loop6676666899%_ - (lambda (_%hd6676466903%_ - _%body6677066906%_) + (_%__match7928879289%_ + (lambda (_%e6658166688%_ + _%hd6658066692%_ + _%tl6657966695%_ + _%e6658466698%_ + _%hd6658366702%_ + _%tl6658266705%_ + _%e6658766708%_ + _%hd6658666712%_ + _%tl6658566715%_ + _%__splice7925279253%_ + _%target6658866718%_ + _%tl6659066721%_) + (letrec ((_%loop6659166724%_ + (lambda (_%hd6658966728%_ + _%body6659566731%_) (if (gx#stx-pair? - _%hd6676466903%_) - (let ((_%e6676766909%_ + _%hd6658966728%_) + (let ((_%e6659266734%_ (gx#syntax-e - _%hd6676466903%_))) - (let ((_%lp-tl6676966916%_ + _%hd6658966728%_))) + (let ((_%lp-tl6659466741%_ (let () (declare (not safe)) - (##cdr _%e6676766909%_))) - (_%lp-hd6676866913%_ + (##cdr _%e6659266734%_))) + (_%lp-hd6659366738%_ (let () (declare (not safe)) - (##car _%e6676766909%_)))) - (_%loop6676666899%_ - _%lp-tl6676966916%_ - (cons _%lp-hd6676866913%_ - _%body6677066906%_)))) - (let ((_%body6677166919%_ - (reverse _%body6677066906%_))) - (_%__kont7942579426%_ - _%body6677166919%_ - _%hd6676166887%_ - _%hd6675566867%_)))))) - (_%loop6676666899%_ - _%target6676366893%_ + (##car _%e6659266734%_)))) + (_%loop6659166724%_ + _%lp-tl6659466741%_ + (cons _%lp-hd6659366738%_ + _%body6659566731%_)))) + (let ((_%body6659666744%_ + (reverse _%body6659566731%_))) + (_%__kont7925079251%_ + _%body6659666744%_ + _%hd6658666712%_ + _%hd6658066692%_)))))) + (_%loop6659166724%_ + _%target6658866718%_ '()))))) - (if (gx#stx-pair? _%__stx7942279423%_) - (let ((_%e6675666863%_ - (gx#syntax-e _%__stx7942279423%_))) - (let ((_%tl6675466870%_ + (if (gx#stx-pair? _%__stx7924779248%_) + (let ((_%e6658166688%_ + (gx#syntax-e _%__stx7924779248%_))) + (let ((_%tl6657966695%_ (let () (declare (not safe)) - (##cdr _%e6675666863%_))) - (_%hd6675566867%_ + (##cdr _%e6658166688%_))) + (_%hd6658066692%_ (let () (declare (not safe)) - (##car _%e6675666863%_)))) - (if (gx#stx-pair? _%tl6675466870%_) - (let ((_%e6675966873%_ - (gx#syntax-e _%tl6675466870%_))) - (let ((_%tl6675766880%_ + (##car _%e6658166688%_)))) + (if (gx#stx-pair? _%tl6657966695%_) + (let ((_%e6658466698%_ + (gx#syntax-e _%tl6657966695%_))) + (let ((_%tl6658266705%_ (let () (declare (not safe)) - (##cdr _%e6675966873%_))) - (_%hd6675866877%_ + (##cdr _%e6658466698%_))) + (_%hd6658366702%_ (let () (declare (not safe)) - (##car _%e6675966873%_)))) - (if (gx#identifier? _%hd6675866877%_) + (##car _%e6658466698%_)))) + (if (gx#identifier? _%hd6658366702%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80907_| - _%hd6675866877%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80634_| + _%hd6658366702%_) (if (gx#stx-pair? - _%tl6675766880%_) - (let ((_%e6676266883%_ + _%tl6658266705%_) + (let ((_%e6658766708%_ (gx#syntax-e - _%tl6675766880%_))) - (let ((_%tl6676066890%_ + _%tl6658266705%_))) + (let ((_%tl6658566715%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6676266883%_))) - (_%hd6676166887%_ - (let () (declare (not safe)) (##car _%e6676266883%_)))) - (if (gx#stx-pair/null? _%tl6676066890%_) - (let ((_%__splice7942779428%_ - (gx#syntax-split-splice _%tl6676066890%_ '0))) - (let ((_%tl6676566896%_ + (##cdr _%e6658766708%_))) + (_%hd6658666712%_ + (let () (declare (not safe)) (##car _%e6658766708%_)))) + (if (gx#stx-pair/null? _%tl6658566715%_) + (let ((_%__splice7925279253%_ + (gx#syntax-split-splice _%tl6658566715%_ '0))) + (let ((_%tl6659066721%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942779428%_ '1))) - (_%target6676366893%_ + (##vector-ref _%__splice7925279253%_ '1))) + (_%target6658866718%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942779428%_ '0)))) - (if (gx#stx-null? _%tl6676566896%_) - (_%__match7946379464%_ - _%e6675666863%_ - _%hd6675566867%_ - _%tl6675466870%_ - _%e6675966873%_ - _%hd6675866877%_ - _%tl6675766880%_ - _%e6676266883%_ - _%hd6676166887%_ - _%tl6676066890%_ - _%__splice7942779428%_ - _%target6676366893%_ - _%tl6676566896%_) - (if (gx#stx-pair/null? _%tl6675466870%_) - (let ((_%__splice7943179432%_ + (##vector-ref _%__splice7925279253%_ '0)))) + (if (gx#stx-null? _%tl6659066721%_) + (_%__match7928879289%_ + _%e6658166688%_ + _%hd6658066692%_ + _%tl6657966695%_ + _%e6658466698%_ + _%hd6658366702%_ + _%tl6658266705%_ + _%e6658766708%_ + _%hd6658666712%_ + _%tl6658566715%_ + _%__splice7925279253%_ + _%target6658866718%_ + _%tl6659066721%_) + (if (gx#stx-pair/null? _%tl6657966695%_) + (let ((_%__splice7925679257%_ (gx#syntax-split-splice - _%tl6675466870%_ + _%tl6657966695%_ '0))) - (let ((_%tl6677966811%_ + (let ((_%tl6660466636%_ (let () (declare (not safe)) (##vector-ref - _%__splice7943179432%_ + _%__splice7925679257%_ '1))) - (_%target6677766808%_ + (_%target6660266633%_ (let () (declare (not safe)) (##vector-ref - _%__splice7943179432%_ + _%__splice7925679257%_ '0)))) - (if (gx#stx-null? _%tl6677966811%_) - (_%__match7947779478%_ - _%e6675666863%_ - _%hd6675566867%_ - _%tl6675466870%_ - _%__splice7943179432%_ - _%target6677766808%_ - _%tl6677966811%_) + (if (gx#stx-null? _%tl6660466636%_) + (_%__match7930279303%_ + _%e6658166688%_ + _%hd6658066692%_ + _%tl6657966695%_ + _%__splice7925679257%_ + _%target6660266633%_ + _%tl6660466636%_) (let () (declare (not safe)) - (_%g6674966791%_))))) + (_%g6657466616%_))))) (let () (declare (not safe)) - (_%g6674966791%_)))))) - (if (gx#stx-pair/null? _%tl6675466870%_) - (let ((_%__splice7943179432%_ - (gx#syntax-split-splice _%tl6675466870%_ '0))) - (let ((_%tl6677966811%_ + (_%g6657466616%_)))))) + (if (gx#stx-pair/null? _%tl6657966695%_) + (let ((_%__splice7925679257%_ + (gx#syntax-split-splice _%tl6657966695%_ '0))) + (let ((_%tl6660466636%_ (let () (declare (not safe)) - (##vector-ref _%__splice7943179432%_ '1))) - (_%target6677766808%_ + (##vector-ref _%__splice7925679257%_ '1))) + (_%target6660266633%_ (let () (declare (not safe)) (##vector-ref - _%__splice7943179432%_ + _%__splice7925679257%_ '0)))) - (if (gx#stx-null? _%tl6677966811%_) - (_%__match7947779478%_ - _%e6675666863%_ - _%hd6675566867%_ - _%tl6675466870%_ - _%__splice7943179432%_ - _%target6677766808%_ - _%tl6677966811%_) + (if (gx#stx-null? _%tl6660466636%_) + (_%__match7930279303%_ + _%e6658166688%_ + _%hd6658066692%_ + _%tl6657966695%_ + _%__splice7925679257%_ + _%target6660266633%_ + _%tl6660466636%_) (let () (declare (not safe)) - (_%g6674966791%_))))) - (let () (declare (not safe)) (_%g6674966791%_)))))) - (if (gx#stx-pair/null? _%tl6675466870%_) - (let ((_%__splice7943179432%_ - (gx#syntax-split-splice _%tl6675466870%_ '0))) - (let ((_%tl6677966811%_ + (_%g6657466616%_))))) + (let () (declare (not safe)) (_%g6657466616%_)))))) + (if (gx#stx-pair/null? _%tl6657966695%_) + (let ((_%__splice7925679257%_ + (gx#syntax-split-splice _%tl6657966695%_ '0))) + (let ((_%tl6660466636%_ (let () (declare (not safe)) - (##vector-ref _%__splice7943179432%_ '1))) - (_%target6677766808%_ + (##vector-ref _%__splice7925679257%_ '1))) + (_%target6660266633%_ (let () (declare (not safe)) - (##vector-ref _%__splice7943179432%_ '0)))) - (if (gx#stx-null? _%tl6677966811%_) - (_%__match7947779478%_ - _%e6675666863%_ - _%hd6675566867%_ - _%tl6675466870%_ - _%__splice7943179432%_ - _%target6677766808%_ - _%tl6677966811%_) - (let () (declare (not safe)) (_%g6674966791%_))))) - (let () (declare (not safe)) (_%g6674966791%_)))) + (##vector-ref _%__splice7925679257%_ '0)))) + (if (gx#stx-null? _%tl6660466636%_) + (_%__match7930279303%_ + _%e6658166688%_ + _%hd6658066692%_ + _%tl6657966695%_ + _%__splice7925679257%_ + _%target6660266633%_ + _%tl6660466636%_) + (let () (declare (not safe)) (_%g6657466616%_))))) + (let () (declare (not safe)) (_%g6657466616%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6675466870%_) - (let ((_%__splice7943179432%_ + _%tl6657966695%_) + (let ((_%__splice7925679257%_ (gx#syntax-split-splice - _%tl6675466870%_ + _%tl6657966695%_ '0))) - (let ((_%tl6677966811%_ + (let ((_%tl6660466636%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7943179432%_ '1))) - (_%target6677766808%_ + (##vector-ref _%__splice7925679257%_ '1))) + (_%target6660266633%_ (let () (declare (not safe)) - (##vector-ref _%__splice7943179432%_ '0)))) - (if (gx#stx-null? _%tl6677966811%_) - (_%__match7947779478%_ - _%e6675666863%_ - _%hd6675566867%_ - _%tl6675466870%_ - _%__splice7943179432%_ - _%target6677766808%_ - _%tl6677966811%_) - (let () (declare (not safe)) (_%g6674966791%_))))) - (let () (declare (not safe)) (_%g6674966791%_)))) + (##vector-ref _%__splice7925679257%_ '0)))) + (if (gx#stx-null? _%tl6660466636%_) + (_%__match7930279303%_ + _%e6658166688%_ + _%hd6658066692%_ + _%tl6657966695%_ + _%__splice7925679257%_ + _%target6660266633%_ + _%tl6660466636%_) + (let () (declare (not safe)) (_%g6657466616%_))))) + (let () (declare (not safe)) (_%g6657466616%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6675466870%_) - (let ((_%__splice7943179432%_ + _%tl6657966695%_) + (let ((_%__splice7925679257%_ (gx#syntax-split-splice - _%tl6675466870%_ + _%tl6657966695%_ '0))) - (let ((_%tl6677966811%_ + (let ((_%tl6660466636%_ (let () (declare (not safe)) (##vector-ref - _%__splice7943179432%_ + _%__splice7925679257%_ '1))) - (_%target6677766808%_ + (_%target6660266633%_ (let () (declare (not safe)) (##vector-ref - _%__splice7943179432%_ + _%__splice7925679257%_ '0)))) (if (gx#stx-null? - _%tl6677966811%_) - (_%__match7947779478%_ - _%e6675666863%_ - _%hd6675566867%_ - _%tl6675466870%_ - _%__splice7943179432%_ - _%target6677766808%_ - _%tl6677966811%_) + _%tl6660466636%_) + (_%__match7930279303%_ + _%e6658166688%_ + _%hd6658066692%_ + _%tl6657966695%_ + _%__splice7925679257%_ + _%target6660266633%_ + _%tl6660466636%_) (let () (declare (not safe)) - (_%g6674966791%_))))) + (_%g6657466616%_))))) (let () (declare (not safe)) - (_%g6674966791%_)))))) - (if (gx#stx-pair/null? _%tl6675466870%_) - (let ((_%__splice7943179432%_ + (_%g6657466616%_)))))) + (if (gx#stx-pair/null? _%tl6657966695%_) + (let ((_%__splice7925679257%_ (gx#syntax-split-splice - _%tl6675466870%_ + _%tl6657966695%_ '0))) - (let ((_%tl6677966811%_ + (let ((_%tl6660466636%_ (let () (declare (not safe)) (##vector-ref - _%__splice7943179432%_ + _%__splice7925679257%_ '1))) - (_%target6677766808%_ + (_%target6660266633%_ (let () (declare (not safe)) (##vector-ref - _%__splice7943179432%_ + _%__splice7925679257%_ '0)))) (if (gx#stx-null? - _%tl6677966811%_) - (_%__match7947779478%_ - _%e6675666863%_ - _%hd6675566867%_ - _%tl6675466870%_ - _%__splice7943179432%_ - _%target6677766808%_ - _%tl6677966811%_) + _%tl6660466636%_) + (_%__match7930279303%_ + _%e6658166688%_ + _%hd6658066692%_ + _%tl6657966695%_ + _%__splice7925679257%_ + _%target6660266633%_ + _%tl6660466636%_) (let () (declare (not safe)) - (_%g6674966791%_))))) + (_%g6657466616%_))))) (let () (declare (not safe)) - (_%g6674966791%_)))))) + (_%g6657466616%_)))))) (let () (declare (not safe)) - (_%g6674966791%_)))))))) - (_%clause-e66213%_ - (lambda (_%clause66485%_) - (let* ((_%__stx7948079481%_ _%clause66485%_) - (_%g6648966531%_ + (_%g6657466616%_)))))))) + (_%clause-e66038%_ + (lambda (_%clause66310%_) + (let* ((_%__stx7930579306%_ _%clause66310%_) + (_%g6631466356%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7948079481%_)))) - (let ((_%__kont7948379484%_ - (lambda (_%L66671%_ _%L66673%_ _%L66674%_) - (if (let () - (declare (not safe)) - (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L66674%_)) + _%__stx7930579306%_)))) + (let ((_%__kont7930879309%_ + (lambda (_%L66496%_ _%L66498%_ _%L66499%_) + (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| + _%L66499%_) (begin (let () (declare (not safe)) @@ -3901,1922 +3873,1910 @@ '#f '#f '#f - _%stx66208%_ - _%L66674%_ - _%L66673%_)) - (let* ((_%g6669466702%_ - (lambda (_%g6669566698%_) + _%stx66033%_ + _%L66499%_ + _%L66498%_)) + (let* ((_%g6651966527%_ + (lambda (_%g6652066523%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6669566698%_))) - (_%g6669366729%_ - (lambda (_%g6669566706%_) - ((lambda (_%L66709%_) - (let () - (cons _%L66709%_ - (cons (cons (gx#datum->syntax + _%g6652066523%_))) + (_%g6651866554%_ + (lambda (_%g6652066531%_) + ((lambda (_%L66534%_) + (cons _%L66534%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'with-procedure-signature) - (cons (cons _%L66674%_ - (cons _%L66673%_ (cons '#f '()))) - (cons (cons (gx#datum->syntax - '#f - 'with-procedure-contract) - (cons _%L66674%_ - (foldr (lambda (_%g6672066723%_ + '#f + 'with-procedure-signature) + (cons (cons _%L66499%_ + (cons _%L66498%_ (cons '#f '()))) + (cons (cons (gx#datum->syntax + '#f + 'with-procedure-contract) + (cons _%L66499%_ + (foldr (lambda (_%g6654566548%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6672166726%_) - (cons _%g6672066723%_ _%g6672166726%_)) - '() - _%L66671%_))) + _%g6654666551%_) + (cons _%g6654566548%_ _%g6654666551%_)) + '() + _%L66496%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())))) + '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6669566706%_)))) - (_%g6669366729%_ + _%g6652066531%_)))) + (_%g6651866554%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%L66674%_))))) - (cons _%L66674%_ + _%L66499%_))))) + (cons _%L66499%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L66673%_ (cons '#f '()))) - (foldr (lambda (_%g6673266735%_ _%g6673366738%_) - (cons _%g6673266735%_ _%g6673366738%_)) + (cons _%L66498%_ (cons '#f '()))) + (foldr (lambda (_%g6655766560%_ _%g6655866563%_) + (cons _%g6655766560%_ _%g6655866563%_)) '() - _%L66671%_))) + _%L66496%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7948779488%_ - (lambda (_%L66578%_ _%L66580%_) - (if (let () - (declare (not safe)) - (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L66580%_)) - (_%clause-e66213%_ - (cons _%L66580%_ + (_%__kont7931279313%_ + (lambda (_%L66403%_ _%L66405%_) + (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| + _%L66405%_) + (_%clause-e66038%_ + (cons _%L66405%_ (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6659566598%_ + (foldr (lambda (_%g6642066423%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6659666601%_) - (cons _%g6659566598%_ _%g6659666601%_)) + _%g6642166426%_) + (cons _%g6642066423%_ _%g6642166426%_)) '() - _%L66578%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause66485%_)))) - (let* ((_%__match7953579536%_ - (lambda (_%e6651666538%_ - _%hd6651566542%_ - _%tl6651466545%_ - _%__splice7948979490%_ - _%target6651766548%_ - _%tl6651966551%_) - (letrec ((_%loop6652066554%_ - (lambda (_%hd6651866558%_ - _%body6652466561%_) + _%L66403%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%clause66310%_)))) + (let* ((_%__match7936079361%_ + (lambda (_%e6634166363%_ + _%hd6634066367%_ + _%tl6633966370%_ + _%__splice7931479315%_ + _%target6634266373%_ + _%tl6634466376%_) + (letrec ((_%loop6634566379%_ + (lambda (_%hd6634366383%_ + _%body6634966386%_) (if (gx#stx-pair? - _%hd6651866558%_) - (let ((_%e6652166564%_ + _%hd6634366383%_) + (let ((_%e6634666389%_ (gx#syntax-e - _%hd6651866558%_))) - (let ((_%lp-tl6652366571%_ + _%hd6634366383%_))) + (let ((_%lp-tl6634866396%_ (let () (declare (not safe)) - (##cdr _%e6652166564%_))) - (_%lp-hd6652266568%_ + (##cdr _%e6634666389%_))) + (_%lp-hd6634766393%_ (let () (declare (not safe)) - (##car _%e6652166564%_)))) - (_%loop6652066554%_ - _%lp-tl6652366571%_ - (cons _%lp-hd6652266568%_ - _%body6652466561%_)))) - (let ((_%body6652566574%_ - (reverse _%body6652466561%_))) - (_%__kont7948779488%_ - _%body6652566574%_ - _%hd6651566542%_)))))) - (_%loop6652066554%_ - _%target6651766548%_ + (##car _%e6634666389%_)))) + (_%loop6634566379%_ + _%lp-tl6634866396%_ + (cons _%lp-hd6634766393%_ + _%body6634966386%_)))) + (let ((_%body6635066399%_ + (reverse _%body6634966386%_))) + (_%__kont7931279313%_ + _%body6635066399%_ + _%hd6634066367%_)))))) + (_%loop6634566379%_ + _%target6634266373%_ '())))) - (_%__match7952179522%_ - (lambda (_%e6649666611%_ - _%hd6649566615%_ - _%tl6649466618%_ - _%e6649966621%_ - _%hd6649866625%_ - _%tl6649766628%_ - _%e6650266631%_ - _%hd6650166635%_ - _%tl6650066638%_ - _%__splice7948579486%_ - _%target6650366641%_ - _%tl6650566644%_) - (letrec ((_%loop6650666647%_ - (lambda (_%hd6650466651%_ - _%body6651066654%_) + (_%__match7934679347%_ + (lambda (_%e6632166436%_ + _%hd6632066440%_ + _%tl6631966443%_ + _%e6632466446%_ + _%hd6632366450%_ + _%tl6632266453%_ + _%e6632766456%_ + _%hd6632666460%_ + _%tl6632566463%_ + _%__splice7931079311%_ + _%target6632866466%_ + _%tl6633066469%_) + (letrec ((_%loop6633166472%_ + (lambda (_%hd6632966476%_ + _%body6633566479%_) (if (gx#stx-pair? - _%hd6650466651%_) - (let ((_%e6650766657%_ + _%hd6632966476%_) + (let ((_%e6633266482%_ (gx#syntax-e - _%hd6650466651%_))) - (let ((_%lp-tl6650966664%_ + _%hd6632966476%_))) + (let ((_%lp-tl6633466489%_ (let () (declare (not safe)) - (##cdr _%e6650766657%_))) - (_%lp-hd6650866661%_ + (##cdr _%e6633266482%_))) + (_%lp-hd6633366486%_ (let () (declare (not safe)) - (##car _%e6650766657%_)))) - (_%loop6650666647%_ - _%lp-tl6650966664%_ - (cons _%lp-hd6650866661%_ - _%body6651066654%_)))) - (let ((_%body6651166667%_ - (reverse _%body6651066654%_))) - (_%__kont7948379484%_ - _%body6651166667%_ - _%hd6650166635%_ - _%hd6649566615%_)))))) - (_%loop6650666647%_ - _%target6650366641%_ + (##car _%e6633266482%_)))) + (_%loop6633166472%_ + _%lp-tl6633466489%_ + (cons _%lp-hd6633366486%_ + _%body6633566479%_)))) + (let ((_%body6633666492%_ + (reverse _%body6633566479%_))) + (_%__kont7930879309%_ + _%body6633666492%_ + _%hd6632666460%_ + _%hd6632066440%_)))))) + (_%loop6633166472%_ + _%target6632866466%_ '()))))) - (if (gx#stx-pair? _%__stx7948079481%_) - (let ((_%e6649666611%_ - (gx#syntax-e _%__stx7948079481%_))) - (let ((_%tl6649466618%_ + (if (gx#stx-pair? _%__stx7930579306%_) + (let ((_%e6632166436%_ + (gx#syntax-e _%__stx7930579306%_))) + (let ((_%tl6631966443%_ (let () (declare (not safe)) - (##cdr _%e6649666611%_))) - (_%hd6649566615%_ + (##cdr _%e6632166436%_))) + (_%hd6632066440%_ (let () (declare (not safe)) - (##car _%e6649666611%_)))) - (if (gx#stx-pair? _%tl6649466618%_) - (let ((_%e6649966621%_ - (gx#syntax-e _%tl6649466618%_))) - (let ((_%tl6649766628%_ + (##car _%e6632166436%_)))) + (if (gx#stx-pair? _%tl6631966443%_) + (let ((_%e6632466446%_ + (gx#syntax-e _%tl6631966443%_))) + (let ((_%tl6632266453%_ (let () (declare (not safe)) - (##cdr _%e6649966621%_))) - (_%hd6649866625%_ + (##cdr _%e6632466446%_))) + (_%hd6632366450%_ (let () (declare (not safe)) - (##car _%e6649966621%_)))) - (if (gx#identifier? _%hd6649866625%_) + (##car _%e6632466446%_)))) + (if (gx#identifier? _%hd6632366450%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80908_| - _%hd6649866625%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80635_| + _%hd6632366450%_) (if (gx#stx-pair? - _%tl6649766628%_) - (let ((_%e6650266631%_ + _%tl6632266453%_) + (let ((_%e6632766456%_ (gx#syntax-e - _%tl6649766628%_))) - (let ((_%tl6650066638%_ + _%tl6632266453%_))) + (let ((_%tl6632566463%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6650266631%_))) - (_%hd6650166635%_ - (let () (declare (not safe)) (##car _%e6650266631%_)))) - (if (gx#stx-pair/null? _%tl6650066638%_) - (let ((_%__splice7948579486%_ - (gx#syntax-split-splice _%tl6650066638%_ '0))) - (let ((_%tl6650566644%_ + (##cdr _%e6632766456%_))) + (_%hd6632666460%_ + (let () (declare (not safe)) (##car _%e6632766456%_)))) + (if (gx#stx-pair/null? _%tl6632566463%_) + (let ((_%__splice7931079311%_ + (gx#syntax-split-splice _%tl6632566463%_ '0))) + (let ((_%tl6633066469%_ (let () (declare (not safe)) - (##vector-ref _%__splice7948579486%_ '1))) - (_%target6650366641%_ + (##vector-ref _%__splice7931079311%_ '1))) + (_%target6632866466%_ (let () (declare (not safe)) - (##vector-ref _%__splice7948579486%_ '0)))) - (if (gx#stx-null? _%tl6650566644%_) - (_%__match7952179522%_ - _%e6649666611%_ - _%hd6649566615%_ - _%tl6649466618%_ - _%e6649966621%_ - _%hd6649866625%_ - _%tl6649766628%_ - _%e6650266631%_ - _%hd6650166635%_ - _%tl6650066638%_ - _%__splice7948579486%_ - _%target6650366641%_ - _%tl6650566644%_) - (if (gx#stx-pair/null? _%tl6649466618%_) - (let ((_%__splice7948979490%_ + (##vector-ref _%__splice7931079311%_ '0)))) + (if (gx#stx-null? _%tl6633066469%_) + (_%__match7934679347%_ + _%e6632166436%_ + _%hd6632066440%_ + _%tl6631966443%_ + _%e6632466446%_ + _%hd6632366450%_ + _%tl6632266453%_ + _%e6632766456%_ + _%hd6632666460%_ + _%tl6632566463%_ + _%__splice7931079311%_ + _%target6632866466%_ + _%tl6633066469%_) + (if (gx#stx-pair/null? _%tl6631966443%_) + (let ((_%__splice7931479315%_ (gx#syntax-split-splice - _%tl6649466618%_ + _%tl6631966443%_ '0))) - (let ((_%tl6651966551%_ + (let ((_%tl6634466376%_ (let () (declare (not safe)) (##vector-ref - _%__splice7948979490%_ + _%__splice7931479315%_ '1))) - (_%target6651766548%_ + (_%target6634266373%_ (let () (declare (not safe)) (##vector-ref - _%__splice7948979490%_ + _%__splice7931479315%_ '0)))) - (if (gx#stx-null? _%tl6651966551%_) - (_%__match7953579536%_ - _%e6649666611%_ - _%hd6649566615%_ - _%tl6649466618%_ - _%__splice7948979490%_ - _%target6651766548%_ - _%tl6651966551%_) + (if (gx#stx-null? _%tl6634466376%_) + (_%__match7936079361%_ + _%e6632166436%_ + _%hd6632066440%_ + _%tl6631966443%_ + _%__splice7931479315%_ + _%target6634266373%_ + _%tl6634466376%_) (let () (declare (not safe)) - (_%g6648966531%_))))) + (_%g6631466356%_))))) (let () (declare (not safe)) - (_%g6648966531%_)))))) - (if (gx#stx-pair/null? _%tl6649466618%_) - (let ((_%__splice7948979490%_ - (gx#syntax-split-splice _%tl6649466618%_ '0))) - (let ((_%tl6651966551%_ + (_%g6631466356%_)))))) + (if (gx#stx-pair/null? _%tl6631966443%_) + (let ((_%__splice7931479315%_ + (gx#syntax-split-splice _%tl6631966443%_ '0))) + (let ((_%tl6634466376%_ (let () (declare (not safe)) - (##vector-ref _%__splice7948979490%_ '1))) - (_%target6651766548%_ + (##vector-ref _%__splice7931479315%_ '1))) + (_%target6634266373%_ (let () (declare (not safe)) (##vector-ref - _%__splice7948979490%_ + _%__splice7931479315%_ '0)))) - (if (gx#stx-null? _%tl6651966551%_) - (_%__match7953579536%_ - _%e6649666611%_ - _%hd6649566615%_ - _%tl6649466618%_ - _%__splice7948979490%_ - _%target6651766548%_ - _%tl6651966551%_) + (if (gx#stx-null? _%tl6634466376%_) + (_%__match7936079361%_ + _%e6632166436%_ + _%hd6632066440%_ + _%tl6631966443%_ + _%__splice7931479315%_ + _%target6634266373%_ + _%tl6634466376%_) (let () (declare (not safe)) - (_%g6648966531%_))))) - (let () (declare (not safe)) (_%g6648966531%_)))))) - (if (gx#stx-pair/null? _%tl6649466618%_) - (let ((_%__splice7948979490%_ - (gx#syntax-split-splice _%tl6649466618%_ '0))) - (let ((_%tl6651966551%_ + (_%g6631466356%_))))) + (let () (declare (not safe)) (_%g6631466356%_)))))) + (if (gx#stx-pair/null? _%tl6631966443%_) + (let ((_%__splice7931479315%_ + (gx#syntax-split-splice _%tl6631966443%_ '0))) + (let ((_%tl6634466376%_ (let () (declare (not safe)) - (##vector-ref _%__splice7948979490%_ '1))) - (_%target6651766548%_ + (##vector-ref _%__splice7931479315%_ '1))) + (_%target6634266373%_ (let () (declare (not safe)) - (##vector-ref _%__splice7948979490%_ '0)))) - (if (gx#stx-null? _%tl6651966551%_) - (_%__match7953579536%_ - _%e6649666611%_ - _%hd6649566615%_ - _%tl6649466618%_ - _%__splice7948979490%_ - _%target6651766548%_ - _%tl6651966551%_) - (let () (declare (not safe)) (_%g6648966531%_))))) - (let () (declare (not safe)) (_%g6648966531%_)))) + (##vector-ref _%__splice7931479315%_ '0)))) + (if (gx#stx-null? _%tl6634466376%_) + (_%__match7936079361%_ + _%e6632166436%_ + _%hd6632066440%_ + _%tl6631966443%_ + _%__splice7931479315%_ + _%target6634266373%_ + _%tl6634466376%_) + (let () (declare (not safe)) (_%g6631466356%_))))) + (let () (declare (not safe)) (_%g6631466356%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6649466618%_) - (let ((_%__splice7948979490%_ + _%tl6631966443%_) + (let ((_%__splice7931479315%_ (gx#syntax-split-splice - _%tl6649466618%_ + _%tl6631966443%_ '0))) - (let ((_%tl6651966551%_ + (let ((_%tl6634466376%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7948979490%_ '1))) - (_%target6651766548%_ + (##vector-ref _%__splice7931479315%_ '1))) + (_%target6634266373%_ (let () (declare (not safe)) - (##vector-ref _%__splice7948979490%_ '0)))) - (if (gx#stx-null? _%tl6651966551%_) - (_%__match7953579536%_ - _%e6649666611%_ - _%hd6649566615%_ - _%tl6649466618%_ - _%__splice7948979490%_ - _%target6651766548%_ - _%tl6651966551%_) - (let () (declare (not safe)) (_%g6648966531%_))))) - (let () (declare (not safe)) (_%g6648966531%_)))) + (##vector-ref _%__splice7931479315%_ '0)))) + (if (gx#stx-null? _%tl6634466376%_) + (_%__match7936079361%_ + _%e6632166436%_ + _%hd6632066440%_ + _%tl6631966443%_ + _%__splice7931479315%_ + _%target6634266373%_ + _%tl6634466376%_) + (let () (declare (not safe)) (_%g6631466356%_))))) + (let () (declare (not safe)) (_%g6631466356%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6649466618%_) - (let ((_%__splice7948979490%_ + _%tl6631966443%_) + (let ((_%__splice7931479315%_ (gx#syntax-split-splice - _%tl6649466618%_ + _%tl6631966443%_ '0))) - (let ((_%tl6651966551%_ + (let ((_%tl6634466376%_ (let () (declare (not safe)) (##vector-ref - _%__splice7948979490%_ + _%__splice7931479315%_ '1))) - (_%target6651766548%_ + (_%target6634266373%_ (let () (declare (not safe)) (##vector-ref - _%__splice7948979490%_ + _%__splice7931479315%_ '0)))) (if (gx#stx-null? - _%tl6651966551%_) - (_%__match7953579536%_ - _%e6649666611%_ - _%hd6649566615%_ - _%tl6649466618%_ - _%__splice7948979490%_ - _%target6651766548%_ - _%tl6651966551%_) + _%tl6634466376%_) + (_%__match7936079361%_ + _%e6632166436%_ + _%hd6632066440%_ + _%tl6631966443%_ + _%__splice7931479315%_ + _%target6634266373%_ + _%tl6634466376%_) (let () (declare (not safe)) - (_%g6648966531%_))))) + (_%g6631466356%_))))) (let () (declare (not safe)) - (_%g6648966531%_)))))) - (if (gx#stx-pair/null? _%tl6649466618%_) - (let ((_%__splice7948979490%_ + (_%g6631466356%_)))))) + (if (gx#stx-pair/null? _%tl6631966443%_) + (let ((_%__splice7931479315%_ (gx#syntax-split-splice - _%tl6649466618%_ + _%tl6631966443%_ '0))) - (let ((_%tl6651966551%_ + (let ((_%tl6634466376%_ (let () (declare (not safe)) (##vector-ref - _%__splice7948979490%_ + _%__splice7931479315%_ '1))) - (_%target6651766548%_ + (_%target6634266373%_ (let () (declare (not safe)) (##vector-ref - _%__splice7948979490%_ + _%__splice7931479315%_ '0)))) (if (gx#stx-null? - _%tl6651966551%_) - (_%__match7953579536%_ - _%e6649666611%_ - _%hd6649566615%_ - _%tl6649466618%_ - _%__splice7948979490%_ - _%target6651766548%_ - _%tl6651966551%_) + _%tl6634466376%_) + (_%__match7936079361%_ + _%e6632166436%_ + _%hd6632066440%_ + _%tl6631966443%_ + _%__splice7931479315%_ + _%target6634266373%_ + _%tl6634466376%_) (let () (declare (not safe)) - (_%g6648966531%_))))) + (_%g6631466356%_))))) (let () (declare (not safe)) - (_%g6648966531%_)))))) + (_%g6631466356%_)))))) (let () (declare (not safe)) - (_%g6648966531%_))))))))) - (let* ((_%__stx7953879539%_ _%stx66208%_) - (_%g6621666249%_ + (_%g6631466356%_))))))))) + (let* ((_%__stx7936379364%_ _%stx66033%_) + (_%g6604166074%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7953879539%_)))) - (let ((_%__kont7954179542%_ - (lambda (_%L66368%_) - (let* ((_%g6639166408%_ - (lambda (_%g6639266404%_) + _%__stx7936379364%_)))) + (let ((_%__kont7936679367%_ + (lambda (_%L66193%_) + (let* ((_%g6621666233%_ + (lambda (_%g6621766229%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6639266404%_))) - (_%g6639066469%_ - (lambda (_%g6639266412%_) - (if (gx#stx-pair/null? _%g6639266412%_) - (let ((_g80909_ + _%g6621766229%_))) + (_%g6621566294%_ + (lambda (_%g6621766237%_) + (if (gx#stx-pair/null? _%g6621766237%_) + (let ((_g80636_ (gx#syntax-split-splice - _%g6639266412%_ + _%g6621766237%_ '0))) (begin - (let ((_g80910_ + (let ((_g80637_ (let () (declare (not safe)) - (if (##values? _g80909_) - (##vector-length _g80909_) + (if (##values? _g80636_) + (##vector-length _g80636_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80910_ 2))) + (##fx= _g80637_ 2))) (error "Context expects 2 values" - _g80910_))) - (let ((_%target6639466415%_ + _g80637_))) + (let ((_%target6621966240%_ (let () (declare (not safe)) - (##vector-ref _g80909_ 0))) - (_%tl6639666418%_ + (##vector-ref _g80636_ 0))) + (_%tl6622166243%_ (let () (declare (not safe)) - (##vector-ref _g80909_ 1)))) - (if (gx#stx-null? _%tl6639666418%_) - (letrec ((_%loop6639766421%_ - (lambda (_%hd6639566425%_ - _%clause6640166428%_) + (##vector-ref _g80636_ 1)))) + (if (gx#stx-null? _%tl6622166243%_) + (letrec ((_%loop6622266246%_ + (lambda (_%hd6622066250%_ + _%clause6622666253%_) (if (gx#stx-pair? - _%hd6639566425%_) - (let ((_%e6639866431%_ + _%hd6622066250%_) + (let ((_%e6622366256%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6639566425%_))) - (let ((_%lp-hd6639966435%_ + (gx#syntax-e _%hd6622066250%_))) + (let ((_%lp-hd6622466260%_ (let () (declare (not safe)) - (##car _%e6639866431%_))) - (_%lp-tl6640066438%_ + (##car _%e6622366256%_))) + (_%lp-tl6622566263%_ (let () (declare (not safe)) - (##cdr _%e6639866431%_)))) - (_%loop6639766421%_ - _%lp-tl6640066438%_ - (cons _%lp-hd6639966435%_ _%clause6640166428%_)))) - (let ((_%clause6640266441%_ - (reverse _%clause6640166428%_))) - ((lambda (_%L66445%_) - (let () - (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g6646066463%_ - _%g6646166466%_) - (cons _%g6646066463%_ - _%g6646166466%_)) - '() - _%L66445%_)))) - _%clause6640266441%_)))))) + (##cdr _%e6622366256%_)))) + (_%loop6622266246%_ + _%lp-tl6622566263%_ + (cons _%lp-hd6622466260%_ _%clause6622666253%_)))) + (let ((_%clause6622766266%_ + (reverse _%clause6622666253%_))) + ((lambda (_%L66270%_) + (cons (gx#datum->syntax '#f 'case-lambda) + (foldr (lambda (_%g6628566288%_ + _%g6628666291%_) + (cons _%g6628566288%_ + _%g6628666291%_)) + '() + _%L66270%_))) + _%clause6622766266%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6639766421%_ - _%target6639466415%_ + (_%loop6622266246%_ + _%target6621966240%_ '())) - (_%g6639166408%_ - _%g6639266412%_))))) - (_%g6639166408%_ _%g6639266412%_))))) - (_%g6639066469%_ - (map _%clause-e66213%_ - (foldr (lambda (_%g6647266475%_ _%g6647366478%_) - (cons _%g6647266475%_ _%g6647366478%_)) + (_%g6621666233%_ + _%g6621766237%_))))) + (_%g6621666233%_ _%g6621766237%_))))) + (_%g6621566294%_ + (map _%clause-e66038%_ + (foldr (lambda (_%g6629766300%_ _%g6629866303%_) + (cons _%g6629766300%_ _%g6629866303%_)) '() - _%L66368%_)))))) - (_%__kont7954579546%_ - (lambda (_%L66296%_) + _%L66193%_)))))) + (_%__kont7937079371%_ + (lambda (_%L66121%_) (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g6631266315%_ _%g6631366318%_) - (cons _%g6631266315%_ _%g6631366318%_)) + (foldr (lambda (_%g6613766140%_ _%g6613866143%_) + (cons _%g6613766140%_ _%g6613866143%_)) '() - _%L66296%_))))) - (let* ((_%__match7957779578%_ - (lambda (_%e6623466256%_ - _%hd6623366260%_ - _%tl6623266263%_ - _%__splice7954779548%_ - _%target6623566266%_ - _%tl6623766269%_) - (letrec ((_%loop6623866272%_ - (lambda (_%hd6623666276%_ - _%clause6624266279%_) - (if (gx#stx-pair? _%hd6623666276%_) - (let ((_%e6623966282%_ - (gx#syntax-e _%hd6623666276%_))) - (let ((_%lp-tl6624166289%_ + _%L66121%_))))) + (let* ((_%__match7940279403%_ + (lambda (_%e6605966081%_ + _%hd6605866085%_ + _%tl6605766088%_ + _%__splice7937279373%_ + _%target6606066091%_ + _%tl6606266094%_) + (letrec ((_%loop6606366097%_ + (lambda (_%hd6606166101%_ + _%clause6606766104%_) + (if (gx#stx-pair? _%hd6606166101%_) + (let ((_%e6606466107%_ + (gx#syntax-e _%hd6606166101%_))) + (let ((_%lp-tl6606666114%_ (let () (declare (not safe)) - (##cdr _%e6623966282%_))) - (_%lp-hd6624066286%_ + (##cdr _%e6606466107%_))) + (_%lp-hd6606566111%_ (let () (declare (not safe)) - (##car _%e6623966282%_)))) - (_%loop6623866272%_ - _%lp-tl6624166289%_ - (cons _%lp-hd6624066286%_ - _%clause6624266279%_)))) - (let ((_%clause6624366292%_ - (reverse _%clause6624266279%_))) - (_%__kont7954579546%_ - _%clause6624366292%_)))))) - (_%loop6623866272%_ _%target6623566266%_ '())))) - (_%__match7956379564%_ - (lambda (_%e6622166328%_ - _%hd6622066332%_ - _%tl6621966335%_ - _%__splice7954379544%_ - _%target6622266338%_ - _%tl6622466341%_) - (letrec ((_%loop6622566344%_ - (lambda (_%hd6622366348%_ - _%clause6622966351%_) - (if (gx#stx-pair? _%hd6622366348%_) - (let ((_%e6622666354%_ - (gx#syntax-e _%hd6622366348%_))) - (let ((_%lp-tl6622866361%_ + (##car _%e6606466107%_)))) + (_%loop6606366097%_ + _%lp-tl6606666114%_ + (cons _%lp-hd6606566111%_ + _%clause6606766104%_)))) + (let ((_%clause6606866117%_ + (reverse _%clause6606766104%_))) + (_%__kont7937079371%_ + _%clause6606866117%_)))))) + (_%loop6606366097%_ _%target6606066091%_ '())))) + (_%__match7938879389%_ + (lambda (_%e6604666153%_ + _%hd6604566157%_ + _%tl6604466160%_ + _%__splice7936879369%_ + _%target6604766163%_ + _%tl6604966166%_) + (letrec ((_%loop6605066169%_ + (lambda (_%hd6604866173%_ + _%clause6605466176%_) + (if (gx#stx-pair? _%hd6604866173%_) + (let ((_%e6605166179%_ + (gx#syntax-e _%hd6604866173%_))) + (let ((_%lp-tl6605366186%_ (let () (declare (not safe)) - (##cdr _%e6622666354%_))) - (_%lp-hd6622766358%_ + (##cdr _%e6605166179%_))) + (_%lp-hd6605266183%_ (let () (declare (not safe)) - (##car _%e6622666354%_)))) - (_%loop6622566344%_ - _%lp-tl6622866361%_ - (cons _%lp-hd6622766358%_ - _%clause6622966351%_)))) - (let* ((_%clause6623066364%_ - (reverse _%clause6622966351%_)) - (_%L66368%_ - _%clause6623066364%_)) - (if (ormap _%is-clause-signature?66211%_ - (foldr (lambda (_%g6638266385%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6638366388%_) - (cons _%g6638266385%_ _%g6638366388%_)) + (##car _%e6605166179%_)))) + (_%loop6605066169%_ + _%lp-tl6605366186%_ + (cons _%lp-hd6605266183%_ + _%clause6605466176%_)))) + (let* ((_%clause6605566189%_ + (reverse _%clause6605466176%_)) + (_%L66193%_ + _%clause6605566189%_)) + (if (ormap _%is-clause-signature?66036%_ + (foldr (lambda (_%g6620766210%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6620866213%_) + (cons _%g6620766210%_ _%g6620866213%_)) '() - _%L66368%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7954179542%_ _%L66368%_) - (_%__match7957779578%_ - _%e6622166328%_ - _%hd6622066332%_ - _%tl6621966335%_ - _%__splice7954379544%_ - _%target6622266338%_ - _%tl6622466341%_))))))) - (_%loop6622566344%_ _%target6622266338%_ '()))))) - (if (gx#stx-pair? _%__stx7953879539%_) - (let ((_%e6622166328%_ (gx#syntax-e _%__stx7953879539%_))) - (let ((_%tl6621966335%_ + _%L66193%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7936679367%_ _%L66193%_) + (_%__match7940279403%_ + _%e6604666153%_ + _%hd6604566157%_ + _%tl6604466160%_ + _%__splice7936879369%_ + _%target6604766163%_ + _%tl6604966166%_))))))) + (_%loop6605066169%_ _%target6604766163%_ '()))))) + (if (gx#stx-pair? _%__stx7936379364%_) + (let ((_%e6604666153%_ (gx#syntax-e _%__stx7936379364%_))) + (let ((_%tl6604466160%_ (let () (declare (not safe)) - (##cdr _%e6622166328%_))) - (_%hd6622066332%_ + (##cdr _%e6604666153%_))) + (_%hd6604566157%_ (let () (declare (not safe)) - (##car _%e6622166328%_)))) - (if (gx#stx-pair/null? _%tl6621966335%_) - (let ((_%__splice7954379544%_ + (##car _%e6604666153%_)))) + (if (gx#stx-pair/null? _%tl6604466160%_) + (let ((_%__splice7936879369%_ (gx#syntax-split-splice - _%tl6621966335%_ + _%tl6604466160%_ '0))) - (let ((_%tl6622466341%_ + (let ((_%tl6604966166%_ (let () (declare (not safe)) (##vector-ref - _%__splice7954379544%_ + _%__splice7936879369%_ '1))) - (_%target6622266338%_ + (_%target6604766163%_ (let () (declare (not safe)) (##vector-ref - _%__splice7954379544%_ + _%__splice7936879369%_ '0)))) - (if (gx#stx-null? _%tl6622466341%_) - (_%__match7956379564%_ - _%e6622166328%_ - _%hd6622066332%_ - _%tl6621966335%_ - _%__splice7954379544%_ - _%target6622266338%_ - _%tl6622466341%_) + (if (gx#stx-null? _%tl6604966166%_) + (_%__match7938879389%_ + _%e6604666153%_ + _%hd6604566157%_ + _%tl6604466160%_ + _%__splice7936879369%_ + _%target6604766163%_ + _%tl6604966166%_) (let () (declare (not safe)) - (_%g6621666249%_))))) - (let () (declare (not safe)) (_%g6621666249%_))))) - (let () (declare (not safe)) (_%g6621666249%_))))))))) + (_%g6604166074%_))))) + (let () (declare (not safe)) (_%g6604166074%_))))) + (let () (declare (not safe)) (_%g6604166074%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmethod/c| - (lambda (_%stx66957%_) - (let* ((_%__stx7958079581%_ _%stx66957%_) - (_%g6696267070%_ + (lambda (_%stx66782%_) + (let* ((_%__stx7940579406%_ _%stx66782%_) + (_%g6678766895%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7958079581%_)))) - (let ((_%__kont7958379584%_ - (lambda (_%L67489%_ - _%L67491%_ - _%L67492%_ - _%L67493%_ - _%L67494%_ - _%L67495%_) - (let* ((_%g6753067538%_ - (lambda (_%g6753167534%_) + _%__stx7940579406%_)))) + (let ((_%__kont7940879409%_ + (lambda (_%L67314%_ + _%L67316%_ + _%L67317%_ + _%L67318%_ + _%L67319%_ + _%L67320%_) + (let* ((_%g6735567363%_ + (lambda (_%g6735667359%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6753167534%_))) - (_%g6752967557%_ - (lambda (_%g6753167542%_) - ((lambda (_%L67545%_) - (let () - (cons (gx#datum->syntax '#f 'defmethod) - (cons (cons (gx#datum->syntax - '#f - '@method) - (cons _%L67495%_ - (cons _%L67494%_ - '()))) - (cons _%L67545%_ _%L67489%_))))) - _%g6753167542%_)))) - (_%g6752967557%_ + _%g6735667359%_))) + (_%g6735467382%_ + (lambda (_%g6735667367%_) + ((lambda (_%L67370%_) + (cons (gx#datum->syntax '#f 'defmethod) + (cons (cons (gx#datum->syntax + '#f + '@method) + (cons _%L67320%_ + (cons _%L67319%_ '()))) + (cons _%L67370%_ _%L67314%_)))) + _%g6735667367%_)))) + (_%g6735467382%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda/c) - (cons (cons (cons _%L67493%_ + (cons (cons (cons _%L67318%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L67494%_ '()))) - _%L67492%_) - (foldr (lambda (_%g6756067563%_ - _%g6756167566%_) - (cons _%g6756067563%_ - _%g6756167566%_)) + (cons _%L67319%_ '()))) + _%L67317%_) + (foldr (lambda (_%g6738567388%_ + _%g6738667391%_) + (cons _%g6738567388%_ + _%g6738667391%_)) '() - _%L67491%_))) - (gx#stx-source _%stx66957%_)))))) - (_%__kont7958779588%_ - (lambda (_%L67264%_ - _%L67266%_ - _%L67267%_ - _%L67268%_ - _%L67269%_ - _%L67270%_) - (let* ((_%g6730967317%_ - (lambda (_%g6731067313%_) + _%L67316%_))) + (gx#stx-source _%stx66782%_)))))) + (_%__kont7941279413%_ + (lambda (_%L67089%_ + _%L67091%_ + _%L67092%_ + _%L67093%_ + _%L67094%_ + _%L67095%_) + (let* ((_%g6713467142%_ + (lambda (_%g6713567138%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6731067313%_))) - (_%g6730867336%_ - (lambda (_%g6731067321%_) - ((lambda (_%L67324%_) - (let () - (cons (gx#datum->syntax '#f 'defmethod) - (cons (cons (gx#datum->syntax - '#f - '@method) - (cons _%L67270%_ - (cons _%L67269%_ - '()))) - (cons _%L67324%_ _%L67264%_))))) - _%g6731067321%_)))) - (_%g6730867336%_ + _%g6713567138%_))) + (_%g6713367161%_ + (lambda (_%g6713567146%_) + ((lambda (_%L67149%_) + (cons (gx#datum->syntax '#f 'defmethod) + (cons (cons (gx#datum->syntax + '#f + '@method) + (cons _%L67095%_ + (cons _%L67094%_ '()))) + (cons _%L67149%_ _%L67089%_)))) + _%g6713567146%_)))) + (_%g6713367161%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'case-lambda/c) (begin (gx#syntax-check-splice-targets - _%L67266%_ - _%L67267%_ - _%L67268%_) - (foldr (lambda (_%g6733967346%_ - _%g6734067349%_ - _%g6734167351%_ - _%g6734267353%_) - (cons (cons (cons (cons _%g6734167351%_ + _%L67091%_ + _%L67092%_ + _%L67093%_) + (foldr (lambda (_%g6716467171%_ + _%g6716567174%_ + _%g6716667176%_ + _%g6716767178%_) + (cons (cons (cons (cons _%g6716667176%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '::-) - (cons _%L67269%_ '()))) - _%g6734067349%_) + (cons _%L67094%_ '()))) + _%g6716567174%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g6734367356%_ + (foldr (lambda (_%g6716867181%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6734467359%_) - (cons _%g6734367356%_ _%g6734467359%_)) + _%g6716967184%_) + (cons _%g6716867181%_ _%g6716967184%_)) '() - _%g6733967346%_)) + _%g6716467171%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6734267353%_)) + _%g6716767178%_)) '() - _%L67266%_ - _%L67267%_ - _%L67268%_))) - (gx#stx-source _%stx66957%_)))))) - (_%__kont7959179592%_ - (lambda (_%L67087%_) - (cons (gx#datum->syntax '#f 'defmethod) _%L67087%_)))) - (let* ((_%g6696167099%_ + _%L67091%_ + _%L67092%_ + _%L67093%_))) + (gx#stx-source _%stx66782%_)))))) + (_%__kont7941679417%_ + (lambda (_%L66912%_) + (cons (gx#datum->syntax '#f 'defmethod) _%L66912%_)))) + (let* ((_%g6678666924%_ (lambda () - (let ((_%e6706467077%_ - (gx#syntax-e _%__stx7958079581%_))) - (let ((_%tl6706267084%_ + (let ((_%e6688966902%_ + (gx#syntax-e _%__stx7940579406%_))) + (let ((_%tl6688766909%_ (let () (declare (not safe)) - (##cdr _%e6706467077%_))) - (_%hd6706367081%_ + (##cdr _%e6688966902%_))) + (_%hd6688866906%_ (let () (declare (not safe)) - (##car _%e6706467077%_)))) - (_%__kont7959179592%_ _%tl6706267084%_))))) - (_%__match7972579726%_ - (lambda (_%e6701467106%_ - _%hd6701367110%_ - _%tl6701267113%_ - _%e6701767116%_ - _%hd6701667120%_ - _%tl6701567123%_ - _%e6702067126%_ - _%hd6701967130%_ - _%tl6701867133%_ - _%e6702367136%_ - _%hd6702267140%_ - _%tl6702167143%_ - _%e6702667146%_ - _%hd6702567150%_ - _%tl6702467153%_ - _%e6702967156%_ - _%hd6702867160%_ - _%tl6702767163%_ - _%e6703267166%_ - _%hd6703167170%_ - _%tl6703067173%_ - _%__splice7958979590%_ - _%target6703367176%_ - _%tl6703567179%_) - (letrec ((_%loop6703667182%_ - (lambda (_%hd6703467186%_ - _%body6704067189%_ - _%args6704167191%_ - _%self6704267193%_) - (if (gx#stx-pair? _%hd6703467186%_) - (let ((_%e6703767196%_ - (gx#syntax-e _%hd6703467186%_))) - (let ((_%lp-tl6703967203%_ + (##car _%e6688966902%_)))) + (_%__kont7941679417%_ _%tl6688766909%_))))) + (_%__match7955079551%_ + (lambda (_%e6683966931%_ + _%hd6683866935%_ + _%tl6683766938%_ + _%e6684266941%_ + _%hd6684166945%_ + _%tl6684066948%_ + _%e6684566951%_ + _%hd6684466955%_ + _%tl6684366958%_ + _%e6684866961%_ + _%hd6684766965%_ + _%tl6684666968%_ + _%e6685166971%_ + _%hd6685066975%_ + _%tl6684966978%_ + _%e6685466981%_ + _%hd6685366985%_ + _%tl6685266988%_ + _%e6685766991%_ + _%hd6685666995%_ + _%tl6685566998%_ + _%__splice7941479415%_ + _%target6685867001%_ + _%tl6686067004%_) + (letrec ((_%loop6686167007%_ + (lambda (_%hd6685967011%_ + _%body6686567014%_ + _%args6686667016%_ + _%self6686767018%_) + (if (gx#stx-pair? _%hd6685967011%_) + (let ((_%e6686267021%_ + (gx#syntax-e _%hd6685967011%_))) + (let ((_%lp-tl6686467028%_ (let () (declare (not safe)) - (##cdr _%e6703767196%_))) - (_%lp-hd6703867200%_ + (##cdr _%e6686267021%_))) + (_%lp-hd6686367025%_ (let () (declare (not safe)) - (##car _%e6703767196%_)))) + (##car _%e6686267021%_)))) (if (gx#stx-pair? - _%lp-hd6703867200%_) - (let ((_%e6704867206%_ + _%lp-hd6686367025%_) + (let ((_%e6687367031%_ (gx#syntax-e - _%lp-hd6703867200%_))) - (let ((_%tl6704667213%_ + _%lp-hd6686367025%_))) + (let ((_%tl6687167038%_ (let () (declare (not safe)) - (##cdr _%e6704867206%_))) - (_%hd6704767210%_ + (##cdr _%e6687367031%_))) + (_%hd6687267035%_ (let () (declare (not safe)) - (##car _%e6704867206%_)))) + (##car _%e6687367031%_)))) (if (gx#stx-pair? - _%hd6704767210%_) - (let ((_%e6705167216%_ + _%hd6687267035%_) + (let ((_%e6687667041%_ (gx#syntax-e - _%hd6704767210%_))) - (let ((_%tl6704967223%_ + _%hd6687267035%_))) + (let ((_%tl6687467048%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6705167216%_))) - (_%hd6705067220%_ - (let () (declare (not safe)) (##car _%e6705167216%_)))) - (if (gx#stx-pair/null? _%tl6704667213%_) - (let ((_g80911_ - (gx#syntax-split-splice _%tl6704667213%_ '0))) + (##cdr _%e6687667041%_))) + (_%hd6687567045%_ + (let () (declare (not safe)) (##car _%e6687667041%_)))) + (if (gx#stx-pair/null? _%tl6687167038%_) + (let ((_g80638_ + (gx#syntax-split-splice _%tl6687167038%_ '0))) (begin - (let ((_g80912_ + (let ((_g80639_ (let () (declare (not safe)) - (if (##values? _g80911_) - (##vector-length _g80911_) + (if (##values? _g80638_) + (##vector-length _g80638_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80912_ 2))) - (error "Context expects 2 values" _g80912_))) - (let ((_%target6705267226%_ + (##fx= _g80639_ 2))) + (error "Context expects 2 values" _g80639_))) + (let ((_%target6687767051%_ (let () (declare (not safe)) - (##vector-ref _g80911_ 0))) - (_%tl6705467229%_ + (##vector-ref _g80638_ 0))) + (_%tl6687967054%_ (let () (declare (not safe)) - (##vector-ref _g80911_ 1)))) - (if (gx#stx-null? _%tl6705467229%_) - (letrec ((_%loop6705567232%_ - (lambda (_%hd6705367236%_ - _%body6705967239%_) - (if (gx#stx-pair? _%hd6705367236%_) - (let ((_%e6705667242%_ + (##vector-ref _g80638_ 1)))) + (if (gx#stx-null? _%tl6687967054%_) + (letrec ((_%loop6688067057%_ + (lambda (_%hd6687867061%_ + _%body6688467064%_) + (if (gx#stx-pair? _%hd6687867061%_) + (let ((_%e6688167067%_ (gx#syntax-e - _%hd6705367236%_))) - (let ((_%lp-hd6705767246%_ + _%hd6687867061%_))) + (let ((_%lp-hd6688267071%_ (let () (declare (not safe)) - (##car _%e6705667242%_))) - (_%lp-tl6705867249%_ + (##car _%e6688167067%_))) + (_%lp-tl6688367074%_ (let () (declare (not safe)) - (##cdr _%e6705667242%_)))) - (_%loop6705567232%_ - _%lp-tl6705867249%_ - (cons _%lp-hd6705767246%_ - _%body6705967239%_)))) - (let ((_%body6706067252%_ - (reverse _%body6705967239%_))) - (_%loop6703667182%_ - _%lp-tl6703967203%_ - (cons _%body6706067252%_ - _%body6704067189%_) - (cons _%tl6704967223%_ - _%args6704167191%_) - (cons _%hd6705067220%_ - _%self6704267193%_))))))) - (_%loop6705567232%_ - _%target6705267226%_ + (##cdr _%e6688167067%_)))) + (_%loop6688067057%_ + _%lp-tl6688367074%_ + (cons _%lp-hd6688267071%_ + _%body6688467064%_)))) + (let ((_%body6688567077%_ + (reverse _%body6688467064%_))) + (_%loop6686167007%_ + _%lp-tl6686467028%_ + (cons _%body6688567077%_ + _%body6686567014%_) + (cons _%tl6687467048%_ + _%args6686667016%_) + (cons _%hd6687567045%_ + _%self6686767018%_))))))) + (_%loop6688067057%_ + _%target6687767051%_ '())) (let () (declare (not safe)) - (_%g6696167099%_)))))) - (_%__kont7959179592%_ _%tl6701267113%_)))) - (_%__kont7959179592%_ _%tl6701267113%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7959179592%_ - _%tl6701267113%_)))) - (let ((_%self6704567261%_ - (reverse _%self6704267193%_)) - (_%args6704467259%_ - (reverse _%args6704167191%_)) - (_%body6704367256%_ - (reverse _%body6704067189%_))) - (let ((_%L67264%_ _%tl6702767163%_) - (_%L67266%_ _%body6704367256%_) - (_%L67267%_ _%args6704467259%_) - (_%L67268%_ _%self6704567261%_) - (_%L67269%_ _%hd6702567150%_) - (_%L67270%_ _%hd6702267140%_)) + (_%g6678666924%_)))))) + (_%__kont7941679417%_ _%tl6683766938%_)))) + (_%__kont7941679417%_ _%tl6683766938%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7941679417%_ + _%tl6683766938%_)))) + (let ((_%self6687067086%_ + (reverse _%self6686767018%_)) + (_%args6686967084%_ + (reverse _%args6686667016%_)) + (_%body6686867081%_ + (reverse _%body6686567014%_))) + (let ((_%L67089%_ _%tl6685266988%_) + (_%L67091%_ _%body6686867081%_) + (_%L67092%_ _%args6686967084%_) + (_%L67093%_ _%self6687067086%_) + (_%L67094%_ _%hd6685066975%_) + (_%L67095%_ _%hd6684766965%_)) (if (gx#identifier-list? - (foldr (lambda (_%g6730067303%_ - _%g6730167306%_) - (cons _%g6730067303%_ - _%g6730167306%_)) + (foldr (lambda (_%g6712567128%_ + _%g6712667131%_) + (cons _%g6712567128%_ + _%g6712667131%_)) '() - _%L67268%_)) - (_%__kont7958779588%_ - _%L67264%_ - _%L67266%_ - _%L67267%_ - _%L67268%_ - _%L67269%_ - _%L67270%_) - (_%__kont7959179592%_ - _%tl6701267113%_)))))))) - (_%loop6703667182%_ - _%target6703367176%_ + _%L67093%_)) + (_%__kont7941279413%_ + _%L67089%_ + _%L67091%_ + _%L67092%_ + _%L67093%_ + _%L67094%_ + _%L67095%_) + (_%__kont7941679417%_ + _%tl6683766938%_)))))))) + (_%loop6686167007%_ + _%target6685867001%_ '() '() '())))) - (_%__match7966579666%_ - (lambda (_%e6697267369%_ - _%hd6697167373%_ - _%tl6697067376%_ - _%e6697567379%_ - _%hd6697467383%_ - _%tl6697367386%_ - _%e6697867389%_ - _%hd6697767393%_ - _%tl6697667396%_ - _%e6698167399%_ - _%hd6698067403%_ - _%tl6697967406%_ - _%e6698467409%_ - _%hd6698367413%_ - _%tl6698267416%_ - _%e6698767419%_ - _%hd6698667423%_ - _%tl6698567426%_ - _%e6699067429%_ - _%hd6698967433%_ - _%tl6698867436%_ - _%e6699367439%_ - _%hd6699267443%_ - _%tl6699167446%_ - _%e6699667449%_ - _%hd6699567453%_ - _%tl6699467456%_ - _%__splice7958579586%_ - _%target6699767459%_ - _%tl6699967462%_) - (letrec ((_%loop6700067465%_ - (lambda (_%hd6699867469%_ _%body6700467472%_) - (if (gx#stx-pair? _%hd6699867469%_) - (let ((_%e6700167475%_ - (gx#syntax-e _%hd6699867469%_))) - (let ((_%lp-tl6700367482%_ + (_%__match7949079491%_ + (lambda (_%e6679767194%_ + _%hd6679667198%_ + _%tl6679567201%_ + _%e6680067204%_ + _%hd6679967208%_ + _%tl6679867211%_ + _%e6680367214%_ + _%hd6680267218%_ + _%tl6680167221%_ + _%e6680667224%_ + _%hd6680567228%_ + _%tl6680467231%_ + _%e6680967234%_ + _%hd6680867238%_ + _%tl6680767241%_ + _%e6681267244%_ + _%hd6681167248%_ + _%tl6681067251%_ + _%e6681567254%_ + _%hd6681467258%_ + _%tl6681367261%_ + _%e6681867264%_ + _%hd6681767268%_ + _%tl6681667271%_ + _%e6682167274%_ + _%hd6682067278%_ + _%tl6681967281%_ + _%__splice7941079411%_ + _%target6682267284%_ + _%tl6682467287%_) + (letrec ((_%loop6682567290%_ + (lambda (_%hd6682367294%_ _%body6682967297%_) + (if (gx#stx-pair? _%hd6682367294%_) + (let ((_%e6682667300%_ + (gx#syntax-e _%hd6682367294%_))) + (let ((_%lp-tl6682867307%_ (let () (declare (not safe)) - (##cdr _%e6700167475%_))) - (_%lp-hd6700267479%_ + (##cdr _%e6682667300%_))) + (_%lp-hd6682767304%_ (let () (declare (not safe)) - (##car _%e6700167475%_)))) - (_%loop6700067465%_ - _%lp-tl6700367482%_ - (cons _%lp-hd6700267479%_ - _%body6700467472%_)))) - (let ((_%body6700567485%_ - (reverse _%body6700467472%_))) - (let ((_%L67489%_ _%tl6698567426%_) - (_%L67491%_ _%body6700567485%_) - (_%L67492%_ _%tl6699467456%_) - (_%L67493%_ _%hd6699567453%_) - (_%L67494%_ _%hd6698367413%_) - (_%L67495%_ _%hd6698067403%_)) - (if (gx#identifier? _%L67493%_) - (_%__kont7958379584%_ - _%L67489%_ - _%L67491%_ - _%L67492%_ - _%L67493%_ - _%L67494%_ - _%L67495%_) - (_%__kont7959179592%_ - _%tl6697067376%_)))))))) - (_%loop6700067465%_ _%target6699767459%_ '()))))) - (if (gx#stx-pair? _%__stx7958079581%_) - (let ((_%e6697267369%_ (gx#syntax-e _%__stx7958079581%_))) - (let ((_%tl6697067376%_ + (##car _%e6682667300%_)))) + (_%loop6682567290%_ + _%lp-tl6682867307%_ + (cons _%lp-hd6682767304%_ + _%body6682967297%_)))) + (let ((_%body6683067310%_ + (reverse _%body6682967297%_))) + (let ((_%L67314%_ _%tl6681067251%_) + (_%L67316%_ _%body6683067310%_) + (_%L67317%_ _%tl6681967281%_) + (_%L67318%_ _%hd6682067278%_) + (_%L67319%_ _%hd6680867238%_) + (_%L67320%_ _%hd6680567228%_)) + (if (gx#identifier? _%L67318%_) + (_%__kont7940879409%_ + _%L67314%_ + _%L67316%_ + _%L67317%_ + _%L67318%_ + _%L67319%_ + _%L67320%_) + (_%__kont7941679417%_ + _%tl6679567201%_)))))))) + (_%loop6682567290%_ _%target6682267284%_ '()))))) + (if (gx#stx-pair? _%__stx7940579406%_) + (let ((_%e6679767194%_ (gx#syntax-e _%__stx7940579406%_))) + (let ((_%tl6679567201%_ (let () (declare (not safe)) - (##cdr _%e6697267369%_))) - (_%hd6697167373%_ + (##cdr _%e6679767194%_))) + (_%hd6679667198%_ (let () (declare (not safe)) - (##car _%e6697267369%_)))) - (if (gx#stx-pair? _%tl6697067376%_) - (let ((_%e6697567379%_ - (gx#syntax-e _%tl6697067376%_))) - (let ((_%tl6697367386%_ + (##car _%e6679767194%_)))) + (if (gx#stx-pair? _%tl6679567201%_) + (let ((_%e6680067204%_ + (gx#syntax-e _%tl6679567201%_))) + (let ((_%tl6679867211%_ (let () (declare (not safe)) - (##cdr _%e6697567379%_))) - (_%hd6697467383%_ + (##cdr _%e6680067204%_))) + (_%hd6679967208%_ (let () (declare (not safe)) - (##car _%e6697567379%_)))) - (if (gx#stx-pair? _%hd6697467383%_) - (let ((_%e6697867389%_ - (gx#syntax-e _%hd6697467383%_))) - (let ((_%tl6697667396%_ + (##car _%e6680067204%_)))) + (if (gx#stx-pair? _%hd6679967208%_) + (let ((_%e6680367214%_ + (gx#syntax-e _%hd6679967208%_))) + (let ((_%tl6680167221%_ (let () (declare (not safe)) - (##cdr _%e6697867389%_))) - (_%hd6697767393%_ + (##cdr _%e6680367214%_))) + (_%hd6680267218%_ (let () (declare (not safe)) - (##car _%e6697867389%_)))) - (if (gx#identifier? _%hd6697767393%_) + (##car _%e6680367214%_)))) + (if (gx#identifier? _%hd6680267218%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80913_| - _%hd6697767393%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80640_| + _%hd6680267218%_) (if (gx#stx-pair? - _%tl6697667396%_) - (let ((_%e6698167399%_ + _%tl6680167221%_) + (let ((_%e6680667224%_ (gx#syntax-e - _%tl6697667396%_))) - (let ((_%tl6697967406%_ + _%tl6680167221%_))) + (let ((_%tl6680467231%_ (let () (declare (not safe)) - (##cdr _%e6698167399%_))) - (_%hd6698067403%_ + (##cdr _%e6680667224%_))) + (_%hd6680567228%_ (let () (declare (not safe)) - (##car _%e6698167399%_)))) + (##car _%e6680667224%_)))) (if (gx#stx-pair? - _%tl6697967406%_) - (let ((_%e6698467409%_ + _%tl6680467231%_) + (let ((_%e6680967234%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6697967406%_))) - (let ((_%tl6698267416%_ + (gx#syntax-e _%tl6680467231%_))) + (let ((_%tl6680767241%_ (let () (declare (not safe)) - (##cdr _%e6698467409%_))) - (_%hd6698367413%_ + (##cdr _%e6680967234%_))) + (_%hd6680867238%_ (let () (declare (not safe)) - (##car _%e6698467409%_)))) - (if (gx#stx-null? _%tl6698267416%_) - (if (gx#stx-pair? _%tl6697367386%_) - (let ((_%e6698767419%_ - (gx#syntax-e _%tl6697367386%_))) - (let ((_%tl6698567426%_ + (##car _%e6680967234%_)))) + (if (gx#stx-null? _%tl6680767241%_) + (if (gx#stx-pair? _%tl6679867211%_) + (let ((_%e6681267244%_ + (gx#syntax-e _%tl6679867211%_))) + (let ((_%tl6681067251%_ (let () (declare (not safe)) - (##cdr _%e6698767419%_))) - (_%hd6698667423%_ + (##cdr _%e6681267244%_))) + (_%hd6681167248%_ (let () (declare (not safe)) - (##car _%e6698767419%_)))) - (if (gx#stx-pair? _%hd6698667423%_) - (let ((_%e6699067429%_ - (gx#syntax-e _%hd6698667423%_))) - (let ((_%tl6698867436%_ + (##car _%e6681267244%_)))) + (if (gx#stx-pair? _%hd6681167248%_) + (let ((_%e6681567254%_ + (gx#syntax-e _%hd6681167248%_))) + (let ((_%tl6681367261%_ (let () (declare (not safe)) - (##cdr _%e6699067429%_))) - (_%hd6698967433%_ + (##cdr _%e6681567254%_))) + (_%hd6681467258%_ (let () (declare (not safe)) - (##car _%e6699067429%_)))) - (if (gx#identifier? _%hd6698967433%_) + (##car _%e6681567254%_)))) + (if (gx#identifier? _%hd6681467258%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80914_| - _%hd6698967433%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80641_| + _%hd6681467258%_) (if (gx#stx-pair? - _%tl6698867436%_) - (let ((_%e6699367439%_ + _%tl6681367261%_) + (let ((_%e6681867264%_ (gx#syntax-e - _%tl6698867436%_))) - (let ((_%tl6699167446%_ + _%tl6681367261%_))) + (let ((_%tl6681667271%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6699367439%_))) - (_%hd6699267443%_ - (let () (declare (not safe)) (##car _%e6699367439%_)))) - (if (gx#stx-pair? _%hd6699267443%_) - (let ((_%e6699667449%_ (gx#syntax-e _%hd6699267443%_))) - (let ((_%tl6699467456%_ + (##cdr _%e6681867264%_))) + (_%hd6681767268%_ + (let () (declare (not safe)) (##car _%e6681867264%_)))) + (if (gx#stx-pair? _%hd6681767268%_) + (let ((_%e6682167274%_ (gx#syntax-e _%hd6681767268%_))) + (let ((_%tl6681967281%_ (let () (declare (not safe)) - (##cdr _%e6699667449%_))) - (_%hd6699567453%_ + (##cdr _%e6682167274%_))) + (_%hd6682067278%_ (let () (declare (not safe)) - (##car _%e6699667449%_)))) - (if (gx#stx-pair/null? _%tl6699167446%_) - (let ((_%__splice7958579586%_ + (##car _%e6682167274%_)))) + (if (gx#stx-pair/null? _%tl6681667271%_) + (let ((_%__splice7941079411%_ (gx#syntax-split-splice - _%tl6699167446%_ + _%tl6681667271%_ '0))) - (let ((_%tl6699967462%_ + (let ((_%tl6682467287%_ (let () (declare (not safe)) (##vector-ref - _%__splice7958579586%_ + _%__splice7941079411%_ '1))) - (_%target6699767459%_ + (_%target6682267284%_ (let () (declare (not safe)) (##vector-ref - _%__splice7958579586%_ + _%__splice7941079411%_ '0)))) - (if (gx#stx-null? _%tl6699967462%_) - (_%__match7966579666%_ - _%e6697267369%_ - _%hd6697167373%_ - _%tl6697067376%_ - _%e6697567379%_ - _%hd6697467383%_ - _%tl6697367386%_ - _%e6697867389%_ - _%hd6697767393%_ - _%tl6697667396%_ - _%e6698167399%_ - _%hd6698067403%_ - _%tl6697967406%_ - _%e6698467409%_ - _%hd6698367413%_ - _%tl6698267416%_ - _%e6698767419%_ - _%hd6698667423%_ - _%tl6698567426%_ - _%e6699067429%_ - _%hd6698967433%_ - _%tl6698867436%_ - _%e6699367439%_ - _%hd6699267443%_ - _%tl6699167446%_ - _%e6699667449%_ - _%hd6699567453%_ - _%tl6699467456%_ - _%__splice7958579586%_ - _%target6699767459%_ - _%tl6699967462%_) - (_%__kont7959179592%_ - _%tl6697067376%_)))) - (_%__kont7959179592%_ _%tl6697067376%_)))) - (_%__kont7959179592%_ _%tl6697067376%_)))) - (_%__kont7959179592%_ _%tl6697067376%_)) + (if (gx#stx-null? _%tl6682467287%_) + (_%__match7949079491%_ + _%e6679767194%_ + _%hd6679667198%_ + _%tl6679567201%_ + _%e6680067204%_ + _%hd6679967208%_ + _%tl6679867211%_ + _%e6680367214%_ + _%hd6680267218%_ + _%tl6680167221%_ + _%e6680667224%_ + _%hd6680567228%_ + _%tl6680467231%_ + _%e6680967234%_ + _%hd6680867238%_ + _%tl6680767241%_ + _%e6681267244%_ + _%hd6681167248%_ + _%tl6681067251%_ + _%e6681567254%_ + _%hd6681467258%_ + _%tl6681367261%_ + _%e6681867264%_ + _%hd6681767268%_ + _%tl6681667271%_ + _%e6682167274%_ + _%hd6682067278%_ + _%tl6681967281%_ + _%__splice7941079411%_ + _%target6682267284%_ + _%tl6682467287%_) + (_%__kont7941679417%_ + _%tl6679567201%_)))) + (_%__kont7941679417%_ _%tl6679567201%_)))) + (_%__kont7941679417%_ _%tl6679567201%_)))) + (_%__kont7941679417%_ _%tl6679567201%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80915_| - _%hd6698967433%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80642_| + _%hd6681467258%_) (if (gx#stx-pair/null? - _%tl6698867436%_) - (let ((_%__splice7958979590%_ + _%tl6681367261%_) + (let ((_%__splice7941479415%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl6698867436%_ '0))) - (let ((_%tl6703567179%_ + (gx#syntax-split-splice _%tl6681367261%_ '0))) + (let ((_%tl6686067004%_ (let () (declare (not safe)) - (##vector-ref _%__splice7958979590%_ '1))) - (_%target6703367176%_ + (##vector-ref _%__splice7941479415%_ '1))) + (_%target6685867001%_ (let () (declare (not safe)) - (##vector-ref _%__splice7958979590%_ '0)))) - (if (gx#stx-null? _%tl6703567179%_) - (_%__match7972579726%_ - _%e6697267369%_ - _%hd6697167373%_ - _%tl6697067376%_ - _%e6697567379%_ - _%hd6697467383%_ - _%tl6697367386%_ - _%e6697867389%_ - _%hd6697767393%_ - _%tl6697667396%_ - _%e6698167399%_ - _%hd6698067403%_ - _%tl6697967406%_ - _%e6698467409%_ - _%hd6698367413%_ - _%tl6698267416%_ - _%e6698767419%_ - _%hd6698667423%_ - _%tl6698567426%_ - _%e6699067429%_ - _%hd6698967433%_ - _%tl6698867436%_ - _%__splice7958979590%_ - _%target6703367176%_ - _%tl6703567179%_) - (_%__kont7959179592%_ _%tl6697067376%_)))) - (_%__kont7959179592%_ _%tl6697067376%_)) - (_%__kont7959179592%_ _%tl6697067376%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7959179592%_ - _%tl6697067376%_)))) - (_%__kont7959179592%_ - _%tl6697067376%_)))) - (_%__kont7959179592%_ _%tl6697067376%_)) - (_%__kont7959179592%_ _%tl6697067376%_)))) - (_%__kont7959179592%_ _%tl6697067376%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7959179592%_ - _%tl6697067376%_)) - (_%__kont7959179592%_ - _%tl6697067376%_)) - (_%__kont7959179592%_ - _%tl6697067376%_)))) - (_%__kont7959179592%_ _%tl6697067376%_)))) - (_%__kont7959179592%_ _%tl6697067376%_)))) - (let () (declare (not safe)) (_%g6696267070%_)))))))) + (##vector-ref _%__splice7941479415%_ '0)))) + (if (gx#stx-null? _%tl6686067004%_) + (_%__match7955079551%_ + _%e6679767194%_ + _%hd6679667198%_ + _%tl6679567201%_ + _%e6680067204%_ + _%hd6679967208%_ + _%tl6679867211%_ + _%e6680367214%_ + _%hd6680267218%_ + _%tl6680167221%_ + _%e6680667224%_ + _%hd6680567228%_ + _%tl6680467231%_ + _%e6680967234%_ + _%hd6680867238%_ + _%tl6680767241%_ + _%e6681267244%_ + _%hd6681167248%_ + _%tl6681067251%_ + _%e6681567254%_ + _%hd6681467258%_ + _%tl6681367261%_ + _%__splice7941479415%_ + _%target6685867001%_ + _%tl6686067004%_) + (_%__kont7941679417%_ _%tl6679567201%_)))) + (_%__kont7941679417%_ _%tl6679567201%_)) + (_%__kont7941679417%_ _%tl6679567201%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7941679417%_ + _%tl6679567201%_)))) + (_%__kont7941679417%_ + _%tl6679567201%_)))) + (_%__kont7941679417%_ _%tl6679567201%_)) + (_%__kont7941679417%_ _%tl6679567201%_)))) + (_%__kont7941679417%_ _%tl6679567201%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7941679417%_ + _%tl6679567201%_)) + (_%__kont7941679417%_ + _%tl6679567201%_)) + (_%__kont7941679417%_ + _%tl6679567201%_)))) + (_%__kont7941679417%_ _%tl6679567201%_)))) + (_%__kont7941679417%_ _%tl6679567201%_)))) + (let () (declare (not safe)) (_%g6678766895%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#let/c| - (lambda (_%stx67576%_) - (let* ((_%__stx7974279743%_ _%stx67576%_) - (_%g6758167677%_ + (lambda (_%stx67401%_) + (let* ((_%__stx7956779568%_ _%stx67401%_) + (_%g6740667502%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7974279743%_)))) - (let ((_%__kont7974579746%_ - (lambda (_%L68024%_ - _%L68026%_ - _%L68027%_ - _%L68028%_ - _%L68029%_) - (let* ((_%g6805968067%_ - (lambda (_%g6806068063%_) + _%__stx7956779568%_)))) + (let ((_%__kont7957079571%_ + (lambda (_%L67849%_ + _%L67851%_ + _%L67852%_ + _%L67853%_ + _%L67854%_) + (let* ((_%g6788467892%_ + (lambda (_%g6788567888%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6806068063%_))) - (_%g6805868094%_ - (lambda (_%g6806068071%_) - ((lambda (_%L68074%_) - (let () - (cons (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L68029%_ - (cons _%L68074%_ + _%g6788567888%_))) + (_%g6788367919%_ + (lambda (_%g6788567896%_) + ((lambda (_%L67899%_) + (cons (cons (gx#datum->syntax '#f 'letrec) + (cons (cons (cons _%L67854%_ + (cons _%L67899%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()) + '())) + '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L68029%_ '()))) - (foldr (lambda (_%g6808568088%_ - _%g6808668091%_) - (cons _%g6808568088%_ - _%g6808668091%_)) - '() - _%L68027%_)))) - _%g6806068071%_)))) - (_%g6805868094%_ + (cons _%L67854%_ '()))) + (foldr (lambda (_%g6791067913%_ + _%g6791167916%_) + (cons _%g6791067913%_ + _%g6791167916%_)) + '() + _%L67852%_))) + _%g6788567896%_)))) + (_%g6788367919%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda/c) - (cons (foldr (lambda (_%g6809968102%_ - _%g6810068105%_) - (cons _%g6809968102%_ - _%g6810068105%_)) + (cons (foldr (lambda (_%g6792467927%_ + _%g6792567930%_) + (cons _%g6792467927%_ + _%g6792567930%_)) '() - _%L68028%_) + _%L67853%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L68026%_ - (foldr (lambda (_%g6809768108%_ - _%g6809868111%_) - (cons _%g6809768108%_ - _%g6809868111%_)) + (cons _%L67851%_ + (foldr (lambda (_%g6792267933%_ + _%g6792367936%_) + (cons _%g6792267933%_ + _%g6792367936%_)) '() - _%L68024%_))))) - (gx#stx-source _%stx67576%_)))))) - (_%__kont7975179752%_ - (lambda (_%L67827%_ _%L67829%_ _%L67830%_ _%L67831%_) + _%L67849%_))))) + (gx#stx-source _%stx67401%_)))))) + (_%__kont7957679577%_ + (lambda (_%L67652%_ _%L67654%_ _%L67655%_ _%L67656%_) (cons (gx#datum->syntax '#f 'let/c) - (cons _%L67831%_ + (cons _%L67656%_ (cons (begin (gx#syntax-check-splice-targets - _%L67829%_ - _%L67830%_) - (foldr (lambda (_%g6786567869%_ - _%g6786667872%_ - _%g6786767874%_) - (cons (cons _%g6786667872%_ - (cons _%g6786567869%_ + _%L67654%_ + _%L67655%_) + (foldr (lambda (_%g6769067694%_ + _%g6769167697%_ + _%g6769267699%_) + (cons (cons _%g6769167697%_ + (cons _%g6769067694%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%g6786767874%_)) + _%g6769267699%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L67829%_ - _%L67830%_)) + _%L67654%_ + _%L67655%_)) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6786367877%_ + (foldr (lambda (_%g6768867702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6786467880%_) - (cons _%g6786367877%_ _%g6786467880%_)) + _%g6768967705%_) + (cons _%g6768867702%_ _%g6768967705%_)) '() - _%L67827%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7975779758%_ - (lambda (_%L67694%_) - (cons (gx#datum->syntax '#f 'let) _%L67694%_)))) - (let* ((_%__match7981179812%_ - (lambda (_%e6763567713%_ - _%hd6763467717%_ - _%tl6763367720%_ - _%e6763867723%_ - _%hd6763767727%_ - _%tl6763667730%_ - _%e6764167733%_ - _%hd6764067737%_ - _%tl6763967740%_ - _%__splice7975379754%_ - _%target6764267743%_ - _%tl6764467746%_) - (letrec ((_%loop6764567749%_ - (lambda (_%hd6764367753%_ - _%init6764967756%_ - _%var6765067758%_) - (if (gx#stx-pair? _%hd6764367753%_) - (let ((_%e6764667761%_ - (gx#syntax-e _%hd6764367753%_))) - (let ((_%lp-tl6764867768%_ + _%L67652%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7958279583%_ + (lambda (_%L67519%_) + (cons (gx#datum->syntax '#f 'let) _%L67519%_)))) + (let* ((_%__match7963679637%_ + (lambda (_%e6746067538%_ + _%hd6745967542%_ + _%tl6745867545%_ + _%e6746367548%_ + _%hd6746267552%_ + _%tl6746167555%_ + _%e6746667558%_ + _%hd6746567562%_ + _%tl6746467565%_ + _%__splice7957879579%_ + _%target6746767568%_ + _%tl6746967571%_) + (letrec ((_%loop6747067574%_ + (lambda (_%hd6746867578%_ + _%init6747467581%_ + _%var6747567583%_) + (if (gx#stx-pair? _%hd6746867578%_) + (let ((_%e6747167586%_ + (gx#syntax-e _%hd6746867578%_))) + (let ((_%lp-tl6747367593%_ (let () (declare (not safe)) - (##cdr _%e6764667761%_))) - (_%lp-hd6764767765%_ + (##cdr _%e6747167586%_))) + (_%lp-hd6747267590%_ (let () (declare (not safe)) - (##car _%e6764667761%_)))) + (##car _%e6747167586%_)))) (if (gx#stx-pair? - _%lp-hd6764767765%_) - (let ((_%e6765567771%_ + _%lp-hd6747267590%_) + (let ((_%e6748067596%_ (gx#syntax-e - _%lp-hd6764767765%_))) - (let ((_%tl6765367778%_ + _%lp-hd6747267590%_))) + (let ((_%tl6747867603%_ (let () (declare (not safe)) - (##cdr _%e6765567771%_))) - (_%hd6765467775%_ + (##cdr _%e6748067596%_))) + (_%hd6747967600%_ (let () (declare (not safe)) - (##car _%e6765567771%_)))) + (##car _%e6748067596%_)))) (if (gx#stx-pair? - _%tl6765367778%_) - (let ((_%e6765867781%_ + _%tl6747867603%_) + (let ((_%e6748367606%_ (gx#syntax-e - _%tl6765367778%_))) - (let ((_%tl6765667788%_ + _%tl6747867603%_))) + (let ((_%tl6748167613%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6765867781%_))) - (_%hd6765767785%_ - (let () (declare (not safe)) (##car _%e6765867781%_)))) - (if (gx#stx-null? _%tl6765667788%_) - (_%loop6764567749%_ - _%lp-tl6764867768%_ - (cons _%hd6765767785%_ _%init6764967756%_) - (cons _%hd6765467775%_ _%var6765067758%_)) - (_%__kont7975779758%_ _%tl6763367720%_)))) - (_%__kont7975779758%_ _%tl6763367720%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7975779758%_ - _%tl6763367720%_)))) - (let ((_%var6765267794%_ - (reverse _%var6765067758%_)) - (_%init6765167791%_ - (reverse _%init6764967756%_))) + (##cdr _%e6748367606%_))) + (_%hd6748267610%_ + (let () (declare (not safe)) (##car _%e6748367606%_)))) + (if (gx#stx-null? _%tl6748167613%_) + (_%loop6747067574%_ + _%lp-tl6747367593%_ + (cons _%hd6748267610%_ _%init6747467581%_) + (cons _%hd6747967600%_ _%var6747567583%_)) + (_%__kont7958279583%_ _%tl6745867545%_)))) + (_%__kont7958279583%_ _%tl6745867545%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7958279583%_ + _%tl6745867545%_)))) + (let ((_%var6747767619%_ + (reverse _%var6747567583%_)) + (_%init6747667616%_ + (reverse _%init6747467581%_))) (if (gx#stx-pair/null? - _%tl6763967740%_) - (let ((_%__splice7975579756%_ + _%tl6746467565%_) + (let ((_%__splice7958079581%_ (gx#syntax-split-splice - _%tl6763967740%_ + _%tl6746467565%_ '0))) - (let ((_%tl6766167800%_ + (let ((_%tl6748667625%_ (let () (declare (not safe)) (##vector-ref - _%__splice7975579756%_ + _%__splice7958079581%_ '1))) - (_%target6765967797%_ + (_%target6748467622%_ (let () (declare (not safe)) (##vector-ref - _%__splice7975579756%_ + _%__splice7958079581%_ '0)))) (if (gx#stx-null? - _%tl6766167800%_) - (letrec ((_%loop6766267803%_ - (lambda (_%hd6766067807%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6766667810%_) - (if (gx#stx-pair? _%hd6766067807%_) - (let ((_%e6766367813%_ - (gx#syntax-e _%hd6766067807%_))) - (let ((_%lp-tl6766567820%_ + _%tl6748667625%_) + (letrec ((_%loop6748767628%_ + (lambda (_%hd6748567632%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6749167635%_) + (if (gx#stx-pair? _%hd6748567632%_) + (let ((_%e6748867638%_ + (gx#syntax-e _%hd6748567632%_))) + (let ((_%lp-tl6749067645%_ (let () (declare (not safe)) - (##cdr _%e6766367813%_))) - (_%lp-hd6766467817%_ + (##cdr _%e6748867638%_))) + (_%lp-hd6748967642%_ (let () (declare (not safe)) - (##car _%e6766367813%_)))) - (_%loop6766267803%_ - _%lp-tl6766567820%_ - (cons _%lp-hd6766467817%_ - _%body6766667810%_)))) - (let ((_%body6766767823%_ - (reverse _%body6766667810%_))) - (let ((_%L67827%_ _%body6766767823%_) - (_%L67829%_ _%init6765167791%_) - (_%L67830%_ _%var6765267794%_) - (_%L67831%_ _%hd6763767727%_)) - (if (and (gx#identifier? _%L67831%_) - (let ((__tmp80916 - (foldr (lambda (_%g6785567858%_ - _%g6785667861%_) - (cons _%g6785567858%_ - _%g6785667861%_)) - '() - _%L67830%_))) - (declare (not safe)) - (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - __tmp80916))) - (_%__kont7975179752%_ - _%L67827%_ - _%L67829%_ - _%L67830%_ - _%L67831%_) - (_%__kont7975779758%_ - _%tl6763367720%_)))))))) - (_%loop6766267803%_ _%target6765967797%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7975779758%_ - _%tl6763367720%_)))) - (_%__kont7975779758%_ - _%tl6763367720%_))))))) - (_%loop6764567749%_ _%target6764267743%_ '() '())))) - (_%__match7978579786%_ - (lambda (_%e6759067890%_ - _%hd6758967894%_ - _%tl6758867897%_ - _%e6759367900%_ - _%hd6759267904%_ - _%tl6759167907%_ - _%e6759667910%_ - _%hd6759567914%_ - _%tl6759467917%_ - _%__splice7974779748%_ - _%target6759767920%_ - _%tl6759967923%_) - (letrec ((_%loop6760067926%_ - (lambda (_%hd6759867930%_ - _%init6760467933%_ - _%var6760567935%_) - (if (gx#stx-pair? _%hd6759867930%_) - (let ((_%e6760167938%_ - (gx#syntax-e _%hd6759867930%_))) - (let ((_%lp-tl6760367945%_ + (##car _%e6748867638%_)))) + (_%loop6748767628%_ + _%lp-tl6749067645%_ + (cons _%lp-hd6748967642%_ + _%body6749167635%_)))) + (let ((_%body6749267648%_ + (reverse _%body6749167635%_))) + (let ((_%L67652%_ _%body6749267648%_) + (_%L67654%_ _%init6747667616%_) + (_%L67655%_ _%var6747767619%_) + (_%L67656%_ _%hd6746267552%_)) + (if (and (gx#identifier? _%L67656%_) + (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| + (foldr (lambda (_%g6768067683%_ + _%g6768167686%_) + (cons _%g6768067683%_ + _%g6768167686%_)) + '() + _%L67655%_))) + (_%__kont7957679577%_ + _%L67652%_ + _%L67654%_ + _%L67655%_ + _%L67656%_) + (_%__kont7958279583%_ + _%tl6745867545%_)))))))) + (_%loop6748767628%_ _%target6748467622%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7958279583%_ + _%tl6745867545%_)))) + (_%__kont7958279583%_ + _%tl6745867545%_))))))) + (_%loop6747067574%_ _%target6746767568%_ '() '())))) + (_%__match7961079611%_ + (lambda (_%e6741567715%_ + _%hd6741467719%_ + _%tl6741367722%_ + _%e6741867725%_ + _%hd6741767729%_ + _%tl6741667732%_ + _%e6742167735%_ + _%hd6742067739%_ + _%tl6741967742%_ + _%__splice7957279573%_ + _%target6742267745%_ + _%tl6742467748%_) + (letrec ((_%loop6742567751%_ + (lambda (_%hd6742367755%_ + _%init6742967758%_ + _%var6743067760%_) + (if (gx#stx-pair? _%hd6742367755%_) + (let ((_%e6742667763%_ + (gx#syntax-e _%hd6742367755%_))) + (let ((_%lp-tl6742867770%_ (let () (declare (not safe)) - (##cdr _%e6760167938%_))) - (_%lp-hd6760267942%_ + (##cdr _%e6742667763%_))) + (_%lp-hd6742767767%_ (let () (declare (not safe)) - (##car _%e6760167938%_)))) + (##car _%e6742667763%_)))) (if (gx#stx-pair? - _%lp-hd6760267942%_) - (let ((_%e6761067948%_ + _%lp-hd6742767767%_) + (let ((_%e6743567773%_ (gx#syntax-e - _%lp-hd6760267942%_))) - (let ((_%tl6760867955%_ + _%lp-hd6742767767%_))) + (let ((_%tl6743367780%_ (let () (declare (not safe)) - (##cdr _%e6761067948%_))) - (_%hd6760967952%_ + (##cdr _%e6743567773%_))) + (_%hd6743467777%_ (let () (declare (not safe)) - (##car _%e6761067948%_)))) + (##car _%e6743567773%_)))) (if (gx#stx-pair? - _%tl6760867955%_) - (let ((_%e6761367958%_ + _%tl6743367780%_) + (let ((_%e6743867783%_ (gx#syntax-e - _%tl6760867955%_))) - (let ((_%tl6761167965%_ + _%tl6743367780%_))) + (let ((_%tl6743667790%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6761367958%_))) - (_%hd6761267962%_ - (let () (declare (not safe)) (##car _%e6761367958%_)))) - (if (gx#stx-null? _%tl6761167965%_) - (_%loop6760067926%_ - _%lp-tl6760367945%_ - (cons _%hd6761267962%_ _%init6760467933%_) - (cons _%hd6760967952%_ _%var6760567935%_)) - (_%__match7981179812%_ - _%e6759067890%_ - _%hd6758967894%_ - _%tl6758867897%_ - _%e6759367900%_ - _%hd6759267904%_ - _%tl6759167907%_ - _%e6759667910%_ - _%hd6759567914%_ - _%tl6759467917%_ - _%__splice7974779748%_ - _%target6759767920%_ - _%tl6759967923%_)))) - (_%__match7981179812%_ - _%e6759067890%_ - _%hd6758967894%_ - _%tl6758867897%_ - _%e6759367900%_ - _%hd6759267904%_ - _%tl6759167907%_ - _%e6759667910%_ - _%hd6759567914%_ - _%tl6759467917%_ - _%__splice7974779748%_ - _%target6759767920%_ - _%tl6759967923%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match7981179812%_ - _%e6759067890%_ - _%hd6758967894%_ - _%tl6758867897%_ - _%e6759367900%_ - _%hd6759267904%_ - _%tl6759167907%_ - _%e6759667910%_ - _%hd6759567914%_ - _%tl6759467917%_ - _%__splice7974779748%_ - _%target6759767920%_ - _%tl6759967923%_)))) - (let ((_%var6760767971%_ - (reverse _%var6760567935%_)) - (_%init6760667968%_ - (reverse _%init6760467933%_))) - (if (gx#stx-pair? _%tl6759467917%_) - (let ((_%e6761667974%_ + (##cdr _%e6743867783%_))) + (_%hd6743767787%_ + (let () (declare (not safe)) (##car _%e6743867783%_)))) + (if (gx#stx-null? _%tl6743667790%_) + (_%loop6742567751%_ + _%lp-tl6742867770%_ + (cons _%hd6743767787%_ _%init6742967758%_) + (cons _%hd6743467777%_ _%var6743067760%_)) + (_%__match7963679637%_ + _%e6741567715%_ + _%hd6741467719%_ + _%tl6741367722%_ + _%e6741867725%_ + _%hd6741767729%_ + _%tl6741667732%_ + _%e6742167735%_ + _%hd6742067739%_ + _%tl6741967742%_ + _%__splice7957279573%_ + _%target6742267745%_ + _%tl6742467748%_)))) + (_%__match7963679637%_ + _%e6741567715%_ + _%hd6741467719%_ + _%tl6741367722%_ + _%e6741867725%_ + _%hd6741767729%_ + _%tl6741667732%_ + _%e6742167735%_ + _%hd6742067739%_ + _%tl6741967742%_ + _%__splice7957279573%_ + _%target6742267745%_ + _%tl6742467748%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match7963679637%_ + _%e6741567715%_ + _%hd6741467719%_ + _%tl6741367722%_ + _%e6741867725%_ + _%hd6741767729%_ + _%tl6741667732%_ + _%e6742167735%_ + _%hd6742067739%_ + _%tl6741967742%_ + _%__splice7957279573%_ + _%target6742267745%_ + _%tl6742467748%_)))) + (let ((_%var6743267796%_ + (reverse _%var6743067760%_)) + (_%init6743167793%_ + (reverse _%init6742967758%_))) + (if (gx#stx-pair? _%tl6741967742%_) + (let ((_%e6744167799%_ (gx#syntax-e - _%tl6759467917%_))) - (let ((_%tl6761467981%_ + _%tl6741967742%_))) + (let ((_%tl6743967806%_ (let () (declare (not safe)) - (##cdr _%e6761667974%_))) - (_%hd6761567978%_ + (##cdr _%e6744167799%_))) + (_%hd6744067803%_ (let () (declare (not safe)) - (##car _%e6761667974%_)))) + (##car _%e6744167799%_)))) (if (gx#identifier? - _%hd6761567978%_) + _%hd6744067803%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80917_| - _%hd6761567978%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80643_| + _%hd6744067803%_) (if (gx#stx-pair? - _%tl6761467981%_) - (let ((_%e6761967984%_ + _%tl6743967806%_) + (let ((_%e6744467809%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6761467981%_))) - (let ((_%tl6761767991%_ + (gx#syntax-e _%tl6743967806%_))) + (let ((_%tl6744267816%_ (let () (declare (not safe)) - (##cdr _%e6761967984%_))) - (_%hd6761867988%_ + (##cdr _%e6744467809%_))) + (_%hd6744367813%_ (let () (declare (not safe)) - (##car _%e6761967984%_)))) - (if (gx#stx-pair/null? _%tl6761767991%_) - (let ((_%__splice7974979750%_ + (##car _%e6744467809%_)))) + (if (gx#stx-pair/null? _%tl6744267816%_) + (let ((_%__splice7957479575%_ (gx#syntax-split-splice - _%tl6761767991%_ + _%tl6744267816%_ '0))) - (let ((_%tl6762267997%_ + (let ((_%tl6744767822%_ (let () (declare (not safe)) (##vector-ref - _%__splice7974979750%_ + _%__splice7957479575%_ '1))) - (_%target6762067994%_ + (_%target6744567819%_ (let () (declare (not safe)) (##vector-ref - _%__splice7974979750%_ + _%__splice7957479575%_ '0)))) - (if (gx#stx-null? _%tl6762267997%_) - (letrec ((_%loop6762368000%_ - (lambda (_%hd6762168004%_ - _%body6762768007%_) + (if (gx#stx-null? _%tl6744767822%_) + (letrec ((_%loop6744867825%_ + (lambda (_%hd6744667829%_ + _%body6745267832%_) (if (gx#stx-pair? - _%hd6762168004%_) - (let ((_%e6762468010%_ + _%hd6744667829%_) + (let ((_%e6744967835%_ (gx#syntax-e - _%hd6762168004%_))) - (let ((_%lp-tl6762668017%_ + _%hd6744667829%_))) + (let ((_%lp-tl6745167842%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6762468010%_))) - (_%lp-hd6762568014%_ - (let () (declare (not safe)) (##car _%e6762468010%_)))) - (_%loop6762368000%_ - _%lp-tl6762668017%_ - (cons _%lp-hd6762568014%_ _%body6762768007%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body6762868020%_ - (reverse _%body6762768007%_))) - (let ((_%L68024%_ - _%body6762868020%_) - (_%L68026%_ - _%hd6761867988%_) - (_%L68027%_ - _%init6760667968%_) - (_%L68028%_ - _%var6760767971%_) - (_%L68029%_ - _%hd6759267904%_)) + (##cdr _%e6744967835%_))) + (_%lp-hd6745067839%_ + (let () (declare (not safe)) (##car _%e6744967835%_)))) + (_%loop6744867825%_ + _%lp-tl6745167842%_ + (cons _%lp-hd6745067839%_ _%body6745267832%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%body6745367845%_ + (reverse _%body6745267832%_))) + (let ((_%L67849%_ + _%body6745367845%_) + (_%L67851%_ + _%hd6744367813%_) + (_%L67852%_ + _%init6743167793%_) + (_%L67853%_ + _%var6743267796%_) + (_%L67854%_ + _%hd6741767729%_)) (if (gx#identifier? - _%L68029%_) - (_%__kont7974579746%_ - _%L68024%_ - _%L68026%_ - _%L68027%_ - _%L68028%_ - _%L68029%_) - (_%__match7981179812%_ - _%e6759067890%_ - _%hd6758967894%_ - _%tl6758867897%_ - _%e6759367900%_ - _%hd6759267904%_ - _%tl6759167907%_ - _%e6759667910%_ - _%hd6759567914%_ - _%tl6759467917%_ - _%__splice7974779748%_ - _%target6759767920%_ - _%tl6759967923%_)))))))) - (_%loop6762368000%_ - _%target6762067994%_ + _%L67854%_) + (_%__kont7957079571%_ + _%L67849%_ + _%L67851%_ + _%L67852%_ + _%L67853%_ + _%L67854%_) + (_%__match7963679637%_ + _%e6741567715%_ + _%hd6741467719%_ + _%tl6741367722%_ + _%e6741867725%_ + _%hd6741767729%_ + _%tl6741667732%_ + _%e6742167735%_ + _%hd6742067739%_ + _%tl6741967742%_ + _%__splice7957279573%_ + _%target6742267745%_ + _%tl6742467748%_)))))))) + (_%loop6744867825%_ + _%target6744567819%_ '())) - (_%__match7981179812%_ - _%e6759067890%_ - _%hd6758967894%_ - _%tl6758867897%_ - _%e6759367900%_ - _%hd6759267904%_ - _%tl6759167907%_ - _%e6759667910%_ - _%hd6759567914%_ - _%tl6759467917%_ - _%__splice7974779748%_ - _%target6759767920%_ - _%tl6759967923%_)))) - (_%__match7981179812%_ - _%e6759067890%_ - _%hd6758967894%_ - _%tl6758867897%_ - _%e6759367900%_ - _%hd6759267904%_ - _%tl6759167907%_ - _%e6759667910%_ - _%hd6759567914%_ - _%tl6759467917%_ - _%__splice7974779748%_ - _%target6759767920%_ - _%tl6759967923%_)))) - (_%__match7981179812%_ - _%e6759067890%_ - _%hd6758967894%_ - _%tl6758867897%_ - _%e6759367900%_ - _%hd6759267904%_ - _%tl6759167907%_ - _%e6759667910%_ - _%hd6759567914%_ - _%tl6759467917%_ - _%__splice7974779748%_ - _%target6759767920%_ - _%tl6759967923%_)) - (_%__match7981179812%_ - _%e6759067890%_ - _%hd6758967894%_ - _%tl6758867897%_ - _%e6759367900%_ - _%hd6759267904%_ - _%tl6759167907%_ - _%e6759667910%_ - _%hd6759567914%_ - _%tl6759467917%_ - _%__splice7974779748%_ - _%target6759767920%_ - _%tl6759967923%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match7981179812%_ - _%e6759067890%_ - _%hd6758967894%_ - _%tl6758867897%_ - _%e6759367900%_ - _%hd6759267904%_ - _%tl6759167907%_ - _%e6759667910%_ - _%hd6759567914%_ - _%tl6759467917%_ - _%__splice7974779748%_ - _%target6759767920%_ - _%tl6759967923%_)))) - (_%__match7981179812%_ - _%e6759067890%_ - _%hd6758967894%_ - _%tl6758867897%_ - _%e6759367900%_ - _%hd6759267904%_ - _%tl6759167907%_ - _%e6759667910%_ - _%hd6759567914%_ - _%tl6759467917%_ - _%__splice7974779748%_ - _%target6759767920%_ - _%tl6759967923%_))))))) - (_%loop6760067926%_ _%target6759767920%_ '() '()))))) - (if (gx#stx-pair? _%__stx7974279743%_) - (let ((_%e6759067890%_ (gx#syntax-e _%__stx7974279743%_))) - (let ((_%tl6758867897%_ + (_%__match7963679637%_ + _%e6741567715%_ + _%hd6741467719%_ + _%tl6741367722%_ + _%e6741867725%_ + _%hd6741767729%_ + _%tl6741667732%_ + _%e6742167735%_ + _%hd6742067739%_ + _%tl6741967742%_ + _%__splice7957279573%_ + _%target6742267745%_ + _%tl6742467748%_)))) + (_%__match7963679637%_ + _%e6741567715%_ + _%hd6741467719%_ + _%tl6741367722%_ + _%e6741867725%_ + _%hd6741767729%_ + _%tl6741667732%_ + _%e6742167735%_ + _%hd6742067739%_ + _%tl6741967742%_ + _%__splice7957279573%_ + _%target6742267745%_ + _%tl6742467748%_)))) + (_%__match7963679637%_ + _%e6741567715%_ + _%hd6741467719%_ + _%tl6741367722%_ + _%e6741867725%_ + _%hd6741767729%_ + _%tl6741667732%_ + _%e6742167735%_ + _%hd6742067739%_ + _%tl6741967742%_ + _%__splice7957279573%_ + _%target6742267745%_ + _%tl6742467748%_)) + (_%__match7963679637%_ + _%e6741567715%_ + _%hd6741467719%_ + _%tl6741367722%_ + _%e6741867725%_ + _%hd6741767729%_ + _%tl6741667732%_ + _%e6742167735%_ + _%hd6742067739%_ + _%tl6741967742%_ + _%__splice7957279573%_ + _%target6742267745%_ + _%tl6742467748%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match7963679637%_ + _%e6741567715%_ + _%hd6741467719%_ + _%tl6741367722%_ + _%e6741867725%_ + _%hd6741767729%_ + _%tl6741667732%_ + _%e6742167735%_ + _%hd6742067739%_ + _%tl6741967742%_ + _%__splice7957279573%_ + _%target6742267745%_ + _%tl6742467748%_)))) + (_%__match7963679637%_ + _%e6741567715%_ + _%hd6741467719%_ + _%tl6741367722%_ + _%e6741867725%_ + _%hd6741767729%_ + _%tl6741667732%_ + _%e6742167735%_ + _%hd6742067739%_ + _%tl6741967742%_ + _%__splice7957279573%_ + _%target6742267745%_ + _%tl6742467748%_))))))) + (_%loop6742567751%_ _%target6742267745%_ '() '()))))) + (if (gx#stx-pair? _%__stx7956779568%_) + (let ((_%e6741567715%_ (gx#syntax-e _%__stx7956779568%_))) + (let ((_%tl6741367722%_ (let () (declare (not safe)) - (##cdr _%e6759067890%_))) - (_%hd6758967894%_ + (##cdr _%e6741567715%_))) + (_%hd6741467719%_ (let () (declare (not safe)) - (##car _%e6759067890%_)))) - (if (gx#stx-pair? _%tl6758867897%_) - (let ((_%e6759367900%_ - (gx#syntax-e _%tl6758867897%_))) - (let ((_%tl6759167907%_ + (##car _%e6741567715%_)))) + (if (gx#stx-pair? _%tl6741367722%_) + (let ((_%e6741867725%_ + (gx#syntax-e _%tl6741367722%_))) + (let ((_%tl6741667732%_ (let () (declare (not safe)) - (##cdr _%e6759367900%_))) - (_%hd6759267904%_ + (##cdr _%e6741867725%_))) + (_%hd6741767729%_ (let () (declare (not safe)) - (##car _%e6759367900%_)))) - (if (gx#stx-pair? _%tl6759167907%_) - (let ((_%e6759667910%_ - (gx#syntax-e _%tl6759167907%_))) - (let ((_%tl6759467917%_ + (##car _%e6741867725%_)))) + (if (gx#stx-pair? _%tl6741667732%_) + (let ((_%e6742167735%_ + (gx#syntax-e _%tl6741667732%_))) + (let ((_%tl6741967742%_ (let () (declare (not safe)) - (##cdr _%e6759667910%_))) - (_%hd6759567914%_ + (##cdr _%e6742167735%_))) + (_%hd6742067739%_ (let () (declare (not safe)) - (##car _%e6759667910%_)))) - (if (gx#stx-pair/null? _%hd6759567914%_) - (let ((_%__splice7974779748%_ + (##car _%e6742167735%_)))) + (if (gx#stx-pair/null? _%hd6742067739%_) + (let ((_%__splice7957279573%_ (gx#syntax-split-splice - _%hd6759567914%_ + _%hd6742067739%_ '0))) - (let ((_%tl6759967923%_ + (let ((_%tl6742467748%_ (let () (declare (not safe)) (##vector-ref - _%__splice7974779748%_ + _%__splice7957279573%_ '1))) - (_%target6759767920%_ + (_%target6742267745%_ (let () (declare (not safe)) (##vector-ref - _%__splice7974779748%_ + _%__splice7957279573%_ '0)))) (if (gx#stx-null? - _%tl6759967923%_) - (_%__match7978579786%_ - _%e6759067890%_ - _%hd6758967894%_ - _%tl6758867897%_ - _%e6759367900%_ - _%hd6759267904%_ - _%tl6759167907%_ - _%e6759667910%_ - _%hd6759567914%_ - _%tl6759467917%_ - _%__splice7974779748%_ - _%target6759767920%_ - _%tl6759967923%_) - (_%__kont7975779758%_ - _%tl6758867897%_)))) - (_%__kont7975779758%_ - _%tl6758867897%_)))) - (_%__kont7975779758%_ _%tl6758867897%_)))) - (_%__kont7975779758%_ _%tl6758867897%_)))) - (let () (declare (not safe)) (_%g6758167677%_)))))))) + _%tl6742467748%_) + (_%__match7961079611%_ + _%e6741567715%_ + _%hd6741467719%_ + _%tl6741367722%_ + _%e6741867725%_ + _%hd6741767729%_ + _%tl6741667732%_ + _%e6742167735%_ + _%hd6742067739%_ + _%tl6741967742%_ + _%__splice7957279573%_ + _%target6742267745%_ + _%tl6742467748%_) + (_%__kont7958279583%_ + _%tl6741367722%_)))) + (_%__kont7958279583%_ + _%tl6741367722%_)))) + (_%__kont7958279583%_ _%tl6741367722%_)))) + (_%__kont7958279583%_ _%tl6741367722%_)))) + (let () (declare (not safe)) (_%g6740667502%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defclass/c| - (lambda (_%stx68122%_) - (letrec ((_%generate68125%_ - (lambda (_%hd75296%_ _%slots75298%_ _%body75299%_) - (let* ((_%__stx7982079821%_ _%hd75296%_) - (_%g7530375325%_ + (lambda (_%stx67947%_) + (letrec ((_%generate67950%_ + (lambda (_%hd75121%_ _%slots75123%_ _%body75124%_) + (let* ((_%__stx7964579646%_ _%hd75121%_) + (_%g7512875150%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7982079821%_)))) - (let ((_%__kont7982379824%_ - (lambda (_%L75401%_ _%L75403%_) - (_%generate-defclass68146%_ - _%L75403%_ - (foldr (lambda (_%g7542575428%_ - _%g7542675431%_) - (cons _%g7542575428%_ - _%g7542675431%_)) + _%__stx7964579646%_)))) + (let ((_%__kont7964879649%_ + (lambda (_%L75226%_ _%L75228%_) + (_%generate-defclass67971%_ + _%L75228%_ + (foldr (lambda (_%g7525075253%_ + _%g7525175256%_) + (cons _%g7525075253%_ + _%g7525175256%_)) '() - _%L75401%_) - _%slots75298%_ - _%body75299%_))) - (_%__kont7982779828%_ - (lambda (_%L75343%_) - (_%generate-defclass68146%_ - _%L75343%_ + _%L75226%_) + _%slots75123%_ + _%body75124%_))) + (_%__kont7965279653%_ + (lambda (_%L75168%_) + (_%generate-defclass67971%_ + _%L75168%_ '() - _%slots75298%_ - _%body75299%_))) - (_%__kont7982979830%_ + _%slots75123%_ + _%body75124%_))) + (_%__kont7965479655%_ (lambda () (gx#raise-syntax-error '#f '"bad class head" - _%stx68122%_ - _%hd75296%_)))) - (let* ((_%g7530175354%_ + _%stx67947%_ + _%hd75121%_)))) + (let* ((_%g7512675179%_ (lambda () - (let ((_%L75343%_ _%__stx7982079821%_)) - (if (gx#identifier? _%L75343%_) - (_%__kont7982779828%_ _%L75343%_) - (_%__kont7982979830%_))))) - (_%__match7984579846%_ - (lambda (_%e7530975361%_ - _%hd7530875365%_ - _%tl7530775368%_ - _%__splice7982579826%_ - _%target7531075371%_ - _%tl7531275374%_) - (letrec ((_%loop7531375377%_ - (lambda (_%hd7531175381%_ - _%super7531775384%_) + (let ((_%L75168%_ _%__stx7964579646%_)) + (if (gx#identifier? _%L75168%_) + (_%__kont7965279653%_ _%L75168%_) + (_%__kont7965479655%_))))) + (_%__match7967079671%_ + (lambda (_%e7513475186%_ + _%hd7513375190%_ + _%tl7513275193%_ + _%__splice7965079651%_ + _%target7513575196%_ + _%tl7513775199%_) + (letrec ((_%loop7513875202%_ + (lambda (_%hd7513675206%_ + _%super7514275209%_) (if (gx#stx-pair? - _%hd7531175381%_) - (let ((_%e7531475387%_ + _%hd7513675206%_) + (let ((_%e7513975212%_ (gx#syntax-e - _%hd7531175381%_))) - (let ((_%lp-tl7531675394%_ + _%hd7513675206%_))) + (let ((_%lp-tl7514175219%_ (let () (declare (not safe)) - (##cdr _%e7531475387%_))) - (_%lp-hd7531575391%_ + (##cdr _%e7513975212%_))) + (_%lp-hd7514075216%_ (let () (declare (not safe)) - (##car _%e7531475387%_)))) - (_%loop7531375377%_ - _%lp-tl7531675394%_ - (cons _%lp-hd7531575391%_ - _%super7531775384%_)))) - (let ((_%super7531875397%_ - (reverse _%super7531775384%_))) - (let ((_%L75401%_ - _%super7531875397%_) - (_%L75403%_ - _%hd7530875365%_)) + (##car _%e7513975212%_)))) + (_%loop7513875202%_ + _%lp-tl7514175219%_ + (cons _%lp-hd7514075216%_ + _%super7514275209%_)))) + (let ((_%super7514375222%_ + (reverse _%super7514275209%_))) + (let ((_%L75226%_ + _%super7514375222%_) + (_%L75228%_ + _%hd7513375190%_)) (if (and (gx#identifier? - _%L75403%_) + _%L75228%_) (andmap gerbil/core/mop~MOP-2#syntax-local-class-type-info? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g7541775420%_ _%g7541875423%_) - (cons _%g7541775420%_ _%g7541875423%_)) + (foldr (lambda (_%g7524275245%_ _%g7524375248%_) + (cons _%g7524275245%_ _%g7524375248%_)) '() - _%L75401%_))) - (_%__kont7982379824%_ _%L75401%_ _%L75403%_) - (let () (declare (not safe)) (_%g7530175354%_))))))))) + _%L75226%_))) + (_%__kont7964879649%_ _%L75226%_ _%L75228%_) + (let () (declare (not safe)) (_%g7512675179%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7531375377%_ - _%target7531075371%_ + (_%loop7513875202%_ + _%target7513575196%_ '()))))) - (if (gx#stx-pair? _%__stx7982079821%_) - (let ((_%e7530975361%_ - (gx#syntax-e _%__stx7982079821%_))) - (let ((_%tl7530775368%_ + (if (gx#stx-pair? _%__stx7964579646%_) + (let ((_%e7513475186%_ + (gx#syntax-e _%__stx7964579646%_))) + (let ((_%tl7513275193%_ (let () (declare (not safe)) - (##cdr _%e7530975361%_))) - (_%hd7530875365%_ + (##cdr _%e7513475186%_))) + (_%hd7513375190%_ (let () (declare (not safe)) - (##car _%e7530975361%_)))) - (if (gx#stx-pair/null? _%tl7530775368%_) - (let ((_%__splice7982579826%_ + (##car _%e7513475186%_)))) + (if (gx#stx-pair/null? _%tl7513275193%_) + (let ((_%__splice7965079651%_ (gx#syntax-split-splice - _%tl7530775368%_ + _%tl7513275193%_ '0))) - (let ((_%tl7531275374%_ + (let ((_%tl7513775199%_ (let () (declare (not safe)) (##vector-ref - _%__splice7982579826%_ + _%__splice7965079651%_ '1))) - (_%target7531075371%_ + (_%target7513575196%_ (let () (declare (not safe)) (##vector-ref - _%__splice7982579826%_ + _%__splice7965079651%_ '0)))) - (if (gx#stx-null? _%tl7531275374%_) - (_%__match7984579846%_ - _%e7530975361%_ - _%hd7530875365%_ - _%tl7530775368%_ - _%__splice7982579826%_ - _%target7531075371%_ - _%tl7531275374%_) + (if (gx#stx-null? _%tl7513775199%_) + (_%__match7967079671%_ + _%e7513475186%_ + _%hd7513375190%_ + _%tl7513275193%_ + _%__splice7965079651%_ + _%target7513575196%_ + _%tl7513775199%_) (let () (declare (not safe)) - (_%g7530175354%_))))) + (_%g7512675179%_))))) (let () (declare (not safe)) - (_%g7530175354%_))))) + (_%g7512675179%_))))) (let () (declare (not safe)) - (_%g7530175354%_)))))))) - (_%check-typedef-body!68127%_ - (lambda (_%body75287%_) - (letrec ((_%body-opt?75290%_ - (lambda (_%key75293%_) - (let ((__tmp80918 (gx#stx-e _%key75293%_))) + (_%g7512675179%_)))))))) + (_%check-typedef-body!67952%_ + (lambda (_%body75112%_) + (letrec ((_%body-opt?75115%_ + (lambda (_%key75118%_) + (let ((__tmp80644 (gx#stx-e _%key75118%_))) (declare (not safe)) - (##memq __tmp80918 + (##memq __tmp80644 '(id: struct: name: @@ -5826,107 +5786,107 @@ print: equal: metaclass:)))))) - (if (gx#stx-plist? _%body75287%_ _%body-opt?75290%_) + (if (gx#stx-plist? _%body75112%_ _%body-opt?75115%_) '#!void (gx#raise-syntax-error '#f '"invalid defclass body" - _%stx68122%_ - _%body75287%_))))) - (_%slot-name68128%_ - (lambda (_%slot-spec75284%_) + _%stx67947%_ + _%body75112%_))))) + (_%slot-name67953%_ + (lambda (_%slot-spec75109%_) (gx#stx-e - (if (gx#identifier? _%slot-spec75284%_) - _%slot-spec75284%_ - (gx#stx-car _%slot-spec75284%_))))) - (_%slot-contract68129%_ - (lambda (_%slot-spec75165%_) - (let* ((_%__stx7984879849%_ _%slot-spec75165%_) - (_%g7517075191%_ + (if (gx#identifier? _%slot-spec75109%_) + _%slot-spec75109%_ + (gx#stx-car _%slot-spec75109%_))))) + (_%slot-contract67954%_ + (lambda (_%slot-spec74990%_) + (let* ((_%__stx7967379674%_ _%slot-spec74990%_) + (_%g7499575016%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7984879849%_)))) - (let ((_%__kont7985179852%_ (lambda (_%L75271%_) '#f)) - (_%__kont7985379854%_ - (lambda (_%L75249%_ _%L75251%_) '#f)) - (_%__kont7985579856%_ - (lambda (_%L75208%_ _%L75210%_) _%L75208%_))) - (let* ((_%g7516875264%_ + _%__stx7967379674%_)))) + (let ((_%__kont7967679677%_ (lambda (_%L75096%_) '#f)) + (_%__kont7967879679%_ + (lambda (_%L75074%_ _%L75076%_) '#f)) + (_%__kont7968079681%_ + (lambda (_%L75033%_ _%L75035%_) _%L75033%_))) + (let* ((_%g7499375089%_ (lambda () - (if (gx#stx-pair? _%__stx7984879849%_) - (let ((_%e7517775229%_ + (if (gx#stx-pair? _%__stx7967379674%_) + (let ((_%e7500275054%_ (gx#syntax-e - _%__stx7984879849%_))) - (let ((_%tl7517575236%_ + _%__stx7967379674%_))) + (let ((_%tl7500075061%_ (let () (declare (not safe)) - (##cdr _%e7517775229%_))) - (_%hd7517675233%_ + (##cdr _%e7500275054%_))) + (_%hd7500175058%_ (let () (declare (not safe)) - (##car _%e7517775229%_)))) - (if (gx#stx-pair? _%tl7517575236%_) - (let ((_%e7518075239%_ + (##car _%e7500275054%_)))) + (if (gx#stx-pair? _%tl7500075061%_) + (let ((_%e7500575064%_ (gx#syntax-e - _%tl7517575236%_))) - (let ((_%tl7517875246%_ + _%tl7500075061%_))) + (let ((_%tl7500375071%_ (let () (declare (not safe)) - (##cdr _%e7518075239%_))) - (_%hd7517975243%_ + (##cdr _%e7500575064%_))) + (_%hd7500475068%_ (let () (declare (not safe)) - (##car _%e7518075239%_)))) + (##car _%e7500575064%_)))) (if (gx#stx-null? - _%tl7517875246%_) - (_%__kont7985379854%_ - _%hd7517975243%_ - _%hd7517675233%_) - (_%__kont7985579856%_ - _%tl7517575236%_ - _%hd7517675233%_)))) - (_%__kont7985579856%_ - _%tl7517575236%_ - _%hd7517675233%_)))) + _%tl7500375071%_) + (_%__kont7967879679%_ + _%hd7500475068%_ + _%hd7500175058%_) + (_%__kont7968079681%_ + _%tl7500075061%_ + _%hd7500175058%_)))) + (_%__kont7968079681%_ + _%tl7500075061%_ + _%hd7500175058%_)))) (let () (declare (not safe)) - (_%g7517075191%_))))) - (_%L75271%_ _%__stx7984879849%_)) - (if (gx#identifier? _%L75271%_) - (_%__kont7985179852%_ _%L75271%_) + (_%g7499575016%_))))) + (_%L75096%_ _%__stx7967379674%_)) + (if (gx#identifier? _%L75096%_) + (_%__kont7967679677%_ _%L75096%_) (let () (declare (not safe)) - (_%g7516875264%_)))))))) - (_%slot-contract-normalize68130%_ - (lambda (_%slot-spec75154%_) - (let ((_%contract7515675158%_ - (_%slot-contract68129%_ _%slot-spec75154%_))) - (if _%contract7515675158%_ - (let ((_%contract75162%_ _%contract7515675158%_)) - (_%contract-normalize68131%_ _%contract75162%_)) + (_%g7499375089%_)))))))) + (_%slot-contract-normalize67955%_ + (lambda (_%slot-spec74979%_) + (let ((_%contract7498174983%_ + (_%slot-contract67954%_ _%slot-spec74979%_))) + (if _%contract7498174983%_ + (let ((_%contract74987%_ _%contract7498174983%_)) + (_%contract-normalize67956%_ _%contract74987%_)) '#f)))) - (_%contract-normalize68131%_ - (lambda (_%contract74899%_) - (let* ((_%__stx7988079881%_ _%contract74899%_) - (_%g7490574949%_ + (_%contract-normalize67956%_ + (lambda (_%contract74724%_) + (let* ((_%__stx7970579706%_ _%contract74724%_) + (_%g7473074774%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7988079881%_)))) - (let ((_%__kont7988379884%_ - (lambda (_%L75125%_) - (_%contract-normalize68131%_ - (foldr (lambda (_%g7514175144%_ - _%g7514275147%_) - (cons _%g7514175144%_ - _%g7514275147%_)) + _%__stx7970579706%_)))) + (let ((_%__kont7970879709%_ + (lambda (_%L74950%_) + (_%contract-normalize67956%_ + (foldr (lambda (_%g7496674969%_ + _%g7496774972%_) + (cons _%g7496674969%_ + _%g7496774972%_)) '() - _%L75125%_)))) - (_%__kont7988779888%_ - (lambda (_%L75049%_ _%L75051%_) + _%L74950%_)))) + (_%__kont7971279713%_ + (lambda (_%L74874%_ _%L74876%_) (cons (gx#datum->syntax '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax @@ -5936,6391 +5896,6202 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'not) - (cons _%L75051%_ '()))) + (cons _%L74876%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f ':?) - (cons _%L75049%_ '())))))) - (_%__kont7988979890%_ (lambda (_%L74987%_) '#f)) - (_%__kont7989179892%_ - (lambda () _%contract74899%_))) - (let* ((_%g7490275068%_ + (cons _%L74874%_ '())))))) + (_%__kont7971479715%_ (lambda (_%L74812%_) '#f)) + (_%__kont7971679717%_ + (lambda () _%contract74724%_))) + (let* ((_%g7472774893%_ (lambda () - (if (gx#stx-pair? _%__stx7988079881%_) - (let ((_%e7492775009%_ + (if (gx#stx-pair? _%__stx7970579706%_) + (let ((_%e7475274834%_ (gx#syntax-e - _%__stx7988079881%_))) - (let ((_%tl7492575016%_ + _%__stx7970579706%_))) + (let ((_%tl7475074841%_ (let () (declare (not safe)) - (##cdr _%e7492775009%_))) - (_%hd7492675013%_ + (##cdr _%e7475274834%_))) + (_%hd7475174838%_ (let () (declare (not safe)) - (##car _%e7492775009%_)))) - (if (gx#identifier? _%hd7492675013%_) + (##car _%e7475274834%_)))) + (if (gx#identifier? _%hd7475174838%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80919_| - _%hd7492675013%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80645_| + _%hd7475174838%_) (if (gx#stx-pair? - _%tl7492575016%_) - (let ((_%e7493075019%_ + _%tl7475074841%_) + (let ((_%e7475574844%_ (gx#syntax-e - _%tl7492575016%_))) - (let ((_%tl7492875026%_ + _%tl7475074841%_))) + (let ((_%tl7475374851%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e7493075019%_))) - (_%hd7492975023%_ - (let () (declare (not safe)) (##car _%e7493075019%_)))) - (if (gx#stx-pair? _%tl7492875026%_) - (let ((_%e7493375029%_ (gx#syntax-e _%tl7492875026%_))) - (let ((_%tl7493175036%_ + (##cdr _%e7475574844%_))) + (_%hd7475474848%_ + (let () (declare (not safe)) (##car _%e7475574844%_)))) + (if (gx#stx-pair? _%tl7475374851%_) + (let ((_%e7475874854%_ (gx#syntax-e _%tl7475374851%_))) + (let ((_%tl7475674861%_ (let () (declare (not safe)) - (##cdr _%e7493375029%_))) - (_%hd7493275033%_ + (##cdr _%e7475874854%_))) + (_%hd7475774858%_ (let () (declare (not safe)) - (##car _%e7493375029%_)))) - (if (gx#identifier? _%hd7493275033%_) + (##car _%e7475874854%_)))) + (if (gx#identifier? _%hd7475774858%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80920_| - _%hd7493275033%_) - (if (gx#stx-pair? _%tl7493175036%_) - (let ((_%e7493675039%_ - (gx#syntax-e _%tl7493175036%_))) - (let ((_%tl7493475046%_ + |gerbil/core/contract~TypedDefinitions[1]#_g80646_| + _%hd7475774858%_) + (if (gx#stx-pair? _%tl7475674861%_) + (let ((_%e7476174864%_ + (gx#syntax-e _%tl7475674861%_))) + (let ((_%tl7475974871%_ (let () (declare (not safe)) - (##cdr _%e7493675039%_))) - (_%hd7493575043%_ + (##cdr _%e7476174864%_))) + (_%hd7476074868%_ (let () (declare (not safe)) - (##car _%e7493675039%_)))) - (if (gx#stx-null? _%tl7493475046%_) - (_%__kont7988779888%_ - _%hd7493575043%_ - _%hd7492975023%_) - (_%__kont7989179892%_)))) - (_%__kont7989179892%_)) - (_%__kont7989179892%_)) - (_%__kont7989179892%_)))) - (_%__kont7989179892%_)))) - (_%__kont7989179892%_)) + (##car _%e7476174864%_)))) + (if (gx#stx-null? _%tl7475974871%_) + (_%__kont7971279713%_ + _%hd7476074868%_ + _%hd7475474848%_) + (_%__kont7971679717%_)))) + (_%__kont7971679717%_)) + (_%__kont7971679717%_)) + (_%__kont7971679717%_)))) + (_%__kont7971679717%_)))) + (_%__kont7971679717%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80921_| - _%hd7492675013%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80647_| + _%hd7475174838%_) (if (gx#stx-pair? - _%tl7492575016%_) - (let ((_%e7494374977%_ + _%tl7475074841%_) + (let ((_%e7476874802%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7492575016%_))) - (let ((_%tl7494174984%_ + (gx#syntax-e _%tl7475074841%_))) + (let ((_%tl7476674809%_ (let () (declare (not safe)) - (##cdr _%e7494374977%_))) - (_%hd7494274981%_ + (##cdr _%e7476874802%_))) + (_%hd7476774806%_ (let () (declare (not safe)) - (##car _%e7494374977%_)))) - (if (gx#stx-null? _%tl7494174984%_) - (_%__kont7988979890%_ _%hd7494274981%_) - (_%__kont7989179892%_)))) - (_%__kont7989179892%_)) - (_%__kont7989179892%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7989179892%_)))) - (_%__kont7989179892%_)))) - (_%__match7991979920%_ - (lambda (_%__splice7988579886%_ - _%target7490875075%_ - _%tl7491075078%_ - _%e7491975081%_ - _%hd7491875085%_ - _%tl7491775088%_ - _%e7492275091%_ - _%hd7492175095%_ - _%tl7492075098%_) - (letrec ((_%loop7491175101%_ - (lambda (_%hd7490975105%_ - _%pre7491575108%_) + (##car _%e7476874802%_)))) + (if (gx#stx-null? _%tl7476674809%_) + (_%__kont7971479715%_ _%hd7476774806%_) + (_%__kont7971679717%_)))) + (_%__kont7971679717%_)) + (_%__kont7971679717%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7971679717%_)))) + (_%__kont7971679717%_)))) + (_%__match7974479745%_ + (lambda (_%__splice7971079711%_ + _%target7473374900%_ + _%tl7473574903%_ + _%e7474474906%_ + _%hd7474374910%_ + _%tl7474274913%_ + _%e7474774916%_ + _%hd7474674920%_ + _%tl7474574923%_) + (letrec ((_%loop7473674926%_ + (lambda (_%hd7473474930%_ + _%pre7474074933%_) (if (gx#stx-pair? - _%hd7490975105%_) - (let ((_%e7491275111%_ + _%hd7473474930%_) + (let ((_%e7473774936%_ (gx#syntax-e - _%hd7490975105%_))) - (let ((_%lp-tl7491475118%_ + _%hd7473474930%_))) + (let ((_%lp-tl7473974943%_ (let () (declare (not safe)) - (##cdr _%e7491275111%_))) - (_%lp-hd7491375115%_ + (##cdr _%e7473774936%_))) + (_%lp-hd7473874940%_ (let () (declare (not safe)) - (##car _%e7491275111%_)))) - (_%loop7491175101%_ - _%lp-tl7491475118%_ - (cons _%lp-hd7491375115%_ - _%pre7491575108%_)))) - (let ((_%pre7491675121%_ - (reverse _%pre7491575108%_))) - (_%__kont7988379884%_ - _%pre7491675121%_)))))) - (_%loop7491175101%_ - _%target7490875075%_ + (##car _%e7473774936%_)))) + (_%loop7473674926%_ + _%lp-tl7473974943%_ + (cons _%lp-hd7473874940%_ + _%pre7474074933%_)))) + (let ((_%pre7474174946%_ + (reverse _%pre7474074933%_))) + (_%__kont7970879709%_ + _%pre7474174946%_)))))) + (_%loop7473674926%_ + _%target7473374900%_ '()))))) - (if (gx#stx-pair/null? _%__stx7988079881%_) - (if (let ((__tmp80922 - (gx#stx-length _%__stx7988079881%_))) + (if (gx#stx-pair/null? _%__stx7970579706%_) + (if (let ((__tmp80648 + (gx#stx-length _%__stx7970579706%_))) (declare (not safe)) - (##fx>= __tmp80922 '2)) - (let ((_%__splice7988579886%_ + (##fx>= __tmp80648 '2)) + (let ((_%__splice7971079711%_ (gx#syntax-split-splice - _%__stx7988079881%_ + _%__stx7970579706%_ '2))) - (let ((_%tl7491075078%_ + (let ((_%tl7473574903%_ (let () (declare (not safe)) (##vector-ref - _%__splice7988579886%_ + _%__splice7971079711%_ '1))) - (_%target7490875075%_ + (_%target7473374900%_ (let () (declare (not safe)) (##vector-ref - _%__splice7988579886%_ + _%__splice7971079711%_ '0)))) - (if (gx#stx-pair? _%tl7491075078%_) - (let ((_%e7491975081%_ + (if (gx#stx-pair? _%tl7473574903%_) + (let ((_%e7474474906%_ (gx#syntax-e - _%tl7491075078%_))) - (let ((_%tl7491775088%_ + _%tl7473574903%_))) + (let ((_%tl7474274913%_ (let () (declare (not safe)) - (##cdr _%e7491975081%_))) - (_%hd7491875085%_ + (##cdr _%e7474474906%_))) + (_%hd7474374910%_ (let () (declare (not safe)) - (##car _%e7491975081%_)))) + (##car _%e7474474906%_)))) (if (gx#identifier? - _%hd7491875085%_) + _%hd7474374910%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80923_| - _%hd7491875085%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80649_| + _%hd7474374910%_) (if (gx#stx-pair? - _%tl7491775088%_) - (let ((_%e7492275091%_ + _%tl7474274913%_) + (let ((_%e7474774916%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7491775088%_))) - (let ((_%tl7492075098%_ + (gx#syntax-e _%tl7474274913%_))) + (let ((_%tl7474574923%_ (let () (declare (not safe)) - (##cdr _%e7492275091%_))) - (_%hd7492175095%_ + (##cdr _%e7474774916%_))) + (_%hd7474674920%_ (let () (declare (not safe)) - (##car _%e7492275091%_)))) - (if (gx#stx-null? _%tl7492075098%_) - (_%__match7991979920%_ - _%__splice7988579886%_ - _%target7490875075%_ - _%tl7491075078%_ - _%e7491975081%_ - _%hd7491875085%_ - _%tl7491775088%_ - _%e7492275091%_ - _%hd7492175095%_ - _%tl7492075098%_) - (let () (declare (not safe)) (_%g7490275068%_))))) - (let () (declare (not safe)) (_%g7490275068%_))) - (let () (declare (not safe)) (_%g7490275068%_))) + (##car _%e7474774916%_)))) + (if (gx#stx-null? _%tl7474574923%_) + (_%__match7974479745%_ + _%__splice7971079711%_ + _%target7473374900%_ + _%tl7473574903%_ + _%e7474474906%_ + _%hd7474374910%_ + _%tl7474274913%_ + _%e7474774916%_ + _%hd7474674920%_ + _%tl7474574923%_) + (let () (declare (not safe)) (_%g7472774893%_))))) + (let () (declare (not safe)) (_%g7472774893%_))) + (let () (declare (not safe)) (_%g7472774893%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g7490275068%_))))) + (_%g7472774893%_))))) (let () (declare (not safe)) - (_%g7490275068%_))))) + (_%g7472774893%_))))) (let () (declare (not safe)) - (_%g7490275068%_))) + (_%g7472774893%_))) (let () (declare (not safe)) - (_%g7490275068%_)))))))) - (_%slot-contract-type68132%_ - (lambda (_%slot-spec74888%_) - (let ((_%contract7489074892%_ - (_%slot-contract68129%_ _%slot-spec74888%_))) - (if _%contract7489074892%_ - (let ((_%contract74896%_ _%contract7489074892%_)) - (_%contract-type68133%_ _%contract74896%_)) + (_%g7472774893%_)))))))) + (_%slot-contract-type67957%_ + (lambda (_%slot-spec74713%_) + (let ((_%contract7471574717%_ + (_%slot-contract67954%_ _%slot-spec74713%_))) + (if _%contract7471574717%_ + (let ((_%contract74721%_ _%contract7471574717%_)) + (_%contract-type67958%_ _%contract74721%_)) '#f)))) - (_%contract-type68133%_ - (lambda (_%contract74696%_) - (let* ((_%__stx7997479975%_ _%contract74696%_) - (_%g7470174733%_ + (_%contract-type67958%_ + (lambda (_%contract74521%_) + (let* ((_%__stx7979979800%_ _%contract74521%_) + (_%g7452674558%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7997479975%_)))) - (let ((_%__kont7997779978%_ - (lambda (_%L74855%_ _%L74857%_ _%L74858%_) - _%L74857%_)) - (_%__kont7997979980%_ - (lambda (_%L74791%_ - _%L74793%_ - _%L74794%_ - _%L74795%_) - _%L74793%_)) - (_%__kont7998179982%_ (lambda () '#f))) - (let* ((_%__match8002380024%_ - (lambda (_%e7471874751%_ - _%hd7471774755%_ - _%tl7471674758%_ - _%e7472174761%_ - _%hd7472074765%_ - _%tl7471974768%_ - _%e7472474771%_ - _%hd7472374775%_ - _%tl7472274778%_ - _%e7472774781%_ - _%hd7472674785%_ - _%tl7472574788%_) - (let ((_%L74791%_ _%tl7472574788%_) - (_%L74793%_ _%hd7472674785%_) - (_%L74794%_ _%hd7472374775%_) - (_%L74795%_ _%hd7472074765%_)) - (if (and (gx#identifier? _%L74794%_) + _%__stx7979979800%_)))) + (let ((_%__kont7980279803%_ + (lambda (_%L74680%_ _%L74682%_ _%L74683%_) + _%L74682%_)) + (_%__kont7980479805%_ + (lambda (_%L74616%_ + _%L74618%_ + _%L74619%_ + _%L74620%_) + _%L74618%_)) + (_%__kont7980679807%_ (lambda () '#f))) + (let* ((_%__match7984879849%_ + (lambda (_%e7454374576%_ + _%hd7454274580%_ + _%tl7454174583%_ + _%e7454674586%_ + _%hd7454574590%_ + _%tl7454474593%_ + _%e7454974596%_ + _%hd7454874600%_ + _%tl7454774603%_ + _%e7455274606%_ + _%hd7455174610%_ + _%tl7455074613%_) + (let ((_%L74616%_ _%tl7455074613%_) + (_%L74618%_ _%hd7455174610%_) + (_%L74619%_ _%hd7454874600%_) + (_%L74620%_ _%hd7454574590%_)) + (if (and (gx#identifier? _%L74619%_) (or (gx#free-identifier=? - _%L74794%_ + _%L74619%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L74794%_ + _%L74619%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L74794%_ + _%L74619%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L74794%_ + _%L74619%_ (gx#datum->syntax '#f '::-)))) - (_%__kont7997979980%_ - _%L74791%_ - _%L74793%_ - _%L74794%_ - _%L74795%_) - (_%__kont7998179982%_))))) - (_%__match7999579996%_ - (lambda (_%e7470874835%_ - _%hd7470774839%_ - _%tl7470674842%_ - _%e7471174845%_ - _%hd7471074849%_ - _%tl7470974852%_) - (let ((_%L74855%_ _%tl7470974852%_) - (_%L74857%_ _%hd7471074849%_) - (_%L74858%_ _%hd7470774839%_)) - (if (and (gx#identifier? _%L74858%_) + (_%__kont7980479805%_ + _%L74616%_ + _%L74618%_ + _%L74619%_ + _%L74620%_) + (_%__kont7980679807%_))))) + (_%__match7982079821%_ + (lambda (_%e7453374660%_ + _%hd7453274664%_ + _%tl7453174667%_ + _%e7453674670%_ + _%hd7453574674%_ + _%tl7453474677%_) + (let ((_%L74680%_ _%tl7453474677%_) + (_%L74682%_ _%hd7453574674%_) + (_%L74683%_ _%hd7453274664%_)) + (if (and (gx#identifier? _%L74683%_) (or (gx#free-identifier=? - _%L74858%_ + _%L74683%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L74858%_ + _%L74683%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L74858%_ + _%L74683%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L74858%_ + _%L74683%_ (gx#datum->syntax '#f '::-)))) - (_%__kont7997779978%_ - _%L74855%_ - _%L74857%_ - _%L74858%_) - (if (gx#identifier? _%hd7470774839%_) + (_%__kont7980279803%_ + _%L74680%_ + _%L74682%_ + _%L74683%_) + (if (gx#identifier? _%hd7453274664%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80924_| - _%hd7470774839%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80650_| + _%hd7453274664%_) (if (gx#stx-pair? - _%tl7470974852%_) - (let ((_%e7472474771%_ + _%tl7453474677%_) + (let ((_%e7454974596%_ (gx#syntax-e - _%tl7470974852%_))) - (let ((_%tl7472274778%_ + _%tl7453474677%_))) + (let ((_%tl7454774603%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e7472474771%_))) - (_%hd7472374775%_ - (let () (declare (not safe)) (##car _%e7472474771%_)))) - (if (gx#stx-pair? _%tl7472274778%_) - (let ((_%e7472774781%_ (gx#syntax-e _%tl7472274778%_))) - (let ((_%tl7472574788%_ + (##cdr _%e7454974596%_))) + (_%hd7454874600%_ + (let () (declare (not safe)) (##car _%e7454974596%_)))) + (if (gx#stx-pair? _%tl7454774603%_) + (let ((_%e7455274606%_ (gx#syntax-e _%tl7454774603%_))) + (let ((_%tl7455074613%_ (let () (declare (not safe)) - (##cdr _%e7472774781%_))) - (_%hd7472674785%_ + (##cdr _%e7455274606%_))) + (_%hd7455174610%_ (let () (declare (not safe)) - (##car _%e7472774781%_)))) - (_%__match8002380024%_ - _%e7470874835%_ - _%hd7470774839%_ - _%tl7470674842%_ - _%e7471174845%_ - _%hd7471074849%_ - _%tl7470974852%_ - _%e7472474771%_ - _%hd7472374775%_ - _%tl7472274778%_ - _%e7472774781%_ - _%hd7472674785%_ - _%tl7472574788%_))) - (_%__kont7998179982%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7998179982%_)) - (_%__kont7998179982%_)) - (_%__kont7998179982%_))))))) - (if (gx#stx-pair? _%__stx7997479975%_) - (let ((_%e7470874835%_ - (gx#syntax-e _%__stx7997479975%_))) - (let ((_%tl7470674842%_ + (##car _%e7455274606%_)))) + (_%__match7984879849%_ + _%e7453374660%_ + _%hd7453274664%_ + _%tl7453174667%_ + _%e7453674670%_ + _%hd7453574674%_ + _%tl7453474677%_ + _%e7454974596%_ + _%hd7454874600%_ + _%tl7454774603%_ + _%e7455274606%_ + _%hd7455174610%_ + _%tl7455074613%_))) + (_%__kont7980679807%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7980679807%_)) + (_%__kont7980679807%_)) + (_%__kont7980679807%_))))))) + (if (gx#stx-pair? _%__stx7979979800%_) + (let ((_%e7453374660%_ + (gx#syntax-e _%__stx7979979800%_))) + (let ((_%tl7453174667%_ (let () (declare (not safe)) - (##cdr _%e7470874835%_))) - (_%hd7470774839%_ + (##cdr _%e7453374660%_))) + (_%hd7453274664%_ (let () (declare (not safe)) - (##car _%e7470874835%_)))) - (if (gx#stx-pair? _%tl7470674842%_) - (let ((_%e7471174845%_ - (gx#syntax-e _%tl7470674842%_))) - (let ((_%tl7470974852%_ + (##car _%e7453374660%_)))) + (if (gx#stx-pair? _%tl7453174667%_) + (let ((_%e7453674670%_ + (gx#syntax-e _%tl7453174667%_))) + (let ((_%tl7453474677%_ (let () (declare (not safe)) - (##cdr _%e7471174845%_))) - (_%hd7471074849%_ + (##cdr _%e7453674670%_))) + (_%hd7453574674%_ (let () (declare (not safe)) - (##car _%e7471174845%_)))) - (_%__match7999579996%_ - _%e7470874835%_ - _%hd7470774839%_ - _%tl7470674842%_ - _%e7471174845%_ - _%hd7471074849%_ - _%tl7470974852%_))) - (_%__kont7998179982%_)))) - (_%__kont7998179982%_))))))) - (_%slot-contract-predicate68134%_ - (lambda (_%slot-spec74685%_) - (let ((_%contract7468774689%_ - (_%slot-contract68129%_ _%slot-spec74685%_))) - (if _%contract7468774689%_ - (let ((_%contract74693%_ _%contract7468774689%_)) - (_%contract-predicate68135%_ _%contract74693%_)) + (##car _%e7453674670%_)))) + (_%__match7982079821%_ + _%e7453374660%_ + _%hd7453274664%_ + _%tl7453174667%_ + _%e7453674670%_ + _%hd7453574674%_ + _%tl7453474677%_))) + (_%__kont7980679807%_)))) + (_%__kont7980679807%_))))))) + (_%slot-contract-predicate67959%_ + (lambda (_%slot-spec74510%_) + (let ((_%contract7451274514%_ + (_%slot-contract67954%_ _%slot-spec74510%_))) + (if _%contract7451274514%_ + (let ((_%contract74518%_ _%contract7451274514%_)) + (_%contract-predicate67960%_ _%contract74518%_)) '#f)))) - (_%contract-predicate68135%_ - (lambda (_%contract74607%_) - (let* ((_%__stx8002680027%_ _%contract74607%_) - (_%g7461174626%_ + (_%contract-predicate67960%_ + (lambda (_%contract74432%_) + (let* ((_%__stx7985179852%_ _%contract74432%_) + (_%g7443674451%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8002680027%_)))) - (let ((_%__kont8002980030%_ - (lambda (_%L74664%_ _%L74666%_) _%L74666%_)) - (_%__kont8003180032%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8002680027%_) - (let ((_%e7461774644%_ - (gx#syntax-e _%__stx8002680027%_))) - (let ((_%tl7461574651%_ + _%__stx7985179852%_)))) + (let ((_%__kont7985479855%_ + (lambda (_%L74489%_ _%L74491%_) _%L74491%_)) + (_%__kont7985679857%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx7985179852%_) + (let ((_%e7444274469%_ + (gx#syntax-e _%__stx7985179852%_))) + (let ((_%tl7444074476%_ (let () (declare (not safe)) - (##cdr _%e7461774644%_))) - (_%hd7461674648%_ + (##cdr _%e7444274469%_))) + (_%hd7444174473%_ (let () (declare (not safe)) - (##car _%e7461774644%_)))) - (if (gx#identifier? _%hd7461674648%_) + (##car _%e7444274469%_)))) + (if (gx#identifier? _%hd7444174473%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80925_| - _%hd7461674648%_) - (if (gx#stx-pair? _%tl7461574651%_) - (let ((_%e7462074654%_ + |gerbil/core/contract~TypedDefinitions[1]#_g80651_| + _%hd7444174473%_) + (if (gx#stx-pair? _%tl7444074476%_) + (let ((_%e7444574479%_ (gx#syntax-e - _%tl7461574651%_))) - (let ((_%tl7461874661%_ + _%tl7444074476%_))) + (let ((_%tl7444374486%_ (let () (declare (not safe)) - (##cdr _%e7462074654%_))) - (_%hd7461974658%_ + (##cdr _%e7444574479%_))) + (_%hd7444474483%_ (let () (declare (not safe)) - (##car _%e7462074654%_)))) - (_%__kont8002980030%_ - _%tl7461874661%_ - _%hd7461974658%_))) - (_%__kont8003180032%_)) - (_%__kont8003180032%_)) - (_%__kont8003180032%_)))) - (_%__kont8003180032%_)))))) - (_%slot-default68136%_ - (lambda (_%slot-spec74435%_) - (let* ((_%__stx8005280053%_ _%slot-spec74435%_) - (_%g7444074472%_ + (##car _%e7444574479%_)))) + (_%__kont7985479855%_ + _%tl7444374486%_ + _%hd7444474483%_))) + (_%__kont7985679857%_)) + (_%__kont7985679857%_)) + (_%__kont7985679857%_)))) + (_%__kont7985679857%_)))))) + (_%slot-default67961%_ + (lambda (_%slot-spec74260%_) + (let* ((_%__stx7987779878%_ _%slot-spec74260%_) + (_%g7426574297%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8005280053%_)))) - (let ((_%__kont8005580056%_ - (lambda (_%L74588%_ _%L74590%_) _%L74588%_)) - (_%__kont8005780058%_ - (lambda (_%L74540%_ _%L74542%_) _%L74540%_)) - (_%__kont8006180062%_ (lambda () '#f))) - (let* ((_%__match8010380104%_ - (lambda (_%__splice8005980060%_ - _%target7445274490%_ - _%tl7445474493%_ - _%e7446374496%_ - _%hd7446274500%_ - _%tl7446174503%_ - _%e7446674506%_ - _%hd7446574510%_ - _%tl7446474513%_) - (letrec ((_%loop7445574516%_ - (lambda (_%hd7445374520%_ - _%id7445974523%_) + _%__stx7987779878%_)))) + (let ((_%__kont7988079881%_ + (lambda (_%L74413%_ _%L74415%_) _%L74413%_)) + (_%__kont7988279883%_ + (lambda (_%L74365%_ _%L74367%_) _%L74365%_)) + (_%__kont7988679887%_ (lambda () '#f))) + (let* ((_%__match7992879929%_ + (lambda (_%__splice7988479885%_ + _%target7427774315%_ + _%tl7427974318%_ + _%e7428874321%_ + _%hd7428774325%_ + _%tl7428674328%_ + _%e7429174331%_ + _%hd7429074335%_ + _%tl7428974338%_) + (letrec ((_%loop7428074341%_ + (lambda (_%hd7427874345%_ + _%id7428474348%_) (if (gx#stx-pair? - _%hd7445374520%_) - (let ((_%e7445674526%_ + _%hd7427874345%_) + (let ((_%e7428174351%_ (gx#syntax-e - _%hd7445374520%_))) - (let ((_%lp-tl7445874533%_ + _%hd7427874345%_))) + (let ((_%lp-tl7428374358%_ (let () (declare (not safe)) - (##cdr _%e7445674526%_))) - (_%lp-hd7445774530%_ + (##cdr _%e7428174351%_))) + (_%lp-hd7428274355%_ (let () (declare (not safe)) - (##car _%e7445674526%_)))) - (_%loop7445574516%_ - _%lp-tl7445874533%_ - (cons _%lp-hd7445774530%_ - _%id7445974523%_)))) - (let ((_%id7446074536%_ - (reverse _%id7445974523%_))) - (_%__kont8005780058%_ - _%hd7446574510%_ - _%id7446074536%_)))))) - (_%loop7445574516%_ - _%target7445274490%_ + (##car _%e7428174351%_)))) + (_%loop7428074341%_ + _%lp-tl7428374358%_ + (cons _%lp-hd7428274355%_ + _%id7428474348%_)))) + (let ((_%id7428574361%_ + (reverse _%id7428474348%_))) + (_%__kont7988279883%_ + _%hd7429074335%_ + _%id7428574361%_)))))) + (_%loop7428074341%_ + _%target7427774315%_ '())))) - (_%g7443874561%_ + (_%g7426374386%_ (lambda () - (if (gx#stx-pair/null? _%__stx8005280053%_) - (if (let ((__tmp80926 + (if (gx#stx-pair/null? _%__stx7987779878%_) + (if (let ((__tmp80652 (gx#stx-length - _%__stx8005280053%_))) + _%__stx7987779878%_))) (declare (not safe)) - (##fx>= __tmp80926 '2)) - (let ((_%__splice8005980060%_ + (##fx>= __tmp80652 '2)) + (let ((_%__splice7988479885%_ (gx#syntax-split-splice - _%__stx8005280053%_ + _%__stx7987779878%_ '2))) - (let ((_%tl7445474493%_ + (let ((_%tl7427974318%_ (let () (declare (not safe)) (##vector-ref - _%__splice8005980060%_ + _%__splice7988479885%_ '1))) - (_%target7445274490%_ + (_%target7427774315%_ (let () (declare (not safe)) (##vector-ref - _%__splice8005980060%_ + _%__splice7988479885%_ '0)))) (if (gx#stx-pair? - _%tl7445474493%_) - (let ((_%e7446374496%_ + _%tl7427974318%_) + (let ((_%e7428874321%_ (gx#syntax-e - _%tl7445474493%_))) - (let ((_%tl7446174503%_ + _%tl7427974318%_))) + (let ((_%tl7428674328%_ (let () (declare (not safe)) - (##cdr _%e7446374496%_))) - (_%hd7446274500%_ + (##cdr _%e7428874321%_))) + (_%hd7428774325%_ (let () (declare (not safe)) - (##car _%e7446374496%_)))) + (##car _%e7428874321%_)))) (if (gx#identifier? - _%hd7446274500%_) + _%hd7428774325%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80927_| - _%hd7446274500%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80653_| + _%hd7428774325%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7446174503%_) - (let ((_%e7446674506%_ - (gx#syntax-e _%tl7446174503%_))) - (let ((_%tl7446474513%_ + _%tl7428674328%_) + (let ((_%e7429174331%_ + (gx#syntax-e _%tl7428674328%_))) + (let ((_%tl7428974338%_ (let () (declare (not safe)) - (##cdr _%e7446674506%_))) - (_%hd7446574510%_ + (##cdr _%e7429174331%_))) + (_%hd7429074335%_ (let () (declare (not safe)) - (##car _%e7446674506%_)))) - (if (gx#stx-null? _%tl7446474513%_) - (_%__match8010380104%_ - _%__splice8005980060%_ - _%target7445274490%_ - _%tl7445474493%_ - _%e7446374496%_ - _%hd7446274500%_ - _%tl7446174503%_ - _%e7446674506%_ - _%hd7446574510%_ - _%tl7446474513%_) - (_%__kont8006180062%_)))) - (_%__kont8006180062%_)) - (_%__kont8006180062%_)) - (_%__kont8006180062%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8006180062%_)))) - (_%__kont8006180062%_)) - (_%__kont8006180062%_))))) - (if (gx#stx-pair? _%__stx8005280053%_) - (let ((_%e7444674568%_ - (gx#syntax-e _%__stx8005280053%_))) - (let ((_%tl7444474575%_ + (##car _%e7429174331%_)))) + (if (gx#stx-null? _%tl7428974338%_) + (_%__match7992879929%_ + _%__splice7988479885%_ + _%target7427774315%_ + _%tl7427974318%_ + _%e7428874321%_ + _%hd7428774325%_ + _%tl7428674328%_ + _%e7429174331%_ + _%hd7429074335%_ + _%tl7428974338%_) + (_%__kont7988679887%_)))) + (_%__kont7988679887%_)) + (_%__kont7988679887%_)) + (_%__kont7988679887%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7988679887%_)))) + (_%__kont7988679887%_)) + (_%__kont7988679887%_))))) + (if (gx#stx-pair? _%__stx7987779878%_) + (let ((_%e7427174393%_ + (gx#syntax-e _%__stx7987779878%_))) + (let ((_%tl7426974400%_ (let () (declare (not safe)) - (##cdr _%e7444674568%_))) - (_%hd7444574572%_ + (##cdr _%e7427174393%_))) + (_%hd7427074397%_ (let () (declare (not safe)) - (##car _%e7444674568%_)))) - (if (gx#stx-pair? _%tl7444474575%_) - (let ((_%e7444974578%_ - (gx#syntax-e _%tl7444474575%_))) - (let ((_%tl7444774585%_ + (##car _%e7427174393%_)))) + (if (gx#stx-pair? _%tl7426974400%_) + (let ((_%e7427474403%_ + (gx#syntax-e _%tl7426974400%_))) + (let ((_%tl7427274410%_ (let () (declare (not safe)) - (##cdr _%e7444974578%_))) - (_%hd7444874582%_ + (##cdr _%e7427474403%_))) + (_%hd7427374407%_ (let () (declare (not safe)) - (##car _%e7444974578%_)))) - (if (gx#stx-null? _%tl7444774585%_) - (_%__kont8005580056%_ - _%hd7444874582%_ - _%hd7444574572%_) + (##car _%e7427474403%_)))) + (if (gx#stx-null? _%tl7427274410%_) + (_%__kont7988079881%_ + _%hd7427374407%_ + _%hd7427074397%_) (let () (declare (not safe)) - (_%g7443874561%_))))) + (_%g7426374386%_))))) (let () (declare (not safe)) - (_%g7443874561%_))))) + (_%g7426374386%_))))) (let () (declare (not safe)) - (_%g7443874561%_)))))))) - (_%infer-slot-type68137%_ - (lambda (_%slot74333%_ _%type-a74335%_ _%type-b74336%_) - (if (let () (declare (not safe)) (not _%type-a74335%_)) - (let () _%type-b74336%_) - (if (let () (declare (not safe)) (not _%type-b74336%_)) - (let () _%type-a74335%_) + (_%g7426374386%_)))))))) + (_%infer-slot-type67962%_ + (lambda (_%slot74158%_ _%type-a74160%_ _%type-b74161%_) + (if (not _%type-a74160%_) + _%type-b74161%_ + (if (not _%type-b74161%_) + _%type-a74160%_ (if (gx#free-identifier=? - _%type-a74335%_ - _%type-b74336%_) - (let () _%type-a74335%_) - (let _%again74346%_ ((_%klass-a74349%_ + _%type-a74160%_ + _%type-b74161%_) + _%type-a74160%_ + (let _%again74171%_ ((_%klass-a74174%_ (gx#syntax-local-value - _%type-a74335%_)) - (_%klass-b74351%_ + _%type-a74160%_)) + (_%klass-b74176%_ (gx#syntax-local-value - _%type-b74336%_))) - (if (eq? _%klass-a74349%_ _%klass-b74351%_) - (let () _%type-a74335%_) + _%type-b74161%_))) + (if (eq? _%klass-a74174%_ _%klass-b74176%_) + _%type-a74160%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-a74349%_)) - (let () - (if (let () - (declare (not safe)) - (class-instance? - gerbil/core/mop~MOP-2#class-type-info::t - _%klass-b74351%_)) - (let () - (if (eq? (let ((__obj80568 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-a74349%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80568 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref __obj80568 '1 '#f '#f)) - (class-slot-ref - gerbil/core/mop~MOP-2#class-type-info::t - __obj80568 - 'id))) - (let ((__obj80569 _%klass-b74351%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80569 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref __obj80569 '1 '#f '#f)) - (class-slot-ref - gerbil/core/mop~MOP-2#class-type-info::t - __obj80569 - 'id)))) - (let () _%type-a74335%_) - (if (member _%type-a74335%_ - (let () - (declare (not safe)) - (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-b74351%_)) - gx#free-identifier=?) - (let () _%type-b74336%_) - (if (member _%type-b74336%_ - (let () - (declare (not safe)) - (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-a74349%_)) - gx#free-identifier=?) - (let () _%type-a74335%_) - (let () - (gx#raise-syntax-error - '#f - '"incompatible slot types" - _%stx68122%_ - _%slot74333%_ - _%type-a74335%_ - _%type-b74336%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (class-instance? - |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b74351%_)) - (let ((_%$e74369%_ - (gx#syntax-local-value - (let ((__obj80570 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b74351%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80570 - 'gerbil/core/contract~TypeReference#type-reference::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref __obj80570 '1 '#f '#f)) - (class-slot-ref - |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80570 - 'identifier))) - false))) - (if _%$e74369%_ - ((lambda (_%klass-b74373%_) - (_%again74346%_ _%klass-a74349%_ _%klass-b74373%_)) - _%$e74369%_) - (if (gx#free-identifier=? - _%type-a74335%_ - (let ((__obj80571 _%klass-b74351%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80571 - 'gerbil/core/contract~TypeReference#type-reference::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80571 - '1 - '#f - '#f)) - (class-slot-ref - |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80571 - 'identifier)))) - (let () _%type-a74335%_) - (let () - (gx#raise-syntax-error - '#f - '"cannot resolve type reference to determine slot type compatibility" - _%stx68122%_ - _%slot74333%_ - _%type-a74335%_ - _%type-b74336%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (gx#raise-syntax-error - '#f - '"incompatible slot types" - _%stx68122%_ - _%slot74333%_ - _%type-a74335%_ - _%type-b74336%_))))) + _%klass-a74174%_)) (if (let () (declare (not safe)) (class-instance? - gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-a74349%_)) - (let () - (if (let () - (declare (not safe)) - (class-instance? - gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-b74351%_)) - (let () - (if (member _%type-a74335%_ + gerbil/core/mop~MOP-2#class-type-info::t + _%klass-b74176%_)) + (if (eq? (let ((__obj80393 + _%klass-a74174%_)) + (if (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##structure-direct-instance-of? + __obj80393 + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref __obj80393 '1 '#f '#f)) + (class-slot-ref + gerbil/core/mop~MOP-2#class-type-info::t + __obj80393 + 'id))) + (let ((__obj80394 _%klass-b74176%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80394 + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref __obj80394 '1 '#f '#f)) + (class-slot-ref + gerbil/core/mop~MOP-2#class-type-info::t + __obj80394 + 'id)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%type-a74160%_ + (if (member _%type-a74160%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (gerbil/core/contract~ClassMeta#!class-precedence-list + _%klass-b74176%_)) + gx#free-identifier=?) + _%type-b74161%_ + (if (member _%type-b74161%_ (let () (declare (not safe)) - (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - _%klass-b74351%_))) - (let () _%type-b74336%_) - (if (member _%type-b74336%_ - (let () - (declare (not safe)) - (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - _%klass-a74349%_))) - (let () _%type-a74335%_) - (let () - (gx#raise-syntax-error - '#f - '"incompatible slot types" - _%stx68122%_ - _%slot74333%_ - _%type-a74335%_ - _%type-b74336%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (class-instance? - |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b74351%_)) - (let ((_%$e74394%_ - (gx#syntax-local-value - (let ((__obj80572 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b74351%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80572 - 'gerbil/core/contract~TypeReference#type-reference::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80572 - '1 - '#f - '#f)) - (class-slot-ref - |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80572 - 'identifier))) - false))) - (if _%$e74394%_ - ((lambda (_%klass-b74398%_) - (_%again74346%_ _%klass-a74349%_ _%klass-b74398%_)) - _%$e74394%_) - (if (gx#free-identifier=? - _%type-a74335%_ - (let ((__obj80573 _%klass-b74351%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80573 - 'gerbil/core/contract~TypeReference#type-reference::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80573 - '1 - '#f - '#f)) - (class-slot-ref - |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80573 - 'identifier)))) - (let () _%type-a74335%_) - (let () - (gx#raise-syntax-error - '#f - '"cannot resolve type reference to determine slot type compatibility" - _%stx68122%_ - _%slot74333%_ - _%type-a74335%_ - _%type-b74336%_))))) - (let () + (gerbil/core/contract~ClassMeta#!class-precedence-list + _%klass-a74174%_)) + gx#free-identifier=?) + _%type-a74160%_ (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx68122%_ - _%slot74333%_ - _%type-a74335%_ - _%type-b74336%_))))) + _%stx67947%_ + _%slot74158%_ + _%type-a74160%_ + _%type-b74161%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-a74349%_)) - (let ((_%$e74409%_ + _%klass-b74176%_)) + (let ((_%$e74194%_ (gx#syntax-local-value - (let ((__obj80574 + (let ((__obj80395 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-a74349%_)) + _%klass-b74176%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80574 + __obj80395 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj80574 '1 '#f '#f)) + (##unchecked-structure-ref __obj80395 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80574 + __obj80395 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e74409%_ - ((lambda (_%klass-a74413%_) - (_%again74346%_ - _%klass-a74413%_ - _%klass-b74351%_)) - _%$e74409%_) - (if (let () - (declare - (not safe)) - (class-instance? - |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b74351%_)) - (let ((_%$e74418%_ + (if _%$e74194%_ + ((lambda (_%klass-b74198%_) + (_%again74171%_ + _%klass-a74174%_ + _%klass-b74198%_)) + _%$e74194%_) + (if (gx#free-identifier=? + _%type-a74160%_ + (let ((__obj80396 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%klass-b74176%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80396 + 'gerbil/core/contract~TypeReference#type-reference::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref __obj80396 '1 '#f '#f)) + (class-slot-ref + |gerbil/core/contract~TypeReference[1]#type-reference::t| + __obj80396 + 'identifier)))) + _%type-a74160%_ + (gx#raise-syntax-error + '#f + '"cannot resolve type reference to determine slot type compatibility" + _%stx67947%_ + _%slot74158%_ + _%type-a74160%_ + _%type-b74161%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#raise-syntax-error + '#f + '"incompatible slot types" + _%stx67947%_ + _%slot74158%_ + _%type-a74160%_ + _%type-b74161%_))) + (if (let () + (declare (not safe)) + (class-instance? + gerbil/core/contract~InterfaceInfo#interface-info::t + _%klass-a74174%_)) + (if (let () + (declare (not safe)) + (class-instance? + gerbil/core/contract~InterfaceInfo#interface-info::t + _%klass-b74176%_)) + (if (member _%type-a74160%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-local-value - (let ((__obj80575 _%klass-b74351%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80575 - 'gerbil/core/contract~TypeReference#type-reference::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80575 - '1 - '#f - '#f)) - (class-slot-ref - |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80575 + (not safe)) + (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin + _%klass-b74176%_))) + _%type-b74161%_ + (if (member _%type-b74161%_ + (let () + (declare (not safe)) + (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin + _%klass-a74174%_))) + _%type-a74160%_ + (gx#raise-syntax-error + '#f + '"incompatible slot types" + _%stx67947%_ + _%slot74158%_ + _%type-a74160%_ + _%type-b74161%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (class-instance? + |gerbil/core/contract~TypeReference[1]#type-reference::t| + _%klass-b74176%_)) + (let ((_%$e74219%_ + (gx#syntax-local-value + (let ((__obj80397 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%klass-b74176%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80397 + 'gerbil/core/contract~TypeReference#type-reference::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80397 + '1 + '#f + '#f)) + (class-slot-ref + |gerbil/core/contract~TypeReference[1]#type-reference::t| + __obj80397 + 'identifier))) + false))) + (if _%$e74219%_ + ((lambda (_%klass-b74223%_) + (_%again74171%_ _%klass-a74174%_ _%klass-b74223%_)) + _%$e74219%_) + (if (gx#free-identifier=? + _%type-a74160%_ + (let ((__obj80398 _%klass-b74176%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80398 + 'gerbil/core/contract~TypeReference#type-reference::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80398 + '1 + '#f + '#f)) + (class-slot-ref + |gerbil/core/contract~TypeReference[1]#type-reference::t| + __obj80398 + 'identifier)))) + _%type-a74160%_ + (gx#raise-syntax-error + '#f + '"cannot resolve type reference to determine slot type compatibility" + _%stx67947%_ + _%slot74158%_ + _%type-a74160%_ + _%type-b74161%_)))) + (gx#raise-syntax-error + '#f + '"incompatible slot types" + _%stx67947%_ + _%slot74158%_ + _%type-a74160%_ + _%type-b74161%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (class-instance? + |gerbil/core/contract~TypeReference[1]#type-reference::t| + _%klass-a74174%_)) + (let ((_%$e74234%_ + (gx#syntax-local-value + (let ((__obj80399 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%klass-a74174%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80399 + 'gerbil/core/contract~TypeReference#type-reference::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref __obj80399 '1 '#f '#f)) + (class-slot-ref + |gerbil/core/contract~TypeReference[1]#type-reference::t| + __obj80399 + 'identifier))) + false))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if _%$e74234%_ + ((lambda (_%klass-a74238%_) + (_%again74171%_ + _%klass-a74238%_ + _%klass-b74176%_)) + _%$e74234%_) + (if (let () + (declare + (not safe)) + (class-instance? + |gerbil/core/contract~TypeReference[1]#type-reference::t| + _%klass-b74176%_)) + (let ((_%$e74243%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-local-value + (let ((__obj80400 _%klass-b74176%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80400 + 'gerbil/core/contract~TypeReference#type-reference::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80400 + '1 + '#f + '#f)) + (class-slot-ref + |gerbil/core/contract~TypeReference[1]#type-reference::t| + __obj80400 'identifier))) false))) - (if _%$e74418%_ - ((lambda (_%klass-b74422%_) - (_%again74346%_ - _%klass-a74349%_ - _%klass-b74422%_)) - _%$e74418%_) + (if _%$e74243%_ + ((lambda (_%klass-b74247%_) + (_%again74171%_ + _%klass-a74174%_ + _%klass-b74247%_)) + _%$e74243%_) (if (gx#free-identifier=? - (let ((__obj80576 _%klass-a74349%_)) + (let ((__obj80401 _%klass-a74174%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80576 + __obj80401 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80576 + __obj80401 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80576 + __obj80401 'identifier))) - (let ((__obj80577 _%klass-b74351%_)) + (let ((__obj80402 _%klass-b74176%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80577 + __obj80402 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80577 + __obj80402 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80577 + __obj80402 'identifier)))) - (let () _%type-a74335%_) - (let () - (gx#raise-syntax-error - '#f - '"cannot resolve type reference to determine slot type compatibility" - _%stx68122%_ - _%slot74333%_ - _%type-a74335%_ - _%type-b74336%_))))) + _%type-a74160%_ + (gx#raise-syntax-error + '#f + '"cannot resolve type reference to determine slot type compatibility" + _%stx67947%_ + _%slot74158%_ + _%type-a74160%_ + _%type-b74161%_)))) (if (gx#free-identifier=? - _%type-b74336%_ - (let ((__obj80578 _%klass-a74349%_)) + _%type-b74161%_ + (let ((__obj80403 _%klass-a74174%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80578 + __obj80403 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80578 + __obj80403 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj80578 + __obj80403 'identifier)))) - (let () _%type-b74336%_) - (let () - (gx#raise-syntax-error - '#f - '"cannot resolve type reference to determine slot type compatibility" - _%stx68122%_ - _%slot74333%_ - _%type-a74335%_ - _%type-b74336%_)))))) + _%type-b74161%_ + (gx#raise-syntax-error + '#f + '"cannot resolve type reference to determine slot type compatibility" + _%stx67947%_ + _%slot74158%_ + _%type-a74160%_ + _%type-b74161%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (gx#raise-syntax-error - '#f - '"unexpected slot type" - _%stx68122%_ - _%slot74333%_ - _%type-a74335%_ - _%klass-a74349%_)))))))))))) - (_%get-mixin-slots68138%_ - (lambda (_%super74204%_) - (letrec* ((_%tab74207%_ (make-hash-table-eq))) - (let _%loop74210%_ ((_%rest74213%_ _%super74204%_) - (_%result74215%_ '())) - (let* ((_%rest7421674224%_ _%rest74213%_) - (_%else7421874236%_ + (gx#raise-syntax-error + '#f + '"unexpected slot type" + _%stx67947%_ + _%slot74158%_ + _%type-a74160%_ + _%klass-a74174%_))))))))))) + (_%get-mixin-slots67963%_ + (lambda (_%super74029%_) + (letrec* ((_%tab74032%_ (make-hash-table-eq))) + (let _%loop74035%_ ((_%rest74038%_ _%super74029%_) + (_%result74040%_ '())) + (let* ((_%rest7404174049%_ _%rest74038%_) + (_%else7404374061%_ (lambda () - (values (reverse! _%result74215%_) - _%tab74207%_))) - (_%K7422074317%_ - (lambda (_%rest74240%_ _%type-id74242%_) - (let* ((_%klass74244%_ + (values (reverse! _%result74040%_) + _%tab74032%_))) + (_%K7404574142%_ + (lambda (_%rest74065%_ _%type-id74067%_) + (let* ((_%klass74069%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx68122%_ - _%type-id74242%_))) - (_%slots74247%_ - (let ((__obj80579 _%klass74244%_)) + _%stx67947%_ + _%type-id74067%_))) + (_%slots74072%_ + (let ((__obj80404 _%klass74069%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80579 + __obj80404 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80579 + __obj80404 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80579 + __obj80404 'slots))))) - (let _%loop-inner74252%_ ((_%rest-slots74255%_ - _%slots74247%_) - (_%result74257%_ - _%result74215%_)) - (let* ((_%rest-slots7425874266%_ - _%rest-slots74255%_) - (_%else7426074278%_ + (let _%loop-inner74077%_ ((_%rest-slots74080%_ + _%slots74072%_) + (_%result74082%_ + _%result74040%_)) + (let* ((_%rest-slots7408374091%_ + _%rest-slots74080%_) + (_%else7408574103%_ (lambda () - (_%loop74210%_ + (_%loop74035%_ (foldr cons - _%rest74240%_ - (let ((__obj80580 - _%klass74244%_)) + _%rest74065%_ + (let ((__obj80405 + _%klass74069%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj80580 + __obj80405 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj80580 '3 '#f '#f)) + (##unchecked-structure-ref __obj80405 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80580 + __obj80405 'super)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%result74257%_))) - (_%K7426274301%_ - (lambda (_%rest-slots74282%_ - _%slot74284%_) - (let ((_%slot-type74286%_ + _%result74082%_))) + (_%K7408774126%_ + (lambda (_%rest-slots74107%_ + _%slot74109%_) + (let ((_%slot-type74111%_ (hash-ref - _%tab74207%_ - _%slot74284%_ + _%tab74032%_ + _%slot74109%_ absent-value))) - (if (eq? _%slot-type74286%_ + (if (eq? _%slot-type74111%_ absent-value) (let () (hash-put! - _%tab74207%_ - _%slot74284%_ + _%tab74032%_ + _%slot74109%_ (let () (declare (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass74244%_ - _%slot74284%_))) - (_%loop-inner74252%_ - _%rest-slots74282%_ - (cons _%slot74284%_ - _%result74257%_))) - (if (let () - (declare - (not safe)) - (not _%slot-type74286%_)) + _%klass74069%_ + _%slot74109%_))) + (_%loop-inner74077%_ + _%rest-slots74107%_ + (cons _%slot74109%_ + _%result74082%_))) + (if (not _%slot-type74111%_) (let () (hash-put! - _%tab74207%_ - _%slot74284%_ + _%tab74032%_ + _%slot74109%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass74244%_ - _%slot74284%_))) - (_%loop-inner74252%_ _%rest-slots74282%_ _%result74257%_)) - (let () - (let* ((_%other-slot-type74295%_ - (let () - (declare (not safe)) - (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass74244%_ - _%slot74284%_))) - (_%slot-type74298%_ - (_%infer-slot-type68137%_ - _%slot74284%_ - _%other-slot-type74295%_ - _%slot-type74286%_))) - (hash-put! _%tab74207%_ _%slot74284%_ _%slot-type74298%_) - (_%loop-inner74252%_ - _%rest-slots74282%_ - _%result74257%_))))))))) + _%klass74069%_ + _%slot74109%_))) + (_%loop-inner74077%_ _%rest-slots74107%_ _%result74082%_)) + (let* ((_%other-slot-type74120%_ + (let () + (declare (not safe)) + (|gerbil/core/contract~Using[1]#!class-slot-type| + _%klass74069%_ + _%slot74109%_))) + (_%slot-type74123%_ + (_%infer-slot-type67962%_ + _%slot74109%_ + _%other-slot-type74120%_ + _%slot-type74111%_))) + (hash-put! _%tab74032%_ _%slot74109%_ _%slot-type74123%_) + (_%loop-inner74077%_ + _%rest-slots74107%_ + _%result74082%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%rest-slots7425874266%_)) - (let ((_%hd7426374305%_ + (##pair? _%rest-slots7408374091%_)) + (let ((_%hd7408874130%_ (let () (declare (not safe)) - (##car _%rest-slots7425874266%_))) - (_%tl7426474308%_ + (##car _%rest-slots7408374091%_))) + (_%tl7408974133%_ (let () (declare (not safe)) - (##cdr _%rest-slots7425874266%_)))) - (let* ((_%slot74311%_ - _%hd7426374305%_) - (_%rest-slots74314%_ - _%tl7426474308%_)) - (_%K7426274301%_ - _%rest-slots74314%_ - _%slot74311%_))) - (_%else7426074278%_)))))))) + (##cdr _%rest-slots7408374091%_)))) + (let* ((_%slot74136%_ + _%hd7408874130%_) + (_%rest-slots74139%_ + _%tl7408974133%_)) + (_%K7408774126%_ + _%rest-slots74139%_ + _%slot74136%_))) + (_%else7408574103%_)))))))) (if (let () (declare (not safe)) - (##pair? _%rest7421674224%_)) - (let ((_%hd7422174321%_ + (##pair? _%rest7404174049%_)) + (let ((_%hd7404674146%_ (let () (declare (not safe)) - (##car _%rest7421674224%_))) - (_%tl7422274324%_ + (##car _%rest7404174049%_))) + (_%tl7404774149%_ (let () (declare (not safe)) - (##cdr _%rest7421674224%_)))) - (let* ((_%type-id74327%_ _%hd7422174321%_) - (_%rest74330%_ _%tl7422274324%_)) - (_%K7422074317%_ - _%rest74330%_ - _%type-id74327%_))) - (_%else7421874236%_))))))) - (_%get-slot-table68139%_ - (lambda (_%slots74147%_ - _%mixin-slots74149%_ - _%super74150%_ - _%contract-e74151%_ - _%getf74152%_ - _%mixf74153%_) - (letrec* ((_%tab74155%_ (make-hash-table-eq))) + (##cdr _%rest7404174049%_)))) + (let* ((_%type-id74152%_ _%hd7404674146%_) + (_%rest74155%_ _%tl7404774149%_)) + (_%K7404574142%_ + _%rest74155%_ + _%type-id74152%_))) + (_%else7404374061%_))))))) + (_%get-slot-table67964%_ + (lambda (_%slots73972%_ + _%mixin-slots73974%_ + _%super73975%_ + _%contract-e73976%_ + _%getf73977%_ + _%mixf73978%_) + (letrec* ((_%tab73980%_ (make-hash-table-eq))) (for-each - (lambda (_%slot74158%_) + (lambda (_%slot73983%_) (for-each - (lambda (_%super-type74161%_) - (let* ((_%klass74164%_ + (lambda (_%super-type73986%_) + (let* ((_%klass73989%_ (gx#syntax-local-value - _%super-type74161%_)) - (_%$e74167%_ - (hash-get _%tab74155%_ _%slot74158%_))) - (if _%$e74167%_ - ((lambda (_%a74171%_) - (let ((_%$e74174%_ - (_%getf74152%_ - _%klass74164%_ - _%slot74158%_))) - (if _%$e74174%_ - ((lambda (_%b74178%_) + _%super-type73986%_)) + (_%$e73992%_ + (hash-get _%tab73980%_ _%slot73983%_))) + (if _%$e73992%_ + ((lambda (_%a73996%_) + (let ((_%$e73999%_ + (_%getf73977%_ + _%klass73989%_ + _%slot73983%_))) + (if _%$e73999%_ + ((lambda (_%b74003%_) (hash-put! - _%tab74155%_ - _%slot74158%_ - (_%mixf74153%_ - _%slot74158%_ - _%a74171%_ - _%b74178%_))) - _%$e74174%_) + _%tab73980%_ + _%slot73983%_ + (_%mixf73978%_ + _%slot73983%_ + _%a73996%_ + _%b74003%_))) + _%$e73999%_) '#!void))) - _%$e74167%_) - (let ((_%$e74181%_ - (_%getf74152%_ - _%klass74164%_ - _%slot74158%_))) - (if _%$e74181%_ - ((lambda (_%a74185%_) + _%$e73992%_) + (let ((_%$e74006%_ + (_%getf73977%_ + _%klass73989%_ + _%slot73983%_))) + (if _%$e74006%_ + ((lambda (_%a74010%_) (hash-put! - _%tab74155%_ - _%slot74158%_ - _%a74185%_)) - _%$e74181%_) + _%tab73980%_ + _%slot73983%_ + _%a74010%_)) + _%$e74006%_) '#!void))))) - _%super74150%_)) - _%mixin-slots74149%_) + _%super73975%_)) + _%mixin-slots73974%_) (for-each - (lambda (_%slot-spec74188%_) - (let ((_%slot74191%_ - (_%slot-name68128%_ _%slot-spec74188%_)) - (_%a74193%_ - (_%contract-e74151%_ _%slot-spec74188%_))) - (if _%a74193%_ - (let ((_%$e74195%_ - (hash-get _%tab74155%_ _%slot74191%_))) - (if _%$e74195%_ - ((lambda (_%b74199%_) + (lambda (_%slot-spec74013%_) + (let ((_%slot74016%_ + (_%slot-name67953%_ _%slot-spec74013%_)) + (_%a74018%_ + (_%contract-e73976%_ _%slot-spec74013%_))) + (if _%a74018%_ + (let ((_%$e74020%_ + (hash-get _%tab73980%_ _%slot74016%_))) + (if _%$e74020%_ + ((lambda (_%b74024%_) (hash-put! - _%tab74155%_ - _%slot74191%_ - (_%mixf74153%_ - _%slot74191%_ - _%a74193%_ - _%b74199%_))) - _%$e74195%_) - (let () - (hash-put! - _%tab74155%_ - _%slot74191%_ - _%a74193%_)))) + _%tab73980%_ + _%slot74016%_ + (_%mixf73978%_ + _%slot74016%_ + _%a74018%_ + _%b74024%_))) + _%$e74020%_) + (hash-put! + _%tab73980%_ + _%slot74016%_ + _%a74018%_))) '#!void))) - _%slots74147%_) - _%tab74155%_))) - (_%get-slot-contracts68140%_ - (lambda (_%slots72583%_ - _%mixin-slots72585%_ - _%super72586%_ - _%slot-type-table72587%_) - (_%get-slot-table68139%_ - _%slots72583%_ - _%mixin-slots72585%_ - _%super72586%_ - _%slot-contract-normalize68130%_ + _%slots73972%_) + _%tab73980%_))) + (_%get-slot-contracts67965%_ + (lambda (_%slots72408%_ + _%mixin-slots72410%_ + _%super72411%_ + _%slot-type-table72412%_) + (_%get-slot-table67964%_ + _%slots72408%_ + _%mixin-slots72410%_ + _%super72411%_ + _%slot-contract-normalize67955%_ |gerbil/core/contract~Using[1]#!class-slot-contract| - (lambda (_%slot72589%_ _%a72591%_ _%b72592%_) - (let* ((_%__stx8037480375%_ _%a72591%_) - (_%g7265472707%_ + (lambda (_%slot72414%_ _%a72416%_ _%b72417%_) + (let* ((_%__stx8019980200%_ _%a72416%_) + (_%g7247972532%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8037480375%_)))) - (let ((_%__kont8037780378%_ + _%__stx8019980200%_)))) + (let ((_%__kont8020280203%_ (lambda () - (let* ((_%__stx8034280343%_ _%b72592%_) - (_%g7397773995%_ + (let* ((_%__stx8016780168%_ _%b72417%_) + (_%g7380273820%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8034280343%_)))) - (let ((_%__kont8034580346%_ - (lambda (_%L74089%_) - (let* ((_%g7410874116%_ - (lambda (_%g7410974112%_) + _%__stx8016780168%_)))) + (let ((_%__kont8017080171%_ + (lambda (_%L73914%_) + (let* ((_%g7393373941%_ + (lambda (_%g7393473937%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7410974112%_))) - (_%g7410774135%_ - (lambda (_%g7410974120%_) - ((lambda (_%L74123%_) - (let () - (cons (gx#datum->syntax + _%g7393473937%_))) + (_%g7393273960%_ + (lambda (_%g7393473945%_) + ((lambda (_%L73948%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - ':) - (cons _%L74123%_ '())))) - _%g7410974120%_)))) + '#f + ':) + (cons _%L73948%_ '()))) + _%g7393473945%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7410774135%_ + (_%g7393273960%_ (hash-ref - _%slot-type-table72587%_ - _%slot72589%_))))) - (_%__kont8034780348%_ - (lambda (_%L74022%_) - (let* ((_%g7404174049%_ - (lambda (_%g7404274045%_) + _%slot-type-table72412%_ + _%slot72414%_))))) + (_%__kont8017280173%_ + (lambda (_%L73847%_) + (let* ((_%g7386673874%_ + (lambda (_%g7386773870%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7404274045%_))) - (_%g7404074068%_ - (lambda (_%g7404274053%_) - ((lambda (_%L74056%_) - (let () - (cons (gx#datum->syntax + _%g7386773870%_))) + (_%g7386573893%_ + (lambda (_%g7386773878%_) + ((lambda (_%L73881%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - ':~) - (cons _%L74022%_ - (cons (gx#datum->syntax '#f ':) - (cons _%L74056%_ '())))))) - _%g7404274053%_)))) + '#f + ':~) + (cons _%L73847%_ + (cons (gx#datum->syntax '#f ':) + (cons _%L73881%_ '()))))) + _%g7386773878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7404074068%_ + (_%g7386573893%_ (hash-ref - _%slot-type-table72587%_ - _%slot72589%_)))))) - (let ((_%__match8035580356%_ - (lambda (_%e7398274079%_ - _%hd7398174083%_ - _%tl7398074086%_) - (let ((_%L74089%_ - _%hd7398174083%_)) + _%slot-type-table72412%_ + _%slot72414%_)))))) + (let ((_%__match8018080181%_ + (lambda (_%e7380773904%_ + _%hd7380673908%_ + _%tl7380573911%_) + (let ((_%L73914%_ + _%hd7380673908%_)) (if (or (gx#free-identifier=? - _%L74089%_ + _%L73914%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L74089%_ + _%L73914%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L74089%_ + _%L73914%_ (gx#datum->syntax '#f ':-))) - (_%__kont8034580346%_ - _%L74089%_) + (_%__kont8017080171%_ + _%L73914%_) (if (gx#identifier? - _%hd7398174083%_) + _%hd7380673908%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80928_| - _%hd7398174083%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80654_| + _%hd7380673908%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7398074086%_) - (let ((_%e7398974012%_ - (gx#syntax-e _%tl7398074086%_))) - (let ((_%tl7398774019%_ + _%tl7380573911%_) + (let ((_%e7381473837%_ + (gx#syntax-e _%tl7380573911%_))) + (let ((_%tl7381273844%_ (let () (declare (not safe)) - (##cdr _%e7398974012%_))) - (_%hd7398874016%_ + (##cdr _%e7381473837%_))) + (_%hd7381373841%_ (let () (declare (not safe)) - (##car _%e7398974012%_)))) - (_%__kont8034780348%_ _%hd7398874016%_))) - (let () (declare (not safe)) (_%g7397773995%_))) - (let () (declare (not safe)) (_%g7397773995%_))) - (let () (declare (not safe)) (_%g7397773995%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8034280343%_) - (let ((_%e7398274079%_ + (##car _%e7381473837%_)))) + (_%__kont8017280173%_ _%hd7381373841%_))) + (let () (declare (not safe)) (_%g7380273820%_))) + (let () (declare (not safe)) (_%g7380273820%_))) + (let () (declare (not safe)) (_%g7380273820%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%__stx8016780168%_) + (let ((_%e7380773904%_ (gx#syntax-e - _%__stx8034280343%_))) - (let ((_%tl7398074086%_ + _%__stx8016780168%_))) + (let ((_%tl7380573911%_ (let () (declare (not safe)) - (##cdr _%e7398274079%_))) - (_%hd7398174083%_ + (##cdr _%e7380773904%_))) + (_%hd7380673908%_ (let () (declare (not safe)) - (##car _%e7398274079%_)))) - (_%__match8035580356%_ - _%e7398274079%_ - _%hd7398174083%_ - _%tl7398074086%_))) + (##car _%e7380773904%_)))) + (_%__match8018080181%_ + _%e7380773904%_ + _%hd7380673908%_ + _%tl7380573911%_))) (let () (declare (not safe)) - (_%g7397773995%_)))))))) - (_%__kont8037980380%_ + (_%g7380273820%_)))))))) + (_%__kont8020480205%_ (lambda () - (let* ((_%__stx8029480295%_ _%b72592%_) - (_%g7377373793%_ + (let* ((_%__stx8011980120%_ _%b72417%_) + (_%g7359873618%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8029480295%_)))) - (let ((_%__kont8029780298%_ + _%__stx8011980120%_)))) + (let ((_%__kont8012280123%_ (lambda () - (let* ((_%g7391573923%_ - (lambda (_%g7391673919%_) + (let* ((_%g7374073748%_ + (lambda (_%g7374173744%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7391673919%_))) - (_%g7391473947%_ - (lambda (_%g7391673927%_) - ((lambda (_%L73930%_) - (let () - (cons (gx#datum->syntax + _%g7374173744%_))) + (_%g7373973772%_ + (lambda (_%g7374173752%_) + ((lambda (_%L73755%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - ':?) - (cons _%L73930%_ '())))) - _%g7391673927%_)))) + '#f + ':?) + (cons _%L73755%_ '()))) + _%g7374173752%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7391473947%_ + (_%g7373973772%_ (hash-ref - _%slot-type-table72587%_ - _%slot72589%_))))) - (_%__kont8029980300%_ - (lambda (_%L73841%_) - (let* ((_%g7386373871%_ - (lambda (_%g7386473867%_) + _%slot-type-table72412%_ + _%slot72414%_))))) + (_%__kont8012480125%_ + (lambda (_%L73666%_) + (let* ((_%g7368873696%_ + (lambda (_%g7368973692%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7386473867%_))) - (_%g7386273890%_ - (lambda (_%g7386473875%_) - ((lambda (_%L73878%_) - (let () - (cons (gx#datum->syntax + _%g7368973692%_))) + (_%g7368773715%_ + (lambda (_%g7368973700%_) + ((lambda (_%L73703%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - ':~) - (cons _%L73841%_ - (cons (gx#datum->syntax '#f ':?) - (cons _%L73878%_ '())))))) - _%g7386473875%_)))) + '#f + ':~) + (cons _%L73666%_ + (cons (gx#datum->syntax '#f ':?) + (cons _%L73703%_ '()))))) + _%g7368973700%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7386273890%_ + (_%g7368773715%_ (hash-ref - _%slot-type-table72587%_ - _%slot72589%_))))) - (_%__kont8030180302%_ + _%slot-type-table72412%_ + _%slot72414%_))))) + (_%__kont8012680127%_ (lambda () (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx68122%_ - _%slot72589%_ - _%a72591%_ - _%b72592%_)))) - (if (gx#stx-pair? _%__stx8029480295%_) - (let ((_%e7377773901%_ + _%stx67947%_ + _%slot72414%_ + _%a72416%_ + _%b72417%_)))) + (if (gx#stx-pair? _%__stx8011980120%_) + (let ((_%e7360273726%_ (gx#syntax-e - _%__stx8029480295%_))) - (let ((_%tl7377573908%_ + _%__stx8011980120%_))) + (let ((_%tl7360073733%_ (let () (declare (not safe)) - (##cdr _%e7377773901%_))) - (_%hd7377673905%_ + (##cdr _%e7360273726%_))) + (_%hd7360173730%_ (let () (declare (not safe)) - (##car _%e7377773901%_)))) + (##car _%e7360273726%_)))) (if (gx#identifier? - _%hd7377673905%_) + _%hd7360173730%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80929_| - _%hd7377673905%_) - (_%__kont8029780298%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80655_| + _%hd7360173730%_) + (_%__kont8012280123%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80930_| - _%hd7377673905%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80656_| + _%hd7360173730%_) (if (gx#stx-pair? - _%tl7377573908%_) - (let ((_%e7378473821%_ + _%tl7360073733%_) + (let ((_%e7360973646%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7377573908%_))) - (let ((_%tl7378273828%_ + (gx#syntax-e _%tl7360073733%_))) + (let ((_%tl7360773653%_ (let () (declare (not safe)) - (##cdr _%e7378473821%_))) - (_%hd7378373825%_ + (##cdr _%e7360973646%_))) + (_%hd7360873650%_ (let () (declare (not safe)) - (##car _%e7378473821%_)))) - (if (gx#stx-pair? _%tl7378273828%_) - (let ((_%e7378773831%_ - (gx#syntax-e _%tl7378273828%_))) - (let ((_%tl7378573838%_ + (##car _%e7360973646%_)))) + (if (gx#stx-pair? _%tl7360773653%_) + (let ((_%e7361273656%_ + (gx#syntax-e _%tl7360773653%_))) + (let ((_%tl7361073663%_ (let () (declare (not safe)) - (##cdr _%e7378773831%_))) - (_%hd7378673835%_ + (##cdr _%e7361273656%_))) + (_%hd7361173660%_ (let () (declare (not safe)) - (##car _%e7378773831%_)))) - (if (gx#identifier? _%hd7378673835%_) + (##car _%e7361273656%_)))) + (if (gx#identifier? _%hd7361173660%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80931_| - _%hd7378673835%_) - (_%__kont8029980300%_ - _%hd7378373825%_) - (_%__kont8030180302%_)) - (_%__kont8030180302%_)))) - (_%__kont8030180302%_)))) - (_%__kont8030180302%_)) - (_%__kont8030180302%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8030180302%_)))) - (_%__kont8030180302%_)))))) - (_%__kont8038180382%_ + |gerbil/core/contract~TypedDefinitions[1]#_g80657_| + _%hd7361173660%_) + (_%__kont8012480125%_ + _%hd7360873650%_) + (_%__kont8012680127%_)) + (_%__kont8012680127%_)))) + (_%__kont8012680127%_)))) + (_%__kont8012680127%_)) + (_%__kont8012680127%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8012680127%_)))) + (_%__kont8012680127%_)))))) + (_%__kont8020680207%_ (lambda () - (let* ((_%__stx8026280263%_ _%b72592%_) - (_%g7358173600%_ + (let* ((_%__stx8008780088%_ _%b72417%_) + (_%g7340673425%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8026280263%_)))) - (let ((_%__kont8026580266%_ - (lambda (_%L73696%_) - (let* ((_%g7371573723%_ - (lambda (_%g7371673719%_) + _%__stx8008780088%_)))) + (let ((_%__kont8009080091%_ + (lambda (_%L73521%_) + (let* ((_%g7354073548%_ + (lambda (_%g7354173544%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7371673719%_))) - (_%g7371473742%_ - (lambda (_%g7371673727%_) - ((lambda (_%L73730%_) - (let () - (cons (gx#datum->syntax + _%g7354173544%_))) + (_%g7353973567%_ + (lambda (_%g7354173552%_) + ((lambda (_%L73555%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - ':-) - (cons _%L73730%_ '())))) - _%g7371673727%_)))) + '#f + ':-) + (cons _%L73555%_ '()))) + _%g7354173552%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7371473742%_ + (_%g7353973567%_ (hash-ref - _%slot-type-table72587%_ - _%slot72589%_))))) - (_%__kont8026780268%_ - (lambda (_%L73627%_ _%L73629%_) - (let* ((_%g7364873656%_ - (lambda (_%g7364973652%_) + _%slot-type-table72412%_ + _%slot72414%_))))) + (_%__kont8009280093%_ + (lambda (_%L73452%_ _%L73454%_) + (let* ((_%g7347373481%_ + (lambda (_%g7347473477%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7364973652%_))) - (_%g7364773675%_ - (lambda (_%g7364973660%_) - ((lambda (_%L73663%_) - (let () - (cons (gx#datum->syntax + _%g7347473477%_))) + (_%g7347273500%_ + (lambda (_%g7347473485%_) + ((lambda (_%L73488%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - ':~) - (cons _%L73629%_ - (cons (gx#datum->syntax '#f ':-) - (cons _%L73663%_ '())))))) - _%g7364973660%_)))) + '#f + ':~) + (cons _%L73454%_ + (cons (gx#datum->syntax '#f ':-) + (cons _%L73488%_ '()))))) + _%g7347473485%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7364773675%_ + (_%g7347273500%_ (hash-ref - _%slot-type-table72587%_ - _%slot72589%_)))))) - (let ((_%__match8027580276%_ - (lambda (_%e7358673686%_ - _%hd7358573690%_ - _%tl7358473693%_) - (let ((_%L73696%_ - _%hd7358573690%_)) + _%slot-type-table72412%_ + _%slot72414%_)))))) + (let ((_%__match8010080101%_ + (lambda (_%e7341173511%_ + _%hd7341073515%_ + _%tl7340973518%_) + (let ((_%L73521%_ + _%hd7341073515%_)) (if (or (gx#free-identifier=? - _%L73696%_ + _%L73521%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L73696%_ + _%L73521%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L73696%_ + _%L73521%_ (gx#datum->syntax '#f ':-))) - (_%__kont8026580266%_ - _%L73696%_) + (_%__kont8009080091%_ + _%L73521%_) (if (gx#identifier? - _%hd7358573690%_) + _%hd7341073515%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80932_| - _%hd7358573690%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80658_| + _%hd7341073515%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7358473693%_) - (let ((_%e7359473617%_ - (gx#syntax-e _%tl7358473693%_))) - (let ((_%tl7359273624%_ + _%tl7340973518%_) + (let ((_%e7341973442%_ + (gx#syntax-e _%tl7340973518%_))) + (let ((_%tl7341773449%_ (let () (declare (not safe)) - (##cdr _%e7359473617%_))) - (_%hd7359373621%_ + (##cdr _%e7341973442%_))) + (_%hd7341873446%_ (let () (declare (not safe)) - (##car _%e7359473617%_)))) - (_%__kont8026780268%_ - _%tl7359273624%_ - _%hd7359373621%_))) - (let () (declare (not safe)) (_%g7358173600%_))) - (let () (declare (not safe)) (_%g7358173600%_))) - (let () (declare (not safe)) (_%g7358173600%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8026280263%_) - (let ((_%e7358673686%_ + (##car _%e7341973442%_)))) + (_%__kont8009280093%_ + _%tl7341773449%_ + _%hd7341873446%_))) + (let () (declare (not safe)) (_%g7340673425%_))) + (let () (declare (not safe)) (_%g7340673425%_))) + (let () (declare (not safe)) (_%g7340673425%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%__stx8008780088%_) + (let ((_%e7341173511%_ (gx#syntax-e - _%__stx8026280263%_))) - (let ((_%tl7358473693%_ + _%__stx8008780088%_))) + (let ((_%tl7340973518%_ (let () (declare (not safe)) - (##cdr _%e7358673686%_))) - (_%hd7358573690%_ + (##cdr _%e7341173511%_))) + (_%hd7341073515%_ (let () (declare (not safe)) - (##car _%e7358673686%_)))) - (_%__match8027580276%_ - _%e7358673686%_ - _%hd7358573690%_ - _%tl7358473693%_))) + (##car _%e7341173511%_)))) + (_%__match8010080101%_ + _%e7341173511%_ + _%hd7341073515%_ + _%tl7340973518%_))) (let () (declare (not safe)) - (_%g7358173600%_)))))))) - (_%__kont8038380384%_ - (lambda (_%L73408%_) - (let* ((_%__stx8023680237%_ _%b72592%_) - (_%g7342473438%_ + (_%g7340673425%_)))))))) + (_%__kont8020880209%_ + (lambda (_%L73233%_) + (let* ((_%__stx8006180062%_ _%b72417%_) + (_%g7324973263%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8023680237%_)))) - (let ((_%__kont8023980240%_ - (lambda (_%L73511%_) - (let* ((_%g7352473532%_ - (lambda (_%g7352573528%_) + _%__stx8006180062%_)))) + (let ((_%__kont8006480065%_ + (lambda (_%L73336%_) + (let* ((_%g7334973357%_ + (lambda (_%g7335073353%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7352573528%_))) - (_%g7352373551%_ - (lambda (_%g7352573536%_) - ((lambda (_%L73539%_) - (let () - (cons (gx#datum->syntax + _%g7335073353%_))) + (_%g7334873376%_ + (lambda (_%g7335073361%_) + ((lambda (_%L73364%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - ':~) - (cons (cons (gx#datum->syntax '#f '?) - (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L73408%_ - (cons _%L73511%_ '()))) - '())) - (cons (gx#datum->syntax '#f ':) - (cons _%L73539%_ '())))))) - _%g7352573536%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7352373551%_ + '#f + ':~) + (cons (cons (gx#datum->syntax '#f '?) + (cons (cons (gx#datum->syntax '#f 'and) + (cons _%L73233%_ + (cons _%L73336%_ '()))) + '())) + (cons (gx#datum->syntax '#f ':) + (cons _%L73364%_ '()))))) + _%g7335073361%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7334873376%_ (hash-ref - _%slot-type-table72587%_ - _%slot72589%_))))) - (_%__kont8024180242%_ + _%slot-type-table72412%_ + _%slot72414%_))))) + (_%__kont8006680067%_ (lambda () - (let* ((_%g7344973457%_ - (lambda (_%g7345073453%_) + (let* ((_%g7327473282%_ + (lambda (_%g7327573278%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7345073453%_))) - (_%g7344873480%_ - (lambda (_%g7345073461%_) - ((lambda (_%L73464%_) - (let () - (cons (gx#datum->syntax + _%g7327573278%_))) + (_%g7327373305%_ + (lambda (_%g7327573286%_) + ((lambda (_%L73289%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - ':~) - (cons _%L73408%_ - (cons (gx#datum->syntax '#f ':) - (cons _%L73464%_ '())))))) - _%g7345073461%_)))) + '#f + ':~) + (cons _%L73233%_ + (cons (gx#datum->syntax '#f ':) + (cons _%L73289%_ '()))))) + _%g7327573286%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7344873480%_ + (_%g7327373305%_ (hash-ref - _%slot-type-table72587%_ - _%slot72589%_)))))) - (if (gx#stx-pair? _%__stx8023680237%_) - (let ((_%e7342973491%_ + _%slot-type-table72412%_ + _%slot72414%_)))))) + (if (gx#stx-pair? _%__stx8006180062%_) + (let ((_%e7325473316%_ (gx#syntax-e - _%__stx8023680237%_))) - (let ((_%tl7342773498%_ + _%__stx8006180062%_))) + (let ((_%tl7325273323%_ (let () (declare (not safe)) - (##cdr _%e7342973491%_))) - (_%hd7342873495%_ + (##cdr _%e7325473316%_))) + (_%hd7325373320%_ (let () (declare (not safe)) - (##car _%e7342973491%_)))) + (##car _%e7325473316%_)))) (if (gx#identifier? - _%hd7342873495%_) + _%hd7325373320%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80933_| - _%hd7342873495%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80659_| + _%hd7325373320%_) (if (gx#stx-pair? - _%tl7342773498%_) - (let ((_%e7343273501%_ + _%tl7325273323%_) + (let ((_%e7325773326%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7342773498%_))) - (let ((_%tl7343073508%_ + (gx#syntax-e _%tl7325273323%_))) + (let ((_%tl7325573333%_ (let () (declare (not safe)) - (##cdr _%e7343273501%_))) - (_%hd7343173505%_ + (##cdr _%e7325773326%_))) + (_%hd7325673330%_ (let () (declare (not safe)) - (##car _%e7343273501%_)))) - (_%__kont8023980240%_ _%hd7343173505%_))) - (_%__kont8024180242%_)) - (_%__kont8024180242%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8024180242%_)))) - (_%__kont8024180242%_)))))) - (_%__kont8038580386%_ - (lambda (_%L73129%_) - (let* ((_%__stx8017080171%_ _%b72592%_) - (_%g7314773174%_ + (##car _%e7325773326%_)))) + (_%__kont8006480065%_ _%hd7325673330%_))) + (_%__kont8006680067%_)) + (_%__kont8006680067%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8006680067%_)))) + (_%__kont8006680067%_)))))) + (_%__kont8021080211%_ + (lambda (_%L72954%_) + (let* ((_%__stx7999579996%_ _%b72417%_) + (_%g7297272999%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8017080171%_)))) - (let ((_%__kont8017380174%_ + _%__stx7999579996%_)))) + (let ((_%__kont7999879999%_ (lambda () - (let* ((_%g7333173339%_ - (lambda (_%g7333273335%_) + (let* ((_%g7315673164%_ + (lambda (_%g7315773160%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7333273335%_))) - (_%g7333073363%_ - (lambda (_%g7333273343%_) - ((lambda (_%L73346%_) - (let () - (cons (gx#datum->syntax + _%g7315773160%_))) + (_%g7315573188%_ + (lambda (_%g7315773168%_) + ((lambda (_%L73171%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - ':~) - (cons _%L73129%_ - (cons (gx#datum->syntax '#f ':?) - (cons _%L73346%_ '())))))) - _%g7333273343%_)))) + '#f + ':~) + (cons _%L72954%_ + (cons (gx#datum->syntax '#f ':?) + (cons _%L73171%_ '()))))) + _%g7315773168%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7333073363%_ + (_%g7315573188%_ (hash-ref - _%slot-type-table72587%_ - _%slot72589%_))))) - (_%__kont8017580176%_ - (lambda (_%L73264%_) - (let* ((_%g7327973287%_ - (lambda (_%g7328073283%_) + _%slot-type-table72412%_ + _%slot72414%_))))) + (_%__kont8000080001%_ + (lambda (_%L73089%_) + (let* ((_%g7310473112%_ + (lambda (_%g7310573108%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7328073283%_))) - (_%g7327873306%_ - (lambda (_%g7328073291%_) - ((lambda (_%L73294%_) - (let () - (cons (gx#datum->syntax + _%g7310573108%_))) + (_%g7310373131%_ + (lambda (_%g7310573116%_) + ((lambda (_%L73119%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - ':~) - (cons (cons (gx#datum->syntax '#f '?) - (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L73129%_ - (cons _%L73264%_ '()))) - '())) - (cons (gx#datum->syntax '#f ':?) - (cons _%L73294%_ '())))))) - _%g7328073291%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7327873306%_ + '#f + ':~) + (cons (cons (gx#datum->syntax '#f '?) + (cons (cons (gx#datum->syntax '#f 'and) + (cons _%L72954%_ + (cons _%L73089%_ '()))) + '())) + (cons (gx#datum->syntax '#f ':?) + (cons _%L73119%_ '()))))) + _%g7310573116%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7310373131%_ (hash-ref - _%slot-type-table72587%_ - _%slot72589%_))))) - (_%__kont8017780178%_ - (lambda (_%L73212%_) + _%slot-type-table72412%_ + _%slot72414%_))))) + (_%__kont8000280003%_ + (lambda (_%L73037%_) (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx68122%_ - _%slot72589%_ - _%a72591%_ - _%b72592%_))) - (_%__kont8017980180%_ + _%stx67947%_ + _%slot72414%_ + _%a72416%_ + _%b72417%_))) + (_%__kont8000480005%_ (lambda () (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx68122%_ - _%slot72589%_ - _%a72591%_ - _%b72592%_)))) - (if (gx#stx-pair? _%__stx8017080171%_) - (let ((_%e7315173317%_ + _%stx67947%_ + _%slot72414%_ + _%a72416%_ + _%b72417%_)))) + (if (gx#stx-pair? _%__stx7999579996%_) + (let ((_%e7297673142%_ (gx#syntax-e - _%__stx8017080171%_))) - (let ((_%tl7314973324%_ + _%__stx7999579996%_))) + (let ((_%tl7297473149%_ (let () (declare (not safe)) - (##cdr _%e7315173317%_))) - (_%hd7315073321%_ + (##cdr _%e7297673142%_))) + (_%hd7297573146%_ (let () (declare (not safe)) - (##car _%e7315173317%_)))) + (##car _%e7297673142%_)))) (if (gx#identifier? - _%hd7315073321%_) + _%hd7297573146%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80934_| - _%hd7315073321%_) - (_%__kont8017380174%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80660_| + _%hd7297573146%_) + (_%__kont7999879999%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80935_| - _%hd7315073321%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80661_| + _%hd7297573146%_) (if (gx#stx-pair? - _%tl7314973324%_) - (let ((_%e7315873244%_ + _%tl7297473149%_) + (let ((_%e7298373069%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7314973324%_))) - (let ((_%tl7315673251%_ + (gx#syntax-e _%tl7297473149%_))) + (let ((_%tl7298173076%_ (let () (declare (not safe)) - (##cdr _%e7315873244%_))) - (_%hd7315773248%_ + (##cdr _%e7298373069%_))) + (_%hd7298273073%_ (let () (declare (not safe)) - (##car _%e7315873244%_)))) - (if (gx#stx-pair? _%tl7315673251%_) - (let ((_%e7316173254%_ - (gx#syntax-e _%tl7315673251%_))) - (let ((_%tl7315973261%_ + (##car _%e7298373069%_)))) + (if (gx#stx-pair? _%tl7298173076%_) + (let ((_%e7298673079%_ + (gx#syntax-e _%tl7298173076%_))) + (let ((_%tl7298473086%_ (let () (declare (not safe)) - (##cdr _%e7316173254%_))) - (_%hd7316073258%_ + (##cdr _%e7298673079%_))) + (_%hd7298573083%_ (let () (declare (not safe)) - (##car _%e7316173254%_)))) - (if (gx#identifier? _%hd7316073258%_) + (##car _%e7298673079%_)))) + (if (gx#identifier? _%hd7298573083%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80936_| - _%hd7316073258%_) - (_%__kont8017580176%_ - _%hd7315773248%_) - (_%__kont8017780178%_ - _%hd7315773248%_)) - (_%__kont8017780178%_ - _%hd7315773248%_)))) - (_%__kont8017780178%_ _%hd7315773248%_)))) - (_%__kont8017980180%_)) - (_%__kont8017980180%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8017980180%_)))) - (_%__kont8017980180%_)))))) - (_%__kont8038780388%_ - (lambda (_%L72946%_) - (let* ((_%__stx8013880139%_ _%b72592%_) - (_%g7296272980%_ + |gerbil/core/contract~TypedDefinitions[1]#_g80662_| + _%hd7298573083%_) + (_%__kont8000080001%_ + _%hd7298273073%_) + (_%__kont8000280003%_ + _%hd7298273073%_)) + (_%__kont8000280003%_ + _%hd7298273073%_)))) + (_%__kont8000280003%_ _%hd7298273073%_)))) + (_%__kont8000480005%_)) + (_%__kont8000480005%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8000480005%_)))) + (_%__kont8000480005%_)))))) + (_%__kont8021280213%_ + (lambda (_%L72771%_) + (let* ((_%__stx7996379964%_ _%b72417%_) + (_%g7278772805%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8013880139%_)))) - (let ((_%__kont8014180142%_ - (lambda (_%L73069%_) - (let ((_%$e73080%_ + _%__stx7996379964%_)))) + (let ((_%__kont7996679967%_ + (lambda (_%L72894%_) + (let ((_%$e72905%_ (gx#free-identifier=? - _%L73069%_ + _%L72894%_ (gx#datum->syntax '#f ':)))) - (if _%$e73080%_ - _%$e73080%_ - (let ((_%$e73084%_ + (if _%$e72905%_ + _%$e72905%_ + (let ((_%$e72909%_ (gx#free-identifier=? - _%L73069%_ + _%L72894%_ (gx#datum->syntax '#f ':?)))) - (if _%$e73084%_ - _%$e73084%_ + (if _%$e72909%_ + _%$e72909%_ (gx#free-identifier=? - _%L73069%_ + _%L72894%_ (gx#datum->syntax '#f ':-)))))))) - (_%__kont8014380144%_ - (lambda (_%L73007%_) - (let* ((_%g7302173029%_ - (lambda (_%g7302273025%_) + (_%__kont7996879969%_ + (lambda (_%L72832%_) + (let* ((_%g7284672854%_ + (lambda (_%g7284772850%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7302273025%_))) - (_%g7302073048%_ - (lambda (_%g7302273033%_) - ((lambda (_%L73036%_) - (let () - (cons (gx#datum->syntax + _%g7284772850%_))) + (_%g7284572873%_ + (lambda (_%g7284772858%_) + ((lambda (_%L72861%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - ':~) - (cons (cons (gx#datum->syntax '#f '?) - (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L72946%_ - (cons _%L73007%_ '()))) - '())) - (cons (gx#datum->syntax '#f ':-) - (cons _%L73036%_ '())))))) - _%g7302273033%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7302073048%_ + '#f + ':~) + (cons (cons (gx#datum->syntax '#f '?) + (cons (cons (gx#datum->syntax '#f 'and) + (cons _%L72771%_ + (cons _%L72832%_ '()))) + '())) + (cons (gx#datum->syntax '#f ':-) + (cons _%L72861%_ '()))))) + _%g7284772858%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7284572873%_ (hash-ref - _%slot-type-table72587%_ - _%slot72589%_)))))) - (if (gx#stx-pair? _%__stx8013880139%_) - (let ((_%e7296773059%_ + _%slot-type-table72412%_ + _%slot72414%_)))))) + (if (gx#stx-pair? _%__stx7996379964%_) + (let ((_%e7279272884%_ (gx#syntax-e - _%__stx8013880139%_))) - (let ((_%tl7296573066%_ + _%__stx7996379964%_))) + (let ((_%tl7279072891%_ (let () (declare (not safe)) - (##cdr _%e7296773059%_))) - (_%hd7296673063%_ + (##cdr _%e7279272884%_))) + (_%hd7279172888%_ (let () (declare (not safe)) - (##car _%e7296773059%_)))) - (_%__kont8014180142%_ - _%hd7296673063%_))) + (##car _%e7279272884%_)))) + (_%__kont7996679967%_ + _%hd7279172888%_))) (let () (declare (not safe)) - (_%g7296272980%_))))))) - (_%__kont8038980390%_ - (lambda (_%L72734%_) - (let* ((_%__stx8010680107%_ _%b72592%_) - (_%g7274872766%_ + (_%g7278772805%_))))))) + (_%__kont8021480215%_ + (lambda (_%L72559%_) + (let* ((_%__stx7993179932%_ _%b72417%_) + (_%g7257372591%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8010680107%_)))) - (let ((_%__kont8010980110%_ - (lambda (_%L72849%_ _%L72851%_) - (let* ((_%g7287472882%_ - (lambda (_%g7287572878%_) + _%__stx7993179932%_)))) + (let ((_%__kont7993479935%_ + (lambda (_%L72674%_ _%L72676%_) + (let* ((_%g7269972707%_ + (lambda (_%g7270072703%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7287572878%_))) - (_%g7287372901%_ - (lambda (_%g7287572886%_) - ((lambda (_%L72889%_) - (let () - (cons (gx#datum->syntax + _%g7270072703%_))) + (_%g7269872726%_ + (lambda (_%g7270072711%_) + ((lambda (_%L72714%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - ':~) - (cons (cons (gx#datum->syntax '#f '?) - (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L72734%_ - (cons _%L72851%_ '()))) - '())) - (cons (gx#datum->syntax '#f ':) - (cons _%L72889%_ '())))))) - _%g7287572886%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7287372901%_ + '#f + ':~) + (cons (cons (gx#datum->syntax '#f '?) + (cons (cons (gx#datum->syntax '#f 'and) + (cons _%L72559%_ + (cons _%L72676%_ '()))) + '())) + (cons (gx#datum->syntax '#f ':) + (cons _%L72714%_ '()))))) + _%g7270072711%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7269872726%_ (hash-ref - _%slot-type-table72587%_ - _%slot72589%_))))) - (_%__kont8011180112%_ + _%slot-type-table72412%_ + _%slot72414%_))))) + (_%__kont7993679937%_ (lambda () - (let* ((_%g7277772785%_ - (lambda (_%g7277872781%_) + (let* ((_%g7260272610%_ + (lambda (_%g7260372606%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7277872781%_))) - (_%g7277672808%_ - (lambda (_%g7277872789%_) - ((lambda (_%L72792%_) - (let () - (cons (gx#datum->syntax + _%g7260372606%_))) + (_%g7260172633%_ + (lambda (_%g7260372614%_) + ((lambda (_%L72617%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - ':~) - (cons _%L72734%_ - (cons (gx#datum->syntax '#f ':) - (cons _%L72792%_ '())))))) - _%g7277872789%_)))) + '#f + ':~) + (cons _%L72559%_ + (cons (gx#datum->syntax '#f ':) + (cons _%L72617%_ '()))))) + _%g7260372614%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7277672808%_ + (_%g7260172633%_ (hash-ref - _%slot-type-table72587%_ - _%slot72589%_)))))) - (let ((_%__match8013580136%_ - (lambda (_%e7275472819%_ - _%hd7275372823%_ - _%tl7275272826%_ - _%e7275772829%_ - _%hd7275672833%_ - _%tl7275572836%_ - _%e7276072839%_ - _%hd7275972843%_ - _%tl7275872846%_) - (let ((_%L72849%_ - _%hd7275972843%_) - (_%L72851%_ - _%hd7275672833%_)) + _%slot-type-table72412%_ + _%slot72414%_)))))) + (let ((_%__match7996079961%_ + (lambda (_%e7257972644%_ + _%hd7257872648%_ + _%tl7257772651%_ + _%e7258272654%_ + _%hd7258172658%_ + _%tl7258072661%_ + _%e7258572664%_ + _%hd7258472668%_ + _%tl7258372671%_) + (let ((_%L72674%_ + _%hd7258472668%_) + (_%L72676%_ + _%hd7258172658%_)) (if (or (gx#free-identifier=? - _%L72849%_ + _%L72674%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L72849%_ + _%L72674%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L72849%_ + _%L72674%_ (gx#datum->syntax '#f ':-))) - (_%__kont8010980110%_ - _%L72849%_ - _%L72851%_) - (_%__kont8011180112%_)))))) - (if (gx#stx-pair? _%__stx8010680107%_) - (let ((_%e7275472819%_ + (_%__kont7993479935%_ + _%L72674%_ + _%L72676%_) + (_%__kont7993679937%_)))))) + (if (gx#stx-pair? _%__stx7993179932%_) + (let ((_%e7257972644%_ (gx#syntax-e - _%__stx8010680107%_))) - (let ((_%tl7275272826%_ + _%__stx7993179932%_))) + (let ((_%tl7257772651%_ (let () (declare (not safe)) - (##cdr _%e7275472819%_))) - (_%hd7275372823%_ + (##cdr _%e7257972644%_))) + (_%hd7257872648%_ (let () (declare (not safe)) - (##car _%e7275472819%_)))) + (##car _%e7257972644%_)))) (if (gx#identifier? - _%hd7275372823%_) + _%hd7257872648%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80937_| - _%hd7275372823%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80663_| + _%hd7257872648%_) (if (gx#stx-pair? - _%tl7275272826%_) - (let ((_%e7275772829%_ + _%tl7257772651%_) + (let ((_%e7258272654%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7275272826%_))) - (let ((_%tl7275572836%_ + (gx#syntax-e _%tl7257772651%_))) + (let ((_%tl7258072661%_ (let () (declare (not safe)) - (##cdr _%e7275772829%_))) - (_%hd7275672833%_ + (##cdr _%e7258272654%_))) + (_%hd7258172658%_ (let () (declare (not safe)) - (##car _%e7275772829%_)))) - (if (gx#stx-pair? _%tl7275572836%_) - (let ((_%e7276072839%_ - (gx#syntax-e _%tl7275572836%_))) - (let ((_%tl7275872846%_ + (##car _%e7258272654%_)))) + (if (gx#stx-pair? _%tl7258072661%_) + (let ((_%e7258572664%_ + (gx#syntax-e _%tl7258072661%_))) + (let ((_%tl7258372671%_ (let () (declare (not safe)) - (##cdr _%e7276072839%_))) - (_%hd7275972843%_ + (##cdr _%e7258572664%_))) + (_%hd7258472668%_ (let () (declare (not safe)) - (##car _%e7276072839%_)))) - (_%__match8013580136%_ - _%e7275472819%_ - _%hd7275372823%_ - _%tl7275272826%_ - _%e7275772829%_ - _%hd7275672833%_ - _%tl7275572836%_ - _%e7276072839%_ - _%hd7275972843%_ - _%tl7275872846%_))) - (_%__kont8011180112%_)))) - (_%__kont8011180112%_)) - (_%__kont8011180112%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8011180112%_)))) - (_%__kont8011180112%_)))))))) - (if (gx#stx-pair? _%__stx8037480375%_) - (let ((_%e7265873962%_ - (gx#syntax-e _%__stx8037480375%_))) - (let ((_%tl7265673969%_ + (##car _%e7258572664%_)))) + (_%__match7996079961%_ + _%e7257972644%_ + _%hd7257872648%_ + _%tl7257772651%_ + _%e7258272654%_ + _%hd7258172658%_ + _%tl7258072661%_ + _%e7258572664%_ + _%hd7258472668%_ + _%tl7258372671%_))) + (_%__kont7993679937%_)))) + (_%__kont7993679937%_)) + (_%__kont7993679937%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7993679937%_)))) + (_%__kont7993679937%_)))))))) + (if (gx#stx-pair? _%__stx8019980200%_) + (let ((_%e7248373787%_ + (gx#syntax-e _%__stx8019980200%_))) + (let ((_%tl7248173794%_ (let () (declare (not safe)) - (##cdr _%e7265873962%_))) - (_%hd7265773966%_ + (##cdr _%e7248373787%_))) + (_%hd7248273791%_ (let () (declare (not safe)) - (##car _%e7265873962%_)))) - (if (gx#identifier? _%hd7265773966%_) + (##car _%e7248373787%_)))) + (if (gx#identifier? _%hd7248273791%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80938_| - _%hd7265773966%_) - (_%__kont8037780378%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80664_| + _%hd7248273791%_) + (_%__kont8020280203%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80939_| - _%hd7265773966%_) - (_%__kont8037980380%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80665_| + _%hd7248273791%_) + (_%__kont8020480205%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80940_| - _%hd7265773966%_) - (_%__kont8038180382%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80666_| + _%hd7248273791%_) + (_%__kont8020680207%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80941_| - _%hd7265773966%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80667_| + _%hd7248273791%_) (if (gx#stx-pair? - _%tl7265673969%_) - (let ((_%e7267173388%_ + _%tl7248173794%_) + (let ((_%e7249673213%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7265673969%_))) - (let ((_%tl7266973395%_ + (gx#syntax-e _%tl7248173794%_))) + (let ((_%tl7249473220%_ (let () (declare (not safe)) - (##cdr _%e7267173388%_))) - (_%hd7267073392%_ + (##cdr _%e7249673213%_))) + (_%hd7249573217%_ (let () (declare (not safe)) - (##car _%e7267173388%_)))) - (if (gx#stx-pair? _%tl7266973395%_) - (let ((_%e7267473398%_ - (gx#syntax-e _%tl7266973395%_))) - (let ((_%tl7267273405%_ + (##car _%e7249673213%_)))) + (if (gx#stx-pair? _%tl7249473220%_) + (let ((_%e7249973223%_ + (gx#syntax-e _%tl7249473220%_))) + (let ((_%tl7249773230%_ (let () (declare (not safe)) - (##cdr _%e7267473398%_))) - (_%hd7267373402%_ + (##cdr _%e7249973223%_))) + (_%hd7249873227%_ (let () (declare (not safe)) - (##car _%e7267473398%_)))) - (if (gx#identifier? _%hd7267373402%_) + (##car _%e7249973223%_)))) + (if (gx#identifier? _%hd7249873227%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80942_| - _%hd7267373402%_) - (_%__kont8038380384%_ _%hd7267073392%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80668_| + _%hd7249873227%_) + (_%__kont8020880209%_ _%hd7249573217%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80943_| - _%hd7267373402%_) - (_%__kont8038580386%_ - _%hd7267073392%_) + |gerbil/core/contract~TypedDefinitions[1]#_g80669_| + _%hd7249873227%_) + (_%__kont8021080211%_ + _%hd7249573217%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g80944_| - _%hd7267373402%_) - (_%__kont8038780388%_ - _%hd7267073392%_) - (_%__kont8038980390%_ - _%hd7267073392%_)))) - (_%__kont8038980390%_ _%hd7267073392%_)))) - (_%__kont8038980390%_ _%hd7267073392%_)))) - (let () (declare (not safe)) (_%g7265472707%_))) - (let () (declare (not safe)) (_%g7265472707%_)))))) + |gerbil/core/contract~TypedDefinitions[1]#_g80670_| + _%hd7249873227%_) + (_%__kont8021280213%_ + _%hd7249573217%_) + (_%__kont8021480215%_ + _%hd7249573217%_)))) + (_%__kont8021480215%_ _%hd7249573217%_)))) + (_%__kont8021480215%_ _%hd7249573217%_)))) + (let () (declare (not safe)) (_%g7247972532%_))) + (let () (declare (not safe)) (_%g7247972532%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g7265472707%_))))) + (_%g7247972532%_))))) (let () (declare (not safe)) - (_%g7265472707%_))))))))) - (_%get-slot-defaults68141%_ - (lambda (_%slots72573%_ _%mixin-slots72575%_ _%super72576%_) - (_%get-slot-table68139%_ - _%slots72573%_ - _%mixin-slots72575%_ - _%super72576%_ - _%slot-default68136%_ + (_%g7247972532%_))))))))) + (_%get-slot-defaults67966%_ + (lambda (_%slots72398%_ _%mixin-slots72400%_ _%super72401%_) + (_%get-slot-table67964%_ + _%slots72398%_ + _%mixin-slots72400%_ + _%super72401%_ + _%slot-default67961%_ |gerbil/core/contract~Using[1]#!class-slot-default| - (lambda (_%slot72578%_ _%a72580%_ _%b72581%_) - _%a72580%_)))) - (_%update-slot-types!68142%_ - (lambda (_%slots72543%_ _%slot-type-table72545%_) + (lambda (_%slot72403%_ _%a72405%_ _%b72406%_) + _%a72405%_)))) + (_%update-slot-types!67967%_ + (lambda (_%slots72368%_ _%slot-type-table72370%_) (for-each - (lambda (_%slot-spec72547%_) - (let* ((_%slot72550%_ - (_%slot-name68128%_ _%slot-spec72547%_)) - (_%slot-type7255272554%_ - (_%slot-contract-type68132%_ - _%slot-spec72547%_))) - (if _%slot-type7255272554%_ - (let* ((_%slot-type72558%_ - _%slot-type7255272554%_) - (_%$e72561%_ + (lambda (_%slot-spec72372%_) + (let* ((_%slot72375%_ + (_%slot-name67953%_ _%slot-spec72372%_)) + (_%slot-type7237772379%_ + (_%slot-contract-type67957%_ + _%slot-spec72372%_))) + (if _%slot-type7237772379%_ + (let* ((_%slot-type72383%_ + _%slot-type7237772379%_) + (_%$e72386%_ (hash-get - _%slot-type-table72545%_ - _%slot72550%_))) - (if _%$e72561%_ - ((lambda (_%other-slot-type72565%_) - (let ((_%slot-type72568%_ - (_%infer-slot-type68137%_ - _%slot72550%_ - _%other-slot-type72565%_ - _%slot-type72558%_))) + _%slot-type-table72370%_ + _%slot72375%_))) + (if _%$e72386%_ + ((lambda (_%other-slot-type72390%_) + (let ((_%slot-type72393%_ + (_%infer-slot-type67962%_ + _%slot72375%_ + _%other-slot-type72390%_ + _%slot-type72383%_))) (hash-put! - _%slot-type-table72545%_ - _%slot72550%_ - _%slot-type72568%_))) - _%$e72561%_) - (let () - (hash-put! - _%slot-type-table72545%_ - _%slot72550%_ - _%slot-type72558%_)))) + _%slot-type-table72370%_ + _%slot72375%_ + _%slot-type72393%_))) + _%$e72386%_) + (hash-put! + _%slot-type-table72370%_ + _%slot72375%_ + _%slot-type72383%_))) '#f))) - _%slots72543%_))) - (_%syntax-local-value/context68143%_ - (lambda (_%id72537%_) + _%slots72368%_))) + (_%syntax-local-value/context67968%_ + (lambda (_%id72362%_) (gx#syntax-local-value - _%id72537%_ - (lambda (_%id72540%_) + _%id72362%_ + (lambda (_%id72365%_) (gx#raise-syntax-error '#f '"not a class meta type binding" - _%stx68122%_ - _%id72540%_))))) - (_%order-slots68144%_ - (lambda (_%slots72468%_ _%super72470%_) - (let ((_g80945_ + _%stx67947%_ + _%id72365%_))))) + (_%order-slots67969%_ + (lambda (_%slots72293%_ _%super72295%_) + (let ((_g80671_ (c4-linearize '() - _%super72470%_ + _%super72295%_ 'get-precedence-list: - (lambda (_%klass-id72472%_) - (cons _%klass-id72472%_ - (let ((__tmp80947 - (_%syntax-local-value/context68143%_ - _%klass-id72472%_))) + (lambda (_%klass-id72297%_) + (cons _%klass-id72297%_ + (let ((__tmp80673 + (_%syntax-local-value/context67968%_ + _%klass-id72297%_))) (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - __tmp80947)))) + __tmp80673)))) 'struct: - (lambda (_%klass-id72475%_) - (let ((__obj80581 - (_%syntax-local-value/context68143%_ - _%klass-id72475%_))) + (lambda (_%klass-id72300%_) + (let ((__obj80406 + (_%syntax-local-value/context67968%_ + _%klass-id72300%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80581 + __obj80406 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80581 + __obj80406 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80581 + __obj80406 'struct?)))) 'eq: gx#free-identifier=? 'get-name: gx#stx-e))) (begin - (let ((_g80946_ + (let ((_g80672_ (let () (declare (not safe)) - (if (##values? _g80945_) - (##vector-length _g80945_) + (if (##values? _g80671_) + (##vector-length _g80671_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80946_ 2))) - (error "Context expects 2 values" _g80946_))) - (let ((_%precedence-list72478%_ + (##fx= _g80672_ 2))) + (error "Context expects 2 values" _g80672_))) + (let ((_%precedence-list72303%_ (let () (declare (not safe)) - (##vector-ref _g80945_ 0))) - (_%base-struct72480%_ + (##vector-ref _g80671_ 0))) + (_%base-struct72305%_ (let () (declare (not safe)) - (##vector-ref _g80945_ 1)))) - (let* ((_%base-fields72494%_ - (if _%base-struct72480%_ - (let* ((_%klass72482%_ + (##vector-ref _g80671_ 1)))) + (let* ((_%base-fields72319%_ + (if _%base-struct72305%_ + (let* ((_%klass72307%_ (gx#syntax-local-value - _%base-struct72480%_)) - (_%$e72485%_ - (let ((__obj80582 - _%klass72482%_)) + _%base-struct72305%_)) + (_%$e72310%_ + (let ((__obj80407 + _%klass72307%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80582 + __obj80407 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80582 + __obj80407 '6 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80582 + __obj80407 'ordered-slots))))) - (if _%$e72485%_ - _%$e72485%_ - (let ((_%ordered72491%_ - (_%order-slots68144%_ - (let ((__obj80583 - _%klass72482%_)) + (if _%$e72310%_ + _%$e72310%_ + (let ((_%ordered72316%_ + (_%order-slots67969%_ + (let ((__obj80408 + _%klass72307%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80583 + __obj80408 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80583 + __obj80408 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80583 + __obj80408 'slots))) - (let ((__obj80584 - _%klass72482%_)) + (let ((__obj80409 + _%klass72307%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80584 + __obj80409 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80584 + __obj80409 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80584 + __obj80409 'super)))))) - (let ((__obj80585 - _%klass72482%_)) + (let ((__obj80410 + _%klass72307%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80585 + __obj80410 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj80585 - _%ordered72491%_ + __obj80410 + _%ordered72316%_ '6 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj80585 + __obj80410 'ordered-slots - _%ordered72491%_))) - _%ordered72491%_))) + _%ordered72316%_))) + _%ordered72316%_))) '())) - (_%r-fields72497%_ - (reverse _%base-fields72494%_)) - (_%seen-slots72508%_ - (let ((_%tab72500%_ (make-hash-table-eq))) + (_%r-fields72322%_ + (reverse _%base-fields72319%_)) + (_%seen-slots72333%_ + (let ((_%tab72325%_ (make-hash-table-eq))) (for-each - (lambda (_%g7250272504%_) + (lambda (_%g7232772329%_) (hash-put! - _%tab72500%_ - _%g7250272504%_ + _%tab72325%_ + _%g7232772329%_ '#t)) - _%base-fields72494%_) - _%tab72500%_)) - (_%process-slot72514%_ - (lambda (_%slot72511%_) + _%base-fields72319%_) + _%tab72325%_)) + (_%process-slot72339%_ + (lambda (_%slot72336%_) (if (hash-get - _%seen-slots72508%_ - _%slot72511%_) + _%seen-slots72333%_ + _%slot72336%_) '#!void (begin (hash-put! - _%seen-slots72508%_ - _%slot72511%_ + _%seen-slots72333%_ + _%slot72336%_ '#t) - (set! _%r-fields72497%_ - (cons _%slot72511%_ - _%r-fields72497%_))))))) + (set! _%r-fields72322%_ + (cons _%slot72336%_ + _%r-fields72322%_))))))) (for-each - (lambda (_%mixin72519%_) - (let ((_%klass72522%_ - (gx#syntax-local-value _%mixin72519%_))) - (if (let ((__obj80586 _%klass72522%_)) + (lambda (_%mixin72344%_) + (let ((_%klass72347%_ + (gx#syntax-local-value _%mixin72344%_))) + (if (let ((__obj80411 _%klass72347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80586 + __obj80411 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80586 + __obj80411 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80586 + __obj80411 'struct?))) '#!void - (let ((_%$e72525%_ - (let ((__obj80587 _%klass72522%_)) + (let ((_%$e72350%_ + (let ((__obj80412 _%klass72347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80587 + __obj80412 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80587 + __obj80412 '6 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80587 + __obj80412 'ordered-slots))))) - (if _%$e72525%_ - ((lambda (_%ordered72529%_) + (if _%$e72350%_ + ((lambda (_%ordered72354%_) (for-each - _%process-slot72514%_ - _%ordered72529%_)) - _%$e72525%_) - (let ((_%ordered72534%_ - (_%order-slots68144%_ - (let ((__obj80588 - _%klass72522%_)) + _%process-slot72339%_ + _%ordered72354%_)) + _%$e72350%_) + (let ((_%ordered72359%_ + (_%order-slots67969%_ + (let ((__obj80413 + _%klass72347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80588 + __obj80413 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80588 + __obj80413 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80588 + __obj80413 'slots))) - (let ((__obj80589 - _%klass72522%_)) + (let ((__obj80414 + _%klass72347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80589 + __obj80414 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80589 + __obj80414 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80589 + __obj80414 'super)))))) - (let ((__obj80590 _%klass72522%_)) + (let ((__obj80415 _%klass72347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80590 + __obj80415 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj80590 - _%ordered72534%_ + __obj80415 + _%ordered72359%_ '6 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj80590 + __obj80415 'ordered-slots - _%ordered72534%_))) + _%ordered72359%_))) (for-each - _%process-slot72514%_ - _%ordered72534%_))))))) - _%precedence-list72478%_) - (for-each _%process-slot72514%_ _%slots72468%_) - (reverse _%r-fields72497%_))))))) - (_%wrap68145%_ - (lambda (_%e-stx72465%_) + _%process-slot72339%_ + _%ordered72359%_))))))) + _%precedence-list72303%_) + (for-each _%process-slot72339%_ _%slots72293%_) + (reverse _%r-fields72322%_))))))) + (_%wrap67970%_ + (lambda (_%e-stx72290%_) (gx#stx-wrap-source - _%e-stx72465%_ - (gx#stx-source _%stx68122%_)))) - (_%generate-defclass68146%_ - (lambda (_%id68280%_ - _%super-ref68282%_ - _%slots68283%_ - _%body68284%_) - (letrec ((_%make-id68286%_ - (lambda _%args72462%_ + _%e-stx72290%_ + (gx#stx-source _%stx67947%_)))) + (_%generate-defclass67971%_ + (lambda (_%id68105%_ + _%super-ref68107%_ + _%slots68108%_ + _%body68109%_) + (letrec ((_%make-id68111%_ + (lambda _%args72287%_ (apply gx#stx-identifier - _%id68280%_ - _%args72462%_)))) + _%id68105%_ + _%args72287%_)))) (gx#check-duplicate-identifiers - (map _%slot-name68128%_ _%slots68283%_) - _%stx68122%_) + (map _%slot-name67953%_ _%slots68108%_) + _%stx67947%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#check-signature-spec!__%| '#f absent-value '#f - _%stx68122%_ - _%slots68283%_)) - (_%check-typedef-body!68127%_ _%body68284%_) - (let ((_g80948_ - (_%get-mixin-slots68138%_ _%super-ref68282%_))) + _%stx67947%_ + _%slots68108%_)) + (_%check-typedef-body!67952%_ _%body68109%_) + (let ((_g80674_ + (_%get-mixin-slots67963%_ _%super-ref68107%_))) (begin - (let ((_g80949_ + (let ((_g80675_ (let () (declare (not safe)) - (if (##values? _g80948_) - (##vector-length _g80948_) + (if (##values? _g80674_) + (##vector-length _g80674_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80949_ 2))) - (error "Context expects 2 values" _g80949_))) - (let ((_%mixin-slots68289%_ + (##fx= _g80675_ 2))) + (error "Context expects 2 values" _g80675_))) + (let ((_%mixin-slots68114%_ (let () (declare (not safe)) - (##vector-ref _g80948_ 0))) - (_%slot-type-table68291%_ + (##vector-ref _g80674_ 0))) + (_%slot-type-table68116%_ (let () (declare (not safe)) - (##vector-ref _g80948_ 1)))) - (let* ((_%slot-contract-table68293%_ - (_%get-slot-contracts68140%_ - _%slots68283%_ - _%mixin-slots68289%_ - _%super-ref68282%_ - _%slot-type-table68291%_)) - (_%slot-default-table68296%_ - (_%get-slot-defaults68141%_ - _%slots68283%_ - _%mixin-slots68289%_ - _%super-ref68282%_)) - (_%ordered-slots68299%_ - (_%order-slots68144%_ - (map _%slot-name68128%_ _%slots68283%_) - _%super-ref68282%_))) - (_%update-slot-types!68142%_ - _%slots68283%_ - _%slot-type-table68291%_) - (let* ((_%slots68304%_ - (map _%slot-name68128%_ _%slots68283%_)) - (_%mixin-slots68310%_ - (filter (lambda (_%slot68307%_) - (let ((__tmp80950 - (memq _%slot68307%_ - _%slots68304%_))) - (declare (not safe)) - (not __tmp80950))) - _%mixin-slots68289%_)) - (_%name68313%_ - (symbol->string (gx#stx-e _%id68280%_))) - (_%super68316%_ + (##vector-ref _g80674_ 1)))) + (let* ((_%slot-contract-table68118%_ + (_%get-slot-contracts67965%_ + _%slots68108%_ + _%mixin-slots68114%_ + _%super-ref68107%_ + _%slot-type-table68116%_)) + (_%slot-default-table68121%_ + (_%get-slot-defaults67966%_ + _%slots68108%_ + _%mixin-slots68114%_ + _%super-ref68107%_)) + (_%ordered-slots68124%_ + (_%order-slots67969%_ + (map _%slot-name67953%_ _%slots68108%_) + _%super-ref68107%_))) + (_%update-slot-types!67967%_ + _%slots68108%_ + _%slot-type-table68116%_) + (let* ((_%slots68129%_ + (map _%slot-name67953%_ _%slots68108%_)) + (_%mixin-slots68135%_ + (filter (lambda (_%slot68132%_) + (not (memq _%slot68132%_ + _%slots68129%_))) + _%mixin-slots68114%_)) + (_%name68138%_ + (symbol->string (gx#stx-e _%id68105%_))) + (_%super68141%_ (map gx#syntax-local-value - _%super-ref68282%_)) - (_%struct?68319%_ - (gx#stx-getq 'struct: _%body68284%_)) - (_%g6832268330%_ - (lambda (_%g6832368326%_) + _%super-ref68107%_)) + (_%struct?68144%_ + (gx#stx-getq 'struct: _%body68109%_)) + (_%g6814768155%_ + (lambda (_%g6814868151%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6832368326%_))) - (_%g6832172458%_ - (lambda (_%g6832368334%_) - ((lambda (_%L68337%_) - (let () - (let* ((_%g6836068368%_ - (lambda (_%g6836168364%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6836168364%_))) - (_%g6835972454%_ - (lambda (_%g6836168372%_) - ((lambda (_%L68375%_) - (let () - (let* ((_%g6838868396%_ + _%g6814868151%_))) + (_%g6814672283%_ + (lambda (_%g6814868159%_) + ((lambda (_%L68162%_) + (let* ((_%g6818568193%_ + (lambda (_%g6818668189%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6818668189%_))) + (_%g6818472279%_ + (lambda (_%g6818668197%_) + ((lambda (_%L68200%_) + (let* ((_%g6821368221%_ + (lambda (_%g6821468217%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6821468217%_))) + (_%g6821272275%_ + (lambda (_%g6821468225%_) + ((lambda (_%L68228%_) + (let* ((_%g6824168249%_ + (lambda (_%g6824268245%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6824268245%_))) + (_%g6824072271%_ + (lambda (_%g6824268253%_) + ((lambda (_%L68256%_) + (let* ((_%g6826968277%_ + (lambda (_%g6827068273%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6827068273%_))) + (_%g6826872267%_ + (lambda (_%g6827068281%_) + ((lambda (_%L68284%_) + (let* ((_%g6829768314%_ + (lambda (_%g6829868310%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6829868310%_))) + (_%g6829672263%_ + (lambda (_%g6829868318%_) + (if (gx#stx-pair/null? _%g6829868318%_) + (let ((_g80676_ + (gx#syntax-split-splice + _%g6829868318%_ + '0))) + (begin + (let ((_g80677_ + (let () + (declare (not safe)) + (if (##values? _g80676_) + (##vector-length _g80676_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g80677_ 2))) + (error "Context expects 2 values" + _g80677_))) + (let ((_%target6830068321%_ + (let () + (declare (not safe)) + (##vector-ref _g80676_ 0))) + (_%tl6830268324%_ + (let () + (declare (not safe)) + (##vector-ref _g80676_ 1)))) + (if (gx#stx-null? _%tl6830268324%_) + (letrec ((_%loop6830368327%_ + (lambda (_%hd6830168331%_ + _%slot6830768334%_) + (if (gx#stx-pair? + _%hd6830168331%_) + (let ((_%e6830468337%_ + (gx#syntax-e + _%hd6830168331%_))) + (let ((_%lp-hd6830568341%_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6838968392%_) + (declare (not safe)) + (##car _%e6830468337%_))) + (_%lp-tl6830668344%_ + (let () (declare (not safe)) (##cdr _%e6830468337%_)))) + (_%loop6830368327%_ + _%lp-tl6830668344%_ + (cons _%lp-hd6830568341%_ _%slot6830768334%_)))) + (let ((_%slot6830868347%_ (reverse _%slot6830768334%_))) + ((lambda (_%L68351%_) + (let* ((_%g6836868385%_ + (lambda (_%g6836968381%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6838968392%_))) - (_%g6838772450%_ - (lambda (_%g6838968400%_) - ((lambda (_%L68403%_) - (let () - (let* ((_%g6841668424%_ - (lambda (_%g6841768420%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6841768420%_))) - (_%g6841572446%_ - (lambda (_%g6841768428%_) - ((lambda (_%L68431%_) - (let () - (let* ((_%g6844468452%_ - (lambda (_%g6844568448%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6844568448%_))) - (_%g6844372442%_ - (lambda (_%g6844568456%_) - ((lambda (_%L68459%_) - (let () + _%g6836968381%_))) + (_%g6836772259%_ + (lambda (_%g6836968389%_) + (if (gx#stx-pair/null? _%g6836968389%_) + (let ((_g80678_ + (gx#syntax-split-splice + _%g6836968389%_ + '0))) + (begin + (let ((_g80679_ + (let () + (declare (not safe)) + (if (##values? _g80678_) + (##vector-length _g80678_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g80679_ 2))) + (error "Context expects 2 values" + _g80679_))) + (let ((_%target6837168392%_ + (let () + (declare (not safe)) + (##vector-ref _g80678_ 0))) + (_%tl6837368395%_ + (let () + (declare (not safe)) + (##vector-ref _g80678_ 1)))) + (if (gx#stx-null? _%tl6837368395%_) + (letrec ((_%loop6837468398%_ + (lambda (_%hd6837268402%_ + _%ordered-slot6837868405%_) + (if (gx#stx-pair? + _%hd6837268402%_) + (let ((_%e6837568408%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g6847268489%_ - (lambda (_%g6847368485%_) + (gx#syntax-e _%hd6837268402%_))) + (let ((_%lp-hd6837668412%_ + (let () + (declare (not safe)) + (##car _%e6837568408%_))) + (_%lp-tl6837768415%_ + (let () + (declare (not safe)) + (##cdr _%e6837568408%_)))) + (_%loop6837468398%_ + _%lp-tl6837768415%_ + (cons _%lp-hd6837668412%_ + _%ordered-slot6837868405%_)))) + (let ((_%ordered-slot6837968418%_ + (reverse _%ordered-slot6837868405%_))) + ((lambda (_%L68422%_) + (let* ((_%g6843968456%_ + (lambda (_%g6844068452%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6847368485%_))) - (_%g6847172438%_ - (lambda (_%g6847368493%_) - (if (gx#stx-pair/null? _%g6847368493%_) - (let ((_g80951_ + _%g6844068452%_))) + (_%g6843872250%_ + (lambda (_%g6844068460%_) + (if (gx#stx-pair/null? _%g6844068460%_) + (let ((_g80680_ (gx#syntax-split-splice - _%g6847368493%_ + _%g6844068460%_ '0))) (begin - (let ((_g80952_ + (let ((_g80681_ (let () (declare (not safe)) - (if (##values? _g80951_) + (if (##values? _g80680_) (##vector-length - _g80951_) + _g80680_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80952_ 2))) + (##fx= _g80681_ 2))) (error "Context expects 2 values" - _g80952_))) - (let ((_%target6847568496%_ + _g80681_))) + (let ((_%target6844268463%_ (let () (declare (not safe)) - (##vector-ref _g80951_ 0))) - (_%tl6847768499%_ + (##vector-ref _g80680_ 0))) + (_%tl6844468466%_ (let () (declare (not safe)) (##vector-ref - _g80951_ + _g80680_ 1)))) (if (gx#stx-null? - _%tl6847768499%_) - (letrec ((_%loop6847868502%_ - (lambda (_%hd6847668506%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot6848268509%_) - (if (gx#stx-pair? _%hd6847668506%_) - (let ((_%e6847968512%_ - (gx#syntax-e _%hd6847668506%_))) - (let ((_%lp-hd6848068516%_ + _%tl6844468466%_) + (letrec ((_%loop6844568469%_ + (lambda (_%hd6844368473%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%getf6844968476%_) + (if (gx#stx-pair? _%hd6844368473%_) + (let ((_%e6844668479%_ + (gx#syntax-e _%hd6844368473%_))) + (let ((_%lp-hd6844768483%_ (let () (declare (not safe)) - (##car _%e6847968512%_))) - (_%lp-tl6848168519%_ + (##car _%e6844668479%_))) + (_%lp-tl6844868486%_ (let () (declare (not safe)) - (##cdr _%e6847968512%_)))) - (_%loop6847868502%_ - _%lp-tl6848168519%_ - (cons _%lp-hd6848068516%_ _%slot6848268509%_)))) - (let ((_%slot6848368522%_ - (reverse _%slot6848268509%_))) - ((lambda (_%L68526%_) - (let () - (let* ((_%g6854368560%_ - (lambda (_%g6854468556%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6854468556%_))) - (_%g6854272434%_ - (lambda (_%g6854468564%_) - (if (gx#stx-pair/null? - _%g6854468564%_) - (let ((_g80953_ - (gx#syntax-split-splice - _%g6854468564%_ - '0))) - (begin - (let ((_g80954_ - (let () - (declare (not safe)) - (if (##values? - _g80953_) - (##vector-length - _g80953_) - 1)))) - (if (not (let () - (declare + (##cdr _%e6844668479%_)))) + (_%loop6844568469%_ + _%lp-tl6844868486%_ + (cons _%lp-hd6844768483%_ _%getf6844968476%_)))) + (let ((_%getf6845068489%_ + (reverse _%getf6844968476%_))) + ((lambda (_%L68493%_) + (let* ((_%g6851068527%_ + (lambda (_%g6851168523%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6851168523%_))) + (_%g6850972241%_ + (lambda (_%g6851168531%_) + (if (gx#stx-pair/null? _%g6851168531%_) + (let ((_g80682_ + (gx#syntax-split-splice + _%g6851168531%_ + '0))) + (begin + (let ((_g80683_ + (let () + (declare (not safe)) + (if (##values? + _g80682_) + (##vector-length + _g80682_) + 1)))) + (if (not (let () + (declare + (not safe)) + (##fx= _g80683_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##fx= _g80954_ 2))) - (error "Context expects 2 values" _g80954_))) + 2))) + (error "Context expects 2 values" _g80683_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6854668567%_ - (let () - (declare (not safe)) - (##vector-ref - _g80953_ - 0))) - (_%tl6854868570%_ - (let () - (declare (not safe)) - (##vector-ref - _g80953_ - 1)))) - (if (gx#stx-null? - _%tl6854868570%_) - (letrec ((_%loop6854968573%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6854768577%_ _%ordered-slot6855368580%_) - (if (gx#stx-pair? _%hd6854768577%_) - (let ((_%e6855068583%_ - (gx#syntax-e _%hd6854768577%_))) - (let ((_%lp-hd6855168587%_ - (let () - (declare (not safe)) - (##car _%e6855068583%_))) - (_%lp-tl6855268590%_ - (let () - (declare (not safe)) - (##cdr _%e6855068583%_)))) - (_%loop6854968573%_ - _%lp-tl6855268590%_ - (cons _%lp-hd6855168587%_ - _%ordered-slot6855368580%_)))) - (let ((_%ordered-slot6855468593%_ - (reverse _%ordered-slot6855368580%_))) - ((lambda (_%L68597%_) - (let () - (let* ((_%g6861468631%_ - (lambda (_%g6861568627%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6861568627%_))) - (_%g6861372425%_ - (lambda (_%g6861568635%_) - (if (gx#stx-pair/null? - _%g6861568635%_) - (let ((_g80955_ - (gx#syntax-split-splice - _%g6861568635%_ - '0))) - (begin - (let ((_g80956_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (if (##values? _g80955_) - (##vector-length _g80955_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g80956_ 2))) - (error "Context expects 2 values" _g80956_))) - (let ((_%target6861768638%_ - (let () - (declare (not safe)) - (##vector-ref _g80955_ 0))) - (_%tl6861968641%_ - (let () - (declare (not safe)) - (##vector-ref _g80955_ 1)))) - (if (gx#stx-null? _%tl6861968641%_) - (letrec ((_%loop6862068644%_ - (lambda (_%hd6861868648%_ _%getf6862468651%_) - (if (gx#stx-pair? _%hd6861868648%_) - (let ((_%e6862168654%_ - (gx#syntax-e _%hd6861868648%_))) - (let ((_%lp-hd6862268658%_ - (let () - (declare (not safe)) - (##car _%e6862168654%_))) - (_%lp-tl6862368661%_ - (let () - (declare (not safe)) - (##cdr _%e6862168654%_)))) - (_%loop6862068644%_ - _%lp-tl6862368661%_ - (cons _%lp-hd6862268658%_ - _%getf6862468651%_)))) - (let ((_%getf6862568664%_ - (reverse _%getf6862468651%_))) - ((lambda (_%L68668%_) - (let () - (let* ((_%g6868568702%_ - (lambda (_%g6868668698%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6868668698%_))) - (_%g6868472416%_ - (lambda (_%g6868668706%_) - (if (gx#stx-pair/null? - _%g6868668706%_) - (let ((_g80957_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g6868668706%_ '0))) - (begin - (let ((_g80958_ - (let () - (declare (not safe)) - (if (##values? _g80957_) - (##vector-length _g80957_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g80958_ 2))) - (error "Context expects 2 values" _g80958_))) - (let ((_%target6868868709%_ - (let () - (declare (not safe)) - (##vector-ref _g80957_ 0))) - (_%tl6869068712%_ - (let () - (declare (not safe)) - (##vector-ref _g80957_ 1)))) - (if (gx#stx-null? _%tl6869068712%_) - (letrec ((_%loop6869168715%_ - (lambda (_%hd6868968719%_ - _%setf6869568722%_) - (if (gx#stx-pair? _%hd6868968719%_) - (let ((_%e6869268725%_ - (gx#syntax-e - _%hd6868968719%_))) - (let ((_%lp-hd6869368729%_ + (let ((_%target6851368534%_ (let () (declare (not safe)) - (##car _%e6869268725%_))) - (_%lp-tl6869468732%_ + (##vector-ref + _g80682_ + 0))) + (_%tl6851568537%_ (let () (declare (not safe)) - (##cdr _%e6869268725%_)))) - (_%loop6869168715%_ - _%lp-tl6869468732%_ - (cons _%lp-hd6869368729%_ - _%setf6869568722%_)))) - (let ((_%setf6869668735%_ - (reverse _%setf6869568722%_))) - ((lambda (_%L68739%_) - (let () - (let* ((_%g6875668773%_ - (lambda (_%g6875768769%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6875768769%_))) - (_%g6875572407%_ - (lambda (_%g6875768777%_) - (if (gx#stx-pair/null? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6875768777%_) - (let ((_g80959_ - (gx#syntax-split-splice _%g6875768777%_ '0))) - (begin - (let ((_g80960_ - (let () - (declare (not safe)) - (if (##values? _g80959_) - (##vector-length _g80959_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g80960_ 2))) - (error "Context expects 2 values" - _g80960_))) - (let ((_%target6875968780%_ - (let () - (declare (not safe)) - (##vector-ref _g80959_ 0))) - (_%tl6876168783%_ - (let () - (declare (not safe)) - (##vector-ref _g80959_ 1)))) - (if (gx#stx-null? _%tl6876168783%_) - (letrec ((_%loop6876268786%_ - (lambda (_%hd6876068790%_ - _%rawsetf6876668793%_) - (if (gx#stx-pair? - _%hd6876068790%_) - (let ((_%e6876368796%_ - (gx#syntax-e - _%hd6876068790%_))) - (let ((_%lp-hd6876468800%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _%e6876368796%_))) - (_%lp-tl6876568803%_ - (let () (declare (not safe)) (##cdr _%e6876368796%_)))) - (_%loop6876268786%_ - _%lp-tl6876568803%_ - (cons _%lp-hd6876468800%_ _%rawsetf6876668793%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%rawsetf6876768806%_ - (reverse _%rawsetf6876668793%_))) - ((lambda (_%L68810%_) - (let () - (let* ((_%g6882768844%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6882868840%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6882868840%_))) - (_%g6882672403%_ - (lambda (_%g6882868848%_) - (if (gx#stx-pair/null? _%g6882868848%_) - (let ((_g80961_ - (gx#syntax-split-splice - _%g6882868848%_ - '0))) - (begin - (let ((_g80962_ - (let () - (declare (not safe)) - (if (##values? _g80961_) - (##vector-length _g80961_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g80962_ 2))) - (error "Context expects 2 values" - _g80962_))) - (let ((_%target6883068851%_ - (let () - (declare (not safe)) - (##vector-ref _g80961_ 0))) - (_%tl6883268854%_ - (let () - (declare (not safe)) - (##vector-ref _g80961_ 1)))) - (if (gx#stx-null? _%tl6883268854%_) - (letrec ((_%loop6883368857%_ - (lambda (_%hd6883168861%_ - _%mixin-slot6883768864%_) - (if (gx#stx-pair? - _%hd6883168861%_) - (let ((_%e6883468867%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6883168861%_))) - (let ((_%lp-hd6883568871%_ - (let () - (declare (not safe)) - (##car _%e6883468867%_))) - (_%lp-tl6883668874%_ - (let () - (declare (not safe)) - (##cdr _%e6883468867%_)))) - (_%loop6883368857%_ - _%lp-tl6883668874%_ - (cons _%lp-hd6883568871%_ _%mixin-slot6883768864%_)))) - (let ((_%mixin-slot6883868877%_ - (reverse _%mixin-slot6883768864%_))) - ((lambda (_%L68881%_) - (let () - (let* ((_%g6889868915%_ - (lambda (_%g6889968911%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6889968911%_))) - (_%g6889772394%_ - (lambda (_%g6889968919%_) - (if (gx#stx-pair/null? _%g6889968919%_) - (let ((_g80963_ - (gx#syntax-split-splice - _%g6889968919%_ - '0))) - (begin - (let ((_g80964_ - (let () - (declare (not safe)) - (if (##values? _g80963_) - (##vector-length - _g80963_) + (##vector-ref + _g80682_ 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g80964_ 2))) - (error "Context expects 2 values" - _g80964_))) - (let ((_%target6890168922%_ - (let () - (declare (not safe)) - (##vector-ref - _g80963_ - 0))) - (_%tl6890368925%_ - (let () - (declare (not safe)) - (##vector-ref - _g80963_ - 1)))) - (if (gx#stx-null? - _%tl6890368925%_) - (letrec ((_%loop6890468928%_ - (lambda (_%hd6890268932%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%mixin-getf6890868935%_) - (if (gx#stx-pair? _%hd6890268932%_) - (let ((_%e6890568938%_ - (gx#syntax-e _%hd6890268932%_))) - (let ((_%lp-hd6890668942%_ - (let () - (declare (not safe)) - (##car _%e6890568938%_))) - (_%lp-tl6890768945%_ - (let () - (declare (not safe)) - (##cdr _%e6890568938%_)))) - (_%loop6890468928%_ - _%lp-tl6890768945%_ - (cons _%lp-hd6890668942%_ - _%mixin-getf6890868935%_)))) - (let ((_%mixin-getf6890968948%_ - (reverse _%mixin-getf6890868935%_))) - ((lambda (_%L68952%_) - (let () - (let* ((_%g6896968986%_ - (lambda (_%g6897068982%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6897068982%_))) - (_%g6896872385%_ - (lambda (_%g6897068990%_) - (if (gx#stx-pair/null? - _%g6897068990%_) - (let ((_g80965_ - (gx#syntax-split-splice - _%g6897068990%_ - '0))) - (begin - (let ((_g80966_ - (let () - (declare - (not safe)) - (if (##values? + (if (gx#stx-null? + _%tl6851568537%_) + (letrec ((_%loop6851668540%_ + (lambda (_%hd6851468544%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%setf6852068547%_) + (if (gx#stx-pair? _%hd6851468544%_) + (let ((_%e6851768550%_ + (gx#syntax-e _%hd6851468544%_))) + (let ((_%lp-hd6851868554%_ + (let () + (declare (not safe)) + (##car _%e6851768550%_))) + (_%lp-tl6851968557%_ + (let () + (declare (not safe)) + (##cdr _%e6851768550%_)))) + (_%loop6851668540%_ + _%lp-tl6851968557%_ + (cons _%lp-hd6851868554%_ + _%setf6852068547%_)))) + (let ((_%setf6852168560%_ + (reverse _%setf6852068547%_))) + ((lambda (_%L68564%_) + (let* ((_%g6858168598%_ + (lambda (_%g6858268594%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6858268594%_))) + (_%g6858072232%_ + (lambda (_%g6858268602%_) + (if (gx#stx-pair/null? + _%g6858268602%_) + (let ((_g80684_ + (gx#syntax-split-splice + _%g6858268602%_ + '0))) + (begin + (let ((_g80685_ + (let () + (declare + (not safe)) + (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g80965_) - (##vector-length _g80965_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g80966_ 2))) - (error "Context expects 2 values" _g80966_))) + _g80684_) + (##vector-length _g80684_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g80685_ 2))) + (error "Context expects 2 values" _g80685_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6897268993%_ + (let ((_%target6858468605%_ + (let () + (declare + (not safe)) + (##vector-ref + _g80684_ + 0))) + (_%tl6858668608%_ + (let () + (declare + (not safe)) + (##vector-ref + _g80684_ + 1)))) + (if (gx#stx-null? + _%tl6858668608%_) + (letrec ((_%loop6858768611%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd6858568615%_ _%rawsetf6859168618%_) + (if (gx#stx-pair? _%hd6858568615%_) + (let ((_%e6858868621%_ + (gx#syntax-e _%hd6858568615%_))) + (let ((_%lp-hd6858968625%_ + (let () + (declare (not safe)) + (##car _%e6858868621%_))) + (_%lp-tl6859068628%_ + (let () + (declare (not safe)) + (##cdr _%e6858868621%_)))) + (_%loop6858768611%_ + _%lp-tl6859068628%_ + (cons _%lp-hd6858968625%_ + _%rawsetf6859168618%_)))) + (let ((_%rawsetf6859268631%_ + (reverse _%rawsetf6859168618%_))) + ((lambda (_%L68635%_) + (let* ((_%g6865268669%_ + (lambda (_%g6865368665%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6865368665%_))) + (_%g6865172228%_ + (lambda (_%g6865368673%_) + (if (gx#stx-pair/null? + _%g6865368673%_) + (let ((_g80686_ + (gx#syntax-split-splice + _%g6865368673%_ + '0))) + (begin + (let ((_g80687_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (if (##values? _g80686_) + (##vector-length _g80686_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g80687_ 2))) + (error "Context expects 2 values" _g80687_))) + (let ((_%target6865568676%_ + (let () + (declare (not safe)) + (##vector-ref _g80686_ 0))) + (_%tl6865768679%_ + (let () + (declare (not safe)) + (##vector-ref _g80686_ 1)))) + (if (gx#stx-null? _%tl6865768679%_) + (letrec ((_%loop6865868682%_ + (lambda (_%hd6865668686%_ + _%mixin-slot6866268689%_) + (if (gx#stx-pair? _%hd6865668686%_) + (let ((_%e6865968692%_ + (gx#syntax-e _%hd6865668686%_))) + (let ((_%lp-hd6866068696%_ + (let () + (declare (not safe)) + (##car _%e6865968692%_))) + (_%lp-tl6866168699%_ + (let () + (declare (not safe)) + (##cdr _%e6865968692%_)))) + (_%loop6865868682%_ + _%lp-tl6866168699%_ + (cons _%lp-hd6866068696%_ + _%mixin-slot6866268689%_)))) + (let ((_%mixin-slot6866368702%_ + (reverse _%mixin-slot6866268689%_))) + ((lambda (_%L68706%_) + (let* ((_%g6872368740%_ + (lambda (_%g6872468736%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6872468736%_))) + (_%g6872272219%_ + (lambda (_%g6872468744%_) + (if (gx#stx-pair/null? + _%g6872468744%_) + (let ((_g80688_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-split-splice _%g6872468744%_ '0))) + (begin + (let ((_g80689_ + (let () + (declare (not safe)) + (if (##values? _g80688_) + (##vector-length _g80688_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g80689_ 2))) + (error "Context expects 2 values" _g80689_))) + (let ((_%target6872668747%_ + (let () + (declare (not safe)) + (##vector-ref _g80688_ 0))) + (_%tl6872868750%_ + (let () + (declare (not safe)) + (##vector-ref _g80688_ 1)))) + (if (gx#stx-null? _%tl6872868750%_) + (letrec ((_%loop6872968753%_ + (lambda (_%hd6872768757%_ + _%mixin-getf6873368760%_) + (if (gx#stx-pair? _%hd6872768757%_) + (let ((_%e6873068763%_ + (gx#syntax-e + _%hd6872768757%_))) + (let ((_%lp-hd6873168767%_ + (let () + (declare (not safe)) + (##car _%e6873068763%_))) + (_%lp-tl6873268770%_ + (let () + (declare (not safe)) + (##cdr _%e6873068763%_)))) + (_%loop6872968753%_ + _%lp-tl6873268770%_ + (cons _%lp-hd6873168767%_ + _%mixin-getf6873368760%_)))) + (let ((_%mixin-getf6873468773%_ + (reverse _%mixin-getf6873368760%_))) + ((lambda (_%L68777%_) + (let* ((_%g6879468811%_ + (lambda (_%g6879568807%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6879568807%_))) + (_%g6879372210%_ + (lambda (_%g6879568815%_) + (if (gx#stx-pair/null? +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6879568815%_) + (let ((_g80690_ + (gx#syntax-split-splice _%g6879568815%_ '0))) + (begin + (let ((_g80691_ + (let () + (declare (not safe)) + (if (##values? _g80690_) + (##vector-length _g80690_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g80691_ 2))) + (error "Context expects 2 values" _g80691_))) + (let ((_%target6879768818%_ + (let () + (declare (not safe)) + (##vector-ref _g80690_ 0))) + (_%tl6879968821%_ + (let () + (declare (not safe)) + (##vector-ref _g80690_ 1)))) + (if (gx#stx-null? _%tl6879968821%_) + (letrec ((_%loop6880068824%_ + (lambda (_%hd6879868828%_ + _%mixin-setf6880468831%_) + (if (gx#stx-pair? + _%hd6879868828%_) + (let ((_%e6880168834%_ + (gx#syntax-e + _%hd6879868828%_))) + (let ((_%lp-hd6880268838%_ (let () (declare (not safe)) - (##vector-ref - _g80965_ - 0))) - (_%tl6897468996%_ + (##car _%e6880168834%_))) + (_%lp-tl6880368841%_ (let () (declare (not safe)) - (##vector-ref - _g80965_ - 1)))) - (if (gx#stx-null? - _%tl6897468996%_) - (letrec ((_%loop6897568999%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6897369003%_ _%mixin-setf6897969006%_) - (if (gx#stx-pair? _%hd6897369003%_) - (let ((_%e6897669009%_ - (gx#syntax-e _%hd6897369003%_))) - (let ((_%lp-hd6897769013%_ - (let () - (declare (not safe)) - (##car _%e6897669009%_))) - (_%lp-tl6897869016%_ - (let () - (declare (not safe)) - (##cdr _%e6897669009%_)))) - (_%loop6897568999%_ - _%lp-tl6897869016%_ - (cons _%lp-hd6897769013%_ - _%mixin-setf6897969006%_)))) - (let ((_%mixin-setf6898069019%_ - (reverse _%mixin-setf6897969006%_))) - ((lambda (_%L69023%_) - (let () - (let* ((_%g6904069057%_ - (lambda (_%g6904169053%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6904169053%_))) - (_%g6903972376%_ - (lambda (_%g6904169061%_) - (if (gx#stx-pair/null? - _%g6904169061%_) - (let ((_g80967_ - (gx#syntax-split-splice - _%g6904169061%_ - '0))) - (begin - (let ((_g80968_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (if (##values? _g80967_) - (##vector-length _g80967_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g80968_ 2))) - (error "Context expects 2 values" _g80968_))) - (let ((_%target6904369064%_ - (let () - (declare (not safe)) - (##vector-ref _g80967_ 0))) - (_%tl6904569067%_ - (let () - (declare (not safe)) - (##vector-ref _g80967_ 1)))) - (if (gx#stx-null? _%tl6904569067%_) - (letrec ((_%loop6904669070%_ - (lambda (_%hd6904469074%_ - _%mixin-rawsetf6905069077%_) - (if (gx#stx-pair? _%hd6904469074%_) - (let ((_%e6904769080%_ - (gx#syntax-e - _%hd6904469074%_))) - (let ((_%lp-hd6904869084%_ - (let () - (declare (not safe)) - (##car _%e6904769080%_))) - (_%lp-tl6904969087%_ - (let () - (declare (not safe)) - (##cdr _%e6904769080%_)))) - (_%loop6904669070%_ - _%lp-tl6904969087%_ - (cons _%lp-hd6904869084%_ - _%mixin-rawsetf6905069077%_)))) - (let ((_%mixin-rawsetf6905169090%_ - (reverse _%mixin-rawsetf6905069077%_))) - ((lambda (_%L69094%_) - (let () - (let* ((_%g6911169128%_ - (lambda (_%g6911269124%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6911269124%_))) - (_%g6911072359%_ - (lambda (_%g6911269132%_) - (if (gx#stx-pair/null? - _%g6911269132%_) - (let ((_g80969_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g6911269132%_ '0))) - (begin - (let ((_g80970_ - (let () - (declare (not safe)) - (if (##values? _g80969_) - (##vector-length _g80969_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g80970_ 2))) - (error "Context expects 2 values" _g80970_))) - (let ((_%target6911469135%_ - (let () - (declare (not safe)) - (##vector-ref _g80969_ 0))) - (_%tl6911669138%_ - (let () - (declare (not safe)) - (##vector-ref _g80969_ 1)))) - (if (gx#stx-null? _%tl6911669138%_) - (letrec ((_%loop6911769141%_ - (lambda (_%hd6911569145%_ - _%ugetf6912169148%_) - (if (gx#stx-pair? _%hd6911569145%_) - (let ((_%e6911869151%_ - (gx#syntax-e - _%hd6911569145%_))) - (let ((_%lp-hd6911969155%_ - (let () - (declare (not safe)) - (##car _%e6911869151%_))) - (_%lp-tl6912069158%_ - (let () - (declare (not safe)) - (##cdr _%e6911869151%_)))) - (_%loop6911769141%_ - _%lp-tl6912069158%_ - (cons _%lp-hd6911969155%_ - _%ugetf6912169148%_)))) - (let ((_%ugetf6912269161%_ - (reverse _%ugetf6912169148%_))) - ((lambda (_%L69165%_) - (let () - (let* ((_%g6918269199%_ - (lambda (_%g6918369195%_) + (##cdr _%e6880168834%_)))) + (_%loop6880068824%_ + _%lp-tl6880368841%_ + (cons _%lp-hd6880268838%_ + _%mixin-setf6880468831%_)))) + (let ((_%mixin-setf6880568844%_ + (reverse _%mixin-setf6880468831%_))) + ((lambda (_%L68848%_) + (let* ((_%g6886568882%_ + (lambda (_%g6886668878%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6918369195%_))) - (_%g6918172342%_ - (lambda (_%g6918369203%_) - (if (gx#stx-pair/null? _%g6918369203%_) - (let ((_g80971_ + _%g6886668878%_))) + (_%g6886472201%_ + (lambda (_%g6886668886%_) + (if (gx#stx-pair/null? _%g6886668886%_) + (let ((_g80692_ (gx#syntax-split-splice - _%g6918369203%_ + _%g6886668886%_ '0))) (begin - (let ((_g80972_ + (let ((_g80693_ (let () (declare (not safe)) - (if (##values? _g80971_) - (##vector-length _g80971_) + (if (##values? _g80692_) + (##vector-length _g80692_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80972_ 2))) + (##fx= _g80693_ 2))) (error "Context expects 2 values" - _g80972_))) - (let ((_%target6918569206%_ + _g80693_))) + (let ((_%target6886868889%_ (let () (declare (not safe)) - (##vector-ref _g80971_ 0))) - (_%tl6918769209%_ + (##vector-ref _g80692_ 0))) + (_%tl6887068892%_ (let () (declare (not safe)) - (##vector-ref _g80971_ 1)))) - (if (gx#stx-null? _%tl6918769209%_) - (letrec ((_%loop6918869212%_ - (lambda (_%hd6918669216%_ - _%usetf6919269219%_) + (##vector-ref _g80692_ 1)))) + (if (gx#stx-null? _%tl6887068892%_) + (letrec ((_%loop6887168895%_ + (lambda (_%hd6886968899%_ + _%mixin-rawsetf6887568902%_) (if (gx#stx-pair? - _%hd6918669216%_) - (let ((_%e6918969222%_ + _%hd6886968899%_) + (let ((_%e6887268905%_ (gx#syntax-e - _%hd6918669216%_))) - (let ((_%lp-hd6919069226%_ + _%hd6886968899%_))) + (let ((_%lp-hd6887368909%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6918969222%_))) - (_%lp-tl6919169229%_ - (let () (declare (not safe)) (##cdr _%e6918969222%_)))) - (_%loop6918869212%_ - _%lp-tl6919169229%_ - (cons _%lp-hd6919069226%_ _%usetf6919269219%_)))) - (let ((_%usetf6919369232%_ (reverse _%usetf6919269219%_))) - ((lambda (_%L69236%_) - (let () - (let* ((_%g6925369270%_ - (lambda (_%g6925469266%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6925469266%_))) - (_%g6925272325%_ - (lambda (_%g6925469274%_) - (if (gx#stx-pair/null? _%g6925469274%_) - (let ((_g80973_ - (gx#syntax-split-splice - _%g6925469274%_ - '0))) - (begin - (let ((_g80974_ - (let () - (declare (not safe)) - (if (##values? _g80973_) - (##vector-length _g80973_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g80974_ 2))) - (error "Context expects 2 values" - _g80974_))) - (let ((_%target6925669277%_ - (let () - (declare (not safe)) - (##vector-ref _g80973_ 0))) - (_%tl6925869280%_ - (let () - (declare (not safe)) - (##vector-ref _g80973_ 1)))) - (if (gx#stx-null? _%tl6925869280%_) - (letrec ((_%loop6925969283%_ - (lambda (_%hd6925769287%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%mixin-ugetf6926369290%_) - (if (gx#stx-pair? _%hd6925769287%_) - (let ((_%e6926069293%_ (gx#syntax-e _%hd6925769287%_))) - (let ((_%lp-hd6926169297%_ - (let () - (declare (not safe)) - (##car _%e6926069293%_))) - (_%lp-tl6926269300%_ - (let () - (declare (not safe)) - (##cdr _%e6926069293%_)))) - (_%loop6925969283%_ - _%lp-tl6926269300%_ - (cons _%lp-hd6926169297%_ - _%mixin-ugetf6926369290%_)))) - (let ((_%mixin-ugetf6926469303%_ - (reverse _%mixin-ugetf6926369290%_))) - ((lambda (_%L69307%_) - (let () - (let* ((_%g6932469341%_ - (lambda (_%g6932569337%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6932569337%_))) - (_%g6932372308%_ - (lambda (_%g6932569345%_) - (if (gx#stx-pair/null? _%g6932569345%_) - (let ((_g80975_ - (gx#syntax-split-splice - _%g6932569345%_ - '0))) - (begin - (let ((_g80976_ - (let () - (declare (not safe)) - (if (##values? - _g80975_) - (##vector-length - _g80975_) - 1)))) - (if (not (let () - (declare - (not safe)) - (##fx= _g80976_ + (##car _%e6887268905%_))) + (_%lp-tl6887468912%_ + (let () (declare (not safe)) (##cdr _%e6887268905%_)))) + (_%loop6887168895%_ + _%lp-tl6887468912%_ + (cons _%lp-hd6887368909%_ _%mixin-rawsetf6887568902%_)))) + (let ((_%mixin-rawsetf6887668915%_ + (reverse _%mixin-rawsetf6887568902%_))) + ((lambda (_%L68919%_) + (let* ((_%g6893668953%_ + (lambda (_%g6893768949%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6893768949%_))) + (_%g6893572184%_ + (lambda (_%g6893768957%_) + (if (gx#stx-pair/null? _%g6893768957%_) + (let ((_g80694_ + (gx#syntax-split-splice + _%g6893768957%_ + '0))) + (begin + (let ((_g80695_ + (let () + (declare (not safe)) + (if (##values? _g80694_) + (##vector-length _g80694_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g80695_ 2))) + (error "Context expects 2 values" + _g80695_))) + (let ((_%target6893968960%_ + (let () + (declare (not safe)) + (##vector-ref _g80694_ 0))) + (_%tl6894168963%_ + (let () + (declare (not safe)) + (##vector-ref _g80694_ 1)))) + (if (gx#stx-null? _%tl6894168963%_) + (letrec ((_%loop6894268966%_ + (lambda (_%hd6894068970%_ + _%ugetf6894668973%_) + (if (gx#stx-pair? + _%hd6894068970%_) + (let ((_%e6894368976%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - 2))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (error "Context expects 2 values" - _g80976_))) - (let ((_%target6932769348%_ - (let () - (declare (not safe)) - (##vector-ref - _g80975_ - 0))) - (_%tl6932969351%_ - (let () + (gx#syntax-e _%hd6894068970%_))) + (let ((_%lp-hd6894468980%_ + (let () + (declare (not safe)) + (##car _%e6894368976%_))) + (_%lp-tl6894568983%_ + (let () + (declare (not safe)) + (##cdr _%e6894368976%_)))) + (_%loop6894268966%_ + _%lp-tl6894568983%_ + (cons _%lp-hd6894468980%_ _%ugetf6894668973%_)))) + (let ((_%ugetf6894768986%_ (reverse _%ugetf6894668973%_))) + ((lambda (_%L68990%_) + (let* ((_%g6900769024%_ + (lambda (_%g6900869020%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6900869020%_))) + (_%g6900672167%_ + (lambda (_%g6900869028%_) + (if (gx#stx-pair/null? _%g6900869028%_) + (let ((_g80696_ + (gx#syntax-split-splice + _%g6900869028%_ + '0))) + (begin + (let ((_g80697_ + (let () + (declare (not safe)) + (if (##values? _g80696_) + (##vector-length + _g80696_) + 1)))) + (if (not (let () (declare (not safe)) - (##vector-ref - _g80975_ - 1)))) - (if (gx#stx-null? - _%tl6932969351%_) - (letrec ((_%loop6933069354%_ - (lambda (_%hd6932869358%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%mixin-usetf6933469361%_) - (if (gx#stx-pair? _%hd6932869358%_) - (let ((_%e6933169364%_ - (gx#syntax-e _%hd6932869358%_))) - (let ((_%lp-hd6933269368%_ - (let () - (declare (not safe)) - (##car _%e6933169364%_))) - (_%lp-tl6933369371%_ - (let () - (declare (not safe)) - (##cdr _%e6933169364%_)))) - (_%loop6933069354%_ - _%lp-tl6933369371%_ - (cons _%lp-hd6933269368%_ - _%mixin-usetf6933469361%_)))) - (let ((_%mixin-usetf6933569374%_ - (reverse _%mixin-usetf6933469361%_))) - ((lambda (_%L69378%_) + (##fx= _g80697_ 2))) + (error "Context expects 2 values" + _g80697_))) + (let ((_%target6901069031%_ + (let () + (declare (not safe)) + (##vector-ref _g80696_ 0))) + (_%tl6901269034%_ + (let () + (declare (not safe)) + (##vector-ref + _g80696_ + 1)))) + (if (gx#stx-null? + _%tl6901269034%_) + (letrec ((_%loop6901369037%_ + (lambda (_%hd6901169041%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%usetf6901769044%_) + (if (gx#stx-pair? _%hd6901169041%_) + (let ((_%e6901469047%_ + (gx#syntax-e _%hd6901169041%_))) + (let ((_%lp-hd6901569051%_ (let () - (let* ((_%type-slots69540%_ - (if (gx#stx-null? _%slots68304%_) - (let () '()) - (let () - (cons 'slots: - (cons (map (lambda (_%slot69399%_ + (declare (not safe)) + (##car _%e6901469047%_))) + (_%lp-tl6901669054%_ + (let () + (declare (not safe)) + (##cdr _%e6901469047%_)))) + (_%loop6901369037%_ + _%lp-tl6901669054%_ + (cons _%lp-hd6901569051%_ _%usetf6901769044%_)))) + (let ((_%usetf6901869057%_ + (reverse _%usetf6901769044%_))) + ((lambda (_%L69061%_) + (let* ((_%g6907869095%_ + (lambda (_%g6907969091%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6907969091%_))) + (_%g6907772150%_ + (lambda (_%g6907969099%_) + (if (gx#stx-pair/null? _%g6907969099%_) + (let ((_g80698_ + (gx#syntax-split-splice + _%g6907969099%_ + '0))) + (begin + (let ((_g80699_ + (let () + (declare (not safe)) + (if (##values? + _g80698_) + (##vector-length + _g80698_) + 1)))) + (if (not (let () + (declare + (not safe)) + (##fx= _g80699_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf69401%_ - _%setf69402%_ - _%rawsetf69403%_) - (let* ((_%g6940569428%_ - (lambda (_%g6940669424%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6940669424%_))) - (_%g6940469504%_ - (lambda (_%g6940669432%_) - (if (gx#stx-pair? _%g6940669432%_) - (let ((_%e6941369435%_ - (gx#syntax-e - _%g6940669432%_))) - (let ((_%hd6941269439%_ - (let () - (declare (not safe)) - (##car _%e6941369435%_))) - (_%tl6941169442%_ - (let () - (declare (not safe)) - (##cdr _%e6941369435%_)))) - (if (gx#stx-pair? - _%tl6941169442%_) - (let ((_%e6941669445%_ - (gx#syntax-e - _%tl6941169442%_))) - (let ((_%hd6941569449%_ - (let () - (declare - (not safe)) - (##car _%e6941669445%_))) - (_%tl6941469452%_ + 2))) + (error "Context expects 2 values" _g80699_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%target6908169102%_ + (let () + (declare (not safe)) + (##vector-ref + _g80698_ + 0))) + (_%tl6908369105%_ + (let () + (declare (not safe)) + (##vector-ref + _g80698_ + 1)))) + (if (gx#stx-null? + _%tl6908369105%_) + (letrec ((_%loop6908469108%_ + (lambda (_%hd6908269112%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%mixin-ugetf6908869115%_) + (if (gx#stx-pair? _%hd6908269112%_) + (let ((_%e6908569118%_ + (gx#syntax-e _%hd6908269112%_))) + (let ((_%lp-hd6908669122%_ + (let () + (declare (not safe)) + (##car _%e6908569118%_))) + (_%lp-tl6908769125%_ + (let () + (declare (not safe)) + (##cdr _%e6908569118%_)))) + (_%loop6908469108%_ + _%lp-tl6908769125%_ + (cons _%lp-hd6908669122%_ + _%mixin-ugetf6908869115%_)))) + (let ((_%mixin-ugetf6908969128%_ + (reverse _%mixin-ugetf6908869115%_))) + ((lambda (_%L69132%_) + (let* ((_%g6914969166%_ + (lambda (_%g6915069162%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6915069162%_))) + (_%g6914872133%_ + (lambda (_%g6915069170%_) + (if (gx#stx-pair/null? + _%g6915069170%_) + (let ((_g80700_ + (gx#syntax-split-splice + _%g6915069170%_ + '0))) + (begin + (let ((_g80701_ (let () (declare (not safe)) - (##cdr _%e6941669445%_)))) - (if (gx#stx-pair? - _%tl6941469452%_) - (let ((_%e6941969455%_ + (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6941469452%_))) - (let ((_%hd6941869459%_ - (let () - (declare (not safe)) - (##car _%e6941969455%_))) - (_%tl6941769462%_ - (let () - (declare (not safe)) - (##cdr _%e6941969455%_)))) - (if (gx#stx-pair? _%tl6941769462%_) - (let ((_%e6942269465%_ - (gx#syntax-e _%tl6941769462%_))) - (let ((_%hd6942169469%_ - (let () - (declare (not safe)) - (##car _%e6942269465%_))) - (_%tl6942069472%_ - (let () - (declare (not safe)) - (##cdr _%e6942269465%_)))) - (if (gx#stx-null? _%tl6942069472%_) - ((lambda (_%L69475%_ - _%L69477%_ - _%L69478%_ - _%L69479%_) - (let () - (if (hash-get - _%slot-contract-table68293%_ - (gx#stx-e _%L69479%_)) - (cons _%L69479%_ - (cons _%L69478%_ - (cons _%L69475%_ '()))) - (cons _%L69479%_ - (cons _%L69478%_ - (cons _%L69477%_ - '())))))) - _%hd6942169469%_ - _%hd6941869459%_ - _%hd6941569449%_ - _%hd6941269439%_) - (_%g6940569428%_ _%g6940669432%_)))) - (_%g6940569428%_ _%g6940669432%_)))) - (_%g6940569428%_ _%g6940669432%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6940569428%_ - _%g6940669432%_)))) - (_%g6940569428%_ - _%g6940669432%_))))) - (_%g6940469504%_ - (list _%slot69399%_ - _%getf69401%_ - _%setf69402%_ - _%rawsetf69403%_)))) - (foldr (lambda (_%g6950769510%_ _%g6950869513%_) - (cons _%g6950769510%_ _%g6950869513%_)) - '() - _%L68526%_) - (foldr (lambda (_%g6951569518%_ _%g6951669521%_) - (cons _%g6951569518%_ _%g6951669521%_)) - '() - _%L68668%_) - (foldr (lambda (_%g6952369526%_ _%g6952469529%_) - (cons _%g6952369526%_ _%g6952469529%_)) - '() - _%L68739%_) - (foldr (lambda (_%g6953169534%_ _%g6953269537%_) - (cons _%g6953169534%_ _%g6953269537%_)) - '() - _%L68810%_)) - '()))))) + _g80700_) + (##vector-length _g80700_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g80701_ 2))) + (error "Context expects 2 values" _g80701_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-mixin-slots69687%_ - (if (gx#stx-null? - _%mixin-slots68310%_) - (let () '()) - (let () - (cons 'mixin: - (cons (map (lambda (_%slot69547%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf69549%_ - _%setf69550%_ - _%rawsetf69551%_) - (let* ((_%g6955369576%_ - (lambda (_%g6955469572%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6955469572%_))) - (_%g6955269651%_ - (lambda (_%g6955469580%_) - (if (gx#stx-pair? _%g6955469580%_) - (let ((_%e6956169583%_ - (gx#syntax-e - _%g6955469580%_))) - (let ((_%hd6956069587%_ - (let () - (declare (not safe)) - (##car _%e6956169583%_))) - (_%tl6955969590%_ - (let () - (declare (not safe)) - (##cdr _%e6956169583%_)))) - (if (gx#stx-pair? - _%tl6955969590%_) - (let ((_%e6956469593%_ - (gx#syntax-e - _%tl6955969590%_))) - (let ((_%hd6956369597%_ + (let ((_%target6915269173%_ (let () (declare (not safe)) - (##car _%e6956469593%_))) - (_%tl6956269600%_ + (##vector-ref + _g80700_ + 0))) + (_%tl6915469176%_ (let () (declare (not safe)) - (##cdr _%e6956469593%_)))) - (if (gx#stx-pair? - _%tl6956269600%_) - (let ((_%e6956769603%_ + (##vector-ref + _g80700_ + 1)))) + (if (gx#stx-null? + _%tl6915469176%_) + (letrec ((_%loop6915569179%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd6915369183%_ + _%mixin-usetf6915969186%_) + (if (gx#stx-pair? _%hd6915369183%_) + (let ((_%e6915669189%_ + (gx#syntax-e _%hd6915369183%_))) + (let ((_%lp-hd6915769193%_ + (let () + (declare (not safe)) + (##car _%e6915669189%_))) + (_%lp-tl6915869196%_ + (let () + (declare (not safe)) + (##cdr _%e6915669189%_)))) + (_%loop6915569179%_ + _%lp-tl6915869196%_ + (cons _%lp-hd6915769193%_ + _%mixin-usetf6915969186%_)))) + (let ((_%mixin-usetf6916069199%_ + (reverse _%mixin-usetf6915969186%_))) + ((lambda (_%L69203%_) + (let* ((_%type-slots69365%_ + (if (gx#stx-null? + _%slots68129%_) + '() + (cons 'slots: + (cons (map (lambda (_%slot69224%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%getf69226%_ + _%setf69227%_ + _%rawsetf69228%_) + (let* ((_%g6923069253%_ + (lambda (_%g6923169249%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6923169249%_))) + (_%g6922969329%_ + (lambda (_%g6923169257%_) + (if (gx#stx-pair? _%g6923169257%_) + (let ((_%e6923869260%_ + (gx#syntax-e + _%g6923169257%_))) + (let ((_%hd6923769264%_ + (let () + (declare (not safe)) + (##car _%e6923869260%_))) + (_%tl6923669267%_ + (let () + (declare (not safe)) + (##cdr _%e6923869260%_)))) + (if (gx#stx-pair? + _%tl6923669267%_) + (let ((_%e6924169270%_ + (gx#syntax-e + _%tl6923669267%_))) + (let ((_%hd6924069274%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6956269600%_))) - (let ((_%hd6956669607%_ - (let () - (declare (not safe)) - (##car _%e6956769603%_))) - (_%tl6956569610%_ - (let () - (declare (not safe)) - (##cdr _%e6956769603%_)))) - (if (gx#stx-pair? _%tl6956569610%_) - (let ((_%e6957069613%_ - (gx#syntax-e _%tl6956569610%_))) - (let ((_%hd6956969617%_ - (let () - (declare (not safe)) - (##car _%e6957069613%_))) - (_%tl6956869620%_ - (let () - (declare (not safe)) - (##cdr _%e6957069613%_)))) - (if (gx#stx-null? _%tl6956869620%_) - ((lambda (_%L69623%_ - _%L69625%_ - _%L69626%_ - _%L69627%_) + (not safe)) + (##car _%e6924169270%_))) + (_%tl6923969277%_ + (let () (declare (not safe)) (##cdr _%e6924169270%_)))) + (if (gx#stx-pair? _%tl6923969277%_) + (let ((_%e6924469280%_ (gx#syntax-e _%tl6923969277%_))) + (let ((_%hd6924369284%_ + (let () + (declare (not safe)) + (##car _%e6924469280%_))) + (_%tl6924269287%_ + (let () + (declare (not safe)) + (##cdr _%e6924469280%_)))) + (if (gx#stx-pair? _%tl6924269287%_) + (let ((_%e6924769290%_ + (gx#syntax-e _%tl6924269287%_))) + (let ((_%hd6924669294%_ (let () + (declare (not safe)) + (##car _%e6924769290%_))) + (_%tl6924569297%_ + (let () + (declare (not safe)) + (##cdr _%e6924769290%_)))) + (if (gx#stx-null? _%tl6924569297%_) + ((lambda (_%L69300%_ + _%L69302%_ + _%L69303%_ + _%L69304%_) (if (hash-get - _%slot-contract-table68293%_ - (gx#stx-e _%L69627%_)) - (cons _%L69627%_ - (cons _%L69626%_ - (cons _%L69623%_ '()))) - (cons _%L69627%_ - (cons _%L69626%_ - (cons _%L69625%_ - '())))))) - _%hd6956969617%_ - _%hd6956669607%_ - _%hd6956369597%_ - _%hd6956069587%_) - (_%g6955369576%_ _%g6955469580%_)))) - (_%g6955369576%_ _%g6955469580%_)))) - (_%g6955369576%_ _%g6955469580%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6955369576%_ - _%g6955469580%_)))) - (_%g6955369576%_ - _%g6955469580%_))))) - (_%g6955269651%_ - (list _%slot69547%_ - _%getf69549%_ - _%setf69550%_ - _%rawsetf69551%_)))) - (foldr (lambda (_%g6965469657%_ _%g6965569660%_) - (cons _%g6965469657%_ _%g6965569660%_)) - '() - _%L68881%_) - (foldr (lambda (_%g6966269665%_ _%g6966369668%_) - (cons _%g6966269665%_ _%g6966369668%_)) - '() - _%L68952%_) - (foldr (lambda (_%g6967069673%_ _%g6967169676%_) - (cons _%g6967069673%_ _%g6967169676%_)) - '() - _%L69023%_) - (foldr (lambda (_%g6967869681%_ _%g6967969684%_) - (cons _%g6967869681%_ _%g6967969684%_)) - '() - _%L69094%_)) - '()))))) + _%slot-contract-table68118%_ + (gx#stx-e _%L69304%_)) + (cons _%L69304%_ + (cons _%L69303%_ + (cons _%L69300%_ '()))) + (cons _%L69304%_ + (cons _%L69303%_ + (cons _%L69302%_ + '()))))) + _%hd6924669294%_ + _%hd6924369284%_ + _%hd6924069274%_ + _%hd6923769264%_) + (_%g6923069253%_ _%g6923169257%_)))) + (_%g6923069253%_ _%g6923169257%_)))) + (_%g6923069253%_ _%g6923169257%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6923069253%_ + _%g6923169257%_)))) + (_%g6923069253%_ + _%g6923169257%_))))) + (_%g6922969329%_ + (list _%slot69224%_ + _%getf69226%_ + _%setf69227%_ + _%rawsetf69228%_)))) + (foldr (lambda (_%g6933269335%_ _%g6933369338%_) + (cons _%g6933269335%_ _%g6933369338%_)) + '() + _%L68351%_) + (foldr (lambda (_%g6934069343%_ _%g6934169346%_) + (cons _%g6934069343%_ _%g6934169346%_)) + '() + _%L68493%_) + (foldr (lambda (_%g6934869351%_ _%g6934969354%_) + (cons _%g6934869351%_ _%g6934969354%_)) + '() + _%L68564%_) + (foldr (lambda (_%g6935669359%_ _%g6935769362%_) + (cons _%g6935669359%_ _%g6935769362%_)) + '() + _%L68635%_)) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-name69694%_ - (cons 'name: - (cons (let ((_%$e69690%_ - (gx#stx-getq - 'name: - _%body68284%_))) - (if _%$e69690%_ - _%$e69690%_ - _%id68280%_)) - '()))) - (_%type-id69701%_ - (cons 'id: - (cons (let ((_%$e69697%_ - (gx#stx-getq - 'id: - _%body68284%_))) - (if _%$e69697%_ - _%$e69697%_ + (_%type-mixin-slots69512%_ + (if (gx#stx-null? + _%mixin-slots68135%_) + '() + (cons 'mixin: + (cons (map (lambda (_%slot69372%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%getf69374%_ + _%setf69375%_ + _%rawsetf69376%_) + (let* ((_%g6937869401%_ + (lambda (_%g6937969397%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6937969397%_))) + (_%g6937769476%_ + (lambda (_%g6937969405%_) + (if (gx#stx-pair? _%g6937969405%_) + (let ((_%e6938669408%_ + (gx#syntax-e + _%g6937969405%_))) + (let ((_%hd6938569412%_ + (let () + (declare (not safe)) + (##car _%e6938669408%_))) + (_%tl6938469415%_ + (let () + (declare (not safe)) + (##cdr _%e6938669408%_)))) + (if (gx#stx-pair? + _%tl6938469415%_) + (let ((_%e6938969418%_ + (gx#syntax-e + _%tl6938469415%_))) + (let ((_%hd6938869422%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L68337%_)))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-constructor69716%_ - (let ((_%$e69712%_ - (let ((_%e6970369705%_ - (gx#stx-getq - 'constructor: - _%body68284%_))) - (if _%e6970369705%_ - (let ((_%e69709%_ - _%e6970369705%_)) - (cons 'constructor: -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%e69709%_ '()))) - '#f)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e69712%_ - _%$e69712%_ - '()))) - (_%properties69770%_ - (let* ((_%properties69719%_ - (if (gx#stx-e - (gx#stx-getq - 'transparent: - _%body68284%_)) - (cons (cons 'transparent: -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#t) - '()) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%properties69742%_ - (let ((_%$e69722%_ - (gx#stx-e - (gx#stx-getq - 'print: - _%body68284%_)))) - (if _%$e69722%_ - ((lambda (_%print69726%_) - (let ((_%print69737%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (eq? _%print69726%_ '#t) - (foldr (lambda (_%g6972869731%_ - _%g6972969734%_) - (cons _%g6972869731%_ - _%g6972969734%_)) - '() - _%L68526%_) - _%print69726%_))) - (cons (cons 'print: _%print69737%_) - _%properties69719%_))) - _%$e69722%_) - (let () _%properties69719%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%properties69765%_ - (let ((_%$e69745%_ - (gx#stx-e - (gx#stx-getq - 'equal: - _%body68284%_)))) - (if _%$e69745%_ - ((lambda (_%equal69749%_) - (let ((_%equal69760%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (eq? _%equal69749%_ '#t) - (foldr (lambda (_%g6975169754%_ - _%g6975269757%_) - (cons _%g6975169754%_ - _%g6975269757%_)) - '() - _%L68526%_) - _%equal69749%_))) - (cons (cons 'equal: _%equal69760%_) - _%properties69742%_))) - _%$e69745%_) - (let () _%properties69742%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%properties69765%_)) - (_%type-properties69808%_ - (if (let () - (declare (not safe)) - (null? _%properties69770%_)) - '() - (let* ((_%g6977369781%_ - (lambda (_%g6977469777%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6977469777%_))) - (_%g6977269804%_ - (lambda (_%g6977469785%_) - ((lambda (_%L69788%_) - (let () - (cons 'properties: -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L69788%_ '())) - '())))) - _%g6977469785%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6977269804%_ - _%properties69770%_)))) - (_%metaclass69820%_ - (let ((_%$e69811%_ - (gx#stx-getq - 'metaclass: - _%body68284%_))) - (if _%$e69811%_ - ((lambda (_%metaclass69815%_) - (if (gx#identifier? - _%metaclass69815%_) - _%metaclass69815%_ - '#f)) - _%$e69811%_) - (let () '#f)))) - (_%final?69823%_ - (gx#stx-e - (gx#stx-getq - 'final: - _%body68284%_))) - (_%type-struct69826%_ - (cons 'struct: - (cons _%struct?68319%_ '()))) - (_%type-final69829%_ - (cons 'final: - (cons _%final?69823%_ '()))) - (_%type-metaclass69832%_ - (if _%metaclass69820%_ - (cons 'metaclass: - (cons _%metaclass69820%_ - '())) - '())) - (_%g6983569852%_ - (lambda (_%g6983669848%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6983669848%_))) - (_%g6983472304%_ - (lambda (_%g6983669856%_) - (if (gx#stx-pair/null? - _%g6983669856%_) - (let ((_g80977_ - (gx#syntax-split-splice - _%g6983669856%_ - '0))) - (begin - (let ((_g80978_ - (let () - (declare + (##car _%e6938969418%_))) + (_%tl6938769425%_ + (let () (declare (not safe)) (##cdr _%e6938969418%_)))) + (if (gx#stx-pair? _%tl6938769425%_) + (let ((_%e6939269428%_ (gx#syntax-e _%tl6938769425%_))) + (let ((_%hd6939169432%_ + (let () + (declare (not safe)) + (##car _%e6939269428%_))) + (_%tl6939069435%_ + (let () + (declare (not safe)) + (##cdr _%e6939269428%_)))) + (if (gx#stx-pair? _%tl6939069435%_) + (let ((_%e6939569438%_ + (gx#syntax-e _%tl6939069435%_))) + (let ((_%hd6939469442%_ + (let () + (declare (not safe)) + (##car _%e6939569438%_))) + (_%tl6939369445%_ + (let () + (declare (not safe)) + (##cdr _%e6939569438%_)))) + (if (gx#stx-null? _%tl6939369445%_) + ((lambda (_%L69448%_ + _%L69450%_ + _%L69451%_ + _%L69452%_) + (if (hash-get + _%slot-contract-table68118%_ + (gx#stx-e _%L69452%_)) + (cons _%L69452%_ + (cons _%L69451%_ + (cons _%L69448%_ '()))) + (cons _%L69452%_ + (cons _%L69451%_ + (cons _%L69450%_ + '()))))) + _%hd6939469442%_ + _%hd6939169432%_ + _%hd6938869422%_ + _%hd6938569412%_) + (_%g6937869401%_ _%g6937969405%_)))) + (_%g6937869401%_ _%g6937969405%_)))) + (_%g6937869401%_ _%g6937969405%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6937869401%_ + _%g6937969405%_)))) + (_%g6937869401%_ + _%g6937969405%_))))) + (_%g6937769476%_ + (list _%slot69372%_ + _%getf69374%_ + _%setf69375%_ + _%rawsetf69376%_)))) + (foldr (lambda (_%g6947969482%_ _%g6948069485%_) + (cons _%g6947969482%_ _%g6948069485%_)) + '() + _%L68706%_) + (foldr (lambda (_%g6948769490%_ _%g6948869493%_) + (cons _%g6948769490%_ _%g6948869493%_)) + '() + _%L68777%_) + (foldr (lambda (_%g6949569498%_ _%g6949669501%_) + (cons _%g6949569498%_ _%g6949669501%_)) + '() + _%L68848%_) + (foldr (lambda (_%g6950369506%_ _%g6950469509%_) + (cons _%g6950369506%_ _%g6950469509%_)) + '() + _%L68919%_)) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%type-name69519%_ + (cons 'name: + (cons (let ((_%$e69515%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (if (##values? _g80977_) - (##vector-length _g80977_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g80978_ 2))) - (error "Context expects 2 values" _g80978_))) - (let ((_%target6983869859%_ - (let () (declare (not safe)) (##vector-ref _g80977_ 0))) - (_%tl6984069862%_ - (let () (declare (not safe)) (##vector-ref _g80977_ 1)))) - (if (gx#stx-null? _%tl6984069862%_) - (letrec ((_%loop6984169865%_ - (lambda (_%hd6983969869%_ - _%type-body6984569872%_) - (if (gx#stx-pair? _%hd6983969869%_) - (let ((_%e6984269875%_ - (gx#syntax-e _%hd6983969869%_))) - (let ((_%lp-hd6984369879%_ - (let () - (declare (not safe)) - (##car _%e6984269875%_))) - (_%lp-tl6984469882%_ - (let () - (declare (not safe)) - (##cdr _%e6984269875%_)))) - (_%loop6984169865%_ - _%lp-tl6984469882%_ - (cons _%lp-hd6984369879%_ - _%type-body6984569872%_)))) - (let ((_%type-body6984669885%_ - (reverse _%type-body6984569872%_))) - ((lambda (_%L69889%_) - (let () - (let* ((_%g6991069918%_ - (lambda (_%g6991169914%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6991169914%_))) - (_%g6990972292%_ - (lambda (_%g6991169922%_) - ((lambda (_%L69925%_) - (let () - (let* ((_%g6993869946%_ + (gx#stx-getq 'name: _%body68109%_))) + (if _%$e69515%_ _%$e69515%_ _%id68105%_)) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%type-id69526%_ + (cons 'id: + (cons (let ((_%$e69522%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6993969942%_) + (gx#stx-getq 'id: _%body68109%_))) + (if _%$e69522%_ + _%$e69522%_ + (let () + (declare (not safe)) + (|gerbil/core/mop~MOP-1[1]#make-class-type-id| + _%L68162%_)))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%type-constructor69541%_ + (let ((_%$e69537%_ + (let ((_%e6952869530%_ + (gx#stx-getq + 'constructor: + _%body68109%_))) + (if _%e6952869530%_ + (let ((_%e69534%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%e6952869530%_)) + (cons 'constructor: (cons _%e69534%_ '()))) + '#f)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if _%$e69537%_ + _%$e69537%_ + '()))) + (_%properties69595%_ + (let* ((_%properties69544%_ + (if (gx#stx-e + (gx#stx-getq + 'transparent: + _%body68109%_)) + (cons (cons 'transparent: +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#t) + '()) + '())) + (_%properties69567%_ + (let ((_%$e69547%_ + (gx#stx-e (gx#stx-getq 'print: _%body68109%_)))) + (if _%$e69547%_ + ((lambda (_%print69551%_) + (let ((_%print69562%_ + (if (eq? _%print69551%_ '#t) + (foldr (lambda (_%g6955369556%_ + _%g6955469559%_) + (cons _%g6955369556%_ + _%g6955469559%_)) + '() + _%L68351%_) + _%print69551%_))) + (cons (cons 'print: _%print69562%_) + _%properties69544%_))) + _%$e69547%_) + _%properties69544%_))) + (_%properties69590%_ + (let ((_%$e69570%_ + (gx#stx-e (gx#stx-getq 'equal: _%body68109%_)))) + (if _%$e69570%_ + ((lambda (_%equal69574%_) + (let ((_%equal69585%_ + (if (eq? _%equal69574%_ '#t) + (foldr (lambda (_%g6957669579%_ + _%g6957769582%_) + (cons _%g6957669579%_ + _%g6957769582%_)) + '() + _%L68351%_) + _%equal69574%_))) + (cons (cons 'equal: _%equal69585%_) + _%properties69567%_))) + _%$e69570%_) + _%properties69567%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%properties69590%_)) + (_%type-properties69633%_ + (if (null? _%properties69595%_) + '() + (let* ((_%g6959869606%_ + (lambda (_%g6959969602%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6959969602%_))) + (_%g6959769629%_ + (lambda (_%g6959969610%_) + ((lambda (_%L69613%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons 'properties: + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L69613%_ '())) + '()))) + _%g6959969610%_)))) + (_%g6959769629%_ _%properties69595%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%metaclass69645%_ + (let ((_%$e69636%_ + (gx#stx-getq + 'metaclass: + _%body68109%_))) + (if _%$e69636%_ + ((lambda (_%metaclass69640%_) + (if (gx#identifier? + _%metaclass69640%_) + _%metaclass69640%_ + '#f)) + _%$e69636%_) + '#f))) + (_%final?69648%_ + (gx#stx-e + (gx#stx-getq + 'final: + _%body68109%_))) + (_%type-struct69651%_ + (cons 'struct: + (cons _%struct?68144%_ + '()))) + (_%type-final69654%_ + (cons 'final: + (cons _%final?69648%_ + '()))) + (_%type-metaclass69657%_ + (if _%metaclass69645%_ + (cons 'metaclass: + (cons _%metaclass69645%_ + '())) + '())) + (_%g6966069677%_ + (lambda (_%g6966169673%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6966169673%_))) + (_%g6965972129%_ + (lambda (_%g6966169681%_) + (if (gx#stx-pair/null? + _%g6966169681%_) + (let ((_g80702_ + (gx#syntax-split-splice + _%g6966169681%_ + '0))) + (begin + (let ((_g80703_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (if (##values? _g80702_) + (##vector-length _g80702_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g80703_ 2))) + (error "Context expects 2 values" _g80703_))) + (let ((_%target6966369684%_ + (let () + (declare (not safe)) + (##vector-ref _g80702_ 0))) + (_%tl6966569687%_ + (let () + (declare (not safe)) + (##vector-ref _g80702_ 1)))) + (if (gx#stx-null? _%tl6966569687%_) + (letrec ((_%loop6966669690%_ + (lambda (_%hd6966469694%_ + _%type-body6967069697%_) + (if (gx#stx-pair? _%hd6966469694%_) + (let ((_%e6966769700%_ + (gx#syntax-e _%hd6966469694%_))) + (let ((_%lp-hd6966869704%_ + (let () + (declare (not safe)) + (##car _%e6966769700%_))) + (_%lp-tl6966969707%_ + (let () + (declare (not safe)) + (##cdr _%e6966769700%_)))) + (_%loop6966669690%_ + _%lp-tl6966969707%_ + (cons _%lp-hd6966869704%_ + _%type-body6967069697%_)))) + (let ((_%type-body6967169710%_ + (reverse _%type-body6967069697%_))) + ((lambda (_%L69714%_) + (let* ((_%g6973569743%_ + (lambda (_%g6973669739%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6973669739%_))) + (_%g6973472117%_ + (lambda (_%g6973669747%_) + ((lambda (_%L69750%_) + (let* ((_%g6976369771%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g6976469767%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6993969942%_))) - (_%g6993772280%_ - (lambda (_%g6993969950%_) - ((lambda (_%L69953%_) - (let () - (let* ((_%g6996669974%_ - (lambda (_%g6996769970%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6996769970%_))) - (_%g6996572209%_ - (lambda (_%g6996769978%_) - ((lambda (_%L69981%_) - (let () - (let* ((_%g6999470002%_ - (lambda (_%g6999569998%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6999569998%_))) - (_%g6999372174%_ - (lambda (_%g6999570006%_) - ((lambda (_%L70009%_) - (let () - (let* ((_%g7002270030%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7002370026%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7002370026%_))) - (_%g7002172088%_ - (lambda (_%g7002370034%_) - ((lambda (_%L70037%_) - (let () - (let* ((_%g7005070058%_ - (lambda (_%g7005170054%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7005170054%_))) - (_%g7004972076%_ - (lambda (_%g7005170062%_) - ((lambda (_%L70065%_) - (let () - (let* ((_%g7007870086%_ - (lambda (_%g7007970082%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7007970082%_))) - (_%g7007772064%_ - (lambda (_%g7007970090%_) - ((lambda (_%L70093%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (let* ((_%g7010670114%_ - (lambda (_%g7010770110%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7010770110%_))) - (_%g7010571950%_ - (lambda (_%g7010770118%_) - ((lambda (_%L70121%_) - (let () - (let* ((_%g7013470142%_ - (lambda (_%g7013570138%_) + _%g6976469767%_))) + (_%g6976272105%_ + (lambda (_%g6976469775%_) + ((lambda (_%L69778%_) + (let* ((_%g6979169799%_ + (lambda (_%g6979269795%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6979269795%_))) + (_%g6979072034%_ + (lambda (_%g6979269803%_) + ((lambda (_%L69806%_) + (let* ((_%g6981969827%_ + (lambda (_%g6982069823%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6982069823%_))) + (_%g6981871999%_ + (lambda (_%g6982069831%_) + ((lambda (_%L69834%_) + (let* ((_%g6984769855%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g6984869851%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6984869851%_))) + (_%g6984671913%_ + (lambda (_%g6984869859%_) + ((lambda (_%L69862%_) + (let* ((_%g6987569883%_ + (lambda (_%g6987669879%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6987669879%_))) + (_%g6987471901%_ + (lambda (_%g6987669887%_) + ((lambda (_%L69890%_) + (let* ((_%g6990369911%_ + (lambda (_%g6990469907%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7013570138%_))) - (_%g7013371839%_ - (lambda (_%g7013570146%_) - ((lambda (_%L70149%_) - (let () - (let* ((_%g7016270170%_ + _%g6990469907%_))) + (_%g6990271889%_ + (lambda (_%g6990469915%_) + ((lambda (_%L69918%_) + (let* ((_%g6993169939%_ + (lambda (_%g6993269935%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7016370166%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7016370166%_))) - (_%g7016171728%_ - (lambda (_%g7016370174%_) - ((lambda (_%L70177%_) - (let () - (let* ((_%g7019070198%_ - (lambda (_%g7019170194%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7019170194%_))) - (_%g7018971724%_ - (lambda (_%g7019170202%_) - ((lambda (_%L70205%_) - (let () - (let* ((_%g7021870226%_ - (lambda (_%g7021970222%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7021970222%_))) - (_%g7021771720%_ - (lambda (_%g7021970230%_) - ((lambda (_%L70233%_) - (let () - (let* ((_%g7024670254%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7024770250%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7024770250%_))) - (_%g7024571685%_ - (lambda (_%g7024770258%_) - ((lambda (_%L70261%_) - (let () - (let* ((_%g7027470282%_ - (lambda (_%g7027570278%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7027570278%_))) - (_%g7027371614%_ - (lambda (_%g7027570286%_) - ((lambda (_%L70289%_) - (let () - (let* ((_%g7030270310%_ - (lambda (_%g7030370306%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7030370306%_))) - (_%g7030171610%_ - (lambda (_%g7030370314%_) - ((lambda (_%L70317%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6993269935%_))) + (_%g6993071775%_ + (lambda (_%g6993269943%_) + ((lambda (_%L69946%_) + (let* ((_%g6995969967%_ + (lambda (_%g6996069963%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6996069963%_))) + (_%g6995871664%_ + (lambda (_%g6996069971%_) + ((lambda (_%L69974%_) + (let* ((_%g6998769995%_ + (lambda (_%g6998869991%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6998869991%_))) + (_%g6998671553%_ + (lambda (_%g6998869999%_) + ((lambda (_%L70002%_) + (let* ((_%g7001570023%_ + (lambda (_%g7001670019%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (let* ((_%g7033070338%_ - (lambda (_%g7033170334%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7001670019%_))) + (_%g7001471549%_ + (lambda (_%g7001670027%_) + ((lambda (_%L70030%_) + (let* ((_%g7004370051%_ + (lambda (_%g7004470047%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7033170334%_))) - (_%g7032971606%_ - (lambda (_%g7033170342%_) - ((lambda (_%L70345%_) - (let () - (let* ((_%g7035870366%_ - (lambda (_%g7035970362%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7035970362%_))) - (_%g7035771602%_ - (lambda (_%g7035970370%_) - ((lambda (_%L70373%_) - (let () - (let* ((_%g7038670394%_ + _%g7004470047%_))) + (_%g7004271545%_ + (lambda (_%g7004470055%_) + ((lambda (_%L70058%_) + (let* ((_%g7007170079%_ + (lambda (_%g7007270075%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7007270075%_))) + (_%g7007071510%_ + (lambda (_%g7007270083%_) + ((lambda (_%L70086%_) + (let* ((_%g7009970107%_ + (lambda (_%g7010070103%_) + (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7038770390%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7038770390%_))) - (_%g7038571576%_ - (lambda (_%g7038770398%_) - ((lambda (_%L70401%_) - (let () - (let* ((_%g7041470422%_ - (lambda (_%g7041570418%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7041570418%_))) - (_%g7041371550%_ - (lambda (_%g7041570426%_) - ((lambda (_%L70429%_) - (let () - (let* ((_%g7044270450%_ - (lambda (_%g7044370446%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7044370446%_))) - (_%g7044171524%_ - (lambda (_%g7044370454%_) - ((lambda (_%L70457%_) - (let () - (let* ((_%map-slot-usetf70475%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%slot70470%_ - _%setf70472%_ - _%rawsetf70473%_) - (cons 'cons - (cons (cons 'quote - (cons _%slot70470%_ '())) - (cons (if (hash-get - _%slot-contract-table68293%_ - (gx#stx-e - _%slot70470%_)) - (cons 'quote-syntax - (cons (gx#stx-identifier -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rawsetf70473%_ - '"&" - _%rawsetf70473%_) - '())) - (cons 'quote-syntax (cons _%setf70472%_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - (_%g7047870486%_ - (lambda (_%g7047970482%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7047970482%_))) - (_%g7047771306%_ - (lambda (_%g7047970490%_) - ((lambda (_%L70493%_) - (let () - (let* ((_%g7050770515%_ - (lambda (_%g7050870511%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7050870511%_))) - (_%g7050671302%_ - (lambda (_%g7050870519%_) - ((lambda (_%L70522%_) - (let () - (let* ((_%g7053570543%_ - (lambda (_%g7053670539%_) + '#f + '"Bad syntax; invalid match target" + _%g7010070103%_))) + (_%g7009871439%_ + (lambda (_%g7010070111%_) + ((lambda (_%L70114%_) + (let* ((_%g7012770135%_ + (lambda (_%g7012870131%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7012870131%_))) + (_%g7012671435%_ + (lambda (_%g7012870139%_) + ((lambda (_%L70142%_) + (let* ((_%g7015570163%_ + (lambda (_%g7015670159%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7015670159%_))) + (_%g7015471431%_ + (lambda (_%g7015670167%_) + ((lambda (_%L70170%_) + (let* ((_%g7018370191%_ + (lambda (_%g7018470187%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7053670539%_))) - (_%g7053470788%_ - (lambda (_%g7053670547%_) - ((lambda (_%L70550%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (let* ((_%g7056370580%_ - (lambda (_%g7056470576%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7056470576%_))) - (_%g7056270644%_ - (lambda (_%g7056470584%_) - (if (gx#stx-pair/null? _%g7056470584%_) - (let ((_g80979_ - (gx#syntax-split-splice - _%g7056470584%_ - '0))) - (begin - (let ((_g80980_ - (let () - (declare (not safe)) - (if (##values? _g80979_) - (##vector-length - _g80979_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g80980_ 2))) - (error "Context expects 2 values" - _g80980_))) - (let ((_%target7056670587%_ - (let () - (declare (not safe)) - (##vector-ref - _g80979_ - 0))) - (_%tl7056870590%_ - (let () - (declare (not safe)) - (##vector-ref - _g80979_ - 1)))) - (if (gx#stx-null? - _%tl7056870590%_) - (letrec ((_%loop7056970593%_ - (lambda (_%hd7056770597%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%defsetf7057370600%_) - (if (gx#stx-pair? _%hd7056770597%_) - (let ((_%e7057070603%_ - (gx#syntax-e _%hd7056770597%_))) - (let ((_%lp-hd7057170607%_ - (let () - (declare (not safe)) - (##car _%e7057070603%_))) - (_%lp-tl7057270610%_ - (let () - (declare (not safe)) - (##cdr _%e7057070603%_)))) - (_%loop7056970593%_ - _%lp-tl7057270610%_ - (cons _%lp-hd7057170607%_ - _%defsetf7057370600%_)))) - (let ((_%defsetf7057470613%_ - (reverse _%defsetf7057370600%_))) - ((lambda (_%L70617%_) - (let () - (cons (gx#datum->syntax '#f 'begin) - (cons _%L69953%_ - (cons _%L70522%_ - (cons _%L70550%_ - (foldr (lambda (_%g7063570638%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7063670641%_) - (cons _%g7063570638%_ _%g7063670641%_)) - '() - _%L70617%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%defsetf7057470613%_)))))) - (_%loop7056970593%_ _%target7056670587%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7056370580%_ - _%g7056470584%_))))) - (_%g7056370580%_ _%g7056470584%_))))) - (_%g7056270644%_ - (let ((__tmp80981 - (map (lambda (_%slot70648%_ - _%setf70650%_ - _%rawsetf70651%_) - (let ((_%contract7065270654%_ - (hash-get - _%slot-contract-table68293%_ - (gx#stx-e - _%slot70648%_)))) - (if _%contract7065270654%_ - (let* ((_%contract70658%_ - _%contract7065270654%_) - (_%g7066170684%_ - (lambda (_%g7066270680%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7066270680%_))) - (_%g7066070760%_ - (lambda (_%g7066270688%_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7066270688%_) - (let ((_%e7066970691%_ (gx#syntax-e _%g7066270688%_))) - (let ((_%hd7066870695%_ - (let () - (declare (not safe)) - (##car _%e7066970691%_))) - (_%tl7066770698%_ - (let () - (declare (not safe)) - (##cdr _%e7066970691%_)))) - (if (gx#stx-pair? _%tl7066770698%_) - (let ((_%e7067270701%_ - (gx#syntax-e _%tl7066770698%_))) - (let ((_%hd7067170705%_ - (let () - (declare (not safe)) - (##car _%e7067270701%_))) - (_%tl7067070708%_ - (let () - (declare (not safe)) - (##cdr _%e7067270701%_)))) - (if (gx#stx-pair? _%tl7067070708%_) - (let ((_%e7067570711%_ - (gx#syntax-e - _%tl7067070708%_))) - (let ((_%hd7067470715%_ - (let () - (declare (not safe)) - (##car _%e7067570711%_))) - (_%tl7067370718%_ - (let () - (declare (not safe)) - (##cdr _%e7067570711%_)))) - (if (gx#stx-pair? - _%tl7067370718%_) - (let ((_%e7067870721%_ - (gx#syntax-e - _%tl7067370718%_))) - (let ((_%hd7067770725%_ - (let () - (declare - (not safe)) - (##car _%e7067870721%_))) - (_%tl7067670728%_ - (let () - (declare - (not safe)) - (##cdr _%e7067870721%_)))) - (if (gx#stx-null? - _%tl7067670728%_) - ((lambda (_%L70731%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L70733%_ - _%L70734%_ - _%L70735%_) - (let () - (_%wrap68145%_ - (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L70733%_ - (cons (cons (gx#datum->syntax - '#f - '$obj) - (cons (gx#datum->syntax - '#f - ':) - (cons _%L68337%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L70735%_ '()))) - (cons (gx#datum->syntax '#f '=>) - (cons (gx#datum->syntax '#f ':void) - (cons (cons _%L70731%_ - (cons (gx#datum->syntax + _%g7018470187%_))) + (_%g7018271427%_ + (lambda (_%g7018470195%_) + ((lambda (_%L70198%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '$obj) - (cons _%L70734%_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))))) - _%hd7067770725%_ - _%hd7067470715%_ - _%hd7067170705%_ - _%hd7066870695%_) - (_%g7066170684%_ _%g7066270688%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7066170684%_ - _%g7066270688%_)))) - (_%g7066170684%_ _%g7066270688%_)))) - (_%g7066170684%_ _%g7066270688%_)))) - (_%g7066170684%_ _%g7066270688%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7066070760%_ - (list (cons _%slot70648%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%contract70658%_) - _%slot70648%_ - _%setf70650%_ - (gx#stx-identifier - _%rawsetf70651%_ - '"&" - _%rawsetf70651%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '#f))) - (foldr (lambda (_%g7076370766%_ - _%g7076470769%_) - (cons _%g7076370766%_ - _%g7076470769%_)) - '() - _%L68526%_) - (foldr (lambda (_%g7077170774%_ - _%g7077270777%_) - (cons _%g7077170774%_ - _%g7077270777%_)) - '() - _%L68739%_) - (foldr (lambda (_%g7077970782%_ - _%g7078070785%_) - (cons _%g7077970782%_ - _%g7078070785%_)) - '() - _%L68810%_)))) - (declare (not safe)) - (##filter identity __tmp80981)))))) - _%g7053670547%_)))) - (_%g7053470788%_ - (if (or (let ((__tmp80982 - (let () - (declare (not safe)) - (null? _%type-constructor69716%_)))) - (declare (not safe)) - (not __tmp80982)) - (and (zero? (hash-length _%slot-contract-table68293%_)) - (zero? (hash-length _%slot-default-table68296%_))) - _%metaclass69820%_) - (let () (cons (gx#datum->syntax '#f 'begin) '())) - (if (and _%struct?68319%_ - (zero? (hash-length _%slot-default-table68296%_))) - (let () - (let* ((_%g7080470819%_ - (lambda (_%g7080570815%_) + (let* ((_%g7021170219%_ + (lambda (_%g7021270215%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7080570815%_))) - (_%g7080370873%_ - (lambda (_%g7080570823%_) - (if (gx#stx-pair? _%g7080570823%_) - (let ((_%e7081070826%_ - (gx#syntax-e _%g7080570823%_))) - (let ((_%hd7080970830%_ + _%g7021270215%_))) + (_%g7021071401%_ + (lambda (_%g7021270223%_) + ((lambda (_%L70226%_) + (let* ((_%g7023970247%_ + (lambda (_%g7024070243%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7024070243%_))) + (_%g7023871375%_ + (lambda (_%g7024070251%_) + ((lambda (_%L70254%_) + (let* ((_%g7026770275%_ + (lambda (_%g7026870271%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7026870271%_))) + (_%g7026671349%_ + (lambda (_%g7026870279%_) + ((lambda (_%L70282%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let* ((_%map-slot-usetf70300%_ + (lambda (_%slot70295%_ + _%setf70297%_ + _%rawsetf70298%_) + (cons 'cons + (cons (cons 'quote + (cons _%slot70295%_ '())) + (cons (if (hash-get + _%slot-contract-table68118%_ + (gx#stx-e + _%slot70295%_)) + (cons 'quote-syntax + (cons (gx#stx-identifier +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%rawsetf70298%_ + '"&" + _%rawsetf70298%_) + '())) + (cons 'quote-syntax (cons _%setf70297%_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))))) + (_%g7030370311%_ + (lambda (_%g7030470307%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7030470307%_))) + (_%g7030271131%_ + (lambda (_%g7030470315%_) + ((lambda (_%L70318%_) + (let* ((_%g7033270340%_ + (lambda (_%g7033370336%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7033370336%_))) + (_%g7033171127%_ + (lambda (_%g7033370344%_) + ((lambda (_%L70347%_) + (let* ((_%g7036070368%_ + (lambda (_%g7036170364%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7036170364%_))) + (_%g7035970613%_ + (lambda (_%g7036170372%_) + ((lambda (_%L70375%_) + (let* ((_%g7038870405%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g7038970401%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7038970401%_))) + (_%g7038770469%_ + (lambda (_%g7038970409%_) + (if (gx#stx-pair/null? _%g7038970409%_) + (let ((_g80704_ + (gx#syntax-split-splice + _%g7038970409%_ + '0))) + (begin + (let ((_g80705_ (let () (declare (not safe)) - (##car _%e7081070826%_))) - (_%tl7080870833%_ + (if (##values? _g80704_) + (##vector-length + _g80704_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g80705_ 2))) + (error "Context expects 2 values" + _g80705_))) + (let ((_%target7039170412%_ (let () (declare (not safe)) - (##cdr _%e7081070826%_)))) - (if (gx#stx-pair? _%tl7080870833%_) - (let ((_%e7081370836%_ - (gx#syntax-e - _%tl7080870833%_))) - (let ((_%hd7081270840%_ - (let () - (declare (not safe)) - (##car _%e7081370836%_))) - (_%tl7081170843%_ - (let () - (declare (not safe)) - (##cdr _%e7081370836%_)))) - (if (gx#stx-null? - _%tl7081170843%_) - ((lambda (_%L70846%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L70848%_) - (let () - (_%wrap68145%_ - (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L68403%_ _%L70848%_) - (cons (gx#datum->syntax '#f '=>) - (cons _%L68337%_ - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@type) - (cons _%L70846%_ '())) - (cons (cons (gx#datum->syntax '#f '##structure) - (cons _%L70846%_ - (foldr (lambda (_%g7086470867%_ - _%g7086570870%_) - (cons _%g7086470867%_ - _%g7086570870%_)) - '() - _%L68597%_))) - '()))) + (##vector-ref _g80704_ 0))) + (_%tl7039370415%_ + (let () + (declare (not safe)) + (##vector-ref _g80704_ 1)))) + (if (gx#stx-null? _%tl7039370415%_) + (letrec ((_%loop7039470418%_ + (lambda (_%hd7039270422%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%defsetf7039870425%_) + (if (gx#stx-pair? _%hd7039270422%_) + (let ((_%e7039570428%_ (gx#syntax-e _%hd7039270422%_))) + (let ((_%lp-hd7039670432%_ + (let () + (declare (not safe)) + (##car _%e7039570428%_))) + (_%lp-tl7039770435%_ + (let () + (declare (not safe)) + (##cdr _%e7039570428%_)))) + (_%loop7039470418%_ + _%lp-tl7039770435%_ + (cons _%lp-hd7039670432%_ + _%defsetf7039870425%_)))) + (let ((_%defsetf7039970438%_ + (reverse _%defsetf7039870425%_))) + ((lambda (_%L70442%_) + (cons (gx#datum->syntax '#f 'begin) + (cons _%L69778%_ + (cons _%L70347%_ + (cons _%L70375%_ + (foldr (lambda (_%g7046070463%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7046170466%_) + (cons _%g7046070463%_ _%g7046170466%_)) + '() + _%L70442%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))))) - _%hd7081270840%_ - _%hd7080970830%_) - (_%g7080470819%_ _%g7080570823%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7080470819%_ - _%g7080570823%_)))) - (_%g7080470819%_ _%g7080570823%_))))) - (_%g7080370873%_ - (list (foldr (lambda (_%slot70877%_ _%r70879%_) - (let ((_%$e70881%_ - (hash-get - _%slot-contract-table68293%_ - (gx#stx-e _%slot70877%_)))) - (if _%$e70881%_ - ((lambda (_%contract70885%_) - (let* ((_%g7088870912%_ - (lambda (_%g7088970908%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7088970908%_))) - (_%g7088771002%_ - (lambda (_%g7088970916%_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7088970916%_) - (let ((_%e7089470919%_ - (gx#syntax-e _%g7088970916%_))) - (let ((_%hd7089370923%_ - (let () - (declare (not safe)) - (##car _%e7089470919%_))) - (_%tl7089270926%_ - (let () - (declare (not safe)) - (##cdr _%e7089470919%_)))) - (if (gx#stx-pair? _%tl7089270926%_) - (let ((_%e7089770929%_ - (gx#syntax-e _%tl7089270926%_))) - (let ((_%hd7089670933%_ - (let () - (declare (not safe)) - (##car _%e7089770929%_))) - (_%tl7089570936%_ - (let () - (declare (not safe)) - (##cdr _%e7089770929%_)))) - (if (gx#stx-pair/null? _%hd7089670933%_) - (let ((_g80983_ - (gx#syntax-split-splice - _%hd7089670933%_ - '0))) - (begin - (let ((_g80984_ - (let () - (declare (not safe)) - (if (##values? - _g80983_) - (##vector-length - _g80983_) - 1)))) - (if (not (let () - (declare - (not safe)) - (##fx= _g80984_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - 2))) + _%defsetf7039970438%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (error "Context expects 2 values" - _g80984_))) - (let ((_%target7089870939%_ - (let () - (declare (not safe)) - (##vector-ref - _g80983_ - 0))) - (_%tl7090070942%_ - (let () - (declare (not safe)) - (##vector-ref - _g80983_ - 1)))) - (if (gx#stx-null? - _%tl7090070942%_) - (letrec ((_%loop7090170945%_ - (lambda (_%hd7089970949%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%contract7090570952%_) - (if (gx#stx-pair? _%hd7089970949%_) - (let ((_%e7090270955%_ - (gx#syntax-e _%hd7089970949%_))) - (let ((_%lp-hd7090370959%_ + (_%loop7039470418%_ + _%target7039170412%_ + '())) + (_%g7038870405%_ + _%g7038970409%_))))) + (_%g7038870405%_ _%g7038970409%_))))) + (_%g7038770469%_ + (let ((__tmp80706 + (map (lambda (_%slot70473%_ + _%setf70475%_ + _%rawsetf70476%_) + (let ((_%contract7047770479%_ + (hash-get + _%slot-contract-table68118%_ + (gx#stx-e _%slot70473%_)))) + (if _%contract7047770479%_ + (let* ((_%contract70483%_ + _%contract7047770479%_) + (_%g7048670509%_ + (lambda (_%g7048770505%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7048770505%_))) + (_%g7048570585%_ + (lambda (_%g7048770513%_) + (if (gx#stx-pair? + _%g7048770513%_) + (let ((_%e7049470516%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%g7048770513%_))) + (let ((_%hd7049370520%_ + (let () + (declare (not safe)) + (##car _%e7049470516%_))) + (_%tl7049270523%_ + (let () + (declare (not safe)) + (##cdr _%e7049470516%_)))) + (if (gx#stx-pair? _%tl7049270523%_) + (let ((_%e7049770526%_ + (gx#syntax-e _%tl7049270523%_))) + (let ((_%hd7049670530%_ (let () (declare (not safe)) - (##car _%e7090270955%_))) - (_%lp-tl7090470962%_ + (##car _%e7049770526%_))) + (_%tl7049570533%_ (let () (declare (not safe)) - (##cdr _%e7090270955%_)))) - (_%loop7090170945%_ - _%lp-tl7090470962%_ - (cons _%lp-hd7090370959%_ - _%contract7090570952%_)))) - (let ((_%contract7090670965%_ - (reverse _%contract7090570952%_))) - (if (gx#stx-null? _%tl7089570936%_) - ((lambda (_%L70969%_ _%L70971%_) - (let () - (cons (cons _%L70971%_ - (foldr (lambda (_%g7099370996%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7099470999%_) - (cons _%g7099370996%_ _%g7099470999%_)) - '() - _%L70969%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r70879%_))) - _%contract7090670965%_ - _%hd7089370923%_) - (_%g7088870912%_ _%g7088970916%_))))))) - (_%loop7090170945%_ _%target7089870939%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7088870912%_ - _%g7088970916%_))))) - (_%g7088870912%_ _%g7088970916%_)))) - (_%g7088870912%_ _%g7088970916%_)))) - (_%g7088870912%_ _%g7088970916%_))))) - (_%g7088771002%_ (list _%slot70877%_ _%contract70885%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e70881%_) - (let () - (cons _%slot70877%_ - _%r70879%_))))) - '() - (foldr (lambda (_%g7100771010%_ - _%g7100871013%_) - (cons _%g7100771010%_ - _%g7100871013%_)) - '() - _%L68597%_)) - (gx#core-quote-syntax _%L68375%_))))) - (let () - (let* ((_%g7101871033%_ - (lambda (_%g7101971029%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7101971029%_))) - (_%g7101771086%_ - (lambda (_%g7101971037%_) - (if (gx#stx-pair? _%g7101971037%_) - (let ((_%e7102471040%_ - (gx#syntax-e _%g7101971037%_))) - (let ((_%hd7102371044%_ - (let () - (declare (not safe)) - (##car _%e7102471040%_))) - (_%tl7102271047%_ - (let () - (declare (not safe)) - (##cdr _%e7102471040%_)))) - (if (gx#stx-pair? _%tl7102271047%_) - (let ((_%e7102771050%_ - (gx#syntax-e - _%tl7102271047%_))) - (let ((_%hd7102671054%_ - (let () - (declare (not safe)) - (##car _%e7102771050%_))) - (_%tl7102571057%_ - (let () - (declare (not safe)) - (##cdr _%e7102771050%_)))) - (if (gx#stx-null? - _%tl7102571057%_) - ((lambda (_%L71060%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L71062%_) - (let () - (_%wrap68145%_ - (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L68403%_ _%L71062%_) - (cons (gx#datum->syntax '#f '=>) - (cons _%L68337%_ - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@type) - (cons _%L71060%_ '())) - (cons (cons (gx#datum->syntax '#f '##structure) - (cons _%L71060%_ - (foldr (lambda (_%g7107771080%_ - _%g7107871083%_) - (cons _%g7107771080%_ - _%g7107871083%_)) - '() - _%L68597%_))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))))) - _%hd7102671054%_ - _%hd7102371044%_) - (_%g7101871033%_ _%g7101971037%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7101871033%_ - _%g7101971037%_)))) - (_%g7101871033%_ _%g7101971037%_))))) - (_%g7101771086%_ - (list (foldr (lambda (_%slot71090%_ _%r71092%_) - (let* ((_%default71094%_ - (hash-get - _%slot-default-table68296%_ - (gx#stx-e _%slot71090%_))) - (_%$e71097%_ - (hash-get - _%slot-contract-table68293%_ - (gx#stx-e - _%slot71090%_)))) - (if _%$e71097%_ - ((lambda (_%contract71101%_) - (let* ((_%g7110471141%_ - (lambda (_%g7110571137%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7110571137%_))) - (_%g7110371288%_ - (lambda (_%g7110571145%_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7110571145%_) - (let ((_%e7111171148%_ - (gx#syntax-e _%g7110571145%_))) - (let ((_%hd7111071152%_ - (let () - (declare (not safe)) - (##car _%e7111171148%_))) - (_%tl7110971155%_ - (let () - (declare (not safe)) - (##cdr _%e7111171148%_)))) - (if (gx#stx-pair? _%tl7110971155%_) - (let ((_%e7111471158%_ - (gx#syntax-e _%tl7110971155%_))) - (let ((_%hd7111371162%_ - (let () - (declare (not safe)) - (##car _%e7111471158%_))) - (_%tl7111271165%_ - (let () - (declare (not safe)) - (##cdr _%e7111471158%_)))) - (if (gx#stx-pair/null? _%hd7111371162%_) - (let ((_g80985_ - (gx#syntax-split-splice - _%hd7111371162%_ - '0))) - (begin - (let ((_g80986_ - (let () - (declare (not safe)) - (if (##values? - _g80985_) - (##vector-length - _g80985_) - 1)))) - (if (not (let () - (declare - (not safe)) - (##fx= _g80986_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - 2))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (error "Context expects 2 values" - _g80986_))) - (let ((_%target7111571168%_ + (##cdr _%e7049770526%_)))) + (if (gx#stx-pair? _%tl7049570533%_) + (let ((_%e7050070536%_ + (gx#syntax-e _%tl7049570533%_))) + (let ((_%hd7049970540%_ + (let () + (declare (not safe)) + (##car _%e7050070536%_))) + (_%tl7049870543%_ + (let () + (declare (not safe)) + (##cdr _%e7050070536%_)))) + (if (gx#stx-pair? _%tl7049870543%_) + (let ((_%e7050370546%_ + (gx#syntax-e + _%tl7049870543%_))) + (let ((_%hd7050270550%_ (let () (declare (not safe)) - (##vector-ref - _g80985_ - 0))) - (_%tl7111771171%_ + (##car _%e7050370546%_))) + (_%tl7050170553%_ (let () (declare (not safe)) - (##vector-ref - _g80985_ - 1)))) + (##cdr _%e7050370546%_)))) (if (gx#stx-null? - _%tl7111771171%_) - (letrec ((_%loop7111871174%_ - (lambda (_%hd7111671178%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%contract7112271181%_) - (if (gx#stx-pair? _%hd7111671178%_) - (let ((_%e7111971184%_ - (gx#syntax-e _%hd7111671178%_))) - (let ((_%lp-hd7112071188%_ - (let () - (declare (not safe)) - (##car _%e7111971184%_))) - (_%lp-tl7112171191%_ - (let () - (declare (not safe)) - (##cdr _%e7111971184%_)))) - (_%loop7111871174%_ - _%lp-tl7112171191%_ - (cons _%lp-hd7112071188%_ - _%contract7112271181%_)))) - (let ((_%contract7112371194%_ - (reverse _%contract7112271181%_))) - (if (gx#stx-pair? _%tl7111271165%_) - (let ((_%e7112671198%_ - (gx#syntax-e _%tl7111271165%_))) - (let ((_%hd7112571202%_ - (let () - (declare (not safe)) - (##car _%e7112671198%_))) - (_%tl7112471205%_ - (let () - (declare (not safe)) - (##cdr _%e7112671198%_)))) - (if (gx#stx-pair/null? _%hd7112571202%_) - (let ((_g80987_ - (gx#syntax-split-splice - _%hd7112571202%_ - '0))) - (begin - (let ((_g80988_ - (let () - (declare (not safe)) - (if (##values? - _g80987_) - (##vector-length - _g80987_) - 1)))) - (if (not (let () - (declare - (not safe)) - (##fx= _g80988_ + _%tl7050170553%_) + ((lambda (_%L70556%_ + _%L70558%_ + _%L70559%_ + _%L70560%_) + (_%wrap67970%_ + (cons (gx#datum->syntax + '#f + 'def/c) + (cons (cons _%L70558%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons (gx#datum->syntax '#f '$obj) + (cons (gx#datum->syntax '#f ':) + (cons _%L68162%_ '()))) + (cons _%L70560%_ '()))) + (cons (gx#datum->syntax '#f '=>) + (cons (gx#datum->syntax '#f ':void) + (cons (cons _%L70556%_ + (cons (gx#datum->syntax + '#f + '$obj) + (cons _%L70559%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - 2))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (error "Context expects 2 values" - _g80988_))) - (let ((_%target7112771208%_ - (let () + '()))))))) + _%hd7050270550%_ + _%hd7049970540%_ + _%hd7049670530%_ + _%hd7049370520%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7048670509%_ + _%g7048770513%_)))) + (_%g7048670509%_ + _%g7048770513%_)))) + (_%g7048670509%_ _%g7048770513%_)))) + (_%g7048670509%_ _%g7048770513%_)))) + (_%g7048670509%_ _%g7048770513%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7048570585%_ + (list (cons _%slot70473%_ + _%contract70483%_) + _%slot70473%_ + _%setf70475%_ + (gx#stx-identifier + _%rawsetf70476%_ + '"&" + _%rawsetf70476%_)))) + '#f))) + (foldr (lambda (_%g7058870591%_ + _%g7058970594%_) + (cons _%g7058870591%_ + _%g7058970594%_)) + '() + _%L68351%_) + (foldr (lambda (_%g7059670599%_ + _%g7059770602%_) + (cons _%g7059670599%_ + _%g7059770602%_)) + '() + _%L68564%_) + (foldr (lambda (_%g7060470607%_ + _%g7060570610%_) + (cons _%g7060470607%_ + _%g7060570610%_)) + '() + _%L68635%_)))) + (declare (not safe)) + (##filter identity __tmp80706))))) + _%g7036170372%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7035970613%_ + (if (or (not (null? _%type-constructor69541%_)) + (and (zero? (hash-length +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%slot-contract-table68118%_)) + (zero? (hash-length _%slot-default-table68121%_))) + _%metaclass69645%_) + (cons (gx#datum->syntax '#f 'begin) '()) + (if (and _%struct?68144%_ + (zero? (hash-length _%slot-default-table68121%_))) + (let* ((_%g7062970644%_ + (lambda (_%g7063070640%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7063070640%_))) + (_%g7062870698%_ + (lambda (_%g7063070648%_) + (if (gx#stx-pair? _%g7063070648%_) + (let ((_%e7063570651%_ + (gx#syntax-e _%g7063070648%_))) + (let ((_%hd7063470655%_ + (let () + (declare (not safe)) + (##car _%e7063570651%_))) + (_%tl7063370658%_ + (let () + (declare (not safe)) + (##cdr _%e7063570651%_)))) + (if (gx#stx-pair? _%tl7063370658%_) + (let ((_%e7063870661%_ + (gx#syntax-e + _%tl7063370658%_))) + (let ((_%hd7063770665%_ + (let () + (declare (not safe)) + (##car _%e7063870661%_))) + (_%tl7063670668%_ + (let () + (declare (not safe)) + (##cdr _%e7063870661%_)))) + (if (gx#stx-null? + _%tl7063670668%_) + ((lambda (_%L70671%_ + _%L70673%_) + (_%wrap67970%_ + (cons (gx#datum->syntax + '#f + 'def/c) + (cons (cons _%L68228%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%L70673%_) + (cons (gx#datum->syntax '#f '=>) + (cons _%L68162%_ + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '@type) + (cons _%L70671%_ '())) + (cons (cons (gx#datum->syntax '#f '##structure) + (cons _%L70671%_ + (foldr (lambda (_%g7068970692%_ + _%g7069070695%_) + (cons _%g7068970692%_ + _%g7069070695%_)) + '() + _%L68422%_))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd7063770665%_ + _%hd7063470655%_) + (_%g7062970644%_ + _%g7063070648%_)))) + (_%g7062970644%_ + _%g7063070648%_)))) + (_%g7062970644%_ _%g7063070648%_))))) + (_%g7062870698%_ + (list (foldr (lambda (_%slot70702%_ _%r70704%_) + (let ((_%$e70706%_ + (hash-get + _%slot-contract-table68118%_ + (gx#stx-e _%slot70702%_)))) + (if _%$e70706%_ + ((lambda (_%contract70710%_) + (let* ((_%g7071370737%_ + (lambda (_%g7071470733%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7071470733%_))) + (_%g7071270827%_ + (lambda (_%g7071470741%_) + (if (gx#stx-pair? + _%g7071470741%_) + (let ((_%e7071970744%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%g7071470741%_))) + (let ((_%hd7071870748%_ + (let () + (declare (not safe)) + (##car _%e7071970744%_))) + (_%tl7071770751%_ + (let () + (declare (not safe)) + (##cdr _%e7071970744%_)))) + (if (gx#stx-pair? _%tl7071770751%_) + (let ((_%e7072270754%_ + (gx#syntax-e _%tl7071770751%_))) + (let ((_%hd7072170758%_ + (let () + (declare (not safe)) + (##car _%e7072270754%_))) + (_%tl7072070761%_ + (let () + (declare (not safe)) + (##cdr _%e7072270754%_)))) + (if (gx#stx-pair/null? _%hd7072170758%_) + (let ((_g80707_ + (gx#syntax-split-splice + _%hd7072170758%_ + '0))) + (begin + (let ((_g80708_ + (let () + (declare (not safe)) + (if (##values? _g80707_) + (##vector-length + _g80707_) + 1)))) + (if (not (let () (declare (not safe)) - (##vector-ref - _g80987_ - 0))) - (_%tl7112971211%_ - (let () + (##fx= _g80708_ 2))) + (error "Context expects 2 values" + _g80708_))) + (let ((_%target7072370764%_ + (let () + (declare (not safe)) + (##vector-ref _g80707_ 0))) + (_%tl7072570767%_ + (let () + (declare (not safe)) + (##vector-ref + _g80707_ + 1)))) + (if (gx#stx-null? + _%tl7072570767%_) + (letrec ((_%loop7072670770%_ + (lambda (_%hd7072470774%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%contract7073070777%_) + (if (gx#stx-pair? _%hd7072470774%_) + (let ((_%e7072770780%_ + (gx#syntax-e _%hd7072470774%_))) + (let ((_%lp-hd7072870784%_ + (let () + (declare (not safe)) + (##car _%e7072770780%_))) + (_%lp-tl7072970787%_ + (let () + (declare (not safe)) + (##cdr _%e7072770780%_)))) + (_%loop7072670770%_ + _%lp-tl7072970787%_ + (cons _%lp-hd7072870784%_ + _%contract7073070777%_)))) + (let ((_%contract7073170790%_ + (reverse _%contract7073070777%_))) + (if (gx#stx-null? _%tl7072070761%_) + ((lambda (_%L70794%_ _%L70796%_) + (cons (cons _%L70796%_ + (foldr (lambda (_%g7081870821%_ + _%g7081970824%_) + (cons _%g7081870821%_ + _%g7081970824%_)) + '() + _%L70794%_)) + _%r70704%_)) + _%contract7073170790%_ + _%hd7071870748%_) + (_%g7071370737%_ _%g7071470741%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7072670770%_ + _%target7072370764%_ + '())) + (_%g7071370737%_ + _%g7071470741%_))))) + (_%g7071370737%_ _%g7071470741%_)))) + (_%g7071370737%_ _%g7071470741%_)))) + (_%g7071370737%_ _%g7071470741%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7071270827%_ + (list _%slot70702%_ + _%contract70710%_)))) + _%$e70706%_) + (cons _%slot70702%_ + _%r70704%_)))) + '() + (foldr (lambda (_%g7083270835%_ + _%g7083370838%_) + (cons _%g7083270835%_ + _%g7083370838%_)) + '() + _%L68422%_)) + (gx#core-quote-syntax _%L68200%_)))) + (let* ((_%g7084370858%_ + (lambda (_%g7084470854%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7084470854%_))) + (_%g7084270911%_ + (lambda (_%g7084470862%_) + (if (gx#stx-pair? _%g7084470862%_) + (let ((_%e7084970865%_ + (gx#syntax-e _%g7084470862%_))) + (let ((_%hd7084870869%_ + (let () + (declare (not safe)) + (##car _%e7084970865%_))) + (_%tl7084770872%_ + (let () + (declare (not safe)) + (##cdr _%e7084970865%_)))) + (if (gx#stx-pair? _%tl7084770872%_) + (let ((_%e7085270875%_ + (gx#syntax-e + _%tl7084770872%_))) + (let ((_%hd7085170879%_ + (let () + (declare (not safe)) + (##car _%e7085270875%_))) + (_%tl7085070882%_ + (let () + (declare (not safe)) + (##cdr _%e7085270875%_)))) + (if (gx#stx-null? + _%tl7085070882%_) + ((lambda (_%L70885%_ + _%L70887%_) + (_%wrap67970%_ + (cons (gx#datum->syntax + '#f + 'def/c) + (cons (cons _%L68228%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%L70887%_) + (cons (gx#datum->syntax '#f '=>) + (cons _%L68162%_ + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '@type) + (cons _%L70885%_ '())) + (cons (cons (gx#datum->syntax '#f '##structure) + (cons _%L70885%_ + (foldr (lambda (_%g7090270905%_ + _%g7090370908%_) + (cons _%g7090270905%_ + _%g7090370908%_)) + '() + _%L68422%_))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd7085170879%_ + _%hd7084870869%_) + (_%g7084370858%_ + _%g7084470862%_)))) + (_%g7084370858%_ + _%g7084470862%_)))) + (_%g7084370858%_ _%g7084470862%_))))) + (_%g7084270911%_ + (list (foldr (lambda (_%slot70915%_ _%r70917%_) + (let* ((_%default70919%_ + (hash-get + _%slot-default-table68121%_ + (gx#stx-e _%slot70915%_))) + (_%$e70922%_ + (hash-get + _%slot-contract-table68118%_ + (gx#stx-e _%slot70915%_)))) + (if _%$e70922%_ + ((lambda (_%contract70926%_) + (let* ((_%g7092970966%_ + (lambda (_%g7093070962%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7093070962%_))) + (_%g7092871113%_ + (lambda (_%g7093070970%_) + (if (gx#stx-pair? + _%g7093070970%_) + (let ((_%e7093670973%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%g7093070970%_))) + (let ((_%hd7093570977%_ + (let () + (declare (not safe)) + (##car _%e7093670973%_))) + (_%tl7093470980%_ + (let () + (declare (not safe)) + (##cdr _%e7093670973%_)))) + (if (gx#stx-pair? _%tl7093470980%_) + (let ((_%e7093970983%_ + (gx#syntax-e _%tl7093470980%_))) + (let ((_%hd7093870987%_ + (let () + (declare (not safe)) + (##car _%e7093970983%_))) + (_%tl7093770990%_ + (let () + (declare (not safe)) + (##cdr _%e7093970983%_)))) + (if (gx#stx-pair/null? _%hd7093870987%_) + (let ((_g80709_ + (gx#syntax-split-splice + _%hd7093870987%_ + '0))) + (begin + (let ((_g80710_ + (let () + (declare (not safe)) + (if (##values? _g80709_) + (##vector-length + _g80709_) + 1)))) + (if (not (let () (declare (not safe)) - (##vector-ref - _g80987_ - 1)))) - (if (gx#stx-null? - _%tl7112971211%_) - (letrec ((_%loop7113071214%_ - (lambda (_%hd7112871218%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%default7113471221%_) - (if (gx#stx-pair? _%hd7112871218%_) - (let ((_%e7113171224%_ - (gx#syntax-e _%hd7112871218%_))) - (let ((_%lp-hd7113271228%_ - (let () - (declare (not safe)) - (##car _%e7113171224%_))) - (_%lp-tl7113371231%_ - (let () - (declare (not safe)) - (##cdr _%e7113171224%_)))) - (_%loop7113071214%_ - _%lp-tl7113371231%_ - (cons _%lp-hd7113271228%_ - _%default7113471221%_)))) - (let ((_%default7113571234%_ - (reverse _%default7113471221%_))) - (if (gx#stx-null? _%tl7112471205%_) - ((lambda (_%L71238%_ _%L71240%_ _%L71241%_) - (let ((__tmp80991 - (symbol->keyword - (gx#stx-e _%L71241%_))) - (__tmp80989 - (let ((__tmp80990 - (cons _%L71241%_ - (foldr (lambda (_%g7127171276%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7127271279%_) - (cons _%g7127171276%_ _%g7127271279%_)) - (foldr (lambda (_%g7127371282%_ _%g7127471285%_) - (cons _%g7127371282%_ _%g7127471285%_)) - '() - _%L71238%_) - _%L71240%_)))) + (##fx= _g80710_ 2))) + (error "Context expects 2 values" + _g80710_))) + (let ((_%target7094070993%_ + (let () + (declare (not safe)) + (##vector-ref _g80709_ 0))) + (_%tl7094270996%_ + (let () + (declare (not safe)) + (##vector-ref + _g80709_ + 1)))) + (if (gx#stx-null? + _%tl7094270996%_) + (letrec ((_%loop7094370999%_ + (lambda (_%hd7094171003%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%contract7094771006%_) + (if (gx#stx-pair? _%hd7094171003%_) + (let ((_%e7094471009%_ + (gx#syntax-e _%hd7094171003%_))) + (let ((_%lp-hd7094571013%_ + (let () + (declare (not safe)) + (##car _%e7094471009%_))) + (_%lp-tl7094671016%_ + (let () + (declare (not safe)) + (##cdr _%e7094471009%_)))) + (_%loop7094370999%_ + _%lp-tl7094671016%_ + (cons _%lp-hd7094571013%_ + _%contract7094771006%_)))) + (let ((_%contract7094871019%_ + (reverse _%contract7094771006%_))) + (if (gx#stx-pair? _%tl7093770990%_) + (let ((_%e7095171023%_ + (gx#syntax-e _%tl7093770990%_))) + (let ((_%hd7095071027%_ + (let () + (declare (not safe)) + (##car _%e7095171023%_))) + (_%tl7094971030%_ + (let () + (declare (not safe)) + (##cdr _%e7095171023%_)))) + (if (gx#stx-pair/null? _%hd7095071027%_) + (let ((_g80711_ + (gx#syntax-split-splice + _%hd7095071027%_ + '0))) + (begin + (let ((_g80712_ + (let () + (declare (not safe)) + (if (##values? _g80711_) + (##vector-length + _g80711_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g80712_ 2))) + (error "Context expects 2 values" + _g80712_))) + (let ((_%target7095271033%_ + (let () + (declare (not safe)) + (##vector-ref _g80711_ 0))) + (_%tl7095471036%_ + (let () + (declare (not safe)) + (##vector-ref + _g80711_ + 1)))) + (if (gx#stx-null? + _%tl7095471036%_) + (letrec ((_%loop7095571039%_ + (lambda (_%hd7095371043%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%default7095971046%_) + (if (gx#stx-pair? _%hd7095371043%_) + (let ((_%e7095671049%_ + (gx#syntax-e _%hd7095371043%_))) + (let ((_%lp-hd7095771053%_ + (let () + (declare (not safe)) + (##car _%e7095671049%_))) + (_%lp-tl7095871056%_ + (let () + (declare (not safe)) + (##cdr _%e7095671049%_)))) + (_%loop7095571039%_ + _%lp-tl7095871056%_ + (cons _%lp-hd7095771053%_ + _%default7095971046%_)))) + (let ((_%default7096071059%_ + (reverse _%default7095971046%_))) + (if (gx#stx-null? _%tl7094971030%_) + ((lambda (_%L71063%_ _%L71065%_ _%L71066%_) + (cons (symbol->keyword (gx#stx-e _%L71066%_)) + (cons (cons _%L71066%_ + (foldr (lambda (_%g7109671101%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7109771104%_) + (cons _%g7109671101%_ _%g7109771104%_)) + (foldr (lambda (_%g7109871107%_ _%g7109971110%_) + (cons _%g7109871107%_ _%g7109971110%_)) + '() + _%L71063%_) + _%L71065%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp80990 _%r71092%_)))) - (declare (not safe)) - (cons __tmp80991 __tmp80989))) - _%default7113571234%_ - _%contract7112371194%_ - _%hd7111071152%_) - (_%g7110471141%_ _%g7110571145%_))))))) - (_%loop7113071214%_ _%target7112771208%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7110471141%_ - _%g7110571145%_))))) - (_%g7110471141%_ _%g7110571145%_)))) - (_%g7110471141%_ _%g7110571145%_))))))) - (_%loop7111871174%_ _%target7111571168%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7110471141%_ - _%g7110571145%_))))) - (_%g7110471141%_ _%g7110571145%_)))) - (_%g7110471141%_ _%g7110571145%_)))) - (_%g7110471141%_ _%g7110571145%_))))) - (_%g7110371288%_ - (list _%slot71090%_ - _%contract71101%_ - (if _%default71094%_ - (cons ':= (cons _%default71094%_ '())) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e71097%_) - (let ((__tmp80994 - (symbol->keyword - (gx#stx-e - _%slot71090%_))) - (__tmp80992 - (let ((__tmp80993 - (cons _%slot71090%_ + _%r70917%_))) + _%default7096071059%_ + _%contract7094871019%_ + _%hd7093570977%_) + (_%g7092970966%_ _%g7093070970%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7095571039%_ + _%target7095271033%_ + '())) + (_%g7092970966%_ + _%g7093070970%_))))) + (_%g7092970966%_ _%g7093070970%_)))) + (_%g7092970966%_ _%g7093070970%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7094370999%_ + _%target7094070993%_ + '())) + (_%g7092970966%_ + _%g7093070970%_))))) + (_%g7092970966%_ _%g7093070970%_)))) + (_%g7092970966%_ _%g7093070970%_)))) + (_%g7092970966%_ _%g7093070970%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7092871113%_ + (list _%slot70915%_ + _%contract70926%_ + (if _%default70919%_ + (cons ':= +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%default70919%_ '())) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%$e70922%_) + (cons (symbol->keyword + (gx#stx-e _%slot70915%_)) + (cons (cons _%slot70915%_ + (cons _%default70919%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%default71094%_ '())))) - (declare (not safe)) - (cons __tmp80993 _%r71092%_)))) + '())) + _%r70917%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp80994 - __tmp80992))))) - '() - (foldr (lambda (_%g7129371296%_ - _%g7129471299%_) - (cons _%g7129371296%_ - _%g7129471299%_)) - '() - _%L68597%_)) - (gx#core-quote-syntax _%L68375%_))))))))))) + '() + (foldr (lambda (_%g7111871121%_ + _%g7111971124%_) + (cons _%g7111871121%_ + _%g7111971124%_)) + '() + _%L68422%_)) + (gx#core-quote-syntax _%L68200%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7050870519%_)))) - (_%g7050671302%_ - (_%wrap68145%_ + _%g7033370344%_)))) + (_%g7033171127%_ + (_%wrap67970%_ (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L68337%_ + (cons _%L68162%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'make-class-type-info) (cons 'id: - (cons _%L69981%_ + (cons _%L69806%_ (cons 'name: - (cons _%L70009%_ + (cons _%L69834%_ (cons 'slots: - (cons _%L70065%_ + (cons _%L69890%_ (cons 'ordered-slots: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L70093%_ + (cons _%L69918%_ (cons 'super: - (cons _%L70037%_ + (cons _%L69862%_ (cons 'struct?: - (cons _%L70205%_ + (cons _%L70030%_ (cons 'final?: - (cons _%L70233%_ + (cons _%L70058%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'metaclass: - (cons _%L70261%_ + (cons _%L70086%_ (cons 'constructor-method: - (cons _%L70289%_ + (cons _%L70114%_ (cons 'type-descriptor: - (cons _%L70317%_ + (cons _%L70142%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'constructor: - (cons _%L70345%_ + (cons _%L70170%_ (cons 'predicate: - (cons _%L70373%_ + (cons _%L70198%_ (cons 'accessors: - (cons _%L70401%_ + (cons _%L70226%_ (cons 'mutators: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L70457%_ + (cons _%L70282%_ (cons 'unchecked-accessors: - (cons _%L70429%_ + (cons _%L70254%_ (cons 'unchecked-mutators: - (cons _%L70493%_ + (cons _%L70318%_ (cons 'slot-types: - (cons _%L70121%_ + (cons _%L69946%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'slot-contracts: - (cons _%L70149%_ + (cons _%L69974%_ (cons 'slot-defaults: - (cons _%L70177%_ + (cons _%L70002%_ '()))))))))))))))))))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))))) + '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7047970490%_)))) - (_%g7047771306%_ - (let* ((_%g7131071343%_ - (lambda (_%g7131171339%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7131171339%_))) - (_%g7130971472%_ - (lambda (_%g7131171347%_) - (if (gx#stx-pair? _%g7131171347%_) - (let ((_%e7131671350%_ - (gx#syntax-e _%g7131171347%_))) - (let ((_%hd7131571354%_ - (let () - (declare (not safe)) - (##car _%e7131671350%_))) - (_%tl7131471357%_ - (let () - (declare (not safe)) - (##cdr _%e7131671350%_)))) - (if (gx#stx-pair/null? - _%hd7131571354%_) - (let ((_g80995_ - (gx#syntax-split-splice - _%hd7131571354%_ - '0))) - (begin - (let ((_g80996_ - (let () - (declare - (not safe)) - (if (##values? + _%g7030470315%_)))) + (_%g7030271131%_ + (let* ((_%g7113571168%_ + (lambda (_%g7113671164%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7113671164%_))) + (_%g7113471297%_ + (lambda (_%g7113671172%_) + (if (gx#stx-pair? _%g7113671172%_) + (let ((_%e7114171175%_ + (gx#syntax-e + _%g7113671172%_))) + (let ((_%hd7114071179%_ + (let () + (declare (not safe)) + (##car _%e7114171175%_))) + (_%tl7113971182%_ + (let () + (declare (not safe)) + (##cdr _%e7114171175%_)))) + (if (gx#stx-pair/null? + _%hd7114071179%_) + (let ((_g80713_ + (gx#syntax-split-splice + _%hd7114071179%_ + '0))) + (begin + (let ((_g80714_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g80995_) - (##vector-length _g80995_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g80996_ 2))) - (error "Context expects 2 values" _g80996_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7131771360%_ - (let () - (declare - (not safe)) - (##vector-ref - _g80995_ - 0))) - (_%tl7131971363%_ - (let () - (declare - (not safe)) - (##vector-ref - _g80995_ - 1)))) - (if (gx#stx-null? - _%tl7131971363%_) - (letrec ((_%loop7132071366%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7131871370%_ _%slot-usetf7132471373%_) - (if (gx#stx-pair? _%hd7131871370%_) - (let ((_%e7132171376%_ - (gx#syntax-e _%hd7131871370%_))) - (let ((_%lp-hd7132271380%_ - (let () - (declare (not safe)) - (##car _%e7132171376%_))) - (_%lp-tl7132371383%_ - (let () - (declare (not safe)) - (##cdr _%e7132171376%_)))) - (_%loop7132071366%_ - _%lp-tl7132371383%_ - (cons _%lp-hd7132271380%_ - _%slot-usetf7132471373%_)))) - (let ((_%slot-usetf7132571386%_ - (reverse _%slot-usetf7132471373%_))) - (if (gx#stx-pair? _%tl7131471357%_) - (let ((_%e7132871390%_ - (gx#syntax-e _%tl7131471357%_))) - (let ((_%hd7132771394%_ - (let () - (declare (not safe)) - (##car _%e7132871390%_))) - (_%tl7132671397%_ - (let () - (declare (not safe)) - (##cdr _%e7132871390%_)))) - (if (gx#stx-pair/null? - _%hd7132771394%_) - (let ((_g80997_ - (gx#syntax-split-splice - _%hd7132771394%_ - '0))) - (begin - (let ((_g80998_ - (let () - (declare - (not safe)) - (if (##values? + (not safe)) + (if (##values? _g80713_) + (##vector-length _g80713_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g80714_ 2))) + (error "Context expects 2 values" _g80714_))) + (let ((_%target7114271185%_ + (let () (declare (not safe)) (##vector-ref _g80713_ 0))) + (_%tl7114471188%_ + (let () (declare (not safe)) (##vector-ref _g80713_ 1)))) + (if (gx#stx-null? _%tl7114471188%_) + (letrec ((_%loop7114571191%_ + (lambda (_%hd7114371195%_ + _%slot-usetf7114971198%_) + (if (gx#stx-pair? _%hd7114371195%_) + (let ((_%e7114671201%_ + (gx#syntax-e _%hd7114371195%_))) + (let ((_%lp-hd7114771205%_ + (let () + (declare (not safe)) + (##car _%e7114671201%_))) + (_%lp-tl7114871208%_ + (let () + (declare (not safe)) + (##cdr _%e7114671201%_)))) + (_%loop7114571191%_ + _%lp-tl7114871208%_ + (cons _%lp-hd7114771205%_ + _%slot-usetf7114971198%_)))) + (let ((_%slot-usetf7115071211%_ + (reverse _%slot-usetf7114971198%_))) + (if (gx#stx-pair? _%tl7113971182%_) + (let ((_%e7115371215%_ + (gx#syntax-e + _%tl7113971182%_))) + (let ((_%hd7115271219%_ + (let () + (declare (not safe)) + (##car _%e7115371215%_))) + (_%tl7115171222%_ + (let () + (declare (not safe)) + (##cdr _%e7115371215%_)))) + (if (gx#stx-pair/null? + _%hd7115271219%_) + (let ((_g80715_ + (gx#syntax-split-splice + _%hd7115271219%_ + '0))) + (begin + (let ((_g80716_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g80997_) - (##vector-length _g80997_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g80998_ 2))) - (error "Context expects 2 values" _g80998_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7132971400%_ - (let () - (declare - (not safe)) - (##vector-ref - _g80997_ - 0))) - (_%tl7133171403%_ - (let () - (declare - (not safe)) - (##vector-ref - _g80997_ - 1)))) - (if (gx#stx-null? - _%tl7133171403%_) - (letrec ((_%loop7133271406%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7133071410%_ - _%mixin-slot-usetf7133671413%_) - (if (gx#stx-pair? _%hd7133071410%_) - (let ((_%e7133371416%_ - (gx#syntax-e _%hd7133071410%_))) - (let ((_%lp-hd7133471420%_ - (let () - (declare (not safe)) - (##car _%e7133371416%_))) - (_%lp-tl7133571423%_ - (let () - (declare (not safe)) - (##cdr _%e7133371416%_)))) - (_%loop7133271406%_ - _%lp-tl7133571423%_ - (cons _%lp-hd7133471420%_ - _%mixin-slot-usetf7133671413%_)))) - (let ((_%mixin-slot-usetf7133771426%_ - (reverse _%mixin-slot-usetf7133671413%_))) - (if (gx#stx-null? _%tl7132671397%_) - ((lambda (_%L71430%_ _%L71432%_) - (let () + (not safe)) + (if (##values? _g80715_) + (##vector-length _g80715_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g80716_ 2))) + (error "Context expects 2 values" _g80716_))) + (let ((_%target7115471225%_ + (let () (declare (not safe)) (##vector-ref _g80715_ 0))) + (_%tl7115671228%_ + (let () (declare (not safe)) (##vector-ref _g80715_ 1)))) + (if (gx#stx-null? _%tl7115671228%_) + (letrec ((_%loop7115771231%_ + (lambda (_%hd7115571235%_ + _%mixin-slot-usetf7116171238%_) + (if (gx#stx-pair? _%hd7115571235%_) + (let ((_%e7115871241%_ + (gx#syntax-e _%hd7115571235%_))) + (let ((_%lp-hd7115971245%_ + (let () + (declare (not safe)) + (##car _%e7115871241%_))) + (_%lp-tl7116071248%_ + (let () + (declare (not safe)) + (##cdr _%e7115871241%_)))) + (_%loop7115771231%_ + _%lp-tl7116071248%_ + (cons _%lp-hd7115971245%_ + _%mixin-slot-usetf7116171238%_)))) + (let ((_%mixin-slot-usetf7116271251%_ + (reverse _%mixin-slot-usetf7116171238%_))) + (if (gx#stx-null? _%tl7115171222%_) + ((lambda (_%L71255%_ _%L71257%_) (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g7145571460%_ + (foldr (lambda (_%g7128071285%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7145671463%_) - (cons _%g7145571460%_ _%g7145671463%_)) - (foldr (lambda (_%g7145771466%_ _%g7145871469%_) - (cons _%g7145771466%_ _%g7145871469%_)) + _%g7128171288%_) + (cons _%g7128071285%_ _%g7128171288%_)) + (foldr (lambda (_%g7128271291%_ _%g7128371294%_) + (cons _%g7128271291%_ _%g7128371294%_)) '() - _%L71430%_) - _%L71432%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-slot-usetf7133771426%_ - _%slot-usetf7132571386%_) - (_%g7131071343%_ _%g7131171347%_))))))) - (_%loop7133271406%_ _%target7132971400%_ '())) - (_%g7131071343%_ _%g7131171347%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7131071343%_ - _%g7131171347%_)))) - (_%g7131071343%_ _%g7131171347%_))))))) - (_%loop7132071366%_ _%target7131771360%_ '())) - (_%g7131071343%_ _%g7131171347%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7131071343%_ - _%g7131171347%_)))) - (_%g7131071343%_ _%g7131171347%_))))) - (_%g7130971472%_ - (list (map _%map-slot-usetf70475%_ - (foldr (lambda (_%g7147571478%_ - _%g7147671481%_) - (cons _%g7147571478%_ - _%g7147671481%_)) - '() - _%L68526%_) - (foldr (lambda (_%g7148371486%_ - _%g7148471489%_) - (cons _%g7148371486%_ - _%g7148471489%_)) - '() - _%L69236%_) - (foldr (lambda (_%g7149171494%_ - _%g7149271497%_) - (cons _%g7149171494%_ - _%g7149271497%_)) - '() - _%L68810%_)) - (map _%map-slot-usetf70475%_ - (foldr (lambda (_%g7149971502%_ - _%g7150071505%_) - (cons _%g7149971502%_ - _%g7150071505%_)) - '() - _%L68881%_) - (foldr (lambda (_%g7150771510%_ - _%g7150871513%_) - (cons _%g7150771510%_ - _%g7150871513%_)) - '() - _%L69378%_) - (foldr (lambda (_%g7151571518%_ - _%g7151671521%_) - (cons _%g7151571518%_ - _%g7151671521%_)) - '() - _%L69094%_))))))))) - _%g7044370454%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7044171524%_ - (cons (gx#datum->syntax - '#f - '@list) - (begin - (gx#syntax-check-splice-targets - _%L68739%_ - _%L68526%_) - (foldr (lambda (_%g7152771534%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7152871537%_ - _%g7152971539%_) - (cons (cons (gx#datum->syntax '#f '@list) - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%g7152871537%_ '())) - (cons ':: - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote-syntax) - (cons _%g7152771534%_ '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7152971539%_)) - (begin - (gx#syntax-check-splice-targets - _%L69023%_ - _%L68881%_) - (foldr (lambda (_%g7153071542%_ - _%g7153171545%_ - _%g7153271547%_) - (cons (cons (gx#datum->syntax '#f '@list) - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%g7153171545%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons ':: - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7153071542%_ '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7153271547%_)) - '() - _%L69023%_ - _%L68881%_)) - _%L68739%_ - _%L68526%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7041570426%_)))) - (_%g7041371550%_ - (cons (gx#datum->syntax '#f '@list) - (begin - (gx#syntax-check-splice-targets - _%L69165%_ - _%L68526%_) - (foldr (lambda (_%g7155371560%_ - _%g7155471563%_ - _%g7155571565%_) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@list) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7155471563%_ '())) - (cons ':: - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%g7155371560%_ '())) - '())))) - _%g7155571565%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (begin - (gx#syntax-check-splice-targets - _%L69307%_ - _%L68881%_) - (foldr (lambda (_%g7155671568%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7155771571%_ - _%g7155871573%_) - (cons (cons (gx#datum->syntax '#f '@list) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7155771571%_ '())) - (cons ':: - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%g7155671568%_ - '())) - '())))) - _%g7155871573%_)) - '() - _%L69307%_ - _%L68881%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L69165%_ - _%L68526%_))))))) - _%g7038770398%_)))) - (_%g7038571576%_ - (cons (gx#datum->syntax '#f '@list) - (begin - (gx#syntax-check-splice-targets - _%L68668%_ - _%L68526%_) - (foldr (lambda (_%g7157971586%_ - _%g7158071589%_ - _%g7158171591%_) - (cons (cons (gx#datum->syntax '#f '@list) - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%g7158071589%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons ':: - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7157971586%_ '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7158171591%_)) - (begin - (gx#syntax-check-splice-targets - _%L68952%_ - _%L68881%_) - (foldr (lambda (_%g7158271594%_ - _%g7158371597%_ - _%g7158471599%_) - (cons (cons (gx#datum->syntax - '#f - '@list) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%g7158371597%_ '())) - (cons ':: - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7158271594%_ '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7158471599%_)) - '() - _%L68952%_ - _%L68881%_)) - _%L68668%_ - _%L68526%_))))))) - _%g7035970370%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7035771602%_ - (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%L68431%_ '())))))) - _%g7033170342%_)))) - (_%g7032971606%_ - (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L68403%_ '())))))) - _%g7030370314%_)))) - (_%g7030171610%_ - (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L68375%_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7027570286%_)))) - (_%g7027371614%_ - (if (let () - (declare (not safe)) - (null? _%type-constructor69716%_)) - '#f - (let* ((_%g7161871633%_ - (lambda (_%g7161971629%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7161971629%_))) - (_%g7161771681%_ - (lambda (_%g7161971637%_) - (if (gx#stx-pair? - _%g7161971637%_) - (let ((_%e7162371640%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7161971637%_))) - (let ((_%hd7162271644%_ - (let () - (declare (not safe)) - (##car _%e7162371640%_))) - (_%tl7162171647%_ - (let () - (declare (not safe)) - (##cdr _%e7162371640%_)))) - (if (gx#stx-datum? _%hd7162271644%_) - (let ((_%e7162471650%_ (gx#stx-e _%hd7162271644%_))) - (if (equal? _%e7162471650%_ 'constructor:) - (if (gx#stx-pair? _%tl7162171647%_) - (let ((_%e7162771654%_ - (gx#syntax-e _%tl7162171647%_))) - (let ((_%hd7162671658%_ - (let () - (declare (not safe)) - (##car _%e7162771654%_))) - (_%tl7162571661%_ - (let () - (declare (not safe)) - (##cdr _%e7162771654%_)))) - (if (gx#stx-null? _%tl7162571661%_) - ((lambda (_%L71664%_) - (let () - (cons (gx#datum->syntax + _%L71255%_) + _%L71257%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%mixin-slot-usetf7116271251%_ + _%slot-usetf7115071211%_) + (_%g7113571168%_ + _%g7113671172%_))))))) + (_%loop7115771231%_ _%target7115471225%_ '())) + (_%g7113571168%_ _%g7113671172%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7113571168%_ + _%g7113671172%_)))) + (_%g7113571168%_ + _%g7113671172%_))))))) + (_%loop7114571191%_ _%target7114271185%_ '())) + (_%g7113571168%_ _%g7113671172%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7113571168%_ + _%g7113671172%_)))) + (_%g7113571168%_ _%g7113671172%_))))) + (_%g7113471297%_ + (list (map _%map-slot-usetf70300%_ + (foldr (lambda (_%g7130071303%_ + _%g7130171306%_) + (cons _%g7130071303%_ + _%g7130171306%_)) + '() + _%L68351%_) + (foldr (lambda (_%g7130871311%_ + _%g7130971314%_) + (cons _%g7130871311%_ + _%g7130971314%_)) + '() + _%L69061%_) + (foldr (lambda (_%g7131671319%_ + _%g7131771322%_) + (cons _%g7131671319%_ + _%g7131771322%_)) + '() + _%L68635%_)) + (map _%map-slot-usetf70300%_ + (foldr (lambda (_%g7132471327%_ + _%g7132571330%_) + (cons _%g7132471327%_ + _%g7132571330%_)) + '() + _%L68706%_) + (foldr (lambda (_%g7133271335%_ + _%g7133371338%_) + (cons _%g7133271335%_ + _%g7133371338%_)) + '() + _%L69203%_) + (foldr (lambda (_%g7134071343%_ + _%g7134171346%_) + (cons _%g7134071343%_ + _%g7134171346%_)) + '() + _%L68919%_)))))))) + _%g7026870279%_)))) + (_%g7026671349%_ + (cons (gx#datum->syntax '#f '@list) + (begin + (gx#syntax-check-splice-targets _%L68564%_ _%L68351%_) + (foldr (lambda (_%g7135271359%_ + _%g7135371362%_ + _%g7135471364%_) + (cons (cons (gx#datum->syntax '#f '@list) + (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L71664%_ - '())))) - _%hd7162671658%_) - (_%g7161871633%_ - _%g7161971637%_)))) - (_%g7161871633%_ _%g7161971637%_)) - (_%g7161871633%_ _%g7161971637%_))) - (_%g7161871633%_ _%g7161971637%_)))) - (_%g7161871633%_ _%g7161971637%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7161771681%_ - _%type-constructor69716%_))))))) - _%g7024770258%_)))) - (_%g7024571685%_ - (if _%metaclass69820%_ - (let* ((_%g7168971697%_ - (lambda (_%g7169071693%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7169071693%_))) - (_%g7168871716%_ - (lambda (_%g7169071701%_) - ((lambda (_%L71704%_) - (let () - (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%L71704%_ '())))) - _%g7169071701%_)))) - (_%g7168871716%_ _%metaclass69820%_)) - '#f))))) - _%g7021970230%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7021771720%_ - _%final?69823%_)))) - _%g7019170202%_)))) - (_%g7018971724%_ _%struct?68319%_)))) - _%g7016370174%_)))) - (_%g7016171728%_ - (let* ((_%g7173271755%_ - (lambda (_%g7173371751%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7173371751%_))) - (_%g7173171835%_ - (lambda (_%g7173371759%_) - (if (gx#stx-pair/null? _%g7173371759%_) - (let ((_g80999_ - (gx#syntax-split-splice - _%g7173371759%_ - '0))) - (begin - (let ((_g81000_ - (let () - (declare (not safe)) - (if (##values? _g80999_) - (##vector-length _g80999_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g81000_ 2))) - (error "Context expects 2 values" - _g81000_))) - (let ((_%target7173671762%_ - (let () - (declare (not safe)) - (##vector-ref _g80999_ 0))) - (_%tl7173871765%_ - (let () - (declare (not safe)) - (##vector-ref _g80999_ 1)))) - (if (gx#stx-null? _%tl7173871765%_) - (letrec ((_%loop7173971768%_ - (lambda (_%hd7173771772%_ - _%default7174371775%_ - _%slot7174471777%_) - (if (gx#stx-pair? - _%hd7173771772%_) - (let ((_%e7174071780%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7173771772%_))) - (let ((_%lp-hd7174171784%_ - (let () - (declare (not safe)) - (##car _%e7174071780%_))) - (_%lp-tl7174271787%_ - (let () - (declare (not safe)) - (##cdr _%e7174071780%_)))) - (if (gx#stx-pair? _%lp-hd7174171784%_) - (let ((_%e7174971790%_ - (gx#syntax-e _%lp-hd7174171784%_))) - (let ((_%hd7174871794%_ - (let () - (declare (not safe)) - (##car _%e7174971790%_))) - (_%tl7174771797%_ - (let () - (declare (not safe)) - (##cdr _%e7174971790%_)))) - (_%loop7173971768%_ - _%lp-tl7174271787%_ - (cons _%tl7174771797%_ _%default7174371775%_) - (cons _%hd7174871794%_ _%slot7174471777%_)))) - (_%g7173271755%_ _%g7173371759%_)))) - (let ((_%default7174571800%_ - (reverse _%default7174371775%_)) - (_%slot7174671803%_ (reverse _%slot7174471777%_))) - ((lambda (_%L71806%_ _%L71808%_) - (let () - (cons (gx#datum->syntax '#f '@list) - (begin - (gx#syntax-check-splice-targets - _%L71806%_ - _%L71808%_) - (foldr (lambda (_%g7182371827%_ - _%g7182471830%_ - _%g7182571832%_) - (cons (cons (gx#datum->syntax - '#f - '@list) - (cons (cons (gx#datum->syntax + (cons _%g7135371362%_ + '())) + (cons ':: + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%g7182471830%_ '())) - (cons ':: - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7182371827%_ '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7182571832%_)) - '() - _%L71806%_ - _%L71808%_))))) - _%default7174571800%_ - _%slot7174671803%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7173971768%_ - _%target7173671762%_ - '() - '())) - (_%g7173271755%_ - _%g7173371759%_))))) - (_%g7173271755%_ _%g7173371759%_))))) - (_%g7173171835%_ - (hash->list _%slot-default-table68296%_))))))) - _%g7013570146%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7013371839%_ - (let* ((_%g7184371866%_ - (lambda (_%g7184471862%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7184471862%_))) - (_%g7184271946%_ - (lambda (_%g7184471870%_) - (if (gx#stx-pair/null? - _%g7184471870%_) - (let ((_g81001_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g7184471870%_ '0))) - (begin - (let ((_g81002_ - (let () - (declare (not safe)) - (if (##values? _g81001_) - (##vector-length _g81001_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g81002_ 2))) - (error "Context expects 2 values" _g81002_))) - (let ((_%target7184771873%_ - (let () - (declare (not safe)) - (##vector-ref _g81001_ 0))) - (_%tl7184971876%_ - (let () - (declare (not safe)) - (##vector-ref _g81001_ 1)))) - (if (gx#stx-null? _%tl7184971876%_) - (letrec ((_%loop7185071879%_ - (lambda (_%hd7184871883%_ - _%contract7185471886%_ - _%slot7185571888%_) - (if (gx#stx-pair? _%hd7184871883%_) - (let ((_%e7185171891%_ - (gx#syntax-e - _%hd7184871883%_))) - (let ((_%lp-hd7185271895%_ - (let () - (declare (not safe)) - (##car _%e7185171891%_))) - (_%lp-tl7185371898%_ - (let () - (declare (not safe)) - (##cdr _%e7185171891%_)))) - (if (gx#stx-pair? - _%lp-hd7185271895%_) - (let ((_%e7186071901%_ - (gx#syntax-e - _%lp-hd7185271895%_))) - (let ((_%hd7185971905%_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _%e7186071901%_))) - (_%tl7185871908%_ - (let () (declare (not safe)) (##cdr _%e7186071901%_)))) - (_%loop7185071879%_ - _%lp-tl7185371898%_ - (cons _%tl7185871908%_ _%contract7185471886%_) - (cons _%hd7185971905%_ _%slot7185571888%_)))) - (_%g7184371866%_ _%g7184471870%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%contract7185671911%_ - (reverse _%contract7185471886%_)) - (_%slot7185771914%_ - (reverse _%slot7185571888%_))) - ((lambda (_%L71917%_ - _%L71919%_) - (let () - (cons (gx#datum->syntax - '#f - '@list) - (begin - (gx#syntax-check-splice-targets - _%L71917%_ - _%L71919%_) - (foldr (lambda (_%g7193471938%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7193571941%_ - _%g7193671943%_) - (cons (cons (gx#datum->syntax '#f '@list) - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%g7193571941%_ - '())) - (cons ':: - (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%g7135271359%_ '())) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7135471364%_)) + (begin + (gx#syntax-check-splice-targets + _%L68848%_ + _%L68706%_) + (foldr (lambda (_%g7135571367%_ + _%g7135671370%_ + _%g7135771372%_) + (cons (cons (gx#datum->syntax + '#f + '@list) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%g7193471938%_ '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7193671943%_)) - '() - _%L71917%_ - _%L71919%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%contract7185671911%_ - _%slot7185771914%_)))))) - (_%loop7185071879%_ - _%target7184771873%_ - '() - '())) - (_%g7184371866%_ _%g7184471870%_))))) - (_%g7184371866%_ _%g7184471870%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7184271946%_ - (hash->list - _%slot-contract-table68293%_))))))) - _%g7010770118%_)))) - (_%g7010571950%_ - (let* ((_%g7195471977%_ - (lambda (_%g7195571973%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7195571973%_))) - (_%g7195372057%_ - (lambda (_%g7195571981%_) - (if (gx#stx-pair/null? - _%g7195571981%_) - (let ((_g81003_ - (gx#syntax-split-splice - _%g7195571981%_ - '0))) - (begin - (let ((_g81004_ - (let () - (declare (not safe)) - (if (##values? - _g81003_) - (##vector-length - _g81003_) - 1)))) - (if (not (let () - (declare - (not safe)) - (##fx= _g81004_ + '#f + 'quote) + (cons _%g7135671370%_ '())) + (cons ':: + (cons (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _%g7135571367%_ '())) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7135771372%_)) + '() + _%L68848%_ + _%L68706%_)) + _%L68564%_ + _%L68351%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7024070251%_)))) + (_%g7023871375%_ + (cons (gx#datum->syntax '#f '@list) + (begin + (gx#syntax-check-splice-targets + _%L68990%_ + _%L68351%_) + (foldr (lambda (_%g7137871385%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7137971388%_ + _%g7138071390%_) + (cons (cons (gx#datum->syntax '#f '@list) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%g7137971388%_ '())) + (cons ':: + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%g7137871385%_ + '())) + '())))) + _%g7138071390%_)) + (begin + (gx#syntax-check-splice-targets _%L69132%_ _%L68706%_) + (foldr (lambda (_%g7138171393%_ + _%g7138271396%_ + _%g7138371398%_) + (cons (cons (gx#datum->syntax '#f '@list) + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%g7138271396%_ '())) + (cons ':: + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - 2))) - (error "Context expects 2 values" _g81004_))) + '#f + 'quote-syntax) + (cons _%g7138171393%_ '())) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7195871984%_ - (let () - (declare (not safe)) - (##vector-ref - _g81003_ - 0))) - (_%tl7196071987%_ - (let () - (declare (not safe)) - (##vector-ref - _g81003_ - 1)))) - (if (gx#stx-null? - _%tl7196071987%_) - (letrec ((_%loop7196171990%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7195971994%_ - _%type7196571997%_ - _%slot7196671999%_) - (if (gx#stx-pair? _%hd7195971994%_) - (let ((_%e7196272002%_ - (gx#syntax-e _%hd7195971994%_))) - (let ((_%lp-hd7196372006%_ - (let () - (declare (not safe)) - (##car _%e7196272002%_))) - (_%lp-tl7196472009%_ - (let () - (declare (not safe)) - (##cdr _%e7196272002%_)))) - (if (gx#stx-pair? _%lp-hd7196372006%_) - (let ((_%e7197172012%_ - (gx#syntax-e - _%lp-hd7196372006%_))) - (let ((_%hd7197072016%_ - (let () - (declare (not safe)) - (##car _%e7197172012%_))) - (_%tl7196972019%_ - (let () - (declare (not safe)) - (##cdr _%e7197172012%_)))) - (_%loop7196171990%_ - _%lp-tl7196472009%_ - (cons _%tl7196972019%_ - _%type7196571997%_) - (cons _%hd7197072016%_ - _%slot7196671999%_)))) - (_%g7195471977%_ _%g7195571981%_)))) - (let ((_%type7196772022%_ - (reverse _%type7196571997%_)) - (_%slot7196872025%_ - (reverse _%slot7196671999%_))) - ((lambda (_%L72028%_ _%L72030%_) - (let () - (cons (gx#datum->syntax '#f '@list) + _%g7138371398%_)) + '() + _%L69132%_ + _%L68706%_)) + _%L68990%_ + _%L68351%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7021270223%_)))) + (_%g7021071401%_ + (cons (gx#datum->syntax '#f '@list) + (begin + (gx#syntax-check-splice-targets + _%L68493%_ + _%L68351%_) + (foldr (lambda (_%g7140471411%_ + _%g7140571414%_ + _%g7140671416%_) + (cons (cons (gx#datum->syntax + '#f + '@list) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote) + (cons _%g7140571414%_ '())) + (cons ':: + (cons (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _%g7140471411%_ '())) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7140671416%_)) (begin (gx#syntax-check-splice-targets - _%L72028%_ - _%L72030%_) - (foldr (lambda (_%g7204572049%_ - _%g7204672052%_ - _%g7204772054%_) + _%L68777%_ + _%L68706%_) + (foldr (lambda (_%g7140771419%_ + _%g7140871422%_ + _%g7140971424%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7204672052%_ '())) + (cons _%g7140871422%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7204572049%_ '())) + (cons _%g7140771419%_ '())) '())))) - _%g7204772054%_)) + _%g7140971424%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L72028%_ - _%L72030%_))))) - _%type7196772022%_ - _%slot7196872025%_)))))) - (_%loop7196171990%_ _%target7195871984%_ '() '())) - (_%g7195471977%_ _%g7195571981%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7195471977%_ - _%g7195571981%_))))) - (_%g7195372057%_ - (filter (lambda (_%st72061%_) - (cdr _%st72061%_)) - (hash->list - _%slot-type-table68291%_)))))))) - _%g7007970090%_)))) - (_%g7007772064%_ - (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g7206772070%_ _%g7206872073%_) - (cons _%g7206772070%_ _%g7206872073%_)) - '() - _%L68597%_) - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7005170062%_)))) - (_%g7004972076%_ - (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g7207972082%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7208072085%_) - (cons _%g7207972082%_ _%g7208072085%_)) - '() - _%L68526%_) + _%L68777%_ + _%L68706%_)) + _%L68493%_ + _%L68351%_)))))) + _%g7018470195%_)))) + (_%g7018271427%_ + (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _%L68256%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) - _%g7002370034%_)))) - (_%g7002172088%_ - (let* ((_%g7209272109%_ - (lambda (_%g7209372105%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7209372105%_))) - (_%g7209172170%_ - (lambda (_%g7209372113%_) - (if (gx#stx-pair/null? _%g7209372113%_) - (let ((_g81005_ - (gx#syntax-split-splice - _%g7209372113%_ - '0))) - (begin - (let ((_g81006_ - (let () - (declare (not safe)) - (if (##values? _g81005_) - (##vector-length - _g81005_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g81006_ 2))) - (error "Context expects 2 values" - _g81006_))) - (let ((_%target7209572116%_ - (let () - (declare (not safe)) - (##vector-ref - _g81005_ - 0))) - (_%tl7209772119%_ - (let () - (declare (not safe)) - (##vector-ref - _g81005_ - 1)))) - (if (gx#stx-null? - _%tl7209772119%_) - (letrec ((_%loop7209872122%_ - (lambda (_%hd7209672126%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%super-id7210272129%_) - (if (gx#stx-pair? _%hd7209672126%_) - (let ((_%e7209972132%_ - (gx#syntax-e _%hd7209672126%_))) - (let ((_%lp-hd7210072136%_ - (let () - (declare (not safe)) - (##car _%e7209972132%_))) - (_%lp-tl7210172139%_ - (let () - (declare (not safe)) - (##cdr _%e7209972132%_)))) - (_%loop7209872122%_ - _%lp-tl7210172139%_ - (cons _%lp-hd7210072136%_ - _%super-id7210272129%_)))) - (let ((_%super-id7210372142%_ - (reverse _%super-id7210272129%_))) - ((lambda (_%L72146%_) - (let () - (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g7216172164%_ - _%g7216272167%_) - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%g7216172164%_ + _%g7015670167%_)))) + (_%g7015471431%_ + (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%L68228%_ '()))))) + _%g7012870139%_)))) + (_%g7012671435%_ + (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _%L68200%_ '()))))) + _%g7010070111%_)))) + (_%g7009871439%_ + (if (null? _%type-constructor69541%_) + '#f + (let* ((_%g7144371458%_ + (lambda (_%g7144471454%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7144471454%_))) + (_%g7144271506%_ + (lambda (_%g7144471462%_) + (if (gx#stx-pair? _%g7144471462%_) + (let ((_%e7144871465%_ + (gx#syntax-e _%g7144471462%_))) + (let ((_%hd7144771469%_ + (let () + (declare (not safe)) + (##car _%e7144871465%_))) + (_%tl7144671472%_ + (let () + (declare (not safe)) + (##cdr _%e7144871465%_)))) + (if (gx#stx-datum? _%hd7144771469%_) + (let ((_%e7144971475%_ + (gx#stx-e _%hd7144771469%_))) + (if (equal? _%e7144971475%_ + 'constructor:) + (if (gx#stx-pair? + _%tl7144671472%_) + (let ((_%e7145271479%_ + (gx#syntax-e + _%tl7144671472%_))) + (let ((_%hd7145171483%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - _%g7216272167%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '() - _%L72146%_)))) - _%super-id7210372142%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7209872122%_ - _%target7209572116%_ - '())) - (_%g7209272109%_ - _%g7209372113%_))))) - (_%g7209272109%_ _%g7209372113%_))))) - (_%g7209172170%_ _%super-ref68282%_)))))) - _%g6999570006%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6999372174%_ - (let* ((_%g7217872186%_ - (lambda (_%g7217972182%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7217972182%_))) - (_%g7217772205%_ - (lambda (_%g7217972190%_) - ((lambda (_%L72193%_) - (let () + (not safe)) + (##car _%e7145271479%_))) + (_%tl7145071486%_ + (let () (declare (not safe)) (##cdr _%e7145271479%_)))) + (if (gx#stx-null? _%tl7145071486%_) + ((lambda (_%L71489%_) + (cons (gx#datum->syntax '#f 'quote) + (cons _%L71489%_ '()))) + _%hd7145171483%_) + (_%g7144371458%_ _%g7144471462%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7144371458%_ + _%g7144471462%_)) + (_%g7144371458%_ + _%g7144471462%_))) + (_%g7144371458%_ _%g7144471462%_)))) + (_%g7144371458%_ _%g7144471462%_))))) + (_%g7144271506%_ _%type-constructor69541%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7007270083%_)))) + (_%g7007071510%_ + (if _%metaclass69645%_ + (let* ((_%g7151471522%_ + (lambda (_%g7151571518%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7151571518%_))) + (_%g7151371541%_ + (lambda (_%g7151571526%_) + ((lambda (_%L71529%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 'quote) - (cons _%L72193%_ '())))) - _%g7217972190%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7217772205%_ - (gx#stx-car - (gx#stx-cdr - _%type-name69694%_)))))))) - _%g6996769978%_)))) - (_%g6996572209%_ - (let* ((_%g7221372228%_ - (lambda (_%g7221472224%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g7221472224%_))) - (_%g7221272276%_ - (lambda (_%g7221472232%_) - (if (gx#stx-pair? - _%g7221472232%_) - (let ((_%e7221872235%_ - (gx#syntax-e - _%g7221472232%_))) - (let ((_%hd7221772239%_ - (let () - (declare - (not safe)) - (##car _%e7221872235%_))) - (_%tl7221672242%_ - (let () - (declare - (not safe)) - (##cdr _%e7221872235%_)))) - (if (gx#stx-datum? - _%hd7221772239%_) - (let ((_%e7221972245%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _%hd7221772239%_))) - (if (equal? _%e7221972245%_ 'id:) - (if (gx#stx-pair? _%tl7221672242%_) - (let ((_%e7222272249%_ - (gx#syntax-e _%tl7221672242%_))) - (let ((_%hd7222172253%_ - (let () - (declare (not safe)) - (##car _%e7222272249%_))) - (_%tl7222072256%_ - (let () - (declare (not safe)) - (##cdr _%e7222272249%_)))) - (if (gx#stx-null? _%tl7222072256%_) - ((lambda (_%L72259%_) - (let () - (cons (gx#datum->syntax '#f 'quote) - (cons _%L72259%_ '())))) - _%hd7222172253%_) - (_%g7221372228%_ _%g7221472232%_)))) - (_%g7221372228%_ _%g7221472232%_)) - (_%g7221372228%_ _%g7221472232%_))) - (_%g7221372228%_ _%g7221472232%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7221372228%_ - _%g7221472232%_))))) - (_%g7221272276%_ _%type-id69701%_)))))) - _%g6993969950%_)))) - (_%g6993772280%_ - (_%wrap68145%_ - (cons (gx#datum->syntax '#f 'defclass-type) - (cons _%L68375%_ - (cons _%L68459%_ - (cons _%L69925%_ - (cons _%L68431%_ - (foldr (lambda (_%g7228372286%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7228472289%_) - (cons _%g7228372286%_ _%g7228472289%_)) - '() - _%L69889%_))))))))))) + '#f + 'quote-syntax) + (cons _%L71529%_ '()))) + _%g7151571526%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7151371541%_ + _%metaclass69645%_)) + '#f)))) + _%g7004470055%_)))) + (_%g7004271545%_ _%final?69648%_))) + _%g7001670027%_)))) + (_%g7001471549%_ _%struct?68144%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g6998869999%_)))) + (_%g6998671553%_ + (let* ((_%g7155771580%_ + (lambda (_%g7155871576%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7155871576%_))) + (_%g7155671660%_ + (lambda (_%g7155871584%_) + (if (gx#stx-pair/null? + _%g7155871584%_) + (let ((_g80717_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-split-splice _%g7155871584%_ '0))) + (begin + (let ((_g80718_ + (let () + (declare (not safe)) + (if (##values? _g80717_) + (##vector-length _g80717_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g80718_ 2))) + (error "Context expects 2 values" _g80718_))) + (let ((_%target7156171587%_ + (let () + (declare (not safe)) + (##vector-ref _g80717_ 0))) + (_%tl7156371590%_ + (let () + (declare (not safe)) + (##vector-ref _g80717_ 1)))) + (if (gx#stx-null? _%tl7156371590%_) + (letrec ((_%loop7156471593%_ + (lambda (_%hd7156271597%_ + _%default7156871600%_ + _%slot7156971602%_) + (if (gx#stx-pair? _%hd7156271597%_) + (let ((_%e7156571605%_ + (gx#syntax-e + _%hd7156271597%_))) + (let ((_%lp-hd7156671609%_ + (let () + (declare (not safe)) + (##car _%e7156571605%_))) + (_%lp-tl7156771612%_ + (let () + (declare (not safe)) + (##cdr _%e7156571605%_)))) + (if (gx#stx-pair? + _%lp-hd7156671609%_) + (let ((_%e7157471615%_ + (gx#syntax-e + _%lp-hd7156671609%_))) + (let ((_%hd7157371619%_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _%e7157471615%_))) + (_%tl7157271622%_ + (let () (declare (not safe)) (##cdr _%e7157471615%_)))) + (_%loop7156471593%_ + _%lp-tl7156771612%_ + (cons _%tl7157271622%_ _%default7156871600%_) + (cons _%hd7157371619%_ _%slot7156971602%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7155771580%_ + _%g7155871584%_)))) + (let ((_%default7157071625%_ + (reverse _%default7156871600%_)) + (_%slot7157171628%_ + (reverse _%slot7156971602%_))) + ((lambda (_%L71631%_ _%L71633%_) + (cons (gx#datum->syntax + '#f + '@list) + (begin + (gx#syntax-check-splice-targets + _%L71631%_ + _%L71633%_) + (foldr (lambda (_%g7164871652%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7164971655%_ + _%g7165071657%_) + (cons (cons (gx#datum->syntax '#f '@list) + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%g7164971655%_ '())) + (cons ':: + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%g7164871652%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6991169922%_)))) + _%g7165071657%_)) + '() + _%L71631%_ + _%L71633%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6990972292%_ - (if (or (let ((__tmp81007 - (let () + _%default7157071625%_ + _%slot7157171628%_)))))) + (_%loop7156471593%_ + _%target7156171587%_ + '() + '())) + (_%g7155771580%_ _%g7155871584%_))))) + (_%g7155771580%_ _%g7155871584%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7155671660%_ + (hash->list + _%slot-default-table68121%_)))))) + _%g6996069971%_)))) + (_%g6995871664%_ + (let* ((_%g7166871691%_ + (lambda (_%g7166971687%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7166971687%_))) + (_%g7166771771%_ + (lambda (_%g7166971695%_) + (if (gx#stx-pair/null? + _%g7166971695%_) + (let ((_g80719_ + (gx#syntax-split-splice + _%g7166971695%_ + '0))) + (begin + (let ((_g80720_ + (let () + (declare (not safe)) + (if (##values? + _g80719_) + (##vector-length + _g80719_) + 1)))) + (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _%type-constructor69716%_)))) - (declare (not safe)) - (not __tmp81007)) - (and (zero? (hash-length _%slot-contract-table68293%_)) - (zero? (hash-length _%slot-default-table68296%_))) - _%metaclass69820%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L68403%_ - '#f))))) - _%type-body6984669885%_)))))) - (_%loop6984169865%_ _%target6983869859%_ '())) - (_%g6983569852%_ _%g6983669856%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6983569852%_ - _%g6983669856%_))))) - (_%g6983472304%_ - (foldr cons - (foldr cons - (foldr cons - (foldr cons -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr cons - (foldr cons - (foldr cons - (foldr cons - _%type-mixin-slots69687%_ - _%type-slots69540%_) - _%type-properties69808%_) - _%type-metaclass69832%_) - _%type-final69829%_) - _%type-struct69826%_) - _%type-constructor69716%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-name69694%_) - _%type-id69701%_))))) - _%mixin-usetf6933569374%_)))))) - (_%loop6933069354%_ _%target6932769348%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6932469341%_ - _%g6932569345%_))))) - (_%g6932469341%_ - _%g6932569345%_))))) - (_%g6932372308%_ - (gx#stx-map - (lambda (_%g7231172313%_) - (_%make-id68286%_ '"&" _%g7231172313%_)) - (foldr (lambda (_%g7231672319%_ - _%g7231772322%_) - (cons _%g7231672319%_ - _%g7231772322%_)) - '() - _%L69023%_)))))) - _%mixin-ugetf6926469303%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6925969283%_ - _%target6925669277%_ - '())) - (_%g6925369270%_ - _%g6925469274%_))))) - (_%g6925369270%_ _%g6925469274%_))))) - (_%g6925272325%_ - (gx#stx-map - (lambda (_%g7232872330%_) - (_%make-id68286%_ '"&" _%g7232872330%_)) - (foldr (lambda (_%g7233372336%_ _%g7233472339%_) - (cons _%g7233372336%_ _%g7233472339%_)) - '() - _%L68952%_)))))) - _%usetf6919369232%_)))))) + (##fx= _g80720_ 2))) + (error "Context expects 2 values" _g80720_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6918869212%_ - _%target6918569206%_ - '())) - (_%g6918269199%_ _%g6918369203%_))))) - (_%g6918269199%_ _%g6918369203%_))))) - (_%g6918172342%_ - (gx#stx-map - (lambda (_%g7234572347%_) - (_%make-id68286%_ '"&" _%g7234572347%_)) - (foldr (lambda (_%g7235072353%_ _%g7235172356%_) - (cons _%g7235072353%_ _%g7235172356%_)) - '() - _%L68739%_)))))) + (let ((_%target7167271698%_ + (let () + (declare (not safe)) + (##vector-ref + _g80719_ + 0))) + (_%tl7167471701%_ + (let () + (declare (not safe)) + (##vector-ref + _g80719_ + 1)))) + (if (gx#stx-null? + _%tl7167471701%_) + (letrec ((_%loop7167571704%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7167371708%_ + _%contract7167971711%_ + _%slot7168071713%_) + (if (gx#stx-pair? _%hd7167371708%_) + (let ((_%e7167671716%_ + (gx#syntax-e _%hd7167371708%_))) + (let ((_%lp-hd7167771720%_ + (let () + (declare (not safe)) + (##car _%e7167671716%_))) + (_%lp-tl7167871723%_ + (let () + (declare (not safe)) + (##cdr _%e7167671716%_)))) + (if (gx#stx-pair? _%lp-hd7167771720%_) + (let ((_%e7168571726%_ + (gx#syntax-e + _%lp-hd7167771720%_))) + (let ((_%hd7168471730%_ + (let () + (declare (not safe)) + (##car _%e7168571726%_))) + (_%tl7168371733%_ + (let () + (declare (not safe)) + (##cdr _%e7168571726%_)))) + (_%loop7167571704%_ + _%lp-tl7167871723%_ + (cons _%tl7168371733%_ + _%contract7167971711%_) + (cons _%hd7168471730%_ + _%slot7168071713%_)))) + (_%g7166871691%_ _%g7166971695%_)))) + (let ((_%contract7168171736%_ + (reverse _%contract7167971711%_)) + (_%slot7168271739%_ + (reverse _%slot7168071713%_))) + ((lambda (_%L71742%_ _%L71744%_) + (cons (gx#datum->syntax '#f '@list) + (begin + (gx#syntax-check-splice-targets + _%L71742%_ + _%L71744%_) + (foldr (lambda (_%g7175971763%_ + _%g7176071766%_ + _%g7176171768%_) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '@list) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%g7176071766%_ '())) + (cons ':: + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%g7175971763%_ '())) + '())))) + _%g7176171768%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '() + _%L71742%_ + _%L71744%_)))) + _%contract7168171736%_ + _%slot7168271739%_)))))) + (_%loop7167571704%_ _%target7167271698%_ '() '())) + (_%g7166871691%_ _%g7166971695%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7166871691%_ + _%g7166971695%_))))) + (_%g7166771771%_ + (hash->list + _%slot-contract-table68118%_)))))) + _%g6993269943%_)))) + (_%g6993071775%_ + (let* ((_%g7177971802%_ + (lambda (_%g7178071798%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7178071798%_))) + (_%g7177871882%_ + (lambda (_%g7178071806%_) + (if (gx#stx-pair/null? _%g7178071806%_) + (let ((_g80721_ + (gx#syntax-split-splice + _%g7178071806%_ + '0))) + (begin + (let ((_g80722_ + (let () + (declare (not safe)) + (if (##values? _g80721_) + (##vector-length _g80721_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g80722_ 2))) + (error "Context expects 2 values" + _g80722_))) + (let ((_%target7178371809%_ + (let () + (declare (not safe)) + (##vector-ref _g80721_ 0))) + (_%tl7178571812%_ + (let () + (declare (not safe)) + (##vector-ref _g80721_ 1)))) + (if (gx#stx-null? _%tl7178571812%_) + (letrec ((_%loop7178671815%_ + (lambda (_%hd7178471819%_ + _%type7179071822%_ + _%slot7179171824%_) + (if (gx#stx-pair? + _%hd7178471819%_) + (let ((_%e7178771827%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%hd7178471819%_))) + (let ((_%lp-hd7178871831%_ + (let () + (declare (not safe)) + (##car _%e7178771827%_))) + (_%lp-tl7178971834%_ + (let () + (declare (not safe)) + (##cdr _%e7178771827%_)))) + (if (gx#stx-pair? _%lp-hd7178871831%_) + (let ((_%e7179671837%_ + (gx#syntax-e _%lp-hd7178871831%_))) + (let ((_%hd7179571841%_ + (let () + (declare (not safe)) + (##car _%e7179671837%_))) + (_%tl7179471844%_ + (let () + (declare (not safe)) + (##cdr _%e7179671837%_)))) + (_%loop7178671815%_ + _%lp-tl7178971834%_ + (cons _%tl7179471844%_ _%type7179071822%_) + (cons _%hd7179571841%_ _%slot7179171824%_)))) + (_%g7177971802%_ _%g7178071806%_)))) + (let ((_%type7179271847%_ (reverse _%type7179071822%_)) + (_%slot7179371850%_ (reverse _%slot7179171824%_))) + ((lambda (_%L71853%_ _%L71855%_) + (cons (gx#datum->syntax '#f '@list) + (begin + (gx#syntax-check-splice-targets + _%L71853%_ + _%L71855%_) + (foldr (lambda (_%g7187071874%_ + _%g7187171877%_ + _%g7187271879%_) + (cons (cons (gx#datum->syntax + '#f + '@list) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote) + (cons _%g7187171877%_ '())) + (cons ':: + (cons (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _%g7187071874%_ '())) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7187271879%_)) + '() + _%L71853%_ + _%L71855%_)))) + _%type7179271847%_ + _%slot7179371850%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%ugetf6912269161%_)))))) - (_%loop6911769141%_ - _%target6911469135%_ - '())) - (_%g6911169128%_ _%g6911269132%_))))) - (_%g6911169128%_ _%g6911269132%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6911072359%_ - (gx#stx-map - (lambda (_%g7236272364%_) - (_%make-id68286%_ - '"&" - _%g7236272364%_)) - (foldr (lambda (_%g7236772370%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7236872373%_) - (cons _%g7236772370%_ _%g7236872373%_)) + (_%loop7178671815%_ + _%target7178371809%_ + '() + '())) + (_%g7177971802%_ + _%g7178071806%_))))) + (_%g7177971802%_ _%g7178071806%_))))) + (_%g7177871882%_ + (filter (lambda (_%st71886%_) (cdr _%st71886%_)) + (hash->list _%slot-type-table68116%_))))))) + _%g6990469915%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6990271889%_ + (cons (gx#datum->syntax + '#f + 'quote) + (cons (foldr (lambda (_%g7189271895%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7189371898%_) + (cons _%g7189271895%_ _%g7189371898%_)) + '() + _%L68422%_) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g6987669887%_)))) + (_%g6987471901%_ + (cons (gx#datum->syntax '#f 'quote) + (cons (foldr (lambda (_%g7190471907%_ + _%g7190571910%_) + (cons _%g7190471907%_ + _%g7190571910%_)) + '() + _%L68351%_) + '()))))) + _%g6984869859%_)))) + (_%g6984671913%_ + (let* ((_%g7191771934%_ + (lambda (_%g7191871930%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7191871930%_))) + (_%g7191671995%_ + (lambda (_%g7191871938%_) + (if (gx#stx-pair/null? _%g7191871938%_) + (let ((_g80723_ + (gx#syntax-split-splice + _%g7191871938%_ + '0))) + (begin + (let ((_g80724_ + (let () + (declare (not safe)) + (if (##values? _g80723_) + (##vector-length _g80723_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g80724_ 2))) + (error "Context expects 2 values" + _g80724_))) + (let ((_%target7192071941%_ + (let () + (declare (not safe)) + (##vector-ref _g80723_ 0))) + (_%tl7192271944%_ + (let () + (declare (not safe)) + (##vector-ref _g80723_ 1)))) + (if (gx#stx-null? _%tl7192271944%_) + (letrec ((_%loop7192371947%_ + (lambda (_%hd7192171951%_ + _%super-id7192771954%_) + (if (gx#stx-pair? + _%hd7192171951%_) + (let ((_%e7192471957%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%hd7192171951%_))) + (let ((_%lp-hd7192571961%_ + (let () + (declare (not safe)) + (##car _%e7192471957%_))) + (_%lp-tl7192671964%_ + (let () + (declare (not safe)) + (##cdr _%e7192471957%_)))) + (_%loop7192371947%_ + _%lp-tl7192671964%_ + (cons _%lp-hd7192571961%_ _%super-id7192771954%_)))) + (let ((_%super-id7192871967%_ + (reverse _%super-id7192771954%_))) + ((lambda (_%L71971%_) + (cons (gx#datum->syntax '#f '@list) + (foldr (lambda (_%g7198671989%_ _%g7198771992%_) + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%g7198671989%_ '())) + _%g7198771992%_)) + '() + _%L71971%_))) + _%super-id7192871967%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7192371947%_ + _%target7192071941%_ + '())) + (_%g7191771934%_ + _%g7191871938%_))))) + (_%g7191771934%_ _%g7191871938%_))))) + (_%g7191671995%_ _%super-ref68107%_))))) + _%g6982069831%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6981871999%_ + (let* ((_%g7200372011%_ + (lambda (_%g7200472007%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7200472007%_))) + (_%g7200272030%_ + (lambda (_%g7200472015%_) + ((lambda (_%L72018%_) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote) + (cons _%L72018%_ '()))) + _%g7200472015%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7200272030%_ + (gx#stx-car + (gx#stx-cdr + _%type-name69519%_))))))) + _%g6979269803%_)))) + (_%g6979072034%_ + (let* ((_%g7203872053%_ + (lambda (_%g7203972049%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7203972049%_))) + (_%g7203772101%_ + (lambda (_%g7203972057%_) + (if (gx#stx-pair? _%g7203972057%_) + (let ((_%e7204372060%_ + (gx#syntax-e + _%g7203972057%_))) + (let ((_%hd7204272064%_ + (let () + (declare (not safe)) + (##car _%e7204372060%_))) + (_%tl7204172067%_ + (let () + (declare (not safe)) + (##cdr _%e7204372060%_)))) + (if (gx#stx-datum? + _%hd7204272064%_) + (let ((_%e7204472070%_ + (gx#stx-e + _%hd7204272064%_))) + (if (equal? _%e7204472070%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + 'id:) + (if (gx#stx-pair? _%tl7204172067%_) + (let ((_%e7204772074%_ + (gx#syntax-e _%tl7204172067%_))) + (let ((_%hd7204672078%_ + (let () + (declare (not safe)) + (##car _%e7204772074%_))) + (_%tl7204572081%_ + (let () + (declare (not safe)) + (##cdr _%e7204772074%_)))) + (if (gx#stx-null? _%tl7204572081%_) + ((lambda (_%L72084%_) + (cons (gx#datum->syntax '#f 'quote) + (cons _%L72084%_ '()))) + _%hd7204672078%_) + (_%g7203872053%_ _%g7203972057%_)))) + (_%g7203872053%_ _%g7203972057%_)) + (_%g7203872053%_ _%g7203972057%_))) + (_%g7203872053%_ _%g7203972057%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7203872053%_ + _%g7203972057%_))))) + (_%g7203772101%_ _%type-id69526%_))))) + _%g6976469775%_)))) + (_%g6976272105%_ + (_%wrap67970%_ + (cons (gx#datum->syntax '#f 'defclass-type) + (cons _%L68200%_ + (cons _%L68284%_ + (cons _%L69750%_ + (cons _%L68256%_ + (foldr (lambda (_%g7210872111%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7210972114%_) + (cons _%g7210872111%_ _%g7210972114%_)) '() - _%L68668%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-rawsetf6905169090%_)))))) - (_%loop6904669070%_ _%target6904369064%_ '())) - (_%g6904069057%_ _%g6904169061%_))))) - (_%g6904069057%_ _%g6904169061%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6903972376%_ - (gx#stx-map - (lambda (_%g7237972381%_) - (_%make-id68286%_ - _%name68313%_ - '"-unchecked-" - _%g7237972381%_ - '"-set!")) - _%mixin-slots68310%_))))) - _%mixin-setf6898069019%_)))))) - (_%loop6897568999%_ _%target6897268993%_ '())) - (_%g6896968986%_ _%g6897068990%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6896968986%_ - _%g6897068990%_))))) - (_%g6896872385%_ - (gx#stx-map - (lambda (_%g7238872390%_) - (_%make-id68286%_ - _%name68313%_ - '"-" - _%g7238872390%_ - '"-set!")) - _%mixin-slots68310%_))))) - _%mixin-getf6890968948%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6890468928%_ - _%target6890168922%_ - '())) - (_%g6889868915%_ - _%g6889968919%_))))) - (_%g6889868915%_ _%g6889968919%_))))) - (_%g6889772394%_ - (gx#stx-map - (lambda (_%g7239772399%_) - (_%make-id68286%_ - _%name68313%_ - '"-" - _%g7239772399%_)) - _%mixin-slots68310%_))))) - _%mixin-slot6883868877%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6883368857%_ - _%target6883068851%_ + _%L69714%_)))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g6973669747%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6973472117%_ + (if (or (not (null? _%type-constructor69541%_)) + (and (zero? (hash-length +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%slot-contract-table68118%_)) + (zero? (hash-length _%slot-default-table68121%_))) + _%metaclass69645%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%L68228%_ + '#f)))) + _%type-body6967169710%_)))))) + (_%loop6966669690%_ _%target6966369684%_ '())) + (_%g6966069677%_ _%g6966169681%_))))) + (_%g6966069677%_ _%g6966169681%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6965972129%_ + (foldr cons + (foldr cons + (foldr cons + (foldr cons +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (foldr cons + (foldr cons + (foldr cons + (foldr cons + _%type-mixin-slots69512%_ + _%type-slots69365%_) + _%type-properties69633%_) + _%type-metaclass69657%_) + _%type-final69654%_) + _%type-struct69651%_) + _%type-constructor69541%_) + _%type-name69519%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%type-id69526%_)))) + _%mixin-usetf6916069199%_)))))) + (_%loop6915569179%_ _%target6915269173%_ '())) + (_%g6914969166%_ _%g6915069170%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6914969166%_ + _%g6915069170%_))))) + (_%g6914872133%_ + (gx#stx-map + (lambda (_%g7213672138%_) + (_%make-id68111%_ + '"&" + _%g7213672138%_)) + (foldr (lambda (_%g7214172144%_ + _%g7214272147%_) + (cons _%g7214172144%_ + _%g7214272147%_)) + '() + _%L68848%_))))) + _%mixin-ugetf6908969128%_)))))) + (_%loop6908469108%_ _%target6908169102%_ '())) + (_%g6907869095%_ _%g6907969099%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6907869095%_ + _%g6907969099%_))))) + (_%g6907772150%_ + (gx#stx-map + (lambda (_%g7215372155%_) + (_%make-id68111%_ '"&" _%g7215372155%_)) + (foldr (lambda (_%g7215872161%_ + _%g7215972164%_) + (cons _%g7215872161%_ + _%g7215972164%_)) + '() + _%L68777%_))))) + _%usetf6901869057%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6901369037%_ + _%target6901069031%_ + '())) + (_%g6900769024%_ + _%g6900869028%_))))) + (_%g6900769024%_ _%g6900869028%_))))) + (_%g6900672167%_ + (gx#stx-map + (lambda (_%g7217072172%_) + (_%make-id68111%_ '"&" _%g7217072172%_)) + (foldr (lambda (_%g7217572178%_ _%g7217672181%_) + (cons _%g7217572178%_ _%g7217672181%_)) + '() + _%L68564%_))))) + _%ugetf6894768986%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6894268966%_ + _%target6893968960%_ '())) - (_%g6882768844%_ - _%g6882868848%_))))) - (_%g6882768844%_ _%g6882868848%_))))) - (_%g6882672403%_ _%mixin-slots68310%_)))) - _%rawsetf6876768806%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6876268786%_ - _%target6875968780%_ - '())) - (_%g6875668773%_ _%g6875768777%_))))) - (_%g6875668773%_ _%g6875768777%_))))) - (_%g6875572407%_ - (gx#stx-map - (lambda (_%g7241072412%_) - (_%make-id68286%_ - _%name68313%_ - '"-unchecked-" - _%g7241072412%_ - '"-set!")) - _%slots68304%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%setf6869668735%_)))))) - (_%loop6869168715%_ _%target6868868709%_ '())) - (_%g6868568702%_ _%g6868668706%_))))) - (_%g6868568702%_ _%g6868668706%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6868472416%_ - (gx#stx-map - (lambda (_%g7241972421%_) - (_%make-id68286%_ - _%name68313%_ - '"-" - _%g7241972421%_ - '"-set!")) - _%slots68304%_))))) - _%getf6862568664%_)))))) - (_%loop6862068644%_ _%target6861768638%_ '())) - (_%g6861468631%_ _%g6861568635%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6861468631%_ - _%g6861568635%_))))) - (_%g6861372425%_ - (gx#stx-map - (lambda (_%g7242872430%_) - (_%make-id68286%_ - _%name68313%_ - '"-" - _%g7242872430%_)) - _%slots68304%_))))) - _%ordered-slot6855468593%_)))))) - (_%loop6854968573%_ _%target6854668567%_ '())) - (_%g6854368560%_ _%g6854468564%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6854368560%_ - _%g6854468564%_))))) - (_%g6854272434%_ _%ordered-slots68299%_)))) - _%slot6848368522%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6847868502%_ - _%target6847568496%_ + (_%g6893668953%_ + _%g6893768957%_))))) + (_%g6893668953%_ _%g6893768957%_))))) + (_%g6893572184%_ + (gx#stx-map + (lambda (_%g7218772189%_) + (_%make-id68111%_ '"&" _%g7218772189%_)) + (foldr (lambda (_%g7219272195%_ _%g7219372198%_) + (cons _%g7219272195%_ _%g7219372198%_)) + '() + _%L68493%_))))) + _%mixin-rawsetf6887668915%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6887168895%_ + _%target6886868889%_ + '())) + (_%g6886568882%_ _%g6886668886%_))))) + (_%g6886568882%_ _%g6886668886%_))))) + (_%g6886472201%_ + (gx#stx-map + (lambda (_%g7220472206%_) + (_%make-id68111%_ + _%name68138%_ + '"-unchecked-" + _%g7220472206%_ + '"-set!")) + _%mixin-slots68135%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%mixin-setf6880568844%_)))))) + (_%loop6880068824%_ + _%target6879768818%_ + '())) + (_%g6879468811%_ _%g6879568815%_))))) + (_%g6879468811%_ _%g6879568815%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6879372210%_ + (gx#stx-map + (lambda (_%g7221372215%_) + (_%make-id68111%_ + _%name68138%_ + '"-" + _%g7221372215%_ + '"-set!")) + _%mixin-slots68135%_)))) + _%mixin-getf6873468773%_)))))) + (_%loop6872968753%_ _%target6872668747%_ '())) + (_%g6872368740%_ _%g6872468744%_))))) + (_%g6872368740%_ _%g6872468744%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6872272219%_ + (gx#stx-map + (lambda (_%g7222272224%_) + (_%make-id68111%_ + _%name68138%_ + '"-" + _%g7222272224%_)) + _%mixin-slots68135%_)))) + _%mixin-slot6866368702%_)))))) + (_%loop6865868682%_ _%target6865568676%_ '())) + (_%g6865268669%_ _%g6865368673%_))))) + (_%g6865268669%_ _%g6865368673%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6865172228%_ + _%mixin-slots68135%_))) + _%rawsetf6859268631%_)))))) + (_%loop6858768611%_ _%target6858468605%_ '())) + (_%g6858168598%_ _%g6858268602%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6858168598%_ + _%g6858268602%_))))) + (_%g6858072232%_ + (gx#stx-map + (lambda (_%g7223572237%_) + (_%make-id68111%_ + _%name68138%_ + '"-unchecked-" + _%g7223572237%_ + '"-set!")) + _%slots68129%_)))) + _%setf6852168560%_)))))) + (_%loop6851668540%_ _%target6851368534%_ '())) + (_%g6851068527%_ _%g6851168531%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6851068527%_ + _%g6851168531%_))))) + (_%g6850972241%_ + (gx#stx-map + (lambda (_%g7224472246%_) + (_%make-id68111%_ + _%name68138%_ + '"-" + _%g7224472246%_ + '"-set!")) + _%slots68129%_)))) + _%getf6845068489%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6844568469%_ + _%target6844268463%_ '())) - (_%g6847268489%_ - _%g6847368493%_))))) - (_%g6847268489%_ _%g6847368493%_))))) - (_%g6847172438%_ _%slots68304%_)))) - _%g6844568456%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6844372442%_ - (map gerbil/core/mop~MOP-2#!class-type-descriptor - _%super68316%_))))) - _%g6841768428%_)))) - (_%g6841572446%_ - (_%make-id68286%_ _%name68313%_ '"?"))))) - _%g6838968400%_)))) - (_%g6838772450%_ - (_%make-id68286%_ '"make-" _%name68313%_))))) - _%g6836168372%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6835972454%_ - (_%make-id68286%_ - _%name68313%_ - '"::t"))))) - _%g6832368334%_)))) - (_%g6832172458%_ _%id68280%_)))))))))) - (let* ((_%g6814868176%_ - (lambda (_%g6814968172%_) + (_%g6843968456%_ + _%g6844068460%_))))) + (_%g6843968456%_ _%g6844068460%_))))) + (_%g6843872250%_ + (gx#stx-map + (lambda (_%g7225372255%_) + (_%make-id68111%_ + _%name68138%_ + '"-" + _%g7225372255%_)) + _%slots68129%_)))) + _%ordered-slot6837968418%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6837468398%_ + _%target6837168392%_ + '())) + (_%g6836868385%_ + _%g6836968389%_))))) + (_%g6836868385%_ _%g6836968389%_))))) + (_%g6836772259%_ _%ordered-slots68124%_))) + _%slot6830868347%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6830368327%_ + _%target6830068321%_ + '())) + (_%g6829768314%_ _%g6829868318%_))))) + (_%g6829768314%_ _%g6829868318%_))))) + (_%g6829672263%_ _%slots68129%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g6827068281%_)))) + (_%g6826872267%_ + (map gerbil/core/mop~MOP-2#!class-type-descriptor + _%super68141%_)))) + _%g6824268253%_)))) + (_%g6824072271%_ + (_%make-id68111%_ _%name68138%_ '"?")))) + _%g6821468225%_)))) + (_%g6821272275%_ (_%make-id68111%_ '"make-" _%name68138%_)))) + _%g6818668197%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6818472279%_ + (_%make-id68111%_ + _%name68138%_ + '"::t")))) + _%g6814868159%_)))) + (_%g6814672283%_ _%id68105%_)))))))))) + (let* ((_%g6797368001%_ + (lambda (_%g6797467997%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6814968172%_))) - (_%g6814768276%_ - (lambda (_%g6814968180%_) - (if (gx#stx-pair? _%g6814968180%_) - (let ((_%e6815568183%_ (gx#syntax-e _%g6814968180%_))) - (let ((_%hd6815468187%_ + _%g6797467997%_))) + (_%g6797268101%_ + (lambda (_%g6797468005%_) + (if (gx#stx-pair? _%g6797468005%_) + (let ((_%e6798068008%_ (gx#syntax-e _%g6797468005%_))) + (let ((_%hd6797968012%_ (let () (declare (not safe)) - (##car _%e6815568183%_))) - (_%tl6815368190%_ + (##car _%e6798068008%_))) + (_%tl6797868015%_ (let () (declare (not safe)) - (##cdr _%e6815568183%_)))) - (if (gx#stx-pair? _%tl6815368190%_) - (let ((_%e6815868193%_ - (gx#syntax-e _%tl6815368190%_))) - (let ((_%hd6815768197%_ + (##cdr _%e6798068008%_)))) + (if (gx#stx-pair? _%tl6797868015%_) + (let ((_%e6798368018%_ + (gx#syntax-e _%tl6797868015%_))) + (let ((_%hd6798268022%_ (let () (declare (not safe)) - (##car _%e6815868193%_))) - (_%tl6815668200%_ + (##car _%e6798368018%_))) + (_%tl6798168025%_ (let () (declare (not safe)) - (##cdr _%e6815868193%_)))) - (if (gx#stx-pair? _%tl6815668200%_) - (let ((_%e6816168203%_ - (gx#syntax-e _%tl6815668200%_))) - (let ((_%hd6816068207%_ + (##cdr _%e6798368018%_)))) + (if (gx#stx-pair? _%tl6798168025%_) + (let ((_%e6798668028%_ + (gx#syntax-e _%tl6798168025%_))) + (let ((_%hd6798568032%_ (let () (declare (not safe)) - (##car _%e6816168203%_))) - (_%tl6815968210%_ + (##car _%e6798668028%_))) + (_%tl6798468035%_ (let () (declare (not safe)) - (##cdr _%e6816168203%_)))) + (##cdr _%e6798668028%_)))) (if (gx#stx-pair/null? - _%hd6816068207%_) - (let ((_g81008_ + _%hd6798568032%_) + (let ((_g80725_ (gx#syntax-split-splice - _%hd6816068207%_ + _%hd6798568032%_ '0))) (begin - (let ((_g81009_ + (let ((_g80726_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g81008_) - (##vector-length _g81008_) + _g80725_) + (##vector-length _g80725_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g81009_ 2))) - (error "Context expects 2 values" _g81009_))) + (if (not (let () (declare (not safe)) (##fx= _g80726_ 2))) + (error "Context expects 2 values" _g80726_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6816268213%_ + (let ((_%target6798768038%_ (let () (declare (not safe)) (##vector-ref - _g81008_ + _g80725_ 0))) - (_%tl6816468216%_ + (_%tl6798968041%_ (let () (declare (not safe)) (##vector-ref - _g81008_ + _g80725_ 1)))) (if (gx#stx-null? - _%tl6816468216%_) - (letrec ((_%loop6816568219%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6816368223%_ _%slot6816968226%_) - (if (gx#stx-pair? _%hd6816368223%_) - (let ((_%e6816668229%_ - (gx#syntax-e _%hd6816368223%_))) - (let ((_%lp-hd6816768233%_ + _%tl6798968041%_) + (letrec ((_%loop6799068044%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd6798868048%_ _%slot6799468051%_) + (if (gx#stx-pair? _%hd6798868048%_) + (let ((_%e6799168054%_ + (gx#syntax-e _%hd6798868048%_))) + (let ((_%lp-hd6799268058%_ (let () (declare (not safe)) - (##car _%e6816668229%_))) - (_%lp-tl6816868236%_ + (##car _%e6799168054%_))) + (_%lp-tl6799368061%_ (let () (declare (not safe)) - (##cdr _%e6816668229%_)))) - (_%loop6816568219%_ - _%lp-tl6816868236%_ - (cons _%lp-hd6816768233%_ - _%slot6816968226%_)))) - (let ((_%slot6817068239%_ - (reverse _%slot6816968226%_))) - ((lambda (_%L68243%_ _%L68245%_ _%L68246%_) - (_%generate68125%_ - _%L68246%_ - (foldr (lambda (_%g6826768270%_ - _%g6826868273%_) - (cons _%g6826768270%_ - _%g6826868273%_)) + (##cdr _%e6799168054%_)))) + (_%loop6799068044%_ + _%lp-tl6799368061%_ + (cons _%lp-hd6799268058%_ + _%slot6799468051%_)))) + (let ((_%slot6799568064%_ + (reverse _%slot6799468051%_))) + ((lambda (_%L68068%_ _%L68070%_ _%L68071%_) + (_%generate67950%_ + _%L68071%_ + (foldr (lambda (_%g6809268095%_ + _%g6809368098%_) + (cons _%g6809268095%_ + _%g6809368098%_)) '() - _%L68245%_) - _%L68243%_)) - _%tl6815968210%_ - _%slot6817068239%_ - _%hd6815768197%_)))))) - (_%loop6816568219%_ _%target6816268213%_ '())) - (_%g6814868176%_ _%g6814968180%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6814868176%_ - _%g6814968180%_)))) - (_%g6814868176%_ _%g6814968180%_)))) - (_%g6814868176%_ _%g6814968180%_)))) - (_%g6814868176%_ _%g6814968180%_))))) - (_%g6814768276%_ _%stx68122%_))))) + _%L68070%_) + _%L68068%_)) + _%tl6798468035%_ + _%slot6799568064%_ + _%hd6798268022%_)))))) + (_%loop6799068044%_ _%target6798768038%_ '())) + (_%g6797368001%_ _%g6797468005%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6797368001%_ + _%g6797468005%_)))) + (_%g6797368001%_ _%g6797468005%_)))) + (_%g6797368001%_ _%g6797468005%_)))) + (_%g6797368001%_ _%g6797468005%_))))) + (_%g6797268101%_ _%stx67947%_))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defstruct/c| - (lambda (_%$stx75468%_) - (let* ((_%g7547275491%_ - (lambda (_%g7547375487%_) + (lambda (_%$stx75293%_) + (let* ((_%g7529775316%_ + (lambda (_%g7529875312%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7547375487%_))) - (_%g7547175548%_ - (lambda (_%g7547375495%_) - (if (gx#stx-pair? _%g7547375495%_) - (let ((_%e7547975498%_ (gx#syntax-e _%g7547375495%_))) - (let ((_%hd7547875502%_ + _%g7529875312%_))) + (_%g7529675373%_ + (lambda (_%g7529875320%_) + (if (gx#stx-pair? _%g7529875320%_) + (let ((_%e7530475323%_ (gx#syntax-e _%g7529875320%_))) + (let ((_%hd7530375327%_ (let () (declare (not safe)) - (##car _%e7547975498%_))) - (_%tl7547775505%_ + (##car _%e7530475323%_))) + (_%tl7530275330%_ (let () (declare (not safe)) - (##cdr _%e7547975498%_)))) - (if (gx#stx-pair? _%tl7547775505%_) - (let ((_%e7548275508%_ - (gx#syntax-e _%tl7547775505%_))) - (let ((_%hd7548175512%_ + (##cdr _%e7530475323%_)))) + (if (gx#stx-pair? _%tl7530275330%_) + (let ((_%e7530775333%_ + (gx#syntax-e _%tl7530275330%_))) + (let ((_%hd7530675337%_ (let () (declare (not safe)) - (##car _%e7548275508%_))) - (_%tl7548075515%_ + (##car _%e7530775333%_))) + (_%tl7530575340%_ (let () (declare (not safe)) - (##cdr _%e7548275508%_)))) - (if (gx#stx-pair? _%tl7548075515%_) - (let ((_%e7548575518%_ - (gx#syntax-e _%tl7548075515%_))) - (let ((_%hd7548475522%_ + (##cdr _%e7530775333%_)))) + (if (gx#stx-pair? _%tl7530575340%_) + (let ((_%e7531075343%_ + (gx#syntax-e _%tl7530575340%_))) + (let ((_%hd7530975347%_ (let () (declare (not safe)) - (##car _%e7548575518%_))) - (_%tl7548375525%_ + (##car _%e7531075343%_))) + (_%tl7530875350%_ (let () (declare (not safe)) - (##cdr _%e7548575518%_)))) - ((lambda (_%L75528%_ - _%L75530%_ - _%L75531%_) + (##cdr _%e7531075343%_)))) + ((lambda (_%L75353%_ + _%L75355%_ + _%L75356%_) (cons (gx#datum->syntax '#f 'defclass/c) - (cons _%L75531%_ - (cons _%L75530%_ + (cons _%L75356%_ + (cons _%L75355%_ (cons 'struct: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '#t _%L75528%_)))))) + (cons '#t _%L75353%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl7548375525%_ - _%hd7548475522%_ - _%hd7548175512%_))) - (_%g7547275491%_ _%g7547375495%_)))) - (_%g7547275491%_ _%g7547375495%_)))) - (_%g7547275491%_ _%g7547375495%_))))) - (_%g7547175548%_ _%$stx75468%_)))))) + _%tl7530875350%_ + _%hd7530975347%_ + _%hd7530675337%_))) + (_%g7529775316%_ _%g7529875320%_)))) + (_%g7529775316%_ _%g7529875320%_)))) + (_%g7529775316%_ _%g7529875320%_))))) + (_%g7529675373%_ _%$stx75293%_)))))) diff --git a/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm b/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm index 81d427abe..3b70053fa 100644 --- a/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm +++ b/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm @@ -1,149 +1,145 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/contract~ClassMeta::timestamp 1712533286) + (define gerbil/core/contract~ClassMeta::timestamp 1712573426) (define gerbil/core/contract~ClassMeta#!class-precedence-list - (lambda (_%klass52218%_) - (let ((_%$e52220%_ - (let ((__obj80548 _%klass52218%_)) + (lambda (_%klass52043%_) + (let ((_%$e52045%_ + (let ((__obj80373 _%klass52043%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80548 + __obj80373 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj80548 '5 '#f '#f)) + (##unchecked-structure-ref __obj80373 '5 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80548 + __obj80373 'precedence-list))))) - (if _%$e52220%_ - _%$e52220%_ - (let ((_g80600_ + (if _%$e52045%_ + _%$e52045%_ + (let ((_g80420_ (c4-linearize '() - (let ((__obj80549 _%klass52218%_)) + (let ((__obj80374 _%klass52043%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80549 + __obj80374 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj80549 '3 '#f '#f)) + (##unchecked-structure-ref __obj80374 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80549 + __obj80374 'super))) 'get-precedence-list: - (lambda (_%klass-id52224%_) - (cons _%klass-id52224%_ - (let ((__tmp80602 - (gx#syntax-local-value _%klass-id52224%_))) - (declare (not safe)) - (gerbil/core/contract~ClassMeta#!class-precedence-list - __tmp80602)))) + (lambda (_%klass-id52049%_) + (cons _%klass-id52049%_ + (gerbil/core/contract~ClassMeta#!class-precedence-list + (gx#syntax-local-value _%klass-id52049%_)))) 'struct: - (lambda (_%klass-id52226%_) - (let ((__obj80550 - (gx#syntax-local-value _%klass-id52226%_))) + (lambda (_%klass-id52051%_) + (let ((__obj80375 + (gx#syntax-local-value _%klass-id52051%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80550 + __obj80375 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80550 + __obj80375 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80550 + __obj80375 'struct?)))) 'eq: gx#free-identifier=? 'get-name: gx#stx-e))) (begin - (let ((_g80601_ + (let ((_g80421_ (let () (declare (not safe)) - (if (##values? _g80600_) - (##vector-length _g80600_) + (if (##values? _g80420_) + (##vector-length _g80420_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g80601_ 2))) - (error "Context expects 2 values" _g80601_))) - (let ((_%precedence-list52228%_ - (let () (declare (not safe)) (##vector-ref _g80600_ 0))) - (_%base-struct52229%_ + (if (not (let () (declare (not safe)) (##fx= _g80421_ 2))) + (error "Context expects 2 values" _g80421_))) + (let ((_%precedence-list52053%_ + (let () (declare (not safe)) (##vector-ref _g80420_ 0))) + (_%base-struct52054%_ (let () (declare (not safe)) - (##vector-ref _g80600_ 1)))) - (let ((_%precedence-list52273%_ - (if (let ((__tmp80603 - (let ((__obj80551 _%klass52218%_)) + (##vector-ref _g80420_ 1)))) + (let ((_%precedence-list52098%_ + (if (let ((__tmp80422 + (let ((__obj80376 _%klass52043%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80551 + __obj80376 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80551 + __obj80376 '1 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80551 + __obj80376 'id))))) (declare (not safe)) - (##memq __tmp80603 '(t object class))) - (let () _%precedence-list52228%_) + (##memq __tmp80422 '(t object class))) + _%precedence-list52053%_ (if (member ':object - _%precedence-list52228%_ + _%precedence-list52053%_ gx#free-identifier=?) - (let () _%precedence-list52228%_) - (if (let ((__obj80552 _%klass52218%_)) + _%precedence-list52053%_ + (if (let ((__obj80377 _%klass52043%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80552 + __obj80377 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80552 + __obj80377 '9 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj80552 + __obj80377 'system?))) - (let () - (if (member ':t - _%precedence-list52228%_ - gx#free-identifier=?) - _%precedence-list52228%_ - (let ((__tmp80604 - (cons (gx#core-quote-syntax - ':t) - '()))) - (declare (not safe)) - (##append - _%precedence-list52228%_ - __tmp80604)))) - (let _%loop52235%_ ((_%tail52237%_ - _%precedence-list52228%_) - (_%head52238%_ '())) - (let* ((_%tail5223952247%_ - _%tail52237%_) - (_%else5224152255%_ + (if (member ':t + _%precedence-list52053%_ + gx#free-identifier=?) + _%precedence-list52053%_ + (let ((__tmp80423 + (cons (gx#core-quote-syntax + ':t) + '()))) + (declare (not safe)) + (##append + _%precedence-list52053%_ + __tmp80423))) + (let _%loop52060%_ ((_%tail52062%_ + _%precedence-list52053%_) + (_%head52063%_ '())) + (let* ((_%tail5206452072%_ + _%tail52062%_) + (_%else5206652080%_ (lambda () (foldl cons (cons (gx#core-quote-syntax @@ -152,67 +148,61 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ':t) '())) - _%head52238%_))) + _%head52063%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K5224352261%_ - (lambda (_%rest52258%_ - _%hd52259%_) + (_%K5206852086%_ + (lambda (_%rest52083%_ + _%hd52084%_) (if (gx#free-identifier=? - _%hd52259%_ + _%hd52084%_ ':t) (foldl cons (cons (gx#core-quote-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ':object) - _%tail52237%_) - _%head52238%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp80605 - (cons _%hd52259%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%head52238%_))) - (declare (not safe)) - (_%loop52235%_ _%rest52258%_ __tmp80605)))))) + _%tail52062%_) + _%head52063%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop52060%_ + _%rest52083%_ + (cons _%hd52084%_ + _%head52063%_)))))) (if (let () (declare (not safe)) - (##pair? _%tail5223952247%_)) - (let ((_%hd5224452264%_ + (##pair? _%tail5206452072%_)) + (let ((_%hd5206952089%_ (let () (declare (not safe)) - (##car _%tail5223952247%_))) - (_%tl5224552266%_ + (##car _%tail5206452072%_))) + (_%tl5207052091%_ (let () (declare (not safe)) - (##cdr _%tail5223952247%_)))) - (let* ((_%hd52269%_ - _%hd5224452264%_) - (_%rest52271%_ - _%tl5224552266%_)) - (declare (not safe)) - (_%K5224352261%_ - _%rest52271%_ - _%hd52269%_))) - (let () - (declare (not safe)) - (_%else5224152255%_)))))))))) - (let ((__obj80553 _%klass52218%_)) + (##cdr _%tail5206452072%_)))) + (let* ((_%hd52094%_ + _%hd5206952089%_) + (_%rest52096%_ + _%tl5207052091%_)) + (_%K5206852086%_ + _%rest52096%_ + _%hd52094%_))) + (_%else5206652080%_))))))))) + (let ((__obj80378 _%klass52043%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80553 + __obj80378 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj80553 - _%precedence-list52273%_ + __obj80378 + _%precedence-list52098%_ '5 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj80553 + __obj80378 'precedence-list - _%precedence-list52273%_))) - _%precedence-list52273%_))))))))) + _%precedence-list52098%_))) + _%precedence-list52098%_))))))))) diff --git a/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm b/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm index 82e496c21..55784739c 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 1712533286) + (define gerbil/core/contract~InterfaceInfo::timestamp 1712573426) (begin - (define gerbil/core/contract~InterfaceInfo#_g80594_ + (define gerbil/core/contract~InterfaceInfo#_g80416_ (##structure gx#syntax-quote::t 'cast #f (gx#current-expander-context) '())) - (define gerbil/core/contract~InterfaceInfo#_g80595_ + (define gerbil/core/contract~InterfaceInfo#_g80417_ (##structure gx#syntax-quote::t 'immediate-instance-of? @@ -38,10 +38,10 @@ (make-class-predicate gerbil/core/contract~InterfaceInfo#interface-info::t)) (define gerbil/core/contract~InterfaceInfo#make-interface-info - (lambda _%$args45250%_ + (lambda _%$args45075%_ (apply make-instance gerbil/core/contract~InterfaceInfo#interface-info::t - _%$args45250%_))) + _%$args45075%_))) (define gerbil/core/contract~InterfaceInfo#interface-info-name (make-class-slot-accessor gerbil/core/contract~InterfaceInfo#interface-info::t @@ -219,408 +219,368 @@ gerbil/core/contract~InterfaceInfo#interface-info::t 'unchecked-implementation-methods)) (define gerbil/core/contract~InterfaceInfo#interface-info::apply-macro-expander - (let* ((_%g4503945053%_ - (lambda (_%g4504045050%_) + (let* ((_%g4486444878%_ + (lambda (_%g4486544875%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4504045050%_))) - (_%g4503845247%_ - (lambda (_%g4504045056%_) - (if (gx#stx-pair? _%g4504045056%_) - (let ((_%e4504545058%_ (gx#syntax-e _%g4504045056%_))) - (let ((_%hd4504445061%_ + _%g4486544875%_))) + (_%g4486345072%_ + (lambda (_%g4486544881%_) + (if (gx#stx-pair? _%g4486544881%_) + (let ((_%e4487044883%_ (gx#syntax-e _%g4486544881%_))) + (let ((_%hd4486944886%_ (let () (declare (not safe)) - (##car _%e4504545058%_))) - (_%tl4504345063%_ + (##car _%e4487044883%_))) + (_%tl4486844888%_ (let () (declare (not safe)) - (##cdr _%e4504545058%_)))) - (if (gx#stx-pair? _%tl4504345063%_) - (let ((_%e4504845066%_ - (gx#syntax-e _%tl4504345063%_))) - (let ((_%hd4504745069%_ + (##cdr _%e4487044883%_)))) + (if (gx#stx-pair? _%tl4486844888%_) + (let ((_%e4487344891%_ + (gx#syntax-e _%tl4486844888%_))) + (let ((_%hd4487244894%_ (let () (declare (not safe)) - (##car _%e4504845066%_))) - (_%tl4504645071%_ + (##car _%e4487344891%_))) + (_%tl4487144896%_ (let () (declare (not safe)) - (##cdr _%e4504845066%_)))) - (if (gx#stx-null? _%tl4504645071%_) - ((lambda (_%L45074%_ _%L45075%_) - (let () - (lambda (_%self45089%_ _%stx45090%_) - (let* ((_%__stx7555275553%_ - _%stx45090%_) - (_%g4509345106%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx7555275553%_)))) - (let ((_%__kont7555475555%_ - (lambda (_%L45164%_) - (let* ((_%g4517545193%_ - (lambda (_%g4517645190%_) + (##cdr _%e4487344891%_)))) + (if (gx#stx-null? _%tl4487144896%_) + ((lambda (_%L44899%_ _%L44900%_) + (lambda (_%self44914%_ _%stx44915%_) + (let* ((_%__stx7537775378%_ + _%stx44915%_) + (_%g4491844931%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx7537775378%_)))) + (let ((_%__kont7537975380%_ + (lambda (_%L44989%_) + (let* ((_%g4500045018%_ + (lambda (_%g4500145015%_) + (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g4517645190%_))) - (_%g4517445241%_ - (lambda (_%g4517645196%_) - (if (gx#stx-pair? _%g4517645196%_) - (let ((_%e4518245198%_ - (gx#syntax-e _%g4517645196%_))) - (let ((_%hd4518145201%_ - (let () - (declare (not safe)) - (##car _%e4518245198%_))) - (_%tl4518045203%_ - (let () - (declare (not safe)) - (##cdr _%e4518245198%_)))) - (if (gx#stx-pair? _%tl4518045203%_) - (let ((_%e4518545206%_ - (gx#syntax-e _%tl4518045203%_))) - (let ((_%hd4518445209%_ - (let () - (declare (not safe)) - (##car _%e4518545206%_))) - (_%tl4518345211%_ - (let () - (declare (not safe)) - (##cdr _%e4518545206%_)))) - (if (gx#stx-pair? _%tl4518345211%_) - (let ((_%e4518845214%_ - (gx#syntax-e - _%tl4518345211%_))) - (let ((_%hd4518745217%_ - (let () - (declare (not safe)) - (##car _%e4518845214%_))) - (_%tl4518645219%_ - (let () - (declare (not safe)) - (##cdr _%e4518845214%_)))) - (if (gx#stx-null? - _%tl4518645219%_) - ((lambda (_%L45222%_ - _%L45223%_ - _%L45224%_) - (let () - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'let) - (cons (cons (gx#datum->syntax '#f '$obj) - (cons _%L45164%_ '())) - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax - '#f - '@type) - (cons _%L45222%_ '())) - (cons (cons (gx#datum->syntax + '#f + '"Bad syntax; invalid match target" + _%g4500145015%_))) + (_%g4499945066%_ + (lambda (_%g4500145021%_) + (if (gx#stx-pair? _%g4500145021%_) + (let ((_%e4500745023%_ + (gx#syntax-e _%g4500145021%_))) + (let ((_%hd4500645026%_ + (let () + (declare (not safe)) + (##car _%e4500745023%_))) + (_%tl4500545028%_ + (let () + (declare (not safe)) + (##cdr _%e4500745023%_)))) + (if (gx#stx-pair? _%tl4500545028%_) + (let ((_%e4501045031%_ + (gx#syntax-e _%tl4500545028%_))) + (let ((_%hd4500945034%_ + (let () + (declare (not safe)) + (##car _%e4501045031%_))) + (_%tl4500845036%_ + (let () + (declare (not safe)) + (##cdr _%e4501045031%_)))) + (if (gx#stx-pair? _%tl4500845036%_) + (let ((_%e4501345039%_ + (gx#syntax-e + _%tl4500845036%_))) + (let ((_%hd4501245042%_ + (let () + (declare (not safe)) + (##car _%e4501345039%_))) + (_%tl4501145044%_ + (let () + (declare (not safe)) + (##cdr _%e4501345039%_)))) + (if (gx#stx-null? + _%tl4501145044%_) + ((lambda (_%L45047%_ + _%L45048%_ + _%L45049%_) + (cons (gx#datum->syntax '#f - 'if) - (cons (cons _%L45074%_ + 'let) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L45224%_ - (cons (gx#datum->syntax '#f '$obj) - '()))) - (cons (gx#datum->syntax '#f '$obj) - (cons (cons _%L45075%_ - (cons _%L45223%_ - (cons (gx#datum->syntax + '#f + '$obj) + (cons _%L44989%_ '())) + (cons (cons (gx#datum->syntax '#f 'begin-annotation) + (cons (cons (gx#datum->syntax + '#f + '@type) + (cons _%L45047%_ '())) + (cons (cons (gx#datum->syntax '#f - '$obj) - '()))) - '())))) - '()))) + 'if) + (cons (cons _%L44899%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L45049%_ + (cons (gx#datum->syntax '#f '$obj) '()))) + (cons (gx#datum->syntax '#f '$obj) + (cons (cons _%L44900%_ + (cons _%L45048%_ + (cons (gx#datum->syntax + '#f + '$obj) + '()))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - _%hd4518745217%_ - _%hd4518445209%_ - _%hd4518145201%_) - (let () - (declare (not safe)) - (_%g4517545193%_ _%g4517645196%_))))) + '()))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g4517545193%_ - _%g4517645196%_))))) - (let () - (declare (not safe)) - (_%g4517545193%_ _%g4517645196%_))))) - (let () - (declare (not safe)) - (_%g4517545193%_ _%g4517645196%_))))) - (__tmp80591 - (list (let ((__obj80518 _%self45089%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80518 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80518 - '4 - '#f - '#f)) - (class-slot-ref - gerbil/core/contract~InterfaceInfo#interface-info::t - __obj80518 - 'instance-type))) - (let ((__obj80519 _%self45089%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80519 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80519 - '5 - '#f - '#f)) - (class-slot-ref - gerbil/core/contract~InterfaceInfo#interface-info::t - __obj80519 - 'interface-descriptor))) - (let ((__obj80520 _%self45089%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80520 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80520 - '4 - '#f - '#f)) - (class-slot-ref - gerbil/core/contract~InterfaceInfo#interface-info::t - __obj80520 - 'instance-type)))))) - (declare (not safe)) - (_%g4517445241%_ __tmp80591)))) + _%hd4501245042%_ + _%hd4500945034%_ + _%hd4500645026%_) + (_%g4500045018%_ + _%g4500145021%_)))) + (_%g4500045018%_ + _%g4500145021%_)))) + (_%g4500045018%_ _%g4500145021%_)))) + (_%g4500045018%_ _%g4500145021%_))))) + (_%g4499945066%_ + (list (let ((__obj80343 _%self44914%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80343 + 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80343 + '4 + '#f + '#f)) + (class-slot-ref + gerbil/core/contract~InterfaceInfo#interface-info::t + __obj80343 + 'instance-type))) + (let ((__obj80344 _%self44914%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80344 + 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80344 + '5 + '#f + '#f)) + (class-slot-ref + gerbil/core/contract~InterfaceInfo#interface-info::t + __obj80344 + 'interface-descriptor))) + (let ((__obj80345 _%self44914%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80345 + 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj80345 + '4 + '#f + '#f)) + (class-slot-ref + gerbil/core/contract~InterfaceInfo#interface-info::t + __obj80345 + 'instance-type)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7555675557%_ - (lambda () - (let* ((_%g4511345120%_ - (lambda (_%g4511445117%_) + (_%__kont7538175382%_ + (lambda () + (let* ((_%g4493844945%_ + (lambda (_%g4493944942%_) + (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g4511445117%_))) - (_%g4511245140%_ - (lambda (_%g4511445123%_) - ((lambda (_%L45125%_) (let () _%L45125%_)) - _%g4511445123%_))) - (__tmp80592 - (let ((__obj80521 _%self45089%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj80521 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj80521 - '5 - '#f - '#f)) - (class-slot-ref - gerbil/core/contract~InterfaceInfo#interface-info::t - __obj80521 - 'interface-descriptor))))) - (declare (not safe)) - (_%g4511245140%_ __tmp80592))))) + '#f + '"Bad syntax; invalid match target" + _%g4493944942%_))) + (_%g4493744965%_ + (lambda (_%g4493944948%_) + ((lambda (_%L44950%_) _%L44950%_) _%g4493944948%_)))) + (_%g4493744965%_ + (let ((__obj80346 _%self44914%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj80346 + 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref __obj80346 '5 '#f '#f)) + (class-slot-ref + gerbil/core/contract~InterfaceInfo#interface-info::t + __obj80346 + 'interface-descriptor)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%g4509245143%_ - (lambda () - (if (gx#identifier? - _%stx45090%_) - (_%__kont7555675557%_) + (let ((_%g4491744968%_ + (lambda () + (if (gx#identifier? + _%stx44915%_) + (_%__kont7538175382%_) + (let () + (declare + (not safe)) + (_%g4491844931%_)))))) + (if (gx#stx-pair? + _%__stx7537775378%_) + (let ((_%e4492344973%_ + (gx#syntax-e + _%__stx7537775378%_))) + (let ((_%tl4492144978%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_%g4509345106%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _%__stx7555275553%_) - (let ((_%e4509845148%_ - (gx#syntax-e - _%__stx7555275553%_))) - (let ((_%tl4509645153%_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _%e4509845148%_))) - (_%hd4509745151%_ - (let () (declare (not safe)) (##car _%e4509845148%_)))) - (if (gx#stx-pair? _%tl4509645153%_) - (let ((_%e4510145156%_ (gx#syntax-e _%tl4509645153%_))) - (let ((_%tl4509945161%_ - (let () - (declare (not safe)) - (##cdr _%e4510145156%_))) - (_%hd4510045159%_ - (let () - (declare (not safe)) - (##car _%e4510145156%_)))) - (if (gx#stx-null? _%tl4509945161%_) - (_%__kont7555475555%_ _%hd4510045159%_) - (let () - (declare (not safe)) - (_%g4509245143%_))))) - (let () (declare (not safe)) (_%g4509245143%_))))) - (let () (declare (not safe)) (_%g4509245143%_))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4504745069%_ - _%hd4504445061%_) - (let () - (declare (not safe)) - (_%g4503945053%_ _%g4504045056%_))))) + (##cdr _%e4492344973%_))) + (_%hd4492244976%_ + (let () (declare (not safe)) (##car _%e4492344973%_)))) + (if (gx#stx-pair? _%tl4492144978%_) + (let ((_%e4492644981%_ (gx#syntax-e _%tl4492144978%_))) + (let ((_%tl4492444986%_ (let () (declare (not safe)) - (_%g4503945053%_ _%g4504045056%_))))) - (let () - (declare (not safe)) - (_%g4503945053%_ _%g4504045056%_))))) - (__tmp80593 - (list gerbil/core/contract~InterfaceInfo#_g80594_ - gerbil/core/contract~InterfaceInfo#_g80595_))) - (declare (not safe)) - (_%g4503845247%_ __tmp80593))) + (##cdr _%e4492644981%_))) + (_%hd4492544984%_ + (let () + (declare (not safe)) + (##car _%e4492644981%_)))) + (if (gx#stx-null? _%tl4492444986%_) + (_%__kont7537975380%_ _%hd4492544984%_) + (let () (declare (not safe)) (_%g4491744968%_))))) + (let () (declare (not safe)) (_%g4491744968%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_%g4491744968%_)))))))) + _%hd4487244894%_ + _%hd4486944886%_) + (_%g4486444878%_ _%g4486544881%_)))) + (_%g4486444878%_ _%g4486544881%_)))) + (_%g4486444878%_ _%g4486544881%_))))) + (_%g4486345072%_ + (list gerbil/core/contract~InterfaceInfo#_g80416_ + gerbil/core/contract~InterfaceInfo#_g80417_)))) (bind-method! gerbil/core/contract~InterfaceInfo#interface-info::t 'apply-macro-expander gerbil/core/contract~InterfaceInfo#interface-info::apply-macro-expander '#f) (define gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - (lambda (_%info44872%_) - (let _%loop44874%_ ((_%rest44876%_ - (let ((__obj80522 _%info44872%_)) + (lambda (_%info44697%_) + (let _%loop44699%_ ((_%rest44701%_ + (let ((__obj80348 _%info44697%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80522 + __obj80348 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80522 + __obj80348 '2 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj80522 + __obj80348 'interface-mixin)))) - (_%result44877%_ '())) - (let* ((_%rest4487844886%_ _%rest44876%_) - (_%else4488044894%_ (lambda () _%result44877%_)) - (_%K4488244904%_ - (lambda (_%rest44897%_ _%id44898%_) - (let* ((_%mixin44900%_ - (let ((__obj80523 - (gx#syntax-local-value _%id44898%_))) + (_%result44702%_ '())) + (let* ((_%rest4470344711%_ _%rest44701%_) + (_%else4470544719%_ (lambda () _%result44702%_)) + (_%K4470744729%_ + (lambda (_%rest44722%_ _%id44723%_) + (let* ((_%mixin44725%_ + (let ((__obj80347 + (gx#syntax-local-value _%id44723%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj80523 + __obj80347 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj80523 + __obj80347 '2 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj80523 + __obj80347 'interface-mixin)))) - (_%result44902%_ - (if (member _%id44898%_ - _%result44877%_ + (_%result44727%_ + (if (member _%id44723%_ + _%result44702%_ gx#free-identifier=?) - _%result44877%_ - (cons _%id44898%_ _%result44877%_))) - (__tmp80596 - (foldl cons _%rest44897%_ _%mixin44900%_))) - (declare (not safe)) - (_%loop44874%_ __tmp80596 _%result44902%_))))) - (if (let () (declare (not safe)) (##pair? _%rest4487844886%_)) - (let ((_%hd4488344907%_ + _%result44702%_ + (cons _%id44723%_ _%result44702%_)))) + (_%loop44699%_ + (foldl cons _%rest44722%_ _%mixin44725%_) + _%result44727%_))))) + (if (let () (declare (not safe)) (##pair? _%rest4470344711%_)) + (let ((_%hd4470844732%_ (let () (declare (not safe)) - (##car _%rest4487844886%_))) - (_%tl4488444909%_ + (##car _%rest4470344711%_))) + (_%tl4470944734%_ (let () (declare (not safe)) - (##cdr _%rest4487844886%_)))) - (let* ((_%id44912%_ _%hd4488344907%_) - (_%rest44914%_ _%tl4488444909%_)) - (declare (not safe)) - (_%K4488244904%_ _%rest44914%_ _%id44912%_))) - (let () (declare (not safe)) (_%else4488044894%_))))))) + (##cdr _%rest4470344711%_)))) + (let* ((_%id44737%_ _%hd4470844732%_) + (_%rest44739%_ _%tl4470944734%_)) + (_%K4470744729%_ _%rest44739%_ _%id44737%_))) + (_%else4470544719%_)))))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - (lambda (_%stx44853%_ _%is?44854%_) - (if (gx#identifier? _%stx44853%_) - (let ((_%e4485544857%_ - (gx#syntax-local-value _%stx44853%_ false))) - (if _%e4485544857%_ - (let ((_%e44860%_ _%e4485544857%_)) + (lambda (_%stx44678%_ _%is?44679%_) + (if (gx#identifier? _%stx44678%_) + (let ((_%e4468044682%_ + (gx#syntax-local-value _%stx44678%_ false))) + (if _%e4468044682%_ + (let ((_%e44685%_ _%e4468044682%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%e44860%_)) - (_%is?44854%_ _%e44860%_) + _%e44685%_)) + (_%is?44679%_ _%e44685%_) '#f)) '#f)) '#f))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - (lambda (_%stx44865%_) - (let ((_%is?44867%_ true)) - (declare (not safe)) + (lambda (_%stx44690%_) + (let ((_%is?44692%_ true)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - _%stx44865%_ - _%is?44867%_)))) + _%stx44690%_ + _%is?44692%_)))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - (lambda _g80598_ - (let ((_g80597_ (let () (declare (not safe)) (##length _g80598_)))) - (cond ((let () (declare (not safe)) (##fx= _g80597_ 1)) - (apply (lambda (_%stx44865%_) - (let () - (declare (not safe)) - (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%stx44865%_))) - _g80598_)) - ((let () (declare (not safe)) (##fx= _g80597_ 2)) - (apply (lambda (_%stx44869%_ _%is?44870%_) - (let () - (declare (not safe)) - (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - _%stx44869%_ - _%is?44870%_))) - _g80598_)) + (lambda _g80419_ + (let ((_g80418_ (let () (declare (not safe)) (##length _g80419_)))) + (cond ((let () (declare (not safe)) (##fx= _g80418_ 1)) + (apply gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 + _g80419_)) + ((let () (declare (not safe)) (##fx= _g80418_ 2)) + (apply gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% + _g80419_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - _g80598_))))))))) + _g80419_))))))))) diff --git a/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm b/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm index a72c640ea..61a64f0b2 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 1712533286) + (define gerbil/core/contract~TypeEnv::timestamp 1712573426) (begin (define gerbil/core/contract~TypeEnv#type-env::t (make-class-type @@ -13,10 +13,10 @@ (define gerbil/core/contract~TypeEnv#type-env? (make-class-predicate gerbil/core/contract~TypeEnv#type-env::t)) (define gerbil/core/contract~TypeEnv#make-type-env - (lambda _%$args46586%_ + (lambda _%$args46411%_ (apply make-instance gerbil/core/contract~TypeEnv#type-env::t - _%$args46586%_))) + _%$args46411%_))) (define gerbil/core/contract~TypeEnv#type-env-var (make-class-slot-accessor gerbil/core/contract~TypeEnv#type-env::t 'var)) (define gerbil/core/contract~TypeEnv#type-env-type @@ -79,26 +79,22 @@ (lambda () (gx#syntax-local-value (gx#syntax-local-introduce '@@type) false))) (define gerbil/core/contract~TypeEnv#type-env-lookup - (lambda (_%var46576%_) - (let _%loop46578%_ ((_%te46580%_ - (let () - (declare (not safe)) - (gerbil/core/contract~TypeEnv#current-type-env)))) - (if (let () (declare (not safe)) (not _%te46580%_)) - (let () '#f) + (lambda (_%var46401%_) + (let _%loop46403%_ ((_%te46405%_ + (gerbil/core/contract~TypeEnv#current-type-env))) + (if (not _%te46405%_) + '#f (if (gx#free-identifier=? - _%var46576%_ + _%var46401%_ (##direct-structure-ref - _%te46580%_ + _%te46405%_ '1 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (let () _%te46580%_) - (let ((__tmp80599 - (##direct-structure-ref - _%te46580%_ - '4 - gerbil/core/contract~TypeEnv#type-env::t - '#f))) - (declare (not safe)) - (_%loop46578%_ __tmp80599))))))))) + _%te46405%_ + (_%loop46403%_ + (##direct-structure-ref + _%te46405%_ + '4 + gerbil/core/contract~TypeEnv#type-env::t + '#f))))))))) diff --git a/src/bootstrap/gerbil/core/macro-object.ssxi.ss b/src/bootstrap/gerbil/core/macro-object.ssxi.ss index be8bb85c7..59c842d92 100644 --- a/src/bootstrap/gerbil/core/macro-object.ssxi.ss +++ b/src/bootstrap/gerbil/core/macro-object.ssxi.ss @@ -42,13 +42,34 @@ package: gerbil/core (@mutator gerbil/core/macro-object#macro-object::t macro #f)) (declare-type gerbil/core/macro-object#macro-object::apply-macro-expander - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/macro-object))) (declare-type gerbil/core/macro-object#macro-object::apply-macro-expander::specialize (@lambda 2 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/macro-object))) (declare-method gerbil/core/macro-object#macro-object::t apply-macro-expander diff --git a/src/bootstrap/gerbil/core/macro-object~0.scm b/src/bootstrap/gerbil/core/macro-object~0.scm index d3b45f551..69501899d 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 1712533285) + (define gerbil/core/macro-object::timestamp 1712573426) (begin (define gerbil/core/macro-object#macro-object::t (make-class-type @@ -13,10 +13,10 @@ (define gerbil/core/macro-object#macro-object? (make-class-predicate gerbil/core/macro-object#macro-object::t)) (define gerbil/core/macro-object#make-macro-object - (lambda _%$args27963%_ + (lambda _%$args27874%_ (apply make-instance gerbil/core/macro-object#macro-object::t - _%$args27963%_))) + _%$args27874%_))) (define gerbil/core/macro-object#macro-object-macro (make-class-slot-accessor gerbil/core/macro-object#macro-object::t @@ -34,33 +34,33 @@ gerbil/core/macro-object#macro-object::t 'macro)) (define gerbil/core/macro-object#macro-object::apply-macro-expander - (lambda (_%self27960%_ _%stx27961%_) + (lambda (_%self27871%_ _%stx27872%_) (gx#core-apply-expander - (let ((__obj27970 _%self27960%_)) + (let ((__obj27881 _%self27871%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27970 + __obj27881 'gerbil.core#macro-object::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj27970 '1 '#f '#f)) + (##unchecked-structure-ref __obj27881 '1 '#f '#f)) (class-slot-ref gerbil/core/macro-object#macro-object::t - __obj27970 + __obj27881 'macro))) - _%stx27961%_))) + _%stx27872%_))) (define gerbil/core/macro-object#macro-object::apply-macro-expander::specialize - (lambda (__klass27965 __method-table27966) - (let ((__macro27967 - (let ((__slot27968 (class-slot-offset __klass27965 'macro))) - (if __slot27968 __slot27968 (error '"Unknown slot" 'macro))))) - (lambda (_%self27960%_ _%stx27961%_) + (lambda (__klass27876 __method-table27877) + (let ((__macro27878 + (let ((__slot27879 (class-slot-offset __klass27876 'macro))) + (if __slot27879 __slot27879 (error '"Unknown slot" 'macro))))) + (lambda (_%self27871%_ _%stx27872%_) (gx#core-apply-expander (let () (declare (not safe)) - (##unchecked-structure-ref _%self27960%_ __macro27967 '#f '#f)) - _%stx27961%_))))) + (##unchecked-structure-ref _%self27871%_ __macro27878 '#f '#f)) + _%stx27872%_))))) (bind-specializer! gerbil/core/macro-object#macro-object::apply-macro-expander gerbil/core/macro-object#macro-object::apply-macro-expander::specialize) diff --git a/src/bootstrap/gerbil/core/macro-object~1.scm b/src/bootstrap/gerbil/core/macro-object~1.scm index 588c7d9c1..bc3eb01b9 100644 --- a/src/bootstrap/gerbil/core/macro-object~1.scm +++ b/src/bootstrap/gerbil/core/macro-object~1.scm @@ -1,48 +1,48 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/macro-object[1]#_g27972_| + (define |gerbil/core/macro-object[1]#_g27883_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27974_| + (define |gerbil/core/macro-object[1]#_g27885_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27976_| + (define |gerbil/core/macro-object[1]#_g27887_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27978_| + (define |gerbil/core/macro-object[1]#_g27889_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27980_| + (define |gerbil/core/macro-object[1]#_g27891_| (##structure gx#syntax-quote::t 'macro-object-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27982_| + (define |gerbil/core/macro-object[1]#_g27893_| (##structure gx#syntax-quote::t '¯o-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27984_| + (define |gerbil/core/macro-object[1]#_g27895_| (##structure gx#syntax-quote::t '¯o-object-macro-set! @@ -50,7 +50,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/macro-object[:0:]#macro-object| - (let ((__obj27969 + (let ((__obj27880 (let () (declare (not safe)) (##structure @@ -79,55 +79,55 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27969 + __obj27880 'gerbil.core#macro-object::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27969 'macro-object '2 '#f '#f)) + (##unchecked-structure-set! __obj27880 'macro-object '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27969 '(macro) '4 '#f '#f)) + (##unchecked-structure-set! __obj27880 '(macro) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27969 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj27880 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27969 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj27880 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27969 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj27880 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27969 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj27880 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27969 '#f '11 '#f '#f)) - (let ((__tmp27971 |gerbil/core/macro-object[1]#_g27972_|)) + (##unchecked-structure-set! __obj27880 '#f '11 '#f '#f)) + (let ((__tmp27882 |gerbil/core/macro-object[1]#_g27883_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27969 __tmp27971 '12 '#f '#f)) - (let ((__tmp27973 |gerbil/core/macro-object[1]#_g27974_|)) + (##unchecked-structure-set! __obj27880 __tmp27882 '12 '#f '#f)) + (let ((__tmp27884 |gerbil/core/macro-object[1]#_g27885_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27969 __tmp27973 '13 '#f '#f)) - (let ((__tmp27975 |gerbil/core/macro-object[1]#_g27976_|)) + (##unchecked-structure-set! __obj27880 __tmp27884 '13 '#f '#f)) + (let ((__tmp27886 |gerbil/core/macro-object[1]#_g27887_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27969 __tmp27975 '14 '#f '#f)) - (let ((__tmp27977 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27978_|) '()))) + (##unchecked-structure-set! __obj27880 __tmp27886 '14 '#f '#f)) + (let ((__tmp27888 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27889_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27969 __tmp27977 '15 '#f '#f)) - (let ((__tmp27979 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27980_|) '()))) + (##unchecked-structure-set! __obj27880 __tmp27888 '15 '#f '#f)) + (let ((__tmp27890 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27891_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27969 __tmp27979 '16 '#f '#f)) - (let ((__tmp27981 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27982_|) '()))) + (##unchecked-structure-set! __obj27880 __tmp27890 '16 '#f '#f)) + (let ((__tmp27892 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27893_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27969 __tmp27981 '17 '#f '#f)) - (let ((__tmp27983 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27984_|) '()))) + (##unchecked-structure-set! __obj27880 __tmp27892 '17 '#f '#f)) + (let ((__tmp27894 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27895_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27969 __tmp27983 '18 '#f '#f)) - __obj27969))) + (##unchecked-structure-set! __obj27880 __tmp27894 '18 '#f '#f)) + __obj27880))) diff --git a/src/bootstrap/gerbil/core/match.ssxi.ss b/src/bootstrap/gerbil/core/match.ssxi.ss index ae4a3d89e..378abe25d 100644 --- a/src/bootstrap/gerbil/core/match.ssxi.ss +++ b/src/bootstrap/gerbil/core/match.ssxi.ss @@ -43,21 +43,147 @@ package: gerbil/core (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type |gerbil/core/match[1]#parse-match-pattern__%| (@lambda 2 #f)) - (declare-type |gerbil/core/match[1]#parse-match-pattern__0| (@lambda 1 #f)) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/match))) + (declare-type + |gerbil/core/match[1]#parse-match-pattern__%| + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/match))) + (declare-type + |gerbil/core/match[1]#parse-match-pattern__0| + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/match))) (declare-type |gerbil/core/match[1]#parse-match-pattern| (@case-lambda - (1 |gerbil/core/match[1]#parse-match-pattern__0|) - (2 |gerbil/core/match[1]#parse-match-pattern__%|))) + (1 + |gerbil/core/match[1]#parse-match-pattern__0| + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/match)) + (2 + |gerbil/core/match[1]#parse-match-pattern__%| + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/match)))) (declare-type |gerbil/core/match[1]#match-pattern?| (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type |gerbil/core/match[1]#match-pattern-vars| (@lambda 1 #f)) - (declare-type |gerbil/core/match[1]#generate-match1| (@lambda 5 #f)) - (declare-type |gerbil/core/match[1]#generate-match*| (@lambda 3 #f)) - (declare-type |gerbil/core/match[1]#generate-match| (@lambda 3 #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/match))) + (declare-type + |gerbil/core/match[1]#match-pattern-vars| + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/match))) + (declare-type + |gerbil/core/match[1]#generate-match1| + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/match))) + (declare-type + |gerbil/core/match[1]#generate-match*| + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/match))) + (declare-type + |gerbil/core/match[1]#generate-match| + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/match)))) diff --git a/src/bootstrap/gerbil/core/match~1.scm b/src/bootstrap/gerbil/core/match~1.scm index 7e9316128..f70a9b7bc 100644 --- a/src/bootstrap/gerbil/core/match~1.scm +++ b/src/bootstrap/gerbil/core/match~1.scm @@ -1,107 +1,107 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/match[1]#_g40013_| + (define |gerbil/core/match[1]#_g39924_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40014_| + (define |gerbil/core/match[1]#_g39925_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40019_| + (define |gerbil/core/match[1]#_g39926_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40020_| + (define |gerbil/core/match[1]#_g39927_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40021_| + (define |gerbil/core/match[1]#_g39928_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40023_| + (define |gerbil/core/match[1]#_g39929_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40024_| + (define |gerbil/core/match[1]#_g39930_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40025_| + (define |gerbil/core/match[1]#_g39931_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40026_| + (define |gerbil/core/match[1]#_g39932_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40027_| + (define |gerbil/core/match[1]#_g39933_| (##structure gx#syntax-quote::t 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40028_| + (define |gerbil/core/match[1]#_g39934_| (##structure gx#syntax-quote::t 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40029_| + (define |gerbil/core/match[1]#_g39935_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40030_| + (define |gerbil/core/match[1]#_g39936_| (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40031_| + (define |gerbil/core/match[1]#_g39937_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40032_| + (define |gerbil/core/match[1]#_g39938_| (##structure gx#syntax-quote::t 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40099_| + (define |gerbil/core/match[1]#_g39951_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40126_| + (define |gerbil/core/match[1]#_g39959_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40129_| + (define |gerbil/core/match[1]#_g39960_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40130_| + (define |gerbil/core/match[1]#_g39961_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40136_| + (define |gerbil/core/match[1]#_g39966_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40137_| + (define |gerbil/core/match[1]#_g39967_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40138_| + (define |gerbil/core/match[1]#_g39968_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40139_| + (define |gerbil/core/match[1]#_g39969_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g40140_| + (define |gerbil/core/match[1]#_g39970_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) (begin (define |gerbil/core/match[1]#match-macro::t| @@ -115,10 +115,10 @@ (define |gerbil/core/match[1]#match-macro?| (make-class-predicate |gerbil/core/match[1]#match-macro::t|)) (define |gerbil/core/match[1]#make-match-macro| - (lambda _%$args35312%_ + (lambda _%$args35223%_ (apply make-instance |gerbil/core/match[1]#match-macro::t| - _%$args35312%_))) + _%$args35223%_))) (define |gerbil/core/match[1]#match-macro-macro| (make-class-slot-accessor |gerbil/core/match[1]#match-macro::t| 'macro)) (define |gerbil/core/match[1]#match-macro-macro-set!| @@ -132,7060 +132,6505 @@ |gerbil/core/match[1]#match-macro::t| 'macro)) (define |gerbil/core/match[1]#syntax-local-match-macro?| - (lambda (_%stx35309%_) - (if (gx#identifier? _%stx35309%_) - (let ((__tmp40012 (gx#syntax-local-value _%stx35309%_ false))) + (lambda (_%stx35220%_) + (if (gx#identifier? _%stx35220%_) + (let ((__tmp39923 (gx#syntax-local-value _%stx35220%_ false))) (declare (not safe)) (class-instance? |gerbil/core/match[1]#match-macro::t| - __tmp40012)) + __tmp39923)) '#f))) (define |gerbil/core/match[1]#parse-match-pattern__%| - (lambda (_%stx33609%_ _%match-stx33611%_) - (letrec ((_%parse133613%_ - (lambda (_%hd33972%_) - (let* ((_%__stx3780037801%_ _%hd33972%_) - (_%g3399834140%_ + (lambda (_%stx33520%_ _%match-stx33522%_) + (letrec ((_%parse133524%_ + (lambda (_%hd33883%_) + (let* ((_%__stx3771137712%_ _%hd33883%_) + (_%g3390934051%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3780037801%_)))) - (let ((_%__kont3780337804%_ - (lambda (_%L35072%_ _%L35074%_) - (let* ((_%__stx3772037721%_ _%L35072%_) - (_%g3509135124%_ + _%__stx3771137712%_)))) + (let ((_%__kont3771437715%_ + (lambda (_%L34983%_ _%L34985%_) + (let* ((_%__stx3763137632%_ _%L34983%_) + (_%g3500235035%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3772037721%_)))) - (let ((_%__kont3772337724%_ + _%__stx3763137632%_)))) + (let ((_%__kont3763437635%_ (lambda () - (cons '?: (cons _%L35074%_ '())))) - (_%__kont3772537726%_ - (lambda (_%L35265%_) + (cons '?: (cons _%L34985%_ '())))) + (_%__kont3763637637%_ + (lambda (_%L35176%_) (cons '?: - (cons _%L35074%_ - (cons (let () - (declare - (not safe)) - (_%parse133613%_ - _%L35265%_)) + (cons _%L34985%_ + (cons (_%parse133524%_ + _%L35176%_) '()))))) - (_%__kont3772737728%_ - (lambda (_%L35235%_) + (_%__kont3763837639%_ + (lambda (_%L35146%_) (cons '?: - (cons _%L35074%_ + (cons _%L34985%_ (cons '=>: - (cons (let () + (cons (_%parse133524%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (_%parse133613%_ _%L35235%_)) + _%L35146%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3772937730%_ - (lambda (_%L35186%_ _%L35188%_) + (_%__kont3764037641%_ + (lambda (_%L35097%_ _%L35099%_) (cons '?: - (cons _%L35074%_ + (cons _%L34985%_ (cons ':: - (cons _%L35188%_ + (cons _%L35099%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '=>: - (cons (let () - (declare (not safe)) - (_%parse133613%_ _%L35186%_)) - '())))))))) + (cons (_%parse133524%_ _%L35097%_) '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3773137732%_ + (_%__kont3764237643%_ (lambda () - (let () - (declare (not safe)) - (_%parse-error33620%_ - _%hd33972%_))))) - (let ((_%g3508735276%_ + (_%parse-error33531%_ _%hd33883%_)))) + (let ((_%g3499835187%_ (lambda () (if (gx#stx-pair? - _%__stx3772037721%_) - (let ((_%e3509635255%_ + _%__stx3763137632%_) + (let ((_%e3500735166%_ (gx#syntax-e - _%__stx3772037721%_))) - (let ((_%tl3509435262%_ + _%__stx3763137632%_))) + (let ((_%tl3500535173%_ (let () (declare (not safe)) - (##cdr _%e3509635255%_))) - (_%hd3509535259%_ + (##cdr _%e3500735166%_))) + (_%hd3500635170%_ (let () (declare (not safe)) - (##car _%e3509635255%_)))) + (##car _%e3500735166%_)))) (if (gx#stx-null? - _%tl3509435262%_) - (_%__kont3772537726%_ - _%hd3509535259%_) + _%tl3500535173%_) + (_%__kont3763637637%_ + _%hd3500635170%_) (if (gx#identifier? - _%hd3509535259%_) + _%hd3500635170%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/match[1]#_g40013_| - _%hd3509535259%_) - (if (gx#stx-pair? _%tl3509435262%_) - (let ((_%e3510335225%_ - (gx#syntax-e _%tl3509435262%_))) - (let ((_%tl3510135232%_ + |gerbil/core/match[1]#_g39924_| + _%hd3500635170%_) + (if (gx#stx-pair? _%tl3500535173%_) + (let ((_%e3501435136%_ + (gx#syntax-e _%tl3500535173%_))) + (let ((_%tl3501235143%_ (let () (declare (not safe)) - (##cdr _%e3510335225%_))) - (_%hd3510235229%_ + (##cdr _%e3501435136%_))) + (_%hd3501335140%_ (let () (declare (not safe)) - (##car _%e3510335225%_)))) - (if (gx#stx-null? _%tl3510135232%_) - (_%__kont3772737728%_ _%hd3510235229%_) - (_%__kont3773137732%_)))) - (_%__kont3773137732%_)) - (_%__kont3773137732%_)) - (if (gx#stx-datum? _%hd3509535259%_) - (let ((_%e3510935152%_ (gx#stx-e _%hd3509535259%_))) - (if (equal? _%e3510935152%_ '::) - (if (gx#stx-pair? _%tl3509435262%_) - (let ((_%e3511235156%_ - (gx#syntax-e _%tl3509435262%_))) - (let ((_%tl3511035163%_ + (##car _%e3501435136%_)))) + (if (gx#stx-null? _%tl3501235143%_) + (_%__kont3763837639%_ _%hd3501335140%_) + (_%__kont3764237643%_)))) + (_%__kont3764237643%_)) + (_%__kont3764237643%_)) + (if (gx#stx-datum? _%hd3500635170%_) + (let ((_%e3502035063%_ (gx#stx-e _%hd3500635170%_))) + (if (equal? _%e3502035063%_ '::) + (if (gx#stx-pair? _%tl3500535173%_) + (let ((_%e3502335067%_ + (gx#syntax-e _%tl3500535173%_))) + (let ((_%tl3502135074%_ (let () (declare (not safe)) - (##cdr _%e3511235156%_))) - (_%hd3511135160%_ + (##cdr _%e3502335067%_))) + (_%hd3502235071%_ (let () (declare (not safe)) - (##car _%e3511235156%_)))) - (if (gx#stx-pair? _%tl3511035163%_) - (let ((_%e3511535166%_ + (##car _%e3502335067%_)))) + (if (gx#stx-pair? _%tl3502135074%_) + (let ((_%e3502635077%_ (gx#syntax-e - _%tl3511035163%_))) - (let ((_%tl3511335173%_ + _%tl3502135074%_))) + (let ((_%tl3502435084%_ (let () (declare (not safe)) - (##cdr _%e3511535166%_))) - (_%hd3511435170%_ + (##cdr _%e3502635077%_))) + (_%hd3502535081%_ (let () (declare (not safe)) - (##car _%e3511535166%_)))) + (##car _%e3502635077%_)))) (if (gx#identifier? - _%hd3511435170%_) + _%hd3502535081%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40014_| - _%hd3511435170%_) + |gerbil/core/match[1]#_g39925_| + _%hd3502535081%_) (if (gx#stx-pair? - _%tl3511335173%_) - (let ((_%e3511835176%_ + _%tl3502435084%_) + (let ((_%e3502935087%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3511335173%_))) - (let ((_%tl3511635183%_ + (gx#syntax-e _%tl3502435084%_))) + (let ((_%tl3502735094%_ (let () (declare (not safe)) - (##cdr _%e3511835176%_))) - (_%hd3511735180%_ + (##cdr _%e3502935087%_))) + (_%hd3502835091%_ (let () (declare (not safe)) - (##car _%e3511835176%_)))) - (if (gx#stx-null? _%tl3511635183%_) - (_%__kont3772937730%_ - _%hd3511735180%_ - _%hd3511135160%_) - (_%__kont3773137732%_)))) - (_%__kont3773137732%_)) - (_%__kont3773137732%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3773137732%_)))) - (_%__kont3773137732%_)))) - (_%__kont3773137732%_)) - (_%__kont3773137732%_))) - (_%__kont3773137732%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3773137732%_))))) - (if (gx#stx-null? _%__stx3772037721%_) - (_%__kont3772337724%_) + (##car _%e3502935087%_)))) + (if (gx#stx-null? _%tl3502735094%_) + (_%__kont3764037641%_ + _%hd3502835091%_ + _%hd3502235071%_) + (_%__kont3764237643%_)))) + (_%__kont3764237643%_)) + (_%__kont3764237643%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont3764237643%_)))) + (_%__kont3764237643%_)))) + (_%__kont3764237643%_)) + (_%__kont3764237643%_))) + (_%__kont3764237643%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont3764237643%_))))) + (if (gx#stx-null? _%__stx3763137632%_) + (_%__kont3763437635%_) (let () (declare (not safe)) - (_%g3508735276%_)))))))) - (_%__kont3780537806%_ - (lambda (_%L34977%_) - (let* ((_%__stx3770237703%_ _%L34977%_) - (_%g3498935000%_ + (_%g3499835187%_)))))))) + (_%__kont3771637717%_ + (lambda (_%L34888%_) + (let* ((_%__stx3761337614%_ _%L34888%_) + (_%g3490034911%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3770237703%_)))) - (let ((_%__kont3770537706%_ - (lambda (_%L35028%_) - (let () - (declare (not safe)) - (_%parse133613%_ _%L35028%_)))) - (_%__kont3770737708%_ + _%__stx3761337614%_)))) + (let ((_%__kont3761637617%_ + (lambda (_%L34939%_) + (_%parse133524%_ _%L34939%_))) + (_%__kont3761837619%_ (lambda () (cons 'and: (gx#stx-map - _%parse133613%_ - _%L34977%_))))) - (if (gx#stx-pair? _%__stx3770237703%_) - (let ((_%e3499435018%_ + _%parse133524%_ + _%L34888%_))))) + (if (gx#stx-pair? _%__stx3761337614%_) + (let ((_%e3490534929%_ (gx#syntax-e - _%__stx3770237703%_))) - (let ((_%tl3499235025%_ + _%__stx3761337614%_))) + (let ((_%tl3490334936%_ (let () (declare (not safe)) - (##cdr _%e3499435018%_))) - (_%hd3499335022%_ + (##cdr _%e3490534929%_))) + (_%hd3490434933%_ (let () (declare (not safe)) - (##car _%e3499435018%_)))) - (if (gx#stx-null? _%tl3499235025%_) - (_%__kont3770537706%_ - _%hd3499335022%_) - (_%__kont3770737708%_)))) - (_%__kont3770737708%_)))))) - (_%__kont3780737808%_ - (lambda (_%L34892%_) - (let* ((_%__stx3768437685%_ _%L34892%_) - (_%g3490434915%_ + (##car _%e3490534929%_)))) + (if (gx#stx-null? _%tl3490334936%_) + (_%__kont3761637617%_ + _%hd3490434933%_) + (_%__kont3761837619%_)))) + (_%__kont3761837619%_)))))) + (_%__kont3771837719%_ + (lambda (_%L34803%_) + (let* ((_%__stx3759537596%_ _%L34803%_) + (_%g3481534826%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3768437685%_)))) - (let ((_%__kont3768737688%_ - (lambda (_%L34943%_) - (let () - (declare (not safe)) - (_%parse133613%_ _%L34943%_)))) - (_%__kont3768937690%_ + _%__stx3759537596%_)))) + (let ((_%__kont3759837599%_ + (lambda (_%L34854%_) + (_%parse133524%_ _%L34854%_))) + (_%__kont3760037601%_ (lambda () (cons 'or: (gx#stx-map - _%parse133613%_ - _%L34892%_))))) - (if (gx#stx-pair? _%__stx3768437685%_) - (let ((_%e3490934933%_ + _%parse133524%_ + _%L34803%_))))) + (if (gx#stx-pair? _%__stx3759537596%_) + (let ((_%e3482034844%_ (gx#syntax-e - _%__stx3768437685%_))) - (let ((_%tl3490734940%_ + _%__stx3759537596%_))) + (let ((_%tl3481834851%_ (let () (declare (not safe)) - (##cdr _%e3490934933%_))) - (_%hd3490834937%_ + (##cdr _%e3482034844%_))) + (_%hd3481934848%_ (let () (declare (not safe)) - (##car _%e3490934933%_)))) - (if (gx#stx-null? _%tl3490734940%_) - (_%__kont3768737688%_ - _%hd3490834937%_) - (_%__kont3768937690%_)))) - (_%__kont3768937690%_)))))) - (_%__kont3780937810%_ - (lambda (_%L34862%_) + (##car _%e3482034844%_)))) + (if (gx#stx-null? _%tl3481834851%_) + (_%__kont3759837599%_ + _%hd3481934848%_) + (_%__kont3760037601%_)))) + (_%__kont3760037601%_)))))) + (_%__kont3772037721%_ + (lambda (_%L34773%_) (cons 'not: - (cons (let () - (declare (not safe)) - (_%parse133613%_ _%L34862%_)) - '())))) - (_%__kont3781137812%_ - (lambda (_%L34818%_ _%L34820%_) + (cons (_%parse133524%_ _%L34773%_) '())))) + (_%__kont3772237723%_ + (lambda (_%L34729%_ _%L34731%_) (cons 'cons: - (cons (let () - (declare (not safe)) - (_%parse133613%_ _%L34820%_)) - (cons (let () - (declare (not safe)) - (_%parse133613%_ - _%L34818%_)) + (cons (_%parse133524%_ _%L34731%_) + (cons (_%parse133524%_ _%L34729%_) '()))))) - (_%__kont3781337814%_ - (lambda (_%L34762%_ _%L34764%_ _%L34765%_) - (if (gx#stx-null? _%L34762%_) + (_%__kont3772437725%_ + (lambda (_%L34673%_ _%L34675%_ _%L34676%_) + (if (gx#stx-null? _%L34673%_) (cons 'cons: - (cons (let () - (declare (not safe)) - (_%parse133613%_ _%L34765%_)) - (cons (let () - (declare (not safe)) - (_%parse133613%_ - _%L34764%_)) + (cons (_%parse133524%_ _%L34676%_) + (cons (_%parse133524%_ + _%L34675%_) '()))) (cons 'cons: - (cons (let () - (declare (not safe)) - (_%parse133613%_ _%L34765%_)) - (cons (let ((__tmp40015 - (cons (gx#datum->syntax + (cons (_%parse133524%_ _%L34676%_) + (cons (_%parse133524%_ + (cons (gx#datum->syntax + '#f + 'cons*) + (cons _%L34675%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'cons*) - (cons _%L34764%_ _%L34762%_)))) - (declare (not safe)) - (_%parse133613%_ __tmp40015)) + _%L34673%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont3781537816%_ - (lambda (_%L34714%_) - (let () - (declare (not safe)) - (_%parse-list33615%_ _%L34714%_)))) - (_%__kont3781737818%_ - (lambda (_%L34684%_) + (_%__kont3772637727%_ + (lambda (_%L34625%_) + (_%parse-list33526%_ _%L34625%_))) + (_%__kont3772837729%_ + (lambda (_%L34595%_) (cons 'box: - (cons (let () - (declare (not safe)) - (_%parse133613%_ _%L34684%_)) - '())))) - (_%__kont3781937820%_ - (lambda (_%L34647%_) + (cons (_%parse133524%_ _%L34595%_) '())))) + (_%__kont3773037731%_ + (lambda (_%L34558%_) (cons 'box: - (cons (let () - (declare (not safe)) - (_%parse133613%_ _%L34647%_)) - '())))) - (_%__kont3782137822%_ - (lambda (_%L34623%_) - (let () - (declare (not safe)) - (_%parse133613%_ _%L34623%_)))) - (_%__kont3782337824%_ - (lambda (_%L34585%_) + (cons (_%parse133524%_ _%L34558%_) '())))) + (_%__kont3773237733%_ + (lambda (_%L34534%_) + (_%parse133524%_ _%L34534%_))) + (_%__kont3773437735%_ + (lambda (_%L34496%_) (cons 'values: - (cons (let () - (declare (not safe)) - (_%parse-vector33616%_ - _%L34585%_)) + (cons (_%parse-vector33527%_ _%L34496%_) '())))) - (_%__kont3782537826%_ - (lambda (_%L34557%_) + (_%__kont3773637737%_ + (lambda (_%L34468%_) (cons 'vector: - (cons (let () - (declare (not safe)) - (_%parse-vector33616%_ - _%L34557%_)) + (cons (_%parse-vector33527%_ _%L34468%_) '())))) - (_%__kont3782737828%_ - (lambda (_%L34518%_) + (_%__kont3773837739%_ + (lambda (_%L34429%_) (cons 'vector: - (cons (let ((__tmp40016 - (foldr (lambda (_%g3453134534%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g3453234537%_) - (cons _%g3453134534%_ _%g3453234537%_)) - '() - _%L34518%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%parse-vector33616%_ - __tmp40016)) + (cons (_%parse-vector33527%_ + (foldr (lambda (_%g3444234445%_ + _%g3444334448%_) + (cons _%g3444234445%_ + _%g3444334448%_)) + '() + _%L34429%_)) '())))) - (_%__kont3783137832%_ - (lambda (_%L34464%_ _%L34466%_) + (_%__kont3774237743%_ + (lambda (_%L34375%_ _%L34377%_) (cons 'struct: - (cons (gx#syntax-local-value _%L34466%_) - (cons (let () - (declare (not safe)) - (_%parse-vector33616%_ - _%L34464%_)) + (cons (gx#syntax-local-value _%L34377%_) + (cons (_%parse-vector33527%_ + _%L34375%_) '()))))) - (_%__kont3783337834%_ - (lambda (_%L34434%_ _%L34436%_) + (_%__kont3774437745%_ + (lambda (_%L34345%_ _%L34347%_) (cons 'class: - (cons (gx#syntax-local-value _%L34436%_) - (cons (let () - (declare (not safe)) - (_%parse-class-body33618%_ - _%L34434%_)) + (cons (gx#syntax-local-value _%L34347%_) + (cons (_%parse-class-body33529%_ + _%L34345%_) '()))))) - (_%__kont3783537836%_ - (lambda (_%L34394%_ _%L34396%_) + (_%__kont3774637747%_ + (lambda (_%L34305%_ _%L34307%_) (cons '?: (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L34396%_ + (cons _%L34307%_ (cons (gx#datum->syntax '#f '<>) - (cons _%L34394%_ + (cons _%L34305%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (_%__kont3783737838%_ - (lambda (_%L34354%_) + (_%__kont3774837749%_ + (lambda (_%L34265%_) (cons 'datum: - (cons (gx#stx-e _%L34354%_) '())))) - (_%__kont3783937840%_ - (lambda (_%L34314%_) - (let () - (declare (not safe)) - (_%parse-qq33619%_ _%L34314%_)))) - (_%__kont3784137842%_ - (lambda (_%L34270%_ _%L34272%_) + (cons (gx#stx-e _%L34265%_) '())))) + (_%__kont3775037751%_ + (lambda (_%L34225%_) + (_%parse-qq33530%_ _%L34225%_))) + (_%__kont3775237753%_ + (lambda (_%L34181%_ _%L34183%_) (cons 'apply: - (cons _%L34272%_ - (cons (let () - (declare (not safe)) - (_%parse133613%_ - _%L34270%_)) + (cons _%L34183%_ + (cons (_%parse133524%_ _%L34181%_) '()))))) - (_%__kont3784337844%_ - (lambda (_%L34218%_) - (let ((__tmp40017 - (gx#core-apply-expander - (gx#syntax-local-e _%L34218%_) - (gx#stx-wrap-source - (cons 'match: _%hd33972%_) - (let ((_%$e34229%_ - (gx#stx-source _%hd33972%_))) - (if _%$e34229%_ - _%$e34229%_ - (gx#stx-source - _%stx33609%_))))))) - (declare (not safe)) - (_%parse133613%_ __tmp40017)))) - (_%__kont3784537846%_ - (lambda (_%L34192%_) (cons 'any: '()))) - (_%__kont3784737848%_ - (lambda (_%L34176%_) - (cons 'var: (cons _%L34176%_ '())))) - (_%__kont3784937850%_ - (lambda (_%L34158%_) + (_%__kont3775437755%_ + (lambda (_%L34129%_) + (_%parse133524%_ + (gx#core-apply-expander + (gx#syntax-local-e _%L34129%_) + (gx#stx-wrap-source + (cons 'match: _%hd33883%_) + (let ((_%$e34140%_ + (gx#stx-source _%hd33883%_))) + (if _%$e34140%_ + _%$e34140%_ + (gx#stx-source _%stx33520%_)))))))) + (_%__kont3775637757%_ + (lambda (_%L34103%_) (cons 'any: '()))) + (_%__kont3775837759%_ + (lambda (_%L34087%_) + (cons 'var: (cons _%L34087%_ '())))) + (_%__kont3776037761%_ + (lambda (_%L34069%_) (cons 'datum: - (cons (gx#stx-e _%L34158%_) '())))) - (_%__kont3785137852%_ - (lambda () - (let () - (declare (not safe)) - (_%parse-error33620%_ _%hd33972%_))))) - (let* ((_%g3399634169%_ + (cons (gx#stx-e _%L34069%_) '())))) + (_%__kont3776237763%_ + (lambda () (_%parse-error33531%_ _%hd33883%_)))) + (let* ((_%g3390734080%_ (lambda () - (let ((_%L34158%_ _%__stx3780037801%_)) - (if (gx#stx-datum? _%L34158%_) - (_%__kont3784937850%_ _%L34158%_) - (_%__kont3785137852%_))))) - (_%g3399534185%_ + (let ((_%L34069%_ _%__stx3771137712%_)) + (if (gx#stx-datum? _%L34069%_) + (_%__kont3776037761%_ _%L34069%_) + (_%__kont3776237763%_))))) + (_%g3390634096%_ (lambda () - (let ((_%L34176%_ _%__stx3780037801%_)) - (if (and (gx#identifier? _%L34176%_) - (let ((__tmp40018 - (gx#ellipsis? _%L34176%_))) - (declare (not safe)) - (not __tmp40018))) - (_%__kont3784737848%_ _%L34176%_) + (let ((_%L34087%_ _%__stx3771137712%_)) + (if (and (gx#identifier? _%L34087%_) + (not (gx#ellipsis? _%L34087%_))) + (_%__kont3775837759%_ _%L34087%_) (let () (declare (not safe)) - (_%g3399634169%_)))))) - (_%g3399434201%_ + (_%g3390734080%_)))))) + (_%g3390534112%_ (lambda () - (let ((_%L34192%_ _%__stx3780037801%_)) - (if (gx#underscore? _%L34192%_) - (_%__kont3784537846%_ _%L34192%_) + (let ((_%L34103%_ _%__stx3771137712%_)) + (if (gx#underscore? _%L34103%_) + (_%__kont3775637757%_ _%L34103%_) (let () (declare (not safe)) - (_%g3399534185%_)))))) - (_%__match3812738128%_ - (lambda (_%e3413134208%_ - _%hd3413034212%_ - _%tl3412934215%_) - (let ((_%L34218%_ _%hd3413034212%_)) - (if (let () - (declare (not safe)) - (|gerbil/core/match[1]#syntax-local-match-macro?| - _%L34218%_)) - (_%__kont3784337844%_ _%L34218%_) + (_%g3390634096%_)))))) + (_%__match3803838039%_ + (lambda (_%e3404234119%_ + _%hd3404134123%_ + _%tl3404034126%_) + (let ((_%L34129%_ _%hd3404134123%_)) + (if (|gerbil/core/match[1]#syntax-local-match-macro?| + _%L34129%_) + (_%__kont3775437755%_ _%L34129%_) (let () (declare (not safe)) - (_%g3399434201%_)))))) - (_%__match3806138062%_ - (lambda (_%e3409934374%_ - _%hd3409834378%_ - _%tl3409734381%_ - _%e3410234384%_ - _%hd3410134388%_ - _%tl3410034391%_) - (let ((_%L34394%_ _%hd3410134388%_) - (_%L34396%_ _%hd3409834378%_)) - (if (and (gx#identifier? _%L34396%_) + (_%g3390534112%_)))))) + (_%__match3797237973%_ + (lambda (_%e3401034285%_ + _%hd3400934289%_ + _%tl3400834292%_ + _%e3401334295%_ + _%hd3401234299%_ + _%tl3401134302%_) + (let ((_%L34305%_ _%hd3401234299%_) + (_%L34307%_ _%hd3400934289%_)) + (if (and (gx#identifier? _%L34307%_) (or (gx#free-identifier=? - _%L34396%_ + _%L34307%_ (gx#datum->syntax '#f 'eq?)) (gx#free-identifier=? - _%L34396%_ + _%L34307%_ (gx#datum->syntax '#f 'eqv?)) (gx#free-identifier=? - _%L34396%_ + _%L34307%_ (gx#datum->syntax '#f 'equal?)))) - (_%__kont3783537836%_ - _%L34394%_ - _%L34396%_) - (if (gx#identifier? _%hd3409834378%_) + (_%__kont3774637747%_ + _%L34305%_ + _%L34307%_) + (if (gx#identifier? _%hd3400934289%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40019_| - _%hd3409834378%_) - (_%__kont3783737838%_ - _%hd3410134388%_) + |gerbil/core/match[1]#_g39926_| + _%hd3400934289%_) + (_%__kont3774837749%_ + _%hd3401234299%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40020_| - _%hd3409834378%_) - (_%__kont3783937840%_ - _%hd3410134388%_) - (_%__match3812738128%_ - _%e3409934374%_ - _%hd3409834378%_ - _%tl3409734381%_))) - (_%__match3812738128%_ - _%e3409934374%_ - _%hd3409834378%_ - _%tl3409734381%_)))))) - (_%__match3804738048%_ - (lambda (_%e3409434424%_ - _%hd3409334428%_ - _%tl3409234431%_) - (let ((_%L34434%_ _%tl3409234431%_) - (_%L34436%_ _%hd3409334428%_)) + |gerbil/core/match[1]#_g39927_| + _%hd3400934289%_) + (_%__kont3775037751%_ + _%hd3401234299%_) + (_%__match3803838039%_ + _%e3401034285%_ + _%hd3400934289%_ + _%tl3400834292%_))) + (_%__match3803838039%_ + _%e3401034285%_ + _%hd3400934289%_ + _%tl3400834292%_)))))) + (_%__match3795837959%_ + (lambda (_%e3400534335%_ + _%hd3400434339%_ + _%tl3400334342%_) + (let ((_%L34345%_ _%tl3400334342%_) + (_%L34347%_ _%hd3400434339%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L34436%_)) - (_%__kont3783337834%_ - _%L34434%_ - _%L34436%_) - (if (gx#stx-pair? _%tl3409234431%_) - (let ((_%e3410234384%_ + _%L34347%_)) + (_%__kont3774437745%_ + _%L34345%_ + _%L34347%_) + (if (gx#stx-pair? _%tl3400334342%_) + (let ((_%e3401334295%_ (gx#syntax-e - _%tl3409234431%_))) - (let ((_%tl3410034391%_ + _%tl3400334342%_))) + (let ((_%tl3401134302%_ (let () (declare (not safe)) - (##cdr _%e3410234384%_))) - (_%hd3410134388%_ + (##cdr _%e3401334295%_))) + (_%hd3401234299%_ (let () (declare (not safe)) - (##car _%e3410234384%_)))) + (##car _%e3401334295%_)))) (if (gx#stx-null? - _%tl3410034391%_) - (_%__match3806138062%_ - _%e3409434424%_ - _%hd3409334428%_ - _%tl3409234431%_ - _%e3410234384%_ - _%hd3410134388%_ - _%tl3410034391%_) + _%tl3401134302%_) + (_%__match3797237973%_ + _%e3400534335%_ + _%hd3400434339%_ + _%tl3400334342%_ + _%e3401334295%_ + _%hd3401234299%_ + _%tl3401134302%_) (if (gx#identifier? - _%hd3409334428%_) + _%hd3400434339%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40019_| - _%hd3409334428%_) - (_%__match3812738128%_ - _%e3409434424%_ - _%hd3409334428%_ - _%tl3409234431%_) + |gerbil/core/match[1]#_g39926_| + _%hd3400434339%_) + (_%__match3803838039%_ + _%e3400534335%_ + _%hd3400434339%_ + _%tl3400334342%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/match[1]#_g40020_| - _%hd3409334428%_) - (_%__match3812738128%_ - _%e3409434424%_ - _%hd3409334428%_ - _%tl3409234431%_) + |gerbil/core/match[1]#_g39927_| + _%hd3400434339%_) + (_%__match3803838039%_ + _%e3400534335%_ + _%hd3400434339%_ + _%tl3400334342%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40021_| - _%hd3409334428%_) - (if (gx#stx-pair? _%tl3410034391%_) - (let ((_%e3412734260%_ - (gx#syntax-e _%tl3410034391%_))) - (let ((_%tl3412534267%_ + |gerbil/core/match[1]#_g39928_| + _%hd3400434339%_) + (if (gx#stx-pair? _%tl3401134302%_) + (let ((_%e3403834171%_ + (gx#syntax-e _%tl3401134302%_))) + (let ((_%tl3403634178%_ (let () (declare (not safe)) - (##cdr _%e3412734260%_))) - (_%hd3412634264%_ + (##cdr _%e3403834171%_))) + (_%hd3403734175%_ (let () (declare (not safe)) - (##car _%e3412734260%_)))) - (if (gx#stx-null? _%tl3412534267%_) - (_%__kont3784137842%_ - _%hd3412634264%_ - _%hd3410134388%_) - (_%__match3812738128%_ - _%e3409434424%_ - _%hd3409334428%_ - _%tl3409234431%_)))) - (_%__match3812738128%_ - _%e3409434424%_ - _%hd3409334428%_ - _%tl3409234431%_)) - (_%__match3812738128%_ - _%e3409434424%_ - _%hd3409334428%_ - _%tl3409234431%_)))) - (_%__match3812738128%_ - _%e3409434424%_ - _%hd3409334428%_ - _%tl3409234431%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match3812738128%_ - _%e3409434424%_ - _%hd3409334428%_ - _%tl3409234431%_)))))) - (_%__match3804138042%_ - (lambda (_%e3408934454%_ - _%hd3408834458%_ - _%tl3408734461%_) - (let ((_%L34464%_ _%tl3408734461%_) - (_%L34466%_ _%hd3408834458%_)) + (##car _%e3403834171%_)))) + (if (gx#stx-null? _%tl3403634178%_) + (_%__kont3775237753%_ + _%hd3403734175%_ + _%hd3401234299%_) + (_%__match3803838039%_ + _%e3400534335%_ + _%hd3400434339%_ + _%tl3400334342%_)))) + (_%__match3803838039%_ + _%e3400534335%_ + _%hd3400434339%_ + _%tl3400334342%_)) + (_%__match3803838039%_ + _%e3400534335%_ + _%hd3400434339%_ + _%tl3400334342%_)))) + (_%__match3803838039%_ + _%e3400534335%_ + _%hd3400434339%_ + _%tl3400334342%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match3803838039%_ + _%e3400534335%_ + _%hd3400434339%_ + _%tl3400334342%_)))))) + (_%__match3795237953%_ + (lambda (_%e3400034365%_ + _%hd3399934369%_ + _%tl3399834372%_) + (let ((_%L34375%_ _%tl3399834372%_) + (_%L34377%_ _%hd3399934369%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - _%L34466%_ + _%L34377%_ gerbil/core/mop~MOP-2#!class-type-struct?)) - (_%__kont3783137832%_ - _%L34464%_ - _%L34466%_) - (_%__match3804738048%_ - _%e3408934454%_ - _%hd3408834458%_ - _%tl3408734461%_))))) - (_%__match3803538036%_ - (lambda (_%e3407534484%_ - _%__splice3782937830%_ - _%target3407634488%_ - _%tl3407834491%_) - (letrec ((_%loop3407934494%_ - (lambda (_%hd3407734498%_ - _%body3408334501%_) + (_%__kont3774237743%_ + _%L34375%_ + _%L34377%_) + (_%__match3795837959%_ + _%e3400034365%_ + _%hd3399934369%_ + _%tl3399834372%_))))) + (_%__match3794637947%_ + (lambda (_%e3398634395%_ + _%__splice3774037741%_ + _%target3398734399%_ + _%tl3398934402%_) + (letrec ((_%loop3399034405%_ + (lambda (_%hd3398834409%_ + _%body3399434412%_) (if (gx#stx-pair? - _%hd3407734498%_) - (let ((_%e3408034504%_ + _%hd3398834409%_) + (let ((_%e3399134415%_ (gx#syntax-e - _%hd3407734498%_))) - (let ((_%lp-tl3408234511%_ + _%hd3398834409%_))) + (let ((_%lp-tl3399334422%_ (let () (declare (not safe)) - (##cdr _%e3408034504%_))) - (_%lp-hd3408134508%_ + (##cdr _%e3399134415%_))) + (_%lp-hd3399234419%_ (let () (declare (not safe)) - (##car _%e3408034504%_)))) - (let ((__tmp40022 - (cons _%lp-hd3408134508%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body3408334501%_))) - (declare (not safe)) - (_%loop3407934494%_ _%lp-tl3408234511%_ __tmp40022)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body3408434514%_ - (reverse _%body3408334501%_))) - (_%__kont3782737828%_ - _%body3408434514%_)))))) - (let () - (declare (not safe)) - (_%loop3407934494%_ - _%target3407634488%_ - '()))))) - (_%g3398634540%_ + (##car _%e3399134415%_)))) + (_%loop3399034405%_ + _%lp-tl3399334422%_ + (cons _%lp-hd3399234419%_ + _%body3399434412%_)))) + (let ((_%body3399534425%_ + (reverse _%body3399434412%_))) + (_%__kont3773837739%_ + _%body3399534425%_)))))) + (_%loop3399034405%_ + _%target3398734399%_ + '())))) + (_%g3389734451%_ (lambda () - (if (gx#stx-vector? _%__stx3780037801%_) - (let ((_%e3407534484%_ + (if (gx#stx-vector? _%__stx3771137712%_) + (let ((_%e3398634395%_ (vector->list (gx#syntax-e - _%__stx3780037801%_)))) - (if (gx#stx-pair/null? _%e3407534484%_) - (let ((_%__splice3782937830%_ + _%__stx3771137712%_)))) + (if (gx#stx-pair/null? _%e3398634395%_) + (let ((_%__splice3774037741%_ (gx#syntax-split-splice - _%e3407534484%_ + _%e3398634395%_ '0))) - (let ((_%tl3407834491%_ + (let ((_%tl3398934402%_ (let () (declare (not safe)) (##vector-ref - _%__splice3782937830%_ + _%__splice3774037741%_ '1))) - (_%target3407634488%_ + (_%target3398734399%_ (let () (declare (not safe)) (##vector-ref - _%__splice3782937830%_ + _%__splice3774037741%_ '0)))) (if (gx#stx-null? - _%tl3407834491%_) - (_%__match3803538036%_ - _%e3407534484%_ - _%__splice3782937830%_ - _%target3407634488%_ - _%tl3407834491%_) + _%tl3398934402%_) + (_%__match3794637947%_ + _%e3398634395%_ + _%__splice3774037741%_ + _%target3398734399%_ + _%tl3398934402%_) (let () (declare (not safe)) - (_%g3399434201%_))))) + (_%g3390534112%_))))) (let () (declare (not safe)) - (_%g3399434201%_)))) + (_%g3390534112%_)))) (let () (declare (not safe)) - (_%g3399434201%_))))) - (_%g3398234657%_ + (_%g3390534112%_))))) + (_%g3389334568%_ (lambda () - (if (gx#stx-box? _%__stx3780037801%_) - (let ((_%e3405834643%_ + (if (gx#stx-box? _%__stx3771137712%_) + (let ((_%e3396934554%_ (unbox (gx#syntax-e - _%__stx3780037801%_)))) - (_%__kont3781937820%_ _%e3405834643%_)) + _%__stx3771137712%_)))) + (_%__kont3773037731%_ _%e3396934554%_)) (let () (declare (not safe)) - (_%g3398634540%_))))) - (_%__match3788937890%_ - (lambda (_%e3401534882%_ - _%hd3401434886%_ - _%tl3401334889%_) - (let ((_%L34892%_ _%tl3401334889%_)) - (if (gx#stx-list? _%L34892%_) - (_%__kont3780737808%_ _%L34892%_) - (_%__match3804138042%_ - _%e3401534882%_ - _%hd3401434886%_ - _%tl3401334889%_))))) - (_%__match3787937880%_ - (lambda (_%e3401134967%_ - _%hd3401034971%_ - _%tl3400934974%_) - (let ((_%L34977%_ _%tl3400934974%_)) - (if (gx#stx-list? _%L34977%_) - (_%__kont3780537806%_ _%L34977%_) - (_%__match3804138042%_ - _%e3401134967%_ - _%hd3401034971%_ - _%tl3400934974%_)))))) - (if (gx#stx-pair? _%__stx3780037801%_) - (let ((_%e3400435052%_ - (gx#syntax-e _%__stx3780037801%_))) - (let ((_%tl3400235059%_ + (_%g3389734451%_))))) + (_%__match3780037801%_ + (lambda (_%e3392634793%_ + _%hd3392534797%_ + _%tl3392434800%_) + (let ((_%L34803%_ _%tl3392434800%_)) + (if (gx#stx-list? _%L34803%_) + (_%__kont3771837719%_ _%L34803%_) + (_%__match3795237953%_ + _%e3392634793%_ + _%hd3392534797%_ + _%tl3392434800%_))))) + (_%__match3779037791%_ + (lambda (_%e3392234878%_ + _%hd3392134882%_ + _%tl3392034885%_) + (let ((_%L34888%_ _%tl3392034885%_)) + (if (gx#stx-list? _%L34888%_) + (_%__kont3771637717%_ _%L34888%_) + (_%__match3795237953%_ + _%e3392234878%_ + _%hd3392134882%_ + _%tl3392034885%_)))))) + (if (gx#stx-pair? _%__stx3771137712%_) + (let ((_%e3391534963%_ + (gx#syntax-e _%__stx3771137712%_))) + (let ((_%tl3391334970%_ (let () (declare (not safe)) - (##cdr _%e3400435052%_))) - (_%hd3400335056%_ + (##cdr _%e3391534963%_))) + (_%hd3391434967%_ (let () (declare (not safe)) - (##car _%e3400435052%_)))) - (if (gx#identifier? _%hd3400335056%_) + (##car _%e3391534963%_)))) + (if (gx#identifier? _%hd3391434967%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40023_| - _%hd3400335056%_) - (if (gx#stx-pair? _%tl3400235059%_) - (let ((_%e3400735062%_ + |gerbil/core/match[1]#_g39929_| + _%hd3391434967%_) + (if (gx#stx-pair? _%tl3391334970%_) + (let ((_%e3391834973%_ (gx#syntax-e - _%tl3400235059%_))) - (let ((_%tl3400535069%_ + _%tl3391334970%_))) + (let ((_%tl3391634980%_ (let () (declare (not safe)) - (##cdr _%e3400735062%_))) - (_%hd3400635066%_ + (##cdr _%e3391834973%_))) + (_%hd3391734977%_ (let () (declare (not safe)) - (##car _%e3400735062%_)))) - (_%__kont3780337804%_ - _%tl3400535069%_ - _%hd3400635066%_))) - (_%__match3804138042%_ - _%e3400435052%_ - _%hd3400335056%_ - _%tl3400235059%_)) + (##car _%e3391834973%_)))) + (_%__kont3771437715%_ + _%tl3391634980%_ + _%hd3391734977%_))) + (_%__match3795237953%_ + _%e3391534963%_ + _%hd3391434967%_ + _%tl3391334970%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40024_| - _%hd3400335056%_) - (_%__match3787937880%_ - _%e3400435052%_ - _%hd3400335056%_ - _%tl3400235059%_) + |gerbil/core/match[1]#_g39930_| + _%hd3391434967%_) + (_%__match3779037791%_ + _%e3391534963%_ + _%hd3391434967%_ + _%tl3391334970%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40025_| - _%hd3400335056%_) - (_%__match3788937890%_ - _%e3400435052%_ - _%hd3400335056%_ - _%tl3400235059%_) + |gerbil/core/match[1]#_g39931_| + _%hd3391434967%_) + (_%__match3780037801%_ + _%e3391534963%_ + _%hd3391434967%_ + _%tl3391334970%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40026_| - _%hd3400335056%_) + |gerbil/core/match[1]#_g39932_| + _%hd3391434967%_) (if (gx#stx-pair? - _%tl3400235059%_) - (let ((_%e3402234852%_ + _%tl3391334970%_) + (let ((_%e3393334763%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3400235059%_))) - (let ((_%tl3402034859%_ + (gx#syntax-e _%tl3391334970%_))) + (let ((_%tl3393134770%_ (let () (declare (not safe)) - (##cdr _%e3402234852%_))) - (_%hd3402134856%_ + (##cdr _%e3393334763%_))) + (_%hd3393234767%_ (let () (declare (not safe)) - (##car _%e3402234852%_)))) - (if (gx#stx-null? _%tl3402034859%_) - (_%__kont3780937810%_ _%hd3402134856%_) - (_%__match3804138042%_ - _%e3400435052%_ - _%hd3400335056%_ - _%tl3400235059%_)))) - (_%__match3804138042%_ - _%e3400435052%_ - _%hd3400335056%_ - _%tl3400235059%_)) + (##car _%e3393334763%_)))) + (if (gx#stx-null? _%tl3393134770%_) + (_%__kont3772037721%_ _%hd3393234767%_) + (_%__match3795237953%_ + _%e3391534963%_ + _%hd3391434967%_ + _%tl3391334970%_)))) + (_%__match3795237953%_ + _%e3391534963%_ + _%hd3391434967%_ + _%tl3391334970%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40027_| - _%hd3400335056%_) - (if (gx#stx-pair? _%tl3400235059%_) - (let ((_%e3403034798%_ (gx#syntax-e _%tl3400235059%_))) - (let ((_%tl3402834805%_ + |gerbil/core/match[1]#_g39933_| + _%hd3391434967%_) + (if (gx#stx-pair? _%tl3391334970%_) + (let ((_%e3394134709%_ (gx#syntax-e _%tl3391334970%_))) + (let ((_%tl3393934716%_ (let () (declare (not safe)) - (##cdr _%e3403034798%_))) - (_%hd3402934802%_ + (##cdr _%e3394134709%_))) + (_%hd3394034713%_ (let () (declare (not safe)) - (##car _%e3403034798%_)))) - (if (gx#stx-pair? _%tl3402834805%_) - (let ((_%e3403334808%_ - (gx#syntax-e _%tl3402834805%_))) - (let ((_%tl3403134815%_ + (##car _%e3394134709%_)))) + (if (gx#stx-pair? _%tl3393934716%_) + (let ((_%e3394434719%_ + (gx#syntax-e _%tl3393934716%_))) + (let ((_%tl3394234726%_ (let () (declare (not safe)) - (##cdr _%e3403334808%_))) - (_%hd3403234812%_ + (##cdr _%e3394434719%_))) + (_%hd3394334723%_ (let () (declare (not safe)) - (##car _%e3403334808%_)))) - (if (gx#stx-null? _%tl3403134815%_) - (_%__kont3781137812%_ - _%hd3403234812%_ - _%hd3402934802%_) - (_%__match3804138042%_ - _%e3400435052%_ - _%hd3400335056%_ - _%tl3400235059%_)))) - (_%__match3804138042%_ - _%e3400435052%_ - _%hd3400335056%_ - _%tl3400235059%_)))) - (_%__match3804138042%_ - _%e3400435052%_ - _%hd3400335056%_ - _%tl3400235059%_)) + (##car _%e3394434719%_)))) + (if (gx#stx-null? _%tl3394234726%_) + (_%__kont3772237723%_ + _%hd3394334723%_ + _%hd3394034713%_) + (_%__match3795237953%_ + _%e3391534963%_ + _%hd3391434967%_ + _%tl3391334970%_)))) + (_%__match3795237953%_ + _%e3391534963%_ + _%hd3391434967%_ + _%tl3391334970%_)))) + (_%__match3795237953%_ + _%e3391534963%_ + _%hd3391434967%_ + _%tl3391334970%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40028_| - _%hd3400335056%_) - (if (gx#stx-pair? _%tl3400235059%_) - (let ((_%e3404234742%_ - (gx#syntax-e _%tl3400235059%_))) - (let ((_%tl3404034749%_ + |gerbil/core/match[1]#_g39934_| + _%hd3391434967%_) + (if (gx#stx-pair? _%tl3391334970%_) + (let ((_%e3395334653%_ + (gx#syntax-e _%tl3391334970%_))) + (let ((_%tl3395134660%_ (let () (declare (not safe)) - (##cdr _%e3404234742%_))) - (_%hd3404134746%_ + (##cdr _%e3395334653%_))) + (_%hd3395234657%_ (let () (declare (not safe)) - (##car _%e3404234742%_)))) - (if (gx#stx-pair? _%tl3404034749%_) - (let ((_%e3404534752%_ - (gx#syntax-e _%tl3404034749%_))) - (let ((_%tl3404334759%_ + (##car _%e3395334653%_)))) + (if (gx#stx-pair? _%tl3395134660%_) + (let ((_%e3395634663%_ + (gx#syntax-e _%tl3395134660%_))) + (let ((_%tl3395434670%_ (let () (declare (not safe)) - (##cdr _%e3404534752%_))) - (_%hd3404434756%_ + (##cdr _%e3395634663%_))) + (_%hd3395534667%_ (let () (declare (not safe)) - (##car _%e3404534752%_)))) - (_%__kont3781337814%_ - _%tl3404334759%_ - _%hd3404434756%_ - _%hd3404134746%_))) - (_%__match3804138042%_ - _%e3400435052%_ - _%hd3400335056%_ - _%tl3400235059%_)))) - (_%__match3804138042%_ - _%e3400435052%_ - _%hd3400335056%_ - _%tl3400235059%_)) + (##car _%e3395634663%_)))) + (_%__kont3772437725%_ + _%tl3395434670%_ + _%hd3395534667%_ + _%hd3395234657%_))) + (_%__match3795237953%_ + _%e3391534963%_ + _%hd3391434967%_ + _%tl3391334970%_)))) + (_%__match3795237953%_ + _%e3391534963%_ + _%hd3391434967%_ + _%tl3391334970%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40029_| - _%hd3400335056%_) - (_%__kont3781537816%_ _%tl3400235059%_) + |gerbil/core/match[1]#_g39935_| + _%hd3391434967%_) + (_%__kont3772637727%_ _%tl3391334970%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40030_| - _%hd3400335056%_) - (if (gx#stx-pair? _%tl3400235059%_) - (let ((_%e3405634674%_ - (gx#syntax-e _%tl3400235059%_))) - (let ((_%tl3405434681%_ + |gerbil/core/match[1]#_g39936_| + _%hd3391434967%_) + (if (gx#stx-pair? _%tl3391334970%_) + (let ((_%e3396734585%_ + (gx#syntax-e _%tl3391334970%_))) + (let ((_%tl3396534592%_ (let () (declare (not safe)) - (##cdr _%e3405634674%_))) - (_%hd3405534678%_ + (##cdr _%e3396734585%_))) + (_%hd3396634589%_ (let () (declare (not safe)) - (##car _%e3405634674%_)))) - (if (gx#stx-null? _%tl3405434681%_) - (_%__kont3781737818%_ - _%hd3405534678%_) - (_%__match3804138042%_ - _%e3400435052%_ - _%hd3400335056%_ - _%tl3400235059%_)))) - (_%__match3804138042%_ - _%e3400435052%_ - _%hd3400335056%_ - _%tl3400235059%_)) + (##car _%e3396734585%_)))) + (if (gx#stx-null? _%tl3396534592%_) + (_%__kont3772837729%_ + _%hd3396634589%_) + (_%__match3795237953%_ + _%e3391534963%_ + _%hd3391434967%_ + _%tl3391334970%_)))) + (_%__match3795237953%_ + _%e3391534963%_ + _%hd3391434967%_ + _%tl3391334970%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40031_| - _%hd3400335056%_) - (if (gx#stx-pair? _%tl3400235059%_) - (let ((_%e3406534613%_ - (gx#syntax-e _%tl3400235059%_))) - (let ((_%tl3406334620%_ + |gerbil/core/match[1]#_g39937_| + _%hd3391434967%_) + (if (gx#stx-pair? _%tl3391334970%_) + (let ((_%e3397634524%_ + (gx#syntax-e _%tl3391334970%_))) + (let ((_%tl3397434531%_ (let () (declare (not safe)) - (##cdr _%e3406534613%_))) - (_%hd3406434617%_ + (##cdr _%e3397634524%_))) + (_%hd3397534528%_ (let () (declare (not safe)) - (##car _%e3406534613%_)))) - (if (gx#stx-null? _%tl3406334620%_) - (_%__kont3782137822%_ - _%hd3406434617%_) - (_%__kont3782337824%_ - _%tl3400235059%_)))) - (_%__kont3782337824%_ _%tl3400235059%_)) + (##car _%e3397634524%_)))) + (if (gx#stx-null? _%tl3397434531%_) + (_%__kont3773237733%_ + _%hd3397534528%_) + (_%__kont3773437735%_ + _%tl3391334970%_)))) + (_%__kont3773437735%_ _%tl3391334970%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40032_| - _%hd3400335056%_) - (_%__kont3782537826%_ _%tl3400235059%_) - (_%__match3804138042%_ - _%e3400435052%_ - _%hd3400335056%_ - _%tl3400235059%_))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match3804138042%_ - _%e3400435052%_ - _%hd3400335056%_ - _%tl3400235059%_)))) + |gerbil/core/match[1]#_g39938_| + _%hd3391434967%_) + (_%__kont3773637737%_ _%tl3391334970%_) + (_%__match3795237953%_ + _%e3391534963%_ + _%hd3391434967%_ + _%tl3391334970%_))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match3795237953%_ + _%e3391534963%_ + _%hd3391434967%_ + _%tl3391334970%_)))) (let () (declare (not safe)) - (_%g3398234657%_)))))))) - (_%parse-list33615%_ - (lambda (_%body33795%_) - (let* ((_%__stx3813038131%_ _%body33795%_) - (_%g3380133830%_ + (_%g3389334568%_)))))))) + (_%parse-list33526%_ + (lambda (_%body33706%_) + (let* ((_%__stx3804138042%_ _%body33706%_) + (_%g3371233741%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3813038131%_)))) - (let ((_%__kont3813338134%_ - (lambda (_%L33954%_) - (let () - (declare (not safe)) - (_%parse133613%_ _%L33954%_)))) - (_%__kont3813538136%_ - (lambda (_%L33906%_ _%L33908%_ _%L33909%_) + _%__stx3804138042%_)))) + (let ((_%__kont3804438045%_ + (lambda (_%L33865%_) + (_%parse133524%_ _%L33865%_))) + (_%__kont3804638047%_ + (lambda (_%L33817%_ _%L33819%_ _%L33820%_) (cons 'splice: - (cons (let () - (declare (not safe)) - (_%parse133613%_ _%L33909%_)) - (cons (let () - (declare (not safe)) - (_%parse-list33615%_ - _%L33906%_)) + (cons (_%parse133524%_ _%L33820%_) + (cons (_%parse-list33526%_ + _%L33817%_) '()))))) - (_%__kont3813738138%_ - (lambda (_%L33864%_ _%L33866%_) + (_%__kont3804838049%_ + (lambda (_%L33775%_ _%L33777%_) (cons 'cons: - (cons (let () - (declare (not safe)) - (_%parse133613%_ _%L33866%_)) - (cons (let () - (declare (not safe)) - (_%parse-list33615%_ - _%L33864%_)) + (cons (_%parse133524%_ _%L33777%_) + (cons (_%parse-list33526%_ + _%L33775%_) '()))))) - (_%__kont3813938140%_ + (_%__kont3805038051%_ (lambda () - (if (gx#stx-null? _%body33795%_) - (let () (cons 'null: '())) - (if (let ((__tmp40033 - (gx#stx-pair? _%body33795%_))) - (declare (not safe)) - (not __tmp40033)) - (let () - (declare (not safe)) - (_%parse133613%_ _%body33795%_)) - (let () - (declare (not safe)) - (_%parse-error33620%_ - _%body33795%_))))))) - (let* ((_%__match3817938180%_ - (lambda (_%e3382433854%_ - _%hd3382333858%_ - _%tl3382233861%_) - (let ((_%L33864%_ _%tl3382233861%_) - (_%L33866%_ _%hd3382333858%_)) - (if (let ((__tmp40034 - (gx#ellipsis? _%L33866%_))) - (declare (not safe)) - (not __tmp40034)) - (_%__kont3813738138%_ - _%L33864%_ - _%L33866%_) - (_%__kont3813938140%_))))) - (_%__match3817338174%_ - (lambda (_%e3381633886%_ - _%hd3381533890%_ - _%tl3381433893%_ - _%e3381933896%_ - _%hd3381833900%_ - _%tl3381733903%_) - (let ((_%L33906%_ _%tl3381733903%_) - (_%L33908%_ _%hd3381833900%_) - (_%L33909%_ _%hd3381533890%_)) - (if (gx#ellipsis? _%L33908%_) - (_%__kont3813538136%_ - _%L33906%_ - _%L33908%_ - _%L33909%_) - (_%__match3817938180%_ - _%e3381633886%_ - _%hd3381533890%_ - _%tl3381433893%_)))))) - (if (gx#stx-pair? _%__stx3813038131%_) - (let ((_%e3380633930%_ - (gx#syntax-e _%__stx3813038131%_))) - (let ((_%tl3380433937%_ + (if (gx#stx-null? _%body33706%_) + (cons 'null: '()) + (if (not (gx#stx-pair? _%body33706%_)) + (_%parse133524%_ _%body33706%_) + (_%parse-error33531%_ + _%body33706%_)))))) + (let* ((_%__match3809038091%_ + (lambda (_%e3373533765%_ + _%hd3373433769%_ + _%tl3373333772%_) + (let ((_%L33775%_ _%tl3373333772%_) + (_%L33777%_ _%hd3373433769%_)) + (if (not (gx#ellipsis? _%L33777%_)) + (_%__kont3804838049%_ + _%L33775%_ + _%L33777%_) + (_%__kont3805038051%_))))) + (_%__match3808438085%_ + (lambda (_%e3372733797%_ + _%hd3372633801%_ + _%tl3372533804%_ + _%e3373033807%_ + _%hd3372933811%_ + _%tl3372833814%_) + (let ((_%L33817%_ _%tl3372833814%_) + (_%L33819%_ _%hd3372933811%_) + (_%L33820%_ _%hd3372633801%_)) + (if (gx#ellipsis? _%L33819%_) + (_%__kont3804638047%_ + _%L33817%_ + _%L33819%_ + _%L33820%_) + (_%__match3809038091%_ + _%e3372733797%_ + _%hd3372633801%_ + _%tl3372533804%_)))))) + (if (gx#stx-pair? _%__stx3804138042%_) + (let ((_%e3371733841%_ + (gx#syntax-e _%__stx3804138042%_))) + (let ((_%tl3371533848%_ (let () (declare (not safe)) - (##cdr _%e3380633930%_))) - (_%hd3380533934%_ + (##cdr _%e3371733841%_))) + (_%hd3371633845%_ (let () (declare (not safe)) - (##car _%e3380633930%_)))) - (if (gx#stx-datum? _%hd3380533934%_) - (let ((_%e3380733940%_ - (gx#stx-e _%hd3380533934%_))) - (if (equal? _%e3380733940%_ '::) - (if (gx#stx-pair? _%tl3380433937%_) - (let ((_%e3381033944%_ + (##car _%e3371733841%_)))) + (if (gx#stx-datum? _%hd3371633845%_) + (let ((_%e3371833851%_ + (gx#stx-e _%hd3371633845%_))) + (if (equal? _%e3371833851%_ '::) + (if (gx#stx-pair? _%tl3371533848%_) + (let ((_%e3372133855%_ (gx#syntax-e - _%tl3380433937%_))) - (let ((_%tl3380833951%_ + _%tl3371533848%_))) + (let ((_%tl3371933862%_ (let () (declare (not safe)) - (##cdr _%e3381033944%_))) - (_%hd3380933948%_ + (##cdr _%e3372133855%_))) + (_%hd3372033859%_ (let () (declare (not safe)) - (##car _%e3381033944%_)))) + (##car _%e3372133855%_)))) (if (gx#stx-null? - _%tl3380833951%_) - (_%__kont3813338134%_ - _%hd3380933948%_) - (_%__match3817338174%_ - _%e3380633930%_ - _%hd3380533934%_ - _%tl3380433937%_ - _%e3381033944%_ - _%hd3380933948%_ - _%tl3380833951%_)))) - (_%__match3817938180%_ - _%e3380633930%_ - _%hd3380533934%_ - _%tl3380433937%_)) - (if (gx#stx-pair? _%tl3380433937%_) - (let ((_%e3381933896%_ + _%tl3371933862%_) + (_%__kont3804438045%_ + _%hd3372033859%_) + (_%__match3808438085%_ + _%e3371733841%_ + _%hd3371633845%_ + _%tl3371533848%_ + _%e3372133855%_ + _%hd3372033859%_ + _%tl3371933862%_)))) + (_%__match3809038091%_ + _%e3371733841%_ + _%hd3371633845%_ + _%tl3371533848%_)) + (if (gx#stx-pair? _%tl3371533848%_) + (let ((_%e3373033807%_ (gx#syntax-e - _%tl3380433937%_))) - (let ((_%tl3381733903%_ + _%tl3371533848%_))) + (let ((_%tl3372833814%_ (let () (declare (not safe)) - (##cdr _%e3381933896%_))) - (_%hd3381833900%_ + (##cdr _%e3373033807%_))) + (_%hd3372933811%_ (let () (declare (not safe)) - (##car _%e3381933896%_)))) - (_%__match3817338174%_ - _%e3380633930%_ - _%hd3380533934%_ - _%tl3380433937%_ - _%e3381933896%_ - _%hd3381833900%_ - _%tl3381733903%_))) - (_%__match3817938180%_ - _%e3380633930%_ - _%hd3380533934%_ - _%tl3380433937%_)))) - (if (gx#stx-pair? _%tl3380433937%_) - (let ((_%e3381933896%_ + (##car _%e3373033807%_)))) + (_%__match3808438085%_ + _%e3371733841%_ + _%hd3371633845%_ + _%tl3371533848%_ + _%e3373033807%_ + _%hd3372933811%_ + _%tl3372833814%_))) + (_%__match3809038091%_ + _%e3371733841%_ + _%hd3371633845%_ + _%tl3371533848%_)))) + (if (gx#stx-pair? _%tl3371533848%_) + (let ((_%e3373033807%_ (gx#syntax-e - _%tl3380433937%_))) - (let ((_%tl3381733903%_ + _%tl3371533848%_))) + (let ((_%tl3372833814%_ (let () (declare (not safe)) - (##cdr _%e3381933896%_))) - (_%hd3381833900%_ + (##cdr _%e3373033807%_))) + (_%hd3372933811%_ (let () (declare (not safe)) - (##car _%e3381933896%_)))) - (_%__match3817338174%_ - _%e3380633930%_ - _%hd3380533934%_ - _%tl3380433937%_ - _%e3381933896%_ - _%hd3381833900%_ - _%tl3381733903%_))) - (_%__match3817938180%_ - _%e3380633930%_ - _%hd3380533934%_ - _%tl3380433937%_))))) - (_%__kont3813938140%_))))))) - (_%parse-vector33616%_ - (lambda (_%body33792%_) - (if (let () - (declare (not safe)) - (_%simple-vector?33617%_ _%body33792%_)) + (##car _%e3373033807%_)))) + (_%__match3808438085%_ + _%e3371733841%_ + _%hd3371633845%_ + _%tl3371533848%_ + _%e3373033807%_ + _%hd3372933811%_ + _%tl3372833814%_))) + (_%__match3809038091%_ + _%e3371733841%_ + _%hd3371633845%_ + _%tl3371533848%_))))) + (_%__kont3805038051%_))))))) + (_%parse-vector33527%_ + (lambda (_%body33703%_) + (if (_%simple-vector?33528%_ _%body33703%_) (cons 'simple: - (cons (gx#stx-map _%parse133613%_ _%body33792%_) + (cons (gx#stx-map _%parse133524%_ _%body33703%_) '())) (cons 'list: - (cons (let () - (declare (not safe)) - (_%parse-list33615%_ _%body33792%_)) + (cons (_%parse-list33526%_ _%body33703%_) '()))))) - (_%simple-vector?33617%_ - (lambda (_%body33729%_) - (let* ((_%__stx3818238183%_ _%body33729%_) - (_%g3373333745%_ + (_%simple-vector?33528%_ + (lambda (_%body33640%_) + (let* ((_%__stx3809338094%_ _%body33640%_) + (_%g3364433656%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3818238183%_)))) - (let ((_%__kont3818538186%_ - (lambda (_%L33773%_ _%L33775%_) - (if (let ((__tmp40035 - (gx#ellipsis? _%L33775%_))) - (declare (not safe)) - (not __tmp40035)) - (let () - (declare (not safe)) - (_%simple-vector?33617%_ _%L33773%_)) + _%__stx3809338094%_)))) + (let ((_%__kont3809638097%_ + (lambda (_%L33684%_ _%L33686%_) + (if (not (gx#ellipsis? _%L33686%_)) + (_%simple-vector?33528%_ _%L33684%_) '#f))) - (_%__kont3818738188%_ - (lambda () (gx#stx-null? _%body33729%_)))) - (if (gx#stx-pair? _%__stx3818238183%_) - (let ((_%e3373933763%_ - (gx#syntax-e _%__stx3818238183%_))) - (let ((_%tl3373733770%_ + (_%__kont3809838099%_ + (lambda () (gx#stx-null? _%body33640%_)))) + (if (gx#stx-pair? _%__stx3809338094%_) + (let ((_%e3365033674%_ + (gx#syntax-e _%__stx3809338094%_))) + (let ((_%tl3364833681%_ (let () (declare (not safe)) - (##cdr _%e3373933763%_))) - (_%hd3373833767%_ + (##cdr _%e3365033674%_))) + (_%hd3364933678%_ (let () (declare (not safe)) - (##car _%e3373933763%_)))) - (_%__kont3818538186%_ - _%tl3373733770%_ - _%hd3373833767%_))) - (_%__kont3818738188%_)))))) - (_%parse-class-body33618%_ - (lambda (_%body33638%_) - (let _%recur33641%_ ((_%rest33644%_ _%body33638%_)) - (let* ((_%__stx3819838199%_ _%rest33644%_) - (_%g3364833664%_ + (##car _%e3365033674%_)))) + (_%__kont3809638097%_ + _%tl3364833681%_ + _%hd3364933678%_))) + (_%__kont3809838099%_)))))) + (_%parse-class-body33529%_ + (lambda (_%body33549%_) + (let _%recur33552%_ ((_%rest33555%_ _%body33549%_)) + (let* ((_%__stx3810938110%_ _%rest33555%_) + (_%g3355933575%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3819838199%_)))) - (let ((_%__kont3820138202%_ - (lambda (_%L33702%_ _%L33704%_ _%L33705%_) - (let ((__tmp40036 - (let ((__tmp40038 - (let () - (declare (not safe)) - (_%parse133613%_ _%L33704%_))) - (__tmp40037 - (let () - (declare (not safe)) - (_%recur33641%_ _%L33702%_)))) - (declare (not safe)) - (cons __tmp40038 __tmp40037)))) - (declare (not safe)) - (cons _%L33705%_ __tmp40036)))) - (_%__kont3820338204%_ + _%__stx3810938110%_)))) + (let ((_%__kont3811238113%_ + (lambda (_%L33613%_ _%L33615%_ _%L33616%_) + (cons _%L33616%_ + (cons (_%parse133524%_ _%L33615%_) + (_%recur33552%_ _%L33613%_))))) + (_%__kont3811438115%_ (lambda () - (if (gx#stx-null? _%rest33644%_) + (if (gx#stx-null? _%rest33555%_) '() - (let () - (declare (not safe)) - (_%parse-error33620%_ - _%rest33644%_)))))) - (let ((_%__match3821738218%_ - (lambda (_%e3365533682%_ - _%hd3365433686%_ - _%tl3365333689%_ - _%e3365833692%_ - _%hd3365733696%_ - _%tl3365633699%_) - (let ((_%L33702%_ _%tl3365633699%_) - (_%L33704%_ _%hd3365733696%_) - (_%L33705%_ _%hd3365433686%_)) - (if (gx#stx-keyword? _%L33705%_) - (_%__kont3820138202%_ - _%L33702%_ - _%L33704%_ - _%L33705%_) - (_%__kont3820338204%_)))))) - (if (gx#stx-pair? _%__stx3819838199%_) - (let ((_%e3365533682%_ - (gx#syntax-e _%__stx3819838199%_))) - (let ((_%tl3365333689%_ + (_%parse-error33531%_ _%rest33555%_))))) + (let ((_%__match3812838129%_ + (lambda (_%e3356633593%_ + _%hd3356533597%_ + _%tl3356433600%_ + _%e3356933603%_ + _%hd3356833607%_ + _%tl3356733610%_) + (let ((_%L33613%_ _%tl3356733610%_) + (_%L33615%_ _%hd3356833607%_) + (_%L33616%_ _%hd3356533597%_)) + (if (gx#stx-keyword? _%L33616%_) + (_%__kont3811238113%_ + _%L33613%_ + _%L33615%_ + _%L33616%_) + (_%__kont3811438115%_)))))) + (if (gx#stx-pair? _%__stx3810938110%_) + (let ((_%e3356633593%_ + (gx#syntax-e _%__stx3810938110%_))) + (let ((_%tl3356433600%_ (let () (declare (not safe)) - (##cdr _%e3365533682%_))) - (_%hd3365433686%_ + (##cdr _%e3356633593%_))) + (_%hd3356533597%_ (let () (declare (not safe)) - (##car _%e3365533682%_)))) - (if (gx#stx-pair? _%tl3365333689%_) - (let ((_%e3365833692%_ - (gx#syntax-e _%tl3365333689%_))) - (let ((_%tl3365633699%_ + (##car _%e3356633593%_)))) + (if (gx#stx-pair? _%tl3356433600%_) + (let ((_%e3356933603%_ + (gx#syntax-e _%tl3356433600%_))) + (let ((_%tl3356733610%_ (let () (declare (not safe)) - (##cdr _%e3365833692%_))) - (_%hd3365733696%_ + (##cdr _%e3356933603%_))) + (_%hd3356833607%_ (let () (declare (not safe)) - (##car _%e3365833692%_)))) - (_%__match3821738218%_ - _%e3365533682%_ - _%hd3365433686%_ - _%tl3365333689%_ - _%e3365833692%_ - _%hd3365733696%_ - _%tl3365633699%_))) - (_%__kont3820338204%_)))) - (_%__kont3820338204%_)))))))) - (_%parse-qq33619%_ - (lambda (_%hd33625%_) - (let ((_%g3362733634%_ - (lambda (_%g3362833630%_) + (##car _%e3356933603%_)))) + (_%__match3812838129%_ + _%e3356633593%_ + _%hd3356533597%_ + _%tl3356433600%_ + _%e3356933603%_ + _%hd3356833607%_ + _%tl3356733610%_))) + (_%__kont3811438115%_)))) + (_%__kont3811438115%_)))))))) + (_%parse-qq33530%_ + (lambda (_%hd33536%_) + (let ((_%g3353833545%_ + (lambda (_%g3353933541%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3362833630%_)))) - (declare (not safe)) - (_%g3362733634%_ _%hd33625%_)))) - (_%parse-error33620%_ - (lambda (_%hd33622%_) + _%g3353933541%_)))) + (_%g3353833545%_ _%hd33536%_)))) + (_%parse-error33531%_ + (lambda (_%hd33533%_) (apply gx#raise-syntax-error '#f '"bad syntax; illegal pattern" - (if _%match-stx33611%_ - (cons _%match-stx33611%_ - (cons _%stx33609%_ - (cons _%hd33622%_ '()))) - (cons _%stx33609%_ (cons _%hd33622%_ '()))))))) - (let () (declare (not safe)) (_%parse133613%_ _%stx33609%_))))) + (if _%match-stx33522%_ + (cons _%match-stx33522%_ + (cons _%stx33520%_ + (cons _%hd33533%_ '()))) + (cons _%stx33520%_ (cons _%hd33533%_ '()))))))) + (_%parse133524%_ _%stx33520%_)))) (define |gerbil/core/match[1]#parse-match-pattern__0| - (lambda (_%stx35299%_) - (let ((_%match-stx35302%_ '#f)) - (declare (not safe)) + (lambda (_%stx35210%_) + (let ((_%match-stx35213%_ '#f)) (|gerbil/core/match[1]#parse-match-pattern__%| - _%stx35299%_ - _%match-stx35302%_)))) + _%stx35210%_ + _%match-stx35213%_)))) (define |gerbil/core/match[1]#parse-match-pattern| - (lambda _g40040_ - (let ((_g40039_ (let () (declare (not safe)) (##length _g40040_)))) - (cond ((let () (declare (not safe)) (##fx= _g40039_ 1)) - (apply (lambda (_%stx35299%_) - (let () - (declare (not safe)) - (|gerbil/core/match[1]#parse-match-pattern__0| - _%stx35299%_))) - _g40040_)) - ((let () (declare (not safe)) (##fx= _g40039_ 2)) - (apply (lambda (_%stx35305%_ _%match-stx35307%_) - (let () - (declare (not safe)) - (|gerbil/core/match[1]#parse-match-pattern__%| - _%stx35305%_ - _%match-stx35307%_))) - _g40040_)) + (lambda _g39940_ + (let ((_g39939_ (let () (declare (not safe)) (##length _g39940_)))) + (cond ((let () (declare (not safe)) (##fx= _g39939_ 1)) + (apply |gerbil/core/match[1]#parse-match-pattern__0| + _g39940_)) + ((let () (declare (not safe)) (##fx= _g39939_ 2)) + (apply |gerbil/core/match[1]#parse-match-pattern__%| + _g39940_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core/match[1]#parse-match-pattern| - _g40040_)))))) + _g39940_)))))) (define |gerbil/core/match[1]#match-pattern?| - (lambda (_%stx33594%_) - (let ((__tmp40041 - (lambda (_%E33597%_) + (lambda (_%stx33505%_) + (let ((__tmp39941 + (lambda (_%E33508%_) (with-exception-handler - (let ((_%E!33600%_ (current-exception-handler))) - (lambda (_%e33603%_) - (if (syntax-error? _%e33603%_) - (_%E33597%_ '#f) + (let ((_%E!33511%_ (current-exception-handler))) + (lambda (_%e33514%_) + (if (syntax-error? _%e33514%_) + (_%E33508%_ '#f) (let () (declare (not safe)) - (_%E!33600%_ _%e33603%_))))) + (_%E!33511%_ _%e33514%_))))) (lambda () - (let () - (declare (not safe)) - (|gerbil/core/match[1]#parse-match-pattern__0| - _%stx33594%_)) + (|gerbil/core/match[1]#parse-match-pattern__0| + _%stx33505%_) '#t))))) (declare (not safe)) - (##call-with-current-continuation __tmp40041)))) + (##call-with-current-continuation __tmp39941)))) (define |gerbil/core/match[1]#match-pattern-vars| - (lambda (_%ptree32329%_) - (letrec ((_%loop32332%_ - (lambda (_%ptree32619%_ _%vars32621%_ _%K32622%_) - (let* ((_%__stx3831638317%_ _%ptree32619%_) - (_%g3263532745%_ + (lambda (_%ptree32240%_) + (letrec ((_%loop32243%_ + (lambda (_%ptree32530%_ _%vars32532%_ _%K32533%_) + (let* ((_%__stx3822738228%_ _%ptree32530%_) + (_%g3254632656%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3831638317%_)))) - (let ((_%__kont3831938320%_ - (lambda (_%L33375%_) - (let* ((_%__stx3823638237%_ _%L33375%_) - (_%g3339233426%_ + _%__stx3822738228%_)))) + (let ((_%__kont3823038231%_ + (lambda (_%L33286%_) + (let* ((_%__stx3814738148%_ _%L33286%_) + (_%g3330333337%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3823638237%_)))) - (let ((_%__kont3823938240%_ - (lambda (_%L33575%_) - (let () - (declare (not safe)) - (_%loop32332%_ - _%L33575%_ - _%vars32621%_ - _%K32622%_)))) - (_%__kont3824138242%_ - (lambda (_%L33544%_) - (let () - (declare (not safe)) - (_%loop32332%_ - _%L33544%_ - _%vars32621%_ - _%K32622%_)))) - (_%__kont3824338244%_ - (lambda (_%L33492%_) - (let () - (declare (not safe)) - (_%loop32332%_ - _%L33492%_ - _%vars32621%_ - _%K32622%_)))) - (_%__kont3824538246%_ + _%__stx3814738148%_)))) + (let ((_%__kont3815038151%_ + (lambda (_%L33486%_) + (_%loop32243%_ + _%L33486%_ + _%vars32532%_ + _%K32533%_))) + (_%__kont3815238153%_ + (lambda (_%L33455%_) + (_%loop32243%_ + _%L33455%_ + _%vars32532%_ + _%K32533%_))) + (_%__kont3815438155%_ + (lambda (_%L33403%_) + (_%loop32243%_ + _%L33403%_ + _%vars32532%_ + _%K32533%_))) + (_%__kont3815638157%_ (lambda () - (_%K32622%_ _%vars32621%_)))) - (if (gx#stx-pair? _%__stx3823638237%_) - (let ((_%e3339733565%_ + (_%K32533%_ _%vars32532%_)))) + (if (gx#stx-pair? _%__stx3814738148%_) + (let ((_%e3330833476%_ (gx#syntax-e - _%__stx3823638237%_))) - (let ((_%tl3339533572%_ + _%__stx3814738148%_))) + (let ((_%tl3330633483%_ (let () (declare (not safe)) - (##cdr _%e3339733565%_))) - (_%hd3339633569%_ + (##cdr _%e3330833476%_))) + (_%hd3330733480%_ (let () (declare (not safe)) - (##car _%e3339733565%_)))) - (if (gx#stx-null? _%tl3339533572%_) - (_%__kont3823938240%_ - _%hd3339633569%_) + (##car _%e3330833476%_)))) + (if (gx#stx-null? _%tl3330633483%_) + (_%__kont3815038151%_ + _%hd3330733480%_) (if (gx#stx-datum? - _%hd3339633569%_) - (let ((_%e3340233530%_ + _%hd3330733480%_) + (let ((_%e3331333441%_ (gx#stx-e - _%hd3339633569%_))) - (if (equal? _%e3340233530%_ + _%hd3330733480%_))) + (if (equal? _%e3331333441%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '=>:) - (if (gx#stx-pair? _%tl3339533572%_) - (let ((_%e3340533534%_ (gx#syntax-e _%tl3339533572%_))) - (let ((_%tl3340333541%_ + (if (gx#stx-pair? _%tl3330633483%_) + (let ((_%e3331633445%_ (gx#syntax-e _%tl3330633483%_))) + (let ((_%tl3331433452%_ (let () (declare (not safe)) - (##cdr _%e3340533534%_))) - (_%hd3340433538%_ + (##cdr _%e3331633445%_))) + (_%hd3331533449%_ (let () (declare (not safe)) - (##car _%e3340533534%_)))) - (if (gx#stx-null? _%tl3340333541%_) - (_%__kont3824138242%_ _%hd3340433538%_) - (_%__kont3824538246%_)))) - (_%__kont3824538246%_)) - (if (equal? _%e3340233530%_ '::) - (if (gx#stx-pair? _%tl3339533572%_) - (let ((_%e3341333458%_ - (gx#syntax-e _%tl3339533572%_))) - (let ((_%tl3341133465%_ + (##car _%e3331633445%_)))) + (if (gx#stx-null? _%tl3331433452%_) + (_%__kont3815238153%_ _%hd3331533449%_) + (_%__kont3815638157%_)))) + (_%__kont3815638157%_)) + (if (equal? _%e3331333441%_ '::) + (if (gx#stx-pair? _%tl3330633483%_) + (let ((_%e3332433369%_ + (gx#syntax-e _%tl3330633483%_))) + (let ((_%tl3332233376%_ (let () (declare (not safe)) - (##cdr _%e3341333458%_))) - (_%hd3341233462%_ + (##cdr _%e3332433369%_))) + (_%hd3332333373%_ (let () (declare (not safe)) - (##car _%e3341333458%_)))) - (if (gx#stx-pair? _%tl3341133465%_) - (let ((_%e3341633468%_ - (gx#syntax-e _%tl3341133465%_))) - (let ((_%tl3341433475%_ + (##car _%e3332433369%_)))) + (if (gx#stx-pair? _%tl3332233376%_) + (let ((_%e3332733379%_ + (gx#syntax-e _%tl3332233376%_))) + (let ((_%tl3332533386%_ (let () (declare (not safe)) - (##cdr _%e3341633468%_))) - (_%hd3341533472%_ + (##cdr _%e3332733379%_))) + (_%hd3332633383%_ (let () (declare (not safe)) - (##car _%e3341633468%_)))) - (if (gx#stx-datum? _%hd3341533472%_) - (let ((_%e3341733478%_ - (gx#stx-e _%hd3341533472%_))) - (if (equal? _%e3341733478%_ '=>:) + (##car _%e3332733379%_)))) + (if (gx#stx-datum? _%hd3332633383%_) + (let ((_%e3332833389%_ + (gx#stx-e _%hd3332633383%_))) + (if (equal? _%e3332833389%_ '=>:) (if (gx#stx-pair? - _%tl3341433475%_) - (let ((_%e3342033482%_ + _%tl3332533386%_) + (let ((_%e3333133393%_ (gx#syntax-e - _%tl3341433475%_))) - (let ((_%tl3341833489%_ + _%tl3332533386%_))) + (let ((_%tl3332933400%_ (let () (declare (not safe)) - (##cdr _%e3342033482%_))) - (_%hd3341933486%_ + (##cdr _%e3333133393%_))) + (_%hd3333033397%_ (let () (declare (not safe)) - (##car _%e3342033482%_)))) + (##car _%e3333133393%_)))) (if (gx#stx-null? - _%tl3341833489%_) - (_%__kont3824338244%_ - _%hd3341933486%_) - (_%__kont3824538246%_)))) - (_%__kont3824538246%_)) - (_%__kont3824538246%_))) - (_%__kont3824538246%_)))) - (_%__kont3824538246%_)))) - (_%__kont3824538246%_)) - (_%__kont3824538246%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3824538246%_))))) - (_%__kont3824538246%_)))))) - (_%__kont3832138322%_ - (lambda (_%L33262%_ _%L33264%_) - (let* ((_%__stx3822038221%_ _%L33262%_) - (_%g3328033292%_ + _%tl3332933400%_) + (_%__kont3815438155%_ + _%hd3333033397%_) + (_%__kont3815638157%_)))) + (_%__kont3815638157%_)) + (_%__kont3815638157%_))) + (_%__kont3815638157%_)))) + (_%__kont3815638157%_)))) + (_%__kont3815638157%_)) + (_%__kont3815638157%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont3815638157%_))))) + (_%__kont3815638157%_)))))) + (_%__kont3823238233%_ + (lambda (_%L33173%_ _%L33175%_) + (let* ((_%__stx3813138132%_ _%L33173%_) + (_%g3319133203%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3822038221%_)))) - (let ((_%__kont3822338224%_ - (lambda (_%L33320%_ _%L33322%_) - (let ((__tmp40042 - (lambda (_%g3333433336%_) - (let ((__tmp40043 - (cons _%L33264%_ - _%L33320%_))) - (declare (not safe)) - (_%loop32332%_ - __tmp40043 - _%g3333433336%_ - _%K32622%_))))) - (declare (not safe)) - (_%loop32332%_ - _%L33322%_ - _%vars32621%_ - __tmp40042)))) - (_%__kont3822538226%_ + _%__stx3813138132%_)))) + (let ((_%__kont3813438135%_ + (lambda (_%L33231%_ _%L33233%_) + (_%loop32243%_ + _%L33233%_ + _%vars32532%_ + (lambda (_%g3324533247%_) + (_%loop32243%_ + (cons _%L33175%_ _%L33231%_) + _%g3324533247%_ + _%K32533%_))))) + (_%__kont3813638137%_ (lambda () - (_%K32622%_ _%vars32621%_)))) - (if (gx#stx-pair? _%__stx3822038221%_) - (let ((_%e3328633310%_ + (_%K32533%_ _%vars32532%_)))) + (if (gx#stx-pair? _%__stx3813138132%_) + (let ((_%e3319733221%_ (gx#syntax-e - _%__stx3822038221%_))) - (let ((_%tl3328433317%_ + _%__stx3813138132%_))) + (let ((_%tl3319533228%_ (let () (declare (not safe)) - (##cdr _%e3328633310%_))) - (_%hd3328533314%_ + (##cdr _%e3319733221%_))) + (_%hd3319633225%_ (let () (declare (not safe)) - (##car _%e3328633310%_)))) - (_%__kont3822338224%_ - _%tl3328433317%_ - _%hd3328533314%_))) - (_%__kont3822538226%_)))))) - (_%__kont3832338324%_ - (lambda (_%L33231%_) - (let () - (declare (not safe)) - (_%loop32332%_ - _%L33231%_ - _%vars32621%_ - _%K32622%_)))) - (_%__kont3832538326%_ - (lambda (_%L33177%_ _%L33179%_) - (let ((__tmp40044 - (lambda (_%g3319433196%_) - (let () - (declare (not safe)) - (_%loop32332%_ - _%L33177%_ - _%g3319433196%_ - _%K32622%_))))) - (declare (not safe)) - (_%loop32332%_ - _%L33179%_ - _%vars32621%_ - __tmp40044)))) - (_%__kont3832738328%_ - (lambda (_%L33113%_ _%L33115%_) - (let ((__tmp40045 - (lambda (_%g3313033132%_) - (let () - (declare (not safe)) - (_%loop32332%_ - _%L33113%_ - _%g3313033132%_ - _%K32622%_))))) - (declare (not safe)) - (_%loop32332%_ - _%L33115%_ - _%vars32621%_ - __tmp40045)))) - (_%__kont3832938330%_ - (lambda (_%L33058%_) - (let () - (declare (not safe)) - (_%loop32332%_ - _%L33058%_ - _%vars32621%_ - _%K32622%_)))) - (_%__kont3833138332%_ - (lambda (_%L33008%_ _%L33010%_) - (let () - (declare (not safe)) - (_%loop-vector32334%_ - _%L33008%_ - _%vars32621%_ - _%K32622%_)))) - (_%__kont3833338334%_ - (lambda (_%L32965%_) - (let () - (declare (not safe)) - (_%loop-vector32334%_ - _%L32965%_ - _%vars32621%_ - _%K32622%_)))) - (_%__kont3833538336%_ - (lambda (_%L32908%_) - (let () - (declare (not safe)) - (_%loop-class-list32336%_ - _%L32908%_ - _%vars32621%_ - _%K32622%_)))) - (_%__kont3833738338%_ - (lambda (_%L32849%_ _%L32851%_) - (let () - (declare (not safe)) - (_%loop32332%_ - _%L32849%_ - _%vars32621%_ - _%K32622%_)))) - (_%__kont3833938340%_ - (lambda (_%L32787%_) - (if (find (lambda (_%g3280232804%_) + (##car _%e3319733221%_)))) + (_%__kont3813438135%_ + _%tl3319533228%_ + _%hd3319633225%_))) + (_%__kont3813638137%_)))))) + (_%__kont3823438235%_ + (lambda (_%L33142%_) + (_%loop32243%_ + _%L33142%_ + _%vars32532%_ + _%K32533%_))) + (_%__kont3823638237%_ + (lambda (_%L33088%_ _%L33090%_) + (_%loop32243%_ + _%L33090%_ + _%vars32532%_ + (lambda (_%g3310533107%_) + (_%loop32243%_ + _%L33088%_ + _%g3310533107%_ + _%K32533%_))))) + (_%__kont3823838239%_ + (lambda (_%L33024%_ _%L33026%_) + (_%loop32243%_ + _%L33026%_ + _%vars32532%_ + (lambda (_%g3304133043%_) + (_%loop32243%_ + _%L33024%_ + _%g3304133043%_ + _%K32533%_))))) + (_%__kont3824038241%_ + (lambda (_%L32969%_) + (_%loop32243%_ + _%L32969%_ + _%vars32532%_ + _%K32533%_))) + (_%__kont3824238243%_ + (lambda (_%L32919%_ _%L32921%_) + (_%loop-vector32245%_ + _%L32919%_ + _%vars32532%_ + _%K32533%_))) + (_%__kont3824438245%_ + (lambda (_%L32876%_) + (_%loop-vector32245%_ + _%L32876%_ + _%vars32532%_ + _%K32533%_))) + (_%__kont3824638247%_ + (lambda (_%L32819%_) + (_%loop-class-list32247%_ + _%L32819%_ + _%vars32532%_ + _%K32533%_))) + (_%__kont3824838249%_ + (lambda (_%L32760%_ _%L32762%_) + (_%loop32243%_ + _%L32760%_ + _%vars32532%_ + _%K32533%_))) + (_%__kont3825038251%_ + (lambda (_%L32698%_) + (if (find (lambda (_%g3271332715%_) (gx#bound-identifier=? - _%g3280232804%_ - _%L32787%_)) - _%vars32621%_) - (_%K32622%_ _%vars32621%_) - (_%K32622%_ - (cons _%L32787%_ _%vars32621%_))))) - (_%__kont3834138342%_ - (lambda () (_%K32622%_ _%vars32621%_)))) - (let* ((_%__match3847338474%_ - (lambda (_%e3269432988%_ - _%hd3269332992%_ - _%tl3269232995%_ - _%e3269732998%_ - _%hd3269633002%_ - _%tl3269533005%_) - (let ((_%L33008%_ _%hd3269633002%_) - (_%L33010%_ _%hd3269332992%_)) - (if (or (gx#stx-eq? 'values: _%L33010%_) - (gx#stx-eq? 'vector: _%L33010%_)) - (_%__kont3833138332%_ - _%L33008%_ - _%L33010%_) - (if (gx#stx-datum? _%hd3269332992%_) - (let ((_%e3270232941%_ + _%g3271332715%_ + _%L32698%_)) + _%vars32532%_) + (_%K32533%_ _%vars32532%_) + (_%K32533%_ + (cons _%L32698%_ _%vars32532%_))))) + (_%__kont3825238253%_ + (lambda () (_%K32533%_ _%vars32532%_)))) + (let* ((_%__match3838438385%_ + (lambda (_%e3260532899%_ + _%hd3260432903%_ + _%tl3260332906%_ + _%e3260832909%_ + _%hd3260732913%_ + _%tl3260632916%_) + (let ((_%L32919%_ _%hd3260732913%_) + (_%L32921%_ _%hd3260432903%_)) + (if (or (gx#stx-eq? 'values: _%L32921%_) + (gx#stx-eq? 'vector: _%L32921%_)) + (_%__kont3824238243%_ + _%L32919%_ + _%L32921%_) + (if (gx#stx-datum? _%hd3260432903%_) + (let ((_%e3261332852%_ (gx#stx-e - _%hd3269332992%_))) - (if (equal? _%e3270232941%_ + _%hd3260432903%_))) + (if (equal? _%e3261332852%_ 'struct:) - (_%__kont3834138342%_) - (if (equal? _%e3270232941%_ + (_%__kont3825238253%_) + (if (equal? _%e3261332852%_ 'class:) - (_%__kont3834138342%_) - (if (equal? _%e3270232941%_ + (_%__kont3825238253%_) + (if (equal? _%e3261332852%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'apply:) - (_%__kont3834138342%_) - (if (equal? _%e3270232941%_ 'var:) - (_%__kont3833938340%_ _%hd3269633002%_) - (_%__kont3834138342%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3834138342%_)))))) - (_%__match3836738368%_ - (lambda (_%e3264933252%_ - _%hd3264833256%_ - _%tl3264733259%_) - (let ((_%L33262%_ _%tl3264733259%_) - (_%L33264%_ _%hd3264833256%_)) - (if (or (gx#stx-eq? 'and: _%L33264%_) - (gx#stx-eq? 'or: _%L33264%_)) - (_%__kont3832138322%_ - _%L33262%_ - _%L33264%_) - (if (gx#stx-datum? _%hd3264833256%_) - (let ((_%e3265433217%_ + (_%__kont3825238253%_) + (if (equal? _%e3261332852%_ 'var:) + (_%__kont3825038251%_ _%hd3260732913%_) + (_%__kont3825238253%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont3825238253%_)))))) + (_%__match3827838279%_ + (lambda (_%e3256033163%_ + _%hd3255933167%_ + _%tl3255833170%_) + (let ((_%L33173%_ _%tl3255833170%_) + (_%L33175%_ _%hd3255933167%_)) + (if (or (gx#stx-eq? 'and: _%L33175%_) + (gx#stx-eq? 'or: _%L33175%_)) + (_%__kont3823238233%_ + _%L33173%_ + _%L33175%_) + (if (gx#stx-datum? _%hd3255933167%_) + (let ((_%e3256533128%_ (gx#stx-e - _%hd3264833256%_))) - (if (equal? _%e3265433217%_ + _%hd3255933167%_))) + (if (equal? _%e3256533128%_ 'not:) (if (gx#stx-pair? - _%tl3264733259%_) - (let ((_%e3265733221%_ + _%tl3255833170%_) + (let ((_%e3256833132%_ (gx#syntax-e - _%tl3264733259%_))) - (let ((_%tl3265533228%_ + _%tl3255833170%_))) + (let ((_%tl3256633139%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3265733221%_))) - (_%hd3265633225%_ - (let () (declare (not safe)) (##car _%e3265733221%_)))) - (if (gx#stx-null? _%tl3265533228%_) - (_%__kont3832338324%_ _%hd3265633225%_) - (_%__kont3834138342%_)))) - (_%__kont3834138342%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e3265433217%_ + (##cdr _%e3256833132%_))) + (_%hd3256733136%_ + (let () (declare (not safe)) (##car _%e3256833132%_)))) + (if (gx#stx-null? _%tl3256633139%_) + (_%__kont3823438235%_ _%hd3256733136%_) + (_%__kont3825238253%_)))) + (_%__kont3825238253%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (equal? _%e3256533128%_ 'cons:) (if (gx#stx-pair? - _%tl3264733259%_) - (let ((_%e3266633157%_ + _%tl3255833170%_) + (let ((_%e3257733068%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3264733259%_))) - (let ((_%tl3266433164%_ + (gx#syntax-e _%tl3255833170%_))) + (let ((_%tl3257533075%_ (let () (declare (not safe)) - (##cdr _%e3266633157%_))) - (_%hd3266533161%_ + (##cdr _%e3257733068%_))) + (_%hd3257633072%_ (let () (declare (not safe)) - (##car _%e3266633157%_)))) - (if (gx#stx-pair? _%tl3266433164%_) - (let ((_%e3266933167%_ - (gx#syntax-e _%tl3266433164%_))) - (let ((_%tl3266733174%_ + (##car _%e3257733068%_)))) + (if (gx#stx-pair? _%tl3257533075%_) + (let ((_%e3258033078%_ + (gx#syntax-e _%tl3257533075%_))) + (let ((_%tl3257833085%_ (let () (declare (not safe)) - (##cdr _%e3266933167%_))) - (_%hd3266833171%_ + (##cdr _%e3258033078%_))) + (_%hd3257933082%_ (let () (declare (not safe)) - (##car _%e3266933167%_)))) - (if (gx#stx-null? _%tl3266733174%_) - (_%__kont3832538326%_ - _%hd3266833171%_ - _%hd3266533161%_) - (_%__kont3834138342%_)))) - (if (gx#stx-null? _%tl3266433164%_) - (_%__match3847338474%_ - _%e3264933252%_ - _%hd3264833256%_ - _%tl3264733259%_ - _%e3266633157%_ - _%hd3266533161%_ - _%tl3266433164%_) - (_%__kont3834138342%_))))) - (_%__kont3834138342%_)) - (if (equal? _%e3265433217%_ 'splice:) - (if (gx#stx-pair? _%tl3264733259%_) - (let ((_%e3267833093%_ (gx#syntax-e _%tl3264733259%_))) - (let ((_%tl3267633100%_ + (##car _%e3258033078%_)))) + (if (gx#stx-null? _%tl3257833085%_) + (_%__kont3823638237%_ + _%hd3257933082%_ + _%hd3257633072%_) + (_%__kont3825238253%_)))) + (if (gx#stx-null? _%tl3257533075%_) + (_%__match3838438385%_ + _%e3256033163%_ + _%hd3255933167%_ + _%tl3255833170%_ + _%e3257733068%_ + _%hd3257633072%_ + _%tl3257533075%_) + (_%__kont3825238253%_))))) + (_%__kont3825238253%_)) + (if (equal? _%e3256533128%_ 'splice:) + (if (gx#stx-pair? _%tl3255833170%_) + (let ((_%e3258933004%_ (gx#syntax-e _%tl3255833170%_))) + (let ((_%tl3258733011%_ (let () (declare (not safe)) - (##cdr _%e3267833093%_))) - (_%hd3267733097%_ + (##cdr _%e3258933004%_))) + (_%hd3258833008%_ (let () (declare (not safe)) - (##car _%e3267833093%_)))) - (if (gx#stx-pair? _%tl3267633100%_) - (let ((_%e3268133103%_ - (gx#syntax-e _%tl3267633100%_))) - (let ((_%tl3267933110%_ + (##car _%e3258933004%_)))) + (if (gx#stx-pair? _%tl3258733011%_) + (let ((_%e3259233014%_ + (gx#syntax-e _%tl3258733011%_))) + (let ((_%tl3259033021%_ (let () (declare (not safe)) - (##cdr _%e3268133103%_))) - (_%hd3268033107%_ + (##cdr _%e3259233014%_))) + (_%hd3259133018%_ (let () (declare (not safe)) - (##car _%e3268133103%_)))) - (if (gx#stx-null? _%tl3267933110%_) - (_%__kont3832738328%_ - _%hd3268033107%_ - _%hd3267733097%_) - (_%__kont3834138342%_)))) - (if (gx#stx-null? _%tl3267633100%_) - (_%__match3847338474%_ - _%e3264933252%_ - _%hd3264833256%_ - _%tl3264733259%_ - _%e3267833093%_ - _%hd3267733097%_ - _%tl3267633100%_) - (_%__kont3834138342%_))))) - (_%__kont3834138342%_)) - (if (equal? _%e3265433217%_ 'box:) - (if (gx#stx-pair? _%tl3264733259%_) - (let ((_%e3268933048%_ - (gx#syntax-e _%tl3264733259%_))) - (let ((_%tl3268733055%_ + (##car _%e3259233014%_)))) + (if (gx#stx-null? _%tl3259033021%_) + (_%__kont3823838239%_ + _%hd3259133018%_ + _%hd3258833008%_) + (_%__kont3825238253%_)))) + (if (gx#stx-null? _%tl3258733011%_) + (_%__match3838438385%_ + _%e3256033163%_ + _%hd3255933167%_ + _%tl3255833170%_ + _%e3258933004%_ + _%hd3258833008%_ + _%tl3258733011%_) + (_%__kont3825238253%_))))) + (_%__kont3825238253%_)) + (if (equal? _%e3256533128%_ 'box:) + (if (gx#stx-pair? _%tl3255833170%_) + (let ((_%e3260032959%_ + (gx#syntax-e _%tl3255833170%_))) + (let ((_%tl3259832966%_ (let () (declare (not safe)) - (##cdr _%e3268933048%_))) - (_%hd3268833052%_ + (##cdr _%e3260032959%_))) + (_%hd3259932963%_ (let () (declare (not safe)) - (##car _%e3268933048%_)))) - (if (gx#stx-null? _%tl3268733055%_) - (_%__kont3832938330%_ _%hd3268833052%_) - (_%__kont3834138342%_)))) - (_%__kont3834138342%_)) - (if (gx#stx-pair? _%tl3264733259%_) - (let ((_%e3269732998%_ - (gx#syntax-e _%tl3264733259%_))) - (let ((_%tl3269533005%_ + (##car _%e3260032959%_)))) + (if (gx#stx-null? _%tl3259832966%_) + (_%__kont3824038241%_ _%hd3259932963%_) + (_%__kont3825238253%_)))) + (_%__kont3825238253%_)) + (if (gx#stx-pair? _%tl3255833170%_) + (let ((_%e3260832909%_ + (gx#syntax-e _%tl3255833170%_))) + (let ((_%tl3260632916%_ (let () (declare (not safe)) - (##cdr _%e3269732998%_))) - (_%hd3269633002%_ + (##cdr _%e3260832909%_))) + (_%hd3260732913%_ (let () (declare (not safe)) - (##car _%e3269732998%_)))) - (if (gx#stx-null? _%tl3269533005%_) - (_%__match3847338474%_ - _%e3264933252%_ - _%hd3264833256%_ - _%tl3264733259%_ - _%e3269732998%_ - _%hd3269633002%_ - _%tl3269533005%_) - (if (equal? _%e3265433217%_ 'struct:) - (if (gx#stx-pair? _%tl3269533005%_) - (let ((_%e3270832955%_ + (##car _%e3260832909%_)))) + (if (gx#stx-null? _%tl3260632916%_) + (_%__match3838438385%_ + _%e3256033163%_ + _%hd3255933167%_ + _%tl3255833170%_ + _%e3260832909%_ + _%hd3260732913%_ + _%tl3260632916%_) + (if (equal? _%e3256533128%_ 'struct:) + (if (gx#stx-pair? _%tl3260632916%_) + (let ((_%e3261932866%_ (gx#syntax-e - _%tl3269533005%_))) - (let ((_%tl3270632962%_ + _%tl3260632916%_))) + (let ((_%tl3261732873%_ (let () (declare (not safe)) - (##cdr _%e3270832955%_))) - (_%hd3270732959%_ + (##cdr _%e3261932866%_))) + (_%hd3261832870%_ (let () (declare (not safe)) - (##car _%e3270832955%_)))) + (##car _%e3261932866%_)))) (if (gx#stx-null? - _%tl3270632962%_) - (_%__kont3833338334%_ - _%hd3270732959%_) - (_%__kont3834138342%_)))) - (_%__kont3834138342%_)) - (if (equal? _%e3265433217%_ 'class:) - (if (gx#stx-pair? _%tl3269533005%_) - (let ((_%e3271932898%_ + _%tl3261732873%_) + (_%__kont3824438245%_ + _%hd3261832870%_) + (_%__kont3825238253%_)))) + (_%__kont3825238253%_)) + (if (equal? _%e3256533128%_ 'class:) + (if (gx#stx-pair? _%tl3260632916%_) + (let ((_%e3263032809%_ (gx#syntax-e - _%tl3269533005%_))) - (let ((_%tl3271732905%_ + _%tl3260632916%_))) + (let ((_%tl3262832816%_ (let () (declare (not safe)) - (##cdr _%e3271932898%_))) - (_%hd3271832902%_ + (##cdr _%e3263032809%_))) + (_%hd3262932813%_ (let () (declare (not safe)) - (##car _%e3271932898%_)))) + (##car _%e3263032809%_)))) (if (gx#stx-null? - _%tl3271732905%_) - (_%__kont3833538336%_ - _%hd3271832902%_) - (_%__kont3834138342%_)))) - (_%__kont3834138342%_)) - (if (equal? _%e3265433217%_ 'apply:) + _%tl3262832816%_) + (_%__kont3824638247%_ + _%hd3262932813%_) + (_%__kont3825238253%_)))) + (_%__kont3825238253%_)) + (if (equal? _%e3256533128%_ 'apply:) (if (gx#stx-pair? - _%tl3269533005%_) - (let ((_%e3273132839%_ + _%tl3260632916%_) + (let ((_%e3264232750%_ (gx#syntax-e - _%tl3269533005%_))) - (let ((_%tl3272932846%_ + _%tl3260632916%_))) + (let ((_%tl3264032757%_ (let () (declare (not safe)) - (##cdr _%e3273132839%_))) - (_%hd3273032843%_ + (##cdr _%e3264232750%_))) + (_%hd3264132754%_ (let () (declare (not safe)) - (##car _%e3273132839%_)))) + (##car _%e3264232750%_)))) (if (gx#stx-null? - _%tl3272932846%_) - (_%__kont3833738338%_ - _%hd3273032843%_ - _%hd3269633002%_) - (_%__kont3834138342%_)))) - (_%__kont3834138342%_)) - (_%__kont3834138342%_))))))) - (_%__kont3834138342%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl3264733259%_) - (let ((_%e3269732998%_ + _%tl3264032757%_) + (_%__kont3824838249%_ + _%hd3264132754%_ + _%hd3260732913%_) + (_%__kont3825238253%_)))) + (_%__kont3825238253%_)) + (_%__kont3825238253%_))))))) + (_%__kont3825238253%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%tl3255833170%_) + (let ((_%e3260832909%_ (gx#syntax-e - _%tl3264733259%_))) - (let ((_%tl3269533005%_ + _%tl3255833170%_))) + (let ((_%tl3260632916%_ (let () (declare (not safe)) - (##cdr _%e3269732998%_))) - (_%hd3269633002%_ + (##cdr _%e3260832909%_))) + (_%hd3260732913%_ (let () (declare (not safe)) - (##car _%e3269732998%_)))) + (##car _%e3260832909%_)))) (if (gx#stx-null? - _%tl3269533005%_) - (_%__match3847338474%_ - _%e3264933252%_ - _%hd3264833256%_ - _%tl3264733259%_ - _%e3269732998%_ - _%hd3269633002%_ - _%tl3269533005%_) - (_%__kont3834138342%_)))) - (_%__kont3834138342%_)))))))) - (if (gx#stx-pair? _%__stx3831638317%_) - (let ((_%e3264033351%_ - (gx#syntax-e _%__stx3831638317%_))) - (let ((_%tl3263833358%_ + _%tl3260632916%_) + (_%__match3838438385%_ + _%e3256033163%_ + _%hd3255933167%_ + _%tl3255833170%_ + _%e3260832909%_ + _%hd3260732913%_ + _%tl3260632916%_) + (_%__kont3825238253%_)))) + (_%__kont3825238253%_)))))))) + (if (gx#stx-pair? _%__stx3822738228%_) + (let ((_%e3255133262%_ + (gx#syntax-e _%__stx3822738228%_))) + (let ((_%tl3254933269%_ (let () (declare (not safe)) - (##cdr _%e3264033351%_))) - (_%hd3263933355%_ + (##cdr _%e3255133262%_))) + (_%hd3255033266%_ (let () (declare (not safe)) - (##car _%e3264033351%_)))) - (if (gx#stx-datum? _%hd3263933355%_) - (let ((_%e3264133361%_ - (gx#stx-e _%hd3263933355%_))) - (if (equal? _%e3264133361%_ '?:) - (if (gx#stx-pair? _%tl3263833358%_) - (let ((_%e3264433365%_ + (##car _%e3255133262%_)))) + (if (gx#stx-datum? _%hd3255033266%_) + (let ((_%e3255233272%_ + (gx#stx-e _%hd3255033266%_))) + (if (equal? _%e3255233272%_ '?:) + (if (gx#stx-pair? _%tl3254933269%_) + (let ((_%e3255533276%_ (gx#syntax-e - _%tl3263833358%_))) - (let ((_%tl3264233372%_ + _%tl3254933269%_))) + (let ((_%tl3255333283%_ (let () (declare (not safe)) - (##cdr _%e3264433365%_))) - (_%hd3264333369%_ + (##cdr _%e3255533276%_))) + (_%hd3255433280%_ (let () (declare (not safe)) - (##car _%e3264433365%_)))) - (_%__kont3831938320%_ - _%tl3264233372%_))) - (_%__match3836738368%_ - _%e3264033351%_ - _%hd3263933355%_ - _%tl3263833358%_)) - (_%__match3836738368%_ - _%e3264033351%_ - _%hd3263933355%_ - _%tl3263833358%_))) - (_%__match3836738368%_ - _%e3264033351%_ - _%hd3263933355%_ - _%tl3263833358%_)))) - (_%__kont3834138342%_))))))) - (_%loop-vector32334%_ - (lambda (_%body32495%_ _%vars32497%_ _%K32498%_) - (let* ((_%__stx3857438575%_ _%body32495%_) - (_%g3250132524%_ + (##car _%e3255533276%_)))) + (_%__kont3823038231%_ + _%tl3255333283%_))) + (_%__match3827838279%_ + _%e3255133262%_ + _%hd3255033266%_ + _%tl3254933269%_)) + (_%__match3827838279%_ + _%e3255133262%_ + _%hd3255033266%_ + _%tl3254933269%_))) + (_%__match3827838279%_ + _%e3255133262%_ + _%hd3255033266%_ + _%tl3254933269%_)))) + (_%__kont3825238253%_))))))) + (_%loop-vector32245%_ + (lambda (_%body32406%_ _%vars32408%_ _%K32409%_) + (let* ((_%__stx3848538486%_ _%body32406%_) + (_%g3241232435%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3857438575%_)))) - (let ((_%__kont3857738578%_ - (lambda (_%L32601%_) - (let () - (declare (not safe)) - (_%loop-list32335%_ - _%L32601%_ - _%vars32497%_ - _%K32498%_)))) - (_%__kont3857938580%_ - (lambda (_%L32555%_) - (let () - (declare (not safe)) - (_%loop32332%_ - _%L32555%_ - _%vars32497%_ - _%K32498%_))))) - (if (gx#stx-pair? _%__stx3857438575%_) - (let ((_%e3250632577%_ - (gx#syntax-e _%__stx3857438575%_))) - (let ((_%tl3250432584%_ + _%__stx3848538486%_)))) + (let ((_%__kont3848838489%_ + (lambda (_%L32512%_) + (_%loop-list32246%_ + _%L32512%_ + _%vars32408%_ + _%K32409%_))) + (_%__kont3849038491%_ + (lambda (_%L32466%_) + (_%loop32243%_ + _%L32466%_ + _%vars32408%_ + _%K32409%_)))) + (if (gx#stx-pair? _%__stx3848538486%_) + (let ((_%e3241732488%_ + (gx#syntax-e _%__stx3848538486%_))) + (let ((_%tl3241532495%_ (let () (declare (not safe)) - (##cdr _%e3250632577%_))) - (_%hd3250532581%_ + (##cdr _%e3241732488%_))) + (_%hd3241632492%_ (let () (declare (not safe)) - (##car _%e3250632577%_)))) - (if (gx#stx-datum? _%hd3250532581%_) - (let ((_%e3250732587%_ - (gx#stx-e _%hd3250532581%_))) - (if (equal? _%e3250732587%_ 'simple:) - (if (gx#stx-pair? _%tl3250432584%_) - (let ((_%e3251032591%_ + (##car _%e3241732488%_)))) + (if (gx#stx-datum? _%hd3241632492%_) + (let ((_%e3241832498%_ + (gx#stx-e _%hd3241632492%_))) + (if (equal? _%e3241832498%_ 'simple:) + (if (gx#stx-pair? _%tl3241532495%_) + (let ((_%e3242132502%_ (gx#syntax-e - _%tl3250432584%_))) - (let ((_%tl3250832598%_ + _%tl3241532495%_))) + (let ((_%tl3241932509%_ (let () (declare (not safe)) - (##cdr _%e3251032591%_))) - (_%hd3250932595%_ + (##cdr _%e3242132502%_))) + (_%hd3242032506%_ (let () (declare (not safe)) - (##car _%e3251032591%_)))) + (##car _%e3242132502%_)))) (if (gx#stx-null? - _%tl3250832598%_) - (_%__kont3857738578%_ - _%hd3250932595%_) + _%tl3241932509%_) + (_%__kont3848838489%_ + _%hd3242032506%_) (let () (declare (not safe)) - (_%g3250132524%_))))) + (_%g3241232435%_))))) (let () (declare (not safe)) - (_%g3250132524%_))) - (if (equal? _%e3250732587%_ 'list:) + (_%g3241232435%_))) + (if (equal? _%e3241832498%_ 'list:) (if (gx#stx-pair? - _%tl3250432584%_) - (let ((_%e3251832545%_ + _%tl3241532495%_) + (let ((_%e3242932456%_ (gx#syntax-e - _%tl3250432584%_))) - (let ((_%tl3251632552%_ + _%tl3241532495%_))) + (let ((_%tl3242732463%_ (let () (declare (not safe)) - (##cdr _%e3251832545%_))) - (_%hd3251732549%_ + (##cdr _%e3242932456%_))) + (_%hd3242832460%_ (let () (declare (not safe)) - (##car _%e3251832545%_)))) + (##car _%e3242932456%_)))) (if (gx#stx-null? - _%tl3251632552%_) - (_%__kont3857938580%_ - _%hd3251732549%_) + _%tl3242732463%_) + (_%__kont3849038491%_ + _%hd3242832460%_) (let () (declare (not safe)) - (_%g3250132524%_))))) + (_%g3241232435%_))))) (let () (declare (not safe)) - (_%g3250132524%_))) + (_%g3241232435%_))) (let () (declare (not safe)) - (_%g3250132524%_))))) + (_%g3241232435%_))))) (let () (declare (not safe)) - (_%g3250132524%_))))) + (_%g3241232435%_))))) (let () (declare (not safe)) - (_%g3250132524%_))))))) - (_%loop-list32335%_ - (lambda (_%rest32425%_ _%vars32427%_ _%K32428%_) - (let* ((_%__stx3862438625%_ _%rest32425%_) - (_%g3243132443%_ + (_%g3241232435%_))))))) + (_%loop-list32246%_ + (lambda (_%rest32336%_ _%vars32338%_ _%K32339%_) + (let* ((_%__stx3853538536%_ _%rest32336%_) + (_%g3234232354%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3862438625%_)))) - (let ((_%__kont3862738628%_ - (lambda (_%L32471%_ _%L32473%_) - (let ((__tmp40046 - (lambda (_%g3248532487%_) - (let () - (declare (not safe)) - (_%loop-list32335%_ - _%L32471%_ - _%g3248532487%_ - _%K32428%_))))) - (declare (not safe)) - (_%loop32332%_ - _%L32473%_ - _%vars32427%_ - __tmp40046)))) - (_%__kont3862938630%_ - (lambda () (_%K32428%_ _%vars32427%_)))) - (if (gx#stx-pair? _%__stx3862438625%_) - (let ((_%e3243732461%_ - (gx#syntax-e _%__stx3862438625%_))) - (let ((_%tl3243532468%_ + _%__stx3853538536%_)))) + (let ((_%__kont3853838539%_ + (lambda (_%L32382%_ _%L32384%_) + (_%loop32243%_ + _%L32384%_ + _%vars32338%_ + (lambda (_%g3239632398%_) + (_%loop-list32246%_ + _%L32382%_ + _%g3239632398%_ + _%K32339%_))))) + (_%__kont3854038541%_ + (lambda () (_%K32339%_ _%vars32338%_)))) + (if (gx#stx-pair? _%__stx3853538536%_) + (let ((_%e3234832372%_ + (gx#syntax-e _%__stx3853538536%_))) + (let ((_%tl3234632379%_ (let () (declare (not safe)) - (##cdr _%e3243732461%_))) - (_%hd3243632465%_ + (##cdr _%e3234832372%_))) + (_%hd3234732376%_ (let () (declare (not safe)) - (##car _%e3243732461%_)))) - (_%__kont3862738628%_ - _%tl3243532468%_ - _%hd3243632465%_))) - (_%__kont3862938630%_)))))) - (_%loop-class-list32336%_ - (lambda (_%rest32338%_ _%vars32340%_ _%K32341%_) - (let* ((_%__stx3864038641%_ _%rest32338%_) - (_%g3234432359%_ + (##car _%e3234832372%_)))) + (_%__kont3853838539%_ + _%tl3234632379%_ + _%hd3234732376%_))) + (_%__kont3854038541%_)))))) + (_%loop-class-list32247%_ + (lambda (_%rest32249%_ _%vars32251%_ _%K32252%_) + (let* ((_%__stx3855138552%_ _%rest32249%_) + (_%g3225532270%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3864038641%_)))) - (let ((_%__kont3864338644%_ - (lambda (_%L32397%_ _%L32399%_) - (let ((__tmp40047 - (lambda (_%g3241532417%_) - (let () - (declare (not safe)) - (_%loop-class-list32336%_ - _%L32397%_ - _%g3241532417%_ - _%K32341%_))))) - (declare (not safe)) - (_%loop32332%_ - _%L32399%_ - _%vars32340%_ - __tmp40047)))) - (_%__kont3864538646%_ - (lambda () (_%K32341%_ _%vars32340%_)))) - (if (gx#stx-pair? _%__stx3864038641%_) - (let ((_%e3235032377%_ - (gx#syntax-e _%__stx3864038641%_))) - (let ((_%tl3234832384%_ + _%__stx3855138552%_)))) + (let ((_%__kont3855438555%_ + (lambda (_%L32308%_ _%L32310%_) + (_%loop32243%_ + _%L32310%_ + _%vars32251%_ + (lambda (_%g3232632328%_) + (_%loop-class-list32247%_ + _%L32308%_ + _%g3232632328%_ + _%K32252%_))))) + (_%__kont3855638557%_ + (lambda () (_%K32252%_ _%vars32251%_)))) + (if (gx#stx-pair? _%__stx3855138552%_) + (let ((_%e3226132288%_ + (gx#syntax-e _%__stx3855138552%_))) + (let ((_%tl3225932295%_ (let () (declare (not safe)) - (##cdr _%e3235032377%_))) - (_%hd3234932381%_ + (##cdr _%e3226132288%_))) + (_%hd3226032292%_ (let () (declare (not safe)) - (##car _%e3235032377%_)))) - (if (gx#stx-pair? _%tl3234832384%_) - (let ((_%e3235332387%_ - (gx#syntax-e _%tl3234832384%_))) - (let ((_%tl3235132394%_ + (##car _%e3226132288%_)))) + (if (gx#stx-pair? _%tl3225932295%_) + (let ((_%e3226432298%_ + (gx#syntax-e _%tl3225932295%_))) + (let ((_%tl3226232305%_ (let () (declare (not safe)) - (##cdr _%e3235332387%_))) - (_%hd3235232391%_ + (##cdr _%e3226432298%_))) + (_%hd3226332302%_ (let () (declare (not safe)) - (##car _%e3235332387%_)))) - (_%__kont3864338644%_ - _%tl3235132394%_ - _%hd3235232391%_))) - (_%__kont3864538646%_)))) - (_%__kont3864538646%_))))))) - (let () - (declare (not safe)) - (_%loop32332%_ _%ptree32329%_ '() values))))) + (##car _%e3226432298%_)))) + (_%__kont3855438555%_ + _%tl3226232305%_ + _%hd3226332302%_))) + (_%__kont3855638557%_)))) + (_%__kont3855638557%_))))))) + (_%loop32243%_ _%ptree32240%_ '() values)))) (define |gerbil/core/match[1]#generate-match1| - (lambda (_%stx29274%_ _%tgt29276%_ _%ptree29277%_ _%K29278%_ _%E29279%_) - (letrec ((_%generate129281%_ - (lambda (_%tgt30528%_ _%ptree30530%_ _%K30531%_ _%E30532%_) - (let* ((_%g3053430542%_ - (lambda (_%g3053530538%_) + (lambda (_%stx29185%_ _%tgt29187%_ _%ptree29188%_ _%K29189%_ _%E29190%_) + (letrec ((_%generate129192%_ + (lambda (_%tgt30439%_ _%ptree30441%_ _%K30442%_ _%E30443%_) + (let* ((_%g3044530453%_ + (lambda (_%g3044630449%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3053530538%_))) - (_%g3053332325%_ - (lambda (_%g3053530546%_) - ((lambda (_%L30549%_) - (let () - (let* ((_%__stx3887638877%_ _%ptree30530%_) - (_%g3057630718%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx3887638877%_)))) - (let ((_%__kont3887938880%_ - (lambda (_%L32040%_ _%L32042%_) - (let* ((_%__stx3879438795%_ - _%L32040%_) - (_%g3205932094%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx3879438795%_)))) - (let ((_%__kont3879738798%_ - (lambda () - (cons 'if - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '?) - (cons _%L32042%_ (cons _%L30549%_ '()))) - (cons _%K30531%_ (cons _%E30532%_ '())))))) - (_%__kont3879938800%_ - (lambda (_%L32295%_) - (cons 'if - (cons (cons (gx#datum->syntax '#f '?) - (cons _%L32042%_ (cons _%L30549%_ '()))) - (cons (let () - (declare (not safe)) - (_%generate129281%_ - _%tgt30528%_ - _%L32295%_ - _%K30531%_ - _%E30532%_)) - (cons _%E30532%_ '())))))) - (_%__kont3880138802%_ - (lambda (_%L32233%_) - (let* ((_%g3224732255%_ - (lambda (_%g3224832251%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3224832251%_))) - (_%g3224632274%_ - (lambda (_%g3224832259%_) - ((lambda (_%L32262%_) - (let () - (cons 'let - (cons (cons (cons _%L32262%_ - (cons (cons _%L32042%_ + _%g3044630449%_))) + (_%g3044432236%_ + (lambda (_%g3044630457%_) + ((lambda (_%L30460%_) + (let* ((_%__stx3878738788%_ _%ptree30441%_) + (_%g3048730629%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx3878738788%_)))) + (let ((_%__kont3879038791%_ + (lambda (_%L31951%_ _%L31953%_) + (let* ((_%__stx3870538706%_ + _%L31951%_) + (_%g3197032005%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx3870538706%_)))) + (let ((_%__kont3870838709%_ + (lambda () + (cons 'if + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L30549%_ '())) - '())) + '#f + '?) + (cons _%L31953%_ (cons _%L30460%_ '()))) + (cons _%K30442%_ (cons _%E30443%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - (cons (cons 'if - (cons _%L32262%_ - (cons (let () + (_%__kont3871038711%_ + (lambda (_%L32206%_) + (cons 'if + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (_%generate129281%_ - _%L32262%_ - _%L32233%_ - _%K30531%_ - _%E30532%_)) - (cons _%E30532%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - _%g3224832259%_))) - (__tmp40048 (gx#genident 'e))) - (declare (not safe)) - (_%g3224632274%_ __tmp40048)))) - (_%__kont3880338804%_ - (lambda (_%L32149%_ _%L32151%_) - (let* ((_%g3217132179%_ - (lambda (_%g3217232175%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3217232175%_))) - (_%g3217032198%_ - (lambda (_%g3217232183%_) - ((lambda (_%L32186%_) + '#f + '?) + (cons _%L31953%_ (cons _%L30460%_ '()))) + (cons (_%generate129192%_ + _%tgt30439%_ + _%L32206%_ + _%K30442%_ + _%E30443%_) + (cons _%E30443%_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont3871238713%_ + (lambda (_%L32144%_) + (let* ((_%g3215832166%_ + (lambda (_%g3215932162%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3215932162%_))) + (_%g3215732185%_ + (lambda (_%g3215932170%_) + ((lambda (_%L32173%_) + (cons 'let + (cons (cons (cons _%L32173%_ + (cons (cons _%L31953%_ + (cons _%L30460%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()) + (cons (cons 'if + (cons _%L32173%_ + (cons (_%generate129192%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%L32173%_ + _%L32144%_ + _%K30442%_ + _%E30443%_) + (cons _%E30443%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) + _%g3215932170%_)))) + (_%g3215732185%_ (gx#genident 'e))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont3871438715%_ + (lambda (_%L32060%_ + _%L32062%_) + (let* ((_%g3208232090%_ + (lambda (_%g3208332086%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3208332086%_))) + (_%g3208132109%_ + (lambda (_%g3208332094%_) + ((lambda (_%L32097%_) + (cons 'if + (cons (cons (gx#datum->syntax '#f '?) + (cons _%L31953%_ + (cons _%L30460%_ '()))) + (cons (cons 'let + (cons (cons (cons _%L32097%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons _%L32062%_ (cons _%L30460%_ '())) + '())) + '()) + (cons (_%generate129192%_ + _%L32097%_ + _%L32060%_ + _%K30442%_ + _%E30443%_) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%E30443%_ '()))))) + _%g3208332094%_)))) + (_%g3208132109%_ (gx#genident 'e)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%g3196732217%_ + (lambda () + (if (gx#stx-pair? + _%__stx3870538706%_) + (let ((_%e3197532196%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%__stx3870538706%_))) + (let ((_%tl3197332203%_ + (let () + (declare (not safe)) + (##cdr _%e3197532196%_))) + (_%hd3197432200%_ (let () - (cons 'if - (cons (cons (gx#datum->syntax '#f '?) - (cons _%L32042%_ - (cons _%L30549%_ '()))) - (cons (cons 'let - (cons (cons (cons _%L32186%_ + (declare (not safe)) + (##car _%e3197532196%_)))) + (if (gx#stx-null? _%tl3197332203%_) + (_%__kont3871038711%_ _%hd3197432200%_) + (if (gx#stx-datum? _%hd3197432200%_) + (let ((_%e3198032130%_ + (gx#stx-e _%hd3197432200%_))) + (if (equal? _%e3198032130%_ '=>:) + (if (gx#stx-pair? _%tl3197332203%_) + (let ((_%e3198332134%_ + (gx#syntax-e + _%tl3197332203%_))) + (let ((_%tl3198132141%_ + (let () + (declare (not safe)) + (##cdr _%e3198332134%_))) + (_%hd3198232138%_ + (let () + (declare (not safe)) + (##car _%e3198332134%_)))) + (if (gx#stx-null? + _%tl3198132141%_) + (_%__kont3871238713%_ + _%hd3198232138%_) + (let () + (declare (not safe)) + (_%g3197032005%_))))) + (let () + (declare (not safe)) + (_%g3197032005%_))) + (if (equal? _%e3198032130%_ '::) + (if (gx#stx-pair? _%tl3197332203%_) + (let ((_%e3199232026%_ + (gx#syntax-e + _%tl3197332203%_))) + (let ((_%tl3199032033%_ + (let () + (declare (not safe)) + (##cdr _%e3199232026%_))) + (_%hd3199132030%_ + (let () + (declare (not safe)) + (##car _%e3199232026%_)))) + (if (gx#stx-pair? + _%tl3199032033%_) + (let ((_%e3199532036%_ + (gx#syntax-e + _%tl3199032033%_))) + (let ((_%tl3199332043%_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L32151%_ (cons _%L30549%_ '())) - '())) - '()) - (cons (let () - (declare (not safe)) - (_%generate129281%_ - _%L32186%_ - _%L32149%_ - _%K30531%_ - _%E30532%_)) - '()))) + (declare (not safe)) + (##cdr _%e3199532036%_))) + (_%hd3199432040%_ + (let () (declare (not safe)) (##car _%e3199532036%_)))) + (if (gx#stx-datum? _%hd3199432040%_) + (let ((_%e3199632046%_ (gx#stx-e _%hd3199432040%_))) + (if (equal? _%e3199632046%_ '=>:) + (if (gx#stx-pair? _%tl3199332043%_) + (let ((_%e3199932050%_ + (gx#syntax-e _%tl3199332043%_))) + (let ((_%tl3199732057%_ + (let () + (declare (not safe)) + (##cdr _%e3199932050%_))) + (_%hd3199832054%_ + (let () + (declare (not safe)) + (##car _%e3199932050%_)))) + (if (gx#stx-null? _%tl3199732057%_) + (_%__kont3871438715%_ + _%hd3199832054%_ + _%hd3199132030%_) + (let () + (declare (not safe)) + (_%g3197032005%_))))) + (let () + (declare (not safe)) + (_%g3197032005%_))) + (let () (declare (not safe)) (_%g3197032005%_)))) + (let () (declare (not safe)) (_%g3197032005%_))))) + (let () (declare (not safe)) (_%g3197032005%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%E30532%_ '())))))) - _%g3217232183%_))) - (__tmp40049 (gx#genident 'e))) - (declare (not safe)) - (_%g3217032198%_ __tmp40049))))) + (let () + (declare (not safe)) + (_%g3197032005%_))) + (let () + (declare (not safe)) + (_%g3197032005%_))))) + (let () + (declare (not safe)) + (_%g3197032005%_)))))) + (let () (declare (not safe)) (_%g3197032005%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%g3205632306%_ - (lambda () - (if (gx#stx-pair? - _%__stx3879438795%_) - (let ((_%e3206432285%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%__stx3879438795%_))) - (let ((_%tl3206232292%_ - (let () - (declare (not safe)) - (##cdr _%e3206432285%_))) - (_%hd3206332289%_ - (let () - (declare (not safe)) - (##car _%e3206432285%_)))) - (if (gx#stx-null? _%tl3206232292%_) - (_%__kont3879938800%_ _%hd3206332289%_) - (if (gx#stx-datum? _%hd3206332289%_) - (let ((_%e3206932219%_ - (gx#stx-e _%hd3206332289%_))) - (if (equal? _%e3206932219%_ '=>:) - (if (gx#stx-pair? _%tl3206232292%_) - (let ((_%e3207232223%_ - (gx#syntax-e - _%tl3206232292%_))) - (let ((_%tl3207032230%_ - (let () - (declare (not safe)) - (##cdr _%e3207232223%_))) - (_%hd3207132227%_ + (if (gx#stx-null? + _%__stx3870538706%_) + (_%__kont3870838709%_) (let () (declare (not safe)) - (##car _%e3207232223%_)))) - (if (gx#stx-null? - _%tl3207032230%_) - (_%__kont3880138802%_ - _%hd3207132227%_) - (let () - (declare (not safe)) - (_%g3205932094%_))))) - (let () - (declare (not safe)) - (_%g3205932094%_))) - (if (equal? _%e3206932219%_ '::) - (if (gx#stx-pair? - _%tl3206232292%_) - (let ((_%e3208132115%_ - (gx#syntax-e - _%tl3206232292%_))) - (let ((_%tl3207932122%_ - (let () - (declare - (not safe)) - (##cdr _%e3208132115%_))) - (_%hd3208032119%_ - (let () - (declare - (not safe)) - (##car _%e3208132115%_)))) - (if (gx#stx-pair? - _%tl3207932122%_) - (let ((_%e3208432125%_ - (gx#syntax-e + (_%g3196732217%_)))))))) + (_%__kont3879238793%_ + (lambda (_%L31848%_) + (let* ((_%__stx3868938690%_ + _%L31848%_) + (_%g3186131873%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx3868938690%_)))) + (let ((_%__kont3869238693%_ + (lambda (_%L31901%_ + _%L31903%_) + (_%generate129192%_ + _%tgt30439%_ + _%L31903%_ + (_%generate129192%_ + _%tgt30439%_ + (cons 'and: + _%L31901%_) + _%K30442%_ + _%E30443%_) + _%E30443%_))) + (_%__kont3869438695%_ + (lambda () _%K30442%_))) + (if (gx#stx-pair? + _%__stx3868938690%_) + (let ((_%e3186731891%_ + (gx#syntax-e + _%__stx3868938690%_))) + (let ((_%tl3186531898%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl3207932122%_))) - (let ((_%tl3208232132%_ - (let () - (declare (not safe)) - (##cdr _%e3208432125%_))) - (_%hd3208332129%_ - (let () - (declare (not safe)) - (##car _%e3208432125%_)))) - (if (gx#stx-datum? _%hd3208332129%_) - (let ((_%e3208532135%_ (gx#stx-e _%hd3208332129%_))) - (if (equal? _%e3208532135%_ '=>:) - (if (gx#stx-pair? _%tl3208232132%_) - (let ((_%e3208832139%_ - (gx#syntax-e _%tl3208232132%_))) - (let ((_%tl3208632146%_ - (let () - (declare (not safe)) - (##cdr _%e3208832139%_))) - (_%hd3208732143%_ - (let () - (declare (not safe)) - (##car _%e3208832139%_)))) - (if (gx#stx-null? _%tl3208632146%_) - (_%__kont3880338804%_ - _%hd3208732143%_ - _%hd3208032119%_) - (let () - (declare (not safe)) - (_%g3205932094%_))))) + (not safe)) + (##cdr _%e3186731891%_))) + (_%hd3186631895%_ + (let () (declare (not safe)) (##car _%e3186731891%_)))) + (_%__kont3869238693%_ _%tl3186531898%_ _%hd3186631895%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont3869438695%_)))))) + (_%__kont3879438795%_ + (lambda (_%L31755%_) + (let* ((_%__stx3867338674%_ + _%L31755%_) + (_%g3176831780%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx3867338674%_)))) + (let ((_%__kont3867638677%_ + (lambda (_%L31808%_ + _%L31810%_) + (_%generate129192%_ + _%tgt30439%_ + _%L31810%_ + _%K30442%_ + (_%generate129192%_ + _%tgt30439%_ + (cons 'or: _%L31808%_) + _%K30442%_ + _%E30443%_)))) + (_%__kont3867838679%_ + (lambda () _%E30443%_))) + (if (gx#stx-pair? + _%__stx3867338674%_) + (let ((_%e3177431798%_ + (gx#syntax-e + _%__stx3867338674%_))) + (let ((_%tl3177231805%_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _%e3177431798%_))) + (_%hd3177331802%_ + (let () (declare (not safe)) (##car _%e3177431798%_)))) + (_%__kont3867638677%_ _%tl3177231805%_ _%hd3177331802%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont3867838679%_)))))) + (_%__kont3879638797%_ + (lambda (_%L31720%_) + (_%generate129192%_ + _%tgt30439%_ + _%L31720%_ + _%E30443%_ + _%K30442%_))) + (_%__kont3879838799%_ + (lambda (_%L31594%_ _%L31596%_) + (let* ((_%g3161331628%_ + (lambda (_%g3161431624%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3161431624%_))) + (_%g3161231685%_ + (lambda (_%g3161431632%_) + (if (gx#stx-pair? + _%g3161431632%_) + (let ((_%e3161931635%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%g3161431632%_))) + (let ((_%hd3161831639%_ + (let () + (declare (not safe)) + (##car _%e3161931635%_))) + (_%tl3161731642%_ + (let () + (declare (not safe)) + (##cdr _%e3161931635%_)))) + (if (gx#stx-pair? _%tl3161731642%_) + (let ((_%e3162231645%_ + (gx#syntax-e _%tl3161731642%_))) + (let ((_%hd3162131649%_ (let () (declare (not safe)) - (_%g3205932094%_))) - (let () - (declare (not safe)) - (_%g3205932094%_)))) - (let () (declare (not safe)) (_%g3205932094%_))))) - (let () (declare (not safe)) (_%g3205932094%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g3205932094%_))) - (let () - (declare (not safe)) - (_%g3205932094%_))))) + (##car _%e3162231645%_))) + (_%tl3162031652%_ (let () (declare (not safe)) - (_%g3205932094%_)))))) - (let () (declare (not safe)) (_%g3205932094%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? - _%__stx3879438795%_) - (_%__kont3879738798%_) - (let () - (declare (not safe)) - (_%g3205632306%_)))))))) - (_%__kont3888138882%_ - (lambda (_%L31937%_) - (let* ((_%__stx3877838779%_ - _%L31937%_) - (_%g3195031962%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx3877838779%_)))) - (let ((_%__kont3878138782%_ - (lambda (_%L31990%_ - _%L31992%_) - (let ((__tmp40050 - (let ((__tmp40051 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'and: _%L31990%_))) - (declare (not safe)) - (_%generate129281%_ - _%tgt30528%_ - __tmp40051 - _%K30531%_ - _%E30532%_)))) - (declare (not safe)) - (_%generate129281%_ - _%tgt30528%_ - _%L31992%_ - __tmp40050 - _%E30532%_)))) - (_%__kont3878338784%_ (lambda () _%K30531%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _%__stx3877838779%_) - (let ((_%e3195631980%_ - (gx#syntax-e - _%__stx3877838779%_))) - (let ((_%tl3195431987%_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _%e3195631980%_))) - (_%hd3195531984%_ - (let () (declare (not safe)) (##car _%e3195631980%_)))) - (_%__kont3878138782%_ _%tl3195431987%_ _%hd3195531984%_))) - (_%__kont3878338784%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3888338884%_ - (lambda (_%L31844%_) - (let* ((_%__stx3876238763%_ - _%L31844%_) - (_%g3185731869%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx3876238763%_)))) - (let ((_%__kont3876538766%_ - (lambda (_%L31897%_ - _%L31899%_) - (let ((__tmp40052 - (let ((__tmp40053 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'or: _%L31897%_))) - (declare (not safe)) - (_%generate129281%_ - _%tgt30528%_ - __tmp40053 - _%K30531%_ - _%E30532%_)))) - (declare (not safe)) - (_%generate129281%_ - _%tgt30528%_ - _%L31899%_ - _%K30531%_ - __tmp40052)))) - (_%__kont3876738768%_ (lambda () _%E30532%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _%__stx3876238763%_) - (let ((_%e3186331887%_ - (gx#syntax-e - _%__stx3876238763%_))) - (let ((_%tl3186131894%_ - (let () + (##cdr _%e3162231645%_)))) + (if (gx#stx-null? _%tl3162031652%_) + ((lambda (_%L31655%_ _%L31657%_) + (cons 'if + (cons (cons (gx#datum->syntax + '#f + '##pair?) + (cons _%L30460%_ '())) + (cons (let ((_%hd-pat31673%_ + (gx#stx-e + _%L31596%_)) + (_%tl-pat31675%_ + (gx#stx-e + _%L31594%_))) + (if (and (equal? _%hd-pat31673%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '(any:)) + (equal? _%tl-pat31675%_ '(any:))) + _%K30442%_ + (if (equal? _%tl-pat31675%_ '(any:)) + (cons 'let + (cons (cons (cons _%L31657%_ + (cons (cons (gx#datum->syntax + '#f + '##car) + (cons _%L30460%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _%e3186331887%_))) - (_%hd3186231891%_ - (let () (declare (not safe)) (##car _%e3186331887%_)))) - (_%__kont3876538766%_ _%tl3186131894%_ _%hd3186231891%_))) - (_%__kont3876738768%_)))))) + '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3888538886%_ - (lambda (_%L31809%_) - (let () - (declare (not safe)) - (_%generate129281%_ - _%tgt30528%_ - _%L31809%_ - _%E30532%_ - _%K30531%_)))) - (_%__kont3888738888%_ - (lambda (_%L31683%_ _%L31685%_) - (let* ((_%g3170231717%_ - (lambda (_%g3170331713%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3170331713%_))) - (_%g3170131774%_ - (lambda (_%g3170331721%_) - (if (gx#stx-pair? - _%g3170331721%_) - (let ((_%e3170831724%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g3170331721%_))) - (let ((_%hd3170731728%_ - (let () - (declare (not safe)) - (##car _%e3170831724%_))) - (_%tl3170631731%_ - (let () - (declare (not safe)) - (##cdr _%e3170831724%_)))) - (if (gx#stx-pair? _%tl3170631731%_) - (let ((_%e3171131734%_ - (gx#syntax-e _%tl3170631731%_))) - (let ((_%hd3171031738%_ - (let () - (declare (not safe)) - (##car _%e3171131734%_))) - (_%tl3170931741%_ - (let () - (declare (not safe)) - (##cdr _%e3171131734%_)))) - (if (gx#stx-null? _%tl3170931741%_) - ((lambda (_%L31744%_ _%L31746%_) - (let () - (cons 'if - (cons (cons (gx#datum->syntax - '#f - '##pair?) - (cons _%L30549%_ + '()) + (cons (_%generate129192%_ + _%L31657%_ + _%L31596%_ + _%K30442%_ + _%E30443%_) + '()))) + (if (equal? _%hd-pat31673%_ '(any:)) + (cons 'let + (cons (cons (cons _%L31655%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) + '#f + '##cdr) + (cons _%L30460%_ '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (let ((_%hd-pat31762%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _%L31685%_)) - (_%tl-pat31764%_ (gx#stx-e _%L31683%_))) - (if (and (equal? _%hd-pat31762%_ '(any:)) - (equal? _%tl-pat31764%_ '(any:))) - (let () _%K30531%_) - (if (equal? _%tl-pat31764%_ '(any:)) - (let () - (cons 'let - (cons (cons (cons _%L31746%_ - (cons (cons (gx#datum->syntax + '()) + (cons (_%generate129192%_ + _%L31655%_ + _%L31594%_ + _%K30442%_ + _%E30443%_) + '()))) + (cons 'let + (cons (cons (cons _%L31657%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##car) - (cons _%L30549%_ '())) - '())) + '#f + '##car) + (cons _%L30460%_ '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - (cons (let () - (declare (not safe)) - (_%generate129281%_ - _%L31746%_ - _%L31685%_ - _%K30531%_ - _%E30532%_)) - '())))) - (if (equal? _%hd-pat31762%_ '(any:)) - (let () - (cons 'let - (cons (cons (cons _%L31744%_ + (cons (cons _%L31655%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _%L30549%_ '())) + (cons _%L30460%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - (cons (let () - (declare (not safe)) - (_%generate129281%_ - _%L31744%_ - _%L31683%_ - _%K30531%_ - _%E30532%_)) - '())))) - (let () - (cons 'let - (cons (cons (cons _%L31746%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##car) - (cons _%L30549%_ '())) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L31744%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L30549%_ '())) - '())) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (let ((__tmp40054 - (let () - (declare - (not safe)) - (_%generate129281%_ - _%L31744%_ - _%L31683%_ - _%K30531%_ - _%E30532%_)))) - (declare (not safe)) - (_%generate129281%_ - _%L31746%_ - _%L31685%_ - __tmp40054 - _%E30532%_)) - '())))))))) - (cons _%E30532%_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd3171031738%_ - _%hd3170731728%_) - (let () - (declare (not safe)) - (_%g3170231717%_ _%g3170331721%_))))) - (let () - (declare (not safe)) - (_%g3170231717%_ _%g3170331721%_))))) - (let () - (declare (not safe)) - (_%g3170231717%_ _%g3170331721%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp40055 - (list (gx#genident 'hd) - (gx#genident - 'tl)))) - (declare (not safe)) - (_%g3170131774%_ __tmp40055)))) - (_%__kont3888938890%_ - (lambda () - (cons 'if - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##null?) - (cons _%L30549%_ '())) - (cons _%K30531%_ (cons _%E30532%_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3889138892%_ - (lambda (_%L31599%_ _%L31601%_) - (let () - (declare (not safe)) - (_%generate-splice29283%_ - _%tgt30528%_ - _%L31601%_ - _%L31599%_ - _%K30531%_ - _%E30532%_)))) - (_%__kont3889338894%_ - (lambda (_%L31513%_) - (let* ((_%g3152731535%_ - (lambda (_%g3152831531%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3152831531%_))) - (_%g3152631554%_ - (lambda (_%g3152831539%_) - ((lambda (_%L31542%_) - (let () - (cons 'if -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f '##box?) - (cons _%L30549%_ '())) - (cons (cons 'let - (cons (cons (cons _%L31542%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##unbox) - (cons _%L30549%_ '())) - '())) - '()) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (let () - (declare (not safe)) - (_%generate129281%_ - _%L31542%_ - _%L31513%_ - _%K30531%_ - _%E30532%_)) - '()))) - (cons _%E30532%_ '())))))) - _%g3152831539%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp40056 - (gx#genident 'e))) - (declare (not safe)) - (_%g3152631554%_ __tmp40056)))) - (_%__kont3889538896%_ - (lambda (_%L31318%_) - (let* ((_%__stx3871238713%_ - _%L31318%_) - (_%g3133331356%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx3871238713%_)))) - (let ((_%__kont3871538716%_ - (lambda (_%L31433%_) - (let* ((_%g3144731455%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g3144831451%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3144831451%_))) - (_%g3144631474%_ - (lambda (_%g3144831459%_) - ((lambda (_%L31462%_) - (let () - (cons 'if - (cons (cons (gx#datum->syntax '#f '##fx=) + '())) + (cons (_%generate129192%_ + _%L31657%_ + _%L31596%_ + (_%generate129192%_ + _%L31655%_ + _%L31594%_ + _%K30442%_ + _%E30443%_) + _%E30443%_) + '()))))))) + (cons _%E30443%_ '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd3162131649%_ + _%hd3161831639%_) + (_%g3161331628%_ _%g3161431632%_)))) + (_%g3161331628%_ _%g3161431632%_)))) + (_%g3161331628%_ _%g3161431632%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g3161231685%_ + (list (gx#genident 'hd) + (gx#genident 'tl)))))) + (_%__kont3880038801%_ + (lambda () + (cons 'if (cons (cons (gx#datum->syntax '#f - 'values-count) - (cons _%L30549%_ + '##null?) + (cons _%L30460%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L31462%_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (let () - (declare (not safe)) - (_%generate-simple-vector29284%_ - _%tgt30528%_ - _%L31433%_ - '0 - _%K30531%_ - _%E30532%_)) - (cons _%E30532%_ '())))))) - _%g3144831459%_))) - (__tmp40057 (gx#stx-length _%L31433%_))) - (declare (not safe)) - (_%g3144631474%_ __tmp40057)))) - (_%__kont3871738718%_ - (lambda (_%L31387%_) - (let () - (declare (not safe)) - (_%generate-list-vector29285%_ - _%tgt30528%_ - _%L31387%_ - 'values->list - _%K30531%_ - _%E30532%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _%__stx3871238713%_) - (let ((_%e3133831409%_ - (gx#syntax-e - _%__stx3871238713%_))) - (let ((_%tl3133631416%_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _%e3133831409%_))) - (_%hd3133731413%_ - (let () (declare (not safe)) (##car _%e3133831409%_)))) - (if (gx#stx-datum? _%hd3133731413%_) - (let ((_%e3133931419%_ (gx#stx-e _%hd3133731413%_))) - (if (equal? _%e3133931419%_ 'simple:) - (if (gx#stx-pair? _%tl3133631416%_) - (let ((_%e3134231423%_ - (gx#syntax-e _%tl3133631416%_))) - (let ((_%tl3134031430%_ - (let () - (declare (not safe)) - (##cdr _%e3134231423%_))) - (_%hd3134131427%_ - (let () - (declare (not safe)) - (##car _%e3134231423%_)))) - (if (gx#stx-null? _%tl3134031430%_) - (_%__kont3871538716%_ _%hd3134131427%_) - (let () - (declare (not safe)) - (_%g3133331356%_))))) - (let () - (declare (not safe)) - (_%g3133331356%_))) - (if (equal? _%e3133931419%_ 'list:) - (if (gx#stx-pair? _%tl3133631416%_) - (let ((_%e3135031377%_ - (gx#syntax-e _%tl3133631416%_))) - (let ((_%tl3134831384%_ - (let () - (declare (not safe)) - (##cdr _%e3135031377%_))) - (_%hd3134931381%_ - (let () - (declare (not safe)) - (##car _%e3135031377%_)))) - (if (gx#stx-null? _%tl3134831384%_) - (_%__kont3871738718%_ - _%hd3134931381%_) - (let () - (declare (not safe)) - (_%g3133331356%_))))) - (let () - (declare (not safe)) - (_%g3133331356%_))) - (let () - (declare (not safe)) - (_%g3133331356%_))))) - (let () (declare (not safe)) (_%g3133331356%_))))) - (let () (declare (not safe)) (_%g3133331356%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3889738898%_ - (lambda (_%L31123%_) - (let* ((_%__stx3866238663%_ - _%L31123%_) - (_%g3113831161%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx3866238663%_)))) - (let ((_%__kont3866538666%_ - (lambda (_%L31238%_) - (let* ((_%g3125231260%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g3125331256%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3125331256%_))) - (_%g3125131279%_ - (lambda (_%g3125331264%_) - ((lambda (_%L31267%_) - (let () - (cons 'if - (cons (cons (gx#datum->syntax - '#f - '##vector?) - (cons _%L30549%_ '())) - (cons (cons 'if - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##fx=) - (cons (cons (gx#datum->syntax '#f '##vector-length) - (cons _%L30549%_ '())) - (cons _%L31267%_ '()))) - (cons (let () - (declare (not safe)) - (_%generate-simple-vector29284%_ - _%tgt30528%_ - _%L31238%_ - '0 - _%K30531%_ - _%E30532%_)) - (cons _%E30532%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%E30532%_ '())))))) - _%g3125331264%_))) - (__tmp40058 (gx#stx-length _%L31238%_))) - (declare (not safe)) - (_%g3125131279%_ __tmp40058)))) - (_%__kont3866738668%_ - (lambda (_%L31192%_) - (cons 'if - (cons (cons (gx#datum->syntax '#f '##vector?) - (cons _%L30549%_ '())) - (cons (let () - (declare (not safe)) - (_%generate-list-vector29285%_ - _%tgt30528%_ - _%L31192%_ - 'vector->list - _%K30531%_ - _%E30532%_)) - (cons _%E30532%_ '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _%__stx3866238663%_) - (let ((_%e3114331214%_ - (gx#syntax-e - _%__stx3866238663%_))) - (let ((_%tl3114131221%_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _%e3114331214%_))) - (_%hd3114231218%_ - (let () (declare (not safe)) (##car _%e3114331214%_)))) - (if (gx#stx-datum? _%hd3114231218%_) - (let ((_%e3114431224%_ (gx#stx-e _%hd3114231218%_))) - (if (equal? _%e3114431224%_ 'simple:) - (if (gx#stx-pair? _%tl3114131221%_) - (let ((_%e3114731228%_ - (gx#syntax-e _%tl3114131221%_))) - (let ((_%tl3114531235%_ - (let () - (declare (not safe)) - (##cdr _%e3114731228%_))) - (_%hd3114631232%_ - (let () - (declare (not safe)) - (##car _%e3114731228%_)))) - (if (gx#stx-null? _%tl3114531235%_) - (_%__kont3866538666%_ _%hd3114631232%_) - (let () - (declare (not safe)) - (_%g3113831161%_))))) - (let () - (declare (not safe)) - (_%g3113831161%_))) - (if (equal? _%e3114431224%_ 'list:) - (if (gx#stx-pair? _%tl3114131221%_) - (let ((_%e3115531182%_ - (gx#syntax-e _%tl3114131221%_))) - (let ((_%tl3115331189%_ - (let () - (declare (not safe)) - (##cdr _%e3115531182%_))) - (_%hd3115431186%_ - (let () - (declare (not safe)) - (##car _%e3115531182%_)))) - (if (gx#stx-null? _%tl3115331189%_) - (_%__kont3866738668%_ - _%hd3115431186%_) - (let () - (declare (not safe)) - (_%g3113831161%_))))) - (let () - (declare (not safe)) - (_%g3113831161%_))) - (let () - (declare (not safe)) - (_%g3113831161%_))))) - (let () (declare (not safe)) (_%g3113831161%_))))) - (let () (declare (not safe)) (_%g3113831161%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3889938900%_ - (lambda (_%L31074%_ _%L31076%_) - (let ((__tmp40059 - (gx#stx-e _%L31076%_))) - (declare (not safe)) - (_%generate-struct29286%_ - __tmp40059 - _%tgt30528%_ - _%L31074%_ - _%K30531%_ - _%E30532%_)))) - (_%__kont3890138902%_ - (lambda (_%L31015%_ _%L31017%_) - (let ((__tmp40060 - (gx#stx-e _%L31017%_))) - (declare (not safe)) - (_%generate-class29289%_ - __tmp40060 - _%tgt30528%_ - _%L31015%_ - _%K30531%_ - _%E30532%_)))) - (_%__kont3890338904%_ - (lambda (_%L30912%_) - (let* ((_%g3092630934%_ - (lambda (_%g3092730930%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3092730930%_))) - (_%g3092530953%_ - (lambda (_%g3092730938%_) - ((lambda (_%L30941%_) - (let () - (cons 'if + (cons _%K30442%_ (cons _%E30443%_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont3880238803%_ + (lambda (_%L31510%_ _%L31512%_) + (_%generate-splice29194%_ + _%tgt30439%_ + _%L31512%_ + _%L31510%_ + _%K30442%_ + _%E30443%_))) + (_%__kont3880438805%_ + (lambda (_%L31424%_) + (let* ((_%g3143831446%_ + (lambda (_%g3143931442%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3143931442%_))) + (_%g3143731465%_ + (lambda (_%g3143931450%_) + ((lambda (_%L31453%_) + (cons 'if + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L30941%_ - (cons _%L30549%_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L30912%_ '())) - '()))) - (cons _%K30531%_ (cons _%E30532%_ '())))))) - _%g3092730938%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp40061 - (let ((_%e30957%_ - (gx#stx-e - _%L30912%_))) - (if (or (let () + '#f + '##box?) + (cons _%L30460%_ '())) + (cons (cons 'let + (cons (cons (cons _%L31453%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (symbol? _%e30957%_)) - (let () (declare (not safe)) (keyword? _%e30957%_)) - (immediate? _%e30957%_)) - (let () '##eq?) - (if (let () (declare (not safe)) (number? _%e30957%_)) - (let () 'eqv?) - (let () 'equal?)))))) + '#f + '##unbox) + (cons _%L30460%_ '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g3092530953%_ __tmp40061)))) - (_%__kont3890538906%_ - (lambda (_%L30832%_ _%L30834%_) - (let* ((_%g3085030858%_ - (lambda (_%g3085130854%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3085130854%_))) - (_%g3084930877%_ - (lambda (_%g3085130862%_) - ((lambda (_%L30865%_) - (let () - (cons 'let + '()) + (cons (_%generate129192%_ + _%L31453%_ + _%L31424%_ + _%K30442%_ + _%E30443%_) + '()))) + (cons _%E30443%_ '()))))) + _%g3143931450%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g3143731465%_ + (gx#genident 'e))))) + (_%__kont3880638807%_ + (lambda (_%L31229%_) + (let* ((_%__stx3862338624%_ + _%L31229%_) + (_%g3124431267%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx3862338624%_)))) + (let ((_%__kont3862638627%_ + (lambda (_%L31344%_) + (let* ((_%g3135831366%_ + (lambda (_%g3135931362%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3135931362%_))) + (_%g3135731385%_ + (lambda (_%g3135931370%_) + ((lambda (_%L31373%_) + (cons 'if + (cons (cons (gx#datum->syntax '#f '##fx=) + (cons (cons (gx#datum->syntax + '#f + 'values-count) + (cons _%L30460%_ + '())) + (cons _%L31373%_ '()))) + (cons (_%generate-simple-vector29195%_ + _%tgt30439%_ + _%L31344%_ + '0 + _%K30442%_ + _%E30443%_) + (cons _%E30443%_ '()))))) + _%g3135931370%_)))) + (_%g3135731385%_ (gx#stx-length _%L31344%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont3862838629%_ + (lambda (_%L31298%_) + (_%generate-list-vector29196%_ + _%tgt30439%_ + _%L31298%_ + 'values->list + _%K30442%_ + _%E30443%_)))) + (if (gx#stx-pair? + _%__stx3862338624%_) + (let ((_%e3124931320%_ + (gx#syntax-e + _%__stx3862338624%_))) + (let ((_%tl3124731327%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _%L30865%_ - (cons (cons _%L30834%_ - (cons _%L30549%_ '())) - '())) - '()) - (cons (let () + (not safe)) + (##cdr _%e3124931320%_))) + (_%hd3124831324%_ + (let () (declare (not safe)) (##car _%e3124931320%_)))) + (if (gx#stx-datum? _%hd3124831324%_) + (let ((_%e3125031330%_ (gx#stx-e _%hd3124831324%_))) + (if (equal? _%e3125031330%_ 'simple:) + (if (gx#stx-pair? _%tl3124731327%_) + (let ((_%e3125331334%_ + (gx#syntax-e _%tl3124731327%_))) + (let ((_%tl3125131341%_ + (let () (declare (not safe)) - (_%generate129281%_ - _%L30865%_ - _%L30832%_ - _%K30531%_ - _%E30532%_)) - '()))))) - _%g3085130862%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp40062 - (gx#genident 'e))) - (declare (not safe)) - (_%g3084930877%_ __tmp40062)))) - (_%__kont3890738908%_ - (lambda (_%L30774%_) - (cons 'let - (cons (cons (cons _%L30774%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L30549%_ '())) - '()) - (cons _%K30531%_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3890938910%_ - (lambda () _%K30531%_))) - (if (gx#stx-pair? _%__stx3887638877%_) - (let ((_%e3058232016%_ - (gx#syntax-e - _%__stx3887638877%_))) - (let ((_%tl3058032023%_ - (let () - (declare (not safe)) - (##cdr _%e3058232016%_))) - (_%hd3058132020%_ - (let () - (declare (not safe)) - (##car _%e3058232016%_)))) - (if (gx#stx-datum? - _%hd3058132020%_) - (let ((_%e3058332026%_ - (gx#stx-e - _%hd3058132020%_))) - (if (equal? _%e3058332026%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '?:) - (if (gx#stx-pair? _%tl3058032023%_) - (let ((_%e3058632030%_ (gx#syntax-e _%tl3058032023%_))) - (let ((_%tl3058432037%_ - (let () - (declare (not safe)) - (##cdr _%e3058632030%_))) - (_%hd3058532034%_ - (let () - (declare (not safe)) - (##car _%e3058632030%_)))) - (_%__kont3887938880%_ - _%tl3058432037%_ - _%hd3058532034%_))) - (let () (declare (not safe)) (_%g3057630718%_))) - (if (equal? _%e3058332026%_ 'and:) - (_%__kont3888138882%_ _%tl3058032023%_) - (if (equal? _%e3058332026%_ 'or:) - (_%__kont3888338884%_ _%tl3058032023%_) - (if (equal? _%e3058332026%_ 'not:) - (if (gx#stx-pair? _%tl3058032023%_) - (let ((_%e3060431799%_ - (gx#syntax-e _%tl3058032023%_))) - (let ((_%tl3060231806%_ - (let () - (declare (not safe)) - (##cdr _%e3060431799%_))) - (_%hd3060331803%_ - (let () - (declare (not safe)) - (##car _%e3060431799%_)))) - (if (gx#stx-null? _%tl3060231806%_) - (_%__kont3888538886%_ - _%hd3060331803%_) - (let () - (declare (not safe)) - (_%g3057630718%_))))) - (let () - (declare (not safe)) - (_%g3057630718%_))) - (if (equal? _%e3058332026%_ 'cons:) - (if (gx#stx-pair? _%tl3058032023%_) - (let ((_%e3061331663%_ - (gx#syntax-e _%tl3058032023%_))) - (let ((_%tl3061131670%_ - (let () - (declare (not safe)) - (##cdr _%e3061331663%_))) - (_%hd3061231667%_ - (let () - (declare (not safe)) - (##car _%e3061331663%_)))) - (if (gx#stx-pair? _%tl3061131670%_) - (let ((_%e3061631673%_ - (gx#syntax-e - _%tl3061131670%_))) - (let ((_%tl3061431680%_ - (let () - (declare (not safe)) - (##cdr _%e3061631673%_))) - (_%hd3061531677%_ - (let () - (declare (not safe)) - (##car _%e3061631673%_)))) - (if (gx#stx-null? - _%tl3061431680%_) - (_%__kont3888738888%_ - _%hd3061531677%_ - _%hd3061231667%_) - (let () - (declare (not safe)) - (_%g3057630718%_))))) - (let () - (declare (not safe)) - (_%g3057630718%_))))) - (let () - (declare (not safe)) - (_%g3057630718%_))) - (if (equal? _%e3058332026%_ 'null:) - (if (gx#stx-null? _%tl3058032023%_) - (_%__kont3888938890%_) - (let () - (declare (not safe)) - (_%g3057630718%_))) - (if (equal? _%e3058332026%_ 'splice:) - (if (gx#stx-pair? _%tl3058032023%_) - (let ((_%e3062931579%_ - (gx#syntax-e - _%tl3058032023%_))) - (let ((_%tl3062731586%_ - (let () - (declare (not safe)) - (##cdr _%e3062931579%_))) - (_%hd3062831583%_ - (let () - (declare (not safe)) - (##car _%e3062931579%_)))) - (if (gx#stx-pair? - _%tl3062731586%_) - (let ((_%e3063231589%_ - (gx#syntax-e - _%tl3062731586%_))) - (let ((_%tl3063031596%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##cdr _%e3063231589%_))) - (_%hd3063131593%_ - (let () (declare (not safe)) (##car _%e3063231589%_)))) - (if (gx#stx-null? _%tl3063031596%_) - (_%__kont3889138892%_ _%hd3063131593%_ _%hd3062831583%_) - (let () (declare (not safe)) (_%g3057630718%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g3057630718%_))))) - (let () - (declare (not safe)) - (_%g3057630718%_))) - (if (equal? _%e3058332026%_ 'box:) - (if (gx#stx-pair? - _%tl3058032023%_) - (let ((_%e3064031503%_ - (gx#syntax-e - _%tl3058032023%_))) - (let ((_%tl3063831510%_ - (let () - (declare - (not safe)) - (##cdr _%e3064031503%_))) - (_%hd3063931507%_ - (let () - (declare - (not safe)) - (##car _%e3064031503%_)))) - (if (gx#stx-null? - _%tl3063831510%_) - (_%__kont3889338894%_ - _%hd3063931507%_) - (let () - (declare (not safe)) - (_%g3057630718%_))))) - (let () - (declare (not safe)) - (_%g3057630718%_))) - (if (equal? _%e3058332026%_ - 'values:) - (if (gx#stx-pair? - _%tl3058032023%_) - (let ((_%e3064831308%_ - (gx#syntax-e - _%tl3058032023%_))) - (let ((_%tl3064631315%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##cdr _%e3064831308%_))) - (_%hd3064731312%_ - (let () (declare (not safe)) (##car _%e3064831308%_)))) - (if (gx#stx-null? _%tl3064631315%_) - (_%__kont3889538896%_ _%hd3064731312%_) - (let () (declare (not safe)) (_%g3057630718%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g3057630718%_))) - (if (equal? _%e3058332026%_ - 'vector:) - (if (gx#stx-pair? - _%tl3058032023%_) - (let ((_%e3065631113%_ - (gx#syntax-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl3058032023%_))) - (let ((_%tl3065431120%_ - (let () - (declare (not safe)) - (##cdr _%e3065631113%_))) - (_%hd3065531117%_ - (let () - (declare (not safe)) - (##car _%e3065631113%_)))) - (if (gx#stx-null? _%tl3065431120%_) - (_%__kont3889738898%_ _%hd3065531117%_) - (let () (declare (not safe)) (_%g3057630718%_))))) - (let () (declare (not safe)) (_%g3057630718%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e3058332026%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - 'struct:) - (if (gx#stx-pair? _%tl3058032023%_) - (let ((_%e3066531054%_ (gx#syntax-e _%tl3058032023%_))) - (let ((_%tl3066331061%_ - (let () - (declare (not safe)) - (##cdr _%e3066531054%_))) - (_%hd3066431058%_ - (let () - (declare (not safe)) - (##car _%e3066531054%_)))) - (if (gx#stx-pair? _%tl3066331061%_) - (let ((_%e3066831064%_ - (gx#syntax-e _%tl3066331061%_))) - (let ((_%tl3066631071%_ - (let () - (declare (not safe)) - (##cdr _%e3066831064%_))) - (_%hd3066731068%_ - (let () - (declare (not safe)) - (##car _%e3066831064%_)))) - (if (gx#stx-null? _%tl3066631071%_) - (_%__kont3889938900%_ - _%hd3066731068%_ - _%hd3066431058%_) - (let () - (declare (not safe)) - (_%g3057630718%_))))) - (let () (declare (not safe)) (_%g3057630718%_))))) - (let () (declare (not safe)) (_%g3057630718%_))) - (if (equal? _%e3058332026%_ 'class:) - (if (gx#stx-pair? _%tl3058032023%_) - (let ((_%e3067730995%_ - (gx#syntax-e _%tl3058032023%_))) - (let ((_%tl3067531002%_ - (let () - (declare (not safe)) - (##cdr _%e3067730995%_))) - (_%hd3067630999%_ - (let () - (declare (not safe)) - (##car _%e3067730995%_)))) - (if (gx#stx-pair? _%tl3067531002%_) - (let ((_%e3068031005%_ - (gx#syntax-e _%tl3067531002%_))) - (let ((_%tl3067831012%_ - (let () - (declare (not safe)) - (##cdr _%e3068031005%_))) - (_%hd3067931009%_ - (let () - (declare (not safe)) - (##car _%e3068031005%_)))) - (if (gx#stx-null? _%tl3067831012%_) - (_%__kont3890138902%_ - _%hd3067931009%_ - _%hd3067630999%_) - (let () - (declare (not safe)) - (_%g3057630718%_))))) - (let () - (declare (not safe)) - (_%g3057630718%_))))) - (let () (declare (not safe)) (_%g3057630718%_))) - (if (equal? _%e3058332026%_ 'datum:) - (if (gx#stx-pair? _%tl3058032023%_) - (let ((_%e3068830902%_ - (gx#syntax-e _%tl3058032023%_))) - (let ((_%tl3068630909%_ - (let () - (declare (not safe)) - (##cdr _%e3068830902%_))) - (_%hd3068730906%_ + (##cdr _%e3125331334%_))) + (_%hd3125231338%_ + (let () + (declare (not safe)) + (##car _%e3125331334%_)))) + (if (gx#stx-null? _%tl3125131341%_) + (_%__kont3862638627%_ _%hd3125231338%_) (let () (declare (not safe)) - (##car _%e3068830902%_)))) - (if (gx#stx-null? _%tl3068630909%_) - (_%__kont3890338904%_ _%hd3068730906%_) - (let () - (declare (not safe)) - (_%g3057630718%_))))) - (let () (declare (not safe)) (_%g3057630718%_))) - (if (equal? _%e3058332026%_ 'apply:) - (if (gx#stx-pair? _%tl3058032023%_) - (let ((_%e3069730812%_ - (gx#syntax-e _%tl3058032023%_))) - (let ((_%tl3069530819%_ + (_%g3124431267%_))))) + (let () (declare (not safe)) (_%g3124431267%_))) + (if (equal? _%e3125031330%_ 'list:) + (if (gx#stx-pair? _%tl3124731327%_) + (let ((_%e3126131288%_ + (gx#syntax-e _%tl3124731327%_))) + (let ((_%tl3125931295%_ + (let () + (declare (not safe)) + (##cdr _%e3126131288%_))) + (_%hd3126031292%_ + (let () + (declare (not safe)) + (##car _%e3126131288%_)))) + (if (gx#stx-null? _%tl3125931295%_) + (_%__kont3862838629%_ + _%hd3126031292%_) (let () (declare (not safe)) - (##cdr _%e3069730812%_))) - (_%hd3069630816%_ + (_%g3124431267%_))))) + (let () + (declare (not safe)) + (_%g3124431267%_))) + (let () + (declare (not safe)) + (_%g3124431267%_))))) + (let () (declare (not safe)) (_%g3124431267%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_%g3124431267%_))))))) + (_%__kont3880838809%_ + (lambda (_%L31034%_) + (let* ((_%__stx3857338574%_ + _%L31034%_) + (_%g3104931072%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx3857338574%_)))) + (let ((_%__kont3857638577%_ + (lambda (_%L31149%_) + (let* ((_%g3116331171%_ + (lambda (_%g3116431167%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3116431167%_))) + (_%g3116231190%_ + (lambda (_%g3116431175%_) + ((lambda (_%L31178%_) + (cons 'if + (cons (cons (gx#datum->syntax '#f '##vector?) + (cons _%L30460%_ '())) + (cons (cons 'if + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '##fx=) + (cons (cons (gx#datum->syntax '#f '##vector-length) + (cons _%L30460%_ '())) + (cons _%L31178%_ '()))) + (cons (_%generate-simple-vector29195%_ + _%tgt30439%_ + _%L31149%_ + '0 + _%K30442%_ + _%E30443%_) + (cons _%E30443%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%E30443%_ '()))))) + _%g3116431175%_)))) + (_%g3116231190%_ (gx#stx-length _%L31149%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont3857838579%_ + (lambda (_%L31103%_) + (cons 'if + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '##vector?) + (cons _%L30460%_ '())) + (cons (_%generate-list-vector29196%_ + _%tgt30439%_ + _%L31103%_ + 'vector->list + _%K30442%_ + _%E30443%_) + (cons _%E30443%_ '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? + _%__stx3857338574%_) + (let ((_%e3105431125%_ + (gx#syntax-e + _%__stx3857338574%_))) + (let ((_%tl3105231132%_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _%e3105431125%_))) + (_%hd3105331129%_ + (let () (declare (not safe)) (##car _%e3105431125%_)))) + (if (gx#stx-datum? _%hd3105331129%_) + (let ((_%e3105531135%_ (gx#stx-e _%hd3105331129%_))) + (if (equal? _%e3105531135%_ 'simple:) + (if (gx#stx-pair? _%tl3105231132%_) + (let ((_%e3105831139%_ + (gx#syntax-e _%tl3105231132%_))) + (let ((_%tl3105631146%_ + (let () + (declare (not safe)) + (##cdr _%e3105831139%_))) + (_%hd3105731143%_ + (let () + (declare (not safe)) + (##car _%e3105831139%_)))) + (if (gx#stx-null? _%tl3105631146%_) + (_%__kont3857638577%_ _%hd3105731143%_) + (let () + (declare (not safe)) + (_%g3104931072%_))))) + (let () (declare (not safe)) (_%g3104931072%_))) + (if (equal? _%e3105531135%_ 'list:) + (if (gx#stx-pair? _%tl3105231132%_) + (let ((_%e3106631093%_ + (gx#syntax-e _%tl3105231132%_))) + (let ((_%tl3106431100%_ + (let () + (declare (not safe)) + (##cdr _%e3106631093%_))) + (_%hd3106531097%_ + (let () + (declare (not safe)) + (##car _%e3106631093%_)))) + (if (gx#stx-null? _%tl3106431100%_) + (_%__kont3857838579%_ + _%hd3106531097%_) (let () (declare (not safe)) - (##car _%e3069730812%_)))) - (if (gx#stx-pair? _%tl3069530819%_) - (let ((_%e3070030822%_ + (_%g3104931072%_))))) + (let () + (declare (not safe)) + (_%g3104931072%_))) + (let () + (declare (not safe)) + (_%g3104931072%_))))) + (let () (declare (not safe)) (_%g3104931072%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_%g3104931072%_))))))) + (_%__kont3881038811%_ + (lambda (_%L30985%_ _%L30987%_) + (_%generate-struct29197%_ + (gx#stx-e _%L30987%_) + _%tgt30439%_ + _%L30985%_ + _%K30442%_ + _%E30443%_))) + (_%__kont3881238813%_ + (lambda (_%L30926%_ _%L30928%_) + (_%generate-class29200%_ + (gx#stx-e _%L30928%_) + _%tgt30439%_ + _%L30926%_ + _%K30442%_ + _%E30443%_))) + (_%__kont3881438815%_ + (lambda (_%L30823%_) + (let* ((_%g3083730845%_ + (lambda (_%g3083830841%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3083830841%_))) + (_%g3083630864%_ + (lambda (_%g3083830849%_) + ((lambda (_%L30852%_) + (cons 'if + (cons (cons _%L30852%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L30460%_ + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%L30823%_ '())) + '()))) + (cons _%K30442%_ (cons _%E30443%_ '()))))) + _%g3083830849%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g3083630864%_ + (let ((_%e30868%_ + (gx#stx-e _%L30823%_))) + (if (or (symbol? _%e30868%_) + (keyword? _%e30868%_) + (immediate? + _%e30868%_)) + '##eq? + (if (number? _%e30868%_) + 'eqv? + 'equal?))))))) + (_%__kont3881638817%_ + (lambda (_%L30743%_ _%L30745%_) + (let* ((_%g3076130769%_ + (lambda (_%g3076230765%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3076230765%_))) + (_%g3076030788%_ + (lambda (_%g3076230773%_) + ((lambda (_%L30776%_) + (cons 'let + (cons (cons (cons _%L30776%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons _%L30745%_ + (cons _%L30460%_ '())) + '())) + '()) + (cons (_%generate129192%_ + _%L30776%_ + _%L30743%_ + _%K30442%_ + _%E30443%_) + '())))) + _%g3076230773%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g3076030788%_ + (gx#genident 'e))))) + (_%__kont3881838819%_ + (lambda (_%L30685%_) + (cons 'let + (cons (cons (cons _%L30685%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L30460%_ '())) + '()) + (cons _%K30442%_ '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont3882038821%_ + (lambda () _%K30442%_))) + (if (gx#stx-pair? _%__stx3878738788%_) + (let ((_%e3049331927%_ (gx#syntax-e - _%tl3069530819%_))) - (let ((_%tl3069830829%_ + _%__stx3878738788%_))) + (let ((_%tl3049131934%_ (let () (declare (not safe)) - (##cdr _%e3070030822%_))) - (_%hd3069930826%_ + (##cdr _%e3049331927%_))) + (_%hd3049231931%_ (let () (declare (not safe)) - (##car _%e3070030822%_)))) - (if (gx#stx-null? - _%tl3069830829%_) - (_%__kont3890538906%_ - _%hd3069930826%_ - _%hd3069630816%_) - (let () - (declare (not safe)) - (_%g3057630718%_))))) - (let () - (declare (not safe)) - (_%g3057630718%_))))) - (let () - (declare (not safe)) - (_%g3057630718%_))) - (if (equal? _%e3058332026%_ 'var:) - (if (gx#stx-pair? _%tl3058032023%_) - (let ((_%e3070830764%_ - (gx#syntax-e _%tl3058032023%_))) - (let ((_%tl3070630771%_ - (let () - (declare (not safe)) - (##cdr _%e3070830764%_))) - (_%hd3070730768%_ - (let () - (declare (not safe)) - (##car _%e3070830764%_)))) - (if (gx#stx-null? _%tl3070630771%_) - (_%__kont3890738908%_ - _%hd3070730768%_) - (let () - (declare (not safe)) - (_%g3057630718%_))))) - (let () - (declare (not safe)) - (_%g3057630718%_))) - (if (equal? _%e3058332026%_ 'any:) - (if (gx#stx-null? _%tl3058032023%_) - (_%__kont3890938910%_) - (let () - (declare (not safe)) - (_%g3057630718%_))) - (let () - (declare (not safe)) - (_%g3057630718%_))))))))))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (##car _%e3049331927%_)))) + (if (gx#stx-datum? + _%hd3049231931%_) + (let ((_%e3049431937%_ + (gx#stx-e + _%hd3049231931%_))) + (if (equal? _%e3049431937%_ + '?:) + (if (gx#stx-pair? + _%tl3049131934%_) + (let ((_%e3049731941%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%tl3049131934%_))) + (let ((_%tl3049531948%_ + (let () + (declare (not safe)) + (##cdr _%e3049731941%_))) + (_%hd3049631945%_ + (let () + (declare (not safe)) + (##car _%e3049731941%_)))) + (_%__kont3879038791%_ + _%tl3049531948%_ + _%hd3049631945%_))) + (let () (declare (not safe)) (_%g3048730629%_))) + (if (equal? _%e3049431937%_ 'and:) + (_%__kont3879238793%_ _%tl3049131934%_) + (if (equal? _%e3049431937%_ 'or:) + (_%__kont3879438795%_ _%tl3049131934%_) + (if (equal? _%e3049431937%_ 'not:) + (if (gx#stx-pair? _%tl3049131934%_) + (let ((_%e3051531710%_ + (gx#syntax-e _%tl3049131934%_))) + (let ((_%tl3051331717%_ + (let () + (declare (not safe)) + (##cdr _%e3051531710%_))) + (_%hd3051431714%_ + (let () + (declare (not safe)) + (##car _%e3051531710%_)))) + (if (gx#stx-null? _%tl3051331717%_) + (_%__kont3879638797%_ _%hd3051431714%_) + (let () + (declare (not safe)) + (_%g3048730629%_))))) + (let () (declare (not safe)) (_%g3048730629%_))) + (if (equal? _%e3049431937%_ 'cons:) + (if (gx#stx-pair? _%tl3049131934%_) + (let ((_%e3052431574%_ + (gx#syntax-e _%tl3049131934%_))) + (let ((_%tl3052231581%_ + (let () + (declare (not safe)) + (##cdr _%e3052431574%_))) + (_%hd3052331578%_ + (let () + (declare (not safe)) + (##car _%e3052431574%_)))) + (if (gx#stx-pair? _%tl3052231581%_) + (let ((_%e3052731584%_ + (gx#syntax-e + _%tl3052231581%_))) + (let ((_%tl3052531591%_ + (let () + (declare (not safe)) + (##cdr _%e3052731584%_))) + (_%hd3052631588%_ + (let () + (declare (not safe)) + (##car _%e3052731584%_)))) + (if (gx#stx-null? + _%tl3052531591%_) + (_%__kont3879838799%_ + _%hd3052631588%_ + _%hd3052331578%_) + (let () + (declare (not safe)) + (_%g3048730629%_))))) + (let () + (declare (not safe)) + (_%g3048730629%_))))) + (let () + (declare (not safe)) + (_%g3048730629%_))) + (if (equal? _%e3049431937%_ 'null:) + (if (gx#stx-null? _%tl3049131934%_) + (_%__kont3880038801%_) + (let () + (declare (not safe)) + (_%g3048730629%_))) + (if (equal? _%e3049431937%_ 'splice:) + (if (gx#stx-pair? _%tl3049131934%_) + (let ((_%e3054031490%_ + (gx#syntax-e + _%tl3049131934%_))) + (let ((_%tl3053831497%_ + (let () + (declare (not safe)) + (##cdr _%e3054031490%_))) + (_%hd3053931494%_ + (let () + (declare (not safe)) + (##car _%e3054031490%_)))) + (if (gx#stx-pair? + _%tl3053831497%_) + (let ((_%e3054331500%_ + (gx#syntax-e + _%tl3053831497%_))) + (let ((_%tl3054131507%_ + (let () + (declare + (not safe)) + (##cdr _%e3054331500%_))) + (_%hd3054231504%_ + (let () + (declare + (not safe)) + (##car _%e3054331500%_)))) + (if (gx#stx-null? + _%tl3054131507%_) + (_%__kont3880238803%_ + _%hd3054231504%_ + _%hd3053931494%_) + (let () + (declare + (not safe)) + (_%g3048730629%_))))) + (let () + (declare (not safe)) + (_%g3048730629%_))))) + (let () + (declare (not safe)) + (_%g3048730629%_))) + (if (equal? _%e3049431937%_ 'box:) + (if (gx#stx-pair? _%tl3049131934%_) + (let ((_%e3055131414%_ + (gx#syntax-e + _%tl3049131934%_))) + (let ((_%tl3054931421%_ + (let () + (declare (not safe)) + (##cdr _%e3055131414%_))) + (_%hd3055031418%_ + (let () + (declare (not safe)) + (##car _%e3055131414%_)))) + (if (gx#stx-null? + _%tl3054931421%_) + (_%__kont3880438805%_ + _%hd3055031418%_) + (let () + (declare (not safe)) + (_%g3048730629%_))))) + (let () + (declare (not safe)) + (_%g3048730629%_))) + (if (equal? _%e3049431937%_ + 'values:) + (if (gx#stx-pair? + _%tl3049131934%_) + (let ((_%e3055931219%_ + (gx#syntax-e + _%tl3049131934%_))) + (let ((_%tl3055731226%_ + (let () + (declare + (not safe)) + (##cdr _%e3055931219%_))) + (_%hd3055831223%_ + (let () + (declare + (not safe)) + (##car _%e3055931219%_)))) + (if (gx#stx-null? + _%tl3055731226%_) + (_%__kont3880638807%_ + _%hd3055831223%_) + (let () + (declare + (not safe)) + (_%g3048730629%_))))) (let () (declare (not safe)) - (_%g3057630718%_))))) + (_%g3048730629%_))) + (if (equal? _%e3049431937%_ + 'vector:) + (if (gx#stx-pair? + _%tl3049131934%_) + (let ((_%e3056731024%_ + (gx#syntax-e + _%tl3049131934%_))) + (let ((_%tl3056531031%_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##cdr _%e3056731024%_))) + (_%hd3056631028%_ + (let () (declare (not safe)) (##car _%e3056731024%_)))) + (if (gx#stx-null? _%tl3056531031%_) + (_%__kont3880838809%_ _%hd3056631028%_) + (let () (declare (not safe)) (_%g3048730629%_))))) + (let () (declare (not safe)) (_%g3048730629%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (equal? _%e3049431937%_ + 'struct:) + (if (gx#stx-pair? + _%tl3049131934%_) + (let ((_%e3057630965%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%tl3049131934%_))) + (let ((_%tl3057430972%_ + (let () + (declare (not safe)) + (##cdr _%e3057630965%_))) + (_%hd3057530969%_ + (let () + (declare (not safe)) + (##car _%e3057630965%_)))) + (if (gx#stx-pair? _%tl3057430972%_) + (let ((_%e3057930975%_ + (gx#syntax-e _%tl3057430972%_))) + (let ((_%tl3057730982%_ + (let () + (declare (not safe)) + (##cdr _%e3057930975%_))) + (_%hd3057830979%_ + (let () + (declare (not safe)) + (##car _%e3057930975%_)))) + (if (gx#stx-null? _%tl3057730982%_) + (_%__kont3881038811%_ + _%hd3057830979%_ + _%hd3057530969%_) + (let () + (declare (not safe)) + (_%g3048730629%_))))) + (let () (declare (not safe)) (_%g3048730629%_))))) + (let () (declare (not safe)) (_%g3048730629%_))) + (if (equal? _%e3049431937%_ 'class:) + (if (gx#stx-pair? _%tl3049131934%_) + (let ((_%e3058830906%_ (gx#syntax-e _%tl3049131934%_))) + (let ((_%tl3058630913%_ + (let () + (declare (not safe)) + (##cdr _%e3058830906%_))) + (_%hd3058730910%_ + (let () + (declare (not safe)) + (##car _%e3058830906%_)))) + (if (gx#stx-pair? _%tl3058630913%_) + (let ((_%e3059130916%_ + (gx#syntax-e _%tl3058630913%_))) + (let ((_%tl3058930923%_ + (let () + (declare (not safe)) + (##cdr _%e3059130916%_))) + (_%hd3059030920%_ + (let () + (declare (not safe)) + (##car _%e3059130916%_)))) + (if (gx#stx-null? _%tl3058930923%_) + (_%__kont3881238813%_ + _%hd3059030920%_ + _%hd3058730910%_) + (let () + (declare (not safe)) + (_%g3048730629%_))))) + (let () + (declare (not safe)) + (_%g3048730629%_))))) + (let () (declare (not safe)) (_%g3048730629%_))) + (if (equal? _%e3049431937%_ 'datum:) + (if (gx#stx-pair? _%tl3049131934%_) + (let ((_%e3059930813%_ + (gx#syntax-e _%tl3049131934%_))) + (let ((_%tl3059730820%_ + (let () + (declare (not safe)) + (##cdr _%e3059930813%_))) + (_%hd3059830817%_ + (let () + (declare (not safe)) + (##car _%e3059930813%_)))) + (if (gx#stx-null? _%tl3059730820%_) + (_%__kont3881438815%_ _%hd3059830817%_) + (let () + (declare (not safe)) + (_%g3048730629%_))))) + (let () (declare (not safe)) (_%g3048730629%_))) + (if (equal? _%e3049431937%_ 'apply:) + (if (gx#stx-pair? _%tl3049131934%_) + (let ((_%e3060830723%_ + (gx#syntax-e _%tl3049131934%_))) + (let ((_%tl3060630730%_ + (let () + (declare (not safe)) + (##cdr _%e3060830723%_))) + (_%hd3060730727%_ + (let () + (declare (not safe)) + (##car _%e3060830723%_)))) + (if (gx#stx-pair? _%tl3060630730%_) + (let ((_%e3061130733%_ + (gx#syntax-e _%tl3060630730%_))) + (let ((_%tl3060930740%_ + (let () + (declare (not safe)) + (##cdr _%e3061130733%_))) + (_%hd3061030737%_ + (let () + (declare (not safe)) + (##car _%e3061130733%_)))) + (if (gx#stx-null? _%tl3060930740%_) + (_%__kont3881638817%_ + _%hd3061030737%_ + _%hd3060730727%_) + (let () + (declare (not safe)) + (_%g3048730629%_))))) + (let () + (declare (not safe)) + (_%g3048730629%_))))) + (let () (declare (not safe)) (_%g3048730629%_))) + (if (equal? _%e3049431937%_ 'var:) + (if (gx#stx-pair? _%tl3049131934%_) + (let ((_%e3061930675%_ + (gx#syntax-e _%tl3049131934%_))) + (let ((_%tl3061730682%_ + (let () + (declare (not safe)) + (##cdr _%e3061930675%_))) + (_%hd3061830679%_ + (let () + (declare (not safe)) + (##car _%e3061930675%_)))) + (if (gx#stx-null? _%tl3061730682%_) + (_%__kont3881838819%_ + _%hd3061830679%_) (let () (declare (not safe)) - (_%g3057630718%_))))))) - _%g3053530546%_)))) - (declare (not safe)) - (_%g3053332325%_ _%tgt30528%_)))) - (_%generate-splice29283%_ - (lambda (_%tgt29900%_ - _%hd29902%_ - _%rest29903%_ - _%K29904%_ - _%E29905%_) - (let* ((_%g2990729924%_ - (lambda (_%g2990829920%_) + (_%g3048730629%_))))) + (let () + (declare (not safe)) + (_%g3048730629%_))) + (if (equal? _%e3049431937%_ 'any:) + (if (gx#stx-null? _%tl3049131934%_) + (_%__kont3882038821%_) + (let () + (declare (not safe)) + (_%g3048730629%_))) + (let () + (declare (not safe)) + (_%g3048730629%_))))))))))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_%g3048730629%_))))) + (let () + (declare (not safe)) + (_%g3048730629%_)))))) + _%g3044630457%_)))) + (_%g3044432236%_ _%tgt30439%_)))) + (_%generate-splice29194%_ + (lambda (_%tgt29811%_ + _%hd29813%_ + _%rest29814%_ + _%K29815%_ + _%E29816%_) + (let* ((_%g2981829835%_ + (lambda (_%g2981929831%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2990829920%_))) - (_%g2990630524%_ - (lambda (_%g2990829928%_) - (if (gx#stx-pair/null? _%g2990829928%_) - (let ((_g40063_ + _%g2981929831%_))) + (_%g2981730435%_ + (lambda (_%g2981929839%_) + (if (gx#stx-pair/null? _%g2981929839%_) + (let ((_g39942_ (gx#syntax-split-splice - _%g2990829928%_ + _%g2981929839%_ '0))) (begin - (let ((_g40064_ + (let ((_g39943_ (let () (declare (not safe)) - (if (##values? _g40063_) - (##vector-length _g40063_) + (if (##values? _g39942_) + (##vector-length _g39942_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g40064_ 2))) + (##fx= _g39943_ 2))) (error "Context expects 2 values" - _g40064_))) - (let ((_%target2991029931%_ + _g39943_))) + (let ((_%target2982129842%_ (let () (declare (not safe)) - (##vector-ref _g40063_ 0))) - (_%tl2991229934%_ + (##vector-ref _g39942_ 0))) + (_%tl2982329845%_ (let () (declare (not safe)) - (##vector-ref _g40063_ 1)))) - (if (gx#stx-null? _%tl2991229934%_) - (letrec ((_%loop2991329937%_ - (lambda (_%hd2991129941%_ - _%var2991729944%_) + (##vector-ref _g39942_ 1)))) + (if (gx#stx-null? _%tl2982329845%_) + (letrec ((_%loop2982429848%_ + (lambda (_%hd2982229852%_ + _%var2982829855%_) (if (gx#stx-pair? - _%hd2991129941%_) - (let ((_%e2991429947%_ + _%hd2982229852%_) + (let ((_%e2982529858%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd2991129941%_))) - (let ((_%lp-hd2991529951%_ + (gx#syntax-e _%hd2982229852%_))) + (let ((_%lp-hd2982629862%_ (let () (declare (not safe)) - (##car _%e2991429947%_))) - (_%lp-tl2991629954%_ + (##car _%e2982529858%_))) + (_%lp-tl2982729865%_ (let () (declare (not safe)) - (##cdr _%e2991429947%_)))) - (let ((__tmp40065 - (cons _%lp-hd2991529951%_ _%var2991729944%_))) - (declare (not safe)) - (_%loop2991329937%_ - _%lp-tl2991629954%_ - __tmp40065)))) - (let ((_%var2991829957%_ (reverse _%var2991729944%_))) - ((lambda (_%L29961%_) - (let () - (let* ((_%g2997729994%_ - (lambda (_%g2997829990%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2997829990%_))) - (_%g2997630512%_ - (lambda (_%g2997829998%_) - (if (gx#stx-pair/null? _%g2997829998%_) - (let ((_g40066_ - (gx#syntax-split-splice - _%g2997829998%_ - '0))) - (begin - (let ((_g40067_ - (let () - (declare (not safe)) - (if (##values? _g40066_) - (##vector-length - _g40066_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g40067_ 2))) - (error "Context expects 2 values" - _g40067_))) - (let ((_%target2998030001%_ - (let () - (declare (not safe)) - (##vector-ref - _g40066_ - 0))) - (_%tl2998230004%_ - (let () - (declare (not safe)) - (##vector-ref - _g40066_ - 1)))) - (if (gx#stx-null? - _%tl2998230004%_) - (letrec ((_%loop2998330007%_ - (lambda (_%hd2998130011%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%var-r2998730014%_) - (if (gx#stx-pair? _%hd2998130011%_) - (let ((_%e2998430017%_ - (gx#syntax-e _%hd2998130011%_))) - (let ((_%lp-hd2998530021%_ - (let () - (declare (not safe)) - (##car _%e2998430017%_))) - (_%lp-tl2998630024%_ - (let () - (declare (not safe)) - (##cdr _%e2998430017%_)))) - (let ((__tmp40068 - (cons _%lp-hd2998530021%_ - _%var-r2998730014%_))) - (declare (not safe)) - (_%loop2998330007%_ - _%lp-tl2998630024%_ - __tmp40068)))) - (let ((_%var-r2998830027%_ - (reverse _%var-r2998730014%_))) - ((lambda (_%L30031%_) - (let () - (let* ((_%g3004830065%_ - (lambda (_%g3004930061%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3004930061%_))) - (_%g3004730500%_ - (lambda (_%g3004930069%_) - (if (gx#stx-pair/null? - _%g3004930069%_) - (let ((_g40069_ - (gx#syntax-split-splice - _%g3004930069%_ - '0))) - (begin - (let ((_g40070_ - (let () - (declare - (not safe)) - (if (##values? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g40069_) - (##vector-length _g40069_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g40070_ 2))) - (error "Context expects 2 values" _g40070_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target3005130072%_ - (let () - (declare - (not safe)) - (##vector-ref - _g40069_ - 0))) - (_%tl3005330075%_ - (let () + (##cdr _%e2982529858%_)))) + (_%loop2982429848%_ + _%lp-tl2982729865%_ + (cons _%lp-hd2982629862%_ _%var2982829855%_)))) + (let ((_%var2982929868%_ (reverse _%var2982829855%_))) + ((lambda (_%L29872%_) + (let* ((_%g2988829905%_ + (lambda (_%g2988929901%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2988929901%_))) + (_%g2988730423%_ + (lambda (_%g2988929909%_) + (if (gx#stx-pair/null? _%g2988929909%_) + (let ((_g39944_ + (gx#syntax-split-splice + _%g2988929909%_ + '0))) + (begin + (let ((_g39945_ + (let () + (declare (not safe)) + (if (##values? _g39944_) + (##vector-length + _g39944_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g39945_ 2))) + (error "Context expects 2 values" + _g39945_))) + (let ((_%target2989129912%_ + (let () + (declare (not safe)) + (##vector-ref _g39944_ 0))) + (_%tl2989329915%_ + (let () + (declare (not safe)) + (##vector-ref + _g39944_ + 1)))) + (if (gx#stx-null? + _%tl2989329915%_) + (letrec ((_%loop2989429918%_ + (lambda (_%hd2989229922%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%var-r2989829925%_) + (if (gx#stx-pair? _%hd2989229922%_) + (let ((_%e2989529928%_ + (gx#syntax-e _%hd2989229922%_))) + (let ((_%lp-hd2989629932%_ + (let () + (declare (not safe)) + (##car _%e2989529928%_))) + (_%lp-tl2989729935%_ + (let () + (declare (not safe)) + (##cdr _%e2989529928%_)))) + (_%loop2989429918%_ + _%lp-tl2989729935%_ + (cons _%lp-hd2989629932%_ _%var-r2989829925%_)))) + (let ((_%var-r2989929938%_ + (reverse _%var-r2989829925%_))) + ((lambda (_%L29942%_) + (let* ((_%g2995929976%_ + (lambda (_%g2996029972%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2996029972%_))) + (_%g2995830411%_ + (lambda (_%g2996029980%_) + (if (gx#stx-pair/null? _%g2996029980%_) + (let ((_g39946_ + (gx#syntax-split-splice + _%g2996029980%_ + '0))) + (begin + (let ((_g39947_ + (let () + (declare (not safe)) + (if (##values? + _g39946_) + (##vector-length + _g39946_) + 1)))) + (if (not (let () (declare (not safe)) - (##vector-ref - _g40069_ - 1)))) - (if (gx#stx-null? - _%tl3005330075%_) - (letrec ((_%loop3005430078%_ + (##fx= _g39947_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd3005230082%_ _%init3005830085%_) - (if (gx#stx-pair? _%hd3005230082%_) - (let ((_%e3005530088%_ - (gx#syntax-e _%hd3005230082%_))) - (let ((_%lp-hd3005630092%_ - (let () - (declare (not safe)) - (##car _%e3005530088%_))) - (_%lp-tl3005730095%_ - (let () - (declare (not safe)) - (##cdr _%e3005530088%_)))) - (let ((__tmp40071 - (cons _%lp-hd3005630092%_ - _%init3005830085%_))) - (declare (not safe)) - (_%loop3005430078%_ - _%lp-tl3005730095%_ - __tmp40071)))) - (let ((_%init3005930098%_ - (reverse _%init3005830085%_))) - ((lambda (_%L30102%_) + 2))) + (error "Context expects 2 values" _g39947_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%target2996229983%_ + (let () + (declare (not safe)) + (##vector-ref + _g39946_ + 0))) + (_%tl2996429986%_ + (let () + (declare (not safe)) + (##vector-ref + _g39946_ + 1)))) + (if (gx#stx-null? + _%tl2996429986%_) + (letrec ((_%loop2996529989%_ + (lambda (_%hd2996329993%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%init2996929996%_) + (if (gx#stx-pair? _%hd2996329993%_) + (let ((_%e2996629999%_ + (gx#syntax-e _%hd2996329993%_))) + (let ((_%lp-hd2996730003%_ (let () - (let* ((_%g3011930127%_ - (lambda (_%g3012030123%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3012030123%_))) - (_%g3011830496%_ - (lambda (_%g3012030131%_) - ((lambda (_%L30134%_) - (let () - (let* ((_%g3014730155%_ - (lambda (_%g3014830151%_) + (declare (not safe)) + (##car _%e2996629999%_))) + (_%lp-tl2996830006%_ + (let () + (declare (not safe)) + (##cdr _%e2996629999%_)))) + (_%loop2996529989%_ + _%lp-tl2996830006%_ + (cons _%lp-hd2996730003%_ + _%init2996929996%_)))) + (let ((_%init2997030009%_ + (reverse _%init2996929996%_))) + ((lambda (_%L30013%_) + (let* ((_%g3003030038%_ + (lambda (_%g3003130034%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3003130034%_))) + (_%g3002930407%_ + (lambda (_%g3003130042%_) + ((lambda (_%L30045%_) + (let* ((_%g3005830066%_ + (lambda (_%g3005930062%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3005930062%_))) + (_%g3005730403%_ + (lambda (_%g3005930070%_) + ((lambda (_%L30073%_) + (let* ((_%g3008630094%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g3008730090%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3008730090%_))) + (_%g3008530399%_ + (lambda (_%g3008730098%_) + ((lambda (_%L30101%_) + (let* ((_%g3011430122%_ + (lambda (_%g3011530118%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3011530118%_))) + (_%g3011330395%_ + (lambda (_%g3011530126%_) + ((lambda (_%L30129%_) + (let* ((_%g3014230150%_ + (lambda (_%g3014330146%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3014330146%_))) + (_%g3014130391%_ + (lambda (_%g3014330154%_) + ((lambda (_%L30157%_) + (let* ((_%g3017030178%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3014830151%_))) - (_%g3014630492%_ - (lambda (_%g3014830159%_) - ((lambda (_%L30162%_) - (let () - (let* ((_%g3017530183%_ - (lambda (_%g3017630179%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3017630179%_))) - (_%g3017430488%_ - (lambda (_%g3017630187%_) - ((lambda (_%L30190%_) - (let () - (let* ((_%g3020330211%_ - (lambda (_%g3020430207%_) + (lambda (_%g3017130174%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3017130174%_))) + (_%g3016930387%_ + (lambda (_%g3017130182%_) + ((lambda (_%L30185%_) + (let* ((_%g3019830206%_ + (lambda (_%g3019930202%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3019930202%_))) + (_%g3019730383%_ + (lambda (_%g3019930210%_) + ((lambda (_%L30213%_) + (let* ((_%g3022630234%_ + (lambda (_%g3022730230%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3020430207%_))) - (_%g3020230484%_ - (lambda (_%g3020430215%_) - ((lambda (_%L30218%_) - (let () - (let* ((_%g3023130239%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g3023230235%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3023230235%_))) - (_%g3023030480%_ - (lambda (_%g3023230243%_) - ((lambda (_%L30246%_) - (let () - (let* ((_%g3025930267%_ - (lambda (_%g3026030263%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3026030263%_))) - (_%g3025830476%_ - (lambda (_%g3026030271%_) - ((lambda (_%L30274%_) - (let () - (let* ((_%g3028730295%_ - (lambda (_%g3028830291%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3028830291%_))) - (_%g3028630472%_ - (lambda (_%g3028830299%_) - ((lambda (_%L30302%_) - (let () + _%g3022730230%_))) + (_%g3022530368%_ + (lambda (_%g3022730238%_) + ((lambda (_%L30241%_) + (let* ((_%g3025430262%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g3031530323%_ - (lambda (_%g3031630319%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3031630319%_))) - (_%g3031430457%_ - (lambda (_%g3031630327%_) - ((lambda (_%L30330%_) - (let () - (let* ((_%g3034330351%_ - (lambda (_%g3034430347%_) - (gx#raise-syntax-error + (lambda (_%g3025530258%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3025530258%_))) + (_%g3025330356%_ + (lambda (_%g3025530266%_) + ((lambda (_%L30269%_) + (let* ((_%g3028230290%_ + (lambda (_%g3028330286%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3028330286%_))) + (_%g3028130352%_ + (lambda (_%g3028330294%_) + ((lambda (_%L30297%_) + (cons (gx#datum->syntax '#f - '"Bad syntax; invalid match target" - _%g3034430347%_))) - (_%g3034230445%_ - (lambda (_%g3034430355%_) - ((lambda (_%L30358%_) - (let () - (let* ((_%g3037130379%_ - (lambda (_%g3037230375%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3037230375%_))) - (_%g3037030441%_ - (lambda (_%g3037230383%_) - ((lambda (_%L30386%_) - (let () - (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L30162%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'lambda) - (cons (cons _%L30274%_ - (foldr (lambda (_%g3040830411%_ - _%g3040930414%_) - (cons _%g3040830411%_ - _%g3040930414%_)) - '() - _%L29961%_)) - (cons _%L30302%_ '()))) - '())) + 'letrec) + (cons (cons (cons _%L30073%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons (gx#datum->syntax '#f 'lambda) + (cons (cons _%L30185%_ + (foldr (lambda (_%g3031930322%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g3032030325%_) + (cons _%g3031930322%_ _%g3032030325%_)) + '() + _%L29872%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%L30213%_ '()))) + '())) + (cons (cons _%L30129%_ + (cons (cons (gx#datum->syntax '#f 'lambda) + (cons (cons _%L30157%_ + (cons _%L30185%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (foldr (lambda (_%g3031730328%_ _%g3031830331%_) + (cons _%g3031730328%_ _%g3031830331%_)) + '() + _%L29942%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L30218%_ - (cons (cons (gx#datum->syntax + (cons _%L30297%_ '()))) + '())) + (cons (cons _%L30101%_ + (cons (cons (gx#datum->syntax + '#f + 'lambda) + (cons (cons _%L30185%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'lambda) - (cons (cons _%L30246%_ - (cons _%L30274%_ - (foldr (lambda (_%g3040630417%_ + (foldr (lambda (_%g3031530334%_ _%g3031630337%_) + (cons _%g3031530334%_ _%g3031630337%_)) + '() + _%L29942%_)) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax '#f 'pair?) + (cons _%L30185%_ '())) + (cons (cons _%L30129%_ + (cons (cons (gx#datum->syntax + '#f + '##car) + (cons _%L30185%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g3040730420%_) - (cons _%g3040630417%_ _%g3040730420%_)) - '() - _%L30031%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L30386%_ '()))) '())) - (cons (cons _%L30190%_ - (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L30274%_ - (foldr (lambda (_%g3040430423%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g3040530426%_) - (cons _%g3040430423%_ _%g3040530426%_)) - '() - _%L30031%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'if) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'pair?) - (cons _%L30274%_ '())) - (cons (cons _%L30218%_ - (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L30274%_ '())) - (cons _%L30274%_ - (foldr (lambda (_%g3040230429%_ - _%g3040330432%_) - (cons _%g3040230429%_ - _%g3040330432%_)) - '() - _%L30031%_)))) - (cons _%L30358%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L30190%_ - (cons _%L30134%_ - (foldr (lambda (_%g3040030435%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g3040130438%_) - (cons _%g3040030435%_ _%g3040130438%_)) + (cons _%L30185%_ + (foldr (lambda (_%g3031330340%_ _%g3031430343%_) + (cons _%g3031330340%_ _%g3031430343%_)) '() - _%L30102%_))) + _%L29942%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - _%g3037230383%_))) - (__tmp40072 - (let () - (declare (not safe)) - (_%generate129281%_ - _%L30246%_ - _%hd29902%_ - _%L30330%_ - _%L30358%_)))) - (declare (not safe)) - (_%g3037030441%_ __tmp40072)))) + (cons _%L30269%_ '())))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3034430355%_))) - (__tmp40073 - (cons _%L30162%_ - (cons _%L30274%_ - (foldr (lambda (_%g3044830451%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g3044930454%_) - (cons (cons (gx#datum->syntax '#f 'reverse) - (cons _%g3044830451%_ '())) - _%g3044930454%_)) - '() - _%L30031%_))))) + '())) + '()))) + (cons (cons _%L30101%_ + (cons _%L30045%_ + (foldr (lambda (_%g3031130346%_ + _%g3031230349%_) + (cons _%g3031130346%_ + _%g3031230349%_)) + '() + _%L30013%_))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g3028330294%_)))) + (_%g3028130352%_ + (_%generate129192%_ + _%L30157%_ + _%hd29813%_ + _%L30241%_ + _%L30269%_)))) + _%g3025530266%_)))) + (_%g3025330356%_ + (cons _%L30073%_ + (cons _%L30185%_ + (foldr (lambda (_%g3035930362%_ + _%g3036030365%_) + (cons (cons (gx#datum->syntax + '#f + 'reverse) + (cons _%g3035930362%_ + '())) + _%g3036030365%_)) + '() + _%L29942%_)))))) + _%g3022730238%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g3034230445%_ __tmp40073)))) - _%g3031630327%_))) - (__tmp40074 - (cons _%L30190%_ - (cons (cons (gx#datum->syntax - '#f - '##cdr) - (cons _%L30274%_ '())) - (begin - (gx#syntax-check-splice-targets - _%L30031%_ - _%L29961%_) - (foldr (lambda (_%g3046030464%_ - _%g3046130467%_ - _%g3046230469%_) - (cons (cons (gx#datum->syntax + (_%g3022530368%_ + (cons _%L30101%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'cons) - (cons _%g3046130467%_ (cons _%g3046030464%_ '()))) - _%g3046230469%_)) - '() - _%L30031%_ - _%L29961%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g3031430457%_ __tmp40074)))) - _%g3028830299%_))) - (__tmp40075 - (let () - (declare (not safe)) - (_%generate129281%_ - _%L30274%_ - _%rest29903%_ - _%K29904%_ - _%E29905%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g3028630472%_ - __tmp40075)))) - _%g3026030271%_))) - (__tmp40076 (gx#genident 'rest))) - (declare (not safe)) - (_%g3025830476%_ __tmp40076)))) - _%g3023230243%_))) - (__tmp40077 (gx#genident 'hd))) - (declare (not safe)) - (_%g3023030480%_ __tmp40077)))) - _%g3020430215%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp40078 - (gx#genident - 'splice-try))) - (declare (not safe)) - (_%g3020230484%_ __tmp40078)))) - _%g3017630187%_))) - (__tmp40079 (gx#genident 'splice-loop))) - (declare (not safe)) - (_%g3017430488%_ __tmp40079)))) - _%g3014830159%_))) - (__tmp40080 (gx#genident 'splice-rest))) - (declare (not safe)) - (_%g3014630492%_ __tmp40080)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3012030131%_)))) - (declare (not safe)) - (_%g3011830496%_ _%tgt29900%_)))) - _%init3005930098%_)))))) - (let () - (declare (not safe)) - (_%loop3005430078%_ _%target3005130072%_ '()))) - (let () - (declare (not safe)) - (_%g3004830065%_ _%g3004930069%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g3004830065%_ - _%g3004930069%_))))) - (__tmp40081 - (make-list - (gx#stx-length - (foldr (lambda (_%g3050330506%_ - _%g3050430509%_) - (cons _%g3050330506%_ - _%g3050430509%_)) - '() - _%L29961%_)) - (cons (gx#datum->syntax '#f '@list) - '())))) - (declare (not safe)) - (_%g3004730500%_ __tmp40081)))) - _%var-r2998830027%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop2998330007%_ - _%target2998030001%_ - '()))) - (let () - (declare (not safe)) - (_%g2997729994%_ - _%g2997829998%_)))))) - (let () - (declare (not safe)) - (_%g2997729994%_ - _%g2997829998%_))))) - (__tmp40082 - (gx#gentemps - (foldr (lambda (_%g3051530518%_ - _%g3051630521%_) - (cons _%g3051530518%_ - _%g3051630521%_)) - '() - _%L29961%_)))) - (declare (not safe)) - (_%g2997630512%_ __tmp40082)))) - _%var2991829957%_)))))) + '#f + '##cdr) + (cons _%L30185%_ '())) + (begin + (gx#syntax-check-splice-targets _%L29942%_ _%L29872%_) + (foldr (lambda (_%g3037130375%_ + _%g3037230378%_ + _%g3037330380%_) + (cons (cons (gx#datum->syntax '#f 'cons) + (cons _%g3037230378%_ + (cons _%g3037130375%_ '()))) + _%g3037330380%_)) + '() + _%L29942%_ + _%L29872%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g3019930210%_)))) + (_%g3019730383%_ + (_%generate129192%_ + _%L30185%_ + _%rest29814%_ + _%K29815%_ + _%E29816%_)))) + _%g3017130182%_)))) + (_%g3016930387%_ (gx#genident 'rest)))) + _%g3014330154%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g3014130391%_ + (gx#genident 'hd)))) + _%g3011530126%_)))) + (_%g3011330395%_ + (gx#genident 'splice-try)))) + _%g3008730098%_)))) + (_%g3008530399%_ (gx#genident 'splice-loop)))) + _%g3005930070%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g3005730403%_ + (gx#genident + 'splice-rest)))) + _%g3003130042%_)))) + (_%g3002930407%_ _%tgt29811%_))) + _%init2997030009%_)))))) + (_%loop2996529989%_ _%target2996229983%_ '())) + (_%g2995929976%_ _%g2996029980%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2995929976%_ + _%g2996029980%_))))) + (_%g2995830411%_ + (make-list + (gx#stx-length + (foldr (lambda (_%g3041430417%_ + _%g3041530420%_) + (cons _%g3041430417%_ + _%g3041530420%_)) + '() + _%L29872%_)) + (cons (gx#datum->syntax '#f '@list) '()))))) + _%var-r2989929938%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop2989429918%_ + _%target2989129912%_ + '())) + (_%g2988829905%_ + _%g2988929909%_))))) + (_%g2988829905%_ _%g2988929909%_))))) + (_%g2988730423%_ + (gx#gentemps + (foldr (lambda (_%g3042630429%_ _%g3042730432%_) + (cons _%g3042630429%_ _%g3042730432%_)) + '() + _%L29872%_))))) + _%var2982929868%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop2991329937%_ - _%target2991029931%_ - '()))) - (let () - (declare (not safe)) - (_%g2990729924%_ - _%g2990829928%_)))))) - (let () - (declare (not safe)) - (_%g2990729924%_ _%g2990829928%_))))) - (__tmp40083 - (let () - (declare (not safe)) - (|gerbil/core/match[1]#match-pattern-vars| - _%hd29902%_)))) - (declare (not safe)) - (_%g2990630524%_ __tmp40083)))) - (_%generate-simple-vector29284%_ - (lambda (_%tgt29742%_ - _%body29744%_ - _%start29745%_ - _%K29746%_ - _%E29747%_) - (let _%recur29749%_ ((_%rest29752%_ _%body29744%_) - (_%off29754%_ _%start29745%_)) - (let* ((_%__stx3923439235%_ _%rest29752%_) - (_%g2975729769%_ + (_%loop2982429848%_ + _%target2982129842%_ + '())) + (_%g2981829835%_ + _%g2981929839%_))))) + (_%g2981829835%_ _%g2981929839%_))))) + (_%g2981730435%_ + (|gerbil/core/match[1]#match-pattern-vars| + _%hd29813%_))))) + (_%generate-simple-vector29195%_ + (lambda (_%tgt29653%_ + _%body29655%_ + _%start29656%_ + _%K29657%_ + _%E29658%_) + (let _%recur29660%_ ((_%rest29663%_ _%body29655%_) + (_%off29665%_ _%start29656%_)) + (let* ((_%__stx3914539146%_ _%rest29663%_) + (_%g2966829680%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3923439235%_)))) - (let ((_%__kont3923739238%_ - (lambda (_%L29797%_ _%L29799%_) - (let* ((_%g2981429833%_ - (lambda (_%g2981529829%_) + _%__stx3914539146%_)))) + (let ((_%__kont3914839149%_ + (lambda (_%L29708%_ _%L29710%_) + (let* ((_%g2972529744%_ + (lambda (_%g2972629740%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2981529829%_))) - (_%g2981329892%_ - (lambda (_%g2981529837%_) - (if (gx#stx-pair? _%g2981529837%_) - (let ((_%e2982129840%_ + _%g2972629740%_))) + (_%g2972429803%_ + (lambda (_%g2972629748%_) + (if (gx#stx-pair? _%g2972629748%_) + (let ((_%e2973229751%_ (gx#syntax-e - _%g2981529837%_))) - (let ((_%hd2982029844%_ + _%g2972629748%_))) + (let ((_%hd2973129755%_ (let () (declare (not safe)) - (##car _%e2982129840%_))) - (_%tl2981929847%_ + (##car _%e2973229751%_))) + (_%tl2973029758%_ (let () (declare (not safe)) - (##cdr _%e2982129840%_)))) + (##cdr _%e2973229751%_)))) (if (gx#stx-pair? - _%tl2981929847%_) - (let ((_%e2982429850%_ + _%tl2973029758%_) + (let ((_%e2973529761%_ (gx#syntax-e - _%tl2981929847%_))) - (let ((_%hd2982329854%_ + _%tl2973029758%_))) + (let ((_%hd2973429765%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2982429850%_))) - (_%tl2982229857%_ - (let () (declare (not safe)) (##cdr _%e2982429850%_)))) - (if (gx#stx-pair? _%tl2982229857%_) - (let ((_%e2982729860%_ (gx#syntax-e _%tl2982229857%_))) - (let ((_%hd2982629864%_ + (##car _%e2973529761%_))) + (_%tl2973329768%_ + (let () (declare (not safe)) (##cdr _%e2973529761%_)))) + (if (gx#stx-pair? _%tl2973329768%_) + (let ((_%e2973829771%_ (gx#syntax-e _%tl2973329768%_))) + (let ((_%hd2973729775%_ (let () (declare (not safe)) - (##car _%e2982729860%_))) - (_%tl2982529867%_ + (##car _%e2973829771%_))) + (_%tl2973629778%_ (let () (declare (not safe)) - (##cdr _%e2982729860%_)))) - (if (gx#stx-null? _%tl2982529867%_) - ((lambda (_%L29870%_ _%L29872%_ _%L29873%_) - (let () - (cons 'let - (cons (cons (cons _%L29873%_ - (cons (cons (gx#datum->syntax + (##cdr _%e2973829771%_)))) + (if (gx#stx-null? _%tl2973629778%_) + ((lambda (_%L29781%_ _%L29783%_ _%L29784%_) + (cons 'let + (cons (cons (cons _%L29784%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##vector-ref) - (cons _%L29872%_ (cons _%L29870%_ '()))) - '())) - '()) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (let ((__tmp40084 - (let ((__tmp40085 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (fx1+ _%off29754%_))) - (declare (not safe)) - (_%recur29749%_ _%L29797%_ __tmp40085)))) - (declare (not safe)) - (_%generate129281%_ - _%L29873%_ - _%L29799%_ - __tmp40084 - _%E29747%_)) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2982629864%_ - _%hd2982329854%_ - _%hd2982029844%_) - (let () - (declare (not safe)) - (_%g2981429833%_ _%g2981529837%_))))) - (let () - (declare (not safe)) - (_%g2981429833%_ _%g2981529837%_))))) - (let () - (declare (not safe)) - (_%g2981429833%_ _%g2981529837%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g2981429833%_ - _%g2981529837%_))))) - (__tmp40086 - (list (gx#genident 'e) - _%tgt29742%_ - _%off29754%_))) - (declare (not safe)) - (_%g2981329892%_ __tmp40086)))) - (_%__kont3923939240%_ (lambda () _%K29746%_))) - (if (gx#stx-pair? _%__stx3923439235%_) - (let ((_%e2976329787%_ - (gx#syntax-e _%__stx3923439235%_))) - (let ((_%tl2976129794%_ + '#f + '##vector-ref) + (cons _%L29783%_ (cons _%L29781%_ '()))) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()) + (cons (_%generate129192%_ + _%L29784%_ + _%L29710%_ + (_%recur29660%_ + _%L29708%_ + (fx1+ _%off29665%_)) + _%E29658%_) + '())))) + _%hd2973729775%_ + _%hd2973429765%_ + _%hd2973129755%_) + (_%g2972529744%_ _%g2972629748%_)))) + (_%g2972529744%_ _%g2972629748%_)))) + (_%g2972529744%_ _%g2972629748%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2972529744%_ + _%g2972629748%_))))) + (_%g2972429803%_ + (list (gx#genident 'e) + _%tgt29653%_ + _%off29665%_))))) + (_%__kont3915039151%_ (lambda () _%K29657%_))) + (if (gx#stx-pair? _%__stx3914539146%_) + (let ((_%e2967429698%_ + (gx#syntax-e _%__stx3914539146%_))) + (let ((_%tl2967229705%_ (let () (declare (not safe)) - (##cdr _%e2976329787%_))) - (_%hd2976229791%_ + (##cdr _%e2967429698%_))) + (_%hd2967329702%_ (let () (declare (not safe)) - (##car _%e2976329787%_)))) - (_%__kont3923739238%_ - _%tl2976129794%_ - _%hd2976229791%_))) - (_%__kont3923939240%_))))))) - (_%generate-list-vector29285%_ - (lambda (_%tgt29634%_ - _%body29636%_ - _%->list29637%_ - _%K29638%_ - _%E29639%_) - (let* ((_%g2964129649%_ - (lambda (_%g2964229645%_) + (##car _%e2967429698%_)))) + (_%__kont3914839149%_ + _%tl2967229705%_ + _%hd2967329702%_))) + (_%__kont3915039151%_))))))) + (_%generate-list-vector29196%_ + (lambda (_%tgt29545%_ + _%body29547%_ + _%->list29548%_ + _%K29549%_ + _%E29550%_) + (let* ((_%g2955229560%_ + (lambda (_%g2955329556%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2964229645%_))) - (_%g2964029738%_ - (lambda (_%g2964229653%_) - ((lambda (_%L29656%_) - (let () - (let* ((_%g2966829676%_ - (lambda (_%g2966929672%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2966929672%_))) - (_%g2966729734%_ - (lambda (_%g2966929680%_) - ((lambda (_%L29683%_) - (let () - (let* ((_%g2969629704%_ - (lambda (_%g2969729700%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2969729700%_))) - (_%g2969529726%_ - (lambda (_%g2969729708%_) - ((lambda (_%L29711%_) - (let () + _%g2955329556%_))) + (_%g2955129649%_ + (lambda (_%g2955329564%_) + ((lambda (_%L29567%_) + (let* ((_%g2957929587%_ + (lambda (_%g2958029583%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2958029583%_))) + (_%g2957829645%_ + (lambda (_%g2958029591%_) + ((lambda (_%L29594%_) + (let* ((_%g2960729615%_ + (lambda (_%g2960829611%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2960829611%_))) + (_%g2960629637%_ + (lambda (_%g2960829619%_) + ((lambda (_%L29622%_) + (cons 'let ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'let - (cons (cons (cons _%L29656%_ - (cons _%L29711%_ '())) - '()) - (cons (let () - (declare (not safe)) - (_%generate129281%_ - _%L29656%_ - _%body29636%_ - _%K29638%_ - _%E29639%_)) - '()))))) - _%g2969729708%_))) - (__tmp40087 - (let ((_%$e29730%_ _%->list29637%_)) - (if (eq? 'values->list _%$e29730%_) - (cons (gx#datum->syntax '#f 'values->list) - (cons _%L29683%_ '())) - (if (eq? 'vector->list _%$e29730%_) - (cons (gx#datum->syntax '#f '##vector->list) - (cons _%L29683%_ '())) - (if (eq? 'struct->list _%$e29730%_) - (cons (gx#datum->syntax '#f '##cdr) - (cons (cons (gx#datum->syntax - '#f - '##structure->list) - (cons _%L29683%_ '())) - '())) - (gx#raise-syntax-error - '#f - '"Unexpected list conversion" - _%stx29274%_ - _%->list29637%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g2969529726%_ - __tmp40087)))) - _%g2966929680%_)))) - (declare (not safe)) - (_%g2966729734%_ _%tgt29634%_)))) - _%g2964229653%_))) - (__tmp40088 (gx#genident 'e))) - (declare (not safe)) - (_%g2964029738%_ __tmp40088)))) - (_%generate-struct29286%_ - (lambda (_%info29505%_ - _%tgt29507%_ - _%body29508%_ - _%K29509%_ - _%E29510%_) - (let* ((_%__stx3925039251%_ _%body29508%_) - (_%g2951329536%_ + (cons (cons (cons _%L29567%_ (cons _%L29622%_ '())) + '()) + (cons (_%generate129192%_ + _%L29567%_ + _%body29547%_ + _%K29549%_ + _%E29550%_) + '())))) + _%g2960829619%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2960629637%_ + (let ((_%$e29641%_ + _%->list29548%_)) + (if (eq? 'values->list + _%$e29641%_) + (cons (gx#datum->syntax + '#f + 'values->list) + (cons _%L29594%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + (if (eq? 'vector->list _%$e29641%_) + (cons (gx#datum->syntax '#f '##vector->list) + (cons _%L29594%_ '())) + (if (eq? 'struct->list _%$e29641%_) + (cons (gx#datum->syntax '#f '##cdr) + (cons (cons (gx#datum->syntax + '#f + '##structure->list) + (cons _%L29594%_ '())) + '())) + (gx#raise-syntax-error + '#f + '"Unexpected list conversion" + _%stx29185%_ + _%->list29548%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2958029591%_)))) + (_%g2957829645%_ _%tgt29545%_))) + _%g2955329564%_)))) + (_%g2955129649%_ (gx#genident 'e))))) + (_%generate-struct29197%_ + (lambda (_%info29416%_ + _%tgt29418%_ + _%body29419%_ + _%K29420%_ + _%E29421%_) + (let* ((_%__stx3916139162%_ _%body29419%_) + (_%g2942429447%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3925039251%_)))) - (let ((_%__kont3925339254%_ - (lambda (_%L29613%_) - (let ((_%fields29627%_ - (let () - (declare (not safe)) - (_%struct-field-accessors29288%_ - _%info29505%_)))) + _%__stx3916139162%_)))) + (let ((_%__kont3916439165%_ + (lambda (_%L29524%_) + (let ((_%fields29538%_ + (_%struct-field-accessors29199%_ + _%info29416%_))) (cons 'if - (cons (cons (let ((__obj40004 - _%info29505%_)) + (cons (cons (let ((__obj39915 + _%info29416%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj40004 + __obj39915 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj40004 + __obj39915 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj40004 + __obj39915 'predicate))) - (cons _%tgt29507%_ '())) - (cons (let () - (declare (not safe)) - (_%generate-simple-struct-body29287%_ - _%info29505%_ - _%tgt29507%_ - _%L29613%_ - _%K29509%_ - _%E29510%_)) - (cons _%E29510%_ '()))))))) - (_%__kont3925539256%_ - (lambda (_%L29567%_) + (cons _%tgt29418%_ '())) + (cons (_%generate-simple-struct-body29198%_ + _%info29416%_ + _%tgt29418%_ + _%L29524%_ + _%K29420%_ + _%E29421%_) + (cons _%E29421%_ '()))))))) + (_%__kont3916639167%_ + (lambda (_%L29478%_) (cons 'if - (cons (cons (let ((__obj40005 - _%info29505%_)) + (cons (cons (let ((__obj39916 + _%info29416%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj40005 + __obj39916 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj40005 + __obj39916 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj40005 + __obj39916 'predicate))) - (cons _%tgt29507%_ '())) - (cons (let () - (declare (not safe)) - (_%generate-list-vector29285%_ - _%tgt29507%_ - _%L29567%_ - 'struct->list - _%K29509%_ - _%E29510%_)) - (cons _%E29510%_ '()))))))) - (if (gx#stx-pair? _%__stx3925039251%_) - (let ((_%e2951829589%_ - (gx#syntax-e _%__stx3925039251%_))) - (let ((_%tl2951629596%_ + (cons _%tgt29418%_ '())) + (cons (_%generate-list-vector29196%_ + _%tgt29418%_ + _%L29478%_ + 'struct->list + _%K29420%_ + _%E29421%_) + (cons _%E29421%_ '()))))))) + (if (gx#stx-pair? _%__stx3916139162%_) + (let ((_%e2942929500%_ + (gx#syntax-e _%__stx3916139162%_))) + (let ((_%tl2942729507%_ (let () (declare (not safe)) - (##cdr _%e2951829589%_))) - (_%hd2951729593%_ + (##cdr _%e2942929500%_))) + (_%hd2942829504%_ (let () (declare (not safe)) - (##car _%e2951829589%_)))) - (if (gx#stx-datum? _%hd2951729593%_) - (let ((_%e2951929599%_ - (gx#stx-e _%hd2951729593%_))) - (if (equal? _%e2951929599%_ 'simple:) - (if (gx#stx-pair? _%tl2951629596%_) - (let ((_%e2952229603%_ + (##car _%e2942929500%_)))) + (if (gx#stx-datum? _%hd2942829504%_) + (let ((_%e2943029510%_ + (gx#stx-e _%hd2942829504%_))) + (if (equal? _%e2943029510%_ 'simple:) + (if (gx#stx-pair? _%tl2942729507%_) + (let ((_%e2943329514%_ (gx#syntax-e - _%tl2951629596%_))) - (let ((_%tl2952029610%_ + _%tl2942729507%_))) + (let ((_%tl2943129521%_ (let () (declare (not safe)) - (##cdr _%e2952229603%_))) - (_%hd2952129607%_ + (##cdr _%e2943329514%_))) + (_%hd2943229518%_ (let () (declare (not safe)) - (##car _%e2952229603%_)))) + (##car _%e2943329514%_)))) (if (gx#stx-null? - _%tl2952029610%_) - (_%__kont3925339254%_ - _%hd2952129607%_) + _%tl2943129521%_) + (_%__kont3916439165%_ + _%hd2943229518%_) (let () (declare (not safe)) - (_%g2951329536%_))))) + (_%g2942429447%_))))) (let () (declare (not safe)) - (_%g2951329536%_))) - (if (equal? _%e2951929599%_ 'list:) + (_%g2942429447%_))) + (if (equal? _%e2943029510%_ 'list:) (if (gx#stx-pair? - _%tl2951629596%_) - (let ((_%e2953029557%_ + _%tl2942729507%_) + (let ((_%e2944129468%_ (gx#syntax-e - _%tl2951629596%_))) - (let ((_%tl2952829564%_ + _%tl2942729507%_))) + (let ((_%tl2943929475%_ (let () (declare (not safe)) - (##cdr _%e2953029557%_))) - (_%hd2952929561%_ + (##cdr _%e2944129468%_))) + (_%hd2944029472%_ (let () (declare (not safe)) - (##car _%e2953029557%_)))) + (##car _%e2944129468%_)))) (if (gx#stx-null? - _%tl2952829564%_) - (_%__kont3925539256%_ - _%hd2952929561%_) + _%tl2943929475%_) + (_%__kont3916639167%_ + _%hd2944029472%_) (let () (declare (not safe)) - (_%g2951329536%_))))) + (_%g2942429447%_))))) (let () (declare (not safe)) - (_%g2951329536%_))) + (_%g2942429447%_))) (let () (declare (not safe)) - (_%g2951329536%_))))) + (_%g2942429447%_))))) (let () (declare (not safe)) - (_%g2951329536%_))))) + (_%g2942429447%_))))) (let () (declare (not safe)) - (_%g2951329536%_))))))) - (_%generate-simple-struct-body29287%_ - (lambda (_%info29425%_ - _%tgt29427%_ - _%body29428%_ - _%K29429%_ - _%E29430%_) - (let _%recur29432%_ ((_%rest29435%_ _%body29428%_) - (_%fields29437%_ - (let () - (declare (not safe)) - (_%struct-field-accessors29288%_ - _%info29425%_)))) - (let* ((_%__stx3930039301%_ _%rest29435%_) - (_%g2944029452%_ + (_%g2942429447%_))))))) + (_%generate-simple-struct-body29198%_ + (lambda (_%info29336%_ + _%tgt29338%_ + _%body29339%_ + _%K29340%_ + _%E29341%_) + (let _%recur29343%_ ((_%rest29346%_ _%body29339%_) + (_%fields29348%_ + (_%struct-field-accessors29199%_ + _%info29336%_))) + (let* ((_%__stx3921139212%_ _%rest29346%_) + (_%g2935129363%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3930039301%_)))) - (let ((_%__kont3930339304%_ - (lambda (_%L29480%_ _%L29482%_) - (if (let () - (declare (not safe)) - (null? _%fields29437%_)) + _%__stx3921139212%_)))) + (let ((_%__kont3921439215%_ + (lambda (_%L29391%_ _%L29393%_) + (if (null? _%fields29348%_) (gx#raise-syntax-error '#f '"too many parts for struct" - _%stx29274%_ - _%info29425%_ - (let ((__obj40006 _%info29425%_)) + _%stx29185%_ + _%info29336%_ + (let ((__obj39917 _%info29336%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj40006 + __obj39917 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj40006 + __obj39917 '2 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj40006 + __obj39917 'name)))) - (let ((_%$tgt29497%_ (gx#genident 'e)) - (_%getf29499%_ - (car _%fields29437%_))) + (let ((_%$tgt29408%_ (gx#genident 'e)) + (_%getf29410%_ + (car _%fields29348%_))) (cons 'let - (cons (cons (cons _%$tgt29497%_ - (cons (cons _%getf29499%_ + (cons (cons (cons _%$tgt29408%_ + (cons (cons _%getf29410%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%tgt29427%_ '())) + (cons _%tgt29338%_ '())) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (let ((__tmp40089 - (let ((__tmp40090 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _%fields29437%_))) - (declare (not safe)) - (_%recur29432%_ _%L29480%_ __tmp40090)))) - (declare (not safe)) - (_%generate129281%_ - _%$tgt29497%_ - _%L29482%_ - __tmp40089 - _%E29430%_)) - '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3930539306%_ (lambda () _%K29429%_))) - (if (gx#stx-pair? _%__stx3930039301%_) - (let ((_%e2944629470%_ - (gx#syntax-e _%__stx3930039301%_))) - (let ((_%tl2944429477%_ + (cons (_%generate129192%_ + _%$tgt29408%_ + _%L29393%_ + (_%recur29343%_ + _%L29391%_ + (cdr _%fields29348%_)) + _%E29341%_) + '()))))))) + (_%__kont3921639217%_ (lambda () _%K29340%_))) + (if (gx#stx-pair? _%__stx3921139212%_) + (let ((_%e2935729381%_ + (gx#syntax-e _%__stx3921139212%_))) + (let ((_%tl2935529388%_ (let () (declare (not safe)) - (##cdr _%e2944629470%_))) - (_%hd2944529474%_ + (##cdr _%e2935729381%_))) + (_%hd2935629385%_ (let () (declare (not safe)) - (##car _%e2944629470%_)))) - (_%__kont3930339304%_ - _%tl2944429477%_ - _%hd2944529474%_))) - (_%__kont3930539306%_))))))) - (_%struct-field-accessors29288%_ - (lambda (_%info29406%_) - (let _%recur29409%_ ((_%next29412%_ - (cons _%info29406%_ '()))) - (if (let () (declare (not safe)) (null? _%next29412%_)) + (##car _%e2935729381%_)))) + (_%__kont3921439215%_ + _%tl2935529388%_ + _%hd2935629385%_))) + (_%__kont3921639217%_))))))) + (_%struct-field-accessors29199%_ + (lambda (_%info29317%_) + (let _%recur29320%_ ((_%next29323%_ + (cons _%info29317%_ '()))) + (if (null? _%next29323%_) '() - (let ((_%ti29415%_ (car _%next29412%_))) - (let ((__tmp40092 - (let ((__tmp40093 - (map gx#syntax-local-value - (let ((__obj40007 _%ti29415%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj40007 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj40007 - '3 - '#f - '#f)) - (class-slot-ref - gerbil/core/mop~MOP-2#class-type-info::t - __obj40007 - 'super)))))) - (declare (not safe)) - (_%recur29409%_ __tmp40093))) - (__tmp40091 - (map (lambda (_%slot29418%_) - (let ((_%$e29421%_ - (assgetq _%slot29418%_ - (let ((__obj40008 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%ti29415%_)) + (let ((_%ti29326%_ (car _%next29323%_))) + (let ((__tmp39949 + (_%recur29320%_ + (map gx#syntax-local-value + (let ((__obj39918 _%ti29326%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj39918 + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj39918 + '3 + '#f + '#f)) + (class-slot-ref + gerbil/core/mop~MOP-2#class-type-info::t + __obj39918 + 'super)))))) + (__tmp39948 + (map (lambda (_%slot29329%_) + (let ((_%$e29332%_ + (assgetq _%slot29329%_ + (let ((__obj39919 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%ti29326%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj40008 + __obj39919 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj40008 '17 '#f '#f)) + (##unchecked-structure-ref __obj39919 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj40008 + __obj39919 'unchecked-accessors)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e29421%_ - _%$e29421%_ + (if _%$e29332%_ + _%$e29332%_ (gx#raise-syntax-error '#f '"no accessor for struct slot" - _%stx29274%_ - _%info29406%_ - _%slot29418%_)))) - (let ((__obj40009 _%ti29415%_)) + _%stx29185%_ + _%info29317%_ + _%slot29329%_)))) + (let ((__obj39920 _%ti29326%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj40009 + __obj39920 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj40009 + __obj39920 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj40009 + __obj39920 'slots)))))) (declare (not safe)) - (##append __tmp40092 __tmp40091))))))) - (_%generate-class29289%_ - (lambda (_%info29399%_ - _%tgt29401%_ - _%body29402%_ - _%K29403%_ - _%E29404%_) + (##append __tmp39949 __tmp39948))))))) + (_%generate-class29200%_ + (lambda (_%info29310%_ + _%tgt29312%_ + _%body29313%_ + _%K29314%_ + _%E29315%_) (cons 'if - (cons (cons (let ((__obj40010 _%info29399%_)) + (cons (cons (let ((__obj39921 _%info29310%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj40010 + __obj39921 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj40010 + __obj39921 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj40010 + __obj39921 'predicate))) - (cons _%tgt29401%_ '())) - (cons (let () - (declare (not safe)) - (_%generate-class-body29290%_ - _%info29399%_ - _%tgt29401%_ - _%body29402%_ - _%K29403%_ - _%E29404%_)) - (cons _%E29404%_ '())))))) - (_%generate-class-body29290%_ - (lambda (_%info29292%_ - _%tgt29294%_ - _%body29295%_ - _%K29296%_ - _%E29297%_) - (let _%recur29299%_ ((_%rest29302%_ _%body29295%_)) - (let* ((_%__stx3931639317%_ _%rest29302%_) - (_%g2930629322%_ + (cons _%tgt29312%_ '())) + (cons (_%generate-class-body29201%_ + _%info29310%_ + _%tgt29312%_ + _%body29313%_ + _%K29314%_ + _%E29315%_) + (cons _%E29315%_ '())))))) + (_%generate-class-body29201%_ + (lambda (_%info29203%_ + _%tgt29205%_ + _%body29206%_ + _%K29207%_ + _%E29208%_) + (let _%recur29210%_ ((_%rest29213%_ _%body29206%_)) + (let* ((_%__stx3922739228%_ _%rest29213%_) + (_%g2921729233%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3931639317%_)))) - (let ((_%__kont3931939320%_ - (lambda (_%L29360%_ _%L29362%_ _%L29363%_) - (let ((_%$e29383%_ - (assgetq (let ((__tmp40094 + _%__stx3922739228%_)))) + (let ((_%__kont3923039231%_ + (lambda (_%L29271%_ _%L29273%_ _%L29274%_) + (let ((_%$e29294%_ + (assgetq (let ((__tmp39950 (keyword->string (gx#stx-e - _%L29363%_)))) + _%L29274%_)))) (declare (not safe)) (##string->symbol - __tmp40094)) - (let ((__obj40011 - _%info29292%_)) + __tmp39950)) + (let ((__obj39922 + _%info29203%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj40011 + __obj39922 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj40011 + __obj39922 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj40011 + __obj39922 'unchecked-accessors)))))) - (if _%$e29383%_ - ((lambda (_%getf29387%_) - (let ((_%$tgt29390%_ + (if _%$e29294%_ + ((lambda (_%getf29298%_) + (let ((_%$tgt29301%_ (gx#genident 'e))) (cons 'let - (cons (cons (cons _%$tgt29390%_ + (cons (cons (cons _%$tgt29301%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%getf29387%_ (cons _%tgt29294%_ '())) + (cons (cons _%getf29298%_ (cons _%tgt29205%_ '())) '())) '()) - (cons (let ((__tmp40095 - (let () - (declare (not safe)) - (_%recur29299%_ _%L29360%_)))) - (declare (not safe)) - (_%generate129281%_ - _%$tgt29390%_ - _%L29362%_ - __tmp40095 - _%E29297%_)) + (cons (_%generate129192%_ + _%$tgt29301%_ + _%L29273%_ + (_%recur29210%_ _%L29271%_) + _%E29208%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e29383%_) - (let () - (gx#raise-syntax-error - '#f - '"no slot accessor" - _%stx29274%_ - _%info29292%_ - _%L29363%_)))))) - (_%__kont3932139322%_ (lambda () _%K29296%_))) - (if (gx#stx-pair? _%__stx3931639317%_) - (let ((_%e2931329340%_ - (gx#syntax-e _%__stx3931639317%_))) - (let ((_%tl2931129347%_ + _%$e29294%_) + (gx#raise-syntax-error + '#f + '"no slot accessor" + _%stx29185%_ + _%info29203%_ + _%L29274%_))))) + (_%__kont3923239233%_ (lambda () _%K29207%_))) + (if (gx#stx-pair? _%__stx3922739228%_) + (let ((_%e2922429251%_ + (gx#syntax-e _%__stx3922739228%_))) + (let ((_%tl2922229258%_ (let () (declare (not safe)) - (##cdr _%e2931329340%_))) - (_%hd2931229344%_ + (##cdr _%e2922429251%_))) + (_%hd2922329255%_ (let () (declare (not safe)) - (##car _%e2931329340%_)))) - (if (gx#stx-pair? _%tl2931129347%_) - (let ((_%e2931629350%_ - (gx#syntax-e _%tl2931129347%_))) - (let ((_%tl2931429357%_ + (##car _%e2922429251%_)))) + (if (gx#stx-pair? _%tl2922229258%_) + (let ((_%e2922729261%_ + (gx#syntax-e _%tl2922229258%_))) + (let ((_%tl2922529268%_ (let () (declare (not safe)) - (##cdr _%e2931629350%_))) - (_%hd2931529354%_ + (##cdr _%e2922729261%_))) + (_%hd2922629265%_ (let () (declare (not safe)) - (##car _%e2931629350%_)))) - (_%__kont3931939320%_ - _%tl2931429357%_ - _%hd2931529354%_ - _%hd2931229344%_))) - (_%__kont3932139322%_)))) - (_%__kont3932139322%_)))))))) - (let () - (declare (not safe)) - (_%generate129281%_ - _%tgt29276%_ - _%ptree29277%_ - _%K29278%_ - _%E29279%_))))) + (##car _%e2922729261%_)))) + (_%__kont3923039231%_ + _%tl2922529268%_ + _%hd2922629265%_ + _%hd2922329255%_))) + (_%__kont3923239233%_)))) + (_%__kont3923239233%_)))))))) + (_%generate129192%_ + _%tgt29187%_ + _%ptree29188%_ + _%K29189%_ + _%E29190%_)))) (define |gerbil/core/match[1]#generate-match*| - (lambda (_%stx28087%_ _%tgt-lst28089%_ _%clauses28090%_) - (letrec ((_%parse-body28092%_ - (lambda (_%hd-len29096%_) - (let _%lp29099%_ ((_%rest29102%_ _%clauses28090%_) - (_%r29104%_ '())) - (let* ((_%__stx3936639367%_ _%rest29102%_) - (_%g2910729119%_ + (lambda (_%stx27998%_ _%tgt-lst28000%_ _%clauses28001%_) + (letrec ((_%parse-body28003%_ + (lambda (_%hd-len29007%_) + (let _%lp29010%_ ((_%rest29013%_ _%clauses28001%_) + (_%r29015%_ '())) + (let* ((_%__stx3927739278%_ _%rest29013%_) + (_%g2901829030%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3936639367%_)))) - (let ((_%__kont3936939370%_ - (lambda (_%L29147%_ _%L29149%_) - (let* ((_%__stx3933839339%_ _%L29149%_) - (_%g2916629182%_ + _%__stx3927739278%_)))) + (let ((_%__kont3928039281%_ + (lambda (_%L29058%_ _%L29060%_) + (let* ((_%__stx3924939250%_ _%L29060%_) + (_%g2907729093%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3933839339%_)))) - (let ((_%__kont3934139342%_ - (lambda (_%L29251%_) - (if (gx#stx-null? _%L29147%_) + _%__stx3924939250%_)))) + (let ((_%__kont3925239253%_ + (lambda (_%L29162%_) + (if (gx#stx-null? _%L29058%_) (cons (cons (gx#genident 'else) (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'begin) - _%L29251%_) - (let ((_%$e29262%_ - (gx#stx-source _%L29149%_))) - (if _%$e29262%_ - _%$e29262%_ - (gx#stx-source _%stx28087%_)))) + _%L29162%_) + (let ((_%$e29173%_ + (gx#stx-source _%L29060%_))) + (if _%$e29173%_ + _%$e29173%_ + (gx#stx-source _%stx27998%_)))) '()))) - _%r29104%_) + _%r29015%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"bad syntax; misplaced else" - _%stx28087%_ - _%L29149%_)))) - (_%__kont3934339344%_ - (lambda (_%L29210%_ _%L29212%_) - (let ((__tmp40096 - (cons (cons (gx#genident - 'try-match) - (cons (gx#stx-map -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2922429226%_) - (let () - (declare (not safe)) - (|gerbil/core/match[1]#parse-match-pattern__%| - _%g2922429226%_ - _%stx28087%_))) - _%L29212%_) - (cons (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'begin) - _%L29210%_) - (let ((_%$e29230%_ - (gx#stx-source _%L29149%_))) - (if _%$e29230%_ - _%$e29230%_ - (gx#stx-source _%stx28087%_)))) - '()))) - _%r29104%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp29099%_ - _%L29147%_ - __tmp40096)))) - (_%__kont3934539346%_ + _%stx27998%_ + _%L29060%_)))) + (_%__kont3925439255%_ + (lambda (_%L29121%_ _%L29123%_) + (_%lp29010%_ + _%L29058%_ + (cons (cons (gx#genident + 'try-match) + (cons (gx#stx-map + (lambda (_%g2913529137%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (|gerbil/core/match[1]#parse-match-pattern__%| + _%g2913529137%_ + _%stx27998%_)) + _%L29123%_) + (cons (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'begin) _%L29121%_) + (let ((_%$e29141%_ (gx#stx-source _%L29060%_))) + (if _%$e29141%_ + _%$e29141%_ + (gx#stx-source _%stx27998%_)))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%r29015%_)))) + (_%__kont3925639257%_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" - _%stx28087%_ - _%L29149%_)))) - (let* ((_%__match3936339364%_ - (lambda (_%e2917629200%_ - _%hd2917529204%_ - _%tl2917429207%_) - (let ((_%L29210%_ - _%tl2917429207%_) - (_%L29212%_ - _%hd2917529204%_)) + _%stx27998%_ + _%L29060%_)))) + (let* ((_%__match3927439275%_ + (lambda (_%e2908729111%_ + _%hd2908629115%_ + _%tl2908529118%_) + (let ((_%L29121%_ + _%tl2908529118%_) + (_%L29123%_ + _%hd2908629115%_)) (if (and (gx#stx-list? - _%L29212%_) + _%L29123%_) (fx= (gx#stx-length - _%L29212%_) - _%hd-len29096%_) + _%L29123%_) + _%hd-len29007%_) (gx#stx-list? - _%L29210%_) - (let ((__tmp40097 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-null? _%L29210%_))) - (declare (not safe)) - (not __tmp40097))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3934339344%_ - _%L29210%_ - _%L29212%_) - (_%__kont3934539346%_))))) - (_%__match3935739358%_ - (lambda (_%e2917129241%_ - _%hd2917029245%_ - _%tl2916929248%_) - (let ((_%L29251%_ - _%tl2916929248%_)) + _%L29121%_) + (not (gx#stx-null? + _%L29121%_))) + (_%__kont3925439255%_ + _%L29121%_ + _%L29123%_) + (_%__kont3925639257%_))))) + (_%__match3926839269%_ + (lambda (_%e2908229152%_ + _%hd2908129156%_ + _%tl2908029159%_) + (let ((_%L29162%_ + _%tl2908029159%_)) (if (and (gx#stx-list? - _%L29251%_) - (let ((__tmp40098 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-null? _%L29251%_))) - (declare (not safe)) - (not __tmp40098))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3934139342%_ - _%L29251%_) - (_%__match3936339364%_ - _%e2917129241%_ - _%hd2917029245%_ - _%tl2916929248%_)))))) - (if (gx#stx-pair? _%__stx3933839339%_) - (let ((_%e2917129241%_ + _%L29162%_) + (not (gx#stx-null? + _%L29162%_))) + (_%__kont3925239253%_ + _%L29162%_) + (_%__match3927439275%_ + _%e2908229152%_ + _%hd2908129156%_ + _%tl2908029159%_)))))) + (if (gx#stx-pair? _%__stx3924939250%_) + (let ((_%e2908229152%_ (gx#syntax-e - _%__stx3933839339%_))) - (let ((_%tl2916929248%_ + _%__stx3924939250%_))) + (let ((_%tl2908029159%_ (let () (declare (not safe)) - (##cdr _%e2917129241%_))) - (_%hd2917029245%_ + (##cdr _%e2908229152%_))) + (_%hd2908129156%_ (let () (declare (not safe)) - (##car _%e2917129241%_)))) + (##car _%e2908229152%_)))) (if (gx#identifier? - _%hd2917029245%_) + _%hd2908129156%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40099_| - _%hd2917029245%_) - (_%__match3935739358%_ - _%e2917129241%_ - _%hd2917029245%_ - _%tl2916929248%_) - (_%__match3936339364%_ - _%e2917129241%_ - _%hd2917029245%_ - _%tl2916929248%_)) - (_%__match3936339364%_ - _%e2917129241%_ - _%hd2917029245%_ - _%tl2916929248%_)))) - (_%__kont3934539346%_))))))) - (_%__kont3937139372%_ (lambda () _%r29104%_))) - (if (gx#stx-pair? _%__stx3936639367%_) - (let ((_%e2911329137%_ - (gx#syntax-e _%__stx3936639367%_))) - (let ((_%tl2911129144%_ + |gerbil/core/match[1]#_g39951_| + _%hd2908129156%_) + (_%__match3926839269%_ + _%e2908229152%_ + _%hd2908129156%_ + _%tl2908029159%_) + (_%__match3927439275%_ + _%e2908229152%_ + _%hd2908129156%_ + _%tl2908029159%_)) + (_%__match3927439275%_ + _%e2908229152%_ + _%hd2908129156%_ + _%tl2908029159%_)))) + (_%__kont3925639257%_))))))) + (_%__kont3928239283%_ (lambda () _%r29015%_))) + (if (gx#stx-pair? _%__stx3927739278%_) + (let ((_%e2902429048%_ + (gx#syntax-e _%__stx3927739278%_))) + (let ((_%tl2902229055%_ (let () (declare (not safe)) - (##cdr _%e2911329137%_))) - (_%hd2911229141%_ + (##cdr _%e2902429048%_))) + (_%hd2902329052%_ (let () (declare (not safe)) - (##car _%e2911329137%_)))) - (_%__kont3936939370%_ - _%tl2911129144%_ - _%hd2911229141%_))) - (_%__kont3937139372%_))))))) - (_%generate-body28094%_ - (lambda (_%body28798%_) - (let* ((_%g2880128809%_ - (lambda (_%g2880228805%_) + (##car _%e2902429048%_)))) + (_%__kont3928039281%_ + _%tl2902229055%_ + _%hd2902329052%_))) + (_%__kont3928239283%_))))))) + (_%generate-body28005%_ + (lambda (_%body28709%_) + (let* ((_%g2871228720%_ + (lambda (_%g2871328716%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2880228805%_))) - (_%g2880029092%_ - (lambda (_%g2880228813%_) - ((lambda (_%L28816%_) - (let () - (let* ((_%g2882828845%_ - (lambda (_%g2882928841%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2882928841%_))) - (_%g2882729088%_ - (lambda (_%g2882928849%_) - (if (gx#stx-pair/null? - _%g2882928849%_) - (let ((_g40100_ - (gx#syntax-split-splice - _%g2882928849%_ - '0))) - (begin - (let ((_g40101_ - (let () - (declare - (not safe)) - (if (##values? + _%g2871328716%_))) + (_%g2871129003%_ + (lambda (_%g2871328724%_) + ((lambda (_%L28727%_) + (let* ((_%g2873928756%_ + (lambda (_%g2874028752%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2874028752%_))) + (_%g2873828999%_ + (lambda (_%g2874028760%_) + (if (gx#stx-pair/null? + _%g2874028760%_) + (let ((_g39952_ + (gx#syntax-split-splice + _%g2874028760%_ + '0))) + (begin + (let ((_g39953_ + (let () + (declare + (not safe)) + (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g40100_) - (##vector-length _g40100_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g40101_ 2))) - (error "Context expects 2 values" _g40101_))) + _g39952_) + (##vector-length _g39952_) + 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2883128852%_ - (let () - (declare - (not safe)) - (##vector-ref - _g40100_ - 0))) - (_%tl2883328855%_ - (let () - (declare - (not safe)) - (##vector-ref - _g40100_ - 1)))) - (if (gx#stx-null? - _%tl2883328855%_) - (letrec ((_%loop2883428858%_ + (if (not (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd2883228862%_ _%target2883828865%_) - (if (gx#stx-pair? _%hd2883228862%_) - (let ((_%e2883528868%_ - (gx#syntax-e _%hd2883228862%_))) - (let ((_%lp-hd2883628872%_ - (let () - (declare (not safe)) - (##car _%e2883528868%_))) - (_%lp-tl2883728875%_ - (let () - (declare (not safe)) - (##cdr _%e2883528868%_)))) - (let ((__tmp40102 - (cons _%lp-hd2883628872%_ - _%target2883828865%_))) - (declare (not safe)) - (_%loop2883428858%_ - _%lp-tl2883728875%_ - __tmp40102)))) - (let ((_%target2883928878%_ - (reverse _%target2883828865%_))) - ((lambda (_%L28882%_) - (let () - (let* ((_%g2889928916%_ - (lambda (_%g2890028912%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2890028912%_))) - (_%g2889829084%_ - (lambda (_%g2890028920%_) - (if (gx#stx-pair/null? - _%g2890028920%_) - (let ((_g40103_ - (gx#syntax-split-splice - _%g2890028920%_ - '0))) - (begin - (let ((_g40104_ + (not safe)) + (##fx= _g39953_ 2))) + (error "Context expects 2 values" _g39953_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%target2874228763%_ + (let () + (declare + (not safe)) + (##vector-ref + _g39952_ + 0))) + (_%tl2874428766%_ + (let () + (declare + (not safe)) + (##vector-ref + _g39952_ + 1)))) + (if (gx#stx-null? + _%tl2874428766%_) + (letrec ((_%loop2874528769%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd2874328773%_ _%target2874928776%_) + (if (gx#stx-pair? _%hd2874328773%_) + (let ((_%e2874628779%_ + (gx#syntax-e _%hd2874328773%_))) + (let ((_%lp-hd2874728783%_ + (let () + (declare (not safe)) + (##car _%e2874628779%_))) + (_%lp-tl2874828786%_ + (let () + (declare (not safe)) + (##cdr _%e2874628779%_)))) + (_%loop2874528769%_ + _%lp-tl2874828786%_ + (cons _%lp-hd2874728783%_ + _%target2874928776%_)))) + (let ((_%target2875028789%_ + (reverse _%target2874928776%_))) + ((lambda (_%L28793%_) + (let* ((_%g2881028827%_ + (lambda (_%g2881128823%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2881128823%_))) + (_%g2880928995%_ + (lambda (_%g2881128831%_) + (if (gx#stx-pair/null? + _%g2881128831%_) + (let ((_g39954_ + (gx#syntax-split-splice + _%g2881128831%_ + '0))) + (begin + (let ((_g39955_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (if (##values? _g40103_) - (##vector-length _g40103_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g40104_ 2))) - (error "Context expects 2 values" _g40104_))) - (let ((_%target2890228923%_ - (let () - (declare (not safe)) - (##vector-ref _g40103_ 0))) - (_%tl2890428926%_ - (let () - (declare (not safe)) - (##vector-ref _g40103_ 1)))) - (if (gx#stx-null? _%tl2890428926%_) - (letrec ((_%loop2890528929%_ - (lambda (_%hd2890328933%_ - _%fail-diagnostic2890928936%_) - (if (gx#stx-pair? _%hd2890328933%_) - (let ((_%e2890628939%_ - (gx#syntax-e - _%hd2890328933%_))) - (let ((_%lp-hd2890728943%_ - (let () - (declare (not safe)) - (##car _%e2890628939%_))) - (_%lp-tl2890828946%_ - (let () - (declare (not safe)) - (##cdr _%e2890628939%_)))) - (let ((__tmp40105 - (cons _%lp-hd2890728943%_ - _%fail-diagnostic2890928936%_))) - (declare (not safe)) - (_%loop2890528929%_ - _%lp-tl2890828946%_ - __tmp40105)))) - (let ((_%fail-diagnostic2891028949%_ - (reverse _%fail-diagnostic2890928936%_))) - ((lambda (_%L28953%_) + (declare (not safe)) + (if (##values? _g39954_) + (##vector-length _g39954_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g39955_ 2))) + (error "Context expects 2 values" _g39955_))) + (let ((_%target2881328834%_ + (let () (declare (not safe)) (##vector-ref _g39954_ 0))) + (_%tl2881528837%_ + (let () + (declare (not safe)) + (##vector-ref _g39954_ 1)))) + (if (gx#stx-null? _%tl2881528837%_) + (letrec ((_%loop2881628840%_ + (lambda (_%hd2881428844%_ + _%fail-diagnostic2882028847%_) + (if (gx#stx-pair? _%hd2881428844%_) + (let ((_%e2881728850%_ + (gx#syntax-e _%hd2881428844%_))) + (let ((_%lp-hd2881828854%_ (let () - (let* ((_%g2897028978%_ - (lambda (_%g2897128974%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2897128974%_))) - (_%g2896929064%_ - (lambda (_%g2897128982%_) - ((lambda (_%L28985%_) - (let () - (let* ((_%g2899829006%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2899929002%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2899929002%_))) - (_%g2899729060%_ - (lambda (_%g2899929010%_) - ((lambda (_%L29013%_) - (let () - (let* ((_%g2902629034%_ - (lambda (_%g2902729030%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2902729030%_))) - (_%g2902529056%_ - (lambda (_%g2902729038%_) - ((lambda (_%L29041%_) - (let () - (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (gx#datum->syntax + (declare (not safe)) + (##car _%e2881728850%_))) + (_%lp-tl2881928857%_ + (let () + (declare (not safe)) + (##cdr _%e2881728850%_)))) + (_%loop2881628840%_ + _%lp-tl2881928857%_ + (cons _%lp-hd2881828854%_ + _%fail-diagnostic2882028847%_)))) + (let ((_%fail-diagnostic2882128860%_ + (reverse _%fail-diagnostic2882028847%_))) + ((lambda (_%L28864%_) + (let* ((_%g2888128889%_ + (lambda (_%g2888228885%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2888228885%_))) + (_%g2888028975%_ + (lambda (_%g2888228893%_) + ((lambda (_%L28896%_) + (let* ((_%g2890928917%_ + (lambda (_%g2891028913%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#raise-syntax-error '#f - '@match) - (cons _%L29041%_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2902729038%_))) - (__tmp40106 - (gx#stx-wrap-source + '"Bad syntax; invalid match target" + _%g2891028913%_))) + (_%g2890828971%_ + (lambda (_%g2891028921%_) + ((lambda (_%L28924%_) + (let* ((_%g2893728945%_ + (lambda (_%g2893828941%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2893828941%_))) + (_%g2893628967%_ + (lambda (_%g2893828949%_) + ((lambda (_%L28952%_) + (cons (gx#datum->syntax + '#f + 'begin-annotation) (cons (gx#datum->syntax '#f - 'let) - (cons (cons (cons _%L28816%_ + '@match) + (cons _%L28952%_ '())))) + _%g2893828949%_)))) + (_%g2893628967%_ + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons _%L28727%_ + (cons _%L28896%_ '())) + '()) + (cons _%L28924%_ '()))) + (gx#stx-source _%stx27998%_))))) + _%g2891028921%_)))) + (_%g2890828971%_ + (_%generate-clauses28006%_ + _%body28709%_ + (cons (gx#datum->syntax '#f 'begin-annotation) + (cons (cons (gx#datum->syntax '#f '@abort) '()) + (cons (cons _%L28727%_ '()) '()))))))) + _%g2888228893%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2888028975%_ + (gx#stx-wrap-source + (cons (gx#datum->syntax + '#f + 'lambda) + (cons '() + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L28985%_ '())) - '()) - (cons _%L29013%_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx28087%_)))) - (declare (not safe)) - (_%g2902529056%_ __tmp40106)))) - _%g2899929010%_))) - (__tmp40107 - (let ((__tmp40108 - (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax - '#f - '@abort) - '()) - (cons (cons _%L28816%_ '()) - '()))))) - (declare (not safe)) - (_%generate-clauses28095%_ - _%body28798%_ - __tmp40108)))) - (declare (not safe)) - (_%g2899729060%_ __tmp40107)))) - _%g2897128982%_))) - (__tmp40109 - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'lambda) - (cons '() - (cons (cons (gx#datum->syntax '#f 'error) - (cons '"No clause matching" - (foldr (lambda (_%g2906729072%_ - _%g2906829075%_) - (cons _%g2906729072%_ - _%g2906829075%_)) - (foldr (lambda (_%g2906929078%_ + '#f + 'error) + (cons '"No clause matching" + (foldr (lambda (_%g2897828983%_ + _%g2897928986%_) + (cons _%g2897828983%_ + _%g2897928986%_)) + (foldr (lambda (_%g2898028989%_ + _%g2898128992%_) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2907029081%_) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2906929078%_ '())) - _%g2907029081%_)) - '() - _%L28953%_) - _%L28882%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax '#f 'void) - '()) - '())))) - (gx#stx-source _%stx28087%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g2896929064%_ - __tmp40109)))) - _%fail-diagnostic2891028949%_)))))) - (let () - (declare (not safe)) - (_%loop2890528929%_ _%target2890228923%_ '()))) - (let () - (declare (not safe)) - (_%g2889928916%_ _%g2890028920%_)))))) - (let () - (declare (not safe)) - (_%g2889928916%_ _%g2890028920%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp40110 - (gx#stx-map - gx#stx-car - _%clauses28090%_))) - (declare (not safe)) - (_%g2889829084%_ __tmp40110)))) - _%target2883928878%_)))))) - (let () - (declare (not safe)) - (_%loop2883428858%_ _%target2883128852%_ '()))) - (let () - (declare (not safe)) - (_%g2882828845%_ _%g2882928849%_)))))) + '#f + 'quote) + (cons _%g2898028989%_ '())) + _%g2898128992%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g2882828845%_ - _%g2882928849%_)))))) - (declare (not safe)) - (_%g2882729088%_ _%tgt-lst28089%_)))) - _%g2880228813%_))) - (__tmp40111 (gx#genident 'E))) - (declare (not safe)) - (_%g2880029092%_ __tmp40111)))) - (_%generate-clauses28095%_ - (lambda (_%rest28450%_ _%E28452%_) - (let* ((_%__stx3938239383%_ _%rest28450%_) - (_%g2845628472%_ + '() + _%L28864%_) + _%L28793%_))) + (cons (cons (gx#datum->syntax '#f 'void) '()) '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#stx-source _%stx27998%_))))) + _%fail-diagnostic2882128860%_)))))) + (_%loop2881628840%_ _%target2881328834%_ '())) + (_%g2881028827%_ _%g2881128831%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2881028827%_ + _%g2881128831%_))))) + (_%g2880928995%_ + (gx#stx-map + gx#stx-car + _%clauses28001%_)))) + _%target2875028789%_)))))) + (_%loop2874528769%_ _%target2874228763%_ '())) + (_%g2873928756%_ _%g2874028760%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2873928756%_ + _%g2874028760%_))))) + (_%g2873828999%_ _%tgt-lst28000%_))) + _%g2871328724%_)))) + (_%g2871129003%_ (gx#genident 'E))))) + (_%generate-clauses28006%_ + (lambda (_%rest28361%_ _%E28363%_) + (let* ((_%__stx3929339294%_ _%rest28361%_) + (_%g2836728383%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3938239383%_)))) - (let ((_%__kont3938539386%_ - (lambda (_%L28706%_) - (let* ((_%g2871728735%_ - (lambda (_%g2871828731%_) + _%__stx3929339294%_)))) + (let ((_%__kont3929639297%_ + (lambda (_%L28617%_) + (let* ((_%g2862828646%_ + (lambda (_%g2862928642%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2871828731%_))) - (_%g2871628790%_ - (lambda (_%g2871828739%_) - (if (gx#stx-pair? _%g2871828739%_) - (let ((_%e2872328742%_ + _%g2862928642%_))) + (_%g2862728701%_ + (lambda (_%g2862928650%_) + (if (gx#stx-pair? _%g2862928650%_) + (let ((_%e2863428653%_ (gx#syntax-e - _%g2871828739%_))) - (let ((_%hd2872228746%_ + _%g2862928650%_))) + (let ((_%hd2863328657%_ (let () (declare (not safe)) - (##car _%e2872328742%_))) - (_%tl2872128749%_ + (##car _%e2863428653%_))) + (_%tl2863228660%_ (let () (declare (not safe)) - (##cdr _%e2872328742%_)))) + (##cdr _%e2863428653%_)))) (if (gx#stx-pair? - _%tl2872128749%_) - (let ((_%e2872628752%_ + _%tl2863228660%_) + (let ((_%e2863728663%_ (gx#syntax-e - _%tl2872128749%_))) - (let ((_%hd2872528756%_ + _%tl2863228660%_))) + (let ((_%hd2863628667%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2872628752%_))) - (_%tl2872428759%_ - (let () (declare (not safe)) (##cdr _%e2872628752%_)))) - (if (gx#stx-pair? _%tl2872428759%_) - (let ((_%e2872928762%_ (gx#syntax-e _%tl2872428759%_))) - (let ((_%hd2872828766%_ + (##car _%e2863728663%_))) + (_%tl2863528670%_ + (let () (declare (not safe)) (##cdr _%e2863728663%_)))) + (if (gx#stx-pair? _%tl2863528670%_) + (let ((_%e2864028673%_ (gx#syntax-e _%tl2863528670%_))) + (let ((_%hd2863928677%_ (let () (declare (not safe)) - (##car _%e2872928762%_))) - (_%tl2872728769%_ + (##car _%e2864028673%_))) + (_%tl2863828680%_ (let () (declare (not safe)) - (##cdr _%e2872928762%_)))) - (if (gx#stx-null? _%tl2872728769%_) - ((lambda (_%L28772%_ _%L28774%_) + (##cdr _%e2864028673%_)))) + (if (gx#stx-null? _%tl2863828680%_) + ((lambda (_%L28683%_ _%L28685%_) (cons 'begin-annotation (cons '@match-body - (cons (if (gx#stx-e _%L28774%_) - (let () - (declare (not safe)) - (_%generate128096%_ - _%L28774%_ - _%L28772%_ - _%E28452%_)) - _%L28772%_) + (cons (if (gx#stx-e _%L28685%_) + (_%generate128007%_ + _%L28685%_ + _%L28683%_ + _%E28363%_) + _%L28683%_) '())))) - _%hd2872828766%_ - _%hd2872528756%_) - (let () - (declare (not safe)) - (_%g2871728735%_ _%g2871828739%_))))) - (let () - (declare (not safe)) - (_%g2871728735%_ _%g2871828739%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g2871728735%_ - _%g2871828739%_))))) - (let () - (declare (not safe)) - (_%g2871728735%_ - _%g2871828739%_)))))) - (declare (not safe)) - (_%g2871628790%_ _%L28706%_)))) - (_%__kont3938739388%_ - (lambda (_%L28500%_ _%L28502%_) - (let* ((_%g2851528534%_ - (lambda (_%g2851628530%_) + _%hd2863928677%_ + _%hd2863628667%_) + (_%g2862828646%_ _%g2862928650%_)))) + (_%g2862828646%_ _%g2862928650%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2862828646%_ + _%g2862928650%_)))) + (_%g2862828646%_ + _%g2862928650%_))))) + (_%g2862728701%_ _%L28617%_)))) + (_%__kont3929839299%_ + (lambda (_%L28411%_ _%L28413%_) + (let* ((_%g2842628445%_ + (lambda (_%g2842728441%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2851628530%_))) - (_%g2851428685%_ - (lambda (_%g2851628538%_) - (if (gx#stx-pair? _%g2851628538%_) - (let ((_%e2852228541%_ + _%g2842728441%_))) + (_%g2842528596%_ + (lambda (_%g2842728449%_) + (if (gx#stx-pair? _%g2842728449%_) + (let ((_%e2843328452%_ (gx#syntax-e - _%g2851628538%_))) - (let ((_%hd2852128545%_ + _%g2842728449%_))) + (let ((_%hd2843228456%_ (let () (declare (not safe)) - (##car _%e2852228541%_))) - (_%tl2852028548%_ + (##car _%e2843328452%_))) + (_%tl2843128459%_ (let () (declare (not safe)) - (##cdr _%e2852228541%_)))) + (##cdr _%e2843328452%_)))) (if (gx#stx-pair? - _%tl2852028548%_) - (let ((_%e2852528551%_ + _%tl2843128459%_) + (let ((_%e2843628462%_ (gx#syntax-e - _%tl2852028548%_))) - (let ((_%hd2852428555%_ + _%tl2843128459%_))) + (let ((_%hd2843528466%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2852528551%_))) - (_%tl2852328558%_ - (let () (declare (not safe)) (##cdr _%e2852528551%_)))) - (if (gx#stx-pair? _%tl2852328558%_) - (let ((_%e2852828561%_ (gx#syntax-e _%tl2852328558%_))) - (let ((_%hd2852728565%_ + (##car _%e2843628462%_))) + (_%tl2843428469%_ + (let () (declare (not safe)) (##cdr _%e2843628462%_)))) + (if (gx#stx-pair? _%tl2843428469%_) + (let ((_%e2843928472%_ (gx#syntax-e _%tl2843428469%_))) + (let ((_%hd2843828476%_ (let () (declare (not safe)) - (##car _%e2852828561%_))) - (_%tl2852628568%_ + (##car _%e2843928472%_))) + (_%tl2843728479%_ (let () (declare (not safe)) - (##cdr _%e2852828561%_)))) - (if (gx#stx-null? _%tl2852628568%_) - ((lambda (_%L28571%_ _%L28573%_ _%L28574%_) - (if (gx#stx-e _%L28573%_) - (let* ((_%g2859128606%_ - (lambda (_%g2859228602%_) + (##cdr _%e2843928472%_)))) + (if (gx#stx-null? _%tl2843728479%_) + ((lambda (_%L28482%_ _%L28484%_ _%L28485%_) + (if (gx#stx-e _%L28484%_) + (let* ((_%g2850228517%_ + (lambda (_%g2850328513%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2859228602%_))) - (_%g2859028651%_ - (lambda (_%g2859228610%_) + _%g2850328513%_))) + (_%g2850128562%_ + (lambda (_%g2850328521%_) (if (gx#stx-pair? - _%g2859228610%_) - (let ((_%e2859728613%_ + _%g2850328521%_) + (let ((_%e2850828524%_ (gx#syntax-e - _%g2859228610%_))) - (let ((_%hd2859628617%_ + _%g2850328521%_))) + (let ((_%hd2850728528%_ (let () (declare (not safe)) - (##car _%e2859728613%_))) - (_%tl2859528620%_ + (##car _%e2850828524%_))) + (_%tl2850628531%_ (let () (declare (not safe)) - (##cdr _%e2859728613%_)))) + (##cdr _%e2850828524%_)))) (if (gx#stx-pair? - _%tl2859528620%_) - (let ((_%e2860028623%_ + _%tl2850628531%_) + (let ((_%e2851128534%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2859528620%_))) - (let ((_%hd2859928627%_ + (gx#syntax-e _%tl2850628531%_))) + (let ((_%hd2851028538%_ (let () (declare (not safe)) - (##car _%e2860028623%_))) - (_%tl2859828630%_ + (##car _%e2851128534%_))) + (_%tl2850928541%_ (let () (declare (not safe)) - (##cdr _%e2860028623%_)))) - (if (gx#stx-null? _%tl2859828630%_) - ((lambda (_%L28633%_ _%L28635%_) - (let () - (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L28574%_ - (cons (cons (gx#datum->syntax + (##cdr _%e2851128534%_)))) + (if (gx#stx-null? _%tl2850928541%_) + ((lambda (_%L28544%_ _%L28546%_) + (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons _%L28485%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'lambda) - (cons '() (cons _%L28635%_ '()))) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - (cons _%L28633%_ '()))))) - _%hd2859928627%_ - _%hd2859628617%_) - (let () - (declare (not safe)) - (_%g2859128606%_ _%g2859228610%_))))) - (let () - (declare (not safe)) - (_%g2859128606%_ _%g2859228610%_))))) + '#f + 'lambda) + (cons '() (cons _%L28546%_ '()))) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g2859128606%_ - _%g2859228610%_))))) - (__tmp40112 - (list (let () - (declare (not safe)) - (_%generate128096%_ - _%L28573%_ - _%L28571%_ - _%E28452%_)) - (let ((__tmp40113 - (cons _%L28574%_ - '()))) - (declare (not safe)) - (_%generate-clauses28095%_ - _%L28500%_ - __tmp40113))))) - (declare (not safe)) - (_%g2859028651%_ __tmp40112)) - (let* ((_%g2865528663%_ - (lambda (_%g2865628659%_) + '()) + (cons _%L28544%_ '())))) + _%hd2851028538%_ + _%hd2850728528%_) + (_%g2850228517%_ _%g2850328521%_)))) + (_%g2850228517%_ _%g2850328521%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2850228517%_ + _%g2850328521%_))))) + (_%g2850128562%_ + (list (_%generate128007%_ + _%L28484%_ + _%L28482%_ + _%E28363%_) + (_%generate-clauses28006%_ + _%L28411%_ + (cons _%L28485%_ '()))))) + (let* ((_%g2856628574%_ + (lambda (_%g2856728570%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2865628659%_))) - (_%g2865428681%_ - (lambda (_%g2865628667%_) - ((lambda (_%L28670%_) - (let () - (cons (gx#datum->syntax - '#f - 'let) - (cons (cons (cons _%L28574%_ + _%g2856728570%_))) + (_%g2856528592%_ + (lambda (_%g2856728578%_) + ((lambda (_%L28581%_) + (cons (gx#datum->syntax + '#f + 'let) + (cons (cons (cons _%L28485%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (gx#datum->syntax - '#f - '@match-else) - (cons (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (gx#datum->syntax + '#f + '@match-else) + (cons (cons (gx#datum->syntax + '#f + 'lambda) + (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'lambda) - (cons '() (cons _%L28571%_ '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '()) - (cons _%L28670%_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2865628667%_))) - (__tmp40114 - (let ((__tmp40115 - (cons _%L28574%_ '()))) - (declare (not safe)) - (_%generate-clauses28095%_ - _%L28500%_ - __tmp40115)))) - (declare (not safe)) - (_%g2865428681%_ __tmp40114)))) - _%hd2852728565%_ - _%hd2852428555%_ - _%hd2852128545%_) - (let () - (declare (not safe)) - (_%g2851528534%_ _%g2851628538%_))))) - (let () - (declare (not safe)) - (_%g2851528534%_ _%g2851628538%_))))) + (cons _%L28482%_ '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g2851528534%_ - _%g2851628538%_))))) - (let () - (declare (not safe)) - (_%g2851528534%_ - _%g2851628538%_)))))) - (declare (not safe)) - (_%g2851428685%_ _%L28502%_)))) - (_%__kont3938939390%_ + '())) + '()) + (cons _%L28581%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2856728578%_)))) + (_%g2856528592%_ + (_%generate-clauses28006%_ + _%L28411%_ + (cons _%L28485%_ '())))))) + _%hd2843828476%_ + _%hd2843528466%_ + _%hd2843228456%_) + (_%g2842628445%_ _%g2842728449%_)))) + (_%g2842628445%_ _%g2842728449%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2842628445%_ + _%g2842728449%_)))) + (_%g2842628445%_ + _%g2842728449%_))))) + (_%g2842528596%_ _%L28413%_)))) + (_%__kont3930039301%_ (lambda () (cons 'begin-annotation (cons '@match-body - (cons _%E28452%_ '())))))) - (if (gx#stx-pair? _%__stx3938239383%_) - (let ((_%e2846128696%_ - (gx#syntax-e _%__stx3938239383%_))) - (let ((_%tl2845928703%_ + (cons _%E28363%_ '())))))) + (if (gx#stx-pair? _%__stx3929339294%_) + (let ((_%e2837228607%_ + (gx#syntax-e _%__stx3929339294%_))) + (let ((_%tl2837028614%_ (let () (declare (not safe)) - (##cdr _%e2846128696%_))) - (_%hd2846028700%_ + (##cdr _%e2837228607%_))) + (_%hd2837128611%_ (let () (declare (not safe)) - (##car _%e2846128696%_)))) - (if (gx#stx-null? _%tl2845928703%_) - (_%__kont3938539386%_ _%hd2846028700%_) - (_%__kont3938739388%_ - _%tl2845928703%_ - _%hd2846028700%_)))) - (_%__kont3938939390%_)))))) - (_%generate128096%_ - (lambda (_%clause28098%_ _%body28100%_ _%E28101%_) - (let* ((_%g2810328127%_ - (lambda (_%g2810428123%_) + (##car _%e2837228607%_)))) + (if (gx#stx-null? _%tl2837028614%_) + (_%__kont3929639297%_ _%hd2837128611%_) + (_%__kont3929839299%_ + _%tl2837028614%_ + _%hd2837128611%_)))) + (_%__kont3930039301%_)))))) + (_%generate128007%_ + (lambda (_%clause28009%_ _%body28011%_ _%E28012%_) + (let* ((_%g2801428038%_ + (lambda (_%g2801528034%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2810428123%_))) - (_%g2810228446%_ - (lambda (_%g2810428131%_) - (if (gx#stx-pair? _%g2810428131%_) - (let ((_%e2810928134%_ - (gx#syntax-e _%g2810428131%_))) - (let ((_%hd2810828138%_ + _%g2801528034%_))) + (_%g2801328357%_ + (lambda (_%g2801528042%_) + (if (gx#stx-pair? _%g2801528042%_) + (let ((_%e2802028045%_ + (gx#syntax-e _%g2801528042%_))) + (let ((_%hd2801928049%_ (let () (declare (not safe)) - (##car _%e2810928134%_))) - (_%tl2810728141%_ + (##car _%e2802028045%_))) + (_%tl2801828052%_ (let () (declare (not safe)) - (##cdr _%e2810928134%_)))) - (if (gx#stx-pair? _%tl2810728141%_) - (let ((_%e2811228144%_ + (##cdr _%e2802028045%_)))) + (if (gx#stx-pair? _%tl2801828052%_) + (let ((_%e2802328055%_ (gx#syntax-e - _%tl2810728141%_))) - (let ((_%hd2811128148%_ + _%tl2801828052%_))) + (let ((_%hd2802228059%_ (let () (declare (not safe)) - (##car _%e2811228144%_))) - (_%tl2811028151%_ + (##car _%e2802328055%_))) + (_%tl2802128062%_ (let () (declare (not safe)) - (##cdr _%e2811228144%_)))) + (##cdr _%e2802328055%_)))) (if (gx#stx-pair/null? - _%hd2811128148%_) - (let ((_g40116_ + _%hd2802228059%_) + (let ((_g39956_ (gx#syntax-split-splice - _%hd2811128148%_ + _%hd2802228059%_ '0))) (begin - (let ((_g40117_ + (let ((_g39957_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g40116_) - (##vector-length _g40116_) + (if (##values? _g39956_) + (##vector-length _g39956_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g40117_ 2))) - (error "Context expects 2 values" _g40117_))) - (let ((_%target2811328154%_ - (let () (declare (not safe)) (##vector-ref _g40116_ 0))) - (_%tl2811528157%_ - (let () (declare (not safe)) (##vector-ref _g40116_ 1)))) - (if (gx#stx-null? _%tl2811528157%_) - (letrec ((_%loop2811628160%_ - (lambda (_%hd2811428164%_ _%var2812028167%_) - (if (gx#stx-pair? _%hd2811428164%_) - (let ((_%e2811728170%_ - (gx#syntax-e _%hd2811428164%_))) - (let ((_%lp-hd2811828174%_ + (if (not (let () (declare (not safe)) (##fx= _g39957_ 2))) + (error "Context expects 2 values" _g39957_))) + (let ((_%target2802428065%_ + (let () (declare (not safe)) (##vector-ref _g39956_ 0))) + (_%tl2802628068%_ + (let () (declare (not safe)) (##vector-ref _g39956_ 1)))) + (if (gx#stx-null? _%tl2802628068%_) + (letrec ((_%loop2802728071%_ + (lambda (_%hd2802528075%_ _%var2803128078%_) + (if (gx#stx-pair? _%hd2802528075%_) + (let ((_%e2802828081%_ + (gx#syntax-e _%hd2802528075%_))) + (let ((_%lp-hd2802928085%_ (let () (declare (not safe)) - (##car _%e2811728170%_))) - (_%lp-tl2811928177%_ + (##car _%e2802828081%_))) + (_%lp-tl2803028088%_ (let () (declare (not safe)) - (##cdr _%e2811728170%_)))) - (let ((__tmp40118 - (cons _%lp-hd2811828174%_ - _%var2812028167%_))) - (declare (not safe)) - (_%loop2811628160%_ - _%lp-tl2811928177%_ - __tmp40118)))) - (let ((_%var2812128180%_ - (reverse _%var2812028167%_))) - (if (gx#stx-null? _%tl2811028151%_) - ((lambda (_%L28184%_ _%L28186%_) + (##cdr _%e2802828081%_)))) + (_%loop2802728071%_ + _%lp-tl2803028088%_ + (cons _%lp-hd2802928085%_ + _%var2803128078%_)))) + (let ((_%var2803228091%_ + (reverse _%var2803128078%_))) + (if (gx#stx-null? _%tl2802128062%_) + ((lambda (_%L28095%_ _%L28097%_) (let () (gx#check-duplicate-identifiers - (foldr (lambda (_%g2820728210%_ - _%g2820828213%_) - (cons _%g2820728210%_ - _%g2820828213%_)) + (foldr (lambda (_%g2811828121%_ + _%g2811928124%_) + (cons _%g2811828121%_ + _%g2811928124%_)) '() - _%L28184%_) - _%stx28087%_) - (let* ((_%g2821628224%_ - (lambda (_%g2821728220%_) + _%L28095%_) + _%stx27998%_) + (let* ((_%g2812728135%_ + (lambda (_%g2812828131%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2821728220%_))) - (_%g2821528318%_ - (lambda (_%g2821728228%_) - ((lambda (_%L28231%_) - (let () - (let* ((_%g2824428252%_ + _%g2812828131%_))) + (_%g2812628229%_ + (lambda (_%g2812828139%_) + ((lambda (_%L28142%_) + (let* ((_%g2815528163%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2824528248%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2824528248%_))) - (_%g2824328314%_ - (lambda (_%g2824528256%_) - ((lambda (_%L28259%_) - (let () - (let* ((_%g2827228280%_ - (lambda (_%g2827328276%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2827328276%_))) - (_%g2827128302%_ - (lambda (_%g2827328284%_) - ((lambda (_%L28287%_) - (let () - (gx#stx-wrap-source - (cons (gx#datum->syntax - '#f - 'let) - (cons (cons _%L28186%_ + (lambda (_%g2815628159%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2815628159%_))) + (_%g2815428225%_ + (lambda (_%g2815628167%_) + ((lambda (_%L28170%_) + (let* ((_%g2818328191%_ + (lambda (_%g2818428187%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2818428187%_))) + (_%g2818228213%_ + (lambda (_%g2818428195%_) + ((lambda (_%L28198%_) + (gx#stx-wrap-source + (cons (gx#datum->syntax + '#f + 'let) + (cons (cons _%L28097%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L28287%_ '())) - (cons _%L28231%_ '()))) + (cons _%L28198%_ '())) + (cons _%L28142%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source - _%stx28087%_)))) - _%g2827328284%_))) - (__tmp40119 - (gx#stx-wrap-source - (cons (gx#datum->syntax - '#f - 'lambda) - (cons (foldr (lambda (_%g2830528308%_ + (gx#stx-source _%stx27998%_))) + _%g2818428195%_)))) + (_%g2818228213%_ + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'lambda) + (cons (foldr (lambda (_%g2821628219%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2830628311%_) - (cons _%g2830528308%_ _%g2830628311%_)) - '() - _%L28184%_) - (cons _%L28259%_ '()))) + _%g2821728222%_) + (cons _%g2821628219%_ _%g2821728222%_)) + '() + _%L28095%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx28087%_)))) - (declare (not safe)) - (_%g2827128302%_ __tmp40119)))) - _%g2824528256%_)))) - (declare (not safe)) - (_%g2824328314%_ _%body28100%_)))) - _%g2821728228%_))) - (__tmp40120 - (let _%recur28322%_ ((_%rest28325%_ _%clause28098%_) - (_%rest-targets28327%_ _%tgt-lst28089%_)) - (let* ((_%__stx3940839409%_ _%rest28325%_) - (_%g2833028342%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx3940839409%_)))) - (let ((_%__kont3941139412%_ - (lambda (_%L28378%_ _%L28380%_) - (let* ((_%g2839528407%_ - (lambda (_%g2839628403%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2839628403%_))) - (_%g2839428438%_ - (lambda (_%g2839628411%_) - (if (gx#stx-pair? _%g2839628411%_) - (let ((_%e2840128414%_ - (gx#syntax-e - _%g2839628411%_))) - (let ((_%hd2840028418%_ - (let () - (declare (not safe)) - (##car _%e2840128414%_))) - (_%tl2839928421%_ - (let () - (declare (not safe)) - (##cdr _%e2840128414%_)))) - ((lambda (_%L28424%_ _%L28426%_) - (let ((__tmp40121 - (let () - (declare (not safe)) - (_%recur28322%_ - _%L28378%_ - _%L28424%_)))) - (declare (not safe)) - (|gerbil/core/match[1]#generate-match1| - _%stx28087%_ - _%L28426%_ - _%L28380%_ - __tmp40121 - _%E28101%_))) - _%tl2839928421%_ - _%hd2840028418%_))) - (let () - (declare (not safe)) - (_%g2839528407%_ - _%g2839628411%_)))))) - (declare (not safe)) - (_%g2839428438%_ _%rest-targets28327%_)))) - (_%__kont3941339414%_ - (lambda () - (cons _%L28186%_ - (foldr (lambda (_%g2835228355%_ - _%g2835328358%_) - (cons _%g2835228355%_ - _%g2835328358%_)) - '() - _%L28184%_))))) - (if (gx#stx-pair? _%__stx3940839409%_) - (let ((_%e2833628368%_ - (gx#syntax-e _%__stx3940839409%_))) - (let ((_%tl2833428375%_ - (let () - (declare (not safe)) - (##cdr _%e2833628368%_))) - (_%hd2833528372%_ - (let () - (declare (not safe)) - (##car _%e2833628368%_)))) - (_%__kont3941139412%_ - _%tl2833428375%_ - _%hd2833528372%_))) - (_%__kont3941339414%_))))))) + (cons _%L28170%_ '()))) + (gx#stx-source _%stx27998%_))))) + _%g2815628167%_)))) + (_%g2815428225%_ _%body28011%_))) + _%g2812828139%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g2821528318%_ - __tmp40120)))) - _%var2812128180%_ - _%hd2810828138%_) - (let () - (declare (not safe)) - (_%g2810328127%_ - _%g2810428131%_)))))))) - (let () - (declare (not safe)) - (_%loop2811628160%_ _%target2811328154%_ '()))) - (let () - (declare (not safe)) - (_%g2810328127%_ _%g2810428131%_)))))) + (_%g2812628229%_ + (let _%recur28233%_ ((_%rest28236%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clause28009%_) + (_%rest-targets28238%_ _%tgt-lst28000%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g2810328127%_ - _%g2810428131%_))))) - (let () - (declare (not safe)) - (_%g2810328127%_ - _%g2810428131%_))))) - (let () - (declare (not safe)) - (_%g2810328127%_ _%g2810428131%_))))) - (__tmp40122 - (list (gx#genident 'K) - (let ((__tmp40123 - (map |gerbil/core/match[1]#match-pattern-vars| - _%clause28098%_))) - (declare (not safe)) - (##apply append __tmp40123))))) - (declare (not safe)) - (_%g2810228446%_ __tmp40122))))) - (let ((__tmp40124 - (let ((__tmp40125 (gx#stx-length _%tgt-lst28089%_))) - (declare (not safe)) - (_%parse-body28092%_ __tmp40125)))) - (declare (not safe)) - (_%generate-body28094%_ __tmp40124))))) + (let* ((_%__stx3931939320%_ + _%rest28236%_) + (_%g2824128253%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx3931939320%_)))) + (let ((_%__kont3932239323%_ + (lambda (_%L28289%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%L28291%_) + (let* ((_%g2830628318%_ + (lambda (_%g2830728314%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2830728314%_))) + (_%g2830528349%_ + (lambda (_%g2830728322%_) + (if (gx#stx-pair? _%g2830728322%_) + (let ((_%e2831228325%_ + (gx#syntax-e _%g2830728322%_))) + (let ((_%hd2831128329%_ + (let () + (declare (not safe)) + (##car _%e2831228325%_))) + (_%tl2831028332%_ + (let () + (declare (not safe)) + (##cdr _%e2831228325%_)))) + ((lambda (_%L28335%_ _%L28337%_) + (|gerbil/core/match[1]#generate-match1| + _%stx27998%_ + _%L28337%_ + _%L28291%_ + (_%recur28233%_ + _%L28289%_ + _%L28335%_) + _%E28012%_)) + _%tl2831028332%_ + _%hd2831128329%_))) + (_%g2830628318%_ _%g2830728322%_))))) + (_%g2830528349%_ _%rest-targets28238%_)))) + (_%__kont3932439325%_ + (lambda () + (cons _%L28097%_ + (foldr (lambda (_%g2826328266%_ _%g2826428269%_) + (cons _%g2826328266%_ _%g2826428269%_)) + '() + _%L28095%_))))) + (if (gx#stx-pair? _%__stx3931939320%_) + (let ((_%e2824728279%_ (gx#syntax-e _%__stx3931939320%_))) + (let ((_%tl2824528286%_ + (let () + (declare (not safe)) + (##cdr _%e2824728279%_))) + (_%hd2824628283%_ + (let () + (declare (not safe)) + (##car _%e2824728279%_)))) + (_%__kont3932239323%_ + _%tl2824528286%_ + _%hd2824628283%_))) + (_%__kont3932439325%_))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%var2803228091%_ + _%hd2801928049%_) + (_%g2801428038%_ + _%g2801528042%_))))))) + (_%loop2802728071%_ _%target2802428065%_ '())) + (_%g2801428038%_ _%g2801528042%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2801428038%_ + _%g2801528042%_)))) + (_%g2801428038%_ _%g2801528042%_)))) + (_%g2801428038%_ _%g2801528042%_))))) + (_%g2801328357%_ + (list (gx#genident 'K) + (let ((__tmp39958 + (map |gerbil/core/match[1]#match-pattern-vars| + _%clause28009%_))) + (declare (not safe)) + (##apply append __tmp39958)))))))) + (_%generate-body28005%_ + (_%parse-body28003%_ (gx#stx-length _%tgt-lst28000%_)))))) (define |gerbil/core/match[1]#generate-match| - (lambda (_%stx27989%_ _%tgt27991%_ _%clauses27992%_) - (letrec ((_%reclause27994%_ - (lambda (_%clause27997%_) - (let* ((_%__stx3942439425%_ _%clause27997%_) - (_%g2800228017%_ + (lambda (_%stx27900%_ _%tgt27902%_ _%clauses27903%_) + (letrec ((_%reclause27905%_ + (lambda (_%clause27908%_) + (let* ((_%__stx3933539336%_ _%clause27908%_) + (_%g2791327928%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3942439425%_)))) - (let ((_%__kont3942739428%_ (lambda () _%clause27997%_)) - (_%__kont3942939430%_ - (lambda (_%L28045%_ _%L28047%_) + _%__stx3933539336%_)))) + (let ((_%__kont3933839339%_ (lambda () _%clause27908%_)) + (_%__kont3934039341%_ + (lambda (_%L27956%_ _%L27958%_) (gx#stx-wrap-source - (cons (cons _%L28047%_ '()) _%L28045%_) + (cons (cons _%L27958%_ '()) _%L27956%_) (gx#stx-source (gx#datum->syntax '#f 'clause))))) - (_%__kont3943139432%_ + (_%__kont3934239343%_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" - _%stx27989%_ - _%clause27997%_)))) - (if (gx#stx-pair? _%__stx3942439425%_) - (let ((_%e2800628069%_ - (gx#syntax-e _%__stx3942439425%_))) - (let ((_%tl2800428076%_ + _%stx27900%_ + _%clause27908%_)))) + (if (gx#stx-pair? _%__stx3933539336%_) + (let ((_%e2791727980%_ + (gx#syntax-e _%__stx3933539336%_))) + (let ((_%tl2791527987%_ (let () (declare (not safe)) - (##cdr _%e2800628069%_))) - (_%hd2800528073%_ + (##cdr _%e2791727980%_))) + (_%hd2791627984%_ (let () (declare (not safe)) - (##car _%e2800628069%_)))) - (if (gx#identifier? _%hd2800528073%_) + (##car _%e2791727980%_)))) + (if (gx#identifier? _%hd2791627984%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40126_| - _%hd2800528073%_) - (_%__kont3942739428%_) - (_%__kont3942939430%_ - _%tl2800428076%_ - _%hd2800528073%_)) - (_%__kont3942939430%_ - _%tl2800428076%_ - _%hd2800528073%_)))) - (_%__kont3943139432%_))))))) - (let ((__tmp40128 (cons _%tgt27991%_ '())) - (__tmp40127 (gx#stx-map _%reclause27994%_ _%clauses27992%_))) - (declare (not safe)) - (|gerbil/core/match[1]#generate-match*| - _%stx27989%_ - __tmp40128 - __tmp40127))))) + |gerbil/core/match[1]#_g39959_| + _%hd2791627984%_) + (_%__kont3933839339%_) + (_%__kont3934039341%_ + _%tl2791527987%_ + _%hd2791627984%_)) + (_%__kont3934039341%_ + _%tl2791527987%_ + _%hd2791627984%_)))) + (_%__kont3934239343%_))))))) + (|gerbil/core/match[1]#generate-match*| + _%stx27900%_ + (cons _%tgt27902%_ '()) + (gx#stx-map _%reclause27905%_ _%clauses27903%_))))) (define |gerbil/core/match[:0:]#match| - (lambda (_%stx35325%_) - (let* ((_%__stx3945239453%_ _%stx35325%_) - (_%g3533035359%_ + (lambda (_%stx35236%_) + (let* ((_%__stx3936339364%_ _%stx35236%_) + (_%g3524135270%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3945239453%_)))) - (let ((_%__kont3945539456%_ - (lambda (_%L35599%_) - (let* ((_%g3561235620%_ - (lambda (_%g3561335616%_) + _%__stx3936339364%_)))) + (let ((_%__kont3936639367%_ + (lambda (_%L35510%_) + (let* ((_%g3552335531%_ + (lambda (_%g3552435527%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3561335616%_))) - (_%g3561135673%_ - (lambda (_%g3561335624%_) - ((lambda (_%L35627%_) - (let () - (let* ((_%g3563935647%_ - (lambda (_%g3564035643%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3564035643%_))) - (_%g3563835669%_ - (lambda (_%g3564035651%_) - ((lambda (_%L35654%_) - (let () - (cons (gx#datum->syntax - '#f - 'lambda) - (cons (cons _%L35627%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _%L35654%_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3564035651%_)))) - (_%g3563835669%_ - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'match) - (cons _%L35627%_ _%L35599%_)) - (gx#stx-source _%stx35325%_)))))) - _%g3561335624%_)))) - (_%g3561135673%_ (gx#genident 'e))))) - (_%__kont3945739458%_ - (lambda (_%L35494%_) - (let* ((_%g3550735515%_ - (lambda (_%g3550835511%_) + _%g3552435527%_))) + (_%g3552235584%_ + (lambda (_%g3552435535%_) + ((lambda (_%L35538%_) + (let* ((_%g3555035558%_ + (lambda (_%g3555135554%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3555135554%_))) + (_%g3554935580%_ + (lambda (_%g3555135562%_) + ((lambda (_%L35565%_) + (cons (gx#datum->syntax + '#f + 'lambda) + (cons (cons _%L35538%_ '()) + (cons _%L35565%_ + '())))) + _%g3555135562%_)))) + (_%g3554935580%_ + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'match) + (cons _%L35538%_ _%L35510%_)) + (gx#stx-source _%stx35236%_))))) + _%g3552435535%_)))) + (_%g3552235584%_ (gx#genident 'e))))) + (_%__kont3936839369%_ + (lambda (_%L35405%_) + (let* ((_%g3541835426%_ + (lambda (_%g3541935422%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3550835511%_))) - (_%g3550635568%_ - (lambda (_%g3550835519%_) - ((lambda (_%L35522%_) - (let () - (let* ((_%g3553435542%_ - (lambda (_%g3553535538%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3553535538%_))) - (_%g3553335564%_ - (lambda (_%g3553535546%_) - ((lambda (_%L35549%_) - (let () - (cons (gx#datum->syntax - '#f - 'lambda) - (cons _%L35522%_ - (cons _%L35549%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3553535546%_)))) - (_%g3553335564%_ - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'match) - (cons _%L35522%_ _%L35494%_)) - (gx#stx-source _%stx35325%_)))))) - _%g3550835519%_)))) - (_%g3550635568%_ (gx#genident 'args))))) - (_%__kont3945939460%_ - (lambda (_%L35386%_ _%L35388%_) - (let* ((_%g3540235410%_ - (lambda (_%g3540335406%_) + _%g3541935422%_))) + (_%g3541735479%_ + (lambda (_%g3541935430%_) + ((lambda (_%L35433%_) + (let* ((_%g3544535453%_ + (lambda (_%g3544635449%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3544635449%_))) + (_%g3544435475%_ + (lambda (_%g3544635457%_) + ((lambda (_%L35460%_) + (cons (gx#datum->syntax + '#f + 'lambda) + (cons _%L35433%_ + (cons _%L35460%_ + '())))) + _%g3544635457%_)))) + (_%g3544435475%_ + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'match) + (cons _%L35433%_ _%L35405%_)) + (gx#stx-source _%stx35236%_))))) + _%g3541935430%_)))) + (_%g3541735479%_ (gx#genident 'args))))) + (_%__kont3937039371%_ + (lambda (_%L35297%_ _%L35299%_) + (let* ((_%g3531335321%_ + (lambda (_%g3531435317%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3540335406%_))) - (_%g3540135463%_ - (lambda (_%g3540335414%_) - ((lambda (_%L35417%_) - (let () - (let* ((_%g3542935437%_ - (lambda (_%g3543035433%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3543035433%_))) - (_%g3542835459%_ - (lambda (_%g3543035441%_) - ((lambda (_%L35444%_) - (let () - (cons (gx#datum->syntax - '#f - 'let) - (cons (cons (cons _%L35417%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L35388%_ '())) - '()) - (cons _%L35444%_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3543035441%_)))) - (_%g3542835459%_ - (let () - (declare (not safe)) - (|gerbil/core/match[1]#generate-match| - _%stx35325%_ - _%L35417%_ - _%L35386%_)))))) - _%g3540335414%_)))) - (_%g3540135463%_ (gx#genident _%L35388%_)))))) - (let* ((_%__match3950539506%_ - (lambda (_%e3535035366%_ - _%hd3534935370%_ - _%tl3534835373%_ - _%e3535335376%_ - _%hd3535235380%_ - _%tl3535135383%_) - (let ((_%L35386%_ _%tl3535135383%_) - (_%L35388%_ _%hd3535235380%_)) - (if (gx#stx-list? _%L35386%_) - (_%__kont3945939460%_ _%L35386%_ _%L35388%_) - (let () (declare (not safe)) (_%g3533035359%_)))))) - (_%__match3949339494%_ - (lambda (_%e3534235474%_ - _%hd3534135478%_ - _%tl3534035481%_ - _%e3534535484%_ - _%hd3534435488%_ - _%tl3534335491%_) - (let ((_%L35494%_ _%tl3534335491%_)) - (if (gx#stx-list? _%L35494%_) - (_%__kont3945739458%_ _%L35494%_) - (_%__match3950539506%_ - _%e3534235474%_ - _%hd3534135478%_ - _%tl3534035481%_ - _%e3534535484%_ - _%hd3534435488%_ - _%tl3534335491%_))))) - (_%__match3947739478%_ - (lambda (_%e3533535579%_ - _%hd3533435583%_ - _%tl3533335586%_ - _%e3533835589%_ - _%hd3533735593%_ - _%tl3533635596%_) - (let ((_%L35599%_ _%tl3533635596%_)) - (if (gx#stx-list? _%L35599%_) - (_%__kont3945539456%_ _%L35599%_) - (_%__match3950539506%_ - _%e3533535579%_ - _%hd3533435583%_ - _%tl3533335586%_ - _%e3533835589%_ - _%hd3533735593%_ - _%tl3533635596%_)))))) - (if (gx#stx-pair? _%__stx3945239453%_) - (let ((_%e3533535579%_ (gx#syntax-e _%__stx3945239453%_))) - (let ((_%tl3533335586%_ + _%g3531435317%_))) + (_%g3531235374%_ + (lambda (_%g3531435325%_) + ((lambda (_%L35328%_) + (let* ((_%g3534035348%_ + (lambda (_%g3534135344%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3534135344%_))) + (_%g3533935370%_ + (lambda (_%g3534135352%_) + ((lambda (_%L35355%_) + (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons _%L35328%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L35299%_ '())) + '()) + (cons _%L35355%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g3534135352%_)))) + (_%g3533935370%_ + (|gerbil/core/match[1]#generate-match| + _%stx35236%_ + _%L35328%_ + _%L35297%_)))) + _%g3531435325%_)))) + (_%g3531235374%_ (gx#genident _%L35299%_)))))) + (let* ((_%__match3941639417%_ + (lambda (_%e3526135277%_ + _%hd3526035281%_ + _%tl3525935284%_ + _%e3526435287%_ + _%hd3526335291%_ + _%tl3526235294%_) + (let ((_%L35297%_ _%tl3526235294%_) + (_%L35299%_ _%hd3526335291%_)) + (if (gx#stx-list? _%L35297%_) + (_%__kont3937039371%_ _%L35297%_ _%L35299%_) + (let () (declare (not safe)) (_%g3524135270%_)))))) + (_%__match3940439405%_ + (lambda (_%e3525335385%_ + _%hd3525235389%_ + _%tl3525135392%_ + _%e3525635395%_ + _%hd3525535399%_ + _%tl3525435402%_) + (let ((_%L35405%_ _%tl3525435402%_)) + (if (gx#stx-list? _%L35405%_) + (_%__kont3936839369%_ _%L35405%_) + (_%__match3941639417%_ + _%e3525335385%_ + _%hd3525235389%_ + _%tl3525135392%_ + _%e3525635395%_ + _%hd3525535399%_ + _%tl3525435402%_))))) + (_%__match3938839389%_ + (lambda (_%e3524635490%_ + _%hd3524535494%_ + _%tl3524435497%_ + _%e3524935500%_ + _%hd3524835504%_ + _%tl3524735507%_) + (let ((_%L35510%_ _%tl3524735507%_)) + (if (gx#stx-list? _%L35510%_) + (_%__kont3936639367%_ _%L35510%_) + (_%__match3941639417%_ + _%e3524635490%_ + _%hd3524535494%_ + _%tl3524435497%_ + _%e3524935500%_ + _%hd3524835504%_ + _%tl3524735507%_)))))) + (if (gx#stx-pair? _%__stx3936339364%_) + (let ((_%e3524635490%_ (gx#syntax-e _%__stx3936339364%_))) + (let ((_%tl3524435497%_ (let () (declare (not safe)) - (##cdr _%e3533535579%_))) - (_%hd3533435583%_ + (##cdr _%e3524635490%_))) + (_%hd3524535494%_ (let () (declare (not safe)) - (##car _%e3533535579%_)))) - (if (gx#stx-pair? _%tl3533335586%_) - (let ((_%e3533835589%_ - (gx#syntax-e _%tl3533335586%_))) - (let ((_%tl3533635596%_ + (##car _%e3524635490%_)))) + (if (gx#stx-pair? _%tl3524435497%_) + (let ((_%e3524935500%_ + (gx#syntax-e _%tl3524435497%_))) + (let ((_%tl3524735507%_ (let () (declare (not safe)) - (##cdr _%e3533835589%_))) - (_%hd3533735593%_ + (##cdr _%e3524935500%_))) + (_%hd3524835504%_ (let () (declare (not safe)) - (##car _%e3533835589%_)))) - (if (gx#identifier? _%hd3533735593%_) + (##car _%e3524935500%_)))) + (if (gx#identifier? _%hd3524835504%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40129_| - _%hd3533735593%_) - (_%__match3947739478%_ - _%e3533535579%_ - _%hd3533435583%_ - _%tl3533335586%_ - _%e3533835589%_ - _%hd3533735593%_ - _%tl3533635596%_) + |gerbil/core/match[1]#_g39960_| + _%hd3524835504%_) + (_%__match3938839389%_ + _%e3524635490%_ + _%hd3524535494%_ + _%tl3524435497%_ + _%e3524935500%_ + _%hd3524835504%_ + _%tl3524735507%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40130_| - _%hd3533735593%_) - (_%__match3949339494%_ - _%e3533535579%_ - _%hd3533435583%_ - _%tl3533335586%_ - _%e3533835589%_ - _%hd3533735593%_ - _%tl3533635596%_) - (_%__match3950539506%_ - _%e3533535579%_ - _%hd3533435583%_ - _%tl3533335586%_ - _%e3533835589%_ - _%hd3533735593%_ - _%tl3533635596%_))) - (_%__match3950539506%_ - _%e3533535579%_ - _%hd3533435583%_ - _%tl3533335586%_ - _%e3533835589%_ - _%hd3533735593%_ - _%tl3533635596%_)))) - (let () (declare (not safe)) (_%g3533035359%_))))) - (let () (declare (not safe)) (_%g3533035359%_)))))))) + |gerbil/core/match[1]#_g39961_| + _%hd3524835504%_) + (_%__match3940439405%_ + _%e3524635490%_ + _%hd3524535494%_ + _%tl3524435497%_ + _%e3524935500%_ + _%hd3524835504%_ + _%tl3524735507%_) + (_%__match3941639417%_ + _%e3524635490%_ + _%hd3524535494%_ + _%tl3524435497%_ + _%e3524935500%_ + _%hd3524835504%_ + _%tl3524735507%_))) + (_%__match3941639417%_ + _%e3524635490%_ + _%hd3524535494%_ + _%tl3524435497%_ + _%e3524935500%_ + _%hd3524835504%_ + _%tl3524735507%_)))) + (let () (declare (not safe)) (_%g3524135270%_))))) + (let () (declare (not safe)) (_%g3524135270%_)))))))) (define |gerbil/core/match[:0:]#match*| - (lambda (_%stx35681%_) - (let* ((_%g3568435708%_ - (lambda (_%g3568535704%_) + (lambda (_%stx35592%_) + (let* ((_%g3559535619%_ + (lambda (_%g3559635615%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3568535704%_))) - (_%g3568335920%_ - (lambda (_%g3568535712%_) - (if (gx#stx-pair? _%g3568535712%_) - (let ((_%e3569035715%_ (gx#syntax-e _%g3568535712%_))) - (let ((_%hd3568935719%_ + _%g3559635615%_))) + (_%g3559435831%_ + (lambda (_%g3559635623%_) + (if (gx#stx-pair? _%g3559635623%_) + (let ((_%e3560135626%_ (gx#syntax-e _%g3559635623%_))) + (let ((_%hd3560035630%_ (let () (declare (not safe)) - (##car _%e3569035715%_))) - (_%tl3568835722%_ + (##car _%e3560135626%_))) + (_%tl3559935633%_ (let () (declare (not safe)) - (##cdr _%e3569035715%_)))) - (if (gx#stx-pair? _%tl3568835722%_) - (let ((_%e3569335725%_ - (gx#syntax-e _%tl3568835722%_))) - (let ((_%hd3569235729%_ + (##cdr _%e3560135626%_)))) + (if (gx#stx-pair? _%tl3559935633%_) + (let ((_%e3560435636%_ + (gx#syntax-e _%tl3559935633%_))) + (let ((_%hd3560335640%_ (let () (declare (not safe)) - (##car _%e3569335725%_))) - (_%tl3569135732%_ + (##car _%e3560435636%_))) + (_%tl3560235643%_ (let () (declare (not safe)) - (##cdr _%e3569335725%_)))) - (if (gx#stx-pair/null? _%hd3569235729%_) - (let ((_g40131_ + (##cdr _%e3560435636%_)))) + (if (gx#stx-pair/null? _%hd3560335640%_) + (let ((_g39962_ (gx#syntax-split-splice - _%hd3569235729%_ + _%hd3560335640%_ '0))) (begin - (let ((_g40132_ + (let ((_g39963_ (let () (declare (not safe)) - (if (##values? _g40131_) + (if (##values? _g39962_) (##vector-length - _g40131_) + _g39962_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g40132_ 2))) + (##fx= _g39963_ 2))) (error "Context expects 2 values" - _g40132_))) - (let ((_%target3569435735%_ + _g39963_))) + (let ((_%target3560535646%_ (let () (declare (not safe)) - (##vector-ref _g40131_ 0))) - (_%tl3569635738%_ + (##vector-ref _g39962_ 0))) + (_%tl3560735649%_ (let () (declare (not safe)) - (##vector-ref _g40131_ 1)))) - (if (gx#stx-null? _%tl3569635738%_) - (letrec ((_%loop3569735741%_ - (lambda (_%hd3569535745%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e3570135748%_) - (if (gx#stx-pair? _%hd3569535745%_) - (let ((_%e3569835751%_ (gx#syntax-e _%hd3569535745%_))) - (let ((_%lp-hd3569935755%_ + (##vector-ref _g39962_ 1)))) + (if (gx#stx-null? _%tl3560735649%_) + (letrec ((_%loop3560835652%_ + (lambda (_%hd3560635656%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%e3561235659%_) + (if (gx#stx-pair? _%hd3560635656%_) + (let ((_%e3560935662%_ (gx#syntax-e _%hd3560635656%_))) + (let ((_%lp-hd3561035666%_ (let () (declare (not safe)) - (##car _%e3569835751%_))) - (_%lp-tl3570035758%_ + (##car _%e3560935662%_))) + (_%lp-tl3561135669%_ (let () (declare (not safe)) - (##cdr _%e3569835751%_)))) - (_%loop3569735741%_ - _%lp-tl3570035758%_ - (cons _%lp-hd3569935755%_ _%e3570135748%_)))) - (let ((_%e3570235761%_ (reverse _%e3570135748%_))) - ((lambda (_%L35765%_ _%L35767%_) - (if (gx#stx-list? _%L35765%_) - (let* ((_%g3578535802%_ - (lambda (_%g3578635798%_) + (##cdr _%e3560935662%_)))) + (_%loop3560835652%_ + _%lp-tl3561135669%_ + (cons _%lp-hd3561035666%_ _%e3561235659%_)))) + (let ((_%e3561335672%_ (reverse _%e3561235659%_))) + ((lambda (_%L35676%_ _%L35678%_) + (if (gx#stx-list? _%L35676%_) + (let* ((_%g3569635713%_ + (lambda (_%g3569735709%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3578635798%_))) - (_%g3578435908%_ - (lambda (_%g3578635806%_) + _%g3569735709%_))) + (_%g3569535819%_ + (lambda (_%g3569735717%_) (if (gx#stx-pair/null? - _%g3578635806%_) - (let ((_g40133_ + _%g3569735717%_) + (let ((_g39964_ (gx#syntax-split-splice - _%g3578635806%_ + _%g3569735717%_ '0))) (begin - (let ((_g40134_ + (let ((_g39965_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g40133_) - (##vector-length _g40133_) + _g39964_) + (##vector-length _g39964_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g40134_ 2))) - (error "Context expects 2 values" _g40134_))) + (##fx= _g39965_ 2))) + (error "Context expects 2 values" _g39965_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target3578835809%_ + (let ((_%target3569935720%_ (let () (declare (not safe)) (##vector-ref - _g40133_ + _g39964_ 0))) - (_%tl3579035812%_ + (_%tl3570135723%_ (let () (declare (not safe)) (##vector-ref - _g40133_ + _g39964_ 1)))) (if (gx#stx-null? - _%tl3579035812%_) - (letrec ((_%loop3579135815%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd3578935819%_ _%$e3579535822%_) - (if (gx#stx-pair? _%hd3578935819%_) - (let ((_%e3579235825%_ - (gx#syntax-e _%hd3578935819%_))) - (let ((_%lp-hd3579335829%_ + _%tl3570135723%_) + (letrec ((_%loop3570235726%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd3570035730%_ _%$e3570635733%_) + (if (gx#stx-pair? _%hd3570035730%_) + (let ((_%e3570335736%_ + (gx#syntax-e _%hd3570035730%_))) + (let ((_%lp-hd3570435740%_ (let () (declare (not safe)) - (##car _%e3579235825%_))) - (_%lp-tl3579435832%_ + (##car _%e3570335736%_))) + (_%lp-tl3570535743%_ (let () (declare (not safe)) - (##cdr _%e3579235825%_)))) - (_%loop3579135815%_ - _%lp-tl3579435832%_ - (cons _%lp-hd3579335829%_ - _%$e3579535822%_)))) - (let ((_%$e3579635835%_ - (reverse _%$e3579535822%_))) - ((lambda (_%L35839%_) - (let () - (let* ((_%g3585535863%_ - (lambda (_%g3585635859%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g3585635859%_))) - (_%g3585435896%_ - (lambda (_%g3585635867%_) - ((lambda (_%L35870%_) - (let () - (cons (gx#datum->syntax - '#f - 'let) - (cons (begin -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-check-splice-targets - _%L35767%_ - _%L35839%_) - (foldr (lambda (_%g3588435888%_ - _%g3588535891%_ - _%g3588635893%_) - (cons (cons _%g3588535891%_ - (cons _%g3588435888%_ '())) - _%g3588635893%_)) - '() - _%L35767%_ - _%L35839%_)) - (cons _%L35870%_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3585635867%_)))) - (_%g3585435896%_ - (let ((__tmp40135 - (foldr (lambda (_%g3589935902%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g3590035905%_) - (cons _%g3589935902%_ _%g3590035905%_)) - '() - _%L35839%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (|gerbil/core/match[1]#generate-match*| - _%stx35681%_ - __tmp40135 - _%L35765%_)))))) - _%$e3579635835%_)))))) - (_%loop3579135815%_ _%target3578835809%_ '())) - (_%g3578535802%_ _%g3578635806%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3578535802%_ - _%g3578635806%_))))) - (_%g3578435908%_ + (##cdr _%e3570335736%_)))) + (_%loop3570235726%_ + _%lp-tl3570535743%_ + (cons _%lp-hd3570435740%_ + _%$e3570635733%_)))) + (let ((_%$e3570735746%_ + (reverse _%$e3570635733%_))) + ((lambda (_%L35750%_) + (let* ((_%g3576635774%_ + (lambda (_%g3576735770%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g3576735770%_))) + (_%g3576535807%_ + (lambda (_%g3576735778%_) + ((lambda (_%L35781%_) + (cons (gx#datum->syntax + '#f + 'let) + (cons (begin +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-check-splice-targets _%L35678%_ _%L35750%_) + (foldr (lambda (_%g3579535799%_ + _%g3579635802%_ + _%g3579735804%_) + (cons (cons _%g3579635802%_ + (cons _%g3579535799%_ '())) + _%g3579735804%_)) + '() + _%L35678%_ + _%L35750%_)) + (cons _%L35781%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g3576735778%_)))) + (_%g3576535807%_ + (|gerbil/core/match[1]#generate-match*| + _%stx35592%_ + (foldr (lambda (_%g3581035813%_ + _%g3581135816%_) + (cons _%g3581035813%_ + _%g3581135816%_)) + '() + _%L35750%_) + _%L35676%_)))) + _%$e3570735746%_)))))) + (_%loop3570235726%_ _%target3569935720%_ '())) + (_%g3569635713%_ _%g3569735717%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g3569635713%_ + _%g3569735717%_))))) + (_%g3569535819%_ (gx#gentemps - (foldr (lambda (_%g3591135914%_ - _%g3591235917%_) - (cons _%g3591135914%_ - _%g3591235917%_)) + (foldr (lambda (_%g3582235825%_ + _%g3582335828%_) + (cons _%g3582235825%_ + _%g3582335828%_)) '() - _%L35767%_)))) - (_%g3568435708%_ _%g3568535712%_))) - _%tl3569135732%_ - _%e3570235761%_)))))) + _%L35678%_)))) + (_%g3559535619%_ _%g3559635623%_))) + _%tl3560235643%_ + _%e3561335672%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop3569735741%_ - _%target3569435735%_ + (_%loop3560835652%_ + _%target3560535646%_ '())) - (_%g3568435708%_ - _%g3568535712%_))))) - (_%g3568435708%_ _%g3568535712%_)))) - (_%g3568435708%_ _%g3568535712%_)))) - (_%g3568435708%_ _%g3568535712%_))))) - (_%g3568335920%_ _%stx35681%_)))) + (_%g3559535619%_ + _%g3559635623%_))))) + (_%g3559535619%_ _%g3559635623%_)))) + (_%g3559535619%_ _%g3559635623%_)))) + (_%g3559535619%_ _%g3559635623%_))))) + (_%g3559435831%_ _%stx35592%_)))) (define |gerbil/core/match[:0:]#with| - (lambda (_%$stx35926%_) - (let* ((_%__stx3950839509%_ _%$stx35926%_) - (_%g3593236015%_ + (lambda (_%$stx35837%_) + (let* ((_%__stx3941939420%_ _%$stx35837%_) + (_%g3584335926%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3950839509%_)))) - (let ((_%__kont3951139512%_ - (lambda (_%L36345%_) + _%__stx3941939420%_)))) + (let ((_%__kont3942239423%_ + (lambda (_%L36256%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g3636136364%_ _%g3636236367%_) - (cons _%g3636136364%_ _%g3636236367%_)) + (foldr (lambda (_%g3627236275%_ _%g3627336278%_) + (cons _%g3627236275%_ _%g3627336278%_)) '() - _%L36345%_))))) - (_%__kont3951539516%_ - (lambda (_%L36253%_ _%L36255%_ _%L36256%_ _%L36257%_) - (cons _%L36257%_ - (cons (cons (cons _%L36256%_ (cons _%L36255%_ '())) + _%L36256%_))))) + (_%__kont3942639427%_ + (lambda (_%L36164%_ _%L36166%_ _%L36167%_ _%L36168%_) + (cons _%L36168%_ + (cons (cons (cons _%L36167%_ (cons _%L36166%_ '())) '()) - (foldr (lambda (_%g3627936282%_ _%g3628036285%_) - (cons _%g3627936282%_ _%g3628036285%_)) + (foldr (lambda (_%g3619036193%_ _%g3619136196%_) + (cons _%g3619036193%_ _%g3619136196%_)) '() - _%L36253%_))))) - (_%__kont3951939520%_ - (lambda (_%L36126%_ _%L36128%_ _%L36129%_) + _%L36164%_))))) + (_%__kont3943039431%_ + (lambda (_%L36037%_ _%L36039%_ _%L36040%_) (cons (gx#datum->syntax '#f 'match*) - (cons (foldr (lambda (_%g3615536158%_ _%g3615636161%_) - (cons _%g3615536158%_ _%g3615636161%_)) + (cons (foldr (lambda (_%g3606636069%_ _%g3606736072%_) + (cons _%g3606636069%_ _%g3606736072%_)) '() - _%L36128%_) - (cons (cons (foldr (lambda (_%g3615336164%_ - _%g3615436167%_) - (cons _%g3615336164%_ - _%g3615436167%_)) + _%L36039%_) + (cons (cons (foldr (lambda (_%g3606436075%_ + _%g3606536078%_) + (cons _%g3606436075%_ + _%g3606536078%_)) '() - _%L36129%_) - (foldr (lambda (_%g3615136170%_ - _%g3615236173%_) - (cons _%g3615136170%_ - _%g3615236173%_)) + _%L36040%_) + (foldr (lambda (_%g3606236081%_ + _%g3606336084%_) + (cons _%g3606236081%_ + _%g3606336084%_)) '() - _%L36126%_)) + _%L36037%_)) '())))))) - (let* ((_%__match3960139602%_ - (lambda (_%e3598036022%_ - _%hd3597936026%_ - _%tl3597836029%_ - _%e3598336032%_ - _%hd3598236036%_ - _%tl3598136039%_ - _%__splice3952139522%_ - _%target3598436042%_ - _%tl3598636045%_) - (letrec ((_%loop3598736048%_ - (lambda (_%hd3598536052%_ - _%expr3599136055%_ - _%hd3599236057%_) - (if (gx#stx-pair? _%hd3598536052%_) - (let ((_%e3598836060%_ - (gx#syntax-e _%hd3598536052%_))) - (let ((_%lp-tl3599036067%_ + (let* ((_%__match3951239513%_ + (lambda (_%e3589135933%_ + _%hd3589035937%_ + _%tl3588935940%_ + _%e3589435943%_ + _%hd3589335947%_ + _%tl3589235950%_ + _%__splice3943239433%_ + _%target3589535953%_ + _%tl3589735956%_) + (letrec ((_%loop3589835959%_ + (lambda (_%hd3589635963%_ + _%expr3590235966%_ + _%hd3590335968%_) + (if (gx#stx-pair? _%hd3589635963%_) + (let ((_%e3589935971%_ + (gx#syntax-e _%hd3589635963%_))) + (let ((_%lp-tl3590135978%_ (let () (declare (not safe)) - (##cdr _%e3598836060%_))) - (_%lp-hd3598936064%_ + (##cdr _%e3589935971%_))) + (_%lp-hd3590035975%_ (let () (declare (not safe)) - (##car _%e3598836060%_)))) + (##car _%e3589935971%_)))) (if (gx#stx-pair? - _%lp-hd3598936064%_) - (let ((_%e3599736070%_ + _%lp-hd3590035975%_) + (let ((_%e3590835981%_ (gx#syntax-e - _%lp-hd3598936064%_))) - (let ((_%tl3599536077%_ + _%lp-hd3590035975%_))) + (let ((_%tl3590635988%_ (let () (declare (not safe)) - (##cdr _%e3599736070%_))) - (_%hd3599636074%_ + (##cdr _%e3590835981%_))) + (_%hd3590735985%_ (let () (declare (not safe)) - (##car _%e3599736070%_)))) + (##car _%e3590835981%_)))) (if (gx#stx-pair? - _%tl3599536077%_) - (let ((_%e3600036080%_ + _%tl3590635988%_) + (let ((_%e3591135991%_ (gx#syntax-e - _%tl3599536077%_))) - (let ((_%tl3599836087%_ + _%tl3590635988%_))) + (let ((_%tl3590935998%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3600036080%_))) - (_%hd3599936084%_ - (let () (declare (not safe)) (##car _%e3600036080%_)))) - (if (gx#stx-null? _%tl3599836087%_) - (_%loop3598736048%_ - _%lp-tl3599036067%_ - (cons _%hd3599936084%_ _%expr3599136055%_) - (cons _%hd3599636074%_ _%hd3599236057%_)) - (let () (declare (not safe)) (_%g3593236015%_))))) - (let () (declare (not safe)) (_%g3593236015%_))))) + (##cdr _%e3591135991%_))) + (_%hd3591035995%_ + (let () (declare (not safe)) (##car _%e3591135991%_)))) + (if (gx#stx-null? _%tl3590935998%_) + (_%loop3589835959%_ + _%lp-tl3590135978%_ + (cons _%hd3591035995%_ _%expr3590235966%_) + (cons _%hd3590735985%_ _%hd3590335968%_)) + (let () (declare (not safe)) (_%g3584335926%_))))) + (let () (declare (not safe)) (_%g3584335926%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3593236015%_))))) - (let ((_%hd3599436093%_ - (reverse _%hd3599236057%_)) - (_%expr3599336090%_ - (reverse _%expr3599136055%_))) + (_%g3584335926%_))))) + (let ((_%hd3590536004%_ + (reverse _%hd3590335968%_)) + (_%expr3590436001%_ + (reverse _%expr3590235966%_))) (if (gx#stx-pair/null? - _%tl3598136039%_) - (let ((_%__splice3952339524%_ + _%tl3589235950%_) + (let ((_%__splice3943439435%_ (gx#syntax-split-splice - _%tl3598136039%_ + _%tl3589235950%_ '0))) - (let ((_%tl3600336099%_ + (let ((_%tl3591436010%_ (let () (declare (not safe)) (##vector-ref - _%__splice3952339524%_ + _%__splice3943439435%_ '1))) - (_%target3600136096%_ + (_%target3591236007%_ (let () (declare (not safe)) (##vector-ref - _%__splice3952339524%_ + _%__splice3943439435%_ '0)))) (if (gx#stx-null? - _%tl3600336099%_) - (letrec ((_%loop3600436102%_ - (lambda (_%hd3600236106%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body3600836109%_) - (if (gx#stx-pair? _%hd3600236106%_) - (let ((_%e3600536112%_ - (gx#syntax-e _%hd3600236106%_))) - (let ((_%lp-tl3600736119%_ + _%tl3591436010%_) + (letrec ((_%loop3591536013%_ + (lambda (_%hd3591336017%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body3591936020%_) + (if (gx#stx-pair? _%hd3591336017%_) + (let ((_%e3591636023%_ + (gx#syntax-e _%hd3591336017%_))) + (let ((_%lp-tl3591836030%_ (let () (declare (not safe)) - (##cdr _%e3600536112%_))) - (_%lp-hd3600636116%_ + (##cdr _%e3591636023%_))) + (_%lp-hd3591736027%_ (let () (declare (not safe)) - (##car _%e3600536112%_)))) - (_%loop3600436102%_ - _%lp-tl3600736119%_ - (cons _%lp-hd3600636116%_ - _%body3600836109%_)))) - (let ((_%body3600936122%_ - (reverse _%body3600836109%_))) - (_%__kont3951939520%_ - _%body3600936122%_ - _%expr3599336090%_ - _%hd3599436093%_)))))) - (_%loop3600436102%_ _%target3600136096%_ '())) + (##car _%e3591636023%_)))) + (_%loop3591536013%_ + _%lp-tl3591836030%_ + (cons _%lp-hd3591736027%_ + _%body3591936020%_)))) + (let ((_%body3592036033%_ + (reverse _%body3591936020%_))) + (_%__kont3943039431%_ + _%body3592036033%_ + _%expr3590436001%_ + _%hd3590536004%_)))))) + (_%loop3591536013%_ _%target3591236007%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3593236015%_))))) + (_%g3584335926%_))))) (let () (declare (not safe)) - (_%g3593236015%_)))))))) - (_%loop3598736048%_ _%target3598436042%_ '() '())))) - (_%__match3959339594%_ - (lambda (_%e3598036022%_ - _%hd3597936026%_ - _%tl3597836029%_ - _%e3598336032%_ - _%hd3598236036%_ - _%tl3598136039%_) - (if (gx#stx-pair/null? _%hd3598236036%_) - (let ((_%__splice3952139522%_ - (gx#syntax-split-splice _%hd3598236036%_ '0))) - (let ((_%tl3598636045%_ + (_%g3584335926%_)))))))) + (_%loop3589835959%_ _%target3589535953%_ '() '())))) + (_%__match3950439505%_ + (lambda (_%e3589135933%_ + _%hd3589035937%_ + _%tl3588935940%_ + _%e3589435943%_ + _%hd3589335947%_ + _%tl3589235950%_) + (if (gx#stx-pair/null? _%hd3589335947%_) + (let ((_%__splice3943239433%_ + (gx#syntax-split-splice _%hd3589335947%_ '0))) + (let ((_%tl3589735956%_ (let () (declare (not safe)) - (##vector-ref _%__splice3952139522%_ '1))) - (_%target3598436042%_ + (##vector-ref _%__splice3943239433%_ '1))) + (_%target3589535953%_ (let () (declare (not safe)) (##vector-ref - _%__splice3952139522%_ + _%__splice3943239433%_ '0)))) - (if (gx#stx-null? _%tl3598636045%_) - (_%__match3960139602%_ - _%e3598036022%_ - _%hd3597936026%_ - _%tl3597836029%_ - _%e3598336032%_ - _%hd3598236036%_ - _%tl3598136039%_ - _%__splice3952139522%_ - _%target3598436042%_ - _%tl3598636045%_) + (if (gx#stx-null? _%tl3589735956%_) + (_%__match3951239513%_ + _%e3589135933%_ + _%hd3589035937%_ + _%tl3588935940%_ + _%e3589435943%_ + _%hd3589335947%_ + _%tl3589235950%_ + _%__splice3943239433%_ + _%target3589535953%_ + _%tl3589735956%_) (let () (declare (not safe)) - (_%g3593236015%_))))) - (let () (declare (not safe)) (_%g3593236015%_))))) - (_%__match3958139582%_ - (lambda (_%e3595636183%_ - _%hd3595536187%_ - _%tl3595436190%_ - _%e3595936193%_ - _%hd3595836197%_ - _%tl3595736200%_ - _%e3596236203%_ - _%hd3596136207%_ - _%tl3596036210%_ - _%e3596536213%_ - _%hd3596436217%_ - _%tl3596336220%_ - _%__splice3951739518%_ - _%target3596636223%_ - _%tl3596836226%_) - (letrec ((_%loop3596936229%_ - (lambda (_%hd3596736233%_ _%body3597336236%_) - (if (gx#stx-pair? _%hd3596736233%_) - (let ((_%e3597036239%_ - (gx#syntax-e _%hd3596736233%_))) - (let ((_%lp-tl3597236246%_ + (_%g3584335926%_))))) + (let () (declare (not safe)) (_%g3584335926%_))))) + (_%__match3949239493%_ + (lambda (_%e3586736094%_ + _%hd3586636098%_ + _%tl3586536101%_ + _%e3587036104%_ + _%hd3586936108%_ + _%tl3586836111%_ + _%e3587336114%_ + _%hd3587236118%_ + _%tl3587136121%_ + _%e3587636124%_ + _%hd3587536128%_ + _%tl3587436131%_ + _%__splice3942839429%_ + _%target3587736134%_ + _%tl3587936137%_) + (letrec ((_%loop3588036140%_ + (lambda (_%hd3587836144%_ _%body3588436147%_) + (if (gx#stx-pair? _%hd3587836144%_) + (let ((_%e3588136150%_ + (gx#syntax-e _%hd3587836144%_))) + (let ((_%lp-tl3588336157%_ (let () (declare (not safe)) - (##cdr _%e3597036239%_))) - (_%lp-hd3597136243%_ + (##cdr _%e3588136150%_))) + (_%lp-hd3588236154%_ (let () (declare (not safe)) - (##car _%e3597036239%_)))) - (_%loop3596936229%_ - _%lp-tl3597236246%_ - (cons _%lp-hd3597136243%_ - _%body3597336236%_)))) - (let ((_%body3597436249%_ - (reverse _%body3597336236%_))) - (let ((_%L36253%_ _%body3597436249%_) - (_%L36255%_ _%hd3596436217%_) - (_%L36256%_ _%hd3596136207%_) - (_%L36257%_ _%hd3595536187%_)) - (if (let () - (declare (not safe)) - (|gerbil/core/match[1]#match-pattern?| - _%L36256%_)) - (_%__kont3951539516%_ - _%L36253%_ - _%L36255%_ - _%L36256%_ - _%L36257%_) - (_%__match3959339594%_ - _%e3595636183%_ - _%hd3595536187%_ - _%tl3595436190%_ - _%e3595936193%_ - _%hd3595836197%_ - _%tl3595736200%_)))))))) - (_%loop3596936229%_ _%target3596636223%_ '())))) - (_%__match3954739548%_ - (lambda (_%e3593736295%_ - _%hd3593636299%_ - _%tl3593536302%_ - _%e3594036305%_ - _%hd3593936309%_ - _%tl3593836312%_ - _%__splice3951339514%_ - _%target3594136315%_ - _%tl3594336318%_) - (letrec ((_%loop3594436321%_ - (lambda (_%hd3594236325%_ _%body3594836328%_) - (if (gx#stx-pair? _%hd3594236325%_) - (let ((_%e3594536331%_ - (gx#syntax-e _%hd3594236325%_))) - (let ((_%lp-tl3594736338%_ + (##car _%e3588136150%_)))) + (_%loop3588036140%_ + _%lp-tl3588336157%_ + (cons _%lp-hd3588236154%_ + _%body3588436147%_)))) + (let ((_%body3588536160%_ + (reverse _%body3588436147%_))) + (let ((_%L36164%_ _%body3588536160%_) + (_%L36166%_ _%hd3587536128%_) + (_%L36167%_ _%hd3587236118%_) + (_%L36168%_ _%hd3586636098%_)) + (if (|gerbil/core/match[1]#match-pattern?| + _%L36167%_) + (_%__kont3942639427%_ + _%L36164%_ + _%L36166%_ + _%L36167%_ + _%L36168%_) + (_%__match3950439505%_ + _%e3586736094%_ + _%hd3586636098%_ + _%tl3586536101%_ + _%e3587036104%_ + _%hd3586936108%_ + _%tl3586836111%_)))))))) + (_%loop3588036140%_ _%target3587736134%_ '())))) + (_%__match3945839459%_ + (lambda (_%e3584836206%_ + _%hd3584736210%_ + _%tl3584636213%_ + _%e3585136216%_ + _%hd3585036220%_ + _%tl3584936223%_ + _%__splice3942439425%_ + _%target3585236226%_ + _%tl3585436229%_) + (letrec ((_%loop3585536232%_ + (lambda (_%hd3585336236%_ _%body3585936239%_) + (if (gx#stx-pair? _%hd3585336236%_) + (let ((_%e3585636242%_ + (gx#syntax-e _%hd3585336236%_))) + (let ((_%lp-tl3585836249%_ (let () (declare (not safe)) - (##cdr _%e3594536331%_))) - (_%lp-hd3594636335%_ + (##cdr _%e3585636242%_))) + (_%lp-hd3585736246%_ (let () (declare (not safe)) - (##car _%e3594536331%_)))) - (_%loop3594436321%_ - _%lp-tl3594736338%_ - (cons _%lp-hd3594636335%_ - _%body3594836328%_)))) - (let ((_%body3594936341%_ - (reverse _%body3594836328%_))) - (_%__kont3951139512%_ - _%body3594936341%_)))))) - (_%loop3594436321%_ _%target3594136315%_ '()))))) - (if (gx#stx-pair? _%__stx3950839509%_) - (let ((_%e3593736295%_ (gx#syntax-e _%__stx3950839509%_))) - (let ((_%tl3593536302%_ + (##car _%e3585636242%_)))) + (_%loop3585536232%_ + _%lp-tl3585836249%_ + (cons _%lp-hd3585736246%_ + _%body3585936239%_)))) + (let ((_%body3586036252%_ + (reverse _%body3585936239%_))) + (_%__kont3942239423%_ + _%body3586036252%_)))))) + (_%loop3585536232%_ _%target3585236226%_ '()))))) + (if (gx#stx-pair? _%__stx3941939420%_) + (let ((_%e3584836206%_ (gx#syntax-e _%__stx3941939420%_))) + (let ((_%tl3584636213%_ (let () (declare (not safe)) - (##cdr _%e3593736295%_))) - (_%hd3593636299%_ + (##cdr _%e3584836206%_))) + (_%hd3584736210%_ (let () (declare (not safe)) - (##car _%e3593736295%_)))) - (if (gx#stx-pair? _%tl3593536302%_) - (let ((_%e3594036305%_ - (gx#syntax-e _%tl3593536302%_))) - (let ((_%tl3593836312%_ + (##car _%e3584836206%_)))) + (if (gx#stx-pair? _%tl3584636213%_) + (let ((_%e3585136216%_ + (gx#syntax-e _%tl3584636213%_))) + (let ((_%tl3584936223%_ (let () (declare (not safe)) - (##cdr _%e3594036305%_))) - (_%hd3593936309%_ + (##cdr _%e3585136216%_))) + (_%hd3585036220%_ (let () (declare (not safe)) - (##car _%e3594036305%_)))) - (if (gx#stx-null? _%hd3593936309%_) - (if (gx#stx-pair/null? _%tl3593836312%_) - (let ((_%__splice3951339514%_ + (##car _%e3585136216%_)))) + (if (gx#stx-null? _%hd3585036220%_) + (if (gx#stx-pair/null? _%tl3584936223%_) + (let ((_%__splice3942439425%_ (gx#syntax-split-splice - _%tl3593836312%_ + _%tl3584936223%_ '0))) - (let ((_%tl3594336318%_ + (let ((_%tl3585436229%_ (let () (declare (not safe)) (##vector-ref - _%__splice3951339514%_ + _%__splice3942439425%_ '1))) - (_%target3594136315%_ + (_%target3585236226%_ (let () (declare (not safe)) (##vector-ref - _%__splice3951339514%_ + _%__splice3942439425%_ '0)))) - (if (gx#stx-null? _%tl3594336318%_) - (_%__match3954739548%_ - _%e3593736295%_ - _%hd3593636299%_ - _%tl3593536302%_ - _%e3594036305%_ - _%hd3593936309%_ - _%tl3593836312%_ - _%__splice3951339514%_ - _%target3594136315%_ - _%tl3594336318%_) + (if (gx#stx-null? _%tl3585436229%_) + (_%__match3945839459%_ + _%e3584836206%_ + _%hd3584736210%_ + _%tl3584636213%_ + _%e3585136216%_ + _%hd3585036220%_ + _%tl3584936223%_ + _%__splice3942439425%_ + _%target3585236226%_ + _%tl3585436229%_) (if (gx#stx-pair/null? - _%hd3593936309%_) - (let ((_%__splice3952139522%_ + _%hd3585036220%_) + (let ((_%__splice3943239433%_ (gx#syntax-split-splice - _%hd3593936309%_ + _%hd3585036220%_ '0))) - (let ((_%tl3598636045%_ + (let ((_%tl3589735956%_ (let () (declare (not safe)) (##vector-ref - _%__splice3952139522%_ + _%__splice3943239433%_ '1))) - (_%target3598436042%_ + (_%target3589535953%_ (let () (declare (not safe)) (##vector-ref - _%__splice3952139522%_ + _%__splice3943239433%_ '0)))) (if (gx#stx-null? - _%tl3598636045%_) - (_%__match3960139602%_ - _%e3593736295%_ - _%hd3593636299%_ - _%tl3593536302%_ - _%e3594036305%_ - _%hd3593936309%_ - _%tl3593836312%_ - _%__splice3952139522%_ - _%target3598436042%_ - _%tl3598636045%_) + _%tl3589735956%_) + (_%__match3951239513%_ + _%e3584836206%_ + _%hd3584736210%_ + _%tl3584636213%_ + _%e3585136216%_ + _%hd3585036220%_ + _%tl3584936223%_ + _%__splice3943239433%_ + _%target3589535953%_ + _%tl3589735956%_) (let () (declare (not safe)) - (_%g3593236015%_))))) + (_%g3584335926%_))))) (let () (declare (not safe)) - (_%g3593236015%_)))))) - (if (gx#stx-pair/null? _%hd3593936309%_) - (let ((_%__splice3952139522%_ + (_%g3584335926%_)))))) + (if (gx#stx-pair/null? _%hd3585036220%_) + (let ((_%__splice3943239433%_ (gx#syntax-split-splice - _%hd3593936309%_ + _%hd3585036220%_ '0))) - (let ((_%tl3598636045%_ + (let ((_%tl3589735956%_ (let () (declare (not safe)) (##vector-ref - _%__splice3952139522%_ + _%__splice3943239433%_ '1))) - (_%target3598436042%_ + (_%target3589535953%_ (let () (declare (not safe)) (##vector-ref - _%__splice3952139522%_ + _%__splice3943239433%_ '0)))) (if (gx#stx-null? - _%tl3598636045%_) - (_%__match3960139602%_ - _%e3593736295%_ - _%hd3593636299%_ - _%tl3593536302%_ - _%e3594036305%_ - _%hd3593936309%_ - _%tl3593836312%_ - _%__splice3952139522%_ - _%target3598436042%_ - _%tl3598636045%_) + _%tl3589735956%_) + (_%__match3951239513%_ + _%e3584836206%_ + _%hd3584736210%_ + _%tl3584636213%_ + _%e3585136216%_ + _%hd3585036220%_ + _%tl3584936223%_ + _%__splice3943239433%_ + _%target3589535953%_ + _%tl3589735956%_) (let () (declare (not safe)) - (_%g3593236015%_))))) + (_%g3584335926%_))))) (let () (declare (not safe)) - (_%g3593236015%_)))) - (if (gx#stx-pair? _%hd3593936309%_) - (let ((_%e3596236203%_ - (gx#syntax-e _%hd3593936309%_))) - (let ((_%tl3596036210%_ + (_%g3584335926%_)))) + (if (gx#stx-pair? _%hd3585036220%_) + (let ((_%e3587336114%_ + (gx#syntax-e _%hd3585036220%_))) + (let ((_%tl3587136121%_ (let () (declare (not safe)) - (##cdr _%e3596236203%_))) - (_%hd3596136207%_ + (##cdr _%e3587336114%_))) + (_%hd3587236118%_ (let () (declare (not safe)) - (##car _%e3596236203%_)))) - (if (gx#stx-pair? _%tl3596036210%_) - (let ((_%e3596536213%_ + (##car _%e3587336114%_)))) + (if (gx#stx-pair? _%tl3587136121%_) + (let ((_%e3587636124%_ (gx#syntax-e - _%tl3596036210%_))) - (let ((_%tl3596336220%_ + _%tl3587136121%_))) + (let ((_%tl3587436131%_ (let () (declare (not safe)) - (##cdr _%e3596536213%_))) - (_%hd3596436217%_ + (##cdr _%e3587636124%_))) + (_%hd3587536128%_ (let () (declare (not safe)) - (##car _%e3596536213%_)))) + (##car _%e3587636124%_)))) (if (gx#stx-null? - _%tl3596336220%_) + _%tl3587436131%_) (if (gx#stx-pair/null? - _%tl3593836312%_) - (let ((_%__splice3951739518%_ + _%tl3584936223%_) + (let ((_%__splice3942839429%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl3593836312%_ '0))) - (let ((_%tl3596836226%_ + (gx#syntax-split-splice _%tl3584936223%_ '0))) + (let ((_%tl3587936137%_ (let () (declare (not safe)) - (##vector-ref _%__splice3951739518%_ '1))) - (_%target3596636223%_ + (##vector-ref _%__splice3942839429%_ '1))) + (_%target3587736134%_ (let () (declare (not safe)) - (##vector-ref _%__splice3951739518%_ '0)))) - (if (gx#stx-null? _%tl3596836226%_) - (_%__match3958139582%_ - _%e3593736295%_ - _%hd3593636299%_ - _%tl3593536302%_ - _%e3594036305%_ - _%hd3593936309%_ - _%tl3593836312%_ - _%e3596236203%_ - _%hd3596136207%_ - _%tl3596036210%_ - _%e3596536213%_ - _%hd3596436217%_ - _%tl3596336220%_ - _%__splice3951739518%_ - _%target3596636223%_ - _%tl3596836226%_) - (if (gx#stx-pair/null? _%hd3593936309%_) - (let ((_%__splice3952139522%_ + (##vector-ref _%__splice3942839429%_ '0)))) + (if (gx#stx-null? _%tl3587936137%_) + (_%__match3949239493%_ + _%e3584836206%_ + _%hd3584736210%_ + _%tl3584636213%_ + _%e3585136216%_ + _%hd3585036220%_ + _%tl3584936223%_ + _%e3587336114%_ + _%hd3587236118%_ + _%tl3587136121%_ + _%e3587636124%_ + _%hd3587536128%_ + _%tl3587436131%_ + _%__splice3942839429%_ + _%target3587736134%_ + _%tl3587936137%_) + (if (gx#stx-pair/null? _%hd3585036220%_) + (let ((_%__splice3943239433%_ (gx#syntax-split-splice - _%hd3593936309%_ + _%hd3585036220%_ '0))) - (let ((_%tl3598636045%_ + (let ((_%tl3589735956%_ (let () (declare (not safe)) (##vector-ref - _%__splice3952139522%_ + _%__splice3943239433%_ '1))) - (_%target3598436042%_ + (_%target3589535953%_ (let () (declare (not safe)) (##vector-ref - _%__splice3952139522%_ + _%__splice3943239433%_ '0)))) - (if (gx#stx-null? _%tl3598636045%_) - (_%__match3960139602%_ - _%e3593736295%_ - _%hd3593636299%_ - _%tl3593536302%_ - _%e3594036305%_ - _%hd3593936309%_ - _%tl3593836312%_ - _%__splice3952139522%_ - _%target3598436042%_ - _%tl3598636045%_) + (if (gx#stx-null? _%tl3589735956%_) + (_%__match3951239513%_ + _%e3584836206%_ + _%hd3584736210%_ + _%tl3584636213%_ + _%e3585136216%_ + _%hd3585036220%_ + _%tl3584936223%_ + _%__splice3943239433%_ + _%target3589535953%_ + _%tl3589735956%_) (let () (declare (not safe)) - (_%g3593236015%_))))) + (_%g3584335926%_))))) (let () (declare (not safe)) - (_%g3593236015%_)))))) - (if (gx#stx-pair/null? _%hd3593936309%_) - (let ((_%__splice3952139522%_ - (gx#syntax-split-splice _%hd3593936309%_ '0))) - (let ((_%tl3598636045%_ + (_%g3584335926%_)))))) + (if (gx#stx-pair/null? _%hd3585036220%_) + (let ((_%__splice3943239433%_ + (gx#syntax-split-splice _%hd3585036220%_ '0))) + (let ((_%tl3589735956%_ (let () (declare (not safe)) - (##vector-ref _%__splice3952139522%_ '1))) - (_%target3598436042%_ + (##vector-ref _%__splice3943239433%_ '1))) + (_%target3589535953%_ (let () (declare (not safe)) - (##vector-ref _%__splice3952139522%_ '0)))) - (if (gx#stx-null? _%tl3598636045%_) - (_%__match3960139602%_ - _%e3593736295%_ - _%hd3593636299%_ - _%tl3593536302%_ - _%e3594036305%_ - _%hd3593936309%_ - _%tl3593836312%_ - _%__splice3952139522%_ - _%target3598436042%_ - _%tl3598636045%_) + (##vector-ref _%__splice3943239433%_ '0)))) + (if (gx#stx-null? _%tl3589735956%_) + (_%__match3951239513%_ + _%e3584836206%_ + _%hd3584736210%_ + _%tl3584636213%_ + _%e3585136216%_ + _%hd3585036220%_ + _%tl3584936223%_ + _%__splice3943239433%_ + _%target3589535953%_ + _%tl3589735956%_) (let () (declare (not safe)) - (_%g3593236015%_))))) - (let () (declare (not safe)) (_%g3593236015%_)))) - (if (gx#stx-pair/null? _%hd3593936309%_) - (let ((_%__splice3952139522%_ - (gx#syntax-split-splice _%hd3593936309%_ '0))) - (let ((_%tl3598636045%_ + (_%g3584335926%_))))) + (let () (declare (not safe)) (_%g3584335926%_)))) + (if (gx#stx-pair/null? _%hd3585036220%_) + (let ((_%__splice3943239433%_ + (gx#syntax-split-splice _%hd3585036220%_ '0))) + (let ((_%tl3589735956%_ (let () (declare (not safe)) - (##vector-ref _%__splice3952139522%_ '1))) - (_%target3598436042%_ + (##vector-ref _%__splice3943239433%_ '1))) + (_%target3589535953%_ (let () (declare (not safe)) - (##vector-ref _%__splice3952139522%_ '0)))) - (if (gx#stx-null? _%tl3598636045%_) - (_%__match3960139602%_ - _%e3593736295%_ - _%hd3593636299%_ - _%tl3593536302%_ - _%e3594036305%_ - _%hd3593936309%_ - _%tl3593836312%_ - _%__splice3952139522%_ - _%target3598436042%_ - _%tl3598636045%_) - (let () (declare (not safe)) (_%g3593236015%_))))) - (let () (declare (not safe)) (_%g3593236015%_)))))) + (##vector-ref _%__splice3943239433%_ '0)))) + (if (gx#stx-null? _%tl3589735956%_) + (_%__match3951239513%_ + _%e3584836206%_ + _%hd3584736210%_ + _%tl3584636213%_ + _%e3585136216%_ + _%hd3585036220%_ + _%tl3584936223%_ + _%__splice3943239433%_ + _%target3589535953%_ + _%tl3589735956%_) + (let () (declare (not safe)) (_%g3584335926%_))))) + (let () (declare (not safe)) (_%g3584335926%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd3593936309%_) - (let ((_%__splice3952139522%_ + _%hd3585036220%_) + (let ((_%__splice3943239433%_ (gx#syntax-split-splice - _%hd3593936309%_ + _%hd3585036220%_ '0))) - (let ((_%tl3598636045%_ + (let ((_%tl3589735956%_ (let () (declare (not safe)) (##vector-ref - _%__splice3952139522%_ + _%__splice3943239433%_ '1))) - (_%target3598436042%_ + (_%target3589535953%_ (let () (declare (not safe)) (##vector-ref - _%__splice3952139522%_ + _%__splice3943239433%_ '0)))) (if (gx#stx-null? - _%tl3598636045%_) - (_%__match3960139602%_ - _%e3593736295%_ - _%hd3593636299%_ - _%tl3593536302%_ - _%e3594036305%_ - _%hd3593936309%_ - _%tl3593836312%_ - _%__splice3952139522%_ - _%target3598436042%_ - _%tl3598636045%_) + _%tl3589735956%_) + (_%__match3951239513%_ + _%e3584836206%_ + _%hd3584736210%_ + _%tl3584636213%_ + _%e3585136216%_ + _%hd3585036220%_ + _%tl3584936223%_ + _%__splice3943239433%_ + _%target3589535953%_ + _%tl3589735956%_) (let () (declare (not safe)) - (_%g3593236015%_))))) + (_%g3584335926%_))))) (let () (declare (not safe)) - (_%g3593236015%_)))))) - (if (gx#stx-pair/null? _%hd3593936309%_) - (let ((_%__splice3952139522%_ + (_%g3584335926%_)))))) + (if (gx#stx-pair/null? _%hd3585036220%_) + (let ((_%__splice3943239433%_ (gx#syntax-split-splice - _%hd3593936309%_ + _%hd3585036220%_ '0))) - (let ((_%tl3598636045%_ + (let ((_%tl3589735956%_ (let () (declare (not safe)) (##vector-ref - _%__splice3952139522%_ + _%__splice3943239433%_ '1))) - (_%target3598436042%_ + (_%target3589535953%_ (let () (declare (not safe)) (##vector-ref - _%__splice3952139522%_ + _%__splice3943239433%_ '0)))) (if (gx#stx-null? - _%tl3598636045%_) - (_%__match3960139602%_ - _%e3593736295%_ - _%hd3593636299%_ - _%tl3593536302%_ - _%e3594036305%_ - _%hd3593936309%_ - _%tl3593836312%_ - _%__splice3952139522%_ - _%target3598436042%_ - _%tl3598636045%_) + _%tl3589735956%_) + (_%__match3951239513%_ + _%e3584836206%_ + _%hd3584736210%_ + _%tl3584636213%_ + _%e3585136216%_ + _%hd3585036220%_ + _%tl3584936223%_ + _%__splice3943239433%_ + _%target3589535953%_ + _%tl3589735956%_) (let () (declare (not safe)) - (_%g3593236015%_))))) + (_%g3584335926%_))))) (let () (declare (not safe)) - (_%g3593236015%_))))))) - (let () (declare (not safe)) (_%g3593236015%_))))) - (let () (declare (not safe)) (_%g3593236015%_)))))))) + (_%g3584335926%_))))))) + (let () (declare (not safe)) (_%g3584335926%_))))) + (let () (declare (not safe)) (_%g3584335926%_)))))))) (define |gerbil/core/match[:0:]#with*| - (lambda (_%$stx36378%_) - (let* ((_%__stx3960439605%_ _%$stx36378%_) - (_%g3638336435%_ + (lambda (_%$stx36289%_) + (let* ((_%__stx3951539516%_ _%$stx36289%_) + (_%g3629436346%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3960439605%_)))) - (let ((_%__kont3960739608%_ - (lambda (_%L36605%_ - _%L36607%_ - _%L36608%_ - _%L36609%_ - _%L36610%_) + _%__stx3951539516%_)))) + (let ((_%__kont3951839519%_ + (lambda (_%L36516%_ + _%L36518%_ + _%L36519%_ + _%L36520%_ + _%L36521%_) (cons (gx#datum->syntax '#f 'with) - (cons (cons (cons _%L36609%_ (cons _%L36608%_ '())) + (cons (cons (cons _%L36520%_ (cons _%L36519%_ '())) '()) - (cons (cons _%L36610%_ - (cons _%L36607%_ - (foldr (lambda (_%g3663536638%_ + (cons (cons _%L36521%_ + (cons _%L36518%_ + (foldr (lambda (_%g3654636549%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g3663636641%_) - (cons _%g3663536638%_ _%g3663636641%_)) + _%g3654736552%_) + (cons _%g3654636549%_ _%g3654736552%_)) '() - _%L36605%_))) + _%L36516%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3961139612%_ - (lambda (_%L36492%_) + (_%__kont3952239523%_ + (lambda (_%L36403%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g3650936512%_ _%g3651036515%_) - (cons _%g3650936512%_ _%g3651036515%_)) + (foldr (lambda (_%g3642036423%_ _%g3642136426%_) + (cons _%g3642036423%_ _%g3642136426%_)) '() - _%L36492%_)))))) - (let* ((_%__match3967739678%_ - (lambda (_%e3641736442%_ - _%hd3641636446%_ - _%tl3641536449%_ - _%e3642036452%_ - _%hd3641936456%_ - _%tl3641836459%_ - _%__splice3961339614%_ - _%target3642136462%_ - _%tl3642336465%_) - (letrec ((_%loop3642436468%_ - (lambda (_%hd3642236472%_ _%body3642836475%_) - (if (gx#stx-pair? _%hd3642236472%_) - (let ((_%e3642536478%_ - (gx#syntax-e _%hd3642236472%_))) - (let ((_%lp-tl3642736485%_ + _%L36403%_)))))) + (let* ((_%__match3958839589%_ + (lambda (_%e3632836353%_ + _%hd3632736357%_ + _%tl3632636360%_ + _%e3633136363%_ + _%hd3633036367%_ + _%tl3632936370%_ + _%__splice3952439525%_ + _%target3633236373%_ + _%tl3633436376%_) + (letrec ((_%loop3633536379%_ + (lambda (_%hd3633336383%_ _%body3633936386%_) + (if (gx#stx-pair? _%hd3633336383%_) + (let ((_%e3633636389%_ + (gx#syntax-e _%hd3633336383%_))) + (let ((_%lp-tl3633836396%_ (let () (declare (not safe)) - (##cdr _%e3642536478%_))) - (_%lp-hd3642636482%_ + (##cdr _%e3633636389%_))) + (_%lp-hd3633736393%_ (let () (declare (not safe)) - (##car _%e3642536478%_)))) - (_%loop3642436468%_ - _%lp-tl3642736485%_ - (cons _%lp-hd3642636482%_ - _%body3642836475%_)))) - (let ((_%body3642936488%_ - (reverse _%body3642836475%_))) - (_%__kont3961139612%_ - _%body3642936488%_)))))) - (_%loop3642436468%_ _%target3642136462%_ '())))) - (_%__match3965539656%_ - (lambda (_%e3639236525%_ - _%hd3639136529%_ - _%tl3639036532%_ - _%e3639536535%_ - _%hd3639436539%_ - _%tl3639336542%_ - _%e3639836545%_ - _%hd3639736549%_ - _%tl3639636552%_ - _%e3640136555%_ - _%hd3640036559%_ - _%tl3639936562%_ - _%e3640436565%_ - _%hd3640336569%_ - _%tl3640236572%_ - _%__splice3960939610%_ - _%target3640536575%_ - _%tl3640736578%_) - (letrec ((_%loop3640836581%_ - (lambda (_%hd3640636585%_ _%body3641236588%_) - (if (gx#stx-pair? _%hd3640636585%_) - (let ((_%e3640936591%_ - (gx#syntax-e _%hd3640636585%_))) - (let ((_%lp-tl3641136598%_ + (##car _%e3633636389%_)))) + (_%loop3633536379%_ + _%lp-tl3633836396%_ + (cons _%lp-hd3633736393%_ + _%body3633936386%_)))) + (let ((_%body3634036399%_ + (reverse _%body3633936386%_))) + (_%__kont3952239523%_ + _%body3634036399%_)))))) + (_%loop3633536379%_ _%target3633236373%_ '())))) + (_%__match3956639567%_ + (lambda (_%e3630336436%_ + _%hd3630236440%_ + _%tl3630136443%_ + _%e3630636446%_ + _%hd3630536450%_ + _%tl3630436453%_ + _%e3630936456%_ + _%hd3630836460%_ + _%tl3630736463%_ + _%e3631236466%_ + _%hd3631136470%_ + _%tl3631036473%_ + _%e3631536476%_ + _%hd3631436480%_ + _%tl3631336483%_ + _%__splice3952039521%_ + _%target3631636486%_ + _%tl3631836489%_) + (letrec ((_%loop3631936492%_ + (lambda (_%hd3631736496%_ _%body3632336499%_) + (if (gx#stx-pair? _%hd3631736496%_) + (let ((_%e3632036502%_ + (gx#syntax-e _%hd3631736496%_))) + (let ((_%lp-tl3632236509%_ (let () (declare (not safe)) - (##cdr _%e3640936591%_))) - (_%lp-hd3641036595%_ + (##cdr _%e3632036502%_))) + (_%lp-hd3632136506%_ (let () (declare (not safe)) - (##car _%e3640936591%_)))) - (_%loop3640836581%_ - _%lp-tl3641136598%_ - (cons _%lp-hd3641036595%_ - _%body3641236588%_)))) - (let ((_%body3641336601%_ - (reverse _%body3641236588%_))) - (_%__kont3960739608%_ - _%body3641336601%_ - _%tl3639636552%_ - _%hd3640336569%_ - _%hd3640036559%_ - _%hd3639136529%_)))))) - (_%loop3640836581%_ _%target3640536575%_ '()))))) - (if (gx#stx-pair? _%__stx3960439605%_) - (let ((_%e3639236525%_ (gx#syntax-e _%__stx3960439605%_))) - (let ((_%tl3639036532%_ + (##car _%e3632036502%_)))) + (_%loop3631936492%_ + _%lp-tl3632236509%_ + (cons _%lp-hd3632136506%_ + _%body3632336499%_)))) + (let ((_%body3632436512%_ + (reverse _%body3632336499%_))) + (_%__kont3951839519%_ + _%body3632436512%_ + _%tl3630736463%_ + _%hd3631436480%_ + _%hd3631136470%_ + _%hd3630236440%_)))))) + (_%loop3631936492%_ _%target3631636486%_ '()))))) + (if (gx#stx-pair? _%__stx3951539516%_) + (let ((_%e3630336436%_ (gx#syntax-e _%__stx3951539516%_))) + (let ((_%tl3630136443%_ (let () (declare (not safe)) - (##cdr _%e3639236525%_))) - (_%hd3639136529%_ + (##cdr _%e3630336436%_))) + (_%hd3630236440%_ (let () (declare (not safe)) - (##car _%e3639236525%_)))) - (if (gx#stx-pair? _%tl3639036532%_) - (let ((_%e3639536535%_ - (gx#syntax-e _%tl3639036532%_))) - (let ((_%tl3639336542%_ + (##car _%e3630336436%_)))) + (if (gx#stx-pair? _%tl3630136443%_) + (let ((_%e3630636446%_ + (gx#syntax-e _%tl3630136443%_))) + (let ((_%tl3630436453%_ (let () (declare (not safe)) - (##cdr _%e3639536535%_))) - (_%hd3639436539%_ + (##cdr _%e3630636446%_))) + (_%hd3630536450%_ (let () (declare (not safe)) - (##car _%e3639536535%_)))) - (if (gx#stx-pair? _%hd3639436539%_) - (let ((_%e3639836545%_ - (gx#syntax-e _%hd3639436539%_))) - (let ((_%tl3639636552%_ + (##car _%e3630636446%_)))) + (if (gx#stx-pair? _%hd3630536450%_) + (let ((_%e3630936456%_ + (gx#syntax-e _%hd3630536450%_))) + (let ((_%tl3630736463%_ (let () (declare (not safe)) - (##cdr _%e3639836545%_))) - (_%hd3639736549%_ + (##cdr _%e3630936456%_))) + (_%hd3630836460%_ (let () (declare (not safe)) - (##car _%e3639836545%_)))) - (if (gx#stx-pair? _%hd3639736549%_) - (let ((_%e3640136555%_ + (##car _%e3630936456%_)))) + (if (gx#stx-pair? _%hd3630836460%_) + (let ((_%e3631236466%_ (gx#syntax-e - _%hd3639736549%_))) - (let ((_%tl3639936562%_ + _%hd3630836460%_))) + (let ((_%tl3631036473%_ (let () (declare (not safe)) - (##cdr _%e3640136555%_))) - (_%hd3640036559%_ + (##cdr _%e3631236466%_))) + (_%hd3631136470%_ (let () (declare (not safe)) - (##car _%e3640136555%_)))) + (##car _%e3631236466%_)))) (if (gx#stx-pair? - _%tl3639936562%_) - (let ((_%e3640436565%_ + _%tl3631036473%_) + (let ((_%e3631536476%_ (gx#syntax-e - _%tl3639936562%_))) - (let ((_%tl3640236572%_ + _%tl3631036473%_))) + (let ((_%tl3631336483%_ (let () (declare (not safe)) - (##cdr _%e3640436565%_))) - (_%hd3640336569%_ + (##cdr _%e3631536476%_))) + (_%hd3631436480%_ (let () (declare (not safe)) - (##car _%e3640436565%_)))) + (##car _%e3631536476%_)))) (if (gx#stx-null? - _%tl3640236572%_) + _%tl3631336483%_) (if (gx#stx-pair/null? - _%tl3639336542%_) - (let ((_%__splice3960939610%_ + _%tl3630436453%_) + (let ((_%__splice3952039521%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl3639336542%_ '0))) - (let ((_%tl3640736578%_ + (gx#syntax-split-splice _%tl3630436453%_ '0))) + (let ((_%tl3631836489%_ (let () (declare (not safe)) - (##vector-ref _%__splice3960939610%_ '1))) - (_%target3640536575%_ + (##vector-ref _%__splice3952039521%_ '1))) + (_%target3631636486%_ (let () (declare (not safe)) - (##vector-ref _%__splice3960939610%_ '0)))) - (if (gx#stx-null? _%tl3640736578%_) - (_%__match3965539656%_ - _%e3639236525%_ - _%hd3639136529%_ - _%tl3639036532%_ - _%e3639536535%_ - _%hd3639436539%_ - _%tl3639336542%_ - _%e3639836545%_ - _%hd3639736549%_ - _%tl3639636552%_ - _%e3640136555%_ - _%hd3640036559%_ - _%tl3639936562%_ - _%e3640436565%_ - _%hd3640336569%_ - _%tl3640236572%_ - _%__splice3960939610%_ - _%target3640536575%_ - _%tl3640736578%_) + (##vector-ref _%__splice3952039521%_ '0)))) + (if (gx#stx-null? _%tl3631836489%_) + (_%__match3956639567%_ + _%e3630336436%_ + _%hd3630236440%_ + _%tl3630136443%_ + _%e3630636446%_ + _%hd3630536450%_ + _%tl3630436453%_ + _%e3630936456%_ + _%hd3630836460%_ + _%tl3630736463%_ + _%e3631236466%_ + _%hd3631136470%_ + _%tl3631036473%_ + _%e3631536476%_ + _%hd3631436480%_ + _%tl3631336483%_ + _%__splice3952039521%_ + _%target3631636486%_ + _%tl3631836489%_) (let () (declare (not safe)) - (_%g3638336435%_))))) - (let () (declare (not safe)) (_%g3638336435%_))) - (let () (declare (not safe)) (_%g3638336435%_))))) + (_%g3629436346%_))))) + (let () (declare (not safe)) (_%g3629436346%_))) + (let () (declare (not safe)) (_%g3629436346%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3638336435%_))))) + (_%g3629436346%_))))) (let () (declare (not safe)) - (_%g3638336435%_))))) - (if (gx#stx-null? _%hd3639436539%_) - (if (gx#stx-pair/null? _%tl3639336542%_) - (let ((_%__splice3961339614%_ + (_%g3629436346%_))))) + (if (gx#stx-null? _%hd3630536450%_) + (if (gx#stx-pair/null? _%tl3630436453%_) + (let ((_%__splice3952439525%_ (gx#syntax-split-splice - _%tl3639336542%_ + _%tl3630436453%_ '0))) - (let ((_%tl3642336465%_ + (let ((_%tl3633436376%_ (let () (declare (not safe)) (##vector-ref - _%__splice3961339614%_ + _%__splice3952439525%_ '1))) - (_%target3642136462%_ + (_%target3633236373%_ (let () (declare (not safe)) (##vector-ref - _%__splice3961339614%_ + _%__splice3952439525%_ '0)))) (if (gx#stx-null? - _%tl3642336465%_) - (_%__match3967739678%_ - _%e3639236525%_ - _%hd3639136529%_ - _%tl3639036532%_ - _%e3639536535%_ - _%hd3639436539%_ - _%tl3639336542%_ - _%__splice3961339614%_ - _%target3642136462%_ - _%tl3642336465%_) + _%tl3633436376%_) + (_%__match3958839589%_ + _%e3630336436%_ + _%hd3630236440%_ + _%tl3630136443%_ + _%e3630636446%_ + _%hd3630536450%_ + _%tl3630436453%_ + _%__splice3952439525%_ + _%target3633236373%_ + _%tl3633436376%_) (let () (declare (not safe)) - (_%g3638336435%_))))) + (_%g3629436346%_))))) (let () (declare (not safe)) - (_%g3638336435%_))) + (_%g3629436346%_))) (let () (declare (not safe)) - (_%g3638336435%_)))))) - (let () (declare (not safe)) (_%g3638336435%_))))) - (let () (declare (not safe)) (_%g3638336435%_)))))))) + (_%g3629436346%_)))))) + (let () (declare (not safe)) (_%g3629436346%_))))) + (let () (declare (not safe)) (_%g3629436346%_)))))))) (define |gerbil/core/match[:0:]#?| - (lambda (_%$stx36650%_) - (let* ((_%__stx3968039681%_ _%$stx36650%_) - (_%g3666136807%_ + (lambda (_%$stx36561%_) + (let* ((_%__stx3959139592%_ _%$stx36561%_) + (_%g3657236718%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3968039681%_)))) - (let ((_%__kont3968339684%_ - (lambda (_%L37411%_ _%L37413%_ _%L37414%_) + _%__stx3959139592%_)))) + (let ((_%__kont3959439595%_ + (lambda (_%L37322%_ _%L37324%_ _%L37325%_) (cons (gx#datum->syntax '#f 'and) - (foldr (lambda (_%g3743537438%_ _%g3743637441%_) - (cons (cons _%L37414%_ - (cons _%g3743537438%_ - (cons _%L37411%_ '()))) - _%g3743637441%_)) + (foldr (lambda (_%g3734637349%_ _%g3734737352%_) + (cons (cons _%L37325%_ + (cons _%g3734637349%_ + (cons _%L37322%_ '()))) + _%g3734737352%_)) '() - _%L37413%_)))) - (_%__kont3968739688%_ - (lambda (_%L37301%_ _%L37303%_ _%L37304%_) + _%L37324%_)))) + (_%__kont3959839599%_ + (lambda (_%L37212%_ _%L37214%_ _%L37215%_) (cons (gx#datum->syntax '#f 'or) - (foldr (lambda (_%g3732537328%_ _%g3732637331%_) - (cons (cons _%L37304%_ - (cons _%g3732537328%_ - (cons _%L37301%_ '()))) - _%g3732637331%_)) + (foldr (lambda (_%g3723637239%_ _%g3723737242%_) + (cons (cons _%L37215%_ + (cons _%g3723637239%_ + (cons _%L37212%_ '()))) + _%g3723737242%_)) '() - _%L37303%_)))) - (_%__kont3969139692%_ - (lambda (_%L37201%_ _%L37203%_ _%L37204%_) + _%L37214%_)))) + (_%__kont3960239603%_ + (lambda (_%L37112%_ _%L37114%_ _%L37115%_) (cons (gx#datum->syntax '#f 'not) - (cons (cons _%L37204%_ - (cons _%L37203%_ (cons _%L37201%_ '()))) + (cons (cons _%L37115%_ + (cons _%L37114%_ (cons _%L37112%_ '()))) '())))) - (_%__kont3969339694%_ - (lambda (_%L37127%_ _%L37129%_) - (cons _%L37129%_ (cons _%L37127%_ '())))) - (_%__kont3969539696%_ - (lambda (_%L37075%_ _%L37077%_) + (_%__kont3960439605%_ + (lambda (_%L37038%_ _%L37040%_) + (cons _%L37040%_ (cons _%L37038%_ '())))) + (_%__kont3960639607%_ + (lambda (_%L36986%_ _%L36988%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) - (cons (cons _%L37077%_ - (cons _%L37075%_ + (cons (cons _%L36988%_ + (cons _%L36986%_ (cons (gx#datum->syntax '#f '$obj) '()))) '()))))) - (_%__kont3969739698%_ - (lambda (_%L37027%_ _%L37029%_ _%L37030%_) + (_%__kont3960839609%_ + (lambda (_%L36938%_ _%L36940%_ _%L36941%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) (cons (cons (gx#datum->syntax '#f 'alet) (cons (cons (gx#datum->syntax '#f '$val) - (cons (cons _%L37030%_ + (cons (cons _%L36941%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L37029%_ + (cons _%L36940%_ (cons (gx#datum->syntax '#f '$obj) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L37027%_ + (cons (cons _%L36938%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7194,20 +6639,20 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3969939700%_ - (lambda (_%L36958%_ _%L36960%_ _%L36961%_) + (_%__kont3961039611%_ + (lambda (_%L36869%_ _%L36871%_ _%L36872%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) (cons (cons (gx#datum->syntax '#f 'and) - (cons (cons _%L36961%_ - (cons _%L36960%_ + (cons (cons _%L36872%_ + (cons _%L36871%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L36958%_ + (cons (cons _%L36869%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7216,1806 +6661,1806 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3970139702%_ - (lambda (_%L36878%_ _%L36880%_ _%L36881%_ _%L36882%_) + (_%__kont3961239613%_ + (lambda (_%L36789%_ _%L36791%_ _%L36792%_ _%L36793%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) (cons (cons (gx#datum->syntax '#f 'and) - (cons (cons _%L36882%_ - (cons _%L36881%_ + (cons (cons _%L36793%_ + (cons _%L36792%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L36878%_ - (cons (cons _%L36880%_ + (cons (cons _%L36789%_ + (cons (cons _%L36791%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f '$obj) '())) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match3985339854%_ - (lambda (_%e3675336987%_ - _%hd3675236991%_ - _%tl3675136994%_ - _%e3675636997%_ - _%hd3675537001%_ - _%tl3675437004%_ - _%e3675937007%_ - _%hd3675837011%_ - _%tl3675737014%_) - (if (gx#identifier? _%hd3675837011%_) + (let* ((_%__match3976439765%_ + (lambda (_%e3666436898%_ + _%hd3666336902%_ + _%tl3666236905%_ + _%e3666736908%_ + _%hd3666636912%_ + _%tl3666536915%_ + _%e3667036918%_ + _%hd3666936922%_ + _%tl3666836925%_) + (if (gx#identifier? _%hd3666936922%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40136_| - _%hd3675837011%_) - (if (gx#stx-pair? _%tl3675737014%_) - (let ((_%e3676237017%_ - (gx#syntax-e _%tl3675737014%_))) - (let ((_%tl3676037024%_ + |gerbil/core/match[1]#_g39966_| + _%hd3666936922%_) + (if (gx#stx-pair? _%tl3666836925%_) + (let ((_%e3667336928%_ + (gx#syntax-e _%tl3666836925%_))) + (let ((_%tl3667136935%_ (let () (declare (not safe)) - (##cdr _%e3676237017%_))) - (_%hd3676137021%_ + (##cdr _%e3667336928%_))) + (_%hd3667236932%_ (let () (declare (not safe)) - (##car _%e3676237017%_)))) - (if (gx#stx-null? _%tl3676037024%_) - (_%__kont3969739698%_ - _%hd3676137021%_ - _%hd3675537001%_ - _%hd3675236991%_) + (##car _%e3667336928%_)))) + (if (gx#stx-null? _%tl3667136935%_) + (_%__kont3960839609%_ + _%hd3667236932%_ + _%hd3666636912%_ + _%hd3666336902%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_))) - (if (gx#stx-datum? _%hd3675837011%_) - (let ((_%e3677536944%_ - (gx#stx-e _%hd3675837011%_))) - (if (equal? _%e3677536944%_ '::) - (if (gx#stx-pair? _%tl3675737014%_) - (let ((_%e3677836948%_ - (gx#syntax-e _%tl3675737014%_))) - (let ((_%tl3677636955%_ + (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_))) + (if (gx#stx-datum? _%hd3666936922%_) + (let ((_%e3668636855%_ + (gx#stx-e _%hd3666936922%_))) + (if (equal? _%e3668636855%_ '::) + (if (gx#stx-pair? _%tl3666836925%_) + (let ((_%e3668936859%_ + (gx#syntax-e _%tl3666836925%_))) + (let ((_%tl3668736866%_ (let () (declare (not safe)) - (##cdr _%e3677836948%_))) - (_%hd3677736952%_ + (##cdr _%e3668936859%_))) + (_%hd3668836863%_ (let () (declare (not safe)) - (##car _%e3677836948%_)))) - (if (gx#stx-null? _%tl3677636955%_) - (_%__kont3969939700%_ - _%hd3677736952%_ - _%hd3675537001%_ - _%hd3675236991%_) + (##car _%e3668936859%_)))) + (if (gx#stx-null? _%tl3668736866%_) + (_%__kont3961039611%_ + _%hd3668836863%_ + _%hd3666636912%_ + _%hd3666336902%_) (if (gx#stx-pair? - _%tl3677636955%_) - (let ((_%e3679836858%_ + _%tl3668736866%_) + (let ((_%e3670936769%_ (gx#syntax-e - _%tl3677636955%_))) - (let ((_%tl3679636865%_ + _%tl3668736866%_))) + (let ((_%tl3670736776%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3679836858%_))) - (_%hd3679736862%_ - (let () (declare (not safe)) (##car _%e3679836858%_)))) - (if (gx#identifier? _%hd3679736862%_) + (##cdr _%e3670936769%_))) + (_%hd3670836773%_ + (let () (declare (not safe)) (##car _%e3670936769%_)))) + (if (gx#identifier? _%hd3670836773%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40137_| - _%hd3679736862%_) - (if (gx#stx-pair? _%tl3679636865%_) - (let ((_%e3680136868%_ - (gx#syntax-e _%tl3679636865%_))) - (let ((_%tl3679936875%_ + |gerbil/core/match[1]#_g39967_| + _%hd3670836773%_) + (if (gx#stx-pair? _%tl3670736776%_) + (let ((_%e3671236779%_ + (gx#syntax-e _%tl3670736776%_))) + (let ((_%tl3671036786%_ (let () (declare (not safe)) - (##cdr _%e3680136868%_))) - (_%hd3680036872%_ + (##cdr _%e3671236779%_))) + (_%hd3671136783%_ (let () (declare (not safe)) - (##car _%e3680136868%_)))) - (if (gx#stx-null? _%tl3679936875%_) - (_%__kont3970139702%_ - _%hd3680036872%_ - _%hd3677736952%_ - _%hd3675537001%_ - _%hd3675236991%_) + (##car _%e3671236779%_)))) + (if (gx#stx-null? _%tl3671036786%_) + (_%__kont3961239613%_ + _%hd3671136783%_ + _%hd3668836863%_ + _%hd3666636912%_ + _%hd3666336902%_) (let () (declare (not safe)) - (_%g3666136807%_))))) - (let () (declare (not safe)) (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_))))) + (_%g3657236718%_))))) + (let () (declare (not safe)) (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3666136807%_)))))) + (_%g3657236718%_)))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_)))) + (_%g3657236718%_)))) (let () (declare (not safe)) - (_%g3666136807%_)))))) - (_%__match3983339834%_ - (lambda (_%e3674437055%_ - _%hd3674337059%_ - _%tl3674237062%_ - _%e3674737065%_ - _%hd3674637069%_ - _%tl3674537072%_) - (if (gx#stx-null? _%tl3674537072%_) - (_%__kont3969539696%_ - _%hd3674637069%_ - _%hd3674337059%_) - (if (gx#stx-pair? _%tl3674537072%_) - (let ((_%e3675937007%_ - (gx#syntax-e _%tl3674537072%_))) - (let ((_%tl3675737014%_ + (_%g3657236718%_)))))) + (_%__match3974439745%_ + (lambda (_%e3665536966%_ + _%hd3665436970%_ + _%tl3665336973%_ + _%e3665836976%_ + _%hd3665736980%_ + _%tl3665636983%_) + (if (gx#stx-null? _%tl3665636983%_) + (_%__kont3960639607%_ + _%hd3665736980%_ + _%hd3665436970%_) + (if (gx#stx-pair? _%tl3665636983%_) + (let ((_%e3667036918%_ + (gx#syntax-e _%tl3665636983%_))) + (let ((_%tl3666836925%_ (let () (declare (not safe)) - (##cdr _%e3675937007%_))) - (_%hd3675837011%_ + (##cdr _%e3667036918%_))) + (_%hd3666936922%_ (let () (declare (not safe)) - (##car _%e3675937007%_)))) - (if (gx#identifier? _%hd3675837011%_) + (##car _%e3667036918%_)))) + (if (gx#identifier? _%hd3666936922%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40136_| - _%hd3675837011%_) - (if (gx#stx-pair? _%tl3675737014%_) - (let ((_%e3676237017%_ + |gerbil/core/match[1]#_g39966_| + _%hd3666936922%_) + (if (gx#stx-pair? _%tl3666836925%_) + (let ((_%e3667336928%_ (gx#syntax-e - _%tl3675737014%_))) - (let ((_%tl3676037024%_ + _%tl3666836925%_))) + (let ((_%tl3667136935%_ (let () (declare (not safe)) - (##cdr _%e3676237017%_))) - (_%hd3676137021%_ + (##cdr _%e3667336928%_))) + (_%hd3667236932%_ (let () (declare (not safe)) - (##car _%e3676237017%_)))) + (##car _%e3667336928%_)))) (if (gx#stx-null? - _%tl3676037024%_) - (_%__kont3969739698%_ - _%hd3676137021%_ - _%hd3674637069%_ - _%hd3674337059%_) + _%tl3667136935%_) + (_%__kont3960839609%_ + _%hd3667236932%_ + _%hd3665736980%_ + _%hd3665436970%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))) - (if (gx#stx-datum? _%hd3675837011%_) - (let ((_%e3677536944%_ - (gx#stx-e _%hd3675837011%_))) - (if (equal? _%e3677536944%_ '::) + (_%g3657236718%_))) + (if (gx#stx-datum? _%hd3666936922%_) + (let ((_%e3668636855%_ + (gx#stx-e _%hd3666936922%_))) + (if (equal? _%e3668636855%_ '::) (if (gx#stx-pair? - _%tl3675737014%_) - (let ((_%e3677836948%_ + _%tl3666836925%_) + (let ((_%e3668936859%_ (gx#syntax-e - _%tl3675737014%_))) - (let ((_%tl3677636955%_ + _%tl3666836925%_))) + (let ((_%tl3668736866%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3677836948%_))) - (_%hd3677736952%_ - (let () (declare (not safe)) (##car _%e3677836948%_)))) - (if (gx#stx-null? _%tl3677636955%_) - (_%__kont3969939700%_ - _%hd3677736952%_ - _%hd3674637069%_ - _%hd3674337059%_) - (if (gx#stx-pair? _%tl3677636955%_) - (let ((_%e3679836858%_ (gx#syntax-e _%tl3677636955%_))) - (let ((_%tl3679636865%_ + (##cdr _%e3668936859%_))) + (_%hd3668836863%_ + (let () (declare (not safe)) (##car _%e3668936859%_)))) + (if (gx#stx-null? _%tl3668736866%_) + (_%__kont3961039611%_ + _%hd3668836863%_ + _%hd3665736980%_ + _%hd3665436970%_) + (if (gx#stx-pair? _%tl3668736866%_) + (let ((_%e3670936769%_ (gx#syntax-e _%tl3668736866%_))) + (let ((_%tl3670736776%_ (let () (declare (not safe)) - (##cdr _%e3679836858%_))) - (_%hd3679736862%_ + (##cdr _%e3670936769%_))) + (_%hd3670836773%_ (let () (declare (not safe)) - (##car _%e3679836858%_)))) - (if (gx#identifier? _%hd3679736862%_) + (##car _%e3670936769%_)))) + (if (gx#identifier? _%hd3670836773%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40137_| - _%hd3679736862%_) - (if (gx#stx-pair? _%tl3679636865%_) - (let ((_%e3680136868%_ - (gx#syntax-e _%tl3679636865%_))) - (let ((_%tl3679936875%_ + |gerbil/core/match[1]#_g39967_| + _%hd3670836773%_) + (if (gx#stx-pair? _%tl3670736776%_) + (let ((_%e3671236779%_ + (gx#syntax-e _%tl3670736776%_))) + (let ((_%tl3671036786%_ (let () (declare (not safe)) - (##cdr _%e3680136868%_))) - (_%hd3680036872%_ + (##cdr _%e3671236779%_))) + (_%hd3671136783%_ (let () (declare (not safe)) - (##car _%e3680136868%_)))) - (if (gx#stx-null? _%tl3679936875%_) - (_%__kont3970139702%_ - _%hd3680036872%_ - _%hd3677736952%_ - _%hd3674637069%_ - _%hd3674337059%_) + (##car _%e3671236779%_)))) + (if (gx#stx-null? _%tl3671036786%_) + (_%__kont3961239613%_ + _%hd3671136783%_ + _%hd3668836863%_ + _%hd3665736980%_ + _%hd3665436970%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))))) - (let () (declare (not safe)) (_%g3666136807%_)))))) + (_%g3657236718%_))))) + (let () (declare (not safe)) (_%g3657236718%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_)))) + (_%g3657236718%_)))) (let () (declare (not safe)) - (_%g3666136807%_)))))) + (_%g3657236718%_)))))) (let () (declare (not safe)) - (_%g3666136807%_)))))) - (_%__match3976339764%_ - (lambda (_%e3669237231%_ - _%hd3669137235%_ - _%tl3669037238%_ - _%e3669537241%_ - _%hd3669437245%_ - _%tl3669337248%_ - _%e3669837251%_ - _%hd3669737255%_ - _%tl3669637258%_ - _%__splice3968939690%_ - _%target3669937261%_ - _%tl3670137264%_) - (letrec ((_%loop3670237267%_ - (lambda (_%hd3670037271%_ _%pred3670637274%_) - (if (gx#stx-pair? _%hd3670037271%_) - (let ((_%e3670337277%_ - (gx#syntax-e _%hd3670037271%_))) - (let ((_%lp-tl3670537284%_ + (_%g3657236718%_)))))) + (_%__match3967439675%_ + (lambda (_%e3660337142%_ + _%hd3660237146%_ + _%tl3660137149%_ + _%e3660637152%_ + _%hd3660537156%_ + _%tl3660437159%_ + _%e3660937162%_ + _%hd3660837166%_ + _%tl3660737169%_ + _%__splice3960039601%_ + _%target3661037172%_ + _%tl3661237175%_) + (letrec ((_%loop3661337178%_ + (lambda (_%hd3661137182%_ _%pred3661737185%_) + (if (gx#stx-pair? _%hd3661137182%_) + (let ((_%e3661437188%_ + (gx#syntax-e _%hd3661137182%_))) + (let ((_%lp-tl3661637195%_ (let () (declare (not safe)) - (##cdr _%e3670337277%_))) - (_%lp-hd3670437281%_ + (##cdr _%e3661437188%_))) + (_%lp-hd3661537192%_ (let () (declare (not safe)) - (##car _%e3670337277%_)))) - (_%loop3670237267%_ - _%lp-tl3670537284%_ - (cons _%lp-hd3670437281%_ - _%pred3670637274%_)))) - (let ((_%pred3670737287%_ - (reverse _%pred3670637274%_))) - (if (gx#stx-pair? _%tl3669337248%_) - (let ((_%e3671037291%_ + (##car _%e3661437188%_)))) + (_%loop3661337178%_ + _%lp-tl3661637195%_ + (cons _%lp-hd3661537192%_ + _%pred3661737185%_)))) + (let ((_%pred3661837198%_ + (reverse _%pred3661737185%_))) + (if (gx#stx-pair? _%tl3660437159%_) + (let ((_%e3662137202%_ (gx#syntax-e - _%tl3669337248%_))) - (let ((_%tl3670837298%_ + _%tl3660437159%_))) + (let ((_%tl3661937209%_ (let () (declare (not safe)) - (##cdr _%e3671037291%_))) - (_%hd3670937295%_ + (##cdr _%e3662137202%_))) + (_%hd3662037206%_ (let () (declare (not safe)) - (##car _%e3671037291%_)))) + (##car _%e3662137202%_)))) (if (gx#stx-null? - _%tl3670837298%_) - (_%__kont3968739688%_ - _%hd3670937295%_ - _%pred3670737287%_ - _%hd3669137235%_) - (_%__match3985339854%_ - _%e3669237231%_ - _%hd3669137235%_ - _%tl3669037238%_ - _%e3669537241%_ - _%hd3669437245%_ - _%tl3669337248%_ - _%e3671037291%_ - _%hd3670937295%_ - _%tl3670837298%_)))) - (_%__match3983339834%_ - _%e3669237231%_ - _%hd3669137235%_ - _%tl3669037238%_ - _%e3669537241%_ - _%hd3669437245%_ - _%tl3669337248%_))))))) - (_%loop3670237267%_ _%target3669937261%_ '())))) - (_%__match3973339734%_ - (lambda (_%e3666837341%_ - _%hd3666737345%_ - _%tl3666637348%_ - _%e3667137351%_ - _%hd3667037355%_ - _%tl3666937358%_ - _%e3667437361%_ - _%hd3667337365%_ - _%tl3667237368%_ - _%__splice3968539686%_ - _%target3667537371%_ - _%tl3667737374%_) - (letrec ((_%loop3667837377%_ - (lambda (_%hd3667637381%_ _%pred3668237384%_) - (if (gx#stx-pair? _%hd3667637381%_) - (let ((_%e3667937387%_ - (gx#syntax-e _%hd3667637381%_))) - (let ((_%lp-tl3668137394%_ + _%tl3661937209%_) + (_%__kont3959839599%_ + _%hd3662037206%_ + _%pred3661837198%_ + _%hd3660237146%_) + (_%__match3976439765%_ + _%e3660337142%_ + _%hd3660237146%_ + _%tl3660137149%_ + _%e3660637152%_ + _%hd3660537156%_ + _%tl3660437159%_ + _%e3662137202%_ + _%hd3662037206%_ + _%tl3661937209%_)))) + (_%__match3974439745%_ + _%e3660337142%_ + _%hd3660237146%_ + _%tl3660137149%_ + _%e3660637152%_ + _%hd3660537156%_ + _%tl3660437159%_))))))) + (_%loop3661337178%_ _%target3661037172%_ '())))) + (_%__match3964439645%_ + (lambda (_%e3657937252%_ + _%hd3657837256%_ + _%tl3657737259%_ + _%e3658237262%_ + _%hd3658137266%_ + _%tl3658037269%_ + _%e3658537272%_ + _%hd3658437276%_ + _%tl3658337279%_ + _%__splice3959639597%_ + _%target3658637282%_ + _%tl3658837285%_) + (letrec ((_%loop3658937288%_ + (lambda (_%hd3658737292%_ _%pred3659337295%_) + (if (gx#stx-pair? _%hd3658737292%_) + (let ((_%e3659037298%_ + (gx#syntax-e _%hd3658737292%_))) + (let ((_%lp-tl3659237305%_ (let () (declare (not safe)) - (##cdr _%e3667937387%_))) - (_%lp-hd3668037391%_ + (##cdr _%e3659037298%_))) + (_%lp-hd3659137302%_ (let () (declare (not safe)) - (##car _%e3667937387%_)))) - (_%loop3667837377%_ - _%lp-tl3668137394%_ - (cons _%lp-hd3668037391%_ - _%pred3668237384%_)))) - (let ((_%pred3668337397%_ - (reverse _%pred3668237384%_))) - (if (gx#stx-pair? _%tl3666937358%_) - (let ((_%e3668637401%_ + (##car _%e3659037298%_)))) + (_%loop3658937288%_ + _%lp-tl3659237305%_ + (cons _%lp-hd3659137302%_ + _%pred3659337295%_)))) + (let ((_%pred3659437308%_ + (reverse _%pred3659337295%_))) + (if (gx#stx-pair? _%tl3658037269%_) + (let ((_%e3659737312%_ (gx#syntax-e - _%tl3666937358%_))) - (let ((_%tl3668437408%_ + _%tl3658037269%_))) + (let ((_%tl3659537319%_ (let () (declare (not safe)) - (##cdr _%e3668637401%_))) - (_%hd3668537405%_ + (##cdr _%e3659737312%_))) + (_%hd3659637316%_ (let () (declare (not safe)) - (##car _%e3668637401%_)))) + (##car _%e3659737312%_)))) (if (gx#stx-null? - _%tl3668437408%_) - (_%__kont3968339684%_ - _%hd3668537405%_ - _%pred3668337397%_ - _%hd3666737345%_) - (_%__match3985339854%_ - _%e3666837341%_ - _%hd3666737345%_ - _%tl3666637348%_ - _%e3667137351%_ - _%hd3667037355%_ - _%tl3666937358%_ - _%e3668637401%_ - _%hd3668537405%_ - _%tl3668437408%_)))) - (_%__match3983339834%_ - _%e3666837341%_ - _%hd3666737345%_ - _%tl3666637348%_ - _%e3667137351%_ - _%hd3667037355%_ - _%tl3666937358%_))))))) - (_%loop3667837377%_ _%target3667537371%_ '()))))) - (if (gx#stx-pair? _%__stx3968039681%_) - (let ((_%e3666837341%_ (gx#syntax-e _%__stx3968039681%_))) - (let ((_%tl3666637348%_ + _%tl3659537319%_) + (_%__kont3959439595%_ + _%hd3659637316%_ + _%pred3659437308%_ + _%hd3657837256%_) + (_%__match3976439765%_ + _%e3657937252%_ + _%hd3657837256%_ + _%tl3657737259%_ + _%e3658237262%_ + _%hd3658137266%_ + _%tl3658037269%_ + _%e3659737312%_ + _%hd3659637316%_ + _%tl3659537319%_)))) + (_%__match3974439745%_ + _%e3657937252%_ + _%hd3657837256%_ + _%tl3657737259%_ + _%e3658237262%_ + _%hd3658137266%_ + _%tl3658037269%_))))))) + (_%loop3658937288%_ _%target3658637282%_ '()))))) + (if (gx#stx-pair? _%__stx3959139592%_) + (let ((_%e3657937252%_ (gx#syntax-e _%__stx3959139592%_))) + (let ((_%tl3657737259%_ (let () (declare (not safe)) - (##cdr _%e3666837341%_))) - (_%hd3666737345%_ + (##cdr _%e3657937252%_))) + (_%hd3657837256%_ (let () (declare (not safe)) - (##car _%e3666837341%_)))) - (if (gx#stx-pair? _%tl3666637348%_) - (let ((_%e3667137351%_ - (gx#syntax-e _%tl3666637348%_))) - (let ((_%tl3666937358%_ + (##car _%e3657937252%_)))) + (if (gx#stx-pair? _%tl3657737259%_) + (let ((_%e3658237262%_ + (gx#syntax-e _%tl3657737259%_))) + (let ((_%tl3658037269%_ (let () (declare (not safe)) - (##cdr _%e3667137351%_))) - (_%hd3667037355%_ + (##cdr _%e3658237262%_))) + (_%hd3658137266%_ (let () (declare (not safe)) - (##car _%e3667137351%_)))) - (if (gx#stx-pair? _%hd3667037355%_) - (let ((_%e3667437361%_ - (gx#syntax-e _%hd3667037355%_))) - (let ((_%tl3667237368%_ + (##car _%e3658237262%_)))) + (if (gx#stx-pair? _%hd3658137266%_) + (let ((_%e3658537272%_ + (gx#syntax-e _%hd3658137266%_))) + (let ((_%tl3658337279%_ (let () (declare (not safe)) - (##cdr _%e3667437361%_))) - (_%hd3667337365%_ + (##cdr _%e3658537272%_))) + (_%hd3658437276%_ (let () (declare (not safe)) - (##car _%e3667437361%_)))) - (if (gx#identifier? _%hd3667337365%_) + (##car _%e3658537272%_)))) + (if (gx#identifier? _%hd3658437276%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40138_| - _%hd3667337365%_) + |gerbil/core/match[1]#_g39968_| + _%hd3658437276%_) (if (gx#stx-pair/null? - _%tl3667237368%_) - (let ((_%__splice3968539686%_ + _%tl3658337279%_) + (let ((_%__splice3959639597%_ (gx#syntax-split-splice - _%tl3667237368%_ + _%tl3658337279%_ '0))) - (let ((_%tl3667737374%_ + (let ((_%tl3658837285%_ (let () (declare (not safe)) (##vector-ref - _%__splice3968539686%_ + _%__splice3959639597%_ '1))) - (_%target3667537371%_ + (_%target3658637282%_ (let () (declare (not safe)) (##vector-ref - _%__splice3968539686%_ + _%__splice3959639597%_ '0)))) (if (gx#stx-null? - _%tl3667737374%_) - (_%__match3973339734%_ - _%e3666837341%_ - _%hd3666737345%_ - _%tl3666637348%_ - _%e3667137351%_ - _%hd3667037355%_ - _%tl3666937358%_ - _%e3667437361%_ - _%hd3667337365%_ - _%tl3667237368%_ - _%__splice3968539686%_ - _%target3667537371%_ - _%tl3667737374%_) + _%tl3658837285%_) + (_%__match3964439645%_ + _%e3657937252%_ + _%hd3657837256%_ + _%tl3657737259%_ + _%e3658237262%_ + _%hd3658137266%_ + _%tl3658037269%_ + _%e3658537272%_ + _%hd3658437276%_ + _%tl3658337279%_ + _%__splice3959639597%_ + _%target3658637282%_ + _%tl3658837285%_) (if (gx#stx-pair? - _%tl3666937358%_) - (let ((_%e3673937117%_ + _%tl3658037269%_) + (let ((_%e3665037028%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3666937358%_))) - (let ((_%tl3673737124%_ + (gx#syntax-e _%tl3658037269%_))) + (let ((_%tl3664837035%_ (let () (declare (not safe)) - (##cdr _%e3673937117%_))) - (_%hd3673837121%_ + (##cdr _%e3665037028%_))) + (_%hd3664937032%_ (let () (declare (not safe)) - (##car _%e3673937117%_)))) - (if (gx#stx-null? _%tl3673737124%_) - (_%__kont3969339694%_ - _%hd3673837121%_ - _%hd3667037355%_) - (if (gx#identifier? _%hd3673837121%_) + (##car _%e3665037028%_)))) + (if (gx#stx-null? _%tl3664837035%_) + (_%__kont3960439605%_ + _%hd3664937032%_ + _%hd3658137266%_) + (if (gx#identifier? _%hd3664937032%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40136_| - _%hd3673837121%_) - (if (gx#stx-pair? _%tl3673737124%_) - (let ((_%e3676237017%_ + |gerbil/core/match[1]#_g39966_| + _%hd3664937032%_) + (if (gx#stx-pair? _%tl3664837035%_) + (let ((_%e3667336928%_ (gx#syntax-e - _%tl3673737124%_))) - (let ((_%tl3676037024%_ + _%tl3664837035%_))) + (let ((_%tl3667136935%_ (let () (declare (not safe)) - (##cdr _%e3676237017%_))) - (_%hd3676137021%_ + (##cdr _%e3667336928%_))) + (_%hd3667236932%_ (let () (declare (not safe)) - (##car _%e3676237017%_)))) + (##car _%e3667336928%_)))) (if (gx#stx-null? - _%tl3676037024%_) - (_%__kont3969739698%_ - _%hd3676137021%_ - _%hd3667037355%_ - _%hd3666737345%_) + _%tl3667136935%_) + (_%__kont3960839609%_ + _%hd3667236932%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))) - (if (gx#stx-datum? _%hd3673837121%_) - (let ((_%e3677536944%_ - (gx#stx-e _%hd3673837121%_))) - (if (equal? _%e3677536944%_ '::) - (if (gx#stx-pair? _%tl3673737124%_) - (let ((_%e3677836948%_ + (_%g3657236718%_))) + (if (gx#stx-datum? _%hd3664937032%_) + (let ((_%e3668636855%_ + (gx#stx-e _%hd3664937032%_))) + (if (equal? _%e3668636855%_ '::) + (if (gx#stx-pair? _%tl3664837035%_) + (let ((_%e3668936859%_ (gx#syntax-e - _%tl3673737124%_))) - (let ((_%tl3677636955%_ + _%tl3664837035%_))) + (let ((_%tl3668736866%_ (let () (declare (not safe)) - (##cdr _%e3677836948%_))) - (_%hd3677736952%_ + (##cdr _%e3668936859%_))) + (_%hd3668836863%_ (let () (declare (not safe)) - (##car _%e3677836948%_)))) + (##car _%e3668936859%_)))) (if (gx#stx-null? - _%tl3677636955%_) - (_%__kont3969939700%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) + _%tl3668736866%_) + (_%__kont3961039611%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) (if (gx#stx-pair? - _%tl3677636955%_) - (let ((_%e3679836858%_ + _%tl3668736866%_) + (let ((_%e3670936769%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3677636955%_))) - (let ((_%tl3679636865%_ + (gx#syntax-e _%tl3668736866%_))) + (let ((_%tl3670736776%_ (let () (declare (not safe)) - (##cdr _%e3679836858%_))) - (_%hd3679736862%_ + (##cdr _%e3670936769%_))) + (_%hd3670836773%_ (let () (declare (not safe)) - (##car _%e3679836858%_)))) - (if (gx#identifier? _%hd3679736862%_) + (##car _%e3670936769%_)))) + (if (gx#identifier? _%hd3670836773%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40137_| - _%hd3679736862%_) - (if (gx#stx-pair? _%tl3679636865%_) - (let ((_%e3680136868%_ - (gx#syntax-e _%tl3679636865%_))) - (let ((_%tl3679936875%_ + |gerbil/core/match[1]#_g39967_| + _%hd3670836773%_) + (if (gx#stx-pair? _%tl3670736776%_) + (let ((_%e3671236779%_ + (gx#syntax-e _%tl3670736776%_))) + (let ((_%tl3671036786%_ (let () (declare (not safe)) - (##cdr _%e3680136868%_))) - (_%hd3680036872%_ + (##cdr _%e3671236779%_))) + (_%hd3671136783%_ (let () (declare (not safe)) - (##car _%e3680136868%_)))) - (if (gx#stx-null? _%tl3679936875%_) - (_%__kont3970139702%_ - _%hd3680036872%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) + (##car _%e3671236779%_)))) + (if (gx#stx-null? _%tl3671036786%_) + (_%__kont3961239613%_ + _%hd3671136783%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_))))) - (let () (declare (not safe)) (_%g3666136807%_)))))) + (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_))))) + (let () (declare (not safe)) (_%g3657236718%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_)))) + (_%g3657236718%_)))) (let () (declare (not safe)) - (_%g3666136807%_))))))) - (if (gx#stx-null? _%tl3666937358%_) - (_%__kont3969539696%_ - _%hd3667037355%_ - _%hd3666737345%_) - (let () (declare (not safe)) (_%g3666136807%_))))))) + (_%g3657236718%_))))))) + (if (gx#stx-null? _%tl3658037269%_) + (_%__kont3960639607%_ + _%hd3658137266%_ + _%hd3657837256%_) + (let () (declare (not safe)) (_%g3657236718%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%tl3666937358%_) - (let ((_%e3673937117%_ + _%tl3658037269%_) + (let ((_%e3665037028%_ (gx#syntax-e - _%tl3666937358%_))) - (let ((_%tl3673737124%_ + _%tl3658037269%_))) + (let ((_%tl3664837035%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3673937117%_))) - (_%hd3673837121%_ - (let () (declare (not safe)) (##car _%e3673937117%_)))) - (if (gx#stx-null? _%tl3673737124%_) - (_%__kont3969339694%_ _%hd3673837121%_ _%hd3667037355%_) - (if (gx#identifier? _%hd3673837121%_) + (##cdr _%e3665037028%_))) + (_%hd3664937032%_ + (let () (declare (not safe)) (##car _%e3665037028%_)))) + (if (gx#stx-null? _%tl3664837035%_) + (_%__kont3960439605%_ _%hd3664937032%_ _%hd3658137266%_) + (if (gx#identifier? _%hd3664937032%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40136_| - _%hd3673837121%_) - (if (gx#stx-pair? _%tl3673737124%_) - (let ((_%e3676237017%_ - (gx#syntax-e _%tl3673737124%_))) - (let ((_%tl3676037024%_ + |gerbil/core/match[1]#_g39966_| + _%hd3664937032%_) + (if (gx#stx-pair? _%tl3664837035%_) + (let ((_%e3667336928%_ + (gx#syntax-e _%tl3664837035%_))) + (let ((_%tl3667136935%_ (let () (declare (not safe)) - (##cdr _%e3676237017%_))) - (_%hd3676137021%_ + (##cdr _%e3667336928%_))) + (_%hd3667236932%_ (let () (declare (not safe)) - (##car _%e3676237017%_)))) - (if (gx#stx-null? _%tl3676037024%_) - (_%__kont3969739698%_ - _%hd3676137021%_ - _%hd3667037355%_ - _%hd3666737345%_) + (##car _%e3667336928%_)))) + (if (gx#stx-null? _%tl3667136935%_) + (_%__kont3960839609%_ + _%hd3667236932%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_))) - (if (gx#stx-datum? _%hd3673837121%_) - (let ((_%e3677536944%_ - (gx#stx-e _%hd3673837121%_))) - (if (equal? _%e3677536944%_ '::) - (if (gx#stx-pair? _%tl3673737124%_) - (let ((_%e3677836948%_ - (gx#syntax-e _%tl3673737124%_))) - (let ((_%tl3677636955%_ + (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_))) + (if (gx#stx-datum? _%hd3664937032%_) + (let ((_%e3668636855%_ + (gx#stx-e _%hd3664937032%_))) + (if (equal? _%e3668636855%_ '::) + (if (gx#stx-pair? _%tl3664837035%_) + (let ((_%e3668936859%_ + (gx#syntax-e _%tl3664837035%_))) + (let ((_%tl3668736866%_ (let () (declare (not safe)) - (##cdr _%e3677836948%_))) - (_%hd3677736952%_ + (##cdr _%e3668936859%_))) + (_%hd3668836863%_ (let () (declare (not safe)) - (##car _%e3677836948%_)))) - (if (gx#stx-null? _%tl3677636955%_) - (_%__kont3969939700%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) + (##car _%e3668936859%_)))) + (if (gx#stx-null? _%tl3668736866%_) + (_%__kont3961039611%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) (if (gx#stx-pair? - _%tl3677636955%_) - (let ((_%e3679836858%_ + _%tl3668736866%_) + (let ((_%e3670936769%_ (gx#syntax-e - _%tl3677636955%_))) - (let ((_%tl3679636865%_ + _%tl3668736866%_))) + (let ((_%tl3670736776%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3679836858%_))) - (_%hd3679736862%_ - (let () (declare (not safe)) (##car _%e3679836858%_)))) - (if (gx#identifier? _%hd3679736862%_) + (##cdr _%e3670936769%_))) + (_%hd3670836773%_ + (let () (declare (not safe)) (##car _%e3670936769%_)))) + (if (gx#identifier? _%hd3670836773%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40137_| - _%hd3679736862%_) - (if (gx#stx-pair? _%tl3679636865%_) - (let ((_%e3680136868%_ - (gx#syntax-e _%tl3679636865%_))) - (let ((_%tl3679936875%_ + |gerbil/core/match[1]#_g39967_| + _%hd3670836773%_) + (if (gx#stx-pair? _%tl3670736776%_) + (let ((_%e3671236779%_ + (gx#syntax-e _%tl3670736776%_))) + (let ((_%tl3671036786%_ (let () (declare (not safe)) - (##cdr _%e3680136868%_))) - (_%hd3680036872%_ + (##cdr _%e3671236779%_))) + (_%hd3671136783%_ (let () (declare (not safe)) - (##car _%e3680136868%_)))) - (if (gx#stx-null? _%tl3679936875%_) - (_%__kont3970139702%_ - _%hd3680036872%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) + (##car _%e3671236779%_)))) + (if (gx#stx-null? _%tl3671036786%_) + (_%__kont3961239613%_ + _%hd3671136783%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) - (let () (declare (not safe)) (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_))))) + (_%g3657236718%_))))) + (let () (declare (not safe)) (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3666136807%_)))))) + (_%g3657236718%_)))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_)))) + (_%g3657236718%_)))) (let () (declare (not safe)) - (_%g3666136807%_))))))) - (if (gx#stx-null? _%tl3666937358%_) - (_%__kont3969539696%_ _%hd3667037355%_ _%hd3666737345%_) - (let () (declare (not safe)) (_%g3666136807%_))))) + (_%g3657236718%_))))))) + (if (gx#stx-null? _%tl3658037269%_) + (_%__kont3960639607%_ _%hd3658137266%_ _%hd3657837256%_) + (let () (declare (not safe)) (_%g3657236718%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40139_| - _%hd3667337365%_) + |gerbil/core/match[1]#_g39969_| + _%hd3658437276%_) (if (gx#stx-pair/null? - _%tl3667237368%_) - (let ((_%__splice3968939690%_ + _%tl3658337279%_) + (let ((_%__splice3960039601%_ (gx#syntax-split-splice - _%tl3667237368%_ + _%tl3658337279%_ '0))) - (let ((_%tl3670137264%_ + (let ((_%tl3661237175%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice3968939690%_ '1))) - (_%target3669937261%_ + (##vector-ref _%__splice3960039601%_ '1))) + (_%target3661037172%_ (let () (declare (not safe)) - (##vector-ref _%__splice3968939690%_ '0)))) - (if (gx#stx-null? _%tl3670137264%_) - (_%__match3976339764%_ - _%e3666837341%_ - _%hd3666737345%_ - _%tl3666637348%_ - _%e3667137351%_ - _%hd3667037355%_ - _%tl3666937358%_ - _%e3667437361%_ - _%hd3667337365%_ - _%tl3667237368%_ - _%__splice3968939690%_ - _%target3669937261%_ - _%tl3670137264%_) - (if (gx#stx-pair? _%tl3666937358%_) - (let ((_%e3673937117%_ - (gx#syntax-e _%tl3666937358%_))) - (let ((_%tl3673737124%_ + (##vector-ref _%__splice3960039601%_ '0)))) + (if (gx#stx-null? _%tl3661237175%_) + (_%__match3967439675%_ + _%e3657937252%_ + _%hd3657837256%_ + _%tl3657737259%_ + _%e3658237262%_ + _%hd3658137266%_ + _%tl3658037269%_ + _%e3658537272%_ + _%hd3658437276%_ + _%tl3658337279%_ + _%__splice3960039601%_ + _%target3661037172%_ + _%tl3661237175%_) + (if (gx#stx-pair? _%tl3658037269%_) + (let ((_%e3665037028%_ + (gx#syntax-e _%tl3658037269%_))) + (let ((_%tl3664837035%_ (let () (declare (not safe)) - (##cdr _%e3673937117%_))) - (_%hd3673837121%_ + (##cdr _%e3665037028%_))) + (_%hd3664937032%_ (let () (declare (not safe)) - (##car _%e3673937117%_)))) - (if (gx#stx-null? _%tl3673737124%_) - (_%__kont3969339694%_ - _%hd3673837121%_ - _%hd3667037355%_) - (if (gx#identifier? _%hd3673837121%_) + (##car _%e3665037028%_)))) + (if (gx#stx-null? _%tl3664837035%_) + (_%__kont3960439605%_ + _%hd3664937032%_ + _%hd3658137266%_) + (if (gx#identifier? _%hd3664937032%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40136_| - _%hd3673837121%_) - (if (gx#stx-pair? _%tl3673737124%_) - (let ((_%e3676237017%_ + |gerbil/core/match[1]#_g39966_| + _%hd3664937032%_) + (if (gx#stx-pair? _%tl3664837035%_) + (let ((_%e3667336928%_ (gx#syntax-e - _%tl3673737124%_))) - (let ((_%tl3676037024%_ + _%tl3664837035%_))) + (let ((_%tl3667136935%_ (let () (declare (not safe)) - (##cdr _%e3676237017%_))) - (_%hd3676137021%_ + (##cdr _%e3667336928%_))) + (_%hd3667236932%_ (let () (declare (not safe)) - (##car _%e3676237017%_)))) + (##car _%e3667336928%_)))) (if (gx#stx-null? - _%tl3676037024%_) - (_%__kont3969739698%_ - _%hd3676137021%_ - _%hd3667037355%_ - _%hd3666737345%_) + _%tl3667136935%_) + (_%__kont3960839609%_ + _%hd3667236932%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))) - (if (gx#stx-datum? _%hd3673837121%_) - (let ((_%e3677536944%_ - (gx#stx-e _%hd3673837121%_))) - (if (equal? _%e3677536944%_ '::) + (_%g3657236718%_))) + (if (gx#stx-datum? _%hd3664937032%_) + (let ((_%e3668636855%_ + (gx#stx-e _%hd3664937032%_))) + (if (equal? _%e3668636855%_ '::) (if (gx#stx-pair? - _%tl3673737124%_) - (let ((_%e3677836948%_ + _%tl3664837035%_) + (let ((_%e3668936859%_ (gx#syntax-e - _%tl3673737124%_))) - (let ((_%tl3677636955%_ + _%tl3664837035%_))) + (let ((_%tl3668736866%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3677836948%_))) - (_%hd3677736952%_ - (let () (declare (not safe)) (##car _%e3677836948%_)))) - (if (gx#stx-null? _%tl3677636955%_) - (_%__kont3969939700%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) - (if (gx#stx-pair? _%tl3677636955%_) - (let ((_%e3679836858%_ (gx#syntax-e _%tl3677636955%_))) - (let ((_%tl3679636865%_ + (##cdr _%e3668936859%_))) + (_%hd3668836863%_ + (let () (declare (not safe)) (##car _%e3668936859%_)))) + (if (gx#stx-null? _%tl3668736866%_) + (_%__kont3961039611%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) + (if (gx#stx-pair? _%tl3668736866%_) + (let ((_%e3670936769%_ (gx#syntax-e _%tl3668736866%_))) + (let ((_%tl3670736776%_ (let () (declare (not safe)) - (##cdr _%e3679836858%_))) - (_%hd3679736862%_ + (##cdr _%e3670936769%_))) + (_%hd3670836773%_ (let () (declare (not safe)) - (##car _%e3679836858%_)))) - (if (gx#identifier? _%hd3679736862%_) + (##car _%e3670936769%_)))) + (if (gx#identifier? _%hd3670836773%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40137_| - _%hd3679736862%_) - (if (gx#stx-pair? _%tl3679636865%_) - (let ((_%e3680136868%_ - (gx#syntax-e _%tl3679636865%_))) - (let ((_%tl3679936875%_ + |gerbil/core/match[1]#_g39967_| + _%hd3670836773%_) + (if (gx#stx-pair? _%tl3670736776%_) + (let ((_%e3671236779%_ + (gx#syntax-e _%tl3670736776%_))) + (let ((_%tl3671036786%_ (let () (declare (not safe)) - (##cdr _%e3680136868%_))) - (_%hd3680036872%_ + (##cdr _%e3671236779%_))) + (_%hd3671136783%_ (let () (declare (not safe)) - (##car _%e3680136868%_)))) - (if (gx#stx-null? _%tl3679936875%_) - (_%__kont3970139702%_ - _%hd3680036872%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) + (##car _%e3671236779%_)))) + (if (gx#stx-null? _%tl3671036786%_) + (_%__kont3961239613%_ + _%hd3671136783%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))))) - (let () (declare (not safe)) (_%g3666136807%_)))))) + (_%g3657236718%_))))) + (let () (declare (not safe)) (_%g3657236718%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_)))) + (_%g3657236718%_)))) (let () (declare (not safe)) - (_%g3666136807%_))))))) - (if (gx#stx-null? _%tl3666937358%_) - (_%__kont3969539696%_ - _%hd3667037355%_ - _%hd3666737345%_) + (_%g3657236718%_))))))) + (if (gx#stx-null? _%tl3658037269%_) + (_%__kont3960639607%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))))) - (if (gx#stx-pair? _%tl3666937358%_) - (let ((_%e3673937117%_ (gx#syntax-e _%tl3666937358%_))) - (let ((_%tl3673737124%_ + (_%g3657236718%_))))))) + (if (gx#stx-pair? _%tl3658037269%_) + (let ((_%e3665037028%_ (gx#syntax-e _%tl3658037269%_))) + (let ((_%tl3664837035%_ (let () (declare (not safe)) - (##cdr _%e3673937117%_))) - (_%hd3673837121%_ + (##cdr _%e3665037028%_))) + (_%hd3664937032%_ (let () (declare (not safe)) - (##car _%e3673937117%_)))) - (if (gx#stx-null? _%tl3673737124%_) - (_%__kont3969339694%_ - _%hd3673837121%_ - _%hd3667037355%_) - (if (gx#identifier? _%hd3673837121%_) + (##car _%e3665037028%_)))) + (if (gx#stx-null? _%tl3664837035%_) + (_%__kont3960439605%_ + _%hd3664937032%_ + _%hd3658137266%_) + (if (gx#identifier? _%hd3664937032%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40136_| - _%hd3673837121%_) - (if (gx#stx-pair? _%tl3673737124%_) - (let ((_%e3676237017%_ - (gx#syntax-e _%tl3673737124%_))) - (let ((_%tl3676037024%_ + |gerbil/core/match[1]#_g39966_| + _%hd3664937032%_) + (if (gx#stx-pair? _%tl3664837035%_) + (let ((_%e3667336928%_ + (gx#syntax-e _%tl3664837035%_))) + (let ((_%tl3667136935%_ (let () (declare (not safe)) - (##cdr _%e3676237017%_))) - (_%hd3676137021%_ + (##cdr _%e3667336928%_))) + (_%hd3667236932%_ (let () (declare (not safe)) - (##car _%e3676237017%_)))) - (if (gx#stx-null? _%tl3676037024%_) - (_%__kont3969739698%_ - _%hd3676137021%_ - _%hd3667037355%_ - _%hd3666737345%_) + (##car _%e3667336928%_)))) + (if (gx#stx-null? _%tl3667136935%_) + (_%__kont3960839609%_ + _%hd3667236932%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))) - (if (gx#stx-datum? _%hd3673837121%_) - (let ((_%e3677536944%_ - (gx#stx-e _%hd3673837121%_))) - (if (equal? _%e3677536944%_ '::) - (if (gx#stx-pair? _%tl3673737124%_) - (let ((_%e3677836948%_ + (_%g3657236718%_))) + (if (gx#stx-datum? _%hd3664937032%_) + (let ((_%e3668636855%_ + (gx#stx-e _%hd3664937032%_))) + (if (equal? _%e3668636855%_ '::) + (if (gx#stx-pair? _%tl3664837035%_) + (let ((_%e3668936859%_ (gx#syntax-e - _%tl3673737124%_))) - (let ((_%tl3677636955%_ + _%tl3664837035%_))) + (let ((_%tl3668736866%_ (let () (declare (not safe)) - (##cdr _%e3677836948%_))) - (_%hd3677736952%_ + (##cdr _%e3668936859%_))) + (_%hd3668836863%_ (let () (declare (not safe)) - (##car _%e3677836948%_)))) + (##car _%e3668936859%_)))) (if (gx#stx-null? - _%tl3677636955%_) - (_%__kont3969939700%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) + _%tl3668736866%_) + (_%__kont3961039611%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) (if (gx#stx-pair? - _%tl3677636955%_) - (let ((_%e3679836858%_ + _%tl3668736866%_) + (let ((_%e3670936769%_ (gx#syntax-e - _%tl3677636955%_))) - (let ((_%tl3679636865%_ + _%tl3668736866%_))) + (let ((_%tl3670736776%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3679836858%_))) - (_%hd3679736862%_ + (let () (declare (not safe)) (##cdr _%e3670936769%_))) + (_%hd3670836773%_ (let () (declare (not safe)) - (##car _%e3679836858%_)))) - (if (gx#identifier? _%hd3679736862%_) + (##car _%e3670936769%_)))) + (if (gx#identifier? _%hd3670836773%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40137_| - _%hd3679736862%_) - (if (gx#stx-pair? _%tl3679636865%_) - (let ((_%e3680136868%_ - (gx#syntax-e _%tl3679636865%_))) - (let ((_%tl3679936875%_ + |gerbil/core/match[1]#_g39967_| + _%hd3670836773%_) + (if (gx#stx-pair? _%tl3670736776%_) + (let ((_%e3671236779%_ + (gx#syntax-e _%tl3670736776%_))) + (let ((_%tl3671036786%_ (let () (declare (not safe)) - (##cdr _%e3680136868%_))) - (_%hd3680036872%_ + (##cdr _%e3671236779%_))) + (_%hd3671136783%_ (let () (declare (not safe)) - (##car _%e3680136868%_)))) - (if (gx#stx-null? _%tl3679936875%_) - (_%__kont3970139702%_ - _%hd3680036872%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) + (##car _%e3671236779%_)))) + (if (gx#stx-null? _%tl3671036786%_) + (_%__kont3961239613%_ + _%hd3671136783%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_))))) - (let () (declare (not safe)) (_%g3666136807%_)))))) + (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_))))) + (let () (declare (not safe)) (_%g3657236718%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_)))) + (_%g3657236718%_)))) (let () (declare (not safe)) - (_%g3666136807%_))))))) - (if (gx#stx-null? _%tl3666937358%_) - (_%__kont3969539696%_ _%hd3667037355%_ _%hd3666737345%_) - (let () (declare (not safe)) (_%g3666136807%_))))) + (_%g3657236718%_))))))) + (if (gx#stx-null? _%tl3658037269%_) + (_%__kont3960639607%_ _%hd3658137266%_ _%hd3657837256%_) + (let () (declare (not safe)) (_%g3657236718%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40140_| - _%hd3667337365%_) + |gerbil/core/match[1]#_g39970_| + _%hd3658437276%_) (if (gx#stx-pair? - _%tl3667237368%_) - (let ((_%e3672537181%_ + _%tl3658337279%_) + (let ((_%e3663637092%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3667237368%_))) - (let ((_%tl3672337188%_ + (gx#syntax-e _%tl3658337279%_))) + (let ((_%tl3663437099%_ (let () (declare (not safe)) - (##cdr _%e3672537181%_))) - (_%hd3672437185%_ + (##cdr _%e3663637092%_))) + (_%hd3663537096%_ (let () (declare (not safe)) - (##car _%e3672537181%_)))) - (if (gx#stx-null? _%tl3672337188%_) - (if (gx#stx-pair? _%tl3666937358%_) - (let ((_%e3672837191%_ - (gx#syntax-e _%tl3666937358%_))) - (let ((_%tl3672637198%_ + (##car _%e3663637092%_)))) + (if (gx#stx-null? _%tl3663437099%_) + (if (gx#stx-pair? _%tl3658037269%_) + (let ((_%e3663937102%_ + (gx#syntax-e _%tl3658037269%_))) + (let ((_%tl3663737109%_ (let () (declare (not safe)) - (##cdr _%e3672837191%_))) - (_%hd3672737195%_ + (##cdr _%e3663937102%_))) + (_%hd3663837106%_ (let () (declare (not safe)) - (##car _%e3672837191%_)))) - (if (gx#stx-null? _%tl3672637198%_) - (_%__kont3969139692%_ - _%hd3672737195%_ - _%hd3672437185%_ - _%hd3666737345%_) - (if (gx#identifier? _%hd3672737195%_) + (##car _%e3663937102%_)))) + (if (gx#stx-null? _%tl3663737109%_) + (_%__kont3960239603%_ + _%hd3663837106%_ + _%hd3663537096%_ + _%hd3657837256%_) + (if (gx#identifier? _%hd3663837106%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40136_| - _%hd3672737195%_) + |gerbil/core/match[1]#_g39966_| + _%hd3663837106%_) (if (gx#stx-pair? - _%tl3672637198%_) - (let ((_%e3676237017%_ + _%tl3663737109%_) + (let ((_%e3667336928%_ (gx#syntax-e - _%tl3672637198%_))) - (let ((_%tl3676037024%_ + _%tl3663737109%_))) + (let ((_%tl3667136935%_ (let () (declare (not safe)) - (##cdr _%e3676237017%_))) - (_%hd3676137021%_ + (##cdr _%e3667336928%_))) + (_%hd3667236932%_ (let () (declare (not safe)) - (##car _%e3676237017%_)))) + (##car _%e3667336928%_)))) (if (gx#stx-null? - _%tl3676037024%_) - (_%__kont3969739698%_ - _%hd3676137021%_ - _%hd3667037355%_ - _%hd3666737345%_) + _%tl3667136935%_) + (_%__kont3960839609%_ + _%hd3667236932%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))) - (if (gx#stx-datum? _%hd3672737195%_) - (let ((_%e3677536944%_ + (_%g3657236718%_))) + (if (gx#stx-datum? _%hd3663837106%_) + (let ((_%e3668636855%_ (gx#stx-e - _%hd3672737195%_))) - (if (equal? _%e3677536944%_ + _%hd3663837106%_))) + (if (equal? _%e3668636855%_ '::) (if (gx#stx-pair? - _%tl3672637198%_) - (let ((_%e3677836948%_ + _%tl3663737109%_) + (let ((_%e3668936859%_ (gx#syntax-e - _%tl3672637198%_))) - (let ((_%tl3677636955%_ + _%tl3663737109%_))) + (let ((_%tl3668736866%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3677836948%_))) - (_%hd3677736952%_ + (let () (declare (not safe)) (##cdr _%e3668936859%_))) + (_%hd3668836863%_ (let () (declare (not safe)) - (##car _%e3677836948%_)))) - (if (gx#stx-null? _%tl3677636955%_) - (_%__kont3969939700%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) - (if (gx#stx-pair? _%tl3677636955%_) - (let ((_%e3679836858%_ - (gx#syntax-e _%tl3677636955%_))) - (let ((_%tl3679636865%_ + (##car _%e3668936859%_)))) + (if (gx#stx-null? _%tl3668736866%_) + (_%__kont3961039611%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) + (if (gx#stx-pair? _%tl3668736866%_) + (let ((_%e3670936769%_ + (gx#syntax-e _%tl3668736866%_))) + (let ((_%tl3670736776%_ (let () (declare (not safe)) - (##cdr _%e3679836858%_))) - (_%hd3679736862%_ + (##cdr _%e3670936769%_))) + (_%hd3670836773%_ (let () (declare (not safe)) - (##car _%e3679836858%_)))) - (if (gx#identifier? _%hd3679736862%_) + (##car _%e3670936769%_)))) + (if (gx#identifier? _%hd3670836773%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40137_| - _%hd3679736862%_) - (if (gx#stx-pair? _%tl3679636865%_) - (let ((_%e3680136868%_ + |gerbil/core/match[1]#_g39967_| + _%hd3670836773%_) + (if (gx#stx-pair? _%tl3670736776%_) + (let ((_%e3671236779%_ (gx#syntax-e - _%tl3679636865%_))) - (let ((_%tl3679936875%_ + _%tl3670736776%_))) + (let ((_%tl3671036786%_ (let () (declare (not safe)) - (##cdr _%e3680136868%_))) - (_%hd3680036872%_ + (##cdr _%e3671236779%_))) + (_%hd3671136783%_ (let () (declare (not safe)) - (##car _%e3680136868%_)))) + (##car _%e3671236779%_)))) (if (gx#stx-null? - _%tl3679936875%_) - (_%__kont3970139702%_ - _%hd3680036872%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) + _%tl3671036786%_) + (_%__kont3961239613%_ + _%hd3671136783%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))))) - (let () (declare (not safe)) (_%g3666136807%_)))))) - (let () (declare (not safe)) (_%g3666136807%_))) + (_%g3657236718%_))))) + (let () (declare (not safe)) (_%g3657236718%_)))))) + (let () (declare (not safe)) (_%g3657236718%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3666136807%_)))) + (_%g3657236718%_)))) (let () (declare (not safe)) - (_%g3666136807%_))))))) - (if (gx#stx-null? _%tl3666937358%_) - (_%__kont3969539696%_ - _%hd3667037355%_ - _%hd3666737345%_) + (_%g3657236718%_))))))) + (if (gx#stx-null? _%tl3658037269%_) + (_%__kont3960639607%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_)))) - (if (gx#stx-pair? _%tl3666937358%_) - (let ((_%e3673937117%_ - (gx#syntax-e _%tl3666937358%_))) - (let ((_%tl3673737124%_ + (_%g3657236718%_)))) + (if (gx#stx-pair? _%tl3658037269%_) + (let ((_%e3665037028%_ + (gx#syntax-e _%tl3658037269%_))) + (let ((_%tl3664837035%_ (let () (declare (not safe)) - (##cdr _%e3673937117%_))) - (_%hd3673837121%_ + (##cdr _%e3665037028%_))) + (_%hd3664937032%_ (let () (declare (not safe)) - (##car _%e3673937117%_)))) - (if (gx#stx-null? _%tl3673737124%_) - (_%__kont3969339694%_ - _%hd3673837121%_ - _%hd3667037355%_) - (if (gx#identifier? _%hd3673837121%_) + (##car _%e3665037028%_)))) + (if (gx#stx-null? _%tl3664837035%_) + (_%__kont3960439605%_ + _%hd3664937032%_ + _%hd3658137266%_) + (if (gx#identifier? _%hd3664937032%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40136_| - _%hd3673837121%_) + |gerbil/core/match[1]#_g39966_| + _%hd3664937032%_) (if (gx#stx-pair? - _%tl3673737124%_) - (let ((_%e3676237017%_ + _%tl3664837035%_) + (let ((_%e3667336928%_ (gx#syntax-e - _%tl3673737124%_))) - (let ((_%tl3676037024%_ + _%tl3664837035%_))) + (let ((_%tl3667136935%_ (let () (declare (not safe)) - (##cdr _%e3676237017%_))) - (_%hd3676137021%_ + (##cdr _%e3667336928%_))) + (_%hd3667236932%_ (let () (declare (not safe)) - (##car _%e3676237017%_)))) + (##car _%e3667336928%_)))) (if (gx#stx-null? - _%tl3676037024%_) - (_%__kont3969739698%_ - _%hd3676137021%_ - _%hd3667037355%_ - _%hd3666737345%_) + _%tl3667136935%_) + (_%__kont3960839609%_ + _%hd3667236932%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))) - (if (gx#stx-datum? _%hd3673837121%_) - (let ((_%e3677536944%_ + (_%g3657236718%_))) + (if (gx#stx-datum? _%hd3664937032%_) + (let ((_%e3668636855%_ (gx#stx-e - _%hd3673837121%_))) - (if (equal? _%e3677536944%_ + _%hd3664937032%_))) + (if (equal? _%e3668636855%_ '::) (if (gx#stx-pair? - _%tl3673737124%_) - (let ((_%e3677836948%_ + _%tl3664837035%_) + (let ((_%e3668936859%_ (gx#syntax-e - _%tl3673737124%_))) - (let ((_%tl3677636955%_ + _%tl3664837035%_))) + (let ((_%tl3668736866%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3677836948%_))) - (_%hd3677736952%_ + (let () (declare (not safe)) (##cdr _%e3668936859%_))) + (_%hd3668836863%_ (let () (declare (not safe)) - (##car _%e3677836948%_)))) - (if (gx#stx-null? _%tl3677636955%_) - (_%__kont3969939700%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) - (if (gx#stx-pair? _%tl3677636955%_) - (let ((_%e3679836858%_ - (gx#syntax-e _%tl3677636955%_))) - (let ((_%tl3679636865%_ + (##car _%e3668936859%_)))) + (if (gx#stx-null? _%tl3668736866%_) + (_%__kont3961039611%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) + (if (gx#stx-pair? _%tl3668736866%_) + (let ((_%e3670936769%_ + (gx#syntax-e _%tl3668736866%_))) + (let ((_%tl3670736776%_ (let () (declare (not safe)) - (##cdr _%e3679836858%_))) - (_%hd3679736862%_ + (##cdr _%e3670936769%_))) + (_%hd3670836773%_ (let () (declare (not safe)) - (##car _%e3679836858%_)))) - (if (gx#identifier? _%hd3679736862%_) + (##car _%e3670936769%_)))) + (if (gx#identifier? _%hd3670836773%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40137_| - _%hd3679736862%_) - (if (gx#stx-pair? _%tl3679636865%_) - (let ((_%e3680136868%_ + |gerbil/core/match[1]#_g39967_| + _%hd3670836773%_) + (if (gx#stx-pair? _%tl3670736776%_) + (let ((_%e3671236779%_ (gx#syntax-e - _%tl3679636865%_))) - (let ((_%tl3679936875%_ + _%tl3670736776%_))) + (let ((_%tl3671036786%_ (let () (declare (not safe)) - (##cdr _%e3680136868%_))) - (_%hd3680036872%_ + (##cdr _%e3671236779%_))) + (_%hd3671136783%_ (let () (declare (not safe)) - (##car _%e3680136868%_)))) + (##car _%e3671236779%_)))) (if (gx#stx-null? - _%tl3679936875%_) - (_%__kont3970139702%_ - _%hd3680036872%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) + _%tl3671036786%_) + (_%__kont3961239613%_ + _%hd3671136783%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))))) - (let () (declare (not safe)) (_%g3666136807%_)))))) - (let () (declare (not safe)) (_%g3666136807%_))) + (_%g3657236718%_))))) + (let () (declare (not safe)) (_%g3657236718%_)))))) + (let () (declare (not safe)) (_%g3657236718%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3666136807%_)))) + (_%g3657236718%_)))) (let () (declare (not safe)) - (_%g3666136807%_))))))) - (if (gx#stx-null? _%tl3666937358%_) - (_%__kont3969539696%_ - _%hd3667037355%_ - _%hd3666737345%_) + (_%g3657236718%_))))))) + (if (gx#stx-null? _%tl3658037269%_) + (_%__kont3960639607%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))))) - (if (gx#stx-pair? _%tl3666937358%_) - (let ((_%e3673937117%_ (gx#syntax-e _%tl3666937358%_))) - (let ((_%tl3673737124%_ + (_%g3657236718%_))))))) + (if (gx#stx-pair? _%tl3658037269%_) + (let ((_%e3665037028%_ (gx#syntax-e _%tl3658037269%_))) + (let ((_%tl3664837035%_ (let () (declare (not safe)) - (##cdr _%e3673937117%_))) - (_%hd3673837121%_ + (##cdr _%e3665037028%_))) + (_%hd3664937032%_ (let () (declare (not safe)) - (##car _%e3673937117%_)))) - (if (gx#stx-null? _%tl3673737124%_) - (_%__kont3969339694%_ - _%hd3673837121%_ - _%hd3667037355%_) - (if (gx#identifier? _%hd3673837121%_) + (##car _%e3665037028%_)))) + (if (gx#stx-null? _%tl3664837035%_) + (_%__kont3960439605%_ + _%hd3664937032%_ + _%hd3658137266%_) + (if (gx#identifier? _%hd3664937032%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40136_| - _%hd3673837121%_) - (if (gx#stx-pair? _%tl3673737124%_) - (let ((_%e3676237017%_ + |gerbil/core/match[1]#_g39966_| + _%hd3664937032%_) + (if (gx#stx-pair? _%tl3664837035%_) + (let ((_%e3667336928%_ (gx#syntax-e - _%tl3673737124%_))) - (let ((_%tl3676037024%_ + _%tl3664837035%_))) + (let ((_%tl3667136935%_ (let () (declare (not safe)) - (##cdr _%e3676237017%_))) - (_%hd3676137021%_ + (##cdr _%e3667336928%_))) + (_%hd3667236932%_ (let () (declare (not safe)) - (##car _%e3676237017%_)))) + (##car _%e3667336928%_)))) (if (gx#stx-null? - _%tl3676037024%_) - (_%__kont3969739698%_ - _%hd3676137021%_ - _%hd3667037355%_ - _%hd3666737345%_) + _%tl3667136935%_) + (_%__kont3960839609%_ + _%hd3667236932%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))) - (if (gx#stx-datum? _%hd3673837121%_) - (let ((_%e3677536944%_ - (gx#stx-e _%hd3673837121%_))) - (if (equal? _%e3677536944%_ '::) - (if (gx#stx-pair? _%tl3673737124%_) - (let ((_%e3677836948%_ + (_%g3657236718%_))) + (if (gx#stx-datum? _%hd3664937032%_) + (let ((_%e3668636855%_ + (gx#stx-e _%hd3664937032%_))) + (if (equal? _%e3668636855%_ '::) + (if (gx#stx-pair? _%tl3664837035%_) + (let ((_%e3668936859%_ (gx#syntax-e - _%tl3673737124%_))) - (let ((_%tl3677636955%_ + _%tl3664837035%_))) + (let ((_%tl3668736866%_ (let () (declare (not safe)) - (##cdr _%e3677836948%_))) - (_%hd3677736952%_ + (##cdr _%e3668936859%_))) + (_%hd3668836863%_ (let () (declare (not safe)) - (##car _%e3677836948%_)))) + (##car _%e3668936859%_)))) (if (gx#stx-null? - _%tl3677636955%_) - (_%__kont3969939700%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) + _%tl3668736866%_) + (_%__kont3961039611%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) (if (gx#stx-pair? - _%tl3677636955%_) - (let ((_%e3679836858%_ + _%tl3668736866%_) + (let ((_%e3670936769%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3677636955%_))) - (let ((_%tl3679636865%_ + (gx#syntax-e _%tl3668736866%_))) + (let ((_%tl3670736776%_ (let () (declare (not safe)) - (##cdr _%e3679836858%_))) - (_%hd3679736862%_ + (##cdr _%e3670936769%_))) + (_%hd3670836773%_ (let () (declare (not safe)) - (##car _%e3679836858%_)))) - (if (gx#identifier? _%hd3679736862%_) + (##car _%e3670936769%_)))) + (if (gx#identifier? _%hd3670836773%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40137_| - _%hd3679736862%_) - (if (gx#stx-pair? _%tl3679636865%_) - (let ((_%e3680136868%_ - (gx#syntax-e _%tl3679636865%_))) - (let ((_%tl3679936875%_ + |gerbil/core/match[1]#_g39967_| + _%hd3670836773%_) + (if (gx#stx-pair? _%tl3670736776%_) + (let ((_%e3671236779%_ + (gx#syntax-e _%tl3670736776%_))) + (let ((_%tl3671036786%_ (let () (declare (not safe)) - (##cdr _%e3680136868%_))) - (_%hd3680036872%_ + (##cdr _%e3671236779%_))) + (_%hd3671136783%_ (let () (declare (not safe)) - (##car _%e3680136868%_)))) - (if (gx#stx-null? _%tl3679936875%_) - (_%__kont3970139702%_ - _%hd3680036872%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) + (##car _%e3671236779%_)))) + (if (gx#stx-null? _%tl3671036786%_) + (_%__kont3961239613%_ + _%hd3671136783%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_))))) - (let () (declare (not safe)) (_%g3666136807%_)))))) + (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_))))) + (let () (declare (not safe)) (_%g3657236718%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_)))) + (_%g3657236718%_)))) (let () (declare (not safe)) - (_%g3666136807%_))))))) - (if (gx#stx-null? _%tl3666937358%_) - (_%__kont3969539696%_ - _%hd3667037355%_ - _%hd3666737345%_) - (let () (declare (not safe)) (_%g3666136807%_))))) - (if (gx#stx-pair? _%tl3666937358%_) - (let ((_%e3673937117%_ (gx#syntax-e _%tl3666937358%_))) - (let ((_%tl3673737124%_ + (_%g3657236718%_))))))) + (if (gx#stx-null? _%tl3658037269%_) + (_%__kont3960639607%_ + _%hd3658137266%_ + _%hd3657837256%_) + (let () (declare (not safe)) (_%g3657236718%_))))) + (if (gx#stx-pair? _%tl3658037269%_) + (let ((_%e3665037028%_ (gx#syntax-e _%tl3658037269%_))) + (let ((_%tl3664837035%_ (let () (declare (not safe)) - (##cdr _%e3673937117%_))) - (_%hd3673837121%_ + (##cdr _%e3665037028%_))) + (_%hd3664937032%_ (let () (declare (not safe)) - (##car _%e3673937117%_)))) - (if (gx#stx-null? _%tl3673737124%_) - (_%__kont3969339694%_ - _%hd3673837121%_ - _%hd3667037355%_) - (if (gx#identifier? _%hd3673837121%_) + (##car _%e3665037028%_)))) + (if (gx#stx-null? _%tl3664837035%_) + (_%__kont3960439605%_ + _%hd3664937032%_ + _%hd3658137266%_) + (if (gx#identifier? _%hd3664937032%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40136_| - _%hd3673837121%_) - (if (gx#stx-pair? _%tl3673737124%_) - (let ((_%e3676237017%_ - (gx#syntax-e _%tl3673737124%_))) - (let ((_%tl3676037024%_ + |gerbil/core/match[1]#_g39966_| + _%hd3664937032%_) + (if (gx#stx-pair? _%tl3664837035%_) + (let ((_%e3667336928%_ + (gx#syntax-e _%tl3664837035%_))) + (let ((_%tl3667136935%_ (let () (declare (not safe)) - (##cdr _%e3676237017%_))) - (_%hd3676137021%_ + (##cdr _%e3667336928%_))) + (_%hd3667236932%_ (let () (declare (not safe)) - (##car _%e3676237017%_)))) - (if (gx#stx-null? _%tl3676037024%_) - (_%__kont3969739698%_ - _%hd3676137021%_ - _%hd3667037355%_ - _%hd3666737345%_) + (##car _%e3667336928%_)))) + (if (gx#stx-null? _%tl3667136935%_) + (_%__kont3960839609%_ + _%hd3667236932%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))) - (if (gx#stx-datum? _%hd3673837121%_) - (let ((_%e3677536944%_ - (gx#stx-e _%hd3673837121%_))) - (if (equal? _%e3677536944%_ '::) - (if (gx#stx-pair? _%tl3673737124%_) - (let ((_%e3677836948%_ + (_%g3657236718%_))) + (if (gx#stx-datum? _%hd3664937032%_) + (let ((_%e3668636855%_ + (gx#stx-e _%hd3664937032%_))) + (if (equal? _%e3668636855%_ '::) + (if (gx#stx-pair? _%tl3664837035%_) + (let ((_%e3668936859%_ (gx#syntax-e - _%tl3673737124%_))) - (let ((_%tl3677636955%_ + _%tl3664837035%_))) + (let ((_%tl3668736866%_ (let () (declare (not safe)) - (##cdr _%e3677836948%_))) - (_%hd3677736952%_ + (##cdr _%e3668936859%_))) + (_%hd3668836863%_ (let () (declare (not safe)) - (##car _%e3677836948%_)))) + (##car _%e3668936859%_)))) (if (gx#stx-null? - _%tl3677636955%_) - (_%__kont3969939700%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) + _%tl3668736866%_) + (_%__kont3961039611%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) (if (gx#stx-pair? - _%tl3677636955%_) - (let ((_%e3679836858%_ + _%tl3668736866%_) + (let ((_%e3670936769%_ (gx#syntax-e - _%tl3677636955%_))) - (let ((_%tl3679636865%_ + _%tl3668736866%_))) + (let ((_%tl3670736776%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3679836858%_))) - (_%hd3679736862%_ + (let () (declare (not safe)) (##cdr _%e3670936769%_))) + (_%hd3670836773%_ (let () (declare (not safe)) - (##car _%e3679836858%_)))) - (if (gx#identifier? _%hd3679736862%_) + (##car _%e3670936769%_)))) + (if (gx#identifier? _%hd3670836773%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40137_| - _%hd3679736862%_) - (if (gx#stx-pair? _%tl3679636865%_) - (let ((_%e3680136868%_ - (gx#syntax-e _%tl3679636865%_))) - (let ((_%tl3679936875%_ + |gerbil/core/match[1]#_g39967_| + _%hd3670836773%_) + (if (gx#stx-pair? _%tl3670736776%_) + (let ((_%e3671236779%_ + (gx#syntax-e _%tl3670736776%_))) + (let ((_%tl3671036786%_ (let () (declare (not safe)) - (##cdr _%e3680136868%_))) - (_%hd3680036872%_ + (##cdr _%e3671236779%_))) + (_%hd3671136783%_ (let () (declare (not safe)) - (##car _%e3680136868%_)))) - (if (gx#stx-null? _%tl3679936875%_) - (_%__kont3970139702%_ - _%hd3680036872%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) + (##car _%e3671236779%_)))) + (if (gx#stx-null? _%tl3671036786%_) + (_%__kont3961239613%_ + _%hd3671136783%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_))))) - (let () (declare (not safe)) (_%g3666136807%_)))))) + (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_))))) + (let () (declare (not safe)) (_%g3657236718%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_)))) + (_%g3657236718%_)))) (let () (declare (not safe)) - (_%g3666136807%_))))))) - (if (gx#stx-null? _%tl3666937358%_) - (_%__kont3969539696%_ _%hd3667037355%_ _%hd3666737345%_) - (let () (declare (not safe)) (_%g3666136807%_))))))) + (_%g3657236718%_))))))) + (if (gx#stx-null? _%tl3658037269%_) + (_%__kont3960639607%_ _%hd3658137266%_ _%hd3657837256%_) + (let () (declare (not safe)) (_%g3657236718%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl3666937358%_) - (let ((_%e3673937117%_ + (if (gx#stx-pair? _%tl3658037269%_) + (let ((_%e3665037028%_ (gx#syntax-e - _%tl3666937358%_))) - (let ((_%tl3673737124%_ + _%tl3658037269%_))) + (let ((_%tl3664837035%_ (let () (declare (not safe)) - (##cdr _%e3673937117%_))) - (_%hd3673837121%_ + (##cdr _%e3665037028%_))) + (_%hd3664937032%_ (let () (declare (not safe)) - (##car _%e3673937117%_)))) + (##car _%e3665037028%_)))) (if (gx#stx-null? - _%tl3673737124%_) - (_%__kont3969339694%_ - _%hd3673837121%_ - _%hd3667037355%_) + _%tl3664837035%_) + (_%__kont3960439605%_ + _%hd3664937032%_ + _%hd3658137266%_) (if (gx#identifier? - _%hd3673837121%_) + _%hd3664937032%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40136_| - _%hd3673837121%_) + |gerbil/core/match[1]#_g39966_| + _%hd3664937032%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl3673737124%_) - (let ((_%e3676237017%_ - (gx#syntax-e _%tl3673737124%_))) - (let ((_%tl3676037024%_ + _%tl3664837035%_) + (let ((_%e3667336928%_ + (gx#syntax-e _%tl3664837035%_))) + (let ((_%tl3667136935%_ (let () (declare (not safe)) - (##cdr _%e3676237017%_))) - (_%hd3676137021%_ + (##cdr _%e3667336928%_))) + (_%hd3667236932%_ (let () (declare (not safe)) - (##car _%e3676237017%_)))) - (if (gx#stx-null? _%tl3676037024%_) - (_%__kont3969739698%_ - _%hd3676137021%_ - _%hd3667037355%_ - _%hd3666737345%_) + (##car _%e3667336928%_)))) + (if (gx#stx-null? _%tl3667136935%_) + (_%__kont3960839609%_ + _%hd3667236932%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))) - (let () (declare (not safe)) (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_))) - (if (gx#stx-datum? _%hd3673837121%_) - (let ((_%e3677536944%_ (gx#stx-e _%hd3673837121%_))) - (if (equal? _%e3677536944%_ '::) - (if (gx#stx-pair? _%tl3673737124%_) - (let ((_%e3677836948%_ - (gx#syntax-e _%tl3673737124%_))) - (let ((_%tl3677636955%_ + (_%g3657236718%_))))) + (let () (declare (not safe)) (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_))) + (if (gx#stx-datum? _%hd3664937032%_) + (let ((_%e3668636855%_ (gx#stx-e _%hd3664937032%_))) + (if (equal? _%e3668636855%_ '::) + (if (gx#stx-pair? _%tl3664837035%_) + (let ((_%e3668936859%_ + (gx#syntax-e _%tl3664837035%_))) + (let ((_%tl3668736866%_ (let () (declare (not safe)) - (##cdr _%e3677836948%_))) - (_%hd3677736952%_ + (##cdr _%e3668936859%_))) + (_%hd3668836863%_ (let () (declare (not safe)) - (##car _%e3677836948%_)))) - (if (gx#stx-null? _%tl3677636955%_) - (_%__kont3969939700%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) - (if (gx#stx-pair? _%tl3677636955%_) - (let ((_%e3679836858%_ + (##car _%e3668936859%_)))) + (if (gx#stx-null? _%tl3668736866%_) + (_%__kont3961039611%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) + (if (gx#stx-pair? _%tl3668736866%_) + (let ((_%e3670936769%_ (gx#syntax-e - _%tl3677636955%_))) - (let ((_%tl3679636865%_ + _%tl3668736866%_))) + (let ((_%tl3670736776%_ (let () (declare (not safe)) - (##cdr _%e3679836858%_))) - (_%hd3679736862%_ + (##cdr _%e3670936769%_))) + (_%hd3670836773%_ (let () (declare (not safe)) - (##car _%e3679836858%_)))) + (##car _%e3670936769%_)))) (if (gx#identifier? - _%hd3679736862%_) + _%hd3670836773%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40137_| - _%hd3679736862%_) + |gerbil/core/match[1]#_g39967_| + _%hd3670836773%_) (if (gx#stx-pair? - _%tl3679636865%_) - (let ((_%e3680136868%_ + _%tl3670736776%_) + (let ((_%e3671236779%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3679636865%_))) - (let ((_%tl3679936875%_ + (gx#syntax-e _%tl3670736776%_))) + (let ((_%tl3671036786%_ (let () (declare (not safe)) - (##cdr _%e3680136868%_))) - (_%hd3680036872%_ + (##cdr _%e3671236779%_))) + (_%hd3671136783%_ (let () (declare (not safe)) - (##car _%e3680136868%_)))) - (if (gx#stx-null? _%tl3679936875%_) - (_%__kont3970139702%_ - _%hd3680036872%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) - (let () (declare (not safe)) (_%g3666136807%_))))) - (let () (declare (not safe)) (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_))) + (##car _%e3671236779%_)))) + (if (gx#stx-null? _%tl3671036786%_) + (_%__kont3961239613%_ + _%hd3671136783%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) + (let () (declare (not safe)) (_%g3657236718%_))))) + (let () (declare (not safe)) (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_)))))) + (_%g3657236718%_)))))) (let () (declare (not safe)) - (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_)))) - (let () (declare (not safe)) (_%g3666136807%_))))))) + (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_)))) + (let () (declare (not safe)) (_%g3657236718%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl3666937358%_) - (_%__kont3969539696%_ - _%hd3667037355%_ - _%hd3666737345%_) + _%tl3658037269%_) + (_%__kont3960639607%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))))) - (if (gx#stx-pair? _%tl3666937358%_) - (let ((_%e3673937117%_ - (gx#syntax-e _%tl3666937358%_))) - (let ((_%tl3673737124%_ + (_%g3657236718%_))))))) + (if (gx#stx-pair? _%tl3658037269%_) + (let ((_%e3665037028%_ + (gx#syntax-e _%tl3658037269%_))) + (let ((_%tl3664837035%_ (let () (declare (not safe)) - (##cdr _%e3673937117%_))) - (_%hd3673837121%_ + (##cdr _%e3665037028%_))) + (_%hd3664937032%_ (let () (declare (not safe)) - (##car _%e3673937117%_)))) - (if (gx#stx-null? _%tl3673737124%_) - (_%__kont3969339694%_ - _%hd3673837121%_ - _%hd3667037355%_) + (##car _%e3665037028%_)))) + (if (gx#stx-null? _%tl3664837035%_) + (_%__kont3960439605%_ + _%hd3664937032%_ + _%hd3658137266%_) (if (gx#identifier? - _%hd3673837121%_) + _%hd3664937032%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40136_| - _%hd3673837121%_) + |gerbil/core/match[1]#_g39966_| + _%hd3664937032%_) (if (gx#stx-pair? - _%tl3673737124%_) - (let ((_%e3676237017%_ + _%tl3664837035%_) + (let ((_%e3667336928%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3673737124%_))) - (let ((_%tl3676037024%_ + (gx#syntax-e _%tl3664837035%_))) + (let ((_%tl3667136935%_ (let () (declare (not safe)) - (##cdr _%e3676237017%_))) - (_%hd3676137021%_ + (##cdr _%e3667336928%_))) + (_%hd3667236932%_ (let () (declare (not safe)) - (##car _%e3676237017%_)))) - (if (gx#stx-null? _%tl3676037024%_) - (_%__kont3969739698%_ - _%hd3676137021%_ - _%hd3667037355%_ - _%hd3666737345%_) - (let () (declare (not safe)) (_%g3666136807%_))))) - (let () (declare (not safe)) (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_))) + (##car _%e3667336928%_)))) + (if (gx#stx-null? _%tl3667136935%_) + (_%__kont3960839609%_ + _%hd3667236932%_ + _%hd3658137266%_ + _%hd3657837256%_) + (let () (declare (not safe)) (_%g3657236718%_))))) + (let () (declare (not safe)) (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-datum? - _%hd3673837121%_) - (let ((_%e3677536944%_ + _%hd3664937032%_) + (let ((_%e3668636855%_ (gx#stx-e - _%hd3673837121%_))) - (if (equal? _%e3677536944%_ + _%hd3664937032%_))) + (if (equal? _%e3668636855%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '::) - (if (gx#stx-pair? _%tl3673737124%_) - (let ((_%e3677836948%_ (gx#syntax-e _%tl3673737124%_))) - (let ((_%tl3677636955%_ + (if (gx#stx-pair? _%tl3664837035%_) + (let ((_%e3668936859%_ (gx#syntax-e _%tl3664837035%_))) + (let ((_%tl3668736866%_ (let () (declare (not safe)) - (##cdr _%e3677836948%_))) - (_%hd3677736952%_ + (##cdr _%e3668936859%_))) + (_%hd3668836863%_ (let () (declare (not safe)) - (##car _%e3677836948%_)))) - (if (gx#stx-null? _%tl3677636955%_) - (_%__kont3969939700%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) - (if (gx#stx-pair? _%tl3677636955%_) - (let ((_%e3679836858%_ - (gx#syntax-e _%tl3677636955%_))) - (let ((_%tl3679636865%_ + (##car _%e3668936859%_)))) + (if (gx#stx-null? _%tl3668736866%_) + (_%__kont3961039611%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) + (if (gx#stx-pair? _%tl3668736866%_) + (let ((_%e3670936769%_ + (gx#syntax-e _%tl3668736866%_))) + (let ((_%tl3670736776%_ (let () (declare (not safe)) - (##cdr _%e3679836858%_))) - (_%hd3679736862%_ + (##cdr _%e3670936769%_))) + (_%hd3670836773%_ (let () (declare (not safe)) - (##car _%e3679836858%_)))) - (if (gx#identifier? _%hd3679736862%_) + (##car _%e3670936769%_)))) + (if (gx#identifier? _%hd3670836773%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g40137_| - _%hd3679736862%_) + |gerbil/core/match[1]#_g39967_| + _%hd3670836773%_) (if (gx#stx-pair? - _%tl3679636865%_) - (let ((_%e3680136868%_ + _%tl3670736776%_) + (let ((_%e3671236779%_ (gx#syntax-e - _%tl3679636865%_))) - (let ((_%tl3679936875%_ + _%tl3670736776%_))) + (let ((_%tl3671036786%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3680136868%_))) - (_%hd3680036872%_ - (let () (declare (not safe)) (##car _%e3680136868%_)))) - (if (gx#stx-null? _%tl3679936875%_) - (_%__kont3970139702%_ - _%hd3680036872%_ - _%hd3677736952%_ - _%hd3667037355%_ - _%hd3666737345%_) - (let () (declare (not safe)) (_%g3666136807%_))))) + (##cdr _%e3671236779%_))) + (_%hd3671136783%_ + (let () (declare (not safe)) (##car _%e3671236779%_)))) + (if (gx#stx-null? _%tl3671036786%_) + (_%__kont3961239613%_ + _%hd3671136783%_ + _%hd3668836863%_ + _%hd3658137266%_ + _%hd3657837256%_) + (let () (declare (not safe)) (_%g3657236718%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))) + (_%g3657236718%_))) (let () (declare (not safe)) - (_%g3666136807%_))))) + (_%g3657236718%_))))) (let () (declare (not safe)) - (_%g3666136807%_)))))) - (let () (declare (not safe)) (_%g3666136807%_))) - (let () (declare (not safe)) (_%g3666136807%_)))) - (let () (declare (not safe)) (_%g3666136807%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _%tl3666937358%_) - (_%__kont3969539696%_ - _%hd3667037355%_ - _%hd3666737345%_) + (_%g3657236718%_)))))) + (let () (declare (not safe)) (_%g3657236718%_))) + (let () (declare (not safe)) (_%g3657236718%_)))) + (let () (declare (not safe)) (_%g3657236718%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? _%tl3658037269%_) + (_%__kont3960639607%_ + _%hd3658137266%_ + _%hd3657837256%_) (let () (declare (not safe)) - (_%g3666136807%_))))))) - (let () (declare (not safe)) (_%g3666136807%_))))) - (let () (declare (not safe)) (_%g3666136807%_)))))))) + (_%g3657236718%_))))))) + (let () (declare (not safe)) (_%g3657236718%_))))) + (let () (declare (not safe)) (_%g3657236718%_)))))))) (define |gerbil/core/match[:0:]#defsyntax-for-match| - (lambda (_%$stx37450%_) - (let* ((_%__stx3994839949%_ _%$stx37450%_) - (_%g3745537489%_ + (lambda (_%$stx37361%_) + (let* ((_%__stx3985939860%_ _%$stx37361%_) + (_%g3736637400%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3994839949%_)))) - (let ((_%__kont3995139952%_ - (lambda (_%L37593%_ _%L37595%_ _%L37596%_) + _%__stx3985939860%_)))) + (let ((_%__kont3986239863%_ + (lambda (_%L37504%_ _%L37506%_ _%L37507%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L37596%_ + (cons _%L37507%_ (cons (cons (gx#datum->syntax '#f 'make-match-macro) @@ -9027,9 +8472,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$match-e) - (cons _%L37595%_ '())) + (cons _%L37506%_ '())) (cons (cons (gx#datum->syntax '#f '$macro-e) - (cons _%L37593%_ '())) + (cons _%L37504%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$stx) @@ -9086,11 +8531,11 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3995339954%_ - (lambda (_%L37526%_ _%L37528%_ _%L37529%_) - (cons _%L37529%_ - (cons _%L37528%_ - (cons _%L37526%_ + (_%__kont3986439865%_ + (lambda (_%L37437%_ _%L37439%_ _%L37440%_) + (cons _%L37440%_ + (cons _%L37439%_ + (cons _%L37437%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f @@ -9107,146 +8552,146 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (let ((_%__match3998139982%_ - (lambda (_%e3746237553%_ - _%hd3746137557%_ - _%tl3746037560%_ - _%e3746537563%_ - _%hd3746437567%_ - _%tl3746337570%_ - _%e3746837573%_ - _%hd3746737577%_ - _%tl3746637580%_ - _%e3747137583%_ - _%hd3747037587%_ - _%tl3746937590%_) - (let ((_%L37593%_ _%hd3747037587%_) - (_%L37595%_ _%hd3746737577%_) - (_%L37596%_ _%hd3746437567%_)) - (if (gx#identifier? _%L37596%_) - (_%__kont3995139952%_ - _%L37593%_ - _%L37595%_ - _%L37596%_) - (let () (declare (not safe)) (_%g3745537489%_))))))) - (if (gx#stx-pair? _%__stx3994839949%_) - (let ((_%e3746237553%_ (gx#syntax-e _%__stx3994839949%_))) - (let ((_%tl3746037560%_ + (let ((_%__match3989239893%_ + (lambda (_%e3737337464%_ + _%hd3737237468%_ + _%tl3737137471%_ + _%e3737637474%_ + _%hd3737537478%_ + _%tl3737437481%_ + _%e3737937484%_ + _%hd3737837488%_ + _%tl3737737491%_ + _%e3738237494%_ + _%hd3738137498%_ + _%tl3738037501%_) + (let ((_%L37504%_ _%hd3738137498%_) + (_%L37506%_ _%hd3737837488%_) + (_%L37507%_ _%hd3737537478%_)) + (if (gx#identifier? _%L37507%_) + (_%__kont3986239863%_ + _%L37504%_ + _%L37506%_ + _%L37507%_) + (let () (declare (not safe)) (_%g3736637400%_))))))) + (if (gx#stx-pair? _%__stx3985939860%_) + (let ((_%e3737337464%_ (gx#syntax-e _%__stx3985939860%_))) + (let ((_%tl3737137471%_ (let () (declare (not safe)) - (##cdr _%e3746237553%_))) - (_%hd3746137557%_ + (##cdr _%e3737337464%_))) + (_%hd3737237468%_ (let () (declare (not safe)) - (##car _%e3746237553%_)))) - (if (gx#stx-pair? _%tl3746037560%_) - (let ((_%e3746537563%_ - (gx#syntax-e _%tl3746037560%_))) - (let ((_%tl3746337570%_ + (##car _%e3737337464%_)))) + (if (gx#stx-pair? _%tl3737137471%_) + (let ((_%e3737637474%_ + (gx#syntax-e _%tl3737137471%_))) + (let ((_%tl3737437481%_ (let () (declare (not safe)) - (##cdr _%e3746537563%_))) - (_%hd3746437567%_ + (##cdr _%e3737637474%_))) + (_%hd3737537478%_ (let () (declare (not safe)) - (##car _%e3746537563%_)))) - (if (gx#stx-pair? _%tl3746337570%_) - (let ((_%e3746837573%_ - (gx#syntax-e _%tl3746337570%_))) - (let ((_%tl3746637580%_ + (##car _%e3737637474%_)))) + (if (gx#stx-pair? _%tl3737437481%_) + (let ((_%e3737937484%_ + (gx#syntax-e _%tl3737437481%_))) + (let ((_%tl3737737491%_ (let () (declare (not safe)) - (##cdr _%e3746837573%_))) - (_%hd3746737577%_ + (##cdr _%e3737937484%_))) + (_%hd3737837488%_ (let () (declare (not safe)) - (##car _%e3746837573%_)))) - (if (gx#stx-pair? _%tl3746637580%_) - (let ((_%e3747137583%_ + (##car _%e3737937484%_)))) + (if (gx#stx-pair? _%tl3737737491%_) + (let ((_%e3738237494%_ (gx#syntax-e - _%tl3746637580%_))) - (let ((_%tl3746937590%_ + _%tl3737737491%_))) + (let ((_%tl3738037501%_ (let () (declare (not safe)) - (##cdr _%e3747137583%_))) - (_%hd3747037587%_ + (##cdr _%e3738237494%_))) + (_%hd3738137498%_ (let () (declare (not safe)) - (##car _%e3747137583%_)))) + (##car _%e3738237494%_)))) (if (gx#stx-null? - _%tl3746937590%_) - (_%__match3998139982%_ - _%e3746237553%_ - _%hd3746137557%_ - _%tl3746037560%_ - _%e3746537563%_ - _%hd3746437567%_ - _%tl3746337570%_ - _%e3746837573%_ - _%hd3746737577%_ - _%tl3746637580%_ - _%e3747137583%_ - _%hd3747037587%_ - _%tl3746937590%_) + _%tl3738037501%_) + (_%__match3989239893%_ + _%e3737337464%_ + _%hd3737237468%_ + _%tl3737137471%_ + _%e3737637474%_ + _%hd3737537478%_ + _%tl3737437481%_ + _%e3737937484%_ + _%hd3737837488%_ + _%tl3737737491%_ + _%e3738237494%_ + _%hd3738137498%_ + _%tl3738037501%_) (let () (declare (not safe)) - (_%g3745537489%_))))) - (if (gx#stx-null? _%tl3746637580%_) - (_%__kont3995339954%_ - _%hd3746737577%_ - _%hd3746437567%_ - _%hd3746137557%_) + (_%g3736637400%_))))) + (if (gx#stx-null? _%tl3737737491%_) + (_%__kont3986439865%_ + _%hd3737837488%_ + _%hd3737537478%_ + _%hd3737237468%_) (let () (declare (not safe)) - (_%g3745537489%_)))))) + (_%g3736637400%_)))))) (let () (declare (not safe)) - (_%g3745537489%_))))) - (let () (declare (not safe)) (_%g3745537489%_))))) - (let () (declare (not safe)) (_%g3745537489%_)))))))) + (_%g3736637400%_))))) + (let () (declare (not safe)) (_%g3736637400%_))))) + (let () (declare (not safe)) (_%g3736637400%_)))))))) (define |gerbil/core/match[:0:]#defrules-for-match| - (lambda (_%$stx37618%_) - (let* ((_%g3762237637%_ - (lambda (_%g3762337633%_) + (lambda (_%$stx37529%_) + (let* ((_%g3753337548%_ + (lambda (_%g3753437544%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3762337633%_))) - (_%g3762137680%_ - (lambda (_%g3762337641%_) - (if (gx#stx-pair? _%g3762337641%_) - (let ((_%e3762837644%_ (gx#syntax-e _%g3762337641%_))) - (let ((_%hd3762737648%_ + _%g3753437544%_))) + (_%g3753237591%_ + (lambda (_%g3753437552%_) + (if (gx#stx-pair? _%g3753437552%_) + (let ((_%e3753937555%_ (gx#syntax-e _%g3753437552%_))) + (let ((_%hd3753837559%_ (let () (declare (not safe)) - (##car _%e3762837644%_))) - (_%tl3762637651%_ + (##car _%e3753937555%_))) + (_%tl3753737562%_ (let () (declare (not safe)) - (##cdr _%e3762837644%_)))) - (if (gx#stx-pair? _%tl3762637651%_) - (let ((_%e3763137654%_ - (gx#syntax-e _%tl3762637651%_))) - (let ((_%hd3763037658%_ + (##cdr _%e3753937555%_)))) + (if (gx#stx-pair? _%tl3753737562%_) + (let ((_%e3754237565%_ + (gx#syntax-e _%tl3753737562%_))) + (let ((_%hd3754137569%_ (let () (declare (not safe)) - (##car _%e3763137654%_))) - (_%tl3762937661%_ + (##car _%e3754237565%_))) + (_%tl3754037572%_ (let () (declare (not safe)) - (##cdr _%e3763137654%_)))) - ((lambda (_%L37664%_ _%L37666%_) + (##cdr _%e3754237565%_)))) + ((lambda (_%L37575%_ _%L37577%_) (cons (gx#datum->syntax '#f 'defsyntax-for-match) - (cons _%L37666%_ + (cons _%L37577%_ (cons (cons (gx#datum->syntax '#f 'syntax-rules) - _%L37664%_) + _%L37575%_) '())))) - _%tl3762937661%_ - _%hd3763037658%_))) - (_%g3762237637%_ _%g3762337641%_)))) - (_%g3762237637%_ _%g3762337641%_))))) - (_%g3762137680%_ _%$stx37618%_)))))) + _%tl3754037572%_ + _%hd3754137569%_))) + (_%g3753337548%_ _%g3753437552%_)))) + (_%g3753337548%_ _%g3753437552%_))))) + (_%g3753237591%_ _%$stx37529%_)))))) diff --git a/src/bootstrap/gerbil/core/match~2.scm b/src/bootstrap/gerbil/core/match~2.scm index 5049d11c6..2b1ae09a1 100644 --- a/src/bootstrap/gerbil/core/match~2.scm +++ b/src/bootstrap/gerbil/core/match~2.scm @@ -1,55 +1,55 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/match[2]#_g40142_| + (define |gerbil/core/match[2]#_g39972_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g40144_| + (define |gerbil/core/match[2]#_g39974_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g40146_| + (define |gerbil/core/match[2]#_g39976_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g40148_| + (define |gerbil/core/match[2]#_g39978_| (##structure gx#syntax-quote::t 'match-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g40150_| + (define |gerbil/core/match[2]#_g39980_| (##structure gx#syntax-quote::t 'match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g40152_| + (define |gerbil/core/match[2]#_g39982_| (##structure gx#syntax-quote::t 'match-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g40154_| + (define |gerbil/core/match[2]#_g39984_| (##structure gx#syntax-quote::t '&match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g40156_| + (define |gerbil/core/match[2]#_g39986_| (##structure gx#syntax-quote::t '&match-macro-macro-set! @@ -57,7 +57,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/match[:1:]#match-macro| - (let ((__obj40003 + (let ((__obj39914 (let () (declare (not safe)) (##structure @@ -86,55 +86,55 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj40003 + __obj39914 'gerbil.core#match-macro::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj40003 'match-macro '2 '#f '#f)) + (##unchecked-structure-set! __obj39914 'match-macro '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj40003 '() '4 '#f '#f)) - (let ((__tmp40141 (cons |gerbil/core/match[2]#_g40142_| '()))) + (##unchecked-structure-set! __obj39914 '() '4 '#f '#f)) + (let ((__tmp39971 (cons |gerbil/core/match[2]#_g39972_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj40003 __tmp40141 '3 '#f '#f)) + (##unchecked-structure-set! __obj39914 __tmp39971 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj40003 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj39914 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj40003 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj39914 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj40003 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj39914 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj40003 '#f '11 '#f '#f)) - (let ((__tmp40143 |gerbil/core/match[2]#_g40144_|)) + (##unchecked-structure-set! __obj39914 '#f '11 '#f '#f)) + (let ((__tmp39973 |gerbil/core/match[2]#_g39974_|)) (declare (not safe)) - (##unchecked-structure-set! __obj40003 __tmp40143 '12 '#f '#f)) - (let ((__tmp40145 |gerbil/core/match[2]#_g40146_|)) + (##unchecked-structure-set! __obj39914 __tmp39973 '12 '#f '#f)) + (let ((__tmp39975 |gerbil/core/match[2]#_g39976_|)) (declare (not safe)) - (##unchecked-structure-set! __obj40003 __tmp40145 '13 '#f '#f)) - (let ((__tmp40147 |gerbil/core/match[2]#_g40148_|)) + (##unchecked-structure-set! __obj39914 __tmp39975 '13 '#f '#f)) + (let ((__tmp39977 |gerbil/core/match[2]#_g39978_|)) (declare (not safe)) - (##unchecked-structure-set! __obj40003 __tmp40147 '14 '#f '#f)) - (let ((__tmp40149 - (cons (cons 'macro |gerbil/core/match[2]#_g40150_|) '()))) + (##unchecked-structure-set! __obj39914 __tmp39977 '14 '#f '#f)) + (let ((__tmp39979 + (cons (cons 'macro |gerbil/core/match[2]#_g39980_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj40003 __tmp40149 '15 '#f '#f)) - (let ((__tmp40151 - (cons (cons 'macro |gerbil/core/match[2]#_g40152_|) '()))) + (##unchecked-structure-set! __obj39914 __tmp39979 '15 '#f '#f)) + (let ((__tmp39981 + (cons (cons 'macro |gerbil/core/match[2]#_g39982_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj40003 __tmp40151 '16 '#f '#f)) - (let ((__tmp40153 - (cons (cons 'macro |gerbil/core/match[2]#_g40154_|) '()))) + (##unchecked-structure-set! __obj39914 __tmp39981 '16 '#f '#f)) + (let ((__tmp39983 + (cons (cons 'macro |gerbil/core/match[2]#_g39984_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj40003 __tmp40153 '17 '#f '#f)) - (let ((__tmp40155 - (cons (cons 'macro |gerbil/core/match[2]#_g40156_|) '()))) + (##unchecked-structure-set! __obj39914 __tmp39983 '17 '#f '#f)) + (let ((__tmp39985 + (cons (cons 'macro |gerbil/core/match[2]#_g39986_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj40003 __tmp40155 '18 '#f '#f)) - __obj40003))) + (##unchecked-structure-set! __obj39914 __tmp39985 '18 '#f '#f)) + __obj39914))) diff --git a/src/bootstrap/gerbil/core/module-sugar.ssxi.ss b/src/bootstrap/gerbil/core/module-sugar.ssxi.ss index e96f85eef..134a45aa0 100644 --- a/src/bootstrap/gerbil/core/module-sugar.ssxi.ss +++ b/src/bootstrap/gerbil/core/module-sugar.ssxi.ss @@ -4,10 +4,46 @@ package: gerbil/core (begin (declare-type |gerbil/core/module-sugar[1]#module-import-rename| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/module-sugar))) (declare-type |gerbil/core/module-sugar[1]#prefix-identifier-key| - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/module-sugar))) (declare-type |gerbil/core/module-sugar[1]#module-export-rename| - (@lambda 2 #f))) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/module-sugar)))) diff --git a/src/bootstrap/gerbil/core/module-sugar~1.scm b/src/bootstrap/gerbil/core/module-sugar~1.scm index a7e5f205a..07b49d96c 100644 --- a/src/bootstrap/gerbil/core/module-sugar~1.scm +++ b/src/bootstrap/gerbil/core/module-sugar~1.scm @@ -1,2936 +1,2898 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core/module-sugar[:0:]#require| - (lambda (_%$stx41879%_) - (let* ((_%__stx4453344534%_ _%$stx41879%_) - (_%g4188441903%_ + (lambda (_%$stx41706%_) + (let* ((_%__stx4436044361%_ _%$stx41706%_) + (_%g4171141730%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4453344534%_)))) - (let ((_%__kont4453644537%_ + _%__stx4436044361%_)))) + (let ((_%__kont4436344364%_ (lambda () (cons (gx#datum->syntax '#f 'begin) '()))) - (_%__kont4453844539%_ - (lambda (_%L41930%_ _%L41932%_ _%L41933%_) + (_%__kont4436544366%_ + (lambda (_%L41757%_ _%L41759%_ _%L41760%_) (cons (gx#datum->syntax '#f 'cond-expand) - (cons (cons _%L41932%_ - (cons (cons _%L41933%_ _%L41930%_) '())) + (cons (cons _%L41759%_ + (cons (cons _%L41760%_ _%L41757%_) '())) (cons (cons (gx#datum->syntax '#f 'else) (cons (cons (gx#datum->syntax '#f 'syntax-error) (cons '"Missing required feature" - (cons _%L41932%_ + (cons _%L41759%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())))))) - (if (gx#stx-pair? _%__stx4453344534%_) - (let ((_%e4188841955%_ (gx#syntax-e _%__stx4453344534%_))) - (let ((_%tl4188641962%_ - (let () (declare (not safe)) (##cdr _%e4188841955%_))) - (_%hd4188741959%_ - (let () (declare (not safe)) (##car _%e4188841955%_)))) - (if (gx#stx-null? _%tl4188641962%_) - (_%__kont4453644537%_) - (if (gx#stx-pair? _%tl4188641962%_) - (let ((_%e4189741920%_ - (gx#syntax-e _%tl4188641962%_))) - (let ((_%tl4189541927%_ + (if (gx#stx-pair? _%__stx4436044361%_) + (let ((_%e4171541782%_ (gx#syntax-e _%__stx4436044361%_))) + (let ((_%tl4171341789%_ + (let () (declare (not safe)) (##cdr _%e4171541782%_))) + (_%hd4171441786%_ + (let () (declare (not safe)) (##car _%e4171541782%_)))) + (if (gx#stx-null? _%tl4171341789%_) + (_%__kont4436344364%_) + (if (gx#stx-pair? _%tl4171341789%_) + (let ((_%e4172441747%_ + (gx#syntax-e _%tl4171341789%_))) + (let ((_%tl4172241754%_ (let () (declare (not safe)) - (##cdr _%e4189741920%_))) - (_%hd4189641924%_ + (##cdr _%e4172441747%_))) + (_%hd4172341751%_ (let () (declare (not safe)) - (##car _%e4189741920%_)))) - (_%__kont4453844539%_ - _%tl4189541927%_ - _%hd4189641924%_ - _%hd4188741959%_))) - (let () (declare (not safe)) (_%g4188441903%_)))))) - (let () (declare (not safe)) (_%g4188441903%_))))))) + (##car _%e4172441747%_)))) + (_%__kont4436544366%_ + _%tl4172241754%_ + _%hd4172341751%_ + _%hd4171441786%_))) + (let () (declare (not safe)) (_%g4171141730%_)))))) + (let () (declare (not safe)) (_%g4171141730%_))))))) (define |gerbil/core/module-sugar[:0:]#defsyntax-for-import| - (lambda (_%$stx41973%_) - (let* ((_%__stx4456344564%_ _%$stx41973%_) - (_%g4197842018%_ + (lambda (_%$stx41800%_) + (let* ((_%__stx4439044391%_ _%$stx41800%_) + (_%g4180541845%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4456344564%_)))) - (let ((_%__kont4456644567%_ - (lambda (_%L42156%_ _%L42158%_) + _%__stx4439044391%_)))) + (let ((_%__kont4439344394%_ + (lambda (_%L41983%_ _%L41985%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L42158%_ + (cons _%L41985%_ (cons (cons (gx#datum->syntax '#f 'make-import-expander) - (cons _%L42156%_ '())) + (cons _%L41983%_ '())) '()))))) - (_%__kont4456844569%_ - (lambda (_%L42085%_ _%L42087%_ _%L42088%_ _%L42089%_) - (cons _%L42089%_ - (cons _%L42088%_ + (_%__kont4439544396%_ + (lambda (_%L41912%_ _%L41914%_ _%L41915%_ _%L41916%_) + (cons _%L41916%_ + (cons _%L41915%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L42087%_ - (foldr (lambda (_%g4211042113%_ - _%g4211142116%_) - (cons _%g4211042113%_ - _%g4211142116%_)) + (cons _%L41914%_ + (foldr (lambda (_%g4193741940%_ + _%g4193841943%_) + (cons _%g4193741940%_ + _%g4193841943%_)) '() - _%L42085%_))) + _%L41912%_))) '())))))) - (let* ((_%__match4461844619%_ - (lambda (_%e4199742025%_ - _%hd4199642029%_ - _%tl4199542032%_ - _%e4200042035%_ - _%hd4199942039%_ - _%tl4199842042%_ - _%e4200342045%_ - _%hd4200242049%_ - _%tl4200142052%_ - _%__splice4457044571%_ - _%target4200442055%_ - _%tl4200642058%_) - (letrec ((_%loop4200742061%_ - (lambda (_%hd4200542065%_ _%body4201142068%_) - (if (gx#stx-pair? _%hd4200542065%_) - (let ((_%e4200842071%_ - (gx#syntax-e _%hd4200542065%_))) - (let ((_%lp-tl4201042078%_ + (let* ((_%__match4444544446%_ + (lambda (_%e4182441852%_ + _%hd4182341856%_ + _%tl4182241859%_ + _%e4182741862%_ + _%hd4182641866%_ + _%tl4182541869%_ + _%e4183041872%_ + _%hd4182941876%_ + _%tl4182841879%_ + _%__splice4439744398%_ + _%target4183141882%_ + _%tl4183341885%_) + (letrec ((_%loop4183441888%_ + (lambda (_%hd4183241892%_ _%body4183841895%_) + (if (gx#stx-pair? _%hd4183241892%_) + (let ((_%e4183541898%_ + (gx#syntax-e _%hd4183241892%_))) + (let ((_%lp-tl4183741905%_ (let () (declare (not safe)) - (##cdr _%e4200842071%_))) - (_%lp-hd4200942075%_ + (##cdr _%e4183541898%_))) + (_%lp-hd4183641902%_ (let () (declare (not safe)) - (##car _%e4200842071%_)))) - (_%loop4200742061%_ - _%lp-tl4201042078%_ - (cons _%lp-hd4200942075%_ - _%body4201142068%_)))) - (let ((_%body4201242081%_ - (reverse _%body4201142068%_))) - (let ((_%L42085%_ _%body4201242081%_) - (_%L42087%_ _%tl4200142052%_) - (_%L42088%_ _%hd4200242049%_) - (_%L42089%_ _%hd4199642029%_)) - (if (gx#identifier? _%L42088%_) - (_%__kont4456844569%_ - _%L42085%_ - _%L42087%_ - _%L42088%_ - _%L42089%_) + (##car _%e4183541898%_)))) + (_%loop4183441888%_ + _%lp-tl4183741905%_ + (cons _%lp-hd4183641902%_ + _%body4183841895%_)))) + (let ((_%body4183941908%_ + (reverse _%body4183841895%_))) + (let ((_%L41912%_ _%body4183941908%_) + (_%L41914%_ _%tl4182841879%_) + (_%L41915%_ _%hd4182941876%_) + (_%L41916%_ _%hd4182341856%_)) + (if (gx#identifier? _%L41915%_) + (_%__kont4439544396%_ + _%L41912%_ + _%L41914%_ + _%L41915%_ + _%L41916%_) (let () (declare (not safe)) - (_%g4197842018%_))))))))) - (_%loop4200742061%_ _%target4200442055%_ '())))) - (_%__match4459244593%_ - (lambda (_%e4198442126%_ - _%hd4198342130%_ - _%tl4198242133%_ - _%e4198742136%_ - _%hd4198642140%_ - _%tl4198542143%_ - _%e4199042146%_ - _%hd4198942150%_ - _%tl4198842153%_) - (let ((_%L42156%_ _%hd4198942150%_) - (_%L42158%_ _%hd4198642140%_)) - (if (gx#identifier? _%L42158%_) - (_%__kont4456644567%_ _%L42156%_ _%L42158%_) - (if (gx#stx-pair? _%hd4198642140%_) - (let ((_%e4200342045%_ - (gx#syntax-e _%hd4198642140%_))) - (let ((_%tl4200142052%_ + (_%g4180541845%_))))))))) + (_%loop4183441888%_ _%target4183141882%_ '())))) + (_%__match4441944420%_ + (lambda (_%e4181141953%_ + _%hd4181041957%_ + _%tl4180941960%_ + _%e4181441963%_ + _%hd4181341967%_ + _%tl4181241970%_ + _%e4181741973%_ + _%hd4181641977%_ + _%tl4181541980%_) + (let ((_%L41983%_ _%hd4181641977%_) + (_%L41985%_ _%hd4181341967%_)) + (if (gx#identifier? _%L41985%_) + (_%__kont4439344394%_ _%L41983%_ _%L41985%_) + (if (gx#stx-pair? _%hd4181341967%_) + (let ((_%e4183041872%_ + (gx#syntax-e _%hd4181341967%_))) + (let ((_%tl4182841879%_ (let () (declare (not safe)) - (##cdr _%e4200342045%_))) - (_%hd4200242049%_ + (##cdr _%e4183041872%_))) + (_%hd4182941876%_ (let () (declare (not safe)) - (##car _%e4200342045%_)))) - (if (gx#stx-pair/null? _%tl4198542143%_) - (let ((_%__splice4457044571%_ + (##car _%e4183041872%_)))) + (if (gx#stx-pair/null? _%tl4181241970%_) + (let ((_%__splice4439744398%_ (gx#syntax-split-splice - _%tl4198542143%_ + _%tl4181241970%_ '0))) - (let ((_%tl4200642058%_ + (let ((_%tl4183341885%_ (let () (declare (not safe)) (##vector-ref - _%__splice4457044571%_ + _%__splice4439744398%_ '1))) - (_%target4200442055%_ + (_%target4183141882%_ (let () (declare (not safe)) (##vector-ref - _%__splice4457044571%_ + _%__splice4439744398%_ '0)))) - (if (gx#stx-null? _%tl4200642058%_) - (_%__match4461844619%_ - _%e4198442126%_ - _%hd4198342130%_ - _%tl4198242133%_ - _%e4198742136%_ - _%hd4198642140%_ - _%tl4198542143%_ - _%e4200342045%_ - _%hd4200242049%_ - _%tl4200142052%_ - _%__splice4457044571%_ - _%target4200442055%_ - _%tl4200642058%_) + (if (gx#stx-null? _%tl4183341885%_) + (_%__match4444544446%_ + _%e4181141953%_ + _%hd4181041957%_ + _%tl4180941960%_ + _%e4181441963%_ + _%hd4181341967%_ + _%tl4181241970%_ + _%e4183041872%_ + _%hd4182941876%_ + _%tl4182841879%_ + _%__splice4439744398%_ + _%target4183141882%_ + _%tl4183341885%_) (let () (declare (not safe)) - (_%g4197842018%_))))) + (_%g4180541845%_))))) (let () (declare (not safe)) - (_%g4197842018%_))))) + (_%g4180541845%_))))) (let () (declare (not safe)) - (_%g4197842018%_)))))))) - (if (gx#stx-pair? _%__stx4456344564%_) - (let ((_%e4198442126%_ (gx#syntax-e _%__stx4456344564%_))) - (let ((_%tl4198242133%_ - (let () (declare (not safe)) (##cdr _%e4198442126%_))) - (_%hd4198342130%_ + (_%g4180541845%_)))))))) + (if (gx#stx-pair? _%__stx4439044391%_) + (let ((_%e4181141953%_ (gx#syntax-e _%__stx4439044391%_))) + (let ((_%tl4180941960%_ + (let () (declare (not safe)) (##cdr _%e4181141953%_))) + (_%hd4181041957%_ (let () (declare (not safe)) - (##car _%e4198442126%_)))) - (if (gx#stx-pair? _%tl4198242133%_) - (let ((_%e4198742136%_ (gx#syntax-e _%tl4198242133%_))) - (let ((_%tl4198542143%_ + (##car _%e4181141953%_)))) + (if (gx#stx-pair? _%tl4180941960%_) + (let ((_%e4181441963%_ (gx#syntax-e _%tl4180941960%_))) + (let ((_%tl4181241970%_ (let () (declare (not safe)) - (##cdr _%e4198742136%_))) - (_%hd4198642140%_ + (##cdr _%e4181441963%_))) + (_%hd4181341967%_ (let () (declare (not safe)) - (##car _%e4198742136%_)))) - (if (gx#stx-pair? _%tl4198542143%_) - (let ((_%e4199042146%_ - (gx#syntax-e _%tl4198542143%_))) - (let ((_%tl4198842153%_ + (##car _%e4181441963%_)))) + (if (gx#stx-pair? _%tl4181241970%_) + (let ((_%e4181741973%_ + (gx#syntax-e _%tl4181241970%_))) + (let ((_%tl4181541980%_ (let () (declare (not safe)) - (##cdr _%e4199042146%_))) - (_%hd4198942150%_ + (##cdr _%e4181741973%_))) + (_%hd4181641977%_ (let () (declare (not safe)) - (##car _%e4199042146%_)))) - (if (gx#stx-null? _%tl4198842153%_) - (_%__match4459244593%_ - _%e4198442126%_ - _%hd4198342130%_ - _%tl4198242133%_ - _%e4198742136%_ - _%hd4198642140%_ - _%tl4198542143%_ - _%e4199042146%_ - _%hd4198942150%_ - _%tl4198842153%_) - (if (gx#stx-pair? _%hd4198642140%_) - (let ((_%e4200342045%_ + (##car _%e4181741973%_)))) + (if (gx#stx-null? _%tl4181541980%_) + (_%__match4441944420%_ + _%e4181141953%_ + _%hd4181041957%_ + _%tl4180941960%_ + _%e4181441963%_ + _%hd4181341967%_ + _%tl4181241970%_ + _%e4181741973%_ + _%hd4181641977%_ + _%tl4181541980%_) + (if (gx#stx-pair? _%hd4181341967%_) + (let ((_%e4183041872%_ (gx#syntax-e - _%hd4198642140%_))) - (let ((_%tl4200142052%_ + _%hd4181341967%_))) + (let ((_%tl4182841879%_ (let () (declare (not safe)) - (##cdr _%e4200342045%_))) - (_%hd4200242049%_ + (##cdr _%e4183041872%_))) + (_%hd4182941876%_ (let () (declare (not safe)) - (##car _%e4200342045%_)))) + (##car _%e4183041872%_)))) (if (gx#stx-pair/null? - _%tl4198542143%_) - (let ((_%__splice4457044571%_ + _%tl4181241970%_) + (let ((_%__splice4439744398%_ (gx#syntax-split-splice - _%tl4198542143%_ + _%tl4181241970%_ '0))) - (let ((_%tl4200642058%_ + (let ((_%tl4183341885%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4457044571%_ '1))) - (_%target4200442055%_ + (##vector-ref _%__splice4439744398%_ '1))) + (_%target4183141882%_ (let () (declare (not safe)) - (##vector-ref _%__splice4457044571%_ '0)))) - (if (gx#stx-null? _%tl4200642058%_) - (_%__match4461844619%_ - _%e4198442126%_ - _%hd4198342130%_ - _%tl4198242133%_ - _%e4198742136%_ - _%hd4198642140%_ - _%tl4198542143%_ - _%e4200342045%_ - _%hd4200242049%_ - _%tl4200142052%_ - _%__splice4457044571%_ - _%target4200442055%_ - _%tl4200642058%_) - (let () (declare (not safe)) (_%g4197842018%_))))) + (##vector-ref _%__splice4439744398%_ '0)))) + (if (gx#stx-null? _%tl4183341885%_) + (_%__match4444544446%_ + _%e4181141953%_ + _%hd4181041957%_ + _%tl4180941960%_ + _%e4181441963%_ + _%hd4181341967%_ + _%tl4181241970%_ + _%e4183041872%_ + _%hd4182941876%_ + _%tl4182841879%_ + _%__splice4439744398%_ + _%target4183141882%_ + _%tl4183341885%_) + (let () (declare (not safe)) (_%g4180541845%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4197842018%_))))) + (_%g4180541845%_))))) (let () (declare (not safe)) - (_%g4197842018%_)))))) - (if (gx#stx-pair? _%hd4198642140%_) - (let ((_%e4200342045%_ - (gx#syntax-e _%hd4198642140%_))) - (let ((_%tl4200142052%_ + (_%g4180541845%_)))))) + (if (gx#stx-pair? _%hd4181341967%_) + (let ((_%e4183041872%_ + (gx#syntax-e _%hd4181341967%_))) + (let ((_%tl4182841879%_ (let () (declare (not safe)) - (##cdr _%e4200342045%_))) - (_%hd4200242049%_ + (##cdr _%e4183041872%_))) + (_%hd4182941876%_ (let () (declare (not safe)) - (##car _%e4200342045%_)))) + (##car _%e4183041872%_)))) (if (gx#stx-pair/null? - _%tl4198542143%_) - (let ((_%__splice4457044571%_ + _%tl4181241970%_) + (let ((_%__splice4439744398%_ (gx#syntax-split-splice - _%tl4198542143%_ + _%tl4181241970%_ '0))) - (let ((_%tl4200642058%_ + (let ((_%tl4183341885%_ (let () (declare (not safe)) (##vector-ref - _%__splice4457044571%_ + _%__splice4439744398%_ '1))) - (_%target4200442055%_ + (_%target4183141882%_ (let () (declare (not safe)) (##vector-ref - _%__splice4457044571%_ + _%__splice4439744398%_ '0)))) (if (gx#stx-null? - _%tl4200642058%_) - (_%__match4461844619%_ - _%e4198442126%_ - _%hd4198342130%_ - _%tl4198242133%_ - _%e4198742136%_ - _%hd4198642140%_ - _%tl4198542143%_ - _%e4200342045%_ - _%hd4200242049%_ - _%tl4200142052%_ - _%__splice4457044571%_ - _%target4200442055%_ - _%tl4200642058%_) + _%tl4183341885%_) + (_%__match4444544446%_ + _%e4181141953%_ + _%hd4181041957%_ + _%tl4180941960%_ + _%e4181441963%_ + _%hd4181341967%_ + _%tl4181241970%_ + _%e4183041872%_ + _%hd4182941876%_ + _%tl4182841879%_ + _%__splice4439744398%_ + _%target4183141882%_ + _%tl4183341885%_) (let () (declare (not safe)) - (_%g4197842018%_))))) + (_%g4180541845%_))))) (let () (declare (not safe)) - (_%g4197842018%_))))) + (_%g4180541845%_))))) (let () (declare (not safe)) - (_%g4197842018%_)))))) - (let () (declare (not safe)) (_%g4197842018%_))))) - (let () (declare (not safe)) (_%g4197842018%_)))))))) + (_%g4180541845%_)))))) + (let () (declare (not safe)) (_%g4180541845%_))))) + (let () (declare (not safe)) (_%g4180541845%_)))))))) (define |gerbil/core/module-sugar[:0:]#defsyntax-for-export| - (lambda (_%$stx42178%_) - (let* ((_%__stx4462144622%_ _%$stx42178%_) - (_%g4218342223%_ + (lambda (_%$stx42005%_) + (let* ((_%__stx4444844449%_ _%$stx42005%_) + (_%g4201042050%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4462144622%_)))) - (let ((_%__kont4462444625%_ - (lambda (_%L42361%_ _%L42363%_) + _%__stx4444844449%_)))) + (let ((_%__kont4445144452%_ + (lambda (_%L42188%_ _%L42190%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L42363%_ + (cons _%L42190%_ (cons (cons (gx#datum->syntax '#f 'make-export-expander) - (cons _%L42361%_ '())) + (cons _%L42188%_ '())) '()))))) - (_%__kont4462644627%_ - (lambda (_%L42290%_ _%L42292%_ _%L42293%_ _%L42294%_) - (cons _%L42294%_ - (cons _%L42293%_ + (_%__kont4445344454%_ + (lambda (_%L42117%_ _%L42119%_ _%L42120%_ _%L42121%_) + (cons _%L42121%_ + (cons _%L42120%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L42292%_ - (foldr (lambda (_%g4231542318%_ - _%g4231642321%_) - (cons _%g4231542318%_ - _%g4231642321%_)) + (cons _%L42119%_ + (foldr (lambda (_%g4214242145%_ + _%g4214342148%_) + (cons _%g4214242145%_ + _%g4214342148%_)) '() - _%L42290%_))) + _%L42117%_))) '())))))) - (let* ((_%__match4467644677%_ - (lambda (_%e4220242230%_ - _%hd4220142234%_ - _%tl4220042237%_ - _%e4220542240%_ - _%hd4220442244%_ - _%tl4220342247%_ - _%e4220842250%_ - _%hd4220742254%_ - _%tl4220642257%_ - _%__splice4462844629%_ - _%target4220942260%_ - _%tl4221142263%_) - (letrec ((_%loop4221242266%_ - (lambda (_%hd4221042270%_ _%body4221642273%_) - (if (gx#stx-pair? _%hd4221042270%_) - (let ((_%e4221342276%_ - (gx#syntax-e _%hd4221042270%_))) - (let ((_%lp-tl4221542283%_ + (let* ((_%__match4450344504%_ + (lambda (_%e4202942057%_ + _%hd4202842061%_ + _%tl4202742064%_ + _%e4203242067%_ + _%hd4203142071%_ + _%tl4203042074%_ + _%e4203542077%_ + _%hd4203442081%_ + _%tl4203342084%_ + _%__splice4445544456%_ + _%target4203642087%_ + _%tl4203842090%_) + (letrec ((_%loop4203942093%_ + (lambda (_%hd4203742097%_ _%body4204342100%_) + (if (gx#stx-pair? _%hd4203742097%_) + (let ((_%e4204042103%_ + (gx#syntax-e _%hd4203742097%_))) + (let ((_%lp-tl4204242110%_ (let () (declare (not safe)) - (##cdr _%e4221342276%_))) - (_%lp-hd4221442280%_ + (##cdr _%e4204042103%_))) + (_%lp-hd4204142107%_ (let () (declare (not safe)) - (##car _%e4221342276%_)))) - (_%loop4221242266%_ - _%lp-tl4221542283%_ - (cons _%lp-hd4221442280%_ - _%body4221642273%_)))) - (let ((_%body4221742286%_ - (reverse _%body4221642273%_))) - (let ((_%L42290%_ _%body4221742286%_) - (_%L42292%_ _%tl4220642257%_) - (_%L42293%_ _%hd4220742254%_) - (_%L42294%_ _%hd4220142234%_)) - (if (gx#identifier? _%L42293%_) - (_%__kont4462644627%_ - _%L42290%_ - _%L42292%_ - _%L42293%_ - _%L42294%_) + (##car _%e4204042103%_)))) + (_%loop4203942093%_ + _%lp-tl4204242110%_ + (cons _%lp-hd4204142107%_ + _%body4204342100%_)))) + (let ((_%body4204442113%_ + (reverse _%body4204342100%_))) + (let ((_%L42117%_ _%body4204442113%_) + (_%L42119%_ _%tl4203342084%_) + (_%L42120%_ _%hd4203442081%_) + (_%L42121%_ _%hd4202842061%_)) + (if (gx#identifier? _%L42120%_) + (_%__kont4445344454%_ + _%L42117%_ + _%L42119%_ + _%L42120%_ + _%L42121%_) (let () (declare (not safe)) - (_%g4218342223%_))))))))) - (_%loop4221242266%_ _%target4220942260%_ '())))) - (_%__match4465044651%_ - (lambda (_%e4218942331%_ - _%hd4218842335%_ - _%tl4218742338%_ - _%e4219242341%_ - _%hd4219142345%_ - _%tl4219042348%_ - _%e4219542351%_ - _%hd4219442355%_ - _%tl4219342358%_) - (let ((_%L42361%_ _%hd4219442355%_) - (_%L42363%_ _%hd4219142345%_)) - (if (gx#identifier? _%L42363%_) - (_%__kont4462444625%_ _%L42361%_ _%L42363%_) - (if (gx#stx-pair? _%hd4219142345%_) - (let ((_%e4220842250%_ - (gx#syntax-e _%hd4219142345%_))) - (let ((_%tl4220642257%_ + (_%g4201042050%_))))))))) + (_%loop4203942093%_ _%target4203642087%_ '())))) + (_%__match4447744478%_ + (lambda (_%e4201642158%_ + _%hd4201542162%_ + _%tl4201442165%_ + _%e4201942168%_ + _%hd4201842172%_ + _%tl4201742175%_ + _%e4202242178%_ + _%hd4202142182%_ + _%tl4202042185%_) + (let ((_%L42188%_ _%hd4202142182%_) + (_%L42190%_ _%hd4201842172%_)) + (if (gx#identifier? _%L42190%_) + (_%__kont4445144452%_ _%L42188%_ _%L42190%_) + (if (gx#stx-pair? _%hd4201842172%_) + (let ((_%e4203542077%_ + (gx#syntax-e _%hd4201842172%_))) + (let ((_%tl4203342084%_ (let () (declare (not safe)) - (##cdr _%e4220842250%_))) - (_%hd4220742254%_ + (##cdr _%e4203542077%_))) + (_%hd4203442081%_ (let () (declare (not safe)) - (##car _%e4220842250%_)))) - (if (gx#stx-pair/null? _%tl4219042348%_) - (let ((_%__splice4462844629%_ + (##car _%e4203542077%_)))) + (if (gx#stx-pair/null? _%tl4201742175%_) + (let ((_%__splice4445544456%_ (gx#syntax-split-splice - _%tl4219042348%_ + _%tl4201742175%_ '0))) - (let ((_%tl4221142263%_ + (let ((_%tl4203842090%_ (let () (declare (not safe)) (##vector-ref - _%__splice4462844629%_ + _%__splice4445544456%_ '1))) - (_%target4220942260%_ + (_%target4203642087%_ (let () (declare (not safe)) (##vector-ref - _%__splice4462844629%_ + _%__splice4445544456%_ '0)))) - (if (gx#stx-null? _%tl4221142263%_) - (_%__match4467644677%_ - _%e4218942331%_ - _%hd4218842335%_ - _%tl4218742338%_ - _%e4219242341%_ - _%hd4219142345%_ - _%tl4219042348%_ - _%e4220842250%_ - _%hd4220742254%_ - _%tl4220642257%_ - _%__splice4462844629%_ - _%target4220942260%_ - _%tl4221142263%_) + (if (gx#stx-null? _%tl4203842090%_) + (_%__match4450344504%_ + _%e4201642158%_ + _%hd4201542162%_ + _%tl4201442165%_ + _%e4201942168%_ + _%hd4201842172%_ + _%tl4201742175%_ + _%e4203542077%_ + _%hd4203442081%_ + _%tl4203342084%_ + _%__splice4445544456%_ + _%target4203642087%_ + _%tl4203842090%_) (let () (declare (not safe)) - (_%g4218342223%_))))) + (_%g4201042050%_))))) (let () (declare (not safe)) - (_%g4218342223%_))))) + (_%g4201042050%_))))) (let () (declare (not safe)) - (_%g4218342223%_)))))))) - (if (gx#stx-pair? _%__stx4462144622%_) - (let ((_%e4218942331%_ (gx#syntax-e _%__stx4462144622%_))) - (let ((_%tl4218742338%_ - (let () (declare (not safe)) (##cdr _%e4218942331%_))) - (_%hd4218842335%_ + (_%g4201042050%_)))))))) + (if (gx#stx-pair? _%__stx4444844449%_) + (let ((_%e4201642158%_ (gx#syntax-e _%__stx4444844449%_))) + (let ((_%tl4201442165%_ + (let () (declare (not safe)) (##cdr _%e4201642158%_))) + (_%hd4201542162%_ (let () (declare (not safe)) - (##car _%e4218942331%_)))) - (if (gx#stx-pair? _%tl4218742338%_) - (let ((_%e4219242341%_ (gx#syntax-e _%tl4218742338%_))) - (let ((_%tl4219042348%_ + (##car _%e4201642158%_)))) + (if (gx#stx-pair? _%tl4201442165%_) + (let ((_%e4201942168%_ (gx#syntax-e _%tl4201442165%_))) + (let ((_%tl4201742175%_ (let () (declare (not safe)) - (##cdr _%e4219242341%_))) - (_%hd4219142345%_ + (##cdr _%e4201942168%_))) + (_%hd4201842172%_ (let () (declare (not safe)) - (##car _%e4219242341%_)))) - (if (gx#stx-pair? _%tl4219042348%_) - (let ((_%e4219542351%_ - (gx#syntax-e _%tl4219042348%_))) - (let ((_%tl4219342358%_ + (##car _%e4201942168%_)))) + (if (gx#stx-pair? _%tl4201742175%_) + (let ((_%e4202242178%_ + (gx#syntax-e _%tl4201742175%_))) + (let ((_%tl4202042185%_ (let () (declare (not safe)) - (##cdr _%e4219542351%_))) - (_%hd4219442355%_ + (##cdr _%e4202242178%_))) + (_%hd4202142182%_ (let () (declare (not safe)) - (##car _%e4219542351%_)))) - (if (gx#stx-null? _%tl4219342358%_) - (_%__match4465044651%_ - _%e4218942331%_ - _%hd4218842335%_ - _%tl4218742338%_ - _%e4219242341%_ - _%hd4219142345%_ - _%tl4219042348%_ - _%e4219542351%_ - _%hd4219442355%_ - _%tl4219342358%_) - (if (gx#stx-pair? _%hd4219142345%_) - (let ((_%e4220842250%_ + (##car _%e4202242178%_)))) + (if (gx#stx-null? _%tl4202042185%_) + (_%__match4447744478%_ + _%e4201642158%_ + _%hd4201542162%_ + _%tl4201442165%_ + _%e4201942168%_ + _%hd4201842172%_ + _%tl4201742175%_ + _%e4202242178%_ + _%hd4202142182%_ + _%tl4202042185%_) + (if (gx#stx-pair? _%hd4201842172%_) + (let ((_%e4203542077%_ (gx#syntax-e - _%hd4219142345%_))) - (let ((_%tl4220642257%_ + _%hd4201842172%_))) + (let ((_%tl4203342084%_ (let () (declare (not safe)) - (##cdr _%e4220842250%_))) - (_%hd4220742254%_ + (##cdr _%e4203542077%_))) + (_%hd4203442081%_ (let () (declare (not safe)) - (##car _%e4220842250%_)))) + (##car _%e4203542077%_)))) (if (gx#stx-pair/null? - _%tl4219042348%_) - (let ((_%__splice4462844629%_ + _%tl4201742175%_) + (let ((_%__splice4445544456%_ (gx#syntax-split-splice - _%tl4219042348%_ + _%tl4201742175%_ '0))) - (let ((_%tl4221142263%_ + (let ((_%tl4203842090%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4462844629%_ '1))) - (_%target4220942260%_ + (##vector-ref _%__splice4445544456%_ '1))) + (_%target4203642087%_ (let () (declare (not safe)) - (##vector-ref _%__splice4462844629%_ '0)))) - (if (gx#stx-null? _%tl4221142263%_) - (_%__match4467644677%_ - _%e4218942331%_ - _%hd4218842335%_ - _%tl4218742338%_ - _%e4219242341%_ - _%hd4219142345%_ - _%tl4219042348%_ - _%e4220842250%_ - _%hd4220742254%_ - _%tl4220642257%_ - _%__splice4462844629%_ - _%target4220942260%_ - _%tl4221142263%_) - (let () (declare (not safe)) (_%g4218342223%_))))) + (##vector-ref _%__splice4445544456%_ '0)))) + (if (gx#stx-null? _%tl4203842090%_) + (_%__match4450344504%_ + _%e4201642158%_ + _%hd4201542162%_ + _%tl4201442165%_ + _%e4201942168%_ + _%hd4201842172%_ + _%tl4201742175%_ + _%e4203542077%_ + _%hd4203442081%_ + _%tl4203342084%_ + _%__splice4445544456%_ + _%target4203642087%_ + _%tl4203842090%_) + (let () (declare (not safe)) (_%g4201042050%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4218342223%_))))) + (_%g4201042050%_))))) (let () (declare (not safe)) - (_%g4218342223%_)))))) - (if (gx#stx-pair? _%hd4219142345%_) - (let ((_%e4220842250%_ - (gx#syntax-e _%hd4219142345%_))) - (let ((_%tl4220642257%_ + (_%g4201042050%_)))))) + (if (gx#stx-pair? _%hd4201842172%_) + (let ((_%e4203542077%_ + (gx#syntax-e _%hd4201842172%_))) + (let ((_%tl4203342084%_ (let () (declare (not safe)) - (##cdr _%e4220842250%_))) - (_%hd4220742254%_ + (##cdr _%e4203542077%_))) + (_%hd4203442081%_ (let () (declare (not safe)) - (##car _%e4220842250%_)))) + (##car _%e4203542077%_)))) (if (gx#stx-pair/null? - _%tl4219042348%_) - (let ((_%__splice4462844629%_ + _%tl4201742175%_) + (let ((_%__splice4445544456%_ (gx#syntax-split-splice - _%tl4219042348%_ + _%tl4201742175%_ '0))) - (let ((_%tl4221142263%_ + (let ((_%tl4203842090%_ (let () (declare (not safe)) (##vector-ref - _%__splice4462844629%_ + _%__splice4445544456%_ '1))) - (_%target4220942260%_ + (_%target4203642087%_ (let () (declare (not safe)) (##vector-ref - _%__splice4462844629%_ + _%__splice4445544456%_ '0)))) (if (gx#stx-null? - _%tl4221142263%_) - (_%__match4467644677%_ - _%e4218942331%_ - _%hd4218842335%_ - _%tl4218742338%_ - _%e4219242341%_ - _%hd4219142345%_ - _%tl4219042348%_ - _%e4220842250%_ - _%hd4220742254%_ - _%tl4220642257%_ - _%__splice4462844629%_ - _%target4220942260%_ - _%tl4221142263%_) + _%tl4203842090%_) + (_%__match4450344504%_ + _%e4201642158%_ + _%hd4201542162%_ + _%tl4201442165%_ + _%e4201942168%_ + _%hd4201842172%_ + _%tl4201742175%_ + _%e4203542077%_ + _%hd4203442081%_ + _%tl4203342084%_ + _%__splice4445544456%_ + _%target4203642087%_ + _%tl4203842090%_) (let () (declare (not safe)) - (_%g4218342223%_))))) + (_%g4201042050%_))))) (let () (declare (not safe)) - (_%g4218342223%_))))) + (_%g4201042050%_))))) (let () (declare (not safe)) - (_%g4218342223%_)))))) - (let () (declare (not safe)) (_%g4218342223%_))))) - (let () (declare (not safe)) (_%g4218342223%_)))))))) + (_%g4201042050%_)))))) + (let () (declare (not safe)) (_%g4201042050%_))))) + (let () (declare (not safe)) (_%g4201042050%_)))))))) (define |gerbil/core/module-sugar[:0:]#defsyntax-for-import-export| - (lambda (_%$stx42383%_) - (let* ((_%__stx4467944680%_ _%$stx42383%_) - (_%g4238842428%_ + (lambda (_%$stx42210%_) + (let* ((_%__stx4450644507%_ _%$stx42210%_) + (_%g4221542255%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4467944680%_)))) - (let ((_%__kont4468244683%_ - (lambda (_%L42566%_ _%L42568%_) + _%__stx4450644507%_)))) + (let ((_%__kont4450944510%_ + (lambda (_%L42393%_ _%L42395%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L42568%_ + (cons _%L42395%_ (cons (cons (gx#datum->syntax '#f 'make-import-export-expander) - (cons _%L42566%_ '())) + (cons _%L42393%_ '())) '()))))) - (_%__kont4468444685%_ - (lambda (_%L42495%_ _%L42497%_ _%L42498%_ _%L42499%_) - (cons _%L42499%_ - (cons _%L42498%_ + (_%__kont4451144512%_ + (lambda (_%L42322%_ _%L42324%_ _%L42325%_ _%L42326%_) + (cons _%L42326%_ + (cons _%L42325%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L42497%_ - (foldr (lambda (_%g4252042523%_ - _%g4252142526%_) - (cons _%g4252042523%_ - _%g4252142526%_)) + (cons _%L42324%_ + (foldr (lambda (_%g4234742350%_ + _%g4234842353%_) + (cons _%g4234742350%_ + _%g4234842353%_)) '() - _%L42495%_))) + _%L42322%_))) '())))))) - (let* ((_%__match4473444735%_ - (lambda (_%e4240742435%_ - _%hd4240642439%_ - _%tl4240542442%_ - _%e4241042445%_ - _%hd4240942449%_ - _%tl4240842452%_ - _%e4241342455%_ - _%hd4241242459%_ - _%tl4241142462%_ - _%__splice4468644687%_ - _%target4241442465%_ - _%tl4241642468%_) - (letrec ((_%loop4241742471%_ - (lambda (_%hd4241542475%_ _%body4242142478%_) - (if (gx#stx-pair? _%hd4241542475%_) - (let ((_%e4241842481%_ - (gx#syntax-e _%hd4241542475%_))) - (let ((_%lp-tl4242042488%_ + (let* ((_%__match4456144562%_ + (lambda (_%e4223442262%_ + _%hd4223342266%_ + _%tl4223242269%_ + _%e4223742272%_ + _%hd4223642276%_ + _%tl4223542279%_ + _%e4224042282%_ + _%hd4223942286%_ + _%tl4223842289%_ + _%__splice4451344514%_ + _%target4224142292%_ + _%tl4224342295%_) + (letrec ((_%loop4224442298%_ + (lambda (_%hd4224242302%_ _%body4224842305%_) + (if (gx#stx-pair? _%hd4224242302%_) + (let ((_%e4224542308%_ + (gx#syntax-e _%hd4224242302%_))) + (let ((_%lp-tl4224742315%_ (let () (declare (not safe)) - (##cdr _%e4241842481%_))) - (_%lp-hd4241942485%_ + (##cdr _%e4224542308%_))) + (_%lp-hd4224642312%_ (let () (declare (not safe)) - (##car _%e4241842481%_)))) - (_%loop4241742471%_ - _%lp-tl4242042488%_ - (cons _%lp-hd4241942485%_ - _%body4242142478%_)))) - (let ((_%body4242242491%_ - (reverse _%body4242142478%_))) - (let ((_%L42495%_ _%body4242242491%_) - (_%L42497%_ _%tl4241142462%_) - (_%L42498%_ _%hd4241242459%_) - (_%L42499%_ _%hd4240642439%_)) - (if (gx#identifier? _%L42498%_) - (_%__kont4468444685%_ - _%L42495%_ - _%L42497%_ - _%L42498%_ - _%L42499%_) + (##car _%e4224542308%_)))) + (_%loop4224442298%_ + _%lp-tl4224742315%_ + (cons _%lp-hd4224642312%_ + _%body4224842305%_)))) + (let ((_%body4224942318%_ + (reverse _%body4224842305%_))) + (let ((_%L42322%_ _%body4224942318%_) + (_%L42324%_ _%tl4223842289%_) + (_%L42325%_ _%hd4223942286%_) + (_%L42326%_ _%hd4223342266%_)) + (if (gx#identifier? _%L42325%_) + (_%__kont4451144512%_ + _%L42322%_ + _%L42324%_ + _%L42325%_ + _%L42326%_) (let () (declare (not safe)) - (_%g4238842428%_))))))))) - (_%loop4241742471%_ _%target4241442465%_ '())))) - (_%__match4470844709%_ - (lambda (_%e4239442536%_ - _%hd4239342540%_ - _%tl4239242543%_ - _%e4239742546%_ - _%hd4239642550%_ - _%tl4239542553%_ - _%e4240042556%_ - _%hd4239942560%_ - _%tl4239842563%_) - (let ((_%L42566%_ _%hd4239942560%_) - (_%L42568%_ _%hd4239642550%_)) - (if (gx#identifier? _%L42568%_) - (_%__kont4468244683%_ _%L42566%_ _%L42568%_) - (if (gx#stx-pair? _%hd4239642550%_) - (let ((_%e4241342455%_ - (gx#syntax-e _%hd4239642550%_))) - (let ((_%tl4241142462%_ + (_%g4221542255%_))))))))) + (_%loop4224442298%_ _%target4224142292%_ '())))) + (_%__match4453544536%_ + (lambda (_%e4222142363%_ + _%hd4222042367%_ + _%tl4221942370%_ + _%e4222442373%_ + _%hd4222342377%_ + _%tl4222242380%_ + _%e4222742383%_ + _%hd4222642387%_ + _%tl4222542390%_) + (let ((_%L42393%_ _%hd4222642387%_) + (_%L42395%_ _%hd4222342377%_)) + (if (gx#identifier? _%L42395%_) + (_%__kont4450944510%_ _%L42393%_ _%L42395%_) + (if (gx#stx-pair? _%hd4222342377%_) + (let ((_%e4224042282%_ + (gx#syntax-e _%hd4222342377%_))) + (let ((_%tl4223842289%_ (let () (declare (not safe)) - (##cdr _%e4241342455%_))) - (_%hd4241242459%_ + (##cdr _%e4224042282%_))) + (_%hd4223942286%_ (let () (declare (not safe)) - (##car _%e4241342455%_)))) - (if (gx#stx-pair/null? _%tl4239542553%_) - (let ((_%__splice4468644687%_ + (##car _%e4224042282%_)))) + (if (gx#stx-pair/null? _%tl4222242380%_) + (let ((_%__splice4451344514%_ (gx#syntax-split-splice - _%tl4239542553%_ + _%tl4222242380%_ '0))) - (let ((_%tl4241642468%_ + (let ((_%tl4224342295%_ (let () (declare (not safe)) (##vector-ref - _%__splice4468644687%_ + _%__splice4451344514%_ '1))) - (_%target4241442465%_ + (_%target4224142292%_ (let () (declare (not safe)) (##vector-ref - _%__splice4468644687%_ + _%__splice4451344514%_ '0)))) - (if (gx#stx-null? _%tl4241642468%_) - (_%__match4473444735%_ - _%e4239442536%_ - _%hd4239342540%_ - _%tl4239242543%_ - _%e4239742546%_ - _%hd4239642550%_ - _%tl4239542553%_ - _%e4241342455%_ - _%hd4241242459%_ - _%tl4241142462%_ - _%__splice4468644687%_ - _%target4241442465%_ - _%tl4241642468%_) + (if (gx#stx-null? _%tl4224342295%_) + (_%__match4456144562%_ + _%e4222142363%_ + _%hd4222042367%_ + _%tl4221942370%_ + _%e4222442373%_ + _%hd4222342377%_ + _%tl4222242380%_ + _%e4224042282%_ + _%hd4223942286%_ + _%tl4223842289%_ + _%__splice4451344514%_ + _%target4224142292%_ + _%tl4224342295%_) (let () (declare (not safe)) - (_%g4238842428%_))))) + (_%g4221542255%_))))) (let () (declare (not safe)) - (_%g4238842428%_))))) + (_%g4221542255%_))))) (let () (declare (not safe)) - (_%g4238842428%_)))))))) - (if (gx#stx-pair? _%__stx4467944680%_) - (let ((_%e4239442536%_ (gx#syntax-e _%__stx4467944680%_))) - (let ((_%tl4239242543%_ - (let () (declare (not safe)) (##cdr _%e4239442536%_))) - (_%hd4239342540%_ + (_%g4221542255%_)))))))) + (if (gx#stx-pair? _%__stx4450644507%_) + (let ((_%e4222142363%_ (gx#syntax-e _%__stx4450644507%_))) + (let ((_%tl4221942370%_ + (let () (declare (not safe)) (##cdr _%e4222142363%_))) + (_%hd4222042367%_ (let () (declare (not safe)) - (##car _%e4239442536%_)))) - (if (gx#stx-pair? _%tl4239242543%_) - (let ((_%e4239742546%_ (gx#syntax-e _%tl4239242543%_))) - (let ((_%tl4239542553%_ + (##car _%e4222142363%_)))) + (if (gx#stx-pair? _%tl4221942370%_) + (let ((_%e4222442373%_ (gx#syntax-e _%tl4221942370%_))) + (let ((_%tl4222242380%_ (let () (declare (not safe)) - (##cdr _%e4239742546%_))) - (_%hd4239642550%_ + (##cdr _%e4222442373%_))) + (_%hd4222342377%_ (let () (declare (not safe)) - (##car _%e4239742546%_)))) - (if (gx#stx-pair? _%tl4239542553%_) - (let ((_%e4240042556%_ - (gx#syntax-e _%tl4239542553%_))) - (let ((_%tl4239842563%_ + (##car _%e4222442373%_)))) + (if (gx#stx-pair? _%tl4222242380%_) + (let ((_%e4222742383%_ + (gx#syntax-e _%tl4222242380%_))) + (let ((_%tl4222542390%_ (let () (declare (not safe)) - (##cdr _%e4240042556%_))) - (_%hd4239942560%_ + (##cdr _%e4222742383%_))) + (_%hd4222642387%_ (let () (declare (not safe)) - (##car _%e4240042556%_)))) - (if (gx#stx-null? _%tl4239842563%_) - (_%__match4470844709%_ - _%e4239442536%_ - _%hd4239342540%_ - _%tl4239242543%_ - _%e4239742546%_ - _%hd4239642550%_ - _%tl4239542553%_ - _%e4240042556%_ - _%hd4239942560%_ - _%tl4239842563%_) - (if (gx#stx-pair? _%hd4239642550%_) - (let ((_%e4241342455%_ + (##car _%e4222742383%_)))) + (if (gx#stx-null? _%tl4222542390%_) + (_%__match4453544536%_ + _%e4222142363%_ + _%hd4222042367%_ + _%tl4221942370%_ + _%e4222442373%_ + _%hd4222342377%_ + _%tl4222242380%_ + _%e4222742383%_ + _%hd4222642387%_ + _%tl4222542390%_) + (if (gx#stx-pair? _%hd4222342377%_) + (let ((_%e4224042282%_ (gx#syntax-e - _%hd4239642550%_))) - (let ((_%tl4241142462%_ + _%hd4222342377%_))) + (let ((_%tl4223842289%_ (let () (declare (not safe)) - (##cdr _%e4241342455%_))) - (_%hd4241242459%_ + (##cdr _%e4224042282%_))) + (_%hd4223942286%_ (let () (declare (not safe)) - (##car _%e4241342455%_)))) + (##car _%e4224042282%_)))) (if (gx#stx-pair/null? - _%tl4239542553%_) - (let ((_%__splice4468644687%_ + _%tl4222242380%_) + (let ((_%__splice4451344514%_ (gx#syntax-split-splice - _%tl4239542553%_ + _%tl4222242380%_ '0))) - (let ((_%tl4241642468%_ + (let ((_%tl4224342295%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4468644687%_ '1))) - (_%target4241442465%_ + (##vector-ref _%__splice4451344514%_ '1))) + (_%target4224142292%_ (let () (declare (not safe)) - (##vector-ref _%__splice4468644687%_ '0)))) - (if (gx#stx-null? _%tl4241642468%_) - (_%__match4473444735%_ - _%e4239442536%_ - _%hd4239342540%_ - _%tl4239242543%_ - _%e4239742546%_ - _%hd4239642550%_ - _%tl4239542553%_ - _%e4241342455%_ - _%hd4241242459%_ - _%tl4241142462%_ - _%__splice4468644687%_ - _%target4241442465%_ - _%tl4241642468%_) - (let () (declare (not safe)) (_%g4238842428%_))))) + (##vector-ref _%__splice4451344514%_ '0)))) + (if (gx#stx-null? _%tl4224342295%_) + (_%__match4456144562%_ + _%e4222142363%_ + _%hd4222042367%_ + _%tl4221942370%_ + _%e4222442373%_ + _%hd4222342377%_ + _%tl4222242380%_ + _%e4224042282%_ + _%hd4223942286%_ + _%tl4223842289%_ + _%__splice4451344514%_ + _%target4224142292%_ + _%tl4224342295%_) + (let () (declare (not safe)) (_%g4221542255%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4238842428%_))))) + (_%g4221542255%_))))) (let () (declare (not safe)) - (_%g4238842428%_)))))) - (if (gx#stx-pair? _%hd4239642550%_) - (let ((_%e4241342455%_ - (gx#syntax-e _%hd4239642550%_))) - (let ((_%tl4241142462%_ + (_%g4221542255%_)))))) + (if (gx#stx-pair? _%hd4222342377%_) + (let ((_%e4224042282%_ + (gx#syntax-e _%hd4222342377%_))) + (let ((_%tl4223842289%_ (let () (declare (not safe)) - (##cdr _%e4241342455%_))) - (_%hd4241242459%_ + (##cdr _%e4224042282%_))) + (_%hd4223942286%_ (let () (declare (not safe)) - (##car _%e4241342455%_)))) + (##car _%e4224042282%_)))) (if (gx#stx-pair/null? - _%tl4239542553%_) - (let ((_%__splice4468644687%_ + _%tl4222242380%_) + (let ((_%__splice4451344514%_ (gx#syntax-split-splice - _%tl4239542553%_ + _%tl4222242380%_ '0))) - (let ((_%tl4241642468%_ + (let ((_%tl4224342295%_ (let () (declare (not safe)) (##vector-ref - _%__splice4468644687%_ + _%__splice4451344514%_ '1))) - (_%target4241442465%_ + (_%target4224142292%_ (let () (declare (not safe)) (##vector-ref - _%__splice4468644687%_ + _%__splice4451344514%_ '0)))) (if (gx#stx-null? - _%tl4241642468%_) - (_%__match4473444735%_ - _%e4239442536%_ - _%hd4239342540%_ - _%tl4239242543%_ - _%e4239742546%_ - _%hd4239642550%_ - _%tl4239542553%_ - _%e4241342455%_ - _%hd4241242459%_ - _%tl4241142462%_ - _%__splice4468644687%_ - _%target4241442465%_ - _%tl4241642468%_) + _%tl4224342295%_) + (_%__match4456144562%_ + _%e4222142363%_ + _%hd4222042367%_ + _%tl4221942370%_ + _%e4222442373%_ + _%hd4222342377%_ + _%tl4222242380%_ + _%e4224042282%_ + _%hd4223942286%_ + _%tl4223842289%_ + _%__splice4451344514%_ + _%target4224142292%_ + _%tl4224342295%_) (let () (declare (not safe)) - (_%g4238842428%_))))) + (_%g4221542255%_))))) (let () (declare (not safe)) - (_%g4238842428%_))))) + (_%g4221542255%_))))) (let () (declare (not safe)) - (_%g4238842428%_)))))) - (let () (declare (not safe)) (_%g4238842428%_))))) - (let () (declare (not safe)) (_%g4238842428%_)))))))) + (_%g4221542255%_)))))) + (let () (declare (not safe)) (_%g4221542255%_))))) + (let () (declare (not safe)) (_%g4221542255%_)))))))) (define |gerbil/core/module-sugar[:0:]#for-syntax| (gx#make-import-export-expander - (lambda (_%stx42588%_) - (let* ((_%g4259142611%_ - (lambda (_%g4259242607%_) + (lambda (_%stx42415%_) + (let* ((_%g4241842438%_ + (lambda (_%g4241942434%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4259242607%_))) - (_%g4259042682%_ - (lambda (_%g4259242615%_) - (if (gx#stx-pair? _%g4259242615%_) - (let ((_%e4259642618%_ (gx#syntax-e _%g4259242615%_))) - (let ((_%hd4259542622%_ + _%g4241942434%_))) + (_%g4241742509%_ + (lambda (_%g4241942442%_) + (if (gx#stx-pair? _%g4241942442%_) + (let ((_%e4242342445%_ (gx#syntax-e _%g4241942442%_))) + (let ((_%hd4242242449%_ (let () (declare (not safe)) - (##car _%e4259642618%_))) - (_%tl4259442625%_ + (##car _%e4242342445%_))) + (_%tl4242142452%_ (let () (declare (not safe)) - (##cdr _%e4259642618%_)))) - (if (gx#stx-pair/null? _%tl4259442625%_) - (let ((_g44829_ + (##cdr _%e4242342445%_)))) + (if (gx#stx-pair/null? _%tl4242142452%_) + (let ((_g44656_ (gx#syntax-split-splice - _%tl4259442625%_ + _%tl4242142452%_ '0))) (begin - (let ((_g44830_ + (let ((_g44657_ (let () (declare (not safe)) - (if (##values? _g44829_) - (##vector-length _g44829_) + (if (##values? _g44656_) + (##vector-length _g44656_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44830_ 2))) + (##fx= _g44657_ 2))) (error "Context expects 2 values" - _g44830_))) - (let ((_%target4259742628%_ + _g44657_))) + (let ((_%target4242442455%_ (let () (declare (not safe)) - (##vector-ref _g44829_ 0))) - (_%tl4259942631%_ + (##vector-ref _g44656_ 0))) + (_%tl4242642458%_ (let () (declare (not safe)) - (##vector-ref _g44829_ 1)))) - (if (gx#stx-null? _%tl4259942631%_) - (letrec ((_%loop4260042634%_ - (lambda (_%hd4259842638%_ - _%body4260442641%_) + (##vector-ref _g44656_ 1)))) + (if (gx#stx-null? _%tl4242642458%_) + (letrec ((_%loop4242742461%_ + (lambda (_%hd4242542465%_ + _%body4243142468%_) (if (gx#stx-pair? - _%hd4259842638%_) - (let ((_%e4260142644%_ + _%hd4242542465%_) + (let ((_%e4242842471%_ (gx#syntax-e - _%hd4259842638%_))) - (let ((_%lp-hd4260242648%_ + _%hd4242542465%_))) + (let ((_%lp-hd4242942475%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e4260142644%_))) - (_%lp-tl4260342651%_ - (let () (declare (not safe)) (##cdr _%e4260142644%_)))) - (_%loop4260042634%_ - _%lp-tl4260342651%_ - (cons _%lp-hd4260242648%_ _%body4260442641%_)))) - (let ((_%body4260542654%_ (reverse _%body4260442641%_))) - ((lambda (_%L42658%_) + (##car _%e4242842471%_))) + (_%lp-tl4243042478%_ + (let () (declare (not safe)) (##cdr _%e4242842471%_)))) + (_%loop4242742461%_ + _%lp-tl4243042478%_ + (cons _%lp-hd4242942475%_ _%body4243142468%_)))) + (let ((_%body4243242481%_ (reverse _%body4243142468%_))) + ((lambda (_%L42485%_) (cons 'phi: (cons '1 - (foldr (lambda (_%g4267342676%_ - _%g4267442679%_) - (cons _%g4267342676%_ - _%g4267442679%_)) + (foldr (lambda (_%g4250042503%_ + _%g4250142506%_) + (cons _%g4250042503%_ + _%g4250142506%_)) '() - _%L42658%_)))) - _%body4260542654%_)))))) + _%L42485%_)))) + _%body4243242481%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4260042634%_ - _%target4259742628%_ + (_%loop4242742461%_ + _%target4242442455%_ '())) - (_%g4259142611%_ _%g4259242615%_))))) - (_%g4259142611%_ _%g4259242615%_)))) - (_%g4259142611%_ _%g4259242615%_))))) - (_%g4259042682%_ _%stx42588%_))))) + (_%g4241842438%_ _%g4241942442%_))))) + (_%g4241842438%_ _%g4241942442%_)))) + (_%g4241842438%_ _%g4241942442%_))))) + (_%g4241742509%_ _%stx42415%_))))) (define |gerbil/core/module-sugar[:0:]#for-template| (gx#make-import-export-expander - (lambda (_%stx42687%_) - (let* ((_%g4269042710%_ - (lambda (_%g4269142706%_) + (lambda (_%stx42514%_) + (let* ((_%g4251742537%_ + (lambda (_%g4251842533%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4269142706%_))) - (_%g4268942781%_ - (lambda (_%g4269142714%_) - (if (gx#stx-pair? _%g4269142714%_) - (let ((_%e4269542717%_ (gx#syntax-e _%g4269142714%_))) - (let ((_%hd4269442721%_ + _%g4251842533%_))) + (_%g4251642608%_ + (lambda (_%g4251842541%_) + (if (gx#stx-pair? _%g4251842541%_) + (let ((_%e4252242544%_ (gx#syntax-e _%g4251842541%_))) + (let ((_%hd4252142548%_ (let () (declare (not safe)) - (##car _%e4269542717%_))) - (_%tl4269342724%_ + (##car _%e4252242544%_))) + (_%tl4252042551%_ (let () (declare (not safe)) - (##cdr _%e4269542717%_)))) - (if (gx#stx-pair/null? _%tl4269342724%_) - (let ((_g44831_ + (##cdr _%e4252242544%_)))) + (if (gx#stx-pair/null? _%tl4252042551%_) + (let ((_g44658_ (gx#syntax-split-splice - _%tl4269342724%_ + _%tl4252042551%_ '0))) (begin - (let ((_g44832_ + (let ((_g44659_ (let () (declare (not safe)) - (if (##values? _g44831_) - (##vector-length _g44831_) + (if (##values? _g44658_) + (##vector-length _g44658_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44832_ 2))) + (##fx= _g44659_ 2))) (error "Context expects 2 values" - _g44832_))) - (let ((_%target4269642727%_ + _g44659_))) + (let ((_%target4252342554%_ (let () (declare (not safe)) - (##vector-ref _g44831_ 0))) - (_%tl4269842730%_ + (##vector-ref _g44658_ 0))) + (_%tl4252542557%_ (let () (declare (not safe)) - (##vector-ref _g44831_ 1)))) - (if (gx#stx-null? _%tl4269842730%_) - (letrec ((_%loop4269942733%_ - (lambda (_%hd4269742737%_ - _%body4270342740%_) + (##vector-ref _g44658_ 1)))) + (if (gx#stx-null? _%tl4252542557%_) + (letrec ((_%loop4252642560%_ + (lambda (_%hd4252442564%_ + _%body4253042567%_) (if (gx#stx-pair? - _%hd4269742737%_) - (let ((_%e4270042743%_ + _%hd4252442564%_) + (let ((_%e4252742570%_ (gx#syntax-e - _%hd4269742737%_))) - (let ((_%lp-hd4270142747%_ + _%hd4252442564%_))) + (let ((_%lp-hd4252842574%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e4270042743%_))) - (_%lp-tl4270242750%_ - (let () (declare (not safe)) (##cdr _%e4270042743%_)))) - (_%loop4269942733%_ - _%lp-tl4270242750%_ - (cons _%lp-hd4270142747%_ _%body4270342740%_)))) - (let ((_%body4270442753%_ (reverse _%body4270342740%_))) - ((lambda (_%L42757%_) + (##car _%e4252742570%_))) + (_%lp-tl4252942577%_ + (let () (declare (not safe)) (##cdr _%e4252742570%_)))) + (_%loop4252642560%_ + _%lp-tl4252942577%_ + (cons _%lp-hd4252842574%_ _%body4253042567%_)))) + (let ((_%body4253142580%_ (reverse _%body4253042567%_))) + ((lambda (_%L42584%_) (cons 'phi: (cons '-1 - (foldr (lambda (_%g4277242775%_ - _%g4277342778%_) - (cons _%g4277242775%_ - _%g4277342778%_)) + (foldr (lambda (_%g4259942602%_ + _%g4260042605%_) + (cons _%g4259942602%_ + _%g4260042605%_)) '() - _%L42757%_)))) - _%body4270442753%_)))))) + _%L42584%_)))) + _%body4253142580%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4269942733%_ - _%target4269642727%_ + (_%loop4252642560%_ + _%target4252342554%_ '())) - (_%g4269042710%_ _%g4269142714%_))))) - (_%g4269042710%_ _%g4269142714%_)))) - (_%g4269042710%_ _%g4269142714%_))))) - (_%g4268942781%_ _%stx42687%_))))) + (_%g4251742537%_ _%g4251842541%_))))) + (_%g4251742537%_ _%g4251842541%_)))) + (_%g4251742537%_ _%g4251842541%_))))) + (_%g4251642608%_ _%stx42514%_))))) (define |gerbil/core/module-sugar[:0:]#only-in| (gx#make-import-expander - (lambda (_%stx42786%_) - (let* ((_%g4278942813%_ - (lambda (_%g4279042809%_) + (lambda (_%stx42613%_) + (let* ((_%g4261642640%_ + (lambda (_%g4261742636%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4279042809%_))) - (_%g4278842941%_ - (lambda (_%g4279042817%_) - (if (gx#stx-pair? _%g4279042817%_) - (let ((_%e4279542820%_ (gx#syntax-e _%g4279042817%_))) - (let ((_%hd4279442824%_ + _%g4261742636%_))) + (_%g4261542768%_ + (lambda (_%g4261742644%_) + (if (gx#stx-pair? _%g4261742644%_) + (let ((_%e4262242647%_ (gx#syntax-e _%g4261742644%_))) + (let ((_%hd4262142651%_ (let () (declare (not safe)) - (##car _%e4279542820%_))) - (_%tl4279342827%_ + (##car _%e4262242647%_))) + (_%tl4262042654%_ (let () (declare (not safe)) - (##cdr _%e4279542820%_)))) - (if (gx#stx-pair? _%tl4279342827%_) - (let ((_%e4279842830%_ - (gx#syntax-e _%tl4279342827%_))) - (let ((_%hd4279742834%_ + (##cdr _%e4262242647%_)))) + (if (gx#stx-pair? _%tl4262042654%_) + (let ((_%e4262542657%_ + (gx#syntax-e _%tl4262042654%_))) + (let ((_%hd4262442661%_ (let () (declare (not safe)) - (##car _%e4279842830%_))) - (_%tl4279642837%_ + (##car _%e4262542657%_))) + (_%tl4262342664%_ (let () (declare (not safe)) - (##cdr _%e4279842830%_)))) - (if (gx#stx-pair/null? _%tl4279642837%_) - (let ((_g44833_ + (##cdr _%e4262542657%_)))) + (if (gx#stx-pair/null? _%tl4262342664%_) + (let ((_g44660_ (gx#syntax-split-splice - _%tl4279642837%_ + _%tl4262342664%_ '0))) (begin - (let ((_g44834_ + (let ((_g44661_ (let () (declare (not safe)) - (if (##values? _g44833_) + (if (##values? _g44660_) (##vector-length - _g44833_) + _g44660_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44834_ 2))) + (##fx= _g44661_ 2))) (error "Context expects 2 values" - _g44834_))) - (let ((_%target4279942840%_ + _g44661_))) + (let ((_%target4262642667%_ (let () (declare (not safe)) - (##vector-ref _g44833_ 0))) - (_%tl4280142843%_ + (##vector-ref _g44660_ 0))) + (_%tl4262842670%_ (let () (declare (not safe)) - (##vector-ref _g44833_ 1)))) - (if (gx#stx-null? _%tl4280142843%_) - (letrec ((_%loop4280242846%_ - (lambda (_%hd4280042850%_ + (##vector-ref _g44660_ 1)))) + (if (gx#stx-null? _%tl4262842670%_) + (letrec ((_%loop4262942673%_ + (lambda (_%hd4262742677%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id4280642853%_) - (if (gx#stx-pair? _%hd4280042850%_) - (let ((_%e4280342856%_ (gx#syntax-e _%hd4280042850%_))) - (let ((_%lp-hd4280442860%_ + _%id4263342680%_) + (if (gx#stx-pair? _%hd4262742677%_) + (let ((_%e4263042683%_ (gx#syntax-e _%hd4262742677%_))) + (let ((_%lp-hd4263142687%_ (let () (declare (not safe)) - (##car _%e4280342856%_))) - (_%lp-tl4280542863%_ + (##car _%e4263042683%_))) + (_%lp-tl4263242690%_ (let () (declare (not safe)) - (##cdr _%e4280342856%_)))) - (_%loop4280242846%_ - _%lp-tl4280542863%_ - (cons _%lp-hd4280442860%_ _%id4280642853%_)))) - (let ((_%id4280742866%_ (reverse _%id4280642853%_))) - ((lambda (_%L42870%_ _%L42872%_) + (##cdr _%e4263042683%_)))) + (_%loop4262942673%_ + _%lp-tl4263242690%_ + (cons _%lp-hd4263142687%_ _%id4263342680%_)))) + (let ((_%id4263442693%_ (reverse _%id4263342680%_))) + ((lambda (_%L42697%_ _%L42699%_) (if (gx#identifier-list? - (foldr (lambda (_%g4288942892%_ - _%g4289042895%_) - (cons _%g4288942892%_ - _%g4289042895%_)) + (foldr (lambda (_%g4271642719%_ + _%g4271742722%_) + (cons _%g4271642719%_ + _%g4271742722%_)) '() - _%L42870%_)) - (let* ((_%keys42906%_ + _%L42697%_)) + (let* ((_%keys42733%_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_%g4289742900%_ - _%g4289842903%_) - (cons _%g4289742900%_ - _%g4289842903%_)) + (foldr (lambda (_%g4272442727%_ + _%g4272542730%_) + (cons _%g4272442727%_ + _%g4272542730%_)) '() - _%L42870%_))) - (_%keytab42917%_ - (let ((_%ht42909%_ (make-hash-table))) + _%L42697%_))) + (_%keytab42744%_ + (let ((_%ht42736%_ (make-hash-table))) (for-each - (lambda (_%g4291142913%_) + (lambda (_%g4273842740%_) (hash-put! - _%ht42909%_ - _%g4291142913%_ + _%ht42736%_ + _%g4273842740%_ '#t)) - _%keys42906%_) - _%ht42909%_)) - (_%imports42920%_ + _%keys42733%_) + _%ht42736%_)) + (_%imports42747%_ (gx#core-expand-import-source - _%L42872%_)) - (_%fold-e42936%_ - (letrec ((_%fold-e42923%_ - (lambda (_%in42926%_ - _%r42928%_) + _%L42699%_)) + (_%fold-e42763%_ + (letrec ((_%fold-e42750%_ + (lambda (_%in42753%_ + _%r42755%_) (if (gx#module-import? - _%in42926%_) - (let () - (if (hash-get - _%keytab42917%_ - (gx#module-import-name - _%in42926%_)) - (cons _%in42926%_ + _%in42753%_) + (if (hash-get + _%keytab42744%_ + (gx#module-import-name + _%in42753%_)) + (cons _%in42753%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r42928%_) - _%r42928%_)) - (if (gx#import-set? _%in42926%_) - (let () - (foldl _%fold-e42923%_ - _%r42928%_ - (gx#import-set-imports _%in42926%_))) - (let () _%r42928%_)))))) + _%r42755%_) + _%r42755%_) + (if (gx#import-set? _%in42753%_) + (foldl _%fold-e42750%_ + _%r42755%_ + (gx#import-set-imports _%in42753%_)) + _%r42755%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e42923%_))) + _%fold-e42750%_))) (cons 'begin: - (foldl _%fold-e42936%_ + (foldl _%fold-e42763%_ '() - _%imports42920%_))) - (_%g4278942813%_ _%g4279042817%_))) - _%id4280742866%_ - _%hd4279742834%_)))))) + _%imports42747%_))) + (_%g4261642640%_ _%g4261742644%_))) + _%id4263442693%_ + _%hd4262442661%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4280242846%_ - _%target4279942840%_ + (_%loop4262942673%_ + _%target4262642667%_ '())) - (_%g4278942813%_ - _%g4279042817%_))))) - (_%g4278942813%_ _%g4279042817%_)))) - (_%g4278942813%_ _%g4279042817%_)))) - (_%g4278942813%_ _%g4279042817%_))))) - (_%g4278842941%_ _%stx42786%_))))) + (_%g4261642640%_ + _%g4261742644%_))))) + (_%g4261642640%_ _%g4261742644%_)))) + (_%g4261642640%_ _%g4261742644%_)))) + (_%g4261642640%_ _%g4261742644%_))))) + (_%g4261542768%_ _%stx42613%_))))) (define |gerbil/core/module-sugar[:0:]#except-in| (gx#make-import-expander - (lambda (_%stx42946%_) - (let* ((_%g4294942973%_ - (lambda (_%g4295042969%_) + (lambda (_%stx42773%_) + (let* ((_%g4277642800%_ + (lambda (_%g4277742796%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4295042969%_))) - (_%g4294843101%_ - (lambda (_%g4295042977%_) - (if (gx#stx-pair? _%g4295042977%_) - (let ((_%e4295542980%_ (gx#syntax-e _%g4295042977%_))) - (let ((_%hd4295442984%_ + _%g4277742796%_))) + (_%g4277542928%_ + (lambda (_%g4277742804%_) + (if (gx#stx-pair? _%g4277742804%_) + (let ((_%e4278242807%_ (gx#syntax-e _%g4277742804%_))) + (let ((_%hd4278142811%_ (let () (declare (not safe)) - (##car _%e4295542980%_))) - (_%tl4295342987%_ + (##car _%e4278242807%_))) + (_%tl4278042814%_ (let () (declare (not safe)) - (##cdr _%e4295542980%_)))) - (if (gx#stx-pair? _%tl4295342987%_) - (let ((_%e4295842990%_ - (gx#syntax-e _%tl4295342987%_))) - (let ((_%hd4295742994%_ + (##cdr _%e4278242807%_)))) + (if (gx#stx-pair? _%tl4278042814%_) + (let ((_%e4278542817%_ + (gx#syntax-e _%tl4278042814%_))) + (let ((_%hd4278442821%_ (let () (declare (not safe)) - (##car _%e4295842990%_))) - (_%tl4295642997%_ + (##car _%e4278542817%_))) + (_%tl4278342824%_ (let () (declare (not safe)) - (##cdr _%e4295842990%_)))) - (if (gx#stx-pair/null? _%tl4295642997%_) - (let ((_g44835_ + (##cdr _%e4278542817%_)))) + (if (gx#stx-pair/null? _%tl4278342824%_) + (let ((_g44662_ (gx#syntax-split-splice - _%tl4295642997%_ + _%tl4278342824%_ '0))) (begin - (let ((_g44836_ + (let ((_g44663_ (let () (declare (not safe)) - (if (##values? _g44835_) + (if (##values? _g44662_) (##vector-length - _g44835_) + _g44662_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44836_ 2))) + (##fx= _g44663_ 2))) (error "Context expects 2 values" - _g44836_))) - (let ((_%target4295943000%_ + _g44663_))) + (let ((_%target4278642827%_ (let () (declare (not safe)) - (##vector-ref _g44835_ 0))) - (_%tl4296143003%_ + (##vector-ref _g44662_ 0))) + (_%tl4278842830%_ (let () (declare (not safe)) - (##vector-ref _g44835_ 1)))) - (if (gx#stx-null? _%tl4296143003%_) - (letrec ((_%loop4296243006%_ - (lambda (_%hd4296043010%_ + (##vector-ref _g44662_ 1)))) + (if (gx#stx-null? _%tl4278842830%_) + (letrec ((_%loop4278942833%_ + (lambda (_%hd4278742837%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id4296643013%_) - (if (gx#stx-pair? _%hd4296043010%_) - (let ((_%e4296343016%_ (gx#syntax-e _%hd4296043010%_))) - (let ((_%lp-hd4296443020%_ + _%id4279342840%_) + (if (gx#stx-pair? _%hd4278742837%_) + (let ((_%e4279042843%_ (gx#syntax-e _%hd4278742837%_))) + (let ((_%lp-hd4279142847%_ (let () (declare (not safe)) - (##car _%e4296343016%_))) - (_%lp-tl4296543023%_ + (##car _%e4279042843%_))) + (_%lp-tl4279242850%_ (let () (declare (not safe)) - (##cdr _%e4296343016%_)))) - (_%loop4296243006%_ - _%lp-tl4296543023%_ - (cons _%lp-hd4296443020%_ _%id4296643013%_)))) - (let ((_%id4296743026%_ (reverse _%id4296643013%_))) - ((lambda (_%L43030%_ _%L43032%_) + (##cdr _%e4279042843%_)))) + (_%loop4278942833%_ + _%lp-tl4279242850%_ + (cons _%lp-hd4279142847%_ _%id4279342840%_)))) + (let ((_%id4279442853%_ (reverse _%id4279342840%_))) + ((lambda (_%L42857%_ _%L42859%_) (if (gx#identifier-list? - (foldr (lambda (_%g4304943052%_ - _%g4305043055%_) - (cons _%g4304943052%_ - _%g4305043055%_)) + (foldr (lambda (_%g4287642879%_ + _%g4287742882%_) + (cons _%g4287642879%_ + _%g4287742882%_)) '() - _%L43030%_)) - (let* ((_%keys43066%_ + _%L42857%_)) + (let* ((_%keys42893%_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_%g4305743060%_ - _%g4305843063%_) - (cons _%g4305743060%_ - _%g4305843063%_)) + (foldr (lambda (_%g4288442887%_ + _%g4288542890%_) + (cons _%g4288442887%_ + _%g4288542890%_)) '() - _%L43030%_))) - (_%keytab43077%_ - (let ((_%ht43069%_ (make-hash-table))) + _%L42857%_))) + (_%keytab42904%_ + (let ((_%ht42896%_ (make-hash-table))) (for-each - (lambda (_%g4307143073%_) + (lambda (_%g4289842900%_) (hash-put! - _%ht43069%_ - _%g4307143073%_ + _%ht42896%_ + _%g4289842900%_ '#t)) - _%keys43066%_) - _%ht43069%_)) - (_%imports43080%_ + _%keys42893%_) + _%ht42896%_)) + (_%imports42907%_ (gx#core-expand-import-source - _%L43032%_)) - (_%fold-e43096%_ - (letrec ((_%fold-e43083%_ - (lambda (_%in43086%_ - _%r43088%_) + _%L42859%_)) + (_%fold-e42923%_ + (letrec ((_%fold-e42910%_ + (lambda (_%in42913%_ + _%r42915%_) (if (gx#module-import? - _%in43086%_) - (let () - (if (hash-get - _%keytab43077%_ - (gx#module-import-name - _%in43086%_)) - _%r43088%_ - (cons _%in43086%_ + _%in42913%_) + (if (hash-get + _%keytab42904%_ + (gx#module-import-name + _%in42913%_)) + _%r42915%_ + (cons _%in42913%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r43088%_))) - (if (gx#import-set? _%in43086%_) - (let () - (foldl _%fold-e43083%_ - _%r43088%_ - (gx#import-set-imports _%in43086%_))) - (let () (cons _%in43086%_ _%r43088%_))))))) + _%r42915%_)) + (if (gx#import-set? _%in42913%_) + (foldl _%fold-e42910%_ + _%r42915%_ + (gx#import-set-imports _%in42913%_)) + (cons _%in42913%_ _%r42915%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e43083%_))) + _%fold-e42910%_))) (cons 'begin: - (foldl _%fold-e43096%_ + (foldl _%fold-e42923%_ '() - _%imports43080%_))) - (_%g4294942973%_ _%g4295042977%_))) - _%id4296743026%_ - _%hd4295742994%_)))))) + _%imports42907%_))) + (_%g4277642800%_ _%g4277742804%_))) + _%id4279442853%_ + _%hd4278442821%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4296243006%_ - _%target4295943000%_ + (_%loop4278942833%_ + _%target4278642827%_ '())) - (_%g4294942973%_ - _%g4295042977%_))))) - (_%g4294942973%_ _%g4295042977%_)))) - (_%g4294942973%_ _%g4295042977%_)))) - (_%g4294942973%_ _%g4295042977%_))))) - (_%g4294843101%_ _%stx42946%_))))) + (_%g4277642800%_ + _%g4277742804%_))))) + (_%g4277642800%_ _%g4277742804%_)))) + (_%g4277642800%_ _%g4277742804%_)))) + (_%g4277642800%_ _%g4277742804%_))))) + (_%g4277542928%_ _%stx42773%_))))) (define |gerbil/core/module-sugar[1]#module-import-rename| - (lambda (_%in43153%_ _%rename43155%_) + (lambda (_%in42980%_ _%rename42982%_) (gx#make-module-import - (gx#module-import-source _%in43153%_) - _%rename43155%_ - (gx#module-import-phi _%in43153%_) - (gx#module-import-weak? _%in43153%_)))) + (gx#module-import-source _%in42980%_) + _%rename42982%_ + (gx#module-import-phi _%in42980%_) + (gx#module-import-weak? _%in42980%_)))) (define |gerbil/core/module-sugar[1]#prefix-identifier-key| - (lambda (_%name43106%_ _%pre43108%_) - (let* ((_%name4310943117%_ _%name43106%_) - (_%else4311143129%_ - (lambda () (make-symbol _%pre43108%_ _%name43106%_))) - (_%K4311343137%_ - (lambda (_%mark43133%_ _%id43135%_) - (cons (make-symbol _%pre43108%_ _%id43135%_) _%mark43133%_)))) - (if (let () (declare (not safe)) (##pair? _%name4310943117%_)) - (let ((_%hd4311443141%_ - (let () (declare (not safe)) (##car _%name4310943117%_))) - (_%tl4311543144%_ - (let () (declare (not safe)) (##cdr _%name4310943117%_)))) - (let* ((_%id43147%_ _%hd4311443141%_) - (_%mark43150%_ _%tl4311543144%_)) - (declare (not safe)) - (_%K4311343137%_ _%mark43150%_ _%id43147%_))) - (let () (declare (not safe)) (_%else4311143129%_)))))) + (lambda (_%name42933%_ _%pre42935%_) + (let* ((_%name4293642944%_ _%name42933%_) + (_%else4293842956%_ + (lambda () (make-symbol _%pre42935%_ _%name42933%_))) + (_%K4294042964%_ + (lambda (_%mark42960%_ _%id42962%_) + (cons (make-symbol _%pre42935%_ _%id42962%_) _%mark42960%_)))) + (if (let () (declare (not safe)) (##pair? _%name4293642944%_)) + (let ((_%hd4294142968%_ + (let () (declare (not safe)) (##car _%name4293642944%_))) + (_%tl4294242971%_ + (let () (declare (not safe)) (##cdr _%name4293642944%_)))) + (let* ((_%id42974%_ _%hd4294142968%_) + (_%mark42977%_ _%tl4294242971%_)) + (_%K4294042964%_ _%mark42977%_ _%id42974%_))) + (_%else4293842956%_))))) (define |gerbil/core/module-sugar[:0:]#rename-in| (gx#make-import-expander - (lambda (_%stx43157%_) - (let* ((_%g4316043193%_ - (lambda (_%g4316143189%_) + (lambda (_%stx42984%_) + (let* ((_%g4298743020%_ + (lambda (_%g4298843016%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4316143189%_))) - (_%g4315943388%_ - (lambda (_%g4316143197%_) - (if (gx#stx-pair? _%g4316143197%_) - (let ((_%e4316743200%_ (gx#syntax-e _%g4316143197%_))) - (let ((_%hd4316643204%_ + _%g4298843016%_))) + (_%g4298643215%_ + (lambda (_%g4298843024%_) + (if (gx#stx-pair? _%g4298843024%_) + (let ((_%e4299443027%_ (gx#syntax-e _%g4298843024%_))) + (let ((_%hd4299343031%_ (let () (declare (not safe)) - (##car _%e4316743200%_))) - (_%tl4316543207%_ + (##car _%e4299443027%_))) + (_%tl4299243034%_ (let () (declare (not safe)) - (##cdr _%e4316743200%_)))) - (if (gx#stx-pair? _%tl4316543207%_) - (let ((_%e4317043210%_ - (gx#syntax-e _%tl4316543207%_))) - (let ((_%hd4316943214%_ + (##cdr _%e4299443027%_)))) + (if (gx#stx-pair? _%tl4299243034%_) + (let ((_%e4299743037%_ + (gx#syntax-e _%tl4299243034%_))) + (let ((_%hd4299643041%_ (let () (declare (not safe)) - (##car _%e4317043210%_))) - (_%tl4316843217%_ + (##car _%e4299743037%_))) + (_%tl4299543044%_ (let () (declare (not safe)) - (##cdr _%e4317043210%_)))) - (if (gx#stx-pair/null? _%tl4316843217%_) - (let ((_g44837_ + (##cdr _%e4299743037%_)))) + (if (gx#stx-pair/null? _%tl4299543044%_) + (let ((_g44664_ (gx#syntax-split-splice - _%tl4316843217%_ + _%tl4299543044%_ '0))) (begin - (let ((_g44838_ + (let ((_g44665_ (let () (declare (not safe)) - (if (##values? _g44837_) + (if (##values? _g44664_) (##vector-length - _g44837_) + _g44664_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44838_ 2))) + (##fx= _g44665_ 2))) (error "Context expects 2 values" - _g44838_))) - (let ((_%target4317143220%_ + _g44665_))) + (let ((_%target4299843047%_ (let () (declare (not safe)) - (##vector-ref _g44837_ 0))) - (_%tl4317343223%_ + (##vector-ref _g44664_ 0))) + (_%tl4300043050%_ (let () (declare (not safe)) - (##vector-ref _g44837_ 1)))) - (if (gx#stx-null? _%tl4317343223%_) - (letrec ((_%loop4317443226%_ - (lambda (_%hd4317243230%_ + (##vector-ref _g44664_ 1)))) + (if (gx#stx-null? _%tl4300043050%_) + (letrec ((_%loop4300143053%_ + (lambda (_%hd4299943057%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%new-id4317843233%_ - _%id4317943235%_) - (if (gx#stx-pair? _%hd4317243230%_) - (let ((_%e4317543238%_ (gx#syntax-e _%hd4317243230%_))) - (let ((_%lp-hd4317643242%_ + _%new-id4300543060%_ + _%id4300643062%_) + (if (gx#stx-pair? _%hd4299943057%_) + (let ((_%e4300243065%_ (gx#syntax-e _%hd4299943057%_))) + (let ((_%lp-hd4300343069%_ (let () (declare (not safe)) - (##car _%e4317543238%_))) - (_%lp-tl4317743245%_ + (##car _%e4300243065%_))) + (_%lp-tl4300443072%_ (let () (declare (not safe)) - (##cdr _%e4317543238%_)))) - (if (gx#stx-pair? _%lp-hd4317643242%_) - (let ((_%e4318443248%_ - (gx#syntax-e _%lp-hd4317643242%_))) - (let ((_%hd4318343252%_ + (##cdr _%e4300243065%_)))) + (if (gx#stx-pair? _%lp-hd4300343069%_) + (let ((_%e4301143075%_ + (gx#syntax-e _%lp-hd4300343069%_))) + (let ((_%hd4301043079%_ (let () (declare (not safe)) - (##car _%e4318443248%_))) - (_%tl4318243255%_ + (##car _%e4301143075%_))) + (_%tl4300943082%_ (let () (declare (not safe)) - (##cdr _%e4318443248%_)))) - (if (gx#stx-pair? _%tl4318243255%_) - (let ((_%e4318743258%_ - (gx#syntax-e _%tl4318243255%_))) - (let ((_%hd4318643262%_ + (##cdr _%e4301143075%_)))) + (if (gx#stx-pair? _%tl4300943082%_) + (let ((_%e4301443085%_ + (gx#syntax-e _%tl4300943082%_))) + (let ((_%hd4301343089%_ (let () (declare (not safe)) - (##car _%e4318743258%_))) - (_%tl4318543265%_ + (##car _%e4301443085%_))) + (_%tl4301243092%_ (let () (declare (not safe)) - (##cdr _%e4318743258%_)))) - (if (gx#stx-null? _%tl4318543265%_) - (_%loop4317443226%_ - _%lp-tl4317743245%_ - (cons _%hd4318643262%_ - _%new-id4317843233%_) - (cons _%hd4318343252%_ - _%id4317943235%_)) - (_%g4316043193%_ - _%g4316143197%_)))) - (_%g4316043193%_ _%g4316143197%_)))) - (_%g4316043193%_ _%g4316143197%_)))) - (let ((_%new-id4318043268%_ - (reverse _%new-id4317843233%_)) - (_%id4318143271%_ (reverse _%id4317943235%_))) - ((lambda (_%L43274%_ _%L43276%_ _%L43277%_) + (##cdr _%e4301443085%_)))) + (if (gx#stx-null? _%tl4301243092%_) + (_%loop4300143053%_ + _%lp-tl4300443072%_ + (cons _%hd4301343089%_ + _%new-id4300543060%_) + (cons _%hd4301043079%_ + _%id4300643062%_)) + (_%g4298743020%_ + _%g4298843024%_)))) + (_%g4298743020%_ _%g4298843024%_)))) + (_%g4298743020%_ _%g4298843024%_)))) + (let ((_%new-id4300743095%_ + (reverse _%new-id4300543060%_)) + (_%id4300843098%_ (reverse _%id4300643062%_))) + ((lambda (_%L43101%_ _%L43103%_ _%L43104%_) (if (and (gx#identifier-list? - (foldr (lambda (_%g4329543298%_ - _%g4329643301%_) - (cons _%g4329543298%_ - _%g4329643301%_)) + (foldr (lambda (_%g4312243125%_ + _%g4312343128%_) + (cons _%g4312243125%_ + _%g4312343128%_)) '() - _%L43276%_)) + _%L43103%_)) (gx#identifier-list? - (foldr (lambda (_%g4330343306%_ - _%g4330443309%_) - (cons _%g4330343306%_ - _%g4330443309%_)) + (foldr (lambda (_%g4313043133%_ + _%g4313143136%_) + (cons _%g4313043133%_ + _%g4313143136%_)) '() - _%L43274%_))) - (let* ((_%keytab43312%_ (make-hash-table)) - (_%found43315%_ (make-hash-table)) - (_%_43338%_ + _%L43101%_))) + (let* ((_%keytab43139%_ (make-hash-table)) + (_%found43142%_ (make-hash-table)) + (_%_43165%_ (for-each - (lambda (_%id43318%_ _%new-id43320%_) + (lambda (_%id43145%_ _%new-id43147%_) (hash-put! - _%keytab43312%_ + _%keytab43139%_ (gx#core-identifier-key - _%id43318%_) + _%id43145%_) (gx#core-identifier-key - _%new-id43320%_))) - (foldr (lambda (_%g4332143324%_ - _%g4332243327%_) - (cons _%g4332143324%_ - _%g4332243327%_)) + _%new-id43147%_))) + (foldr (lambda (_%g4314843151%_ + _%g4314943154%_) + (cons _%g4314843151%_ + _%g4314943154%_)) '() - _%L43276%_) - (foldr (lambda (_%g4332943332%_ - _%g4333043335%_) - (cons _%g4332943332%_ - _%g4333043335%_)) + _%L43103%_) + (foldr (lambda (_%g4315643159%_ + _%g4315743162%_) + (cons _%g4315643159%_ + _%g4315743162%_)) '() - _%L43274%_))) - (_%imports43341%_ + _%L43101%_))) + (_%imports43168%_ (gx#core-expand-import-source - _%L43277%_)) - (_%fold-e43369%_ - (letrec ((_%fold-e43344%_ - (lambda (_%in43347%_ - _%r43349%_) + _%L43104%_)) + (_%fold-e43196%_ + (letrec ((_%fold-e43171%_ + (lambda (_%in43174%_ + _%r43176%_) (if (gx#module-import? - _%in43347%_) - (let () - (let* ((_%name43353%_ + _%in43174%_) + (let* ((_%name43180%_ + (gx#module-import-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#module-import-name _%in43347%_)) - (_%$e43356%_ - (hash-get _%keytab43312%_ _%name43353%_))) - (if _%$e43356%_ - ((lambda (_%rename43360%_) - (hash-put! _%found43315%_ _%name43353%_ '#t) - (cons (let () - (declare (not safe)) - (|gerbil/core/module-sugar[1]#module-import-rename| - _%in43347%_ - _%rename43360%_)) - _%r43349%_)) - _%$e43356%_) - (let () (cons _%in43347%_ _%r43349%_))))) - (if (gx#import-set? _%in43347%_) - (let () - (foldl _%fold-e43344%_ - _%r43349%_ - (gx#import-set-imports _%in43347%_))) - (let () (cons _%in43347%_ _%r43349%_))))))) + _%in43174%_)) + (_%$e43183%_ (hash-get _%keytab43139%_ _%name43180%_))) + (if _%$e43183%_ + ((lambda (_%rename43187%_) + (hash-put! _%found43142%_ _%name43180%_ '#t) + (cons (|gerbil/core/module-sugar[1]#module-import-rename| + _%in43174%_ + _%rename43187%_) + _%r43176%_)) + _%$e43183%_) + (cons _%in43174%_ _%r43176%_))) + (if (gx#import-set? _%in43174%_) + (foldl _%fold-e43171%_ + _%r43176%_ + (gx#import-set-imports _%in43174%_)) + (cons _%in43174%_ _%r43176%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e43344%_)) - (_%new-imports43372%_ - (foldl _%fold-e43369%_ + _%fold-e43171%_)) + (_%new-imports43199%_ + (foldl _%fold-e43196%_ '() - _%imports43341%_))) + _%imports43168%_))) (for-each - (lambda (_%id43377%_) + (lambda (_%id43204%_) (if (hash-get - _%found43315%_ - (gx#core-identifier-key _%id43377%_)) + _%found43142%_ + (gx#core-identifier-key _%id43204%_)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the import set" - _%stx43157%_ - _%id43377%_))) - (foldr (lambda (_%g4337943382%_ - _%g4338043385%_) - (cons _%g4337943382%_ - _%g4338043385%_)) + _%stx42984%_ + _%id43204%_))) + (foldr (lambda (_%g4320643209%_ + _%g4320743212%_) + (cons _%g4320643209%_ + _%g4320743212%_)) '() - _%L43276%_)) - (cons 'begin: _%new-imports43372%_)) - (_%g4316043193%_ _%g4316143197%_))) - _%new-id4318043268%_ - _%id4318143271%_ - _%hd4316943214%_)))))) + _%L43103%_)) + (cons 'begin: _%new-imports43199%_)) + (_%g4298743020%_ _%g4298843024%_))) + _%new-id4300743095%_ + _%id4300843098%_ + _%hd4299643041%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4317443226%_ - _%target4317143220%_ + (_%loop4300143053%_ + _%target4299843047%_ '() '())) - (_%g4316043193%_ - _%g4316143197%_))))) - (_%g4316043193%_ _%g4316143197%_)))) - (_%g4316043193%_ _%g4316143197%_)))) - (_%g4316043193%_ _%g4316143197%_))))) - (_%g4315943388%_ _%stx43157%_))))) + (_%g4298743020%_ + _%g4298843024%_))))) + (_%g4298743020%_ _%g4298843024%_)))) + (_%g4298743020%_ _%g4298843024%_)))) + (_%g4298743020%_ _%g4298843024%_))))) + (_%g4298643215%_ _%stx42984%_))))) (define |gerbil/core/module-sugar[:0:]#prefix-in| (gx#make-import-expander - (lambda (_%stx43393%_) - (let* ((_%g4339643414%_ - (lambda (_%g4339743410%_) + (lambda (_%stx43220%_) + (let* ((_%g4322343241%_ + (lambda (_%g4322443237%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4339743410%_))) - (_%g4339543499%_ - (lambda (_%g4339743418%_) - (if (gx#stx-pair? _%g4339743418%_) - (let ((_%e4340243421%_ (gx#syntax-e _%g4339743418%_))) - (let ((_%hd4340143425%_ + _%g4322443237%_))) + (_%g4322243326%_ + (lambda (_%g4322443245%_) + (if (gx#stx-pair? _%g4322443245%_) + (let ((_%e4322943248%_ (gx#syntax-e _%g4322443245%_))) + (let ((_%hd4322843252%_ (let () (declare (not safe)) - (##car _%e4340243421%_))) - (_%tl4340043428%_ + (##car _%e4322943248%_))) + (_%tl4322743255%_ (let () (declare (not safe)) - (##cdr _%e4340243421%_)))) - (if (gx#stx-pair? _%tl4340043428%_) - (let ((_%e4340543431%_ - (gx#syntax-e _%tl4340043428%_))) - (let ((_%hd4340443435%_ + (##cdr _%e4322943248%_)))) + (if (gx#stx-pair? _%tl4322743255%_) + (let ((_%e4323243258%_ + (gx#syntax-e _%tl4322743255%_))) + (let ((_%hd4323143262%_ (let () (declare (not safe)) - (##car _%e4340543431%_))) - (_%tl4340343438%_ + (##car _%e4323243258%_))) + (_%tl4323043265%_ (let () (declare (not safe)) - (##cdr _%e4340543431%_)))) - (if (gx#stx-pair? _%tl4340343438%_) - (let ((_%e4340843441%_ - (gx#syntax-e _%tl4340343438%_))) - (let ((_%hd4340743445%_ + (##cdr _%e4323243258%_)))) + (if (gx#stx-pair? _%tl4323043265%_) + (let ((_%e4323543268%_ + (gx#syntax-e _%tl4323043265%_))) + (let ((_%hd4323443272%_ (let () (declare (not safe)) - (##car _%e4340843441%_))) - (_%tl4340643448%_ + (##car _%e4323543268%_))) + (_%tl4323343275%_ (let () (declare (not safe)) - (##cdr _%e4340843441%_)))) - (if (gx#stx-null? _%tl4340643448%_) - ((lambda (_%L43451%_ _%L43453%_) - (if (gx#identifier? _%L43451%_) - (let* ((_%pre43469%_ + (##cdr _%e4323543268%_)))) + (if (gx#stx-null? _%tl4323343275%_) + ((lambda (_%L43278%_ _%L43280%_) + (if (gx#identifier? _%L43278%_) + (let* ((_%pre43296%_ (gx#stx-e - _%L43451%_)) - (_%imports43472%_ + _%L43278%_)) + (_%imports43299%_ (gx#core-expand-import-source - _%L43453%_)) - (_%rename-e43478%_ - (lambda (_%name43475%_) - (let () - (declare + _%L43280%_)) + (_%rename-e43305%_ + (lambda (_%name43302%_) + (|gerbil/core/module-sugar[1]#prefix-identifier-key| + _%name43302%_ + _%pre43296%_))) + (_%fold-e43321%_ + (letrec ((_%fold-e43308%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (|gerbil/core/module-sugar[1]#prefix-identifier-key| - _%name43475%_ - _%pre43469%_)))) - (_%fold-e43494%_ - (letrec ((_%fold-e43481%_ - (lambda (_%in43484%_ _%r43486%_) - (if (gx#module-import? _%in43484%_) - (let () - (cons (let ((__tmp44839 - (_%rename-e43478%_ - (gx#module-import-name - _%in43484%_)))) - (declare (not safe)) - (|gerbil/core/module-sugar[1]#module-import-rename| - _%in43484%_ - __tmp44839)) - _%r43486%_)) - (if (gx#import-set? _%in43484%_) - (let () - (foldl _%fold-e43481%_ - _%r43486%_ - (gx#import-set-imports - _%in43484%_))) - (let () - (cons _%in43484%_ _%r43486%_))))))) - _%fold-e43481%_))) - (cons 'begin: (foldl _%fold-e43494%_ '() _%imports43472%_))) + (lambda (_%in43311%_ _%r43313%_) + (if (gx#module-import? _%in43311%_) + (cons (|gerbil/core/module-sugar[1]#module-import-rename| + _%in43311%_ + (_%rename-e43305%_ + (gx#module-import-name + _%in43311%_))) + _%r43313%_) + (if (gx#import-set? _%in43311%_) + (foldl _%fold-e43308%_ + _%r43313%_ + (gx#import-set-imports + _%in43311%_)) + (cons _%in43311%_ _%r43313%_)))))) + _%fold-e43308%_))) + (cons 'begin: (foldl _%fold-e43321%_ '() _%imports43299%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4339643414%_ - _%g4339743418%_))) - _%hd4340743445%_ - _%hd4340443435%_) - (_%g4339643414%_ - _%g4339743418%_)))) - (_%g4339643414%_ _%g4339743418%_)))) - (_%g4339643414%_ _%g4339743418%_)))) - (_%g4339643414%_ _%g4339743418%_))))) - (_%g4339543499%_ _%stx43393%_))))) + (_%g4322343241%_ + _%g4322443245%_))) + _%hd4323443272%_ + _%hd4323143262%_) + (_%g4322343241%_ + _%g4322443245%_)))) + (_%g4322343241%_ _%g4322443245%_)))) + (_%g4322343241%_ _%g4322443245%_)))) + (_%g4322343241%_ _%g4322443245%_))))) + (_%g4322243326%_ _%stx43220%_))))) (define |gerbil/core/module-sugar[:0:]#group-in| (gx#make-import-expander - (lambda (_%stx43503%_) - (letrec ((_%flatten43506%_ - (lambda (_%list-of-lists43761%_) - (foldr (lambda (_%v43764%_ _%acc43766%_) - (if (let () - (declare (not safe)) - (null? _%v43764%_)) - (let () _%acc43766%_) - (if (let () - (declare (not safe)) - (pair? _%v43764%_)) - (let () - (append (_%flatten43506%_ _%v43764%_) - _%acc43766%_)) - (let () (cons _%v43764%_ _%acc43766%_))))) + (lambda (_%stx43330%_) + (letrec ((_%flatten43333%_ + (lambda (_%list-of-lists43588%_) + (foldr (lambda (_%v43591%_ _%acc43593%_) + (if (null? _%v43591%_) + _%acc43593%_ + (if (pair? _%v43591%_) + (append (_%flatten43333%_ _%v43591%_) + _%acc43593%_) + (cons _%v43591%_ _%acc43593%_)))) '() - _%list-of-lists43761%_))) - (_%expand-path43508%_ - (lambda (_%top43629%_ _%mod43631%_) - (let* ((_%__stx4473744738%_ _%mod43631%_) - (_%g4363443656%_ + _%list-of-lists43588%_))) + (_%expand-path43335%_ + (lambda (_%top43456%_ _%mod43458%_) + (let* ((_%__stx4456444565%_ _%mod43458%_) + (_%g4346143483%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4473744738%_)))) - (let ((_%__kont4474044741%_ - (lambda (_%L43724%_ _%L43726%_) - (map (lambda (_%mod43741%_) + _%__stx4456444565%_)))) + (let ((_%__kont4456744568%_ + (lambda (_%L43551%_ _%L43553%_) + (map (lambda (_%mod43568%_) (gx#stx-identifier - _%top43629%_ - _%top43629%_ + _%top43456%_ + _%top43456%_ '"/" - _%mod43741%_)) - (_%flatten43506%_ - (map (lambda (_%g4374343745%_) - (_%expand-path43508%_ - _%L43726%_ - _%g4374343745%_)) - (foldr (lambda (_%g4374843751%_ - _%g4374943754%_) - (cons _%g4374843751%_ - _%g4374943754%_)) + _%mod43568%_)) + (_%flatten43333%_ + (map (lambda (_%g4357043572%_) + (_%expand-path43335%_ + _%L43553%_ + _%g4357043572%_)) + (foldr (lambda (_%g4357543578%_ + _%g4357643581%_) + (cons _%g4357543578%_ + _%g4357643581%_)) '() - _%L43724%_)))))) - (_%__kont4474444745%_ - (lambda (_%L43663%_) + _%L43551%_)))))) + (_%__kont4457144572%_ + (lambda (_%L43490%_) (gx#stx-identifier - _%top43629%_ - _%top43629%_ + _%top43456%_ + _%top43456%_ '"/" - _%L43663%_)))) - (let* ((_%g4363343677%_ + _%L43490%_)))) + (let* ((_%g4346043504%_ (lambda () - (let ((_%L43663%_ _%__stx4473744738%_)) - (if (or (gx#identifier? _%L43663%_) - (gx#stx-fixnum? _%L43663%_)) - (_%__kont4474444745%_ _%L43663%_) + (let ((_%L43490%_ _%__stx4456444565%_)) + (if (or (gx#identifier? _%L43490%_) + (gx#stx-fixnum? _%L43490%_)) + (_%__kont4457144572%_ _%L43490%_) (let () (declare (not safe)) - (_%g4363443656%_)))))) - (_%__match4476044761%_ - (lambda (_%e4364043684%_ - _%hd4363943688%_ - _%tl4363843691%_ - _%__splice4474244743%_ - _%target4364143694%_ - _%tl4364343697%_) - (letrec ((_%loop4364443700%_ - (lambda (_%hd4364243704%_ - _%mod4364843707%_) + (_%g4346143483%_)))))) + (_%__match4458744588%_ + (lambda (_%e4346743511%_ + _%hd4346643515%_ + _%tl4346543518%_ + _%__splice4456944570%_ + _%target4346843521%_ + _%tl4347043524%_) + (letrec ((_%loop4347143527%_ + (lambda (_%hd4346943531%_ + _%mod4347543534%_) (if (gx#stx-pair? - _%hd4364243704%_) - (let ((_%e4364543710%_ + _%hd4346943531%_) + (let ((_%e4347243537%_ (gx#syntax-e - _%hd4364243704%_))) - (let ((_%lp-tl4364743717%_ + _%hd4346943531%_))) + (let ((_%lp-tl4347443544%_ (let () (declare (not safe)) - (##cdr _%e4364543710%_))) - (_%lp-hd4364643714%_ + (##cdr _%e4347243537%_))) + (_%lp-hd4347343541%_ (let () (declare (not safe)) - (##car _%e4364543710%_)))) - (_%loop4364443700%_ - _%lp-tl4364743717%_ - (cons _%lp-hd4364643714%_ - _%mod4364843707%_)))) - (let ((_%mod4364943720%_ - (reverse _%mod4364843707%_))) - (_%__kont4474044741%_ - _%mod4364943720%_ - _%hd4363943688%_)))))) - (_%loop4364443700%_ - _%target4364143694%_ + (##car _%e4347243537%_)))) + (_%loop4347143527%_ + _%lp-tl4347443544%_ + (cons _%lp-hd4347343541%_ + _%mod4347543534%_)))) + (let ((_%mod4347643547%_ + (reverse _%mod4347543534%_))) + (_%__kont4456744568%_ + _%mod4347643547%_ + _%hd4346643515%_)))))) + (_%loop4347143527%_ + _%target4346843521%_ '()))))) - (if (gx#stx-pair? _%__stx4473744738%_) - (let ((_%e4364043684%_ - (gx#syntax-e _%__stx4473744738%_))) - (let ((_%tl4363843691%_ + (if (gx#stx-pair? _%__stx4456444565%_) + (let ((_%e4346743511%_ + (gx#syntax-e _%__stx4456444565%_))) + (let ((_%tl4346543518%_ (let () (declare (not safe)) - (##cdr _%e4364043684%_))) - (_%hd4363943688%_ + (##cdr _%e4346743511%_))) + (_%hd4346643515%_ (let () (declare (not safe)) - (##car _%e4364043684%_)))) - (if (gx#stx-pair/null? _%tl4363843691%_) - (let ((_%__splice4474244743%_ + (##car _%e4346743511%_)))) + (if (gx#stx-pair/null? _%tl4346543518%_) + (let ((_%__splice4456944570%_ (gx#syntax-split-splice - _%tl4363843691%_ + _%tl4346543518%_ '0))) - (let ((_%tl4364343697%_ + (let ((_%tl4347043524%_ (let () (declare (not safe)) (##vector-ref - _%__splice4474244743%_ + _%__splice4456944570%_ '1))) - (_%target4364143694%_ + (_%target4346843521%_ (let () (declare (not safe)) (##vector-ref - _%__splice4474244743%_ + _%__splice4456944570%_ '0)))) - (if (gx#stx-null? _%tl4364343697%_) - (_%__match4476044761%_ - _%e4364043684%_ - _%hd4363943688%_ - _%tl4363843691%_ - _%__splice4474244743%_ - _%target4364143694%_ - _%tl4364343697%_) + (if (gx#stx-null? _%tl4347043524%_) + (_%__match4458744588%_ + _%e4346743511%_ + _%hd4346643515%_ + _%tl4346543518%_ + _%__splice4456944570%_ + _%target4346843521%_ + _%tl4347043524%_) (let () (declare (not safe)) - (_%g4363343677%_))))) + (_%g4346043504%_))))) (let () (declare (not safe)) - (_%g4363343677%_))))) + (_%g4346043504%_))))) (let () (declare (not safe)) - (_%g4363343677%_))))))))) - (let* ((_%g4351043534%_ - (lambda (_%g4351143530%_) + (_%g4346043504%_))))))))) + (let* ((_%g4333743361%_ + (lambda (_%g4333843357%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4351143530%_))) - (_%g4350943625%_ - (lambda (_%g4351143538%_) - (if (gx#stx-pair? _%g4351143538%_) - (let ((_%e4351643541%_ (gx#syntax-e _%g4351143538%_))) - (let ((_%hd4351543545%_ + _%g4333843357%_))) + (_%g4333643452%_ + (lambda (_%g4333843365%_) + (if (gx#stx-pair? _%g4333843365%_) + (let ((_%e4334343368%_ (gx#syntax-e _%g4333843365%_))) + (let ((_%hd4334243372%_ (let () (declare (not safe)) - (##car _%e4351643541%_))) - (_%tl4351443548%_ + (##car _%e4334343368%_))) + (_%tl4334143375%_ (let () (declare (not safe)) - (##cdr _%e4351643541%_)))) - (if (gx#stx-pair? _%tl4351443548%_) - (let ((_%e4351943551%_ - (gx#syntax-e _%tl4351443548%_))) - (let ((_%hd4351843555%_ + (##cdr _%e4334343368%_)))) + (if (gx#stx-pair? _%tl4334143375%_) + (let ((_%e4334643378%_ + (gx#syntax-e _%tl4334143375%_))) + (let ((_%hd4334543382%_ (let () (declare (not safe)) - (##car _%e4351943551%_))) - (_%tl4351743558%_ + (##car _%e4334643378%_))) + (_%tl4334443385%_ (let () (declare (not safe)) - (##cdr _%e4351943551%_)))) - (if (gx#stx-pair/null? _%tl4351743558%_) - (let ((_g44840_ + (##cdr _%e4334643378%_)))) + (if (gx#stx-pair/null? _%tl4334443385%_) + (let ((_g44666_ (gx#syntax-split-splice - _%tl4351743558%_ + _%tl4334443385%_ '0))) (begin - (let ((_g44841_ + (let ((_g44667_ (let () (declare (not safe)) - (if (##values? _g44840_) + (if (##values? _g44666_) (##vector-length - _g44840_) + _g44666_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44841_ 2))) + (##fx= _g44667_ 2))) (error "Context expects 2 values" - _g44841_))) - (let ((_%target4352043561%_ + _g44667_))) + (let ((_%target4334743388%_ (let () (declare (not safe)) - (##vector-ref _g44840_ 0))) - (_%tl4352243564%_ + (##vector-ref _g44666_ 0))) + (_%tl4334943391%_ (let () (declare (not safe)) (##vector-ref - _g44840_ + _g44666_ 1)))) (if (gx#stx-null? - _%tl4352243564%_) - (letrec ((_%loop4352343567%_ - (lambda (_%hd4352143571%_ + _%tl4334943391%_) + (letrec ((_%loop4335043394%_ + (lambda (_%hd4334843398%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%mod4352743574%_) - (if (gx#stx-pair? _%hd4352143571%_) - (let ((_%e4352443577%_ - (gx#syntax-e _%hd4352143571%_))) - (let ((_%lp-hd4352543581%_ + _%mod4335443401%_) + (if (gx#stx-pair? _%hd4334843398%_) + (let ((_%e4335143404%_ + (gx#syntax-e _%hd4334843398%_))) + (let ((_%lp-hd4335243408%_ (let () (declare (not safe)) - (##car _%e4352443577%_))) - (_%lp-tl4352643584%_ + (##car _%e4335143404%_))) + (_%lp-tl4335343411%_ (let () (declare (not safe)) - (##cdr _%e4352443577%_)))) - (_%loop4352343567%_ - _%lp-tl4352643584%_ - (cons _%lp-hd4352543581%_ _%mod4352743574%_)))) - (let ((_%mod4352843587%_ (reverse _%mod4352743574%_))) - ((lambda (_%L43591%_ _%L43593%_) + (##cdr _%e4335143404%_)))) + (_%loop4335043394%_ + _%lp-tl4335343411%_ + (cons _%lp-hd4335243408%_ _%mod4335443401%_)))) + (let ((_%mod4335543414%_ (reverse _%mod4335443401%_))) + ((lambda (_%L43418%_ _%L43420%_) (cons 'begin: - (_%flatten43506%_ - (map (lambda (_%g4361143613%_) - (_%expand-path43508%_ - _%L43593%_ - _%g4361143613%_)) - (foldr (lambda (_%g4361643619%_ - _%g4361743622%_) - (cons _%g4361643619%_ - _%g4361743622%_)) + (_%flatten43333%_ + (map (lambda (_%g4343843440%_) + (_%expand-path43335%_ + _%L43420%_ + _%g4343843440%_)) + (foldr (lambda (_%g4344343446%_ + _%g4344443449%_) + (cons _%g4344343446%_ + _%g4344443449%_)) '() - _%L43591%_))))) - _%mod4352843587%_ - _%hd4351843555%_)))))) + _%L43418%_))))) + _%mod4335543414%_ + _%hd4334543382%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4352343567%_ - _%target4352043561%_ + (_%loop4335043394%_ + _%target4334743388%_ '())) - (_%g4351043534%_ - _%g4351143538%_))))) - (_%g4351043534%_ _%g4351143538%_)))) - (_%g4351043534%_ _%g4351143538%_)))) - (_%g4351043534%_ _%g4351143538%_))))) - (_%g4350943625%_ _%stx43503%_)))))) + (_%g4333743361%_ + _%g4333843365%_))))) + (_%g4333743361%_ _%g4333843365%_)))) + (_%g4333743361%_ _%g4333843365%_)))) + (_%g4333743361%_ _%g4333843365%_))))) + (_%g4333643452%_ _%stx43330%_)))))) (define |gerbil/core/module-sugar[:0:]#except-out| (gx#make-export-expander - (lambda (_%stx43776%_) - (let* ((_%g4377943803%_ - (lambda (_%g4378043799%_) + (lambda (_%stx43603%_) + (let* ((_%g4360643630%_ + (lambda (_%g4360743626%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4378043799%_))) - (_%g4377843931%_ - (lambda (_%g4378043807%_) - (if (gx#stx-pair? _%g4378043807%_) - (let ((_%e4378543810%_ (gx#syntax-e _%g4378043807%_))) - (let ((_%hd4378443814%_ + _%g4360743626%_))) + (_%g4360543758%_ + (lambda (_%g4360743634%_) + (if (gx#stx-pair? _%g4360743634%_) + (let ((_%e4361243637%_ (gx#syntax-e _%g4360743634%_))) + (let ((_%hd4361143641%_ (let () (declare (not safe)) - (##car _%e4378543810%_))) - (_%tl4378343817%_ + (##car _%e4361243637%_))) + (_%tl4361043644%_ (let () (declare (not safe)) - (##cdr _%e4378543810%_)))) - (if (gx#stx-pair? _%tl4378343817%_) - (let ((_%e4378843820%_ - (gx#syntax-e _%tl4378343817%_))) - (let ((_%hd4378743824%_ + (##cdr _%e4361243637%_)))) + (if (gx#stx-pair? _%tl4361043644%_) + (let ((_%e4361543647%_ + (gx#syntax-e _%tl4361043644%_))) + (let ((_%hd4361443651%_ (let () (declare (not safe)) - (##car _%e4378843820%_))) - (_%tl4378643827%_ + (##car _%e4361543647%_))) + (_%tl4361343654%_ (let () (declare (not safe)) - (##cdr _%e4378843820%_)))) - (if (gx#stx-pair/null? _%tl4378643827%_) - (let ((_g44842_ + (##cdr _%e4361543647%_)))) + (if (gx#stx-pair/null? _%tl4361343654%_) + (let ((_g44668_ (gx#syntax-split-splice - _%tl4378643827%_ + _%tl4361343654%_ '0))) (begin - (let ((_g44843_ + (let ((_g44669_ (let () (declare (not safe)) - (if (##values? _g44842_) + (if (##values? _g44668_) (##vector-length - _g44842_) + _g44668_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44843_ 2))) + (##fx= _g44669_ 2))) (error "Context expects 2 values" - _g44843_))) - (let ((_%target4378943830%_ + _g44669_))) + (let ((_%target4361643657%_ (let () (declare (not safe)) - (##vector-ref _g44842_ 0))) - (_%tl4379143833%_ + (##vector-ref _g44668_ 0))) + (_%tl4361843660%_ (let () (declare (not safe)) - (##vector-ref _g44842_ 1)))) - (if (gx#stx-null? _%tl4379143833%_) - (letrec ((_%loop4379243836%_ - (lambda (_%hd4379043840%_ + (##vector-ref _g44668_ 1)))) + (if (gx#stx-null? _%tl4361843660%_) + (letrec ((_%loop4361943663%_ + (lambda (_%hd4361743667%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id4379643843%_) - (if (gx#stx-pair? _%hd4379043840%_) - (let ((_%e4379343846%_ (gx#syntax-e _%hd4379043840%_))) - (let ((_%lp-hd4379443850%_ + _%id4362343670%_) + (if (gx#stx-pair? _%hd4361743667%_) + (let ((_%e4362043673%_ (gx#syntax-e _%hd4361743667%_))) + (let ((_%lp-hd4362143677%_ (let () (declare (not safe)) - (##car _%e4379343846%_))) - (_%lp-tl4379543853%_ + (##car _%e4362043673%_))) + (_%lp-tl4362243680%_ (let () (declare (not safe)) - (##cdr _%e4379343846%_)))) - (_%loop4379243836%_ - _%lp-tl4379543853%_ - (cons _%lp-hd4379443850%_ _%id4379643843%_)))) - (let ((_%id4379743856%_ (reverse _%id4379643843%_))) - ((lambda (_%L43860%_ _%L43862%_) + (##cdr _%e4362043673%_)))) + (_%loop4361943663%_ + _%lp-tl4362243680%_ + (cons _%lp-hd4362143677%_ _%id4362343670%_)))) + (let ((_%id4362443683%_ (reverse _%id4362343670%_))) + ((lambda (_%L43687%_ _%L43689%_) (if (gx#identifier-list? - (foldr (lambda (_%g4387943882%_ - _%g4388043885%_) - (cons _%g4387943882%_ - _%g4388043885%_)) + (foldr (lambda (_%g4370643709%_ + _%g4370743712%_) + (cons _%g4370643709%_ + _%g4370743712%_)) '() - _%L43860%_)) - (let* ((_%keys43896%_ + _%L43687%_)) + (let* ((_%keys43723%_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_%g4388743890%_ - _%g4388843893%_) - (cons _%g4388743890%_ - _%g4388843893%_)) + (foldr (lambda (_%g4371443717%_ + _%g4371543720%_) + (cons _%g4371443717%_ + _%g4371543720%_)) '() - _%L43860%_))) - (_%keytab43907%_ - (let ((_%ht43899%_ (make-hash-table))) + _%L43687%_))) + (_%keytab43734%_ + (let ((_%ht43726%_ (make-hash-table))) (for-each - (lambda (_%g4390143903%_) + (lambda (_%g4372843730%_) (hash-put! - _%ht43899%_ - _%g4390143903%_ + _%ht43726%_ + _%g4372843730%_ '#t)) - _%keys43896%_) - _%ht43899%_)) - (_%exports43910%_ + _%keys43723%_) + _%ht43726%_)) + (_%exports43737%_ (gx#core-expand-export-source - _%L43862%_)) - (_%fold-e43926%_ - (letrec ((_%fold-e43913%_ - (lambda (_%out43916%_ - _%r43918%_) + _%L43689%_)) + (_%fold-e43753%_ + (letrec ((_%fold-e43740%_ + (lambda (_%out43743%_ + _%r43745%_) (if (gx#module-export? - _%out43916%_) - (let () - (if (hash-get - _%keytab43907%_ - (gx#module-export-name - _%out43916%_)) - _%r43918%_ - (cons _%out43916%_ + _%out43743%_) + (if (hash-get + _%keytab43734%_ + (gx#module-export-name + _%out43743%_)) + _%r43745%_ + (cons _%out43743%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r43918%_))) - (if (gx#export-set? _%out43916%_) - (let () - (foldl _%fold-e43913%_ - _%r43918%_ - (gx#export-set-exports _%out43916%_))) - (let () _%r43918%_)))))) + _%r43745%_)) + (if (gx#export-set? _%out43743%_) + (foldl _%fold-e43740%_ + _%r43745%_ + (gx#export-set-exports _%out43743%_)) + _%r43745%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e43913%_))) + _%fold-e43740%_))) (cons 'begin: - (foldl _%fold-e43926%_ + (foldl _%fold-e43753%_ '() - _%exports43910%_))) - (_%g4377943803%_ _%g4378043807%_))) - _%id4379743856%_ - _%hd4378743824%_)))))) + _%exports43737%_))) + (_%g4360643630%_ _%g4360743634%_))) + _%id4362443683%_ + _%hd4361443651%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4379243836%_ - _%target4378943830%_ + (_%loop4361943663%_ + _%target4361643657%_ '())) - (_%g4377943803%_ - _%g4378043807%_))))) - (_%g4377943803%_ _%g4378043807%_)))) - (_%g4377943803%_ _%g4378043807%_)))) - (_%g4377943803%_ _%g4378043807%_))))) - (_%g4377843931%_ _%stx43776%_))))) + (_%g4360643630%_ + _%g4360743634%_))))) + (_%g4360643630%_ _%g4360743634%_)))) + (_%g4360643630%_ _%g4360743634%_)))) + (_%g4360643630%_ _%g4360743634%_))))) + (_%g4360543758%_ _%stx43603%_))))) (define |gerbil/core/module-sugar[1]#module-export-rename| - (lambda (_%out43936%_ _%rename43938%_) + (lambda (_%out43763%_ _%rename43765%_) (gx#make-module-export - (gx#module-export-context _%out43936%_) - (gx#module-export-key _%out43936%_) - (gx#module-export-phi _%out43936%_) - _%rename43938%_ - (gx#module-export-weak? _%out43936%_)))) + (gx#module-export-context _%out43763%_) + (gx#module-export-key _%out43763%_) + (gx#module-export-phi _%out43763%_) + _%rename43765%_ + (gx#module-export-weak? _%out43763%_)))) (define |gerbil/core/module-sugar[:0:]#rename-out| (gx#make-export-expander - (lambda (_%stx43940%_) - (let* ((_%g4394343976%_ - (lambda (_%g4394443972%_) + (lambda (_%stx43767%_) + (let* ((_%g4377043803%_ + (lambda (_%g4377143799%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4394443972%_))) - (_%g4394244171%_ - (lambda (_%g4394443980%_) - (if (gx#stx-pair? _%g4394443980%_) - (let ((_%e4395043983%_ (gx#syntax-e _%g4394443980%_))) - (let ((_%hd4394943987%_ + _%g4377143799%_))) + (_%g4376943998%_ + (lambda (_%g4377143807%_) + (if (gx#stx-pair? _%g4377143807%_) + (let ((_%e4377743810%_ (gx#syntax-e _%g4377143807%_))) + (let ((_%hd4377643814%_ (let () (declare (not safe)) - (##car _%e4395043983%_))) - (_%tl4394843990%_ + (##car _%e4377743810%_))) + (_%tl4377543817%_ (let () (declare (not safe)) - (##cdr _%e4395043983%_)))) - (if (gx#stx-pair? _%tl4394843990%_) - (let ((_%e4395343993%_ - (gx#syntax-e _%tl4394843990%_))) - (let ((_%hd4395243997%_ + (##cdr _%e4377743810%_)))) + (if (gx#stx-pair? _%tl4377543817%_) + (let ((_%e4378043820%_ + (gx#syntax-e _%tl4377543817%_))) + (let ((_%hd4377943824%_ (let () (declare (not safe)) - (##car _%e4395343993%_))) - (_%tl4395144000%_ + (##car _%e4378043820%_))) + (_%tl4377843827%_ (let () (declare (not safe)) - (##cdr _%e4395343993%_)))) - (if (gx#stx-pair/null? _%tl4395144000%_) - (let ((_g44844_ + (##cdr _%e4378043820%_)))) + (if (gx#stx-pair/null? _%tl4377843827%_) + (let ((_g44670_ (gx#syntax-split-splice - _%tl4395144000%_ + _%tl4377843827%_ '0))) (begin - (let ((_g44845_ + (let ((_g44671_ (let () (declare (not safe)) - (if (##values? _g44844_) + (if (##values? _g44670_) (##vector-length - _g44844_) + _g44670_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44845_ 2))) + (##fx= _g44671_ 2))) (error "Context expects 2 values" - _g44845_))) - (let ((_%target4395444003%_ + _g44671_))) + (let ((_%target4378143830%_ (let () (declare (not safe)) - (##vector-ref _g44844_ 0))) - (_%tl4395644006%_ + (##vector-ref _g44670_ 0))) + (_%tl4378343833%_ (let () (declare (not safe)) - (##vector-ref _g44844_ 1)))) - (if (gx#stx-null? _%tl4395644006%_) - (letrec ((_%loop4395744009%_ - (lambda (_%hd4395544013%_ + (##vector-ref _g44670_ 1)))) + (if (gx#stx-null? _%tl4378343833%_) + (letrec ((_%loop4378443836%_ + (lambda (_%hd4378243840%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%new-id4396144016%_ - _%id4396244018%_) - (if (gx#stx-pair? _%hd4395544013%_) - (let ((_%e4395844021%_ (gx#syntax-e _%hd4395544013%_))) - (let ((_%lp-hd4395944025%_ + _%new-id4378843843%_ + _%id4378943845%_) + (if (gx#stx-pair? _%hd4378243840%_) + (let ((_%e4378543848%_ (gx#syntax-e _%hd4378243840%_))) + (let ((_%lp-hd4378643852%_ (let () (declare (not safe)) - (##car _%e4395844021%_))) - (_%lp-tl4396044028%_ + (##car _%e4378543848%_))) + (_%lp-tl4378743855%_ (let () (declare (not safe)) - (##cdr _%e4395844021%_)))) - (if (gx#stx-pair? _%lp-hd4395944025%_) - (let ((_%e4396744031%_ - (gx#syntax-e _%lp-hd4395944025%_))) - (let ((_%hd4396644035%_ + (##cdr _%e4378543848%_)))) + (if (gx#stx-pair? _%lp-hd4378643852%_) + (let ((_%e4379443858%_ + (gx#syntax-e _%lp-hd4378643852%_))) + (let ((_%hd4379343862%_ (let () (declare (not safe)) - (##car _%e4396744031%_))) - (_%tl4396544038%_ + (##car _%e4379443858%_))) + (_%tl4379243865%_ (let () (declare (not safe)) - (##cdr _%e4396744031%_)))) - (if (gx#stx-pair? _%tl4396544038%_) - (let ((_%e4397044041%_ - (gx#syntax-e _%tl4396544038%_))) - (let ((_%hd4396944045%_ + (##cdr _%e4379443858%_)))) + (if (gx#stx-pair? _%tl4379243865%_) + (let ((_%e4379743868%_ + (gx#syntax-e _%tl4379243865%_))) + (let ((_%hd4379643872%_ (let () (declare (not safe)) - (##car _%e4397044041%_))) - (_%tl4396844048%_ + (##car _%e4379743868%_))) + (_%tl4379543875%_ (let () (declare (not safe)) - (##cdr _%e4397044041%_)))) - (if (gx#stx-null? _%tl4396844048%_) - (_%loop4395744009%_ - _%lp-tl4396044028%_ - (cons _%hd4396944045%_ - _%new-id4396144016%_) - (cons _%hd4396644035%_ - _%id4396244018%_)) - (_%g4394343976%_ - _%g4394443980%_)))) - (_%g4394343976%_ _%g4394443980%_)))) - (_%g4394343976%_ _%g4394443980%_)))) - (let ((_%new-id4396344051%_ - (reverse _%new-id4396144016%_)) - (_%id4396444054%_ (reverse _%id4396244018%_))) - ((lambda (_%L44057%_ _%L44059%_ _%L44060%_) + (##cdr _%e4379743868%_)))) + (if (gx#stx-null? _%tl4379543875%_) + (_%loop4378443836%_ + _%lp-tl4378743855%_ + (cons _%hd4379643872%_ + _%new-id4378843843%_) + (cons _%hd4379343862%_ + _%id4378943845%_)) + (_%g4377043803%_ + _%g4377143807%_)))) + (_%g4377043803%_ _%g4377143807%_)))) + (_%g4377043803%_ _%g4377143807%_)))) + (let ((_%new-id4379043878%_ + (reverse _%new-id4378843843%_)) + (_%id4379143881%_ (reverse _%id4378943845%_))) + ((lambda (_%L43884%_ _%L43886%_ _%L43887%_) (if (and (gx#identifier-list? - (foldr (lambda (_%g4407844081%_ - _%g4407944084%_) - (cons _%g4407844081%_ - _%g4407944084%_)) + (foldr (lambda (_%g4390543908%_ + _%g4390643911%_) + (cons _%g4390543908%_ + _%g4390643911%_)) '() - _%L44059%_)) + _%L43886%_)) (gx#identifier-list? - (foldr (lambda (_%g4408644089%_ - _%g4408744092%_) - (cons _%g4408644089%_ - _%g4408744092%_)) + (foldr (lambda (_%g4391343916%_ + _%g4391443919%_) + (cons _%g4391343916%_ + _%g4391443919%_)) '() - _%L44057%_))) - (let* ((_%keytab44095%_ (make-hash-table)) - (_%found44098%_ (make-hash-table)) - (_%_44121%_ + _%L43884%_))) + (let* ((_%keytab43922%_ (make-hash-table)) + (_%found43925%_ (make-hash-table)) + (_%_43948%_ (for-each - (lambda (_%id44101%_ _%new-id44103%_) + (lambda (_%id43928%_ _%new-id43930%_) (hash-put! - _%keytab44095%_ + _%keytab43922%_ (gx#core-identifier-key - _%id44101%_) + _%id43928%_) (gx#core-identifier-key - _%new-id44103%_))) - (foldr (lambda (_%g4410444107%_ - _%g4410544110%_) - (cons _%g4410444107%_ - _%g4410544110%_)) + _%new-id43930%_))) + (foldr (lambda (_%g4393143934%_ + _%g4393243937%_) + (cons _%g4393143934%_ + _%g4393243937%_)) '() - _%L44059%_) - (foldr (lambda (_%g4411244115%_ - _%g4411344118%_) - (cons _%g4411244115%_ - _%g4411344118%_)) + _%L43886%_) + (foldr (lambda (_%g4393943942%_ + _%g4394043945%_) + (cons _%g4393943942%_ + _%g4394043945%_)) '() - _%L44057%_))) - (_%exports44124%_ + _%L43884%_))) + (_%exports43951%_ (gx#core-expand-export-source - _%L44060%_)) - (_%fold-e44152%_ - (letrec ((_%fold-e44127%_ - (lambda (_%out44130%_ - _%r44132%_) + _%L43887%_)) + (_%fold-e43979%_ + (letrec ((_%fold-e43954%_ + (lambda (_%out43957%_ + _%r43959%_) (if (gx#module-export? - _%out44130%_) - (let () - (let* ((_%name44136%_ + _%out43957%_) + (let* ((_%name43963%_ + (gx#module-export-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#module-export-name _%out44130%_)) - (_%$e44139%_ - (hash-get _%keytab44095%_ _%name44136%_))) - (if _%$e44139%_ - ((lambda (_%rename44143%_) - (hash-put! _%found44098%_ _%name44136%_ '#t) - (cons (let () - (declare (not safe)) - (|gerbil/core/module-sugar[1]#module-export-rename| - _%out44130%_ - _%rename44143%_)) - _%r44132%_)) - _%$e44139%_) - (let () (cons _%out44130%_ _%r44132%_))))) - (if (gx#export-set? _%out44130%_) - (let () - (foldl _%fold-e44127%_ - _%r44132%_ - (gx#export-set-exports _%out44130%_))) - (let () (cons _%out44130%_ _%r44132%_))))))) + _%out43957%_)) + (_%$e43966%_ (hash-get _%keytab43922%_ _%name43963%_))) + (if _%$e43966%_ + ((lambda (_%rename43970%_) + (hash-put! _%found43925%_ _%name43963%_ '#t) + (cons (|gerbil/core/module-sugar[1]#module-export-rename| + _%out43957%_ + _%rename43970%_) + _%r43959%_)) + _%$e43966%_) + (cons _%out43957%_ _%r43959%_))) + (if (gx#export-set? _%out43957%_) + (foldl _%fold-e43954%_ + _%r43959%_ + (gx#export-set-exports _%out43957%_)) + (cons _%out43957%_ _%r43959%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e44127%_)) - (_%new-exports44155%_ - (foldl _%fold-e44152%_ + _%fold-e43954%_)) + (_%new-exports43982%_ + (foldl _%fold-e43979%_ '() - _%exports44124%_))) + _%exports43951%_))) (for-each - (lambda (_%id44160%_) + (lambda (_%id43987%_) (if (hash-get - _%found44098%_ - (gx#core-identifier-key _%id44160%_)) + _%found43925%_ + (gx#core-identifier-key _%id43987%_)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the export set" - _%stx43940%_ - _%id44160%_))) - (foldr (lambda (_%g4416244165%_ - _%g4416344168%_) - (cons _%g4416244165%_ - _%g4416344168%_)) + _%stx43767%_ + _%id43987%_))) + (foldr (lambda (_%g4398943992%_ + _%g4399043995%_) + (cons _%g4398943992%_ + _%g4399043995%_)) '() - _%L44059%_)) - (cons 'begin: _%new-exports44155%_)) - (_%g4394343976%_ _%g4394443980%_))) - _%new-id4396344051%_ - _%id4396444054%_ - _%hd4395243997%_)))))) + _%L43886%_)) + (cons 'begin: _%new-exports43982%_)) + (_%g4377043803%_ _%g4377143807%_))) + _%new-id4379043878%_ + _%id4379143881%_ + _%hd4377943824%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4395744009%_ - _%target4395444003%_ + (_%loop4378443836%_ + _%target4378143830%_ '() '())) - (_%g4394343976%_ - _%g4394443980%_))))) - (_%g4394343976%_ _%g4394443980%_)))) - (_%g4394343976%_ _%g4394443980%_)))) - (_%g4394343976%_ _%g4394443980%_))))) - (_%g4394244171%_ _%stx43940%_))))) + (_%g4377043803%_ + _%g4377143807%_))))) + (_%g4377043803%_ _%g4377143807%_)))) + (_%g4377043803%_ _%g4377143807%_)))) + (_%g4377043803%_ _%g4377143807%_))))) + (_%g4376943998%_ _%stx43767%_))))) (define |gerbil/core/module-sugar[:0:]#prefix-out| (gx#make-export-expander - (lambda (_%stx44176%_) - (let* ((_%g4417944197%_ - (lambda (_%g4418044193%_) + (lambda (_%stx44003%_) + (let* ((_%g4400644024%_ + (lambda (_%g4400744020%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4418044193%_))) - (_%g4417844282%_ - (lambda (_%g4418044201%_) - (if (gx#stx-pair? _%g4418044201%_) - (let ((_%e4418544204%_ (gx#syntax-e _%g4418044201%_))) - (let ((_%hd4418444208%_ + _%g4400744020%_))) + (_%g4400544109%_ + (lambda (_%g4400744028%_) + (if (gx#stx-pair? _%g4400744028%_) + (let ((_%e4401244031%_ (gx#syntax-e _%g4400744028%_))) + (let ((_%hd4401144035%_ (let () (declare (not safe)) - (##car _%e4418544204%_))) - (_%tl4418344211%_ + (##car _%e4401244031%_))) + (_%tl4401044038%_ (let () (declare (not safe)) - (##cdr _%e4418544204%_)))) - (if (gx#stx-pair? _%tl4418344211%_) - (let ((_%e4418844214%_ - (gx#syntax-e _%tl4418344211%_))) - (let ((_%hd4418744218%_ + (##cdr _%e4401244031%_)))) + (if (gx#stx-pair? _%tl4401044038%_) + (let ((_%e4401544041%_ + (gx#syntax-e _%tl4401044038%_))) + (let ((_%hd4401444045%_ (let () (declare (not safe)) - (##car _%e4418844214%_))) - (_%tl4418644221%_ + (##car _%e4401544041%_))) + (_%tl4401344048%_ (let () (declare (not safe)) - (##cdr _%e4418844214%_)))) - (if (gx#stx-pair? _%tl4418644221%_) - (let ((_%e4419144224%_ - (gx#syntax-e _%tl4418644221%_))) - (let ((_%hd4419044228%_ + (##cdr _%e4401544041%_)))) + (if (gx#stx-pair? _%tl4401344048%_) + (let ((_%e4401844051%_ + (gx#syntax-e _%tl4401344048%_))) + (let ((_%hd4401744055%_ (let () (declare (not safe)) - (##car _%e4419144224%_))) - (_%tl4418944231%_ + (##car _%e4401844051%_))) + (_%tl4401644058%_ (let () (declare (not safe)) - (##cdr _%e4419144224%_)))) - (if (gx#stx-null? _%tl4418944231%_) - ((lambda (_%L44234%_ _%L44236%_) - (if (gx#identifier? _%L44234%_) - (let* ((_%pre44252%_ + (##cdr _%e4401844051%_)))) + (if (gx#stx-null? _%tl4401644058%_) + ((lambda (_%L44061%_ _%L44063%_) + (if (gx#identifier? _%L44061%_) + (let* ((_%pre44079%_ (gx#stx-e - _%L44234%_)) - (_%exports44255%_ + _%L44061%_)) + (_%exports44082%_ (gx#core-expand-export-source - _%L44236%_)) - (_%rename-e44261%_ - (lambda (_%name44258%_) - (let () - (declare + _%L44063%_)) + (_%rename-e44088%_ + (lambda (_%name44085%_) + (|gerbil/core/module-sugar[1]#prefix-identifier-key| + _%name44085%_ + _%pre44079%_))) + (_%fold-e44104%_ + (letrec ((_%fold-e44091%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (|gerbil/core/module-sugar[1]#prefix-identifier-key| - _%name44258%_ - _%pre44252%_)))) - (_%fold-e44277%_ - (letrec ((_%fold-e44264%_ - (lambda (_%out44267%_ _%r44269%_) - (if (gx#module-export? _%out44267%_) - (let () - (cons (let ((__tmp44846 - (_%rename-e44261%_ - (gx#module-export-name - _%out44267%_)))) - (declare (not safe)) - (|gerbil/core/module-sugar[1]#module-export-rename| - _%out44267%_ - __tmp44846)) - _%r44269%_)) - (if (gx#export-set? _%out44267%_) - (let () - (foldl _%fold-e44264%_ - _%r44269%_ - (gx#export-set-exports - _%out44267%_))) - (let () - (cons _%out44267%_ _%r44269%_))))))) - _%fold-e44264%_))) - (cons 'begin: (foldl _%fold-e44277%_ '() _%exports44255%_))) + (lambda (_%out44094%_ _%r44096%_) + (if (gx#module-export? _%out44094%_) + (cons (|gerbil/core/module-sugar[1]#module-export-rename| + _%out44094%_ + (_%rename-e44088%_ + (gx#module-export-name + _%out44094%_))) + _%r44096%_) + (if (gx#export-set? _%out44094%_) + (foldl _%fold-e44091%_ + _%r44096%_ + (gx#export-set-exports + _%out44094%_)) + (cons _%out44094%_ _%r44096%_)))))) + _%fold-e44091%_))) + (cons 'begin: (foldl _%fold-e44104%_ '() _%exports44082%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4417944197%_ - _%g4418044201%_))) - _%hd4419044228%_ - _%hd4418744218%_) - (_%g4417944197%_ - _%g4418044201%_)))) - (_%g4417944197%_ _%g4418044201%_)))) - (_%g4417944197%_ _%g4418044201%_)))) - (_%g4417944197%_ _%g4418044201%_))))) - (_%g4417844282%_ _%stx44176%_))))) + (_%g4400644024%_ + _%g4400744028%_))) + _%hd4401744055%_ + _%hd4401444045%_) + (_%g4400644024%_ + _%g4400744028%_)))) + (_%g4400644024%_ _%g4400744028%_)))) + (_%g4400644024%_ _%g4400744028%_)))) + (_%g4400644024%_ _%g4400744028%_))))) + (_%g4400544109%_ _%stx44003%_))))) (define |gerbil/core/module-sugar[:0:]#struct-out| (gx#make-export-expander - (lambda (_%stx44286%_) - (letrec ((_%identifiers44289%_ - (lambda (_%id44521%_ _%unchecked?44523%_) - (let ((_%info44525%_ - (gx#syntax-local-value _%id44521%_ false))) + (lambda (_%stx44113%_) + (letrec ((_%identifiers44116%_ + (lambda (_%id44348%_ _%unchecked?44350%_) + (let ((_%info44352%_ + (gx#syntax-local-value _%id44348%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%info44525%_)) - (cons _%id44521%_ - (cons (let ((__obj44822 _%info44525%_)) + _%info44352%_)) + (cons _%id44348%_ + (cons (let ((__obj44649 _%info44352%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44822 + __obj44649 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44822 + __obj44649 '12 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj44822 + __obj44649 'type-descriptor))) (foldr cons - (cons (let ((__obj44823 - _%info44525%_)) + (cons (let ((__obj44650 + _%info44352%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44823 + __obj44650 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44823 + __obj44650 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj44823 + __obj44650 'predicate))) (foldr cons (foldr cons - (if _%unchecked?44523%_ + (if _%unchecked?44350%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr cons (map cdr - (let ((__obj44824 _%info44525%_)) + (let ((__obj44651 _%info44352%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44824 + __obj44651 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44824 + __obj44651 '18 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj44824 + __obj44651 'unchecked-mutators)))) (map cdr - (let ((__obj44825 _%info44525%_)) + (let ((__obj44652 _%info44352%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44825 + __obj44652 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44825 + __obj44652 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj44825 + __obj44652 'unchecked-accessors))))) '()) (map cdr - (let ((__obj44826 _%info44525%_)) + (let ((__obj44653 _%info44352%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44826 + __obj44653 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44826 + __obj44653 '16 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj44826 + __obj44653 'mutators))))) (map cdr - (let ((__obj44827 _%info44525%_)) + (let ((__obj44654 _%info44352%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44827 + __obj44654 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44827 + __obj44654 '15 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj44827 + __obj44654 'accessors)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%ctor44528%_ - (let ((__obj44828 - _%info44525%_)) + (let ((_%ctor44355%_ + (let ((__obj44655 + _%info44352%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44828 + __obj44655 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44828 + __obj44655 '13 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj44828 + __obj44655 'constructor))))) - (if _%ctor44528%_ - (cons _%ctor44528%_ '()) + (if _%ctor44355%_ + (cons _%ctor44355%_ '()) '()))))) (gx#raise-syntax-error '#f '"no class type info" - _%stx44286%_ - _%id44521%_)))))) - (let* ((_%__stx4476344764%_ _%stx44286%_) - (_%g4429344334%_ + _%stx44113%_ + _%id44348%_)))))) + (let* ((_%__stx4459044591%_ _%stx44113%_) + (_%g4412044161%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4476344764%_)))) - (let ((_%__kont4476644767%_ - (lambda (_%L44482%_ _%L44484%_) + _%__stx4459044591%_)))) + (let ((_%__kont4459344594%_ + (lambda (_%L44309%_ _%L44311%_) (cons 'begin: (concatenate (gx#stx-map - (lambda (_%g4450344505%_) - (_%identifiers44289%_ - _%g4450344505%_ - (gx#stx-e _%L44484%_))) - (foldr (lambda (_%g4450844511%_ _%g4450944514%_) - (cons _%g4450844511%_ _%g4450944514%_)) + (lambda (_%g4433044332%_) + (_%identifiers44116%_ + _%g4433044332%_ + (gx#stx-e _%L44311%_))) + (foldr (lambda (_%g4433544338%_ _%g4433644341%_) + (cons _%g4433544338%_ _%g4433644341%_)) '() - _%L44482%_)))))) - (_%__kont4477044771%_ - (lambda (_%L44381%_) + _%L44309%_)))))) + (_%__kont4459744598%_ + (lambda (_%L44208%_) (cons 'begin: (concatenate (gx#stx-map - (lambda (_%g4439744399%_) - (_%identifiers44289%_ _%g4439744399%_ '#f)) - (foldr (lambda (_%g4440244405%_ _%g4440344408%_) - (cons _%g4440244405%_ _%g4440344408%_)) + (lambda (_%g4422444226%_) + (_%identifiers44116%_ _%g4422444226%_ '#f)) + (foldr (lambda (_%g4422944232%_ _%g4423044235%_) + (cons _%g4422944232%_ _%g4423044235%_)) '() - _%L44381%_))))))) - (let* ((_%__match4482044821%_ - (lambda (_%e4431944341%_ - _%hd4431844345%_ - _%tl4431744348%_ - _%__splice4477244773%_ - _%target4432044351%_ - _%tl4432244354%_) - (letrec ((_%loop4432344357%_ - (lambda (_%hd4432144361%_ _%id4432744364%_) - (if (gx#stx-pair? _%hd4432144361%_) - (let ((_%e4432444367%_ - (gx#syntax-e _%hd4432144361%_))) - (let ((_%lp-tl4432644374%_ + _%L44208%_))))))) + (let* ((_%__match4464744648%_ + (lambda (_%e4414644168%_ + _%hd4414544172%_ + _%tl4414444175%_ + _%__splice4459944600%_ + _%target4414744178%_ + _%tl4414944181%_) + (letrec ((_%loop4415044184%_ + (lambda (_%hd4414844188%_ _%id4415444191%_) + (if (gx#stx-pair? _%hd4414844188%_) + (let ((_%e4415144194%_ + (gx#syntax-e _%hd4414844188%_))) + (let ((_%lp-tl4415344201%_ (let () (declare (not safe)) - (##cdr _%e4432444367%_))) - (_%lp-hd4432544371%_ + (##cdr _%e4415144194%_))) + (_%lp-hd4415244198%_ (let () (declare (not safe)) - (##car _%e4432444367%_)))) - (_%loop4432344357%_ - _%lp-tl4432644374%_ - (cons _%lp-hd4432544371%_ - _%id4432744364%_)))) - (let ((_%id4432844377%_ - (reverse _%id4432744364%_))) - (_%__kont4477044771%_ - _%id4432844377%_)))))) - (_%loop4432344357%_ _%target4432044351%_ '())))) - (_%__match4480644807%_ - (lambda (_%e4429944418%_ - _%hd4429844422%_ - _%tl4429744425%_ - _%e4430244428%_ - _%hd4430144432%_ - _%tl4430044435%_ - _%e4430344438%_ - _%e4430644442%_ - _%hd4430544446%_ - _%tl4430444449%_ - _%__splice4476844769%_ - _%target4430744452%_ - _%tl4430944455%_) - (letrec ((_%loop4431044458%_ - (lambda (_%hd4430844462%_ _%id4431444465%_) - (if (gx#stx-pair? _%hd4430844462%_) - (let ((_%e4431144468%_ - (gx#syntax-e _%hd4430844462%_))) - (let ((_%lp-tl4431344475%_ + (##car _%e4415144194%_)))) + (_%loop4415044184%_ + _%lp-tl4415344201%_ + (cons _%lp-hd4415244198%_ + _%id4415444191%_)))) + (let ((_%id4415544204%_ + (reverse _%id4415444191%_))) + (_%__kont4459744598%_ + _%id4415544204%_)))))) + (_%loop4415044184%_ _%target4414744178%_ '())))) + (_%__match4463344634%_ + (lambda (_%e4412644245%_ + _%hd4412544249%_ + _%tl4412444252%_ + _%e4412944255%_ + _%hd4412844259%_ + _%tl4412744262%_ + _%e4413044265%_ + _%e4413344269%_ + _%hd4413244273%_ + _%tl4413144276%_ + _%__splice4459544596%_ + _%target4413444279%_ + _%tl4413644282%_) + (letrec ((_%loop4413744285%_ + (lambda (_%hd4413544289%_ _%id4414144292%_) + (if (gx#stx-pair? _%hd4413544289%_) + (let ((_%e4413844295%_ + (gx#syntax-e _%hd4413544289%_))) + (let ((_%lp-tl4414044302%_ (let () (declare (not safe)) - (##cdr _%e4431144468%_))) - (_%lp-hd4431244472%_ + (##cdr _%e4413844295%_))) + (_%lp-hd4413944299%_ (let () (declare (not safe)) - (##car _%e4431144468%_)))) - (_%loop4431044458%_ - _%lp-tl4431344475%_ - (cons _%lp-hd4431244472%_ - _%id4431444465%_)))) - (let ((_%id4431544478%_ - (reverse _%id4431444465%_))) - (_%__kont4476644767%_ - _%id4431544478%_ - _%hd4430544446%_)))))) - (_%loop4431044458%_ _%target4430744452%_ '()))))) - (if (gx#stx-pair? _%__stx4476344764%_) - (let ((_%e4429944418%_ (gx#syntax-e _%__stx4476344764%_))) - (let ((_%tl4429744425%_ + (##car _%e4413844295%_)))) + (_%loop4413744285%_ + _%lp-tl4414044302%_ + (cons _%lp-hd4413944299%_ + _%id4414144292%_)))) + (let ((_%id4414244305%_ + (reverse _%id4414144292%_))) + (_%__kont4459344594%_ + _%id4414244305%_ + _%hd4413244273%_)))))) + (_%loop4413744285%_ _%target4413444279%_ '()))))) + (if (gx#stx-pair? _%__stx4459044591%_) + (let ((_%e4412644245%_ (gx#syntax-e _%__stx4459044591%_))) + (let ((_%tl4412444252%_ (let () (declare (not safe)) - (##cdr _%e4429944418%_))) - (_%hd4429844422%_ + (##cdr _%e4412644245%_))) + (_%hd4412544249%_ (let () (declare (not safe)) - (##car _%e4429944418%_)))) - (if (gx#stx-pair? _%tl4429744425%_) - (let ((_%e4430244428%_ - (gx#syntax-e _%tl4429744425%_))) - (let ((_%tl4430044435%_ + (##car _%e4412644245%_)))) + (if (gx#stx-pair? _%tl4412444252%_) + (let ((_%e4412944255%_ + (gx#syntax-e _%tl4412444252%_))) + (let ((_%tl4412744262%_ (let () (declare (not safe)) - (##cdr _%e4430244428%_))) - (_%hd4430144432%_ + (##cdr _%e4412944255%_))) + (_%hd4412844259%_ (let () (declare (not safe)) - (##car _%e4430244428%_)))) - (if (gx#stx-datum? _%hd4430144432%_) - (let ((_%e4430344438%_ - (gx#stx-e _%hd4430144432%_))) - (if (equal? _%e4430344438%_ 'unchecked:) - (if (gx#stx-pair? _%tl4430044435%_) - (let ((_%e4430644442%_ + (##car _%e4412944255%_)))) + (if (gx#stx-datum? _%hd4412844259%_) + (let ((_%e4413044265%_ + (gx#stx-e _%hd4412844259%_))) + (if (equal? _%e4413044265%_ 'unchecked:) + (if (gx#stx-pair? _%tl4412744262%_) + (let ((_%e4413344269%_ (gx#syntax-e - _%tl4430044435%_))) - (let ((_%tl4430444449%_ + _%tl4412744262%_))) + (let ((_%tl4413144276%_ (let () (declare (not safe)) - (##cdr _%e4430644442%_))) - (_%hd4430544446%_ + (##cdr _%e4413344269%_))) + (_%hd4413244273%_ (let () (declare (not safe)) - (##car _%e4430644442%_)))) + (##car _%e4413344269%_)))) (if (gx#stx-pair/null? - _%tl4430444449%_) - (let ((_%__splice4476844769%_ + _%tl4413144276%_) + (let ((_%__splice4459544596%_ (gx#syntax-split-splice - _%tl4430444449%_ + _%tl4413144276%_ '0))) - (let ((_%tl4430944455%_ + (let ((_%tl4413644282%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4476844769%_ '1))) - (_%target4430744452%_ + (##vector-ref _%__splice4459544596%_ '1))) + (_%target4413444279%_ (let () (declare (not safe)) - (##vector-ref _%__splice4476844769%_ '0)))) - (if (gx#stx-null? _%tl4430944455%_) - (_%__match4480644807%_ - _%e4429944418%_ - _%hd4429844422%_ - _%tl4429744425%_ - _%e4430244428%_ - _%hd4430144432%_ - _%tl4430044435%_ - _%e4430344438%_ - _%e4430644442%_ - _%hd4430544446%_ - _%tl4430444449%_ - _%__splice4476844769%_ - _%target4430744452%_ - _%tl4430944455%_) - (if (gx#stx-pair/null? _%tl4429744425%_) - (let ((_%__splice4477244773%_ - (gx#syntax-split-splice _%tl4429744425%_ '0))) - (let ((_%tl4432244354%_ + (##vector-ref _%__splice4459544596%_ '0)))) + (if (gx#stx-null? _%tl4413644282%_) + (_%__match4463344634%_ + _%e4412644245%_ + _%hd4412544249%_ + _%tl4412444252%_ + _%e4412944255%_ + _%hd4412844259%_ + _%tl4412744262%_ + _%e4413044265%_ + _%e4413344269%_ + _%hd4413244273%_ + _%tl4413144276%_ + _%__splice4459544596%_ + _%target4413444279%_ + _%tl4413644282%_) + (if (gx#stx-pair/null? _%tl4412444252%_) + (let ((_%__splice4459944600%_ + (gx#syntax-split-splice _%tl4412444252%_ '0))) + (let ((_%tl4414944181%_ (let () (declare (not safe)) - (##vector-ref _%__splice4477244773%_ '1))) - (_%target4432044351%_ + (##vector-ref _%__splice4459944600%_ '1))) + (_%target4414744178%_ (let () (declare (not safe)) - (##vector-ref _%__splice4477244773%_ '0)))) - (if (gx#stx-null? _%tl4432244354%_) - (_%__match4482044821%_ - _%e4429944418%_ - _%hd4429844422%_ - _%tl4429744425%_ - _%__splice4477244773%_ - _%target4432044351%_ - _%tl4432244354%_) + (##vector-ref _%__splice4459944600%_ '0)))) + (if (gx#stx-null? _%tl4414944181%_) + (_%__match4464744648%_ + _%e4412644245%_ + _%hd4412544249%_ + _%tl4412444252%_ + _%__splice4459944600%_ + _%target4414744178%_ + _%tl4414944181%_) (let () (declare (not safe)) - (_%g4429344334%_))))) - (let () (declare (not safe)) (_%g4429344334%_)))))) + (_%g4412044161%_))))) + (let () (declare (not safe)) (_%g4412044161%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl4429744425%_) - (let ((_%__splice4477244773%_ + _%tl4412444252%_) + (let ((_%__splice4459944600%_ (gx#syntax-split-splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl4429744425%_ + _%tl4412444252%_ '0))) - (let ((_%tl4432244354%_ + (let ((_%tl4414944181%_ (let () (declare (not safe)) - (##vector-ref _%__splice4477244773%_ '1))) - (_%target4432044351%_ + (##vector-ref _%__splice4459944600%_ '1))) + (_%target4414744178%_ (let () (declare (not safe)) - (##vector-ref _%__splice4477244773%_ '0)))) - (if (gx#stx-null? _%tl4432244354%_) - (_%__match4482044821%_ - _%e4429944418%_ - _%hd4429844422%_ - _%tl4429744425%_ - _%__splice4477244773%_ - _%target4432044351%_ - _%tl4432244354%_) - (let () (declare (not safe)) (_%g4429344334%_))))) - (let () (declare (not safe)) (_%g4429344334%_)))))) + (##vector-ref _%__splice4459944600%_ '0)))) + (if (gx#stx-null? _%tl4414944181%_) + (_%__match4464744648%_ + _%e4412644245%_ + _%hd4412544249%_ + _%tl4412444252%_ + _%__splice4459944600%_ + _%target4414744178%_ + _%tl4414944181%_) + (let () (declare (not safe)) (_%g4412044161%_))))) + (let () (declare (not safe)) (_%g4412044161%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl4429744425%_) - (let ((_%__splice4477244773%_ + _%tl4412444252%_) + (let ((_%__splice4459944600%_ (gx#syntax-split-splice - _%tl4429744425%_ + _%tl4412444252%_ '0))) - (let ((_%tl4432244354%_ + (let ((_%tl4414944181%_ (let () (declare (not safe)) (##vector-ref - _%__splice4477244773%_ + _%__splice4459944600%_ '1))) - (_%target4432044351%_ + (_%target4414744178%_ (let () (declare (not safe)) (##vector-ref - _%__splice4477244773%_ + _%__splice4459944600%_ '0)))) (if (gx#stx-null? - _%tl4432244354%_) - (_%__match4482044821%_ - _%e4429944418%_ - _%hd4429844422%_ - _%tl4429744425%_ - _%__splice4477244773%_ - _%target4432044351%_ - _%tl4432244354%_) + _%tl4414944181%_) + (_%__match4464744648%_ + _%e4412644245%_ + _%hd4412544249%_ + _%tl4412444252%_ + _%__splice4459944600%_ + _%target4414744178%_ + _%tl4414944181%_) (let () (declare (not safe)) - (_%g4429344334%_))))) + (_%g4412044161%_))))) (let () (declare (not safe)) - (_%g4429344334%_)))) + (_%g4412044161%_)))) (if (gx#stx-pair/null? - _%tl4429744425%_) - (let ((_%__splice4477244773%_ + _%tl4412444252%_) + (let ((_%__splice4459944600%_ (gx#syntax-split-splice - _%tl4429744425%_ + _%tl4412444252%_ '0))) - (let ((_%tl4432244354%_ + (let ((_%tl4414944181%_ (let () (declare (not safe)) (##vector-ref - _%__splice4477244773%_ + _%__splice4459944600%_ '1))) - (_%target4432044351%_ + (_%target4414744178%_ (let () (declare (not safe)) (##vector-ref - _%__splice4477244773%_ + _%__splice4459944600%_ '0)))) (if (gx#stx-null? - _%tl4432244354%_) - (_%__match4482044821%_ - _%e4429944418%_ - _%hd4429844422%_ - _%tl4429744425%_ - _%__splice4477244773%_ - _%target4432044351%_ - _%tl4432244354%_) + _%tl4414944181%_) + (_%__match4464744648%_ + _%e4412644245%_ + _%hd4412544249%_ + _%tl4412444252%_ + _%__splice4459944600%_ + _%target4414744178%_ + _%tl4414944181%_) (let () (declare (not safe)) - (_%g4429344334%_))))) + (_%g4412044161%_))))) (let () (declare (not safe)) - (_%g4429344334%_))))) - (if (gx#stx-pair/null? _%tl4429744425%_) - (let ((_%__splice4477244773%_ + (_%g4412044161%_))))) + (if (gx#stx-pair/null? _%tl4412444252%_) + (let ((_%__splice4459944600%_ (gx#syntax-split-splice - _%tl4429744425%_ + _%tl4412444252%_ '0))) - (let ((_%tl4432244354%_ + (let ((_%tl4414944181%_ (let () (declare (not safe)) (##vector-ref - _%__splice4477244773%_ + _%__splice4459944600%_ '1))) - (_%target4432044351%_ + (_%target4414744178%_ (let () (declare (not safe)) (##vector-ref - _%__splice4477244773%_ + _%__splice4459944600%_ '0)))) - (if (gx#stx-null? _%tl4432244354%_) - (_%__match4482044821%_ - _%e4429944418%_ - _%hd4429844422%_ - _%tl4429744425%_ - _%__splice4477244773%_ - _%target4432044351%_ - _%tl4432244354%_) + (if (gx#stx-null? _%tl4414944181%_) + (_%__match4464744648%_ + _%e4412644245%_ + _%hd4412544249%_ + _%tl4412444252%_ + _%__splice4459944600%_ + _%target4414744178%_ + _%tl4414944181%_) (let () (declare (not safe)) - (_%g4429344334%_))))) + (_%g4412044161%_))))) (let () (declare (not safe)) - (_%g4429344334%_)))))) - (if (gx#stx-pair/null? _%tl4429744425%_) - (let ((_%__splice4477244773%_ + (_%g4412044161%_)))))) + (if (gx#stx-pair/null? _%tl4412444252%_) + (let ((_%__splice4459944600%_ (gx#syntax-split-splice - _%tl4429744425%_ + _%tl4412444252%_ '0))) - (let ((_%tl4432244354%_ + (let ((_%tl4414944181%_ (let () (declare (not safe)) (##vector-ref - _%__splice4477244773%_ + _%__splice4459944600%_ '1))) - (_%target4432044351%_ + (_%target4414744178%_ (let () (declare (not safe)) (##vector-ref - _%__splice4477244773%_ + _%__splice4459944600%_ '0)))) - (if (gx#stx-null? _%tl4432244354%_) - (_%__match4482044821%_ - _%e4429944418%_ - _%hd4429844422%_ - _%tl4429744425%_ - _%__splice4477244773%_ - _%target4432044351%_ - _%tl4432244354%_) + (if (gx#stx-null? _%tl4414944181%_) + (_%__match4464744648%_ + _%e4412644245%_ + _%hd4412544249%_ + _%tl4412444252%_ + _%__splice4459944600%_ + _%target4414744178%_ + _%tl4414944181%_) (let () (declare (not safe)) - (_%g4429344334%_))))) + (_%g4412044161%_))))) (let () (declare (not safe)) - (_%g4429344334%_)))))) - (let () (declare (not safe)) (_%g4429344334%_))))))))))) + (_%g4412044161%_)))))) + (let () (declare (not safe)) (_%g4412044161%_))))))))))) diff --git a/src/bootstrap/gerbil/core/mop.ssxi.ss b/src/bootstrap/gerbil/core/mop.ssxi.ss index 811c4d934..6b7ddf154 100644 --- a/src/bootstrap/gerbil/core/mop.ssxi.ss +++ b/src/bootstrap/gerbil/core/mop.ssxi.ss @@ -2,9 +2,51 @@ prelude: :gerbil/compiler/ssxi package: gerbil/core (begin - (declare-type |gerbil/core/mop~MOP-1[1]#module-type-id| (@lambda 1 #f)) - (declare-type |gerbil/core/mop~MOP-1[1]#make-class-type-id| (@lambda 1 #f)) - (declare-type |gerbil/core/mop~MOP-1[1]#generate-typedef| (@lambda 2 #f)) + (declare-type + |gerbil/core/mop~MOP-1[1]#module-type-id| + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/mop~MOP-1))) + (declare-type + |gerbil/core/mop~MOP-1[1]#make-class-type-id| + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/mop~MOP-1))) + (declare-type + |gerbil/core/mop~MOP-1[1]#generate-typedef| + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/mop~MOP-1))) (declare-class gerbil/core/mop~MOP-2#class-type-info::t (@class gerbil.core#class-type-info::t @@ -321,17 +363,105 @@ package: gerbil/core (@mutator gerbil/core/mop~MOP-2#class-type-info::t slot-contracts #f)) (declare-type gerbil/core/mop~MOP-2#class-type-info::apply-macro-expander - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/mop~MOP-2))) (declare-type gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - (@lambda 2 #f)) + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/mop~MOP-2))) (declare-type gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - (@lambda 1 #f)) + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/mop~MOP-2))) (declare-type gerbil/core/mop~MOP-2#syntax-local-class-type-info? (@case-lambda - (1 gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0) - (2 gerbil/core/mop~MOP-2#syntax-local-class-type-info?__%))) - (declare-type |gerbil/core/mop~MOP-4[1]#typedef-body?| (@lambda 1 #f)) - (declare-type |gerbil/core/mop~MOP-4[1]#generate-defclass| (@lambda 5 #f))) + (1 + gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/mop~MOP-2)) + (2 + gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/mop~MOP-2)))) + (declare-type + |gerbil/core/mop~MOP-4[1]#typedef-body?| + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/mop~MOP-4))) + (declare-type + |gerbil/core/mop~MOP-4[1]#generate-defclass| + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/mop~MOP-4)))) diff --git a/src/bootstrap/gerbil/core/mop~1.scm b/src/bootstrap/gerbil/core/mop~1.scm index 85ae91c5a..2d21b5665 100644 --- a/src/bootstrap/gerbil/core/mop~1.scm +++ b/src/bootstrap/gerbil/core/mop~1.scm @@ -1,114 +1,103 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core/mop~MOP-1[1]#module-type-id| - (lambda (_%type-t22501%_) - (let ((_%$e22504%_ (gx#module-context-ns (gx#current-expander-context)))) - (if _%$e22504%_ - ((lambda (_%ns22508%_) + (lambda (_%type-t22498%_) + (let ((_%$e22501%_ (gx#module-context-ns (gx#current-expander-context)))) + (if _%$e22501%_ + ((lambda (_%ns22505%_) (gx#stx-identifier - _%type-t22501%_ - _%ns22508%_ + _%type-t22498%_ + _%ns22505%_ '"#" - _%type-t22501%_ + _%type-t22498%_ '"::t")) - _%$e22504%_) - (let ((_%mid22513%_ + _%$e22501%_) + (let ((_%mid22510%_ (gx#expander-context-id (gx#current-expander-context)))) (gx#stx-identifier - _%type-t22501%_ - _%mid22513%_ + _%type-t22498%_ + _%mid22510%_ '"#" - _%type-t22501%_ + _%type-t22498%_ '"::t")))))) (define |gerbil/core/mop~MOP-1[1]#make-class-type-id| - (lambda (_%type-t22498%_) + (lambda (_%type-t22495%_) (if (gx#module-context? (gx#current-expander-context)) - (let () - (declare (not safe)) - (|gerbil/core/mop~MOP-1[1]#module-type-id| _%type-t22498%_)) - (make-symbol '"__" (gensym (gx#stx-e _%type-t22498%_)) '"::t")))) + (|gerbil/core/mop~MOP-1[1]#module-type-id| _%type-t22495%_) + (make-symbol '"__" (gensym (gx#stx-e _%type-t22495%_)) '"::t")))) (define |gerbil/core/mop~MOP-1[1]#generate-typedef| - (lambda (_%stx21076%_ _%struct?21078%_) - (letrec ((_%wrap21080%_ - (lambda (_%e-stx22495%_) + (lambda (_%stx21073%_ _%struct?21075%_) + (letrec ((_%wrap21077%_ + (lambda (_%e-stx22492%_) (gx#stx-wrap-source - _%e-stx22495%_ - (gx#stx-source _%stx21076%_)))) - (_%slot-name21082%_ - (lambda (_%slot-spec22412%_) - (let* ((_%g2241522434%_ - (lambda (_%g2241622430%_) + _%e-stx22492%_ + (gx#stx-source _%stx21073%_)))) + (_%slot-name21079%_ + (lambda (_%slot-spec22409%_) + (let* ((_%g2241222431%_ + (lambda (_%g2241322427%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2241622430%_))) - (_%g2241422491%_ - (lambda (_%g2241622438%_) - (if (gx#stx-pair? _%g2241622438%_) - (let ((_%e2242222441%_ - (gx#syntax-e _%g2241622438%_))) - (let ((_%hd2242122445%_ + _%g2241322427%_))) + (_%g2241122488%_ + (lambda (_%g2241322435%_) + (if (gx#stx-pair? _%g2241322435%_) + (let ((_%e2241922438%_ + (gx#syntax-e _%g2241322435%_))) + (let ((_%hd2241822442%_ (let () (declare (not safe)) - (##car _%e2242222441%_))) - (_%tl2242022448%_ + (##car _%e2241922438%_))) + (_%tl2241722445%_ (let () (declare (not safe)) - (##cdr _%e2242222441%_)))) - (if (gx#stx-pair? _%tl2242022448%_) - (let ((_%e2242522451%_ - (gx#syntax-e _%tl2242022448%_))) - (let ((_%hd2242422455%_ + (##cdr _%e2241922438%_)))) + (if (gx#stx-pair? _%tl2241722445%_) + (let ((_%e2242222448%_ + (gx#syntax-e _%tl2241722445%_))) + (let ((_%hd2242122452%_ (let () (declare (not safe)) - (##car _%e2242522451%_))) - (_%tl2242322458%_ + (##car _%e2242222448%_))) + (_%tl2242022455%_ (let () (declare (not safe)) - (##cdr _%e2242522451%_)))) - (if (gx#stx-pair? _%tl2242322458%_) - (let ((_%e2242822461%_ + (##cdr _%e2242222448%_)))) + (if (gx#stx-pair? _%tl2242022455%_) + (let ((_%e2242522458%_ (gx#syntax-e - _%tl2242322458%_))) - (let ((_%hd2242722465%_ + _%tl2242022455%_))) + (let ((_%hd2242422462%_ (let () (declare (not safe)) - (##car _%e2242822461%_))) - (_%tl2242622468%_ + (##car _%e2242522458%_))) + (_%tl2242322465%_ (let () (declare (not safe)) - (##cdr _%e2242822461%_)))) + (##cdr _%e2242522458%_)))) (if (gx#stx-null? - _%tl2242622468%_) - ((lambda (_%L22471%_ + _%tl2242322465%_) + ((lambda (_%L22468%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L22473%_ - _%L22474%_) - _%L22474%_) - _%hd2242722465%_ - _%hd2242422455%_ - _%hd2242122445%_) - (let () - (declare (not safe)) - (_%g2241522434%_ _%g2241622438%_))))) + _%L22470%_ + _%L22471%_) + _%L22471%_) + _%hd2242422462%_ + _%hd2242122452%_ + _%hd2241822442%_) + (_%g2241222431%_ _%g2241322435%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g2241522434%_ - _%g2241622438%_))))) - (let () - (declare (not safe)) - (_%g2241522434%_ _%g2241622438%_))))) - (let () - (declare (not safe)) - (_%g2241522434%_ _%g2241622438%_)))))) - (declare (not safe)) - (_%g2241422491%_ _%slot-spec22412%_)))) - (_%class-opt?21083%_ - (lambda (_%key22409%_) - (let ((__tmp27197 (gx#stx-e _%key22409%_))) + (_%g2241222431%_ + _%g2241322435%_)))) + (_%g2241222431%_ _%g2241322435%_)))) + (_%g2241222431%_ _%g2241322435%_))))) + (_%g2241122488%_ _%slot-spec22409%_)))) + (_%class-opt?21080%_ + (lambda (_%key22406%_) + (let ((__tmp27193 (gx#stx-e _%key22406%_))) (declare (not safe)) - (##memq __tmp27197 + (##memq __tmp27193 '(struct: slots: id: @@ -118,1223 +107,1046 @@ final: mixin: metaclass:)))))) - (let* ((_%g2108521112%_ - (lambda (_%g2108621108%_) + (let* ((_%g2108221109%_ + (lambda (_%g2108321105%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2108621108%_))) - (_%g2108422405%_ - (lambda (_%g2108621116%_) - (if (gx#stx-pair? _%g2108621116%_) - (let ((_%e2109421119%_ (gx#syntax-e _%g2108621116%_))) - (let ((_%hd2109321123%_ + _%g2108321105%_))) + (_%g2108122402%_ + (lambda (_%g2108321113%_) + (if (gx#stx-pair? _%g2108321113%_) + (let ((_%e2109121116%_ (gx#syntax-e _%g2108321113%_))) + (let ((_%hd2109021120%_ (let () (declare (not safe)) - (##car _%e2109421119%_))) - (_%tl2109221126%_ + (##car _%e2109121116%_))) + (_%tl2108921123%_ (let () (declare (not safe)) - (##cdr _%e2109421119%_)))) - (if (gx#stx-pair? _%tl2109221126%_) - (let ((_%e2109721129%_ - (gx#syntax-e _%tl2109221126%_))) - (let ((_%hd2109621133%_ + (##cdr _%e2109121116%_)))) + (if (gx#stx-pair? _%tl2108921123%_) + (let ((_%e2109421126%_ + (gx#syntax-e _%tl2108921123%_))) + (let ((_%hd2109321130%_ (let () (declare (not safe)) - (##car _%e2109721129%_))) - (_%tl2109521136%_ + (##car _%e2109421126%_))) + (_%tl2109221133%_ (let () (declare (not safe)) - (##cdr _%e2109721129%_)))) - (if (gx#stx-pair? _%tl2109521136%_) - (let ((_%e2110021139%_ - (gx#syntax-e _%tl2109521136%_))) - (let ((_%hd2109921143%_ + (##cdr _%e2109421126%_)))) + (if (gx#stx-pair? _%tl2109221133%_) + (let ((_%e2109721136%_ + (gx#syntax-e _%tl2109221133%_))) + (let ((_%hd2109621140%_ (let () (declare (not safe)) - (##car _%e2110021139%_))) - (_%tl2109821146%_ + (##car _%e2109721136%_))) + (_%tl2109521143%_ (let () (declare (not safe)) - (##cdr _%e2110021139%_)))) - (if (gx#stx-pair? _%tl2109821146%_) - (let ((_%e2110321149%_ + (##cdr _%e2109721136%_)))) + (if (gx#stx-pair? _%tl2109521143%_) + (let ((_%e2110021146%_ (gx#syntax-e - _%tl2109821146%_))) - (let ((_%hd2110221153%_ + _%tl2109521143%_))) + (let ((_%hd2109921150%_ (let () (declare (not safe)) - (##car _%e2110321149%_))) - (_%tl2110121156%_ + (##car _%e2110021146%_))) + (_%tl2109821153%_ (let () (declare (not safe)) - (##cdr _%e2110321149%_)))) + (##cdr _%e2110021146%_)))) (if (gx#stx-pair? - _%tl2110121156%_) - (let ((_%e2110621159%_ + _%tl2109821153%_) + (let ((_%e2110321156%_ (gx#syntax-e - _%tl2110121156%_))) - (let ((_%hd2110521163%_ + _%tl2109821153%_))) + (let ((_%hd2110221160%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2110621159%_))) - (_%tl2110421166%_ - (let () (declare (not safe)) (##cdr _%e2110621159%_)))) - ((lambda (_%L21169%_ - _%L21171%_ - _%L21172%_ - _%L21173%_ - _%L21174%_) - (if (and (gx#identifier? _%L21174%_) - (gx#identifier-list? _%L21173%_) - (or (gx#identifier? _%L21172%_) - (gx#stx-false? _%L21172%_)) - (gx#identifier? _%L21171%_) - (gx#stx-plist? _%L21169%_ _%class-opt?21083%_)) - (let* ((_%struct?21214%_ - (let ((_%$e21204%_ _%struct?21078%_)) - (if _%$e21204%_ - _%$e21204%_ - (let ((_%$e21208%_ + (##car _%e2110321156%_))) + (_%tl2110121163%_ + (let () (declare (not safe)) (##cdr _%e2110321156%_)))) + ((lambda (_%L21166%_ + _%L21168%_ + _%L21169%_ + _%L21170%_ + _%L21171%_) + (if (and (gx#identifier? _%L21171%_) + (gx#identifier-list? _%L21170%_) + (or (gx#identifier? _%L21169%_) + (gx#stx-false? _%L21169%_)) + (gx#identifier? _%L21168%_) + (gx#stx-plist? _%L21166%_ _%class-opt?21080%_)) + (let* ((_%struct?21211%_ + (let ((_%$e21201%_ _%struct?21075%_)) + (if _%$e21201%_ + _%$e21201%_ + (let ((_%$e21205%_ (gx#stx-getq 'struct: - _%L21169%_))) - (if _%$e21208%_ - (gx#stx-e _%$e21208%_) - (let () '#f)))))) - (_%slots21221%_ - (let ((_%$e21217%_ - (gx#stx-getq 'slots: _%L21169%_))) - (if _%$e21217%_ _%$e21217%_ '()))) - (_%mixin-slots21228%_ - (let ((_%$e21224%_ - (gx#stx-getq 'mixin: _%L21169%_))) - (if _%$e21224%_ _%$e21224%_ '()))) - (_%accessible-slots21231%_ - (append (gx#syntax->list _%slots21221%_) + _%L21166%_))) + (if _%$e21205%_ + (gx#stx-e _%$e21205%_) + '#f))))) + (_%slots21218%_ + (let ((_%$e21214%_ + (gx#stx-getq 'slots: _%L21166%_))) + (if _%$e21214%_ _%$e21214%_ '()))) + (_%mixin-slots21225%_ + (let ((_%$e21221%_ + (gx#stx-getq 'mixin: _%L21166%_))) + (if _%$e21221%_ _%$e21221%_ '()))) + (_%accessible-slots21228%_ + (append (gx#syntax->list _%slots21218%_) (gx#syntax->list - _%mixin-slots21228%_))) - (_%metaclass21234%_ - (gx#stx-getq 'metaclass: _%L21169%_)) - (_%g2123721254%_ - (lambda (_%g2123821250%_) + _%mixin-slots21225%_))) + (_%metaclass21231%_ + (gx#stx-getq 'metaclass: _%L21166%_)) + (_%g2123421251%_ + (lambda (_%g2123521247%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2123821250%_))) - (_%g2123622401%_ - (lambda (_%g2123821258%_) - (if (gx#stx-pair/null? _%g2123821258%_) - (let ((_g27198_ + _%g2123521247%_))) + (_%g2123322398%_ + (lambda (_%g2123521255%_) + (if (gx#stx-pair/null? _%g2123521255%_) + (let ((_g27194_ (gx#syntax-split-splice - _%g2123821258%_ + _%g2123521255%_ '0))) (begin - (let ((_g27199_ + (let ((_g27195_ (let () (declare (not safe)) - (if (##values? _g27198_) + (if (##values? _g27194_) (##vector-length - _g27198_) + _g27194_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27199_ 2))) + (##fx= _g27195_ 2))) (error "Context expects 2 values" - _g27199_))) - (let ((_%target2124021261%_ + _g27195_))) + (let ((_%target2123721258%_ (let () (declare (not safe)) - (##vector-ref _g27198_ 0))) - (_%tl2124221264%_ + (##vector-ref _g27194_ 0))) + (_%tl2123921261%_ (let () (declare (not safe)) (##vector-ref - _g27198_ + _g27194_ 1)))) (if (gx#stx-null? - _%tl2124221264%_) - (letrec ((_%loop2124321267%_ - (lambda (_%hd2124121271%_ + _%tl2123921261%_) + (letrec ((_%loop2124021264%_ + (lambda (_%hd2123821268%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot2124721274%_) - (if (gx#stx-pair? _%hd2124121271%_) - (let ((_%e2124421277%_ - (gx#syntax-e _%hd2124121271%_))) - (let ((_%lp-hd2124521281%_ + _%slot2124421271%_) + (if (gx#stx-pair? _%hd2123821268%_) + (let ((_%e2124121274%_ + (gx#syntax-e _%hd2123821268%_))) + (let ((_%lp-hd2124221278%_ (let () (declare (not safe)) - (##car _%e2124421277%_))) - (_%lp-tl2124621284%_ + (##car _%e2124121274%_))) + (_%lp-tl2124321281%_ (let () (declare (not safe)) - (##cdr _%e2124421277%_)))) - (let ((__tmp27200 - (cons _%lp-hd2124521281%_ - _%slot2124721274%_))) - (declare (not safe)) - (_%loop2124321267%_ - _%lp-tl2124621284%_ - __tmp27200)))) - (let ((_%slot2124821287%_ - (reverse _%slot2124721274%_))) - ((lambda (_%L21291%_) - (let () - (let* ((_%g2131221320%_ - (lambda (_%g2131321316%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2131321316%_))) - (_%g2131122393%_ - (lambda (_%g2131321324%_) - ((lambda (_%L21327%_) - (let () - (let* ((_%g2134021348%_ - (lambda (_%g2134121344%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2134121344%_))) - (_%g2133922385%_ - (lambda (_%g2134121352%_) - ((lambda (_%L21355%_) - (let () - (let* ((_%g2136821376%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2136921372%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2136921372%_))) - (_%g2136722381%_ - (lambda (_%g2136921380%_) - ((lambda (_%L21383%_) - (let () - (let* ((_%g2139621404%_ - (lambda (_%g2139721400%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2139721400%_))) - (_%g2139522377%_ - (lambda (_%g2139721408%_) - ((lambda (_%L21411%_) - (let () - (let* ((_%g2142421432%_ - (lambda (_%g2142521428%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2142521428%_))) - (_%g2142322373%_ - (lambda (_%g2142521436%_) - ((lambda (_%L21439%_) + (##cdr _%e2124121274%_)))) + (_%loop2124021264%_ + _%lp-tl2124321281%_ + (cons _%lp-hd2124221278%_ _%slot2124421271%_)))) + (let ((_%slot2124521284%_ + (reverse _%slot2124421271%_))) + ((lambda (_%L21288%_) + (let* ((_%g2130921317%_ + (lambda (_%g2131021313%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2131021313%_))) + (_%g2130822390%_ + (lambda (_%g2131021321%_) + ((lambda (_%L21324%_) + (let* ((_%g2133721345%_ + (lambda (_%g2133821341%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2133821341%_))) + (_%g2133622382%_ + (lambda (_%g2133821349%_) + ((lambda (_%L21352%_) + (let* ((_%g2136521373%_ + (lambda (_%g2136621369%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (let* ((_%g2145221460%_ - (lambda (_%g2145321456%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2145321456%_))) - (_%g2145122369%_ - (lambda (_%g2145321464%_) - ((lambda (_%L21467%_) - (let () - (let* ((_%g2148021488%_ - (lambda (_%g2148121484%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2136621369%_))) + (_%g2136422378%_ + (lambda (_%g2136621377%_) + ((lambda (_%L21380%_) + (let* ((_%g2139321401%_ + (lambda (_%g2139421397%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2139421397%_))) + (_%g2139222374%_ + (lambda (_%g2139421405%_) + ((lambda (_%L21408%_) + (let* ((_%g2142121429%_ + (lambda (_%g2142221425%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2148121484%_))) - (_%g2147922365%_ - (lambda (_%g2148121492%_) - ((lambda (_%L21495%_) - (let () - (let* ((_%g2150821516%_ + _%g2142221425%_))) + (_%g2142022370%_ + (lambda (_%g2142221433%_) + ((lambda (_%L21436%_) + (let* ((_%g2144921457%_ + (lambda (_%g2145021453%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2150921512%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2150921512%_))) - (_%g2150722361%_ - (lambda (_%g2150921520%_) - ((lambda (_%L21523%_) - (let () - (let* ((_%g2153621544%_ - (lambda (_%g2153721540%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2153721540%_))) - (_%g2153522353%_ - (lambda (_%g2153721548%_) - ((lambda (_%L21551%_) - (let () - (let* ((_%g2156421572%_ - (lambda (_%g2156521568%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2156521568%_))) - (_%g2156322349%_ - (lambda (_%g2156521576%_) - ((lambda (_%L21579%_) - (let () - (let* ((_%g2159221600%_ + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2145021453%_))) + (_%g2144822366%_ + (lambda (_%g2145021461%_) + ((lambda (_%L21464%_) + (let* ((_%g2147721485%_ + (lambda (_%g2147821481%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2147821481%_))) + (_%g2147622362%_ + (lambda (_%g2147821489%_) + ((lambda (_%L21492%_) + (let* ((_%g2150521513%_ + (lambda (_%g2150621509%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2150621509%_))) + (_%g2150422358%_ + (lambda (_%g2150621517%_) + ((lambda (_%L21520%_) + (let* ((_%g2153321541%_ + (lambda (_%g2153421537%_) + (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2159321596%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2159321596%_))) - (_%g2159122345%_ - (lambda (_%g2159321604%_) - ((lambda (_%L21607%_) - (let () - (let* ((_%g2162021628%_ - (lambda (_%g2162121624%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2162121624%_))) - (_%g2161922310%_ - (lambda (_%g2162121632%_) - ((lambda (_%L21635%_) - (let () - (let* ((_%g2164821656%_ - (lambda (_%g2164921652%_) + '#f + '"Bad syntax; invalid match target" + _%g2153421537%_))) + (_%g2153222350%_ + (lambda (_%g2153421545%_) + ((lambda (_%L21548%_) + (let* ((_%g2156121569%_ + (lambda (_%g2156221565%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2156221565%_))) + (_%g2156022346%_ + (lambda (_%g2156221573%_) + ((lambda (_%L21576%_) + (let* ((_%g2158921597%_ + (lambda (_%g2159021593%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2159021593%_))) + (_%g2158822342%_ + (lambda (_%g2159021601%_) + ((lambda (_%L21604%_) + (let* ((_%g2161721625%_ + (lambda (_%g2161821621%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2161821621%_))) + (_%g2161622307%_ + (lambda (_%g2161821629%_) + ((lambda (_%L21632%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let* ((_%g2164521653%_ + (lambda (_%g2164621649%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2164621649%_))) + (_%g2164422303%_ + (lambda (_%g2164621657%_) + ((lambda (_%L21660%_) + (let* ((_%g2167321681%_ + (lambda (_%g2167421677%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2167421677%_))) + (_%g2167222291%_ + (lambda (_%g2167421685%_) + ((lambda (_%L21688%_) + (let* ((_%g2170121709%_ + (lambda (_%g2170221705%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2164921652%_))) - (_%g2164722306%_ - (lambda (_%g2164921660%_) - ((lambda (_%L21663%_) + _%g2170221705%_))) + (_%g2170022279%_ + (lambda (_%g2170221713%_) + ((lambda (_%L21716%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (let* ((_%g2167621684%_ - (lambda (_%g2167721680%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2167721680%_))) - (_%g2167522294%_ - (lambda (_%g2167721688%_) - ((lambda (_%L21691%_) - (let () - (let* ((_%g2170421712%_ - (lambda (_%g2170521708%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2170521708%_))) - (_%g2170322282%_ - (lambda (_%g2170521716%_) - ((lambda (_%L21719%_) - (let () - (let* ((_%g2173221740%_ + (let* ((_%g2172921737%_ + (lambda (_%g2173021733%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2173021733%_))) + (_%g2172822275%_ + (lambda (_%g2173021741%_) + ((lambda (_%L21744%_) + (let* ((_%g2175721765%_ + (lambda (_%g2175821761%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2175821761%_))) + (_%g2175622271%_ + (lambda (_%g2175821769%_) + ((lambda (_%L21772%_) + (let* ((_%g2178521811%_ + (lambda (_%g2178621807%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2178621807%_))) + (_%g2178422183%_ + (lambda (_%g2178621815%_) + (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2173321736%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2173321736%_))) - (_%g2173122278%_ - (lambda (_%g2173321744%_) - ((lambda (_%L21747%_) - (let () - (let* ((_%g2176021768%_ - (lambda (_%g2176121764%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2176121764%_))) - (_%g2175922274%_ - (lambda (_%g2176121772%_) - ((lambda (_%L21775%_) - (let () - (let* ((_%g2178821814%_ - (lambda (_%g2178921810%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2178921810%_))) - (_%g2178722186%_ - (lambda (_%g2178921818%_) - (if (gx#stx-pair/null? - _%g2178921818%_) - (let ((_g27201_ + _%g2178621815%_) + (let ((_g27196_ + (gx#syntax-split-splice _%g2178621815%_ '0))) + (begin + (let ((_g27197_ + (let () + (declare (not safe)) + (if (##values? _g27196_) + (##vector-length _g27196_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g27197_ 2))) + (error "Context expects 2 values" + _g27197_))) + (let ((_%target2178921818%_ + (let () + (declare (not safe)) + (##vector-ref _g27196_ 0))) + (_%tl2179121821%_ + (let () + (declare (not safe)) + (##vector-ref _g27196_ 1)))) + (if (gx#stx-null? _%tl2179121821%_) + (letrec ((_%loop2179221824%_ + (lambda (_%hd2179021828%_ + _%def-setf2179621831%_ + _%def-getf2179721833%_) + (if (gx#stx-pair? + _%hd2179021828%_) + (let ((_%e2179321836%_ + (gx#syntax-e + _%hd2179021828%_))) + (let ((_%lp-hd2179421840%_ + (let () + (declare + (not safe)) + (##car _%e2179321836%_))) + (_%lp-tl2179521843%_ + (let () + (declare + (not safe)) + (##cdr _%e2179321836%_)))) + (if (gx#stx-pair? + _%lp-hd2179421840%_) + (let ((_%e2180221846%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g2178921818%_ '0))) - (begin - (let ((_g27202_ - (let () - (declare (not safe)) - (if (##values? _g27201_) - (##vector-length _g27201_) - 1)))) - (if (not (let () + (gx#syntax-e _%lp-hd2179421840%_))) + (let ((_%hd2180121850%_ + (let () + (declare (not safe)) + (##car _%e2180221846%_))) + (_%tl2180021853%_ + (let () + (declare (not safe)) + (##cdr _%e2180221846%_)))) + (if (gx#stx-pair? _%tl2180021853%_) + (let ((_%e2180521856%_ + (gx#syntax-e _%tl2180021853%_))) + (let ((_%hd2180421860%_ + (let () (declare (not safe)) - (##fx= _g27202_ 2))) - (error "Context expects 2 values" _g27202_))) - (let ((_%target2179221821%_ - (let () - (declare (not safe)) - (##vector-ref _g27201_ 0))) - (_%tl2179421824%_ - (let () - (declare (not safe)) - (##vector-ref _g27201_ 1)))) - (if (gx#stx-null? _%tl2179421824%_) - (letrec ((_%loop2179521827%_ - (lambda (_%hd2179321831%_ - _%def-setf2179921834%_ - _%def-getf2180021836%_) - (if (gx#stx-pair? _%hd2179321831%_) - (let ((_%e2179621839%_ - (gx#syntax-e - _%hd2179321831%_))) - (let ((_%lp-hd2179721843%_ - (let () - (declare (not safe)) - (##car _%e2179621839%_))) - (_%lp-tl2179821846%_ - (let () - (declare (not safe)) - (##cdr _%e2179621839%_)))) - (if (gx#stx-pair? - _%lp-hd2179721843%_) - (let ((_%e2180521849%_ - (gx#syntax-e - _%lp-hd2179721843%_))) - (let ((_%hd2180421853%_ - (let () + (##car _%e2180521856%_))) + (_%tl2180321863%_ + (let () + (declare (not safe)) + (##cdr _%e2180521856%_)))) + (if (gx#stx-null? _%tl2180321863%_) + (_%loop2179221824%_ + _%lp-tl2179521843%_ + (cons _%hd2180421860%_ + _%def-setf2179621831%_) + (cons _%hd2180121850%_ + _%def-getf2179721833%_)) + (_%g2178521811%_ _%g2178621815%_)))) + (_%g2178521811%_ _%g2178621815%_)))) + (_%g2178521811%_ _%g2178621815%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%def-setf2179821866%_ + (reverse _%def-setf2179621831%_)) + (_%def-getf2179921869%_ + (reverse _%def-getf2179721833%_))) + ((lambda (_%L21872%_ + _%L21874%_) + (let* ((_%g2189121917%_ + (lambda (_%g2189221913%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _%e2180521849%_))) - (_%tl2180321856%_ - (let () (declare (not safe)) (##cdr _%e2180521849%_)))) - (if (gx#stx-pair? _%tl2180321856%_) - (let ((_%e2180821859%_ (gx#syntax-e _%tl2180321856%_))) - (let ((_%hd2180721863%_ - (let () - (declare (not safe)) - (##car _%e2180821859%_))) - (_%tl2180621866%_ - (let () - (declare (not safe)) - (##cdr _%e2180821859%_)))) - (if (gx#stx-null? _%tl2180621866%_) - (let ((__tmp27204 - (cons _%hd2180721863%_ - _%def-setf2179921834%_)) - (__tmp27203 - (cons _%hd2180421853%_ - _%def-getf2180021836%_))) - (declare (not safe)) - (_%loop2179521827%_ - _%lp-tl2179821846%_ - __tmp27204 - __tmp27203)) - (let () - (declare (not safe)) - (_%g2178821814%_ _%g2178921818%_))))) - (let () - (declare (not safe)) - (_%g2178821814%_ _%g2178921818%_))))) - (let () - (declare (not safe)) - (_%g2178821814%_ _%g2178921818%_))))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2189221913%_))) + (_%g2189022031%_ + (lambda (_%g2189221921%_) + (if (gx#stx-pair/null? _%g2189221921%_) + (let ((_g27198_ + (gx#syntax-split-splice + _%g2189221921%_ + '0))) + (begin + (let ((_g27199_ + (let () + (declare (not safe)) + (if (##values? _g27198_) + (##vector-length _g27198_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g27199_ 2))) + (error "Context expects 2 values" + _g27199_))) + (let ((_%target2189521924%_ + (let () + (declare (not safe)) + (##vector-ref _g27198_ 0))) + (_%tl2189721927%_ + (let () + (declare (not safe)) + (##vector-ref _g27198_ 1)))) + (if (gx#stx-null? _%tl2189721927%_) + (letrec ((_%loop2189821930%_ + (lambda (_%hd2189621934%_ + _%def-usetf2190221937%_ + _%def-ugetf2190321939%_) + (if (gx#stx-pair? + _%hd2189621934%_) + (let ((_%e2189921942%_ + (gx#syntax-e + _%hd2189621934%_))) + (let ((_%lp-hd2190021946%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##car _%e2189921942%_))) + (_%lp-tl2190121949%_ + (let () + (declare (not safe)) + (##cdr _%e2189921942%_)))) + (if (gx#stx-pair? _%lp-hd2190021946%_) + (let ((_%e2190821952%_ + (gx#syntax-e _%lp-hd2190021946%_))) + (let ((_%hd2190721956%_ + (let () + (declare (not safe)) + (##car _%e2190821952%_))) + (_%tl2190621959%_ + (let () + (declare (not safe)) + (##cdr _%e2190821952%_)))) + (if (gx#stx-pair? _%tl2190621959%_) + (let ((_%e2191121962%_ + (gx#syntax-e _%tl2190621959%_))) + (let ((_%hd2191021966%_ + (let () + (declare (not safe)) + (##car _%e2191121962%_))) + (_%tl2190921969%_ + (let () + (declare (not safe)) + (##cdr _%e2191121962%_)))) + (if (gx#stx-null? _%tl2190921969%_) + (_%loop2189821930%_ + _%lp-tl2190121949%_ + (cons _%hd2191021966%_ + _%def-usetf2190221937%_) + (cons _%hd2190721956%_ + _%def-ugetf2190321939%_)) + (_%g2189121917%_ _%g2189221921%_)))) + (_%g2189121917%_ _%g2189221921%_)))) + (_%g2189121917%_ _%g2189221921%_)))) + (let ((_%def-usetf2190421972%_ + (reverse _%def-usetf2190221937%_)) + (_%def-ugetf2190521975%_ + (reverse _%def-ugetf2190321939%_))) + ((lambda (_%L21978%_ _%L21980%_) + (_%wrap21077%_ + (cons (gx#datum->syntax '#f 'begin) + (cons _%L21716%_ + (cons _%L21772%_ + (cons _%L21744%_ + (foldr (lambda (_%g2199822007%_ + _%g2199922010%_) + (cons _%g2199822007%_ + _%g2199922010%_)) + (foldr (lambda (_%g2200022013%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g2200122016%_) + (cons _%g2200022013%_ _%g2200122016%_)) + (foldr (lambda (_%g2200222019%_ _%g2200322022%_) + (cons _%g2200222019%_ _%g2200322022%_)) + (foldr (lambda (_%g2200422025%_ _%g2200522028%_) + (cons _%g2200422025%_ _%g2200522028%_)) + '() + _%L21978%_) + _%L21980%_) + _%L21872%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%def-setf2180121869%_ - (reverse _%def-setf2179921834%_)) - (_%def-getf2180221872%_ - (reverse _%def-getf2180021836%_))) - ((lambda (_%L21875%_ - _%L21877%_) - (let () - (let* ((_%g2189421920%_ - (lambda (_%g2189521916%_) - (gx#raise-syntax-error + _%L21874%_))))))) + _%def-usetf2190421972%_ + _%def-ugetf2190521975%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop2189821930%_ + _%target2189521924%_ + '() + '())) + (_%g2189121917%_ _%g2189221921%_))))) + (_%g2189121917%_ _%g2189221921%_))))) + (_%g2189022031%_ + (gx#stx-map + (lambda (_%ref22035%_) + (let* ((_%g2203822057%_ + (lambda (_%g2203922053%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2203922053%_))) + (_%g2203722179%_ + (lambda (_%g2203922061%_) + (if (gx#stx-pair? _%g2203922061%_) + (let ((_%e2204522064%_ + (gx#syntax-e _%g2203922061%_))) + (let ((_%hd2204422068%_ + (let () + (declare (not safe)) + (##car _%e2204522064%_))) + (_%tl2204322071%_ + (let () + (declare (not safe)) + (##cdr _%e2204522064%_)))) + (if (gx#stx-pair? _%tl2204322071%_) + (let ((_%e2204822074%_ + (gx#syntax-e + _%tl2204322071%_))) + (let ((_%hd2204722078%_ + (let () + (declare (not safe)) + (##car _%e2204822074%_))) + (_%tl2204622081%_ + (let () + (declare (not safe)) + (##cdr _%e2204822074%_)))) + (if (gx#stx-pair? + _%tl2204622081%_) + (let ((_%e2205122084%_ + (gx#syntax-e + _%tl2204622081%_))) + (let ((_%hd2205022088%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '"Bad syntax; invalid match target" - _%g2189521916%_))) - (_%g2189322034%_ - (lambda (_%g2189521924%_) - (if (gx#stx-pair/null? _%g2189521924%_) - (let ((_g27205_ - (gx#syntax-split-splice - _%g2189521924%_ - '0))) - (begin - (let ((_g27206_ - (let () - (declare (not safe)) - (if (##values? _g27205_) - (##vector-length _g27205_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g27206_ 2))) - (error "Context expects 2 values" - _g27206_))) - (let ((_%target2189821927%_ - (let () - (declare (not safe)) - (##vector-ref _g27205_ 0))) - (_%tl2190021930%_ - (let () - (declare (not safe)) - (##vector-ref _g27205_ 1)))) - (if (gx#stx-null? _%tl2190021930%_) - (letrec ((_%loop2190121933%_ - (lambda (_%hd2189921937%_ - _%def-usetf2190521940%_ - _%def-ugetf2190621942%_) - (if (gx#stx-pair? - _%hd2189921937%_) - (let ((_%e2190221945%_ - (gx#syntax-e - _%hd2189921937%_))) - (let ((_%lp-hd2190321949%_ - (let () + (not safe)) + (##car _%e2205122084%_))) + (_%tl2204922091%_ + (let () (declare (not safe)) (##cdr _%e2205122084%_)))) + (if (gx#stx-null? _%tl2204922091%_) + ((lambda (_%L22094%_ _%L22096%_ _%L22097%_) + (let* ((_%g2211522130%_ + (lambda (_%g2211622126%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2211622126%_))) + (_%g2211422175%_ + (lambda (_%g2211622134%_) + (if (gx#stx-pair? _%g2211622134%_) + (let ((_%e2212122137%_ + (gx#syntax-e _%g2211622134%_))) + (let ((_%hd2212022141%_ + (let () + (declare (not safe)) + (##car _%e2212122137%_))) + (_%tl2211922144%_ + (let () + (declare (not safe)) + (##cdr _%e2212122137%_)))) + (if (gx#stx-pair? _%tl2211922144%_) + (let ((_%e2212422147%_ + (gx#syntax-e + _%tl2211922144%_))) + (let ((_%hd2212322151%_ + (let () + (declare (not safe)) + (##car _%e2212422147%_))) + (_%tl2212222154%_ + (let () + (declare (not safe)) + (##cdr _%e2212422147%_)))) + (if (gx#stx-null? + _%tl2212222154%_) + ((lambda (_%L22157%_ + _%L22159%_) + (cons (_%wrap21077%_ + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _%e2190221945%_))) - (_%lp-tl2190421952%_ - (let () (declare (not safe)) (##cdr _%e2190221945%_)))) - (if (gx#stx-pair? _%lp-hd2190321949%_) - (let ((_%e2191121955%_ - (gx#syntax-e _%lp-hd2190321949%_))) - (let ((_%hd2191021959%_ - (let () - (declare (not safe)) - (##car _%e2191121955%_))) - (_%tl2190921962%_ - (let () - (declare (not safe)) - (##cdr _%e2191121955%_)))) - (if (gx#stx-pair? _%tl2190921962%_) - (let ((_%e2191421965%_ - (gx#syntax-e _%tl2190921962%_))) - (let ((_%hd2191321969%_ - (let () - (declare (not safe)) - (##car _%e2191421965%_))) - (_%tl2191221972%_ - (let () - (declare (not safe)) - (##cdr _%e2191421965%_)))) - (if (gx#stx-null? _%tl2191221972%_) - (let ((__tmp27208 - (cons _%hd2191321969%_ - _%def-usetf2190521940%_)) - (__tmp27207 - (cons _%hd2191021959%_ - _%def-ugetf2190621942%_))) - (declare (not safe)) - (_%loop2190121933%_ - _%lp-tl2190421952%_ - __tmp27208 - __tmp27207)) - (let () - (declare (not safe)) - (_%g2189421920%_ _%g2189521924%_))))) - (let () - (declare (not safe)) - (_%g2189421920%_ _%g2189521924%_))))) - (let () - (declare (not safe)) - (_%g2189421920%_ _%g2189521924%_))))) - (let ((_%def-usetf2190721975%_ (reverse _%def-usetf2190521940%_)) - (_%def-ugetf2190821978%_ - (reverse _%def-ugetf2190621942%_))) - ((lambda (_%L21981%_ _%L21983%_) - (let ((__tmp27209 - (cons (gx#datum->syntax '#f 'begin) - (cons _%L21719%_ - (cons _%L21775%_ - (cons _%L21747%_ - (foldr (lambda (_%g2200122010%_ + '#f + 'def) + (cons _%L22159%_ + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax + '#f + '@mop.accessor) + (cons _%L21408%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2200222013%_) - (cons _%g2200122010%_ _%g2200222013%_)) - (foldr (lambda (_%g2200322016%_ _%g2200422019%_) - (cons _%g2200322016%_ _%g2200422019%_)) - (foldr (lambda (_%g2200522022%_ _%g2200622025%_) - (cons _%g2200522022%_ _%g2200622025%_)) - (foldr (lambda (_%g2200722028%_ _%g2200822031%_) - (cons _%g2200722028%_ _%g2200822031%_)) - '() - _%L21981%_) - _%L21983%_) - _%L21875%_) - _%L21877%_))))))) + (cons _%L22097%_ (cons '#f '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'make-class-slot-unchecked-accessor) + (cons _%L21171%_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L22097%_ '())) + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) + (cons (_%wrap21077%_ + (cons (gx#datum->syntax '#f 'def) + (cons _%L22157%_ + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '@mop.mutator) + (cons _%L21408%_ (cons _%L22097%_ (cons '#f '())))) + (cons (cons (gx#datum->syntax + '#f + 'make-class-slot-unchecked-mutator) + (cons _%L21171%_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L22097%_ '())) + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) + '()))) + _%hd2212322151%_ + _%hd2212022141%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%wrap21080%_ __tmp27209))) - _%def-usetf2190721975%_ - _%def-ugetf2190821978%_)))))) + (_%g2211522130%_ + _%g2211622134%_)))) + (_%g2211522130%_ + _%g2211622134%_)))) + (_%g2211522130%_ _%g2211622134%_))))) + (_%g2211422175%_ + (list (gx#stx-identifier _%L22096%_ '"&" _%L22096%_) + (gx#stx-identifier + _%L22094%_ + '"&" + _%L22094%_))))) + _%hd2205022088%_ + _%hd2204722078%_ + _%hd2204422068%_) + (_%g2203822057%_ _%g2203922061%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2203822057%_ + _%g2203922061%_)))) + (_%g2203822057%_ + _%g2203922061%_)))) + (_%g2203822057%_ _%g2203922061%_))))) + (_%g2203722179%_ _%ref22035%_))) + _%accessible-slots21228%_)))) + _%def-setf2179821866%_ + _%def-getf2179921869%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop2179221824%_ + _%target2178921818%_ + '() + '())) + (_%g2178521811%_ _%g2178621815%_))))) + (_%g2178521811%_ _%g2178621815%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2178422183%_ + (gx#stx-map + (lambda (_%ref22187%_) + (let* ((_%g2219022209%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g2219122205%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2219122205%_))) + (_%g2218922267%_ + (lambda (_%g2219122213%_) + (if (gx#stx-pair? _%g2219122213%_) + (let ((_%e2219722216%_ + (gx#syntax-e _%g2219122213%_))) + (let ((_%hd2219622220%_ (let () (declare (not safe)) - (_%loop2190121933%_ - _%target2189821927%_ - '() - '()))) - (let () - (declare (not safe)) - (_%g2189421920%_ _%g2189521924%_)))))) - (let () - (declare (not safe)) - (_%g2189421920%_ _%g2189521924%_))))) - (__tmp27210 - (gx#stx-map - (lambda (_%ref22038%_) - (let* ((_%g2204122060%_ - (lambda (_%g2204222056%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2204222056%_))) - (_%g2204022182%_ - (lambda (_%g2204222064%_) - (if (gx#stx-pair? _%g2204222064%_) - (let ((_%e2204822067%_ - (gx#syntax-e _%g2204222064%_))) - (let ((_%hd2204722071%_ + (##car _%e2219722216%_))) + (_%tl2219522223%_ + (let () + (declare (not safe)) + (##cdr _%e2219722216%_)))) + (if (gx#stx-pair? _%tl2219522223%_) + (let ((_%e2220022226%_ + (gx#syntax-e _%tl2219522223%_))) + (let ((_%hd2219922230%_ (let () (declare (not safe)) - (##car _%e2204822067%_))) - (_%tl2204622074%_ + (##car _%e2220022226%_))) + (_%tl2219822233%_ (let () (declare (not safe)) - (##cdr _%e2204822067%_)))) - (if (gx#stx-pair? _%tl2204622074%_) - (let ((_%e2205122077%_ + (##cdr _%e2220022226%_)))) + (if (gx#stx-pair? _%tl2219822233%_) + (let ((_%e2220322236%_ (gx#syntax-e - _%tl2204622074%_))) - (let ((_%hd2205022081%_ + _%tl2219822233%_))) + (let ((_%hd2220222240%_ (let () (declare (not safe)) - (##car _%e2205122077%_))) - (_%tl2204922084%_ + (##car _%e2220322236%_))) + (_%tl2220122243%_ (let () (declare (not safe)) - (##cdr _%e2205122077%_)))) - (if (gx#stx-pair? - _%tl2204922084%_) - (let ((_%e2205422087%_ - (gx#syntax-e - _%tl2204922084%_))) - (let ((_%hd2205322091%_ - (let () + (##cdr _%e2220322236%_)))) + (if (gx#stx-null? + _%tl2220122243%_) + ((lambda (_%L22246%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _%e2205422087%_))) - (_%tl2205222094%_ - (let () (declare (not safe)) (##cdr _%e2205422087%_)))) - (if (gx#stx-null? _%tl2205222094%_) - ((lambda (_%L22097%_ _%L22099%_ _%L22100%_) - (let* ((_%g2211822133%_ - (lambda (_%g2211922129%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2211922129%_))) - (_%g2211722178%_ - (lambda (_%g2211922137%_) - (if (gx#stx-pair? _%g2211922137%_) - (let ((_%e2212422140%_ - (gx#syntax-e _%g2211922137%_))) - (let ((_%hd2212322144%_ - (let () - (declare (not safe)) - (##car _%e2212422140%_))) - (_%tl2212222147%_ - (let () - (declare (not safe)) - (##cdr _%e2212422140%_)))) - (if (gx#stx-pair? _%tl2212222147%_) - (let ((_%e2212722150%_ - (gx#syntax-e - _%tl2212222147%_))) - (let ((_%hd2212622154%_ - (let () - (declare (not safe)) - (##car _%e2212722150%_))) - (_%tl2212522157%_ - (let () - (declare (not safe)) - (##cdr _%e2212722150%_)))) - (if (gx#stx-null? - _%tl2212522157%_) - ((lambda (_%L22160%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L22162%_) - (let () - (cons (let ((__tmp27211 - (cons (gx#datum->syntax '#f 'def) - (cons _%L22162%_ - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax + _%L22248%_ + _%L22249%_) + (cons (_%wrap21077%_ + (cons (gx#datum->syntax '#f 'def) + (cons _%L22248%_ + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax + '#f + '@mop.accessor) + (cons _%L21408%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@mop.accessor) - (cons _%L21411%_ - (cons _%L22100%_ (cons '#f '())))) - (cons (cons (gx#datum->syntax - '#f - 'make-class-slot-unchecked-accessor) - (cons _%L21174%_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L22100%_ '())) - '()))) - '()))) + (cons _%L22249%_ (cons '#t '())))) + (cons (cons (gx#datum->syntax '#f 'make-class-slot-accessor) + (cons _%L21171%_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L22249%_ '())) + '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - (declare (not safe)) - (_%wrap21080%_ __tmp27211)) - (cons (let ((__tmp27212 - (cons (gx#datum->syntax '#f 'def) - (cons _%L22160%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@mop.mutator) - (cons _%L21411%_ - (cons _%L22100%_ (cons '#f '())))) - (cons (cons (gx#datum->syntax - '#f - 'make-class-slot-unchecked-mutator) - (cons _%L21174%_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L22100%_ + '())))) + (cons (_%wrap21077%_ + (cons (gx#datum->syntax '#f 'def) + (cons _%L22246%_ + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))))) + '#f + '@mop.mutator) + (cons _%L21408%_ (cons _%L22249%_ (cons '#t '())))) + (cons (cons (gx#datum->syntax + '#f + 'make-class-slot-mutator) + (cons _%L21171%_ + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%L22249%_ '())) + '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%wrap21080%_ __tmp27212)) - '())))) - _%hd2212622154%_ - _%hd2212322144%_) - (let () - (declare (not safe)) - (_%g2211822133%_ _%g2211922137%_))))) + '())))) + '()))) + _%hd2220222240%_ + _%hd2219922230%_ + _%hd2219622220%_) + (_%g2219022209%_ _%g2219122213%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g2211822133%_ - _%g2211922137%_))))) - (let () - (declare (not safe)) - (_%g2211822133%_ _%g2211922137%_))))) - (__tmp27213 - (list (gx#stx-identifier - _%L22099%_ - '"&" - _%L22099%_) - (gx#stx-identifier - _%L22097%_ - '"&" - _%L22097%_)))) - (declare (not safe)) - (_%g2211722178%_ __tmp27213))) - _%hd2205322091%_ - _%hd2205022081%_ - _%hd2204722071%_) - (let () - (declare (not safe)) - (_%g2204122060%_ _%g2204222064%_))))) - (let () - (declare (not safe)) - (_%g2204122060%_ _%g2204222064%_))))) + (_%g2219022209%_ + _%g2219122213%_)))) + (_%g2219022209%_ _%g2219122213%_)))) + (_%g2219022209%_ _%g2219122213%_))))) + (_%g2218922267%_ _%ref22187%_))) + _%accessible-slots21228%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g2204122060%_ - _%g2204222064%_))))) - (let () - (declare (not safe)) - (_%g2204122060%_ _%g2204222064%_)))))) - (declare (not safe)) - (_%g2204022182%_ _%ref22038%_))) - _%accessible-slots21231%_))) - (declare (not safe)) - (_%g2189322034%_ __tmp27210)))) + _%g2175821769%_)))) + (_%g2175622271%_ + (_%wrap21077%_ + (cons (gx#datum->syntax '#f 'def) + (cons _%L21168%_ + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax '#f '@mop.predicate) + (cons _%L21408%_ '())) + (cons (cons (gx#datum->syntax + '#f + 'make-class-predicate) + (cons _%L21171%_ '())) + '()))) + '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%def-setf2180121869%_ - _%def-getf2180221872%_)))))) - (let () - (declare (not safe)) - (_%loop2179521827%_ - _%target2179221821%_ - '() - '()))) - (let () - (declare (not safe)) - (_%g2178821814%_ _%g2178921818%_)))))) - (let () - (declare (not safe)) - (_%g2178821814%_ _%g2178921818%_))))) - (__tmp27214 - (gx#stx-map - (lambda (_%ref22190%_) - (let* ((_%g2219322212%_ - (lambda (_%g2219422208%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2219422208%_))) - (_%g2219222270%_ - (lambda (_%g2219422216%_) - (if (gx#stx-pair? _%g2219422216%_) - (let ((_%e2220022219%_ - (gx#syntax-e _%g2219422216%_))) - (let ((_%hd2219922223%_ - (let () - (declare (not safe)) - (##car _%e2220022219%_))) - (_%tl2219822226%_ - (let () - (declare (not safe)) - (##cdr _%e2220022219%_)))) - (if (gx#stx-pair? _%tl2219822226%_) - (let ((_%e2220322229%_ - (gx#syntax-e _%tl2219822226%_))) - (let ((_%hd2220222233%_ - (let () - (declare (not safe)) - (##car _%e2220322229%_))) - (_%tl2220122236%_ - (let () - (declare (not safe)) - (##cdr _%e2220322229%_)))) - (if (gx#stx-pair? _%tl2220122236%_) - (let ((_%e2220622239%_ - (gx#syntax-e - _%tl2220122236%_))) - (let ((_%hd2220522243%_ - (let () - (declare (not safe)) - (##car _%e2220622239%_))) - (_%tl2220422246%_ - (let () - (declare (not safe)) - (##cdr _%e2220622239%_)))) - (if (gx#stx-null? - _%tl2220422246%_) - ((lambda (_%L22249%_ + _%g2173021741%_)))) + (_%g2172822275%_ + (if (gx#stx-false? _%L21169%_) + (cons (gx#datum->syntax '#f 'begin) '()) + (_%wrap21077%_ + (cons (gx#datum->syntax '#f 'def) + (cons _%L21169%_ + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L22251%_ - _%L22252%_) - (cons (let ((__tmp27215 - (cons (gx#datum->syntax '#f 'def) - (cons _%L22251%_ - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax + '#f + '@mop.constructor) + (cons _%L21408%_ '())) + (cons (cons (gx#datum->syntax '#f 'lambda) + (cons (gx#datum->syntax '#f '$args) + (cons (cons (gx#datum->syntax + '#f + 'apply) + (cons (gx#datum->syntax + '#f + 'make-instance) + (cons _%L21171%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@mop.accessor) - (cons _%L21411%_ (cons _%L22252%_ (cons '#t '())))) - (cons (cons (gx#datum->syntax - '#f - 'make-class-slot-accessor) - (cons _%L21174%_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L22252%_ '())) - '()))) - '()))) + (cons (gx#datum->syntax '#f '$args) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - (declare (not safe)) - (_%wrap21080%_ __tmp27215)) - (cons (let ((__tmp27216 - (cons (gx#datum->syntax '#f 'def) - (cons _%L22249%_ - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@mop.mutator) - (cons _%L21411%_ - (cons _%L22252%_ (cons '#t '())))) + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))))))) + _%g2170221713%_)))) + (_%g2170022279%_ + (_%wrap21077%_ + (cons (gx#datum->syntax '#f 'def) + (cons _%L21171%_ (cons (cons (gx#datum->syntax '#f - 'make-class-slot-mutator) - (cons _%L21174%_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L22252%_ - '())) - '()))) - '()))) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%wrap21080%_ __tmp27216)) - '()))) - _%hd2220522243%_ - _%hd2220222233%_ - _%hd2219922223%_) - (let () - (declare (not safe)) - (_%g2219322212%_ _%g2219422216%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g2219322212%_ - _%g2219422216%_))))) - (let () - (declare (not safe)) - (_%g2219322212%_ _%g2219422216%_))))) - (let () - (declare (not safe)) - (_%g2219322212%_ _%g2219422216%_)))))) - (declare (not safe)) - (_%g2219222270%_ _%ref22190%_))) - _%accessible-slots21231%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g2178722186%_ - __tmp27214)))) - _%g2176121772%_))) - (__tmp27217 - (let ((__tmp27218 - (cons (gx#datum->syntax - '#f - 'def) - (cons _%L21171%_ - (cons (cons (gx#datum->syntax + 'begin-annotation) + (cons (cons (gx#datum->syntax + '#f + '@mop.class) + (cons _%L21324%_ + (cons _%L21436%_ + (cons (foldr (lambda (_%g2228222285%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax - '#f - '@mop.predicate) - (cons _%L21411%_ '())) - (cons (cons (gx#datum->syntax - '#f - 'make-class-predicate) - (cons _%L21174%_ '())) - '()))) - '()))))) + _%g2228322288%_) + (cons _%g2228222285%_ _%g2228322288%_)) + '() + _%L21288%_) + (cons _%L21380%_ + (cons _%L21464%_ + (cons _%L21492%_ + (cons _%L21520%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%wrap21080%_ __tmp27218)))) - (declare (not safe)) - (_%g2175922274%_ __tmp27217)))) - _%g2173321744%_))) - (__tmp27219 - (if (gx#stx-false? _%L21172%_) - (cons (gx#datum->syntax '#f 'begin) '()) - (let ((__tmp27220 - (cons (gx#datum->syntax '#f 'def) - (cons _%L21172%_ + (cons _%L21688%_ '()))) + '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2167421685%_)))) + (_%g2167222291%_ + (cons (gx#datum->syntax + '#f + 'make-class-type) (cons (cons (gx#datum->syntax '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@mop.constructor) - (cons _%L21411%_ '())) - (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (gx#datum->syntax '#f '$args) - (cons (cons (gx#datum->syntax - '#f - 'apply) - (cons (gx#datum->syntax - '#f - 'make-instance) - (cons _%L21174%_ + 'quote) + (cons _%L21324%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f '$args) '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%wrap21080%_ __tmp27220))))) - (declare (not safe)) - (_%g2173122278%_ __tmp27219)))) + '())) + (cons (cons (gx#datum->syntax '#f 'quote) (cons _%L21352%_ '())) + (cons _%L21660%_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons (foldr (lambda (_%g2229422297%_ + _%g2229522300%_) + (cons _%g2229422297%_ + _%g2229522300%_)) + '() + _%L21288%_) + '())) + (cons _%L21632%_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L21380%_ '())) + '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2170521716%_))) - (__tmp27221 - (let ((__tmp27222 - (cons (gx#datum->syntax - '#f - 'def) - (cons _%L21174%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax - '#f - '@mop.class) - (cons _%L21327%_ - (cons _%L21439%_ + _%g2164621657%_)))) + (_%g2164422303%_ + (cons (gx#datum->syntax '#f 'list) _%L21170%_)))) + _%g2161821629%_)))) + (_%g2161622307%_ + (if (gx#stx-e _%metaclass21231%_) + (let* ((_%g2231122319%_ + (lambda (_%g2231222315%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2231222315%_))) + (_%g2231022338%_ + (lambda (_%g2231222323%_) + ((lambda (_%L22326%_) + (cons (gx#datum->syntax '#f '@list) + (cons (cons (gx#datum->syntax + '#f + '@list) + (cons 'metaclass: + (cons ':: + (cons _%L22326%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (foldr (lambda (_%g2228522288%_ _%g2228622291%_) - (cons _%g2228522288%_ _%g2228622291%_)) - '() - _%L21291%_) - (cons _%L21383%_ - (cons _%L21467%_ - (cons _%L21495%_ - (cons _%L21523%_ '())))))))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L21691%_ '()))) - '()))))) + (cons ':: + (cons _%L21604%_ '()))))) + _%g2231222323%_)))) + (_%g2231022338%_ _%metaclass21231%_)) + _%L21604%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%wrap21080%_ - __tmp27222)))) - (declare (not safe)) - (_%g2170322282%_ __tmp27221)))) - _%g2167721688%_))) - (__tmp27223 - (cons (gx#datum->syntax - '#f - 'make-class-type) - (cons (cons (gx#datum->syntax + _%g2159021601%_)))) + (_%g2158822342%_ + (if _%struct?21211%_ + (cons (gx#datum->syntax '#f - 'quote) - (cons _%L21327%_ '())) - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L21355%_ + '@list) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L21663%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons (foldr (lambda (_%g2229722300%_ - _%g2229822303%_) - (cons _%g2229722300%_ - _%g2229822303%_)) - '() - _%L21291%_) - '())) - (cons _%L21635%_ - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L21383%_ '())) - '()))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g2167522294%_ __tmp27223)))) - _%g2164921660%_))) - (__tmp27224 (cons (gx#datum->syntax '#f 'list) _%L21173%_))) - (declare (not safe)) - (_%g2164722306%_ __tmp27224)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2162121632%_))) - (__tmp27225 - (if (gx#stx-e _%metaclass21234%_) - (let* ((_%g2231422322%_ - (lambda (_%g2231522318%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2231522318%_))) - (_%g2231322341%_ - (lambda (_%g2231522326%_) - ((lambda (_%L22329%_) - (let () - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@list) - (cons (cons (gx#datum->syntax '#f '@list) - (cons 'metaclass: - (cons ':: - (cons _%L22329%_ '())))) - (cons ':: (cons _%L21607%_ '())))))) - _%g2231522326%_)))) + '#f + '@list) + (cons 'struct: '#t)) + (cons ':: (cons _%L21576%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g2231322341%_ - _%metaclass21234%_)) - _%L21607%_))) - (declare (not safe)) - (_%g2161922310%_ __tmp27225)))) - _%g2159321604%_))) - (__tmp27226 - (if _%struct?21214%_ + _%L21576%_)))) + _%g2156221573%_)))) + (_%g2156022346%_ + (if (gx#stx-e _%L21492%_) (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f '@list) - (cons 'struct: '#t)) + (cons 'final: '#t)) (cons ':: - (cons _%L21579%_ '())))) - _%L21579%_))) - (declare (not safe)) - (_%g2159122345%_ __tmp27226)))) - _%g2156521576%_))) - (__tmp27227 - (if (gx#stx-e _%L21495%_) - (cons (gx#datum->syntax '#f '@list) - (cons (cons (gx#datum->syntax '#f '@list) - (cons 'final: '#t)) - (cons ':: (cons _%L21551%_ '())))) - _%L21551%_))) + (cons _%L21548%_ '())))) + _%L21548%_)))) + _%g2153421545%_)))) + (_%g2153222350%_ + (let ((_%$e22354%_ (gx#stx-getq 'properties: _%L21166%_))) + (if _%$e22354%_ + _%$e22354%_ + (cons (gx#datum->syntax '#f '@list) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g2156322349%_ - __tmp27227)))) - _%g2153721548%_))) - (__tmp27228 - (let ((_%$e22357%_ - (gx#stx-getq - 'properties: - _%L21169%_))) - (if _%$e22357%_ - _%$e22357%_ - (cons (gx#datum->syntax - '#f - '@list) - '()))))) - (declare (not safe)) - (_%g2153522353%_ __tmp27228)))) - _%g2150921520%_))) - (__tmp27229 - (if (gx#stx-e _%metaclass21234%_) - (gx#core-quote-syntax _%metaclass21234%_) - '#f))) - (declare (not safe)) - (_%g2150722361%_ __tmp27229)))) + _%g2150621517%_)))) + (_%g2150422358%_ + (if (gx#stx-e _%metaclass21231%_) + (gx#core-quote-syntax + _%metaclass21231%_) + '#f)))) + _%g2147821489%_)))) + (_%g2147622362%_ + (gx#stx-getq 'final: _%L21166%_)))) + _%g2145021461%_)))) + (_%g2144822366%_ _%struct?21211%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2148121492%_))) - (__tmp27230 - (gx#stx-getq - 'final: - _%L21169%_))) - (declare (not safe)) - (_%g2147922365%_ __tmp27230)))) - _%g2145321464%_)))) - (declare (not safe)) - (_%g2145122369%_ _%struct?21214%_)))) - _%g2142521436%_))) - (__tmp27231 (gx#stx-map gx#core-quote-syntax _%L21173%_))) - (declare (not safe)) - (_%g2142322373%_ __tmp27231)))) + _%g2142221433%_)))) + (_%g2142022370%_ + (gx#stx-map + gx#core-quote-syntax + _%L21170%_)))) + _%g2139421405%_)))) + (_%g2139222374%_ + (gx#core-quote-syntax _%L21171%_)))) + _%g2136621377%_)))) + (_%g2136422378%_ (gx#stx-getq 'constructor: _%L21166%_)))) + _%g2133821349%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2139721408%_))) - (__tmp27232 - (gx#core-quote-syntax - _%L21174%_))) - (declare (not safe)) - (_%g2139522377%_ __tmp27232)))) - _%g2136921380%_))) - (__tmp27233 - (gx#stx-getq 'constructor: _%L21169%_))) - (declare (not safe)) - (_%g2136722381%_ __tmp27233)))) - _%g2134121352%_))) - (__tmp27234 - (let ((_%$e22389%_ (gx#stx-getq 'name: _%L21169%_))) - (if _%$e22389%_ _%$e22389%_ _%L21174%_)))) + (_%g2133622382%_ + (let ((_%$e22386%_ + (gx#stx-getq + 'name: + _%L21166%_))) + (if _%$e22386%_ + _%$e22386%_ + _%L21171%_))))) + _%g2131021321%_)))) + (_%g2130822390%_ + (let ((_%$e22394%_ + (gx#stx-getq 'id: _%L21166%_))) + (if _%$e22394%_ + _%$e22394%_ + (|gerbil/core/mop~MOP-1[1]#make-class-type-id| + _%L21171%_)))))) + _%slot2124521284%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g2133922385%_ - __tmp27234)))) - _%g2131321324%_))) - (__tmp27235 - (let ((_%$e22397%_ - (gx#stx-getq 'id: _%L21169%_))) - (if _%$e22397%_ - _%$e22397%_ - (let () - (declare (not safe)) - (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L21174%_)))))) - (declare (not safe)) - (_%g2131122393%_ __tmp27235)))) - _%slot2124821287%_)))))) + (_%loop2124021264%_ + _%target2123721258%_ + '())) + (_%g2123421251%_ + _%g2123521255%_))))) + (_%g2123421251%_ _%g2123521255%_))))) + (_%g2123322398%_ + (gx#stx-map _%slot-name21079%_ _%slots21218%_))) + (_%g2108221109%_ _%g2108321113%_))) + _%tl2110121163%_ + _%hd2110221160%_ + _%hd2109921150%_ + _%hd2109621140%_ + _%hd2109321130%_))) + (_%g2108221109%_ _%g2108321113%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop2124321267%_ - _%target2124021261%_ - '()))) - (let () - (declare (not safe)) - (_%g2123721254%_ - _%g2123821258%_)))))) - (let () - (declare (not safe)) - (_%g2123721254%_ _%g2123821258%_))))) - (__tmp27236 - (gx#stx-map - _%slot-name21082%_ - _%slots21221%_))) - (declare (not safe)) - (_%g2123622401%_ __tmp27236)) - (let () - (declare (not safe)) - (_%g2108521112%_ _%g2108621116%_)))) - _%tl2110421166%_ - _%hd2110521163%_ - _%hd2110221153%_ - _%hd2109921143%_ - _%hd2109621133%_))) - (let () - (declare (not safe)) - (_%g2108521112%_ _%g2108621116%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g2108521112%_ - _%g2108621116%_))))) - (let () - (declare (not safe)) - (_%g2108521112%_ _%g2108621116%_))))) - (let () - (declare (not safe)) - (_%g2108521112%_ _%g2108621116%_))))) - (let () - (declare (not safe)) - (_%g2108521112%_ _%g2108621116%_)))))) - (declare (not safe)) - (_%g2108422405%_ _%stx21076%_))))) + (_%g2108221109%_ + _%g2108321113%_)))) + (_%g2108221109%_ _%g2108321113%_)))) + (_%g2108221109%_ _%g2108321113%_)))) + (_%g2108221109%_ _%g2108321113%_))))) + (_%g2108122402%_ _%stx21073%_))))) (define |gerbil/core/mop~MOP-1[:0:]#defstruct-type| - (lambda (_%stx22519%_) - (let () - (declare (not safe)) - (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22519%_ '#t)))) + (lambda (_%stx22516%_) + (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22516%_ '#t))) (define |gerbil/core/mop~MOP-1[:0:]#defclass-type| - (lambda (_%stx22522%_) - (let () - (declare (not safe)) - (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22522%_ '#f))))) + (lambda (_%stx22519%_) + (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22519%_ '#f)))) diff --git a/src/bootstrap/gerbil/core/mop~2.scm b/src/bootstrap/gerbil/core/mop~2.scm index d1b7f1896..ce9477ab7 100644 --- a/src/bootstrap/gerbil/core/mop~2.scm +++ b/src/bootstrap/gerbil/core/mop~2.scm @@ -1,601 +1,601 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/mop~MOP-3[1]#_g27238_| + (define |gerbil/core/mop~MOP-3[1]#_g27201_| (##structure gx#syntax-quote::t 'class-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27240_| + (define |gerbil/core/mop~MOP-3[1]#_g27203_| (##structure gx#syntax-quote::t 'make-class-type-info #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27242_| + (define |gerbil/core/mop~MOP-3[1]#_g27205_| (##structure gx#syntax-quote::t 'class-type-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27244_| + (define |gerbil/core/mop~MOP-3[1]#_g27207_| (##structure gx#syntax-quote::t '!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27245_| + (define |gerbil/core/mop~MOP-3[1]#_g27208_| (##structure gx#syntax-quote::t '!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27246_| + (define |gerbil/core/mop~MOP-3[1]#_g27209_| (##structure gx#syntax-quote::t '!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27247_| + (define |gerbil/core/mop~MOP-3[1]#_g27210_| (##structure gx#syntax-quote::t '!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27248_| + (define |gerbil/core/mop~MOP-3[1]#_g27211_| (##structure gx#syntax-quote::t '!class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27249_| + (define |gerbil/core/mop~MOP-3[1]#_g27212_| (##structure gx#syntax-quote::t '!class-type-ordered-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27250_| + (define |gerbil/core/mop~MOP-3[1]#_g27213_| (##structure gx#syntax-quote::t '!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27251_| + (define |gerbil/core/mop~MOP-3[1]#_g27214_| (##structure gx#syntax-quote::t '!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27252_| + (define |gerbil/core/mop~MOP-3[1]#_g27215_| (##structure gx#syntax-quote::t '!class-type-system? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27253_| + (define |gerbil/core/mop~MOP-3[1]#_g27216_| (##structure gx#syntax-quote::t '!class-type-metaclass #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27254_| + (define |gerbil/core/mop~MOP-3[1]#_g27217_| (##structure gx#syntax-quote::t '!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27255_| + (define |gerbil/core/mop~MOP-3[1]#_g27218_| (##structure gx#syntax-quote::t '!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27256_| + (define |gerbil/core/mop~MOP-3[1]#_g27219_| (##structure gx#syntax-quote::t '!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27257_| + (define |gerbil/core/mop~MOP-3[1]#_g27220_| (##structure gx#syntax-quote::t '!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27258_| + (define |gerbil/core/mop~MOP-3[1]#_g27221_| (##structure gx#syntax-quote::t '!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27259_| + (define |gerbil/core/mop~MOP-3[1]#_g27222_| (##structure gx#syntax-quote::t '!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27260_| + (define |gerbil/core/mop~MOP-3[1]#_g27223_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27261_| + (define |gerbil/core/mop~MOP-3[1]#_g27224_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27262_| + (define |gerbil/core/mop~MOP-3[1]#_g27225_| (##structure gx#syntax-quote::t '!class-type-slot-types #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27263_| + (define |gerbil/core/mop~MOP-3[1]#_g27226_| (##structure gx#syntax-quote::t '!class-type-slot-defaults #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27264_| + (define |gerbil/core/mop~MOP-3[1]#_g27227_| (##structure gx#syntax-quote::t '!class-type-slot-contracts #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27266_| + (define |gerbil/core/mop~MOP-3[1]#_g27229_| (##structure gx#syntax-quote::t '!class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27267_| + (define |gerbil/core/mop~MOP-3[1]#_g27230_| (##structure gx#syntax-quote::t '!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27268_| + (define |gerbil/core/mop~MOP-3[1]#_g27231_| (##structure gx#syntax-quote::t '!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27269_| + (define |gerbil/core/mop~MOP-3[1]#_g27232_| (##structure gx#syntax-quote::t '!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27270_| + (define |gerbil/core/mop~MOP-3[1]#_g27233_| (##structure gx#syntax-quote::t '!class-type-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27271_| + (define |gerbil/core/mop~MOP-3[1]#_g27234_| (##structure gx#syntax-quote::t '!class-type-ordered-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27272_| + (define |gerbil/core/mop~MOP-3[1]#_g27235_| (##structure gx#syntax-quote::t '!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27273_| + (define |gerbil/core/mop~MOP-3[1]#_g27236_| (##structure gx#syntax-quote::t '!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27274_| + (define |gerbil/core/mop~MOP-3[1]#_g27237_| (##structure gx#syntax-quote::t '!class-type-system?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27275_| + (define |gerbil/core/mop~MOP-3[1]#_g27238_| (##structure gx#syntax-quote::t '!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27276_| + (define |gerbil/core/mop~MOP-3[1]#_g27239_| (##structure gx#syntax-quote::t '!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27277_| + (define |gerbil/core/mop~MOP-3[1]#_g27240_| (##structure gx#syntax-quote::t '!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27278_| + (define |gerbil/core/mop~MOP-3[1]#_g27241_| (##structure gx#syntax-quote::t '!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27279_| + (define |gerbil/core/mop~MOP-3[1]#_g27242_| (##structure gx#syntax-quote::t '!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27280_| + (define |gerbil/core/mop~MOP-3[1]#_g27243_| (##structure gx#syntax-quote::t '!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27281_| + (define |gerbil/core/mop~MOP-3[1]#_g27244_| (##structure gx#syntax-quote::t '!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27282_| + (define |gerbil/core/mop~MOP-3[1]#_g27245_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27283_| + (define |gerbil/core/mop~MOP-3[1]#_g27246_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27284_| + (define |gerbil/core/mop~MOP-3[1]#_g27247_| (##structure gx#syntax-quote::t '!class-type-slot-types-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27285_| + (define |gerbil/core/mop~MOP-3[1]#_g27248_| (##structure gx#syntax-quote::t '!class-type-slot-defaults-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27286_| + (define |gerbil/core/mop~MOP-3[1]#_g27249_| (##structure gx#syntax-quote::t '!class-type-slot-contracts-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27288_| + (define |gerbil/core/mop~MOP-3[1]#_g27251_| (##structure gx#syntax-quote::t '&!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27289_| + (define |gerbil/core/mop~MOP-3[1]#_g27252_| (##structure gx#syntax-quote::t '&!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27290_| + (define |gerbil/core/mop~MOP-3[1]#_g27253_| (##structure gx#syntax-quote::t '&!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27291_| + (define |gerbil/core/mop~MOP-3[1]#_g27254_| (##structure gx#syntax-quote::t '&!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27292_| + (define |gerbil/core/mop~MOP-3[1]#_g27255_| (##structure gx#syntax-quote::t '&!class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27293_| + (define |gerbil/core/mop~MOP-3[1]#_g27256_| (##structure gx#syntax-quote::t '&!class-type-ordered-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27294_| + (define |gerbil/core/mop~MOP-3[1]#_g27257_| (##structure gx#syntax-quote::t '&!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27295_| + (define |gerbil/core/mop~MOP-3[1]#_g27258_| (##structure gx#syntax-quote::t '&!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27296_| + (define |gerbil/core/mop~MOP-3[1]#_g27259_| (##structure gx#syntax-quote::t '&!class-type-system? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27297_| + (define |gerbil/core/mop~MOP-3[1]#_g27260_| (##structure gx#syntax-quote::t '&!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27298_| + (define |gerbil/core/mop~MOP-3[1]#_g27261_| (##structure gx#syntax-quote::t '&!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27299_| + (define |gerbil/core/mop~MOP-3[1]#_g27262_| (##structure gx#syntax-quote::t '&!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27300_| + (define |gerbil/core/mop~MOP-3[1]#_g27263_| (##structure gx#syntax-quote::t '&!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27301_| + (define |gerbil/core/mop~MOP-3[1]#_g27264_| (##structure gx#syntax-quote::t '&!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27302_| + (define |gerbil/core/mop~MOP-3[1]#_g27265_| (##structure gx#syntax-quote::t '&!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27303_| + (define |gerbil/core/mop~MOP-3[1]#_g27266_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27304_| + (define |gerbil/core/mop~MOP-3[1]#_g27267_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27305_| + (define |gerbil/core/mop~MOP-3[1]#_g27268_| (##structure gx#syntax-quote::t '&!class-type-slot-types #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27306_| + (define |gerbil/core/mop~MOP-3[1]#_g27269_| (##structure gx#syntax-quote::t '&!class-type-slot-defaults #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27307_| + (define |gerbil/core/mop~MOP-3[1]#_g27270_| (##structure gx#syntax-quote::t '&!class-type-slot-contracts #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27309_| + (define |gerbil/core/mop~MOP-3[1]#_g27272_| (##structure gx#syntax-quote::t '&!class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27310_| + (define |gerbil/core/mop~MOP-3[1]#_g27273_| (##structure gx#syntax-quote::t '&!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27311_| + (define |gerbil/core/mop~MOP-3[1]#_g27274_| (##structure gx#syntax-quote::t '&!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27312_| + (define |gerbil/core/mop~MOP-3[1]#_g27275_| (##structure gx#syntax-quote::t '&!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27313_| + (define |gerbil/core/mop~MOP-3[1]#_g27276_| (##structure gx#syntax-quote::t '&!class-type-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27314_| + (define |gerbil/core/mop~MOP-3[1]#_g27277_| (##structure gx#syntax-quote::t '&!class-type-ordered-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27315_| + (define |gerbil/core/mop~MOP-3[1]#_g27278_| (##structure gx#syntax-quote::t '&!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27316_| + (define |gerbil/core/mop~MOP-3[1]#_g27279_| (##structure gx#syntax-quote::t '&!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27317_| + (define |gerbil/core/mop~MOP-3[1]#_g27280_| (##structure gx#syntax-quote::t '&!class-type-system?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27318_| + (define |gerbil/core/mop~MOP-3[1]#_g27281_| (##structure gx#syntax-quote::t '&!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27319_| + (define |gerbil/core/mop~MOP-3[1]#_g27282_| (##structure gx#syntax-quote::t '&!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27320_| + (define |gerbil/core/mop~MOP-3[1]#_g27283_| (##structure gx#syntax-quote::t '&!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27321_| + (define |gerbil/core/mop~MOP-3[1]#_g27284_| (##structure gx#syntax-quote::t '&!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27322_| + (define |gerbil/core/mop~MOP-3[1]#_g27285_| (##structure gx#syntax-quote::t '&!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27323_| + (define |gerbil/core/mop~MOP-3[1]#_g27286_| (##structure gx#syntax-quote::t '&!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27324_| + (define |gerbil/core/mop~MOP-3[1]#_g27287_| (##structure gx#syntax-quote::t '&!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27325_| + (define |gerbil/core/mop~MOP-3[1]#_g27288_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27326_| + (define |gerbil/core/mop~MOP-3[1]#_g27289_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27327_| + (define |gerbil/core/mop~MOP-3[1]#_g27290_| (##structure gx#syntax-quote::t '&!class-type-slot-types-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27328_| + (define |gerbil/core/mop~MOP-3[1]#_g27291_| (##structure gx#syntax-quote::t '&!class-type-slot-defaults-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27329_| + (define |gerbil/core/mop~MOP-3[1]#_g27292_| (##structure gx#syntax-quote::t '&!class-type-slot-contracts-set! @@ -603,7 +603,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/mop~MOP-3[:0:]#class-type-info| - (let ((__obj27112 + (let ((__obj27109 (let () (declare (not safe)) (##structure @@ -632,21 +632,21 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27112 + __obj27109 'gerbil.core#class-type-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27112 'class-type-info '2 '#f '#f)) + (##unchecked-structure-set! __obj27109 'class-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27112 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj27109 '() '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj27112 + __obj27109 '(id name super slots @@ -672,219 +672,219 @@ '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27112 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj27109 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27112 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj27109 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27112 '#f '9 '#f '#f)) + (##unchecked-structure-set! __obj27109 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27112 '#f '11 '#f '#f)) - (let ((__tmp27237 |gerbil/core/mop~MOP-3[1]#_g27238_|)) + (##unchecked-structure-set! __obj27109 '#f '11 '#f '#f)) + (let ((__tmp27200 |gerbil/core/mop~MOP-3[1]#_g27201_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27112 __tmp27237 '12 '#f '#f)) - (let ((__tmp27239 |gerbil/core/mop~MOP-3[1]#_g27240_|)) + (##unchecked-structure-set! __obj27109 __tmp27200 '12 '#f '#f)) + (let ((__tmp27202 |gerbil/core/mop~MOP-3[1]#_g27203_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27112 __tmp27239 '13 '#f '#f)) - (let ((__tmp27241 |gerbil/core/mop~MOP-3[1]#_g27242_|)) + (##unchecked-structure-set! __obj27109 __tmp27202 '13 '#f '#f)) + (let ((__tmp27204 |gerbil/core/mop~MOP-3[1]#_g27205_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27112 __tmp27241 '14 '#f '#f)) - (let ((__tmp27243 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27244_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27245_|) + (##unchecked-structure-set! __obj27109 __tmp27204 '14 '#f '#f)) + (let ((__tmp27206 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27207_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27208_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27246_|) + |gerbil/core/mop~MOP-3[1]#_g27209_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27247_|) + |gerbil/core/mop~MOP-3[1]#_g27210_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27248_|) + |gerbil/core/mop~MOP-3[1]#_g27211_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27249_|) + |gerbil/core/mop~MOP-3[1]#_g27212_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27250_|) + |gerbil/core/mop~MOP-3[1]#_g27213_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27251_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27252_|) + |gerbil/core/mop~MOP-3[1]#_g27214_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27215_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27253_|) + |gerbil/core/mop~MOP-3[1]#_g27216_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27254_|) + |gerbil/core/mop~MOP-3[1]#_g27217_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27255_|) + |gerbil/core/mop~MOP-3[1]#_g27218_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27256_|) + |gerbil/core/mop~MOP-3[1]#_g27219_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27257_|) + |gerbil/core/mop~MOP-3[1]#_g27220_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27258_|) + |gerbil/core/mop~MOP-3[1]#_g27221_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27259_|) + |gerbil/core/mop~MOP-3[1]#_g27222_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27260_|) + |gerbil/core/mop~MOP-3[1]#_g27223_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27261_|) + |gerbil/core/mop~MOP-3[1]#_g27224_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27262_|) + |gerbil/core/mop~MOP-3[1]#_g27225_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27263_|) + |gerbil/core/mop~MOP-3[1]#_g27226_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27264_|) + |gerbil/core/mop~MOP-3[1]#_g27227_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27112 __tmp27243 '15 '#f '#f)) - (let ((__tmp27265 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27266_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27267_|) + (##unchecked-structure-set! __obj27109 __tmp27206 '15 '#f '#f)) + (let ((__tmp27228 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27229_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27230_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27268_|) + |gerbil/core/mop~MOP-3[1]#_g27231_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27269_|) + |gerbil/core/mop~MOP-3[1]#_g27232_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27270_|) + |gerbil/core/mop~MOP-3[1]#_g27233_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27271_|) + |gerbil/core/mop~MOP-3[1]#_g27234_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27272_|) + |gerbil/core/mop~MOP-3[1]#_g27235_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27273_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27274_|) + |gerbil/core/mop~MOP-3[1]#_g27236_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27237_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27275_|) + |gerbil/core/mop~MOP-3[1]#_g27238_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27276_|) + |gerbil/core/mop~MOP-3[1]#_g27239_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27277_|) + |gerbil/core/mop~MOP-3[1]#_g27240_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27278_|) + |gerbil/core/mop~MOP-3[1]#_g27241_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27279_|) + |gerbil/core/mop~MOP-3[1]#_g27242_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27280_|) + |gerbil/core/mop~MOP-3[1]#_g27243_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27281_|) + |gerbil/core/mop~MOP-3[1]#_g27244_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27282_|) + |gerbil/core/mop~MOP-3[1]#_g27245_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27283_|) + |gerbil/core/mop~MOP-3[1]#_g27246_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27284_|) + |gerbil/core/mop~MOP-3[1]#_g27247_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27285_|) + |gerbil/core/mop~MOP-3[1]#_g27248_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27286_|) + |gerbil/core/mop~MOP-3[1]#_g27249_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27112 __tmp27265 '16 '#f '#f)) - (let ((__tmp27287 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27288_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27289_|) + (##unchecked-structure-set! __obj27109 __tmp27228 '16 '#f '#f)) + (let ((__tmp27250 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27251_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27252_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27290_|) + |gerbil/core/mop~MOP-3[1]#_g27253_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27291_|) + |gerbil/core/mop~MOP-3[1]#_g27254_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27292_|) + |gerbil/core/mop~MOP-3[1]#_g27255_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27293_|) + |gerbil/core/mop~MOP-3[1]#_g27256_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27294_|) + |gerbil/core/mop~MOP-3[1]#_g27257_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27295_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27296_|) + |gerbil/core/mop~MOP-3[1]#_g27258_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27259_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27253_|) + |gerbil/core/mop~MOP-3[1]#_g27216_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27297_|) + |gerbil/core/mop~MOP-3[1]#_g27260_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27298_|) + |gerbil/core/mop~MOP-3[1]#_g27261_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27299_|) + |gerbil/core/mop~MOP-3[1]#_g27262_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27300_|) + |gerbil/core/mop~MOP-3[1]#_g27263_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27301_|) + |gerbil/core/mop~MOP-3[1]#_g27264_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27302_|) + |gerbil/core/mop~MOP-3[1]#_g27265_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27303_|) + |gerbil/core/mop~MOP-3[1]#_g27266_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27304_|) + |gerbil/core/mop~MOP-3[1]#_g27267_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27305_|) + |gerbil/core/mop~MOP-3[1]#_g27268_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27306_|) + |gerbil/core/mop~MOP-3[1]#_g27269_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27307_|) + |gerbil/core/mop~MOP-3[1]#_g27270_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27112 __tmp27287 '17 '#f '#f)) - (let ((__tmp27308 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27309_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27310_|) + (##unchecked-structure-set! __obj27109 __tmp27250 '17 '#f '#f)) + (let ((__tmp27271 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27272_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27273_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27311_|) + |gerbil/core/mop~MOP-3[1]#_g27274_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27312_|) + |gerbil/core/mop~MOP-3[1]#_g27275_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27313_|) + |gerbil/core/mop~MOP-3[1]#_g27276_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27314_|) + |gerbil/core/mop~MOP-3[1]#_g27277_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27315_|) + |gerbil/core/mop~MOP-3[1]#_g27278_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27316_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27317_|) + |gerbil/core/mop~MOP-3[1]#_g27279_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27280_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27318_|) + |gerbil/core/mop~MOP-3[1]#_g27281_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27319_|) + |gerbil/core/mop~MOP-3[1]#_g27282_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27320_|) + |gerbil/core/mop~MOP-3[1]#_g27283_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27321_|) + |gerbil/core/mop~MOP-3[1]#_g27284_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27322_|) + |gerbil/core/mop~MOP-3[1]#_g27285_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27323_|) + |gerbil/core/mop~MOP-3[1]#_g27286_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27324_|) + |gerbil/core/mop~MOP-3[1]#_g27287_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27325_|) + |gerbil/core/mop~MOP-3[1]#_g27288_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27326_|) + |gerbil/core/mop~MOP-3[1]#_g27289_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27327_|) + |gerbil/core/mop~MOP-3[1]#_g27290_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27328_|) + |gerbil/core/mop~MOP-3[1]#_g27291_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27329_|) + |gerbil/core/mop~MOP-3[1]#_g27292_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27112 __tmp27308 '18 '#f '#f)) - __obj27112))) + (##unchecked-structure-set! __obj27109 __tmp27271 '18 '#f '#f)) + __obj27109))) diff --git a/src/bootstrap/gerbil/core/mop~3.scm b/src/bootstrap/gerbil/core/mop~3.scm index e4e469b4a..5337ab93d 100644 --- a/src/bootstrap/gerbil/core/mop~3.scm +++ b/src/bootstrap/gerbil/core/mop~3.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/mop~MOP-4[1]#_g27408_| + (define |gerbil/core/mop~MOP-4[1]#_g27321_| (##structure gx#syntax-quote::t '@method @@ -9,12 +9,12 @@ '())) (begin (define |gerbil/core/mop~MOP-4[1]#typedef-body?| - (lambda (_%stx24878%_) - (letrec ((_%body-opt?24881%_ - (lambda (_%key24884%_) - (let ((__tmp27330 (gx#stx-e _%key24884%_))) + (lambda (_%stx24875%_) + (letrec ((_%body-opt?24878%_ + (lambda (_%key24881%_) + (let ((__tmp27293 (gx#stx-e _%key24881%_))) (declare (not safe)) - (##memq __tmp27330 + (##memq __tmp27293 '(id: struct: name: @@ -24,4181 +24,3855 @@ print: equal: metaclass:)))))) - (gx#stx-plist? _%stx24878%_ _%body-opt?24881%_)))) + (gx#stx-plist? _%stx24875%_ _%body-opt?24878%_)))) (define |gerbil/core/mop~MOP-4[1]#generate-defclass| - (lambda (_%stx22644%_ - _%id22646%_ - _%super-ref22647%_ - _%slots22648%_ - _%body22649%_) - (letrec ((_%wrap22651%_ - (lambda (_%e-stx24875%_) + (lambda (_%stx22641%_ + _%id22643%_ + _%super-ref22644%_ + _%slots22645%_ + _%body22646%_) + (letrec ((_%wrap22648%_ + (lambda (_%e-stx24872%_) (gx#stx-wrap-source - _%e-stx24875%_ - (gx#stx-source _%stx22644%_)))) - (_%make-id22653%_ - (lambda _%args24872%_ - (apply gx#stx-identifier _%id22646%_ _%args24872%_))) - (_%get-mixin-slots22654%_ - (lambda (_%super24842%_ _%slots24844%_) - (letrec* ((_%tab24846%_ (make-hash-table-eq)) - (_%dedup24848%_ - (lambda (_%mixins24859%_) - (let _%lp24862%_ ((_%rest24865%_ - _%mixins24859%_) - (_%r24867%_ '())) - (if (let () - (declare (not safe)) - (pair? _%rest24865%_)) - (let ((_%slot24869%_ - (car _%rest24865%_))) + _%e-stx24872%_ + (gx#stx-source _%stx22641%_)))) + (_%make-id22650%_ + (lambda _%args24869%_ + (apply gx#stx-identifier _%id22643%_ _%args24869%_))) + (_%get-mixin-slots22651%_ + (lambda (_%super24839%_ _%slots24841%_) + (letrec* ((_%tab24843%_ (make-hash-table-eq)) + (_%dedup24845%_ + (lambda (_%mixins24856%_) + (let _%lp24859%_ ((_%rest24862%_ + _%mixins24856%_) + (_%r24864%_ '())) + (if (pair? _%rest24862%_) + (let ((_%slot24866%_ + (car _%rest24862%_))) (if (hash-get - _%tab24846%_ - _%slot24869%_) - (let ((__tmp27331 - (cdr _%rest24865%_))) - (declare (not safe)) - (_%lp24862%_ - __tmp27331 - _%r24867%_)) + _%tab24843%_ + _%slot24866%_) + (_%lp24859%_ + (cdr _%rest24862%_) + _%r24864%_) (begin (hash-put! - _%tab24846%_ - _%slot24869%_ + _%tab24843%_ + _%slot24866%_ '#t) - (let ((__tmp27333 - (cdr _%rest24865%_)) - (__tmp27332 - (cons _%slot24869%_ - _%r24867%_))) - (declare (not safe)) - (_%lp24862%_ - __tmp27333 - __tmp27332))))) - (reverse _%r24867%_)))))) + (_%lp24859%_ + (cdr _%rest24862%_) + (cons _%slot24866%_ + _%r24864%_))))) + (reverse _%r24864%_)))))) (gx#stx-for-each - (lambda (_%slot24850%_) - (hash-put! _%tab24846%_ (gx#stx-e _%slot24850%_) '#t)) - _%slots24844%_) - (if (let () (declare (not safe)) (not _%super24842%_)) - (let () '()) - (if (gx#identifier? _%super24842%_) - (let ((__tmp27334 - (let () - (declare (not safe)) - (_%get-mixin-slots-r22655%_ - _%super24842%_)))) - (declare (not safe)) - (_%dedup24848%_ __tmp27334)) - (let ((__tmp27335 - (concatenate - (map _%get-mixin-slots-r22655%_ - _%super24842%_)))) - (declare (not safe)) - (_%dedup24848%_ __tmp27335))))))) - (_%get-mixin-slots-r22655%_ - (lambda (_%type-id24836%_) - (let ((_%info24839%_ - (gx#syntax-local-value _%type-id24836%_))) - (let ((__tmp27337 - (let ((__obj27113 _%info24839%_)) + (lambda (_%slot24847%_) + (hash-put! _%tab24843%_ (gx#stx-e _%slot24847%_) '#t)) + _%slots24841%_) + (if (not _%super24839%_) + '() + (if (gx#identifier? _%super24839%_) + (_%dedup24845%_ + (_%get-mixin-slots-r22652%_ _%super24839%_)) + (_%dedup24845%_ + (concatenate + (map _%get-mixin-slots-r22652%_ + _%super24839%_)))))))) + (_%get-mixin-slots-r22652%_ + (lambda (_%type-id24833%_) + (let ((_%info24836%_ + (gx#syntax-local-value _%type-id24833%_))) + (let ((__tmp27295 + (let ((__obj27110 _%info24836%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27113 + __obj27110 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27113 + __obj27110 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27113 + __obj27110 'slots)))) - (__tmp27336 + (__tmp27294 (concatenate - (map _%get-mixin-slots-r22655%_ - (let ((__obj27114 _%info24839%_)) + (map _%get-mixin-slots-r22652%_ + (let ((__obj27111 _%info24836%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27114 + __obj27111 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27114 + __obj27111 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27114 + __obj27111 'super))))))) (declare (not safe)) - (##append __tmp27337 __tmp27336)))))) - (gx#check-duplicate-identifiers _%slots22648%_ _%stx22644%_) - (let* ((_%name22657%_ (symbol->string (gx#stx-e _%id22646%_))) - (_%super22660%_ - (map gx#syntax-local-value _%super-ref22647%_)) - (_%struct?22663%_ (gx#stx-getq 'struct: _%body22649%_)) - (_%g2266622674%_ - (lambda (_%g2266722670%_) + (##append __tmp27295 __tmp27294)))))) + (gx#check-duplicate-identifiers _%slots22645%_ _%stx22641%_) + (let* ((_%name22654%_ (symbol->string (gx#stx-e _%id22643%_))) + (_%super22657%_ + (map gx#syntax-local-value _%super-ref22644%_)) + (_%struct?22660%_ (gx#stx-getq 'struct: _%body22646%_)) + (_%g2266322671%_ + (lambda (_%g2266422667%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2266722670%_))) - (_%g2266524832%_ - (lambda (_%g2266722678%_) - ((lambda (_%L22681%_) - (let () - (let* ((_%g2269722705%_ - (lambda (_%g2269822701%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2269822701%_))) - (_%g2269624828%_ - (lambda (_%g2269822709%_) - ((lambda (_%L22712%_) - (let () - (let* ((_%g2272522733%_ - (lambda (_%g2272622729%_) + _%g2266422667%_))) + (_%g2266224829%_ + (lambda (_%g2266422675%_) + ((lambda (_%L22678%_) + (let* ((_%g2269422702%_ + (lambda (_%g2269522698%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2269522698%_))) + (_%g2269324825%_ + (lambda (_%g2269522706%_) + ((lambda (_%L22709%_) + (let* ((_%g2272222730%_ + (lambda (_%g2272322726%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2272322726%_))) + (_%g2272124821%_ + (lambda (_%g2272322734%_) + ((lambda (_%L22737%_) + (let* ((_%g2275022758%_ + (lambda (_%g2275122754%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2275122754%_))) + (_%g2274924817%_ + (lambda (_%g2275122762%_) + ((lambda (_%L22765%_) + (let* ((_%g2277822786%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g2277922782%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2277922782%_))) + (_%g2277724813%_ + (lambda (_%g2277922790%_) + ((lambda (_%L22793%_) + (let* ((_%g2280622823%_ + (lambda (_%g2280722819%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2280722819%_))) + (_%g2280524809%_ + (lambda (_%g2280722827%_) + (if (gx#stx-pair/null? + _%g2280722827%_) + (let ((_g27296_ + (gx#syntax-split-splice + _%g2280722827%_ + '0))) + (begin + (let ((_g27297_ + (let () + (declare + (not safe)) + (if (##values? +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g27296_) + (##vector-length _g27296_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g27297_ 2))) + (error "Context expects 2 values" _g27297_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%target2280922830%_ + (let () + (declare + (not safe)) + (##vector-ref + _g27296_ + 0))) + (_%tl2281122833%_ + (let () + (declare + (not safe)) + (##vector-ref + _g27296_ + 1)))) + (if (gx#stx-null? + _%tl2281122833%_) + (letrec ((_%loop2281222836%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd2281022840%_ _%slot2281622843%_) + (if (gx#stx-pair? _%hd2281022840%_) + (let ((_%e2281322846%_ + (gx#syntax-e _%hd2281022840%_))) + (let ((_%lp-hd2281422850%_ + (let () + (declare (not safe)) + (##car _%e2281322846%_))) + (_%lp-tl2281522853%_ + (let () + (declare (not safe)) + (##cdr _%e2281322846%_)))) + (_%loop2281222836%_ + _%lp-tl2281522853%_ + (cons _%lp-hd2281422850%_ + _%slot2281622843%_)))) + (let ((_%slot2281722856%_ + (reverse _%slot2281622843%_))) + ((lambda (_%L22860%_) + (let* ((_%g2287722894%_ + (lambda (_%g2287822890%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2272622729%_))) - (_%g2272424824%_ - (lambda (_%g2272622737%_) - ((lambda (_%L22740%_) - (let () - (let* ((_%g2275322761%_ - (lambda (_%g2275422757%_) + _%g2287822890%_))) + (_%g2287624800%_ + (lambda (_%g2287822898%_) + (if (gx#stx-pair/null? + _%g2287822898%_) + (let ((_g27298_ + (gx#syntax-split-splice + _%g2287822898%_ + '0))) + (begin + (let ((_g27299_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2275422757%_))) - (_%g2275224820%_ - (lambda (_%g2275422765%_) - ((lambda (_%L22768%_) - (let () - (let* ((_%g2278122789%_ - (lambda (_%g2278222785%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2278222785%_))) - (_%g2278024816%_ - (lambda (_%g2278222793%_) - ((lambda (_%L22796%_) - (let () - (let* ((_%g2280922826%_ - (lambda (_%g2281022822%_) + (let () + (declare (not safe)) + (if (##values? _g27298_) + (##vector-length _g27298_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g27299_ 2))) + (error "Context expects 2 values" _g27299_))) + (let ((_%target2288022901%_ + (let () + (declare (not safe)) + (##vector-ref _g27298_ 0))) + (_%tl2288222904%_ + (let () + (declare (not safe)) + (##vector-ref _g27298_ 1)))) + (if (gx#stx-null? _%tl2288222904%_) + (letrec ((_%loop2288322907%_ + (lambda (_%hd2288122911%_ _%getf2288722914%_) + (if (gx#stx-pair? _%hd2288122911%_) + (let ((_%e2288422917%_ + (gx#syntax-e _%hd2288122911%_))) + (let ((_%lp-hd2288522921%_ + (let () + (declare (not safe)) + (##car _%e2288422917%_))) + (_%lp-tl2288622924%_ + (let () + (declare (not safe)) + (##cdr _%e2288422917%_)))) + (_%loop2288322907%_ + _%lp-tl2288622924%_ + (cons _%lp-hd2288522921%_ + _%getf2288722914%_)))) + (let ((_%getf2288822927%_ + (reverse _%getf2288722914%_))) + ((lambda (_%L22931%_) + (let* ((_%g2294822965%_ + (lambda (_%g2294922961%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2281022822%_))) - (_%g2280824812%_ - (lambda (_%g2281022830%_) + _%g2294922961%_))) + (_%g2294724791%_ + (lambda (_%g2294922969%_) (if (gx#stx-pair/null? - _%g2281022830%_) - (let ((_g27338_ + _%g2294922969%_) + (let ((_g27300_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g2281022830%_ '0))) + (gx#syntax-split-splice _%g2294922969%_ '0))) (begin - (let ((_g27339_ + (let ((_g27301_ (let () (declare (not safe)) - (if (##values? _g27338_) - (##vector-length _g27338_) + (if (##values? _g27300_) + (##vector-length _g27300_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27339_ 2))) - (error "Context expects 2 values" _g27339_))) - (let ((_%target2281222833%_ + (##fx= _g27301_ 2))) + (error "Context expects 2 values" _g27301_))) + (let ((_%target2295122972%_ (let () (declare (not safe)) - (##vector-ref _g27338_ 0))) - (_%tl2281422836%_ + (##vector-ref _g27300_ 0))) + (_%tl2295322975%_ (let () (declare (not safe)) - (##vector-ref _g27338_ 1)))) - (if (gx#stx-null? _%tl2281422836%_) - (letrec ((_%loop2281522839%_ - (lambda (_%hd2281322843%_ - _%slot2281922846%_) - (if (gx#stx-pair? _%hd2281322843%_) - (let ((_%e2281622849%_ + (##vector-ref _g27300_ 1)))) + (if (gx#stx-null? _%tl2295322975%_) + (letrec ((_%loop2295422978%_ + (lambda (_%hd2295222982%_ + _%setf2295822985%_) + (if (gx#stx-pair? _%hd2295222982%_) + (let ((_%e2295522988%_ (gx#syntax-e - _%hd2281322843%_))) - (let ((_%lp-hd2281722853%_ + _%hd2295222982%_))) + (let ((_%lp-hd2295622992%_ (let () (declare (not safe)) - (##car _%e2281622849%_))) - (_%lp-tl2281822856%_ + (##car _%e2295522988%_))) + (_%lp-tl2295722995%_ (let () (declare (not safe)) - (##cdr _%e2281622849%_)))) - (let ((__tmp27340 - (cons _%lp-hd2281722853%_ - _%slot2281922846%_))) - (declare (not safe)) - (_%loop2281522839%_ - _%lp-tl2281822856%_ - __tmp27340)))) - (let ((_%slot2282022859%_ - (reverse _%slot2281922846%_))) - ((lambda (_%L22863%_) - (let () - (let* ((_%g2288022897%_ - (lambda (_%g2288122893%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2288122893%_))) - (_%g2287924803%_ - (lambda (_%g2288122901%_) - (if (gx#stx-pair/null? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2288122901%_) - (let ((_g27341_ - (gx#syntax-split-splice _%g2288122901%_ '0))) - (begin - (let ((_g27342_ - (let () - (declare (not safe)) - (if (##values? _g27341_) - (##vector-length _g27341_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g27342_ 2))) - (error "Context expects 2 values" - _g27342_))) - (let ((_%target2288322904%_ - (let () - (declare (not safe)) - (##vector-ref _g27341_ 0))) - (_%tl2288522907%_ - (let () - (declare (not safe)) - (##vector-ref _g27341_ 1)))) - (if (gx#stx-null? _%tl2288522907%_) - (letrec ((_%loop2288622910%_ - (lambda (_%hd2288422914%_ - _%getf2289022917%_) - (if (gx#stx-pair? - _%hd2288422914%_) - (let ((_%e2288722920%_ - (gx#syntax-e - _%hd2288422914%_))) - (let ((_%lp-hd2288822924%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _%e2288722920%_))) - (_%lp-tl2288922927%_ - (let () (declare (not safe)) (##cdr _%e2288722920%_)))) - (let ((__tmp27343 - (cons _%lp-hd2288822924%_ _%getf2289022917%_))) - (declare (not safe)) - (_%loop2288622910%_ _%lp-tl2288922927%_ __tmp27343)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%getf2289122930%_ - (reverse _%getf2289022917%_))) - ((lambda (_%L22934%_) - (let () - (let* ((_%g2295122968%_ + (##cdr _%e2295522988%_)))) + (_%loop2295422978%_ + _%lp-tl2295722995%_ + (cons _%lp-hd2295622992%_ + _%setf2295822985%_)))) + (let ((_%setf2295922998%_ + (reverse _%setf2295822985%_))) + ((lambda (_%L23002%_) + (let* ((_%mixin-slots23019%_ + (_%get-mixin-slots22651%_ + _%super-ref22644%_ + _%slots22645%_)) + (_%g2302223039%_ + (lambda (_%g2302323035%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2302323035%_))) + (_%g2302124787%_ + (lambda (_%g2302323043%_) + (if (gx#stx-pair/null? +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g2302323043%_) + (let ((_g27302_ + (gx#syntax-split-splice _%g2302323043%_ '0))) + (begin + (let ((_g27303_ + (let () + (declare (not safe)) + (if (##values? _g27302_) + (##vector-length _g27302_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g27303_ 2))) + (error "Context expects 2 values" _g27303_))) + (let ((_%target2302523046%_ + (let () + (declare (not safe)) + (##vector-ref _g27302_ 0))) + (_%tl2302723049%_ + (let () + (declare (not safe)) + (##vector-ref _g27302_ 1)))) + (if (gx#stx-null? _%tl2302723049%_) + (letrec ((_%loop2302823052%_ + (lambda (_%hd2302623056%_ + _%mixin-slot2303223059%_) + (if (gx#stx-pair? + _%hd2302623056%_) + (let ((_%e2302923062%_ + (gx#syntax-e + _%hd2302623056%_))) + (let ((_%lp-hd2303023066%_ + (let () + (declare + (not safe)) + (##car _%e2302923062%_))) + (_%lp-tl2303123069%_ + (let () + (declare + (not safe)) + (##cdr _%e2302923062%_)))) + (_%loop2302823052%_ + _%lp-tl2303123069%_ + (cons _%lp-hd2303023066%_ + _%mixin-slot2303223059%_)))) + (let ((_%mixin-slot2303323072%_ + (reverse _%mixin-slot2303223059%_))) + ((lambda (_%L23076%_) + (let* ((_%g2309423111%_ + (lambda (_%g2309523107%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2295222964%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2295222964%_))) - (_%g2295024794%_ - (lambda (_%g2295222972%_) - (if (gx#stx-pair/null? _%g2295222972%_) - (let ((_g27344_ - (gx#syntax-split-splice - _%g2295222972%_ - '0))) - (begin - (let ((_g27345_ - (let () - (declare (not safe)) - (if (##values? _g27344_) - (##vector-length _g27344_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g27345_ 2))) - (error "Context expects 2 values" - _g27345_))) - (let ((_%target2295422975%_ - (let () - (declare (not safe)) - (##vector-ref _g27344_ 0))) - (_%tl2295622978%_ - (let () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2309523107%_))) + (_%g2309324778%_ + (lambda (_%g2309523115%_) + (if (gx#stx-pair/null? _%g2309523115%_) + (let ((_g27304_ + (gx#syntax-split-splice + _%g2309523115%_ + '0))) + (begin + (let ((_g27305_ + (let () + (declare (not safe)) + (if (##values? _g27304_) + (##vector-length _g27304_) + 1)))) + (if (not (let () (declare (not safe)) - (##vector-ref _g27344_ 1)))) - (if (gx#stx-null? _%tl2295622978%_) - (letrec ((_%loop2295722981%_ - (lambda (_%hd2295522985%_ - _%setf2296122988%_) - (if (gx#stx-pair? - _%hd2295522985%_) - (let ((_%e2295822991%_ + (##fx= _g27305_ 2))) + (error "Context expects 2 values" + _g27305_))) + (let ((_%target2309723118%_ + (let () + (declare (not safe)) + (##vector-ref _g27304_ 0))) + (_%tl2309923121%_ + (let () + (declare (not safe)) + (##vector-ref _g27304_ 1)))) + (if (gx#stx-null? _%tl2309923121%_) + (letrec ((_%loop2310023124%_ + (lambda (_%hd2309823128%_ + _%mixin-getf2310423131%_) + (if (gx#stx-pair? + _%hd2309823128%_) + (let ((_%e2310123134%_ + (gx#syntax-e + _%hd2309823128%_))) + (let ((_%lp-hd2310223138%_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd2295522985%_))) - (let ((_%lp-hd2295922995%_ - (let () - (declare (not safe)) - (##car _%e2295822991%_))) - (_%lp-tl2296022998%_ - (let () - (declare (not safe)) - (##cdr _%e2295822991%_)))) - (let ((__tmp27346 - (cons _%lp-hd2295922995%_ _%setf2296122988%_))) - (declare (not safe)) - (_%loop2295722981%_ _%lp-tl2296022998%_ __tmp27346)))) - (let ((_%setf2296223001%_ (reverse _%setf2296122988%_))) - ((lambda (_%L23005%_) - (let () - (let* ((_%mixin-slots23022%_ + (declare (not safe)) + (##car _%e2310123134%_))) + (_%lp-tl2310323141%_ + (let () (declare (not safe)) (##cdr _%e2310123134%_)))) + (_%loop2310023124%_ + _%lp-tl2310323141%_ + (cons _%lp-hd2310223138%_ _%mixin-getf2310423131%_)))) + (let ((_%mixin-getf2310523144%_ + (reverse _%mixin-getf2310423131%_))) + ((lambda (_%L23148%_) + (let* ((_%g2316523182%_ + (lambda (_%g2316623178%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2316623178%_))) + (_%g2316424769%_ + (lambda (_%g2316623186%_) + (if (gx#stx-pair/null? _%g2316623186%_) + (let ((_g27306_ + (gx#syntax-split-splice + _%g2316623186%_ + '0))) + (begin + (let ((_g27307_ + (let () + (declare (not safe)) + (if (##values? _g27306_) + (##vector-length _g27306_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g27307_ 2))) + (error "Context expects 2 values" + _g27307_))) + (let ((_%target2316823189%_ + (let () + (declare (not safe)) + (##vector-ref _g27306_ 0))) + (_%tl2317023192%_ + (let () + (declare (not safe)) + (##vector-ref _g27306_ 1)))) + (if (gx#stx-null? _%tl2317023192%_) + (letrec ((_%loop2317123195%_ + (lambda (_%hd2316923199%_ + _%mixin-setf2317523202%_) + (if (gx#stx-pair? + _%hd2316923199%_) + (let ((_%e2317223205%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%hd2316923199%_))) + (let ((_%lp-hd2317323209%_ + (let () + (declare (not safe)) + (##car _%e2317223205%_))) + (_%lp-tl2317423212%_ + (let () + (declare (not safe)) + (##cdr _%e2317223205%_)))) + (_%loop2317123195%_ + _%lp-tl2317423212%_ + (cons _%lp-hd2317323209%_ _%mixin-setf2317523202%_)))) + (let ((_%mixin-setf2317623215%_ + (reverse _%mixin-setf2317523202%_))) + ((lambda (_%L23219%_) + (let* ((_%g2323623253%_ + (lambda (_%g2323723249%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2323723249%_))) + (_%g2323524752%_ + (lambda (_%g2323723257%_) + (if (gx#stx-pair/null? _%g2323723257%_) + (let ((_g27308_ + (gx#syntax-split-splice + _%g2323723257%_ + '0))) + (begin + (let ((_g27309_ + (let () + (declare (not safe)) + (if (##values? _g27308_) + (##vector-length + _g27308_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g27309_ 2))) + (error "Context expects 2 values" + _g27309_))) + (let ((_%target2323923260%_ + (let () + (declare (not safe)) + (##vector-ref _g27308_ 0))) + (_%tl2324123263%_ + (let () + (declare (not safe)) + (##vector-ref + _g27308_ + 1)))) + (if (gx#stx-null? + _%tl2324123263%_) + (letrec ((_%loop2324223266%_ + (lambda (_%hd2324023270%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%ugetf2324623273%_) + (if (gx#stx-pair? _%hd2324023270%_) + (let ((_%e2324323276%_ + (gx#syntax-e _%hd2324023270%_))) + (let ((_%lp-hd2324423280%_ (let () (declare (not safe)) - (_%get-mixin-slots22654%_ - _%super-ref22647%_ - _%slots22648%_))) - (_%g2302523042%_ - (lambda (_%g2302623038%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2302623038%_))) - (_%g2302424790%_ - (lambda (_%g2302623046%_) - (if (gx#stx-pair/null? _%g2302623046%_) - (let ((_g27347_ - (gx#syntax-split-splice - _%g2302623046%_ - '0))) - (begin - (let ((_g27348_ - (let () - (declare (not safe)) - (if (##values? _g27347_) - (##vector-length - _g27347_) - 1)))) - (if (not (let () + (##car _%e2324323276%_))) + (_%lp-tl2324523283%_ + (let () + (declare (not safe)) + (##cdr _%e2324323276%_)))) + (_%loop2324223266%_ + _%lp-tl2324523283%_ + (cons _%lp-hd2324423280%_ _%ugetf2324623273%_)))) + (let ((_%ugetf2324723286%_ + (reverse _%ugetf2324623273%_))) + ((lambda (_%L23290%_) + (let* ((_%g2330723324%_ + (lambda (_%g2330823320%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2330823320%_))) + (_%g2330624735%_ + (lambda (_%g2330823328%_) + (if (gx#stx-pair/null? _%g2330823328%_) + (let ((_g27310_ + (gx#syntax-split-splice + _%g2330823328%_ + '0))) + (begin + (let ((_g27311_ + (let () (declare (not safe)) - (##fx= _g27348_ 2))) - (error "Context expects 2 values" - _g27348_))) - (let ((_%target2302823049%_ - (let () - (declare (not safe)) - (##vector-ref - _g27347_ - 0))) - (_%tl2303023052%_ - (let () - (declare (not safe)) - (##vector-ref - _g27347_ - 1)))) - (if (gx#stx-null? - _%tl2303023052%_) - (letrec ((_%loop2303123055%_ - (lambda (_%hd2302923059%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%mixin-slot2303523062%_) - (if (gx#stx-pair? _%hd2302923059%_) - (let ((_%e2303223065%_ - (gx#syntax-e _%hd2302923059%_))) - (let ((_%lp-hd2303323069%_ - (let () - (declare (not safe)) - (##car _%e2303223065%_))) - (_%lp-tl2303423072%_ - (let () - (declare (not safe)) - (##cdr _%e2303223065%_)))) - (let ((__tmp27349 - (cons _%lp-hd2303323069%_ - _%mixin-slot2303523062%_))) - (declare (not safe)) - (_%loop2303123055%_ - _%lp-tl2303423072%_ - __tmp27349)))) - (let ((_%mixin-slot2303623075%_ - (reverse _%mixin-slot2303523062%_))) - ((lambda (_%L23079%_) - (let () - (let* ((_%g2309723114%_ - (lambda (_%g2309823110%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2309823110%_))) - (_%g2309624781%_ - (lambda (_%g2309823118%_) - (if (gx#stx-pair/null? - _%g2309823118%_) - (let ((_g27350_ - (gx#syntax-split-splice - _%g2309823118%_ - '0))) - (begin - (let ((_g27351_ - (let () - (declare - (not safe)) - (if (##values? + (if (##values? + _g27310_) + (##vector-length + _g27310_) + 1)))) + (if (not (let () + (declare + (not safe)) + (##fx= _g27311_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g27350_) - (##vector-length _g27350_) - 1)))) + 2))) + (error "Context expects 2 values" _g27311_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (not (let () - (declare + (let ((_%target2331023331%_ + (let () + (declare (not safe)) + (##vector-ref + _g27310_ + 0))) + (_%tl2331223334%_ + (let () + (declare (not safe)) + (##vector-ref + _g27310_ + 1)))) + (if (gx#stx-null? + _%tl2331223334%_) + (letrec ((_%loop2331323337%_ + (lambda (_%hd2331123341%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%usetf2331723344%_) + (if (gx#stx-pair? _%hd2331123341%_) + (let ((_%e2331423347%_ + (gx#syntax-e _%hd2331123341%_))) + (let ((_%lp-hd2331523351%_ + (let () + (declare (not safe)) + (##car _%e2331423347%_))) + (_%lp-tl2331623354%_ + (let () + (declare (not safe)) + (##cdr _%e2331423347%_)))) + (_%loop2331323337%_ + _%lp-tl2331623354%_ + (cons _%lp-hd2331523351%_ + _%usetf2331723344%_)))) + (let ((_%usetf2331823357%_ + (reverse _%usetf2331723344%_))) + ((lambda (_%L23361%_) + (let* ((_%g2337823395%_ + (lambda (_%g2337923391%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2337923391%_))) + (_%g2337724718%_ + (lambda (_%g2337923399%_) + (if (gx#stx-pair/null? + _%g2337923399%_) + (let ((_g27312_ + (gx#syntax-split-splice + _%g2337923399%_ + '0))) + (begin + (let ((_g27313_ + (let () + (declare + (not safe)) + (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##fx= _g27351_ 2))) - (error "Context expects 2 values" _g27351_))) + _g27312_) + (##vector-length _g27312_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g27313_ 2))) + (error "Context expects 2 values" _g27313_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2310023121%_ - (let () - (declare - (not safe)) - (##vector-ref - _g27350_ - 0))) - (_%tl2310223124%_ - (let () - (declare - (not safe)) - (##vector-ref - _g27350_ - 1)))) - (if (gx#stx-null? - _%tl2310223124%_) - (letrec ((_%loop2310323127%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd2310123131%_ _%mixin-getf2310723134%_) - (if (gx#stx-pair? _%hd2310123131%_) - (let ((_%e2310423137%_ - (gx#syntax-e _%hd2310123131%_))) - (let ((_%lp-hd2310523141%_ - (let () - (declare (not safe)) - (##car _%e2310423137%_))) - (_%lp-tl2310623144%_ - (let () - (declare (not safe)) - (##cdr _%e2310423137%_)))) - (let ((__tmp27352 - (cons _%lp-hd2310523141%_ - _%mixin-getf2310723134%_))) - (declare (not safe)) - (_%loop2310323127%_ - _%lp-tl2310623144%_ - __tmp27352)))) - (let ((_%mixin-getf2310823147%_ - (reverse _%mixin-getf2310723134%_))) - ((lambda (_%L23151%_) - (let () - (let* ((_%g2316823185%_ - (lambda (_%g2316923181%_) + (let ((_%target2338123402%_ + (let () + (declare + (not safe)) + (##vector-ref + _g27312_ + 0))) + (_%tl2338323405%_ + (let () + (declare + (not safe)) + (##vector-ref + _g27312_ + 1)))) + (if (gx#stx-null? + _%tl2338323405%_) + (letrec ((_%loop2338423408%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd2338223412%_ + _%mixin-ugetf2338823415%_) + (if (gx#stx-pair? _%hd2338223412%_) + (let ((_%e2338523418%_ + (gx#syntax-e _%hd2338223412%_))) + (let ((_%lp-hd2338623422%_ + (let () + (declare (not safe)) + (##car _%e2338523418%_))) + (_%lp-tl2338723425%_ + (let () + (declare (not safe)) + (##cdr _%e2338523418%_)))) + (_%loop2338423408%_ + _%lp-tl2338723425%_ + (cons _%lp-hd2338623422%_ + _%mixin-ugetf2338823415%_)))) + (let ((_%mixin-ugetf2338923428%_ + (reverse _%mixin-ugetf2338823415%_))) + ((lambda (_%L23432%_) + (let* ((_%g2344923466%_ + (lambda (_%g2345023462%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2316923181%_))) - (_%g2316724772%_ - (lambda (_%g2316923189%_) + _%g2345023462%_))) + (_%g2344824701%_ + (lambda (_%g2345023470%_) (if (gx#stx-pair/null? - _%g2316923189%_) - (let ((_g27353_ + _%g2345023470%_) + (let ((_g27314_ (gx#syntax-split-splice - _%g2316923189%_ + _%g2345023470%_ '0))) (begin - (let ((_g27354_ + (let ((_g27315_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g27353_) - (##vector-length _g27353_) + (if (##values? _g27314_) + (##vector-length _g27314_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27354_ 2))) - (error "Context expects 2 values" _g27354_))) - (let ((_%target2317123192%_ + (if (not (let () (declare (not safe)) (##fx= _g27315_ 2))) + (error "Context expects 2 values" _g27315_))) + (let ((_%target2345223473%_ (let () (declare (not safe)) - (##vector-ref _g27353_ 0))) - (_%tl2317323195%_ + (##vector-ref _g27314_ 0))) + (_%tl2345423476%_ (let () (declare (not safe)) - (##vector-ref _g27353_ 1)))) - (if (gx#stx-null? _%tl2317323195%_) - (letrec ((_%loop2317423198%_ - (lambda (_%hd2317223202%_ - _%mixin-setf2317823205%_) - (if (gx#stx-pair? _%hd2317223202%_) - (let ((_%e2317523208%_ - (gx#syntax-e _%hd2317223202%_))) - (let ((_%lp-hd2317623212%_ + (##vector-ref _g27314_ 1)))) + (if (gx#stx-null? _%tl2345423476%_) + (letrec ((_%loop2345523479%_ + (lambda (_%hd2345323483%_ + _%mixin-usetf2345923486%_) + (if (gx#stx-pair? _%hd2345323483%_) + (let ((_%e2345623489%_ + (gx#syntax-e _%hd2345323483%_))) + (let ((_%lp-hd2345723493%_ (let () (declare (not safe)) - (##car _%e2317523208%_))) - (_%lp-tl2317723215%_ + (##car _%e2345623489%_))) + (_%lp-tl2345823496%_ (let () (declare (not safe)) - (##cdr _%e2317523208%_)))) - (let ((__tmp27355 - (cons _%lp-hd2317623212%_ - _%mixin-setf2317823205%_))) - (declare (not safe)) - (_%loop2317423198%_ - _%lp-tl2317723215%_ - __tmp27355)))) - (let ((_%mixin-setf2317923218%_ - (reverse _%mixin-setf2317823205%_))) - ((lambda (_%L23222%_) - (let () - (let* ((_%g2323923256%_ - (lambda (_%g2324023252%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2324023252%_))) - (_%g2323824755%_ - (lambda (_%g2324023260%_) - (if (gx#stx-pair/null? - _%g2324023260%_) - (let ((_g27356_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g2324023260%_ '0))) - (begin - (let ((_g27357_ - (let () - (declare (not safe)) - (if (##values? _g27356_) - (##vector-length _g27356_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g27357_ 2))) - (error "Context expects 2 values" _g27357_))) - (let ((_%target2324223263%_ - (let () - (declare (not safe)) - (##vector-ref _g27356_ 0))) - (_%tl2324423266%_ - (let () - (declare (not safe)) - (##vector-ref _g27356_ 1)))) - (if (gx#stx-null? _%tl2324423266%_) - (letrec ((_%loop2324523269%_ - (lambda (_%hd2324323273%_ - _%ugetf2324923276%_) - (if (gx#stx-pair? _%hd2324323273%_) - (let ((_%e2324623279%_ - (gx#syntax-e - _%hd2324323273%_))) - (let ((_%lp-hd2324723283%_ - (let () - (declare (not safe)) - (##car _%e2324623279%_))) - (_%lp-tl2324823286%_ - (let () - (declare (not safe)) - (##cdr _%e2324623279%_)))) - (let ((__tmp27358 - (cons _%lp-hd2324723283%_ - _%ugetf2324923276%_))) - (declare (not safe)) - (_%loop2324523269%_ - _%lp-tl2324823286%_ - __tmp27358)))) - (let ((_%ugetf2325023289%_ - (reverse _%ugetf2324923276%_))) - ((lambda (_%L23293%_) - (let () - (let* ((_%g2331023327%_ - (lambda (_%g2331123323%_) - (gx#raise-syntax-error + (##cdr _%e2345623489%_)))) + (_%loop2345523479%_ + _%lp-tl2345823496%_ + (cons _%lp-hd2345723493%_ + _%mixin-usetf2345923486%_)))) + (let ((_%mixin-usetf2346023499%_ + (reverse _%mixin-usetf2345923486%_))) + ((lambda (_%L23503%_) + (let* ((_%type-slots23538%_ + (if (gx#stx-null? + _%slots22645%_) + '() + (cons 'slots: + (cons (begin +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-check-splice-targets + _%L23002%_ + _%L22931%_ + _%L22860%_) + (foldr (lambda (_%g2352323528%_ + _%g2352423531%_ + _%g2352523533%_ + _%g2352623535%_) + (cons (cons _%g2352523533%_ + (cons _%g2352423531%_ + (cons _%g2352323528%_ + '()))) + _%g2352623535%_)) + '() + _%L23002%_ + _%L22931%_ + _%L22860%_)) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%type-mixin-slots23559%_ + (if (gx#stx-null? + _%mixin-slots23019%_) + '() + (cons 'mixin: + (cons (begin +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-check-splice-targets + _%L23219%_ + _%L23148%_ + _%L23076%_) + (foldr (lambda (_%g2354423549%_ + _%g2354523552%_ + _%g2354623554%_ + _%g2354723556%_) + (cons (cons _%g2354623554%_ + (cons _%g2354523552%_ + (cons _%g2354423549%_ + '()))) + _%g2354723556%_)) + '() + _%L23219%_ + _%L23148%_ + _%L23076%_)) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%type-name23566%_ + (cons 'name: + (cons (let ((_%$e23562%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '"Bad syntax; invalid match target" - _%g2331123323%_))) - (_%g2330924738%_ - (lambda (_%g2331123331%_) - (if (gx#stx-pair/null? _%g2331123331%_) - (let ((_g27359_ - (gx#syntax-split-splice - _%g2331123331%_ - '0))) - (begin - (let ((_g27360_ - (let () - (declare (not safe)) - (if (##values? _g27359_) - (##vector-length _g27359_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g27360_ 2))) - (error "Context expects 2 values" - _g27360_))) - (let ((_%target2331323334%_ - (let () - (declare (not safe)) - (##vector-ref _g27359_ 0))) - (_%tl2331523337%_ - (let () - (declare (not safe)) - (##vector-ref _g27359_ 1)))) - (if (gx#stx-null? _%tl2331523337%_) - (letrec ((_%loop2331623340%_ - (lambda (_%hd2331423344%_ - _%usetf2332023347%_) - (if (gx#stx-pair? - _%hd2331423344%_) - (let ((_%e2331723350%_ - (gx#syntax-e - _%hd2331423344%_))) - (let ((_%lp-hd2331823354%_ - (let () + (gx#stx-getq 'name: _%body22646%_))) + (if _%$e23562%_ _%$e23562%_ _%id22643%_)) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%type-id23573%_ + (cons 'id: + (cons (let ((_%$e23569%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _%e2331723350%_))) - (_%lp-tl2331923357%_ - (let () (declare (not safe)) (##cdr _%e2331723350%_)))) - (let ((__tmp27361 - (cons _%lp-hd2331823354%_ _%usetf2332023347%_))) - (declare (not safe)) - (_%loop2331623340%_ _%lp-tl2331923357%_ __tmp27361)))) - (let ((_%usetf2332123360%_ (reverse _%usetf2332023347%_))) - ((lambda (_%L23364%_) - (let () - (let* ((_%g2338123398%_ - (lambda (_%g2338223394%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2338223394%_))) - (_%g2338024721%_ - (lambda (_%g2338223402%_) - (if (gx#stx-pair/null? _%g2338223402%_) - (let ((_g27362_ - (gx#syntax-split-splice - _%g2338223402%_ - '0))) - (begin - (let ((_g27363_ - (let () - (declare (not safe)) - (if (##values? _g27362_) - (##vector-length _g27362_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g27363_ 2))) - (error "Context expects 2 values" - _g27363_))) - (let ((_%target2338423405%_ - (let () - (declare (not safe)) - (##vector-ref _g27362_ 0))) - (_%tl2338623408%_ - (let () - (declare (not safe)) - (##vector-ref _g27362_ 1)))) - (if (gx#stx-null? _%tl2338623408%_) - (letrec ((_%loop2338723411%_ - (lambda (_%hd2338523415%_ - _%mixin-ugetf2339123418%_) - (if (gx#stx-pair? - _%hd2338523415%_) - (let ((_%e2338823421%_ + (gx#stx-getq 'id: _%body22646%_))) + (if _%$e23569%_ + _%$e23569%_ + (let () + (declare (not safe)) + (|gerbil/core/mop~MOP-1[1]#make-class-type-id| + _%L22678%_)))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%type-constructor23588%_ + (let ((_%$e23584%_ + (let ((_%e2357523577%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-getq 'constructor: _%body22646%_))) + (if _%e2357523577%_ + (let ((_%e23581%_ _%e2357523577%_)) + (cons 'constructor: (cons _%e23581%_ '()))) + '#f)))) + (if _%$e23584%_ _%$e23584%_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%properties23626%_ + (let* ((_%properties23591%_ + (if (gx#stx-e +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-getq 'transparent: _%body22646%_)) + (cons (cons 'transparent: '#t) '()) + '())) + (_%properties23606%_ + (let ((_%$e23594%_ + (gx#stx-e (gx#stx-getq 'print: _%body22646%_)))) + (if _%$e23594%_ + ((lambda (_%print23598%_) + (let ((_%print23601%_ + (if (eq? _%print23598%_ '#t) + _%slots22645%_ + _%print23598%_))) + (cons (cons 'print: _%print23601%_) + _%properties23591%_))) + _%$e23594%_) + _%properties23591%_))) + (_%properties23621%_ + (let ((_%$e23609%_ + (gx#stx-e (gx#stx-getq 'equal: _%body22646%_)))) + (if _%$e23609%_ + ((lambda (_%equal23613%_) + (let ((_%equal23616%_ + (if (eq? _%equal23613%_ '#t) + _%slots22645%_ + _%equal23613%_))) + (cons (cons 'equal: _%equal23616%_) + _%properties23606%_))) + _%$e23609%_) + _%properties23606%_)))) + _%properties23621%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%type-properties23667%_ + (if (null? _%properties23626%_) + '() + (let* ((_%g2362923637%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g2363023633%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2363023633%_))) + (_%g2362823663%_ + (lambda (_%g2363023641%_) + ((lambda (_%L23644%_) + (cons 'properties: + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L23644%_ '())) + '()))) + _%g2363023641%_)))) + (_%g2362823663%_ _%properties23626%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%metaclass23679%_ + (let ((_%$e23670%_ + (gx#stx-getq + 'metaclass: + _%body22646%_))) + (if _%$e23670%_ + ((lambda (_%metaclass23674%_) + (if (gx#identifier? +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%metaclass23674%_) + _%metaclass23674%_ + '#f)) + _%$e23670%_) + '#f))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%type-metaclass23682%_ + (if _%metaclass23679%_ + (cons 'metaclass: + (cons _%metaclass23679%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%final?23685%_ + (gx#stx-e + (gx#stx-getq + 'final: + _%body22646%_))) + (_%type-struct23688%_ + (cons 'struct: + (cons _%struct?22660%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%type-final23691%_ + (cons 'final: + (cons _%final?23685%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2369423711%_ + (lambda (_%g2369523707%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2369523707%_))) + (_%g2369324697%_ + (lambda (_%g2369523715%_) + (if (gx#stx-pair/null? + _%g2369523715%_) + (let ((_g27316_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd2338523415%_))) - (let ((_%lp-hd2338923425%_ + (gx#syntax-split-splice _%g2369523715%_ '0))) + (begin + (let ((_g27317_ (let () (declare (not safe)) - (##car _%e2338823421%_))) - (_%lp-tl2339023428%_ + (if (##values? _g27316_) + (##vector-length _g27316_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g27317_ 2))) + (error "Context expects 2 values" _g27317_))) + (let ((_%target2369723718%_ (let () (declare (not safe)) - (##cdr _%e2338823421%_)))) - (let ((__tmp27364 - (cons _%lp-hd2338923425%_ - _%mixin-ugetf2339123418%_))) - (declare (not safe)) - (_%loop2338723411%_ - _%lp-tl2339023428%_ - __tmp27364)))) - (let ((_%mixin-ugetf2339223431%_ - (reverse _%mixin-ugetf2339123418%_))) - ((lambda (_%L23435%_) - (let () - (let* ((_%g2345223469%_ - (lambda (_%g2345323465%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2345323465%_))) - (_%g2345124704%_ - (lambda (_%g2345323473%_) - (if (gx#stx-pair/null? _%g2345323473%_) - (let ((_g27365_ - (gx#syntax-split-splice - _%g2345323473%_ - '0))) - (begin - (let ((_g27366_ - (let () - (declare (not safe)) - (if (##values? _g27365_) - (##vector-length - _g27365_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g27366_ 2))) - (error "Context expects 2 values" - _g27366_))) - (let ((_%target2345523476%_ - (let () - (declare (not safe)) - (##vector-ref - _g27365_ - 0))) - (_%tl2345723479%_ - (let () - (declare (not safe)) - (##vector-ref - _g27365_ - 1)))) - (if (gx#stx-null? - _%tl2345723479%_) - (letrec ((_%loop2345823482%_ - (lambda (_%hd2345623486%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%mixin-usetf2346223489%_) - (if (gx#stx-pair? _%hd2345623486%_) - (let ((_%e2345923492%_ - (gx#syntax-e _%hd2345623486%_))) - (let ((_%lp-hd2346023496%_ - (let () - (declare (not safe)) - (##car _%e2345923492%_))) - (_%lp-tl2346123499%_ - (let () - (declare (not safe)) - (##cdr _%e2345923492%_)))) - (let ((__tmp27367 - (cons _%lp-hd2346023496%_ - _%mixin-usetf2346223489%_))) - (declare (not safe)) - (_%loop2345823482%_ - _%lp-tl2346123499%_ - __tmp27367)))) - (let ((_%mixin-usetf2346323502%_ - (reverse _%mixin-usetf2346223489%_))) - ((lambda (_%L23506%_) - (let () - (let* ((_%type-slots23541%_ - (if (gx#stx-null? _%slots22648%_) - (let () '()) - (let () - (cons 'slots: - (cons (begin - (gx#syntax-check-splice-targets - _%L23005%_ - _%L22934%_ - _%L22863%_) - (foldr (lambda (_%g2352623531%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2352723534%_ - _%g2352823536%_ - _%g2352923538%_) - (cons (cons _%g2352823536%_ - (cons _%g2352723534%_ - (cons _%g2352623531%_ '()))) - _%g2352923538%_)) - '() - _%L23005%_ - _%L22934%_ - _%L22863%_)) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-mixin-slots23562%_ - (if (gx#stx-null? - _%mixin-slots23022%_) - (let () '()) - (let () - (cons 'mixin: - (cons (begin - (gx#syntax-check-splice-targets - _%L23222%_ - _%L23151%_ - _%L23079%_) - (foldr (lambda (_%g2354723552%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2354823555%_ - _%g2354923557%_ - _%g2355023559%_) - (cons (cons _%g2354923557%_ - (cons _%g2354823555%_ - (cons _%g2354723552%_ '()))) - _%g2355023559%_)) - '() - _%L23222%_ - _%L23151%_ - _%L23079%_)) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-name23569%_ - (cons 'name: - (cons (let ((_%$e23565%_ - (gx#stx-getq - 'name: - _%body22649%_))) - (if _%$e23565%_ - _%$e23565%_ - _%id22646%_)) - '()))) - (_%type-id23576%_ - (cons 'id: - (cons (let ((_%$e23572%_ - (gx#stx-getq - 'id: - _%body22649%_))) - (if _%$e23572%_ - _%$e23572%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L22681%_)))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-constructor23591%_ - (let ((_%$e23587%_ - (let ((_%e2357823580%_ - (gx#stx-getq - 'constructor: - _%body22649%_))) - (if _%e2357823580%_ - (let ((_%e23584%_ - _%e2357823580%_)) - (cons 'constructor: - (cons _%e23584%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) - '#f)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e23587%_ _%$e23587%_ '()))) - (_%properties23629%_ - (let* ((_%properties23594%_ - (if (gx#stx-e - (gx#stx-getq - 'transparent: - _%body22649%_)) - (cons (cons 'transparent: -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#t) - '()) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%properties23609%_ - (let ((_%$e23597%_ - (gx#stx-e - (gx#stx-getq - 'print: - _%body22649%_)))) - (if _%$e23597%_ - ((lambda (_%print23601%_) - (let ((_%print23604%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (eq? _%print23601%_ '#t) - _%slots22648%_ - _%print23601%_))) - (cons (cons 'print: _%print23604%_) - _%properties23594%_))) - _%$e23597%_) - (let () _%properties23594%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%properties23624%_ - (let ((_%$e23612%_ - (gx#stx-e - (gx#stx-getq - 'equal: - _%body22649%_)))) - (if _%$e23612%_ - ((lambda (_%equal23616%_) - (let ((_%equal23619%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (eq? _%equal23616%_ '#t) - _%slots22648%_ - _%equal23616%_))) - (cons (cons 'equal: _%equal23619%_) - _%properties23609%_))) - _%$e23612%_) - (let () _%properties23609%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%properties23624%_)) - (_%type-properties23670%_ - (if (let () - (declare (not safe)) - (null? _%properties23629%_)) - '() - (let* ((_%g2363223640%_ - (lambda (_%g2363323636%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2363323636%_))) - (_%g2363123666%_ - (lambda (_%g2363323644%_) - ((lambda (_%L23647%_) - (let () - (cons 'properties: + (##vector-ref _g27316_ 0))) + (_%tl2369923721%_ + (let () + (declare (not safe)) + (##vector-ref _g27316_ 1)))) + (if (gx#stx-null? _%tl2369923721%_) + (letrec ((_%loop2370023724%_ + (lambda (_%hd2369823728%_ + _%type-body2370423731%_) + (if (gx#stx-pair? _%hd2369823728%_) + (let ((_%e2370123734%_ + (gx#syntax-e + _%hd2369823728%_))) + (let ((_%lp-hd2370223738%_ + (let () + (declare (not safe)) + (##car _%e2370123734%_))) + (_%lp-tl2370323741%_ + (let () + (declare (not safe)) + (##cdr _%e2370123734%_)))) + (_%loop2370023724%_ + _%lp-tl2370323741%_ + (cons _%lp-hd2370223738%_ + _%type-body2370423731%_)))) + (let ((_%type-body2370523744%_ + (reverse _%type-body2370423731%_))) + ((lambda (_%L23748%_) + (let* ((_%g2376923777%_ + (lambda (_%g2377023773%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2377023773%_))) + (_%g2376824685%_ + (lambda (_%g2377023781%_) + ((lambda (_%L23784%_) + (let* ((_%g2379723805%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g2379823801%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2379823801%_))) + (_%g2379624614%_ + (lambda (_%g2379823809%_) + ((lambda (_%L23812%_) + (let* ((_%g2382523833%_ + (lambda (_%g2382623829%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2382623829%_))) + (_%g2382424579%_ + (lambda (_%g2382623837%_) + ((lambda (_%L23840%_) + (let* ((_%g2385323861%_ + (lambda (_%g2385423857%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2385423857%_))) + (_%g2385224493%_ + (lambda (_%g2385423865%_) + ((lambda (_%L23868%_) + (let* ((_%g2388123889%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L23647%_ '())) - '())))) - _%g2363323644%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g2363123666%_ - _%properties23629%_)))) - (_%metaclass23682%_ - (let ((_%$e23673%_ - (gx#stx-getq - 'metaclass: - _%body22649%_))) - (if _%$e23673%_ - ((lambda (_%metaclass23677%_) - (if (gx#identifier? - _%metaclass23677%_) - _%metaclass23677%_ - '#f)) - _%$e23673%_) - (let () '#f)))) - (_%type-metaclass23685%_ - (if _%metaclass23682%_ - (cons 'metaclass: - (cons _%metaclass23682%_ - '())) - '())) - (_%final?23688%_ - (gx#stx-e - (gx#stx-getq - 'final: - _%body22649%_))) - (_%type-struct23691%_ - (cons 'struct: - (cons _%struct?22663%_ '()))) - (_%type-final23694%_ - (cons 'final: - (cons _%final?23688%_ '()))) - (_%g2369723714%_ - (lambda (_%g2369823710%_) + (lambda (_%g2388223885%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2388223885%_))) + (_%g2388024481%_ + (lambda (_%g2388223893%_) + ((lambda (_%L23896%_) + (let* ((_%g2390923917%_ + (lambda (_%g2391023913%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2369823710%_))) - (_%g2369624700%_ - (lambda (_%g2369823718%_) - (if (gx#stx-pair/null? - _%g2369823718%_) - (let ((_g27368_ - (gx#syntax-split-splice - _%g2369823718%_ - '0))) - (begin - (let ((_g27369_ - (let () - (declare - (not safe)) - (if (##values? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g27368_) - (##vector-length _g27368_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27369_ 2))) - (error "Context expects 2 values" _g27369_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2370023721%_ - (let () - (declare - (not safe)) - (##vector-ref - _g27368_ - 0))) - (_%tl2370223724%_ - (let () - (declare - (not safe)) - (##vector-ref - _g27368_ - 1)))) - (if (gx#stx-null? - _%tl2370223724%_) - (letrec ((_%loop2370323727%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd2370123731%_ _%type-body2370723734%_) - (if (gx#stx-pair? _%hd2370123731%_) - (let ((_%e2370423737%_ - (gx#syntax-e _%hd2370123731%_))) - (let ((_%lp-hd2370523741%_ - (let () - (declare (not safe)) - (##car _%e2370423737%_))) - (_%lp-tl2370623744%_ - (let () - (declare (not safe)) - (##cdr _%e2370423737%_)))) - (let ((__tmp27370 - (cons _%lp-hd2370523741%_ - _%type-body2370723734%_))) - (declare (not safe)) - (_%loop2370323727%_ - _%lp-tl2370623744%_ - __tmp27370)))) - (let ((_%type-body2370823747%_ - (reverse _%type-body2370723734%_))) - ((lambda (_%L23751%_) - (let () - (let* ((_%g2377223780%_ - (lambda (_%g2377323776%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2377323776%_))) - (_%g2377124688%_ - (lambda (_%g2377323784%_) - ((lambda (_%L23787%_) - (let () - (let* ((_%g2380023808%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2380123804%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2380123804%_))) - (_%g2379924617%_ - (lambda (_%g2380123812%_) - ((lambda (_%L23815%_) - (let () - (let* ((_%g2382823836%_ - (lambda (_%g2382923832%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2382923832%_))) - (_%g2382724582%_ - (lambda (_%g2382923840%_) - ((lambda (_%L23843%_) - (let () - (let* ((_%g2385623864%_ - (lambda (_%g2385723860%_) + _%g2391023913%_))) + (_%g2390824477%_ + (lambda (_%g2391023921%_) + ((lambda (_%L23924%_) + (let* ((_%g2393723945%_ + (lambda (_%g2393823941%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2393823941%_))) + (_%g2393624473%_ + (lambda (_%g2393823949%_) + ((lambda (_%L23952%_) + (let* ((_%g2396523973%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g2396623969%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2396623969%_))) + (_%g2396424438%_ + (lambda (_%g2396623977%_) + ((lambda (_%L23980%_) + (let* ((_%g2399324001%_ + (lambda (_%g2399423997%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2399423997%_))) + (_%g2399224367%_ + (lambda (_%g2399424005%_) + ((lambda (_%L24008%_) + (let* ((_%g2402124029%_ + (lambda (_%g2402224025%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2385723860%_))) - (_%g2385524496%_ - (lambda (_%g2385723868%_) - ((lambda (_%L23871%_) - (let () - (let* ((_%g2388423892%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2388523888%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2388523888%_))) - (_%g2388324484%_ - (lambda (_%g2388523896%_) - ((lambda (_%L23899%_) - (let () - (let* ((_%g2391223920%_ - (lambda (_%g2391323916%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2391323916%_))) - (_%g2391124480%_ - (lambda (_%g2391323924%_) - ((lambda (_%L23927%_) - (let () - (let* ((_%g2394023948%_ - (lambda (_%g2394123944%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2394123944%_))) - (_%g2393924476%_ - (lambda (_%g2394123952%_) - ((lambda (_%L23955%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (let* ((_%g2396823976%_ - (lambda (_%g2396923972%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2396923972%_))) - (_%g2396724441%_ - (lambda (_%g2396923980%_) - ((lambda (_%L23983%_) - (let () - (let* ((_%g2399624004%_ - (lambda (_%g2399724000%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2399724000%_))) - (_%g2399524370%_ - (lambda (_%g2399724008%_) - ((lambda (_%L24011%_) - (let () - (let* ((_%g2402424032%_ + _%g2402224025%_))) + (_%g2402024363%_ + (lambda (_%g2402224033%_) + ((lambda (_%L24036%_) + (let* ((_%g2404924057%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2402524028%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2402524028%_))) - (_%g2402324366%_ - (lambda (_%g2402524036%_) - ((lambda (_%L24039%_) - (let () - (let* ((_%g2405224060%_ - (lambda (_%g2405324056%_) + (lambda (_%g2405024053%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2405024053%_))) + (_%g2404824359%_ + (lambda (_%g2405024061%_) + ((lambda (_%L24064%_) + (let* ((_%g2407724085%_ + (lambda (_%g2407824081%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2407824081%_))) + (_%g2407624355%_ + (lambda (_%g2407824089%_) + ((lambda (_%L24092%_) + (let* ((_%g2410524113%_ + (lambda (_%g2410624109%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2410624109%_))) + (_%g2410424329%_ + (lambda (_%g2410624117%_) + ((lambda (_%L24120%_) + (let* ((_%g2413324141%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g2413424137%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2413424137%_))) + (_%g2413224303%_ + (lambda (_%g2413424145%_) + ((lambda (_%L24148%_) + (let* ((_%g2416124169%_ + (lambda (_%g2416224165%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2405324056%_))) - (_%g2405124362%_ - (lambda (_%g2405324064%_) - ((lambda (_%L24067%_) - (let () - (let* ((_%g2408024088%_ - (lambda (_%g2408124084%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2408124084%_))) - (_%g2407924358%_ - (lambda (_%g2408124092%_) - ((lambda (_%L24095%_) - (let () - (let* ((_%g2410824116%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2410924112%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2410924112%_))) - (_%g2410724332%_ - (lambda (_%g2410924120%_) - ((lambda (_%L24123%_) - (let () - (let* ((_%g2413624144%_ - (lambda (_%g2413724140%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2413724140%_))) - (_%g2413524306%_ - (lambda (_%g2413724148%_) - ((lambda (_%L24151%_) - (let () - (let* ((_%g2416424172%_ - (lambda (_%g2416524168%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2416524168%_))) - (_%g2416324280%_ - (lambda (_%g2416524176%_) - ((lambda (_%L24179%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (let* ((_%g2419224200%_ - (lambda (_%g2419324196%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2419324196%_))) - (_%g2419124254%_ - (lambda (_%g2419324204%_) - ((lambda (_%L24207%_) - (let () - (let* ((_%g2422024228%_ - (lambda (_%g2422124224%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2422124224%_))) - (_%g2421924250%_ - (lambda (_%g2422124232%_) - ((lambda (_%L24235%_) - (let ((__tmp27371 - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g2416224165%_))) + (_%g2416024277%_ + (lambda (_%g2416224173%_) + ((lambda (_%L24176%_) + (let* ((_%g2418924197%_ + (lambda (_%g2419024193%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2419024193%_))) + (_%g2418824251%_ + (lambda (_%g2419024201%_) + ((lambda (_%L24204%_) + (let* ((_%g2421724225%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g2421824221%_) + (gx#raise-syntax-error '#f - 'begin) - (cons _%L23787%_ (cons _%L24235%_ '()))))) - (declare (not safe)) - (_%wrap22651%_ __tmp27371))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2422124232%_))) - (__tmp27372 - (let ((__tmp27373 - (cons (gx#datum->syntax - '#f - 'defsyntax) - (cons _%L22681%_ + '"Bad syntax; invalid match target" + _%g2421824221%_))) + (_%g2421624247%_ + (lambda (_%g2421824229%_) + ((lambda (_%L24232%_) + (_%wrap22648%_ + (cons (gx#datum->syntax '#f 'begin) + (cons _%L23784%_ + (cons _%L24232%_ '()))))) + _%g2421824229%_)))) + (_%g2421624247%_ + (_%wrap22648%_ + (cons (gx#datum->syntax '#f 'defsyntax) + (cons _%L22678%_ + (cons (cons (gx#datum->syntax + '#f + 'make-class-type-info) + (cons 'id: + (cons _%L23812%_ + (cons 'name: + (cons _%L23840%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax - '#f - 'make-class-type-info) - (cons 'id: - (cons _%L23815%_ - (cons 'name: - (cons _%L23843%_ + (cons 'slots: + (cons _%L23896%_ + (cons 'super: + (cons _%L23868%_ + (cons 'struct?: + (cons _%L23924%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'slots: - (cons _%L23899%_ - (cons 'super: - (cons _%L23871%_ - (cons 'struct?: - (cons _%L23927%_ - (cons 'final?: + (cons 'final?: + (cons _%L23952%_ + (cons 'metaclass: + (cons _%L23980%_ + (cons 'constructor-method: + (cons _%L24008%_ + (cons 'type-descriptor: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L23955%_ - (cons 'metaclass: - (cons _%L23983%_ - (cons 'constructor-method: - (cons _%L24011%_ - (cons 'type-descriptor: - (cons _%L24039%_ + (cons _%L24036%_ + (cons 'constructor: + (cons _%L24064%_ + (cons 'predicate: + (cons _%L24092%_ + (cons 'accessors: + (cons _%L24120%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'constructor: - (cons _%L24067%_ - (cons 'predicate: - (cons _%L24095%_ - (cons 'accessors: - (cons _%L24123%_ + (cons 'mutators: + (cons _%L24148%_ + (cons 'unchecked-accessors: + (cons _%L24176%_ + (cons 'unchecked-mutators: + (cons _%L24204%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'mutators: - (cons _%L24151%_ - (cons 'unchecked-accessors: - (cons _%L24179%_ - (cons 'unchecked-mutators: - (cons _%L24207%_ - '()))))))))))))))))))))))))))))))) + '()))))))))))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%wrap22651%_ - __tmp27373)))) - (declare (not safe)) - (_%g2421924250%_ __tmp27372)))) - _%g2419324204%_))) - (__tmp27374 + '()))))))) + _%g2419024201%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2418824251%_ + (cons (gx#datum->syntax + '#f + '@list) + (begin + (gx#syntax-check-splice-targets + _%L23361%_ + _%L22860%_) + (foldr (lambda (_%g2425424261%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g2425524264%_ + _%g2425624266%_) + (cons (cons (gx#datum->syntax '#f '@list) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%g2425524264%_ '())) + (cons ':: + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%g2425424261%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2425624266%_)) + (begin + (gx#syntax-check-splice-targets _%L23503%_ _%L23076%_) + (foldr (lambda (_%g2425724269%_ + _%g2425824272%_ + _%g2425924274%_) + (cons (cons (gx#datum->syntax '#f '@list) + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%g2425824272%_ + '())) + (cons ':: + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote-syntax) + (cons _%g2425724269%_ '())) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2425924274%_)) + '() + _%L23503%_ + _%L23076%_)) + _%L23361%_ + _%L22860%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2416224173%_)))) + (_%g2416024277%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L23364%_ - _%L22863%_) - (foldr (lambda (_%g2425724264%_ - _%g2425824267%_ - _%g2425924269%_) + _%L23290%_ + _%L22860%_) + (foldr (lambda (_%g2428024287%_ + _%g2428124290%_ + _%g2428224292%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2425824267%_ '())) + (cons _%g2428124290%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2425724264%_ '())) + (cons _%g2428024287%_ '())) '())))) - _%g2425924269%_)) + _%g2428224292%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L23506%_ - _%L23079%_) - (foldr (lambda (_%g2426024272%_ + _%L23432%_ + _%L23076%_) + (foldr (lambda (_%g2428324295%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2426124275%_ - _%g2426224277%_) + _%g2428424298%_ + _%g2428524300%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2426124275%_ '())) + (cons _%g2428424298%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2426024272%_ + (cons _%g2428324295%_ '())) '())))) - _%g2426224277%_)) + _%g2428524300%_)) '() - _%L23506%_ - _%L23079%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L23364%_ - _%L22863%_))))) - (declare (not safe)) - (_%g2419124254%_ __tmp27374)))) - _%g2416524176%_))) - (__tmp27375 - (cons (gx#datum->syntax '#f '@list) - (begin - (gx#syntax-check-splice-targets - _%L23293%_ - _%L22863%_) - (foldr (lambda (_%g2428324290%_ - _%g2428424293%_ - _%g2428524295%_) - (cons (cons (gx#datum->syntax '#f '@list) - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%g2428424293%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons ':: - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2428324290%_ '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2428524295%_)) - (begin - (gx#syntax-check-splice-targets - _%L23435%_ - _%L23079%_) - (foldr (lambda (_%g2428624298%_ - _%g2428724301%_ - _%g2428824303%_) - (cons (cons (gx#datum->syntax - '#f - '@list) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%g2428724301%_ '())) - (cons ':: - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2428624298%_ '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2428824303%_)) - '() - _%L23435%_ - _%L23079%_)) - _%L23293%_ - _%L22863%_))))) - (declare (not safe)) - (_%g2416324280%_ __tmp27375)))) + _%L23432%_ + _%L23076%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2413724148%_))) - (__tmp27376 - (cons (gx#datum->syntax + _%L23290%_ + _%L22860%_)))))) + _%g2413424145%_)))) + (_%g2413224303%_ + (cons (gx#datum->syntax '#f '@list) + (begin + (gx#syntax-check-splice-targets + _%L23002%_ + _%L22860%_) + (foldr (lambda (_%g2430624313%_ + _%g2430724316%_ + _%g2430824318%_) + (cons (cons (gx#datum->syntax '#f '@list) - (begin - (gx#syntax-check-splice-targets - _%L23005%_ - _%L22863%_) - (foldr (lambda (_%g2430924316%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2431024319%_ - _%g2431124321%_) - (cons (cons (gx#datum->syntax '#f '@list) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2431024319%_ '())) - (cons ':: - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%g2430924316%_ - '())) - '())))) - _%g2431124321%_)) - (begin - (gx#syntax-check-splice-targets _%L23222%_ _%L23079%_) - (foldr (lambda (_%g2431224324%_ - _%g2431324327%_ - _%g2431424329%_) - (cons (cons (gx#datum->syntax '#f '@list) - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%g2431324327%_ - '())) - (cons ':: - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote-syntax) - (cons _%g2431224324%_ '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2431424329%_)) - '() - _%L23222%_ - _%L23079%_)) - _%L23005%_ - _%L22863%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g2413524306%_ __tmp27376)))) - _%g2410924120%_))) - (__tmp27377 - (cons (gx#datum->syntax '#f '@list) - (begin - (gx#syntax-check-splice-targets - _%L22934%_ - _%L22863%_) - (foldr (lambda (_%g2433524342%_ - _%g2433624345%_ - _%g2433724347%_) - (cons (cons (gx#datum->syntax - '#f - '@list) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%g2433624345%_ '())) - (cons ':: - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2433524342%_ '())) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2433724347%_)) - (begin - (gx#syntax-check-splice-targets - _%L23151%_ - _%L23079%_) - (foldr (lambda (_%g2433824350%_ - _%g2433924353%_ - _%g2434024355%_) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@list) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2433924353%_ '())) - (cons ':: - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%g2433824350%_ '())) - '())))) - _%g2434024355%_)) - '() - _%L23151%_ - _%L23079%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L22934%_ - _%L22863%_))))) - (declare (not safe)) - (_%g2410724332%_ __tmp27377)))) - _%g2408124092%_))) - (__tmp27378 - (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L22768%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g2407924358%_ - __tmp27378)))) - _%g2405324064%_))) - (__tmp27379 - (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%L22740%_ '())))) - (declare (not safe)) - (_%g2405124362%_ __tmp27379)))) - _%g2402524036%_))) - (__tmp27380 - (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L22712%_ '())))) - (declare (not safe)) - (_%g2402324366%_ __tmp27380)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2399724008%_))) - (__tmp27381 - (if (let () - (declare (not safe)) - (null? _%type-constructor23591%_)) - '#f - (let* ((_%g2437424389%_ - (lambda (_%g2437524385%_) - (gx#raise-syntax-error -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '"Bad syntax; invalid match target" - _%g2437524385%_))) - (_%g2437324437%_ - (lambda (_%g2437524393%_) - (if (gx#stx-pair? _%g2437524393%_) - (let ((_%e2437924396%_ - (gx#syntax-e _%g2437524393%_))) - (let ((_%hd2437824400%_ - (let () - (declare (not safe)) - (##car _%e2437924396%_))) - (_%tl2437724403%_ - (let () - (declare (not safe)) - (##cdr _%e2437924396%_)))) - (if (gx#stx-datum? _%hd2437824400%_) - (let ((_%e2438024406%_ - (gx#stx-e _%hd2437824400%_))) - (if (equal? _%e2438024406%_ - 'constructor:) - (if (gx#stx-pair? _%tl2437724403%_) - (let ((_%e2438324410%_ - (gx#syntax-e - _%tl2437724403%_))) - (let ((_%hd2438224414%_ - (let () - (declare (not safe)) - (##car _%e2438324410%_))) - (_%tl2438124417%_ - (let () - (declare (not safe)) - (##cdr _%e2438324410%_)))) - (if (gx#stx-null? - _%tl2438124417%_) - ((lambda (_%L24420%_) - (let () - (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%g2430724316%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L24420%_ '())))) - _%hd2438224414%_) - (let () - (declare (not safe)) - (_%g2437424389%_ _%g2437524393%_))))) + '())) + (cons ':: + (cons (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _%g2430624313%_ '())) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g2437424389%_ - _%g2437524393%_))) - (let () - (declare (not safe)) - (_%g2437424389%_ - _%g2437524393%_)))) - (let () - (declare (not safe)) - (_%g2437424389%_ _%g2437524393%_))))) - (let () - (declare (not safe)) - (_%g2437424389%_ _%g2437524393%_)))))) - (declare (not safe)) - (_%g2437324437%_ _%type-constructor23591%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g2399524370%_ __tmp27381)))) - _%g2396923980%_))) - (__tmp27382 - (if _%metaclass23682%_ - (let* ((_%g2444524453%_ - (lambda (_%g2444624449%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2444624449%_))) - (_%g2444424472%_ - (lambda (_%g2444624457%_) - ((lambda (_%L24460%_) - (let () - (cons (gx#datum->syntax + _%g2430824318%_)) + (begin + (gx#syntax-check-splice-targets + _%L23219%_ + _%L23076%_) + (foldr (lambda (_%g2430924321%_ + _%g2431024324%_ + _%g2431124326%_) + (cons (cons (gx#datum->syntax '#f - 'quote-syntax) - (cons _%L24460%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2444624457%_)))) - (declare (not safe)) - (_%g2444424472%_ _%metaclass23682%_)) - '#f))) - (declare (not safe)) - (_%g2396724441%_ __tmp27382)))) - _%g2394123952%_)))) - (declare (not safe)) - (_%g2393924476%_ _%final?23688%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2391323924%_)))) - (declare (not safe)) - (_%g2391124480%_ _%struct?22663%_)))) - _%g2388523896%_))) - (__tmp27383 - (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g2448724490%_ - _%g2448824493%_) - (cons _%g2448724490%_ - _%g2448824493%_)) - '() - _%L22863%_) - '())))) - (declare (not safe)) - (_%g2388324484%_ __tmp27383)))) - _%g2385723868%_))) - (__tmp27384 - (let* ((_%g2450024517%_ - (lambda (_%g2450124513%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2450124513%_))) - (_%g2449924578%_ - (lambda (_%g2450124521%_) - (if (gx#stx-pair/null? _%g2450124521%_) - (let ((_g27385_ - (gx#syntax-split-splice - _%g2450124521%_ - '0))) - (begin - (let ((_g27386_ - (let () - (declare (not safe)) - (if (##values? _g27385_) - (##vector-length _g27385_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g27386_ 2))) - (error "Context expects 2 values" - _g27386_))) - (let ((_%target2450324524%_ - (let () - (declare (not safe)) - (##vector-ref _g27385_ 0))) - (_%tl2450524527%_ - (let () - (declare (not safe)) - (##vector-ref _g27385_ 1)))) - (if (gx#stx-null? _%tl2450524527%_) - (letrec ((_%loop2450624530%_ - (lambda (_%hd2450424534%_ - _%super-id2451024537%_) - (if (gx#stx-pair? - _%hd2450424534%_) - (let ((_%e2450724540%_ - (gx#syntax-e - _%hd2450424534%_))) - (let ((_%lp-hd2450824544%_ - (let () + '@list) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _%e2450724540%_))) - (_%lp-tl2450924547%_ - (let () (declare (not safe)) (##cdr _%e2450724540%_)))) - (let ((__tmp27387 - (cons _%lp-hd2450824544%_ _%super-id2451024537%_))) - (declare (not safe)) - (_%loop2450624530%_ _%lp-tl2450924547%_ __tmp27387)))) - (let ((_%super-id2451124550%_ (reverse _%super-id2451024537%_))) - ((lambda (_%L24554%_) - (let () - (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2456924572%_ _%g2457024575%_) - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%g2456924572%_ '())) - _%g2457024575%_)) - '() - _%L24554%_)))) - _%super-id2451124550%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop2450624530%_ - _%target2450324524%_ - '()))) - (let () - (declare (not safe)) - (_%g2450024517%_ _%g2450124521%_)))))) - (let () - (declare (not safe)) - (_%g2450024517%_ _%g2450124521%_)))))) - (declare (not safe)) - (_%g2449924578%_ _%super-ref22647%_)))) + '#f + 'quote) + (cons _%g2431024324%_ '())) + (cons ':: + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%g2430924321%_ '())) + '())))) + _%g2431124326%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g2385524496%_ - __tmp27384)))) - _%g2382923840%_))) - (__tmp27388 - (let* ((_%g2458624594%_ - (lambda (_%g2458724590%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2458724590%_))) - (_%g2458524613%_ - (lambda (_%g2458724598%_) - ((lambda (_%L24601%_) - (let () - (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L24601%_ + '() + _%L23219%_ + _%L23076%_)) + _%L23002%_ + _%L22860%_)))))) + _%g2410624117%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2410424329%_ + (cons (gx#datum->syntax + '#f + '@list) + (begin + (gx#syntax-check-splice-targets + _%L22931%_ + _%L22860%_) + (foldr (lambda (_%g2433224339%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g2433324342%_ + _%g2433424344%_) + (cons (cons (gx#datum->syntax '#f '@list) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%g2433324342%_ '())) + (cons ':: + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%g2433224339%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2433424344%_)) + (begin + (gx#syntax-check-splice-targets + _%L23148%_ + _%L23076%_) + (foldr (lambda (_%g2433524347%_ + _%g2433624350%_ + _%g2433724352%_) + (cons (cons (gx#datum->syntax '#f '@list) + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%g2433624350%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2458724598%_))) - (__tmp27389 - (cadr _%type-name23569%_))) - (declare (not safe)) - (_%g2458524613%_ __tmp27389)))) - (declare (not safe)) - (_%g2382724582%_ __tmp27388)))) - _%g2380123812%_))) - (__tmp27390 - (let* ((_%g2462124636%_ - (lambda (_%g2462224632%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2462224632%_))) - (_%g2462024684%_ - (lambda (_%g2462224640%_) - (if (gx#stx-pair? _%g2462224640%_) - (let ((_%e2462624643%_ - (gx#syntax-e _%g2462224640%_))) - (let ((_%hd2462524647%_ - (let () - (declare (not safe)) - (##car _%e2462624643%_))) - (_%tl2462424650%_ - (let () - (declare (not safe)) - (##cdr _%e2462624643%_)))) - (if (gx#stx-datum? _%hd2462524647%_) - (let ((_%e2462724653%_ - (gx#stx-e - _%hd2462524647%_))) - (if (equal? _%e2462724653%_ - 'id:) - (if (gx#stx-pair? - _%tl2462424650%_) - (let ((_%e2463024657%_ - (gx#syntax-e + (cons ':: + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl2462424650%_))) - (let ((_%hd2462924661%_ - (let () - (declare (not safe)) - (##car _%e2463024657%_))) - (_%tl2462824664%_ - (let () - (declare (not safe)) - (##cdr _%e2463024657%_)))) - (if (gx#stx-null? _%tl2462824664%_) - ((lambda (_%L24667%_) - (let () - (cons (gx#datum->syntax '#f 'quote) - (cons _%L24667%_ '())))) - _%hd2462924661%_) - (let () - (declare (not safe)) - (_%g2462124636%_ _%g2462224640%_))))) - (let () - (declare (not safe)) - (_%g2462124636%_ _%g2462224640%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g2462124636%_ - _%g2462224640%_)))) - (let () - (declare (not safe)) - (_%g2462124636%_ - _%g2462224640%_))))) - (let () - (declare (not safe)) - (_%g2462124636%_ _%g2462224640%_)))))) - (declare (not safe)) - (_%g2462024684%_ _%type-id23576%_)))) - (declare (not safe)) - (_%g2379924617%_ __tmp27390)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2377323784%_))) - (__tmp27391 - (let ((__tmp27392 - (cons (gx#datum->syntax - '#f - 'defclass-type) - (cons _%L22712%_ + '#f + 'quote-syntax) + (cons _%g2433524347%_ '())) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2433724352%_)) + '() + _%L23148%_ + _%L23076%_)) + _%L22931%_ + _%L22860%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2407824089%_)))) + (_%g2407624355%_ + (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _%L22765%_ '()))))) + _%g2405024061%_)))) + (_%g2404824359%_ + (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _%L22737%_ '()))))) + _%g2402224033%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2402024363%_ + (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%L22709%_ + '()))))) + _%g2399424005%_)))) + (_%g2399224367%_ + (if (null? _%type-constructor23588%_) + '#f + (let* ((_%g2437124386%_ + (lambda (_%g2437224382%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2437224382%_))) + (_%g2437024434%_ + (lambda (_%g2437224390%_) + (if (gx#stx-pair? + _%g2437224390%_) + (let ((_%e2437624393%_ + (gx#syntax-e + _%g2437224390%_))) + (let ((_%hd2437524397%_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L22796%_ - (cons _%L22740%_ - (cons _%L22768%_ - (foldr (lambda (_%g2469124694%_ - _%g2469224697%_) - (cons _%g2469124694%_ - _%g2469224697%_)) - '() - _%L23751%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%wrap22651%_ - __tmp27392)))) + (declare (not safe)) + (##car _%e2437624393%_))) + (_%tl2437424400%_ + (let () (declare (not safe)) (##cdr _%e2437624393%_)))) + (if (gx#stx-datum? _%hd2437524397%_) + (let ((_%e2437724403%_ (gx#stx-e _%hd2437524397%_))) + (if (equal? _%e2437724403%_ 'constructor:) + (if (gx#stx-pair? _%tl2437424400%_) + (let ((_%e2438024407%_ + (gx#syntax-e _%tl2437424400%_))) + (let ((_%hd2437924411%_ + (let () + (declare (not safe)) + (##car _%e2438024407%_))) + (_%tl2437824414%_ + (let () (declare (not safe)) - (_%g2377124688%_ __tmp27391)))) - _%type-body2370823747%_)))))) - (let () - (declare (not safe)) - (_%loop2370323727%_ _%target2370023721%_ '()))) - (let () - (declare (not safe)) - (_%g2369723714%_ _%g2369823718%_)))))) + (##cdr _%e2438024407%_)))) + (if (gx#stx-null? _%tl2437824414%_) + ((lambda (_%L24417%_) + (cons (gx#datum->syntax '#f 'quote) + (cons _%L24417%_ '()))) + _%hd2437924411%_) + (_%g2437124386%_ _%g2437224390%_)))) + (_%g2437124386%_ _%g2437224390%_)) + (_%g2437124386%_ _%g2437224390%_))) + (_%g2437124386%_ _%g2437224390%_)))) + (_%g2437124386%_ _%g2437224390%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2437024434%_ + _%type-constructor23588%_)))))) + _%g2396623977%_)))) + (_%g2396424438%_ + (if _%metaclass23679%_ + (let* ((_%g2444224450%_ + (lambda (_%g2444324446%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2444324446%_))) + (_%g2444124469%_ + (lambda (_%g2444324454%_) + ((lambda (_%L24457%_) + (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%L24457%_ '()))) + _%g2444324454%_)))) + (_%g2444124469%_ _%metaclass23679%_)) + '#f)))) + _%g2393823949%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2393624473%_ + _%final?23685%_))) + _%g2391023921%_)))) + (_%g2390824477%_ _%struct?22660%_))) + _%g2388223893%_)))) + (_%g2388024481%_ + (cons (gx#datum->syntax '#f 'quote) + (cons (foldr (lambda (_%g2448424487%_ + _%g2448524490%_) + (cons _%g2448424487%_ + _%g2448524490%_)) + '() + _%L22860%_) + '()))))) + _%g2385423865%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2385224493%_ + (let* ((_%g2449724514%_ + (lambda (_%g2449824510%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2449824510%_))) + (_%g2449624575%_ + (lambda (_%g2449824518%_) + (if (gx#stx-pair/null? +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g2449824518%_) + (let ((_g27318_ + (gx#syntax-split-splice _%g2449824518%_ '0))) + (begin + (let ((_g27319_ + (let () + (declare (not safe)) + (if (##values? _g27318_) + (##vector-length _g27318_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g27319_ 2))) + (error "Context expects 2 values" + _g27319_))) + (let ((_%target2450024521%_ + (let () + (declare (not safe)) + (##vector-ref _g27318_ 0))) + (_%tl2450224524%_ + (let () + (declare (not safe)) + (##vector-ref _g27318_ 1)))) + (if (gx#stx-null? _%tl2450224524%_) + (letrec ((_%loop2450324527%_ + (lambda (_%hd2450124531%_ + _%super-id2450724534%_) + (if (gx#stx-pair? + _%hd2450124531%_) + (let ((_%e2450424537%_ + (gx#syntax-e + _%hd2450124531%_))) + (let ((_%lp-hd2450524541%_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _%e2450424537%_))) + (_%lp-tl2450624544%_ + (let () (declare (not safe)) (##cdr _%e2450424537%_)))) + (_%loop2450324527%_ + _%lp-tl2450624544%_ + (cons _%lp-hd2450524541%_ _%super-id2450724534%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%super-id2450824547%_ + (reverse _%super-id2450724534%_))) + ((lambda (_%L24551%_) + (cons (gx#datum->syntax + '#f + '@list) + (foldr (lambda (_%g2456624569%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g2456724572%_) + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%g2456624569%_ '())) + _%g2456724572%_)) + '() + _%L24551%_))) + _%super-id2450824547%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop2450324527%_ + _%target2450024521%_ + '())) + (_%g2449724514%_ _%g2449824518%_))))) + (_%g2449724514%_ _%g2449824518%_))))) + (_%g2449624575%_ _%super-ref22644%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2382623837%_)))) + (_%g2382424579%_ + (let* ((_%g2458324591%_ + (lambda (_%g2458424587%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2458424587%_))) + (_%g2458224610%_ + (lambda (_%g2458424595%_) + ((lambda (_%L24598%_) + (cons (gx#datum->syntax + '#f + 'quote) + (cons _%L24598%_ + '()))) + _%g2458424595%_)))) + (_%g2458224610%_ + (cadr _%type-name23566%_)))))) + _%g2379823809%_)))) + (_%g2379624614%_ + (let* ((_%g2461824633%_ + (lambda (_%g2461924629%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2461924629%_))) + (_%g2461724681%_ + (lambda (_%g2461924637%_) + (if (gx#stx-pair? _%g2461924637%_) + (let ((_%e2462324640%_ + (gx#syntax-e _%g2461924637%_))) + (let ((_%hd2462224644%_ + (let () + (declare (not safe)) + (##car _%e2462324640%_))) + (_%tl2462124647%_ (let () (declare (not safe)) - (_%g2369723714%_ - _%g2369823718%_))))) - (__tmp27393 + (##cdr _%e2462324640%_)))) + (if (gx#stx-datum? + _%hd2462224644%_) + (let ((_%e2462424650%_ + (gx#stx-e + _%hd2462224644%_))) + (if (equal? _%e2462424650%_ + 'id:) + (if (gx#stx-pair? + _%tl2462124647%_) + (let ((_%e2462724654%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%tl2462124647%_))) + (let ((_%hd2462624658%_ + (let () + (declare (not safe)) + (##car _%e2462724654%_))) + (_%tl2462524661%_ + (let () + (declare (not safe)) + (##cdr _%e2462724654%_)))) + (if (gx#stx-null? _%tl2462524661%_) + ((lambda (_%L24664%_) + (cons (gx#datum->syntax '#f 'quote) + (cons _%L24664%_ '()))) + _%hd2462624658%_) + (_%g2461824633%_ _%g2461924637%_)))) + (_%g2461824633%_ _%g2461924637%_)) + (_%g2461824633%_ _%g2461924637%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2461824633%_ + _%g2461924637%_)))) + (_%g2461824633%_ _%g2461924637%_))))) + (_%g2461724681%_ _%type-id23573%_))))) + _%g2377023781%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2376824685%_ + (_%wrap22648%_ + (cons (gx#datum->syntax + '#f + 'defclass-type) + (cons _%L22709%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L22793%_ + (cons _%L22737%_ + (cons _%L22765%_ + (foldr (lambda (_%g2468824691%_ + _%g2468924694%_) + (cons _%g2468824691%_ + _%g2468924694%_)) + '() + _%L23748%_)))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%type-body2370523744%_)))))) + (_%loop2370023724%_ _%target2369723718%_ '())) + (_%g2369423711%_ _%g2369523715%_))))) + (_%g2369423711%_ _%g2369523715%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2369324697%_ + (foldr cons + (foldr cons + (foldr cons +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (foldr cons + (foldr cons (foldr cons (foldr cons (foldr cons - (foldr cons -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr cons - (foldr cons - (foldr cons - (foldr cons - _%type-mixin-slots23562%_ - _%type-slots23541%_) - _%type-properties23670%_) - _%type-metaclass23685%_) - _%type-final23694%_) - _%type-struct23691%_) - _%type-constructor23591%_) - _%type-name23569%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-id23576%_))) - (declare (not safe)) - (_%g2369624700%_ __tmp27393)))) - _%mixin-usetf2346323502%_)))))) - (let () - (declare (not safe)) - (_%loop2345823482%_ _%target2345523476%_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g2345223469%_ - _%g2345323473%_)))))) - (let () - (declare (not safe)) - (_%g2345223469%_ - _%g2345323473%_))))) - (__tmp27394 - (gx#stx-map - (lambda (_%g2470724709%_) - (let () - (declare (not safe)) - (_%make-id22653%_ + _%type-mixin-slots23559%_ + _%type-slots23538%_) + _%type-properties23667%_) + _%type-metaclass23682%_) + _%type-final23691%_) + _%type-struct23688%_) + _%type-constructor23588%_) + _%type-name23566%_) + _%type-id23573%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%mixin-usetf2346023499%_)))))) + (_%loop2345523479%_ _%target2345223473%_ '())) + (_%g2344923466%_ _%g2345023470%_))))) + (_%g2344923466%_ _%g2345023470%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2344824701%_ + (gx#stx-map + (lambda (_%g2470424706%_) + (_%make-id22650%_ + '"&" + _%g2470424706%_)) + (foldr (lambda (_%g2470924712%_ + _%g2471024715%_) + (cons _%g2470924712%_ + _%g2471024715%_)) + '() + _%L23219%_))))) + _%mixin-ugetf2338923428%_)))))) + (_%loop2338423408%_ _%target2338123402%_ '())) + (_%g2337823395%_ _%g2337923399%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2337823395%_ + _%g2337923399%_))))) + (_%g2337724718%_ + (gx#stx-map + (lambda (_%g2472124723%_) + (_%make-id22650%_ '"&" - _%g2470724709%_))) - (foldr (lambda (_%g2471224715%_ - _%g2471324718%_) - (cons _%g2471224715%_ - _%g2471324718%_)) - '() - _%L23222%_)))) - (declare (not safe)) - (_%g2345124704%_ __tmp27394)))) - _%mixin-ugetf2339223431%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop2338723411%_ - _%target2338423405%_ - '()))) - (let () - (declare (not safe)) - (_%g2338123398%_ - _%g2338223402%_)))))) - (let () - (declare (not safe)) - (_%g2338123398%_ _%g2338223402%_))))) - (__tmp27395 - (gx#stx-map - (lambda (_%g2472424726%_) - (let () - (declare (not safe)) - (_%make-id22653%_ '"&" _%g2472424726%_))) - (foldr (lambda (_%g2472924732%_ _%g2473024735%_) - (cons _%g2472924732%_ _%g2473024735%_)) - '() - _%L23151%_)))) - (declare (not safe)) - (_%g2338024721%_ __tmp27395)))) - _%usetf2332123360%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop2331623340%_ - _%target2331323334%_ - '()))) - (let () - (declare (not safe)) - (_%g2331023327%_ _%g2331123331%_)))))) - (let () - (declare (not safe)) - (_%g2331023327%_ _%g2331123331%_))))) - (__tmp27396 - (gx#stx-map - (lambda (_%g2474124743%_) - (let () - (declare (not safe)) - (_%make-id22653%_ '"&" _%g2474124743%_))) - (foldr (lambda (_%g2474624749%_ _%g2474724752%_) - (cons _%g2474624749%_ _%g2474724752%_)) - '() - _%L23005%_)))) - (declare (not safe)) - (_%g2330924738%_ __tmp27396)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%ugetf2325023289%_)))))) - (let () - (declare (not safe)) - (_%loop2324523269%_ - _%target2324223263%_ - '()))) - (let () - (declare (not safe)) - (_%g2323923256%_ _%g2324023260%_)))))) - (let () - (declare (not safe)) - (_%g2323923256%_ _%g2324023260%_))))) - (__tmp27397 - (gx#stx-map - (lambda (_%g2475824760%_) - (let () - (declare (not safe)) - (_%make-id22653%_ '"&" _%g2475824760%_))) - (foldr (lambda (_%g2476324766%_ _%g2476424769%_) - (cons _%g2476324766%_ _%g2476424769%_)) - '() - _%L22934%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g2323824755%_ - __tmp27397)))) - _%mixin-setf2317923218%_)))))) - (let () - (declare (not safe)) - (_%loop2317423198%_ _%target2317123192%_ '()))) - (let () - (declare (not safe)) - (_%g2316823185%_ _%g2316923189%_)))))) - (let () - (declare (not safe)) - (_%g2316823185%_ _%g2316923189%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp27398 + _%g2472124723%_)) + (foldr (lambda (_%g2472624729%_ + _%g2472724732%_) + (cons _%g2472624729%_ + _%g2472724732%_)) + '() + _%L23148%_))))) + _%usetf2331823357%_)))))) + (_%loop2331323337%_ _%target2331023331%_ '())) + (_%g2330723324%_ _%g2330823328%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2330723324%_ + _%g2330823328%_))))) + (_%g2330624735%_ + (gx#stx-map + (lambda (_%g2473824740%_) + (_%make-id22650%_ '"&" _%g2473824740%_)) + (foldr (lambda (_%g2474324746%_ + _%g2474424749%_) + (cons _%g2474324746%_ + _%g2474424749%_)) + '() + _%L23002%_))))) + _%ugetf2324723286%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop2324223266%_ + _%target2323923260%_ + '())) + (_%g2323623253%_ + _%g2323723257%_))))) + (_%g2323623253%_ _%g2323723257%_))))) + (_%g2323524752%_ + (gx#stx-map + (lambda (_%g2475524757%_) + (_%make-id22650%_ '"&" _%g2475524757%_)) + (foldr (lambda (_%g2476024763%_ _%g2476124766%_) + (cons _%g2476024763%_ _%g2476124766%_)) + '() + _%L22931%_))))) + _%mixin-setf2317623215%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop2317123195%_ + _%target2316823189%_ + '())) + (_%g2316523182%_ + _%g2316623186%_))))) + (_%g2316523182%_ _%g2316623186%_))))) + (_%g2316424769%_ + (gx#stx-map + (lambda (_%g2477224774%_) + (_%make-id22650%_ + _%name22654%_ + '"-" + _%g2477224774%_ + '"-set!")) + _%mixin-slots23019%_)))) + _%mixin-getf2310523144%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop2310023124%_ + _%target2309723118%_ + '())) + (_%g2309423111%_ _%g2309523115%_))))) + (_%g2309423111%_ _%g2309523115%_))))) + (_%g2309324778%_ + (gx#stx-map + (lambda (_%g2478124783%_) + (_%make-id22650%_ _%name22654%_ '"-" _%g2478124783%_)) + _%mixin-slots23019%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%mixin-slot2303323072%_)))))) + (_%loop2302823052%_ + _%target2302523046%_ + '())) + (_%g2302223039%_ _%g2302323043%_))))) + (_%g2302223039%_ _%g2302323043%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2302124787%_ + _%mixin-slots23019%_))) + _%setf2295922998%_)))))) + (_%loop2295422978%_ _%target2295122972%_ '())) + (_%g2294822965%_ _%g2294922969%_))))) + (_%g2294822965%_ _%g2294922969%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2294724791%_ (gx#stx-map - (lambda (_%g2477524777%_) - (let () - (declare (not safe)) - (_%make-id22653%_ - _%name22657%_ - '"-" - _%g2477524777%_ - '"-set!"))) - _%mixin-slots23022%_))) - (declare (not safe)) - (_%g2316724772%_ __tmp27398)))) - _%mixin-getf2310823147%_)))))) - (let () - (declare (not safe)) - (_%loop2310323127%_ _%target2310023121%_ '()))) - (let () - (declare (not safe)) - (_%g2309723114%_ _%g2309823118%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g2309723114%_ - _%g2309823118%_))))) - (__tmp27399 - (gx#stx-map - (lambda (_%g2478424786%_) - (let () - (declare (not safe)) - (_%make-id22653%_ - _%name22657%_ + (lambda (_%g2479424796%_) + (_%make-id22650%_ + _%name22654%_ + '"-" + _%g2479424796%_ + '"-set!")) + _%slots22645%_)))) + _%getf2288822927%_)))))) + (_%loop2288322907%_ _%target2288022901%_ '())) + (_%g2287722894%_ _%g2287822898%_))))) + (_%g2287722894%_ _%g2287822898%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2287624800%_ + (gx#stx-map + (lambda (_%g2480324805%_) + (_%make-id22650%_ + _%name22654%_ '"-" - _%g2478424786%_))) - _%mixin-slots23022%_))) - (declare (not safe)) - (_%g2309624781%_ __tmp27399)))) - _%mixin-slot2303623075%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop2303123055%_ - _%target2302823049%_ - '()))) - (let () - (declare (not safe)) - (_%g2302523042%_ - _%g2302623046%_)))))) - (let () - (declare (not safe)) - (_%g2302523042%_ - _%g2302623046%_)))))) - (declare (not safe)) - (_%g2302424790%_ _%mixin-slots23022%_)))) - _%setf2296223001%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop2295722981%_ - _%target2295422975%_ - '()))) - (let () - (declare (not safe)) - (_%g2295122968%_ - _%g2295222972%_)))))) - (let () - (declare (not safe)) - (_%g2295122968%_ _%g2295222972%_))))) - (__tmp27400 - (gx#stx-map - (lambda (_%g2479724799%_) - (let () - (declare (not safe)) - (_%make-id22653%_ - _%name22657%_ - '"-" - _%g2479724799%_ - '"-set!"))) - _%slots22648%_))) - (declare (not safe)) - (_%g2295024794%_ __tmp27400)))) - _%getf2289122930%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop2288622910%_ - _%target2288322904%_ - '()))) - (let () - (declare (not safe)) - (_%g2288022897%_ _%g2288122901%_)))))) - (let () - (declare (not safe)) - (_%g2288022897%_ _%g2288122901%_))))) - (__tmp27401 - (gx#stx-map - (lambda (_%g2480624808%_) - (let () - (declare (not safe)) - (_%make-id22653%_ - _%name22657%_ - '"-" - _%g2480624808%_))) - _%slots22648%_))) - (declare (not safe)) - (_%g2287924803%_ __tmp27401)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%slot2282022859%_)))))) - (let () - (declare (not safe)) - (_%loop2281522839%_ - _%target2281222833%_ - '()))) - (let () - (declare (not safe)) - (_%g2280922826%_ _%g2281022830%_)))))) - (let () - (declare (not safe)) - (_%g2280922826%_ _%g2281022830%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%g2280824812%_ - _%slots22648%_)))) - _%g2278222793%_))) - (__tmp27402 - (let () - (declare (not safe)) - (##map gerbil/core/mop~MOP-2#!class-type-descriptor - _%super22660%_)))) - (declare (not safe)) - (_%g2278024816%_ __tmp27402)))) - _%g2275422765%_))) - (__tmp27403 - (let () - (declare (not safe)) - (_%make-id22653%_ _%name22657%_ '"?")))) - (declare (not safe)) - (_%g2275224820%_ __tmp27403)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2272622737%_))) - (__tmp27404 - (let () - (declare (not safe)) - (_%make-id22653%_ - '"make-" - _%name22657%_)))) - (declare (not safe)) - (_%g2272424824%_ __tmp27404)))) - _%g2269822709%_))) - (__tmp27405 - (let () - (declare (not safe)) - (_%make-id22653%_ _%name22657%_ '"::t")))) + _%g2480324805%_)) + _%slots22645%_)))) + _%slot2281722856%_)))))) + (_%loop2281222836%_ _%target2280922830%_ '())) + (_%g2280622823%_ _%g2280722827%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2280622823%_ + _%g2280722827%_))))) + (_%g2280524809%_ _%slots22645%_))) + _%g2277922790%_)))) + (_%g2277724813%_ + (let () (declare (not safe)) - (_%g2269624828%_ __tmp27405)))) - _%g2266722678%_)))) - (declare (not safe)) - (_%g2266524832%_ _%id22646%_))))) + (##map gerbil/core/mop~MOP-2#!class-type-descriptor + _%super22657%_))))) + _%g2275122762%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2274924817%_ + (_%make-id22650%_ + _%name22654%_ + '"?")))) + _%g2272322734%_)))) + (_%g2272124821%_ + (_%make-id22650%_ + '"make-" + _%name22654%_)))) + _%g2269522706%_)))) + (_%g2269324825%_ + (_%make-id22650%_ _%name22654%_ '"::t")))) + _%g2266422675%_)))) + (_%g2266224829%_ _%id22643%_))))) (define |gerbil/core/mop~MOP-4[:0:]#defstruct| - (lambda (_%$stx24899%_) - (let* ((_%g2490324922%_ - (lambda (_%g2490424918%_) + (lambda (_%$stx24896%_) + (let* ((_%g2490024919%_ + (lambda (_%g2490124915%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2490424918%_))) - (_%g2490224979%_ - (lambda (_%g2490424926%_) - (if (gx#stx-pair? _%g2490424926%_) - (let ((_%e2491024929%_ (gx#syntax-e _%g2490424926%_))) - (let ((_%hd2490924933%_ + _%g2490124915%_))) + (_%g2489924976%_ + (lambda (_%g2490124923%_) + (if (gx#stx-pair? _%g2490124923%_) + (let ((_%e2490724926%_ (gx#syntax-e _%g2490124923%_))) + (let ((_%hd2490624930%_ (let () (declare (not safe)) - (##car _%e2491024929%_))) - (_%tl2490824936%_ + (##car _%e2490724926%_))) + (_%tl2490524933%_ (let () (declare (not safe)) - (##cdr _%e2491024929%_)))) - (if (gx#stx-pair? _%tl2490824936%_) - (let ((_%e2491324939%_ - (gx#syntax-e _%tl2490824936%_))) - (let ((_%hd2491224943%_ + (##cdr _%e2490724926%_)))) + (if (gx#stx-pair? _%tl2490524933%_) + (let ((_%e2491024936%_ + (gx#syntax-e _%tl2490524933%_))) + (let ((_%hd2490924940%_ (let () (declare (not safe)) - (##car _%e2491324939%_))) - (_%tl2491124946%_ + (##car _%e2491024936%_))) + (_%tl2490824943%_ (let () (declare (not safe)) - (##cdr _%e2491324939%_)))) - (if (gx#stx-pair? _%tl2491124946%_) - (let ((_%e2491624949%_ - (gx#syntax-e _%tl2491124946%_))) - (let ((_%hd2491524953%_ + (##cdr _%e2491024936%_)))) + (if (gx#stx-pair? _%tl2490824943%_) + (let ((_%e2491324946%_ + (gx#syntax-e _%tl2490824943%_))) + (let ((_%hd2491224950%_ (let () (declare (not safe)) - (##car _%e2491624949%_))) - (_%tl2491424956%_ + (##car _%e2491324946%_))) + (_%tl2491124953%_ (let () (declare (not safe)) - (##cdr _%e2491624949%_)))) - ((lambda (_%L24959%_ - _%L24961%_ - _%L24962%_) + (##cdr _%e2491324946%_)))) + ((lambda (_%L24956%_ + _%L24958%_ + _%L24959%_) (cons (gx#datum->syntax '#f 'defclass) - (cons _%L24962%_ - (cons _%L24961%_ + (cons _%L24959%_ + (cons _%L24958%_ (cons 'struct: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '#t _%L24959%_)))))) + (cons '#t _%L24956%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl2491424956%_ - _%hd2491524953%_ - _%hd2491224943%_))) - (_%g2490324922%_ _%g2490424926%_)))) - (_%g2490324922%_ _%g2490424926%_)))) - (_%g2490324922%_ _%g2490424926%_))))) - (_%g2490224979%_ _%$stx24899%_)))) + _%tl2491124953%_ + _%hd2491224950%_ + _%hd2490924940%_))) + (_%g2490024919%_ _%g2490124923%_)))) + (_%g2490024919%_ _%g2490124923%_)))) + (_%g2490024919%_ _%g2490124923%_))))) + (_%g2489924976%_ _%$stx24896%_)))) (define |gerbil/core/mop~MOP-4[:0:]#defclass| - (lambda (_%stx24983%_) - (letrec ((_%generate24986%_ - (lambda (_%hd25070%_ _%slots25072%_ _%body25073%_) - (let* ((_%__stx2683826839%_ _%hd25070%_) - (_%g2507625088%_ + (lambda (_%stx24980%_) + (letrec ((_%generate24983%_ + (lambda (_%hd25067%_ _%slots25069%_ _%body25070%_) + (let* ((_%__stx2683526836%_ _%hd25067%_) + (_%g2507325085%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2683826839%_)))) - (let ((_%__kont2684126842%_ - (lambda (_%L25116%_ _%L25118%_) - (let ((__tmp27406 (gx#syntax->list _%L25116%_))) - (declare (not safe)) - (|gerbil/core/mop~MOP-4[1]#generate-defclass| - _%stx24983%_ - _%L25118%_ - __tmp27406 - _%slots25072%_ - _%body25073%_)))) - (_%__kont2684326844%_ + _%__stx2683526836%_)))) + (let ((_%__kont2683826839%_ + (lambda (_%L25113%_ _%L25115%_) + (|gerbil/core/mop~MOP-4[1]#generate-defclass| + _%stx24980%_ + _%L25115%_ + (gx#syntax->list _%L25113%_) + _%slots25069%_ + _%body25070%_))) + (_%__kont2684026841%_ (lambda () - (if (gx#identifier? _%hd25070%_) - (let () - (declare (not safe)) - (|gerbil/core/mop~MOP-4[1]#generate-defclass| - _%stx24983%_ - _%hd25070%_ - '() - _%slots25072%_ - _%body25073%_)) + (if (gx#identifier? _%hd25067%_) + (|gerbil/core/mop~MOP-4[1]#generate-defclass| + _%stx24980%_ + _%hd25067%_ + '() + _%slots25069%_ + _%body25070%_) (gx#raise-syntax-error '#f '"bad syntax; class name should be an identifier" - _%stx24983%_ - _%hd25070%_))))) - (let ((_%__match2685126852%_ - (lambda (_%e2508225106%_ - _%hd2508125110%_ - _%tl2508025113%_) - (let ((_%L25116%_ _%tl2508025113%_) - (_%L25118%_ _%hd2508125110%_)) - (if (and (gx#stx-list? _%L25116%_) + _%stx24980%_ + _%hd25067%_))))) + (let ((_%__match2684826849%_ + (lambda (_%e2507925103%_ + _%hd2507825107%_ + _%tl2507725110%_) + (let ((_%L25113%_ _%tl2507725110%_) + (_%L25115%_ _%hd2507825107%_)) + (if (and (gx#stx-list? _%L25113%_) (gx#stx-andmap gerbil/core/mop~MOP-2#syntax-local-class-type-info? - _%L25116%_)) - (_%__kont2684126842%_ - _%L25116%_ - _%L25118%_) - (_%__kont2684326844%_)))))) - (if (gx#stx-pair? _%__stx2683826839%_) - (let ((_%e2508225106%_ - (gx#syntax-e _%__stx2683826839%_))) - (let ((_%tl2508025113%_ + _%L25113%_)) + (_%__kont2683826839%_ + _%L25113%_ + _%L25115%_) + (_%__kont2684026841%_)))))) + (if (gx#stx-pair? _%__stx2683526836%_) + (let ((_%e2507925103%_ + (gx#syntax-e _%__stx2683526836%_))) + (let ((_%tl2507725110%_ (let () (declare (not safe)) - (##cdr _%e2508225106%_))) - (_%hd2508125110%_ + (##cdr _%e2507925103%_))) + (_%hd2507825107%_ (let () (declare (not safe)) - (##car _%e2508225106%_)))) - (_%__match2685126852%_ - _%e2508225106%_ - _%hd2508125110%_ - _%tl2508025113%_))) - (_%__kont2684326844%_)))))))) - (let* ((_%g2498925008%_ - (lambda (_%g2499025004%_) + (##car _%e2507925103%_)))) + (_%__match2684826849%_ + _%e2507925103%_ + _%hd2507825107%_ + _%tl2507725110%_))) + (_%__kont2684026841%_)))))))) + (let* ((_%g2498625005%_ + (lambda (_%g2498725001%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2499025004%_))) - (_%g2498825066%_ - (lambda (_%g2499025012%_) - (if (gx#stx-pair? _%g2499025012%_) - (let ((_%e2499625015%_ (gx#syntax-e _%g2499025012%_))) - (let ((_%hd2499525019%_ + _%g2498725001%_))) + (_%g2498525063%_ + (lambda (_%g2498725009%_) + (if (gx#stx-pair? _%g2498725009%_) + (let ((_%e2499325012%_ (gx#syntax-e _%g2498725009%_))) + (let ((_%hd2499225016%_ (let () (declare (not safe)) - (##car _%e2499625015%_))) - (_%tl2499425022%_ + (##car _%e2499325012%_))) + (_%tl2499125019%_ (let () (declare (not safe)) - (##cdr _%e2499625015%_)))) - (if (gx#stx-pair? _%tl2499425022%_) - (let ((_%e2499925025%_ - (gx#syntax-e _%tl2499425022%_))) - (let ((_%hd2499825029%_ + (##cdr _%e2499325012%_)))) + (if (gx#stx-pair? _%tl2499125019%_) + (let ((_%e2499625022%_ + (gx#syntax-e _%tl2499125019%_))) + (let ((_%hd2499525026%_ (let () (declare (not safe)) - (##car _%e2499925025%_))) - (_%tl2499725032%_ + (##car _%e2499625022%_))) + (_%tl2499425029%_ (let () (declare (not safe)) - (##cdr _%e2499925025%_)))) - (if (gx#stx-pair? _%tl2499725032%_) - (let ((_%e2500225035%_ - (gx#syntax-e _%tl2499725032%_))) - (let ((_%hd2500125039%_ + (##cdr _%e2499625022%_)))) + (if (gx#stx-pair? _%tl2499425029%_) + (let ((_%e2499925032%_ + (gx#syntax-e _%tl2499425029%_))) + (let ((_%hd2499825036%_ (let () (declare (not safe)) - (##car _%e2500225035%_))) - (_%tl2500025042%_ + (##car _%e2499925032%_))) + (_%tl2499725039%_ (let () (declare (not safe)) - (##cdr _%e2500225035%_)))) - ((lambda (_%L25045%_ - _%L25047%_ - _%L25048%_) + (##cdr _%e2499925032%_)))) + ((lambda (_%L25042%_ + _%L25044%_ + _%L25045%_) (if (and (gx#identifier-list? - _%L25047%_) - (let () - (declare (not safe)) - (|gerbil/core/mop~MOP-4[1]#typedef-body?| - _%L25045%_))) - (_%generate24986%_ - _%L25048%_ - _%L25047%_ - _%L25045%_) - (_%g2498925008%_ - _%g2499025012%_))) - _%tl2500025042%_ - _%hd2500125039%_ - _%hd2499825029%_))) - (_%g2498925008%_ _%g2499025012%_)))) - (_%g2498925008%_ _%g2499025012%_)))) - (_%g2498925008%_ _%g2499025012%_))))) - (_%g2498825066%_ _%stx24983%_))))) + _%L25044%_) + (|gerbil/core/mop~MOP-4[1]#typedef-body?| + _%L25042%_)) + (_%generate24983%_ + _%L25045%_ + _%L25044%_ + _%L25042%_) + (_%g2498625005%_ + _%g2498725009%_))) + _%tl2499725039%_ + _%hd2499825036%_ + _%hd2499525026%_))) + (_%g2498625005%_ _%g2498725009%_)))) + (_%g2498625005%_ _%g2498725009%_)))) + (_%g2498625005%_ _%g2498725009%_))))) + (_%g2498525063%_ _%stx24980%_))))) (define |gerbil/core/mop~MOP-4[:0:]#defmethod| - (lambda (_%stx25135%_) - (letrec ((_%wrap25138%_ - (lambda (_%e-stx25484%_) + (lambda (_%stx25132%_) + (letrec ((_%wrap25135%_ + (lambda (_%e-stx25481%_) (gx#stx-wrap-source - _%e-stx25484%_ - (gx#stx-source _%stx25135%_)))) - (_%method-opt?25140%_ - (lambda (_%x25481%_) - (let ((__tmp27407 (gx#stx-e _%x25481%_))) + _%e-stx25481%_ + (gx#stx-source _%stx25132%_)))) + (_%method-opt?25137%_ + (lambda (_%x25478%_) + (let ((__tmp27320 (gx#stx-e _%x25478%_))) (declare (not safe)) - (##memq __tmp27407 '(rebind:)))))) - (let* ((_%g2514225171%_ - (lambda (_%g2514325167%_) + (##memq __tmp27320 '(rebind:)))))) + (let* ((_%g2513925168%_ + (lambda (_%g2514025164%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2514325167%_))) - (_%g2514125477%_ - (lambda (_%g2514325175%_) - (if (gx#stx-pair? _%g2514325175%_) - (let ((_%e2515025178%_ (gx#syntax-e _%g2514325175%_))) - (let ((_%hd2514925182%_ + _%g2514025164%_))) + (_%g2513825474%_ + (lambda (_%g2514025172%_) + (if (gx#stx-pair? _%g2514025172%_) + (let ((_%e2514725175%_ (gx#syntax-e _%g2514025172%_))) + (let ((_%hd2514625179%_ (let () (declare (not safe)) - (##car _%e2515025178%_))) - (_%tl2514825185%_ + (##car _%e2514725175%_))) + (_%tl2514525182%_ (let () (declare (not safe)) - (##cdr _%e2515025178%_)))) - (if (gx#stx-pair? _%tl2514825185%_) - (let ((_%e2515325188%_ - (gx#syntax-e _%tl2514825185%_))) - (let ((_%hd2515225192%_ + (##cdr _%e2514725175%_)))) + (if (gx#stx-pair? _%tl2514525182%_) + (let ((_%e2515025185%_ + (gx#syntax-e _%tl2514525182%_))) + (let ((_%hd2514925189%_ (let () (declare (not safe)) - (##car _%e2515325188%_))) - (_%tl2515125195%_ + (##car _%e2515025185%_))) + (_%tl2514825192%_ (let () (declare (not safe)) - (##cdr _%e2515325188%_)))) - (if (gx#stx-pair? _%hd2515225192%_) - (let ((_%e2515625198%_ - (gx#syntax-e _%hd2515225192%_))) - (let ((_%hd2515525202%_ + (##cdr _%e2515025185%_)))) + (if (gx#stx-pair? _%hd2514925189%_) + (let ((_%e2515325195%_ + (gx#syntax-e _%hd2514925189%_))) + (let ((_%hd2515225199%_ (let () (declare (not safe)) - (##car _%e2515625198%_))) - (_%tl2515425205%_ + (##car _%e2515325195%_))) + (_%tl2515125202%_ (let () (declare (not safe)) - (##cdr _%e2515625198%_)))) + (##cdr _%e2515325195%_)))) (if (gx#identifier? - _%hd2515525202%_) + _%hd2515225199%_) (if (gx#free-identifier=? - |gerbil/core/mop~MOP-4[1]#_g27408_| - _%hd2515525202%_) + |gerbil/core/mop~MOP-4[1]#_g27321_| + _%hd2515225199%_) (if (gx#stx-pair? - _%tl2515425205%_) - (let ((_%e2515925208%_ + _%tl2515125202%_) + (let ((_%e2515625205%_ (gx#syntax-e - _%tl2515425205%_))) - (let ((_%hd2515825212%_ + _%tl2515125202%_))) + (let ((_%hd2515525209%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e2515925208%_))) - (_%tl2515725215%_ + (let () (declare (not safe)) (##car _%e2515625205%_))) + (_%tl2515425212%_ (let () (declare (not safe)) - (##cdr _%e2515925208%_)))) - (if (gx#stx-pair? _%tl2515725215%_) - (let ((_%e2516225218%_ (gx#syntax-e _%tl2515725215%_))) - (let ((_%hd2516125222%_ + (##cdr _%e2515625205%_)))) + (if (gx#stx-pair? _%tl2515425212%_) + (let ((_%e2515925215%_ (gx#syntax-e _%tl2515425212%_))) + (let ((_%hd2515825219%_ (let () (declare (not safe)) - (##car _%e2516225218%_))) - (_%tl2516025225%_ + (##car _%e2515925215%_))) + (_%tl2515725222%_ (let () (declare (not safe)) - (##cdr _%e2516225218%_)))) - (if (gx#stx-null? _%tl2516025225%_) - (if (gx#stx-pair? _%tl2515125195%_) - (let ((_%e2516525228%_ - (gx#syntax-e _%tl2515125195%_))) - (let ((_%hd2516425232%_ + (##cdr _%e2515925215%_)))) + (if (gx#stx-null? _%tl2515725222%_) + (if (gx#stx-pair? _%tl2514825192%_) + (let ((_%e2516225225%_ + (gx#syntax-e _%tl2514825192%_))) + (let ((_%hd2516125229%_ (let () (declare (not safe)) - (##car _%e2516525228%_))) - (_%tl2516325235%_ + (##car _%e2516225225%_))) + (_%tl2516025232%_ (let () (declare (not safe)) - (##cdr _%e2516525228%_)))) - ((lambda (_%L25238%_ - _%L25240%_ - _%L25241%_ - _%L25242%_) - (if (and (gx#identifier? _%L25242%_) + (##cdr _%e2516225225%_)))) + ((lambda (_%L25235%_ + _%L25237%_ + _%L25238%_ + _%L25239%_) + (if (and (gx#identifier? _%L25239%_) (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L25241%_)) + _%L25238%_)) (gx#stx-plist? - _%L25238%_ - _%method-opt?25140%_)) - (let () - (let* ((_%klass25269%_ - (gx#syntax-local-value - _%L25241%_)) - (_%rebind?25272%_ - (gx#stx-e - (gx#stx-getq - 'rebind: - _%L25238%_))) - (_%g2527525283%_ - (lambda (_%g2527625279%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2527625279%_))) - (_%g2527425467%_ - (lambda (_%g2527625287%_) - ((lambda (_%L25290%_) - (let () - (let* ((_%g2530525313%_ + _%L25235%_ + _%method-opt?25137%_)) + (let* ((_%klass25266%_ + (gx#syntax-local-value + _%L25238%_)) + (_%rebind?25269%_ + (gx#stx-e + (gx#stx-getq + 'rebind: + _%L25235%_))) + (_%g2527225280%_ + (lambda (_%g2527325276%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2527325276%_))) + (_%g2527125464%_ + (lambda (_%g2527325284%_) + ((lambda (_%L25287%_) + (let* ((_%g2530225310%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g2530325306%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2530325306%_))) + (_%g2530125460%_ + (lambda (_%g2530325314%_) + ((lambda (_%L25317%_) + (let* ((_%g2533025338%_ + (lambda (_%g2533125334%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2533125334%_))) + (_%g2532925456%_ + (lambda (_%g2533125342%_) + ((lambda (_%L25345%_) + (let* ((_%g2535825366%_ + (lambda (_%g2535925362%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2535925362%_))) + (_%g2535725452%_ + (lambda (_%g2535925370%_) + ((lambda (_%L25373%_) + (let* ((_%g2538625394%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g2538725390%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2538725390%_))) + (_%g2538525448%_ + (lambda (_%g2538725398%_) + ((lambda (_%L25401%_) + (let* ((_%g2541425422%_ + (lambda (_%g2541525418%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g2541525418%_))) + (_%g2541325444%_ + (lambda (_%g2541525426%_) + ((lambda (_%L25429%_) + (_%wrap25135%_ + (cons (gx#datum->syntax + '#f + 'begin) + (cons _%L25373%_ + (cons _%L25429%_ + '()))))) + _%g2541525426%_)))) + (_%g2541325444%_ + (_%wrap25135%_ + (cons (gx#datum->syntax '#f 'bind-method!) + (cons _%L25287%_ + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%L25239%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + (cons _%L25317%_ (cons _%L25401%_ '()))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2538725398%_)))) + (_%g2538525448%_ _%rebind?25269%_))) + _%g2535925370%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2535725452%_ + (_%wrap25135%_ + (cons (gx#datum->syntax + '#f + 'def) + (cons _%L25317%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2530625309%_) - (gx#raise-syntax-error '#f - '"Bad syntax; invalid match target" - _%g2530625309%_))) - (_%g2530425463%_ - (lambda (_%g2530625317%_) - ((lambda (_%L25320%_) - (let () - (let* ((_%g2533325341%_ - (lambda (_%g2533425337%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2533425337%_))) - (_%g2533225459%_ - (lambda (_%g2533425345%_) - ((lambda (_%L25348%_) - (let () - (let* ((_%g2536125369%_ - (lambda (_%g2536225365%_) - (gx#raise-syntax-error + 'let-syntax) + (cons (cons (cons _%L25345%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - '"Bad syntax; invalid match target" - _%g2536225365%_))) - (_%g2536025455%_ - (lambda (_%g2536225373%_) - ((lambda (_%L25376%_) - (let () - (let* ((_%g2538925397%_ - (lambda (_%g2539025393%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g2539025393%_))) - (_%g2538825451%_ - (lambda (_%g2539025401%_) - ((lambda (_%L25404%_) - (let () - (let* ((_%g2541725425%_ - (lambda (_%g2541825421%_) - (gx#raise-syntax-error + 'syntax-rules) + (cons '() + (cons (cons (cons (gx#datum->syntax '#f '_) + (cons (gx#datum->syntax '#f - '"Bad syntax; invalid match target" - _%g2541825421%_))) - (_%g2541625447%_ - (lambda (_%g2541825429%_) - ((lambda (_%L25432%_) - (let () - (_%wrap25138%_ + 'obj) + (cons (gx#datum->syntax + '#f + 'arg) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'begin) - (cons _%L25376%_ (cons _%L25432%_ '())))))) - _%g2541825429%_)))) + '...) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2541625447%_ - (_%wrap25138%_ - (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax '#f - 'bind-method!) - (cons _%L25290%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L25242%_ '())) - (cons _%L25320%_ (cons _%L25404%_ '())))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2539025401%_)))) - (_%g2538825451%_ _%rebind?25272%_)))) - _%g2536225373%_)))) - (_%g2536025455%_ - (_%wrap25138%_ - (cons (gx#datum->syntax '#f 'def) - (cons _%L25320%_ - (cons (cons (gx#datum->syntax '#f 'let-syntax) - (cons (cons (cons _%L25348%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'syntax-rules) - (cons '() - (cons (cons (cons (gx#datum->syntax - '#f - '_) - (cons (gx#datum->syntax - '#f - 'obj) - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'arg) - (cons (gx#datum->syntax '#f '...) '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'call-next-method) - (cons _%L25290%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 'obj) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25242%_ '())) - (cons (gx#datum->syntax '#f 'arg) - (cons (gx#datum->syntax '#f '...) - '())))))) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())) - '()) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L25240%_ '()))) - '())))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2533425345%_)))) - (_%g2533225459%_ - (gx#stx-identifier - _%L25241%_ - '@next-method))))) - _%g2530625317%_)))) - (_%g2530425463%_ - (gx#stx-identifier - _%L25241%_ - _%L25241%_ - '"::" - _%L25242%_))))) - _%g2527625287%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2527425467%_ - (let ((__obj27115 - _%klass25269%_)) - (if (let () - (declare - (not safe)) - (##structure-direct-instance-of? - __obj27115 - 'gerbil.core#class-type-info::t)) - (let () - (declare - (not safe)) - (##unchecked-structure-ref - __obj27115 - '12 - '#f - '#f)) - (class-slot-ref - gerbil/core/mop~MOP-2#class-type-info::t - __obj27115 - 'type-descriptor)))))) - (if (let ((__tmp27409 - (gx#identifier? - _%L25242%_))) - (declare (not safe)) - (not __tmp27409)) - (let () - (gx#raise-syntax-error - '#f - '"bad syntax; expected method identifier" - _%stx25135%_ - _%L25242%_)) - (if (let ((__tmp27410 - (let () - (declare + 'call-next-method) + (cons _%L25287%_ + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L25241%_)))) - (declare (not safe)) - (not __tmp27410)) - (let () - (gx#raise-syntax-error - '#f - '"bad syntax; expected type identifier" - _%stx25135%_ - _%L25241%_)) - (let () - (gx#raise-syntax-error - '#f - '"bad syntax; illegal method options" - _%stx25135%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl2516325235%_ - _%hd2516425232%_ - _%hd2516125222%_ - _%hd2515825212%_))) - (_%g2514225171%_ _%g2514325175%_)) - (_%g2514225171%_ _%g2514325175%_)))) - (_%g2514225171%_ _%g2514325175%_)))) - (_%g2514225171%_ _%g2514325175%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2514225171%_ - _%g2514325175%_)) - (_%g2514225171%_ - _%g2514325175%_)))) - (_%g2514225171%_ _%g2514325175%_)))) - (_%g2514225171%_ _%g2514325175%_)))) - (_%g2514225171%_ _%g2514325175%_))))) - (_%g2514125477%_ _%stx25135%_))))) + '#f + 'obj) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L25239%_ '())) + (cons (gx#datum->syntax '#f 'arg) + (cons (gx#datum->syntax '#f '...) + '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())) + '()))) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()) + (cons _%L25237%_ '()))) + '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2533125342%_)))) + (_%g2532925456%_ + (gx#stx-identifier + _%L25238%_ + '@next-method)))) + _%g2530325314%_)))) + (_%g2530125460%_ + (gx#stx-identifier + _%L25238%_ + _%L25238%_ + '"::" + _%L25239%_)))) + _%g2527325284%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2527125464%_ + (let ((__obj27112 + _%klass25266%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj27112 + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj27112 + '12 + '#f + '#f)) + (class-slot-ref + gerbil/core/mop~MOP-2#class-type-info::t + __obj27112 + 'type-descriptor))))) + (if (not (gx#identifier? + _%L25239%_)) + (gx#raise-syntax-error + '#f + '"bad syntax; expected method identifier" + _%stx25132%_ + _%L25239%_) + (if (not (let () + (declare + (not safe)) + (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 + _%L25238%_))) + (gx#raise-syntax-error + '#f + '"bad syntax; expected type identifier" + _%stx25132%_ + _%L25238%_) + (gx#raise-syntax-error + '#f + '"bad syntax; illegal method options" + _%stx25132%_))))) + _%tl2516025232%_ + _%hd2516125229%_ + _%hd2515825219%_ + _%hd2515525209%_))) + (_%g2513925168%_ _%g2514025172%_)) + (_%g2513925168%_ _%g2514025172%_)))) + (_%g2513925168%_ _%g2514025172%_)))) + (_%g2513925168%_ _%g2514025172%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2513925168%_ + _%g2514025172%_)) + (_%g2513925168%_ + _%g2514025172%_)))) + (_%g2513925168%_ _%g2514025172%_)))) + (_%g2513925168%_ _%g2514025172%_)))) + (_%g2513925168%_ _%g2514025172%_))))) + (_%g2513825474%_ _%stx25132%_))))) (define |gerbil/core/mop~MOP-4[:0:]#@method| - (lambda (_%stx25487%_) - (letrec ((_%dotted-identifier?25490%_ - (lambda (_%id26123%_) - (if (gx#identifier? _%id26123%_) - (let ((_%id-str26126%_ - (symbol->string (gx#stx-e _%id26123%_)))) - (if (string-index _%id-str26126%_ '#\.) - (let* ((_%split26129%_ - (string-split _%id-str26126%_ '#\.)) - (__tmp27411 (length _%split26129%_))) + (lambda (_%stx25484%_) + (letrec ((_%dotted-identifier?25487%_ + (lambda (_%id26120%_) + (if (gx#identifier? _%id26120%_) + (let ((_%id-str26123%_ + (symbol->string (gx#stx-e _%id26120%_)))) + (if (string-index _%id-str26123%_ '#\.) + (let* ((_%split26126%_ + (string-split _%id-str26123%_ '#\.)) + (__tmp27322 (length _%split26126%_))) (declare (not safe)) - (##fx= __tmp27411 '2)) + (##fx= __tmp27322 '2)) '#f)) '#f))) - (_%split-dotted25492%_ - (lambda (_%id26112%_) - (let* ((_%id-str26115%_ - (symbol->string (gx#stx-e _%id26112%_))) - (_%split26118%_ - (string-split _%id-str26115%_ '#\.))) + (_%split-dotted25489%_ + (lambda (_%id26109%_) + (let* ((_%id-str26112%_ + (symbol->string (gx#stx-e _%id26109%_))) + (_%split26115%_ + (string-split _%id-str26112%_ '#\.))) (cons (gx#stx-identifier - _%id26112%_ - (car _%split26118%_)) + _%id26109%_ + (car _%split26115%_)) (cons (gx#stx-identifier - _%id26112%_ - (cadr _%split26118%_)) + _%id26109%_ + (cadr _%split26115%_)) '())))))) - (let* ((_%__stx2685426855%_ _%stx25487%_) - (_%g2549725584%_ + (let* ((_%__stx2685126852%_ _%stx25484%_) + (_%g2549425581%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2685426855%_)))) - (let ((_%__kont2685726858%_ - (lambda (_%L26005%_ _%L26007%_ _%L26008%_) - (let* ((_%g2603626051%_ - (lambda (_%g2603726047%_) + _%__stx2685126852%_)))) + (let ((_%__kont2685426855%_ + (lambda (_%L26002%_ _%L26004%_ _%L26005%_) + (let* ((_%g2603326048%_ + (lambda (_%g2603426044%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2603726047%_))) - (_%g2603526104%_ - (lambda (_%g2603726055%_) - (if (gx#stx-pair? _%g2603726055%_) - (let ((_%e2604226058%_ - (gx#syntax-e _%g2603726055%_))) - (let ((_%hd2604126062%_ + _%g2603426044%_))) + (_%g2603226101%_ + (lambda (_%g2603426052%_) + (if (gx#stx-pair? _%g2603426052%_) + (let ((_%e2603926055%_ + (gx#syntax-e _%g2603426052%_))) + (let ((_%hd2603826059%_ (let () (declare (not safe)) - (##car _%e2604226058%_))) - (_%tl2604026065%_ + (##car _%e2603926055%_))) + (_%tl2603726062%_ (let () (declare (not safe)) - (##cdr _%e2604226058%_)))) - (if (gx#stx-pair? _%tl2604026065%_) - (let ((_%e2604526068%_ + (##cdr _%e2603926055%_)))) + (if (gx#stx-pair? _%tl2603726062%_) + (let ((_%e2604226065%_ (gx#syntax-e - _%tl2604026065%_))) - (let ((_%hd2604426072%_ + _%tl2603726062%_))) + (let ((_%hd2604126069%_ (let () (declare (not safe)) - (##car _%e2604526068%_))) - (_%tl2604326075%_ + (##car _%e2604226065%_))) + (_%tl2604026072%_ (let () (declare (not safe)) - (##cdr _%e2604526068%_)))) + (##cdr _%e2604226065%_)))) (if (gx#stx-null? - _%tl2604326075%_) - ((lambda (_%L26078%_ - _%L26080%_) - (let () - (cons (gx#datum->syntax - '#f - 'apply) - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'call-method) - (cons _%L26080%_ - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26078%_ '())) - (cons (cons (gx#datum->syntax - '#f - '@list) - (foldr (lambda (_%g2609526098%_ + _%tl2604026072%_) + ((lambda (_%L26075%_ + _%L26077%_) + (cons (gx#datum->syntax + '#f + 'apply) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2609626101%_) - (cons _%g2609526098%_ _%g2609626101%_)) - '() - _%L26007%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2604426072%_ - _%hd2604126062%_) - (_%g2603626051%_ - _%g2603726055%_)))) - (_%g2603626051%_ _%g2603726055%_)))) - (_%g2603626051%_ _%g2603726055%_))))) - (_%g2603526104%_ (_%split-dotted25492%_ _%L26008%_))))) - (_%__kont2686126862%_ - (lambda (_%L25847%_ _%L25849%_) - (let* ((_%g2586625881%_ - (lambda (_%g2586725877%_) + '#f + 'call-method) + (cons _%L26077%_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L26075%_ '())) + (cons (cons (gx#datum->syntax '#f '@list) + (foldr (lambda (_%g2609226095%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g2609326098%_) + (cons _%g2609226095%_ _%g2609326098%_)) + '() + _%L26004%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd2604126069%_ + _%hd2603826059%_) + (_%g2603326048%_ + _%g2603426052%_)))) + (_%g2603326048%_ _%g2603426052%_)))) + (_%g2603326048%_ _%g2603426052%_))))) + (_%g2603226101%_ (_%split-dotted25489%_ _%L26005%_))))) + (_%__kont2685826859%_ + (lambda (_%L25844%_ _%L25846%_) + (let* ((_%g2586325878%_ + (lambda (_%g2586425874%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2586725877%_))) - (_%g2586525934%_ - (lambda (_%g2586725885%_) - (if (gx#stx-pair? _%g2586725885%_) - (let ((_%e2587225888%_ - (gx#syntax-e _%g2586725885%_))) - (let ((_%hd2587125892%_ + _%g2586425874%_))) + (_%g2586225931%_ + (lambda (_%g2586425882%_) + (if (gx#stx-pair? _%g2586425882%_) + (let ((_%e2586925885%_ + (gx#syntax-e _%g2586425882%_))) + (let ((_%hd2586825889%_ (let () (declare (not safe)) - (##car _%e2587225888%_))) - (_%tl2587025895%_ + (##car _%e2586925885%_))) + (_%tl2586725892%_ (let () (declare (not safe)) - (##cdr _%e2587225888%_)))) - (if (gx#stx-pair? _%tl2587025895%_) - (let ((_%e2587525898%_ + (##cdr _%e2586925885%_)))) + (if (gx#stx-pair? _%tl2586725892%_) + (let ((_%e2587225895%_ (gx#syntax-e - _%tl2587025895%_))) - (let ((_%hd2587425902%_ + _%tl2586725892%_))) + (let ((_%hd2587125899%_ (let () (declare (not safe)) - (##car _%e2587525898%_))) - (_%tl2587325905%_ + (##car _%e2587225895%_))) + (_%tl2587025902%_ (let () (declare (not safe)) - (##cdr _%e2587525898%_)))) + (##cdr _%e2587225895%_)))) (if (gx#stx-null? - _%tl2587325905%_) - ((lambda (_%L25908%_ - _%L25910%_) - (let () - (cons (gx#datum->syntax - '#f - 'call-method) - (cons _%L25910%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25908%_ '())) - (foldr (lambda (_%g2592525928%_ - _%g2592625931%_) - (cons _%g2592525928%_ - _%g2592625931%_)) - '() - _%L25847%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2587425902%_ - _%hd2587125892%_) - (_%g2586625881%_ - _%g2586725885%_)))) - (_%g2586625881%_ _%g2586725885%_)))) - (_%g2586625881%_ _%g2586725885%_))))) - (_%g2586525934%_ (_%split-dotted25492%_ _%L25849%_))))) - (_%__kont2686526866%_ - (lambda (_%L25751%_ _%L25753%_ _%L25754%_) + _%tl2587025902%_) + ((lambda (_%L25905%_ + _%L25907%_) + (cons (gx#datum->syntax + '#f + 'call-method) + (cons _%L25907%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L25905%_ '())) + (foldr (lambda (_%g2592225925%_ + _%g2592325928%_) + (cons _%g2592225925%_ + _%g2592325928%_)) + '() + _%L25844%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd2587125899%_ + _%hd2586825889%_) + (_%g2586325878%_ + _%g2586425882%_)))) + (_%g2586325878%_ _%g2586425882%_)))) + (_%g2586325878%_ _%g2586425882%_))))) + (_%g2586225931%_ (_%split-dotted25489%_ _%L25846%_))))) + (_%__kont2686226863%_ + (lambda (_%L25748%_ _%L25750%_ _%L25751%_) (cons (gx#datum->syntax '#f 'apply) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L25753%_ + (cons _%L25750%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25754%_ '())) + (cons _%L25751%_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2578125784%_ + (foldr (lambda (_%g2577825781%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2578225787%_) - (cons _%g2578125784%_ _%g2578225787%_)) + _%g2577925784%_) + (cons _%g2577825781%_ _%g2577925784%_)) '() - _%L25751%_)) + _%L25748%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (_%__kont2686926870%_ - (lambda (_%L25651%_ _%L25653%_ _%L25654%_) + (_%__kont2686626867%_ + (lambda (_%L25648%_ _%L25650%_ _%L25651%_) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L25653%_ + (cons _%L25650%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25654%_ '())) - (foldr (lambda (_%g2567525678%_ - _%g2567625681%_) - (cons _%g2567525678%_ - _%g2567625681%_)) + (cons _%L25651%_ '())) + (foldr (lambda (_%g2567225675%_ + _%g2567325678%_) + (cons _%g2567225675%_ + _%g2567325678%_)) '() - _%L25651%_))))))) - (let* ((_%__match2697326974%_ - (lambda (_%e2556325591%_ - _%hd2556225595%_ - _%tl2556125598%_ - _%e2556625601%_ - _%hd2556525605%_ - _%tl2556425608%_ - _%e2556925611%_ - _%hd2556825615%_ - _%tl2556725618%_ - _%__splice2687126872%_ - _%target2557025621%_ - _%tl2557225624%_) - (letrec ((_%loop2557325627%_ - (lambda (_%hd2557125631%_ _%arg2557725634%_) - (if (gx#stx-pair? _%hd2557125631%_) - (let ((_%e2557425637%_ - (gx#syntax-e _%hd2557125631%_))) - (let ((_%lp-tl2557625644%_ + _%L25648%_))))))) + (let* ((_%__match2697026971%_ + (lambda (_%e2556025588%_ + _%hd2555925592%_ + _%tl2555825595%_ + _%e2556325598%_ + _%hd2556225602%_ + _%tl2556125605%_ + _%e2556625608%_ + _%hd2556525612%_ + _%tl2556425615%_ + _%__splice2686826869%_ + _%target2556725618%_ + _%tl2556925621%_) + (letrec ((_%loop2557025624%_ + (lambda (_%hd2556825628%_ _%arg2557425631%_) + (if (gx#stx-pair? _%hd2556825628%_) + (let ((_%e2557125634%_ + (gx#syntax-e _%hd2556825628%_))) + (let ((_%lp-tl2557325641%_ (let () (declare (not safe)) - (##cdr _%e2557425637%_))) - (_%lp-hd2557525641%_ + (##cdr _%e2557125634%_))) + (_%lp-hd2557225638%_ (let () (declare (not safe)) - (##car _%e2557425637%_)))) - (_%loop2557325627%_ - _%lp-tl2557625644%_ - (cons _%lp-hd2557525641%_ - _%arg2557725634%_)))) - (let ((_%arg2557825647%_ - (reverse _%arg2557725634%_))) - (let ((_%L25651%_ _%arg2557825647%_) - (_%L25653%_ _%hd2556825615%_) - (_%L25654%_ _%hd2556525605%_)) - (if (gx#identifier? _%L25654%_) - (_%__kont2686926870%_ - _%L25651%_ - _%L25653%_ - _%L25654%_) + (##car _%e2557125634%_)))) + (_%loop2557025624%_ + _%lp-tl2557325641%_ + (cons _%lp-hd2557225638%_ + _%arg2557425631%_)))) + (let ((_%arg2557525644%_ + (reverse _%arg2557425631%_))) + (let ((_%L25648%_ _%arg2557525644%_) + (_%L25650%_ _%hd2556525612%_) + (_%L25651%_ _%hd2556225602%_)) + (if (gx#identifier? _%L25651%_) + (_%__kont2686626867%_ + _%L25648%_ + _%L25650%_ + _%L25651%_) (let () (declare (not safe)) - (_%g2549725584%_))))))))) - (_%loop2557325627%_ _%target2557025621%_ '())))) - (_%__match2694726948%_ - (lambda (_%e2554225691%_ - _%hd2554125695%_ - _%tl2554025698%_ - _%e2554525701%_ - _%hd2554425705%_ - _%tl2554325708%_ - _%e2554825711%_ - _%hd2554725715%_ - _%tl2554625718%_ - _%__splice2686726868%_ - _%target2554925721%_ - _%tl2555125724%_) - (letrec ((_%loop2555225727%_ - (lambda (_%hd2555025731%_ _%arg2555625734%_) - (if (gx#stx-pair? _%hd2555025731%_) - (let ((_%e2555325737%_ - (gx#syntax-e _%hd2555025731%_))) - (let ((_%lp-tl2555525744%_ + (_%g2549425581%_))))))))) + (_%loop2557025624%_ _%target2556725618%_ '())))) + (_%__match2694426945%_ + (lambda (_%e2553925688%_ + _%hd2553825692%_ + _%tl2553725695%_ + _%e2554225698%_ + _%hd2554125702%_ + _%tl2554025705%_ + _%e2554525708%_ + _%hd2554425712%_ + _%tl2554325715%_ + _%__splice2686426865%_ + _%target2554625718%_ + _%tl2554825721%_) + (letrec ((_%loop2554925724%_ + (lambda (_%hd2554725728%_ _%arg2555325731%_) + (if (gx#stx-pair? _%hd2554725728%_) + (let ((_%e2555025734%_ + (gx#syntax-e _%hd2554725728%_))) + (let ((_%lp-tl2555225741%_ (let () (declare (not safe)) - (##cdr _%e2555325737%_))) - (_%lp-hd2555425741%_ + (##cdr _%e2555025734%_))) + (_%lp-hd2555125738%_ (let () (declare (not safe)) - (##car _%e2555325737%_)))) - (_%loop2555225727%_ - _%lp-tl2555525744%_ - (cons _%lp-hd2555425741%_ - _%arg2555625734%_)))) - (let ((_%arg2555725747%_ - (reverse _%arg2555625734%_))) - (let ((_%L25751%_ _%arg2555725747%_) - (_%L25753%_ _%hd2554725715%_) - (_%L25754%_ _%hd2554425705%_)) + (##car _%e2555025734%_)))) + (_%loop2554925724%_ + _%lp-tl2555225741%_ + (cons _%lp-hd2555125738%_ + _%arg2555325731%_)))) + (let ((_%arg2555425744%_ + (reverse _%arg2555325731%_))) + (let ((_%L25748%_ _%arg2555425744%_) + (_%L25750%_ _%hd2554425712%_) + (_%L25751%_ _%hd2554125702%_)) (if (and (gx#identifier? - _%L25754%_) + _%L25751%_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_%g2577325776%_ + (foldr (lambda (_%g2577025773%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2577425779%_) - (cons _%g2577325776%_ _%g2577425779%_)) + _%g2577125776%_) + (cons _%g2577025773%_ _%g2577125776%_)) '() - _%L25751%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2686526866%_ - _%L25751%_ - _%L25753%_ - _%L25754%_) - (_%__match2697326974%_ - _%e2554225691%_ - _%hd2554125695%_ - _%tl2554025698%_ - _%e2554525701%_ - _%hd2554425705%_ - _%tl2554325708%_ - _%e2554825711%_ - _%hd2554725715%_ - _%tl2554625718%_ - _%__splice2686726868%_ - _%target2554925721%_ - _%tl2555125724%_)))))))) - (_%loop2555225727%_ _%target2554925721%_ '())))) - (_%__match2693326934%_ - (lambda (_%e2554225691%_ - _%hd2554125695%_ - _%tl2554025698%_ - _%e2554525701%_ - _%hd2554425705%_ - _%tl2554325708%_) - (if (gx#stx-pair? _%tl2554325708%_) - (let ((_%e2554825711%_ - (gx#syntax-e _%tl2554325708%_))) - (let ((_%tl2554625718%_ + _%L25748%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2686226863%_ + _%L25748%_ + _%L25750%_ + _%L25751%_) + (_%__match2697026971%_ + _%e2553925688%_ + _%hd2553825692%_ + _%tl2553725695%_ + _%e2554225698%_ + _%hd2554125702%_ + _%tl2554025705%_ + _%e2554525708%_ + _%hd2554425712%_ + _%tl2554325715%_ + _%__splice2686426865%_ + _%target2554625718%_ + _%tl2554825721%_)))))))) + (_%loop2554925724%_ _%target2554625718%_ '())))) + (_%__match2693026931%_ + (lambda (_%e2553925688%_ + _%hd2553825692%_ + _%tl2553725695%_ + _%e2554225698%_ + _%hd2554125702%_ + _%tl2554025705%_) + (if (gx#stx-pair? _%tl2554025705%_) + (let ((_%e2554525708%_ + (gx#syntax-e _%tl2554025705%_))) + (let ((_%tl2554325715%_ (let () (declare (not safe)) - (##cdr _%e2554825711%_))) - (_%hd2554725715%_ + (##cdr _%e2554525708%_))) + (_%hd2554425712%_ (let () (declare (not safe)) - (##car _%e2554825711%_)))) - (if (gx#stx-pair/null? _%tl2554625718%_) - (let ((_%__splice2686726868%_ + (##car _%e2554525708%_)))) + (if (gx#stx-pair/null? _%tl2554325715%_) + (let ((_%__splice2686426865%_ (gx#syntax-split-splice - _%tl2554625718%_ + _%tl2554325715%_ '0))) - (let ((_%tl2555125724%_ + (let ((_%tl2554825721%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686726868%_ + _%__splice2686426865%_ '1))) - (_%target2554925721%_ + (_%target2554625718%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686726868%_ + _%__splice2686426865%_ '0)))) - (if (gx#stx-null? _%tl2555125724%_) - (_%__match2694726948%_ - _%e2554225691%_ - _%hd2554125695%_ - _%tl2554025698%_ - _%e2554525701%_ - _%hd2554425705%_ - _%tl2554325708%_ - _%e2554825711%_ - _%hd2554725715%_ - _%tl2554625718%_ - _%__splice2686726868%_ - _%target2554925721%_ - _%tl2555125724%_) + (if (gx#stx-null? _%tl2554825721%_) + (_%__match2694426945%_ + _%e2553925688%_ + _%hd2553825692%_ + _%tl2553725695%_ + _%e2554225698%_ + _%hd2554125702%_ + _%tl2554025705%_ + _%e2554525708%_ + _%hd2554425712%_ + _%tl2554325715%_ + _%__splice2686426865%_ + _%target2554625718%_ + _%tl2554825721%_) (let () (declare (not safe)) - (_%g2549725584%_))))) + (_%g2549425581%_))))) (let () (declare (not safe)) - (_%g2549725584%_))))) - (let () (declare (not safe)) (_%g2549725584%_))))) - (_%__match2692126922%_ - (lambda (_%e2552425797%_ - _%hd2552325801%_ - _%tl2552225804%_ - _%e2552725807%_ - _%hd2552625811%_ - _%tl2552525814%_ - _%__splice2686326864%_ - _%target2552825817%_ - _%tl2553025820%_) - (letrec ((_%loop2553125823%_ - (lambda (_%hd2552925827%_ _%arg2553525830%_) - (if (gx#stx-pair? _%hd2552925827%_) - (let ((_%e2553225833%_ - (gx#syntax-e _%hd2552925827%_))) - (let ((_%lp-tl2553425840%_ + (_%g2549425581%_))))) + (let () (declare (not safe)) (_%g2549425581%_))))) + (_%__match2691826919%_ + (lambda (_%e2552125794%_ + _%hd2552025798%_ + _%tl2551925801%_ + _%e2552425804%_ + _%hd2552325808%_ + _%tl2552225811%_ + _%__splice2686026861%_ + _%target2552525814%_ + _%tl2552725817%_) + (letrec ((_%loop2552825820%_ + (lambda (_%hd2552625824%_ _%arg2553225827%_) + (if (gx#stx-pair? _%hd2552625824%_) + (let ((_%e2552925830%_ + (gx#syntax-e _%hd2552625824%_))) + (let ((_%lp-tl2553125837%_ (let () (declare (not safe)) - (##cdr _%e2553225833%_))) - (_%lp-hd2553325837%_ + (##cdr _%e2552925830%_))) + (_%lp-hd2553025834%_ (let () (declare (not safe)) - (##car _%e2553225833%_)))) - (_%loop2553125823%_ - _%lp-tl2553425840%_ - (cons _%lp-hd2553325837%_ - _%arg2553525830%_)))) - (let ((_%arg2553625843%_ - (reverse _%arg2553525830%_))) - (let ((_%L25847%_ _%arg2553625843%_) - (_%L25849%_ _%hd2552625811%_)) - (if (_%dotted-identifier?25490%_ - _%L25849%_) - (_%__kont2686126862%_ - _%L25847%_ - _%L25849%_) - (_%__match2693326934%_ - _%e2552425797%_ - _%hd2552325801%_ - _%tl2552225804%_ - _%e2552725807%_ - _%hd2552625811%_ - _%tl2552525814%_)))))))) - (_%loop2553125823%_ _%target2552825817%_ '())))) - (_%__match2691926920%_ - (lambda (_%e2552425797%_ - _%hd2552325801%_ - _%tl2552225804%_ - _%e2552725807%_ - _%hd2552625811%_ - _%tl2552525814%_ - _%__splice2686326864%_ - _%target2552825817%_ - _%tl2553025820%_) - (if (gx#stx-null? _%tl2553025820%_) - (_%__match2692126922%_ - _%e2552425797%_ - _%hd2552325801%_ - _%tl2552225804%_ - _%e2552725807%_ - _%hd2552625811%_ - _%tl2552525814%_ - _%__splice2686326864%_ - _%target2552825817%_ - _%tl2553025820%_) - (if (gx#stx-pair? _%tl2552525814%_) - (let ((_%e2554825711%_ - (gx#syntax-e _%tl2552525814%_))) - (let ((_%tl2554625718%_ + (##car _%e2552925830%_)))) + (_%loop2552825820%_ + _%lp-tl2553125837%_ + (cons _%lp-hd2553025834%_ + _%arg2553225827%_)))) + (let ((_%arg2553325840%_ + (reverse _%arg2553225827%_))) + (let ((_%L25844%_ _%arg2553325840%_) + (_%L25846%_ _%hd2552325808%_)) + (if (_%dotted-identifier?25487%_ + _%L25846%_) + (_%__kont2685826859%_ + _%L25844%_ + _%L25846%_) + (_%__match2693026931%_ + _%e2552125794%_ + _%hd2552025798%_ + _%tl2551925801%_ + _%e2552425804%_ + _%hd2552325808%_ + _%tl2552225811%_)))))))) + (_%loop2552825820%_ _%target2552525814%_ '())))) + (_%__match2691626917%_ + (lambda (_%e2552125794%_ + _%hd2552025798%_ + _%tl2551925801%_ + _%e2552425804%_ + _%hd2552325808%_ + _%tl2552225811%_ + _%__splice2686026861%_ + _%target2552525814%_ + _%tl2552725817%_) + (if (gx#stx-null? _%tl2552725817%_) + (_%__match2691826919%_ + _%e2552125794%_ + _%hd2552025798%_ + _%tl2551925801%_ + _%e2552425804%_ + _%hd2552325808%_ + _%tl2552225811%_ + _%__splice2686026861%_ + _%target2552525814%_ + _%tl2552725817%_) + (if (gx#stx-pair? _%tl2552225811%_) + (let ((_%e2554525708%_ + (gx#syntax-e _%tl2552225811%_))) + (let ((_%tl2554325715%_ (let () (declare (not safe)) - (##cdr _%e2554825711%_))) - (_%hd2554725715%_ + (##cdr _%e2554525708%_))) + (_%hd2554425712%_ (let () (declare (not safe)) - (##car _%e2554825711%_)))) - (if (gx#stx-pair/null? _%tl2554625718%_) - (let ((_%__splice2686726868%_ + (##car _%e2554525708%_)))) + (if (gx#stx-pair/null? _%tl2554325715%_) + (let ((_%__splice2686426865%_ (gx#syntax-split-splice - _%tl2554625718%_ + _%tl2554325715%_ '0))) - (let ((_%tl2555125724%_ + (let ((_%tl2554825721%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686726868%_ + _%__splice2686426865%_ '1))) - (_%target2554925721%_ + (_%target2554625718%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686726868%_ + _%__splice2686426865%_ '0)))) - (if (gx#stx-null? _%tl2555125724%_) - (_%__match2694726948%_ - _%e2552425797%_ - _%hd2552325801%_ - _%tl2552225804%_ - _%e2552725807%_ - _%hd2552625811%_ - _%tl2552525814%_ - _%e2554825711%_ - _%hd2554725715%_ - _%tl2554625718%_ - _%__splice2686726868%_ - _%target2554925721%_ - _%tl2555125724%_) + (if (gx#stx-null? _%tl2554825721%_) + (_%__match2694426945%_ + _%e2552125794%_ + _%hd2552025798%_ + _%tl2551925801%_ + _%e2552425804%_ + _%hd2552325808%_ + _%tl2552225811%_ + _%e2554525708%_ + _%hd2554425712%_ + _%tl2554325715%_ + _%__splice2686426865%_ + _%target2554625718%_ + _%tl2554825721%_) (let () (declare (not safe)) - (_%g2549725584%_))))) + (_%g2549425581%_))))) (let () (declare (not safe)) - (_%g2549725584%_))))) + (_%g2549425581%_))))) (let () (declare (not safe)) - (_%g2549725584%_)))))) - (_%__match2690126902%_ - (lambda (_%e2550425945%_ - _%hd2550325949%_ - _%tl2550225952%_ - _%e2550725955%_ - _%hd2550625959%_ - _%tl2550525962%_ - _%__splice2685926860%_ - _%target2550825965%_ - _%tl2551025968%_ - _%e2551925971%_ - _%hd2551825975%_ - _%tl2551725978%_) - (letrec ((_%loop2551125981%_ - (lambda (_%hd2550925985%_ _%arg2551525988%_) - (if (gx#stx-pair? _%hd2550925985%_) - (let ((_%e2551225991%_ - (gx#syntax-e _%hd2550925985%_))) - (let ((_%lp-tl2551425998%_ + (_%g2549425581%_)))))) + (_%__match2689826899%_ + (lambda (_%e2550125942%_ + _%hd2550025946%_ + _%tl2549925949%_ + _%e2550425952%_ + _%hd2550325956%_ + _%tl2550225959%_ + _%__splice2685626857%_ + _%target2550525962%_ + _%tl2550725965%_ + _%e2551625968%_ + _%hd2551525972%_ + _%tl2551425975%_) + (letrec ((_%loop2550825978%_ + (lambda (_%hd2550625982%_ _%arg2551225985%_) + (if (gx#stx-pair? _%hd2550625982%_) + (let ((_%e2550925988%_ + (gx#syntax-e _%hd2550625982%_))) + (let ((_%lp-tl2551125995%_ (let () (declare (not safe)) - (##cdr _%e2551225991%_))) - (_%lp-hd2551325995%_ + (##cdr _%e2550925988%_))) + (_%lp-hd2551025992%_ (let () (declare (not safe)) - (##car _%e2551225991%_)))) - (_%loop2551125981%_ - _%lp-tl2551425998%_ - (cons _%lp-hd2551325995%_ - _%arg2551525988%_)))) - (let ((_%arg2551626001%_ - (reverse _%arg2551525988%_))) - (let ((_%L26005%_ _%hd2551825975%_) - (_%L26007%_ _%arg2551626001%_) - (_%L26008%_ _%hd2550625959%_)) - (if (and (_%dotted-identifier?25490%_ - _%L26008%_) + (##car _%e2550925988%_)))) + (_%loop2550825978%_ + _%lp-tl2551125995%_ + (cons _%lp-hd2551025992%_ + _%arg2551225985%_)))) + (let ((_%arg2551325998%_ + (reverse _%arg2551225985%_))) + (let ((_%L26002%_ _%hd2551525972%_) + (_%L26004%_ _%arg2551325998%_) + (_%L26005%_ _%hd2550325956%_)) + (if (and (_%dotted-identifier?25487%_ + _%L26005%_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_%g2602726030%_ + (foldr (lambda (_%g2602426027%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2602826033%_) - (cons _%g2602726030%_ _%g2602826033%_)) + _%g2602526030%_) + (cons _%g2602426027%_ _%g2602526030%_)) '() - _%L26007%_))) + _%L26004%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2685726858%_ - _%L26005%_ - _%L26007%_ - _%L26008%_) - (let ((_%__splice2686326864%_ + (_%__kont2685426855%_ + _%L26002%_ + _%L26004%_ + _%L26005%_) + (let ((_%__splice2686026861%_ (gx#syntax-split-splice - _%tl2550525962%_ + _%tl2550225959%_ '0))) - (let ((_%tl2553025820%_ + (let ((_%tl2552725817%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686326864%_ + _%__splice2686026861%_ '1))) - (_%target2552825817%_ + (_%target2552525814%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686326864%_ + _%__splice2686026861%_ '0)))) - (_%__match2691926920%_ - _%e2550425945%_ - _%hd2550325949%_ - _%tl2550225952%_ - _%e2550725955%_ - _%hd2550625959%_ - _%tl2550525962%_ - _%__splice2686326864%_ - _%target2552825817%_ - _%tl2553025820%_)))))))))) - (_%loop2551125981%_ _%target2550825965%_ '()))))) - (if (gx#stx-pair? _%__stx2685426855%_) - (let ((_%e2550425945%_ (gx#syntax-e _%__stx2685426855%_))) - (let ((_%tl2550225952%_ + (_%__match2691626917%_ + _%e2550125942%_ + _%hd2550025946%_ + _%tl2549925949%_ + _%e2550425952%_ + _%hd2550325956%_ + _%tl2550225959%_ + _%__splice2686026861%_ + _%target2552525814%_ + _%tl2552725817%_)))))))))) + (_%loop2550825978%_ _%target2550525962%_ '()))))) + (if (gx#stx-pair? _%__stx2685126852%_) + (let ((_%e2550125942%_ (gx#syntax-e _%__stx2685126852%_))) + (let ((_%tl2549925949%_ (let () (declare (not safe)) - (##cdr _%e2550425945%_))) - (_%hd2550325949%_ + (##cdr _%e2550125942%_))) + (_%hd2550025946%_ (let () (declare (not safe)) - (##car _%e2550425945%_)))) - (if (gx#stx-pair? _%tl2550225952%_) - (let ((_%e2550725955%_ - (gx#syntax-e _%tl2550225952%_))) - (let ((_%tl2550525962%_ + (##car _%e2550125942%_)))) + (if (gx#stx-pair? _%tl2549925949%_) + (let ((_%e2550425952%_ + (gx#syntax-e _%tl2549925949%_))) + (let ((_%tl2550225959%_ (let () (declare (not safe)) - (##cdr _%e2550725955%_))) - (_%hd2550625959%_ + (##cdr _%e2550425952%_))) + (_%hd2550325956%_ (let () (declare (not safe)) - (##car _%e2550725955%_)))) - (if (gx#stx-pair/null? _%tl2550525962%_) - (if (let ((__tmp27412 + (##car _%e2550425952%_)))) + (if (gx#stx-pair/null? _%tl2550225959%_) + (if (let ((__tmp27323 (gx#stx-length - _%tl2550525962%_))) + _%tl2550225959%_))) (declare (not safe)) - (##fx>= __tmp27412 '1)) - (let ((_%__splice2685926860%_ + (##fx>= __tmp27323 '1)) + (let ((_%__splice2685626857%_ (gx#syntax-split-splice - _%tl2550525962%_ + _%tl2550225959%_ '1))) - (let ((_%tl2551025968%_ + (let ((_%tl2550725965%_ (let () (declare (not safe)) (##vector-ref - _%__splice2685926860%_ + _%__splice2685626857%_ '1))) - (_%target2550825965%_ + (_%target2550525962%_ (let () (declare (not safe)) (##vector-ref - _%__splice2685926860%_ + _%__splice2685626857%_ '0)))) - (if (gx#stx-pair? _%tl2551025968%_) - (let ((_%e2551925971%_ + (if (gx#stx-pair? _%tl2550725965%_) + (let ((_%e2551625968%_ (gx#syntax-e - _%tl2551025968%_))) - (let ((_%tl2551725978%_ + _%tl2550725965%_))) + (let ((_%tl2551425975%_ (let () (declare (not safe)) - (##cdr _%e2551925971%_))) - (_%hd2551825975%_ + (##cdr _%e2551625968%_))) + (_%hd2551525972%_ (let () (declare (not safe)) - (##car _%e2551925971%_)))) + (##car _%e2551625968%_)))) (if (gx#stx-null? - _%tl2551725978%_) - (_%__match2690126902%_ - _%e2550425945%_ - _%hd2550325949%_ - _%tl2550225952%_ - _%e2550725955%_ - _%hd2550625959%_ - _%tl2550525962%_ - _%__splice2685926860%_ - _%target2550825965%_ - _%tl2551025968%_ - _%e2551925971%_ - _%hd2551825975%_ - _%tl2551725978%_) - (let ((_%__splice2686326864%_ + _%tl2551425975%_) + (_%__match2689826899%_ + _%e2550125942%_ + _%hd2550025946%_ + _%tl2549925949%_ + _%e2550425952%_ + _%hd2550325956%_ + _%tl2550225959%_ + _%__splice2685626857%_ + _%target2550525962%_ + _%tl2550725965%_ + _%e2551625968%_ + _%hd2551525972%_ + _%tl2551425975%_) + (let ((_%__splice2686026861%_ (gx#syntax-split-splice - _%tl2550525962%_ + _%tl2550225959%_ '0))) - (let ((_%tl2553025820%_ + (let ((_%tl2552725817%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice2686326864%_ '1))) - (_%target2552825817%_ + (##vector-ref _%__splice2686026861%_ '1))) + (_%target2552525814%_ (let () (declare (not safe)) - (##vector-ref _%__splice2686326864%_ '0)))) - (if (gx#stx-null? _%tl2553025820%_) - (_%__match2692126922%_ - _%e2550425945%_ - _%hd2550325949%_ - _%tl2550225952%_ - _%e2550725955%_ - _%hd2550625959%_ - _%tl2550525962%_ - _%__splice2686326864%_ - _%target2552825817%_ - _%tl2553025820%_) - (if (gx#stx-pair? _%tl2550525962%_) - (let ((_%e2554825711%_ - (gx#syntax-e _%tl2550525962%_))) - (let ((_%tl2554625718%_ + (##vector-ref _%__splice2686026861%_ '0)))) + (if (gx#stx-null? _%tl2552725817%_) + (_%__match2691826919%_ + _%e2550125942%_ + _%hd2550025946%_ + _%tl2549925949%_ + _%e2550425952%_ + _%hd2550325956%_ + _%tl2550225959%_ + _%__splice2686026861%_ + _%target2552525814%_ + _%tl2552725817%_) + (if (gx#stx-pair? _%tl2550225959%_) + (let ((_%e2554525708%_ + (gx#syntax-e _%tl2550225959%_))) + (let ((_%tl2554325715%_ (let () (declare (not safe)) - (##cdr _%e2554825711%_))) - (_%hd2554725715%_ + (##cdr _%e2554525708%_))) + (_%hd2554425712%_ (let () (declare (not safe)) - (##car _%e2554825711%_)))) - (if (gx#stx-pair/null? _%tl2554625718%_) - (let ((_%__splice2686726868%_ + (##car _%e2554525708%_)))) + (if (gx#stx-pair/null? _%tl2554325715%_) + (let ((_%__splice2686426865%_ (gx#syntax-split-splice - _%tl2554625718%_ + _%tl2554325715%_ '0))) - (let ((_%tl2555125724%_ + (let ((_%tl2554825721%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686726868%_ + _%__splice2686426865%_ '1))) - (_%target2554925721%_ + (_%target2554625718%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686726868%_ + _%__splice2686426865%_ '0)))) - (if (gx#stx-null? _%tl2555125724%_) - (_%__match2694726948%_ - _%e2550425945%_ - _%hd2550325949%_ - _%tl2550225952%_ - _%e2550725955%_ - _%hd2550625959%_ - _%tl2550525962%_ - _%e2554825711%_ - _%hd2554725715%_ - _%tl2554625718%_ - _%__splice2686726868%_ - _%target2554925721%_ - _%tl2555125724%_) + (if (gx#stx-null? _%tl2554825721%_) + (_%__match2694426945%_ + _%e2550125942%_ + _%hd2550025946%_ + _%tl2549925949%_ + _%e2550425952%_ + _%hd2550325956%_ + _%tl2550225959%_ + _%e2554525708%_ + _%hd2554425712%_ + _%tl2554325715%_ + _%__splice2686426865%_ + _%target2554625718%_ + _%tl2554825721%_) (let () (declare (not safe)) - (_%g2549725584%_))))) + (_%g2549425581%_))))) (let () (declare (not safe)) - (_%g2549725584%_))))) + (_%g2549425581%_))))) (let () (declare (not safe)) - (_%g2549725584%_))))))))) + (_%g2549425581%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__splice2686326864%_ + (let ((_%__splice2686026861%_ (gx#syntax-split-splice - _%tl2550525962%_ + _%tl2550225959%_ '0))) - (let ((_%tl2553025820%_ + (let ((_%tl2552725817%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686326864%_ + _%__splice2686026861%_ '1))) - (_%target2552825817%_ + (_%target2552525814%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686326864%_ + _%__splice2686026861%_ '0)))) (if (gx#stx-null? - _%tl2553025820%_) - (_%__match2692126922%_ - _%e2550425945%_ - _%hd2550325949%_ - _%tl2550225952%_ - _%e2550725955%_ - _%hd2550625959%_ - _%tl2550525962%_ - _%__splice2686326864%_ - _%target2552825817%_ - _%tl2553025820%_) + _%tl2552725817%_) + (_%__match2691826919%_ + _%e2550125942%_ + _%hd2550025946%_ + _%tl2549925949%_ + _%e2550425952%_ + _%hd2550325956%_ + _%tl2550225959%_ + _%__splice2686026861%_ + _%target2552525814%_ + _%tl2552725817%_) (if (gx#stx-pair? - _%tl2550525962%_) - (let ((_%e2554825711%_ + _%tl2550225959%_) + (let ((_%e2554525708%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2550525962%_))) - (let ((_%tl2554625718%_ + (gx#syntax-e _%tl2550225959%_))) + (let ((_%tl2554325715%_ (let () (declare (not safe)) - (##cdr _%e2554825711%_))) - (_%hd2554725715%_ + (##cdr _%e2554525708%_))) + (_%hd2554425712%_ (let () (declare (not safe)) - (##car _%e2554825711%_)))) - (if (gx#stx-pair/null? _%tl2554625718%_) - (let ((_%__splice2686726868%_ + (##car _%e2554525708%_)))) + (if (gx#stx-pair/null? _%tl2554325715%_) + (let ((_%__splice2686426865%_ (gx#syntax-split-splice - _%tl2554625718%_ + _%tl2554325715%_ '0))) - (let ((_%tl2555125724%_ + (let ((_%tl2554825721%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686726868%_ + _%__splice2686426865%_ '1))) - (_%target2554925721%_ + (_%target2554625718%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686726868%_ + _%__splice2686426865%_ '0)))) - (if (gx#stx-null? _%tl2555125724%_) - (_%__match2694726948%_ - _%e2550425945%_ - _%hd2550325949%_ - _%tl2550225952%_ - _%e2550725955%_ - _%hd2550625959%_ - _%tl2550525962%_ - _%e2554825711%_ - _%hd2554725715%_ - _%tl2554625718%_ - _%__splice2686726868%_ - _%target2554925721%_ - _%tl2555125724%_) + (if (gx#stx-null? _%tl2554825721%_) + (_%__match2694426945%_ + _%e2550125942%_ + _%hd2550025946%_ + _%tl2549925949%_ + _%e2550425952%_ + _%hd2550325956%_ + _%tl2550225959%_ + _%e2554525708%_ + _%hd2554425712%_ + _%tl2554325715%_ + _%__splice2686426865%_ + _%target2554625718%_ + _%tl2554825721%_) (let () (declare (not safe)) - (_%g2549725584%_))))) - (let () (declare (not safe)) (_%g2549725584%_))))) - (let () (declare (not safe)) (_%g2549725584%_))))))))) + (_%g2549425581%_))))) + (let () (declare (not safe)) (_%g2549425581%_))))) + (let () (declare (not safe)) (_%g2549425581%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__splice2686326864%_ + (let ((_%__splice2686026861%_ (gx#syntax-split-splice - _%tl2550525962%_ + _%tl2550225959%_ '0))) - (let ((_%tl2553025820%_ + (let ((_%tl2552725817%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686326864%_ + _%__splice2686026861%_ '1))) - (_%target2552825817%_ + (_%target2552525814%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686326864%_ + _%__splice2686026861%_ '0)))) - (if (gx#stx-null? _%tl2553025820%_) - (_%__match2692126922%_ - _%e2550425945%_ - _%hd2550325949%_ - _%tl2550225952%_ - _%e2550725955%_ - _%hd2550625959%_ - _%tl2550525962%_ - _%__splice2686326864%_ - _%target2552825817%_ - _%tl2553025820%_) + (if (gx#stx-null? _%tl2552725817%_) + (_%__match2691826919%_ + _%e2550125942%_ + _%hd2550025946%_ + _%tl2549925949%_ + _%e2550425952%_ + _%hd2550325956%_ + _%tl2550225959%_ + _%__splice2686026861%_ + _%target2552525814%_ + _%tl2552725817%_) (if (gx#stx-pair? - _%tl2550525962%_) - (let ((_%e2554825711%_ + _%tl2550225959%_) + (let ((_%e2554525708%_ (gx#syntax-e - _%tl2550525962%_))) - (let ((_%tl2554625718%_ + _%tl2550225959%_))) + (let ((_%tl2554325715%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e2554825711%_))) - (_%hd2554725715%_ - (let () (declare (not safe)) (##car _%e2554825711%_)))) - (if (gx#stx-pair/null? _%tl2554625718%_) - (let ((_%__splice2686726868%_ - (gx#syntax-split-splice _%tl2554625718%_ '0))) - (let ((_%tl2555125724%_ + (##cdr _%e2554525708%_))) + (_%hd2554425712%_ + (let () (declare (not safe)) (##car _%e2554525708%_)))) + (if (gx#stx-pair/null? _%tl2554325715%_) + (let ((_%__splice2686426865%_ + (gx#syntax-split-splice _%tl2554325715%_ '0))) + (let ((_%tl2554825721%_ (let () (declare (not safe)) - (##vector-ref _%__splice2686726868%_ '1))) - (_%target2554925721%_ + (##vector-ref _%__splice2686426865%_ '1))) + (_%target2554625718%_ (let () (declare (not safe)) - (##vector-ref _%__splice2686726868%_ '0)))) - (if (gx#stx-null? _%tl2555125724%_) - (_%__match2694726948%_ - _%e2550425945%_ - _%hd2550325949%_ - _%tl2550225952%_ - _%e2550725955%_ - _%hd2550625959%_ - _%tl2550525962%_ - _%e2554825711%_ - _%hd2554725715%_ - _%tl2554625718%_ - _%__splice2686726868%_ - _%target2554925721%_ - _%tl2555125724%_) - (let () (declare (not safe)) (_%g2549725584%_))))) - (let () (declare (not safe)) (_%g2549725584%_))))) + (##vector-ref _%__splice2686426865%_ '0)))) + (if (gx#stx-null? _%tl2554825721%_) + (_%__match2694426945%_ + _%e2550125942%_ + _%hd2550025946%_ + _%tl2549925949%_ + _%e2550425952%_ + _%hd2550325956%_ + _%tl2550225959%_ + _%e2554525708%_ + _%hd2554425712%_ + _%tl2554325715%_ + _%__splice2686426865%_ + _%target2554625718%_ + _%tl2554825721%_) + (let () (declare (not safe)) (_%g2549425581%_))))) + (let () (declare (not safe)) (_%g2549425581%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g2549725584%_))))))) - (if (gx#stx-pair? _%tl2550525962%_) - (let ((_%e2554825711%_ - (gx#syntax-e _%tl2550525962%_))) - (let ((_%tl2554625718%_ + (_%g2549425581%_))))))) + (if (gx#stx-pair? _%tl2550225959%_) + (let ((_%e2554525708%_ + (gx#syntax-e _%tl2550225959%_))) + (let ((_%tl2554325715%_ (let () (declare (not safe)) - (##cdr _%e2554825711%_))) - (_%hd2554725715%_ + (##cdr _%e2554525708%_))) + (_%hd2554425712%_ (let () (declare (not safe)) - (##car _%e2554825711%_)))) + (##car _%e2554525708%_)))) (if (gx#stx-pair/null? - _%tl2554625718%_) - (let ((_%__splice2686726868%_ + _%tl2554325715%_) + (let ((_%__splice2686426865%_ (gx#syntax-split-splice - _%tl2554625718%_ + _%tl2554325715%_ '0))) - (let ((_%tl2555125724%_ + (let ((_%tl2554825721%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686726868%_ + _%__splice2686426865%_ '1))) - (_%target2554925721%_ + (_%target2554625718%_ (let () (declare (not safe)) (##vector-ref - _%__splice2686726868%_ + _%__splice2686426865%_ '0)))) (if (gx#stx-null? - _%tl2555125724%_) - (_%__match2694726948%_ - _%e2550425945%_ - _%hd2550325949%_ - _%tl2550225952%_ - _%e2550725955%_ - _%hd2550625959%_ - _%tl2550525962%_ - _%e2554825711%_ - _%hd2554725715%_ - _%tl2554625718%_ - _%__splice2686726868%_ - _%target2554925721%_ - _%tl2555125724%_) + _%tl2554825721%_) + (_%__match2694426945%_ + _%e2550125942%_ + _%hd2550025946%_ + _%tl2549925949%_ + _%e2550425952%_ + _%hd2550325956%_ + _%tl2550225959%_ + _%e2554525708%_ + _%hd2554425712%_ + _%tl2554325715%_ + _%__splice2686426865%_ + _%target2554625718%_ + _%tl2554825721%_) (let () (declare (not safe)) - (_%g2549725584%_))))) + (_%g2549425581%_))))) (let () (declare (not safe)) - (_%g2549725584%_))))) + (_%g2549425581%_))))) (let () (declare (not safe)) - (_%g2549725584%_)))))) - (let () (declare (not safe)) (_%g2549725584%_))))) - (let () (declare (not safe)) (_%g2549725584%_))))))))) + (_%g2549425581%_)))))) + (let () (declare (not safe)) (_%g2549425581%_))))) + (let () (declare (not safe)) (_%g2549425581%_))))))))) (define |gerbil/core/mop~MOP-4[:0:]#@| - (lambda (_%$stx26136%_) - (let* ((_%__stx2697626977%_ _%$stx26136%_) - (_%g2614126181%_ + (lambda (_%$stx26133%_) + (let* ((_%__stx2697326974%_ _%$stx26133%_) + (_%g2613826178%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2697626977%_)))) - (let ((_%__kont2697926980%_ - (lambda (_%L26319%_ _%L26321%_) + _%__stx2697326974%_)))) + (let ((_%__kont2697626977%_ + (lambda (_%L26316%_ _%L26318%_) (cons (gx#datum->syntax '#f 'slot-ref) - (cons _%L26321%_ + (cons _%L26318%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26319%_ '())) + (cons _%L26316%_ '())) '()))))) - (_%__kont2698126982%_ - (lambda (_%L26248%_ _%L26250%_ _%L26251%_ _%L26252%_) - (cons _%L26252%_ - (cons (cons _%L26252%_ - (cons _%L26251%_ (cons _%L26250%_ '()))) - (foldr (lambda (_%g2627326276%_ _%g2627426279%_) - (cons _%g2627326276%_ _%g2627426279%_)) + (_%__kont2697826979%_ + (lambda (_%L26245%_ _%L26247%_ _%L26248%_ _%L26249%_) + (cons _%L26249%_ + (cons (cons _%L26249%_ + (cons _%L26248%_ (cons _%L26247%_ '()))) + (foldr (lambda (_%g2627026273%_ _%g2627126276%_) + (cons _%g2627026273%_ _%g2627126276%_)) '() - _%L26248%_)))))) - (let* ((_%__match2703127032%_ - (lambda (_%e2616026188%_ - _%hd2615926192%_ - _%tl2615826195%_ - _%e2616326198%_ - _%hd2616226202%_ - _%tl2616126205%_ - _%e2616626208%_ - _%hd2616526212%_ - _%tl2616426215%_ - _%__splice2698326984%_ - _%target2616726218%_ - _%tl2616926221%_) - (letrec ((_%loop2617026224%_ - (lambda (_%hd2616826228%_ _%rest2617426231%_) - (if (gx#stx-pair? _%hd2616826228%_) - (let ((_%e2617126234%_ - (gx#syntax-e _%hd2616826228%_))) - (let ((_%lp-tl2617326241%_ + _%L26245%_)))))) + (let* ((_%__match2702827029%_ + (lambda (_%e2615726185%_ + _%hd2615626189%_ + _%tl2615526192%_ + _%e2616026195%_ + _%hd2615926199%_ + _%tl2615826202%_ + _%e2616326205%_ + _%hd2616226209%_ + _%tl2616126212%_ + _%__splice2698026981%_ + _%target2616426215%_ + _%tl2616626218%_) + (letrec ((_%loop2616726221%_ + (lambda (_%hd2616526225%_ _%rest2617126228%_) + (if (gx#stx-pair? _%hd2616526225%_) + (let ((_%e2616826231%_ + (gx#syntax-e _%hd2616526225%_))) + (let ((_%lp-tl2617026238%_ (let () (declare (not safe)) - (##cdr _%e2617126234%_))) - (_%lp-hd2617226238%_ + (##cdr _%e2616826231%_))) + (_%lp-hd2616926235%_ (let () (declare (not safe)) - (##car _%e2617126234%_)))) - (_%loop2617026224%_ - _%lp-tl2617326241%_ - (cons _%lp-hd2617226238%_ - _%rest2617426231%_)))) - (let ((_%rest2617526244%_ - (reverse _%rest2617426231%_))) - (_%__kont2698126982%_ - _%rest2617526244%_ - _%hd2616526212%_ - _%hd2616226202%_ - _%hd2615926192%_)))))) - (_%loop2617026224%_ _%target2616726218%_ '())))) - (_%__match2700527006%_ - (lambda (_%e2614726289%_ - _%hd2614626293%_ - _%tl2614526296%_ - _%e2615026299%_ - _%hd2614926303%_ - _%tl2614826306%_ - _%e2615326309%_ - _%hd2615226313%_ - _%tl2615126316%_) - (let ((_%L26319%_ _%hd2615226313%_) - (_%L26321%_ _%hd2614926303%_)) - (if (gx#identifier? _%L26319%_) - (_%__kont2697926980%_ _%L26319%_ _%L26321%_) - (if (gx#stx-pair/null? _%tl2615126316%_) - (let ((_%__splice2698326984%_ + (##car _%e2616826231%_)))) + (_%loop2616726221%_ + _%lp-tl2617026238%_ + (cons _%lp-hd2616926235%_ + _%rest2617126228%_)))) + (let ((_%rest2617226241%_ + (reverse _%rest2617126228%_))) + (_%__kont2697826979%_ + _%rest2617226241%_ + _%hd2616226209%_ + _%hd2615926199%_ + _%hd2615626189%_)))))) + (_%loop2616726221%_ _%target2616426215%_ '())))) + (_%__match2700227003%_ + (lambda (_%e2614426286%_ + _%hd2614326290%_ + _%tl2614226293%_ + _%e2614726296%_ + _%hd2614626300%_ + _%tl2614526303%_ + _%e2615026306%_ + _%hd2614926310%_ + _%tl2614826313%_) + (let ((_%L26316%_ _%hd2614926310%_) + (_%L26318%_ _%hd2614626300%_)) + (if (gx#identifier? _%L26316%_) + (_%__kont2697626977%_ _%L26316%_ _%L26318%_) + (if (gx#stx-pair/null? _%tl2614826313%_) + (let ((_%__splice2698026981%_ (gx#syntax-split-splice - _%tl2615126316%_ + _%tl2614826313%_ '0))) - (let ((_%tl2616926221%_ + (let ((_%tl2616626218%_ (let () (declare (not safe)) (##vector-ref - _%__splice2698326984%_ + _%__splice2698026981%_ '1))) - (_%target2616726218%_ + (_%target2616426215%_ (let () (declare (not safe)) (##vector-ref - _%__splice2698326984%_ + _%__splice2698026981%_ '0)))) - (if (gx#stx-null? _%tl2616926221%_) - (_%__match2703127032%_ - _%e2614726289%_ - _%hd2614626293%_ - _%tl2614526296%_ - _%e2615026299%_ - _%hd2614926303%_ - _%tl2614826306%_ - _%e2615326309%_ - _%hd2615226313%_ - _%tl2615126316%_ - _%__splice2698326984%_ - _%target2616726218%_ - _%tl2616926221%_) + (if (gx#stx-null? _%tl2616626218%_) + (_%__match2702827029%_ + _%e2614426286%_ + _%hd2614326290%_ + _%tl2614226293%_ + _%e2614726296%_ + _%hd2614626300%_ + _%tl2614526303%_ + _%e2615026306%_ + _%hd2614926310%_ + _%tl2614826313%_ + _%__splice2698026981%_ + _%target2616426215%_ + _%tl2616626218%_) (let () (declare (not safe)) - (_%g2614126181%_))))) + (_%g2613826178%_))))) (let () (declare (not safe)) - (_%g2614126181%_)))))))) - (if (gx#stx-pair? _%__stx2697626977%_) - (let ((_%e2614726289%_ (gx#syntax-e _%__stx2697626977%_))) - (let ((_%tl2614526296%_ + (_%g2613826178%_)))))))) + (if (gx#stx-pair? _%__stx2697326974%_) + (let ((_%e2614426286%_ (gx#syntax-e _%__stx2697326974%_))) + (let ((_%tl2614226293%_ (let () (declare (not safe)) - (##cdr _%e2614726289%_))) - (_%hd2614626293%_ + (##cdr _%e2614426286%_))) + (_%hd2614326290%_ (let () (declare (not safe)) - (##car _%e2614726289%_)))) - (if (gx#stx-pair? _%tl2614526296%_) - (let ((_%e2615026299%_ - (gx#syntax-e _%tl2614526296%_))) - (let ((_%tl2614826306%_ + (##car _%e2614426286%_)))) + (if (gx#stx-pair? _%tl2614226293%_) + (let ((_%e2614726296%_ + (gx#syntax-e _%tl2614226293%_))) + (let ((_%tl2614526303%_ (let () (declare (not safe)) - (##cdr _%e2615026299%_))) - (_%hd2614926303%_ + (##cdr _%e2614726296%_))) + (_%hd2614626300%_ (let () (declare (not safe)) - (##car _%e2615026299%_)))) - (if (gx#stx-pair? _%tl2614826306%_) - (let ((_%e2615326309%_ - (gx#syntax-e _%tl2614826306%_))) - (let ((_%tl2615126316%_ + (##car _%e2614726296%_)))) + (if (gx#stx-pair? _%tl2614526303%_) + (let ((_%e2615026306%_ + (gx#syntax-e _%tl2614526303%_))) + (let ((_%tl2614826313%_ (let () (declare (not safe)) - (##cdr _%e2615326309%_))) - (_%hd2615226313%_ + (##cdr _%e2615026306%_))) + (_%hd2614926310%_ (let () (declare (not safe)) - (##car _%e2615326309%_)))) - (if (gx#stx-null? _%tl2615126316%_) - (_%__match2700527006%_ - _%e2614726289%_ - _%hd2614626293%_ - _%tl2614526296%_ - _%e2615026299%_ - _%hd2614926303%_ - _%tl2614826306%_ - _%e2615326309%_ - _%hd2615226313%_ - _%tl2615126316%_) + (##car _%e2615026306%_)))) + (if (gx#stx-null? _%tl2614826313%_) + (_%__match2700227003%_ + _%e2614426286%_ + _%hd2614326290%_ + _%tl2614226293%_ + _%e2614726296%_ + _%hd2614626300%_ + _%tl2614526303%_ + _%e2615026306%_ + _%hd2614926310%_ + _%tl2614826313%_) (if (gx#stx-pair/null? - _%tl2615126316%_) - (let ((_%__splice2698326984%_ + _%tl2614826313%_) + (let ((_%__splice2698026981%_ (gx#syntax-split-splice - _%tl2615126316%_ + _%tl2614826313%_ '0))) - (let ((_%tl2616926221%_ + (let ((_%tl2616626218%_ (let () (declare (not safe)) (##vector-ref - _%__splice2698326984%_ + _%__splice2698026981%_ '1))) - (_%target2616726218%_ + (_%target2616426215%_ (let () (declare (not safe)) (##vector-ref - _%__splice2698326984%_ + _%__splice2698026981%_ '0)))) (if (gx#stx-null? - _%tl2616926221%_) - (_%__match2703127032%_ - _%e2614726289%_ - _%hd2614626293%_ - _%tl2614526296%_ - _%e2615026299%_ - _%hd2614926303%_ - _%tl2614826306%_ - _%e2615326309%_ - _%hd2615226313%_ - _%tl2615126316%_ - _%__splice2698326984%_ - _%target2616726218%_ - _%tl2616926221%_) + _%tl2616626218%_) + (_%__match2702827029%_ + _%e2614426286%_ + _%hd2614326290%_ + _%tl2614226293%_ + _%e2614726296%_ + _%hd2614626300%_ + _%tl2614526303%_ + _%e2615026306%_ + _%hd2614926310%_ + _%tl2614826313%_ + _%__splice2698026981%_ + _%target2616426215%_ + _%tl2616626218%_) (let () (declare (not safe)) - (_%g2614126181%_))))) + (_%g2613826178%_))))) (let () (declare (not safe)) - (_%g2614126181%_)))))) + (_%g2613826178%_)))))) (let () (declare (not safe)) - (_%g2614126181%_))))) - (let () (declare (not safe)) (_%g2614126181%_))))) - (let () (declare (not safe)) (_%g2614126181%_)))))))) + (_%g2613826178%_))))) + (let () (declare (not safe)) (_%g2613826178%_))))) + (let () (declare (not safe)) (_%g2613826178%_)))))))) (define |gerbil/core/mop~MOP-4[:0:]#@-set!| - (lambda (_%$stx26341%_) - (let* ((_%__stx2703427035%_ _%$stx26341%_) - (_%g2634626398%_ + (lambda (_%$stx26338%_) + (let* ((_%__stx2703127032%_ _%$stx26338%_) + (_%g2634326395%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2703427035%_)))) - (let ((_%__kont2703727038%_ - (lambda (_%L26574%_ _%L26576%_ _%L26577%_) + _%__stx2703127032%_)))) + (let ((_%__kont2703427035%_ + (lambda (_%L26571%_ _%L26573%_ _%L26574%_) (cons (gx#datum->syntax '#f 'slot-set!) - (cons _%L26577%_ + (cons _%L26574%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26576%_ '())) - (cons _%L26574%_ '())))))) - (_%__kont2703927040%_ - (lambda (_%L26485%_ + (cons _%L26573%_ '())) + (cons _%L26571%_ '())))))) + (_%__kont2703627037%_ + (lambda (_%L26482%_ + _%L26484%_ + _%L26485%_ + _%L26486%_ _%L26487%_ - _%L26488%_ - _%L26489%_ - _%L26490%_ - _%L26491%_) - (cons _%L26491%_ + _%L26488%_) + (cons _%L26488%_ (cons (cons (gx#datum->syntax '#f '@) - (cons _%L26490%_ - (cons _%L26489%_ - (foldr (lambda (_%g2651826521%_ + (cons _%L26487%_ + (cons _%L26486%_ + (foldr (lambda (_%g2651526518%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2651926524%_) - (cons _%g2651826521%_ _%g2651926524%_)) + _%g2651626521%_) + (cons _%g2651526518%_ _%g2651626521%_)) '() - _%L26488%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L26487%_ (cons _%L26485%_ '()))))))) - (let* ((_%__match2710927110%_ - (lambda (_%e2637126405%_ - _%hd2637026409%_ - _%tl2636926412%_ - _%e2637426415%_ - _%hd2637326419%_ - _%tl2637226422%_ - _%e2637726425%_ - _%hd2637626429%_ - _%tl2637526432%_ - _%__splice2704127042%_ - _%target2637826435%_ - _%tl2638026438%_ - _%e2638926441%_ - _%hd2638826445%_ - _%tl2638726448%_ - _%e2639226451%_ - _%hd2639126455%_ - _%tl2639026458%_) - (letrec ((_%loop2638126461%_ - (lambda (_%hd2637926465%_ _%path2638526468%_) - (if (gx#stx-pair? _%hd2637926465%_) - (let ((_%e2638226471%_ - (gx#syntax-e _%hd2637926465%_))) - (let ((_%lp-tl2638426478%_ + _%L26485%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%L26484%_ (cons _%L26482%_ '()))))))) + (let* ((_%__match2710627107%_ + (lambda (_%e2636826402%_ + _%hd2636726406%_ + _%tl2636626409%_ + _%e2637126412%_ + _%hd2637026416%_ + _%tl2636926419%_ + _%e2637426422%_ + _%hd2637326426%_ + _%tl2637226429%_ + _%__splice2703827039%_ + _%target2637526432%_ + _%tl2637726435%_ + _%e2638626438%_ + _%hd2638526442%_ + _%tl2638426445%_ + _%e2638926448%_ + _%hd2638826452%_ + _%tl2638726455%_) + (letrec ((_%loop2637826458%_ + (lambda (_%hd2637626462%_ _%path2638226465%_) + (if (gx#stx-pair? _%hd2637626462%_) + (let ((_%e2637926468%_ + (gx#syntax-e _%hd2637626462%_))) + (let ((_%lp-tl2638126475%_ (let () (declare (not safe)) - (##cdr _%e2638226471%_))) - (_%lp-hd2638326475%_ + (##cdr _%e2637926468%_))) + (_%lp-hd2638026472%_ (let () (declare (not safe)) - (##car _%e2638226471%_)))) - (_%loop2638126461%_ - _%lp-tl2638426478%_ - (cons _%lp-hd2638326475%_ - _%path2638526468%_)))) - (let ((_%path2638626481%_ - (reverse _%path2638526468%_))) - (_%__kont2703927040%_ - _%hd2639126455%_ - _%hd2638826445%_ - _%path2638626481%_ - _%hd2637626429%_ - _%hd2637326419%_ - _%hd2637026409%_)))))) - (_%loop2638126461%_ _%target2637826435%_ '())))) - (_%__match2706927070%_ - (lambda (_%e2635326534%_ - _%hd2635226538%_ - _%tl2635126541%_ - _%e2635626544%_ - _%hd2635526548%_ - _%tl2635426551%_ - _%e2635926554%_ - _%hd2635826558%_ - _%tl2635726561%_ - _%e2636226564%_ - _%hd2636126568%_ - _%tl2636026571%_) - (let ((_%L26574%_ _%hd2636126568%_) - (_%L26576%_ _%hd2635826558%_) - (_%L26577%_ _%hd2635526548%_)) - (if (gx#identifier? _%L26576%_) - (_%__kont2703727038%_ - _%L26574%_ - _%L26576%_ - _%L26577%_) - (if (gx#stx-pair/null? _%tl2635726561%_) - (if (let ((__tmp27413 - (gx#stx-length _%tl2635726561%_))) + (##car _%e2637926468%_)))) + (_%loop2637826458%_ + _%lp-tl2638126475%_ + (cons _%lp-hd2638026472%_ + _%path2638226465%_)))) + (let ((_%path2638326478%_ + (reverse _%path2638226465%_))) + (_%__kont2703627037%_ + _%hd2638826452%_ + _%hd2638526442%_ + _%path2638326478%_ + _%hd2637326426%_ + _%hd2637026416%_ + _%hd2636726406%_)))))) + (_%loop2637826458%_ _%target2637526432%_ '())))) + (_%__match2706627067%_ + (lambda (_%e2635026531%_ + _%hd2634926535%_ + _%tl2634826538%_ + _%e2635326541%_ + _%hd2635226545%_ + _%tl2635126548%_ + _%e2635626551%_ + _%hd2635526555%_ + _%tl2635426558%_ + _%e2635926561%_ + _%hd2635826565%_ + _%tl2635726568%_) + (let ((_%L26571%_ _%hd2635826565%_) + (_%L26573%_ _%hd2635526555%_) + (_%L26574%_ _%hd2635226545%_)) + (if (gx#identifier? _%L26573%_) + (_%__kont2703427035%_ + _%L26571%_ + _%L26573%_ + _%L26574%_) + (if (gx#stx-pair/null? _%tl2635426558%_) + (if (let ((__tmp27324 + (gx#stx-length _%tl2635426558%_))) (declare (not safe)) - (##fx>= __tmp27413 '2)) - (let ((_%__splice2704127042%_ + (##fx>= __tmp27324 '2)) + (let ((_%__splice2703827039%_ (gx#syntax-split-splice - _%tl2635726561%_ + _%tl2635426558%_ '2))) - (let ((_%tl2638026438%_ + (let ((_%tl2637726435%_ (let () (declare (not safe)) (##vector-ref - _%__splice2704127042%_ + _%__splice2703827039%_ '1))) - (_%target2637826435%_ + (_%target2637526432%_ (let () (declare (not safe)) (##vector-ref - _%__splice2704127042%_ + _%__splice2703827039%_ '0)))) - (if (gx#stx-pair? _%tl2638026438%_) - (let ((_%e2638926441%_ + (if (gx#stx-pair? _%tl2637726435%_) + (let ((_%e2638626438%_ (gx#syntax-e - _%tl2638026438%_))) - (let ((_%tl2638726448%_ + _%tl2637726435%_))) + (let ((_%tl2638426445%_ (let () (declare (not safe)) - (##cdr _%e2638926441%_))) - (_%hd2638826445%_ + (##cdr _%e2638626438%_))) + (_%hd2638526442%_ (let () (declare (not safe)) - (##car _%e2638926441%_)))) + (##car _%e2638626438%_)))) (if (gx#stx-pair? - _%tl2638726448%_) - (let ((_%e2639226451%_ + _%tl2638426445%_) + (let ((_%e2638926448%_ (gx#syntax-e - _%tl2638726448%_))) - (let ((_%tl2639026458%_ + _%tl2638426445%_))) + (let ((_%tl2638726455%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e2639226451%_))) - (_%hd2639126455%_ - (let () (declare (not safe)) (##car _%e2639226451%_)))) - (if (gx#stx-null? _%tl2639026458%_) - (_%__match2710927110%_ - _%e2635326534%_ - _%hd2635226538%_ - _%tl2635126541%_ - _%e2635626544%_ - _%hd2635526548%_ - _%tl2635426551%_ - _%e2635926554%_ - _%hd2635826558%_ - _%tl2635726561%_ - _%__splice2704127042%_ - _%target2637826435%_ - _%tl2638026438%_ - _%e2638926441%_ - _%hd2638826445%_ - _%tl2638726448%_ - _%e2639226451%_ - _%hd2639126455%_ - _%tl2639026458%_) - (let () (declare (not safe)) (_%g2634626398%_))))) + (##cdr _%e2638926448%_))) + (_%hd2638826452%_ + (let () (declare (not safe)) (##car _%e2638926448%_)))) + (if (gx#stx-null? _%tl2638726455%_) + (_%__match2710627107%_ + _%e2635026531%_ + _%hd2634926535%_ + _%tl2634826538%_ + _%e2635326541%_ + _%hd2635226545%_ + _%tl2635126548%_ + _%e2635626551%_ + _%hd2635526555%_ + _%tl2635426558%_ + _%__splice2703827039%_ + _%target2637526432%_ + _%tl2637726435%_ + _%e2638626438%_ + _%hd2638526442%_ + _%tl2638426445%_ + _%e2638926448%_ + _%hd2638826452%_ + _%tl2638726455%_) + (let () (declare (not safe)) (_%g2634326395%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g2634626398%_))))) + (_%g2634326395%_))))) (let () (declare (not safe)) - (_%g2634626398%_))))) + (_%g2634326395%_))))) (let () (declare (not safe)) - (_%g2634626398%_))) + (_%g2634326395%_))) (let () (declare (not safe)) - (_%g2634626398%_)))))))) - (if (gx#stx-pair? _%__stx2703427035%_) - (let ((_%e2635326534%_ (gx#syntax-e _%__stx2703427035%_))) - (let ((_%tl2635126541%_ + (_%g2634326395%_)))))))) + (if (gx#stx-pair? _%__stx2703127032%_) + (let ((_%e2635026531%_ (gx#syntax-e _%__stx2703127032%_))) + (let ((_%tl2634826538%_ (let () (declare (not safe)) - (##cdr _%e2635326534%_))) - (_%hd2635226538%_ + (##cdr _%e2635026531%_))) + (_%hd2634926535%_ (let () (declare (not safe)) - (##car _%e2635326534%_)))) - (if (gx#stx-pair? _%tl2635126541%_) - (let ((_%e2635626544%_ - (gx#syntax-e _%tl2635126541%_))) - (let ((_%tl2635426551%_ + (##car _%e2635026531%_)))) + (if (gx#stx-pair? _%tl2634826538%_) + (let ((_%e2635326541%_ + (gx#syntax-e _%tl2634826538%_))) + (let ((_%tl2635126548%_ (let () (declare (not safe)) - (##cdr _%e2635626544%_))) - (_%hd2635526548%_ + (##cdr _%e2635326541%_))) + (_%hd2635226545%_ (let () (declare (not safe)) - (##car _%e2635626544%_)))) - (if (gx#stx-pair? _%tl2635426551%_) - (let ((_%e2635926554%_ - (gx#syntax-e _%tl2635426551%_))) - (let ((_%tl2635726561%_ + (##car _%e2635326541%_)))) + (if (gx#stx-pair? _%tl2635126548%_) + (let ((_%e2635626551%_ + (gx#syntax-e _%tl2635126548%_))) + (let ((_%tl2635426558%_ (let () (declare (not safe)) - (##cdr _%e2635926554%_))) - (_%hd2635826558%_ + (##cdr _%e2635626551%_))) + (_%hd2635526555%_ (let () (declare (not safe)) - (##car _%e2635926554%_)))) - (if (gx#stx-pair? _%tl2635726561%_) - (let ((_%e2636226564%_ + (##car _%e2635626551%_)))) + (if (gx#stx-pair? _%tl2635426558%_) + (let ((_%e2635926561%_ (gx#syntax-e - _%tl2635726561%_))) - (let ((_%tl2636026571%_ + _%tl2635426558%_))) + (let ((_%tl2635726568%_ (let () (declare (not safe)) - (##cdr _%e2636226564%_))) - (_%hd2636126568%_ + (##cdr _%e2635926561%_))) + (_%hd2635826565%_ (let () (declare (not safe)) - (##car _%e2636226564%_)))) + (##car _%e2635926561%_)))) (if (gx#stx-null? - _%tl2636026571%_) - (_%__match2706927070%_ - _%e2635326534%_ - _%hd2635226538%_ - _%tl2635126541%_ - _%e2635626544%_ - _%hd2635526548%_ - _%tl2635426551%_ - _%e2635926554%_ - _%hd2635826558%_ - _%tl2635726561%_ - _%e2636226564%_ - _%hd2636126568%_ - _%tl2636026571%_) + _%tl2635726568%_) + (_%__match2706627067%_ + _%e2635026531%_ + _%hd2634926535%_ + _%tl2634826538%_ + _%e2635326541%_ + _%hd2635226545%_ + _%tl2635126548%_ + _%e2635626551%_ + _%hd2635526555%_ + _%tl2635426558%_ + _%e2635926561%_ + _%hd2635826565%_ + _%tl2635726568%_) (if (gx#stx-pair/null? - _%tl2635726561%_) - (if (let ((__tmp27414 + _%tl2635426558%_) + (if (let ((__tmp27325 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-length _%tl2635726561%_))) + (gx#stx-length _%tl2635426558%_))) (declare (not safe)) - (##fx>= __tmp27414 '2)) - (let ((_%__splice2704127042%_ - (gx#syntax-split-splice _%tl2635726561%_ '2))) - (let ((_%tl2638026438%_ + (##fx>= __tmp27325 '2)) + (let ((_%__splice2703827039%_ + (gx#syntax-split-splice _%tl2635426558%_ '2))) + (let ((_%tl2637726435%_ (let () (declare (not safe)) - (##vector-ref _%__splice2704127042%_ '1))) - (_%target2637826435%_ + (##vector-ref _%__splice2703827039%_ '1))) + (_%target2637526432%_ (let () (declare (not safe)) - (##vector-ref _%__splice2704127042%_ '0)))) - (if (gx#stx-pair? _%tl2638026438%_) - (let ((_%e2638926441%_ - (gx#syntax-e _%tl2638026438%_))) - (let ((_%tl2638726448%_ + (##vector-ref _%__splice2703827039%_ '0)))) + (if (gx#stx-pair? _%tl2637726435%_) + (let ((_%e2638626438%_ + (gx#syntax-e _%tl2637726435%_))) + (let ((_%tl2638426445%_ (let () (declare (not safe)) - (##cdr _%e2638926441%_))) - (_%hd2638826445%_ + (##cdr _%e2638626438%_))) + (_%hd2638526442%_ (let () (declare (not safe)) - (##car _%e2638926441%_)))) - (if (gx#stx-pair? _%tl2638726448%_) - (let ((_%e2639226451%_ - (gx#syntax-e _%tl2638726448%_))) - (let ((_%tl2639026458%_ + (##car _%e2638626438%_)))) + (if (gx#stx-pair? _%tl2638426445%_) + (let ((_%e2638926448%_ + (gx#syntax-e _%tl2638426445%_))) + (let ((_%tl2638726455%_ (let () (declare (not safe)) - (##cdr _%e2639226451%_))) - (_%hd2639126455%_ + (##cdr _%e2638926448%_))) + (_%hd2638826452%_ (let () (declare (not safe)) - (##car _%e2639226451%_)))) - (if (gx#stx-null? _%tl2639026458%_) - (_%__match2710927110%_ - _%e2635326534%_ - _%hd2635226538%_ - _%tl2635126541%_ - _%e2635626544%_ - _%hd2635526548%_ - _%tl2635426551%_ - _%e2635926554%_ - _%hd2635826558%_ - _%tl2635726561%_ - _%__splice2704127042%_ - _%target2637826435%_ - _%tl2638026438%_ - _%e2638926441%_ - _%hd2638826445%_ - _%tl2638726448%_ - _%e2639226451%_ - _%hd2639126455%_ - _%tl2639026458%_) + (##car _%e2638926448%_)))) + (if (gx#stx-null? _%tl2638726455%_) + (_%__match2710627107%_ + _%e2635026531%_ + _%hd2634926535%_ + _%tl2634826538%_ + _%e2635326541%_ + _%hd2635226545%_ + _%tl2635126548%_ + _%e2635626551%_ + _%hd2635526555%_ + _%tl2635426558%_ + _%__splice2703827039%_ + _%target2637526432%_ + _%tl2637726435%_ + _%e2638626438%_ + _%hd2638526442%_ + _%tl2638426445%_ + _%e2638926448%_ + _%hd2638826452%_ + _%tl2638726455%_) (let () (declare (not safe)) - (_%g2634626398%_))))) + (_%g2634326395%_))))) (let () (declare (not safe)) - (_%g2634626398%_))))) - (let () (declare (not safe)) (_%g2634626398%_))))) - (let () (declare (not safe)) (_%g2634626398%_))) - (let () (declare (not safe)) (_%g2634626398%_)))))) + (_%g2634326395%_))))) + (let () (declare (not safe)) (_%g2634326395%_))))) + (let () (declare (not safe)) (_%g2634326395%_))) + (let () (declare (not safe)) (_%g2634326395%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl2635726561%_) - (if (let ((__tmp27415 + _%tl2635426558%_) + (if (let ((__tmp27326 (gx#stx-length - _%tl2635726561%_))) + _%tl2635426558%_))) (declare (not safe)) - (##fx>= __tmp27415 '2)) - (let ((_%__splice2704127042%_ + (##fx>= __tmp27326 '2)) + (let ((_%__splice2703827039%_ (gx#syntax-split-splice - _%tl2635726561%_ + _%tl2635426558%_ '2))) - (let ((_%tl2638026438%_ + (let ((_%tl2637726435%_ (let () (declare (not safe)) (##vector-ref - _%__splice2704127042%_ + _%__splice2703827039%_ '1))) - (_%target2637826435%_ + (_%target2637526432%_ (let () (declare (not safe)) (##vector-ref - _%__splice2704127042%_ + _%__splice2703827039%_ '0)))) (if (gx#stx-pair? - _%tl2638026438%_) - (let ((_%e2638926441%_ + _%tl2637726435%_) + (let ((_%e2638626438%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2638026438%_))) - (let ((_%tl2638726448%_ + (gx#syntax-e _%tl2637726435%_))) + (let ((_%tl2638426445%_ (let () (declare (not safe)) - (##cdr _%e2638926441%_))) - (_%hd2638826445%_ + (##cdr _%e2638626438%_))) + (_%hd2638526442%_ (let () (declare (not safe)) - (##car _%e2638926441%_)))) - (if (gx#stx-pair? _%tl2638726448%_) - (let ((_%e2639226451%_ - (gx#syntax-e _%tl2638726448%_))) - (let ((_%tl2639026458%_ + (##car _%e2638626438%_)))) + (if (gx#stx-pair? _%tl2638426445%_) + (let ((_%e2638926448%_ + (gx#syntax-e _%tl2638426445%_))) + (let ((_%tl2638726455%_ (let () (declare (not safe)) - (##cdr _%e2639226451%_))) - (_%hd2639126455%_ + (##cdr _%e2638926448%_))) + (_%hd2638826452%_ (let () (declare (not safe)) - (##car _%e2639226451%_)))) - (if (gx#stx-null? _%tl2639026458%_) - (_%__match2710927110%_ - _%e2635326534%_ - _%hd2635226538%_ - _%tl2635126541%_ - _%e2635626544%_ - _%hd2635526548%_ - _%tl2635426551%_ - _%e2635926554%_ - _%hd2635826558%_ - _%tl2635726561%_ - _%__splice2704127042%_ - _%target2637826435%_ - _%tl2638026438%_ - _%e2638926441%_ - _%hd2638826445%_ - _%tl2638726448%_ - _%e2639226451%_ - _%hd2639126455%_ - _%tl2639026458%_) + (##car _%e2638926448%_)))) + (if (gx#stx-null? _%tl2638726455%_) + (_%__match2710627107%_ + _%e2635026531%_ + _%hd2634926535%_ + _%tl2634826538%_ + _%e2635326541%_ + _%hd2635226545%_ + _%tl2635126548%_ + _%e2635626551%_ + _%hd2635526555%_ + _%tl2635426558%_ + _%__splice2703827039%_ + _%target2637526432%_ + _%tl2637726435%_ + _%e2638626438%_ + _%hd2638526442%_ + _%tl2638426445%_ + _%e2638926448%_ + _%hd2638826452%_ + _%tl2638726455%_) (let () (declare (not safe)) - (_%g2634626398%_))))) - (let () (declare (not safe)) (_%g2634626398%_))))) - (let () (declare (not safe)) (_%g2634626398%_))))) + (_%g2634326395%_))))) + (let () (declare (not safe)) (_%g2634326395%_))))) + (let () (declare (not safe)) (_%g2634326395%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g2634626398%_))) + (_%g2634326395%_))) (let () (declare (not safe)) - (_%g2634626398%_)))))) + (_%g2634326395%_)))))) (let () (declare (not safe)) - (_%g2634626398%_))))) - (let () (declare (not safe)) (_%g2634626398%_))))) - (let () (declare (not safe)) (_%g2634626398%_)))))))))) + (_%g2634326395%_))))) + (let () (declare (not safe)) (_%g2634326395%_))))) + (let () (declare (not safe)) (_%g2634326395%_)))))))))) diff --git a/src/bootstrap/gerbil/core/mop~4.scm b/src/bootstrap/gerbil/core/mop~4.scm index c2ed1671d..f2d5a3320 100644 --- a/src/bootstrap/gerbil/core/mop~4.scm +++ b/src/bootstrap/gerbil/core/mop~4.scm @@ -1,1293 +1,1293 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/mop~MOP-5[1]#_g27419_| + (define |gerbil/core/mop~MOP-5[1]#_g27330_| (##structure gx#syntax-quote::t 't::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27421_| + (define |gerbil/core/mop~MOP-5[1]#_g27332_| (##structure gx#syntax-quote::t 'true #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27423_| + (define |gerbil/core/mop~MOP-5[1]#_g27334_| (##structure gx#syntax-quote::t ':t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27425_| + (define |gerbil/core/mop~MOP-5[1]#_g27336_| (##structure gx#syntax-quote::t 'class::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27427_| + (define |gerbil/core/mop~MOP-5[1]#_g27338_| (##structure gx#syntax-quote::t 'class-type? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27431_| + (define |gerbil/core/mop~MOP-5[1]#_g27342_| (##structure gx#syntax-quote::t 'make-class-type #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27434_| + (define |gerbil/core/mop~MOP-5[1]#_g27345_| (##structure gx#syntax-quote::t 'class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27435_| + (define |gerbil/core/mop~MOP-5[1]#_g27346_| (##structure gx#syntax-quote::t 'class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27436_| + (define |gerbil/core/mop~MOP-5[1]#_g27347_| (##structure gx#syntax-quote::t 'class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27437_| + (define |gerbil/core/mop~MOP-5[1]#_g27348_| (##structure gx#syntax-quote::t 'class-type-flags #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27438_| + (define |gerbil/core/mop~MOP-5[1]#_g27349_| (##structure gx#syntax-quote::t 'class-type-fields #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27439_| + (define |gerbil/core/mop~MOP-5[1]#_g27350_| (##structure gx#syntax-quote::t 'class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27440_| + (define |gerbil/core/mop~MOP-5[1]#_g27351_| (##structure gx#syntax-quote::t 'class-type-slot-vector #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27441_| + (define |gerbil/core/mop~MOP-5[1]#_g27352_| (##structure gx#syntax-quote::t 'class-type-slot-table #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27442_| + (define |gerbil/core/mop~MOP-5[1]#_g27353_| (##structure gx#syntax-quote::t 'class-type-properties #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27443_| + (define |gerbil/core/mop~MOP-5[1]#_g27354_| (##structure gx#syntax-quote::t 'class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27444_| + (define |gerbil/core/mop~MOP-5[1]#_g27355_| (##structure gx#syntax-quote::t 'class-type-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27446_| + (define |gerbil/core/mop~MOP-5[1]#_g27357_| (##structure gx#syntax-quote::t '&class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27447_| + (define |gerbil/core/mop~MOP-5[1]#_g27358_| (##structure gx#syntax-quote::t '&class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27448_| + (define |gerbil/core/mop~MOP-5[1]#_g27359_| (##structure gx#syntax-quote::t '&class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27449_| + (define |gerbil/core/mop~MOP-5[1]#_g27360_| (##structure gx#syntax-quote::t '&class-type-flags #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27450_| + (define |gerbil/core/mop~MOP-5[1]#_g27361_| (##structure gx#syntax-quote::t '&class-type-fields #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27451_| + (define |gerbil/core/mop~MOP-5[1]#_g27362_| (##structure gx#syntax-quote::t '&class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27452_| + (define |gerbil/core/mop~MOP-5[1]#_g27363_| (##structure gx#syntax-quote::t '&class-type-slot-vector #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27453_| + (define |gerbil/core/mop~MOP-5[1]#_g27364_| (##structure gx#syntax-quote::t '&class-type-slot-table #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27454_| + (define |gerbil/core/mop~MOP-5[1]#_g27365_| (##structure gx#syntax-quote::t '&class-type-properties #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27455_| + (define |gerbil/core/mop~MOP-5[1]#_g27366_| (##structure gx#syntax-quote::t '&class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27456_| + (define |gerbil/core/mop~MOP-5[1]#_g27367_| (##structure gx#syntax-quote::t '&class-type-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27459_| + (define |gerbil/core/mop~MOP-5[1]#_g27370_| (##structure gx#syntax-quote::t 'object::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27463_| + (define |gerbil/core/mop~MOP-5[1]#_g27374_| (##structure gx#syntax-quote::t 'immediate::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27465_| + (define |gerbil/core/mop~MOP-5[1]#_g27376_| (##structure gx#syntax-quote::t 'immediate? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27467_| + (define |gerbil/core/mop~MOP-5[1]#_g27378_| (##structure gx#syntax-quote::t ':immediate #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27469_| + (define |gerbil/core/mop~MOP-5[1]#_g27380_| (##structure gx#syntax-quote::t 'char::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27471_| + (define |gerbil/core/mop~MOP-5[1]#_g27382_| (##structure gx#syntax-quote::t 'char? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27474_| + (define |gerbil/core/mop~MOP-5[1]#_g27385_| (##structure gx#syntax-quote::t 'boolean::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27476_| + (define |gerbil/core/mop~MOP-5[1]#_g27387_| (##structure gx#syntax-quote::t 'boolean? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27479_| + (define |gerbil/core/mop~MOP-5[1]#_g27390_| (##structure gx#syntax-quote::t 'atom::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27481_| + (define |gerbil/core/mop~MOP-5[1]#_g27392_| (##structure gx#syntax-quote::t 'atom? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27483_| + (define |gerbil/core/mop~MOP-5[1]#_g27394_| (##structure gx#syntax-quote::t ':atom #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27485_| + (define |gerbil/core/mop~MOP-5[1]#_g27396_| (##structure gx#syntax-quote::t 'void::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27487_| + (define |gerbil/core/mop~MOP-5[1]#_g27398_| (##structure gx#syntax-quote::t 'void? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27490_| + (define |gerbil/core/mop~MOP-5[1]#_g27401_| (##structure gx#syntax-quote::t 'eof::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27492_| + (define |gerbil/core/mop~MOP-5[1]#_g27403_| (##structure gx#syntax-quote::t 'eof-object? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27494_| + (define |gerbil/core/mop~MOP-5[1]#_g27405_| (##structure gx#syntax-quote::t ':boolean #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27496_| + (define |gerbil/core/mop~MOP-5[1]#_g27407_| (##structure gx#syntax-quote::t 'true::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27498_| + (define |gerbil/core/mop~MOP-5[1]#_g27409_| (##structure gx#syntax-quote::t 'true? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27501_| + (define |gerbil/core/mop~MOP-5[1]#_g27412_| (##structure gx#syntax-quote::t 'false::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27503_| + (define |gerbil/core/mop~MOP-5[1]#_g27414_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27506_| + (define |gerbil/core/mop~MOP-5[1]#_g27417_| (##structure gx#syntax-quote::t 'special::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27508_| + (define |gerbil/core/mop~MOP-5[1]#_g27419_| (##structure gx#syntax-quote::t 'special? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27511_| + (define |gerbil/core/mop~MOP-5[1]#_g27422_| (##structure gx#syntax-quote::t 'number::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27513_| + (define |gerbil/core/mop~MOP-5[1]#_g27424_| (##structure gx#syntax-quote::t 'number? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27515_| + (define |gerbil/core/mop~MOP-5[1]#_g27426_| (##structure gx#syntax-quote::t ':number #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27517_| + (define |gerbil/core/mop~MOP-5[1]#_g27428_| (##structure gx#syntax-quote::t 'real::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27519_| + (define |gerbil/core/mop~MOP-5[1]#_g27430_| (##structure gx#syntax-quote::t 'real? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27521_| + (define |gerbil/core/mop~MOP-5[1]#_g27432_| (##structure gx#syntax-quote::t ':real #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27523_| + (define |gerbil/core/mop~MOP-5[1]#_g27434_| (##structure gx#syntax-quote::t 'integer::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27525_| + (define |gerbil/core/mop~MOP-5[1]#_g27436_| (##structure gx#syntax-quote::t 'exact-integer? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27527_| + (define |gerbil/core/mop~MOP-5[1]#_g27438_| (##structure gx#syntax-quote::t ':integer #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27529_| + (define |gerbil/core/mop~MOP-5[1]#_g27440_| (##structure gx#syntax-quote::t 'fixnum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27531_| + (define |gerbil/core/mop~MOP-5[1]#_g27442_| (##structure gx#syntax-quote::t 'fixnum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27534_| + (define |gerbil/core/mop~MOP-5[1]#_g27445_| (##structure gx#syntax-quote::t 'bignum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27536_| + (define |gerbil/core/mop~MOP-5[1]#_g27447_| (##structure gx#syntax-quote::t '##bignum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27539_| + (define |gerbil/core/mop~MOP-5[1]#_g27450_| (##structure gx#syntax-quote::t 'ratnum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27541_| + (define |gerbil/core/mop~MOP-5[1]#_g27452_| (##structure gx#syntax-quote::t '##ratnum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27544_| + (define |gerbil/core/mop~MOP-5[1]#_g27455_| (##structure gx#syntax-quote::t 'flonum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27546_| + (define |gerbil/core/mop~MOP-5[1]#_g27457_| (##structure gx#syntax-quote::t 'flonum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27549_| + (define |gerbil/core/mop~MOP-5[1]#_g27460_| (##structure gx#syntax-quote::t 'cpxnum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27551_| + (define |gerbil/core/mop~MOP-5[1]#_g27462_| (##structure gx#syntax-quote::t '##cpxnum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27554_| + (define |gerbil/core/mop~MOP-5[1]#_g27465_| (##structure gx#syntax-quote::t 'symbolic::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27556_| + (define |gerbil/core/mop~MOP-5[1]#_g27467_| (##structure gx#syntax-quote::t 'symbolic? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27558_| + (define |gerbil/core/mop~MOP-5[1]#_g27469_| (##structure gx#syntax-quote::t ':symbolic #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27560_| + (define |gerbil/core/mop~MOP-5[1]#_g27471_| (##structure gx#syntax-quote::t 'symbol::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27562_| + (define |gerbil/core/mop~MOP-5[1]#_g27473_| (##structure gx#syntax-quote::t 'symbol? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27565_| + (define |gerbil/core/mop~MOP-5[1]#_g27476_| (##structure gx#syntax-quote::t 'keyword::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27567_| + (define |gerbil/core/mop~MOP-5[1]#_g27478_| (##structure gx#syntax-quote::t 'keyword? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27570_| + (define |gerbil/core/mop~MOP-5[1]#_g27481_| (##structure gx#syntax-quote::t 'list::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27572_| + (define |gerbil/core/mop~MOP-5[1]#_g27483_| (##structure gx#syntax-quote::t 'list? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27574_| + (define |gerbil/core/mop~MOP-5[1]#_g27485_| (##structure gx#syntax-quote::t ':list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27576_| + (define |gerbil/core/mop~MOP-5[1]#_g27487_| (##structure gx#syntax-quote::t 'pair::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27578_| + (define |gerbil/core/mop~MOP-5[1]#_g27489_| (##structure gx#syntax-quote::t 'pair? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27581_| + (define |gerbil/core/mop~MOP-5[1]#_g27492_| (##structure gx#syntax-quote::t 'null::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27583_| + (define |gerbil/core/mop~MOP-5[1]#_g27494_| (##structure gx#syntax-quote::t 'null? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27586_| + (define |gerbil/core/mop~MOP-5[1]#_g27497_| (##structure gx#syntax-quote::t 'sequence::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27588_| + (define |gerbil/core/mop~MOP-5[1]#_g27499_| (##structure gx#syntax-quote::t 'sequence? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27590_| + (define |gerbil/core/mop~MOP-5[1]#_g27501_| (##structure gx#syntax-quote::t ':sequence #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27592_| + (define |gerbil/core/mop~MOP-5[1]#_g27503_| (##structure gx#syntax-quote::t 'vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27594_| + (define |gerbil/core/mop~MOP-5[1]#_g27505_| (##structure gx#syntax-quote::t 'vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27597_| + (define |gerbil/core/mop~MOP-5[1]#_g27508_| (##structure gx#syntax-quote::t 'string::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27599_| + (define |gerbil/core/mop~MOP-5[1]#_g27510_| (##structure gx#syntax-quote::t 'string? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27602_| + (define |gerbil/core/mop~MOP-5[1]#_g27513_| (##structure gx#syntax-quote::t 'hvector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27604_| + (define |gerbil/core/mop~MOP-5[1]#_g27515_| (##structure gx#syntax-quote::t 'hvector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27606_| + (define |gerbil/core/mop~MOP-5[1]#_g27517_| (##structure gx#syntax-quote::t ':hvector #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27608_| + (define |gerbil/core/mop~MOP-5[1]#_g27519_| (##structure gx#syntax-quote::t 'u8vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27610_| + (define |gerbil/core/mop~MOP-5[1]#_g27521_| (##structure gx#syntax-quote::t 'u8vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27613_| + (define |gerbil/core/mop~MOP-5[1]#_g27524_| (##structure gx#syntax-quote::t 's8vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27615_| + (define |gerbil/core/mop~MOP-5[1]#_g27526_| (##structure gx#syntax-quote::t 's8vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27618_| + (define |gerbil/core/mop~MOP-5[1]#_g27529_| (##structure gx#syntax-quote::t 'u16vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27620_| + (define |gerbil/core/mop~MOP-5[1]#_g27531_| (##structure gx#syntax-quote::t 'u16vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27623_| + (define |gerbil/core/mop~MOP-5[1]#_g27534_| (##structure gx#syntax-quote::t 's16vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27625_| + (define |gerbil/core/mop~MOP-5[1]#_g27536_| (##structure gx#syntax-quote::t 's16vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27628_| + (define |gerbil/core/mop~MOP-5[1]#_g27539_| (##structure gx#syntax-quote::t 'u32vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27630_| + (define |gerbil/core/mop~MOP-5[1]#_g27541_| (##structure gx#syntax-quote::t 'u32vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27633_| + (define |gerbil/core/mop~MOP-5[1]#_g27544_| (##structure gx#syntax-quote::t 's32vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27635_| + (define |gerbil/core/mop~MOP-5[1]#_g27546_| (##structure gx#syntax-quote::t 's32vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27638_| + (define |gerbil/core/mop~MOP-5[1]#_g27549_| (##structure gx#syntax-quote::t 'u64vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27640_| + (define |gerbil/core/mop~MOP-5[1]#_g27551_| (##structure gx#syntax-quote::t 'u64vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27643_| + (define |gerbil/core/mop~MOP-5[1]#_g27554_| (##structure gx#syntax-quote::t 's64vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27645_| + (define |gerbil/core/mop~MOP-5[1]#_g27556_| (##structure gx#syntax-quote::t 's64vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27648_| + (define |gerbil/core/mop~MOP-5[1]#_g27559_| (##structure gx#syntax-quote::t 'f32vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27650_| + (define |gerbil/core/mop~MOP-5[1]#_g27561_| (##structure gx#syntax-quote::t 'f32vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27653_| + (define |gerbil/core/mop~MOP-5[1]#_g27564_| (##structure gx#syntax-quote::t 'f64vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27655_| + (define |gerbil/core/mop~MOP-5[1]#_g27566_| (##structure gx#syntax-quote::t 'f64vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27658_| + (define |gerbil/core/mop~MOP-5[1]#_g27569_| (##structure gx#syntax-quote::t 'values::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27660_| + (define |gerbil/core/mop~MOP-5[1]#_g27571_| (##structure gx#syntax-quote::t '##values? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27663_| + (define |gerbil/core/mop~MOP-5[1]#_g27574_| (##structure gx#syntax-quote::t 'box::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27665_| + (define |gerbil/core/mop~MOP-5[1]#_g27576_| (##structure gx#syntax-quote::t 'box? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27668_| + (define |gerbil/core/mop~MOP-5[1]#_g27579_| (##structure gx#syntax-quote::t 'frame::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27670_| + (define |gerbil/core/mop~MOP-5[1]#_g27581_| (##structure gx#syntax-quote::t '##frame? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27673_| + (define |gerbil/core/mop~MOP-5[1]#_g27584_| (##structure gx#syntax-quote::t 'continuation::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27675_| + (define |gerbil/core/mop~MOP-5[1]#_g27586_| (##structure gx#syntax-quote::t 'continuation? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27678_| + (define |gerbil/core/mop~MOP-5[1]#_g27589_| (##structure gx#syntax-quote::t 'promise::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27680_| + (define |gerbil/core/mop~MOP-5[1]#_g27591_| (##structure gx#syntax-quote::t 'promise? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27683_| + (define |gerbil/core/mop~MOP-5[1]#_g27594_| (##structure gx#syntax-quote::t 'weak::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27685_| + (define |gerbil/core/mop~MOP-5[1]#_g27596_| (##structure gx#syntax-quote::t 'weak? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27688_| + (define |gerbil/core/mop~MOP-5[1]#_g27599_| (##structure gx#syntax-quote::t 'foreign::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27690_| + (define |gerbil/core/mop~MOP-5[1]#_g27601_| (##structure gx#syntax-quote::t 'foreign? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27693_| + (define |gerbil/core/mop~MOP-5[1]#_g27604_| (##structure gx#syntax-quote::t 'procedure::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27695_| + (define |gerbil/core/mop~MOP-5[1]#_g27606_| (##structure gx#syntax-quote::t 'procedure? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27698_| + (define |gerbil/core/mop~MOP-5[1]#_g27609_| (##structure gx#syntax-quote::t 'time::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27700_| + (define |gerbil/core/mop~MOP-5[1]#_g27611_| (##structure gx#syntax-quote::t 'time? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27703_| + (define |gerbil/core/mop~MOP-5[1]#_g27614_| (##structure gx#syntax-quote::t 'thread::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27705_| + (define |gerbil/core/mop~MOP-5[1]#_g27616_| (##structure gx#syntax-quote::t 'thread? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27708_| + (define |gerbil/core/mop~MOP-5[1]#_g27619_| (##structure gx#syntax-quote::t 'thread-group::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27710_| + (define |gerbil/core/mop~MOP-5[1]#_g27621_| (##structure gx#syntax-quote::t 'thread-group? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27713_| + (define |gerbil/core/mop~MOP-5[1]#_g27624_| (##structure gx#syntax-quote::t 'mutex::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27715_| + (define |gerbil/core/mop~MOP-5[1]#_g27626_| (##structure gx#syntax-quote::t 'mutex? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27718_| + (define |gerbil/core/mop~MOP-5[1]#_g27629_| (##structure gx#syntax-quote::t 'condvar::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27720_| + (define |gerbil/core/mop~MOP-5[1]#_g27631_| (##structure gx#syntax-quote::t 'condvar? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27723_| + (define |gerbil/core/mop~MOP-5[1]#_g27634_| (##structure gx#syntax-quote::t 'port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27725_| + (define |gerbil/core/mop~MOP-5[1]#_g27636_| (##structure gx#syntax-quote::t 'port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27727_| + (define |gerbil/core/mop~MOP-5[1]#_g27638_| (##structure gx#syntax-quote::t ':port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27729_| + (define |gerbil/core/mop~MOP-5[1]#_g27640_| (##structure gx#syntax-quote::t 'object-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27731_| + (define |gerbil/core/mop~MOP-5[1]#_g27642_| (##structure gx#syntax-quote::t 'object-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27733_| + (define |gerbil/core/mop~MOP-5[1]#_g27644_| (##structure gx#syntax-quote::t ':object-port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27735_| + (define |gerbil/core/mop~MOP-5[1]#_g27646_| (##structure gx#syntax-quote::t 'character-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27737_| + (define |gerbil/core/mop~MOP-5[1]#_g27648_| (##structure gx#syntax-quote::t 'character-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27739_| + (define |gerbil/core/mop~MOP-5[1]#_g27650_| (##structure gx#syntax-quote::t ':character-port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27741_| + (define |gerbil/core/mop~MOP-5[1]#_g27652_| (##structure gx#syntax-quote::t 'byte-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27743_| + (define |gerbil/core/mop~MOP-5[1]#_g27654_| (##structure gx#syntax-quote::t 'byte-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27745_| + (define |gerbil/core/mop~MOP-5[1]#_g27656_| (##structure gx#syntax-quote::t ':byte-port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27747_| + (define |gerbil/core/mop~MOP-5[1]#_g27658_| (##structure gx#syntax-quote::t 'device-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27749_| + (define |gerbil/core/mop~MOP-5[1]#_g27660_| (##structure gx#syntax-quote::t 'device-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27752_| + (define |gerbil/core/mop~MOP-5[1]#_g27663_| (##structure gx#syntax-quote::t 'vector-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27754_| + (define |gerbil/core/mop~MOP-5[1]#_g27665_| (##structure gx#syntax-quote::t 'vector-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27757_| + (define |gerbil/core/mop~MOP-5[1]#_g27668_| (##structure gx#syntax-quote::t 'string-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27759_| + (define |gerbil/core/mop~MOP-5[1]#_g27670_| (##structure gx#syntax-quote::t 'string-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27762_| + (define |gerbil/core/mop~MOP-5[1]#_g27673_| (##structure gx#syntax-quote::t 'u8vector-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27764_| + (define |gerbil/core/mop~MOP-5[1]#_g27675_| (##structure gx#syntax-quote::t 'u8vector-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27767_| + (define |gerbil/core/mop~MOP-5[1]#_g27678_| (##structure gx#syntax-quote::t 'raw-device-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27769_| + (define |gerbil/core/mop~MOP-5[1]#_g27680_| (##structure gx#syntax-quote::t 'raw-device-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27772_| + (define |gerbil/core/mop~MOP-5[1]#_g27683_| (##structure gx#syntax-quote::t 'tcp-server-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27774_| + (define |gerbil/core/mop~MOP-5[1]#_g27685_| (##structure gx#syntax-quote::t 'tcp-server-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27777_| + (define |gerbil/core/mop~MOP-5[1]#_g27688_| (##structure gx#syntax-quote::t 'udp-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27779_| + (define |gerbil/core/mop~MOP-5[1]#_g27690_| (##structure gx#syntax-quote::t 'udp-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27782_| + (define |gerbil/core/mop~MOP-5[1]#_g27693_| (##structure gx#syntax-quote::t 'directory-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27784_| + (define |gerbil/core/mop~MOP-5[1]#_g27695_| (##structure gx#syntax-quote::t 'directory-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27787_| + (define |gerbil/core/mop~MOP-5[1]#_g27698_| (##structure gx#syntax-quote::t 'event-queue-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27789_| + (define |gerbil/core/mop~MOP-5[1]#_g27700_| (##structure gx#syntax-quote::t 'event-queue-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27792_| + (define |gerbil/core/mop~MOP-5[1]#_g27703_| (##structure gx#syntax-quote::t 'table::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27794_| + (define |gerbil/core/mop~MOP-5[1]#_g27705_| (##structure gx#syntax-quote::t 'table? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27797_| + (define |gerbil/core/mop~MOP-5[1]#_g27708_| (##structure gx#syntax-quote::t 'readenv::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27799_| + (define |gerbil/core/mop~MOP-5[1]#_g27710_| (##structure gx#syntax-quote::t 'readenv? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27802_| + (define |gerbil/core/mop~MOP-5[1]#_g27713_| (##structure gx#syntax-quote::t 'writeenv::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27804_| + (define |gerbil/core/mop~MOP-5[1]#_g27715_| (##structure gx#syntax-quote::t 'writeenv? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27807_| + (define |gerbil/core/mop~MOP-5[1]#_g27718_| (##structure gx#syntax-quote::t 'readtable::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27809_| + (define |gerbil/core/mop~MOP-5[1]#_g27720_| (##structure gx#syntax-quote::t 'readtable? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27812_| + (define |gerbil/core/mop~MOP-5[1]#_g27723_| (##structure gx#syntax-quote::t 'processor::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27814_| + (define |gerbil/core/mop~MOP-5[1]#_g27725_| (##structure gx#syntax-quote::t 'processor? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27817_| + (define |gerbil/core/mop~MOP-5[1]#_g27728_| (##structure gx#syntax-quote::t 'vm::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27819_| + (define |gerbil/core/mop~MOP-5[1]#_g27730_| (##structure gx#syntax-quote::t 'vm? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27822_| + (define |gerbil/core/mop~MOP-5[1]#_g27733_| (##structure gx#syntax-quote::t 'file-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27824_| + (define |gerbil/core/mop~MOP-5[1]#_g27735_| (##structure gx#syntax-quote::t 'file-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27827_| + (define |gerbil/core/mop~MOP-5[1]#_g27738_| (##structure gx#syntax-quote::t 'socket-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27829_| + (define |gerbil/core/mop~MOP-5[1]#_g27740_| (##structure gx#syntax-quote::t 'socket-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27832_| + (define |gerbil/core/mop~MOP-5[1]#_g27743_| (##structure gx#syntax-quote::t 'address-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27834_| + (define |gerbil/core/mop~MOP-5[1]#_g27745_| (##structure gx#syntax-quote::t 'address-info? @@ -1296,260 +1296,257 @@ '())) (begin (define |gerbil/core/mop~MOP-5[:0:]#defsystem-class-info| - (lambda (_%stx26601%_) - (let* ((_%g2660426639%_ - (lambda (_%g2660526635%_) + (lambda (_%stx26598%_) + (let* ((_%g2660126636%_ + (lambda (_%g2660226632%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2660526635%_))) - (_%g2660326833%_ - (lambda (_%g2660526643%_) - (if (gx#stx-pair? _%g2660526643%_) - (let ((_%e2661226646%_ (gx#syntax-e _%g2660526643%_))) - (let ((_%hd2661126650%_ + _%g2660226632%_))) + (_%g2660026830%_ + (lambda (_%g2660226640%_) + (if (gx#stx-pair? _%g2660226640%_) + (let ((_%e2660926643%_ (gx#syntax-e _%g2660226640%_))) + (let ((_%hd2660826647%_ (let () (declare (not safe)) - (##car _%e2661226646%_))) - (_%tl2661026653%_ + (##car _%e2660926643%_))) + (_%tl2660726650%_ (let () (declare (not safe)) - (##cdr _%e2661226646%_)))) - (if (gx#stx-pair? _%tl2661026653%_) - (let ((_%e2661526656%_ - (gx#syntax-e _%tl2661026653%_))) - (let ((_%hd2661426660%_ + (##cdr _%e2660926643%_)))) + (if (gx#stx-pair? _%tl2660726650%_) + (let ((_%e2661226653%_ + (gx#syntax-e _%tl2660726650%_))) + (let ((_%hd2661126657%_ (let () (declare (not safe)) - (##car _%e2661526656%_))) - (_%tl2661326663%_ + (##car _%e2661226653%_))) + (_%tl2661026660%_ (let () (declare (not safe)) - (##cdr _%e2661526656%_)))) - (if (gx#stx-pair? _%tl2661326663%_) - (let ((_%e2661826666%_ - (gx#syntax-e _%tl2661326663%_))) - (let ((_%hd2661726670%_ + (##cdr _%e2661226653%_)))) + (if (gx#stx-pair? _%tl2661026660%_) + (let ((_%e2661526663%_ + (gx#syntax-e _%tl2661026660%_))) + (let ((_%hd2661426667%_ (let () (declare (not safe)) - (##car _%e2661826666%_))) - (_%tl2661626673%_ + (##car _%e2661526663%_))) + (_%tl2661326670%_ (let () (declare (not safe)) - (##cdr _%e2661826666%_)))) - (if (gx#stx-pair? _%tl2661626673%_) - (let ((_%e2662126676%_ + (##cdr _%e2661526663%_)))) + (if (gx#stx-pair? _%tl2661326670%_) + (let ((_%e2661826673%_ (gx#syntax-e - _%tl2661626673%_))) - (let ((_%hd2662026680%_ + _%tl2661326670%_))) + (let ((_%hd2661726677%_ (let () (declare (not safe)) - (##car _%e2662126676%_))) - (_%tl2661926683%_ + (##car _%e2661826673%_))) + (_%tl2661626680%_ (let () (declare (not safe)) - (##cdr _%e2662126676%_)))) + (##cdr _%e2661826673%_)))) (if (gx#stx-pair/null? - _%hd2662026680%_) - (let ((_g27416_ + _%hd2661726677%_) + (let ((_g27327_ (gx#syntax-split-splice - _%hd2662026680%_ + _%hd2661726677%_ '0))) (begin - (let ((_g27417_ + (let ((_g27328_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g27416_) - (##vector-length _g27416_) + (if (##values? _g27327_) + (##vector-length _g27327_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27417_ 2))) - (error "Context expects 2 values" _g27417_))) - (let ((_%target2662226686%_ + (if (not (let () (declare (not safe)) (##fx= _g27328_ 2))) + (error "Context expects 2 values" _g27328_))) + (let ((_%target2661926683%_ (let () (declare (not safe)) - (##vector-ref _g27416_ 0))) - (_%tl2662426689%_ + (##vector-ref _g27327_ 0))) + (_%tl2662126686%_ (let () (declare (not safe)) - (##vector-ref _g27416_ 1)))) - (if (gx#stx-null? _%tl2662426689%_) - (letrec ((_%loop2662526692%_ - (lambda (_%hd2662326696%_ - _%super2662926699%_) - (if (gx#stx-pair? _%hd2662326696%_) - (let ((_%e2662626702%_ - (gx#syntax-e _%hd2662326696%_))) - (let ((_%lp-hd2662726706%_ + (##vector-ref _g27327_ 1)))) + (if (gx#stx-null? _%tl2662126686%_) + (letrec ((_%loop2662226689%_ + (lambda (_%hd2662026693%_ + _%super2662626696%_) + (if (gx#stx-pair? _%hd2662026693%_) + (let ((_%e2662326699%_ + (gx#syntax-e _%hd2662026693%_))) + (let ((_%lp-hd2662426703%_ (let () (declare (not safe)) - (##car _%e2662626702%_))) - (_%lp-tl2662826709%_ + (##car _%e2662326699%_))) + (_%lp-tl2662526706%_ (let () (declare (not safe)) - (##cdr _%e2662626702%_)))) - (_%loop2662526692%_ - _%lp-tl2662826709%_ - (cons _%lp-hd2662726706%_ - _%super2662926699%_)))) - (let ((_%super2663026712%_ - (reverse _%super2662926699%_))) - (if (gx#stx-pair? _%tl2661926683%_) - (let ((_%e2663326716%_ + (##cdr _%e2662326699%_)))) + (_%loop2662226689%_ + _%lp-tl2662526706%_ + (cons _%lp-hd2662426703%_ + _%super2662626696%_)))) + (let ((_%super2662726709%_ + (reverse _%super2662626696%_))) + (if (gx#stx-pair? _%tl2661626680%_) + (let ((_%e2663026713%_ (gx#syntax-e - _%tl2661926683%_))) - (let ((_%hd2663226720%_ + _%tl2661626680%_))) + (let ((_%hd2662926717%_ (let () (declare (not safe)) - (##car _%e2663326716%_))) - (_%tl2663126723%_ + (##car _%e2663026713%_))) + (_%tl2662826720%_ (let () (declare (not safe)) - (##cdr _%e2663326716%_)))) + (##cdr _%e2663026713%_)))) (if (gx#stx-null? - _%tl2663126723%_) - ((lambda (_%L26726%_ - _%L26728%_ - _%L26729%_ - _%L26730%_) - (let* ((_%klass26757%_ + _%tl2662826720%_) + ((lambda (_%L26723%_ + _%L26725%_ + _%L26726%_ + _%L26727%_) + (let* ((_%klass26754%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#eval-syntax _%L26729%_)) - (_%g2676026775%_ - (lambda (_%g2676126771%_) + (gx#eval-syntax _%L26726%_)) + (_%g2675726772%_ + (lambda (_%g2675826768%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2676126771%_))) - (_%g2675926829%_ - (lambda (_%g2676126779%_) - (if (gx#stx-pair? _%g2676126779%_) - (let ((_%e2676626782%_ - (gx#syntax-e _%g2676126779%_))) - (let ((_%hd2676526786%_ + _%g2675826768%_))) + (_%g2675626826%_ + (lambda (_%g2675826776%_) + (if (gx#stx-pair? _%g2675826776%_) + (let ((_%e2676326779%_ + (gx#syntax-e _%g2675826776%_))) + (let ((_%hd2676226783%_ (let () (declare (not safe)) - (##car _%e2676626782%_))) - (_%tl2676426789%_ + (##car _%e2676326779%_))) + (_%tl2676126786%_ (let () (declare (not safe)) - (##cdr _%e2676626782%_)))) - (if (gx#stx-pair? _%tl2676426789%_) - (let ((_%e2676926792%_ - (gx#syntax-e _%tl2676426789%_))) - (let ((_%hd2676826796%_ + (##cdr _%e2676326779%_)))) + (if (gx#stx-pair? _%tl2676126786%_) + (let ((_%e2676626789%_ + (gx#syntax-e _%tl2676126786%_))) + (let ((_%hd2676526793%_ (let () (declare (not safe)) - (##car _%e2676926792%_))) - (_%tl2676726799%_ + (##car _%e2676626789%_))) + (_%tl2676426796%_ (let () (declare (not safe)) - (##cdr _%e2676926792%_)))) - (if (gx#stx-null? _%tl2676726799%_) - ((lambda (_%L26802%_ _%L26804%_) - (let () - (cons (gx#datum->syntax - '#f - 'defsyntax) - (cons _%L26730%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'make-class-type-info) - (cons 'id: - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L26804%_ '())) - (cons 'name: - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L26802%_ '())) - (cons 'super: - (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2682026823%_ - _%g2682126826%_) - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%g2682026823%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2682126826%_)) - '() - _%L26728%_)) - (cons 'slots: - (cons (cons (gx#datum->syntax '#f '@list) - '()) - (cons 'system?: - (cons '#t - (cons 'type-descriptor: + (##cdr _%e2676626789%_)))) + (if (gx#stx-null? _%tl2676426796%_) + ((lambda (_%L26799%_ _%L26801%_) + (cons (gx#datum->syntax + '#f + 'defsyntax) + (cons _%L26727%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'quote-syntax) - (cons _%L26729%_ '())) - (cons 'predicate: - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%L26726%_ '())) - (cons 'accessors: - (cons (cons (gx#datum->syntax - '#f - '@list) - '()) - (cons 'mutators: - (cons (cons (gx#datum->syntax + 'make-class-type-info) + (cons 'id: + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%L26801%_ '())) + (cons 'name: + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote) + (cons _%L26799%_ '())) + (cons 'super: + (cons (cons (gx#datum->syntax '#f '@list) + (foldr (lambda (_%g2681726820%_ + _%g2681826823%_) + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%g2681726820%_ + '())) + _%g2681826823%_)) + '() + _%L26725%_)) + (cons 'slots: + (cons (cons (gx#datum->syntax '#f '@list) + '()) + (cons 'system?: + (cons '#t + (cons 'type-descriptor: + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote-syntax) + (cons _%L26726%_ '())) + (cons 'predicate: + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%L26723%_ '())) + (cons 'accessors: + (cons (cons (gx#datum->syntax + '#f + '@list) + '()) + (cons 'mutators: + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@list) - '()) - (cons 'unchecked-accessors: - (cons (cons (gx#datum->syntax '#f '@list) '()) - (cons 'unchecked-mutators: - (cons (cons (gx#datum->syntax - '#f - '@list) - '()) - '()))))))))))))))))))))))) + '#f + '@list) + '()) + (cons 'unchecked-accessors: + (cons (cons (gx#datum->syntax '#f '@list) '()) + (cons 'unchecked-mutators: + (cons (cons (gx#datum->syntax + '#f + '@list) + '()) + '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2676826796%_ - _%hd2676526786%_) - (_%g2676026775%_ - _%g2676126779%_)))) - (_%g2676026775%_ _%g2676126779%_)))) - (_%g2676026775%_ _%g2676126779%_))))) - (_%g2675926829%_ - (list (class-type-id _%klass26757%_) - (class-type-name _%klass26757%_))))) - _%hd2663226720%_ - _%super2663026712%_ - _%hd2661726670%_ - _%hd2661426660%_) - (_%g2660426639%_ _%g2660526643%_)))) + _%hd2676526793%_ + _%hd2676226783%_) + (_%g2675726772%_ + _%g2675826776%_)))) + (_%g2675726772%_ _%g2675826776%_)))) + (_%g2675726772%_ _%g2675826776%_))))) + (_%g2675626826%_ + (list (class-type-id _%klass26754%_) + (class-type-name _%klass26754%_))))) + _%hd2662926717%_ + _%super2662726709%_ + _%hd2661426667%_ + _%hd2661126657%_) + (_%g2660126636%_ _%g2660226640%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2660426639%_ - _%g2660526643%_))))))) - (_%loop2662526692%_ _%target2662226686%_ '())) - (_%g2660426639%_ _%g2660526643%_))))) - (_%g2660426639%_ _%g2660526643%_)))) + (_%g2660126636%_ + _%g2660226640%_))))))) + (_%loop2662226689%_ _%target2661926683%_ '())) + (_%g2660126636%_ _%g2660226640%_))))) + (_%g2660126636%_ _%g2660226640%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2660426639%_ - _%g2660526643%_)))) - (_%g2660426639%_ _%g2660526643%_)))) - (_%g2660426639%_ _%g2660526643%_)))) - (_%g2660426639%_ _%g2660526643%_))))) - (_%g2660326833%_ _%stx26601%_)))) + (_%g2660126636%_ + _%g2660226640%_)))) + (_%g2660126636%_ _%g2660226640%_)))) + (_%g2660126636%_ _%g2660226640%_)))) + (_%g2660126636%_ _%g2660226640%_))))) + (_%g2660026830%_ _%stx26598%_)))) (define |gerbil/core/mop~MOP-5[:0:]#:t| - (let ((__obj27116 + (let ((__obj27113 (let () (declare (not safe)) (##structure @@ -1577,40 +1574,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27116 't '1 '#f '#f)) + (##unchecked-structure-set! __obj27113 't '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27116 't '2 '#f '#f)) + (##unchecked-structure-set! __obj27113 't '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27116 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj27113 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27116 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27113 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27116 '#t '9 '#f '#f)) - (let ((__tmp27418 |gerbil/core/mop~MOP-5[1]#_g27419_|)) + (##unchecked-structure-set! __obj27113 '#t '9 '#f '#f)) + (let ((__tmp27329 |gerbil/core/mop~MOP-5[1]#_g27330_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27116 __tmp27418 '12 '#f '#f)) - (let ((__tmp27420 |gerbil/core/mop~MOP-5[1]#_g27421_|)) + (##unchecked-structure-set! __obj27113 __tmp27329 '12 '#f '#f)) + (let ((__tmp27331 |gerbil/core/mop~MOP-5[1]#_g27332_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27116 __tmp27420 '14 '#f '#f)) + (##unchecked-structure-set! __obj27113 __tmp27331 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27116 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27113 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27116 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27113 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27116 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27113 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27116 '() '18 '#f '#f)) - __obj27116)) + (##unchecked-structure-set! __obj27113 '() '18 '#f '#f)) + __obj27113)) (define |gerbil/core/mop~MOP-5[:0:]#:class| - (let ((__obj27117 + (let ((__obj27114 (let () (declare (not safe)) (##structure @@ -1638,40 +1635,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 'class '1 '#f '#f)) + (##unchecked-structure-set! __obj27114 'class '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 'class '2 '#f '#f)) - (let ((__tmp27422 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27114 'class '2 '#f '#f)) + (let ((__tmp27333 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27117 __tmp27422 '3 '#f '#f)) + (##unchecked-structure-set! __obj27114 __tmp27333 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27114 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 '#t '9 '#f '#f)) - (let ((__tmp27424 |gerbil/core/mop~MOP-5[1]#_g27425_|)) + (##unchecked-structure-set! __obj27114 '#t '9 '#f '#f)) + (let ((__tmp27335 |gerbil/core/mop~MOP-5[1]#_g27336_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27117 __tmp27424 '12 '#f '#f)) - (let ((__tmp27426 |gerbil/core/mop~MOP-5[1]#_g27427_|)) + (##unchecked-structure-set! __obj27114 __tmp27335 '12 '#f '#f)) + (let ((__tmp27337 |gerbil/core/mop~MOP-5[1]#_g27338_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27117 __tmp27426 '14 '#f '#f)) + (##unchecked-structure-set! __obj27114 __tmp27337 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27114 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27114 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27114 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 '() '18 '#f '#f)) - __obj27117)) + (##unchecked-structure-set! __obj27114 '() '18 '#f '#f)) + __obj27114)) (define |gerbil/core/mop~MOP-5[:0:]#class| - (let ((__obj27118 + (let ((__obj27115 (let () (declare (not safe)) (##structure @@ -1699,17 +1696,17 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27118 'class '1 '#f '#f)) + (##unchecked-structure-set! __obj27115 'class '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27118 'class '2 '#f '#f)) - (let ((__tmp27428 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27115 'class '2 '#f '#f)) + (let ((__tmp27339 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27118 __tmp27428 '3 '#f '#f)) + (##unchecked-structure-set! __obj27115 __tmp27339 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj27118 + __obj27115 '(id name super flags @@ -1725,77 +1722,77 @@ '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27118 '#t '7 '#f '#f)) - (let ((__tmp27429 |gerbil/core/mop~MOP-5[1]#_g27425_|)) + (##unchecked-structure-set! __obj27115 '#t '7 '#f '#f)) + (let ((__tmp27340 |gerbil/core/mop~MOP-5[1]#_g27336_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27118 __tmp27429 '12 '#f '#f)) - (let ((__tmp27430 |gerbil/core/mop~MOP-5[1]#_g27431_|)) + (##unchecked-structure-set! __obj27115 __tmp27340 '12 '#f '#f)) + (let ((__tmp27341 |gerbil/core/mop~MOP-5[1]#_g27342_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27118 __tmp27430 '13 '#f '#f)) - (let ((__tmp27432 |gerbil/core/mop~MOP-5[1]#_g27427_|)) + (##unchecked-structure-set! __obj27115 __tmp27341 '13 '#f '#f)) + (let ((__tmp27343 |gerbil/core/mop~MOP-5[1]#_g27338_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27118 __tmp27432 '14 '#f '#f)) - (let ((__tmp27433 - (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27434_|) - (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27435_|) + (##unchecked-structure-set! __obj27115 __tmp27343 '14 '#f '#f)) + (let ((__tmp27344 + (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27345_|) + (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27346_|) (cons (cons 'super - |gerbil/core/mop~MOP-5[1]#_g27436_|) + |gerbil/core/mop~MOP-5[1]#_g27347_|) (cons (cons 'flags - |gerbil/core/mop~MOP-5[1]#_g27437_|) + |gerbil/core/mop~MOP-5[1]#_g27348_|) (cons (cons 'fields - |gerbil/core/mop~MOP-5[1]#_g27438_|) + |gerbil/core/mop~MOP-5[1]#_g27349_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-5[1]#_g27439_|) + |gerbil/core/mop~MOP-5[1]#_g27350_|) (cons (cons 'slot-vector - |gerbil/core/mop~MOP-5[1]#_g27440_|) + |gerbil/core/mop~MOP-5[1]#_g27351_|) (cons (cons 'slot-table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-5[1]#_g27441_|) + |gerbil/core/mop~MOP-5[1]#_g27352_|) (cons (cons 'properties - |gerbil/core/mop~MOP-5[1]#_g27442_|) + |gerbil/core/mop~MOP-5[1]#_g27353_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-5[1]#_g27443_|) + |gerbil/core/mop~MOP-5[1]#_g27354_|) (cons (cons 'methods - |gerbil/core/mop~MOP-5[1]#_g27444_|) + |gerbil/core/mop~MOP-5[1]#_g27355_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27118 __tmp27433 '15 '#f '#f)) + (##unchecked-structure-set! __obj27115 __tmp27344 '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27118 '() '16 '#f '#f)) - (let ((__tmp27445 - (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27446_|) - (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27447_|) + (##unchecked-structure-set! __obj27115 '() '16 '#f '#f)) + (let ((__tmp27356 + (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27357_|) + (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27358_|) (cons (cons 'super - |gerbil/core/mop~MOP-5[1]#_g27448_|) + |gerbil/core/mop~MOP-5[1]#_g27359_|) (cons (cons 'flags - |gerbil/core/mop~MOP-5[1]#_g27449_|) + |gerbil/core/mop~MOP-5[1]#_g27360_|) (cons (cons 'fields - |gerbil/core/mop~MOP-5[1]#_g27450_|) + |gerbil/core/mop~MOP-5[1]#_g27361_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-5[1]#_g27451_|) + |gerbil/core/mop~MOP-5[1]#_g27362_|) (cons (cons 'slot-vector - |gerbil/core/mop~MOP-5[1]#_g27452_|) + |gerbil/core/mop~MOP-5[1]#_g27363_|) (cons (cons 'slot-table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-5[1]#_g27453_|) + |gerbil/core/mop~MOP-5[1]#_g27364_|) (cons (cons 'properties - |gerbil/core/mop~MOP-5[1]#_g27454_|) + |gerbil/core/mop~MOP-5[1]#_g27365_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-5[1]#_g27455_|) + |gerbil/core/mop~MOP-5[1]#_g27366_|) (cons (cons 'methods - |gerbil/core/mop~MOP-5[1]#_g27456_|) + |gerbil/core/mop~MOP-5[1]#_g27367_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27118 __tmp27445 '17 '#f '#f)) + (##unchecked-structure-set! __obj27115 __tmp27356 '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27118 '() '18 '#f '#f)) - __obj27118)) + (##unchecked-structure-set! __obj27115 '() '18 '#f '#f)) + __obj27115)) (define |gerbil/core/mop~MOP-5[:0:]#:object| - (let ((__obj27119 + (let ((__obj27116 (let () (declare (not safe)) (##structure @@ -1823,40 +1820,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27119 'object '1 '#f '#f)) + (##unchecked-structure-set! __obj27116 'object '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27119 'object '2 '#f '#f)) - (let ((__tmp27457 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27116 'object '2 '#f '#f)) + (let ((__tmp27368 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27119 __tmp27457 '3 '#f '#f)) + (##unchecked-structure-set! __obj27116 __tmp27368 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27119 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27116 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27119 '#t '9 '#f '#f)) - (let ((__tmp27458 |gerbil/core/mop~MOP-5[1]#_g27459_|)) + (##unchecked-structure-set! __obj27116 '#t '9 '#f '#f)) + (let ((__tmp27369 |gerbil/core/mop~MOP-5[1]#_g27370_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27119 __tmp27458 '12 '#f '#f)) - (let ((__tmp27460 |gerbil/core/mop~MOP-5[1]#_g27421_|)) + (##unchecked-structure-set! __obj27116 __tmp27369 '12 '#f '#f)) + (let ((__tmp27371 |gerbil/core/mop~MOP-5[1]#_g27332_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27119 __tmp27460 '14 '#f '#f)) + (##unchecked-structure-set! __obj27116 __tmp27371 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27119 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27116 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27119 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27116 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27119 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27116 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27119 '() '18 '#f '#f)) - __obj27119)) + (##unchecked-structure-set! __obj27116 '() '18 '#f '#f)) + __obj27116)) (define |gerbil/core/mop~MOP-5[:0:]#:immediate| - (let ((__obj27120 + (let ((__obj27117 (let () (declare (not safe)) (##structure @@ -1884,40 +1881,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 'immediate '1 '#f '#f)) + (##unchecked-structure-set! __obj27117 'immediate '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 'immediate '2 '#f '#f)) - (let ((__tmp27461 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27117 'immediate '2 '#f '#f)) + (let ((__tmp27372 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27120 __tmp27461 '3 '#f '#f)) + (##unchecked-structure-set! __obj27117 __tmp27372 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27117 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 '#t '9 '#f '#f)) - (let ((__tmp27462 |gerbil/core/mop~MOP-5[1]#_g27463_|)) + (##unchecked-structure-set! __obj27117 '#t '9 '#f '#f)) + (let ((__tmp27373 |gerbil/core/mop~MOP-5[1]#_g27374_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27120 __tmp27462 '12 '#f '#f)) - (let ((__tmp27464 |gerbil/core/mop~MOP-5[1]#_g27465_|)) + (##unchecked-structure-set! __obj27117 __tmp27373 '12 '#f '#f)) + (let ((__tmp27375 |gerbil/core/mop~MOP-5[1]#_g27376_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27120 __tmp27464 '14 '#f '#f)) + (##unchecked-structure-set! __obj27117 __tmp27375 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27117 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27117 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27117 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 '() '18 '#f '#f)) - __obj27120)) + (##unchecked-structure-set! __obj27117 '() '18 '#f '#f)) + __obj27117)) (define |gerbil/core/mop~MOP-5[:0:]#:char| - (let ((__obj27121 + (let ((__obj27118 (let () (declare (not safe)) (##structure @@ -1945,40 +1942,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 'char '1 '#f '#f)) + (##unchecked-structure-set! __obj27118 'char '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 'char '2 '#f '#f)) - (let ((__tmp27466 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) + (##unchecked-structure-set! __obj27118 'char '2 '#f '#f)) + (let ((__tmp27377 (cons |gerbil/core/mop~MOP-5[1]#_g27378_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27121 __tmp27466 '3 '#f '#f)) + (##unchecked-structure-set! __obj27118 __tmp27377 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27118 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 '#t '9 '#f '#f)) - (let ((__tmp27468 |gerbil/core/mop~MOP-5[1]#_g27469_|)) + (##unchecked-structure-set! __obj27118 '#t '9 '#f '#f)) + (let ((__tmp27379 |gerbil/core/mop~MOP-5[1]#_g27380_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27121 __tmp27468 '12 '#f '#f)) - (let ((__tmp27470 |gerbil/core/mop~MOP-5[1]#_g27471_|)) + (##unchecked-structure-set! __obj27118 __tmp27379 '12 '#f '#f)) + (let ((__tmp27381 |gerbil/core/mop~MOP-5[1]#_g27382_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27121 __tmp27470 '14 '#f '#f)) + (##unchecked-structure-set! __obj27118 __tmp27381 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27118 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27118 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27118 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 '() '18 '#f '#f)) - __obj27121)) + (##unchecked-structure-set! __obj27118 '() '18 '#f '#f)) + __obj27118)) (define |gerbil/core/mop~MOP-5[:0:]#:boolean| - (let ((__obj27122 + (let ((__obj27119 (let () (declare (not safe)) (##structure @@ -2006,39 +2003,222 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27122 'boolean '1 '#f '#f)) + (##unchecked-structure-set! __obj27119 'boolean '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27122 'boolean '2 '#f '#f)) - (let ((__tmp27472 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) + (##unchecked-structure-set! __obj27119 'boolean '2 '#f '#f)) + (let ((__tmp27383 (cons |gerbil/core/mop~MOP-5[1]#_g27378_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27122 __tmp27472 '3 '#f '#f)) + (##unchecked-structure-set! __obj27119 __tmp27383 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27122 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27119 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27122 '#t '9 '#f '#f)) - (let ((__tmp27473 |gerbil/core/mop~MOP-5[1]#_g27474_|)) + (##unchecked-structure-set! __obj27119 '#t '9 '#f '#f)) + (let ((__tmp27384 |gerbil/core/mop~MOP-5[1]#_g27385_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27122 __tmp27473 '12 '#f '#f)) - (let ((__tmp27475 |gerbil/core/mop~MOP-5[1]#_g27476_|)) + (##unchecked-structure-set! __obj27119 __tmp27384 '12 '#f '#f)) + (let ((__tmp27386 |gerbil/core/mop~MOP-5[1]#_g27387_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27122 __tmp27475 '14 '#f '#f)) + (##unchecked-structure-set! __obj27119 __tmp27386 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27122 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27119 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27122 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27119 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27122 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27119 '() '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27119 '() '18 '#f '#f)) + __obj27119)) + (define |gerbil/core/mop~MOP-5[:0:]#:atom| + (let ((__obj27120 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27120 'atom '1 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27120 'atom '2 '#f '#f)) + (let ((__tmp27388 (cons |gerbil/core/mop~MOP-5[1]#_g27378_| '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj27120 __tmp27388 '3 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27120 '() '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27120 '#t '9 '#f '#f)) + (let ((__tmp27389 |gerbil/core/mop~MOP-5[1]#_g27390_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj27120 __tmp27389 '12 '#f '#f)) + (let ((__tmp27391 |gerbil/core/mop~MOP-5[1]#_g27392_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj27120 __tmp27391 '14 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27120 '() '15 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27120 '() '16 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27120 '() '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27120 '() '18 '#f '#f)) + __obj27120)) + (define |gerbil/core/mop~MOP-5[:0:]#:void| + (let ((__obj27121 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27121 'void '1 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27121 'void '2 '#f '#f)) + (let ((__tmp27393 (cons |gerbil/core/mop~MOP-5[1]#_g27394_| '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj27121 __tmp27393 '3 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27121 '() '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27121 '#t '9 '#f '#f)) + (let ((__tmp27395 |gerbil/core/mop~MOP-5[1]#_g27396_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj27121 __tmp27395 '12 '#f '#f)) + (let ((__tmp27397 |gerbil/core/mop~MOP-5[1]#_g27398_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj27121 __tmp27397 '14 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27121 '() '15 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27121 '() '16 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27121 '() '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27121 '() '18 '#f '#f)) + __obj27121)) + (define |gerbil/core/mop~MOP-5[:0:]#:eof| + (let ((__obj27122 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27122 'eof '1 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27122 'eof '2 '#f '#f)) + (let ((__tmp27399 (cons |gerbil/core/mop~MOP-5[1]#_g27394_| '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj27122 __tmp27399 '3 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27122 '() '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27122 '#t '9 '#f '#f)) + (let ((__tmp27400 |gerbil/core/mop~MOP-5[1]#_g27401_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj27122 __tmp27400 '12 '#f '#f)) + (let ((__tmp27402 |gerbil/core/mop~MOP-5[1]#_g27403_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj27122 __tmp27402 '14 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27122 '() '15 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27122 '() '16 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj27122 '() '17 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27122 '() '18 '#f '#f)) __obj27122)) - (define |gerbil/core/mop~MOP-5[:0:]#:atom| + (define |gerbil/core/mop~MOP-5[:0:]#:true| (let ((__obj27123 (let () (declare (not safe)) @@ -2067,25 +2247,27 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27123 'atom '1 '#f '#f)) + (##unchecked-structure-set! __obj27123 'true '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27123 'atom '2 '#f '#f)) - (let ((__tmp27477 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) + (##unchecked-structure-set! __obj27123 'true '2 '#f '#f)) + (let ((__tmp27404 + (cons |gerbil/core/mop~MOP-5[1]#_g27405_| + (cons |gerbil/core/mop~MOP-5[1]#_g27394_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27123 __tmp27477 '3 '#f '#f)) + (##unchecked-structure-set! __obj27123 __tmp27404 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27123 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27123 '#t '9 '#f '#f)) - (let ((__tmp27478 |gerbil/core/mop~MOP-5[1]#_g27479_|)) + (let ((__tmp27406 |gerbil/core/mop~MOP-5[1]#_g27407_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27123 __tmp27478 '12 '#f '#f)) - (let ((__tmp27480 |gerbil/core/mop~MOP-5[1]#_g27481_|)) + (##unchecked-structure-set! __obj27123 __tmp27406 '12 '#f '#f)) + (let ((__tmp27408 |gerbil/core/mop~MOP-5[1]#_g27409_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27123 __tmp27480 '14 '#f '#f)) + (##unchecked-structure-set! __obj27123 __tmp27408 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27123 '() '15 '#f '#f)) @@ -2099,7 +2281,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27123 '() '18 '#f '#f)) __obj27123)) - (define |gerbil/core/mop~MOP-5[:0:]#:void| + (define |gerbil/core/mop~MOP-5[:0:]#:false| (let ((__obj27124 (let () (declare (not safe)) @@ -2128,25 +2310,27 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27124 'void '1 '#f '#f)) + (##unchecked-structure-set! __obj27124 'false '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27124 'void '2 '#f '#f)) - (let ((__tmp27482 (cons |gerbil/core/mop~MOP-5[1]#_g27483_| '()))) + (##unchecked-structure-set! __obj27124 'false '2 '#f '#f)) + (let ((__tmp27410 + (cons |gerbil/core/mop~MOP-5[1]#_g27405_| + (cons |gerbil/core/mop~MOP-5[1]#_g27394_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27124 __tmp27482 '3 '#f '#f)) + (##unchecked-structure-set! __obj27124 __tmp27410 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27124 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27124 '#t '9 '#f '#f)) - (let ((__tmp27484 |gerbil/core/mop~MOP-5[1]#_g27485_|)) + (let ((__tmp27411 |gerbil/core/mop~MOP-5[1]#_g27412_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27124 __tmp27484 '12 '#f '#f)) - (let ((__tmp27486 |gerbil/core/mop~MOP-5[1]#_g27487_|)) + (##unchecked-structure-set! __obj27124 __tmp27411 '12 '#f '#f)) + (let ((__tmp27413 |gerbil/core/mop~MOP-5[1]#_g27414_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27124 __tmp27486 '14 '#f '#f)) + (##unchecked-structure-set! __obj27124 __tmp27413 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27124 '() '15 '#f '#f)) @@ -2160,7 +2344,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27124 '() '18 '#f '#f)) __obj27124)) - (define |gerbil/core/mop~MOP-5[:0:]#:eof| + (define |gerbil/core/mop~MOP-5[:0:]#:special| (let ((__obj27125 (let () (declare (not safe)) @@ -2189,25 +2373,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27125 'eof '1 '#f '#f)) + (##unchecked-structure-set! __obj27125 'special '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27125 'eof '2 '#f '#f)) - (let ((__tmp27488 (cons |gerbil/core/mop~MOP-5[1]#_g27483_| '()))) + (##unchecked-structure-set! __obj27125 'special '2 '#f '#f)) + (let ((__tmp27415 (cons |gerbil/core/mop~MOP-5[1]#_g27394_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27125 __tmp27488 '3 '#f '#f)) + (##unchecked-structure-set! __obj27125 __tmp27415 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27125 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27125 '#t '9 '#f '#f)) - (let ((__tmp27489 |gerbil/core/mop~MOP-5[1]#_g27490_|)) + (let ((__tmp27416 |gerbil/core/mop~MOP-5[1]#_g27417_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27125 __tmp27489 '12 '#f '#f)) - (let ((__tmp27491 |gerbil/core/mop~MOP-5[1]#_g27492_|)) + (##unchecked-structure-set! __obj27125 __tmp27416 '12 '#f '#f)) + (let ((__tmp27418 |gerbil/core/mop~MOP-5[1]#_g27419_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27125 __tmp27491 '14 '#f '#f)) + (##unchecked-structure-set! __obj27125 __tmp27418 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27125 '() '15 '#f '#f)) @@ -2221,7 +2405,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27125 '() '18 '#f '#f)) __obj27125)) - (define |gerbil/core/mop~MOP-5[:0:]#:true| + (define |gerbil/core/mop~MOP-5[:0:]#:number| (let ((__obj27126 (let () (declare (not safe)) @@ -2250,27 +2434,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27126 'true '1 '#f '#f)) + (##unchecked-structure-set! __obj27126 'number '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27126 'true '2 '#f '#f)) - (let ((__tmp27493 - (cons |gerbil/core/mop~MOP-5[1]#_g27494_| - (cons |gerbil/core/mop~MOP-5[1]#_g27483_| '())))) + (##unchecked-structure-set! __obj27126 'number '2 '#f '#f)) + (let ((__tmp27420 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27126 __tmp27493 '3 '#f '#f)) + (##unchecked-structure-set! __obj27126 __tmp27420 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27126 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27126 '#t '9 '#f '#f)) - (let ((__tmp27495 |gerbil/core/mop~MOP-5[1]#_g27496_|)) + (let ((__tmp27421 |gerbil/core/mop~MOP-5[1]#_g27422_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27126 __tmp27495 '12 '#f '#f)) - (let ((__tmp27497 |gerbil/core/mop~MOP-5[1]#_g27498_|)) + (##unchecked-structure-set! __obj27126 __tmp27421 '12 '#f '#f)) + (let ((__tmp27423 |gerbil/core/mop~MOP-5[1]#_g27424_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27126 __tmp27497 '14 '#f '#f)) + (##unchecked-structure-set! __obj27126 __tmp27423 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27126 '() '15 '#f '#f)) @@ -2284,7 +2466,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27126 '() '18 '#f '#f)) __obj27126)) - (define |gerbil/core/mop~MOP-5[:0:]#:false| + (define |gerbil/core/mop~MOP-5[:0:]#:real| (let ((__obj27127 (let () (declare (not safe)) @@ -2313,27 +2495,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27127 'false '1 '#f '#f)) + (##unchecked-structure-set! __obj27127 'real '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27127 'false '2 '#f '#f)) - (let ((__tmp27499 - (cons |gerbil/core/mop~MOP-5[1]#_g27494_| - (cons |gerbil/core/mop~MOP-5[1]#_g27483_| '())))) + (##unchecked-structure-set! __obj27127 'real '2 '#f '#f)) + (let ((__tmp27425 (cons |gerbil/core/mop~MOP-5[1]#_g27426_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27127 __tmp27499 '3 '#f '#f)) + (##unchecked-structure-set! __obj27127 __tmp27425 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27127 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27127 '#t '9 '#f '#f)) - (let ((__tmp27500 |gerbil/core/mop~MOP-5[1]#_g27501_|)) + (let ((__tmp27427 |gerbil/core/mop~MOP-5[1]#_g27428_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27127 __tmp27500 '12 '#f '#f)) - (let ((__tmp27502 |gerbil/core/mop~MOP-5[1]#_g27503_|)) + (##unchecked-structure-set! __obj27127 __tmp27427 '12 '#f '#f)) + (let ((__tmp27429 |gerbil/core/mop~MOP-5[1]#_g27430_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27127 __tmp27502 '14 '#f '#f)) + (##unchecked-structure-set! __obj27127 __tmp27429 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27127 '() '15 '#f '#f)) @@ -2347,7 +2527,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27127 '() '18 '#f '#f)) __obj27127)) - (define |gerbil/core/mop~MOP-5[:0:]#:special| + (define |gerbil/core/mop~MOP-5[:0:]#:integer| (let ((__obj27128 (let () (declare (not safe)) @@ -2376,25 +2556,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27128 'special '1 '#f '#f)) + (##unchecked-structure-set! __obj27128 'integer '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27128 'special '2 '#f '#f)) - (let ((__tmp27504 (cons |gerbil/core/mop~MOP-5[1]#_g27483_| '()))) + (##unchecked-structure-set! __obj27128 'integer '2 '#f '#f)) + (let ((__tmp27431 (cons |gerbil/core/mop~MOP-5[1]#_g27432_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27128 __tmp27504 '3 '#f '#f)) + (##unchecked-structure-set! __obj27128 __tmp27431 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27128 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27128 '#t '9 '#f '#f)) - (let ((__tmp27505 |gerbil/core/mop~MOP-5[1]#_g27506_|)) + (let ((__tmp27433 |gerbil/core/mop~MOP-5[1]#_g27434_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27128 __tmp27505 '12 '#f '#f)) - (let ((__tmp27507 |gerbil/core/mop~MOP-5[1]#_g27508_|)) + (##unchecked-structure-set! __obj27128 __tmp27433 '12 '#f '#f)) + (let ((__tmp27435 |gerbil/core/mop~MOP-5[1]#_g27436_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27128 __tmp27507 '14 '#f '#f)) + (##unchecked-structure-set! __obj27128 __tmp27435 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27128 '() '15 '#f '#f)) @@ -2408,7 +2588,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27128 '() '18 '#f '#f)) __obj27128)) - (define |gerbil/core/mop~MOP-5[:0:]#:number| + (define |gerbil/core/mop~MOP-5[:0:]#:fixnum| (let ((__obj27129 (let () (declare (not safe)) @@ -2437,25 +2617,27 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27129 'number '1 '#f '#f)) + (##unchecked-structure-set! __obj27129 'fixnum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27129 'number '2 '#f '#f)) - (let ((__tmp27509 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27129 'fixnum '2 '#f '#f)) + (let ((__tmp27437 + (cons |gerbil/core/mop~MOP-5[1]#_g27438_| + (cons |gerbil/core/mop~MOP-5[1]#_g27378_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27129 __tmp27509 '3 '#f '#f)) + (##unchecked-structure-set! __obj27129 __tmp27437 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27129 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27129 '#t '9 '#f '#f)) - (let ((__tmp27510 |gerbil/core/mop~MOP-5[1]#_g27511_|)) + (let ((__tmp27439 |gerbil/core/mop~MOP-5[1]#_g27440_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27129 __tmp27510 '12 '#f '#f)) - (let ((__tmp27512 |gerbil/core/mop~MOP-5[1]#_g27513_|)) + (##unchecked-structure-set! __obj27129 __tmp27439 '12 '#f '#f)) + (let ((__tmp27441 |gerbil/core/mop~MOP-5[1]#_g27442_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27129 __tmp27512 '14 '#f '#f)) + (##unchecked-structure-set! __obj27129 __tmp27441 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27129 '() '15 '#f '#f)) @@ -2469,7 +2651,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27129 '() '18 '#f '#f)) __obj27129)) - (define |gerbil/core/mop~MOP-5[:0:]#:real| + (define |gerbil/core/mop~MOP-5[:0:]#:bignum| (let ((__obj27130 (let () (declare (not safe)) @@ -2498,25 +2680,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27130 'real '1 '#f '#f)) + (##unchecked-structure-set! __obj27130 'bignum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27130 'real '2 '#f '#f)) - (let ((__tmp27514 (cons |gerbil/core/mop~MOP-5[1]#_g27515_| '()))) + (##unchecked-structure-set! __obj27130 'bignum '2 '#f '#f)) + (let ((__tmp27443 (cons |gerbil/core/mop~MOP-5[1]#_g27438_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27130 __tmp27514 '3 '#f '#f)) + (##unchecked-structure-set! __obj27130 __tmp27443 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27130 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27130 '#t '9 '#f '#f)) - (let ((__tmp27516 |gerbil/core/mop~MOP-5[1]#_g27517_|)) + (let ((__tmp27444 |gerbil/core/mop~MOP-5[1]#_g27445_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27130 __tmp27516 '12 '#f '#f)) - (let ((__tmp27518 |gerbil/core/mop~MOP-5[1]#_g27519_|)) + (##unchecked-structure-set! __obj27130 __tmp27444 '12 '#f '#f)) + (let ((__tmp27446 |gerbil/core/mop~MOP-5[1]#_g27447_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27130 __tmp27518 '14 '#f '#f)) + (##unchecked-structure-set! __obj27130 __tmp27446 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27130 '() '15 '#f '#f)) @@ -2530,7 +2712,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27130 '() '18 '#f '#f)) __obj27130)) - (define |gerbil/core/mop~MOP-5[:0:]#:integer| + (define |gerbil/core/mop~MOP-5[:0:]#:ratnum| (let ((__obj27131 (let () (declare (not safe)) @@ -2559,25 +2741,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27131 'integer '1 '#f '#f)) + (##unchecked-structure-set! __obj27131 'ratnum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27131 'integer '2 '#f '#f)) - (let ((__tmp27520 (cons |gerbil/core/mop~MOP-5[1]#_g27521_| '()))) + (##unchecked-structure-set! __obj27131 'ratnum '2 '#f '#f)) + (let ((__tmp27448 (cons |gerbil/core/mop~MOP-5[1]#_g27432_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27131 __tmp27520 '3 '#f '#f)) + (##unchecked-structure-set! __obj27131 __tmp27448 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27131 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27131 '#t '9 '#f '#f)) - (let ((__tmp27522 |gerbil/core/mop~MOP-5[1]#_g27523_|)) + (let ((__tmp27449 |gerbil/core/mop~MOP-5[1]#_g27450_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27131 __tmp27522 '12 '#f '#f)) - (let ((__tmp27524 |gerbil/core/mop~MOP-5[1]#_g27525_|)) + (##unchecked-structure-set! __obj27131 __tmp27449 '12 '#f '#f)) + (let ((__tmp27451 |gerbil/core/mop~MOP-5[1]#_g27452_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27131 __tmp27524 '14 '#f '#f)) + (##unchecked-structure-set! __obj27131 __tmp27451 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27131 '() '15 '#f '#f)) @@ -2591,7 +2773,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27131 '() '18 '#f '#f)) __obj27131)) - (define |gerbil/core/mop~MOP-5[:0:]#:fixnum| + (define |gerbil/core/mop~MOP-5[:0:]#:flonum| (let ((__obj27132 (let () (declare (not safe)) @@ -2620,27 +2802,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27132 'fixnum '1 '#f '#f)) + (##unchecked-structure-set! __obj27132 'flonum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27132 'fixnum '2 '#f '#f)) - (let ((__tmp27526 - (cons |gerbil/core/mop~MOP-5[1]#_g27527_| - (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '())))) + (##unchecked-structure-set! __obj27132 'flonum '2 '#f '#f)) + (let ((__tmp27453 (cons |gerbil/core/mop~MOP-5[1]#_g27432_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27132 __tmp27526 '3 '#f '#f)) + (##unchecked-structure-set! __obj27132 __tmp27453 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27132 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27132 '#t '9 '#f '#f)) - (let ((__tmp27528 |gerbil/core/mop~MOP-5[1]#_g27529_|)) + (let ((__tmp27454 |gerbil/core/mop~MOP-5[1]#_g27455_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27132 __tmp27528 '12 '#f '#f)) - (let ((__tmp27530 |gerbil/core/mop~MOP-5[1]#_g27531_|)) + (##unchecked-structure-set! __obj27132 __tmp27454 '12 '#f '#f)) + (let ((__tmp27456 |gerbil/core/mop~MOP-5[1]#_g27457_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27132 __tmp27530 '14 '#f '#f)) + (##unchecked-structure-set! __obj27132 __tmp27456 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27132 '() '15 '#f '#f)) @@ -2654,7 +2834,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27132 '() '18 '#f '#f)) __obj27132)) - (define |gerbil/core/mop~MOP-5[:0:]#:bignum| + (define |gerbil/core/mop~MOP-5[:0:]#:cpxnum| (let ((__obj27133 (let () (declare (not safe)) @@ -2683,25 +2863,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27133 'bignum '1 '#f '#f)) + (##unchecked-structure-set! __obj27133 'cpxnum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27133 'bignum '2 '#f '#f)) - (let ((__tmp27532 (cons |gerbil/core/mop~MOP-5[1]#_g27527_| '()))) + (##unchecked-structure-set! __obj27133 'cpxnum '2 '#f '#f)) + (let ((__tmp27458 (cons |gerbil/core/mop~MOP-5[1]#_g27426_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27133 __tmp27532 '3 '#f '#f)) + (##unchecked-structure-set! __obj27133 __tmp27458 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27133 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27133 '#t '9 '#f '#f)) - (let ((__tmp27533 |gerbil/core/mop~MOP-5[1]#_g27534_|)) + (let ((__tmp27459 |gerbil/core/mop~MOP-5[1]#_g27460_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27133 __tmp27533 '12 '#f '#f)) - (let ((__tmp27535 |gerbil/core/mop~MOP-5[1]#_g27536_|)) + (##unchecked-structure-set! __obj27133 __tmp27459 '12 '#f '#f)) + (let ((__tmp27461 |gerbil/core/mop~MOP-5[1]#_g27462_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27133 __tmp27535 '14 '#f '#f)) + (##unchecked-structure-set! __obj27133 __tmp27461 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27133 '() '15 '#f '#f)) @@ -2715,7 +2895,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27133 '() '18 '#f '#f)) __obj27133)) - (define |gerbil/core/mop~MOP-5[:0:]#:ratnum| + (define |gerbil/core/mop~MOP-5[:0:]#:symbolic| (let ((__obj27134 (let () (declare (not safe)) @@ -2744,25 +2924,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27134 'ratnum '1 '#f '#f)) + (##unchecked-structure-set! __obj27134 'symbolic '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27134 'ratnum '2 '#f '#f)) - (let ((__tmp27537 (cons |gerbil/core/mop~MOP-5[1]#_g27521_| '()))) + (##unchecked-structure-set! __obj27134 'symbolic '2 '#f '#f)) + (let ((__tmp27463 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27134 __tmp27537 '3 '#f '#f)) + (##unchecked-structure-set! __obj27134 __tmp27463 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27134 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27134 '#t '9 '#f '#f)) - (let ((__tmp27538 |gerbil/core/mop~MOP-5[1]#_g27539_|)) + (let ((__tmp27464 |gerbil/core/mop~MOP-5[1]#_g27465_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27134 __tmp27538 '12 '#f '#f)) - (let ((__tmp27540 |gerbil/core/mop~MOP-5[1]#_g27541_|)) + (##unchecked-structure-set! __obj27134 __tmp27464 '12 '#f '#f)) + (let ((__tmp27466 |gerbil/core/mop~MOP-5[1]#_g27467_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27134 __tmp27540 '14 '#f '#f)) + (##unchecked-structure-set! __obj27134 __tmp27466 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27134 '() '15 '#f '#f)) @@ -2776,7 +2956,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27134 '() '18 '#f '#f)) __obj27134)) - (define |gerbil/core/mop~MOP-5[:0:]#:flonum| + (define |gerbil/core/mop~MOP-5[:0:]#:symbol| (let ((__obj27135 (let () (declare (not safe)) @@ -2805,25 +2985,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27135 'flonum '1 '#f '#f)) + (##unchecked-structure-set! __obj27135 'symbol '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27135 'flonum '2 '#f '#f)) - (let ((__tmp27542 (cons |gerbil/core/mop~MOP-5[1]#_g27521_| '()))) + (##unchecked-structure-set! __obj27135 'symbol '2 '#f '#f)) + (let ((__tmp27468 (cons |gerbil/core/mop~MOP-5[1]#_g27469_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27135 __tmp27542 '3 '#f '#f)) + (##unchecked-structure-set! __obj27135 __tmp27468 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27135 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27135 '#t '9 '#f '#f)) - (let ((__tmp27543 |gerbil/core/mop~MOP-5[1]#_g27544_|)) + (let ((__tmp27470 |gerbil/core/mop~MOP-5[1]#_g27471_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27135 __tmp27543 '12 '#f '#f)) - (let ((__tmp27545 |gerbil/core/mop~MOP-5[1]#_g27546_|)) + (##unchecked-structure-set! __obj27135 __tmp27470 '12 '#f '#f)) + (let ((__tmp27472 |gerbil/core/mop~MOP-5[1]#_g27473_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27135 __tmp27545 '14 '#f '#f)) + (##unchecked-structure-set! __obj27135 __tmp27472 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27135 '() '15 '#f '#f)) @@ -2837,7 +3017,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27135 '() '18 '#f '#f)) __obj27135)) - (define |gerbil/core/mop~MOP-5[:0:]#:cpxnum| + (define |gerbil/core/mop~MOP-5[:0:]#:keyword| (let ((__obj27136 (let () (declare (not safe)) @@ -2866,25 +3046,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27136 'cpxnum '1 '#f '#f)) + (##unchecked-structure-set! __obj27136 'keyword '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27136 'cpxnum '2 '#f '#f)) - (let ((__tmp27547 (cons |gerbil/core/mop~MOP-5[1]#_g27515_| '()))) + (##unchecked-structure-set! __obj27136 'keyword '2 '#f '#f)) + (let ((__tmp27474 (cons |gerbil/core/mop~MOP-5[1]#_g27469_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27136 __tmp27547 '3 '#f '#f)) + (##unchecked-structure-set! __obj27136 __tmp27474 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27136 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27136 '#t '9 '#f '#f)) - (let ((__tmp27548 |gerbil/core/mop~MOP-5[1]#_g27549_|)) + (let ((__tmp27475 |gerbil/core/mop~MOP-5[1]#_g27476_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27136 __tmp27548 '12 '#f '#f)) - (let ((__tmp27550 |gerbil/core/mop~MOP-5[1]#_g27551_|)) + (##unchecked-structure-set! __obj27136 __tmp27475 '12 '#f '#f)) + (let ((__tmp27477 |gerbil/core/mop~MOP-5[1]#_g27478_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27136 __tmp27550 '14 '#f '#f)) + (##unchecked-structure-set! __obj27136 __tmp27477 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27136 '() '15 '#f '#f)) @@ -2898,7 +3078,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27136 '() '18 '#f '#f)) __obj27136)) - (define |gerbil/core/mop~MOP-5[:0:]#:symbolic| + (define |gerbil/core/mop~MOP-5[:0:]#:list| (let ((__obj27137 (let () (declare (not safe)) @@ -2927,25 +3107,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27137 'symbolic '1 '#f '#f)) + (##unchecked-structure-set! __obj27137 'list '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27137 'symbolic '2 '#f '#f)) - (let ((__tmp27552 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27137 'list '2 '#f '#f)) + (let ((__tmp27479 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27137 __tmp27552 '3 '#f '#f)) + (##unchecked-structure-set! __obj27137 __tmp27479 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27137 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27137 '#t '9 '#f '#f)) - (let ((__tmp27553 |gerbil/core/mop~MOP-5[1]#_g27554_|)) + (let ((__tmp27480 |gerbil/core/mop~MOP-5[1]#_g27481_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27137 __tmp27553 '12 '#f '#f)) - (let ((__tmp27555 |gerbil/core/mop~MOP-5[1]#_g27556_|)) + (##unchecked-structure-set! __obj27137 __tmp27480 '12 '#f '#f)) + (let ((__tmp27482 |gerbil/core/mop~MOP-5[1]#_g27483_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27137 __tmp27555 '14 '#f '#f)) + (##unchecked-structure-set! __obj27137 __tmp27482 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27137 '() '15 '#f '#f)) @@ -2959,7 +3139,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27137 '() '18 '#f '#f)) __obj27137)) - (define |gerbil/core/mop~MOP-5[:0:]#:symbol| + (define |gerbil/core/mop~MOP-5[:0:]#:pair| (let ((__obj27138 (let () (declare (not safe)) @@ -2988,25 +3168,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27138 'symbol '1 '#f '#f)) + (##unchecked-structure-set! __obj27138 'pair '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27138 'symbol '2 '#f '#f)) - (let ((__tmp27557 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '()))) + (##unchecked-structure-set! __obj27138 'pair '2 '#f '#f)) + (let ((__tmp27484 (cons |gerbil/core/mop~MOP-5[1]#_g27485_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27138 __tmp27557 '3 '#f '#f)) + (##unchecked-structure-set! __obj27138 __tmp27484 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27138 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27138 '#t '9 '#f '#f)) - (let ((__tmp27559 |gerbil/core/mop~MOP-5[1]#_g27560_|)) + (let ((__tmp27486 |gerbil/core/mop~MOP-5[1]#_g27487_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27138 __tmp27559 '12 '#f '#f)) - (let ((__tmp27561 |gerbil/core/mop~MOP-5[1]#_g27562_|)) + (##unchecked-structure-set! __obj27138 __tmp27486 '12 '#f '#f)) + (let ((__tmp27488 |gerbil/core/mop~MOP-5[1]#_g27489_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27138 __tmp27561 '14 '#f '#f)) + (##unchecked-structure-set! __obj27138 __tmp27488 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27138 '() '15 '#f '#f)) @@ -3020,7 +3200,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27138 '() '18 '#f '#f)) __obj27138)) - (define |gerbil/core/mop~MOP-5[:0:]#:keyword| + (define |gerbil/core/mop~MOP-5[:0:]#:null| (let ((__obj27139 (let () (declare (not safe)) @@ -3049,25 +3229,27 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27139 'keyword '1 '#f '#f)) + (##unchecked-structure-set! __obj27139 'null '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27139 'keyword '2 '#f '#f)) - (let ((__tmp27563 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '()))) + (##unchecked-structure-set! __obj27139 'null '2 '#f '#f)) + (let ((__tmp27490 + (cons |gerbil/core/mop~MOP-5[1]#_g27485_| + (cons |gerbil/core/mop~MOP-5[1]#_g27394_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27139 __tmp27563 '3 '#f '#f)) + (##unchecked-structure-set! __obj27139 __tmp27490 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27139 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27139 '#t '9 '#f '#f)) - (let ((__tmp27564 |gerbil/core/mop~MOP-5[1]#_g27565_|)) + (let ((__tmp27491 |gerbil/core/mop~MOP-5[1]#_g27492_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27139 __tmp27564 '12 '#f '#f)) - (let ((__tmp27566 |gerbil/core/mop~MOP-5[1]#_g27567_|)) + (##unchecked-structure-set! __obj27139 __tmp27491 '12 '#f '#f)) + (let ((__tmp27493 |gerbil/core/mop~MOP-5[1]#_g27494_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27139 __tmp27566 '14 '#f '#f)) + (##unchecked-structure-set! __obj27139 __tmp27493 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27139 '() '15 '#f '#f)) @@ -3081,7 +3263,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27139 '() '18 '#f '#f)) __obj27139)) - (define |gerbil/core/mop~MOP-5[:0:]#:list| + (define |gerbil/core/mop~MOP-5[:0:]#:sequence| (let ((__obj27140 (let () (declare (not safe)) @@ -3110,25 +3292,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27140 'list '1 '#f '#f)) + (##unchecked-structure-set! __obj27140 'sequence '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27140 'list '2 '#f '#f)) - (let ((__tmp27568 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27140 'sequence '2 '#f '#f)) + (let ((__tmp27495 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27140 __tmp27568 '3 '#f '#f)) + (##unchecked-structure-set! __obj27140 __tmp27495 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27140 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27140 '#t '9 '#f '#f)) - (let ((__tmp27569 |gerbil/core/mop~MOP-5[1]#_g27570_|)) + (let ((__tmp27496 |gerbil/core/mop~MOP-5[1]#_g27497_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27140 __tmp27569 '12 '#f '#f)) - (let ((__tmp27571 |gerbil/core/mop~MOP-5[1]#_g27572_|)) + (##unchecked-structure-set! __obj27140 __tmp27496 '12 '#f '#f)) + (let ((__tmp27498 |gerbil/core/mop~MOP-5[1]#_g27499_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27140 __tmp27571 '14 '#f '#f)) + (##unchecked-structure-set! __obj27140 __tmp27498 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27140 '() '15 '#f '#f)) @@ -3142,7 +3324,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27140 '() '18 '#f '#f)) __obj27140)) - (define |gerbil/core/mop~MOP-5[:0:]#:pair| + (define |gerbil/core/mop~MOP-5[:0:]#:vector| (let ((__obj27141 (let () (declare (not safe)) @@ -3171,25 +3353,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27141 'pair '1 '#f '#f)) + (##unchecked-structure-set! __obj27141 'vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27141 'pair '2 '#f '#f)) - (let ((__tmp27573 (cons |gerbil/core/mop~MOP-5[1]#_g27574_| '()))) + (##unchecked-structure-set! __obj27141 'vector '2 '#f '#f)) + (let ((__tmp27500 (cons |gerbil/core/mop~MOP-5[1]#_g27501_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27141 __tmp27573 '3 '#f '#f)) + (##unchecked-structure-set! __obj27141 __tmp27500 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27141 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27141 '#t '9 '#f '#f)) - (let ((__tmp27575 |gerbil/core/mop~MOP-5[1]#_g27576_|)) + (let ((__tmp27502 |gerbil/core/mop~MOP-5[1]#_g27503_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27141 __tmp27575 '12 '#f '#f)) - (let ((__tmp27577 |gerbil/core/mop~MOP-5[1]#_g27578_|)) + (##unchecked-structure-set! __obj27141 __tmp27502 '12 '#f '#f)) + (let ((__tmp27504 |gerbil/core/mop~MOP-5[1]#_g27505_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27141 __tmp27577 '14 '#f '#f)) + (##unchecked-structure-set! __obj27141 __tmp27504 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27141 '() '15 '#f '#f)) @@ -3203,7 +3385,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27141 '() '18 '#f '#f)) __obj27141)) - (define |gerbil/core/mop~MOP-5[:0:]#:null| + (define |gerbil/core/mop~MOP-5[:0:]#:string| (let ((__obj27142 (let () (declare (not safe)) @@ -3232,27 +3414,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27142 'null '1 '#f '#f)) + (##unchecked-structure-set! __obj27142 'string '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27142 'null '2 '#f '#f)) - (let ((__tmp27579 - (cons |gerbil/core/mop~MOP-5[1]#_g27574_| - (cons |gerbil/core/mop~MOP-5[1]#_g27483_| '())))) + (##unchecked-structure-set! __obj27142 'string '2 '#f '#f)) + (let ((__tmp27506 (cons |gerbil/core/mop~MOP-5[1]#_g27501_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27142 __tmp27579 '3 '#f '#f)) + (##unchecked-structure-set! __obj27142 __tmp27506 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27142 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27142 '#t '9 '#f '#f)) - (let ((__tmp27580 |gerbil/core/mop~MOP-5[1]#_g27581_|)) + (let ((__tmp27507 |gerbil/core/mop~MOP-5[1]#_g27508_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27142 __tmp27580 '12 '#f '#f)) - (let ((__tmp27582 |gerbil/core/mop~MOP-5[1]#_g27583_|)) + (##unchecked-structure-set! __obj27142 __tmp27507 '12 '#f '#f)) + (let ((__tmp27509 |gerbil/core/mop~MOP-5[1]#_g27510_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27142 __tmp27582 '14 '#f '#f)) + (##unchecked-structure-set! __obj27142 __tmp27509 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27142 '() '15 '#f '#f)) @@ -3266,7 +3446,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27142 '() '18 '#f '#f)) __obj27142)) - (define |gerbil/core/mop~MOP-5[:0:]#:sequence| + (define |gerbil/core/mop~MOP-5[:0:]#:hvector| (let ((__obj27143 (let () (declare (not safe)) @@ -3295,25 +3475,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27143 'sequence '1 '#f '#f)) + (##unchecked-structure-set! __obj27143 'hvector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27143 'sequence '2 '#f '#f)) - (let ((__tmp27584 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27143 'hvector '2 '#f '#f)) + (let ((__tmp27511 (cons |gerbil/core/mop~MOP-5[1]#_g27501_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27143 __tmp27584 '3 '#f '#f)) + (##unchecked-structure-set! __obj27143 __tmp27511 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27143 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27143 '#t '9 '#f '#f)) - (let ((__tmp27585 |gerbil/core/mop~MOP-5[1]#_g27586_|)) + (let ((__tmp27512 |gerbil/core/mop~MOP-5[1]#_g27513_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27143 __tmp27585 '12 '#f '#f)) - (let ((__tmp27587 |gerbil/core/mop~MOP-5[1]#_g27588_|)) + (##unchecked-structure-set! __obj27143 __tmp27512 '12 '#f '#f)) + (let ((__tmp27514 |gerbil/core/mop~MOP-5[1]#_g27515_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27143 __tmp27587 '14 '#f '#f)) + (##unchecked-structure-set! __obj27143 __tmp27514 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27143 '() '15 '#f '#f)) @@ -3327,7 +3507,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27143 '() '18 '#f '#f)) __obj27143)) - (define |gerbil/core/mop~MOP-5[:0:]#:vector| + (define |gerbil/core/mop~MOP-5[:0:]#:u8vector| (let ((__obj27144 (let () (declare (not safe)) @@ -3356,25 +3536,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27144 'vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27144 'u8vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27144 'vector '2 '#f '#f)) - (let ((__tmp27589 (cons |gerbil/core/mop~MOP-5[1]#_g27590_| '()))) + (##unchecked-structure-set! __obj27144 'u8vector '2 '#f '#f)) + (let ((__tmp27516 (cons |gerbil/core/mop~MOP-5[1]#_g27517_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27144 __tmp27589 '3 '#f '#f)) + (##unchecked-structure-set! __obj27144 __tmp27516 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27144 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27144 '#t '9 '#f '#f)) - (let ((__tmp27591 |gerbil/core/mop~MOP-5[1]#_g27592_|)) + (let ((__tmp27518 |gerbil/core/mop~MOP-5[1]#_g27519_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27144 __tmp27591 '12 '#f '#f)) - (let ((__tmp27593 |gerbil/core/mop~MOP-5[1]#_g27594_|)) + (##unchecked-structure-set! __obj27144 __tmp27518 '12 '#f '#f)) + (let ((__tmp27520 |gerbil/core/mop~MOP-5[1]#_g27521_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27144 __tmp27593 '14 '#f '#f)) + (##unchecked-structure-set! __obj27144 __tmp27520 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27144 '() '15 '#f '#f)) @@ -3388,7 +3568,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27144 '() '18 '#f '#f)) __obj27144)) - (define |gerbil/core/mop~MOP-5[:0:]#:string| + (define |gerbil/core/mop~MOP-5[:0:]#:s8vector| (let ((__obj27145 (let () (declare (not safe)) @@ -3417,25 +3597,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27145 'string '1 '#f '#f)) + (##unchecked-structure-set! __obj27145 's8vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27145 'string '2 '#f '#f)) - (let ((__tmp27595 (cons |gerbil/core/mop~MOP-5[1]#_g27590_| '()))) + (##unchecked-structure-set! __obj27145 's8vector '2 '#f '#f)) + (let ((__tmp27522 (cons |gerbil/core/mop~MOP-5[1]#_g27517_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27145 __tmp27595 '3 '#f '#f)) + (##unchecked-structure-set! __obj27145 __tmp27522 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27145 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27145 '#t '9 '#f '#f)) - (let ((__tmp27596 |gerbil/core/mop~MOP-5[1]#_g27597_|)) + (let ((__tmp27523 |gerbil/core/mop~MOP-5[1]#_g27524_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27145 __tmp27596 '12 '#f '#f)) - (let ((__tmp27598 |gerbil/core/mop~MOP-5[1]#_g27599_|)) + (##unchecked-structure-set! __obj27145 __tmp27523 '12 '#f '#f)) + (let ((__tmp27525 |gerbil/core/mop~MOP-5[1]#_g27526_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27145 __tmp27598 '14 '#f '#f)) + (##unchecked-structure-set! __obj27145 __tmp27525 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27145 '() '15 '#f '#f)) @@ -3449,7 +3629,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27145 '() '18 '#f '#f)) __obj27145)) - (define |gerbil/core/mop~MOP-5[:0:]#:hvector| + (define |gerbil/core/mop~MOP-5[:0:]#:u16vector| (let ((__obj27146 (let () (declare (not safe)) @@ -3478,25 +3658,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27146 'hvector '1 '#f '#f)) + (##unchecked-structure-set! __obj27146 'u16vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27146 'hvector '2 '#f '#f)) - (let ((__tmp27600 (cons |gerbil/core/mop~MOP-5[1]#_g27590_| '()))) + (##unchecked-structure-set! __obj27146 'u16vector '2 '#f '#f)) + (let ((__tmp27527 (cons |gerbil/core/mop~MOP-5[1]#_g27517_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27146 __tmp27600 '3 '#f '#f)) + (##unchecked-structure-set! __obj27146 __tmp27527 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27146 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27146 '#t '9 '#f '#f)) - (let ((__tmp27601 |gerbil/core/mop~MOP-5[1]#_g27602_|)) + (let ((__tmp27528 |gerbil/core/mop~MOP-5[1]#_g27529_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27146 __tmp27601 '12 '#f '#f)) - (let ((__tmp27603 |gerbil/core/mop~MOP-5[1]#_g27604_|)) + (##unchecked-structure-set! __obj27146 __tmp27528 '12 '#f '#f)) + (let ((__tmp27530 |gerbil/core/mop~MOP-5[1]#_g27531_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27146 __tmp27603 '14 '#f '#f)) + (##unchecked-structure-set! __obj27146 __tmp27530 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27146 '() '15 '#f '#f)) @@ -3510,7 +3690,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27146 '() '18 '#f '#f)) __obj27146)) - (define |gerbil/core/mop~MOP-5[:0:]#:u8vector| + (define |gerbil/core/mop~MOP-5[:0:]#:s16vector| (let ((__obj27147 (let () (declare (not safe)) @@ -3539,25 +3719,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27147 'u8vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27147 's16vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27147 'u8vector '2 '#f '#f)) - (let ((__tmp27605 (cons |gerbil/core/mop~MOP-5[1]#_g27606_| '()))) + (##unchecked-structure-set! __obj27147 's16vector '2 '#f '#f)) + (let ((__tmp27532 (cons |gerbil/core/mop~MOP-5[1]#_g27517_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27147 __tmp27605 '3 '#f '#f)) + (##unchecked-structure-set! __obj27147 __tmp27532 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27147 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27147 '#t '9 '#f '#f)) - (let ((__tmp27607 |gerbil/core/mop~MOP-5[1]#_g27608_|)) + (let ((__tmp27533 |gerbil/core/mop~MOP-5[1]#_g27534_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27147 __tmp27607 '12 '#f '#f)) - (let ((__tmp27609 |gerbil/core/mop~MOP-5[1]#_g27610_|)) + (##unchecked-structure-set! __obj27147 __tmp27533 '12 '#f '#f)) + (let ((__tmp27535 |gerbil/core/mop~MOP-5[1]#_g27536_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27147 __tmp27609 '14 '#f '#f)) + (##unchecked-structure-set! __obj27147 __tmp27535 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27147 '() '15 '#f '#f)) @@ -3571,7 +3751,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27147 '() '18 '#f '#f)) __obj27147)) - (define |gerbil/core/mop~MOP-5[:0:]#:s8vector| + (define |gerbil/core/mop~MOP-5[:0:]#:u32vector| (let ((__obj27148 (let () (declare (not safe)) @@ -3600,25 +3780,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27148 's8vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27148 'u32vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27148 's8vector '2 '#f '#f)) - (let ((__tmp27611 (cons |gerbil/core/mop~MOP-5[1]#_g27606_| '()))) + (##unchecked-structure-set! __obj27148 'u32vector '2 '#f '#f)) + (let ((__tmp27537 (cons |gerbil/core/mop~MOP-5[1]#_g27517_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27148 __tmp27611 '3 '#f '#f)) + (##unchecked-structure-set! __obj27148 __tmp27537 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27148 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27148 '#t '9 '#f '#f)) - (let ((__tmp27612 |gerbil/core/mop~MOP-5[1]#_g27613_|)) + (let ((__tmp27538 |gerbil/core/mop~MOP-5[1]#_g27539_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27148 __tmp27612 '12 '#f '#f)) - (let ((__tmp27614 |gerbil/core/mop~MOP-5[1]#_g27615_|)) + (##unchecked-structure-set! __obj27148 __tmp27538 '12 '#f '#f)) + (let ((__tmp27540 |gerbil/core/mop~MOP-5[1]#_g27541_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27148 __tmp27614 '14 '#f '#f)) + (##unchecked-structure-set! __obj27148 __tmp27540 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27148 '() '15 '#f '#f)) @@ -3632,7 +3812,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27148 '() '18 '#f '#f)) __obj27148)) - (define |gerbil/core/mop~MOP-5[:0:]#:u16vector| + (define |gerbil/core/mop~MOP-5[:0:]#:s32vector| (let ((__obj27149 (let () (declare (not safe)) @@ -3661,25 +3841,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27149 'u16vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27149 's32vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27149 'u16vector '2 '#f '#f)) - (let ((__tmp27616 (cons |gerbil/core/mop~MOP-5[1]#_g27606_| '()))) + (##unchecked-structure-set! __obj27149 's32vector '2 '#f '#f)) + (let ((__tmp27542 (cons |gerbil/core/mop~MOP-5[1]#_g27517_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27149 __tmp27616 '3 '#f '#f)) + (##unchecked-structure-set! __obj27149 __tmp27542 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27149 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27149 '#t '9 '#f '#f)) - (let ((__tmp27617 |gerbil/core/mop~MOP-5[1]#_g27618_|)) + (let ((__tmp27543 |gerbil/core/mop~MOP-5[1]#_g27544_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27149 __tmp27617 '12 '#f '#f)) - (let ((__tmp27619 |gerbil/core/mop~MOP-5[1]#_g27620_|)) + (##unchecked-structure-set! __obj27149 __tmp27543 '12 '#f '#f)) + (let ((__tmp27545 |gerbil/core/mop~MOP-5[1]#_g27546_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27149 __tmp27619 '14 '#f '#f)) + (##unchecked-structure-set! __obj27149 __tmp27545 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27149 '() '15 '#f '#f)) @@ -3693,7 +3873,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27149 '() '18 '#f '#f)) __obj27149)) - (define |gerbil/core/mop~MOP-5[:0:]#:s16vector| + (define |gerbil/core/mop~MOP-5[:0:]#:u64vector| (let ((__obj27150 (let () (declare (not safe)) @@ -3722,25 +3902,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27150 's16vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27150 'u64vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27150 's16vector '2 '#f '#f)) - (let ((__tmp27621 (cons |gerbil/core/mop~MOP-5[1]#_g27606_| '()))) + (##unchecked-structure-set! __obj27150 'u64vector '2 '#f '#f)) + (let ((__tmp27547 (cons |gerbil/core/mop~MOP-5[1]#_g27517_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27150 __tmp27621 '3 '#f '#f)) + (##unchecked-structure-set! __obj27150 __tmp27547 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27150 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27150 '#t '9 '#f '#f)) - (let ((__tmp27622 |gerbil/core/mop~MOP-5[1]#_g27623_|)) + (let ((__tmp27548 |gerbil/core/mop~MOP-5[1]#_g27549_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27150 __tmp27622 '12 '#f '#f)) - (let ((__tmp27624 |gerbil/core/mop~MOP-5[1]#_g27625_|)) + (##unchecked-structure-set! __obj27150 __tmp27548 '12 '#f '#f)) + (let ((__tmp27550 |gerbil/core/mop~MOP-5[1]#_g27551_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27150 __tmp27624 '14 '#f '#f)) + (##unchecked-structure-set! __obj27150 __tmp27550 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27150 '() '15 '#f '#f)) @@ -3754,7 +3934,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27150 '() '18 '#f '#f)) __obj27150)) - (define |gerbil/core/mop~MOP-5[:0:]#:u32vector| + (define |gerbil/core/mop~MOP-5[:0:]#:s64vector| (let ((__obj27151 (let () (declare (not safe)) @@ -3783,25 +3963,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27151 'u32vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27151 's64vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27151 'u32vector '2 '#f '#f)) - (let ((__tmp27626 (cons |gerbil/core/mop~MOP-5[1]#_g27606_| '()))) + (##unchecked-structure-set! __obj27151 's64vector '2 '#f '#f)) + (let ((__tmp27552 (cons |gerbil/core/mop~MOP-5[1]#_g27517_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27151 __tmp27626 '3 '#f '#f)) + (##unchecked-structure-set! __obj27151 __tmp27552 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27151 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27151 '#t '9 '#f '#f)) - (let ((__tmp27627 |gerbil/core/mop~MOP-5[1]#_g27628_|)) + (let ((__tmp27553 |gerbil/core/mop~MOP-5[1]#_g27554_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27151 __tmp27627 '12 '#f '#f)) - (let ((__tmp27629 |gerbil/core/mop~MOP-5[1]#_g27630_|)) + (##unchecked-structure-set! __obj27151 __tmp27553 '12 '#f '#f)) + (let ((__tmp27555 |gerbil/core/mop~MOP-5[1]#_g27556_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27151 __tmp27629 '14 '#f '#f)) + (##unchecked-structure-set! __obj27151 __tmp27555 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27151 '() '15 '#f '#f)) @@ -3815,7 +3995,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27151 '() '18 '#f '#f)) __obj27151)) - (define |gerbil/core/mop~MOP-5[:0:]#:s32vector| + (define |gerbil/core/mop~MOP-5[:0:]#:f32vector| (let ((__obj27152 (let () (declare (not safe)) @@ -3844,25 +4024,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27152 's32vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27152 'f32vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27152 's32vector '2 '#f '#f)) - (let ((__tmp27631 (cons |gerbil/core/mop~MOP-5[1]#_g27606_| '()))) + (##unchecked-structure-set! __obj27152 'f32vector '2 '#f '#f)) + (let ((__tmp27557 (cons |gerbil/core/mop~MOP-5[1]#_g27517_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27152 __tmp27631 '3 '#f '#f)) + (##unchecked-structure-set! __obj27152 __tmp27557 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27152 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27152 '#t '9 '#f '#f)) - (let ((__tmp27632 |gerbil/core/mop~MOP-5[1]#_g27633_|)) + (let ((__tmp27558 |gerbil/core/mop~MOP-5[1]#_g27559_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27152 __tmp27632 '12 '#f '#f)) - (let ((__tmp27634 |gerbil/core/mop~MOP-5[1]#_g27635_|)) + (##unchecked-structure-set! __obj27152 __tmp27558 '12 '#f '#f)) + (let ((__tmp27560 |gerbil/core/mop~MOP-5[1]#_g27561_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27152 __tmp27634 '14 '#f '#f)) + (##unchecked-structure-set! __obj27152 __tmp27560 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27152 '() '15 '#f '#f)) @@ -3876,7 +4056,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27152 '() '18 '#f '#f)) __obj27152)) - (define |gerbil/core/mop~MOP-5[:0:]#:u64vector| + (define |gerbil/core/mop~MOP-5[:0:]#:f64vector| (let ((__obj27153 (let () (declare (not safe)) @@ -3905,25 +4085,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27153 'u64vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27153 'f64vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27153 'u64vector '2 '#f '#f)) - (let ((__tmp27636 (cons |gerbil/core/mop~MOP-5[1]#_g27606_| '()))) + (##unchecked-structure-set! __obj27153 'f64vector '2 '#f '#f)) + (let ((__tmp27562 (cons |gerbil/core/mop~MOP-5[1]#_g27517_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27153 __tmp27636 '3 '#f '#f)) + (##unchecked-structure-set! __obj27153 __tmp27562 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27153 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27153 '#t '9 '#f '#f)) - (let ((__tmp27637 |gerbil/core/mop~MOP-5[1]#_g27638_|)) + (let ((__tmp27563 |gerbil/core/mop~MOP-5[1]#_g27564_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27153 __tmp27637 '12 '#f '#f)) - (let ((__tmp27639 |gerbil/core/mop~MOP-5[1]#_g27640_|)) + (##unchecked-structure-set! __obj27153 __tmp27563 '12 '#f '#f)) + (let ((__tmp27565 |gerbil/core/mop~MOP-5[1]#_g27566_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27153 __tmp27639 '14 '#f '#f)) + (##unchecked-structure-set! __obj27153 __tmp27565 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27153 '() '15 '#f '#f)) @@ -3937,7 +4117,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27153 '() '18 '#f '#f)) __obj27153)) - (define |gerbil/core/mop~MOP-5[:0:]#:s64vector| + (define |gerbil/core/mop~MOP-5[:0:]#:values| (let ((__obj27154 (let () (declare (not safe)) @@ -3966,25 +4146,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27154 's64vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27154 'values '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27154 's64vector '2 '#f '#f)) - (let ((__tmp27641 (cons |gerbil/core/mop~MOP-5[1]#_g27606_| '()))) + (##unchecked-structure-set! __obj27154 'values '2 '#f '#f)) + (let ((__tmp27567 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27154 __tmp27641 '3 '#f '#f)) + (##unchecked-structure-set! __obj27154 __tmp27567 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27154 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27154 '#t '9 '#f '#f)) - (let ((__tmp27642 |gerbil/core/mop~MOP-5[1]#_g27643_|)) + (let ((__tmp27568 |gerbil/core/mop~MOP-5[1]#_g27569_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27154 __tmp27642 '12 '#f '#f)) - (let ((__tmp27644 |gerbil/core/mop~MOP-5[1]#_g27645_|)) + (##unchecked-structure-set! __obj27154 __tmp27568 '12 '#f '#f)) + (let ((__tmp27570 |gerbil/core/mop~MOP-5[1]#_g27571_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27154 __tmp27644 '14 '#f '#f)) + (##unchecked-structure-set! __obj27154 __tmp27570 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27154 '() '15 '#f '#f)) @@ -3998,7 +4178,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27154 '() '18 '#f '#f)) __obj27154)) - (define |gerbil/core/mop~MOP-5[:0:]#:f32vector| + (define |gerbil/core/mop~MOP-5[:0:]#:box| (let ((__obj27155 (let () (declare (not safe)) @@ -4027,25 +4207,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27155 'f32vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27155 'box '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27155 'f32vector '2 '#f '#f)) - (let ((__tmp27646 (cons |gerbil/core/mop~MOP-5[1]#_g27606_| '()))) + (##unchecked-structure-set! __obj27155 'box '2 '#f '#f)) + (let ((__tmp27572 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27155 __tmp27646 '3 '#f '#f)) + (##unchecked-structure-set! __obj27155 __tmp27572 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27155 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27155 '#t '9 '#f '#f)) - (let ((__tmp27647 |gerbil/core/mop~MOP-5[1]#_g27648_|)) + (let ((__tmp27573 |gerbil/core/mop~MOP-5[1]#_g27574_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27155 __tmp27647 '12 '#f '#f)) - (let ((__tmp27649 |gerbil/core/mop~MOP-5[1]#_g27650_|)) + (##unchecked-structure-set! __obj27155 __tmp27573 '12 '#f '#f)) + (let ((__tmp27575 |gerbil/core/mop~MOP-5[1]#_g27576_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27155 __tmp27649 '14 '#f '#f)) + (##unchecked-structure-set! __obj27155 __tmp27575 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27155 '() '15 '#f '#f)) @@ -4059,7 +4239,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27155 '() '18 '#f '#f)) __obj27155)) - (define |gerbil/core/mop~MOP-5[:0:]#:f64vector| + (define |gerbil/core/mop~MOP-5[:0:]#:frame| (let ((__obj27156 (let () (declare (not safe)) @@ -4088,25 +4268,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27156 'f64vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27156 'frame '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27156 'f64vector '2 '#f '#f)) - (let ((__tmp27651 (cons |gerbil/core/mop~MOP-5[1]#_g27606_| '()))) + (##unchecked-structure-set! __obj27156 'frame '2 '#f '#f)) + (let ((__tmp27577 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27156 __tmp27651 '3 '#f '#f)) + (##unchecked-structure-set! __obj27156 __tmp27577 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27156 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27156 '#t '9 '#f '#f)) - (let ((__tmp27652 |gerbil/core/mop~MOP-5[1]#_g27653_|)) + (let ((__tmp27578 |gerbil/core/mop~MOP-5[1]#_g27579_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27156 __tmp27652 '12 '#f '#f)) - (let ((__tmp27654 |gerbil/core/mop~MOP-5[1]#_g27655_|)) + (##unchecked-structure-set! __obj27156 __tmp27578 '12 '#f '#f)) + (let ((__tmp27580 |gerbil/core/mop~MOP-5[1]#_g27581_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27156 __tmp27654 '14 '#f '#f)) + (##unchecked-structure-set! __obj27156 __tmp27580 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27156 '() '15 '#f '#f)) @@ -4120,7 +4300,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27156 '() '18 '#f '#f)) __obj27156)) - (define |gerbil/core/mop~MOP-5[:0:]#:values| + (define |gerbil/core/mop~MOP-5[:0:]#:continuation| (let ((__obj27157 (let () (declare (not safe)) @@ -4149,25 +4329,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27157 'values '1 '#f '#f)) + (##unchecked-structure-set! __obj27157 'continuation '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27157 'values '2 '#f '#f)) - (let ((__tmp27656 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27157 'continuation '2 '#f '#f)) + (let ((__tmp27582 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27157 __tmp27656 '3 '#f '#f)) + (##unchecked-structure-set! __obj27157 __tmp27582 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27157 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27157 '#t '9 '#f '#f)) - (let ((__tmp27657 |gerbil/core/mop~MOP-5[1]#_g27658_|)) + (let ((__tmp27583 |gerbil/core/mop~MOP-5[1]#_g27584_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27157 __tmp27657 '12 '#f '#f)) - (let ((__tmp27659 |gerbil/core/mop~MOP-5[1]#_g27660_|)) + (##unchecked-structure-set! __obj27157 __tmp27583 '12 '#f '#f)) + (let ((__tmp27585 |gerbil/core/mop~MOP-5[1]#_g27586_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27157 __tmp27659 '14 '#f '#f)) + (##unchecked-structure-set! __obj27157 __tmp27585 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27157 '() '15 '#f '#f)) @@ -4181,7 +4361,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27157 '() '18 '#f '#f)) __obj27157)) - (define |gerbil/core/mop~MOP-5[:0:]#:box| + (define |gerbil/core/mop~MOP-5[:0:]#:promise| (let ((__obj27158 (let () (declare (not safe)) @@ -4210,25 +4390,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27158 'box '1 '#f '#f)) + (##unchecked-structure-set! __obj27158 'promise '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27158 'box '2 '#f '#f)) - (let ((__tmp27661 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27158 'promise '2 '#f '#f)) + (let ((__tmp27587 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27158 __tmp27661 '3 '#f '#f)) + (##unchecked-structure-set! __obj27158 __tmp27587 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27158 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27158 '#t '9 '#f '#f)) - (let ((__tmp27662 |gerbil/core/mop~MOP-5[1]#_g27663_|)) + (let ((__tmp27588 |gerbil/core/mop~MOP-5[1]#_g27589_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27158 __tmp27662 '12 '#f '#f)) - (let ((__tmp27664 |gerbil/core/mop~MOP-5[1]#_g27665_|)) + (##unchecked-structure-set! __obj27158 __tmp27588 '12 '#f '#f)) + (let ((__tmp27590 |gerbil/core/mop~MOP-5[1]#_g27591_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27158 __tmp27664 '14 '#f '#f)) + (##unchecked-structure-set! __obj27158 __tmp27590 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27158 '() '15 '#f '#f)) @@ -4242,7 +4422,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27158 '() '18 '#f '#f)) __obj27158)) - (define |gerbil/core/mop~MOP-5[:0:]#:frame| + (define |gerbil/core/mop~MOP-5[:0:]#:weak| (let ((__obj27159 (let () (declare (not safe)) @@ -4271,25 +4451,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27159 'frame '1 '#f '#f)) + (##unchecked-structure-set! __obj27159 'weak '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27159 'frame '2 '#f '#f)) - (let ((__tmp27666 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27159 'weak '2 '#f '#f)) + (let ((__tmp27592 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27159 __tmp27666 '3 '#f '#f)) + (##unchecked-structure-set! __obj27159 __tmp27592 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27159 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27159 '#t '9 '#f '#f)) - (let ((__tmp27667 |gerbil/core/mop~MOP-5[1]#_g27668_|)) + (let ((__tmp27593 |gerbil/core/mop~MOP-5[1]#_g27594_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27159 __tmp27667 '12 '#f '#f)) - (let ((__tmp27669 |gerbil/core/mop~MOP-5[1]#_g27670_|)) + (##unchecked-structure-set! __obj27159 __tmp27593 '12 '#f '#f)) + (let ((__tmp27595 |gerbil/core/mop~MOP-5[1]#_g27596_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27159 __tmp27669 '14 '#f '#f)) + (##unchecked-structure-set! __obj27159 __tmp27595 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27159 '() '15 '#f '#f)) @@ -4303,7 +4483,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27159 '() '18 '#f '#f)) __obj27159)) - (define |gerbil/core/mop~MOP-5[:0:]#:continuation| + (define |gerbil/core/mop~MOP-5[:0:]#:foreign| (let ((__obj27160 (let () (declare (not safe)) @@ -4332,25 +4512,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27160 'continuation '1 '#f '#f)) + (##unchecked-structure-set! __obj27160 'foreign '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27160 'continuation '2 '#f '#f)) - (let ((__tmp27671 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27160 'foreign '2 '#f '#f)) + (let ((__tmp27597 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27160 __tmp27671 '3 '#f '#f)) + (##unchecked-structure-set! __obj27160 __tmp27597 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27160 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27160 '#t '9 '#f '#f)) - (let ((__tmp27672 |gerbil/core/mop~MOP-5[1]#_g27673_|)) + (let ((__tmp27598 |gerbil/core/mop~MOP-5[1]#_g27599_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27160 __tmp27672 '12 '#f '#f)) - (let ((__tmp27674 |gerbil/core/mop~MOP-5[1]#_g27675_|)) + (##unchecked-structure-set! __obj27160 __tmp27598 '12 '#f '#f)) + (let ((__tmp27600 |gerbil/core/mop~MOP-5[1]#_g27601_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27160 __tmp27674 '14 '#f '#f)) + (##unchecked-structure-set! __obj27160 __tmp27600 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27160 '() '15 '#f '#f)) @@ -4364,7 +4544,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27160 '() '18 '#f '#f)) __obj27160)) - (define |gerbil/core/mop~MOP-5[:0:]#:promise| + (define |gerbil/core/mop~MOP-5[:0:]#:procedure| (let ((__obj27161 (let () (declare (not safe)) @@ -4393,25 +4573,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27161 'promise '1 '#f '#f)) + (##unchecked-structure-set! __obj27161 'procedure '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27161 'promise '2 '#f '#f)) - (let ((__tmp27676 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27161 'procedure '2 '#f '#f)) + (let ((__tmp27602 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27161 __tmp27676 '3 '#f '#f)) + (##unchecked-structure-set! __obj27161 __tmp27602 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27161 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27161 '#t '9 '#f '#f)) - (let ((__tmp27677 |gerbil/core/mop~MOP-5[1]#_g27678_|)) + (let ((__tmp27603 |gerbil/core/mop~MOP-5[1]#_g27604_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27161 __tmp27677 '12 '#f '#f)) - (let ((__tmp27679 |gerbil/core/mop~MOP-5[1]#_g27680_|)) + (##unchecked-structure-set! __obj27161 __tmp27603 '12 '#f '#f)) + (let ((__tmp27605 |gerbil/core/mop~MOP-5[1]#_g27606_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27161 __tmp27679 '14 '#f '#f)) + (##unchecked-structure-set! __obj27161 __tmp27605 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27161 '() '15 '#f '#f)) @@ -4425,7 +4605,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27161 '() '18 '#f '#f)) __obj27161)) - (define |gerbil/core/mop~MOP-5[:0:]#:weak| + (define |gerbil/core/mop~MOP-5[:0:]#:time| (let ((__obj27162 (let () (declare (not safe)) @@ -4454,25 +4634,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27162 'weak '1 '#f '#f)) + (##unchecked-structure-set! __obj27162 'time::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27162 'weak '2 '#f '#f)) - (let ((__tmp27681 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27162 'time '2 '#f '#f)) + (let ((__tmp27607 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27162 __tmp27681 '3 '#f '#f)) + (##unchecked-structure-set! __obj27162 __tmp27607 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27162 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27162 '#t '9 '#f '#f)) - (let ((__tmp27682 |gerbil/core/mop~MOP-5[1]#_g27683_|)) + (let ((__tmp27608 |gerbil/core/mop~MOP-5[1]#_g27609_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27162 __tmp27682 '12 '#f '#f)) - (let ((__tmp27684 |gerbil/core/mop~MOP-5[1]#_g27685_|)) + (##unchecked-structure-set! __obj27162 __tmp27608 '12 '#f '#f)) + (let ((__tmp27610 |gerbil/core/mop~MOP-5[1]#_g27611_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27162 __tmp27684 '14 '#f '#f)) + (##unchecked-structure-set! __obj27162 __tmp27610 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27162 '() '15 '#f '#f)) @@ -4486,7 +4666,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27162 '() '18 '#f '#f)) __obj27162)) - (define |gerbil/core/mop~MOP-5[:0:]#:foreign| + (define |gerbil/core/mop~MOP-5[:0:]#:thread| (let ((__obj27163 (let () (declare (not safe)) @@ -4515,25 +4695,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27163 'foreign '1 '#f '#f)) + (##unchecked-structure-set! __obj27163 'thread::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27163 'foreign '2 '#f '#f)) - (let ((__tmp27686 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27163 'thread '2 '#f '#f)) + (let ((__tmp27612 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27163 __tmp27686 '3 '#f '#f)) + (##unchecked-structure-set! __obj27163 __tmp27612 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27163 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27163 '#t '9 '#f '#f)) - (let ((__tmp27687 |gerbil/core/mop~MOP-5[1]#_g27688_|)) + (let ((__tmp27613 |gerbil/core/mop~MOP-5[1]#_g27614_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27163 __tmp27687 '12 '#f '#f)) - (let ((__tmp27689 |gerbil/core/mop~MOP-5[1]#_g27690_|)) + (##unchecked-structure-set! __obj27163 __tmp27613 '12 '#f '#f)) + (let ((__tmp27615 |gerbil/core/mop~MOP-5[1]#_g27616_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27163 __tmp27689 '14 '#f '#f)) + (##unchecked-structure-set! __obj27163 __tmp27615 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27163 '() '15 '#f '#f)) @@ -4547,7 +4727,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27163 '() '18 '#f '#f)) __obj27163)) - (define |gerbil/core/mop~MOP-5[:0:]#:procedure| + (define |gerbil/core/mop~MOP-5[:0:]#:thread-group| (let ((__obj27164 (let () (declare (not safe)) @@ -4576,25 +4756,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27164 'procedure '1 '#f '#f)) + (##unchecked-structure-set! __obj27164 'thread-group::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27164 'procedure '2 '#f '#f)) - (let ((__tmp27691 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27164 'thread-group '2 '#f '#f)) + (let ((__tmp27617 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27164 __tmp27691 '3 '#f '#f)) + (##unchecked-structure-set! __obj27164 __tmp27617 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27164 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27164 '#t '9 '#f '#f)) - (let ((__tmp27692 |gerbil/core/mop~MOP-5[1]#_g27693_|)) + (let ((__tmp27618 |gerbil/core/mop~MOP-5[1]#_g27619_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27164 __tmp27692 '12 '#f '#f)) - (let ((__tmp27694 |gerbil/core/mop~MOP-5[1]#_g27695_|)) + (##unchecked-structure-set! __obj27164 __tmp27618 '12 '#f '#f)) + (let ((__tmp27620 |gerbil/core/mop~MOP-5[1]#_g27621_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27164 __tmp27694 '14 '#f '#f)) + (##unchecked-structure-set! __obj27164 __tmp27620 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27164 '() '15 '#f '#f)) @@ -4608,7 +4788,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27164 '() '18 '#f '#f)) __obj27164)) - (define |gerbil/core/mop~MOP-5[:0:]#:time| + (define |gerbil/core/mop~MOP-5[:0:]#:mutex| (let ((__obj27165 (let () (declare (not safe)) @@ -4637,25 +4817,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27165 'time::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27165 'mutex::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27165 'time '2 '#f '#f)) - (let ((__tmp27696 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27165 'mutex '2 '#f '#f)) + (let ((__tmp27622 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27165 __tmp27696 '3 '#f '#f)) + (##unchecked-structure-set! __obj27165 __tmp27622 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27165 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27165 '#t '9 '#f '#f)) - (let ((__tmp27697 |gerbil/core/mop~MOP-5[1]#_g27698_|)) + (let ((__tmp27623 |gerbil/core/mop~MOP-5[1]#_g27624_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27165 __tmp27697 '12 '#f '#f)) - (let ((__tmp27699 |gerbil/core/mop~MOP-5[1]#_g27700_|)) + (##unchecked-structure-set! __obj27165 __tmp27623 '12 '#f '#f)) + (let ((__tmp27625 |gerbil/core/mop~MOP-5[1]#_g27626_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27165 __tmp27699 '14 '#f '#f)) + (##unchecked-structure-set! __obj27165 __tmp27625 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27165 '() '15 '#f '#f)) @@ -4669,7 +4849,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27165 '() '18 '#f '#f)) __obj27165)) - (define |gerbil/core/mop~MOP-5[:0:]#:thread| + (define |gerbil/core/mop~MOP-5[:0:]#:condvar| (let ((__obj27166 (let () (declare (not safe)) @@ -4698,25 +4878,35 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27166 'thread::t '1 '#f '#f)) + (##unchecked-structure-set! + __obj27166 + 'condition-variable::t + '1 + '#f + '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27166 'thread '2 '#f '#f)) - (let ((__tmp27701 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! + __obj27166 + 'condition-variable + '2 + '#f + '#f)) + (let ((__tmp27627 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27166 __tmp27701 '3 '#f '#f)) + (##unchecked-structure-set! __obj27166 __tmp27627 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27166 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27166 '#t '9 '#f '#f)) - (let ((__tmp27702 |gerbil/core/mop~MOP-5[1]#_g27703_|)) + (let ((__tmp27628 |gerbil/core/mop~MOP-5[1]#_g27629_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27166 __tmp27702 '12 '#f '#f)) - (let ((__tmp27704 |gerbil/core/mop~MOP-5[1]#_g27705_|)) + (##unchecked-structure-set! __obj27166 __tmp27628 '12 '#f '#f)) + (let ((__tmp27630 |gerbil/core/mop~MOP-5[1]#_g27631_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27166 __tmp27704 '14 '#f '#f)) + (##unchecked-structure-set! __obj27166 __tmp27630 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27166 '() '15 '#f '#f)) @@ -4730,7 +4920,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27166 '() '18 '#f '#f)) __obj27166)) - (define |gerbil/core/mop~MOP-5[:0:]#:thread-group| + (define |gerbil/core/mop~MOP-5[:0:]#:port| (let ((__obj27167 (let () (declare (not safe)) @@ -4759,25 +4949,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27167 'thread-group::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27167 'port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27167 'thread-group '2 '#f '#f)) - (let ((__tmp27706 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27167 'port '2 '#f '#f)) + (let ((__tmp27632 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27167 __tmp27706 '3 '#f '#f)) + (##unchecked-structure-set! __obj27167 __tmp27632 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27167 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27167 '#t '9 '#f '#f)) - (let ((__tmp27707 |gerbil/core/mop~MOP-5[1]#_g27708_|)) + (let ((__tmp27633 |gerbil/core/mop~MOP-5[1]#_g27634_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27167 __tmp27707 '12 '#f '#f)) - (let ((__tmp27709 |gerbil/core/mop~MOP-5[1]#_g27710_|)) + (##unchecked-structure-set! __obj27167 __tmp27633 '12 '#f '#f)) + (let ((__tmp27635 |gerbil/core/mop~MOP-5[1]#_g27636_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27167 __tmp27709 '14 '#f '#f)) + (##unchecked-structure-set! __obj27167 __tmp27635 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27167 '() '15 '#f '#f)) @@ -4791,7 +4981,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27167 '() '18 '#f '#f)) __obj27167)) - (define |gerbil/core/mop~MOP-5[:0:]#:mutex| + (define |gerbil/core/mop~MOP-5[:0:]#:object-port| (let ((__obj27168 (let () (declare (not safe)) @@ -4820,25 +5010,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27168 'mutex::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27168 'object-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27168 'mutex '2 '#f '#f)) - (let ((__tmp27711 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27168 'object-port '2 '#f '#f)) + (let ((__tmp27637 (cons |gerbil/core/mop~MOP-5[1]#_g27638_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27168 __tmp27711 '3 '#f '#f)) + (##unchecked-structure-set! __obj27168 __tmp27637 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27168 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27168 '#t '9 '#f '#f)) - (let ((__tmp27712 |gerbil/core/mop~MOP-5[1]#_g27713_|)) + (let ((__tmp27639 |gerbil/core/mop~MOP-5[1]#_g27640_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27168 __tmp27712 '12 '#f '#f)) - (let ((__tmp27714 |gerbil/core/mop~MOP-5[1]#_g27715_|)) + (##unchecked-structure-set! __obj27168 __tmp27639 '12 '#f '#f)) + (let ((__tmp27641 |gerbil/core/mop~MOP-5[1]#_g27642_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27168 __tmp27714 '14 '#f '#f)) + (##unchecked-structure-set! __obj27168 __tmp27641 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27168 '() '15 '#f '#f)) @@ -4852,7 +5042,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27168 '() '18 '#f '#f)) __obj27168)) - (define |gerbil/core/mop~MOP-5[:0:]#:condvar| + (define |gerbil/core/mop~MOP-5[:0:]#:character-port| (let ((__obj27169 (let () (declare (not safe)) @@ -4883,33 +5073,28 @@ (declare (not safe)) (##unchecked-structure-set! __obj27169 - 'condition-variable::t + 'character-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! - __obj27169 - 'condition-variable - '2 - '#f - '#f)) - (let ((__tmp27716 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27169 'character-port '2 '#f '#f)) + (let ((__tmp27643 (cons |gerbil/core/mop~MOP-5[1]#_g27644_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27169 __tmp27716 '3 '#f '#f)) + (##unchecked-structure-set! __obj27169 __tmp27643 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27169 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27169 '#t '9 '#f '#f)) - (let ((__tmp27717 |gerbil/core/mop~MOP-5[1]#_g27718_|)) + (let ((__tmp27645 |gerbil/core/mop~MOP-5[1]#_g27646_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27169 __tmp27717 '12 '#f '#f)) - (let ((__tmp27719 |gerbil/core/mop~MOP-5[1]#_g27720_|)) + (##unchecked-structure-set! __obj27169 __tmp27645 '12 '#f '#f)) + (let ((__tmp27647 |gerbil/core/mop~MOP-5[1]#_g27648_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27169 __tmp27719 '14 '#f '#f)) + (##unchecked-structure-set! __obj27169 __tmp27647 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27169 '() '15 '#f '#f)) @@ -4923,7 +5108,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27169 '() '18 '#f '#f)) __obj27169)) - (define |gerbil/core/mop~MOP-5[:0:]#:port| + (define |gerbil/core/mop~MOP-5[:0:]#:byte-port| (let ((__obj27170 (let () (declare (not safe)) @@ -4952,25 +5137,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27170 'port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27170 'byte-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27170 'port '2 '#f '#f)) - (let ((__tmp27721 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27170 'byte-port '2 '#f '#f)) + (let ((__tmp27649 (cons |gerbil/core/mop~MOP-5[1]#_g27650_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27170 __tmp27721 '3 '#f '#f)) + (##unchecked-structure-set! __obj27170 __tmp27649 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27170 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27170 '#t '9 '#f '#f)) - (let ((__tmp27722 |gerbil/core/mop~MOP-5[1]#_g27723_|)) + (let ((__tmp27651 |gerbil/core/mop~MOP-5[1]#_g27652_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27170 __tmp27722 '12 '#f '#f)) - (let ((__tmp27724 |gerbil/core/mop~MOP-5[1]#_g27725_|)) + (##unchecked-structure-set! __obj27170 __tmp27651 '12 '#f '#f)) + (let ((__tmp27653 |gerbil/core/mop~MOP-5[1]#_g27654_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27170 __tmp27724 '14 '#f '#f)) + (##unchecked-structure-set! __obj27170 __tmp27653 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27170 '() '15 '#f '#f)) @@ -4984,7 +5169,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27170 '() '18 '#f '#f)) __obj27170)) - (define |gerbil/core/mop~MOP-5[:0:]#:object-port| + (define |gerbil/core/mop~MOP-5[:0:]#:device-port| (let ((__obj27171 (let () (declare (not safe)) @@ -5013,25 +5198,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27171 'object-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27171 'device-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27171 'object-port '2 '#f '#f)) - (let ((__tmp27726 (cons |gerbil/core/mop~MOP-5[1]#_g27727_| '()))) + (##unchecked-structure-set! __obj27171 'device-port '2 '#f '#f)) + (let ((__tmp27655 (cons |gerbil/core/mop~MOP-5[1]#_g27656_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27171 __tmp27726 '3 '#f '#f)) + (##unchecked-structure-set! __obj27171 __tmp27655 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27171 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27171 '#t '9 '#f '#f)) - (let ((__tmp27728 |gerbil/core/mop~MOP-5[1]#_g27729_|)) + (let ((__tmp27657 |gerbil/core/mop~MOP-5[1]#_g27658_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27171 __tmp27728 '12 '#f '#f)) - (let ((__tmp27730 |gerbil/core/mop~MOP-5[1]#_g27731_|)) + (##unchecked-structure-set! __obj27171 __tmp27657 '12 '#f '#f)) + (let ((__tmp27659 |gerbil/core/mop~MOP-5[1]#_g27660_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27171 __tmp27730 '14 '#f '#f)) + (##unchecked-structure-set! __obj27171 __tmp27659 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27171 '() '15 '#f '#f)) @@ -5045,7 +5230,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27171 '() '18 '#f '#f)) __obj27171)) - (define |gerbil/core/mop~MOP-5[:0:]#:character-port| + (define |gerbil/core/mop~MOP-5[:0:]#:vector-port| (let ((__obj27172 (let () (declare (not safe)) @@ -5074,30 +5259,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! - __obj27172 - 'character-port::t - '1 - '#f - '#f)) + (##unchecked-structure-set! __obj27172 'vector-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27172 'character-port '2 '#f '#f)) - (let ((__tmp27732 (cons |gerbil/core/mop~MOP-5[1]#_g27733_| '()))) + (##unchecked-structure-set! __obj27172 'vector-port '2 '#f '#f)) + (let ((__tmp27661 (cons |gerbil/core/mop~MOP-5[1]#_g27644_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27172 __tmp27732 '3 '#f '#f)) + (##unchecked-structure-set! __obj27172 __tmp27661 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27172 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27172 '#t '9 '#f '#f)) - (let ((__tmp27734 |gerbil/core/mop~MOP-5[1]#_g27735_|)) + (let ((__tmp27662 |gerbil/core/mop~MOP-5[1]#_g27663_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27172 __tmp27734 '12 '#f '#f)) - (let ((__tmp27736 |gerbil/core/mop~MOP-5[1]#_g27737_|)) + (##unchecked-structure-set! __obj27172 __tmp27662 '12 '#f '#f)) + (let ((__tmp27664 |gerbil/core/mop~MOP-5[1]#_g27665_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27172 __tmp27736 '14 '#f '#f)) + (##unchecked-structure-set! __obj27172 __tmp27664 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27172 '() '15 '#f '#f)) @@ -5111,7 +5291,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27172 '() '18 '#f '#f)) __obj27172)) - (define |gerbil/core/mop~MOP-5[:0:]#:byte-port| + (define |gerbil/core/mop~MOP-5[:0:]#:string-port| (let ((__obj27173 (let () (declare (not safe)) @@ -5140,25 +5320,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27173 'byte-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27173 'string-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27173 'byte-port '2 '#f '#f)) - (let ((__tmp27738 (cons |gerbil/core/mop~MOP-5[1]#_g27739_| '()))) + (##unchecked-structure-set! __obj27173 'string-port '2 '#f '#f)) + (let ((__tmp27666 (cons |gerbil/core/mop~MOP-5[1]#_g27650_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27173 __tmp27738 '3 '#f '#f)) + (##unchecked-structure-set! __obj27173 __tmp27666 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27173 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27173 '#t '9 '#f '#f)) - (let ((__tmp27740 |gerbil/core/mop~MOP-5[1]#_g27741_|)) + (let ((__tmp27667 |gerbil/core/mop~MOP-5[1]#_g27668_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27173 __tmp27740 '12 '#f '#f)) - (let ((__tmp27742 |gerbil/core/mop~MOP-5[1]#_g27743_|)) + (##unchecked-structure-set! __obj27173 __tmp27667 '12 '#f '#f)) + (let ((__tmp27669 |gerbil/core/mop~MOP-5[1]#_g27670_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27173 __tmp27742 '14 '#f '#f)) + (##unchecked-structure-set! __obj27173 __tmp27669 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27173 '() '15 '#f '#f)) @@ -5172,7 +5352,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27173 '() '18 '#f '#f)) __obj27173)) - (define |gerbil/core/mop~MOP-5[:0:]#:device-port| + (define |gerbil/core/mop~MOP-5[:0:]#:u8vector-port| (let ((__obj27174 (let () (declare (not safe)) @@ -5201,25 +5381,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27174 'device-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27174 'u8vector-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27174 'device-port '2 '#f '#f)) - (let ((__tmp27744 (cons |gerbil/core/mop~MOP-5[1]#_g27745_| '()))) + (##unchecked-structure-set! __obj27174 'u8vector-port '2 '#f '#f)) + (let ((__tmp27671 (cons |gerbil/core/mop~MOP-5[1]#_g27656_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27174 __tmp27744 '3 '#f '#f)) + (##unchecked-structure-set! __obj27174 __tmp27671 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27174 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27174 '#t '9 '#f '#f)) - (let ((__tmp27746 |gerbil/core/mop~MOP-5[1]#_g27747_|)) + (let ((__tmp27672 |gerbil/core/mop~MOP-5[1]#_g27673_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27174 __tmp27746 '12 '#f '#f)) - (let ((__tmp27748 |gerbil/core/mop~MOP-5[1]#_g27749_|)) + (##unchecked-structure-set! __obj27174 __tmp27672 '12 '#f '#f)) + (let ((__tmp27674 |gerbil/core/mop~MOP-5[1]#_g27675_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27174 __tmp27748 '14 '#f '#f)) + (##unchecked-structure-set! __obj27174 __tmp27674 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27174 '() '15 '#f '#f)) @@ -5233,7 +5413,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27174 '() '18 '#f '#f)) __obj27174)) - (define |gerbil/core/mop~MOP-5[:0:]#:vector-port| + (define |gerbil/core/mop~MOP-5[:0:]#:raw-device-port| (let ((__obj27175 (let () (declare (not safe)) @@ -5262,25 +5442,30 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27175 'vector-port::t '1 '#f '#f)) + (##unchecked-structure-set! + __obj27175 + 'raw-device-port::t + '1 + '#f + '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27175 'vector-port '2 '#f '#f)) - (let ((__tmp27750 (cons |gerbil/core/mop~MOP-5[1]#_g27733_| '()))) + (##unchecked-structure-set! __obj27175 'raw-device-port '2 '#f '#f)) + (let ((__tmp27676 (cons |gerbil/core/mop~MOP-5[1]#_g27638_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27175 __tmp27750 '3 '#f '#f)) + (##unchecked-structure-set! __obj27175 __tmp27676 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27175 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27175 '#t '9 '#f '#f)) - (let ((__tmp27751 |gerbil/core/mop~MOP-5[1]#_g27752_|)) + (let ((__tmp27677 |gerbil/core/mop~MOP-5[1]#_g27678_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27175 __tmp27751 '12 '#f '#f)) - (let ((__tmp27753 |gerbil/core/mop~MOP-5[1]#_g27754_|)) + (##unchecked-structure-set! __obj27175 __tmp27677 '12 '#f '#f)) + (let ((__tmp27679 |gerbil/core/mop~MOP-5[1]#_g27680_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27175 __tmp27753 '14 '#f '#f)) + (##unchecked-structure-set! __obj27175 __tmp27679 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27175 '() '15 '#f '#f)) @@ -5294,7 +5479,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27175 '() '18 '#f '#f)) __obj27175)) - (define |gerbil/core/mop~MOP-5[:0:]#:string-port| + (define |gerbil/core/mop~MOP-5[:0:]#:tcp-server-port| (let ((__obj27176 (let () (declare (not safe)) @@ -5323,25 +5508,30 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27176 'string-port::t '1 '#f '#f)) + (##unchecked-structure-set! + __obj27176 + 'tcp-server-port::t + '1 + '#f + '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27176 'string-port '2 '#f '#f)) - (let ((__tmp27755 (cons |gerbil/core/mop~MOP-5[1]#_g27739_| '()))) + (##unchecked-structure-set! __obj27176 'tcp-server-port '2 '#f '#f)) + (let ((__tmp27681 (cons |gerbil/core/mop~MOP-5[1]#_g27644_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27176 __tmp27755 '3 '#f '#f)) + (##unchecked-structure-set! __obj27176 __tmp27681 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27176 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27176 '#t '9 '#f '#f)) - (let ((__tmp27756 |gerbil/core/mop~MOP-5[1]#_g27757_|)) + (let ((__tmp27682 |gerbil/core/mop~MOP-5[1]#_g27683_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27176 __tmp27756 '12 '#f '#f)) - (let ((__tmp27758 |gerbil/core/mop~MOP-5[1]#_g27759_|)) + (##unchecked-structure-set! __obj27176 __tmp27682 '12 '#f '#f)) + (let ((__tmp27684 |gerbil/core/mop~MOP-5[1]#_g27685_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27176 __tmp27758 '14 '#f '#f)) + (##unchecked-structure-set! __obj27176 __tmp27684 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27176 '() '15 '#f '#f)) @@ -5355,7 +5545,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27176 '() '18 '#f '#f)) __obj27176)) - (define |gerbil/core/mop~MOP-5[:0:]#:u8vector-port| + (define |gerbil/core/mop~MOP-5[:0:]#:udp-port| (let ((__obj27177 (let () (declare (not safe)) @@ -5384,25 +5574,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27177 'u8vector-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27177 'udp-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27177 'u8vector-port '2 '#f '#f)) - (let ((__tmp27760 (cons |gerbil/core/mop~MOP-5[1]#_g27745_| '()))) + (##unchecked-structure-set! __obj27177 'udp-port '2 '#f '#f)) + (let ((__tmp27686 (cons |gerbil/core/mop~MOP-5[1]#_g27644_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27177 __tmp27760 '3 '#f '#f)) + (##unchecked-structure-set! __obj27177 __tmp27686 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27177 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27177 '#t '9 '#f '#f)) - (let ((__tmp27761 |gerbil/core/mop~MOP-5[1]#_g27762_|)) + (let ((__tmp27687 |gerbil/core/mop~MOP-5[1]#_g27688_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27177 __tmp27761 '12 '#f '#f)) - (let ((__tmp27763 |gerbil/core/mop~MOP-5[1]#_g27764_|)) + (##unchecked-structure-set! __obj27177 __tmp27687 '12 '#f '#f)) + (let ((__tmp27689 |gerbil/core/mop~MOP-5[1]#_g27690_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27177 __tmp27763 '14 '#f '#f)) + (##unchecked-structure-set! __obj27177 __tmp27689 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27177 '() '15 '#f '#f)) @@ -5416,7 +5606,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27177 '() '18 '#f '#f)) __obj27177)) - (define |gerbil/core/mop~MOP-5[:0:]#:raw-device-port| + (define |gerbil/core/mop~MOP-5[:0:]#:directory-port| (let ((__obj27178 (let () (declare (not safe)) @@ -5447,28 +5637,28 @@ (declare (not safe)) (##unchecked-structure-set! __obj27178 - 'raw-device-port::t + 'directory-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27178 'raw-device-port '2 '#f '#f)) - (let ((__tmp27765 (cons |gerbil/core/mop~MOP-5[1]#_g27727_| '()))) + (##unchecked-structure-set! __obj27178 'directory-port '2 '#f '#f)) + (let ((__tmp27691 (cons |gerbil/core/mop~MOP-5[1]#_g27644_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27178 __tmp27765 '3 '#f '#f)) + (##unchecked-structure-set! __obj27178 __tmp27691 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27178 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27178 '#t '9 '#f '#f)) - (let ((__tmp27766 |gerbil/core/mop~MOP-5[1]#_g27767_|)) + (let ((__tmp27692 |gerbil/core/mop~MOP-5[1]#_g27693_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27178 __tmp27766 '12 '#f '#f)) - (let ((__tmp27768 |gerbil/core/mop~MOP-5[1]#_g27769_|)) + (##unchecked-structure-set! __obj27178 __tmp27692 '12 '#f '#f)) + (let ((__tmp27694 |gerbil/core/mop~MOP-5[1]#_g27695_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27178 __tmp27768 '14 '#f '#f)) + (##unchecked-structure-set! __obj27178 __tmp27694 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27178 '() '15 '#f '#f)) @@ -5482,7 +5672,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27178 '() '18 '#f '#f)) __obj27178)) - (define |gerbil/core/mop~MOP-5[:0:]#:tcp-server-port| + (define |gerbil/core/mop~MOP-5[:0:]#:event-queue-port| (let ((__obj27179 (let () (declare (not safe)) @@ -5513,28 +5703,28 @@ (declare (not safe)) (##unchecked-structure-set! __obj27179 - 'tcp-server-port::t + 'event-queue-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27179 'tcp-server-port '2 '#f '#f)) - (let ((__tmp27770 (cons |gerbil/core/mop~MOP-5[1]#_g27733_| '()))) + (##unchecked-structure-set! __obj27179 'event-queue-port '2 '#f '#f)) + (let ((__tmp27696 (cons |gerbil/core/mop~MOP-5[1]#_g27644_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27179 __tmp27770 '3 '#f '#f)) + (##unchecked-structure-set! __obj27179 __tmp27696 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27179 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27179 '#t '9 '#f '#f)) - (let ((__tmp27771 |gerbil/core/mop~MOP-5[1]#_g27772_|)) + (let ((__tmp27697 |gerbil/core/mop~MOP-5[1]#_g27698_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27179 __tmp27771 '12 '#f '#f)) - (let ((__tmp27773 |gerbil/core/mop~MOP-5[1]#_g27774_|)) + (##unchecked-structure-set! __obj27179 __tmp27697 '12 '#f '#f)) + (let ((__tmp27699 |gerbil/core/mop~MOP-5[1]#_g27700_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27179 __tmp27773 '14 '#f '#f)) + (##unchecked-structure-set! __obj27179 __tmp27699 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27179 '() '15 '#f '#f)) @@ -5548,7 +5738,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27179 '() '18 '#f '#f)) __obj27179)) - (define |gerbil/core/mop~MOP-5[:0:]#:udp-port| + (define |gerbil/core/mop~MOP-5[:0:]#:table| (let ((__obj27180 (let () (declare (not safe)) @@ -5577,25 +5767,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27180 'udp-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27180 'table::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27180 'udp-port '2 '#f '#f)) - (let ((__tmp27775 (cons |gerbil/core/mop~MOP-5[1]#_g27733_| '()))) + (##unchecked-structure-set! __obj27180 'table '2 '#f '#f)) + (let ((__tmp27701 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27180 __tmp27775 '3 '#f '#f)) + (##unchecked-structure-set! __obj27180 __tmp27701 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27180 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27180 '#t '9 '#f '#f)) - (let ((__tmp27776 |gerbil/core/mop~MOP-5[1]#_g27777_|)) + (let ((__tmp27702 |gerbil/core/mop~MOP-5[1]#_g27703_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27180 __tmp27776 '12 '#f '#f)) - (let ((__tmp27778 |gerbil/core/mop~MOP-5[1]#_g27779_|)) + (##unchecked-structure-set! __obj27180 __tmp27702 '12 '#f '#f)) + (let ((__tmp27704 |gerbil/core/mop~MOP-5[1]#_g27705_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27180 __tmp27778 '14 '#f '#f)) + (##unchecked-structure-set! __obj27180 __tmp27704 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27180 '() '15 '#f '#f)) @@ -5609,7 +5799,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27180 '() '18 '#f '#f)) __obj27180)) - (define |gerbil/core/mop~MOP-5[:0:]#:directory-port| + (define |gerbil/core/mop~MOP-5[:0:]#:readenv| (let ((__obj27181 (let () (declare (not safe)) @@ -5638,30 +5828,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! - __obj27181 - 'directory-port::t - '1 - '#f - '#f)) + (##unchecked-structure-set! __obj27181 'readenv::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27181 'directory-port '2 '#f '#f)) - (let ((__tmp27780 (cons |gerbil/core/mop~MOP-5[1]#_g27733_| '()))) + (##unchecked-structure-set! __obj27181 'readenv '2 '#f '#f)) + (let ((__tmp27706 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27181 __tmp27780 '3 '#f '#f)) + (##unchecked-structure-set! __obj27181 __tmp27706 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27181 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27181 '#t '9 '#f '#f)) - (let ((__tmp27781 |gerbil/core/mop~MOP-5[1]#_g27782_|)) + (let ((__tmp27707 |gerbil/core/mop~MOP-5[1]#_g27708_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27181 __tmp27781 '12 '#f '#f)) - (let ((__tmp27783 |gerbil/core/mop~MOP-5[1]#_g27784_|)) + (##unchecked-structure-set! __obj27181 __tmp27707 '12 '#f '#f)) + (let ((__tmp27709 |gerbil/core/mop~MOP-5[1]#_g27710_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27181 __tmp27783 '14 '#f '#f)) + (##unchecked-structure-set! __obj27181 __tmp27709 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27181 '() '15 '#f '#f)) @@ -5675,7 +5860,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27181 '() '18 '#f '#f)) __obj27181)) - (define |gerbil/core/mop~MOP-5[:0:]#:event-queue-port| + (define |gerbil/core/mop~MOP-5[:0:]#:writeenv| (let ((__obj27182 (let () (declare (not safe)) @@ -5704,30 +5889,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! - __obj27182 - 'event-queue-port::t - '1 - '#f - '#f)) + (##unchecked-structure-set! __obj27182 'writeenv::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27182 'event-queue-port '2 '#f '#f)) - (let ((__tmp27785 (cons |gerbil/core/mop~MOP-5[1]#_g27733_| '()))) + (##unchecked-structure-set! __obj27182 'writeenv '2 '#f '#f)) + (let ((__tmp27711 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27182 __tmp27785 '3 '#f '#f)) + (##unchecked-structure-set! __obj27182 __tmp27711 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27182 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27182 '#t '9 '#f '#f)) - (let ((__tmp27786 |gerbil/core/mop~MOP-5[1]#_g27787_|)) + (let ((__tmp27712 |gerbil/core/mop~MOP-5[1]#_g27713_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27182 __tmp27786 '12 '#f '#f)) - (let ((__tmp27788 |gerbil/core/mop~MOP-5[1]#_g27789_|)) + (##unchecked-structure-set! __obj27182 __tmp27712 '12 '#f '#f)) + (let ((__tmp27714 |gerbil/core/mop~MOP-5[1]#_g27715_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27182 __tmp27788 '14 '#f '#f)) + (##unchecked-structure-set! __obj27182 __tmp27714 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27182 '() '15 '#f '#f)) @@ -5741,7 +5921,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27182 '() '18 '#f '#f)) __obj27182)) - (define |gerbil/core/mop~MOP-5[:0:]#:table| + (define |gerbil/core/mop~MOP-5[:0:]#:readtable| (let ((__obj27183 (let () (declare (not safe)) @@ -5770,25 +5950,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27183 'table::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27183 'readtable::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27183 'table '2 '#f '#f)) - (let ((__tmp27790 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27183 'readtable '2 '#f '#f)) + (let ((__tmp27716 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27183 __tmp27790 '3 '#f '#f)) + (##unchecked-structure-set! __obj27183 __tmp27716 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27183 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27183 '#t '9 '#f '#f)) - (let ((__tmp27791 |gerbil/core/mop~MOP-5[1]#_g27792_|)) + (let ((__tmp27717 |gerbil/core/mop~MOP-5[1]#_g27718_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27183 __tmp27791 '12 '#f '#f)) - (let ((__tmp27793 |gerbil/core/mop~MOP-5[1]#_g27794_|)) + (##unchecked-structure-set! __obj27183 __tmp27717 '12 '#f '#f)) + (let ((__tmp27719 |gerbil/core/mop~MOP-5[1]#_g27720_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27183 __tmp27793 '14 '#f '#f)) + (##unchecked-structure-set! __obj27183 __tmp27719 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27183 '() '15 '#f '#f)) @@ -5802,7 +5982,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27183 '() '18 '#f '#f)) __obj27183)) - (define |gerbil/core/mop~MOP-5[:0:]#:readenv| + (define |gerbil/core/mop~MOP-5[:0:]#:processor| (let ((__obj27184 (let () (declare (not safe)) @@ -5831,25 +6011,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27184 'readenv::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27184 'processor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27184 'readenv '2 '#f '#f)) - (let ((__tmp27795 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27184 'processor '2 '#f '#f)) + (let ((__tmp27721 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27184 __tmp27795 '3 '#f '#f)) + (##unchecked-structure-set! __obj27184 __tmp27721 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27184 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27184 '#t '9 '#f '#f)) - (let ((__tmp27796 |gerbil/core/mop~MOP-5[1]#_g27797_|)) + (let ((__tmp27722 |gerbil/core/mop~MOP-5[1]#_g27723_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27184 __tmp27796 '12 '#f '#f)) - (let ((__tmp27798 |gerbil/core/mop~MOP-5[1]#_g27799_|)) + (##unchecked-structure-set! __obj27184 __tmp27722 '12 '#f '#f)) + (let ((__tmp27724 |gerbil/core/mop~MOP-5[1]#_g27725_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27184 __tmp27798 '14 '#f '#f)) + (##unchecked-structure-set! __obj27184 __tmp27724 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27184 '() '15 '#f '#f)) @@ -5863,7 +6043,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27184 '() '18 '#f '#f)) __obj27184)) - (define |gerbil/core/mop~MOP-5[:0:]#:writeenv| + (define |gerbil/core/mop~MOP-5[:0:]#:vm| (let ((__obj27185 (let () (declare (not safe)) @@ -5892,25 +6072,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27185 'writeenv::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27185 'vm::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27185 'writeenv '2 '#f '#f)) - (let ((__tmp27800 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27185 'vm '2 '#f '#f)) + (let ((__tmp27726 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27185 __tmp27800 '3 '#f '#f)) + (##unchecked-structure-set! __obj27185 __tmp27726 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27185 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27185 '#t '9 '#f '#f)) - (let ((__tmp27801 |gerbil/core/mop~MOP-5[1]#_g27802_|)) + (let ((__tmp27727 |gerbil/core/mop~MOP-5[1]#_g27728_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27185 __tmp27801 '12 '#f '#f)) - (let ((__tmp27803 |gerbil/core/mop~MOP-5[1]#_g27804_|)) + (##unchecked-structure-set! __obj27185 __tmp27727 '12 '#f '#f)) + (let ((__tmp27729 |gerbil/core/mop~MOP-5[1]#_g27730_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27185 __tmp27803 '14 '#f '#f)) + (##unchecked-structure-set! __obj27185 __tmp27729 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27185 '() '15 '#f '#f)) @@ -5924,7 +6104,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27185 '() '18 '#f '#f)) __obj27185)) - (define |gerbil/core/mop~MOP-5[:0:]#:readtable| + (define |gerbil/core/mop~MOP-5[:0:]#:file-info| (let ((__obj27186 (let () (declare (not safe)) @@ -5953,25 +6133,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27186 'readtable::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27186 'file-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27186 'readtable '2 '#f '#f)) - (let ((__tmp27805 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27186 'file-info '2 '#f '#f)) + (let ((__tmp27731 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27186 __tmp27805 '3 '#f '#f)) + (##unchecked-structure-set! __obj27186 __tmp27731 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27186 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27186 '#t '9 '#f '#f)) - (let ((__tmp27806 |gerbil/core/mop~MOP-5[1]#_g27807_|)) + (let ((__tmp27732 |gerbil/core/mop~MOP-5[1]#_g27733_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27186 __tmp27806 '12 '#f '#f)) - (let ((__tmp27808 |gerbil/core/mop~MOP-5[1]#_g27809_|)) + (##unchecked-structure-set! __obj27186 __tmp27732 '12 '#f '#f)) + (let ((__tmp27734 |gerbil/core/mop~MOP-5[1]#_g27735_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27186 __tmp27808 '14 '#f '#f)) + (##unchecked-structure-set! __obj27186 __tmp27734 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27186 '() '15 '#f '#f)) @@ -5985,7 +6165,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27186 '() '18 '#f '#f)) __obj27186)) - (define |gerbil/core/mop~MOP-5[:0:]#:processor| + (define |gerbil/core/mop~MOP-5[:0:]#:socket-info| (let ((__obj27187 (let () (declare (not safe)) @@ -6014,25 +6194,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27187 'processor::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27187 'socket-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27187 'processor '2 '#f '#f)) - (let ((__tmp27810 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27187 'socket-info '2 '#f '#f)) + (let ((__tmp27736 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27187 __tmp27810 '3 '#f '#f)) + (##unchecked-structure-set! __obj27187 __tmp27736 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27187 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27187 '#t '9 '#f '#f)) - (let ((__tmp27811 |gerbil/core/mop~MOP-5[1]#_g27812_|)) + (let ((__tmp27737 |gerbil/core/mop~MOP-5[1]#_g27738_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27187 __tmp27811 '12 '#f '#f)) - (let ((__tmp27813 |gerbil/core/mop~MOP-5[1]#_g27814_|)) + (##unchecked-structure-set! __obj27187 __tmp27737 '12 '#f '#f)) + (let ((__tmp27739 |gerbil/core/mop~MOP-5[1]#_g27740_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27187 __tmp27813 '14 '#f '#f)) + (##unchecked-structure-set! __obj27187 __tmp27739 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27187 '() '15 '#f '#f)) @@ -6046,7 +6226,7 @@ (declare (not safe)) (##unchecked-structure-set! __obj27187 '() '18 '#f '#f)) __obj27187)) - (define |gerbil/core/mop~MOP-5[:0:]#:vm| + (define |gerbil/core/mop~MOP-5[:0:]#:address-info| (let ((__obj27188 (let () (declare (not safe)) @@ -6075,25 +6255,25 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27188 'vm::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27188 'address-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27188 'vm '2 '#f '#f)) - (let ((__tmp27815 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj27188 'address-info '2 '#f '#f)) + (let ((__tmp27741 (cons |gerbil/core/mop~MOP-5[1]#_g27334_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27188 __tmp27815 '3 '#f '#f)) + (##unchecked-structure-set! __obj27188 __tmp27741 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27188 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27188 '#t '9 '#f '#f)) - (let ((__tmp27816 |gerbil/core/mop~MOP-5[1]#_g27817_|)) + (let ((__tmp27742 |gerbil/core/mop~MOP-5[1]#_g27743_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27188 __tmp27816 '12 '#f '#f)) - (let ((__tmp27818 |gerbil/core/mop~MOP-5[1]#_g27819_|)) + (##unchecked-structure-set! __obj27188 __tmp27742 '12 '#f '#f)) + (let ((__tmp27744 |gerbil/core/mop~MOP-5[1]#_g27745_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27188 __tmp27818 '14 '#f '#f)) + (##unchecked-structure-set! __obj27188 __tmp27744 '14 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! __obj27188 '() '15 '#f '#f)) @@ -6106,187 +6286,4 @@ (let () (declare (not safe)) (##unchecked-structure-set! __obj27188 '() '18 '#f '#f)) - __obj27188)) - (define |gerbil/core/mop~MOP-5[:0:]#:file-info| - (let ((__obj27189 - (let () - (declare (not safe)) - (##structure - gerbil/core/mop~MOP-2#class-type-info::t - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27189 'file-info::t '1 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27189 'file-info '2 '#f '#f)) - (let ((__tmp27820 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) - (declare (not safe)) - (##unchecked-structure-set! __obj27189 __tmp27820 '3 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27189 '() '4 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27189 '#t '9 '#f '#f)) - (let ((__tmp27821 |gerbil/core/mop~MOP-5[1]#_g27822_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj27189 __tmp27821 '12 '#f '#f)) - (let ((__tmp27823 |gerbil/core/mop~MOP-5[1]#_g27824_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj27189 __tmp27823 '14 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27189 '() '15 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27189 '() '16 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27189 '() '17 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27189 '() '18 '#f '#f)) - __obj27189)) - (define |gerbil/core/mop~MOP-5[:0:]#:socket-info| - (let ((__obj27190 - (let () - (declare (not safe)) - (##structure - gerbil/core/mop~MOP-2#class-type-info::t - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27190 'socket-info::t '1 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27190 'socket-info '2 '#f '#f)) - (let ((__tmp27825 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) - (declare (not safe)) - (##unchecked-structure-set! __obj27190 __tmp27825 '3 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27190 '() '4 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27190 '#t '9 '#f '#f)) - (let ((__tmp27826 |gerbil/core/mop~MOP-5[1]#_g27827_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj27190 __tmp27826 '12 '#f '#f)) - (let ((__tmp27828 |gerbil/core/mop~MOP-5[1]#_g27829_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj27190 __tmp27828 '14 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27190 '() '15 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27190 '() '16 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27190 '() '17 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27190 '() '18 '#f '#f)) - __obj27190)) - (define |gerbil/core/mop~MOP-5[:0:]#:address-info| - (let ((__obj27191 - (let () - (declare (not safe)) - (##structure - gerbil/core/mop~MOP-2#class-type-info::t - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27191 'address-info::t '1 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27191 'address-info '2 '#f '#f)) - (let ((__tmp27830 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) - (declare (not safe)) - (##unchecked-structure-set! __obj27191 __tmp27830 '3 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27191 '() '4 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27191 '#t '9 '#f '#f)) - (let ((__tmp27831 |gerbil/core/mop~MOP-5[1]#_g27832_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj27191 __tmp27831 '12 '#f '#f)) - (let ((__tmp27833 |gerbil/core/mop~MOP-5[1]#_g27834_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj27191 __tmp27833 '14 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27191 '() '15 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27191 '() '16 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27191 '() '17 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27191 '() '18 '#f '#f)) - __obj27191)))) + __obj27188)))) diff --git a/src/bootstrap/gerbil/core/mop~MOP-2~0.scm b/src/bootstrap/gerbil/core/mop~MOP-2~0.scm index 79e097269..c1c9e1488 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 1712533282) + (define gerbil/core/mop~MOP-2::timestamp 1712573423) (begin (define gerbil/core/mop~MOP-2#class-type-info::t (make-class-type @@ -32,10 +32,10 @@ (define gerbil/core/mop~MOP-2#class-type-info? (make-class-predicate gerbil/core/mop~MOP-2#class-type-info::t)) (define gerbil/core/mop~MOP-2#make-class-type-info - (lambda _%$args22635%_ + (lambda _%$args22632%_ (apply make-instance gerbil/core/mop~MOP-2#class-type-info::t - _%$args22635%_))) + _%$args22632%_))) (define gerbil/core/mop~MOP-2#!class-type-id (make-class-slot-accessor gerbil/core/mop~MOP-2#class-type-info::t 'id)) (define gerbil/core/mop~MOP-2#!class-type-name @@ -367,170 +367,148 @@ gerbil/core/mop~MOP-2#class-type-info::t 'slot-contracts)) (define gerbil/core/mop~MOP-2#class-type-info::apply-macro-expander - (lambda (_%self22546%_ _%stx22547%_) - (let* ((_%g2254922568%_ - (lambda (_%g2255022565%_) + (lambda (_%self22543%_ _%stx22544%_) + (let* ((_%g2254622565%_ + (lambda (_%g2254722562%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2255022565%_))) - (_%g2254822632%_ - (lambda (_%g2255022571%_) - (if (gx#stx-pair? _%g2255022571%_) - (let ((_%e2255422573%_ (gx#syntax-e _%g2255022571%_))) - (let ((_%hd2255322576%_ + _%g2254722562%_))) + (_%g2254522629%_ + (lambda (_%g2254722568%_) + (if (gx#stx-pair? _%g2254722568%_) + (let ((_%e2255122570%_ (gx#syntax-e _%g2254722568%_))) + (let ((_%hd2255022573%_ (let () (declare (not safe)) - (##car _%e2255422573%_))) - (_%tl2255222578%_ + (##car _%e2255122570%_))) + (_%tl2254922575%_ (let () (declare (not safe)) - (##cdr _%e2255422573%_)))) - (if (gx#stx-pair/null? _%tl2255222578%_) - (let ((_g27192_ + (##cdr _%e2255122570%_)))) + (if (gx#stx-pair/null? _%tl2254922575%_) + (let ((_g27189_ (gx#syntax-split-splice - _%tl2255222578%_ + _%tl2254922575%_ '0))) (begin - (let ((_g27193_ + (let ((_g27190_ (let () (declare (not safe)) - (if (##values? _g27192_) - (##vector-length _g27192_) + (if (##values? _g27189_) + (##vector-length _g27189_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27193_ 2))) + (##fx= _g27190_ 2))) (error "Context expects 2 values" - _g27193_))) - (let ((_%target2255522581%_ + _g27190_))) + (let ((_%target2255222578%_ (let () (declare (not safe)) - (##vector-ref _g27192_ 0))) - (_%tl2255722583%_ + (##vector-ref _g27189_ 0))) + (_%tl2255422580%_ (let () (declare (not safe)) - (##vector-ref _g27192_ 1)))) - (if (gx#stx-null? _%tl2255722583%_) - (letrec ((_%loop2255822586%_ - (lambda (_%hd2255622589%_ - _%arg2256222591%_) + (##vector-ref _g27189_ 1)))) + (if (gx#stx-null? _%tl2255422580%_) + (letrec ((_%loop2255522583%_ + (lambda (_%hd2255322586%_ + _%arg2255922588%_) (if (gx#stx-pair? - _%hd2255622589%_) - (let ((_%e2255922594%_ + _%hd2255322586%_) + (let ((_%e2255622591%_ (gx#syntax-e - _%hd2255622589%_))) - (let ((_%lp-hd2256022597%_ + _%hd2255322586%_))) + (let ((_%lp-hd2255722594%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e2255922594%_))) - (_%lp-tl2256122599%_ + (let () (declare (not safe)) (##car _%e2255622591%_))) + (_%lp-tl2255822596%_ (let () (declare (not safe)) - (##cdr _%e2255922594%_)))) - (let ((__tmp27194 - (cons _%lp-hd2256022597%_ _%arg2256222591%_))) - (declare (not safe)) - (_%loop2255822586%_ _%lp-tl2256122599%_ __tmp27194)))) - (let ((_%arg2256322602%_ (reverse _%arg2256222591%_))) - ((lambda (_%L22605%_) - (let ((_%$e22619%_ - (let ((__obj27111 _%self22546%_)) + (##cdr _%e2255622591%_)))) + (_%loop2255522583%_ + _%lp-tl2255822596%_ + (cons _%lp-hd2255722594%_ _%arg2255922588%_)))) + (let ((_%arg2256022599%_ (reverse _%arg2255922588%_))) + ((lambda (_%L22602%_) + (let ((_%$e22616%_ + (let ((__obj27108 _%self22543%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27111 + __obj27108 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27111 + __obj27108 '13 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27111 + __obj27108 'constructor))))) - (if _%$e22619%_ - ((lambda (_%make22622%_) - (cons _%make22622%_ - (foldr (lambda (_%g2262322626%_ - _%g2262422628%_) - (cons _%g2262322626%_ - _%g2262422628%_)) + (if _%$e22616%_ + ((lambda (_%make22619%_) + (cons _%make22619%_ + (foldr (lambda (_%g2262022623%_ + _%g2262122625%_) + (cons _%g2262022623%_ + _%g2262122625%_)) '() - _%L22605%_))) - _%$e22619%_) - (let () - (gx#raise-syntax-error - '#f - '"no constructor defined for class" - _%stx22547%_ - _%self22546%_))))) - _%arg2256322602%_)))))) + _%L22602%_))) + _%$e22616%_) + (gx#raise-syntax-error + '#f + '"no constructor defined for class" + _%stx22544%_ + _%self22543%_)))) + _%arg2256022599%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%loop2255822586%_ - _%target2255522581%_ - '()))) - (let () - (declare (not safe)) - (_%g2254922568%_ - _%g2255022571%_)))))) - (let () - (declare (not safe)) - (_%g2254922568%_ _%g2255022571%_))))) - (let () - (declare (not safe)) - (_%g2254922568%_ _%g2255022571%_)))))) - (declare (not safe)) - (_%g2254822632%_ _%stx22547%_)))) + (_%loop2255522583%_ + _%target2255222578%_ + '())) + (_%g2254622565%_ _%g2254722568%_))))) + (_%g2254622565%_ _%g2254722568%_)))) + (_%g2254622565%_ _%g2254722568%_))))) + (_%g2254522629%_ _%stx22544%_)))) (bind-method! gerbil/core/mop~MOP-2#class-type-info::t 'apply-macro-expander gerbil/core/mop~MOP-2#class-type-info::apply-macro-expander) (define gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - (lambda (_%stx22527%_ _%is?22528%_) - (if (gx#identifier? _%stx22527%_) - (let ((_%e2252922531%_ (gx#syntax-local-value _%stx22527%_ false))) - (if _%e2252922531%_ - (let ((_%e22534%_ _%e2252922531%_)) + (lambda (_%stx22524%_ _%is?22525%_) + (if (gx#identifier? _%stx22524%_) + (let ((_%e2252622528%_ (gx#syntax-local-value _%stx22524%_ false))) + (if _%e2252622528%_ + (let ((_%e22531%_ _%e2252622528%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%e22534%_)) - (_%is?22528%_ _%e22534%_) + _%e22531%_)) + (_%is?22525%_ _%e22531%_) '#f)) '#f)) '#f))) (define gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - (lambda (_%stx22539%_) - (let ((_%is?22541%_ true)) - (declare (not safe)) + (lambda (_%stx22536%_) + (let ((_%is?22538%_ true)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - _%stx22539%_ - _%is?22541%_)))) + _%stx22536%_ + _%is?22538%_)))) (define gerbil/core/mop~MOP-2#syntax-local-class-type-info? - (lambda _g27196_ - (let ((_g27195_ (let () (declare (not safe)) (##length _g27196_)))) - (cond ((let () (declare (not safe)) (##fx= _g27195_ 1)) - (apply (lambda (_%stx22539%_) - (let () - (declare (not safe)) - (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%stx22539%_))) - _g27196_)) - ((let () (declare (not safe)) (##fx= _g27195_ 2)) - (apply (lambda (_%stx22543%_ _%is?22544%_) - (let () - (declare (not safe)) - (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - _%stx22543%_ - _%is?22544%_))) - _g27196_)) + (lambda _g27192_ + (let ((_g27191_ (let () (declare (not safe)) (##length _g27192_)))) + (cond ((let () (declare (not safe)) (##fx= _g27191_ 1)) + (apply gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 + _g27192_)) + ((let () (declare (not safe)) (##fx= _g27191_ 2)) + (apply gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% + _g27192_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core/mop~MOP-2#syntax-local-class-type-info? - _g27196_)))))))) + _g27192_)))))))) diff --git a/src/bootstrap/gerbil/core/more-sugar.ssxi.ss b/src/bootstrap/gerbil/core/more-sugar.ssxi.ss index a46c73a4d..10936115e 100644 --- a/src/bootstrap/gerbil/core/more-sugar.ssxi.ss +++ b/src/bootstrap/gerbil/core/more-sugar.ssxi.ss @@ -79,11 +79,43 @@ package: gerbil/core (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/more-sugar))) (declare-type |gerbil/core/more-sugar[1]#syntax-local-setq-macro?| (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type |gerbil/core/more-sugar[1]#expand-set!| (@lambda 1 #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/more-sugar))) + (declare-type + |gerbil/core/more-sugar[1]#expand-set!| + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/more-sugar)))) diff --git a/src/bootstrap/gerbil/core/more-sugar~1.scm b/src/bootstrap/gerbil/core/more-sugar~1.scm index 0b9aee0bc..91861befd 100644 --- a/src/bootstrap/gerbil/core/more-sugar~1.scm +++ b/src/bootstrap/gerbil/core/more-sugar~1.scm @@ -11,10 +11,10 @@ (define |gerbil/core/more-sugar[1]#setq-macro?| (make-class-predicate |gerbil/core/more-sugar[1]#setq-macro::t|)) (define |gerbil/core/more-sugar[1]#make-setq-macro| - (lambda _%$args40546%_ + (lambda _%$args40376%_ (apply make-instance |gerbil/core/more-sugar[1]#setq-macro::t| - _%$args40546%_))) + _%$args40376%_))) (define |gerbil/core/more-sugar[1]#setq-macro-macro| (make-class-slot-accessor |gerbil/core/more-sugar[1]#setq-macro::t| @@ -40,10 +40,10 @@ (define |gerbil/core/more-sugar[1]#setf-macro?| (make-class-predicate |gerbil/core/more-sugar[1]#setf-macro::t|)) (define |gerbil/core/more-sugar[1]#make-setf-macro| - (lambda _%$args40542%_ + (lambda _%$args40372%_ (apply make-instance |gerbil/core/more-sugar[1]#setf-macro::t| - _%$args40542%_))) + _%$args40372%_))) (define |gerbil/core/more-sugar[1]#setf-macro-macro| (make-class-slot-accessor |gerbil/core/more-sugar[1]#setf-macro::t| @@ -59,1269 +59,1251 @@ |gerbil/core/more-sugar[1]#setf-macro::t| 'macro)) (define |gerbil/core/more-sugar[1]#syntax-local-setf-macro?| - (lambda (_%stx40539%_) - (if (gx#identifier? _%stx40539%_) - (let ((__tmp41764 (gx#syntax-local-value _%stx40539%_ false))) + (lambda (_%stx40369%_) + (if (gx#identifier? _%stx40369%_) + (let ((__tmp41594 (gx#syntax-local-value _%stx40369%_ false))) (declare (not safe)) (class-instance? |gerbil/core/more-sugar[1]#setf-macro::t| - __tmp41764)) + __tmp41594)) '#f))) (define |gerbil/core/more-sugar[1]#syntax-local-setq-macro?| - (lambda (_%stx40536%_) - (if (gx#identifier? _%stx40536%_) - (let ((__tmp41765 (gx#syntax-local-value _%stx40536%_ false))) + (lambda (_%stx40366%_) + (if (gx#identifier? _%stx40366%_) + (let ((__tmp41595 (gx#syntax-local-value _%stx40366%_ false))) (declare (not safe)) (class-instance? |gerbil/core/more-sugar[1]#setq-macro::t| - __tmp41765)) + __tmp41595)) '#f))) (define |gerbil/core/more-sugar[1]#expand-set!| - (lambda (_%stx40161%_) - (let* ((_%__stx4160341604%_ _%stx40161%_) - (_%g4016740230%_ + (lambda (_%stx39991%_) + (let* ((_%__stx4143341434%_ _%stx39991%_) + (_%g3999740060%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4160341604%_)))) - (let ((_%__kont4160641607%_ - (lambda (_%L40513%_ _%L40515%_) + _%__stx4143341434%_)))) + (let ((_%__kont4143641437%_ + (lambda (_%L40343%_ _%L40345%_) (gx#core-apply-expander - (gx#syntax-local-e _%L40515%_) - _%stx40161%_))) - (_%__kont4160841609%_ - (lambda (_%L40402%_ _%L40404%_ _%L40405%_) - (let* ((_%g4042740435%_ - (lambda (_%g4042840431%_) + (gx#syntax-local-e _%L40345%_) + _%stx39991%_))) + (_%__kont4143841439%_ + (lambda (_%L40232%_ _%L40234%_ _%L40235%_) + (let* ((_%g4025740265%_ + (lambda (_%g4025840261%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4042840431%_))) - (_%g4042640462%_ - (lambda (_%g4042840439%_) - ((lambda (_%L40442%_) - (let () - (cons _%L40442%_ - (foldr (lambda (_%g4045340456%_ - _%g4045440459%_) - (cons _%g4045340456%_ - _%g4045440459%_)) - (cons _%L40402%_ '()) - _%L40404%_)))) - _%g4042840439%_))) - (__tmp41766 - (gx#stx-identifier _%L40405%_ _%L40405%_ '"-set!"))) - (declare (not safe)) - (_%g4042640462%_ __tmp41766)))) - (_%__kont4161241613%_ - (lambda (_%L40312%_) + _%g4025840261%_))) + (_%g4025640292%_ + (lambda (_%g4025840269%_) + ((lambda (_%L40272%_) + (cons _%L40272%_ + (foldr (lambda (_%g4028340286%_ + _%g4028440289%_) + (cons _%g4028340286%_ + _%g4028440289%_)) + (cons _%L40232%_ '()) + _%L40234%_))) + _%g4025840269%_)))) + (_%g4025640292%_ + (gx#stx-identifier _%L40235%_ _%L40235%_ '"-set!"))))) + (_%__kont4144241443%_ + (lambda (_%L40142%_) (gx#core-apply-expander - (gx#syntax-local-e _%L40312%_) - _%stx40161%_))) - (_%__kont4161441615%_ - (lambda (_%L40267%_ _%L40269%_) + (gx#syntax-local-e _%L40142%_) + _%stx39991%_))) + (_%__kont4144441445%_ + (lambda (_%L40097%_ _%L40099%_) (cons (gx#datum->syntax '#f '%#set!) - (cons _%L40269%_ (cons _%L40267%_ '())))))) - (let* ((_%__match4170241703%_ - (lambda (_%e4021840237%_ - _%hd4021740241%_ - _%tl4021640244%_ - _%e4022140247%_ - _%hd4022040251%_ - _%tl4021940254%_ - _%e4022440257%_ - _%hd4022340261%_ - _%tl4022240264%_) - (let ((_%L40267%_ _%hd4022340261%_) - (_%L40269%_ _%hd4022040251%_)) - (if (gx#identifier? _%L40269%_) - (_%__kont4161441615%_ _%L40267%_ _%L40269%_) - (let () (declare (not safe)) (_%g4016740230%_)))))) - (_%__match4168241683%_ - (lambda (_%e4021040292%_ - _%hd4020940296%_ - _%tl4020840299%_ - _%e4021340302%_ - _%hd4021240306%_ - _%tl4021140309%_) - (let ((_%L40312%_ _%hd4021240306%_)) - (if (let () - (declare (not safe)) - (|gerbil/core/more-sugar[1]#syntax-local-setq-macro?| - _%L40312%_)) - (_%__kont4161241613%_ _%L40312%_) - (if (gx#stx-pair? _%tl4021140309%_) - (let ((_%e4022440257%_ - (gx#syntax-e _%tl4021140309%_))) - (let ((_%tl4022240264%_ + (cons _%L40099%_ (cons _%L40097%_ '())))))) + (let* ((_%__match4153241533%_ + (lambda (_%e4004840067%_ + _%hd4004740071%_ + _%tl4004640074%_ + _%e4005140077%_ + _%hd4005040081%_ + _%tl4004940084%_ + _%e4005440087%_ + _%hd4005340091%_ + _%tl4005240094%_) + (let ((_%L40097%_ _%hd4005340091%_) + (_%L40099%_ _%hd4005040081%_)) + (if (gx#identifier? _%L40099%_) + (_%__kont4144441445%_ _%L40097%_ _%L40099%_) + (let () (declare (not safe)) (_%g3999740060%_)))))) + (_%__match4151241513%_ + (lambda (_%e4004040122%_ + _%hd4003940126%_ + _%tl4003840129%_ + _%e4004340132%_ + _%hd4004240136%_ + _%tl4004140139%_) + (let ((_%L40142%_ _%hd4004240136%_)) + (if (|gerbil/core/more-sugar[1]#syntax-local-setq-macro?| + _%L40142%_) + (_%__kont4144241443%_ _%L40142%_) + (if (gx#stx-pair? _%tl4004140139%_) + (let ((_%e4005440087%_ + (gx#syntax-e _%tl4004140139%_))) + (let ((_%tl4005240094%_ (let () (declare (not safe)) - (##cdr _%e4022440257%_))) - (_%hd4022340261%_ + (##cdr _%e4005440087%_))) + (_%hd4005340091%_ (let () (declare (not safe)) - (##car _%e4022440257%_)))) - (if (gx#stx-null? _%tl4022240264%_) - (_%__match4170241703%_ - _%e4021040292%_ - _%hd4020940296%_ - _%tl4020840299%_ - _%e4021340302%_ - _%hd4021240306%_ - _%tl4021140309%_ - _%e4022440257%_ - _%hd4022340261%_ - _%tl4022240264%_) + (##car _%e4005440087%_)))) + (if (gx#stx-null? _%tl4005240094%_) + (_%__match4153241533%_ + _%e4004040122%_ + _%hd4003940126%_ + _%tl4003840129%_ + _%e4004340132%_ + _%hd4004240136%_ + _%tl4004140139%_ + _%e4005440087%_ + _%hd4005340091%_ + _%tl4005240094%_) (let () (declare (not safe)) - (_%g4016740230%_))))) + (_%g3999740060%_))))) (let () (declare (not safe)) - (_%g4016740230%_))))))) - (_%__match4167041671%_ - (lambda (_%e4018840332%_ - _%hd4018740336%_ - _%tl4018640339%_ - _%e4019140342%_ - _%hd4019040346%_ - _%tl4018940349%_ - _%e4019440352%_ - _%hd4019340356%_ - _%tl4019240359%_ - _%__splice4161041611%_ - _%target4019540362%_ - _%tl4019740365%_) - (letrec ((_%loop4019840368%_ - (lambda (_%hd4019640372%_ _%arg4020240375%_) - (if (gx#stx-pair? _%hd4019640372%_) - (let ((_%e4019940378%_ - (gx#syntax-e _%hd4019640372%_))) - (let ((_%lp-tl4020140385%_ + (_%g3999740060%_))))))) + (_%__match4150041501%_ + (lambda (_%e4001840162%_ + _%hd4001740166%_ + _%tl4001640169%_ + _%e4002140172%_ + _%hd4002040176%_ + _%tl4001940179%_ + _%e4002440182%_ + _%hd4002340186%_ + _%tl4002240189%_ + _%__splice4144041441%_ + _%target4002540192%_ + _%tl4002740195%_) + (letrec ((_%loop4002840198%_ + (lambda (_%hd4002640202%_ _%arg4003240205%_) + (if (gx#stx-pair? _%hd4002640202%_) + (let ((_%e4002940208%_ + (gx#syntax-e _%hd4002640202%_))) + (let ((_%lp-tl4003140215%_ (let () (declare (not safe)) - (##cdr _%e4019940378%_))) - (_%lp-hd4020040382%_ + (##cdr _%e4002940208%_))) + (_%lp-hd4003040212%_ (let () (declare (not safe)) - (##car _%e4019940378%_)))) - (let ((__tmp41767 - (cons _%lp-hd4020040382%_ - _%arg4020240375%_))) - (declare (not safe)) - (_%loop4019840368%_ - _%lp-tl4020140385%_ - __tmp41767)))) - (let ((_%arg4020340388%_ - (reverse _%arg4020240375%_))) - (if (gx#stx-pair? _%tl4018940349%_) - (let ((_%e4020640392%_ + (##car _%e4002940208%_)))) + (_%loop4002840198%_ + _%lp-tl4003140215%_ + (cons _%lp-hd4003040212%_ + _%arg4003240205%_)))) + (let ((_%arg4003340218%_ + (reverse _%arg4003240205%_))) + (if (gx#stx-pair? _%tl4001940179%_) + (let ((_%e4003640222%_ (gx#syntax-e - _%tl4018940349%_))) - (let ((_%tl4020440399%_ + _%tl4001940179%_))) + (let ((_%tl4003440229%_ (let () (declare (not safe)) - (##cdr _%e4020640392%_))) - (_%hd4020540396%_ + (##cdr _%e4003640222%_))) + (_%hd4003540226%_ (let () (declare (not safe)) - (##car _%e4020640392%_)))) + (##car _%e4003640222%_)))) (if (gx#stx-null? - _%tl4020440399%_) - (let ((_%L40402%_ - _%hd4020540396%_) - (_%L40404%_ - _%arg4020340388%_) - (_%L40405%_ - _%hd4019340356%_)) + _%tl4003440229%_) + (let ((_%L40232%_ + _%hd4003540226%_) + (_%L40234%_ + _%arg4003340218%_) + (_%L40235%_ + _%hd4002340186%_)) (if (gx#identifier? - _%L40405%_) - (_%__kont4160841609%_ - _%L40402%_ - _%L40404%_ - _%L40405%_) - (_%__match4168241683%_ - _%e4018840332%_ - _%hd4018740336%_ - _%tl4018640339%_ - _%e4019140342%_ - _%hd4019040346%_ - _%tl4018940349%_))) - (_%__match4168241683%_ - _%e4018840332%_ - _%hd4018740336%_ - _%tl4018640339%_ - _%e4019140342%_ - _%hd4019040346%_ - _%tl4018940349%_)))) - (_%__match4168241683%_ - _%e4018840332%_ - _%hd4018740336%_ - _%tl4018640339%_ - _%e4019140342%_ - _%hd4019040346%_ - _%tl4018940349%_))))))) - (let () - (declare (not safe)) - (_%loop4019840368%_ _%target4019540362%_ '())))))) - (if (gx#stx-pair? _%__stx4160341604%_) - (let ((_%e4017340473%_ (gx#syntax-e _%__stx4160341604%_))) - (let ((_%tl4017140480%_ - (let () (declare (not safe)) (##cdr _%e4017340473%_))) - (_%hd4017240477%_ + _%L40235%_) + (_%__kont4143841439%_ + _%L40232%_ + _%L40234%_ + _%L40235%_) + (_%__match4151241513%_ + _%e4001840162%_ + _%hd4001740166%_ + _%tl4001640169%_ + _%e4002140172%_ + _%hd4002040176%_ + _%tl4001940179%_))) + (_%__match4151241513%_ + _%e4001840162%_ + _%hd4001740166%_ + _%tl4001640169%_ + _%e4002140172%_ + _%hd4002040176%_ + _%tl4001940179%_)))) + (_%__match4151241513%_ + _%e4001840162%_ + _%hd4001740166%_ + _%tl4001640169%_ + _%e4002140172%_ + _%hd4002040176%_ + _%tl4001940179%_))))))) + (_%loop4002840198%_ _%target4002540192%_ '()))))) + (if (gx#stx-pair? _%__stx4143341434%_) + (let ((_%e4000340303%_ (gx#syntax-e _%__stx4143341434%_))) + (let ((_%tl4000140310%_ + (let () (declare (not safe)) (##cdr _%e4000340303%_))) + (_%hd4000240307%_ (let () (declare (not safe)) - (##car _%e4017340473%_)))) - (if (gx#stx-pair? _%tl4017140480%_) - (let ((_%e4017640483%_ (gx#syntax-e _%tl4017140480%_))) - (let ((_%tl4017440490%_ + (##car _%e4000340303%_)))) + (if (gx#stx-pair? _%tl4000140310%_) + (let ((_%e4000640313%_ (gx#syntax-e _%tl4000140310%_))) + (let ((_%tl4000440320%_ (let () (declare (not safe)) - (##cdr _%e4017640483%_))) - (_%hd4017540487%_ + (##cdr _%e4000640313%_))) + (_%hd4000540317%_ (let () (declare (not safe)) - (##car _%e4017640483%_)))) - (if (gx#stx-pair? _%hd4017540487%_) - (let ((_%e4017940493%_ - (gx#syntax-e _%hd4017540487%_))) - (let ((_%tl4017740500%_ + (##car _%e4000640313%_)))) + (if (gx#stx-pair? _%hd4000540317%_) + (let ((_%e4000940323%_ + (gx#syntax-e _%hd4000540317%_))) + (let ((_%tl4000740330%_ (let () (declare (not safe)) - (##cdr _%e4017940493%_))) - (_%hd4017840497%_ + (##cdr _%e4000940323%_))) + (_%hd4000840327%_ (let () (declare (not safe)) - (##car _%e4017940493%_)))) - (if (gx#stx-pair? _%tl4017440490%_) - (let ((_%e4018240503%_ - (gx#syntax-e _%tl4017440490%_))) - (let ((_%tl4018040510%_ + (##car _%e4000940323%_)))) + (if (gx#stx-pair? _%tl4000440320%_) + (let ((_%e4001240333%_ + (gx#syntax-e _%tl4000440320%_))) + (let ((_%tl4001040340%_ (let () (declare (not safe)) - (##cdr _%e4018240503%_))) - (_%hd4018140507%_ + (##cdr _%e4001240333%_))) + (_%hd4001140337%_ (let () (declare (not safe)) - (##car _%e4018240503%_)))) - (if (gx#stx-null? _%tl4018040510%_) - (if (let ((__tmp41768 - (gx#datum->syntax - '#f - 'setfid))) - (declare (not safe)) - (|gerbil/core/more-sugar[1]#syntax-local-setf-macro?| - __tmp41768)) - (let ((_%L40513%_ - _%hd4018140507%_) - (_%L40515%_ - _%hd4017840497%_)) - (_%__kont4160641607%_ - _%L40513%_ - _%L40515%_)) + (##car _%e4001240333%_)))) + (if (gx#stx-null? _%tl4001040340%_) + (if (|gerbil/core/more-sugar[1]#syntax-local-setf-macro?| + (gx#datum->syntax + '#f + 'setfid)) + (let ((_%L40343%_ + _%hd4001140337%_) + (_%L40345%_ + _%hd4000840327%_)) + (_%__kont4143641437%_ + _%L40343%_ + _%L40345%_)) (if (gx#stx-pair/null? - _%tl4017740500%_) - (let ((_%__splice4161041611%_ + _%tl4000740330%_) + (let ((_%__splice4144041441%_ (gx#syntax-split-splice - _%tl4017740500%_ + _%tl4000740330%_ '0))) - (let ((_%tl4019740365%_ + (let ((_%tl4002740195%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice4161041611%_ '1))) - (_%target4019540362%_ + (##vector-ref _%__splice4144041441%_ '1))) + (_%target4002540192%_ (let () (declare (not safe)) - (##vector-ref _%__splice4161041611%_ '0)))) - (if (gx#stx-null? _%tl4019740365%_) - (_%__match4167041671%_ - _%e4017340473%_ - _%hd4017240477%_ - _%tl4017140480%_ - _%e4017640483%_ - _%hd4017540487%_ - _%tl4017440490%_ - _%e4017940493%_ - _%hd4017840497%_ - _%tl4017740500%_ - _%__splice4161041611%_ - _%target4019540362%_ - _%tl4019740365%_) - (_%__match4168241683%_ - _%e4017340473%_ - _%hd4017240477%_ - _%tl4017140480%_ - _%e4017640483%_ - _%hd4017540487%_ - _%tl4017440490%_)))) - (_%__match4168241683%_ - _%e4017340473%_ - _%hd4017240477%_ - _%tl4017140480%_ - _%e4017640483%_ - _%hd4017540487%_ - _%tl4017440490%_))) + (##vector-ref _%__splice4144041441%_ '0)))) + (if (gx#stx-null? _%tl4002740195%_) + (_%__match4150041501%_ + _%e4000340303%_ + _%hd4000240307%_ + _%tl4000140310%_ + _%e4000640313%_ + _%hd4000540317%_ + _%tl4000440320%_ + _%e4000940323%_ + _%hd4000840327%_ + _%tl4000740330%_ + _%__splice4144041441%_ + _%target4002540192%_ + _%tl4002740195%_) + (_%__match4151241513%_ + _%e4000340303%_ + _%hd4000240307%_ + _%tl4000140310%_ + _%e4000640313%_ + _%hd4000540317%_ + _%tl4000440320%_)))) + (_%__match4151241513%_ + _%e4000340303%_ + _%hd4000240307%_ + _%tl4000140310%_ + _%e4000640313%_ + _%hd4000540317%_ + _%tl4000440320%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl4017740500%_) - (let ((_%__splice4161041611%_ + _%tl4000740330%_) + (let ((_%__splice4144041441%_ (gx#syntax-split-splice - _%tl4017740500%_ + _%tl4000740330%_ '0))) - (let ((_%tl4019740365%_ + (let ((_%tl4002740195%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4161041611%_ '1))) - (_%target4019540362%_ + (##vector-ref _%__splice4144041441%_ '1))) + (_%target4002540192%_ (let () (declare (not safe)) - (##vector-ref _%__splice4161041611%_ '0)))) - (if (gx#stx-null? _%tl4019740365%_) - (_%__match4167041671%_ - _%e4017340473%_ - _%hd4017240477%_ - _%tl4017140480%_ - _%e4017640483%_ - _%hd4017540487%_ - _%tl4017440490%_ - _%e4017940493%_ - _%hd4017840497%_ - _%tl4017740500%_ - _%__splice4161041611%_ - _%target4019540362%_ - _%tl4019740365%_) - (_%__match4168241683%_ - _%e4017340473%_ - _%hd4017240477%_ - _%tl4017140480%_ - _%e4017640483%_ - _%hd4017540487%_ - _%tl4017440490%_)))) + (##vector-ref _%__splice4144041441%_ '0)))) + (if (gx#stx-null? _%tl4002740195%_) + (_%__match4150041501%_ + _%e4000340303%_ + _%hd4000240307%_ + _%tl4000140310%_ + _%e4000640313%_ + _%hd4000540317%_ + _%tl4000440320%_ + _%e4000940323%_ + _%hd4000840327%_ + _%tl4000740330%_ + _%__splice4144041441%_ + _%target4002540192%_ + _%tl4002740195%_) + (_%__match4151241513%_ + _%e4000340303%_ + _%hd4000240307%_ + _%tl4000140310%_ + _%e4000640313%_ + _%hd4000540317%_ + _%tl4000440320%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match4168241683%_ - _%e4017340473%_ - _%hd4017240477%_ - _%tl4017140480%_ - _%e4017640483%_ - _%hd4017540487%_ - _%tl4017440490%_))))) + (_%__match4151241513%_ + _%e4000340303%_ + _%hd4000240307%_ + _%tl4000140310%_ + _%e4000640313%_ + _%hd4000540317%_ + _%tl4000440320%_))))) (if (gx#stx-pair/null? - _%tl4017740500%_) - (let ((_%__splice4161041611%_ + _%tl4000740330%_) + (let ((_%__splice4144041441%_ (gx#syntax-split-splice - _%tl4017740500%_ + _%tl4000740330%_ '0))) - (let ((_%tl4019740365%_ + (let ((_%tl4002740195%_ (let () (declare (not safe)) (##vector-ref - _%__splice4161041611%_ + _%__splice4144041441%_ '1))) - (_%target4019540362%_ + (_%target4002540192%_ (let () (declare (not safe)) (##vector-ref - _%__splice4161041611%_ + _%__splice4144041441%_ '0)))) (if (gx#stx-null? - _%tl4019740365%_) - (_%__match4167041671%_ - _%e4017340473%_ - _%hd4017240477%_ - _%tl4017140480%_ - _%e4017640483%_ - _%hd4017540487%_ - _%tl4017440490%_ - _%e4017940493%_ - _%hd4017840497%_ - _%tl4017740500%_ - _%__splice4161041611%_ - _%target4019540362%_ - _%tl4019740365%_) - (_%__match4168241683%_ - _%e4017340473%_ - _%hd4017240477%_ - _%tl4017140480%_ - _%e4017640483%_ - _%hd4017540487%_ - _%tl4017440490%_)))) - (_%__match4168241683%_ - _%e4017340473%_ - _%hd4017240477%_ - _%tl4017140480%_ - _%e4017640483%_ - _%hd4017540487%_ - _%tl4017440490%_))))) - (_%__match4168241683%_ - _%e4017340473%_ - _%hd4017240477%_ - _%tl4017140480%_ - _%e4017640483%_ - _%hd4017540487%_ - _%tl4017440490%_)))) - (let () (declare (not safe)) (_%g4016740230%_))))) - (let () (declare (not safe)) (_%g4016740230%_)))))))) + _%tl4002740195%_) + (_%__match4150041501%_ + _%e4000340303%_ + _%hd4000240307%_ + _%tl4000140310%_ + _%e4000640313%_ + _%hd4000540317%_ + _%tl4000440320%_ + _%e4000940323%_ + _%hd4000840327%_ + _%tl4000740330%_ + _%__splice4144041441%_ + _%target4002540192%_ + _%tl4002740195%_) + (_%__match4151241513%_ + _%e4000340303%_ + _%hd4000240307%_ + _%tl4000140310%_ + _%e4000640313%_ + _%hd4000540317%_ + _%tl4000440320%_)))) + (_%__match4151241513%_ + _%e4000340303%_ + _%hd4000240307%_ + _%tl4000140310%_ + _%e4000640313%_ + _%hd4000540317%_ + _%tl4000440320%_))))) + (_%__match4151241513%_ + _%e4000340303%_ + _%hd4000240307%_ + _%tl4000140310%_ + _%e4000640313%_ + _%hd4000540317%_ + _%tl4000440320%_)))) + (let () (declare (not safe)) (_%g3999740060%_))))) + (let () (declare (not safe)) (_%g3999740060%_)))))))) (define |gerbil/core/more-sugar[:0:]#set!| - (lambda (_%stx40551%_) - (let () - (declare (not safe)) - (|gerbil/core/more-sugar[1]#expand-set!| _%stx40551%_)))) + (lambda (_%stx40381%_) + (|gerbil/core/more-sugar[1]#expand-set!| _%stx40381%_))) (define |gerbil/core/more-sugar[:0:]#values-set!| - (lambda (_%stx40554%_) - (let* ((_%g4055740581%_ - (lambda (_%g4055840577%_) + (lambda (_%stx40384%_) + (let* ((_%g4038740411%_ + (lambda (_%g4038840407%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4055840577%_))) - (_%g4055640759%_ - (lambda (_%g4055840585%_) - (if (gx#stx-pair? _%g4055840585%_) - (let ((_%e4056340588%_ (gx#syntax-e _%g4055840585%_))) - (let ((_%hd4056240592%_ + _%g4038840407%_))) + (_%g4038640589%_ + (lambda (_%g4038840415%_) + (if (gx#stx-pair? _%g4038840415%_) + (let ((_%e4039340418%_ (gx#syntax-e _%g4038840415%_))) + (let ((_%hd4039240422%_ (let () (declare (not safe)) - (##car _%e4056340588%_))) - (_%tl4056140595%_ + (##car _%e4039340418%_))) + (_%tl4039140425%_ (let () (declare (not safe)) - (##cdr _%e4056340588%_)))) - (if (gx#stx-pair/null? _%tl4056140595%_) - (if (let ((__tmp41769 - (gx#stx-length _%tl4056140595%_))) + (##cdr _%e4039340418%_)))) + (if (gx#stx-pair/null? _%tl4039140425%_) + (if (let ((__tmp41596 + (gx#stx-length _%tl4039140425%_))) (declare (not safe)) - (##fx>= __tmp41769 '1)) - (let ((_g41770_ + (##fx>= __tmp41596 '1)) + (let ((_g41597_ (gx#syntax-split-splice - _%tl4056140595%_ + _%tl4039140425%_ '1))) (begin - (let ((_g41771_ + (let ((_g41598_ (let () (declare (not safe)) - (if (##values? _g41770_) - (##vector-length _g41770_) + (if (##values? _g41597_) + (##vector-length _g41597_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41771_ 2))) + (##fx= _g41598_ 2))) (error "Context expects 2 values" - _g41771_))) - (let ((_%target4056440598%_ + _g41598_))) + (let ((_%target4039440428%_ (let () (declare (not safe)) - (##vector-ref _g41770_ 0))) - (_%tl4056640601%_ + (##vector-ref _g41597_ 0))) + (_%tl4039640431%_ (let () (declare (not safe)) - (##vector-ref _g41770_ 1)))) - (if (gx#stx-pair? _%tl4056640601%_) - (let ((_%e4057540604%_ + (##vector-ref _g41597_ 1)))) + (if (gx#stx-pair? _%tl4039640431%_) + (let ((_%e4040540434%_ (gx#syntax-e - _%tl4056640601%_))) - (let ((_%hd4057440608%_ + _%tl4039640431%_))) + (let ((_%hd4040440438%_ (let () (declare (not safe)) - (##car _%e4057540604%_))) - (_%tl4057340611%_ + (##car _%e4040540434%_))) + (_%tl4040340441%_ (let () (declare (not safe)) - (##cdr _%e4057540604%_)))) + (##cdr _%e4040540434%_)))) (if (gx#stx-null? - _%tl4057340611%_) - (letrec ((_%loop4056740614%_ - (lambda (_%hd4056540618%_ + _%tl4040340441%_) + (letrec ((_%loop4039740444%_ + (lambda (_%hd4039540448%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tgt4057140621%_) - (if (gx#stx-pair? _%hd4056540618%_) - (let ((_%e4056840624%_ - (gx#syntax-e _%hd4056540618%_))) - (let ((_%lp-hd4056940628%_ + _%tgt4040140451%_) + (if (gx#stx-pair? _%hd4039540448%_) + (let ((_%e4039840454%_ + (gx#syntax-e _%hd4039540448%_))) + (let ((_%lp-hd4039940458%_ (let () (declare (not safe)) - (##car _%e4056840624%_))) - (_%lp-tl4057040631%_ + (##car _%e4039840454%_))) + (_%lp-tl4040040461%_ (let () (declare (not safe)) - (##cdr _%e4056840624%_)))) - (_%loop4056740614%_ - _%lp-tl4057040631%_ - (cons _%lp-hd4056940628%_ _%tgt4057140621%_)))) - (let ((_%tgt4057240634%_ - (reverse _%tgt4057140621%_))) - ((lambda (_%L40638%_ _%L40640%_) - (let* ((_%g4065840675%_ - (lambda (_%g4065940671%_) + (##cdr _%e4039840454%_)))) + (_%loop4039740444%_ + _%lp-tl4040040461%_ + (cons _%lp-hd4039940458%_ _%tgt4040140451%_)))) + (let ((_%tgt4040240464%_ + (reverse _%tgt4040140451%_))) + ((lambda (_%L40468%_ _%L40470%_) + (let* ((_%g4048840505%_ + (lambda (_%g4048940501%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4065940671%_))) - (_%g4065740747%_ - (lambda (_%g4065940679%_) + _%g4048940501%_))) + (_%g4048740577%_ + (lambda (_%g4048940509%_) (if (gx#stx-pair/null? - _%g4065940679%_) - (let ((_g41772_ + _%g4048940509%_) + (let ((_g41599_ (gx#syntax-split-splice - _%g4065940679%_ + _%g4048940509%_ '0))) (begin - (let ((_g41773_ + (let ((_g41600_ (let () (declare (not safe)) (if (##values? - _g41772_) + _g41599_) (##vector-length - _g41772_) + _g41599_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41773_ + (##fx= _g41600_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g41773_))) + (error "Context expects 2 values" _g41600_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4066140682%_ + (let ((_%target4049140512%_ (let () (declare (not safe)) (##vector-ref - _g41772_ + _g41599_ 0))) - (_%tl4066340685%_ + (_%tl4049340515%_ (let () (declare (not safe)) (##vector-ref - _g41772_ + _g41599_ 1)))) (if (gx#stx-null? - _%tl4066340685%_) - (letrec ((_%loop4066440688%_ + _%tl4049340515%_) + (letrec ((_%loop4049440518%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd4066240692%_ _%$e4066840695%_) - (if (gx#stx-pair? _%hd4066240692%_) - (let ((_%e4066540698%_ - (gx#syntax-e _%hd4066240692%_))) - (let ((_%lp-hd4066640702%_ + (lambda (_%hd4049240522%_ _%$e4049840525%_) + (if (gx#stx-pair? _%hd4049240522%_) + (let ((_%e4049540528%_ + (gx#syntax-e _%hd4049240522%_))) + (let ((_%lp-hd4049640532%_ (let () (declare (not safe)) - (##car _%e4066540698%_))) - (_%lp-tl4066740705%_ + (##car _%e4049540528%_))) + (_%lp-tl4049740535%_ (let () (declare (not safe)) - (##cdr _%e4066540698%_)))) - (_%loop4066440688%_ - _%lp-tl4066740705%_ - (cons _%lp-hd4066640702%_ - _%$e4066840695%_)))) - (let ((_%$e4066940708%_ - (reverse _%$e4066840695%_))) - ((lambda (_%L40712%_) - (let () - (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (foldr (lambda (_%g4073040733%_ + (##cdr _%e4049540528%_)))) + (_%loop4049440518%_ + _%lp-tl4049740535%_ + (cons _%lp-hd4049640532%_ + _%$e4049840525%_)))) + (let ((_%$e4049940538%_ + (reverse _%$e4049840525%_))) + ((lambda (_%L40542%_) + (cons (gx#datum->syntax '#f 'let-values) + (cons (cons (cons (foldr (lambda (_%g4056040563%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4073140736%_) - (cons _%g4073040733%_ _%g4073140736%_)) - '() - _%L40712%_) - (cons _%L40638%_ '())) - '()) + _%g4056140566%_) + (cons _%g4056040563%_ _%g4056140566%_)) + '() + _%L40542%_) + (cons _%L40468%_ '())) + '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (begin - (gx#syntax-check-splice-targets - _%L40712%_ - _%L40640%_) - (foldr (lambda (_%g4072740739%_ + (begin + (gx#syntax-check-splice-targets + _%L40542%_ + _%L40470%_) + (foldr (lambda (_%g4055740569%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4072840742%_ - _%g4072940744%_) - (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%g4072840742%_ - (cons _%g4072740739%_ '()))) - _%g4072940744%_)) - '() - _%L40712%_ - _%L40640%_)))))) + _%g4055840572%_ + _%g4055940574%_) + (cons (cons (gx#datum->syntax '#f 'set!) + (cons _%g4055840572%_ + (cons _%g4055740569%_ '()))) + _%g4055940574%_)) + '() + _%L40542%_ + _%L40470%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e4066940708%_)))))) - (_%loop4066440688%_ _%target4066140682%_ '())) - (_%g4065840675%_ _%g4065940679%_))))) + _%$e4049940538%_)))))) + (_%loop4049440518%_ _%target4049140512%_ '())) + (_%g4048840505%_ _%g4048940509%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4065840675%_ - _%g4065940679%_))))) - (_%g4065740747%_ + (_%g4048840505%_ + _%g4048940509%_))))) + (_%g4048740577%_ (gx#gentemps - (foldr (lambda (_%g4075040753%_ - _%g4075140756%_) - (cons _%g4075040753%_ - _%g4075140756%_)) + (foldr (lambda (_%g4058040583%_ + _%g4058140586%_) + (cons _%g4058040583%_ + _%g4058140586%_)) '() - _%L40640%_))))) - _%hd4057440608%_ - _%tgt4057240634%_)))))) + _%L40470%_))))) + _%hd4040440438%_ + _%tgt4040240464%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4056740614%_ - _%target4056440598%_ + (_%loop4039740444%_ + _%target4039440428%_ '())) - (_%g4055740581%_ - _%g4055840585%_)))) - (_%g4055740581%_ _%g4055840585%_))))) - (_%g4055740581%_ _%g4055840585%_)) - (_%g4055740581%_ _%g4055840585%_)))) - (_%g4055740581%_ _%g4055840585%_))))) - (_%g4055640759%_ _%stx40554%_)))) + (_%g4038740411%_ + _%g4038840415%_)))) + (_%g4038740411%_ _%g4038840415%_))))) + (_%g4038740411%_ _%g4038840415%_)) + (_%g4038740411%_ _%g4038840415%_)))) + (_%g4038740411%_ _%g4038840415%_))))) + (_%g4038640589%_ _%stx40384%_)))) (define |gerbil/core/more-sugar[:0:]#parameterize| - (lambda (_%stx40765%_) - (let* ((_%__stx4170541706%_ _%stx40765%_) - (_%g4076940827%_ + (lambda (_%stx40595%_) + (let* ((_%__stx4153541536%_ _%stx40595%_) + (_%g4059940657%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4170541706%_)))) - (let ((_%__kont4170841709%_ - (lambda (_%L41161%_) + _%__stx4153541536%_)))) + (let ((_%__kont4153841539%_ + (lambda (_%L40991%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4117741180%_ _%g4117841183%_) - (cons _%g4117741180%_ _%g4117841183%_)) + (foldr (lambda (_%g4100741010%_ _%g4100841013%_) + (cons _%g4100741010%_ _%g4100841013%_)) '() - _%L41161%_))))) - (_%__kont4171241713%_ - (lambda (_%L40938%_ _%L40940%_ _%L40941%_) - (let* ((_%g4096440972%_ - (lambda (_%g4096540968%_) + _%L40991%_))))) + (_%__kont4154241543%_ + (lambda (_%L40768%_ _%L40770%_ _%L40771%_) + (let* ((_%g4079440802%_ + (lambda (_%g4079540798%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4096540968%_))) - (_%g4096341092%_ - (lambda (_%g4096540976%_) - ((lambda (_%L40979%_) - (let () - (let* ((_%g4099141008%_ - (lambda (_%g4099241004%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g4099241004%_))) - (_%g4099041072%_ - (lambda (_%g4099241012%_) - (if (gx#stx-pair/null? - _%g4099241012%_) - (let ((_g41774_ - (gx#syntax-split-splice - _%g4099241012%_ - '0))) - (begin - (let ((_g41775_ - (let () - (declare (not safe)) - (if (##values? - _g41774_) - (##vector-length - _g41774_) - 1)))) - (if (not (let () - (declare + _%g4079540798%_))) + (_%g4079340922%_ + (lambda (_%g4079540806%_) + ((lambda (_%L40809%_) + (let* ((_%g4082140838%_ + (lambda (_%g4082240834%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g4082240834%_))) + (_%g4082040902%_ + (lambda (_%g4082240842%_) + (if (gx#stx-pair/null? _%g4082240842%_) + (let ((_g41601_ + (gx#syntax-split-splice + _%g4082240842%_ + '0))) + (begin + (let ((_g41602_ + (let () + (declare (not safe)) + (if (##values? + _g41601_) + (##vector-length + _g41601_) + 1)))) + (if (not (let () + (declare + (not safe)) + (##fx= _g41602_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##fx= _g41775_ 2))) - (error "Context expects 2 values" _g41775_))) + 2))) + (error "Context expects 2 values" _g41602_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4099441015%_ - (let () - (declare (not safe)) - (##vector-ref - _g41774_ - 0))) - (_%tl4099641018%_ - (let () - (declare (not safe)) - (##vector-ref - _g41774_ - 1)))) - (if (gx#stx-null? - _%tl4099641018%_) - (letrec ((_%loop4099741021%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd4099541025%_ _%arg4100141028%_) - (if (gx#stx-pair? _%hd4099541025%_) - (let ((_%e4099841031%_ - (gx#syntax-e _%hd4099541025%_))) - (let ((_%lp-hd4099941035%_ - (let () - (declare (not safe)) - (##car _%e4099841031%_))) - (_%lp-tl4100041038%_ - (let () - (declare (not safe)) - (##cdr _%e4099841031%_)))) - (_%loop4099741021%_ - _%lp-tl4100041038%_ - (cons _%lp-hd4099941035%_ - _%arg4100141028%_)))) - (let ((_%arg4100241041%_ - (reverse _%arg4100141028%_))) - ((lambda (_%L41045%_) - (let () - (cons (gx#datum->syntax - '#f - 'call-with-parameters) - (cons _%L40979%_ - (foldr (lambda (_%g4106341066%_ + (let ((_%target4082440845%_ + (let () + (declare (not safe)) + (##vector-ref + _g41601_ + 0))) + (_%tl4082640848%_ + (let () + (declare (not safe)) + (##vector-ref + _g41601_ + 1)))) + (if (gx#stx-null? + _%tl4082640848%_) + (letrec ((_%loop4082740851%_ + (lambda (_%hd4082540855%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4106441069%_) - (cons _%g4106341066%_ _%g4106441069%_)) - '() - _%L41045%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%arg4100241041%_)))))) - (_%loop4099741021%_ _%target4099441015%_ '())) - (_%g4099141008%_ _%g4099241012%_))))) + _%arg4083140858%_) + (if (gx#stx-pair? _%hd4082540855%_) + (let ((_%e4082840861%_ + (gx#syntax-e _%hd4082540855%_))) + (let ((_%lp-hd4082940865%_ + (let () + (declare (not safe)) + (##car _%e4082840861%_))) + (_%lp-tl4083040868%_ + (let () + (declare (not safe)) + (##cdr _%e4082840861%_)))) + (_%loop4082740851%_ + _%lp-tl4083040868%_ + (cons _%lp-hd4082940865%_ + _%arg4083140858%_)))) + (let ((_%arg4083240871%_ + (reverse _%arg4083140858%_))) + ((lambda (_%L40875%_) + (cons (gx#datum->syntax + '#f + 'call-with-parameters) + (cons _%L40809%_ + (foldr (lambda (_%g4089340896%_ + _%g4089440899%_) + (cons _%g4089340896%_ + _%g4089440899%_)) + '() + _%L40875%_)))) + _%arg4083240871%_)))))) + (_%loop4082740851%_ _%target4082440845%_ '())) + (_%g4082140838%_ _%g4082240842%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4099141008%_ - _%g4099241012%_))))) - (_%g4099041072%_ - (foldr cons* - '() - (gx#syntax->list - (foldr (lambda (_%g4107541078%_ - _%g4107641081%_) - (cons _%g4107541078%_ - _%g4107641081%_)) - '() - _%L40941%_)) - (gx#syntax->list - (foldr (lambda (_%g4108341086%_ - _%g4108441089%_) - (cons _%g4108341086%_ - _%g4108441089%_)) - '() - _%L40940%_))))))) - _%g4096540976%_)))) - (_%g4096341092%_ + (_%g4082140838%_ + _%g4082240842%_))))) + (_%g4082040902%_ + (foldr cons* + '() + (gx#syntax->list + (foldr (lambda (_%g4090540908%_ + _%g4090640911%_) + (cons _%g4090540908%_ + _%g4090640911%_)) + '() + _%L40771%_)) + (gx#syntax->list + (foldr (lambda (_%g4091340916%_ + _%g4091440919%_) + (cons _%g4091340916%_ + _%g4091440919%_)) + '() + _%L40770%_)))))) + _%g4079540806%_)))) + (_%g4079340922%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() - (foldr (lambda (_%g4109541098%_ - _%g4109641101%_) - (cons _%g4109541098%_ - _%g4109641101%_)) + (foldr (lambda (_%g4092540928%_ + _%g4092640931%_) + (cons _%g4092540928%_ + _%g4092640931%_)) '() - _%L40938%_))) - (gx#stx-source _%stx40765%_))))))) - (let* ((_%__match4176041761%_ - (lambda (_%e4079240834%_ - _%hd4079140838%_ - _%tl4079040841%_ - _%e4079540844%_ - _%hd4079440848%_ - _%tl4079340851%_ - _%__splice4171441715%_ - _%target4079640854%_ - _%tl4079840857%_) - (letrec ((_%loop4079940860%_ - (lambda (_%hd4079740864%_ - _%expr4080340867%_ - _%param4080440869%_) - (if (gx#stx-pair? _%hd4079740864%_) - (let ((_%e4080040872%_ - (gx#syntax-e _%hd4079740864%_))) - (let ((_%lp-tl4080240879%_ + _%L40768%_))) + (gx#stx-source _%stx40595%_))))))) + (let* ((_%__match4159041591%_ + (lambda (_%e4062240664%_ + _%hd4062140668%_ + _%tl4062040671%_ + _%e4062540674%_ + _%hd4062440678%_ + _%tl4062340681%_ + _%__splice4154441545%_ + _%target4062640684%_ + _%tl4062840687%_) + (letrec ((_%loop4062940690%_ + (lambda (_%hd4062740694%_ + _%expr4063340697%_ + _%param4063440699%_) + (if (gx#stx-pair? _%hd4062740694%_) + (let ((_%e4063040702%_ + (gx#syntax-e _%hd4062740694%_))) + (let ((_%lp-tl4063240709%_ (let () (declare (not safe)) - (##cdr _%e4080040872%_))) - (_%lp-hd4080140876%_ + (##cdr _%e4063040702%_))) + (_%lp-hd4063140706%_ (let () (declare (not safe)) - (##car _%e4080040872%_)))) - (if (gx#stx-pair? _%lp-hd4080140876%_) - (let ((_%e4080940882%_ + (##car _%e4063040702%_)))) + (if (gx#stx-pair? _%lp-hd4063140706%_) + (let ((_%e4063940712%_ (gx#syntax-e - _%lp-hd4080140876%_))) - (let ((_%tl4080740889%_ + _%lp-hd4063140706%_))) + (let ((_%tl4063740719%_ (let () (declare (not safe)) - (##cdr _%e4080940882%_))) - (_%hd4080840886%_ + (##cdr _%e4063940712%_))) + (_%hd4063840716%_ (let () (declare (not safe)) - (##car _%e4080940882%_)))) + (##car _%e4063940712%_)))) (if (gx#stx-pair? - _%tl4080740889%_) - (let ((_%e4081240892%_ + _%tl4063740719%_) + (let ((_%e4064240722%_ (gx#syntax-e - _%tl4080740889%_))) - (let ((_%tl4081040899%_ + _%tl4063740719%_))) + (let ((_%tl4064040729%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4081240892%_))) - (_%hd4081140896%_ - (let () (declare (not safe)) (##car _%e4081240892%_)))) - (if (gx#stx-null? _%tl4081040899%_) - (_%loop4079940860%_ - _%lp-tl4080240879%_ - (cons _%hd4081140896%_ _%expr4080340867%_) - (cons _%hd4080840886%_ _%param4080440869%_)) - (let () (declare (not safe)) (_%g4076940827%_))))) + (##cdr _%e4064240722%_))) + (_%hd4064140726%_ + (let () (declare (not safe)) (##car _%e4064240722%_)))) + (if (gx#stx-null? _%tl4064040729%_) + (_%loop4062940690%_ + _%lp-tl4063240709%_ + (cons _%hd4064140726%_ _%expr4063340697%_) + (cons _%hd4063840716%_ _%param4063440699%_)) + (let () (declare (not safe)) (_%g4059940657%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4076940827%_))))) + (_%g4059940657%_))))) (let () (declare (not safe)) - (_%g4076940827%_))))) - (let ((_%param4080640905%_ - (reverse _%param4080440869%_)) - (_%expr4080540902%_ - (reverse _%expr4080340867%_))) - (if (gx#stx-pair/null? _%tl4079340851%_) - (let ((_%__splice4171641717%_ + (_%g4059940657%_))))) + (let ((_%param4063640735%_ + (reverse _%param4063440699%_)) + (_%expr4063540732%_ + (reverse _%expr4063340697%_))) + (if (gx#stx-pair/null? _%tl4062340681%_) + (let ((_%__splice4154641547%_ (gx#syntax-split-splice - _%tl4079340851%_ + _%tl4062340681%_ '0))) - (let ((_%tl4081540911%_ + (let ((_%tl4064540741%_ (let () (declare (not safe)) (##vector-ref - _%__splice4171641717%_ + _%__splice4154641547%_ '1))) - (_%target4081340908%_ + (_%target4064340738%_ (let () (declare (not safe)) (##vector-ref - _%__splice4171641717%_ + _%__splice4154641547%_ '0)))) (if (gx#stx-null? - _%tl4081540911%_) - (letrec ((_%loop4081640914%_ - (lambda (_%hd4081440918%_ + _%tl4064540741%_) + (letrec ((_%loop4064640744%_ + (lambda (_%hd4064440748%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body4082040921%_) - (if (gx#stx-pair? _%hd4081440918%_) - (let ((_%e4081740924%_ - (gx#syntax-e _%hd4081440918%_))) - (let ((_%lp-tl4081940931%_ + _%body4065040751%_) + (if (gx#stx-pair? _%hd4064440748%_) + (let ((_%e4064740754%_ + (gx#syntax-e _%hd4064440748%_))) + (let ((_%lp-tl4064940761%_ (let () (declare (not safe)) - (##cdr _%e4081740924%_))) - (_%lp-hd4081840928%_ + (##cdr _%e4064740754%_))) + (_%lp-hd4064840758%_ (let () (declare (not safe)) - (##car _%e4081740924%_)))) - (_%loop4081640914%_ - _%lp-tl4081940931%_ - (cons _%lp-hd4081840928%_ _%body4082040921%_)))) - (let ((_%body4082140934%_ - (reverse _%body4082040921%_))) - (_%__kont4171241713%_ - _%body4082140934%_ - _%expr4080540902%_ - _%param4080640905%_)))))) + (##car _%e4064740754%_)))) + (_%loop4064640744%_ + _%lp-tl4064940761%_ + (cons _%lp-hd4064840758%_ _%body4065040751%_)))) + (let ((_%body4065140764%_ + (reverse _%body4065040751%_))) + (_%__kont4154241543%_ + _%body4065140764%_ + _%expr4063540732%_ + _%param4063640735%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4081640914%_ - _%target4081340908%_ + (_%loop4064640744%_ + _%target4064340738%_ '())) (let () (declare (not safe)) - (_%g4076940827%_))))) + (_%g4059940657%_))))) (let () (declare (not safe)) - (_%g4076940827%_)))))))) - (_%loop4079940860%_ _%target4079640854%_ '() '())))) - (_%__match4174041741%_ - (lambda (_%e4077441111%_ - _%hd4077341115%_ - _%tl4077241118%_ - _%e4077741121%_ - _%hd4077641125%_ - _%tl4077541128%_ - _%__splice4171041711%_ - _%target4077841131%_ - _%tl4078041134%_) - (letrec ((_%loop4078141137%_ - (lambda (_%hd4077941141%_ _%body4078541144%_) - (if (gx#stx-pair? _%hd4077941141%_) - (let ((_%e4078241147%_ - (gx#syntax-e _%hd4077941141%_))) - (let ((_%lp-tl4078441154%_ + (_%g4059940657%_)))))))) + (_%loop4062940690%_ _%target4062640684%_ '() '())))) + (_%__match4157041571%_ + (lambda (_%e4060440941%_ + _%hd4060340945%_ + _%tl4060240948%_ + _%e4060740951%_ + _%hd4060640955%_ + _%tl4060540958%_ + _%__splice4154041541%_ + _%target4060840961%_ + _%tl4061040964%_) + (letrec ((_%loop4061140967%_ + (lambda (_%hd4060940971%_ _%body4061540974%_) + (if (gx#stx-pair? _%hd4060940971%_) + (let ((_%e4061240977%_ + (gx#syntax-e _%hd4060940971%_))) + (let ((_%lp-tl4061440984%_ (let () (declare (not safe)) - (##cdr _%e4078241147%_))) - (_%lp-hd4078341151%_ + (##cdr _%e4061240977%_))) + (_%lp-hd4061340981%_ (let () (declare (not safe)) - (##car _%e4078241147%_)))) - (_%loop4078141137%_ - _%lp-tl4078441154%_ - (cons _%lp-hd4078341151%_ - _%body4078541144%_)))) - (let ((_%body4078641157%_ - (reverse _%body4078541144%_))) - (_%__kont4170841709%_ - _%body4078641157%_)))))) - (_%loop4078141137%_ _%target4077841131%_ '()))))) - (if (gx#stx-pair? _%__stx4170541706%_) - (let ((_%e4077441111%_ (gx#syntax-e _%__stx4170541706%_))) - (let ((_%tl4077241118%_ - (let () (declare (not safe)) (##cdr _%e4077441111%_))) - (_%hd4077341115%_ + (##car _%e4061240977%_)))) + (_%loop4061140967%_ + _%lp-tl4061440984%_ + (cons _%lp-hd4061340981%_ + _%body4061540974%_)))) + (let ((_%body4061640987%_ + (reverse _%body4061540974%_))) + (_%__kont4153841539%_ + _%body4061640987%_)))))) + (_%loop4061140967%_ _%target4060840961%_ '()))))) + (if (gx#stx-pair? _%__stx4153541536%_) + (let ((_%e4060440941%_ (gx#syntax-e _%__stx4153541536%_))) + (let ((_%tl4060240948%_ + (let () (declare (not safe)) (##cdr _%e4060440941%_))) + (_%hd4060340945%_ (let () (declare (not safe)) - (##car _%e4077441111%_)))) - (if (gx#stx-pair? _%tl4077241118%_) - (let ((_%e4077741121%_ (gx#syntax-e _%tl4077241118%_))) - (let ((_%tl4077541128%_ + (##car _%e4060440941%_)))) + (if (gx#stx-pair? _%tl4060240948%_) + (let ((_%e4060740951%_ (gx#syntax-e _%tl4060240948%_))) + (let ((_%tl4060540958%_ (let () (declare (not safe)) - (##cdr _%e4077741121%_))) - (_%hd4077641125%_ + (##cdr _%e4060740951%_))) + (_%hd4060640955%_ (let () (declare (not safe)) - (##car _%e4077741121%_)))) - (if (gx#stx-null? _%hd4077641125%_) - (if (gx#stx-pair/null? _%tl4077541128%_) - (let ((_%__splice4171041711%_ + (##car _%e4060740951%_)))) + (if (gx#stx-null? _%hd4060640955%_) + (if (gx#stx-pair/null? _%tl4060540958%_) + (let ((_%__splice4154041541%_ (gx#syntax-split-splice - _%tl4077541128%_ + _%tl4060540958%_ '0))) - (let ((_%tl4078041134%_ + (let ((_%tl4061040964%_ (let () (declare (not safe)) (##vector-ref - _%__splice4171041711%_ + _%__splice4154041541%_ '1))) - (_%target4077841131%_ + (_%target4060840961%_ (let () (declare (not safe)) (##vector-ref - _%__splice4171041711%_ + _%__splice4154041541%_ '0)))) - (if (gx#stx-null? _%tl4078041134%_) - (_%__match4174041741%_ - _%e4077441111%_ - _%hd4077341115%_ - _%tl4077241118%_ - _%e4077741121%_ - _%hd4077641125%_ - _%tl4077541128%_ - _%__splice4171041711%_ - _%target4077841131%_ - _%tl4078041134%_) + (if (gx#stx-null? _%tl4061040964%_) + (_%__match4157041571%_ + _%e4060440941%_ + _%hd4060340945%_ + _%tl4060240948%_ + _%e4060740951%_ + _%hd4060640955%_ + _%tl4060540958%_ + _%__splice4154041541%_ + _%target4060840961%_ + _%tl4061040964%_) (if (gx#stx-pair/null? - _%hd4077641125%_) - (let ((_%__splice4171441715%_ + _%hd4060640955%_) + (let ((_%__splice4154441545%_ (gx#syntax-split-splice - _%hd4077641125%_ + _%hd4060640955%_ '0))) - (let ((_%tl4079840857%_ + (let ((_%tl4062840687%_ (let () (declare (not safe)) (##vector-ref - _%__splice4171441715%_ + _%__splice4154441545%_ '1))) - (_%target4079640854%_ + (_%target4062640684%_ (let () (declare (not safe)) (##vector-ref - _%__splice4171441715%_ + _%__splice4154441545%_ '0)))) (if (gx#stx-null? - _%tl4079840857%_) - (_%__match4176041761%_ - _%e4077441111%_ - _%hd4077341115%_ - _%tl4077241118%_ - _%e4077741121%_ - _%hd4077641125%_ - _%tl4077541128%_ - _%__splice4171441715%_ - _%target4079640854%_ - _%tl4079840857%_) + _%tl4062840687%_) + (_%__match4159041591%_ + _%e4060440941%_ + _%hd4060340945%_ + _%tl4060240948%_ + _%e4060740951%_ + _%hd4060640955%_ + _%tl4060540958%_ + _%__splice4154441545%_ + _%target4062640684%_ + _%tl4062840687%_) (let () (declare (not safe)) - (_%g4076940827%_))))) + (_%g4059940657%_))))) (let () (declare (not safe)) - (_%g4076940827%_)))))) - (if (gx#stx-pair/null? _%hd4077641125%_) - (let ((_%__splice4171441715%_ + (_%g4059940657%_)))))) + (if (gx#stx-pair/null? _%hd4060640955%_) + (let ((_%__splice4154441545%_ (gx#syntax-split-splice - _%hd4077641125%_ + _%hd4060640955%_ '0))) - (let ((_%tl4079840857%_ + (let ((_%tl4062840687%_ (let () (declare (not safe)) (##vector-ref - _%__splice4171441715%_ + _%__splice4154441545%_ '1))) - (_%target4079640854%_ + (_%target4062640684%_ (let () (declare (not safe)) (##vector-ref - _%__splice4171441715%_ + _%__splice4154441545%_ '0)))) - (if (gx#stx-null? _%tl4079840857%_) - (_%__match4176041761%_ - _%e4077441111%_ - _%hd4077341115%_ - _%tl4077241118%_ - _%e4077741121%_ - _%hd4077641125%_ - _%tl4077541128%_ - _%__splice4171441715%_ - _%target4079640854%_ - _%tl4079840857%_) + (if (gx#stx-null? _%tl4062840687%_) + (_%__match4159041591%_ + _%e4060440941%_ + _%hd4060340945%_ + _%tl4060240948%_ + _%e4060740951%_ + _%hd4060640955%_ + _%tl4060540958%_ + _%__splice4154441545%_ + _%target4062640684%_ + _%tl4062840687%_) (let () (declare (not safe)) - (_%g4076940827%_))))) + (_%g4059940657%_))))) (let () (declare (not safe)) - (_%g4076940827%_)))) - (if (gx#stx-pair/null? _%hd4077641125%_) - (let ((_%__splice4171441715%_ + (_%g4059940657%_)))) + (if (gx#stx-pair/null? _%hd4060640955%_) + (let ((_%__splice4154441545%_ (gx#syntax-split-splice - _%hd4077641125%_ + _%hd4060640955%_ '0))) - (let ((_%tl4079840857%_ + (let ((_%tl4062840687%_ (let () (declare (not safe)) (##vector-ref - _%__splice4171441715%_ + _%__splice4154441545%_ '1))) - (_%target4079640854%_ + (_%target4062640684%_ (let () (declare (not safe)) (##vector-ref - _%__splice4171441715%_ + _%__splice4154441545%_ '0)))) - (if (gx#stx-null? _%tl4079840857%_) - (_%__match4176041761%_ - _%e4077441111%_ - _%hd4077341115%_ - _%tl4077241118%_ - _%e4077741121%_ - _%hd4077641125%_ - _%tl4077541128%_ - _%__splice4171441715%_ - _%target4079640854%_ - _%tl4079840857%_) + (if (gx#stx-null? _%tl4062840687%_) + (_%__match4159041591%_ + _%e4060440941%_ + _%hd4060340945%_ + _%tl4060240948%_ + _%e4060740951%_ + _%hd4060640955%_ + _%tl4060540958%_ + _%__splice4154441545%_ + _%target4062640684%_ + _%tl4062840687%_) (let () (declare (not safe)) - (_%g4076940827%_))))) + (_%g4059940657%_))))) (let () (declare (not safe)) - (_%g4076940827%_)))))) - (let () (declare (not safe)) (_%g4076940827%_))))) - (let () (declare (not safe)) (_%g4076940827%_)))))))) + (_%g4059940657%_)))))) + (let () (declare (not safe)) (_%g4059940657%_))))) + (let () (declare (not safe)) (_%g4059940657%_)))))))) (define |gerbil/core/more-sugar[:0:]#let/cc| - (lambda (_%$stx41194%_) - (let* ((_%g4119841222%_ - (lambda (_%g4119941218%_) + (lambda (_%$stx41024%_) + (let* ((_%g4102841052%_ + (lambda (_%g4102941048%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4119941218%_))) - (_%g4119741307%_ - (lambda (_%g4119941226%_) - (if (gx#stx-pair? _%g4119941226%_) - (let ((_%e4120441229%_ (gx#syntax-e _%g4119941226%_))) - (let ((_%hd4120341233%_ + _%g4102941048%_))) + (_%g4102741137%_ + (lambda (_%g4102941056%_) + (if (gx#stx-pair? _%g4102941056%_) + (let ((_%e4103441059%_ (gx#syntax-e _%g4102941056%_))) + (let ((_%hd4103341063%_ (let () (declare (not safe)) - (##car _%e4120441229%_))) - (_%tl4120241236%_ + (##car _%e4103441059%_))) + (_%tl4103241066%_ (let () (declare (not safe)) - (##cdr _%e4120441229%_)))) - (if (gx#stx-pair? _%tl4120241236%_) - (let ((_%e4120741239%_ - (gx#syntax-e _%tl4120241236%_))) - (let ((_%hd4120641243%_ + (##cdr _%e4103441059%_)))) + (if (gx#stx-pair? _%tl4103241066%_) + (let ((_%e4103741069%_ + (gx#syntax-e _%tl4103241066%_))) + (let ((_%hd4103641073%_ (let () (declare (not safe)) - (##car _%e4120741239%_))) - (_%tl4120541246%_ + (##car _%e4103741069%_))) + (_%tl4103541076%_ (let () (declare (not safe)) - (##cdr _%e4120741239%_)))) - (if (gx#stx-pair/null? _%tl4120541246%_) - (let ((_g41776_ + (##cdr _%e4103741069%_)))) + (if (gx#stx-pair/null? _%tl4103541076%_) + (let ((_g41603_ (gx#syntax-split-splice - _%tl4120541246%_ + _%tl4103541076%_ '0))) (begin - (let ((_g41777_ + (let ((_g41604_ (let () (declare (not safe)) - (if (##values? _g41776_) - (##vector-length _g41776_) + (if (##values? _g41603_) + (##vector-length _g41603_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41777_ 2))) + (##fx= _g41604_ 2))) (error "Context expects 2 values" - _g41777_))) - (let ((_%target4120841249%_ + _g41604_))) + (let ((_%target4103841079%_ (let () (declare (not safe)) - (##vector-ref _g41776_ 0))) - (_%tl4121041252%_ + (##vector-ref _g41603_ 0))) + (_%tl4104041082%_ (let () (declare (not safe)) - (##vector-ref _g41776_ 1)))) - (if (gx#stx-null? _%tl4121041252%_) - (letrec ((_%loop4121141255%_ - (lambda (_%hd4120941259%_ + (##vector-ref _g41603_ 1)))) + (if (gx#stx-null? _%tl4104041082%_) + (letrec ((_%loop4104141085%_ + (lambda (_%hd4103941089%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body4121541262%_) - (if (gx#stx-pair? _%hd4120941259%_) - (let ((_%e4121241265%_ (gx#syntax-e _%hd4120941259%_))) - (let ((_%lp-hd4121341269%_ + _%body4104541092%_) + (if (gx#stx-pair? _%hd4103941089%_) + (let ((_%e4104241095%_ (gx#syntax-e _%hd4103941089%_))) + (let ((_%lp-hd4104341099%_ (let () (declare (not safe)) - (##car _%e4121241265%_))) - (_%lp-tl4121441272%_ + (##car _%e4104241095%_))) + (_%lp-tl4104441102%_ (let () (declare (not safe)) - (##cdr _%e4121241265%_)))) - (_%loop4121141255%_ - _%lp-tl4121441272%_ - (cons _%lp-hd4121341269%_ _%body4121541262%_)))) - (let ((_%body4121641275%_ (reverse _%body4121541262%_))) - ((lambda (_%L41279%_ _%L41281%_) - (if (gx#identifier? _%L41281%_) + (##cdr _%e4104241095%_)))) + (_%loop4104141085%_ + _%lp-tl4104441102%_ + (cons _%lp-hd4104341099%_ _%body4104541092%_)))) + (let ((_%body4104641105%_ (reverse _%body4104541092%_))) + ((lambda (_%L41109%_ _%L41111%_) + (if (gx#identifier? _%L41111%_) (cons (gx#datum->syntax '#f 'call/cc) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L41281%_ '()) - (foldr (lambda (_%g4129841301%_ + (cons (cons _%L41111%_ '()) + (foldr (lambda (_%g4112841131%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4129941304%_) - (cons _%g4129841301%_ _%g4129941304%_)) + _%g4112941134%_) + (cons _%g4112841131%_ _%g4112941134%_)) '() - _%L41279%_))) + _%L41109%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_%g4119841222%_ _%g4119941226%_))) - _%body4121641275%_ - _%hd4120641243%_)))))) + (_%g4102841052%_ _%g4102941056%_))) + _%body4104641105%_ + _%hd4103641073%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4121141255%_ - _%target4120841249%_ + (_%loop4104141085%_ + _%target4103841079%_ '())) - (_%g4119841222%_ - _%g4119941226%_))))) - (_%g4119841222%_ _%g4119941226%_)))) - (_%g4119841222%_ _%g4119941226%_)))) - (_%g4119841222%_ _%g4119941226%_))))) - (_%g4119741307%_ _%$stx41194%_)))) + (_%g4102841052%_ + _%g4102941056%_))))) + (_%g4102841052%_ _%g4102941056%_)))) + (_%g4102841052%_ _%g4102941056%_)))) + (_%g4102841052%_ _%g4102941056%_))))) + (_%g4102741137%_ _%$stx41024%_)))) (define |gerbil/core/more-sugar[:0:]#unwind-protect| - (lambda (_%$stx41312%_) - (let* ((_%g4131641344%_ - (lambda (_%g4131741340%_) + (lambda (_%$stx41142%_) + (let* ((_%g4114641174%_ + (lambda (_%g4114741170%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4131741340%_))) - (_%g4131541443%_ - (lambda (_%g4131741348%_) - (if (gx#stx-pair? _%g4131741348%_) - (let ((_%e4132341351%_ (gx#syntax-e _%g4131741348%_))) - (let ((_%hd4132241355%_ + _%g4114741170%_))) + (_%g4114541273%_ + (lambda (_%g4114741178%_) + (if (gx#stx-pair? _%g4114741178%_) + (let ((_%e4115341181%_ (gx#syntax-e _%g4114741178%_))) + (let ((_%hd4115241185%_ (let () (declare (not safe)) - (##car _%e4132341351%_))) - (_%tl4132141358%_ + (##car _%e4115341181%_))) + (_%tl4115141188%_ (let () (declare (not safe)) - (##cdr _%e4132341351%_)))) - (if (gx#stx-pair? _%tl4132141358%_) - (let ((_%e4132641361%_ - (gx#syntax-e _%tl4132141358%_))) - (let ((_%hd4132541365%_ + (##cdr _%e4115341181%_)))) + (if (gx#stx-pair? _%tl4115141188%_) + (let ((_%e4115641191%_ + (gx#syntax-e _%tl4115141188%_))) + (let ((_%hd4115541195%_ (let () (declare (not safe)) - (##car _%e4132641361%_))) - (_%tl4132441368%_ + (##car _%e4115641191%_))) + (_%tl4115441198%_ (let () (declare (not safe)) - (##cdr _%e4132641361%_)))) - (if (gx#stx-pair? _%tl4132441368%_) - (let ((_%e4132941371%_ - (gx#syntax-e _%tl4132441368%_))) - (let ((_%hd4132841375%_ + (##cdr _%e4115641191%_)))) + (if (gx#stx-pair? _%tl4115441198%_) + (let ((_%e4115941201%_ + (gx#syntax-e _%tl4115441198%_))) + (let ((_%hd4115841205%_ (let () (declare (not safe)) - (##car _%e4132941371%_))) - (_%tl4132741378%_ + (##car _%e4115941201%_))) + (_%tl4115741208%_ (let () (declare (not safe)) - (##cdr _%e4132941371%_)))) + (##cdr _%e4115941201%_)))) (if (gx#stx-pair/null? - _%tl4132741378%_) - (let ((_g41778_ + _%tl4115741208%_) + (let ((_g41605_ (gx#syntax-split-splice - _%tl4132741378%_ + _%tl4115741208%_ '0))) (begin - (let ((_g41779_ + (let ((_g41606_ (let () (declare (not safe)) (if (##values? - _g41778_) + _g41605_) (##vector-length - _g41778_) + _g41605_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41779_ + (##fx= _g41606_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g41779_))) + (error "Context expects 2 values" _g41606_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4133041381%_ + (let ((_%target4116041211%_ (let () (declare (not safe)) (##vector-ref - _g41778_ + _g41605_ 0))) - (_%tl4133241384%_ + (_%tl4116241214%_ (let () (declare (not safe)) (##vector-ref - _g41778_ + _g41605_ 1)))) (if (gx#stx-null? - _%tl4133241384%_) - (letrec ((_%loop4133341387%_ - (lambda (_%hd4133141391%_ + _%tl4116241214%_) + (letrec ((_%loop4116341217%_ + (lambda (_%hd4116141221%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rest4133741394%_) - (if (gx#stx-pair? _%hd4133141391%_) - (let ((_%e4133441397%_ - (gx#syntax-e _%hd4133141391%_))) - (let ((_%lp-hd4133541401%_ + _%rest4116741224%_) + (if (gx#stx-pair? _%hd4116141221%_) + (let ((_%e4116441227%_ + (gx#syntax-e _%hd4116141221%_))) + (let ((_%lp-hd4116541231%_ (let () (declare (not safe)) - (##car _%e4133441397%_))) - (_%lp-tl4133641404%_ + (##car _%e4116441227%_))) + (_%lp-tl4116641234%_ (let () (declare (not safe)) - (##cdr _%e4133441397%_)))) - (_%loop4133341387%_ - _%lp-tl4133641404%_ - (cons _%lp-hd4133541401%_ - _%rest4133741394%_)))) - (let ((_%rest4133841407%_ - (reverse _%rest4133741394%_))) - ((lambda (_%L41411%_ _%L41413%_ _%L41414%_) + (##cdr _%e4116441227%_)))) + (_%loop4116341217%_ + _%lp-tl4116641234%_ + (cons _%lp-hd4116541231%_ + _%rest4116741224%_)))) + (let ((_%rest4116841237%_ + (reverse _%rest4116741224%_))) + ((lambda (_%L41241%_ _%L41243%_ _%L41244%_) (cons (gx#datum->syntax '#f 'with-unwind-protect) @@ -1329,7 +1311,7 @@ '#f 'lambda) (cons '() - (cons _%L41414%_ + (cons _%L41244%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1338,124 +1320,124 @@ 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L41413%_ - (foldr (lambda (_%g4143441437%_ _%g4143541440%_) - (cons _%g4143441437%_ _%g4143541440%_)) + (cons _%L41243%_ + (foldr (lambda (_%g4126441267%_ _%g4126541270%_) + (cons _%g4126441267%_ _%g4126541270%_)) '() - _%L41411%_)))) + _%L41241%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%rest4133841407%_ - _%hd4132841375%_ - _%hd4132541365%_)))))) - (_%loop4133341387%_ _%target4133041381%_ '())) - (_%g4131641344%_ _%g4131741348%_))))) + _%rest4116841237%_ + _%hd4115841205%_ + _%hd4115541195%_)))))) + (_%loop4116341217%_ _%target4116041211%_ '())) + (_%g4114641174%_ _%g4114741178%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4131641344%_ - _%g4131741348%_)))) - (_%g4131641344%_ _%g4131741348%_)))) - (_%g4131641344%_ _%g4131741348%_)))) - (_%g4131641344%_ _%g4131741348%_))))) - (_%g4131541443%_ _%$stx41312%_)))) + (_%g4114641174%_ + _%g4114741178%_)))) + (_%g4114641174%_ _%g4114741178%_)))) + (_%g4114641174%_ _%g4114741178%_)))) + (_%g4114641174%_ _%g4114741178%_))))) + (_%g4114541273%_ _%$stx41142%_)))) (define |gerbil/core/more-sugar[:0:]#@bytes| - (lambda (_%stx41448%_) - (let* ((_%g4145141465%_ - (lambda (_%g4145241461%_) + (lambda (_%stx41278%_) + (let* ((_%g4128141295%_ + (lambda (_%g4128241291%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4145241461%_))) - (_%g4145041537%_ - (lambda (_%g4145241469%_) - (if (gx#stx-pair? _%g4145241469%_) - (let ((_%e4145641472%_ (gx#syntax-e _%g4145241469%_))) - (let ((_%hd4145541476%_ + _%g4128241291%_))) + (_%g4128041367%_ + (lambda (_%g4128241299%_) + (if (gx#stx-pair? _%g4128241299%_) + (let ((_%e4128641302%_ (gx#syntax-e _%g4128241299%_))) + (let ((_%hd4128541306%_ (let () (declare (not safe)) - (##car _%e4145641472%_))) - (_%tl4145441479%_ + (##car _%e4128641302%_))) + (_%tl4128441309%_ (let () (declare (not safe)) - (##cdr _%e4145641472%_)))) - (if (gx#stx-pair? _%tl4145441479%_) - (let ((_%e4145941482%_ - (gx#syntax-e _%tl4145441479%_))) - (let ((_%hd4145841486%_ + (##cdr _%e4128641302%_)))) + (if (gx#stx-pair? _%tl4128441309%_) + (let ((_%e4128941312%_ + (gx#syntax-e _%tl4128441309%_))) + (let ((_%hd4128841316%_ (let () (declare (not safe)) - (##car _%e4145941482%_))) - (_%tl4145741489%_ + (##car _%e4128941312%_))) + (_%tl4128741319%_ (let () (declare (not safe)) - (##cdr _%e4145941482%_)))) - (if (gx#stx-null? _%tl4145741489%_) - ((lambda (_%L41492%_) - (if (gx#stx-string? _%L41492%_) - (let* ((_%g4150641514%_ - (lambda (_%g4150741510%_) + (##cdr _%e4128941312%_)))) + (if (gx#stx-null? _%tl4128741319%_) + ((lambda (_%L41322%_) + (if (gx#stx-string? _%L41322%_) + (let* ((_%g4133641344%_ + (lambda (_%g4133741340%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4150741510%_))) - (_%g4150541533%_ - (lambda (_%g4150741518%_) - ((lambda (_%L41521%_) - (let () - (cons (gx#datum->syntax + _%g4133741340%_))) + (_%g4133541363%_ + (lambda (_%g4133741348%_) + ((lambda (_%L41351%_) + (cons (gx#datum->syntax + '#f + 'quote) + (cons _%L41351%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L41521%_ '())))) - _%g4150741518%_)))) + '()))) + _%g4133741348%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4150541533%_ + (_%g4133541363%_ (string->bytes - (gx#stx-e _%L41492%_)))) - (_%g4145141465%_ _%g4145241469%_))) - _%hd4145841486%_) - (_%g4145141465%_ _%g4145241469%_)))) - (_%g4145141465%_ _%g4145241469%_)))) - (_%g4145141465%_ _%g4145241469%_))))) - (_%g4145041537%_ _%stx41448%_)))) + (gx#stx-e _%L41322%_)))) + (_%g4128141295%_ _%g4128241299%_))) + _%hd4128841316%_) + (_%g4128141295%_ _%g4128241299%_)))) + (_%g4128141295%_ _%g4128241299%_)))) + (_%g4128141295%_ _%g4128241299%_))))) + (_%g4128041367%_ _%stx41278%_)))) (define |gerbil/core/more-sugar[:0:]#eval-when-compile| - (lambda (_%stx41541%_) - (let* ((_%g4154441558%_ - (lambda (_%g4154541554%_) + (lambda (_%stx41371%_) + (let* ((_%g4137441388%_ + (lambda (_%g4137541384%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4154541554%_))) - (_%g4154341599%_ - (lambda (_%g4154541562%_) - (if (gx#stx-pair? _%g4154541562%_) - (let ((_%e4154941565%_ (gx#syntax-e _%g4154541562%_))) - (let ((_%hd4154841569%_ + _%g4137541384%_))) + (_%g4137341429%_ + (lambda (_%g4137541392%_) + (if (gx#stx-pair? _%g4137541392%_) + (let ((_%e4137941395%_ (gx#syntax-e _%g4137541392%_))) + (let ((_%hd4137841399%_ (let () (declare (not safe)) - (##car _%e4154941565%_))) - (_%tl4154741572%_ + (##car _%e4137941395%_))) + (_%tl4137741402%_ (let () (declare (not safe)) - (##cdr _%e4154941565%_)))) - (if (gx#stx-pair? _%tl4154741572%_) - (let ((_%e4155241575%_ - (gx#syntax-e _%tl4154741572%_))) - (let ((_%hd4155141579%_ + (##cdr _%e4137941395%_)))) + (if (gx#stx-pair? _%tl4137741402%_) + (let ((_%e4138241405%_ + (gx#syntax-e _%tl4137741402%_))) + (let ((_%hd4138141409%_ (let () (declare (not safe)) - (##car _%e4155241575%_))) - (_%tl4155041582%_ + (##car _%e4138241405%_))) + (_%tl4138041412%_ (let () (declare (not safe)) - (##cdr _%e4155241575%_)))) - (if (gx#stx-null? _%tl4155041582%_) - ((lambda (_%L41585%_) + (##cdr _%e4138241405%_)))) + (if (gx#stx-null? _%tl4138041412%_) + ((lambda (_%L41415%_) (if (gx#current-expander-compiling?) - (gx#eval-syntax _%L41585%_) + (gx#eval-syntax _%L41415%_) '#!void) (cons (gx#datum->syntax '#f 'void) '())) - _%hd4155141579%_) - (_%g4154441558%_ _%g4154541562%_)))) - (_%g4154441558%_ _%g4154541562%_)))) - (_%g4154441558%_ _%g4154541562%_))))) - (_%g4154341599%_ _%stx41541%_))))) + _%hd4138141409%_) + (_%g4137441388%_ _%g4137541392%_)))) + (_%g4137441388%_ _%g4137541392%_)))) + (_%g4137441388%_ _%g4137541392%_))))) + (_%g4137341429%_ _%stx41371%_))))) diff --git a/src/bootstrap/gerbil/core/more-sugar~2.scm b/src/bootstrap/gerbil/core/more-sugar~2.scm index cae923f3b..50f7d7508 100644 --- a/src/bootstrap/gerbil/core/more-sugar~2.scm +++ b/src/bootstrap/gerbil/core/more-sugar~2.scm @@ -1,104 +1,104 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/more-sugar[2]#_g41781_| + (define |gerbil/core/more-sugar[2]#_g41608_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41783_| + (define |gerbil/core/more-sugar[2]#_g41610_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41785_| + (define |gerbil/core/more-sugar[2]#_g41612_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41787_| + (define |gerbil/core/more-sugar[2]#_g41614_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41789_| + (define |gerbil/core/more-sugar[2]#_g41616_| (##structure gx#syntax-quote::t 'setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41791_| + (define |gerbil/core/more-sugar[2]#_g41618_| (##structure gx#syntax-quote::t 'setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41793_| + (define |gerbil/core/more-sugar[2]#_g41620_| (##structure gx#syntax-quote::t '&setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41795_| + (define |gerbil/core/more-sugar[2]#_g41622_| (##structure gx#syntax-quote::t '&setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41798_| + (define |gerbil/core/more-sugar[2]#_g41625_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41800_| + (define |gerbil/core/more-sugar[2]#_g41627_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41802_| + (define |gerbil/core/more-sugar[2]#_g41629_| (##structure gx#syntax-quote::t 'setf-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41804_| + (define |gerbil/core/more-sugar[2]#_g41631_| (##structure gx#syntax-quote::t 'setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41806_| + (define |gerbil/core/more-sugar[2]#_g41633_| (##structure gx#syntax-quote::t 'setf-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41808_| + (define |gerbil/core/more-sugar[2]#_g41635_| (##structure gx#syntax-quote::t '&setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41810_| + (define |gerbil/core/more-sugar[2]#_g41637_| (##structure gx#syntax-quote::t '&setf-macro-macro-set! @@ -107,7 +107,7 @@ '())) (begin (define |gerbil/core/more-sugar[:1:]#setq-macro| - (let ((__obj41762 + (let ((__obj41592 (let () (declare (not safe)) (##structure @@ -136,60 +136,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj41762 + __obj41592 'gerbil/core/more-sugar#setq-macro::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41762 'setq-macro '2 '#f '#f)) + (##unchecked-structure-set! __obj41592 'setq-macro '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41762 '() '4 '#f '#f)) - (let ((__tmp41780 (cons |gerbil/core/more-sugar[2]#_g41781_| '()))) + (##unchecked-structure-set! __obj41592 '() '4 '#f '#f)) + (let ((__tmp41607 (cons |gerbil/core/more-sugar[2]#_g41608_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41762 __tmp41780 '3 '#f '#f)) + (##unchecked-structure-set! __obj41592 __tmp41607 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41762 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj41592 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41762 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj41592 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41762 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj41592 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41762 '#f '11 '#f '#f)) - (let ((__tmp41782 |gerbil/core/more-sugar[2]#_g41783_|)) + (##unchecked-structure-set! __obj41592 '#f '11 '#f '#f)) + (let ((__tmp41609 |gerbil/core/more-sugar[2]#_g41610_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41762 __tmp41782 '12 '#f '#f)) - (let ((__tmp41784 |gerbil/core/more-sugar[2]#_g41785_|)) + (##unchecked-structure-set! __obj41592 __tmp41609 '12 '#f '#f)) + (let ((__tmp41611 |gerbil/core/more-sugar[2]#_g41612_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41762 __tmp41784 '13 '#f '#f)) - (let ((__tmp41786 |gerbil/core/more-sugar[2]#_g41787_|)) + (##unchecked-structure-set! __obj41592 __tmp41611 '13 '#f '#f)) + (let ((__tmp41613 |gerbil/core/more-sugar[2]#_g41614_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41762 __tmp41786 '14 '#f '#f)) - (let ((__tmp41788 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41789_|) '()))) + (##unchecked-structure-set! __obj41592 __tmp41613 '14 '#f '#f)) + (let ((__tmp41615 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41616_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41762 __tmp41788 '15 '#f '#f)) - (let ((__tmp41790 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41791_|) '()))) + (##unchecked-structure-set! __obj41592 __tmp41615 '15 '#f '#f)) + (let ((__tmp41617 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41618_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41762 __tmp41790 '16 '#f '#f)) - (let ((__tmp41792 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41793_|) '()))) + (##unchecked-structure-set! __obj41592 __tmp41617 '16 '#f '#f)) + (let ((__tmp41619 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41620_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41762 __tmp41792 '17 '#f '#f)) - (let ((__tmp41794 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41795_|) '()))) + (##unchecked-structure-set! __obj41592 __tmp41619 '17 '#f '#f)) + (let ((__tmp41621 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41622_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41762 __tmp41794 '18 '#f '#f)) - __obj41762)) + (##unchecked-structure-set! __obj41592 __tmp41621 '18 '#f '#f)) + __obj41592)) (define |gerbil/core/more-sugar[:1:]#setf-macro| - (let ((__obj41763 + (let ((__obj41593 (let () (declare (not safe)) (##structure @@ -218,55 +218,55 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj41763 + __obj41593 'gerbil/core/more-sugar#setf-macro::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41763 'setf-macro '2 '#f '#f)) + (##unchecked-structure-set! __obj41593 'setf-macro '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41763 '() '4 '#f '#f)) - (let ((__tmp41796 (cons |gerbil/core/more-sugar[2]#_g41781_| '()))) + (##unchecked-structure-set! __obj41593 '() '4 '#f '#f)) + (let ((__tmp41623 (cons |gerbil/core/more-sugar[2]#_g41608_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41763 __tmp41796 '3 '#f '#f)) + (##unchecked-structure-set! __obj41593 __tmp41623 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41763 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj41593 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41763 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj41593 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41763 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj41593 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41763 '#f '11 '#f '#f)) - (let ((__tmp41797 |gerbil/core/more-sugar[2]#_g41798_|)) + (##unchecked-structure-set! __obj41593 '#f '11 '#f '#f)) + (let ((__tmp41624 |gerbil/core/more-sugar[2]#_g41625_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41763 __tmp41797 '12 '#f '#f)) - (let ((__tmp41799 |gerbil/core/more-sugar[2]#_g41800_|)) + (##unchecked-structure-set! __obj41593 __tmp41624 '12 '#f '#f)) + (let ((__tmp41626 |gerbil/core/more-sugar[2]#_g41627_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41763 __tmp41799 '13 '#f '#f)) - (let ((__tmp41801 |gerbil/core/more-sugar[2]#_g41802_|)) + (##unchecked-structure-set! __obj41593 __tmp41626 '13 '#f '#f)) + (let ((__tmp41628 |gerbil/core/more-sugar[2]#_g41629_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41763 __tmp41801 '14 '#f '#f)) - (let ((__tmp41803 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41804_|) '()))) + (##unchecked-structure-set! __obj41593 __tmp41628 '14 '#f '#f)) + (let ((__tmp41630 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41631_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41763 __tmp41803 '15 '#f '#f)) - (let ((__tmp41805 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41806_|) '()))) + (##unchecked-structure-set! __obj41593 __tmp41630 '15 '#f '#f)) + (let ((__tmp41632 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41633_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41763 __tmp41805 '16 '#f '#f)) - (let ((__tmp41807 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41808_|) '()))) + (##unchecked-structure-set! __obj41593 __tmp41632 '16 '#f '#f)) + (let ((__tmp41634 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41635_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41763 __tmp41807 '17 '#f '#f)) - (let ((__tmp41809 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41810_|) '()))) + (##unchecked-structure-set! __obj41593 __tmp41634 '17 '#f '#f)) + (let ((__tmp41636 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41637_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41763 __tmp41809 '18 '#f '#f)) - __obj41763)))) + (##unchecked-structure-set! __obj41593 __tmp41636 '18 '#f '#f)) + __obj41593)))) diff --git a/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm b/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm index 70649b4e5..fac9a8ca1 100644 --- a/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm +++ b/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm @@ -1,42 +1,42 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core/more-syntax-sugar[:0:]#identifier-rules| - (lambda (_%$stx41813%_) - (let* ((_%g4181741828%_ - (lambda (_%g4181841824%_) + (lambda (_%$stx41640%_) + (let* ((_%g4164441655%_ + (lambda (_%g4164541651%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4181841824%_))) - (_%g4181641858%_ - (lambda (_%g4181841832%_) - (if (gx#stx-pair? _%g4181841832%_) - (let ((_%e4182241835%_ (gx#syntax-e _%g4181841832%_))) - (let ((_%hd4182141839%_ + _%g4164541651%_))) + (_%g4164341685%_ + (lambda (_%g4164541659%_) + (if (gx#stx-pair? _%g4164541659%_) + (let ((_%e4164941662%_ (gx#syntax-e _%g4164541659%_))) + (let ((_%hd4164841666%_ (let () (declare (not safe)) - (##car _%e4182241835%_))) - (_%tl4182041842%_ + (##car _%e4164941662%_))) + (_%tl4164741669%_ (let () (declare (not safe)) - (##cdr _%e4182241835%_)))) - ((lambda (_%L41845%_) + (##cdr _%e4164941662%_)))) + ((lambda (_%L41672%_) (cons (gx#datum->syntax '#f 'make-setq-macro) (cons 'macro: (cons (cons (gx#datum->syntax '#f 'syntax-rules) - _%L41845%_) + _%L41672%_) '())))) - _%tl4182041842%_))) - (_%g4181741828%_ _%g4181841832%_))))) - (_%g4181641858%_ _%$stx41813%_)))) + _%tl4164741669%_))) + (_%g4164441655%_ _%g4164541659%_))))) + (_%g4164341685%_ _%$stx41640%_)))) (define |gerbil/core/more-syntax-sugar[:0:]#quasisyntax| - (lambda (_%$stx41862%_) - (let ((_%g4186541872%_ - (lambda (_%g4186641868%_) + (lambda (_%$stx41689%_) + (let ((_%g4169241699%_ + (lambda (_%g4169341695%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4186641868%_)))) - (_%g4186541872%_ _%$stx41862%_))))) + _%g4169341695%_)))) + (_%g4169241699%_ _%$stx41689%_))))) diff --git a/src/bootstrap/gerbil/core/sugar~1.scm b/src/bootstrap/gerbil/core/sugar~1.scm index 92527b797..f91c151d5 100644 --- a/src/bootstrap/gerbil/core/sugar~1.scm +++ b/src/bootstrap/gerbil/core/sugar~1.scm @@ -1912,30 +1912,29 @@ (cons _%lp-hd38453881%_ _%hd-bind38473874%_)))) (let ((_%hd-bind38483887%_ (reverse _%hd-bind38473874%_))) ((lambda (_%L3891%_) - (let () - (cons _%L3802%_ - (cons (begin - (gx#syntax-check-splice-targets - _%L3800%_ - _%L3891%_) - (foldr (lambda (_%g39083912%_ - _%g39093915%_ - _%g39103917%_) - (cons (cons _%g39093915%_ - (cons _%g39083912%_ + (cons _%L3802%_ + (cons (begin + (gx#syntax-check-splice-targets + _%L3800%_ + _%L3891%_) + (foldr (lambda (_%g39083912%_ + _%g39093915%_ + _%g39103917%_) + (cons (cons _%g39093915%_ + (cons _%g39083912%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - _%g39103917%_)) + '())) + _%g39103917%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '() - _%L3800%_ - _%L3891%_)) - (foldr (lambda (_%g39063920%_ - _%g39073923%_) - (cons _%g39063920%_ - _%g39073923%_)) '() - _%L3798%_))))) + _%L3800%_ + _%L3891%_)) + (foldr (lambda (_%g39063920%_ + _%g39073923%_) + (cons _%g39063920%_ + _%g39073923%_)) + '() + _%L3798%_)))) _%hd-bind38483887%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%loop38433867%_ diff --git a/src/bootstrap/gerbil/core/sugar~2.scm b/src/bootstrap/gerbil/core/sugar~2.scm index 8a647afed..97fad5551 100644 --- a/src/bootstrap/gerbil/core/sugar~2.scm +++ b/src/bootstrap/gerbil/core/sugar~2.scm @@ -1,96 +1,96 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/sugar~Sugar-2[1]#_g21006_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21004_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21007_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21005_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21008_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21006_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21051_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21042_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21052_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21043_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21053_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21044_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21060_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21051_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21061_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21052_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21062_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21053_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21063_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21054_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21064_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21055_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21065_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21056_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21066_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21057_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21067_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21058_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21068_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21059_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21069_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21060_| (##structure gx#syntax-quote::t '<...> @@ -129,9 +129,7 @@ (_%__kont1920919210%_ (lambda () (if (gx#identifier? _%L8688%_) - (if (let () - (declare (not safe)) - (not _%opt?8639%_)) + (if (not _%opt?8639%_) (_%lp8634%_ _%L8686%_ '#f) '#f) '#f)))) @@ -393,9 +391,7 @@ (_%__kont1928919290%_ (lambda () (if (gx#identifier? _%L8229%_) - (if (let () - (declare (not safe)) - (not _%opt?8159%_)) + (if (not _%opt?8159%_) (_%lp8154%_ _%L8227%_ '#f @@ -712,164 +708,159 @@ (let ((_%__kont1948319484%_ (lambda (_%L7627%_ _%L7629%_) (if (gx#identifier? _%L7629%_) - (let () - (_%lp7579%_ - _%L7627%_ - (cons _%L7629%_ _%ids7584%_))) + (_%lp7579%_ + _%L7627%_ + (cons _%L7629%_ _%ids7584%_)) (if (gx#stx-pair? _%L7629%_) - (let () - (let* ((_%g76487662%_ - (lambda (_%g76497658%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g76497658%_))) - (_%g76477704%_ - (lambda (_%g76497666%_) - (if (gx#stx-pair? - _%g76497666%_) - (let ((_%e76537669%_ - (gx#syntax-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g76497666%_))) - (let ((_%hd76527673%_ - (let () (declare (not safe)) (##car _%e76537669%_))) - (_%tl76517676%_ - (let () (declare (not safe)) (##cdr _%e76537669%_)))) - (if (gx#stx-pair? _%tl76517676%_) - (let ((_%e76567679%_ (gx#syntax-e _%tl76517676%_))) - (let ((_%hd76557683%_ - (let () - (declare (not safe)) - (##car _%e76567679%_))) - (_%tl76547686%_ - (let () - (declare (not safe)) - (##cdr _%e76567679%_)))) - (if (gx#stx-null? _%tl76547686%_) - ((lambda (_%L7689%_) - (_%lp7579%_ - _%L7627%_ - (cons _%L7689%_ _%ids7584%_))) - _%hd76527673%_) - (_%g76487662%_ _%g76497666%_)))) - (_%g76487662%_ _%g76497666%_)))) - (_%g76487662%_ _%g76497666%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g76477704%_ _%L7629%_))) + (let* ((_%g76487662%_ + (lambda (_%g76497658%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g76497658%_))) + (_%g76477704%_ + (lambda (_%g76497666%_) + (if (gx#stx-pair? + _%g76497666%_) + (let ((_%e76537669%_ + (gx#syntax-e + _%g76497666%_))) + (let ((_%hd76527673%_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _%e76537669%_))) + (_%tl76517676%_ + (let () (declare (not safe)) (##cdr _%e76537669%_)))) + (if (gx#stx-pair? _%tl76517676%_) + (let ((_%e76567679%_ (gx#syntax-e _%tl76517676%_))) + (let ((_%hd76557683%_ + (let () + (declare (not safe)) + (##car _%e76567679%_))) + (_%tl76547686%_ + (let () + (declare (not safe)) + (##cdr _%e76567679%_)))) + (if (gx#stx-null? _%tl76547686%_) + ((lambda (_%L7689%_) + (_%lp7579%_ + _%L7627%_ + (cons _%L7689%_ _%ids7584%_))) + _%hd76527673%_) + (_%g76487662%_ _%g76497666%_)))) + (_%g76487662%_ _%g76497666%_)))) + (_%g76487662%_ _%g76497666%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g76477704%_ _%L7629%_)) (if (gx#stx-keyword? _%L7629%_) - (let () - (let* ((_%g77107722%_ - (lambda (_%g77117718%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g77117718%_))) - (_%g77097825%_ - (lambda (_%g77117726%_) - (if (gx#stx-pair? - _%g77117726%_) - (let ((_%e77167729%_ + (let* ((_%g77107722%_ + (lambda (_%g77117718%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g77117718%_))) + (_%g77097825%_ + (lambda (_%g77117726%_) + (if (gx#stx-pair? + _%g77117726%_) + (let ((_%e77167729%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g77117726%_))) - (let ((_%hd77157733%_ - (let () - (declare (not safe)) - (##car _%e77167729%_))) - (_%tl77147736%_ - (let () - (declare (not safe)) - (##cdr _%e77167729%_)))) - ((lambda (_%L7739%_ _%L7741%_) - (let* ((_%__stx1945619457%_ _%L7741%_) - (_%g77547768%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx1945619457%_)))) - (let ((_%__kont1945919460%_ - (lambda (_%L7806%_) - (_%lp7579%_ - _%L7739%_ - (cons _%L7806%_ _%ids7584%_)))) - (_%__kont1946119462%_ - (lambda () - (_%lp7579%_ - _%L7739%_ - (cons _%L7741%_ _%ids7584%_))))) - (if (gx#stx-pair? _%__stx1945619457%_) - (let ((_%e77597786%_ - (gx#syntax-e _%__stx1945619457%_))) - (let ((_%tl77577793%_ - (let () - (declare (not safe)) - (##cdr _%e77597786%_))) - (_%hd77587790%_ - (let () - (declare (not safe)) - (##car _%e77597786%_)))) - (if (gx#stx-pair? _%tl77577793%_) - (let ((_%e77627796%_ - (gx#syntax-e - _%tl77577793%_))) - (let ((_%tl77607803%_ - (let () - (declare (not safe)) - (##cdr _%e77627796%_))) - (_%hd77617800%_ - (let () - (declare (not safe)) - (##car _%e77627796%_)))) - (if (gx#stx-null? - _%tl77607803%_) - (_%__kont1945919460%_ - _%hd77587790%_) - (_%__kont1946119462%_)))) - (_%__kont1946119462%_)))) - (_%__kont1946119462%_))))) - _%tl77147736%_ - _%hd77157733%_))) - (_%g77107722%_ _%g77117726%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g77097825%_ _%L7627%_))) + (gx#syntax-e _%g77117726%_))) + (let ((_%hd77157733%_ + (let () + (declare (not safe)) + (##car _%e77167729%_))) + (_%tl77147736%_ + (let () + (declare (not safe)) + (##cdr _%e77167729%_)))) + ((lambda (_%L7739%_ _%L7741%_) + (let* ((_%__stx1945619457%_ _%L7741%_) + (_%g77547768%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx1945619457%_)))) + (let ((_%__kont1945919460%_ + (lambda (_%L7806%_) + (_%lp7579%_ + _%L7739%_ + (cons _%L7806%_ _%ids7584%_)))) + (_%__kont1946119462%_ + (lambda () + (_%lp7579%_ + _%L7739%_ + (cons _%L7741%_ _%ids7584%_))))) + (if (gx#stx-pair? _%__stx1945619457%_) + (let ((_%e77597786%_ + (gx#syntax-e _%__stx1945619457%_))) + (let ((_%tl77577793%_ + (let () + (declare (not safe)) + (##cdr _%e77597786%_))) + (_%hd77587790%_ + (let () + (declare (not safe)) + (##car _%e77597786%_)))) + (if (gx#stx-pair? _%tl77577793%_) + (let ((_%e77627796%_ + (gx#syntax-e _%tl77577793%_))) + (let ((_%tl77607803%_ + (let () + (declare (not safe)) + (##cdr _%e77627796%_))) + (_%hd77617800%_ + (let () + (declare (not safe)) + (##car _%e77627796%_)))) + (if (gx#stx-null? _%tl77607803%_) + (_%__kont1945919460%_ + _%hd77587790%_) + (_%__kont1946119462%_)))) + (_%__kont1946119462%_)))) + (_%__kont1946119462%_))))) + _%tl77147736%_ + _%hd77157733%_))) + (_%g77107722%_ _%g77117726%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g77097825%_ _%L7627%_)) (if (eq? (gx#stx-e _%L7629%_) '#!key) - (let () - (let* ((_%g78317843%_ - (lambda (_%g78327839%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g78327839%_))) - (_%g78307874%_ - (lambda (_%g78327847%_) - (if (gx#stx-pair? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g78327847%_) - (let ((_%e78377850%_ (gx#syntax-e _%g78327847%_))) - (let ((_%hd78367854%_ - (let () - (declare (not safe)) - (##car _%e78377850%_))) - (_%tl78357857%_ - (let () - (declare (not safe)) - (##cdr _%e78377850%_)))) - ((lambda (_%L7860%_ _%L7862%_) - (_%lp7579%_ - _%L7860%_ - (cons _%L7862%_ _%ids7584%_))) - _%tl78357857%_ - _%hd78367854%_))) - (_%g78317843%_ _%g78327847%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g78307874%_ - _%L7627%_))) - (let () - (error '"BUG: check-duplicate-bindings" - _%stx5370%_ - _%rest7582%_)))))))) + (let* ((_%g78317843%_ + (lambda (_%g78327839%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g78327839%_))) + (_%g78307874%_ + (lambda (_%g78327847%_) + (if (gx#stx-pair? + _%g78327847%_) + (let ((_%e78377850%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%g78327847%_))) + (let ((_%hd78367854%_ + (let () + (declare (not safe)) + (##car _%e78377850%_))) + (_%tl78357857%_ + (let () + (declare (not safe)) + (##cdr _%e78377850%_)))) + ((lambda (_%L7860%_ _%L7862%_) + (_%lp7579%_ + _%L7860%_ + (cons _%L7862%_ _%ids7584%_))) + _%tl78357857%_ + _%hd78367854%_))) + (_%g78317843%_ _%g78327847%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g78307874%_ _%L7627%_)) + (error '"BUG: check-duplicate-bindings" + _%stx5370%_ + _%rest7582%_))))))) (_%__kont1948519486%_ (lambda () (gx#check-duplicate-identifiers @@ -1051,20 +1042,19 @@ _%L7524%_ _%L7525%_ _%L7526%_) - (let () - (cons (gx#datum->syntax - '#f - 'lambda%) - (cons (foldr (lambda (_%g75557560%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g75567563%_) - (cons _%g75557560%_ _%g75567563%_)) - (foldr (lambda (_%g75577566%_ _%g75587569%_) - (cons _%g75577566%_ _%g75587569%_)) - _%L7524%_ - _%L7525%_) - _%L7526%_) - _%L7522%_)))) + (cons (gx#datum->syntax + '#f + 'lambda%) + (cons (foldr (lambda (_%g75557560%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g75567563%_) + (cons _%g75557560%_ _%g75567563%_)) + (foldr (lambda (_%g75577566%_ _%g75587569%_) + (cons _%g75577566%_ _%g75587569%_)) + _%L7524%_ + _%L7525%_) + _%L7526%_) + _%L7522%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%hd74087516%_ _%hd74057506%_ @@ -1113,437 +1103,418 @@ _%tail6915%_) (let _%recur6917%_ ((_%opt-rest6920%_ _%opt6914%_) (_%right6922%_ '())) - (if (let () - (declare (not safe)) - (pair? _%opt-rest6920%_)) - (let () - (let* ((_%hd6926%_ (caar _%opt-rest6920%_)) - (_%rest6929%_ (cdr _%opt-rest6920%_)) - (_%right*6932%_ - (cons _%hd6926%_ _%right6922%_)) - (_%g69356952%_ - (lambda (_%g69366948%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g69366948%_))) - (_%g69347136%_ - (lambda (_%g69366956%_) - (if (gx#stx-pair/null? _%g69366956%_) - (let ((_g20973_ - (gx#syntax-split-splice - _%g69366956%_ - '0))) - (begin - (let ((_g20974_ - (let () - (declare (not safe)) - (if (##values? _g20973_) - (##vector-length - _g20973_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g20974_ 2))) - (error "Context expects 2 values" - _g20974_))) - (let ((_%target69386959%_ - (let () - (declare (not safe)) - (##vector-ref - _g20973_ - 0))) - (_%tl69406962%_ - (let () - (declare (not safe)) - (##vector-ref - _g20973_ - 1)))) - (if (gx#stx-null? - _%tl69406962%_) - (letrec ((_%loop69416965%_ - (lambda (_%hd69396969%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pre-bind69456972%_) - (if (gx#stx-pair? _%hd69396969%_) - (let ((_%e69426975%_ (gx#syntax-e _%hd69396969%_))) - (let ((_%lp-hd69436979%_ - (let () - (declare (not safe)) - (##car _%e69426975%_))) - (_%lp-tl69446982%_ - (let () - (declare (not safe)) - (##cdr _%e69426975%_)))) - (_%loop69416965%_ - _%lp-tl69446982%_ - (cons _%lp-hd69436979%_ - _%pre-bind69456972%_)))) - (let ((_%pre-bind69466985%_ - (reverse _%pre-bind69456972%_))) - ((lambda (_%L6989%_) - (let () - (let* ((_%g70117028%_ - (lambda (_%g70127024%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g70127024%_))) - (_%g70107132%_ - (lambda (_%g70127032%_) - (if (gx#stx-pair/null? - _%g70127032%_) - (let ((_g20975_ - (gx#syntax-split-splice - _%g70127032%_ - '0))) - (begin - (let ((_g20976_ - (let () + (if (pair? _%opt-rest6920%_) + (let* ((_%hd6926%_ (caar _%opt-rest6920%_)) + (_%rest6929%_ (cdr _%opt-rest6920%_)) + (_%right*6932%_ + (cons _%hd6926%_ _%right6922%_)) + (_%g69356952%_ + (lambda (_%g69366948%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g69366948%_))) + (_%g69347136%_ + (lambda (_%g69366956%_) + (if (gx#stx-pair/null? _%g69366956%_) + (let ((_g20973_ + (gx#syntax-split-splice + _%g69366956%_ + '0))) + (begin + (let ((_g20974_ + (let () + (declare (not safe)) + (if (##values? _g20973_) + (##vector-length + _g20973_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g20974_ 2))) + (error "Context expects 2 values" + _g20974_))) + (let ((_%target69386959%_ + (let () + (declare (not safe)) + (##vector-ref + _g20973_ + 0))) + (_%tl69406962%_ + (let () + (declare (not safe)) + (##vector-ref + _g20973_ + 1)))) + (if (gx#stx-null? _%tl69406962%_) + (letrec ((_%loop69416965%_ + (lambda (_%hd69396969%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%pre-bind69456972%_) + (if (gx#stx-pair? _%hd69396969%_) + (let ((_%e69426975%_ (gx#syntax-e _%hd69396969%_))) + (let ((_%lp-hd69436979%_ + (let () + (declare (not safe)) + (##car _%e69426975%_))) + (_%lp-tl69446982%_ + (let () + (declare (not safe)) + (##cdr _%e69426975%_)))) + (_%loop69416965%_ + _%lp-tl69446982%_ + (cons _%lp-hd69436979%_ _%pre-bind69456972%_)))) + (let ((_%pre-bind69466985%_ + (reverse _%pre-bind69456972%_))) + ((lambda (_%L6989%_) + (let* ((_%g70117028%_ + (lambda (_%g70127024%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g70127024%_))) + (_%g70107132%_ + (lambda (_%g70127032%_) + (if (gx#stx-pair/null? _%g70127032%_) + (let ((_g20975_ + (gx#syntax-split-splice + _%g70127032%_ + '0))) + (begin + (let ((_g20976_ + (let () + (declare (not safe)) + (if (##values? + _g20975_) + (##vector-length + _g20975_) + 1)))) + (if (not (let () (declare (not safe)) - (if (##values? + (##fx= _g20976_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20975_) - (##vector-length _g20975_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20976_ 2))) - (error "Context expects 2 values" _g20976_))) + 2))) + (error "Context expects 2 values" _g20976_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target70147035%_ - (let () - (declare - (not safe)) - (##vector-ref - _g20975_ - 0))) - (_%tl70167038%_ - (let () - (declare - (not safe)) - (##vector-ref - _g20975_ - 1)))) - (if (gx#stx-null? - _%tl70167038%_) - (letrec ((_%loop70177041%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd70157045%_ _%opt-bind70217048%_) - (if (gx#stx-pair? _%hd70157045%_) - (let ((_%e70187051%_ - (gx#syntax-e _%hd70157045%_))) - (let ((_%lp-hd70197055%_ - (let () - (declare (not safe)) - (##car _%e70187051%_))) - (_%lp-tl70207058%_ - (let () - (declare (not safe)) - (##cdr _%e70187051%_)))) - (_%loop70177041%_ - _%lp-tl70207058%_ - (cons _%lp-hd70197055%_ - _%opt-bind70217048%_)))) - (let ((_%opt-bind70227061%_ - (reverse _%opt-bind70217048%_))) - ((lambda (_%L7065%_) + (let ((_%target70147035%_ + (let () + (declare (not safe)) + (##vector-ref + _g20975_ + 0))) + (_%tl70167038%_ + (let () + (declare (not safe)) + (##vector-ref + _g20975_ + 1)))) + (if (gx#stx-null? + _%tl70167038%_) + (letrec ((_%loop70177041%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd70157045%_ _%opt-bind70217048%_) + (if (gx#stx-pair? _%hd70157045%_) + (let ((_%e70187051%_ + (gx#syntax-e _%hd70157045%_))) + (let ((_%lp-hd70197055%_ (let () - (let* ((_%g70827090%_ - (lambda (_%g70837086%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g70837086%_))) - (_%g70817128%_ - (lambda (_%g70837094%_) - ((lambda (_%L7097%_) - (let () - (cons (list (foldr (lambda (_%g71117116%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g71127119%_) - (cons _%g71117116%_ _%g71127119%_)) - (foldr (lambda (_%g71137122%_ - _%g71147125%_) - (cons _%g71137122%_ - _%g71147125%_)) - (cons _%L7097%_ '()) - _%L7065%_) - _%L6989%_) - (_%generate-opt-clause5383%_ - _%primary6911%_ - (foldr cons (reverse _%right*6932%_) _%pre6913%_) - _%rest6929%_)) - (_%recur6917%_ _%rest6929%_ _%right*6932%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g70837094%_)))) - (_%g70817128%_ _%hd6926%_)))) - _%opt-bind70227061%_)))))) - (_%loop70177041%_ _%target70147035%_ '())) - (_%g70117028%_ _%g70127032%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g70117028%_ - _%g70127032%_))))) - (_%g70107132%_ (reverse _%right6922%_))))) - _%pre-bind69466985%_)))))) - (_%loop69416965%_ _%target69386959%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g69356952%_ - _%g69366956%_))))) - (_%g69356952%_ _%g69366956%_))))) - (_%g69347136%_ _%pre6913%_))) + (declare (not safe)) + (##car _%e70187051%_))) + (_%lp-tl70207058%_ + (let () + (declare (not safe)) + (##cdr _%e70187051%_)))) + (_%loop70177041%_ + _%lp-tl70207058%_ + (cons _%lp-hd70197055%_ + _%opt-bind70217048%_)))) + (let ((_%opt-bind70227061%_ + (reverse _%opt-bind70217048%_))) + ((lambda (_%L7065%_) + (let* ((_%g70827090%_ + (lambda (_%g70837086%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g70837086%_))) + (_%g70817128%_ + (lambda (_%g70837094%_) + ((lambda (_%L7097%_) + (cons (list (foldr (lambda (_%g71117116%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g71127119%_) + (cons _%g71117116%_ _%g71127119%_)) + (foldr (lambda (_%g71137122%_ _%g71147125%_) + (cons _%g71137122%_ _%g71147125%_)) + (cons _%L7097%_ '()) + _%L7065%_) + _%L6989%_) + (_%generate-opt-clause5383%_ + _%primary6911%_ + (foldr cons (reverse _%right*6932%_) _%pre6913%_) + _%rest6929%_)) + (_%recur6917%_ _%rest6929%_ _%right*6932%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g70837094%_)))) + (_%g70817128%_ _%hd6926%_))) + _%opt-bind70227061%_)))))) + (_%loop70177041%_ _%target70147035%_ '())) + (_%g70117028%_ _%g70127032%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g70117028%_ _%g70127032%_))))) + (_%g70107132%_ (reverse _%right6922%_)))) + _%pre-bind69466985%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop69416965%_ + _%target69386959%_ + '())) + (_%g69356952%_ + _%g69366956%_))))) + (_%g69356952%_ _%g69366956%_))))) + (_%g69347136%_ _%pre6913%_)) (if (gx#stx-null? _%tail6915%_) - (let () '()) - (let () - (let* ((_%g71447185%_ - (lambda (_%g71457181%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g71457181%_))) - (_%g71437358%_ - (lambda (_%g71457189%_) - (if (gx#stx-pair? _%g71457189%_) - (let ((_%e71527192%_ - (gx#syntax-e - _%g71457189%_))) - (let ((_%hd71517196%_ - (let () - (declare (not safe)) - (##car _%e71527192%_))) - (_%tl71507199%_ - (let () - (declare (not safe)) - (##cdr _%e71527192%_)))) - (if (gx#stx-pair/null? - _%hd71517196%_) - (let ((_g20977_ - (gx#syntax-split-splice - _%hd71517196%_ - '0))) - (begin - (let ((_g20978_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (if (##values? _g20977_) - (##vector-length _g20977_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20978_ 2))) - (error "Context expects 2 values" _g20978_))) - (let ((_%target71537202%_ - (let () - (declare (not safe)) - (##vector-ref _g20977_ 0))) - (_%tl71557205%_ - (let () - (declare (not safe)) - (##vector-ref _g20977_ 1)))) - (if (gx#stx-null? _%tl71557205%_) - (letrec ((_%loop71567208%_ - (lambda (_%hd71547212%_ _%pre71607215%_) - (if (gx#stx-pair? _%hd71547212%_) - (let ((_%e71577218%_ - (gx#syntax-e _%hd71547212%_))) - (let ((_%lp-hd71587222%_ - (let () - (declare (not safe)) - (##car _%e71577218%_))) - (_%lp-tl71597225%_ - (let () - (declare (not safe)) - (##cdr _%e71577218%_)))) - (_%loop71567208%_ - _%lp-tl71597225%_ - (cons _%lp-hd71587222%_ - _%pre71607215%_)))) - (let ((_%pre71617228%_ - (reverse _%pre71607215%_))) - (if (gx#stx-pair? _%tl71507199%_) - (let ((_%e71647232%_ - (gx#syntax-e - _%tl71507199%_))) - (let ((_%hd71637236%_ - (let () - (declare (not safe)) - (##car _%e71647232%_))) - (_%tl71627239%_ - (let () - (declare (not safe)) - (##cdr _%e71647232%_)))) - (if (gx#stx-pair/null? - _%hd71637236%_) - (let ((_g20979_ - (gx#syntax-split-splice - _%hd71637236%_ - '0))) - (begin - (let ((_g20980_ + '() + (let* ((_%g71447185%_ + (lambda (_%g71457181%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g71457181%_))) + (_%g71437358%_ + (lambda (_%g71457189%_) + (if (gx#stx-pair? _%g71457189%_) + (let ((_%e71527192%_ + (gx#syntax-e + _%g71457189%_))) + (let ((_%hd71517196%_ + (let () + (declare (not safe)) + (##car _%e71527192%_))) + (_%tl71507199%_ + (let () + (declare (not safe)) + (##cdr _%e71527192%_)))) + (if (gx#stx-pair/null? + _%hd71517196%_) + (let ((_g20977_ + (gx#syntax-split-splice + _%hd71517196%_ + '0))) + (begin + (let ((_g20978_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (if (##values? _g20979_) - (##vector-length _g20979_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20980_ 2))) - (error "Context expects 2 values" _g20980_))) - (let ((_%target71657242%_ - (let () - (declare (not safe)) - (##vector-ref _g20979_ 0))) - (_%tl71677245%_ - (let () - (declare (not safe)) - (##vector-ref _g20979_ 1)))) - (if (gx#stx-null? _%tl71677245%_) - (letrec ((_%loop71687248%_ - (lambda (_%hd71667252%_ _%opt71727255%_) - (if (gx#stx-pair? _%hd71667252%_) - (let ((_%e71697258%_ - (gx#syntax-e _%hd71667252%_))) - (let ((_%lp-hd71707262%_ - (let () - (declare (not safe)) - (##car _%e71697258%_))) - (_%lp-tl71717265%_ - (let () - (declare (not safe)) - (##cdr _%e71697258%_)))) - (_%loop71687248%_ - _%lp-tl71717265%_ - (cons _%lp-hd71707262%_ - _%opt71727255%_)))) - (let ((_%opt71737268%_ - (reverse _%opt71727255%_))) - (if (gx#stx-pair? _%tl71627239%_) - (let ((_%e71767272%_ - (gx#syntax-e - _%tl71627239%_))) - (let ((_%hd71757276%_ - (let () - (declare (not safe)) - (##car _%e71767272%_))) - (_%tl71747279%_ - (let () - (declare (not safe)) - (##cdr _%e71767272%_)))) - (if (gx#stx-pair? - _%tl71747279%_) - (let ((_%e71797282%_ - (gx#syntax-e - _%tl71747279%_))) - (let ((_%hd71787286%_ + (declare (not safe)) + (if (##values? _g20977_) + (##vector-length _g20977_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g20978_ 2))) + (error "Context expects 2 values" _g20978_))) + (let ((_%target71537202%_ + (let () (declare (not safe)) (##vector-ref _g20977_ 0))) + (_%tl71557205%_ + (let () + (declare (not safe)) + (##vector-ref _g20977_ 1)))) + (if (gx#stx-null? _%tl71557205%_) + (letrec ((_%loop71567208%_ + (lambda (_%hd71547212%_ _%pre71607215%_) + (if (gx#stx-pair? _%hd71547212%_) + (let ((_%e71577218%_ + (gx#syntax-e _%hd71547212%_))) + (let ((_%lp-hd71587222%_ + (let () + (declare (not safe)) + (##car _%e71577218%_))) + (_%lp-tl71597225%_ + (let () + (declare (not safe)) + (##cdr _%e71577218%_)))) + (_%loop71567208%_ + _%lp-tl71597225%_ + (cons _%lp-hd71587222%_ + _%pre71607215%_)))) + (let ((_%pre71617228%_ + (reverse _%pre71607215%_))) + (if (gx#stx-pair? _%tl71507199%_) + (let ((_%e71647232%_ + (gx#syntax-e + _%tl71507199%_))) + (let ((_%hd71637236%_ + (let () + (declare (not safe)) + (##car _%e71647232%_))) + (_%tl71627239%_ + (let () + (declare (not safe)) + (##cdr _%e71647232%_)))) + (if (gx#stx-pair/null? + _%hd71637236%_) + (let ((_g20979_ + (gx#syntax-split-splice + _%hd71637236%_ + '0))) + (begin + (let ((_g20980_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e71797282%_))) - (_%tl71777289%_ - (let () (declare (not safe)) (##cdr _%e71797282%_)))) - (if (gx#stx-null? _%tl71777289%_) - ((lambda (_%L7292%_ _%L7294%_ _%L7295%_ _%L7296%_) - (let () - (list (list (foldr (lambda (_%g73257330%_ - _%g73267333%_) - (cons _%g73257330%_ - _%g73267333%_)) - (foldr (lambda (_%g73277336%_ - _%g73287339%_) - (cons _%g73277336%_ - _%g73287339%_)) - _%L7294%_ - _%L7295%_) - _%L7296%_) - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'apply) - (cons _%L7292%_ - (foldr (lambda (_%g73417346%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g73427349%_) - (cons _%g73417346%_ _%g73427349%_)) - (foldr (lambda (_%g73437352%_ _%g73447355%_) - (cons _%g73437352%_ _%g73447355%_)) - (cons _%L7294%_ '()) - _%L7295%_) - _%L7296%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx5370%_)))))) - _%hd71787286%_ - _%hd71757276%_ - _%opt71737268%_ - _%pre71617228%_) - (_%g71447185%_ _%g71457189%_)))) - (_%g71447185%_ _%g71457189%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g71447185%_ - _%g71457189%_))))))) - (_%loop71687248%_ _%target71657242%_ '())) - (_%g71447185%_ _%g71457189%_))))) - (_%g71447185%_ _%g71457189%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g71447185%_ - _%g71457189%_))))))) - (_%loop71567208%_ _%target71537202%_ '())) - (_%g71447185%_ _%g71457189%_))))) - (_%g71447185%_ _%g71457189%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g71447185%_ _%g71457189%_))))) - (_%g71437358%_ - (list _%pre6913%_ - (reverse _%right6922%_) - _%tail6915%_ - _%primary6911%_))))))))) - (_%generate-opt-clause5383%_ - (lambda (_%primary6609%_ _%pre6611%_ _%opt6612%_) - (let _%recur6614%_ ((_%opt-rest6617%_ _%opt6612%_) - (_%right6619%_ '())) - (if (let () - (declare (not safe)) - (pair? _%opt-rest6617%_)) - (let* ((_%hd6621%_ (car _%opt-rest6617%_)) - (_%rest6624%_ (cdr _%opt-rest6617%_)) - (_%g66276635%_ - (lambda (_%g66286631%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" + (if (##values? _g20979_) + (##vector-length _g20979_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g20980_ 2))) + (error "Context expects 2 values" _g20980_))) + (let ((_%target71657242%_ + (let () (declare (not safe)) (##vector-ref _g20979_ 0))) + (_%tl71677245%_ + (let () + (declare (not safe)) + (##vector-ref _g20979_ 1)))) + (if (gx#stx-null? _%tl71677245%_) + (letrec ((_%loop71687248%_ + (lambda (_%hd71667252%_ _%opt71727255%_) + (if (gx#stx-pair? _%hd71667252%_) + (let ((_%e71697258%_ + (gx#syntax-e _%hd71667252%_))) + (let ((_%lp-hd71707262%_ + (let () + (declare (not safe)) + (##car _%e71697258%_))) + (_%lp-tl71717265%_ + (let () + (declare (not safe)) + (##cdr _%e71697258%_)))) + (_%loop71687248%_ + _%lp-tl71717265%_ + (cons _%lp-hd71707262%_ + _%opt71727255%_)))) + (let ((_%opt71737268%_ + (reverse _%opt71727255%_))) + (if (gx#stx-pair? _%tl71627239%_) + (let ((_%e71767272%_ + (gx#syntax-e + _%tl71627239%_))) + (let ((_%hd71757276%_ + (let () + (declare (not safe)) + (##car _%e71767272%_))) + (_%tl71747279%_ + (let () + (declare (not safe)) + (##cdr _%e71767272%_)))) + (if (gx#stx-pair? + _%tl71747279%_) + (let ((_%e71797282%_ + (gx#syntax-e + _%tl71747279%_))) + (let ((_%hd71787286%_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _%e71797282%_))) + (_%tl71777289%_ + (let () (declare (not safe)) (##cdr _%e71797282%_)))) + (if (gx#stx-null? _%tl71777289%_) + ((lambda (_%L7292%_ _%L7294%_ _%L7295%_ _%L7296%_) + (list (list (foldr (lambda (_%g73257330%_ _%g73267333%_) + (cons _%g73257330%_ _%g73267333%_)) + (foldr (lambda (_%g73277336%_ + _%g73287339%_) + (cons _%g73277336%_ + _%g73287339%_)) + _%L7294%_ + _%L7295%_) + _%L7296%_) + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'apply) + (cons _%L7292%_ + (foldr (lambda (_%g73417346%_ + _%g73427349%_) + (cons _%g73417346%_ + _%g73427349%_)) + (foldr (lambda (_%g73437352%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g73447355%_) + (cons _%g73437352%_ _%g73447355%_)) + (cons _%L7294%_ '()) + _%L7295%_) + _%L7296%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#stx-source _%stx5370%_))))) + _%hd71787286%_ + _%hd71757276%_ + _%opt71737268%_ + _%pre71617228%_) + (_%g71447185%_ _%g71457189%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g71447185%_ + _%g71457189%_)))) + (_%g71447185%_ _%g71457189%_))))))) + (_%loop71687248%_ _%target71657242%_ '())) + (_%g71447185%_ _%g71457189%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g71447185%_ + _%g71457189%_)))) + (_%g71447185%_ _%g71457189%_))))))) + (_%loop71567208%_ _%target71537202%_ '())) + (_%g71447185%_ _%g71457189%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g71447185%_ + _%g71457189%_)))) + (_%g71447185%_ _%g71457189%_))))) + (_%g71437358%_ + (list _%pre6913%_ + (reverse _%right6922%_) + _%tail6915%_ + _%primary6911%_)))))))) + (_%generate-opt-clause5383%_ + (lambda (_%primary6609%_ _%pre6611%_ _%opt6612%_) + (let _%recur6614%_ ((_%opt-rest6617%_ _%opt6612%_) + (_%right6619%_ '())) + (if (pair? _%opt-rest6617%_) + (let* ((_%hd6621%_ (car _%opt-rest6617%_)) + (_%rest6624%_ (cdr _%opt-rest6617%_)) + (_%g66276635%_ + (lambda (_%g66286631%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" _%g66286631%_))) (_%g66266724%_ (lambda (_%g66286639%_) ((lambda (_%L6642%_) - (let () - (let* ((_%g66586666%_ - (lambda (_%g66596662%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g66596662%_))) - (_%g66576720%_ - (lambda (_%g66596670%_) - ((lambda (_%L6673%_) - (let () - (let* ((_%g66866694%_ - (lambda (_%g66876690%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g66876690%_))) - (_%g66856716%_ - (lambda (_%g66876698%_) - ((lambda (_%L6701%_) - (let () - (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L6642%_ '()) - (cons _%L6673%_ '())) - '()) - (cons _%L6701%_ '()))))) - _%g66876698%_)))) - (_%g66856716%_ - (_%recur6614%_ - _%rest6624%_ - (cons _%L6642%_ _%right6619%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g66596670%_)))) - (_%g66576720%_ (cdr _%hd6621%_))))) + (let* ((_%g66586666%_ + (lambda (_%g66596662%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g66596662%_))) + (_%g66576720%_ + (lambda (_%g66596670%_) + ((lambda (_%L6673%_) + (let* ((_%g66866694%_ + (lambda (_%g66876690%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g66876690%_))) + (_%g66856716%_ + (lambda (_%g66876698%_) + ((lambda (_%L6701%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (gx#datum->syntax '#f 'let-values) + (cons (cons (cons (cons _%L6642%_ '()) + (cons _%L6673%_ '())) + '()) + (cons _%L6701%_ '())))) + _%g66876698%_)))) + (_%g66856716%_ + (_%recur6614%_ _%rest6624%_ (cons _%L6642%_ _%right6619%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g66596670%_)))) + (_%g66576720%_ (cdr _%hd6621%_)))) _%g66286639%_)))) (_%g66266724%_ (car _%hd6621%_))) (let* ((_%g67286765%_ @@ -1701,20 +1672,20 @@ ((lambda (_%L6862%_ _%L6864%_ _%L6865%_) - (let () - (gx#stx-wrap-source - (cons _%L6862%_ - (foldr (lambda (_%g68906895%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g68916898%_) - (cons _%g68906895%_ _%g68916898%_)) - (foldr (lambda (_%g68926901%_ _%g68936904%_) - (cons _%g68926901%_ _%g68936904%_)) - '() - _%L6864%_) - _%L6865%_)) - (gx#stx-source _%stx5370%_)))) + (gx#stx-wrap-source + (cons _%L6862%_ + (foldr (lambda (_%g68906895%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g68916898%_) + (cons _%g68906895%_ _%g68916898%_)) + (foldr (lambda (_%g68926901%_ _%g68936904%_) + (cons _%g68926901%_ _%g68936904%_)) + '() + _%L6864%_) + _%L6865%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#stx-source + _%stx5370%_))) _%hd67586856%_ _%opt67566848%_ _%pre67446808%_) @@ -1744,9 +1715,7 @@ _%body5989%_) (letrec ((_%make-body5991%_ (lambda (_%kwargs6478%_ _%kwvals6480%_) - (if (let () - (declare (not safe)) - (pair? _%kwargs6478%_)) + (if (pair? _%kwargs6478%_) (let* ((_%kwarg6482%_ (car _%kwargs6478%_)) (_%var6485%_ (cadr _%kwarg6482%_)) (_%default6488%_ @@ -1755,107 +1724,107 @@ (_%rest-kwargs6494%_ (cdr _%kwargs6478%_)) (_%rest-kwvals6497%_ - (cdr _%kwvals6480%_))) - (let* ((_%g65026525%_ - (lambda (_%g65036521%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g65036521%_))) - (_%g65016605%_ - (lambda (_%g65036529%_) - (if (gx#stx-pair? - _%g65036529%_) - (let ((_%e65106532%_ - (gx#syntax-e - _%g65036529%_))) - (let ((_%hd65096536%_ - (let () - (declare + (cdr _%kwvals6480%_)) + (_%g65026525%_ + (lambda (_%g65036521%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g65036521%_))) + (_%g65016605%_ + (lambda (_%g65036529%_) + (if (gx#stx-pair? _%g65036529%_) + (let ((_%e65106532%_ + (gx#syntax-e + _%g65036529%_))) + (let ((_%hd65096536%_ + (let () + (declare + (not safe)) + (##car _%e65106532%_))) + (_%tl65086539%_ + (let () + (declare + (not safe)) + (##cdr _%e65106532%_)))) + (if (gx#stx-pair? + _%tl65086539%_) + (let ((_%e65136542%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _%e65106532%_))) - (_%tl65086539%_ - (let () (declare (not safe)) (##cdr _%e65106532%_)))) - (if (gx#stx-pair? _%tl65086539%_) - (let ((_%e65136542%_ (gx#syntax-e _%tl65086539%_))) - (let ((_%hd65126546%_ - (let () - (declare (not safe)) - (##car _%e65136542%_))) - (_%tl65116549%_ - (let () - (declare (not safe)) - (##cdr _%e65136542%_)))) - (if (gx#stx-pair? _%tl65116549%_) - (let ((_%e65166552%_ (gx#syntax-e _%tl65116549%_))) - (let ((_%hd65156556%_ - (let () - (declare (not safe)) - (##car _%e65166552%_))) - (_%tl65146559%_ - (let () - (declare (not safe)) - (##cdr _%e65166552%_)))) - (if (gx#stx-pair? _%tl65146559%_) - (let ((_%e65196562%_ - (gx#syntax-e _%tl65146559%_))) - (let ((_%hd65186566%_ - (let () - (declare (not safe)) - (##car _%e65196562%_))) - (_%tl65176569%_ - (let () - (declare (not safe)) - (##cdr _%e65196562%_)))) - (if (gx#stx-null? _%tl65176569%_) - ((lambda (_%L6572%_ - _%L6574%_ - _%L6575%_ - _%L6576%_) - (let () - (cons (gx#datum->syntax - '#f - 'let-values) - (cons (cons (cons (cons _%L6576%_ + (gx#syntax-e _%tl65086539%_))) + (let ((_%hd65126546%_ + (let () (declare (not safe)) (##car _%e65136542%_))) + (_%tl65116549%_ + (let () + (declare (not safe)) + (##cdr _%e65136542%_)))) + (if (gx#stx-pair? _%tl65116549%_) + (let ((_%e65166552%_ (gx#syntax-e _%tl65116549%_))) + (let ((_%hd65156556%_ + (let () + (declare (not safe)) + (##car _%e65166552%_))) + (_%tl65146559%_ + (let () + (declare (not safe)) + (##cdr _%e65166552%_)))) + (if (gx#stx-pair? _%tl65146559%_) + (let ((_%e65196562%_ + (gx#syntax-e _%tl65146559%_))) + (let ((_%hd65186566%_ + (let () + (declare (not safe)) + (##car _%e65196562%_))) + (_%tl65176569%_ + (let () + (declare (not safe)) + (##cdr _%e65196562%_)))) + (if (gx#stx-null? _%tl65176569%_) + ((lambda (_%L6572%_ + _%L6574%_ + _%L6575%_ + _%L6576%_) + (cons (gx#datum->syntax + '#f + 'let-values) + (cons (cons (cons (cons _%L6576%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - 'eq?) - (cons _%L6575%_ - (cons (gx#datum->syntax + '()) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + 'eq?) + (cons _%L6575%_ + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'absent-value) - '()))) + '#f + 'absent-value) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L6574%_ - (cons _%L6575%_ - '())))) - '())) - '()) - (cons _%L6572%_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd65186566%_ - _%hd65156556%_ - _%hd65126546%_ - _%hd65096536%_) - (_%g65026525%_ _%g65036529%_)))) - (_%g65026525%_ _%g65036529%_)))) - (_%g65026525%_ _%g65036529%_)))) - (_%g65026525%_ _%g65036529%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g65026525%_ - _%g65036529%_))))) - (_%g65016605%_ - (list _%var6485%_ - _%kwval6491%_ - _%default6488%_ - (_%make-body5991%_ - _%rest-kwargs6494%_ - _%rest-kwvals6497%_))))) + (cons _%L6574%_ + (cons _%L6575%_ '())))) + '())) + '()) + (cons _%L6572%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd65186566%_ + _%hd65156556%_ + _%hd65126546%_ + _%hd65096536%_) + (_%g65026525%_ _%g65036529%_)))) + (_%g65026525%_ _%g65036529%_)))) + (_%g65026525%_ _%g65036529%_)))) + (_%g65026525%_ _%g65036529%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g65026525%_ + _%g65036529%_))))) + (_%g65016605%_ + (list _%var6485%_ + _%kwval6491%_ + _%default6488%_ + (_%make-body5991%_ + _%rest-kwargs6494%_ + _%rest-kwvals6497%_)))) (cons 'begin _%body5989%_)))) (_%make-main5993%_ (lambda () @@ -1868,118 +1837,112 @@ (_%g62856470%_ (lambda (_%g62876298%_) ((lambda (_%L6301%_) - (let () - (let* ((_%g63136330%_ - (lambda (_%g63146326%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g63146326%_))) - (_%g63126466%_ - (lambda (_%g63146334%_) - (if (gx#stx-pair/null? - _%g63146334%_) - (let ((_g20985_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g63146334%_ '0))) - (begin - (let ((_g20986_ - (let () - (declare (not safe)) - (if (##values? _g20985_) - (##vector-length _g20985_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g20986_ 2))) - (error "Context expects 2 values" _g20986_))) - (let ((_%target63166337%_ - (let () - (declare (not safe)) - (##vector-ref _g20985_ 0))) - (_%tl63186340%_ - (let () - (declare (not safe)) - (##vector-ref _g20985_ 1)))) - (if (gx#stx-null? _%tl63186340%_) - (letrec ((_%loop63196343%_ - (lambda (_%hd63176347%_ - _%kwval63236350%_) - (if (gx#stx-pair? _%hd63176347%_) - (let ((_%e63206353%_ - (gx#syntax-e - _%hd63176347%_))) - (let ((_%lp-hd63216357%_ - (let () - (declare (not safe)) - (##car _%e63206353%_))) - (_%lp-tl63226360%_ - (let () - (declare (not safe)) - (##cdr _%e63206353%_)))) - (_%loop63196343%_ - _%lp-tl63226360%_ - (cons _%lp-hd63216357%_ - _%kwval63236350%_)))) - (let ((_%kwval63246363%_ - (reverse _%kwval63236350%_))) - ((lambda (_%L6367%_) - (let () - (let* ((_%g63846392%_ - (lambda (_%g63856388%_) - (gx#raise-syntax-error + (let* ((_%g63136330%_ + (lambda (_%g63146326%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g63146326%_))) + (_%g63126466%_ + (lambda (_%g63146334%_) + (if (gx#stx-pair/null? + _%g63146334%_) + (let ((_g20985_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '"Bad syntax; invalid match target" - _%g63856388%_))) - (_%g63836462%_ - (lambda (_%g63856396%_) - ((lambda (_%L6399%_) - (let () - (let* ((_%g64126420%_ - (lambda (_%g64136416%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g64136416%_))) - (_%g64116450%_ - (lambda (_%g64136424%_) - ((lambda (_%L6427%_) - (let () - (gx#stx-wrap-source - (cons (gx#datum->syntax - '#f - 'lambda) - (cons (cons _%L6301%_ - (foldr (lambda (_%g64416444%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g64426447%_) - (cons _%g64416444%_ _%g64426447%_)) - _%L6399%_ - _%L6367%_)) - (cons _%L6427%_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx5370%_)))) - _%g64136424%_)))) - (_%g64116450%_ - (_%make-body5991%_ - _%kwargs5987%_ - (foldr (lambda (_%g64536456%_ _%g64546459%_) - (cons _%g64536456%_ _%g64546459%_)) - '() - _%L6367%_)))))) - _%g63856396%_)))) - (_%g63836462%_ _%args5988%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%kwval63246363%_)))))) - (_%loop63196343%_ _%target63166337%_ '())) - (_%g63136330%_ _%g63146334%_))))) - (_%g63136330%_ _%g63146334%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g63126466%_ - (gx#gentemps - (map cadr - _%kwargs5987%_)))))) + (gx#syntax-split-splice _%g63146334%_ '0))) + (begin + (let ((_g20986_ + (let () + (declare (not safe)) + (if (##values? _g20985_) + (##vector-length _g20985_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g20986_ 2))) + (error "Context expects 2 values" _g20986_))) + (let ((_%target63166337%_ + (let () + (declare (not safe)) + (##vector-ref _g20985_ 0))) + (_%tl63186340%_ + (let () + (declare (not safe)) + (##vector-ref _g20985_ 1)))) + (if (gx#stx-null? _%tl63186340%_) + (letrec ((_%loop63196343%_ + (lambda (_%hd63176347%_ + _%kwval63236350%_) + (if (gx#stx-pair? _%hd63176347%_) + (let ((_%e63206353%_ + (gx#syntax-e + _%hd63176347%_))) + (let ((_%lp-hd63216357%_ + (let () + (declare (not safe)) + (##car _%e63206353%_))) + (_%lp-tl63226360%_ + (let () + (declare (not safe)) + (##cdr _%e63206353%_)))) + (_%loop63196343%_ + _%lp-tl63226360%_ + (cons _%lp-hd63216357%_ + _%kwval63236350%_)))) + (let ((_%kwval63246363%_ + (reverse _%kwval63236350%_))) + ((lambda (_%L6367%_) + (let* ((_%g63846392%_ + (lambda (_%g63856388%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g63856388%_))) + (_%g63836462%_ + (lambda (_%g63856396%_) + ((lambda (_%L6399%_) + (let* ((_%g64126420%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g64136416%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g64136416%_))) + (_%g64116450%_ + (lambda (_%g64136424%_) + ((lambda (_%L6427%_) + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'lambda) + (cons (cons _%L6301%_ + (foldr (lambda (_%g64416444%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g64426447%_) + (cons _%g64416444%_ _%g64426447%_)) + _%L6399%_ + _%L6367%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%L6427%_ '()))) + (gx#stx-source _%stx5370%_))) + _%g64136424%_)))) + (_%g64116450%_ + (_%make-body5991%_ + _%kwargs5987%_ + (foldr (lambda (_%g64536456%_ _%g64546459%_) + (cons _%g64536456%_ _%g64546459%_)) + '() + _%L6367%_))))) + _%g63856396%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g63836462%_ + _%args5988%_))) + _%kwval63246363%_)))))) + (_%loop63196343%_ _%target63166337%_ '())) + (_%g63136330%_ _%g63146334%_))))) + (_%g63136330%_ _%g63146334%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g63126466%_ + (gx#gentemps + (map cadr _%kwargs5987%_))))) _%g62876298%_)))) (_%g62856470%_ (let ((_%$e6474%_ _%key5985%_)) @@ -1998,128 +1961,124 @@ (_%g60966276%_ (lambda (_%g60986109%_) ((lambda (_%L6112%_) - (let () - (let* ((_%g61246141%_ - (lambda (_%g61256137%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g61256137%_))) - (_%g61236237%_ - (lambda (_%g61256145%_) - (if (gx#stx-pair/null? - _%g61256145%_) - (let ((_g20987_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g61256145%_ '0))) - (begin - (let ((_g20988_ - (let () - (declare (not safe)) - (if (##values? _g20987_) - (##vector-length _g20987_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g20988_ 2))) - (error "Context expects 2 values" _g20988_))) - (let ((_%target61276148%_ - (let () - (declare (not safe)) - (##vector-ref _g20987_ 0))) - (_%tl61296151%_ - (let () - (declare (not safe)) - (##vector-ref _g20987_ 1)))) - (if (gx#stx-null? _%tl61296151%_) - (letrec ((_%loop61306154%_ - (lambda (_%hd61286158%_ - _%get-kw61346161%_) - (if (gx#stx-pair? _%hd61286158%_) - (let ((_%e61316164%_ - (gx#syntax-e - _%hd61286158%_))) - (let ((_%lp-hd61326168%_ - (let () - (declare (not safe)) - (##car _%e61316164%_))) - (_%lp-tl61336171%_ - (let () - (declare (not safe)) - (##cdr _%e61316164%_)))) - (_%loop61306154%_ - _%lp-tl61336171%_ - (cons _%lp-hd61326168%_ - _%get-kw61346161%_)))) - (let ((_%get-kw61356174%_ - (reverse _%get-kw61346161%_))) - ((lambda (_%L6178%_) - (let () - (let* ((_%g61956203%_ - (lambda (_%g61966199%_) - (gx#raise-syntax-error + (let* ((_%g61246141%_ + (lambda (_%g61256137%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g61256137%_))) + (_%g61236237%_ + (lambda (_%g61256145%_) + (if (gx#stx-pair/null? + _%g61256145%_) + (let ((_g20987_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '"Bad syntax; invalid match target" - _%g61966199%_))) - (_%g61946233%_ - (lambda (_%g61966207%_) - ((lambda (_%L6210%_) - (let () - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L6112%_ - (gx#datum->syntax '#f 'args)) - (cons (cons (gx#datum->syntax - '#f - 'apply) - (cons _%L6210%_ - (cons _%L6112%_ + (gx#syntax-split-splice _%g61256145%_ '0))) + (begin + (let ((_g20988_ + (let () + (declare (not safe)) + (if (##values? _g20987_) + (##vector-length _g20987_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g20988_ 2))) + (error "Context expects 2 values" _g20988_))) + (let ((_%target61276148%_ + (let () + (declare (not safe)) + (##vector-ref _g20987_ 0))) + (_%tl61296151%_ + (let () + (declare (not safe)) + (##vector-ref _g20987_ 1)))) + (if (gx#stx-null? _%tl61296151%_) + (letrec ((_%loop61306154%_ + (lambda (_%hd61286158%_ + _%get-kw61346161%_) + (if (gx#stx-pair? _%hd61286158%_) + (let ((_%e61316164%_ + (gx#syntax-e + _%hd61286158%_))) + (let ((_%lp-hd61326168%_ + (let () + (declare (not safe)) + (##car _%e61316164%_))) + (_%lp-tl61336171%_ + (let () + (declare (not safe)) + (##cdr _%e61316164%_)))) + (_%loop61306154%_ + _%lp-tl61336171%_ + (cons _%lp-hd61326168%_ + _%get-kw61346161%_)))) + (let ((_%get-kw61356174%_ + (reverse _%get-kw61346161%_))) + ((lambda (_%L6178%_) + (let* ((_%g61956203%_ + (lambda (_%g61966199%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g61966199%_))) + (_%g61946233%_ + (lambda (_%g61966207%_) + ((lambda (_%L6210%_) + (gx#stx-wrap-source + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g62246227%_ _%g62256230%_) - (cons _%g62246227%_ _%g62256230%_)) - (cons (gx#datum->syntax '#f 'args) '()) - _%L6178%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (gx#stx-source _%stx5370%_)))) - _%g61966207%_)))) - (_%g61946233%_ _%main6094%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%get-kw61356174%_)))))) - (_%loop61306154%_ _%target61276148%_ '())) - (_%g61246141%_ _%g61256145%_))))) - (_%g61246141%_ _%g61256145%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g61236237%_ - (map (lambda (_%kwarg6241%_) - (let* ((_%g62446252%_ + '#f + 'lambda) + (cons (cons _%L6112%_ + (gx#datum->syntax '#f 'args)) + (cons (cons (gx#datum->syntax '#f 'apply) + (cons _%L6210%_ + (cons _%L6112%_ + (foldr (lambda (_%g62246227%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g62256230%_) + (cons _%g62246227%_ _%g62256230%_)) + (cons (gx#datum->syntax '#f 'args) '()) + _%L6178%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (gx#stx-source _%stx5370%_))) + _%g61966207%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g61946233%_ + _%main6094%_))) + _%get-kw61356174%_)))))) + (_%loop61306154%_ _%target61276148%_ '())) + (_%g61246141%_ _%g61256145%_))))) + (_%g61246141%_ _%g61256145%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g61236237%_ + (map (lambda (_%kwarg6241%_) + (let* ((_%g62446252%_ + (lambda (_%g62456248%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g62456248%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g62456248%_))) - (_%g62436272%_ - (lambda (_%g62456256%_) - ((lambda (_%L6259%_) - (let () - (cons (gx#datum->syntax - '#f - 'symbolic-table-ref) - (cons _%L6112%_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L6259%_ '())) - (cons (gx#datum->syntax - '#f - 'absent-value) - '())))))) - _%g62456256%_)))) - (_%g62436272%_ (car _%kwarg6241%_)))) - _%kwargs5987%_))))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g62456248%_))) + (_%g62436272%_ + (lambda (_%g62456256%_) + ((lambda (_%L6259%_) + (cons (gx#datum->syntax '#f 'symbolic-table-ref) + (cons _%L6112%_ + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%L6259%_ '())) + (cons (gx#datum->syntax + '#f + 'absent-value) + '()))))) + _%g62456256%_)))) + (_%g62436272%_ (car _%kwarg6241%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%kwargs5987%_)))) _%g60986109%_)))) (_%g60966276%_ (let ((_%$e6280%_ _%key5985%_)) @@ -2136,39 +2095,39 @@ (_%g59956090%_ (lambda (_%g59976008%_) ((lambda (_%L6011%_) - (let () - (let* ((_%g60246032%_ - (lambda (_%g60256028%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g60256028%_))) - (_%g60236086%_ - (lambda (_%g60256036%_) - ((lambda (_%L6039%_) - (let () - (let* ((_%g60526060%_ - (lambda (_%g60536056%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g60536056%_))) - (_%g60516082%_ - (lambda (_%g60536064%_) - ((lambda (_%L6067%_) + (let* ((_%g60246032%_ + (lambda (_%g60256028%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g60256028%_))) + (_%g60236086%_ + (lambda (_%g60256036%_) + ((lambda (_%L6039%_) + (let* ((_%g60526060%_ + (lambda (_%g60536056%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g60536056%_))) + (_%g60516082%_ + (lambda (_%g60536064%_) + ((lambda (_%L6067%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L6011%_ '()) - (cons _%L6067%_ '())) - '()) - (cons _%L6039%_ '()))))) - _%g60536064%_)))) - (_%g60516082%_ (_%make-main5993%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g60256036%_)))) - (_%g60236086%_ - (_%make-dispatch5994%_ _%L6011%_))))) + '#f + 'let-values) + (cons (cons (cons (cons _%L6011%_ '()) + (cons _%L6067%_ '())) + '()) + (cons _%L6039%_ '())))) + _%g60536064%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g60516082%_ + (_%make-main5993%_)))) + _%g60256036%_)))) + (_%g60236086%_ + (_%make-dispatch5994%_ _%L6011%_)))) _%g59976008%_)))) (_%g59956090%_ (gx#genident 'kw-lambda-main)))))) (_%generate-kw-dispatch5385%_ @@ -2223,21 +2182,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%L5961%_ _%L5962%_) - (let () - (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L5959%_ - (cons (cons (gx#datum->syntax '#f 'apply) - (cons (gx#datum->syntax - '#f - 'keyword-dispatch) - (cons (cons (gx#datum->syntax + (cons (gx#datum->syntax '#f 'lambda%) + (cons _%L5959%_ + (cons (cons (gx#datum->syntax '#f 'apply) + (cons (gx#datum->syntax + '#f + 'keyword-dispatch) + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%L5962%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L5962%_ '())) - (cons _%L5961%_ (cons _%L5959%_ '()))))) + '())) + (cons _%L5961%_ (cons _%L5959%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) + '())))) _%hd59155953%_ _%hd59125943%_ _%hd59095933%_) @@ -2262,7 +2221,7 @@ (declare (not safe)) (##make-vector __tmp20993 '#f)))) (let _%lp5881%_ ((_%rest5884%_ _%kws5872%_)) - (if (let () (declare (not safe)) (pair? _%rest5884%_)) + (if (pair? _%rest5884%_) (let* ((_%key5887%_ (car _%rest5884%_)) (_%rest5890%_ (cdr _%rest5884%_)) (_%pos5893%_ @@ -2341,121 +2300,119 @@ (_%g56445822%_ (lambda (_%g56465657%_) ((lambda (_%L5660%_) - (let () - (let* ((_%g56735681%_ - (lambda (_%g56745677%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g56745677%_))) - (_%g56725818%_ - (lambda (_%g56745685%_) - ((lambda (_%L5688%_) - (let () - (let* ((_%g57015718%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g57025714%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g57025714%_))) - (_%g57005814%_ - (lambda (_%g57025722%_) - (if (gx#stx-pair/null? _%g57025722%_) - (let ((_g20996_ - (gx#syntax-split-splice - _%g57025722%_ - '0))) - (begin - (let ((_g20997_ - (let () + (let* ((_%g56735681%_ + (lambda (_%g56745677%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g56745677%_))) + (_%g56725818%_ + (lambda (_%g56745685%_) + ((lambda (_%L5688%_) + (let* ((_%g57015718%_ + (lambda (_%g57025714%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g57025714%_))) + (_%g57005814%_ + (lambda (_%g57025722%_) + (if (gx#stx-pair/null? +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g57025722%_) + (let ((_g20996_ + (gx#syntax-split-splice _%g57025722%_ '0))) + (begin + (let ((_g20997_ + (let () + (declare (not safe)) + (if (##values? _g20996_) + (##vector-length _g20996_) + 1)))) + (if (not (let () (declare (not safe)) - (if (##values? _g20996_) - (##vector-length _g20996_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g20997_ 2))) - (error "Context expects 2 values" - _g20997_))) - (let ((_%target57045725%_ - (let () - (declare (not safe)) - (##vector-ref _g20996_ 0))) - (_%tl57065728%_ - (let () - (declare (not safe)) - (##vector-ref _g20996_ 1)))) - (if (gx#stx-null? _%tl57065728%_) - (letrec ((_%loop57075731%_ - (lambda (_%hd57055735%_ - _%clause57115738%_) - (if (gx#stx-pair? - _%hd57055735%_) - (let ((_%e57085741%_ - (gx#syntax-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd57055735%_))) - (let ((_%lp-hd57095745%_ - (let () (declare (not safe)) (##car _%e57085741%_))) - (_%lp-tl57105748%_ - (let () (declare (not safe)) (##cdr _%e57085741%_)))) - (_%loop57075731%_ - _%lp-tl57105748%_ - (cons _%lp-hd57095745%_ _%clause57115738%_)))) - (let ((_%clause57125751%_ (reverse _%clause57115738%_))) - ((lambda (_%L5755%_) - (let () - (let* ((_%g57725780%_ - (lambda (_%g57735776%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g57735776%_))) - (_%g57715802%_ - (lambda (_%g57735784%_) - ((lambda (_%L5787%_) - (let () - (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L5660%_ + (##fx= _g20997_ 2))) + (error "Context expects 2 values" + _g20997_))) + (let ((_%target57045725%_ + (let () + (declare (not safe)) + (##vector-ref _g20996_ 0))) + (_%tl57065728%_ + (let () + (declare (not safe)) + (##vector-ref _g20996_ 1)))) + (if (gx#stx-null? _%tl57065728%_) + (letrec ((_%loop57075731%_ + (lambda (_%hd57055735%_ + _%clause57115738%_) + (if (gx#stx-pair? + _%hd57055735%_) + (let ((_%e57085741%_ + (gx#syntax-e + _%hd57055735%_))) + (let ((_%lp-hd57095745%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _%L5688%_ '())) - '()) + (not safe)) + (##car _%e57085741%_))) + (_%lp-tl57105748%_ + (let () (declare (not safe)) (##cdr _%e57085741%_)))) + (_%loop57075731%_ + _%lp-tl57105748%_ + (cons _%lp-hd57095745%_ _%clause57115738%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%clause57125751%_ + (reverse _%clause57115738%_))) + ((lambda (_%L5755%_) + (let* ((_%g57725780%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g57735776%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g57735776%_))) + (_%g57715802%_ + (lambda (_%g57735784%_) + ((lambda (_%L5787%_) + (cons (gx#datum->syntax '#f 'let-values) + (cons (cons (cons (cons _%L5660%_ '()) + (cons _%L5688%_ '())) + '()) + (cons _%L5787%_ '())))) + _%g57735784%_)))) + (_%g57715802%_ + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'case-lambda) + (foldr (lambda (_%g58055808%_ _%g58065811%_) + (cons _%g58055808%_ _%g58065811%_)) + '() + _%L5755%_)) + (gx#stx-source _%stx5370%_))))) + _%clause57125751%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L5787%_ '()))))) - _%g57735784%_)))) - (_%g57715802%_ - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g58055808%_ _%g58065811%_) - (cons _%g58055808%_ _%g58065811%_)) - '() - _%L5755%_)) - (gx#stx-source _%stx5370%_)))))) - _%clause57125751%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop57075731%_ - _%target57045725%_ - '())) - (_%g57015718%_ _%g57025722%_))))) - (_%g57015718%_ _%g57025722%_))))) - (_%g57005814%_ - (_%generate-opt-dispatch5381%_ - _%L5660%_ - _%pre5640%_ - _%opt5642%_ - _%tail5643%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g56745685%_)))) - (_%g56725818%_ - (gx#stx-wrap-source - (_%generate-opt-primary5380%_ - _%pre5640%_ - _%opt5642%_ - _%tail5643%_ - _%L5625%_) - (gx#stx-source _%stx5370%_)))))) + (_%loop57075731%_ + _%target57045725%_ + '())) + (_%g57015718%_ _%g57025722%_))))) + (_%g57015718%_ _%g57025722%_))))) + (_%g57005814%_ + (_%generate-opt-dispatch5381%_ + _%L5660%_ + _%pre5640%_ + _%opt5642%_ + _%tail5643%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g56745685%_)))) + (_%g56725818%_ + (gx#stx-wrap-source + (_%generate-opt-primary5380%_ + _%pre5640%_ + _%opt5642%_ + _%tail5643%_ + _%L5625%_) + (gx#stx-source _%stx5370%_))))) _%g56465657%_)))) (_%g56445822%_ (gx#genident 'opt-lambda)))))))) (_%__kont1950319504%_ @@ -2504,57 +2461,50 @@ (_%g54905590%_ (lambda (_%g54925503%_) ((lambda (_%L5506%_) - (let () - (let* ((_%g55245532%_ - (lambda (_%g55255528%_) + (let* ((_%g55245532%_ + (lambda (_%g55255528%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g55255528%_))) + (_%g55235586%_ + (lambda (_%g55255536%_) + ((lambda (_%L5539%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g55255528%_))) - (_%g55235586%_ - (lambda (_%g55255536%_) - ((lambda (_%L5539%_) - (let () - (let* ((_%g55525560%_ - (lambda (_%g55535556%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g55535556%_))) - (_%g55515582%_ - (lambda (_%g55535564%_) - ((lambda (_%L5567%_) - (let () - (cons (gx#datum->syntax - '#f - 'let-values) - (cons (cons (cons (cons _%L5506%_ + (let* ((_%g55525560%_ + (lambda (_%g55535556%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g55535556%_))) + (_%g55515582%_ + (lambda (_%g55535564%_) + ((lambda (_%L5567%_) + (cons (gx#datum->syntax '#f 'let-values) + (cons (cons (cons (cons _%L5506%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons _%L5539%_ '())) - '()) - (cons _%L5567%_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g55535564%_)))) - (_%g55515582%_ - (gx#stx-wrap-source - (_%generate-kw-dispatch5385%_ - _%L5506%_ - _%kwargs5488%_ - (let () - (declare (not safe)) - (not _%key5486%_))) - (gx#stx-source _%stx5370%_)))))) - _%g55255536%_)))) - (_%g55235586%_ - (gx#stx-wrap-source - (_%generate-kw-primary5384%_ - _%key5486%_ - _%kwargs5488%_ - _%args5489%_ - _%L5448%_) - (gx#stx-source _%stx5370%_)))))) + '()) + (cons _%L5539%_ '())) + '()) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%L5567%_ '())))) + _%g55535564%_)))) + (_%g55515582%_ + (gx#stx-wrap-source + (_%generate-kw-dispatch5385%_ + _%L5506%_ + _%kwargs5488%_ + (not _%key5486%_)) + (gx#stx-source _%stx5370%_))))) + _%g55255536%_)))) + (_%g55235586%_ + (gx#stx-wrap-source + (_%generate-kw-primary5384%_ + _%key5486%_ + _%kwargs5488%_ + _%args5489%_ + _%L5448%_) + (gx#stx-source _%stx5370%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%g54925503%_)))) (_%g54905590%_ @@ -3377,14 +3327,13 @@ (_%g1246112489%_ (lambda (_%g1246312474%_) ((lambda (_%L12477%_) - (let () - (_%lp11935%_ - '() - _%datums11940%_ - _%dispatch11941%_ - (cons _%L12447%_ + (_%lp11935%_ + '() + _%datums11940%_ + _%dispatch11941%_ + (cons _%L12447%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L12477%_ '()))))) + (cons _%L12477%_ '())))) _%g1246312474%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%g1246112489%_ _%e11931%_)) @@ -3417,16 +3366,13 @@ _%L11991%_)))) (_%__kont1964719648%_ (lambda (_%L12272%_ _%L12274%_) - (if (let ((__tmp21004 - (foldr (lambda (_%g1229212295%_ + (if (null? (foldr (lambda (_%g1229212295%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%g1229312298%_) (cons _%g1229212295%_ _%g1229312298%_)) '() - _%L12274%_))) + _%L12274%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (null? __tmp21004)) (_%lp11935%_ _%L11989%_ _%datums11940%_ @@ -3441,37 +3387,33 @@ (_%g1230012336%_ (lambda (_%g1230212313%_) ((lambda (_%L12316%_) - (let () - (_%lp11935%_ - _%L11989%_ - (cons (map gx#stx-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g1232712330%_ - _%g1232812333%_) - (cons _%g1232712330%_ - _%g1232812333%_)) - '() - _%L12274%_)) - _%datums11940%_) - (cons (cons _%L12272%_ (cons _%L12316%_ '())) - _%dispatch11941%_) - _%default11942%_))) + (_%lp11935%_ + _%L11989%_ + (cons (map gx#stx-e +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (foldr (lambda (_%g1232712330%_ + _%g1232812333%_) + (cons _%g1232712330%_ + _%g1232812333%_)) + '() + _%L12274%_)) + _%datums11940%_) + (cons (cons _%L12272%_ (cons _%L12316%_ '())) + _%dispatch11941%_) + _%default11942%_)) _%g1230212313%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%g1230012336%_ _%e11931%_))))) (_%__kont1965119652%_ (lambda (_%L12159%_ _%L12161%_) - (if (let ((__tmp21005 - (foldr (lambda (_%g1218012183%_ + (if (null? (foldr (lambda (_%g1218012183%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%g1218112186%_) (cons _%g1218012183%_ _%g1218112186%_)) '() - _%L12161%_))) + _%L12161%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (null? __tmp21005)) (_%lp11935%_ _%L11989%_ _%datums11940%_ @@ -3621,7 +3563,7 @@ (##car _%e1205012252%_)))) (if (gx#identifier? _%hd1204912256%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21006_| + |gerbil/core/sugar~Sugar-2[1]#_g21004_| _%hd1204912256%_) (if (gx#stx-pair? _%tl1204812259%_) (let ((_%e1205312262%_ @@ -3724,7 +3666,7 @@ (if (gx#identifier? _%hd1201312421%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21007_| + |gerbil/core/sugar~Sugar-2[1]#_g21005_| _%hd1201312421%_) (if (gx#stx-pair? _%tl1201212424%_) @@ -3741,7 +3683,7 @@ (##car _%e1201712427%_)))) (if (gx#identifier? _%hd1201612431%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21008_| + |gerbil/core/sugar~Sugar-2[1]#_g21006_| _%hd1201612431%_) (if (gx#stx-pair? _%tl1201512434%_) (let ((_%e1202012437%_ @@ -4319,15 +4261,11 @@ (andmap (lambda (_%lst11880%_) (andmap (lambda (_%x11883%_) (let ((_%$e11886%_ - (let () - (declare (not safe)) - (symbol? _%x11883%_)))) + (symbol? _%x11883%_))) (if _%$e11886%_ _%$e11886%_ (let ((_%$e11890%_ - (let () - (declare (not safe)) - (keyword? _%x11883%_)))) + (keyword? _%x11883%_))) (if _%$e11890%_ _%$e11890%_ (immediate? @@ -4392,22 +4330,23 @@ (_%g1182511861%_ (lambda (_%g1182711838%_) ((lambda (_%L11841%_) - (let () - (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - 'or) - (foldr (lambda (_%g1185211855%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1185311858%_) - (cons (cons (gx#datum->syntax '#f '~case-test) - (cons _%g1185211855%_ - (cons _%L11662%_ '()))) - _%g1185311858%_)) - '() - _%L11763%_)) - (cons _%L11814%_ (cons _%L11841%_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + 'or) + (foldr (lambda (_%g1185211855%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1185311858%_) + (cons (cons (gx#datum->syntax '#f '~case-test) + (cons _%g1185211855%_ + (cons _%L11662%_ '()))) + _%g1185311858%_)) + '() + _%L11763%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%L11814%_ + (cons _%L11841%_ + '()))))) _%g1182711838%_)))) (_%g1182511861%_ (_%recur11674%_ _%L11761%_ _%L11812%_)))) @@ -4602,7 +4541,7 @@ (lambda (_%xs11494%_) (let ((_%ht11497%_ (make-hash-table-eq))) (let _%lp11500%_ ((_%rest11503%_ _%xs11494%_)) - (if (let () (declare (not safe)) (pair? _%rest11503%_)) + (if (pair? _%rest11503%_) (let* ((_%ix11506%_ (car _%rest11503%_)) (_%$e11509%_ (hash-get _%ht11497%_ _%ix11506%_))) @@ -4773,77 +4712,81 @@ _%L11216%_ _%L11217%_ _%L11218%_) - (let () - (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L11217%_ - (cons (cons (gx#datum->syntax + (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons _%L11217%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'lambda) - (cons '() (cons _%L11214%_ '()))) - '())) + '#f + 'lambda) + (cons '() (cons _%L11214%_ '()))) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L11216%_ - (cons (cons (gx#datum->syntax + (cons (cons _%L11216%_ + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote) + (cons _%L11213%_ '())) + '())) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'if) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'symbol?) + (cons _%L11218%_ '())) + (cons (cons (gx#datum->syntax '#f 'let*) + (cons (cons (cons (gx#datum->syntax '#f 'h) + (cons (cons (gx#datum->syntax + '#f + '##symbol-hash) + (cons _%L11218%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L11213%_ '())) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f - 'if) + 'ix) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'symbol?) - (cons _%L11218%_ '())) - (cons (cons (gx#datum->syntax '#f 'let*) - (cons (cons (cons (gx#datum->syntax '#f 'h) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##symbol-hash) - (cons _%L11218%_ '())) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'ix) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##fxmodulo) - (cons (gx#datum->syntax '#f 'h) - (cons _%L11211%_ '()))) - '())) + '##fxmodulo) + (cons (gx#datum->syntax '#f 'h) + (cons _%L11211%_ '()))) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax + '#f + 'q) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'q) - (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L11216%_ - (cons (gx#datum->syntax '#f 'ix) - '()))) - '())) - '()))) + '#f + '##vector-ref) + (cons _%L11216%_ + (cons (gx#datum->syntax '#f 'ix) + '()))) + '())) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + 'eq?) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'eq?) - (cons (gx#datum->syntax '#f 'q) - (cons _%L11218%_ '()))) - (cons _%L11215%_ (cons (cons _%L11217%_ '()) '())))) + '#f + 'q) + (cons _%L11218%_ '()))) + (cons _%L11215%_ (cons (cons _%L11217%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons _%L11217%_ '()) '())))) + '()))) + (cons (cons _%L11217%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) + '())))) _%hd1111711205%_ _%hd1111411195%_ _%hd1111111185%_ @@ -4927,30 +4870,30 @@ (declare (not safe)) (##cdr _%e1127911340%_)))) (if (gx#stx-pair/null? _%hd1127811344%_) - (let ((_g21009_ + (let ((_g21007_ (gx#syntax-split-splice _%hd1127811344%_ '0))) (begin - (let ((_g21010_ + (let ((_g21008_ (let () (declare (not safe)) - (if (##values? _g21009_) - (##vector-length _g21009_) + (if (##values? _g21007_) + (##vector-length _g21007_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g21010_ 2))) + (##fx= _g21008_ 2))) (error "Context expects 2 values" - _g21010_))) + _g21008_))) (let ((_%target1128011350%_ (let () (declare (not safe)) - (##vector-ref _g21009_ 0))) + (##vector-ref _g21007_ 0))) (_%tl1128211353%_ (let () (declare (not safe)) - (##vector-ref _g21009_ 1)))) + (##vector-ref _g21007_ 1)))) (if (gx#stx-null? _%tl1128211353%_) (letrec ((_%loop1128311356%_ (lambda (_%hd1128111360%_ @@ -5013,106 +4956,101 @@ _%L11415%_ _%L11416%_ _%L11417%_) - (let () - (cons (gx#datum->syntax - '#f - 'let) - (cons (cons (cons _%L11416%_ + (cons (gx#datum->syntax + '#f + 'let) + (cons (cons (cons _%L11416%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() - (cons _%L11413%_ '()))) - '())) - (cons (cons _%L11415%_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L11412%_ '())) - '())) + (cons (cons (gx#datum->syntax '#f 'lambda) + (cons '() + (cons _%L11413%_ '()))) + '())) + (cons (cons _%L11415%_ + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%L11412%_ '())) + '())) + '())) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax '#f 'symbol?) + (cons _%L11417%_ '())) + (cons (cons (gx#datum->syntax + '#f + 'let*) + (cons (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'h) + (cons (cons (gx#datum->syntax + '#f + '##symbol-hash) + (cons _%L11417%_ '())) '())) - (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f - 'symbol?) - (cons _%L11417%_ '())) + '##fxmodulo) + (cons (gx#datum->syntax + '#f + 'h) + (cons _%L11410%_ '()))) + '())) + (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f - 'let*) - (cons (cons (cons (gx#datum->syntax + '##vector-ref) + (cons _%L11415%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'ix) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())) + '()))) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (gx#datum->syntax '#f 'q) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + 'eq?) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'h) - (cons (cons (gx#datum->syntax - '#f - '##symbol-hash) - (cons _%L11417%_ '())) - '())) - (cons (cons (gx#datum->syntax '#f 'ix) + '##car) + (cons (gx#datum->syntax '#f 'q) '())) + (cons _%L11417%_ '()))) + (cons (cons (gx#datum->syntax '#f 'let) + (cons (cons (gx#datum->syntax '#f 'x) (cons (cons (gx#datum->syntax '#f - '##fxmodulo) + '##cdr) (cons (gx#datum->syntax '#f - 'h) - (cons _%L11410%_ - '()))) + 'q) + '())) '())) - (cons (cons (gx#datum->syntax '#f 'q) - (cons (cons (gx#datum->syntax - '#f - '##vector-ref) - (cons _%L11415%_ - (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax + '#f + '~case-dispatch) + (cons (gx#datum->syntax '#f 'x) + (foldr (lambda (_%g1145011453%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'ix) - '()))) + _%g1145111456%_) + (cons _%g1145011453%_ _%g1145111456%_)) + '() + _%L11414%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) '()))) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (gx#datum->syntax '#f 'q) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - 'eq?) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##car) - (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L11417%_ '()))) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (gx#datum->syntax '#f 'x) - (cons (cons (gx#datum->syntax - '#f - '##cdr) - (cons (gx#datum->syntax - '#f - 'q) - '())) - '())) - (cons (cons (gx#datum->syntax - '#f - '~case-dispatch) - (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1145011453%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1145111456%_) - (cons _%g1145011453%_ _%g1145111456%_)) - '() - _%L11414%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons _%L11416%_ '()) '())))) + (cons (cons _%L11416%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L11416%_ '()) - '())))) - '()))) + (cons (cons _%L11416%_ '()) '())))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L11416%_ '()) - '())))) - '()))))) + (cons (cons _%L11416%_ '()) + '())))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%hd1129611404%_ _%hd1129311394%_ @@ -5315,52 +5253,49 @@ _%L10757%_ _%L10758%_ _%L10759%_) - (let () - (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L10758%_ - (cons (cons (gx#datum->syntax - '#f - 'lambda) - (cons '() + (cons (gx#datum->syntax '#f 'let) + (cons (cons _%L10758%_ + (cons (cons (gx#datum->syntax + '#f + 'lambda) + (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L10756%_ '()))) - '())) + (cons _%L10756%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'char?) + (cons _%L10759%_ '())) + (cons (cons (gx#datum->syntax '#f 'let) + (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f - 'if) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'char?) - (cons _%L10759%_ '())) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (gx#datum->syntax '#f 'ix) - (cons (cons (gx#datum->syntax - '#f - '##char->integer) - (cons _%L10759%_ '())) - '())) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - 'and) - (cons (cons (gx#datum->syntax + '##char->integer) + (cons _%L10759%_ '())) + '())) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + 'and) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##fx>=) - (cons (gx#datum->syntax '#f 'ix) - (cons _%L10755%_ '()))) - (cons (cons (gx#datum->syntax '#f '##fx<) - (cons (gx#datum->syntax '#f 'ix) - (cons _%L10753%_ '()))) - '()))) - (cons _%L10757%_ (cons (cons _%L10758%_ '()) '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons _%L10758%_ '()) '())))) + '#f + '##fx>=) + (cons (gx#datum->syntax '#f 'ix) + (cons _%L10755%_ '()))) + (cons (cons (gx#datum->syntax '#f '##fx<) + (cons (gx#datum->syntax '#f 'ix) + (cons _%L10753%_ '()))) + '()))) + (cons _%L10757%_ (cons (cons _%L10758%_ '()) '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (cons (cons _%L10758%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) + '())))) _%hd1066910747%_ _%hd1066610737%_ _%hd1066310727%_ @@ -5442,30 +5377,30 @@ (declare (not safe)) (##cdr _%e1081710878%_)))) (if (gx#stx-pair/null? _%hd1081610882%_) - (let ((_g21011_ + (let ((_g21009_ (gx#syntax-split-splice _%hd1081610882%_ '0))) (begin - (let ((_g21012_ + (let ((_g21010_ (let () (declare (not safe)) - (if (##values? _g21011_) - (##vector-length _g21011_) + (if (##values? _g21009_) + (##vector-length _g21009_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g21012_ 2))) + (##fx= _g21010_ 2))) (error "Context expects 2 values" - _g21012_))) + _g21010_))) (let ((_%target1081810888%_ (let () (declare (not safe)) - (##vector-ref _g21011_ 0))) + (##vector-ref _g21009_ 0))) (_%tl1082010891%_ (let () (declare (not safe)) - (##vector-ref _g21011_ 1)))) + (##vector-ref _g21009_ 1)))) (if (gx#stx-null? _%tl1082010891%_) (letrec ((_%loop1082110894%_ (lambda (_%hd1081910898%_ @@ -5529,95 +5464,83 @@ _%L10953%_ _%L10954%_ _%L10955%_) - (let () - (cons (gx#datum->syntax - '#f - 'let) - (cons (cons (cons _%L10954%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax - '#f - 'lambda) - (cons '() - (cons _%L10951%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - (cons (cons _%L10953%_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L10950%_ + (cons (gx#datum->syntax + '#f + 'let) + (cons (cons (cons _%L10954%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '())) - (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + 'lambda) + (cons '() + (cons _%L10951%_ + '()))) + '())) + (cons (cons _%L10953%_ + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%L10950%_ '())) + '())) + '())) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + 'char?) + (cons _%L10955%_ '())) + (cons (cons (gx#datum->syntax + '#f + 'let) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'ix) + (cons (cons (gx#datum->syntax + '#f + '##char->integer) + (cons _%L10955%_ '())) + '())) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax '#f '##fx<) + (cons (gx#datum->syntax '#f 'ix) + (cons _%L10948%_ '()))) (cons (cons (gx#datum->syntax '#f - 'char?) - (cons _%L10955%_ '())) - (cons (cons (gx#datum->syntax - '#f - 'let) - (cons (cons (gx#datum->syntax + 'let) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'ix) - (cons (cons (gx#datum->syntax - '#f - '##char->integer) - (cons _%L10955%_ '())) - '())) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax '#f '##fx<) + '#f + 'x) + (cons (cons (gx#datum->syntax '#f '##vector-ref) + (cons _%L10953%_ + (cons (gx#datum->syntax '#f 'ix) + '()))) + '())) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (gx#datum->syntax '#f 'x) + (cons (cons (gx#datum->syntax + '#f + '~case-dispatch) (cons (gx#datum->syntax '#f - 'ix) - (cons _%L10948%_ '()))) - (cons (cons (gx#datum->syntax - '#f - 'let) - (cons (cons (gx#datum->syntax + 'x) + (foldr (lambda (_%g1098810991%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'x) - (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L10953%_ - (cons (gx#datum->syntax '#f 'ix) - '()))) - '())) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (gx#datum->syntax '#f 'x) - (cons (cons (gx#datum->syntax - '#f - '~case-dispatch) - (cons (gx#datum->syntax - '#f - 'x) - (foldr (lambda (_%g1098810991%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1098910994%_) - (cons _%g1098810991%_ _%g1098910994%_)) - '() - _%L10952%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10954%_ '()) - '())))) - '()))) + _%g1098910994%_) + (cons _%g1098810991%_ _%g1098910994%_)) + '() + _%L10952%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10954%_ '()) - '())))) - '()))) + (cons (cons _%L10954%_ '()) '())))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10954%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - '())))) + (cons (cons _%L10954%_ '()) + '())))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) + (cons (cons _%L10954%_ '()) + '())))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%hd1083410942%_ _%hd1083110932%_ @@ -5669,273 +5592,269 @@ (_%tab10411%_ (_%generate-hash-dispatch-table9467%_ _%indexes10408%_ - char->integer))) - (let* ((_%g1041610460%_ - (lambda (_%g1041710456%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g1041710456%_))) - (_%g1041510620%_ - (lambda (_%g1041710464%_) - (if (gx#stx-pair? _%g1041710464%_) - (let ((_%e1042710467%_ - (gx#syntax-e _%g1041710464%_))) - (let ((_%hd1042610471%_ - (let () - (declare (not safe)) - (##car _%e1042710467%_))) - (_%tl1042510474%_ - (let () - (declare (not safe)) - (##cdr _%e1042710467%_)))) - (if (gx#stx-pair? _%tl1042510474%_) - (let ((_%e1043010477%_ - (gx#syntax-e - _%tl1042510474%_))) - (let ((_%hd1042910481%_ - (let () - (declare (not safe)) - (##car _%e1043010477%_))) - (_%tl1042810484%_ - (let () - (declare (not safe)) - (##cdr _%e1043010477%_)))) - (if (gx#stx-pair? - _%tl1042810484%_) - (let ((_%e1043310487%_ - (gx#syntax-e - _%tl1042810484%_))) - (let ((_%hd1043210491%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _%e1043310487%_))) - (_%tl1043110494%_ - (let () (declare (not safe)) (##cdr _%e1043310487%_)))) - (if (gx#stx-pair? _%tl1043110494%_) - (let ((_%e1043610497%_ (gx#syntax-e _%tl1043110494%_))) - (let ((_%hd1043510501%_ - (let () - (declare (not safe)) - (##car _%e1043610497%_))) - (_%tl1043410504%_ - (let () - (declare (not safe)) - (##cdr _%e1043610497%_)))) - (if (gx#stx-pair/null? _%hd1043510501%_) - (let ((_g21013_ - (gx#syntax-split-splice - _%hd1043510501%_ - '0))) - (begin - (let ((_g21014_ - (let () - (declare (not safe)) - (if (##values? _g21013_) - (##vector-length _g21013_) - 1)))) - (if (not (let () + char->integer)) + (_%g1041610460%_ + (lambda (_%g1041710456%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g1041710456%_))) + (_%g1041510620%_ + (lambda (_%g1041710464%_) + (if (gx#stx-pair? _%g1041710464%_) + (let ((_%e1042710467%_ + (gx#syntax-e _%g1041710464%_))) + (let ((_%hd1042610471%_ + (let () (declare (not safe)) - (##fx= _g21014_ 2))) - (error "Context expects 2 values" - _g21014_))) - (let ((_%target1043710507%_ - (let () - (declare (not safe)) - (##vector-ref _g21013_ 0))) - (_%tl1043910510%_ - (let () - (declare (not safe)) - (##vector-ref _g21013_ 1)))) - (if (gx#stx-null? _%tl1043910510%_) - (letrec ((_%loop1044010513%_ - (lambda (_%hd1043810517%_ - _%dispatch1044410520%_) - (if (gx#stx-pair? - _%hd1043810517%_) - (let ((_%e1044110523%_ - (gx#syntax-e - _%hd1043810517%_))) - (let ((_%lp-hd1044210527%_ - (let () + (##car _%e1042710467%_))) + (_%tl1042510474%_ + (let () + (declare (not safe)) + (##cdr _%e1042710467%_)))) + (if (gx#stx-pair? _%tl1042510474%_) + (let ((_%e1043010477%_ + (gx#syntax-e + _%tl1042510474%_))) + (let ((_%hd1042910481%_ + (let () + (declare (not safe)) + (##car _%e1043010477%_))) + (_%tl1042810484%_ + (let () + (declare (not safe)) + (##cdr _%e1043010477%_)))) + (if (gx#stx-pair? + _%tl1042810484%_) + (let ((_%e1043310487%_ + (gx#syntax-e + _%tl1042810484%_))) + (let ((_%hd1043210491%_ + (let () + (declare + (not safe)) + (##car _%e1043310487%_))) + (_%tl1043110494%_ + (let () + (declare + (not safe)) + (##cdr _%e1043310487%_)))) + (if (gx#stx-pair? + _%tl1043110494%_) + (let ((_%e1043610497%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _%e1044110523%_))) - (_%lp-tl1044310530%_ - (let () (declare (not safe)) (##cdr _%e1044110523%_)))) - (_%loop1044010513%_ - _%lp-tl1044310530%_ - (cons _%lp-hd1044210527%_ _%dispatch1044410520%_)))) - (let ((_%dispatch1044510533%_ (reverse _%dispatch1044410520%_))) - (if (gx#stx-pair? _%tl1043410504%_) - (let ((_%e1044810537%_ (gx#syntax-e _%tl1043410504%_))) - (let ((_%hd1044710541%_ - (let () - (declare (not safe)) - (##car _%e1044810537%_))) - (_%tl1044610544%_ - (let () - (declare (not safe)) - (##cdr _%e1044810537%_)))) - (if (gx#stx-pair? _%tl1044610544%_) - (let ((_%e1045110547%_ - (gx#syntax-e _%tl1044610544%_))) - (let ((_%hd1045010551%_ + (gx#syntax-e _%tl1043110494%_))) + (let ((_%hd1043510501%_ + (let () + (declare (not safe)) + (##car _%e1043610497%_))) + (_%tl1043410504%_ + (let () + (declare (not safe)) + (##cdr _%e1043610497%_)))) + (if (gx#stx-pair/null? _%hd1043510501%_) + (let ((_g21011_ + (gx#syntax-split-splice _%hd1043510501%_ '0))) + (begin + (let ((_g21012_ (let () (declare (not safe)) - (##car _%e1045110547%_))) - (_%tl1044910554%_ + (if (##values? _g21011_) + (##vector-length _g21011_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g21012_ 2))) + (error "Context expects 2 values" + _g21012_))) + (let ((_%target1043710507%_ (let () (declare (not safe)) - (##cdr _%e1045110547%_)))) - (if (gx#stx-pair? _%tl1044910554%_) - (let ((_%e1045410557%_ - (gx#syntax-e _%tl1044910554%_))) - (let ((_%hd1045310561%_ - (let () - (declare (not safe)) - (##car _%e1045410557%_))) - (_%tl1045210564%_ - (let () - (declare (not safe)) - (##cdr _%e1045410557%_)))) - (if (gx#stx-null? _%tl1045210564%_) - ((lambda (_%L10567%_ - _%L10569%_ - _%L10570%_ - _%L10571%_ - _%L10572%_ - _%L10573%_ - _%L10574%_) - (let () - (cons (gx#datum->syntax - '#f - 'let) - (cons (cons (cons _%L10573%_ + (##vector-ref _g21011_ 0))) + (_%tl1043910510%_ + (let () + (declare (not safe)) + (##vector-ref _g21011_ 1)))) + (if (gx#stx-null? _%tl1043910510%_) + (letrec ((_%loop1044010513%_ + (lambda (_%hd1043810517%_ + _%dispatch1044410520%_) + (if (gx#stx-pair? + _%hd1043810517%_) + (let ((_%e1044110523%_ + (gx#syntax-e + _%hd1043810517%_))) + (let ((_%lp-hd1044210527%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() (cons _%L10570%_ '()))) - '())) - (cons (cons _%L10572%_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L10569%_ '())) - '())) - '())) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax '#f 'char?) - (cons _%L10574%_ '())) - (cons (cons (gx#datum->syntax '#f 'let*) - (cons (cons (cons (gx#datum->syntax + (not safe)) + (##car _%e1044110523%_))) + (_%lp-tl1044310530%_ + (let () (declare (not safe)) (##cdr _%e1044110523%_)))) + (_%loop1044010513%_ + _%lp-tl1044310530%_ + (cons _%lp-hd1044210527%_ _%dispatch1044410520%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%dispatch1044510533%_ + (reverse _%dispatch1044410520%_))) + (if (gx#stx-pair? + _%tl1043410504%_) + (let ((_%e1044810537%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'h) - (cons (cons (gx#datum->syntax - '#f - '##char->integer) - (cons _%L10574%_ '())) + (gx#syntax-e _%tl1043410504%_))) + (let ((_%hd1044710541%_ + (let () + (declare (not safe)) + (##car _%e1044810537%_))) + (_%tl1044610544%_ + (let () + (declare (not safe)) + (##cdr _%e1044810537%_)))) + (if (gx#stx-pair? _%tl1044610544%_) + (let ((_%e1045110547%_ + (gx#syntax-e _%tl1044610544%_))) + (let ((_%hd1045010551%_ + (let () + (declare (not safe)) + (##car _%e1045110547%_))) + (_%tl1044910554%_ + (let () + (declare (not safe)) + (##cdr _%e1045110547%_)))) + (if (gx#stx-pair? _%tl1044910554%_) + (let ((_%e1045410557%_ + (gx#syntax-e _%tl1044910554%_))) + (let ((_%hd1045310561%_ + (let () + (declare (not safe)) + (##car _%e1045410557%_))) + (_%tl1045210564%_ + (let () + (declare (not safe)) + (##cdr _%e1045410557%_)))) + (if (gx#stx-null? _%tl1045210564%_) + ((lambda (_%L10567%_ + _%L10569%_ + _%L10570%_ + _%L10571%_ + _%L10572%_ + _%L10573%_ + _%L10574%_) + (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons _%L10573%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons (gx#datum->syntax '#f 'lambda) + (cons '() (cons _%L10570%_ '()))) '())) - (cons (cons (gx#datum->syntax '#f 'ix) - (cons (cons (gx#datum->syntax - '#f - '##fxmodulo) - (cons (gx#datum->syntax '#f 'h) - (cons _%L10567%_ '()))) + (cons (cons _%L10572%_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L10569%_ '())) '())) - (cons (cons (gx#datum->syntax '#f 'q) - (cons (cons (gx#datum->syntax - '#f - '##vector-ref) - (cons _%L10572%_ - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'ix) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '()))) + '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (gx#datum->syntax '#f 'q) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - 'eq?) - (cons (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax '#f 'char?) + (cons _%L10574%_ '())) + (cons (cons (gx#datum->syntax '#f 'let*) + (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##car) - (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L10574%_ '()))) + '#f + 'h) + (cons (cons (gx#datum->syntax '#f '##char->integer) + (cons _%L10574%_ '())) + '())) + (cons (cons (gx#datum->syntax '#f 'ix) + (cons (cons (gx#datum->syntax '#f '##fxmodulo) + (cons (gx#datum->syntax '#f 'h) + (cons _%L10567%_ '()))) + '())) + (cons (cons (gx#datum->syntax '#f 'q) + (cons (cons (gx#datum->syntax + '#f + '##vector-ref) + (cons _%L10572%_ + (cons (gx#datum->syntax + '#f + 'ix) + '()))) + '())) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'let) - (cons (cons (gx#datum->syntax '#f 'x) - (cons (cons (gx#datum->syntax '#f '##cdr) - (cons (gx#datum->syntax + 'if) + (cons (gx#datum->syntax '#f 'q) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax '#f - 'q) - '())) - '())) - (cons (cons (gx#datum->syntax - '#f - '~case-dispatch) - (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1061110614%_ + 'eq?) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1061210617%_) - (cons _%g1061110614%_ _%g1061210617%_)) - '() - _%L10571%_))) + '#f + '##car) + (cons (gx#datum->syntax '#f 'q) '())) + (cons _%L10574%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons _%L10573%_ '()) '())))) + (cons (cons (gx#datum->syntax + '#f + 'let) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'x) + (cons (cons (gx#datum->syntax '#f '##cdr) + (cons (gx#datum->syntax '#f 'q) + '())) + '())) + (cons (cons (gx#datum->syntax '#f '~case-dispatch) + (cons (gx#datum->syntax '#f 'x) + (foldr (lambda (_%g1061110614%_ + _%g1061210617%_) + (cons _%g1061110614%_ + _%g1061210617%_)) + '() + _%L10571%_))) + '()))) + (cons (cons _%L10573%_ '()) '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons _%L10573%_ '()) '())))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons _%L10573%_ '()) '())))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10573%_ '()) - '())))) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1045310561%_ - _%hd1045010551%_ - _%hd1044710541%_ - _%dispatch1044510533%_ - _%hd1043210491%_ - _%hd1042910481%_ - _%hd1042610471%_) - (_%g1041610460%_ - _%g1041710464%_)))) - (_%g1041610460%_ _%g1041710464%_)))) - (_%g1041610460%_ _%g1041710464%_)))) - (_%g1041610460%_ _%g1041710464%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1044010513%_ - _%target1043710507%_ - '())) - (_%g1041610460%_ _%g1041710464%_))))) - (_%g1041610460%_ _%g1041710464%_)))) - (_%g1041610460%_ _%g1041710464%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1041610460%_ - _%g1041710464%_)))) - (_%g1041610460%_ - _%g1041710464%_)))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd1045310561%_ + _%hd1045010551%_ + _%hd1044710541%_ + _%dispatch1044510533%_ + _%hd1043210491%_ + _%hd1042910481%_ + _%hd1042610471%_) + (_%g1041610460%_ _%g1041710464%_)))) + (_%g1041610460%_ _%g1041710464%_)))) + (_%g1041610460%_ _%g1041710464%_)))) + (_%g1041610460%_ _%g1041710464%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1044010513%_ + _%target1043710507%_ + '())) (_%g1041610460%_ _%g1041710464%_))))) - (_%g1041510620%_ - (list _%e10402%_ - (gx#genident 'default) - (gx#genident 'table) - _%dispatch10405%_ - _%default10406%_ - _%tab10411%_ - (vector-length _%tab10411%_))))))) + (_%g1041610460%_ _%g1041710464%_)))) + (_%g1041610460%_ _%g1041710464%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1041610460%_ + _%g1041710464%_)))) + (_%g1041610460%_ _%g1041710464%_)))) + (_%g1041610460%_ _%g1041710464%_))))) + (_%g1041510620%_ + (list _%e10402%_ + (gx#genident 'default) + (gx#genident 'table) + _%dispatch10405%_ + _%default10406%_ + _%tab10411%_ + (vector-length _%tab10411%_)))))) (_%min-fixnum9475%_ (lambda (_%datums10395%_) (foldl (lambda (_%lst10398%_ _%r10400%_) @@ -5975,272 +5894,274 @@ (_%generate-fixnum-dispatch-table9477%_ _%indexes10110%_)) (_%dense?10116%_ - (andmap values (vector->list _%tab10113%_)))) - (let* ((_%g1012110165%_ - (lambda (_%g1012210161%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g1012210161%_))) - (_%g1012010366%_ - (lambda (_%g1012210169%_) - (if (gx#stx-pair? _%g1012210169%_) - (let ((_%e1013210172%_ - (gx#syntax-e _%g1012210169%_))) - (let ((_%hd1013110176%_ - (let () - (declare (not safe)) - (##car _%e1013210172%_))) - (_%tl1013010179%_ - (let () - (declare (not safe)) - (##cdr _%e1013210172%_)))) - (if (gx#stx-pair? _%tl1013010179%_) - (let ((_%e1013510182%_ - (gx#syntax-e - _%tl1013010179%_))) - (let ((_%hd1013410186%_ - (let () - (declare (not safe)) - (##car _%e1013510182%_))) - (_%tl1013310189%_ - (let () - (declare (not safe)) - (##cdr _%e1013510182%_)))) + (andmap values (vector->list _%tab10113%_))) + (_%g1012110165%_ + (lambda (_%g1012210161%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g1012210161%_))) + (_%g1012010366%_ + (lambda (_%g1012210169%_) + (if (gx#stx-pair? _%g1012210169%_) + (let ((_%e1013210172%_ + (gx#syntax-e _%g1012210169%_))) + (let ((_%hd1013110176%_ + (let () + (declare (not safe)) + (##car _%e1013210172%_))) + (_%tl1013010179%_ + (let () + (declare (not safe)) + (##cdr _%e1013210172%_)))) + (if (gx#stx-pair? _%tl1013010179%_) + (let ((_%e1013510182%_ + (gx#syntax-e + _%tl1013010179%_))) + (let ((_%hd1013410186%_ + (let () + (declare (not safe)) + (##car _%e1013510182%_))) + (_%tl1013310189%_ + (let () + (declare (not safe)) + (##cdr _%e1013510182%_)))) + (if (gx#stx-pair? + _%tl1013310189%_) + (let ((_%e1013810192%_ + (gx#syntax-e + _%tl1013310189%_))) + (let ((_%hd1013710196%_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _%e1013810192%_))) + (_%tl1013610199%_ + (let () (declare (not safe)) (##cdr _%e1013810192%_)))) + (if (gx#stx-pair? _%tl1013610199%_) + (let ((_%e1014110202%_ (gx#syntax-e _%tl1013610199%_))) + (let ((_%hd1014010206%_ + (let () + (declare (not safe)) + (##car _%e1014110202%_))) + (_%tl1013910209%_ + (let () + (declare (not safe)) + (##cdr _%e1014110202%_)))) + (if (gx#stx-pair/null? _%hd1014010206%_) + (let ((_g21013_ + (gx#syntax-split-splice + _%hd1014010206%_ + '0))) + (begin + (let ((_g21014_ + (let () + (declare (not safe)) + (if (##values? _g21013_) + (##vector-length _g21013_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g21014_ 2))) + (error "Context expects 2 values" + _g21014_))) + (let ((_%target1014210212%_ + (let () + (declare (not safe)) + (##vector-ref _g21013_ 0))) + (_%tl1014410215%_ + (let () + (declare (not safe)) + (##vector-ref _g21013_ 1)))) + (if (gx#stx-null? _%tl1014410215%_) + (letrec ((_%loop1014510218%_ + (lambda (_%hd1014310222%_ + _%dispatch1014910225%_) (if (gx#stx-pair? - _%tl1013310189%_) - (let ((_%e1013810192%_ + _%hd1014310222%_) + (let ((_%e1014610228%_ (gx#syntax-e - _%tl1013310189%_))) - (let ((_%hd1013710196%_ + _%hd1014310222%_))) + (let ((_%lp-hd1014710232%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e1013810192%_))) - (_%tl1013610199%_ + (let () (declare (not safe)) (##car _%e1014610228%_))) + (_%lp-tl1014810235%_ (let () (declare (not safe)) - (##cdr _%e1013810192%_)))) - (if (gx#stx-pair? _%tl1013610199%_) - (let ((_%e1014110202%_ (gx#syntax-e _%tl1013610199%_))) - (let ((_%hd1014010206%_ - (let () - (declare (not safe)) - (##car _%e1014110202%_))) - (_%tl1013910209%_ - (let () - (declare (not safe)) - (##cdr _%e1014110202%_)))) - (if (gx#stx-pair/null? _%hd1014010206%_) - (let ((_g21015_ - (gx#syntax-split-splice - _%hd1014010206%_ - '0))) - (begin - (let ((_g21016_ - (let () - (declare (not safe)) - (if (##values? _g21015_) - (##vector-length _g21015_) - 1)))) - (if (not (let () + (##cdr _%e1014610228%_)))) + (_%loop1014510218%_ + _%lp-tl1014810235%_ + (cons _%lp-hd1014710232%_ _%dispatch1014910225%_)))) + (let ((_%dispatch1015010238%_ + (reverse _%dispatch1014910225%_))) + (if (gx#stx-pair? _%tl1013910209%_) + (let ((_%e1015310242%_ (gx#syntax-e _%tl1013910209%_))) + (let ((_%hd1015210246%_ + (let () + (declare (not safe)) + (##car _%e1015310242%_))) + (_%tl1015110249%_ + (let () + (declare (not safe)) + (##cdr _%e1015310242%_)))) + (if (gx#stx-pair? _%tl1015110249%_) + (let ((_%e1015610252%_ + (gx#syntax-e _%tl1015110249%_))) + (let ((_%hd1015510256%_ + (let () + (declare (not safe)) + (##car _%e1015610252%_))) + (_%tl1015410259%_ + (let () + (declare (not safe)) + (##cdr _%e1015610252%_)))) + (if (gx#stx-pair? _%tl1015410259%_) + (let ((_%e1015910262%_ + (gx#syntax-e _%tl1015410259%_))) + (let ((_%hd1015810266%_ + (let () (declare (not safe)) - (##fx= _g21016_ 2))) - (error "Context expects 2 values" - _g21016_))) - (let ((_%target1014210212%_ - (let () - (declare (not safe)) - (##vector-ref _g21015_ 0))) - (_%tl1014410215%_ - (let () - (declare (not safe)) - (##vector-ref _g21015_ 1)))) - (if (gx#stx-null? _%tl1014410215%_) - (letrec ((_%loop1014510218%_ - (lambda (_%hd1014310222%_ - _%dispatch1014910225%_) - (if (gx#stx-pair? - _%hd1014310222%_) - (let ((_%e1014610228%_ + (##car _%e1015910262%_))) + (_%tl1015710269%_ + (let () + (declare (not safe)) + (##cdr _%e1015910262%_)))) + (if (gx#stx-null? _%tl1015710269%_) + ((lambda (_%L10272%_ + _%L10274%_ + _%L10275%_ + _%L10276%_ + _%L10277%_ + _%L10278%_ + _%L10279%_) + (let* ((_%g1031810326%_ + (lambda (_%g1031910322%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g1031910322%_))) + (_%g1031710346%_ + (lambda (_%g1031910330%_) + ((lambda (_%L10333%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1014310222%_))) - (let ((_%lp-hd1014710232%_ - (let () - (declare (not safe)) - (##car _%e1014610228%_))) - (_%lp-tl1014810235%_ - (let () - (declare (not safe)) - (##cdr _%e1014610228%_)))) - (_%loop1014510218%_ - _%lp-tl1014810235%_ - (cons _%lp-hd1014710232%_ _%dispatch1014910225%_)))) - (let ((_%dispatch1015010238%_ - (reverse _%dispatch1014910225%_))) - (if (gx#stx-pair? _%tl1013910209%_) - (let ((_%e1015310242%_ (gx#syntax-e _%tl1013910209%_))) - (let ((_%hd1015210246%_ - (let () - (declare (not safe)) - (##car _%e1015310242%_))) - (_%tl1015110249%_ - (let () - (declare (not safe)) - (##cdr _%e1015310242%_)))) - (if (gx#stx-pair? _%tl1015110249%_) - (let ((_%e1015610252%_ - (gx#syntax-e _%tl1015110249%_))) - (let ((_%hd1015510256%_ - (let () - (declare (not safe)) - (##car _%e1015610252%_))) - (_%tl1015410259%_ - (let () - (declare (not safe)) - (##cdr _%e1015610252%_)))) - (if (gx#stx-pair? _%tl1015410259%_) - (let ((_%e1015910262%_ - (gx#syntax-e _%tl1015410259%_))) - (let ((_%hd1015810266%_ - (let () - (declare (not safe)) - (##car _%e1015910262%_))) - (_%tl1015710269%_ - (let () - (declare (not safe)) - (##cdr _%e1015910262%_)))) - (if (gx#stx-null? _%tl1015710269%_) - ((lambda (_%L10272%_ - _%L10274%_ - _%L10275%_ - _%L10276%_ - _%L10277%_ - _%L10278%_ - _%L10279%_) - (let () - (let* ((_%g1031810326%_ - (lambda (_%g1031910322%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g1031910322%_))) - (_%g1031710346%_ - (lambda (_%g1031910330%_) - ((lambda (_%L10333%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L10278%_ + '#f + 'let) + (cons (cons (cons _%L10278%_ + (cons (cons (gx#datum->syntax + '#f + 'lambda) + (cons '() + (cons _%L10275%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())) + (cons (cons _%L10277%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'lambda) - (cons '() (cons _%L10275%_ '()))) + 'quote) + (cons _%L10274%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10277%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L10274%_ '())) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - (cons (cons (gx#datum->syntax '#f 'if) + '())) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + 'fixnum?) + (cons _%L10279%_ + '())) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'fixnum?) - (cons _%L10279%_ '())) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax '#f 'and) + 'if) + (cons (cons (gx#datum->syntax '#f 'and) + (cons (cons (gx#datum->syntax '#f '##fx>=) + (cons _%L10279%_ + (cons '0 '()))) (cons (cons (gx#datum->syntax '#f - '##fx>=) + '##fx<) (cons _%L10279%_ - (cons '0 '()))) - (cons (cons (gx#datum->syntax - '#f - '##fx<) - (cons _%L10279%_ + (cons _%L10272%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L10272%_ '()))) - '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (gx#datum->syntax - '#f - 'x) - (cons (cons (gx#datum->syntax + '()))) + (cons (cons (gx#datum->syntax '#f 'let) + (cons (cons (gx#datum->syntax '#f 'x) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##vector-ref) - (cons _%L10277%_ (cons _%L10279%_ '()))) - '())) - (cons _%L10333%_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10278%_ '()) '())))) - (cons (cons _%L10278%_ '()) '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - _%g1031910330%_)))) - (_%g1031710346%_ - (if _%dense?10116%_ - (cons (gx#datum->syntax '#f '~case-dispatch) - (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1034910352%_ - _%g1035010355%_) - (cons _%g1034910352%_ - _%g1035010355%_)) - '() - _%L10276%_))) - (cons (gx#datum->syntax '#f 'if) - (cons (gx#datum->syntax '#f 'x) - (cons (cons (gx#datum->syntax - '#f - '~case-dispatch) - (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1035710360%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1035810363%_) - (cons _%g1035710360%_ _%g1035810363%_)) - '() - _%L10276%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10278%_ '()) '()))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1015810266%_ - _%hd1015510256%_ - _%hd1015210246%_ - _%dispatch1015010238%_ - _%hd1013710196%_ - _%hd1013410186%_ - _%hd1013110176%_) - (_%g1012110165%_ - _%g1012210169%_)))) - (_%g1012110165%_ _%g1012210169%_)))) - (_%g1012110165%_ _%g1012210169%_)))) - (_%g1012110165%_ _%g1012210169%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1014510218%_ - _%target1014210212%_ - '())) - (_%g1012110165%_ _%g1012210169%_))))) - (_%g1012110165%_ _%g1012210169%_)))) - (_%g1012110165%_ _%g1012210169%_)))) - (_%g1012110165%_ _%g1012210169%_)))) + '#f + '##vector-ref) + (cons _%L10277%_ (cons _%L10279%_ '()))) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%L10333%_ '()))) + (cons (cons _%L10278%_ '()) '())))) + (cons (cons _%L10278%_ '()) '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) + _%g1031910330%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1012110165%_ - _%g1012210169%_)))) + (_%g1031710346%_ + (if _%dense?10116%_ + (cons (gx#datum->syntax + '#f + '~case-dispatch) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'x) + (foldr (lambda (_%g1034910352%_ _%g1035010355%_) + (cons _%g1034910352%_ _%g1035010355%_)) + '() + _%L10276%_))) + (cons (gx#datum->syntax '#f 'if) + (cons (gx#datum->syntax '#f 'x) + (cons (cons (gx#datum->syntax '#f '~case-dispatch) + (cons (gx#datum->syntax '#f 'x) + (foldr (lambda (_%g1035710360%_ + _%g1035810363%_) + (cons _%g1035710360%_ + _%g1035810363%_)) + '() + _%L10276%_))) + (cons (cons _%L10278%_ '()) '())))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd1015810266%_ + _%hd1015510256%_ + _%hd1015210246%_ + _%dispatch1015010238%_ + _%hd1013710196%_ + _%hd1013410186%_ + _%hd1013110176%_) + (_%g1012110165%_ + _%g1012210169%_)))) + (_%g1012110165%_ _%g1012210169%_)))) + (_%g1012110165%_ _%g1012210169%_)))) + (_%g1012110165%_ _%g1012210169%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1014510218%_ + _%target1014210212%_ + '())) (_%g1012110165%_ _%g1012210169%_))))) - (_%g1012010366%_ - (list _%e10104%_ - (gx#genident 'default) - (gx#genident 'table) - _%dispatch10107%_ - _%default10108%_ - _%tab10113%_ - (vector-length _%tab10113%_))))) + (_%g1012110165%_ _%g1012210169%_)))) + (_%g1012110165%_ _%g1012210169%_)))) + (_%g1012110165%_ _%g1012210169%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1012110165%_ + _%g1012210169%_)))) + (_%g1012110165%_ _%g1012210169%_))))) + (_%g1012010366%_ + (list _%e10104%_ + (gx#genident 'default) + (gx#genident 'table) + _%dispatch10107%_ + _%default10108%_ + _%tab10113%_ + (vector-length _%tab10113%_)))) (_%generate-fixnum-dispatch/hash9479%_ _%e10104%_ _%datums10106%_ @@ -6256,265 +6177,263 @@ (_%tab9891%_ (_%generate-hash-dispatch-table9467%_ _%indexes9888%_ - values))) - (let* ((_%g98969940%_ - (lambda (_%g98979936%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g98979936%_))) - (_%g989510100%_ - (lambda (_%g98979944%_) - (if (gx#stx-pair? _%g98979944%_) - (let ((_%e99079947%_ - (gx#syntax-e _%g98979944%_))) - (let ((_%hd99069951%_ - (let () - (declare (not safe)) - (##car _%e99079947%_))) - (_%tl99059954%_ - (let () - (declare (not safe)) - (##cdr _%e99079947%_)))) - (if (gx#stx-pair? _%tl99059954%_) - (let ((_%e99109957%_ - (gx#syntax-e - _%tl99059954%_))) - (let ((_%hd99099961%_ - (let () - (declare (not safe)) - (##car _%e99109957%_))) - (_%tl99089964%_ - (let () - (declare (not safe)) - (##cdr _%e99109957%_)))) - (if (gx#stx-pair? - _%tl99089964%_) - (let ((_%e99139967%_ - (gx#syntax-e - _%tl99089964%_))) - (let ((_%hd99129971%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _%e99139967%_))) - (_%tl99119974%_ - (let () (declare (not safe)) (##cdr _%e99139967%_)))) - (if (gx#stx-pair? _%tl99119974%_) - (let ((_%e99169977%_ (gx#syntax-e _%tl99119974%_))) - (let ((_%hd99159981%_ - (let () - (declare (not safe)) - (##car _%e99169977%_))) - (_%tl99149984%_ - (let () - (declare (not safe)) - (##cdr _%e99169977%_)))) - (if (gx#stx-pair/null? _%hd99159981%_) - (let ((_g21017_ - (gx#syntax-split-splice _%hd99159981%_ '0))) - (begin - (let ((_g21018_ - (let () - (declare (not safe)) - (if (##values? _g21017_) - (##vector-length _g21017_) - 1)))) - (if (not (let () + values)) + (_%g98969940%_ + (lambda (_%g98979936%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g98979936%_))) + (_%g989510100%_ + (lambda (_%g98979944%_) + (if (gx#stx-pair? _%g98979944%_) + (let ((_%e99079947%_ + (gx#syntax-e _%g98979944%_))) + (let ((_%hd99069951%_ + (let () (declare (not safe)) - (##fx= _g21018_ 2))) - (error "Context expects 2 values" - _g21018_))) - (let ((_%target99179987%_ - (let () - (declare (not safe)) - (##vector-ref _g21017_ 0))) - (_%tl99199990%_ - (let () - (declare (not safe)) - (##vector-ref _g21017_ 1)))) - (if (gx#stx-null? _%tl99199990%_) - (letrec ((_%loop99209993%_ - (lambda (_%hd99189997%_ - _%dispatch992410000%_) - (if (gx#stx-pair? - _%hd99189997%_) - (let ((_%e992110003%_ - (gx#syntax-e - _%hd99189997%_))) - (let ((_%lp-hd992210007%_ - (let () + (##car _%e99079947%_))) + (_%tl99059954%_ + (let () + (declare (not safe)) + (##cdr _%e99079947%_)))) + (if (gx#stx-pair? _%tl99059954%_) + (let ((_%e99109957%_ + (gx#syntax-e _%tl99059954%_))) + (let ((_%hd99099961%_ + (let () + (declare (not safe)) + (##car _%e99109957%_))) + (_%tl99089964%_ + (let () + (declare (not safe)) + (##cdr _%e99109957%_)))) + (if (gx#stx-pair? _%tl99089964%_) + (let ((_%e99139967%_ + (gx#syntax-e + _%tl99089964%_))) + (let ((_%hd99129971%_ + (let () + (declare + (not safe)) + (##car _%e99139967%_))) + (_%tl99119974%_ + (let () + (declare + (not safe)) + (##cdr _%e99139967%_)))) + (if (gx#stx-pair? + _%tl99119974%_) + (let ((_%e99169977%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _%e992110003%_))) - (_%lp-tl992310010%_ - (let () (declare (not safe)) (##cdr _%e992110003%_)))) - (_%loop99209993%_ - _%lp-tl992310010%_ - (cons _%lp-hd992210007%_ _%dispatch992410000%_)))) - (let ((_%dispatch992510013%_ (reverse _%dispatch992410000%_))) - (if (gx#stx-pair? _%tl99149984%_) - (let ((_%e992810017%_ (gx#syntax-e _%tl99149984%_))) - (let ((_%hd992710021%_ - (let () - (declare (not safe)) - (##car _%e992810017%_))) - (_%tl992610024%_ - (let () - (declare (not safe)) - (##cdr _%e992810017%_)))) - (if (gx#stx-pair? _%tl992610024%_) - (let ((_%e993110027%_ - (gx#syntax-e _%tl992610024%_))) - (let ((_%hd993010031%_ + (gx#syntax-e _%tl99119974%_))) + (let ((_%hd99159981%_ + (let () (declare (not safe)) (##car _%e99169977%_))) + (_%tl99149984%_ + (let () + (declare (not safe)) + (##cdr _%e99169977%_)))) + (if (gx#stx-pair/null? _%hd99159981%_) + (let ((_g21015_ + (gx#syntax-split-splice _%hd99159981%_ '0))) + (begin + (let ((_g21016_ (let () (declare (not safe)) - (##car _%e993110027%_))) - (_%tl992910034%_ + (if (##values? _g21015_) + (##vector-length _g21015_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g21016_ 2))) + (error "Context expects 2 values" + _g21016_))) + (let ((_%target99179987%_ (let () (declare (not safe)) - (##cdr _%e993110027%_)))) - (if (gx#stx-pair? _%tl992910034%_) - (let ((_%e993410037%_ - (gx#syntax-e _%tl992910034%_))) - (let ((_%hd993310041%_ - (let () - (declare (not safe)) - (##car _%e993410037%_))) - (_%tl993210044%_ - (let () - (declare (not safe)) - (##cdr _%e993410037%_)))) - (if (gx#stx-null? _%tl993210044%_) - ((lambda (_%L10047%_ - _%L10049%_ - _%L10050%_ - _%L10051%_ - _%L10052%_ - _%L10053%_ - _%L10054%_) - (let () - (cons (gx#datum->syntax - '#f - 'let) - (cons (cons (cons _%L10053%_ + (##vector-ref _g21015_ 0))) + (_%tl99199990%_ + (let () + (declare (not safe)) + (##vector-ref _g21015_ 1)))) + (if (gx#stx-null? _%tl99199990%_) + (letrec ((_%loop99209993%_ + (lambda (_%hd99189997%_ + _%dispatch992410000%_) + (if (gx#stx-pair? + _%hd99189997%_) + (let ((_%e992110003%_ + (gx#syntax-e + _%hd99189997%_))) + (let ((_%lp-hd992210007%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() (cons _%L10050%_ '()))) - '())) - (cons (cons _%L10052%_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L10049%_ '())) - '())) - '())) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax '#f 'fixnum?) - (cons _%L10054%_ '())) - (cons (cons (gx#datum->syntax '#f 'let*) - (cons (cons (cons (gx#datum->syntax + (not safe)) + (##car _%e992110003%_))) + (_%lp-tl992310010%_ + (let () (declare (not safe)) (##cdr _%e992110003%_)))) + (_%loop99209993%_ + _%lp-tl992310010%_ + (cons _%lp-hd992210007%_ _%dispatch992410000%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%dispatch992510013%_ + (reverse _%dispatch992410000%_))) + (if (gx#stx-pair? + _%tl99149984%_) + (let ((_%e992810017%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'ix) - (cons (cons (gx#datum->syntax '#f '##fxmodulo) - (cons _%L10054%_ - (cons _%L10047%_ '()))) + (gx#syntax-e _%tl99149984%_))) + (let ((_%hd992710021%_ + (let () + (declare (not safe)) + (##car _%e992810017%_))) + (_%tl992610024%_ + (let () + (declare (not safe)) + (##cdr _%e992810017%_)))) + (if (gx#stx-pair? _%tl992610024%_) + (let ((_%e993110027%_ (gx#syntax-e _%tl992610024%_))) + (let ((_%hd993010031%_ + (let () + (declare (not safe)) + (##car _%e993110027%_))) + (_%tl992910034%_ + (let () + (declare (not safe)) + (##cdr _%e993110027%_)))) + (if (gx#stx-pair? _%tl992910034%_) + (let ((_%e993410037%_ + (gx#syntax-e _%tl992910034%_))) + (let ((_%hd993310041%_ + (let () + (declare (not safe)) + (##car _%e993410037%_))) + (_%tl993210044%_ + (let () + (declare (not safe)) + (##cdr _%e993410037%_)))) + (if (gx#stx-null? _%tl993210044%_) + ((lambda (_%L10047%_ + _%L10049%_ + _%L10050%_ + _%L10051%_ + _%L10052%_ + _%L10053%_ + _%L10054%_) + (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons _%L10053%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons (gx#datum->syntax '#f 'lambda) + (cons '() (cons _%L10050%_ '()))) '())) - (cons (cons (gx#datum->syntax '#f 'q) - (cons (cons (gx#datum->syntax - '#f - '##vector-ref) - (cons _%L10052%_ - (cons (gx#datum->syntax - '#f - 'ix) - '()))) + (cons (cons _%L10052%_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L10049%_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (gx#datum->syntax '#f 'q) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - 'eq?) - (cons (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax '#f 'fixnum?) + (cons _%L10054%_ '())) + (cons (cons (gx#datum->syntax '#f 'let*) + (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##car) - (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L10054%_ '()))) + '#f + 'ix) + (cons (cons (gx#datum->syntax '#f '##fxmodulo) + (cons _%L10054%_ (cons _%L10047%_ '()))) + '())) + (cons (cons (gx#datum->syntax '#f 'q) + (cons (cons (gx#datum->syntax '#f '##vector-ref) + (cons _%L10052%_ + (cons (gx#datum->syntax + '#f + 'ix) + '()))) + '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'let) - (cons (cons (gx#datum->syntax '#f 'x) - (cons (cons (gx#datum->syntax '#f '##cdr) - (cons (gx#datum->syntax + 'if) + (cons (gx#datum->syntax '#f 'q) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax '#f - 'q) - '())) - '())) - (cons (cons (gx#datum->syntax - '#f - '~case-dispatch) - (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1009110094%_ + 'eq?) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1009210097%_) - (cons _%g1009110094%_ _%g1009210097%_)) - '() - _%L10051%_))) + '#f + '##car) + (cons (gx#datum->syntax '#f 'q) '())) + (cons _%L10054%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons _%L10053%_ '()) '())))) + (cons (cons (gx#datum->syntax + '#f + 'let) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'x) + (cons (cons (gx#datum->syntax '#f '##cdr) + (cons (gx#datum->syntax '#f 'q) + '())) + '())) + (cons (cons (gx#datum->syntax '#f '~case-dispatch) + (cons (gx#datum->syntax '#f 'x) + (foldr (lambda (_%g1009110094%_ + _%g1009210097%_) + (cons _%g1009110094%_ + _%g1009210097%_)) + '() + _%L10051%_))) + '()))) + (cons (cons _%L10053%_ '()) '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons _%L10053%_ '()) '())))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons _%L10053%_ '()) '())))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10053%_ '()) - '())))) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd993310041%_ - _%hd993010031%_ - _%hd992710021%_ - _%dispatch992510013%_ - _%hd99129971%_ - _%hd99099961%_ - _%hd99069951%_) - (_%g98969940%_ _%g98979944%_)))) - (_%g98969940%_ _%g98979944%_)))) - (_%g98969940%_ _%g98979944%_)))) - (_%g98969940%_ _%g98979944%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop99209993%_ - _%target99179987%_ - '())) - (_%g98969940%_ _%g98979944%_))))) - (_%g98969940%_ _%g98979944%_)))) - (_%g98969940%_ _%g98979944%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g98969940%_ - _%g98979944%_)))) - (_%g98969940%_ _%g98979944%_)))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd993310041%_ + _%hd993010031%_ + _%hd992710021%_ + _%dispatch992510013%_ + _%hd99129971%_ + _%hd99099961%_ + _%hd99069951%_) + (_%g98969940%_ _%g98979944%_)))) + (_%g98969940%_ _%g98979944%_)))) + (_%g98969940%_ _%g98979944%_)))) + (_%g98969940%_ _%g98979944%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop99209993%_ + _%target99179987%_ + '())) (_%g98969940%_ _%g98979944%_))))) - (_%g989510100%_ - (list _%e9882%_ - (gx#genident 'default) - (gx#genident 'table) - _%dispatch9885%_ - _%default9886%_ - _%tab9891%_ - (vector-length _%tab9891%_))))))) + (_%g98969940%_ _%g98979944%_)))) + (_%g98969940%_ _%g98979944%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g98969940%_ + _%g98979944%_)))) + (_%g98969940%_ _%g98979944%_)))) + (_%g98969940%_ _%g98979944%_))))) + (_%g989510100%_ + (list _%e9882%_ + (gx#genident 'default) + (gx#genident 'table) + _%dispatch9885%_ + _%default9886%_ + _%tab9891%_ + (vector-length _%tab9891%_)))))) (_%generate-generic-dispatch9480%_ (lambda (_%e9618%_ _%datums9620%_ _%dispatch9621%_ _%default9622%_) - (let ((_g21019_ + (let ((_g21017_ (if (_%eq-datums?9463%_ _%datums9620%_) (values eq?-hash 'eq?-hash 'eq?) (values equal?-hash 'equal?-hash 'equal?)))) @@ -6523,317 +6442,305 @@ (let ((_%hash-e9624%_ (let () (declare (not safe)) - (##vector-ref _g21019_ 0))) + (##vector-ref _g21017_ 0))) (_%hashf9626%_ (let () (declare (not safe)) - (##vector-ref _g21019_ 1))) + (##vector-ref _g21017_ 1))) (_%eqf9627%_ (let () (declare (not safe)) - (##vector-ref _g21019_ 2)))) + (##vector-ref _g21017_ 2)))) (let* ((_%indexes9629%_ (_%datum-dispatch-index9465%_ _%datums9620%_)) (_%tab9632%_ (_%generate-hash-dispatch-table9467%_ _%indexes9629%_ - _%hash-e9624%_))) - (let* ((_%g96379689%_ - (lambda (_%g96389685%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g96389685%_))) - (_%g96369878%_ - (lambda (_%g96389693%_) - (if (gx#stx-pair? _%g96389693%_) - (let ((_%e96509696%_ - (gx#syntax-e _%g96389693%_))) - (let ((_%hd96499700%_ - (let () - (declare (not safe)) - (##car _%e96509696%_))) - (_%tl96489703%_ - (let () - (declare (not safe)) - (##cdr _%e96509696%_)))) - (if (gx#stx-pair? _%tl96489703%_) - (let ((_%e96539706%_ - (gx#syntax-e - _%tl96489703%_))) - (let ((_%hd96529710%_ - (let () - (declare - (not safe)) - (##car _%e96539706%_))) - (_%tl96519713%_ - (let () - (declare - (not safe)) - (##cdr _%e96539706%_)))) - (if (gx#stx-pair? - _%tl96519713%_) - (let ((_%e96569716%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl96519713%_))) - (let ((_%hd96559720%_ - (let () (declare (not safe)) (##car _%e96569716%_))) - (_%tl96549723%_ - (let () - (declare (not safe)) - (##cdr _%e96569716%_)))) - (if (gx#stx-pair? _%tl96549723%_) - (let ((_%e96599726%_ (gx#syntax-e _%tl96549723%_))) - (let ((_%hd96589730%_ - (let () - (declare (not safe)) - (##car _%e96599726%_))) - (_%tl96579733%_ - (let () - (declare (not safe)) - (##cdr _%e96599726%_)))) - (if (gx#stx-pair/null? _%hd96589730%_) - (let ((_g21020_ - (gx#syntax-split-splice - _%hd96589730%_ - '0))) - (begin - (let ((_g21021_ - (let () - (declare (not safe)) - (if (##values? _g21020_) - (##vector-length _g21020_) - 1)))) - (if (not (let () + _%hash-e9624%_)) + (_%g96379689%_ + (lambda (_%g96389685%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g96389685%_))) + (_%g96369878%_ + (lambda (_%g96389693%_) + (if (gx#stx-pair? _%g96389693%_) + (let ((_%e96509696%_ + (gx#syntax-e _%g96389693%_))) + (let ((_%hd96499700%_ + (let () (declare (not safe)) - (##fx= _g21021_ 2))) - (error "Context expects 2 values" - _g21021_))) - (let ((_%target96609736%_ - (let () - (declare (not safe)) - (##vector-ref _g21020_ 0))) - (_%tl96629739%_ - (let () - (declare (not safe)) - (##vector-ref _g21020_ 1)))) - (if (gx#stx-null? _%tl96629739%_) - (letrec ((_%loop96639742%_ - (lambda (_%hd96619746%_ - _%dispatch96679749%_) - (if (gx#stx-pair? - _%hd96619746%_) - (let ((_%e96649752%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd96619746%_))) - (let ((_%lp-hd96659756%_ - (let () - (declare (not safe)) - (##car _%e96649752%_))) - (_%lp-tl96669759%_ - (let () - (declare (not safe)) - (##cdr _%e96649752%_)))) - (_%loop96639742%_ - _%lp-tl96669759%_ - (cons _%lp-hd96659756%_ _%dispatch96679749%_)))) - (let ((_%dispatch96689762%_ - (reverse _%dispatch96679749%_))) - (if (gx#stx-pair? _%tl96579733%_) - (let ((_%e96719766%_ (gx#syntax-e _%tl96579733%_))) - (let ((_%hd96709770%_ - (let () - (declare (not safe)) - (##car _%e96719766%_))) - (_%tl96699773%_ - (let () - (declare (not safe)) - (##cdr _%e96719766%_)))) - (if (gx#stx-pair? _%tl96699773%_) - (let ((_%e96749776%_ - (gx#syntax-e _%tl96699773%_))) - (let ((_%hd96739780%_ + (##car _%e96509696%_))) + (_%tl96489703%_ + (let () + (declare (not safe)) + (##cdr _%e96509696%_)))) + (if (gx#stx-pair? _%tl96489703%_) + (let ((_%e96539706%_ + (gx#syntax-e + _%tl96489703%_))) + (let ((_%hd96529710%_ + (let () + (declare (not safe)) + (##car _%e96539706%_))) + (_%tl96519713%_ + (let () + (declare (not safe)) + (##cdr _%e96539706%_)))) + (if (gx#stx-pair? + _%tl96519713%_) + (let ((_%e96569716%_ + (gx#syntax-e + _%tl96519713%_))) + (let ((_%hd96559720%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##car _%e96569716%_))) + (_%tl96549723%_ + (let () (declare (not safe)) (##cdr _%e96569716%_)))) + (if (gx#stx-pair? _%tl96549723%_) + (let ((_%e96599726%_ (gx#syntax-e _%tl96549723%_))) + (let ((_%hd96589730%_ + (let () + (declare (not safe)) + (##car _%e96599726%_))) + (_%tl96579733%_ + (let () + (declare (not safe)) + (##cdr _%e96599726%_)))) + (if (gx#stx-pair/null? _%hd96589730%_) + (let ((_g21018_ + (gx#syntax-split-splice + _%hd96589730%_ + '0))) + (begin + (let ((_g21019_ (let () (declare (not safe)) - (##car _%e96749776%_))) - (_%tl96729783%_ + (if (##values? _g21018_) + (##vector-length _g21018_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g21019_ 2))) + (error "Context expects 2 values" + _g21019_))) + (let ((_%target96609736%_ (let () (declare (not safe)) - (##cdr _%e96749776%_)))) - (if (gx#stx-pair? _%tl96729783%_) - (let ((_%e96779786%_ - (gx#syntax-e _%tl96729783%_))) - (let ((_%hd96769790%_ - (let () - (declare (not safe)) - (##car _%e96779786%_))) - (_%tl96759793%_ - (let () - (declare (not safe)) - (##cdr _%e96779786%_)))) - (if (gx#stx-pair? _%tl96759793%_) - (let ((_%e96809796%_ - (gx#syntax-e - _%tl96759793%_))) - (let ((_%hd96799800%_ - (let () - (declare - (not safe)) - (##car _%e96809796%_))) - (_%tl96789803%_ - (let () - (declare - (not safe)) - (##cdr _%e96809796%_)))) + (##vector-ref _g21018_ 0))) + (_%tl96629739%_ + (let () + (declare (not safe)) + (##vector-ref _g21018_ 1)))) + (if (gx#stx-null? _%tl96629739%_) + (letrec ((_%loop96639742%_ + (lambda (_%hd96619746%_ + _%dispatch96679749%_) (if (gx#stx-pair? - _%tl96789803%_) - (let ((_%e96839806%_ + _%hd96619746%_) + (let ((_%e96649752%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl96789803%_))) - (let ((_%hd96829810%_ - (let () (declare (not safe)) (##car _%e96839806%_))) - (_%tl96819813%_ + (gx#syntax-e _%hd96619746%_))) + (let ((_%lp-hd96659756%_ + (let () (declare (not safe)) (##car _%e96649752%_))) + (_%lp-tl96669759%_ (let () (declare (not safe)) - (##cdr _%e96839806%_)))) - (if (gx#stx-null? _%tl96819813%_) - ((lambda (_%L9816%_ - _%L9818%_ - _%L9819%_ - _%L9820%_ - _%L9821%_ - _%L9822%_ - _%L9823%_ - _%L9824%_ - _%L9825%_) - (let () - (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L9824%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'lambda) - (cons '() (cons _%L9821%_ '()))) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L9823%_ - (cons (cons (gx#datum->syntax + (##cdr _%e96649752%_)))) + (_%loop96639742%_ + _%lp-tl96669759%_ + (cons _%lp-hd96659756%_ _%dispatch96679749%_)))) + (let ((_%dispatch96689762%_ (reverse _%dispatch96679749%_))) + (if (gx#stx-pair? _%tl96579733%_) + (let ((_%e96719766%_ (gx#syntax-e _%tl96579733%_))) + (let ((_%hd96709770%_ + (let () + (declare (not safe)) + (##car _%e96719766%_))) + (_%tl96699773%_ + (let () + (declare (not safe)) + (##cdr _%e96719766%_)))) + (if (gx#stx-pair? _%tl96699773%_) + (let ((_%e96749776%_ + (gx#syntax-e _%tl96699773%_))) + (let ((_%hd96739780%_ + (let () + (declare (not safe)) + (##car _%e96749776%_))) + (_%tl96729783%_ + (let () + (declare (not safe)) + (##cdr _%e96749776%_)))) + (if (gx#stx-pair? _%tl96729783%_) + (let ((_%e96779786%_ + (gx#syntax-e _%tl96729783%_))) + (let ((_%hd96769790%_ + (let () + (declare (not safe)) + (##car _%e96779786%_))) + (_%tl96759793%_ + (let () + (declare (not safe)) + (##cdr _%e96779786%_)))) + (if (gx#stx-pair? _%tl96759793%_) + (let ((_%e96809796%_ + (gx#syntax-e + _%tl96759793%_))) + (let ((_%hd96799800%_ + (let () + (declare (not safe)) + (##car _%e96809796%_))) + (_%tl96789803%_ + (let () + (declare (not safe)) + (##cdr _%e96809796%_)))) + (if (gx#stx-pair? + _%tl96789803%_) + (let ((_%e96839806%_ + (gx#syntax-e + _%tl96789803%_))) + (let ((_%hd96829810%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##car _%e96839806%_))) + (_%tl96819813%_ + (let () (declare (not safe)) (##cdr _%e96839806%_)))) + (if (gx#stx-null? _%tl96819813%_) + ((lambda (_%L9816%_ + _%L9818%_ + _%L9819%_ + _%L9820%_ + _%L9821%_ + _%L9822%_ + _%L9823%_ + _%L9824%_ + _%L9825%_) + (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons _%L9824%_ + (cons (cons (gx#datum->syntax + '#f + 'lambda) + (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L9820%_ '())) - '())) - '())) + (cons _%L9821%_ '()))) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'let*) - (cons (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'h) - (cons (cons _%L9818%_ (cons _%L9825%_ '())) - '())) - (cons (cons (gx#datum->syntax '#f 'ix) - (cons (cons (gx#datum->syntax - '#f - '##fxmodulo) - (cons (gx#datum->syntax - '#f - 'h) - (cons _%L9819%_ '()))) - '())) - (cons (cons (gx#datum->syntax '#f 'q) - (cons (cons (gx#datum->syntax - '#f - '##vector-ref) - (cons _%L9823%_ - (cons (gx#datum->syntax + (cons (cons _%L9823%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'ix) - '()))) + 'quote) + (cons _%L9820%_ '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - '()))) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (gx#datum->syntax '#f 'q) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L9816%_ - (cons (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax '#f 'let*) + (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##car) - (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L9825%_ '()))) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (gx#datum->syntax '#f 'x) + '#f + 'h) + (cons (cons _%L9818%_ (cons _%L9825%_ '())) '())) + (cons (cons (gx#datum->syntax '#f 'ix) + (cons (cons (gx#datum->syntax + '#f + '##fxmodulo) + (cons (gx#datum->syntax '#f 'h) + (cons _%L9819%_ '()))) + '())) + (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f - '##cdr) - (cons (gx#datum->syntax - '#f - 'q) - '())) + '##vector-ref) + (cons _%L9823%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'ix) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (gx#datum->syntax - '#f - '~case-dispatch) - (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g98699872%_ + '()))) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (gx#datum->syntax '#f 'q) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons _%L9816%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g98709875%_) - (cons _%g98699872%_ _%g98709875%_)) - '() - _%L9822%_))) + '#f + '##car) + (cons (gx#datum->syntax '#f 'q) '())) + (cons _%L9825%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons _%L9824%_ '()) '())))) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'let) + (cons (cons (gx#datum->syntax '#f 'x) + (cons (cons (gx#datum->syntax '#f '##cdr) + (cons (gx#datum->syntax + '#f + 'q) + '())) + '())) + (cons (cons (gx#datum->syntax + '#f + '~case-dispatch) + (cons (gx#datum->syntax '#f 'x) + (foldr (lambda (_%g98699872%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g98709875%_) + (cons _%g98699872%_ _%g98709875%_)) + '() + _%L9822%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L9824%_ '()) '())))) - '()))) + '()))) + (cons (cons _%L9824%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - _%hd96829810%_ - _%hd96799800%_ - _%hd96769790%_ - _%hd96739780%_ - _%hd96709770%_ - _%dispatch96689762%_ - _%hd96559720%_ - _%hd96529710%_ - _%hd96499700%_) - (_%g96379689%_ _%g96389693%_)))) - (_%g96379689%_ _%g96389693%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g96379689%_ - _%g96389693%_)))) - (_%g96379689%_ _%g96389693%_)))) - (_%g96379689%_ _%g96389693%_)))) - (_%g96379689%_ _%g96389693%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop96639742%_ - _%target96609736%_ - '())) - (_%g96379689%_ _%g96389693%_))))) - (_%g96379689%_ _%g96389693%_)))) - (_%g96379689%_ _%g96389693%_)))) - (_%g96379689%_ _%g96389693%_)))) + (cons (cons _%L9824%_ '()) '())))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g96379689%_ - _%g96389693%_)))) + '())))) + _%hd96829810%_ + _%hd96799800%_ + _%hd96769790%_ + _%hd96739780%_ + _%hd96709770%_ + _%dispatch96689762%_ + _%hd96559720%_ + _%hd96529710%_ + _%hd96499700%_) + (_%g96379689%_ _%g96389693%_)))) + (_%g96379689%_ _%g96389693%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g96379689%_ + _%g96389693%_)))) + (_%g96379689%_ _%g96389693%_)))) + (_%g96379689%_ _%g96389693%_)))) + (_%g96379689%_ _%g96389693%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop96639742%_ + _%target96609736%_ + '())) (_%g96379689%_ _%g96389693%_))))) - (_%g96369878%_ - (list _%e9618%_ - (gx#genident 'default) - (gx#genident 'table) - _%dispatch9621%_ - _%default9622%_ - _%tab9632%_ - (vector-length _%tab9632%_) - _%hashf9626%_ - _%eqf9627%_)))))))))) + (_%g96379689%_ _%g96389693%_)))) + (_%g96379689%_ _%g96389693%_)))) + (_%g96379689%_ _%g96389693%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g96379689%_ + _%g96389693%_)))) + (_%g96379689%_ _%g96389693%_))))) + (_%g96369878%_ + (list _%e9618%_ + (gx#genident 'default) + (gx#genident 'table) + _%dispatch9621%_ + _%default9622%_ + _%tab9632%_ + (vector-length _%tab9632%_) + _%hashf9626%_ + _%eqf9627%_))))))))) (let* ((_%g94829506%_ (lambda (_%g94839502%_) (gx#raise-syntax-error @@ -6864,34 +6771,34 @@ (declare (not safe)) (##cdr _%e94919523%_)))) (if (gx#stx-pair/null? _%tl94899530%_) - (let ((_g21022_ + (let ((_g21020_ (gx#syntax-split-splice _%tl94899530%_ '0))) (begin - (let ((_g21023_ + (let ((_g21021_ (let () (declare (not safe)) - (if (##values? _g21022_) + (if (##values? _g21020_) (##vector-length - _g21022_) + _g21020_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g21023_ 2))) + (##fx= _g21021_ 2))) (error "Context expects 2 values" - _g21023_))) + _g21021_))) (let ((_%target94929533%_ (let () (declare (not safe)) (##vector-ref - _g21022_ + _g21020_ 0))) (_%tl94949536%_ (let () (declare (not safe)) (##vector-ref - _g21022_ + _g21020_ 1)))) (if (gx#stx-null? _%tl94949536%_) (letrec ((_%loop94959539%_ @@ -6914,7 +6821,7 @@ (let ((_%clause95009559%_ (reverse _%clause94999546%_))) ((lambda (_%L9563%_ _%L9565%_) - (let ((_g21024_ + (let ((_g21022_ (_%parse-clauses9456%_ _%L9565%_ (foldr (lambda (_%g95839586%_ @@ -6924,77 +6831,71 @@ '() _%L9563%_)))) (begin - (let ((_g21025_ + (let ((_g21023_ (let () (declare (not safe)) - (if (##values? _g21024_) - (##vector-length _g21024_) + (if (##values? _g21022_) + (##vector-length _g21022_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g21025_ 3))) + (##fx= _g21023_ 3))) (error "Context expects 3 values" - _g21025_))) + _g21023_))) (let ((_%datums9592%_ (let () (declare (not safe)) - (##vector-ref _g21024_ 0))) + (##vector-ref _g21022_ 0))) (_%dispatch9594%_ (let () (declare (not safe)) - (##vector-ref _g21024_ 1))) + (##vector-ref _g21022_ 1))) (_%default9595%_ (let () (declare (not safe)) - (##vector-ref _g21024_ 2)))) + (##vector-ref _g21022_ 2)))) (let ((_%datum-count9597%_ (_%count-datums9459%_ _%datums9592%_))) (if (< _%datum-count9597%_ '6) - (let () - (_%generate-simple-case9464%_ - _%L9565%_ - _%datums9592%_ - _%dispatch9594%_ - _%default9595%_)) + (_%generate-simple-case9464%_ + _%L9565%_ + _%datums9592%_ + _%dispatch9594%_ + _%default9595%_) (if (_%char-datums?9461%_ _%datums9592%_) - (let () - (_%generate-char-dispatch9473%_ - _%L9565%_ - _%datums9592%_ - _%dispatch9594%_ - _%default9595%_)) + (_%generate-char-dispatch9473%_ + _%L9565%_ + _%datums9592%_ + _%dispatch9594%_ + _%default9595%_) (if (_%fixnum-datums?9462%_ _%datums9592%_) - (let () - (_%generate-fixnum-dispatch9478%_ - _%L9565%_ - _%datums9592%_ - _%dispatch9594%_ - _%default9595%_)) + (_%generate-fixnum-dispatch9478%_ + _%L9565%_ + _%datums9592%_ + _%dispatch9594%_ + _%default9595%_) (if (< _%datum-count9597%_ '12) - (let () - (_%generate-simple-case9464%_ - _%L9565%_ - _%datums9592%_ - _%dispatch9594%_ - _%default9595%_)) + (_%generate-simple-case9464%_ + _%L9565%_ + _%datums9592%_ + _%dispatch9594%_ + _%default9595%_) (if (_%symbolic-datums?9460%_ _%datums9592%_) - (let () - (_%generate-symbolic-dispatch9468%_ - _%L9565%_ - _%datums9592%_ - _%dispatch9594%_ - _%default9595%_)) - (let () - (_%generate-generic-dispatch9480%_ - _%L9565%_ - _%datums9592%_ - _%dispatch9594%_ - _%default9595%_)))))))))))) + (_%generate-symbolic-dispatch9468%_ + _%L9565%_ + _%datums9592%_ + _%dispatch9594%_ + _%default9595%_) + (_%generate-generic-dispatch9480%_ + _%L9565%_ + _%datums9592%_ + _%dispatch9594%_ + _%default9595%_))))))))))) _%clause95009559%_ _%hd94909527%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -7053,38 +6954,29 @@ ((lambda (_%L12574%_ _%L12576%_) (let ((_%datum-e12592%_ (gx#stx-e _%L12576%_))) - (if (or (let () - (declare - (not safe)) - (symbol? _%datum-e12592%_)) - (let () - (declare - (not safe)) - (keyword? - _%datum-e12592%_)) + (if (or (symbol? _%datum-e12592%_) + (keyword? + _%datum-e12592%_) (immediate? _%datum-e12592%_)) - (let () - (cons (gx#datum->syntax - '#f - 'eq?) - (cons (cons (gx#datum->syntax + (cons (gx#datum->syntax + '#f + 'eq?) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L12576%_ '())) - (cons _%L12574%_ '())))) - (if (let () (declare (not safe)) (number? _%datum-e12592%_)) - (let () - (cons (gx#datum->syntax '#f 'eqv?) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L12576%_ '())) - (cons _%L12574%_ '())))) - (let () - (cons (gx#datum->syntax '#f 'equal?) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L12576%_ '())) - (cons _%L12574%_ '())))))))) + '#f + 'quote) + (cons _%L12576%_ '())) + (cons _%L12574%_ '()))) + (if (number? _%datum-e12592%_) + (cons (gx#datum->syntax '#f 'eqv?) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L12576%_ '())) + (cons _%L12574%_ '()))) + (cons (gx#datum->syntax '#f 'equal?) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L12576%_ '())) + (cons _%L12574%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%hd1253012568%_ _%hd1252712558%_) @@ -7126,31 +7018,31 @@ (declare (not safe)) (##cdr _%e1262612658%_)))) (if (gx#stx-pair/null? _%tl1262412665%_) - (let ((_g21026_ + (let ((_g21024_ (gx#syntax-split-splice _%tl1262412665%_ '0))) (begin - (let ((_g21027_ + (let ((_g21025_ (let () (declare (not safe)) - (if (##values? _g21026_) + (if (##values? _g21024_) (##vector-length - _g21026_) + _g21024_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g21027_ 2))) + (##fx= _g21025_ 2))) (error "Context expects 2 values" - _g21027_))) + _g21025_))) (let ((_%target1262712668%_ (let () (declare (not safe)) - (##vector-ref _g21026_ 0))) + (##vector-ref _g21024_ 0))) (_%tl1262912671%_ (let () (declare (not safe)) - (##vector-ref _g21026_ 1)))) + (##vector-ref _g21024_ 1)))) (if (gx#stx-null? _%tl1262912671%_) (letrec ((_%loop1263012674%_ (lambda (_%hd1262812678%_ @@ -7217,16 +7109,12 @@ (_%g1317413202%_ (lambda (_%g1317613187%_) ((lambda (_%L13190%_) - (let () - (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - '##fx=) - (cons _%L13153%_ - (cons _%L13190%_ - '()))) - (cons _%L13152%_ - (cons _%L13150%_ '())))))) + (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax '#f '##fx=) + (cons _%L13153%_ + (cons _%L13190%_ '()))) + (cons _%L13152%_ + (cons _%L13150%_ '()))))) _%g1317613187%_)))) (_%g1317413202%_ (gx#stx-e _%L13154%_))))) (_%__kont1981319814%_ @@ -7270,29 +7158,27 @@ _%tl1303613068%_) ((lambda (_%L13071%_ _%L13073%_) - (let () - (cons (gx#datum->syntax - '#f - 'if) - (cons (cons (gx#datum->syntax + (cons (gx#datum->syntax + '#f + 'if) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##fx=) - (cons _%L13004%_ (cons _%L13073%_ '()))) - (cons _%L13003%_ - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - '##fx=) - (cons _%L13004%_ - (cons _%L13071%_ + '#f + '##fx=) + (cons _%L13004%_ (cons _%L13073%_ '()))) + (cons _%L13003%_ + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + '##fx=) + (cons _%L13004%_ + (cons _%L13071%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L13002%_ - (cons _%L13000%_ - '())))) - '())))))) + (cons _%L13002%_ + (cons _%L13000%_ '())))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%hd1303713065%_ _%hd1303413055%_) @@ -7649,36 +7535,36 @@ (##cdr _%e1335213394%_)))) (if (gx#stx-pair/null? _%tl1335013401%_) - (let ((_g21028_ + (let ((_g21026_ (gx#syntax-split-splice _%tl1335013401%_ '0))) (begin - (let ((_g21029_ + (let ((_g21027_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g21028_) - (##vector-length _g21028_) + _g21026_) + (##vector-length _g21026_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g21029_ 2))) - (error "Context expects 2 values" _g21029_))) + (if (not (let () (declare (not safe)) (##fx= _g21027_ 2))) + (error "Context expects 2 values" _g21027_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target1335313404%_ (let () (declare (not safe)) (##vector-ref - _g21028_ + _g21026_ 0))) (_%tl1335513407%_ (let () (declare (not safe)) (##vector-ref - _g21028_ + _g21026_ 1)))) (if (gx#stx-null? _%tl1335513407%_) @@ -7713,7 +7599,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%mid13470%_ (quotient _%len13467%_ '2)) - (_g21030_ + (_g21028_ (_%split13336%_ (foldr (lambda (_%g1347213475%_ _%g1347313478%_) @@ -7723,239 +7609,244 @@ _%L13434%_) _%mid13470%_))) (begin - (let ((_g21031_ + (let ((_g21029_ (let () (declare (not safe)) - (if (##values? _g21030_) + (if (##values? _g21028_) (##vector-length - _g21030_) + _g21028_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g21031_ 2))) + (##fx= _g21029_ 2))) (error "Context expects 2 values" - _g21031_))) + _g21029_))) (let ((_%left13481%_ (let () (declare (not safe)) - (##vector-ref _g21030_ 0))) + (##vector-ref _g21028_ 0))) (_%right13483%_ (let () (declare (not safe)) (##vector-ref - _g21030_ + _g21028_ 1)))) - (let () - (let* ((_%g1348713528%_ - (lambda (_%g1348813524%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g1348813524%_))) - (_%g1348613689%_ - (lambda (_%g1348813532%_) + (let* ((_%g1348713528%_ + (lambda (_%g1348813524%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g1348813524%_))) + (_%g1348613689%_ + (lambda (_%g1348813532%_) + (if (gx#stx-pair? + _%g1348813532%_) + (let ((_%e1349513535%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%g1348813532%_))) + (let ((_%hd1349413539%_ + (let () + (declare (not safe)) + (##car _%e1349513535%_))) + (_%tl1349313542%_ + (let () + (declare (not safe)) + (##cdr _%e1349513535%_)))) + (if (gx#stx-pair? _%tl1349313542%_) + (let ((_%e1349813545%_ + (gx#syntax-e _%tl1349313542%_))) + (let ((_%hd1349713549%_ + (let () + (declare (not safe)) + (##car _%e1349813545%_))) + (_%tl1349613552%_ + (let () + (declare (not safe)) + (##cdr _%e1349813545%_)))) + (if (gx#stx-pair/null? _%hd1349713549%_) + (let ((_g21030_ + (gx#syntax-split-splice + _%hd1349713549%_ + '0))) + (begin + (let ((_g21031_ + (let () + (declare (not safe)) + (if (##values? _g21030_) + (##vector-length _g21030_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g21031_ 2))) + (error "Context expects 2 values" + _g21031_))) + (let ((_%target1349913555%_ + (let () + (declare (not safe)) + (##vector-ref _g21030_ 0))) + (_%tl1350113558%_ + (let () + (declare (not safe)) + (##vector-ref _g21030_ 1)))) + (if (gx#stx-null? _%tl1350113558%_) + (letrec ((_%loop1350213561%_ + (lambda (_%hd1350013565%_ + _%K-left1350613568%_) (if (gx#stx-pair? - _%g1348813532%_) - (let ((_%e1349513535%_ + _%hd1350013565%_) + (let ((_%e1350313571%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g1348813532%_))) - (let ((_%hd1349413539%_ + (gx#syntax-e _%hd1350013565%_))) + (let ((_%lp-hd1350413575%_ (let () (declare (not safe)) - (##car _%e1349513535%_))) - (_%tl1349313542%_ + (##car _%e1350313571%_))) + (_%lp-tl1350513578%_ (let () (declare (not safe)) - (##cdr _%e1349513535%_)))) - (if (gx#stx-pair? _%tl1349313542%_) - (let ((_%e1349813545%_ - (gx#syntax-e _%tl1349313542%_))) - (let ((_%hd1349713549%_ - (let () - (declare (not safe)) - (##car _%e1349813545%_))) - (_%tl1349613552%_ - (let () - (declare (not safe)) - (##cdr _%e1349813545%_)))) - (if (gx#stx-pair/null? _%hd1349713549%_) - (let ((_g21032_ - (gx#syntax-split-splice - _%hd1349713549%_ - '0))) - (begin - (let ((_g21033_ - (let () - (declare (not safe)) - (if (##values? _g21032_) - (##vector-length - _g21032_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g21033_ 2))) - (error "Context expects 2 values" - _g21033_))) - (let ((_%target1349913555%_ - (let () - (declare (not safe)) - (##vector-ref _g21032_ 0))) - (_%tl1350113558%_ - (let () - (declare (not safe)) - (##vector-ref _g21032_ 1)))) - (if (gx#stx-null? _%tl1350113558%_) - (letrec ((_%loop1350213561%_ - (lambda (_%hd1350013565%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%K-left1350613568%_) - (if (gx#stx-pair? _%hd1350013565%_) - (let ((_%e1350313571%_ (gx#syntax-e _%hd1350013565%_))) - (let ((_%lp-hd1350413575%_ - (let () - (declare (not safe)) - (##car _%e1350313571%_))) - (_%lp-tl1350513578%_ - (let () - (declare (not safe)) - (##cdr _%e1350313571%_)))) - (_%loop1350213561%_ - _%lp-tl1350513578%_ - (cons _%lp-hd1350413575%_ _%K-left1350613568%_)))) - (let ((_%K-left1350713581%_ - (reverse _%K-left1350613568%_))) - (if (gx#stx-pair? _%tl1349613552%_) - (let ((_%e1351013585%_ - (gx#syntax-e _%tl1349613552%_))) - (let ((_%hd1350913589%_ - (let () - (declare (not safe)) - (##car _%e1351013585%_))) - (_%tl1350813592%_ - (let () - (declare (not safe)) - (##cdr _%e1351013585%_)))) - (if (gx#stx-pair/null? _%hd1350913589%_) - (let ((_g21034_ - (gx#syntax-split-splice - _%hd1350913589%_ - '0))) - (begin - (let ((_g21035_ - (let () - (declare (not safe)) - (if (##values? _g21034_) - (##vector-length - _g21034_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g21035_ 2))) - (error "Context expects 2 values" - _g21035_))) - (let ((_%target1351113595%_ - (let () - (declare (not safe)) - (##vector-ref _g21034_ 0))) - (_%tl1351313598%_ - (let () - (declare (not safe)) - (##vector-ref _g21034_ 1)))) - (if (gx#stx-null? _%tl1351313598%_) - (letrec ((_%loop1351413601%_ - (lambda (_%hd1351213605%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%K-right1351813608%_) - (if (gx#stx-pair? _%hd1351213605%_) - (let ((_%e1351513611%_ (gx#syntax-e _%hd1351213605%_))) - (let ((_%lp-hd1351613615%_ - (let () - (declare (not safe)) - (##car _%e1351513611%_))) - (_%lp-tl1351713618%_ - (let () - (declare (not safe)) - (##cdr _%e1351513611%_)))) - (_%loop1351413601%_ - _%lp-tl1351713618%_ - (cons _%lp-hd1351613615%_ _%K-right1351813608%_)))) - (let ((_%K-right1351913621%_ - (reverse _%K-right1351813608%_))) - (if (gx#stx-pair? _%tl1350813592%_) - (let ((_%e1352213625%_ - (gx#syntax-e _%tl1350813592%_))) - (let ((_%hd1352113629%_ - (let () - (declare (not safe)) - (##car _%e1352213625%_))) - (_%tl1352013632%_ - (let () - (declare (not safe)) - (##cdr _%e1352213625%_)))) - (if (gx#stx-null? _%tl1352013632%_) - ((lambda (_%L13635%_ - _%L13637%_ - _%L13638%_ - _%L13639%_) - (let () - (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - '##fx<) - (cons _%L13436%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L13635%_ '()))) - (cons (cons (gx#datum->syntax '#f '~case-dispatch*) - (cons _%L13437%_ - (cons _%L13436%_ - (foldr (lambda (_%g1367413677%_ - _%g1367513680%_) - (cons _%g1367413677%_ - _%g1367513680%_)) - '() - _%L13638%_)))) - (cons (cons (gx#datum->syntax '#f '~case-dispatch*) - (cons _%L13635%_ - (cons _%L13436%_ - (foldr (lambda (_%g1367213683%_ - _%g1367313686%_) - (cons _%g1367213683%_ - _%g1367313686%_)) - '() - _%L13637%_)))) - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1352113629%_ - _%K-right1351913621%_ - _%K-left1350713581%_ - _%hd1349413539%_) - (_%g1348713528%_ _%g1348813532%_)))) - (_%g1348713528%_ _%g1348813532%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1351413601%_ - _%target1351113595%_ - '())) - (_%g1348713528%_ - _%g1348813532%_))))) - (_%g1348713528%_ _%g1348813532%_)))) - (_%g1348713528%_ _%g1348813532%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1350213561%_ - _%target1349913555%_ - '())) - (_%g1348713528%_ - _%g1348813532%_))))) - (_%g1348713528%_ _%g1348813532%_)))) - (_%g1348713528%_ _%g1348813532%_)))) - (_%g1348713528%_ _%g1348813532%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1348613689%_ - (list _%mid13470%_ - _%left13481%_ - _%right13483%_ - (fx+ _%mid13470%_ - (gx#stx-e - _%L13437%_)))))))))) + (##cdr _%e1350313571%_)))) + (_%loop1350213561%_ + _%lp-tl1350513578%_ + (cons _%lp-hd1350413575%_ _%K-left1350613568%_)))) + (let ((_%K-left1350713581%_ + (reverse _%K-left1350613568%_))) + (if (gx#stx-pair? _%tl1349613552%_) + (let ((_%e1351013585%_ + (gx#syntax-e _%tl1349613552%_))) + (let ((_%hd1350913589%_ + (let () + (declare (not safe)) + (##car _%e1351013585%_))) + (_%tl1350813592%_ + (let () + (declare (not safe)) + (##cdr _%e1351013585%_)))) + (if (gx#stx-pair/null? _%hd1350913589%_) + (let ((_g21032_ + (gx#syntax-split-splice + _%hd1350913589%_ + '0))) + (begin + (let ((_g21033_ + (let () + (declare (not safe)) + (if (##values? _g21032_) + (##vector-length _g21032_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g21033_ 2))) + (error "Context expects 2 values" + _g21033_))) + (let ((_%target1351113595%_ + (let () + (declare (not safe)) + (##vector-ref _g21032_ 0))) + (_%tl1351313598%_ + (let () + (declare (not safe)) + (##vector-ref _g21032_ 1)))) + (if (gx#stx-null? _%tl1351313598%_) + (letrec ((_%loop1351413601%_ + (lambda (_%hd1351213605%_ + _%K-right1351813608%_) + (if (gx#stx-pair? + _%hd1351213605%_) + (let ((_%e1351513611%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%hd1351213605%_))) + (let ((_%lp-hd1351613615%_ + (let () + (declare (not safe)) + (##car _%e1351513611%_))) + (_%lp-tl1351713618%_ + (let () + (declare (not safe)) + (##cdr _%e1351513611%_)))) + (_%loop1351413601%_ + _%lp-tl1351713618%_ + (cons _%lp-hd1351613615%_ _%K-right1351813608%_)))) + (let ((_%K-right1351913621%_ + (reverse _%K-right1351813608%_))) + (if (gx#stx-pair? _%tl1350813592%_) + (let ((_%e1352213625%_ + (gx#syntax-e _%tl1350813592%_))) + (let ((_%hd1352113629%_ + (let () + (declare (not safe)) + (##car _%e1352213625%_))) + (_%tl1352013632%_ + (let () + (declare (not safe)) + (##cdr _%e1352213625%_)))) + (if (gx#stx-null? _%tl1352013632%_) + ((lambda (_%L13635%_ + _%L13637%_ + _%L13638%_ + _%L13639%_) + (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + '##fx<) + (cons _%L13436%_ + (cons _%L13635%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + '~case-dispatch*) + (cons _%L13437%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L13436%_ + (foldr (lambda (_%g1367413677%_ + _%g1367513680%_) + (cons _%g1367413677%_ + _%g1367513680%_)) + '() + _%L13638%_)))) + (cons (cons (gx#datum->syntax '#f '~case-dispatch*) + (cons _%L13635%_ + (cons _%L13436%_ + (foldr (lambda (_%g1367213683%_ + _%g1367313686%_) + (cons _%g1367213683%_ + _%g1367313686%_)) + '() + _%L13637%_)))) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd1352113629%_ + _%K-right1351913621%_ + _%K-left1350713581%_ + _%hd1349413539%_) + (_%g1348713528%_ _%g1348813532%_)))) + (_%g1348713528%_ _%g1348813532%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1351413601%_ + _%target1351113595%_ + '())) + (_%g1348713528%_ + _%g1348813532%_))))) + (_%g1348713528%_ _%g1348813532%_)))) + (_%g1348713528%_ _%g1348813532%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1350213561%_ + _%target1349913555%_ + '())) + (_%g1348713528%_ + _%g1348813532%_))))) + (_%g1348713528%_ _%g1348813532%_)))) + (_%g1348713528%_ _%g1348813532%_)))) + (_%g1348713528%_ _%g1348813532%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1348613689%_ + (list _%mid13470%_ + _%left13481%_ + _%right13483%_ + (fx+ _%mid13470%_ + (gx#stx-e + _%L13437%_))))))))) _%K1336113430%_ _%hd1335113398%_ _%hd1334813388%_)))))) @@ -8000,31 +7891,31 @@ (declare (not safe)) (##cdr _%e1373013805%_)))) (if (gx#stx-pair/null? _%hd1372913809%_) - (let ((_g21036_ + (let ((_g21034_ (gx#syntax-split-splice _%hd1372913809%_ '0))) (begin - (let ((_g21037_ + (let ((_g21035_ (let () (declare (not safe)) - (if (##values? _g21036_) + (if (##values? _g21034_) (##vector-length - _g21036_) + _g21034_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g21037_ 2))) + (##fx= _g21035_ 2))) (error "Context expects 2 values" - _g21037_))) + _g21035_))) (let ((_%target1373113815%_ (let () (declare (not safe)) - (##vector-ref _g21036_ 0))) + (##vector-ref _g21034_ 0))) (_%tl1373313818%_ (let () (declare (not safe)) - (##vector-ref _g21036_ 1)))) + (##vector-ref _g21034_ 1)))) (if (gx#stx-null? _%tl1373313818%_) (letrec ((_%loop1373413821%_ (lambda (_%hd1373213825%_ @@ -8066,36 +7957,36 @@ (##cdr _%e1374913855%_)))) (if (gx#stx-pair/null? _%tl1374713862%_) - (let ((_g21038_ + (let ((_g21036_ (gx#syntax-split-splice _%tl1374713862%_ '0))) (begin - (let ((_g21039_ + (let ((_g21037_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g21038_) - (##vector-length _g21038_) + _g21036_) + (##vector-length _g21036_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g21039_ 2))) - (error "Context expects 2 values" _g21039_))) + (if (not (let () (declare (not safe)) (##fx= _g21037_ 2))) + (error "Context expects 2 values" _g21037_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target1375013865%_ (let () (declare (not safe)) (##vector-ref - _g21038_ + _g21036_ 0))) (_%tl1375213868%_ (let () (declare (not safe)) (##vector-ref - _g21038_ + _g21036_ 1)))) (if (gx#stx-null? _%tl1375213868%_) @@ -8160,37 +8051,37 @@ (##cdr _%e1376413913%_)))) (if (gx#stx-pair/null? _%tl1376213920%_) - (let ((_g21040_ + (let ((_g21038_ (gx#syntax-split-splice _%tl1376213920%_ '0))) (begin - (let ((_g21041_ + (let ((_g21039_ (let () (declare (not safe)) (if (##values? - _g21040_) + _g21038_) (##vector-length - _g21040_) + _g21038_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g21041_ 2))) - (error "Context expects 2 values" _g21041_))) + (##fx= _g21039_ 2))) + (error "Context expects 2 values" _g21039_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target1376513923%_ (let () (declare (not safe)) (##vector-ref - _g21040_ + _g21038_ 0))) (_%tl1376713926%_ (let () (declare (not safe)) (##vector-ref - _g21040_ + _g21038_ 1)))) (if (gx#stx-null? _%tl1376713926%_) @@ -8215,31 +8106,31 @@ (let ((_%fini1377313949%_ (reverse _%fini1377213936%_))) (if (gx#stx-pair/null? _%tl1375913910%_) - (let ((_g21042_ + (let ((_g21040_ (gx#syntax-split-splice _%tl1375913910%_ '0))) (begin - (let ((_g21043_ + (let ((_g21041_ (let () (declare (not safe)) - (if (##values? _g21042_) + (if (##values? _g21040_) (##vector-length - _g21042_) + _g21040_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g21043_ 2))) + (##fx= _g21041_ 2))) (error "Context expects 2 values" - _g21043_))) + _g21041_))) (let ((_%target1377413953%_ (let () (declare (not safe)) - (##vector-ref _g21042_ 0))) + (##vector-ref _g21040_ 0))) (_%tl1377613956%_ (let () (declare (not safe)) - (##vector-ref _g21042_ 1)))) + (##vector-ref _g21040_ 1)))) (if (gx#stx-null? _%tl1377613956%_) (letrec ((_%loop1377713959%_ (lambda (_%hd1377513963%_ @@ -8736,7 +8627,7 @@ (##car _%e1438214538%_)))) (if (gx#identifier? _%hd1438114542%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21051_| + |gerbil/core/sugar~Sugar-2[1]#_g21042_| _%hd1438114542%_) (_%__match2007120072%_ _%e1436514584%_ @@ -9103,7 +8994,7 @@ (##car _%e1541315437%_)))) (if (gx#identifier? _%hd1541215441%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21052_| + |gerbil/core/sugar~Sugar-2[1]#_g21043_| _%hd1541215441%_) (_%__kont2016920170%_ _%tl1541115444%_) (_%__kont2017120172%_)) @@ -9135,7 +9026,7 @@ (##car _%e1535315377%_)))) (if (gx#identifier? _%hd1535215381%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21053_| + |gerbil/core/sugar~Sugar-2[1]#_g21044_| _%hd1535215381%_) (_%__kont2018920190%_ _%tl1535115384%_) (_%__kont2019120192%_)) @@ -9179,30 +9070,30 @@ (_%g1483815150%_ (lambda (_%g1484014869%_) (if (gx#stx-pair/null? _%g1484014869%_) - (let ((_g21054_ + (let ((_g21045_ (gx#syntax-split-splice _%g1484014869%_ '0))) (begin - (let ((_g21055_ + (let ((_g21046_ (let () (declare (not safe)) - (if (##values? _g21054_) - (##vector-length _g21054_) + (if (##values? _g21045_) + (##vector-length _g21045_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g21055_ 2))) + (##fx= _g21046_ 2))) (error "Context expects 2 values" - _g21055_))) + _g21046_))) (let ((_%target1484314872%_ (let () (declare (not safe)) - (##vector-ref _g21054_ 0))) + (##vector-ref _g21045_ 0))) (_%tl1484514875%_ (let () (declare (not safe)) - (##vector-ref _g21054_ 1)))) + (##vector-ref _g21045_ 1)))) (if (gx#stx-null? _%tl1484514875%_) (letrec ((_%loop1484614878%_ (lambda (_%hd1484414882%_ @@ -9257,209 +9148,210 @@ (let ((_%e1485214920%_ (reverse _%e1485014885%_)) (_%hd1485314923%_ (reverse _%hd1485114887%_))) ((lambda (_%L14926%_ _%L14928%_) - (let () - (let* ((_%g1494414961%_ - (lambda (_%g1494514957%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g1494514957%_))) - (_%g1494315138%_ - (lambda (_%g1494514965%_) - (if (gx#stx-pair/null? _%g1494514965%_) - (let ((_g21056_ - (gx#syntax-split-splice - _%g1494514965%_ - '0))) - (begin - (let ((_g21057_ - (let () - (declare (not safe)) - (if (##values? _g21056_) - (##vector-length - _g21056_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g21057_ 2))) - (error "Context expects 2 values" - _g21057_))) - (let ((_%target1494714968%_ - (let () - (declare (not safe)) - (##vector-ref - _g21056_ - 0))) - (_%tl1494914971%_ - (let () - (declare (not safe)) - (##vector-ref - _g21056_ - 1)))) - (if (gx#stx-null? - _%tl1494914971%_) - (letrec ((_%loop1495014974%_ - (lambda (_%hd1494814978%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e1495414981%_) - (if (gx#stx-pair? _%hd1494814978%_) - (let ((_%e1495114984%_ - (gx#syntax-e _%hd1494814978%_))) - (let ((_%lp-hd1495214988%_ - (let () - (declare (not safe)) - (##car _%e1495114984%_))) - (_%lp-tl1495314991%_ - (let () - (declare (not safe)) - (##cdr _%e1495114984%_)))) - (_%loop1495014974%_ - _%lp-tl1495314991%_ - (cons _%lp-hd1495214988%_ _%$e1495414981%_)))) - (let ((_%$e1495514994%_ - (reverse _%$e1495414981%_))) - ((lambda (_%L14998%_) - (let () - (let* ((_%g1501515032%_ - (lambda (_%g1501615028%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g1501615028%_))) - (_%g1501415126%_ - (lambda (_%g1501615036%_) - (if (gx#stx-pair/null? - _%g1501615036%_) - (let ((_g21058_ - (gx#syntax-split-splice - _%g1501615036%_ - '0))) - (begin - (let ((_g21059_ - (let () + (let* ((_%g1494414961%_ + (lambda (_%g1494514957%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g1494514957%_))) + (_%g1494315138%_ + (lambda (_%g1494514965%_) + (if (gx#stx-pair/null? _%g1494514965%_) + (let ((_g21047_ + (gx#syntax-split-splice + _%g1494514965%_ + '0))) + (begin + (let ((_g21048_ + (let () + (declare (not safe)) + (if (##values? _g21047_) + (##vector-length + _g21047_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g21048_ 2))) + (error "Context expects 2 values" + _g21048_))) + (let ((_%target1494714968%_ + (let () + (declare (not safe)) + (##vector-ref + _g21047_ + 0))) + (_%tl1494914971%_ + (let () + (declare (not safe)) + (##vector-ref + _g21047_ + 1)))) + (if (gx#stx-null? + _%tl1494914971%_) + (letrec ((_%loop1495014974%_ + (lambda (_%hd1494814978%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%$e1495414981%_) + (if (gx#stx-pair? _%hd1494814978%_) + (let ((_%e1495114984%_ + (gx#syntax-e _%hd1494814978%_))) + (let ((_%lp-hd1495214988%_ + (let () + (declare (not safe)) + (##car _%e1495114984%_))) + (_%lp-tl1495314991%_ + (let () + (declare (not safe)) + (##cdr _%e1495114984%_)))) + (_%loop1495014974%_ + _%lp-tl1495314991%_ + (cons _%lp-hd1495214988%_ _%$e1495414981%_)))) + (let ((_%$e1495514994%_ (reverse _%$e1495414981%_))) + ((lambda (_%L14998%_) + (let* ((_%g1501515032%_ + (lambda (_%g1501615028%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g1501615028%_))) + (_%g1501415126%_ + (lambda (_%g1501615036%_) + (if (gx#stx-pair/null? + _%g1501615036%_) + (let ((_g21049_ + (gx#syntax-split-splice + _%g1501615036%_ + '0))) + (begin + (let ((_g21050_ + (let () + (declare (not safe)) + (if (##values? + _g21049_) + (##vector-length + _g21049_) + 1)))) + (if (not (let () (declare (not safe)) - (if (##values? + (##fx= _g21050_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g21058_) - (##vector-length _g21058_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g21059_ 2))) - (error "Context expects 2 values" _g21059_))) + 2))) + (error "Context expects 2 values" _g21050_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1501815039%_ - (let () - (declare - (not safe)) - (##vector-ref - _g21058_ - 0))) - (_%tl1502015042%_ - (let () - (declare - (not safe)) - (##vector-ref - _g21058_ - 1)))) - (if (gx#stx-null? - _%tl1502015042%_) - (letrec ((_%loop1502115045%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1501915049%_ _%hd-bind1502515052%_) - (if (gx#stx-pair? _%hd1501915049%_) - (let ((_%e1502215055%_ - (gx#syntax-e _%hd1501915049%_))) - (let ((_%lp-hd1502315059%_ - (let () - (declare (not safe)) - (##car _%e1502215055%_))) - (_%lp-tl1502415062%_ - (let () - (declare (not safe)) - (##cdr _%e1502215055%_)))) - (_%loop1502115045%_ - _%lp-tl1502415062%_ - (cons _%lp-hd1502315059%_ - _%hd-bind1502515052%_)))) - (let ((_%hd-bind1502615065%_ - (reverse _%hd-bind1502515052%_))) - ((lambda (_%L15069%_) + (let ((_%target1501815039%_ + (let () + (declare (not safe)) + (##vector-ref + _g21049_ + 0))) + (_%tl1502015042%_ + (let () + (declare (not safe)) + (##vector-ref + _g21049_ + 1)))) + (if (gx#stx-null? + _%tl1502015042%_) + (letrec ((_%loop1502115045%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd1501915049%_ _%hd-bind1502515052%_) + (if (gx#stx-pair? _%hd1501915049%_) + (let ((_%e1502215055%_ + (gx#syntax-e _%hd1501915049%_))) + (let ((_%lp-hd1502315059%_ (let () - (cons (gx#datum->syntax - '#f - 'let-values) - (cons (begin - (gx#syntax-check-splice-targets - _%L14926%_ - _%L14998%_) - (foldr (lambda (_%g1509415098%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1509515101%_ - _%g1509615103%_) - (cons (cons (cons _%g1509515101%_ '()) - (cons _%g1509415098%_ '())) - _%g1509615103%_)) - '() - _%L14926%_ - _%L14998%_)) - (cons (cons (gx#datum->syntax '#f 'and) - (foldr (lambda (_%g1508715106%_ _%g1508815109%_) - (cons _%g1508715106%_ _%g1508815109%_)) - (cons (cons (gx#datum->syntax '#f 'let-values) - (cons (begin - (gx#syntax-check-splice-targets - _%L14998%_ - _%L15069%_) - (foldr (lambda (_%g1509115112%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1509215115%_ - _%g1509315117%_) - (cons (cons _%g1509215115%_ (cons _%g1509115112%_ '())) - _%g1509315117%_)) - '() - _%L14998%_ - _%L15069%_)) + (declare (not safe)) + (##car _%e1502215055%_))) + (_%lp-tl1502415062%_ + (let () + (declare (not safe)) + (##cdr _%e1502215055%_)))) + (_%loop1502115045%_ + _%lp-tl1502415062%_ + (cons _%lp-hd1502315059%_ + _%hd-bind1502515052%_)))) + (let ((_%hd-bind1502615065%_ + (reverse _%hd-bind1502515052%_))) + ((lambda (_%L15069%_) + (cons (gx#datum->syntax '#f 'let-values) + (cons (begin + (gx#syntax-check-splice-targets + _%L14926%_ + _%L14998%_) + (foldr (lambda (_%g1509415098%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1509515101%_ + _%g1509615103%_) + (cons (cons (cons _%g1509515101%_ '()) + (cons _%g1509415098%_ '())) + _%g1509615103%_)) + '() + _%L14926%_ + _%L14998%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g1508915120%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1509015123%_) - (cons _%g1508915120%_ _%g1509015123%_)) - '() - _%L14806%_))) + (cons (cons (gx#datum->syntax + '#f + 'and) + (foldr (lambda (_%g1508715106%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1508815109%_) + (cons _%g1508715106%_ _%g1508815109%_)) + (cons (cons (gx#datum->syntax '#f 'let-values) + (cons (begin + (gx#syntax-check-splice-targets + _%L14998%_ + _%L15069%_) + (foldr (lambda (_%g1509115112%_ + _%g1509215115%_ + _%g1509315117%_) + (cons (cons _%g1509215115%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%g1509115112%_ '())) + _%g1509315117%_)) + '() + _%L14998%_ + _%L15069%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (foldr (lambda (_%g1508915120%_ + _%g1509015123%_) + (cons _%g1508915120%_ + _%g1509015123%_)) + '() + _%L14806%_))) + '()) + _%L14998%_)) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd-bind1502615065%_)))))) + (_%loop1502115045%_ _%target1501815039%_ '())) + (_%g1501515032%_ _%g1501615036%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1501515032%_ + _%g1501615036%_))))) + (_%g1501415126%_ + (gx#stx-map + _%let-head14643%_ + (foldr (lambda (_%g1512915132%_ + _%g1513015135%_) + (cons _%g1512915132%_ + _%g1513015135%_)) + '() + _%L14928%_))))) + _%$e1495514994%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()) - _%L14998%_)) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd-bind1502615065%_)))))) - (_%loop1502115045%_ _%target1501815039%_ '())) - (_%g1501515032%_ _%g1501615036%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1501515032%_ - _%g1501615036%_))))) - (_%g1501415126%_ - (gx#stx-map - _%let-head14643%_ - (foldr (lambda (_%g1512915132%_ - _%g1513015135%_) - (cons _%g1512915132%_ - _%g1513015135%_)) - '() - _%L14928%_)))))) - _%$e1495514994%_)))))) - (_%loop1495014974%_ _%target1494714968%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1494414961%_ - _%g1494514965%_))))) - (_%g1494414961%_ _%g1494514965%_))))) - (_%g1494315138%_ - (gx#gentemps - (foldr (lambda (_%g1514115144%_ - _%g1514215147%_) - (cons _%g1514115144%_ - _%g1514215147%_)) - '() - _%L14928%_)))))) + (_%loop1495014974%_ + _%target1494714968%_ + '())) + (_%g1494414961%_ + _%g1494514965%_))))) + (_%g1494414961%_ _%g1494514965%_))))) + (_%g1494315138%_ + (gx#gentemps + (foldr (lambda (_%g1514115144%_ _%g1514215147%_) + (cons _%g1514115144%_ _%g1514215147%_)) + '() + _%L14928%_))))) _%e1485214920%_ _%hd1485314923%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -10388,7 +10280,7 @@ (##car _%e1597816356%_)))) (if (gx#identifier? _%hd1597716360%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21060_| + |gerbil/core/sugar~Sugar-2[1]#_g21051_| _%hd1597716360%_) (if (gx#stx-pair? _%tl1597616363%_) (let ((_%e1598116366%_ @@ -10421,7 +10313,7 @@ _%hd1597716360%_ _%hd1597016402%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21061_| + |gerbil/core/sugar~Sugar-2[1]#_g21052_| _%hd1597716360%_) (if (gx#stx-pair? _%tl1597616363%_) @@ -10732,7 +10624,7 @@ (##car _%e1712317321%_)))) (if (gx#identifier? _%hd1712217325%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21062_| + |gerbil/core/sugar~Sugar-2[1]#_g21053_| _%hd1712217325%_) (if (gx#stx-pair? _%tl1712117328%_) (let ((_%e1712617331%_ @@ -10756,7 +10648,7 @@ _%tl1712117328%_ _%hd1712217325%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21063_| + |gerbil/core/sugar~Sugar-2[1]#_g21054_| _%hd1712217325%_) (if (gx#stx-pair? _%tl1712117328%_) @@ -10811,16 +10703,16 @@ (_%g1707517103%_ (lambda (_%g1707717088%_) ((lambda (_%L17091%_) - (let () - (cons (gx#datum->syntax - '#f - 'list) - (cons (cons (gx#datum->syntax + (cons (gx#datum->syntax '#f 'list) + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons (gx#datum->syntax '#f 'quasiquote) '())) - (cons _%L17091%_ '()))))) + '#f + 'quasiquote) + '())) + (cons _%L17091%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%g1707717088%_)))) (_%g1707517103%_ @@ -10840,16 +10732,15 @@ (_%g1700417032%_ (lambda (_%g1700617017%_) ((lambda (_%L17020%_) - (let () - (cons (gx#datum->syntax - '#f - 'list) - (cons (cons (gx#datum->syntax + (cons (gx#datum->syntax + '#f + 'list) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons (gx#datum->syntax '#f 'unquote) '())) - (cons _%L17020%_ '()))))) + '#f + 'quote) + (cons (gx#datum->syntax '#f 'unquote) '())) + (cons _%L17020%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%g1700617017%_)))) (_%g1700417032%_ @@ -10875,17 +10766,15 @@ (_%g1693316961%_ (lambda (_%g1693516946%_) ((lambda (_%L16949%_) - (let () - (cons (gx#datum->syntax - '#f - 'list) - (cons (cons (gx#datum->syntax + (cons (gx#datum->syntax + '#f + 'list) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons (gx#datum->syntax '#f 'unquote-splicing) - '())) - (cons _%L16949%_ '()))))) + '#f + 'quote) + (cons (gx#datum->syntax '#f 'unquote-splicing) '())) + (cons _%L16949%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%g1693516946%_)))) (_%g1693316961%_ @@ -10903,17 +10792,14 @@ (_%g1686216890%_ (lambda (_%g1686416875%_) ((lambda (_%L16878%_) - (let () - (cons (gx#datum->syntax - '#f - 'foldr) - (cons (gx#datum->syntax - '#f - 'cons) - (cons _%L16878%_ - (cons _%L16848%_ + (cons (gx#datum->syntax '#f 'foldr) + (cons (gx#datum->syntax + '#f + 'cons) + (cons _%L16878%_ + (cons _%L16848%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%g1686416875%_)))) (_%g1686216890%_ @@ -10955,9 +10841,8 @@ (let () (declare (not safe)) (##cdr _%e1675416777%_)))) (if (gx#stx-null? _%tl1675216784%_) ((lambda (_%L16787%_ _%L16789%_) - (let () - (cons (gx#datum->syntax '#f 'cons) - (cons _%L16789%_ (cons _%L16787%_ '()))))) + (cons (gx#datum->syntax '#f 'cons) + (cons _%L16789%_ (cons _%L16787%_ '())))) _%hd1675316781%_ _%hd1675016771%_) (_%g1674516760%_ _%g1674616764%_)))) @@ -10984,11 +10869,10 @@ (_%g1667516703%_ (lambda (_%g1667716688%_) ((lambda (_%L16691%_) - (let () - (cons (gx#datum->syntax - '#f - 'list->vector) - (cons _%L16691%_ '())))) + (cons (gx#datum->syntax + '#f + 'list->vector) + (cons _%L16691%_ '()))) _%g1667716688%_)))) (_%g1667516703%_ (_%generate16421%_ @@ -11010,9 +10894,8 @@ (_%g1658916617%_ (lambda (_%g1659116602%_) ((lambda (_%L16605%_) - (let () - (cons (gx#datum->syntax '#f 'box) - (cons _%L16605%_ '())))) + (cons (gx#datum->syntax '#f 'box) + (cons _%L16605%_ '()))) _%g1659116602%_)))) (_%g1658916617%_ (_%generate16421%_ _%L16580%_ _%d16485%_))))) @@ -11114,7 +10997,7 @@ (##car _%e1649917043%_)))) (if (gx#identifier? _%hd1649817047%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21064_| + |gerbil/core/sugar~Sugar-2[1]#_g21055_| _%hd1649817047%_) (if (gx#stx-pair? _%tl1649717050%_) (let ((_%e1650217053%_ @@ -11139,7 +11022,7 @@ _%tl1649717050%_ _%hd1649817047%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21065_| + |gerbil/core/sugar~Sugar-2[1]#_g21056_| _%hd1649817047%_) (if (gx#stx-pair? _%tl1649717050%_) @@ -11167,7 +11050,7 @@ _%tl1649717050%_ _%hd1649817047%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21066_| + |gerbil/core/sugar~Sugar-2[1]#_g21057_| _%hd1649817047%_) (if (gx#stx-pair? _%tl1649717050%_) @@ -11206,7 +11089,7 @@ (if (gx#identifier? _%hd1652316830%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21067_| + |gerbil/core/sugar~Sugar-2[1]#_g21058_| _%hd1652316830%_) (if (gx#stx-pair? _%tl1652216833%_) @@ -11409,11 +11292,11 @@ _%body17593%_))))) (if (gx#identifier? _%__stx2078820789%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21068_| + |gerbil/core/sugar~Sugar-2[1]#_g21059_| _%__stx2078820789%_) (_%__kont2079120792%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21069_| + |gerbil/core/sugar~Sugar-2[1]#_g21060_| _%__stx2078820789%_) (_%__kont2079320794%_) (_%__kont2079520796%_))) @@ -11458,36 +11341,33 @@ (##cdr _%e1747317486%_)))) ((lambda (_%L17496%_) (if (and (gx#stx-list? _%L17496%_) - (let ((__tmp21070 - (gx#stx-null? _%L17496%_))) - (declare (not safe)) - (not __tmp21070))) - (let ((_g21071_ + (not (gx#stx-null? _%L17496%_))) + (let ((_g21061_ (_%generate17465%_ _%L17496%_))) (begin - (let ((_g21072_ + (let ((_g21062_ (let () (declare (not safe)) - (if (##values? _g21071_) - (##vector-length _g21071_) + (if (##values? _g21061_) + (##vector-length _g21061_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g21072_ 3))) + (##fx= _g21062_ 3))) (error "Context expects 3 values" - _g21072_))) + _g21062_))) (let ((_%hd17509%_ (let () (declare (not safe)) - (##vector-ref _g21071_ 0))) + (##vector-ref _g21061_ 0))) (_%body17511%_ (let () (declare (not safe)) - (##vector-ref _g21071_ 1))) + (##vector-ref _g21061_ 1))) (_%tail?17512%_ (let () (declare (not safe)) - (##vector-ref _g21071_ 2)))) + (##vector-ref _g21061_ 2)))) (let* ((_%g1751417522%_ (lambda (_%g1751517518%_) (gx#raise-syntax-error @@ -11497,31 +11377,28 @@ (_%g1751317576%_ (lambda (_%g1751517526%_) ((lambda (_%L17529%_) - (let () - (let* ((_%g1754217550%_ - (lambda (_%g1754317546%_) + (let* ((_%g1754217550%_ + (lambda (_%g1754317546%_) + (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g1754317546%_))) - (_%g1754117572%_ - (lambda (_%g1754317554%_) - ((lambda (_%L17557%_) - (let () - (if _%tail?17512%_ - (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L17529%_ - (cons (cons (gx#datum->syntax - '#f - 'apply) - _%L17557%_) - '()))) - (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L17529%_ - (cons _%L17557%_ '())))))) - _%g1754317554%_)))) - (_%g1754117572%_ _%body17511%_)))) + '#f + '"Bad syntax; invalid match target" + _%g1754317546%_))) + (_%g1754117572%_ + (lambda (_%g1754317554%_) + ((lambda (_%L17557%_) + (if _%tail?17512%_ + (cons (gx#datum->syntax '#f 'lambda%) + (cons _%L17529%_ + (cons (cons (gx#datum->syntax + '#f + 'apply) + _%L17557%_) + '()))) + (cons (gx#datum->syntax '#f 'lambda%) + (cons _%L17529%_ (cons _%L17557%_ '()))))) + _%g1754317554%_)))) + (_%g1754117572%_ _%body17511%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%g1751517526%_)))) (_%g1751317576%_ _%hd17509%_))))) diff --git a/src/bootstrap/gerbil/core/sugar~3.scm b/src/bootstrap/gerbil/core/sugar~3.scm index ea419289a..e686290fa 100644 --- a/src/bootstrap/gerbil/core/sugar~3.scm +++ b/src/bootstrap/gerbil/core/sugar~3.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/sugar~Sugar-3[1]#_g21050_| + (define |gerbil/core/sugar~Sugar-3[1]#_g21069_| (##structure gx#syntax-quote::t 'quote @@ -325,37 +325,37 @@ (##cdr _%e1795818009%_)))) (if (gx#stx-pair/null? _%tl1795618016%_) - (let ((_g21044_ + (let ((_g21063_ (gx#syntax-split-splice _%tl1795618016%_ '0))) (begin - (let ((_g21045_ + (let ((_g21064_ (let () (declare (not safe)) (if (##values? - _g21044_) + _g21063_) (##vector-length - _g21044_) + _g21063_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g21045_ 2))) - (error "Context expects 2 values" _g21045_))) + (##fx= _g21064_ 2))) + (error "Context expects 2 values" _g21064_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target1795918019%_ (let () (declare (not safe)) (##vector-ref - _g21044_ + _g21063_ 0))) (_%tl1796118022%_ (let () (declare (not safe)) (##vector-ref - _g21044_ + _g21063_ 1)))) (if (gx#stx-null? _%tl1796118022%_) @@ -380,31 +380,31 @@ (let ((_%arg1796718045%_ (reverse _%arg1796618032%_))) (if (gx#stx-pair/null? _%tl1795318006%_) - (let ((_g21046_ + (let ((_g21065_ (gx#syntax-split-splice _%tl1795318006%_ '0))) (begin - (let ((_g21047_ + (let ((_g21066_ (let () (declare (not safe)) - (if (##values? _g21046_) + (if (##values? _g21065_) (##vector-length - _g21046_) + _g21065_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g21047_ 2))) + (##fx= _g21066_ 2))) (error "Context expects 2 values" - _g21047_))) + _g21066_))) (let ((_%target1796818049%_ (let () (declare (not safe)) - (##vector-ref _g21046_ 0))) + (##vector-ref _g21065_ 0))) (_%tl1797018052%_ (let () (declare (not safe)) - (##vector-ref _g21046_ 1)))) + (##vector-ref _g21065_ 1)))) (if (gx#stx-null? _%tl1797018052%_) (letrec ((_%loop1797118055%_ (lambda (_%hd1796918059%_ @@ -443,179 +443,168 @@ (_%g1811418339%_ (lambda (_%g1811618127%_) ((lambda (_%L18130%_) - (let () - (let* ((_%g1814218159%_ - (lambda (_%g1814318155%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g1814318155%_))) - (_%g1814118327%_ - (lambda (_%g1814318163%_) - (if (gx#stx-pair/null? - _%g1814318163%_) - (let ((_g21048_ + (let* ((_%g1814218159%_ + (lambda (_%g1814318155%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g1814318155%_))) + (_%g1814118327%_ + (lambda (_%g1814318163%_) + (if (gx#stx-pair/null? + _%g1814318163%_) + (let ((_g21067_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g1814318163%_ '0))) - (begin - (let ((_g21049_ - (let () - (declare (not safe)) - (if (##values? _g21048_) - (##vector-length _g21048_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g21049_ 2))) - (error "Context expects 2 values" _g21049_))) - (let ((_%target1814518166%_ - (let () - (declare (not safe)) - (##vector-ref _g21048_ 0))) - (_%tl1814718169%_ - (let () - (declare (not safe)) - (##vector-ref _g21048_ 1)))) - (if (gx#stx-null? _%tl1814718169%_) - (letrec ((_%loop1814818172%_ - (lambda (_%hd1814618176%_ - _%xarg1815218179%_) - (if (gx#stx-pair? _%hd1814618176%_) - (let ((_%e1814918182%_ - (gx#syntax-e - _%hd1814618176%_))) - (let ((_%lp-hd1815018186%_ - (let () - (declare (not safe)) - (##car _%e1814918182%_))) - (_%lp-tl1815118189%_ - (let () - (declare (not safe)) - (##cdr _%e1814918182%_)))) - (_%loop1814818172%_ - _%lp-tl1815118189%_ - (cons _%lp-hd1815018186%_ - _%xarg1815218179%_)))) - (let ((_%xarg1815318192%_ - (reverse _%xarg1815218179%_))) - ((lambda (_%L18196%_) - (let () - (let* ((_%g1821318221%_ - (lambda (_%g1821418217%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g1821418217%_))) - (_%g1821218291%_ - (lambda (_%g1821418225%_) - ((lambda (_%L18228%_) - (let () - (let* ((_%g1824118249%_ - (lambda (_%g1824218245%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g1824218245%_))) - (_%g1824018271%_ - (lambda (_%g1824218253%_) - ((lambda (_%L18256%_) - (let () - (gx#stx-wrap-source - (cons (gx#datum->syntax - '#f - 'begin) - (cons _%L18256%_ - (cons _%L18228%_ - '()))) - (gx#stx-source _%stx17942%_)))) - _%g1824218253%_)))) - (_%g1824018271%_ - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L18130%_ - (foldr (lambda (_%g1827618279%_ + (gx#syntax-split-splice _%g1814318163%_ '0))) + (begin + (let ((_g21068_ + (let () + (declare (not safe)) + (if (##values? _g21067_) + (##vector-length _g21067_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g21068_ 2))) + (error "Context expects 2 values" _g21068_))) + (let ((_%target1814518166%_ + (let () + (declare (not safe)) + (##vector-ref _g21067_ 0))) + (_%tl1814718169%_ + (let () + (declare (not safe)) + (##vector-ref _g21067_ 1)))) + (if (gx#stx-null? _%tl1814718169%_) + (letrec ((_%loop1814818172%_ + (lambda (_%hd1814618176%_ + _%xarg1815218179%_) + (if (gx#stx-pair? _%hd1814618176%_) + (let ((_%e1814918182%_ + (gx#syntax-e + _%hd1814618176%_))) + (let ((_%lp-hd1815018186%_ + (let () + (declare (not safe)) + (##car _%e1814918182%_))) + (_%lp-tl1815118189%_ + (let () + (declare (not safe)) + (##cdr _%e1814918182%_)))) + (_%loop1814818172%_ + _%lp-tl1815118189%_ + (cons _%lp-hd1815018186%_ + _%xarg1815218179%_)))) + (let ((_%xarg1815318192%_ + (reverse _%xarg1815218179%_))) + ((lambda (_%L18196%_) + (let* ((_%g1821318221%_ + (lambda (_%g1821418217%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g1821418217%_))) + (_%g1821218291%_ + (lambda (_%g1821418225%_) + ((lambda (_%L18228%_) + (let* ((_%g1824118249%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1827718282%_) - (cons _%g1827618279%_ _%g1827718282%_)) - '() - _%L18081%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g1827418285%_ - _%g1827518288%_) - (cons _%g1827418285%_ - _%g1827518288%_)) + (lambda (_%g1824218245%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g1824218245%_))) + (_%g1824018271%_ + (lambda (_%g1824218253%_) + ((lambda (_%L18256%_) + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'begin) + (cons _%L18256%_ + (cons _%L18228%_ '()))) + (gx#stx-source _%stx17942%_))) + _%g1824218253%_)))) + (_%g1824018271%_ + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'def) + (cons (cons _%L18130%_ + (foldr (lambda (_%g1827618279%_ + _%g1827718282%_) + (cons _%g1827618279%_ + _%g1827718282%_)) '() - _%L18079%_))) - (gx#stx-source _%stx17942%_)))))) - _%g1821418225%_)))) - (_%g1821218291%_ - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'defrules) - (cons _%L18082%_ - (cons '() - (cons (cons (cons (gx#datum->syntax - '#f - '_) - (foldr (lambda (_%g1830018303%_ + _%L18081%_)) + (foldr (lambda (_%g1827418285%_ + _%g1827518288%_) + (cons _%g1827418285%_ + _%g1827518288%_)) + '() + _%L18079%_))) + (gx#stx-source _%stx17942%_))))) + _%g1821418225%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1821218291%_ + (gx#stx-wrap-source + (cons (gx#datum->syntax + '#f + 'defrules) + (cons _%L18082%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1830118306%_) - (cons _%g1830018303%_ _%g1830118306%_)) - '() - _%L18196%_)) + (cons '() + (cons (cons (cons (gx#datum->syntax '#f '_) + (foldr (lambda (_%g1830018303%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1830118306%_) + (cons _%g1830018303%_ _%g1830118306%_)) + '() + _%L18196%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons (gx#datum->syntax + (cons (cons (cons (gx#datum->syntax + '#f + 'lambda) + (cons (foldr (lambda (_%g1829818309%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'lambda) - (cons (foldr (lambda (_%g1829818309%_ - _%g1829918312%_) - (cons _%g1829818309%_ - _%g1829918312%_)) - '() - _%L18081%_) - (foldr (lambda (_%g1829618315%_ - _%g1829718318%_) - (cons _%g1829618315%_ - _%g1829718318%_)) - '() - _%L18079%_))) - (foldr (lambda (_%g1829418321%_ _%g1829518324%_) - (cons _%g1829418321%_ _%g1829518324%_)) - '() - _%L18196%_)) - '())) + _%g1829918312%_) + (cons _%g1829818309%_ _%g1829918312%_)) + '() + _%L18081%_) + (foldr (lambda (_%g1829618315%_ _%g1829718318%_) + (cons _%g1829618315%_ _%g1829718318%_)) + '() + _%L18079%_))) + (foldr (lambda (_%g1829418321%_ _%g1829518324%_) + (cons _%g1829418321%_ _%g1829518324%_)) + '() + _%L18196%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'ref) - (cons (cons (gx#datum->syntax + '())) + (cons (cons (gx#datum->syntax '#f 'ref) + (cons (cons (gx#datum->syntax + '#f + 'identifier?) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'identifier?) - (cons (cons (gx#datum->syntax '#f 'syntax) - (cons (gx#datum->syntax '#f 'ref) '())) - '())) - (cons _%L18130%_ '()))) + '#f + 'syntax) + (cons (gx#datum->syntax '#f 'ref) '())) + '())) + (cons _%L18130%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - (gx#stx-source _%stx17942%_)))))) + '()))))) + (gx#stx-source _%stx17942%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%xarg1815318192%_)))))) - (_%loop1814818172%_ - _%target1814518166%_ - '())) - (_%g1814218159%_ _%g1814318163%_))))) - (_%g1814218159%_ _%g1814318163%_))))) + _%xarg1815318192%_)))))) + (_%loop1814818172%_ _%target1814518166%_ '())) + (_%g1814218159%_ _%g1814318163%_))))) + (_%g1814218159%_ _%g1814318163%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1814118327%_ - (gx#gentemps - (foldr (lambda (_%g1833018333%_ + (_%g1814118327%_ + (gx#gentemps + (foldr (lambda (_%g1833018333%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1833118336%_) - (cons _%g1833018333%_ _%g1833118336%_)) - '() - _%L18081%_)))))) + _%g1833118336%_) + (cons _%g1833018333%_ _%g1833118336%_)) + '() + _%L18081%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%g1811618127%_)))) (_%g1811418339%_ @@ -775,7 +764,7 @@ (if (gx#identifier? _%hd1836918489%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-3[1]#_g21050_| + |gerbil/core/sugar~Sugar-3[1]#_g21069_| _%hd1836918489%_) (if (gx#stx-pair? _%tl1836818492%_) diff --git a/src/bootstrap/gerbil/expander/common~0.scm b/src/bootstrap/gerbil/expander/common~0.scm index 73f0d603d..329fb5c53 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 1712533289) + (define gerbil/expander/common::timestamp 1712573430) (begin (define gx#AST::t - (let ((__tmp113674 (list)) - (__tmp113673 (cons (cons 'struct: '#t) '((print: e))))) + (let ((__tmp112911 (list)) + (__tmp112910 (cons (cons 'struct: '#t) '((print: e))))) (declare (not safe)) (__make-class-type 'gerbil#AST::t 'syntax - __tmp113674 + __tmp112911 '(e source) - __tmp113673 + __tmp112910 '#f))) (define gx#AST? (let () (declare (not safe)) (__make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _%$args113572%_ (apply make-instance gx#AST::t _%$args113572%_))) + (lambda _%$args112809%_ (apply make-instance gx#AST::t _%$args112809%_))) (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 a947f3cdf..1d747e2ef 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]#_g113676_| + (define |gx[1]#_g112913_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g113678_| + (define |gx[1]#_g112915_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g113680_| + (define |gx[1]#_g112917_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g113682_| + (define |gx[1]#_g112919_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g113683_| + (define |gx[1]#_g112920_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g113685_| + (define |gx[1]#_g112922_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g113686_| + (define |gx[1]#_g112923_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g113688_| + (define |gx[1]#_g112925_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g113689_| + (define |gx[1]#_g112926_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g113691_| + (define |gx[1]#_g112928_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g113692_| + (define |gx[1]#_g112929_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g113695_| + (define |gx[1]#_g112931_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj113672 + (let ((__obj112909 (let () (declare (not safe)) (##structure @@ -114,109 +114,109 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113672 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj112909 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113672 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj112909 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113672 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj112909 '(e source) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113672 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj112909 '(e source) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113672 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj112909 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113672 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj112909 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113672 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj112909 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113672 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj112909 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113672 '#f '11 '#f '#f)) - (let ((__tmp113675 |gx[1]#_g113676_|)) + (##unchecked-structure-set! __obj112909 '#f '11 '#f '#f)) + (let ((__tmp112912 |gx[1]#_g112913_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113672 __tmp113675 '12 '#f '#f)) - (let ((__tmp113677 |gx[1]#_g113678_|)) + (##unchecked-structure-set! __obj112909 __tmp112912 '12 '#f '#f)) + (let ((__tmp112914 |gx[1]#_g112915_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113672 __tmp113677 '13 '#f '#f)) - (let ((__tmp113679 |gx[1]#_g113680_|)) + (##unchecked-structure-set! __obj112909 __tmp112914 '13 '#f '#f)) + (let ((__tmp112916 |gx[1]#_g112917_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113672 __tmp113679 '14 '#f '#f)) - (let ((__tmp113681 - (cons (cons 'e |gx[1]#_g113682_|) - (cons (cons 'source |gx[1]#_g113683_|) '())))) + (##unchecked-structure-set! __obj112909 __tmp112916 '14 '#f '#f)) + (let ((__tmp112918 + (cons (cons 'e |gx[1]#_g112919_|) + (cons (cons 'source |gx[1]#_g112920_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113672 __tmp113681 '15 '#f '#f)) - (let ((__tmp113684 - (cons (cons 'e |gx[1]#_g113685_|) - (cons (cons 'source |gx[1]#_g113686_|) '())))) + (##unchecked-structure-set! __obj112909 __tmp112918 '15 '#f '#f)) + (let ((__tmp112921 + (cons (cons 'e |gx[1]#_g112922_|) + (cons (cons 'source |gx[1]#_g112923_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113672 __tmp113684 '16 '#f '#f)) - (let ((__tmp113687 - (cons (cons 'e |gx[1]#_g113688_|) - (cons (cons 'source |gx[1]#_g113689_|) '())))) + (##unchecked-structure-set! __obj112909 __tmp112921 '16 '#f '#f)) + (let ((__tmp112924 + (cons (cons 'e |gx[1]#_g112925_|) + (cons (cons 'source |gx[1]#_g112926_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113672 __tmp113687 '17 '#f '#f)) - (let ((__tmp113690 - (cons (cons 'e |gx[1]#_g113691_|) - (cons (cons 'source |gx[1]#_g113692_|) '())))) + (##unchecked-structure-set! __obj112909 __tmp112924 '17 '#f '#f)) + (let ((__tmp112927 + (cons (cons 'e |gx[1]#_g112928_|) + (cons (cons 'source |gx[1]#_g112929_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113672 __tmp113690 '18 '#f '#f)) + (##unchecked-structure-set! __obj112909 __tmp112927 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113672 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj112909 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113672 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj112909 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113672 '() '20 '#f '#f)) - __obj113672)) + (##unchecked-structure-set! __obj112909 '() '20 '#f '#f)) + __obj112909)) (define |gx[:0:]#check-procedure| - (lambda (_%$stx112267%_) - (let* ((_%g112271112285%_ - (lambda (_%g112272112281%_) + (lambda (_%$stx111504%_) + (let* ((_%g111508111522%_ + (lambda (_%g111509111518%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g112272112281%_))) - (_%g112270112327%_ - (lambda (_%g112272112289%_) - (if (gx#stx-pair? _%g112272112289%_) - (let ((_%e112276112292%_ - (gx#syntax-e _%g112272112289%_))) - (let ((_%hd112275112296%_ + _%g111509111518%_))) + (_%g111507111564%_ + (lambda (_%g111509111526%_) + (if (gx#stx-pair? _%g111509111526%_) + (let ((_%e111513111529%_ + (gx#syntax-e _%g111509111526%_))) + (let ((_%hd111512111533%_ (let () (declare (not safe)) - (##car _%e112276112292%_))) - (_%tl112274112299%_ + (##car _%e111513111529%_))) + (_%tl111511111536%_ (let () (declare (not safe)) - (##cdr _%e112276112292%_)))) - (if (gx#stx-pair? _%tl112274112299%_) - (let ((_%e112279112302%_ - (gx#syntax-e _%tl112274112299%_))) - (let ((_%hd112278112306%_ + (##cdr _%e111513111529%_)))) + (if (gx#stx-pair? _%tl111511111536%_) + (let ((_%e111516111539%_ + (gx#syntax-e _%tl111511111536%_))) + (let ((_%hd111515111543%_ (let () (declare (not safe)) - (##car _%e112279112302%_))) - (_%tl112277112309%_ + (##car _%e111516111539%_))) + (_%tl111514111546%_ (let () (declare (not safe)) - (##cdr _%e112279112302%_)))) - (if (gx#stx-null? _%tl112277112309%_) - ((lambda (_%L112312%_) + (##cdr _%e111516111539%_)))) + (if (gx#stx-null? _%tl111514111546%_) + ((lambda (_%L111549%_) (cons (gx#datum->syntax '#f 'unless) (cons (cons (gx#datum->syntax '#f 'procedure?) - (cons _%L112312%_ + (cons _%L111549%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -224,569 +224,559 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'error) - (cons '"expected procedure" (cons _%L112312%_ '()))) + (cons '"expected procedure" (cons _%L111549%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd112278112306%_) - (_%g112271112285%_ _%g112272112289%_)))) - (_%g112271112285%_ _%g112272112289%_)))) - (_%g112271112285%_ _%g112272112289%_))))) - (_%g112270112327%_ _%$stx112267%_)))) + _%hd111515111543%_) + (_%g111508111522%_ _%g111509111526%_)))) + (_%g111508111522%_ _%g111509111526%_)))) + (_%g111508111522%_ _%g111509111526%_))))) + (_%g111507111564%_ _%$stx111504%_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_%stx112331%_) - (letrec ((_%generate112334%_ - (lambda (_%tgt112483%_ _%kws112485%_ _%clauses112486%_) - (letrec ((_%generate-clause112488%_ - (lambda (_%hd113423%_ _%E113425%_) - (let* ((_%__stx113575113576%_ _%hd113423%_) - (_%g113429113456%_ + (lambda (_%stx111568%_) + (letrec ((_%generate111571%_ + (lambda (_%tgt111720%_ _%kws111722%_ _%clauses111723%_) + (letrec ((_%generate-clause111725%_ + (lambda (_%hd112660%_ _%E112662%_) + (let* ((_%__stx112812112813%_ _%hd112660%_) + (_%g112666112693%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx113575113576%_)))) - (let ((_%__kont113578113579%_ - (lambda (_%L113552%_ _%L113554%_) - (_%generate1112490%_ - _%hd113423%_ - _%L113554%_ + _%__stx112812112813%_)))) + (let ((_%__kont112815112816%_ + (lambda (_%L112789%_ _%L112791%_) + (_%generate1111727%_ + _%hd112660%_ + _%L112791%_ '#t - _%L113552%_ - _%E113425%_))) - (_%__kont113580113581%_ - (lambda (_%L113504%_ - _%L113506%_ - _%L113507%_) - (_%generate1112490%_ - _%hd113423%_ - _%L113507%_ - _%L113506%_ - _%L113504%_ - _%E113425%_))) - (_%__kont113582113583%_ + _%L112789%_ + _%E112662%_))) + (_%__kont112817112818%_ + (lambda (_%L112741%_ + _%L112743%_ + _%L112744%_) + (_%generate1111727%_ + _%hd112660%_ + _%L112744%_ + _%L112743%_ + _%L112741%_ + _%E112662%_))) + (_%__kont112819112820%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _%stx112331%_ - _%hd113423%_)))) - (if (gx#stx-pair? _%__stx113575113576%_) - (let ((_%e113435113532%_ + _%stx111568%_ + _%hd112660%_)))) + (if (gx#stx-pair? _%__stx112812112813%_) + (let ((_%e112672112769%_ (gx#syntax-e - _%__stx113575113576%_))) - (let ((_%tl113433113539%_ + _%__stx112812112813%_))) + (let ((_%tl112670112776%_ (let () (declare (not safe)) - (##cdr _%e113435113532%_))) - (_%hd113434113536%_ + (##cdr _%e112672112769%_))) + (_%hd112671112773%_ (let () (declare (not safe)) - (##car _%e113435113532%_)))) + (##car _%e112672112769%_)))) (if (gx#stx-pair? - _%tl113433113539%_) - (let ((_%e113438113542%_ + _%tl112670112776%_) + (let ((_%e112675112779%_ (gx#syntax-e - _%tl113433113539%_))) - (let ((_%tl113436113549%_ + _%tl112670112776%_))) + (let ((_%tl112673112786%_ (let () (declare (not safe)) - (##cdr _%e113438113542%_))) - (_%hd113437113546%_ + (##cdr _%e112675112779%_))) + (_%hd112674112783%_ (let () (declare (not safe)) - (##car _%e113438113542%_)))) + (##car _%e112675112779%_)))) (if (gx#stx-null? - _%tl113436113549%_) - (_%__kont113578113579%_ - _%hd113437113546%_ - _%hd113434113536%_) + _%tl112673112786%_) + (_%__kont112815112816%_ + _%hd112674112783%_ + _%hd112671112773%_) (if (gx#stx-pair? - _%tl113436113549%_) - (let ((_%e113450113494%_ + _%tl112673112786%_) + (let ((_%e112687112731%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl113436113549%_))) - (let ((_%tl113448113501%_ + (gx#syntax-e _%tl112673112786%_))) + (let ((_%tl112685112738%_ (let () (declare (not safe)) - (##cdr _%e113450113494%_))) - (_%hd113449113498%_ + (##cdr _%e112687112731%_))) + (_%hd112686112735%_ (let () (declare (not safe)) - (##car _%e113450113494%_)))) - (if (gx#stx-null? _%tl113448113501%_) - (_%__kont113580113581%_ - _%hd113449113498%_ - _%hd113437113546%_ - _%hd113434113536%_) - (_%__kont113582113583%_)))) - (_%__kont113582113583%_))))) + (##car _%e112687112731%_)))) + (if (gx#stx-null? _%tl112685112738%_) + (_%__kont112817112818%_ + _%hd112686112735%_ + _%hd112674112783%_ + _%hd112671112773%_) + (_%__kont112819112820%_)))) + (_%__kont112819112820%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont113582113583%_)))) - (_%__kont113582113583%_)))))) - (_%generate1112490%_ - (lambda (_%where112876%_ - _%hd112878%_ - _%fender112879%_ - _%body112880%_ - _%E112881%_) - (letrec ((_%recur112883%_ - (lambda (_%hd112886%_ - _%tgt112888%_ - _%K112889%_) - (let* ((_%__stx113621113622%_ - _%hd112886%_) - (_%g112892112904%_ + (_%__kont112819112820%_)))) + (_%__kont112819112820%_)))))) + (_%generate1111727%_ + (lambda (_%where112113%_ + _%hd112115%_ + _%fender112116%_ + _%body112117%_ + _%E112118%_) + (letrec ((_%recur112120%_ + (lambda (_%hd112123%_ + _%tgt112125%_ + _%K112126%_) + (let* ((_%__stx112858112859%_ + _%hd112123%_) + (_%g112129112141%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx113621113622%_)))) - (let ((_%__kont113624113625%_ - (lambda (_%L113213%_ - _%L113215%_) - (let* ((_%g113226113234%_ - (lambda (_%g113227113230%_) + _%__stx112858112859%_)))) + (let ((_%__kont112861112862%_ + (lambda (_%L112450%_ + _%L112452%_) + (let* ((_%g112463112471%_ + (lambda (_%g112464112467%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g113227113230%_))) - (_%g113225113415%_ - (lambda (_%g113227113238%_) - ((lambda (_%L113241%_) - (let () - (let* ((_%g113253113261%_ - (lambda (_%g113254113257%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g113254113257%_))) - (_%g113252113411%_ - (lambda (_%g113254113265%_) - ((lambda (_%L113268%_) - (let () - (let* ((_%g113281113289%_ - (lambda (_%g113282113285%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g113282113285%_))) - (_%g113280113407%_ - (lambda (_%g113282113293%_) - ((lambda (_%L113296%_) - (let () - (let* ((_%g113309113317%_ + _%g112464112467%_))) + (_%g112462112652%_ + (lambda (_%g112464112475%_) + ((lambda (_%L112478%_) + (let* ((_%g112490112498%_ + (lambda (_%g112491112494%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g112491112494%_))) + (_%g112489112648%_ + (lambda (_%g112491112502%_) + ((lambda (_%L112505%_) + (let* ((_%g112518112526%_ + (lambda (_%g112519112522%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g112519112522%_))) + (_%g112517112644%_ + (lambda (_%g112519112530%_) + ((lambda (_%L112533%_) + (let* ((_%g112546112554%_ + (lambda (_%g112547112550%_) + (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g113310113313%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g113310113313%_))) - (_%g113308113403%_ - (lambda (_%g113310113321%_) - ((lambda (_%L113324%_) - (let () - (let* ((_%g113337113345%_ - (lambda (_%g113338113341%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g113338113341%_))) - (_%g113336113399%_ - (lambda (_%g113338113349%_) - ((lambda (_%L113352%_) - (let () - (let* ((_%g113365113373%_ - (lambda (_%g113366113369%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g113366113369%_))) - (_%g113364113395%_ - (lambda (_%g113366113377%_) - ((lambda (_%L113380%_) - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax '#f 'stx-pair?) - (cons _%L113241%_ '())) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L113268%_ + '#f + '"Bad syntax; invalid match target" + _%g112547112550%_))) + (_%g112545112640%_ + (lambda (_%g112547112558%_) + ((lambda (_%L112561%_) + (let* ((_%g112574112582%_ + (lambda (_%g112575112578%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g112575112578%_))) + (_%g112573112636%_ + (lambda (_%g112575112586%_) + ((lambda (_%L112589%_) + (let* ((_%g112602112610%_ + (lambda (_%g112603112606%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g112603112606%_))) + (_%g112601112632%_ + (lambda (_%g112603112614%_) + ((lambda (_%L112617%_) + (cons (gx#datum->syntax + '#f + 'if) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'syntax-e) - (cons _%L113241%_ '())) - '())) - '()) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L113296%_ - (cons (cons (gx#datum->syntax - '#f - '##car) - (cons _%L113268%_ - '())) - '())) - (cons (cons _%L113324%_ - (cons (cons (gx#datum->syntax - '#f - '##cdr) - (cons _%L113268%_ + '#f + 'stx-pair?) + (cons _%L112478%_ '())) + (cons (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons _%L112505%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())) + '#f + 'syntax-e) + (cons _%L112478%_ '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()) + (cons (cons (gx#datum->syntax + '#f + 'let) + (cons (cons (cons _%L112533%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons (gx#datum->syntax '#f '##car) + (cons _%L112505%_ '())) + '())) + (cons (cons _%L112561%_ + (cons (cons (gx#datum->syntax + '#f + '##cdr) + (cons _%L112505%_ '())) '())) - (cons _%L113352%_ '()))) - '()))) + '())) + (cons _%L112589%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L113380%_ '())))))) - _%g113366113377%_)))) + '()))) + (cons _%L112617%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g113364113395%_ - _%E112881%_)))) - _%g113338113349%_)))) - (_%g113336113399%_ - (_%recur112883%_ - _%L113215%_ - _%L113296%_ - (_%recur112883%_ - _%L113213%_ - _%L113324%_ - _%K112889%_)))))) - _%g113310113321%_)))) - (_%g113308113403%_ (gx#genident 'tl))))) - _%g113282113293%_)))) + _%g112603112614%_)))) + (_%g112601112632%_ _%E112118%_))) + _%g112575112586%_)))) + (_%g112573112636%_ + (_%recur112120%_ + _%L112452%_ + _%L112533%_ + (_%recur112120%_ + _%L112450%_ + _%L112561%_ + _%K112126%_))))) + _%g112547112558%_)))) + (_%g112545112640%_ (gx#genident 'tl)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g113280113407%_ - (gx#genident 'hd))))) - _%g113254113265%_)))) - (_%g113252113411%_ (gx#genident 'e))))) - _%g113227113238%_)))) - (_%g113225113415%_ _%tgt112888%_)))) + _%g112519112530%_)))) + (_%g112517112644%_ + (gx#genident 'hd)))) + _%g112491112502%_)))) + (_%g112489112648%_ (gx#genident 'e)))) + _%g112464112475%_)))) + (_%g112462112652%_ _%tgt112125%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont113626113627%_ + (_%__kont112863112864%_ (lambda () (if (gx#identifier? - _%hd112886%_) - (let () - (if (gx#underscore? + _%hd112123%_) + (if (gx#underscore? + _%hd112123%_) + _%K112126%_ + (if (let ((__tmp112930 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd112886%_) - (let () _%K112889%_) - (if (let ((__tmp113693 - (lambda (_%g112918112920%_) - (gx#bound-identifier=? - _%g112918112920%_ - _%hd112886%_)))) - (declare (not safe)) - (__find __tmp113693 _%kws112485%_)) - (let () - (let* ((_%g112926112941%_ - (lambda (_%g112927112937%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g112927112937%_))) - (_%g112925112994%_ - (lambda (_%g112927112945%_) - (if (gx#stx-pair? _%g112927112945%_) - (let ((_%e112932112948%_ - (gx#syntax-e - _%g112927112945%_))) - (let ((_%hd112931112952%_ - (let () - (declare (not safe)) - (##car _%e112932112948%_))) - (_%tl112930112955%_ - (let () - (declare (not safe)) - (##cdr _%e112932112948%_)))) - (if (gx#stx-pair? - _%tl112930112955%_) - (let ((_%e112935112958%_ - (gx#syntax-e - _%tl112930112955%_))) - (let ((_%hd112934112962%_ - (let () - (declare + (lambda (_%g112155112157%_) + (gx#bound-identifier=? + _%g112155112157%_ + _%hd112123%_)))) + (declare (not safe)) + (__find __tmp112930 _%kws111722%_)) + (let* ((_%g112163112178%_ + (lambda (_%g112164112174%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g112164112174%_))) + (_%g112162112231%_ + (lambda (_%g112164112182%_) + (if (gx#stx-pair? _%g112164112182%_) + (let ((_%e112169112185%_ + (gx#syntax-e + _%g112164112182%_))) + (let ((_%hd112168112189%_ + (let () + (declare (not safe)) + (##car _%e112169112185%_))) + (_%tl112167112192%_ + (let () + (declare (not safe)) + (##cdr _%e112169112185%_)))) + (if (gx#stx-pair? + _%tl112167112192%_) + (let ((_%e112172112195%_ + (gx#syntax-e + _%tl112167112192%_))) + (let ((_%hd112171112199%_ + (let () + (declare + (not safe)) + (##car _%e112172112195%_))) + (_%tl112170112202%_ + (let () + (declare + (not safe)) + (##cdr _%e112172112195%_)))) + (if (gx#stx-null? + _%tl112170112202%_) + ((lambda (_%L112205%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _%e112935112958%_))) - (_%tl112933112965%_ - (let () (declare (not safe)) (##cdr _%e112935112958%_)))) - (if (gx#stx-null? _%tl112933112965%_) - ((lambda (_%L112968%_ _%L112970%_) - (let () - (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax '#f 'and) + _%L112207%_) + (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax '#f 'and) + (cons (cons (gx#datum->syntax + '#f + 'identifier?) + (cons _%L112207%_ '())) (cons (cons (gx#datum->syntax '#f - 'identifier?) - (cons _%L112970%_ '())) - (cons (cons (gx#datum->syntax - '#f - 'core-identifier=?) - (cons _%L112970%_ + 'core-identifier=?) + (cons _%L112207%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L112968%_ '())) - '()))) - '()))) + '#f + 'quote) + (cons _%L112205%_ '())) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%K112889%_ - (cons _%E112881%_ '())))))) - _%hd112934112962%_ - _%hd112931112952%_) - (_%g112926112941%_ _%g112927112945%_)))) + '()))) + (cons _%K112126%_ (cons _%E112118%_ '()))))) + _%hd112171112199%_ + _%hd112168112189%_) + (_%g112163112178%_ _%g112164112182%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g112926112941%_ - _%g112927112945%_)))) - (_%g112926112941%_ - _%g112927112945%_))))) - (_%g112925112994%_ - (list _%tgt112888%_ _%hd112886%_)))) - (let () - (let* ((_%g113000113015%_ - (lambda (_%g113001113011%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g113001113011%_))) - (_%g112999113060%_ - (lambda (_%g113001113019%_) - (if (gx#stx-pair? _%g113001113019%_) - (let ((_%e113006113022%_ - (gx#syntax-e - _%g113001113019%_))) - (let ((_%hd113005113026%_ - (let () - (declare (not safe)) - (##car _%e113006113022%_))) - (_%tl113004113029%_ - (let () - (declare (not safe)) - (##cdr _%e113006113022%_)))) - (if (gx#stx-pair? - _%tl113004113029%_) - (let ((_%e113009113032%_ - (gx#syntax-e - _%tl113004113029%_))) - (let ((_%hd113008113036%_ - (let () - (declare + (_%g112163112178%_ + _%g112164112182%_)))) + (_%g112163112178%_ + _%g112164112182%_))))) + (_%g112162112231%_ + (list _%tgt112125%_ _%hd112123%_))) + (let* ((_%g112237112252%_ + (lambda (_%g112238112248%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g112238112248%_))) + (_%g112236112297%_ + (lambda (_%g112238112256%_) + (if (gx#stx-pair? _%g112238112256%_) + (let ((_%e112243112259%_ + (gx#syntax-e + _%g112238112256%_))) + (let ((_%hd112242112263%_ + (let () + (declare (not safe)) + (##car _%e112243112259%_))) + (_%tl112241112266%_ + (let () + (declare (not safe)) + (##cdr _%e112243112259%_)))) + (if (gx#stx-pair? + _%tl112241112266%_) + (let ((_%e112246112269%_ + (gx#syntax-e + _%tl112241112266%_))) + (let ((_%hd112245112273%_ + (let () + (declare + (not safe)) + (##car _%e112246112269%_))) + (_%tl112244112276%_ + (let () + (declare + (not safe)) + (##cdr _%e112246112269%_)))) + (if (gx#stx-null? + _%tl112244112276%_) + ((lambda (_%L112279%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _%e113009113032%_))) - (_%tl113007113039%_ - (let () (declare (not safe)) (##cdr _%e113009113032%_)))) - (if (gx#stx-null? _%tl113007113039%_) - ((lambda (_%L113042%_ _%L113044%_) - (let () - (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L113042%_ - (cons _%L113044%_ '())) - '()) - (cons _%K112889%_ '()))))) - _%hd113008113036%_ - _%hd113005113026%_) - (_%g113000113015%_ _%g113001113019%_)))) + _%L112281%_) + (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons _%L112279%_ (cons _%L112281%_ '())) + '()) + (cons _%K112126%_ '())))) + _%hd112245112273%_ + _%hd112242112263%_) + (_%g112237112252%_ _%g112238112256%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g113000113015%_ - _%g113001113019%_)))) - (_%g113000113015%_ - _%g113001113019%_))))) - (_%g112999113060%_ - (list _%tgt112888%_ _%hd112886%_))))))) - (if (gx#stx-null? _%hd112886%_) - (let () - (let* ((_%g113066113074%_ - (lambda (_%g113067113070%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g113067113070%_))) - (_%g113065113093%_ - (lambda (_%g113067113078%_) - ((lambda (_%L113081%_) - (let () - (cons (gx#datum->syntax '#f 'if) + (_%g112237112252%_ + _%g112238112256%_)))) + (_%g112237112252%_ + _%g112238112256%_))))) + (_%g112236112297%_ + (list _%tgt112125%_ _%hd112123%_))))) + (if (gx#stx-null? _%hd112123%_) + (let* ((_%g112303112311%_ + (lambda (_%g112304112307%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g112304112307%_))) + (_%g112302112330%_ + (lambda (_%g112304112315%_) + ((lambda (_%L112318%_) + (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + 'stx-null?) + (cons _%L112318%_ '())) + (cons _%K112126%_ + (cons _%E112118%_ + '()))))) + _%g112304112315%_)))) + (_%g112302112330%_ _%tgt112125%_)) + (if (gx#stx-datum? _%hd112123%_) + (let* ((_%g112336112355%_ + (lambda (_%g112337112351%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g112337112351%_))) + (_%g112335112414%_ + (lambda (_%g112337112359%_) + (if (gx#stx-pair? _%g112337112359%_) + (let ((_%e112343112362%_ + (gx#syntax-e + _%g112337112359%_))) + (let ((_%hd112342112366%_ + (let () + (declare (not safe)) + (##car _%e112343112362%_))) + (_%tl112341112369%_ + (let () + (declare (not safe)) + (##cdr _%e112343112362%_)))) + (if (gx#stx-pair? + _%tl112341112369%_) + (let ((_%e112346112372%_ + (gx#syntax-e + _%tl112341112369%_))) + (let ((_%hd112345112376%_ + (let () + (declare + (not safe)) + (##car _%e112346112372%_))) + (_%tl112344112379%_ + (let () + (declare + (not safe)) + (##cdr _%e112346112372%_)))) + (if (gx#stx-pair? + _%tl112344112379%_) + (let ((_%e112349112382%_ + (gx#syntax-e +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%tl112344112379%_))) + (let ((_%hd112348112386%_ + (let () + (declare (not safe)) + (##car _%e112349112382%_))) + (_%tl112347112389%_ + (let () + (declare (not safe)) + (##cdr _%e112349112382%_)))) + (if (gx#stx-null? _%tl112347112389%_) + ((lambda (_%L112392%_ _%L112394%_ _%L112395%_) + (cons (gx#datum->syntax '#f 'if) + (cons (cons _%L112392%_ (cons (cons (gx#datum->syntax '#f - 'stx-null?) - (cons _%L113081%_ + 'stx-e) + (cons _%L112395%_ '())) - (cons _%K112889%_ - (cons _%E112881%_ - '())))))) - _%g113067113078%_)))) - (_%g113065113093%_ _%tgt112888%_))) - (if (gx#stx-datum? _%hd112886%_) - (let () - (let* ((_%g113099113118%_ - (lambda (_%g113100113114%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g113100113114%_))) - (_%g113098113177%_ - (lambda (_%g113100113122%_) - (if (gx#stx-pair? _%g113100113122%_) - (let ((_%e113106113125%_ - (gx#syntax-e - _%g113100113122%_))) - (let ((_%hd113105113129%_ - (let () - (declare (not safe)) - (##car _%e113106113125%_))) - (_%tl113104113132%_ - (let () - (declare (not safe)) - (##cdr _%e113106113125%_)))) - (if (gx#stx-pair? - _%tl113104113132%_) - (let ((_%e113109113135%_ - (gx#syntax-e - _%tl113104113132%_))) - (let ((_%hd113108113139%_ - (let () - (declare - (not safe)) - (##car _%e113109113135%_))) - (_%tl113107113142%_ - (let () - (declare - (not safe)) - (##cdr _%e113109113135%_)))) - (if (gx#stx-pair? - _%tl113107113142%_) - (let ((_%e113112113145%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl113107113142%_))) - (let ((_%hd113111113149%_ - (let () - (declare (not safe)) - (##car _%e113112113145%_))) - (_%tl113110113152%_ - (let () - (declare (not safe)) - (##cdr _%e113112113145%_)))) - (if (gx#stx-null? _%tl113110113152%_) - ((lambda (_%L113155%_ _%L113157%_ _%L113158%_) - (let () - (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L113155%_ - (cons (cons (gx#datum->syntax - '#f - 'stx-e) - (cons _%L113158%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L113157%_ '())) - '()))) + '#f + 'quote) + (cons _%L112394%_ '())) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%K112889%_ - (cons _%E112881%_ '())))))) - _%hd113111113149%_ - _%hd113108113139%_ - _%hd113105113129%_) - (_%g113099113118%_ _%g113100113122%_)))) - (_%g113099113118%_ _%g113100113122%_)))) + (cons _%K112126%_ + (cons _%E112118%_ '()))))) + _%hd112348112386%_ + _%hd112345112376%_ + _%hd112342112366%_) + (_%g112336112355%_ _%g112337112359%_)))) + (_%g112336112355%_ _%g112337112359%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g113099113118%_ - _%g113100113122%_)))) - (_%g113099113118%_ - _%g113100113122%_))))) - (_%g113098113177%_ - (list _%tgt112888%_ - _%hd112886%_ - (let ((_%e113181%_ - (gx#stx-e _%hd112886%_))) - (if (or (let () - (declare (not safe)) - (keyword? _%e113181%_)) - (let () - (declare (not safe)) - (immediate? _%e113181%_))) - (let () - (gx#datum->syntax '#f 'eq?)) - (if (let () - (declare (not safe)) - (number? _%e113181%_)) - (let () - (gx#datum->syntax '#f 'eqv?)) - (let () - (gx#datum->syntax - '#f - 'equal?))))))))) - (let () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid syntax-case head" - _%stx112331%_ - _%where112876%_ - _%hd112886%_)))))))) + (_%g112336112355%_ + _%g112337112359%_)))) + (_%g112336112355%_ + _%g112337112359%_))))) + (_%g112335112414%_ + (list _%tgt112125%_ + _%hd112123%_ + (let ((_%e112418%_ + (gx#stx-e _%hd112123%_))) + (if (or (keyword? _%e112418%_) + (let () + (declare (not safe)) + (immediate? _%e112418%_))) + (gx#datum->syntax '#f 'eq?) + (if (number? _%e112418%_) + (gx#datum->syntax '#f 'eqv?) + (gx#datum->syntax + '#f + 'equal?))))))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case head" + _%stx111568%_ + _%where112113%_ + _%hd112123%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx113621113622%_) - (let ((_%e112898113203%_ + _%__stx112858112859%_) + (let ((_%e112135112440%_ (gx#syntax-e - _%__stx113621113622%_))) - (let ((_%tl112896113210%_ + _%__stx112858112859%_))) + (let ((_%tl112133112447%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e112898113203%_))) - (_%hd112897113207%_ - (let () (declare (not safe)) (##car _%e112898113203%_)))) - (_%__kont113624113625%_ - _%tl112896113210%_ - _%hd112897113207%_))) + (##cdr _%e112135112440%_))) + (_%hd112134112444%_ + (let () (declare (not safe)) (##car _%e112135112440%_)))) + (_%__kont112861112862%_ + _%tl112133112447%_ + _%hd112134112444%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont113626113627%_))))))) - (_%recur112883%_ - _%hd112878%_ - _%tgt112483%_ + (_%__kont112863112864%_))))))) + (_%recur112120%_ + _%hd112115%_ + _%tgt111720%_ (cons (gx#datum->syntax '#f 'if) - (cons _%fender112879%_ - (cons _%body112880%_ - (cons _%E112881%_ + (cons _%fender112116%_ + (cons _%body112117%_ + (cons _%E112118%_ '())))))))) - (_%generate-clauses112491%_ - (lambda (_%clauses112614%_) - (let _%lp112617%_ ((_%rest112620%_ - _%clauses112614%_) - (_%E112622%_ + (_%generate-clauses111728%_ + (lambda (_%clauses111851%_) + (let _%lp111854%_ ((_%rest111857%_ + _%clauses111851%_) + (_%E111859%_ (gx#genident 'E)) - (_%r112623%_ '())) - (let* ((_%__stx113657113658%_ _%rest112620%_) - (_%g112626112638%_ + (_%r111860%_ '())) + (let* ((_%__stx112894112895%_ _%rest111857%_) + (_%g111863111875%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx113657113658%_)))) - (let ((_%__kont113660113661%_ - (lambda (_%L112703%_ _%L112705%_) - (let* ((_%__stx113637113638%_ - _%L112705%_) - (_%g112717112728%_ + _%__stx112894112895%_)))) + (let ((_%__kont112897112898%_ + (lambda (_%L111940%_ _%L111942%_) + (let* ((_%__stx112874112875%_ + _%L111942%_) + (_%g111954111965%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx113637113638%_)))) - (let ((_%__kont113640113641%_ - (lambda (_%L112857%_) + _%__stx112874112875%_)))) + (let ((_%__kont112877112878%_ + (lambda (_%L112094%_) (if (gx#stx-null? - _%L112703%_) + _%L111940%_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L112857%_) - (let ((__tmp113694 (gx#stx-null? _%L112857%_))) - (declare (not safe)) - (not __tmp113694))) - (cons (cons _%E112622%_ + _%L112094%_) + (not (gx#stx-null? _%L112094%_))) + (cons (cons _%E111859%_ (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() @@ -794,342 +784,333 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - _%L112857%_) + _%L112094%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%L112705%_)) + (gx#stx-source _%L111942%_)) '())) - _%r112623%_) + _%r111860%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _%stx112331%_ - _%L112705%_)) + _%stx111568%_ + _%L111942%_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _%stx112331%_ - _%L112705%_)))) + _%stx111568%_ + _%L111942%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont113642113643%_ + (_%__kont112879112880%_ (lambda () - (let* ((_%g112739112747%_ - (lambda (_%g112740112743%_) + (let* ((_%g111976111984%_ + (lambda (_%g111977111980%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g112740112743%_))) - (_%g112738112836%_ - (lambda (_%g112740112751%_) - ((lambda (_%L112754%_) - (let () - (let* ((_%g112770112778%_ - (lambda (_%g112771112774%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g112771112774%_))) - (_%g112769112832%_ - (lambda (_%g112771112782%_) - ((lambda (_%L112785%_) - (let () - (let* ((_%g112798112806%_ - (lambda (_%g112799112802%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g112799112802%_))) - (_%g112797112828%_ - (lambda (_%g112799112810%_) - ((lambda (_%L112813%_) - (let () - (_%lp112617%_ - _%L112703%_ - _%L112754%_ - (cons (cons _%E112622%_ + _%g111977111980%_))) + (_%g111975112073%_ + (lambda (_%g111977111988%_) + ((lambda (_%L111991%_) + (let* ((_%g112007112015%_ + (lambda (_%g112008112011%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g112008112011%_))) + (_%g112006112069%_ + (lambda (_%g112008112019%_) + ((lambda (_%L112022%_) + (let* ((_%g112035112043%_ + (lambda (_%g112036112039%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g112036112039%_))) + (_%g112034112065%_ + (lambda (_%g112036112047%_) + ((lambda (_%L112050%_) + (_%lp111854%_ + _%L111940%_ + _%L111991%_ + (cons (cons _%E111859%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L112813%_ '())) - _%r112623%_)))) - _%g112799112810%_)))) + (cons _%L112050%_ '())) + _%r111860%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g112797112828%_ - (gx#stx-wrap-source - (cons (gx#datum->syntax - '#f - 'lambda) - (cons '() - (cons _%L112785%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source - _%L112705%_)))))) - _%g112771112782%_)))) - (_%g112769112832%_ - (_%generate-clause112488%_ - _%L112705%_ - (cons _%L112754%_ '())))))) - _%g112740112751%_)))) - (_%g112738112836%_ (gx#genident 'E)))))) + _%g112036112047%_)))) + (_%g112034112065%_ + (gx#stx-wrap-source + (cons (gx#datum->syntax + '#f + 'lambda) + (cons '() + (cons _%L112022%_ + '()))) + (gx#stx-source _%L111942%_))))) + _%g112008112019%_)))) + (_%g112006112069%_ + (_%generate-clause111725%_ + _%L111942%_ + (cons _%L111991%_ '()))))) + _%g111977111988%_)))) + (_%g111975112073%_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx113637113638%_) - (let ((_%e112722112847%_ + _%__stx112874112875%_) + (let ((_%e111959112084%_ (gx#syntax-e - _%__stx113637113638%_))) - (let ((_%tl112720112854%_ + _%__stx112874112875%_))) + (let ((_%tl111957112091%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e112722112847%_))) - (_%hd112721112851%_ - (let () (declare (not safe)) (##car _%e112722112847%_)))) - (if (gx#identifier? _%hd112721112851%_) + (##cdr _%e111959112084%_))) + (_%hd111958112088%_ + (let () (declare (not safe)) (##car _%e111959112084%_)))) + (if (gx#identifier? _%hd111958112088%_) (if (gx#free-identifier=? - |gx[1]#_g113695_| - _%hd112721112851%_) - (_%__kont113640113641%_ _%tl112720112854%_) - (_%__kont113642113643%_)) - (_%__kont113642113643%_)))) + |gx[1]#_g112931_| + _%hd111958112088%_) + (_%__kont112877112878%_ _%tl111957112091%_) + (_%__kont112879112880%_)) + (_%__kont112879112880%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont113642113643%_)))))) - (_%__kont113662113663%_ + (_%__kont112879112880%_)))))) + (_%__kont112899112900%_ (lambda () - (let* ((_%g112649112657%_ - (lambda (_%g112650112653%_) + (let* ((_%g111886111894%_ + (lambda (_%g111887111890%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g112650112653%_))) - (_%g112648112682%_ - (lambda (_%g112650112661%_) - ((lambda (_%L112664%_) - (let () - (cons (cons _%E112622%_ + _%g111887111890%_))) + (_%g111885111919%_ + (lambda (_%g111887111898%_) + ((lambda (_%L111901%_) + (cons (cons _%E111859%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'lambda) - (cons '() - (cons (cons (gx#datum->syntax - '#f - 'raise-syntax-error) - (cons '#f + (cons (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'lambda) + (cons '() + (cons (cons (gx#datum->syntax + '#f + 'raise-syntax-error) + (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '"Bad syntax; invalid syntax-case clause" - (cons _%L112664%_ '())))) - '()))) + (cons '"Bad syntax; invalid syntax-case clause" + (cons _%L111901%_ '())))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx112331%_)) - '())) - _%r112623%_))) - _%g112650112661%_)))) + (gx#stx-source _%stx111568%_)) + '())) + _%r111860%_)) + _%g111887111898%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g112648112682%_ - _%tgt112483%_))))) - (if (gx#stx-pair? _%__stx113657113658%_) - (let ((_%e112632112693%_ + (_%g111885111919%_ + _%tgt111720%_))))) + (if (gx#stx-pair? _%__stx112894112895%_) + (let ((_%e111869111930%_ (gx#syntax-e - _%__stx113657113658%_))) - (let ((_%tl112630112700%_ + _%__stx112894112895%_))) + (let ((_%tl111867111937%_ (let () (declare (not safe)) - (##cdr _%e112632112693%_))) - (_%hd112631112697%_ + (##cdr _%e111869111930%_))) + (_%hd111868111934%_ (let () (declare (not safe)) - (##car _%e112632112693%_)))) - (_%__kont113660113661%_ - _%tl112630112700%_ - _%hd112631112697%_))) - (_%__kont113662113663%_)))))))) - (let* ((_%bind112493%_ - (_%generate-clauses112491%_ _%clauses112486%_)) - (_%g112496112513%_ - (lambda (_%g112497112509%_) + (##car _%e111869111930%_)))) + (_%__kont112897112898%_ + _%tl111867111937%_ + _%hd111868111934%_))) + (_%__kont112899112900%_)))))))) + (let* ((_%bind111730%_ + (_%generate-clauses111728%_ _%clauses111723%_)) + (_%g111733111750%_ + (lambda (_%g111734111746%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g112497112509%_))) - (_%g112495112610%_ - (lambda (_%g112497112517%_) - (if (gx#stx-pair/null? _%g112497112517%_) - (let ((_g113696_ + _%g111734111746%_))) + (_%g111732111847%_ + (lambda (_%g111734111754%_) + (if (gx#stx-pair/null? _%g111734111754%_) + (let ((_g112932_ (gx#syntax-split-splice - _%g112497112517%_ + _%g111734111754%_ '0))) (begin - (let ((_g113697_ + (let ((_g112933_ (let () (declare (not safe)) - (if (##values? _g113696_) + (if (##values? _g112932_) (##vector-length - _g113696_) + _g112932_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g113697_ 2))) + (##fx= _g112933_ 2))) (error "Context expects 2 values" - _g113697_))) - (let ((_%target112499112520%_ + _g112933_))) + (let ((_%target111736111757%_ (let () (declare (not safe)) - (##vector-ref _g113696_ 0))) - (_%tl112501112523%_ + (##vector-ref _g112932_ 0))) + (_%tl111738111760%_ (let () (declare (not safe)) - (##vector-ref _g113696_ 1)))) - (if (gx#stx-null? _%tl112501112523%_) - (letrec ((_%loop112502112526%_ - (lambda (_%hd112500112530%_ + (##vector-ref _g112932_ 1)))) + (if (gx#stx-null? _%tl111738111760%_) + (letrec ((_%loop111739111763%_ + (lambda (_%hd111737111767%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind-try112506112533%_) - (if (gx#stx-pair? _%hd112500112530%_) - (let ((_%e112503112536%_ - (gx#syntax-e _%hd112500112530%_))) - (let ((_%lp-hd112504112540%_ + _%bind-try111743111770%_) + (if (gx#stx-pair? _%hd111737111767%_) + (let ((_%e111740111773%_ + (gx#syntax-e _%hd111737111767%_))) + (let ((_%lp-hd111741111777%_ (let () (declare (not safe)) - (##car _%e112503112536%_))) - (_%lp-tl112505112543%_ + (##car _%e111740111773%_))) + (_%lp-tl111742111780%_ (let () (declare (not safe)) - (##cdr _%e112503112536%_)))) - (_%loop112502112526%_ - _%lp-tl112505112543%_ - (cons _%lp-hd112504112540%_ - _%bind-try112506112533%_)))) - (let ((_%bind-try112507112546%_ - (reverse _%bind-try112506112533%_))) - ((lambda (_%L112550%_) - (let () - (let* ((_%g112568112576%_ - (lambda (_%g112569112572%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g112569112572%_))) - (_%g112567112606%_ - (lambda (_%g112569112580%_) - ((lambda (_%L112583%_) - (let () - (cons (gx#datum->syntax '#f 'let*) - (cons (let ((__tmp113698 - (lambda (_%g112597112600%_ + (##cdr _%e111740111773%_)))) + (_%loop111739111763%_ + _%lp-tl111742111780%_ + (cons _%lp-hd111741111777%_ + _%bind-try111743111770%_)))) + (let ((_%bind-try111744111783%_ + (reverse _%bind-try111743111770%_))) + ((lambda (_%L111787%_) + (let* ((_%g111805111813%_ + (lambda (_%g111806111809%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g111806111809%_))) + (_%g111804111843%_ + (lambda (_%g111806111817%_) + ((lambda (_%L111820%_) + (cons (gx#datum->syntax '#f 'let*) + (cons (let ((__tmp112934 + (lambda (_%g111834111837%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g112598112603%_) - (cons _%g112597112600%_ _%g112598112603%_)))) - (declare (not safe)) - (__foldr1 __tmp113698 '() _%L112550%_)) - (cons (cons _%L112583%_ '()) '()))))) + _%g111835111840%_) + (cons _%g111834111837%_ _%g111835111840%_)))) + (declare (not safe)) + (__foldr1 __tmp112934 '() _%L111787%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g112569112580%_)))) - (_%g112567112606%_ - (car (last _%bind112493%_)))))) - _%bind-try112507112546%_)))))) + (cons (cons _%L111820%_ + '()) + '())))) + _%g111806111817%_)))) + (_%g111804111843%_ (car (last _%bind111730%_))))) + _%bind-try111744111783%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop112502112526%_ - _%target112499112520%_ + (_%loop111739111763%_ + _%target111736111757%_ '())) - (_%g112496112513%_ - _%g112497112517%_))))) - (_%g112496112513%_ _%g112497112517%_))))) - (_%g112495112610%_ _%bind112493%_)))))) - (let* ((_%g112337112356%_ - (lambda (_%g112338112352%_) + (_%g111733111750%_ + _%g111734111754%_))))) + (_%g111733111750%_ _%g111734111754%_))))) + (_%g111732111847%_ _%bind111730%_)))))) + (let* ((_%g111574111593%_ + (lambda (_%g111575111589%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g112338112352%_))) - (_%g112336112479%_ - (lambda (_%g112338112360%_) - (if (gx#stx-pair? _%g112338112360%_) - (let ((_%e112344112363%_ - (gx#syntax-e _%g112338112360%_))) - (let ((_%hd112343112367%_ + _%g111575111589%_))) + (_%g111573111716%_ + (lambda (_%g111575111597%_) + (if (gx#stx-pair? _%g111575111597%_) + (let ((_%e111581111600%_ + (gx#syntax-e _%g111575111597%_))) + (let ((_%hd111580111604%_ (let () (declare (not safe)) - (##car _%e112344112363%_))) - (_%tl112342112370%_ + (##car _%e111581111600%_))) + (_%tl111579111607%_ (let () (declare (not safe)) - (##cdr _%e112344112363%_)))) - (if (gx#stx-pair? _%tl112342112370%_) - (let ((_%e112347112373%_ - (gx#syntax-e _%tl112342112370%_))) - (let ((_%hd112346112377%_ + (##cdr _%e111581111600%_)))) + (if (gx#stx-pair? _%tl111579111607%_) + (let ((_%e111584111610%_ + (gx#syntax-e _%tl111579111607%_))) + (let ((_%hd111583111614%_ (let () (declare (not safe)) - (##car _%e112347112373%_))) - (_%tl112345112380%_ + (##car _%e111584111610%_))) + (_%tl111582111617%_ (let () (declare (not safe)) - (##cdr _%e112347112373%_)))) - (if (gx#stx-pair? _%tl112345112380%_) - (let ((_%e112350112383%_ + (##cdr _%e111584111610%_)))) + (if (gx#stx-pair? _%tl111582111617%_) + (let ((_%e111587111620%_ (gx#syntax-e - _%tl112345112380%_))) - (let ((_%hd112349112387%_ + _%tl111582111617%_))) + (let ((_%hd111586111624%_ (let () (declare (not safe)) - (##car _%e112350112383%_))) - (_%tl112348112390%_ + (##car _%e111587111620%_))) + (_%tl111585111627%_ (let () (declare (not safe)) - (##cdr _%e112350112383%_)))) - ((lambda (_%L112393%_ - _%L112395%_ - _%L112396%_) + (##cdr _%e111587111620%_)))) + ((lambda (_%L111630%_ + _%L111632%_ + _%L111633%_) (if (and (gx#identifier-list? - _%L112395%_) + _%L111632%_) (gx#stx-list? - _%L112393%_)) - (let* ((_%g112414112422%_ - (lambda (_%g112415112418%_) + _%L111630%_)) + (let* ((_%g111651111659%_ + (lambda (_%g111652111655%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g112415112418%_))) - (_%g112413112475%_ - (lambda (_%g112415112426%_) - ((lambda (_%L112429%_) - (let () + _%g111652111655%_))) + (_%g111650111712%_ + (lambda (_%g111652111663%_) + ((lambda (_%L111666%_) + (let* ((_%g111678111686%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g112441112449%_ - (lambda (_%g112442112445%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g112442112445%_))) - (_%g112440112471%_ - (lambda (_%g112442112453%_) - ((lambda (_%L112456%_) - (let () - (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L112429%_ + (lambda (_%g111679111682%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g111679111682%_))) + (_%g111677111708%_ + (lambda (_%g111679111690%_) + ((lambda (_%L111693%_) + (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons _%L111666%_ + (cons _%L111633%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L112396%_ '())) - '()) + '())) + '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L112456%_ '()))))) - _%g112442112453%_)))) - (_%g112440112471%_ - (_%generate112334%_ - _%L112429%_ - (gx#syntax->list _%L112395%_) - _%L112393%_))))) - _%g112415112426%_)))) + (cons _%L111693%_ '())))) + _%g111679111690%_)))) + (_%g111677111708%_ + (_%generate111571%_ + _%L111666%_ + (gx#syntax->list _%L111632%_) + _%L111630%_)))) + _%g111652111663%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g112413112475%_ + (_%g111650111712%_ (gx#genident 'e))) - (_%g112337112356%_ - _%g112338112360%_))) - _%tl112348112390%_ - _%hd112349112387%_ - _%hd112346112377%_))) - (_%g112337112356%_ - _%g112338112360%_)))) - (_%g112337112356%_ _%g112338112360%_)))) - (_%g112337112356%_ _%g112338112360%_))))) - (_%g112336112479%_ _%stx112331%_))))))) + (_%g111574111593%_ + _%g111575111597%_))) + _%tl111585111627%_ + _%hd111586111624%_ + _%hd111583111614%_))) + (_%g111574111593%_ + _%g111575111597%_)))) + (_%g111574111593%_ _%g111575111597%_)))) + (_%g111574111593%_ _%g111575111597%_))))) + (_%g111573111716%_ _%stx111568%_))))))) diff --git a/src/bootstrap/gerbil/expander/compile.ssxi.ss b/src/bootstrap/gerbil/expander/compile.ssxi.ss index c8bf312bd..9d28f9c98 100644 --- a/src/bootstrap/gerbil/expander/compile.ssxi.ss +++ b/src/bootstrap/gerbil/expander/compile.ssxi.ss @@ -2,45 +2,512 @@ prelude: :gerbil/compiler/ssxi package: gerbil/expander (begin - (declare-type gx#core-compile-top-syntax (@lambda 1 #f)) + (declare-type + gx#core-compile-top-syntax + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) (declare-type gx#core-expander::compile-top-syntax (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) - (declare-type gx#core-compile-top-error (@lambda 1 #f)) - (declare-type gx#core-compile-top-begin% (@lambda 1 #f)) - (declare-type gx#core-compile-top-begin-syntax% (@lambda 1 #f)) - (declare-type gx#core-compile-top-begin-foreign% (@lambda 1 #f)) - (declare-type gx#core-compile-top-begin-annotation% (@lambda 1 #f)) - (declare-type gx#core-compile-top-import% (@lambda 1 #f)) - (declare-type gx#core-compile-top-module% (@lambda 1 #f)) - (declare-type gx#core-compile-top-export% (@lambda 1 #f)) - (declare-type gx#core-compile-top-provide% (@lambda 1 #f)) - (declare-type gx#core-compile-top-extern% (@lambda 1 #f)) - (declare-type gx#core-compile-top-define-values% (@lambda 1 #f)) - (declare-type gx#core-compile-top-define-syntax% (@lambda 1 #f)) - (declare-type gx#core-compile-top-define-alias% (@lambda 1 #f)) - (declare-type gx#core-compile-top-define-runtime% (@lambda 1 #f)) - (declare-type gx#core-compile-top-declare% (@lambda 1 #f)) - (declare-type gx#core-compile-top-lambda% (@lambda 1 #f)) - (declare-type gx#core-compile-top-lambda-clause (@lambda 1 #f)) - (declare-type gx#core-compile-top-case-lambda% (@lambda 1 #f)) - (declare-type gx#core-compile-top-let-values%__% (@lambda 2 #f)) - (declare-type gx#core-compile-top-let-values%__0 (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-error + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-begin% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-begin-syntax% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-begin-foreign% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-begin-annotation% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-import% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-module% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-export% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-provide% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-extern% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-define-values% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-define-syntax% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-define-alias% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-define-runtime% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-declare% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-lambda% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-lambda-clause + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-case-lambda% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-let-values%__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-let-values%__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) (declare-type gx#core-compile-top-let-values% (@case-lambda - (1 gx#core-compile-top-let-values%__0) - (2 gx#core-compile-top-let-values%__%))) - (declare-type gx#core-compile-top-letrec-values% (@lambda 1 #f)) - (declare-type gx#core-compile-top-letrec*-values% (@lambda 1 #f)) - (declare-type gx#core-compile-top-quote% (@lambda 1 #f)) - (declare-type gx#core-compile-top-quote-syntax% (@lambda 1 #f)) - (declare-type gx#core-compile-top-call% (@lambda 1 #f)) - (declare-type gx#core-compile-top-if% (@lambda 1 #f)) - (declare-type gx#core-compile-top-ref% (@lambda 1 #f)) - (declare-type gx#core-compile-top-setq% (@lambda 1 #f)) - (declare-type gx#core-compile-top-runtime-ref (@lambda 1 #f)) - (declare-type gx#core-compile-top-runtime-bind (@lambda 1 #f))) + (1 + gx#core-compile-top-let-values%__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile)) + (2 + gx#core-compile-top-let-values%__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile)))) + (declare-type + gx#core-compile-top-letrec-values% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-letrec*-values% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-quote% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-quote-syntax% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-call% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-if% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-ref% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-setq% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-runtime-ref + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile))) + (declare-type + gx#core-compile-top-runtime-bind + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/compile)))) diff --git a/src/bootstrap/gerbil/expander/compile~0.scm b/src/bootstrap/gerbil/expander/compile~0.scm index 67cacaddf..576fb27a8 100644 --- a/src/bootstrap/gerbil/expander/compile~0.scm +++ b/src/bootstrap/gerbil/expander/compile~0.scm @@ -1,940 +1,934 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/compile::timestamp 1712533290) + (define gerbil/expander/compile::timestamp 1712573431) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_%stx127063%_) - (let* ((_%e127064127071%_ _%stx127063%_) - (_%E127066127075%_ + (lambda (_%stx126299%_) + (let* ((_%e126300126307%_ _%stx126299%_) + (_%E126302126311%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e127064127071%_))) - (_%E127065127089%_ - (lambda () - (if (gx#stx-pair? _%e127064127071%_) - (let ((_%e127067127079%_ - (gx#syntax-e _%e127064127071%_))) - (let ((_%hd127068127082%_ (##car _%e127067127079%_)) - (_%tl127069127084%_ (##cdr _%e127067127079%_))) - (let ((_%form127087%_ _%hd127068127082%_)) + _%e126300126307%_))) + (_%E126301126325%_ + (lambda () + (if (gx#stx-pair? _%e126300126307%_) + (let ((_%e126303126315%_ + (gx#syntax-e _%e126300126307%_))) + (let ((_%hd126304126318%_ (##car _%e126303126315%_)) + (_%tl126305126320%_ (##cdr _%e126303126315%_))) + (let ((_%form126323%_ _%hd126304126318%_)) (if '#t - (let* ((__self127092 - (gx#syntax-local-e__0 _%form127087%_)) - (__method127093 + (let* ((__self126328 + (gx#syntax-local-e__0 _%form126323%_)) + (__method126329 (__method-ref - __self127092 + __self126328 'compile-top-syntax))) - (if __method127093 - (__method127093 - __self127092 - _%stx127063%_) + (if __method126329 + (__method126329 + __self126328 + _%stx126299%_) (error '"Missing method" - __self127092 + __self126328 'compile-top-syntax))) - (_%E127066127075%_))))) - (_%E127066127075%_))))) - (_%E127065127089%_)))) + (_%E126302126311%_))))) + (_%E126302126311%_))))) + (_%E126301126325%_)))) (define gx#core-expander::compile-top-syntax - (lambda (_%self127011%_ _%stx127012%_) - (let ((_%self127015%_ _%self127011%_)) - (let* ((_%self127024127032%_ _%self127015%_) - (_%E127026127036%_ - (lambda () - (error '"No clause matching" - _%self127024127032%_ - '((core-expander _ _ K))) - '#!void)) - (_%K127027127049%_ - (lambda (_%K127039%_) - (let ((_%$e127041%_ (gx#stx-source _%stx127012%_))) - (if _%$e127041%_ - ((lambda (_%g127043127045%_) - (gx#stx-wrap-source - (_%K127039%_ _%stx127012%_) - _%g127043127045%_)) - _%$e127041%_) - (let () (_%K127039%_ _%stx127012%_))))))) - (if '#t - (let* ((_%e127028127052%_ - (##unchecked-structure-ref - _%self127024127032%_ - '1 - '#f - '#f)) - (_%e127029127055%_ - (##unchecked-structure-ref - _%self127024127032%_ - '2 - '#f - '#f)) - (_%e127030127058%_ - (##unchecked-structure-ref - _%self127024127032%_ - '3 - '#f - '#f)) - (_%K127061%_ _%e127030127058%_)) - (_%K127027127049%_ _%K127061%_)) - (_%E127026127036%_)))))) + (lambda (_%self126247%_ _%stx126248%_) + (let* ((_%self126251%_ _%self126247%_) + (_%self126260126268%_ _%self126251%_) + (_%E126262126272%_ + (lambda () + (error '"No clause matching" + _%self126260126268%_ + '((core-expander _ _ K))) + '#!void)) + (_%K126263126285%_ + (lambda (_%K126275%_) + (let ((_%$e126277%_ (gx#stx-source _%stx126248%_))) + (if _%$e126277%_ + ((lambda (_%g126279126281%_) + (gx#stx-wrap-source + (_%K126275%_ _%stx126248%_) + _%g126279126281%_)) + _%$e126277%_) + (_%K126275%_ _%stx126248%_)))))) + (if '#t + (let* ((_%e126264126288%_ + (##unchecked-structure-ref + _%self126260126268%_ + '1 + '#f + '#f)) + (_%e126265126291%_ + (##unchecked-structure-ref + _%self126260126268%_ + '2 + '#f + '#f)) + (_%e126266126294%_ + (##unchecked-structure-ref + _%self126260126268%_ + '3 + '#f + '#f)) + (_%K126297%_ _%e126266126294%_)) + (_%K126263126285%_ _%K126297%_)) + (_%E126262126272%_))))) (__bind-method! gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_%stx126885%_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx126885%_))) + (lambda (_%stx126121%_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx126121%_))) (define gx#core-compile-top-begin% - (lambda (_%stx126855%_) - (let* ((_%e126856126863%_ _%stx126855%_) - (_%E126858126867%_ + (lambda (_%stx126091%_) + (let* ((_%e126092126099%_ _%stx126091%_) + (_%E126094126103%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126856126863%_))) - (_%E126857126881%_ - (lambda () - (if (gx#stx-pair? _%e126856126863%_) - (let ((_%e126859126871%_ - (gx#syntax-e _%e126856126863%_))) - (let ((_%hd126860126874%_ (##car _%e126859126871%_)) - (_%tl126861126876%_ (##cdr _%e126859126871%_))) - (let ((_%body126879%_ _%tl126861126876%_)) + _%e126092126099%_))) + (_%E126093126117%_ + (lambda () + (if (gx#stx-pair? _%e126092126099%_) + (let ((_%e126095126107%_ + (gx#syntax-e _%e126092126099%_))) + (let ((_%hd126096126110%_ (##car _%e126095126107%_)) + (_%tl126097126112%_ (##cdr _%e126095126107%_))) + (let ((_%body126115%_ _%tl126097126112%_)) (if '#t (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _%body126879%_)) - (_%E126858126867%_))))) - (_%E126858126867%_))))) - (_%E126857126881%_)))) + _%body126115%_)) + (_%E126094126103%_))))) + (_%E126094126103%_))))) + (_%E126093126117%_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_%stx126824%_) - (let* ((_%e126825126832%_ _%stx126824%_) - (_%E126827126836%_ + (lambda (_%stx126060%_) + (let* ((_%e126061126068%_ _%stx126060%_) + (_%E126063126072%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126825126832%_))) - (_%E126826126851%_ - (lambda () - (if (gx#stx-pair? _%e126825126832%_) - (let ((_%e126828126840%_ - (gx#syntax-e _%e126825126832%_))) - (let ((_%hd126829126843%_ (##car _%e126828126840%_)) - (_%tl126830126845%_ (##cdr _%e126828126840%_))) - (let ((_%body126848%_ _%tl126830126845%_)) + _%e126061126068%_))) + (_%E126062126087%_ + (lambda () + (if (gx#stx-pair? _%e126061126068%_) + (let ((_%e126064126076%_ + (gx#syntax-e _%e126061126068%_))) + (let ((_%hd126065126079%_ (##car _%e126064126076%_)) + (_%tl126066126081%_ (##cdr _%e126064126076%_))) + (let ((_%body126084%_ _%tl126066126081%_)) (if '#t (cons '%#begin-syntax (__call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _%body126848%_)) + _%body126084%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1))) - (_%E126827126836%_))))) - (_%E126827126836%_))))) - (_%E126826126851%_)))) + (_%E126063126072%_))))) + (_%E126063126072%_))))) + (_%E126062126087%_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_%stx126794%_) - (let* ((_%e126795126802%_ _%stx126794%_) - (_%E126797126806%_ + (lambda (_%stx126030%_) + (let* ((_%e126031126038%_ _%stx126030%_) + (_%E126033126042%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126795126802%_))) - (_%E126796126820%_ - (lambda () - (if (gx#stx-pair? _%e126795126802%_) - (let ((_%e126798126810%_ - (gx#syntax-e _%e126795126802%_))) - (let ((_%hd126799126813%_ (##car _%e126798126810%_)) - (_%tl126800126815%_ (##cdr _%e126798126810%_))) - (let ((_%body126818%_ _%tl126800126815%_)) + _%e126031126038%_))) + (_%E126032126056%_ + (lambda () + (if (gx#stx-pair? _%e126031126038%_) + (let ((_%e126034126046%_ + (gx#syntax-e _%e126031126038%_))) + (let ((_%hd126035126049%_ (##car _%e126034126046%_)) + (_%tl126036126051%_ (##cdr _%e126034126046%_))) + (let ((_%body126054%_ _%tl126036126051%_)) (if '#t - (cons '%#begin-foreign _%body126818%_) - (_%E126797126806%_))))) - (_%E126797126806%_))))) - (_%E126796126820%_)))) + (cons '%#begin-foreign _%body126054%_) + (_%E126033126042%_))))) + (_%E126033126042%_))))) + (_%E126032126056%_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_%stx126740%_) - (let* ((_%e126741126754%_ _%stx126740%_) - (_%E126743126758%_ + (lambda (_%stx125976%_) + (let* ((_%e125977125990%_ _%stx125976%_) + (_%E125979125994%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126741126754%_))) - (_%E126742126790%_ - (lambda () - (if (gx#stx-pair? _%e126741126754%_) - (let ((_%e126744126762%_ - (gx#syntax-e _%e126741126754%_))) - (let ((_%hd126745126765%_ (##car _%e126744126762%_)) - (_%tl126746126767%_ (##cdr _%e126744126762%_))) - (if (gx#stx-pair? _%tl126746126767%_) - (let ((_%e126747126770%_ - (gx#syntax-e _%tl126746126767%_))) - (let ((_%hd126748126773%_ - (##car _%e126747126770%_)) - (_%tl126749126775%_ - (##cdr _%e126747126770%_))) - (let ((_%ann126778%_ _%hd126748126773%_)) - (if (gx#stx-pair? _%tl126749126775%_) - (let ((_%e126750126780%_ + _%e125977125990%_))) + (_%E125978126026%_ + (lambda () + (if (gx#stx-pair? _%e125977125990%_) + (let ((_%e125980125998%_ + (gx#syntax-e _%e125977125990%_))) + (let ((_%hd125981126001%_ (##car _%e125980125998%_)) + (_%tl125982126003%_ (##cdr _%e125980125998%_))) + (if (gx#stx-pair? _%tl125982126003%_) + (let ((_%e125983126006%_ + (gx#syntax-e _%tl125982126003%_))) + (let ((_%hd125984126009%_ + (##car _%e125983126006%_)) + (_%tl125985126011%_ + (##cdr _%e125983126006%_))) + (let ((_%ann126014%_ _%hd125984126009%_)) + (if (gx#stx-pair? _%tl125985126011%_) + (let ((_%e125986126016%_ (gx#syntax-e - _%tl126749126775%_))) - (let ((_%hd126751126783%_ - (##car _%e126750126780%_)) - (_%tl126752126785%_ - (##cdr _%e126750126780%_))) - (let ((_%expr126788%_ - _%hd126751126783%_)) + _%tl125985126011%_))) + (let ((_%hd125987126019%_ + (##car _%e125986126016%_)) + (_%tl125988126021%_ + (##cdr _%e125986126016%_))) + (let ((_%expr126024%_ + _%hd125987126019%_)) (if (gx#stx-null? - _%tl126752126785%_) + _%tl125988126021%_) (if '#t (gx#core-compile-top-syntax - _%expr126788%_) - (_%E126743126758%_)) - (_%E126743126758%_))))) - (_%E126743126758%_))))) - (_%E126743126758%_)))) - (_%E126743126758%_))))) - (_%E126742126790%_)))) + _%expr126024%_) + (_%E125979125994%_)) + (_%E125979125994%_))))) + (_%E125979125994%_))))) + (_%E125979125994%_)))) + (_%E125979125994%_))))) + (_%E125978126026%_)))) (define gx#core-compile-top-import% - (lambda (_%stx126710%_) - (let* ((_%e126711126718%_ _%stx126710%_) - (_%E126713126722%_ + (lambda (_%stx125946%_) + (let* ((_%e125947125954%_ _%stx125946%_) + (_%E125949125958%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126711126718%_))) - (_%E126712126736%_ - (lambda () - (if (gx#stx-pair? _%e126711126718%_) - (let ((_%e126714126726%_ - (gx#syntax-e _%e126711126718%_))) - (let ((_%hd126715126729%_ (##car _%e126714126726%_)) - (_%tl126716126731%_ (##cdr _%e126714126726%_))) - (let ((_%body126734%_ _%tl126716126731%_)) + _%e125947125954%_))) + (_%E125948125972%_ + (lambda () + (if (gx#stx-pair? _%e125947125954%_) + (let ((_%e125950125962%_ + (gx#syntax-e _%e125947125954%_))) + (let ((_%hd125951125965%_ (##car _%e125950125962%_)) + (_%tl125952125967%_ (##cdr _%e125950125962%_))) + (let ((_%body125970%_ _%tl125952125967%_)) (if '#t - (cons '%#import _%body126734%_) - (_%E126713126722%_))))) - (_%E126713126722%_))))) - (_%E126712126736%_)))) + (cons '%#import _%body125970%_) + (_%E125949125958%_))))) + (_%E125949125958%_))))) + (_%E125948125972%_)))) (define gx#core-compile-top-module% - (lambda (_%stx126667%_) - (let* ((_%e126668126678%_ _%stx126667%_) - (_%E126670126682%_ + (lambda (_%stx125903%_) + (let* ((_%e125904125914%_ _%stx125903%_) + (_%E125906125918%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126668126678%_))) - (_%E126669126706%_ - (lambda () - (if (gx#stx-pair? _%e126668126678%_) - (let ((_%e126671126686%_ - (gx#syntax-e _%e126668126678%_))) - (let ((_%hd126672126689%_ (##car _%e126671126686%_)) - (_%tl126673126691%_ (##cdr _%e126671126686%_))) - (if (gx#stx-pair? _%tl126673126691%_) - (let ((_%e126674126694%_ - (gx#syntax-e _%tl126673126691%_))) - (let ((_%hd126675126697%_ - (##car _%e126674126694%_)) - (_%tl126676126699%_ - (##cdr _%e126674126694%_))) - (let* ((_%hd126702%_ _%hd126675126697%_) - (_%body126704%_ _%tl126676126699%_)) + _%e125904125914%_))) + (_%E125905125942%_ + (lambda () + (if (gx#stx-pair? _%e125904125914%_) + (let ((_%e125907125922%_ + (gx#syntax-e _%e125904125914%_))) + (let ((_%hd125908125925%_ (##car _%e125907125922%_)) + (_%tl125909125927%_ (##cdr _%e125907125922%_))) + (if (gx#stx-pair? _%tl125909125927%_) + (let ((_%e125910125930%_ + (gx#syntax-e _%tl125909125927%_))) + (let ((_%hd125911125933%_ + (##car _%e125910125930%_)) + (_%tl125912125935%_ + (##cdr _%e125910125930%_))) + (let* ((_%hd125938%_ _%hd125911125933%_) + (_%body125940%_ _%tl125912125935%_)) (if '#t (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _%hd126702%_) + _%hd125938%_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _%body126704%_))) - (_%E126670126682%_))))) - (_%E126670126682%_)))) - (_%E126670126682%_))))) - (_%E126669126706%_)))) + _%body125940%_))) + (_%E125906125918%_))))) + (_%E125906125918%_)))) + (_%E125906125918%_))))) + (_%E125905125942%_)))) (define gx#core-compile-top-export% - (lambda (_%stx126637%_) - (let* ((_%e126638126645%_ _%stx126637%_) - (_%E126640126649%_ + (lambda (_%stx125873%_) + (let* ((_%e125874125881%_ _%stx125873%_) + (_%E125876125885%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126638126645%_))) - (_%E126639126663%_ - (lambda () - (if (gx#stx-pair? _%e126638126645%_) - (let ((_%e126641126653%_ - (gx#syntax-e _%e126638126645%_))) - (let ((_%hd126642126656%_ (##car _%e126641126653%_)) - (_%tl126643126658%_ (##cdr _%e126641126653%_))) - (let ((_%body126661%_ _%tl126643126658%_)) + _%e125874125881%_))) + (_%E125875125899%_ + (lambda () + (if (gx#stx-pair? _%e125874125881%_) + (let ((_%e125877125889%_ + (gx#syntax-e _%e125874125881%_))) + (let ((_%hd125878125892%_ (##car _%e125877125889%_)) + (_%tl125879125894%_ (##cdr _%e125877125889%_))) + (let ((_%body125897%_ _%tl125879125894%_)) (if '#t - (cons '%#export _%body126661%_) - (_%E126640126649%_))))) - (_%E126640126649%_))))) - (_%E126639126663%_)))) + (cons '%#export _%body125897%_) + (_%E125876125885%_))))) + (_%E125876125885%_))))) + (_%E125875125899%_)))) (define gx#core-compile-top-provide% - (lambda (_%stx126607%_) - (let* ((_%e126608126615%_ _%stx126607%_) - (_%E126610126619%_ + (lambda (_%stx125843%_) + (let* ((_%e125844125851%_ _%stx125843%_) + (_%E125846125855%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126608126615%_))) - (_%E126609126633%_ - (lambda () - (if (gx#stx-pair? _%e126608126615%_) - (let ((_%e126611126623%_ - (gx#syntax-e _%e126608126615%_))) - (let ((_%hd126612126626%_ (##car _%e126611126623%_)) - (_%tl126613126628%_ (##cdr _%e126611126623%_))) - (let ((_%body126631%_ _%tl126613126628%_)) + _%e125844125851%_))) + (_%E125845125869%_ + (lambda () + (if (gx#stx-pair? _%e125844125851%_) + (let ((_%e125847125859%_ + (gx#syntax-e _%e125844125851%_))) + (let ((_%hd125848125862%_ (##car _%e125847125859%_)) + (_%tl125849125864%_ (##cdr _%e125847125859%_))) + (let ((_%body125867%_ _%tl125849125864%_)) (if '#t - (cons '%#provide _%body126631%_) - (_%E126610126619%_))))) - (_%E126610126619%_))))) - (_%E126609126633%_)))) + (cons '%#provide _%body125867%_) + (_%E125846125855%_))))) + (_%E125846125855%_))))) + (_%E125845125869%_)))) (define gx#core-compile-top-extern% - (lambda (_%stx126577%_) - (let* ((_%e126578126585%_ _%stx126577%_) - (_%E126580126589%_ + (lambda (_%stx125813%_) + (let* ((_%e125814125821%_ _%stx125813%_) + (_%E125816125825%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126578126585%_))) - (_%E126579126603%_ - (lambda () - (if (gx#stx-pair? _%e126578126585%_) - (let ((_%e126581126593%_ - (gx#syntax-e _%e126578126585%_))) - (let ((_%hd126582126596%_ (##car _%e126581126593%_)) - (_%tl126583126598%_ (##cdr _%e126581126593%_))) - (let ((_%body126601%_ _%tl126583126598%_)) + _%e125814125821%_))) + (_%E125815125839%_ + (lambda () + (if (gx#stx-pair? _%e125814125821%_) + (let ((_%e125817125829%_ + (gx#syntax-e _%e125814125821%_))) + (let ((_%hd125818125832%_ (##car _%e125817125829%_)) + (_%tl125819125834%_ (##cdr _%e125817125829%_))) + (let ((_%body125837%_ _%tl125819125834%_)) (if '#t - (cons '%#extern _%body126601%_) - (_%E126580126589%_))))) - (_%E126580126589%_))))) - (_%E126579126603%_)))) + (cons '%#extern _%body125837%_) + (_%E125816125825%_))))) + (_%E125816125825%_))))) + (_%E125815125839%_)))) (define gx#core-compile-top-define-values% - (lambda (_%stx126523%_) - (let* ((_%e126524126537%_ _%stx126523%_) - (_%E126526126541%_ + (lambda (_%stx125759%_) + (let* ((_%e125760125773%_ _%stx125759%_) + (_%E125762125777%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126524126537%_))) - (_%E126525126573%_ - (lambda () - (if (gx#stx-pair? _%e126524126537%_) - (let ((_%e126527126545%_ - (gx#syntax-e _%e126524126537%_))) - (let ((_%hd126528126548%_ (##car _%e126527126545%_)) - (_%tl126529126550%_ (##cdr _%e126527126545%_))) - (if (gx#stx-pair? _%tl126529126550%_) - (let ((_%e126530126553%_ - (gx#syntax-e _%tl126529126550%_))) - (let ((_%hd126531126556%_ - (##car _%e126530126553%_)) - (_%tl126532126558%_ - (##cdr _%e126530126553%_))) - (let ((_%hd126561%_ _%hd126531126556%_)) - (if (gx#stx-pair? _%tl126532126558%_) - (let ((_%e126533126563%_ + _%e125760125773%_))) + (_%E125761125809%_ + (lambda () + (if (gx#stx-pair? _%e125760125773%_) + (let ((_%e125763125781%_ + (gx#syntax-e _%e125760125773%_))) + (let ((_%hd125764125784%_ (##car _%e125763125781%_)) + (_%tl125765125786%_ (##cdr _%e125763125781%_))) + (if (gx#stx-pair? _%tl125765125786%_) + (let ((_%e125766125789%_ + (gx#syntax-e _%tl125765125786%_))) + (let ((_%hd125767125792%_ + (##car _%e125766125789%_)) + (_%tl125768125794%_ + (##cdr _%e125766125789%_))) + (let ((_%hd125797%_ _%hd125767125792%_)) + (if (gx#stx-pair? _%tl125768125794%_) + (let ((_%e125769125799%_ (gx#syntax-e - _%tl126532126558%_))) - (let ((_%hd126534126566%_ - (##car _%e126533126563%_)) - (_%tl126535126568%_ - (##cdr _%e126533126563%_))) - (let ((_%expr126571%_ - _%hd126534126566%_)) + _%tl125768125794%_))) + (let ((_%hd125770125802%_ + (##car _%e125769125799%_)) + (_%tl125771125804%_ + (##cdr _%e125769125799%_))) + (let ((_%expr125807%_ + _%hd125770125802%_)) (if (gx#stx-null? - _%tl126535126568%_) + _%tl125771125804%_) (if '#t (cons '%#define-values (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-runtime-bind - _%hd126561%_) - (cons (gx#core-compile-top-syntax _%expr126571%_) + _%hd125797%_) + (cons (gx#core-compile-top-syntax _%expr125807%_) '()))) - (_%E126526126541%_)) + (_%E125762125777%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126526126541%_))))) - (_%E126526126541%_))))) - (_%E126526126541%_)))) - (_%E126526126541%_))))) - (_%E126525126573%_)))) + (_%E125762125777%_))))) + (_%E125762125777%_))))) + (_%E125762125777%_)))) + (_%E125762125777%_))))) + (_%E125761125809%_)))) (define gx#core-compile-top-define-syntax% - (lambda (_%stx126468%_) - (let* ((_%e126469126482%_ _%stx126468%_) - (_%E126471126486%_ + (lambda (_%stx125704%_) + (let* ((_%e125705125718%_ _%stx125704%_) + (_%E125707125722%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126469126482%_))) - (_%E126470126519%_ - (lambda () - (if (gx#stx-pair? _%e126469126482%_) - (let ((_%e126472126490%_ - (gx#syntax-e _%e126469126482%_))) - (let ((_%hd126473126493%_ (##car _%e126472126490%_)) - (_%tl126474126495%_ (##cdr _%e126472126490%_))) - (if (gx#stx-pair? _%tl126474126495%_) - (let ((_%e126475126498%_ - (gx#syntax-e _%tl126474126495%_))) - (let ((_%hd126476126501%_ - (##car _%e126475126498%_)) - (_%tl126477126503%_ - (##cdr _%e126475126498%_))) - (let ((_%hd126506%_ _%hd126476126501%_)) - (if (gx#stx-pair? _%tl126477126503%_) - (let ((_%e126478126508%_ + _%e125705125718%_))) + (_%E125706125755%_ + (lambda () + (if (gx#stx-pair? _%e125705125718%_) + (let ((_%e125708125726%_ + (gx#syntax-e _%e125705125718%_))) + (let ((_%hd125709125729%_ (##car _%e125708125726%_)) + (_%tl125710125731%_ (##cdr _%e125708125726%_))) + (if (gx#stx-pair? _%tl125710125731%_) + (let ((_%e125711125734%_ + (gx#syntax-e _%tl125710125731%_))) + (let ((_%hd125712125737%_ + (##car _%e125711125734%_)) + (_%tl125713125739%_ + (##cdr _%e125711125734%_))) + (let ((_%hd125742%_ _%hd125712125737%_)) + (if (gx#stx-pair? _%tl125713125739%_) + (let ((_%e125714125744%_ (gx#syntax-e - _%tl126477126503%_))) - (let ((_%hd126479126511%_ - (##car _%e126478126508%_)) - (_%tl126480126513%_ - (##cdr _%e126478126508%_))) - (let ((_%expr126516%_ - _%hd126479126511%_)) + _%tl125713125739%_))) + (let ((_%hd125715125747%_ + (##car _%e125714125744%_)) + (_%tl125716125749%_ + (##cdr _%e125714125744%_))) + (let ((_%expr125752%_ + _%hd125715125747%_)) (if (gx#stx-null? - _%tl126480126513%_) + _%tl125716125749%_) (if '#t (cons '%#define-syntax - (cons _%hd126506%_ + (cons _%hd125742%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (__call-with-parameters (lambda () - (gx#core-compile-top-syntax _%expr126516%_)) + (gx#core-compile-top-syntax _%expr125752%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) '()))) - (_%E126471126486%_)) + (_%E125707125722%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126471126486%_))))) - (_%E126471126486%_))))) - (_%E126471126486%_)))) - (_%E126471126486%_))))) - (_%E126470126519%_)))) + (_%E125707125722%_))))) + (_%E125707125722%_))))) + (_%E125707125722%_)))) + (_%E125707125722%_))))) + (_%E125706125755%_)))) (define gx#core-compile-top-define-alias% - (lambda (_%stx126438%_) - (let* ((_%e126439126446%_ _%stx126438%_) - (_%E126441126450%_ + (lambda (_%stx125674%_) + (let* ((_%e125675125682%_ _%stx125674%_) + (_%E125677125686%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126439126446%_))) - (_%E126440126464%_ - (lambda () - (if (gx#stx-pair? _%e126439126446%_) - (let ((_%e126442126454%_ - (gx#syntax-e _%e126439126446%_))) - (let ((_%hd126443126457%_ (##car _%e126442126454%_)) - (_%tl126444126459%_ (##cdr _%e126442126454%_))) - (let ((_%body126462%_ _%tl126444126459%_)) + _%e125675125682%_))) + (_%E125676125700%_ + (lambda () + (if (gx#stx-pair? _%e125675125682%_) + (let ((_%e125678125690%_ + (gx#syntax-e _%e125675125682%_))) + (let ((_%hd125679125693%_ (##car _%e125678125690%_)) + (_%tl125680125695%_ (##cdr _%e125678125690%_))) + (let ((_%body125698%_ _%tl125680125695%_)) (if '#t - (cons '%#define-alias _%body126462%_) - (_%E126441126450%_))))) - (_%E126441126450%_))))) - (_%E126440126464%_)))) + (cons '%#define-alias _%body125698%_) + (_%E125677125686%_))))) + (_%E125677125686%_))))) + (_%E125676125700%_)))) (define gx#core-compile-top-define-runtime% - (lambda (_%stx126408%_) - (let* ((_%e126409126416%_ _%stx126408%_) - (_%E126411126420%_ + (lambda (_%stx125644%_) + (let* ((_%e125645125652%_ _%stx125644%_) + (_%E125647125656%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126409126416%_))) - (_%E126410126434%_ - (lambda () - (if (gx#stx-pair? _%e126409126416%_) - (let ((_%e126412126424%_ - (gx#syntax-e _%e126409126416%_))) - (let ((_%hd126413126427%_ (##car _%e126412126424%_)) - (_%tl126414126429%_ (##cdr _%e126412126424%_))) - (let ((_%body126432%_ _%tl126414126429%_)) + _%e125645125652%_))) + (_%E125646125670%_ + (lambda () + (if (gx#stx-pair? _%e125645125652%_) + (let ((_%e125648125660%_ + (gx#syntax-e _%e125645125652%_))) + (let ((_%hd125649125663%_ (##car _%e125648125660%_)) + (_%tl125650125665%_ (##cdr _%e125648125660%_))) + (let ((_%body125668%_ _%tl125650125665%_)) (if '#t - (cons '%#define-runtime _%body126432%_) - (_%E126411126420%_))))) - (_%E126411126420%_))))) - (_%E126410126434%_)))) + (cons '%#define-runtime _%body125668%_) + (_%E125647125656%_))))) + (_%E125647125656%_))))) + (_%E125646125670%_)))) (define gx#core-compile-top-declare% - (lambda (_%stx126378%_) - (let* ((_%e126379126386%_ _%stx126378%_) - (_%E126381126390%_ + (lambda (_%stx125614%_) + (let* ((_%e125615125622%_ _%stx125614%_) + (_%E125617125626%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126379126386%_))) - (_%E126380126404%_ - (lambda () - (if (gx#stx-pair? _%e126379126386%_) - (let ((_%e126382126394%_ - (gx#syntax-e _%e126379126386%_))) - (let ((_%hd126383126397%_ (##car _%e126382126394%_)) - (_%tl126384126399%_ (##cdr _%e126382126394%_))) - (let ((_%decls126402%_ _%tl126384126399%_)) + _%e125615125622%_))) + (_%E125616125640%_ + (lambda () + (if (gx#stx-pair? _%e125615125622%_) + (let ((_%e125618125630%_ + (gx#syntax-e _%e125615125622%_))) + (let ((_%hd125619125633%_ (##car _%e125618125630%_)) + (_%tl125620125635%_ (##cdr _%e125618125630%_))) + (let ((_%decls125638%_ _%tl125620125635%_)) (if '#t - (cons '%#declare _%decls126402%_) - (_%E126381126390%_))))) - (_%E126381126390%_))))) - (_%E126380126404%_)))) + (cons '%#declare _%decls125638%_) + (_%E125617125626%_))))) + (_%E125617125626%_))))) + (_%E125616125640%_)))) (define gx#core-compile-top-lambda% - (lambda (_%stx126348%_) - (let* ((_%e126349126356%_ _%stx126348%_) - (_%E126351126360%_ + (lambda (_%stx125584%_) + (let* ((_%e125585125592%_ _%stx125584%_) + (_%E125587125596%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126349126356%_))) - (_%E126350126374%_ - (lambda () - (if (gx#stx-pair? _%e126349126356%_) - (let ((_%e126352126364%_ - (gx#syntax-e _%e126349126356%_))) - (let ((_%hd126353126367%_ (##car _%e126352126364%_)) - (_%tl126354126369%_ (##cdr _%e126352126364%_))) - (let ((_%clause126372%_ _%tl126354126369%_)) + _%e125585125592%_))) + (_%E125586125610%_ + (lambda () + (if (gx#stx-pair? _%e125585125592%_) + (let ((_%e125588125600%_ + (gx#syntax-e _%e125585125592%_))) + (let ((_%hd125589125603%_ (##car _%e125588125600%_)) + (_%tl125590125605%_ (##cdr _%e125588125600%_))) + (let ((_%clause125608%_ _%tl125590125605%_)) (if '#t (cons '%#lambda (gx#core-compile-top-lambda-clause - _%clause126372%_)) - (_%E126351126360%_))))) - (_%E126351126360%_))))) - (_%E126350126374%_)))) + _%clause125608%_)) + (_%E125587125596%_))))) + (_%E125587125596%_))))) + (_%E125586125610%_)))) (define gx#core-compile-top-lambda-clause - (lambda (_%stx126305%_) - (let* ((_%e126306126316%_ _%stx126305%_) - (_%E126308126320%_ + (lambda (_%stx125541%_) + (let* ((_%e125542125552%_ _%stx125541%_) + (_%E125544125556%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126306126316%_))) - (_%E126307126344%_ - (lambda () - (if (gx#stx-pair? _%e126306126316%_) - (let ((_%e126309126324%_ - (gx#syntax-e _%e126306126316%_))) - (let ((_%hd126310126327%_ (##car _%e126309126324%_)) - (_%tl126311126329%_ (##cdr _%e126309126324%_))) - (let ((_%hd126332%_ _%hd126310126327%_)) - (if (gx#stx-pair? _%tl126311126329%_) - (let ((_%e126312126334%_ - (gx#syntax-e _%tl126311126329%_))) - (let ((_%hd126313126337%_ - (##car _%e126312126334%_)) - (_%tl126314126339%_ - (##cdr _%e126312126334%_))) - (let ((_%body126342%_ _%hd126313126337%_)) - (if (gx#stx-null? _%tl126314126339%_) + _%e125542125552%_))) + (_%E125543125580%_ + (lambda () + (if (gx#stx-pair? _%e125542125552%_) + (let ((_%e125545125560%_ + (gx#syntax-e _%e125542125552%_))) + (let ((_%hd125546125563%_ (##car _%e125545125560%_)) + (_%tl125547125565%_ (##cdr _%e125545125560%_))) + (let ((_%hd125568%_ _%hd125546125563%_)) + (if (gx#stx-pair? _%tl125547125565%_) + (let ((_%e125548125570%_ + (gx#syntax-e _%tl125547125565%_))) + (let ((_%hd125549125573%_ + (##car _%e125548125570%_)) + (_%tl125550125575%_ + (##cdr _%e125548125570%_))) + (let ((_%body125578%_ _%hd125549125573%_)) + (if (gx#stx-null? _%tl125550125575%_) (if '#t (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd126332%_) + _%hd125568%_) (cons (gx#core-compile-top-syntax - _%body126342%_) + _%body125578%_) '())) - (_%E126308126320%_)) - (_%E126308126320%_))))) - (_%E126308126320%_))))) - (_%E126308126320%_))))) - (_%E126307126344%_)))) + (_%E125544125556%_)) + (_%E125544125556%_))))) + (_%E125544125556%_))))) + (_%E125544125556%_))))) + (_%E125543125580%_)))) (define gx#core-compile-top-case-lambda% - (lambda (_%stx126275%_) - (let* ((_%e126276126283%_ _%stx126275%_) - (_%E126278126287%_ + (lambda (_%stx125511%_) + (let* ((_%e125512125519%_ _%stx125511%_) + (_%E125514125523%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126276126283%_))) - (_%E126277126301%_ - (lambda () - (if (gx#stx-pair? _%e126276126283%_) - (let ((_%e126279126291%_ - (gx#syntax-e _%e126276126283%_))) - (let ((_%hd126280126294%_ (##car _%e126279126291%_)) - (_%tl126281126296%_ (##cdr _%e126279126291%_))) - (let ((_%clauses126299%_ _%tl126281126296%_)) + _%e125512125519%_))) + (_%E125513125537%_ + (lambda () + (if (gx#stx-pair? _%e125512125519%_) + (let ((_%e125515125527%_ + (gx#syntax-e _%e125512125519%_))) + (let ((_%hd125516125530%_ (##car _%e125515125527%_)) + (_%tl125517125532%_ (##cdr _%e125515125527%_))) + (let ((_%clauses125535%_ _%tl125517125532%_)) (if '#t (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _%clauses126299%_)) - (_%E126278126287%_))))) - (_%E126278126287%_))))) - (_%E126277126301%_)))) + _%clauses125535%_)) + (_%E125514125523%_))))) + (_%E125514125523%_))))) + (_%E125513125537%_)))) (define gx#core-compile-top-let-values%__% - (lambda (_%stx126210%_ _%form126211%_) - (let* ((_%e126212126225%_ _%stx126210%_) - (_%E126214126229%_ + (lambda (_%stx125446%_ _%form125447%_) + (let* ((_%e125448125461%_ _%stx125446%_) + (_%E125450125465%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126212126225%_))) - (_%E126213126261%_ - (lambda () - (if (gx#stx-pair? _%e126212126225%_) - (let ((_%e126215126233%_ - (gx#syntax-e _%e126212126225%_))) - (let ((_%hd126216126236%_ (##car _%e126215126233%_)) - (_%tl126217126238%_ (##cdr _%e126215126233%_))) - (if (gx#stx-pair? _%tl126217126238%_) - (let ((_%e126218126241%_ - (gx#syntax-e _%tl126217126238%_))) - (let ((_%hd126219126244%_ - (##car _%e126218126241%_)) - (_%tl126220126246%_ - (##cdr _%e126218126241%_))) - (let ((_%hd126249%_ _%hd126219126244%_)) - (if (gx#stx-pair? _%tl126220126246%_) - (let ((_%e126221126251%_ + _%e125448125461%_))) + (_%E125449125497%_ + (lambda () + (if (gx#stx-pair? _%e125448125461%_) + (let ((_%e125451125469%_ + (gx#syntax-e _%e125448125461%_))) + (let ((_%hd125452125472%_ (##car _%e125451125469%_)) + (_%tl125453125474%_ (##cdr _%e125451125469%_))) + (if (gx#stx-pair? _%tl125453125474%_) + (let ((_%e125454125477%_ + (gx#syntax-e _%tl125453125474%_))) + (let ((_%hd125455125480%_ + (##car _%e125454125477%_)) + (_%tl125456125482%_ + (##cdr _%e125454125477%_))) + (let ((_%hd125485%_ _%hd125455125480%_)) + (if (gx#stx-pair? _%tl125456125482%_) + (let ((_%e125457125487%_ (gx#syntax-e - _%tl126220126246%_))) - (let ((_%hd126222126254%_ - (##car _%e126221126251%_)) - (_%tl126223126256%_ - (##cdr _%e126221126251%_))) - (let ((_%body126259%_ - _%hd126222126254%_)) + _%tl125456125482%_))) + (let ((_%hd125458125490%_ + (##car _%e125457125487%_)) + (_%tl125459125492%_ + (##cdr _%e125457125487%_))) + (let ((_%body125495%_ + _%hd125458125490%_)) (if (gx#stx-null? - _%tl126223126256%_) + _%tl125459125492%_) (if '#t - (cons _%form126211%_ + (cons _%form125447%_ (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-lambda-clause - _%hd126249%_) - (cons (gx#core-compile-top-syntax _%body126259%_) + _%hd125485%_) + (cons (gx#core-compile-top-syntax _%body125495%_) '()))) - (_%E126214126229%_)) + (_%E125450125465%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126214126229%_))))) - (_%E126214126229%_))))) - (_%E126214126229%_)))) - (_%E126214126229%_))))) - (_%E126213126261%_)))) + (_%E125450125465%_))))) + (_%E125450125465%_))))) + (_%E125450125465%_)))) + (_%E125450125465%_))))) + (_%E125449125497%_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_%stx126268%_) - (let ((_%form126270%_ '%#let-values)) - (gx#core-compile-top-let-values%__% _%stx126268%_ _%form126270%_)))) + (lambda (_%stx125504%_) + (let ((_%form125506%_ '%#let-values)) + (gx#core-compile-top-let-values%__% _%stx125504%_ _%form125506%_)))) (define gx#core-compile-top-let-values% - (lambda _g127095_ - (let ((_g127094_ (##length _g127095_))) - (cond ((##fx= _g127094_ 1) - (apply (lambda (_%stx126268%_) - (gx#core-compile-top-let-values%__0 _%stx126268%_)) - _g127095_)) - ((##fx= _g127094_ 2) - (apply (lambda (_%stx126272%_ _%form126273%_) - (gx#core-compile-top-let-values%__% - _%stx126272%_ - _%form126273%_)) - _g127095_)) + (lambda _g126331_ + (let ((_g126330_ (##length _g126331_))) + (cond ((##fx= _g126330_ 1) + (apply gx#core-compile-top-let-values%__0 _g126331_)) + ((##fx= _g126330_ 2) + (apply gx#core-compile-top-let-values%__% _g126331_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g127095_)))))) + _g126331_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_%stx126207%_) - (gx#core-compile-top-let-values%__% _%stx126207%_ '%#letrec-values))) + (lambda (_%stx125443%_) + (gx#core-compile-top-let-values%__% _%stx125443%_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_%stx126205%_) - (gx#core-compile-top-let-values%__% _%stx126205%_ '%#letrec*-values))) + (lambda (_%stx125441%_) + (gx#core-compile-top-let-values%__% _%stx125441%_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_%stx126164%_) - (let* ((_%e126165126175%_ _%stx126164%_) - (_%E126167126179%_ + (lambda (_%stx125400%_) + (let* ((_%e125401125411%_ _%stx125400%_) + (_%E125403125415%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126165126175%_))) - (_%E126166126201%_ - (lambda () - (if (gx#stx-pair? _%e126165126175%_) - (let ((_%e126168126183%_ - (gx#syntax-e _%e126165126175%_))) - (let ((_%hd126169126186%_ (##car _%e126168126183%_)) - (_%tl126170126188%_ (##cdr _%e126168126183%_))) - (if (gx#stx-pair? _%tl126170126188%_) - (let ((_%e126171126191%_ - (gx#syntax-e _%tl126170126188%_))) - (let ((_%hd126172126194%_ - (##car _%e126171126191%_)) - (_%tl126173126196%_ - (##cdr _%e126171126191%_))) - (let ((_%e126199%_ _%hd126172126194%_)) - (if (gx#stx-null? _%tl126173126196%_) + _%e125401125411%_))) + (_%E125402125437%_ + (lambda () + (if (gx#stx-pair? _%e125401125411%_) + (let ((_%e125404125419%_ + (gx#syntax-e _%e125401125411%_))) + (let ((_%hd125405125422%_ (##car _%e125404125419%_)) + (_%tl125406125424%_ (##cdr _%e125404125419%_))) + (if (gx#stx-pair? _%tl125406125424%_) + (let ((_%e125407125427%_ + (gx#syntax-e _%tl125406125424%_))) + (let ((_%hd125408125430%_ + (##car _%e125407125427%_)) + (_%tl125409125432%_ + (##cdr _%e125407125427%_))) + (let ((_%e125435%_ _%hd125408125430%_)) + (if (gx#stx-null? _%tl125409125432%_) (if '#t (cons '%#quote (cons (gx#syntax->datum - _%e126199%_) + _%e125435%_) '())) - (_%E126167126179%_)) - (_%E126167126179%_))))) - (_%E126167126179%_)))) - (_%E126167126179%_))))) - (_%E126166126201%_)))) + (_%E125403125415%_)) + (_%E125403125415%_))))) + (_%E125403125415%_)))) + (_%E125403125415%_))))) + (_%E125402125437%_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_%stx126123%_) - (let* ((_%e126124126134%_ _%stx126123%_) - (_%E126126126138%_ + (lambda (_%stx125359%_) + (let* ((_%e125360125370%_ _%stx125359%_) + (_%E125362125374%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126124126134%_))) - (_%E126125126160%_ - (lambda () - (if (gx#stx-pair? _%e126124126134%_) - (let ((_%e126127126142%_ - (gx#syntax-e _%e126124126134%_))) - (let ((_%hd126128126145%_ (##car _%e126127126142%_)) - (_%tl126129126147%_ (##cdr _%e126127126142%_))) - (if (gx#stx-pair? _%tl126129126147%_) - (let ((_%e126130126150%_ - (gx#syntax-e _%tl126129126147%_))) - (let ((_%hd126131126153%_ - (##car _%e126130126150%_)) - (_%tl126132126155%_ - (##cdr _%e126130126150%_))) - (let ((_%e126158%_ _%hd126131126153%_)) - (if (gx#stx-null? _%tl126132126155%_) + _%e125360125370%_))) + (_%E125361125396%_ + (lambda () + (if (gx#stx-pair? _%e125360125370%_) + (let ((_%e125363125378%_ + (gx#syntax-e _%e125360125370%_))) + (let ((_%hd125364125381%_ (##car _%e125363125378%_)) + (_%tl125365125383%_ (##cdr _%e125363125378%_))) + (if (gx#stx-pair? _%tl125365125383%_) + (let ((_%e125366125386%_ + (gx#syntax-e _%tl125365125383%_))) + (let ((_%hd125367125389%_ + (##car _%e125366125386%_)) + (_%tl125368125391%_ + (##cdr _%e125366125386%_))) + (let ((_%e125394%_ _%hd125367125389%_)) + (if (gx#stx-null? _%tl125368125391%_) (if '#t (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _%e126158%_) + _%e125394%_) '())) - (_%E126126126138%_)) - (_%E126126126138%_))))) - (_%E126126126138%_)))) - (_%E126126126138%_))))) - (_%E126125126160%_)))) + (_%E125362125374%_)) + (_%E125362125374%_))))) + (_%E125362125374%_)))) + (_%E125362125374%_))))) + (_%E125361125396%_)))) (define gx#core-compile-top-call% - (lambda (_%stx126080%_) - (let* ((_%e126081126091%_ _%stx126080%_) - (_%E126083126095%_ + (lambda (_%stx125316%_) + (let* ((_%e125317125327%_ _%stx125316%_) + (_%E125319125331%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126081126091%_))) - (_%E126082126119%_ - (lambda () - (if (gx#stx-pair? _%e126081126091%_) - (let ((_%e126084126099%_ - (gx#syntax-e _%e126081126091%_))) - (let ((_%hd126085126102%_ (##car _%e126084126099%_)) - (_%tl126086126104%_ (##cdr _%e126084126099%_))) - (if (gx#stx-pair? _%tl126086126104%_) - (let ((_%e126087126107%_ - (gx#syntax-e _%tl126086126104%_))) - (let ((_%hd126088126110%_ - (##car _%e126087126107%_)) - (_%tl126089126112%_ - (##cdr _%e126087126107%_))) - (let* ((_%rator126115%_ _%hd126088126110%_) - (_%args126117%_ _%tl126089126112%_)) + _%e125317125327%_))) + (_%E125318125355%_ + (lambda () + (if (gx#stx-pair? _%e125317125327%_) + (let ((_%e125320125335%_ + (gx#syntax-e _%e125317125327%_))) + (let ((_%hd125321125338%_ (##car _%e125320125335%_)) + (_%tl125322125340%_ (##cdr _%e125320125335%_))) + (if (gx#stx-pair? _%tl125322125340%_) + (let ((_%e125323125343%_ + (gx#syntax-e _%tl125322125340%_))) + (let ((_%hd125324125346%_ + (##car _%e125323125343%_)) + (_%tl125325125348%_ + (##cdr _%e125323125343%_))) + (let* ((_%rator125351%_ _%hd125324125346%_) + (_%args125353%_ _%tl125325125348%_)) (if '#t (cons '%#call (cons (gx#core-compile-top-syntax - _%rator126115%_) + _%rator125351%_) (gx#stx-map1 gx#core-compile-top-syntax - _%args126117%_))) - (_%E126083126095%_))))) - (_%E126083126095%_)))) - (_%E126083126095%_))))) - (_%E126082126119%_)))) + _%args125353%_))) + (_%E125319125331%_))))) + (_%E125319125331%_)))) + (_%E125319125331%_))))) + (_%E125318125355%_)))) (define gx#core-compile-top-if% - (lambda (_%stx126013%_) - (let* ((_%e126014126030%_ _%stx126013%_) - (_%E126016126034%_ + (lambda (_%stx125249%_) + (let* ((_%e125250125266%_ _%stx125249%_) + (_%E125252125270%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126014126030%_))) - (_%E126015126076%_ - (lambda () - (if (gx#stx-pair? _%e126014126030%_) - (let ((_%e126017126038%_ - (gx#syntax-e _%e126014126030%_))) - (let ((_%hd126018126041%_ (##car _%e126017126038%_)) - (_%tl126019126043%_ (##cdr _%e126017126038%_))) - (if (gx#stx-pair? _%tl126019126043%_) - (let ((_%e126020126046%_ - (gx#syntax-e _%tl126019126043%_))) - (let ((_%hd126021126049%_ - (##car _%e126020126046%_)) - (_%tl126022126051%_ - (##cdr _%e126020126046%_))) - (let ((_%test126054%_ _%hd126021126049%_)) - (if (gx#stx-pair? _%tl126022126051%_) - (let ((_%e126023126056%_ + _%e125250125266%_))) + (_%E125251125312%_ + (lambda () + (if (gx#stx-pair? _%e125250125266%_) + (let ((_%e125253125274%_ + (gx#syntax-e _%e125250125266%_))) + (let ((_%hd125254125277%_ (##car _%e125253125274%_)) + (_%tl125255125279%_ (##cdr _%e125253125274%_))) + (if (gx#stx-pair? _%tl125255125279%_) + (let ((_%e125256125282%_ + (gx#syntax-e _%tl125255125279%_))) + (let ((_%hd125257125285%_ + (##car _%e125256125282%_)) + (_%tl125258125287%_ + (##cdr _%e125256125282%_))) + (let ((_%test125290%_ _%hd125257125285%_)) + (if (gx#stx-pair? _%tl125258125287%_) + (let ((_%e125259125292%_ (gx#syntax-e - _%tl126022126051%_))) - (let ((_%hd126024126059%_ - (##car _%e126023126056%_)) - (_%tl126025126061%_ - (##cdr _%e126023126056%_))) - (let ((_%K126064%_ - _%hd126024126059%_)) + _%tl125258125287%_))) + (let ((_%hd125260125295%_ + (##car _%e125259125292%_)) + (_%tl125261125297%_ + (##cdr _%e125259125292%_))) + (let ((_%K125300%_ + _%hd125260125295%_)) (if (gx#stx-pair? - _%tl126025126061%_) - (let ((_%e126026126066%_ + _%tl125261125297%_) + (let ((_%e125262125302%_ (gx#syntax-e - _%tl126025126061%_))) - (let ((_%hd126027126069%_ - (##car _%e126026126066%_)) - (_%tl126028126071%_ - (##cdr _%e126026126066%_))) - (let ((_%E126074%_ - _%hd126027126069%_)) + _%tl125261125297%_))) + (let ((_%hd125263125305%_ + (##car _%e125262125302%_)) + (_%tl125264125307%_ + (##cdr _%e125262125302%_))) + (let ((_%E125310%_ + _%hd125263125305%_)) (if (gx#stx-null? - _%tl126028126071%_) + _%tl125264125307%_) (if '#t (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _%test126054%_) + (cons (gx#core-compile-top-syntax _%test125290%_) (cons (gx#core-compile-top-syntax - _%K126064%_) + _%K125300%_) (cons (gx#core-compile-top-syntax - _%E126074%_) + _%E125310%_) '())))) - (_%E126016126034%_)) - (_%E126016126034%_))))) + (_%E125252125270%_)) + (_%E125252125270%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126016126034%_))))) - (_%E126016126034%_))))) - (_%E126016126034%_)))) - (_%E126016126034%_))))) - (_%E126015126076%_)))) + (_%E125252125270%_))))) + (_%E125252125270%_))))) + (_%E125252125270%_)))) + (_%E125252125270%_))))) + (_%E125251125312%_)))) (define gx#core-compile-top-ref% - (lambda (_%stx125972%_) - (let* ((_%e125973125983%_ _%stx125972%_) - (_%E125975125987%_ + (lambda (_%stx125208%_) + (let* ((_%e125209125219%_ _%stx125208%_) + (_%E125211125223%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125973125983%_))) - (_%E125974126009%_ - (lambda () - (if (gx#stx-pair? _%e125973125983%_) - (let ((_%e125976125991%_ - (gx#syntax-e _%e125973125983%_))) - (let ((_%hd125977125994%_ (##car _%e125976125991%_)) - (_%tl125978125996%_ (##cdr _%e125976125991%_))) - (if (gx#stx-pair? _%tl125978125996%_) - (let ((_%e125979125999%_ - (gx#syntax-e _%tl125978125996%_))) - (let ((_%hd125980126002%_ - (##car _%e125979125999%_)) - (_%tl125981126004%_ - (##cdr _%e125979125999%_))) - (let ((_%id126007%_ _%hd125980126002%_)) - (if (gx#stx-null? _%tl125981126004%_) - (if (gx#identifier? _%id126007%_) + _%e125209125219%_))) + (_%E125210125245%_ + (lambda () + (if (gx#stx-pair? _%e125209125219%_) + (let ((_%e125212125227%_ + (gx#syntax-e _%e125209125219%_))) + (let ((_%hd125213125230%_ (##car _%e125212125227%_)) + (_%tl125214125232%_ (##cdr _%e125212125227%_))) + (if (gx#stx-pair? _%tl125214125232%_) + (let ((_%e125215125235%_ + (gx#syntax-e _%tl125214125232%_))) + (let ((_%hd125216125238%_ + (##car _%e125215125235%_)) + (_%tl125217125240%_ + (##cdr _%e125215125235%_))) + (let ((_%id125243%_ _%hd125216125238%_)) + (if (gx#stx-null? _%tl125217125240%_) + (if (gx#identifier? _%id125243%_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _%id126007%_) + _%id125243%_) '())) - (_%E125975125987%_)) - (_%E125975125987%_))))) - (_%E125975125987%_)))) - (_%E125975125987%_))))) - (_%E125974126009%_)))) + (_%E125211125223%_)) + (_%E125211125223%_))))) + (_%E125211125223%_)))) + (_%E125211125223%_))))) + (_%E125210125245%_)))) (define gx#core-compile-top-setq% - (lambda (_%stx125918%_) - (let* ((_%e125919125932%_ _%stx125918%_) - (_%E125921125936%_ + (lambda (_%stx125154%_) + (let* ((_%e125155125168%_ _%stx125154%_) + (_%E125157125172%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125919125932%_))) - (_%E125920125968%_ - (lambda () - (if (gx#stx-pair? _%e125919125932%_) - (let ((_%e125922125940%_ - (gx#syntax-e _%e125919125932%_))) - (let ((_%hd125923125943%_ (##car _%e125922125940%_)) - (_%tl125924125945%_ (##cdr _%e125922125940%_))) - (if (gx#stx-pair? _%tl125924125945%_) - (let ((_%e125925125948%_ - (gx#syntax-e _%tl125924125945%_))) - (let ((_%hd125926125951%_ - (##car _%e125925125948%_)) - (_%tl125927125953%_ - (##cdr _%e125925125948%_))) - (let ((_%id125956%_ _%hd125926125951%_)) - (if (gx#stx-pair? _%tl125927125953%_) - (let ((_%e125928125958%_ + _%e125155125168%_))) + (_%E125156125204%_ + (lambda () + (if (gx#stx-pair? _%e125155125168%_) + (let ((_%e125158125176%_ + (gx#syntax-e _%e125155125168%_))) + (let ((_%hd125159125179%_ (##car _%e125158125176%_)) + (_%tl125160125181%_ (##cdr _%e125158125176%_))) + (if (gx#stx-pair? _%tl125160125181%_) + (let ((_%e125161125184%_ + (gx#syntax-e _%tl125160125181%_))) + (let ((_%hd125162125187%_ + (##car _%e125161125184%_)) + (_%tl125163125189%_ + (##cdr _%e125161125184%_))) + (let ((_%id125192%_ _%hd125162125187%_)) + (if (gx#stx-pair? _%tl125163125189%_) + (let ((_%e125164125194%_ (gx#syntax-e - _%tl125927125953%_))) - (let ((_%hd125929125961%_ - (##car _%e125928125958%_)) - (_%tl125930125963%_ - (##cdr _%e125928125958%_))) - (let ((_%expr125966%_ - _%hd125929125961%_)) + _%tl125163125189%_))) + (let ((_%hd125165125197%_ + (##car _%e125164125194%_)) + (_%tl125166125199%_ + (##cdr _%e125164125194%_))) + (let ((_%expr125202%_ + _%hd125165125197%_)) (if (gx#stx-null? - _%tl125930125963%_) + _%tl125166125199%_) (if (gx#identifier? - _%id125956%_) + _%id125192%_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id125956%_) - (cons (gx#core-compile-top-syntax _%expr125966%_) + _%id125192%_) + (cons (gx#core-compile-top-syntax _%expr125202%_) '()))) - (_%E125921125936%_)) + (_%E125157125172%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125921125936%_))))) - (_%E125921125936%_))))) - (_%E125921125936%_)))) - (_%E125921125936%_))))) - (_%E125920125968%_)))) + (_%E125157125172%_))))) + (_%E125157125172%_))))) + (_%E125157125172%_)))) + (_%E125157125172%_))))) + (_%E125156125204%_)))) (define gx#core-compile-top-runtime-ref - (lambda (_%id125912%_) - (let ((_%$e125914%_ (gx#resolve-identifier__0 _%id125912%_))) - (if _%$e125914%_ - (##unchecked-structure-ref _%$e125914%_ '1 '#f '#f) - (let () _%id125912%_))))) + (lambda (_%id125148%_) + (let ((_%$e125150%_ (gx#resolve-identifier__0 _%id125148%_))) + (if _%$e125150%_ + (##unchecked-structure-ref _%$e125150%_ '1 '#f '#f) + _%id125148%_)))) (define gx#core-compile-top-runtime-bind - (lambda (_%hd125910%_) - (if (gx#identifier? _%hd125910%_) - (gx#core-compile-top-runtime-ref _%hd125910%_) + (lambda (_%hd125146%_) + (if (gx#identifier? _%hd125146%_) + (gx#core-compile-top-runtime-ref _%hd125146%_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core.ssxi.ss b/src/bootstrap/gerbil/expander/core.ssxi.ss index 114df9e49..6aba4c089 100644 --- a/src/bootstrap/gerbil/expander/core.ssxi.ss +++ b/src/bootstrap/gerbil/expander/core.ssxi.ss @@ -529,47 +529,112 @@ package: gerbil/expander arguments: (t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/expander/core))) (declare-type gx#phi-context:::init!__0 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type gx#phi-context:::init! (@case-lambda (2 gx#phi-context:::init!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) (3 gx#phi-context:::init!__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) (declare-type gx#local-context:::init!__% (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type gx#local-context:::init!__0 (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type gx#local-context:::init! (@case-lambda (1 gx#local-context:::init!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) (2 gx#local-context:::init!__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) (declare-class gx#binding::t (@class gx#binding::t @@ -1549,77 +1614,24 @@ package: gerbil/expander (declare-type gx#&expander-mark-trace-set! (@mutator gx#expander-mark::t trace #f)) - (declare-type gx#raise-syntax-error (@lambda (3) #f)) - (declare-type gx#eval-syntax__% (@lambda 2 #f)) - (declare-type gx#eval-syntax__0 (@lambda 1 #f)) - (declare-type - gx#eval-syntax - (@case-lambda (1 gx#eval-syntax__0) (2 gx#eval-syntax__%))) - (declare-type gx#eval-syntax* (@lambda 1 #f)) - (declare-type gx#core-expand__% (@lambda 2 #f)) - (declare-type gx#core-expand__0 (@lambda 1 #f)) - (declare-type - gx#core-expand - (@case-lambda (1 gx#core-expand__0) (2 gx#core-expand__%))) - (declare-type gx#core-expand-top (@lambda 1 #f)) - (declare-type gx#core-expand-expression (@lambda 1 #f)) - (declare-type - gx#core-expand-expression+1 - (@lambda 1 - #f - signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#core-expand*__% (@lambda 2 #f)) - (declare-type gx#core-expand*__0 (@lambda 1 #f)) - (declare-type - gx#core-expand* - (@case-lambda (1 gx#core-expand*__0) (2 gx#core-expand*__%))) - (declare-type gx#core-expand1 (@lambda 1 #f)) - (declare-type gx#core-expand-head (@lambda 1 #f)) - (declare-type gx#core-expand-block__% (@lambda 4 #f)) - (declare-type gx#core-expand-block__0 (@lambda 2 #f)) - (declare-type gx#core-expand-block__1 (@lambda 3 #f)) - (declare-type - gx#core-expand-block - (@case-lambda - (2 gx#core-expand-block__0) - (3 gx#core-expand-block__1) - (4 gx#core-expand-block__%))) - (declare-type gx#core-expand-block* (@lambda 2 #f)) - (declare-type gx#core-expand-cond-expand% (@lambda 1 #f)) - (declare-type gx#core-expand-include%__% (@lambda 2 #f)) - (declare-type gx#core-expand-include%__0 (@lambda 1 #f)) - (declare-type - gx#core-expand-include% - (@case-lambda - (1 gx#core-expand-include%__0) - (2 gx#core-expand-include%__%))) - (declare-type gx#core-apply-expander__% (@lambda 3 #f)) - (declare-type gx#core-apply-expander__0 (@lambda 2 #f)) - (declare-type - gx#core-apply-expander - (@case-lambda (2 gx#core-apply-expander__0) (3 gx#core-apply-expander__%))) - (declare-type - gx#expander::apply-macro-expander - (@lambda 2 - #f - signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) (declare-type - gx#macro-expander::apply-macro-expander - (@lambda 2 + gx#raise-syntax-error + (@lambda (3) #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type - gx#core-expander::apply-macro-expander + gx#eval-syntax__% (@lambda 2 - #f - signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) - (declare-type - gx#top-special-form::apply-macro-expander__% - (@lambda 3 #f signature: (return: @@ -1627,301 +1639,2213 @@ package: gerbil/expander effect: #f arguments: - (t::t t::t t::t) + #f unchecked: - #f))) + #f + origin: + gerbil/expander/core))) (declare-type - gx#top-special-form::apply-macro-expander__0 - (@lambda 2 + gx#eval-syntax__0 + (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type - gx#top-special-form::apply-macro-expander + gx#eval-syntax (@case-lambda - (2 - gx#top-special-form::apply-macro-expander__0 + (1 + gx#eval-syntax__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) - (3 - gx#top-special-form::apply-macro-expander__% + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (2 + gx#eval-syntax__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) - (declare-type - gx#module-special-form::apply-macro-expander - (@lambda 2 + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#eval-syntax* + (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type - gx#rename-macro-expander::apply-macro-expander + gx#core-expand__% (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) - (declare-type gx#core-apply-user-expander__% (@lambda 3 #f)) - (declare-type gx#core-apply-user-expander__0 (@lambda 2 #f)) - (declare-type - gx#core-apply-user-expander - (@case-lambda - (2 gx#core-apply-user-expander__0) - (3 gx#core-apply-user-expander__%))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type - gx#core-apply-user-macro - (@lambda 5 + gx#core-expand__0 + (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type - gx#user-expander::apply-macro-expander - (@case-lambda - (2 gx#core-apply-user-expander__0) - (3 gx#core-apply-user-expander__%))) - (declare-type gx#resolve-identifier__% (@lambda 3 #f)) - (declare-type gx#resolve-identifier__0 (@lambda 1 #f)) - (declare-type gx#resolve-identifier__1 (@lambda 2 #f)) - (declare-type - gx#resolve-identifier - (@case-lambda - (1 gx#resolve-identifier__0) - (2 gx#resolve-identifier__1) - (3 gx#resolve-identifier__%))) - (declare-type gx#bind-identifier!__% (@lambda 5 #f)) - (declare-type gx#bind-identifier!__0 (@lambda 2 #f)) - (declare-type gx#bind-identifier!__1 (@lambda 3 #f)) - (declare-type gx#bind-identifier!__2 (@lambda 4 #f)) - (declare-type - gx#bind-identifier! - (@case-lambda - (2 gx#bind-identifier!__0) - (3 gx#bind-identifier!__1) - (4 gx#bind-identifier!__2) - (5 gx#bind-identifier!__%))) - (declare-type gx#core-resolve-identifier__% (@lambda 3 #f)) - (declare-type gx#core-resolve-identifier__0 (@lambda 1 #f)) - (declare-type gx#core-resolve-identifier__1 (@lambda 2 #f)) - (declare-type - gx#core-resolve-identifier - (@case-lambda - (1 gx#core-resolve-identifier__0) - (2 gx#core-resolve-identifier__1) - (3 gx#core-resolve-identifier__%))) - (declare-type gx#core-resolve-binding (@lambda 5 #f)) - (declare-type gx#core-bind!__% (@lambda 5 #f)) - (declare-type gx#core-bind!__0 (@lambda 2 #f)) - (declare-type gx#core-bind!__1 (@lambda 3 #f)) - (declare-type gx#core-bind!__2 (@lambda 4 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type - gx#core-bind! + gx#core-expand (@case-lambda - (2 gx#core-bind!__0) - (3 gx#core-bind!__1) - (4 gx#core-bind!__2) - (5 gx#core-bind!__%))) - (declare-type gx#core-identifier-key (@lambda 1 #f)) - (declare-type gx#&phi-context? (@predicate gx#phi-context::t)) - (declare-type gx#core-context-shift (@lambda 2 #f)) - (declare-type - gx#core-context-get - (@lambda 2 + (1 + gx#core-expand__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (2 + gx#core-expand__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#core-expand-top + (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type - gx#core-context-put! - (@lambda 3 + gx#core-expand-expression + (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#core-context-resolve (@lambda 2 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type - gx#core-context-bind! - (@lambda 4 + gx#core-expand-expression+1 + (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#core-context-top__% (@lambda 2 #f)) - (declare-type gx#core-context-top__0 (@lambda 0 #f)) - (declare-type gx#core-context-top__1 (@lambda 1 #f)) - (declare-type - gx#core-context-top - (@case-lambda - (0 gx#core-context-top__0) - (1 gx#core-context-top__1) - (2 gx#core-context-top__%))) - (declare-type gx#core-context-root__% (@lambda 1 #f)) - (declare-type gx#core-context-root__0 (@lambda 0 #f)) - (declare-type - gx#core-context-root - (@case-lambda (0 gx#core-context-root__0) (1 gx#core-context-root__%))) - (declare-type gx#core-context-rebind?__% (@lambda (1) #f)) - (declare-type gx#core-context-rebind?__0 (@lambda 0 #f)) - (declare-type - gx#core-context-rebind? - (@case-lambda - (0 gx#core-context-rebind?__0) - (1 gx#core-context-rebind?__%) - ((1) gx#core-context-rebind?__%))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type - gx#core-context-namespace__% - (@lambda 1 + gx#core-expand*__% + (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type - gx#core-context-namespace__0 - (@lambda 0 + gx#core-expand*__0 + (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type - gx#core-context-namespace + gx#core-expand* (@case-lambda - (0 - gx#core-context-namespace__0 - signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) (1 - gx#core-context-namespace__% + gx#core-expand*__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) - (declare-type gx#expander-binding?__% (@lambda 2 #f)) - (declare-type gx#expander-binding?__0 (@lambda 1 #f)) - (declare-type - gx#expander-binding? - (@case-lambda (1 gx#expander-binding?__0) (2 gx#expander-binding?__%))) - (declare-type gx#core-expander-binding? (@lambda 1 #f)) - (declare-type gx#expression-form-binding? (@lambda 1 #f)) - (declare-type gx#direct-special-form-binding? (@lambda 1 #f)) - (declare-type gx#special-form-binding? (@lambda 1 #f)) - (declare-type gx#feature-binding? (@lambda 1 #f)) - (declare-type gx#private-feature-binding? (@lambda 1 #f)) - (declare-type gx#core-bound-identifier?__% (@lambda 2 #f)) - (declare-type gx#core-bound-identifier?__0 (@lambda 1 #f)) - (declare-type - gx#core-bound-identifier? - (@case-lambda - (1 gx#core-bound-identifier?__0) - (2 gx#core-bound-identifier?__%))) - (declare-type - gx#core-identifier=? - (@lambda 2 + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (2 + gx#core-expand*__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#core-expand1 + (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type - gx#core-extern-symbol? + gx#core-expand-head (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type - gx#core-quote-syntax__% + gx#core-expand-block__% (@lambda 4 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type - gx#core-quote-syntax__0 - (@lambda 1 - #f - signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type - gx#core-quote-syntax__1 + gx#core-expand-block__0 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type - gx#core-quote-syntax__2 + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-expand-block__1 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-expand-block + (@case-lambda + (2 + gx#core-expand-block__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (3 + gx#core-expand-block__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (4 + gx#core-expand-block__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#core-expand-block* + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-expand-cond-expand% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-expand-include%__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-expand-include%__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-expand-include% + (@case-lambda + (1 + gx#core-expand-include%__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (2 + gx#core-expand-include%__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#core-apply-expander__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-apply-expander__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-apply-expander + (@case-lambda + (2 + gx#core-apply-expander__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (3 + gx#core-apply-expander__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#expander::apply-macro-expander + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#macro-expander::apply-macro-expander + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-expander::apply-macro-expander + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#top-special-form::apply-macro-expander__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + (t::t t::t t::t) + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#top-special-form::apply-macro-expander__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#top-special-form::apply-macro-expander + (@case-lambda + (2 + gx#top-special-form::apply-macro-expander__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (3 + gx#top-special-form::apply-macro-expander__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#module-special-form::apply-macro-expander + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#rename-macro-expander::apply-macro-expander + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-apply-user-expander__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-apply-user-expander__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-apply-user-expander + (@case-lambda + (2 + gx#core-apply-user-expander__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (3 + gx#core-apply-user-expander__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#core-apply-user-macro + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#user-expander::apply-macro-expander + (@case-lambda + (2 + gx#core-apply-user-expander__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (3 + gx#core-apply-user-expander__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#resolve-identifier__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#resolve-identifier__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#resolve-identifier__1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#resolve-identifier + (@case-lambda + (1 + gx#resolve-identifier__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (2 + gx#resolve-identifier__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (3 + gx#resolve-identifier__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#bind-identifier!__% + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#bind-identifier!__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#bind-identifier!__1 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#bind-identifier!__2 + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#bind-identifier! + (@case-lambda + (2 + gx#bind-identifier!__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (3 + gx#bind-identifier!__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (4 + gx#bind-identifier!__2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (5 + gx#bind-identifier!__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#core-resolve-identifier__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-resolve-identifier__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-resolve-identifier__1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-resolve-identifier + (@case-lambda + (1 + gx#core-resolve-identifier__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (2 + gx#core-resolve-identifier__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (3 + gx#core-resolve-identifier__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#core-resolve-binding + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-bind!__% + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-bind!__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-bind!__1 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-bind!__2 + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-bind! + (@case-lambda + (2 + gx#core-bind!__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (3 + gx#core-bind!__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (4 + gx#core-bind!__2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (5 + gx#core-bind!__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#core-identifier-key + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type gx#&phi-context? (@predicate gx#phi-context::t)) + (declare-type + gx#core-context-shift + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-context-get + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-context-put! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-context-resolve + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-context-bind! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-context-top__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-context-top__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-context-top__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-context-top + (@case-lambda + (0 + gx#core-context-top__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (1 + gx#core-context-top__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (2 + gx#core-context-top__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#core-context-root__% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-context-root__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-context-root + (@case-lambda + (0 + gx#core-context-root__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (1 + gx#core-context-root__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#core-context-rebind?__% + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-context-rebind?__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-context-rebind? + (@case-lambda + (0 + gx#core-context-rebind?__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (1 + gx#core-context-rebind?__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + ((1) + gx#core-context-rebind?__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#core-context-namespace__% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-context-namespace__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-context-namespace + (@case-lambda + (0 + gx#core-context-namespace__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (1 + gx#core-context-namespace__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#expander-binding?__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#expander-binding?__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#expander-binding? + (@case-lambda + (1 + gx#expander-binding?__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (2 + gx#expander-binding?__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#core-expander-binding? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#expression-form-binding? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#direct-special-form-binding? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#special-form-binding? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#feature-binding? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#private-feature-binding? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-bound-identifier?__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-bound-identifier?__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-bound-identifier? + (@case-lambda + (1 + gx#core-bound-identifier?__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (2 + gx#core-bound-identifier?__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#core-identifier=? + (@lambda 2 + #f + signature: + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-extern-symbol? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-quote-syntax__% + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-quote-syntax__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-quote-syntax__1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-quote-syntax__2 (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type gx#core-quote-syntax (@case-lambda (1 gx#core-quote-syntax__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) (2 gx#core-quote-syntax__1 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) (3 gx#core-quote-syntax__2 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) (4 gx#core-quote-syntax__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) (declare-type gx#core-cons (@lambda 2 #f signature: - (return: pair::t effect: #f arguments: #f unchecked: #f))) + (return: + pair::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type gx#core-list (@lambda (1) #f signature: - (return: pair::t effect: #f arguments: #f unchecked: #f))) + (return: + pair::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type gx#core-cons* (@lambda (1) #f signature: - (return: pair::t effect: #f arguments: #f unchecked: #f))) + (return: + pair::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type gx#core-resolve-path__% (@lambda 2 #f signature: - (return: string::t effect: #f arguments: #f unchecked: #f))) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type gx#core-resolve-path__0 (@lambda 1 #f signature: - (return: string::t effect: #f arguments: #f unchecked: #f))) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type gx#core-resolve-path (@case-lambda (1 gx#core-resolve-path__0 signature: - (return: string::t effect: #f arguments: #f unchecked: #f)) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) (2 gx#core-resolve-path__% signature: - (return: string::t effect: #f arguments: #f unchecked: #f)))) - (declare-type gx#core-deserialize-mark__% (@lambda 2 #f)) - (declare-type gx#core-deserialize-mark__0 (@lambda 1 #f)) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#core-deserialize-mark__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#core-deserialize-mark__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type gx#core-deserialize-mark (@case-lambda - (1 gx#core-deserialize-mark__0) - (2 gx#core-deserialize-mark__%))) + (1 + gx#core-deserialize-mark__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (2 + gx#core-deserialize-mark__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) (declare-type gx#syntax-local-rewrap (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#syntax-local-unwrap (@lambda 1 #f)) - (declare-type gx#syntax-local-introduce (@lambda 1 #f)) - (declare-type gx#syntax-local-e__% (@lambda 2 #f)) - (declare-type gx#syntax-local-e__0 (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#syntax-local-unwrap + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#syntax-local-introduce + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#syntax-local-e__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#syntax-local-e__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type gx#syntax-local-e - (@case-lambda (1 gx#syntax-local-e__0) (2 gx#syntax-local-e__%))) - (declare-type gx#syntax-local-value__% (@lambda 2 #f)) - (declare-type gx#syntax-local-value__0 (@lambda 1 #f)) + (@case-lambda + (1 + gx#syntax-local-e__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (2 + gx#syntax-local-e__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#syntax-local-value__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) + (declare-type + gx#syntax-local-value__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type gx#syntax-local-value - (@case-lambda (1 gx#syntax-local-value__0) (2 gx#syntax-local-value__%))) - (declare-type gx#raise-syntax-ref-error (@lambda 1 #f))) + (@case-lambda + (1 + gx#syntax-local-value__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)) + (2 + gx#syntax-local-value__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) + (declare-type + gx#raise-syntax-ref-error + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core)))) diff --git a/src/bootstrap/gerbil/expander/core~0.scm b/src/bootstrap/gerbil/expander/core~0.scm index e34d78400..0c5cf998c 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 1712533289) + (define gerbil/expander/core::timestamp 1712573430) (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 _%$args118187%_ - (apply make-instance gx#expander-context::t _%$args118187%_))) + (lambda _%$args117423%_ + (apply make-instance gx#expander-context::t _%$args117423%_))) (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 _%$args118184%_ - (apply make-instance gx#root-context::t _%$args118184%_))) + (lambda _%$args117420%_ + (apply make-instance gx#root-context::t _%$args117420%_))) (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 _%$args118181%_ - (apply make-instance gx#phi-context::t _%$args118181%_))) + (lambda _%$args117417%_ + (apply make-instance gx#phi-context::t _%$args117417%_))) (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 _%$args118178%_ - (apply make-instance gx#top-context::t _%$args118178%_))) + (lambda _%$args117414%_ + (apply make-instance gx#top-context::t _%$args117414%_))) (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 _%$args118175%_ - (apply make-instance gx#module-context::t _%$args118175%_))) + (lambda _%$args117411%_ + (apply make-instance gx#module-context::t _%$args117411%_))) (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 _%$args118172%_ - (apply make-instance gx#prelude-context::t _%$args118172%_))) + (lambda _%$args117408%_ + (apply make-instance gx#prelude-context::t _%$args117408%_))) (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 _%$args118169%_ - (apply make-instance gx#local-context::t _%$args118169%_))) + (lambda _%$args117405%_ + (apply make-instance gx#local-context::t _%$args117405%_))) (define gx#local-context-super (__make-class-slot-accessor gx#local-context::t 'super)) (define gx#local-context-up @@ -404,110 +404,95 @@ (define gx#&local-context-table-set! (__make-class-slot-unchecked-mutator gx#local-context::t 'table)) (define gx#phi-context:::init!__% - (lambda (_%self118142%_ _%id118143%_ _%super118144%_) - (let ((_%self118147%_ _%self118142%_)) - (if (##fx< '3 (##structure-length _%self118147%_)) + (lambda (_%self117378%_ _%id117379%_ _%super117380%_) + (let ((_%self117383%_ _%self117378%_)) + (if (##fx< '3 (##structure-length _%self117383%_)) (begin (##unchecked-structure-set! - _%self118147%_ - _%id118143%_ + _%self117383%_ + _%id117379%_ '1 '#f '#f) (##unchecked-structure-set! - _%self118147%_ + _%self117383%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self118147%_ - _%super118144%_ + _%self117383%_ + _%super117380%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self118147%_ + _%self117383%_ '3 - (##vector-length _%self118147%_)))))) + (##vector-length _%self117383%_)))))) (define gx#phi-context:::init!__0 - (lambda (_%self118160%_ _%id118161%_) - (let ((_%super118163%_ (gx#current-expander-context))) + (lambda (_%self117396%_ _%id117397%_) + (let ((_%super117399%_ (gx#current-expander-context))) (gx#phi-context:::init!__% - _%self118160%_ - _%id118161%_ - _%super118163%_)))) + _%self117396%_ + _%id117397%_ + _%super117399%_)))) (define gx#phi-context:::init! - (lambda _g118230_ - (let ((_g118229_ (##length _g118230_))) - (cond ((##fx= _g118229_ 2) - (apply (lambda (_%self118160%_ _%id118161%_) - (gx#phi-context:::init!__0 - _%self118160%_ - _%id118161%_)) - _g118230_)) - ((##fx= _g118229_ 3) - (apply (lambda (_%self118165%_ _%id118166%_ _%super118167%_) - (gx#phi-context:::init!__% - _%self118165%_ - _%id118166%_ - _%super118167%_)) - _g118230_)) + (lambda _g117466_ + (let ((_g117465_ (##length _g117466_))) + (cond ((##fx= _g117465_ 2) + (apply gx#phi-context:::init!__0 _g117466_)) + ((##fx= _g117465_ 3) + (apply gx#phi-context:::init!__% _g117466_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g118230_)))))) + _g117466_)))))) (__bind-method! gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_%self117995%_ _%super117996%_) - (let ((_%self117999%_ _%self117995%_)) - (if (##fx< '3 (##structure-length _%self117999%_)) + (lambda (_%self117231%_ _%super117232%_) + (let ((_%self117235%_ _%self117231%_)) + (if (##fx< '3 (##structure-length _%self117235%_)) (begin (##unchecked-structure-set! - _%self117999%_ + _%self117235%_ (##gensym 'L) '1 '#f '#f) (##unchecked-structure-set! - _%self117999%_ + _%self117235%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self117999%_ - _%super117996%_ + _%self117235%_ + _%super117232%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self117999%_ + _%self117235%_ '3 - (##vector-length _%self117999%_)))))) + (##vector-length _%self117235%_)))))) (define gx#local-context:::init!__0 - (lambda (_%self118012%_) - (let ((_%super118014%_ (gx#current-expander-context))) - (gx#local-context:::init!__% _%self118012%_ _%super118014%_)))) + (lambda (_%self117248%_) + (let ((_%super117250%_ (gx#current-expander-context))) + (gx#local-context:::init!__% _%self117248%_ _%super117250%_)))) (define gx#local-context:::init! - (lambda _g118232_ - (let ((_g118231_ (##length _g118232_))) - (cond ((##fx= _g118231_ 1) - (apply (lambda (_%self118012%_) - (gx#local-context:::init!__0 _%self118012%_)) - _g118232_)) - ((##fx= _g118231_ 2) - (apply (lambda (_%self118016%_ _%super118017%_) - (gx#local-context:::init!__% - _%self118016%_ - _%super118017%_)) - _g118232_)) + (lambda _g117468_ + (let ((_g117467_ (##length _g117468_))) + (cond ((##fx= _g117467_ 1) + (apply gx#local-context:::init!__0 _g117468_)) + ((##fx= _g117467_ 2) + (apply gx#local-context:::init!__% _g117468_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g118232_)))))) + _g117468_)))))) (__bind-method! gx#local-context::t ':init! gx#local-context:::init! '#f) (define gx#binding::t (__make-class-type @@ -519,8 +504,8 @@ '#f)) (define gx#binding? (__make-class-predicate gx#binding::t)) (define gx#make-binding - (lambda _%$args117869%_ - (apply make-instance gx#binding::t _%$args117869%_))) + (lambda _%$args117105%_ + (apply make-instance gx#binding::t _%$args117105%_))) (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)) @@ -549,8 +534,8 @@ '#f)) (define gx#runtime-binding? (__make-class-predicate gx#runtime-binding::t)) (define gx#make-runtime-binding - (lambda _%$args117866%_ - (apply make-instance gx#runtime-binding::t _%$args117866%_))) + (lambda _%$args117102%_ + (apply make-instance gx#runtime-binding::t _%$args117102%_))) (define gx#runtime-binding-id (__make-class-slot-accessor gx#runtime-binding::t 'id)) (define gx#runtime-binding-key @@ -585,8 +570,8 @@ '#f)) (define gx#local-binding? (__make-class-predicate gx#local-binding::t)) (define gx#make-local-binding - (lambda _%$args117863%_ - (apply make-instance gx#local-binding::t _%$args117863%_))) + (lambda _%$args117099%_ + (apply make-instance gx#local-binding::t _%$args117099%_))) (define gx#local-binding-id (__make-class-slot-accessor gx#local-binding::t 'id)) (define gx#local-binding-key @@ -621,8 +606,8 @@ '#f)) (define gx#top-binding? (__make-class-predicate gx#top-binding::t)) (define gx#make-top-binding - (lambda _%$args117860%_ - (apply make-instance gx#top-binding::t _%$args117860%_))) + (lambda _%$args117096%_ + (apply make-instance gx#top-binding::t _%$args117096%_))) (define gx#top-binding-id (__make-class-slot-accessor gx#top-binding::t 'id)) (define gx#top-binding-key @@ -657,8 +642,8 @@ '#f)) (define gx#module-binding? (__make-class-predicate gx#module-binding::t)) (define gx#make-module-binding - (lambda _%$args117857%_ - (apply make-instance gx#module-binding::t _%$args117857%_))) + (lambda _%$args117093%_ + (apply make-instance gx#module-binding::t _%$args117093%_))) (define gx#module-binding-context (__make-class-slot-accessor gx#module-binding::t 'context)) (define gx#module-binding-id @@ -701,8 +686,8 @@ '#f)) (define gx#extern-binding? (__make-class-predicate gx#extern-binding::t)) (define gx#make-extern-binding - (lambda _%$args117854%_ - (apply make-instance gx#extern-binding::t _%$args117854%_))) + (lambda _%$args117090%_ + (apply make-instance gx#extern-binding::t _%$args117090%_))) (define gx#extern-binding-id (__make-class-slot-accessor gx#extern-binding::t 'id)) (define gx#extern-binding-key @@ -738,8 +723,8 @@ '#f)) (define gx#syntax-binding? (__make-class-predicate gx#syntax-binding::t)) (define gx#make-syntax-binding - (lambda _%$args117851%_ - (apply make-instance gx#syntax-binding::t _%$args117851%_))) + (lambda _%$args117087%_ + (apply make-instance gx#syntax-binding::t _%$args117087%_))) (define gx#syntax-binding-e (__make-class-slot-accessor gx#syntax-binding::t 'e)) (define gx#syntax-binding-id @@ -783,8 +768,8 @@ '#f)) (define gx#import-binding? (__make-class-predicate gx#import-binding::t)) (define gx#make-import-binding - (lambda _%$args117848%_ - (apply make-instance gx#import-binding::t _%$args117848%_))) + (lambda _%$args117084%_ + (apply make-instance gx#import-binding::t _%$args117084%_))) (define gx#import-binding-e (__make-class-slot-accessor gx#import-binding::t 'e)) (define gx#import-binding-context @@ -844,8 +829,8 @@ '#f)) (define gx#alias-binding? (__make-class-predicate gx#alias-binding::t)) (define gx#make-alias-binding - (lambda _%$args117845%_ - (apply make-instance gx#alias-binding::t _%$args117845%_))) + (lambda _%$args117081%_ + (apply make-instance gx#alias-binding::t _%$args117081%_))) (define gx#alias-binding-e (__make-class-slot-accessor gx#alias-binding::t 'e)) (define gx#alias-binding-id @@ -888,8 +873,8 @@ '#f)) (define gx#expander? (__make-class-predicate gx#expander::t)) (define gx#make-expander - (lambda _%$args117842%_ - (apply make-instance gx#expander::t _%$args117842%_))) + (lambda _%$args117078%_ + (apply make-instance gx#expander::t _%$args117078%_))) (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 @@ -906,8 +891,8 @@ '#f)) (define gx#core-expander? (__make-class-predicate gx#core-expander::t)) (define gx#make-core-expander - (lambda _%$args117839%_ - (apply make-instance gx#core-expander::t _%$args117839%_))) + (lambda _%$args117075%_ + (apply make-instance gx#core-expander::t _%$args117075%_))) (define gx#core-expander-id (__make-class-slot-accessor gx#core-expander::t 'id)) (define gx#core-expander-compile-top @@ -942,8 +927,8 @@ '#f)) (define gx#expression-form? (__make-class-predicate gx#expression-form::t)) (define gx#make-expression-form - (lambda _%$args117836%_ - (apply make-instance gx#expression-form::t _%$args117836%_))) + (lambda _%$args117072%_ + (apply make-instance gx#expression-form::t _%$args117072%_))) (define gx#expression-form-id (__make-class-slot-accessor gx#expression-form::t 'id)) (define gx#expression-form-compile-top @@ -980,8 +965,8 @@ '#f)) (define gx#special-form? (__make-class-predicate gx#special-form::t)) (define gx#make-special-form - (lambda _%$args117833%_ - (apply make-instance gx#special-form::t _%$args117833%_))) + (lambda _%$args117069%_ + (apply make-instance gx#special-form::t _%$args117069%_))) (define gx#special-form-id (__make-class-slot-accessor gx#special-form::t 'id)) (define gx#special-form-compile-top @@ -1016,8 +1001,8 @@ '#f)) (define gx#definition-form? (__make-class-predicate gx#definition-form::t)) (define gx#make-definition-form - (lambda _%$args117830%_ - (apply make-instance gx#definition-form::t _%$args117830%_))) + (lambda _%$args117066%_ + (apply make-instance gx#definition-form::t _%$args117066%_))) (define gx#definition-form-id (__make-class-slot-accessor gx#definition-form::t 'id)) (define gx#definition-form-compile-top @@ -1055,8 +1040,8 @@ (define gx#top-special-form? (__make-class-predicate gx#top-special-form::t)) (define gx#make-top-special-form - (lambda _%$args117827%_ - (apply make-instance gx#top-special-form::t _%$args117827%_))) + (lambda _%$args117063%_ + (apply make-instance gx#top-special-form::t _%$args117063%_))) (define gx#top-special-form-id (__make-class-slot-accessor gx#top-special-form::t 'id)) (define gx#top-special-form-compile-top @@ -1096,8 +1081,8 @@ (define gx#module-special-form? (__make-class-predicate gx#module-special-form::t)) (define gx#make-module-special-form - (lambda _%$args117824%_ - (apply make-instance gx#module-special-form::t _%$args117824%_))) + (lambda _%$args117060%_ + (apply make-instance gx#module-special-form::t _%$args117060%_))) (define gx#module-special-form-id (__make-class-slot-accessor gx#module-special-form::t 'id)) (define gx#module-special-form-compile-top @@ -1137,8 +1122,8 @@ (define gx#feature-expander? (__make-class-predicate gx#feature-expander::t)) (define gx#make-feature-expander - (lambda _%$args117821%_ - (apply make-instance gx#feature-expander::t _%$args117821%_))) + (lambda _%$args117057%_ + (apply make-instance gx#feature-expander::t _%$args117057%_))) (define gx#feature-expander-e (__make-class-slot-accessor gx#feature-expander::t 'e)) (define gx#feature-expander-e-set! @@ -1158,8 +1143,8 @@ (define gx#private-feature-expander? (__make-class-predicate gx#private-feature-expander::t)) (define gx#make-private-feature-expander - (lambda _%$args117818%_ - (apply make-instance gx#private-feature-expander::t _%$args117818%_))) + (lambda _%$args117054%_ + (apply make-instance gx#private-feature-expander::t _%$args117054%_))) (define gx#private-feature-expander-e (__make-class-slot-accessor gx#private-feature-expander::t 'e)) (define gx#private-feature-expander-e-set! @@ -1179,8 +1164,8 @@ (define gx#reserved-expander? (__make-class-predicate gx#reserved-expander::t)) (define gx#make-reserved-expander - (lambda _%$args117815%_ - (apply make-instance gx#reserved-expander::t _%$args117815%_))) + (lambda _%$args117051%_ + (apply make-instance gx#reserved-expander::t _%$args117051%_))) (define gx#reserved-expander-e (__make-class-slot-accessor gx#reserved-expander::t 'e)) (define gx#reserved-expander-e-set! @@ -1199,8 +1184,8 @@ '#f)) (define gx#macro-expander? (__make-class-predicate gx#macro-expander::t)) (define gx#make-macro-expander - (lambda _%$args117812%_ - (apply make-instance gx#macro-expander::t _%$args117812%_))) + (lambda _%$args117048%_ + (apply make-instance gx#macro-expander::t _%$args117048%_))) (define gx#macro-expander-e (__make-class-slot-accessor gx#macro-expander::t 'e)) (define gx#macro-expander-e-set! @@ -1220,8 +1205,8 @@ (define gx#rename-macro-expander? (__make-class-predicate gx#rename-macro-expander::t)) (define gx#make-rename-macro-expander - (lambda _%$args117809%_ - (apply make-instance gx#rename-macro-expander::t _%$args117809%_))) + (lambda _%$args117045%_ + (apply make-instance gx#rename-macro-expander::t _%$args117045%_))) (define gx#rename-macro-expander-e (__make-class-slot-accessor gx#rename-macro-expander::t 'e)) (define gx#rename-macro-expander-e-set! @@ -1240,8 +1225,8 @@ '#f)) (define gx#user-expander? (__make-class-predicate gx#user-expander::t)) (define gx#make-user-expander - (lambda _%$args117806%_ - (apply make-instance gx#user-expander::t _%$args117806%_))) + (lambda _%$args117042%_ + (apply make-instance gx#user-expander::t _%$args117042%_))) (define gx#user-expander-context (__make-class-slot-accessor gx#user-expander::t 'context)) (define gx#user-expander-phi @@ -1276,8 +1261,8 @@ '#f)) (define gx#expander-mark? (__make-class-predicate gx#expander-mark::t)) (define gx#make-expander-mark - (lambda _%$args117803%_ - (apply make-instance gx#expander-mark::t _%$args117803%_))) + (lambda _%$args117039%_ + (apply make-instance gx#expander-mark::t _%$args117039%_))) (define gx#expander-mark-subst (__make-class-slot-accessor gx#expander-mark::t 'subst)) (define gx#expander-mark-context @@ -1311,1080 +1296,995 @@ (define gx#&expander-mark-trace-set! (__make-class-slot-unchecked-mutator gx#expander-mark::t 'trace)) (define gx#raise-syntax-error - (lambda (_%ctx117787%_ - _%message117788%_ - _%stx117789%_ + (lambda (_%ctx117023%_ + _%message117024%_ + _%stx117025%_ . - _%details117790%_) - (let ((_%ctx117801%_ - (let ((_%$e117792%_ _%ctx117787%_)) - (if _%$e117792%_ - _%$e117792%_ - (let ((_%$e117795%_ (gx#core-context-top__0))) - (if _%$e117795%_ - ((lambda (_%ctx117798%_) + _%details117026%_) + (let ((_%ctx117037%_ + (let ((_%$e117028%_ _%ctx117023%_)) + (if _%$e117028%_ + _%$e117028%_ + (let ((_%$e117031%_ (gx#core-context-top__0))) + (if _%$e117031%_ + ((lambda (_%ctx117034%_) (cons 'expand (cons (##structure-ref - _%ctx117798%_ + _%ctx117034%_ '1 gx#expander-context::t '#f) '()))) - _%$e117795%_) - (let () '#f))))))) + _%$e117031%_) + '#f)))))) (raise (make-syntax-error - _%message117788%_ - (cons _%stx117789%_ _%details117790%_) - _%ctx117801%_ + _%message117024%_ + (cons _%stx117025%_ _%details117026%_) + _%ctx117037%_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_%stx117774%_ _%expression?117775%_) + (lambda (_%stx117010%_ _%expression?117011%_) (gx#eval-syntax* - (gx#core-expand__% _%stx117774%_ _%expression?117775%_)))) + (gx#core-expand__% _%stx117010%_ _%expression?117011%_)))) (define gx#eval-syntax__0 - (lambda (_%stx117780%_) - (let ((_%expression?117782%_ '#f)) - (gx#eval-syntax__% _%stx117780%_ _%expression?117782%_)))) + (lambda (_%stx117016%_) + (let ((_%expression?117018%_ '#f)) + (gx#eval-syntax__% _%stx117016%_ _%expression?117018%_)))) (define gx#eval-syntax - (lambda _g118234_ - (let ((_g118233_ (##length _g118234_))) - (cond ((##fx= _g118233_ 1) - (apply (lambda (_%stx117780%_) - (gx#eval-syntax__0 _%stx117780%_)) - _g118234_)) - ((##fx= _g118233_ 2) - (apply (lambda (_%stx117784%_ _%expression?117785%_) - (gx#eval-syntax__% - _%stx117784%_ - _%expression?117785%_)) - _g118234_)) + (lambda _g117470_ + (let ((_g117469_ (##length _g117470_))) + (cond ((##fx= _g117469_ 1) (apply gx#eval-syntax__0 _g117470_)) + ((##fx= _g117469_ 2) (apply gx#eval-syntax__% _g117470_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g118234_)))))) + _g117470_)))))) (define gx#eval-syntax* - (lambda (_%stx117771%_) + (lambda (_%stx117007%_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _%stx117771%_)))) + ((gx#current-expander-compile) _%stx117007%_)))) (define gx#core-expand__% - (lambda (_%stx117758%_ _%expression?117759%_) - (if _%expression?117759%_ - (gx#core-expand-expression _%stx117758%_) - (gx#core-expand-top _%stx117758%_)))) + (lambda (_%stx116994%_ _%expression?116995%_) + (if _%expression?116995%_ + (gx#core-expand-expression _%stx116994%_) + (gx#core-expand-top _%stx116994%_)))) (define gx#core-expand__0 - (lambda (_%stx117764%_) - (let ((_%expression?117766%_ '#f)) - (gx#core-expand__% _%stx117764%_ _%expression?117766%_)))) + (lambda (_%stx117000%_) + (let ((_%expression?117002%_ '#f)) + (gx#core-expand__% _%stx117000%_ _%expression?117002%_)))) (define gx#core-expand - (lambda _g118236_ - (let ((_g118235_ (##length _g118236_))) - (cond ((##fx= _g118235_ 1) - (apply (lambda (_%stx117764%_) - (gx#core-expand__0 _%stx117764%_)) - _g118236_)) - ((##fx= _g118235_ 2) - (apply (lambda (_%stx117768%_ _%expression?117769%_) - (gx#core-expand__% - _%stx117768%_ - _%expression?117769%_)) - _g118236_)) + (lambda _g117472_ + (let ((_g117471_ (##length _g117472_))) + (cond ((##fx= _g117471_ 1) (apply gx#core-expand__0 _g117472_)) + ((##fx= _g117471_ 2) (apply gx#core-expand__% _g117472_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g118236_)))))) + _g117472_)))))) (define gx#core-expand-top - (lambda (_%stx117725%_) - (let* ((_%stx117727%_ (gx#core-expand*__0 _%stx117725%_)) - (_%e117728117735%_ _%stx117727%_) - (_%E117730117739%_ - (lambda () (gx#core-expand-expression _%stx117727%_))) - (_%E117729117753%_ + (lambda (_%stx116961%_) + (let* ((_%stx116963%_ (gx#core-expand*__0 _%stx116961%_)) + (_%e116964116971%_ _%stx116963%_) + (_%E116966116975%_ + (lambda () (gx#core-expand-expression _%stx116963%_))) + (_%E116965116989%_ (lambda () - (if (gx#stx-pair? _%e117728117735%_) - (let ((_%e117731117743%_ - (gx#syntax-e _%e117728117735%_))) - (let ((_%hd117732117746%_ (##car _%e117731117743%_)) - (_%tl117733117748%_ (##cdr _%e117731117743%_))) - (let ((_%form117751%_ _%hd117732117746%_)) - (if (gx#core-bound-identifier?__0 _%form117751%_) - _%stx117727%_ - (_%E117730117739%_))))) - (_%E117730117739%_))))) - (_%E117729117753%_)))) + (if (gx#stx-pair? _%e116964116971%_) + (let ((_%e116967116979%_ + (gx#syntax-e _%e116964116971%_))) + (let ((_%hd116968116982%_ (##car _%e116967116979%_)) + (_%tl116969116984%_ (##cdr _%e116967116979%_))) + (let ((_%form116987%_ _%hd116968116982%_)) + (if (gx#core-bound-identifier?__0 _%form116987%_) + _%stx116963%_ + (_%E116966116975%_))))) + (_%E116966116975%_))))) + (_%E116965116989%_)))) (define gx#core-expand-expression - (lambda (_%stx117657%_) - (letrec ((_%sealed-expression?117659%_ - (lambda (_%hd117695%_) - (if (gx#sealed-syntax? _%hd117695%_) - (let* ((_%e117696117703%_ _%hd117695%_) - (_%E117698117707%_ (lambda () '#f)) - (_%E117697117721%_ + (lambda (_%stx116893%_) + (letrec ((_%sealed-expression?116895%_ + (lambda (_%hd116931%_) + (if (gx#sealed-syntax? _%hd116931%_) + (let* ((_%e116932116939%_ _%hd116931%_) + (_%E116934116943%_ (lambda () '#f)) + (_%E116933116957%_ (lambda () - (if (gx#stx-pair? _%e117696117703%_) - (let ((_%e117699117711%_ - (gx#syntax-e _%e117696117703%_))) - (let ((_%hd117700117714%_ - (##car _%e117699117711%_)) - (_%tl117701117716%_ - (##cdr _%e117699117711%_))) - (let ((_%form117719%_ - _%hd117700117714%_)) + (if (gx#stx-pair? _%e116932116939%_) + (let ((_%e116935116947%_ + (gx#syntax-e _%e116932116939%_))) + (let ((_%hd116936116950%_ + (##car _%e116935116947%_)) + (_%tl116937116952%_ + (##cdr _%e116935116947%_))) + (let ((_%form116955%_ + _%hd116936116950%_)) (if '#t (gx#core-bound-identifier?__% - _%form117719%_ + _%form116955%_ gx#expression-form-binding?) - (_%E117698117707%_))))) - (_%E117698117707%_))))) - (_%E117697117721%_)) + (_%E116934116943%_))))) + (_%E116934116943%_))))) + (_%E116933116957%_)) '#f))) - (_%illegal-expression117660%_ - (lambda (_%hd117692%_ . _%_117693%_) + (_%illegal-expression116896%_ + (lambda (_%hd116928%_ . _%_116929%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _%stx117657%_ - _%hd117692%_))) - (_%expand-e117661%_ - (lambda (_%form117684%_ _%hd117685%_) - (let ((_%bind117687%_ + _%stx116893%_ + _%hd116928%_))) + (_%expand-e116897%_ + (lambda (_%form116920%_ _%hd116921%_) + (let ((_%bind116923%_ (if (##structure-instance-of? - _%form117684%_ + _%form116920%_ 'gx#binding::t) - _%form117684%_ - (gx#resolve-identifier__0 _%form117684%_)))) - (if (gx#core-expander-binding? _%bind117687%_) - (let () - (gx#core-apply-expander__0 - (##unchecked-structure-ref - _%bind117687%_ - '4 - '#f - '#f) - (gx#stx-wrap-source - _%hd117685%_ - (gx#stx-source _%stx117657%_)))) + _%form116920%_ + (gx#resolve-identifier__0 _%form116920%_)))) + (if (gx#core-expander-binding? _%bind116923%_) + (gx#core-apply-expander__0 + (##unchecked-structure-ref + _%bind116923%_ + '4 + '#f + '#f) + (gx#stx-wrap-source + _%hd116921%_ + (gx#stx-source _%stx116893%_))) (if (##structure-direct-instance-of? - _%bind117687%_ + _%bind116923%_ 'gx#syntax-binding::t) - (let () - (gx#core-expand-expression - (gx#core-apply-expander__0 - (##unchecked-structure-ref - _%bind117687%_ - '4 - '#f - '#f) - (gx#stx-wrap-source - _%hd117685%_ - (gx#stx-source _%stx117657%_))))) - (let () - (gx#raise-syntax-error + (gx#core-expand-expression + (gx#core-apply-expander__0 + (##unchecked-structure-ref + _%bind116923%_ + '4 '#f - '"Bad syntax; missing expander" - _%stx117657%_ - _%form117684%_)))))))) - (let ((_%hd117663%_ (gx#core-expand-head _%stx117657%_))) - (if (_%sealed-expression?117659%_ _%hd117663%_) - (let () _%hd117663%_) - (if (gx#stx-pair? _%hd117663%_) - (let () - (let* ((_%form117667%_ (gx#stx-car _%hd117663%_)) - (_%bind117669%_ - (if (gx#identifier? _%form117667%_) - (gx#resolve-identifier__0 _%form117667%_) - '#f))) - (if (or (not _%bind117669%_) - (not (gx#core-expander-binding? - _%bind117669%_))) - (let () - (_%expand-e117661%_ - '%%app - (cons '%%app _%hd117663%_))) - (if (eq? (##unchecked-structure-ref - _%bind117669%_ - '1 - '#f - '#f) - '%#begin) - (let () - (gx#core-expand-block* - _%hd117663%_ - _%illegal-expression117660%_)) - (if (gx#expression-form-binding? - _%bind117669%_) - (let () - (_%expand-e117661%_ - _%bind117669%_ - _%hd117663%_)) - (if (gx#direct-special-form-binding? - _%bind117669%_) - (let () - (gx#core-expand-expression - (_%expand-e117661%_ - _%bind117669%_ - _%hd117663%_))) - (let () - (_%illegal-expression117660%_ - _%hd117663%_)))))))) - (if (gx#core-bound-identifier?__0 _%hd117663%_) - (let () (_%illegal-expression117660%_ _%hd117663%_)) - (if (gx#identifier? _%hd117663%_) - (let () - (_%expand-e117661%_ - '%%ref - (cons '%%ref (cons _%hd117663%_ '())))) - (if (gx#stx-datum? _%hd117663%_) - (let () - (_%expand-e117661%_ - '%#quote - (cons '%#quote (cons _%hd117663%_ '())))) - (let () - (_%illegal-expression117660%_ - _%hd117663%_))))))))))) + '#f) + (gx#stx-wrap-source + _%hd116921%_ + (gx#stx-source _%stx116893%_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; missing expander" + _%stx116893%_ + _%form116920%_))))))) + (let ((_%hd116899%_ (gx#core-expand-head _%stx116893%_))) + (if (_%sealed-expression?116895%_ _%hd116899%_) + _%hd116899%_ + (if (gx#stx-pair? _%hd116899%_) + (let* ((_%form116903%_ (gx#stx-car _%hd116899%_)) + (_%bind116905%_ + (if (gx#identifier? _%form116903%_) + (gx#resolve-identifier__0 _%form116903%_) + '#f))) + (if (or (not _%bind116905%_) + (not (gx#core-expander-binding? _%bind116905%_))) + (_%expand-e116897%_ + '%%app + (cons '%%app _%hd116899%_)) + (if (eq? (##unchecked-structure-ref + _%bind116905%_ + '1 + '#f + '#f) + '%#begin) + (gx#core-expand-block* + _%hd116899%_ + _%illegal-expression116896%_) + (if (gx#expression-form-binding? _%bind116905%_) + (_%expand-e116897%_ + _%bind116905%_ + _%hd116899%_) + (if (gx#direct-special-form-binding? + _%bind116905%_) + (gx#core-expand-expression + (_%expand-e116897%_ + _%bind116905%_ + _%hd116899%_)) + (_%illegal-expression116896%_ + _%hd116899%_)))))) + (if (gx#core-bound-identifier?__0 _%hd116899%_) + (_%illegal-expression116896%_ _%hd116899%_) + (if (gx#identifier? _%hd116899%_) + (_%expand-e116897%_ + '%%ref + (cons '%%ref (cons _%hd116899%_ '()))) + (if (gx#stx-datum? _%hd116899%_) + (_%expand-e116897%_ + '%#quote + (cons '%#quote (cons _%hd116899%_ '()))) + (_%illegal-expression116896%_ + _%hd116899%_)))))))))) (define gx#core-expand-expression+1 - (lambda (_%stx117652%_) + (lambda (_%stx116888%_) (__call-with-parameters (lambda () - (let ((_%stx117655%_ (gx#core-expand-expression _%stx117652%_))) - (values _%stx117655%_ (gx#eval-syntax* _%stx117655%_)))) + (let ((_%stx116891%_ (gx#core-expand-expression _%stx116888%_))) + (values _%stx116891%_ (gx#eval-syntax* _%stx116891%_)))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_%stx117633%_ _%stop?117634%_) - (let _%lp117636%_ ((_%stx117638%_ _%stx117633%_)) - (if (_%stop?117634%_ _%stx117638%_) - _%stx117638%_ - (let ((_%rstx117640%_ (gx#core-expand1 _%stx117638%_))) - (if (eq? _%stx117638%_ _%rstx117640%_) - _%stx117638%_ - (_%lp117636%_ _%rstx117640%_))))))) + (lambda (_%stx116869%_ _%stop?116870%_) + (let _%lp116872%_ ((_%stx116874%_ _%stx116869%_)) + (if (_%stop?116870%_ _%stx116874%_) + _%stx116874%_ + (let ((_%rstx116876%_ (gx#core-expand1 _%stx116874%_))) + (if (eq? _%stx116874%_ _%rstx116876%_) + _%stx116874%_ + (_%lp116872%_ _%rstx116876%_))))))) (define gx#core-expand*__0 - (lambda (_%stx117645%_) - (let ((_%stop?117647%_ false)) - (gx#core-expand*__% _%stx117645%_ _%stop?117647%_)))) + (lambda (_%stx116881%_) + (let ((_%stop?116883%_ false)) + (gx#core-expand*__% _%stx116881%_ _%stop?116883%_)))) (define gx#core-expand* - (lambda _g118238_ - (let ((_g118237_ (##length _g118238_))) - (cond ((##fx= _g118237_ 1) - (apply (lambda (_%stx117645%_) - (gx#core-expand*__0 _%stx117645%_)) - _g118238_)) - ((##fx= _g118237_ 2) - (apply (lambda (_%stx117649%_ _%stop?117650%_) - (gx#core-expand*__% _%stx117649%_ _%stop?117650%_)) - _g118238_)) + (lambda _g117474_ + (let ((_g117473_ (##length _g117474_))) + (cond ((##fx= _g117473_ 1) (apply gx#core-expand*__0 _g117474_)) + ((##fx= _g117473_ 2) (apply gx#core-expand*__% _g117474_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g118238_)))))) + _g117474_)))))) (define gx#core-expand1 - (lambda (_%stx117585%_) - (letrec ((_%step117587%_ - (lambda (_%hd117624%_) - (let ((_%bind117626%_ - (gx#resolve-identifier__0 _%hd117624%_))) + (lambda (_%stx116821%_) + (letrec ((_%step116823%_ + (lambda (_%hd116860%_) + (let ((_%bind116862%_ + (gx#resolve-identifier__0 _%hd116860%_))) (if (##structure-instance-of? - _%bind117626%_ + _%bind116862%_ 'gx#runtime-binding::t) - (let () _%stx117585%_) + _%stx116821%_ (if (##structure-direct-instance-of? - _%bind117626%_ + _%bind116862%_ 'gx#syntax-binding::t) - (let () - (gx#core-apply-expander__0 - (##unchecked-structure-ref - _%bind117626%_ - '4 - '#f - '#f) - _%stx117585%_)) - (if (not _%bind117626%_) - (let () _%stx117585%_) - (let () - (gx#raise-syntax-error - '#f - '"Bad syntax; no binding for head" - _%stx117585%_))))))))) - (let* ((_%e117588117596%_ _%stx117585%_) - (_%E117594117600%_ (lambda () _%stx117585%_)) - (_%E117590117606%_ + (gx#core-apply-expander__0 + (##unchecked-structure-ref + _%bind116862%_ + '4 + '#f + '#f) + _%stx116821%_) + (if (not _%bind116862%_) + _%stx116821%_ + (gx#raise-syntax-error + '#f + '"Bad syntax; no binding for head" + _%stx116821%_)))))))) + (let* ((_%e116824116832%_ _%stx116821%_) + (_%E116830116836%_ (lambda () _%stx116821%_)) + (_%E116826116842%_ (lambda () - (let ((_%hd117604%_ _%e117588117596%_)) - (if (gx#identifier? _%hd117604%_) - (_%step117587%_ _%hd117604%_) - (_%E117594117600%_))))) - (_%E117589117620%_ + (let ((_%hd116840%_ _%e116824116832%_)) + (if (gx#identifier? _%hd116840%_) + (_%step116823%_ _%hd116840%_) + (_%E116830116836%_))))) + (_%E116825116856%_ (lambda () - (if (gx#stx-pair? _%e117588117596%_) - (let ((_%e117591117610%_ - (gx#syntax-e _%e117588117596%_))) - (let ((_%hd117592117613%_ (##car _%e117591117610%_)) - (_%tl117593117615%_ (##cdr _%e117591117610%_))) - (let ((_%hd117618%_ _%hd117592117613%_)) - (if (gx#identifier? _%hd117618%_) - (_%step117587%_ _%hd117618%_) - (_%E117590117606%_))))) - (_%E117590117606%_))))) - (_%E117589117620%_))))) + (if (gx#stx-pair? _%e116824116832%_) + (let ((_%e116827116846%_ + (gx#syntax-e _%e116824116832%_))) + (let ((_%hd116828116849%_ (##car _%e116827116846%_)) + (_%tl116829116851%_ (##cdr _%e116827116846%_))) + (let ((_%hd116854%_ _%hd116828116849%_)) + (if (gx#identifier? _%hd116854%_) + (_%step116823%_ _%hd116854%_) + (_%E116826116842%_))))) + (_%E116826116842%_))))) + (_%E116825116856%_))))) (define gx#core-expand-head - (lambda (_%stx117551%_) - (letrec ((_%stop?117553%_ - (lambda (_%stx117555%_) - (let* ((_%e117556117563%_ _%stx117555%_) - (_%E117558117567%_ (lambda () '#f)) - (_%E117557117581%_ + (lambda (_%stx116787%_) + (letrec ((_%stop?116789%_ + (lambda (_%stx116791%_) + (let* ((_%e116792116799%_ _%stx116791%_) + (_%E116794116803%_ (lambda () '#f)) + (_%E116793116817%_ (lambda () - (if (gx#stx-pair? _%e117556117563%_) - (let ((_%e117559117571%_ - (gx#syntax-e _%e117556117563%_))) - (let ((_%hd117560117574%_ - (##car _%e117559117571%_)) - (_%tl117561117576%_ - (##cdr _%e117559117571%_))) - (let ((_%hd117579%_ _%hd117560117574%_)) + (if (gx#stx-pair? _%e116792116799%_) + (let ((_%e116795116807%_ + (gx#syntax-e _%e116792116799%_))) + (let ((_%hd116796116810%_ + (##car _%e116795116807%_)) + (_%tl116797116812%_ + (##cdr _%e116795116807%_))) + (let ((_%hd116815%_ _%hd116796116810%_)) (if '#t (gx#core-bound-identifier?__0 - _%hd117579%_) - (_%E117558117567%_))))) - (_%E117558117567%_))))) - (_%E117557117581%_))))) - (gx#core-expand*__% _%stx117551%_ _%stop?117553%_)))) + _%hd116815%_) + (_%E116794116803%_))))) + (_%E116794116803%_))))) + (_%E116793116817%_))))) + (gx#core-expand*__% _%stx116787%_ _%stop?116789%_)))) (define gx#core-expand-block__% - (lambda (_%stx117357%_ - _%expand-special117358%_ - _%begin-form117359%_ - _%expand-e117360%_) - (letrec ((_%expand-splice117362%_ - (lambda (_%hd117525%_ - _%body117526%_ - _%rest117527%_ - _%r117528%_) - (if (gx#stx-list? _%body117526%_) - (_%K117366%_ - (gx#stx-foldr cons _%rest117527%_ _%body117526%_) - _%r117528%_) + (lambda (_%stx116593%_ + _%expand-special116594%_ + _%begin-form116595%_ + _%expand-e116596%_) + (letrec ((_%expand-splice116598%_ + (lambda (_%hd116761%_ + _%body116762%_ + _%rest116763%_ + _%r116764%_) + (if (gx#stx-list? _%body116762%_) + (_%K116602%_ + (gx#stx-foldr cons _%rest116763%_ _%body116762%_) + _%r116764%_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _%stx117357%_ - _%hd117525%_)))) - (_%expand-cond-expand117363%_ - (lambda (_%hd117521%_ _%rest117522%_ _%r117523%_) - (_%K117366%_ - (cons (gx#core-expand-cond-expand% _%hd117521%_) - _%rest117522%_) - _%r117523%_))) - (_%expand-include117364%_ - (lambda (_%hd117470%_ _%rest117471%_ _%r117472%_) - (let* ((_%e117473117483%_ _%hd117470%_) - (_%E117475117487%_ + _%stx116593%_ + _%hd116761%_)))) + (_%expand-cond-expand116599%_ + (lambda (_%hd116757%_ _%rest116758%_ _%r116759%_) + (_%K116602%_ + (cons (gx#core-expand-cond-expand% _%hd116757%_) + _%rest116758%_) + _%r116759%_))) + (_%expand-include116600%_ + (lambda (_%hd116706%_ _%rest116707%_ _%r116708%_) + (let* ((_%e116709116719%_ _%hd116706%_) + (_%E116711116723%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e117473117483%_))) - (_%E117474117517%_ + _%e116709116719%_))) + (_%E116710116753%_ (lambda () - (if (gx#stx-pair? _%e117473117483%_) - (let ((_%e117476117491%_ - (gx#syntax-e _%e117473117483%_))) - (let ((_%hd117477117494%_ - (##car _%e117476117491%_)) - (_%tl117478117496%_ - (##cdr _%e117476117491%_))) - (if (gx#stx-pair? _%tl117478117496%_) - (let ((_%e117479117499%_ + (if (gx#stx-pair? _%e116709116719%_) + (let ((_%e116712116727%_ + (gx#syntax-e _%e116709116719%_))) + (let ((_%hd116713116730%_ + (##car _%e116712116727%_)) + (_%tl116714116732%_ + (##cdr _%e116712116727%_))) + (if (gx#stx-pair? _%tl116714116732%_) + (let ((_%e116715116735%_ (gx#syntax-e - _%tl117478117496%_))) - (let ((_%hd117480117502%_ - (##car _%e117479117499%_)) - (_%tl117481117504%_ - (##cdr _%e117479117499%_))) - (let ((_%path117507%_ - _%hd117480117502%_)) + _%tl116714116732%_))) + (let ((_%hd116716116738%_ + (##car _%e116715116735%_)) + (_%tl116717116740%_ + (##cdr _%e116715116735%_))) + (let ((_%path116743%_ + _%hd116716116738%_)) (if (gx#stx-null? - _%tl117481117504%_) + _%tl116717116740%_) (if (gx#stx-string? - _%path117507%_) - (let* ((_%rpath117509%_ + _%path116743%_) + (let* ((_%rpath116745%_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%path117507%_ - (gx#stx-source _%hd117470%_))) - (_%block117511%_ + _%path116743%_ + (gx#stx-source _%hd116706%_))) + (_%block116747%_ (gx#core-expand-include%__% - _%hd117470%_ - _%rpath117509%_)) - (_%rbody117514%_ + _%hd116706%_ + _%rpath116745%_)) + (_%rbody116750%_ (__call-with-parameters (lambda () (gx#core-expand-block__% - _%block117511%_ - _%expand-special117358%_ + _%block116747%_ + _%expand-special116594%_ '#f - _%expand-e117360%_)) + _%expand-e116596%_)) gx#current-expander-path - (cons _%rpath117509%_ (gx#current-expander-path))))) - (_%K117366%_ - _%rest117471%_ - (__foldr1 cons _%r117472%_ _%rbody117514%_))) - (_%E117475117487%_)) + (cons _%rpath116745%_ (gx#current-expander-path))))) + (_%K116602%_ + _%rest116707%_ + (__foldr1 cons _%r116708%_ _%rbody116750%_))) + (_%E116711116723%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E117475117487%_))))) - (_%E117475117487%_)))) - (_%E117475117487%_))))) - (_%E117474117517%_)))) - (_%expand-expression117365%_ - (lambda (_%hd117466%_ _%rest117467%_ _%r117468%_) - (_%K117366%_ - _%rest117467%_ - (cons (_%expand-e117360%_ _%hd117466%_) _%r117468%_)))) - (_%K117366%_ - (lambda (_%rest117396%_ _%r117397%_) - (let* ((_%e117398117405%_ _%rest117396%_) - (_%E117400117409%_ + (_%E116711116723%_))))) + (_%E116711116723%_)))) + (_%E116711116723%_))))) + (_%E116710116753%_)))) + (_%expand-expression116601%_ + (lambda (_%hd116702%_ _%rest116703%_ _%r116704%_) + (_%K116602%_ + _%rest116703%_ + (cons (_%expand-e116596%_ _%hd116702%_) _%r116704%_)))) + (_%K116602%_ + (lambda (_%rest116632%_ _%r116633%_) + (let* ((_%e116634116641%_ _%rest116632%_) + (_%E116636116645%_ (lambda () - (if _%begin-form117359%_ + (if _%begin-form116595%_ (gx#core-quote-syntax__1 (gx#core-cons - _%begin-form117359%_ - (reverse _%r117397%_)) - (gx#stx-source _%stx117357%_)) - _%r117397%_))) - (_%E117399117462%_ + _%begin-form116595%_ + (reverse _%r116633%_)) + (gx#stx-source _%stx116593%_)) + _%r116633%_))) + (_%E116635116698%_ (lambda () - (if (gx#stx-pair? _%e117398117405%_) - (let ((_%e117401117413%_ - (gx#syntax-e _%e117398117405%_))) - (let ((_%hd117402117416%_ - (##car _%e117401117413%_)) - (_%tl117403117418%_ - (##cdr _%e117401117413%_))) - (let* ((_%hd117421%_ _%hd117402117416%_) - (_%rest117423%_ - _%tl117403117418%_)) + (if (gx#stx-pair? _%e116634116641%_) + (let ((_%e116637116649%_ + (gx#syntax-e _%e116634116641%_))) + (let ((_%hd116638116652%_ + (##car _%e116637116649%_)) + (_%tl116639116654%_ + (##cdr _%e116637116649%_))) + (let* ((_%hd116657%_ _%hd116638116652%_) + (_%rest116659%_ + _%tl116639116654%_)) (if '#t - (let* ((_%hd117425%_ + (let* ((_%hd116661%_ (gx#core-expand-head - _%hd117421%_)) - (_%e117426117433%_ - _%hd117425%_) - (_%E117428117437%_ + _%hd116657%_)) + (_%e116662116669%_ + _%hd116661%_) + (_%E116664116673%_ (lambda () - (_%expand-expression117365%_ - _%hd117425%_ - _%rest117423%_ - _%r117397%_))) - (_%E117427117458%_ + (_%expand-expression116601%_ + _%hd116661%_ + _%rest116659%_ + _%r116633%_))) + (_%E116663116694%_ (lambda () (if (gx#stx-pair? - _%e117426117433%_) - (let ((_%e117429117441%_ + _%e116662116669%_) + (let ((_%e116665116677%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%e117426117433%_))) - (let ((_%hd117430117444%_ (##car _%e117429117441%_)) - (_%tl117431117446%_ (##cdr _%e117429117441%_))) - (let* ((_%form117449%_ _%hd117430117444%_) - (_%body117451%_ _%tl117431117446%_)) + (gx#syntax-e _%e116662116669%_))) + (let ((_%hd116666116680%_ (##car _%e116665116677%_)) + (_%tl116667116682%_ (##cdr _%e116665116677%_))) + (let* ((_%form116685%_ _%hd116666116680%_) + (_%body116687%_ _%tl116667116682%_)) (if '#t - (let ((_%bind117453%_ - (if (gx#identifier? _%form117449%_) + (let ((_%bind116689%_ + (if (gx#identifier? _%form116685%_) (gx#resolve-identifier__0 - _%form117449%_) + _%form116685%_) '#f))) - (if (gx#special-form-binding? _%bind117453%_) - (let ((_%$e117455%_ + (if (gx#special-form-binding? _%bind116689%_) + (let ((_%$e116691%_ (##unchecked-structure-ref - _%bind117453%_ + _%bind116689%_ '1 '#f '#f))) - (if (eq? '%#begin _%$e117455%_) - (_%expand-splice117362%_ - _%hd117425%_ - _%body117451%_ - _%rest117423%_ - _%r117397%_) - (if (eq? '%#cond-expand _%$e117455%_) - (_%expand-cond-expand117363%_ - _%hd117425%_ - _%rest117423%_ - _%r117397%_) - (if (eq? '%#include _%$e117455%_) - (_%expand-include117364%_ - _%hd117425%_ - _%rest117423%_ - _%r117397%_) - (_%expand-special117358%_ - _%hd117425%_ - _%K117366%_ - _%rest117423%_ - _%r117397%_))))) - (_%expand-expression117365%_ - _%hd117425%_ - _%rest117423%_ - _%r117397%_))) - (_%E117428117437%_))))) - (_%E117428117437%_))))) + (if (eq? '%#begin _%$e116691%_) + (_%expand-splice116598%_ + _%hd116661%_ + _%body116687%_ + _%rest116659%_ + _%r116633%_) + (if (eq? '%#cond-expand _%$e116691%_) + (_%expand-cond-expand116599%_ + _%hd116661%_ + _%rest116659%_ + _%r116633%_) + (if (eq? '%#include _%$e116691%_) + (_%expand-include116600%_ + _%hd116661%_ + _%rest116659%_ + _%r116633%_) + (_%expand-special116594%_ + _%hd116661%_ + _%K116602%_ + _%rest116659%_ + _%r116633%_))))) + (_%expand-expression116601%_ + _%hd116661%_ + _%rest116659%_ + _%r116633%_))) + (_%E116664116673%_))))) + (_%E116664116673%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E117427117458%_)) - (_%E117400117409%_))))) - (_%E117400117409%_))))) - (_%E117399117462%_))))) - (let* ((_%e117367117374%_ _%stx117357%_) - (_%E117369117378%_ + (_%E116663116694%_)) + (_%E116636116645%_))))) + (_%E116636116645%_))))) + (_%E116635116698%_))))) + (let* ((_%e116603116610%_ _%stx116593%_) + (_%E116605116614%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e117367117374%_))) - (_%E117368117392%_ + _%e116603116610%_))) + (_%E116604116628%_ (lambda () - (if (gx#stx-pair? _%e117367117374%_) - (let ((_%e117370117382%_ - (gx#syntax-e _%e117367117374%_))) - (let ((_%hd117371117385%_ (##car _%e117370117382%_)) - (_%tl117372117387%_ (##cdr _%e117370117382%_))) - (let ((_%body117390%_ _%tl117372117387%_)) - (if (gx#stx-list? _%body117390%_) - (_%K117366%_ _%body117390%_ '()) - (_%E117369117378%_))))) - (_%E117369117378%_))))) - (_%E117368117392%_))))) + (if (gx#stx-pair? _%e116603116610%_) + (let ((_%e116606116618%_ + (gx#syntax-e _%e116603116610%_))) + (let ((_%hd116607116621%_ (##car _%e116606116618%_)) + (_%tl116608116623%_ (##cdr _%e116606116618%_))) + (let ((_%body116626%_ _%tl116608116623%_)) + (if (gx#stx-list? _%body116626%_) + (_%K116602%_ _%body116626%_ '()) + (_%E116605116614%_))))) + (_%E116605116614%_))))) + (_%E116604116628%_))))) (define gx#core-expand-block__0 - (lambda (_%stx117533%_ _%expand-special117534%_) - (let* ((_%begin-form117536%_ '%#begin) - (_%expand-e117538%_ gx#core-expand-expression)) + (lambda (_%stx116769%_ _%expand-special116770%_) + (let* ((_%begin-form116772%_ '%#begin) + (_%expand-e116774%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx117533%_ - _%expand-special117534%_ - _%begin-form117536%_ - _%expand-e117538%_)))) + _%stx116769%_ + _%expand-special116770%_ + _%begin-form116772%_ + _%expand-e116774%_)))) (define gx#core-expand-block__1 - (lambda (_%stx117540%_ _%expand-special117541%_ _%begin-form117542%_) - (let ((_%expand-e117544%_ gx#core-expand-expression)) + (lambda (_%stx116776%_ _%expand-special116777%_ _%begin-form116778%_) + (let ((_%expand-e116780%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx117540%_ - _%expand-special117541%_ - _%begin-form117542%_ - _%expand-e117544%_)))) + _%stx116776%_ + _%expand-special116777%_ + _%begin-form116778%_ + _%expand-e116780%_)))) (define gx#core-expand-block - (lambda _g118240_ - (let ((_g118239_ (##length _g118240_))) - (cond ((##fx= _g118239_ 2) - (apply (lambda (_%stx117533%_ _%expand-special117534%_) - (gx#core-expand-block__0 - _%stx117533%_ - _%expand-special117534%_)) - _g118240_)) - ((##fx= _g118239_ 3) - (apply (lambda (_%stx117540%_ - _%expand-special117541%_ - _%begin-form117542%_) - (gx#core-expand-block__1 - _%stx117540%_ - _%expand-special117541%_ - _%begin-form117542%_)) - _g118240_)) - ((##fx= _g118239_ 4) - (apply (lambda (_%stx117546%_ - _%expand-special117547%_ - _%begin-form117548%_ - _%expand-e117549%_) - (gx#core-expand-block__% - _%stx117546%_ - _%expand-special117547%_ - _%begin-form117548%_ - _%expand-e117549%_)) - _g118240_)) + (lambda _g117476_ + (let ((_g117475_ (##length _g117476_))) + (cond ((##fx= _g117475_ 2) (apply gx#core-expand-block__0 _g117476_)) + ((##fx= _g117475_ 3) (apply gx#core-expand-block__1 _g117476_)) + ((##fx= _g117475_ 4) (apply gx#core-expand-block__% _g117476_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g118240_)))))) + _g117476_)))))) (define gx#core-expand-block* - (lambda (_%stx117305%_ _%expand-special117306%_) - (let* ((_%g117307117318%_ + (lambda (_%stx116541%_ _%expand-special116542%_) + (let* ((_%g116543116554%_ (gx#core-expand-block__1 - _%stx117305%_ - _%expand-special117306%_ + _%stx116541%_ + _%expand-special116542%_ '#f)) - (_%E117311117322%_ + (_%E116547116558%_ (lambda () (error '"No clause matching" - _%g117307117318%_ + _%g116543116554%_ '([]) '([expr]) '(body)) '#!void))) - (let ((_%K117316117353%_ + (let ((_%K116552116589%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _%stx117305%_))) - (_%K117313117339%_ (lambda (_%expr117337%_) _%expr117337%_)) - (_%K117312117328%_ - (lambda (_%body117326%_) + _%stx116541%_))) + (_%K116549116575%_ (lambda (_%expr116573%_) _%expr116573%_)) + (_%K116548116564%_ + (lambda (_%body116562%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _%body117326%_)) - (gx#stx-source _%stx117305%_))))) - (let ((_%try-match117309117349%_ + (gx#core-cons '%#begin (reverse _%body116562%_)) + (gx#stx-source _%stx116541%_))))) + (let ((_%try-match116545116585%_ (lambda () - (if (##pair? _%g117307117318%_) - (let ((_%tl117315117344%_ (##cdr _%g117307117318%_)) - (_%hd117314117342%_ (##car _%g117307117318%_))) - (if (##null? _%tl117315117344%_) - (let ((_%expr117347%_ _%hd117314117342%_)) - (_%K117313117339%_ _%expr117347%_)) - (let ((_%body117331%_ _%g117307117318%_)) - (_%K117312117328%_ _%body117331%_)))) - (let ((_%body117331%_ _%g117307117318%_)) - (_%K117312117328%_ _%body117331%_)))))) - (if (##null? _%g117307117318%_) - (_%K117316117353%_) - (_%try-match117309117349%_))))))) + (if (##pair? _%g116543116554%_) + (let ((_%tl116551116580%_ (##cdr _%g116543116554%_)) + (_%hd116550116578%_ (##car _%g116543116554%_))) + (if (##null? _%tl116551116580%_) + (let ((_%expr116583%_ _%hd116550116578%_)) + (_%K116549116575%_ _%expr116583%_)) + (let ((_%body116567%_ _%g116543116554%_)) + (_%K116548116564%_ _%body116567%_)))) + (let ((_%body116567%_ _%g116543116554%_)) + (_%K116548116564%_ _%body116567%_)))))) + (if (##null? _%g116543116554%_) + (_%K116552116589%_) + (_%try-match116545116585%_))))))) (define gx#core-expand-cond-expand% - (lambda (_%stx117130%_) - (letrec ((_%satisfied?117132%_ - (lambda (_%condition117233%_) - (let* ((_%e117234117249%_ _%condition117233%_) - (_%E117244117253%_ + (lambda (_%stx116366%_) + (letrec ((_%satisfied?116368%_ + (lambda (_%condition116469%_) + (let* ((_%e116470116485%_ _%condition116469%_) + (_%E116480116489%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e117234117249%_))) - (_%E117237117272%_ + _%e116470116485%_))) + (_%E116473116508%_ (lambda () - (if (gx#stx-pair? _%e117234117249%_) - (let ((_%e117245117257%_ - (gx#syntax-e _%e117234117249%_))) - (let ((_%hd117246117260%_ - (##car _%e117245117257%_)) - (_%tl117247117262%_ - (##cdr _%e117245117257%_))) - (let* ((_%combinator117265%_ - _%hd117246117260%_) - (_%body117267%_ - _%tl117247117262%_)) - (if (gx#stx-list? _%body117267%_) - (let ((_%$e117269%_ + (if (gx#stx-pair? _%e116470116485%_) + (let ((_%e116481116493%_ + (gx#syntax-e _%e116470116485%_))) + (let ((_%hd116482116496%_ + (##car _%e116481116493%_)) + (_%tl116483116498%_ + (##cdr _%e116481116493%_))) + (let* ((_%combinator116501%_ + _%hd116482116496%_) + (_%body116503%_ + _%tl116483116498%_)) + (if (gx#stx-list? _%body116503%_) + (let ((_%$e116505%_ (gx#stx-e - _%combinator117265%_))) - (if (eq? 'not _%$e117269%_) + _%combinator116501%_))) + (if (eq? 'not _%$e116505%_) (not (gx#stx-ormap - _%satisfied?117132%_ - _%body117267%_)) - (if (eq? 'and _%$e117269%_) + _%satisfied?116368%_ + _%body116503%_)) + (if (eq? 'and _%$e116505%_) (gx#stx-andmap - _%satisfied?117132%_ - _%body117267%_) + _%satisfied?116368%_ + _%body116503%_) (if (eq? 'or - _%$e117269%_) + _%$e116505%_) (gx#stx-ormap - _%satisfied?117132%_ - _%body117267%_) + _%satisfied?116368%_ + _%body116503%_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e117269%_) - (gx#stx-andmap gx#core-resolve-identifier _%body117267%_) + _%$e116505%_) + (gx#stx-andmap gx#core-resolve-identifier _%body116503%_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _%stx117130%_ - _%combinator117265%_)))))) + _%stx116366%_ + _%combinator116501%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E117244117253%_))))) - (_%E117244117253%_)))) - (_%E117236117295%_ + (_%E116480116489%_))))) + (_%E116480116489%_)))) + (_%E116472116531%_ (lambda () - (if (gx#stx-pair? _%e117234117249%_) - (let ((_%e117238117276%_ - (gx#syntax-e _%e117234117249%_))) - (let ((_%hd117239117279%_ - (##car _%e117238117276%_)) - (_%tl117240117281%_ - (##cdr _%e117238117276%_))) + (if (gx#stx-pair? _%e116470116485%_) + (let ((_%e116474116512%_ + (gx#syntax-e _%e116470116485%_))) + (let ((_%hd116475116515%_ + (##car _%e116474116512%_)) + (_%tl116476116517%_ + (##cdr _%e116474116512%_))) (if (and (gx#identifier? - _%hd117239117279%_) + _%hd116475116515%_) (gx#core-identifier=? - _%hd117239117279%_ + _%hd116475116515%_ 'unquote)) - (if (gx#stx-pair? _%tl117240117281%_) - (let ((_%e117241117284%_ + (if (gx#stx-pair? _%tl116476116517%_) + (let ((_%e116477116520%_ (gx#syntax-e - _%tl117240117281%_))) - (let ((_%hd117242117287%_ - (##car _%e117241117284%_)) - (_%tl117243117289%_ - (##cdr _%e117241117284%_))) - (let ((_%expr117292%_ - _%hd117242117287%_)) + _%tl116476116517%_))) + (let ((_%hd116478116523%_ + (##car _%e116477116520%_)) + (_%tl116479116525%_ + (##cdr _%e116477116520%_))) + (let ((_%expr116528%_ + _%hd116478116523%_)) (if (gx#stx-null? - _%tl117243117289%_) + _%tl116479116525%_) (if '#t (__call-with-parameters (lambda () (gx#eval-syntax__0 - _%expr117292%_)) + _%expr116528%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1)) - (_%E117237117272%_)) - (_%E117237117272%_))))) + (_%E116473116508%_)) + (_%E116473116508%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E117237117272%_)) - (_%E117237117272%_)))) - (_%E117237117272%_)))) - (_%E117235117301%_ + (_%E116473116508%_)) + (_%E116473116508%_)))) + (_%E116473116508%_)))) + (_%E116471116537%_ (lambda () - (let ((_%id117299%_ _%e117234117249%_)) - (if (gx#identifier? _%id117299%_) + (let ((_%id116535%_ _%e116470116485%_)) + (if (gx#identifier? _%id116535%_) (gx#core-bound-identifier?__% - _%id117299%_ + _%id116535%_ gx#feature-binding?) - (_%E117236117295%_)))))) - (_%E117235117301%_)))) - (_%loop117133%_ - (lambda (_%rest117163%_) - (let* ((_%e117164117172%_ _%rest117163%_) - (_%E117170117176%_ + (_%E116472116531%_)))))) + (_%E116471116537%_)))) + (_%loop116369%_ + (lambda (_%rest116399%_) + (let* ((_%e116400116408%_ _%rest116399%_) + (_%E116406116412%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e117164117172%_))) - (_%E117166117180%_ + _%e116400116408%_))) + (_%E116402116416%_ (lambda () - (if (gx#stx-null? _%e117164117172%_) - (if '#t '() (_%E117170117176%_)) - (_%E117170117176%_)))) - (_%E117165117229%_ + (if (gx#stx-null? _%e116400116408%_) + (if '#t '() (_%E116406116412%_)) + (_%E116406116412%_)))) + (_%E116401116465%_ (lambda () - (if (gx#stx-pair? _%e117164117172%_) - (let ((_%e117167117184%_ - (gx#syntax-e _%e117164117172%_))) - (let ((_%hd117168117187%_ - (##car _%e117167117184%_)) - (_%tl117169117189%_ - (##cdr _%e117167117184%_))) - (let* ((_%hd117192%_ _%hd117168117187%_) - (_%rest117194%_ - _%tl117169117189%_)) + (if (gx#stx-pair? _%e116400116408%_) + (let ((_%e116403116420%_ + (gx#syntax-e _%e116400116408%_))) + (let ((_%hd116404116423%_ + (##car _%e116403116420%_)) + (_%tl116405116425%_ + (##cdr _%e116403116420%_))) + (let* ((_%hd116428%_ _%hd116404116423%_) + (_%rest116430%_ + _%tl116405116425%_)) (if '#t - (let* ((_%e117195117202%_ - _%hd117192%_) - (_%E117197117206%_ + (let* ((_%e116431116438%_ + _%hd116428%_) + (_%E116433116442%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e117195117202%_))) - (_%E117196117225%_ + _%e116431116438%_))) + (_%E116432116461%_ (lambda () (if (gx#stx-pair? - _%e117195117202%_) - (let ((_%e117198117210%_ + _%e116431116438%_) + (let ((_%e116434116446%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%e117195117202%_))) - (let ((_%hd117199117213%_ (##car _%e117198117210%_)) - (_%tl117200117215%_ (##cdr _%e117198117210%_))) - (let* ((_%condition117218%_ _%hd117199117213%_) - (_%body117220%_ _%tl117200117215%_)) + (gx#syntax-e _%e116431116438%_))) + (let ((_%hd116435116449%_ (##car _%e116434116446%_)) + (_%tl116436116451%_ (##cdr _%e116434116446%_))) + (let* ((_%condition116454%_ _%hd116435116449%_) + (_%body116456%_ _%tl116436116451%_)) (if '#t - (if (gx#stx-eq? _%condition117218%_ 'else) - (let () - (if (gx#stx-null? _%rest117194%_) - _%body117220%_ - (gx#raise-syntax-error - '#f - '"Bad syntax; clauses after else" - _%stx117130%_ - _%hd117192%_))) - (if (_%satisfied?117132%_ _%condition117218%_) - (let () _%body117220%_) - (let () (_%loop117133%_ _%rest117194%_)))) - (_%E117197117206%_))))) - (_%E117197117206%_))))) + (if (gx#stx-eq? _%condition116454%_ 'else) + (if (gx#stx-null? _%rest116430%_) + _%body116456%_ + (gx#raise-syntax-error + '#f + '"Bad syntax; clauses after else" + _%stx116366%_ + _%hd116428%_)) + (if (_%satisfied?116368%_ _%condition116454%_) + _%body116456%_ + (_%loop116369%_ _%rest116430%_))) + (_%E116433116442%_))))) + (_%E116433116442%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E117196117225%_)) - (_%E117166117180%_))))) - (_%E117166117180%_))))) - (_%E117165117229%_))))) - (let* ((_%e117134117141%_ _%stx117130%_) - (_%E117136117145%_ + (_%E116432116461%_)) + (_%E116402116416%_))))) + (_%E116402116416%_))))) + (_%E116401116465%_))))) + (let* ((_%e116370116377%_ _%stx116366%_) + (_%E116372116381%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e117134117141%_))) - (_%E117135117159%_ + _%e116370116377%_))) + (_%E116371116395%_ (lambda () - (if (gx#stx-pair? _%e117134117141%_) - (let ((_%e117137117149%_ - (gx#syntax-e _%e117134117141%_))) - (let ((_%hd117138117152%_ (##car _%e117137117149%_)) - (_%tl117139117154%_ (##cdr _%e117137117149%_))) - (let ((_%clauses117157%_ _%tl117139117154%_)) - (if (gx#stx-list? _%clauses117157%_) + (if (gx#stx-pair? _%e116370116377%_) + (let ((_%e116373116385%_ + (gx#syntax-e _%e116370116377%_))) + (let ((_%hd116374116388%_ (##car _%e116373116385%_)) + (_%tl116375116390%_ (##cdr _%e116373116385%_))) + (let ((_%clauses116393%_ _%tl116375116390%_)) + (if (gx#stx-list? _%clauses116393%_) (gx#core-cons 'begin - (_%loop117133%_ _%clauses117157%_)) - (_%E117136117145%_))))) - (_%E117136117145%_))))) - (_%E117135117159%_))))) + (_%loop116369%_ _%clauses116393%_)) + (_%E116372116381%_))))) + (_%E116372116381%_))))) + (_%E116371116395%_))))) (define gx#core-expand-include%__% - (lambda (_%stx117073%_ _%rpath117074%_) - (let* ((_%e117075117085%_ _%stx117073%_) - (_%E117077117089%_ + (lambda (_%stx116309%_ _%rpath116310%_) + (let* ((_%e116311116321%_ _%stx116309%_) + (_%E116313116325%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e117075117085%_))) - (_%E117076117116%_ + _%e116311116321%_))) + (_%E116312116352%_ (lambda () - (if (gx#stx-pair? _%e117075117085%_) - (let ((_%e117078117093%_ - (gx#syntax-e _%e117075117085%_))) - (let ((_%hd117079117096%_ (##car _%e117078117093%_)) - (_%tl117080117098%_ (##cdr _%e117078117093%_))) - (if (gx#stx-pair? _%tl117080117098%_) - (let ((_%e117081117101%_ - (gx#syntax-e _%tl117080117098%_))) - (let ((_%hd117082117104%_ - (##car _%e117081117101%_)) - (_%tl117083117106%_ - (##cdr _%e117081117101%_))) - (let ((_%path117109%_ _%hd117082117104%_)) - (if (gx#stx-null? _%tl117083117106%_) - (if (gx#stx-string? _%path117109%_) - (let ((_%rpath117114%_ - (let ((_%$e117111%_ - _%rpath117074%_)) - (if _%$e117111%_ - _%$e117111%_ + (if (gx#stx-pair? _%e116311116321%_) + (let ((_%e116314116329%_ + (gx#syntax-e _%e116311116321%_))) + (let ((_%hd116315116332%_ (##car _%e116314116329%_)) + (_%tl116316116334%_ (##cdr _%e116314116329%_))) + (if (gx#stx-pair? _%tl116316116334%_) + (let ((_%e116317116337%_ + (gx#syntax-e _%tl116316116334%_))) + (let ((_%hd116318116340%_ + (##car _%e116317116337%_)) + (_%tl116319116342%_ + (##cdr _%e116317116337%_))) + (let ((_%path116345%_ _%hd116318116340%_)) + (if (gx#stx-null? _%tl116319116342%_) + (if (gx#stx-string? _%path116345%_) + (let ((_%rpath116350%_ + (let ((_%$e116347%_ + _%rpath116310%_)) + (if _%$e116347%_ + _%$e116347%_ (gx#core-resolve-path__% - _%path117109%_ + _%path116345%_ (gx#stx-source - _%stx117073%_)))))) - (if (member _%rpath117114%_ + _%stx116309%_)))))) + (if (member _%rpath116350%_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _%stx117073%_) + _%stx116309%_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _%rpath117114%_)) + _%rpath116350%_)) (gx#stx-source - _%stx117073%_))))) - (_%E117077117089%_)) - (_%E117077117089%_))))) - (_%E117077117089%_)))) - (_%E117077117089%_))))) - (_%E117076117116%_)))) + _%stx116309%_))))) + (_%E116313116325%_)) + (_%E116313116325%_))))) + (_%E116313116325%_)))) + (_%E116313116325%_))))) + (_%E116312116352%_)))) (define gx#core-expand-include%__0 - (lambda (_%stx117123%_) - (let ((_%rpath117125%_ '#f)) - (gx#core-expand-include%__% _%stx117123%_ _%rpath117125%_)))) + (lambda (_%stx116359%_) + (let ((_%rpath116361%_ '#f)) + (gx#core-expand-include%__% _%stx116359%_ _%rpath116361%_)))) (define gx#core-expand-include% - (lambda _g118242_ - (let ((_g118241_ (##length _g118242_))) - (cond ((##fx= _g118241_ 1) - (apply (lambda (_%stx117123%_) - (gx#core-expand-include%__0 _%stx117123%_)) - _g118242_)) - ((##fx= _g118241_ 2) - (apply (lambda (_%stx117127%_ _%rpath117128%_) - (gx#core-expand-include%__% - _%stx117127%_ - _%rpath117128%_)) - _g118242_)) + (lambda _g117478_ + (let ((_g117477_ (##length _g117478_))) + (cond ((##fx= _g117477_ 1) + (apply gx#core-expand-include%__0 _g117478_)) + ((##fx= _g117477_ 2) + (apply gx#core-expand-include%__% _g117478_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g118242_)))))) + _g117478_)))))) (define gx#core-apply-expander__% - (lambda (_%K117039%_ _%stx117040%_ _%method117041%_) - (if (procedure? _%K117039%_) - (let ((_%$e117044%_ (gx#stx-source _%stx117040%_))) - (if _%$e117044%_ - ((lambda (_%g117046117048%_) + (lambda (_%K116275%_ _%stx116276%_ _%method116277%_) + (if (procedure? _%K116275%_) + (let ((_%$e116280%_ (gx#stx-source _%stx116276%_))) + (if _%$e116280%_ + ((lambda (_%g116282116284%_) (gx#stx-wrap-source - (_%K117039%_ _%stx117040%_) - _%g117046117048%_)) - _%$e117044%_) - (let () (_%K117039%_ _%stx117040%_)))) - (let ((_%$e117052%_ - (bound-method-ref _%K117039%_ _%method117041%_))) - (if _%$e117052%_ - ((lambda (_%g117054117056%_) + (_%K116275%_ _%stx116276%_) + _%g116282116284%_)) + _%$e116280%_) + (_%K116275%_ _%stx116276%_))) + (let ((_%$e116288%_ + (bound-method-ref _%K116275%_ _%method116277%_))) + (if _%$e116288%_ + ((lambda (_%g116290116292%_) (gx#core-apply-expander__% - _%g117054117056%_ - _%stx117040%_ - _%method117041%_)) - _%$e117052%_) - (let () - (gx#raise-syntax-error - '#f - '"Bad syntax; no expander method" - _%stx117040%_ - _%method117041%_))))))) + _%g116290116292%_ + _%stx116276%_ + _%method116277%_)) + _%$e116288%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; no expander method" + _%stx116276%_ + _%method116277%_)))))) (define gx#core-apply-expander__0 - (lambda (_%K117063%_ _%stx117064%_) - (let ((_%method117066%_ 'apply-macro-expander)) + (lambda (_%K116299%_ _%stx116300%_) + (let ((_%method116302%_ 'apply-macro-expander)) (gx#core-apply-expander__% - _%K117063%_ - _%stx117064%_ - _%method117066%_)))) + _%K116299%_ + _%stx116300%_ + _%method116302%_)))) (define gx#core-apply-expander - (lambda _g118244_ - (let ((_g118243_ (##length _g118244_))) - (cond ((##fx= _g118243_ 2) - (apply (lambda (_%K117063%_ _%stx117064%_) - (gx#core-apply-expander__0 - _%K117063%_ - _%stx117064%_)) - _g118244_)) - ((##fx= _g118243_ 3) - (apply (lambda (_%K117068%_ _%stx117069%_ _%method117070%_) - (gx#core-apply-expander__% - _%K117068%_ - _%stx117069%_ - _%method117070%_)) - _g118244_)) + (lambda _g117480_ + (let ((_g117479_ (##length _g117480_))) + (cond ((##fx= _g117479_ 2) + (apply gx#core-apply-expander__0 _g117480_)) + ((##fx= _g117479_ 3) + (apply gx#core-apply-expander__% _g117480_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g118244_)))))) + _g117480_)))))) (define gx#expander::apply-macro-expander - (lambda (_%self117024%_ _%stx117025%_) - (let ((_%self117028%_ _%self117024%_)) + (lambda (_%self116260%_ _%stx116261%_) + (let ((_%self116264%_ _%self116260%_)) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _%stx117025%_)))) + _%stx116261%_)))) (__bind-method! gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_%self116866%_ _%stx116867%_) - (let ((_%self116870%_ _%self116866%_)) - (let* ((_%self116879116885%_ _%self116870%_) - (_%E116881116889%_ - (lambda () - (error '"No clause matching" - _%self116879116885%_ - '((macro-expander K))) - '#!void)) - (_%K116882116894%_ - (lambda (_%K116892%_) - (gx#core-apply-expander__0 _%K116892%_ _%stx116867%_)))) - (if '#t - (let* ((_%e116883116897%_ - (##unchecked-structure-ref - _%self116879116885%_ - '1 - '#f - '#f)) - (_%K116900%_ _%e116883116897%_)) - (_%K116882116894%_ _%K116900%_)) - (_%E116881116889%_)))))) + (lambda (_%self116102%_ _%stx116103%_) + (let* ((_%self116106%_ _%self116102%_) + (_%self116115116121%_ _%self116106%_) + (_%E116117116125%_ + (lambda () + (error '"No clause matching" + _%self116115116121%_ + '((macro-expander K))) + '#!void)) + (_%K116118116130%_ + (lambda (_%K116128%_) + (gx#core-apply-expander__0 _%K116128%_ _%stx116103%_)))) + (if '#t + (let* ((_%e116119116133%_ + (##unchecked-structure-ref + _%self116115116121%_ + '1 + '#f + '#f)) + (_%K116136%_ _%e116119116133%_)) + (_%K116118116130%_ _%K116136%_)) + (_%E116117116125%_))))) (__bind-method! gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_%self116708%_ _%stx116709%_) - (let ((_%self116712%_ _%self116708%_)) - (if (gx#sealed-syntax? _%stx116709%_) - _%stx116709%_ - (let* ((_%self116721116727%_ _%self116712%_) - (_%E116723116731%_ + (lambda (_%self115944%_ _%stx115945%_) + (let ((_%self115948%_ _%self115944%_)) + (if (gx#sealed-syntax? _%stx115945%_) + _%stx115945%_ + (let* ((_%self115957115963%_ _%self115948%_) + (_%E115959115967%_ (lambda () (error '"No clause matching" - _%self116721116727%_ + _%self115957115963%_ '((core-expander K))) '#!void)) - (_%K116724116736%_ - (lambda (_%K116734%_) + (_%K115960115972%_ + (lambda (_%K115970%_) (gx#core-apply-expander__0 - _%K116734%_ - _%stx116709%_)))) + _%K115970%_ + _%stx115945%_)))) (if '#t - (let* ((_%e116725116739%_ + (let* ((_%e115961115975%_ (##unchecked-structure-ref - _%self116721116727%_ + _%self115957115963%_ '1 '#f '#f)) - (_%K116742%_ _%e116725116739%_)) - (_%K116724116736%_ _%K116742%_)) - (_%E116723116731%_))))))) + (_%K115978%_ _%e115961115975%_)) + (_%K115960115972%_ _%K115978%_)) + (_%E115959115967%_))))))) (__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 (_%self116559%_ _%stx116560%_ _%top?116561%_) - (let ((_%self116564%_ _%self116559%_)) - (if (_%top?116561%_ (gx#current-expander-context)) + (lambda (_%self115795%_ _%stx115796%_ _%top?115797%_) + (let ((_%self115800%_ _%self115795%_)) + (if (_%top?115797%_ (gx#current-expander-context)) (gx#core-expander::apply-macro-expander - _%self116564%_ - _%stx116560%_) + _%self115800%_ + _%stx115796%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _%stx116560%_))))) + _%stx115796%_))))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_%self116577%_ _%stx116578%_) - (let ((_%top?116580%_ gx#top-context?)) + (lambda (_%self115813%_ _%stx115814%_) + (let ((_%top?115816%_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _%self116577%_ - _%stx116578%_ - _%top?116580%_)))) + _%self115813%_ + _%stx115814%_ + _%top?115816%_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g118246_ - (let ((_g118245_ (##length _g118246_))) - (cond ((##fx= _g118245_ 2) - (apply (lambda (_%self116577%_ _%stx116578%_) - (gx#top-special-form::apply-macro-expander__0 - _%self116577%_ - _%stx116578%_)) - _g118246_)) - ((##fx= _g118245_ 3) - (apply (lambda (_%self116582%_ _%stx116583%_ _%top?116584%_) - (gx#top-special-form::apply-macro-expander__% - _%self116582%_ - _%stx116583%_ - _%top?116584%_)) - _g118246_)) + (lambda _g117482_ + (let ((_g117481_ (##length _g117482_))) + (cond ((##fx= _g117481_ 2) + (apply gx#top-special-form::apply-macro-expander__0 + _g117482_)) + ((##fx= _g117481_ 3) + (apply gx#top-special-form::apply-macro-expander__% + _g117482_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g118246_)))))) + _g117482_)))))) (__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 (_%self116422%_ _%stx116423%_) - (let ((_%self116426%_ _%self116422%_)) + (lambda (_%self115658%_ _%stx115659%_) + (let ((_%self115662%_ _%self115658%_)) (gx#top-special-form::apply-macro-expander__% - _%self116426%_ - _%stx116423%_ + _%self115662%_ + _%stx115659%_ gx#module-context?)))) (__bind-method! gx#module-special-form::t @@ -2392,150 +2292,140 @@ gx#module-special-form::apply-macro-expander '#f) (define gx#rename-macro-expander::apply-macro-expander - (lambda (_%self116236%_ _%stx116237%_) - (let ((_%self116240%_ _%self116236%_)) - (let* ((_%self116249116255%_ _%self116240%_) - (_%E116251116259%_ - (lambda () - (error '"No clause matching" - _%self116249116255%_ - '((rename-macro-expander id))) - '#!void)) - (_%K116252116292%_ - (lambda (_%id116262%_) - (let* ((_%e116263116270%_ _%stx116237%_) - (_%E116265116274%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid syntax-case clause" - _%e116263116270%_))) - (_%E116264116288%_ - (lambda () - (if (gx#stx-pair? _%e116263116270%_) - (let ((_%e116266116278%_ - (gx#syntax-e _%e116263116270%_))) - (let ((_%hd116267116281%_ - (##car _%e116266116278%_)) - (_%tl116268116283%_ - (##cdr _%e116266116278%_))) - (let ((_%body116286%_ - _%tl116268116283%_)) - (if '#t - (gx#core-cons - _%id116262%_ - _%body116286%_) - (_%E116265116274%_))))) - (_%E116265116274%_))))) - (_%E116264116288%_))))) - (if '#t - (let* ((_%e116253116295%_ - (##unchecked-structure-ref - _%self116249116255%_ - '1 - '#f - '#f)) - (_%id116298%_ _%e116253116295%_)) - (_%K116252116292%_ _%id116298%_)) - (_%E116251116259%_)))))) + (lambda (_%self115472%_ _%stx115473%_) + (let* ((_%self115476%_ _%self115472%_) + (_%self115485115491%_ _%self115476%_) + (_%E115487115495%_ + (lambda () + (error '"No clause matching" + _%self115485115491%_ + '((rename-macro-expander id))) + '#!void)) + (_%K115488115528%_ + (lambda (_%id115498%_) + (let* ((_%e115499115506%_ _%stx115473%_) + (_%E115501115510%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _%e115499115506%_))) + (_%E115500115524%_ + (lambda () + (if (gx#stx-pair? _%e115499115506%_) + (let ((_%e115502115514%_ + (gx#syntax-e _%e115499115506%_))) + (let ((_%hd115503115517%_ + (##car _%e115502115514%_)) + (_%tl115504115519%_ + (##cdr _%e115502115514%_))) + (let ((_%body115522%_ _%tl115504115519%_)) + (if '#t + (gx#core-cons + _%id115498%_ + _%body115522%_) + (_%E115501115510%_))))) + (_%E115501115510%_))))) + (_%E115500115524%_))))) + (if '#t + (let* ((_%e115489115531%_ + (##unchecked-structure-ref + _%self115485115491%_ + '1 + '#f + '#f)) + (_%id115534%_ _%e115489115531%_)) + (_%K115488115528%_ _%id115534%_)) + (_%E115487115495%_))))) (__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 (_%self116062%_ _%stx116063%_ _%method116064%_) - (let* ((_%self116065116073%_ _%self116062%_) - (_%E116067116077%_ + (lambda (_%self115298%_ _%stx115299%_ _%method115300%_) + (let* ((_%self115301115309%_ _%self115298%_) + (_%E115303115313%_ (lambda () (error '"No clause matching" - _%self116065116073%_ + _%self115301115309%_ '((user-expander K ctx phi))) '#!void)) - (_%K116068116084%_ - (lambda (_%phi116080%_ _%ctx116081%_ _%K116082%_) + (_%K115304115320%_ + (lambda (_%phi115316%_ _%ctx115317%_ _%K115318%_) (gx#core-apply-user-macro - _%K116082%_ - _%stx116063%_ - _%ctx116081%_ - _%phi116080%_ - _%method116064%_)))) + _%K115318%_ + _%stx115299%_ + _%ctx115317%_ + _%phi115316%_ + _%method115300%_)))) (if (##structure-instance-of? - _%self116065116073%_ + _%self115301115309%_ 'gx#user-expander::t) - (let* ((_%e116069116087%_ + (let* ((_%e115305115323%_ (##unchecked-structure-ref - _%self116065116073%_ + _%self115301115309%_ '1 '#f '#f)) - (_%K116090%_ _%e116069116087%_) - (_%e116070116092%_ + (_%K115326%_ _%e115305115323%_) + (_%e115306115328%_ (##unchecked-structure-ref - _%self116065116073%_ + _%self115301115309%_ '2 '#f '#f)) - (_%ctx116095%_ _%e116070116092%_) - (_%e116071116097%_ + (_%ctx115331%_ _%e115306115328%_) + (_%e115307115333%_ (##unchecked-structure-ref - _%self116065116073%_ + _%self115301115309%_ '3 '#f '#f)) - (_%phi116100%_ _%e116071116097%_)) - (_%K116068116084%_ _%phi116100%_ _%ctx116095%_ _%K116090%_)) - (_%E116067116077%_))))) + (_%phi115336%_ _%e115307115333%_)) + (_%K115304115320%_ _%phi115336%_ _%ctx115331%_ _%K115326%_)) + (_%E115303115313%_))))) (define gx#core-apply-user-expander__0 - (lambda (_%self116105%_ _%stx116106%_) - (let ((_%method116108%_ 'apply-macro-expander)) + (lambda (_%self115341%_ _%stx115342%_) + (let ((_%method115344%_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _%self116105%_ - _%stx116106%_ - _%method116108%_)))) + _%self115341%_ + _%stx115342%_ + _%method115344%_)))) (define gx#core-apply-user-expander - (lambda _g118248_ - (let ((_g118247_ (##length _g118248_))) - (cond ((##fx= _g118247_ 2) - (apply (lambda (_%self116105%_ _%stx116106%_) - (gx#core-apply-user-expander__0 - _%self116105%_ - _%stx116106%_)) - _g118248_)) - ((##fx= _g118247_ 3) - (apply (lambda (_%self116110%_ _%stx116111%_ _%method116112%_) - (gx#core-apply-user-expander__% - _%self116110%_ - _%stx116111%_ - _%method116112%_)) - _g118248_)) + (lambda _g117484_ + (let ((_g117483_ (##length _g117484_))) + (cond ((##fx= _g117483_ 2) + (apply gx#core-apply-user-expander__0 _g117484_)) + ((##fx= _g117483_ 3) + (apply gx#core-apply-user-expander__% _g117484_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g118248_)))))) + _g117484_)))))) (define gx#core-apply-user-macro - (lambda (_%K116052%_ - _%stx116053%_ - _%ctx116054%_ - _%phi116055%_ - _%method116056%_) - (let ((_%mark116058%_ + (lambda (_%K115288%_ + _%stx115289%_ + _%ctx115290%_ + _%phi115291%_ + _%method115292%_) + (let ((_%mark115294%_ (##structure gx#expander-mark::t '#f - _%ctx116054%_ - _%phi116055%_ - _%stx116053%_))) + _%ctx115290%_ + _%phi115291%_ + _%stx115289%_))) (__call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _%K116052%_ - (gx#stx-apply-mark _%stx116053%_ _%mark116058%_) - _%method116056%_) - _%mark116058%_)) + _%K115288%_ + (gx#stx-apply-mark _%stx115289%_ _%mark115294%_) + _%method115292%_) + _%mark115294%_)) gx#current-expander-marks - (cons _%mark116058%_ (gx#current-expander-marks)))))) + (cons _%mark115294%_ (gx#current-expander-marks)))))) (define gx#user-expander::apply-macro-expander gx#core-apply-user-expander) (__bind-method! gx#user-expander::t @@ -2543,660 +2433,549 @@ gx#user-expander::apply-macro-expander '#f) (define gx#resolve-identifier__% - (lambda (_%stx115900%_ _%phi115901%_ _%ctx115902%_) - (let _%lp115904%_ ((_%bind115906%_ + (lambda (_%stx115136%_ _%phi115137%_ _%ctx115138%_) + (let _%lp115140%_ ((_%bind115142%_ (gx#core-resolve-identifier__% - _%stx115900%_ - _%phi115901%_ - _%ctx115902%_))) + _%stx115136%_ + _%phi115137%_ + _%ctx115138%_))) (if (##structure-direct-instance-of? - _%bind115906%_ + _%bind115142%_ 'gx#import-binding::t) - (let () - (_%lp115904%_ - (##unchecked-structure-ref _%bind115906%_ '4 '#f '#f))) + (_%lp115140%_ + (##unchecked-structure-ref _%bind115142%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%bind115906%_ + _%bind115142%_ 'gx#alias-binding::t) - (let () - (_%lp115904%_ - (gx#core-resolve-identifier__% - (##unchecked-structure-ref _%bind115906%_ '4 '#f '#f) - _%phi115901%_ - _%ctx115902%_))) - (let () _%bind115906%_)))))) + (_%lp115140%_ + (gx#core-resolve-identifier__% + (##unchecked-structure-ref _%bind115142%_ '4 '#f '#f) + _%phi115137%_ + _%ctx115138%_)) + _%bind115142%_))))) (define gx#resolve-identifier__0 - (lambda (_%stx115914%_) - (let* ((_%phi115916%_ (gx#current-expander-phi)) - (_%ctx115918%_ (gx#current-expander-context))) + (lambda (_%stx115150%_) + (let* ((_%phi115152%_ (gx#current-expander-phi)) + (_%ctx115154%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx115914%_ - _%phi115916%_ - _%ctx115918%_)))) + _%stx115150%_ + _%phi115152%_ + _%ctx115154%_)))) (define gx#resolve-identifier__1 - (lambda (_%stx115920%_ _%phi115921%_) - (let ((_%ctx115923%_ (gx#current-expander-context))) + (lambda (_%stx115156%_ _%phi115157%_) + (let ((_%ctx115159%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx115920%_ - _%phi115921%_ - _%ctx115923%_)))) + _%stx115156%_ + _%phi115157%_ + _%ctx115159%_)))) (define gx#resolve-identifier - (lambda _g118250_ - (let ((_g118249_ (##length _g118250_))) - (cond ((##fx= _g118249_ 1) - (apply (lambda (_%stx115914%_) - (gx#resolve-identifier__0 _%stx115914%_)) - _g118250_)) - ((##fx= _g118249_ 2) - (apply (lambda (_%stx115920%_ _%phi115921%_) - (gx#resolve-identifier__1 - _%stx115920%_ - _%phi115921%_)) - _g118250_)) - ((##fx= _g118249_ 3) - (apply (lambda (_%stx115925%_ _%phi115926%_ _%ctx115927%_) - (gx#resolve-identifier__% - _%stx115925%_ - _%phi115926%_ - _%ctx115927%_)) - _g118250_)) + (lambda _g117486_ + (let ((_g117485_ (##length _g117486_))) + (cond ((##fx= _g117485_ 1) + (apply gx#resolve-identifier__0 _g117486_)) + ((##fx= _g117485_ 2) + (apply gx#resolve-identifier__1 _g117486_)) + ((##fx= _g117485_ 3) + (apply gx#resolve-identifier__% _g117486_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g118250_)))))) + _g117486_)))))) (define gx#bind-identifier!__% - (lambda (_%stx115855%_ - _%val115856%_ - _%rebind?115857%_ - _%phi115858%_ - _%ctx115859%_) - (let ((_%rebind?115864%_ - (if (not _%rebind?115857%_) - (let () gx#core-context-rebind?) - (if (procedure? _%rebind?115857%_) - (let () _%rebind?115857%_) - (let () true))))) + (lambda (_%stx115091%_ + _%val115092%_ + _%rebind?115093%_ + _%phi115094%_ + _%ctx115095%_) + (let ((_%rebind?115100%_ + (if (not _%rebind?115093%_) + gx#core-context-rebind? + (if (procedure? _%rebind?115093%_) + _%rebind?115093%_ + true)))) (gx#core-bind!__% - (gx#core-identifier-key _%stx115855%_) - _%val115856%_ - _%rebind?115864%_ - _%phi115858%_ - _%ctx115859%_)))) + (gx#core-identifier-key _%stx115091%_) + _%val115092%_ + _%rebind?115100%_ + _%phi115094%_ + _%ctx115095%_)))) (define gx#bind-identifier!__0 - (lambda (_%stx115869%_ _%val115870%_) - (let* ((_%rebind?115872%_ '#f) - (_%phi115874%_ (gx#current-expander-phi)) - (_%ctx115876%_ (gx#current-expander-context))) + (lambda (_%stx115105%_ _%val115106%_) + (let* ((_%rebind?115108%_ '#f) + (_%phi115110%_ (gx#current-expander-phi)) + (_%ctx115112%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx115869%_ - _%val115870%_ - _%rebind?115872%_ - _%phi115874%_ - _%ctx115876%_)))) + _%stx115105%_ + _%val115106%_ + _%rebind?115108%_ + _%phi115110%_ + _%ctx115112%_)))) (define gx#bind-identifier!__1 - (lambda (_%stx115878%_ _%val115879%_ _%rebind?115880%_) - (let* ((_%phi115882%_ (gx#current-expander-phi)) - (_%ctx115884%_ (gx#current-expander-context))) + (lambda (_%stx115114%_ _%val115115%_ _%rebind?115116%_) + (let* ((_%phi115118%_ (gx#current-expander-phi)) + (_%ctx115120%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx115878%_ - _%val115879%_ - _%rebind?115880%_ - _%phi115882%_ - _%ctx115884%_)))) + _%stx115114%_ + _%val115115%_ + _%rebind?115116%_ + _%phi115118%_ + _%ctx115120%_)))) (define gx#bind-identifier!__2 - (lambda (_%stx115886%_ _%val115887%_ _%rebind?115888%_ _%phi115889%_) - (let ((_%ctx115891%_ (gx#current-expander-context))) + (lambda (_%stx115122%_ _%val115123%_ _%rebind?115124%_ _%phi115125%_) + (let ((_%ctx115127%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx115886%_ - _%val115887%_ - _%rebind?115888%_ - _%phi115889%_ - _%ctx115891%_)))) + _%stx115122%_ + _%val115123%_ + _%rebind?115124%_ + _%phi115125%_ + _%ctx115127%_)))) (define gx#bind-identifier! - (lambda _g118252_ - (let ((_g118251_ (##length _g118252_))) - (cond ((##fx= _g118251_ 2) - (apply (lambda (_%stx115869%_ _%val115870%_) - (gx#bind-identifier!__0 _%stx115869%_ _%val115870%_)) - _g118252_)) - ((##fx= _g118251_ 3) - (apply (lambda (_%stx115878%_ _%val115879%_ _%rebind?115880%_) - (gx#bind-identifier!__1 - _%stx115878%_ - _%val115879%_ - _%rebind?115880%_)) - _g118252_)) - ((##fx= _g118251_ 4) - (apply (lambda (_%stx115886%_ - _%val115887%_ - _%rebind?115888%_ - _%phi115889%_) - (gx#bind-identifier!__2 - _%stx115886%_ - _%val115887%_ - _%rebind?115888%_ - _%phi115889%_)) - _g118252_)) - ((##fx= _g118251_ 5) - (apply (lambda (_%stx115893%_ - _%val115894%_ - _%rebind?115895%_ - _%phi115896%_ - _%ctx115897%_) - (gx#bind-identifier!__% - _%stx115893%_ - _%val115894%_ - _%rebind?115895%_ - _%phi115896%_ - _%ctx115897%_)) - _g118252_)) + (lambda _g117488_ + (let ((_g117487_ (##length _g117488_))) + (cond ((##fx= _g117487_ 2) (apply gx#bind-identifier!__0 _g117488_)) + ((##fx= _g117487_ 3) (apply gx#bind-identifier!__1 _g117488_)) + ((##fx= _g117487_ 4) (apply gx#bind-identifier!__2 _g117488_)) + ((##fx= _g117487_ 5) (apply gx#bind-identifier!__% _g117488_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g118252_)))))) + _g117488_)))))) (define gx#core-resolve-identifier__% - (lambda (_%stx115821%_ _%phi115822%_ _%ctx115823%_) - (let _%lp115825%_ ((_%e115827%_ _%stx115821%_) - (_%marks115828%_ (gx#current-expander-marks))) - (if (symbol? _%e115827%_) - (let () - (gx#core-resolve-binding - _%e115827%_ - _%phi115822%_ - _%phi115822%_ - _%ctx115823%_ - (reverse _%marks115828%_))) - (if (gx#identifier-quote? _%e115827%_) - (let () - (gx#core-resolve-binding - (##unchecked-structure-ref _%e115827%_ '1 '#f '#f) - _%phi115822%_ - '0 - (##unchecked-structure-ref _%e115827%_ '3 '#f '#f) - (##unchecked-structure-ref _%e115827%_ '4 '#f '#f))) + (lambda (_%stx115057%_ _%phi115058%_ _%ctx115059%_) + (let _%lp115061%_ ((_%e115063%_ _%stx115057%_) + (_%marks115064%_ (gx#current-expander-marks))) + (if (symbol? _%e115063%_) + (gx#core-resolve-binding + _%e115063%_ + _%phi115058%_ + _%phi115058%_ + _%ctx115059%_ + (reverse _%marks115064%_)) + (if (gx#identifier-quote? _%e115063%_) + (gx#core-resolve-binding + (##unchecked-structure-ref _%e115063%_ '1 '#f '#f) + _%phi115058%_ + '0 + (##unchecked-structure-ref _%e115063%_ '3 '#f '#f) + (##unchecked-structure-ref _%e115063%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%e115827%_ + _%e115063%_ 'gx#identifier-wrap::t) - (let () - (gx#core-resolve-binding - (##unchecked-structure-ref _%e115827%_ '1 '#f '#f) - _%phi115822%_ - _%phi115822%_ - _%ctx115823%_ - (__foldl1 - gx#apply-mark - (##unchecked-structure-ref _%e115827%_ '3 '#f '#f) - _%marks115828%_))) + (gx#core-resolve-binding + (##unchecked-structure-ref _%e115063%_ '1 '#f '#f) + _%phi115058%_ + _%phi115058%_ + _%ctx115059%_ + (__foldl1 + gx#apply-mark + (##unchecked-structure-ref _%e115063%_ '3 '#f '#f) + _%marks115064%_)) (if (##structure-direct-instance-of? - _%e115827%_ + _%e115063%_ 'gx#syntax-wrap::t) - (let () - (_%lp115825%_ - (##unchecked-structure-ref _%e115827%_ '1 '#f '#f) - (gx#apply-mark - (##unchecked-structure-ref - _%e115827%_ - '3 - '#f - '#f) - _%marks115828%_))) + (_%lp115061%_ + (##unchecked-structure-ref _%e115063%_ '1 '#f '#f) + (gx#apply-mark + (##unchecked-structure-ref _%e115063%_ '3 '#f '#f) + _%marks115064%_)) (if (##structure-instance-of? - _%e115827%_ + _%e115063%_ 'gerbil#AST::t) - (let () - (_%lp115825%_ - (##unchecked-structure-ref - _%e115827%_ - '1 - '#f - '#f) - _%marks115828%_)) - (let () - (gx#raise-syntax-error - '#f - '"Bad identifier" - _%stx115821%_)))))))))) + (_%lp115061%_ + (##unchecked-structure-ref + _%e115063%_ + '1 + '#f + '#f) + _%marks115064%_) + (gx#raise-syntax-error + '#f + '"Bad identifier" + _%stx115057%_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_%stx115839%_) - (let* ((_%phi115841%_ (gx#current-expander-phi)) - (_%ctx115843%_ (gx#current-expander-context))) + (lambda (_%stx115075%_) + (let* ((_%phi115077%_ (gx#current-expander-phi)) + (_%ctx115079%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx115839%_ - _%phi115841%_ - _%ctx115843%_)))) + _%stx115075%_ + _%phi115077%_ + _%ctx115079%_)))) (define gx#core-resolve-identifier__1 - (lambda (_%stx115845%_ _%phi115846%_) - (let ((_%ctx115848%_ (gx#current-expander-context))) + (lambda (_%stx115081%_ _%phi115082%_) + (let ((_%ctx115084%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx115845%_ - _%phi115846%_ - _%ctx115848%_)))) + _%stx115081%_ + _%phi115082%_ + _%ctx115084%_)))) (define gx#core-resolve-identifier - (lambda _g118254_ - (let ((_g118253_ (##length _g118254_))) - (cond ((##fx= _g118253_ 1) - (apply (lambda (_%stx115839%_) - (gx#core-resolve-identifier__0 _%stx115839%_)) - _g118254_)) - ((##fx= _g118253_ 2) - (apply (lambda (_%stx115845%_ _%phi115846%_) - (gx#core-resolve-identifier__1 - _%stx115845%_ - _%phi115846%_)) - _g118254_)) - ((##fx= _g118253_ 3) - (apply (lambda (_%stx115850%_ _%phi115851%_ _%ctx115852%_) - (gx#core-resolve-identifier__% - _%stx115850%_ - _%phi115851%_ - _%ctx115852%_)) - _g118254_)) + (lambda _g117490_ + (let ((_g117489_ (##length _g117490_))) + (cond ((##fx= _g117489_ 1) + (apply gx#core-resolve-identifier__0 _g117490_)) + ((##fx= _g117489_ 2) + (apply gx#core-resolve-identifier__1 _g117490_)) + ((##fx= _g117489_ 3) + (apply gx#core-resolve-identifier__% _g117490_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g118254_)))))) + _g117490_)))))) (define gx#core-resolve-binding - (lambda (_%id115731%_ - _%phi115732%_ - _%src-phi115733%_ - _%ctx115734%_ - _%marks115735%_) - (letrec ((_%resolve115737%_ - (lambda (_%ctx115805%_ _%src-phi115806%_ _%key115807%_) - (let _%lp115809%_ ((_%ctx115811%_ + (lambda (_%id114967%_ + _%phi114968%_ + _%src-phi114969%_ + _%ctx114970%_ + _%marks114971%_) + (letrec ((_%resolve114973%_ + (lambda (_%ctx115041%_ _%src-phi115042%_ _%key115043%_) + (let _%lp115045%_ ((_%ctx115047%_ (gx#core-context-shift - _%ctx115805%_ - _%phi115732%_)) - (_%dphi115812%_ - (fx- _%phi115732%_ _%src-phi115806%_))) - (let ((_%$e115814%_ + _%ctx115041%_ + _%phi114968%_)) + (_%dphi115048%_ + (fx- _%phi114968%_ _%src-phi115042%_))) + (let ((_%$e115050%_ (gx#core-context-resolve - _%ctx115811%_ - _%key115807%_))) - (if _%$e115814%_ - (values _%$e115814%_) - (if (fxzero? _%dphi115812%_) - (let () '#f) - (if (fxpositive? _%dphi115812%_) - (let () - (_%lp115809%_ - (gx#core-context-shift - _%ctx115811%_ - '-1) - (##fx- _%dphi115812%_ '1))) - (let () - (_%lp115809%_ - (gx#core-context-shift _%ctx115811%_ '1) - (##fx+ _%dphi115812%_ '1))))))))))) - (let _%lp115739%_ ((_%ctx115741%_ _%ctx115734%_) - (_%src-phi115742%_ _%src-phi115733%_) - (_%rest115743%_ _%marks115735%_)) - (let* ((_%rest115744115752%_ _%rest115743%_) - (_%else115746115760%_ + _%ctx115047%_ + _%key115043%_))) + (if _%$e115050%_ + (values _%$e115050%_) + (if (fxzero? _%dphi115048%_) + '#f + (if (fxpositive? _%dphi115048%_) + (_%lp115045%_ + (gx#core-context-shift _%ctx115047%_ '-1) + (##fx- _%dphi115048%_ '1)) + (_%lp115045%_ + (gx#core-context-shift _%ctx115047%_ '1) + (##fx+ _%dphi115048%_ '1)))))))))) + (let _%lp114975%_ ((_%ctx114977%_ _%ctx114970%_) + (_%src-phi114978%_ _%src-phi114969%_) + (_%rest114979%_ _%marks114971%_)) + (let* ((_%rest114980114988%_ _%rest114979%_) + (_%else114982114996%_ (lambda () - (_%resolve115737%_ - _%ctx115741%_ - _%src-phi115742%_ - _%id115731%_))) - (_%K115748115793%_ - (lambda (_%rest115763%_ _%hd115764%_) - (let* ((_%hd115765115771%_ _%hd115764%_) - (_%E115767115775%_ + (_%resolve114973%_ + _%ctx114977%_ + _%src-phi114978%_ + _%id114967%_))) + (_%K114984115029%_ + (lambda (_%rest114999%_ _%hd115000%_) + (let* ((_%hd115001115007%_ _%hd115000%_) + (_%E115003115011%_ (lambda () (error '"No clause matching" - _%hd115765115771%_ + _%hd115001115007%_ '((expander-mark subst))) '#!void)) - (_%K115768115785%_ - (lambda (_%subst115778%_) - (let ((_%$e115782%_ - (let ((_%key115780%_ - (if _%subst115778%_ + (_%K115004115021%_ + (lambda (_%subst115014%_) + (let ((_%$e115018%_ + (let ((_%key115016%_ + (if _%subst115014%_ (hash-get - _%subst115778%_ - _%id115731%_) + _%subst115014%_ + _%id114967%_) '#f))) - (if _%key115780%_ - (_%resolve115737%_ - _%ctx115741%_ - _%src-phi115742%_ - _%key115780%_) + (if _%key115016%_ + (_%resolve114973%_ + _%ctx114977%_ + _%src-phi114978%_ + _%key115016%_) '#f)))) - (if _%$e115782%_ - _%$e115782%_ - (_%lp115739%_ + (if _%$e115018%_ + _%$e115018%_ + (_%lp114975%_ (##unchecked-structure-ref - _%hd115764%_ + _%hd115000%_ '2 '#f '#f) (##unchecked-structure-ref - _%hd115764%_ + _%hd115000%_ '3 '#f '#f) - _%rest115763%_)))))) + _%rest114999%_)))))) (if (##structure-instance-of? - _%hd115765115771%_ + _%hd115001115007%_ 'gx#expander-mark::t) - (let* ((_%e115769115788%_ + (let* ((_%e115005115024%_ (##unchecked-structure-ref - _%hd115765115771%_ + _%hd115001115007%_ '1 '#f '#f)) - (_%subst115791%_ _%e115769115788%_)) - (_%K115768115785%_ _%subst115791%_)) - (_%E115767115775%_)))))) - (if (##pair? _%rest115744115752%_) - (let ((_%hd115749115796%_ (##car _%rest115744115752%_)) - (_%tl115750115798%_ (##cdr _%rest115744115752%_))) - (let* ((_%hd115801%_ _%hd115749115796%_) - (_%rest115803%_ _%tl115750115798%_)) - (_%K115748115793%_ _%rest115803%_ _%hd115801%_))) - (_%else115746115760%_))))))) + (_%subst115027%_ _%e115005115024%_)) + (_%K115004115021%_ _%subst115027%_)) + (_%E115003115011%_)))))) + (if (##pair? _%rest114980114988%_) + (let ((_%hd114985115032%_ (##car _%rest114980114988%_)) + (_%tl114986115034%_ (##cdr _%rest114980114988%_))) + (let* ((_%hd115037%_ _%hd114985115032%_) + (_%rest115039%_ _%tl114986115034%_)) + (_%K114984115029%_ _%rest115039%_ _%hd115037%_))) + (_%else114982114996%_))))))) (define gx#core-bind!__% - (lambda (_%key115601%_ - _%val115602%_ - _%rebind?115603%_ - _%phi115604%_ - _%ctx115605%_) - (letrec ((_%update-binding115607%_ - (lambda (_%xval115680%_) - (if (or (_%rebind?115603%_ - _%ctx115605%_ - _%xval115680%_ - _%val115602%_) + (lambda (_%key114837%_ + _%val114838%_ + _%rebind?114839%_ + _%phi114840%_ + _%ctx114841%_) + (letrec ((_%update-binding114843%_ + (lambda (_%xval114916%_) + (if (or (_%rebind?114839%_ + _%ctx114841%_ + _%xval114916%_ + _%val114838%_) (and (##structure-direct-instance-of? - _%xval115680%_ + _%xval114916%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%xval115680%_ + _%xval114916%_ '6 '#f '#f) (and (##structure-instance-of? - _%val115602%_ + _%val114838%_ 'gx#binding::t) (not (##structure-direct-instance-of? - _%val115602%_ + _%val114838%_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _%xval115680%_ + _%xval114916%_ 'gx#extern-binding::t) (##structure-instance-of? - _%val115602%_ + _%val114838%_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _%val115602%_ + _%val114838%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval115680%_ + _%xval114916%_ '1 '#f '#f)))) - (let () _%val115602%_) + _%val114838%_ (if (and (##structure-direct-instance-of? - _%val115602%_ + _%val114838%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%val115602%_ + _%val114838%_ '6 '#f '#f) (and (##structure-instance-of? - _%xval115680%_ + _%xval114916%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%val115602%_ + _%val114838%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval115680%_ + _%xval114916%_ '1 '#f '#f))))) - (let () _%xval115680%_) + _%xval114916%_ (if (and (##structure-direct-instance-of? - _%val115602%_ + _%val114838%_ 'gx#import-binding::t) (##structure-instance-of? - _%xval115680%_ + _%xval114916%_ 'gx#binding::t)) - (let () - (gx#raise-syntax-error - '#f - '"Bad binding; import conflict" - _%key115601%_ - (cons (##unchecked-structure-ref - _%val115602%_ - '1 - '#f - '#f) - (cons (##structure-ref - (##unchecked-structure-ref - _%val115602%_ - '5 - '#f - '#f) - '1 - gx#expander-context::t - '#f) - '())) - (cons (##unchecked-structure-ref - _%xval115680%_ - '1 - '#f - '#f) - (cons (if (##structure-direct-instance-of? - _%xval115680%_ - 'gx#import-binding::t) - (##structure-ref - (##unchecked-structure-ref - _%xval115680%_ - '5 - '#f - '#f) - '1 - gx#expander-context::t - '#f) - _%xval115680%_) - '())))) - (let () - (gx#raise-syntax-error - '#f - '"Bad binding; rebind conflict" - _%key115601%_ - _%val115602%_ - _%xval115680%_))))))) - (_%gensubst115608%_ - (lambda (_%subst115675%_ _%id115676%_) - (let ((_%eid115678%_ - (gensym (if (uninterned-symbol? _%id115676%_) + (gx#raise-syntax-error + '#f + '"Bad binding; import conflict" + _%key114837%_ + (cons (##unchecked-structure-ref + _%val114838%_ + '1 + '#f + '#f) + (cons (##structure-ref + (##unchecked-structure-ref + _%val114838%_ + '5 + '#f + '#f) + '1 + gx#expander-context::t + '#f) + '())) + (cons (##unchecked-structure-ref + _%xval114916%_ + '1 + '#f + '#f) + (cons (if (##structure-direct-instance-of? + _%xval114916%_ + 'gx#import-binding::t) + (##structure-ref + (##unchecked-structure-ref + _%xval114916%_ + '5 + '#f + '#f) + '1 + gx#expander-context::t + '#f) + _%xval114916%_) + '()))) + (gx#raise-syntax-error + '#f + '"Bad binding; rebind conflict" + _%key114837%_ + _%val114838%_ + _%xval114916%_)))))) + (_%gensubst114844%_ + (lambda (_%subst114911%_ _%id114912%_) + (let ((_%eid114914%_ + (gensym (if (uninterned-symbol? _%id114912%_) '% - _%id115676%_)))) - (hash-put! _%subst115675%_ _%id115676%_ _%eid115678%_) - _%eid115678%_))) - (_%subst!115609%_ - (lambda (_%key115611%_) - (let* ((_%key115612115620%_ _%key115611%_) - (_%else115614115628%_ (lambda () _%key115611%_)) - (_%K115616115663%_ - (lambda (_%mark115631%_ _%id115632%_) - (let* ((_%mark115633115639%_ _%mark115631%_) - (_%E115635115643%_ + _%id114912%_)))) + (hash-put! _%subst114911%_ _%id114912%_ _%eid114914%_) + _%eid114914%_))) + (_%subst!114845%_ + (lambda (_%key114847%_) + (let* ((_%key114848114856%_ _%key114847%_) + (_%else114850114864%_ (lambda () _%key114847%_)) + (_%K114852114899%_ + (lambda (_%mark114867%_ _%id114868%_) + (let* ((_%mark114869114875%_ _%mark114867%_) + (_%E114871114879%_ (lambda () (error '"No clause matching" - _%mark115633115639%_ + _%mark114869114875%_ '((expander-mark subst))) '#!void)) - (_%K115636115655%_ - (lambda (_%subst115646%_) - (if (not _%subst115646%_) - (let ((_%subst115649%_ + (_%K114872114891%_ + (lambda (_%subst114882%_) + (if (not _%subst114882%_) + (let ((_%subst114885%_ (make-hash-table-eq))) (##unchecked-structure-set! - _%mark115631%_ - _%subst115649%_ + _%mark114867%_ + _%subst114885%_ '1 '#f '#f) - (_%gensubst115608%_ - _%subst115649%_ - _%id115632%_)) - (let ((_%$e115651%_ + (_%gensubst114844%_ + _%subst114885%_ + _%id114868%_)) + (let ((_%$e114887%_ (hash-get - _%subst115646%_ - _%id115632%_))) - (if _%$e115651%_ - (values _%$e115651%_) - (let () - (_%gensubst115608%_ - _%subst115646%_ - _%id115632%_)))))))) + _%subst114882%_ + _%id114868%_))) + (if _%$e114887%_ + (values _%$e114887%_) + (_%gensubst114844%_ + _%subst114882%_ + _%id114868%_))))))) (if (##structure-instance-of? - _%mark115633115639%_ + _%mark114869114875%_ 'gx#expander-mark::t) - (let* ((_%e115637115658%_ + (let* ((_%e114873114894%_ (##unchecked-structure-ref - _%mark115633115639%_ + _%mark114869114875%_ '1 '#f '#f)) - (_%subst115661%_ _%e115637115658%_)) - (_%K115636115655%_ _%subst115661%_)) - (_%E115635115643%_)))))) - (if (##pair? _%key115612115620%_) - (let ((_%hd115617115666%_ - (##car _%key115612115620%_)) - (_%tl115618115668%_ - (##cdr _%key115612115620%_))) - (let* ((_%id115671%_ _%hd115617115666%_) - (_%mark115673%_ _%tl115618115668%_)) - (_%K115616115663%_ _%mark115673%_ _%id115671%_))) - (_%else115614115628%_)))))) + (_%subst114897%_ _%e114873114894%_)) + (_%K114872114891%_ _%subst114897%_)) + (_%E114871114879%_)))))) + (if (##pair? _%key114848114856%_) + (let ((_%hd114853114902%_ + (##car _%key114848114856%_)) + (_%tl114854114904%_ + (##cdr _%key114848114856%_))) + (let* ((_%id114907%_ _%hd114853114902%_) + (_%mark114909%_ _%tl114854114904%_)) + (_%K114852114899%_ _%mark114909%_ _%id114907%_))) + (_%else114850114864%_)))))) (gx#core-context-bind! - (gx#core-context-shift _%ctx115605%_ _%phi115604%_) - (_%subst!115609%_ _%key115601%_) - _%val115602%_ - _%update-binding115607%_)))) + (gx#core-context-shift _%ctx114841%_ _%phi114840%_) + (_%subst!114845%_ _%key114837%_) + _%val114838%_ + _%update-binding114843%_)))) (define gx#core-bind!__0 - (lambda (_%key115701%_ _%val115702%_) - (let* ((_%rebind?115704%_ false) - (_%phi115706%_ (gx#current-expander-phi)) - (_%ctx115708%_ (gx#current-expander-context))) + (lambda (_%key114937%_ _%val114938%_) + (let* ((_%rebind?114940%_ false) + (_%phi114942%_ (gx#current-expander-phi)) + (_%ctx114944%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key115701%_ - _%val115702%_ - _%rebind?115704%_ - _%phi115706%_ - _%ctx115708%_)))) + _%key114937%_ + _%val114938%_ + _%rebind?114940%_ + _%phi114942%_ + _%ctx114944%_)))) (define gx#core-bind!__1 - (lambda (_%key115710%_ _%val115711%_ _%rebind?115712%_) - (let* ((_%phi115714%_ (gx#current-expander-phi)) - (_%ctx115716%_ (gx#current-expander-context))) + (lambda (_%key114946%_ _%val114947%_ _%rebind?114948%_) + (let* ((_%phi114950%_ (gx#current-expander-phi)) + (_%ctx114952%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key115710%_ - _%val115711%_ - _%rebind?115712%_ - _%phi115714%_ - _%ctx115716%_)))) + _%key114946%_ + _%val114947%_ + _%rebind?114948%_ + _%phi114950%_ + _%ctx114952%_)))) (define gx#core-bind!__2 - (lambda (_%key115718%_ _%val115719%_ _%rebind?115720%_ _%phi115721%_) - (let ((_%ctx115723%_ (gx#current-expander-context))) + (lambda (_%key114954%_ _%val114955%_ _%rebind?114956%_ _%phi114957%_) + (let ((_%ctx114959%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key115718%_ - _%val115719%_ - _%rebind?115720%_ - _%phi115721%_ - _%ctx115723%_)))) + _%key114954%_ + _%val114955%_ + _%rebind?114956%_ + _%phi114957%_ + _%ctx114959%_)))) (define gx#core-bind! - (lambda _g118256_ - (let ((_g118255_ (##length _g118256_))) - (cond ((##fx= _g118255_ 2) - (apply (lambda (_%key115701%_ _%val115702%_) - (gx#core-bind!__0 _%key115701%_ _%val115702%_)) - _g118256_)) - ((##fx= _g118255_ 3) - (apply (lambda (_%key115710%_ _%val115711%_ _%rebind?115712%_) - (gx#core-bind!__1 - _%key115710%_ - _%val115711%_ - _%rebind?115712%_)) - _g118256_)) - ((##fx= _g118255_ 4) - (apply (lambda (_%key115718%_ - _%val115719%_ - _%rebind?115720%_ - _%phi115721%_) - (gx#core-bind!__2 - _%key115718%_ - _%val115719%_ - _%rebind?115720%_ - _%phi115721%_)) - _g118256_)) - ((##fx= _g118255_ 5) - (apply (lambda (_%key115725%_ - _%val115726%_ - _%rebind?115727%_ - _%phi115728%_ - _%ctx115729%_) - (gx#core-bind!__% - _%key115725%_ - _%val115726%_ - _%rebind?115727%_ - _%phi115728%_ - _%ctx115729%_)) - _g118256_)) + (lambda _g117492_ + (let ((_g117491_ (##length _g117492_))) + (cond ((##fx= _g117491_ 2) (apply gx#core-bind!__0 _g117492_)) + ((##fx= _g117491_ 3) (apply gx#core-bind!__1 _g117492_)) + ((##fx= _g117491_ 4) (apply gx#core-bind!__2 _g117492_)) + ((##fx= _g117491_ 5) (apply gx#core-bind!__% _g117492_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g118256_)))))) + _g117492_)))))) (define gx#core-identifier-key - (lambda (_%stx115532%_) - (if (symbol? _%stx115532%_) - (let () - (let* ((_%g115534115542%_ (gx#current-expander-marks)) - (_%else115536115550%_ (lambda () _%stx115532%_)) - (_%K115538115555%_ - (lambda (_%hd115553%_) - (cons _%stx115532%_ _%hd115553%_)))) - (if (##pair? _%g115534115542%_) - (let* ((_%hd115539115558%_ (##car _%g115534115542%_)) - (_%hd115561%_ _%hd115539115558%_)) - (_%K115538115555%_ _%hd115561%_)) - (_%else115536115550%_)))) - (if (gx#identifier? _%stx115532%_) - (let () - (let* ((_%id115564%_ (gx#syntax-local-unwrap _%stx115532%_)) - (_%eid115566%_ (gx#stx-e _%id115564%_)) - (_%marks115568%_ - (gx#stx-identifier-marks* _%id115564%_))) - (let* ((_%marks115570115578%_ _%marks115568%_) - (_%else115572115586%_ (lambda () _%eid115566%_)) - (_%K115574115591%_ - (lambda (_%hd115589%_) - (cons _%eid115566%_ _%hd115589%_)))) - (if (##pair? _%marks115570115578%_) - (let* ((_%hd115575115594%_ - (##car _%marks115570115578%_)) - (_%hd115597%_ _%hd115575115594%_)) - (_%K115574115591%_ _%hd115597%_)) - (_%else115572115586%_))))) - (let () - (gx#raise-syntax-error - '#f - '"Bad identifier" - _%stx115532%_)))))) + (lambda (_%stx114768%_) + (if (symbol? _%stx114768%_) + (let* ((_%g114770114778%_ (gx#current-expander-marks)) + (_%else114772114786%_ (lambda () _%stx114768%_)) + (_%K114774114791%_ + (lambda (_%hd114789%_) (cons _%stx114768%_ _%hd114789%_)))) + (if (##pair? _%g114770114778%_) + (let* ((_%hd114775114794%_ (##car _%g114770114778%_)) + (_%hd114797%_ _%hd114775114794%_)) + (_%K114774114791%_ _%hd114797%_)) + (_%else114772114786%_))) + (if (gx#identifier? _%stx114768%_) + (let* ((_%id114800%_ (gx#syntax-local-unwrap _%stx114768%_)) + (_%eid114802%_ (gx#stx-e _%id114800%_)) + (_%marks114804%_ + (gx#stx-identifier-marks* _%id114800%_)) + (_%marks114806114814%_ _%marks114804%_) + (_%else114808114822%_ (lambda () _%eid114802%_)) + (_%K114810114827%_ + (lambda (_%hd114825%_) + (cons _%eid114802%_ _%hd114825%_)))) + (if (##pair? _%marks114806114814%_) + (let* ((_%hd114811114830%_ (##car _%marks114806114814%_)) + (_%hd114833%_ _%hd114811114830%_)) + (_%K114810114827%_ _%hd114833%_)) + (_%else114808114822%_))) + (gx#raise-syntax-error '#f '"Bad identifier" _%stx114768%_))))) (define gx#&phi-context? gx#phi-context?) (define gx#core-context-shift - (lambda (_%ctx115471%_ _%phi115472%_) - (letrec ((_%make-phi115474%_ - (lambda (_%super115530%_) - (let ((__obj118228 + (lambda (_%ctx114707%_ _%phi114708%_) + (letrec ((_%make-phi114710%_ + (lambda (_%super114766%_) + (let ((__obj117464 (##structure gx#phi-context::t '#f @@ -3205,669 +2984,579 @@ '#f '#f))) (gx#phi-context:::init! - __obj118228 + __obj117464 (##gensym 'phi) - _%super115530%_) - __obj118228))) - (_%make-phi/up115475%_ - (lambda (_%ctx115525%_ _%super115526%_) - (let ((_%ctx+1115528%_ - (_%make-phi115474%_ _%super115526%_))) + _%super114766%_) + __obj117464))) + (_%make-phi/up114711%_ + (lambda (_%ctx114761%_ _%super114762%_) + (let ((_%ctx+1114764%_ + (_%make-phi114710%_ _%super114762%_))) (##unchecked-structure-set! - _%ctx115525%_ - _%ctx+1115528%_ + _%ctx114761%_ + _%ctx+1114764%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx+1115528%_ - _%ctx115525%_ + _%ctx+1114764%_ + _%ctx114761%_ '5 '#f '#f) - _%ctx+1115528%_))) - (_%make-phi/down115476%_ - (lambda (_%ctx115520%_ _%super115521%_) - (let ((_%ctx-1115523%_ - (_%make-phi115474%_ _%super115521%_))) + _%ctx+1114764%_))) + (_%make-phi/down114712%_ + (lambda (_%ctx114756%_ _%super114757%_) + (let ((_%ctx-1114759%_ + (_%make-phi114710%_ _%super114757%_))) (##unchecked-structure-set! - _%ctx-1115523%_ - _%ctx115520%_ + _%ctx-1114759%_ + _%ctx114756%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx115520%_ - _%ctx-1115523%_ + _%ctx114756%_ + _%ctx-1114759%_ '5 '#f '#f) - _%ctx-1115523%_))) - (_%shift115477%_ - (lambda (_%ctx115503%_ - _%delta115504%_ - _%make-delta-context115505%_ - _%phi115506%_ - _%K115507%_) - (let ((_%$e115509%_ + _%ctx-1114759%_))) + (_%shift114713%_ + (lambda (_%ctx114739%_ + _%delta114740%_ + _%make-delta-context114741%_ + _%phi114742%_ + _%K114743%_) + (let ((_%$e114745%_ (##unchecked-structure-ref - _%ctx115503%_ + _%ctx114739%_ '3 '#f '#f))) - (if _%$e115509%_ - ((lambda (_%super115512%_) - (let* ((_%super115514%_ - (_%K115507%_ - _%super115512%_ - _%delta115504%_)) - (_%ctx+d115516%_ - (_%make-delta-context115505%_ - _%ctx115503%_ - _%super115514%_))) - (_%K115507%_ - _%ctx+d115516%_ - (fx- _%phi115506%_ _%delta115504%_)))) - _%$e115509%_) - (let () (error '"Bad context" _%ctx115503%_))))))) - (let _%K115479%_ ((_%ctx115481%_ _%ctx115471%_) - (_%phi115482%_ _%phi115472%_)) - (if (fxzero? _%phi115482%_) - (let () _%ctx115481%_) - (if (##structure-instance-of? _%ctx115481%_ 'gx#phi-context::t) - (let () - (if (fxpositive? _%phi115482%_) - (let ((_%$e115486%_ - (##unchecked-structure-ref - _%ctx115481%_ - '4 - '#f - '#f))) - (if _%$e115486%_ - ((lambda (_%g115488115490%_) - (_%K115479%_ - _%g115488115490%_ - (##fx- _%phi115482%_ '1))) - _%$e115486%_) - (let () - (_%shift115477%_ - _%ctx115481%_ - '1 - _%make-phi/up115475%_ - _%phi115482%_ - _%K115479%_)))) - (let ((_%$e115494%_ - (##unchecked-structure-ref - _%ctx115481%_ - '5 - '#f - '#f))) - (if _%$e115494%_ - ((lambda (_%g115496115498%_) - (_%K115479%_ - _%g115496115498%_ - (##fx+ _%phi115482%_ '1))) - _%$e115494%_) - (let () - (_%shift115477%_ - _%ctx115481%_ - '-1 - _%make-phi/down115476%_ - _%phi115482%_ - _%K115479%_)))))) - (let () _%ctx115481%_))))))) + (if _%$e114745%_ + ((lambda (_%super114748%_) + (let* ((_%super114750%_ + (_%K114743%_ + _%super114748%_ + _%delta114740%_)) + (_%ctx+d114752%_ + (_%make-delta-context114741%_ + _%ctx114739%_ + _%super114750%_))) + (_%K114743%_ + _%ctx+d114752%_ + (fx- _%phi114742%_ _%delta114740%_)))) + _%$e114745%_) + (error '"Bad context" _%ctx114739%_)))))) + (let _%K114715%_ ((_%ctx114717%_ _%ctx114707%_) + (_%phi114718%_ _%phi114708%_)) + (if (fxzero? _%phi114718%_) + _%ctx114717%_ + (if (##structure-instance-of? _%ctx114717%_ 'gx#phi-context::t) + (if (fxpositive? _%phi114718%_) + (let ((_%$e114722%_ + (##unchecked-structure-ref + _%ctx114717%_ + '4 + '#f + '#f))) + (if _%$e114722%_ + ((lambda (_%g114724114726%_) + (_%K114715%_ + _%g114724114726%_ + (##fx- _%phi114718%_ '1))) + _%$e114722%_) + (_%shift114713%_ + _%ctx114717%_ + '1 + _%make-phi/up114711%_ + _%phi114718%_ + _%K114715%_))) + (let ((_%$e114730%_ + (##unchecked-structure-ref + _%ctx114717%_ + '5 + '#f + '#f))) + (if _%$e114730%_ + ((lambda (_%g114732114734%_) + (_%K114715%_ + _%g114732114734%_ + (##fx+ _%phi114718%_ '1))) + _%$e114730%_) + (_%shift114713%_ + _%ctx114717%_ + '-1 + _%make-phi/down114712%_ + _%phi114718%_ + _%K114715%_)))) + _%ctx114717%_)))))) (define gx#core-context-get - (lambda (_%ctx115468%_ _%key115469%_) + (lambda (_%ctx114704%_ _%key114705%_) (hash-get - (##unchecked-structure-ref _%ctx115468%_ '2 '#f '#f) - _%key115469%_))) + (##unchecked-structure-ref _%ctx114704%_ '2 '#f '#f) + _%key114705%_))) (define gx#core-context-put! - (lambda (_%ctx115464%_ _%key115465%_ _%val115466%_) + (lambda (_%ctx114700%_ _%key114701%_ _%val114702%_) (hash-put! - (##unchecked-structure-ref _%ctx115464%_ '2 '#f '#f) - _%key115465%_ - _%val115466%_))) + (##unchecked-structure-ref _%ctx114700%_ '2 '#f '#f) + _%key114701%_ + _%val114702%_))) (define gx#core-context-resolve - (lambda (_%ctx115450%_ _%key115451%_) - (let _%lp115453%_ ((_%ctx115455%_ _%ctx115450%_)) - (let ((_%$e115457%_ - (gx#core-context-get _%ctx115455%_ _%key115451%_))) - (if _%$e115457%_ - (values _%$e115457%_) - (let ((_%$e115460%_ + (lambda (_%ctx114686%_ _%key114687%_) + (let _%lp114689%_ ((_%ctx114691%_ _%ctx114686%_)) + (let ((_%$e114693%_ + (gx#core-context-get _%ctx114691%_ _%key114687%_))) + (if _%$e114693%_ + (values _%$e114693%_) + (let ((_%$e114696%_ (if (##structure-instance-of? - _%ctx115455%_ + _%ctx114691%_ 'gx#phi-context::t) - (##unchecked-structure-ref _%ctx115455%_ '3 '#f '#f) + (##unchecked-structure-ref _%ctx114691%_ '3 '#f '#f) '#f))) - (if _%$e115460%_ - (_%lp115453%_ _%$e115460%_) - (let () '#f)))))))) + (if _%$e114696%_ (_%lp114689%_ _%$e114696%_) '#f))))))) (define gx#core-context-bind! - (lambda (_%ctx115439%_ _%key115440%_ _%val115441%_ _%rebind115442%_) - (let ((_%$e115444%_ (gx#core-context-get _%ctx115439%_ _%key115440%_))) - (if _%$e115444%_ - ((lambda (_%xval115447%_) + (lambda (_%ctx114675%_ _%key114676%_ _%val114677%_ _%rebind114678%_) + (let ((_%$e114680%_ (gx#core-context-get _%ctx114675%_ _%key114676%_))) + (if _%$e114680%_ + ((lambda (_%xval114683%_) (gx#core-context-put! - _%ctx115439%_ - _%key115440%_ - (_%rebind115442%_ _%xval115447%_))) - _%$e115444%_) - (let () - (gx#core-context-put! - _%ctx115439%_ - _%key115440%_ - _%val115441%_)))))) + _%ctx114675%_ + _%key114676%_ + (_%rebind114678%_ _%xval114683%_))) + _%$e114680%_) + (gx#core-context-put! + _%ctx114675%_ + _%key114676%_ + _%val114677%_))))) (define gx#core-context-top__% - (lambda (_%ctx115414%_ _%stop?115415%_) - (let _%lp115417%_ ((_%ctx115419%_ _%ctx115414%_)) - (if (_%stop?115415%_ _%ctx115419%_) - (let () _%ctx115419%_) - (if (##structure-instance-of? _%ctx115419%_ 'gx#phi-context::t) - (let () - (_%lp115417%_ - (##unchecked-structure-ref _%ctx115419%_ '3 '#f '#f))) - (let () '#f)))))) + (lambda (_%ctx114650%_ _%stop?114651%_) + (let _%lp114653%_ ((_%ctx114655%_ _%ctx114650%_)) + (if (_%stop?114651%_ _%ctx114655%_) + _%ctx114655%_ + (if (##structure-instance-of? _%ctx114655%_ 'gx#phi-context::t) + (_%lp114653%_ + (##unchecked-structure-ref _%ctx114655%_ '3 '#f '#f)) + '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_%ctx115428%_ (gx#current-expander-context)) - (_%stop?115430%_ gx#top-context?)) - (gx#core-context-top__% _%ctx115428%_ _%stop?115430%_)))) + (let* ((_%ctx114664%_ (gx#current-expander-context)) + (_%stop?114666%_ gx#top-context?)) + (gx#core-context-top__% _%ctx114664%_ _%stop?114666%_)))) (define gx#core-context-top__1 - (lambda (_%ctx115432%_) - (let ((_%stop?115434%_ gx#top-context?)) - (gx#core-context-top__% _%ctx115432%_ _%stop?115434%_)))) + (lambda (_%ctx114668%_) + (let ((_%stop?114670%_ gx#top-context?)) + (gx#core-context-top__% _%ctx114668%_ _%stop?114670%_)))) (define gx#core-context-top - (lambda _g118258_ - (let ((_g118257_ (##length _g118258_))) - (cond ((##fx= _g118257_ 0) - (apply (lambda () (gx#core-context-top__0)) _g118258_)) - ((##fx= _g118257_ 1) - (apply (lambda (_%ctx115432%_) - (gx#core-context-top__1 _%ctx115432%_)) - _g118258_)) - ((##fx= _g118257_ 2) - (apply (lambda (_%ctx115436%_ _%stop?115437%_) - (gx#core-context-top__% - _%ctx115436%_ - _%stop?115437%_)) - _g118258_)) + (lambda _g117494_ + (let ((_g117493_ (##length _g117494_))) + (cond ((##fx= _g117493_ 0) (apply gx#core-context-top__0 _g117494_)) + ((##fx= _g117493_ 1) (apply gx#core-context-top__1 _g117494_)) + ((##fx= _g117493_ 2) (apply gx#core-context-top__% _g117494_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g118258_)))))) + _g117494_)))))) (define gx#core-context-root__% - (lambda (_%ctx115399%_) - (let _%lp115401%_ ((_%ctx115403%_ _%ctx115399%_)) - (if (##structure-instance-of? _%ctx115403%_ 'gx#phi-context::t) - (_%lp115401%_ - (##unchecked-structure-ref _%ctx115403%_ '3 '#f '#f)) - _%ctx115403%_)))) + (lambda (_%ctx114635%_) + (let _%lp114637%_ ((_%ctx114639%_ _%ctx114635%_)) + (if (##structure-instance-of? _%ctx114639%_ 'gx#phi-context::t) + (_%lp114637%_ + (##unchecked-structure-ref _%ctx114639%_ '3 '#f '#f)) + _%ctx114639%_)))) (define gx#core-context-root__0 (lambda () - (let ((_%ctx115409%_ (gx#current-expander-context))) - (gx#core-context-root__% _%ctx115409%_)))) + (let ((_%ctx114645%_ (gx#current-expander-context))) + (gx#core-context-root__% _%ctx114645%_)))) (define gx#core-context-root - (lambda _g118260_ - (let ((_g118259_ (##length _g118260_))) - (cond ((##fx= _g118259_ 0) - (apply (lambda () (gx#core-context-root__0)) _g118260_)) - ((##fx= _g118259_ 1) - (apply (lambda (_%ctx115411%_) - (gx#core-context-root__% _%ctx115411%_)) - _g118260_)) + (lambda _g117496_ + (let ((_g117495_ (##length _g117496_))) + (cond ((##fx= _g117495_ 0) (apply gx#core-context-root__0 _g117496_)) + ((##fx= _g117495_ 1) (apply gx#core-context-root__% _g117496_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g118260_)))))) + _g117496_)))))) (define gx#core-context-rebind?__% - (lambda (_%ctx115381%_ . _%ignore115382%_) - (let ((_%$e115384%_ (gx#current-expander-allow-rebind?))) - (if _%$e115384%_ - _%$e115384%_ - (if (##structure-instance-of? _%ctx115381%_ 'gx#top-context::t) + (lambda (_%ctx114617%_ . _%ignore114618%_) + (let ((_%$e114620%_ (gx#current-expander-allow-rebind?))) + (if _%$e114620%_ + _%$e114620%_ + (if (##structure-instance-of? _%ctx114617%_ 'gx#top-context::t) (if (not (##structure-instance-of? - _%ctx115381%_ + _%ctx114617%_ 'gx#module-context::t)) (not (##structure-instance-of? - _%ctx115381%_ + _%ctx114617%_ 'gx#prelude-context::t)) '#f) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_%ctx115391%_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _%ctx115391%_)))) + (let ((_%ctx114627%_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _%ctx114627%_)))) (define gx#core-context-rebind? - (lambda _g118262_ - (let ((_g118261_ (##length _g118262_))) - (cond ((##fx= _g118261_ 0) - (apply (lambda () (gx#core-context-rebind?__0)) _g118262_)) - ((##fx= _g118261_ 1) - (apply (lambda (_%ctx115393%_) - (gx#core-context-rebind?__% _%ctx115393%_)) - _g118262_)) - ((##fx>= _g118261_ 1) - (apply gx#core-context-rebind?__% _g118262_)) + (lambda _g117498_ + (let ((_g117497_ (##length _g117498_))) + (cond ((##fx= _g117497_ 0) + (apply gx#core-context-rebind?__0 _g117498_)) + ((##fx= _g117497_ 1) + (apply gx#core-context-rebind?__% _g117498_)) + ((##fx>= _g117497_ 1) + (apply gx#core-context-rebind?__% _g117498_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g118262_)))))) + _g117498_)))))) (define gx#core-context-namespace__% - (lambda (_%ctx115364%_) - (let ((_%$e115366%_ (gx#core-context-top__1 _%ctx115364%_))) - (if _%$e115366%_ - ((lambda (_%ctx115369%_) + (lambda (_%ctx114600%_) + (let ((_%$e114602%_ (gx#core-context-top__1 _%ctx114600%_))) + (if _%$e114602%_ + ((lambda (_%ctx114605%_) (if (##structure-instance-of? - _%ctx115369%_ + _%ctx114605%_ 'gx#module-context::t) - (##unchecked-structure-ref _%ctx115369%_ '6 '#f '#f) + (##unchecked-structure-ref _%ctx114605%_ '6 '#f '#f) '#f)) - _%$e115366%_) - (let () '#f))))) + _%$e114602%_) + '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_%ctx115376%_ (gx#current-expander-context))) - (gx#core-context-namespace__% _%ctx115376%_)))) + (let ((_%ctx114612%_ (gx#current-expander-context))) + (gx#core-context-namespace__% _%ctx114612%_)))) (define gx#core-context-namespace - (lambda _g118264_ - (let ((_g118263_ (##length _g118264_))) - (cond ((##fx= _g118263_ 0) - (apply (lambda () (gx#core-context-namespace__0)) _g118264_)) - ((##fx= _g118263_ 1) - (apply (lambda (_%ctx115378%_) - (gx#core-context-namespace__% _%ctx115378%_)) - _g118264_)) + (lambda _g117500_ + (let ((_g117499_ (##length _g117500_))) + (cond ((##fx= _g117499_ 0) + (apply gx#core-context-namespace__0 _g117500_)) + ((##fx= _g117499_ 1) + (apply gx#core-context-namespace__% _g117500_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g118264_)))))) + _g117500_)))))) (define gx#expander-binding?__% - (lambda (_%bind115350%_ _%is?115351%_) + (lambda (_%bind114586%_ _%is?114587%_) (if (##structure-direct-instance-of? - _%bind115350%_ + _%bind114586%_ 'gx#syntax-binding::t) - (_%is?115351%_ - (##unchecked-structure-ref _%bind115350%_ '4 '#f '#f)) + (_%is?114587%_ + (##unchecked-structure-ref _%bind114586%_ '4 '#f '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_%bind115356%_) - (let ((_%is?115358%_ gx#expander?)) - (gx#expander-binding?__% _%bind115356%_ _%is?115358%_)))) + (lambda (_%bind114592%_) + (let ((_%is?114594%_ gx#expander?)) + (gx#expander-binding?__% _%bind114592%_ _%is?114594%_)))) (define gx#expander-binding? - (lambda _g118266_ - (let ((_g118265_ (##length _g118266_))) - (cond ((##fx= _g118265_ 1) - (apply (lambda (_%bind115356%_) - (gx#expander-binding?__0 _%bind115356%_)) - _g118266_)) - ((##fx= _g118265_ 2) - (apply (lambda (_%bind115360%_ _%is?115361%_) - (gx#expander-binding?__% - _%bind115360%_ - _%is?115361%_)) - _g118266_)) + (lambda _g117502_ + (let ((_g117501_ (##length _g117502_))) + (cond ((##fx= _g117501_ 1) (apply gx#expander-binding?__0 _g117502_)) + ((##fx= _g117501_ 2) (apply gx#expander-binding?__% _g117502_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g118266_)))))) + _g117502_)))))) (define gx#core-expander-binding? - (lambda (_%bind115347%_) - (gx#expander-binding?__% _%bind115347%_ gx#core-expander?))) + (lambda (_%bind114583%_) + (gx#expander-binding?__% _%bind114583%_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_%bind115345%_) - (gx#expander-binding?__% _%bind115345%_ gx#expression-form?))) + (lambda (_%bind114581%_) + (gx#expander-binding?__% _%bind114581%_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_%bind115339%_) - (letrec ((_%direct-special-form?115341%_ - (lambda (_%obj115343%_) + (lambda (_%bind114575%_) + (letrec ((_%direct-special-form?114577%_ + (lambda (_%obj114579%_) (##structure-direct-instance-of? - _%obj115343%_ + _%obj114579%_ (##type-id gx#special-form::t))))) (gx#expander-binding?__% - _%bind115339%_ - _%direct-special-form?115341%_)))) + _%bind114575%_ + _%direct-special-form?114577%_)))) (define gx#special-form-binding? - (lambda (_%bind115337%_) - (gx#expander-binding?__% _%bind115337%_ gx#special-form?))) + (lambda (_%bind114573%_) + (gx#expander-binding?__% _%bind114573%_ gx#special-form?))) (define gx#feature-binding? - (lambda (_%bind115328%_) - (letrec ((_%feature?115330%_ - (lambda (_%e115332%_) - (let ((_%$e115334%_ + (lambda (_%bind114564%_) + (letrec ((_%feature?114566%_ + (lambda (_%e114568%_) + (let ((_%$e114570%_ (##structure-instance-of? - _%e115332%_ + _%e114568%_ 'gx#feature-expander::t))) - (if _%$e115334%_ - _%$e115334%_ + (if _%$e114570%_ + _%$e114570%_ (##structure-instance-of? - _%e115332%_ + _%e114568%_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _%bind115328%_ _%feature?115330%_)))) + (gx#expander-binding?__% _%bind114564%_ _%feature?114566%_)))) (define gx#private-feature-binding? - (lambda (_%bind115326%_) - (gx#expander-binding?__% _%bind115326%_ gx#private-feature-expander?))) + (lambda (_%bind114562%_) + (gx#expander-binding?__% _%bind114562%_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_%id115313%_ _%bound?115314%_) - (if (gx#identifier? _%id115313%_) - (_%bound?115314%_ (gx#resolve-identifier__0 _%id115313%_)) + (lambda (_%id114549%_ _%bound?114550%_) + (if (gx#identifier? _%id114549%_) + (_%bound?114550%_ (gx#resolve-identifier__0 _%id114549%_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_%id115319%_) - (let ((_%bound?115321%_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _%id115319%_ _%bound?115321%_)))) + (lambda (_%id114555%_) + (let ((_%bound?114557%_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _%id114555%_ _%bound?114557%_)))) (define gx#core-bound-identifier? - (lambda _g118268_ - (let ((_g118267_ (##length _g118268_))) - (cond ((##fx= _g118267_ 1) - (apply (lambda (_%id115319%_) - (gx#core-bound-identifier?__0 _%id115319%_)) - _g118268_)) - ((##fx= _g118267_ 2) - (apply (lambda (_%id115323%_ _%bound?115324%_) - (gx#core-bound-identifier?__% - _%id115323%_ - _%bound?115324%_)) - _g118268_)) + (lambda _g117504_ + (let ((_g117503_ (##length _g117504_))) + (cond ((##fx= _g117503_ 1) + (apply gx#core-bound-identifier?__0 _g117504_)) + ((##fx= _g117503_ 2) + (apply gx#core-bound-identifier?__% _g117504_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g118268_)))))) + _g117504_)))))) (define gx#core-identifier=? - (lambda (_%x115303%_ _%y115304%_) - (letrec ((_%y=?115306%_ - (lambda (_%xid115310%_) - ((if (list? _%y115304%_) memq eq?) - _%xid115310%_ - _%y115304%_)))) - (let ((_%bind115308%_ (gx#resolve-identifier__0 _%x115303%_))) - (if (##structure-instance-of? _%bind115308%_ 'gx#binding::t) - (_%y=?115306%_ - (##unchecked-structure-ref _%bind115308%_ '1 '#f '#f)) - (_%y=?115306%_ (gx#stx-e _%x115303%_))))))) + (lambda (_%x114539%_ _%y114540%_) + (letrec ((_%y=?114542%_ + (lambda (_%xid114546%_) + ((if (list? _%y114540%_) memq eq?) + _%xid114546%_ + _%y114540%_)))) + (let ((_%bind114544%_ (gx#resolve-identifier__0 _%x114539%_))) + (if (##structure-instance-of? _%bind114544%_ 'gx#binding::t) + (_%y=?114542%_ + (##unchecked-structure-ref _%bind114544%_ '1 '#f '#f)) + (_%y=?114542%_ (gx#stx-e _%x114539%_))))))) (define gx#core-extern-symbol? - (lambda (_%e115301%_) - (if (interned-symbol? _%e115301%_) - (string-index__0 (symbol->string _%e115301%_) '#\#) + (lambda (_%e114537%_) + (if (interned-symbol? _%e114537%_) + (string-index__0 (symbol->string _%e114537%_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_%stx115254%_ _%src115255%_ _%ctx115256%_ _%marks115257%_) - (if (##structure? _%stx115254%_) - (let ((_%$e115259%_ (gx#sealed-syntax-unwrap _%stx115254%_))) - (if _%$e115259%_ - (values _%$e115259%_) - (if (gx#identifier? _%stx115254%_) - (let ((_%id115263%_ - (gx#stx-unwrap__% _%stx115254%_ _%marks115257%_))) + (lambda (_%stx114490%_ _%src114491%_ _%ctx114492%_ _%marks114493%_) + (if (##structure? _%stx114490%_) + (let ((_%$e114495%_ (gx#sealed-syntax-unwrap _%stx114490%_))) + (if _%$e114495%_ + (values _%$e114495%_) + (if (gx#identifier? _%stx114490%_) + (let ((_%id114499%_ + (gx#stx-unwrap__% _%stx114490%_ _%marks114493%_))) (##structure gx#syntax-quote::t - (##unchecked-structure-ref _%id115263%_ '1 '#f '#f) - (let ((_%$e115265%_ + (##unchecked-structure-ref _%id114499%_ '1 '#f '#f) + (let ((_%$e114501%_ (##unchecked-structure-ref - _%id115263%_ + _%id114499%_ '2 '#f '#f))) - (if _%$e115265%_ _%$e115265%_ _%src115255%_)) - _%ctx115256%_ - (##unchecked-structure-ref _%id115263%_ '3 '#f '#f))) - (let () - (##structure - gx#syntax-quote::t - (gx#stx-e _%stx115254%_) - (let ((_%$e115269%_ (gx#stx-source _%stx115254%_))) - (if _%$e115269%_ _%$e115269%_ _%src115255%_)) - _%ctx115256%_ - (reverse _%marks115257%_)))))) + (if _%$e114501%_ _%$e114501%_ _%src114491%_)) + _%ctx114492%_ + (##unchecked-structure-ref _%id114499%_ '3 '#f '#f))) + (##structure + gx#syntax-quote::t + (gx#stx-e _%stx114490%_) + (let ((_%$e114505%_ (gx#stx-source _%stx114490%_))) + (if _%$e114505%_ _%$e114505%_ _%src114491%_)) + _%ctx114492%_ + (reverse _%marks114493%_))))) (##structure gx#syntax-quote::t - _%stx115254%_ - _%src115255%_ - _%ctx115256%_ - (reverse _%marks115257%_))))) + _%stx114490%_ + _%src114491%_ + _%ctx114492%_ + (reverse _%marks114493%_))))) (define gx#core-quote-syntax__0 - (lambda (_%stx115275%_) - (let* ((_%src115277%_ '#f) - (_%ctx115279%_ (gx#current-expander-context)) - (_%marks115281%_ (gx#current-expander-marks))) + (lambda (_%stx114511%_) + (let* ((_%src114513%_ '#f) + (_%ctx114515%_ (gx#current-expander-context)) + (_%marks114517%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx115275%_ - _%src115277%_ - _%ctx115279%_ - _%marks115281%_)))) + _%stx114511%_ + _%src114513%_ + _%ctx114515%_ + _%marks114517%_)))) (define gx#core-quote-syntax__1 - (lambda (_%stx115283%_ _%src115284%_) - (let* ((_%ctx115286%_ (gx#current-expander-context)) - (_%marks115288%_ (gx#current-expander-marks))) + (lambda (_%stx114519%_ _%src114520%_) + (let* ((_%ctx114522%_ (gx#current-expander-context)) + (_%marks114524%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx115283%_ - _%src115284%_ - _%ctx115286%_ - _%marks115288%_)))) + _%stx114519%_ + _%src114520%_ + _%ctx114522%_ + _%marks114524%_)))) (define gx#core-quote-syntax__2 - (lambda (_%stx115290%_ _%src115291%_ _%ctx115292%_) - (let ((_%marks115294%_ (gx#current-expander-marks))) + (lambda (_%stx114526%_ _%src114527%_ _%ctx114528%_) + (let ((_%marks114530%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx115290%_ - _%src115291%_ - _%ctx115292%_ - _%marks115294%_)))) + _%stx114526%_ + _%src114527%_ + _%ctx114528%_ + _%marks114530%_)))) (define gx#core-quote-syntax - (lambda _g118270_ - (let ((_g118269_ (##length _g118270_))) - (cond ((##fx= _g118269_ 1) - (apply (lambda (_%stx115275%_) - (gx#core-quote-syntax__0 _%stx115275%_)) - _g118270_)) - ((##fx= _g118269_ 2) - (apply (lambda (_%stx115283%_ _%src115284%_) - (gx#core-quote-syntax__1 - _%stx115283%_ - _%src115284%_)) - _g118270_)) - ((##fx= _g118269_ 3) - (apply (lambda (_%stx115290%_ _%src115291%_ _%ctx115292%_) - (gx#core-quote-syntax__2 - _%stx115290%_ - _%src115291%_ - _%ctx115292%_)) - _g118270_)) - ((##fx= _g118269_ 4) - (apply (lambda (_%stx115296%_ - _%src115297%_ - _%ctx115298%_ - _%marks115299%_) - (gx#core-quote-syntax__% - _%stx115296%_ - _%src115297%_ - _%ctx115298%_ - _%marks115299%_)) - _g118270_)) + (lambda _g117506_ + (let ((_g117505_ (##length _g117506_))) + (cond ((##fx= _g117505_ 1) (apply gx#core-quote-syntax__0 _g117506_)) + ((##fx= _g117505_ 2) (apply gx#core-quote-syntax__1 _g117506_)) + ((##fx= _g117505_ 3) (apply gx#core-quote-syntax__2 _g117506_)) + ((##fx= _g117505_ 4) (apply gx#core-quote-syntax__% _g117506_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g118270_)))))) + _g117506_)))))) (define gx#core-cons - (lambda (_%hd115250%_ _%tl115251%_) - (cons (gx#core-quote-syntax__0 _%hd115250%_) _%tl115251%_))) + (lambda (_%hd114486%_ _%tl114487%_) + (cons (gx#core-quote-syntax__0 _%hd114486%_) _%tl114487%_))) (define gx#core-list - (lambda (_%hd115247%_ . _%rest115248%_) - (cons (gx#core-quote-syntax__0 _%hd115247%_) _%rest115248%_))) + (lambda (_%hd114483%_ . _%rest114484%_) + (cons (gx#core-quote-syntax__0 _%hd114483%_) _%rest114484%_))) (define gx#core-cons* - (lambda (_%hd115244%_ . _%rest115245%_) - (apply cons* (gx#core-quote-syntax__0 _%hd115244%_) _%rest115245%_))) + (lambda (_%hd114480%_ . _%rest114481%_) + (apply cons* (gx#core-quote-syntax__0 _%hd114480%_) _%rest114481%_))) (define gx#core-resolve-path__% - (lambda (_%stx-path115213%_ _%rel115214%_) - (let ((_%path115231%_ (gx#stx-e _%stx-path115213%_)) - (_%reldir115232%_ - (let _%lp115216%_ ((_%relsrc115218%_ - (let ((_%$e115228%_ - (gx#stx-source _%stx-path115213%_))) - (if _%$e115228%_ - _%$e115228%_ - _%rel115214%_)))) - (if (##structure-instance-of? _%relsrc115218%_ 'gerbil#AST::t) - (let () - (_%lp115216%_ - (let ((_%$e115221%_ (gx#stx-source _%relsrc115218%_))) - (if _%$e115221%_ - _%$e115221%_ - (gx#stx-e _%relsrc115218%_))))) - (if (source-location-path? _%relsrc115218%_) - (let () - (path-directory - (source-location-path _%relsrc115218%_))) - (if (string? _%relsrc115218%_) - (let () (path-directory _%relsrc115218%_)) + (lambda (_%stx-path114449%_ _%rel114450%_) + (let ((_%path114467%_ (gx#stx-e _%stx-path114449%_)) + (_%reldir114468%_ + (let _%lp114452%_ ((_%relsrc114454%_ + (let ((_%$e114464%_ + (gx#stx-source _%stx-path114449%_))) + (if _%$e114464%_ + _%$e114464%_ + _%rel114450%_)))) + (if (##structure-instance-of? _%relsrc114454%_ 'gerbil#AST::t) + (_%lp114452%_ + (let ((_%$e114457%_ (gx#stx-source _%relsrc114454%_))) + (if _%$e114457%_ + _%$e114457%_ + (gx#stx-e _%relsrc114454%_)))) + (if (source-location-path? _%relsrc114454%_) + (path-directory + (source-location-path _%relsrc114454%_)) + (if (string? _%relsrc114454%_) + (path-directory _%relsrc114454%_) (if (not (null? (gx#current-expander-path))) - (let () - (path-directory - (car (gx#current-expander-path)))) - (let () (current-directory))))))))) - (path-expand _%path115231%_ (path-normalize _%reldir115232%_))))) + (path-directory + (car (gx#current-expander-path))) + (current-directory)))))))) + (path-expand _%path114467%_ (path-normalize _%reldir114468%_))))) (define gx#core-resolve-path__0 - (lambda (_%stx-path115237%_) - (let ((_%rel115239%_ '#f)) - (gx#core-resolve-path__% _%stx-path115237%_ _%rel115239%_)))) + (lambda (_%stx-path114473%_) + (let ((_%rel114475%_ '#f)) + (gx#core-resolve-path__% _%stx-path114473%_ _%rel114475%_)))) (define gx#core-resolve-path - (lambda _g118272_ - (let ((_g118271_ (##length _g118272_))) - (cond ((##fx= _g118271_ 1) - (apply (lambda (_%stx-path115237%_) - (gx#core-resolve-path__0 _%stx-path115237%_)) - _g118272_)) - ((##fx= _g118271_ 2) - (apply (lambda (_%stx-path115241%_ _%rel115242%_) - (gx#core-resolve-path__% - _%stx-path115241%_ - _%rel115242%_)) - _g118272_)) + (lambda _g117508_ + (let ((_g117507_ (##length _g117508_))) + (cond ((##fx= _g117507_ 1) (apply gx#core-resolve-path__0 _g117508_)) + ((##fx= _g117507_ 2) (apply gx#core-resolve-path__% _g117508_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g118272_)))))) + _g117508_)))))) (define gx#core-deserialize-mark__% - (lambda (_%repr115169%_ _%ctx115170%_) - (let* ((_%repr115171115178%_ _%repr115169%_) - (_%E115173115182%_ + (lambda (_%repr114405%_ _%ctx114406%_) + (let* ((_%repr114407114414%_ _%repr114405%_) + (_%E114409114418%_ (lambda () (error '"No clause matching" - _%repr115171115178%_ + _%repr114407114414%_ '([phi . subs])) '#!void)) - (_%K115174115190%_ - (lambda (_%subs115185%_ _%phi115186%_) - (let ((_%subst115188%_ - (if (not (null? _%subs115185%_)) - (list->hash-table-eq _%subs115185%_) + (_%K114410114426%_ + (lambda (_%subs114421%_ _%phi114422%_) + (let ((_%subst114424%_ + (if (not (null? _%subs114421%_)) + (list->hash-table-eq _%subs114421%_) '#f))) (##structure gx#expander-mark::t - _%subst115188%_ - _%ctx115170%_ - _%phi115186%_ + _%subst114424%_ + _%ctx114406%_ + _%phi114422%_ '#f))))) - (if (##pair? _%repr115171115178%_) - (let ((_%hd115175115193%_ (##car _%repr115171115178%_)) - (_%tl115176115195%_ (##cdr _%repr115171115178%_))) - (let* ((_%phi115198%_ _%hd115175115193%_) - (_%subs115200%_ _%tl115176115195%_)) - (_%K115174115190%_ _%subs115200%_ _%phi115198%_))) - (_%E115173115182%_))))) + (if (##pair? _%repr114407114414%_) + (let ((_%hd114411114429%_ (##car _%repr114407114414%_)) + (_%tl114412114431%_ (##cdr _%repr114407114414%_))) + (let* ((_%phi114434%_ _%hd114411114429%_) + (_%subs114436%_ _%tl114412114431%_)) + (_%K114410114426%_ _%subs114436%_ _%phi114434%_))) + (_%E114409114418%_))))) (define gx#core-deserialize-mark__0 - (lambda (_%repr115205%_) - (let ((_%ctx115207%_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _%repr115205%_ _%ctx115207%_)))) + (lambda (_%repr114441%_) + (let ((_%ctx114443%_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _%repr114441%_ _%ctx114443%_)))) (define gx#core-deserialize-mark - (lambda _g118274_ - (let ((_g118273_ (##length _g118274_))) - (cond ((##fx= _g118273_ 1) - (apply (lambda (_%repr115205%_) - (gx#core-deserialize-mark__0 _%repr115205%_)) - _g118274_)) - ((##fx= _g118273_ 2) - (apply (lambda (_%repr115209%_ _%ctx115210%_) - (gx#core-deserialize-mark__% - _%repr115209%_ - _%ctx115210%_)) - _g118274_)) + (lambda _g117510_ + (let ((_g117509_ (##length _g117510_))) + (cond ((##fx= _g117509_ 1) + (apply gx#core-deserialize-mark__0 _g117510_)) + ((##fx= _g117509_ 2) + (apply gx#core-deserialize-mark__% _g117510_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g118274_)))))) + _g117510_)))))) (define gx#syntax-local-rewrap - (lambda (_%stx115166%_) - (gx#stx-rewrap _%stx115166%_ (gx#current-expander-marks)))) + (lambda (_%stx114402%_) + (gx#stx-rewrap _%stx114402%_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_%stx115164%_) - (gx#stx-unwrap__% _%stx115164%_ (gx#current-expander-marks)))) + (lambda (_%stx114400%_) + (gx#stx-unwrap__% _%stx114400%_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_%stx115134%_) - (let* ((_%g115135115143%_ (gx#current-expander-marks)) - (_%else115137115151%_ (lambda () _%stx115134%_)) - (_%K115139115156%_ - (lambda (_%hd115154%_) - (gx#stx-apply-mark _%stx115134%_ _%hd115154%_)))) - (if (##pair? _%g115135115143%_) - (let* ((_%hd115140115159%_ (##car _%g115135115143%_)) - (_%hd115162%_ _%hd115140115159%_)) - (_%K115139115156%_ _%hd115162%_)) - (_%else115137115151%_))))) + (lambda (_%stx114370%_) + (let* ((_%g114371114379%_ (gx#current-expander-marks)) + (_%else114373114387%_ (lambda () _%stx114370%_)) + (_%K114375114392%_ + (lambda (_%hd114390%_) + (gx#stx-apply-mark _%stx114370%_ _%hd114390%_)))) + (if (##pair? _%g114371114379%_) + (let* ((_%hd114376114395%_ (##car _%g114371114379%_)) + (_%hd114398%_ _%hd114376114395%_)) + (_%K114375114392%_ _%hd114398%_)) + (_%else114373114387%_))))) (define gx#syntax-local-e__% - (lambda (_%stx115119%_ _%E115120%_) - (let ((_%bind115122%_ (gx#resolve-identifier__0 _%stx115119%_))) + (lambda (_%stx114355%_ _%E114356%_) + (let ((_%bind114358%_ (gx#resolve-identifier__0 _%stx114355%_))) (if (##structure-direct-instance-of? - _%bind115122%_ + _%bind114358%_ 'gx#syntax-binding::t) - (##unchecked-structure-ref _%bind115122%_ '4 '#f '#f) - (_%E115120%_ _%stx115119%_))))) + (##unchecked-structure-ref _%bind114358%_ '4 '#f '#f) + (_%E114356%_ _%stx114355%_))))) (define gx#syntax-local-e__0 - (lambda (_%stx115127%_) - (let ((_%E115129%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _%stx115127%_ _%E115129%_)))) + (lambda (_%stx114363%_) + (let ((_%E114365%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _%stx114363%_ _%E114365%_)))) (define gx#syntax-local-e - (lambda _g118276_ - (let ((_g118275_ (##length _g118276_))) - (cond ((##fx= _g118275_ 1) - (apply (lambda (_%stx115127%_) - (gx#syntax-local-e__0 _%stx115127%_)) - _g118276_)) - ((##fx= _g118275_ 2) - (apply (lambda (_%stx115131%_ _%E115132%_) - (gx#syntax-local-e__% _%stx115131%_ _%E115132%_)) - _g118276_)) + (lambda _g117512_ + (let ((_g117511_ (##length _g117512_))) + (cond ((##fx= _g117511_ 1) (apply gx#syntax-local-e__0 _g117512_)) + ((##fx= _g117511_ 2) (apply gx#syntax-local-e__% _g117512_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g118276_)))))) + _g117512_)))))) (define gx#syntax-local-value__% - (lambda (_%stx115103%_ _%E115104%_) - (let ((_%e115106%_ (gx#syntax-local-e__% _%stx115103%_ _%E115104%_))) - (if (##structure-instance-of? _%e115106%_ 'gx#expander::t) - (##structure-ref _%e115106%_ '1 gx#expander::t '#f) - _%e115106%_)))) + (lambda (_%stx114339%_ _%E114340%_) + (let ((_%e114342%_ (gx#syntax-local-e__% _%stx114339%_ _%E114340%_))) + (if (##structure-instance-of? _%e114342%_ 'gx#expander::t) + (##structure-ref _%e114342%_ '1 gx#expander::t '#f) + _%e114342%_)))) (define gx#syntax-local-value__0 - (lambda (_%stx115111%_) - (let ((_%E115113%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _%stx115111%_ _%E115113%_)))) + (lambda (_%stx114347%_) + (let ((_%E114349%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _%stx114347%_ _%E114349%_)))) (define gx#syntax-local-value - (lambda _g118278_ - (let ((_g118277_ (##length _g118278_))) - (cond ((##fx= _g118277_ 1) - (apply (lambda (_%stx115111%_) - (gx#syntax-local-value__0 _%stx115111%_)) - _g118278_)) - ((##fx= _g118277_ 2) - (apply (lambda (_%stx115115%_ _%E115116%_) - (gx#syntax-local-value__% _%stx115115%_ _%E115116%_)) - _g118278_)) + (lambda _g117514_ + (let ((_g117513_ (##length _g117514_))) + (cond ((##fx= _g117513_ 1) + (apply gx#syntax-local-value__0 _g117514_)) + ((##fx= _g117513_ 2) + (apply gx#syntax-local-value__% _g117514_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g118278_)))))) + _g117514_)))))) (define gx#raise-syntax-ref-error - (lambda (_%stx115100%_) + (lambda (_%stx114336%_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _%stx115100%_))))) + _%stx114336%_))))) diff --git a/src/bootstrap/gerbil/expander/core~1.scm b/src/bootstrap/gerbil/expander/core~1.scm index c13e3e6bd..641021fea 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]#_g118280_| + (define |gx[1]#_g117516_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118282_| + (define |gx[1]#_g117518_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118284_| + (define |gx[1]#_g117520_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118286_| + (define |gx[1]#_g117522_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118287_| + (define |gx[1]#_g117523_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g118289_| + (define |gx[1]#_g117525_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118290_| + (define |gx[1]#_g117526_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118292_| + (define |gx[1]#_g117528_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118293_| + (define |gx[1]#_g117529_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g118295_| + (define |gx[1]#_g117531_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118296_| + (define |gx[1]#_g117532_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118298_| + (define |gx[1]#_g117534_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118300_| + (define |gx[1]#_g117536_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118302_| + (define |gx[1]#_g117538_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118304_| + (define |gx[1]#_g117540_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118306_| + (define |gx[1]#_g117542_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118307_| + (define |gx[1]#_g117543_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g118309_| + (define |gx[1]#_g117545_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118310_| + (define |gx[1]#_g117546_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118312_| + (define |gx[1]#_g117548_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118313_| + (define |gx[1]#_g117549_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g118315_| + (define |gx[1]#_g117551_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118316_| + (define |gx[1]#_g117552_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118319_| + (define |gx[1]#_g117555_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118321_| + (define |gx[1]#_g117557_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118323_| + (define |gx[1]#_g117559_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118325_| + (define |gx[1]#_g117561_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g118326_| + (define |gx[1]#_g117562_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g118327_| + (define |gx[1]#_g117563_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g118328_| + (define |gx[1]#_g117564_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118329_| + (define |gx[1]#_g117565_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g118331_| + (define |gx[1]#_g117567_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118332_| + (define |gx[1]#_g117568_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118333_| + (define |gx[1]#_g117569_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118334_| + (define |gx[1]#_g117570_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118335_| + (define |gx[1]#_g117571_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118337_| + (define |gx[1]#_g117573_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g118338_| + (define |gx[1]#_g117574_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g118339_| + (define |gx[1]#_g117575_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g118340_| + (define |gx[1]#_g117576_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118341_| + (define |gx[1]#_g117577_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g118343_| + (define |gx[1]#_g117579_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118344_| + (define |gx[1]#_g117580_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118345_| + (define |gx[1]#_g117581_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118346_| + (define |gx[1]#_g117582_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118347_| + (define |gx[1]#_g117583_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118349_| + (define |gx[1]#_g117585_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118351_| + (define |gx[1]#_g117587_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118353_| + (define |gx[1]#_g117589_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118355_| + (define |gx[1]#_g117591_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118357_| + (define |gx[1]#_g117593_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g118358_| + (define |gx[1]#_g117594_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g118359_| + (define |gx[1]#_g117595_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g118360_| + (define |gx[1]#_g117596_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118361_| + (define |gx[1]#_g117597_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g118363_| + (define |gx[1]#_g117599_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118364_| + (define |gx[1]#_g117600_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118365_| + (define |gx[1]#_g117601_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118366_| + (define |gx[1]#_g117602_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118367_| + (define |gx[1]#_g117603_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118369_| + (define |gx[1]#_g117605_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g118370_| + (define |gx[1]#_g117606_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g118371_| + (define |gx[1]#_g117607_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g118372_| + (define |gx[1]#_g117608_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118373_| + (define |gx[1]#_g117609_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g118375_| + (define |gx[1]#_g117611_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118376_| + (define |gx[1]#_g117612_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118377_| + (define |gx[1]#_g117613_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118378_| + (define |gx[1]#_g117614_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118379_| + (define |gx[1]#_g117615_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118381_| + (define |gx[1]#_g117617_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118383_| + (define |gx[1]#_g117619_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118385_| + (define |gx[1]#_g117621_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118387_| + (define |gx[1]#_g117623_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118389_| + (define |gx[1]#_g117625_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g118390_| + (define |gx[1]#_g117626_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g118391_| + (define |gx[1]#_g117627_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g118392_| + (define |gx[1]#_g117628_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g118393_| + (define |gx[1]#_g117629_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118394_| + (define |gx[1]#_g117630_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g118395_| + (define |gx[1]#_g117631_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g118396_| + (define |gx[1]#_g117632_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g118397_| + (define |gx[1]#_g117633_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g118398_| + (define |gx[1]#_g117634_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118399_| + (define |gx[1]#_g117635_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g118401_| + (define |gx[1]#_g117637_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118402_| + (define |gx[1]#_g117638_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118403_| + (define |gx[1]#_g117639_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118404_| + (define |gx[1]#_g117640_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118405_| + (define |gx[1]#_g117641_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118406_| + (define |gx[1]#_g117642_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118407_| + (define |gx[1]#_g117643_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118408_| + (define |gx[1]#_g117644_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118409_| + (define |gx[1]#_g117645_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118410_| + (define |gx[1]#_g117646_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118411_| + (define |gx[1]#_g117647_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118413_| + (define |gx[1]#_g117649_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g118414_| + (define |gx[1]#_g117650_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g118415_| + (define |gx[1]#_g117651_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g118416_| + (define |gx[1]#_g117652_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g118417_| + (define |gx[1]#_g117653_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118418_| + (define |gx[1]#_g117654_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g118419_| + (define |gx[1]#_g117655_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g118420_| + (define |gx[1]#_g117656_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g118421_| + (define |gx[1]#_g117657_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g118422_| + (define |gx[1]#_g117658_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118423_| + (define |gx[1]#_g117659_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g118425_| + (define |gx[1]#_g117661_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118426_| + (define |gx[1]#_g117662_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118427_| + (define |gx[1]#_g117663_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118428_| + (define |gx[1]#_g117664_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118429_| + (define |gx[1]#_g117665_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118430_| + (define |gx[1]#_g117666_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118431_| + (define |gx[1]#_g117667_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118432_| + (define |gx[1]#_g117668_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118433_| + (define |gx[1]#_g117669_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118434_| + (define |gx[1]#_g117670_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118435_| + (define |gx[1]#_g117671_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118438_| + (define |gx[1]#_g117674_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118440_| + (define |gx[1]#_g117676_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118442_| + (define |gx[1]#_g117678_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118444_| + (define |gx[1]#_g117680_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g118445_| + (define |gx[1]#_g117681_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g118446_| + (define |gx[1]#_g117682_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118447_| + (define |gx[1]#_g117683_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g118448_| + (define |gx[1]#_g117684_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g118449_| + (define |gx[1]#_g117685_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g118450_| + (define |gx[1]#_g117686_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118451_| + (define |gx[1]#_g117687_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g118453_| + (define |gx[1]#_g117689_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118454_| + (define |gx[1]#_g117690_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118455_| + (define |gx[1]#_g117691_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118456_| + (define |gx[1]#_g117692_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118457_| + (define |gx[1]#_g117693_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118458_| + (define |gx[1]#_g117694_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118459_| + (define |gx[1]#_g117695_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118460_| + (define |gx[1]#_g117696_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118462_| + (define |gx[1]#_g117698_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g118463_| + (define |gx[1]#_g117699_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g118464_| + (define |gx[1]#_g117700_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118465_| + (define |gx[1]#_g117701_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g118466_| + (define |gx[1]#_g117702_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g118467_| + (define |gx[1]#_g117703_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g118468_| + (define |gx[1]#_g117704_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118469_| + (define |gx[1]#_g117705_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g118471_| + (define |gx[1]#_g117707_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118472_| + (define |gx[1]#_g117708_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118473_| + (define |gx[1]#_g117709_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118474_| + (define |gx[1]#_g117710_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118475_| + (define |gx[1]#_g117711_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118476_| + (define |gx[1]#_g117712_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118477_| + (define |gx[1]#_g117713_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118478_| + (define |gx[1]#_g117714_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118481_| + (define |gx[1]#_g117717_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118483_| + (define |gx[1]#_g117719_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118485_| + (define |gx[1]#_g117721_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118487_| + (define |gx[1]#_g117723_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g118488_| + (define |gx[1]#_g117724_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g118489_| + (define |gx[1]#_g117725_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g118490_| + (define |gx[1]#_g117726_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118491_| + (define |gx[1]#_g117727_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g118493_| + (define |gx[1]#_g117729_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118494_| + (define |gx[1]#_g117730_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118495_| + (define |gx[1]#_g117731_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118496_| + (define |gx[1]#_g117732_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118497_| + (define |gx[1]#_g117733_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118499_| + (define |gx[1]#_g117735_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g118500_| + (define |gx[1]#_g117736_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g118501_| + (define |gx[1]#_g117737_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g118502_| + (define |gx[1]#_g117738_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118503_| + (define |gx[1]#_g117739_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g118505_| + (define |gx[1]#_g117741_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118506_| + (define |gx[1]#_g117742_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118507_| + (define |gx[1]#_g117743_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118508_| + (define |gx[1]#_g117744_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118509_| + (define |gx[1]#_g117745_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118511_| + (define |gx[1]#_g117747_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118513_| + (define |gx[1]#_g117749_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g118515_| + (define |gx[1]#_g117751_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118517_| + (define |gx[1]#_g117753_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118518_| + (define |gx[1]#_g117754_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118519_| + (define |gx[1]#_g117755_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118521_| + (define |gx[1]#_g117757_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118522_| + (define |gx[1]#_g117758_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118523_| + (define |gx[1]#_g117759_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118525_| + (define |gx[1]#_g117761_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118526_| + (define |gx[1]#_g117762_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118527_| + (define |gx[1]#_g117763_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118529_| + (define |gx[1]#_g117765_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118530_| + (define |gx[1]#_g117766_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118531_| + (define |gx[1]#_g117767_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118533_| + (define |gx[1]#_g117769_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g118535_| + (define |gx[1]#_g117771_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118537_| + (define |gx[1]#_g117773_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g118539_| + (define |gx[1]#_g117775_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118541_| + (define |gx[1]#_g117777_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118542_| + (define |gx[1]#_g117778_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118543_| + (define |gx[1]#_g117779_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118545_| + (define |gx[1]#_g117781_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118546_| + (define |gx[1]#_g117782_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118547_| + (define |gx[1]#_g117783_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118549_| + (define |gx[1]#_g117785_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118550_| + (define |gx[1]#_g117786_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118551_| + (define |gx[1]#_g117787_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118553_| + (define |gx[1]#_g117789_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118554_| + (define |gx[1]#_g117790_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118555_| + (define |gx[1]#_g117791_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118557_| + (define |gx[1]#_g117793_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g118559_| + (define |gx[1]#_g117795_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118561_| + (define |gx[1]#_g117797_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g118563_| + (define |gx[1]#_g117799_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118565_| + (define |gx[1]#_g117801_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118566_| + (define |gx[1]#_g117802_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118567_| + (define |gx[1]#_g117803_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118569_| + (define |gx[1]#_g117805_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118570_| + (define |gx[1]#_g117806_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118571_| + (define |gx[1]#_g117807_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118573_| + (define |gx[1]#_g117809_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118574_| + (define |gx[1]#_g117810_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118575_| + (define |gx[1]#_g117811_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118577_| + (define |gx[1]#_g117813_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118578_| + (define |gx[1]#_g117814_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118579_| + (define |gx[1]#_g117815_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118582_| + (define |gx[1]#_g117818_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118584_| + (define |gx[1]#_g117820_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g118586_| + (define |gx[1]#_g117822_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118588_| + (define |gx[1]#_g117824_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118589_| + (define |gx[1]#_g117825_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118590_| + (define |gx[1]#_g117826_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118592_| + (define |gx[1]#_g117828_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118593_| + (define |gx[1]#_g117829_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118594_| + (define |gx[1]#_g117830_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118596_| + (define |gx[1]#_g117832_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118597_| + (define |gx[1]#_g117833_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118598_| + (define |gx[1]#_g117834_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118600_| + (define |gx[1]#_g117836_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118601_| + (define |gx[1]#_g117837_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118602_| + (define |gx[1]#_g117838_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118604_| + (define |gx[1]#_g117840_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g118606_| + (define |gx[1]#_g117842_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118608_| + (define |gx[1]#_g117844_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g118610_| + (define |gx[1]#_g117846_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118612_| + (define |gx[1]#_g117848_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118613_| + (define |gx[1]#_g117849_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118614_| + (define |gx[1]#_g117850_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118615_| + (define |gx[1]#_g117851_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118617_| + (define |gx[1]#_g117853_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118618_| + (define |gx[1]#_g117854_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118619_| + (define |gx[1]#_g117855_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118620_| + (define |gx[1]#_g117856_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118622_| + (define |gx[1]#_g117858_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118623_| + (define |gx[1]#_g117859_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118624_| + (define |gx[1]#_g117860_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118625_| + (define |gx[1]#_g117861_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118627_| + (define |gx[1]#_g117863_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118628_| + (define |gx[1]#_g117864_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118629_| + (define |gx[1]#_g117865_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118630_| + (define |gx[1]#_g117866_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118633_| + (define |gx[1]#_g117869_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118635_| + (define |gx[1]#_g117871_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g118637_| + (define |gx[1]#_g117873_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118639_| + (define |gx[1]#_g117875_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118640_| + (define |gx[1]#_g117876_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118641_| + (define |gx[1]#_g117877_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118643_| + (define |gx[1]#_g117879_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118644_| + (define |gx[1]#_g117880_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118645_| + (define |gx[1]#_g117881_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118647_| + (define |gx[1]#_g117883_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118648_| + (define |gx[1]#_g117884_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118649_| + (define |gx[1]#_g117885_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118651_| + (define |gx[1]#_g117887_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118652_| + (define |gx[1]#_g117888_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118653_| + (define |gx[1]#_g117889_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118656_| + (define |gx[1]#_g117892_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118658_| + (define |gx[1]#_g117894_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g118660_| + (define |gx[1]#_g117896_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118662_| + (define |gx[1]#_g117898_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118663_| + (define |gx[1]#_g117899_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118664_| + (define |gx[1]#_g117900_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118665_| + (define |gx[1]#_g117901_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118667_| + (define |gx[1]#_g117903_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118668_| + (define |gx[1]#_g117904_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118669_| + (define |gx[1]#_g117905_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118670_| + (define |gx[1]#_g117906_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118672_| + (define |gx[1]#_g117908_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118673_| + (define |gx[1]#_g117909_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118674_| + (define |gx[1]#_g117910_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118675_| + (define |gx[1]#_g117911_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118677_| + (define |gx[1]#_g117913_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118678_| + (define |gx[1]#_g117914_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118679_| + (define |gx[1]#_g117915_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118680_| + (define |gx[1]#_g117916_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118683_| + (define |gx[1]#_g117919_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118685_| + (define |gx[1]#_g117921_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g118687_| + (define |gx[1]#_g117923_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118689_| + (define |gx[1]#_g117925_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118690_| + (define |gx[1]#_g117926_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118691_| + (define |gx[1]#_g117927_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118692_| + (define |gx[1]#_g117928_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118693_| + (define |gx[1]#_g117929_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118694_| + (define |gx[1]#_g117930_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118696_| + (define |gx[1]#_g117932_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118697_| + (define |gx[1]#_g117933_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118698_| + (define |gx[1]#_g117934_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118699_| + (define |gx[1]#_g117935_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118700_| + (define |gx[1]#_g117936_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118701_| + (define |gx[1]#_g117937_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118703_| + (define |gx[1]#_g117939_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118704_| + (define |gx[1]#_g117940_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118705_| + (define |gx[1]#_g117941_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118706_| + (define |gx[1]#_g117942_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118707_| + (define |gx[1]#_g117943_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118708_| + (define |gx[1]#_g117944_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118710_| + (define |gx[1]#_g117946_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118711_| + (define |gx[1]#_g117947_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118712_| + (define |gx[1]#_g117948_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118713_| + (define |gx[1]#_g117949_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118714_| + (define |gx[1]#_g117950_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118715_| + (define |gx[1]#_g117951_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118718_| + (define |gx[1]#_g117954_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118720_| + (define |gx[1]#_g117956_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g118722_| + (define |gx[1]#_g117958_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118724_| + (define |gx[1]#_g117960_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118725_| + (define |gx[1]#_g117961_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118726_| + (define |gx[1]#_g117962_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118727_| + (define |gx[1]#_g117963_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118729_| + (define |gx[1]#_g117965_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118730_| + (define |gx[1]#_g117966_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118731_| + (define |gx[1]#_g117967_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118732_| + (define |gx[1]#_g117968_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118734_| + (define |gx[1]#_g117970_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118735_| + (define |gx[1]#_g117971_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118736_| + (define |gx[1]#_g117972_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g118737_| + (define |gx[1]#_g117973_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118739_| + (define |gx[1]#_g117975_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118740_| + (define |gx[1]#_g117976_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118741_| + (define |gx[1]#_g117977_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118742_| + (define |gx[1]#_g117978_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118744_| + (define |gx[1]#_g117980_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118746_| + (define |gx[1]#_g117982_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g118748_| + (define |gx[1]#_g117984_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118750_| + (define |gx[1]#_g117986_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118752_| + (define |gx[1]#_g117988_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118754_| + (define |gx[1]#_g117990_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118756_| + (define |gx[1]#_g117992_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118758_| + (define |gx[1]#_g117994_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g118760_| + (define |gx[1]#_g117996_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118762_| + (define |gx[1]#_g117998_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g118764_| + (define |gx[1]#_g118000_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118766_| + (define |gx[1]#_g118002_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118767_| + (define |gx[1]#_g118003_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g118768_| + (define |gx[1]#_g118004_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118770_| + (define |gx[1]#_g118006_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118771_| + (define |gx[1]#_g118007_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118772_| + (define |gx[1]#_g118008_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118774_| + (define |gx[1]#_g118010_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118775_| + (define |gx[1]#_g118011_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g118776_| + (define |gx[1]#_g118012_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118778_| + (define |gx[1]#_g118014_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118779_| + (define |gx[1]#_g118015_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118780_| + (define |gx[1]#_g118016_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118782_| + (define |gx[1]#_g118018_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g118784_| + (define |gx[1]#_g118020_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118786_| + (define |gx[1]#_g118022_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g118788_| + (define |gx[1]#_g118024_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118790_| + (define |gx[1]#_g118026_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118791_| + (define |gx[1]#_g118027_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g118792_| + (define |gx[1]#_g118028_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118794_| + (define |gx[1]#_g118030_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118795_| + (define |gx[1]#_g118031_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118796_| + (define |gx[1]#_g118032_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118798_| + (define |gx[1]#_g118034_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118799_| + (define |gx[1]#_g118035_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g118800_| + (define |gx[1]#_g118036_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118802_| + (define |gx[1]#_g118038_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118803_| + (define |gx[1]#_g118039_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118804_| + (define |gx[1]#_g118040_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118807_| + (define |gx[1]#_g118043_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118809_| + (define |gx[1]#_g118045_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g118811_| + (define |gx[1]#_g118047_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118813_| + (define |gx[1]#_g118049_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118814_| + (define |gx[1]#_g118050_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g118815_| + (define |gx[1]#_g118051_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118817_| + (define |gx[1]#_g118053_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118818_| + (define |gx[1]#_g118054_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118819_| + (define |gx[1]#_g118055_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118821_| + (define |gx[1]#_g118057_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118822_| + (define |gx[1]#_g118058_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g118823_| + (define |gx[1]#_g118059_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118825_| + (define |gx[1]#_g118061_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118826_| + (define |gx[1]#_g118062_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118827_| + (define |gx[1]#_g118063_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118829_| + (define |gx[1]#_g118065_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g118831_| + (define |gx[1]#_g118067_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118833_| + (define |gx[1]#_g118069_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g118835_| + (define |gx[1]#_g118071_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118837_| + (define |gx[1]#_g118073_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118838_| + (define |gx[1]#_g118074_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g118839_| + (define |gx[1]#_g118075_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118841_| + (define |gx[1]#_g118077_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118842_| + (define |gx[1]#_g118078_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118843_| + (define |gx[1]#_g118079_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118845_| + (define |gx[1]#_g118081_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118846_| + (define |gx[1]#_g118082_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g118847_| + (define |gx[1]#_g118083_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118849_| + (define |gx[1]#_g118085_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118850_| + (define |gx[1]#_g118086_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118851_| + (define |gx[1]#_g118087_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118854_| + (define |gx[1]#_g118090_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118856_| + (define |gx[1]#_g118092_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g118858_| + (define |gx[1]#_g118094_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118860_| + (define |gx[1]#_g118096_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118861_| + (define |gx[1]#_g118097_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g118862_| + (define |gx[1]#_g118098_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118864_| + (define |gx[1]#_g118100_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118865_| + (define |gx[1]#_g118101_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118866_| + (define |gx[1]#_g118102_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118868_| + (define |gx[1]#_g118104_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118869_| + (define |gx[1]#_g118105_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g118870_| + (define |gx[1]#_g118106_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118872_| + (define |gx[1]#_g118108_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118873_| + (define |gx[1]#_g118109_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118874_| + (define |gx[1]#_g118110_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118876_| + (define |gx[1]#_g118112_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g118878_| + (define |gx[1]#_g118114_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118880_| + (define |gx[1]#_g118116_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g118882_| + (define |gx[1]#_g118118_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118884_| + (define |gx[1]#_g118120_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118885_| + (define |gx[1]#_g118121_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g118886_| + (define |gx[1]#_g118122_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118888_| + (define |gx[1]#_g118124_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118889_| + (define |gx[1]#_g118125_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118890_| + (define |gx[1]#_g118126_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118892_| + (define |gx[1]#_g118128_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g118893_| + (define |gx[1]#_g118129_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g118894_| + (define |gx[1]#_g118130_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118896_| + (define |gx[1]#_g118132_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118897_| + (define |gx[1]#_g118133_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118898_| + (define |gx[1]#_g118134_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118901_| + (define |gx[1]#_g118137_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118903_| + (define |gx[1]#_g118139_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g118905_| + (define |gx[1]#_g118141_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118907_| + (define |gx[1]#_g118143_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118909_| + (define |gx[1]#_g118145_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118911_| + (define |gx[1]#_g118147_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118913_| + (define |gx[1]#_g118149_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118915_| + (define |gx[1]#_g118151_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g118917_| + (define |gx[1]#_g118153_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118919_| + (define |gx[1]#_g118155_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g118921_| + (define |gx[1]#_g118157_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118923_| + (define |gx[1]#_g118159_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118925_| + (define |gx[1]#_g118161_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118927_| + (define |gx[1]#_g118163_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118929_| + (define |gx[1]#_g118165_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118932_| + (define |gx[1]#_g118168_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118934_| + (define |gx[1]#_g118170_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g118936_| + (define |gx[1]#_g118172_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118938_| + (define |gx[1]#_g118174_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118940_| + (define |gx[1]#_g118176_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118942_| + (define |gx[1]#_g118178_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118944_| + (define |gx[1]#_g118180_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118947_| + (define |gx[1]#_g118183_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118949_| + (define |gx[1]#_g118185_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g118951_| + (define |gx[1]#_g118187_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118953_| + (define |gx[1]#_g118189_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118955_| + (define |gx[1]#_g118191_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118957_| + (define |gx[1]#_g118193_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118959_| + (define |gx[1]#_g118195_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118961_| + (define |gx[1]#_g118197_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g118963_| + (define |gx[1]#_g118199_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118965_| + (define |gx[1]#_g118201_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g118967_| + (define |gx[1]#_g118203_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118969_| + (define |gx[1]#_g118205_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118971_| + (define |gx[1]#_g118207_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118973_| + (define |gx[1]#_g118209_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118975_| + (define |gx[1]#_g118211_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118978_| + (define |gx[1]#_g118214_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118980_| + (define |gx[1]#_g118216_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g118982_| + (define |gx[1]#_g118218_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118984_| + (define |gx[1]#_g118220_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118985_| + (define |gx[1]#_g118221_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118986_| + (define |gx[1]#_g118222_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118988_| + (define |gx[1]#_g118224_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118989_| + (define |gx[1]#_g118225_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118990_| + (define |gx[1]#_g118226_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118992_| + (define |gx[1]#_g118228_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118993_| + (define |gx[1]#_g118229_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g118994_| + (define |gx[1]#_g118230_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118996_| + (define |gx[1]#_g118232_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118997_| + (define |gx[1]#_g118233_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118998_| + (define |gx[1]#_g118234_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g119000_| + (define |gx[1]#_g118236_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g119002_| + (define |gx[1]#_g118238_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g119004_| + (define |gx[1]#_g118240_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g119006_| + (define |gx[1]#_g118242_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g119007_| + (define |gx[1]#_g118243_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g119008_| + (define |gx[1]#_g118244_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g119009_| + (define |gx[1]#_g118245_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g119011_| + (define |gx[1]#_g118247_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g119012_| + (define |gx[1]#_g118248_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g119013_| + (define |gx[1]#_g118249_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g119014_| + (define |gx[1]#_g118250_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g119016_| + (define |gx[1]#_g118252_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g119017_| + (define |gx[1]#_g118253_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g119018_| + (define |gx[1]#_g118254_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g119019_| + (define |gx[1]#_g118255_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g119021_| + (define |gx[1]#_g118257_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g119022_| + (define |gx[1]#_g118258_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g119023_| + (define |gx[1]#_g118259_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g119024_| + (define |gx[1]#_g118260_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj118198 + (let ((__obj117434 (let () (declare (not safe)) (##structure @@ -3601,7 +3601,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118198 + __obj117434 'gx#expander-context::t '1 '#f @@ -3609,73 +3609,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118198 + __obj117434 'expander-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118198 '(id table) '4 '#f '#f)) + (##unchecked-structure-set! __obj117434 '(id table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118198 '(id table) '6 '#f '#f)) + (##unchecked-structure-set! __obj117434 '(id table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118198 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj117434 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118198 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117434 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118198 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117434 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118198 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117434 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118198 ':init! '11 '#f '#f)) - (let ((__tmp118279 |gx[1]#_g118280_|)) + (##unchecked-structure-set! __obj117434 ':init! '11 '#f '#f)) + (let ((__tmp117515 |gx[1]#_g117516_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118198 __tmp118279 '12 '#f '#f)) - (let ((__tmp118281 |gx[1]#_g118282_|)) + (##unchecked-structure-set! __obj117434 __tmp117515 '12 '#f '#f)) + (let ((__tmp117517 |gx[1]#_g117518_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118198 __tmp118281 '13 '#f '#f)) - (let ((__tmp118283 |gx[1]#_g118284_|)) + (##unchecked-structure-set! __obj117434 __tmp117517 '13 '#f '#f)) + (let ((__tmp117519 |gx[1]#_g117520_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118198 __tmp118283 '14 '#f '#f)) - (let ((__tmp118285 - (cons (cons 'id |gx[1]#_g118286_|) - (cons (cons 'table |gx[1]#_g118287_|) '())))) + (##unchecked-structure-set! __obj117434 __tmp117519 '14 '#f '#f)) + (let ((__tmp117521 + (cons (cons 'id |gx[1]#_g117522_|) + (cons (cons 'table |gx[1]#_g117523_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118198 __tmp118285 '15 '#f '#f)) - (let ((__tmp118288 - (cons (cons 'id |gx[1]#_g118289_|) - (cons (cons 'table |gx[1]#_g118290_|) '())))) + (##unchecked-structure-set! __obj117434 __tmp117521 '15 '#f '#f)) + (let ((__tmp117524 + (cons (cons 'id |gx[1]#_g117525_|) + (cons (cons 'table |gx[1]#_g117526_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118198 __tmp118288 '16 '#f '#f)) - (let ((__tmp118291 - (cons (cons 'id |gx[1]#_g118292_|) - (cons (cons 'table |gx[1]#_g118293_|) '())))) + (##unchecked-structure-set! __obj117434 __tmp117524 '16 '#f '#f)) + (let ((__tmp117527 + (cons (cons 'id |gx[1]#_g117528_|) + (cons (cons 'table |gx[1]#_g117529_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118198 __tmp118291 '17 '#f '#f)) - (let ((__tmp118294 - (cons (cons 'id |gx[1]#_g118295_|) - (cons (cons 'table |gx[1]#_g118296_|) '())))) + (##unchecked-structure-set! __obj117434 __tmp117527 '17 '#f '#f)) + (let ((__tmp117530 + (cons (cons 'id |gx[1]#_g117531_|) + (cons (cons 'table |gx[1]#_g117532_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118198 __tmp118294 '18 '#f '#f)) + (##unchecked-structure-set! __obj117434 __tmp117530 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118198 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117434 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118198 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117434 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118198 '() '20 '#f '#f)) - __obj118198)) + (##unchecked-structure-set! __obj117434 '() '20 '#f '#f)) + __obj117434)) (define |gx[:0:]#root-context| - (let ((__obj118199 + (let ((__obj117435 (let () (declare (not safe)) (##structure @@ -3704,76 +3704,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118199 + __obj117435 'gx#root-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118199 'root-context '2 '#f '#f)) + (##unchecked-structure-set! __obj117435 'root-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118199 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117435 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118199 '(id table) '6 '#f '#f)) - (let ((__tmp118297 (cons |gx[1]#_g118298_| '()))) + (##unchecked-structure-set! __obj117435 '(id table) '6 '#f '#f)) + (let ((__tmp117533 (cons |gx[1]#_g117534_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118199 __tmp118297 '3 '#f '#f)) + (##unchecked-structure-set! __obj117435 __tmp117533 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118199 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117435 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118199 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117435 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118199 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117435 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118199 '#f '11 '#f '#f)) - (let ((__tmp118299 |gx[1]#_g118300_|)) + (##unchecked-structure-set! __obj117435 '#f '11 '#f '#f)) + (let ((__tmp117535 |gx[1]#_g117536_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118199 __tmp118299 '12 '#f '#f)) - (let ((__tmp118301 |gx[1]#_g118302_|)) + (##unchecked-structure-set! __obj117435 __tmp117535 '12 '#f '#f)) + (let ((__tmp117537 |gx[1]#_g117538_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118199 __tmp118301 '13 '#f '#f)) - (let ((__tmp118303 |gx[1]#_g118304_|)) + (##unchecked-structure-set! __obj117435 __tmp117537 '13 '#f '#f)) + (let ((__tmp117539 |gx[1]#_g117540_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118199 __tmp118303 '14 '#f '#f)) - (let ((__tmp118305 - (cons (cons 'id |gx[1]#_g118306_|) - (cons (cons 'table |gx[1]#_g118307_|) '())))) + (##unchecked-structure-set! __obj117435 __tmp117539 '14 '#f '#f)) + (let ((__tmp117541 + (cons (cons 'id |gx[1]#_g117542_|) + (cons (cons 'table |gx[1]#_g117543_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118199 __tmp118305 '15 '#f '#f)) - (let ((__tmp118308 - (cons (cons 'id |gx[1]#_g118309_|) - (cons (cons 'table |gx[1]#_g118310_|) '())))) + (##unchecked-structure-set! __obj117435 __tmp117541 '15 '#f '#f)) + (let ((__tmp117544 + (cons (cons 'id |gx[1]#_g117545_|) + (cons (cons 'table |gx[1]#_g117546_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118199 __tmp118308 '16 '#f '#f)) - (let ((__tmp118311 - (cons (cons 'id |gx[1]#_g118312_|) - (cons (cons 'table |gx[1]#_g118313_|) '())))) + (##unchecked-structure-set! __obj117435 __tmp117544 '16 '#f '#f)) + (let ((__tmp117547 + (cons (cons 'id |gx[1]#_g117548_|) + (cons (cons 'table |gx[1]#_g117549_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118199 __tmp118311 '17 '#f '#f)) - (let ((__tmp118314 - (cons (cons 'id |gx[1]#_g118315_|) - (cons (cons 'table |gx[1]#_g118316_|) '())))) + (##unchecked-structure-set! __obj117435 __tmp117547 '17 '#f '#f)) + (let ((__tmp117550 + (cons (cons 'id |gx[1]#_g117551_|) + (cons (cons 'table |gx[1]#_g117552_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118199 __tmp118314 '18 '#f '#f)) + (##unchecked-structure-set! __obj117435 __tmp117550 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118199 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117435 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118199 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117435 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118199 '() '20 '#f '#f)) - __obj118199)) + (##unchecked-structure-set! __obj117435 '() '20 '#f '#f)) + __obj117435)) (define |gx[:0:]#phi-context| - (let ((__obj118200 + (let ((__obj117436 (let () (declare (not safe)) (##structure @@ -3802,97 +3802,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118200 + __obj117436 'gx#phi-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118200 'phi-context '2 '#f '#f)) + (##unchecked-structure-set! __obj117436 'phi-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118200 '(super up down) '4 '#f '#f)) + (##unchecked-structure-set! __obj117436 '(super up down) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118200 + __obj117436 '(id table super up down) '6 '#f '#f)) - (let ((__tmp118317 (cons |gx[1]#_g118298_| '()))) + (let ((__tmp117553 (cons |gx[1]#_g117534_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118200 __tmp118317 '3 '#f '#f)) + (##unchecked-structure-set! __obj117436 __tmp117553 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118200 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117436 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118200 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117436 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118200 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117436 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118200 '#f '11 '#f '#f)) - (let ((__tmp118318 |gx[1]#_g118319_|)) + (##unchecked-structure-set! __obj117436 '#f '11 '#f '#f)) + (let ((__tmp117554 |gx[1]#_g117555_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118200 __tmp118318 '12 '#f '#f)) - (let ((__tmp118320 |gx[1]#_g118321_|)) + (##unchecked-structure-set! __obj117436 __tmp117554 '12 '#f '#f)) + (let ((__tmp117556 |gx[1]#_g117557_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118200 __tmp118320 '13 '#f '#f)) - (let ((__tmp118322 |gx[1]#_g118323_|)) + (##unchecked-structure-set! __obj117436 __tmp117556 '13 '#f '#f)) + (let ((__tmp117558 |gx[1]#_g117559_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118200 __tmp118322 '14 '#f '#f)) - (let ((__tmp118324 - (cons (cons 'super |gx[1]#_g118325_|) - (cons (cons 'up |gx[1]#_g118326_|) - (cons (cons 'down |gx[1]#_g118327_|) - (cons (cons 'id |gx[1]#_g118328_|) - (cons (cons 'table |gx[1]#_g118329_|) + (##unchecked-structure-set! __obj117436 __tmp117558 '14 '#f '#f)) + (let ((__tmp117560 + (cons (cons 'super |gx[1]#_g117561_|) + (cons (cons 'up |gx[1]#_g117562_|) + (cons (cons 'down |gx[1]#_g117563_|) + (cons (cons 'id |gx[1]#_g117564_|) + (cons (cons 'table |gx[1]#_g117565_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118200 __tmp118324 '15 '#f '#f)) - (let ((__tmp118330 - (cons (cons 'super |gx[1]#_g118331_|) - (cons (cons 'up |gx[1]#_g118332_|) - (cons (cons 'down |gx[1]#_g118333_|) - (cons (cons 'id |gx[1]#_g118334_|) - (cons (cons 'table |gx[1]#_g118335_|) + (##unchecked-structure-set! __obj117436 __tmp117560 '15 '#f '#f)) + (let ((__tmp117566 + (cons (cons 'super |gx[1]#_g117567_|) + (cons (cons 'up |gx[1]#_g117568_|) + (cons (cons 'down |gx[1]#_g117569_|) + (cons (cons 'id |gx[1]#_g117570_|) + (cons (cons 'table |gx[1]#_g117571_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118200 __tmp118330 '16 '#f '#f)) - (let ((__tmp118336 - (cons (cons 'super |gx[1]#_g118337_|) - (cons (cons 'up |gx[1]#_g118338_|) - (cons (cons 'down |gx[1]#_g118339_|) - (cons (cons 'id |gx[1]#_g118340_|) - (cons (cons 'table |gx[1]#_g118341_|) + (##unchecked-structure-set! __obj117436 __tmp117566 '16 '#f '#f)) + (let ((__tmp117572 + (cons (cons 'super |gx[1]#_g117573_|) + (cons (cons 'up |gx[1]#_g117574_|) + (cons (cons 'down |gx[1]#_g117575_|) + (cons (cons 'id |gx[1]#_g117576_|) + (cons (cons 'table |gx[1]#_g117577_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118200 __tmp118336 '17 '#f '#f)) - (let ((__tmp118342 - (cons (cons 'super |gx[1]#_g118343_|) - (cons (cons 'up |gx[1]#_g118344_|) - (cons (cons 'down |gx[1]#_g118345_|) - (cons (cons 'id |gx[1]#_g118346_|) - (cons (cons 'table |gx[1]#_g118347_|) + (##unchecked-structure-set! __obj117436 __tmp117572 '17 '#f '#f)) + (let ((__tmp117578 + (cons (cons 'super |gx[1]#_g117579_|) + (cons (cons 'up |gx[1]#_g117580_|) + (cons (cons 'down |gx[1]#_g117581_|) + (cons (cons 'id |gx[1]#_g117582_|) + (cons (cons 'table |gx[1]#_g117583_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118200 __tmp118342 '18 '#f '#f)) + (##unchecked-structure-set! __obj117436 __tmp117578 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118200 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117436 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118200 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117436 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118200 '() '20 '#f '#f)) - __obj118200)) + (##unchecked-structure-set! __obj117436 '() '20 '#f '#f)) + __obj117436)) (define |gx[:0:]#top-context| - (let ((__obj118201 + (let ((__obj117437 (let () (declare (not safe)) (##structure @@ -3921,97 +3921,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118201 + __obj117437 'gx#top-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118201 'top-context '2 '#f '#f)) + (##unchecked-structure-set! __obj117437 'top-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118201 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117437 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118201 + __obj117437 '(id table super up down) '6 '#f '#f)) - (let ((__tmp118348 (cons |gx[1]#_g118349_| '()))) + (let ((__tmp117584 (cons |gx[1]#_g117585_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118201 __tmp118348 '3 '#f '#f)) + (##unchecked-structure-set! __obj117437 __tmp117584 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118201 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117437 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118201 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117437 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118201 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117437 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118201 '#f '11 '#f '#f)) - (let ((__tmp118350 |gx[1]#_g118351_|)) + (##unchecked-structure-set! __obj117437 '#f '11 '#f '#f)) + (let ((__tmp117586 |gx[1]#_g117587_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118201 __tmp118350 '12 '#f '#f)) - (let ((__tmp118352 |gx[1]#_g118353_|)) + (##unchecked-structure-set! __obj117437 __tmp117586 '12 '#f '#f)) + (let ((__tmp117588 |gx[1]#_g117589_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118201 __tmp118352 '13 '#f '#f)) - (let ((__tmp118354 |gx[1]#_g118355_|)) + (##unchecked-structure-set! __obj117437 __tmp117588 '13 '#f '#f)) + (let ((__tmp117590 |gx[1]#_g117591_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118201 __tmp118354 '14 '#f '#f)) - (let ((__tmp118356 - (cons (cons 'super |gx[1]#_g118357_|) - (cons (cons 'up |gx[1]#_g118358_|) - (cons (cons 'down |gx[1]#_g118359_|) - (cons (cons 'id |gx[1]#_g118360_|) - (cons (cons 'table |gx[1]#_g118361_|) + (##unchecked-structure-set! __obj117437 __tmp117590 '14 '#f '#f)) + (let ((__tmp117592 + (cons (cons 'super |gx[1]#_g117593_|) + (cons (cons 'up |gx[1]#_g117594_|) + (cons (cons 'down |gx[1]#_g117595_|) + (cons (cons 'id |gx[1]#_g117596_|) + (cons (cons 'table |gx[1]#_g117597_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118201 __tmp118356 '15 '#f '#f)) - (let ((__tmp118362 - (cons (cons 'super |gx[1]#_g118363_|) - (cons (cons 'up |gx[1]#_g118364_|) - (cons (cons 'down |gx[1]#_g118365_|) - (cons (cons 'id |gx[1]#_g118366_|) - (cons (cons 'table |gx[1]#_g118367_|) + (##unchecked-structure-set! __obj117437 __tmp117592 '15 '#f '#f)) + (let ((__tmp117598 + (cons (cons 'super |gx[1]#_g117599_|) + (cons (cons 'up |gx[1]#_g117600_|) + (cons (cons 'down |gx[1]#_g117601_|) + (cons (cons 'id |gx[1]#_g117602_|) + (cons (cons 'table |gx[1]#_g117603_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118201 __tmp118362 '16 '#f '#f)) - (let ((__tmp118368 - (cons (cons 'super |gx[1]#_g118369_|) - (cons (cons 'up |gx[1]#_g118370_|) - (cons (cons 'down |gx[1]#_g118371_|) - (cons (cons 'id |gx[1]#_g118372_|) - (cons (cons 'table |gx[1]#_g118373_|) + (##unchecked-structure-set! __obj117437 __tmp117598 '16 '#f '#f)) + (let ((__tmp117604 + (cons (cons 'super |gx[1]#_g117605_|) + (cons (cons 'up |gx[1]#_g117606_|) + (cons (cons 'down |gx[1]#_g117607_|) + (cons (cons 'id |gx[1]#_g117608_|) + (cons (cons 'table |gx[1]#_g117609_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118201 __tmp118368 '17 '#f '#f)) - (let ((__tmp118374 - (cons (cons 'super |gx[1]#_g118375_|) - (cons (cons 'up |gx[1]#_g118376_|) - (cons (cons 'down |gx[1]#_g118377_|) - (cons (cons 'id |gx[1]#_g118378_|) - (cons (cons 'table |gx[1]#_g118379_|) + (##unchecked-structure-set! __obj117437 __tmp117604 '17 '#f '#f)) + (let ((__tmp117610 + (cons (cons 'super |gx[1]#_g117611_|) + (cons (cons 'up |gx[1]#_g117612_|) + (cons (cons 'down |gx[1]#_g117613_|) + (cons (cons 'id |gx[1]#_g117614_|) + (cons (cons 'table |gx[1]#_g117615_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118201 __tmp118374 '18 '#f '#f)) + (##unchecked-structure-set! __obj117437 __tmp117610 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118201 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117437 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118201 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117437 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118201 '() '20 '#f '#f)) - __obj118201)) + (##unchecked-structure-set! __obj117437 '() '20 '#f '#f)) + __obj117437)) (define |gx[:0:]#module-context| - (let ((__obj118202 + (let ((__obj117438 (let () (declare (not safe)) (##structure @@ -4040,18 +4040,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118202 + __obj117438 'gx#module-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118202 'module-context '2 '#f '#f)) + (##unchecked-structure-set! __obj117438 'module-context '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118202 + __obj117438 '(ns path import export e code) '4 '#f @@ -4059,127 +4059,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118202 + __obj117438 '(id table super up down ns path import export e code) '6 '#f '#f)) - (let ((__tmp118380 (cons |gx[1]#_g118381_| '()))) + (let ((__tmp117616 (cons |gx[1]#_g117617_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118202 __tmp118380 '3 '#f '#f)) + (##unchecked-structure-set! __obj117438 __tmp117616 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118202 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117438 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118202 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117438 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118202 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117438 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118202 '#f '11 '#f '#f)) - (let ((__tmp118382 |gx[1]#_g118383_|)) + (##unchecked-structure-set! __obj117438 '#f '11 '#f '#f)) + (let ((__tmp117618 |gx[1]#_g117619_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118202 __tmp118382 '12 '#f '#f)) - (let ((__tmp118384 |gx[1]#_g118385_|)) + (##unchecked-structure-set! __obj117438 __tmp117618 '12 '#f '#f)) + (let ((__tmp117620 |gx[1]#_g117621_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118202 __tmp118384 '13 '#f '#f)) - (let ((__tmp118386 |gx[1]#_g118387_|)) + (##unchecked-structure-set! __obj117438 __tmp117620 '13 '#f '#f)) + (let ((__tmp117622 |gx[1]#_g117623_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118202 __tmp118386 '14 '#f '#f)) - (let ((__tmp118388 - (cons (cons 'ns |gx[1]#_g118389_|) - (cons (cons 'path |gx[1]#_g118390_|) - (cons (cons 'import |gx[1]#_g118391_|) - (cons (cons 'export |gx[1]#_g118392_|) - (cons (cons 'e |gx[1]#_g118393_|) + (##unchecked-structure-set! __obj117438 __tmp117622 '14 '#f '#f)) + (let ((__tmp117624 + (cons (cons 'ns |gx[1]#_g117625_|) + (cons (cons 'path |gx[1]#_g117626_|) + (cons (cons 'import |gx[1]#_g117627_|) + (cons (cons 'export |gx[1]#_g117628_|) + (cons (cons 'e |gx[1]#_g117629_|) (cons (cons 'code - |gx[1]#_g118394_|) + |gx[1]#_g117630_|) (cons (cons 'super - |gx[1]#_g118395_|) + |gx[1]#_g117631_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g118396_|) - (cons (cons 'down |gx[1]#_g118397_|) - (cons (cons 'id |gx[1]#_g118398_|) - (cons (cons 'table |gx[1]#_g118399_|) + |gx[1]#_g117632_|) + (cons (cons 'down |gx[1]#_g117633_|) + (cons (cons 'id |gx[1]#_g117634_|) + (cons (cons 'table |gx[1]#_g117635_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj118202 __tmp118388 '15 '#f '#f)) - (let ((__tmp118400 - (cons (cons 'ns |gx[1]#_g118401_|) - (cons (cons 'path |gx[1]#_g118402_|) - (cons (cons 'import |gx[1]#_g118403_|) - (cons (cons 'export |gx[1]#_g118404_|) - (cons (cons 'e |gx[1]#_g118405_|) + (##unchecked-structure-set! __obj117438 __tmp117624 '15 '#f '#f)) + (let ((__tmp117636 + (cons (cons 'ns |gx[1]#_g117637_|) + (cons (cons 'path |gx[1]#_g117638_|) + (cons (cons 'import |gx[1]#_g117639_|) + (cons (cons 'export |gx[1]#_g117640_|) + (cons (cons 'e |gx[1]#_g117641_|) (cons (cons 'code - |gx[1]#_g118406_|) + |gx[1]#_g117642_|) (cons (cons 'super - |gx[1]#_g118407_|) + |gx[1]#_g117643_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g118408_|) - (cons (cons 'down |gx[1]#_g118409_|) - (cons (cons 'id |gx[1]#_g118410_|) - (cons (cons 'table |gx[1]#_g118411_|) + |gx[1]#_g117644_|) + (cons (cons 'down |gx[1]#_g117645_|) + (cons (cons 'id |gx[1]#_g117646_|) + (cons (cons 'table |gx[1]#_g117647_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj118202 __tmp118400 '16 '#f '#f)) - (let ((__tmp118412 - (cons (cons 'ns |gx[1]#_g118413_|) - (cons (cons 'path |gx[1]#_g118414_|) - (cons (cons 'import |gx[1]#_g118415_|) - (cons (cons 'export |gx[1]#_g118416_|) - (cons (cons 'e |gx[1]#_g118417_|) + (##unchecked-structure-set! __obj117438 __tmp117636 '16 '#f '#f)) + (let ((__tmp117648 + (cons (cons 'ns |gx[1]#_g117649_|) + (cons (cons 'path |gx[1]#_g117650_|) + (cons (cons 'import |gx[1]#_g117651_|) + (cons (cons 'export |gx[1]#_g117652_|) + (cons (cons 'e |gx[1]#_g117653_|) (cons (cons 'code - |gx[1]#_g118418_|) + |gx[1]#_g117654_|) (cons (cons 'super - |gx[1]#_g118419_|) + |gx[1]#_g117655_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g118420_|) - (cons (cons 'down |gx[1]#_g118421_|) - (cons (cons 'id |gx[1]#_g118422_|) - (cons (cons 'table |gx[1]#_g118423_|) + |gx[1]#_g117656_|) + (cons (cons 'down |gx[1]#_g117657_|) + (cons (cons 'id |gx[1]#_g117658_|) + (cons (cons 'table |gx[1]#_g117659_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj118202 __tmp118412 '17 '#f '#f)) - (let ((__tmp118424 - (cons (cons 'ns |gx[1]#_g118425_|) - (cons (cons 'path |gx[1]#_g118426_|) - (cons (cons 'import |gx[1]#_g118427_|) - (cons (cons 'export |gx[1]#_g118428_|) - (cons (cons 'e |gx[1]#_g118429_|) + (##unchecked-structure-set! __obj117438 __tmp117648 '17 '#f '#f)) + (let ((__tmp117660 + (cons (cons 'ns |gx[1]#_g117661_|) + (cons (cons 'path |gx[1]#_g117662_|) + (cons (cons 'import |gx[1]#_g117663_|) + (cons (cons 'export |gx[1]#_g117664_|) + (cons (cons 'e |gx[1]#_g117665_|) (cons (cons 'code - |gx[1]#_g118430_|) + |gx[1]#_g117666_|) (cons (cons 'super - |gx[1]#_g118431_|) + |gx[1]#_g117667_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g118432_|) - (cons (cons 'down |gx[1]#_g118433_|) - (cons (cons 'id |gx[1]#_g118434_|) - (cons (cons 'table |gx[1]#_g118435_|) + |gx[1]#_g117668_|) + (cons (cons 'down |gx[1]#_g117669_|) + (cons (cons 'id |gx[1]#_g117670_|) + (cons (cons 'table |gx[1]#_g117671_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj118202 __tmp118424 '18 '#f '#f)) + (##unchecked-structure-set! __obj117438 __tmp117660 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118202 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117438 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118202 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117438 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118202 '() '20 '#f '#f)) - __obj118202)) + (##unchecked-structure-set! __obj117438 '() '20 '#f '#f)) + __obj117438)) (define |gx[:0:]#prelude-context| - (let ((__obj118203 + (let ((__obj117439 (let () (declare (not safe)) (##structure @@ -4208,129 +4208,129 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118203 + __obj117439 'gx#prelude-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118203 'prelude-context '2 '#f '#f)) + (##unchecked-structure-set! __obj117439 'prelude-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118203 '(path import e) '4 '#f '#f)) + (##unchecked-structure-set! __obj117439 '(path import e) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118203 + __obj117439 '(id table super up down path import e) '6 '#f '#f)) - (let ((__tmp118436 (cons |gx[1]#_g118381_| '()))) + (let ((__tmp117672 (cons |gx[1]#_g117617_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118203 __tmp118436 '3 '#f '#f)) + (##unchecked-structure-set! __obj117439 __tmp117672 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118203 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117439 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118203 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117439 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118203 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117439 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118203 '#f '11 '#f '#f)) - (let ((__tmp118437 |gx[1]#_g118438_|)) + (##unchecked-structure-set! __obj117439 '#f '11 '#f '#f)) + (let ((__tmp117673 |gx[1]#_g117674_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118203 __tmp118437 '12 '#f '#f)) - (let ((__tmp118439 |gx[1]#_g118440_|)) + (##unchecked-structure-set! __obj117439 __tmp117673 '12 '#f '#f)) + (let ((__tmp117675 |gx[1]#_g117676_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118203 __tmp118439 '13 '#f '#f)) - (let ((__tmp118441 |gx[1]#_g118442_|)) + (##unchecked-structure-set! __obj117439 __tmp117675 '13 '#f '#f)) + (let ((__tmp117677 |gx[1]#_g117678_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118203 __tmp118441 '14 '#f '#f)) - (let ((__tmp118443 - (cons (cons 'path |gx[1]#_g118444_|) - (cons (cons 'import |gx[1]#_g118445_|) - (cons (cons 'e |gx[1]#_g118446_|) - (cons (cons 'super |gx[1]#_g118447_|) - (cons (cons 'up |gx[1]#_g118448_|) + (##unchecked-structure-set! __obj117439 __tmp117677 '14 '#f '#f)) + (let ((__tmp117679 + (cons (cons 'path |gx[1]#_g117680_|) + (cons (cons 'import |gx[1]#_g117681_|) + (cons (cons 'e |gx[1]#_g117682_|) + (cons (cons 'super |gx[1]#_g117683_|) + (cons (cons 'up |gx[1]#_g117684_|) (cons (cons 'down - |gx[1]#_g118449_|) + |gx[1]#_g117685_|) (cons (cons 'id - |gx[1]#_g118450_|) + |gx[1]#_g117686_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g118451_|) + |gx[1]#_g117687_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj118203 __tmp118443 '15 '#f '#f)) - (let ((__tmp118452 - (cons (cons 'path |gx[1]#_g118453_|) - (cons (cons 'import |gx[1]#_g118454_|) - (cons (cons 'e |gx[1]#_g118455_|) - (cons (cons 'super |gx[1]#_g118456_|) - (cons (cons 'up |gx[1]#_g118457_|) + (##unchecked-structure-set! __obj117439 __tmp117679 '15 '#f '#f)) + (let ((__tmp117688 + (cons (cons 'path |gx[1]#_g117689_|) + (cons (cons 'import |gx[1]#_g117690_|) + (cons (cons 'e |gx[1]#_g117691_|) + (cons (cons 'super |gx[1]#_g117692_|) + (cons (cons 'up |gx[1]#_g117693_|) (cons (cons 'down - |gx[1]#_g118458_|) + |gx[1]#_g117694_|) (cons (cons 'id - |gx[1]#_g118459_|) + |gx[1]#_g117695_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g118460_|) + |gx[1]#_g117696_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj118203 __tmp118452 '16 '#f '#f)) - (let ((__tmp118461 - (cons (cons 'path |gx[1]#_g118462_|) - (cons (cons 'import |gx[1]#_g118463_|) - (cons (cons 'e |gx[1]#_g118464_|) - (cons (cons 'super |gx[1]#_g118465_|) - (cons (cons 'up |gx[1]#_g118466_|) + (##unchecked-structure-set! __obj117439 __tmp117688 '16 '#f '#f)) + (let ((__tmp117697 + (cons (cons 'path |gx[1]#_g117698_|) + (cons (cons 'import |gx[1]#_g117699_|) + (cons (cons 'e |gx[1]#_g117700_|) + (cons (cons 'super |gx[1]#_g117701_|) + (cons (cons 'up |gx[1]#_g117702_|) (cons (cons 'down - |gx[1]#_g118467_|) + |gx[1]#_g117703_|) (cons (cons 'id - |gx[1]#_g118468_|) + |gx[1]#_g117704_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g118469_|) + |gx[1]#_g117705_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj118203 __tmp118461 '17 '#f '#f)) - (let ((__tmp118470 - (cons (cons 'path |gx[1]#_g118471_|) - (cons (cons 'import |gx[1]#_g118472_|) - (cons (cons 'e |gx[1]#_g118473_|) - (cons (cons 'super |gx[1]#_g118474_|) - (cons (cons 'up |gx[1]#_g118475_|) + (##unchecked-structure-set! __obj117439 __tmp117697 '17 '#f '#f)) + (let ((__tmp117706 + (cons (cons 'path |gx[1]#_g117707_|) + (cons (cons 'import |gx[1]#_g117708_|) + (cons (cons 'e |gx[1]#_g117709_|) + (cons (cons 'super |gx[1]#_g117710_|) + (cons (cons 'up |gx[1]#_g117711_|) (cons (cons 'down - |gx[1]#_g118476_|) + |gx[1]#_g117712_|) (cons (cons 'id - |gx[1]#_g118477_|) + |gx[1]#_g117713_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g118478_|) + |gx[1]#_g117714_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj118203 __tmp118470 '18 '#f '#f)) + (##unchecked-structure-set! __obj117439 __tmp117706 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118203 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117439 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118203 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117439 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118203 '() '20 '#f '#f)) - __obj118203)) + (##unchecked-structure-set! __obj117439 '() '20 '#f '#f)) + __obj117439)) (define |gx[:0:]#local-context| - (let ((__obj118204 + (let ((__obj117440 (let () (declare (not safe)) (##structure @@ -4359,97 +4359,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118204 + __obj117440 'gx#local-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118204 'local-context '2 '#f '#f)) + (##unchecked-structure-set! __obj117440 'local-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118204 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117440 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118204 + __obj117440 '(id table super up down) '6 '#f '#f)) - (let ((__tmp118479 (cons |gx[1]#_g118349_| '()))) + (let ((__tmp117715 (cons |gx[1]#_g117585_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118204 __tmp118479 '3 '#f '#f)) + (##unchecked-structure-set! __obj117440 __tmp117715 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118204 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117440 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118204 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117440 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118204 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117440 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118204 '#f '11 '#f '#f)) - (let ((__tmp118480 |gx[1]#_g118481_|)) + (##unchecked-structure-set! __obj117440 '#f '11 '#f '#f)) + (let ((__tmp117716 |gx[1]#_g117717_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118204 __tmp118480 '12 '#f '#f)) - (let ((__tmp118482 |gx[1]#_g118483_|)) + (##unchecked-structure-set! __obj117440 __tmp117716 '12 '#f '#f)) + (let ((__tmp117718 |gx[1]#_g117719_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118204 __tmp118482 '13 '#f '#f)) - (let ((__tmp118484 |gx[1]#_g118485_|)) + (##unchecked-structure-set! __obj117440 __tmp117718 '13 '#f '#f)) + (let ((__tmp117720 |gx[1]#_g117721_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118204 __tmp118484 '14 '#f '#f)) - (let ((__tmp118486 - (cons (cons 'super |gx[1]#_g118487_|) - (cons (cons 'up |gx[1]#_g118488_|) - (cons (cons 'down |gx[1]#_g118489_|) - (cons (cons 'id |gx[1]#_g118490_|) - (cons (cons 'table |gx[1]#_g118491_|) + (##unchecked-structure-set! __obj117440 __tmp117720 '14 '#f '#f)) + (let ((__tmp117722 + (cons (cons 'super |gx[1]#_g117723_|) + (cons (cons 'up |gx[1]#_g117724_|) + (cons (cons 'down |gx[1]#_g117725_|) + (cons (cons 'id |gx[1]#_g117726_|) + (cons (cons 'table |gx[1]#_g117727_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118204 __tmp118486 '15 '#f '#f)) - (let ((__tmp118492 - (cons (cons 'super |gx[1]#_g118493_|) - (cons (cons 'up |gx[1]#_g118494_|) - (cons (cons 'down |gx[1]#_g118495_|) - (cons (cons 'id |gx[1]#_g118496_|) - (cons (cons 'table |gx[1]#_g118497_|) + (##unchecked-structure-set! __obj117440 __tmp117722 '15 '#f '#f)) + (let ((__tmp117728 + (cons (cons 'super |gx[1]#_g117729_|) + (cons (cons 'up |gx[1]#_g117730_|) + (cons (cons 'down |gx[1]#_g117731_|) + (cons (cons 'id |gx[1]#_g117732_|) + (cons (cons 'table |gx[1]#_g117733_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118204 __tmp118492 '16 '#f '#f)) - (let ((__tmp118498 - (cons (cons 'super |gx[1]#_g118499_|) - (cons (cons 'up |gx[1]#_g118500_|) - (cons (cons 'down |gx[1]#_g118501_|) - (cons (cons 'id |gx[1]#_g118502_|) - (cons (cons 'table |gx[1]#_g118503_|) + (##unchecked-structure-set! __obj117440 __tmp117728 '16 '#f '#f)) + (let ((__tmp117734 + (cons (cons 'super |gx[1]#_g117735_|) + (cons (cons 'up |gx[1]#_g117736_|) + (cons (cons 'down |gx[1]#_g117737_|) + (cons (cons 'id |gx[1]#_g117738_|) + (cons (cons 'table |gx[1]#_g117739_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118204 __tmp118498 '17 '#f '#f)) - (let ((__tmp118504 - (cons (cons 'super |gx[1]#_g118505_|) - (cons (cons 'up |gx[1]#_g118506_|) - (cons (cons 'down |gx[1]#_g118507_|) - (cons (cons 'id |gx[1]#_g118508_|) - (cons (cons 'table |gx[1]#_g118509_|) + (##unchecked-structure-set! __obj117440 __tmp117734 '17 '#f '#f)) + (let ((__tmp117740 + (cons (cons 'super |gx[1]#_g117741_|) + (cons (cons 'up |gx[1]#_g117742_|) + (cons (cons 'down |gx[1]#_g117743_|) + (cons (cons 'id |gx[1]#_g117744_|) + (cons (cons 'table |gx[1]#_g117745_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118204 __tmp118504 '18 '#f '#f)) + (##unchecked-structure-set! __obj117440 __tmp117740 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118204 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117440 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118204 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117440 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118204 '() '20 '#f '#f)) - __obj118204)) + (##unchecked-structure-set! __obj117440 '() '20 '#f '#f)) + __obj117440)) (define |gx[:0:]#binding| - (let ((__obj118205 + (let ((__obj117441 (let () (declare (not safe)) (##structure @@ -4477,76 +4477,76 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118205 'gx#binding::t '1 '#f '#f)) + (##unchecked-structure-set! __obj117441 'gx#binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118205 'binding '2 '#f '#f)) + (##unchecked-structure-set! __obj117441 'binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118205 '(id key phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj117441 '(id key phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118205 '(id key phi) '6 '#f '#f)) + (##unchecked-structure-set! __obj117441 '(id key phi) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118205 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj117441 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118205 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117441 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118205 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117441 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118205 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117441 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118205 '#f '11 '#f '#f)) - (let ((__tmp118510 |gx[1]#_g118511_|)) + (##unchecked-structure-set! __obj117441 '#f '11 '#f '#f)) + (let ((__tmp117746 |gx[1]#_g117747_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118205 __tmp118510 '12 '#f '#f)) - (let ((__tmp118512 |gx[1]#_g118513_|)) + (##unchecked-structure-set! __obj117441 __tmp117746 '12 '#f '#f)) + (let ((__tmp117748 |gx[1]#_g117749_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118205 __tmp118512 '13 '#f '#f)) - (let ((__tmp118514 |gx[1]#_g118515_|)) + (##unchecked-structure-set! __obj117441 __tmp117748 '13 '#f '#f)) + (let ((__tmp117750 |gx[1]#_g117751_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118205 __tmp118514 '14 '#f '#f)) - (let ((__tmp118516 - (cons (cons 'id |gx[1]#_g118517_|) - (cons (cons 'key |gx[1]#_g118518_|) - (cons (cons 'phi |gx[1]#_g118519_|) '()))))) + (##unchecked-structure-set! __obj117441 __tmp117750 '14 '#f '#f)) + (let ((__tmp117752 + (cons (cons 'id |gx[1]#_g117753_|) + (cons (cons 'key |gx[1]#_g117754_|) + (cons (cons 'phi |gx[1]#_g117755_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118205 __tmp118516 '15 '#f '#f)) - (let ((__tmp118520 - (cons (cons 'id |gx[1]#_g118521_|) - (cons (cons 'key |gx[1]#_g118522_|) - (cons (cons 'phi |gx[1]#_g118523_|) '()))))) + (##unchecked-structure-set! __obj117441 __tmp117752 '15 '#f '#f)) + (let ((__tmp117756 + (cons (cons 'id |gx[1]#_g117757_|) + (cons (cons 'key |gx[1]#_g117758_|) + (cons (cons 'phi |gx[1]#_g117759_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118205 __tmp118520 '16 '#f '#f)) - (let ((__tmp118524 - (cons (cons 'id |gx[1]#_g118525_|) - (cons (cons 'key |gx[1]#_g118526_|) - (cons (cons 'phi |gx[1]#_g118527_|) '()))))) + (##unchecked-structure-set! __obj117441 __tmp117756 '16 '#f '#f)) + (let ((__tmp117760 + (cons (cons 'id |gx[1]#_g117761_|) + (cons (cons 'key |gx[1]#_g117762_|) + (cons (cons 'phi |gx[1]#_g117763_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118205 __tmp118524 '17 '#f '#f)) - (let ((__tmp118528 - (cons (cons 'id |gx[1]#_g118529_|) - (cons (cons 'key |gx[1]#_g118530_|) - (cons (cons 'phi |gx[1]#_g118531_|) '()))))) + (##unchecked-structure-set! __obj117441 __tmp117760 '17 '#f '#f)) + (let ((__tmp117764 + (cons (cons 'id |gx[1]#_g117765_|) + (cons (cons 'key |gx[1]#_g117766_|) + (cons (cons 'phi |gx[1]#_g117767_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118205 __tmp118528 '18 '#f '#f)) + (##unchecked-structure-set! __obj117441 __tmp117764 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118205 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117441 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118205 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117441 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118205 '() '20 '#f '#f)) - __obj118205)) + (##unchecked-structure-set! __obj117441 '() '20 '#f '#f)) + __obj117441)) (define |gx[:0:]#runtime-binding| - (let ((__obj118206 + (let ((__obj117442 (let () (declare (not safe)) (##structure @@ -4575,80 +4575,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118206 + __obj117442 'gx#runtime-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118206 'runtime-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj117442 'runtime-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118206 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117442 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118206 '(id key phi) '6 '#f '#f)) - (let ((__tmp118532 (cons |gx[1]#_g118533_| '()))) + (##unchecked-structure-set! __obj117442 '(id key phi) '6 '#f '#f)) + (let ((__tmp117768 (cons |gx[1]#_g117769_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118206 __tmp118532 '3 '#f '#f)) + (##unchecked-structure-set! __obj117442 __tmp117768 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118206 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117442 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118206 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117442 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118206 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117442 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118206 '#f '11 '#f '#f)) - (let ((__tmp118534 |gx[1]#_g118535_|)) + (##unchecked-structure-set! __obj117442 '#f '11 '#f '#f)) + (let ((__tmp117770 |gx[1]#_g117771_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118206 __tmp118534 '12 '#f '#f)) - (let ((__tmp118536 |gx[1]#_g118537_|)) + (##unchecked-structure-set! __obj117442 __tmp117770 '12 '#f '#f)) + (let ((__tmp117772 |gx[1]#_g117773_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118206 __tmp118536 '13 '#f '#f)) - (let ((__tmp118538 |gx[1]#_g118539_|)) + (##unchecked-structure-set! __obj117442 __tmp117772 '13 '#f '#f)) + (let ((__tmp117774 |gx[1]#_g117775_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118206 __tmp118538 '14 '#f '#f)) - (let ((__tmp118540 - (cons (cons 'id |gx[1]#_g118541_|) - (cons (cons 'key |gx[1]#_g118542_|) - (cons (cons 'phi |gx[1]#_g118543_|) '()))))) + (##unchecked-structure-set! __obj117442 __tmp117774 '14 '#f '#f)) + (let ((__tmp117776 + (cons (cons 'id |gx[1]#_g117777_|) + (cons (cons 'key |gx[1]#_g117778_|) + (cons (cons 'phi |gx[1]#_g117779_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118206 __tmp118540 '15 '#f '#f)) - (let ((__tmp118544 - (cons (cons 'id |gx[1]#_g118545_|) - (cons (cons 'key |gx[1]#_g118546_|) - (cons (cons 'phi |gx[1]#_g118547_|) '()))))) + (##unchecked-structure-set! __obj117442 __tmp117776 '15 '#f '#f)) + (let ((__tmp117780 + (cons (cons 'id |gx[1]#_g117781_|) + (cons (cons 'key |gx[1]#_g117782_|) + (cons (cons 'phi |gx[1]#_g117783_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118206 __tmp118544 '16 '#f '#f)) - (let ((__tmp118548 - (cons (cons 'id |gx[1]#_g118549_|) - (cons (cons 'key |gx[1]#_g118550_|) - (cons (cons 'phi |gx[1]#_g118551_|) '()))))) + (##unchecked-structure-set! __obj117442 __tmp117780 '16 '#f '#f)) + (let ((__tmp117784 + (cons (cons 'id |gx[1]#_g117785_|) + (cons (cons 'key |gx[1]#_g117786_|) + (cons (cons 'phi |gx[1]#_g117787_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118206 __tmp118548 '17 '#f '#f)) - (let ((__tmp118552 - (cons (cons 'id |gx[1]#_g118553_|) - (cons (cons 'key |gx[1]#_g118554_|) - (cons (cons 'phi |gx[1]#_g118555_|) '()))))) + (##unchecked-structure-set! __obj117442 __tmp117784 '17 '#f '#f)) + (let ((__tmp117788 + (cons (cons 'id |gx[1]#_g117789_|) + (cons (cons 'key |gx[1]#_g117790_|) + (cons (cons 'phi |gx[1]#_g117791_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118206 __tmp118552 '18 '#f '#f)) + (##unchecked-structure-set! __obj117442 __tmp117788 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118206 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117442 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118206 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117442 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118206 '() '20 '#f '#f)) - __obj118206)) + (##unchecked-structure-set! __obj117442 '() '20 '#f '#f)) + __obj117442)) (define |gx[:0:]#local-binding| - (let ((__obj118207 + (let ((__obj117443 (let () (declare (not safe)) (##structure @@ -4677,80 +4677,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118207 + __obj117443 'gx#local-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118207 'local-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj117443 'local-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118207 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117443 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118207 '(id key phi) '6 '#f '#f)) - (let ((__tmp118556 (cons |gx[1]#_g118557_| '()))) + (##unchecked-structure-set! __obj117443 '(id key phi) '6 '#f '#f)) + (let ((__tmp117792 (cons |gx[1]#_g117793_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118207 __tmp118556 '3 '#f '#f)) + (##unchecked-structure-set! __obj117443 __tmp117792 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118207 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117443 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118207 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117443 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118207 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117443 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118207 '#f '11 '#f '#f)) - (let ((__tmp118558 |gx[1]#_g118559_|)) + (##unchecked-structure-set! __obj117443 '#f '11 '#f '#f)) + (let ((__tmp117794 |gx[1]#_g117795_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118207 __tmp118558 '12 '#f '#f)) - (let ((__tmp118560 |gx[1]#_g118561_|)) + (##unchecked-structure-set! __obj117443 __tmp117794 '12 '#f '#f)) + (let ((__tmp117796 |gx[1]#_g117797_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118207 __tmp118560 '13 '#f '#f)) - (let ((__tmp118562 |gx[1]#_g118563_|)) + (##unchecked-structure-set! __obj117443 __tmp117796 '13 '#f '#f)) + (let ((__tmp117798 |gx[1]#_g117799_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118207 __tmp118562 '14 '#f '#f)) - (let ((__tmp118564 - (cons (cons 'id |gx[1]#_g118565_|) - (cons (cons 'key |gx[1]#_g118566_|) - (cons (cons 'phi |gx[1]#_g118567_|) '()))))) + (##unchecked-structure-set! __obj117443 __tmp117798 '14 '#f '#f)) + (let ((__tmp117800 + (cons (cons 'id |gx[1]#_g117801_|) + (cons (cons 'key |gx[1]#_g117802_|) + (cons (cons 'phi |gx[1]#_g117803_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118207 __tmp118564 '15 '#f '#f)) - (let ((__tmp118568 - (cons (cons 'id |gx[1]#_g118569_|) - (cons (cons 'key |gx[1]#_g118570_|) - (cons (cons 'phi |gx[1]#_g118571_|) '()))))) + (##unchecked-structure-set! __obj117443 __tmp117800 '15 '#f '#f)) + (let ((__tmp117804 + (cons (cons 'id |gx[1]#_g117805_|) + (cons (cons 'key |gx[1]#_g117806_|) + (cons (cons 'phi |gx[1]#_g117807_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118207 __tmp118568 '16 '#f '#f)) - (let ((__tmp118572 - (cons (cons 'id |gx[1]#_g118573_|) - (cons (cons 'key |gx[1]#_g118574_|) - (cons (cons 'phi |gx[1]#_g118575_|) '()))))) + (##unchecked-structure-set! __obj117443 __tmp117804 '16 '#f '#f)) + (let ((__tmp117808 + (cons (cons 'id |gx[1]#_g117809_|) + (cons (cons 'key |gx[1]#_g117810_|) + (cons (cons 'phi |gx[1]#_g117811_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118207 __tmp118572 '17 '#f '#f)) - (let ((__tmp118576 - (cons (cons 'id |gx[1]#_g118577_|) - (cons (cons 'key |gx[1]#_g118578_|) - (cons (cons 'phi |gx[1]#_g118579_|) '()))))) + (##unchecked-structure-set! __obj117443 __tmp117808 '17 '#f '#f)) + (let ((__tmp117812 + (cons (cons 'id |gx[1]#_g117813_|) + (cons (cons 'key |gx[1]#_g117814_|) + (cons (cons 'phi |gx[1]#_g117815_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118207 __tmp118576 '18 '#f '#f)) + (##unchecked-structure-set! __obj117443 __tmp117812 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118207 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117443 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118207 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117443 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118207 '() '20 '#f '#f)) - __obj118207)) + (##unchecked-structure-set! __obj117443 '() '20 '#f '#f)) + __obj117443)) (define |gx[:0:]#top-binding| - (let ((__obj118208 + (let ((__obj117444 (let () (declare (not safe)) (##structure @@ -4779,80 +4779,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118208 + __obj117444 'gx#top-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118208 'top-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj117444 'top-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118208 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117444 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118208 '(id key phi) '6 '#f '#f)) - (let ((__tmp118580 (cons |gx[1]#_g118557_| '()))) + (##unchecked-structure-set! __obj117444 '(id key phi) '6 '#f '#f)) + (let ((__tmp117816 (cons |gx[1]#_g117793_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118208 __tmp118580 '3 '#f '#f)) + (##unchecked-structure-set! __obj117444 __tmp117816 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118208 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117444 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118208 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117444 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118208 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117444 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118208 '#f '11 '#f '#f)) - (let ((__tmp118581 |gx[1]#_g118582_|)) + (##unchecked-structure-set! __obj117444 '#f '11 '#f '#f)) + (let ((__tmp117817 |gx[1]#_g117818_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118208 __tmp118581 '12 '#f '#f)) - (let ((__tmp118583 |gx[1]#_g118584_|)) + (##unchecked-structure-set! __obj117444 __tmp117817 '12 '#f '#f)) + (let ((__tmp117819 |gx[1]#_g117820_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118208 __tmp118583 '13 '#f '#f)) - (let ((__tmp118585 |gx[1]#_g118586_|)) + (##unchecked-structure-set! __obj117444 __tmp117819 '13 '#f '#f)) + (let ((__tmp117821 |gx[1]#_g117822_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118208 __tmp118585 '14 '#f '#f)) - (let ((__tmp118587 - (cons (cons 'id |gx[1]#_g118588_|) - (cons (cons 'key |gx[1]#_g118589_|) - (cons (cons 'phi |gx[1]#_g118590_|) '()))))) + (##unchecked-structure-set! __obj117444 __tmp117821 '14 '#f '#f)) + (let ((__tmp117823 + (cons (cons 'id |gx[1]#_g117824_|) + (cons (cons 'key |gx[1]#_g117825_|) + (cons (cons 'phi |gx[1]#_g117826_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118208 __tmp118587 '15 '#f '#f)) - (let ((__tmp118591 - (cons (cons 'id |gx[1]#_g118592_|) - (cons (cons 'key |gx[1]#_g118593_|) - (cons (cons 'phi |gx[1]#_g118594_|) '()))))) + (##unchecked-structure-set! __obj117444 __tmp117823 '15 '#f '#f)) + (let ((__tmp117827 + (cons (cons 'id |gx[1]#_g117828_|) + (cons (cons 'key |gx[1]#_g117829_|) + (cons (cons 'phi |gx[1]#_g117830_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118208 __tmp118591 '16 '#f '#f)) - (let ((__tmp118595 - (cons (cons 'id |gx[1]#_g118596_|) - (cons (cons 'key |gx[1]#_g118597_|) - (cons (cons 'phi |gx[1]#_g118598_|) '()))))) + (##unchecked-structure-set! __obj117444 __tmp117827 '16 '#f '#f)) + (let ((__tmp117831 + (cons (cons 'id |gx[1]#_g117832_|) + (cons (cons 'key |gx[1]#_g117833_|) + (cons (cons 'phi |gx[1]#_g117834_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118208 __tmp118595 '17 '#f '#f)) - (let ((__tmp118599 - (cons (cons 'id |gx[1]#_g118600_|) - (cons (cons 'key |gx[1]#_g118601_|) - (cons (cons 'phi |gx[1]#_g118602_|) '()))))) + (##unchecked-structure-set! __obj117444 __tmp117831 '17 '#f '#f)) + (let ((__tmp117835 + (cons (cons 'id |gx[1]#_g117836_|) + (cons (cons 'key |gx[1]#_g117837_|) + (cons (cons 'phi |gx[1]#_g117838_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118208 __tmp118599 '18 '#f '#f)) + (##unchecked-structure-set! __obj117444 __tmp117835 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118208 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117444 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118208 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117444 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118208 '() '20 '#f '#f)) - __obj118208)) + (##unchecked-structure-set! __obj117444 '() '20 '#f '#f)) + __obj117444)) (define |gx[:0:]#module-binding| - (let ((__obj118209 + (let ((__obj117445 (let () (declare (not safe)) (##structure @@ -4881,89 +4881,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118209 + __obj117445 'gx#module-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118209 'module-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj117445 'module-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118209 '(context) '4 '#f '#f)) + (##unchecked-structure-set! __obj117445 '(context) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118209 + __obj117445 '(id key phi context) '6 '#f '#f)) - (let ((__tmp118603 (cons |gx[1]#_g118604_| '()))) + (let ((__tmp117839 (cons |gx[1]#_g117840_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118209 __tmp118603 '3 '#f '#f)) + (##unchecked-structure-set! __obj117445 __tmp117839 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118209 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117445 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118209 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117445 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118209 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117445 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118209 '#f '11 '#f '#f)) - (let ((__tmp118605 |gx[1]#_g118606_|)) + (##unchecked-structure-set! __obj117445 '#f '11 '#f '#f)) + (let ((__tmp117841 |gx[1]#_g117842_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118209 __tmp118605 '12 '#f '#f)) - (let ((__tmp118607 |gx[1]#_g118608_|)) + (##unchecked-structure-set! __obj117445 __tmp117841 '12 '#f '#f)) + (let ((__tmp117843 |gx[1]#_g117844_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118209 __tmp118607 '13 '#f '#f)) - (let ((__tmp118609 |gx[1]#_g118610_|)) + (##unchecked-structure-set! __obj117445 __tmp117843 '13 '#f '#f)) + (let ((__tmp117845 |gx[1]#_g117846_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118209 __tmp118609 '14 '#f '#f)) - (let ((__tmp118611 - (cons (cons 'context |gx[1]#_g118612_|) - (cons (cons 'id |gx[1]#_g118613_|) - (cons (cons 'key |gx[1]#_g118614_|) - (cons (cons 'phi |gx[1]#_g118615_|) '())))))) + (##unchecked-structure-set! __obj117445 __tmp117845 '14 '#f '#f)) + (let ((__tmp117847 + (cons (cons 'context |gx[1]#_g117848_|) + (cons (cons 'id |gx[1]#_g117849_|) + (cons (cons 'key |gx[1]#_g117850_|) + (cons (cons 'phi |gx[1]#_g117851_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118209 __tmp118611 '15 '#f '#f)) - (let ((__tmp118616 - (cons (cons 'context |gx[1]#_g118617_|) - (cons (cons 'id |gx[1]#_g118618_|) - (cons (cons 'key |gx[1]#_g118619_|) - (cons (cons 'phi |gx[1]#_g118620_|) '())))))) + (##unchecked-structure-set! __obj117445 __tmp117847 '15 '#f '#f)) + (let ((__tmp117852 + (cons (cons 'context |gx[1]#_g117853_|) + (cons (cons 'id |gx[1]#_g117854_|) + (cons (cons 'key |gx[1]#_g117855_|) + (cons (cons 'phi |gx[1]#_g117856_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118209 __tmp118616 '16 '#f '#f)) - (let ((__tmp118621 - (cons (cons 'context |gx[1]#_g118622_|) - (cons (cons 'id |gx[1]#_g118623_|) - (cons (cons 'key |gx[1]#_g118624_|) - (cons (cons 'phi |gx[1]#_g118625_|) '())))))) + (##unchecked-structure-set! __obj117445 __tmp117852 '16 '#f '#f)) + (let ((__tmp117857 + (cons (cons 'context |gx[1]#_g117858_|) + (cons (cons 'id |gx[1]#_g117859_|) + (cons (cons 'key |gx[1]#_g117860_|) + (cons (cons 'phi |gx[1]#_g117861_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118209 __tmp118621 '17 '#f '#f)) - (let ((__tmp118626 - (cons (cons 'context |gx[1]#_g118627_|) - (cons (cons 'id |gx[1]#_g118628_|) - (cons (cons 'key |gx[1]#_g118629_|) - (cons (cons 'phi |gx[1]#_g118630_|) '())))))) + (##unchecked-structure-set! __obj117445 __tmp117857 '17 '#f '#f)) + (let ((__tmp117862 + (cons (cons 'context |gx[1]#_g117863_|) + (cons (cons 'id |gx[1]#_g117864_|) + (cons (cons 'key |gx[1]#_g117865_|) + (cons (cons 'phi |gx[1]#_g117866_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118209 __tmp118626 '18 '#f '#f)) + (##unchecked-structure-set! __obj117445 __tmp117862 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118209 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117445 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118209 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117445 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118209 '() '20 '#f '#f)) - __obj118209)) + (##unchecked-structure-set! __obj117445 '() '20 '#f '#f)) + __obj117445)) (define |gx[:0:]#extern-binding| - (let ((__obj118210 + (let ((__obj117446 (let () (declare (not safe)) (##structure @@ -4992,80 +4992,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118210 + __obj117446 'gx#extern-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118210 'extern-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj117446 'extern-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118210 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117446 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118210 '(id key phi) '6 '#f '#f)) - (let ((__tmp118631 (cons |gx[1]#_g118604_| '()))) + (##unchecked-structure-set! __obj117446 '(id key phi) '6 '#f '#f)) + (let ((__tmp117867 (cons |gx[1]#_g117840_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118210 __tmp118631 '3 '#f '#f)) + (##unchecked-structure-set! __obj117446 __tmp117867 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118210 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117446 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118210 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117446 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118210 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117446 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118210 '#f '11 '#f '#f)) - (let ((__tmp118632 |gx[1]#_g118633_|)) + (##unchecked-structure-set! __obj117446 '#f '11 '#f '#f)) + (let ((__tmp117868 |gx[1]#_g117869_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118210 __tmp118632 '12 '#f '#f)) - (let ((__tmp118634 |gx[1]#_g118635_|)) + (##unchecked-structure-set! __obj117446 __tmp117868 '12 '#f '#f)) + (let ((__tmp117870 |gx[1]#_g117871_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118210 __tmp118634 '13 '#f '#f)) - (let ((__tmp118636 |gx[1]#_g118637_|)) + (##unchecked-structure-set! __obj117446 __tmp117870 '13 '#f '#f)) + (let ((__tmp117872 |gx[1]#_g117873_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118210 __tmp118636 '14 '#f '#f)) - (let ((__tmp118638 - (cons (cons 'id |gx[1]#_g118639_|) - (cons (cons 'key |gx[1]#_g118640_|) - (cons (cons 'phi |gx[1]#_g118641_|) '()))))) + (##unchecked-structure-set! __obj117446 __tmp117872 '14 '#f '#f)) + (let ((__tmp117874 + (cons (cons 'id |gx[1]#_g117875_|) + (cons (cons 'key |gx[1]#_g117876_|) + (cons (cons 'phi |gx[1]#_g117877_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118210 __tmp118638 '15 '#f '#f)) - (let ((__tmp118642 - (cons (cons 'id |gx[1]#_g118643_|) - (cons (cons 'key |gx[1]#_g118644_|) - (cons (cons 'phi |gx[1]#_g118645_|) '()))))) + (##unchecked-structure-set! __obj117446 __tmp117874 '15 '#f '#f)) + (let ((__tmp117878 + (cons (cons 'id |gx[1]#_g117879_|) + (cons (cons 'key |gx[1]#_g117880_|) + (cons (cons 'phi |gx[1]#_g117881_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118210 __tmp118642 '16 '#f '#f)) - (let ((__tmp118646 - (cons (cons 'id |gx[1]#_g118647_|) - (cons (cons 'key |gx[1]#_g118648_|) - (cons (cons 'phi |gx[1]#_g118649_|) '()))))) + (##unchecked-structure-set! __obj117446 __tmp117878 '16 '#f '#f)) + (let ((__tmp117882 + (cons (cons 'id |gx[1]#_g117883_|) + (cons (cons 'key |gx[1]#_g117884_|) + (cons (cons 'phi |gx[1]#_g117885_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118210 __tmp118646 '17 '#f '#f)) - (let ((__tmp118650 - (cons (cons 'id |gx[1]#_g118651_|) - (cons (cons 'key |gx[1]#_g118652_|) - (cons (cons 'phi |gx[1]#_g118653_|) '()))))) + (##unchecked-structure-set! __obj117446 __tmp117882 '17 '#f '#f)) + (let ((__tmp117886 + (cons (cons 'id |gx[1]#_g117887_|) + (cons (cons 'key |gx[1]#_g117888_|) + (cons (cons 'phi |gx[1]#_g117889_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118210 __tmp118650 '18 '#f '#f)) + (##unchecked-structure-set! __obj117446 __tmp117886 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118210 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117446 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118210 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117446 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118210 '() '20 '#f '#f)) - __obj118210)) + (##unchecked-structure-set! __obj117446 '() '20 '#f '#f)) + __obj117446)) (define |gx[:0:]#syntax-binding| - (let ((__obj118211 + (let ((__obj117447 (let () (declare (not safe)) (##structure @@ -5094,84 +5094,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118211 + __obj117447 'gx#syntax-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118211 'syntax-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj117447 'syntax-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118211 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj117447 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118211 '(id key phi e) '6 '#f '#f)) - (let ((__tmp118654 (cons |gx[1]#_g118533_| '()))) + (##unchecked-structure-set! __obj117447 '(id key phi e) '6 '#f '#f)) + (let ((__tmp117890 (cons |gx[1]#_g117769_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118211 __tmp118654 '3 '#f '#f)) + (##unchecked-structure-set! __obj117447 __tmp117890 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118211 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117447 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118211 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj117447 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118211 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117447 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118211 '#f '11 '#f '#f)) - (let ((__tmp118655 |gx[1]#_g118656_|)) + (##unchecked-structure-set! __obj117447 '#f '11 '#f '#f)) + (let ((__tmp117891 |gx[1]#_g117892_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118211 __tmp118655 '12 '#f '#f)) - (let ((__tmp118657 |gx[1]#_g118658_|)) + (##unchecked-structure-set! __obj117447 __tmp117891 '12 '#f '#f)) + (let ((__tmp117893 |gx[1]#_g117894_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118211 __tmp118657 '13 '#f '#f)) - (let ((__tmp118659 |gx[1]#_g118660_|)) + (##unchecked-structure-set! __obj117447 __tmp117893 '13 '#f '#f)) + (let ((__tmp117895 |gx[1]#_g117896_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118211 __tmp118659 '14 '#f '#f)) - (let ((__tmp118661 - (cons (cons 'e |gx[1]#_g118662_|) - (cons (cons 'id |gx[1]#_g118663_|) - (cons (cons 'key |gx[1]#_g118664_|) - (cons (cons 'phi |gx[1]#_g118665_|) '())))))) + (##unchecked-structure-set! __obj117447 __tmp117895 '14 '#f '#f)) + (let ((__tmp117897 + (cons (cons 'e |gx[1]#_g117898_|) + (cons (cons 'id |gx[1]#_g117899_|) + (cons (cons 'key |gx[1]#_g117900_|) + (cons (cons 'phi |gx[1]#_g117901_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118211 __tmp118661 '15 '#f '#f)) - (let ((__tmp118666 - (cons (cons 'e |gx[1]#_g118667_|) - (cons (cons 'id |gx[1]#_g118668_|) - (cons (cons 'key |gx[1]#_g118669_|) - (cons (cons 'phi |gx[1]#_g118670_|) '())))))) + (##unchecked-structure-set! __obj117447 __tmp117897 '15 '#f '#f)) + (let ((__tmp117902 + (cons (cons 'e |gx[1]#_g117903_|) + (cons (cons 'id |gx[1]#_g117904_|) + (cons (cons 'key |gx[1]#_g117905_|) + (cons (cons 'phi |gx[1]#_g117906_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118211 __tmp118666 '16 '#f '#f)) - (let ((__tmp118671 - (cons (cons 'e |gx[1]#_g118672_|) - (cons (cons 'id |gx[1]#_g118673_|) - (cons (cons 'key |gx[1]#_g118674_|) - (cons (cons 'phi |gx[1]#_g118675_|) '())))))) + (##unchecked-structure-set! __obj117447 __tmp117902 '16 '#f '#f)) + (let ((__tmp117907 + (cons (cons 'e |gx[1]#_g117908_|) + (cons (cons 'id |gx[1]#_g117909_|) + (cons (cons 'key |gx[1]#_g117910_|) + (cons (cons 'phi |gx[1]#_g117911_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118211 __tmp118671 '17 '#f '#f)) - (let ((__tmp118676 - (cons (cons 'e |gx[1]#_g118677_|) - (cons (cons 'id |gx[1]#_g118678_|) - (cons (cons 'key |gx[1]#_g118679_|) - (cons (cons 'phi |gx[1]#_g118680_|) '())))))) + (##unchecked-structure-set! __obj117447 __tmp117907 '17 '#f '#f)) + (let ((__tmp117912 + (cons (cons 'e |gx[1]#_g117913_|) + (cons (cons 'id |gx[1]#_g117914_|) + (cons (cons 'key |gx[1]#_g117915_|) + (cons (cons 'phi |gx[1]#_g117916_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118211 __tmp118676 '18 '#f '#f)) + (##unchecked-structure-set! __obj117447 __tmp117912 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118211 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117447 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118211 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117447 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118211 '() '20 '#f '#f)) - __obj118211)) + (##unchecked-structure-set! __obj117447 '() '20 '#f '#f)) + __obj117447)) (define |gx[:0:]#import-binding| - (let ((__obj118212 + (let ((__obj117448 (let () (declare (not safe)) (##structure @@ -5200,18 +5200,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118212 + __obj117448 'gx#import-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118212 'import-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj117448 'import-binding '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118212 + __obj117448 '(e context weak?) '4 '#f @@ -5219,91 +5219,91 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118212 + __obj117448 '(id key phi e context weak?) '6 '#f '#f)) - (let ((__tmp118681 (cons |gx[1]#_g118533_| '()))) + (let ((__tmp117917 (cons |gx[1]#_g117769_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118212 __tmp118681 '3 '#f '#f)) + (##unchecked-structure-set! __obj117448 __tmp117917 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118212 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117448 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118212 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj117448 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118212 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117448 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118212 '#f '11 '#f '#f)) - (let ((__tmp118682 |gx[1]#_g118683_|)) + (##unchecked-structure-set! __obj117448 '#f '11 '#f '#f)) + (let ((__tmp117918 |gx[1]#_g117919_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118212 __tmp118682 '12 '#f '#f)) - (let ((__tmp118684 |gx[1]#_g118685_|)) + (##unchecked-structure-set! __obj117448 __tmp117918 '12 '#f '#f)) + (let ((__tmp117920 |gx[1]#_g117921_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118212 __tmp118684 '13 '#f '#f)) - (let ((__tmp118686 |gx[1]#_g118687_|)) + (##unchecked-structure-set! __obj117448 __tmp117920 '13 '#f '#f)) + (let ((__tmp117922 |gx[1]#_g117923_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118212 __tmp118686 '14 '#f '#f)) - (let ((__tmp118688 - (cons (cons 'e |gx[1]#_g118689_|) - (cons (cons 'context |gx[1]#_g118690_|) - (cons (cons 'weak? |gx[1]#_g118691_|) - (cons (cons 'id |gx[1]#_g118692_|) - (cons (cons 'key |gx[1]#_g118693_|) + (##unchecked-structure-set! __obj117448 __tmp117922 '14 '#f '#f)) + (let ((__tmp117924 + (cons (cons 'e |gx[1]#_g117925_|) + (cons (cons 'context |gx[1]#_g117926_|) + (cons (cons 'weak? |gx[1]#_g117927_|) + (cons (cons 'id |gx[1]#_g117928_|) + (cons (cons 'key |gx[1]#_g117929_|) (cons (cons 'phi - |gx[1]#_g118694_|) + |gx[1]#_g117930_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118212 __tmp118688 '15 '#f '#f)) - (let ((__tmp118695 - (cons (cons 'e |gx[1]#_g118696_|) - (cons (cons 'context |gx[1]#_g118697_|) - (cons (cons 'weak? |gx[1]#_g118698_|) - (cons (cons 'id |gx[1]#_g118699_|) - (cons (cons 'key |gx[1]#_g118700_|) + (##unchecked-structure-set! __obj117448 __tmp117924 '15 '#f '#f)) + (let ((__tmp117931 + (cons (cons 'e |gx[1]#_g117932_|) + (cons (cons 'context |gx[1]#_g117933_|) + (cons (cons 'weak? |gx[1]#_g117934_|) + (cons (cons 'id |gx[1]#_g117935_|) + (cons (cons 'key |gx[1]#_g117936_|) (cons (cons 'phi - |gx[1]#_g118701_|) + |gx[1]#_g117937_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118212 __tmp118695 '16 '#f '#f)) - (let ((__tmp118702 - (cons (cons 'e |gx[1]#_g118703_|) - (cons (cons 'context |gx[1]#_g118704_|) - (cons (cons 'weak? |gx[1]#_g118705_|) - (cons (cons 'id |gx[1]#_g118706_|) - (cons (cons 'key |gx[1]#_g118707_|) + (##unchecked-structure-set! __obj117448 __tmp117931 '16 '#f '#f)) + (let ((__tmp117938 + (cons (cons 'e |gx[1]#_g117939_|) + (cons (cons 'context |gx[1]#_g117940_|) + (cons (cons 'weak? |gx[1]#_g117941_|) + (cons (cons 'id |gx[1]#_g117942_|) + (cons (cons 'key |gx[1]#_g117943_|) (cons (cons 'phi - |gx[1]#_g118708_|) + |gx[1]#_g117944_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118212 __tmp118702 '17 '#f '#f)) - (let ((__tmp118709 - (cons (cons 'e |gx[1]#_g118710_|) - (cons (cons 'context |gx[1]#_g118711_|) - (cons (cons 'weak? |gx[1]#_g118712_|) - (cons (cons 'id |gx[1]#_g118713_|) - (cons (cons 'key |gx[1]#_g118714_|) + (##unchecked-structure-set! __obj117448 __tmp117938 '17 '#f '#f)) + (let ((__tmp117945 + (cons (cons 'e |gx[1]#_g117946_|) + (cons (cons 'context |gx[1]#_g117947_|) + (cons (cons 'weak? |gx[1]#_g117948_|) + (cons (cons 'id |gx[1]#_g117949_|) + (cons (cons 'key |gx[1]#_g117950_|) (cons (cons 'phi - |gx[1]#_g118715_|) + |gx[1]#_g117951_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118212 __tmp118709 '18 '#f '#f)) + (##unchecked-structure-set! __obj117448 __tmp117945 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118212 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117448 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118212 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117448 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118212 '() '20 '#f '#f)) - __obj118212)) + (##unchecked-structure-set! __obj117448 '() '20 '#f '#f)) + __obj117448)) (define |gx[:0:]#alias-binding| - (let ((__obj118213 + (let ((__obj117449 (let () (declare (not safe)) (##structure @@ -5332,84 +5332,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118213 + __obj117449 'gx#alias-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118213 'alias-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj117449 'alias-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118213 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj117449 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118213 '(id key phi e) '6 '#f '#f)) - (let ((__tmp118716 (cons |gx[1]#_g118533_| '()))) + (##unchecked-structure-set! __obj117449 '(id key phi e) '6 '#f '#f)) + (let ((__tmp117952 (cons |gx[1]#_g117769_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118213 __tmp118716 '3 '#f '#f)) + (##unchecked-structure-set! __obj117449 __tmp117952 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118213 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117449 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118213 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj117449 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118213 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117449 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118213 '#f '11 '#f '#f)) - (let ((__tmp118717 |gx[1]#_g118718_|)) + (##unchecked-structure-set! __obj117449 '#f '11 '#f '#f)) + (let ((__tmp117953 |gx[1]#_g117954_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118213 __tmp118717 '12 '#f '#f)) - (let ((__tmp118719 |gx[1]#_g118720_|)) + (##unchecked-structure-set! __obj117449 __tmp117953 '12 '#f '#f)) + (let ((__tmp117955 |gx[1]#_g117956_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118213 __tmp118719 '13 '#f '#f)) - (let ((__tmp118721 |gx[1]#_g118722_|)) + (##unchecked-structure-set! __obj117449 __tmp117955 '13 '#f '#f)) + (let ((__tmp117957 |gx[1]#_g117958_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118213 __tmp118721 '14 '#f '#f)) - (let ((__tmp118723 - (cons (cons 'e |gx[1]#_g118724_|) - (cons (cons 'id |gx[1]#_g118725_|) - (cons (cons 'key |gx[1]#_g118726_|) - (cons (cons 'phi |gx[1]#_g118727_|) '())))))) + (##unchecked-structure-set! __obj117449 __tmp117957 '14 '#f '#f)) + (let ((__tmp117959 + (cons (cons 'e |gx[1]#_g117960_|) + (cons (cons 'id |gx[1]#_g117961_|) + (cons (cons 'key |gx[1]#_g117962_|) + (cons (cons 'phi |gx[1]#_g117963_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118213 __tmp118723 '15 '#f '#f)) - (let ((__tmp118728 - (cons (cons 'e |gx[1]#_g118729_|) - (cons (cons 'id |gx[1]#_g118730_|) - (cons (cons 'key |gx[1]#_g118731_|) - (cons (cons 'phi |gx[1]#_g118732_|) '())))))) + (##unchecked-structure-set! __obj117449 __tmp117959 '15 '#f '#f)) + (let ((__tmp117964 + (cons (cons 'e |gx[1]#_g117965_|) + (cons (cons 'id |gx[1]#_g117966_|) + (cons (cons 'key |gx[1]#_g117967_|) + (cons (cons 'phi |gx[1]#_g117968_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118213 __tmp118728 '16 '#f '#f)) - (let ((__tmp118733 - (cons (cons 'e |gx[1]#_g118734_|) - (cons (cons 'id |gx[1]#_g118735_|) - (cons (cons 'key |gx[1]#_g118736_|) - (cons (cons 'phi |gx[1]#_g118737_|) '())))))) + (##unchecked-structure-set! __obj117449 __tmp117964 '16 '#f '#f)) + (let ((__tmp117969 + (cons (cons 'e |gx[1]#_g117970_|) + (cons (cons 'id |gx[1]#_g117971_|) + (cons (cons 'key |gx[1]#_g117972_|) + (cons (cons 'phi |gx[1]#_g117973_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118213 __tmp118733 '17 '#f '#f)) - (let ((__tmp118738 - (cons (cons 'e |gx[1]#_g118739_|) - (cons (cons 'id |gx[1]#_g118740_|) - (cons (cons 'key |gx[1]#_g118741_|) - (cons (cons 'phi |gx[1]#_g118742_|) '())))))) + (##unchecked-structure-set! __obj117449 __tmp117969 '17 '#f '#f)) + (let ((__tmp117974 + (cons (cons 'e |gx[1]#_g117975_|) + (cons (cons 'id |gx[1]#_g117976_|) + (cons (cons 'key |gx[1]#_g117977_|) + (cons (cons 'phi |gx[1]#_g117978_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118213 __tmp118738 '18 '#f '#f)) + (##unchecked-structure-set! __obj117449 __tmp117974 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118213 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117449 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118213 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117449 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118213 '() '20 '#f '#f)) - __obj118213)) + (##unchecked-structure-set! __obj117449 '() '20 '#f '#f)) + __obj117449)) (define |gx[:0:]#expander| - (let ((__obj118214 + (let ((__obj117450 (let () (declare (not safe)) (##structure @@ -5437,64 +5437,64 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118214 'gx#expander::t '1 '#f '#f)) + (##unchecked-structure-set! __obj117450 'gx#expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118214 'expander '2 '#f '#f)) + (##unchecked-structure-set! __obj117450 'expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118214 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj117450 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118214 '(e) '6 '#f '#f)) + (##unchecked-structure-set! __obj117450 '(e) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118214 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj117450 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118214 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117450 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118214 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117450 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118214 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117450 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118214 '#f '11 '#f '#f)) - (let ((__tmp118743 |gx[1]#_g118744_|)) + (##unchecked-structure-set! __obj117450 '#f '11 '#f '#f)) + (let ((__tmp117979 |gx[1]#_g117980_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118214 __tmp118743 '12 '#f '#f)) - (let ((__tmp118745 |gx[1]#_g118746_|)) + (##unchecked-structure-set! __obj117450 __tmp117979 '12 '#f '#f)) + (let ((__tmp117981 |gx[1]#_g117982_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118214 __tmp118745 '13 '#f '#f)) - (let ((__tmp118747 |gx[1]#_g118748_|)) + (##unchecked-structure-set! __obj117450 __tmp117981 '13 '#f '#f)) + (let ((__tmp117983 |gx[1]#_g117984_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118214 __tmp118747 '14 '#f '#f)) - (let ((__tmp118749 (cons (cons 'e |gx[1]#_g118750_|) '()))) + (##unchecked-structure-set! __obj117450 __tmp117983 '14 '#f '#f)) + (let ((__tmp117985 (cons (cons 'e |gx[1]#_g117986_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118214 __tmp118749 '15 '#f '#f)) - (let ((__tmp118751 (cons (cons 'e |gx[1]#_g118752_|) '()))) + (##unchecked-structure-set! __obj117450 __tmp117985 '15 '#f '#f)) + (let ((__tmp117987 (cons (cons 'e |gx[1]#_g117988_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118214 __tmp118751 '16 '#f '#f)) - (let ((__tmp118753 (cons (cons 'e |gx[1]#_g118754_|) '()))) + (##unchecked-structure-set! __obj117450 __tmp117987 '16 '#f '#f)) + (let ((__tmp117989 (cons (cons 'e |gx[1]#_g117990_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118214 __tmp118753 '17 '#f '#f)) - (let ((__tmp118755 (cons (cons 'e |gx[1]#_g118756_|) '()))) + (##unchecked-structure-set! __obj117450 __tmp117989 '17 '#f '#f)) + (let ((__tmp117991 (cons (cons 'e |gx[1]#_g117992_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118214 __tmp118755 '18 '#f '#f)) + (##unchecked-structure-set! __obj117450 __tmp117991 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118214 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117450 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118214 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117450 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118214 '() '20 '#f '#f)) - __obj118214)) + (##unchecked-structure-set! __obj117450 '() '20 '#f '#f)) + __obj117450)) (define |gx[:0:]#core-expander| - (let ((__obj118215 + (let ((__obj117451 (let () (declare (not safe)) (##structure @@ -5523,18 +5523,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118215 + __obj117451 'gx#core-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118215 'core-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj117451 'core-expander '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118215 + __obj117451 '(id compile-top) '4 '#f @@ -5542,71 +5542,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118215 + __obj117451 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp118757 (cons |gx[1]#_g118758_| '()))) + (let ((__tmp117993 (cons |gx[1]#_g117994_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118215 __tmp118757 '3 '#f '#f)) + (##unchecked-structure-set! __obj117451 __tmp117993 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118215 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117451 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118215 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117451 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118215 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117451 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118215 '#f '11 '#f '#f)) - (let ((__tmp118759 |gx[1]#_g118760_|)) + (##unchecked-structure-set! __obj117451 '#f '11 '#f '#f)) + (let ((__tmp117995 |gx[1]#_g117996_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118215 __tmp118759 '12 '#f '#f)) - (let ((__tmp118761 |gx[1]#_g118762_|)) + (##unchecked-structure-set! __obj117451 __tmp117995 '12 '#f '#f)) + (let ((__tmp117997 |gx[1]#_g117998_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118215 __tmp118761 '13 '#f '#f)) - (let ((__tmp118763 |gx[1]#_g118764_|)) + (##unchecked-structure-set! __obj117451 __tmp117997 '13 '#f '#f)) + (let ((__tmp117999 |gx[1]#_g118000_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118215 __tmp118763 '14 '#f '#f)) - (let ((__tmp118765 - (cons (cons 'id |gx[1]#_g118766_|) - (cons (cons 'compile-top |gx[1]#_g118767_|) - (cons (cons 'e |gx[1]#_g118768_|) '()))))) + (##unchecked-structure-set! __obj117451 __tmp117999 '14 '#f '#f)) + (let ((__tmp118001 + (cons (cons 'id |gx[1]#_g118002_|) + (cons (cons 'compile-top |gx[1]#_g118003_|) + (cons (cons 'e |gx[1]#_g118004_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118215 __tmp118765 '15 '#f '#f)) - (let ((__tmp118769 - (cons (cons 'id |gx[1]#_g118770_|) - (cons (cons 'compile-top |gx[1]#_g118771_|) - (cons (cons 'e |gx[1]#_g118772_|) '()))))) + (##unchecked-structure-set! __obj117451 __tmp118001 '15 '#f '#f)) + (let ((__tmp118005 + (cons (cons 'id |gx[1]#_g118006_|) + (cons (cons 'compile-top |gx[1]#_g118007_|) + (cons (cons 'e |gx[1]#_g118008_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118215 __tmp118769 '16 '#f '#f)) - (let ((__tmp118773 - (cons (cons 'id |gx[1]#_g118774_|) - (cons (cons 'compile-top |gx[1]#_g118775_|) - (cons (cons 'e |gx[1]#_g118776_|) '()))))) + (##unchecked-structure-set! __obj117451 __tmp118005 '16 '#f '#f)) + (let ((__tmp118009 + (cons (cons 'id |gx[1]#_g118010_|) + (cons (cons 'compile-top |gx[1]#_g118011_|) + (cons (cons 'e |gx[1]#_g118012_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118215 __tmp118773 '17 '#f '#f)) - (let ((__tmp118777 - (cons (cons 'id |gx[1]#_g118778_|) - (cons (cons 'compile-top |gx[1]#_g118779_|) - (cons (cons 'e |gx[1]#_g118780_|) '()))))) + (##unchecked-structure-set! __obj117451 __tmp118009 '17 '#f '#f)) + (let ((__tmp118013 + (cons (cons 'id |gx[1]#_g118014_|) + (cons (cons 'compile-top |gx[1]#_g118015_|) + (cons (cons 'e |gx[1]#_g118016_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118215 __tmp118777 '18 '#f '#f)) + (##unchecked-structure-set! __obj117451 __tmp118013 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118215 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117451 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118215 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117451 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118215 '() '20 '#f '#f)) - __obj118215)) + (##unchecked-structure-set! __obj117451 '() '20 '#f '#f)) + __obj117451)) (define |gx[:0:]#expression-form| - (let ((__obj118216 + (let ((__obj117452 (let () (declare (not safe)) (##structure @@ -5635,85 +5635,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118216 + __obj117452 'gx#expression-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118216 'expression-form '2 '#f '#f)) + (##unchecked-structure-set! __obj117452 'expression-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118216 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117452 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118216 + __obj117452 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp118781 (cons |gx[1]#_g118782_| '()))) + (let ((__tmp118017 (cons |gx[1]#_g118018_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118216 __tmp118781 '3 '#f '#f)) + (##unchecked-structure-set! __obj117452 __tmp118017 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118216 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117452 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118216 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117452 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118216 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117452 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118216 '#f '11 '#f '#f)) - (let ((__tmp118783 |gx[1]#_g118784_|)) + (##unchecked-structure-set! __obj117452 '#f '11 '#f '#f)) + (let ((__tmp118019 |gx[1]#_g118020_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118216 __tmp118783 '12 '#f '#f)) - (let ((__tmp118785 |gx[1]#_g118786_|)) + (##unchecked-structure-set! __obj117452 __tmp118019 '12 '#f '#f)) + (let ((__tmp118021 |gx[1]#_g118022_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118216 __tmp118785 '13 '#f '#f)) - (let ((__tmp118787 |gx[1]#_g118788_|)) + (##unchecked-structure-set! __obj117452 __tmp118021 '13 '#f '#f)) + (let ((__tmp118023 |gx[1]#_g118024_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118216 __tmp118787 '14 '#f '#f)) - (let ((__tmp118789 - (cons (cons 'id |gx[1]#_g118790_|) - (cons (cons 'compile-top |gx[1]#_g118791_|) - (cons (cons 'e |gx[1]#_g118792_|) '()))))) + (##unchecked-structure-set! __obj117452 __tmp118023 '14 '#f '#f)) + (let ((__tmp118025 + (cons (cons 'id |gx[1]#_g118026_|) + (cons (cons 'compile-top |gx[1]#_g118027_|) + (cons (cons 'e |gx[1]#_g118028_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118216 __tmp118789 '15 '#f '#f)) - (let ((__tmp118793 - (cons (cons 'id |gx[1]#_g118794_|) - (cons (cons 'compile-top |gx[1]#_g118795_|) - (cons (cons 'e |gx[1]#_g118796_|) '()))))) + (##unchecked-structure-set! __obj117452 __tmp118025 '15 '#f '#f)) + (let ((__tmp118029 + (cons (cons 'id |gx[1]#_g118030_|) + (cons (cons 'compile-top |gx[1]#_g118031_|) + (cons (cons 'e |gx[1]#_g118032_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118216 __tmp118793 '16 '#f '#f)) - (let ((__tmp118797 - (cons (cons 'id |gx[1]#_g118798_|) - (cons (cons 'compile-top |gx[1]#_g118799_|) - (cons (cons 'e |gx[1]#_g118800_|) '()))))) + (##unchecked-structure-set! __obj117452 __tmp118029 '16 '#f '#f)) + (let ((__tmp118033 + (cons (cons 'id |gx[1]#_g118034_|) + (cons (cons 'compile-top |gx[1]#_g118035_|) + (cons (cons 'e |gx[1]#_g118036_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118216 __tmp118797 '17 '#f '#f)) - (let ((__tmp118801 - (cons (cons 'id |gx[1]#_g118802_|) - (cons (cons 'compile-top |gx[1]#_g118803_|) - (cons (cons 'e |gx[1]#_g118804_|) '()))))) + (##unchecked-structure-set! __obj117452 __tmp118033 '17 '#f '#f)) + (let ((__tmp118037 + (cons (cons 'id |gx[1]#_g118038_|) + (cons (cons 'compile-top |gx[1]#_g118039_|) + (cons (cons 'e |gx[1]#_g118040_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118216 __tmp118801 '18 '#f '#f)) + (##unchecked-structure-set! __obj117452 __tmp118037 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118216 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117452 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118216 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117452 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118216 '() '20 '#f '#f)) - __obj118216)) + (##unchecked-structure-set! __obj117452 '() '20 '#f '#f)) + __obj117452)) (define |gx[:0:]#special-form| - (let ((__obj118217 + (let ((__obj117453 (let () (declare (not safe)) (##structure @@ -5742,85 +5742,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118217 + __obj117453 'gx#special-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118217 'special-form '2 '#f '#f)) + (##unchecked-structure-set! __obj117453 'special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118217 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117453 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118217 + __obj117453 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp118805 (cons |gx[1]#_g118782_| '()))) + (let ((__tmp118041 (cons |gx[1]#_g118018_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118217 __tmp118805 '3 '#f '#f)) + (##unchecked-structure-set! __obj117453 __tmp118041 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118217 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117453 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118217 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117453 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118217 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117453 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118217 '#f '11 '#f '#f)) - (let ((__tmp118806 |gx[1]#_g118807_|)) + (##unchecked-structure-set! __obj117453 '#f '11 '#f '#f)) + (let ((__tmp118042 |gx[1]#_g118043_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118217 __tmp118806 '12 '#f '#f)) - (let ((__tmp118808 |gx[1]#_g118809_|)) + (##unchecked-structure-set! __obj117453 __tmp118042 '12 '#f '#f)) + (let ((__tmp118044 |gx[1]#_g118045_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118217 __tmp118808 '13 '#f '#f)) - (let ((__tmp118810 |gx[1]#_g118811_|)) + (##unchecked-structure-set! __obj117453 __tmp118044 '13 '#f '#f)) + (let ((__tmp118046 |gx[1]#_g118047_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118217 __tmp118810 '14 '#f '#f)) - (let ((__tmp118812 - (cons (cons 'id |gx[1]#_g118813_|) - (cons (cons 'compile-top |gx[1]#_g118814_|) - (cons (cons 'e |gx[1]#_g118815_|) '()))))) + (##unchecked-structure-set! __obj117453 __tmp118046 '14 '#f '#f)) + (let ((__tmp118048 + (cons (cons 'id |gx[1]#_g118049_|) + (cons (cons 'compile-top |gx[1]#_g118050_|) + (cons (cons 'e |gx[1]#_g118051_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118217 __tmp118812 '15 '#f '#f)) - (let ((__tmp118816 - (cons (cons 'id |gx[1]#_g118817_|) - (cons (cons 'compile-top |gx[1]#_g118818_|) - (cons (cons 'e |gx[1]#_g118819_|) '()))))) + (##unchecked-structure-set! __obj117453 __tmp118048 '15 '#f '#f)) + (let ((__tmp118052 + (cons (cons 'id |gx[1]#_g118053_|) + (cons (cons 'compile-top |gx[1]#_g118054_|) + (cons (cons 'e |gx[1]#_g118055_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118217 __tmp118816 '16 '#f '#f)) - (let ((__tmp118820 - (cons (cons 'id |gx[1]#_g118821_|) - (cons (cons 'compile-top |gx[1]#_g118822_|) - (cons (cons 'e |gx[1]#_g118823_|) '()))))) + (##unchecked-structure-set! __obj117453 __tmp118052 '16 '#f '#f)) + (let ((__tmp118056 + (cons (cons 'id |gx[1]#_g118057_|) + (cons (cons 'compile-top |gx[1]#_g118058_|) + (cons (cons 'e |gx[1]#_g118059_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118217 __tmp118820 '17 '#f '#f)) - (let ((__tmp118824 - (cons (cons 'id |gx[1]#_g118825_|) - (cons (cons 'compile-top |gx[1]#_g118826_|) - (cons (cons 'e |gx[1]#_g118827_|) '()))))) + (##unchecked-structure-set! __obj117453 __tmp118056 '17 '#f '#f)) + (let ((__tmp118060 + (cons (cons 'id |gx[1]#_g118061_|) + (cons (cons 'compile-top |gx[1]#_g118062_|) + (cons (cons 'e |gx[1]#_g118063_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118217 __tmp118824 '18 '#f '#f)) + (##unchecked-structure-set! __obj117453 __tmp118060 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118217 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117453 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118217 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117453 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118217 '() '20 '#f '#f)) - __obj118217)) + (##unchecked-structure-set! __obj117453 '() '20 '#f '#f)) + __obj117453)) (define |gx[:0:]#definition-form| - (let ((__obj118218 + (let ((__obj117454 (let () (declare (not safe)) (##structure @@ -5849,85 +5849,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118218 + __obj117454 'gx#definition-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118218 'definition-form '2 '#f '#f)) + (##unchecked-structure-set! __obj117454 'definition-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118218 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117454 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118218 + __obj117454 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp118828 (cons |gx[1]#_g118829_| '()))) + (let ((__tmp118064 (cons |gx[1]#_g118065_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118218 __tmp118828 '3 '#f '#f)) + (##unchecked-structure-set! __obj117454 __tmp118064 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118218 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117454 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118218 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117454 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118218 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117454 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118218 '#f '11 '#f '#f)) - (let ((__tmp118830 |gx[1]#_g118831_|)) + (##unchecked-structure-set! __obj117454 '#f '11 '#f '#f)) + (let ((__tmp118066 |gx[1]#_g118067_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118218 __tmp118830 '12 '#f '#f)) - (let ((__tmp118832 |gx[1]#_g118833_|)) + (##unchecked-structure-set! __obj117454 __tmp118066 '12 '#f '#f)) + (let ((__tmp118068 |gx[1]#_g118069_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118218 __tmp118832 '13 '#f '#f)) - (let ((__tmp118834 |gx[1]#_g118835_|)) + (##unchecked-structure-set! __obj117454 __tmp118068 '13 '#f '#f)) + (let ((__tmp118070 |gx[1]#_g118071_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118218 __tmp118834 '14 '#f '#f)) - (let ((__tmp118836 - (cons (cons 'id |gx[1]#_g118837_|) - (cons (cons 'compile-top |gx[1]#_g118838_|) - (cons (cons 'e |gx[1]#_g118839_|) '()))))) + (##unchecked-structure-set! __obj117454 __tmp118070 '14 '#f '#f)) + (let ((__tmp118072 + (cons (cons 'id |gx[1]#_g118073_|) + (cons (cons 'compile-top |gx[1]#_g118074_|) + (cons (cons 'e |gx[1]#_g118075_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118218 __tmp118836 '15 '#f '#f)) - (let ((__tmp118840 - (cons (cons 'id |gx[1]#_g118841_|) - (cons (cons 'compile-top |gx[1]#_g118842_|) - (cons (cons 'e |gx[1]#_g118843_|) '()))))) + (##unchecked-structure-set! __obj117454 __tmp118072 '15 '#f '#f)) + (let ((__tmp118076 + (cons (cons 'id |gx[1]#_g118077_|) + (cons (cons 'compile-top |gx[1]#_g118078_|) + (cons (cons 'e |gx[1]#_g118079_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118218 __tmp118840 '16 '#f '#f)) - (let ((__tmp118844 - (cons (cons 'id |gx[1]#_g118845_|) - (cons (cons 'compile-top |gx[1]#_g118846_|) - (cons (cons 'e |gx[1]#_g118847_|) '()))))) + (##unchecked-structure-set! __obj117454 __tmp118076 '16 '#f '#f)) + (let ((__tmp118080 + (cons (cons 'id |gx[1]#_g118081_|) + (cons (cons 'compile-top |gx[1]#_g118082_|) + (cons (cons 'e |gx[1]#_g118083_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118218 __tmp118844 '17 '#f '#f)) - (let ((__tmp118848 - (cons (cons 'id |gx[1]#_g118849_|) - (cons (cons 'compile-top |gx[1]#_g118850_|) - (cons (cons 'e |gx[1]#_g118851_|) '()))))) + (##unchecked-structure-set! __obj117454 __tmp118080 '17 '#f '#f)) + (let ((__tmp118084 + (cons (cons 'id |gx[1]#_g118085_|) + (cons (cons 'compile-top |gx[1]#_g118086_|) + (cons (cons 'e |gx[1]#_g118087_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118218 __tmp118848 '18 '#f '#f)) + (##unchecked-structure-set! __obj117454 __tmp118084 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118218 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117454 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118218 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117454 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118218 '() '20 '#f '#f)) - __obj118218)) + (##unchecked-structure-set! __obj117454 '() '20 '#f '#f)) + __obj117454)) (define |gx[:0:]#top-special-form| - (let ((__obj118219 + (let ((__obj117455 (let () (declare (not safe)) (##structure @@ -5956,7 +5956,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118219 + __obj117455 'gx#top-special-form::t '1 '#f @@ -5964,82 +5964,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118219 + __obj117455 'top-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118219 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117455 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118219 + __obj117455 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp118852 (cons |gx[1]#_g118829_| '()))) + (let ((__tmp118088 (cons |gx[1]#_g118065_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118219 __tmp118852 '3 '#f '#f)) + (##unchecked-structure-set! __obj117455 __tmp118088 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118219 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117455 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118219 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117455 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118219 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117455 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118219 '#f '11 '#f '#f)) - (let ((__tmp118853 |gx[1]#_g118854_|)) + (##unchecked-structure-set! __obj117455 '#f '11 '#f '#f)) + (let ((__tmp118089 |gx[1]#_g118090_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118219 __tmp118853 '12 '#f '#f)) - (let ((__tmp118855 |gx[1]#_g118856_|)) + (##unchecked-structure-set! __obj117455 __tmp118089 '12 '#f '#f)) + (let ((__tmp118091 |gx[1]#_g118092_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118219 __tmp118855 '13 '#f '#f)) - (let ((__tmp118857 |gx[1]#_g118858_|)) + (##unchecked-structure-set! __obj117455 __tmp118091 '13 '#f '#f)) + (let ((__tmp118093 |gx[1]#_g118094_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118219 __tmp118857 '14 '#f '#f)) - (let ((__tmp118859 - (cons (cons 'id |gx[1]#_g118860_|) - (cons (cons 'compile-top |gx[1]#_g118861_|) - (cons (cons 'e |gx[1]#_g118862_|) '()))))) + (##unchecked-structure-set! __obj117455 __tmp118093 '14 '#f '#f)) + (let ((__tmp118095 + (cons (cons 'id |gx[1]#_g118096_|) + (cons (cons 'compile-top |gx[1]#_g118097_|) + (cons (cons 'e |gx[1]#_g118098_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118219 __tmp118859 '15 '#f '#f)) - (let ((__tmp118863 - (cons (cons 'id |gx[1]#_g118864_|) - (cons (cons 'compile-top |gx[1]#_g118865_|) - (cons (cons 'e |gx[1]#_g118866_|) '()))))) + (##unchecked-structure-set! __obj117455 __tmp118095 '15 '#f '#f)) + (let ((__tmp118099 + (cons (cons 'id |gx[1]#_g118100_|) + (cons (cons 'compile-top |gx[1]#_g118101_|) + (cons (cons 'e |gx[1]#_g118102_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118219 __tmp118863 '16 '#f '#f)) - (let ((__tmp118867 - (cons (cons 'id |gx[1]#_g118868_|) - (cons (cons 'compile-top |gx[1]#_g118869_|) - (cons (cons 'e |gx[1]#_g118870_|) '()))))) + (##unchecked-structure-set! __obj117455 __tmp118099 '16 '#f '#f)) + (let ((__tmp118103 + (cons (cons 'id |gx[1]#_g118104_|) + (cons (cons 'compile-top |gx[1]#_g118105_|) + (cons (cons 'e |gx[1]#_g118106_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118219 __tmp118867 '17 '#f '#f)) - (let ((__tmp118871 - (cons (cons 'id |gx[1]#_g118872_|) - (cons (cons 'compile-top |gx[1]#_g118873_|) - (cons (cons 'e |gx[1]#_g118874_|) '()))))) + (##unchecked-structure-set! __obj117455 __tmp118103 '17 '#f '#f)) + (let ((__tmp118107 + (cons (cons 'id |gx[1]#_g118108_|) + (cons (cons 'compile-top |gx[1]#_g118109_|) + (cons (cons 'e |gx[1]#_g118110_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118219 __tmp118871 '18 '#f '#f)) + (##unchecked-structure-set! __obj117455 __tmp118107 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118219 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117455 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118219 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117455 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118219 '() '20 '#f '#f)) - __obj118219)) + (##unchecked-structure-set! __obj117455 '() '20 '#f '#f)) + __obj117455)) (define |gx[:0:]#module-special-form| - (let ((__obj118220 + (let ((__obj117456 (let () (declare (not safe)) (##structure @@ -6068,7 +6068,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118220 + __obj117456 'gx#module-special-form::t '1 '#f @@ -6076,82 +6076,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118220 + __obj117456 'module-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118220 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117456 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118220 + __obj117456 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp118875 (cons |gx[1]#_g118876_| '()))) + (let ((__tmp118111 (cons |gx[1]#_g118112_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118220 __tmp118875 '3 '#f '#f)) + (##unchecked-structure-set! __obj117456 __tmp118111 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118220 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117456 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118220 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117456 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118220 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117456 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118220 '#f '11 '#f '#f)) - (let ((__tmp118877 |gx[1]#_g118878_|)) + (##unchecked-structure-set! __obj117456 '#f '11 '#f '#f)) + (let ((__tmp118113 |gx[1]#_g118114_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118220 __tmp118877 '12 '#f '#f)) - (let ((__tmp118879 |gx[1]#_g118880_|)) + (##unchecked-structure-set! __obj117456 __tmp118113 '12 '#f '#f)) + (let ((__tmp118115 |gx[1]#_g118116_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118220 __tmp118879 '13 '#f '#f)) - (let ((__tmp118881 |gx[1]#_g118882_|)) + (##unchecked-structure-set! __obj117456 __tmp118115 '13 '#f '#f)) + (let ((__tmp118117 |gx[1]#_g118118_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118220 __tmp118881 '14 '#f '#f)) - (let ((__tmp118883 - (cons (cons 'id |gx[1]#_g118884_|) - (cons (cons 'compile-top |gx[1]#_g118885_|) - (cons (cons 'e |gx[1]#_g118886_|) '()))))) + (##unchecked-structure-set! __obj117456 __tmp118117 '14 '#f '#f)) + (let ((__tmp118119 + (cons (cons 'id |gx[1]#_g118120_|) + (cons (cons 'compile-top |gx[1]#_g118121_|) + (cons (cons 'e |gx[1]#_g118122_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118220 __tmp118883 '15 '#f '#f)) - (let ((__tmp118887 - (cons (cons 'id |gx[1]#_g118888_|) - (cons (cons 'compile-top |gx[1]#_g118889_|) - (cons (cons 'e |gx[1]#_g118890_|) '()))))) + (##unchecked-structure-set! __obj117456 __tmp118119 '15 '#f '#f)) + (let ((__tmp118123 + (cons (cons 'id |gx[1]#_g118124_|) + (cons (cons 'compile-top |gx[1]#_g118125_|) + (cons (cons 'e |gx[1]#_g118126_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118220 __tmp118887 '16 '#f '#f)) - (let ((__tmp118891 - (cons (cons 'id |gx[1]#_g118892_|) - (cons (cons 'compile-top |gx[1]#_g118893_|) - (cons (cons 'e |gx[1]#_g118894_|) '()))))) + (##unchecked-structure-set! __obj117456 __tmp118123 '16 '#f '#f)) + (let ((__tmp118127 + (cons (cons 'id |gx[1]#_g118128_|) + (cons (cons 'compile-top |gx[1]#_g118129_|) + (cons (cons 'e |gx[1]#_g118130_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118220 __tmp118891 '17 '#f '#f)) - (let ((__tmp118895 - (cons (cons 'id |gx[1]#_g118896_|) - (cons (cons 'compile-top |gx[1]#_g118897_|) - (cons (cons 'e |gx[1]#_g118898_|) '()))))) + (##unchecked-structure-set! __obj117456 __tmp118127 '17 '#f '#f)) + (let ((__tmp118131 + (cons (cons 'id |gx[1]#_g118132_|) + (cons (cons 'compile-top |gx[1]#_g118133_|) + (cons (cons 'e |gx[1]#_g118134_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118220 __tmp118895 '18 '#f '#f)) + (##unchecked-structure-set! __obj117456 __tmp118131 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118220 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117456 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118220 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117456 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118220 '() '20 '#f '#f)) - __obj118220)) + (##unchecked-structure-set! __obj117456 '() '20 '#f '#f)) + __obj117456)) (define |gx[:0:]#feature-expander| - (let ((__obj118221 + (let ((__obj117457 (let () (declare (not safe)) (##structure @@ -6180,7 +6180,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118221 + __obj117457 'gx#feature-expander::t '1 '#f @@ -6188,65 +6188,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118221 + __obj117457 'feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118221 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117457 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118221 '(e) '6 '#f '#f)) - (let ((__tmp118899 (cons |gx[1]#_g118758_| '()))) + (##unchecked-structure-set! __obj117457 '(e) '6 '#f '#f)) + (let ((__tmp118135 (cons |gx[1]#_g117994_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118221 __tmp118899 '3 '#f '#f)) + (##unchecked-structure-set! __obj117457 __tmp118135 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118221 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117457 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118221 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117457 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118221 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117457 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118221 '#f '11 '#f '#f)) - (let ((__tmp118900 |gx[1]#_g118901_|)) + (##unchecked-structure-set! __obj117457 '#f '11 '#f '#f)) + (let ((__tmp118136 |gx[1]#_g118137_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118221 __tmp118900 '12 '#f '#f)) - (let ((__tmp118902 |gx[1]#_g118903_|)) + (##unchecked-structure-set! __obj117457 __tmp118136 '12 '#f '#f)) + (let ((__tmp118138 |gx[1]#_g118139_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118221 __tmp118902 '13 '#f '#f)) - (let ((__tmp118904 |gx[1]#_g118905_|)) + (##unchecked-structure-set! __obj117457 __tmp118138 '13 '#f '#f)) + (let ((__tmp118140 |gx[1]#_g118141_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118221 __tmp118904 '14 '#f '#f)) - (let ((__tmp118906 (cons (cons 'e |gx[1]#_g118907_|) '()))) + (##unchecked-structure-set! __obj117457 __tmp118140 '14 '#f '#f)) + (let ((__tmp118142 (cons (cons 'e |gx[1]#_g118143_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118221 __tmp118906 '15 '#f '#f)) - (let ((__tmp118908 (cons (cons 'e |gx[1]#_g118909_|) '()))) + (##unchecked-structure-set! __obj117457 __tmp118142 '15 '#f '#f)) + (let ((__tmp118144 (cons (cons 'e |gx[1]#_g118145_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118221 __tmp118908 '16 '#f '#f)) - (let ((__tmp118910 (cons (cons 'e |gx[1]#_g118911_|) '()))) + (##unchecked-structure-set! __obj117457 __tmp118144 '16 '#f '#f)) + (let ((__tmp118146 (cons (cons 'e |gx[1]#_g118147_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118221 __tmp118910 '17 '#f '#f)) - (let ((__tmp118912 (cons (cons 'e |gx[1]#_g118913_|) '()))) + (##unchecked-structure-set! __obj117457 __tmp118146 '17 '#f '#f)) + (let ((__tmp118148 (cons (cons 'e |gx[1]#_g118149_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118221 __tmp118912 '18 '#f '#f)) + (##unchecked-structure-set! __obj117457 __tmp118148 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118221 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117457 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118221 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117457 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118221 '() '20 '#f '#f)) - __obj118221)) + (##unchecked-structure-set! __obj117457 '() '20 '#f '#f)) + __obj117457)) (define |gx[:0:]#private-feature-expander| - (let ((__obj118222 + (let ((__obj117458 (let () (declare (not safe)) (##structure @@ -6275,7 +6275,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118222 + __obj117458 'gx#private-feature-expander::t '1 '#f @@ -6283,65 +6283,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118222 + __obj117458 'private-feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118222 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117458 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118222 '(e) '6 '#f '#f)) - (let ((__tmp118914 (cons |gx[1]#_g118915_| '()))) + (##unchecked-structure-set! __obj117458 '(e) '6 '#f '#f)) + (let ((__tmp118150 (cons |gx[1]#_g118151_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118222 __tmp118914 '3 '#f '#f)) + (##unchecked-structure-set! __obj117458 __tmp118150 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118222 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117458 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118222 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117458 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118222 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117458 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118222 '#f '11 '#f '#f)) - (let ((__tmp118916 |gx[1]#_g118917_|)) + (##unchecked-structure-set! __obj117458 '#f '11 '#f '#f)) + (let ((__tmp118152 |gx[1]#_g118153_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118222 __tmp118916 '12 '#f '#f)) - (let ((__tmp118918 |gx[1]#_g118919_|)) + (##unchecked-structure-set! __obj117458 __tmp118152 '12 '#f '#f)) + (let ((__tmp118154 |gx[1]#_g118155_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118222 __tmp118918 '13 '#f '#f)) - (let ((__tmp118920 |gx[1]#_g118921_|)) + (##unchecked-structure-set! __obj117458 __tmp118154 '13 '#f '#f)) + (let ((__tmp118156 |gx[1]#_g118157_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118222 __tmp118920 '14 '#f '#f)) - (let ((__tmp118922 (cons (cons 'e |gx[1]#_g118923_|) '()))) + (##unchecked-structure-set! __obj117458 __tmp118156 '14 '#f '#f)) + (let ((__tmp118158 (cons (cons 'e |gx[1]#_g118159_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118222 __tmp118922 '15 '#f '#f)) - (let ((__tmp118924 (cons (cons 'e |gx[1]#_g118925_|) '()))) + (##unchecked-structure-set! __obj117458 __tmp118158 '15 '#f '#f)) + (let ((__tmp118160 (cons (cons 'e |gx[1]#_g118161_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118222 __tmp118924 '16 '#f '#f)) - (let ((__tmp118926 (cons (cons 'e |gx[1]#_g118927_|) '()))) + (##unchecked-structure-set! __obj117458 __tmp118160 '16 '#f '#f)) + (let ((__tmp118162 (cons (cons 'e |gx[1]#_g118163_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118222 __tmp118926 '17 '#f '#f)) - (let ((__tmp118928 (cons (cons 'e |gx[1]#_g118929_|) '()))) + (##unchecked-structure-set! __obj117458 __tmp118162 '17 '#f '#f)) + (let ((__tmp118164 (cons (cons 'e |gx[1]#_g118165_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118222 __tmp118928 '18 '#f '#f)) + (##unchecked-structure-set! __obj117458 __tmp118164 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118222 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117458 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118222 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117458 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118222 '() '20 '#f '#f)) - __obj118222)) + (##unchecked-structure-set! __obj117458 '() '20 '#f '#f)) + __obj117458)) (define |gx[:0:]#reserved-expander| - (let ((__obj118223 + (let ((__obj117459 (let () (declare (not safe)) (##structure @@ -6370,7 +6370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118223 + __obj117459 'gx#reserved-expander::t '1 '#f @@ -6378,65 +6378,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118223 + __obj117459 'reserved-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118223 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117459 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118223 '(e) '6 '#f '#f)) - (let ((__tmp118930 (cons |gx[1]#_g118758_| '()))) + (##unchecked-structure-set! __obj117459 '(e) '6 '#f '#f)) + (let ((__tmp118166 (cons |gx[1]#_g117994_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118223 __tmp118930 '3 '#f '#f)) + (##unchecked-structure-set! __obj117459 __tmp118166 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118223 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117459 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118223 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117459 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118223 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117459 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118223 '#f '11 '#f '#f)) - (let ((__tmp118931 |gx[1]#_g118932_|)) + (##unchecked-structure-set! __obj117459 '#f '11 '#f '#f)) + (let ((__tmp118167 |gx[1]#_g118168_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118223 __tmp118931 '12 '#f '#f)) - (let ((__tmp118933 |gx[1]#_g118934_|)) + (##unchecked-structure-set! __obj117459 __tmp118167 '12 '#f '#f)) + (let ((__tmp118169 |gx[1]#_g118170_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118223 __tmp118933 '13 '#f '#f)) - (let ((__tmp118935 |gx[1]#_g118936_|)) + (##unchecked-structure-set! __obj117459 __tmp118169 '13 '#f '#f)) + (let ((__tmp118171 |gx[1]#_g118172_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118223 __tmp118935 '14 '#f '#f)) - (let ((__tmp118937 (cons (cons 'e |gx[1]#_g118938_|) '()))) + (##unchecked-structure-set! __obj117459 __tmp118171 '14 '#f '#f)) + (let ((__tmp118173 (cons (cons 'e |gx[1]#_g118174_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118223 __tmp118937 '15 '#f '#f)) - (let ((__tmp118939 (cons (cons 'e |gx[1]#_g118940_|) '()))) + (##unchecked-structure-set! __obj117459 __tmp118173 '15 '#f '#f)) + (let ((__tmp118175 (cons (cons 'e |gx[1]#_g118176_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118223 __tmp118939 '16 '#f '#f)) - (let ((__tmp118941 (cons (cons 'e |gx[1]#_g118942_|) '()))) + (##unchecked-structure-set! __obj117459 __tmp118175 '16 '#f '#f)) + (let ((__tmp118177 (cons (cons 'e |gx[1]#_g118178_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118223 __tmp118941 '17 '#f '#f)) - (let ((__tmp118943 (cons (cons 'e |gx[1]#_g118944_|) '()))) + (##unchecked-structure-set! __obj117459 __tmp118177 '17 '#f '#f)) + (let ((__tmp118179 (cons (cons 'e |gx[1]#_g118180_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118223 __tmp118943 '18 '#f '#f)) + (##unchecked-structure-set! __obj117459 __tmp118179 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118223 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117459 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118223 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117459 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118223 '() '20 '#f '#f)) - __obj118223)) + (##unchecked-structure-set! __obj117459 '() '20 '#f '#f)) + __obj117459)) (define |gx[:0:]#macro-expander| - (let ((__obj118224 + (let ((__obj117460 (let () (declare (not safe)) (##structure @@ -6465,68 +6465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118224 + __obj117460 'gx#macro-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118224 'macro-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj117460 'macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118224 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117460 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118224 '(e) '6 '#f '#f)) - (let ((__tmp118945 (cons |gx[1]#_g118758_| '()))) + (##unchecked-structure-set! __obj117460 '(e) '6 '#f '#f)) + (let ((__tmp118181 (cons |gx[1]#_g117994_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118224 __tmp118945 '3 '#f '#f)) + (##unchecked-structure-set! __obj117460 __tmp118181 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118224 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117460 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118224 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117460 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118224 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117460 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118224 '#f '11 '#f '#f)) - (let ((__tmp118946 |gx[1]#_g118947_|)) + (##unchecked-structure-set! __obj117460 '#f '11 '#f '#f)) + (let ((__tmp118182 |gx[1]#_g118183_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118224 __tmp118946 '12 '#f '#f)) - (let ((__tmp118948 |gx[1]#_g118949_|)) + (##unchecked-structure-set! __obj117460 __tmp118182 '12 '#f '#f)) + (let ((__tmp118184 |gx[1]#_g118185_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118224 __tmp118948 '13 '#f '#f)) - (let ((__tmp118950 |gx[1]#_g118951_|)) + (##unchecked-structure-set! __obj117460 __tmp118184 '13 '#f '#f)) + (let ((__tmp118186 |gx[1]#_g118187_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118224 __tmp118950 '14 '#f '#f)) - (let ((__tmp118952 (cons (cons 'e |gx[1]#_g118953_|) '()))) + (##unchecked-structure-set! __obj117460 __tmp118186 '14 '#f '#f)) + (let ((__tmp118188 (cons (cons 'e |gx[1]#_g118189_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118224 __tmp118952 '15 '#f '#f)) - (let ((__tmp118954 (cons (cons 'e |gx[1]#_g118955_|) '()))) + (##unchecked-structure-set! __obj117460 __tmp118188 '15 '#f '#f)) + (let ((__tmp118190 (cons (cons 'e |gx[1]#_g118191_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118224 __tmp118954 '16 '#f '#f)) - (let ((__tmp118956 (cons (cons 'e |gx[1]#_g118957_|) '()))) + (##unchecked-structure-set! __obj117460 __tmp118190 '16 '#f '#f)) + (let ((__tmp118192 (cons (cons 'e |gx[1]#_g118193_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118224 __tmp118956 '17 '#f '#f)) - (let ((__tmp118958 (cons (cons 'e |gx[1]#_g118959_|) '()))) + (##unchecked-structure-set! __obj117460 __tmp118192 '17 '#f '#f)) + (let ((__tmp118194 (cons (cons 'e |gx[1]#_g118195_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118224 __tmp118958 '18 '#f '#f)) + (##unchecked-structure-set! __obj117460 __tmp118194 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118224 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117460 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118224 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117460 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118224 '() '20 '#f '#f)) - __obj118224)) + (##unchecked-structure-set! __obj117460 '() '20 '#f '#f)) + __obj117460)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj118225 + (let ((__obj117461 (let () (declare (not safe)) (##structure @@ -6555,7 +6555,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118225 + __obj117461 'gx#rename-macro-expander::t '1 '#f @@ -6563,65 +6563,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118225 + __obj117461 'rename-macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118225 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj117461 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118225 '(e) '6 '#f '#f)) - (let ((__tmp118960 (cons |gx[1]#_g118961_| '()))) + (##unchecked-structure-set! __obj117461 '(e) '6 '#f '#f)) + (let ((__tmp118196 (cons |gx[1]#_g118197_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118225 __tmp118960 '3 '#f '#f)) + (##unchecked-structure-set! __obj117461 __tmp118196 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118225 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117461 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118225 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117461 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118225 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117461 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118225 '#f '11 '#f '#f)) - (let ((__tmp118962 |gx[1]#_g118963_|)) + (##unchecked-structure-set! __obj117461 '#f '11 '#f '#f)) + (let ((__tmp118198 |gx[1]#_g118199_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118225 __tmp118962 '12 '#f '#f)) - (let ((__tmp118964 |gx[1]#_g118965_|)) + (##unchecked-structure-set! __obj117461 __tmp118198 '12 '#f '#f)) + (let ((__tmp118200 |gx[1]#_g118201_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118225 __tmp118964 '13 '#f '#f)) - (let ((__tmp118966 |gx[1]#_g118967_|)) + (##unchecked-structure-set! __obj117461 __tmp118200 '13 '#f '#f)) + (let ((__tmp118202 |gx[1]#_g118203_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118225 __tmp118966 '14 '#f '#f)) - (let ((__tmp118968 (cons (cons 'e |gx[1]#_g118969_|) '()))) + (##unchecked-structure-set! __obj117461 __tmp118202 '14 '#f '#f)) + (let ((__tmp118204 (cons (cons 'e |gx[1]#_g118205_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118225 __tmp118968 '15 '#f '#f)) - (let ((__tmp118970 (cons (cons 'e |gx[1]#_g118971_|) '()))) + (##unchecked-structure-set! __obj117461 __tmp118204 '15 '#f '#f)) + (let ((__tmp118206 (cons (cons 'e |gx[1]#_g118207_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118225 __tmp118970 '16 '#f '#f)) - (let ((__tmp118972 (cons (cons 'e |gx[1]#_g118973_|) '()))) + (##unchecked-structure-set! __obj117461 __tmp118206 '16 '#f '#f)) + (let ((__tmp118208 (cons (cons 'e |gx[1]#_g118209_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118225 __tmp118972 '17 '#f '#f)) - (let ((__tmp118974 (cons (cons 'e |gx[1]#_g118975_|) '()))) + (##unchecked-structure-set! __obj117461 __tmp118208 '17 '#f '#f)) + (let ((__tmp118210 (cons (cons 'e |gx[1]#_g118211_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118225 __tmp118974 '18 '#f '#f)) + (##unchecked-structure-set! __obj117461 __tmp118210 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118225 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117461 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118225 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117461 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118225 '() '20 '#f '#f)) - __obj118225)) + (##unchecked-structure-set! __obj117461 '() '20 '#f '#f)) + __obj117461)) (define |gx[:0:]#user-expander| - (let ((__obj118226 + (let ((__obj117462 (let () (declare (not safe)) (##structure @@ -6650,80 +6650,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118226 + __obj117462 'gx#user-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118226 'user-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj117462 'user-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118226 '(context phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj117462 '(context phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118226 '(e context phi) '6 '#f '#f)) - (let ((__tmp118976 (cons |gx[1]#_g118961_| '()))) + (##unchecked-structure-set! __obj117462 '(e context phi) '6 '#f '#f)) + (let ((__tmp118212 (cons |gx[1]#_g118197_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118226 __tmp118976 '3 '#f '#f)) + (##unchecked-structure-set! __obj117462 __tmp118212 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118226 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117462 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118226 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117462 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118226 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117462 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118226 '#f '11 '#f '#f)) - (let ((__tmp118977 |gx[1]#_g118978_|)) + (##unchecked-structure-set! __obj117462 '#f '11 '#f '#f)) + (let ((__tmp118213 |gx[1]#_g118214_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118226 __tmp118977 '12 '#f '#f)) - (let ((__tmp118979 |gx[1]#_g118980_|)) + (##unchecked-structure-set! __obj117462 __tmp118213 '12 '#f '#f)) + (let ((__tmp118215 |gx[1]#_g118216_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118226 __tmp118979 '13 '#f '#f)) - (let ((__tmp118981 |gx[1]#_g118982_|)) + (##unchecked-structure-set! __obj117462 __tmp118215 '13 '#f '#f)) + (let ((__tmp118217 |gx[1]#_g118218_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118226 __tmp118981 '14 '#f '#f)) - (let ((__tmp118983 - (cons (cons 'context |gx[1]#_g118984_|) - (cons (cons 'phi |gx[1]#_g118985_|) - (cons (cons 'e |gx[1]#_g118986_|) '()))))) + (##unchecked-structure-set! __obj117462 __tmp118217 '14 '#f '#f)) + (let ((__tmp118219 + (cons (cons 'context |gx[1]#_g118220_|) + (cons (cons 'phi |gx[1]#_g118221_|) + (cons (cons 'e |gx[1]#_g118222_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118226 __tmp118983 '15 '#f '#f)) - (let ((__tmp118987 - (cons (cons 'context |gx[1]#_g118988_|) - (cons (cons 'phi |gx[1]#_g118989_|) - (cons (cons 'e |gx[1]#_g118990_|) '()))))) + (##unchecked-structure-set! __obj117462 __tmp118219 '15 '#f '#f)) + (let ((__tmp118223 + (cons (cons 'context |gx[1]#_g118224_|) + (cons (cons 'phi |gx[1]#_g118225_|) + (cons (cons 'e |gx[1]#_g118226_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118226 __tmp118987 '16 '#f '#f)) - (let ((__tmp118991 - (cons (cons 'context |gx[1]#_g118992_|) - (cons (cons 'phi |gx[1]#_g118993_|) - (cons (cons 'e |gx[1]#_g118994_|) '()))))) + (##unchecked-structure-set! __obj117462 __tmp118223 '16 '#f '#f)) + (let ((__tmp118227 + (cons (cons 'context |gx[1]#_g118228_|) + (cons (cons 'phi |gx[1]#_g118229_|) + (cons (cons 'e |gx[1]#_g118230_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118226 __tmp118991 '17 '#f '#f)) - (let ((__tmp118995 - (cons (cons 'context |gx[1]#_g118996_|) - (cons (cons 'phi |gx[1]#_g118997_|) - (cons (cons 'e |gx[1]#_g118998_|) '()))))) + (##unchecked-structure-set! __obj117462 __tmp118227 '17 '#f '#f)) + (let ((__tmp118231 + (cons (cons 'context |gx[1]#_g118232_|) + (cons (cons 'phi |gx[1]#_g118233_|) + (cons (cons 'e |gx[1]#_g118234_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118226 __tmp118995 '18 '#f '#f)) + (##unchecked-structure-set! __obj117462 __tmp118231 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118226 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117462 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118226 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117462 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118226 '() '20 '#f '#f)) - __obj118226)) + (##unchecked-structure-set! __obj117462 '() '20 '#f '#f)) + __obj117462)) (define |gx[:0:]#expander-mark| - (let ((__obj118227 + (let ((__obj117463 (let () (declare (not safe)) (##structure @@ -6752,18 +6752,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118227 + __obj117463 'gx#expander-mark::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118227 'expander-mark '2 '#f '#f)) + (##unchecked-structure-set! __obj117463 'expander-mark '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118227 + __obj117463 '(subst context phi trace) '4 '#f @@ -6771,74 +6771,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118227 + __obj117463 '(subst context phi trace) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118227 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj117463 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118227 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117463 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118227 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117463 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118227 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117463 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118227 '#f '11 '#f '#f)) - (let ((__tmp118999 |gx[1]#_g119000_|)) + (##unchecked-structure-set! __obj117463 '#f '11 '#f '#f)) + (let ((__tmp118235 |gx[1]#_g118236_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118227 __tmp118999 '12 '#f '#f)) - (let ((__tmp119001 |gx[1]#_g119002_|)) + (##unchecked-structure-set! __obj117463 __tmp118235 '12 '#f '#f)) + (let ((__tmp118237 |gx[1]#_g118238_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118227 __tmp119001 '13 '#f '#f)) - (let ((__tmp119003 |gx[1]#_g119004_|)) + (##unchecked-structure-set! __obj117463 __tmp118237 '13 '#f '#f)) + (let ((__tmp118239 |gx[1]#_g118240_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118227 __tmp119003 '14 '#f '#f)) - (let ((__tmp119005 - (cons (cons 'subst |gx[1]#_g119006_|) - (cons (cons 'context |gx[1]#_g119007_|) - (cons (cons 'phi |gx[1]#_g119008_|) - (cons (cons 'trace |gx[1]#_g119009_|) + (##unchecked-structure-set! __obj117463 __tmp118239 '14 '#f '#f)) + (let ((__tmp118241 + (cons (cons 'subst |gx[1]#_g118242_|) + (cons (cons 'context |gx[1]#_g118243_|) + (cons (cons 'phi |gx[1]#_g118244_|) + (cons (cons 'trace |gx[1]#_g118245_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118227 __tmp119005 '15 '#f '#f)) - (let ((__tmp119010 - (cons (cons 'subst |gx[1]#_g119011_|) - (cons (cons 'context |gx[1]#_g119012_|) - (cons (cons 'phi |gx[1]#_g119013_|) - (cons (cons 'trace |gx[1]#_g119014_|) + (##unchecked-structure-set! __obj117463 __tmp118241 '15 '#f '#f)) + (let ((__tmp118246 + (cons (cons 'subst |gx[1]#_g118247_|) + (cons (cons 'context |gx[1]#_g118248_|) + (cons (cons 'phi |gx[1]#_g118249_|) + (cons (cons 'trace |gx[1]#_g118250_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118227 __tmp119010 '16 '#f '#f)) - (let ((__tmp119015 - (cons (cons 'subst |gx[1]#_g119016_|) - (cons (cons 'context |gx[1]#_g119017_|) - (cons (cons 'phi |gx[1]#_g119018_|) - (cons (cons 'trace |gx[1]#_g119019_|) + (##unchecked-structure-set! __obj117463 __tmp118246 '16 '#f '#f)) + (let ((__tmp118251 + (cons (cons 'subst |gx[1]#_g118252_|) + (cons (cons 'context |gx[1]#_g118253_|) + (cons (cons 'phi |gx[1]#_g118254_|) + (cons (cons 'trace |gx[1]#_g118255_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118227 __tmp119015 '17 '#f '#f)) - (let ((__tmp119020 - (cons (cons 'subst |gx[1]#_g119021_|) - (cons (cons 'context |gx[1]#_g119022_|) - (cons (cons 'phi |gx[1]#_g119023_|) - (cons (cons 'trace |gx[1]#_g119024_|) + (##unchecked-structure-set! __obj117463 __tmp118251 '17 '#f '#f)) + (let ((__tmp118256 + (cons (cons 'subst |gx[1]#_g118257_|) + (cons (cons 'context |gx[1]#_g118258_|) + (cons (cons 'phi |gx[1]#_g118259_|) + (cons (cons 'trace |gx[1]#_g118260_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118227 __tmp119020 '18 '#f '#f)) + (##unchecked-structure-set! __obj117463 __tmp118256 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118227 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117463 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118227 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117463 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118227 '() '20 '#f '#f)) - __obj118227)))) + (##unchecked-structure-set! __obj117463 '() '20 '#f '#f)) + __obj117463)))) diff --git a/src/bootstrap/gerbil/expander/init~0.scm b/src/bootstrap/gerbil/expander/init~0.scm index 2e18d1ff0..f09779e79 100644 --- a/src/bootstrap/gerbil/expander/init~0.scm +++ b/src/bootstrap/gerbil/expander/init~0.scm @@ -1,16 +1,16 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/init::timestamp 1712533290) + (define gerbil/expander/init::timestamp 1712573431) (begin - (let ((__tmp129824 - (let ((__obj129822 + (let ((__tmp129011 + (let ((__obj129009 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) - (gx#top-context:::init! __obj129822) - __obj129822))) + (gx#top-context:::init! __obj129009) + __obj129009))) (declare (not safe)) - (gx#current-expander-context __tmp129824)) + (gx#current-expander-context __tmp129011)) (let () (declare (not safe)) (gx#current-expander-module-import gx#core-import-module)) @@ -19,8 +19,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 ((__tmp129825 - (let ((__obj129823 + (let ((__tmp129012 + (let ((__obj129010 (let () (declare (not safe)) (##structure @@ -33,7 +33,7 @@ '#f '#f '#f)))) - (gx#prelude-context:::init! __obj129823 '#f) - __obj129823))) + (gx#prelude-context:::init! __obj129010 '#f) + __obj129010))) (declare (not safe)) - (gx#core-bind-root-syntax!__% ': __tmp129825 '#t)))) + (gx#core-bind-root-syntax!__% ': __tmp129012 '#t)))) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index 50f0a3168..716ac9485 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -2,6 +2,12 @@ prelude: :gerbil/compiler/ssxi package: gerbil/expander (begin + (declare-type + gx#__module-registry + (optimizer-resolve-class '(typedecl gx#__module-registry) 't::t)) + (declare-type + gx#__module-pkg-cache + (optimizer-resolve-class '(typedecl gx#__module-pkg-cache) 't::t)) (declare-class gx#module-import::t (@class gx#module-import::t @@ -410,7 +416,16 @@ package: gerbil/expander (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type gx#module-context:::init! (@lambda 5 @@ -423,7 +438,9 @@ package: gerbil/expander arguments: (t::t t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/expander/module))) (declare-type gx#prelude-context:::init!__% (@lambda 3 @@ -436,240 +453,1349 @@ package: gerbil/expander arguments: (t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/expander/module))) (declare-type gx#prelude-context:::init!__0 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type gx#prelude-context:::init! (@case-lambda (2 gx#prelude-context:::init!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) (3 gx#prelude-context:::init!__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)))) (declare-type gx#import-export-expander-init! (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type gx#import-expander:::init! (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type gx#export-expander:::init! (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type gx#import-export-expander:::init! (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#import-expander::apply-import-expander (@lambda 2 #f)) - (declare-type gx#export-expander::apply-export-expander (@lambda 2 #f)) - (declare-type - gx#module-source-path - (@lambda 1 - #f - signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#import-module__% (@lambda 3 #f)) - (declare-type gx#import-module__0 (@lambda 1 #f)) - (declare-type gx#import-module__1 (@lambda 2 #f)) - (declare-type - gx#import-module - (@case-lambda - (1 gx#import-module__0) - (2 gx#import-module__1) - (3 gx#import-module__%))) - (declare-type gx#eval-module (@lambda 1 #f)) - (declare-type gx#core-eval-module (@lambda 1 #f)) - (declare-type gx#core-context-prelude__% (@lambda 1 #f)) - (declare-type gx#core-context-prelude__0 (@lambda 0 #f)) - (declare-type - gx#core-context-prelude - (@case-lambda - (0 gx#core-context-prelude__0) - (1 gx#core-context-prelude__%))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-module->prelude-context - (@lambda 1 + gx#import-expander::apply-import-expander + (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#core-import-module__% (@lambda 2 #f)) - (declare-type gx#core-import-module__0 (@lambda 1 #f)) - (declare-type - gx#core-import-module - (@case-lambda (1 gx#core-import-module__0) (2 gx#core-import-module__%))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-read-module - (@lambda 1 + gx#export-expander::apply-export-expander + (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#core-read-module/sexp (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-read-module/lang + gx#module-source-path (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#core-read-module-package (@lambda 3 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-module-path->namespace - (@lambda 1 + gx#import-module__% + (@lambda 3 #f signature: - (return: string::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-module-path->id + gx#import-module__0 (@lambda 1 #f signature: - (return: symbol::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-resolve-module-path__% + gx#import-module__1 (@lambda 2 #f signature: - (return: string::t effect: #f arguments: #f unchecked: #f))) - (declare-type - gx#core-resolve-module-path__0 - (@lambda 1 - #f - signature: - (return: string::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-resolve-module-path + gx#import-module (@case-lambda (1 - gx#core-resolve-module-path__0 + gx#import-module__0 signature: - (return: string::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) (2 - gx#core-resolve-module-path__% + gx#import-module__1 signature: - (return: string::t effect: #f arguments: #f unchecked: #f)))) - (declare-type gx#core-resolve-library-module-path (@lambda 1 #f)) - (declare-type gx#core-resolve-library-relative-module-path (@lambda 1 #f)) - (declare-type - gx#core-library-package-path-prefix + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) + (3 + gx#import-module__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)))) + (declare-type + gx#eval-module (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#core-library-package-plist__% (@lambda 2 #f)) - (declare-type gx#core-library-package-plist__0 (@lambda 1 #f)) - (declare-type - gx#core-library-package-plist - (@case-lambda - (1 gx#core-library-package-plist__0) - (2 gx#core-library-package-plist__%))) - (declare-type gx#core-library-module-path? (@lambda 1 #f)) - (declare-type gx#core-library-relative-module-path? (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-special-module-path? - (@lambda 2 + gx#core-eval-module + (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#core-bound-prelude? (@lambda 1 #f)) - (declare-type gx#core-bound-module? (@lambda 1 #f)) - (declare-type gx#core-bound-module-prelude? (@lambda 1 #f)) - (declare-type gx#core-bind-import!__% (@lambda 3 #f)) - (declare-type gx#core-bind-import!__0 (@lambda 1 #f)) - (declare-type gx#core-bind-import!__1 (@lambda 2 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-bind-import! - (@case-lambda - (1 gx#core-bind-import!__0) - (2 gx#core-bind-import!__1) - (3 gx#core-bind-import!__%))) - (declare-type gx#core-bind-weak-import!__% (@lambda 2 #f)) - (declare-type gx#core-bind-weak-import!__0 (@lambda 1 #f)) + gx#core-context-prelude__% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-bind-weak-import! - (@case-lambda - (1 gx#core-bind-weak-import!__0) - (2 gx#core-bind-weak-import!__%))) - (declare-type gx#core-resolve-module-export (@lambda 1 #f)) - (declare-type gx#core-module-export->import__% (@lambda 3 #f)) - (declare-type gx#core-module-export->import__0 (@lambda 1 #f)) - (declare-type gx#core-module-export->import__1 (@lambda 2 #f)) + gx#core-context-prelude__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-module-export->import + gx#core-context-prelude (@case-lambda - (1 gx#core-module-export->import__0) - (2 gx#core-module-export->import__1) - (3 gx#core-module-export->import__%))) - (declare-type gx#core-expand-module% (@lambda 1 #f)) + (0 + gx#core-context-prelude__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) + (1 + gx#core-context-prelude__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)))) (declare-type - gx#core-expand-module-begin - (@lambda 2 + gx#core-module->prelude-context + (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#core-expand-module-body (@lambda 1 #f)) - (declare-type gx#core-expand-import/export (@lambda 5 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-expand-import%__% + gx#core-import-module__% (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-expand-import%__0 + gx#core-import-module__0 (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-expand-import% + gx#core-import-module (@case-lambda (1 - gx#core-expand-import%__0 + gx#core-import-module__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) (2 - gx#core-expand-import%__% + gx#core-import-module__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) - (declare-type gx#core-import-nested-module (@lambda 2 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)))) (declare-type - gx#core-expand-import-source + gx#core-read-module (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#core-expand-export%__% (@lambda 2 #f)) - (declare-type gx#core-expand-export%__0 (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-expand-export% - (@case-lambda (1 gx#core-expand-export%__0) (2 gx#core-expand-export%__%))) - (declare-type gx#core-expand-export-source (@lambda 1 #f)) - (declare-type gx#core-expand-provide% (@lambda 1 #f)) - (declare-type gx#core-bind-feature!__% (@lambda 4 #f)) - (declare-type gx#core-bind-feature!__0 (@lambda 1 #f)) - (declare-type gx#core-bind-feature!__1 (@lambda 2 #f)) - (declare-type gx#core-bind-feature!__2 (@lambda 3 #f)) + gx#core-read-module/sexp + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) (declare-type - gx#core-bind-feature! - (@case-lambda - (1 gx#core-bind-feature!__0) - (2 gx#core-bind-feature!__1) - (3 gx#core-bind-feature!__2) - (4 gx#core-bind-feature!__%)))) + gx#core-read-module/lang + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-read-module-package + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-module-path->namespace + (@lambda 1 + #f + signature: + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-module-path->id + (@lambda 1 + #f + signature: + (return: + symbol::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-resolve-module-path__% + (@lambda 2 + #f + signature: + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-resolve-module-path__0 + (@lambda 1 + #f + signature: + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-resolve-module-path + (@case-lambda + (1 + gx#core-resolve-module-path__0 + signature: + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) + (2 + gx#core-resolve-module-path__% + signature: + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)))) + (declare-type + gx#core-resolve-library-module-path + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-resolve-library-relative-module-path + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-library-package-path-prefix + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-library-package-plist__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-library-package-plist__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-library-package-plist + (@case-lambda + (1 + gx#core-library-package-plist__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) + (2 + gx#core-library-package-plist__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)))) + (declare-type + gx#core-library-module-path? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-library-relative-module-path? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-special-module-path? + (@lambda 2 + #f + signature: + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-bound-prelude? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-bound-module? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-bound-module-prelude? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-bind-import!__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-bind-import!__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-bind-import!__1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-bind-import! + (@case-lambda + (1 + gx#core-bind-import!__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) + (2 + gx#core-bind-import!__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) + (3 + gx#core-bind-import!__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)))) + (declare-type + gx#core-bind-weak-import!__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-bind-weak-import!__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-bind-weak-import! + (@case-lambda + (1 + gx#core-bind-weak-import!__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) + (2 + gx#core-bind-weak-import!__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)))) + (declare-type + gx#core-resolve-module-export + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-module-export->import__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-module-export->import__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-module-export->import__1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-module-export->import + (@case-lambda + (1 + gx#core-module-export->import__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) + (2 + gx#core-module-export->import__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) + (3 + gx#core-module-export->import__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)))) + (declare-type + gx#core-expand-module% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-expand-module-begin + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-expand-module-body + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-expand-import/export + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-expand-import%__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-expand-import%__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-expand-import% + (@case-lambda + (1 + gx#core-expand-import%__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) + (2 + gx#core-expand-import%__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)))) + (declare-type + gx#core-import-nested-module + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-expand-import-source + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-expand-export%__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-expand-export%__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-expand-export% + (@case-lambda + (1 + gx#core-expand-export%__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) + (2 + gx#core-expand-export%__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)))) + (declare-type + gx#core-expand-export-source + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-expand-provide% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-bind-feature!__% + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-bind-feature!__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-bind-feature!__1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-bind-feature!__2 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))) + (declare-type + gx#core-bind-feature! + (@case-lambda + (1 + gx#core-bind-feature!__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) + (2 + gx#core-bind-feature!__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) + (3 + gx#core-bind-feature!__2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module)) + (4 + gx#core-bind-feature!__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/module))))) diff --git a/src/bootstrap/gerbil/expander/module~0.scm b/src/bootstrap/gerbil/expander/module~0.scm index 196c22671..8b94c4651 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 1712533290) + (define gerbil/expander/module::timestamp 1712573431) (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 _%$args125655%_ - (apply make-instance gx#module-import::t _%$args125655%_))) + (lambda _%$args124891%_ + (apply make-instance gx#module-import::t _%$args124891%_))) (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 _%$args125652%_ - (apply make-instance gx#module-export::t _%$args125652%_))) + (lambda _%$args124888%_ + (apply make-instance gx#module-export::t _%$args124888%_))) (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 _%$args125649%_ - (apply make-instance gx#import-set::t _%$args125649%_))) + (lambda _%$args124885%_ + (apply make-instance gx#import-set::t _%$args124885%_))) (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 _%$args125646%_ - (apply make-instance gx#export-set::t _%$args125646%_))) + (lambda _%$args124882%_ + (apply make-instance gx#export-set::t _%$args124882%_))) (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 _%$args125643%_ - (apply make-instance gx#import-expander::t _%$args125643%_))) + (lambda _%$args124879%_ + (apply make-instance gx#import-expander::t _%$args124879%_))) (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 _%$args125640%_ - (apply make-instance gx#export-expander::t _%$args125640%_))) + (lambda _%$args124876%_ + (apply make-instance gx#export-expander::t _%$args124876%_))) (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 _%$args125637%_ - (apply make-instance gx#import-export-expander::t _%$args125637%_))) + (lambda _%$args124873%_ + (apply make-instance gx#import-export-expander::t _%$args124873%_))) (define gx#import-export-expander-context (__make-class-slot-accessor gx#import-export-expander::t 'context)) (define gx#import-export-expander-phi @@ -316,285 +316,245 @@ (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 (_%path125634%_ _%fun125635%_) + (lambda (_%path124870%_ _%fun124871%_) (call-with-input-file - (cons 'path: (cons _%path125634%_ gx#source-file-settings)) - _%fun125635%_))) + (cons 'path: (cons _%path124870%_ gx#source-file-settings)) + _%fun124871%_))) (define gx#module-context:::init! - (lambda (_%self125617%_ - _%id125618%_ - _%super125619%_ - _%ns125620%_ - _%path125621%_) - (let ((_%self125624%_ _%self125617%_)) - (if (##fx< '11 (##structure-length _%self125624%_)) + (lambda (_%self124853%_ + _%id124854%_ + _%super124855%_ + _%ns124856%_ + _%path124857%_) + (let ((_%self124860%_ _%self124853%_)) + (if (##fx< '11 (##structure-length _%self124860%_)) (begin (##unchecked-structure-set! - _%self125624%_ - _%id125618%_ + _%self124860%_ + _%id124854%_ '1 '#f '#f) (##unchecked-structure-set! - _%self125624%_ + _%self124860%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self125624%_ - _%super125619%_ + _%self124860%_ + _%super124855%_ '3 '#f '#f) - (##unchecked-structure-set! _%self125624%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self125624%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self124860%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self124860%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self125624%_ - _%ns125620%_ + _%self124860%_ + _%ns124856%_ '6 '#f '#f) (##unchecked-structure-set! - _%self125624%_ - _%path125621%_ + _%self124860%_ + _%path124857%_ '7 '#f '#f) - (##unchecked-structure-set! _%self125624%_ '() '8 '#f '#f) - (##unchecked-structure-set! _%self125624%_ '() '9 '#f '#f) - (##unchecked-structure-set! _%self125624%_ '#f '10 '#f '#f) - (##unchecked-structure-set! _%self125624%_ '#f '11 '#f '#f) + (##unchecked-structure-set! _%self124860%_ '() '8 '#f '#f) + (##unchecked-structure-set! _%self124860%_ '() '9 '#f '#f) + (##unchecked-structure-set! _%self124860%_ '#f '10 '#f '#f) + (##unchecked-structure-set! _%self124860%_ '#f '11 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self125624%_ + _%self124860%_ '11 - (##vector-length _%self125624%_)))))) + (##vector-length _%self124860%_)))))) (__bind-method! gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_%self125450%_ _%ctx125451%_ _%root125452%_) - (let () - (let* ((_%self125455%_ _%self125450%_) - (_%super125471%_ - (let ((_%$e125465%_ _%root125452%_)) - (if _%$e125465%_ - _%$e125465%_ - (let ((_%$e125468%_ (gx#core-context-root__0))) - (if _%$e125468%_ - _%$e125468%_ - (let ((__obj125699 - (##structure gx#root-context::t '#f '#f))) - (let ((__constructor125700 - (direct-method-ref - gx#root-context::t - __obj125699 - ':init!))) - (if __constructor125700 - (__constructor125700 __obj125699) - (error '"missing constructor method implementation" - 'class: - gx#root-context::t - 'method: - ':init!))) - __obj125699))))))) - (if _%ctx125451%_ - (let ((_%id125474%_ - (##structure-ref - _%ctx125451%_ - '1 - gx#expander-context::t - '#f)) - (_%path125475%_ - (##structure-ref - _%ctx125451%_ - '7 - gx#module-context::t - '#f)) - (_%in125476%_ - (map gx#core-module-export->import - (##structure-ref - _%ctx125451%_ - '9 - gx#module-context::t - '#f))) - (_%e125477%_ - (__make-promise - (lambda () (gx#eval-module _%ctx125451%_))))) - (if (##fx< '8 (##structure-length _%self125455%_)) - (begin - (##unchecked-structure-set! - _%self125455%_ - _%id125474%_ - '1 - '#f - '#f) - (##unchecked-structure-set! - _%self125455%_ - (make-hash-table-eq 'size: (##length _%in125476%_)) - '2 - '#f - '#f) - (##unchecked-structure-set! - _%self125455%_ - _%super125471%_ - '3 - '#f - '#f) - (##unchecked-structure-set! - _%self125455%_ - '#f - '4 - '#f - '#f) - (##unchecked-structure-set! - _%self125455%_ - '#f - '5 - '#f - '#f) - (##unchecked-structure-set! - _%self125455%_ - _%path125475%_ - '6 - '#f - '#f) - (##unchecked-structure-set! - _%self125455%_ - _%in125476%_ - '7 - '#f - '#f) - (##unchecked-structure-set! - _%self125455%_ - _%e125477%_ - '8 - '#f - '#f) - '#!void) - (error '"struct-instance-init!: too many arguments for struct" - _%self125455%_ - '8 - (##vector-length _%self125455%_))) - (##for-each - (lambda (_%g125478125480%_) - (gx#core-bind-weak-import!__% - _%g125478125480%_ - _%self125455%_)) - _%in125476%_)) - (if (##fx< '8 (##structure-length _%self125455%_)) + (lambda (_%self124686%_ _%ctx124687%_ _%root124688%_) + (let* ((_%self124691%_ _%self124686%_) + (_%super124707%_ + (let ((_%$e124701%_ _%root124688%_)) + (if _%$e124701%_ + _%$e124701%_ + (let ((_%$e124704%_ (gx#core-context-root__0))) + (if _%$e124704%_ + _%$e124704%_ + (let ((__obj124935 + (##structure gx#root-context::t '#f '#f))) + (let ((__constructor124936 + (direct-method-ref + gx#root-context::t + __obj124935 + ':init!))) + (if __constructor124936 + (__constructor124936 __obj124935) + (error '"missing constructor method implementation" + 'class: + gx#root-context::t + 'method: + ':init!))) + __obj124935))))))) + (if _%ctx124687%_ + (let ((_%id124710%_ + (##structure-ref + _%ctx124687%_ + '1 + gx#expander-context::t + '#f)) + (_%path124711%_ + (##structure-ref + _%ctx124687%_ + '7 + gx#module-context::t + '#f)) + (_%in124712%_ + (map gx#core-module-export->import + (##structure-ref + _%ctx124687%_ + '9 + gx#module-context::t + '#f))) + (_%e124713%_ + (__make-promise + (lambda () (gx#eval-module _%ctx124687%_))))) + (if (##fx< '8 (##structure-length _%self124691%_)) (begin (##unchecked-structure-set! - _%self125455%_ - '#f + _%self124691%_ + _%id124710%_ '1 '#f '#f) (##unchecked-structure-set! - _%self125455%_ - (make-hash-table-eq) + _%self124691%_ + (make-hash-table-eq 'size: (##length _%in124712%_)) '2 '#f '#f) (##unchecked-structure-set! - _%self125455%_ - _%super125471%_ + _%self124691%_ + _%super124707%_ '3 '#f '#f) (##unchecked-structure-set! - _%self125455%_ + _%self124691%_ '#f '4 '#f '#f) (##unchecked-structure-set! - _%self125455%_ + _%self124691%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self125455%_ - '#f + _%self124691%_ + _%path124711%_ '6 '#f '#f) (##unchecked-structure-set! - _%self125455%_ - '() + _%self124691%_ + _%in124712%_ '7 '#f '#f) (##unchecked-structure-set! - _%self125455%_ - '#f + _%self124691%_ + _%e124713%_ '8 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self125455%_ + _%self124691%_ '8 - (##vector-length _%self125455%_)))))))) + (##vector-length _%self124691%_))) + (##for-each + (lambda (_%g124714124716%_) + (gx#core-bind-weak-import!__% + _%g124714124716%_ + _%self124691%_)) + _%in124712%_)) + (if (##fx< '8 (##structure-length _%self124691%_)) + (begin + (##unchecked-structure-set! _%self124691%_ '#f '1 '#f '#f) + (##unchecked-structure-set! + _%self124691%_ + (make-hash-table-eq) + '2 + '#f + '#f) + (##unchecked-structure-set! + _%self124691%_ + _%super124707%_ + '3 + '#f + '#f) + (##unchecked-structure-set! _%self124691%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self124691%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self124691%_ '#f '6 '#f '#f) + (##unchecked-structure-set! _%self124691%_ '() '7 '#f '#f) + (##unchecked-structure-set! _%self124691%_ '#f '8 '#f '#f) + '#!void) + (error '"struct-instance-init!: too many arguments for struct" + _%self124691%_ + '8 + (##vector-length _%self124691%_))))))) (define gx#prelude-context:::init!__0 - (lambda (_%self125486%_ _%ctx125487%_) - (let ((_%root125489%_ '#f)) + (lambda (_%self124722%_ _%ctx124723%_) + (let ((_%root124725%_ '#f)) (gx#prelude-context:::init!__% - _%self125486%_ - _%ctx125487%_ - _%root125489%_)))) + _%self124722%_ + _%ctx124723%_ + _%root124725%_)))) (define gx#prelude-context:::init! - (lambda _g125706_ - (let ((_g125705_ (##length _g125706_))) - (cond ((##fx= _g125705_ 2) - (apply (lambda (_%self125486%_ _%ctx125487%_) - (gx#prelude-context:::init!__0 - _%self125486%_ - _%ctx125487%_)) - _g125706_)) - ((##fx= _g125705_ 3) - (apply (lambda (_%self125491%_ _%ctx125492%_ _%root125493%_) - (gx#prelude-context:::init!__% - _%self125491%_ - _%ctx125492%_ - _%root125493%_)) - _g125706_)) + (lambda _g124942_ + (let ((_g124941_ (##length _g124942_))) + (cond ((##fx= _g124941_ 2) + (apply gx#prelude-context:::init!__0 _g124942_)) + ((##fx= _g124941_ 3) + (apply gx#prelude-context:::init!__% _g124942_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g125706_)))))) + _g124942_)))))) (__bind-method! gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_%self125324%_ _%e125325%_) - (if (##fx< '3 (##structure-length _%self125324%_)) + (lambda (_%self124560%_ _%e124561%_) + (if (##fx< '3 (##structure-length _%self124560%_)) (begin (##unchecked-structure-set! - _%self125324%_ - _%e125325%_ + _%self124560%_ + _%e124561%_ '1 '#f '#f) (##unchecked-structure-set! - _%self125324%_ + _%self124560%_ (gx#current-expander-context) '2 '#f '#f) (##unchecked-structure-set! - _%self125324%_ + _%self124560%_ (##fx- (gx#current-expander-phi) '1) '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self125324%_ + _%self124560%_ '3 - (##vector-length _%self125324%_))))) + (##vector-length _%self124560%_))))) (define gx#import-expander:::init! gx#import-export-expander-init!) (__bind-method! gx#import-expander::t @@ -614,10 +574,10 @@ gx#import-export-expander:::init! '#f) (define gx#import-expander::apply-import-expander - (lambda (_%g124950124953%_ _%g124951124955%_) + (lambda (_%g124186124189%_ _%g124187124191%_) (gx#core-apply-user-expander__% - _%g124950124953%_ - _%g124951124955%_ + _%g124186124189%_ + _%g124187124191%_ 'apply-import-expander))) (__bind-method! gx#import-expander::t @@ -625,10 +585,10 @@ gx#import-expander::apply-import-expander '#f) (define gx#export-expander::apply-export-expander - (lambda (_%g124821124824%_ _%g124822124826%_) + (lambda (_%g124057124060%_ _%g124058124062%_) (gx#core-apply-user-expander__% - _%g124821124824%_ - _%g124822124826%_ + _%g124057124060%_ + _%g124058124062%_ 'apply-export-expander))) (__bind-method! gx#export-expander::t @@ -636,138 +596,113 @@ gx#export-expander::apply-export-expander '#f) (define gx#module-source-path - (lambda (_%ctx124692%_) - (let* ((_%path124694%_ - (##structure-ref _%ctx124692%_ '7 gx#module-context::t '#f)) - (_%path124696%_ - (if (pair? _%path124694%_) - (last _%path124694%_) - _%path124694%_))) - (if (string? _%path124696%_) _%path124696%_ '#f)))) + (lambda (_%ctx123928%_) + (let* ((_%path123930%_ + (##structure-ref _%ctx123928%_ '7 gx#module-context::t '#f)) + (_%path123932%_ + (if (pair? _%path123930%_) + (last _%path123930%_) + _%path123930%_))) + (if (string? _%path123932%_) _%path123932%_ '#f)))) (define gx#import-module__% - (lambda (_%path124668%_ _%reload?124669%_ _%eval?124670%_) - (let ((_%ctx124672%_ + (lambda (_%path123904%_ _%reload?123905%_ _%eval?123906%_) + (let ((_%ctx123908%_ ((gx#current-expander-module-import) - _%path124668%_ - _%reload?124669%_))) - (if (and _%ctx124672%_ _%eval?124670%_) - (gx#eval-module _%ctx124672%_) + _%path123904%_ + _%reload?123905%_))) + (if (and _%ctx123908%_ _%eval?123906%_) + (gx#eval-module _%ctx123908%_) '#!void) - _%ctx124672%_))) + _%ctx123908%_))) (define gx#import-module__0 - (lambda (_%path124677%_) - (let* ((_%reload?124679%_ '#f) (_%eval?124681%_ '#f)) + (lambda (_%path123913%_) + (let* ((_%reload?123915%_ '#f) (_%eval?123917%_ '#f)) (gx#import-module__% - _%path124677%_ - _%reload?124679%_ - _%eval?124681%_)))) + _%path123913%_ + _%reload?123915%_ + _%eval?123917%_)))) (define gx#import-module__1 - (lambda (_%path124683%_ _%reload?124684%_) - (let ((_%eval?124686%_ '#f)) + (lambda (_%path123919%_ _%reload?123920%_) + (let ((_%eval?123922%_ '#f)) (gx#import-module__% - _%path124683%_ - _%reload?124684%_ - _%eval?124686%_)))) + _%path123919%_ + _%reload?123920%_ + _%eval?123922%_)))) (define gx#import-module - (lambda _g125708_ - (let ((_g125707_ (##length _g125708_))) - (cond ((##fx= _g125707_ 1) - (apply (lambda (_%path124677%_) - (gx#import-module__0 _%path124677%_)) - _g125708_)) - ((##fx= _g125707_ 2) - (apply (lambda (_%path124683%_ _%reload?124684%_) - (gx#import-module__1 - _%path124683%_ - _%reload?124684%_)) - _g125708_)) - ((##fx= _g125707_ 3) - (apply (lambda (_%path124688%_ - _%reload?124689%_ - _%eval?124690%_) - (gx#import-module__% - _%path124688%_ - _%reload?124689%_ - _%eval?124690%_)) - _g125708_)) + (lambda _g124944_ + (let ((_g124943_ (##length _g124944_))) + (cond ((##fx= _g124943_ 1) (apply gx#import-module__0 _g124944_)) + ((##fx= _g124943_ 2) (apply gx#import-module__1 _g124944_)) + ((##fx= _g124943_ 3) (apply gx#import-module__% _g124944_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g125708_)))))) + _g124944_)))))) (define gx#eval-module - (lambda (_%mod124665%_) - ((gx#current-expander-module-eval) _%mod124665%_))) + (lambda (_%mod123901%_) + ((gx#current-expander-module-eval) _%mod123901%_))) (define gx#core-eval-module - (lambda (_%obj124645%_) - (letrec ((_%force-e124647%_ - (lambda (_%getf124661%_ _%e124662%_) + (lambda (_%obj123881%_) + (letrec ((_%force-e123883%_ + (lambda (_%getf123897%_ _%e123898%_) (__call-with-parameters - (lambda () (force (_%getf124661%_ _%e124662%_))) + (lambda () (force (_%getf123897%_ _%e123898%_))) gx#current-expander-context - _%e124662%_ + _%e123898%_ gx#current-expander-phi '0)))) - (let _%recur124649%_ ((_%e124651%_ _%obj124645%_)) - (if (##structure-instance-of? _%e124651%_ 'gx#module-context::t) + (let _%recur123885%_ ((_%e123887%_ _%obj123881%_)) + (if (##structure-instance-of? _%e123887%_ 'gx#module-context::t) (let () - (let ((_%$e124654%_ - (gx#core-context-prelude__% _%e124651%_))) - (if _%$e124654%_ (_%recur124649%_ _%$e124654%_) '#!void)) - (_%force-e124647%_ gx#module-context-e _%e124651%_)) + (let ((_%$e123890%_ + (gx#core-context-prelude__% _%e123887%_))) + (if _%$e123890%_ (_%recur123885%_ _%$e123890%_) '#!void)) + (_%force-e123883%_ gx#module-context-e _%e123887%_)) (if (##structure-instance-of? - _%e124651%_ + _%e123887%_ 'gx#prelude-context::t) - (let () - (_%force-e124647%_ gx#prelude-context-e _%e124651%_)) - (if (gx#stx-string? _%e124651%_) - (let () - (_%recur124649%_ - (gx#import-module__0 - (gx#core-resolve-module-path__0 _%e124651%_)))) - (if (gx#core-library-module-path? _%e124651%_) - (let () - (_%recur124649%_ - (gx#import-module__0 - (gx#core-resolve-library-module-path - _%e124651%_)))) - (let () - (error '"cannot eval module" - _%obj124645%_)))))))))) + (_%force-e123883%_ gx#prelude-context-e _%e123887%_) + (if (gx#stx-string? _%e123887%_) + (_%recur123885%_ + (gx#import-module__0 + (gx#core-resolve-module-path__0 _%e123887%_))) + (if (gx#core-library-module-path? _%e123887%_) + (_%recur123885%_ + (gx#import-module__0 + (gx#core-resolve-library-module-path + _%e123887%_))) + (error '"cannot eval module" _%obj123881%_))))))))) (define gx#core-context-prelude__% - (lambda (_%ctx124625%_) - (let _%lp124627%_ ((_%e124629%_ _%ctx124625%_)) - (if (or (##structure-instance-of? _%e124629%_ 'gx#module-context::t) - (##structure-instance-of? _%e124629%_ 'gx#local-context::t)) - (let () - (_%lp124627%_ - (##unchecked-structure-ref _%e124629%_ '3 '#f '#f))) - (if (##structure-instance-of? _%e124629%_ 'gx#prelude-context::t) - (let () _%e124629%_) - (let () '#f)))))) + (lambda (_%ctx123861%_) + (let _%lp123863%_ ((_%e123865%_ _%ctx123861%_)) + (if (or (##structure-instance-of? _%e123865%_ 'gx#module-context::t) + (##structure-instance-of? _%e123865%_ 'gx#local-context::t)) + (_%lp123863%_ (##unchecked-structure-ref _%e123865%_ '3 '#f '#f)) + (if (##structure-instance-of? _%e123865%_ 'gx#prelude-context::t) + _%e123865%_ + '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_%ctx124641%_ (gx#current-expander-context))) - (gx#core-context-prelude__% _%ctx124641%_)))) + (let ((_%ctx123877%_ (gx#current-expander-context))) + (gx#core-context-prelude__% _%ctx123877%_)))) (define gx#core-context-prelude - (lambda _g125710_ - (let ((_g125709_ (##length _g125710_))) - (cond ((##fx= _g125709_ 0) - (apply (lambda () (gx#core-context-prelude__0)) _g125710_)) - ((##fx= _g125709_ 1) - (apply (lambda (_%ctx124643%_) - (gx#core-context-prelude__% _%ctx124643%_)) - _g125710_)) + (lambda _g124946_ + (let ((_g124945_ (##length _g124946_))) + (cond ((##fx= _g124945_ 0) + (apply gx#core-context-prelude__0 _g124946_)) + ((##fx= _g124945_ 1) + (apply gx#core-context-prelude__% _g124946_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g125710_)))))) + _g124946_)))))) (define gx#core-module->prelude-context - (lambda (_%ctx124616%_) - (let ((_%$e124618%_ (hash-get gx#__module-registry _%ctx124616%_))) - (if _%$e124618%_ - _%$e124618%_ - (let ((_%pre124622%_ - (let ((__obj125701 + (lambda (_%ctx123852%_) + (let ((_%$e123854%_ (hash-get gx#__module-registry _%ctx123852%_))) + (if _%$e123854%_ + _%$e123854%_ + (let ((_%pre123858%_ + (let ((__obj124937 (##structure gx#prelude-context::t '#f @@ -778,53 +713,51 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj125701 _%ctx124616%_) - __obj125701))) - (hash-put! gx#__module-registry _%ctx124616%_ _%pre124622%_) - _%pre124622%_))))) + (gx#prelude-context:::init! __obj124937 _%ctx123852%_) + __obj124937))) + (hash-put! gx#__module-registry _%ctx123852%_ _%pre123858%_) + _%pre123858%_))))) (define gx#core-import-module__% - (lambda (_%rpath124488%_ _%reload?124489%_) - (letrec ((_%import-source124491%_ - (lambda (_%path124580%_) - (if (member _%path124580%_ (gx#current-expander-path)) - (error '"Cyclic expansion" _%path124580%_) + (lambda (_%rpath123724%_ _%reload?123725%_) + (letrec ((_%import-source123727%_ + (lambda (_%path123816%_) + (if (member _%path123816%_ (gx#current-expander-path)) + (error '"Cyclic expansion" _%path123816%_) '#!void) (__call-with-parameters (lambda () - (let ((_g125711_ (gx#core-read-module _%path124580%_))) + (let ((_g124947_ (gx#core-read-module _%path123816%_))) (begin - (let ((_g125712_ - (if (##values? _g125711_) - (##vector-length _g125711_) + (let ((_g124948_ + (if (##values? _g124947_) + (##vector-length _g124947_) 1))) - (if (not (##fx= _g125712_ 4)) - (error "Context expects 4 values" _g125712_))) - (let ((_%pre124583%_ (##vector-ref _g125711_ 0)) - (_%id124584%_ (##vector-ref _g125711_ 1)) - (_%ns124585%_ (##vector-ref _g125711_ 2)) - (_%body124586%_ (##vector-ref _g125711_ 3))) - (let* ((_%prelude124596%_ + (if (not (##fx= _g124948_ 4)) + (error "Context expects 4 values" _g124948_))) + (let ((_%pre123819%_ (##vector-ref _g124947_ 0)) + (_%id123820%_ (##vector-ref _g124947_ 1)) + (_%ns123821%_ (##vector-ref _g124947_ 2)) + (_%body123822%_ (##vector-ref _g124947_ 3))) + (let* ((_%prelude123832%_ (if (##structure-instance-of? - _%pre124583%_ + _%pre123819%_ 'gx#prelude-context::t) - (let () _%pre124583%_) + _%pre123819%_ (if (##structure-instance-of? - _%pre124583%_ + _%pre123819%_ 'gx#module-context::t) - (let () - (gx#core-module->prelude-context - _%pre124583%_)) - (if (string? _%pre124583%_) - (let () - (gx#core-module->prelude-context - (gx#core-import-module__0 - _%pre124583%_))) - (if (not _%pre124583%_) - (let ((_%$e124592%_ + (gx#core-module->prelude-context + _%pre123819%_) + (if (string? _%pre123819%_) + (gx#core-module->prelude-context + (gx#core-import-module__0 + _%pre123819%_)) + (if (not _%pre123819%_) + (let ((_%$e123828%_ (gx#current-expander-module-prelude))) - (if _%$e124592%_ - _%$e124592%_ - (let ((__obj125702 + (if _%$e123828%_ + _%$e123828%_ + (let ((__obj124938 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure gx#prelude-context::t @@ -836,15 +769,14 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj125702 '#f) - __obj125702))) + (gx#prelude-context:::init! __obj124938 '#f) + __obj124938))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (error '"cannot import module; unknown prelude" - _%rpath124488%_ - _%pre124583%_))))))) - (_%ctx124598%_ - (let ((__obj125703 + (error '"cannot import module; unknown prelude" + _%rpath123724%_ + _%pre123819%_)))))) + (_%ctx123834%_ + (let ((__obj124939 (##structure gx#module-context::t '#f @@ -859,44 +791,44 @@ '#f '#f))) (gx#module-context:::init! - __obj125703 - _%id124584%_ - _%prelude124596%_ - _%ns124585%_ - _%path124580%_) - __obj125703)) - (_%body124600%_ + __obj124939 + _%id123820%_ + _%prelude123832%_ + _%ns123821%_ + _%path123816%_) + __obj124939)) + (_%body123836%_ (gx#core-expand-module-begin - _%body124586%_ - _%ctx124598%_)) - (_%body124602%_ + _%body123822%_ + _%ctx123834%_)) + (_%body123838%_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _%body124600%_) - _%path124580%_ - _%ctx124598%_ + (gx#core-cons '%#begin _%body123836%_) + _%path123816%_ + _%ctx123834%_ '()))) (##unchecked-structure-set! - _%ctx124598%_ + _%ctx123834%_ (__make-promise - (lambda () (gx#eval-syntax* _%body124602%_))) + (lambda () (gx#eval-syntax* _%body123838%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx124598%_ - _%body124602%_ + _%ctx123834%_ + _%body123838%_ '11 '#f '#f) (hash-put! gx#__module-registry - _%path124580%_ - _%ctx124598%_) + _%path123816%_ + _%ctx123834%_) (hash-put! gx#__module-registry - _%id124584%_ - _%ctx124598%_) - _%ctx124598%_))))) + _%id123820%_ + _%ctx123834%_) + _%ctx123834%_))))) gx#current-expander-context (gx#core-context-root__0) gx#current-expander-marks @@ -904,1417 +836,1333 @@ gx#current-expander-phi '0 gx#current-expander-path - (cons _%path124580%_ (gx#current-expander-path)) + (cons _%path123816%_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_%import-submodule124492%_ - (lambda (_%rpath124508%_) - (let* ((_%rpath124509124516%_ _%rpath124508%_) - (_%E124511124520%_ + (_%import-submodule123728%_ + (lambda (_%rpath123744%_) + (let* ((_%rpath123745123752%_ _%rpath123744%_) + (_%E123747123756%_ (lambda () (error '"No clause matching" - _%rpath124509124516%_ + _%rpath123745123752%_ '([origin . refs])) '#!void)) - (_%K124512124568%_ - (lambda (_%refs124523%_ _%origin124524%_) - (let ((_%ctx124526%_ - (if _%origin124524%_ + (_%K123748123804%_ + (lambda (_%refs123759%_ _%origin123760%_) + (let ((_%ctx123762%_ + (if _%origin123760%_ (gx#core-import-module__% - _%origin124524%_ - _%reload?124489%_) + _%origin123760%_ + _%reload?123725%_) (gx#current-expander-context)))) - (let _%lp124528%_ ((_%rest124530%_ - _%refs124523%_) - (_%ctx124531%_ - _%ctx124526%_)) - (let* ((_%rest124532124540%_ _%rest124530%_) - (_%else124534124548%_ - (lambda () _%ctx124531%_)) - (_%K124536124556%_ - (lambda (_%rest124551%_ _%id124552%_) - (let ((_%bind124554%_ + (let _%lp123764%_ ((_%rest123766%_ + _%refs123759%_) + (_%ctx123767%_ + _%ctx123762%_)) + (let* ((_%rest123768123776%_ _%rest123766%_) + (_%else123770123784%_ + (lambda () _%ctx123767%_)) + (_%K123772123792%_ + (lambda (_%rest123787%_ _%id123788%_) + (let ((_%bind123790%_ (gx#resolve-identifier__% - _%id124552%_ + _%id123788%_ '0 - _%ctx124531%_))) + _%ctx123767%_))) (if (and (##structure-direct-instance-of? - _%bind124554%_ + _%bind123790%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind124554%_ + _%bind123790%_ '4 '#f '#f) 'gx#module-context::t)) - (_%lp124528%_ - _%rest124551%_ + (_%lp123764%_ + _%rest123787%_ (##unchecked-structure-ref - _%bind124554%_ + _%bind123790%_ '4 '#f '#f)) (error '"cannot import submodule; not bound as a module" - _%rpath124508%_ - _%id124552%_ - _%bind124554%_)))))) - (if (##pair? _%rest124532124540%_) - (let ((_%hd124537124559%_ - (##car _%rest124532124540%_)) - (_%tl124538124561%_ - (##cdr _%rest124532124540%_))) - (let* ((_%id124564%_ - _%hd124537124559%_) - (_%rest124566%_ - _%tl124538124561%_)) - (_%K124536124556%_ - _%rest124566%_ - _%id124564%_))) - (_%else124534124548%_)))))))) - (if (##pair? _%rpath124509124516%_) - (let ((_%hd124513124571%_ - (##car _%rpath124509124516%_)) - (_%tl124514124573%_ - (##cdr _%rpath124509124516%_))) - (let* ((_%origin124576%_ _%hd124513124571%_) - (_%refs124578%_ _%tl124514124573%_)) - (_%K124512124568%_ - _%refs124578%_ - _%origin124576%_))) - (_%E124511124520%_)))))) - (let ((_%$e124494%_ - (if (not _%reload?124489%_) - (hash-get gx#__module-registry _%rpath124488%_) + _%rpath123744%_ + _%id123788%_ + _%bind123790%_)))))) + (if (##pair? _%rest123768123776%_) + (let ((_%hd123773123795%_ + (##car _%rest123768123776%_)) + (_%tl123774123797%_ + (##cdr _%rest123768123776%_))) + (let* ((_%id123800%_ + _%hd123773123795%_) + (_%rest123802%_ + _%tl123774123797%_)) + (_%K123772123792%_ + _%rest123802%_ + _%id123800%_))) + (_%else123770123784%_)))))))) + (if (##pair? _%rpath123745123752%_) + (let ((_%hd123749123807%_ + (##car _%rpath123745123752%_)) + (_%tl123750123809%_ + (##cdr _%rpath123745123752%_))) + (let* ((_%origin123812%_ _%hd123749123807%_) + (_%refs123814%_ _%tl123750123809%_)) + (_%K123748123804%_ + _%refs123814%_ + _%origin123812%_))) + (_%E123747123756%_)))))) + (let ((_%$e123730%_ + (if (not _%reload?123725%_) + (hash-get gx#__module-registry _%rpath123724%_) '#f))) - (if _%$e124494%_ - _%$e124494%_ - (if (list? _%rpath124488%_) - (let () (_%import-submodule124492%_ _%rpath124488%_)) - (if (gx#core-library-module-path? _%rpath124488%_) - (let ((_%ctx124499%_ + (if _%$e123730%_ + _%$e123730%_ + (if (list? _%rpath123724%_) + (_%import-submodule123728%_ _%rpath123724%_) + (if (gx#core-library-module-path? _%rpath123724%_) + (let ((_%ctx123735%_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _%rpath124488%_) - _%reload?124489%_))) + _%rpath123724%_) + _%reload?123725%_))) (hash-put! gx#__module-registry - _%rpath124488%_ - _%ctx124499%_) - _%ctx124499%_) - (let () - (let* ((_%npath124502%_ - (path-normalize _%rpath124488%_)) - (_%$e124504%_ - (if (not _%reload?124489%_) - (hash-get - gx#__module-registry - _%npath124502%_) - '#f))) - (if _%$e124504%_ - _%$e124504%_ - (let () - (_%import-source124491%_ - _%npath124502%_)))))))))))) + _%rpath123724%_ + _%ctx123735%_) + _%ctx123735%_) + (let* ((_%npath123738%_ + (path-normalize _%rpath123724%_)) + (_%$e123740%_ + (if (not _%reload?123725%_) + (hash-get + gx#__module-registry + _%npath123738%_) + '#f))) + (if _%$e123740%_ + _%$e123740%_ + (_%import-source123727%_ + _%npath123738%_)))))))))) (define gx#core-import-module__0 - (lambda (_%rpath124609%_) - (let ((_%reload?124611%_ '#f)) - (gx#core-import-module__% _%rpath124609%_ _%reload?124611%_)))) + (lambda (_%rpath123845%_) + (let ((_%reload?123847%_ '#f)) + (gx#core-import-module__% _%rpath123845%_ _%reload?123847%_)))) (define gx#core-import-module - (lambda _g125714_ - (let ((_g125713_ (##length _g125714_))) - (cond ((##fx= _g125713_ 1) - (apply (lambda (_%rpath124609%_) - (gx#core-import-module__0 _%rpath124609%_)) - _g125714_)) - ((##fx= _g125713_ 2) - (apply (lambda (_%rpath124613%_ _%reload?124614%_) - (gx#core-import-module__% - _%rpath124613%_ - _%reload?124614%_)) - _g125714_)) + (lambda _g124950_ + (let ((_g124949_ (##length _g124950_))) + (cond ((##fx= _g124949_ 1) + (apply gx#core-import-module__0 _g124950_)) + ((##fx= _g124949_ 2) + (apply gx#core-import-module__% _g124950_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g125714_)))))) + _g124950_)))))) (define gx#core-read-module - (lambda (_%path124477%_) + (lambda (_%path123713%_) (__with-catch - (lambda (_%exn124479%_) - (if (and (datum-parsing-exception? _%exn124479%_) - (eq? (datum-parsing-exception-filepos _%exn124479%_) '0)) - (gx#core-read-module/lang _%path124477%_) + (lambda (_%exn123715%_) + (if (and (datum-parsing-exception? _%exn123715%_) + (eq? (datum-parsing-exception-filepos _%exn123715%_) '0)) + (gx#core-read-module/lang _%path123713%_) (gx#raise-syntax-error 'read-module '"error reading module" - _%path124477%_ + _%path123713%_ (__call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_%g124481124483%_) - (display-exception _%exn124479%_ _%g124481124483%_)))) + (lambda (_%g123717123719%_) + (display-exception _%exn123715%_ _%g123717123719%_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _%path124477%_))))) + (lambda () (gx#core-read-module/sexp _%path123713%_))))) (define gx#core-read-module/sexp - (lambda (_%path124329%_) - (let _%lp124331%_ ((_%body124333%_ - (read-syntax-from-file _%path124329%_)) - (_%pre124334%_ '#f) - (_%ns124335%_ '#f) - (_%pkg124336%_ '#f)) - (let* ((_%e124337124361%_ _%body124333%_) - (_%E124353124387%_ + (lambda (_%path123565%_) + (let _%lp123567%_ ((_%body123569%_ + (read-syntax-from-file _%path123565%_)) + (_%pre123570%_ '#f) + (_%ns123571%_ '#f) + (_%pkg123572%_ '#f)) + (let* ((_%e123573123597%_ _%body123569%_) + (_%E123589123623%_ (lambda () - (let ((_g125715_ - (if _%pkg124336%_ - (values _%pre124334%_ - _%ns124335%_ - _%pkg124336%_) + (let ((_g124951_ + (if _%pkg123572%_ + (values _%pre123570%_ + _%ns123571%_ + _%pkg123572%_) (gx#core-read-module-package - _%path124329%_ - _%pre124334%_ - _%ns124335%_)))) + _%path123565%_ + _%pre123570%_ + _%ns123571%_)))) (begin - (let ((_g125716_ - (if (##values? _g125715_) - (##vector-length _g125715_) + (let ((_g124952_ + (if (##values? _g124951_) + (##vector-length _g124951_) 1))) - (if (not (##fx= _g125716_ 3)) - (error "Context expects 3 values" _g125716_))) - (let ((_%pre124365%_ (##vector-ref _g125715_ 0)) - (_%ns124366%_ (##vector-ref _g125715_ 1)) - (_%pkg124367%_ (##vector-ref _g125715_ 2))) - (let* ((_%prelude124373%_ + (if (not (##fx= _g124952_ 3)) + (error "Context expects 3 values" _g124952_))) + (let ((_%pre123601%_ (##vector-ref _g124951_ 0)) + (_%ns123602%_ (##vector-ref _g124951_ 1)) + (_%pkg123603%_ (##vector-ref _g124951_ 2))) + (let* ((_%prelude123609%_ (if (gx#core-bound-module-prelude? - _%pre124365%_) - (let () - (gx#syntax-local-e__0 _%pre124365%_)) + _%pre123601%_) + (gx#syntax-local-e__0 _%pre123601%_) (if (gx#core-library-module-path? - _%pre124365%_) - (let () - (gx#core-resolve-library-module-path - _%pre124365%_)) - (if (gx#stx-string? _%pre124365%_) - (let () - (gx#core-resolve-module-path__% - _%pre124365%_ - _%path124329%_)) - (let () - (gx#stx-e _%pre124365%_)))))) - (_%path-id124375%_ + _%pre123601%_) + (gx#core-resolve-library-module-path + _%pre123601%_) + (if (gx#stx-string? _%pre123601%_) + (gx#core-resolve-module-path__% + _%pre123601%_ + _%path123565%_) + (gx#stx-e _%pre123601%_))))) + (_%path-id123611%_ (gx#core-module-path->namespace - _%path124329%_)) - (_%pkg-id124377%_ - (if _%pkg124367%_ + _%path123565%_)) + (_%pkg-id123613%_ + (if _%pkg123603%_ (string-append - _%pkg124367%_ + _%pkg123603%_ '"/" - _%path-id124375%_) - _%path-id124375%_)) - (_%module-id124379%_ - (string->symbol _%pkg-id124377%_)) - (_%module-ns124384%_ - (if (eq? _%ns124366%_ '#!void) + _%path-id123611%_) + _%path-id123611%_)) + (_%module-id123615%_ + (string->symbol _%pkg-id123613%_)) + (_%module-ns123620%_ + (if (eq? _%ns123602%_ '#!void) '#f - (let ((_%$e124381%_ _%ns124366%_)) - (if _%$e124381%_ - _%$e124381%_ - _%pkg-id124377%_))))) - (values _%prelude124373%_ - _%module-id124379%_ - _%module-ns124384%_ - _%body124333%_))))))) - (_%E124346124419%_ + (let ((_%$e123617%_ _%ns123602%_)) + (if _%$e123617%_ + _%$e123617%_ + _%pkg-id123613%_))))) + (values _%prelude123609%_ + _%module-id123615%_ + _%module-ns123620%_ + _%body123569%_))))))) + (_%E123582123655%_ (lambda () - (if (gx#stx-pair? _%e124337124361%_) - (let ((_%e124354124391%_ - (gx#syntax-e _%e124337124361%_))) - (let ((_%hd124355124394%_ (##car _%e124354124391%_)) - (_%tl124356124396%_ (##cdr _%e124354124391%_))) - (if (eq? (gx#stx-e _%hd124355124394%_) 'package:) - (if (gx#stx-pair? _%tl124356124396%_) - (let ((_%e124357124399%_ - (gx#syntax-e _%tl124356124396%_))) - (let ((_%hd124358124402%_ - (##car _%e124357124399%_)) - (_%tl124359124404%_ - (##cdr _%e124357124399%_))) - (let* ((_%pkg124407%_ - _%hd124358124402%_) - (_%rest124409%_ - _%tl124359124404%_)) + (if (gx#stx-pair? _%e123573123597%_) + (let ((_%e123590123627%_ + (gx#syntax-e _%e123573123597%_))) + (let ((_%hd123591123630%_ (##car _%e123590123627%_)) + (_%tl123592123632%_ (##cdr _%e123590123627%_))) + (if (eq? (gx#stx-e _%hd123591123630%_) 'package:) + (if (gx#stx-pair? _%tl123592123632%_) + (let ((_%e123593123635%_ + (gx#syntax-e _%tl123592123632%_))) + (let ((_%hd123594123638%_ + (##car _%e123593123635%_)) + (_%tl123595123640%_ + (##cdr _%e123593123635%_))) + (let* ((_%pkg123643%_ + _%hd123594123638%_) + (_%rest123645%_ + _%tl123595123640%_)) (if '#t - (let ((_%pkg124417%_ + (let ((_%pkg123653%_ (if (gx#identifier? - _%pkg124407%_) - (let () - (symbol->string - (gx#stx-e - _%pkg124407%_))) + _%pkg123643%_) + (symbol->string + (gx#stx-e + _%pkg123643%_)) (if (or (gx#stx-string? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pkg124407%_) - (gx#stx-false? _%pkg124407%_)) - (let () (gx#stx-e _%pkg124407%_)) - (let () - (gx#raise-syntax-error - 'import - '"Bad syntax; Illegal package name" - _%pkg124407%_)))))) + _%pkg123643%_) + (gx#stx-false? _%pkg123643%_)) + (gx#stx-e _%pkg123643%_) + (gx#raise-syntax-error + 'import + '"Bad syntax; Illegal package name" + _%pkg123643%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp124331%_ - _%rest124409%_ - _%pre124334%_ - _%ns124335%_ - _%pkg124417%_)) - (_%E124353124387%_))))) - (_%E124353124387%_)) - (_%E124353124387%_)))) - (_%E124353124387%_)))) - (_%E124339124449%_ + (_%lp123567%_ + _%rest123645%_ + _%pre123570%_ + _%ns123571%_ + _%pkg123653%_)) + (_%E123589123623%_))))) + (_%E123589123623%_)) + (_%E123589123623%_)))) + (_%E123589123623%_)))) + (_%E123575123685%_ (lambda () - (if (gx#stx-pair? _%e124337124361%_) - (let ((_%e124347124423%_ - (gx#syntax-e _%e124337124361%_))) - (let ((_%hd124348124426%_ (##car _%e124347124423%_)) - (_%tl124349124428%_ (##cdr _%e124347124423%_))) - (if (eq? (gx#stx-e _%hd124348124426%_) 'namespace:) - (if (gx#stx-pair? _%tl124349124428%_) - (let ((_%e124350124431%_ - (gx#syntax-e _%tl124349124428%_))) - (let ((_%hd124351124434%_ - (##car _%e124350124431%_)) - (_%tl124352124436%_ - (##cdr _%e124350124431%_))) - (let* ((_%ns124439%_ - _%hd124351124434%_) - (_%rest124441%_ - _%tl124352124436%_)) + (if (gx#stx-pair? _%e123573123597%_) + (let ((_%e123583123659%_ + (gx#syntax-e _%e123573123597%_))) + (let ((_%hd123584123662%_ (##car _%e123583123659%_)) + (_%tl123585123664%_ (##cdr _%e123583123659%_))) + (if (eq? (gx#stx-e _%hd123584123662%_) 'namespace:) + (if (gx#stx-pair? _%tl123585123664%_) + (let ((_%e123586123667%_ + (gx#syntax-e _%tl123585123664%_))) + (let ((_%hd123587123670%_ + (##car _%e123586123667%_)) + (_%tl123588123672%_ + (##cdr _%e123586123667%_))) + (let* ((_%ns123675%_ + _%hd123587123670%_) + (_%rest123677%_ + _%tl123588123672%_)) (if '#t - (let ((_%ns124447%_ + (let ((_%ns123683%_ (if (gx#identifier? - _%ns124439%_) - (let () - (symbol->string - (gx#stx-e - _%ns124439%_))) + _%ns123675%_) + (symbol->string + (gx#stx-e + _%ns123675%_)) (if (gx#stx-string? - _%ns124439%_) - (let () - (gx#stx-e - _%ns124439%_)) + _%ns123675%_) + (gx#stx-e + _%ns123675%_) (if (gx#stx-false? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%ns124439%_) - (let () '#!void) - (let () - (gx#raise-syntax-error - 'import - '"Bad syntax; illegal namespace" - _%ns124439%_))))))) + _%ns123675%_) + '#!void + (gx#raise-syntax-error + 'import + '"Bad syntax; illegal namespace" + _%ns123675%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp124331%_ - _%rest124441%_ - _%pre124334%_ - _%ns124447%_ - _%pkg124336%_)) - (_%E124346124419%_))))) - (_%E124346124419%_)) - (_%E124346124419%_)))) - (_%E124346124419%_)))) - (_%E124338124473%_ + (_%lp123567%_ + _%rest123677%_ + _%pre123570%_ + _%ns123683%_ + _%pkg123572%_)) + (_%E123582123655%_))))) + (_%E123582123655%_)) + (_%E123582123655%_)))) + (_%E123582123655%_)))) + (_%E123574123709%_ (lambda () - (if (gx#stx-pair? _%e124337124361%_) - (let ((_%e124340124453%_ - (gx#syntax-e _%e124337124361%_))) - (let ((_%hd124341124456%_ (##car _%e124340124453%_)) - (_%tl124342124458%_ (##cdr _%e124340124453%_))) - (if (eq? (gx#stx-e _%hd124341124456%_) 'prelude:) - (if (gx#stx-pair? _%tl124342124458%_) - (let ((_%e124343124461%_ - (gx#syntax-e _%tl124342124458%_))) - (let ((_%hd124344124464%_ - (##car _%e124343124461%_)) - (_%tl124345124466%_ - (##cdr _%e124343124461%_))) - (let* ((_%prelude124469%_ - _%hd124344124464%_) - (_%rest124471%_ - _%tl124345124466%_)) + (if (gx#stx-pair? _%e123573123597%_) + (let ((_%e123576123689%_ + (gx#syntax-e _%e123573123597%_))) + (let ((_%hd123577123692%_ (##car _%e123576123689%_)) + (_%tl123578123694%_ (##cdr _%e123576123689%_))) + (if (eq? (gx#stx-e _%hd123577123692%_) 'prelude:) + (if (gx#stx-pair? _%tl123578123694%_) + (let ((_%e123579123697%_ + (gx#syntax-e _%tl123578123694%_))) + (let ((_%hd123580123700%_ + (##car _%e123579123697%_)) + (_%tl123581123702%_ + (##cdr _%e123579123697%_))) + (let* ((_%prelude123705%_ + _%hd123580123700%_) + (_%rest123707%_ + _%tl123581123702%_)) (if '#t - (_%lp124331%_ - _%rest124471%_ - _%prelude124469%_ - _%ns124335%_ - _%pkg124336%_) - (_%E124339124449%_))))) - (_%E124339124449%_)) - (_%E124339124449%_)))) - (_%E124339124449%_))))) - (_%E124338124473%_))))) + (_%lp123567%_ + _%rest123707%_ + _%prelude123705%_ + _%ns123571%_ + _%pkg123572%_) + (_%E123575123685%_))))) + (_%E123575123685%_)) + (_%E123575123685%_)))) + (_%E123575123685%_))))) + (_%E123574123709%_))))) (define gx#core-read-module/lang - (lambda (_%path124151%_) - (letrec ((_%default-read-module-body124153%_ - (lambda (_%inp124321%_) - (let _%lp124323%_ ((_%body124325%_ '())) - (let ((_%next124327%_ (read-syntax__% _%inp124321%_))) - (if (eof-object? _%next124327%_) - (reverse _%body124325%_) - (_%lp124323%_ - (cons _%next124327%_ _%body124325%_))))))) - (_%read-body124154%_ - (lambda (_%inp124239%_ - _%pre124240%_ - _%ns124241%_ - _%pkg124242%_ - _%args124243%_) - (let ((_g125717_ - (if _%pkg124242%_ - (values _%pre124240%_ - _%ns124241%_ - _%pkg124242%_) + (lambda (_%path123387%_) + (letrec ((_%default-read-module-body123389%_ + (lambda (_%inp123557%_) + (let _%lp123559%_ ((_%body123561%_ '())) + (let ((_%next123563%_ (read-syntax__% _%inp123557%_))) + (if (eof-object? _%next123563%_) + (reverse _%body123561%_) + (_%lp123559%_ + (cons _%next123563%_ _%body123561%_))))))) + (_%read-body123390%_ + (lambda (_%inp123475%_ + _%pre123476%_ + _%ns123477%_ + _%pkg123478%_ + _%args123479%_) + (let ((_g124953_ + (if _%pkg123478%_ + (values _%pre123476%_ + _%ns123477%_ + _%pkg123478%_) (gx#core-read-module-package - _%path124151%_ - _%pre124240%_ - _%ns124241%_)))) + _%path123387%_ + _%pre123476%_ + _%ns123477%_)))) (begin - (let ((_g125718_ - (if (##values? _g125717_) - (##vector-length _g125717_) + (let ((_g124954_ + (if (##values? _g124953_) + (##vector-length _g124953_) 1))) - (if (not (##fx= _g125718_ 3)) - (error "Context expects 3 values" _g125718_))) - (let ((_%pre124245%_ (##vector-ref _g125717_ 0)) - (_%ns124246%_ (##vector-ref _g125717_ 1)) - (_%pkg124247%_ (##vector-ref _g125717_ 2))) - (let* ((_%prelude124249%_ - (gx#import-module__0 _%pre124245%_)) - (_%read-module-body124304%_ - (let ((_%$e124295%_ - (__find (lambda (_%e124250124252%_) - (let* ((_%g124254124264%_ - _%e124250124252%_) - (_%else124256124272%_ + (if (not (##fx= _g124954_ 3)) + (error "Context expects 3 values" _g124954_))) + (let ((_%pre123481%_ (##vector-ref _g124953_ 0)) + (_%ns123482%_ (##vector-ref _g124953_ 1)) + (_%pkg123483%_ (##vector-ref _g124953_ 2))) + (let* ((_%prelude123485%_ + (gx#import-module__0 _%pre123481%_)) + (_%read-module-body123540%_ + (let ((_%$e123531%_ + (__find (lambda (_%e123486123488%_) + (let* ((_%g123490123500%_ + _%e123486123488%_) + (_%else123492123508%_ (lambda () '#f)) - (_%K124258124276%_ + (_%K123494123512%_ (lambda () '#t))) (if (##structure-direct-instance-of? - _%g124254124264%_ + _%g123490123500%_ 'gx#module-export::t) - (let* ((_%e124259124279%_ + (let* ((_%e123495123515%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##unchecked-structure-ref - _%g124254124264%_ + _%g123490123500%_ '1 '#f '#f)) - (_%e124260124282%_ + (_%e123496123518%_ (##unchecked-structure-ref - _%g124254124264%_ + _%g123490123500%_ '2 '#f '#f)) - (_%e124261124285%_ + (_%e123497123521%_ (##unchecked-structure-ref - _%g124254124264%_ + _%g123490123500%_ '3 '#f '#f))) - (if (##eq? _%e124261124285%_ '1) - (let ((_%e124262124288%_ + (if (##eq? _%e123497123521%_ '1) + (let ((_%e123498123524%_ (##unchecked-structure-ref - _%g124254124264%_ + _%g123490123500%_ '4 '#f '#f))) - (if ((lambda (_%g124290124292%_) - (eq? _%g124290124292%_ 'read-module-body)) - _%e124262124288%_) - (_%K124258124276%_) - (_%else124256124272%_))) - (_%else124256124272%_))) - (_%else124256124272%_)))) + (if ((lambda (_%g123526123528%_) + (eq? _%g123526123528%_ 'read-module-body)) + _%e123498123524%_) + (_%K123494123512%_) + (_%else123492123508%_))) + (_%else123492123508%_))) + (_%else123492123508%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _%prelude124249%_ + _%prelude123485%_ '9 '#f '#f)))) - (if _%$e124295%_ - ((lambda (_%xport124298%_) - (let ((_%proc124301%_ + (if _%$e123531%_ + ((lambda (_%xport123534%_) + (let ((_%proc123537%_ (__with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _%xport124298%_) + _%xport123534%_) '1 gx#binding::t '#f)))))) - (if (procedure? _%proc124301%_) - _%proc124301%_ + (if (procedure? _%proc123537%_) + _%proc123537%_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _%path124151%_ - _%pre124245%_ - _%proc124301%_)))) - _%$e124295%_) - (let () - _%default-read-module-body124153%_)))) - (_%path-id124306%_ + _%path123387%_ + _%pre123481%_ + _%proc123537%_)))) + _%$e123531%_) + _%default-read-module-body123389%_))) + (_%path-id123542%_ (gx#core-module-path->namespace - _%path124151%_)) - (_%pkg-id124308%_ - (if _%pkg124247%_ + _%path123387%_)) + (_%pkg-id123544%_ + (if _%pkg123483%_ (string-append - _%pkg124247%_ + _%pkg123483%_ '"/" - _%path-id124306%_) - _%path-id124306%_)) - (_%module-id124310%_ - (string->symbol _%pkg-id124308%_)) - (_%module-ns124315%_ - (let ((_%$e124312%_ _%ns124246%_)) - (if _%$e124312%_ - _%$e124312%_ - _%pkg-id124308%_))) - (_%body124318%_ + _%path-id123542%_) + _%path-id123542%_)) + (_%module-id123546%_ + (string->symbol _%pkg-id123544%_)) + (_%module-ns123551%_ + (let ((_%$e123548%_ _%ns123482%_)) + (if _%$e123548%_ + _%$e123548%_ + _%pkg-id123544%_))) + (_%body123554%_ (__call-with-parameters (lambda () - (_%read-module-body124304%_ - _%inp124239%_)) + (_%read-module-body123540%_ + _%inp123475%_)) gx#current-module-reader-path - _%path124151%_ + _%path123387%_ gx#current-module-reader-args - _%args124243%_))) - (values _%prelude124249%_ - _%module-id124310%_ - _%module-ns124315%_ - _%body124318%_))))))) - (_%string-e124155%_ - (lambda (_%obj124233%_ _%what124234%_) - (if (string? _%obj124233%_) - (let () _%obj124233%_) - (if (symbol? _%obj124233%_) - (let () (symbol->string _%obj124233%_)) - (let () - (gx#raise-syntax-error - '#f - (string-append - '"Illegal module " - _%what124234%_) - _%path124151%_ - _%obj124233%_)))))) - (_%read-lang-args124156%_ - (lambda (_%inp124188%_ _%args124189%_) - (let* ((_%args124190124198%_ _%args124189%_) - (_%else124192124206%_ + _%args123479%_))) + (values _%prelude123485%_ + _%module-id123546%_ + _%module-ns123551%_ + _%body123554%_))))))) + (_%string-e123391%_ + (lambda (_%obj123469%_ _%what123470%_) + (if (string? _%obj123469%_) + _%obj123469%_ + (if (symbol? _%obj123469%_) + (symbol->string _%obj123469%_) + (gx#raise-syntax-error + '#f + (string-append '"Illegal module " _%what123470%_) + _%path123387%_ + _%obj123469%_))))) + (_%read-lang-args123392%_ + (lambda (_%inp123424%_ _%args123425%_) + (let* ((_%args123426123434%_ _%args123425%_) + (_%else123428123442%_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _%path124151%_))) - (_%K124194124221%_ - (lambda (_%args124209%_ _%prelude124210%_) - (let* ((_%pkg124212%_ - (pgetq__0 'package: _%args124209%_)) - (_%pkg124214%_ - (if _%pkg124212%_ - (_%string-e124155%_ - _%pkg124212%_ + _%path123387%_))) + (_%K123430123457%_ + (lambda (_%args123445%_ _%prelude123446%_) + (let* ((_%pkg123448%_ + (pgetq__0 'package: _%args123445%_)) + (_%pkg123450%_ + (if _%pkg123448%_ + (_%string-e123391%_ + _%pkg123448%_ '"package") '#f)) - (_%ns124216%_ - (pgetq__0 'namespace: _%args124209%_)) - (_%ns124218%_ - (if _%ns124216%_ - (_%string-e124155%_ - _%ns124216%_ + (_%ns123452%_ + (pgetq__0 'namespace: _%args123445%_)) + (_%ns123454%_ + (if _%ns123452%_ + (_%string-e123391%_ + _%ns123452%_ '"namespace") '#f))) - (_%read-body124154%_ - _%inp124188%_ - _%prelude124210%_ - _%ns124218%_ - _%pkg124214%_ - _%args124209%_))))) - (if (##pair? _%args124190124198%_) - (let ((_%hd124195124224%_ - (##car _%args124190124198%_)) - (_%tl124196124226%_ - (##cdr _%args124190124198%_))) - (let* ((_%prelude124229%_ _%hd124195124224%_) - (_%args124231%_ _%tl124196124226%_)) - (_%K124194124221%_ - _%args124231%_ - _%prelude124229%_))) - (_%else124192124206%_))))) - (_%read-lang124157%_ - (lambda (_%inp124162%_) - (let* ((_%head124164%_ (read-line _%inp124162%_)) - (_%$e124166%_ - (string-index__0 _%head124164%_ '#\space))) - (if _%$e124166%_ - ((lambda (_%ix124169%_) - (let ((_%lang124171%_ + (_%read-body123390%_ + _%inp123424%_ + _%prelude123446%_ + _%ns123454%_ + _%pkg123450%_ + _%args123445%_))))) + (if (##pair? _%args123426123434%_) + (let ((_%hd123431123460%_ + (##car _%args123426123434%_)) + (_%tl123432123462%_ + (##cdr _%args123426123434%_))) + (let* ((_%prelude123465%_ _%hd123431123460%_) + (_%args123467%_ _%tl123432123462%_)) + (_%K123430123457%_ + _%args123467%_ + _%prelude123465%_))) + (_%else123428123442%_))))) + (_%read-lang123393%_ + (lambda (_%inp123398%_) + (let* ((_%head123400%_ (read-line _%inp123398%_)) + (_%$e123402%_ + (string-index__0 _%head123400%_ '#\space))) + (if _%$e123402%_ + ((lambda (_%ix123405%_) + (let ((_%lang123407%_ (substring - _%head124164%_ + _%head123400%_ '0 - _%ix124169%_))) - (if (equal? _%lang124171%_ '"#lang") - (let* ((_%rest124173%_ + _%ix123405%_))) + (if (equal? _%lang123407%_ '"#lang") + (let* ((_%rest123409%_ (substring - _%head124164%_ - (##fx+ _%ix124169%_ '1) - (string-length _%head124164%_))) - (_%args124184%_ + _%head123400%_ + (##fx+ _%ix123405%_ '1) + (string-length _%head123400%_))) + (_%args123420%_ (__with-catch - (lambda (_%g124174124176%_) + (lambda (_%g123410123412%_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _%path124151%_ - _%g124174124176%_)) + _%path123387%_ + _%g123410123412%_)) (lambda () (call-with-input-string - _%rest124173%_ - (lambda (_%g124179124181%_) + _%rest123409%_ + (lambda (_%g123415123417%_) (read-all - _%g124179124181%_ + _%g123415123417%_ read))))))) - (_%read-lang-args124156%_ - _%inp124162%_ - _%args124184%_)) + (_%read-lang-args123392%_ + _%inp123398%_ + _%args123420%_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path124151%_)))) - _%$e124166%_) - (let () - (gx#raise-syntax-error - '#f - '"Illegal module syntax" - _%path124151%_)))))) - (_%read-e124158%_ - (lambda (_%inp124160%_) - (if (eq? (peek-char _%inp124160%_) '#\#) - (_%read-lang124157%_ _%inp124160%_) + _%path123387%_)))) + _%$e123402%_) + (gx#raise-syntax-error + '#f + '"Illegal module syntax" + _%path123387%_))))) + (_%read-e123394%_ + (lambda (_%inp123396%_) + (if (eq? (peek-char _%inp123396%_) '#\#) + (_%read-lang123393%_ _%inp123396%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path124151%_))))) - (gx#call-with-input-source-file _%path124151%_ _%read-e124158%_)))) + _%path123387%_))))) + (gx#call-with-input-source-file _%path123387%_ _%read-e123394%_)))) (define gx#core-read-module-package - (lambda (_%path124099%_ _%pre124100%_ _%ns124101%_) - (letrec ((_%string-e124103%_ - (lambda (_%e124146%_) - (if (symbol? _%e124146%_) - (let () (symbol->string _%e124146%_)) - (if (string? _%e124146%_) - (let () _%e124146%_) - (let () - (gx#raise-syntax-error - '#f - '"Malformed package info; unexpected datum" - _%e124146%_))))))) - (let _%lp124105%_ ((_%dir124107%_ (path-directory _%path124099%_)) - (_%pkg-path124108%_ '())) - (let ((_%gerbil.pkg124110%_ - (path-expand '"gerbil.pkg" _%dir124107%_))) - (if (##file-exists? _%gerbil.pkg124110%_) - (let ((_%plist124112%_ - (gx#core-library-package-plist__% _%dir124107%_ '#t))) - (if (null? _%plist124112%_) - (let ((_%pkg124115%_ - (if (not (null? _%pkg-path124108%_)) - (string-join _%pkg-path124108%_ '"/") + (lambda (_%path123335%_ _%pre123336%_ _%ns123337%_) + (letrec ((_%string-e123339%_ + (lambda (_%e123382%_) + (if (symbol? _%e123382%_) + (symbol->string _%e123382%_) + (if (string? _%e123382%_) + _%e123382%_ + (gx#raise-syntax-error + '#f + '"Malformed package info; unexpected datum" + _%e123382%_)))))) + (let _%lp123341%_ ((_%dir123343%_ (path-directory _%path123335%_)) + (_%pkg-path123344%_ '())) + (let ((_%gerbil.pkg123346%_ + (path-expand '"gerbil.pkg" _%dir123343%_))) + (if (##file-exists? _%gerbil.pkg123346%_) + (let ((_%plist123348%_ + (gx#core-library-package-plist__% _%dir123343%_ '#t))) + (if (null? _%plist123348%_) + (let ((_%pkg123351%_ + (if (not (null? _%pkg-path123344%_)) + (string-join _%pkg-path123344%_ '"/") '#f))) - (values _%pre124100%_ _%ns124101%_ _%pkg124115%_)) - (if (list? _%plist124112%_) - (let () - (let* ((_%root124118%_ - (pgetq__0 'package: _%plist124112%_)) - (_%pkg124122%_ - (let ((_%pkg-path124120%_ - (if _%root124118%_ - (cons (_%string-e124103%_ - _%root124118%_) - _%pkg-path124108%_) - _%pkg-path124108%_))) - (if (not (null? _%pkg-path124120%_)) - (string-join - _%pkg-path124120%_ - '"/") - '#f))) - (_%ns124129%_ - (let ((_%ns124127%_ - (let ((_%$e124124%_ _%ns124101%_)) - (if _%$e124124%_ - _%$e124124%_ - (pgetq__0 - 'namespace: - _%plist124112%_))))) - (if _%ns124127%_ - (_%string-e124103%_ _%ns124127%_) - '#f))) - (_%pre124134%_ - (let ((_%$e124131%_ _%pre124100%_)) - (if _%$e124131%_ - _%$e124131%_ - (pgetq__0 - 'prelude: - _%plist124112%_))))) - (values _%pre124134%_ - _%ns124129%_ - _%pkg124122%_))) - (let () - (gx#raise-syntax-error - '#f - '"Malformed package info; unexpected datum" - _%plist124112%_))))) - (let ((_%dir*124138%_ + (values _%pre123336%_ _%ns123337%_ _%pkg123351%_)) + (if (list? _%plist123348%_) + (let* ((_%root123354%_ + (pgetq__0 'package: _%plist123348%_)) + (_%pkg123358%_ + (let ((_%pkg-path123356%_ + (if _%root123354%_ + (cons (_%string-e123339%_ + _%root123354%_) + _%pkg-path123344%_) + _%pkg-path123344%_))) + (if (not (null? _%pkg-path123356%_)) + (string-join _%pkg-path123356%_ '"/") + '#f))) + (_%ns123365%_ + (let ((_%ns123363%_ + (let ((_%$e123360%_ _%ns123337%_)) + (if _%$e123360%_ + _%$e123360%_ + (pgetq__0 + 'namespace: + _%plist123348%_))))) + (if _%ns123363%_ + (_%string-e123339%_ _%ns123363%_) + '#f))) + (_%pre123370%_ + (let ((_%$e123367%_ _%pre123336%_)) + (if _%$e123367%_ + _%$e123367%_ + (pgetq__0 + 'prelude: + _%plist123348%_))))) + (values _%pre123370%_ + _%ns123365%_ + _%pkg123358%_)) + (gx#raise-syntax-error + '#f + '"Malformed package info; unexpected datum" + _%plist123348%_)))) + (let ((_%dir*123374%_ (path-strip-trailing-directory-separator - _%dir124107%_))) - (if (or (__string-empty? _%dir*124138%_) - (equal? _%dir124107%_ _%dir*124138%_)) - (values _%pre124100%_ _%ns124101%_ '#f) - (let ((_%xpath124143%_ - (path-strip-directory _%dir*124138%_)) - (_%xdir124144%_ (path-directory _%dir*124138%_))) - (_%lp124105%_ - _%xdir124144%_ - (cons _%xpath124143%_ _%pkg-path124108%_))))))))))) + _%dir123343%_))) + (if (or (__string-empty? _%dir*123374%_) + (equal? _%dir123343%_ _%dir*123374%_)) + (values _%pre123336%_ _%ns123337%_ '#f) + (let ((_%xpath123379%_ + (path-strip-directory _%dir*123374%_)) + (_%xdir123380%_ (path-directory _%dir*123374%_))) + (_%lp123341%_ + _%xdir123380%_ + (cons _%xpath123379%_ _%pkg-path123344%_))))))))))) (define gx#core-module-path->namespace - (lambda (_%path124097%_) - (path-strip-extension (path-strip-directory _%path124097%_)))) + (lambda (_%path123333%_) + (path-strip-extension (path-strip-directory _%path123333%_)))) (define gx#core-module-path->id - (lambda (_%path124095%_) - (##string->symbol (gx#core-module-path->namespace _%path124095%_)))) + (lambda (_%path123331%_) + (##string->symbol (gx#core-module-path->namespace _%path123331%_)))) (define gx#core-resolve-module-path__% - (lambda (_%stx-path124074%_ _%rel124075%_) - (let* ((_%path124077%_ (gx#stx-e _%stx-path124074%_)) - (_%path124079%_ - (if (__string-empty? (path-extension _%path124077%_)) - (##string-append _%path124077%_ '".ss") - _%path124077%_))) + (lambda (_%stx-path123310%_ _%rel123311%_) + (let* ((_%path123313%_ (gx#stx-e _%stx-path123310%_)) + (_%path123315%_ + (if (__string-empty? (path-extension _%path123313%_)) + (##string-append _%path123313%_ '".ss") + _%path123313%_))) (gx#core-resolve-path__% - _%path124079%_ - (let ((_%$e124082%_ (gx#stx-source _%stx-path124074%_))) - (if _%$e124082%_ _%$e124082%_ _%rel124075%_)))))) + _%path123315%_ + (let ((_%$e123318%_ (gx#stx-source _%stx-path123310%_))) + (if _%$e123318%_ _%$e123318%_ _%rel123311%_)))))) (define gx#core-resolve-module-path__0 - (lambda (_%stx-path124088%_) - (let ((_%rel124090%_ '#f)) - (gx#core-resolve-module-path__% _%stx-path124088%_ _%rel124090%_)))) + (lambda (_%stx-path123324%_) + (let ((_%rel123326%_ '#f)) + (gx#core-resolve-module-path__% _%stx-path123324%_ _%rel123326%_)))) (define gx#core-resolve-module-path - (lambda _g125720_ - (let ((_g125719_ (##length _g125720_))) - (cond ((##fx= _g125719_ 1) - (apply (lambda (_%stx-path124088%_) - (gx#core-resolve-module-path__0 _%stx-path124088%_)) - _g125720_)) - ((##fx= _g125719_ 2) - (apply (lambda (_%stx-path124092%_ _%rel124093%_) - (gx#core-resolve-module-path__% - _%stx-path124092%_ - _%rel124093%_)) - _g125720_)) + (lambda _g124956_ + (let ((_g124955_ (##length _g124956_))) + (cond ((##fx= _g124955_ 1) + (apply gx#core-resolve-module-path__0 _g124956_)) + ((##fx= _g124955_ 2) + (apply gx#core-resolve-module-path__% _g124956_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g125720_)))))) + _g124956_)))))) (define gx#core-resolve-library-module-path - (lambda (_%libpath123959%_) - (let* ((_%spath123961%_ (symbol->string (gx#stx-e _%libpath123959%_))) - (_%spath123963%_ + (lambda (_%libpath123195%_) + (let* ((_%spath123197%_ (symbol->string (gx#stx-e _%libpath123195%_))) + (_%spath123199%_ (substring - _%spath123961%_ + _%spath123197%_ '1 - (##string-length _%spath123961%_))) - (_%ext123965%_ (path-extension _%spath123963%_)) - (_%ssi123967%_ - (if (__string-empty? _%ext123965%_) - (##string-append _%spath123963%_ '".ssi") + (##string-length _%spath123197%_))) + (_%ext123201%_ (path-extension _%spath123199%_)) + (_%ssi123203%_ + (if (__string-empty? _%ext123201%_) + (##string-append _%spath123199%_ '".ssi") (##string-append - (path-strip-extension _%spath123963%_) + (path-strip-extension _%spath123199%_) '".ssi"))) - (_%srcs123971%_ - (if (__string-empty? _%ext123965%_) - (##map (lambda (_%ext123969%_) - (string-append _%spath123963%_ _%ext123969%_)) + (_%srcs123207%_ + (if (__string-empty? _%ext123201%_) + (##map (lambda (_%ext123205%_) + (string-append _%spath123199%_ _%ext123205%_)) '(".ss" ".sld" ".scm")) - (cons _%spath123963%_ '())))) - (let _%lp123974%_ ((_%rest123976%_ (load-path))) - (let* ((_%rest123977123986%_ _%rest123976%_) - (_%E123980123990%_ + (cons _%spath123199%_ '())))) + (let _%lp123210%_ ((_%rest123212%_ (load-path))) + (let* ((_%rest123213123222%_ _%rest123212%_) + (_%E123216123226%_ (lambda () (error '"No clause matching" - _%rest123977123986%_ + _%rest123213123222%_ '([dir . rest]) '([])) '#!void))) - (let ((_%K123982124061%_ - (lambda (_%rest124001%_ _%dir124002%_) - (letrec ((_%resolve124004%_ - (lambda (_%ssi124017%_ _%srcs124018%_) - (let ((_%compiled-path124020%_ + (let ((_%K123218123297%_ + (lambda (_%rest123237%_ _%dir123238%_) + (letrec ((_%resolve123240%_ + (lambda (_%ssi123253%_ _%srcs123254%_) + (let ((_%compiled-path123256%_ (path-expand - _%ssi124017%_ - _%dir124002%_))) + _%ssi123253%_ + _%dir123238%_))) (if (##file-exists? - _%compiled-path124020%_) + _%compiled-path123256%_) (path-normalize - _%compiled-path124020%_) - (let _%lpr124022%_ ((_%rest-src124024%_ - _%srcs124018%_)) - (let* ((_%rest-src124025124033%_ - _%rest-src124024%_) - (_%else124027124041%_ + _%compiled-path123256%_) + (let _%lpr123258%_ ((_%rest-src123260%_ + _%srcs123254%_)) + (let* ((_%rest-src123261123269%_ + _%rest-src123260%_) + (_%else123263123277%_ (lambda () - (_%lp123974%_ - _%rest124001%_))) - (_%K124029124049%_ - (lambda (_%rest-src124044%_ - _%src124045%_) - (let ((_%src-path124047%_ + (_%lp123210%_ + _%rest123237%_))) + (_%K123265123285%_ + (lambda (_%rest-src123280%_ + _%src123281%_) + (let ((_%src-path123283%_ (path-expand - _%src124045%_ - _%dir124002%_))) + _%src123281%_ + _%dir123238%_))) (if (##file-exists? - _%src-path124047%_) + _%src-path123283%_) (path-normalize - _%src-path124047%_) - (_%lpr124022%_ - _%rest-src124044%_)))))) - (if (##pair? _%rest-src124025124033%_) - (let ((_%hd124030124052%_ - (##car _%rest-src124025124033%_)) - (_%tl124031124054%_ - (##cdr _%rest-src124025124033%_))) - (let* ((_%src124057%_ - _%hd124030124052%_) - (_%rest-src124059%_ - _%tl124031124054%_)) - (_%K124029124049%_ - _%rest-src124059%_ - _%src124057%_))) - (_%else124027124041%_))))))))) - (let ((_%$e124006%_ + _%src-path123283%_) + (_%lpr123258%_ + _%rest-src123280%_)))))) + (if (##pair? _%rest-src123261123269%_) + (let ((_%hd123266123288%_ + (##car _%rest-src123261123269%_)) + (_%tl123267123290%_ + (##cdr _%rest-src123261123269%_))) + (let* ((_%src123293%_ + _%hd123266123288%_) + (_%rest-src123295%_ + _%tl123267123290%_)) + (_%K123265123285%_ + _%rest-src123295%_ + _%src123293%_))) + (_%else123263123277%_))))))))) + (let ((_%$e123242%_ (gx#core-library-package-path-prefix - _%dir124002%_))) - (if _%$e124006%_ - ((lambda (_%prefix124009%_) + _%dir123238%_))) + (if _%$e123242%_ + ((lambda (_%prefix123245%_) (if (string-prefix? - _%prefix124009%_ - _%spath123963%_) - (let ((_%ssi124013%_ + _%prefix123245%_ + _%spath123199%_) + (let ((_%ssi123249%_ (substring - _%ssi123967%_ - (string-length _%prefix124009%_) - (##string-length _%ssi123967%_))) - (_%srcs124014%_ - (##map (lambda (_%src124011%_) + _%ssi123203%_ + (string-length _%prefix123245%_) + (##string-length _%ssi123203%_))) + (_%srcs123250%_ + (##map (lambda (_%src123247%_) (substring - _%src124011%_ + _%src123247%_ (string-length - _%prefix124009%_) + _%prefix123245%_) (string-length - _%src124011%_))) - _%srcs123971%_))) - (_%resolve124004%_ - _%ssi124013%_ - _%srcs124014%_)) - (_%lp123974%_ _%rest124001%_))) - _%$e124006%_) - (let () - (_%resolve124004%_ - _%ssi123967%_ - _%srcs123971%_))))))) - (_%K123981123995%_ + _%src123247%_))) + _%srcs123207%_))) + (_%resolve123240%_ + _%ssi123249%_ + _%srcs123250%_)) + (_%lp123210%_ _%rest123237%_))) + _%$e123242%_) + (_%resolve123240%_ + _%ssi123203%_ + _%srcs123207%_)))))) + (_%K123217123231%_ (lambda () (gx#raise-syntax-error '#f '"cannot find library module" - _%libpath123959%_)))) - (let ((_%try-match123979123998%_ + _%libpath123195%_)))) + (let ((_%try-match123215123234%_ (lambda () - (if (##null? _%rest123977123986%_) - (_%K123981123995%_) - (_%E123980123990%_))))) - (if (##pair? _%rest123977123986%_) - (let ((_%tl123984124066%_ (##cdr _%rest123977123986%_)) - (_%hd123983124064%_ (##car _%rest123977123986%_))) - (let ((_%dir124069%_ _%hd123983124064%_) - (_%rest124071%_ _%tl123984124066%_)) - (_%K123982124061%_ _%rest124071%_ _%dir124069%_))) - (_%try-match123979123998%_))))))))) + (if (##null? _%rest123213123222%_) + (_%K123217123231%_) + (_%E123216123226%_))))) + (if (##pair? _%rest123213123222%_) + (let ((_%tl123220123302%_ (##cdr _%rest123213123222%_)) + (_%hd123219123300%_ (##car _%rest123213123222%_))) + (let ((_%dir123305%_ _%hd123219123300%_) + (_%rest123307%_ _%tl123220123302%_)) + (_%K123218123297%_ _%rest123307%_ _%dir123305%_))) + (_%try-match123215123234%_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_%modpath123927%_) - (letrec ((_%resolve123929%_ - (lambda (_%path123950%_ _%base123951%_) - (let ((_%$e123953%_ - (string-rindex__0 _%base123951%_ '#\/))) - (if _%$e123953%_ - ((lambda (_%idx123956%_) + (lambda (_%modpath123163%_) + (letrec ((_%resolve123165%_ + (lambda (_%path123186%_ _%base123187%_) + (let ((_%$e123189%_ + (string-rindex__0 _%base123187%_ '#\/))) + (if _%$e123189%_ + ((lambda (_%idx123192%_) (gx#core-resolve-library-module-path (##string->symbol (string-append '":" - (substring _%base123951%_ '0 _%idx123956%_) + (substring _%base123187%_ '0 _%idx123192%_) '"/" - _%path123950%_)))) - _%$e123953%_) - (let () - (gx#core-resolve-library-module-path - (##string->symbol - (string-append '":" _%path123950%_))))))))) - (let ((_%spath123931%_ (symbol->string (gx#stx-e _%modpath123927%_))) - (_%mod123932%_ + _%path123186%_)))) + _%$e123189%_) + (gx#core-resolve-library-module-path + (##string->symbol + (string-append '":" _%path123186%_)))))))) + (let ((_%spath123167%_ (symbol->string (gx#stx-e _%modpath123163%_))) + (_%mod123168%_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _%mod123932%_ + (if _%mod123168%_ '#!void (gx#raise-syntax-error '#f '"cannot resolve relative module path; not in module context" - _%modpath123927%_)) - (let ((_%mpath123934%_ + _%modpath123163%_)) + (let ((_%mpath123170%_ (symbol->string (##structure-ref - _%mod123932%_ + _%mod123168%_ '1 gx#expander-context::t '#f)))) - (let _%lp123936%_ ((_%spath123938%_ _%spath123931%_) - (_%mpath123939%_ _%mpath123934%_)) - (if (string-prefix? '"../" _%spath123938%_) - (let ((_%$e123942%_ - (string-rindex__0 _%mpath123939%_ '#\/))) - (if _%$e123942%_ - ((lambda (_%idx123945%_) - (_%lp123936%_ + (let _%lp123172%_ ((_%spath123174%_ _%spath123167%_) + (_%mpath123175%_ _%mpath123170%_)) + (if (string-prefix? '"../" _%spath123174%_) + (let ((_%$e123178%_ + (string-rindex__0 _%mpath123175%_ '#\/))) + (if _%$e123178%_ + ((lambda (_%idx123181%_) + (_%lp123172%_ (substring - _%spath123938%_ + _%spath123174%_ '3 - (string-length _%spath123938%_)) - (substring _%mpath123939%_ '0 _%idx123945%_))) - _%$e123942%_) - (let () - (gx#raise-syntax-error - '#f - '"cannot resolve relative module path; illegal traversal" - _%modpath123927%_)))) - (if (string-prefix? '"./" _%spath123938%_) - (let () - (_%lp123936%_ - (substring - _%spath123938%_ - '2 - (string-length _%spath123938%_)) - _%mpath123939%_)) - (let () - (_%resolve123929%_ - _%spath123938%_ - _%mpath123939%_)))))))))) + (string-length _%spath123174%_)) + (substring _%mpath123175%_ '0 _%idx123181%_))) + _%$e123178%_) + (gx#raise-syntax-error + '#f + '"cannot resolve relative module path; illegal traversal" + _%modpath123163%_))) + (if (string-prefix? '"./" _%spath123174%_) + (_%lp123172%_ + (substring + _%spath123174%_ + '2 + (string-length _%spath123174%_)) + _%mpath123175%_) + (_%resolve123165%_ + _%spath123174%_ + _%mpath123175%_))))))))) (define gx#core-library-package-path-prefix - (lambda (_%dir123919%_) - (let ((_%$e123921%_ + (lambda (_%dir123155%_) + (let ((_%$e123157%_ (pgetq__0 'package: - (gx#core-library-package-plist__0 _%dir123919%_)))) - (if _%$e123921%_ - ((lambda (_%pkg123924%_) - (##string-append (symbol->string _%pkg123924%_) '"/")) - _%$e123921%_) - (let () '#f))))) + (gx#core-library-package-plist__0 _%dir123155%_)))) + (if _%$e123157%_ + ((lambda (_%pkg123160%_) + (##string-append (symbol->string _%pkg123160%_) '"/")) + _%$e123157%_) + '#f)))) (define gx#core-library-package-plist__% - (lambda (_%dir123889%_ _%exists?123890%_) - (let ((_%$e123892%_ (hash-get gx#__module-pkg-cache _%dir123889%_))) - (if _%$e123892%_ - (values _%$e123892%_) - (let () - (let* ((_%gerbil.pkg123896%_ - (path-expand '"gerbil.pkg" _%dir123889%_)) - (_%plist123906%_ - (if (or _%exists?123890%_ - (##file-exists? _%gerbil.pkg123896%_)) - (let ((_%e123901%_ - (gx#call-with-input-source-file - _%gerbil.pkg123896%_ - read))) - (if (eof-object? _%e123901%_) - (let () '()) - (if (list? _%e123901%_) - (let () _%e123901%_) - (let () - (gx#raise-syntax-error - '#f - '"Malformed package info; unexpected datum" - _%gerbil.pkg123896%_ - _%e123901%_))))) - '()))) - (hash-put! - gx#__module-pkg-cache - _%dir123889%_ - _%plist123906%_) - _%plist123906%_)))))) + (lambda (_%dir123125%_ _%exists?123126%_) + (let ((_%$e123128%_ (hash-get gx#__module-pkg-cache _%dir123125%_))) + (if _%$e123128%_ + (values _%$e123128%_) + (let* ((_%gerbil.pkg123132%_ + (path-expand '"gerbil.pkg" _%dir123125%_)) + (_%plist123142%_ + (if (or _%exists?123126%_ + (##file-exists? _%gerbil.pkg123132%_)) + (let ((_%e123137%_ + (gx#call-with-input-source-file + _%gerbil.pkg123132%_ + read))) + (if (eof-object? _%e123137%_) + '() + (if (list? _%e123137%_) + _%e123137%_ + (gx#raise-syntax-error + '#f + '"Malformed package info; unexpected datum" + _%gerbil.pkg123132%_ + _%e123137%_)))) + '()))) + (hash-put! gx#__module-pkg-cache _%dir123125%_ _%plist123142%_) + _%plist123142%_))))) (define gx#core-library-package-plist__0 - (lambda (_%dir123912%_) - (let ((_%exists?123914%_ '#f)) - (gx#core-library-package-plist__% _%dir123912%_ _%exists?123914%_)))) + (lambda (_%dir123148%_) + (let ((_%exists?123150%_ '#f)) + (gx#core-library-package-plist__% _%dir123148%_ _%exists?123150%_)))) (define gx#core-library-package-plist - (lambda _g125722_ - (let ((_g125721_ (##length _g125722_))) - (cond ((##fx= _g125721_ 1) - (apply (lambda (_%dir123912%_) - (gx#core-library-package-plist__0 _%dir123912%_)) - _g125722_)) - ((##fx= _g125721_ 2) - (apply (lambda (_%dir123916%_ _%exists?123917%_) - (gx#core-library-package-plist__% - _%dir123916%_ - _%exists?123917%_)) - _g125722_)) + (lambda _g124958_ + (let ((_g124957_ (##length _g124958_))) + (cond ((##fx= _g124957_ 1) + (apply gx#core-library-package-plist__0 _g124958_)) + ((##fx= _g124957_ 2) + (apply gx#core-library-package-plist__% _g124958_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g125722_)))))) + _g124958_)))))) (define gx#core-library-module-path? - (lambda (_%stx123886%_) - (gx#core-special-module-path? _%stx123886%_ '#\:))) + (lambda (_%stx123122%_) + (gx#core-special-module-path? _%stx123122%_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_%stx123884%_) - (gx#core-special-module-path? _%stx123884%_ '#\.))) + (lambda (_%stx123120%_) + (gx#core-special-module-path? _%stx123120%_ '#\.))) (define gx#core-special-module-path? - (lambda (_%stx123879%_ _%char123880%_) - (if (gx#identifier? _%stx123879%_) - (if (interned-symbol? (gx#stx-e _%stx123879%_)) - (let ((_%str123882%_ - (symbol->string (gx#stx-e _%stx123879%_)))) - (if (##fx> (##string-length _%str123882%_) '1) - (eq? (string-ref _%str123882%_ '0) _%char123880%_) + (lambda (_%stx123115%_ _%char123116%_) + (if (gx#identifier? _%stx123115%_) + (if (interned-symbol? (gx#stx-e _%stx123115%_)) + (let ((_%str123118%_ + (symbol->string (gx#stx-e _%stx123115%_)))) + (if (##fx> (##string-length _%str123118%_) '1) + (eq? (string-ref _%str123118%_ '0) _%char123116%_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_%stx123873%_) + (lambda (_%stx123109%_) (gx#core-bound-identifier?__% - _%stx123873%_ - (lambda (_%g123874123876%_) - (gx#expander-binding?__% _%g123874123876%_ gx#prelude-context?))))) + _%stx123109%_ + (lambda (_%g123110123112%_) + (gx#expander-binding?__% _%g123110123112%_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_%stx123867%_) + (lambda (_%stx123103%_) (gx#core-bound-identifier?__% - _%stx123867%_ - (lambda (_%g123868123870%_) - (gx#expander-binding?__% _%g123868123870%_ gx#module-context?))))) + _%stx123103%_ + (lambda (_%g123104123106%_) + (gx#expander-binding?__% _%g123104123106%_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_%stx123854%_) - (letrec ((_%module-prelude?123856%_ - (lambda (_%e123862%_) - (let ((_%$e123864%_ + (lambda (_%stx123090%_) + (letrec ((_%module-prelude?123092%_ + (lambda (_%e123098%_) + (let ((_%$e123100%_ (##structure-instance-of? - _%e123862%_ + _%e123098%_ 'gx#module-context::t))) - (if _%$e123864%_ - _%$e123864%_ + (if _%$e123100%_ + _%$e123100%_ (##structure-instance-of? - _%e123862%_ + _%e123098%_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _%stx123854%_ - (lambda (_%g123857123859%_) + _%stx123090%_ + (lambda (_%g123093123095%_) (gx#expander-binding?__% - _%g123857123859%_ - _%module-prelude?123856%_)))))) + _%g123093123095%_ + _%module-prelude?123092%_)))))) (define gx#core-bind-import!__% - (lambda (_%in123784%_ _%ctx123785%_ _%force-weak?123786%_) - (let* ((_%in123787123796%_ _%in123784%_) - (_%E123789123800%_ + (lambda (_%in123020%_ _%ctx123021%_ _%force-weak?123022%_) + (let* ((_%in123023123032%_ _%in123020%_) + (_%E123025123036%_ (lambda () (error '"No clause matching" - _%in123787123796%_ + _%in123023123032%_ '((module-import source key phi weak?))) '#!void)) - (_%K123790123813%_ - (lambda (_%weak?123803%_ - _%phi123804%_ - _%key123805%_ - _%source123806%_) + (_%K123026123049%_ + (lambda (_%weak?123039%_ + _%phi123040%_ + _%key123041%_ + _%source123042%_) (gx#core-bind!__% - _%key123805%_ - (let ((_%e123808%_ - (gx#core-resolve-module-export _%source123806%_))) + _%key123041%_ + (let ((_%e123044%_ + (gx#core-resolve-module-export _%source123042%_))) (##structure gx#import-binding::t - (##unchecked-structure-ref _%e123808%_ '1 '#f '#f) - _%key123805%_ - _%phi123804%_ - _%e123808%_ - (##unchecked-structure-ref _%source123806%_ '1 '#f '#f) - (let ((_%$e123810%_ _%force-weak?123786%_)) - (if _%$e123810%_ _%$e123810%_ _%weak?123803%_)))) + (##unchecked-structure-ref _%e123044%_ '1 '#f '#f) + _%key123041%_ + _%phi123040%_ + _%e123044%_ + (##unchecked-structure-ref _%source123042%_ '1 '#f '#f) + (let ((_%$e123046%_ _%force-weak?123022%_)) + (if _%$e123046%_ _%$e123046%_ _%weak?123039%_)))) gx#core-context-rebind? - _%phi123804%_ - _%ctx123785%_)))) + _%phi123040%_ + _%ctx123021%_)))) (if (##structure-direct-instance-of? - _%in123787123796%_ + _%in123023123032%_ 'gx#module-import::t) - (let* ((_%e123791123816%_ + (let* ((_%e123027123052%_ (##unchecked-structure-ref - _%in123787123796%_ + _%in123023123032%_ '1 '#f '#f)) - (_%source123819%_ _%e123791123816%_) - (_%e123792123821%_ + (_%source123055%_ _%e123027123052%_) + (_%e123028123057%_ (##unchecked-structure-ref - _%in123787123796%_ + _%in123023123032%_ '2 '#f '#f)) - (_%key123824%_ _%e123792123821%_) - (_%e123793123826%_ + (_%key123060%_ _%e123028123057%_) + (_%e123029123062%_ (##unchecked-structure-ref - _%in123787123796%_ + _%in123023123032%_ '3 '#f '#f)) - (_%phi123829%_ _%e123793123826%_) - (_%e123794123831%_ + (_%phi123065%_ _%e123029123062%_) + (_%e123030123067%_ (##unchecked-structure-ref - _%in123787123796%_ + _%in123023123032%_ '4 '#f '#f)) - (_%weak?123834%_ _%e123794123831%_)) - (_%K123790123813%_ - _%weak?123834%_ - _%phi123829%_ - _%key123824%_ - _%source123819%_)) - (_%E123789123800%_))))) + (_%weak?123070%_ _%e123030123067%_)) + (_%K123026123049%_ + _%weak?123070%_ + _%phi123065%_ + _%key123060%_ + _%source123055%_)) + (_%E123025123036%_))))) (define gx#core-bind-import!__0 - (lambda (_%in123839%_) - (let* ((_%ctx123841%_ (gx#current-expander-context)) - (_%force-weak?123843%_ '#f)) + (lambda (_%in123075%_) + (let* ((_%ctx123077%_ (gx#current-expander-context)) + (_%force-weak?123079%_ '#f)) (gx#core-bind-import!__% - _%in123839%_ - _%ctx123841%_ - _%force-weak?123843%_)))) + _%in123075%_ + _%ctx123077%_ + _%force-weak?123079%_)))) (define gx#core-bind-import!__1 - (lambda (_%in123845%_ _%ctx123846%_) - (let ((_%force-weak?123848%_ '#f)) + (lambda (_%in123081%_ _%ctx123082%_) + (let ((_%force-weak?123084%_ '#f)) (gx#core-bind-import!__% - _%in123845%_ - _%ctx123846%_ - _%force-weak?123848%_)))) + _%in123081%_ + _%ctx123082%_ + _%force-weak?123084%_)))) (define gx#core-bind-import! - (lambda _g125724_ - (let ((_g125723_ (##length _g125724_))) - (cond ((##fx= _g125723_ 1) - (apply (lambda (_%in123839%_) - (gx#core-bind-import!__0 _%in123839%_)) - _g125724_)) - ((##fx= _g125723_ 2) - (apply (lambda (_%in123845%_ _%ctx123846%_) - (gx#core-bind-import!__1 _%in123845%_ _%ctx123846%_)) - _g125724_)) - ((##fx= _g125723_ 3) - (apply (lambda (_%in123850%_ - _%ctx123851%_ - _%force-weak?123852%_) - (gx#core-bind-import!__% - _%in123850%_ - _%ctx123851%_ - _%force-weak?123852%_)) - _g125724_)) + (lambda _g124960_ + (let ((_g124959_ (##length _g124960_))) + (cond ((##fx= _g124959_ 1) (apply gx#core-bind-import!__0 _g124960_)) + ((##fx= _g124959_ 2) (apply gx#core-bind-import!__1 _g124960_)) + ((##fx= _g124959_ 3) (apply gx#core-bind-import!__% _g124960_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g125724_)))))) + _g124960_)))))) (define gx#core-bind-weak-import!__% - (lambda (_%in123770%_ _%ctx123771%_) - (gx#core-bind-import!__% _%in123770%_ _%ctx123771%_ '#t))) + (lambda (_%in123006%_ _%ctx123007%_) + (gx#core-bind-import!__% _%in123006%_ _%ctx123007%_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_%in123776%_) - (let ((_%ctx123778%_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _%in123776%_ _%ctx123778%_)))) + (lambda (_%in123012%_) + (let ((_%ctx123014%_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _%in123012%_ _%ctx123014%_)))) (define gx#core-bind-weak-import! - (lambda _g125726_ - (let ((_g125725_ (##length _g125726_))) - (cond ((##fx= _g125725_ 1) - (apply (lambda (_%in123776%_) - (gx#core-bind-weak-import!__0 _%in123776%_)) - _g125726_)) - ((##fx= _g125725_ 2) - (apply (lambda (_%in123780%_ _%ctx123781%_) - (gx#core-bind-weak-import!__% - _%in123780%_ - _%ctx123781%_)) - _g125726_)) + (lambda _g124962_ + (let ((_g124961_ (##length _g124962_))) + (cond ((##fx= _g124961_ 1) + (apply gx#core-bind-weak-import!__0 _g124962_)) + ((##fx= _g124961_ 2) + (apply gx#core-bind-weak-import!__% _g124962_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g125726_)))))) + _g124962_)))))) (define gx#core-resolve-module-export - (lambda (_%out123661%_) - (letrec ((_%subst123663%_ - (lambda (_%key123709%_) - (let* ((_%key123710123718%_ _%key123709%_) - (_%else123712123726%_ (lambda () _%key123709%_)) - (_%K123714123757%_ - (lambda (_%mark123729%_ _%id123730%_) - (let* ((_%mark123731123737%_ _%mark123729%_) - (_%E123733123741%_ + (lambda (_%out122897%_) + (letrec ((_%subst122899%_ + (lambda (_%key122945%_) + (let* ((_%key122946122954%_ _%key122945%_) + (_%else122948122962%_ (lambda () _%key122945%_)) + (_%K122950122993%_ + (lambda (_%mark122965%_ _%id122966%_) + (let* ((_%mark122967122973%_ _%mark122965%_) + (_%E122969122977%_ (lambda () (error '"No clause matching" - _%mark123731123737%_ + _%mark122967122973%_ '((expander-mark subst))) '#!void)) - (_%K123734123749%_ - (lambda (_%subst123744%_) - (let ((_%$e123746%_ - (if _%subst123744%_ + (_%K122970122985%_ + (lambda (_%subst122980%_) + (let ((_%$e122982%_ + (if _%subst122980%_ (hash-get - _%subst123744%_ - _%id123730%_) + _%subst122980%_ + _%id122966%_) '#f))) - (if _%$e123746%_ - _%$e123746%_ + (if _%$e122982%_ + _%$e122982%_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _%key123709%_)))))) + _%key122945%_)))))) (if (##structure-instance-of? - _%mark123731123737%_ + _%mark122967122973%_ 'gx#expander-mark::t) - (let* ((_%e123735123752%_ + (let* ((_%e122971122988%_ (##unchecked-structure-ref - _%mark123731123737%_ + _%mark122967122973%_ '1 '#f '#f)) - (_%subst123755%_ _%e123735123752%_)) - (_%K123734123749%_ _%subst123755%_)) - (_%E123733123741%_)))))) - (if (##pair? _%key123710123718%_) - (let ((_%hd123715123760%_ - (##car _%key123710123718%_)) - (_%tl123716123762%_ - (##cdr _%key123710123718%_))) - (let* ((_%id123765%_ _%hd123715123760%_) - (_%mark123767%_ _%tl123716123762%_)) - (_%K123714123757%_ _%mark123767%_ _%id123765%_))) - (_%else123712123726%_)))))) - (let* ((_%out123664123674%_ _%out123661%_) - (_%E123666123678%_ + (_%subst122991%_ _%e122971122988%_)) + (_%K122970122985%_ _%subst122991%_)) + (_%E122969122977%_)))))) + (if (##pair? _%key122946122954%_) + (let ((_%hd122951122996%_ + (##car _%key122946122954%_)) + (_%tl122952122998%_ + (##cdr _%key122946122954%_))) + (let* ((_%id123001%_ _%hd122951122996%_) + (_%mark123003%_ _%tl122952122998%_)) + (_%K122950122993%_ _%mark123003%_ _%id123001%_))) + (_%else122948122962%_)))))) + (let* ((_%out122900122910%_ _%out122897%_) + (_%E122902122914%_ (lambda () (error '"No clause matching" - _%out123664123674%_ + _%out122900122910%_ '((module-export ctx key phi _ _))) '#!void)) - (_%K123667123685%_ - (lambda (_%phi123681%_ _%key123682%_ _%ctx123683%_) + (_%K122903122921%_ + (lambda (_%phi122917%_ _%key122918%_ _%ctx122919%_) (gx#core-context-resolve - (gx#core-context-shift _%ctx123683%_ _%phi123681%_) - (_%subst123663%_ _%key123682%_))))) + (gx#core-context-shift _%ctx122919%_ _%phi122917%_) + (_%subst122899%_ _%key122918%_))))) (if (##structure-direct-instance-of? - _%out123664123674%_ + _%out122900122910%_ 'gx#module-export::t) - (let* ((_%e123668123688%_ + (let* ((_%e122904122924%_ (##unchecked-structure-ref - _%out123664123674%_ + _%out122900122910%_ '1 '#f '#f)) - (_%ctx123691%_ _%e123668123688%_) - (_%e123669123693%_ + (_%ctx122927%_ _%e122904122924%_) + (_%e122905122929%_ (##unchecked-structure-ref - _%out123664123674%_ + _%out122900122910%_ '2 '#f '#f)) - (_%key123696%_ _%e123669123693%_) - (_%e123670123698%_ + (_%key122932%_ _%e122905122929%_) + (_%e122906122934%_ (##unchecked-structure-ref - _%out123664123674%_ + _%out122900122910%_ '3 '#f '#f)) - (_%phi123701%_ _%e123670123698%_) - (_%e123671123703%_ + (_%phi122937%_ _%e122906122934%_) + (_%e122907122939%_ (##unchecked-structure-ref - _%out123664123674%_ + _%out122900122910%_ '4 '#f '#f)) - (_%e123672123706%_ + (_%e122908122942%_ (##unchecked-structure-ref - _%out123664123674%_ + _%out122900122910%_ '5 '#f '#f))) - (_%K123667123685%_ - _%phi123701%_ - _%key123696%_ - _%ctx123691%_)) - (_%E123666123678%_)))))) + (_%K122903122921%_ + _%phi122937%_ + _%key122932%_ + _%ctx122927%_)) + (_%E122902122914%_)))))) (define gx#core-module-export->import__% - (lambda (_%out123586%_ _%rename123587%_ _%dphi123588%_) - (let* ((_%out123589123599%_ _%out123586%_) - (_%E123591123603%_ + (lambda (_%out122822%_ _%rename122823%_ _%dphi122824%_) + (let* ((_%out122825122835%_ _%out122822%_) + (_%E122827122839%_ (lambda () (error '"No clause matching" - _%out123589123599%_ + _%out122825122835%_ '((module-export ctx key phi name weak?))) '#!void)) - (_%K123592123615%_ - (lambda (_%weak?123606%_ - _%name123607%_ - _%phi123608%_ - _%key123609%_ - _%ctx123610%_) + (_%K122828122851%_ + (lambda (_%weak?122842%_ + _%name122843%_ + _%phi122844%_ + _%key122845%_ + _%ctx122846%_) (##structure gx#module-import::t - _%out123586%_ - (let ((_%$e123612%_ _%rename123587%_)) - (if _%$e123612%_ _%$e123612%_ _%name123607%_)) - (fx+ _%phi123608%_ _%dphi123588%_) - _%weak?123606%_)))) + _%out122822%_ + (let ((_%$e122848%_ _%rename122823%_)) + (if _%$e122848%_ _%$e122848%_ _%name122843%_)) + (fx+ _%phi122844%_ _%dphi122824%_) + _%weak?122842%_)))) (if (##structure-direct-instance-of? - _%out123589123599%_ + _%out122825122835%_ 'gx#module-export::t) - (let* ((_%e123593123618%_ + (let* ((_%e122829122854%_ (##unchecked-structure-ref - _%out123589123599%_ + _%out122825122835%_ '1 '#f '#f)) - (_%ctx123621%_ _%e123593123618%_) - (_%e123594123623%_ + (_%ctx122857%_ _%e122829122854%_) + (_%e122830122859%_ (##unchecked-structure-ref - _%out123589123599%_ + _%out122825122835%_ '2 '#f '#f)) - (_%key123626%_ _%e123594123623%_) - (_%e123595123628%_ + (_%key122862%_ _%e122830122859%_) + (_%e122831122864%_ (##unchecked-structure-ref - _%out123589123599%_ + _%out122825122835%_ '3 '#f '#f)) - (_%phi123631%_ _%e123595123628%_) - (_%e123596123633%_ + (_%phi122867%_ _%e122831122864%_) + (_%e122832122869%_ (##unchecked-structure-ref - _%out123589123599%_ + _%out122825122835%_ '4 '#f '#f)) - (_%name123636%_ _%e123596123633%_) - (_%e123597123638%_ + (_%name122872%_ _%e122832122869%_) + (_%e122833122874%_ (##unchecked-structure-ref - _%out123589123599%_ + _%out122825122835%_ '5 '#f '#f)) - (_%weak?123641%_ _%e123597123638%_)) - (_%K123592123615%_ - _%weak?123641%_ - _%name123636%_ - _%phi123631%_ - _%key123626%_ - _%ctx123621%_)) - (_%E123591123603%_))))) + (_%weak?122877%_ _%e122833122874%_)) + (_%K122828122851%_ + _%weak?122877%_ + _%name122872%_ + _%phi122867%_ + _%key122862%_ + _%ctx122857%_)) + (_%E122827122839%_))))) (define gx#core-module-export->import__0 - (lambda (_%out123646%_) - (let* ((_%rename123648%_ '#f) (_%dphi123650%_ '0)) + (lambda (_%out122882%_) + (let* ((_%rename122884%_ '#f) (_%dphi122886%_ '0)) (gx#core-module-export->import__% - _%out123646%_ - _%rename123648%_ - _%dphi123650%_)))) + _%out122882%_ + _%rename122884%_ + _%dphi122886%_)))) (define gx#core-module-export->import__1 - (lambda (_%out123652%_ _%rename123653%_) - (let ((_%dphi123655%_ '0)) + (lambda (_%out122888%_ _%rename122889%_) + (let ((_%dphi122891%_ '0)) (gx#core-module-export->import__% - _%out123652%_ - _%rename123653%_ - _%dphi123655%_)))) + _%out122888%_ + _%rename122889%_ + _%dphi122891%_)))) (define gx#core-module-export->import - (lambda _g125728_ - (let ((_g125727_ (##length _g125728_))) - (cond ((##fx= _g125727_ 1) - (apply (lambda (_%out123646%_) - (gx#core-module-export->import__0 _%out123646%_)) - _g125728_)) - ((##fx= _g125727_ 2) - (apply (lambda (_%out123652%_ _%rename123653%_) - (gx#core-module-export->import__1 - _%out123652%_ - _%rename123653%_)) - _g125728_)) - ((##fx= _g125727_ 3) - (apply (lambda (_%out123657%_ _%rename123658%_ _%dphi123659%_) - (gx#core-module-export->import__% - _%out123657%_ - _%rename123658%_ - _%dphi123659%_)) - _g125728_)) + (lambda _g124964_ + (let ((_g124963_ (##length _g124964_))) + (cond ((##fx= _g124963_ 1) + (apply gx#core-module-export->import__0 _g124964_)) + ((##fx= _g124963_ 2) + (apply gx#core-module-export->import__1 _g124964_)) + ((##fx= _g124963_ 3) + (apply gx#core-module-export->import__% _g124964_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g125728_)))))) + _g124964_)))))) (define gx#core-expand-module% - (lambda (_%stx123485%_) - (letrec ((_%make-context123487%_ - (lambda (_%id123564%_) - (let* ((_%super123566%_ (gx#current-expander-context)) - (_%bind-id123568%_ (gx#stx-e _%id123564%_)) - (_%mod-id123570%_ + (lambda (_%stx122721%_) + (letrec ((_%make-context122723%_ + (lambda (_%id122800%_) + (let* ((_%super122802%_ (gx#current-expander-context)) + (_%bind-id122804%_ (gx#stx-e _%id122800%_)) + (_%mod-id122806%_ (if (##structure-instance-of? - _%super123566%_ + _%super122802%_ 'gx#module-context::t) (make-symbol__1 (##structure-ref - _%super123566%_ + _%super122802%_ '1 gx#expander-context::t '#f) '"~" - _%bind-id123568%_) - _%bind-id123568%_)) - (_%ns123572%_ (symbol->string _%mod-id123570%_)) - (_%path123582%_ + _%bind-id122804%_) + _%bind-id122804%_)) + (_%ns122808%_ (symbol->string _%mod-id122806%_)) + (_%path122818%_ (if (##structure-instance-of? - _%super123566%_ + _%super122802%_ 'gx#module-context::t) - (let ((_%path123574%_ + (let ((_%path122810%_ (##unchecked-structure-ref - _%super123566%_ + _%super122802%_ '7 '#f '#f))) - (if (or (pair? _%path123574%_) - (null? _%path123574%_)) - (let () - (cons _%bind-id123568%_ - _%path123574%_)) - (if (not _%path123574%_) - (let () _%bind-id123568%_) - (let () - (cons _%bind-id123568%_ - (cons _%path123574%_ - '())))))) - _%bind-id123568%_)) - (__obj125704 + (if (or (pair? _%path122810%_) + (null? _%path122810%_)) + (cons _%bind-id122804%_ _%path122810%_) + (if (not _%path122810%_) + _%bind-id122804%_ + (cons _%bind-id122804%_ + (cons _%path122810%_ '()))))) + _%bind-id122804%_)) + (__obj124940 (##structure gx#module-context::t '#f @@ -2329,732 +2177,724 @@ '#f '#f))) (gx#module-context:::init! - __obj125704 - _%mod-id123570%_ - _%super123566%_ - _%ns123572%_ - _%path123582%_) - __obj125704))) - (_%valid-module-id?123488%_ - (lambda (_%id123539%_) - (let* ((_%str123541%_ (symbol->string _%id123539%_)) - (_%len123543%_ (##string-length _%str123541%_))) - (if (##fx>= _%len123543%_ '1) - (let _%loop123546%_ ((_%index123548%_ + __obj124940 + _%mod-id122806%_ + _%super122802%_ + _%ns122808%_ + _%path122818%_) + __obj124940))) + (_%valid-module-id?122724%_ + (lambda (_%id122775%_) + (let* ((_%str122777%_ (symbol->string _%id122775%_)) + (_%len122779%_ (##string-length _%str122777%_))) + (if (##fx>= _%len122779%_ '1) + (let _%loop122782%_ ((_%index122784%_ (##fx- (##string-length - _%str123541%_) + _%str122777%_) '1))) - (if (##fx>= _%index123548%_ '0) - (let ((_%c123550%_ + (if (##fx>= _%index122784%_ '0) + (let ((_%c122786%_ (string-ref - _%str123541%_ - _%index123548%_))) - (if (or (and (##char>=? _%c123550%_ '#\a) - (##char<=? _%c123550%_ '#\z)) - (and (##char>=? _%c123550%_ '#\A) - (##char<=? _%c123550%_ '#\Z)) - (and (##char>=? _%c123550%_ '#\0) - (##char<=? _%c123550%_ '#\9)) - (##char=? _%c123550%_ '#\_) - (##char=? _%c123550%_ '#\-)) - (_%loop123546%_ - (##fx- _%index123548%_ '1)) + _%str122777%_ + _%index122784%_))) + (if (or (and (##char>=? _%c122786%_ '#\a) + (##char<=? _%c122786%_ '#\z)) + (and (##char>=? _%c122786%_ '#\A) + (##char<=? _%c122786%_ '#\Z)) + (and (##char>=? _%c122786%_ '#\0) + (##char<=? _%c122786%_ '#\9)) + (##char=? _%c122786%_ '#\_) + (##char=? _%c122786%_ '#\-)) + (_%loop122782%_ + (##fx- _%index122784%_ '1)) '#f)) '#t)) '#f))))) - (let* ((_%e123489123499%_ _%stx123485%_) - (_%E123491123503%_ + (let* ((_%e122725122735%_ _%stx122721%_) + (_%E122727122739%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123489123499%_))) - (_%E123490123535%_ + _%e122725122735%_))) + (_%E122726122771%_ (lambda () - (if (gx#stx-pair? _%e123489123499%_) - (let ((_%e123492123507%_ - (gx#syntax-e _%e123489123499%_))) - (let ((_%hd123493123510%_ (##car _%e123492123507%_)) - (_%tl123494123512%_ (##cdr _%e123492123507%_))) - (if (gx#stx-pair? _%tl123494123512%_) - (let ((_%e123495123515%_ - (gx#syntax-e _%tl123494123512%_))) - (let ((_%hd123496123518%_ - (##car _%e123495123515%_)) - (_%tl123497123520%_ - (##cdr _%e123495123515%_))) - (let* ((_%id123523%_ _%hd123496123518%_) - (_%body123525%_ _%tl123497123520%_)) - (if (and (gx#identifier? _%id123523%_) - (gx#stx-list? _%body123525%_)) - (if (_%valid-module-id?123488%_ + (if (gx#stx-pair? _%e122725122735%_) + (let ((_%e122728122743%_ + (gx#syntax-e _%e122725122735%_))) + (let ((_%hd122729122746%_ (##car _%e122728122743%_)) + (_%tl122730122748%_ (##cdr _%e122728122743%_))) + (if (gx#stx-pair? _%tl122730122748%_) + (let ((_%e122731122751%_ + (gx#syntax-e _%tl122730122748%_))) + (let ((_%hd122732122754%_ + (##car _%e122731122751%_)) + (_%tl122733122756%_ + (##cdr _%e122731122751%_))) + (let* ((_%id122759%_ _%hd122732122754%_) + (_%body122761%_ _%tl122733122756%_)) + (if (and (gx#identifier? _%id122759%_) + (gx#stx-list? _%body122761%_)) + (if (_%valid-module-id?122724%_ (gx#stx-e (gx#datum->syntax__0 '#f 'id))) - (let* ((_%ctx123527%_ - (_%make-context123487%_ - _%id123523%_)) - (_%body123529%_ + (let* ((_%ctx122763%_ + (_%make-context122723%_ + _%id122759%_)) + (_%body122765%_ (gx#core-expand-module-begin - _%body123525%_ - _%ctx123527%_)) - (_%body123531%_ + _%body122761%_ + _%ctx122763%_)) + (_%body122767%_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body123529%_) + _%body122765%_) (gx#stx-source - _%stx123485%_)))) + _%stx122721%_)))) (##unchecked-structure-set! - _%ctx123527%_ + _%ctx122763%_ (__make-promise (lambda () (gx#eval-syntax* - _%body123531%_))) + _%body122767%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx123527%_ - _%body123531%_ + _%ctx122763%_ + _%body122767%_ '11 '#f '#f) (gx#core-bind-syntax!__0 - _%id123523%_ - _%ctx123527%_) + _%id122759%_ + _%ctx122763%_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _%id123523%_) - _%body123531%_) + _%id122759%_) + _%body122767%_) (gx#stx-source - _%stx123485%_))) + _%stx122721%_))) (gx#raise-syntax-error '#f '"invalid module id; allowed characters are A-Z,a-z,0-9,_,-" - _%stx123485%_ + _%stx122721%_ (gx#datum->syntax__0 '#f 'id))) - (_%E123491123503%_))))) - (_%E123491123503%_)))) - (_%E123491123503%_))))) - (_%E123490123535%_))))) + (_%E122727122739%_))))) + (_%E122727122739%_)))) + (_%E122727122739%_))))) + (_%E122726122771%_))))) (define gx#core-expand-module-begin - (lambda (_%body123451%_ _%ctx123452%_) + (lambda (_%body122687%_ _%ctx122688%_) (__call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_%stx123455%_ - (gx#core-expand-head (cons '%%begin-module _%body123451%_))) - (_%e123456123463%_ _%stx123455%_) - (_%E123458123467%_ + (let* ((_%stx122691%_ + (gx#core-expand-head (cons '%%begin-module _%body122687%_))) + (_%e122692122699%_ _%stx122691%_) + (_%E122694122703%_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _%stx123455%_))) - (_%E123457123481%_ + _%stx122691%_))) + (_%E122693122717%_ (lambda () - (if (gx#stx-pair? _%e123456123463%_) - (let ((_%e123459123471%_ - (gx#syntax-e _%e123456123463%_))) - (let ((_%hd123460123474%_ (##car _%e123459123471%_)) - (_%tl123461123476%_ - (##cdr _%e123459123471%_))) - (if (and (gx#identifier? _%hd123460123474%_) + (if (gx#stx-pair? _%e122692122699%_) + (let ((_%e122695122707%_ + (gx#syntax-e _%e122692122699%_))) + (let ((_%hd122696122710%_ (##car _%e122695122707%_)) + (_%tl122697122712%_ + (##cdr _%e122695122707%_))) + (if (and (gx#identifier? _%hd122696122710%_) (gx#core-identifier=? - _%hd123460123474%_ + _%hd122696122710%_ '%#begin-module)) - (let ((_%body123479%_ _%tl123461123476%_)) + (let ((_%body122715%_ _%tl122697122712%_)) (if '#t - (if (gx#sealed-syntax? _%stx123455%_) - _%body123479%_ + (if (gx#sealed-syntax? _%stx122691%_) + _%body122715%_ (gx#core-expand-module-body - _%body123479%_)) - (_%E123458123467%_))) - (_%E123458123467%_)))) - (_%E123458123467%_))))) - (_%E123457123481%_))) + _%body122715%_)) + (_%E122694122703%_))) + (_%E122694122703%_)))) + (_%E122694122703%_))))) + (_%E122693122717%_))) gx#current-expander-context - _%ctx123452%_ + _%ctx122688%_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_%body123247%_) - (letrec ((_%expand-special123249%_ - (lambda (_%hd123378%_ _%K123379%_ _%rest123380%_ _%r123381%_) - (let* ((_%e123382123399%_ _%hd123378%_) - (_%E123394123403%_ + (lambda (_%body122483%_) + (letrec ((_%expand-special122485%_ + (lambda (_%hd122614%_ _%K122615%_ _%rest122616%_ _%r122617%_) + (let* ((_%e122618122635%_ _%hd122614%_) + (_%E122630122639%_ (lambda () - (_%K123379%_ - _%rest123380%_ - (cons (gx#core-expand-top _%hd123378%_) - _%r123381%_)))) - (_%E123384123415%_ + (_%K122615%_ + _%rest122616%_ + (cons (gx#core-expand-top _%hd122614%_) + _%r122617%_)))) + (_%E122620122651%_ (lambda () - (if (gx#stx-pair? _%e123382123399%_) - (let ((_%e123395123407%_ - (gx#syntax-e _%e123382123399%_))) - (let ((_%hd123396123410%_ - (##car _%e123395123407%_)) - (_%tl123397123412%_ - (##cdr _%e123395123407%_))) + (if (gx#stx-pair? _%e122618122635%_) + (let ((_%e122631122643%_ + (gx#syntax-e _%e122618122635%_))) + (let ((_%hd122632122646%_ + (##car _%e122631122643%_)) + (_%tl122633122648%_ + (##cdr _%e122631122643%_))) (if (and (gx#identifier? - _%hd123396123410%_) + _%hd122632122646%_) (gx#core-identifier=? - _%hd123396123410%_ + _%hd122632122646%_ '%#export)) (if '#t - (_%K123379%_ - _%rest123380%_ - (cons _%hd123378%_ _%r123381%_)) - (_%E123394123403%_)) - (_%E123394123403%_)))) - (_%E123394123403%_)))) - (_%E123383123447%_ + (_%K122615%_ + _%rest122616%_ + (cons _%hd122614%_ _%r122617%_)) + (_%E122630122639%_)) + (_%E122630122639%_)))) + (_%E122630122639%_)))) + (_%E122619122683%_ (lambda () - (if (gx#stx-pair? _%e123382123399%_) - (let ((_%e123385123419%_ - (gx#syntax-e _%e123382123399%_))) - (let ((_%hd123386123422%_ - (##car _%e123385123419%_)) - (_%tl123387123424%_ - (##cdr _%e123385123419%_))) + (if (gx#stx-pair? _%e122618122635%_) + (let ((_%e122621122655%_ + (gx#syntax-e _%e122618122635%_))) + (let ((_%hd122622122658%_ + (##car _%e122621122655%_)) + (_%tl122623122660%_ + (##cdr _%e122621122655%_))) (if (and (gx#identifier? - _%hd123386123422%_) + _%hd122622122658%_) (gx#core-identifier=? - _%hd123386123422%_ + _%hd122622122658%_ '%#define-values)) - (if (gx#stx-pair? _%tl123387123424%_) - (let ((_%e123388123427%_ + (if (gx#stx-pair? _%tl122623122660%_) + (let ((_%e122624122663%_ (gx#syntax-e - _%tl123387123424%_))) - (let ((_%hd123389123430%_ - (##car _%e123388123427%_)) - (_%tl123390123432%_ - (##cdr _%e123388123427%_))) - (let ((_%hd-bind123435%_ - _%hd123389123430%_)) + _%tl122623122660%_))) + (let ((_%hd122625122666%_ + (##car _%e122624122663%_)) + (_%tl122626122668%_ + (##cdr _%e122624122663%_))) + (let ((_%hd-bind122671%_ + _%hd122625122666%_)) (if (gx#stx-pair? - _%tl123390123432%_) - (let ((_%e123391123437%_ + _%tl122626122668%_) + (let ((_%e122627122673%_ (gx#syntax-e - _%tl123390123432%_))) - (let ((_%hd123392123440%_ + _%tl122626122668%_))) + (let ((_%hd122628122676%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e123391123437%_)) - (_%tl123393123442%_ (##cdr _%e123391123437%_))) - (let ((_%expr123445%_ _%hd123392123440%_)) - (if (gx#stx-null? _%tl123393123442%_) - (if (gx#core-bind-values? _%hd-bind123435%_) + (##car _%e122627122673%_)) + (_%tl122629122678%_ (##cdr _%e122627122673%_))) + (let ((_%expr122681%_ _%hd122628122676%_)) + (if (gx#stx-null? _%tl122629122678%_) + (if (gx#core-bind-values? _%hd-bind122671%_) (begin - (gx#core-bind-values!__0 _%hd-bind123435%_) - (_%K123379%_ - _%rest123380%_ - (cons _%hd123378%_ _%r123381%_))) - (_%E123384123415%_)) - (_%E123384123415%_))))) - (_%E123384123415%_))))) + (gx#core-bind-values!__0 _%hd-bind122671%_) + (_%K122615%_ + _%rest122616%_ + (cons _%hd122614%_ _%r122617%_))) + (_%E122620122651%_)) + (_%E122620122651%_))))) + (_%E122620122651%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123384123415%_)) - (_%E123384123415%_)))) - (_%E123384123415%_))))) - (_%E123383123447%_)))) - (_%expand-body123250%_ - (lambda (_%rbody123252%_) - (let _%lp123254%_ ((_%rest123256%_ _%rbody123252%_) - (_%body123257%_ '())) - (let* ((_%rest123258123266%_ _%rest123256%_) - (_%else123260123274%_ (lambda () _%body123257%_)) - (_%K123262123366%_ - (lambda (_%rest123277%_ _%hd123278%_) - (let* ((_%e123279123300%_ _%hd123278%_) - (_%E123295123304%_ + (_%E122620122651%_)) + (_%E122620122651%_)))) + (_%E122620122651%_))))) + (_%E122619122683%_)))) + (_%expand-body122486%_ + (lambda (_%rbody122488%_) + (let _%lp122490%_ ((_%rest122492%_ _%rbody122488%_) + (_%body122493%_ '())) + (let* ((_%rest122494122502%_ _%rest122492%_) + (_%else122496122510%_ (lambda () _%body122493%_)) + (_%K122498122602%_ + (lambda (_%rest122513%_ _%hd122514%_) + (let* ((_%e122515122536%_ _%hd122514%_) + (_%E122531122540%_ (lambda () - (_%lp123254%_ - _%rest123277%_ + (_%lp122490%_ + _%rest122513%_ (cons (gx#core-expand-expression - _%hd123278%_) - _%body123257%_)))) - (_%E123291123318%_ + _%hd122514%_) + _%body122493%_)))) + (_%E122527122554%_ (lambda () - (if (gx#stx-pair? _%e123279123300%_) - (let ((_%e123296123308%_ + (if (gx#stx-pair? _%e122515122536%_) + (let ((_%e122532122544%_ (gx#syntax-e - _%e123279123300%_))) - (let ((_%hd123297123311%_ - (##car _%e123296123308%_)) - (_%tl123298123313%_ - (##cdr _%e123296123308%_))) - (let ((_%form123316%_ - _%hd123297123311%_)) + _%e122515122536%_))) + (let ((_%hd122533122547%_ + (##car _%e122532122544%_)) + (_%tl122534122549%_ + (##cdr _%e122532122544%_))) + (let ((_%form122552%_ + _%hd122533122547%_)) (if (gx#core-bound-identifier?__% - _%form123316%_ + _%form122552%_ gx#special-form-binding?) - (_%lp123254%_ - _%rest123277%_ - (cons _%hd123278%_ - _%body123257%_)) - (_%E123295123304%_))))) - (_%E123295123304%_)))) - (_%E123281123330%_ + (_%lp122490%_ + _%rest122513%_ + (cons _%hd122514%_ + _%body122493%_)) + (_%E122531122540%_))))) + (_%E122531122540%_)))) + (_%E122517122566%_ (lambda () - (if (gx#stx-pair? _%e123279123300%_) - (let ((_%e123292123322%_ + (if (gx#stx-pair? _%e122515122536%_) + (let ((_%e122528122558%_ (gx#syntax-e - _%e123279123300%_))) - (let ((_%hd123293123325%_ - (##car _%e123292123322%_)) - (_%tl123294123327%_ - (##cdr _%e123292123322%_))) + _%e122515122536%_))) + (let ((_%hd122529122561%_ + (##car _%e122528122558%_)) + (_%tl122530122563%_ + (##cdr _%e122528122558%_))) (if (and (gx#identifier? - _%hd123293123325%_) + _%hd122529122561%_) (gx#core-identifier=? - _%hd123293123325%_ + _%hd122529122561%_ '%#export)) (if '#t - (_%lp123254%_ - _%rest123277%_ + (_%lp122490%_ + _%rest122513%_ (cons (gx#core-expand-export%__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd123278%_) - _%body123257%_)) - (_%E123291123318%_)) - (_%E123291123318%_)))) + _%hd122514%_) + _%body122493%_)) + (_%E122527122554%_)) + (_%E122527122554%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123291123318%_)))) - (_%E123280123362%_ + (_%E122527122554%_)))) + (_%E122516122598%_ (lambda () - (if (gx#stx-pair? _%e123279123300%_) - (let ((_%e123282123334%_ + (if (gx#stx-pair? _%e122515122536%_) + (let ((_%e122518122570%_ (gx#syntax-e - _%e123279123300%_))) - (let ((_%hd123283123337%_ - (##car _%e123282123334%_)) - (_%tl123284123339%_ - (##cdr _%e123282123334%_))) + _%e122515122536%_))) + (let ((_%hd122519122573%_ + (##car _%e122518122570%_)) + (_%tl122520122575%_ + (##cdr _%e122518122570%_))) (if (and (gx#identifier? - _%hd123283123337%_) + _%hd122519122573%_) (gx#core-identifier=? - _%hd123283123337%_ + _%hd122519122573%_ '%#define-values)) (if (gx#stx-pair? - _%tl123284123339%_) - (let ((_%e123285123342%_ + _%tl122520122575%_) + (let ((_%e122521122578%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl123284123339%_))) - (let ((_%hd123286123345%_ (##car _%e123285123342%_)) - (_%tl123287123347%_ (##cdr _%e123285123342%_))) - (let ((_%hd-bind123350%_ _%hd123286123345%_)) - (if (gx#stx-pair? _%tl123287123347%_) - (let ((_%e123288123352%_ - (gx#syntax-e _%tl123287123347%_))) - (let ((_%hd123289123355%_ - (##car _%e123288123352%_)) - (_%tl123290123357%_ - (##cdr _%e123288123352%_))) - (let ((_%expr123360%_ _%hd123289123355%_)) - (if (gx#stx-null? _%tl123290123357%_) + (gx#syntax-e _%tl122520122575%_))) + (let ((_%hd122522122581%_ (##car _%e122521122578%_)) + (_%tl122523122583%_ (##cdr _%e122521122578%_))) + (let ((_%hd-bind122586%_ _%hd122522122581%_)) + (if (gx#stx-pair? _%tl122523122583%_) + (let ((_%e122524122588%_ + (gx#syntax-e _%tl122523122583%_))) + (let ((_%hd122525122591%_ + (##car _%e122524122588%_)) + (_%tl122526122593%_ + (##cdr _%e122524122588%_))) + (let ((_%expr122596%_ _%hd122525122591%_)) + (if (gx#stx-null? _%tl122526122593%_) (if '#t - (_%lp123254%_ - _%rest123277%_ + (_%lp122490%_ + _%rest122513%_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _%hd-bind123350%_) + _%hd-bind122586%_) (gx#core-expand-expression - _%expr123360%_)) - (gx#stx-source _%hd123278%_)) - _%body123257%_)) - (_%E123281123330%_)) - (_%E123281123330%_))))) - (_%E123281123330%_))))) - (_%E123281123330%_)) - (_%E123281123330%_)))) + _%expr122596%_)) + (gx#stx-source _%hd122514%_)) + _%body122493%_)) + (_%E122517122566%_)) + (_%E122517122566%_))))) + (_%E122517122566%_))))) + (_%E122517122566%_)) + (_%E122517122566%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123281123330%_))))) - (_%E123280123362%_))))) - (if (##pair? _%rest123258123266%_) - (let ((_%hd123263123369%_ - (##car _%rest123258123266%_)) - (_%tl123264123371%_ - (##cdr _%rest123258123266%_))) - (let* ((_%hd123374%_ _%hd123263123369%_) - (_%rest123376%_ _%tl123264123371%_)) - (_%K123262123366%_ - _%rest123376%_ - _%hd123374%_))) - (_%else123260123274%_))))))) - (_%expand-body123250%_ + (_%E122517122566%_))))) + (_%E122516122598%_))))) + (if (##pair? _%rest122494122502%_) + (let ((_%hd122499122605%_ + (##car _%rest122494122502%_)) + (_%tl122500122607%_ + (##cdr _%rest122494122502%_))) + (let* ((_%hd122610%_ _%hd122499122605%_) + (_%rest122612%_ _%tl122500122607%_)) + (_%K122498122602%_ + _%rest122612%_ + _%hd122610%_))) + (_%else122496122510%_))))))) + (_%expand-body122486%_ (gx#core-expand-block__% - (cons '%#begin-module _%body123247%_) - _%expand-special123249%_ + (cons '%#begin-module _%body122483%_) + _%expand-special122485%_ '#f values))))) (define gx#core-expand-import/export - (lambda (_%stx123088%_ - _%expanded?123089%_ - _%method123090%_ - _%current-phi123091%_ - _%expand1123092%_) - (letrec ((_%K123094%_ - (lambda (_%rest123214%_ _%r123215%_) - (let* ((_%e123216123223%_ _%rest123214%_) - (_%E123218123227%_ (lambda () _%r123215%_)) - (_%E123217123243%_ + (lambda (_%stx122324%_ + _%expanded?122325%_ + _%method122326%_ + _%current-phi122327%_ + _%expand1122328%_) + (letrec ((_%K122330%_ + (lambda (_%rest122450%_ _%r122451%_) + (let* ((_%e122452122459%_ _%rest122450%_) + (_%E122454122463%_ (lambda () _%r122451%_)) + (_%E122453122479%_ (lambda () - (if (gx#stx-pair? _%e123216123223%_) - (let ((_%e123219123231%_ - (gx#syntax-e _%e123216123223%_))) - (let ((_%hd123220123234%_ - (##car _%e123219123231%_)) - (_%tl123221123236%_ - (##cdr _%e123219123231%_))) - (let* ((_%hd123239%_ _%hd123220123234%_) - (_%rest123241%_ - _%tl123221123236%_)) + (if (gx#stx-pair? _%e122452122459%_) + (let ((_%e122455122467%_ + (gx#syntax-e _%e122452122459%_))) + (let ((_%hd122456122470%_ + (##car _%e122455122467%_)) + (_%tl122457122472%_ + (##cdr _%e122455122467%_))) + (let* ((_%hd122475%_ _%hd122456122470%_) + (_%rest122477%_ + _%tl122457122472%_)) (if '#t - (_%step123095%_ - _%hd123239%_ - _%rest123241%_ - _%r123215%_) - (_%E123218123227%_))))) - (_%E123218123227%_))))) - (_%E123217123243%_)))) - (_%step123095%_ - (lambda (_%hd123128%_ _%rest123129%_ _%r123130%_) - (let* ((_%e123131123149%_ _%hd123128%_) - (_%E123144123153%_ + (_%step122331%_ + _%hd122475%_ + _%rest122477%_ + _%r122451%_) + (_%E122454122463%_))))) + (_%E122454122463%_))))) + (_%E122453122479%_)))) + (_%step122331%_ + (lambda (_%hd122364%_ _%rest122365%_ _%r122366%_) + (let* ((_%e122367122385%_ _%hd122364%_) + (_%E122380122389%_ (lambda () - (if (_%expanded?123089%_ (gx#stx-e _%hd123128%_)) - (_%K123094%_ - _%rest123129%_ - (cons (gx#stx-e _%hd123128%_) _%r123130%_)) - (_%expand1123092%_ - _%hd123128%_ - _%K123094%_ - _%rest123129%_ - _%r123130%_)))) - (_%E123140123169%_ + (if (_%expanded?122325%_ (gx#stx-e _%hd122364%_)) + (_%K122330%_ + _%rest122365%_ + (cons (gx#stx-e _%hd122364%_) _%r122366%_)) + (_%expand1122328%_ + _%hd122364%_ + _%K122330%_ + _%rest122365%_ + _%r122366%_)))) + (_%E122376122405%_ (lambda () - (if (gx#stx-pair? _%e123131123149%_) - (let ((_%e123145123157%_ - (gx#syntax-e _%e123131123149%_))) - (let ((_%hd123146123160%_ - (##car _%e123145123157%_)) - (_%tl123147123162%_ - (##cdr _%e123145123157%_))) - (let* ((_%macro123165%_ - _%hd123146123160%_) - (_%body123167%_ - _%tl123147123162%_)) + (if (gx#stx-pair? _%e122367122385%_) + (let ((_%e122381122393%_ + (gx#syntax-e _%e122367122385%_))) + (let ((_%hd122382122396%_ + (##car _%e122381122393%_)) + (_%tl122383122398%_ + (##cdr _%e122381122393%_))) + (let* ((_%macro122401%_ + _%hd122382122396%_) + (_%body122403%_ + _%tl122383122398%_)) (if (gx#core-bound-identifier?__% - _%macro123165%_ + _%macro122401%_ gx#syntax-binding?) - (_%K123094%_ + (_%K122330%_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _%macro123165%_) - _%hd123128%_ - _%method123090%_) - _%rest123129%_) - _%r123130%_) - (_%E123144123153%_))))) - (_%E123144123153%_)))) - (_%E123133123183%_ + _%macro122401%_) + _%hd122364%_ + _%method122326%_) + _%rest122365%_) + _%r122366%_) + (_%E122380122389%_))))) + (_%E122380122389%_)))) + (_%E122369122419%_ (lambda () - (if (gx#stx-pair? _%e123131123149%_) - (let ((_%e123141123173%_ - (gx#syntax-e _%e123131123149%_))) - (let ((_%hd123142123176%_ - (##car _%e123141123173%_)) - (_%tl123143123178%_ - (##cdr _%e123141123173%_))) - (if (eq? (gx#stx-e _%hd123142123176%_) + (if (gx#stx-pair? _%e122367122385%_) + (let ((_%e122377122409%_ + (gx#syntax-e _%e122367122385%_))) + (let ((_%hd122378122412%_ + (##car _%e122377122409%_)) + (_%tl122379122414%_ + (##cdr _%e122377122409%_))) + (if (eq? (gx#stx-e _%hd122378122412%_) 'begin:) - (let ((_%body123181%_ - _%tl123143123178%_)) + (let ((_%body122417%_ + _%tl122379122414%_)) (if '#t - (_%K123094%_ + (_%K122330%_ (gx#stx-foldr cons - _%rest123129%_ - _%body123181%_) - _%r123130%_) - (_%E123140123169%_))) - (_%E123140123169%_)))) - (_%E123140123169%_)))) - (_%E123132123210%_ + _%rest122365%_ + _%body122417%_) + _%r122366%_) + (_%E122376122405%_))) + (_%E122376122405%_)))) + (_%E122376122405%_)))) + (_%E122368122446%_ (lambda () - (if (gx#stx-pair? _%e123131123149%_) - (let ((_%e123134123187%_ - (gx#syntax-e _%e123131123149%_))) - (let ((_%hd123135123190%_ - (##car _%e123134123187%_)) - (_%tl123136123192%_ - (##cdr _%e123134123187%_))) - (if (eq? (gx#stx-e _%hd123135123190%_) + (if (gx#stx-pair? _%e122367122385%_) + (let ((_%e122370122423%_ + (gx#syntax-e _%e122367122385%_))) + (let ((_%hd122371122426%_ + (##car _%e122370122423%_)) + (_%tl122372122428%_ + (##cdr _%e122370122423%_))) + (if (eq? (gx#stx-e _%hd122371122426%_) 'phi:) - (if (gx#stx-pair? _%tl123136123192%_) - (let ((_%e123137123195%_ + (if (gx#stx-pair? _%tl122372122428%_) + (let ((_%e122373122431%_ (gx#syntax-e - _%tl123136123192%_))) - (let ((_%hd123138123198%_ - (##car _%e123137123195%_)) - (_%tl123139123200%_ - (##cdr _%e123137123195%_))) - (let* ((_%dphi123203%_ - _%hd123138123198%_) - (_%body123205%_ - _%tl123139123200%_)) + _%tl122372122428%_))) + (let ((_%hd122374122434%_ + (##car _%e122373122431%_)) + (_%tl122375122436%_ + (##cdr _%e122373122431%_))) + (let* ((_%dphi122439%_ + _%hd122374122434%_) + (_%body122441%_ + _%tl122375122436%_)) (if (gx#stx-fixnum? - _%dphi123203%_) - (let ((_%rbody123208%_ + _%dphi122439%_) + (let ((_%rbody122444%_ (__call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%K123094%_ _%body123205%_ '())) - _%current-phi123091%_ - (fx+ (gx#stx-e _%dphi123203%_) - (_%current-phi123091%_))))) - (_%K123094%_ - _%rest123129%_ - (__foldr1 cons _%r123130%_ _%rbody123208%_))) - (_%E123133123183%_))))) + (_%K122330%_ _%body122441%_ '())) + _%current-phi122327%_ + (fx+ (gx#stx-e _%dphi122439%_) + (_%current-phi122327%_))))) + (_%K122330%_ + _%rest122365%_ + (__foldr1 cons _%r122366%_ _%rbody122444%_))) + (_%E122369122419%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123133123183%_)) - (_%E123133123183%_)))) - (_%E123133123183%_))))) - (_%E123132123210%_))))) - (let* ((_%e123096123103%_ _%stx123088%_) - (_%E123098123107%_ + (_%E122369122419%_)) + (_%E122369122419%_)))) + (_%E122369122419%_))))) + (_%E122368122446%_))))) + (let* ((_%e122332122339%_ _%stx122324%_) + (_%E122334122343%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123096123103%_))) - (_%E123097123124%_ + _%e122332122339%_))) + (_%E122333122360%_ (lambda () - (if (gx#stx-pair? _%e123096123103%_) - (let ((_%e123099123111%_ - (gx#syntax-e _%e123096123103%_))) - (let ((_%hd123100123114%_ (##car _%e123099123111%_)) - (_%tl123101123116%_ (##cdr _%e123099123111%_))) - (let ((_%body123119%_ _%tl123101123116%_)) + (if (gx#stx-pair? _%e122332122339%_) + (let ((_%e122335122347%_ + (gx#syntax-e _%e122332122339%_))) + (let ((_%hd122336122350%_ (##car _%e122335122347%_)) + (_%tl122337122352%_ (##cdr _%e122335122347%_))) + (let ((_%body122355%_ _%tl122337122352%_)) (if '#t - (if (_%current-phi123091%_) - (let () (_%K123094%_ _%body123119%_ '())) - (let () - (__call-with-parameters - (lambda () - (_%K123094%_ _%body123119%_ '())) - _%current-phi123091%_ - (gx#current-expander-phi)))) - (_%E123098123107%_))))) - (_%E123098123107%_))))) - (_%E123097123124%_))))) + (if (_%current-phi122327%_) + (_%K122330%_ _%body122355%_ '()) + (__call-with-parameters + (lambda () + (_%K122330%_ _%body122355%_ '())) + _%current-phi122327%_ + (gx#current-expander-phi))) + (_%E122334122343%_))))) + (_%E122334122343%_))))) + (_%E122333122360%_))))) (define gx#core-expand-import%__% - (lambda (_%stx122742%_ _%internal-expand?122743%_) - (letrec ((_%expand1122745%_ - (lambda (_%hd123060%_ _%K123061%_ _%rest123062%_ _%r123063%_) - (if (gx#core-bound-module? _%hd123060%_) - (let () - (_%import1122746%_ - (gx#syntax-local-e__0 _%hd123060%_) - _%K123061%_ - _%rest123062%_ - _%r123063%_)) - (if (gx#core-library-module-path? _%hd123060%_) - (let () - (_%import1122746%_ - (gx#import-module__0 - (gx#core-resolve-library-module-path - _%hd123060%_)) - _%K123061%_ - _%rest123062%_ - _%r123063%_)) + (lambda (_%stx121978%_ _%internal-expand?121979%_) + (letrec ((_%expand1121981%_ + (lambda (_%hd122296%_ _%K122297%_ _%rest122298%_ _%r122299%_) + (if (gx#core-bound-module? _%hd122296%_) + (_%import1121982%_ + (gx#syntax-local-e__0 _%hd122296%_) + _%K122297%_ + _%rest122298%_ + _%r122299%_) + (if (gx#core-library-module-path? _%hd122296%_) + (_%import1121982%_ + (gx#import-module__0 + (gx#core-resolve-library-module-path + _%hd122296%_)) + _%K122297%_ + _%rest122298%_ + _%r122299%_) (if (gx#core-library-relative-module-path? - _%hd123060%_) - (let () - (_%import1122746%_ - (gx#import-module__0 - (gx#core-resolve-library-relative-module-path - _%hd123060%_)) - _%K123061%_ - _%rest123062%_ - _%r123063%_)) - (let ((_%e123069%_ (gx#stx-e _%hd123060%_))) - (if (pair? _%e123069%_) - (let ((_%$e123072%_ - (gx#stx-e (car _%e123069%_)))) - (if (eq? 'spec: _%$e123072%_) - (_%import-spec122749%_ - _%hd123060%_ - _%K123061%_ - _%rest123062%_ - _%r123063%_) - (if (eq? 'in: _%$e123072%_) - (_%import-submodule122747%_ - _%hd123060%_ - _%K123061%_ - _%rest123062%_ - _%r123063%_) + _%hd122296%_) + (_%import1121982%_ + (gx#import-module__0 + (gx#core-resolve-library-relative-module-path + _%hd122296%_)) + _%K122297%_ + _%rest122298%_ + _%r122299%_) + (let ((_%e122305%_ (gx#stx-e _%hd122296%_))) + (if (pair? _%e122305%_) + (let ((_%$e122308%_ + (gx#stx-e (car _%e122305%_)))) + (if (eq? 'spec: _%$e122308%_) + (_%import-spec121985%_ + _%hd122296%_ + _%K122297%_ + _%rest122298%_ + _%r122299%_) + (if (eq? 'in: _%$e122308%_) + (_%import-submodule121983%_ + _%hd122296%_ + _%K122297%_ + _%rest122298%_ + _%r122299%_) (if (eq? 'runtime: - _%$e123072%_) - (_%import-runtime122748%_ - _%hd123060%_ - _%K123061%_ - _%rest123062%_ - _%r123063%_) + _%$e122308%_) + (_%import-runtime121984%_ + _%hd122296%_ + _%K122297%_ + _%rest122298%_ + _%r122299%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx122742%_ - _%hd123060%_))))) - (if (string? _%e123069%_) - (let () - (_%import1122746%_ - (gx#import-module__0 - (gx#core-resolve-module-path__% - _%hd123060%_ - (gx#stx-source _%stx122742%_))) - _%K123061%_ - _%rest123062%_ - _%r123063%_)) + _%stx121978%_ + _%hd122296%_))))) + (if (string? _%e122305%_) + (_%import1121982%_ + (gx#import-module__0 + (gx#core-resolve-module-path__% + _%hd122296%_ + (gx#stx-source _%stx121978%_))) + _%K122297%_ + _%rest122298%_ + _%r122299%_) (if (##structure-instance-of? - _%e123069%_ + _%e122305%_ 'gx#module-context::t) - (let () - (_%K123061%_ - _%rest123062%_ - (cons _%e123069%_ - _%r123063%_))) - (let () - (gx#raise-syntax-error - '#f - '"Bad syntax; illegal import" - _%stx122742%_ - _%hd123060%_))))))))))) - (_%import1122746%_ - (lambda (_%ctx123049%_ - _%K123050%_ - _%rest123051%_ - _%r123052%_) - (let ((_%dphi123054%_ + (_%K122297%_ + _%rest122298%_ + (cons _%e122305%_ _%r122299%_)) + (gx#raise-syntax-error + '#f + '"Bad syntax; illegal import" + _%stx121978%_ + _%hd122296%_)))))))))) + (_%import1121982%_ + (lambda (_%ctx122285%_ + _%K122286%_ + _%rest122287%_ + _%r122288%_) + (let ((_%dphi122290%_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_%K123050%_ - _%rest123051%_ + (_%K122286%_ + _%rest122287%_ (cons (##structure gx#import-set::t - _%ctx123049%_ - _%dphi123054%_ - (map (lambda (_%g123055123057%_) + _%ctx122285%_ + _%dphi122290%_ + (map (lambda (_%g122291122293%_) (gx#core-module-export->import__% - _%g123055123057%_ + _%g122291122293%_ '#f - _%dphi123054%_)) + _%dphi122290%_)) (##unchecked-structure-ref - _%ctx123049%_ + _%ctx122285%_ '9 '#f '#f))) - _%r123052%_))))) - (_%import-submodule122747%_ - (lambda (_%hd123016%_ _%K123017%_ _%rest123018%_ _%r123019%_) - (let* ((_%e123020123027%_ _%hd123016%_) - (_%E123022123031%_ + _%r122288%_))))) + (_%import-submodule121983%_ + (lambda (_%hd122252%_ _%K122253%_ _%rest122254%_ _%r122255%_) + (let* ((_%e122256122263%_ _%hd122252%_) + (_%E122258122267%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123020123027%_))) - (_%E123021123045%_ + _%e122256122263%_))) + (_%E122257122281%_ (lambda () - (if (gx#stx-pair? _%e123020123027%_) - (let ((_%e123023123035%_ - (gx#syntax-e _%e123020123027%_))) - (let ((_%hd123024123038%_ - (##car _%e123023123035%_)) - (_%tl123025123040%_ - (##cdr _%e123023123035%_))) - (let ((_%spath123043%_ - _%tl123025123040%_)) + (if (gx#stx-pair? _%e122256122263%_) + (let ((_%e122259122271%_ + (gx#syntax-e _%e122256122263%_))) + (let ((_%hd122260122274%_ + (##car _%e122259122271%_)) + (_%tl122261122276%_ + (##cdr _%e122259122271%_))) + (let ((_%spath122279%_ + _%tl122261122276%_)) (if '#t - (_%import1122746%_ - (_%import-spec-source122750%_ - _%spath123043%_) - _%K123017%_ - _%rest123018%_ - _%r123019%_) - (_%E123022123031%_))))) - (_%E123022123031%_))))) - (_%E123021123045%_)))) - (_%import-runtime122748%_ - (lambda (_%hd122983%_ _%K122984%_ _%rest122985%_ _%r122986%_) - (let* ((_%e122987122994%_ _%hd122983%_) - (_%E122989122998%_ + (_%import1121982%_ + (_%import-spec-source121986%_ + _%spath122279%_) + _%K122253%_ + _%rest122254%_ + _%r122255%_) + (_%E122258122267%_))))) + (_%E122258122267%_))))) + (_%E122257122281%_)))) + (_%import-runtime121984%_ + (lambda (_%hd122219%_ _%K122220%_ _%rest122221%_ _%r122222%_) + (let* ((_%e122223122230%_ _%hd122219%_) + (_%E122225122234%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122987122994%_))) - (_%E122988123012%_ + _%e122223122230%_))) + (_%E122224122248%_ (lambda () - (if (gx#stx-pair? _%e122987122994%_) - (let ((_%e122990123002%_ - (gx#syntax-e _%e122987122994%_))) - (let ((_%hd122991123005%_ - (##car _%e122990123002%_)) - (_%tl122992123007%_ - (##cdr _%e122990123002%_))) - (let ((_%spath123010%_ - _%tl122992123007%_)) + (if (gx#stx-pair? _%e122223122230%_) + (let ((_%e122226122238%_ + (gx#syntax-e _%e122223122230%_))) + (let ((_%hd122227122241%_ + (##car _%e122226122238%_)) + (_%tl122228122243%_ + (##cdr _%e122226122238%_))) + (let ((_%spath122246%_ + _%tl122228122243%_)) (if '#t - (_%K122984%_ - _%rest122985%_ - (cons (_%import-spec-source122750%_ - _%spath123010%_) - _%r122986%_)) - (_%E122989122998%_))))) - (_%E122989122998%_))))) - (_%E122988123012%_)))) - (_%import-spec122749%_ - (lambda (_%hd122821%_ _%K122822%_ _%rest122823%_ _%r122824%_) - (let* ((_%e122825122842%_ _%hd122821%_) - (_%E122834122846%_ + (_%K122220%_ + _%rest122221%_ + (cons (_%import-spec-source121986%_ + _%spath122246%_) + _%r122222%_)) + (_%E122225122234%_))))) + (_%E122225122234%_))))) + (_%E122224122248%_)))) + (_%import-spec121985%_ + (lambda (_%hd122057%_ _%K122058%_ _%rest122059%_ _%r122060%_) + (let* ((_%e122061122078%_ _%hd122057%_) + (_%E122070122082%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122825122842%_))) - (_%E122827122957%_ + _%e122061122078%_))) + (_%E122063122193%_ (lambda () - (if (gx#stx-pair? _%e122825122842%_) - (let ((_%e122835122850%_ - (gx#syntax-e _%e122825122842%_))) - (let ((_%hd122836122853%_ - (##car _%e122835122850%_)) - (_%tl122837122855%_ - (##cdr _%e122835122850%_))) - (if (gx#stx-pair? _%tl122837122855%_) - (let ((_%e122838122858%_ + (if (gx#stx-pair? _%e122061122078%_) + (let ((_%e122071122086%_ + (gx#syntax-e _%e122061122078%_))) + (let ((_%hd122072122089%_ + (##car _%e122071122086%_)) + (_%tl122073122091%_ + (##cdr _%e122071122086%_))) + (if (gx#stx-pair? _%tl122073122091%_) + (let ((_%e122074122094%_ (gx#syntax-e - _%tl122837122855%_))) - (let ((_%hd122839122861%_ - (##car _%e122838122858%_)) - (_%tl122840122863%_ - (##cdr _%e122838122858%_))) - (let* ((_%path122866%_ - _%hd122839122861%_) - (_%specs122868%_ - _%tl122840122863%_)) + _%tl122073122091%_))) + (let ((_%hd122075122097%_ + (##car _%e122074122094%_)) + (_%tl122076122099%_ + (##cdr _%e122074122094%_))) + (let* ((_%path122102%_ + _%hd122075122097%_) + (_%specs122104%_ + _%tl122076122099%_)) (if '#t - (let ((_%src-ctx122870%_ - (_%import-spec-source122750%_ - _%path122866%_)) - (_%exports122871%_ + (let ((_%src-ctx122106%_ + (_%import-spec-source121986%_ + _%path122102%_)) + (_%exports122107%_ (make-hash-table__% '#f absent-value @@ -3065,211 +2905,210 @@ absent-value absent-value absent-value)) - (_%specs122872%_ + (_%specs122108%_ (gx#syntax->list - _%specs122868%_))) + _%specs122104%_))) (for-each - (lambda (_%out122874%_) + (lambda (_%out122110%_) (hash-put! - _%exports122871%_ + _%exports122107%_ (cons (##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out122874%_ + _%out122110%_ '3 '#f '#f) - (##unchecked-structure-ref _%out122874%_ '4 '#f '#f)) - _%out122874%_)) - (##unchecked-structure-ref _%src-ctx122870%_ '9 '#f '#f)) - (_%K122822%_ - _%rest122823%_ + (##unchecked-structure-ref _%out122110%_ '4 '#f '#f)) + _%out122110%_)) + (##unchecked-structure-ref _%src-ctx122106%_ '9 '#f '#f)) + (_%K122058%_ + _%rest122059%_ (__foldl1 - (lambda (_%spec122876%_ _%r122877%_) - (let* ((_%e122878122894%_ _%spec122876%_) - (_%E122880122898%_ + (lambda (_%spec122112%_ _%r122113%_) + (let* ((_%e122114122130%_ _%spec122112%_) + (_%E122116122134%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122878122894%_))) - (_%E122879122953%_ + _%e122114122130%_))) + (_%E122115122189%_ (lambda () - (if (gx#stx-pair? _%e122878122894%_) - (let ((_%e122881122902%_ - (gx#syntax-e _%e122878122894%_))) - (let ((_%hd122882122905%_ - (##car _%e122881122902%_)) - (_%tl122883122907%_ - (##cdr _%e122881122902%_))) - (let ((_%phi122910%_ _%hd122882122905%_)) - (if (gx#stx-pair? _%tl122883122907%_) - (let ((_%e122884122912%_ + (if (gx#stx-pair? _%e122114122130%_) + (let ((_%e122117122138%_ + (gx#syntax-e _%e122114122130%_))) + (let ((_%hd122118122141%_ + (##car _%e122117122138%_)) + (_%tl122119122143%_ + (##cdr _%e122117122138%_))) + (let ((_%phi122146%_ _%hd122118122141%_)) + (if (gx#stx-pair? _%tl122119122143%_) + (let ((_%e122120122148%_ (gx#syntax-e - _%tl122883122907%_))) - (let ((_%hd122885122915%_ - (##car _%e122884122912%_)) - (_%tl122886122917%_ - (##cdr _%e122884122912%_))) - (let ((_%name122920%_ - _%hd122885122915%_)) + _%tl122119122143%_))) + (let ((_%hd122121122151%_ + (##car _%e122120122148%_)) + (_%tl122122122153%_ + (##cdr _%e122120122148%_))) + (let ((_%name122156%_ + _%hd122121122151%_)) (if (gx#stx-pair? - _%tl122886122917%_) - (let ((_%e122887122922%_ + _%tl122122122153%_) + (let ((_%e122123122158%_ (gx#syntax-e - _%tl122886122917%_))) - (let ((_%hd122888122925%_ - (##car _%e122887122922%_)) - (_%tl122889122927%_ - (##cdr _%e122887122922%_))) - (let ((_%src-phi122930%_ - _%hd122888122925%_)) + _%tl122122122153%_))) + (let ((_%hd122124122161%_ + (##car _%e122123122158%_)) + (_%tl122125122163%_ + (##cdr _%e122123122158%_))) + (let ((_%src-phi122166%_ + _%hd122124122161%_)) (if (gx#stx-pair? - _%tl122889122927%_) - (let ((_%e122890122932%_ + _%tl122125122163%_) + (let ((_%e122126122168%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl122889122927%_))) - (let ((_%hd122891122935%_ (##car _%e122890122932%_)) - (_%tl122892122937%_ (##cdr _%e122890122932%_))) - (let ((_%src-name122940%_ _%hd122891122935%_)) - (if (gx#stx-null? _%tl122892122937%_) - (if (and (gx#stx-fixnum? _%src-phi122930%_) - (gx#identifier? _%src-name122940%_) - (gx#stx-fixnum? _%phi122910%_) - (gx#identifier? _%name122920%_)) - (let ((_%src-phi122942%_ - (gx#stx-e _%src-phi122930%_)) - (_%src-name122943%_ + (gx#syntax-e _%tl122125122163%_))) + (let ((_%hd122127122171%_ (##car _%e122126122168%_)) + (_%tl122128122173%_ (##cdr _%e122126122168%_))) + (let ((_%src-name122176%_ _%hd122127122171%_)) + (if (gx#stx-null? _%tl122128122173%_) + (if (and (gx#stx-fixnum? _%src-phi122166%_) + (gx#identifier? _%src-name122176%_) + (gx#stx-fixnum? _%phi122146%_) + (gx#identifier? _%name122156%_)) + (let ((_%src-phi122178%_ + (gx#stx-e _%src-phi122166%_)) + (_%src-name122179%_ (gx#core-identifier-key - _%src-name122940%_)) - (_%phi122944%_ - (gx#stx-e _%phi122910%_)) - (_%name122945%_ + _%src-name122176%_)) + (_%phi122180%_ + (gx#stx-e _%phi122146%_)) + (_%name122181%_ (gx#core-identifier-key - _%name122920%_))) - (let ((_%$e122947%_ + _%name122156%_))) + (let ((_%$e122183%_ (hash-get - _%exports122871%_ - (cons _%src-phi122942%_ - _%src-name122943%_)))) - (if _%$e122947%_ - ((lambda (_%out122950%_) + _%exports122107%_ + (cons _%src-phi122178%_ + _%src-name122179%_)))) + (if _%$e122183%_ + ((lambda (_%out122186%_) (cons (gx#core-module-export->import__% - _%out122950%_ - _%name122945%_ - (fx- _%phi122944%_ - _%src-phi122942%_)) - _%r122877%_)) - _%$e122947%_) - (let () - (gx#raise-syntax-error - '#f - '"Bad syntax; no matching export" - _%stx122742%_ - _%hd122821%_))))) - (_%E122880122898%_)) - (_%E122880122898%_))))) - (_%E122880122898%_))))) + _%out122186%_ + _%name122181%_ + (fx- _%phi122180%_ + _%src-phi122178%_)) + _%r122113%_)) + _%$e122183%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; no matching export" + _%stx121978%_ + _%hd122057%_)))) + (_%E122116122134%_)) + (_%E122116122134%_))))) + (_%E122116122134%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122880122898%_))))) - (_%E122880122898%_))))) - (_%E122880122898%_))))) - (_%E122879122953%_))) - _%r122824%_ - _%specs122872%_))) + (_%E122116122134%_))))) + (_%E122116122134%_))))) + (_%E122116122134%_))))) + (_%E122115122189%_))) + _%r122060%_ + _%specs122108%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122834122846%_))))) - (_%E122834122846%_)))) - (_%E122834122846%_)))) - (_%E122826122979%_ + (_%E122070122082%_))))) + (_%E122070122082%_)))) + (_%E122070122082%_)))) + (_%E122062122215%_ (lambda () - (if (gx#stx-pair? _%e122825122842%_) - (let ((_%e122828122961%_ - (gx#syntax-e _%e122825122842%_))) - (let ((_%hd122829122964%_ - (##car _%e122828122961%_)) - (_%tl122830122966%_ - (##cdr _%e122828122961%_))) - (if (gx#stx-pair? _%tl122830122966%_) - (let ((_%e122831122969%_ + (if (gx#stx-pair? _%e122061122078%_) + (let ((_%e122064122197%_ + (gx#syntax-e _%e122061122078%_))) + (let ((_%hd122065122200%_ + (##car _%e122064122197%_)) + (_%tl122066122202%_ + (##cdr _%e122064122197%_))) + (if (gx#stx-pair? _%tl122066122202%_) + (let ((_%e122067122205%_ (gx#syntax-e - _%tl122830122966%_))) - (let ((_%hd122832122972%_ - (##car _%e122831122969%_)) - (_%tl122833122974%_ - (##cdr _%e122831122969%_))) - (let ((_%path122977%_ - _%hd122832122972%_)) + _%tl122066122202%_))) + (let ((_%hd122068122208%_ + (##car _%e122067122205%_)) + (_%tl122069122210%_ + (##cdr _%e122067122205%_))) + (let ((_%path122213%_ + _%hd122068122208%_)) (if (gx#stx-null? - _%tl122833122974%_) + _%tl122069122210%_) (if '#t - (_%K122822%_ - _%rest122823%_ - (cons (_%import-spec-source122750%_ - _%path122977%_) - _%r122824%_)) - (_%E122827122957%_)) - (_%E122827122957%_))))) - (_%E122827122957%_)))) - (_%E122827122957%_))))) - (_%E122826122979%_)))) - (_%import-spec-source122750%_ - (lambda (_%spath122819%_) + (_%K122058%_ + _%rest122059%_ + (cons (_%import-spec-source121986%_ + _%path122213%_) + _%r122060%_)) + (_%E122063122193%_)) + (_%E122063122193%_))))) + (_%E122063122193%_)))) + (_%E122063122193%_))))) + (_%E122062122215%_)))) + (_%import-spec-source121986%_ + (lambda (_%spath122055%_) (gx#core-import-nested-module - _%spath122819%_ - _%stx122742%_))) - (_%import!122751%_ - (lambda (_%rbody122764%_) - (letrec* ((_%current-ctx122766%_ + _%spath122055%_ + _%stx121978%_))) + (_%import!121987%_ + (lambda (_%rbody122000%_) + (letrec* ((_%current-ctx122002%_ (gx#current-expander-context)) - (_%deps122767%_ (make-hash-table-eq)) - (_%bind!122768%_ - (lambda (_%hd122817%_) + (_%deps122003%_ (make-hash-table-eq)) + (_%bind!122004%_ + (lambda (_%hd122053%_) (gx#core-bind-import!__1 - _%hd122817%_ - _%current-ctx122766%_)))) - (let _%lp122770%_ ((_%rest122772%_ _%rbody122764%_) - (_%body122773%_ '())) - (let* ((_%rest122774122782%_ _%rest122772%_) - (_%else122776122793%_ + _%hd122053%_ + _%current-ctx122002%_)))) + (let _%lp122006%_ ((_%rest122008%_ _%rbody122000%_) + (_%body122009%_ '())) + (let* ((_%rest122010122018%_ _%rest122008%_) + (_%else122012122029%_ (lambda () (if (##structure-instance-of? - _%current-ctx122766%_ + _%current-ctx122002%_ 'gx#module-context::t) (##unchecked-structure-set! - _%current-ctx122766%_ + _%current-ctx122002%_ (__foldl1 cons (##unchecked-structure-ref - _%current-ctx122766%_ + _%current-ctx122002%_ '8 '#f '#f) - _%body122773%_) + _%body122009%_) '8 '#f '#f) '#!void) (hash-for-each - (lambda (_%ctx122790%_ _%_122791%_) - (gx#eval-module _%ctx122790%_)) - _%deps122767%_) - _%body122773%_)) - (_%K122778122805%_ - (lambda (_%rest122796%_ _%hd122797%_) + (lambda (_%ctx122026%_ _%_122027%_) + (gx#eval-module _%ctx122026%_)) + _%deps122003%_) + _%body122009%_)) + (_%K122014122041%_ + (lambda (_%rest122032%_ _%hd122033%_) (if (##structure-direct-instance-of? - _%hd122797%_ + _%hd122033%_ 'gx#module-import::t) (let () - (_%bind!122768%_ _%hd122797%_) + (_%bind!122004%_ _%hd122033%_) (if (and (fxpositive? (##unchecked-structure-ref - _%hd122797%_ + _%hd122033%_ '3 '#f '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _%hd122797%_ + _%hd122033%_ '1 '#f '#f) @@ -3277,10 +3116,10 @@ '#f '#f))) (hash-put! - _%deps122767%_ + _%deps122003%_ (##unchecked-structure-ref (##unchecked-structure-ref - _%hd122797%_ + _%hd122033%_ '1 '#f '#f) @@ -3290,168 +3129,161 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _%hd122797%_ + _%hd122033%_ 'gx#import-set::t) (let () (for-each - _%bind!122768%_ + _%bind!122004%_ (##unchecked-structure-ref - _%hd122797%_ + _%hd122033%_ '3 '#f '#f)) (if (fxpositive? (##unchecked-structure-ref - _%hd122797%_ + _%hd122033%_ '2 '#f '#f)) (hash-put! - _%deps122767%_ + _%deps122003%_ (##unchecked-structure-ref - _%hd122797%_ + _%hd122033%_ '1 '#f '#f) '#t) '#!void)) - (let ((_%$e122801%_ + (let ((_%$e122037%_ (##structure-instance-of? - _%hd122797%_ + _%hd122033%_ 'gx#module-context::t))) - (if _%$e122801%_ - _%$e122801%_ - (let () - (gx#raise-syntax-error - '#f - '"Unexpected import" - _%stx122742%_ - _%hd122797%_)))))) - (_%lp122770%_ - _%rest122796%_ - (cons _%hd122797%_ _%body122773%_))))) - (if (##pair? _%rest122774122782%_) - (let ((_%hd122779122808%_ - (##car _%rest122774122782%_)) - (_%tl122780122810%_ - (##cdr _%rest122774122782%_))) - (let* ((_%hd122813%_ _%hd122779122808%_) - (_%rest122815%_ _%tl122780122810%_)) - (_%K122778122805%_ - _%rest122815%_ - _%hd122813%_))) - (_%else122776122793%_))))))) - (_%expanded-import?122752%_ - (lambda (_%e122756%_) - (let ((_%$e122758%_ + (if _%$e122037%_ + _%$e122037%_ + (gx#raise-syntax-error + '#f + '"Unexpected import" + _%stx121978%_ + _%hd122033%_))))) + (_%lp122006%_ + _%rest122032%_ + (cons _%hd122033%_ _%body122009%_))))) + (if (##pair? _%rest122010122018%_) + (let ((_%hd122015122044%_ + (##car _%rest122010122018%_)) + (_%tl122016122046%_ + (##cdr _%rest122010122018%_))) + (let* ((_%hd122049%_ _%hd122015122044%_) + (_%rest122051%_ _%tl122016122046%_)) + (_%K122014122041%_ + _%rest122051%_ + _%hd122049%_))) + (_%else122012122029%_))))))) + (_%expanded-import?121988%_ + (lambda (_%e121992%_) + (let ((_%$e121994%_ (##structure-direct-instance-of? - _%e122756%_ + _%e121992%_ 'gx#import-set::t))) - (if _%$e122758%_ - _%$e122758%_ - (let ((_%$e122761%_ + (if _%$e121994%_ + _%$e121994%_ + (let ((_%$e121997%_ (##structure-direct-instance-of? - _%e122756%_ + _%e121992%_ 'gx#module-import::t))) - (if _%$e122761%_ - _%$e122761%_ + (if _%$e121997%_ + _%$e121997%_ (##structure-instance-of? - _%e122756%_ + _%e121992%_ 'gx#module-context::t)))))))) - (let ((_%rbody122754%_ + (let ((_%rbody121990%_ (gx#core-expand-import/export - _%stx122742%_ - _%expanded-import?122752%_ + _%stx121978%_ + _%expanded-import?121988%_ 'apply-import-expander gx#current-import-expander-phi - _%expand1122745%_))) - (if _%internal-expand?122743%_ - (reverse _%rbody122754%_) + _%expand1121981%_))) + (if _%internal-expand?121979%_ + (reverse _%rbody121990%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_%import!122751%_ _%rbody122754%_)) - (gx#stx-source _%stx122742%_))))))) + (gx#core-cons '%#import (_%import!121987%_ _%rbody121990%_)) + (gx#stx-source _%stx121978%_))))))) (define gx#core-expand-import%__0 - (lambda (_%stx123081%_) - (let ((_%internal-expand?123083%_ '#f)) + (lambda (_%stx122317%_) + (let ((_%internal-expand?122319%_ '#f)) (gx#core-expand-import%__% - _%stx123081%_ - _%internal-expand?123083%_)))) + _%stx122317%_ + _%internal-expand?122319%_)))) (define gx#core-expand-import% - (lambda _g125730_ - (let ((_g125729_ (##length _g125730_))) - (cond ((##fx= _g125729_ 1) - (apply (lambda (_%stx123081%_) - (gx#core-expand-import%__0 _%stx123081%_)) - _g125730_)) - ((##fx= _g125729_ 2) - (apply (lambda (_%stx123085%_ _%internal-expand?123086%_) - (gx#core-expand-import%__% - _%stx123085%_ - _%internal-expand?123086%_)) - _g125730_)) + (lambda _g124966_ + (let ((_g124965_ (##length _g124966_))) + (cond ((##fx= _g124965_ 1) + (apply gx#core-expand-import%__0 _g124966_)) + ((##fx= _g124965_ 2) + (apply gx#core-expand-import%__% _g124966_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g125730_)))))) + _g124966_)))))) (define gx#core-import-nested-module - (lambda (_%spath122669%_ _%where122670%_) - (let* ((_%e122671122678%_ _%spath122669%_) - (_%E122673122682%_ + (lambda (_%spath121905%_ _%where121906%_) + (let* ((_%e121907121914%_ _%spath121905%_) + (_%E121909121918%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122671122678%_))) - (_%E122672122737%_ + _%e121907121914%_))) + (_%E121908121973%_ (lambda () - (if (gx#stx-pair? _%e122671122678%_) - (let ((_%e122674122686%_ - (gx#syntax-e _%e122671122678%_))) - (let ((_%hd122675122689%_ (##car _%e122674122686%_)) - (_%tl122676122691%_ (##cdr _%e122674122686%_))) - (let* ((_%origin122694%_ _%hd122675122689%_) - (_%sub122696%_ _%tl122676122691%_)) + (if (gx#stx-pair? _%e121907121914%_) + (let ((_%e121910121922%_ + (gx#syntax-e _%e121907121914%_))) + (let ((_%hd121911121925%_ (##car _%e121910121922%_)) + (_%tl121912121927%_ (##cdr _%e121910121922%_))) + (let* ((_%origin121930%_ _%hd121911121925%_) + (_%sub121932%_ _%tl121912121927%_)) (if '#t - (let ((_%origin-ctx122698%_ - (if (gx#stx-false? _%origin122694%_) + (let ((_%origin-ctx121934%_ + (if (gx#stx-false? _%origin121930%_) (gx#current-expander-context) (gx#import-module__0 - _%origin122694%_)))) - (let _%lp122700%_ ((_%rest122702%_ - _%sub122696%_) - (_%ctx122703%_ - _%origin-ctx122698%_)) - (let* ((_%e122704122711%_ _%rest122702%_) - (_%E122706122715%_ - (lambda () _%ctx122703%_)) - (_%E122705122733%_ + _%origin121930%_)))) + (let _%lp121936%_ ((_%rest121938%_ + _%sub121932%_) + (_%ctx121939%_ + _%origin-ctx121934%_)) + (let* ((_%e121940121947%_ _%rest121938%_) + (_%E121942121951%_ + (lambda () _%ctx121939%_)) + (_%E121941121969%_ (lambda () (if (gx#stx-pair? - _%e122704122711%_) - (let ((_%e122707122719%_ + _%e121940121947%_) + (let ((_%e121943121955%_ (gx#syntax-e - _%e122704122711%_))) - (let ((_%hd122708122722%_ - (##car _%e122707122719%_)) - (_%tl122709122724%_ - (##cdr _%e122707122719%_))) - (let* ((_%id122727%_ - _%hd122708122722%_) - (_%rest122729%_ - _%tl122709122724%_)) + _%e121940121947%_))) + (let ((_%hd121944121958%_ + (##car _%e121943121955%_)) + (_%tl121945121960%_ + (##cdr _%e121943121955%_))) + (let* ((_%id121963%_ + _%hd121944121958%_) + (_%rest121965%_ + _%tl121945121960%_)) (if '#t - (let ((_%bind122731%_ + (let ((_%bind121967%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#resolve-identifier__% - _%id122727%_ + _%id121963%_ '0 - _%ctx122703%_))) + _%ctx121939%_))) (if (and (##structure-direct-instance-of? - _%bind122731%_ + _%bind121967%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind122731%_ + _%bind121967%_ '4 '#f '#f) @@ -3460,874 +3292,817 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _%where122670%_ - _%spath122669%_ - _%id122727%_)) - (_%lp122700%_ - _%rest122729%_ - (##unchecked-structure-ref _%bind122731%_ '4 '#f '#f))) - (_%E122706122715%_))))) + _%where121906%_ + _%spath121905%_ + _%id121963%_)) + (_%lp121936%_ + _%rest121965%_ + (##unchecked-structure-ref _%bind121967%_ '4 '#f '#f))) + (_%E121942121951%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122706122715%_))))) - (_%E122705122733%_)))) - (_%E122673122682%_))))) - (_%E122673122682%_))))) - (_%E122672122737%_)))) + (_%E121942121951%_))))) + (_%E121941121969%_)))) + (_%E121909121918%_))))) + (_%E121909121918%_))))) + (_%E121908121973%_)))) (define gx#core-expand-import-source - (lambda (_%hd122667%_) + (lambda (_%hd121903%_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _%hd122667%_ '())) + (cons 'import-internal% (cons _%hd121903%_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_%stx122161%_ _%internal-expand?122162%_) - (letrec* ((_%make-export__125658125659%_ - (lambda (_%bind122615%_ - _%phi122616%_ - _%ctx122617%_ - _%name122618%_) - (let* ((_%key122620%_ + (lambda (_%stx121397%_ _%internal-expand?121398%_) + (letrec* ((_%make-export__124894124895%_ + (lambda (_%bind121851%_ + _%phi121852%_ + _%ctx121853%_ + _%name121854%_) + (let* ((_%key121856%_ (##unchecked-structure-ref - _%bind122615%_ + _%bind121851%_ '2 '#f '#f)) - (_%export-key122622%_ - (if _%name122618%_ - (gx#core-identifier-key _%name122618%_) - _%key122620%_))) + (_%export-key121858%_ + (if _%name121854%_ + (gx#core-identifier-key _%name121854%_) + _%key121856%_))) (##structure gx#module-export::t - _%ctx122617%_ - _%key122620%_ - _%phi122616%_ - _%export-key122622%_ - (let ((_%$e122625%_ + _%ctx121853%_ + _%key121856%_ + _%phi121852%_ + _%export-key121858%_ + (let ((_%$e121861%_ (##structure-instance-of? - _%bind122615%_ + _%bind121851%_ 'gx#extern-binding::t))) - (if _%$e122625%_ - _%$e122625%_ + (if _%$e121861%_ + _%$e121861%_ (##structure-direct-instance-of? - _%bind122615%_ + _%bind121851%_ 'gx#import-binding::t))))))) - (_%make-export__0__125660125663%_ - (lambda (_%bind122631%_) - (let* ((_%phi122633%_ (gx#current-export-expander-phi)) - (_%ctx122635%_ (gx#current-expander-context)) - (_%name122637%_ '#f)) - (_%make-export__125658125659%_ - _%bind122631%_ - _%phi122633%_ - _%ctx122635%_ - _%name122637%_)))) - (_%make-export__1__125661125664%_ - (lambda (_%bind122639%_ _%phi122640%_) - (let* ((_%ctx122642%_ (gx#current-expander-context)) - (_%name122644%_ '#f)) - (_%make-export__125658125659%_ - _%bind122639%_ - _%phi122640%_ - _%ctx122642%_ - _%name122644%_)))) - (_%make-export__2__125662125665%_ - (lambda (_%bind122646%_ _%phi122647%_ _%ctx122648%_) - (let ((_%name122650%_ '#f)) - (_%make-export__125658125659%_ - _%bind122646%_ - _%phi122647%_ - _%ctx122648%_ - _%name122650%_)))) - (_%make-export122164%_ - (lambda _g125732_ - (let ((_g125731_ (##length _g125732_))) - (cond ((##fx= _g125731_ 1) - (apply (lambda (_%bind122631%_) - (_%make-export__0__125660125663%_ - _%bind122631%_)) - _g125732_)) - ((##fx= _g125731_ 2) - (apply (lambda (_%bind122639%_ _%phi122640%_) - (_%make-export__1__125661125664%_ - _%bind122639%_ - _%phi122640%_)) - _g125732_)) - ((##fx= _g125731_ 3) - (apply (lambda (_%bind122646%_ - _%phi122647%_ - _%ctx122648%_) - (_%make-export__2__125662125665%_ - _%bind122646%_ - _%phi122647%_ - _%ctx122648%_)) - _g125732_)) - ((##fx= _g125731_ 4) - (apply (lambda (_%bind122652%_ - _%phi122653%_ - _%ctx122654%_ - _%name122655%_) - (_%make-export__125658125659%_ - _%bind122652%_ - _%phi122653%_ - _%ctx122654%_ - _%name122655%_)) - _g125732_)) + (_%make-export__0__124896124899%_ + (lambda (_%bind121867%_) + (let* ((_%phi121869%_ (gx#current-export-expander-phi)) + (_%ctx121871%_ (gx#current-expander-context)) + (_%name121873%_ '#f)) + (_%make-export__124894124895%_ + _%bind121867%_ + _%phi121869%_ + _%ctx121871%_ + _%name121873%_)))) + (_%make-export__1__124897124900%_ + (lambda (_%bind121875%_ _%phi121876%_) + (let* ((_%ctx121878%_ (gx#current-expander-context)) + (_%name121880%_ '#f)) + (_%make-export__124894124895%_ + _%bind121875%_ + _%phi121876%_ + _%ctx121878%_ + _%name121880%_)))) + (_%make-export__2__124898124901%_ + (lambda (_%bind121882%_ _%phi121883%_ _%ctx121884%_) + (let ((_%name121886%_ '#f)) + (_%make-export__124894124895%_ + _%bind121882%_ + _%phi121883%_ + _%ctx121884%_ + _%name121886%_)))) + (_%make-export121400%_ + (lambda _g124968_ + (let ((_g124967_ (##length _g124968_))) + (cond ((##fx= _g124967_ 1) + (apply _%make-export__0__124896124899%_ + _g124968_)) + ((##fx= _g124967_ 2) + (apply _%make-export__1__124897124900%_ + _g124968_)) + ((##fx= _g124967_ 3) + (apply _%make-export__2__124898124901%_ + _g124968_)) + ((##fx= _g124967_ 4) + (apply _%make-export__124894124895%_ _g124968_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g125732_)))))) - (_%expand1122165%_ - (lambda (_%hd122320%_ - _%K122321%_ - _%rest122322%_ - _%r122323%_) - (let* ((_%e122324122356%_ _%hd122320%_) - (_%E122351122360%_ + _g124968_)))))) + (_%expand1121401%_ + (lambda (_%hd121556%_ + _%K121557%_ + _%rest121558%_ + _%r121559%_) + (let* ((_%e121560121592%_ _%hd121556%_) + (_%E121587121596%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _%stx122161%_ - _%hd122320%_))) - (_%E122341122444%_ + _%stx121397%_ + _%hd121556%_))) + (_%E121577121680%_ (lambda () - (if (gx#stx-pair? _%e122324122356%_) - (let ((_%e122352122364%_ - (gx#syntax-e _%e122324122356%_))) - (let ((_%hd122353122367%_ - (##car _%e122352122364%_)) - (_%tl122354122369%_ - (##cdr _%e122352122364%_))) - (if (eq? (gx#stx-e _%hd122353122367%_) + (if (gx#stx-pair? _%e121560121592%_) + (let ((_%e121588121600%_ + (gx#syntax-e _%e121560121592%_))) + (let ((_%hd121589121603%_ + (##car _%e121588121600%_)) + (_%tl121590121605%_ + (##cdr _%e121588121600%_))) + (if (eq? (gx#stx-e _%hd121589121603%_) 'import:) - (let ((_%in122372%_ - _%tl122354122369%_)) - (if (gx#stx-list? _%in122372%_) - (let _%lp122374%_ ((_%in-rest122376%_ + (let ((_%in121608%_ + _%tl121590121605%_)) + (if (gx#stx-list? _%in121608%_) + (let _%lp121610%_ ((_%in-rest121612%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in122372%_) - (_%r122377%_ _%r122323%_)) + _%in121608%_) + (_%r121613%_ _%r121559%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%e122378122385%_ - _%in-rest122376%_) - (_%E122380122389%_ + (let* ((_%e121614121621%_ + _%in-rest121612%_) + (_%E121616121625%_ (lambda () - (_%K122321%_ - _%rest122322%_ - _%r122377%_))) - (_%E122379122440%_ + (_%K121557%_ + _%rest121558%_ + _%r121613%_))) + (_%E121615121676%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e122378122385%_) - (let ((_%e122381122393%_ - (gx#syntax-e _%e122378122385%_))) - (let ((_%hd122382122396%_ (##car _%e122381122393%_)) - (_%tl122383122398%_ - (##cdr _%e122381122393%_))) - (let* ((_%hd122401%_ _%hd122382122396%_) - (_%in-rest122403%_ _%tl122383122398%_)) + _%e121614121621%_) + (let ((_%e121617121629%_ + (gx#syntax-e _%e121614121621%_))) + (let ((_%hd121618121632%_ (##car _%e121617121629%_)) + (_%tl121619121634%_ + (##cdr _%e121617121629%_))) + (let* ((_%hd121637%_ _%hd121618121632%_) + (_%in-rest121639%_ _%tl121619121634%_)) (if '#t - (let ((_%src122438%_ + (let ((_%src121674%_ (if (gx#core-bound-module? - _%hd122401%_) - (let () - (gx#syntax-local-e__0 - _%hd122401%_)) + _%hd121637%_) + (gx#syntax-local-e__0 + _%hd121637%_) (if (gx#core-library-module-path? - _%hd122401%_) - (let () - (gx#import-module__0 - (gx#core-resolve-library-module-path - _%hd122401%_))) + _%hd121637%_) + (gx#import-module__0 + (gx#core-resolve-library-module-path + _%hd121637%_)) (if (gx#core-library-relative-module-path? - _%hd122401%_) - (let () - (gx#import-module__0 - (gx#core-resolve-library-relative-module-path - _%hd122401%_))) + _%hd121637%_) + (gx#import-module__0 + (gx#core-resolve-library-relative-module-path + _%hd121637%_)) (if (gx#stx-string? - _%hd122401%_) - (let () - (gx#import-module__0 - (gx#core-resolve-module-path__% - _%hd122401%_ - (gx#stx-source - _%stx122161%_)))) - (let () - (let* ((_%e122409122416%_ + _%hd121637%_) + (gx#import-module__0 + (gx#core-resolve-module-path__% + _%hd121637%_ + (gx#stx-source + _%stx121397%_))) + (let* ((_%e121645121652%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd122401%_) - (_%E122411122420%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; illegal re-export" - _%stx122161%_ - _%hd122401%_))) - (_%E122410122434%_ - (lambda () - (if (gx#stx-pair? _%e122409122416%_) - (let ((_%e122412122424%_ - (gx#syntax-e _%e122409122416%_))) - (let ((_%hd122413122427%_ - (##car _%e122412122424%_)) - (_%tl122414122429%_ - (##cdr _%e122412122424%_))) - (if (eq? (gx#stx-e _%hd122413122427%_) - 'in:) - (let ((_%spath122432%_ - _%tl122414122429%_)) - (if '#t - (gx#core-import-nested-module - _%spath122432%_ - _%stx122161%_) - (_%E122411122420%_))) - (_%E122411122420%_)))) - (_%E122411122420%_))))) - (_%E122410122434%_))))))))) + _%hd121637%_) + (_%E121647121656%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; illegal re-export" + _%stx121397%_ + _%hd121637%_))) + (_%E121646121670%_ + (lambda () + (if (gx#stx-pair? _%e121645121652%_) + (let ((_%e121648121660%_ + (gx#syntax-e _%e121645121652%_))) + (let ((_%hd121649121663%_ + (##car _%e121648121660%_)) + (_%tl121650121665%_ + (##cdr _%e121648121660%_))) + (if (eq? (gx#stx-e _%hd121649121663%_) + 'in:) + (let ((_%spath121668%_ + _%tl121650121665%_)) + (if '#t + (gx#core-import-nested-module + _%spath121668%_ + _%stx121397%_) + (_%E121647121656%_))) + (_%E121647121656%_)))) + (_%E121647121656%_))))) + (_%E121646121670%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp122374%_ - _%in-rest122403%_ - (_%export-imports122166%_ - _%src122438%_ - _%r122377%_))) - (_%E122380122389%_))))) - (_%E122380122389%_))))) + (_%lp121610%_ + _%in-rest121639%_ + (_%export-imports121402%_ + _%src121674%_ + _%r121613%_))) + (_%E121616121625%_))))) + (_%E121616121625%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122379122440%_))) - (_%E122351122360%_))) - (_%E122351122360%_)))) - (_%E122351122360%_)))) - (_%E122328122484%_ + (_%E121615121676%_))) + (_%E121587121596%_))) + (_%E121587121596%_)))) + (_%E121587121596%_)))) + (_%E121564121720%_ (lambda () - (if (gx#stx-pair? _%e122324122356%_) - (let ((_%e122342122448%_ - (gx#syntax-e _%e122324122356%_))) - (let ((_%hd122343122451%_ - (##car _%e122342122448%_)) - (_%tl122344122453%_ - (##cdr _%e122342122448%_))) - (if (eq? (gx#stx-e _%hd122343122451%_) + (if (gx#stx-pair? _%e121560121592%_) + (let ((_%e121578121684%_ + (gx#syntax-e _%e121560121592%_))) + (let ((_%hd121579121687%_ + (##car _%e121578121684%_)) + (_%tl121580121689%_ + (##cdr _%e121578121684%_))) + (if (eq? (gx#stx-e _%hd121579121687%_) 'rename:) (if (gx#stx-pair? - _%tl122344122453%_) - (let ((_%e122345122456%_ + _%tl121580121689%_) + (let ((_%e121581121692%_ (gx#syntax-e - _%tl122344122453%_))) - (let ((_%hd122346122459%_ - (##car _%e122345122456%_)) - (_%tl122347122461%_ - (##cdr _%e122345122456%_))) - (let ((_%id122464%_ - _%hd122346122459%_)) + _%tl121580121689%_))) + (let ((_%hd121582121695%_ + (##car _%e121581121692%_)) + (_%tl121583121697%_ + (##cdr _%e121581121692%_))) + (let ((_%id121700%_ + _%hd121582121695%_)) (if (gx#stx-pair? - _%tl122347122461%_) - (let ((_%e122348122466%_ + _%tl121583121697%_) + (let ((_%e121584121702%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl122347122461%_))) - (let ((_%hd122349122469%_ (##car _%e122348122466%_)) - (_%tl122350122471%_ (##cdr _%e122348122466%_))) - (let ((_%name122474%_ _%hd122349122469%_)) - (if (gx#stx-null? _%tl122350122471%_) + _%tl121583121697%_))) + (let ((_%hd121585121705%_ (##car _%e121584121702%_)) + (_%tl121586121707%_ (##cdr _%e121584121702%_))) + (let ((_%name121710%_ _%hd121585121705%_)) + (if (gx#stx-null? _%tl121586121707%_) (if '#t - (let* ((_%phi122476%_ + (let* ((_%phi121712%_ (gx#current-export-expander-phi)) - (_%$e122478%_ + (_%$e121714%_ (gx#core-resolve-identifier__1 - _%id122464%_ - _%phi122476%_))) - (if _%$e122478%_ - ((lambda (_%bind122481%_) - (_%K122321%_ - _%rest122322%_ - (cons (_%make-export__125658125659%_ - _%bind122481%_ - _%phi122476%_ + _%id121700%_ + _%phi121712%_))) + (if _%$e121714%_ + ((lambda (_%bind121717%_) + (_%K121557%_ + _%rest121558%_ + (cons (_%make-export__124894124895%_ + _%bind121717%_ + _%phi121712%_ (gx#current-expander-context) - _%name122474%_) - _%r122323%_))) - _%$e122478%_) - (let () - (gx#raise-syntax-error - '#f - '"Reference to unbound identifier" - _%stx122161%_ - _%hd122320%_ - _%id122464%_)))) - (_%E122341122444%_)) - (_%E122341122444%_))))) - (_%E122341122444%_))))) + _%name121710%_) + _%r121559%_))) + _%$e121714%_) + (gx#raise-syntax-error + '#f + '"Reference to unbound identifier" + _%stx121397%_ + _%hd121556%_ + _%id121700%_))) + (_%E121577121680%_)) + (_%E121577121680%_))))) + (_%E121577121680%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122341122444%_)) - (_%E122341122444%_)))) - (_%E122341122444%_)))) - (_%E122327122534%_ + (_%E121577121680%_)) + (_%E121577121680%_)))) + (_%E121577121680%_)))) + (_%E121563121770%_ (lambda () - (if (gx#stx-pair? _%e122324122356%_) - (let ((_%e122329122488%_ - (gx#syntax-e _%e122324122356%_))) - (let ((_%hd122330122491%_ - (##car _%e122329122488%_)) - (_%tl122331122493%_ - (##cdr _%e122329122488%_))) - (if (eq? (gx#stx-e _%hd122330122491%_) + (if (gx#stx-pair? _%e121560121592%_) + (let ((_%e121565121724%_ + (gx#syntax-e _%e121560121592%_))) + (let ((_%hd121566121727%_ + (##car _%e121565121724%_)) + (_%tl121567121729%_ + (##cdr _%e121565121724%_))) + (if (eq? (gx#stx-e _%hd121566121727%_) 'spec:) (if (gx#stx-pair? - _%tl122331122493%_) - (let ((_%e122332122496%_ + _%tl121567121729%_) + (let ((_%e121568121732%_ (gx#syntax-e - _%tl122331122493%_))) - (let ((_%hd122333122499%_ - (##car _%e122332122496%_)) - (_%tl122334122501%_ - (##cdr _%e122332122496%_))) - (let ((_%phi122504%_ - _%hd122333122499%_)) + _%tl121567121729%_))) + (let ((_%hd121569121735%_ + (##car _%e121568121732%_)) + (_%tl121570121737%_ + (##cdr _%e121568121732%_))) + (let ((_%phi121740%_ + _%hd121569121735%_)) (if (gx#stx-pair? - _%tl122334122501%_) - (let ((_%e122335122506%_ + _%tl121570121737%_) + (let ((_%e121571121742%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl122334122501%_))) - (let ((_%hd122336122509%_ (##car _%e122335122506%_)) - (_%tl122337122511%_ (##cdr _%e122335122506%_))) - (let ((_%id122514%_ _%hd122336122509%_)) - (if (gx#stx-pair? _%tl122337122511%_) - (let ((_%e122338122516%_ - (gx#syntax-e _%tl122337122511%_))) - (let ((_%hd122339122519%_ - (##car _%e122338122516%_)) - (_%tl122340122521%_ - (##cdr _%e122338122516%_))) - (let ((_%name122524%_ _%hd122339122519%_)) - (if (gx#stx-null? _%tl122340122521%_) - (if (and (gx#stx-fixnum? _%phi122504%_) - (gx#identifier? _%id122514%_) - (gx#identifier? _%name122524%_)) - (let* ((_%phi122526%_ - (gx#stx-e _%phi122504%_)) - (_%$e122528%_ + _%tl121570121737%_))) + (let ((_%hd121572121745%_ (##car _%e121571121742%_)) + (_%tl121573121747%_ (##cdr _%e121571121742%_))) + (let ((_%id121750%_ _%hd121572121745%_)) + (if (gx#stx-pair? _%tl121573121747%_) + (let ((_%e121574121752%_ + (gx#syntax-e _%tl121573121747%_))) + (let ((_%hd121575121755%_ + (##car _%e121574121752%_)) + (_%tl121576121757%_ + (##cdr _%e121574121752%_))) + (let ((_%name121760%_ _%hd121575121755%_)) + (if (gx#stx-null? _%tl121576121757%_) + (if (and (gx#stx-fixnum? _%phi121740%_) + (gx#identifier? _%id121750%_) + (gx#identifier? _%name121760%_)) + (let* ((_%phi121762%_ + (gx#stx-e _%phi121740%_)) + (_%$e121764%_ (gx#core-resolve-identifier__1 - _%id122514%_ - _%phi122526%_))) - (if _%$e122528%_ - ((lambda (_%bind122531%_) - (_%K122321%_ - _%rest122322%_ - (cons (_%make-export__125658125659%_ - _%bind122531%_ - _%phi122526%_ + _%id121750%_ + _%phi121762%_))) + (if _%$e121764%_ + ((lambda (_%bind121767%_) + (_%K121557%_ + _%rest121558%_ + (cons (_%make-export__124894124895%_ + _%bind121767%_ + _%phi121762%_ (gx#current-expander-context) - _%name122524%_) - _%r122323%_))) - _%$e122528%_) - (let () - (gx#raise-syntax-error - '#f - '"Reference to unbound identifier" - _%stx122161%_ - _%hd122320%_ - _%id122514%_)))) - (_%E122328122484%_)) - (_%E122328122484%_))))) - (_%E122328122484%_))))) - (_%E122328122484%_))))) + _%name121760%_) + _%r121559%_))) + _%$e121764%_) + (gx#raise-syntax-error + '#f + '"Reference to unbound identifier" + _%stx121397%_ + _%hd121556%_ + _%id121750%_))) + (_%E121564121720%_)) + (_%E121564121720%_))))) + (_%E121564121720%_))))) + (_%E121564121720%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122328122484%_)) - (_%E122328122484%_)))) - (_%E122328122484%_)))) - (_%E122326122546%_ + (_%E121564121720%_)) + (_%E121564121720%_)))) + (_%E121564121720%_)))) + (_%E121562121782%_ (lambda () - (let ((_%id122538%_ _%e122324122356%_)) - (if (gx#identifier? _%id122538%_) - (let ((_%$e122540%_ + (let ((_%id121774%_ _%e121560121592%_)) + (if (gx#identifier? _%id121774%_) + (let ((_%$e121776%_ (gx#core-resolve-identifier__1 - _%id122538%_ + _%id121774%_ (gx#current-export-expander-phi)))) - (if _%$e122540%_ - ((lambda (_%bind122543%_) - (_%K122321%_ - _%rest122322%_ - (cons (_%make-export__0__125660125663%_ - _%bind122543%_) - _%r122323%_))) - _%$e122540%_) - (let () - (gx#raise-syntax-error - '#f - '"Reference to unbound identifier" - _%stx122161%_ - _%hd122320%_)))) - (_%E122327122534%_))))) - (_%E122325122610%_ + (if _%$e121776%_ + ((lambda (_%bind121779%_) + (_%K121557%_ + _%rest121558%_ + (cons (_%make-export__0__124896124899%_ + _%bind121779%_) + _%r121559%_))) + _%$e121776%_) + (gx#raise-syntax-error + '#f + '"Reference to unbound identifier" + _%stx121397%_ + _%hd121556%_))) + (_%E121563121770%_))))) + (_%E121561121846%_ (lambda () - (if (eq? (gx#stx-e _%e122324122356%_) '#t) + (if (eq? (gx#stx-e _%e121560121592%_) '#t) (if '#t - (let* ((_%current-ctx122550%_ + (let* ((_%current-ctx121786%_ (gx#current-expander-context)) - (_%current-phi122552%_ + (_%current-phi121788%_ (gx#current-export-expander-phi)) - (_%phi-ctx122554%_ + (_%phi-ctx121790%_ (gx#core-context-shift - _%current-ctx122550%_ - _%current-phi122552%_)) - (_%phi-bind122556%_ + _%current-ctx121786%_ + _%current-phi121788%_)) + (_%phi-bind121792%_ (hash->list (##unchecked-structure-ref - _%phi-ctx122554%_ + _%phi-ctx121790%_ '2 '#f '#f)))) - (let _%lp122559%_ ((_%bind-rest122561%_ - _%phi-bind122556%_) - (_%set122562%_ + (let _%lp121795%_ ((_%bind-rest121797%_ + _%phi-bind121792%_) + (_%set121798%_ '())) - (let* ((_%bind-rest122563122573%_ - _%bind-rest122561%_) - (_%else122565122581%_ + (let* ((_%bind-rest121799121809%_ + _%bind-rest121797%_) + (_%else121801121817%_ (lambda () - (_%K122321%_ - _%rest122322%_ + (_%K121557%_ + _%rest121558%_ (cons (##structure gx#export-set::t '#f - _%current-phi122552%_ - _%set122562%_) - _%r122323%_)))) - (_%K122567122591%_ - (lambda (_%bind-rest122584%_ - _%bind122585%_ - _%key122586%_) + _%current-phi121788%_ + _%set121798%_) + _%r121559%_)))) + (_%K121803121827%_ + (lambda (_%bind-rest121820%_ + _%bind121821%_ + _%key121822%_) (if (or (##structure-direct-instance-of? - _%bind122585%_ + _%bind121821%_ 'gx#import-binding::t) (gx#private-feature-binding? - _%bind122585%_)) - (_%lp122559%_ - _%bind-rest122584%_ - _%set122562%_) - (_%lp122559%_ - _%bind-rest122584%_ - (cons (_%make-export__2__125662125665%_ + _%bind121821%_)) + (_%lp121795%_ + _%bind-rest121820%_ + _%set121798%_) + (_%lp121795%_ + _%bind-rest121820%_ + (cons (_%make-export__2__124898124901%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind122585%_ - _%current-phi122552%_ - _%current-ctx122550%_) - _%set122562%_)))))) + _%bind121821%_ + _%current-phi121788%_ + _%current-ctx121786%_) + _%set121798%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _%bind-rest122563122573%_) - (let ((_%hd122568122594%_ - (##car _%bind-rest122563122573%_)) - (_%tl122569122596%_ - (##cdr _%bind-rest122563122573%_))) - (if (##pair? _%hd122568122594%_) - (let ((_%hd122570122599%_ - (##car _%hd122568122594%_)) - (_%tl122571122601%_ - (##cdr _%hd122568122594%_))) - (let* ((_%key122604%_ + (if (##pair? _%bind-rest121799121809%_) + (let ((_%hd121804121830%_ + (##car _%bind-rest121799121809%_)) + (_%tl121805121832%_ + (##cdr _%bind-rest121799121809%_))) + (if (##pair? _%hd121804121830%_) + (let ((_%hd121806121835%_ + (##car _%hd121804121830%_)) + (_%tl121807121837%_ + (##cdr _%hd121804121830%_))) + (let* ((_%key121840%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd122570122599%_) - (_%bind122606%_ _%tl122571122601%_) - (_%bind-rest122608%_ _%tl122569122596%_)) - (_%K122567122591%_ - _%bind-rest122608%_ - _%bind122606%_ - _%key122604%_))) - (_%else122565122581%_))) + _%hd121806121835%_) + (_%bind121842%_ _%tl121807121837%_) + (_%bind-rest121844%_ _%tl121805121832%_)) + (_%K121803121827%_ + _%bind-rest121844%_ + _%bind121842%_ + _%key121840%_))) + (_%else121801121817%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else122565122581%_))))) - (_%E122326122546%_)) - (_%E122326122546%_))))) - (_%E122325122610%_)))) - (_%export-imports122166%_ - (lambda (_%src122196%_ _%r122197%_) - (letrec* ((_%current-ctx122199%_ + (_%else121801121817%_))))) + (_%E121562121782%_)) + (_%E121562121782%_))))) + (_%E121561121846%_)))) + (_%export-imports121402%_ + (lambda (_%src121432%_ _%r121433%_) + (letrec* ((_%current-ctx121435%_ (gx#current-expander-context)) - (_%current-phi122200%_ + (_%current-phi121436%_ (gx#current-export-expander-phi)) - (_%import->export122201%_ - (lambda (_%in122282%_) - (let* ((_%in122283122291%_ _%in122282%_) - (_%E122285122295%_ + (_%import->export121437%_ + (lambda (_%in121518%_) + (let* ((_%in121519121527%_ _%in121518%_) + (_%E121521121531%_ (lambda () (error '"No clause matching" - _%in122283122291%_ + _%in121519121527%_ '((module-import out key phi))) '#!void)) - (_%K122286122302%_ - (lambda (_%phi122298%_ - _%key122299%_ - _%out122300%_) + (_%K121522121538%_ + (lambda (_%phi121534%_ + _%key121535%_ + _%out121536%_) (##structure gx#module-export::t - _%current-ctx122199%_ - _%key122299%_ - _%phi122298%_ - _%key122299%_ + _%current-ctx121435%_ + _%key121535%_ + _%phi121534%_ + _%key121535%_ '#t)))) (if (##structure-direct-instance-of? - _%in122283122291%_ + _%in121519121527%_ 'gx#module-import::t) - (let* ((_%e122287122305%_ + (let* ((_%e121523121541%_ (##unchecked-structure-ref - _%in122283122291%_ + _%in121519121527%_ '1 '#f '#f)) - (_%out122308%_ - _%e122287122305%_) - (_%e122288122310%_ + (_%out121544%_ + _%e121523121541%_) + (_%e121524121546%_ (##unchecked-structure-ref - _%in122283122291%_ + _%in121519121527%_ '2 '#f '#f)) - (_%key122313%_ - _%e122288122310%_) - (_%e122289122315%_ + (_%key121549%_ + _%e121524121546%_) + (_%e121525121551%_ (##unchecked-structure-ref - _%in122283122291%_ + _%in121519121527%_ '3 '#f '#f)) - (_%phi122318%_ - _%e122289122315%_)) - (_%K122286122302%_ - _%phi122318%_ - _%key122313%_ - _%out122308%_)) - (_%E122285122295%_))))) - (_%fold-e122202%_ - (lambda (_%in122204%_ _%r122205%_) - (let* ((_%in122206122220%_ _%in122204%_) - (_%else122209122228%_ - (lambda () _%r122205%_))) - (let ((_%K122215122264%_ - (lambda (_%phi122260%_ - _%key122261%_ - _%out122262%_) - (if (and (fx= _%phi122260%_ - _%current-phi122200%_) - (eq? _%src122196%_ + (_%phi121554%_ + _%e121525121551%_)) + (_%K121522121538%_ + _%phi121554%_ + _%key121549%_ + _%out121544%_)) + (_%E121521121531%_))))) + (_%fold-e121438%_ + (lambda (_%in121440%_ _%r121441%_) + (let* ((_%in121442121456%_ _%in121440%_) + (_%else121445121464%_ + (lambda () _%r121441%_))) + (let ((_%K121451121500%_ + (lambda (_%phi121496%_ + _%key121497%_ + _%out121498%_) + (if (and (fx= _%phi121496%_ + _%current-phi121436%_) + (eq? _%src121432%_ (##unchecked-structure-ref - _%out122262%_ + _%out121498%_ '1 '#f '#f))) - (cons (_%import->export122201%_ - _%in122204%_) - _%r122205%_) - _%r122205%_))) - (_%K122211122239%_ - (lambda (_%imports122232%_ - _%phi122233%_ - _%ctx122234%_) - (if (and (fx= _%phi122233%_ - _%current-phi122200%_) - (eq? _%src122196%_ - _%ctx122234%_)) + (cons (_%import->export121437%_ + _%in121440%_) + _%r121441%_) + _%r121441%_))) + (_%K121447121475%_ + (lambda (_%imports121468%_ + _%phi121469%_ + _%ctx121470%_) + (if (and (fx= _%phi121469%_ + _%current-phi121436%_) + (eq? _%src121432%_ + _%ctx121470%_)) (__foldl1 - (lambda (_%in122236%_ - _%r122237%_) - (cons (_%import->export122201%_ - _%in122236%_) - _%r122237%_)) - _%r122205%_ - _%imports122232%_) - _%r122205%_)))) - (let ((_%try-match122208122257%_ + (lambda (_%in121472%_ + _%r121473%_) + (cons (_%import->export121437%_ + _%in121472%_) + _%r121473%_)) + _%r121441%_ + _%imports121468%_) + _%r121441%_)))) + (let ((_%try-match121444121493%_ (lambda () (if (##structure-direct-instance-of? - _%in122206122220%_ + _%in121442121456%_ 'gx#import-set::t) - (let* ((_%e122212122242%_ + (let* ((_%e121448121478%_ (##unchecked-structure-ref - _%in122206122220%_ + _%in121442121456%_ '1 '#f '#f)) - (_%e122213122247%_ + (_%e121449121483%_ (##unchecked-structure-ref - _%in122206122220%_ + _%in121442121456%_ '2 '#f '#f)) - (_%e122214122252%_ + (_%e121450121488%_ (##unchecked-structure-ref - _%in122206122220%_ + _%in121442121456%_ '3 '#f '#f))) - (let ((_%ctx122245%_ - _%e122212122242%_) - (_%phi122250%_ - _%e122213122247%_) - (_%imports122255%_ - _%e122214122252%_)) - (_%K122211122239%_ - _%imports122255%_ - _%phi122250%_ - _%ctx122245%_))) - (_%else122209122228%_))))) + (let ((_%ctx121481%_ + _%e121448121478%_) + (_%phi121486%_ + _%e121449121483%_) + (_%imports121491%_ + _%e121450121488%_)) + (_%K121447121475%_ + _%imports121491%_ + _%phi121486%_ + _%ctx121481%_))) + (_%else121445121464%_))))) (if (##structure-direct-instance-of? - _%in122206122220%_ + _%in121442121456%_ 'gx#module-import::t) - (let* ((_%e122216122267%_ + (let* ((_%e121452121503%_ (##unchecked-structure-ref - _%in122206122220%_ + _%in121442121456%_ '1 '#f '#f)) - (_%e122217122272%_ + (_%e121453121508%_ (##unchecked-structure-ref - _%in122206122220%_ + _%in121442121456%_ '2 '#f '#f)) - (_%e122218122277%_ + (_%e121454121513%_ (##unchecked-structure-ref - _%in122206122220%_ + _%in121442121456%_ '3 '#f '#f))) - (let ((_%out122270%_ - _%e122216122267%_) - (_%key122275%_ - _%e122217122272%_) - (_%phi122280%_ - _%e122218122277%_)) - (_%K122215122264%_ - _%phi122280%_ - _%key122275%_ - _%out122270%_))) - (_%try-match122208122257%_)))))))) + (let ((_%out121506%_ + _%e121452121503%_) + (_%key121511%_ + _%e121453121508%_) + (_%phi121516%_ + _%e121454121513%_)) + (_%K121451121500%_ + _%phi121516%_ + _%key121511%_ + _%out121506%_))) + (_%try-match121444121493%_)))))))) (cons (##structure gx#export-set::t - _%src122196%_ - _%current-phi122200%_ + _%src121432%_ + _%current-phi121436%_ (__foldl1 - _%fold-e122202%_ + _%fold-e121438%_ '() (##unchecked-structure-ref - _%current-ctx122199%_ + _%current-ctx121435%_ '8 '#f '#f))) - _%r122197%_)))) - (_%export!122167%_ - (lambda (_%rbody122183%_) - (letrec* ((_%current-ctx122185%_ + _%r121433%_)))) + (_%export!121403%_ + (lambda (_%rbody121419%_) + (letrec* ((_%current-ctx121421%_ (gx#current-expander-context)) - (_%fold-e122186%_ - (lambda (_%out122190%_ _%r122191%_) + (_%fold-e121422%_ + (lambda (_%out121426%_ _%r121427%_) (if (##structure-direct-instance-of? - _%out122190%_ + _%out121426%_ 'gx#module-export::t) - (let () (cons _%out122190%_ _%r122191%_)) + (cons _%out121426%_ _%r121427%_) (if (##structure-direct-instance-of? - _%out122190%_ + _%out121426%_ 'gx#export-set::t) - (let () - (__foldl1 - cons - _%r122191%_ - (##unchecked-structure-ref - _%out122190%_ - '3 - '#f - '#f))) - (let () _%r122191%_)))))) - (let ((_%body122188%_ (reverse _%rbody122183%_))) + (__foldl1 + cons + _%r121427%_ + (##unchecked-structure-ref + _%out121426%_ + '3 + '#f + '#f)) + _%r121427%_))))) + (let ((_%body121424%_ (reverse _%rbody121419%_))) (##unchecked-structure-set! - _%current-ctx122185%_ + _%current-ctx121421%_ (__foldl1 - _%fold-e122186%_ + _%fold-e121422%_ (##unchecked-structure-ref - _%current-ctx122185%_ + _%current-ctx121421%_ '9 '#f '#f) - _%body122188%_) + _%body121424%_) '9 '#f '#f) - _%body122188%_)))) - (_%expanded-export?122168%_ - (lambda (_%e122178%_) - (let ((_%$e122180%_ + _%body121424%_)))) + (_%expanded-export?121404%_ + (lambda (_%e121414%_) + (let ((_%$e121416%_ (##structure-direct-instance-of? - _%e122178%_ + _%e121414%_ 'gx#module-export::t))) - (if _%$e122180%_ - _%$e122180%_ + (if _%$e121416%_ + _%$e121416%_ (##structure-direct-instance-of? - _%e122178%_ + _%e121414%_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _%internal-expand?122162%_) - (let ((_%rbody122174%_ + _%internal-expand?121398%_) + (let ((_%rbody121410%_ (gx#core-expand-import/export - _%stx122161%_ - _%expanded-export?122168%_ + _%stx121397%_ + _%expanded-export?121404%_ 'apply-export-expander gx#current-export-expander-phi - _%expand1122165%_))) - (if _%internal-expand?122162%_ - (reverse _%rbody122174%_) + _%expand1121401%_))) + (if _%internal-expand?121398%_ + (reverse _%rbody121410%_) (gx#core-quote-syntax__1 (gx#core-cons '%#export - (_%export!122167%_ _%rbody122174%_)) - (gx#stx-source _%stx122161%_)))) + (_%export!121403%_ _%rbody121410%_)) + (gx#stx-source _%stx121397%_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) - (let () - (gx#core-quote-syntax__1 - (gx#core-cons '%#begin '()) - (gx#stx-source _%stx122161%_))) - (let () - (gx#raise-syntax-error - '#f - '"Illegal context" - _%stx122161%_))))))) + (gx#core-quote-syntax__1 + (gx#core-cons '%#begin '()) + (gx#stx-source _%stx121397%_)) + (gx#raise-syntax-error + '#f + '"Illegal context" + _%stx121397%_)))))) (define gx#core-expand-export%__0 - (lambda (_%stx122660%_) - (let ((_%internal-expand?122662%_ '#f)) + (lambda (_%stx121896%_) + (let ((_%internal-expand?121898%_ '#f)) (gx#core-expand-export%__% - _%stx122660%_ - _%internal-expand?122662%_)))) + _%stx121896%_ + _%internal-expand?121898%_)))) (define gx#core-expand-export% - (lambda _g125734_ - (let ((_g125733_ (##length _g125734_))) - (cond ((##fx= _g125733_ 1) - (apply (lambda (_%stx122660%_) - (gx#core-expand-export%__0 _%stx122660%_)) - _g125734_)) - ((##fx= _g125733_ 2) - (apply (lambda (_%stx122664%_ _%internal-expand?122665%_) - (gx#core-expand-export%__% - _%stx122664%_ - _%internal-expand?122665%_)) - _g125734_)) + (lambda _g124970_ + (let ((_g124969_ (##length _g124970_))) + (cond ((##fx= _g124969_ 1) + (apply gx#core-expand-export%__0 _g124970_)) + ((##fx= _g124969_ 2) + (apply gx#core-expand-export%__% _g124970_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g125734_)))))) + _g124970_)))))) (define gx#core-expand-export-source - (lambda (_%hd122158%_) + (lambda (_%hd121394%_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _%hd122158%_ '())) + (cons 'export-macro% (cons _%hd121394%_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_%stx122128%_) - (let* ((_%e122129122136%_ _%stx122128%_) - (_%E122131122140%_ + (lambda (_%stx121364%_) + (let* ((_%e121365121372%_ _%stx121364%_) + (_%E121367121376%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122129122136%_))) - (_%E122130122154%_ + _%e121365121372%_))) + (_%E121366121390%_ (lambda () - (if (gx#stx-pair? _%e122129122136%_) - (let ((_%e122132122144%_ - (gx#syntax-e _%e122129122136%_))) - (let ((_%hd122133122147%_ (##car _%e122132122144%_)) - (_%tl122134122149%_ (##cdr _%e122132122144%_))) - (let ((_%body122152%_ _%tl122134122149%_)) - (if (gx#identifier-list? _%body122152%_) + (if (gx#stx-pair? _%e121365121372%_) + (let ((_%e121368121380%_ + (gx#syntax-e _%e121365121372%_))) + (let ((_%hd121369121383%_ (##car _%e121368121380%_)) + (_%tl121370121385%_ (##cdr _%e121368121380%_))) + (let ((_%body121388%_ _%tl121370121385%_)) + (if (gx#identifier-list? _%body121388%_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _%body122152%_) + _%body121388%_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _%body122152%_)) - (gx#stx-source _%stx122128%_))) - (_%E122131122140%_))))) - (_%E122131122140%_))))) - (_%E122130122154%_)))) + _%body121388%_)) + (gx#stx-source _%stx121364%_))) + (_%E121367121376%_))))) + (_%E121367121376%_))))) + (_%E121366121390%_)))) (define gx#core-bind-feature!__% - (lambda (_%id122094%_ _%private?122095%_ _%phi122096%_ _%ctx122097%_) + (lambda (_%id121330%_ _%private?121331%_ _%phi121332%_ _%ctx121333%_) (gx#core-bind-syntax!__% - _%id122094%_ - ((if _%private?122095%_ + _%id121330%_ + ((if _%private?121331%_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _%id122094%_)) - _%private?122095%_ - _%phi122096%_ - _%ctx122097%_))) + (gx#stx-e _%id121330%_)) + _%private?121331%_ + _%phi121332%_ + _%ctx121333%_))) (define gx#core-bind-feature!__0 - (lambda (_%id122102%_) - (let* ((_%private?122104%_ '#f) - (_%phi122106%_ (gx#current-expander-phi)) - (_%ctx122108%_ (gx#current-expander-context))) + (lambda (_%id121338%_) + (let* ((_%private?121340%_ '#f) + (_%phi121342%_ (gx#current-expander-phi)) + (_%ctx121344%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id122102%_ - _%private?122104%_ - _%phi122106%_ - _%ctx122108%_)))) + _%id121338%_ + _%private?121340%_ + _%phi121342%_ + _%ctx121344%_)))) (define gx#core-bind-feature!__1 - (lambda (_%id122110%_ _%private?122111%_) - (let* ((_%phi122113%_ (gx#current-expander-phi)) - (_%ctx122115%_ (gx#current-expander-context))) + (lambda (_%id121346%_ _%private?121347%_) + (let* ((_%phi121349%_ (gx#current-expander-phi)) + (_%ctx121351%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id122110%_ - _%private?122111%_ - _%phi122113%_ - _%ctx122115%_)))) + _%id121346%_ + _%private?121347%_ + _%phi121349%_ + _%ctx121351%_)))) (define gx#core-bind-feature!__2 - (lambda (_%id122117%_ _%private?122118%_ _%phi122119%_) - (let ((_%ctx122121%_ (gx#current-expander-context))) + (lambda (_%id121353%_ _%private?121354%_ _%phi121355%_) + (let ((_%ctx121357%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id122117%_ - _%private?122118%_ - _%phi122119%_ - _%ctx122121%_)))) + _%id121353%_ + _%private?121354%_ + _%phi121355%_ + _%ctx121357%_)))) (define gx#core-bind-feature! - (lambda _g125736_ - (let ((_g125735_ (##length _g125736_))) - (cond ((##fx= _g125735_ 1) - (apply (lambda (_%id122102%_) - (gx#core-bind-feature!__0 _%id122102%_)) - _g125736_)) - ((##fx= _g125735_ 2) - (apply (lambda (_%id122110%_ _%private?122111%_) - (gx#core-bind-feature!__1 - _%id122110%_ - _%private?122111%_)) - _g125736_)) - ((##fx= _g125735_ 3) - (apply (lambda (_%id122117%_ _%private?122118%_ _%phi122119%_) - (gx#core-bind-feature!__2 - _%id122117%_ - _%private?122118%_ - _%phi122119%_)) - _g125736_)) - ((##fx= _g125735_ 4) - (apply (lambda (_%id122123%_ - _%private?122124%_ - _%phi122125%_ - _%ctx122126%_) - (gx#core-bind-feature!__% - _%id122123%_ - _%private?122124%_ - _%phi122125%_ - _%ctx122126%_)) - _g125736_)) + (lambda _g124972_ + (let ((_g124971_ (##length _g124972_))) + (cond ((##fx= _g124971_ 1) + (apply gx#core-bind-feature!__0 _g124972_)) + ((##fx= _g124971_ 2) + (apply gx#core-bind-feature!__1 _g124972_)) + ((##fx= _g124971_ 3) + (apply gx#core-bind-feature!__2 _g124972_)) + ((##fx= _g124971_ 4) + (apply gx#core-bind-feature!__% _g124972_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g125736_)))))))) + _g124972_)))))))) diff --git a/src/bootstrap/gerbil/expander/module~1.scm b/src/bootstrap/gerbil/expander/module~1.scm index e7b109e19..067477599 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]#_g125738_| + (define |gx[1]#_g124974_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g125740_| + (define |gx[1]#_g124976_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g125742_| + (define |gx[1]#_g124978_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g125744_| + (define |gx[1]#_g124980_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g125745_| + (define |gx[1]#_g124981_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g125746_| + (define |gx[1]#_g124982_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g125747_| + (define |gx[1]#_g124983_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g125749_| + (define |gx[1]#_g124985_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125750_| + (define |gx[1]#_g124986_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125751_| + (define |gx[1]#_g124987_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125752_| + (define |gx[1]#_g124988_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125754_| + (define |gx[1]#_g124990_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g125755_| + (define |gx[1]#_g124991_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g125756_| + (define |gx[1]#_g124992_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g125757_| + (define |gx[1]#_g124993_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g125759_| + (define |gx[1]#_g124995_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125760_| + (define |gx[1]#_g124996_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125761_| + (define |gx[1]#_g124997_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125762_| + (define |gx[1]#_g124998_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125764_| + (define |gx[1]#_g125000_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g125766_| + (define |gx[1]#_g125002_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g125768_| + (define |gx[1]#_g125004_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g125770_| + (define |gx[1]#_g125006_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g125771_| + (define |gx[1]#_g125007_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g125772_| + (define |gx[1]#_g125008_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g125773_| + (define |gx[1]#_g125009_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g125774_| + (define |gx[1]#_g125010_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g125776_| + (define |gx[1]#_g125012_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125777_| + (define |gx[1]#_g125013_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125778_| + (define |gx[1]#_g125014_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125779_| + (define |gx[1]#_g125015_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125780_| + (define |gx[1]#_g125016_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125782_| + (define |gx[1]#_g125018_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g125783_| + (define |gx[1]#_g125019_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g125784_| + (define |gx[1]#_g125020_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g125785_| + (define |gx[1]#_g125021_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g125786_| + (define |gx[1]#_g125022_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g125788_| + (define |gx[1]#_g125024_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125789_| + (define |gx[1]#_g125025_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125790_| + (define |gx[1]#_g125026_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125791_| + (define |gx[1]#_g125027_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125792_| + (define |gx[1]#_g125028_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125794_| + (define |gx[1]#_g125030_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g125796_| + (define |gx[1]#_g125032_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g125798_| + (define |gx[1]#_g125034_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g125800_| + (define |gx[1]#_g125036_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g125801_| + (define |gx[1]#_g125037_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g125802_| + (define |gx[1]#_g125038_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g125804_| + (define |gx[1]#_g125040_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125805_| + (define |gx[1]#_g125041_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125806_| + (define |gx[1]#_g125042_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125808_| + (define |gx[1]#_g125044_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g125809_| + (define |gx[1]#_g125045_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g125810_| + (define |gx[1]#_g125046_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g125812_| + (define |gx[1]#_g125048_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125813_| + (define |gx[1]#_g125049_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125814_| + (define |gx[1]#_g125050_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125816_| + (define |gx[1]#_g125052_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g125818_| + (define |gx[1]#_g125054_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g125820_| + (define |gx[1]#_g125056_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g125822_| + (define |gx[1]#_g125058_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g125823_| + (define |gx[1]#_g125059_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g125824_| + (define |gx[1]#_g125060_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g125826_| + (define |gx[1]#_g125062_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125827_| + (define |gx[1]#_g125063_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125828_| + (define |gx[1]#_g125064_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125830_| + (define |gx[1]#_g125066_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g125831_| + (define |gx[1]#_g125067_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g125832_| + (define |gx[1]#_g125068_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g125834_| + (define |gx[1]#_g125070_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125835_| + (define |gx[1]#_g125071_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125836_| + (define |gx[1]#_g125072_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125838_| + (define |gx[1]#_g125074_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g125840_| + (define |gx[1]#_g125076_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g125842_| + (define |gx[1]#_g125078_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g125844_| + (define |gx[1]#_g125080_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g125846_| + (define |gx[1]#_g125082_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g125847_| + (define |gx[1]#_g125083_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g125848_| + (define |gx[1]#_g125084_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g125850_| + (define |gx[1]#_g125086_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125851_| + (define |gx[1]#_g125087_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125852_| + (define |gx[1]#_g125088_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125854_| + (define |gx[1]#_g125090_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g125855_| + (define |gx[1]#_g125091_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g125856_| + (define |gx[1]#_g125092_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g125858_| + (define |gx[1]#_g125094_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125859_| + (define |gx[1]#_g125095_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125860_| + (define |gx[1]#_g125096_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125863_| + (define |gx[1]#_g125099_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g125865_| + (define |gx[1]#_g125101_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g125867_| + (define |gx[1]#_g125103_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g125869_| + (define |gx[1]#_g125105_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g125870_| + (define |gx[1]#_g125106_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g125871_| + (define |gx[1]#_g125107_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g125873_| + (define |gx[1]#_g125109_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125874_| + (define |gx[1]#_g125110_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125875_| + (define |gx[1]#_g125111_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125877_| + (define |gx[1]#_g125113_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g125878_| + (define |gx[1]#_g125114_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g125879_| + (define |gx[1]#_g125115_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g125881_| + (define |gx[1]#_g125117_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125882_| + (define |gx[1]#_g125118_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125883_| + (define |gx[1]#_g125119_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125885_| + (define |gx[1]#_g125121_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g125886_| + (define |gx[1]#_g125122_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g125888_| + (define |gx[1]#_g125124_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g125890_| + (define |gx[1]#_g125126_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g125892_| + (define |gx[1]#_g125128_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g125894_| + (define |gx[1]#_g125130_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g125895_| + (define |gx[1]#_g125131_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g125896_| + (define |gx[1]#_g125132_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g125898_| + (define |gx[1]#_g125134_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125899_| + (define |gx[1]#_g125135_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125900_| + (define |gx[1]#_g125136_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125902_| + (define |gx[1]#_g125138_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g125903_| + (define |gx[1]#_g125139_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g125904_| + (define |gx[1]#_g125140_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g125906_| + (define |gx[1]#_g125142_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125907_| + (define |gx[1]#_g125143_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125908_| + (define |gx[1]#_g125144_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! @@ -842,7 +842,7 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj125692 + (let ((__obj124928 (let () (declare (not safe)) (##structure @@ -871,18 +871,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj125692 + __obj124928 'gx#module-import::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125692 'module-import '2 '#f '#f)) + (##unchecked-structure-set! __obj124928 'module-import '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj125692 + __obj124928 '(source name phi weak?) '4 '#f @@ -890,79 +890,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj125692 + __obj124928 '(source name phi weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125692 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj124928 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125692 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj124928 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125692 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj124928 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125692 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj124928 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125692 '#f '11 '#f '#f)) - (let ((__tmp125737 |gx[1]#_g125738_|)) + (##unchecked-structure-set! __obj124928 '#f '11 '#f '#f)) + (let ((__tmp124973 |gx[1]#_g124974_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125692 __tmp125737 '12 '#f '#f)) - (let ((__tmp125739 |gx[1]#_g125740_|)) + (##unchecked-structure-set! __obj124928 __tmp124973 '12 '#f '#f)) + (let ((__tmp124975 |gx[1]#_g124976_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125692 __tmp125739 '13 '#f '#f)) - (let ((__tmp125741 |gx[1]#_g125742_|)) + (##unchecked-structure-set! __obj124928 __tmp124975 '13 '#f '#f)) + (let ((__tmp124977 |gx[1]#_g124978_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125692 __tmp125741 '14 '#f '#f)) - (let ((__tmp125743 - (cons (cons 'source |gx[1]#_g125744_|) - (cons (cons 'name |gx[1]#_g125745_|) - (cons (cons 'phi |gx[1]#_g125746_|) - (cons (cons 'weak? |gx[1]#_g125747_|) + (##unchecked-structure-set! __obj124928 __tmp124977 '14 '#f '#f)) + (let ((__tmp124979 + (cons (cons 'source |gx[1]#_g124980_|) + (cons (cons 'name |gx[1]#_g124981_|) + (cons (cons 'phi |gx[1]#_g124982_|) + (cons (cons 'weak? |gx[1]#_g124983_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj125692 __tmp125743 '15 '#f '#f)) - (let ((__tmp125748 - (cons (cons 'source |gx[1]#_g125749_|) - (cons (cons 'name |gx[1]#_g125750_|) - (cons (cons 'phi |gx[1]#_g125751_|) - (cons (cons 'weak? |gx[1]#_g125752_|) + (##unchecked-structure-set! __obj124928 __tmp124979 '15 '#f '#f)) + (let ((__tmp124984 + (cons (cons 'source |gx[1]#_g124985_|) + (cons (cons 'name |gx[1]#_g124986_|) + (cons (cons 'phi |gx[1]#_g124987_|) + (cons (cons 'weak? |gx[1]#_g124988_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj125692 __tmp125748 '16 '#f '#f)) - (let ((__tmp125753 - (cons (cons 'source |gx[1]#_g125754_|) - (cons (cons 'name |gx[1]#_g125755_|) - (cons (cons 'phi |gx[1]#_g125756_|) - (cons (cons 'weak? |gx[1]#_g125757_|) + (##unchecked-structure-set! __obj124928 __tmp124984 '16 '#f '#f)) + (let ((__tmp124989 + (cons (cons 'source |gx[1]#_g124990_|) + (cons (cons 'name |gx[1]#_g124991_|) + (cons (cons 'phi |gx[1]#_g124992_|) + (cons (cons 'weak? |gx[1]#_g124993_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj125692 __tmp125753 '17 '#f '#f)) - (let ((__tmp125758 - (cons (cons 'source |gx[1]#_g125759_|) - (cons (cons 'name |gx[1]#_g125760_|) - (cons (cons 'phi |gx[1]#_g125761_|) - (cons (cons 'weak? |gx[1]#_g125762_|) + (##unchecked-structure-set! __obj124928 __tmp124989 '17 '#f '#f)) + (let ((__tmp124994 + (cons (cons 'source |gx[1]#_g124995_|) + (cons (cons 'name |gx[1]#_g124996_|) + (cons (cons 'phi |gx[1]#_g124997_|) + (cons (cons 'weak? |gx[1]#_g124998_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj125692 __tmp125758 '18 '#f '#f)) + (##unchecked-structure-set! __obj124928 __tmp124994 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125692 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj124928 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125692 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj124928 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125692 '() '20 '#f '#f)) - __obj125692)) + (##unchecked-structure-set! __obj124928 '() '20 '#f '#f)) + __obj124928)) (define |gx[:0:]#module-export| - (let ((__obj125693 + (let ((__obj124929 (let () (declare (not safe)) (##structure @@ -991,18 +991,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj125693 + __obj124929 'gx#module-export::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125693 'module-export '2 '#f '#f)) + (##unchecked-structure-set! __obj124929 'module-export '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj125693 + __obj124929 '(context key phi name weak?) '4 '#f @@ -1010,83 +1010,83 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj125693 + __obj124929 '(context key phi name weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125693 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj124929 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125693 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj124929 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125693 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj124929 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125693 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj124929 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125693 '#f '11 '#f '#f)) - (let ((__tmp125763 |gx[1]#_g125764_|)) + (##unchecked-structure-set! __obj124929 '#f '11 '#f '#f)) + (let ((__tmp124999 |gx[1]#_g125000_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125693 __tmp125763 '12 '#f '#f)) - (let ((__tmp125765 |gx[1]#_g125766_|)) + (##unchecked-structure-set! __obj124929 __tmp124999 '12 '#f '#f)) + (let ((__tmp125001 |gx[1]#_g125002_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125693 __tmp125765 '13 '#f '#f)) - (let ((__tmp125767 |gx[1]#_g125768_|)) + (##unchecked-structure-set! __obj124929 __tmp125001 '13 '#f '#f)) + (let ((__tmp125003 |gx[1]#_g125004_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125693 __tmp125767 '14 '#f '#f)) - (let ((__tmp125769 - (cons (cons 'context |gx[1]#_g125770_|) - (cons (cons 'key |gx[1]#_g125771_|) - (cons (cons 'phi |gx[1]#_g125772_|) - (cons (cons 'name |gx[1]#_g125773_|) - (cons (cons 'weak? |gx[1]#_g125774_|) + (##unchecked-structure-set! __obj124929 __tmp125003 '14 '#f '#f)) + (let ((__tmp125005 + (cons (cons 'context |gx[1]#_g125006_|) + (cons (cons 'key |gx[1]#_g125007_|) + (cons (cons 'phi |gx[1]#_g125008_|) + (cons (cons 'name |gx[1]#_g125009_|) + (cons (cons 'weak? |gx[1]#_g125010_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj125693 __tmp125769 '15 '#f '#f)) - (let ((__tmp125775 - (cons (cons 'context |gx[1]#_g125776_|) - (cons (cons 'key |gx[1]#_g125777_|) - (cons (cons 'phi |gx[1]#_g125778_|) - (cons (cons 'name |gx[1]#_g125779_|) - (cons (cons 'weak? |gx[1]#_g125780_|) + (##unchecked-structure-set! __obj124929 __tmp125005 '15 '#f '#f)) + (let ((__tmp125011 + (cons (cons 'context |gx[1]#_g125012_|) + (cons (cons 'key |gx[1]#_g125013_|) + (cons (cons 'phi |gx[1]#_g125014_|) + (cons (cons 'name |gx[1]#_g125015_|) + (cons (cons 'weak? |gx[1]#_g125016_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj125693 __tmp125775 '16 '#f '#f)) - (let ((__tmp125781 - (cons (cons 'context |gx[1]#_g125782_|) - (cons (cons 'key |gx[1]#_g125783_|) - (cons (cons 'phi |gx[1]#_g125784_|) - (cons (cons 'name |gx[1]#_g125785_|) - (cons (cons 'weak? |gx[1]#_g125786_|) + (##unchecked-structure-set! __obj124929 __tmp125011 '16 '#f '#f)) + (let ((__tmp125017 + (cons (cons 'context |gx[1]#_g125018_|) + (cons (cons 'key |gx[1]#_g125019_|) + (cons (cons 'phi |gx[1]#_g125020_|) + (cons (cons 'name |gx[1]#_g125021_|) + (cons (cons 'weak? |gx[1]#_g125022_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj125693 __tmp125781 '17 '#f '#f)) - (let ((__tmp125787 - (cons (cons 'context |gx[1]#_g125788_|) - (cons (cons 'key |gx[1]#_g125789_|) - (cons (cons 'phi |gx[1]#_g125790_|) - (cons (cons 'name |gx[1]#_g125791_|) - (cons (cons 'weak? |gx[1]#_g125792_|) + (##unchecked-structure-set! __obj124929 __tmp125017 '17 '#f '#f)) + (let ((__tmp125023 + (cons (cons 'context |gx[1]#_g125024_|) + (cons (cons 'key |gx[1]#_g125025_|) + (cons (cons 'phi |gx[1]#_g125026_|) + (cons (cons 'name |gx[1]#_g125027_|) + (cons (cons 'weak? |gx[1]#_g125028_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj125693 __tmp125787 '18 '#f '#f)) + (##unchecked-structure-set! __obj124929 __tmp125023 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125693 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj124929 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125693 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj124929 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125693 '() '20 '#f '#f)) - __obj125693)) + (##unchecked-structure-set! __obj124929 '() '20 '#f '#f)) + __obj124929)) (define |gx[:0:]#import-set| - (let ((__obj125694 + (let ((__obj124930 (let () (declare (not safe)) (##structure @@ -1115,18 +1115,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj125694 + __obj124930 'gx#import-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125694 'import-set '2 '#f '#f)) + (##unchecked-structure-set! __obj124930 'import-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj125694 + __obj124930 '(source phi imports) '4 '#f @@ -1134,71 +1134,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj125694 + __obj124930 '(source phi imports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125694 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj124930 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125694 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj124930 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125694 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj124930 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125694 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj124930 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125694 '#f '11 '#f '#f)) - (let ((__tmp125793 |gx[1]#_g125794_|)) + (##unchecked-structure-set! __obj124930 '#f '11 '#f '#f)) + (let ((__tmp125029 |gx[1]#_g125030_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125694 __tmp125793 '12 '#f '#f)) - (let ((__tmp125795 |gx[1]#_g125796_|)) + (##unchecked-structure-set! __obj124930 __tmp125029 '12 '#f '#f)) + (let ((__tmp125031 |gx[1]#_g125032_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125694 __tmp125795 '13 '#f '#f)) - (let ((__tmp125797 |gx[1]#_g125798_|)) + (##unchecked-structure-set! __obj124930 __tmp125031 '13 '#f '#f)) + (let ((__tmp125033 |gx[1]#_g125034_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125694 __tmp125797 '14 '#f '#f)) - (let ((__tmp125799 - (cons (cons 'source |gx[1]#_g125800_|) - (cons (cons 'phi |gx[1]#_g125801_|) - (cons (cons 'imports |gx[1]#_g125802_|) '()))))) + (##unchecked-structure-set! __obj124930 __tmp125033 '14 '#f '#f)) + (let ((__tmp125035 + (cons (cons 'source |gx[1]#_g125036_|) + (cons (cons 'phi |gx[1]#_g125037_|) + (cons (cons 'imports |gx[1]#_g125038_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125694 __tmp125799 '15 '#f '#f)) - (let ((__tmp125803 - (cons (cons 'source |gx[1]#_g125804_|) - (cons (cons 'phi |gx[1]#_g125805_|) - (cons (cons 'imports |gx[1]#_g125806_|) '()))))) + (##unchecked-structure-set! __obj124930 __tmp125035 '15 '#f '#f)) + (let ((__tmp125039 + (cons (cons 'source |gx[1]#_g125040_|) + (cons (cons 'phi |gx[1]#_g125041_|) + (cons (cons 'imports |gx[1]#_g125042_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125694 __tmp125803 '16 '#f '#f)) - (let ((__tmp125807 - (cons (cons 'source |gx[1]#_g125808_|) - (cons (cons 'phi |gx[1]#_g125809_|) - (cons (cons 'imports |gx[1]#_g125810_|) '()))))) + (##unchecked-structure-set! __obj124930 __tmp125039 '16 '#f '#f)) + (let ((__tmp125043 + (cons (cons 'source |gx[1]#_g125044_|) + (cons (cons 'phi |gx[1]#_g125045_|) + (cons (cons 'imports |gx[1]#_g125046_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125694 __tmp125807 '17 '#f '#f)) - (let ((__tmp125811 - (cons (cons 'source |gx[1]#_g125812_|) - (cons (cons 'phi |gx[1]#_g125813_|) - (cons (cons 'imports |gx[1]#_g125814_|) '()))))) + (##unchecked-structure-set! __obj124930 __tmp125043 '17 '#f '#f)) + (let ((__tmp125047 + (cons (cons 'source |gx[1]#_g125048_|) + (cons (cons 'phi |gx[1]#_g125049_|) + (cons (cons 'imports |gx[1]#_g125050_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125694 __tmp125811 '18 '#f '#f)) + (##unchecked-structure-set! __obj124930 __tmp125047 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125694 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj124930 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125694 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj124930 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125694 '() '20 '#f '#f)) - __obj125694)) + (##unchecked-structure-set! __obj124930 '() '20 '#f '#f)) + __obj124930)) (define |gx[:0:]#export-set| - (let ((__obj125695 + (let ((__obj124931 (let () (declare (not safe)) (##structure @@ -1227,18 +1227,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj125695 + __obj124931 'gx#export-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125695 'export-set '2 '#f '#f)) + (##unchecked-structure-set! __obj124931 'export-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj125695 + __obj124931 '(source phi exports) '4 '#f @@ -1246,71 +1246,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj125695 + __obj124931 '(source phi exports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125695 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj124931 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125695 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj124931 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125695 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj124931 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125695 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj124931 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125695 '#f '11 '#f '#f)) - (let ((__tmp125815 |gx[1]#_g125816_|)) + (##unchecked-structure-set! __obj124931 '#f '11 '#f '#f)) + (let ((__tmp125051 |gx[1]#_g125052_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125695 __tmp125815 '12 '#f '#f)) - (let ((__tmp125817 |gx[1]#_g125818_|)) + (##unchecked-structure-set! __obj124931 __tmp125051 '12 '#f '#f)) + (let ((__tmp125053 |gx[1]#_g125054_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125695 __tmp125817 '13 '#f '#f)) - (let ((__tmp125819 |gx[1]#_g125820_|)) + (##unchecked-structure-set! __obj124931 __tmp125053 '13 '#f '#f)) + (let ((__tmp125055 |gx[1]#_g125056_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125695 __tmp125819 '14 '#f '#f)) - (let ((__tmp125821 - (cons (cons 'source |gx[1]#_g125822_|) - (cons (cons 'phi |gx[1]#_g125823_|) - (cons (cons 'exports |gx[1]#_g125824_|) '()))))) + (##unchecked-structure-set! __obj124931 __tmp125055 '14 '#f '#f)) + (let ((__tmp125057 + (cons (cons 'source |gx[1]#_g125058_|) + (cons (cons 'phi |gx[1]#_g125059_|) + (cons (cons 'exports |gx[1]#_g125060_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125695 __tmp125821 '15 '#f '#f)) - (let ((__tmp125825 - (cons (cons 'source |gx[1]#_g125826_|) - (cons (cons 'phi |gx[1]#_g125827_|) - (cons (cons 'exports |gx[1]#_g125828_|) '()))))) + (##unchecked-structure-set! __obj124931 __tmp125057 '15 '#f '#f)) + (let ((__tmp125061 + (cons (cons 'source |gx[1]#_g125062_|) + (cons (cons 'phi |gx[1]#_g125063_|) + (cons (cons 'exports |gx[1]#_g125064_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125695 __tmp125825 '16 '#f '#f)) - (let ((__tmp125829 - (cons (cons 'source |gx[1]#_g125830_|) - (cons (cons 'phi |gx[1]#_g125831_|) - (cons (cons 'exports |gx[1]#_g125832_|) '()))))) + (##unchecked-structure-set! __obj124931 __tmp125061 '16 '#f '#f)) + (let ((__tmp125065 + (cons (cons 'source |gx[1]#_g125066_|) + (cons (cons 'phi |gx[1]#_g125067_|) + (cons (cons 'exports |gx[1]#_g125068_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125695 __tmp125829 '17 '#f '#f)) - (let ((__tmp125833 - (cons (cons 'source |gx[1]#_g125834_|) - (cons (cons 'phi |gx[1]#_g125835_|) - (cons (cons 'exports |gx[1]#_g125836_|) '()))))) + (##unchecked-structure-set! __obj124931 __tmp125065 '17 '#f '#f)) + (let ((__tmp125069 + (cons (cons 'source |gx[1]#_g125070_|) + (cons (cons 'phi |gx[1]#_g125071_|) + (cons (cons 'exports |gx[1]#_g125072_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125695 __tmp125833 '18 '#f '#f)) + (##unchecked-structure-set! __obj124931 __tmp125069 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125695 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj124931 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125695 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj124931 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125695 '() '20 '#f '#f)) - __obj125695)) + (##unchecked-structure-set! __obj124931 '() '20 '#f '#f)) + __obj124931)) (define |gx[:0:]#import-expander| - (let ((__obj125696 + (let ((__obj124932 (let () (declare (not safe)) (##structure @@ -1339,80 +1339,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj125696 + __obj124932 'gx#import-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125696 'import-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj124932 'import-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125696 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj124932 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125696 '(e context phi) '6 '#f '#f)) - (let ((__tmp125837 (cons |gx[1]#_g125838_| '()))) + (##unchecked-structure-set! __obj124932 '(e context phi) '6 '#f '#f)) + (let ((__tmp125073 (cons |gx[1]#_g125074_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj125696 __tmp125837 '3 '#f '#f)) + (##unchecked-structure-set! __obj124932 __tmp125073 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125696 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj124932 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125696 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj124932 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125696 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj124932 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125696 ':init! '11 '#f '#f)) - (let ((__tmp125839 |gx[1]#_g125840_|)) + (##unchecked-structure-set! __obj124932 ':init! '11 '#f '#f)) + (let ((__tmp125075 |gx[1]#_g125076_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125696 __tmp125839 '12 '#f '#f)) - (let ((__tmp125841 |gx[1]#_g125842_|)) + (##unchecked-structure-set! __obj124932 __tmp125075 '12 '#f '#f)) + (let ((__tmp125077 |gx[1]#_g125078_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125696 __tmp125841 '13 '#f '#f)) - (let ((__tmp125843 |gx[1]#_g125844_|)) + (##unchecked-structure-set! __obj124932 __tmp125077 '13 '#f '#f)) + (let ((__tmp125079 |gx[1]#_g125080_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125696 __tmp125843 '14 '#f '#f)) - (let ((__tmp125845 - (cons (cons 'context |gx[1]#_g125846_|) - (cons (cons 'phi |gx[1]#_g125847_|) - (cons (cons 'e |gx[1]#_g125848_|) '()))))) + (##unchecked-structure-set! __obj124932 __tmp125079 '14 '#f '#f)) + (let ((__tmp125081 + (cons (cons 'context |gx[1]#_g125082_|) + (cons (cons 'phi |gx[1]#_g125083_|) + (cons (cons 'e |gx[1]#_g125084_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125696 __tmp125845 '15 '#f '#f)) - (let ((__tmp125849 - (cons (cons 'context |gx[1]#_g125850_|) - (cons (cons 'phi |gx[1]#_g125851_|) - (cons (cons 'e |gx[1]#_g125852_|) '()))))) + (##unchecked-structure-set! __obj124932 __tmp125081 '15 '#f '#f)) + (let ((__tmp125085 + (cons (cons 'context |gx[1]#_g125086_|) + (cons (cons 'phi |gx[1]#_g125087_|) + (cons (cons 'e |gx[1]#_g125088_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125696 __tmp125849 '16 '#f '#f)) - (let ((__tmp125853 - (cons (cons 'context |gx[1]#_g125854_|) - (cons (cons 'phi |gx[1]#_g125855_|) - (cons (cons 'e |gx[1]#_g125856_|) '()))))) + (##unchecked-structure-set! __obj124932 __tmp125085 '16 '#f '#f)) + (let ((__tmp125089 + (cons (cons 'context |gx[1]#_g125090_|) + (cons (cons 'phi |gx[1]#_g125091_|) + (cons (cons 'e |gx[1]#_g125092_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125696 __tmp125853 '17 '#f '#f)) - (let ((__tmp125857 - (cons (cons 'context |gx[1]#_g125858_|) - (cons (cons 'phi |gx[1]#_g125859_|) - (cons (cons 'e |gx[1]#_g125860_|) '()))))) + (##unchecked-structure-set! __obj124932 __tmp125089 '17 '#f '#f)) + (let ((__tmp125093 + (cons (cons 'context |gx[1]#_g125094_|) + (cons (cons 'phi |gx[1]#_g125095_|) + (cons (cons 'e |gx[1]#_g125096_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125696 __tmp125857 '18 '#f '#f)) + (##unchecked-structure-set! __obj124932 __tmp125093 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125696 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj124932 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125696 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj124932 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125696 '() '20 '#f '#f)) - __obj125696)) + (##unchecked-structure-set! __obj124932 '() '20 '#f '#f)) + __obj124932)) (define |gx[:0:]#export-expander| - (let ((__obj125697 + (let ((__obj124933 (let () (declare (not safe)) (##structure @@ -1441,80 +1441,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj125697 + __obj124933 'gx#export-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125697 'export-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj124933 'export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125697 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj124933 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125697 '(e context phi) '6 '#f '#f)) - (let ((__tmp125861 (cons |gx[1]#_g125838_| '()))) + (##unchecked-structure-set! __obj124933 '(e context phi) '6 '#f '#f)) + (let ((__tmp125097 (cons |gx[1]#_g125074_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj125697 __tmp125861 '3 '#f '#f)) + (##unchecked-structure-set! __obj124933 __tmp125097 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125697 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj124933 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125697 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj124933 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125697 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj124933 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125697 ':init! '11 '#f '#f)) - (let ((__tmp125862 |gx[1]#_g125863_|)) + (##unchecked-structure-set! __obj124933 ':init! '11 '#f '#f)) + (let ((__tmp125098 |gx[1]#_g125099_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125697 __tmp125862 '12 '#f '#f)) - (let ((__tmp125864 |gx[1]#_g125865_|)) + (##unchecked-structure-set! __obj124933 __tmp125098 '12 '#f '#f)) + (let ((__tmp125100 |gx[1]#_g125101_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125697 __tmp125864 '13 '#f '#f)) - (let ((__tmp125866 |gx[1]#_g125867_|)) + (##unchecked-structure-set! __obj124933 __tmp125100 '13 '#f '#f)) + (let ((__tmp125102 |gx[1]#_g125103_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125697 __tmp125866 '14 '#f '#f)) - (let ((__tmp125868 - (cons (cons 'context |gx[1]#_g125869_|) - (cons (cons 'phi |gx[1]#_g125870_|) - (cons (cons 'e |gx[1]#_g125871_|) '()))))) + (##unchecked-structure-set! __obj124933 __tmp125102 '14 '#f '#f)) + (let ((__tmp125104 + (cons (cons 'context |gx[1]#_g125105_|) + (cons (cons 'phi |gx[1]#_g125106_|) + (cons (cons 'e |gx[1]#_g125107_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125697 __tmp125868 '15 '#f '#f)) - (let ((__tmp125872 - (cons (cons 'context |gx[1]#_g125873_|) - (cons (cons 'phi |gx[1]#_g125874_|) - (cons (cons 'e |gx[1]#_g125875_|) '()))))) + (##unchecked-structure-set! __obj124933 __tmp125104 '15 '#f '#f)) + (let ((__tmp125108 + (cons (cons 'context |gx[1]#_g125109_|) + (cons (cons 'phi |gx[1]#_g125110_|) + (cons (cons 'e |gx[1]#_g125111_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125697 __tmp125872 '16 '#f '#f)) - (let ((__tmp125876 - (cons (cons 'context |gx[1]#_g125877_|) - (cons (cons 'phi |gx[1]#_g125878_|) - (cons (cons 'e |gx[1]#_g125879_|) '()))))) + (##unchecked-structure-set! __obj124933 __tmp125108 '16 '#f '#f)) + (let ((__tmp125112 + (cons (cons 'context |gx[1]#_g125113_|) + (cons (cons 'phi |gx[1]#_g125114_|) + (cons (cons 'e |gx[1]#_g125115_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125697 __tmp125876 '17 '#f '#f)) - (let ((__tmp125880 - (cons (cons 'context |gx[1]#_g125881_|) - (cons (cons 'phi |gx[1]#_g125882_|) - (cons (cons 'e |gx[1]#_g125883_|) '()))))) + (##unchecked-structure-set! __obj124933 __tmp125112 '17 '#f '#f)) + (let ((__tmp125116 + (cons (cons 'context |gx[1]#_g125117_|) + (cons (cons 'phi |gx[1]#_g125118_|) + (cons (cons 'e |gx[1]#_g125119_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125697 __tmp125880 '18 '#f '#f)) + (##unchecked-structure-set! __obj124933 __tmp125116 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125697 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj124933 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125697 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj124933 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125697 '() '20 '#f '#f)) - __obj125697)) + (##unchecked-structure-set! __obj124933 '() '20 '#f '#f)) + __obj124933)) (define |gx[:0:]#import-export-expander| - (let ((__obj125698 + (let ((__obj124934 (let () (declare (not safe)) (##structure @@ -1543,7 +1543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj125698 + __obj124934 'gx#import-export-expander::t '1 '#f @@ -1551,73 +1551,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj125698 + __obj124934 'import-export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125698 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj124934 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125698 '(e context phi) '6 '#f '#f)) - (let ((__tmp125884 - (cons |gx[1]#_g125885_| (cons |gx[1]#_g125886_| '())))) + (##unchecked-structure-set! __obj124934 '(e context phi) '6 '#f '#f)) + (let ((__tmp125120 + (cons |gx[1]#_g125121_| (cons |gx[1]#_g125122_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj125698 __tmp125884 '3 '#f '#f)) + (##unchecked-structure-set! __obj124934 __tmp125120 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125698 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj124934 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125698 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj124934 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125698 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj124934 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125698 ':init! '11 '#f '#f)) - (let ((__tmp125887 |gx[1]#_g125888_|)) + (##unchecked-structure-set! __obj124934 ':init! '11 '#f '#f)) + (let ((__tmp125123 |gx[1]#_g125124_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125698 __tmp125887 '12 '#f '#f)) - (let ((__tmp125889 |gx[1]#_g125890_|)) + (##unchecked-structure-set! __obj124934 __tmp125123 '12 '#f '#f)) + (let ((__tmp125125 |gx[1]#_g125126_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125698 __tmp125889 '13 '#f '#f)) - (let ((__tmp125891 |gx[1]#_g125892_|)) + (##unchecked-structure-set! __obj124934 __tmp125125 '13 '#f '#f)) + (let ((__tmp125127 |gx[1]#_g125128_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125698 __tmp125891 '14 '#f '#f)) - (let ((__tmp125893 - (cons (cons 'context |gx[1]#_g125894_|) - (cons (cons 'phi |gx[1]#_g125895_|) - (cons (cons 'e |gx[1]#_g125896_|) '()))))) + (##unchecked-structure-set! __obj124934 __tmp125127 '14 '#f '#f)) + (let ((__tmp125129 + (cons (cons 'context |gx[1]#_g125130_|) + (cons (cons 'phi |gx[1]#_g125131_|) + (cons (cons 'e |gx[1]#_g125132_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125698 __tmp125893 '15 '#f '#f)) - (let ((__tmp125897 - (cons (cons 'context |gx[1]#_g125898_|) - (cons (cons 'phi |gx[1]#_g125899_|) - (cons (cons 'e |gx[1]#_g125900_|) '()))))) + (##unchecked-structure-set! __obj124934 __tmp125129 '15 '#f '#f)) + (let ((__tmp125133 + (cons (cons 'context |gx[1]#_g125134_|) + (cons (cons 'phi |gx[1]#_g125135_|) + (cons (cons 'e |gx[1]#_g125136_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125698 __tmp125897 '16 '#f '#f)) - (let ((__tmp125901 - (cons (cons 'context |gx[1]#_g125902_|) - (cons (cons 'phi |gx[1]#_g125903_|) - (cons (cons 'e |gx[1]#_g125904_|) '()))))) + (##unchecked-structure-set! __obj124934 __tmp125133 '16 '#f '#f)) + (let ((__tmp125137 + (cons (cons 'context |gx[1]#_g125138_|) + (cons (cons 'phi |gx[1]#_g125139_|) + (cons (cons 'e |gx[1]#_g125140_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125698 __tmp125901 '17 '#f '#f)) - (let ((__tmp125905 - (cons (cons 'context |gx[1]#_g125906_|) - (cons (cons 'phi |gx[1]#_g125907_|) - (cons (cons 'e |gx[1]#_g125908_|) '()))))) + (##unchecked-structure-set! __obj124934 __tmp125137 '17 '#f '#f)) + (let ((__tmp125141 + (cons (cons 'context |gx[1]#_g125142_|) + (cons (cons 'phi |gx[1]#_g125143_|) + (cons (cons 'e |gx[1]#_g125144_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj125698 __tmp125905 '18 '#f '#f)) + (##unchecked-structure-set! __obj124934 __tmp125141 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125698 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj124934 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125698 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj124934 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125698 '() '20 '#f '#f)) - __obj125698)))) + (##unchecked-structure-set! __obj124934 '() '20 '#f '#f)) + __obj124934)))) diff --git a/src/bootstrap/gerbil/expander/root.ssxi.ss b/src/bootstrap/gerbil/expander/root.ssxi.ss index 8473121e4..e3a8a9c9f 100644 --- a/src/bootstrap/gerbil/expander/root.ssxi.ss +++ b/src/bootstrap/gerbil/expander/root.ssxi.ss @@ -13,96 +13,249 @@ package: gerbil/expander (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/expander/root))) (declare-type gx#root-context:::init!__0 (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/root))) (declare-type gx#root-context:::init! (@case-lambda (1 gx#root-context:::init!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/root)) (2 gx#root-context:::init!__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/root)))) (declare-type gx#top-context:::init!__% (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/expander/root))) (declare-type gx#top-context:::init!__0 (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/root))) (declare-type gx#top-context:::init! (@case-lambda (1 gx#top-context:::init!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/root)) (2 gx#top-context:::init!__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/root)))) (declare-type gx#expander-context::bind-core-syntax-expanders!__% (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/expander/root))) (declare-type gx#expander-context::bind-core-syntax-expanders!__0 (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/root))) (declare-type gx#expander-context::bind-core-syntax-expanders! (@case-lambda (1 gx#expander-context::bind-core-syntax-expanders!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/root)) (2 gx#expander-context::bind-core-syntax-expanders!__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/root)))) (declare-type gx#expander-context::bind-core-macro-expanders!__% (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/expander/root))) (declare-type gx#expander-context::bind-core-macro-expanders!__0 (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/root))) (declare-type gx#expander-context::bind-core-macro-expanders! (@case-lambda (1 gx#expander-context::bind-core-macro-expanders!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/root)) (2 gx#expander-context::bind-core-macro-expanders!__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/root)))) (declare-type gx#expander-context::bind-core-features! (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/expander/root)))) diff --git a/src/bootstrap/gerbil/expander/root~0.scm b/src/bootstrap/gerbil/expander/root~0.scm index b4c811e7f..bdcb6baa1 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 1712533290) + (define gerbil/expander/root::timestamp 1712573431) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,529 +262,505 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_%self128163%_ _%bind?128164%_) - (let ((_%self128167%_ _%self128163%_)) - (if (##fx< '2 (##structure-length _%self128167%_)) + (lambda (_%self127399%_ _%bind?127400%_) + (let ((_%self127403%_ _%self127399%_)) + (if (##fx< '2 (##structure-length _%self127403%_)) (begin - (##unchecked-structure-set! _%self128167%_ 'root '1 '#f '#f) + (##unchecked-structure-set! _%self127403%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self128167%_ + _%self127403%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128167%_ + _%self127403%_ '2 - (##vector-length _%self128167%_))) - (if _%bind?128164%_ + (##vector-length _%self127403%_))) + (if _%bind?127400%_ (begin - (let ((__method128222 + (let ((__method127458 (__method-ref - _%self128167%_ + _%self127403%_ 'bind-core-syntax-expanders!))) - (if __method128222 - (__method128222 _%self128167%_) + (if __method127458 + (__method127458 _%self127403%_) (error '"Missing method" - _%self128167%_ + _%self127403%_ 'bind-core-syntax-expanders!))) - (let ((__method128223 + (let ((__method127459 (__method-ref - _%self128167%_ + _%self127403%_ 'bind-core-macro-expanders!))) - (if __method128223 - (__method128223 _%self128167%_) + (if __method127459 + (__method127459 _%self127403%_) (error '"Missing method" - _%self128167%_ + _%self127403%_ 'bind-core-macro-expanders!))) - (let ((__method128224 - (__method-ref _%self128167%_ 'bind-core-features!))) - (if __method128224 - (__method128224 _%self128167%_) + (let ((__method127460 + (__method-ref _%self127403%_ 'bind-core-features!))) + (if __method127460 + (__method127460 _%self127403%_) (error '"Missing method" - _%self128167%_ + _%self127403%_ 'bind-core-features!)))) '#!void)))) (define gx#root-context:::init!__0 - (lambda (_%self128180%_) - (let ((_%bind?128182%_ '#t)) - (gx#root-context:::init!__% _%self128180%_ _%bind?128182%_)))) + (lambda (_%self127416%_) + (let ((_%bind?127418%_ '#t)) + (gx#root-context:::init!__% _%self127416%_ _%bind?127418%_)))) (define gx#root-context:::init! - (lambda _g128227_ - (let ((_g128226_ (##length _g128227_))) - (cond ((##fx= _g128226_ 1) - (apply (lambda (_%self128180%_) - (gx#root-context:::init!__0 _%self128180%_)) - _g128227_)) - ((##fx= _g128226_ 2) - (apply (lambda (_%self128184%_ _%bind?128185%_) - (gx#root-context:::init!__% - _%self128184%_ - _%bind?128185%_)) - _g128227_)) + (lambda _g127463_ + (let ((_g127462_ (##length _g127463_))) + (cond ((##fx= _g127462_ 1) + (apply gx#root-context:::init!__0 _g127463_)) + ((##fx= _g127462_ 2) + (apply gx#root-context:::init!__% _g127463_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g128227_)))))) + _g127463_)))))) (__bind-method! gx#root-context::t ':init! gx#root-context:::init! '#f) (define gx#top-context:::init!__% - (lambda (_%self128008%_ _%super128009%_) - (let () - (let* ((_%self128012%_ _%self128008%_) - (_%super128028%_ - (let ((_%$e128022%_ _%super128009%_)) - (if _%$e128022%_ - _%$e128022%_ - (let ((_%$e128025%_ (gx#core-context-root__0))) - (if _%$e128025%_ - _%$e128025%_ - (let ((__obj128225 - (##structure gx#root-context::t '#f '#f))) - (gx#root-context:::init! __obj128225) - __obj128225))))))) - (if (##fx< '5 (##structure-length _%self128012%_)) - (begin - (##unchecked-structure-set! _%self128012%_ 'top '1 '#f '#f) - (##unchecked-structure-set! - _%self128012%_ - (make-hash-table-eq) - '2 - '#f - '#f) - (##unchecked-structure-set! - _%self128012%_ - _%super128028%_ - '3 - '#f - '#f) - (##unchecked-structure-set! _%self128012%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self128012%_ '#f '5 '#f '#f) - '#!void) - (error '"struct-instance-init!: too many arguments for struct" - _%self128012%_ - '5 - (##vector-length _%self128012%_))))))) + (lambda (_%self127244%_ _%super127245%_) + (let* ((_%self127248%_ _%self127244%_) + (_%super127264%_ + (let ((_%$e127258%_ _%super127245%_)) + (if _%$e127258%_ + _%$e127258%_ + (let ((_%$e127261%_ (gx#core-context-root__0))) + (if _%$e127261%_ + _%$e127261%_ + (let ((__obj127461 + (##structure gx#root-context::t '#f '#f))) + (gx#root-context:::init! __obj127461) + __obj127461))))))) + (if (##fx< '5 (##structure-length _%self127248%_)) + (begin + (##unchecked-structure-set! _%self127248%_ 'top '1 '#f '#f) + (##unchecked-structure-set! + _%self127248%_ + (make-hash-table-eq) + '2 + '#f + '#f) + (##unchecked-structure-set! + _%self127248%_ + _%super127264%_ + '3 + '#f + '#f) + (##unchecked-structure-set! _%self127248%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self127248%_ '#f '5 '#f '#f) + '#!void) + (error '"struct-instance-init!: too many arguments for struct" + _%self127248%_ + '5 + (##vector-length _%self127248%_)))))) (define gx#top-context:::init!__0 - (lambda (_%self128033%_) - (let ((_%super128035%_ '#f)) - (gx#top-context:::init!__% _%self128033%_ _%super128035%_)))) + (lambda (_%self127269%_) + (let ((_%super127271%_ '#f)) + (gx#top-context:::init!__% _%self127269%_ _%super127271%_)))) (define gx#top-context:::init! - (lambda _g128229_ - (let ((_g128228_ (##length _g128229_))) - (cond ((##fx= _g128228_ 1) - (apply (lambda (_%self128033%_) - (gx#top-context:::init!__0 _%self128033%_)) - _g128229_)) - ((##fx= _g128228_ 2) - (apply (lambda (_%self128037%_ _%super128038%_) - (gx#top-context:::init!__% - _%self128037%_ - _%super128038%_)) - _g128229_)) + (lambda _g127465_ + (let ((_g127464_ (##length _g127465_))) + (cond ((##fx= _g127464_ 1) + (apply gx#top-context:::init!__0 _g127465_)) + ((##fx= _g127464_ 2) + (apply gx#top-context:::init!__% _g127465_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g128229_)))))) + _g127465_)))))) (__bind-method! gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_%self127728%_ _%bindings127729%_) - (let ((_%self127732%_ _%self127728%_)) + (lambda (_%self126964%_ _%bindings126965%_) + (let ((_%self126968%_ _%self126964%_)) (for-each - (lambda (_%bind127742%_) - (let* ((_%bind127743127750%_ _%bind127742%_) - (_%E127745127754%_ + (lambda (_%bind126978%_) + (let* ((_%bind126979126986%_ _%bind126978%_) + (_%E126981126990%_ (lambda () (error '"No clause matching" - _%bind127743127750%_ + _%bind126979126986%_ '([id . rest])) '#!void)) - (_%K127746127863%_ - (lambda (_%rest127757%_ _%id127758%_) + (_%K126982127099%_ + (lambda (_%rest126993%_ _%id126994%_) (gx#core-context-put! - _%self127732%_ - _%id127758%_ + _%self126968%_ + _%id126994%_ (##structure gx#syntax-binding::t - _%id127758%_ - _%id127758%_ + _%id126994%_ + _%id126994%_ '#f - (let* ((_%rest127759127770%_ _%rest127757%_) - (_%E127761127774%_ + (let* ((_%rest126995127006%_ _%rest126993%_) + (_%E126997127010%_ (lambda () (error '"No clause matching" - _%rest127759127770%_ + _%rest126995127006%_ '([key expander compiler])) '#!void)) - (_%K127762127839%_ - (lambda (_%compiler127777%_ - _%expander127778%_ - _%key127779%_) - ((let* ((_%key127780127793%_ _%key127779%_) - (_%E127786127797%_ + (_%K126998127075%_ + (lambda (_%compiler127013%_ + _%expander127014%_ + _%key127015%_) + ((let* ((_%key127016127029%_ _%key127015%_) + (_%E127022127033%_ (lambda () (error '"No clause matching" - _%key127780127793%_ + _%key127016127029%_ '(top:) '(module:) '(define:) '(special:) '(expr:)) '#!void))) - (let ((_%K127791127833%_ + (let ((_%K127027127069%_ (lambda () gx#make-top-special-form)) - (_%K127790127826%_ + (_%K127026127062%_ (lambda () gx#make-module-special-form)) - (_%K127789127818%_ + (_%K127025127054%_ (lambda () gx#make-definition-form)) - (_%K127788127810%_ + (_%K127024127046%_ (lambda () gx#make-special-form)) - (_%K127787127802%_ + (_%K127023127038%_ (lambda () gx#make-expression-form))) - (let* ((_%try-match127785127805%_ + (let* ((_%try-match127021127041%_ (lambda () - (if (##eq? _%key127780127793%_ + (if (##eq? _%key127016127029%_ 'expr:) - (_%K127787127802%_) - (_%E127786127797%_)))) - (_%try-match127784127813%_ + (_%K127023127038%_) + (_%E127022127033%_)))) + (_%try-match127020127049%_ (lambda () - (if (##eq? _%key127780127793%_ + (if (##eq? _%key127016127029%_ 'special:) - (_%K127788127810%_) - (_%try-match127785127805%_)))) - (_%try-match127783127821%_ + (_%K127024127046%_) + (_%try-match127021127041%_)))) + (_%try-match127019127057%_ (lambda () - (if (##eq? _%key127780127793%_ + (if (##eq? _%key127016127029%_ 'define:) - (_%K127789127818%_) - (_%try-match127784127813%_)))) - (_%try-match127782127829%_ + (_%K127025127054%_) + (_%try-match127020127049%_)))) + (_%try-match127018127065%_ (lambda () - (if (##eq? _%key127780127793%_ + (if (##eq? _%key127016127029%_ 'module:) - (_%K127790127826%_) - (_%try-match127783127821%_))))) - (if (##eq? _%key127780127793%_ 'top:) - (_%K127791127833%_) - (_%try-match127782127829%_))))) - _%expander127778%_ - _%id127758%_ - (let ((_%$e127836%_ _%compiler127777%_)) - (if _%$e127836%_ - _%$e127836%_ + (_%K127026127062%_) + (_%try-match127019127057%_))))) + (if (##eq? _%key127016127029%_ 'top:) + (_%K127027127069%_) + (_%try-match127018127065%_))))) + _%expander127014%_ + _%id126994%_ + (let ((_%$e127072%_ _%compiler127013%_)) + (if _%$e127072%_ + _%$e127072%_ gx#core-compile-top-error)))))) - (if (##pair? _%rest127759127770%_) - (let ((_%hd127763127842%_ - (##car _%rest127759127770%_)) - (_%tl127764127844%_ - (##cdr _%rest127759127770%_))) - (let ((_%key127847%_ _%hd127763127842%_)) - (if (##pair? _%tl127764127844%_) - (let ((_%hd127765127849%_ - (##car _%tl127764127844%_)) - (_%tl127766127851%_ - (##cdr _%tl127764127844%_))) - (let ((_%expander127854%_ - _%hd127765127849%_)) - (if (##pair? _%tl127766127851%_) - (let ((_%hd127767127856%_ - (##car _%tl127766127851%_)) - (_%tl127768127858%_ - (##cdr _%tl127766127851%_))) - (let ((_%compiler127861%_ - _%hd127767127856%_)) - (if (##null? _%tl127768127858%_) - (_%K127762127839%_ - _%compiler127861%_ - _%expander127854%_ - _%key127847%_) - (_%E127761127774%_)))) - (_%E127761127774%_)))) - (_%E127761127774%_)))) - (_%E127761127774%_)))))))) - (if (##pair? _%bind127743127750%_) - (let ((_%hd127747127866%_ (##car _%bind127743127750%_)) - (_%tl127748127868%_ (##cdr _%bind127743127750%_))) - (let* ((_%id127871%_ _%hd127747127866%_) - (_%rest127873%_ _%tl127748127868%_)) - (_%K127746127863%_ _%rest127873%_ _%id127871%_))) - (_%E127745127754%_)))) - _%bindings127729%_)))) + (if (##pair? _%rest126995127006%_) + (let ((_%hd126999127078%_ + (##car _%rest126995127006%_)) + (_%tl127000127080%_ + (##cdr _%rest126995127006%_))) + (let ((_%key127083%_ _%hd126999127078%_)) + (if (##pair? _%tl127000127080%_) + (let ((_%hd127001127085%_ + (##car _%tl127000127080%_)) + (_%tl127002127087%_ + (##cdr _%tl127000127080%_))) + (let ((_%expander127090%_ + _%hd127001127085%_)) + (if (##pair? _%tl127002127087%_) + (let ((_%hd127003127092%_ + (##car _%tl127002127087%_)) + (_%tl127004127094%_ + (##cdr _%tl127002127087%_))) + (let ((_%compiler127097%_ + _%hd127003127092%_)) + (if (##null? _%tl127004127094%_) + (_%K126998127075%_ + _%compiler127097%_ + _%expander127090%_ + _%key127083%_) + (_%E126997127010%_)))) + (_%E126997127010%_)))) + (_%E126997127010%_)))) + (_%E126997127010%_)))))))) + (if (##pair? _%bind126979126986%_) + (let ((_%hd126983127102%_ (##car _%bind126979126986%_)) + (_%tl126984127104%_ (##cdr _%bind126979126986%_))) + (let* ((_%id127107%_ _%hd126983127102%_) + (_%rest127109%_ _%tl126984127104%_)) + (_%K126982127099%_ _%rest127109%_ _%id127107%_))) + (_%E126981126990%_)))) + _%bindings126965%_)))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_%self127878%_) - (let ((_%bindings127880%_ gx#*core-syntax-expanders*)) + (lambda (_%self127114%_) + (let ((_%bindings127116%_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _%self127878%_ - _%bindings127880%_)))) + _%self127114%_ + _%bindings127116%_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g128231_ - (let ((_g128230_ (##length _g128231_))) - (cond ((##fx= _g128230_ 1) - (apply (lambda (_%self127878%_) - (gx#expander-context::bind-core-syntax-expanders!__0 - _%self127878%_)) - _g128231_)) - ((##fx= _g128230_ 2) - (apply (lambda (_%self127882%_ _%bindings127883%_) - (gx#expander-context::bind-core-syntax-expanders!__% - _%self127882%_ - _%bindings127883%_)) - _g128231_)) + (lambda _g127467_ + (let ((_g127466_ (##length _g127467_))) + (cond ((##fx= _g127466_ 1) + (apply gx#expander-context::bind-core-syntax-expanders!__0 + _g127467_)) + ((##fx= _g127466_ 2) + (apply gx#expander-context::bind-core-syntax-expanders!__% + _g127467_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g128231_)))))) + _g127467_)))))) (__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 (_%self127489%_ _%bindings127490%_) - (let ((_%self127493%_ _%self127489%_)) + (lambda (_%self126725%_ _%bindings126726%_) + (let ((_%self126729%_ _%self126725%_)) (for-each - (lambda (_%bind127503%_) - (let* ((_%bind127504127511%_ _%bind127503%_) - (_%E127506127515%_ + (lambda (_%bind126739%_) + (let* ((_%bind126740126747%_ _%bind126739%_) + (_%E126742126751%_ (lambda () (error '"No clause matching" - _%bind127504127511%_ + _%bind126740126747%_ '([id . rest])) '#!void)) - (_%K127507127583%_ - (lambda (_%rest127518%_ _%id127519%_) + (_%K126743126819%_ + (lambda (_%rest126754%_ _%id126755%_) (gx#core-context-put! - _%self127493%_ - _%id127519%_ + _%self126729%_ + _%id126755%_ (##structure gx#syntax-binding::t - _%id127519%_ - _%id127519%_ + _%id126755%_ + _%id126755%_ '#f - (let* ((_%rest127520127535%_ _%rest127518%_) - (_%E127524127539%_ + (let* ((_%rest126756126771%_ _%rest126754%_) + (_%E126760126775%_ (lambda () (error '"No clause matching" - _%rest127520127535%_ + _%rest126756126771%_ '(['=> core-id]) '([proc]) '([])) '#!void))) - (let ((_%K127529127568%_ - (lambda (_%core-id127566%_) + (let ((_%K126765126804%_ + (lambda (_%core-id126802%_) (##structure gx#rename-macro-expander::t - _%core-id127566%_))) - (_%K127526127553%_ - (lambda (_%proc127551%_) + _%core-id126802%_))) + (_%K126762126789%_ + (lambda (_%proc126787%_) (##structure gx#macro-expander::t - _%proc127551%_))) - (_%K127525127544%_ + _%proc126787%_))) + (_%K126761126780%_ (lambda () (##structure gx#reserved-expander::t - _%id127519%_)))) - (let ((_%try-match127523127547%_ + _%id126755%_)))) + (let ((_%try-match126759126783%_ (lambda () - (if (##null? _%rest127520127535%_) - (_%K127525127544%_) - (_%E127524127539%_))))) - (if (##pair? _%rest127520127535%_) - (let ((_%tl127531127573%_ - (##cdr _%rest127520127535%_)) - (_%hd127530127571%_ - (##car _%rest127520127535%_))) - (if (##eq? _%hd127530127571%_ '=>) - (if (##pair? _%tl127531127573%_) - (let ((_%tl127533127578%_ - (##cdr _%tl127531127573%_)) - (_%hd127532127576%_ - (##car _%tl127531127573%_))) - (if (##null? _%tl127533127578%_) - (let ((_%core-id127581%_ - _%hd127532127576%_)) + (if (##null? _%rest126756126771%_) + (_%K126761126780%_) + (_%E126760126775%_))))) + (if (##pair? _%rest126756126771%_) + (let ((_%tl126767126809%_ + (##cdr _%rest126756126771%_)) + (_%hd126766126807%_ + (##car _%rest126756126771%_))) + (if (##eq? _%hd126766126807%_ '=>) + (if (##pair? _%tl126767126809%_) + (let ((_%tl126769126814%_ + (##cdr _%tl126767126809%_)) + (_%hd126768126812%_ + (##car _%tl126767126809%_))) + (if (##null? _%tl126769126814%_) + (let ((_%core-id126817%_ + _%hd126768126812%_)) (##structure gx#rename-macro-expander::t - _%core-id127581%_)) - (_%E127524127539%_))) - (if (##null? _%tl127531127573%_) - (let ((_%proc127561%_ - _%hd127530127571%_)) + _%core-id126817%_)) + (_%E126760126775%_))) + (if (##null? _%tl126767126809%_) + (let ((_%proc126797%_ + _%hd126766126807%_)) (##structure gx#macro-expander::t - _%proc127561%_)) - (_%E127524127539%_))) - (if (##null? _%tl127531127573%_) - (let ((_%proc127561%_ - _%hd127530127571%_)) + _%proc126797%_)) + (_%E126760126775%_))) + (if (##null? _%tl126767126809%_) + (let ((_%proc126797%_ + _%hd126766126807%_)) (##structure gx#macro-expander::t - _%proc127561%_)) - (_%E127524127539%_)))) - (_%try-match127523127547%_)))))))))) - (if (##pair? _%bind127504127511%_) - (let ((_%hd127508127586%_ (##car _%bind127504127511%_)) - (_%tl127509127588%_ (##cdr _%bind127504127511%_))) - (let* ((_%id127591%_ _%hd127508127586%_) - (_%rest127593%_ _%tl127509127588%_)) - (_%K127507127583%_ _%rest127593%_ _%id127591%_))) - (_%E127506127515%_)))) - _%bindings127490%_)))) + _%proc126797%_)) + (_%E126760126775%_)))) + (_%try-match126759126783%_)))))))))) + (if (##pair? _%bind126740126747%_) + (let ((_%hd126744126822%_ (##car _%bind126740126747%_)) + (_%tl126745126824%_ (##cdr _%bind126740126747%_))) + (let* ((_%id126827%_ _%hd126744126822%_) + (_%rest126829%_ _%tl126745126824%_)) + (_%K126743126819%_ _%rest126829%_ _%id126827%_))) + (_%E126742126751%_)))) + _%bindings126726%_)))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_%self127598%_) - (let ((_%bindings127600%_ gx#*core-macro-expanders*)) + (lambda (_%self126834%_) + (let ((_%bindings126836%_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _%self127598%_ - _%bindings127600%_)))) + _%self126834%_ + _%bindings126836%_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g128233_ - (let ((_g128232_ (##length _g128233_))) - (cond ((##fx= _g128232_ 1) - (apply (lambda (_%self127598%_) - (gx#expander-context::bind-core-macro-expanders!__0 - _%self127598%_)) - _g128233_)) - ((##fx= _g128232_ 2) - (apply (lambda (_%self127602%_ _%bindings127603%_) - (gx#expander-context::bind-core-macro-expanders!__% - _%self127602%_ - _%bindings127603%_)) - _g128233_)) + (lambda _g127469_ + (let ((_g127468_ (##length _g127469_))) + (cond ((##fx= _g127468_ 1) + (apply gx#expander-context::bind-core-macro-expanders!__0 + _g127469_)) + ((##fx= _g127468_ 2) + (apply gx#expander-context::bind-core-macro-expanders!__% + _g127469_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g128233_)))))) + _g127469_)))))) (__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 (_%self127221%_) - (let ((_%self127224%_ _%self127221%_)) - (letrec ((_%linux-variant?127234%_ - (lambda (_%sys-type127334%_) - (let* ((_%g127335127343%_ + (lambda (_%self126457%_) + (let ((_%self126460%_ _%self126457%_)) + (letrec ((_%linux-variant?126470%_ + (lambda (_%sys-type126570%_) + (let* ((_%g126571126579%_ (__string-split - (symbol->string _%sys-type127334%_) + (symbol->string _%sys-type126570%_) '#\-)) - (_%else127337127351%_ (lambda () '#f)) - (_%K127339127356%_ - (lambda (_%rest127354%_) - (not (null? _%rest127354%_))))) - (if (##pair? _%g127335127343%_) - (let ((_%hd127340127359%_ - (##car _%g127335127343%_)) - (_%tl127341127361%_ - (##cdr _%g127335127343%_))) - (if (equal? _%hd127340127359%_ '"linux") - (let ((_%rest127364%_ _%tl127341127361%_)) - (_%K127339127356%_ _%rest127364%_)) - (_%else127337127351%_))) - (_%else127337127351%_))))) - (_%bsd-variant127235%_ - (lambda (_%sys-type127293%_) - (let ((_%sys-type-str127295%_ - (symbol->string _%sys-type127293%_))) - (let _%lp127297%_ ((_%rest127299%_ + (_%else126573126587%_ (lambda () '#f)) + (_%K126575126592%_ + (lambda (_%rest126590%_) + (not (null? _%rest126590%_))))) + (if (##pair? _%g126571126579%_) + (let ((_%hd126576126595%_ + (##car _%g126571126579%_)) + (_%tl126577126597%_ + (##cdr _%g126571126579%_))) + (if (equal? _%hd126576126595%_ '"linux") + (let ((_%rest126600%_ _%tl126577126597%_)) + (_%K126575126592%_ _%rest126600%_)) + (_%else126573126587%_))) + (_%else126573126587%_))))) + (_%bsd-variant126471%_ + (lambda (_%sys-type126529%_) + (let ((_%sys-type-str126531%_ + (symbol->string _%sys-type126529%_))) + (let _%lp126533%_ ((_%rest126535%_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_%rest127300127308%_ _%rest127299%_) - (_%else127302127316%_ (lambda () '#f)) - (_%K127304127322%_ - (lambda (_%rest127319%_ _%sys127320%_) + (let* ((_%rest126536126544%_ _%rest126535%_) + (_%else126538126552%_ (lambda () '#f)) + (_%K126540126558%_ + (lambda (_%rest126555%_ _%sys126556%_) (if (string-prefix? - _%sys127320%_ - _%sys-type-str127295%_) - _%sys127320%_ - (_%lp127297%_ _%rest127319%_))))) - (if (##pair? _%rest127300127308%_) - (let ((_%hd127305127325%_ - (##car _%rest127300127308%_)) - (_%tl127306127327%_ - (##cdr _%rest127300127308%_))) - (let* ((_%sys127330%_ _%hd127305127325%_) - (_%rest127332%_ _%tl127306127327%_)) - (_%K127304127322%_ - _%rest127332%_ - _%sys127330%_))) - (_%else127302127316%_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _%self127224%_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self127224%_) - (let* ((_%g127236127248%_ (system-type)) - (_%else127238127256%_ (lambda () '#!void)) - (_%K127240127269%_ - (lambda (_%sys-type127259%_ - _%sys-vendor127260%_ - _%sys-cpu127261%_) + _%sys126556%_ + _%sys-type-str126531%_) + _%sys126556%_ + (_%lp126533%_ _%rest126555%_))))) + (if (##pair? _%rest126536126544%_) + (let ((_%hd126541126561%_ + (##car _%rest126536126544%_)) + (_%tl126542126563%_ + (##cdr _%rest126536126544%_))) + (let* ((_%sys126566%_ _%hd126541126561%_) + (_%rest126568%_ _%tl126542126563%_)) + (_%K126540126558%_ + _%rest126568%_ + _%sys126566%_))) + (_%else126538126552%_)))))))) + (gx#core-bind-feature!__% 'gerbil '#f '0 _%self126460%_) + (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self126460%_) + (let* ((_%g126472126484%_ (system-type)) + (_%else126474126492%_ (lambda () '#!void)) + (_%K126476126505%_ + (lambda (_%sys-type126495%_ + _%sys-vendor126496%_ + _%sys-cpu126497%_) (gx#core-bind-feature!__% - _%sys-cpu127261%_ + _%sys-cpu126497%_ '#f '0 - _%self127224%_) + _%self126460%_) (gx#core-bind-feature!__% - _%sys-type127259%_ + _%sys-type126495%_ '#f '0 - _%self127224%_) - (if (_%linux-variant?127234%_ _%sys-type127259%_) - (let () - (gx#core-bind-feature!__% - (##string->symbol '"linux") - '#f - '0 - _%self127224%_)) - (let ((_%$e127264%_ - (_%bsd-variant127235%_ _%sys-type127259%_))) - (if _%$e127264%_ - ((lambda (_%sys-prefix127267%_) + _%self126460%_) + (if (_%linux-variant?126470%_ _%sys-type126495%_) + (gx#core-bind-feature!__% + (##string->symbol '"linux") + '#f + '0 + _%self126460%_) + (let ((_%$e126500%_ + (_%bsd-variant126471%_ _%sys-type126495%_))) + (if _%$e126500%_ + ((lambda (_%sys-prefix126503%_) (gx#core-bind-feature!__% (##string->symbol '"bsd") '#f '0 - _%self127224%_) + _%self126460%_) (gx#core-bind-feature!__% - (string->symbol _%sys-prefix127267%_) + (string->symbol _%sys-prefix126503%_) '#f '0 - _%self127224%_)) - _%$e127264%_) + _%self126460%_)) + _%$e126500%_) '#!void)))))) - (if (##pair? _%g127236127248%_) - (let ((_%hd127241127272%_ (##car _%g127236127248%_)) - (_%tl127242127274%_ (##cdr _%g127236127248%_))) - (let ((_%sys-cpu127277%_ _%hd127241127272%_)) - (if (##pair? _%tl127242127274%_) - (let ((_%hd127243127279%_ (##car _%tl127242127274%_)) - (_%tl127244127281%_ - (##cdr _%tl127242127274%_))) - (let ((_%sys-vendor127284%_ _%hd127243127279%_)) - (if (##pair? _%tl127244127281%_) - (let ((_%hd127245127286%_ - (##car _%tl127244127281%_)) - (_%tl127246127288%_ - (##cdr _%tl127244127281%_))) - (let ((_%sys-type127291%_ - _%hd127245127286%_)) - (if (##null? _%tl127246127288%_) - (_%K127240127269%_ - _%sys-type127291%_ - _%sys-vendor127284%_ - _%sys-cpu127277%_) + (if (##pair? _%g126472126484%_) + (let ((_%hd126477126508%_ (##car _%g126472126484%_)) + (_%tl126478126510%_ (##cdr _%g126472126484%_))) + (let ((_%sys-cpu126513%_ _%hd126477126508%_)) + (if (##pair? _%tl126478126510%_) + (let ((_%hd126479126515%_ (##car _%tl126478126510%_)) + (_%tl126480126517%_ + (##cdr _%tl126478126510%_))) + (let ((_%sys-vendor126520%_ _%hd126479126515%_)) + (if (##pair? _%tl126480126517%_) + (let ((_%hd126481126522%_ + (##car _%tl126480126517%_)) + (_%tl126482126524%_ + (##cdr _%tl126480126517%_))) + (let ((_%sys-type126527%_ + _%hd126481126522%_)) + (if (##null? _%tl126482126524%_) + (_%K126476126505%_ + _%sys-type126527%_ + _%sys-vendor126520%_ + _%sys-cpu126513%_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self127224%_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self126460%_) '#!void))))) (__bind-method! gx#expander-context::t diff --git a/src/bootstrap/gerbil/expander/stx.ssxi.ss b/src/bootstrap/gerbil/expander/stx.ssxi.ss index e9b5c375e..dad2a7a71 100644 --- a/src/bootstrap/gerbil/expander/stx.ssxi.ss +++ b/src/bootstrap/gerbil/expander/stx.ssxi.ss @@ -145,211 +145,1217 @@ package: gerbil/expander (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#identifier-quote? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#sealed-syntax? (@lambda 1 #f)) - (declare-type gx#sealed-syntax-unwrap (@lambda 1 #f)) - (declare-type gx#syntax-e (@lambda 1 #f)) - (declare-type gx#syntax->datum (@lambda 1 #f)) - (declare-type gx#datum->syntax__% (@lambda 4 #f)) - (declare-type gx#datum->syntax__0 (@lambda 2 #f)) - (declare-type gx#datum->syntax__1 (@lambda 3 #f)) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#sealed-syntax? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#sealed-syntax-unwrap + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#syntax-e + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#syntax->datum + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#datum->syntax__% + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#datum->syntax__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#datum->syntax__1 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#datum->syntax (@case-lambda - (2 gx#datum->syntax__0) - (3 gx#datum->syntax__1) - (4 gx#datum->syntax__%))) - (declare-type gx#stx-unwrap__% (@lambda 2 #f)) - (declare-type gx#stx-unwrap__0 (@lambda 1 #f)) + (2 + gx#datum->syntax__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx)) + (3 + gx#datum->syntax__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx)) + (4 + gx#datum->syntax__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx)))) + (declare-type + gx#stx-unwrap__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-unwrap__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-unwrap - (@case-lambda (1 gx#stx-unwrap__0) (2 gx#stx-unwrap__%))) + (@case-lambda + (1 + gx#stx-unwrap__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx)) + (2 + gx#stx-unwrap__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx)))) (declare-type gx#stx-wrap (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-rewrap (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#stx-apply-mark (@lambda 2 #f)) - (declare-type gx#apply-mark (@lambda 2 #f)) - (declare-type gx#stx-e (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-apply-mark + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#apply-mark + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-e + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-source (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#stx-wrap-source (@lambda 2 #f)) - (declare-type gx#stx-datum? (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-wrap-source + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-datum? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#self-quoting? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-boolean? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-keyword? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-char? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-number? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-fixnum? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-string? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-null? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-pair? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#stx-list? (@lambda 1 #f)) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-list? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-pair/null? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-vector? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-box? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-eq? (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-eqv? (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-equal? (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-false? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#stx-identifier (@lambda (1) #f)) - (declare-type gx#stx-identifier-marks (@lambda 1 #f)) - (declare-type gx#stx-identifier-marks* (@lambda 1 #f)) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-identifier + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-identifier-marks + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-identifier-marks* + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-identifier-context (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#identifier-list? (@lambda 1 #f)) - (declare-type gx#genident__% (@lambda 2 #f)) - (declare-type gx#genident__0 (@lambda 0 #f)) - (declare-type gx#genident__1 (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#identifier-list? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#genident__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#genident__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#genident__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#genident - (@case-lambda (0 gx#genident__0) (1 gx#genident__1) (2 gx#genident__%))) - (declare-type gx#gentemps (@lambda 1 #f)) - (declare-type gx#syntax->list (@lambda 1 #f)) + (@case-lambda + (0 + gx#genident__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx)) + (1 + gx#genident__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx)) + (2 + gx#genident__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx)))) + (declare-type + gx#gentemps + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#syntax->list + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-car (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-cdr (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#stx-length (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-length + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-for-each - (@case-lambda (2 gx#stx-for-each1) (3 gx#stx-for-each2))) - (declare-type gx#stx-for-each1 (@lambda 2 #f)) - (declare-type gx#stx-for-each2 (@lambda 3 #f)) - (declare-type gx#stx-map (@case-lambda (2 gx#stx-map1) (3 gx#stx-map2))) - (declare-type gx#stx-map1 (@lambda 2 #f)) - (declare-type gx#stx-map2 (@lambda 3 #f)) - (declare-type gx#stx-andmap (@lambda 2 #f)) - (declare-type gx#stx-ormap (@lambda 2 #f)) - (declare-type gx#stx-foldl (@lambda 3 #f)) - (declare-type gx#stx-foldr (@lambda 3 #f)) - (declare-type gx#stx-reverse (@lambda 1 #f)) - (declare-type gx#stx-last (@lambda 1 #f)) - (declare-type gx#stx-last-pair (@lambda 1 #f)) - (declare-type gx#stx-list-tail (@lambda 2 #f)) + (@case-lambda + (2 + gx#stx-for-each1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx)) + (3 + gx#stx-for-each2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx)))) + (declare-type + gx#stx-for-each1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-for-each2 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-map + (@case-lambda + (2 + gx#stx-map1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx)) + (3 + gx#stx-map2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx)))) + (declare-type + gx#stx-map1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-map2 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-andmap + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-ormap + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-foldl + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-foldr + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-reverse + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-last + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-last-pair + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-list-tail + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-list-ref (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#stx-plist?__% (@lambda 2 #f)) - (declare-type gx#stx-plist?__0 (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-plist?__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-plist?__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-plist? - (@case-lambda (1 gx#stx-plist?__0) (2 gx#stx-plist?__%))) - (declare-type gx#stx-getq__% (@lambda 3 #f)) - (declare-type gx#stx-getq__0 (@lambda 2 #f)) + (@case-lambda + (1 + gx#stx-plist?__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx)) + (2 + gx#stx-plist?__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx)))) + (declare-type + gx#stx-getq__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) + (declare-type + gx#stx-getq__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))) (declare-type gx#stx-getq - (@case-lambda (2 gx#stx-getq__0) (3 gx#stx-getq__%)))) + (@case-lambda + (2 + gx#stx-getq__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx)) + (3 + gx#stx-getq__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stx))))) diff --git a/src/bootstrap/gerbil/expander/stxcase.ssxi.ss b/src/bootstrap/gerbil/expander/stxcase.ssxi.ss index 28ffb8e8f..d116be3ba 100644 --- a/src/bootstrap/gerbil/expander/stxcase.ssxi.ss +++ b/src/bootstrap/gerbil/expander/stxcase.ssxi.ss @@ -49,24 +49,188 @@ package: gerbil/expander (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) - (declare-type gx#macro-expand-syntax (@lambda 1 #f)) - (declare-type gx#macro-expand-syntax-case__% (@lambda 4 #f)) - (declare-type gx#macro-expand-syntax-case__0 (@lambda 1 #f)) - (declare-type gx#macro-expand-syntax-case__1 (@lambda 2 #f)) - (declare-type gx#macro-expand-syntax-case__2 (@lambda 3 #f)) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/expander/stxcase))) + (declare-type + gx#macro-expand-syntax + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stxcase))) + (declare-type + gx#macro-expand-syntax-case__% + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stxcase))) + (declare-type + gx#macro-expand-syntax-case__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stxcase))) + (declare-type + gx#macro-expand-syntax-case__1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stxcase))) + (declare-type + gx#macro-expand-syntax-case__2 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stxcase))) (declare-type gx#macro-expand-syntax-case (@case-lambda - (1 gx#macro-expand-syntax-case__0) - (2 gx#macro-expand-syntax-case__1) - (3 gx#macro-expand-syntax-case__2) - (4 gx#macro-expand-syntax-case__%))) + (1 + gx#macro-expand-syntax-case__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stxcase)) + (2 + gx#macro-expand-syntax-case__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stxcase)) + (3 + gx#macro-expand-syntax-case__2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stxcase)) + (4 + gx#macro-expand-syntax-case__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stxcase)))) (declare-type gx#syntax-local-pattern? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#syntax-check-splice-targets (@lambda (1) #f)) - (declare-type gx#syntax-split-splice (@lambda 2 #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stxcase))) + (declare-type + gx#syntax-check-splice-targets + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stxcase))) + (declare-type + gx#syntax-split-splice + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/stxcase)))) diff --git a/src/bootstrap/gerbil/expander/stxcase~0.scm b/src/bootstrap/gerbil/expander/stxcase~0.scm index 0e0da1268..2faf90485 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 1712533290) + (define gerbil/expander/stxcase::timestamp 1712573431) (begin (define gx#syntax-pattern::t - (let ((__tmp129629 (list gx#expander::t)) - (__tmp129628 (cons (cons 'struct: '#t) '()))) + (let ((__tmp128865 (list gx#expander::t)) + (__tmp128864 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gx#syntax-pattern::t 'syntax-pattern - __tmp129629 + __tmp128865 '(id depth) - __tmp129628 + __tmp128864 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (__make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _%$args129625%_ - (apply make-instance gx#syntax-pattern::t _%$args129625%_))) + (lambda _%$args128861%_ + (apply make-instance gx#syntax-pattern::t _%$args128861%_))) (define gx#syntax-pattern-id (let () (declare (not safe)) @@ -69,13 +69,13 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gx#syntax-pattern::t 'e))) (define gx#syntax-pattern::apply-macro-expander - (lambda (_%self129611%_ _%stx129612%_) - (let ((_%self129615%_ _%self129611%_)) + (lambda (_%self128847%_ _%stx128848%_) + (let ((_%self128851%_ _%self128847%_)) (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _%stx129612%_)))) + _%stx128848%_)))) (let () (declare (not safe)) (__bind-method! @@ -84,3005 +84,2652 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_%stx129077%_) - (letrec ((_%generate129079%_ - (lambda (_%e129319%_) - (letrec ((_%BUG129321%_ - (lambda (_%q129486%_) + (lambda (_%stx128313%_) + (letrec ((_%generate128315%_ + (lambda (_%e128555%_) + (letrec ((_%BUG128557%_ + (lambda (_%q128722%_) (let () (declare (not safe)) (error '"BUG: syntax; generate" - _%stx129077%_ - _%e129319%_ - _%q129486%_)))) - (_%local-pattern-e129322%_ - (lambda (_%pat129484%_) - (let ((__tmp129630 + _%stx128313%_ + _%e128555%_ + _%q128722%_)))) + (_%local-pattern-e128558%_ + (lambda (_%pat128720%_) + (let ((__tmp128866 (##structure-ref - _%pat129484%_ + _%pat128720%_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp129630)))) - (_%getvar129323%_ - (lambda (_%q129481%_ _%vars129482%_) + (gx#syntax-local-rewrap __tmp128866)))) + (_%getvar128559%_ + (lambda (_%q128717%_ _%vars128718%_) (let () (declare (not safe)) (agetq__% - _%q129481%_ - _%vars129482%_ - _%BUG129321%_)))) - (_%getarg129324%_ - (lambda (_%arg129447%_ _%vars129448%_) - (let* ((_%arg129449129456%_ _%arg129447%_) - (_%E129451129460%_ + _%q128717%_ + _%vars128718%_ + _%BUG128557%_)))) + (_%getarg128560%_ + (lambda (_%arg128683%_ _%vars128684%_) + (let* ((_%arg128685128692%_ _%arg128683%_) + (_%E128687128696%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arg129449129456%_ + _%arg128685128692%_ '([tag . e]))) '#!void)) - (_%K129452129469%_ - (lambda (_%e129463%_ _%tag129464%_) - (let ((_%$e129466%_ _%tag129464%_)) - (if (eq? 'ref _%$e129466%_) - (let () - (declare (not safe)) - (_%getvar129323%_ - _%e129463%_ - _%vars129448%_)) - (if (eq? 'pattern _%$e129466%_) - (let () - (declare (not safe)) - (_%local-pattern-e129322%_ - _%e129463%_)) - (let () - (declare (not safe)) - (_%BUG129321%_ - _%arg129447%_)))))))) + (_%K128688128705%_ + (lambda (_%e128699%_ _%tag128700%_) + (let ((_%$e128702%_ _%tag128700%_)) + (if (eq? 'ref _%$e128702%_) + (_%getvar128559%_ + _%e128699%_ + _%vars128684%_) + (if (eq? 'pattern _%$e128702%_) + (_%local-pattern-e128558%_ + _%e128699%_) + (_%BUG128557%_ + _%arg128683%_))))))) (if (let () (declare (not safe)) - (##pair? _%arg129449129456%_)) - (let ((_%hd129453129472%_ + (##pair? _%arg128685128692%_)) + (let ((_%hd128689128708%_ (let () (declare (not safe)) - (##car _%arg129449129456%_))) - (_%tl129454129474%_ + (##car _%arg128685128692%_))) + (_%tl128690128710%_ (let () (declare (not safe)) - (##cdr _%arg129449129456%_)))) - (let* ((_%tag129477%_ - _%hd129453129472%_) - (_%e129479%_ - _%tl129454129474%_)) - (declare (not safe)) - (_%K129452129469%_ - _%e129479%_ - _%tag129477%_))) - (let () - (declare (not safe)) - (_%E129451129460%_))))))) - (let _%recur129326%_ ((_%e129328%_ _%e129319%_) - (_%vars129329%_ '())) - (let* ((_%e129330129337%_ _%e129328%_) - (_%E129332129341%_ + (##cdr _%arg128685128692%_)))) + (let* ((_%tag128713%_ + _%hd128689128708%_) + (_%e128715%_ + _%tl128690128710%_)) + (_%K128688128705%_ + _%e128715%_ + _%tag128713%_))) + (_%E128687128696%_)))))) + (let _%recur128562%_ ((_%e128564%_ _%e128555%_) + (_%vars128565%_ '())) + (let* ((_%e128566128573%_ _%e128564%_) + (_%E128568128577%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e129330129337%_ + _%e128566128573%_ '([tag . body]))) '#!void)) - (_%K129333129435%_ - (lambda (_%body129344%_ _%tag129345%_) - (let ((_%$e129347%_ _%tag129345%_)) - (if (eq? 'datum _%$e129347%_) + (_%K128569128671%_ + (lambda (_%body128580%_ _%tag128581%_) + (let ((_%$e128583%_ _%tag128581%_)) + (if (eq? 'datum _%$e128583%_) (let () (declare (not safe)) - (gx#core-list 'quote _%body129344%_)) - (if (eq? 'term _%$e129347%_) - (let ((_%id129350%_ + (gx#core-list 'quote _%body128580%_)) + (if (eq? 'term _%$e128583%_) + (let ((_%id128586%_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _%body129344%_)))) + _%body128580%_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id129350%_ + _%id128586%_ 'gx#identifier-wrap::t)) - (let ((_%marks129353%_ + (let ((_%marks128589%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%id129350%_ + _%id128586%_ '3 '#f '#f)))) - (if (let () - (declare (not safe)) - (null? _%marks129353%_)) - (let ((__tmp129631 + (if (null? _%marks128589%_) + (let ((__tmp128867 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _%body129344%_)))) + (gx#core-list 'quote _%body128580%_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp129631)) - (let ((__tmp129633 + (gx#core-list 'datum->syntax '#f __tmp128867)) + (let ((__tmp128869 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _%body129344%_))) - (__tmp129632 + (gx#core-list 'quote-syntax _%body128580%_))) + (__tmp128868 (let () (declare (not safe)) - (gx#core-list 'quote _%body129344%_)))) + (gx#core-list 'quote _%body128580%_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp129633 - __tmp129632 + __tmp128869 + __tmp128868 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id129350%_ + _%id128586%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _%body129344%_)) - (let () - (declare (not safe)) - (_%BUG129321%_ - _%e129328%_))))) - (if (eq? 'pattern _%$e129347%_) - (let () - (declare (not safe)) - (_%local-pattern-e129322%_ - _%body129344%_)) - (if (eq? 'ref _%$e129347%_) - (let () - (declare (not safe)) - (_%getvar129323%_ - _%body129344%_ - _%vars129329%_)) + _%body128580%_)) + (_%BUG128557%_ + _%e128564%_)))) + (if (eq? 'pattern _%$e128583%_) + (_%local-pattern-e128558%_ + _%body128580%_) + (if (eq? 'ref _%$e128583%_) + (_%getvar128559%_ + _%body128580%_ + _%vars128565%_) (if (eq? 'cons - _%$e129347%_) - (let ((__tmp129636 - (let ((__tmp129637 + _%$e128583%_) + (let ((__tmp128871 + (_%recur128562%_ + (car _%body128580%_) + _%vars128565%_)) + (__tmp128870 + (_%recur128562%_ + (cdr _%body128580%_) + _%vars128565%_))) + (declare (not safe)) + (gx#core-list + 'cons + __tmp128871 + __tmp128870)) + (if (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _%body129344%_))) - (declare (not safe)) - (_%recur129326%_ __tmp129637 _%vars129329%_))) - (__tmp129634 - (let ((__tmp129635 (cdr _%body129344%_))) - (declare (not safe)) - (_%recur129326%_ __tmp129635 _%vars129329%_)))) - (declare (not safe)) - (gx#core-list 'cons __tmp129636 __tmp129634)) - (if (eq? 'vector _%$e129347%_) - (let ((__tmp129638 - (let () - (declare (not safe)) - (_%recur129326%_ _%body129344%_ _%vars129329%_)))) + _%$e128583%_) + (let ((__tmp128872 + (_%recur128562%_ _%body128580%_ _%vars128565%_))) (declare (not safe)) - (gx#core-list 'list->vector __tmp129638)) - (if (eq? 'box _%$e129347%_) - (let ((__tmp129639 - (let () - (declare (not safe)) - (_%recur129326%_ - _%body129344%_ - _%vars129329%_)))) + (gx#core-list 'list->vector __tmp128872)) + (if (eq? 'box _%$e128583%_) + (let ((__tmp128873 + (_%recur128562%_ + _%body128580%_ + _%vars128565%_))) (declare (not safe)) - (gx#core-list 'box __tmp129639)) - (if (eq? 'splice _%$e129347%_) - (let* ((_%body129356129367%_ _%body129344%_) - (_%E129358129371%_ + (gx#core-list 'box __tmp128873)) + (if (eq? 'splice _%$e128583%_) + (let* ((_%body128592128603%_ _%body128580%_) + (_%E128594128607%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body129356129367%_ + _%body128592128603%_ '([depth hd iv . args]))) '#!void)) - (_%K129359129409%_ - (lambda (_%args129374%_ - _%iv129375%_ - _%hd129376%_ - _%depth129377%_) - (let* ((_%targets129383%_ - (map (lambda (_%g129378129380%_) - (let () - (declare (not safe)) - (_%getarg129324%_ - _%g129378129380%_ - _%vars129329%_))) - _%args129374%_)) - (_%fold-in129385%_ + (_%K128595128645%_ + (lambda (_%args128610%_ + _%iv128611%_ + _%hd128612%_ + _%depth128613%_) + (let* ((_%targets128619%_ + (map (lambda (_%g128614128616%_) + (_%getarg128560%_ + _%g128614128616%_ + _%vars128565%_)) + _%args128610%_)) + (_%fold-in128621%_ (let () (declare (not safe)) - (gx#gentemps _%args129374%_))) - (_%fold-out129387%_ + (gx#gentemps _%args128610%_))) + (_%fold-out128623%_ (let () (declare (not safe)) (gx#genident__0))) - (_%lambda-args129389%_ - (let ((__tmp129640 - (cons _%fold-out129387%_ + (_%lambda-args128625%_ + (let ((__tmp128874 + (cons _%fold-out128623%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp129640 - _%fold-in129385%_))) - (_%lambda-body129406%_ + __tmp128874 + _%fold-in128621%_))) + (_%lambda-body128642%_ (if (let () (declare (not safe)) - (##fx> _%depth129377%_ '1)) - (let ((_%r-args129397%_ - (map (lambda (_%arg129391%_) + (##fx> _%depth128613%_ '1)) + (let ((_%r-args128633%_ + (map (lambda (_%arg128627%_) (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _%arg129391%_))) - _%args129374%_)) - (_%r-vars129398%_ - (let ((__tmp129641 - (lambda (_%arg129393%_ _%var129394%_ _%r129395%_) - (cons (cons (cdr _%arg129393%_) _%var129394%_) - _%r129395%_)))) + (cdr _%arg128627%_))) + _%args128610%_)) + (_%r-vars128634%_ + (let ((__tmp128875 + (lambda (_%arg128629%_ _%var128630%_ _%r128631%_) + (cons (cons (cdr _%arg128629%_) _%var128630%_) + _%r128631%_)))) (declare (not safe)) (__foldr2 - __tmp129641 - _%vars129329%_ - _%args129374%_ - _%fold-in129385%_)))) + __tmp128875 + _%vars128565%_ + _%args128610%_ + _%fold-in128621%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp129642 - (let ((__tmp129643 + (_%recur128562%_ + (cons 'splice + (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129647 - (let () - (declare (not safe)) - (##fx- _%depth129377%_ '1))) - (__tmp129644 - (let ((__tmp129645 - (let ((__tmp129646 - (cons 'var _%fold-out129387%_))) - (declare (not safe)) - (cons __tmp129646 - _%r-args129397%_)))) - (declare (not safe)) - (cons _%hd129376%_ __tmp129645)))) - (declare (not safe)) - (cons __tmp129647 __tmp129644)))) - (declare (not safe)) - (cons 'splice __tmp129643)))) - (declare (not safe)) - (_%recur129326%_ __tmp129642 _%r-vars129398%_))) + (declare (not safe)) + (##fx- _%depth128613%_ '1)) + (cons _%hd128612%_ + (cons (cons 'var _%fold-out128623%_) + _%r-args128633%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%hd-vars129404%_ - (let ((__tmp129648 + _%r-vars128634%_)) + (let* ((_%hd-vars128640%_ + (let ((__tmp128876 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%arg129400%_ _%var129401%_ _%r129402%_) - (cons (cons (cdr _%arg129400%_) _%var129401%_) - _%r129402%_)))) + (lambda (_%arg128636%_ _%var128637%_ _%r128638%_) + (cons (cons (cdr _%arg128636%_) _%var128637%_) + _%r128638%_)))) (declare (not safe)) (__foldr2 - __tmp129648 - _%vars129329%_ - _%args129374%_ - _%fold-in129385%_))) - (__tmp129649 - (let () - (declare (not safe)) - (_%recur129326%_ _%hd129376%_ _%hd-vars129404%_)))) + __tmp128876 + _%vars128565%_ + _%args128610%_ + _%fold-in128621%_))) + (__tmp128877 + (_%recur128562%_ _%hd128612%_ _%hd-vars128640%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp129649 - _%fold-out129387%_))))) - (let ((__tmp129653 - (if (let ((__tmp129654 + __tmp128877 + _%fold-out128623%_))))) + (let ((__tmp128881 + (if (let ((__tmp128882 (let () (declare (not safe)) (##length - _%targets129383%_)))) + _%targets128619%_)))) (declare (not safe)) - (##fx> __tmp129654 '1)) + (##fx> __tmp128882 '1)) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _%targets129383%_)) + _%targets128619%_)) '#!void)) - (__tmp129650 - (let ((__tmp129652 + (__tmp128878 + (let ((__tmp128880 (let () (declare (not safe)) (gx#core-list 'lambda% - _%lambda-args129389%_ - _%lambda-body129406%_))) - (__tmp129651 - (let () - (declare (not safe)) - (_%recur129326%_ - _%iv129375%_ - _%vars129329%_)))) + _%lambda-args128625%_ + _%lambda-body128642%_))) + (__tmp128879 + (_%recur128562%_ + _%iv128611%_ + _%vars128565%_))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp129652 - __tmp129651 - _%targets129383%_)))) + __tmp128880 + __tmp128879 + _%targets128619%_)))) (declare (not safe)) (gx#core-list 'begin - __tmp129653 - __tmp129650)))))) + __tmp128881 + __tmp128878)))))) (if (let () (declare (not safe)) - (##pair? _%body129356129367%_)) - (let ((_%hd129360129412%_ + (##pair? _%body128592128603%_)) + (let ((_%hd128596128648%_ (let () (declare (not safe)) - (##car _%body129356129367%_))) - (_%tl129361129414%_ + (##car _%body128592128603%_))) + (_%tl128597128650%_ (let () (declare (not safe)) - (##cdr _%body129356129367%_)))) - (let ((_%depth129417%_ _%hd129360129412%_)) + (##cdr _%body128592128603%_)))) + (let ((_%depth128653%_ _%hd128596128648%_)) (if (let () (declare (not safe)) - (##pair? _%tl129361129414%_)) - (let ((_%hd129362129419%_ + (##pair? _%tl128597128650%_)) + (let ((_%hd128598128655%_ (let () (declare (not safe)) - (##car _%tl129361129414%_))) - (_%tl129363129421%_ + (##car _%tl128597128650%_))) + (_%tl128599128657%_ (let () (declare (not safe)) - (##cdr _%tl129361129414%_)))) - (let ((_%hd129424%_ - _%hd129362129419%_)) + (##cdr _%tl128597128650%_)))) + (let ((_%hd128660%_ + _%hd128598128655%_)) (if (let () (declare (not safe)) - (##pair? _%tl129363129421%_)) - (let ((_%hd129364129426%_ + (##pair? _%tl128599128657%_)) + (let ((_%hd128600128662%_ (let () (declare (not safe)) - (##car _%tl129363129421%_))) - (_%tl129365129428%_ + (##car _%tl128599128657%_))) + (_%tl128601128664%_ (let () (declare (not safe)) - (##cdr _%tl129363129421%_)))) - (let* ((_%iv129431%_ - _%hd129364129426%_) - (_%args129433%_ - _%tl129365129428%_)) - (declare (not safe)) - (_%K129359129409%_ - _%args129433%_ - _%iv129431%_ - _%hd129424%_ - _%depth129417%_))) - (let () - (declare (not safe)) - (_%E129358129371%_))))) - (let () - (declare (not safe)) - (_%E129358129371%_))))) - (let () - (declare (not safe)) - (_%E129358129371%_)))) - (if (eq? 'var _%$e129347%_) - _%body129344%_ - (let () - (declare (not safe)) - (_%BUG129321%_ _%e129328%_))))))))))))))) + (##cdr _%tl128599128657%_)))) + (let* ((_%iv128667%_ + _%hd128600128662%_) + (_%args128669%_ + _%tl128601128664%_)) + (_%K128595128645%_ + _%args128669%_ + _%iv128667%_ + _%hd128660%_ + _%depth128653%_))) + (_%E128594128607%_)))) + (_%E128594128607%_)))) + (_%E128594128607%_))) + (if (eq? 'var _%$e128583%_) + _%body128580%_ + (_%BUG128557%_ _%e128564%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%e129330129337%_)) - (let ((_%hd129334129438%_ + (##pair? _%e128566128573%_)) + (let ((_%hd128570128674%_ (let () (declare (not safe)) - (##car _%e129330129337%_))) - (_%tl129335129440%_ + (##car _%e128566128573%_))) + (_%tl128571128676%_ (let () (declare (not safe)) - (##cdr _%e129330129337%_)))) - (let* ((_%tag129443%_ _%hd129334129438%_) - (_%body129445%_ _%tl129335129440%_)) - (declare (not safe)) - (_%K129333129435%_ - _%body129445%_ - _%tag129443%_))) - (let () - (declare (not safe)) - (_%E129332129341%_)))))))) - (_%parse129080%_ - (lambda (_%e129121%_) - (letrec ((_%make-cons129123%_ - (lambda (_%hd129311%_ _%tl129312%_) - (let ((_g129655_ _%hd129311%_) - (_g129657_ _%tl129312%_)) + (##cdr _%e128566128573%_)))) + (let* ((_%tag128679%_ _%hd128570128674%_) + (_%body128681%_ _%tl128571128676%_)) + (_%K128569128671%_ + _%body128681%_ + _%tag128679%_))) + (_%E128568128577%_))))))) + (_%parse128316%_ + (lambda (_%e128357%_) + (letrec ((_%make-cons128359%_ + (lambda (_%hd128547%_ _%tl128548%_) + (let ((_g128883_ _%hd128547%_) + (_g128885_ _%tl128548%_)) (begin - (let ((_g129656_ + (let ((_g128884_ (let () (declare (not safe)) - (if (##values? _g129655_) - (##vector-length _g129655_) + (if (##values? _g128883_) + (##vector-length _g128883_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129656_ 2))) + (##fx= _g128884_ 2))) (error "Context expects 2 values" - _g129656_))) - (let ((_g129658_ + _g128884_))) + (let ((_g128886_ (let () (declare (not safe)) - (if (##values? _g129657_) - (##vector-length _g129657_) + (if (##values? _g128885_) + (##vector-length _g128885_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129658_ 2))) + (##fx= _g128886_ 2))) (error "Context expects 2 values" - _g129658_))) - (let ((_%hd-e129314%_ + _g128886_))) + (let ((_%hd-e128550%_ (let () (declare (not safe)) - (##vector-ref _g129655_ 0))) - (_%hd-vars129315%_ + (##vector-ref _g128883_ 0))) + (_%hd-vars128551%_ (let () (declare (not safe)) - (##vector-ref _g129655_ 1)))) - (let ((_%tl-e129316%_ + (##vector-ref _g128883_ 1)))) + (let ((_%tl-e128552%_ (let () (declare (not safe)) - (##vector-ref _g129657_ 0))) - (_%tl-vars129317%_ + (##vector-ref _g128885_ 0))) + (_%tl-vars128553%_ (let () (declare (not safe)) - (##vector-ref _g129657_ 1)))) - (values (let ((__tmp129659 - (let () - (declare (not safe)) - (cons _%hd-e129314%_ - _%tl-e129316%_)))) - (declare (not safe)) - (cons 'cons __tmp129659)) - (append _%hd-vars129315%_ - _%tl-vars129317%_)))))))) - (_%make-splice129124%_ - (lambda (_%where129247%_ - _%depth129248%_ - _%hd129249%_ - _%tl129250%_) - (let ((_g129660_ _%hd129249%_) - (_g129662_ _%tl129250%_)) + (##vector-ref _g128885_ 1)))) + (values (cons 'cons + (cons _%hd-e128550%_ + _%tl-e128552%_)) + (append _%hd-vars128551%_ + _%tl-vars128553%_)))))))) + (_%make-splice128360%_ + (lambda (_%where128483%_ + _%depth128484%_ + _%hd128485%_ + _%tl128486%_) + (let ((_g128887_ _%hd128485%_) + (_g128889_ _%tl128486%_)) (begin - (let ((_g129661_ + (let ((_g128888_ (let () (declare (not safe)) - (if (##values? _g129660_) - (##vector-length _g129660_) + (if (##values? _g128887_) + (##vector-length _g128887_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129661_ 2))) + (##fx= _g128888_ 2))) (error "Context expects 2 values" - _g129661_))) - (let ((_g129663_ + _g128888_))) + (let ((_g128890_ (let () (declare (not safe)) - (if (##values? _g129662_) - (##vector-length _g129662_) + (if (##values? _g128889_) + (##vector-length _g128889_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129663_ 2))) + (##fx= _g128890_ 2))) (error "Context expects 2 values" - _g129663_))) - (let ((_%hd-e129252%_ + _g128890_))) + (let ((_%hd-e128488%_ (let () (declare (not safe)) - (##vector-ref _g129660_ 0))) - (_%hd-vars129253%_ + (##vector-ref _g128887_ 0))) + (_%hd-vars128489%_ (let () (declare (not safe)) - (##vector-ref _g129660_ 1)))) - (let ((_%tl-e129254%_ + (##vector-ref _g128887_ 1)))) + (let ((_%tl-e128490%_ (let () (declare (not safe)) - (##vector-ref _g129662_ 0))) - (_%tl-vars129255%_ + (##vector-ref _g128889_ 0))) + (_%tl-vars128491%_ (let () (declare (not safe)) - (##vector-ref _g129662_ 1)))) - (let _%lp129257%_ ((_%rest129259%_ - _%hd-vars129253%_) - (_%targets129260%_ + (##vector-ref _g128889_ 1)))) + (let _%lp128493%_ ((_%rest128495%_ + _%hd-vars128489%_) + (_%targets128496%_ '()) - (_%vars129261%_ - _%tl-vars129255%_)) - (let* ((_%rest129262129272%_ - _%rest129259%_) - (_%else129264129280%_ + (_%vars128497%_ + _%tl-vars128491%_)) + (let* ((_%rest128498128508%_ + _%rest128495%_) + (_%else128500128516%_ (lambda () - (if (let () - (declare (not safe)) - (null? _%targets129260%_)) + (if (null? _%targets128496%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx129077%_ - _%where129247%_)) - (values (let ((__tmp129664 + _%stx128313%_ + _%where128483%_)) + (values (cons 'splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129665 - (let ((__tmp129666 - (let () - (declare (not safe)) - (cons _%tl-e129254%_ - _%targets129260%_)))) - (declare (not safe)) - (cons _%hd-e129252%_ __tmp129666)))) - (declare (not safe)) - (cons _%depth129248%_ __tmp129665)))) - (declare (not safe)) - (cons 'splice __tmp129664)) - _%vars129261%_)))) + (cons _%depth128484%_ + (cons _%hd-e128488%_ + (cons _%tl-e128490%_ + _%targets128496%_)))) + _%vars128497%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K129266129292%_ - (lambda (_%rest129283%_ - _%hd-pat129284%_ - _%hd-depth*129285%_) - (let ((_%hd-depth129287%_ - (fx- _%hd-depth*129285%_ - _%depth129248%_))) + (_%K128502128528%_ + (lambda (_%rest128519%_ + _%hd-pat128520%_ + _%hd-depth*128521%_) + (let ((_%hd-depth128523%_ + (fx- _%hd-depth*128521%_ + _%depth128484%_))) (if (let () (declare (not safe)) (##fxpositive? - _%hd-depth129287%_)) - (let ((__tmp129668 + _%hd-depth128523%_)) + (_%lp128493%_ + _%rest128519%_ + (cons (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons 'ref _%hd-pat129284%_) _%targets129260%_)) - (__tmp129667 - (cons (cons _%hd-depth129287%_ _%hd-pat129284%_) - _%vars129261%_))) - (declare (not safe)) - (_%lp129257%_ _%rest129283%_ __tmp129668 __tmp129667)) + _%hd-pat128520%_) + _%targets128496%_) + (cons (cons _%hd-depth128523%_ _%hd-pat128520%_) + _%vars128497%_)) (if (let () (declare (not safe)) - (##fxzero? _%hd-depth129287%_)) - (let ((__tmp129669 - (cons (cons 'pattern _%hd-pat129284%_) - _%targets129260%_))) - (declare (not safe)) - (_%lp129257%_ - _%rest129283%_ - __tmp129669 - _%vars129261%_)) + (##fxzero? _%hd-depth128523%_)) + (_%lp128493%_ + _%rest128519%_ + (cons (cons 'pattern _%hd-pat128520%_) + _%targets128496%_) + _%vars128497%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _%stx129077%_ - _%where129247%_)))))))) + _%stx128313%_ + _%where128483%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%rest129262129272%_)) - (let ((_%hd129267129295%_ + (##pair? _%rest128498128508%_)) + (let ((_%hd128503128531%_ (let () (declare (not safe)) - (##car _%rest129262129272%_))) - (_%tl129268129297%_ + (##car _%rest128498128508%_))) + (_%tl128504128533%_ (let () (declare (not safe)) - (##cdr _%rest129262129272%_)))) + (##cdr _%rest128498128508%_)))) (if (let () (declare (not safe)) - (##pair? _%hd129267129295%_)) - (let ((_%hd129269129300%_ + (##pair? _%hd128503128531%_)) + (let ((_%hd128505128536%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%hd129267129295%_))) - (_%tl129270129302%_ - (let () (declare (not safe)) (##cdr _%hd129267129295%_)))) - (let* ((_%hd-depth*129305%_ _%hd129269129300%_) - (_%hd-pat129307%_ _%tl129270129302%_) - (_%rest129309%_ _%tl129268129297%_)) - (declare (not safe)) - (_%K129266129292%_ - _%rest129309%_ - _%hd-pat129307%_ - _%hd-depth*129305%_))) - (let () (declare (not safe)) (_%else129264129280%_)))) + (##car _%hd128503128531%_))) + (_%tl128506128538%_ + (let () (declare (not safe)) (##cdr _%hd128503128531%_)))) + (let* ((_%hd-depth*128541%_ _%hd128505128536%_) + (_%hd-pat128543%_ _%tl128506128538%_) + (_%rest128545%_ _%tl128504128533%_)) + (_%K128502128528%_ + _%rest128545%_ + _%hd-pat128543%_ + _%hd-depth*128541%_))) + (_%else128500128516%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%else129264129280%_))))))))))) - (_%recur129125%_ - (lambda (_%e129130%_ _%is-e?129131%_) - (if (_%is-e?129131%_ _%e129130%_) + (_%else128500128516%_)))))))))) + (_%recur128361%_ + (lambda (_%e128366%_ _%is-e?128367%_) + (if (_%is-e?128367%_ _%e128366%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _%stx129077%_)) - (if (let () - (declare (not safe)) - (gx#syntax-local-pattern? - _%e129130%_)) - (let () - (let* ((_%pat129135%_ - (let () - (declare (not safe)) - (gx#syntax-local-e__0 - _%e129130%_))) - (_%depth129137%_ - (##structure-ref - _%pat129135%_ - '3 - gx#syntax-pattern::t - '#f))) - (if (fxpositive? _%depth129137%_) - (values (cons 'ref - _%pat129135%_) - (cons (cons _%depth129137%_ + _%stx128313%_)) + (if (gx#syntax-local-pattern? _%e128366%_) + (let* ((_%pat128371%_ + (let () + (declare (not safe)) + (gx#syntax-local-e__0 + _%e128366%_))) + (_%depth128373%_ + (##structure-ref + _%pat128371%_ + '3 + gx#syntax-pattern::t + '#f))) + (if (fxpositive? _%depth128373%_) + (values (cons 'ref _%pat128371%_) + (cons (cons _%depth128373%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pat129135%_) - '())) + _%pat128371%_) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (values (cons 'pattern - _%pat129135%_) - '())))) + (values (cons 'pattern + _%pat128371%_) + '()))) (if (let () (declare (not safe)) - (gx#identifier? _%e129130%_)) - (let () - (values (cons 'term _%e129130%_) - '())) + (gx#identifier? _%e128366%_)) + (values (cons 'term _%e128366%_) + '()) (if (let () (declare (not safe)) - (gx#stx-pair? _%e129130%_)) - (let () - (let* ((_%e129141129148%_ - _%e129130%_) - (_%E129143129152%_ - (lambda () - (let () - (declare - (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid syntax-case clause" - _%e129141129148%_)))) - (_%E129142129234%_ - (lambda () - (if (let () + (gx#stx-pair? _%e128366%_)) + (let* ((_%e128377128384%_ + _%e128366%_) + (_%E128379128388%_ + (lambda () + (let () + (declare + (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _%e128377128384%_)))) + (_%E128378128470%_ + (lambda () + (if (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#stx-pair? _%e129141129148%_)) - (let ((_%e129144129156%_ + (not safe)) + (gx#stx-pair? _%e128377128384%_)) + (let ((_%e128380128392%_ + (let () + (declare (not safe)) + (gx#syntax-e _%e128377128384%_)))) + (let ((_%hd128381128395%_ (let () (declare (not safe)) - (gx#syntax-e _%e129141129148%_)))) - (let ((_%hd129145129159%_ - (let () - (declare (not safe)) - (##car _%e129144129156%_))) - (_%tl129146129161%_ - (let () - (declare (not safe)) - (##cdr _%e129144129156%_)))) - (let* ((_%hd129164%_ _%hd129145129159%_) - (_%rest129166%_ _%tl129146129161%_)) - (if '#t - (if (_%is-e?129131%_ _%hd129164%_) - (let* ((_%e129167129174%_ _%rest129166%_) - (_%E129169129178%_ + (##car _%e128380128392%_))) + (_%tl128382128397%_ + (let () + (declare (not safe)) + (##cdr _%e128380128392%_)))) + (let* ((_%hd128400%_ _%hd128381128395%_) + (_%rest128402%_ _%tl128382128397%_)) + (if '#t + (if (_%is-e?128367%_ _%hd128400%_) + (let* ((_%e128403128410%_ _%rest128402%_) + (_%E128405128414%_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad ellipsis syntax" + _%stx128313%_ + _%e128366%_)))) + (_%E128404128428%_ + (lambda () + (if (let () + (declare (not safe)) + (gx#stx-pair? + _%e128403128410%_)) + (let ((_%e128406128418%_ + (let () + (declare (not safe)) + (gx#syntax-e + _%e128403128410%_)))) + (let ((_%hd128407128421%_ + (let () + (declare + (not safe)) + (##car _%e128406128418%_))) + (_%tl128408128423%_ + (let () + (declare + (not safe)) + (##cdr _%e128406128418%_)))) + (let ((_%rest128426%_ + _%hd128407128421%_)) + (if (let () + (declare + (not safe)) + (gx#stx-null? + _%tl128408128423%_)) + (if '#t + (_%recur128361%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%rest128426%_ + false) + (_%E128405128414%_)) + (_%E128405128414%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%E128405128414%_))))) + (_%E128404128428%_)) + (let _%lp128432%_ ((_%rest128434%_ + _%rest128402%_) + (_%depth128435%_ '0)) + (let* ((_%e128436128443%_ _%rest128434%_) + (_%E128438128447%_ (lambda () - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad ellipsis syntax" - _%stx129077%_ - _%e129130%_)))) - (_%E129168129192%_ + (if (fxpositive? + _%depth128435%_) + (_%make-splice128360%_ + _%e128366%_ + _%depth128435%_ + (_%recur128361%_ + _%hd128400%_ + _%is-e?128367%_) + (_%recur128361%_ + _%rest128434%_ + _%is-e?128367%_)) + (_%make-cons128359%_ + (_%recur128361%_ + _%hd128400%_ + _%is-e?128367%_) + (_%recur128361%_ + _%rest128434%_ + _%is-e?128367%_))))) + (_%E128437128466%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e129167129174%_)) - (let ((_%e129170129182%_ + _%e128436128443%_)) + (let ((_%e128439128451%_ (let () (declare (not safe)) (gx#syntax-e - _%e129167129174%_)))) - (let ((_%hd129171129185%_ + _%e128436128443%_)))) + (let ((_%hd128440128454%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e129170129182%_))) - (_%tl129172129187%_ - (let () (declare (not safe)) (##cdr _%e129170129182%_)))) - (let ((_%rest129190%_ _%hd129171129185%_)) - (if (let () - (declare (not safe)) - (gx#stx-null? _%tl129172129187%_)) - (if '#t - (let () - (declare (not safe)) - (_%recur129125%_ _%rest129190%_ false)) - (let () (declare (not safe)) (_%E129169129178%_))) - (let () (declare (not safe)) (_%E129169129178%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%E129169129178%_)))))) - (declare (not safe)) - (_%E129168129192%_)) - (let _%lp129196%_ ((_%rest129198%_ - _%rest129166%_) - (_%depth129199%_ '0)) - (let* ((_%e129200129207%_ - _%rest129198%_) - (_%E129202129211%_ - (lambda () - (if (fxpositive? - _%depth129199%_) - (let ((__tmp129671 - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (_%recur129125%_ _%hd129164%_ _%is-e?129131%_))) - (__tmp129670 - (let () - (declare (not safe)) - (_%recur129125%_ _%rest129198%_ _%is-e?129131%_)))) - (declare (not safe)) - (_%make-splice129124%_ - _%e129130%_ - _%depth129199%_ - __tmp129671 - __tmp129670)) - (let ((__tmp129673 - (let () - (declare (not safe)) - (_%recur129125%_ _%hd129164%_ _%is-e?129131%_))) - (__tmp129672 - (let () - (declare (not safe)) - (_%recur129125%_ _%rest129198%_ _%is-e?129131%_)))) - (declare (not safe)) - (_%make-cons129123%_ __tmp129673 __tmp129672))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129201129230%_ - (lambda () - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%e129200129207%_)) - (let ((_%e129203129215%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gx#syntax-e _%e129200129207%_)))) - (let ((_%hd129204129218%_ - (let () (declare (not safe)) (##car _%e129203129215%_))) - (_%tl129205129220%_ - (let () - (declare (not safe)) - (##cdr _%e129203129215%_)))) - (let* ((_%rest-hd129223%_ _%hd129204129218%_) - (_%rest-tl129225%_ _%tl129205129220%_)) - (if '#t - (if (_%is-e?129131%_ _%rest-hd129223%_) - (let ((__tmp129674 - (let () - (declare (not safe)) - (##fx+ _%depth129199%_ '1)))) - (declare (not safe)) - (_%lp129196%_ _%rest-tl129225%_ __tmp129674)) - (if (fxpositive? _%depth129199%_) - (let ((__tmp129676 - (let () - (declare (not safe)) - (_%recur129125%_ - _%hd129164%_ - _%is-e?129131%_))) - (__tmp129675 - (let () - (declare (not safe)) - (_%recur129125%_ - _%rest129198%_ - _%is-e?129131%_)))) - (declare (not safe)) - (_%make-splice129124%_ - _%e129130%_ - _%depth129199%_ - __tmp129676 - __tmp129675)) - (let ((__tmp129678 - (let () - (declare (not safe)) - (_%recur129125%_ - _%hd129164%_ - _%is-e?129131%_))) - (__tmp129677 - (let () - (declare (not safe)) - (_%recur129125%_ - _%rest129198%_ - _%is-e?129131%_)))) - (declare (not safe)) - (_%make-cons129123%_ - __tmp129678 - __tmp129677)))) - (let () (declare (not safe)) (_%E129202129211%_)))))) - (let () (declare (not safe)) (_%E129202129211%_)))))) + (##car _%e128439128451%_))) + (_%tl128441128456%_ + (let () (declare (not safe)) (##cdr _%e128439128451%_)))) + (let* ((_%rest-hd128459%_ _%hd128440128454%_) + (_%rest-tl128461%_ _%tl128441128456%_)) + (if '#t + (if (_%is-e?128367%_ _%rest-hd128459%_) + (_%lp128432%_ + _%rest-tl128461%_ + (let () + (declare (not safe)) + (##fx+ _%depth128435%_ '1))) + (if (fxpositive? _%depth128435%_) + (_%make-splice128360%_ + _%e128366%_ + _%depth128435%_ + (_%recur128361%_ _%hd128400%_ _%is-e?128367%_) + (_%recur128361%_ + _%rest128434%_ + _%is-e?128367%_)) + (_%make-cons128359%_ + (_%recur128361%_ _%hd128400%_ _%is-e?128367%_) + (_%recur128361%_ + _%rest128434%_ + _%is-e?128367%_)))) + (_%E128438128447%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%E129201129230%_)))) - (let () - (declare (not safe)) - (_%E129143129152%_)))))) - (let () (declare (not safe)) (_%E129143129152%_)))))) + (_%E128438128447%_))))) + (_%E128437128466%_)))) + (_%E128379128388%_))))) + (_%E128379128388%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%E129142129234%_))) + (_%E128378128470%_)) (if (let () (declare (not safe)) (gx#stx-vector? - _%e129130%_)) - (let ((_g129679_ - (let ((__tmp129681 + _%e128366%_)) + (let ((_g128891_ + (_%recur128361%_ + (vector->list + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (vector->list - (let () - (declare (not safe)) - (gx#stx-unwrap__0 _%e129130%_))))) - (declare (not safe)) - (_%recur129125%_ __tmp129681 _%is-e?129131%_)))) + (not safe)) + (gx#stx-unwrap__0 _%e128366%_))) + _%is-e?128367%_))) (begin - (let ((_g129680_ + (let ((_g128892_ (let () (declare (not safe)) - (if (##values? _g129679_) - (##vector-length _g129679_) + (if (##values? _g128891_) + (##vector-length _g128891_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g129680_ 2))) - (error "Context expects 2 values" _g129680_))) - (let ((_%e129239%_ + (if (not (let () (declare (not safe)) (##fx= _g128892_ 2))) + (error "Context expects 2 values" _g128892_))) + (let ((_%e128475%_ (let () (declare (not safe)) - (##vector-ref _g129679_ 0))) - (_%vars129240%_ + (##vector-ref _g128891_ 0))) + (_%vars128476%_ (let () (declare (not safe)) - (##vector-ref _g129679_ 1)))) - (values (cons 'vector _%e129239%_) _%vars129240%_)))) + (##vector-ref _g128891_ 1)))) + (values (cons 'vector _%e128475%_) _%vars128476%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _%e129130%_)) - (let ((_g129682_ - (let ((__tmp129684 + _%e128366%_)) + (let ((_g128893_ + (_%recur128361%_ + (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (unbox (let () - (declare (not safe)) - (gx#stx-unwrap__0 _%e129130%_))))) - (declare (not safe)) - (_%recur129125%_ __tmp129684 _%is-e?129131%_)))) + (declare (not safe)) + (gx#stx-unwrap__0 _%e128366%_))) + _%is-e?128367%_))) (begin - (let ((_g129683_ + (let ((_g128894_ (let () (declare (not safe)) - (if (##values? _g129682_) - (##vector-length _g129682_) + (if (##values? _g128893_) + (##vector-length _g128893_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129683_ 2))) - (error "Context expects 2 values" _g129683_))) - (let ((_%e129243%_ + (##fx= _g128894_ 2))) + (error "Context expects 2 values" _g128894_))) + (let ((_%e128479%_ (let () (declare (not safe)) - (##vector-ref _g129682_ 0))) - (_%vars129244%_ + (##vector-ref _g128893_ 0))) + (_%vars128480%_ (let () (declare (not safe)) - (##vector-ref _g129682_ 1)))) - (values (cons 'box _%e129243%_) _%vars129244%_)))) - (let () (values (cons 'datum _%e129130%_) '()))))))))))) + (##vector-ref _g128893_ 1)))) + (values (cons 'box _%e128479%_) _%vars128480%_)))) + (values (cons 'datum _%e128366%_) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g129685_ - (let () - (declare (not safe)) - (_%recur129125%_ _%e129121%_ gx#ellipsis?)))) + (let ((_g128895_ + (_%recur128361%_ _%e128357%_ gx#ellipsis?))) (begin - (let ((_g129686_ + (let ((_g128896_ (let () (declare (not safe)) - (if (##values? _g129685_) - (##vector-length _g129685_) + (if (##values? _g128895_) + (##vector-length _g128895_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129686_ 2))) - (error "Context expects 2 values" _g129686_))) - (let ((_%tree129127%_ + (##fx= _g128896_ 2))) + (error "Context expects 2 values" _g128896_))) + (let ((_%tree128363%_ (let () (declare (not safe)) - (##vector-ref _g129685_ 0))) - (_%vars129128%_ + (##vector-ref _g128895_ 0))) + (_%vars128364%_ (let () (declare (not safe)) - (##vector-ref _g129685_ 1)))) - (if (let () - (declare (not safe)) - (null? _%vars129128%_)) - _%tree129127%_ + (##vector-ref _g128895_ 1)))) + (if (null? _%vars128364%_) + _%tree128363%_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _%stx129077%_ - _%vars129128%_)))))))))) - (let* ((_%e129081129091%_ _%stx129077%_) - (_%E129083129095%_ + _%stx128313%_ + _%vars128364%_)))))))))) + (let* ((_%e128317128327%_ _%stx128313%_) + (_%E128319128331%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _%stx129077%_)))) - (_%E129082129117%_ + _%stx128313%_)))) + (_%E128318128353%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e129081129091%_)) - (let ((_%e129084129099%_ + (gx#stx-pair? _%e128317128327%_)) + (let ((_%e128320128335%_ (let () (declare (not safe)) - (gx#syntax-e _%e129081129091%_)))) - (let ((_%hd129085129102%_ + (gx#syntax-e _%e128317128327%_)))) + (let ((_%hd128321128338%_ (let () (declare (not safe)) - (##car _%e129084129099%_))) - (_%tl129086129104%_ + (##car _%e128320128335%_))) + (_%tl128322128340%_ (let () (declare (not safe)) - (##cdr _%e129084129099%_)))) + (##cdr _%e128320128335%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl129086129104%_)) - (let ((_%e129087129107%_ + (gx#stx-pair? _%tl128322128340%_)) + (let ((_%e128323128343%_ (let () (declare (not safe)) - (gx#syntax-e _%tl129086129104%_)))) - (let ((_%hd129088129110%_ + (gx#syntax-e _%tl128322128340%_)))) + (let ((_%hd128324128346%_ (let () (declare (not safe)) - (##car _%e129087129107%_))) - (_%tl129089129112%_ + (##car _%e128323128343%_))) + (_%tl128325128348%_ (let () (declare (not safe)) - (##cdr _%e129087129107%_)))) - (let ((_%form129115%_ _%hd129088129110%_)) + (##cdr _%e128323128343%_)))) + (let ((_%form128351%_ _%hd128324128346%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl129089129112%_)) + (gx#stx-null? _%tl128325128348%_)) (if '#t - (let ((__tmp129688 - (let ((__tmp129689 - (let () - (declare - (not safe)) - (_%parse129080%_ - _%form129115%_)))) - (declare (not safe)) - (_%generate129079%_ - __tmp129689))) - (__tmp129687 + (let ((__tmp128898 + (_%generate128315%_ + (_%parse128316%_ + _%form128351%_))) + (__tmp128897 (let () (declare (not safe)) (gx#stx-source - _%stx129077%_)))) + _%stx128313%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp129688 - __tmp129687)) - (let () - (declare (not safe)) - (_%E129083129095%_))) - (let () - (declare (not safe)) - (_%E129083129095%_)))))) - (let () - (declare (not safe)) - (_%E129083129095%_))))) - (let () (declare (not safe)) (_%E129083129095%_)))))) - (declare (not safe)) - (_%E129082129117%_))))) + __tmp128898 + __tmp128897)) + (_%E128319128331%_)) + (_%E128319128331%_))))) + (_%E128319128331%_)))) + (_%E128319128331%_))))) + (_%E128318128353%_))))) (define gx#macro-expand-syntax-case__% - (lambda (_%stx128326%_ - _%identifier=?128327%_ - _%unwrap-e128328%_ - _%wrap-e128329%_) - (letrec ((_%generate-bindings128331%_ - (lambda (_%target128941%_ - _%ids128942%_ - _%clauses128943%_ - _%clause-ids128944%_ - _%E128945%_) - (letrec ((_%generate1128947%_ - (lambda (_%clause129044%_ - _%clause-id129045%_ - _%E129046%_) - (cons (cons _%clause-id129045%_ '()) - (cons (let ((__tmp129691 - (cons _%target128941%_ '())) - (__tmp129690 - (let () - (declare (not safe)) - (_%generate-clause128333%_ - _%target128941%_ - _%ids128942%_ - _%clause129044%_ - _%E129046%_)))) + (lambda (_%stx127562%_ + _%identifier=?127563%_ + _%unwrap-e127564%_ + _%wrap-e127565%_) + (letrec ((_%generate-bindings127567%_ + (lambda (_%target128177%_ + _%ids128178%_ + _%clauses128179%_ + _%clause-ids128180%_ + _%E128181%_) + (letrec ((_%generate1128183%_ + (lambda (_%clause128280%_ + _%clause-id128281%_ + _%E128282%_) + (cons (cons _%clause-id128281%_ '()) + (cons (let ((__tmp128900 + (cons _%target128177%_ '())) + (__tmp128899 + (_%generate-clause127569%_ + _%target128177%_ + _%ids128178%_ + _%clause128280%_ + _%E128282%_))) (declare (not safe)) (gx#core-list 'lambda% - __tmp129691 - __tmp129690)) + __tmp128900 + __tmp128899)) '()))))) - (let _%lp128949%_ ((_%rest128951%_ _%clauses128943%_) - (_%rest-ids128952%_ - _%clause-ids128944%_) - (_%bindings128953%_ '())) - (let* ((_%rest128954128962%_ _%rest128951%_) - (_%else128956128970%_ - (lambda () _%bindings128953%_)) - (_%K128958129032%_ - (lambda (_%rest128973%_ _%clause128974%_) - (let* ((_%rest-ids128975128982%_ - _%rest-ids128952%_) - (_%E128977128986%_ + (let _%lp128185%_ ((_%rest128187%_ _%clauses128179%_) + (_%rest-ids128188%_ + _%clause-ids128180%_) + (_%bindings128189%_ '())) + (let* ((_%rest128190128198%_ _%rest128187%_) + (_%else128192128206%_ + (lambda () _%bindings128189%_)) + (_%K128194128268%_ + (lambda (_%rest128209%_ _%clause128210%_) + (let* ((_%rest-ids128211128218%_ + _%rest-ids128188%_) + (_%E128213128222%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest-ids128975128982%_ + _%rest-ids128211128218%_ '([clause-id . rest-ids]))) '#!void)) - (_%K128978129020%_ - (lambda (_%rest-ids128989%_ - _%clause-id128990%_) - (let* ((_%rest-ids128991128999%_ - _%rest-ids128989%_) - (_%else128993129007%_ + (_%K128214128256%_ + (lambda (_%rest-ids128225%_ + _%clause-id128226%_) + (let* ((_%rest-ids128227128235%_ + _%rest-ids128225%_) + (_%else128229128243%_ (lambda () - (cons (let () - (declare - (not safe)) - (_%generate1128947%_ - _%clause128974%_ - _%clause-id128990%_ - _%E128945%_)) - _%bindings128953%_))) - (_%K128995129012%_ - (lambda (_%next-clause-id129010%_) - (let ((__tmp129692 - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (_%generate1128947%_ - _%clause128974%_ - _%clause-id128990%_ - _%next-clause-id129010%_)) - _%bindings128953%_))) - (declare (not safe)) - (_%lp128949%_ - _%rest128973%_ - _%rest-ids128989%_ - __tmp129692))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (_%generate1128183%_ + _%clause128210%_ + _%clause-id128226%_ + _%E128181%_) + _%bindings128189%_))) + (_%K128231128248%_ + (lambda (_%next-clause-id128246%_) + (_%lp128185%_ + _%rest128209%_ + _%rest-ids128225%_ + (cons (_%generate1128183%_ + _%clause128210%_ + _%clause-id128226%_ + _%next-clause-id128246%_) + _%bindings128189%_))))) (if (let () (declare (not safe)) - (##pair? _%rest-ids128991128999%_)) - (let* ((_%hd128996129015%_ + (##pair? _%rest-ids128227128235%_)) + (let* ((_%hd128232128251%_ (let () (declare (not safe)) - (##car _%rest-ids128991128999%_))) - (_%next-clause-id129018%_ - _%hd128996129015%_)) - (declare (not safe)) - (_%K128995129012%_ - _%next-clause-id129018%_)) - (let () - (declare (not safe)) - (_%else128993129007%_))))))) + (##car _%rest-ids128227128235%_))) + (_%next-clause-id128254%_ + _%hd128232128251%_)) + (_%K128231128248%_ + _%next-clause-id128254%_)) + (_%else128229128243%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest-ids128975128982%_)) - (let ((_%hd128979129023%_ + (##pair? _%rest-ids128211128218%_)) + (let ((_%hd128215128259%_ (let () (declare (not safe)) - (##car _%rest-ids128975128982%_))) - (_%tl128980129025%_ + (##car _%rest-ids128211128218%_))) + (_%tl128216128261%_ (let () (declare (not safe)) - (##cdr _%rest-ids128975128982%_)))) - (let* ((_%clause-id129028%_ - _%hd128979129023%_) - (_%rest-ids129030%_ - _%tl128980129025%_)) - (declare (not safe)) - (_%K128978129020%_ - _%rest-ids129030%_ - _%clause-id129028%_))) - (let () - (declare (not safe)) - (_%E128977128986%_))))))) + (##cdr _%rest-ids128211128218%_)))) + (let* ((_%clause-id128264%_ + _%hd128215128259%_) + (_%rest-ids128266%_ + _%tl128216128261%_)) + (_%K128214128256%_ + _%rest-ids128266%_ + _%clause-id128264%_))) + (_%E128213128222%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest128954128962%_)) - (let ((_%hd128959129035%_ + (##pair? _%rest128190128198%_)) + (let ((_%hd128195128271%_ (let () (declare (not safe)) - (##car _%rest128954128962%_))) - (_%tl128960129037%_ + (##car _%rest128190128198%_))) + (_%tl128196128273%_ (let () (declare (not safe)) - (##cdr _%rest128954128962%_)))) - (let* ((_%clause129040%_ _%hd128959129035%_) - (_%rest129042%_ _%tl128960129037%_)) - (declare (not safe)) - (_%K128958129032%_ - _%rest129042%_ - _%clause129040%_))) - (let () - (declare (not safe)) - (_%else128956128970%_)))))))) - (_%generate-body128332%_ - (lambda (_%bindings128901%_ _%body128902%_) - (let _%recur128904%_ ((_%rest128906%_ _%bindings128901%_)) - (let* ((_%rest128907128915%_ _%rest128906%_) - (_%else128909128923%_ (lambda () _%body128902%_)) - (_%K128911128929%_ - (lambda (_%rest128926%_ _%hd128927%_) - (let ((__tmp129694 (cons _%hd128927%_ '())) - (__tmp129693 - (let () - (declare (not safe)) - (_%recur128904%_ _%rest128926%_)))) + (##cdr _%rest128190128198%_)))) + (let* ((_%clause128276%_ _%hd128195128271%_) + (_%rest128278%_ _%tl128196128273%_)) + (_%K128194128268%_ + _%rest128278%_ + _%clause128276%_))) + (_%else128192128206%_))))))) + (_%generate-body127568%_ + (lambda (_%bindings128137%_ _%body128138%_) + (let _%recur128140%_ ((_%rest128142%_ _%bindings128137%_)) + (let* ((_%rest128143128151%_ _%rest128142%_) + (_%else128145128159%_ (lambda () _%body128138%_)) + (_%K128147128165%_ + (lambda (_%rest128162%_ _%hd128163%_) + (let ((__tmp128902 (cons _%hd128163%_ '())) + (__tmp128901 + (_%recur128140%_ _%rest128162%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp129694 - __tmp129693))))) + __tmp128902 + __tmp128901))))) (if (let () (declare (not safe)) - (##pair? _%rest128907128915%_)) - (let ((_%hd128912128932%_ + (##pair? _%rest128143128151%_)) + (let ((_%hd128148128168%_ (let () (declare (not safe)) - (##car _%rest128907128915%_))) - (_%tl128913128934%_ + (##car _%rest128143128151%_))) + (_%tl128149128170%_ (let () (declare (not safe)) - (##cdr _%rest128907128915%_)))) - (let* ((_%hd128937%_ _%hd128912128932%_) - (_%rest128939%_ _%tl128913128934%_)) - (declare (not safe)) - (_%K128911128929%_ - _%rest128939%_ - _%hd128937%_))) - (let () - (declare (not safe)) - (_%else128909128923%_))))))) - (_%generate-clause128333%_ - (lambda (_%target128764%_ - _%ids128765%_ - _%clause128766%_ - _%E128767%_) - (letrec ((_%generate1128769%_ - (lambda (_%hd128856%_ - _%fender128857%_ - _%body128858%_) - (let ((_g129695_ - (let () - (declare (not safe)) - (_%parse-clause128335%_ - _%hd128856%_ - _%ids128765%_)))) + (##cdr _%rest128143128151%_)))) + (let* ((_%hd128173%_ _%hd128148128168%_) + (_%rest128175%_ _%tl128149128170%_)) + (_%K128147128165%_ + _%rest128175%_ + _%hd128173%_))) + (_%else128145128159%_)))))) + (_%generate-clause127569%_ + (lambda (_%target128000%_ + _%ids128001%_ + _%clause128002%_ + _%E128003%_) + (letrec ((_%generate1128005%_ + (lambda (_%hd128092%_ + _%fender128093%_ + _%body128094%_) + (let ((_g128903_ + (_%parse-clause127571%_ + _%hd128092%_ + _%ids128001%_))) (begin - (let ((_g129696_ + (let ((_g128904_ (let () (declare (not safe)) - (if (##values? _g129695_) - (##vector-length _g129695_) + (if (##values? _g128903_) + (##vector-length _g128903_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129696_ 2))) + (##fx= _g128904_ 2))) (error "Context expects 2 values" - _g129696_))) - (let ((_%e128860%_ + _g128904_))) + (let ((_%e128096%_ (let () (declare (not safe)) - (##vector-ref _g129695_ 0))) - (_%mvars128861%_ + (##vector-ref _g128903_ 0))) + (_%mvars128097%_ (let () (declare (not safe)) - (##vector-ref _g129695_ 1)))) - (let* ((_%pvars128863%_ + (##vector-ref _g128903_ 1)))) + (let* ((_%pvars128099%_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _%mvars128861%_)))) - (_%E128865%_ - (cons _%E128767%_ - (cons _%target128764%_ + _%mvars128097%_)))) + (_%E128101%_ + (cons _%E128003%_ + (cons _%target128000%_ '()))) - (_%K128898%_ - (let ((__tmp129697 - (let ((__tmp129699 - (map (lambda (_%mvar128867%_ + (_%K128134%_ + (let ((__tmp128905 + (let ((__tmp128907 + (map (lambda (_%mvar128103%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pvar128868%_) - (let* ((_%mvar128869128876%_ _%mvar128867%_) - (_%E128871128880%_ + _%pvar128104%_) + (let* ((_%mvar128105128112%_ _%mvar128103%_) + (_%E128107128116%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mvar128869128876%_ + _%mvar128105128112%_ '([id . depth]))) '#!void)) - (_%K128872128886%_ - (lambda (_%depth128883%_ _%id128884%_) - (cons _%id128884%_ - (cons (let ((__tmp129701 + (_%K128108128122%_ + (lambda (_%depth128119%_ _%id128120%_) + (cons _%id128120%_ + (cons (let ((__tmp128909 (let () (declare (not safe)) (gx#core-list 'quote - _%id128884%_))) - (__tmp129700 + _%id128120%_))) + (__tmp128908 (let () (declare (not safe)) (gx#core-list 'quote - _%pvar128868%_)))) + _%pvar128104%_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp129701 - __tmp129700 - _%depth128883%_)) + __tmp128909 + __tmp128908 + _%depth128119%_)) '()))))) (if (let () (declare (not safe)) - (##pair? _%mvar128869128876%_)) - (let ((_%hd128873128889%_ + (##pair? _%mvar128105128112%_)) + (let ((_%hd128109128125%_ (let () (declare (not safe)) - (##car _%mvar128869128876%_))) - (_%tl128874128891%_ + (##car _%mvar128105128112%_))) + (_%tl128110128127%_ (let () (declare (not safe)) - (##cdr _%mvar128869128876%_)))) - (let* ((_%id128894%_ _%hd128873128889%_) - (_%depth128896%_ _%tl128874128891%_)) - (declare (not safe)) - (_%K128872128886%_ - _%depth128896%_ - _%id128894%_))) - (let () - (declare (not safe)) - (_%E128871128880%_))))) - _%mvars128861%_ - _%pvars128863%_)) - (__tmp129698 - (if (let () - (declare (not safe)) - (eq? _%fender128857%_ '#t)) - _%body128858%_ + (##cdr _%mvar128105128112%_)))) + (let* ((_%id128130%_ _%hd128109128125%_) + (_%depth128132%_ _%tl128110128127%_)) + (_%K128108128122%_ + _%depth128132%_ + _%id128130%_))) + (_%E128107128116%_)))) + _%mvars128097%_ + _%pvars128099%_)) + (__tmp128906 + (if (eq? _%fender128093%_ '#t) + _%body128094%_ (let () (declare (not safe)) (gx#core-list 'if - _%fender128857%_ - _%body128858%_ - _%E128865%_))))) + _%fender128093%_ + _%body128094%_ + _%E128101%_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp129699 __tmp129698)))) + (gx#core-list 'let-syntax __tmp128907 __tmp128906)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _%pvars128863%_ - __tmp129697)))) - (declare (not safe)) - (_%generate-match128334%_ - _%hd128856%_ - _%target128764%_ - _%e128860%_ - _%mvars128861%_ - _%K128898%_ - _%E128865%_)))))))) - (let* ((_%e128770128790%_ _%clause128766%_) - (_%E128779128794%_ + _%pvars128099%_ + __tmp128905)))) + (_%generate-match127570%_ + _%hd128092%_ + _%target128000%_ + _%e128096%_ + _%mvars128097%_ + _%K128134%_ + _%E128101%_)))))))) + (let* ((_%e128006128026%_ _%clause128002%_) + (_%E128015128030%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128770128790%_)))) - (_%E128772128828%_ + _%e128006128026%_)))) + (_%E128008128064%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e128770128790%_)) - (let ((_%e128780128798%_ + (gx#stx-pair? _%e128006128026%_)) + (let ((_%e128016128034%_ (let () (declare (not safe)) - (gx#syntax-e _%e128770128790%_)))) - (let ((_%hd128781128801%_ + (gx#syntax-e _%e128006128026%_)))) + (let ((_%hd128017128037%_ (let () (declare (not safe)) - (##car _%e128780128798%_))) - (_%tl128782128803%_ + (##car _%e128016128034%_))) + (_%tl128018128039%_ (let () (declare (not safe)) - (##cdr _%e128780128798%_)))) - (let ((_%hd128806%_ - _%hd128781128801%_)) + (##cdr _%e128016128034%_)))) + (let ((_%hd128042%_ + _%hd128017128037%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl128782128803%_)) - (let ((_%e128783128808%_ + _%tl128018128039%_)) + (let ((_%e128019128044%_ (let () (declare (not safe)) (gx#syntax-e - _%tl128782128803%_)))) - (let ((_%hd128784128811%_ + _%tl128018128039%_)))) + (let ((_%hd128020128047%_ (let () (declare (not safe)) - (##car _%e128783128808%_))) - (_%tl128785128813%_ + (##car _%e128019128044%_))) + (_%tl128021128049%_ (let () (declare (not safe)) - (##cdr _%e128783128808%_)))) - (let ((_%fender128816%_ - _%hd128784128811%_)) + (##cdr _%e128019128044%_)))) + (let ((_%fender128052%_ + _%hd128020128047%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl128785128813%_)) - (let ((_%e128786128818%_ + _%tl128021128049%_)) + (let ((_%e128022128054%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl128785128813%_)))) - (let ((_%hd128787128821%_ + (gx#syntax-e _%tl128021128049%_)))) + (let ((_%hd128023128057%_ (let () (declare (not safe)) - (##car _%e128786128818%_))) - (_%tl128788128823%_ + (##car _%e128022128054%_))) + (_%tl128024128059%_ (let () (declare (not safe)) - (##cdr _%e128786128818%_)))) - (let ((_%body128826%_ _%hd128787128821%_)) + (##cdr _%e128022128054%_)))) + (let ((_%body128062%_ _%hd128023128057%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl128788128823%_)) + (gx#stx-null? _%tl128024128059%_)) (if '#t - (let () - (declare (not safe)) - (_%generate1128769%_ - _%hd128806%_ - _%fender128816%_ - _%body128826%_)) - (let () - (declare (not safe)) - (_%E128779128794%_))) - (let () (declare (not safe)) (_%E128779128794%_)))))) - (let () (declare (not safe)) (_%E128779128794%_)))))) + (_%generate1128005%_ + _%hd128042%_ + _%fender128052%_ + _%body128062%_) + (_%E128015128030%_)) + (_%E128015128030%_))))) + (_%E128015128030%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%E128779128794%_)))))) - (let () - (declare (not safe)) - (_%E128779128794%_))))) - (_%E128771128852%_ + (_%E128015128030%_))))) + (_%E128015128030%_)))) + (_%E128007128088%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e128770128790%_)) - (let ((_%e128773128832%_ + (gx#stx-pair? _%e128006128026%_)) + (let ((_%e128009128068%_ (let () (declare (not safe)) - (gx#syntax-e _%e128770128790%_)))) - (let ((_%hd128774128835%_ + (gx#syntax-e _%e128006128026%_)))) + (let ((_%hd128010128071%_ (let () (declare (not safe)) - (##car _%e128773128832%_))) - (_%tl128775128837%_ + (##car _%e128009128068%_))) + (_%tl128011128073%_ (let () (declare (not safe)) - (##cdr _%e128773128832%_)))) - (let ((_%hd128840%_ - _%hd128774128835%_)) + (##cdr _%e128009128068%_)))) + (let ((_%hd128076%_ + _%hd128010128071%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl128775128837%_)) - (let ((_%e128776128842%_ + _%tl128011128073%_)) + (let ((_%e128012128078%_ (let () (declare (not safe)) (gx#syntax-e - _%tl128775128837%_)))) - (let ((_%hd128777128845%_ + _%tl128011128073%_)))) + (let ((_%hd128013128081%_ (let () (declare (not safe)) - (##car _%e128776128842%_))) - (_%tl128778128847%_ + (##car _%e128012128078%_))) + (_%tl128014128083%_ (let () (declare (not safe)) - (##cdr _%e128776128842%_)))) - (let ((_%body128850%_ - _%hd128777128845%_)) + (##cdr _%e128012128078%_)))) + (let ((_%body128086%_ + _%hd128013128081%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl128778128847%_)) + _%tl128014128083%_)) (if '#t - (let () - (declare - (not safe)) - (_%generate1128769%_ - _%hd128840%_ - '#t - _%body128850%_)) - (let () - (declare - (not safe)) - (_%E128772128828%_))) - (let () - (declare (not safe)) - (_%E128772128828%_)))))) - (let () - (declare (not safe)) - (_%E128772128828%_)))))) - (let () - (declare (not safe)) - (_%E128772128828%_)))))) - (declare (not safe)) - (_%E128771128852%_))))) - (_%generate-match128334%_ - (lambda (_%where128513%_ - _%target128514%_ - _%hd128515%_ - _%mvars128516%_ - _%K128517%_ - _%E128518%_) - (letrec ((_%BUG128520%_ - (lambda (_%q128762%_) + (_%generate1128005%_ + _%hd128076%_ + '#t + _%body128086%_) + (_%E128008128064%_)) + (_%E128008128064%_))))) + (_%E128008128064%_))))) + (_%E128008128064%_))))) + (_%E128007128088%_))))) + (_%generate-match127570%_ + (lambda (_%where127749%_ + _%target127750%_ + _%hd127751%_ + _%mvars127752%_ + _%K127753%_ + _%E127754%_) + (letrec ((_%BUG127756%_ + (lambda (_%q127998%_) (let () (declare (not safe)) (error '"BUG: syntax-case; generate" - _%stx128326%_ - _%hd128515%_ - _%q128762%_)))) - (_%recur128521%_ - (lambda (_%e128612%_ - _%vars128613%_ - _%target128614%_ - _%E128615%_ - _%k128616%_) - (let* ((_%e128617128624%_ _%e128612%_) - (_%E128619128628%_ + _%stx127562%_ + _%hd127751%_ + _%q127998%_)))) + (_%recur127757%_ + (lambda (_%e127848%_ + _%vars127849%_ + _%target127850%_ + _%E127851%_ + _%k127852%_) + (let* ((_%e127853127860%_ _%e127848%_) + (_%E127855127864%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e128617128624%_ + _%e127853127860%_ '([tag . body]))) '#!void)) - (_%K128620128750%_ - (lambda (_%body128631%_ _%tag128632%_) - (let ((_%$e128634%_ _%tag128632%_)) - (if (eq? 'any _%$e128634%_) - (_%k128616%_ _%vars128613%_) - (if (eq? 'id _%$e128634%_) - (let ((__tmp129706 + (_%K127856127986%_ + (lambda (_%body127867%_ _%tag127868%_) + (let ((_%$e127870%_ _%tag127868%_)) + (if (eq? 'any _%$e127870%_) + (_%k127852%_ _%vars127849%_) + (if (eq? 'id _%$e127870%_) + (let ((__tmp128914 (let () (declare (not safe)) (gx#core-list 'identifier? - _%target128614%_))) - (__tmp129702 - (let ((__tmp129704 + _%target127850%_))) + (__tmp128910 + (let ((__tmp128912 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129705 + (let ((__tmp128913 (let () (declare (not safe)) (gx#core-list - _%wrap-e128329%_ - _%body128631%_)))) + _%wrap-e127565%_ + _%body127867%_)))) (declare (not safe)) (gx#core-list - _%identifier=?128327%_ - __tmp129705 - _%target128614%_))) - (__tmp129703 (_%k128616%_ _%vars128613%_))) + _%identifier=?127563%_ + __tmp128913 + _%target127850%_))) + (__tmp128911 (_%k127852%_ _%vars127849%_))) (declare (not safe)) - (gx#core-list 'if __tmp129704 __tmp129703 _%E128615%_)))) + (gx#core-list 'if __tmp128912 __tmp128911 _%E127851%_)))) (declare (not safe)) - (gx#core-list 'if __tmp129706 __tmp129702 _%E128615%_)) + (gx#core-list 'if __tmp128914 __tmp128910 _%E127851%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (eq? 'var _%$e128634%_) - (_%k128616%_ - (cons (cons _%body128631%_ + (if (eq? 'var _%$e127870%_) + (_%k127852%_ + (cons (cons _%body127867%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%target128614%_) - _%vars128613%_)) - (if (eq? 'cons _%$e128634%_) - (let ((_%$e128637%_ + _%target127850%_) + _%vars127849%_)) + (if (eq? 'cons _%$e127870%_) + (let ((_%$e127873%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$hd128638%_ + (_%$hd127874%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl128639%_ + (_%$tl127875%_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp129713 + (let ((__tmp128920 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _%target128614%_))) - (__tmp129707 - (let ((__tmp129712 - (cons (cons (cons _%$e128637%_ '()) + (gx#core-list 'stx-pair? _%target127850%_))) + (__tmp128915 + (let ((__tmp128919 + (cons (cons (cons _%$e127873%_ '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e128328%_ - _%target128614%_)) + _%unwrap-e127564%_ + _%target127850%_)) '())) '())) - (__tmp129708 - (let ((__tmp129711 - (cons (cons (cons _%$hd128638%_ '()) + (__tmp128916 + (let ((__tmp128918 + (cons (cons (cons _%$hd127874%_ '()) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#core-list '##car _%$e128637%_)) + (gx#core-list '##car _%$e127873%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%$tl128639%_ + (cons (cons (cons _%$tl127875%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##cdr _%$e128637%_)) + (gx#core-list '##cdr _%$e127873%_)) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp129709 - (let* ((_%body128640128647%_ - _%body128631%_) - (_%E128642128651%_ + (__tmp128917 + (let* ((_%body127876127883%_ + _%body127867%_) + (_%E127878127887%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body128640128647%_ + _%body127876127883%_ '([hd . tl]))) '#!void)) - (_%K128643128659%_ - (lambda (_%tl128654%_ - _%hd128655%_) - (let ((__tmp129710 - (lambda (_%vars128657%_) - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (_%recur128521%_ - _%tl128654%_ - _%vars128657%_ - _%$tl128639%_ - _%E128615%_ - _%k128616%_))))) - (declare (not safe)) - (_%recur128521%_ - _%hd128655%_ - _%vars128613%_ - _%$hd128638%_ - _%E128615%_ - __tmp129710))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%K127879127895%_ + (lambda (_%tl127890%_ + _%hd127891%_) + (_%recur127757%_ + _%hd127891%_ + _%vars127849%_ + _%$hd127874%_ + _%E127851%_ + (lambda (_%vars127893%_) + (_%recur127757%_ + _%tl127890%_ + _%vars127893%_ + _%$tl127875%_ + _%E127851%_ + _%k127852%_)))))) (if (let () (declare (not safe)) - (##pair? _%body128640128647%_)) - (let ((_%hd128644128662%_ + (##pair? _%body127876127883%_)) + (let ((_%hd127880127898%_ (let () (declare (not safe)) - (##car _%body128640128647%_))) - (_%tl128645128664%_ + (##car _%body127876127883%_))) + (_%tl127881127900%_ (let () (declare (not safe)) - (##cdr _%body128640128647%_)))) - (let* ((_%hd128667%_ - _%hd128644128662%_) - (_%tl128669%_ - _%tl128645128664%_)) - (declare (not safe)) - (_%K128643128659%_ - _%tl128669%_ - _%hd128667%_))) - (let () - (declare (not safe)) - (_%E128642128651%_)))))) + (##cdr _%body127876127883%_)))) + (let* ((_%hd127903%_ + _%hd127880127898%_) + (_%tl127905%_ + _%tl127881127900%_)) + (_%K127879127895%_ + _%tl127905%_ + _%hd127903%_))) + (_%E127878127887%_))))) (declare (not safe)) (gx#core-list 'let-values - __tmp129711 - __tmp129709)))) + __tmp128918 + __tmp128917)))) (declare (not safe)) (gx#core-list 'let-values - __tmp129712 - __tmp129708)))) + __tmp128919 + __tmp128916)))) (declare (not safe)) (gx#core-list 'if - __tmp129713 - __tmp129707 - _%E128615%_))) - (if (eq? 'splice _%$e128634%_) - (let* ((_%body128670128677%_ _%body128631%_) - (_%E128672128681%_ + __tmp128920 + __tmp128915 + _%E127851%_))) + (if (eq? 'splice _%$e127870%_) + (let* ((_%body127906127913%_ _%body127867%_) + (_%E127908127917%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body128670128677%_ + _%body127906127913%_ '([hd . tl]))) '#!void)) - (_%K128673128732%_ - (lambda (_%tl128684%_ _%hd128685%_) - (let* ((_%rlen128687%_ - (let () - (declare (not safe)) - (_%splice-rlen128522%_ - _%tl128684%_))) - (_%$target128689%_ + (_%K127909127968%_ + (lambda (_%tl127920%_ _%hd127921%_) + (let* ((_%rlen127923%_ + (_%splice-rlen127758%_ _%tl127920%_)) + (_%$target127925%_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_%$hd128691%_ + (_%$hd127927%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl128693%_ + (_%$tl127929%_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_%$lp128695%_ + (_%$lp127931%_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_%$lp-e128697%_ + (_%$lp-e127933%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$lp-hd128699%_ + (_%$lp-hd127935%_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_%$lp-tl128701%_ + (_%$lp-tl127937%_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_%svars128703%_ + (_%svars127939%_ + (_%splice-vars127759%_ _%hd127921%_)) + (_%lvars127941%_ (let () (declare (not safe)) - (_%splice-vars128523%_ - _%hd128685%_))) - (_%lvars128705%_ + (gx#gentemps _%svars127939%_))) + (_%tlvars127943%_ (let () (declare (not safe)) - (gx#gentemps _%svars128703%_))) - (_%tlvars128707%_ - (let () - (declare (not safe)) - (gx#gentemps _%svars128703%_))) - (_%linit128711%_ - (map (lambda (_%var128709%_) + (gx#gentemps _%svars127939%_))) + (_%linit127947%_ + (map (lambda (_%var127945%_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _%lvars128705%_))) - (letrec ((_%make-loop128714%_ - (lambda (_%vars128718%_) - (let ((__tmp129716 - (cons (cons (cons _%$lp128695%_ + _%lvars127941%_))) + (letrec ((_%make-loop127950%_ + (lambda (_%vars127954%_) + (let ((__tmp128922 + (cons (cons (cons _%$lp127931%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp129732 - (cons _%$hd128691%_ _%lvars128705%_)) - (__tmp129717 - (let ((__tmp129731 + (cons (let ((__tmp128935 + (cons _%$hd127927%_ _%lvars127941%_)) + (__tmp128923 + (let ((__tmp128934 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _%$hd128691%_))) - (__tmp129722 - (let ((__tmp129730 - (cons (cons (cons _%$lp-e128697%_ + _%$hd127927%_))) + (__tmp128928 + (let ((__tmp128933 + (cons (cons (cons _%$lp-e127933%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e128328%_ - _%$hd128691%_)) + _%unwrap-e127564%_ + _%$hd127927%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp129723 - (let ((__tmp129729 - (cons (cons (cons _%$lp-hd128699%_ + (__tmp128929 + (let ((__tmp128932 + (cons (cons (cons _%$lp-hd127935%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##car _%$lp-e128697%_)) + (gx#core-list '##car _%$lp-e127933%_)) '())) - (cons (cons (cons _%$lp-tl128701%_ '()) + (cons (cons (cons _%$lp-tl127937%_ '()) (cons (let () (declare (not safe)) (gx#core-list '##cdr - _%$lp-e128697%_)) + _%$lp-e127933%_)) '())) '()))) - (__tmp129724 - (let ((__tmp129725 - (lambda (_%hdvars128720%_) - (let ((__tmp129726 - (let ((__tmp129727 - (map (lambda (_%svar128722%_ - _%lvar128723%_) - (let ((__tmp129728 - (let () - (declare - (not safe)) - (agetq__% - _%svar128722%_ - _%hdvars128720%_ - _%BUG128520%_)))) - (declare (not safe)) - (gx#core-list - 'cons - __tmp129728 - _%lvar128723%_))) - _%svars128703%_ - _%lvars128705%_))) - (declare (not safe)) - (cons _%$lp-tl128701%_ __tmp129727)))) - (declare (not safe)) - (cons _%$lp128695%_ __tmp129726))))) - (declare (not safe)) - (_%recur128521%_ - _%hd128685%_ - '() - _%$lp-hd128699%_ - _%E128615%_ - __tmp129725)))) + (__tmp128930 + (_%recur127757%_ + _%hd127921%_ + '() + _%$lp-hd127935%_ + _%E127851%_ + (lambda (_%hdvars127956%_) + (cons _%$lp127931%_ + (cons _%$lp-tl127937%_ + (map (lambda (_%svar127958%_ + _%lvar127959%_) + (let ((__tmp128931 + (let () + (declare (not safe)) + (agetq__% + _%svar127958%_ + _%hdvars127956%_ + _%BUG127756%_)))) + (declare (not safe)) + (gx#core-list + 'cons + __tmp128931 + _%lvar127959%_))) + _%svars127939%_ + _%lvars127941%_))))))) (declare (not safe)) - (gx#core-list 'let-values __tmp129729 __tmp129724)))) + (gx#core-list 'let-values __tmp128932 __tmp128930)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp129730 - __tmp129723))) - (__tmp129718 - (let ((__tmp129721 - (map (lambda (_%lvar128725%_ + __tmp128933 + __tmp128929))) + (__tmp128924 + (let ((__tmp128927 + (map (lambda (_%lvar127961%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar128726%_) - (cons (cons _%tlvar128726%_ '()) + _%tlvar127962%_) + (cons (cons _%tlvar127962%_ '()) (cons (let () (declare (not safe)) - (gx#core-list 'reverse _%lvar128725%_)) + (gx#core-list 'reverse _%lvar127961%_)) '()))) - _%lvars128705%_ - _%tlvars128707%_)) + _%lvars127941%_ + _%tlvars127943%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp129719 - (_%k128616%_ - (let ((__tmp129720 - (lambda (_%svar128728%_ + (__tmp128925 + (_%k127852%_ + (let ((__tmp128926 + (lambda (_%svar127964%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar128729%_ - _%r128730%_) - (cons (cons _%svar128728%_ _%tlvar128729%_) - _%r128730%_)))) + _%tlvar127965%_ + _%r127966%_) + (cons (cons _%svar127964%_ _%tlvar127965%_) + _%r127966%_)))) (declare (not safe)) (__foldl2 - __tmp129720 - _%vars128718%_ - _%svars128703%_ - _%tlvars128707%_))))) + __tmp128926 + _%vars127954%_ + _%svars127939%_ + _%tlvars127943%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp129721 - __tmp129719)))) + __tmp128927 + __tmp128925)))) (declare (not safe)) (gx#core-list 'if - __tmp129731 - __tmp129722 - __tmp129718)))) + __tmp128934 + __tmp128928 + __tmp128924)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp129732 - __tmp129717)) + __tmp128935 + __tmp128923)) '())) '())) - (__tmp129714 - (let ((__tmp129715 - (let () - (declare (not safe)) - (cons _%$target128689%_ _%linit128711%_)))) - (declare (not safe)) - (cons _%$lp128695%_ __tmp129715)))) + (__tmp128921 + (cons _%$lp127931%_ (cons _%$target127925%_ _%linit127947%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp129716 - __tmp129714))))) - (let ((_%body128716%_ - (let ((__tmp129734 - (cons (cons (cons _%$target128689%_ + __tmp128922 + __tmp128921))))) + (let ((_%body127952%_ + (let ((__tmp128937 + (cons (cons (cons _%$target127925%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tl128693%_ '())) + (cons _%$tl127929%_ '())) (cons (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _%target128614%_ - _%rlen128687%_)) + _%target127850%_ + _%rlen127923%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp129733 - (let () - (declare (not safe)) - (_%recur128521%_ - _%tl128684%_ - _%vars128613%_ - _%$tl128693%_ - _%E128615%_ - _%make-loop128714%_)))) + (__tmp128936 + (_%recur127757%_ + _%tl127920%_ + _%vars127849%_ + _%$tl127929%_ + _%E127851%_ + _%make-loop127950%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp129734 - __tmp129733)))) - (let ((__tmp129738 + __tmp128937 + __tmp128936)))) + (let ((__tmp128941 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _%target128614%_))) - (__tmp129735 - (if (zero? _%rlen128687%_) - _%body128716%_ - (let ((__tmp129736 - (let ((__tmp129737 + _%target127850%_))) + (__tmp128938 + (if (zero? _%rlen127923%_) + _%body127952%_ + (let ((__tmp128939 + (let ((__tmp128940 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _%target128614%_)))) + (gx#core-list 'stx-length _%target127850%_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp129737 _%rlen128687%_)))) + (gx#core-list 'fx>= __tmp128940 _%rlen127923%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp129736 - _%body128716%_ - _%E128615%_))))) + __tmp128939 + _%body127952%_ + _%E127851%_))))) (declare (not safe)) (gx#core-list 'if - __tmp129738 - __tmp129735 - _%E128615%_)))))))) + __tmp128941 + __tmp128938 + _%E127851%_)))))))) (if (let () (declare (not safe)) - (##pair? _%body128670128677%_)) - (let ((_%hd128674128735%_ + (##pair? _%body127906127913%_)) + (let ((_%hd127910127971%_ (let () (declare (not safe)) - (##car _%body128670128677%_))) - (_%tl128675128737%_ + (##car _%body127906127913%_))) + (_%tl127911127973%_ (let () (declare (not safe)) - (##cdr _%body128670128677%_)))) - (let* ((_%hd128740%_ _%hd128674128735%_) - (_%tl128742%_ _%tl128675128737%_)) - (declare (not safe)) - (_%K128673128732%_ - _%tl128742%_ - _%hd128740%_))) - (let () - (declare (not safe)) - (_%E128672128681%_)))) - (if (eq? 'null _%$e128634%_) - (let ((__tmp129740 + (##cdr _%body127906127913%_)))) + (let* ((_%hd127976%_ _%hd127910127971%_) + (_%tl127978%_ _%tl127911127973%_)) + (_%K127909127968%_ + _%tl127978%_ + _%hd127976%_))) + (_%E127908127917%_))) + (if (eq? 'null _%$e127870%_) + (let ((__tmp128943 (let () (declare (not safe)) (gx#core-list 'stx-null? - _%target128614%_))) - (__tmp129739 (_%k128616%_ _%vars128613%_))) + _%target127850%_))) + (__tmp128942 (_%k127852%_ _%vars127849%_))) (declare (not safe)) (gx#core-list 'if - __tmp129740 - __tmp129739 - _%E128615%_)) - (if (eq? 'vector _%$e128634%_) - (let ((_%$e128744%_ + __tmp128943 + __tmp128942 + _%E127851%_)) + (if (eq? 'vector _%$e127870%_) + (let ((_%$e127980%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp129745 + (let ((__tmp128948 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _%target128614%_))) - (__tmp129741 - (let ((__tmp129743 - (cons (cons (cons _%$e128744%_ + _%target127850%_))) + (__tmp128944 + (let ((__tmp128946 + (cons (cons (cons _%$e127980%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp129744 + (cons (let ((__tmp128947 (let () (declare (not safe)) (gx#core-list - _%unwrap-e128328%_ - _%target128614%_)))) + _%unwrap-e127564%_ + _%target127850%_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp129744)) + (gx#core-list 'vector->list __tmp128947)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp129742 - (let () - (declare (not safe)) - (_%recur128521%_ - _%body128631%_ - _%vars128613%_ - _%$e128744%_ - _%E128615%_ - _%k128616%_)))) + (__tmp128945 + (_%recur127757%_ + _%body127867%_ + _%vars127849%_ + _%$e127980%_ + _%E127851%_ + _%k127852%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp129743 - __tmp129742)))) + __tmp128946 + __tmp128945)))) (declare (not safe)) (gx#core-list 'if - __tmp129745 - __tmp129741 - _%E128615%_))) - (if (eq? 'box _%$e128634%_) - (let ((_%$e128746%_ + __tmp128948 + __tmp128944 + _%E127851%_))) + (if (eq? 'box _%$e127870%_) + (let ((_%$e127982%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp129750 + (let ((__tmp128953 (let () (declare (not safe)) (gx#core-list 'stx-box? - _%target128614%_))) - (__tmp129746 - (let ((__tmp129748 - (cons (cons (cons _%$e128746%_ + _%target127850%_))) + (__tmp128949 + (let ((__tmp128951 + (cons (cons (cons _%$e127982%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp129749 + (cons (let ((__tmp128952 (let () (declare (not safe)) (gx#core-list - _%unwrap-e128328%_ - _%target128614%_)))) + _%unwrap-e127564%_ + _%target127850%_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp129749)) + (gx#core-list 'unbox __tmp128952)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp129747 - (let () - (declare (not safe)) - (_%recur128521%_ - _%body128631%_ - _%vars128613%_ - _%$e128746%_ - _%E128615%_ - _%k128616%_)))) + (__tmp128950 + (_%recur127757%_ + _%body127867%_ + _%vars127849%_ + _%$e127982%_ + _%E127851%_ + _%k127852%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp129748 - __tmp129747)))) + __tmp128951 + __tmp128950)))) (declare (not safe)) (gx#core-list 'if - __tmp129750 - __tmp129746 - _%E128615%_))) - (if (eq? 'datum _%$e128634%_) - (let ((_%$e128748%_ + __tmp128953 + __tmp128949 + _%E127851%_))) + (if (eq? 'datum _%$e127870%_) + (let ((_%$e127984%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp129756 + (let ((__tmp128959 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _%target128614%_))) - (__tmp129751 - (let ((__tmp129755 - (cons (cons (cons _%$e128748%_ + _%target127850%_))) + (__tmp128954 + (let ((__tmp128958 + (cons (cons (cons _%$e127984%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list 'stx-e _%target128614%_)) + (gx#core-list 'stx-e _%target127850%_)) '())) '())) - (__tmp129752 - (let ((__tmp129754 + (__tmp128955 + (let ((__tmp128957 (let () (declare (not safe)) - (gx#core-list 'equal? _%$e128748%_ _%body128631%_))) - (__tmp129753 (_%k128616%_ _%vars128613%_))) + (gx#core-list 'equal? _%$e127984%_ _%body127867%_))) + (__tmp128956 (_%k127852%_ _%vars127849%_))) (declare (not safe)) - (gx#core-list 'if __tmp129754 __tmp129753 _%E128615%_)))) + (gx#core-list 'if __tmp128957 __tmp128956 _%E127851%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp129755 - __tmp129752)))) + __tmp128958 + __tmp128955)))) (declare (not safe)) (gx#core-list 'if - __tmp129756 - __tmp129751 - _%E128615%_))) - (let () - (declare (not safe)) - (_%BUG128520%_ - _%e128612%_))))))))))))))) + __tmp128959 + __tmp128954 + _%E127851%_))) + (_%BUG127756%_ + _%e127848%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%e128617128624%_)) - (let ((_%hd128621128753%_ + (##pair? _%e127853127860%_)) + (let ((_%hd127857127989%_ (let () (declare (not safe)) - (##car _%e128617128624%_))) - (_%tl128622128755%_ + (##car _%e127853127860%_))) + (_%tl127858127991%_ (let () (declare (not safe)) - (##cdr _%e128617128624%_)))) - (let* ((_%tag128758%_ - _%hd128621128753%_) - (_%body128760%_ - _%tl128622128755%_)) - (declare (not safe)) - (_%K128620128750%_ - _%body128760%_ - _%tag128758%_))) - (let () - (declare (not safe)) - (_%E128619128628%_)))))) - (_%splice-rlen128522%_ - (lambda (_%e128574%_) - (let _%lp128576%_ ((_%e128578%_ _%e128574%_) - (_%n128579%_ '0)) - (let* ((_%e128580128587%_ _%e128578%_) - (_%E128582128591%_ + (##cdr _%e127853127860%_)))) + (let* ((_%tag127994%_ + _%hd127857127989%_) + (_%body127996%_ + _%tl127858127991%_)) + (_%K127856127986%_ + _%body127996%_ + _%tag127994%_))) + (_%E127855127864%_))))) + (_%splice-rlen127758%_ + (lambda (_%e127810%_) + (let _%lp127812%_ ((_%e127814%_ _%e127810%_) + (_%n127815%_ '0)) + (let* ((_%e127816127823%_ _%e127814%_) + (_%E127818127827%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e128580128587%_ + _%e127816127823%_ '([tag . body]))) '#!void)) - (_%K128583128600%_ - (lambda (_%body128594%_ - _%tag128595%_) - (let ((_%$e128597%_ _%tag128595%_)) - (if (eq? 'splice _%$e128597%_) + (_%K127819127836%_ + (lambda (_%body127830%_ + _%tag127831%_) + (let ((_%$e127833%_ _%tag127831%_)) + (if (eq? 'splice _%$e127833%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _%stx128326%_ - _%where128513%_)) - (if (eq? 'cons _%$e128597%_) - (let ((__tmp129758 - (cdr _%body128594%_)) - (__tmp129757 - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##fx+ _%n128579%_ '1)))) - (declare (not safe)) - (_%lp128576%_ __tmp129758 __tmp129757)) - _%n128579%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%stx127562%_ + _%where127749%_)) + (if (eq? 'cons _%$e127833%_) + (_%lp127812%_ + (cdr _%body127830%_) + (let () + (declare (not safe)) + (##fx+ _%n127815%_ + '1))) + _%n127815%_)))))) (if (let () (declare (not safe)) - (##pair? _%e128580128587%_)) - (let ((_%hd128584128603%_ + (##pair? _%e127816127823%_)) + (let ((_%hd127820127839%_ (let () (declare (not safe)) - (##car _%e128580128587%_))) - (_%tl128585128605%_ + (##car _%e127816127823%_))) + (_%tl127821127841%_ (let () (declare (not safe)) - (##cdr _%e128580128587%_)))) - (let* ((_%tag128608%_ - _%hd128584128603%_) - (_%body128610%_ - _%tl128585128605%_)) - (declare (not safe)) - (_%K128583128600%_ - _%body128610%_ - _%tag128608%_))) - (let () - (declare (not safe)) - (_%E128582128591%_))))))) - (_%splice-vars128523%_ - (lambda (_%e128530%_) - (let _%recur128532%_ ((_%e128534%_ _%e128530%_) - (_%vars128535%_ '())) - (let* ((_%e128536128543%_ _%e128534%_) - (_%E128538128547%_ + (##cdr _%e127816127823%_)))) + (let* ((_%tag127844%_ + _%hd127820127839%_) + (_%body127846%_ + _%tl127821127841%_)) + (_%K127819127836%_ + _%body127846%_ + _%tag127844%_))) + (_%E127818127827%_)))))) + (_%splice-vars127759%_ + (lambda (_%e127766%_) + (let _%recur127768%_ ((_%e127770%_ _%e127766%_) + (_%vars127771%_ '())) + (let* ((_%e127772127779%_ _%e127770%_) + (_%E127774127783%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e128536128543%_ + _%e127772127779%_ '([tag . body]))) '#!void)) - (_%K128539128562%_ - (lambda (_%body128550%_ - _%tag128551%_) - (let ((_%$e128553%_ _%tag128551%_)) - (if (eq? 'var _%$e128553%_) - (cons _%body128550%_ - _%vars128535%_) + (_%K127775127798%_ + (lambda (_%body127786%_ + _%tag127787%_) + (let ((_%$e127789%_ _%tag127787%_)) + (if (eq? 'var _%$e127789%_) + (cons _%body127786%_ + _%vars127771%_) (if (or (eq? 'cons - _%$e128553%_) + _%$e127789%_) (eq? 'splice - _%$e128553%_)) - (let ((__tmp129761 - (cdr _%body128550%_)) - (__tmp129759 - (let ((__tmp129760 + _%$e127789%_)) + (_%recur127768%_ + (cdr _%body127786%_) + (_%recur127768%_ + (car _%body127786%_) + _%vars127771%_)) + (if (or (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _%body128550%_))) - (declare (not safe)) - (_%recur128532%_ __tmp129760 _%vars128535%_)))) - (declare (not safe)) - (_%recur128532%_ __tmp129761 __tmp129759)) - (if (or (eq? 'vector _%$e128553%_) (eq? 'box _%$e128553%_)) - (let () - (declare (not safe)) - (_%recur128532%_ _%body128550%_ _%vars128535%_)) - _%vars128535%_))))))) + _%$e127789%_) + (eq? 'box _%$e127789%_)) + (_%recur127768%_ _%body127786%_ _%vars127771%_) + _%vars127771%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%e128536128543%_)) - (let ((_%hd128540128565%_ + (##pair? _%e127772127779%_)) + (let ((_%hd127776127801%_ (let () (declare (not safe)) - (##car _%e128536128543%_))) - (_%tl128541128567%_ + (##car _%e127772127779%_))) + (_%tl127777127803%_ (let () (declare (not safe)) - (##cdr _%e128536128543%_)))) - (let* ((_%tag128570%_ - _%hd128540128565%_) - (_%body128572%_ - _%tl128541128567%_)) - (declare (not safe)) - (_%K128539128562%_ - _%body128572%_ - _%tag128570%_))) - (let () - (declare (not safe)) - (_%E128538128547%_))))))) - (_%make-body128524%_ - (lambda (_%vars128526%_) - (cons _%K128517%_ - (map (lambda (_%mvar128528%_) - (let ((__tmp129762 - (car _%mvar128528%_))) + (##cdr _%e127772127779%_)))) + (let* ((_%tag127806%_ + _%hd127776127801%_) + (_%body127808%_ + _%tl127777127803%_)) + (_%K127775127798%_ + _%body127808%_ + _%tag127806%_))) + (_%E127774127783%_)))))) + (_%make-body127760%_ + (lambda (_%vars127762%_) + (cons _%K127753%_ + (map (lambda (_%mvar127764%_) + (let ((__tmp128960 + (car _%mvar127764%_))) (declare (not safe)) (agetq__% - __tmp129762 - _%vars128526%_ - _%BUG128520%_))) - _%mvars128516%_))))) - (let () - (declare (not safe)) - (_%recur128521%_ - _%hd128515%_ - '() - _%target128514%_ - _%E128518%_ - _%make-body128524%_))))) - (_%parse-clause128335%_ - (lambda (_%hd128407%_ _%ids128408%_) - (let _%recur128410%_ ((_%e128412%_ _%hd128407%_) - (_%vars128413%_ '()) - (_%depth128414%_ '0)) + __tmp128960 + _%vars127762%_ + _%BUG127756%_))) + _%mvars127752%_))))) + (_%recur127757%_ + _%hd127751%_ + '() + _%target127750%_ + _%E127754%_ + _%make-body127760%_)))) + (_%parse-clause127571%_ + (lambda (_%hd127643%_ _%ids127644%_) + (let _%recur127646%_ ((_%e127648%_ _%hd127643%_) + (_%vars127649%_ '()) + (_%depth127650%_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _%e128412%_)) - (let () - (if (let () - (declare (not safe)) - (gx#underscore? _%e128412%_)) - (let () (values '(any) _%vars128413%_)) - (if (let () - (declare (not safe)) - (gx#ellipsis? _%e128412%_)) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Misplaced ellipsis" - _%stx128326%_ - _%hd128407%_)) - (if (let ((__tmp129763 - (lambda (_%id128419%_) - (let () - (declare (not safe)) - (gx#bound-identifier=? - _%e128412%_ - _%id128419%_))))) - (declare (not safe)) - (__find __tmp129763 _%ids128408%_)) - (let () - (values (cons 'id _%e128412%_) - _%vars128413%_)) - (if (let ((__tmp129764 - (lambda (_%var128422%_) - (let ((__tmp129765 - (car _%var128422%_))) - (declare (not safe)) - (gx#bound-identifier=? - _%e128412%_ - __tmp129765))))) - (declare (not safe)) - (__find __tmp129764 - _%vars128413%_)) - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Duplicate pattern variable" - _%stx128326%_ - _%e128412%_)) - (let () - (values (cons 'var _%e128412%_) - (cons (cons _%e128412%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%depth128414%_) - _%vars128413%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#identifier? _%e127648%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%e128412%_)) - (let () - (let* ((_%e128426128433%_ _%e128412%_) - (_%E128428128437%_ - (lambda () + (gx#underscore? _%e127648%_)) + (values '(any) _%vars127649%_) + (if (let () + (declare (not safe)) + (gx#ellipsis? _%e127648%_)) + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Misplaced ellipsis" + _%stx127562%_ + _%hd127643%_)) + (if (let ((__tmp128961 + (lambda (_%id127655%_) + (let () + (declare (not safe)) + (gx#bound-identifier=? + _%e127648%_ + _%id127655%_))))) + (declare (not safe)) + (__find __tmp128961 _%ids127644%_)) + (values (cons 'id _%e127648%_) + _%vars127649%_) + (if (let ((__tmp128962 + (lambda (_%var127658%_) + (let ((__tmp128963 + (car _%var127658%_))) + (declare (not safe)) + (gx#bound-identifier=? + _%e127648%_ + __tmp128963))))) + (declare (not safe)) + (__find __tmp128962 + _%vars127649%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax; invalid syntax-case clause" - _%e128426128433%_)))) - (_%E128427128498%_ - (lambda () - (if (let () - (declare (not safe)) - (gx#stx-pair? - _%e128426128433%_)) - (let ((_%e128429128441%_ + '"Duplicate pattern variable" + _%stx127562%_ + _%e127648%_)) + (values (cons 'var _%e127648%_) + (cons (cons _%e127648%_ + _%depth127650%_) + _%vars127649%_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? _%e127648%_)) + (let* ((_%e127662127669%_ _%e127648%_) + (_%E127664127673%_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _%e127662127669%_)))) + (_%E127663127734%_ + (lambda () + (if (let () + (declare (not safe)) + (gx#stx-pair? _%e127662127669%_)) + (let ((_%e127665127677%_ + (let () + (declare (not safe)) + (gx#syntax-e + _%e127662127669%_)))) + (let ((_%hd127666127680%_ (let () (declare (not safe)) - (gx#syntax-e - _%e128426128433%_)))) - (let ((_%hd128430128444%_ - (let () - (declare (not safe)) - (##car _%e128429128441%_))) - (_%tl128431128446%_ - (let () - (declare (not safe)) - (##cdr _%e128429128441%_)))) - (let* ((_%hd128449%_ - _%hd128430128444%_) - (_%rest128451%_ - _%tl128431128446%_)) - (if '#t - (let* ((_%make-pair128466%_ - (lambda (_%tag128453%_ + (##car _%e127665127677%_))) + (_%tl127667127682%_ + (let () + (declare (not safe)) + (##cdr _%e127665127677%_)))) + (let* ((_%hd127685%_ + _%hd127666127680%_) + (_%rest127687%_ + _%tl127667127682%_)) + (if '#t + (let* ((_%make-pair127702%_ + (lambda (_%tag127689%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd128454%_ - _%tl128455%_) - (let* ((_%hd-depth128457%_ - (if (eq? _%tag128453%_ 'splice) - (let () - (declare (not safe)) - (##fx+ _%depth128414%_ '1)) - _%depth128414%_)) - (_g129766_ - (let () - (declare (not safe)) - (_%recur128410%_ - _%hd128454%_ - _%vars128413%_ - _%hd-depth128457%_)))) - (begin - (let ((_g129767_ - (let () - (declare (not safe)) - (if (##values? _g129766_) - (##vector-length _g129766_) - 1)))) - (if (not (let () + _%hd127690%_ + _%tl127691%_) + (let* ((_%hd-depth127693%_ + (if (eq? _%tag127689%_ 'splice) + (let () + (declare (not safe)) + (##fx+ _%depth127650%_ '1)) + _%depth127650%_)) + (_g128964_ + (_%recur127646%_ + _%hd127690%_ + _%vars127649%_ + _%hd-depth127693%_))) + (begin + (let ((_g128965_ + (let () + (declare (not safe)) + (if (##values? _g128964_) + (##vector-length _g128964_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g128965_ 2))) + (error "Context expects 2 values" + _g128965_))) + (let ((_%hd127695%_ + (let () + (declare (not safe)) + (##vector-ref _g128964_ 0))) + (_%vars127696%_ + (let () + (declare (not safe)) + (##vector-ref _g128964_ 1)))) + (let ((_g128966_ + (_%recur127646%_ + _%tl127691%_ + _%vars127696%_ + _%depth127650%_))) + (begin + (let ((_g128967_ + (let () (declare (not safe)) - (##fx= _g129767_ 2))) - (error "Context expects 2 values" - _g129767_))) - (let ((_%hd128459%_ - (let () - (declare (not safe)) - (##vector-ref _g129766_ 0))) - (_%vars128460%_ + (if (##values? _g128966_) + (##vector-length _g128966_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g128967_ 2))) + (error "Context expects 2 values" + _g128967_))) + (let ((_%tl127698%_ + (let () + (declare (not safe)) + (##vector-ref _g128966_ 0))) + (_%vars127699%_ + (let () + (declare (not safe)) + (##vector-ref _g128966_ 1)))) + (values (cons _%tag127689%_ + (cons _%hd127695%_ + _%tl127698%_)) + _%vars127699%_))))))))) + (_%e127703127710%_ _%rest127687%_) + (_%E127705127714%_ + (lambda () + (_%make-pair127702%_ + 'cons + _%hd127685%_ + _%rest127687%_))) + (_%E127704127730%_ + (lambda () + (if (let () + (declare (not safe)) + (gx#stx-pair? _%e127703127710%_)) + (let ((_%e127706127718%_ + (let () + (declare (not safe)) + (gx#syntax-e _%e127703127710%_)))) + (let ((_%hd127707127721%_ (let () (declare (not safe)) - (##vector-ref _g129766_ 1)))) - (let ((_g129768_ - (let () - (declare (not safe)) - (_%recur128410%_ - _%tl128455%_ - _%vars128460%_ - _%depth128414%_)))) - (begin - (let ((_g129769_ - (let () - (declare (not safe)) - (if (##values? _g129768_) - (##vector-length _g129768_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g129769_ 2))) - (error "Context expects 2 values" - _g129769_))) - (let ((_%tl128462%_ - (let () - (declare (not safe)) - (##vector-ref _g129768_ 0))) - (_%vars128463%_ - (let () - (declare (not safe)) - (##vector-ref _g129768_ 1)))) - (let () - (values (let ((__tmp129770 - (let () - (declare (not safe)) - (cons _%hd128459%_ - _%tl128462%_)))) - (declare (not safe)) - (cons _%tag128453%_ - __tmp129770)) - _%vars128463%_)))))))))) - (_%e128467128474%_ _%rest128451%_) - (_%E128469128478%_ - (lambda () - (let () - (declare (not safe)) - (_%make-pair128466%_ - 'cons - _%hd128449%_ - _%rest128451%_)))) - (_%E128468128494%_ - (lambda () - (if (let () - (declare (not safe)) - (gx#stx-pair? _%e128467128474%_)) - (let ((_%e128470128482%_ + (##car _%e127706127718%_))) + (_%tl127708127723%_ (let () (declare (not safe)) - (gx#syntax-e _%e128467128474%_)))) - (let ((_%hd128471128485%_ - (let () - (declare (not safe)) - (##car _%e128470128482%_))) - (_%tl128472128487%_ - (let () - (declare (not safe)) - (##cdr _%e128470128482%_)))) - (let* ((_%rest-hd128490%_ _%hd128471128485%_) - (_%rest-tl128492%_ - _%tl128472128487%_)) - (if '#t - (if (let () - (declare (not safe)) - (gx#ellipsis? _%rest-hd128490%_)) - (let () - (declare (not safe)) - (_%make-pair128466%_ - 'splice - _%hd128449%_ - _%rest-tl128492%_)) - (let () - (declare (not safe)) - (_%make-pair128466%_ - 'cons - _%hd128449%_ - _%rest128451%_))) - (let () - (declare (not safe)) - (_%E128469128478%_)))))) - (let () - (declare (not safe)) - (_%E128469128478%_)))))) - (declare (not safe)) - (_%E128468128494%_)) - (let () (declare (not safe)) (_%E128428128437%_)))))) + (##cdr _%e127706127718%_)))) + (let* ((_%rest-hd127726%_ _%hd127707127721%_) + (_%rest-tl127728%_ _%tl127708127723%_)) + (if '#t + (if (let () + (declare (not safe)) + (gx#ellipsis? _%rest-hd127726%_)) + (_%make-pair127702%_ + 'splice + _%hd127685%_ + _%rest-tl127728%_) + (_%make-pair127702%_ + 'cons + _%hd127685%_ + _%rest127687%_)) + (_%E127705127714%_))))) + (_%E127705127714%_))))) + (_%E127704127730%_)) + (_%E127664127673%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%E128428128437%_)))))) - (declare (not safe)) - (_%E128427128498%_))) + (_%E127664127673%_))))) + (_%E127663127734%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%e128412%_)) - (let () (values '(null) _%vars128413%_)) + (gx#stx-null? _%e127648%_)) + (values '(null) _%vars127649%_) (if (let () (declare (not safe)) - (gx#stx-vector? _%e128412%_)) - (let ((_g129771_ - (let ((__tmp129773 - (vector->list - (let () - (declare (not safe)) - (gx#syntax-e - _%e128412%_))))) - (declare (not safe)) - (_%recur128410%_ - __tmp129773 - _%vars128413%_ - _%depth128414%_)))) + (gx#stx-vector? _%e127648%_)) + (let ((_g128968_ + (_%recur127646%_ + (vector->list + (let () + (declare (not safe)) + (gx#syntax-e _%e127648%_))) + _%vars127649%_ + _%depth127650%_))) (begin - (let ((_g129772_ + (let ((_g128969_ (let () (declare (not safe)) - (if (##values? _g129771_) + (if (##values? _g128968_) (##vector-length - _g129771_) + _g128968_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129772_ 2))) + (##fx= _g128969_ 2))) (error "Context expects 2 values" - _g129772_))) - (let ((_%e128504%_ + _g128969_))) + (let ((_%e127740%_ (let () (declare (not safe)) - (##vector-ref _g129771_ 0))) - (_%vars128505%_ + (##vector-ref _g128968_ 0))) + (_%vars127741%_ (let () (declare (not safe)) (##vector-ref - _g129771_ + _g128968_ 1)))) - (values (cons 'vector _%e128504%_) - _%vars128505%_)))) + (values (cons 'vector _%e127740%_) + _%vars127741%_)))) (if (let () (declare (not safe)) - (gx#stx-box? _%e128412%_)) - (let ((_g129774_ - (let ((__tmp129776 - (unbox (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#syntax-e _%e128412%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%recur128410%_ - __tmp129776 - _%vars128413%_ - _%depth128414%_)))) + (gx#stx-box? _%e127648%_)) + (let ((_g128970_ + (_%recur127646%_ + (unbox (let () + (declare (not safe)) + (gx#syntax-e + _%e127648%_))) + _%vars127649%_ + _%depth127650%_))) (begin - (let ((_g129775_ + (let ((_g128971_ (let () (declare (not safe)) (if (##values? - _g129774_) + _g128970_) (##vector-length - _g129774_) + _g128970_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129775_ + (##fx= _g128971_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g129775_))) - (let ((_%e128508%_ + _g128971_))) + (let ((_%e127744%_ (let () (declare (not safe)) (##vector-ref - _g129774_ + _g128970_ 0))) - (_%vars128509%_ + (_%vars127745%_ (let () (declare (not safe)) (##vector-ref - _g129774_ + _g128970_ 1)))) - (values (cons 'box _%e128508%_) - _%vars128509%_)))) + (values (cons 'box _%e127744%_) + _%vars127745%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%e128412%_)) - (let () - (values (cons 'datum - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gx#stx-e _%e128412%_))) - _%vars128413%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#stx-datum? _%e127648%_)) + (values (cons 'datum + (let () + (declare + (not safe)) + (gx#stx-e + _%e127648%_))) + _%vars127649%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _%stx128326%_ - _%e128412%_)))))))))))) - (let* ((_%e128336128349%_ _%stx128326%_) - (_%E128338128353%_ + _%stx127562%_ + _%e127648%_)))))))))))) + (let* ((_%e127572127585%_ _%stx127562%_) + (_%E127574127589%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128336128349%_)))) - (_%E128337128403%_ + _%e127572127585%_)))) + (_%E127573127639%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e128336128349%_)) - (let ((_%e128339128357%_ + (gx#stx-pair? _%e127572127585%_)) + (let ((_%e127575127593%_ (let () (declare (not safe)) - (gx#syntax-e _%e128336128349%_)))) - (let ((_%hd128340128360%_ + (gx#syntax-e _%e127572127585%_)))) + (let ((_%hd127576127596%_ (let () (declare (not safe)) - (##car _%e128339128357%_))) - (_%tl128341128362%_ + (##car _%e127575127593%_))) + (_%tl127577127598%_ (let () (declare (not safe)) - (##cdr _%e128339128357%_)))) + (##cdr _%e127575127593%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl128341128362%_)) - (let ((_%e128342128365%_ + (gx#stx-pair? _%tl127577127598%_)) + (let ((_%e127578127601%_ (let () (declare (not safe)) - (gx#syntax-e _%tl128341128362%_)))) - (let ((_%hd128343128368%_ + (gx#syntax-e _%tl127577127598%_)))) + (let ((_%hd127579127604%_ (let () (declare (not safe)) - (##car _%e128342128365%_))) - (_%tl128344128370%_ + (##car _%e127578127601%_))) + (_%tl127580127606%_ (let () (declare (not safe)) - (##cdr _%e128342128365%_)))) - (let ((_%expr128373%_ _%hd128343128368%_)) + (##cdr _%e127578127601%_)))) + (let ((_%expr127609%_ _%hd127579127604%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl128344128370%_)) - (let ((_%e128345128375%_ + (gx#stx-pair? _%tl127580127606%_)) + (let ((_%e127581127611%_ (let () (declare (not safe)) (gx#syntax-e - _%tl128344128370%_)))) - (let ((_%hd128346128378%_ + _%tl127580127606%_)))) + (let ((_%hd127582127614%_ (let () (declare (not safe)) - (##car _%e128345128375%_))) - (_%tl128347128380%_ + (##car _%e127581127611%_))) + (_%tl127583127616%_ (let () (declare (not safe)) - (##cdr _%e128345128375%_)))) - (let* ((_%ids128383%_ - _%hd128346128378%_) - (_%clauses128385%_ - _%tl128347128380%_)) + (##cdr _%e127581127611%_)))) + (let* ((_%ids127619%_ + _%hd127582127614%_) + (_%clauses127621%_ + _%tl127583127616%_)) (if '#t - (if (let ((__tmp129777 - (let () + (if (not (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (gx#identifier-list? _%ids128383%_)))) - (declare (not safe)) - (not __tmp129777)) + (not safe)) + (gx#identifier-list? _%ids127619%_))) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _%stx128326%_ - _%ids128383%_)) - (if (let ((__tmp129778 - (let () - (declare (not safe)) - (gx#stx-list? _%clauses128385%_)))) - (declare (not safe)) - (not __tmp129778)) + _%stx127562%_ + _%ids127619%_)) + (if (not (let () + (declare (not safe)) + (gx#stx-list? _%clauses127621%_))) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _%stx128326%_)) - (let () - (let* ((_%ids128390%_ - (let () - (declare (not safe)) - (gx#syntax->list _%ids128383%_))) - (_%clauses128392%_ - (let () - (declare (not safe)) - (gx#syntax->list _%clauses128385%_))) - (_%clause-ids128394%_ - (let () - (declare (not safe)) - (gx#gentemps _%clauses128392%_))) - (_%E128396%_ - (let () (declare (not safe)) (gx#genident__0))) - (_%target128398%_ - (let () (declare (not safe)) (gx#genident__0))) - (_%first128400%_ - (if (let () - (declare (not safe)) - (null? _%clauses128392%_)) - _%E128396%_ - (car _%clause-ids128394%_)))) - (let ((__tmp129780 - (let ((__tmp129781 - (let ((__tmp129783 - (let ((__tmp129787 - (cons (cons (cons _%E128396%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()) - (cons (let ((__tmp129789 (cons _%target128398%_ '())) - (__tmp129788 - (let () - (declare (not safe)) - (gx#core-list - 'raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%target128398%_)))) - (declare (not safe)) - (gx#core-list - 'lambda% - __tmp129789 - __tmp129788)) - '())) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp129784 - (let ((__tmp129786 - (let () - (declare - (not safe)) - (_%generate-bindings128331%_ - _%target128398%_ - _%ids128390%_ - _%clauses128392%_ - _%clause-ids128394%_ - _%E128396%_))) - (__tmp129785 - (cons _%first128400%_ + _%stx127562%_)) + (let* ((_%ids127626%_ + (let () + (declare (not safe)) + (gx#syntax->list _%ids127619%_))) + (_%clauses127628%_ + (let () + (declare (not safe)) + (gx#syntax->list _%clauses127621%_))) + (_%clause-ids127630%_ + (let () + (declare (not safe)) + (gx#gentemps _%clauses127628%_))) + (_%E127632%_ + (let () (declare (not safe)) (gx#genident__0))) + (_%target127634%_ + (let () (declare (not safe)) (gx#genident__0))) + (_%first127636%_ + (if (null? _%clauses127628%_) + _%E127632%_ + (car _%clause-ids127630%_)))) + (let ((__tmp128973 + (let ((__tmp128974 + (let ((__tmp128976 + (let ((__tmp128978 + (cons (cons (cons _%E127632%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr128373%_ '())))) - (declare (not safe)) - (_%generate-body128332%_ __tmp129786 __tmp129785)))) + '()) + (cons (let ((__tmp128980 (cons _%target127634%_ '())) + (__tmp128979 + (let () + (declare (not safe)) + (gx#core-list + 'raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%target127634%_)))) + (declare (not safe)) + (gx#core-list 'lambda% __tmp128980 __tmp128979)) + '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gx#core-list - 'let-values - __tmp129787 - __tmp129784))) - (__tmp129782 - (let () - (declare (not safe)) - (gx#stx-source _%stx128326%_)))) - (declare (not safe)) - (gx#stx-wrap-source - __tmp129783 - __tmp129782)))) - (declare (not safe)) - (gx#core-list - 'begin-annotation - '@syntax-case - __tmp129781))) - (__tmp129779 - (let () - (declare (not safe)) - (gx#stx-source _%stx128326%_)))) - (declare (not safe)) - (gx#stx-wrap-source __tmp129780 __tmp129779)))))) + (__tmp128977 + (_%generate-body127568%_ + (_%generate-bindings127567%_ + _%target127634%_ + _%ids127626%_ + _%clauses127628%_ + _%clause-ids127630%_ + _%E127632%_) + (cons _%first127636%_ + (cons _%expr127609%_ + '()))))) + (declare (not safe)) + (gx#core-list + 'let-values + __tmp128978 + __tmp128977))) + (__tmp128975 + (let () + (declare (not safe)) + (gx#stx-source _%stx127562%_)))) + (declare (not safe)) + (gx#stx-wrap-source + __tmp128976 + __tmp128975)))) + (declare (not safe)) + (gx#core-list + 'begin-annotation + '@syntax-case + __tmp128974))) + (__tmp128972 + (let () + (declare (not safe)) + (gx#stx-source _%stx127562%_)))) + (declare (not safe)) + (gx#stx-wrap-source __tmp128973 __tmp128972))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%E128338128353%_)))))) - (let () - (declare (not safe)) - (_%E128338128353%_)))))) - (let () - (declare (not safe)) - (_%E128338128353%_))))) - (let () (declare (not safe)) (_%E128338128353%_)))))) - (declare (not safe)) - (_%E128337128403%_))))) + (_%E127574127589%_))))) + (_%E127574127589%_))))) + (_%E127574127589%_)))) + (_%E127574127589%_))))) + (_%E127573127639%_))))) (define gx#macro-expand-syntax-case__0 - (lambda (_%stx129051%_) - (let* ((_%identifier=?129053%_ 'free-identifier=?) - (_%unwrap-e129055%_ 'syntax-e) - (_%wrap-e129057%_ 'quote-syntax)) - (declare (not safe)) + (lambda (_%stx128287%_) + (let* ((_%identifier=?128289%_ 'free-identifier=?) + (_%unwrap-e128291%_ 'syntax-e) + (_%wrap-e128293%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx129051%_ - _%identifier=?129053%_ - _%unwrap-e129055%_ - _%wrap-e129057%_)))) + _%stx128287%_ + _%identifier=?128289%_ + _%unwrap-e128291%_ + _%wrap-e128293%_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_%stx129059%_ _%identifier=?129060%_) - (let* ((_%unwrap-e129062%_ 'syntax-e) (_%wrap-e129064%_ 'quote-syntax)) - (declare (not safe)) + (lambda (_%stx128295%_ _%identifier=?128296%_) + (let* ((_%unwrap-e128298%_ 'syntax-e) (_%wrap-e128300%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx129059%_ - _%identifier=?129060%_ - _%unwrap-e129062%_ - _%wrap-e129064%_)))) + _%stx128295%_ + _%identifier=?128296%_ + _%unwrap-e128298%_ + _%wrap-e128300%_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_%stx129066%_ _%identifier=?129067%_ _%unwrap-e129068%_) - (let ((_%wrap-e129070%_ 'quote-syntax)) - (declare (not safe)) + (lambda (_%stx128302%_ _%identifier=?128303%_ _%unwrap-e128304%_) + (let ((_%wrap-e128306%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx129066%_ - _%identifier=?129067%_ - _%unwrap-e129068%_ - _%wrap-e129070%_)))) + _%stx128302%_ + _%identifier=?128303%_ + _%unwrap-e128304%_ + _%wrap-e128306%_)))) (define gx#macro-expand-syntax-case - (lambda _g129791_ - (let ((_g129790_ (let () (declare (not safe)) (##length _g129791_)))) - (cond ((let () (declare (not safe)) (##fx= _g129790_ 1)) - (apply (lambda (_%stx129051%_) - (let () - (declare (not safe)) - (gx#macro-expand-syntax-case__0 _%stx129051%_))) - _g129791_)) - ((let () (declare (not safe)) (##fx= _g129790_ 2)) - (apply (lambda (_%stx129059%_ _%identifier=?129060%_) - (let () - (declare (not safe)) - (gx#macro-expand-syntax-case__1 - _%stx129059%_ - _%identifier=?129060%_))) - _g129791_)) - ((let () (declare (not safe)) (##fx= _g129790_ 3)) - (apply (lambda (_%stx129066%_ - _%identifier=?129067%_ - _%unwrap-e129068%_) - (let () - (declare (not safe)) - (gx#macro-expand-syntax-case__2 - _%stx129066%_ - _%identifier=?129067%_ - _%unwrap-e129068%_))) - _g129791_)) - ((let () (declare (not safe)) (##fx= _g129790_ 4)) - (apply (lambda (_%stx129072%_ - _%identifier=?129073%_ - _%unwrap-e129074%_ - _%wrap-e129075%_) - (let () - (declare (not safe)) - (gx#macro-expand-syntax-case__% - _%stx129072%_ - _%identifier=?129073%_ - _%unwrap-e129074%_ - _%wrap-e129075%_))) - _g129791_)) + (lambda _g128982_ + (let ((_g128981_ (let () (declare (not safe)) (##length _g128982_)))) + (cond ((let () (declare (not safe)) (##fx= _g128981_ 1)) + (apply gx#macro-expand-syntax-case__0 _g128982_)) + ((let () (declare (not safe)) (##fx= _g128981_ 2)) + (apply gx#macro-expand-syntax-case__1 _g128982_)) + ((let () (declare (not safe)) (##fx= _g128981_ 3)) + (apply gx#macro-expand-syntax-case__2 _g128982_)) + ((let () (declare (not safe)) (##fx= _g128981_ 4)) + (apply gx#macro-expand-syntax-case__% _g128982_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g129791_)))))) + _g128982_)))))) (define gx#syntax-local-pattern? - (lambda (_%stx128323%_) - (if (let () (declare (not safe)) (gx#identifier? _%stx128323%_)) - (let ((__tmp129792 + (lambda (_%stx127559%_) + (if (let () (declare (not safe)) (gx#identifier? _%stx127559%_)) + (let ((__tmp128983 (let () (declare (not safe)) - (gx#syntax-local-e__% _%stx128323%_ false)))) + (gx#syntax-local-e__% _%stx127559%_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp129792 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp128983 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_%hd128281%_ . _%rest128282%_) - (let ((_%len128284%_ (length _%hd128281%_))) - (let _%lp128286%_ ((_%rest128288%_ _%rest128282%_)) - (let* ((_%rest128289128297%_ _%rest128288%_) - (_%else128291128305%_ (lambda () '#!void)) - (_%K128293128311%_ - (lambda (_%rest128308%_ _%hd128309%_) - (if (let ((__tmp129793 (length _%hd128309%_))) - (declare (not safe)) - (##fx= _%len128284%_ __tmp129793)) - (let () + (lambda (_%hd127517%_ . _%rest127518%_) + (let ((_%len127520%_ (length _%hd127517%_))) + (let _%lp127522%_ ((_%rest127524%_ _%rest127518%_)) + (let* ((_%rest127525127533%_ _%rest127524%_) + (_%else127527127541%_ (lambda () '#!void)) + (_%K127529127547%_ + (lambda (_%rest127544%_ _%hd127545%_) + (if (let ((__tmp128984 (length _%hd127545%_))) (declare (not safe)) - (_%lp128286%_ _%rest128308%_)) + (##fx= _%len127520%_ __tmp128984)) + (_%lp127522%_ _%rest127544%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _%hd128309%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest128289128297%_)) - (let ((_%hd128294128314%_ + _%hd127545%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest127525127533%_)) + (let ((_%hd127530127550%_ (let () (declare (not safe)) - (##car _%rest128289128297%_))) - (_%tl128295128316%_ + (##car _%rest127525127533%_))) + (_%tl127531127552%_ (let () (declare (not safe)) - (##cdr _%rest128289128297%_)))) - (let* ((_%hd128319%_ _%hd128294128314%_) - (_%rest128321%_ _%tl128295128316%_)) - (declare (not safe)) - (_%K128293128311%_ _%rest128321%_ _%hd128319%_))) + (##cdr _%rest127525127533%_)))) + (let* ((_%hd127555%_ _%hd127530127550%_) + (_%rest127557%_ _%tl127531127552%_)) + (_%K127529127547%_ _%rest127557%_ _%hd127555%_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_%stx128236%_ _%n128237%_) - (let _%lp128239%_ ((_%rest128241%_ _%stx128236%_) (_%r128242%_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _%rest128241%_)) - (let* ((_%g128243128250%_ + (lambda (_%stx127472%_ _%n127473%_) + (let _%lp127475%_ ((_%rest127477%_ _%stx127472%_) (_%r127478%_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _%rest127477%_)) + (let* ((_%g127479127486%_ (let () (declare (not safe)) - (gx#syntax-e _%rest128241%_))) - (_%E128245128254%_ + (gx#syntax-e _%rest127477%_))) + (_%E127481127490%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g128243128250%_ + _%g127479127486%_ '([hd . rest]))) '#!void)) - (_%K128246128260%_ - (lambda (_%rest128257%_ _%hd128258%_) - (let ((__tmp129794 (cons _%hd128258%_ _%r128242%_))) - (declare (not safe)) - (_%lp128239%_ _%rest128257%_ __tmp129794))))) - (if (let () (declare (not safe)) (##pair? _%g128243128250%_)) - (let ((_%hd128247128263%_ + (_%K127482127496%_ + (lambda (_%rest127493%_ _%hd127494%_) + (_%lp127475%_ + _%rest127493%_ + (cons _%hd127494%_ _%r127478%_))))) + (if (let () (declare (not safe)) (##pair? _%g127479127486%_)) + (let ((_%hd127483127499%_ (let () (declare (not safe)) - (##car _%g128243128250%_))) - (_%tl128248128265%_ + (##car _%g127479127486%_))) + (_%tl127484127501%_ (let () (declare (not safe)) - (##cdr _%g128243128250%_)))) - (let* ((_%hd128268%_ _%hd128247128263%_) - (_%rest128270%_ _%tl128248128265%_)) - (declare (not safe)) - (_%K128246128260%_ _%rest128270%_ _%hd128268%_))) - (let () (declare (not safe)) (_%E128245128254%_)))) - (let _%lp128272%_ ((_%n128274%_ _%n128237%_) - (_%l128275%_ _%r128242%_) - (_%r128276%_ _%rest128241%_)) - (if (let () (declare (not safe)) (null? _%l128275%_)) - (let () (values _%l128275%_ _%r128276%_)) - (if (fxpositive? _%n128274%_) - (let ((__tmp129797 - (let () - (declare (not safe)) - (##fx- _%n128274%_ '1))) - (__tmp129796 (cdr _%l128275%_)) - (__tmp129795 - (cons (car _%l128275%_) _%r128276%_))) - (declare (not safe)) - (_%lp128272%_ __tmp129797 __tmp129796 __tmp129795)) - (let () - (values (reverse _%l128275%_) _%r128276%_))))))))))) + (##cdr _%g127479127486%_)))) + (let* ((_%hd127504%_ _%hd127483127499%_) + (_%rest127506%_ _%tl127484127501%_)) + (_%K127482127496%_ _%rest127506%_ _%hd127504%_))) + (_%E127481127490%_))) + (let _%lp127508%_ ((_%n127510%_ _%n127473%_) + (_%l127511%_ _%r127478%_) + (_%r127512%_ _%rest127477%_)) + (if (null? _%l127511%_) + (values _%l127511%_ _%r127512%_) + (if (fxpositive? _%n127510%_) + (_%lp127508%_ + (let () (declare (not safe)) (##fx- _%n127510%_ '1)) + (cdr _%l127511%_) + (cons (car _%l127511%_) _%r127512%_)) + (values (reverse _%l127511%_) _%r127512%_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase~1.scm b/src/bootstrap/gerbil/expander/stxcase~1.scm index bc8b5492d..83e6d1daa 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]#_g129799_| + (define |gx[1]#_g128986_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129801_| + (define |gx[1]#_g128988_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129803_| + (define |gx[1]#_g128990_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g129805_| + (define |gx[1]#_g128992_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129807_| + (define |gx[1]#_g128994_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g129808_| + (define |gx[1]#_g128995_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g129809_| + (define |gx[1]#_g128996_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129811_| + (define |gx[1]#_g128998_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129812_| + (define |gx[1]#_g128999_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129813_| + (define |gx[1]#_g129000_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129815_| + (define |gx[1]#_g129002_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g129816_| + (define |gx[1]#_g129003_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g129817_| + (define |gx[1]#_g129004_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129819_| + (define |gx[1]#_g129006_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129820_| + (define |gx[1]#_g129007_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129821_| + (define |gx[1]#_g129008_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! @@ -113,7 +113,7 @@ (gx#current-expander-context) '())) (define |gx[:0:]#syntax-pattern| - (let ((__obj129627 + (let ((__obj128863 (let () (declare (not safe)) (##structure @@ -142,75 +142,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129627 + __obj128863 'gx#syntax-pattern::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129627 'syntax-pattern '2 '#f '#f)) + (##unchecked-structure-set! __obj128863 'syntax-pattern '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129627 '(id depth) '4 '#f '#f)) + (##unchecked-structure-set! __obj128863 '(id depth) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129627 '(e id depth) '6 '#f '#f)) - (let ((__tmp129798 (cons |gx[1]#_g129799_| '()))) + (##unchecked-structure-set! __obj128863 '(e id depth) '6 '#f '#f)) + (let ((__tmp128985 (cons |gx[1]#_g128986_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129627 __tmp129798 '3 '#f '#f)) + (##unchecked-structure-set! __obj128863 __tmp128985 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129627 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj128863 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129627 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj128863 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129627 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128863 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129627 '#f '11 '#f '#f)) - (let ((__tmp129800 |gx[1]#_g129801_|)) + (##unchecked-structure-set! __obj128863 '#f '11 '#f '#f)) + (let ((__tmp128987 |gx[1]#_g128988_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129627 __tmp129800 '12 '#f '#f)) - (let ((__tmp129802 |gx[1]#_g129803_|)) + (##unchecked-structure-set! __obj128863 __tmp128987 '12 '#f '#f)) + (let ((__tmp128989 |gx[1]#_g128990_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129627 __tmp129802 '13 '#f '#f)) - (let ((__tmp129804 |gx[1]#_g129805_|)) + (##unchecked-structure-set! __obj128863 __tmp128989 '13 '#f '#f)) + (let ((__tmp128991 |gx[1]#_g128992_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129627 __tmp129804 '14 '#f '#f)) - (let ((__tmp129806 - (cons (cons 'id |gx[1]#_g129807_|) - (cons (cons 'depth |gx[1]#_g129808_|) - (cons (cons 'e |gx[1]#_g129809_|) '()))))) + (##unchecked-structure-set! __obj128863 __tmp128991 '14 '#f '#f)) + (let ((__tmp128993 + (cons (cons 'id |gx[1]#_g128994_|) + (cons (cons 'depth |gx[1]#_g128995_|) + (cons (cons 'e |gx[1]#_g128996_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129627 __tmp129806 '15 '#f '#f)) - (let ((__tmp129810 - (cons (cons 'id |gx[1]#_g129811_|) - (cons (cons 'depth |gx[1]#_g129812_|) - (cons (cons 'e |gx[1]#_g129813_|) '()))))) + (##unchecked-structure-set! __obj128863 __tmp128993 '15 '#f '#f)) + (let ((__tmp128997 + (cons (cons 'id |gx[1]#_g128998_|) + (cons (cons 'depth |gx[1]#_g128999_|) + (cons (cons 'e |gx[1]#_g129000_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129627 __tmp129810 '16 '#f '#f)) - (let ((__tmp129814 - (cons (cons 'id |gx[1]#_g129815_|) - (cons (cons 'depth |gx[1]#_g129816_|) - (cons (cons 'e |gx[1]#_g129817_|) '()))))) + (##unchecked-structure-set! __obj128863 __tmp128997 '16 '#f '#f)) + (let ((__tmp129001 + (cons (cons 'id |gx[1]#_g129002_|) + (cons (cons 'depth |gx[1]#_g129003_|) + (cons (cons 'e |gx[1]#_g129004_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129627 __tmp129814 '17 '#f '#f)) - (let ((__tmp129818 - (cons (cons 'id |gx[1]#_g129819_|) - (cons (cons 'depth |gx[1]#_g129820_|) - (cons (cons 'e |gx[1]#_g129821_|) '()))))) + (##unchecked-structure-set! __obj128863 __tmp129001 '17 '#f '#f)) + (let ((__tmp129005 + (cons (cons 'id |gx[1]#_g129006_|) + (cons (cons 'depth |gx[1]#_g129007_|) + (cons (cons 'e |gx[1]#_g129008_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129627 __tmp129818 '18 '#f '#f)) + (##unchecked-structure-set! __obj128863 __tmp129005 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129627 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128863 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129627 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128863 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129627 '() '20 '#f '#f)) - __obj129627))) + (##unchecked-structure-set! __obj128863 '() '20 '#f '#f)) + __obj128863))) diff --git a/src/bootstrap/gerbil/expander/stx~0.scm b/src/bootstrap/gerbil/expander/stx~0.scm index e05c00639..46ca1746a 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 1712533289) + (define gerbil/expander/stx::timestamp 1712573430) (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 _%$args114930%_ - (apply make-instance gx#identifier-wrap::t _%$args114930%_))) + (lambda _%$args114166%_ + (apply make-instance gx#identifier-wrap::t _%$args114166%_))) (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 _%$args114927%_ - (apply make-instance gx#syntax-wrap::t _%$args114927%_))) + (lambda _%$args114163%_ + (apply make-instance gx#syntax-wrap::t _%$args114163%_))) (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 _%$args114924%_ - (apply make-instance gx#syntax-quote::t _%$args114924%_))) + (lambda _%$args114160%_ + (apply make-instance gx#syntax-quote::t _%$args114160%_))) (define gx#syntax-quote-context (__make-class-slot-accessor gx#syntax-quote::t 'context)) (define gx#syntax-quote-marks @@ -119,1077 +119,985 @@ (define gx#&syntax-quote-source-set! (__make-class-slot-unchecked-mutator gx#syntax-quote::t 'source)) (define gx#identifier? - (lambda (_%stx114922%_) (symbol? (gx#stx-e _%stx114922%_)))) + (lambda (_%stx114158%_) (symbol? (gx#stx-e _%stx114158%_)))) (define gx#identifier-quote? - (lambda (_%stx114920%_) - (if (##structure-direct-instance-of? _%stx114920%_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _%stx114920%_ '1 '#f '#f)) + (lambda (_%stx114156%_) + (if (##structure-direct-instance-of? _%stx114156%_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _%stx114156%_ '1 '#f '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_%stx114915%_) - (if (##structure-direct-instance-of? _%stx114915%_ 'gx#syntax-quote::t) - (let () '#t) + (lambda (_%stx114151%_) + (if (##structure-direct-instance-of? _%stx114151%_ 'gx#syntax-quote::t) + '#t (if (##structure-direct-instance-of? - _%stx114915%_ + _%stx114151%_ 'gx#syntax-wrap::t) - (let () - (gx#sealed-syntax? - (##unchecked-structure-ref _%stx114915%_ '1 '#f '#f))) - (let () '#f))))) + (gx#sealed-syntax? + (##unchecked-structure-ref _%stx114151%_ '1 '#f '#f)) + '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_%stx114910%_) - (if (##structure-direct-instance-of? _%stx114910%_ 'gx#syntax-quote::t) - (let () _%stx114910%_) + (lambda (_%stx114146%_) + (if (##structure-direct-instance-of? _%stx114146%_ 'gx#syntax-quote::t) + _%stx114146%_ (if (##structure-direct-instance-of? - _%stx114910%_ + _%stx114146%_ 'gx#syntax-wrap::t) - (let () - (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _%stx114910%_ '1 '#f '#f))) - (let () '#f))))) + (gx#sealed-syntax-unwrap + (##unchecked-structure-ref _%stx114146%_ '1 '#f '#f)) + '#f)))) (define gx#syntax-e - (lambda (_%stx114884%_) - (if (##structure-direct-instance-of? _%stx114884%_ 'gx#syntax-wrap::t) - (let _%lp114887%_ ((_%e114889%_ + (lambda (_%stx114120%_) + (if (##structure-direct-instance-of? _%stx114120%_ 'gx#syntax-wrap::t) + (let _%lp114123%_ ((_%e114125%_ (##unchecked-structure-ref - _%stx114884%_ + _%stx114120%_ '1 '#f '#f)) - (_%marks114890%_ + (_%marks114126%_ (cons (##unchecked-structure-ref - _%stx114884%_ + _%stx114120%_ '3 '#f '#f) '()))) - (if (##structure? _%e114889%_) - (let ((_%$e114893%_ - (##type-id (##structure-type _%e114889%_)))) - (if (eq? 'gx#syntax-wrap::t _%$e114893%_) - (_%lp114887%_ - (##unchecked-structure-ref _%e114889%_ '1 '#f '#f) + (if (##structure? _%e114125%_) + (let ((_%$e114129%_ + (##type-id (##structure-type _%e114125%_)))) + (if (eq? 'gx#syntax-wrap::t _%$e114129%_) + (_%lp114123%_ + (##unchecked-structure-ref _%e114125%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e114889%_ '3 '#f '#f) - _%marks114890%_)) - (if (or (eq? 'gx#syntax-quote::t _%$e114893%_) - (eq? 'gx#identifier-wrap::t _%$e114893%_)) - (##unchecked-structure-ref _%e114889%_ '1 '#f '#f) - (if (eq? 'gerbil#AST::t _%$e114893%_) - (_%lp114887%_ + (##unchecked-structure-ref _%e114125%_ '3 '#f '#f) + _%marks114126%_)) + (if (or (eq? 'gx#syntax-quote::t _%$e114129%_) + (eq? 'gx#identifier-wrap::t _%$e114129%_)) + (##unchecked-structure-ref _%e114125%_ '1 '#f '#f) + (if (eq? 'gerbil#AST::t _%$e114129%_) + (_%lp114123%_ (##unchecked-structure-ref - _%e114889%_ + _%e114125%_ '1 '#f '#f) - _%marks114890%_) - _%e114889%_)))) - (if (null? _%marks114890%_) - (let () _%e114889%_) - (if (pair? _%e114889%_) - (let () - (cons (gx#stx-wrap - (car _%e114889%_) - _%marks114890%_) - (gx#stx-wrap - (cdr _%e114889%_) - _%marks114890%_))) - (if (vector? _%e114889%_) - (let () - (vector-map - (lambda (_%g114901114903%_) - (gx#stx-wrap - _%g114901114903%_ - _%marks114890%_)) - _%e114889%_)) - (if (box? _%e114889%_) - (let () - (box (gx#stx-wrap - (unbox _%e114889%_) - _%marks114890%_))) - (let () _%e114889%_))))))) - (if (##structure-instance-of? _%stx114884%_ 'gerbil#AST::t) - (let () (##unchecked-structure-ref _%stx114884%_ '1 '#f '#f)) - (let () _%stx114884%_))))) + _%marks114126%_) + _%e114125%_)))) + (if (null? _%marks114126%_) + _%e114125%_ + (if (pair? _%e114125%_) + (cons (gx#stx-wrap (car _%e114125%_) _%marks114126%_) + (gx#stx-wrap + (cdr _%e114125%_) + _%marks114126%_)) + (if (vector? _%e114125%_) + (vector-map + (lambda (_%g114137114139%_) + (gx#stx-wrap + _%g114137114139%_ + _%marks114126%_)) + _%e114125%_) + (if (box? _%e114125%_) + (box (gx#stx-wrap + (unbox _%e114125%_) + _%marks114126%_)) + _%e114125%_)))))) + (if (##structure-instance-of? _%stx114120%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx114120%_ '1 '#f '#f) + _%stx114120%_)))) (define gx#syntax->datum - (lambda (_%stx114877%_) - (if (##structure-instance-of? _%stx114877%_ 'gerbil#AST::t) - (let () - (gx#syntax->datum - (##unchecked-structure-ref _%stx114877%_ '1 '#f '#f))) - (if (pair? _%stx114877%_) - (let () - (cons (gx#syntax->datum (car _%stx114877%_)) - (gx#syntax->datum (cdr _%stx114877%_)))) - (if (vector? _%stx114877%_) - (let () (vector-map gx#syntax->datum _%stx114877%_)) - (if (box? _%stx114877%_) - (let () (box (gx#syntax->datum (unbox _%stx114877%_)))) - (let () _%stx114877%_))))))) + (lambda (_%stx114113%_) + (if (##structure-instance-of? _%stx114113%_ 'gerbil#AST::t) + (gx#syntax->datum + (##unchecked-structure-ref _%stx114113%_ '1 '#f '#f)) + (if (pair? _%stx114113%_) + (cons (gx#syntax->datum (car _%stx114113%_)) + (gx#syntax->datum (cdr _%stx114113%_))) + (if (vector? _%stx114113%_) + (vector-map gx#syntax->datum _%stx114113%_) + (if (box? _%stx114113%_) + (box (gx#syntax->datum (unbox _%stx114113%_))) + _%stx114113%_)))))) (define gx#datum->syntax__% - (lambda (_%stx114811%_ _%datum114812%_ _%src114813%_ _%quote?114814%_) - (letrec ((_%wrap-datum114816%_ - (lambda (_%e114849%_ _%marks114850%_) - (_%wrap-inner114818%_ - _%e114849%_ - (lambda (_%g114851114853%_) + (lambda (_%stx114047%_ _%datum114048%_ _%src114049%_ _%quote?114050%_) + (letrec ((_%wrap-datum114052%_ + (lambda (_%e114085%_ _%marks114086%_) + (_%wrap-inner114054%_ + _%e114085%_ + (lambda (_%g114087114089%_) (##structure gx#identifier-wrap::t - _%g114851114853%_ - _%src114813%_ - _%marks114850%_))))) - (_%wrap-quote114817%_ - (lambda (_%e114841%_ _%ctx114842%_ _%marks114843%_) - (_%wrap-inner114818%_ - _%e114841%_ - (lambda (_%g114844114846%_) + _%g114087114089%_ + _%src114049%_ + _%marks114086%_))))) + (_%wrap-quote114053%_ + (lambda (_%e114077%_ _%ctx114078%_ _%marks114079%_) + (_%wrap-inner114054%_ + _%e114077%_ + (lambda (_%g114080114082%_) (##structure gx#syntax-quote::t - _%g114844114846%_ - _%src114813%_ - _%ctx114842%_ - _%marks114843%_))))) - (_%wrap-inner114818%_ - (lambda (_%e114829%_ _%wrap-e114830%_) - (let _%recur114832%_ ((_%e114834%_ _%e114829%_)) - (if (symbol? _%e114834%_) - (let () (_%wrap-e114830%_ _%e114834%_)) - (if (pair? _%e114834%_) - (let () - (cons (_%recur114832%_ (car _%e114834%_)) - (_%recur114832%_ (cdr _%e114834%_)))) - (if (vector? _%e114834%_) - (let () - (vector-map _%recur114832%_ _%e114834%_)) - (if (box? _%e114834%_) - (let () - (box (_%recur114832%_ - (unbox _%e114834%_)))) - (let () _%e114834%_)))))))) - (_%wrap-outer114819%_ - (lambda (_%e114827%_) - (if (##structure-instance-of? _%e114827%_ 'gerbil#AST::t) - _%e114827%_ - (##structure gx#AST::t _%e114827%_ _%src114813%_))))) - (if (##structure-instance-of? _%datum114812%_ 'gerbil#AST::t) - (let () _%datum114812%_) - (if (not _%stx114811%_) - (let () - (##structure gx#AST::t _%datum114812%_ _%src114813%_)) - (if (gx#identifier? _%stx114811%_) - (let ((_%stx114824%_ (gx#stx-unwrap__0 _%stx114811%_))) - (_%wrap-outer114819%_ + _%g114080114082%_ + _%src114049%_ + _%ctx114078%_ + _%marks114079%_))))) + (_%wrap-inner114054%_ + (lambda (_%e114065%_ _%wrap-e114066%_) + (let _%recur114068%_ ((_%e114070%_ _%e114065%_)) + (if (symbol? _%e114070%_) + (_%wrap-e114066%_ _%e114070%_) + (if (pair? _%e114070%_) + (cons (_%recur114068%_ (car _%e114070%_)) + (_%recur114068%_ (cdr _%e114070%_))) + (if (vector? _%e114070%_) + (vector-map _%recur114068%_ _%e114070%_) + (if (box? _%e114070%_) + (box (_%recur114068%_ + (unbox _%e114070%_))) + _%e114070%_))))))) + (_%wrap-outer114055%_ + (lambda (_%e114063%_) + (if (##structure-instance-of? _%e114063%_ 'gerbil#AST::t) + _%e114063%_ + (##structure gx#AST::t _%e114063%_ _%src114049%_))))) + (if (##structure-instance-of? _%datum114048%_ 'gerbil#AST::t) + _%datum114048%_ + (if (not _%stx114047%_) + (##structure gx#AST::t _%datum114048%_ _%src114049%_) + (if (gx#identifier? _%stx114047%_) + (let ((_%stx114060%_ (gx#stx-unwrap__0 _%stx114047%_))) + (_%wrap-outer114055%_ (if (##structure-direct-instance-of? - _%stx114824%_ + _%stx114060%_ 'gx#syntax-quote::t) - (if _%quote?114814%_ - (_%wrap-quote114817%_ - _%datum114812%_ + (if _%quote?114050%_ + (_%wrap-quote114053%_ + _%datum114048%_ (##unchecked-structure-ref - _%stx114824%_ + _%stx114060%_ '3 '#f '#f) (##unchecked-structure-ref - _%stx114824%_ + _%stx114060%_ '4 '#f '#f)) - (_%wrap-datum114816%_ - _%datum114812%_ + (_%wrap-datum114052%_ + _%datum114048%_ (##unchecked-structure-ref - _%stx114824%_ + _%stx114060%_ '4 '#f '#f))) - (_%wrap-datum114816%_ - _%datum114812%_ + (_%wrap-datum114052%_ + _%datum114048%_ (##unchecked-structure-ref - _%stx114824%_ + _%stx114060%_ '3 '#f '#f))))) - (let () - (error '"Bad template syntax; expected identifier" - _%stx114811%_)))))))) + (error '"Bad template syntax; expected identifier" + _%stx114047%_))))))) (define gx#datum->syntax__0 - (lambda (_%stx114859%_ _%datum114860%_) - (let* ((_%src114862%_ '#f) (_%quote?114864%_ '#t)) + (lambda (_%stx114095%_ _%datum114096%_) + (let* ((_%src114098%_ '#f) (_%quote?114100%_ '#t)) (gx#datum->syntax__% - _%stx114859%_ - _%datum114860%_ - _%src114862%_ - _%quote?114864%_)))) + _%stx114095%_ + _%datum114096%_ + _%src114098%_ + _%quote?114100%_)))) (define gx#datum->syntax__1 - (lambda (_%stx114866%_ _%datum114867%_ _%src114868%_) - (let ((_%quote?114870%_ '#t)) + (lambda (_%stx114102%_ _%datum114103%_ _%src114104%_) + (let ((_%quote?114106%_ '#t)) (gx#datum->syntax__% - _%stx114866%_ - _%datum114867%_ - _%src114868%_ - _%quote?114870%_)))) + _%stx114102%_ + _%datum114103%_ + _%src114104%_ + _%quote?114106%_)))) (define gx#datum->syntax - (lambda _g115011_ - (let ((_g115010_ (##length _g115011_))) - (cond ((##fx= _g115010_ 2) - (apply (lambda (_%stx114859%_ _%datum114860%_) - (gx#datum->syntax__0 _%stx114859%_ _%datum114860%_)) - _g115011_)) - ((##fx= _g115010_ 3) - (apply (lambda (_%stx114866%_ _%datum114867%_ _%src114868%_) - (gx#datum->syntax__1 - _%stx114866%_ - _%datum114867%_ - _%src114868%_)) - _g115011_)) - ((##fx= _g115010_ 4) - (apply (lambda (_%stx114872%_ - _%datum114873%_ - _%src114874%_ - _%quote?114875%_) - (gx#datum->syntax__% - _%stx114872%_ - _%datum114873%_ - _%src114874%_ - _%quote?114875%_)) - _g115011_)) + (lambda _g114247_ + (let ((_g114246_ (##length _g114247_))) + (cond ((##fx= _g114246_ 2) (apply gx#datum->syntax__0 _g114247_)) + ((##fx= _g114246_ 3) (apply gx#datum->syntax__1 _g114247_)) + ((##fx= _g114246_ 4) (apply gx#datum->syntax__% _g114247_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g115011_)))))) + _g114247_)))))) (define gx#stx-unwrap__% - (lambda (_%stx114777%_ _%marks114778%_) - (let _%lp114780%_ ((_%e114782%_ _%stx114777%_) - (_%marks114783%_ _%marks114778%_) - (_%src114784%_ (gx#stx-source _%stx114777%_))) - (if (##structure-direct-instance-of? _%e114782%_ 'gx#syntax-wrap::t) - (let () - (_%lp114780%_ - (##unchecked-structure-ref _%e114782%_ '1 '#f '#f) - (gx#apply-mark - (##unchecked-structure-ref _%e114782%_ '3 '#f '#f) - _%marks114783%_) - (##unchecked-structure-ref _%e114782%_ '2 '#f '#f))) + (lambda (_%stx114013%_ _%marks114014%_) + (let _%lp114016%_ ((_%e114018%_ _%stx114013%_) + (_%marks114019%_ _%marks114014%_) + (_%src114020%_ (gx#stx-source _%stx114013%_))) + (if (##structure-direct-instance-of? _%e114018%_ 'gx#syntax-wrap::t) + (_%lp114016%_ + (##unchecked-structure-ref _%e114018%_ '1 '#f '#f) + (gx#apply-mark + (##unchecked-structure-ref _%e114018%_ '3 '#f '#f) + _%marks114019%_) + (##unchecked-structure-ref _%e114018%_ '2 '#f '#f)) (if (##structure-direct-instance-of? - _%e114782%_ + _%e114018%_ 'gx#identifier-wrap::t) - (let () - (if (null? _%marks114783%_) - _%e114782%_ - (##structure - gx#identifier-wrap::t - (##unchecked-structure-ref _%e114782%_ '1 '#f '#f) - (##unchecked-structure-ref _%e114782%_ '2 '#f '#f) - (__foldl1 - gx#apply-mark - (##unchecked-structure-ref _%e114782%_ '3 '#f '#f) - _%marks114783%_)))) + (if (null? _%marks114019%_) + _%e114018%_ + (##structure + gx#identifier-wrap::t + (##unchecked-structure-ref _%e114018%_ '1 '#f '#f) + (##unchecked-structure-ref _%e114018%_ '2 '#f '#f) + (__foldl1 + gx#apply-mark + (##unchecked-structure-ref _%e114018%_ '3 '#f '#f) + _%marks114019%_))) (if (##structure-direct-instance-of? - _%e114782%_ + _%e114018%_ 'gx#syntax-quote::t) - (let () _%e114782%_) - (if (##structure-instance-of? _%e114782%_ 'gerbil#AST::t) - (let () - (_%lp114780%_ - (##unchecked-structure-ref _%e114782%_ '1 '#f '#f) - _%marks114783%_ - (##unchecked-structure-ref - _%e114782%_ - '2 - '#f - '#f))) - (if (symbol? _%e114782%_) - (let () - (##structure - gx#identifier-wrap::t - _%e114782%_ - _%src114784%_ - (reverse _%marks114783%_))) - (if (null? _%marks114783%_) - (let () _%e114782%_) - (if (pair? _%e114782%_) - (let () - (cons (gx#stx-wrap - (car _%e114782%_) - _%marks114783%_) - (gx#stx-wrap - (cdr _%e114782%_) - _%marks114783%_))) - (if (vector? _%e114782%_) - (let () - (vector-map - (lambda (_%g114793114795%_) - (gx#stx-wrap - _%g114793114795%_ - _%marks114783%_)) - _%e114782%_)) - (if (box? _%e114782%_) - (let () - (box (gx#stx-wrap - (unbox _%e114782%_) - _%marks114783%_))) - (let () _%e114782%_))))))))))))) + _%e114018%_ + (if (##structure-instance-of? _%e114018%_ 'gerbil#AST::t) + (_%lp114016%_ + (##unchecked-structure-ref _%e114018%_ '1 '#f '#f) + _%marks114019%_ + (##unchecked-structure-ref _%e114018%_ '2 '#f '#f)) + (if (symbol? _%e114018%_) + (##structure + gx#identifier-wrap::t + _%e114018%_ + _%src114020%_ + (reverse _%marks114019%_)) + (if (null? _%marks114019%_) + _%e114018%_ + (if (pair? _%e114018%_) + (cons (gx#stx-wrap + (car _%e114018%_) + _%marks114019%_) + (gx#stx-wrap + (cdr _%e114018%_) + _%marks114019%_)) + (if (vector? _%e114018%_) + (vector-map + (lambda (_%g114029114031%_) + (gx#stx-wrap + _%g114029114031%_ + _%marks114019%_)) + _%e114018%_) + (if (box? _%e114018%_) + (box (gx#stx-wrap + (unbox _%e114018%_) + _%marks114019%_)) + _%e114018%_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_%stx114803%_) - (let ((_%marks114805%_ '())) - (gx#stx-unwrap__% _%stx114803%_ _%marks114805%_)))) + (lambda (_%stx114039%_) + (let ((_%marks114041%_ '())) + (gx#stx-unwrap__% _%stx114039%_ _%marks114041%_)))) (define gx#stx-unwrap - (lambda _g115013_ - (let ((_g115012_ (##length _g115013_))) - (cond ((##fx= _g115012_ 1) - (apply (lambda (_%stx114803%_) - (gx#stx-unwrap__0 _%stx114803%_)) - _g115013_)) - ((##fx= _g115012_ 2) - (apply (lambda (_%stx114807%_ _%marks114808%_) - (gx#stx-unwrap__% _%stx114807%_ _%marks114808%_)) - _g115013_)) + (lambda _g114249_ + (let ((_g114248_ (##length _g114249_))) + (cond ((##fx= _g114248_ 1) (apply gx#stx-unwrap__0 _g114249_)) + ((##fx= _g114248_ 2) (apply gx#stx-unwrap__% _g114249_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g115013_)))))) + _g114249_)))))) (define gx#stx-wrap - (lambda (_%stx114770%_ _%marks114771%_) + (lambda (_%stx114006%_ _%marks114007%_) (__foldl1 - (lambda (_%mark114773%_ _%stx114774%_) - (gx#stx-apply-mark _%stx114774%_ _%mark114773%_)) - _%stx114770%_ - _%marks114771%_))) + (lambda (_%mark114009%_ _%stx114010%_) + (gx#stx-apply-mark _%stx114010%_ _%mark114009%_)) + _%stx114006%_ + _%marks114007%_))) (define gx#stx-rewrap - (lambda (_%stx114764%_ _%marks114765%_) + (lambda (_%stx114000%_ _%marks114001%_) (__foldr1 - (lambda (_%mark114767%_ _%stx114768%_) - (gx#stx-apply-mark _%stx114768%_ _%mark114767%_)) - _%stx114764%_ - _%marks114765%_))) + (lambda (_%mark114003%_ _%stx114004%_) + (gx#stx-apply-mark _%stx114004%_ _%mark114003%_)) + _%stx114000%_ + _%marks114001%_))) (define gx#stx-apply-mark - (lambda (_%stx114758%_ _%mark114759%_) - (if (##structure-direct-instance-of? _%stx114758%_ 'gx#syntax-quote::t) - (let () _%stx114758%_) + (lambda (_%stx113994%_ _%mark113995%_) + (if (##structure-direct-instance-of? _%stx113994%_ 'gx#syntax-quote::t) + _%stx113994%_ (if (and (##structure-direct-instance-of? - _%stx114758%_ + _%stx113994%_ 'gx#syntax-wrap::t) - (eq? _%mark114759%_ + (eq? _%mark113995%_ (##unchecked-structure-ref - _%stx114758%_ + _%stx113994%_ '3 '#f '#f))) - (let () (##unchecked-structure-ref _%stx114758%_ '1 '#f '#f)) - (let () - (##structure - gx#syntax-wrap::t - _%stx114758%_ - (gx#stx-source _%stx114758%_) - _%mark114759%_)))))) + (##unchecked-structure-ref _%stx113994%_ '1 '#f '#f) + (##structure + gx#syntax-wrap::t + _%stx113994%_ + (gx#stx-source _%stx113994%_) + _%mark113995%_))))) (define gx#apply-mark - (lambda (_%mark114722%_ _%marks114723%_) - (let* ((_%marks114724114732%_ _%marks114723%_) - (_%else114726114740%_ - (lambda () (cons _%mark114722%_ _%marks114723%_))) - (_%K114728114746%_ - (lambda (_%rest114743%_ _%hd114744%_) - (if (eq? _%mark114722%_ _%hd114744%_) - _%rest114743%_ - (cons _%mark114722%_ _%marks114723%_))))) - (if (##pair? _%marks114724114732%_) - (let ((_%hd114729114749%_ (##car _%marks114724114732%_)) - (_%tl114730114751%_ (##cdr _%marks114724114732%_))) - (let* ((_%hd114754%_ _%hd114729114749%_) - (_%rest114756%_ _%tl114730114751%_)) - (_%K114728114746%_ _%rest114756%_ _%hd114754%_))) - (_%else114726114740%_))))) + (lambda (_%mark113958%_ _%marks113959%_) + (let* ((_%marks113960113968%_ _%marks113959%_) + (_%else113962113976%_ + (lambda () (cons _%mark113958%_ _%marks113959%_))) + (_%K113964113982%_ + (lambda (_%rest113979%_ _%hd113980%_) + (if (eq? _%mark113958%_ _%hd113980%_) + _%rest113979%_ + (cons _%mark113958%_ _%marks113959%_))))) + (if (##pair? _%marks113960113968%_) + (let ((_%hd113965113985%_ (##car _%marks113960113968%_)) + (_%tl113966113987%_ (##cdr _%marks113960113968%_))) + (let* ((_%hd113990%_ _%hd113965113985%_) + (_%rest113992%_ _%tl113966113987%_)) + (_%K113964113982%_ _%rest113992%_ _%hd113990%_))) + (_%else113962113976%_))))) (define gx#stx-e - (lambda (_%stx114717%_) - (if (##structure-direct-instance-of? _%stx114717%_ 'gx#syntax-wrap::t) - (let () - (gx#stx-e (##unchecked-structure-ref _%stx114717%_ '1 '#f '#f))) - (if (##structure-instance-of? _%stx114717%_ 'gerbil#AST::t) - (let () (##unchecked-structure-ref _%stx114717%_ '1 '#f '#f)) - (let () _%stx114717%_))))) + (lambda (_%stx113953%_) + (if (##structure-direct-instance-of? _%stx113953%_ 'gx#syntax-wrap::t) + (gx#stx-e (##unchecked-structure-ref _%stx113953%_ '1 '#f '#f)) + (if (##structure-instance-of? _%stx113953%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx113953%_ '1 '#f '#f) + _%stx113953%_)))) (define gx#stx-source - (lambda (_%stx114715%_) - (if (##structure-instance-of? _%stx114715%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx114715%_ '2 '#f '#f) + (lambda (_%stx113951%_) + (if (##structure-instance-of? _%stx113951%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx113951%_ '2 '#f '#f) '#f))) (define gx#stx-wrap-source - (lambda (_%stx114709%_ _%src114710%_) - (if (or (##structure-instance-of? _%stx114709%_ 'gerbil#AST::t) - (not _%src114710%_)) - _%stx114709%_ - (##structure gx#AST::t _%stx114709%_ _%src114710%_)))) + (lambda (_%stx113945%_ _%src113946%_) + (if (or (##structure-instance-of? _%stx113945%_ 'gerbil#AST::t) + (not _%src113946%_)) + _%stx113945%_ + (##structure gx#AST::t _%stx113945%_ _%src113946%_)))) (define gx#stx-datum? - (lambda (_%stx114707%_) (gx#self-quoting? (gx#stx-e _%stx114707%_)))) + (lambda (_%stx113943%_) (gx#self-quoting? (gx#stx-e _%stx113943%_)))) (define gx#self-quoting? - (lambda (_%x114690%_) - (let ((_%$e114692%_ (immediate? _%x114690%_))) - (if _%$e114692%_ - _%$e114692%_ - (let ((_%$e114695%_ (number? _%x114690%_))) - (if _%$e114695%_ - _%$e114695%_ - (let ((_%$e114698%_ (keyword? _%x114690%_))) - (if _%$e114698%_ - _%$e114698%_ - (let ((_%$e114701%_ (string? _%x114690%_))) - (if _%$e114701%_ - _%$e114701%_ - (let ((_%$e114704%_ (vector? _%x114690%_))) - (if _%$e114704%_ - _%$e114704%_ - (u8vector? _%x114690%_))))))))))))) + (lambda (_%x113926%_) + (let ((_%$e113928%_ (immediate? _%x113926%_))) + (if _%$e113928%_ + _%$e113928%_ + (let ((_%$e113931%_ (number? _%x113926%_))) + (if _%$e113931%_ + _%$e113931%_ + (let ((_%$e113934%_ (keyword? _%x113926%_))) + (if _%$e113934%_ + _%$e113934%_ + (let ((_%$e113937%_ (string? _%x113926%_))) + (if _%$e113937%_ + _%$e113937%_ + (let ((_%$e113940%_ (vector? _%x113926%_))) + (if _%$e113940%_ + _%$e113940%_ + (u8vector? _%x113926%_))))))))))))) (define gx#stx-boolean? - (lambda (_%e114688%_) (boolean? (gx#stx-e _%e114688%_)))) + (lambda (_%e113924%_) (boolean? (gx#stx-e _%e113924%_)))) (define gx#stx-keyword? - (lambda (_%e114686%_) (keyword? (gx#stx-e _%e114686%_)))) - (define gx#stx-char? (lambda (_%e114684%_) (char? (gx#stx-e _%e114684%_)))) + (lambda (_%e113922%_) (keyword? (gx#stx-e _%e113922%_)))) + (define gx#stx-char? (lambda (_%e113920%_) (char? (gx#stx-e _%e113920%_)))) (define gx#stx-number? - (lambda (_%e114682%_) (number? (gx#stx-e _%e114682%_)))) + (lambda (_%e113918%_) (number? (gx#stx-e _%e113918%_)))) (define gx#stx-fixnum? - (lambda (_%e114680%_) (fixnum? (gx#stx-e _%e114680%_)))) + (lambda (_%e113916%_) (fixnum? (gx#stx-e _%e113916%_)))) (define gx#stx-string? - (lambda (_%e114678%_) (string? (gx#stx-e _%e114678%_)))) - (define gx#stx-null? (lambda (_%e114676%_) (null? (gx#stx-e _%e114676%_)))) - (define gx#stx-pair? (lambda (_%e114674%_) (pair? (gx#stx-e _%e114674%_)))) + (lambda (_%e113914%_) (string? (gx#stx-e _%e113914%_)))) + (define gx#stx-null? (lambda (_%e113912%_) (null? (gx#stx-e _%e113912%_)))) + (define gx#stx-pair? (lambda (_%e113910%_) (pair? (gx#stx-e _%e113910%_)))) (define gx#stx-list? - (lambda (_%e114636%_) - (let* ((_%g114637114646%_ (gx#stx-e _%e114636%_)) - (_%E114640114650%_ + (lambda (_%e113872%_) + (let* ((_%g113873113882%_ (gx#stx-e _%e113872%_)) + (_%E113876113886%_ (lambda () (error '"No clause matching" - _%g114637114646%_ + _%g113873113882%_ '([_ . rest]) '(tail)) '#!void))) - (let ((_%K114642114666%_ - (lambda (_%rest114664%_) (gx#stx-list? _%rest114664%_))) - (_%K114641114656%_ - (lambda (_%tail114654%_) (null? _%tail114654%_)))) - (if (##pair? _%g114637114646%_) - (let* ((_%tl114644114669%_ (##cdr _%g114637114646%_)) - (_%rest114672%_ _%tl114644114669%_)) - (gx#stx-list? _%rest114672%_)) - (let ((_%tail114659%_ _%g114637114646%_)) - (null? _%tail114659%_))))))) + (let ((_%K113878113902%_ + (lambda (_%rest113900%_) (gx#stx-list? _%rest113900%_))) + (_%K113877113892%_ + (lambda (_%tail113890%_) (null? _%tail113890%_)))) + (if (##pair? _%g113873113882%_) + (let* ((_%tl113880113905%_ (##cdr _%g113873113882%_)) + (_%rest113908%_ _%tl113880113905%_)) + (gx#stx-list? _%rest113908%_)) + (let ((_%tail113895%_ _%g113873113882%_)) + (null? _%tail113895%_))))))) (define gx#stx-pair/null? - (lambda (_%e114629%_) - (let* ((_%e114631%_ (gx#stx-e _%e114629%_)) - (_%$e114633%_ (pair? _%e114631%_))) - (if _%$e114633%_ _%$e114633%_ (null? _%e114631%_))))) + (lambda (_%e113865%_) + (let* ((_%e113867%_ (gx#stx-e _%e113865%_)) + (_%$e113869%_ (pair? _%e113867%_))) + (if _%$e113869%_ _%$e113869%_ (null? _%e113867%_))))) (define gx#stx-vector? - (lambda (_%e114627%_) (vector? (gx#stx-e _%e114627%_)))) - (define gx#stx-box? (lambda (_%e114625%_) (box? (gx#stx-e _%e114625%_)))) + (lambda (_%e113863%_) (vector? (gx#stx-e _%e113863%_)))) + (define gx#stx-box? (lambda (_%e113861%_) (box? (gx#stx-e _%e113861%_)))) (define gx#stx-eq? - (lambda (_%x114622%_ _%y114623%_) - (eq? (gx#stx-e _%x114622%_) (gx#stx-e _%y114623%_)))) + (lambda (_%x113858%_ _%y113859%_) + (eq? (gx#stx-e _%x113858%_) (gx#stx-e _%y113859%_)))) (define gx#stx-eqv? - (lambda (_%x114619%_ _%y114620%_) - (eqv? (gx#stx-e _%x114619%_) (gx#stx-e _%y114620%_)))) + (lambda (_%x113855%_ _%y113856%_) + (eqv? (gx#stx-e _%x113855%_) (gx#stx-e _%y113856%_)))) (define gx#stx-equal? - (lambda (_%x114616%_ _%y114617%_) - (equal? (gx#stx-e _%x114616%_) (gx#stx-e _%y114617%_)))) - (define gx#stx-false? (lambda (_%x114614%_) (not (gx#stx-e _%x114614%_)))) + (lambda (_%x113852%_ _%y113853%_) + (equal? (gx#stx-e _%x113852%_) (gx#stx-e _%y113853%_)))) + (define gx#stx-false? (lambda (_%x113850%_) (not (gx#stx-e _%x113850%_)))) (define gx#stx-identifier - (lambda (_%template114611%_ . _%args114612%_) + (lambda (_%template113847%_ . _%args113848%_) (gx#datum->syntax__1 - _%template114611%_ - (apply make-symbol (gx#syntax->datum _%args114612%_)) - (gx#stx-source _%template114611%_)))) + _%template113847%_ + (apply make-symbol (gx#syntax->datum _%args113848%_)) + (gx#stx-source _%template113847%_)))) (define gx#stx-identifier-marks - (lambda (_%stx114609%_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx114609%_)))) + (lambda (_%stx113845%_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx113845%_)))) (define gx#stx-identifier-marks* - (lambda (_%stx114604%_) + (lambda (_%stx113840%_) (if (##structure-direct-instance-of? - _%stx114604%_ + _%stx113840%_ 'gx#identifier-wrap::t) - (let () (##unchecked-structure-ref _%stx114604%_ '3 '#f '#f)) + (##unchecked-structure-ref _%stx113840%_ '3 '#f '#f) (if (##structure-direct-instance-of? - _%stx114604%_ + _%stx113840%_ 'gx#syntax-quote::t) - (let () (##unchecked-structure-ref _%stx114604%_ '4 '#f '#f)) - (let () - (error '"Bad wrap; expected unwrapped identifier" - _%stx114604%_)))))) + (##unchecked-structure-ref _%stx113840%_ '4 '#f '#f) + (error '"Bad wrap; expected unwrapped identifier" + _%stx113840%_))))) (define gx#stx-identifier-context - (lambda (_%stx114600%_) - (let ((_%stx114602%_ (gx#stx-unwrap__0 _%stx114600%_))) - (if (gx#identifier-quote? _%stx114602%_) - (##unchecked-structure-ref _%stx114602%_ '3 '#f '#f) + (lambda (_%stx113836%_) + (let ((_%stx113838%_ (gx#stx-unwrap__0 _%stx113836%_))) + (if (gx#identifier-quote? _%stx113838%_) + (##unchecked-structure-ref _%stx113838%_ '3 '#f '#f) '#f)))) (define gx#identifier-list? - (lambda (_%stx114555%_) - (let* ((_%g114556114566%_ (gx#stx-e _%stx114555%_)) - (_%else114559114574%_ (lambda () '#f))) - (let ((_%K114562114588%_ - (lambda (_%rest114585%_ _%hd114586%_) - (if (gx#identifier? _%hd114586%_) - (gx#identifier-list? _%rest114585%_) + (lambda (_%stx113791%_) + (let* ((_%g113792113802%_ (gx#stx-e _%stx113791%_)) + (_%else113795113810%_ (lambda () '#f))) + (let ((_%K113798113824%_ + (lambda (_%rest113821%_ _%hd113822%_) + (if (gx#identifier? _%hd113822%_) + (gx#identifier-list? _%rest113821%_) '#f))) - (_%K114561114579%_ (lambda () '#t))) - (let ((_%try-match114558114582%_ + (_%K113797113815%_ (lambda () '#t))) + (let ((_%try-match113794113818%_ (lambda () - (if (##null? _%g114556114566%_) - (_%K114561114579%_) - (_%else114559114574%_))))) - (if (##pair? _%g114556114566%_) - (let ((_%tl114564114593%_ (##cdr _%g114556114566%_)) - (_%hd114563114591%_ (##car _%g114556114566%_))) - (let ((_%hd114596%_ _%hd114563114591%_) - (_%rest114598%_ _%tl114564114593%_)) - (_%K114562114588%_ _%rest114598%_ _%hd114596%_))) - (_%try-match114558114582%_))))))) + (if (##null? _%g113792113802%_) + (_%K113797113815%_) + (_%else113795113810%_))))) + (if (##pair? _%g113792113802%_) + (let ((_%tl113800113829%_ (##cdr _%g113792113802%_)) + (_%hd113799113827%_ (##car _%g113792113802%_))) + (let ((_%hd113832%_ _%hd113799113827%_) + (_%rest113834%_ _%tl113800113829%_)) + (_%K113798113824%_ _%rest113834%_ _%hd113832%_))) + (_%try-match113794113818%_))))))) (define gx#genident__% - (lambda (_%e114532%_ _%src114533%_) + (lambda (_%e113768%_ _%src113769%_) (gx#stx-wrap-source - (gensym (let ((_%e114535%_ (gx#stx-e _%e114532%_))) - (if (interned-symbol? _%e114535%_) _%e114535%_ 'g))) - (let ((_%$e114537%_ (gx#stx-source _%e114532%_))) - (if _%$e114537%_ _%$e114537%_ _%src114533%_))))) + (gensym (let ((_%e113771%_ (gx#stx-e _%e113768%_))) + (if (interned-symbol? _%e113771%_) _%e113771%_ 'g))) + (let ((_%$e113773%_ (gx#stx-source _%e113768%_))) + (if _%$e113773%_ _%$e113773%_ _%src113769%_))))) (define gx#genident__0 (lambda () - (let* ((_%e114544%_ 'g) (_%src114546%_ '#f)) - (gx#genident__% _%e114544%_ _%src114546%_)))) + (let* ((_%e113780%_ 'g) (_%src113782%_ '#f)) + (gx#genident__% _%e113780%_ _%src113782%_)))) (define gx#genident__1 - (lambda (_%e114548%_) - (let ((_%src114550%_ '#f)) - (gx#genident__% _%e114548%_ _%src114550%_)))) + (lambda (_%e113784%_) + (let ((_%src113786%_ '#f)) + (gx#genident__% _%e113784%_ _%src113786%_)))) (define gx#genident - (lambda _g115015_ - (let ((_g115014_ (##length _g115015_))) - (cond ((##fx= _g115014_ 0) - (apply (lambda () (gx#genident__0)) _g115015_)) - ((##fx= _g115014_ 1) - (apply (lambda (_%e114548%_) (gx#genident__1 _%e114548%_)) - _g115015_)) - ((##fx= _g115014_ 2) - (apply (lambda (_%e114552%_ _%src114553%_) - (gx#genident__% _%e114552%_ _%src114553%_)) - _g115015_)) + (lambda _g114251_ + (let ((_g114250_ (##length _g114251_))) + (cond ((##fx= _g114250_ 0) (apply gx#genident__0 _g114251_)) + ((##fx= _g114250_ 1) (apply gx#genident__1 _g114251_)) + ((##fx= _g114250_ 2) (apply gx#genident__% _g114251_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g115015_)))))) + _g114251_)))))) (define gx#gentemps - (lambda (_%stx-lst114529%_) (gx#stx-map1 gx#genident _%stx-lst114529%_))) + (lambda (_%stx-lst113765%_) (gx#stx-map1 gx#genident _%stx-lst113765%_))) (define gx#syntax->list - (lambda (_%stx114527%_) (gx#stx-map1 values _%stx114527%_))) + (lambda (_%stx113763%_) (gx#stx-map1 values _%stx113763%_))) (define gx#stx-car - (lambda (_%stx114524%_) + (lambda (_%stx113760%_) (declare (safe)) - (car (let () (declare (not safe)) (gx#syntax-e _%stx114524%_))))) + (car (gx#syntax-e _%stx113760%_)))) (define gx#stx-cdr - (lambda (_%stx114521%_) + (lambda (_%stx113757%_) (declare (safe)) - (cdr (let () (declare (not safe)) (gx#syntax-e _%stx114521%_))))) + (cdr (gx#syntax-e _%stx113757%_)))) (define gx#stx-length - (lambda (_%stx114486%_) - (let _%lp114488%_ ((_%rest114490%_ _%stx114486%_) (_%n114491%_ '0)) - (let* ((_%g114492114500%_ (gx#stx-e _%rest114490%_)) - (_%else114494114508%_ (lambda () _%n114491%_)) - (_%K114496114513%_ - (lambda (_%rest114511%_) - (_%lp114488%_ _%rest114511%_ (##fx+ _%n114491%_ '1))))) - (if (##pair? _%g114492114500%_) - (let* ((_%tl114498114516%_ (##cdr _%g114492114500%_)) - (_%rest114519%_ _%tl114498114516%_)) - (_%K114496114513%_ _%rest114519%_)) - (_%else114494114508%_)))))) + (lambda (_%stx113722%_) + (let _%lp113724%_ ((_%rest113726%_ _%stx113722%_) (_%n113727%_ '0)) + (let* ((_%g113728113736%_ (gx#stx-e _%rest113726%_)) + (_%else113730113744%_ (lambda () _%n113727%_)) + (_%K113732113749%_ + (lambda (_%rest113747%_) + (_%lp113724%_ _%rest113747%_ (##fx+ _%n113727%_ '1))))) + (if (##pair? _%g113728113736%_) + (let* ((_%tl113734113752%_ (##cdr _%g113728113736%_)) + (_%rest113755%_ _%tl113734113752%_)) + (_%K113732113749%_ _%rest113755%_)) + (_%else113730113744%_)))))) (define gx#stx-for-each - (lambda _g115017_ - (let ((_g115016_ (##length _g115017_))) - (cond ((##fx= _g115016_ 2) - (apply (lambda (_%f114479%_ _%stx114480%_) - (gx#stx-for-each1 _%f114479%_ _%stx114480%_)) - _g115017_)) - ((##fx= _g115016_ 3) - (apply (lambda (_%f114482%_ _%xstx114483%_ _%ystx114484%_) - (gx#stx-for-each2 - _%f114482%_ - _%xstx114483%_ - _%ystx114484%_)) - _g115017_)) + (lambda _g114253_ + (let ((_g114252_ (##length _g114253_))) + (cond ((##fx= _g114252_ 2) (apply gx#stx-for-each1 _g114253_)) + ((##fx= _g114252_ 3) (apply gx#stx-for-each2 _g114253_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g115017_)))))) + _g114253_)))))) (define gx#stx-for-each1 - (lambda (_%f114429%_ _%stx114430%_) - (if (procedure? _%f114429%_) + (lambda (_%f113665%_ _%stx113666%_) + (if (procedure? _%f113665%_) '#!void - (error '"expected procedure" _%f114429%_)) - (let _%lp114432%_ ((_%rest114434%_ _%stx114430%_)) - (let* ((_%g114435114445%_ (gx#syntax-e _%rest114434%_)) - (_%else114438114453%_ - (lambda () (_%f114429%_ _%rest114434%_)))) - (let ((_%K114441114467%_ - (lambda (_%rest114464%_ _%hd114465%_) - (_%f114429%_ _%hd114465%_) - (_%lp114432%_ _%rest114464%_))) - (_%K114440114458%_ (lambda () '#!void))) - (let ((_%try-match114437114461%_ + (error '"expected procedure" _%f113665%_)) + (let _%lp113668%_ ((_%rest113670%_ _%stx113666%_)) + (let* ((_%g113671113681%_ (gx#syntax-e _%rest113670%_)) + (_%else113674113689%_ + (lambda () (_%f113665%_ _%rest113670%_)))) + (let ((_%K113677113703%_ + (lambda (_%rest113700%_ _%hd113701%_) + (_%f113665%_ _%hd113701%_) + (_%lp113668%_ _%rest113700%_))) + (_%K113676113694%_ (lambda () '#!void))) + (let ((_%try-match113673113697%_ (lambda () - (if (##null? _%g114435114445%_) - (_%K114440114458%_) - (_%else114438114453%_))))) - (if (##pair? _%g114435114445%_) - (let ((_%tl114443114472%_ (##cdr _%g114435114445%_)) - (_%hd114442114470%_ (##car _%g114435114445%_))) - (let ((_%hd114475%_ _%hd114442114470%_) - (_%rest114477%_ _%tl114443114472%_)) - (_%K114441114467%_ _%rest114477%_ _%hd114475%_))) - (_%try-match114437114461%_)))))))) + (if (##null? _%g113671113681%_) + (_%K113676113694%_) + (_%else113674113689%_))))) + (if (##pair? _%g113671113681%_) + (let ((_%tl113679113708%_ (##cdr _%g113671113681%_)) + (_%hd113678113706%_ (##car _%g113671113681%_))) + (let ((_%hd113711%_ _%hd113678113706%_) + (_%rest113713%_ _%tl113679113708%_)) + (_%K113677113703%_ _%rest113713%_ _%hd113711%_))) + (_%try-match113673113697%_)))))))) (define gx#stx-for-each2 - (lambda (_%f114334%_ _%xstx114335%_ _%ystx114336%_) - (if (procedure? _%f114334%_) + (lambda (_%f113570%_ _%xstx113571%_ _%ystx113572%_) + (if (procedure? _%f113570%_) '#!void - (error '"expected procedure" _%f114334%_)) - (let _%lp114338%_ ((_%xrest114340%_ _%xstx114335%_) - (_%yrest114341%_ _%ystx114336%_)) - (let* ((_%g114342114352%_ (gx#syntax-e _%xrest114340%_)) - (_%else114345114360%_ (lambda () '#!void))) - (let ((_%K114348114417%_ - (lambda (_%xrest114386%_ _%xhd114387%_) - (let* ((_%g114388114395%_ (gx#syntax-e _%yrest114341%_)) - (_%E114390114399%_ + (error '"expected procedure" _%f113570%_)) + (let _%lp113574%_ ((_%xrest113576%_ _%xstx113571%_) + (_%yrest113577%_ _%ystx113572%_)) + (let* ((_%g113578113588%_ (gx#syntax-e _%xrest113576%_)) + (_%else113581113596%_ (lambda () '#!void))) + (let ((_%K113584113653%_ + (lambda (_%xrest113622%_ _%xhd113623%_) + (let* ((_%g113624113631%_ (gx#syntax-e _%yrest113577%_)) + (_%E113626113635%_ (lambda () (error '"No clause matching" - _%g114388114395%_ + _%g113624113631%_ '([yhd . yrest])) '#!void)) - (_%K114391114405%_ - (lambda (_%yrest114402%_ _%yhd114403%_) - (_%f114334%_ _%xhd114387%_ _%yhd114403%_) - (_%lp114338%_ - _%xrest114386%_ - _%yrest114402%_)))) - (if (##pair? _%g114388114395%_) - (let ((_%hd114392114408%_ (##car _%g114388114395%_)) - (_%tl114393114410%_ - (##cdr _%g114388114395%_))) - (let* ((_%yhd114413%_ _%hd114392114408%_) - (_%yrest114415%_ _%tl114393114410%_)) - (_%K114391114405%_ - _%yrest114415%_ - _%yhd114413%_))) - (_%E114390114399%_))))) - (_%K114347114380%_ + (_%K113627113641%_ + (lambda (_%yrest113638%_ _%yhd113639%_) + (_%f113570%_ _%xhd113623%_ _%yhd113639%_) + (_%lp113574%_ + _%xrest113622%_ + _%yrest113638%_)))) + (if (##pair? _%g113624113631%_) + (let ((_%hd113628113644%_ (##car _%g113624113631%_)) + (_%tl113629113646%_ + (##cdr _%g113624113631%_))) + (let* ((_%yhd113649%_ _%hd113628113644%_) + (_%yrest113651%_ _%tl113629113646%_)) + (_%K113627113641%_ + _%yrest113651%_ + _%yhd113649%_))) + (_%E113626113635%_))))) + (_%K113583113616%_ (lambda () - (let* ((_%yrest114364114369%_ _%yrest114341%_) - (_%E114366114373%_ + (let* ((_%yrest113600113605%_ _%yrest113577%_) + (_%E113602113609%_ (lambda () (error '"No clause matching" - _%yrest114364114369%_ + _%yrest113600113605%_ '((? (not stx-null?)))) '#!void)) - (_%K114367114377%_ + (_%K113603113613%_ (lambda () - (_%f114334%_ _%xrest114340%_ _%yrest114341%_)))) - (if (not (gx#stx-null? _%yrest114364114369%_)) - (_%K114367114377%_) - (_%E114366114373%_)))))) - (let ((_%try-match114344114383%_ + (_%f113570%_ _%xrest113576%_ _%yrest113577%_)))) + (if (not (gx#stx-null? _%yrest113600113605%_)) + (_%K113603113613%_) + (_%E113602113609%_)))))) + (let ((_%try-match113580113619%_ (lambda () - (if (not (null? _%g114342114352%_)) - (_%K114347114380%_) - (_%else114345114360%_))))) - (if (##pair? _%g114342114352%_) - (let ((_%tl114350114422%_ (##cdr _%g114342114352%_)) - (_%hd114349114420%_ (##car _%g114342114352%_))) - (let ((_%xhd114425%_ _%hd114349114420%_) - (_%xrest114427%_ _%tl114350114422%_)) - (_%K114348114417%_ _%xrest114427%_ _%xhd114425%_))) - (_%try-match114344114383%_)))))))) + (if (not (null? _%g113578113588%_)) + (_%K113583113616%_) + (_%else113581113596%_))))) + (if (##pair? _%g113578113588%_) + (let ((_%tl113586113658%_ (##cdr _%g113578113588%_)) + (_%hd113585113656%_ (##car _%g113578113588%_))) + (let ((_%xhd113661%_ _%hd113585113656%_) + (_%xrest113663%_ _%tl113586113658%_)) + (_%K113584113653%_ _%xrest113663%_ _%xhd113661%_))) + (_%try-match113580113619%_)))))))) (define gx#stx-map - (lambda _g115019_ - (let ((_g115018_ (##length _g115019_))) - (cond ((##fx= _g115018_ 2) - (apply (lambda (_%f114327%_ _%stx114328%_) - (gx#stx-map1 _%f114327%_ _%stx114328%_)) - _g115019_)) - ((##fx= _g115018_ 3) - (apply (lambda (_%f114330%_ _%xstx114331%_ _%ystx114332%_) - (gx#stx-map2 - _%f114330%_ - _%xstx114331%_ - _%ystx114332%_)) - _g115019_)) + (lambda _g114255_ + (let ((_g114254_ (##length _g114255_))) + (cond ((##fx= _g114254_ 2) (apply gx#stx-map1 _g114255_)) + ((##fx= _g114254_ 3) (apply gx#stx-map2 _g114255_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g115019_)))))) + _g114255_)))))) (define gx#stx-map1 - (lambda (_%f114277%_ _%stx114278%_) - (if (procedure? _%f114277%_) + (lambda (_%f113513%_ _%stx113514%_) + (if (procedure? _%f113513%_) '#!void - (error '"expected procedure" _%f114277%_)) - (let _%recur114280%_ ((_%rest114282%_ _%stx114278%_)) - (let* ((_%g114283114293%_ (gx#syntax-e _%rest114282%_)) - (_%else114286114301%_ - (lambda () (_%f114277%_ _%rest114282%_)))) - (let ((_%K114289114315%_ - (lambda (_%rest114312%_ _%hd114313%_) - (cons (_%f114277%_ _%hd114313%_) - (_%recur114280%_ _%rest114312%_)))) - (_%K114288114306%_ (lambda () '()))) - (let ((_%try-match114285114309%_ + (error '"expected procedure" _%f113513%_)) + (let _%recur113516%_ ((_%rest113518%_ _%stx113514%_)) + (let* ((_%g113519113529%_ (gx#syntax-e _%rest113518%_)) + (_%else113522113537%_ + (lambda () (_%f113513%_ _%rest113518%_)))) + (let ((_%K113525113551%_ + (lambda (_%rest113548%_ _%hd113549%_) + (cons (_%f113513%_ _%hd113549%_) + (_%recur113516%_ _%rest113548%_)))) + (_%K113524113542%_ (lambda () '()))) + (let ((_%try-match113521113545%_ (lambda () - (if (##null? _%g114283114293%_) - (_%K114288114306%_) - (_%else114286114301%_))))) - (if (##pair? _%g114283114293%_) - (let ((_%tl114291114320%_ (##cdr _%g114283114293%_)) - (_%hd114290114318%_ (##car _%g114283114293%_))) - (let ((_%hd114323%_ _%hd114290114318%_) - (_%rest114325%_ _%tl114291114320%_)) - (_%K114289114315%_ _%rest114325%_ _%hd114323%_))) - (_%try-match114285114309%_)))))))) + (if (##null? _%g113519113529%_) + (_%K113524113542%_) + (_%else113522113537%_))))) + (if (##pair? _%g113519113529%_) + (let ((_%tl113527113556%_ (##cdr _%g113519113529%_)) + (_%hd113526113554%_ (##car _%g113519113529%_))) + (let ((_%hd113559%_ _%hd113526113554%_) + (_%rest113561%_ _%tl113527113556%_)) + (_%K113525113551%_ _%rest113561%_ _%hd113559%_))) + (_%try-match113521113545%_)))))))) (define gx#stx-map2 - (lambda (_%f114182%_ _%xstx114183%_ _%ystx114184%_) - (if (procedure? _%f114182%_) + (lambda (_%f113418%_ _%xstx113419%_ _%ystx113420%_) + (if (procedure? _%f113418%_) '#!void - (error '"expected procedure" _%f114182%_)) - (let _%recur114186%_ ((_%xrest114188%_ _%xstx114183%_) - (_%yrest114189%_ _%ystx114184%_)) - (let* ((_%g114190114200%_ (gx#syntax-e _%xrest114188%_)) - (_%else114193114208%_ (lambda () '()))) - (let ((_%K114196114265%_ - (lambda (_%xrest114234%_ _%xhd114235%_) - (let* ((_%g114236114243%_ (gx#syntax-e _%yrest114189%_)) - (_%E114238114247%_ + (error '"expected procedure" _%f113418%_)) + (let _%recur113422%_ ((_%xrest113424%_ _%xstx113419%_) + (_%yrest113425%_ _%ystx113420%_)) + (let* ((_%g113426113436%_ (gx#syntax-e _%xrest113424%_)) + (_%else113429113444%_ (lambda () '()))) + (let ((_%K113432113501%_ + (lambda (_%xrest113470%_ _%xhd113471%_) + (let* ((_%g113472113479%_ (gx#syntax-e _%yrest113425%_)) + (_%E113474113483%_ (lambda () (error '"No clause matching" - _%g114236114243%_ + _%g113472113479%_ '([yhd . yrest])) '#!void)) - (_%K114239114253%_ - (lambda (_%yrest114250%_ _%yhd114251%_) - (cons (_%f114182%_ _%xhd114235%_ _%yhd114251%_) - (_%recur114186%_ - _%xrest114234%_ - _%yrest114250%_))))) - (if (##pair? _%g114236114243%_) - (let ((_%hd114240114256%_ (##car _%g114236114243%_)) - (_%tl114241114258%_ - (##cdr _%g114236114243%_))) - (let* ((_%yhd114261%_ _%hd114240114256%_) - (_%yrest114263%_ _%tl114241114258%_)) - (_%K114239114253%_ - _%yrest114263%_ - _%yhd114261%_))) - (_%E114238114247%_))))) - (_%K114195114228%_ + (_%K113475113489%_ + (lambda (_%yrest113486%_ _%yhd113487%_) + (cons (_%f113418%_ _%xhd113471%_ _%yhd113487%_) + (_%recur113422%_ + _%xrest113470%_ + _%yrest113486%_))))) + (if (##pair? _%g113472113479%_) + (let ((_%hd113476113492%_ (##car _%g113472113479%_)) + (_%tl113477113494%_ + (##cdr _%g113472113479%_))) + (let* ((_%yhd113497%_ _%hd113476113492%_) + (_%yrest113499%_ _%tl113477113494%_)) + (_%K113475113489%_ + _%yrest113499%_ + _%yhd113497%_))) + (_%E113474113483%_))))) + (_%K113431113464%_ (lambda () - (let* ((_%yrest114212114217%_ _%yrest114189%_) - (_%E114214114221%_ + (let* ((_%yrest113448113453%_ _%yrest113425%_) + (_%E113450113457%_ (lambda () (error '"No clause matching" - _%yrest114212114217%_ + _%yrest113448113453%_ '((? (not stx-null?)))) '#!void)) - (_%K114215114225%_ + (_%K113451113461%_ (lambda () - (_%f114182%_ _%xrest114188%_ _%yrest114189%_)))) - (if (not (gx#stx-null? _%yrest114212114217%_)) - (_%K114215114225%_) - (_%E114214114221%_)))))) - (let ((_%try-match114192114231%_ + (_%f113418%_ _%xrest113424%_ _%yrest113425%_)))) + (if (not (gx#stx-null? _%yrest113448113453%_)) + (_%K113451113461%_) + (_%E113450113457%_)))))) + (let ((_%try-match113428113467%_ (lambda () - (if (not (null? _%g114190114200%_)) - (_%K114195114228%_) - (_%else114193114208%_))))) - (if (##pair? _%g114190114200%_) - (let ((_%tl114198114270%_ (##cdr _%g114190114200%_)) - (_%hd114197114268%_ (##car _%g114190114200%_))) - (let ((_%xhd114273%_ _%hd114197114268%_) - (_%xrest114275%_ _%tl114198114270%_)) - (_%K114196114265%_ _%xrest114275%_ _%xhd114273%_))) - (_%try-match114192114231%_)))))))) + (if (not (null? _%g113426113436%_)) + (_%K113431113464%_) + (_%else113429113444%_))))) + (if (##pair? _%g113426113436%_) + (let ((_%tl113434113506%_ (##cdr _%g113426113436%_)) + (_%hd113433113504%_ (##car _%g113426113436%_))) + (let ((_%xhd113509%_ _%hd113433113504%_) + (_%xrest113511%_ _%tl113434113506%_)) + (_%K113432113501%_ _%xrest113511%_ _%xhd113509%_))) + (_%try-match113428113467%_)))))))) (define gx#stx-andmap - (lambda (_%f114132%_ _%stx114133%_) - (if (procedure? _%f114132%_) + (lambda (_%f113368%_ _%stx113369%_) + (if (procedure? _%f113368%_) '#!void - (error '"expected procedure" _%f114132%_)) - (let _%lp114135%_ ((_%rest114137%_ _%stx114133%_)) - (let* ((_%g114138114148%_ (gx#syntax-e _%rest114137%_)) - (_%else114141114156%_ - (lambda () (_%f114132%_ _%rest114137%_)))) - (let ((_%K114144114170%_ - (lambda (_%rest114167%_ _%hd114168%_) - (if (_%f114132%_ _%hd114168%_) - (_%lp114135%_ _%rest114167%_) + (error '"expected procedure" _%f113368%_)) + (let _%lp113371%_ ((_%rest113373%_ _%stx113369%_)) + (let* ((_%g113374113384%_ (gx#syntax-e _%rest113373%_)) + (_%else113377113392%_ + (lambda () (_%f113368%_ _%rest113373%_)))) + (let ((_%K113380113406%_ + (lambda (_%rest113403%_ _%hd113404%_) + (if (_%f113368%_ _%hd113404%_) + (_%lp113371%_ _%rest113403%_) '#f))) - (_%K114143114161%_ (lambda () '#t))) - (let ((_%try-match114140114164%_ + (_%K113379113397%_ (lambda () '#t))) + (let ((_%try-match113376113400%_ (lambda () - (if (##null? _%g114138114148%_) - (_%K114143114161%_) - (_%else114141114156%_))))) - (if (##pair? _%g114138114148%_) - (let ((_%tl114146114175%_ (##cdr _%g114138114148%_)) - (_%hd114145114173%_ (##car _%g114138114148%_))) - (let ((_%hd114178%_ _%hd114145114173%_) - (_%rest114180%_ _%tl114146114175%_)) - (_%K114144114170%_ _%rest114180%_ _%hd114178%_))) - (_%try-match114140114164%_)))))))) + (if (##null? _%g113374113384%_) + (_%K113379113397%_) + (_%else113377113392%_))))) + (if (##pair? _%g113374113384%_) + (let ((_%tl113382113411%_ (##cdr _%g113374113384%_)) + (_%hd113381113409%_ (##car _%g113374113384%_))) + (let ((_%hd113414%_ _%hd113381113409%_) + (_%rest113416%_ _%tl113382113411%_)) + (_%K113380113406%_ _%rest113416%_ _%hd113414%_))) + (_%try-match113376113400%_)))))))) (define gx#stx-ormap - (lambda (_%f114079%_ _%stx114080%_) - (if (procedure? _%f114079%_) + (lambda (_%f113315%_ _%stx113316%_) + (if (procedure? _%f113315%_) '#!void - (error '"expected procedure" _%f114079%_)) - (let _%lp114082%_ ((_%rest114084%_ _%stx114080%_)) - (let* ((_%g114085114095%_ (gx#syntax-e _%rest114084%_)) - (_%else114088114103%_ - (lambda () (_%f114079%_ _%rest114084%_)))) - (let ((_%K114091114120%_ - (lambda (_%rest114114%_ _%hd114115%_) - (let ((_%$e114117%_ (_%f114079%_ _%hd114115%_))) - (if _%$e114117%_ - _%$e114117%_ - (_%lp114082%_ _%rest114114%_))))) - (_%K114090114108%_ (lambda () '#f))) - (let ((_%try-match114087114111%_ + (error '"expected procedure" _%f113315%_)) + (let _%lp113318%_ ((_%rest113320%_ _%stx113316%_)) + (let* ((_%g113321113331%_ (gx#syntax-e _%rest113320%_)) + (_%else113324113339%_ + (lambda () (_%f113315%_ _%rest113320%_)))) + (let ((_%K113327113356%_ + (lambda (_%rest113350%_ _%hd113351%_) + (let ((_%$e113353%_ (_%f113315%_ _%hd113351%_))) + (if _%$e113353%_ + _%$e113353%_ + (_%lp113318%_ _%rest113350%_))))) + (_%K113326113344%_ (lambda () '#f))) + (let ((_%try-match113323113347%_ (lambda () - (if (##null? _%g114085114095%_) - (_%K114090114108%_) - (_%else114088114103%_))))) - (if (##pair? _%g114085114095%_) - (let ((_%tl114093114125%_ (##cdr _%g114085114095%_)) - (_%hd114092114123%_ (##car _%g114085114095%_))) - (let ((_%hd114128%_ _%hd114092114123%_) - (_%rest114130%_ _%tl114093114125%_)) - (_%K114091114120%_ _%rest114130%_ _%hd114128%_))) - (_%try-match114087114111%_)))))))) + (if (##null? _%g113321113331%_) + (_%K113326113344%_) + (_%else113324113339%_))))) + (if (##pair? _%g113321113331%_) + (let ((_%tl113329113361%_ (##cdr _%g113321113331%_)) + (_%hd113328113359%_ (##car _%g113321113331%_))) + (let ((_%hd113364%_ _%hd113328113359%_) + (_%rest113366%_ _%tl113329113361%_)) + (_%K113327113356%_ _%rest113366%_ _%hd113364%_))) + (_%try-match113323113347%_)))))))) (define gx#stx-foldl - (lambda (_%f114027%_ _%iv114028%_ _%stx114029%_) - (if (procedure? _%f114027%_) + (lambda (_%f113263%_ _%iv113264%_ _%stx113265%_) + (if (procedure? _%f113263%_) '#!void - (error '"expected procedure" _%f114027%_)) - (let _%lp114031%_ ((_%r114033%_ _%iv114028%_) - (_%rest114034%_ _%stx114029%_)) - (let* ((_%g114035114045%_ (gx#syntax-e _%rest114034%_)) - (_%else114038114053%_ - (lambda () (_%f114027%_ _%rest114034%_ _%r114033%_)))) - (let ((_%K114041114067%_ - (lambda (_%rest114064%_ _%hd114065%_) - (_%lp114031%_ - (_%f114027%_ _%hd114065%_ _%r114033%_) - _%rest114064%_))) - (_%K114040114058%_ (lambda () _%r114033%_))) - (let ((_%try-match114037114061%_ + (error '"expected procedure" _%f113263%_)) + (let _%lp113267%_ ((_%r113269%_ _%iv113264%_) + (_%rest113270%_ _%stx113265%_)) + (let* ((_%g113271113281%_ (gx#syntax-e _%rest113270%_)) + (_%else113274113289%_ + (lambda () (_%f113263%_ _%rest113270%_ _%r113269%_)))) + (let ((_%K113277113303%_ + (lambda (_%rest113300%_ _%hd113301%_) + (_%lp113267%_ + (_%f113263%_ _%hd113301%_ _%r113269%_) + _%rest113300%_))) + (_%K113276113294%_ (lambda () _%r113269%_))) + (let ((_%try-match113273113297%_ (lambda () - (if (##null? _%g114035114045%_) - (_%K114040114058%_) - (_%else114038114053%_))))) - (if (##pair? _%g114035114045%_) - (let ((_%tl114043114072%_ (##cdr _%g114035114045%_)) - (_%hd114042114070%_ (##car _%g114035114045%_))) - (let ((_%hd114075%_ _%hd114042114070%_) - (_%rest114077%_ _%tl114043114072%_)) - (_%K114041114067%_ _%rest114077%_ _%hd114075%_))) - (_%try-match114037114061%_)))))))) + (if (##null? _%g113271113281%_) + (_%K113276113294%_) + (_%else113274113289%_))))) + (if (##pair? _%g113271113281%_) + (let ((_%tl113279113308%_ (##cdr _%g113271113281%_)) + (_%hd113278113306%_ (##car _%g113271113281%_))) + (let ((_%hd113311%_ _%hd113278113306%_) + (_%rest113313%_ _%tl113279113308%_)) + (_%K113277113303%_ _%rest113313%_ _%hd113311%_))) + (_%try-match113273113297%_)))))))) (define gx#stx-foldr - (lambda (_%f113976%_ _%iv113977%_ _%stx113978%_) - (if (procedure? _%f113976%_) + (lambda (_%f113212%_ _%iv113213%_ _%stx113214%_) + (if (procedure? _%f113212%_) '#!void - (error '"expected procedure" _%f113976%_)) - (let _%recur113980%_ ((_%rest113982%_ _%stx113978%_)) - (let* ((_%g113983113993%_ (gx#syntax-e _%rest113982%_)) - (_%else113986114001%_ - (lambda () (_%f113976%_ _%rest113982%_ _%iv113977%_)))) - (let ((_%K113989114015%_ - (lambda (_%rest114012%_ _%hd114013%_) - (_%f113976%_ - _%hd114013%_ - (_%recur113980%_ _%rest114012%_)))) - (_%K113988114006%_ (lambda () _%iv113977%_))) - (let ((_%try-match113985114009%_ + (error '"expected procedure" _%f113212%_)) + (let _%recur113216%_ ((_%rest113218%_ _%stx113214%_)) + (let* ((_%g113219113229%_ (gx#syntax-e _%rest113218%_)) + (_%else113222113237%_ + (lambda () (_%f113212%_ _%rest113218%_ _%iv113213%_)))) + (let ((_%K113225113251%_ + (lambda (_%rest113248%_ _%hd113249%_) + (_%f113212%_ + _%hd113249%_ + (_%recur113216%_ _%rest113248%_)))) + (_%K113224113242%_ (lambda () _%iv113213%_))) + (let ((_%try-match113221113245%_ (lambda () - (if (##null? _%g113983113993%_) - (_%K113988114006%_) - (_%else113986114001%_))))) - (if (##pair? _%g113983113993%_) - (let ((_%tl113991114020%_ (##cdr _%g113983113993%_)) - (_%hd113990114018%_ (##car _%g113983113993%_))) - (let ((_%hd114023%_ _%hd113990114018%_) - (_%rest114025%_ _%tl113991114020%_)) - (_%K113989114015%_ _%rest114025%_ _%hd114023%_))) - (_%try-match113985114009%_)))))))) + (if (##null? _%g113219113229%_) + (_%K113224113242%_) + (_%else113222113237%_))))) + (if (##pair? _%g113219113229%_) + (let ((_%tl113227113256%_ (##cdr _%g113219113229%_)) + (_%hd113226113254%_ (##car _%g113219113229%_))) + (let ((_%hd113259%_ _%hd113226113254%_) + (_%rest113261%_ _%tl113227113256%_)) + (_%K113225113251%_ _%rest113261%_ _%hd113259%_))) + (_%try-match113221113245%_)))))))) (define gx#stx-reverse - (lambda (_%stx113974%_) (gx#stx-foldl cons '() _%stx113974%_))) + (lambda (_%stx113210%_) (gx#stx-foldl cons '() _%stx113210%_))) (define gx#stx-last - (lambda (_%stx113935%_) - (let _%lp113937%_ ((_%rest113939%_ _%stx113935%_)) - (let* ((_%g113940113948%_ (gx#syntax-e _%rest113939%_)) - (_%else113942113956%_ (lambda () _%rest113939%_)) - (_%K113944113962%_ - (lambda (_%rest113959%_ _%hd113960%_) - (if (gx#stx-null? _%rest113959%_) - _%hd113960%_ - (_%lp113937%_ _%rest113959%_))))) - (if (##pair? _%g113940113948%_) - (let ((_%hd113945113965%_ (##car _%g113940113948%_)) - (_%tl113946113967%_ (##cdr _%g113940113948%_))) - (let* ((_%hd113970%_ _%hd113945113965%_) - (_%rest113972%_ _%tl113946113967%_)) - (_%K113944113962%_ _%rest113972%_ _%hd113970%_))) - (_%else113942113956%_)))))) + (lambda (_%stx113171%_) + (let _%lp113173%_ ((_%rest113175%_ _%stx113171%_)) + (let* ((_%g113176113184%_ (gx#syntax-e _%rest113175%_)) + (_%else113178113192%_ (lambda () _%rest113175%_)) + (_%K113180113198%_ + (lambda (_%rest113195%_ _%hd113196%_) + (if (gx#stx-null? _%rest113195%_) + _%hd113196%_ + (_%lp113173%_ _%rest113195%_))))) + (if (##pair? _%g113176113184%_) + (let ((_%hd113181113201%_ (##car _%g113176113184%_)) + (_%tl113182113203%_ (##cdr _%g113176113184%_))) + (let* ((_%hd113206%_ _%hd113181113201%_) + (_%rest113208%_ _%tl113182113203%_)) + (_%K113180113198%_ _%rest113208%_ _%hd113206%_))) + (_%else113178113192%_)))))) (define gx#stx-last-pair - (lambda (_%stx113906%_) - (let _%lp113908%_ ((_%hd113910%_ _%stx113906%_)) - (let* ((_%g113911113918%_ (gx#syntax-e _%hd113910%_)) - (_%E113913113922%_ + (lambda (_%stx113142%_) + (let _%lp113144%_ ((_%hd113146%_ _%stx113142%_)) + (let* ((_%g113147113154%_ (gx#syntax-e _%hd113146%_)) + (_%E113149113158%_ (lambda () (error '"No clause matching" - _%g113911113918%_ + _%g113147113154%_ '([_ . rest])) '#!void)) - (_%K113914113927%_ - (lambda (_%rest113925%_) - (if (gx#stx-pair? _%rest113925%_) - (_%lp113908%_ _%rest113925%_) - _%hd113910%_)))) - (if (##pair? _%g113911113918%_) - (let* ((_%tl113916113930%_ (##cdr _%g113911113918%_)) - (_%rest113933%_ _%tl113916113930%_)) - (_%K113914113927%_ _%rest113933%_)) - (_%E113913113922%_)))))) + (_%K113150113163%_ + (lambda (_%rest113161%_) + (if (gx#stx-pair? _%rest113161%_) + (_%lp113144%_ _%rest113161%_) + _%hd113146%_)))) + (if (##pair? _%g113147113154%_) + (let* ((_%tl113152113166%_ (##cdr _%g113147113154%_)) + (_%rest113169%_ _%tl113152113166%_)) + (_%K113150113163%_ _%rest113169%_)) + (_%E113149113158%_)))))) (define gx#stx-list-tail - (lambda (_%stx113875%_ _%k113876%_) - (let _%lp113878%_ ((_%rest113880%_ _%stx113875%_) - (_%k113881%_ _%k113876%_)) - (if (fxpositive? _%k113881%_) - (let* ((_%g113882113889%_ (gx#syntax-e _%rest113880%_)) - (_%E113884113893%_ + (lambda (_%stx113111%_ _%k113112%_) + (let _%lp113114%_ ((_%rest113116%_ _%stx113111%_) + (_%k113117%_ _%k113112%_)) + (if (fxpositive? _%k113117%_) + (let* ((_%g113118113125%_ (gx#syntax-e _%rest113116%_)) + (_%E113120113129%_ (lambda () (error '"No clause matching" - _%g113882113889%_ + _%g113118113125%_ '([_ . rest])) '#!void)) - (_%K113885113898%_ - (lambda (_%rest113896%_) - (_%lp113878%_ _%rest113896%_ (##fx- _%k113881%_ '1))))) - (if (##pair? _%g113882113889%_) - (let* ((_%tl113887113901%_ (##cdr _%g113882113889%_)) - (_%rest113904%_ _%tl113887113901%_)) - (_%K113885113898%_ _%rest113904%_)) - (_%E113884113893%_))) - _%rest113880%_)))) + (_%K113121113134%_ + (lambda (_%rest113132%_) + (_%lp113114%_ _%rest113132%_ (##fx- _%k113117%_ '1))))) + (if (##pair? _%g113118113125%_) + (let* ((_%tl113123113137%_ (##cdr _%g113118113125%_)) + (_%rest113140%_ _%tl113123113137%_)) + (_%K113121113134%_ _%rest113140%_)) + (_%E113120113129%_))) + _%rest113116%_)))) (define gx#stx-list-ref - (lambda (_%stx113872%_ _%k113873%_) - (gx#stx-car (gx#stx-list-tail _%stx113872%_ _%k113873%_)))) + (lambda (_%stx113108%_ _%k113109%_) + (gx#stx-car (gx#stx-list-tail _%stx113108%_ _%k113109%_)))) (define gx#stx-plist?__% - (lambda (_%stx113784%_ _%key?113785%_) - (if (procedure? _%key?113785%_) + (lambda (_%stx113020%_ _%key?113021%_) + (if (procedure? _%key?113021%_) '#!void - (error '"expected procedure" _%key?113785%_)) - (let _%lp113787%_ ((_%rest113789%_ _%stx113784%_)) - (let* ((_%g113790113800%_ (gx#stx-e _%rest113789%_)) - (_%else113793113808%_ (lambda () '#f))) - (let ((_%K113796113850%_ - (lambda (_%rest113819%_ _%hd113820%_) - (if (_%key?113785%_ _%hd113820%_) - (let* ((_%g113821113829%_ (gx#stx-e _%rest113819%_)) - (_%else113823113837%_ (lambda () '#f)) - (_%K113825113842%_ - (lambda (_%rest113840%_) - (_%lp113787%_ _%rest113840%_)))) - (if (##pair? _%g113821113829%_) - (let* ((_%tl113827113845%_ - (##cdr _%g113821113829%_)) - (_%rest113848%_ _%tl113827113845%_)) - (_%lp113787%_ _%rest113848%_)) - (_%else113823113837%_))) + (error '"expected procedure" _%key?113021%_)) + (let _%lp113023%_ ((_%rest113025%_ _%stx113020%_)) + (let* ((_%g113026113036%_ (gx#stx-e _%rest113025%_)) + (_%else113029113044%_ (lambda () '#f))) + (let ((_%K113032113086%_ + (lambda (_%rest113055%_ _%hd113056%_) + (if (_%key?113021%_ _%hd113056%_) + (let* ((_%g113057113065%_ (gx#stx-e _%rest113055%_)) + (_%else113059113073%_ (lambda () '#f)) + (_%K113061113078%_ + (lambda (_%rest113076%_) + (_%lp113023%_ _%rest113076%_)))) + (if (##pair? _%g113057113065%_) + (let* ((_%tl113063113081%_ + (##cdr _%g113057113065%_)) + (_%rest113084%_ _%tl113063113081%_)) + (_%lp113023%_ _%rest113084%_)) + (_%else113059113073%_))) '#f))) - (_%K113795113813%_ (lambda () '#t))) - (let ((_%try-match113792113816%_ + (_%K113031113049%_ (lambda () '#t))) + (let ((_%try-match113028113052%_ (lambda () - (if (##null? _%g113790113800%_) - (_%K113795113813%_) - (_%else113793113808%_))))) - (if (##pair? _%g113790113800%_) - (let ((_%tl113798113855%_ (##cdr _%g113790113800%_)) - (_%hd113797113853%_ (##car _%g113790113800%_))) - (let ((_%hd113858%_ _%hd113797113853%_) - (_%rest113860%_ _%tl113798113855%_)) - (_%K113796113850%_ _%rest113860%_ _%hd113858%_))) - (_%try-match113792113816%_)))))))) + (if (##null? _%g113026113036%_) + (_%K113031113049%_) + (_%else113029113044%_))))) + (if (##pair? _%g113026113036%_) + (let ((_%tl113034113091%_ (##cdr _%g113026113036%_)) + (_%hd113033113089%_ (##car _%g113026113036%_))) + (let ((_%hd113094%_ _%hd113033113089%_) + (_%rest113096%_ _%tl113034113091%_)) + (_%K113032113086%_ _%rest113096%_ _%hd113094%_))) + (_%try-match113028113052%_)))))))) (define gx#stx-plist?__0 - (lambda (_%stx113865%_) - (let ((_%key?113867%_ gx#stx-keyword?)) - (gx#stx-plist?__% _%stx113865%_ _%key?113867%_)))) + (lambda (_%stx113101%_) + (let ((_%key?113103%_ gx#stx-keyword?)) + (gx#stx-plist?__% _%stx113101%_ _%key?113103%_)))) (define gx#stx-plist? - (lambda _g115021_ - (let ((_g115020_ (##length _g115021_))) - (cond ((##fx= _g115020_ 1) - (apply (lambda (_%stx113865%_) - (gx#stx-plist?__0 _%stx113865%_)) - _g115021_)) - ((##fx= _g115020_ 2) - (apply (lambda (_%stx113869%_ _%key?113870%_) - (gx#stx-plist?__% _%stx113869%_ _%key?113870%_)) - _g115021_)) + (lambda _g114257_ + (let ((_g114256_ (##length _g114257_))) + (cond ((##fx= _g114256_ 1) (apply gx#stx-plist?__0 _g114257_)) + ((##fx= _g114256_ 2) (apply gx#stx-plist?__% _g114257_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g115021_)))))) + _g114257_)))))) (define gx#stx-getq__% - (lambda (_%key113702%_ _%stx113703%_ _%key=?113704%_) - (if (procedure? _%key=?113704%_) + (lambda (_%key112938%_ _%stx112939%_ _%key=?112940%_) + (if (procedure? _%key=?112940%_) '#!void - (error '"expected procedure" _%key=?113704%_)) - (let _%lp113706%_ ((_%rest113708%_ _%stx113703%_)) - (let* ((_%g113709113717%_ (gx#syntax-e _%rest113708%_)) - (_%else113711113725%_ (lambda () '#f)) - (_%K113713113759%_ - (lambda (_%rest113728%_ _%hd113729%_) - (let* ((_%g113730113737%_ (gx#syntax-e _%rest113728%_)) - (_%E113732113741%_ + (error '"expected procedure" _%key=?112940%_)) + (let _%lp112942%_ ((_%rest112944%_ _%stx112939%_)) + (let* ((_%g112945112953%_ (gx#syntax-e _%rest112944%_)) + (_%else112947112961%_ (lambda () '#f)) + (_%K112949112995%_ + (lambda (_%rest112964%_ _%hd112965%_) + (let* ((_%g112966112973%_ (gx#syntax-e _%rest112964%_)) + (_%E112968112977%_ (lambda () (error '"No clause matching" - _%g113730113737%_ + _%g112966112973%_ '([val . rest])) '#!void)) - (_%K113733113747%_ - (lambda (_%rest113744%_ _%val113745%_) - (if (_%key=?113704%_ _%hd113729%_ _%key113702%_) - _%val113745%_ - (_%lp113706%_ _%rest113744%_))))) - (if (##pair? _%g113730113737%_) - (let ((_%hd113734113750%_ (##car _%g113730113737%_)) - (_%tl113735113752%_ (##cdr _%g113730113737%_))) - (let* ((_%val113755%_ _%hd113734113750%_) - (_%rest113757%_ _%tl113735113752%_)) - (_%K113733113747%_ - _%rest113757%_ - _%val113755%_))) - (_%E113732113741%_)))))) - (if (##pair? _%g113709113717%_) - (let ((_%hd113714113762%_ (##car _%g113709113717%_)) - (_%tl113715113764%_ (##cdr _%g113709113717%_))) - (let* ((_%hd113767%_ _%hd113714113762%_) - (_%rest113769%_ _%tl113715113764%_)) - (_%K113713113759%_ _%rest113769%_ _%hd113767%_))) - (_%else113711113725%_)))))) + (_%K112969112983%_ + (lambda (_%rest112980%_ _%val112981%_) + (if (_%key=?112940%_ _%hd112965%_ _%key112938%_) + _%val112981%_ + (_%lp112942%_ _%rest112980%_))))) + (if (##pair? _%g112966112973%_) + (let ((_%hd112970112986%_ (##car _%g112966112973%_)) + (_%tl112971112988%_ (##cdr _%g112966112973%_))) + (let* ((_%val112991%_ _%hd112970112986%_) + (_%rest112993%_ _%tl112971112988%_)) + (_%K112969112983%_ + _%rest112993%_ + _%val112991%_))) + (_%E112968112977%_)))))) + (if (##pair? _%g112945112953%_) + (let ((_%hd112950112998%_ (##car _%g112945112953%_)) + (_%tl112951113000%_ (##cdr _%g112945112953%_))) + (let* ((_%hd113003%_ _%hd112950112998%_) + (_%rest113005%_ _%tl112951113000%_)) + (_%K112949112995%_ _%rest113005%_ _%hd113003%_))) + (_%else112947112961%_)))))) (define gx#stx-getq__0 - (lambda (_%key113774%_ _%stx113775%_) - (let ((_%key=?113777%_ gx#stx-eq?)) - (gx#stx-getq__% _%key113774%_ _%stx113775%_ _%key=?113777%_)))) + (lambda (_%key113010%_ _%stx113011%_) + (let ((_%key=?113013%_ gx#stx-eq?)) + (gx#stx-getq__% _%key113010%_ _%stx113011%_ _%key=?113013%_)))) (define gx#stx-getq - (lambda _g115023_ - (let ((_g115022_ (##length _g115023_))) - (cond ((##fx= _g115022_ 2) - (apply (lambda (_%key113774%_ _%stx113775%_) - (gx#stx-getq__0 _%key113774%_ _%stx113775%_)) - _g115023_)) - ((##fx= _g115022_ 3) - (apply (lambda (_%key113779%_ _%stx113780%_ _%key=?113781%_) - (gx#stx-getq__% - _%key113779%_ - _%stx113780%_ - _%key=?113781%_)) - _g115023_)) + (lambda _g114259_ + (let ((_g114258_ (##length _g114259_))) + (cond ((##fx= _g114258_ 2) (apply gx#stx-getq__0 _g114259_)) + ((##fx= _g114258_ 3) (apply gx#stx-getq__% _g114259_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g115023_)))))))) + _g114259_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx~1.scm b/src/bootstrap/gerbil/expander/stx~1.scm index 1e4d54546..929de5f18 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]#_g115025_| + (define |gx[1]#_g114261_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g115027_| + (define |gx[1]#_g114263_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g115029_| + (define |gx[1]#_g114265_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g115031_| + (define |gx[1]#_g114267_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g115033_| + (define |gx[1]#_g114269_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g115034_| + (define |gx[1]#_g114270_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g115035_| + (define |gx[1]#_g114271_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g115037_| + (define |gx[1]#_g114273_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115038_| + (define |gx[1]#_g114274_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115039_| + (define |gx[1]#_g114275_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115041_| + (define |gx[1]#_g114277_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g115042_| + (define |gx[1]#_g114278_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g115043_| + (define |gx[1]#_g114279_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g115045_| + (define |gx[1]#_g114281_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115046_| + (define |gx[1]#_g114282_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115047_| + (define |gx[1]#_g114283_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115050_| + (define |gx[1]#_g114286_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g115052_| + (define |gx[1]#_g114288_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g115054_| + (define |gx[1]#_g114290_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g115056_| + (define |gx[1]#_g114292_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g115057_| + (define |gx[1]#_g114293_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g115058_| + (define |gx[1]#_g114294_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g115060_| + (define |gx[1]#_g114296_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115061_| + (define |gx[1]#_g114297_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115062_| + (define |gx[1]#_g114298_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115064_| + (define |gx[1]#_g114300_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g115065_| + (define |gx[1]#_g114301_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g115066_| + (define |gx[1]#_g114302_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g115068_| + (define |gx[1]#_g114304_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115069_| + (define |gx[1]#_g114305_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115070_| + (define |gx[1]#_g114306_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115073_| + (define |gx[1]#_g114309_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g115075_| + (define |gx[1]#_g114311_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g115077_| + (define |gx[1]#_g114313_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g115079_| + (define |gx[1]#_g114315_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g115080_| + (define |gx[1]#_g114316_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g115081_| + (define |gx[1]#_g114317_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g115082_| + (define |gx[1]#_g114318_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g115084_| + (define |gx[1]#_g114320_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115085_| + (define |gx[1]#_g114321_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115086_| + (define |gx[1]#_g114322_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115087_| + (define |gx[1]#_g114323_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115089_| + (define |gx[1]#_g114325_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g115090_| + (define |gx[1]#_g114326_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g115091_| + (define |gx[1]#_g114327_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g115092_| + (define |gx[1]#_g114328_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g115094_| + (define |gx[1]#_g114330_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115095_| + (define |gx[1]#_g114331_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115096_| + (define |gx[1]#_g114332_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115097_| + (define |gx[1]#_g114333_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj115007 + (let ((__obj114243 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj115007 + __obj114243 'gx#identifier-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115007 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj114243 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115007 '(marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj114243 '(marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj115007 + __obj114243 '(e source marks) '6 '#f '#f)) - (let ((__tmp115024 (cons |gx[1]#_g115025_| '()))) + (let ((__tmp114260 (cons |gx[1]#_g114261_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj115007 __tmp115024 '3 '#f '#f)) + (##unchecked-structure-set! __obj114243 __tmp114260 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115007 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj114243 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115007 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj114243 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115007 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj114243 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115007 '#f '11 '#f '#f)) - (let ((__tmp115026 |gx[1]#_g115027_|)) + (##unchecked-structure-set! __obj114243 '#f '11 '#f '#f)) + (let ((__tmp114262 |gx[1]#_g114263_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115007 __tmp115026 '12 '#f '#f)) - (let ((__tmp115028 |gx[1]#_g115029_|)) + (##unchecked-structure-set! __obj114243 __tmp114262 '12 '#f '#f)) + (let ((__tmp114264 |gx[1]#_g114265_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115007 __tmp115028 '13 '#f '#f)) - (let ((__tmp115030 |gx[1]#_g115031_|)) + (##unchecked-structure-set! __obj114243 __tmp114264 '13 '#f '#f)) + (let ((__tmp114266 |gx[1]#_g114267_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115007 __tmp115030 '14 '#f '#f)) - (let ((__tmp115032 - (cons (cons 'marks |gx[1]#_g115033_|) - (cons (cons 'e |gx[1]#_g115034_|) - (cons (cons 'source |gx[1]#_g115035_|) '()))))) + (##unchecked-structure-set! __obj114243 __tmp114266 '14 '#f '#f)) + (let ((__tmp114268 + (cons (cons 'marks |gx[1]#_g114269_|) + (cons (cons 'e |gx[1]#_g114270_|) + (cons (cons 'source |gx[1]#_g114271_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj115007 __tmp115032 '15 '#f '#f)) - (let ((__tmp115036 - (cons (cons 'marks |gx[1]#_g115037_|) - (cons (cons 'e |gx[1]#_g115038_|) - (cons (cons 'source |gx[1]#_g115039_|) '()))))) + (##unchecked-structure-set! __obj114243 __tmp114268 '15 '#f '#f)) + (let ((__tmp114272 + (cons (cons 'marks |gx[1]#_g114273_|) + (cons (cons 'e |gx[1]#_g114274_|) + (cons (cons 'source |gx[1]#_g114275_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj115007 __tmp115036 '16 '#f '#f)) - (let ((__tmp115040 - (cons (cons 'marks |gx[1]#_g115041_|) - (cons (cons 'e |gx[1]#_g115042_|) - (cons (cons 'source |gx[1]#_g115043_|) '()))))) + (##unchecked-structure-set! __obj114243 __tmp114272 '16 '#f '#f)) + (let ((__tmp114276 + (cons (cons 'marks |gx[1]#_g114277_|) + (cons (cons 'e |gx[1]#_g114278_|) + (cons (cons 'source |gx[1]#_g114279_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj115007 __tmp115040 '17 '#f '#f)) - (let ((__tmp115044 - (cons (cons 'marks |gx[1]#_g115045_|) - (cons (cons 'e |gx[1]#_g115046_|) - (cons (cons 'source |gx[1]#_g115047_|) '()))))) + (##unchecked-structure-set! __obj114243 __tmp114276 '17 '#f '#f)) + (let ((__tmp114280 + (cons (cons 'marks |gx[1]#_g114281_|) + (cons (cons 'e |gx[1]#_g114282_|) + (cons (cons 'source |gx[1]#_g114283_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj115007 __tmp115044 '18 '#f '#f)) + (##unchecked-structure-set! __obj114243 __tmp114280 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115007 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj114243 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115007 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj114243 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115007 '() '20 '#f '#f)) - __obj115007)) + (##unchecked-structure-set! __obj114243 '() '20 '#f '#f)) + __obj114243)) (define |gx[:0:]#syntax-wrap| - (let ((__obj115008 + (let ((__obj114244 (let () (declare (not safe)) (##structure @@ -483,80 +483,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj115008 + __obj114244 'gx#syntax-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115008 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj114244 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115008 '(mark) '4 '#f '#f)) + (##unchecked-structure-set! __obj114244 '(mark) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115008 '(e source mark) '6 '#f '#f)) - (let ((__tmp115048 (cons |gx[1]#_g115025_| '()))) + (##unchecked-structure-set! __obj114244 '(e source mark) '6 '#f '#f)) + (let ((__tmp114284 (cons |gx[1]#_g114261_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj115008 __tmp115048 '3 '#f '#f)) + (##unchecked-structure-set! __obj114244 __tmp114284 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115008 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj114244 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115008 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj114244 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115008 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj114244 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115008 '#f '11 '#f '#f)) - (let ((__tmp115049 |gx[1]#_g115050_|)) + (##unchecked-structure-set! __obj114244 '#f '11 '#f '#f)) + (let ((__tmp114285 |gx[1]#_g114286_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115008 __tmp115049 '12 '#f '#f)) - (let ((__tmp115051 |gx[1]#_g115052_|)) + (##unchecked-structure-set! __obj114244 __tmp114285 '12 '#f '#f)) + (let ((__tmp114287 |gx[1]#_g114288_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115008 __tmp115051 '13 '#f '#f)) - (let ((__tmp115053 |gx[1]#_g115054_|)) + (##unchecked-structure-set! __obj114244 __tmp114287 '13 '#f '#f)) + (let ((__tmp114289 |gx[1]#_g114290_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115008 __tmp115053 '14 '#f '#f)) - (let ((__tmp115055 - (cons (cons 'mark |gx[1]#_g115056_|) - (cons (cons 'e |gx[1]#_g115057_|) - (cons (cons 'source |gx[1]#_g115058_|) '()))))) + (##unchecked-structure-set! __obj114244 __tmp114289 '14 '#f '#f)) + (let ((__tmp114291 + (cons (cons 'mark |gx[1]#_g114292_|) + (cons (cons 'e |gx[1]#_g114293_|) + (cons (cons 'source |gx[1]#_g114294_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj115008 __tmp115055 '15 '#f '#f)) - (let ((__tmp115059 - (cons (cons 'mark |gx[1]#_g115060_|) - (cons (cons 'e |gx[1]#_g115061_|) - (cons (cons 'source |gx[1]#_g115062_|) '()))))) + (##unchecked-structure-set! __obj114244 __tmp114291 '15 '#f '#f)) + (let ((__tmp114295 + (cons (cons 'mark |gx[1]#_g114296_|) + (cons (cons 'e |gx[1]#_g114297_|) + (cons (cons 'source |gx[1]#_g114298_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj115008 __tmp115059 '16 '#f '#f)) - (let ((__tmp115063 - (cons (cons 'mark |gx[1]#_g115064_|) - (cons (cons 'e |gx[1]#_g115065_|) - (cons (cons 'source |gx[1]#_g115066_|) '()))))) + (##unchecked-structure-set! __obj114244 __tmp114295 '16 '#f '#f)) + (let ((__tmp114299 + (cons (cons 'mark |gx[1]#_g114300_|) + (cons (cons 'e |gx[1]#_g114301_|) + (cons (cons 'source |gx[1]#_g114302_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj115008 __tmp115063 '17 '#f '#f)) - (let ((__tmp115067 - (cons (cons 'mark |gx[1]#_g115068_|) - (cons (cons 'e |gx[1]#_g115069_|) - (cons (cons 'source |gx[1]#_g115070_|) '()))))) + (##unchecked-structure-set! __obj114244 __tmp114299 '17 '#f '#f)) + (let ((__tmp114303 + (cons (cons 'mark |gx[1]#_g114304_|) + (cons (cons 'e |gx[1]#_g114305_|) + (cons (cons 'source |gx[1]#_g114306_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj115008 __tmp115067 '18 '#f '#f)) + (##unchecked-structure-set! __obj114244 __tmp114303 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115008 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj114244 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115008 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj114244 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115008 '() '20 '#f '#f)) - __obj115008)) + (##unchecked-structure-set! __obj114244 '() '20 '#f '#f)) + __obj114244)) (define |gx[:0:]#syntax-quote| - (let ((__obj115009 + (let ((__obj114245 (let () (declare (not safe)) (##structure @@ -585,88 +585,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj115009 + __obj114245 'gx#syntax-quote::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115009 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj114245 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115009 '(context marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj114245 '(context marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj115009 + __obj114245 '(e source context marks) '6 '#f '#f)) - (let ((__tmp115071 (cons |gx[1]#_g115025_| '()))) + (let ((__tmp114307 (cons |gx[1]#_g114261_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj115009 __tmp115071 '3 '#f '#f)) + (##unchecked-structure-set! __obj114245 __tmp114307 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115009 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj114245 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115009 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj114245 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115009 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj114245 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115009 '#f '11 '#f '#f)) - (let ((__tmp115072 |gx[1]#_g115073_|)) + (##unchecked-structure-set! __obj114245 '#f '11 '#f '#f)) + (let ((__tmp114308 |gx[1]#_g114309_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115009 __tmp115072 '12 '#f '#f)) - (let ((__tmp115074 |gx[1]#_g115075_|)) + (##unchecked-structure-set! __obj114245 __tmp114308 '12 '#f '#f)) + (let ((__tmp114310 |gx[1]#_g114311_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115009 __tmp115074 '13 '#f '#f)) - (let ((__tmp115076 |gx[1]#_g115077_|)) + (##unchecked-structure-set! __obj114245 __tmp114310 '13 '#f '#f)) + (let ((__tmp114312 |gx[1]#_g114313_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115009 __tmp115076 '14 '#f '#f)) - (let ((__tmp115078 - (cons (cons 'context |gx[1]#_g115079_|) - (cons (cons 'marks |gx[1]#_g115080_|) - (cons (cons 'e |gx[1]#_g115081_|) - (cons (cons 'source |gx[1]#_g115082_|) + (##unchecked-structure-set! __obj114245 __tmp114312 '14 '#f '#f)) + (let ((__tmp114314 + (cons (cons 'context |gx[1]#_g114315_|) + (cons (cons 'marks |gx[1]#_g114316_|) + (cons (cons 'e |gx[1]#_g114317_|) + (cons (cons 'source |gx[1]#_g114318_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj115009 __tmp115078 '15 '#f '#f)) - (let ((__tmp115083 - (cons (cons 'context |gx[1]#_g115084_|) - (cons (cons 'marks |gx[1]#_g115085_|) - (cons (cons 'e |gx[1]#_g115086_|) - (cons (cons 'source |gx[1]#_g115087_|) + (##unchecked-structure-set! __obj114245 __tmp114314 '15 '#f '#f)) + (let ((__tmp114319 + (cons (cons 'context |gx[1]#_g114320_|) + (cons (cons 'marks |gx[1]#_g114321_|) + (cons (cons 'e |gx[1]#_g114322_|) + (cons (cons 'source |gx[1]#_g114323_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj115009 __tmp115083 '16 '#f '#f)) - (let ((__tmp115088 - (cons (cons 'context |gx[1]#_g115089_|) - (cons (cons 'marks |gx[1]#_g115090_|) - (cons (cons 'e |gx[1]#_g115091_|) - (cons (cons 'source |gx[1]#_g115092_|) + (##unchecked-structure-set! __obj114245 __tmp114319 '16 '#f '#f)) + (let ((__tmp114324 + (cons (cons 'context |gx[1]#_g114325_|) + (cons (cons 'marks |gx[1]#_g114326_|) + (cons (cons 'e |gx[1]#_g114327_|) + (cons (cons 'source |gx[1]#_g114328_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj115009 __tmp115088 '17 '#f '#f)) - (let ((__tmp115093 - (cons (cons 'context |gx[1]#_g115094_|) - (cons (cons 'marks |gx[1]#_g115095_|) - (cons (cons 'e |gx[1]#_g115096_|) - (cons (cons 'source |gx[1]#_g115097_|) + (##unchecked-structure-set! __obj114245 __tmp114324 '17 '#f '#f)) + (let ((__tmp114329 + (cons (cons 'context |gx[1]#_g114330_|) + (cons (cons 'marks |gx[1]#_g114331_|) + (cons (cons 'e |gx[1]#_g114332_|) + (cons (cons 'source |gx[1]#_g114333_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj115009 __tmp115093 '18 '#f '#f)) + (##unchecked-structure-set! __obj114245 __tmp114329 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115009 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj114245 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115009 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj114245 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115009 '() '20 '#f '#f)) - __obj115009)))) + (##unchecked-structure-set! __obj114245 '() '20 '#f '#f)) + __obj114245)))) diff --git a/src/bootstrap/gerbil/expander/top.ssxi.ss b/src/bootstrap/gerbil/expander/top.ssxi.ss index 8e4caf772..f860d0016 100644 --- a/src/bootstrap/gerbil/expander/top.ssxi.ss +++ b/src/bootstrap/gerbil/expander/top.ssxi.ss @@ -2,197 +2,1867 @@ prelude: :gerbil/compiler/ssxi package: gerbil/expander (begin - (declare-type gx#core-expand-begin% (@lambda 1 #f)) + (declare-type + gx#core-expand-begin% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#core-expand-begin-syntax% (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#core-expand-begin-foreign% (@lambda 1 #f)) - (declare-type gx#core-expand-begin-module% (@lambda 1 #f)) - (declare-type gx#core-expand-begin-annotation% (@lambda 1 #f)) - (declare-type gx#core-expand-local-block (@lambda 2 #f)) - (declare-type gx#core-expand-declare% (@lambda 1 #f)) - (declare-type gx#core-expand-extern% (@lambda 1 #f)) - (declare-type gx#core-expand-define-values% (@lambda 1 #f)) - (declare-type gx#core-expand-define-runtime% (@lambda 1 #f)) - (declare-type gx#core-expand-define-syntax% (@lambda 1 #f)) - (declare-type gx#core-expand-define-alias% (@lambda 1 #f)) - (declare-type gx#core-expand-lambda%__% (@lambda 2 #f)) - (declare-type gx#core-expand-lambda%__0 (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-begin-foreign% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-begin-module% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-begin-annotation% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-local-block + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-declare% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-extern% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-define-values% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-define-runtime% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-define-syntax% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-define-alias% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-lambda%__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-lambda%__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#core-expand-lambda% - (@case-lambda (1 gx#core-expand-lambda%__0) (2 gx#core-expand-lambda%__%))) - (declare-type gx#core-expand-case-lambda% (@lambda 1 #f)) - (declare-type gx#core-expand-let-values% (@lambda 1 #f)) - (declare-type gx#core-expand-letrec-values%__% (@lambda 2 #f)) - (declare-type gx#core-expand-letrec-values%__0 (@lambda 1 #f)) + (@case-lambda + (1 + gx#core-expand-lambda%__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (2 + gx#core-expand-lambda%__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)))) + (declare-type + gx#core-expand-case-lambda% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-let-values% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-letrec-values%__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-letrec-values%__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#core-expand-letrec-values% (@case-lambda - (1 gx#core-expand-letrec-values%__0) - (2 gx#core-expand-letrec-values%__%))) - (declare-type gx#core-expand-letrec*-values% (@lambda 1 #f)) - (declare-type gx#core-expand-let-bind? (@lambda 1 #f)) - (declare-type gx#core-expand-let-bind-expression (@lambda 1 #f)) - (declare-type gx#core-expand-let-bind-values! (@lambda 1 #f)) - (declare-type gx#core-expand-let-bind-quote (@lambda 2 #f)) - (declare-type gx#core-expand-let-syntax% (@lambda 1 #f)) - (declare-type gx#core-expand-letrec-syntax% (@lambda 1 #f)) - (declare-type gx#core-expand-let-bind-syntax? (@lambda 1 #f)) - (declare-type gx#core-expand-let-bind-syntax-expression (@lambda 1 #f)) - (declare-type gx#core-expand-let-bind-syntax!__% (@lambda 3 #f)) - (declare-type gx#core-expand-let-bind-syntax!__0 (@lambda 2 #f)) + (1 + gx#core-expand-letrec-values%__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (2 + gx#core-expand-letrec-values%__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)))) + (declare-type + gx#core-expand-letrec*-values% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-let-bind? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-let-bind-expression + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-let-bind-values! + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-let-bind-quote + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-let-syntax% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-letrec-syntax% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-let-bind-syntax? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-let-bind-syntax-expression + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-let-bind-syntax!__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-let-bind-syntax!__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#core-expand-let-bind-syntax! (@case-lambda - (2 gx#core-expand-let-bind-syntax!__0) - (3 gx#core-expand-let-bind-syntax!__%))) - (declare-type gx#core-expand-expression% (@lambda 1 #f)) - (declare-type gx#core-expand-quote% (@lambda 1 #f)) - (declare-type gx#core-expand-quote-syntax% (@lambda 1 #f)) - (declare-type gx#core-expand-call% (@lambda 1 #f)) - (declare-type gx#core-expand-if% (@lambda 1 #f)) - (declare-type gx#core-expand-ref% (@lambda 1 #f)) - (declare-type gx#core-expand-setq% (@lambda 1 #f)) - (declare-type gx#macro-expand-extern (@lambda 1 #f)) - (declare-type gx#macro-expand-define-values (@lambda 1 #f)) - (declare-type gx#macro-expand-define-syntax (@lambda 1 #f)) - (declare-type gx#macro-expand-define-alias (@lambda 1 #f)) - (declare-type gx#macro-expand-lambda% (@lambda 1 #f)) - (declare-type gx#macro-expand-case-lambda (@lambda 1 #f)) - (declare-type gx#macro-expand-let-values__% (@lambda 2 #f)) - (declare-type gx#macro-expand-let-values__0 (@lambda 1 #f)) + (2 + gx#core-expand-let-bind-syntax!__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (3 + gx#core-expand-let-bind-syntax!__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)))) + (declare-type + gx#core-expand-expression% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-quote% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-quote-syntax% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-call% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-if% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-ref% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-expand-setq% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#macro-expand-extern + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#macro-expand-define-values + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#macro-expand-define-syntax + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#macro-expand-define-alias + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#macro-expand-lambda% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#macro-expand-case-lambda + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#macro-expand-let-values__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#macro-expand-let-values__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#macro-expand-let-values (@case-lambda - (1 gx#macro-expand-let-values__0) - (2 gx#macro-expand-let-values__%))) - (declare-type gx#macro-expand-letrec-values (@lambda 1 #f)) - (declare-type gx#macro-expand-letrec*-values (@lambda 1 #f)) - (declare-type gx#macro-expand-if (@lambda 1 #f)) + (1 + gx#macro-expand-let-values__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (2 + gx#macro-expand-let-values__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)))) + (declare-type + gx#macro-expand-letrec-values + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#macro-expand-letrec*-values + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#macro-expand-if + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#free-identifier=? (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#bound-identifier=? (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#underscore? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#ellipsis? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#check-duplicate-identifiers__% (@lambda 2 #f)) - (declare-type gx#check-duplicate-identifiers__0 (@lambda 1 #f)) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#check-duplicate-identifiers__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#check-duplicate-identifiers__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#check-duplicate-identifiers (@case-lambda - (1 gx#check-duplicate-identifiers__0) - (2 gx#check-duplicate-identifiers__%))) - (declare-type gx#core-bind-values? (@lambda 1 #f)) - (declare-type gx#core-bind-values!__% (@lambda 4 #f)) - (declare-type gx#core-bind-values!__0 (@lambda 1 #f)) - (declare-type gx#core-bind-values!__1 (@lambda 2 #f)) - (declare-type gx#core-bind-values!__2 (@lambda 3 #f)) + (1 + gx#check-duplicate-identifiers__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (2 + gx#check-duplicate-identifiers__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)))) + (declare-type + gx#core-bind-values? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-values!__% + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-values!__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-values!__1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-values!__2 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#core-bind-values! (@case-lambda - (1 gx#core-bind-values!__0) - (2 gx#core-bind-values!__1) - (3 gx#core-bind-values!__2) - (4 gx#core-bind-values!__%))) - (declare-type gx#core-quote-bind-values (@lambda 1 #f)) + (1 + gx#core-bind-values!__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (2 + gx#core-bind-values!__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (3 + gx#core-bind-values!__2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (4 + gx#core-bind-values!__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)))) + (declare-type + gx#core-quote-bind-values + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#core-runtime-ref? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type gx#core-quote-runtime-ref (@lambda 2 #f)) - (declare-type gx#core-bind-runtime!__% (@lambda 4 #f)) - (declare-type gx#core-bind-runtime!__0 (@lambda 1 #f)) - (declare-type gx#core-bind-runtime!__1 (@lambda 2 #f)) - (declare-type gx#core-bind-runtime!__2 (@lambda 3 #f)) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-quote-runtime-ref + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-runtime!__% + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-runtime!__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-runtime!__1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-runtime!__2 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#core-bind-runtime! (@case-lambda - (1 gx#core-bind-runtime!__0) - (2 gx#core-bind-runtime!__1) - (3 gx#core-bind-runtime!__2) - (4 gx#core-bind-runtime!__%))) - (declare-type gx#core-bind-runtime-reference!__% (@lambda 5 #f)) - (declare-type gx#core-bind-runtime-reference!__0 (@lambda 2 #f)) - (declare-type gx#core-bind-runtime-reference!__1 (@lambda 3 #f)) - (declare-type gx#core-bind-runtime-reference!__2 (@lambda 4 #f)) + (1 + gx#core-bind-runtime!__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (2 + gx#core-bind-runtime!__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (3 + gx#core-bind-runtime!__2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (4 + gx#core-bind-runtime!__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)))) + (declare-type + gx#core-bind-runtime-reference!__% + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-runtime-reference!__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-runtime-reference!__1 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-runtime-reference!__2 + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#core-bind-runtime-reference! (@case-lambda - (2 gx#core-bind-runtime-reference!__0) - (3 gx#core-bind-runtime-reference!__1) - (4 gx#core-bind-runtime-reference!__2) - (5 gx#core-bind-runtime-reference!__%))) - (declare-type gx#core-bind-extern!__% (@lambda 5 #f)) - (declare-type gx#core-bind-extern!__0 (@lambda 2 #f)) - (declare-type gx#core-bind-extern!__1 (@lambda 3 #f)) - (declare-type gx#core-bind-extern!__2 (@lambda 4 #f)) + (2 + gx#core-bind-runtime-reference!__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (3 + gx#core-bind-runtime-reference!__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (4 + gx#core-bind-runtime-reference!__2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (5 + gx#core-bind-runtime-reference!__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)))) + (declare-type + gx#core-bind-extern!__% + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-extern!__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-extern!__1 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-extern!__2 + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#core-bind-extern! (@case-lambda - (2 gx#core-bind-extern!__0) - (3 gx#core-bind-extern!__1) - (4 gx#core-bind-extern!__2) - (5 gx#core-bind-extern!__%))) - (declare-type gx#core-bind-syntax!__% (@lambda 5 #f)) - (declare-type gx#core-bind-syntax!__0 (@lambda 2 #f)) - (declare-type gx#core-bind-syntax!__1 (@lambda 3 #f)) - (declare-type gx#core-bind-syntax!__2 (@lambda 4 #f)) + (2 + gx#core-bind-extern!__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (3 + gx#core-bind-extern!__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (4 + gx#core-bind-extern!__2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (5 + gx#core-bind-extern!__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)))) + (declare-type + gx#core-bind-syntax!__% + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-syntax!__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-syntax!__1 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-syntax!__2 + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#core-bind-syntax! (@case-lambda - (2 gx#core-bind-syntax!__0) - (3 gx#core-bind-syntax!__1) - (4 gx#core-bind-syntax!__2) - (5 gx#core-bind-syntax!__%))) - (declare-type gx#core-bind-root-syntax!__% (@lambda 3 #f)) - (declare-type gx#core-bind-root-syntax!__0 (@lambda 2 #f)) + (2 + gx#core-bind-syntax!__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (3 + gx#core-bind-syntax!__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (4 + gx#core-bind-syntax!__2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (5 + gx#core-bind-syntax!__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)))) + (declare-type + gx#core-bind-root-syntax!__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-root-syntax!__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#core-bind-root-syntax! (@case-lambda - (2 gx#core-bind-root-syntax!__0) - (3 gx#core-bind-root-syntax!__%))) - (declare-type gx#core-bind-alias!__% (@lambda 5 #f)) - (declare-type gx#core-bind-alias!__0 (@lambda 2 #f)) - (declare-type gx#core-bind-alias!__1 (@lambda 3 #f)) - (declare-type gx#core-bind-alias!__2 (@lambda 4 #f)) + (2 + gx#core-bind-root-syntax!__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (3 + gx#core-bind-root-syntax!__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)))) + (declare-type + gx#core-bind-alias!__% + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-alias!__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-alias!__1 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#core-bind-alias!__2 + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#core-bind-alias! (@case-lambda - (2 gx#core-bind-alias!__0) - (3 gx#core-bind-alias!__1) - (4 gx#core-bind-alias!__2) - (5 gx#core-bind-alias!__%))) - (declare-type gx#make-binding-id__% (@lambda 4 #f)) - (declare-type gx#make-binding-id__0 (@lambda 1 #f)) - (declare-type gx#make-binding-id__1 (@lambda 2 #f)) - (declare-type gx#make-binding-id__2 (@lambda 3 #f)) + (2 + gx#core-bind-alias!__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (3 + gx#core-bind-alias!__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (4 + gx#core-bind-alias!__2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (5 + gx#core-bind-alias!__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)))) + (declare-type + gx#make-binding-id__% + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#make-binding-id__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#make-binding-id__1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) + (declare-type + gx#make-binding-id__2 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))) (declare-type gx#make-binding-id (@case-lambda - (1 gx#make-binding-id__0) - (2 gx#make-binding-id__1) - (3 gx#make-binding-id__2) - (4 gx#make-binding-id__%)))) + (1 + gx#make-binding-id__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (2 + gx#make-binding-id__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (3 + gx#make-binding-id__2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top)) + (4 + gx#make-binding-id__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/top))))) diff --git a/src/bootstrap/gerbil/expander/top~0.scm b/src/bootstrap/gerbil/expander/top~0.scm index 6e8624634..732f34a5a 100644 --- a/src/bootstrap/gerbil/expander/top~0.scm +++ b/src/bootstrap/gerbil/expander/top~0.scm @@ -1,414 +1,414 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/top::timestamp 1712533290) + (define gerbil/expander/top::timestamp 1712573430) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_%stx122036%_) - (letrec ((_%expand-special122038%_ - (lambda (_%hd122040%_ _%K122041%_ _%rest122042%_ _%r122043%_) - (_%K122041%_ - _%rest122042%_ - (cons (gx#core-expand-top _%hd122040%_) _%r122043%_))))) - (gx#core-expand-block__0 _%stx122036%_ _%expand-special122038%_)))) + (lambda (_%stx121272%_) + (letrec ((_%expand-special121274%_ + (lambda (_%hd121276%_ _%K121277%_ _%rest121278%_ _%r121279%_) + (_%K121277%_ + _%rest121278%_ + (cons (gx#core-expand-top _%hd121276%_) _%r121279%_))))) + (gx#core-expand-block__0 _%stx121272%_ _%expand-special121274%_)))) (define gx#core-expand-begin-syntax% - (lambda (_%stx121789%_) - (letrec ((_%expand-special121791%_ - (lambda (_%hd121911%_ _%K121912%_ _%rest121913%_ _%r121914%_) - (let* ((_%K121918%_ - (lambda (_%e121916%_) - (_%K121912%_ - _%rest121913%_ - (cons _%e121916%_ _%r121914%_)))) - (_%e121919121948%_ _%hd121911%_) - (_%E121943121952%_ + (lambda (_%stx121025%_) + (letrec ((_%expand-special121027%_ + (lambda (_%hd121147%_ _%K121148%_ _%rest121149%_ _%r121150%_) + (let* ((_%K121154%_ + (lambda (_%e121152%_) + (_%K121148%_ + _%rest121149%_ + (cons _%e121152%_ _%r121150%_)))) + (_%e121155121184%_ _%hd121147%_) + (_%E121179121188%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121919121948%_))) - (_%E121939121964%_ + _%e121155121184%_))) + (_%E121175121200%_ (lambda () - (if (gx#stx-pair? _%e121919121948%_) - (let ((_%e121944121956%_ - (gx#syntax-e _%e121919121948%_))) - (let ((_%hd121945121959%_ - (##car _%e121944121956%_)) - (_%tl121946121961%_ - (##cdr _%e121944121956%_))) + (if (gx#stx-pair? _%e121155121184%_) + (let ((_%e121180121192%_ + (gx#syntax-e _%e121155121184%_))) + (let ((_%hd121181121195%_ + (##car _%e121180121192%_)) + (_%tl121182121197%_ + (##cdr _%e121180121192%_))) (if (and (gx#identifier? - _%hd121945121959%_) + _%hd121181121195%_) (gx#core-identifier=? - _%hd121945121959%_ + _%hd121181121195%_ '%#define-runtime)) (if '#t - (_%K121918%_ + (_%K121154%_ (gx#core-expand-define-runtime% - _%hd121911%_)) - (_%E121943121952%_)) - (_%E121943121952%_)))) - (_%E121943121952%_)))) - (_%E121935121976%_ + _%hd121147%_)) + (_%E121179121188%_)) + (_%E121179121188%_)))) + (_%E121179121188%_)))) + (_%E121171121212%_ (lambda () - (if (gx#stx-pair? _%e121919121948%_) - (let ((_%e121940121968%_ - (gx#syntax-e _%e121919121948%_))) - (let ((_%hd121941121971%_ - (##car _%e121940121968%_)) - (_%tl121942121973%_ - (##cdr _%e121940121968%_))) + (if (gx#stx-pair? _%e121155121184%_) + (let ((_%e121176121204%_ + (gx#syntax-e _%e121155121184%_))) + (let ((_%hd121177121207%_ + (##car _%e121176121204%_)) + (_%tl121178121209%_ + (##cdr _%e121176121204%_))) (if (and (gx#identifier? - _%hd121941121971%_) + _%hd121177121207%_) (gx#core-identifier=? - _%hd121941121971%_ + _%hd121177121207%_ '%#define-alias)) (if '#t - (_%K121918%_ + (_%K121154%_ (gx#core-expand-define-alias% - _%hd121911%_)) - (_%E121939121964%_)) - (_%E121939121964%_)))) - (_%E121939121964%_)))) - (_%E121925121988%_ + _%hd121147%_)) + (_%E121175121200%_)) + (_%E121175121200%_)))) + (_%E121175121200%_)))) + (_%E121161121224%_ (lambda () - (if (gx#stx-pair? _%e121919121948%_) - (let ((_%e121936121980%_ - (gx#syntax-e _%e121919121948%_))) - (let ((_%hd121937121983%_ - (##car _%e121936121980%_)) - (_%tl121938121985%_ - (##cdr _%e121936121980%_))) + (if (gx#stx-pair? _%e121155121184%_) + (let ((_%e121172121216%_ + (gx#syntax-e _%e121155121184%_))) + (let ((_%hd121173121219%_ + (##car _%e121172121216%_)) + (_%tl121174121221%_ + (##cdr _%e121172121216%_))) (if (and (gx#identifier? - _%hd121937121983%_) + _%hd121173121219%_) (gx#core-identifier=? - _%hd121937121983%_ + _%hd121173121219%_ '%#define-syntax)) (if '#t - (_%K121918%_ + (_%K121154%_ (gx#core-expand-define-syntax% - _%hd121911%_)) - (_%E121935121976%_)) - (_%E121935121976%_)))) - (_%E121935121976%_)))) - (_%E121921122020%_ + _%hd121147%_)) + (_%E121171121212%_)) + (_%E121171121212%_)))) + (_%E121171121212%_)))) + (_%E121157121256%_ (lambda () - (if (gx#stx-pair? _%e121919121948%_) - (let ((_%e121926121992%_ - (gx#syntax-e _%e121919121948%_))) - (let ((_%hd121927121995%_ - (##car _%e121926121992%_)) - (_%tl121928121997%_ - (##cdr _%e121926121992%_))) + (if (gx#stx-pair? _%e121155121184%_) + (let ((_%e121162121228%_ + (gx#syntax-e _%e121155121184%_))) + (let ((_%hd121163121231%_ + (##car _%e121162121228%_)) + (_%tl121164121233%_ + (##cdr _%e121162121228%_))) (if (and (gx#identifier? - _%hd121927121995%_) + _%hd121163121231%_) (gx#core-identifier=? - _%hd121927121995%_ + _%hd121163121231%_ '%#define-values)) - (if (gx#stx-pair? _%tl121928121997%_) - (let ((_%e121929122000%_ + (if (gx#stx-pair? _%tl121164121233%_) + (let ((_%e121165121236%_ (gx#syntax-e - _%tl121928121997%_))) - (let ((_%hd121930122003%_ - (##car _%e121929122000%_)) - (_%tl121931122005%_ - (##cdr _%e121929122000%_))) - (let ((_%hd-bind122008%_ - _%hd121930122003%_)) + _%tl121164121233%_))) + (let ((_%hd121166121239%_ + (##car _%e121165121236%_)) + (_%tl121167121241%_ + (##cdr _%e121165121236%_))) + (let ((_%hd-bind121244%_ + _%hd121166121239%_)) (if (gx#stx-pair? - _%tl121931122005%_) - (let ((_%e121932122010%_ + _%tl121167121241%_) + (let ((_%e121168121246%_ (gx#syntax-e - _%tl121931122005%_))) - (let ((_%hd121933122013%_ + _%tl121167121241%_))) + (let ((_%hd121169121249%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e121932122010%_)) - (_%tl121934122015%_ (##cdr _%e121932122010%_))) - (let ((_%expr122018%_ _%hd121933122013%_)) - (if (gx#stx-null? _%tl121934122015%_) - (if (gx#core-bind-values? _%hd-bind122008%_) + (##car _%e121168121246%_)) + (_%tl121170121251%_ (##cdr _%e121168121246%_))) + (let ((_%expr121254%_ _%hd121169121249%_)) + (if (gx#stx-null? _%tl121170121251%_) + (if (gx#core-bind-values? _%hd-bind121244%_) (begin - (gx#core-bind-values!__0 _%hd-bind122008%_) - (_%K121918%_ _%hd121911%_)) - (_%E121925121988%_)) - (_%E121925121988%_))))) - (_%E121925121988%_))))) + (gx#core-bind-values!__0 _%hd-bind121244%_) + (_%K121154%_ _%hd121147%_)) + (_%E121161121224%_)) + (_%E121161121224%_))))) + (_%E121161121224%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121925121988%_)) - (_%E121925121988%_)))) - (_%E121925121988%_)))) - (_%E121920122032%_ + (_%E121161121224%_)) + (_%E121161121224%_)))) + (_%E121161121224%_)))) + (_%E121156121268%_ (lambda () - (if (gx#stx-pair? _%e121919121948%_) - (let ((_%e121922122024%_ - (gx#syntax-e _%e121919121948%_))) - (let ((_%hd121923122027%_ - (##car _%e121922122024%_)) - (_%tl121924122029%_ - (##cdr _%e121922122024%_))) + (if (gx#stx-pair? _%e121155121184%_) + (let ((_%e121158121260%_ + (gx#syntax-e _%e121155121184%_))) + (let ((_%hd121159121263%_ + (##car _%e121158121260%_)) + (_%tl121160121265%_ + (##cdr _%e121158121260%_))) (if (and (gx#identifier? - _%hd121923122027%_) + _%hd121159121263%_) (gx#core-identifier=? - _%hd121923122027%_ + _%hd121159121263%_ '%#begin-syntax)) (if '#t - (_%K121918%_ + (_%K121154%_ (gx#core-expand-begin-syntax% - _%hd121911%_)) - (_%E121921122020%_)) - (_%E121921122020%_)))) - (_%E121921122020%_))))) - (_%E121920122032%_)))) - (_%eval-body121792%_ - (lambda (_%rbody121800%_) - (let _%lp121802%_ ((_%rest121804%_ _%rbody121800%_) - (_%body121805%_ '()) - (_%ebody121806%_ '())) - (let* ((_%rest121807121815%_ _%rest121804%_) - (_%else121809121823%_ + _%hd121147%_)) + (_%E121157121256%_)) + (_%E121157121256%_)))) + (_%E121157121256%_))))) + (_%E121156121268%_)))) + (_%eval-body121028%_ + (lambda (_%rbody121036%_) + (let _%lp121038%_ ((_%rest121040%_ _%rbody121036%_) + (_%body121041%_ '()) + (_%ebody121042%_ '())) + (let* ((_%rest121043121051%_ _%rest121040%_) + (_%else121045121059%_ (lambda () - (values _%body121805%_ + (values _%body121041%_ (gx#eval-syntax* (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%ebody121806%_) - (gx#stx-source _%stx121789%_)))))) - (_%K121811121899%_ - (lambda (_%rest121826%_ _%hd121827%_) - (let* ((_%e121828121845%_ _%hd121827%_) - (_%E121840121849%_ + _%ebody121042%_) + (gx#stx-source _%stx121025%_)))))) + (_%K121047121135%_ + (lambda (_%rest121062%_ _%hd121063%_) + (let* ((_%e121064121081%_ _%hd121063%_) + (_%E121076121085%_ (lambda () - (_%lp121802%_ - _%rest121826%_ - (cons _%hd121827%_ _%body121805%_) - (cons _%hd121827%_ - _%ebody121806%_)))) - (_%E121830121861%_ + (_%lp121038%_ + _%rest121062%_ + (cons _%hd121063%_ _%body121041%_) + (cons _%hd121063%_ + _%ebody121042%_)))) + (_%E121066121097%_ (lambda () - (if (gx#stx-pair? _%e121828121845%_) - (let ((_%e121841121853%_ + (if (gx#stx-pair? _%e121064121081%_) + (let ((_%e121077121089%_ (gx#syntax-e - _%e121828121845%_))) - (let ((_%hd121842121856%_ - (##car _%e121841121853%_)) - (_%tl121843121858%_ - (##cdr _%e121841121853%_))) + _%e121064121081%_))) + (let ((_%hd121078121092%_ + (##car _%e121077121089%_)) + (_%tl121079121094%_ + (##cdr _%e121077121089%_))) (if (and (gx#identifier? - _%hd121842121856%_) + _%hd121078121092%_) (gx#core-identifier=? - _%hd121842121856%_ + _%hd121078121092%_ '%#begin-syntax)) (if '#t - (_%lp121802%_ - _%rest121826%_ - (cons _%hd121827%_ + (_%lp121038%_ + _%rest121062%_ + (cons _%hd121063%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body121805%_) - _%ebody121806%_) - (_%E121840121849%_)) - (_%E121840121849%_)))) + _%body121041%_) + _%ebody121042%_) + (_%E121076121085%_)) + (_%E121076121085%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121840121849%_)))) - (_%E121829121895%_ + (_%E121076121085%_)))) + (_%E121065121131%_ (lambda () - (if (gx#stx-pair? _%e121828121845%_) - (let ((_%e121831121865%_ + (if (gx#stx-pair? _%e121064121081%_) + (let ((_%e121067121101%_ (gx#syntax-e - _%e121828121845%_))) - (let ((_%hd121832121868%_ - (##car _%e121831121865%_)) - (_%tl121833121870%_ - (##cdr _%e121831121865%_))) + _%e121064121081%_))) + (let ((_%hd121068121104%_ + (##car _%e121067121101%_)) + (_%tl121069121106%_ + (##cdr _%e121067121101%_))) (if (and (gx#identifier? - _%hd121832121868%_) + _%hd121068121104%_) (gx#core-identifier=? - _%hd121832121868%_ + _%hd121068121104%_ '%#define-values)) (if (gx#stx-pair? - _%tl121833121870%_) - (let ((_%e121834121873%_ + _%tl121069121106%_) + (let ((_%e121070121109%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl121833121870%_))) - (let ((_%hd121835121876%_ (##car _%e121834121873%_)) - (_%tl121836121878%_ (##cdr _%e121834121873%_))) - (let ((_%hd-bind121881%_ _%hd121835121876%_)) - (if (gx#stx-pair? _%tl121836121878%_) - (let ((_%e121837121883%_ - (gx#syntax-e _%tl121836121878%_))) - (let ((_%hd121838121886%_ - (##car _%e121837121883%_)) - (_%tl121839121888%_ - (##cdr _%e121837121883%_))) - (let ((_%expr121891%_ _%hd121838121886%_)) - (if (gx#stx-null? _%tl121839121888%_) + (gx#syntax-e _%tl121069121106%_))) + (let ((_%hd121071121112%_ (##car _%e121070121109%_)) + (_%tl121072121114%_ (##cdr _%e121070121109%_))) + (let ((_%hd-bind121117%_ _%hd121071121112%_)) + (if (gx#stx-pair? _%tl121072121114%_) + (let ((_%e121073121119%_ + (gx#syntax-e _%tl121072121114%_))) + (let ((_%hd121074121122%_ + (##car _%e121073121119%_)) + (_%tl121075121124%_ + (##cdr _%e121073121119%_))) + (let ((_%expr121127%_ _%hd121074121122%_)) + (if (gx#stx-null? _%tl121075121124%_) (if '#t - (let ((_%ehd121893%_ + (let ((_%ehd121129%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _%hd-bind121881%_) + _%hd-bind121117%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr121891%_) + _%expr121127%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%hd121827%_)))) - (_%lp121802%_ - _%rest121826%_ - (cons _%ehd121893%_ - _%body121805%_) - (cons _%ehd121893%_ - _%ebody121806%_))) - (_%E121830121861%_)) - (_%E121830121861%_))))) - (_%E121830121861%_))))) - (_%E121830121861%_)) - (_%E121830121861%_)))) + _%hd121063%_)))) + (_%lp121038%_ + _%rest121062%_ + (cons _%ehd121129%_ + _%body121041%_) + (cons _%ehd121129%_ + _%ebody121042%_))) + (_%E121066121097%_)) + (_%E121066121097%_))))) + (_%E121066121097%_))))) + (_%E121066121097%_)) + (_%E121066121097%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121830121861%_))))) - (_%E121829121895%_))))) - (if (##pair? _%rest121807121815%_) - (let ((_%hd121812121902%_ - (##car _%rest121807121815%_)) - (_%tl121813121904%_ - (##cdr _%rest121807121815%_))) - (let* ((_%hd121907%_ _%hd121812121902%_) - (_%rest121909%_ _%tl121813121904%_)) - (_%K121811121899%_ - _%rest121909%_ - _%hd121907%_))) - (_%else121809121823%_))))))) + (_%E121066121097%_))))) + (_%E121065121131%_))))) + (if (##pair? _%rest121043121051%_) + (let ((_%hd121048121138%_ + (##car _%rest121043121051%_)) + (_%tl121049121140%_ + (##cdr _%rest121043121051%_))) + (let* ((_%hd121143%_ _%hd121048121138%_) + (_%rest121145%_ _%tl121049121140%_)) + (_%K121047121135%_ + _%rest121145%_ + _%hd121143%_))) + (_%else121045121059%_))))))) (__call-with-parameters (lambda () - (let* ((_%rbody121795%_ + (let* ((_%rbody121031%_ (gx#core-expand-block__1 - _%stx121789%_ - _%expand-special121791%_ + _%stx121025%_ + _%expand-special121027%_ '#f)) - (_g122059_ (_%eval-body121792%_ _%rbody121795%_))) + (_g121295_ (_%eval-body121028%_ _%rbody121031%_))) (begin - (let ((_g122060_ - (if (##values? _g122059_) - (##vector-length _g122059_) + (let ((_g121296_ + (if (##values? _g121295_) + (##vector-length _g121295_) 1))) - (if (not (##fx= _g122060_ 2)) - (error "Context expects 2 values" _g122060_))) - (let ((_%expanded-body121797%_ (##vector-ref _g122059_ 0)) - (_%value121798%_ (##vector-ref _g122059_ 1))) + (if (not (##fx= _g121296_ 2)) + (error "Context expects 2 values" _g121296_))) + (let ((_%expanded-body121033%_ (##vector-ref _g121295_ 0)) + (_%value121034%_ (##vector-ref _g121295_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _%expanded-body121797%_) + (gx#core-cons '%#begin-syntax _%expanded-body121033%_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _%value121798%_ '()))) - (gx#stx-source _%stx121789%_)))))) + (cons _%value121034%_ '()))) + (gx#stx-source _%stx121025%_)))))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_%stx121759%_) - (let* ((_%e121760121767%_ _%stx121759%_) - (_%E121762121771%_ + (lambda (_%stx120995%_) + (let* ((_%e120996121003%_ _%stx120995%_) + (_%E120998121007%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121760121767%_))) - (_%E121761121785%_ + _%e120996121003%_))) + (_%E120997121021%_ (lambda () - (if (gx#stx-pair? _%e121760121767%_) - (let ((_%e121763121775%_ - (gx#syntax-e _%e121760121767%_))) - (let ((_%hd121764121778%_ (##car _%e121763121775%_)) - (_%tl121765121780%_ (##cdr _%e121763121775%_))) - (let ((_%body121783%_ _%tl121765121780%_)) - (if (gx#stx-list? _%body121783%_) + (if (gx#stx-pair? _%e120996121003%_) + (let ((_%e120999121011%_ + (gx#syntax-e _%e120996121003%_))) + (let ((_%hd121000121014%_ (##car _%e120999121011%_)) + (_%tl121001121016%_ (##cdr _%e120999121011%_))) + (let ((_%body121019%_ _%tl121001121016%_)) + (if (gx#stx-list? _%body121019%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _%body121783%_) - (gx#stx-source _%stx121759%_)) - (_%E121762121771%_))))) - (_%E121762121771%_))))) - (_%E121761121785%_)))) + (gx#core-cons '%#begin-foreign _%body121019%_) + (gx#stx-source _%stx120995%_)) + (_%E120998121007%_))))) + (_%E120998121007%_))))) + (_%E120997121021%_)))) (define gx#core-expand-begin-module% - (lambda (_%stx121757%_) - (gx#raise-syntax-error '#f '"Illegal expansion" _%stx121757%_))) + (lambda (_%stx120993%_) + (gx#raise-syntax-error '#f '"Illegal expansion" _%stx120993%_))) (define gx#core-expand-begin-annotation% - (lambda (_%stx121703%_) - (let* ((_%e121704121717%_ _%stx121703%_) - (_%E121706121721%_ + (lambda (_%stx120939%_) + (let* ((_%e120940120953%_ _%stx120939%_) + (_%E120942120957%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121704121717%_))) - (_%E121705121753%_ + _%e120940120953%_))) + (_%E120941120989%_ (lambda () - (if (gx#stx-pair? _%e121704121717%_) - (let ((_%e121707121725%_ - (gx#syntax-e _%e121704121717%_))) - (let ((_%hd121708121728%_ (##car _%e121707121725%_)) - (_%tl121709121730%_ (##cdr _%e121707121725%_))) - (if (gx#stx-pair? _%tl121709121730%_) - (let ((_%e121710121733%_ - (gx#syntax-e _%tl121709121730%_))) - (let ((_%hd121711121736%_ - (##car _%e121710121733%_)) - (_%tl121712121738%_ - (##cdr _%e121710121733%_))) - (let ((_%ann121741%_ _%hd121711121736%_)) - (if (gx#stx-pair? _%tl121712121738%_) - (let ((_%e121713121743%_ + (if (gx#stx-pair? _%e120940120953%_) + (let ((_%e120943120961%_ + (gx#syntax-e _%e120940120953%_))) + (let ((_%hd120944120964%_ (##car _%e120943120961%_)) + (_%tl120945120966%_ (##cdr _%e120943120961%_))) + (if (gx#stx-pair? _%tl120945120966%_) + (let ((_%e120946120969%_ + (gx#syntax-e _%tl120945120966%_))) + (let ((_%hd120947120972%_ + (##car _%e120946120969%_)) + (_%tl120948120974%_ + (##cdr _%e120946120969%_))) + (let ((_%ann120977%_ _%hd120947120972%_)) + (if (gx#stx-pair? _%tl120948120974%_) + (let ((_%e120949120979%_ (gx#syntax-e - _%tl121712121738%_))) - (let ((_%hd121714121746%_ - (##car _%e121713121743%_)) - (_%tl121715121748%_ - (##cdr _%e121713121743%_))) - (let ((_%expr121751%_ - _%hd121714121746%_)) + _%tl120948120974%_))) + (let ((_%hd120950120982%_ + (##car _%e120949120979%_)) + (_%tl120951120984%_ + (##cdr _%e120949120979%_))) + (let ((_%expr120987%_ + _%hd120950120982%_)) (if (gx#stx-null? - _%tl121715121748%_) + _%tl120951120984%_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%ann121741%_ + (cons _%ann120977%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-expand-expression _%expr121751%_) + (cons (gx#core-expand-expression _%expr120987%_) '()))) - (gx#stx-source _%stx121703%_)) - (_%E121706121721%_)) + (gx#stx-source _%stx120939%_)) + (_%E120942120957%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121706121721%_))))) - (_%E121706121721%_))))) - (_%E121706121721%_)))) - (_%E121706121721%_))))) - (_%E121705121753%_)))) + (_%E120942120957%_))))) + (_%E120942120957%_))))) + (_%E120942120957%_)))) + (_%E120942120957%_))))) + (_%E120941120989%_)))) (define gx#core-expand-local-block - (lambda (_%stx121427%_ _%body121428%_) - (letrec ((_%expand-special121430%_ - (lambda (_%hd121698%_ _%K121699%_ _%rest121700%_ _%r121701%_) - (_%K121699%_ + (lambda (_%stx120663%_ _%body120664%_) + (letrec ((_%expand-special120666%_ + (lambda (_%hd120934%_ _%K120935%_ _%rest120936%_ _%r120937%_) + (_%K120935%_ '() - (cons (_%expand-internal121431%_ - _%hd121698%_ - _%rest121700%_) - _%r121701%_)))) - (_%expand-internal121431%_ - (lambda (_%hd121694%_ _%rest121695%_) + (cons (_%expand-internal120667%_ + _%hd120934%_ + _%rest120936%_) + _%r120937%_)))) + (_%expand-internal120667%_ + (lambda (_%hd120930%_ _%rest120931%_) (__call-with-parameters (lambda () - (_%wrap-internal121433%_ + (_%wrap-internal120669%_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _%hd121694%_ _%rest121695%_)) - (gx#stx-source _%stx121427%_)) - _%expand-internal-special121432%_ + (cons '%#begin (cons _%hd120930%_ _%rest120931%_)) + (gx#stx-source _%stx120663%_)) + _%expand-internal-special120668%_ '#f))) gx#current-expander-context - (let ((__obj122053 + (let ((__obj121289 (##structure gx#local-context::t '#f @@ -416,766 +416,766 @@ '#f '#f '#f))) - (gx#local-context:::init! __obj122053) - __obj122053)))) - (_%expand-internal-special121432%_ - (lambda (_%hd121589%_ _%K121590%_ _%rest121591%_ _%r121592%_) - (let* ((_%e121593121618%_ _%hd121589%_) - (_%E121613121622%_ + (gx#local-context:::init! __obj121289) + __obj121289)))) + (_%expand-internal-special120668%_ + (lambda (_%hd120825%_ _%K120826%_ _%rest120827%_ _%r120828%_) + (let* ((_%e120829120854%_ _%hd120825%_) + (_%E120849120858%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121593121618%_))) - (_%E121609121634%_ + _%e120829120854%_))) + (_%E120845120870%_ (lambda () - (if (gx#stx-pair? _%e121593121618%_) - (let ((_%e121614121626%_ - (gx#syntax-e _%e121593121618%_))) - (let ((_%hd121615121629%_ - (##car _%e121614121626%_)) - (_%tl121616121631%_ - (##cdr _%e121614121626%_))) + (if (gx#stx-pair? _%e120829120854%_) + (let ((_%e120850120862%_ + (gx#syntax-e _%e120829120854%_))) + (let ((_%hd120851120865%_ + (##car _%e120850120862%_)) + (_%tl120852120867%_ + (##cdr _%e120850120862%_))) (if (and (gx#identifier? - _%hd121615121629%_) + _%hd120851120865%_) (gx#core-identifier=? - _%hd121615121629%_ + _%hd120851120865%_ '%#declare)) (if '#t - (_%K121590%_ - _%rest121591%_ + (_%K120826%_ + _%rest120827%_ (cons (gx#core-expand-declare% - _%hd121589%_) - _%r121592%_)) - (_%E121613121622%_)) - (_%E121613121622%_)))) - (_%E121613121622%_)))) - (_%E121605121646%_ + _%hd120825%_) + _%r120828%_)) + (_%E120849120858%_)) + (_%E120849120858%_)))) + (_%E120849120858%_)))) + (_%E120841120882%_ (lambda () - (if (gx#stx-pair? _%e121593121618%_) - (let ((_%e121610121638%_ - (gx#syntax-e _%e121593121618%_))) - (let ((_%hd121611121641%_ - (##car _%e121610121638%_)) - (_%tl121612121643%_ - (##cdr _%e121610121638%_))) + (if (gx#stx-pair? _%e120829120854%_) + (let ((_%e120846120874%_ + (gx#syntax-e _%e120829120854%_))) + (let ((_%hd120847120877%_ + (##car _%e120846120874%_)) + (_%tl120848120879%_ + (##cdr _%e120846120874%_))) (if (and (gx#identifier? - _%hd121611121641%_) + _%hd120847120877%_) (gx#core-identifier=? - _%hd121611121641%_ + _%hd120847120877%_ '%#define-alias)) (if '#t (begin (gx#core-expand-define-alias% - _%hd121589%_) - (_%K121590%_ - _%rest121591%_ - _%r121592%_)) - (_%E121609121634%_)) - (_%E121609121634%_)))) - (_%E121609121634%_)))) - (_%E121595121658%_ + _%hd120825%_) + (_%K120826%_ + _%rest120827%_ + _%r120828%_)) + (_%E120845120870%_)) + (_%E120845120870%_)))) + (_%E120845120870%_)))) + (_%E120831120894%_ (lambda () - (if (gx#stx-pair? _%e121593121618%_) - (let ((_%e121606121650%_ - (gx#syntax-e _%e121593121618%_))) - (let ((_%hd121607121653%_ - (##car _%e121606121650%_)) - (_%tl121608121655%_ - (##cdr _%e121606121650%_))) + (if (gx#stx-pair? _%e120829120854%_) + (let ((_%e120842120886%_ + (gx#syntax-e _%e120829120854%_))) + (let ((_%hd120843120889%_ + (##car _%e120842120886%_)) + (_%tl120844120891%_ + (##cdr _%e120842120886%_))) (if (and (gx#identifier? - _%hd121607121653%_) + _%hd120843120889%_) (gx#core-identifier=? - _%hd121607121653%_ + _%hd120843120889%_ '%#define-syntax)) (if '#t (begin (gx#core-expand-define-syntax% - _%hd121589%_) - (_%K121590%_ - _%rest121591%_ - _%r121592%_)) - (_%E121605121646%_)) - (_%E121605121646%_)))) - (_%E121605121646%_)))) - (_%E121594121690%_ + _%hd120825%_) + (_%K120826%_ + _%rest120827%_ + _%r120828%_)) + (_%E120841120882%_)) + (_%E120841120882%_)))) + (_%E120841120882%_)))) + (_%E120830120926%_ (lambda () - (if (gx#stx-pair? _%e121593121618%_) - (let ((_%e121596121662%_ - (gx#syntax-e _%e121593121618%_))) - (let ((_%hd121597121665%_ - (##car _%e121596121662%_)) - (_%tl121598121667%_ - (##cdr _%e121596121662%_))) + (if (gx#stx-pair? _%e120829120854%_) + (let ((_%e120832120898%_ + (gx#syntax-e _%e120829120854%_))) + (let ((_%hd120833120901%_ + (##car _%e120832120898%_)) + (_%tl120834120903%_ + (##cdr _%e120832120898%_))) (if (and (gx#identifier? - _%hd121597121665%_) + _%hd120833120901%_) (gx#core-identifier=? - _%hd121597121665%_ + _%hd120833120901%_ '%#define-values)) - (if (gx#stx-pair? _%tl121598121667%_) - (let ((_%e121599121670%_ + (if (gx#stx-pair? _%tl120834120903%_) + (let ((_%e120835120906%_ (gx#syntax-e - _%tl121598121667%_))) - (let ((_%hd121600121673%_ - (##car _%e121599121670%_)) - (_%tl121601121675%_ - (##cdr _%e121599121670%_))) - (let ((_%hd-bind121678%_ - _%hd121600121673%_)) + _%tl120834120903%_))) + (let ((_%hd120836120909%_ + (##car _%e120835120906%_)) + (_%tl120837120911%_ + (##cdr _%e120835120906%_))) + (let ((_%hd-bind120914%_ + _%hd120836120909%_)) (if (gx#stx-pair? - _%tl121601121675%_) - (let ((_%e121602121680%_ + _%tl120837120911%_) + (let ((_%e120838120916%_ (gx#syntax-e - _%tl121601121675%_))) - (let ((_%hd121603121683%_ + _%tl120837120911%_))) + (let ((_%hd120839120919%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e121602121680%_)) - (_%tl121604121685%_ (##cdr _%e121602121680%_))) - (let ((_%expr121688%_ _%hd121603121683%_)) - (if (gx#stx-null? _%tl121604121685%_) - (if (gx#core-bind-values? _%hd-bind121678%_) + (##car _%e120838120916%_)) + (_%tl120840120921%_ (##cdr _%e120838120916%_))) + (let ((_%expr120924%_ _%hd120839120919%_)) + (if (gx#stx-null? _%tl120840120921%_) + (if (gx#core-bind-values? _%hd-bind120914%_) (begin - (gx#core-bind-values!__0 _%hd-bind121678%_) - (_%K121590%_ - _%rest121591%_ - (cons _%hd121589%_ _%r121592%_))) - (_%E121595121658%_)) - (_%E121595121658%_))))) - (_%E121595121658%_))))) + (gx#core-bind-values!__0 _%hd-bind120914%_) + (_%K120826%_ + _%rest120827%_ + (cons _%hd120825%_ _%r120828%_))) + (_%E120831120894%_)) + (_%E120831120894%_))))) + (_%E120831120894%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121595121658%_)) - (_%E121595121658%_)))) - (_%E121595121658%_))))) - (_%E121594121690%_)))) - (_%wrap-internal121433%_ - (lambda (_%rbody121435%_) - (let _%lp121437%_ ((_%rest121439%_ _%rbody121435%_) - (_%decls121440%_ '()) - (_%bind121441%_ '()) - (_%body121442%_ '())) - (let* ((_%e121443121450%_ _%rest121439%_) - (_%E121445121499%_ + (_%E120831120894%_)) + (_%E120831120894%_)))) + (_%E120831120894%_))))) + (_%E120830120926%_)))) + (_%wrap-internal120669%_ + (lambda (_%rbody120671%_) + (let _%lp120673%_ ((_%rest120675%_ _%rbody120671%_) + (_%decls120676%_ '()) + (_%bind120677%_ '()) + (_%body120678%_ '())) + (let* ((_%e120679120686%_ _%rest120675%_) + (_%E120681120735%_ (lambda () - (let* ((_%body121494%_ - (let* ((_%body121453121463%_ - _%body121442%_) - (_%else121456121471%_ + (let* ((_%body120730%_ + (let* ((_%body120689120699%_ + _%body120678%_) + (_%else120692120707%_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body121442%_) + _%body120678%_) (gx#stx-source - _%stx121427%_))))) - (let ((_%K121461121491%_ + _%stx120663%_))))) + (let ((_%K120697120727%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _%stx121427%_))) - (_%K121458121477%_ - (lambda (_%expr121475%_) - _%expr121475%_))) - (let ((_%try-match121455121487%_ + _%stx120663%_))) + (_%K120694120713%_ + (lambda (_%expr120711%_) + _%expr120711%_))) + (let ((_%try-match120691120723%_ (lambda () - (if (##pair? _%body121453121463%_) - (let ((_%tl121460121482%_ - (##cdr _%body121453121463%_)) - (_%hd121459121480%_ - (##car _%body121453121463%_))) - (if (##null? _%tl121460121482%_) - (let ((_%expr121485%_ + (if (##pair? _%body120689120699%_) + (let ((_%tl120696120718%_ + (##cdr _%body120689120699%_)) + (_%hd120695120716%_ + (##car _%body120689120699%_))) + (if (##null? _%tl120696120718%_) + (let ((_%expr120721%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd121459121480%_)) - (_%K121458121477%_ _%expr121485%_)) - (_%else121456121471%_))) - (_%else121456121471%_))))) + _%hd120695120716%_)) + (_%K120694120713%_ _%expr120721%_)) + (_%else120692120707%_))) + (_%else120692120707%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##null? _%body121453121463%_) - (_%K121461121491%_) - (_%try-match121455121487%_)))))) - (_%body121496%_ - (if (null? _%bind121441%_) - _%body121494%_ + (if (##null? _%body120689120699%_) + (_%K120697120727%_) + (_%try-match120691120723%_)))))) + (_%body120732%_ + (if (null? _%bind120677%_) + _%body120730%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _%bind121441%_ - (cons _%body121494%_ + (cons _%bind120677%_ + (cons _%body120730%_ '()))) - (gx#stx-source _%stx121427%_))))) - (if (null? _%decls121440%_) - _%body121496%_ + (gx#stx-source _%stx120663%_))))) + (if (null? _%decls120676%_) + _%body120732%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%decls121440%_ - (cons _%body121496%_ '()))) - (gx#stx-source _%stx121427%_)))))) - (_%E121444121585%_ + (cons _%decls120676%_ + (cons _%body120732%_ '()))) + (gx#stx-source _%stx120663%_)))))) + (_%E120680120821%_ (lambda () - (if (gx#stx-pair? _%e121443121450%_) - (let ((_%e121446121503%_ - (gx#syntax-e _%e121443121450%_))) - (let ((_%hd121447121506%_ - (##car _%e121446121503%_)) - (_%tl121448121508%_ - (##cdr _%e121446121503%_))) - (let* ((_%hd121511%_ - _%hd121447121506%_) - (_%rest121513%_ - _%tl121448121508%_)) + (if (gx#stx-pair? _%e120679120686%_) + (let ((_%e120682120739%_ + (gx#syntax-e _%e120679120686%_))) + (let ((_%hd120683120742%_ + (##car _%e120682120739%_)) + (_%tl120684120744%_ + (##cdr _%e120682120739%_))) + (let* ((_%hd120747%_ + _%hd120683120742%_) + (_%rest120749%_ + _%tl120684120744%_)) (if '#t - (let* ((_%e121514121531%_ - _%hd121511%_) - (_%E121526121535%_ + (let* ((_%e120750120767%_ + _%hd120747%_) + (_%E120762120771%_ (lambda () - (if (null? _%bind121441%_) - (_%lp121437%_ - _%rest121513%_ - _%decls121440%_ - _%bind121441%_ - (cons _%hd121511%_ + (if (null? _%bind120677%_) + (_%lp120673%_ + _%rest120749%_ + _%decls120676%_ + _%bind120677%_ + (cons _%hd120747%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body121442%_)) - (_%lp121437%_ - _%rest121513%_ - _%decls121440%_ - (cons (cons '#f (cons _%hd121511%_ '())) _%bind121441%_) - _%body121442%_)))) + _%body120678%_)) + (_%lp120673%_ + _%rest120749%_ + _%decls120676%_ + (cons (cons '#f (cons _%hd120747%_ '())) _%bind120677%_) + _%body120678%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121516121549%_ + (_%E120752120785%_ (lambda () (if (gx#stx-pair? - _%e121514121531%_) - (let ((_%e121527121539%_ + _%e120750120767%_) + (let ((_%e120763120775%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%e121514121531%_))) - (let ((_%hd121528121542%_ (##car _%e121527121539%_)) - (_%tl121529121544%_ (##cdr _%e121527121539%_))) - (if (and (gx#identifier? _%hd121528121542%_) + (gx#syntax-e _%e120750120767%_))) + (let ((_%hd120764120778%_ (##car _%e120763120775%_)) + (_%tl120765120780%_ (##cdr _%e120763120775%_))) + (if (and (gx#identifier? _%hd120764120778%_) (gx#core-identifier=? - _%hd121528121542%_ + _%hd120764120778%_ '%#declare)) - (let ((_%xdecls121547%_ _%tl121529121544%_)) + (let ((_%xdecls120783%_ _%tl120765120780%_)) (if '#t - (_%lp121437%_ - _%rest121513%_ + (_%lp120673%_ + _%rest120749%_ (gx#stx-foldr cons - _%decls121440%_ - _%xdecls121547%_) - _%bind121441%_ - _%body121442%_) - (_%E121526121535%_))) - (_%E121526121535%_)))) - (_%E121526121535%_)))) + _%decls120676%_ + _%xdecls120783%_) + _%bind120677%_ + _%body120678%_) + (_%E120762120771%_))) + (_%E120762120771%_)))) + (_%E120762120771%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121515121581%_ + (_%E120751120817%_ (lambda () (if (gx#stx-pair? - _%e121514121531%_) - (let ((_%e121517121553%_ + _%e120750120767%_) + (let ((_%e120753120789%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%e121514121531%_))) - (let ((_%hd121518121556%_ (##car _%e121517121553%_)) - (_%tl121519121558%_ (##cdr _%e121517121553%_))) - (if (and (gx#identifier? _%hd121518121556%_) + (gx#syntax-e _%e120750120767%_))) + (let ((_%hd120754120792%_ (##car _%e120753120789%_)) + (_%tl120755120794%_ (##cdr _%e120753120789%_))) + (if (and (gx#identifier? _%hd120754120792%_) (gx#core-identifier=? - _%hd121518121556%_ + _%hd120754120792%_ '%#define-values)) - (if (gx#stx-pair? _%tl121519121558%_) - (let ((_%e121520121561%_ - (gx#syntax-e _%tl121519121558%_))) - (let ((_%hd121521121564%_ - (##car _%e121520121561%_)) - (_%tl121522121566%_ - (##cdr _%e121520121561%_))) - (let ((_%hd-bind121569%_ - _%hd121521121564%_)) - (if (gx#stx-pair? _%tl121522121566%_) - (let ((_%e121523121571%_ + (if (gx#stx-pair? _%tl120755120794%_) + (let ((_%e120756120797%_ + (gx#syntax-e _%tl120755120794%_))) + (let ((_%hd120757120800%_ + (##car _%e120756120797%_)) + (_%tl120758120802%_ + (##cdr _%e120756120797%_))) + (let ((_%hd-bind120805%_ + _%hd120757120800%_)) + (if (gx#stx-pair? _%tl120758120802%_) + (let ((_%e120759120807%_ (gx#syntax-e - _%tl121522121566%_))) - (let ((_%hd121524121574%_ - (##car _%e121523121571%_)) - (_%tl121525121576%_ - (##cdr _%e121523121571%_))) - (let ((_%expr121579%_ - _%hd121524121574%_)) + _%tl120758120802%_))) + (let ((_%hd120760120810%_ + (##car _%e120759120807%_)) + (_%tl120761120812%_ + (##cdr _%e120759120807%_))) + (let ((_%expr120815%_ + _%hd120760120810%_)) (if (gx#stx-null? - _%tl121525121576%_) + _%tl120761120812%_) (if '#t - (_%lp121437%_ - _%rest121513%_ - _%decls121440%_ + (_%lp120673%_ + _%rest120749%_ + _%decls120676%_ (cons (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd-bind121569%_) - (cons (gx#core-expand-expression _%expr121579%_) + _%hd-bind120805%_) + (cons (gx#core-expand-expression _%expr120815%_) '())) - _%bind121441%_) - _%body121442%_) - (_%E121516121549%_)) + _%bind120677%_) + _%body120678%_) + (_%E120752120785%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121516121549%_))))) - (_%E121516121549%_))))) - (_%E121516121549%_)) - (_%E121516121549%_)))) - (_%E121516121549%_))))) + (_%E120752120785%_))))) + (_%E120752120785%_))))) + (_%E120752120785%_)) + (_%E120752120785%_)))) + (_%E120752120785%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121515121581%_)) - (_%E121445121499%_))))) - (_%E121445121499%_))))) - (_%E121444121585%_)))))) + (_%E120751120817%_)) + (_%E120681120735%_))))) + (_%E120681120735%_))))) + (_%E120680120821%_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _%body121428%_) - (gx#stx-source _%stx121427%_)) - _%expand-special121430%_)))) + (cons '%#begin _%body120664%_) + (gx#stx-source _%stx120663%_)) + _%expand-special120666%_)))) (define gx#core-expand-declare% - (lambda (_%stx121365%_) - (let* ((_%e121366121373%_ _%stx121365%_) - (_%E121368121377%_ + (lambda (_%stx120601%_) + (let* ((_%e120602120609%_ _%stx120601%_) + (_%E120604120613%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121366121373%_))) - (_%E121367121423%_ + _%e120602120609%_))) + (_%E120603120659%_ (lambda () - (if (gx#stx-pair? _%e121366121373%_) - (let ((_%e121369121381%_ - (gx#syntax-e _%e121366121373%_))) - (let ((_%hd121370121384%_ (##car _%e121369121381%_)) - (_%tl121371121386%_ (##cdr _%e121369121381%_))) - (let ((_%body121389%_ _%tl121371121386%_)) - (if (gx#stx-list? _%body121389%_) + (if (gx#stx-pair? _%e120602120609%_) + (let ((_%e120605120617%_ + (gx#syntax-e _%e120602120609%_))) + (let ((_%hd120606120620%_ (##car _%e120605120617%_)) + (_%tl120607120622%_ (##cdr _%e120605120617%_))) + (let ((_%body120625%_ _%tl120607120622%_)) + (if (gx#stx-list? _%body120625%_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_%decl121391%_) - (let* ((_%e121392121399%_ _%decl121391%_) - (_%E121394121403%_ + (lambda (_%decl120627%_) + (let* ((_%e120628120635%_ _%decl120627%_) + (_%E120630120639%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121392121399%_))) - (_%E121393121419%_ + _%e120628120635%_))) + (_%E120629120655%_ (lambda () (if (gx#stx-pair? - _%e121392121399%_) - (let ((_%e121395121407%_ + _%e120628120635%_) + (let ((_%e120631120643%_ (gx#syntax-e - _%e121392121399%_))) - (let ((_%hd121396121410%_ - (##car _%e121395121407%_)) - (_%tl121397121412%_ - (##cdr _%e121395121407%_))) - (let* ((_%head121415%_ - _%hd121396121410%_) - (_%args121417%_ - _%tl121397121412%_)) + _%e120628120635%_))) + (let ((_%hd120632120646%_ + (##car _%e120631120643%_)) + (_%tl120633120648%_ + (##cdr _%e120631120643%_))) + (let* ((_%head120651%_ + _%hd120632120646%_) + (_%args120653%_ + _%tl120633120648%_)) (if (gx#stx-list? - _%args121417%_) + _%args120653%_) (gx#stx-map1 gx#core-quote-syntax - _%decl121391%_) - (_%E121394121403%_))))) - (_%E121394121403%_))))) - (_%E121393121419%_))) - _%body121389%_)) - (gx#stx-source _%stx121365%_)) - (_%E121368121377%_))))) - (_%E121368121377%_))))) - (_%E121367121423%_)))) + _%decl120627%_) + (_%E120630120639%_))))) + (_%E120630120639%_))))) + (_%E120629120655%_))) + _%body120625%_)) + (gx#stx-source _%stx120601%_)) + (_%E120604120613%_))))) + (_%E120604120613%_))))) + (_%E120603120659%_)))) (define gx#core-expand-extern% - (lambda (_%stx121269%_) - (let* ((_%e121270121277%_ _%stx121269%_) - (_%E121272121281%_ + (lambda (_%stx120505%_) + (let* ((_%e120506120513%_ _%stx120505%_) + (_%E120508120517%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121270121277%_))) - (_%E121271121361%_ + _%e120506120513%_))) + (_%E120507120597%_ (lambda () - (if (gx#stx-pair? _%e121270121277%_) - (let ((_%e121273121285%_ - (gx#syntax-e _%e121270121277%_))) - (let ((_%hd121274121288%_ (##car _%e121273121285%_)) - (_%tl121275121290%_ (##cdr _%e121273121285%_))) - (let ((_%body121293%_ _%tl121275121290%_)) + (if (gx#stx-pair? _%e120506120513%_) + (let ((_%e120509120521%_ + (gx#syntax-e _%e120506120513%_))) + (let ((_%hd120510120524%_ (##car _%e120509120521%_)) + (_%tl120511120526%_ (##cdr _%e120509120521%_))) + (let ((_%body120529%_ _%tl120511120526%_)) (if '#t - (let _%lp121295%_ ((_%rest121297%_ - _%body121293%_) - (_%r121298%_ '())) - (let* ((_%e121299121313%_ _%rest121297%_) - (_%E121311121317%_ + (let _%lp120531%_ ((_%rest120533%_ + _%body120529%_) + (_%r120534%_ '())) + (let* ((_%e120535120549%_ _%rest120533%_) + (_%E120547120553%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _%stx121269%_))) - (_%E121301121321%_ + _%stx120505%_))) + (_%E120537120557%_ (lambda () (if (gx#stx-null? - _%e121299121313%_) + _%e120535120549%_) (if '#t (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _%r121298%_)) + (reverse _%r120534%_)) (gx#stx-source - _%stx121269%_)) - (_%E121311121317%_)) - (_%E121311121317%_)))) - (_%E121300121357%_ + _%stx120505%_)) + (_%E120547120553%_)) + (_%E120547120553%_)))) + (_%E120536120593%_ (lambda () (if (gx#stx-pair? - _%e121299121313%_) - (let ((_%e121302121325%_ + _%e120535120549%_) + (let ((_%e120538120561%_ (gx#syntax-e - _%e121299121313%_))) - (let ((_%hd121303121328%_ - (##car _%e121302121325%_)) - (_%tl121304121330%_ - (##cdr _%e121302121325%_))) + _%e120535120549%_))) + (let ((_%hd120539120564%_ + (##car _%e120538120561%_)) + (_%tl120540120566%_ + (##cdr _%e120538120561%_))) (if (gx#stx-pair? - _%hd121303121328%_) - (let ((_%e121305121333%_ + _%hd120539120564%_) + (let ((_%e120541120569%_ (gx#syntax-e - _%hd121303121328%_))) - (let ((_%hd121306121336%_ + _%hd120539120564%_))) + (let ((_%hd120542120572%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e121305121333%_)) - (_%tl121307121338%_ (##cdr _%e121305121333%_))) - (let ((_%id121341%_ _%hd121306121336%_)) - (if (gx#stx-pair? _%tl121307121338%_) - (let ((_%e121308121343%_ - (gx#syntax-e _%tl121307121338%_))) - (let ((_%hd121309121346%_ - (##car _%e121308121343%_)) - (_%tl121310121348%_ - (##cdr _%e121308121343%_))) - (let ((_%eid121351%_ _%hd121309121346%_)) - (if (gx#stx-null? _%tl121310121348%_) - (let ((_%rest121353%_ _%tl121304121330%_)) - (if (and (gx#identifier? _%id121341%_) - (gx#identifier? _%eid121351%_)) - (let ((_%eid121355%_ - (gx#stx-e _%eid121351%_))) + (##car _%e120541120569%_)) + (_%tl120543120574%_ (##cdr _%e120541120569%_))) + (let ((_%id120577%_ _%hd120542120572%_)) + (if (gx#stx-pair? _%tl120543120574%_) + (let ((_%e120544120579%_ + (gx#syntax-e _%tl120543120574%_))) + (let ((_%hd120545120582%_ + (##car _%e120544120579%_)) + (_%tl120546120584%_ + (##cdr _%e120544120579%_))) + (let ((_%eid120587%_ _%hd120545120582%_)) + (if (gx#stx-null? _%tl120546120584%_) + (let ((_%rest120589%_ _%tl120540120566%_)) + (if (and (gx#identifier? _%id120577%_) + (gx#identifier? _%eid120587%_)) + (let ((_%eid120591%_ + (gx#stx-e _%eid120587%_))) (gx#core-bind-extern!__0 - _%id121341%_ - _%eid121355%_) - (_%lp121295%_ - _%rest121353%_ + _%id120577%_ + _%eid120591%_) + (_%lp120531%_ + _%rest120589%_ (cons (cons (gx#core-quote-syntax__0 - _%id121341%_) - (cons _%eid121355%_ + _%id120577%_) + (cons _%eid120591%_ '())) - _%r121298%_))) - (_%E121301121321%_))) - (_%E121301121321%_))))) - (_%E121301121321%_))))) - (_%E121301121321%_)))) + _%r120534%_))) + (_%E120537120557%_))) + (_%E120537120557%_))))) + (_%E120537120557%_))))) + (_%E120537120557%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121301121321%_))))) - (_%E121300121357%_))) - (_%E121272121281%_))))) - (_%E121272121281%_))))) - (_%E121271121361%_)))) + (_%E120537120557%_))))) + (_%E120536120593%_))) + (_%E120508120517%_))))) + (_%E120508120517%_))))) + (_%E120507120597%_)))) (define gx#core-expand-define-values% - (lambda (_%stx121215%_) - (let* ((_%e121216121229%_ _%stx121215%_) - (_%E121218121233%_ + (lambda (_%stx120451%_) + (let* ((_%e120452120465%_ _%stx120451%_) + (_%E120454120469%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121216121229%_))) - (_%E121217121265%_ + _%e120452120465%_))) + (_%E120453120501%_ (lambda () - (if (gx#stx-pair? _%e121216121229%_) - (let ((_%e121219121237%_ - (gx#syntax-e _%e121216121229%_))) - (let ((_%hd121220121240%_ (##car _%e121219121237%_)) - (_%tl121221121242%_ (##cdr _%e121219121237%_))) - (if (gx#stx-pair? _%tl121221121242%_) - (let ((_%e121222121245%_ - (gx#syntax-e _%tl121221121242%_))) - (let ((_%hd121223121248%_ - (##car _%e121222121245%_)) - (_%tl121224121250%_ - (##cdr _%e121222121245%_))) - (let ((_%hd121253%_ _%hd121223121248%_)) - (if (gx#stx-pair? _%tl121224121250%_) - (let ((_%e121225121255%_ + (if (gx#stx-pair? _%e120452120465%_) + (let ((_%e120455120473%_ + (gx#syntax-e _%e120452120465%_))) + (let ((_%hd120456120476%_ (##car _%e120455120473%_)) + (_%tl120457120478%_ (##cdr _%e120455120473%_))) + (if (gx#stx-pair? _%tl120457120478%_) + (let ((_%e120458120481%_ + (gx#syntax-e _%tl120457120478%_))) + (let ((_%hd120459120484%_ + (##car _%e120458120481%_)) + (_%tl120460120486%_ + (##cdr _%e120458120481%_))) + (let ((_%hd120489%_ _%hd120459120484%_)) + (if (gx#stx-pair? _%tl120460120486%_) + (let ((_%e120461120491%_ (gx#syntax-e - _%tl121224121250%_))) - (let ((_%hd121226121258%_ - (##car _%e121225121255%_)) - (_%tl121227121260%_ - (##cdr _%e121225121255%_))) - (let ((_%expr121263%_ - _%hd121226121258%_)) + _%tl120460120486%_))) + (let ((_%hd120462120494%_ + (##car _%e120461120491%_)) + (_%tl120463120496%_ + (##cdr _%e120461120491%_))) + (let ((_%expr120499%_ + _%hd120462120494%_)) (if (gx#stx-null? - _%tl121227121260%_) + _%tl120463120496%_) (if (gx#core-bind-values? - _%hd121253%_) + _%hd120489%_) (begin (gx#core-bind-values!__0 - _%hd121253%_) + _%hd120489%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd121253%_) - (cons (gx#core-expand-expression _%expr121263%_) + _%hd120489%_) + (cons (gx#core-expand-expression _%expr120499%_) '()))) - (gx#stx-source _%stx121215%_))) - (_%E121218121233%_)) + (gx#stx-source _%stx120451%_))) + (_%E120454120469%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121218121233%_))))) - (_%E121218121233%_))))) - (_%E121218121233%_)))) - (_%E121218121233%_))))) - (_%E121217121265%_)))) + (_%E120454120469%_))))) + (_%E120454120469%_))))) + (_%E120454120469%_)))) + (_%E120454120469%_))))) + (_%E120453120501%_)))) (define gx#core-expand-define-runtime% - (lambda (_%stx121159%_) - (let* ((_%e121160121173%_ _%stx121159%_) - (_%E121162121177%_ + (lambda (_%stx120395%_) + (let* ((_%e120396120409%_ _%stx120395%_) + (_%E120398120413%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121160121173%_))) - (_%E121161121211%_ + _%e120396120409%_))) + (_%E120397120447%_ (lambda () - (if (gx#stx-pair? _%e121160121173%_) - (let ((_%e121163121181%_ - (gx#syntax-e _%e121160121173%_))) - (let ((_%hd121164121184%_ (##car _%e121163121181%_)) - (_%tl121165121186%_ (##cdr _%e121163121181%_))) - (if (gx#stx-pair? _%tl121165121186%_) - (let ((_%e121166121189%_ - (gx#syntax-e _%tl121165121186%_))) - (let ((_%hd121167121192%_ - (##car _%e121166121189%_)) - (_%tl121168121194%_ - (##cdr _%e121166121189%_))) - (let ((_%id121197%_ _%hd121167121192%_)) - (if (gx#stx-pair? _%tl121168121194%_) - (let ((_%e121169121199%_ + (if (gx#stx-pair? _%e120396120409%_) + (let ((_%e120399120417%_ + (gx#syntax-e _%e120396120409%_))) + (let ((_%hd120400120420%_ (##car _%e120399120417%_)) + (_%tl120401120422%_ (##cdr _%e120399120417%_))) + (if (gx#stx-pair? _%tl120401120422%_) + (let ((_%e120402120425%_ + (gx#syntax-e _%tl120401120422%_))) + (let ((_%hd120403120428%_ + (##car _%e120402120425%_)) + (_%tl120404120430%_ + (##cdr _%e120402120425%_))) + (let ((_%id120433%_ _%hd120403120428%_)) + (if (gx#stx-pair? _%tl120404120430%_) + (let ((_%e120405120435%_ (gx#syntax-e - _%tl121168121194%_))) - (let ((_%hd121170121202%_ - (##car _%e121169121199%_)) - (_%tl121171121204%_ - (##cdr _%e121169121199%_))) - (let ((_%binding-id121207%_ - _%hd121170121202%_)) + _%tl120404120430%_))) + (let ((_%hd120406120438%_ + (##car _%e120405120435%_)) + (_%tl120407120440%_ + (##cdr _%e120405120435%_))) + (let ((_%binding-id120443%_ + _%hd120406120438%_)) (if (gx#stx-null? - _%tl121171121204%_) + _%tl120407120440%_) (if (and (gx#identifier? - _%id121197%_) + _%id120433%_) (gx#identifier? - _%binding-id121207%_)) - (let ((_%eid121209%_ + _%binding-id120443%_)) + (let ((_%eid120445%_ (gx#stx-e - _%binding-id121207%_))) + _%binding-id120443%_))) (gx#core-bind-runtime-reference!__0 - _%id121197%_ - _%eid121209%_) + _%id120433%_ + _%eid120445%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id121197%_) - (cons _%eid121209%_ '()))))) - (_%E121162121177%_)) + _%id120433%_) + (cons _%eid120445%_ '()))))) + (_%E120398120413%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121162121177%_))))) - (_%E121162121177%_))))) - (_%E121162121177%_)))) - (_%E121162121177%_))))) - (_%E121161121211%_)))) + (_%E120398120413%_))))) + (_%E120398120413%_))))) + (_%E120398120413%_)))) + (_%E120398120413%_))))) + (_%E120397120447%_)))) (define gx#core-expand-define-syntax% - (lambda (_%stx121102%_) - (let* ((_%e121103121116%_ _%stx121102%_) - (_%E121105121120%_ + (lambda (_%stx120338%_) + (let* ((_%e120339120352%_ _%stx120338%_) + (_%E120341120356%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121103121116%_))) - (_%E121104121155%_ + _%e120339120352%_))) + (_%E120340120391%_ (lambda () - (if (gx#stx-pair? _%e121103121116%_) - (let ((_%e121106121124%_ - (gx#syntax-e _%e121103121116%_))) - (let ((_%hd121107121127%_ (##car _%e121106121124%_)) - (_%tl121108121129%_ (##cdr _%e121106121124%_))) - (if (gx#stx-pair? _%tl121108121129%_) - (let ((_%e121109121132%_ - (gx#syntax-e _%tl121108121129%_))) - (let ((_%hd121110121135%_ - (##car _%e121109121132%_)) - (_%tl121111121137%_ - (##cdr _%e121109121132%_))) - (let ((_%id121140%_ _%hd121110121135%_)) - (if (gx#stx-pair? _%tl121111121137%_) - (let ((_%e121112121142%_ + (if (gx#stx-pair? _%e120339120352%_) + (let ((_%e120342120360%_ + (gx#syntax-e _%e120339120352%_))) + (let ((_%hd120343120363%_ (##car _%e120342120360%_)) + (_%tl120344120365%_ (##cdr _%e120342120360%_))) + (if (gx#stx-pair? _%tl120344120365%_) + (let ((_%e120345120368%_ + (gx#syntax-e _%tl120344120365%_))) + (let ((_%hd120346120371%_ + (##car _%e120345120368%_)) + (_%tl120347120373%_ + (##cdr _%e120345120368%_))) + (let ((_%id120376%_ _%hd120346120371%_)) + (if (gx#stx-pair? _%tl120347120373%_) + (let ((_%e120348120378%_ (gx#syntax-e - _%tl121111121137%_))) - (let ((_%hd121113121145%_ - (##car _%e121112121142%_)) - (_%tl121114121147%_ - (##cdr _%e121112121142%_))) - (let ((_%expr121150%_ - _%hd121113121145%_)) + _%tl120347120373%_))) + (let ((_%hd120349120381%_ + (##car _%e120348120378%_)) + (_%tl120350120383%_ + (##cdr _%e120348120378%_))) + (let ((_%expr120386%_ + _%hd120349120381%_)) (if (gx#stx-null? - _%tl121114121147%_) + _%tl120350120383%_) (if (gx#identifier? - _%id121140%_) - (let ((_g122061_ + _%id120376%_) + (let ((_g121297_ (gx#core-expand-expression+1 - _%expr121150%_))) + _%expr120386%_))) (begin - (let ((_g122062_ + (let ((_g121298_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g122061_) - (##vector-length _g122061_) + (if (##values? _g121297_) + (##vector-length _g121297_) 1))) - (if (not (##fx= _g122062_ 2)) - (error "Context expects 2 values" _g122062_))) - (let ((_%e-stx121152%_ (##vector-ref _g122061_ 0)) - (_%e121153%_ (##vector-ref _g122061_ 1))) + (if (not (##fx= _g121298_ 2)) + (error "Context expects 2 values" _g121298_))) + (let ((_%e-stx120388%_ (##vector-ref _g121297_ 0)) + (_%e120389%_ (##vector-ref _g121297_ 1))) (begin - (gx#core-bind-syntax!__0 _%id121140%_ _%e121153%_) + (gx#core-bind-syntax!__0 _%id120376%_ _%e120389%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _%id121140%_) - (cons _%e-stx121152%_ '()))) - (gx#stx-source _%stx121102%_)))))) - (_%E121105121120%_)) + (cons (gx#core-quote-syntax__0 _%id120376%_) + (cons _%e-stx120388%_ '()))) + (gx#stx-source _%stx120338%_)))))) + (_%E120341120356%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121105121120%_))))) - (_%E121105121120%_))))) - (_%E121105121120%_)))) - (_%E121105121120%_))))) - (_%E121104121155%_)))) + (_%E120341120356%_))))) + (_%E120341120356%_))))) + (_%E120341120356%_)))) + (_%E120341120356%_))))) + (_%E120340120391%_)))) (define gx#core-expand-define-alias% - (lambda (_%stx121046%_) - (let* ((_%e121047121060%_ _%stx121046%_) - (_%E121049121064%_ + (lambda (_%stx120282%_) + (let* ((_%e120283120296%_ _%stx120282%_) + (_%E120285120300%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121047121060%_))) - (_%E121048121098%_ + _%e120283120296%_))) + (_%E120284120334%_ (lambda () - (if (gx#stx-pair? _%e121047121060%_) - (let ((_%e121050121068%_ - (gx#syntax-e _%e121047121060%_))) - (let ((_%hd121051121071%_ (##car _%e121050121068%_)) - (_%tl121052121073%_ (##cdr _%e121050121068%_))) - (if (gx#stx-pair? _%tl121052121073%_) - (let ((_%e121053121076%_ - (gx#syntax-e _%tl121052121073%_))) - (let ((_%hd121054121079%_ - (##car _%e121053121076%_)) - (_%tl121055121081%_ - (##cdr _%e121053121076%_))) - (let ((_%id121084%_ _%hd121054121079%_)) - (if (gx#stx-pair? _%tl121055121081%_) - (let ((_%e121056121086%_ + (if (gx#stx-pair? _%e120283120296%_) + (let ((_%e120286120304%_ + (gx#syntax-e _%e120283120296%_))) + (let ((_%hd120287120307%_ (##car _%e120286120304%_)) + (_%tl120288120309%_ (##cdr _%e120286120304%_))) + (if (gx#stx-pair? _%tl120288120309%_) + (let ((_%e120289120312%_ + (gx#syntax-e _%tl120288120309%_))) + (let ((_%hd120290120315%_ + (##car _%e120289120312%_)) + (_%tl120291120317%_ + (##cdr _%e120289120312%_))) + (let ((_%id120320%_ _%hd120290120315%_)) + (if (gx#stx-pair? _%tl120291120317%_) + (let ((_%e120292120322%_ (gx#syntax-e - _%tl121055121081%_))) - (let ((_%hd121057121089%_ - (##car _%e121056121086%_)) - (_%tl121058121091%_ - (##cdr _%e121056121086%_))) - (let ((_%alias-id121094%_ - _%hd121057121089%_)) + _%tl120291120317%_))) + (let ((_%hd120293120325%_ + (##car _%e120292120322%_)) + (_%tl120294120327%_ + (##cdr _%e120292120322%_))) + (let ((_%alias-id120330%_ + _%hd120293120325%_)) (if (gx#stx-null? - _%tl121058121091%_) + _%tl120294120327%_) (if (and (gx#identifier? - _%id121084%_) + _%id120320%_) (gx#identifier? - _%alias-id121094%_)) - (let ((_%alias-id121096%_ + _%alias-id120330%_)) + (let ((_%alias-id120332%_ (gx#core-quote-syntax__0 - _%alias-id121094%_))) + _%alias-id120330%_))) (gx#core-bind-alias!__0 - _%id121084%_ - _%alias-id121096%_) + _%id120320%_ + _%alias-id120332%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id121084%_) - (cons _%alias-id121096%_ '()))))) - (_%E121049121064%_)) + _%id120320%_) + (cons _%alias-id120332%_ '()))))) + (_%E120285120300%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121049121064%_))))) - (_%E121049121064%_))))) - (_%E121049121064%_)))) - (_%E121049121064%_))))) - (_%E121048121098%_)))) + (_%E120285120300%_))))) + (_%E120285120300%_))))) + (_%E120285120300%_)))) + (_%E120285120300%_))))) + (_%E120284120334%_)))) (define gx#core-expand-lambda%__% - (lambda (_%stx120989%_ _%wrap?120990%_) - (let* ((_%e120991121001%_ _%stx120989%_) - (_%E120993121005%_ + (lambda (_%stx120225%_ _%wrap?120226%_) + (let* ((_%e120227120237%_ _%stx120225%_) + (_%E120229120241%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120991121001%_))) - (_%E120992121032%_ + _%e120227120237%_))) + (_%E120228120268%_ (lambda () - (if (gx#stx-pair? _%e120991121001%_) - (let ((_%e120994121009%_ - (gx#syntax-e _%e120991121001%_))) - (let ((_%hd120995121012%_ (##car _%e120994121009%_)) - (_%tl120996121014%_ (##cdr _%e120994121009%_))) - (if (gx#stx-pair? _%tl120996121014%_) - (let ((_%e120997121017%_ - (gx#syntax-e _%tl120996121014%_))) - (let ((_%hd120998121020%_ - (##car _%e120997121017%_)) - (_%tl120999121022%_ - (##cdr _%e120997121017%_))) - (let* ((_%hd121025%_ _%hd120998121020%_) - (_%body121027%_ _%tl120999121022%_)) - (if (gx#core-bind-values? _%hd121025%_) + (if (gx#stx-pair? _%e120227120237%_) + (let ((_%e120230120245%_ + (gx#syntax-e _%e120227120237%_))) + (let ((_%hd120231120248%_ (##car _%e120230120245%_)) + (_%tl120232120250%_ (##cdr _%e120230120245%_))) + (if (gx#stx-pair? _%tl120232120250%_) + (let ((_%e120233120253%_ + (gx#syntax-e _%tl120232120250%_))) + (let ((_%hd120234120256%_ + (##car _%e120233120253%_)) + (_%tl120235120258%_ + (##cdr _%e120233120253%_))) + (let* ((_%hd120261%_ _%hd120234120256%_) + (_%body120263%_ _%tl120235120258%_)) + (if (gx#core-bind-values? _%hd120261%_) (__call-with-parameters (lambda () (gx#core-bind-values!__0 - _%hd121025%_) - (let ((_%body121030%_ + _%hd120261%_) + (let ((_%body120266%_ (cons (gx#core-quote-bind-values - _%hd121025%_) + _%hd120261%_) (cons (gx#core-expand-local-block - _%stx120989%_ - _%body121027%_) + _%stx120225%_ + _%body120263%_) '())))) - (if _%wrap?120990%_ + (if _%wrap?120226%_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _%body121030%_) + _%body120266%_) (gx#stx-source - _%stx120989%_)) - _%body121030%_))) + _%stx120225%_)) + _%body120266%_))) gx#current-expander-context - (let ((__obj122054 + (let ((__obj121290 (##structure gx#local-context::t '#f @@ -1184,123 +1184,117 @@ '#f '#f))) (gx#local-context:::init! - __obj122054) - __obj122054)) - (_%E120993121005%_))))) - (_%E120993121005%_)))) - (_%E120993121005%_))))) - (_%E120992121032%_)))) + __obj121290) + __obj121290)) + (_%E120229120241%_))))) + (_%E120229120241%_)))) + (_%E120229120241%_))))) + (_%E120228120268%_)))) (define gx#core-expand-lambda%__0 - (lambda (_%stx121039%_) - (let ((_%wrap?121041%_ '#t)) - (gx#core-expand-lambda%__% _%stx121039%_ _%wrap?121041%_)))) + (lambda (_%stx120275%_) + (let ((_%wrap?120277%_ '#t)) + (gx#core-expand-lambda%__% _%stx120275%_ _%wrap?120277%_)))) (define gx#core-expand-lambda% - (lambda _g122064_ - (let ((_g122063_ (##length _g122064_))) - (cond ((##fx= _g122063_ 1) - (apply (lambda (_%stx121039%_) - (gx#core-expand-lambda%__0 _%stx121039%_)) - _g122064_)) - ((##fx= _g122063_ 2) - (apply (lambda (_%stx121043%_ _%wrap?121044%_) - (gx#core-expand-lambda%__% - _%stx121043%_ - _%wrap?121044%_)) - _g122064_)) + (lambda _g121300_ + (let ((_g121299_ (##length _g121300_))) + (cond ((##fx= _g121299_ 1) + (apply gx#core-expand-lambda%__0 _g121300_)) + ((##fx= _g121299_ 2) + (apply gx#core-expand-lambda%__% _g121300_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g122064_)))))) + _g121300_)))))) (define gx#core-expand-case-lambda% - (lambda (_%stx120953%_) - (let* ((_%e120954120961%_ _%stx120953%_) - (_%E120956120965%_ + (lambda (_%stx120189%_) + (let* ((_%e120190120197%_ _%stx120189%_) + (_%E120192120201%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120954120961%_))) - (_%E120955120984%_ + _%e120190120197%_))) + (_%E120191120220%_ (lambda () - (if (gx#stx-pair? _%e120954120961%_) - (let ((_%e120957120969%_ - (gx#syntax-e _%e120954120961%_))) - (let ((_%hd120958120972%_ (##car _%e120957120969%_)) - (_%tl120959120974%_ (##cdr _%e120957120969%_))) - (let ((_%clauses120977%_ _%tl120959120974%_)) - (if (gx#stx-list? _%clauses120977%_) + (if (gx#stx-pair? _%e120190120197%_) + (let ((_%e120193120205%_ + (gx#syntax-e _%e120190120197%_))) + (let ((_%hd120194120208%_ (##car _%e120193120205%_)) + (_%tl120195120210%_ (##cdr _%e120193120205%_))) + (let ((_%clauses120213%_ _%tl120195120210%_)) + (if (gx#stx-list? _%clauses120213%_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_%clause120979%_) + (lambda (_%clause120215%_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _%clause120979%_) - (let ((_%$e120981%_ + _%clause120215%_) + (let ((_%$e120217%_ (gx#stx-source - _%clause120979%_))) - (if _%$e120981%_ - _%$e120981%_ - (gx#stx-source _%stx120953%_)))) + _%clause120215%_))) + (if _%$e120217%_ + _%$e120217%_ + (gx#stx-source _%stx120189%_)))) '#f)) - _%clauses120977%_)) - (gx#stx-source _%stx120953%_)) - (_%E120956120965%_))))) - (_%E120956120965%_))))) - (_%E120955120984%_)))) + _%clauses120213%_)) + (gx#stx-source _%stx120189%_)) + (_%E120192120201%_))))) + (_%E120192120201%_))))) + (_%E120191120220%_)))) (define gx#core-expand-let-values% - (lambda (_%stx120907%_) - (let* ((_%e120908120918%_ _%stx120907%_) - (_%E120910120922%_ + (lambda (_%stx120143%_) + (let* ((_%e120144120154%_ _%stx120143%_) + (_%E120146120158%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120908120918%_))) - (_%E120909120949%_ + _%e120144120154%_))) + (_%E120145120185%_ (lambda () - (if (gx#stx-pair? _%e120908120918%_) - (let ((_%e120911120926%_ - (gx#syntax-e _%e120908120918%_))) - (let ((_%hd120912120929%_ (##car _%e120911120926%_)) - (_%tl120913120931%_ (##cdr _%e120911120926%_))) - (if (gx#stx-pair? _%tl120913120931%_) - (let ((_%e120914120934%_ - (gx#syntax-e _%tl120913120931%_))) - (let ((_%hd120915120937%_ - (##car _%e120914120934%_)) - (_%tl120916120939%_ - (##cdr _%e120914120934%_))) - (let* ((_%hd120942%_ _%hd120915120937%_) - (_%body120944%_ _%tl120916120939%_)) - (if (gx#core-expand-let-bind? _%hd120942%_) - (let ((_%expressions120946%_ + (if (gx#stx-pair? _%e120144120154%_) + (let ((_%e120147120162%_ + (gx#syntax-e _%e120144120154%_))) + (let ((_%hd120148120165%_ (##car _%e120147120162%_)) + (_%tl120149120167%_ (##cdr _%e120147120162%_))) + (if (gx#stx-pair? _%tl120149120167%_) + (let ((_%e120150120170%_ + (gx#syntax-e _%tl120149120167%_))) + (let ((_%hd120151120173%_ + (##car _%e120150120170%_)) + (_%tl120152120175%_ + (##cdr _%e120150120170%_))) + (let* ((_%hd120178%_ _%hd120151120173%_) + (_%body120180%_ _%tl120152120175%_)) + (if (gx#core-expand-let-bind? _%hd120178%_) + (let ((_%expressions120182%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd120942%_))) + _%hd120178%_))) (__call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd120942%_) + _%hd120178%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd120942%_ - _%expressions120946%_) + _%hd120178%_ + _%expressions120182%_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%stx120907%_ - _%body120944%_) + _%stx120143%_ + _%body120180%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx120907%_))) + (gx#stx-source _%stx120143%_))) gx#current-expander-context - (let ((__obj122055 + (let ((__obj121291 (##structure gx#local-context::t '#f @@ -1309,59 +1303,59 @@ '#f '#f))) (gx#local-context:::init! - __obj122055) - __obj122055))) - (_%E120910120922%_))))) - (_%E120910120922%_)))) - (_%E120910120922%_))))) - (_%E120909120949%_)))) + __obj121291) + __obj121291))) + (_%E120146120158%_))))) + (_%E120146120158%_)))) + (_%E120146120158%_))))) + (_%E120145120185%_)))) (define gx#core-expand-letrec-values%__% - (lambda (_%stx120852%_ _%form120853%_) - (let* ((_%e120854120864%_ _%stx120852%_) - (_%E120856120868%_ + (lambda (_%stx120088%_ _%form120089%_) + (let* ((_%e120090120100%_ _%stx120088%_) + (_%E120092120104%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120854120864%_))) - (_%E120855120893%_ + _%e120090120100%_))) + (_%E120091120129%_ (lambda () - (if (gx#stx-pair? _%e120854120864%_) - (let ((_%e120857120872%_ - (gx#syntax-e _%e120854120864%_))) - (let ((_%hd120858120875%_ (##car _%e120857120872%_)) - (_%tl120859120877%_ (##cdr _%e120857120872%_))) - (if (gx#stx-pair? _%tl120859120877%_) - (let ((_%e120860120880%_ - (gx#syntax-e _%tl120859120877%_))) - (let ((_%hd120861120883%_ - (##car _%e120860120880%_)) - (_%tl120862120885%_ - (##cdr _%e120860120880%_))) - (let* ((_%hd120888%_ _%hd120861120883%_) - (_%body120890%_ _%tl120862120885%_)) - (if (gx#core-expand-let-bind? _%hd120888%_) + (if (gx#stx-pair? _%e120090120100%_) + (let ((_%e120093120108%_ + (gx#syntax-e _%e120090120100%_))) + (let ((_%hd120094120111%_ (##car _%e120093120108%_)) + (_%tl120095120113%_ (##cdr _%e120093120108%_))) + (if (gx#stx-pair? _%tl120095120113%_) + (let ((_%e120096120116%_ + (gx#syntax-e _%tl120095120113%_))) + (let ((_%hd120097120119%_ + (##car _%e120096120116%_)) + (_%tl120098120121%_ + (##cdr _%e120096120116%_))) + (let* ((_%hd120124%_ _%hd120097120119%_) + (_%body120126%_ _%tl120098120121%_)) + (if (gx#core-expand-let-bind? _%hd120124%_) (__call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd120888%_) + _%hd120124%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _%form120853%_) + _%form120089%_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd120888%_ + _%hd120124%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd120888%_)) + _%hd120124%_)) (cons (gx#core-expand-local-block - _%stx120852%_ - _%body120890%_) + _%stx120088%_ + _%body120126%_) '()))) - (gx#stx-source _%stx120852%_))) + (gx#stx-source _%stx120088%_))) gx#current-expander-context - (let ((__obj122056 + (let ((__obj121292 (##structure gx#local-context::t '#f @@ -1370,215 +1364,209 @@ '#f '#f))) (gx#local-context:::init! - __obj122056) - __obj122056)) - (_%E120856120868%_))))) - (_%E120856120868%_)))) - (_%E120856120868%_))))) - (_%E120855120893%_)))) + __obj121292) + __obj121292)) + (_%E120092120104%_))))) + (_%E120092120104%_)))) + (_%E120092120104%_))))) + (_%E120091120129%_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_%stx120900%_) - (let ((_%form120902%_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _%stx120900%_ _%form120902%_)))) + (lambda (_%stx120136%_) + (let ((_%form120138%_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _%stx120136%_ _%form120138%_)))) (define gx#core-expand-letrec-values% - (lambda _g122066_ - (let ((_g122065_ (##length _g122066_))) - (cond ((##fx= _g122065_ 1) - (apply (lambda (_%stx120900%_) - (gx#core-expand-letrec-values%__0 _%stx120900%_)) - _g122066_)) - ((##fx= _g122065_ 2) - (apply (lambda (_%stx120904%_ _%form120905%_) - (gx#core-expand-letrec-values%__% - _%stx120904%_ - _%form120905%_)) - _g122066_)) + (lambda _g121302_ + (let ((_g121301_ (##length _g121302_))) + (cond ((##fx= _g121301_ 1) + (apply gx#core-expand-letrec-values%__0 _g121302_)) + ((##fx= _g121301_ 2) + (apply gx#core-expand-letrec-values%__% _g121302_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g122066_)))))) + _g121302_)))))) (define gx#core-expand-letrec*-values% - (lambda (_%stx120849%_) - (gx#core-expand-letrec-values%__% _%stx120849%_ '%#letrec*-values))) + (lambda (_%stx120085%_) + (gx#core-expand-letrec-values%__% _%stx120085%_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_%stx120806%_) - (if (gx#stx-list? _%stx120806%_) + (lambda (_%stx120042%_) + (if (gx#stx-list? _%stx120042%_) (gx#stx-andmap - (lambda (_%bind120808%_) - (let* ((_%e120809120819%_ _%bind120808%_) - (_%E120811120823%_ (lambda () '#f)) - (_%E120810120845%_ + (lambda (_%bind120044%_) + (let* ((_%e120045120055%_ _%bind120044%_) + (_%E120047120059%_ (lambda () '#f)) + (_%E120046120081%_ (lambda () - (if (gx#stx-pair? _%e120809120819%_) - (let ((_%e120812120827%_ - (gx#syntax-e _%e120809120819%_))) - (let ((_%hd120813120830%_ - (##car _%e120812120827%_)) - (_%tl120814120832%_ - (##cdr _%e120812120827%_))) - (let ((_%hd120835%_ _%hd120813120830%_)) - (if (gx#stx-pair? _%tl120814120832%_) - (let ((_%e120815120837%_ + (if (gx#stx-pair? _%e120045120055%_) + (let ((_%e120048120063%_ + (gx#syntax-e _%e120045120055%_))) + (let ((_%hd120049120066%_ + (##car _%e120048120063%_)) + (_%tl120050120068%_ + (##cdr _%e120048120063%_))) + (let ((_%hd120071%_ _%hd120049120066%_)) + (if (gx#stx-pair? _%tl120050120068%_) + (let ((_%e120051120073%_ (gx#syntax-e - _%tl120814120832%_))) - (let ((_%hd120816120840%_ - (##car _%e120815120837%_)) - (_%tl120817120842%_ - (##cdr _%e120815120837%_))) + _%tl120050120068%_))) + (let ((_%hd120052120076%_ + (##car _%e120051120073%_)) + (_%tl120053120078%_ + (##cdr _%e120051120073%_))) (if (gx#stx-null? - _%tl120817120842%_) + _%tl120053120078%_) (if '#t (gx#core-bind-values? - _%hd120835%_) - (_%E120811120823%_)) - (_%E120811120823%_)))) - (_%E120811120823%_))))) - (_%E120811120823%_))))) - (_%E120810120845%_))) - _%stx120806%_) + _%hd120071%_) + (_%E120047120059%_)) + (_%E120047120059%_)))) + (_%E120047120059%_))))) + (_%E120047120059%_))))) + (_%E120046120081%_))) + _%stx120042%_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_%bind120765%_) - (let* ((_%e120766120776%_ _%bind120765%_) - (_%E120768120780%_ + (lambda (_%bind120001%_) + (let* ((_%e120002120012%_ _%bind120001%_) + (_%E120004120016%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120766120776%_))) - (_%E120767120802%_ + _%e120002120012%_))) + (_%E120003120038%_ (lambda () - (if (gx#stx-pair? _%e120766120776%_) - (let ((_%e120769120784%_ - (gx#syntax-e _%e120766120776%_))) - (let ((_%hd120770120787%_ (##car _%e120769120784%_)) - (_%tl120771120789%_ (##cdr _%e120769120784%_))) - (if (gx#stx-pair? _%tl120771120789%_) - (let ((_%e120772120792%_ - (gx#syntax-e _%tl120771120789%_))) - (let ((_%hd120773120795%_ - (##car _%e120772120792%_)) - (_%tl120774120797%_ - (##cdr _%e120772120792%_))) - (let ((_%expr120800%_ _%hd120773120795%_)) - (if (gx#stx-null? _%tl120774120797%_) + (if (gx#stx-pair? _%e120002120012%_) + (let ((_%e120005120020%_ + (gx#syntax-e _%e120002120012%_))) + (let ((_%hd120006120023%_ (##car _%e120005120020%_)) + (_%tl120007120025%_ (##cdr _%e120005120020%_))) + (if (gx#stx-pair? _%tl120007120025%_) + (let ((_%e120008120028%_ + (gx#syntax-e _%tl120007120025%_))) + (let ((_%hd120009120031%_ + (##car _%e120008120028%_)) + (_%tl120010120033%_ + (##cdr _%e120008120028%_))) + (let ((_%expr120036%_ _%hd120009120031%_)) + (if (gx#stx-null? _%tl120010120033%_) (if '#t (gx#core-expand-expression - _%expr120800%_) - (_%E120768120780%_)) - (_%E120768120780%_))))) - (_%E120768120780%_)))) - (_%E120768120780%_))))) - (_%E120767120802%_)))) + _%expr120036%_) + (_%E120004120016%_)) + (_%E120004120016%_))))) + (_%E120004120016%_)))) + (_%E120004120016%_))))) + (_%E120003120038%_)))) (define gx#core-expand-let-bind-values! - (lambda (_%bind120724%_) - (let* ((_%e120725120735%_ _%bind120724%_) - (_%E120727120739%_ + (lambda (_%bind119960%_) + (let* ((_%e119961119971%_ _%bind119960%_) + (_%E119963119975%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120725120735%_))) - (_%E120726120761%_ + _%e119961119971%_))) + (_%E119962119997%_ (lambda () - (if (gx#stx-pair? _%e120725120735%_) - (let ((_%e120728120743%_ - (gx#syntax-e _%e120725120735%_))) - (let ((_%hd120729120746%_ (##car _%e120728120743%_)) - (_%tl120730120748%_ (##cdr _%e120728120743%_))) - (let ((_%hd120751%_ _%hd120729120746%_)) - (if (gx#stx-pair? _%tl120730120748%_) - (let ((_%e120731120753%_ - (gx#syntax-e _%tl120730120748%_))) - (let ((_%hd120732120756%_ - (##car _%e120731120753%_)) - (_%tl120733120758%_ - (##cdr _%e120731120753%_))) - (if (gx#stx-null? _%tl120733120758%_) + (if (gx#stx-pair? _%e119961119971%_) + (let ((_%e119964119979%_ + (gx#syntax-e _%e119961119971%_))) + (let ((_%hd119965119982%_ (##car _%e119964119979%_)) + (_%tl119966119984%_ (##cdr _%e119964119979%_))) + (let ((_%hd119987%_ _%hd119965119982%_)) + (if (gx#stx-pair? _%tl119966119984%_) + (let ((_%e119967119989%_ + (gx#syntax-e _%tl119966119984%_))) + (let ((_%hd119968119992%_ + (##car _%e119967119989%_)) + (_%tl119969119994%_ + (##cdr _%e119967119989%_))) + (if (gx#stx-null? _%tl119969119994%_) (if '#t (gx#core-bind-values!__0 - _%hd120751%_) - (_%E120727120739%_)) - (_%E120727120739%_)))) - (_%E120727120739%_))))) - (_%E120727120739%_))))) - (_%E120726120761%_)))) + _%hd119987%_) + (_%E119963119975%_)) + (_%E119963119975%_)))) + (_%E119963119975%_))))) + (_%E119963119975%_))))) + (_%E119962119997%_)))) (define gx#core-expand-let-bind-quote - (lambda (_%bind120682%_ _%expr120683%_) - (let* ((_%e120684120694%_ _%bind120682%_) - (_%E120686120698%_ + (lambda (_%bind119918%_ _%expr119919%_) + (let* ((_%e119920119930%_ _%bind119918%_) + (_%E119922119934%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120684120694%_))) - (_%E120685120720%_ + _%e119920119930%_))) + (_%E119921119956%_ (lambda () - (if (gx#stx-pair? _%e120684120694%_) - (let ((_%e120687120702%_ - (gx#syntax-e _%e120684120694%_))) - (let ((_%hd120688120705%_ (##car _%e120687120702%_)) - (_%tl120689120707%_ (##cdr _%e120687120702%_))) - (let ((_%hd120710%_ _%hd120688120705%_)) - (if (gx#stx-pair? _%tl120689120707%_) - (let ((_%e120690120712%_ - (gx#syntax-e _%tl120689120707%_))) - (let ((_%hd120691120715%_ - (##car _%e120690120712%_)) - (_%tl120692120717%_ - (##cdr _%e120690120712%_))) - (if (gx#stx-null? _%tl120692120717%_) + (if (gx#stx-pair? _%e119920119930%_) + (let ((_%e119923119938%_ + (gx#syntax-e _%e119920119930%_))) + (let ((_%hd119924119941%_ (##car _%e119923119938%_)) + (_%tl119925119943%_ (##cdr _%e119923119938%_))) + (let ((_%hd119946%_ _%hd119924119941%_)) + (if (gx#stx-pair? _%tl119925119943%_) + (let ((_%e119926119948%_ + (gx#syntax-e _%tl119925119943%_))) + (let ((_%hd119927119951%_ + (##car _%e119926119948%_)) + (_%tl119928119953%_ + (##cdr _%e119926119948%_))) + (if (gx#stx-null? _%tl119928119953%_) (if '#t (cons (gx#core-quote-bind-values - _%hd120710%_) - (cons _%expr120683%_ '())) - (_%E120686120698%_)) - (_%E120686120698%_)))) - (_%E120686120698%_))))) - (_%E120686120698%_))))) - (_%E120685120720%_)))) + _%hd119946%_) + (cons _%expr119919%_ '())) + (_%E119922119934%_)) + (_%E119922119934%_)))) + (_%E119922119934%_))))) + (_%E119922119934%_))))) + (_%E119921119956%_)))) (define gx#core-expand-let-syntax% - (lambda (_%stx120636%_) - (let* ((_%e120637120647%_ _%stx120636%_) - (_%E120639120651%_ + (lambda (_%stx119872%_) + (let* ((_%e119873119883%_ _%stx119872%_) + (_%E119875119887%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120637120647%_))) - (_%E120638120678%_ + _%e119873119883%_))) + (_%E119874119914%_ (lambda () - (if (gx#stx-pair? _%e120637120647%_) - (let ((_%e120640120655%_ - (gx#syntax-e _%e120637120647%_))) - (let ((_%hd120641120658%_ (##car _%e120640120655%_)) - (_%tl120642120660%_ (##cdr _%e120640120655%_))) - (if (gx#stx-pair? _%tl120642120660%_) - (let ((_%e120643120663%_ - (gx#syntax-e _%tl120642120660%_))) - (let ((_%hd120644120666%_ - (##car _%e120643120663%_)) - (_%tl120645120668%_ - (##cdr _%e120643120663%_))) - (let* ((_%hd120671%_ _%hd120644120666%_) - (_%body120673%_ _%tl120645120668%_)) + (if (gx#stx-pair? _%e119873119883%_) + (let ((_%e119876119891%_ + (gx#syntax-e _%e119873119883%_))) + (let ((_%hd119877119894%_ (##car _%e119876119891%_)) + (_%tl119878119896%_ (##cdr _%e119876119891%_))) + (if (gx#stx-pair? _%tl119878119896%_) + (let ((_%e119879119899%_ + (gx#syntax-e _%tl119878119896%_))) + (let ((_%hd119880119902%_ + (##car _%e119879119899%_)) + (_%tl119881119904%_ + (##cdr _%e119879119899%_))) + (let* ((_%hd119907%_ _%hd119880119902%_) + (_%body119909%_ _%tl119881119904%_)) (if (gx#core-expand-let-bind-syntax? - _%hd120671%_) - (let ((_%expanders120675%_ + _%hd119907%_) + (let ((_%expanders119911%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd120671%_))) + _%hd119907%_))) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd120671%_ - _%expanders120675%_) + _%hd119907%_ + _%expanders119911%_) (gx#core-expand-local-block - _%stx120636%_ - _%body120673%_)) + _%stx119872%_ + _%body119909%_)) gx#current-expander-context - (let ((__obj122057 + (let ((__obj121293 (##structure gx#local-context::t '#f @@ -1587,63 +1575,63 @@ '#f '#f))) (gx#local-context:::init! - __obj122057) - __obj122057))) - (_%E120639120651%_))))) - (_%E120639120651%_)))) - (_%E120639120651%_))))) - (_%E120638120678%_)))) + __obj121293) + __obj121293))) + (_%E119875119887%_))))) + (_%E119875119887%_)))) + (_%E119875119887%_))))) + (_%E119874119914%_)))) (define gx#core-expand-letrec-syntax% - (lambda (_%stx120585%_) - (let* ((_%e120586120596%_ _%stx120585%_) - (_%E120588120600%_ + (lambda (_%stx119821%_) + (let* ((_%e119822119832%_ _%stx119821%_) + (_%E119824119836%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120586120596%_))) - (_%E120587120632%_ + _%e119822119832%_))) + (_%E119823119868%_ (lambda () - (if (gx#stx-pair? _%e120586120596%_) - (let ((_%e120589120604%_ - (gx#syntax-e _%e120586120596%_))) - (let ((_%hd120590120607%_ (##car _%e120589120604%_)) - (_%tl120591120609%_ (##cdr _%e120589120604%_))) - (if (gx#stx-pair? _%tl120591120609%_) - (let ((_%e120592120612%_ - (gx#syntax-e _%tl120591120609%_))) - (let ((_%hd120593120615%_ - (##car _%e120592120612%_)) - (_%tl120594120617%_ - (##cdr _%e120592120612%_))) - (let* ((_%hd120620%_ _%hd120593120615%_) - (_%body120622%_ _%tl120594120617%_)) + (if (gx#stx-pair? _%e119822119832%_) + (let ((_%e119825119840%_ + (gx#syntax-e _%e119822119832%_))) + (let ((_%hd119826119843%_ (##car _%e119825119840%_)) + (_%tl119827119845%_ (##cdr _%e119825119840%_))) + (if (gx#stx-pair? _%tl119827119845%_) + (let ((_%e119828119848%_ + (gx#syntax-e _%tl119827119845%_))) + (let ((_%hd119829119851%_ + (##car _%e119828119848%_)) + (_%tl119830119853%_ + (##cdr _%e119828119848%_))) + (let* ((_%hd119856%_ _%hd119829119851%_) + (_%body119858%_ _%tl119830119853%_)) (if (gx#core-expand-let-bind-syntax? - _%hd120620%_) + _%hd119856%_) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd120620%_ + _%hd119856%_ (make-list - (gx#stx-length _%hd120620%_) + (gx#stx-length _%hd119856%_) '#!void)) (gx#stx-for-each2 - (lambda (_%g120624120627%_ - _%g120625120629%_) + (lambda (_%g119860119863%_ + _%g119861119865%_) (gx#core-expand-let-bind-syntax!__% - _%g120624120627%_ - _%g120625120629%_ + _%g119860119863%_ + _%g119861119865%_ '#t)) - _%hd120620%_ + _%hd119856%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd120620%_)) + _%hd119856%_)) (gx#core-expand-local-block - _%stx120585%_ - _%body120622%_)) + _%stx119821%_ + _%body119858%_)) gx#current-expander-context - (let ((__obj122058 + (let ((__obj121294 (##structure gx#local-context::t '#f @@ -1652,2008 +1640,1759 @@ '#f '#f))) (gx#local-context:::init! - __obj122058) - __obj122058)) - (_%E120588120600%_))))) - (_%E120588120600%_)))) - (_%E120588120600%_))))) - (_%E120587120632%_)))) + __obj121294) + __obj121294)) + (_%E119824119836%_))))) + (_%E119824119836%_)))) + (_%E119824119836%_))))) + (_%E119823119868%_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_%stx120542%_) - (if (gx#stx-list? _%stx120542%_) + (lambda (_%stx119778%_) + (if (gx#stx-list? _%stx119778%_) (gx#stx-andmap - (lambda (_%bind120544%_) - (let* ((_%e120545120555%_ _%bind120544%_) - (_%E120547120559%_ (lambda () '#f)) - (_%E120546120581%_ + (lambda (_%bind119780%_) + (let* ((_%e119781119791%_ _%bind119780%_) + (_%E119783119795%_ (lambda () '#f)) + (_%E119782119817%_ (lambda () - (if (gx#stx-pair? _%e120545120555%_) - (let ((_%e120548120563%_ - (gx#syntax-e _%e120545120555%_))) - (let ((_%hd120549120566%_ - (##car _%e120548120563%_)) - (_%tl120550120568%_ - (##cdr _%e120548120563%_))) - (let ((_%hd120571%_ _%hd120549120566%_)) - (if (gx#stx-pair? _%tl120550120568%_) - (let ((_%e120551120573%_ + (if (gx#stx-pair? _%e119781119791%_) + (let ((_%e119784119799%_ + (gx#syntax-e _%e119781119791%_))) + (let ((_%hd119785119802%_ + (##car _%e119784119799%_)) + (_%tl119786119804%_ + (##cdr _%e119784119799%_))) + (let ((_%hd119807%_ _%hd119785119802%_)) + (if (gx#stx-pair? _%tl119786119804%_) + (let ((_%e119787119809%_ (gx#syntax-e - _%tl120550120568%_))) - (let ((_%hd120552120576%_ - (##car _%e120551120573%_)) - (_%tl120553120578%_ - (##cdr _%e120551120573%_))) + _%tl119786119804%_))) + (let ((_%hd119788119812%_ + (##car _%e119787119809%_)) + (_%tl119789119814%_ + (##cdr _%e119787119809%_))) (if (gx#stx-null? - _%tl120553120578%_) + _%tl119789119814%_) (if '#t (gx#identifier? - _%hd120571%_) - (_%E120547120559%_)) - (_%E120547120559%_)))) - (_%E120547120559%_))))) - (_%E120547120559%_))))) - (_%E120546120581%_))) - _%stx120542%_) + _%hd119807%_) + (_%E119783119795%_)) + (_%E119783119795%_)))) + (_%E119783119795%_))))) + (_%E119783119795%_))))) + (_%E119782119817%_))) + _%stx119778%_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_%bind120498%_) - (let* ((_%e120499120509%_ _%bind120498%_) - (_%E120501120513%_ + (lambda (_%bind119734%_) + (let* ((_%e119735119745%_ _%bind119734%_) + (_%E119737119749%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120499120509%_))) - (_%E120500120538%_ + _%e119735119745%_))) + (_%E119736119774%_ (lambda () - (if (gx#stx-pair? _%e120499120509%_) - (let ((_%e120502120517%_ - (gx#syntax-e _%e120499120509%_))) - (let ((_%hd120503120520%_ (##car _%e120502120517%_)) - (_%tl120504120522%_ (##cdr _%e120502120517%_))) - (if (gx#stx-pair? _%tl120504120522%_) - (let ((_%e120505120525%_ - (gx#syntax-e _%tl120504120522%_))) - (let ((_%hd120506120528%_ - (##car _%e120505120525%_)) - (_%tl120507120530%_ - (##cdr _%e120505120525%_))) - (let ((_%expr120533%_ _%hd120506120528%_)) - (if (gx#stx-null? _%tl120507120530%_) + (if (gx#stx-pair? _%e119735119745%_) + (let ((_%e119738119753%_ + (gx#syntax-e _%e119735119745%_))) + (let ((_%hd119739119756%_ (##car _%e119738119753%_)) + (_%tl119740119758%_ (##cdr _%e119738119753%_))) + (if (gx#stx-pair? _%tl119740119758%_) + (let ((_%e119741119761%_ + (gx#syntax-e _%tl119740119758%_))) + (let ((_%hd119742119764%_ + (##car _%e119741119761%_)) + (_%tl119743119766%_ + (##cdr _%e119741119761%_))) + (let ((_%expr119769%_ _%hd119742119764%_)) + (if (gx#stx-null? _%tl119743119766%_) (if '#t - (let ((_g122067_ + (let ((_g121303_ (gx#core-expand-expression+1 - _%expr120533%_))) + _%expr119769%_))) (begin - (let ((_g122068_ + (let ((_g121304_ (if (##values? - _g122067_) + _g121303_) (##vector-length - _g122067_) + _g121303_) 1))) - (if (not (##fx= _g122068_ 2)) + (if (not (##fx= _g121304_ 2)) (error "Context expects 2 values" - _g122068_))) - (let ((_%_120535%_ + _g121304_))) + (let ((_%_119771%_ (##vector-ref - _g122067_ + _g121303_ 0)) - (_%e120536%_ + (_%e119772%_ (##vector-ref - _g122067_ + _g121303_ 1))) - _%e120536%_))) - (_%E120501120513%_)) - (_%E120501120513%_))))) - (_%E120501120513%_)))) - (_%E120501120513%_))))) - (_%E120500120538%_)))) + _%e119772%_))) + (_%E119737119749%_)) + (_%E119737119749%_))))) + (_%E119737119749%_)))) + (_%E119737119749%_))))) + (_%E119736119774%_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_%bind120443%_ _%e120444%_ _%rebind?120445%_) - (let* ((_%e120446120456%_ _%bind120443%_) - (_%E120448120460%_ + (lambda (_%bind119679%_ _%e119680%_ _%rebind?119681%_) + (let* ((_%e119682119692%_ _%bind119679%_) + (_%E119684119696%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120446120456%_))) - (_%E120447120482%_ + _%e119682119692%_))) + (_%E119683119718%_ (lambda () - (if (gx#stx-pair? _%e120446120456%_) - (let ((_%e120449120464%_ - (gx#syntax-e _%e120446120456%_))) - (let ((_%hd120450120467%_ (##car _%e120449120464%_)) - (_%tl120451120469%_ (##cdr _%e120449120464%_))) - (let ((_%id120472%_ _%hd120450120467%_)) - (if (gx#stx-pair? _%tl120451120469%_) - (let ((_%e120452120474%_ - (gx#syntax-e _%tl120451120469%_))) - (let ((_%hd120453120477%_ - (##car _%e120452120474%_)) - (_%tl120454120479%_ - (##cdr _%e120452120474%_))) - (if (gx#stx-null? _%tl120454120479%_) + (if (gx#stx-pair? _%e119682119692%_) + (let ((_%e119685119700%_ + (gx#syntax-e _%e119682119692%_))) + (let ((_%hd119686119703%_ (##car _%e119685119700%_)) + (_%tl119687119705%_ (##cdr _%e119685119700%_))) + (let ((_%id119708%_ _%hd119686119703%_)) + (if (gx#stx-pair? _%tl119687119705%_) + (let ((_%e119688119710%_ + (gx#syntax-e _%tl119687119705%_))) + (let ((_%hd119689119713%_ + (##car _%e119688119710%_)) + (_%tl119690119715%_ + (##cdr _%e119688119710%_))) + (if (gx#stx-null? _%tl119690119715%_) (if '#t (gx#core-bind-syntax!__1 - _%id120472%_ - _%e120444%_ - _%rebind?120445%_) - (_%E120448120460%_)) - (_%E120448120460%_)))) - (_%E120448120460%_))))) - (_%E120448120460%_))))) - (_%E120447120482%_)))) + _%id119708%_ + _%e119680%_ + _%rebind?119681%_) + (_%E119684119696%_)) + (_%E119684119696%_)))) + (_%E119684119696%_))))) + (_%E119684119696%_))))) + (_%E119683119718%_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_%bind120489%_ _%e120490%_) - (let ((_%rebind?120492%_ '#f)) + (lambda (_%bind119725%_ _%e119726%_) + (let ((_%rebind?119728%_ '#f)) (gx#core-expand-let-bind-syntax!__% - _%bind120489%_ - _%e120490%_ - _%rebind?120492%_)))) + _%bind119725%_ + _%e119726%_ + _%rebind?119728%_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g122070_ - (let ((_g122069_ (##length _g122070_))) - (cond ((##fx= _g122069_ 2) - (apply (lambda (_%bind120489%_ _%e120490%_) - (gx#core-expand-let-bind-syntax!__0 - _%bind120489%_ - _%e120490%_)) - _g122070_)) - ((##fx= _g122069_ 3) - (apply (lambda (_%bind120494%_ _%e120495%_ _%rebind?120496%_) - (gx#core-expand-let-bind-syntax!__% - _%bind120494%_ - _%e120495%_ - _%rebind?120496%_)) - _g122070_)) + (lambda _g121306_ + (let ((_g121305_ (##length _g121306_))) + (cond ((##fx= _g121305_ 2) + (apply gx#core-expand-let-bind-syntax!__0 _g121306_)) + ((##fx= _g121305_ 3) + (apply gx#core-expand-let-bind-syntax!__% _g121306_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g122070_)))))) + _g121306_)))))) (define gx#core-expand-expression% - (lambda (_%stx120401%_) - (let* ((_%e120402120412%_ _%stx120401%_) - (_%E120404120416%_ + (lambda (_%stx119637%_) + (let* ((_%e119638119648%_ _%stx119637%_) + (_%E119640119652%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120402120412%_))) - (_%E120403120438%_ + _%e119638119648%_))) + (_%E119639119674%_ (lambda () - (if (gx#stx-pair? _%e120402120412%_) - (let ((_%e120405120420%_ - (gx#syntax-e _%e120402120412%_))) - (let ((_%hd120406120423%_ (##car _%e120405120420%_)) - (_%tl120407120425%_ (##cdr _%e120405120420%_))) - (if (gx#stx-pair? _%tl120407120425%_) - (let ((_%e120408120428%_ - (gx#syntax-e _%tl120407120425%_))) - (let ((_%hd120409120431%_ - (##car _%e120408120428%_)) - (_%tl120410120433%_ - (##cdr _%e120408120428%_))) - (let ((_%expr120436%_ _%hd120409120431%_)) - (if (gx#stx-null? _%tl120410120433%_) + (if (gx#stx-pair? _%e119638119648%_) + (let ((_%e119641119656%_ + (gx#syntax-e _%e119638119648%_))) + (let ((_%hd119642119659%_ (##car _%e119641119656%_)) + (_%tl119643119661%_ (##cdr _%e119641119656%_))) + (if (gx#stx-pair? _%tl119643119661%_) + (let ((_%e119644119664%_ + (gx#syntax-e _%tl119643119661%_))) + (let ((_%hd119645119667%_ + (##car _%e119644119664%_)) + (_%tl119646119669%_ + (##cdr _%e119644119664%_))) + (let ((_%expr119672%_ _%hd119645119667%_)) + (if (gx#stx-null? _%tl119646119669%_) (if '#t (gx#core-expand-expression - _%expr120436%_) - (_%E120404120416%_)) - (_%E120404120416%_))))) - (_%E120404120416%_)))) - (_%E120404120416%_))))) - (_%E120403120438%_)))) + _%expr119672%_) + (_%E119640119652%_)) + (_%E119640119652%_))))) + (_%E119640119652%_)))) + (_%E119640119652%_))))) + (_%E119639119674%_)))) (define gx#core-expand-quote% - (lambda (_%stx120360%_) - (let* ((_%e120361120371%_ _%stx120360%_) - (_%E120363120375%_ + (lambda (_%stx119596%_) + (let* ((_%e119597119607%_ _%stx119596%_) + (_%E119599119611%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120361120371%_))) - (_%E120362120397%_ + _%e119597119607%_))) + (_%E119598119633%_ (lambda () - (if (gx#stx-pair? _%e120361120371%_) - (let ((_%e120364120379%_ - (gx#syntax-e _%e120361120371%_))) - (let ((_%hd120365120382%_ (##car _%e120364120379%_)) - (_%tl120366120384%_ (##cdr _%e120364120379%_))) - (if (gx#stx-pair? _%tl120366120384%_) - (let ((_%e120367120387%_ - (gx#syntax-e _%tl120366120384%_))) - (let ((_%hd120368120390%_ - (##car _%e120367120387%_)) - (_%tl120369120392%_ - (##cdr _%e120367120387%_))) - (let ((_%e120395%_ _%hd120368120390%_)) - (if (gx#stx-null? _%tl120369120392%_) + (if (gx#stx-pair? _%e119597119607%_) + (let ((_%e119600119615%_ + (gx#syntax-e _%e119597119607%_))) + (let ((_%hd119601119618%_ (##car _%e119600119615%_)) + (_%tl119602119620%_ (##cdr _%e119600119615%_))) + (if (gx#stx-pair? _%tl119602119620%_) + (let ((_%e119603119623%_ + (gx#syntax-e _%tl119602119620%_))) + (let ((_%hd119604119626%_ + (##car _%e119603119623%_)) + (_%tl119605119628%_ + (##cdr _%e119603119623%_))) + (let ((_%e119631%_ _%hd119604119626%_)) + (if (gx#stx-null? _%tl119605119628%_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _%e120395%_) + _%e119631%_) '())) - (gx#stx-source _%stx120360%_)) - (_%E120363120375%_)) - (_%E120363120375%_))))) - (_%E120363120375%_)))) - (_%E120363120375%_))))) - (_%E120362120397%_)))) + (gx#stx-source _%stx119596%_)) + (_%E119599119611%_)) + (_%E119599119611%_))))) + (_%E119599119611%_)))) + (_%E119599119611%_))))) + (_%E119598119633%_)))) (define gx#core-expand-quote-syntax% - (lambda (_%stx120319%_) - (let* ((_%e120320120330%_ _%stx120319%_) - (_%E120322120334%_ + (lambda (_%stx119555%_) + (let* ((_%e119556119566%_ _%stx119555%_) + (_%E119558119570%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120320120330%_))) - (_%E120321120356%_ + _%e119556119566%_))) + (_%E119557119592%_ (lambda () - (if (gx#stx-pair? _%e120320120330%_) - (let ((_%e120323120338%_ - (gx#syntax-e _%e120320120330%_))) - (let ((_%hd120324120341%_ (##car _%e120323120338%_)) - (_%tl120325120343%_ (##cdr _%e120323120338%_))) - (if (gx#stx-pair? _%tl120325120343%_) - (let ((_%e120326120346%_ - (gx#syntax-e _%tl120325120343%_))) - (let ((_%hd120327120349%_ - (##car _%e120326120346%_)) - (_%tl120328120351%_ - (##cdr _%e120326120346%_))) - (let ((_%e120354%_ _%hd120327120349%_)) - (if (gx#stx-null? _%tl120328120351%_) + (if (gx#stx-pair? _%e119556119566%_) + (let ((_%e119559119574%_ + (gx#syntax-e _%e119556119566%_))) + (let ((_%hd119560119577%_ (##car _%e119559119574%_)) + (_%tl119561119579%_ (##cdr _%e119559119574%_))) + (if (gx#stx-pair? _%tl119561119579%_) + (let ((_%e119562119582%_ + (gx#syntax-e _%tl119561119579%_))) + (let ((_%hd119563119585%_ + (##car _%e119562119582%_)) + (_%tl119564119587%_ + (##cdr _%e119562119582%_))) + (let ((_%e119590%_ _%hd119563119585%_)) + (if (gx#stx-null? _%tl119564119587%_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _%e120354%_) + _%e119590%_) '())) - (gx#stx-source _%stx120319%_)) - (_%E120322120334%_)) - (_%E120322120334%_))))) - (_%E120322120334%_)))) - (_%E120322120334%_))))) - (_%E120321120356%_)))) + (gx#stx-source _%stx119555%_)) + (_%E119558119570%_)) + (_%E119558119570%_))))) + (_%E119558119570%_)))) + (_%E119558119570%_))))) + (_%E119557119592%_)))) (define gx#core-expand-call% - (lambda (_%stx120276%_) - (let* ((_%e120277120287%_ _%stx120276%_) - (_%E120279120291%_ + (lambda (_%stx119512%_) + (let* ((_%e119513119523%_ _%stx119512%_) + (_%E119515119527%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120277120287%_))) - (_%E120278120315%_ + _%e119513119523%_))) + (_%E119514119551%_ (lambda () - (if (gx#stx-pair? _%e120277120287%_) - (let ((_%e120280120295%_ - (gx#syntax-e _%e120277120287%_))) - (let ((_%hd120281120298%_ (##car _%e120280120295%_)) - (_%tl120282120300%_ (##cdr _%e120280120295%_))) - (if (gx#stx-pair? _%tl120282120300%_) - (let ((_%e120283120303%_ - (gx#syntax-e _%tl120282120300%_))) - (let ((_%hd120284120306%_ - (##car _%e120283120303%_)) - (_%tl120285120308%_ - (##cdr _%e120283120303%_))) - (let* ((_%rator120311%_ _%hd120284120306%_) - (_%args120313%_ _%tl120285120308%_)) - (if (gx#stx-list? _%args120313%_) + (if (gx#stx-pair? _%e119513119523%_) + (let ((_%e119516119531%_ + (gx#syntax-e _%e119513119523%_))) + (let ((_%hd119517119534%_ (##car _%e119516119531%_)) + (_%tl119518119536%_ (##cdr _%e119516119531%_))) + (if (gx#stx-pair? _%tl119518119536%_) + (let ((_%e119519119539%_ + (gx#syntax-e _%tl119518119536%_))) + (let ((_%hd119520119542%_ + (##car _%e119519119539%_)) + (_%tl119521119544%_ + (##cdr _%e119519119539%_))) + (let* ((_%rator119547%_ _%hd119520119542%_) + (_%args119549%_ _%tl119521119544%_)) + (if (gx#stx-list? _%args119549%_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _%rator120311%_) + _%rator119547%_) (gx#stx-map1 gx#core-expand-expression - _%args120313%_)) - (gx#stx-source _%stx120276%_)) - (_%E120279120291%_))))) - (_%E120279120291%_)))) - (_%E120279120291%_))))) - (_%E120278120315%_)))) + _%args119549%_)) + (gx#stx-source _%stx119512%_)) + (_%E119515119527%_))))) + (_%E119515119527%_)))) + (_%E119515119527%_))))) + (_%E119514119551%_)))) (define gx#core-expand-if% - (lambda (_%stx120209%_) - (let* ((_%e120210120226%_ _%stx120209%_) - (_%E120212120230%_ + (lambda (_%stx119445%_) + (let* ((_%e119446119462%_ _%stx119445%_) + (_%E119448119466%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120210120226%_))) - (_%E120211120272%_ + _%e119446119462%_))) + (_%E119447119508%_ (lambda () - (if (gx#stx-pair? _%e120210120226%_) - (let ((_%e120213120234%_ - (gx#syntax-e _%e120210120226%_))) - (let ((_%hd120214120237%_ (##car _%e120213120234%_)) - (_%tl120215120239%_ (##cdr _%e120213120234%_))) - (if (gx#stx-pair? _%tl120215120239%_) - (let ((_%e120216120242%_ - (gx#syntax-e _%tl120215120239%_))) - (let ((_%hd120217120245%_ - (##car _%e120216120242%_)) - (_%tl120218120247%_ - (##cdr _%e120216120242%_))) - (let ((_%test120250%_ _%hd120217120245%_)) - (if (gx#stx-pair? _%tl120218120247%_) - (let ((_%e120219120252%_ + (if (gx#stx-pair? _%e119446119462%_) + (let ((_%e119449119470%_ + (gx#syntax-e _%e119446119462%_))) + (let ((_%hd119450119473%_ (##car _%e119449119470%_)) + (_%tl119451119475%_ (##cdr _%e119449119470%_))) + (if (gx#stx-pair? _%tl119451119475%_) + (let ((_%e119452119478%_ + (gx#syntax-e _%tl119451119475%_))) + (let ((_%hd119453119481%_ + (##car _%e119452119478%_)) + (_%tl119454119483%_ + (##cdr _%e119452119478%_))) + (let ((_%test119486%_ _%hd119453119481%_)) + (if (gx#stx-pair? _%tl119454119483%_) + (let ((_%e119455119488%_ (gx#syntax-e - _%tl120218120247%_))) - (let ((_%hd120220120255%_ - (##car _%e120219120252%_)) - (_%tl120221120257%_ - (##cdr _%e120219120252%_))) - (let ((_%K120260%_ - _%hd120220120255%_)) + _%tl119454119483%_))) + (let ((_%hd119456119491%_ + (##car _%e119455119488%_)) + (_%tl119457119493%_ + (##cdr _%e119455119488%_))) + (let ((_%K119496%_ + _%hd119456119491%_)) (if (gx#stx-pair? - _%tl120221120257%_) - (let ((_%e120222120262%_ + _%tl119457119493%_) + (let ((_%e119458119498%_ (gx#syntax-e - _%tl120221120257%_))) - (let ((_%hd120223120265%_ - (##car _%e120222120262%_)) - (_%tl120224120267%_ - (##cdr _%e120222120262%_))) - (let ((_%E120270%_ - _%hd120223120265%_)) + _%tl119457119493%_))) + (let ((_%hd119459119501%_ + (##car _%e119458119498%_)) + (_%tl119460119503%_ + (##cdr _%e119458119498%_))) + (let ((_%E119506%_ + _%hd119459119501%_)) (if (gx#stx-null? - _%tl120224120267%_) + _%tl119460119503%_) (if '#t (gx#core-quote-syntax__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#core-quote-syntax__0 '%#if) - (cons (gx#core-expand-expression _%test120250%_) + (cons (gx#core-expand-expression _%test119486%_) (cons (gx#core-expand-expression - _%K120260%_) + _%K119496%_) (cons (gx#core-expand-expression - _%E120270%_) + _%E119506%_) '())))) - (gx#stx-source _%stx120209%_)) - (_%E120212120230%_)) - (_%E120212120230%_))))) + (gx#stx-source _%stx119445%_)) + (_%E119448119466%_)) + (_%E119448119466%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120212120230%_))))) - (_%E120212120230%_))))) - (_%E120212120230%_)))) - (_%E120212120230%_))))) - (_%E120211120272%_)))) + (_%E119448119466%_))))) + (_%E119448119466%_))))) + (_%E119448119466%_)))) + (_%E119448119466%_))))) + (_%E119447119508%_)))) (define gx#core-expand-ref% - (lambda (_%stx120168%_) - (let* ((_%e120169120179%_ _%stx120168%_) - (_%E120171120183%_ + (lambda (_%stx119404%_) + (let* ((_%e119405119415%_ _%stx119404%_) + (_%E119407119419%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120169120179%_))) - (_%E120170120205%_ + _%e119405119415%_))) + (_%E119406119441%_ (lambda () - (if (gx#stx-pair? _%e120169120179%_) - (let ((_%e120172120187%_ - (gx#syntax-e _%e120169120179%_))) - (let ((_%hd120173120190%_ (##car _%e120172120187%_)) - (_%tl120174120192%_ (##cdr _%e120172120187%_))) - (if (gx#stx-pair? _%tl120174120192%_) - (let ((_%e120175120195%_ - (gx#syntax-e _%tl120174120192%_))) - (let ((_%hd120176120198%_ - (##car _%e120175120195%_)) - (_%tl120177120200%_ - (##cdr _%e120175120195%_))) - (let ((_%id120203%_ _%hd120176120198%_)) - (if (gx#stx-null? _%tl120177120200%_) - (if (gx#identifier? _%id120203%_) + (if (gx#stx-pair? _%e119405119415%_) + (let ((_%e119408119423%_ + (gx#syntax-e _%e119405119415%_))) + (let ((_%hd119409119426%_ (##car _%e119408119423%_)) + (_%tl119410119428%_ (##cdr _%e119408119423%_))) + (if (gx#stx-pair? _%tl119410119428%_) + (let ((_%e119411119431%_ + (gx#syntax-e _%tl119410119428%_))) + (let ((_%hd119412119434%_ + (##car _%e119411119431%_)) + (_%tl119413119436%_ + (##cdr _%e119411119431%_))) + (let ((_%id119439%_ _%hd119412119434%_)) + (if (gx#stx-null? _%tl119413119436%_) + (if (gx#identifier? _%id119439%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _%id120203%_ - _%stx120168%_) + _%id119439%_ + _%stx119404%_) '())) - (gx#stx-source _%stx120168%_)) - (_%E120171120183%_)) - (_%E120171120183%_))))) - (_%E120171120183%_)))) - (_%E120171120183%_))))) - (_%E120170120205%_)))) + (gx#stx-source _%stx119404%_)) + (_%E119407119419%_)) + (_%E119407119419%_))))) + (_%E119407119419%_)))) + (_%E119407119419%_))))) + (_%E119406119441%_)))) (define gx#core-expand-setq% - (lambda (_%stx120114%_) - (let* ((_%e120115120128%_ _%stx120114%_) - (_%E120117120132%_ + (lambda (_%stx119350%_) + (let* ((_%e119351119364%_ _%stx119350%_) + (_%E119353119368%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120115120128%_))) - (_%E120116120164%_ + _%e119351119364%_))) + (_%E119352119400%_ (lambda () - (if (gx#stx-pair? _%e120115120128%_) - (let ((_%e120118120136%_ - (gx#syntax-e _%e120115120128%_))) - (let ((_%hd120119120139%_ (##car _%e120118120136%_)) - (_%tl120120120141%_ (##cdr _%e120118120136%_))) - (if (gx#stx-pair? _%tl120120120141%_) - (let ((_%e120121120144%_ - (gx#syntax-e _%tl120120120141%_))) - (let ((_%hd120122120147%_ - (##car _%e120121120144%_)) - (_%tl120123120149%_ - (##cdr _%e120121120144%_))) - (let ((_%id120152%_ _%hd120122120147%_)) - (if (gx#stx-pair? _%tl120123120149%_) - (let ((_%e120124120154%_ + (if (gx#stx-pair? _%e119351119364%_) + (let ((_%e119354119372%_ + (gx#syntax-e _%e119351119364%_))) + (let ((_%hd119355119375%_ (##car _%e119354119372%_)) + (_%tl119356119377%_ (##cdr _%e119354119372%_))) + (if (gx#stx-pair? _%tl119356119377%_) + (let ((_%e119357119380%_ + (gx#syntax-e _%tl119356119377%_))) + (let ((_%hd119358119383%_ + (##car _%e119357119380%_)) + (_%tl119359119385%_ + (##cdr _%e119357119380%_))) + (let ((_%id119388%_ _%hd119358119383%_)) + (if (gx#stx-pair? _%tl119359119385%_) + (let ((_%e119360119390%_ (gx#syntax-e - _%tl120123120149%_))) - (let ((_%hd120125120157%_ - (##car _%e120124120154%_)) - (_%tl120126120159%_ - (##cdr _%e120124120154%_))) - (let ((_%expr120162%_ - _%hd120125120157%_)) + _%tl119359119385%_))) + (let ((_%hd119361119393%_ + (##car _%e119360119390%_)) + (_%tl119362119395%_ + (##cdr _%e119360119390%_))) + (let ((_%expr119398%_ + _%hd119361119393%_)) (if (gx#stx-null? - _%tl120126120159%_) + _%tl119362119395%_) (if (gx#identifier? - _%id120152%_) + _%id119388%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id120152%_ - _%stx120114%_) - (cons (gx#core-expand-expression _%expr120162%_) + _%id119388%_ + _%stx119350%_) + (cons (gx#core-expand-expression _%expr119398%_) '()))) - (gx#stx-source _%stx120114%_)) - (_%E120117120132%_)) + (gx#stx-source _%stx119350%_)) + (_%E119353119368%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120117120132%_))))) - (_%E120117120132%_))))) - (_%E120117120132%_)))) - (_%E120117120132%_))))) - (_%E120116120164%_)))) + (_%E119353119368%_))))) + (_%E119353119368%_))))) + (_%E119353119368%_)))) + (_%E119353119368%_))))) + (_%E119352119400%_)))) (define gx#macro-expand-extern - (lambda (_%stx119959%_) - (letrec ((_%generate119961%_ - (lambda (_%body119991%_) - (let _%lp119993%_ ((_%rest119995%_ _%body119991%_) - (_%ns119996%_ + (lambda (_%stx119195%_) + (letrec ((_%generate119197%_ + (lambda (_%body119227%_) + (let _%lp119229%_ ((_%rest119231%_ _%body119227%_) + (_%ns119232%_ (gx#core-context-namespace__0)) - (_%r119997%_ '())) - (let* ((_%e119998120013%_ _%rest119995%_) - (_%E120011120017%_ + (_%r119233%_ '())) + (let* ((_%e119234119249%_ _%rest119231%_) + (_%E119247119253%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119998120013%_))) - (_%E120007120021%_ + _%e119234119249%_))) + (_%E119243119257%_ (lambda () - (if (gx#stx-null? _%e119998120013%_) + (if (gx#stx-null? _%e119234119249%_) (if '#t - (reverse _%r119997%_) - (_%E120011120017%_)) - (_%E120011120017%_)))) - (_%E120000120078%_ + (reverse _%r119233%_) + (_%E119247119253%_)) + (_%E119247119253%_)))) + (_%E119236119314%_ (lambda () - (if (gx#stx-pair? _%e119998120013%_) - (let ((_%e120008120025%_ - (gx#syntax-e _%e119998120013%_))) - (let ((_%hd120009120028%_ - (##car _%e120008120025%_)) - (_%tl120010120030%_ - (##cdr _%e120008120025%_))) - (let* ((_%hd120033%_ - _%hd120009120028%_) - (_%rest120035%_ - _%tl120010120030%_)) + (if (gx#stx-pair? _%e119234119249%_) + (let ((_%e119244119261%_ + (gx#syntax-e _%e119234119249%_))) + (let ((_%hd119245119264%_ + (##car _%e119244119261%_)) + (_%tl119246119266%_ + (##cdr _%e119244119261%_))) + (let* ((_%hd119269%_ + _%hd119245119264%_) + (_%rest119271%_ + _%tl119246119266%_)) (if '#t - (if (gx#identifier? _%hd120033%_) - (_%lp119993%_ - _%rest120035%_ - _%ns119996%_ - (cons (cons _%hd120033%_ - (cons (if _%ns119996%_ + (if (gx#identifier? _%hd119269%_) + (_%lp119229%_ + _%rest119271%_ + _%ns119232%_ + (cons (cons _%hd119269%_ + (cons (if _%ns119232%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _%hd120033%_ - _%ns119996%_ + _%hd119269%_ + _%ns119232%_ '"#" - _%hd120033%_) - _%hd120033%_) + _%hd119269%_) + _%hd119269%_) '())) - _%r119997%_)) + _%r119233%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%e120036120046%_ - _%hd120033%_) - (_%E120038120050%_ + (let* ((_%e119272119282%_ + _%hd119269%_) + (_%E119274119286%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120036120046%_))) - (_%E120037120074%_ + _%e119272119282%_))) + (_%E119273119310%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e120036120046%_) - (let ((_%e120039120054%_ - (gx#syntax-e _%e120036120046%_))) - (let ((_%hd120040120057%_ (##car _%e120039120054%_)) - (_%tl120041120059%_ (##cdr _%e120039120054%_))) - (let ((_%id120062%_ _%hd120040120057%_)) - (if (gx#stx-pair? _%tl120041120059%_) - (let ((_%e120042120064%_ - (gx#syntax-e _%tl120041120059%_))) - (let ((_%hd120043120067%_ - (##car _%e120042120064%_)) - (_%tl120044120069%_ - (##cdr _%e120042120064%_))) - (let ((_%eid120072%_ _%hd120043120067%_)) - (if (gx#stx-null? _%tl120044120069%_) + _%e119272119282%_) + (let ((_%e119275119290%_ + (gx#syntax-e _%e119272119282%_))) + (let ((_%hd119276119293%_ (##car _%e119275119290%_)) + (_%tl119277119295%_ (##cdr _%e119275119290%_))) + (let ((_%id119298%_ _%hd119276119293%_)) + (if (gx#stx-pair? _%tl119277119295%_) + (let ((_%e119278119300%_ + (gx#syntax-e _%tl119277119295%_))) + (let ((_%hd119279119303%_ + (##car _%e119278119300%_)) + (_%tl119280119305%_ + (##cdr _%e119278119300%_))) + (let ((_%eid119308%_ _%hd119279119303%_)) + (if (gx#stx-null? _%tl119280119305%_) (if (and (gx#identifier? - _%id120062%_) + _%id119298%_) (gx#identifier? - _%eid120072%_)) - (_%lp119993%_ - _%rest120035%_ - _%ns119996%_ - (cons (cons _%id120062%_ - (cons _%eid120072%_ + _%eid119308%_)) + (_%lp119229%_ + _%rest119271%_ + _%ns119232%_ + (cons (cons _%id119298%_ + (cons _%eid119308%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%r119997%_)) + _%r119233%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120038120050%_)) - (_%E120038120050%_))))) - (_%E120038120050%_))))) - (_%E120038120050%_))))) + (_%E119274119286%_)) + (_%E119274119286%_))))) + (_%E119274119286%_))))) + (_%E119274119286%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120037120074%_))) - (_%E120007120021%_))))) - (_%E120007120021%_)))) - (_%E119999120110%_ + (_%E119273119310%_))) + (_%E119243119257%_))))) + (_%E119243119257%_)))) + (_%E119235119346%_ (lambda () - (if (gx#stx-pair? _%e119998120013%_) - (let ((_%e120001120082%_ - (gx#syntax-e _%e119998120013%_))) - (let ((_%hd120002120085%_ - (##car _%e120001120082%_)) - (_%tl120003120087%_ - (##cdr _%e120001120082%_))) - (if (eq? (gx#stx-e _%hd120002120085%_) + (if (gx#stx-pair? _%e119234119249%_) + (let ((_%e119237119318%_ + (gx#syntax-e _%e119234119249%_))) + (let ((_%hd119238119321%_ + (##car _%e119237119318%_)) + (_%tl119239119323%_ + (##cdr _%e119237119318%_))) + (if (eq? (gx#stx-e _%hd119238119321%_) 'namespace:) (if (gx#stx-pair? - _%tl120003120087%_) - (let ((_%e120004120090%_ + _%tl119239119323%_) + (let ((_%e119240119326%_ (gx#syntax-e - _%tl120003120087%_))) - (let ((_%hd120005120093%_ - (##car _%e120004120090%_)) - (_%tl120006120095%_ - (##cdr _%e120004120090%_))) - (let* ((_%ns120098%_ - _%hd120005120093%_) - (_%rest120100%_ - _%tl120006120095%_)) + _%tl119239119323%_))) + (let ((_%hd119241119329%_ + (##car _%e119240119326%_)) + (_%tl119242119331%_ + (##cdr _%e119240119326%_))) + (let* ((_%ns119334%_ + _%hd119241119329%_) + (_%rest119336%_ + _%tl119242119331%_)) (if '#t - (let ((_%ns120108%_ + (let ((_%ns119344%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (gx#identifier? _%ns120098%_) - (let () (symbol->string (gx#stx-e _%ns120098%_))) - (if (or (gx#stx-string? _%ns120098%_) - (gx#stx-false? _%ns120098%_)) - (let () (gx#stx-e _%ns120098%_)) - (let () - (gx#raise-syntax-error - '#f - '"Bad syntax; extern expects namespace identifier" - _%stx119959%_ - _%ns120098%_)))))) - (_%lp119993%_ _%rest120100%_ _%ns120108%_ _%r119997%_)) - (_%E120000120078%_))))) + (if (gx#identifier? _%ns119334%_) + (symbol->string (gx#stx-e _%ns119334%_)) + (if (or (gx#stx-string? _%ns119334%_) + (gx#stx-false? _%ns119334%_)) + (gx#stx-e _%ns119334%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; extern expects namespace identifier" + _%stx119195%_ + _%ns119334%_))))) + (_%lp119229%_ _%rest119336%_ _%ns119344%_ _%r119233%_)) + (_%E119236119314%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120000120078%_)) - (_%E120000120078%_)))) - (_%E120000120078%_))))) - (_%E119999120110%_)))))) - (let* ((_%e119962119969%_ _%stx119959%_) - (_%E119964119973%_ + (_%E119236119314%_)) + (_%E119236119314%_)))) + (_%E119236119314%_))))) + (_%E119235119346%_)))))) + (let* ((_%e119198119205%_ _%stx119195%_) + (_%E119200119209%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119962119969%_))) - (_%E119963119987%_ + _%e119198119205%_))) + (_%E119199119223%_ (lambda () - (if (gx#stx-pair? _%e119962119969%_) - (let ((_%e119965119977%_ - (gx#syntax-e _%e119962119969%_))) - (let ((_%hd119966119980%_ (##car _%e119965119977%_)) - (_%tl119967119982%_ (##cdr _%e119965119977%_))) - (let ((_%body119985%_ _%tl119967119982%_)) - (if (gx#stx-list? _%body119985%_) + (if (gx#stx-pair? _%e119198119205%_) + (let ((_%e119201119213%_ + (gx#syntax-e _%e119198119205%_))) + (let ((_%hd119202119216%_ (##car _%e119201119213%_)) + (_%tl119203119218%_ (##cdr _%e119201119213%_))) + (let ((_%body119221%_ _%tl119203119218%_)) + (if (gx#stx-list? _%body119221%_) (gx#core-cons '%#extern - (_%generate119961%_ _%body119985%_)) - (_%E119964119973%_))))) - (_%E119964119973%_))))) - (_%E119963119987%_))))) + (_%generate119197%_ _%body119221%_)) + (_%E119200119209%_))))) + (_%E119200119209%_))))) + (_%E119199119223%_))))) (define gx#macro-expand-define-values - (lambda (_%stx119905%_) - (let* ((_%e119906119919%_ _%stx119905%_) - (_%E119908119923%_ + (lambda (_%stx119141%_) + (let* ((_%e119142119155%_ _%stx119141%_) + (_%E119144119159%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119906119919%_))) - (_%E119907119955%_ + _%e119142119155%_))) + (_%E119143119191%_ (lambda () - (if (gx#stx-pair? _%e119906119919%_) - (let ((_%e119909119927%_ - (gx#syntax-e _%e119906119919%_))) - (let ((_%hd119910119930%_ (##car _%e119909119927%_)) - (_%tl119911119932%_ (##cdr _%e119909119927%_))) - (if (gx#stx-pair? _%tl119911119932%_) - (let ((_%e119912119935%_ - (gx#syntax-e _%tl119911119932%_))) - (let ((_%hd119913119938%_ - (##car _%e119912119935%_)) - (_%tl119914119940%_ - (##cdr _%e119912119935%_))) - (let ((_%hd119943%_ _%hd119913119938%_)) - (if (gx#stx-pair? _%tl119914119940%_) - (let ((_%e119915119945%_ + (if (gx#stx-pair? _%e119142119155%_) + (let ((_%e119145119163%_ + (gx#syntax-e _%e119142119155%_))) + (let ((_%hd119146119166%_ (##car _%e119145119163%_)) + (_%tl119147119168%_ (##cdr _%e119145119163%_))) + (if (gx#stx-pair? _%tl119147119168%_) + (let ((_%e119148119171%_ + (gx#syntax-e _%tl119147119168%_))) + (let ((_%hd119149119174%_ + (##car _%e119148119171%_)) + (_%tl119150119176%_ + (##cdr _%e119148119171%_))) + (let ((_%hd119179%_ _%hd119149119174%_)) + (if (gx#stx-pair? _%tl119150119176%_) + (let ((_%e119151119181%_ (gx#syntax-e - _%tl119914119940%_))) - (let ((_%hd119916119948%_ - (##car _%e119915119945%_)) - (_%tl119917119950%_ - (##cdr _%e119915119945%_))) - (let ((_%expr119953%_ - _%hd119916119948%_)) + _%tl119150119176%_))) + (let ((_%hd119152119184%_ + (##car _%e119151119181%_)) + (_%tl119153119186%_ + (##cdr _%e119151119181%_))) + (let ((_%expr119189%_ + _%hd119152119184%_)) (if (gx#stx-null? - _%tl119917119950%_) + _%tl119153119186%_) (if (gx#stx-andmap gx#identifier? - _%hd119943%_) + _%hd119179%_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%hd119943%_) - (cons _%expr119953%_ '()))) - (_%E119908119923%_)) + _%hd119179%_) + (cons _%expr119189%_ '()))) + (_%E119144119159%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E119908119923%_))))) - (_%E119908119923%_))))) - (_%E119908119923%_)))) - (_%E119908119923%_))))) - (_%E119907119955%_)))) + (_%E119144119159%_))))) + (_%E119144119159%_))))) + (_%E119144119159%_)))) + (_%E119144119159%_))))) + (_%E119143119191%_)))) (define gx#macro-expand-define-syntax - (lambda (_%stx119851%_) - (let* ((_%e119852119865%_ _%stx119851%_) - (_%E119854119869%_ + (lambda (_%stx119087%_) + (let* ((_%e119088119101%_ _%stx119087%_) + (_%E119090119105%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119852119865%_))) - (_%E119853119901%_ + _%e119088119101%_))) + (_%E119089119137%_ (lambda () - (if (gx#stx-pair? _%e119852119865%_) - (let ((_%e119855119873%_ - (gx#syntax-e _%e119852119865%_))) - (let ((_%hd119856119876%_ (##car _%e119855119873%_)) - (_%tl119857119878%_ (##cdr _%e119855119873%_))) - (if (gx#stx-pair? _%tl119857119878%_) - (let ((_%e119858119881%_ - (gx#syntax-e _%tl119857119878%_))) - (let ((_%hd119859119884%_ - (##car _%e119858119881%_)) - (_%tl119860119886%_ - (##cdr _%e119858119881%_))) - (let ((_%hd119889%_ _%hd119859119884%_)) - (if (gx#stx-pair? _%tl119860119886%_) - (let ((_%e119861119891%_ + (if (gx#stx-pair? _%e119088119101%_) + (let ((_%e119091119109%_ + (gx#syntax-e _%e119088119101%_))) + (let ((_%hd119092119112%_ (##car _%e119091119109%_)) + (_%tl119093119114%_ (##cdr _%e119091119109%_))) + (if (gx#stx-pair? _%tl119093119114%_) + (let ((_%e119094119117%_ + (gx#syntax-e _%tl119093119114%_))) + (let ((_%hd119095119120%_ + (##car _%e119094119117%_)) + (_%tl119096119122%_ + (##cdr _%e119094119117%_))) + (let ((_%hd119125%_ _%hd119095119120%_)) + (if (gx#stx-pair? _%tl119096119122%_) + (let ((_%e119097119127%_ (gx#syntax-e - _%tl119860119886%_))) - (let ((_%hd119862119894%_ - (##car _%e119861119891%_)) - (_%tl119863119896%_ - (##cdr _%e119861119891%_))) - (let ((_%expr119899%_ - _%hd119862119894%_)) + _%tl119096119122%_))) + (let ((_%hd119098119130%_ + (##car _%e119097119127%_)) + (_%tl119099119132%_ + (##cdr _%e119097119127%_))) + (let ((_%expr119135%_ + _%hd119098119130%_)) (if (gx#stx-null? - _%tl119863119896%_) + _%tl119099119132%_) (if (gx#identifier? - _%hd119889%_) + _%hd119125%_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _%hd119889%_ + (cons _%hd119125%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr119899%_ '()))) - (_%E119854119869%_)) + (cons _%expr119135%_ '()))) + (_%E119090119105%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E119854119869%_))))) - (_%E119854119869%_))))) - (_%E119854119869%_)))) - (_%E119854119869%_))))) - (_%E119853119901%_)))) + (_%E119090119105%_))))) + (_%E119090119105%_))))) + (_%E119090119105%_)))) + (_%E119090119105%_))))) + (_%E119089119137%_)))) (define gx#macro-expand-define-alias - (lambda (_%stx119797%_) - (let* ((_%e119798119811%_ _%stx119797%_) - (_%E119800119815%_ + (lambda (_%stx119033%_) + (let* ((_%e119034119047%_ _%stx119033%_) + (_%E119036119051%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119798119811%_))) - (_%E119799119847%_ + _%e119034119047%_))) + (_%E119035119083%_ (lambda () - (if (gx#stx-pair? _%e119798119811%_) - (let ((_%e119801119819%_ - (gx#syntax-e _%e119798119811%_))) - (let ((_%hd119802119822%_ (##car _%e119801119819%_)) - (_%tl119803119824%_ (##cdr _%e119801119819%_))) - (if (gx#stx-pair? _%tl119803119824%_) - (let ((_%e119804119827%_ - (gx#syntax-e _%tl119803119824%_))) - (let ((_%hd119805119830%_ - (##car _%e119804119827%_)) - (_%tl119806119832%_ - (##cdr _%e119804119827%_))) - (let ((_%id119835%_ _%hd119805119830%_)) - (if (gx#stx-pair? _%tl119806119832%_) - (let ((_%e119807119837%_ + (if (gx#stx-pair? _%e119034119047%_) + (let ((_%e119037119055%_ + (gx#syntax-e _%e119034119047%_))) + (let ((_%hd119038119058%_ (##car _%e119037119055%_)) + (_%tl119039119060%_ (##cdr _%e119037119055%_))) + (if (gx#stx-pair? _%tl119039119060%_) + (let ((_%e119040119063%_ + (gx#syntax-e _%tl119039119060%_))) + (let ((_%hd119041119066%_ + (##car _%e119040119063%_)) + (_%tl119042119068%_ + (##cdr _%e119040119063%_))) + (let ((_%id119071%_ _%hd119041119066%_)) + (if (gx#stx-pair? _%tl119042119068%_) + (let ((_%e119043119073%_ (gx#syntax-e - _%tl119806119832%_))) - (let ((_%hd119808119840%_ - (##car _%e119807119837%_)) - (_%tl119809119842%_ - (##cdr _%e119807119837%_))) - (let ((_%alias-id119845%_ - _%hd119808119840%_)) + _%tl119042119068%_))) + (let ((_%hd119044119076%_ + (##car _%e119043119073%_)) + (_%tl119045119078%_ + (##cdr _%e119043119073%_))) + (let ((_%alias-id119081%_ + _%hd119044119076%_)) (if (gx#stx-null? - _%tl119809119842%_) + _%tl119045119078%_) (if (and (gx#identifier? - _%id119835%_) + _%id119071%_) (gx#identifier? - _%alias-id119845%_)) + _%alias-id119081%_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _%id119835%_ + (cons _%id119071%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%alias-id119845%_ '()))) - (_%E119800119815%_)) + (cons _%alias-id119081%_ '()))) + (_%E119036119051%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E119800119815%_))))) - (_%E119800119815%_))))) - (_%E119800119815%_)))) - (_%E119800119815%_))))) - (_%E119799119847%_)))) + (_%E119036119051%_))))) + (_%E119036119051%_))))) + (_%E119036119051%_)))) + (_%E119036119051%_))))) + (_%E119035119083%_)))) (define gx#macro-expand-lambda% - (lambda (_%stx119754%_) - (let* ((_%e119755119765%_ _%stx119754%_) - (_%E119757119769%_ + (lambda (_%stx118990%_) + (let* ((_%e118991119001%_ _%stx118990%_) + (_%E118993119005%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119755119765%_))) - (_%E119756119793%_ + _%e118991119001%_))) + (_%E118992119029%_ (lambda () - (if (gx#stx-pair? _%e119755119765%_) - (let ((_%e119758119773%_ - (gx#syntax-e _%e119755119765%_))) - (let ((_%hd119759119776%_ (##car _%e119758119773%_)) - (_%tl119760119778%_ (##cdr _%e119758119773%_))) - (if (gx#stx-pair? _%tl119760119778%_) - (let ((_%e119761119781%_ - (gx#syntax-e _%tl119760119778%_))) - (let ((_%hd119762119784%_ - (##car _%e119761119781%_)) - (_%tl119763119786%_ - (##cdr _%e119761119781%_))) - (let* ((_%hd119789%_ _%hd119762119784%_) - (_%body119791%_ _%tl119763119786%_)) + (if (gx#stx-pair? _%e118991119001%_) + (let ((_%e118994119009%_ + (gx#syntax-e _%e118991119001%_))) + (let ((_%hd118995119012%_ (##car _%e118994119009%_)) + (_%tl118996119014%_ (##cdr _%e118994119009%_))) + (if (gx#stx-pair? _%tl118996119014%_) + (let ((_%e118997119017%_ + (gx#syntax-e _%tl118996119014%_))) + (let ((_%hd118998119020%_ + (##car _%e118997119017%_)) + (_%tl118999119022%_ + (##cdr _%e118997119017%_))) + (let* ((_%hd119025%_ _%hd118998119020%_) + (_%body119027%_ _%tl118999119022%_)) (if (and (gx#stx-andmap gx#identifier? - _%hd119789%_) - (gx#stx-list? _%body119791%_) + _%hd119025%_) + (gx#stx-list? _%body119027%_) (not (gx#stx-null? - _%body119791%_))) + _%body119027%_))) (gx#core-cons* '%#lambda - (gx#stx-map1 identity _%hd119789%_) - _%body119791%_) - (_%E119757119769%_))))) - (_%E119757119769%_)))) - (_%E119757119769%_))))) - (_%E119756119793%_)))) + (gx#stx-map1 identity _%hd119025%_) + _%body119027%_) + (_%E118993119005%_))))) + (_%E118993119005%_)))) + (_%E118993119005%_))))) + (_%E118992119029%_)))) (define gx#macro-expand-case-lambda - (lambda (_%stx119690%_) - (letrec ((_%generate119692%_ - (lambda (_%clause119722%_) - (let* ((_%e119723119730%_ _%clause119722%_) - (_%E119725119734%_ + (lambda (_%stx118926%_) + (letrec ((_%generate118928%_ + (lambda (_%clause118958%_) + (let* ((_%e118959118966%_ _%clause118958%_) + (_%E118961118970%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _%stx119690%_ - _%clause119722%_))) - (_%E119724119750%_ + _%stx118926%_ + _%clause118958%_))) + (_%E118960118986%_ (lambda () - (if (gx#stx-pair? _%e119723119730%_) - (let ((_%e119726119738%_ - (gx#syntax-e _%e119723119730%_))) - (let ((_%hd119727119741%_ - (##car _%e119726119738%_)) - (_%tl119728119743%_ - (##cdr _%e119726119738%_))) - (let* ((_%hd119746%_ _%hd119727119741%_) - (_%body119748%_ - _%tl119728119743%_)) + (if (gx#stx-pair? _%e118959118966%_) + (let ((_%e118962118974%_ + (gx#syntax-e _%e118959118966%_))) + (let ((_%hd118963118977%_ + (##car _%e118962118974%_)) + (_%tl118964118979%_ + (##cdr _%e118962118974%_))) + (let* ((_%hd118982%_ _%hd118963118977%_) + (_%body118984%_ + _%tl118964118979%_)) (if (and (gx#stx-andmap gx#identifier? - _%hd119746%_) - (gx#stx-list? _%body119748%_) + _%hd118982%_) + (gx#stx-list? _%body118984%_) (not (gx#stx-null? - _%body119748%_))) + _%body118984%_))) (gx#stx-wrap-source (cons (gx#stx-map1 identity - _%hd119746%_) - _%body119748%_) - (gx#stx-source _%clause119722%_)) - (_%E119725119734%_))))) - (_%E119725119734%_))))) - (_%E119724119750%_))))) - (let* ((_%e119693119700%_ _%stx119690%_) - (_%E119695119704%_ + _%hd118982%_) + _%body118984%_) + (gx#stx-source _%clause118958%_)) + (_%E118961118970%_))))) + (_%E118961118970%_))))) + (_%E118960118986%_))))) + (let* ((_%e118929118936%_ _%stx118926%_) + (_%E118931118940%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119693119700%_))) - (_%E119694119718%_ + _%e118929118936%_))) + (_%E118930118954%_ (lambda () - (if (gx#stx-pair? _%e119693119700%_) - (let ((_%e119696119708%_ - (gx#syntax-e _%e119693119700%_))) - (let ((_%hd119697119711%_ (##car _%e119696119708%_)) - (_%tl119698119713%_ (##cdr _%e119696119708%_))) - (let ((_%clauses119716%_ _%tl119698119713%_)) - (if (gx#stx-list? _%clauses119716%_) + (if (gx#stx-pair? _%e118929118936%_) + (let ((_%e118932118944%_ + (gx#syntax-e _%e118929118936%_))) + (let ((_%hd118933118947%_ (##car _%e118932118944%_)) + (_%tl118934118949%_ (##cdr _%e118932118944%_))) + (let ((_%clauses118952%_ _%tl118934118949%_)) + (if (gx#stx-list? _%clauses118952%_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _%generate119692%_ - _%clauses119716%_)) - (_%E119695119704%_))))) - (_%E119695119704%_))))) - (_%E119694119718%_))))) + _%generate118928%_ + _%clauses118952%_)) + (_%E118931118940%_))))) + (_%E118931118940%_))))) + (_%E118930118954%_))))) (define gx#macro-expand-let-values__% - (lambda (_%stx119591%_ _%form119592%_) - (letrec ((_%generate119594%_ - (lambda (_%bind119637%_) - (let* ((_%e119638119648%_ _%bind119637%_) - (_%E119640119652%_ + (lambda (_%stx118827%_ _%form118828%_) + (letrec ((_%generate118830%_ + (lambda (_%bind118873%_) + (let* ((_%e118874118884%_ _%bind118873%_) + (_%E118876118888%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _%stx119591%_ - _%bind119637%_))) - (_%E119639119676%_ + _%stx118827%_ + _%bind118873%_))) + (_%E118875118912%_ (lambda () - (if (gx#stx-pair? _%e119638119648%_) - (let ((_%e119641119656%_ - (gx#syntax-e _%e119638119648%_))) - (let ((_%hd119642119659%_ - (##car _%e119641119656%_)) - (_%tl119643119661%_ - (##cdr _%e119641119656%_))) - (let ((_%ids119664%_ _%hd119642119659%_)) - (if (gx#stx-pair? _%tl119643119661%_) - (let ((_%e119644119666%_ + (if (gx#stx-pair? _%e118874118884%_) + (let ((_%e118877118892%_ + (gx#syntax-e _%e118874118884%_))) + (let ((_%hd118878118895%_ + (##car _%e118877118892%_)) + (_%tl118879118897%_ + (##cdr _%e118877118892%_))) + (let ((_%ids118900%_ _%hd118878118895%_)) + (if (gx#stx-pair? _%tl118879118897%_) + (let ((_%e118880118902%_ (gx#syntax-e - _%tl119643119661%_))) - (let ((_%hd119645119669%_ - (##car _%e119644119666%_)) - (_%tl119646119671%_ - (##cdr _%e119644119666%_))) - (let ((_%expr119674%_ - _%hd119645119669%_)) + _%tl118879118897%_))) + (let ((_%hd118881118905%_ + (##car _%e118880118902%_)) + (_%tl118882118907%_ + (##cdr _%e118880118902%_))) + (let ((_%expr118910%_ + _%hd118881118905%_)) (if (gx#stx-null? - _%tl119646119671%_) + _%tl118882118907%_) (if (gx#stx-andmap gx#identifier? - _%ids119664%_) + _%ids118900%_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%ids119664%_) - (cons _%expr119674%_ '())) - (_%E119640119652%_)) - (_%E119640119652%_))))) + _%ids118900%_) + (cons _%expr118910%_ '())) + (_%E118876118888%_)) + (_%E118876118888%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E119640119652%_))))) - (_%E119640119652%_))))) - (_%E119639119676%_))))) - (let* ((_%e119595119605%_ _%stx119591%_) - (_%E119597119609%_ + (_%E118876118888%_))))) + (_%E118876118888%_))))) + (_%E118875118912%_))))) + (let* ((_%e118831118841%_ _%stx118827%_) + (_%E118833118845%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119595119605%_))) - (_%E119596119633%_ + _%e118831118841%_))) + (_%E118832118869%_ (lambda () - (if (gx#stx-pair? _%e119595119605%_) - (let ((_%e119598119613%_ - (gx#syntax-e _%e119595119605%_))) - (let ((_%hd119599119616%_ (##car _%e119598119613%_)) - (_%tl119600119618%_ (##cdr _%e119598119613%_))) - (if (gx#stx-pair? _%tl119600119618%_) - (let ((_%e119601119621%_ - (gx#syntax-e _%tl119600119618%_))) - (let ((_%hd119602119624%_ - (##car _%e119601119621%_)) - (_%tl119603119626%_ - (##cdr _%e119601119621%_))) - (let* ((_%hd119629%_ _%hd119602119624%_) - (_%body119631%_ _%tl119603119626%_)) - (if (and (gx#stx-list? _%hd119629%_) - (gx#stx-list? _%body119631%_) + (if (gx#stx-pair? _%e118831118841%_) + (let ((_%e118834118849%_ + (gx#syntax-e _%e118831118841%_))) + (let ((_%hd118835118852%_ (##car _%e118834118849%_)) + (_%tl118836118854%_ (##cdr _%e118834118849%_))) + (if (gx#stx-pair? _%tl118836118854%_) + (let ((_%e118837118857%_ + (gx#syntax-e _%tl118836118854%_))) + (let ((_%hd118838118860%_ + (##car _%e118837118857%_)) + (_%tl118839118862%_ + (##cdr _%e118837118857%_))) + (let* ((_%hd118865%_ _%hd118838118860%_) + (_%body118867%_ _%tl118839118862%_)) + (if (and (gx#stx-list? _%hd118865%_) + (gx#stx-list? _%body118867%_) (not (gx#stx-null? - _%body119631%_))) + _%body118867%_))) (gx#core-cons* - _%form119592%_ + _%form118828%_ (gx#stx-map1 - _%generate119594%_ - _%hd119629%_) - _%body119631%_) - (_%E119597119609%_))))) - (_%E119597119609%_)))) - (_%E119597119609%_))))) - (_%E119596119633%_))))) + _%generate118830%_ + _%hd118865%_) + _%body118867%_) + (_%E118833118845%_))))) + (_%E118833118845%_)))) + (_%E118833118845%_))))) + (_%E118832118869%_))))) (define gx#macro-expand-let-values__0 - (lambda (_%stx119683%_) - (let ((_%form119685%_ '%#let-values)) - (gx#macro-expand-let-values__% _%stx119683%_ _%form119685%_)))) + (lambda (_%stx118919%_) + (let ((_%form118921%_ '%#let-values)) + (gx#macro-expand-let-values__% _%stx118919%_ _%form118921%_)))) (define gx#macro-expand-let-values - (lambda _g122072_ - (let ((_g122071_ (##length _g122072_))) - (cond ((##fx= _g122071_ 1) - (apply (lambda (_%stx119683%_) - (gx#macro-expand-let-values__0 _%stx119683%_)) - _g122072_)) - ((##fx= _g122071_ 2) - (apply (lambda (_%stx119687%_ _%form119688%_) - (gx#macro-expand-let-values__% - _%stx119687%_ - _%form119688%_)) - _g122072_)) + (lambda _g121308_ + (let ((_g121307_ (##length _g121308_))) + (cond ((##fx= _g121307_ 1) + (apply gx#macro-expand-let-values__0 _g121308_)) + ((##fx= _g121307_ 2) + (apply gx#macro-expand-let-values__% _g121308_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g122072_)))))) + _g121308_)))))) (define gx#macro-expand-letrec-values - (lambda (_%stx119588%_) - (gx#macro-expand-let-values__% _%stx119588%_ '%#letrec-values))) + (lambda (_%stx118824%_) + (gx#macro-expand-let-values__% _%stx118824%_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_%stx119586%_) - (gx#macro-expand-let-values__% _%stx119586%_ '%#letrec*-values))) + (lambda (_%stx118822%_) + (gx#macro-expand-let-values__% _%stx118822%_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_%stx119477%_) - (let* ((_%e119478119504%_ _%stx119477%_) - (_%E119490119508%_ + (lambda (_%stx118713%_) + (let* ((_%e118714118740%_ _%stx118713%_) + (_%E118726118744%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119478119504%_))) - (_%E119480119550%_ + _%e118714118740%_))) + (_%E118716118786%_ (lambda () - (if (gx#stx-pair? _%e119478119504%_) - (let ((_%e119491119512%_ - (gx#syntax-e _%e119478119504%_))) - (let ((_%hd119492119515%_ (##car _%e119491119512%_)) - (_%tl119493119517%_ (##cdr _%e119491119512%_))) - (if (gx#stx-pair? _%tl119493119517%_) - (let ((_%e119494119520%_ - (gx#syntax-e _%tl119493119517%_))) - (let ((_%hd119495119523%_ - (##car _%e119494119520%_)) - (_%tl119496119525%_ - (##cdr _%e119494119520%_))) - (let ((_%test119528%_ _%hd119495119523%_)) - (if (gx#stx-pair? _%tl119496119525%_) - (let ((_%e119497119530%_ + (if (gx#stx-pair? _%e118714118740%_) + (let ((_%e118727118748%_ + (gx#syntax-e _%e118714118740%_))) + (let ((_%hd118728118751%_ (##car _%e118727118748%_)) + (_%tl118729118753%_ (##cdr _%e118727118748%_))) + (if (gx#stx-pair? _%tl118729118753%_) + (let ((_%e118730118756%_ + (gx#syntax-e _%tl118729118753%_))) + (let ((_%hd118731118759%_ + (##car _%e118730118756%_)) + (_%tl118732118761%_ + (##cdr _%e118730118756%_))) + (let ((_%test118764%_ _%hd118731118759%_)) + (if (gx#stx-pair? _%tl118732118761%_) + (let ((_%e118733118766%_ (gx#syntax-e - _%tl119496119525%_))) - (let ((_%hd119498119533%_ - (##car _%e119497119530%_)) - (_%tl119499119535%_ - (##cdr _%e119497119530%_))) - (let ((_%K119538%_ - _%hd119498119533%_)) + _%tl118732118761%_))) + (let ((_%hd118734118769%_ + (##car _%e118733118766%_)) + (_%tl118735118771%_ + (##cdr _%e118733118766%_))) + (let ((_%K118774%_ + _%hd118734118769%_)) (if (gx#stx-pair? - _%tl119499119535%_) - (let ((_%e119500119540%_ + _%tl118735118771%_) + (let ((_%e118736118776%_ (gx#syntax-e - _%tl119499119535%_))) - (let ((_%hd119501119543%_ - (##car _%e119500119540%_)) - (_%tl119502119545%_ - (##cdr _%e119500119540%_))) - (let ((_%E119548%_ - _%hd119501119543%_)) + _%tl118735118771%_))) + (let ((_%hd118737118779%_ + (##car _%e118736118776%_)) + (_%tl118738118781%_ + (##cdr _%e118736118776%_))) + (let ((_%E118784%_ + _%hd118737118779%_)) (if (gx#stx-null? - _%tl119502119545%_) + _%tl118738118781%_) (if '#t (gx#core-list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if - _%test119528%_ - _%K119538%_ - _%E119548%_) - (_%E119490119508%_)) - (_%E119490119508%_))))) + _%test118764%_ + _%K118774%_ + _%E118784%_) + (_%E118726118744%_)) + (_%E118726118744%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E119490119508%_))))) - (_%E119490119508%_))))) - (_%E119490119508%_)))) - (_%E119490119508%_)))) - (_%E119479119582%_ + (_%E118726118744%_))))) + (_%E118726118744%_))))) + (_%E118726118744%_)))) + (_%E118726118744%_)))) + (_%E118715118818%_ (lambda () - (if (gx#stx-pair? _%e119478119504%_) - (let ((_%e119481119554%_ - (gx#syntax-e _%e119478119504%_))) - (let ((_%hd119482119557%_ (##car _%e119481119554%_)) - (_%tl119483119559%_ (##cdr _%e119481119554%_))) - (if (gx#stx-pair? _%tl119483119559%_) - (let ((_%e119484119562%_ - (gx#syntax-e _%tl119483119559%_))) - (let ((_%hd119485119565%_ - (##car _%e119484119562%_)) - (_%tl119486119567%_ - (##cdr _%e119484119562%_))) - (let ((_%test119570%_ _%hd119485119565%_)) - (if (gx#stx-pair? _%tl119486119567%_) - (let ((_%e119487119572%_ + (if (gx#stx-pair? _%e118714118740%_) + (let ((_%e118717118790%_ + (gx#syntax-e _%e118714118740%_))) + (let ((_%hd118718118793%_ (##car _%e118717118790%_)) + (_%tl118719118795%_ (##cdr _%e118717118790%_))) + (if (gx#stx-pair? _%tl118719118795%_) + (let ((_%e118720118798%_ + (gx#syntax-e _%tl118719118795%_))) + (let ((_%hd118721118801%_ + (##car _%e118720118798%_)) + (_%tl118722118803%_ + (##cdr _%e118720118798%_))) + (let ((_%test118806%_ _%hd118721118801%_)) + (if (gx#stx-pair? _%tl118722118803%_) + (let ((_%e118723118808%_ (gx#syntax-e - _%tl119486119567%_))) - (let ((_%hd119488119575%_ - (##car _%e119487119572%_)) - (_%tl119489119577%_ - (##cdr _%e119487119572%_))) - (let ((_%K119580%_ - _%hd119488119575%_)) + _%tl118722118803%_))) + (let ((_%hd118724118811%_ + (##car _%e118723118808%_)) + (_%tl118725118813%_ + (##cdr _%e118723118808%_))) + (let ((_%K118816%_ + _%hd118724118811%_)) (if (gx#stx-null? - _%tl119489119577%_) + _%tl118725118813%_) (if '#t (gx#core-list '%#if - _%test119570%_ - _%K119580%_ + _%test118806%_ + _%K118816%_ '#!void) - (_%E119480119550%_)) - (_%E119480119550%_))))) - (_%E119480119550%_))))) - (_%E119480119550%_)))) - (_%E119480119550%_))))) - (_%E119479119582%_)))) + (_%E118716118786%_)) + (_%E118716118786%_))))) + (_%E118716118786%_))))) + (_%E118716118786%_)))) + (_%E118716118786%_))))) + (_%E118715118818%_)))) (define gx#free-identifier=? - (lambda (_%xid119462%_ _%yid119463%_) - (let ((_%xe119465%_ (gx#resolve-identifier__0 _%xid119462%_)) - (_%ye119466%_ (gx#resolve-identifier__0 _%yid119463%_))) - (if (and _%xe119465%_ _%ye119466%_) - (let ((_%$e119469%_ (eq? _%xe119465%_ _%ye119466%_))) - (if _%$e119469%_ - _%$e119469%_ - (if (##structure-instance-of? _%xe119465%_ 'gx#binding::t) + (lambda (_%xid118698%_ _%yid118699%_) + (let ((_%xe118701%_ (gx#resolve-identifier__0 _%xid118698%_)) + (_%ye118702%_ (gx#resolve-identifier__0 _%yid118699%_))) + (if (and _%xe118701%_ _%ye118702%_) + (let ((_%$e118705%_ (eq? _%xe118701%_ _%ye118702%_))) + (if _%$e118705%_ + _%$e118705%_ + (if (##structure-instance-of? _%xe118701%_ 'gx#binding::t) (if (##structure-instance-of? - _%ye119466%_ + _%ye118702%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%xe119465%_ + _%xe118701%_ '1 '#f '#f) (##unchecked-structure-ref - _%ye119466%_ + _%ye118702%_ '1 '#f '#f)) '#f) '#f))) - (if (or _%xe119465%_ _%ye119466%_) - (let () '#f) - (let () (gx#stx-eq? _%xid119462%_ _%yid119463%_))))))) + (if (or _%xe118701%_ _%ye118702%_) + '#f + (gx#stx-eq? _%xid118698%_ _%yid118699%_)))))) (define gx#bound-identifier=? - (lambda (_%xid119443%_ _%yid119444%_) - (letrec ((_%context119446%_ - (lambda (_%e119460%_) + (lambda (_%xid118679%_ _%yid118680%_) + (letrec ((_%context118682%_ + (lambda (_%e118696%_) (if (##structure-direct-instance-of? - _%e119460%_ + _%e118696%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%e119460%_ '3 '#f '#f) + (##unchecked-structure-ref _%e118696%_ '3 '#f '#f) (gx#current-expander-context)))) - (_%marks119447%_ - (lambda (_%e119455%_) - (if (symbol? _%e119455%_) - (let () '()) + (_%marks118683%_ + (lambda (_%e118691%_) + (if (symbol? _%e118691%_) + '() (if (##structure-direct-instance-of? - _%e119455%_ + _%e118691%_ 'gx#identifier-wrap::t) - (let () - (##unchecked-structure-ref - _%e119455%_ - '3 - '#f - '#f)) - (let () - (##unchecked-structure-ref - _%e119455%_ - '4 - '#f - '#f)))))) - (_%unwrap119448%_ - (lambda (_%e119453%_) - (if (symbol? _%e119453%_) - _%e119453%_ - (gx#syntax-local-unwrap _%e119453%_))))) - (let ((_%x119450%_ (_%unwrap119448%_ _%xid119443%_)) - (_%y119451%_ (_%unwrap119448%_ _%yid119444%_))) - (if (gx#stx-eq? _%x119450%_ _%y119451%_) - (if (eq? (_%context119446%_ _%x119450%_) - (_%context119446%_ _%y119451%_)) - (equal? (_%marks119447%_ _%x119450%_) - (_%marks119447%_ _%y119451%_)) + (##unchecked-structure-ref _%e118691%_ '3 '#f '#f) + (##unchecked-structure-ref + _%e118691%_ + '4 + '#f + '#f))))) + (_%unwrap118684%_ + (lambda (_%e118689%_) + (if (symbol? _%e118689%_) + _%e118689%_ + (gx#syntax-local-unwrap _%e118689%_))))) + (let ((_%x118686%_ (_%unwrap118684%_ _%xid118679%_)) + (_%y118687%_ (_%unwrap118684%_ _%yid118680%_))) + (if (gx#stx-eq? _%x118686%_ _%y118687%_) + (if (eq? (_%context118682%_ _%x118686%_) + (_%context118682%_ _%y118687%_)) + (equal? (_%marks118683%_ _%x118686%_) + (_%marks118683%_ _%y118687%_)) '#f) '#f))))) (define gx#underscore? - (lambda (_%stx119441%_) - (if (gx#identifier? _%stx119441%_) - (gx#core-identifier=? _%stx119441%_ '_) + (lambda (_%stx118677%_) + (if (gx#identifier? _%stx118677%_) + (gx#core-identifier=? _%stx118677%_ '_) '#f))) (define gx#ellipsis? - (lambda (_%stx119439%_) - (if (gx#identifier? _%stx119439%_) - (gx#core-identifier=? _%stx119439%_ '...) + (lambda (_%stx118675%_) + (if (gx#identifier? _%stx118675%_) + (gx#core-identifier=? _%stx118675%_ '...) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_%stx119382%_ _%where119383%_) - (let _%lp119385%_ ((_%rest119387%_ (gx#syntax->list _%stx119382%_))) - (let* ((_%rest119388119396%_ _%rest119387%_) - (_%else119390119404%_ (lambda () '#t)) - (_%K119392119417%_ - (lambda (_%rest119407%_ _%hd119408%_) - (if (not (gx#identifier? _%hd119408%_)) - (let () - (gx#raise-syntax-error - '#f - '"Bad identifier" - _%where119383%_ - _%hd119408%_)) - (if (__find (lambda (_%g119410119412%_) + (lambda (_%stx118618%_ _%where118619%_) + (let _%lp118621%_ ((_%rest118623%_ (gx#syntax->list _%stx118618%_))) + (let* ((_%rest118624118632%_ _%rest118623%_) + (_%else118626118640%_ (lambda () '#t)) + (_%K118628118653%_ + (lambda (_%rest118643%_ _%hd118644%_) + (if (not (gx#identifier? _%hd118644%_)) + (gx#raise-syntax-error + '#f + '"Bad identifier" + _%where118619%_ + _%hd118644%_) + (if (__find (lambda (_%g118646118648%_) (gx#bound-identifier=? - _%g119410119412%_ - _%hd119408%_)) - _%rest119407%_) - (let () - (gx#raise-syntax-error - '#f - '"Duplicate identifier" - _%where119383%_ - _%hd119408%_)) - (let () (_%lp119385%_ _%rest119407%_))))))) - (if (##pair? _%rest119388119396%_) - (let ((_%hd119393119420%_ (##car _%rest119388119396%_)) - (_%tl119394119422%_ (##cdr _%rest119388119396%_))) - (let* ((_%hd119425%_ _%hd119393119420%_) - (_%rest119427%_ _%tl119394119422%_)) - (_%K119392119417%_ _%rest119427%_ _%hd119425%_))) - (_%else119390119404%_)))))) + _%g118646118648%_ + _%hd118644%_)) + _%rest118643%_) + (gx#raise-syntax-error + '#f + '"Duplicate identifier" + _%where118619%_ + _%hd118644%_) + (_%lp118621%_ _%rest118643%_)))))) + (if (##pair? _%rest118624118632%_) + (let ((_%hd118629118656%_ (##car _%rest118624118632%_)) + (_%tl118630118658%_ (##cdr _%rest118624118632%_))) + (let* ((_%hd118661%_ _%hd118629118656%_) + (_%rest118663%_ _%tl118630118658%_)) + (_%K118628118653%_ _%rest118663%_ _%hd118661%_))) + (_%else118626118640%_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_%stx119432%_) - (let ((_%where119434%_ _%stx119432%_)) - (gx#check-duplicate-identifiers__% _%stx119432%_ _%where119434%_)))) + (lambda (_%stx118668%_) + (let ((_%where118670%_ _%stx118668%_)) + (gx#check-duplicate-identifiers__% _%stx118668%_ _%where118670%_)))) (define gx#check-duplicate-identifiers - (lambda _g122074_ - (let ((_g122073_ (##length _g122074_))) - (cond ((##fx= _g122073_ 1) - (apply (lambda (_%stx119432%_) - (gx#check-duplicate-identifiers__0 _%stx119432%_)) - _g122074_)) - ((##fx= _g122073_ 2) - (apply (lambda (_%stx119436%_ _%where119437%_) - (gx#check-duplicate-identifiers__% - _%stx119436%_ - _%where119437%_)) - _g122074_)) + (lambda _g121310_ + (let ((_g121309_ (##length _g121310_))) + (cond ((##fx= _g121309_ 1) + (apply gx#check-duplicate-identifiers__0 _g121310_)) + ((##fx= _g121309_ 2) + (apply gx#check-duplicate-identifiers__% _g121310_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g122074_)))))) + _g121310_)))))) (define gx#core-bind-values? - (lambda (_%stx119374%_) + (lambda (_%stx118610%_) (gx#stx-andmap - (lambda (_%x119376%_) - (let ((_%$e119378%_ (gx#identifier? _%x119376%_))) - (if _%$e119378%_ _%$e119378%_ (gx#stx-false? _%x119376%_)))) - _%stx119374%_))) + (lambda (_%x118612%_) + (let ((_%$e118614%_ (gx#identifier? _%x118612%_))) + (if _%$e118614%_ _%$e118614%_ (gx#stx-false? _%x118612%_)))) + _%stx118610%_))) (define gx#core-bind-values!__% - (lambda (_%stx119338%_ _%rebind?119339%_ _%phi119340%_ _%ctx119341%_) + (lambda (_%stx118574%_ _%rebind?118575%_ _%phi118576%_ _%ctx118577%_) (gx#stx-for-each1 - (lambda (_%id119343%_) - (if (gx#identifier? _%id119343%_) + (lambda (_%id118579%_) + (if (gx#identifier? _%id118579%_) (gx#core-bind-runtime!__% - _%id119343%_ - _%rebind?119339%_ - _%phi119340%_ - _%ctx119341%_) + _%id118579%_ + _%rebind?118575%_ + _%phi118576%_ + _%ctx118577%_) '#!void)) - _%stx119338%_))) + _%stx118574%_))) (define gx#core-bind-values!__0 - (lambda (_%stx119348%_) - (let* ((_%rebind?119350%_ '#f) - (_%phi119352%_ (gx#current-expander-phi)) - (_%ctx119354%_ (gx#current-expander-context))) + (lambda (_%stx118584%_) + (let* ((_%rebind?118586%_ '#f) + (_%phi118588%_ (gx#current-expander-phi)) + (_%ctx118590%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx119348%_ - _%rebind?119350%_ - _%phi119352%_ - _%ctx119354%_)))) + _%stx118584%_ + _%rebind?118586%_ + _%phi118588%_ + _%ctx118590%_)))) (define gx#core-bind-values!__1 - (lambda (_%stx119356%_ _%rebind?119357%_) - (let* ((_%phi119359%_ (gx#current-expander-phi)) - (_%ctx119361%_ (gx#current-expander-context))) + (lambda (_%stx118592%_ _%rebind?118593%_) + (let* ((_%phi118595%_ (gx#current-expander-phi)) + (_%ctx118597%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx119356%_ - _%rebind?119357%_ - _%phi119359%_ - _%ctx119361%_)))) + _%stx118592%_ + _%rebind?118593%_ + _%phi118595%_ + _%ctx118597%_)))) (define gx#core-bind-values!__2 - (lambda (_%stx119363%_ _%rebind?119364%_ _%phi119365%_) - (let ((_%ctx119367%_ (gx#current-expander-context))) + (lambda (_%stx118599%_ _%rebind?118600%_ _%phi118601%_) + (let ((_%ctx118603%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx119363%_ - _%rebind?119364%_ - _%phi119365%_ - _%ctx119367%_)))) + _%stx118599%_ + _%rebind?118600%_ + _%phi118601%_ + _%ctx118603%_)))) (define gx#core-bind-values! - (lambda _g122076_ - (let ((_g122075_ (##length _g122076_))) - (cond ((##fx= _g122075_ 1) - (apply (lambda (_%stx119348%_) - (gx#core-bind-values!__0 _%stx119348%_)) - _g122076_)) - ((##fx= _g122075_ 2) - (apply (lambda (_%stx119356%_ _%rebind?119357%_) - (gx#core-bind-values!__1 - _%stx119356%_ - _%rebind?119357%_)) - _g122076_)) - ((##fx= _g122075_ 3) - (apply (lambda (_%stx119363%_ _%rebind?119364%_ _%phi119365%_) - (gx#core-bind-values!__2 - _%stx119363%_ - _%rebind?119364%_ - _%phi119365%_)) - _g122076_)) - ((##fx= _g122075_ 4) - (apply (lambda (_%stx119369%_ - _%rebind?119370%_ - _%phi119371%_ - _%ctx119372%_) - (gx#core-bind-values!__% - _%stx119369%_ - _%rebind?119370%_ - _%phi119371%_ - _%ctx119372%_)) - _g122076_)) + (lambda _g121312_ + (let ((_g121311_ (##length _g121312_))) + (cond ((##fx= _g121311_ 1) (apply gx#core-bind-values!__0 _g121312_)) + ((##fx= _g121311_ 2) (apply gx#core-bind-values!__1 _g121312_)) + ((##fx= _g121311_ 3) (apply gx#core-bind-values!__2 _g121312_)) + ((##fx= _g121311_ 4) (apply gx#core-bind-values!__% _g121312_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g122076_)))))) + _g121312_)))))) (define gx#core-quote-bind-values - (lambda (_%stx119333%_) + (lambda (_%stx118569%_) (gx#stx-map1 - (lambda (_%x119335%_) - (if (gx#identifier? _%x119335%_) - (gx#core-quote-syntax__0 _%x119335%_) + (lambda (_%x118571%_) + (if (gx#identifier? _%x118571%_) + (gx#core-quote-syntax__0 _%x118571%_) '#f)) - _%stx119333%_))) + _%stx118569%_))) (define gx#core-runtime-ref? - (lambda (_%stx119326%_) - (if (gx#identifier? _%stx119326%_) - (let* ((_%bind119328%_ (gx#resolve-identifier__0 _%stx119326%_)) - (_%$e119330%_ (not _%bind119328%_))) - (if _%$e119330%_ - _%$e119330%_ + (lambda (_%stx118562%_) + (if (gx#identifier? _%stx118562%_) + (let* ((_%bind118564%_ (gx#resolve-identifier__0 _%stx118562%_)) + (_%$e118566%_ (not _%bind118564%_))) + (if _%$e118566%_ + _%$e118566%_ (##structure-instance-of? - _%bind119328%_ + _%bind118564%_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_%id119315%_ _%form119316%_) - (let ((_%bind119318%_ (gx#resolve-identifier__0 _%id119315%_))) - (if (##structure-instance-of? _%bind119318%_ 'gx#runtime-binding::t) - (let () (gx#core-quote-syntax__0 _%id119315%_)) - (if (not _%bind119318%_) - (let () - (if (or (gx#core-context-rebind?__% - (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _%id119315%_))) - (gx#core-quote-syntax__0 _%id119315%_) - (gx#raise-syntax-error - '#f - '"Reference to unbound identifier" - _%form119316%_ - _%id119315%_))) - (let () - (gx#raise-syntax-error - '#f - '"Bad syntax; not a runtime binding" - _%form119316%_ - _%id119315%_))))))) + (lambda (_%id118551%_ _%form118552%_) + (let ((_%bind118554%_ (gx#resolve-identifier__0 _%id118551%_))) + (if (##structure-instance-of? _%bind118554%_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _%id118551%_) + (if (not _%bind118554%_) + (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) + (gx#core-extern-symbol? (gx#stx-e _%id118551%_))) + (gx#core-quote-syntax__0 _%id118551%_) + (gx#raise-syntax-error + '#f + '"Reference to unbound identifier" + _%form118552%_ + _%id118551%_)) + (gx#raise-syntax-error + '#f + '"Bad syntax; not a runtime binding" + _%form118552%_ + _%id118551%_)))))) (define gx#core-bind-runtime!__% - (lambda (_%id119270%_ _%rebind?119271%_ _%phi119272%_ _%ctx119273%_) - (let* ((_%key119275%_ (gx#core-identifier-key _%id119270%_)) - (_%eid119277%_ + (lambda (_%id118506%_ _%rebind?118507%_ _%phi118508%_ _%ctx118509%_) + (let* ((_%key118511%_ (gx#core-identifier-key _%id118506%_)) + (_%eid118513%_ (gx#make-binding-id__% - _%key119275%_ + _%key118511%_ '#f - _%phi119272%_ - _%ctx119273%_)) - (_%bind119283%_ + _%phi118508%_ + _%ctx118509%_)) + (_%bind118519%_ (if (##structure-instance-of? - _%ctx119273%_ + _%ctx118509%_ 'gx#module-context::t) - (let () - (##structure - gx#module-binding::t - _%eid119277%_ - _%key119275%_ - _%phi119272%_ - _%ctx119273%_)) + (##structure + gx#module-binding::t + _%eid118513%_ + _%key118511%_ + _%phi118508%_ + _%ctx118509%_) (if (##structure-instance-of? - _%ctx119273%_ + _%ctx118509%_ 'gx#top-context::t) - (let () - (##structure - gx#top-binding::t - _%eid119277%_ - _%key119275%_ - _%phi119272%_)) + (##structure + gx#top-binding::t + _%eid118513%_ + _%key118511%_ + _%phi118508%_) (if (##structure-instance-of? - _%ctx119273%_ + _%ctx118509%_ 'gx#local-context::t) - (let () - (##structure - gx#local-binding::t - _%eid119277%_ - _%key119275%_ - _%phi119272%_)) - (let () - (##structure - gx#runtime-binding::t - _%eid119277%_ - _%key119275%_ - _%phi119272%_))))))) + (##structure + gx#local-binding::t + _%eid118513%_ + _%key118511%_ + _%phi118508%_) + (##structure + gx#runtime-binding::t + _%eid118513%_ + _%key118511%_ + _%phi118508%_)))))) (gx#bind-identifier!__% - _%id119270%_ - _%bind119283%_ - _%rebind?119271%_ - _%phi119272%_ - _%ctx119273%_)))) + _%id118506%_ + _%bind118519%_ + _%rebind?118507%_ + _%phi118508%_ + _%ctx118509%_)))) (define gx#core-bind-runtime!__0 - (lambda (_%id119289%_) - (let* ((_%rebind?119291%_ '#f) - (_%phi119293%_ (gx#current-expander-phi)) - (_%ctx119295%_ (gx#current-expander-context))) + (lambda (_%id118525%_) + (let* ((_%rebind?118527%_ '#f) + (_%phi118529%_ (gx#current-expander-phi)) + (_%ctx118531%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id119289%_ - _%rebind?119291%_ - _%phi119293%_ - _%ctx119295%_)))) + _%id118525%_ + _%rebind?118527%_ + _%phi118529%_ + _%ctx118531%_)))) (define gx#core-bind-runtime!__1 - (lambda (_%id119297%_ _%rebind?119298%_) - (let* ((_%phi119300%_ (gx#current-expander-phi)) - (_%ctx119302%_ (gx#current-expander-context))) + (lambda (_%id118533%_ _%rebind?118534%_) + (let* ((_%phi118536%_ (gx#current-expander-phi)) + (_%ctx118538%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id119297%_ - _%rebind?119298%_ - _%phi119300%_ - _%ctx119302%_)))) + _%id118533%_ + _%rebind?118534%_ + _%phi118536%_ + _%ctx118538%_)))) (define gx#core-bind-runtime!__2 - (lambda (_%id119304%_ _%rebind?119305%_ _%phi119306%_) - (let ((_%ctx119308%_ (gx#current-expander-context))) + (lambda (_%id118540%_ _%rebind?118541%_ _%phi118542%_) + (let ((_%ctx118544%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id119304%_ - _%rebind?119305%_ - _%phi119306%_ - _%ctx119308%_)))) + _%id118540%_ + _%rebind?118541%_ + _%phi118542%_ + _%ctx118544%_)))) (define gx#core-bind-runtime! - (lambda _g122078_ - (let ((_g122077_ (##length _g122078_))) - (cond ((##fx= _g122077_ 1) - (apply (lambda (_%id119289%_) - (gx#core-bind-runtime!__0 _%id119289%_)) - _g122078_)) - ((##fx= _g122077_ 2) - (apply (lambda (_%id119297%_ _%rebind?119298%_) - (gx#core-bind-runtime!__1 - _%id119297%_ - _%rebind?119298%_)) - _g122078_)) - ((##fx= _g122077_ 3) - (apply (lambda (_%id119304%_ _%rebind?119305%_ _%phi119306%_) - (gx#core-bind-runtime!__2 - _%id119304%_ - _%rebind?119305%_ - _%phi119306%_)) - _g122078_)) - ((##fx= _g122077_ 4) - (apply (lambda (_%id119310%_ - _%rebind?119311%_ - _%phi119312%_ - _%ctx119313%_) - (gx#core-bind-runtime!__% - _%id119310%_ - _%rebind?119311%_ - _%phi119312%_ - _%ctx119313%_)) - _g122078_)) + (lambda _g121314_ + (let ((_g121313_ (##length _g121314_))) + (cond ((##fx= _g121313_ 1) + (apply gx#core-bind-runtime!__0 _g121314_)) + ((##fx= _g121313_ 2) + (apply gx#core-bind-runtime!__1 _g121314_)) + ((##fx= _g121313_ 3) + (apply gx#core-bind-runtime!__2 _g121314_)) + ((##fx= _g121313_ 4) + (apply gx#core-bind-runtime!__% _g121314_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g122078_)))))) + _g121314_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_%id119222%_ - _%eid119223%_ - _%rebind?119224%_ - _%phi119225%_ - _%ctx119226%_) - (let* ((_%key119228%_ (gx#core-identifier-key _%id119222%_)) - (_%bind119233%_ + (lambda (_%id118458%_ + _%eid118459%_ + _%rebind?118460%_ + _%phi118461%_ + _%ctx118462%_) + (let* ((_%key118464%_ (gx#core-identifier-key _%id118458%_)) + (_%bind118469%_ (if (##structure-instance-of? - _%ctx119226%_ + _%ctx118462%_ 'gx#module-context::t) - (let () - (##structure - gx#module-binding::t - _%eid119223%_ - _%key119228%_ - _%phi119225%_ - _%ctx119226%_)) + (##structure + gx#module-binding::t + _%eid118459%_ + _%key118464%_ + _%phi118461%_ + _%ctx118462%_) (if (##structure-instance-of? - _%ctx119226%_ + _%ctx118462%_ 'gx#top-context::t) - (let () - (##structure - gx#top-binding::t - _%eid119223%_ - _%key119228%_ - _%phi119225%_)) - (let () - (##structure - gx#runtime-binding::t - _%eid119223%_ - _%key119228%_ - _%phi119225%_)))))) + (##structure + gx#top-binding::t + _%eid118459%_ + _%key118464%_ + _%phi118461%_) + (##structure + gx#runtime-binding::t + _%eid118459%_ + _%key118464%_ + _%phi118461%_))))) (gx#bind-identifier!__% - _%id119222%_ - _%bind119233%_ - _%rebind?119224%_ - _%phi119225%_ - _%ctx119226%_)))) + _%id118458%_ + _%bind118469%_ + _%rebind?118460%_ + _%phi118461%_ + _%ctx118462%_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_%id119239%_ _%eid119240%_) - (let* ((_%rebind?119242%_ '#f) - (_%phi119244%_ (gx#current-expander-phi)) - (_%ctx119246%_ (gx#current-expander-context))) + (lambda (_%id118475%_ _%eid118476%_) + (let* ((_%rebind?118478%_ '#f) + (_%phi118480%_ (gx#current-expander-phi)) + (_%ctx118482%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id119239%_ - _%eid119240%_ - _%rebind?119242%_ - _%phi119244%_ - _%ctx119246%_)))) + _%id118475%_ + _%eid118476%_ + _%rebind?118478%_ + _%phi118480%_ + _%ctx118482%_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_%id119248%_ _%eid119249%_ _%rebind?119250%_) - (let* ((_%phi119252%_ (gx#current-expander-phi)) - (_%ctx119254%_ (gx#current-expander-context))) + (lambda (_%id118484%_ _%eid118485%_ _%rebind?118486%_) + (let* ((_%phi118488%_ (gx#current-expander-phi)) + (_%ctx118490%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id119248%_ - _%eid119249%_ - _%rebind?119250%_ - _%phi119252%_ - _%ctx119254%_)))) + _%id118484%_ + _%eid118485%_ + _%rebind?118486%_ + _%phi118488%_ + _%ctx118490%_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_%id119256%_ _%eid119257%_ _%rebind?119258%_ _%phi119259%_) - (let ((_%ctx119261%_ (gx#current-expander-context))) + (lambda (_%id118492%_ _%eid118493%_ _%rebind?118494%_ _%phi118495%_) + (let ((_%ctx118497%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id119256%_ - _%eid119257%_ - _%rebind?119258%_ - _%phi119259%_ - _%ctx119261%_)))) + _%id118492%_ + _%eid118493%_ + _%rebind?118494%_ + _%phi118495%_ + _%ctx118497%_)))) (define gx#core-bind-runtime-reference! - (lambda _g122080_ - (let ((_g122079_ (##length _g122080_))) - (cond ((##fx= _g122079_ 2) - (apply (lambda (_%id119239%_ _%eid119240%_) - (gx#core-bind-runtime-reference!__0 - _%id119239%_ - _%eid119240%_)) - _g122080_)) - ((##fx= _g122079_ 3) - (apply (lambda (_%id119248%_ _%eid119249%_ _%rebind?119250%_) - (gx#core-bind-runtime-reference!__1 - _%id119248%_ - _%eid119249%_ - _%rebind?119250%_)) - _g122080_)) - ((##fx= _g122079_ 4) - (apply (lambda (_%id119256%_ - _%eid119257%_ - _%rebind?119258%_ - _%phi119259%_) - (gx#core-bind-runtime-reference!__2 - _%id119256%_ - _%eid119257%_ - _%rebind?119258%_ - _%phi119259%_)) - _g122080_)) - ((##fx= _g122079_ 5) - (apply (lambda (_%id119263%_ - _%eid119264%_ - _%rebind?119265%_ - _%phi119266%_ - _%ctx119267%_) - (gx#core-bind-runtime-reference!__% - _%id119263%_ - _%eid119264%_ - _%rebind?119265%_ - _%phi119266%_ - _%ctx119267%_)) - _g122080_)) + (lambda _g121316_ + (let ((_g121315_ (##length _g121316_))) + (cond ((##fx= _g121315_ 2) + (apply gx#core-bind-runtime-reference!__0 _g121316_)) + ((##fx= _g121315_ 3) + (apply gx#core-bind-runtime-reference!__1 _g121316_)) + ((##fx= _g121315_ 4) + (apply gx#core-bind-runtime-reference!__2 _g121316_)) + ((##fx= _g121315_ 5) + (apply gx#core-bind-runtime-reference!__% _g121316_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g122080_)))))) + _g121316_)))))) (define gx#core-bind-extern!__% - (lambda (_%id119182%_ - _%eid119183%_ - _%rebind?119184%_ - _%phi119185%_ - _%ctx119186%_) + (lambda (_%id118418%_ + _%eid118419%_ + _%rebind?118420%_ + _%phi118421%_ + _%ctx118422%_) (gx#bind-identifier!__% - _%id119182%_ + _%id118418%_ (##structure gx#extern-binding::t - _%eid119183%_ - (gx#core-identifier-key _%id119182%_) - _%phi119185%_) - _%rebind?119184%_ - _%phi119185%_ - _%ctx119186%_))) + _%eid118419%_ + (gx#core-identifier-key _%id118418%_) + _%phi118421%_) + _%rebind?118420%_ + _%phi118421%_ + _%ctx118422%_))) (define gx#core-bind-extern!__0 - (lambda (_%id119191%_ _%eid119192%_) - (let* ((_%rebind?119194%_ '#f) - (_%phi119196%_ (gx#current-expander-phi)) - (_%ctx119198%_ (gx#current-expander-context))) + (lambda (_%id118427%_ _%eid118428%_) + (let* ((_%rebind?118430%_ '#f) + (_%phi118432%_ (gx#current-expander-phi)) + (_%ctx118434%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id119191%_ - _%eid119192%_ - _%rebind?119194%_ - _%phi119196%_ - _%ctx119198%_)))) + _%id118427%_ + _%eid118428%_ + _%rebind?118430%_ + _%phi118432%_ + _%ctx118434%_)))) (define gx#core-bind-extern!__1 - (lambda (_%id119200%_ _%eid119201%_ _%rebind?119202%_) - (let* ((_%phi119204%_ (gx#current-expander-phi)) - (_%ctx119206%_ (gx#current-expander-context))) + (lambda (_%id118436%_ _%eid118437%_ _%rebind?118438%_) + (let* ((_%phi118440%_ (gx#current-expander-phi)) + (_%ctx118442%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id119200%_ - _%eid119201%_ - _%rebind?119202%_ - _%phi119204%_ - _%ctx119206%_)))) + _%id118436%_ + _%eid118437%_ + _%rebind?118438%_ + _%phi118440%_ + _%ctx118442%_)))) (define gx#core-bind-extern!__2 - (lambda (_%id119208%_ _%eid119209%_ _%rebind?119210%_ _%phi119211%_) - (let ((_%ctx119213%_ (gx#current-expander-context))) + (lambda (_%id118444%_ _%eid118445%_ _%rebind?118446%_ _%phi118447%_) + (let ((_%ctx118449%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id119208%_ - _%eid119209%_ - _%rebind?119210%_ - _%phi119211%_ - _%ctx119213%_)))) + _%id118444%_ + _%eid118445%_ + _%rebind?118446%_ + _%phi118447%_ + _%ctx118449%_)))) (define gx#core-bind-extern! - (lambda _g122082_ - (let ((_g122081_ (##length _g122082_))) - (cond ((##fx= _g122081_ 2) - (apply (lambda (_%id119191%_ _%eid119192%_) - (gx#core-bind-extern!__0 _%id119191%_ _%eid119192%_)) - _g122082_)) - ((##fx= _g122081_ 3) - (apply (lambda (_%id119200%_ _%eid119201%_ _%rebind?119202%_) - (gx#core-bind-extern!__1 - _%id119200%_ - _%eid119201%_ - _%rebind?119202%_)) - _g122082_)) - ((##fx= _g122081_ 4) - (apply (lambda (_%id119208%_ - _%eid119209%_ - _%rebind?119210%_ - _%phi119211%_) - (gx#core-bind-extern!__2 - _%id119208%_ - _%eid119209%_ - _%rebind?119210%_ - _%phi119211%_)) - _g122082_)) - ((##fx= _g122081_ 5) - (apply (lambda (_%id119215%_ - _%eid119216%_ - _%rebind?119217%_ - _%phi119218%_ - _%ctx119219%_) - (gx#core-bind-extern!__% - _%id119215%_ - _%eid119216%_ - _%rebind?119217%_ - _%phi119218%_ - _%ctx119219%_)) - _g122082_)) + (lambda _g121318_ + (let ((_g121317_ (##length _g121318_))) + (cond ((##fx= _g121317_ 2) (apply gx#core-bind-extern!__0 _g121318_)) + ((##fx= _g121317_ 3) (apply gx#core-bind-extern!__1 _g121318_)) + ((##fx= _g121317_ 4) (apply gx#core-bind-extern!__2 _g121318_)) + ((##fx= _g121317_ 5) (apply gx#core-bind-extern!__% _g121318_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g122082_)))))) + _g121318_)))))) (define gx#core-bind-syntax!__% - (lambda (_%id119136%_ - _%e119137%_ - _%rebind?119138%_ - _%phi119139%_ - _%ctx119140%_) + (lambda (_%id118372%_ + _%e118373%_ + _%rebind?118374%_ + _%phi118375%_ + _%ctx118376%_) (gx#bind-identifier!__% - _%id119136%_ - (let ((_%key119145%_ (gx#core-identifier-key _%id119136%_)) - (_%e119146%_ - (if (or (##structure-instance-of? _%e119137%_ 'gx#expander::t) + _%id118372%_ + (let ((_%key118381%_ (gx#core-identifier-key _%id118372%_)) + (_%e118382%_ + (if (or (##structure-instance-of? _%e118373%_ 'gx#expander::t) (##structure-instance-of? - _%e119137%_ + _%e118373%_ 'gx#expander-context::t)) - _%e119137%_ + _%e118373%_ (##structure gx#user-expander::t - _%e119137%_ - _%ctx119140%_ - _%phi119139%_)))) + _%e118373%_ + _%ctx118376%_ + _%phi118375%_)))) (##structure gx#syntax-binding::t (gx#make-binding-id__% - _%key119145%_ + _%key118381%_ '#t - _%phi119139%_ - _%ctx119140%_) - _%key119145%_ - _%phi119139%_ - _%e119146%_)) - _%rebind?119138%_ - _%phi119139%_ - _%ctx119140%_))) + _%phi118375%_ + _%ctx118376%_) + _%key118381%_ + _%phi118375%_ + _%e118382%_)) + _%rebind?118374%_ + _%phi118375%_ + _%ctx118376%_))) (define gx#core-bind-syntax!__0 - (lambda (_%id119151%_ _%e119152%_) - (let* ((_%rebind?119154%_ '#f) - (_%phi119156%_ (gx#current-expander-phi)) - (_%ctx119158%_ (gx#current-expander-context))) + (lambda (_%id118387%_ _%e118388%_) + (let* ((_%rebind?118390%_ '#f) + (_%phi118392%_ (gx#current-expander-phi)) + (_%ctx118394%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id119151%_ - _%e119152%_ - _%rebind?119154%_ - _%phi119156%_ - _%ctx119158%_)))) + _%id118387%_ + _%e118388%_ + _%rebind?118390%_ + _%phi118392%_ + _%ctx118394%_)))) (define gx#core-bind-syntax!__1 - (lambda (_%id119160%_ _%e119161%_ _%rebind?119162%_) - (let* ((_%phi119164%_ (gx#current-expander-phi)) - (_%ctx119166%_ (gx#current-expander-context))) + (lambda (_%id118396%_ _%e118397%_ _%rebind?118398%_) + (let* ((_%phi118400%_ (gx#current-expander-phi)) + (_%ctx118402%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id119160%_ - _%e119161%_ - _%rebind?119162%_ - _%phi119164%_ - _%ctx119166%_)))) + _%id118396%_ + _%e118397%_ + _%rebind?118398%_ + _%phi118400%_ + _%ctx118402%_)))) (define gx#core-bind-syntax!__2 - (lambda (_%id119168%_ _%e119169%_ _%rebind?119170%_ _%phi119171%_) - (let ((_%ctx119173%_ (gx#current-expander-context))) + (lambda (_%id118404%_ _%e118405%_ _%rebind?118406%_ _%phi118407%_) + (let ((_%ctx118409%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id119168%_ - _%e119169%_ - _%rebind?119170%_ - _%phi119171%_ - _%ctx119173%_)))) + _%id118404%_ + _%e118405%_ + _%rebind?118406%_ + _%phi118407%_ + _%ctx118409%_)))) (define gx#core-bind-syntax! - (lambda _g122084_ - (let ((_g122083_ (##length _g122084_))) - (cond ((##fx= _g122083_ 2) - (apply (lambda (_%id119151%_ _%e119152%_) - (gx#core-bind-syntax!__0 _%id119151%_ _%e119152%_)) - _g122084_)) - ((##fx= _g122083_ 3) - (apply (lambda (_%id119160%_ _%e119161%_ _%rebind?119162%_) - (gx#core-bind-syntax!__1 - _%id119160%_ - _%e119161%_ - _%rebind?119162%_)) - _g122084_)) - ((##fx= _g122083_ 4) - (apply (lambda (_%id119168%_ - _%e119169%_ - _%rebind?119170%_ - _%phi119171%_) - (gx#core-bind-syntax!__2 - _%id119168%_ - _%e119169%_ - _%rebind?119170%_ - _%phi119171%_)) - _g122084_)) - ((##fx= _g122083_ 5) - (apply (lambda (_%id119175%_ - _%e119176%_ - _%rebind?119177%_ - _%phi119178%_ - _%ctx119179%_) - (gx#core-bind-syntax!__% - _%id119175%_ - _%e119176%_ - _%rebind?119177%_ - _%phi119178%_ - _%ctx119179%_)) - _g122084_)) + (lambda _g121320_ + (let ((_g121319_ (##length _g121320_))) + (cond ((##fx= _g121319_ 2) (apply gx#core-bind-syntax!__0 _g121320_)) + ((##fx= _g121319_ 3) (apply gx#core-bind-syntax!__1 _g121320_)) + ((##fx= _g121319_ 4) (apply gx#core-bind-syntax!__2 _g121320_)) + ((##fx= _g121319_ 5) (apply gx#core-bind-syntax!__% _g121320_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g122084_)))))) + _g121320_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_%id119119%_ _%e119120%_ _%rebind?119121%_) + (lambda (_%id118355%_ _%e118356%_ _%rebind?118357%_) (gx#core-bind-syntax!__% - _%id119119%_ - _%e119120%_ - _%rebind?119121%_ + _%id118355%_ + _%e118356%_ + _%rebind?118357%_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_%id119126%_ _%e119127%_) - (let ((_%rebind?119129%_ '#f)) + (lambda (_%id118362%_ _%e118363%_) + (let ((_%rebind?118365%_ '#f)) (gx#core-bind-root-syntax!__% - _%id119126%_ - _%e119127%_ - _%rebind?119129%_)))) + _%id118362%_ + _%e118363%_ + _%rebind?118365%_)))) (define gx#core-bind-root-syntax! - (lambda _g122086_ - (let ((_g122085_ (##length _g122086_))) - (cond ((##fx= _g122085_ 2) - (apply (lambda (_%id119126%_ _%e119127%_) - (gx#core-bind-root-syntax!__0 - _%id119126%_ - _%e119127%_)) - _g122086_)) - ((##fx= _g122085_ 3) - (apply (lambda (_%id119131%_ _%e119132%_ _%rebind?119133%_) - (gx#core-bind-root-syntax!__% - _%id119131%_ - _%e119132%_ - _%rebind?119133%_)) - _g122086_)) + (lambda _g121322_ + (let ((_g121321_ (##length _g121322_))) + (cond ((##fx= _g121321_ 2) + (apply gx#core-bind-root-syntax!__0 _g121322_)) + ((##fx= _g121321_ 3) + (apply gx#core-bind-root-syntax!__% _g121322_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g122086_)))))) + _g121322_)))))) (define gx#core-bind-alias!__% - (lambda (_%id119077%_ - _%alias-id119078%_ - _%rebind?119079%_ - _%phi119080%_ - _%ctx119081%_) + (lambda (_%id118313%_ + _%alias-id118314%_ + _%rebind?118315%_ + _%phi118316%_ + _%ctx118317%_) (gx#bind-identifier!__% - _%id119077%_ - (let ((_%key119083%_ (gx#core-identifier-key _%id119077%_))) + _%id118313%_ + (let ((_%key118319%_ (gx#core-identifier-key _%id118313%_))) (##structure gx#alias-binding::t (gx#make-binding-id__% - _%key119083%_ + _%key118319%_ '#t - _%phi119080%_ - _%ctx119081%_) - _%key119083%_ - _%phi119080%_ - _%alias-id119078%_)) - _%rebind?119079%_ - _%phi119080%_ - _%ctx119081%_))) + _%phi118316%_ + _%ctx118317%_) + _%key118319%_ + _%phi118316%_ + _%alias-id118314%_)) + _%rebind?118315%_ + _%phi118316%_ + _%ctx118317%_))) (define gx#core-bind-alias!__0 - (lambda (_%id119088%_ _%alias-id119089%_) - (let* ((_%rebind?119091%_ '#f) - (_%phi119093%_ (gx#current-expander-phi)) - (_%ctx119095%_ (gx#current-expander-context))) + (lambda (_%id118324%_ _%alias-id118325%_) + (let* ((_%rebind?118327%_ '#f) + (_%phi118329%_ (gx#current-expander-phi)) + (_%ctx118331%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id119088%_ - _%alias-id119089%_ - _%rebind?119091%_ - _%phi119093%_ - _%ctx119095%_)))) + _%id118324%_ + _%alias-id118325%_ + _%rebind?118327%_ + _%phi118329%_ + _%ctx118331%_)))) (define gx#core-bind-alias!__1 - (lambda (_%id119097%_ _%alias-id119098%_ _%rebind?119099%_) - (let* ((_%phi119101%_ (gx#current-expander-phi)) - (_%ctx119103%_ (gx#current-expander-context))) + (lambda (_%id118333%_ _%alias-id118334%_ _%rebind?118335%_) + (let* ((_%phi118337%_ (gx#current-expander-phi)) + (_%ctx118339%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id119097%_ - _%alias-id119098%_ - _%rebind?119099%_ - _%phi119101%_ - _%ctx119103%_)))) + _%id118333%_ + _%alias-id118334%_ + _%rebind?118335%_ + _%phi118337%_ + _%ctx118339%_)))) (define gx#core-bind-alias!__2 - (lambda (_%id119105%_ _%alias-id119106%_ _%rebind?119107%_ _%phi119108%_) - (let ((_%ctx119110%_ (gx#current-expander-context))) + (lambda (_%id118341%_ _%alias-id118342%_ _%rebind?118343%_ _%phi118344%_) + (let ((_%ctx118346%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id119105%_ - _%alias-id119106%_ - _%rebind?119107%_ - _%phi119108%_ - _%ctx119110%_)))) + _%id118341%_ + _%alias-id118342%_ + _%rebind?118343%_ + _%phi118344%_ + _%ctx118346%_)))) (define gx#core-bind-alias! - (lambda _g122088_ - (let ((_g122087_ (##length _g122088_))) - (cond ((##fx= _g122087_ 2) - (apply (lambda (_%id119088%_ _%alias-id119089%_) - (gx#core-bind-alias!__0 - _%id119088%_ - _%alias-id119089%_)) - _g122088_)) - ((##fx= _g122087_ 3) - (apply (lambda (_%id119097%_ - _%alias-id119098%_ - _%rebind?119099%_) - (gx#core-bind-alias!__1 - _%id119097%_ - _%alias-id119098%_ - _%rebind?119099%_)) - _g122088_)) - ((##fx= _g122087_ 4) - (apply (lambda (_%id119105%_ - _%alias-id119106%_ - _%rebind?119107%_ - _%phi119108%_) - (gx#core-bind-alias!__2 - _%id119105%_ - _%alias-id119106%_ - _%rebind?119107%_ - _%phi119108%_)) - _g122088_)) - ((##fx= _g122087_ 5) - (apply (lambda (_%id119112%_ - _%alias-id119113%_ - _%rebind?119114%_ - _%phi119115%_ - _%ctx119116%_) - (gx#core-bind-alias!__% - _%id119112%_ - _%alias-id119113%_ - _%rebind?119114%_ - _%phi119115%_ - _%ctx119116%_)) - _g122088_)) + (lambda _g121324_ + (let ((_g121323_ (##length _g121324_))) + (cond ((##fx= _g121323_ 2) (apply gx#core-bind-alias!__0 _g121324_)) + ((##fx= _g121323_ 3) (apply gx#core-bind-alias!__1 _g121324_)) + ((##fx= _g121323_ 4) (apply gx#core-bind-alias!__2 _g121324_)) + ((##fx= _g121323_ 5) (apply gx#core-bind-alias!__% _g121324_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g122088_)))))) + _g121324_)))))) (define gx#make-binding-id__% - (lambda (_%key119027%_ _%syntax?119028%_ _%phi119029%_ _%ctx119030%_) - (if (uninterned-symbol? _%key119027%_) - (let () (##gensym 'L)) - (if (pair? _%key119027%_) - (let () (gensym (car _%key119027%_))) - (if (##structure-instance-of? _%ctx119030%_ 'gx#top-context::t) - (let ((_%ns119035%_ - (gx#core-context-namespace__% _%ctx119030%_))) - (if (and (fxzero? _%phi119029%_) (not _%syntax?119028%_)) - (let () - (if _%ns119035%_ - (make-symbol__1 - _%ns119035%_ - '"#" - _%key119027%_) - _%key119027%_)) - (if _%syntax?119028%_ - (let () - (make-symbol__1 - (let ((_%$e119039%_ _%ns119035%_)) - (if _%$e119039%_ _%$e119039%_ '"")) - '"[:" - (number->string _%phi119029%_) - '":]#" - _%key119027%_)) - (let () - (make-symbol__1 - (let ((_%$e119043%_ _%ns119035%_)) - (if _%$e119043%_ _%$e119043%_ '"")) - '"[" - (number->string _%phi119029%_) - '"]#" - _%key119027%_))))) - (let () (gensym _%key119027%_))))))) + (lambda (_%key118263%_ _%syntax?118264%_ _%phi118265%_ _%ctx118266%_) + (if (uninterned-symbol? _%key118263%_) + (##gensym 'L) + (if (pair? _%key118263%_) + (gensym (car _%key118263%_)) + (if (##structure-instance-of? _%ctx118266%_ 'gx#top-context::t) + (let ((_%ns118271%_ + (gx#core-context-namespace__% _%ctx118266%_))) + (if (and (fxzero? _%phi118265%_) (not _%syntax?118264%_)) + (if _%ns118271%_ + (make-symbol__1 _%ns118271%_ '"#" _%key118263%_) + _%key118263%_) + (if _%syntax?118264%_ + (make-symbol__1 + (let ((_%$e118275%_ _%ns118271%_)) + (if _%$e118275%_ _%$e118275%_ '"")) + '"[:" + (number->string _%phi118265%_) + '":]#" + _%key118263%_) + (make-symbol__1 + (let ((_%$e118279%_ _%ns118271%_)) + (if _%$e118279%_ _%$e118279%_ '"")) + '"[" + (number->string _%phi118265%_) + '"]#" + _%key118263%_)))) + (gensym _%key118263%_)))))) (define gx#make-binding-id__0 - (lambda (_%key119050%_) - (let* ((_%syntax?119052%_ '#f) - (_%phi119054%_ (gx#current-expander-phi)) - (_%ctx119056%_ (gx#current-expander-context))) + (lambda (_%key118286%_) + (let* ((_%syntax?118288%_ '#f) + (_%phi118290%_ (gx#current-expander-phi)) + (_%ctx118292%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key119050%_ - _%syntax?119052%_ - _%phi119054%_ - _%ctx119056%_)))) + _%key118286%_ + _%syntax?118288%_ + _%phi118290%_ + _%ctx118292%_)))) (define gx#make-binding-id__1 - (lambda (_%key119058%_ _%syntax?119059%_) - (let* ((_%phi119061%_ (gx#current-expander-phi)) - (_%ctx119063%_ (gx#current-expander-context))) + (lambda (_%key118294%_ _%syntax?118295%_) + (let* ((_%phi118297%_ (gx#current-expander-phi)) + (_%ctx118299%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key119058%_ - _%syntax?119059%_ - _%phi119061%_ - _%ctx119063%_)))) + _%key118294%_ + _%syntax?118295%_ + _%phi118297%_ + _%ctx118299%_)))) (define gx#make-binding-id__2 - (lambda (_%key119065%_ _%syntax?119066%_ _%phi119067%_) - (let ((_%ctx119069%_ (gx#current-expander-context))) + (lambda (_%key118301%_ _%syntax?118302%_ _%phi118303%_) + (let ((_%ctx118305%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key119065%_ - _%syntax?119066%_ - _%phi119067%_ - _%ctx119069%_)))) + _%key118301%_ + _%syntax?118302%_ + _%phi118303%_ + _%ctx118305%_)))) (define gx#make-binding-id - (lambda _g122090_ - (let ((_g122089_ (##length _g122090_))) - (cond ((##fx= _g122089_ 1) - (apply (lambda (_%key119050%_) - (gx#make-binding-id__0 _%key119050%_)) - _g122090_)) - ((##fx= _g122089_ 2) - (apply (lambda (_%key119058%_ _%syntax?119059%_) - (gx#make-binding-id__1 - _%key119058%_ - _%syntax?119059%_)) - _g122090_)) - ((##fx= _g122089_ 3) - (apply (lambda (_%key119065%_ _%syntax?119066%_ _%phi119067%_) - (gx#make-binding-id__2 - _%key119065%_ - _%syntax?119066%_ - _%phi119067%_)) - _g122090_)) - ((##fx= _g122089_ 4) - (apply (lambda (_%key119071%_ - _%syntax?119072%_ - _%phi119073%_ - _%ctx119074%_) - (gx#make-binding-id__% - _%key119071%_ - _%syntax?119072%_ - _%phi119073%_ - _%ctx119074%_)) - _g122090_)) + (lambda _g121326_ + (let ((_g121325_ (##length _g121326_))) + (cond ((##fx= _g121325_ 1) (apply gx#make-binding-id__0 _g121326_)) + ((##fx= _g121325_ 2) (apply gx#make-binding-id__1 _g121326_)) + ((##fx= _g121325_ 3) (apply gx#make-binding-id__2 _g121326_)) + ((##fx= _g121325_ 4) (apply gx#make-binding-id__% _g121326_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g122090_)))))))) + _g121326_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3.ssxi.ss b/src/bootstrap/gerbil/runtime/c3.ssxi.ss index 17418ac05..008b64b51 100644 --- a/src/bootstrap/gerbil/runtime/c3.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/c3.ssxi.ss @@ -7,7 +7,16 @@ package: gerbil/runtime (@lambda 7 #f signature: - (return: values::t effect: #f arguments: #f unchecked: #f))) + (return: + values::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/c3))) (declare-type c4-linearize__@ (@kw-lambda-dispatch diff --git a/src/bootstrap/gerbil/runtime/c3~0.scm b/src/bootstrap/gerbil/runtime/c3~0.scm index 794d2ebea..e643b65d7 100644 --- a/src/bootstrap/gerbil/runtime/c3~0.scm +++ b/src/bootstrap/gerbil/runtime/c3~0.scm @@ -1,570 +1,450 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1712533288) + (define gerbil/runtime/c3::timestamp 1712573429) (begin (define c4-linearize__% - (lambda (_%@@keywords91089%_ - _%get-precedence-list9108391090%_ - _%struct?9108491092%_ - _%eq9108591094%_ - _%get-name9108691096%_ - _%rhead91098%_ - _%supers91099%_) - (let* ((_%get-precedence-list91101%_ - (if (eq? _%get-precedence-list9108391090%_ absent-value) + (lambda (_%@@keywords90784%_ + _%get-precedence-list9077890785%_ + _%struct?9077990787%_ + _%eq9078090789%_ + _%get-name9078190791%_ + _%rhead90793%_ + _%supers90794%_) + (let* ((_%get-precedence-list90796%_ + (if (eq? _%get-precedence-list9077890785%_ absent-value) (error '"Missing required keyword argument" 'get-precedence-list:) - _%get-precedence-list9108391090%_)) - (_%struct?91103%_ - (if (eq? _%struct?9108491092%_ absent-value) + _%get-precedence-list9077890785%_)) + (_%struct?90798%_ + (if (eq? _%struct?9077990787%_ absent-value) (error '"Missing required keyword argument" 'struct:) - _%struct?9108491092%_)) - (_%eq91105%_ - (if (eq? _%eq9108591094%_ absent-value) eq? _%eq9108591094%_)) - (_%get-name91107%_ - (if (eq? _%get-name9108691096%_ absent-value) + _%struct?9077990787%_)) + (_%eq90800%_ + (if (eq? _%eq9078090789%_ absent-value) eq? _%eq9078090789%_)) + (_%get-name90802%_ + (if (eq? _%get-name9078190791%_ absent-value) identity - _%get-name9108691096%_))) - (letrec* ((_%pls91110%_ - (map _%get-precedence-list91101%_ _%supers91099%_)) - (_%sit91111%_ '()) - (_%get-names91112%_ - (lambda (_%lst91387%_) - (map _%get-name91107%_ _%lst91387%_))) - (_%err91113%_ - (lambda _%a91385%_ + _%get-name9078190791%_))) + (letrec* ((_%pls90805%_ + (map _%get-precedence-list90796%_ _%supers90794%_)) + (_%sit90806%_ '()) + (_%get-names90807%_ + (lambda (_%lst91082%_) + (map _%get-name90802%_ _%lst91082%_))) + (_%err90808%_ + (lambda _%a91080%_ (apply error '"Inconsistent precedence graph" 'head: - (let ((__tmp91434 (reverse _%rhead91098%_))) - (declare (not safe)) - (_%get-names91112%_ __tmp91434)) + (_%get-names90807%_ (reverse _%rhead90793%_)) 'precedence-lists: (let () (declare (not safe)) - (##map _%get-names91112%_ _%pls91110%_)) + (##map _%get-names90807%_ _%pls90805%_)) 'single-inheritance-tail: - (let () - (declare (not safe)) - (_%get-names91112%_ _%sit91111%_)) - _%a91385%_))) - (_%same?91114%_ - (lambda (_%lst191382%_ _%lst291383%_) - (if (let ((__tmp91436 (length _%lst191382%_)) - (__tmp91435 (length _%lst291383%_))) + (_%get-names90807%_ _%sit90806%_) + _%a91080%_))) + (_%same?90809%_ + (lambda (_%lst191077%_ _%lst291078%_) + (if (let ((__tmp91130 (length _%lst191077%_)) + (__tmp91129 (length _%lst291078%_))) (declare (not safe)) - (##fx= __tmp91436 __tmp91435)) + (##fx= __tmp91130 __tmp91129)) (let () (declare (not safe)) - (andmap2 _%eq91105%_ _%lst191382%_ _%lst291383%_)) + (andmap2 _%eq90800%_ _%lst191077%_ _%lst291078%_)) '#f))) - (_%merge-sit!91115%_ - (lambda (_%sit291365%_) - (if (let () (declare (not safe)) (null? _%sit291365%_)) - (let () '#!void) - (if (let () - (declare (not safe)) - (null? _%sit91111%_)) - (let () (set! _%sit91111%_ _%sit291365%_)) - (let _%loop91370%_ ((_%t191372%_ _%sit91111%_) - (_%t291373%_ _%sit291365%_)) - (if (let () - (declare (not safe)) - (_%same?91114%_ - _%t191372%_ - _%sit291365%_)) - (let () '#!void) - (if (let () - (declare (not safe)) - (_%same?91114%_ - _%t291373%_ - _%sit91111%_)) - (let () - (set! _%sit91111%_ _%sit291365%_)) - (if (or (let () - (declare (not safe)) - (null? _%t191372%_)) - (let () - (declare (not safe)) - (null? _%t291373%_))) - (let ((__tmp91437 - (cons (let () - (declare - (not safe)) - (_%get-names91112%_ - _%sit91111%_)) - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (_%get-names91112%_ _%sit291365%_)) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%err91113%_ - 'single-inheritance-incompatibility: - __tmp91437)) - (let ((__tmp91439 - (cdr _%t191372%_)) - (__tmp91438 - (cdr _%t291373%_))) - (declare (not safe)) - (_%loop91370%_ - __tmp91439 - __tmp91438)))))))))) - (_%rpls91116%_ - (let ((__tmp91440 - (lambda (_%pl91360%_) - (let ((_g91441_ + (_%merge-sit!90810%_ + (lambda (_%sit291060%_) + (if (null? _%sit291060%_) + '#!void + (if (null? _%sit90806%_) + (set! _%sit90806%_ _%sit291060%_) + (let _%loop91065%_ ((_%t191067%_ _%sit90806%_) + (_%t291068%_ _%sit291060%_)) + (if (_%same?90809%_ _%t191067%_ _%sit291060%_) + '#!void + (if (_%same?90809%_ + _%t291068%_ + _%sit90806%_) + (set! _%sit90806%_ _%sit291060%_) + (if (or (null? _%t191067%_) + (null? _%t291068%_)) + (_%err90808%_ + 'single-inheritance-incompatibility: + (cons (_%get-names90807%_ + _%sit90806%_) + (cons (_%get-names90807%_ + _%sit291060%_) + '()))) + (_%loop91065%_ + (cdr _%t191067%_) + (cdr _%t291068%_)))))))))) + (_%rpls90811%_ + (let ((__tmp91131 + (lambda (_%pl91055%_) + (let ((_g91132_ (let () (declare (not safe)) (append-reverse-until - _%struct?91103%_ - _%pl91360%_ + _%struct?90798%_ + _%pl91055%_ '())))) (begin - (let ((_g91442_ + (let ((_g91133_ (let () (declare (not safe)) - (if (##values? _g91441_) - (##vector-length _g91441_) + (if (##values? _g91132_) + (##vector-length _g91132_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91442_ 2))) + (##fx= _g91133_ 2))) (error "Context expects 2 values" - _g91442_))) - (let ((_%tl91362%_ + _g91133_))) + (let ((_%tl91057%_ (let () (declare (not safe)) - (##vector-ref _g91441_ 0))) - (_%rh91363%_ + (##vector-ref _g91132_ 0))) + (_%rh91058%_ (let () (declare (not safe)) - (##vector-ref _g91441_ 1)))) + (##vector-ref _g91132_ 1)))) (begin - (let () - (declare (not safe)) - (_%merge-sit!91115%_ _%tl91362%_)) - _%rh91363%_))))))) + (_%merge-sit!90810%_ _%tl91057%_) + _%rh91058%_))))))) (declare (not safe)) - (##map __tmp91440 _%pls91110%_))) - (_%unsitr-rpl91117%_ - (lambda (_%rpl91306%_) - (let _%u91308%_ ((_%pl-rhead91310%_ _%rpl91306%_) - (_%pl-tail91311%_ '()) - (_%sit-rhead91312%_ - (reverse _%sit91111%_)) - (_%sit-tail91313%_ '())) - (let* ((_%pl-rhead9131491323%_ _%pl-rhead91310%_) - (_%E9131791327%_ + (##map __tmp91131 _%pls90805%_))) + (_%unsitr-rpl90812%_ + (lambda (_%rpl91001%_) + (let _%u91003%_ ((_%pl-rhead91005%_ _%rpl91001%_) + (_%pl-tail91006%_ '()) + (_%sit-rhead91007%_ + (reverse _%sit90806%_)) + (_%sit-tail91008%_ '())) + (let* ((_%pl-rhead9100991018%_ _%pl-rhead91005%_) + (_%E9101291022%_ (lambda () (error '"No clause matching" - _%pl-rhead9131491323%_ + _%pl-rhead9100991018%_ '([]) '([c . plrh])) '#!void))) - (let ((_%K9132191357%_ (lambda () _%pl-tail91311%_)) - (_%K9131891341%_ - (lambda (_%plrh91331%_ _%c91332%_) - (if (member _%c91332%_ - _%sit-tail91313%_ - _%eq91105%_) - (let ((__tmp91448 - (let ((__tmp91449 - (reverse _%pl-rhead91310%_))) - (declare (not safe)) - (_%get-names91112%_ - __tmp91449))) - (__tmp91447 - (let () - (declare (not safe)) - (_%get-names91112%_ - _%pl-tail91311%_))) - (__tmp91445 - (let ((__tmp91446 - (reverse _%sit-rhead91312%_))) - (declare (not safe)) - (_%get-names91112%_ - __tmp91446))) - (__tmp91444 - (let () - (declare (not safe)) - (_%get-names91112%_ - _%sit-tail91313%_))) - (__tmp91443 - (_%get-name91107%_ _%c91332%_))) - (declare (not safe)) - (_%err91113%_ - 'precedence-list-head: - __tmp91448 - 'precedence-list-tail: - __tmp91447 - 'single-inheritance-head: - __tmp91445 - 'single-inheritance-tail: - __tmp91444 - 'super-out-of-order-vs-single-inheritance-tail: - __tmp91443)) - (let ((_g91450_ - (let ((__tmp91452 - (lambda (_%g9133391335%_) - (_%eq91105%_ - _%c91332%_ - _%g9133391335%_)))) + (let ((_%K9101691052%_ (lambda () _%pl-tail91006%_)) + (_%K9101391036%_ + (lambda (_%plrh91026%_ _%c91027%_) + (if (member _%c91027%_ + _%sit-tail91008%_ + _%eq90800%_) + (_%err90808%_ + 'precedence-list-head: + (_%get-names90807%_ + (reverse _%pl-rhead91005%_)) + 'precedence-list-tail: + (_%get-names90807%_ _%pl-tail91006%_) + 'single-inheritance-head: + (_%get-names90807%_ + (reverse _%sit-rhead91007%_)) + 'single-inheritance-tail: + (_%get-names90807%_ _%sit-tail91008%_) + 'super-out-of-order-vs-single-inheritance-tail: + (_%get-name90802%_ _%c91027%_)) + (let ((_g91134_ + (let ((__tmp91136 + (lambda (_%g9102891030%_) + (_%eq90800%_ + _%c91027%_ + _%g9102891030%_)))) (declare (not safe)) (__append-reverse-until - __tmp91452 - _%sit-rhead91312%_ - _%sit-tail91313%_)))) + __tmp91136 + _%sit-rhead91007%_ + _%sit-tail91008%_)))) (begin - (let ((_g91451_ + (let ((_g91135_ (let () (declare (not safe)) - (if (##values? _g91450_) + (if (##values? _g91134_) (##vector-length - _g91450_) + _g91134_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91451_ 2))) + (##fx= _g91135_ 2))) (error "Context expects 2 values" - _g91451_))) - (let ((_%sit-rh291338%_ + _g91135_))) + (let ((_%sit-rh291033%_ (let () (declare (not safe)) (##vector-ref - _g91450_ + _g91134_ 0))) - (_%sit-tl291339%_ + (_%sit-tl291034%_ (let () (declare (not safe)) (##vector-ref - _g91450_ + _g91134_ 1)))) - (if (let () - (declare (not safe)) - (null? _%sit-rh291338%_)) - (let ((__tmp91453 - (cons _%c91332%_ - _%pl-tail91311%_))) - (declare (not safe)) - (_%u91308%_ - _%plrh91331%_ - __tmp91453 - '() - _%sit-tl291339%_)) - (let ((__tmp91454 - (cdr _%sit-rh291338%_))) - (declare (not safe)) - (_%u91308%_ - _%plrh91331%_ - _%pl-tail91311%_ - __tmp91454 - _%sit-tl291339%_)))))))))) - (let ((_%try-match9131691353%_ + (if (null? _%sit-rh291033%_) + (_%u91003%_ + _%plrh91026%_ + (cons _%c91027%_ + _%pl-tail91006%_) + '() + _%sit-tl291034%_) + (_%u91003%_ + _%plrh91026%_ + _%pl-tail91006%_ + (cdr _%sit-rh291033%_) + _%sit-tl291034%_))))))))) + (let ((_%try-match9101191048%_ (lambda () (if (let () (declare (not safe)) - (##pair? _%pl-rhead9131491323%_)) - (let ((_%tl9132091346%_ + (##pair? _%pl-rhead9100991018%_)) + (let ((_%tl9101591041%_ (let () (declare (not safe)) - (##cdr _%pl-rhead9131491323%_))) - (_%hd9131991344%_ + (##cdr _%pl-rhead9100991018%_))) + (_%hd9101491039%_ (let () (declare (not safe)) - (##car _%pl-rhead9131491323%_)))) - (let ((_%c91349%_ _%hd9131991344%_) - (_%plrh91351%_ - _%tl9132091346%_)) - (let () - (declare (not safe)) - (_%K9131891341%_ - _%plrh91351%_ - _%c91349%_)))) - (let () - (declare (not safe)) - (_%E9131791327%_)))))) + (##car _%pl-rhead9100991018%_)))) + (let ((_%c91044%_ _%hd9101491039%_) + (_%plrh91046%_ + _%tl9101591041%_)) + (_%K9101391036%_ + _%plrh91046%_ + _%c91044%_))) + (_%E9101291022%_))))) (if (let () (declare (not safe)) - (##null? _%pl-rhead9131491323%_)) - (let () - (declare (not safe)) - (_%K9132191357%_)) - (let () - (declare (not safe)) - (_%try-match9131691353%_))))))))) - (_g91455_ - (let ((_g91456_ - (let ((__tmp91458 (reverse _%supers91099%_))) + (##null? _%pl-rhead9100991018%_)) + (_%K9101691052%_) + (_%try-match9101191048%_)))))))) + (_g91137_ + (let ((_g91138_ + (let ((__tmp91140 (reverse _%supers90794%_))) (declare (not safe)) - (append1! _%rpls91116%_ __tmp91458)))) + (append1! _%rpls90811%_ __tmp91140)))) #!void - _g91456_)) - (_g91459_ - (let ((_g91460_ - (set! _%pls91110%_ + _g91138_)) + (_g91141_ + (let ((_g91142_ + (set! _%pls90805%_ (let () (declare (not safe)) - (##map _%unsitr-rpl91117%_ - _%rpls91116%_))))) + (##map _%unsitr-rpl90812%_ + _%rpls90811%_))))) #!void - _g91460_)) - (_%c3-select-next91118%_ - (lambda (_%tails91256%_) - (let ((_%candidate?91262%_ - (lambda (_%c91258%_) - (let ((__tmp91462 - (lambda (_%tail91260%_) - (let ((__tmp91463 - (member _%c91258%_ - (cdr _%tail91260%_) - _%eq91105%_))) - (declare (not safe)) - (not __tmp91463))))) + _g91142_)) + (_%c3-select-next90813%_ + (lambda (_%tails90951%_) + (let ((_%candidate?90957%_ + (lambda (_%c90953%_) + (let ((__tmp91144 + (lambda (_%tail90955%_) + (not (member _%c90953%_ + (cdr _%tail90955%_) + _%eq90800%_))))) (declare (not safe)) - (__andmap1 __tmp91462 _%tails91256%_))))) - (let _%loop91264%_ ((_%ts91266%_ _%tails91256%_)) - (let* ((_%ts9126791277%_ _%ts91266%_) - (_%else9126991285%_ - (lambda () - (let () - (declare (not safe)) - (_%err91113%_)))) - (_%K9127191291%_ - (lambda (_%rts91288%_ _%c91289%_) - (if (let () - (declare (not safe)) - (_%candidate?91262%_ _%c91289%_)) - _%c91289%_ - (let () - (declare (not safe)) - (_%loop91264%_ _%rts91288%_)))))) + (__andmap1 __tmp91144 _%tails90951%_))))) + (let _%loop90959%_ ((_%ts90961%_ _%tails90951%_)) + (let* ((_%ts9096290972%_ _%ts90961%_) + (_%else9096490980%_ + (lambda () (_%err90808%_))) + (_%K9096690986%_ + (lambda (_%rts90983%_ _%c90984%_) + (if (_%candidate?90957%_ _%c90984%_) + _%c90984%_ + (_%loop90959%_ _%rts90983%_))))) (if (let () (declare (not safe)) - (##pair? _%ts9126791277%_)) - (let ((_%hd9127291294%_ + (##pair? _%ts9096290972%_)) + (let ((_%hd9096790989%_ (let () (declare (not safe)) - (##car _%ts9126791277%_))) - (_%tl9127391296%_ + (##car _%ts9096290972%_))) + (_%tl9096890991%_ (let () (declare (not safe)) - (##cdr _%ts9126791277%_)))) + (##cdr _%ts9096290972%_)))) (if (let () (declare (not safe)) - (##pair? _%hd9127291294%_)) - (let* ((_%hd9127491299%_ + (##pair? _%hd9096790989%_)) + (let* ((_%hd9096990994%_ (let () (declare (not safe)) - (##car _%hd9127291294%_))) - (_%c91302%_ _%hd9127491299%_) - (_%rts91304%_ _%tl9127391296%_)) - (declare (not safe)) - (_%K9127191291%_ - _%rts91304%_ - _%c91302%_)) - (let () - (declare (not safe)) - (_%err91113%_)))) - (let () - (declare (not safe)) - (_%err91113%_)))))))) - (_%remove-next!91119%_ - (lambda (_%next91201%_ _%tails91202%_) - (let _%loop91204%_ ((_%t91206%_ _%tails91202%_)) - (let* ((_%t9120791218%_ _%t91206%_) - (_%E9121091222%_ + (##car _%hd9096790989%_))) + (_%c90997%_ _%hd9096990994%_) + (_%rts90999%_ _%tl9096890991%_)) + (_%K9096690986%_ + _%rts90999%_ + _%c90997%_)) + (_%err90808%_))) + (_%err90808%_))))))) + (_%remove-next!90814%_ + (lambda (_%next90896%_ _%tails90897%_) + (let _%loop90899%_ ((_%t90901%_ _%tails90897%_)) + (let* ((_%t9090290913%_ _%t90901%_) + (_%E9090590917%_ (lambda () (error '"No clause matching" - _%t9120791218%_ + _%t9090290913%_ '([]) '([[head . tail] . more])) '#!void))) - (let ((_%K9121691253%_ (lambda () _%tails91202%_)) - (_%K9121191230%_ - (lambda (_%more91226%_ - _%tail91227%_ - _%head91228%_) - (if (_%eq91105%_ - _%head91228%_ - _%next91201%_) - (set-car! _%t91206%_ _%tail91227%_) + (let ((_%K9091190948%_ (lambda () _%tails90897%_)) + (_%K9090690925%_ + (lambda (_%more90921%_ + _%tail90922%_ + _%head90923%_) + (if (_%eq90800%_ + _%head90923%_ + _%next90896%_) + (set-car! _%t90901%_ _%tail90922%_) '#!void) - (let () - (declare (not safe)) - (_%loop91204%_ _%more91226%_))))) - (let ((_%try-match9120991249%_ + (_%loop90899%_ _%more90921%_)))) + (let ((_%try-match9090490944%_ (lambda () (if (let () (declare (not safe)) - (##pair? _%t9120791218%_)) - (let ((_%tl9121391235%_ + (##pair? _%t9090290913%_)) + (let ((_%tl9090890930%_ (let () (declare (not safe)) - (##cdr _%t9120791218%_))) - (_%hd9121291233%_ + (##cdr _%t9090290913%_))) + (_%hd9090790928%_ (let () (declare (not safe)) - (##car _%t9120791218%_)))) + (##car _%t9090290913%_)))) (if (let () (declare (not safe)) - (##pair? _%hd9121291233%_)) - (let ((_%tl9121591240%_ + (##pair? _%hd9090790928%_)) + (let ((_%tl9091090935%_ (let () (declare (not safe)) - (##cdr _%hd9121291233%_))) - (_%hd9121491238%_ + (##cdr _%hd9090790928%_))) + (_%hd9090990933%_ (let () (declare (not safe)) - (##car _%hd9121291233%_)))) - (let ((_%head91243%_ - _%hd9121491238%_) - (_%tail91245%_ - _%tl9121591240%_) - (_%more91247%_ - _%tl9121391235%_)) - (let () - (declare (not safe)) - (_%K9121191230%_ - _%more91247%_ - _%tail91245%_ - _%head91243%_)))) - (let () - (declare (not safe)) - (_%E9121091222%_)))) - (let () - (declare (not safe)) - (_%E9121091222%_)))))) + (##car _%hd9090790928%_)))) + (let ((_%head90938%_ + _%hd9090990933%_) + (_%tail90940%_ + _%tl9091090935%_) + (_%more90942%_ + _%tl9090890930%_)) + (_%K9090690925%_ + _%more90942%_ + _%tail90940%_ + _%head90938%_))) + (_%E9090590917%_))) + (_%E9090590917%_))))) (if (let () (declare (not safe)) - (##null? _%t9120791218%_)) - (let () - (declare (not safe)) - (_%K9121691253%_)) - (let () - (declare (not safe)) - (_%try-match9120991249%_))))))))) - (_%precedence-list91120%_ - (let _%c3loop91151%_ ((_%rhead91153%_ _%rhead91098%_) - (_%tails91154%_ _%pls91110%_)) - (let* ((_%tails91156%_ + (##null? _%t9090290913%_)) + (_%K9091190948%_) + (_%try-match9090490944%_)))))))) + (_%precedence-list90815%_ + (let _%c3loop90846%_ ((_%rhead90848%_ _%rhead90793%_) + (_%tails90849%_ _%pls90805%_)) + (let* ((_%tails90851%_ (let () (declare (not safe)) - (remove-nulls! _%tails91154%_))) - (_%tails9115791167%_ _%tails91156%_) - (_%else9116091178%_ + (remove-nulls! _%tails90849%_))) + (_%tails9085290862%_ _%tails90851%_) + (_%else9085590873%_ (lambda () - (let ((_%next91175%_ - (let () - (declare (not safe)) - (_%c3-select-next91118%_ - _%tails91156%_)))) - (let ((__tmp91465 - (cons _%next91175%_ _%rhead91153%_)) - (__tmp91464 - (let () - (declare (not safe)) - (_%remove-next!91119%_ - _%next91175%_ - _%tails91156%_)))) - (declare (not safe)) - (_%c3loop91151%_ - __tmp91465 - __tmp91464)))))) - (let ((_%K9116591198%_ + (let ((_%next90870%_ + (_%c3-select-next90813%_ + _%tails90851%_))) + (_%c3loop90846%_ + (cons _%next90870%_ _%rhead90848%_) + (_%remove-next!90814%_ + _%next90870%_ + _%tails90851%_)))))) + (let ((_%K9086090893%_ (lambda () (append-reverse - _%rhead91153%_ - _%sit91111%_))) - (_%K9116291184%_ - (lambda (_%tail91182%_) + _%rhead90848%_ + _%sit90806%_))) + (_%K9085790879%_ + (lambda (_%tail90877%_) (append-reverse - _%rhead91153%_ - (append _%tail91182%_ _%sit91111%_))))) - (let ((_%try-match9115991194%_ + _%rhead90848%_ + (append _%tail90877%_ _%sit90806%_))))) + (let ((_%try-match9085490889%_ (lambda () (if (let () (declare (not safe)) - (##pair? _%tails9115791167%_)) - (let ((_%tl9116491189%_ + (##pair? _%tails9085290862%_)) + (let ((_%tl9085990884%_ (let () (declare (not safe)) - (##cdr _%tails9115791167%_))) - (_%hd9116391187%_ + (##cdr _%tails9085290862%_))) + (_%hd9085890882%_ (let () (declare (not safe)) - (##car _%tails9115791167%_)))) + (##car _%tails9085290862%_)))) (if (let () (declare (not safe)) - (##null? _%tl9116491189%_)) - (let ((_%tail91192%_ - _%hd9116391187%_)) - (declare (not safe)) - (_%K9116291184%_ - _%tail91192%_)) - (let () - (declare (not safe)) - (_%else9116091178%_)))) - (let () - (declare (not safe)) - (_%else9116091178%_)))))) + (##null? _%tl9085990884%_)) + (let ((_%tail90887%_ + _%hd9085890882%_)) + (_%K9085790879%_ + _%tail90887%_)) + (_%else9085590873%_))) + (_%else9085590873%_))))) (if (let () (declare (not safe)) - (##null? _%tails9115791167%_)) - (let () - (declare (not safe)) - (_%K9116591198%_)) - (let () - (declare (not safe)) - (_%try-match9115991194%_)))))))) - (_%super-struct91121%_ - (let* ((_%sit9112291130%_ _%sit91111%_) - (_%else9112491138%_ (lambda () '#f)) - (_%K9112691143%_ (lambda (_%s91141%_) _%s91141%_))) + (##null? _%tails9085290862%_)) + (_%K9086090893%_) + (_%try-match9085490889%_))))))) + (_%super-struct90816%_ + (let* ((_%sit9081790825%_ _%sit90806%_) + (_%else9081990833%_ (lambda () '#f)) + (_%K9082190838%_ (lambda (_%s90836%_) _%s90836%_))) (if (let () (declare (not safe)) - (##pair? _%sit9112291130%_)) - (let* ((_%hd9112791146%_ + (##pair? _%sit9081790825%_)) + (let* ((_%hd9082290841%_ (let () (declare (not safe)) - (##car _%sit9112291130%_))) - (_%s91149%_ _%hd9112791146%_)) - (declare (not safe)) - (_%K9112691143%_ _%s91149%_)) - (let () - (declare (not safe)) - (_%else9112491138%_)))))) - (values _%precedence-list91120%_ _%super-struct91121%_))))) + (##car _%sit9081790825%_))) + (_%s90844%_ _%hd9082290841%_)) + (_%K9082190838%_ _%s90844%_)) + (_%else9081990833%_))))) + (values _%precedence-list90815%_ _%super-struct90816%_))))) (define c4-linearize__@ - (lambda (_%@@keywords91392%_ . _%args91393%_) + (lambda (_%@@keywords91087%_ . _%args91088%_) (apply c4-linearize__% - _%@@keywords91392%_ + _%@@keywords91087%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords91392%_ + _%@@keywords91087%_ 'get-precedence-list: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords91392%_ + _%@@keywords91087%_ 'struct: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords91392%_ 'eq: absent-value)) + (symbolic-table-ref _%@@keywords91087%_ 'eq: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords91392%_ + _%@@keywords91087%_ 'get-name: absent-value)) - _%args91393%_))) + _%args91088%_))) (define c4-linearize - (lambda _%args9108791399%_ + (lambda _%args9078291094%_ (apply keyword-dispatch '#(#f get-name: struct: get-precedence-list: #f eq:) c4-linearize__@ - _%args9108791399%_))))) + _%args9078291094%_))))) diff --git a/src/bootstrap/gerbil/runtime/control.ssxi.ss b/src/bootstrap/gerbil/runtime/control.ssxi.ss index d4509b725..965444902 100644 --- a/src/bootstrap/gerbil/runtime/control.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/control.ssxi.ss @@ -14,13 +14,24 @@ package: gerbil/runtime arguments: (procedure::t) unchecked: - __make-promise))) + __make-promise + origin: + gerbil/runtime/control))) (declare-type __make-promise (@lambda 1 #f signature: - (return: promise::t effect: #f arguments: #f unchecked: #f))) + (return: + promise::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/control))) (declare-type call-with-parameters (@lambda (1) @@ -33,13 +44,24 @@ package: gerbil/runtime arguments: (procedure::t . t::t) unchecked: - __call-with-parameters))) + __call-with-parameters + origin: + gerbil/runtime/control))) (declare-type __call-with-parameters (@lambda (1) #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/control))) (declare-type with-unwind-protect (@lambda 2 @@ -52,12 +74,51 @@ package: gerbil/runtime arguments: (procedure::t procedure::t) unchecked: - __with-unwind-protect))) + __with-unwind-protect + origin: + gerbil/runtime/control))) (declare-type __with-unwind-protect (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type keyword-dispatch (@lambda (2) #f)) - (declare-type keyword-rest (@lambda (1) #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/control))) + (declare-type + keyword-dispatch + (@lambda (2) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/control))) + (declare-type + keyword-rest + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/control)))) diff --git a/src/bootstrap/gerbil/runtime/control~0.scm b/src/bootstrap/gerbil/runtime/control~0.scm index ad4787c3e..7046737da 100644 --- a/src/bootstrap/gerbil/runtime/control~0.scm +++ b/src/bootstrap/gerbil/runtime/control~0.scm @@ -1,384 +1,347 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/control::timestamp 1712533288) + (define gerbil/runtime/control::timestamp 1712573429) (begin (define make-promise - (lambda (_%thunk90950%_) - (let () - (if (let () (declare (not safe)) (procedure? _%thunk90950%_)) - (let ((_%thunk90954%_ _%thunk90950%_)) - (declare (not safe)) - (__make-promise _%thunk90954%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/control.ss\"@11.21-11.26" - 'contract: - 'procedure? - 'value: - _%thunk90950%_) - '#!void))))) + (lambda (_%thunk90646%_) + (if (procedure? _%thunk90646%_) + (let ((_%thunk90650%_ _%thunk90646%_)) + (__make-promise _%thunk90650%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/control.ss\"@11.21-11.26" + 'contract: + 'procedure? + 'value: + _%thunk90646%_) + '#!void)))) (define __make-promise - (lambda (_%thunk90938%_) - (let ((_%thunk90941%_ _%thunk90938%_)) + (lambda (_%thunk90634%_) + (let ((_%thunk90637%_ _%thunk90634%_)) (declare (not safe)) - (##make-delay-promise _%thunk90941%_)))) + (##make-delay-promise _%thunk90637%_)))) (define call-with-parameters - (lambda (_%thunk90923%_ . _%rest90924%_) - (let () - (if (let () (declare (not safe)) (procedure? _%thunk90923%_)) - (let ((_%thunk90928%_ _%thunk90923%_)) - (declare (not safe)) - (##apply __call-with-parameters _%thunk90928%_ _%rest90924%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/control.ss\"@15.29-15.34" - 'contract: - 'procedure? - 'value: - _%thunk90923%_) - '#!void))))) + (lambda (_%thunk90619%_ . _%rest90620%_) + (if (procedure? _%thunk90619%_) + (let ((_%thunk90624%_ _%thunk90619%_)) + (declare (not safe)) + (##apply __call-with-parameters _%thunk90624%_ _%rest90620%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/control.ss\"@15.29-15.34" + 'contract: + 'procedure? + 'value: + _%thunk90619%_) + '#!void)))) (define __call-with-parameters - (lambda (_%thunk90861%_ . _%rest90862%_) - (let ((_%thunk90865%_ _%thunk90861%_)) - (let* ((_%rest9087390884%_ _%rest90862%_) - (_%E9087690888%_ - (lambda () - (error '"No clause matching" - _%rest9087390884%_ - '([param val . rest]) - '([])) - '#!void))) - (let ((_%K9087890904%_ - (lambda (_%rest90899%_ _%val90900%_ _%param90901%_) - (let ((__tmp90976 - (if (let () - (declare (not safe)) - (null? _%rest90899%_)) - _%thunk90865%_ - (lambda () - (apply call-with-parameters - _%thunk90865%_ - _%rest90899%_))))) - (declare (not safe)) - (##parameterize1 - _%param90901%_ - _%val90900%_ - __tmp90976)))) - (_%K9087790893%_ - (lambda () (let () (declare (not safe)) (_%thunk90865%_))))) - (let ((_%try-match9087590896%_ - (lambda () - (if (let () - (declare (not safe)) - (##null? _%rest9087390884%_)) - (let () (declare (not safe)) (_%thunk90865%_)) - (let () (declare (not safe)) (_%E9087690888%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest9087390884%_)) - (let ((_%tl9088090909%_ - (let () - (declare (not safe)) - (##cdr _%rest9087390884%_))) - (_%hd9087990907%_ - (let () - (declare (not safe)) - (##car _%rest9087390884%_)))) - (if (let () - (declare (not safe)) - (##pair? _%tl9088090909%_)) - (let ((_%tl9088290916%_ - (let () - (declare (not safe)) - (##cdr _%tl9088090909%_))) - (_%hd9088190914%_ - (let () - (declare (not safe)) - (##car _%tl9088090909%_)))) - (let ((_%param90912%_ _%hd9087990907%_) - (_%val90919%_ _%hd9088190914%_) - (_%rest90921%_ _%tl9088290916%_)) - (let () - (declare (not safe)) - (_%K9087890904%_ - _%rest90921%_ - _%val90919%_ - _%param90912%_)))) - (let () (declare (not safe)) (_%E9087690888%_)))) - (let () - (declare (not safe)) - (_%try-match9087590896%_))))))))) + (lambda (_%thunk90557%_ . _%rest90558%_) + (let* ((_%thunk90561%_ _%thunk90557%_) + (_%rest9056990580%_ _%rest90558%_) + (_%E9057290584%_ + (lambda () + (error '"No clause matching" + _%rest9056990580%_ + '([param val . rest]) + '([])) + '#!void))) + (let ((_%K9057490600%_ + (lambda (_%rest90595%_ _%val90596%_ _%param90597%_) + (let ((__tmp90672 + (if (null? _%rest90595%_) + _%thunk90561%_ + (lambda () + (apply call-with-parameters + _%thunk90561%_ + _%rest90595%_))))) + (declare (not safe)) + (##parameterize1 + _%param90597%_ + _%val90596%_ + __tmp90672)))) + (_%K9057390589%_ + (lambda () (let () (declare (not safe)) (_%thunk90561%_))))) + (let ((_%try-match9057190592%_ + (lambda () + (if (let () + (declare (not safe)) + (##null? _%rest9056990580%_)) + (let () (declare (not safe)) (_%thunk90561%_)) + (_%E9057290584%_))))) + (if (let () (declare (not safe)) (##pair? _%rest9056990580%_)) + (let ((_%tl9057690605%_ + (let () + (declare (not safe)) + (##cdr _%rest9056990580%_))) + (_%hd9057590603%_ + (let () + (declare (not safe)) + (##car _%rest9056990580%_)))) + (if (let () + (declare (not safe)) + (##pair? _%tl9057690605%_)) + (let ((_%tl9057890612%_ + (let () + (declare (not safe)) + (##cdr _%tl9057690605%_))) + (_%hd9057790610%_ + (let () + (declare (not safe)) + (##car _%tl9057690605%_)))) + (let ((_%param90608%_ _%hd9057590603%_) + (_%val90615%_ _%hd9057790610%_) + (_%rest90617%_ _%tl9057890612%_)) + (_%K9057490600%_ + _%rest90617%_ + _%val90615%_ + _%param90608%_))) + (_%E9057290584%_))) + (_%try-match9057190592%_))))))) (define with-unwind-protect - (lambda (_%K90836%_ _%fini90837%_) - (let () - (if (let () (declare (not safe)) (procedure? _%K90836%_)) - (let ((_%K90841%_ _%K90836%_)) - (if (let () (declare (not safe)) (procedure? _%fini90837%_)) - (let ((_%fini90851%_ _%fini90837%_)) - (declare (not safe)) - (__with-unwind-protect _%K90841%_ _%fini90851%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/control.ss\"@23.45-23.49" - 'contract: - 'procedure? - 'value: - _%fini90837%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/control.ss\"@23.28-23.29" - 'contract: - 'procedure? - 'value: - _%K90836%_) - '#!void))))) + (lambda (_%K90532%_ _%fini90533%_) + (if (procedure? _%K90532%_) + (let ((_%K90537%_ _%K90532%_)) + (if (procedure? _%fini90533%_) + (let ((_%fini90547%_ _%fini90533%_)) + (__with-unwind-protect _%K90537%_ _%fini90547%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/control.ss\"@23.45-23.49" + 'contract: + 'procedure? + 'value: + _%fini90533%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/control.ss\"@23.28-23.29" + 'contract: + 'procedure? + 'value: + _%K90532%_) + '#!void)))) (define __with-unwind-protect - (lambda (_%K90810%_ _%fini90811%_) - (let () - (let* ((_%K90814%_ _%K90810%_) (_%fini90823%_ _%fini90811%_)) - (let* ((_%once90832%_ '#f) - (__tmp90977 - (lambda () - (declare (not interrupts-enabled)) - (if _%once90832%_ - (error '"Cannot re-enter unwind protected block") - (set! _%once90832%_ '#t))))) - (declare (not safe)) - (##dynamic-wind __tmp90977 _%K90814%_ _%fini90823%_)))))) + (lambda (_%K90506%_ _%fini90507%_) + (let* ((_%K90510%_ _%K90506%_) + (_%fini90519%_ _%fini90507%_) + (_%once90528%_ '#f) + (__tmp90673 + (lambda () + (declare (not interrupts-enabled)) + (if _%once90528%_ + (error '"Cannot re-enter unwind protected block") + (set! _%once90528%_ '#t))))) + (declare (not safe)) + (##dynamic-wind __tmp90673 _%K90510%_ _%fini90519%_)))) (define keyword-dispatch - (lambda (_%kwt90703%_ _%K90704%_ . _%all-args90705%_) - (if _%kwt90703%_ - (if (let () (declare (not safe)) (vector? _%kwt90703%_)) + (lambda (_%kwt90399%_ _%K90400%_ . _%all-args90401%_) + (if _%kwt90399%_ + (if (vector? _%kwt90399%_) '#!void - (error '"keyword-dispatch: expected vector" _%kwt90703%_)) + (error '"keyword-dispatch: expected vector" _%kwt90399%_)) '#!void) - (if (let () (declare (not safe)) (procedure? _%K90704%_)) + (if (procedure? _%K90400%_) '#!void - (error '"keyword-dispatch: expected procedure" _%K90704%_)) - (let ((_%keys90707%_ + (error '"keyword-dispatch: expected procedure" _%K90400%_)) + (let ((_%keys90403%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%lp90709%_ ((_%rest90711%_ _%all-args90705%_) - (_%args90712%_ '#f) - (_%tail90713%_ '#f)) - (let* ((_%rest9071490722%_ _%rest90711%_) - (_%else9071690730%_ + (let _%lp90405%_ ((_%rest90407%_ _%all-args90401%_) + (_%args90408%_ '#f) + (_%tail90409%_ '#f)) + (let* ((_%rest9041090418%_ _%rest90407%_) + (_%else9041290426%_ (lambda () - (if _%args90712%_ + (if _%args90408%_ (begin (let () (declare (not safe)) - (##set-cdr! _%tail90713%_ '())) - (let ((__tmp90978 - (cons _%keys90707%_ _%args90712%_))) + (##set-cdr! _%tail90409%_ '())) + (let ((__tmp90674 + (cons _%keys90403%_ _%args90408%_))) (declare (not safe)) - (##apply _%K90704%_ __tmp90978))) - (_%K90704%_ _%keys90707%_)))) - (_%K9071890798%_ - (lambda (_%hd-rest90733%_ _%hd90734%_) - (if (let () (declare (not safe)) (keyword? _%hd90734%_)) - (let () - (let* ((_%hd-rest9073690743%_ _%hd-rest90733%_) - (_%E9073890747%_ - (lambda () - (error '"No clause matching" - _%hd-rest9073690743%_ - '([val . rest])) - '#!void)) - (_%K9073990755%_ - (lambda (_%rest90750%_ _%val90751%_) - (if _%kwt90703%_ - (let ((_%pos90753%_ - (let ((__tmp90980 - (keyword-hash - _%hd90734%_)) - (__tmp90979 - (let () - (declare (not safe)) - (##vector-length - _%kwt90703%_)))) - (declare (not safe)) - (##fxmodulo - __tmp90980 - __tmp90979)))) - (if (eq? _%hd90734%_ - (let () - (declare (not safe)) - (##vector-ref - _%kwt90703%_ - _%pos90753%_))) - '#!void - (error '"Unexpected keyword argument" - _%K90704%_ - _%hd90734%_))) - '#!void) - (if (eq? (let () + (##apply _%K90400%_ __tmp90674))) + (_%K90400%_ _%keys90403%_)))) + (_%K9041490494%_ + (lambda (_%hd-rest90429%_ _%hd90430%_) + (if (keyword? _%hd90430%_) + (let* ((_%hd-rest9043290439%_ _%hd-rest90429%_) + (_%E9043490443%_ + (lambda () + (error '"No clause matching" + _%hd-rest9043290439%_ + '([val . rest])) + '#!void)) + (_%K9043590451%_ + (lambda (_%rest90446%_ _%val90447%_) + (if _%kwt90399%_ + (let ((_%pos90449%_ + (let ((__tmp90676 + (keyword-hash + _%hd90430%_)) + (__tmp90675 + (let () + (declare (not safe)) + (##vector-length + _%kwt90399%_)))) (declare (not safe)) - (symbolic-table-ref - _%keys90707%_ - _%hd90734%_ - absent-value)) - absent-value) - '#!void - (error '"Duplicate keyword argument" - _%K90704%_ - _%hd90734%_)) - (let () - (declare (not safe)) - (symbolic-table-set! - _%keys90707%_ - _%hd90734%_ - _%val90751%_)) - (let () - (declare (not safe)) - (_%lp90709%_ - _%rest90750%_ - _%args90712%_ - _%tail90713%_))))) - (if (let () - (declare (not safe)) - (##pair? _%hd-rest9073690743%_)) - (let ((_%hd9074090758%_ - (let () - (declare (not safe)) - (##car _%hd-rest9073690743%_))) - (_%tl9074190760%_ - (let () - (declare (not safe)) - (##cdr _%hd-rest9073690743%_)))) - (let* ((_%val90763%_ _%hd9074090758%_) - (_%rest90765%_ _%tl9074190760%_)) + (##fxmodulo + __tmp90676 + __tmp90675)))) + (if (eq? _%hd90430%_ + (let () + (declare (not safe)) + (##vector-ref + _%kwt90399%_ + _%pos90449%_))) + '#!void + (error '"Unexpected keyword argument" + _%K90400%_ + _%hd90430%_))) + '#!void) + (if (eq? (let () + (declare (not safe)) + (symbolic-table-ref + _%keys90403%_ + _%hd90430%_ + absent-value)) + absent-value) + '#!void + (error '"Duplicate keyword argument" + _%K90400%_ + _%hd90430%_)) + (let () (declare (not safe)) - (_%K9073990755%_ - _%rest90765%_ - _%val90763%_))) - (let () - (declare (not safe)) - (_%E9073890747%_))))) - (if (eq? _%hd90734%_ '#!key) - (let () - (let* ((_%hd-rest9076790774%_ _%hd-rest90733%_) - (_%E9076990778%_ - (lambda () - (error '"No clause matching" - _%hd-rest9076790774%_ - '([val . rest])) - '#!void)) - (_%K9077090784%_ - (lambda (_%rest90781%_ _%val90782%_) - (if _%args90712%_ - (begin - (let () - (declare (not safe)) - (##set-cdr! - _%tail90713%_ - _%hd-rest90733%_)) - (let () - (declare (not safe)) - (_%lp90709%_ - _%rest90781%_ - _%args90712%_ - _%hd-rest90733%_))) + (symbolic-table-set! + _%keys90403%_ + _%hd90430%_ + _%val90447%_)) + (_%lp90405%_ + _%rest90446%_ + _%args90408%_ + _%tail90409%_)))) + (if (let () + (declare (not safe)) + (##pair? _%hd-rest9043290439%_)) + (let ((_%hd9043690454%_ + (let () + (declare (not safe)) + (##car _%hd-rest9043290439%_))) + (_%tl9043790456%_ + (let () + (declare (not safe)) + (##cdr _%hd-rest9043290439%_)))) + (let* ((_%val90459%_ _%hd9043690454%_) + (_%rest90461%_ _%tl9043790456%_)) + (_%K9043590451%_ + _%rest90461%_ + _%val90459%_))) + (_%E9043490443%_))) + (if (eq? _%hd90430%_ '#!key) + (let* ((_%hd-rest9046390470%_ _%hd-rest90429%_) + (_%E9046590474%_ + (lambda () + (error '"No clause matching" + _%hd-rest9046390470%_ + '([val . rest])) + '#!void)) + (_%K9046690480%_ + (lambda (_%rest90477%_ _%val90478%_) + (if _%args90408%_ + (begin (let () (declare (not safe)) - (_%lp90709%_ - _%rest90781%_ - _%hd-rest90733%_ - _%hd-rest90733%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%hd-rest9076790774%_)) - (let ((_%hd9077190787%_ - (let () - (declare (not safe)) - (##car _%hd-rest9076790774%_))) - (_%tl9077290789%_ - (let () - (declare (not safe)) - (##cdr _%hd-rest9076790774%_)))) - (let* ((_%val90792%_ _%hd9077190787%_) - (_%rest90794%_ - _%tl9077290789%_)) + (##set-cdr! + _%tail90409%_ + _%hd-rest90429%_)) + (_%lp90405%_ + _%rest90477%_ + _%args90408%_ + _%hd-rest90429%_)) + (_%lp90405%_ + _%rest90477%_ + _%hd-rest90429%_ + _%hd-rest90429%_))))) + (if (let () + (declare (not safe)) + (##pair? _%hd-rest9046390470%_)) + (let ((_%hd9046790483%_ + (let () + (declare (not safe)) + (##car _%hd-rest9046390470%_))) + (_%tl9046890485%_ + (let () + (declare (not safe)) + (##cdr _%hd-rest9046390470%_)))) + (let* ((_%val90488%_ _%hd9046790483%_) + (_%rest90490%_ _%tl9046890485%_)) + (_%K9046690480%_ + _%rest90490%_ + _%val90488%_))) + (_%E9046590474%_))) + (if (eq? _%hd90430%_ '#!rest) + (if _%args90408%_ + (begin + (let () (declare (not safe)) - (_%K9077090784%_ - _%rest90794%_ - _%val90792%_))) - (let () - (declare (not safe)) - (_%E9076990778%_))))) - (if (eq? _%hd90734%_ '#!rest) - (let () - (if _%args90712%_ - (begin - (let () - (declare (not safe)) - (##set-cdr! - _%tail90713%_ - _%hd-rest90733%_)) - (let ((__tmp90981 - (cons _%keys90707%_ - _%args90712%_))) - (declare (not safe)) - (##apply _%K90704%_ __tmp90981))) - (let ((__tmp90982 - (cons _%keys90707%_ - _%hd-rest90733%_))) + (##set-cdr! + _%tail90409%_ + _%hd-rest90429%_)) + (let ((__tmp90677 + (cons _%keys90403%_ + _%args90408%_))) (declare (not safe)) - (##apply _%K90704%_ __tmp90982)))) - (let () - (if _%args90712%_ - (begin - (let () - (declare (not safe)) - (##set-cdr! - _%tail90713%_ - _%rest90711%_)) - (let () - (declare (not safe)) - (_%lp90709%_ - _%hd-rest90733%_ - _%args90712%_ - _%rest90711%_))) + (##apply _%K90400%_ __tmp90677))) + (let ((__tmp90678 + (cons _%keys90403%_ + _%hd-rest90429%_))) + (declare (not safe)) + (##apply _%K90400%_ __tmp90678))) + (if _%args90408%_ + (begin (let () (declare (not safe)) - (_%lp90709%_ - _%hd-rest90733%_ - _%rest90711%_ - _%rest90711%_)))))))))) - (if (let () (declare (not safe)) (##pair? _%rest9071490722%_)) - (let ((_%hd9071990801%_ + (##set-cdr! + _%tail90409%_ + _%rest90407%_)) + (_%lp90405%_ + _%hd-rest90429%_ + _%args90408%_ + _%rest90407%_)) + (_%lp90405%_ + _%hd-rest90429%_ + _%rest90407%_ + _%rest90407%_)))))))) + (if (let () (declare (not safe)) (##pair? _%rest9041090418%_)) + (let ((_%hd9041590497%_ (let () (declare (not safe)) - (##car _%rest9071490722%_))) - (_%tl9072090803%_ + (##car _%rest9041090418%_))) + (_%tl9041690499%_ (let () (declare (not safe)) - (##cdr _%rest9071490722%_)))) - (let* ((_%hd90806%_ _%hd9071990801%_) - (_%hd-rest90808%_ _%tl9072090803%_)) - (declare (not safe)) - (_%K9071890798%_ _%hd-rest90808%_ _%hd90806%_))) - (let () (declare (not safe)) (_%else9071690730%_)))))))) + (##cdr _%rest9041090418%_)))) + (let* ((_%hd90502%_ _%hd9041590497%_) + (_%hd-rest90504%_ _%tl9041690499%_)) + (_%K9041490494%_ _%hd-rest90504%_ _%hd90502%_))) + (_%else9041290426%_))))))) (define keyword-rest - (lambda (_%kwt90695%_ . _%drop90696%_) - (let ((_%rest90698%_ '())) - (let ((__tmp90983 - (lambda (_%k90700%_ _%v90701%_) - (if (memq _%k90700%_ _%drop90696%_) + (lambda (_%kwt90391%_ . _%drop90392%_) + (let ((_%rest90394%_ '())) + (let ((__tmp90679 + (lambda (_%k90396%_ _%v90397%_) + (if (memq _%k90396%_ _%drop90392%_) '#!void - (set! _%rest90698%_ - (let ((__tmp90984 - (let () - (declare (not safe)) - (cons _%v90701%_ _%rest90698%_)))) - (declare (not safe)) - (cons _%k90700%_ __tmp90984))))))) + (set! _%rest90394%_ + (cons _%k90396%_ + (cons _%v90397%_ _%rest90394%_))))))) (declare (not safe)) - (raw-table-for-each _%kwt90695%_ __tmp90983)) - _%rest90698%_))))) + (raw-table-for-each _%kwt90391%_ __tmp90679)) + _%rest90394%_))))) diff --git a/src/bootstrap/gerbil/runtime/error.ssxi.ss b/src/bootstrap/gerbil/runtime/error.ssxi.ss index a4fae7804..a8a300c87 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)) @@ -193,10 +193,66 @@ package: gerbil/runtime (declare-type &RuntimeException-continuation-set! (@mutator RuntimeException::t continuation #f)) - (declare-type gerbil-exception-handler-hook (@lambda 2 #f)) - (declare-type raise (@lambda 1 #f)) - (declare-type error (@lambda (1) #f)) - (declare-type __raise-contract-violation-error__% (@lambda 5 #f)) + (declare-type + gerbil-exception-handler-hook + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + raise + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + error + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + __raise-contract-violation-error__% + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) (declare-type __raise-contract-violation-error__@ (@kw-lambda-dispatch @@ -220,13 +276,24 @@ package: gerbil/runtime arguments: (procedure::t procedure::t) unchecked: - __with-exception-handler))) + __with-exception-handler + origin: + gerbil/runtime/error))) (declare-type __with-exception-handler (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) (declare-type with-catch (@lambda 2 @@ -239,13 +306,24 @@ package: gerbil/runtime arguments: (procedure::t procedure::t) unchecked: - __with-catch))) + __with-catch + origin: + gerbil/runtime/error))) (declare-type __with-catch (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) (declare-type with-exception-catcher (@lambda 2 @@ -258,8 +336,24 @@ package: gerbil/runtime arguments: (procedure::t procedure::t) unchecked: - __with-catch))) - (declare-type wrap-runtime-exception (@lambda 1 #f)) + __with-catch + origin: + gerbil/runtime/error))) + (declare-type + wrap-runtime-exception + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) (declare-type exception? (@predicate Exception::t)) (declare-type error? (@predicate Error::t)) (declare-type @@ -274,28 +368,113 @@ package: gerbil/runtime arguments: (t::t) unchecked: - #f))) - (declare-type error-message (@lambda 1 #f)) - (declare-type error-irritants (@lambda 1 #f)) + #f + origin: + builtin))) + (declare-type + error-message + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + error-irritants + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) (declare-type error-trace (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type display-exception__% (@lambda 2 #f)) - (declare-type display-exception__0 (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + display-exception__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + display-exception__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) (declare-type display-exception (@case-lambda (1 #f signature: - (return: void::t effect: (io) arguments: (t::t) unchecked: #f)) + (return: + void::t + effect: + (io) + arguments: + (t::t) + unchecked: + #f + origin: + builtin)) (2 #f signature: - (return: void::t effect: (io) arguments: (t::t port::t) unchecked: #f)))) + (return: + void::t + effect: + (io) + arguments: + (t::t port::t) + unchecked: + #f + origin: + builtin)))) (declare-type Error:::init! (@lambda (2) @@ -308,7 +487,9 @@ package: gerbil/runtime arguments: (t::t t::t . t::t) unchecked: - #f))) + #f + origin: + gerbil/runtime/error))) (declare-type ContractViolation:::init! (@lambda (2) @@ -321,7 +502,9 @@ package: gerbil/runtime arguments: (t::t t::t . t::t) unchecked: - #f))) + #f + origin: + gerbil/runtime/error))) (declare-type dump-stack-trace? (optimizer-resolve-class '(typedecl dump-stack-trace?) 'procedure::t)) @@ -330,166 +513,2248 @@ package: gerbil/runtime (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/runtime/error))) (declare-type RuntimeException::display-exception (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) - (declare-type fix-port-width! (@lambda 1 #f)) - (declare-type reset-port-width! (@lambda 2 #f)) - (declare-type datum-parsing-exception-filepos (@lambda 1 #f)) - (declare-type abandoned-mutex-exception? (@lambda 1 #f)) - (declare-type cfun-conversion-exception? (@lambda 1 #f)) - (declare-type cfun-conversion-exception-arguments (@lambda 1 #f)) - (declare-type cfun-conversion-exception-code (@lambda 1 #f)) - (declare-type cfun-conversion-exception-message (@lambda 1 #f)) - (declare-type cfun-conversion-exception-procedure (@lambda 1 #f)) - (declare-type datum-parsing-exception? (@lambda 1 #f)) - (declare-type datum-parsing-exception-kind (@lambda 1 #f)) - (declare-type datum-parsing-exception-parameters (@lambda 1 #f)) - (declare-type datum-parsing-exception-readenv (@lambda 1 #f)) - (declare-type deadlock-exception? (@lambda 1 #f)) - (declare-type divide-by-zero-exception? (@lambda 1 #f)) - (declare-type divide-by-zero-exception-arguments (@lambda 1 #f)) - (declare-type divide-by-zero-exception-procedure (@lambda 1 #f)) - (declare-type error-exception? (@lambda 1 #f)) - (declare-type error-exception-message (@lambda 1 #f)) - (declare-type error-exception-parameters (@lambda 1 #f)) - (declare-type expression-parsing-exception? (@lambda 1 #f)) - (declare-type expression-parsing-exception-kind (@lambda 1 #f)) - (declare-type expression-parsing-exception-parameters (@lambda 1 #f)) - (declare-type expression-parsing-exception-source (@lambda 1 #f)) - (declare-type file-exists-exception? (@lambda 1 #f)) - (declare-type file-exists-exception-arguments (@lambda 1 #f)) - (declare-type file-exists-exception-procedure (@lambda 1 #f)) - (declare-type fixnum-overflow-exception? (@lambda 1 #f)) - (declare-type fixnum-overflow-exception-arguments (@lambda 1 #f)) - (declare-type fixnum-overflow-exception-procedure (@lambda 1 #f)) - (declare-type heap-overflow-exception? (@lambda 1 #f)) - (declare-type inactive-thread-exception? (@lambda 1 #f)) - (declare-type inactive-thread-exception-arguments (@lambda 1 #f)) - (declare-type inactive-thread-exception-procedure (@lambda 1 #f)) - (declare-type initialized-thread-exception? (@lambda 1 #f)) - (declare-type initialized-thread-exception-arguments (@lambda 1 #f)) - (declare-type initialized-thread-exception-procedure (@lambda 1 #f)) - (declare-type invalid-hash-number-exception? (@lambda 1 #f)) - (declare-type invalid-hash-number-exception-arguments (@lambda 1 #f)) - (declare-type invalid-hash-number-exception-procedure (@lambda 1 #f)) - (declare-type invalid-utf8-encoding-exception? (@lambda 1 #f)) - (declare-type invalid-utf8-encoding-exception-arguments (@lambda 1 #f)) - (declare-type invalid-utf8-encoding-exception-procedure (@lambda 1 #f)) - (declare-type join-timeout-exception? (@lambda 1 #f)) - (declare-type join-timeout-exception-arguments (@lambda 1 #f)) - (declare-type join-timeout-exception-procedure (@lambda 1 #f)) - (declare-type keyword-expected-exception? (@lambda 1 #f)) - (declare-type keyword-expected-exception-arguments (@lambda 1 #f)) - (declare-type keyword-expected-exception-procedure (@lambda 1 #f)) - (declare-type length-mismatch-exception? (@lambda 1 #f)) - (declare-type length-mismatch-exception-arg-id (@lambda 1 #f)) - (declare-type length-mismatch-exception-arguments (@lambda 1 #f)) - (declare-type length-mismatch-exception-procedure (@lambda 1 #f)) - (declare-type mailbox-receive-timeout-exception? (@lambda 1 #f)) - (declare-type mailbox-receive-timeout-exception-arguments (@lambda 1 #f)) - (declare-type mailbox-receive-timeout-exception-procedure (@lambda 1 #f)) - (declare-type module-not-found-exception? (@lambda 1 #f)) - (declare-type module-not-found-exception-arguments (@lambda 1 #f)) - (declare-type module-not-found-exception-procedure (@lambda 1 #f)) - (declare-type multiple-c-return-exception? (@lambda 1 #f)) - (declare-type no-such-file-or-directory-exception? (@lambda 1 #f)) - (declare-type no-such-file-or-directory-exception-arguments (@lambda 1 #f)) - (declare-type no-such-file-or-directory-exception-procedure (@lambda 1 #f)) - (declare-type noncontinuable-exception? (@lambda 1 #f)) - (declare-type noncontinuable-exception-reason (@lambda 1 #f)) - (declare-type nonempty-input-port-character-buffer-exception? (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/runtime/error))) (declare-type - nonempty-input-port-character-buffer-exception-arguments - (@lambda 1 #f)) + fix-port-width! + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) (declare-type - nonempty-input-port-character-buffer-exception-procedure - (@lambda 1 #f)) - (declare-type nonprocedure-operator-exception? (@lambda 1 #f)) - (declare-type nonprocedure-operator-exception-arguments (@lambda 1 #f)) - (declare-type nonprocedure-operator-exception-code (@lambda 1 #f)) - (declare-type nonprocedure-operator-exception-operator (@lambda 1 #f)) - (declare-type nonprocedure-operator-exception-rte (@lambda 1 #f)) - (declare-type not-in-compilation-context-exception? (@lambda 1 #f)) - (declare-type not-in-compilation-context-exception-arguments (@lambda 1 #f)) - (declare-type not-in-compilation-context-exception-procedure (@lambda 1 #f)) - (declare-type number-of-arguments-limit-exception? (@lambda 1 #f)) - (declare-type number-of-arguments-limit-exception-arguments (@lambda 1 #f)) - (declare-type number-of-arguments-limit-exception-procedure (@lambda 1 #f)) - (declare-type os-exception? (@lambda 1 #f)) - (declare-type os-exception-arguments (@lambda 1 #f)) - (declare-type os-exception-code (@lambda 1 #f)) - (declare-type os-exception-message (@lambda 1 #f)) - (declare-type os-exception-procedure (@lambda 1 #f)) - (declare-type permission-denied-exception? (@lambda 1 #f)) - (declare-type permission-denied-exception-arguments (@lambda 1 #f)) - (declare-type permission-denied-exception-procedure (@lambda 1 #f)) - (declare-type range-exception? (@lambda 1 #f)) - (declare-type range-exception-arg-id (@lambda 1 #f)) - (declare-type range-exception-arguments (@lambda 1 #f)) - (declare-type range-exception-procedure (@lambda 1 #f)) - (declare-type rpc-remote-error-exception? (@lambda 1 #f)) - (declare-type rpc-remote-error-exception-arguments (@lambda 1 #f)) - (declare-type rpc-remote-error-exception-message (@lambda 1 #f)) - (declare-type rpc-remote-error-exception-procedure (@lambda 1 #f)) - (declare-type scheduler-exception? (@lambda 1 #f)) - (declare-type scheduler-exception-reason (@lambda 1 #f)) - (declare-type sfun-conversion-exception? (@lambda 1 #f)) - (declare-type sfun-conversion-exception-arguments (@lambda 1 #f)) - (declare-type sfun-conversion-exception-code (@lambda 1 #f)) - (declare-type sfun-conversion-exception-message (@lambda 1 #f)) - (declare-type sfun-conversion-exception-procedure (@lambda 1 #f)) - (declare-type stack-overflow-exception? (@lambda 1 #f)) - (declare-type started-thread-exception? (@lambda 1 #f)) - (declare-type started-thread-exception-arguments (@lambda 1 #f)) - (declare-type started-thread-exception-procedure (@lambda 1 #f)) - (declare-type terminated-thread-exception? (@lambda 1 #f)) - (declare-type terminated-thread-exception-arguments (@lambda 1 #f)) - (declare-type terminated-thread-exception-procedure (@lambda 1 #f)) - (declare-type type-exception? (@lambda 1 #f)) - (declare-type type-exception-arg-id (@lambda 1 #f)) - (declare-type type-exception-arguments (@lambda 1 #f)) - (declare-type type-exception-procedure (@lambda 1 #f)) - (declare-type type-exception-type-id (@lambda 1 #f)) - (declare-type unbound-global-exception? (@lambda 1 #f)) - (declare-type unbound-global-exception-code (@lambda 1 #f)) - (declare-type unbound-global-exception-rte (@lambda 1 #f)) - (declare-type unbound-global-exception-variable (@lambda 1 #f)) - (declare-type unbound-key-exception? (@lambda 1 #f)) - (declare-type unbound-key-exception-arguments (@lambda 1 #f)) - (declare-type unbound-key-exception-procedure (@lambda 1 #f)) - (declare-type unbound-os-environment-variable-exception? (@lambda 1 #f)) + reset-port-width! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) (declare-type - unbound-os-environment-variable-exception-arguments - (@lambda 1 #f)) + datum-parsing-exception-filepos + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) (declare-type - unbound-os-environment-variable-exception-procedure - (@lambda 1 #f)) - (declare-type unbound-serial-number-exception? (@lambda 1 #f)) - (declare-type unbound-serial-number-exception-arguments (@lambda 1 #f)) - (declare-type unbound-serial-number-exception-procedure (@lambda 1 #f)) - (declare-type uncaught-exception? (@lambda 1 #f)) - (declare-type uncaught-exception-arguments (@lambda 1 #f)) - (declare-type uncaught-exception-procedure (@lambda 1 #f)) - (declare-type uncaught-exception-reason (@lambda 1 #f)) - (declare-type uninitialized-thread-exception? (@lambda 1 #f)) - (declare-type uninitialized-thread-exception-arguments (@lambda 1 #f)) - (declare-type uninitialized-thread-exception-procedure (@lambda 1 #f)) - (declare-type unknown-keyword-argument-exception? (@lambda 1 #f)) - (declare-type unknown-keyword-argument-exception-arguments (@lambda 1 #f)) - (declare-type unknown-keyword-argument-exception-procedure (@lambda 1 #f)) - (declare-type unterminated-process-exception? (@lambda 1 #f)) - (declare-type unterminated-process-exception-arguments (@lambda 1 #f)) - (declare-type unterminated-process-exception-procedure (@lambda 1 #f)) - (declare-type wrong-number-of-arguments-exception? (@lambda 1 #f)) - (declare-type wrong-number-of-arguments-exception-arguments (@lambda 1 #f)) - (declare-type wrong-number-of-arguments-exception-procedure (@lambda 1 #f)) - (declare-type wrong-number-of-values-exception? (@lambda 1 #f)) - (declare-type wrong-number-of-values-exception-code (@lambda 1 #f)) - (declare-type wrong-number-of-values-exception-rte (@lambda 1 #f)) - (declare-type wrong-number-of-values-exception-vals (@lambda 1 #f)) - (declare-type wrong-processor-c-return-exception? (@lambda 1 #f))) + abandoned-mutex-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + cfun-conversion-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + cfun-conversion-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + cfun-conversion-exception-code + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + cfun-conversion-exception-message + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + cfun-conversion-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + datum-parsing-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + datum-parsing-exception-kind + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + datum-parsing-exception-parameters + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + datum-parsing-exception-readenv + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + deadlock-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + divide-by-zero-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + divide-by-zero-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + divide-by-zero-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + error-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + error-exception-message + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + error-exception-parameters + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + expression-parsing-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + expression-parsing-exception-kind + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + expression-parsing-exception-parameters + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + expression-parsing-exception-source + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + file-exists-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + file-exists-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + file-exists-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + fixnum-overflow-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + fixnum-overflow-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + fixnum-overflow-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + heap-overflow-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + inactive-thread-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + inactive-thread-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + inactive-thread-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + initialized-thread-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + initialized-thread-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + initialized-thread-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + invalid-hash-number-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + invalid-hash-number-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + invalid-hash-number-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + invalid-utf8-encoding-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + invalid-utf8-encoding-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + invalid-utf8-encoding-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + join-timeout-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + join-timeout-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + join-timeout-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + keyword-expected-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + keyword-expected-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + keyword-expected-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + length-mismatch-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + length-mismatch-exception-arg-id + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + length-mismatch-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + length-mismatch-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + mailbox-receive-timeout-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + mailbox-receive-timeout-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + mailbox-receive-timeout-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + module-not-found-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + module-not-found-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + module-not-found-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + multiple-c-return-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + no-such-file-or-directory-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + no-such-file-or-directory-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + no-such-file-or-directory-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + noncontinuable-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + noncontinuable-exception-reason + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + nonempty-input-port-character-buffer-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + nonempty-input-port-character-buffer-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + nonempty-input-port-character-buffer-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + nonprocedure-operator-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + nonprocedure-operator-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + nonprocedure-operator-exception-code + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + nonprocedure-operator-exception-operator + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + nonprocedure-operator-exception-rte + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + not-in-compilation-context-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + not-in-compilation-context-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + not-in-compilation-context-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + number-of-arguments-limit-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + number-of-arguments-limit-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + number-of-arguments-limit-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + os-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + os-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + os-exception-code + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + os-exception-message + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + os-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + permission-denied-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + permission-denied-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + permission-denied-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + range-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + range-exception-arg-id + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + range-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + range-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + rpc-remote-error-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + rpc-remote-error-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + rpc-remote-error-exception-message + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + rpc-remote-error-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + scheduler-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + scheduler-exception-reason + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + sfun-conversion-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + sfun-conversion-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + sfun-conversion-exception-code + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + sfun-conversion-exception-message + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + sfun-conversion-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + stack-overflow-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + started-thread-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + started-thread-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + started-thread-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + terminated-thread-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + terminated-thread-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + terminated-thread-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + type-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + type-exception-arg-id + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + type-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + type-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + type-exception-type-id + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unbound-global-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unbound-global-exception-code + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unbound-global-exception-rte + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unbound-global-exception-variable + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unbound-key-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unbound-key-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unbound-key-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unbound-os-environment-variable-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unbound-os-environment-variable-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unbound-os-environment-variable-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unbound-serial-number-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unbound-serial-number-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unbound-serial-number-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + uncaught-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + uncaught-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + uncaught-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + uncaught-exception-reason + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + uninitialized-thread-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + uninitialized-thread-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + uninitialized-thread-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unknown-keyword-argument-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unknown-keyword-argument-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unknown-keyword-argument-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unterminated-process-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unterminated-process-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + unterminated-process-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + wrong-number-of-arguments-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + wrong-number-of-arguments-exception-arguments + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + wrong-number-of-arguments-exception-procedure + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + wrong-number-of-values-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + wrong-number-of-values-exception-code + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + wrong-number-of-values-exception-rte + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + wrong-number-of-values-exception-vals + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error))) + (declare-type + wrong-processor-c-return-exception? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/error)))) diff --git a/src/bootstrap/gerbil/runtime/error~0.scm b/src/bootstrap/gerbil/runtime/error~0.scm index 3e8b5d575..8b35061b7 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 1712533289) + (define gerbil/runtime/error::timestamp 1712573429) (begin (define Exception::t - (let ((__tmp100587 (list))) + (let ((__tmp100181 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Exception::t 'Exception - __tmp100587 + __tmp100181 '() '() '#f))) (define Exception? (let () (declare (not safe)) (__make-class-predicate Exception::t))) (define make-Exception - (lambda _%$args100577%_ - (apply make-instance Exception::t _%$args100577%_))) + (lambda _%$args100171%_ + (apply make-instance Exception::t _%$args100171%_))) (define StackTrace::t - (let ((__tmp100588 (list))) + (let ((__tmp100182 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#StackTrace::t 'StackTrace - __tmp100588 + __tmp100182 '(continuation) '() '#f))) (define StackTrace? (let () (declare (not safe)) (__make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _%$args100574%_ - (apply make-instance StackTrace::t _%$args100574%_))) + (lambda _%$args100168%_ + (apply make-instance StackTrace::t _%$args100168%_))) (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 ((__tmp100589 (list StackTrace::t Exception::t))) + (let ((__tmp100183 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Error::t 'Error - __tmp100589 + __tmp100183 '(message irritants where) '((transparent: . #t)) ':init!))) (define Error? (let () (declare (not safe)) (__make-class-predicate Error::t))) (define make-Error - (lambda _%$args100571%_ (apply make-instance Error::t _%$args100571%_))) + (lambda _%$args100165%_ (apply make-instance Error::t _%$args100165%_))) (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 ((__tmp100590 (list Error::t))) + (let ((__tmp100184 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#ContractViolation::t 'ContractViolation - __tmp100590 + __tmp100184 '() '() '#f))) @@ -141,8 +141,8 @@ (declare (not safe)) (__make-class-predicate ContractViolation::t))) (define make-ContractViolation - (lambda _%$args100568%_ - (apply make-instance ContractViolation::t _%$args100568%_))) + (lambda _%$args100162%_ + (apply make-instance ContractViolation::t _%$args100162%_))) (define ContractViolation-message (let () (declare (not safe)) @@ -214,12 +214,12 @@ ContractViolation::t 'continuation))) (define RuntimeException::t - (let ((__tmp100591 (list StackTrace::t Exception::t))) + (let ((__tmp100185 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#RuntimeException::t 'RuntimeException - __tmp100591 + __tmp100185 '(exception) '((transparent: . #t)) '#f))) @@ -228,8 +228,8 @@ (declare (not safe)) (__make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _%$args100565%_ - (apply make-instance RuntimeException::t _%$args100565%_))) + (lambda _%$args100159%_ + (apply make-instance RuntimeException::t _%$args100159%_))) (define RuntimeException-exception (let () (declare (not safe)) @@ -267,229 +267,206 @@ RuntimeException::t 'continuation))) (define gerbil-exception-handler-hook - (lambda (_%exn100560%_ _%continue100561%_) - (let ((_%exn100563%_ - (let () - (declare (not safe)) - (wrap-runtime-exception _%exn100560%_)))) + (lambda (_%exn100154%_ _%continue100155%_) + (let ((_%exn100157%_ (wrap-runtime-exception _%exn100154%_))) (declare (not safe)) - (##repl-exception-handler-hook _%exn100563%_ _%continue100561%_)))) + (##repl-exception-handler-hook _%exn100157%_ _%continue100155%_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_%exn100556%_) + (lambda (_%exn100150%_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn100556%_)) + (class-instance? StackTrace::t _%exn100150%_)) (if (let () (declare (not safe)) - (unchecked-slot-ref _%exn100556%_ 'continuation)) + (unchecked-slot-ref _%exn100150%_ 'continuation)) '#!void - (let ((__tmp100592 - (lambda (_%cont100558%_) + (let ((__tmp100186 + (lambda (_%cont100152%_) (let () (declare (not safe)) (unchecked-slot-set! - _%exn100556%_ + _%exn100150%_ 'continuation - _%cont100558%_))))) + _%cont100152%_))))) (declare (not safe)) - (##continuation-capture __tmp100592))) + (##continuation-capture __tmp100186))) '#!void) - (let () (declare (not safe)) (##raise _%exn100556%_)))) + (let () (declare (not safe)) (##raise _%exn100150%_)))) (define error - (lambda (_%message100553%_ . _%irritants100554%_) - (let ((__tmp100593 - (let ((__obj100584 + (lambda (_%message100147%_ . _%irritants100148%_) + (raise (let ((__obj100178 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj100584 - _%message100553%_ + __obj100178 + _%message100147%_ 'irritants: - _%irritants100554%_) - __obj100584))) - (declare (not safe)) - (raise __tmp100593)))) + _%irritants100148%_) + __obj100178)))) (define __raise-contract-violation-error__% - (lambda (_%@@keywords100525%_ - _%ctx100520100526%_ - _%contract-expr100521100528%_ - _%value100522100530%_ - _%message100532%_) - (let* ((_%ctx100534%_ - (if (eq? _%ctx100520100526%_ absent-value) + (lambda (_%@@keywords100119%_ + _%ctx100114100120%_ + _%contract-expr100115100122%_ + _%value100116100124%_ + _%message100126%_) + (let* ((_%ctx100128%_ + (if (eq? _%ctx100114100120%_ absent-value) '#f - _%ctx100520100526%_)) - (_%contract-expr100536%_ - (if (eq? _%contract-expr100521100528%_ absent-value) + _%ctx100114100120%_)) + (_%contract-expr100130%_ + (if (eq? _%contract-expr100115100122%_ absent-value) '#f - _%contract-expr100521100528%_)) - (_%value100538%_ - (if (eq? _%value100522100530%_ absent-value) + _%contract-expr100115100122%_)) + (_%value100132%_ + (if (eq? _%value100116100124%_ absent-value) '#f - _%value100522100530%_)) - (__tmp100594 - (let ((__obj100585 - (let () - (declare (not safe)) - (##structure ContractViolation::t '#f '#f '#f '#f)))) - (ContractViolation:::init! - __obj100585 - _%message100532%_ - 'where: - _%ctx100534%_ - 'irritants: - (cons 'contract: - (cons _%contract-expr100536%_ - (cons 'value: (cons _%value100538%_ '()))))) - __obj100585))) - (declare (not safe)) - (raise __tmp100594)))) + _%value100116100124%_))) + (raise (let ((__obj100179 + (let () + (declare (not safe)) + (##structure ContractViolation::t '#f '#f '#f '#f)))) + (ContractViolation:::init! + __obj100179 + _%message100126%_ + 'where: + _%ctx100128%_ + 'irritants: + (cons 'contract: + (cons _%contract-expr100130%_ + (cons 'value: (cons _%value100132%_ '()))))) + __obj100179))))) (define __raise-contract-violation-error__@ - (lambda (_%@@keywords100543%_ . _%args100544%_) + (lambda (_%@@keywords100137%_ . _%args100138%_) (apply __raise-contract-violation-error__% - _%@@keywords100543%_ + _%@@keywords100137%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords100543%_ + _%@@keywords100137%_ 'context: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords100543%_ + _%@@keywords100137%_ 'contract: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords100543%_ + _%@@keywords100137%_ 'value: absent-value)) - _%args100544%_))) + _%args100138%_))) (define __raise-contract-violation-error - (lambda _%args100523100550%_ + (lambda _%args100117100144%_ (apply keyword-dispatch '#(context: #f value: contract:) __raise-contract-violation-error__@ - _%args100523100550%_))) + _%args100117100144%_))) (set! raise-contract-violation-error __raise-contract-violation-error) (define contract-violation-error? ContractViolation?) (define with-exception-handler - (lambda (_%handler100494%_ _%thunk100495%_) - (let () - (if (let () (declare (not safe)) (procedure? _%handler100494%_)) - (let ((_%handler100499%_ _%handler100494%_)) - (if (let () (declare (not safe)) (procedure? _%thunk100495%_)) - (let ((_%thunk100509%_ _%thunk100495%_)) - (declare (not safe)) - (__with-exception-handler - _%handler100499%_ - _%thunk100509%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/error.ss\"@59.54-59.59" - 'contract: - 'procedure? - 'value: - _%thunk100495%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/error.ss\"@59.31-59.38" - 'contract: - 'procedure? - 'value: - _%handler100494%_) - '#!void))))) + (lambda (_%handler100088%_ _%thunk100089%_) + (if (procedure? _%handler100088%_) + (let ((_%handler100093%_ _%handler100088%_)) + (if (procedure? _%thunk100089%_) + (let ((_%thunk100103%_ _%thunk100089%_)) + (__with-exception-handler + _%handler100093%_ + _%thunk100103%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/error.ss\"@59.54-59.59" + 'contract: + 'procedure? + 'value: + _%thunk100089%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/error.ss\"@59.31-59.38" + 'contract: + 'procedure? + 'value: + _%handler100088%_) + '#!void)))) (define __with-exception-handler - (lambda (_%handler100469%_ _%thunk100470%_) - (let ((_%handler100473%_ _%handler100469%_)) - (let* ((_%thunk100481%_ _%thunk100470%_) - (__tmp100595 - (lambda (_%exn100490%_) - (let ((_%exn100492%_ - (let () - (declare (not safe)) - (wrap-runtime-exception _%exn100490%_)))) - (declare (not safe)) - (_%handler100473%_ _%exn100492%_))))) - (declare (not safe)) - (##with-exception-handler __tmp100595 _%thunk100481%_))))) + (lambda (_%handler100063%_ _%thunk100064%_) + (let* ((_%handler100067%_ _%handler100063%_) + (_%thunk100075%_ _%thunk100064%_) + (__tmp100187 + (lambda (_%exn100084%_) + (let ((_%exn100086%_ (wrap-runtime-exception _%exn100084%_))) + (declare (not safe)) + (_%handler100067%_ _%exn100086%_))))) + (declare (not safe)) + (##with-exception-handler __tmp100187 _%thunk100075%_)))) (define with-catch - (lambda (_%handler100444%_ _%thunk100445%_) - (let () - (if (let () (declare (not safe)) (procedure? _%handler100444%_)) - (let ((_%handler100449%_ _%handler100444%_)) - (if (let () (declare (not safe)) (procedure? _%thunk100445%_)) - (let ((_%thunk100459%_ _%thunk100445%_)) - (declare (not safe)) - (__with-catch _%handler100449%_ _%thunk100459%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/error.ss\"@66.42-66.47" - 'contract: - 'procedure? - 'value: - _%thunk100445%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/error.ss\"@66.19-66.26" - 'contract: - 'procedure? - 'value: - _%handler100444%_) - '#!void))))) + (lambda (_%handler100038%_ _%thunk100039%_) + (if (procedure? _%handler100038%_) + (let ((_%handler100043%_ _%handler100038%_)) + (if (procedure? _%thunk100039%_) + (let ((_%thunk100053%_ _%thunk100039%_)) + (__with-catch _%handler100043%_ _%thunk100053%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/error.ss\"@66.42-66.47" + 'contract: + 'procedure? + 'value: + _%thunk100039%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/error.ss\"@66.19-66.26" + 'contract: + 'procedure? + 'value: + _%handler100038%_) + '#!void)))) (define __with-catch - (lambda (_%handler100419%_ _%thunk100420%_) - (let ((_%handler100423%_ _%handler100419%_)) - (let* ((_%thunk100431%_ _%thunk100420%_) - (__tmp100596 - (lambda (_%cont100440%_) - (let ((__tmp100597 - (lambda (_%exn100442%_) - (let () - (declare (not safe)) - (##continuation-graft - _%cont100440%_ - _%handler100423%_ - _%exn100442%_))))) - (declare (not safe)) - (__with-exception-handler - __tmp100597 - _%thunk100431%_))))) - (declare (not safe)) - (##continuation-capture __tmp100596))))) + (lambda (_%handler100013%_ _%thunk100014%_) + (let* ((_%handler100017%_ _%handler100013%_) + (_%thunk100025%_ _%thunk100014%_) + (__tmp100188 + (lambda (_%cont100034%_) + (__with-exception-handler + (lambda (_%exn100036%_) + (let () + (declare (not safe)) + (##continuation-graft + _%cont100034%_ + _%handler100017%_ + _%exn100036%_))) + _%thunk100025%_)))) + (declare (not safe)) + (##continuation-capture __tmp100188)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_%exn100406%_) - (if (or (let () - (declare (not safe)) - (heap-overflow-exception? _%exn100406%_)) - (let () - (declare (not safe)) - (stack-overflow-exception? _%exn100406%_))) - (let () _%exn100406%_) + (lambda (_%exn100000%_) + (if (or (heap-overflow-exception? _%exn100000%_) + (stack-overflow-exception? _%exn100000%_)) + _%exn100000%_ (if (let () (declare (not safe)) - (class-instance? Exception::t _%exn100406%_)) - (let () _%exn100406%_) - (if (macro-exception? _%exn100406%_) - (let ((_%rte100414%_ - (let ((__obj100586 + (class-instance? Exception::t _%exn100000%_)) + _%exn100000%_ + (if (macro-exception? _%exn100000%_) + (let ((_%rte100008%_ + (let ((__obj100180 (let () (declare (not safe)) (##structure @@ -499,131 +476,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj100586 - _%exn100406%_ + __obj100180 + _%exn100000%_ '2 '#f '#f)) - __obj100586))) - (let ((__tmp100598 - (lambda (_%cont100416%_) - (let ((__tmp100599 + __obj100180))) + (let ((__tmp100189 + (lambda (_%cont100010%_) + (let ((__tmp100190 (let () (declare (not safe)) - (##continuation-next _%cont100416%_)))) + (##continuation-next _%cont100010%_)))) (declare (not safe)) (unchecked-slot-set! - _%rte100414%_ + _%rte100008%_ 'continuation - __tmp100599))))) + __tmp100190))))) (declare (not safe)) - (##continuation-capture __tmp100598)) - _%rte100414%_) - (let () _%exn100406%_)))))) + (##continuation-capture __tmp100189)) + _%rte100008%_) + _%exn100000%_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_%obj100401%_) - (let ((_%$e100403%_ + (lambda (_%obj99995%_) + (let ((_%$e99997%_ (let () (declare (not safe)) - (class-instance? Error::t _%obj100401%_)))) - (if _%$e100403%_ - _%$e100403%_ - (let () - (declare (not safe)) - (error-exception? _%obj100401%_)))))) + (class-instance? Error::t _%obj99995%_)))) + (if _%$e99997%_ _%$e99997%_ (error-exception? _%obj99995%_))))) (define error-message - (lambda (_%obj100394%_) - (let ((_%$e100396%_ + (lambda (_%obj99988%_) + (let ((_%$e99990%_ (let () (declare (not safe)) - (__slot-ref _%obj100394%_ 'message false)))) - (if _%$e100396%_ - _%$e100396%_ - (if (let () - (declare (not safe)) - (error-exception? _%obj100394%_)) - (let () - (declare (not safe)) - (error-exception-message _%obj100394%_)) - (let () '#f)))))) + (__slot-ref _%obj99988%_ 'message false)))) + (if _%$e99990%_ + _%$e99990%_ + (if (error-exception? _%obj99988%_) + (error-exception-message _%obj99988%_) + '#f))))) (define error-irritants - (lambda (_%obj100389%_) + (lambda (_%obj99983%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj100389%_)) + (class-instance? Error::t _%obj99983%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj100389%_ 'irritants)) - (if (let () (declare (not safe)) (error-exception? _%obj100389%_)) - (let () - (declare (not safe)) - (error-exception-parameters _%obj100389%_)) - (let () '#f))))) + (unchecked-slot-ref _%obj99983%_ 'irritants)) + (if (error-exception? _%obj99983%_) + (error-exception-parameters _%obj99983%_) + '#f)))) (define error-trace - (lambda (_%obj100387%_) + (lambda (_%obj99981%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj100387%_)) + (class-instance? Error::t _%obj99981%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj100387%_ 'where)) + (unchecked-slot-ref _%obj99981%_ 'where)) '#f))) (define display-exception__% - (lambda (_%e100368%_ _%port100369%_) - (let ((_%$e100371%_ + (lambda (_%e99962%_ _%port99963%_) + (let ((_%$e99965%_ (let () (declare (not safe)) - (__method-ref _%e100368%_ 'display-exception)))) - (if _%$e100371%_ - ((lambda (_%f100374%_) (_%f100374%_ _%e100368%_ _%port100369%_)) - _%$e100371%_) + (__method-ref _%e99962%_ 'display-exception)))) + (if _%$e99965%_ + ((lambda (_%f99968%_) (_%f99968%_ _%e99962%_ _%port99963%_)) + _%$e99965%_) (let () (declare (not safe)) - (##default-display-exception _%e100368%_ _%port100369%_)))))) + (##default-display-exception _%e99962%_ _%port99963%_)))))) (define display-exception__0 - (lambda (_%e100380%_) - (let ((_%port100382%_ (current-error-port))) - (declare (not safe)) - (display-exception__% _%e100380%_ _%port100382%_)))) + (lambda (_%e99974%_) + (let ((_%port99976%_ (current-error-port))) + (display-exception__% _%e99974%_ _%port99976%_)))) (define display-exception - (lambda _g100601_ - (let ((_g100600_ (let () (declare (not safe)) (##length _g100601_)))) - (cond ((let () (declare (not safe)) (##fx= _g100600_ 1)) - (apply (lambda (_%e100380%_) - (let () - (declare (not safe)) - (display-exception__0 _%e100380%_))) - _g100601_)) - ((let () (declare (not safe)) (##fx= _g100600_ 2)) - (apply (lambda (_%e100384%_ _%port100385%_) - (let () - (declare (not safe)) - (display-exception__% _%e100384%_ _%port100385%_))) - _g100601_)) + (lambda _g100192_ + (let ((_g100191_ (let () (declare (not safe)) (##length _g100192_)))) + (cond ((let () (declare (not safe)) (##fx= _g100191_ 1)) + (apply display-exception__0 _g100192_)) + ((let () (declare (not safe)) (##fx= _g100191_ 2)) + (apply display-exception__% _g100192_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g100601_)))))) + _g100192_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_%self100346%_ _%message100347%_ . _%rest100348%_) - (let () - (let* ((_%self100351%_ _%self100346%_) - (_%message100365%_ - (if (let () (declare (not safe)) (string? _%message100347%_)) - _%message100347%_ - (call-with-output-string - '"" - (lambda (_%g100360100362%_) - (display _%message100347%_ _%g100360100362%_)))))) - (let () - (declare (not safe)) - (unchecked-slot-set! _%self100351%_ 'message _%message100365%_)) - (apply class-instance-init! _%self100351%_ _%rest100348%_))))) + (lambda (_%self99940%_ _%message99941%_ . _%rest99942%_) + (let* ((_%self99945%_ _%self99940%_) + (_%message99959%_ + (if (string? _%message99941%_) + _%message99941%_ + (call-with-output-string + '"" + (lambda (_%g9995499956%_) + (display _%message99941%_ _%g9995499956%_)))))) + (let () + (declare (not safe)) + (unchecked-slot-set! _%self99945%_ 'message _%message99959%_)) + (apply class-instance-init! _%self99945%_ _%rest99942%_)))) (let () (declare (not safe)) (__bind-method! Error::t ':init! Error:::init! '#f)) @@ -637,92 +594,86 @@ '#f)) (define dump-stack-trace? (make-parameter '#f)) (define Error::display-exception - (lambda (_%self100070%_ _%port100071%_) - (let ((_%self100074%_ _%self100070%_)) - (let ((_%tmp-port100084%_ (open-output-string)) - (_%display-error-newline100085%_ - (> (output-port-column _%port100071%_) '0))) - (let () (declare (not safe)) (fix-port-width! _%tmp-port100084%_)) - (let ((__tmp100602 + (lambda (_%self99664%_ _%port99665%_) + (let ((_%self99668%_ _%self99664%_)) + (let ((_%tmp-port99678%_ (open-output-string)) + (_%display-error-newline99679%_ + (> (output-port-column _%port99665%_) '0))) + (fix-port-width! _%tmp-port99678%_) + (let ((__tmp100193 (lambda () - (if _%display-error-newline100085%_ (newline) '#!void) + (if _%display-error-newline99679%_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_%$e100088%_ + (let ((_%$e99682%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self100074%_ 'where)))) - (if _%$e100088%_ - (display _%$e100088%_) - (let () (display '"?")))) - (let ((__tmp100603 - (let ((__tmp100604 + (unchecked-slot-ref _%self99668%_ 'where)))) + (if _%$e99682%_ (display _%$e99682%_) (display '"?"))) + (let ((__tmp100194 + (let ((__tmp100195 (let () (declare (not safe)) - (object-type _%self100074%_)))) + (object-type _%self99668%_)))) (declare (not safe)) - (##type-name __tmp100604)))) + (##type-name __tmp100195)))) (declare (not safe)) - (display* '" [" __tmp100603 '"]: ")) - (let ((__tmp100605 + (display* '" [" __tmp100194 '"]: ")) + (let ((__tmp100196 (let () (declare (not safe)) - (unchecked-slot-ref _%self100074%_ 'message)))) + (unchecked-slot-ref _%self99668%_ 'message)))) (declare (not safe)) - (displayln __tmp100605)) - (let ((_%irritants100092%_ + (displayln __tmp100196)) + (let ((_%irritants99686%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self100074%_ 'irritants)))) - (if (let () - (declare (not safe)) - (null? _%irritants100092%_)) + (unchecked-slot-ref _%self99668%_ 'irritants)))) + (if (null? _%irritants99686%_) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_%obj100094%_) - (if (let () - (declare (not safe)) - (u8vector? _%obj100094%_)) - (let ((__tmp100606 + (lambda (_%obj99688%_) + (if (u8vector? _%obj99688%_) + (let ((__tmp100197 (cons ' (cons (u8vector-length - _%obj100094%_) + _%obj99688%_) '())))) (declare (not safe)) - (##write __tmp100606)) + (##write __tmp100197)) (let () (declare (not safe)) - (##write _%obj100094%_))) + (##write _%obj99688%_))) (let () (declare (not safe)) (##write-char '#\space))) - _%irritants100092%_) + _%irritants99686%_) (newline)))) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont100095100097%_ + (let ((_%cont9968999691%_ (let () (declare (not safe)) (unchecked-slot-ref - _%self100074%_ + _%self99668%_ 'continuation)))) - (if _%cont100095100097%_ - (let ((_%cont100100%_ _%cont100095100097%_)) + (if _%cont9968999691%_ + (let ((_%cont99694%_ _%cont9968999691%_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _%cont100100%_)) + _%cont99694%_)) '#f)) '#!void)))) (declare (not safe)) (__call-with-parameters - __tmp100602 + __tmp100193 current-output-port - _%tmp-port100084%_)) - (let ((__tmp100607 (get-output-string _%tmp-port100084%_))) + _%tmp-port99678%_)) + (let ((__tmp100198 (get-output-string _%tmp-port99678%_))) (declare (not safe)) - (##write-string __tmp100607 _%port100071%_)))))) + (##write-string __tmp100198 _%port99665%_)))))) (let () (declare (not safe)) (__bind-method! @@ -731,35 +682,34 @@ Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_%self99926%_ _%port99927%_) - (let () - (let* ((_%self99930%_ _%self99926%_) - (_%tmp-port99940%_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _%tmp-port99940%_)) - (let ((__tmp100608 - (let () - (declare (not safe)) - (unchecked-slot-ref _%self99930%_ 'exception)))) - (declare (not safe)) - (##default-display-exception __tmp100608 _%tmp-port99940%_)) - (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont9994199943%_ - (let () - (declare (not safe)) - (unchecked-slot-ref _%self99930%_ 'continuation)))) - (if _%cont9994199943%_ - (let ((_%cont99946%_ _%cont9994199943%_)) - (display '"--- continuation backtrace:" - _%tmp-port99940%_) - (newline _%tmp-port99940%_) - (display-continuation-backtrace - _%cont99946%_ - _%tmp-port99940%_)) - '#f)) - '#!void) - (let ((__tmp100609 (get-output-string _%tmp-port99940%_))) - (declare (not safe)) - (##write-string __tmp100609 _%port99927%_)))))) + (lambda (_%self99520%_ _%port99521%_) + (let* ((_%self99524%_ _%self99520%_) + (_%tmp-port99534%_ (open-output-string))) + (fix-port-width! _%tmp-port99534%_) + (let ((__tmp100199 + (let () + (declare (not safe)) + (unchecked-slot-ref _%self99524%_ 'exception)))) + (declare (not safe)) + (##default-display-exception __tmp100199 _%tmp-port99534%_)) + (if (let () (declare (not safe)) (dump-stack-trace?)) + (let ((_%cont9953599537%_ + (let () + (declare (not safe)) + (unchecked-slot-ref _%self99524%_ 'continuation)))) + (if _%cont9953599537%_ + (let ((_%cont99540%_ _%cont9953599537%_)) + (display '"--- continuation backtrace:" + _%tmp-port99534%_) + (newline _%tmp-port99534%_) + (display-continuation-backtrace + _%cont99540%_ + _%tmp-port99534%_)) + '#f)) + '#!void) + (let ((__tmp100200 (get-output-string _%tmp-port99534%_))) + (declare (not safe)) + (##write-string __tmp100200 _%port99521%_))))) (let () (declare (not safe)) (__bind-method! @@ -768,3160 +718,2631 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_%port99798%_) - (if (macro-character-port? _%port99798%_) - (let ((_%old-width99800%_ - (macro-character-port-output-width _%port99798%_))) + (lambda (_%port99392%_) + (if (macro-character-port? _%port99392%_) + (let ((_%old-width99394%_ + (macro-character-port-output-width _%port99392%_))) (macro-character-port-output-width-set! - _%port99798%_ - (lambda (_%port99802%_) '256)) - _%old-width99800%_) + _%port99392%_ + (lambda (_%port99396%_) '256)) + _%old-width99394%_) '#!void))) (define reset-port-width! - (lambda (_%port99795%_ _%old-width99796%_) - (if (macro-character-port? _%port99795%_) + (lambda (_%port99389%_ _%old-width99390%_) + (if (macro-character-port? _%port99389%_) (macro-character-port-output-width-set! - _%port99795%_ - _%old-width99796%_) + _%port99389%_ + _%old-width99390%_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_%e99793%_) - (macro-readenv-filepos - (let () - (declare (not safe)) - (datum-parsing-exception-readenv _%e99793%_))))) + (lambda (_%e99387%_) + (macro-readenv-filepos (datum-parsing-exception-readenv _%e99387%_)))) (define abandoned-mutex-exception? - (lambda (_%exn99787%_) + (lambda (_%exn99381%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99787%_)) - (let ((_%e99790%_ + (class-instance? RuntimeException::t _%exn99381%_)) + (let ((_%e99384%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99787%_ 'exception)))) - (macro-abandoned-mutex-exception? _%e99790%_)) - (macro-abandoned-mutex-exception? _%exn99787%_)))) + (unchecked-slot-ref _%exn99381%_ 'exception)))) + (macro-abandoned-mutex-exception? _%e99384%_)) + (macro-abandoned-mutex-exception? _%exn99381%_)))) (define cfun-conversion-exception? - (lambda (_%exn99783%_) + (lambda (_%exn99377%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99783%_)) - (let ((_%e99785%_ + (class-instance? RuntimeException::t _%exn99377%_)) + (let ((_%e99379%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99783%_ 'exception)))) - (macro-cfun-conversion-exception? _%e99785%_)) - (macro-cfun-conversion-exception? _%exn99783%_)))) + (unchecked-slot-ref _%exn99377%_ 'exception)))) + (macro-cfun-conversion-exception? _%e99379%_)) + (macro-cfun-conversion-exception? _%exn99377%_)))) (define cfun-conversion-exception-arguments - (lambda (_%exn99779%_) + (lambda (_%exn99373%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99779%_)) - (let ((_%e99781%_ + (class-instance? RuntimeException::t _%exn99373%_)) + (let ((_%e99375%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99779%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e99781%_) - (macro-cfun-conversion-exception-arguments _%e99781%_) - (let ((__tmp100610 - (cons 'cfun-conversion-exception-arguments - (cons _%e99781%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'cfun-conversion-exception? - __tmp100610)))) - (if (macro-cfun-conversion-exception? _%exn99779%_) - (macro-cfun-conversion-exception-arguments _%exn99779%_) - (let ((__tmp100611 - (cons 'cfun-conversion-exception-arguments - (cons _%exn99779%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99373%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e99375%_) + (macro-cfun-conversion-exception-arguments _%e99375%_) (error '"not an instance" 'cfun-conversion-exception? - __tmp100611)))))) + (cons 'cfun-conversion-exception-arguments + (cons _%e99375%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn99373%_) + (macro-cfun-conversion-exception-arguments _%exn99373%_) + (error '"not an instance" + 'cfun-conversion-exception? + (cons 'cfun-conversion-exception-arguments + (cons _%exn99373%_ '()))))))) (define cfun-conversion-exception-code - (lambda (_%exn99775%_) + (lambda (_%exn99369%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99775%_)) - (let ((_%e99777%_ + (class-instance? RuntimeException::t _%exn99369%_)) + (let ((_%e99371%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99775%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e99777%_) - (macro-cfun-conversion-exception-code _%e99777%_) - (let ((__tmp100612 - (cons 'cfun-conversion-exception-code - (cons _%e99777%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'cfun-conversion-exception? - __tmp100612)))) - (if (macro-cfun-conversion-exception? _%exn99775%_) - (macro-cfun-conversion-exception-code _%exn99775%_) - (let ((__tmp100613 - (cons 'cfun-conversion-exception-code - (cons _%exn99775%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99369%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e99371%_) + (macro-cfun-conversion-exception-code _%e99371%_) (error '"not an instance" 'cfun-conversion-exception? - __tmp100613)))))) + (cons 'cfun-conversion-exception-code + (cons _%e99371%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn99369%_) + (macro-cfun-conversion-exception-code _%exn99369%_) + (error '"not an instance" + 'cfun-conversion-exception? + (cons 'cfun-conversion-exception-code + (cons _%exn99369%_ '()))))))) (define cfun-conversion-exception-message - (lambda (_%exn99771%_) + (lambda (_%exn99365%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99771%_)) - (let ((_%e99773%_ + (class-instance? RuntimeException::t _%exn99365%_)) + (let ((_%e99367%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99771%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e99773%_) - (macro-cfun-conversion-exception-message _%e99773%_) - (let ((__tmp100614 - (cons 'cfun-conversion-exception-message - (cons _%e99773%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'cfun-conversion-exception? - __tmp100614)))) - (if (macro-cfun-conversion-exception? _%exn99771%_) - (macro-cfun-conversion-exception-message _%exn99771%_) - (let ((__tmp100615 - (cons 'cfun-conversion-exception-message - (cons _%exn99771%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99365%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e99367%_) + (macro-cfun-conversion-exception-message _%e99367%_) (error '"not an instance" 'cfun-conversion-exception? - __tmp100615)))))) + (cons 'cfun-conversion-exception-message + (cons _%e99367%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn99365%_) + (macro-cfun-conversion-exception-message _%exn99365%_) + (error '"not an instance" + 'cfun-conversion-exception? + (cons 'cfun-conversion-exception-message + (cons _%exn99365%_ '()))))))) (define cfun-conversion-exception-procedure - (lambda (_%exn99765%_) + (lambda (_%exn99359%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99765%_)) - (let ((_%e99768%_ + (class-instance? RuntimeException::t _%exn99359%_)) + (let ((_%e99362%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99765%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e99768%_) - (macro-cfun-conversion-exception-procedure _%e99768%_) - (let ((__tmp100616 - (cons 'cfun-conversion-exception-procedure - (cons _%e99768%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'cfun-conversion-exception? - __tmp100616)))) - (if (macro-cfun-conversion-exception? _%exn99765%_) - (macro-cfun-conversion-exception-procedure _%exn99765%_) - (let ((__tmp100617 - (cons 'cfun-conversion-exception-procedure - (cons _%exn99765%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99359%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e99362%_) + (macro-cfun-conversion-exception-procedure _%e99362%_) (error '"not an instance" 'cfun-conversion-exception? - __tmp100617)))))) + (cons 'cfun-conversion-exception-procedure + (cons _%e99362%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn99359%_) + (macro-cfun-conversion-exception-procedure _%exn99359%_) + (error '"not an instance" + 'cfun-conversion-exception? + (cons 'cfun-conversion-exception-procedure + (cons _%exn99359%_ '()))))))) (define datum-parsing-exception? - (lambda (_%exn99761%_) + (lambda (_%exn99355%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99761%_)) - (let ((_%e99763%_ + (class-instance? RuntimeException::t _%exn99355%_)) + (let ((_%e99357%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99761%_ 'exception)))) - (macro-datum-parsing-exception? _%e99763%_)) - (macro-datum-parsing-exception? _%exn99761%_)))) + (unchecked-slot-ref _%exn99355%_ 'exception)))) + (macro-datum-parsing-exception? _%e99357%_)) + (macro-datum-parsing-exception? _%exn99355%_)))) (define datum-parsing-exception-kind - (lambda (_%exn99757%_) + (lambda (_%exn99351%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99757%_)) - (let ((_%e99759%_ + (class-instance? RuntimeException::t _%exn99351%_)) + (let ((_%e99353%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99757%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e99759%_) - (macro-datum-parsing-exception-kind _%e99759%_) - (let ((__tmp100618 - (cons 'datum-parsing-exception-kind - (cons _%e99759%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'datum-parsing-exception? - __tmp100618)))) - (if (macro-datum-parsing-exception? _%exn99757%_) - (macro-datum-parsing-exception-kind _%exn99757%_) - (let ((__tmp100619 - (cons 'datum-parsing-exception-kind - (cons _%exn99757%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99351%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e99353%_) + (macro-datum-parsing-exception-kind _%e99353%_) (error '"not an instance" 'datum-parsing-exception? - __tmp100619)))))) + (cons 'datum-parsing-exception-kind + (cons _%e99353%_ '()))))) + (if (macro-datum-parsing-exception? _%exn99351%_) + (macro-datum-parsing-exception-kind _%exn99351%_) + (error '"not an instance" + 'datum-parsing-exception? + (cons 'datum-parsing-exception-kind + (cons _%exn99351%_ '()))))))) (define datum-parsing-exception-parameters - (lambda (_%exn99753%_) + (lambda (_%exn99347%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99753%_)) - (let ((_%e99755%_ + (class-instance? RuntimeException::t _%exn99347%_)) + (let ((_%e99349%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99753%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e99755%_) - (macro-datum-parsing-exception-parameters _%e99755%_) - (let ((__tmp100620 - (cons 'datum-parsing-exception-parameters - (cons _%e99755%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'datum-parsing-exception? - __tmp100620)))) - (if (macro-datum-parsing-exception? _%exn99753%_) - (macro-datum-parsing-exception-parameters _%exn99753%_) - (let ((__tmp100621 - (cons 'datum-parsing-exception-parameters - (cons _%exn99753%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99347%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e99349%_) + (macro-datum-parsing-exception-parameters _%e99349%_) (error '"not an instance" 'datum-parsing-exception? - __tmp100621)))))) + (cons 'datum-parsing-exception-parameters + (cons _%e99349%_ '()))))) + (if (macro-datum-parsing-exception? _%exn99347%_) + (macro-datum-parsing-exception-parameters _%exn99347%_) + (error '"not an instance" + 'datum-parsing-exception? + (cons 'datum-parsing-exception-parameters + (cons _%exn99347%_ '()))))))) (define datum-parsing-exception-readenv - (lambda (_%exn99747%_) + (lambda (_%exn99341%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99747%_)) - (let ((_%e99750%_ + (class-instance? RuntimeException::t _%exn99341%_)) + (let ((_%e99344%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99747%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e99750%_) - (macro-datum-parsing-exception-readenv _%e99750%_) - (let ((__tmp100622 - (cons 'datum-parsing-exception-readenv - (cons _%e99750%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'datum-parsing-exception? - __tmp100622)))) - (if (macro-datum-parsing-exception? _%exn99747%_) - (macro-datum-parsing-exception-readenv _%exn99747%_) - (let ((__tmp100623 - (cons 'datum-parsing-exception-readenv - (cons _%exn99747%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99341%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e99344%_) + (macro-datum-parsing-exception-readenv _%e99344%_) (error '"not an instance" 'datum-parsing-exception? - __tmp100623)))))) + (cons 'datum-parsing-exception-readenv + (cons _%e99344%_ '()))))) + (if (macro-datum-parsing-exception? _%exn99341%_) + (macro-datum-parsing-exception-readenv _%exn99341%_) + (error '"not an instance" + 'datum-parsing-exception? + (cons 'datum-parsing-exception-readenv + (cons _%exn99341%_ '()))))))) (define deadlock-exception? - (lambda (_%exn99741%_) + (lambda (_%exn99335%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99741%_)) - (let ((_%e99744%_ + (class-instance? RuntimeException::t _%exn99335%_)) + (let ((_%e99338%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99741%_ 'exception)))) - (macro-deadlock-exception? _%e99744%_)) - (macro-deadlock-exception? _%exn99741%_)))) + (unchecked-slot-ref _%exn99335%_ 'exception)))) + (macro-deadlock-exception? _%e99338%_)) + (macro-deadlock-exception? _%exn99335%_)))) (define divide-by-zero-exception? - (lambda (_%exn99737%_) + (lambda (_%exn99331%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99737%_)) - (let ((_%e99739%_ + (class-instance? RuntimeException::t _%exn99331%_)) + (let ((_%e99333%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99737%_ 'exception)))) - (macro-divide-by-zero-exception? _%e99739%_)) - (macro-divide-by-zero-exception? _%exn99737%_)))) + (unchecked-slot-ref _%exn99331%_ 'exception)))) + (macro-divide-by-zero-exception? _%e99333%_)) + (macro-divide-by-zero-exception? _%exn99331%_)))) (define divide-by-zero-exception-arguments - (lambda (_%exn99733%_) + (lambda (_%exn99327%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99733%_)) - (let ((_%e99735%_ + (class-instance? RuntimeException::t _%exn99327%_)) + (let ((_%e99329%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99733%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e99735%_) - (macro-divide-by-zero-exception-arguments _%e99735%_) - (let ((__tmp100624 - (cons 'divide-by-zero-exception-arguments - (cons _%e99735%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'divide-by-zero-exception? - __tmp100624)))) - (if (macro-divide-by-zero-exception? _%exn99733%_) - (macro-divide-by-zero-exception-arguments _%exn99733%_) - (let ((__tmp100625 - (cons 'divide-by-zero-exception-arguments - (cons _%exn99733%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99327%_ 'exception)))) + (if (macro-divide-by-zero-exception? _%e99329%_) + (macro-divide-by-zero-exception-arguments _%e99329%_) (error '"not an instance" 'divide-by-zero-exception? - __tmp100625)))))) + (cons 'divide-by-zero-exception-arguments + (cons _%e99329%_ '()))))) + (if (macro-divide-by-zero-exception? _%exn99327%_) + (macro-divide-by-zero-exception-arguments _%exn99327%_) + (error '"not an instance" + 'divide-by-zero-exception? + (cons 'divide-by-zero-exception-arguments + (cons _%exn99327%_ '()))))))) (define divide-by-zero-exception-procedure - (lambda (_%exn99727%_) + (lambda (_%exn99321%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99727%_)) - (let ((_%e99730%_ + (class-instance? RuntimeException::t _%exn99321%_)) + (let ((_%e99324%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99727%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e99730%_) - (macro-divide-by-zero-exception-procedure _%e99730%_) - (let ((__tmp100626 - (cons 'divide-by-zero-exception-procedure - (cons _%e99730%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'divide-by-zero-exception? - __tmp100626)))) - (if (macro-divide-by-zero-exception? _%exn99727%_) - (macro-divide-by-zero-exception-procedure _%exn99727%_) - (let ((__tmp100627 - (cons 'divide-by-zero-exception-procedure - (cons _%exn99727%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99321%_ 'exception)))) + (if (macro-divide-by-zero-exception? _%e99324%_) + (macro-divide-by-zero-exception-procedure _%e99324%_) (error '"not an instance" 'divide-by-zero-exception? - __tmp100627)))))) + (cons 'divide-by-zero-exception-procedure + (cons _%e99324%_ '()))))) + (if (macro-divide-by-zero-exception? _%exn99321%_) + (macro-divide-by-zero-exception-procedure _%exn99321%_) + (error '"not an instance" + 'divide-by-zero-exception? + (cons 'divide-by-zero-exception-procedure + (cons _%exn99321%_ '()))))))) (define error-exception? - (lambda (_%exn99723%_) + (lambda (_%exn99317%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99723%_)) - (let ((_%e99725%_ + (class-instance? RuntimeException::t _%exn99317%_)) + (let ((_%e99319%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99723%_ 'exception)))) - (macro-error-exception? _%e99725%_)) - (macro-error-exception? _%exn99723%_)))) + (unchecked-slot-ref _%exn99317%_ 'exception)))) + (macro-error-exception? _%e99319%_)) + (macro-error-exception? _%exn99317%_)))) (define error-exception-message - (lambda (_%exn99719%_) + (lambda (_%exn99313%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99719%_)) - (let ((_%e99721%_ + (class-instance? RuntimeException::t _%exn99313%_)) + (let ((_%e99315%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99719%_ 'exception)))) - (if (macro-error-exception? _%e99721%_) - (macro-error-exception-message _%e99721%_) - (let ((__tmp100628 + (unchecked-slot-ref _%exn99313%_ 'exception)))) + (if (macro-error-exception? _%e99315%_) + (macro-error-exception-message _%e99315%_) + (error '"not an instance" + 'error-exception? (cons 'error-exception-message - (cons _%e99721%_ '())))) - (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp100628)))) - (if (macro-error-exception? _%exn99719%_) - (macro-error-exception-message _%exn99719%_) - (let ((__tmp100629 + (cons _%e99315%_ '()))))) + (if (macro-error-exception? _%exn99313%_) + (macro-error-exception-message _%exn99313%_) + (error '"not an instance" + 'error-exception? (cons 'error-exception-message - (cons _%exn99719%_ '())))) - (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp100629)))))) + (cons _%exn99313%_ '()))))))) (define error-exception-parameters - (lambda (_%exn99713%_) + (lambda (_%exn99307%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99713%_)) - (let ((_%e99716%_ + (class-instance? RuntimeException::t _%exn99307%_)) + (let ((_%e99310%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99713%_ 'exception)))) - (if (macro-error-exception? _%e99716%_) - (macro-error-exception-parameters _%e99716%_) - (let ((__tmp100630 + (unchecked-slot-ref _%exn99307%_ 'exception)))) + (if (macro-error-exception? _%e99310%_) + (macro-error-exception-parameters _%e99310%_) + (error '"not an instance" + 'error-exception? (cons 'error-exception-parameters - (cons _%e99716%_ '())))) - (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp100630)))) - (if (macro-error-exception? _%exn99713%_) - (macro-error-exception-parameters _%exn99713%_) - (let ((__tmp100631 + (cons _%e99310%_ '()))))) + (if (macro-error-exception? _%exn99307%_) + (macro-error-exception-parameters _%exn99307%_) + (error '"not an instance" + 'error-exception? (cons 'error-exception-parameters - (cons _%exn99713%_ '())))) - (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp100631)))))) + (cons _%exn99307%_ '()))))))) (define expression-parsing-exception? - (lambda (_%exn99709%_) + (lambda (_%exn99303%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99709%_)) - (let ((_%e99711%_ + (class-instance? RuntimeException::t _%exn99303%_)) + (let ((_%e99305%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99709%_ 'exception)))) - (macro-expression-parsing-exception? _%e99711%_)) - (macro-expression-parsing-exception? _%exn99709%_)))) + (unchecked-slot-ref _%exn99303%_ 'exception)))) + (macro-expression-parsing-exception? _%e99305%_)) + (macro-expression-parsing-exception? _%exn99303%_)))) (define expression-parsing-exception-kind - (lambda (_%exn99705%_) + (lambda (_%exn99299%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99705%_)) - (let ((_%e99707%_ + (class-instance? RuntimeException::t _%exn99299%_)) + (let ((_%e99301%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99705%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e99707%_) - (macro-expression-parsing-exception-kind _%e99707%_) - (let ((__tmp100632 - (cons 'expression-parsing-exception-kind - (cons _%e99707%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'expression-parsing-exception? - __tmp100632)))) - (if (macro-expression-parsing-exception? _%exn99705%_) - (macro-expression-parsing-exception-kind _%exn99705%_) - (let ((__tmp100633 - (cons 'expression-parsing-exception-kind - (cons _%exn99705%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99299%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e99301%_) + (macro-expression-parsing-exception-kind _%e99301%_) (error '"not an instance" 'expression-parsing-exception? - __tmp100633)))))) + (cons 'expression-parsing-exception-kind + (cons _%e99301%_ '()))))) + (if (macro-expression-parsing-exception? _%exn99299%_) + (macro-expression-parsing-exception-kind _%exn99299%_) + (error '"not an instance" + 'expression-parsing-exception? + (cons 'expression-parsing-exception-kind + (cons _%exn99299%_ '()))))))) (define expression-parsing-exception-parameters - (lambda (_%exn99701%_) + (lambda (_%exn99295%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99701%_)) - (let ((_%e99703%_ + (class-instance? RuntimeException::t _%exn99295%_)) + (let ((_%e99297%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99701%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e99703%_) - (macro-expression-parsing-exception-parameters _%e99703%_) - (let ((__tmp100634 - (cons 'expression-parsing-exception-parameters - (cons _%e99703%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'expression-parsing-exception? - __tmp100634)))) - (if (macro-expression-parsing-exception? _%exn99701%_) - (macro-expression-parsing-exception-parameters _%exn99701%_) - (let ((__tmp100635 - (cons 'expression-parsing-exception-parameters - (cons _%exn99701%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99295%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e99297%_) + (macro-expression-parsing-exception-parameters _%e99297%_) (error '"not an instance" 'expression-parsing-exception? - __tmp100635)))))) + (cons 'expression-parsing-exception-parameters + (cons _%e99297%_ '()))))) + (if (macro-expression-parsing-exception? _%exn99295%_) + (macro-expression-parsing-exception-parameters _%exn99295%_) + (error '"not an instance" + 'expression-parsing-exception? + (cons 'expression-parsing-exception-parameters + (cons _%exn99295%_ '()))))))) (define expression-parsing-exception-source - (lambda (_%exn99695%_) + (lambda (_%exn99289%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99695%_)) - (let ((_%e99698%_ + (class-instance? RuntimeException::t _%exn99289%_)) + (let ((_%e99292%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99695%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e99698%_) - (macro-expression-parsing-exception-source _%e99698%_) - (let ((__tmp100636 - (cons 'expression-parsing-exception-source - (cons _%e99698%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'expression-parsing-exception? - __tmp100636)))) - (if (macro-expression-parsing-exception? _%exn99695%_) - (macro-expression-parsing-exception-source _%exn99695%_) - (let ((__tmp100637 - (cons 'expression-parsing-exception-source - (cons _%exn99695%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99289%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e99292%_) + (macro-expression-parsing-exception-source _%e99292%_) (error '"not an instance" 'expression-parsing-exception? - __tmp100637)))))) + (cons 'expression-parsing-exception-source + (cons _%e99292%_ '()))))) + (if (macro-expression-parsing-exception? _%exn99289%_) + (macro-expression-parsing-exception-source _%exn99289%_) + (error '"not an instance" + 'expression-parsing-exception? + (cons 'expression-parsing-exception-source + (cons _%exn99289%_ '()))))))) (define file-exists-exception? - (lambda (_%exn99691%_) + (lambda (_%exn99285%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99691%_)) - (let ((_%e99693%_ + (class-instance? RuntimeException::t _%exn99285%_)) + (let ((_%e99287%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99691%_ 'exception)))) - (macro-file-exists-exception? _%e99693%_)) - (macro-file-exists-exception? _%exn99691%_)))) + (unchecked-slot-ref _%exn99285%_ 'exception)))) + (macro-file-exists-exception? _%e99287%_)) + (macro-file-exists-exception? _%exn99285%_)))) (define file-exists-exception-arguments - (lambda (_%exn99687%_) + (lambda (_%exn99281%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99687%_)) - (let ((_%e99689%_ + (class-instance? RuntimeException::t _%exn99281%_)) + (let ((_%e99283%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99687%_ 'exception)))) - (if (macro-file-exists-exception? _%e99689%_) - (macro-file-exists-exception-arguments _%e99689%_) - (let ((__tmp100638 - (cons 'file-exists-exception-arguments - (cons _%e99689%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'file-exists-exception? - __tmp100638)))) - (if (macro-file-exists-exception? _%exn99687%_) - (macro-file-exists-exception-arguments _%exn99687%_) - (let ((__tmp100639 - (cons 'file-exists-exception-arguments - (cons _%exn99687%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99281%_ 'exception)))) + (if (macro-file-exists-exception? _%e99283%_) + (macro-file-exists-exception-arguments _%e99283%_) (error '"not an instance" 'file-exists-exception? - __tmp100639)))))) + (cons 'file-exists-exception-arguments + (cons _%e99283%_ '()))))) + (if (macro-file-exists-exception? _%exn99281%_) + (macro-file-exists-exception-arguments _%exn99281%_) + (error '"not an instance" + 'file-exists-exception? + (cons 'file-exists-exception-arguments + (cons _%exn99281%_ '()))))))) (define file-exists-exception-procedure - (lambda (_%exn99681%_) + (lambda (_%exn99275%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99681%_)) - (let ((_%e99684%_ + (class-instance? RuntimeException::t _%exn99275%_)) + (let ((_%e99278%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99681%_ 'exception)))) - (if (macro-file-exists-exception? _%e99684%_) - (macro-file-exists-exception-procedure _%e99684%_) - (let ((__tmp100640 - (cons 'file-exists-exception-procedure - (cons _%e99684%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'file-exists-exception? - __tmp100640)))) - (if (macro-file-exists-exception? _%exn99681%_) - (macro-file-exists-exception-procedure _%exn99681%_) - (let ((__tmp100641 - (cons 'file-exists-exception-procedure - (cons _%exn99681%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99275%_ 'exception)))) + (if (macro-file-exists-exception? _%e99278%_) + (macro-file-exists-exception-procedure _%e99278%_) (error '"not an instance" 'file-exists-exception? - __tmp100641)))))) + (cons 'file-exists-exception-procedure + (cons _%e99278%_ '()))))) + (if (macro-file-exists-exception? _%exn99275%_) + (macro-file-exists-exception-procedure _%exn99275%_) + (error '"not an instance" + 'file-exists-exception? + (cons 'file-exists-exception-procedure + (cons _%exn99275%_ '()))))))) (define fixnum-overflow-exception? - (lambda (_%exn99677%_) + (lambda (_%exn99271%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99677%_)) - (let ((_%e99679%_ + (class-instance? RuntimeException::t _%exn99271%_)) + (let ((_%e99273%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99677%_ 'exception)))) - (macro-fixnum-overflow-exception? _%e99679%_)) - (macro-fixnum-overflow-exception? _%exn99677%_)))) + (unchecked-slot-ref _%exn99271%_ 'exception)))) + (macro-fixnum-overflow-exception? _%e99273%_)) + (macro-fixnum-overflow-exception? _%exn99271%_)))) (define fixnum-overflow-exception-arguments - (lambda (_%exn99673%_) + (lambda (_%exn99267%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99673%_)) - (let ((_%e99675%_ + (class-instance? RuntimeException::t _%exn99267%_)) + (let ((_%e99269%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99673%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e99675%_) - (macro-fixnum-overflow-exception-arguments _%e99675%_) - (let ((__tmp100642 - (cons 'fixnum-overflow-exception-arguments - (cons _%e99675%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'fixnum-overflow-exception? - __tmp100642)))) - (if (macro-fixnum-overflow-exception? _%exn99673%_) - (macro-fixnum-overflow-exception-arguments _%exn99673%_) - (let ((__tmp100643 - (cons 'fixnum-overflow-exception-arguments - (cons _%exn99673%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99267%_ 'exception)))) + (if (macro-fixnum-overflow-exception? _%e99269%_) + (macro-fixnum-overflow-exception-arguments _%e99269%_) (error '"not an instance" 'fixnum-overflow-exception? - __tmp100643)))))) + (cons 'fixnum-overflow-exception-arguments + (cons _%e99269%_ '()))))) + (if (macro-fixnum-overflow-exception? _%exn99267%_) + (macro-fixnum-overflow-exception-arguments _%exn99267%_) + (error '"not an instance" + 'fixnum-overflow-exception? + (cons 'fixnum-overflow-exception-arguments + (cons _%exn99267%_ '()))))))) (define fixnum-overflow-exception-procedure - (lambda (_%exn99667%_) + (lambda (_%exn99261%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99667%_)) - (let ((_%e99670%_ + (class-instance? RuntimeException::t _%exn99261%_)) + (let ((_%e99264%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99667%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e99670%_) - (macro-fixnum-overflow-exception-procedure _%e99670%_) - (let ((__tmp100644 - (cons 'fixnum-overflow-exception-procedure - (cons _%e99670%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'fixnum-overflow-exception? - __tmp100644)))) - (if (macro-fixnum-overflow-exception? _%exn99667%_) - (macro-fixnum-overflow-exception-procedure _%exn99667%_) - (let ((__tmp100645 - (cons 'fixnum-overflow-exception-procedure - (cons _%exn99667%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99261%_ 'exception)))) + (if (macro-fixnum-overflow-exception? _%e99264%_) + (macro-fixnum-overflow-exception-procedure _%e99264%_) (error '"not an instance" 'fixnum-overflow-exception? - __tmp100645)))))) + (cons 'fixnum-overflow-exception-procedure + (cons _%e99264%_ '()))))) + (if (macro-fixnum-overflow-exception? _%exn99261%_) + (macro-fixnum-overflow-exception-procedure _%exn99261%_) + (error '"not an instance" + 'fixnum-overflow-exception? + (cons 'fixnum-overflow-exception-procedure + (cons _%exn99261%_ '()))))))) (define heap-overflow-exception? - (lambda (_%exn99661%_) + (lambda (_%exn99255%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99661%_)) - (let ((_%e99664%_ + (class-instance? RuntimeException::t _%exn99255%_)) + (let ((_%e99258%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99661%_ 'exception)))) - (macro-heap-overflow-exception? _%e99664%_)) - (macro-heap-overflow-exception? _%exn99661%_)))) + (unchecked-slot-ref _%exn99255%_ 'exception)))) + (macro-heap-overflow-exception? _%e99258%_)) + (macro-heap-overflow-exception? _%exn99255%_)))) (define inactive-thread-exception? - (lambda (_%exn99657%_) + (lambda (_%exn99251%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99657%_)) - (let ((_%e99659%_ + (class-instance? RuntimeException::t _%exn99251%_)) + (let ((_%e99253%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99657%_ 'exception)))) - (macro-inactive-thread-exception? _%e99659%_)) - (macro-inactive-thread-exception? _%exn99657%_)))) + (unchecked-slot-ref _%exn99251%_ 'exception)))) + (macro-inactive-thread-exception? _%e99253%_)) + (macro-inactive-thread-exception? _%exn99251%_)))) (define inactive-thread-exception-arguments - (lambda (_%exn99653%_) + (lambda (_%exn99247%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99653%_)) - (let ((_%e99655%_ + (class-instance? RuntimeException::t _%exn99247%_)) + (let ((_%e99249%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99653%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e99655%_) - (macro-inactive-thread-exception-arguments _%e99655%_) - (let ((__tmp100646 - (cons 'inactive-thread-exception-arguments - (cons _%e99655%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'inactive-thread-exception? - __tmp100646)))) - (if (macro-inactive-thread-exception? _%exn99653%_) - (macro-inactive-thread-exception-arguments _%exn99653%_) - (let ((__tmp100647 - (cons 'inactive-thread-exception-arguments - (cons _%exn99653%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99247%_ 'exception)))) + (if (macro-inactive-thread-exception? _%e99249%_) + (macro-inactive-thread-exception-arguments _%e99249%_) (error '"not an instance" 'inactive-thread-exception? - __tmp100647)))))) + (cons 'inactive-thread-exception-arguments + (cons _%e99249%_ '()))))) + (if (macro-inactive-thread-exception? _%exn99247%_) + (macro-inactive-thread-exception-arguments _%exn99247%_) + (error '"not an instance" + 'inactive-thread-exception? + (cons 'inactive-thread-exception-arguments + (cons _%exn99247%_ '()))))))) (define inactive-thread-exception-procedure - (lambda (_%exn99647%_) + (lambda (_%exn99241%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99647%_)) - (let ((_%e99650%_ + (class-instance? RuntimeException::t _%exn99241%_)) + (let ((_%e99244%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99647%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e99650%_) - (macro-inactive-thread-exception-procedure _%e99650%_) - (let ((__tmp100648 - (cons 'inactive-thread-exception-procedure - (cons _%e99650%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'inactive-thread-exception? - __tmp100648)))) - (if (macro-inactive-thread-exception? _%exn99647%_) - (macro-inactive-thread-exception-procedure _%exn99647%_) - (let ((__tmp100649 - (cons 'inactive-thread-exception-procedure - (cons _%exn99647%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99241%_ 'exception)))) + (if (macro-inactive-thread-exception? _%e99244%_) + (macro-inactive-thread-exception-procedure _%e99244%_) (error '"not an instance" 'inactive-thread-exception? - __tmp100649)))))) + (cons 'inactive-thread-exception-procedure + (cons _%e99244%_ '()))))) + (if (macro-inactive-thread-exception? _%exn99241%_) + (macro-inactive-thread-exception-procedure _%exn99241%_) + (error '"not an instance" + 'inactive-thread-exception? + (cons 'inactive-thread-exception-procedure + (cons _%exn99241%_ '()))))))) (define initialized-thread-exception? - (lambda (_%exn99643%_) + (lambda (_%exn99237%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99643%_)) - (let ((_%e99645%_ + (class-instance? RuntimeException::t _%exn99237%_)) + (let ((_%e99239%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99643%_ 'exception)))) - (macro-initialized-thread-exception? _%e99645%_)) - (macro-initialized-thread-exception? _%exn99643%_)))) + (unchecked-slot-ref _%exn99237%_ 'exception)))) + (macro-initialized-thread-exception? _%e99239%_)) + (macro-initialized-thread-exception? _%exn99237%_)))) (define initialized-thread-exception-arguments - (lambda (_%exn99639%_) + (lambda (_%exn99233%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99639%_)) - (let ((_%e99641%_ + (class-instance? RuntimeException::t _%exn99233%_)) + (let ((_%e99235%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99639%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e99641%_) - (macro-initialized-thread-exception-arguments _%e99641%_) - (let ((__tmp100650 - (cons 'initialized-thread-exception-arguments - (cons _%e99641%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'initialized-thread-exception? - __tmp100650)))) - (if (macro-initialized-thread-exception? _%exn99639%_) - (macro-initialized-thread-exception-arguments _%exn99639%_) - (let ((__tmp100651 - (cons 'initialized-thread-exception-arguments - (cons _%exn99639%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99233%_ 'exception)))) + (if (macro-initialized-thread-exception? _%e99235%_) + (macro-initialized-thread-exception-arguments _%e99235%_) (error '"not an instance" 'initialized-thread-exception? - __tmp100651)))))) + (cons 'initialized-thread-exception-arguments + (cons _%e99235%_ '()))))) + (if (macro-initialized-thread-exception? _%exn99233%_) + (macro-initialized-thread-exception-arguments _%exn99233%_) + (error '"not an instance" + 'initialized-thread-exception? + (cons 'initialized-thread-exception-arguments + (cons _%exn99233%_ '()))))))) (define initialized-thread-exception-procedure - (lambda (_%exn99633%_) + (lambda (_%exn99227%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99633%_)) - (let ((_%e99636%_ + (class-instance? RuntimeException::t _%exn99227%_)) + (let ((_%e99230%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99633%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e99636%_) - (macro-initialized-thread-exception-procedure _%e99636%_) - (let ((__tmp100652 - (cons 'initialized-thread-exception-procedure - (cons _%e99636%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'initialized-thread-exception? - __tmp100652)))) - (if (macro-initialized-thread-exception? _%exn99633%_) - (macro-initialized-thread-exception-procedure _%exn99633%_) - (let ((__tmp100653 - (cons 'initialized-thread-exception-procedure - (cons _%exn99633%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99227%_ 'exception)))) + (if (macro-initialized-thread-exception? _%e99230%_) + (macro-initialized-thread-exception-procedure _%e99230%_) (error '"not an instance" 'initialized-thread-exception? - __tmp100653)))))) + (cons 'initialized-thread-exception-procedure + (cons _%e99230%_ '()))))) + (if (macro-initialized-thread-exception? _%exn99227%_) + (macro-initialized-thread-exception-procedure _%exn99227%_) + (error '"not an instance" + 'initialized-thread-exception? + (cons 'initialized-thread-exception-procedure + (cons _%exn99227%_ '()))))))) (define invalid-hash-number-exception? - (lambda (_%exn99629%_) + (lambda (_%exn99223%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99629%_)) - (let ((_%e99631%_ + (class-instance? RuntimeException::t _%exn99223%_)) + (let ((_%e99225%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99629%_ 'exception)))) - (macro-invalid-hash-number-exception? _%e99631%_)) - (macro-invalid-hash-number-exception? _%exn99629%_)))) + (unchecked-slot-ref _%exn99223%_ 'exception)))) + (macro-invalid-hash-number-exception? _%e99225%_)) + (macro-invalid-hash-number-exception? _%exn99223%_)))) (define invalid-hash-number-exception-arguments - (lambda (_%exn99625%_) + (lambda (_%exn99219%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99625%_)) - (let ((_%e99627%_ + (class-instance? RuntimeException::t _%exn99219%_)) + (let ((_%e99221%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99625%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e99627%_) - (macro-invalid-hash-number-exception-arguments _%e99627%_) - (let ((__tmp100654 - (cons 'invalid-hash-number-exception-arguments - (cons _%e99627%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'invalid-hash-number-exception? - __tmp100654)))) - (if (macro-invalid-hash-number-exception? _%exn99625%_) - (macro-invalid-hash-number-exception-arguments _%exn99625%_) - (let ((__tmp100655 - (cons 'invalid-hash-number-exception-arguments - (cons _%exn99625%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99219%_ 'exception)))) + (if (macro-invalid-hash-number-exception? _%e99221%_) + (macro-invalid-hash-number-exception-arguments _%e99221%_) (error '"not an instance" 'invalid-hash-number-exception? - __tmp100655)))))) + (cons 'invalid-hash-number-exception-arguments + (cons _%e99221%_ '()))))) + (if (macro-invalid-hash-number-exception? _%exn99219%_) + (macro-invalid-hash-number-exception-arguments _%exn99219%_) + (error '"not an instance" + 'invalid-hash-number-exception? + (cons 'invalid-hash-number-exception-arguments + (cons _%exn99219%_ '()))))))) (define invalid-hash-number-exception-procedure - (lambda (_%exn99619%_) + (lambda (_%exn99213%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99619%_)) - (let ((_%e99622%_ + (class-instance? RuntimeException::t _%exn99213%_)) + (let ((_%e99216%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99619%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e99622%_) - (macro-invalid-hash-number-exception-procedure _%e99622%_) - (let ((__tmp100656 - (cons 'invalid-hash-number-exception-procedure - (cons _%e99622%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'invalid-hash-number-exception? - __tmp100656)))) - (if (macro-invalid-hash-number-exception? _%exn99619%_) - (macro-invalid-hash-number-exception-procedure _%exn99619%_) - (let ((__tmp100657 - (cons 'invalid-hash-number-exception-procedure - (cons _%exn99619%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99213%_ 'exception)))) + (if (macro-invalid-hash-number-exception? _%e99216%_) + (macro-invalid-hash-number-exception-procedure _%e99216%_) (error '"not an instance" 'invalid-hash-number-exception? - __tmp100657)))))) + (cons 'invalid-hash-number-exception-procedure + (cons _%e99216%_ '()))))) + (if (macro-invalid-hash-number-exception? _%exn99213%_) + (macro-invalid-hash-number-exception-procedure _%exn99213%_) + (error '"not an instance" + 'invalid-hash-number-exception? + (cons 'invalid-hash-number-exception-procedure + (cons _%exn99213%_ '()))))))) (define invalid-utf8-encoding-exception? - (lambda (_%exn99615%_) + (lambda (_%exn99209%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99615%_)) - (let ((_%e99617%_ + (class-instance? RuntimeException::t _%exn99209%_)) + (let ((_%e99211%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99615%_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _%e99617%_)) - (macro-invalid-utf8-encoding-exception? _%exn99615%_)))) + (unchecked-slot-ref _%exn99209%_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _%e99211%_)) + (macro-invalid-utf8-encoding-exception? _%exn99209%_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_%exn99611%_) + (lambda (_%exn99205%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99611%_)) - (let ((_%e99613%_ + (class-instance? RuntimeException::t _%exn99205%_)) + (let ((_%e99207%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99611%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e99613%_) - (macro-invalid-utf8-encoding-exception-arguments _%e99613%_) - (let ((__tmp100658 - (cons 'invalid-utf8-encoding-exception-arguments - (cons _%e99613%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'invalid-utf8-encoding-exception? - __tmp100658)))) - (if (macro-invalid-utf8-encoding-exception? _%exn99611%_) - (macro-invalid-utf8-encoding-exception-arguments _%exn99611%_) - (let ((__tmp100659 - (cons 'invalid-utf8-encoding-exception-arguments - (cons _%exn99611%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99205%_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _%e99207%_) + (macro-invalid-utf8-encoding-exception-arguments _%e99207%_) (error '"not an instance" 'invalid-utf8-encoding-exception? - __tmp100659)))))) + (cons 'invalid-utf8-encoding-exception-arguments + (cons _%e99207%_ '()))))) + (if (macro-invalid-utf8-encoding-exception? _%exn99205%_) + (macro-invalid-utf8-encoding-exception-arguments _%exn99205%_) + (error '"not an instance" + 'invalid-utf8-encoding-exception? + (cons 'invalid-utf8-encoding-exception-arguments + (cons _%exn99205%_ '()))))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_%exn99605%_) + (lambda (_%exn99199%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99605%_)) - (let ((_%e99608%_ + (class-instance? RuntimeException::t _%exn99199%_)) + (let ((_%e99202%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99605%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e99608%_) - (macro-invalid-utf8-encoding-exception-procedure _%e99608%_) - (let ((__tmp100660 - (cons 'invalid-utf8-encoding-exception-procedure - (cons _%e99608%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'invalid-utf8-encoding-exception? - __tmp100660)))) - (if (macro-invalid-utf8-encoding-exception? _%exn99605%_) - (macro-invalid-utf8-encoding-exception-procedure _%exn99605%_) - (let ((__tmp100661 - (cons 'invalid-utf8-encoding-exception-procedure - (cons _%exn99605%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99199%_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _%e99202%_) + (macro-invalid-utf8-encoding-exception-procedure _%e99202%_) (error '"not an instance" 'invalid-utf8-encoding-exception? - __tmp100661)))))) + (cons 'invalid-utf8-encoding-exception-procedure + (cons _%e99202%_ '()))))) + (if (macro-invalid-utf8-encoding-exception? _%exn99199%_) + (macro-invalid-utf8-encoding-exception-procedure _%exn99199%_) + (error '"not an instance" + 'invalid-utf8-encoding-exception? + (cons 'invalid-utf8-encoding-exception-procedure + (cons _%exn99199%_ '()))))))) (define join-timeout-exception? - (lambda (_%exn99601%_) + (lambda (_%exn99195%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99601%_)) - (let ((_%e99603%_ + (class-instance? RuntimeException::t _%exn99195%_)) + (let ((_%e99197%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99601%_ 'exception)))) - (macro-join-timeout-exception? _%e99603%_)) - (macro-join-timeout-exception? _%exn99601%_)))) + (unchecked-slot-ref _%exn99195%_ 'exception)))) + (macro-join-timeout-exception? _%e99197%_)) + (macro-join-timeout-exception? _%exn99195%_)))) (define join-timeout-exception-arguments - (lambda (_%exn99597%_) + (lambda (_%exn99191%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99597%_)) - (let ((_%e99599%_ + (class-instance? RuntimeException::t _%exn99191%_)) + (let ((_%e99193%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99597%_ 'exception)))) - (if (macro-join-timeout-exception? _%e99599%_) - (macro-join-timeout-exception-arguments _%e99599%_) - (let ((__tmp100662 - (cons 'join-timeout-exception-arguments - (cons _%e99599%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'join-timeout-exception? - __tmp100662)))) - (if (macro-join-timeout-exception? _%exn99597%_) - (macro-join-timeout-exception-arguments _%exn99597%_) - (let ((__tmp100663 - (cons 'join-timeout-exception-arguments - (cons _%exn99597%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99191%_ 'exception)))) + (if (macro-join-timeout-exception? _%e99193%_) + (macro-join-timeout-exception-arguments _%e99193%_) (error '"not an instance" 'join-timeout-exception? - __tmp100663)))))) + (cons 'join-timeout-exception-arguments + (cons _%e99193%_ '()))))) + (if (macro-join-timeout-exception? _%exn99191%_) + (macro-join-timeout-exception-arguments _%exn99191%_) + (error '"not an instance" + 'join-timeout-exception? + (cons 'join-timeout-exception-arguments + (cons _%exn99191%_ '()))))))) (define join-timeout-exception-procedure - (lambda (_%exn99591%_) + (lambda (_%exn99185%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99591%_)) - (let ((_%e99594%_ + (class-instance? RuntimeException::t _%exn99185%_)) + (let ((_%e99188%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99591%_ 'exception)))) - (if (macro-join-timeout-exception? _%e99594%_) - (macro-join-timeout-exception-procedure _%e99594%_) - (let ((__tmp100664 - (cons 'join-timeout-exception-procedure - (cons _%e99594%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'join-timeout-exception? - __tmp100664)))) - (if (macro-join-timeout-exception? _%exn99591%_) - (macro-join-timeout-exception-procedure _%exn99591%_) - (let ((__tmp100665 - (cons 'join-timeout-exception-procedure - (cons _%exn99591%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99185%_ 'exception)))) + (if (macro-join-timeout-exception? _%e99188%_) + (macro-join-timeout-exception-procedure _%e99188%_) (error '"not an instance" 'join-timeout-exception? - __tmp100665)))))) + (cons 'join-timeout-exception-procedure + (cons _%e99188%_ '()))))) + (if (macro-join-timeout-exception? _%exn99185%_) + (macro-join-timeout-exception-procedure _%exn99185%_) + (error '"not an instance" + 'join-timeout-exception? + (cons 'join-timeout-exception-procedure + (cons _%exn99185%_ '()))))))) (define keyword-expected-exception? - (lambda (_%exn99587%_) + (lambda (_%exn99181%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99587%_)) - (let ((_%e99589%_ + (class-instance? RuntimeException::t _%exn99181%_)) + (let ((_%e99183%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99587%_ 'exception)))) - (macro-keyword-expected-exception? _%e99589%_)) - (macro-keyword-expected-exception? _%exn99587%_)))) + (unchecked-slot-ref _%exn99181%_ 'exception)))) + (macro-keyword-expected-exception? _%e99183%_)) + (macro-keyword-expected-exception? _%exn99181%_)))) (define keyword-expected-exception-arguments - (lambda (_%exn99583%_) + (lambda (_%exn99177%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99583%_)) - (let ((_%e99585%_ + (class-instance? RuntimeException::t _%exn99177%_)) + (let ((_%e99179%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99583%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e99585%_) - (macro-keyword-expected-exception-arguments _%e99585%_) - (let ((__tmp100666 - (cons 'keyword-expected-exception-arguments - (cons _%e99585%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'keyword-expected-exception? - __tmp100666)))) - (if (macro-keyword-expected-exception? _%exn99583%_) - (macro-keyword-expected-exception-arguments _%exn99583%_) - (let ((__tmp100667 - (cons 'keyword-expected-exception-arguments - (cons _%exn99583%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99177%_ 'exception)))) + (if (macro-keyword-expected-exception? _%e99179%_) + (macro-keyword-expected-exception-arguments _%e99179%_) (error '"not an instance" 'keyword-expected-exception? - __tmp100667)))))) + (cons 'keyword-expected-exception-arguments + (cons _%e99179%_ '()))))) + (if (macro-keyword-expected-exception? _%exn99177%_) + (macro-keyword-expected-exception-arguments _%exn99177%_) + (error '"not an instance" + 'keyword-expected-exception? + (cons 'keyword-expected-exception-arguments + (cons _%exn99177%_ '()))))))) (define keyword-expected-exception-procedure - (lambda (_%exn99577%_) + (lambda (_%exn99171%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99577%_)) - (let ((_%e99580%_ + (class-instance? RuntimeException::t _%exn99171%_)) + (let ((_%e99174%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99577%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e99580%_) - (macro-keyword-expected-exception-procedure _%e99580%_) - (let ((__tmp100668 - (cons 'keyword-expected-exception-procedure - (cons _%e99580%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'keyword-expected-exception? - __tmp100668)))) - (if (macro-keyword-expected-exception? _%exn99577%_) - (macro-keyword-expected-exception-procedure _%exn99577%_) - (let ((__tmp100669 - (cons 'keyword-expected-exception-procedure - (cons _%exn99577%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99171%_ 'exception)))) + (if (macro-keyword-expected-exception? _%e99174%_) + (macro-keyword-expected-exception-procedure _%e99174%_) (error '"not an instance" 'keyword-expected-exception? - __tmp100669)))))) + (cons 'keyword-expected-exception-procedure + (cons _%e99174%_ '()))))) + (if (macro-keyword-expected-exception? _%exn99171%_) + (macro-keyword-expected-exception-procedure _%exn99171%_) + (error '"not an instance" + 'keyword-expected-exception? + (cons 'keyword-expected-exception-procedure + (cons _%exn99171%_ '()))))))) (define length-mismatch-exception? - (lambda (_%exn99573%_) + (lambda (_%exn99167%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99573%_)) - (let ((_%e99575%_ + (class-instance? RuntimeException::t _%exn99167%_)) + (let ((_%e99169%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99573%_ 'exception)))) - (macro-length-mismatch-exception? _%e99575%_)) - (macro-length-mismatch-exception? _%exn99573%_)))) + (unchecked-slot-ref _%exn99167%_ 'exception)))) + (macro-length-mismatch-exception? _%e99169%_)) + (macro-length-mismatch-exception? _%exn99167%_)))) (define length-mismatch-exception-arg-id - (lambda (_%exn99569%_) + (lambda (_%exn99163%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99569%_)) - (let ((_%e99571%_ + (class-instance? RuntimeException::t _%exn99163%_)) + (let ((_%e99165%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99569%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e99571%_) - (macro-length-mismatch-exception-arg-id _%e99571%_) - (let ((__tmp100670 - (cons 'length-mismatch-exception-arg-id - (cons _%e99571%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'length-mismatch-exception? - __tmp100670)))) - (if (macro-length-mismatch-exception? _%exn99569%_) - (macro-length-mismatch-exception-arg-id _%exn99569%_) - (let ((__tmp100671 - (cons 'length-mismatch-exception-arg-id - (cons _%exn99569%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99163%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e99165%_) + (macro-length-mismatch-exception-arg-id _%e99165%_) (error '"not an instance" 'length-mismatch-exception? - __tmp100671)))))) + (cons 'length-mismatch-exception-arg-id + (cons _%e99165%_ '()))))) + (if (macro-length-mismatch-exception? _%exn99163%_) + (macro-length-mismatch-exception-arg-id _%exn99163%_) + (error '"not an instance" + 'length-mismatch-exception? + (cons 'length-mismatch-exception-arg-id + (cons _%exn99163%_ '()))))))) (define length-mismatch-exception-arguments - (lambda (_%exn99565%_) + (lambda (_%exn99159%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99565%_)) - (let ((_%e99567%_ + (class-instance? RuntimeException::t _%exn99159%_)) + (let ((_%e99161%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99565%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e99567%_) - (macro-length-mismatch-exception-arguments _%e99567%_) - (let ((__tmp100672 - (cons 'length-mismatch-exception-arguments - (cons _%e99567%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'length-mismatch-exception? - __tmp100672)))) - (if (macro-length-mismatch-exception? _%exn99565%_) - (macro-length-mismatch-exception-arguments _%exn99565%_) - (let ((__tmp100673 - (cons 'length-mismatch-exception-arguments - (cons _%exn99565%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99159%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e99161%_) + (macro-length-mismatch-exception-arguments _%e99161%_) (error '"not an instance" 'length-mismatch-exception? - __tmp100673)))))) + (cons 'length-mismatch-exception-arguments + (cons _%e99161%_ '()))))) + (if (macro-length-mismatch-exception? _%exn99159%_) + (macro-length-mismatch-exception-arguments _%exn99159%_) + (error '"not an instance" + 'length-mismatch-exception? + (cons 'length-mismatch-exception-arguments + (cons _%exn99159%_ '()))))))) (define length-mismatch-exception-procedure - (lambda (_%exn99559%_) + (lambda (_%exn99153%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99559%_)) - (let ((_%e99562%_ + (class-instance? RuntimeException::t _%exn99153%_)) + (let ((_%e99156%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99559%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e99562%_) - (macro-length-mismatch-exception-procedure _%e99562%_) - (let ((__tmp100674 - (cons 'length-mismatch-exception-procedure - (cons _%e99562%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'length-mismatch-exception? - __tmp100674)))) - (if (macro-length-mismatch-exception? _%exn99559%_) - (macro-length-mismatch-exception-procedure _%exn99559%_) - (let ((__tmp100675 - (cons 'length-mismatch-exception-procedure - (cons _%exn99559%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99153%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e99156%_) + (macro-length-mismatch-exception-procedure _%e99156%_) (error '"not an instance" 'length-mismatch-exception? - __tmp100675)))))) + (cons 'length-mismatch-exception-procedure + (cons _%e99156%_ '()))))) + (if (macro-length-mismatch-exception? _%exn99153%_) + (macro-length-mismatch-exception-procedure _%exn99153%_) + (error '"not an instance" + 'length-mismatch-exception? + (cons 'length-mismatch-exception-procedure + (cons _%exn99153%_ '()))))))) (define mailbox-receive-timeout-exception? - (lambda (_%exn99555%_) + (lambda (_%exn99149%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99555%_)) - (let ((_%e99557%_ + (class-instance? RuntimeException::t _%exn99149%_)) + (let ((_%e99151%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99555%_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _%e99557%_)) - (macro-mailbox-receive-timeout-exception? _%exn99555%_)))) + (unchecked-slot-ref _%exn99149%_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _%e99151%_)) + (macro-mailbox-receive-timeout-exception? _%exn99149%_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_%exn99551%_) + (lambda (_%exn99145%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99551%_)) - (let ((_%e99553%_ + (class-instance? RuntimeException::t _%exn99145%_)) + (let ((_%e99147%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99551%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e99553%_) + (unchecked-slot-ref _%exn99145%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e99147%_) (macro-mailbox-receive-timeout-exception-arguments - _%e99553%_) - (let ((__tmp100676 + _%e99147%_) + (error '"not an instance" + 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%e99553%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'mailbox-receive-timeout-exception? - __tmp100676)))) - (if (macro-mailbox-receive-timeout-exception? _%exn99551%_) + (cons _%e99147%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn99145%_) (macro-mailbox-receive-timeout-exception-arguments - _%exn99551%_) - (let ((__tmp100677 + _%exn99145%_) + (error '"not an instance" + 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%exn99551%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'mailbox-receive-timeout-exception? - __tmp100677)))))) + (cons _%exn99145%_ '()))))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_%exn99545%_) + (lambda (_%exn99139%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99545%_)) - (let ((_%e99548%_ + (class-instance? RuntimeException::t _%exn99139%_)) + (let ((_%e99142%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99545%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e99548%_) + (unchecked-slot-ref _%exn99139%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e99142%_) (macro-mailbox-receive-timeout-exception-procedure - _%e99548%_) - (let ((__tmp100678 + _%e99142%_) + (error '"not an instance" + 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%e99548%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'mailbox-receive-timeout-exception? - __tmp100678)))) - (if (macro-mailbox-receive-timeout-exception? _%exn99545%_) + (cons _%e99142%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn99139%_) (macro-mailbox-receive-timeout-exception-procedure - _%exn99545%_) - (let ((__tmp100679 + _%exn99139%_) + (error '"not an instance" + 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%exn99545%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'mailbox-receive-timeout-exception? - __tmp100679)))))) + (cons _%exn99139%_ '()))))))) (define module-not-found-exception? - (lambda (_%exn99541%_) + (lambda (_%exn99135%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99541%_)) - (let ((_%e99543%_ + (class-instance? RuntimeException::t _%exn99135%_)) + (let ((_%e99137%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99541%_ 'exception)))) - (macro-module-not-found-exception? _%e99543%_)) - (macro-module-not-found-exception? _%exn99541%_)))) + (unchecked-slot-ref _%exn99135%_ 'exception)))) + (macro-module-not-found-exception? _%e99137%_)) + (macro-module-not-found-exception? _%exn99135%_)))) (define module-not-found-exception-arguments - (lambda (_%exn99537%_) + (lambda (_%exn99131%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99537%_)) - (let ((_%e99539%_ + (class-instance? RuntimeException::t _%exn99131%_)) + (let ((_%e99133%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99537%_ 'exception)))) - (if (macro-module-not-found-exception? _%e99539%_) - (macro-module-not-found-exception-arguments _%e99539%_) - (let ((__tmp100680 - (cons 'module-not-found-exception-arguments - (cons _%e99539%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'module-not-found-exception? - __tmp100680)))) - (if (macro-module-not-found-exception? _%exn99537%_) - (macro-module-not-found-exception-arguments _%exn99537%_) - (let ((__tmp100681 - (cons 'module-not-found-exception-arguments - (cons _%exn99537%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99131%_ 'exception)))) + (if (macro-module-not-found-exception? _%e99133%_) + (macro-module-not-found-exception-arguments _%e99133%_) (error '"not an instance" 'module-not-found-exception? - __tmp100681)))))) + (cons 'module-not-found-exception-arguments + (cons _%e99133%_ '()))))) + (if (macro-module-not-found-exception? _%exn99131%_) + (macro-module-not-found-exception-arguments _%exn99131%_) + (error '"not an instance" + 'module-not-found-exception? + (cons 'module-not-found-exception-arguments + (cons _%exn99131%_ '()))))))) (define module-not-found-exception-procedure - (lambda (_%exn99531%_) + (lambda (_%exn99125%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99531%_)) - (let ((_%e99534%_ + (class-instance? RuntimeException::t _%exn99125%_)) + (let ((_%e99128%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99531%_ 'exception)))) - (if (macro-module-not-found-exception? _%e99534%_) - (macro-module-not-found-exception-procedure _%e99534%_) - (let ((__tmp100682 - (cons 'module-not-found-exception-procedure - (cons _%e99534%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'module-not-found-exception? - __tmp100682)))) - (if (macro-module-not-found-exception? _%exn99531%_) - (macro-module-not-found-exception-procedure _%exn99531%_) - (let ((__tmp100683 - (cons 'module-not-found-exception-procedure - (cons _%exn99531%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99125%_ 'exception)))) + (if (macro-module-not-found-exception? _%e99128%_) + (macro-module-not-found-exception-procedure _%e99128%_) (error '"not an instance" 'module-not-found-exception? - __tmp100683)))))) + (cons 'module-not-found-exception-procedure + (cons _%e99128%_ '()))))) + (if (macro-module-not-found-exception? _%exn99125%_) + (macro-module-not-found-exception-procedure _%exn99125%_) + (error '"not an instance" + 'module-not-found-exception? + (cons 'module-not-found-exception-procedure + (cons _%exn99125%_ '()))))))) (define multiple-c-return-exception? - (lambda (_%exn99525%_) + (lambda (_%exn99119%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99525%_)) - (let ((_%e99528%_ + (class-instance? RuntimeException::t _%exn99119%_)) + (let ((_%e99122%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99525%_ 'exception)))) - (macro-multiple-c-return-exception? _%e99528%_)) - (macro-multiple-c-return-exception? _%exn99525%_)))) + (unchecked-slot-ref _%exn99119%_ 'exception)))) + (macro-multiple-c-return-exception? _%e99122%_)) + (macro-multiple-c-return-exception? _%exn99119%_)))) (define no-such-file-or-directory-exception? - (lambda (_%exn99521%_) + (lambda (_%exn99115%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99521%_)) - (let ((_%e99523%_ + (class-instance? RuntimeException::t _%exn99115%_)) + (let ((_%e99117%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99521%_ 'exception)))) - (macro-no-such-file-or-directory-exception? _%e99523%_)) - (macro-no-such-file-or-directory-exception? _%exn99521%_)))) + (unchecked-slot-ref _%exn99115%_ 'exception)))) + (macro-no-such-file-or-directory-exception? _%e99117%_)) + (macro-no-such-file-or-directory-exception? _%exn99115%_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_%exn99517%_) + (lambda (_%exn99111%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99517%_)) - (let ((_%e99519%_ + (class-instance? RuntimeException::t _%exn99111%_)) + (let ((_%e99113%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99517%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e99519%_) + (unchecked-slot-ref _%exn99111%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e99113%_) (macro-no-such-file-or-directory-exception-arguments - _%e99519%_) - (let ((__tmp100684 + _%e99113%_) + (error '"not an instance" + 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%e99519%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'no-such-file-or-directory-exception? - __tmp100684)))) - (if (macro-no-such-file-or-directory-exception? _%exn99517%_) + (cons _%e99113%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn99111%_) (macro-no-such-file-or-directory-exception-arguments - _%exn99517%_) - (let ((__tmp100685 + _%exn99111%_) + (error '"not an instance" + 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%exn99517%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'no-such-file-or-directory-exception? - __tmp100685)))))) + (cons _%exn99111%_ '()))))))) (define no-such-file-or-directory-exception-procedure - (lambda (_%exn99511%_) + (lambda (_%exn99105%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99511%_)) - (let ((_%e99514%_ + (class-instance? RuntimeException::t _%exn99105%_)) + (let ((_%e99108%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99511%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e99514%_) + (unchecked-slot-ref _%exn99105%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e99108%_) (macro-no-such-file-or-directory-exception-procedure - _%e99514%_) - (let ((__tmp100686 + _%e99108%_) + (error '"not an instance" + 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%e99514%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'no-such-file-or-directory-exception? - __tmp100686)))) - (if (macro-no-such-file-or-directory-exception? _%exn99511%_) + (cons _%e99108%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn99105%_) (macro-no-such-file-or-directory-exception-procedure - _%exn99511%_) - (let ((__tmp100687 + _%exn99105%_) + (error '"not an instance" + 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%exn99511%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'no-such-file-or-directory-exception? - __tmp100687)))))) + (cons _%exn99105%_ '()))))))) (define noncontinuable-exception? - (lambda (_%exn99507%_) + (lambda (_%exn99101%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99507%_)) - (let ((_%e99509%_ + (class-instance? RuntimeException::t _%exn99101%_)) + (let ((_%e99103%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99507%_ 'exception)))) - (macro-noncontinuable-exception? _%e99509%_)) - (macro-noncontinuable-exception? _%exn99507%_)))) + (unchecked-slot-ref _%exn99101%_ 'exception)))) + (macro-noncontinuable-exception? _%e99103%_)) + (macro-noncontinuable-exception? _%exn99101%_)))) (define noncontinuable-exception-reason - (lambda (_%exn99501%_) + (lambda (_%exn99095%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99501%_)) - (let ((_%e99504%_ + (class-instance? RuntimeException::t _%exn99095%_)) + (let ((_%e99098%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99501%_ 'exception)))) - (if (macro-noncontinuable-exception? _%e99504%_) - (macro-noncontinuable-exception-reason _%e99504%_) - (let ((__tmp100688 - (cons 'noncontinuable-exception-reason - (cons _%e99504%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'noncontinuable-exception? - __tmp100688)))) - (if (macro-noncontinuable-exception? _%exn99501%_) - (macro-noncontinuable-exception-reason _%exn99501%_) - (let ((__tmp100689 - (cons 'noncontinuable-exception-reason - (cons _%exn99501%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99095%_ 'exception)))) + (if (macro-noncontinuable-exception? _%e99098%_) + (macro-noncontinuable-exception-reason _%e99098%_) (error '"not an instance" 'noncontinuable-exception? - __tmp100689)))))) + (cons 'noncontinuable-exception-reason + (cons _%e99098%_ '()))))) + (if (macro-noncontinuable-exception? _%exn99095%_) + (macro-noncontinuable-exception-reason _%exn99095%_) + (error '"not an instance" + 'noncontinuable-exception? + (cons 'noncontinuable-exception-reason + (cons _%exn99095%_ '()))))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_%exn99497%_) + (lambda (_%exn99091%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99497%_)) - (let ((_%e99499%_ + (class-instance? RuntimeException::t _%exn99091%_)) + (let ((_%e99093%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99497%_ 'exception)))) + (unchecked-slot-ref _%exn99091%_ 'exception)))) (macro-nonempty-input-port-character-buffer-exception? - _%e99499%_)) + _%e99093%_)) (macro-nonempty-input-port-character-buffer-exception? - _%exn99497%_)))) + _%exn99091%_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_%exn99493%_) + (lambda (_%exn99087%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99493%_)) - (let ((_%e99495%_ + (class-instance? RuntimeException::t _%exn99087%_)) + (let ((_%e99089%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99493%_ 'exception)))) + (unchecked-slot-ref _%exn99087%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e99495%_) + _%e99089%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%e99495%_) - (let ((__tmp100690 + _%e99089%_) + (error '"not an instance" + 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%e99495%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'nonempty-input-port-character-buffer-exception? - __tmp100690)))) + (cons _%e99089%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn99493%_) + _%exn99087%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%exn99493%_) - (let ((__tmp100691 + _%exn99087%_) + (error '"not an instance" + 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%exn99493%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'nonempty-input-port-character-buffer-exception? - __tmp100691)))))) + (cons _%exn99087%_ '()))))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_%exn99487%_) + (lambda (_%exn99081%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99487%_)) - (let ((_%e99490%_ + (class-instance? RuntimeException::t _%exn99081%_)) + (let ((_%e99084%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99487%_ 'exception)))) + (unchecked-slot-ref _%exn99081%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e99490%_) + _%e99084%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%e99490%_) - (let ((__tmp100692 + _%e99084%_) + (error '"not an instance" + 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%e99490%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'nonempty-input-port-character-buffer-exception? - __tmp100692)))) + (cons _%e99084%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn99487%_) + _%exn99081%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%exn99487%_) - (let ((__tmp100693 + _%exn99081%_) + (error '"not an instance" + 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%exn99487%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'nonempty-input-port-character-buffer-exception? - __tmp100693)))))) + (cons _%exn99081%_ '()))))))) (define nonprocedure-operator-exception? - (lambda (_%exn99483%_) + (lambda (_%exn99077%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99483%_)) - (let ((_%e99485%_ + (class-instance? RuntimeException::t _%exn99077%_)) + (let ((_%e99079%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99483%_ 'exception)))) - (macro-nonprocedure-operator-exception? _%e99485%_)) - (macro-nonprocedure-operator-exception? _%exn99483%_)))) + (unchecked-slot-ref _%exn99077%_ 'exception)))) + (macro-nonprocedure-operator-exception? _%e99079%_)) + (macro-nonprocedure-operator-exception? _%exn99077%_)))) (define nonprocedure-operator-exception-arguments - (lambda (_%exn99479%_) + (lambda (_%exn99073%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99479%_)) - (let ((_%e99481%_ + (class-instance? RuntimeException::t _%exn99073%_)) + (let ((_%e99075%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99479%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e99481%_) - (macro-nonprocedure-operator-exception-arguments _%e99481%_) - (let ((__tmp100694 - (cons 'nonprocedure-operator-exception-arguments - (cons _%e99481%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'nonprocedure-operator-exception? - __tmp100694)))) - (if (macro-nonprocedure-operator-exception? _%exn99479%_) - (macro-nonprocedure-operator-exception-arguments _%exn99479%_) - (let ((__tmp100695 - (cons 'nonprocedure-operator-exception-arguments - (cons _%exn99479%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99073%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e99075%_) + (macro-nonprocedure-operator-exception-arguments _%e99075%_) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp100695)))))) + (cons 'nonprocedure-operator-exception-arguments + (cons _%e99075%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn99073%_) + (macro-nonprocedure-operator-exception-arguments _%exn99073%_) + (error '"not an instance" + 'nonprocedure-operator-exception? + (cons 'nonprocedure-operator-exception-arguments + (cons _%exn99073%_ '()))))))) (define nonprocedure-operator-exception-code - (lambda (_%exn99475%_) + (lambda (_%exn99069%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99475%_)) - (let ((_%e99477%_ + (class-instance? RuntimeException::t _%exn99069%_)) + (let ((_%e99071%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99475%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e99477%_) - (macro-nonprocedure-operator-exception-code _%e99477%_) - (let ((__tmp100696 - (cons 'nonprocedure-operator-exception-code - (cons _%e99477%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'nonprocedure-operator-exception? - __tmp100696)))) - (if (macro-nonprocedure-operator-exception? _%exn99475%_) - (macro-nonprocedure-operator-exception-code _%exn99475%_) - (let ((__tmp100697 - (cons 'nonprocedure-operator-exception-code - (cons _%exn99475%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99069%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e99071%_) + (macro-nonprocedure-operator-exception-code _%e99071%_) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp100697)))))) + (cons 'nonprocedure-operator-exception-code + (cons _%e99071%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn99069%_) + (macro-nonprocedure-operator-exception-code _%exn99069%_) + (error '"not an instance" + 'nonprocedure-operator-exception? + (cons 'nonprocedure-operator-exception-code + (cons _%exn99069%_ '()))))))) (define nonprocedure-operator-exception-operator - (lambda (_%exn99471%_) + (lambda (_%exn99065%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99471%_)) - (let ((_%e99473%_ + (class-instance? RuntimeException::t _%exn99065%_)) + (let ((_%e99067%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99471%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e99473%_) - (macro-nonprocedure-operator-exception-operator _%e99473%_) - (let ((__tmp100698 - (cons 'nonprocedure-operator-exception-operator - (cons _%e99473%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'nonprocedure-operator-exception? - __tmp100698)))) - (if (macro-nonprocedure-operator-exception? _%exn99471%_) - (macro-nonprocedure-operator-exception-operator _%exn99471%_) - (let ((__tmp100699 - (cons 'nonprocedure-operator-exception-operator - (cons _%exn99471%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99065%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e99067%_) + (macro-nonprocedure-operator-exception-operator _%e99067%_) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp100699)))))) + (cons 'nonprocedure-operator-exception-operator + (cons _%e99067%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn99065%_) + (macro-nonprocedure-operator-exception-operator _%exn99065%_) + (error '"not an instance" + 'nonprocedure-operator-exception? + (cons 'nonprocedure-operator-exception-operator + (cons _%exn99065%_ '()))))))) (define nonprocedure-operator-exception-rte - (lambda (_%exn99465%_) + (lambda (_%exn99059%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99465%_)) - (let ((_%e99468%_ + (class-instance? RuntimeException::t _%exn99059%_)) + (let ((_%e99062%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99465%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e99468%_) - (macro-nonprocedure-operator-exception-rte _%e99468%_) - (let ((__tmp100700 - (cons 'nonprocedure-operator-exception-rte - (cons _%e99468%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'nonprocedure-operator-exception? - __tmp100700)))) - (if (macro-nonprocedure-operator-exception? _%exn99465%_) - (macro-nonprocedure-operator-exception-rte _%exn99465%_) - (let ((__tmp100701 - (cons 'nonprocedure-operator-exception-rte - (cons _%exn99465%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99059%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e99062%_) + (macro-nonprocedure-operator-exception-rte _%e99062%_) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp100701)))))) + (cons 'nonprocedure-operator-exception-rte + (cons _%e99062%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn99059%_) + (macro-nonprocedure-operator-exception-rte _%exn99059%_) + (error '"not an instance" + 'nonprocedure-operator-exception? + (cons 'nonprocedure-operator-exception-rte + (cons _%exn99059%_ '()))))))) (define not-in-compilation-context-exception? - (lambda (_%exn99461%_) + (lambda (_%exn99055%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99461%_)) - (let ((_%e99463%_ + (class-instance? RuntimeException::t _%exn99055%_)) + (let ((_%e99057%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99461%_ 'exception)))) - (macro-not-in-compilation-context-exception? _%e99463%_)) - (macro-not-in-compilation-context-exception? _%exn99461%_)))) + (unchecked-slot-ref _%exn99055%_ 'exception)))) + (macro-not-in-compilation-context-exception? _%e99057%_)) + (macro-not-in-compilation-context-exception? _%exn99055%_)))) (define not-in-compilation-context-exception-arguments - (lambda (_%exn99457%_) + (lambda (_%exn99051%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99457%_)) - (let ((_%e99459%_ + (class-instance? RuntimeException::t _%exn99051%_)) + (let ((_%e99053%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99457%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e99459%_) + (unchecked-slot-ref _%exn99051%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e99053%_) (macro-not-in-compilation-context-exception-arguments - _%e99459%_) - (let ((__tmp100702 + _%e99053%_) + (error '"not an instance" + 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%e99459%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'not-in-compilation-context-exception? - __tmp100702)))) - (if (macro-not-in-compilation-context-exception? _%exn99457%_) + (cons _%e99053%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn99051%_) (macro-not-in-compilation-context-exception-arguments - _%exn99457%_) - (let ((__tmp100703 + _%exn99051%_) + (error '"not an instance" + 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%exn99457%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'not-in-compilation-context-exception? - __tmp100703)))))) + (cons _%exn99051%_ '()))))))) (define not-in-compilation-context-exception-procedure - (lambda (_%exn99451%_) + (lambda (_%exn99045%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99451%_)) - (let ((_%e99454%_ + (class-instance? RuntimeException::t _%exn99045%_)) + (let ((_%e99048%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99451%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e99454%_) + (unchecked-slot-ref _%exn99045%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e99048%_) (macro-not-in-compilation-context-exception-procedure - _%e99454%_) - (let ((__tmp100704 + _%e99048%_) + (error '"not an instance" + 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%e99454%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'not-in-compilation-context-exception? - __tmp100704)))) - (if (macro-not-in-compilation-context-exception? _%exn99451%_) + (cons _%e99048%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn99045%_) (macro-not-in-compilation-context-exception-procedure - _%exn99451%_) - (let ((__tmp100705 + _%exn99045%_) + (error '"not an instance" + 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%exn99451%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'not-in-compilation-context-exception? - __tmp100705)))))) + (cons _%exn99045%_ '()))))))) (define number-of-arguments-limit-exception? - (lambda (_%exn99447%_) + (lambda (_%exn99041%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99447%_)) - (let ((_%e99449%_ + (class-instance? RuntimeException::t _%exn99041%_)) + (let ((_%e99043%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99447%_ 'exception)))) - (macro-number-of-arguments-limit-exception? _%e99449%_)) - (macro-number-of-arguments-limit-exception? _%exn99447%_)))) + (unchecked-slot-ref _%exn99041%_ 'exception)))) + (macro-number-of-arguments-limit-exception? _%e99043%_)) + (macro-number-of-arguments-limit-exception? _%exn99041%_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_%exn99443%_) + (lambda (_%exn99037%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99443%_)) - (let ((_%e99445%_ + (class-instance? RuntimeException::t _%exn99037%_)) + (let ((_%e99039%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99443%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e99445%_) + (unchecked-slot-ref _%exn99037%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e99039%_) (macro-number-of-arguments-limit-exception-arguments - _%e99445%_) - (let ((__tmp100706 + _%e99039%_) + (error '"not an instance" + 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%e99445%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'number-of-arguments-limit-exception? - __tmp100706)))) - (if (macro-number-of-arguments-limit-exception? _%exn99443%_) + (cons _%e99039%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn99037%_) (macro-number-of-arguments-limit-exception-arguments - _%exn99443%_) - (let ((__tmp100707 + _%exn99037%_) + (error '"not an instance" + 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%exn99443%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'number-of-arguments-limit-exception? - __tmp100707)))))) + (cons _%exn99037%_ '()))))))) (define number-of-arguments-limit-exception-procedure - (lambda (_%exn99437%_) + (lambda (_%exn99031%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99437%_)) - (let ((_%e99440%_ + (class-instance? RuntimeException::t _%exn99031%_)) + (let ((_%e99034%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99437%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e99440%_) + (unchecked-slot-ref _%exn99031%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e99034%_) (macro-number-of-arguments-limit-exception-procedure - _%e99440%_) - (let ((__tmp100708 + _%e99034%_) + (error '"not an instance" + 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%e99440%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'number-of-arguments-limit-exception? - __tmp100708)))) - (if (macro-number-of-arguments-limit-exception? _%exn99437%_) + (cons _%e99034%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn99031%_) (macro-number-of-arguments-limit-exception-procedure - _%exn99437%_) - (let ((__tmp100709 + _%exn99031%_) + (error '"not an instance" + 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%exn99437%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'number-of-arguments-limit-exception? - __tmp100709)))))) + (cons _%exn99031%_ '()))))))) (define os-exception? - (lambda (_%exn99433%_) + (lambda (_%exn99027%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99433%_)) - (let ((_%e99435%_ + (class-instance? RuntimeException::t _%exn99027%_)) + (let ((_%e99029%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99433%_ 'exception)))) - (macro-os-exception? _%e99435%_)) - (macro-os-exception? _%exn99433%_)))) + (unchecked-slot-ref _%exn99027%_ 'exception)))) + (macro-os-exception? _%e99029%_)) + (macro-os-exception? _%exn99027%_)))) (define os-exception-arguments - (lambda (_%exn99429%_) + (lambda (_%exn99023%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99429%_)) - (let ((_%e99431%_ + (class-instance? RuntimeException::t _%exn99023%_)) + (let ((_%e99025%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99429%_ 'exception)))) - (if (macro-os-exception? _%e99431%_) - (macro-os-exception-arguments _%e99431%_) - (let ((__tmp100710 - (cons 'os-exception-arguments (cons _%e99431%_ '())))) - (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp100710)))) - (if (macro-os-exception? _%exn99429%_) - (macro-os-exception-arguments _%exn99429%_) - (let ((__tmp100711 - (cons 'os-exception-arguments (cons _%exn99429%_ '())))) - (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp100711)))))) + (unchecked-slot-ref _%exn99023%_ 'exception)))) + (if (macro-os-exception? _%e99025%_) + (macro-os-exception-arguments _%e99025%_) + (error '"not an instance" + 'os-exception? + (cons 'os-exception-arguments + (cons _%e99025%_ '()))))) + (if (macro-os-exception? _%exn99023%_) + (macro-os-exception-arguments _%exn99023%_) + (error '"not an instance" + 'os-exception? + (cons 'os-exception-arguments + (cons _%exn99023%_ '()))))))) (define os-exception-code - (lambda (_%exn99425%_) + (lambda (_%exn99019%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99425%_)) - (let ((_%e99427%_ + (class-instance? RuntimeException::t _%exn99019%_)) + (let ((_%e99021%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99425%_ 'exception)))) - (if (macro-os-exception? _%e99427%_) - (macro-os-exception-code _%e99427%_) - (let ((__tmp100712 - (cons 'os-exception-code (cons _%e99427%_ '())))) - (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp100712)))) - (if (macro-os-exception? _%exn99425%_) - (macro-os-exception-code _%exn99425%_) - (let ((__tmp100713 - (cons 'os-exception-code (cons _%exn99425%_ '())))) - (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp100713)))))) + (unchecked-slot-ref _%exn99019%_ 'exception)))) + (if (macro-os-exception? _%e99021%_) + (macro-os-exception-code _%e99021%_) + (error '"not an instance" + 'os-exception? + (cons 'os-exception-code (cons _%e99021%_ '()))))) + (if (macro-os-exception? _%exn99019%_) + (macro-os-exception-code _%exn99019%_) + (error '"not an instance" + 'os-exception? + (cons 'os-exception-code (cons _%exn99019%_ '()))))))) (define os-exception-message - (lambda (_%exn99421%_) + (lambda (_%exn99015%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99421%_)) - (let ((_%e99423%_ + (class-instance? RuntimeException::t _%exn99015%_)) + (let ((_%e99017%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99421%_ 'exception)))) - (if (macro-os-exception? _%e99423%_) - (macro-os-exception-message _%e99423%_) - (let ((__tmp100714 - (cons 'os-exception-message (cons _%e99423%_ '())))) - (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp100714)))) - (if (macro-os-exception? _%exn99421%_) - (macro-os-exception-message _%exn99421%_) - (let ((__tmp100715 - (cons 'os-exception-message (cons _%exn99421%_ '())))) - (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp100715)))))) + (unchecked-slot-ref _%exn99015%_ 'exception)))) + (if (macro-os-exception? _%e99017%_) + (macro-os-exception-message _%e99017%_) + (error '"not an instance" + 'os-exception? + (cons 'os-exception-message (cons _%e99017%_ '()))))) + (if (macro-os-exception? _%exn99015%_) + (macro-os-exception-message _%exn99015%_) + (error '"not an instance" + 'os-exception? + (cons 'os-exception-message + (cons _%exn99015%_ '()))))))) (define os-exception-procedure - (lambda (_%exn99415%_) + (lambda (_%exn99009%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99415%_)) - (let ((_%e99418%_ + (class-instance? RuntimeException::t _%exn99009%_)) + (let ((_%e99012%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99415%_ 'exception)))) - (if (macro-os-exception? _%e99418%_) - (macro-os-exception-procedure _%e99418%_) - (let ((__tmp100716 - (cons 'os-exception-procedure (cons _%e99418%_ '())))) - (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp100716)))) - (if (macro-os-exception? _%exn99415%_) - (macro-os-exception-procedure _%exn99415%_) - (let ((__tmp100717 - (cons 'os-exception-procedure (cons _%exn99415%_ '())))) - (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp100717)))))) + (unchecked-slot-ref _%exn99009%_ 'exception)))) + (if (macro-os-exception? _%e99012%_) + (macro-os-exception-procedure _%e99012%_) + (error '"not an instance" + 'os-exception? + (cons 'os-exception-procedure + (cons _%e99012%_ '()))))) + (if (macro-os-exception? _%exn99009%_) + (macro-os-exception-procedure _%exn99009%_) + (error '"not an instance" + 'os-exception? + (cons 'os-exception-procedure + (cons _%exn99009%_ '()))))))) (define permission-denied-exception? - (lambda (_%exn99411%_) + (lambda (_%exn99005%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99411%_)) - (let ((_%e99413%_ + (class-instance? RuntimeException::t _%exn99005%_)) + (let ((_%e99007%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99411%_ 'exception)))) - (macro-permission-denied-exception? _%e99413%_)) - (macro-permission-denied-exception? _%exn99411%_)))) + (unchecked-slot-ref _%exn99005%_ 'exception)))) + (macro-permission-denied-exception? _%e99007%_)) + (macro-permission-denied-exception? _%exn99005%_)))) (define permission-denied-exception-arguments - (lambda (_%exn99407%_) + (lambda (_%exn99001%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99407%_)) - (let ((_%e99409%_ + (class-instance? RuntimeException::t _%exn99001%_)) + (let ((_%e99003%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99407%_ 'exception)))) - (if (macro-permission-denied-exception? _%e99409%_) - (macro-permission-denied-exception-arguments _%e99409%_) - (let ((__tmp100718 - (cons 'permission-denied-exception-arguments - (cons _%e99409%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'permission-denied-exception? - __tmp100718)))) - (if (macro-permission-denied-exception? _%exn99407%_) - (macro-permission-denied-exception-arguments _%exn99407%_) - (let ((__tmp100719 - (cons 'permission-denied-exception-arguments - (cons _%exn99407%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn99001%_ 'exception)))) + (if (macro-permission-denied-exception? _%e99003%_) + (macro-permission-denied-exception-arguments _%e99003%_) (error '"not an instance" 'permission-denied-exception? - __tmp100719)))))) + (cons 'permission-denied-exception-arguments + (cons _%e99003%_ '()))))) + (if (macro-permission-denied-exception? _%exn99001%_) + (macro-permission-denied-exception-arguments _%exn99001%_) + (error '"not an instance" + 'permission-denied-exception? + (cons 'permission-denied-exception-arguments + (cons _%exn99001%_ '()))))))) (define permission-denied-exception-procedure - (lambda (_%exn99401%_) + (lambda (_%exn98995%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99401%_)) - (let ((_%e99404%_ + (class-instance? RuntimeException::t _%exn98995%_)) + (let ((_%e98998%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99401%_ 'exception)))) - (if (macro-permission-denied-exception? _%e99404%_) - (macro-permission-denied-exception-procedure _%e99404%_) - (let ((__tmp100720 - (cons 'permission-denied-exception-procedure - (cons _%e99404%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'permission-denied-exception? - __tmp100720)))) - (if (macro-permission-denied-exception? _%exn99401%_) - (macro-permission-denied-exception-procedure _%exn99401%_) - (let ((__tmp100721 - (cons 'permission-denied-exception-procedure - (cons _%exn99401%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98995%_ 'exception)))) + (if (macro-permission-denied-exception? _%e98998%_) + (macro-permission-denied-exception-procedure _%e98998%_) (error '"not an instance" 'permission-denied-exception? - __tmp100721)))))) + (cons 'permission-denied-exception-procedure + (cons _%e98998%_ '()))))) + (if (macro-permission-denied-exception? _%exn98995%_) + (macro-permission-denied-exception-procedure _%exn98995%_) + (error '"not an instance" + 'permission-denied-exception? + (cons 'permission-denied-exception-procedure + (cons _%exn98995%_ '()))))))) (define range-exception? - (lambda (_%exn99397%_) + (lambda (_%exn98991%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99397%_)) - (let ((_%e99399%_ + (class-instance? RuntimeException::t _%exn98991%_)) + (let ((_%e98993%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99397%_ 'exception)))) - (macro-range-exception? _%e99399%_)) - (macro-range-exception? _%exn99397%_)))) + (unchecked-slot-ref _%exn98991%_ 'exception)))) + (macro-range-exception? _%e98993%_)) + (macro-range-exception? _%exn98991%_)))) (define range-exception-arg-id - (lambda (_%exn99393%_) + (lambda (_%exn98987%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99393%_)) - (let ((_%e99395%_ + (class-instance? RuntimeException::t _%exn98987%_)) + (let ((_%e98989%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99393%_ 'exception)))) - (if (macro-range-exception? _%e99395%_) - (macro-range-exception-arg-id _%e99395%_) - (let ((__tmp100722 - (cons 'range-exception-arg-id (cons _%e99395%_ '())))) - (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp100722)))) - (if (macro-range-exception? _%exn99393%_) - (macro-range-exception-arg-id _%exn99393%_) - (let ((__tmp100723 - (cons 'range-exception-arg-id (cons _%exn99393%_ '())))) - (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp100723)))))) + (unchecked-slot-ref _%exn98987%_ 'exception)))) + (if (macro-range-exception? _%e98989%_) + (macro-range-exception-arg-id _%e98989%_) + (error '"not an instance" + 'range-exception? + (cons 'range-exception-arg-id + (cons _%e98989%_ '()))))) + (if (macro-range-exception? _%exn98987%_) + (macro-range-exception-arg-id _%exn98987%_) + (error '"not an instance" + 'range-exception? + (cons 'range-exception-arg-id + (cons _%exn98987%_ '()))))))) (define range-exception-arguments - (lambda (_%exn99389%_) + (lambda (_%exn98983%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99389%_)) - (let ((_%e99391%_ + (class-instance? RuntimeException::t _%exn98983%_)) + (let ((_%e98985%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99389%_ 'exception)))) - (if (macro-range-exception? _%e99391%_) - (macro-range-exception-arguments _%e99391%_) - (let ((__tmp100724 + (unchecked-slot-ref _%exn98983%_ 'exception)))) + (if (macro-range-exception? _%e98985%_) + (macro-range-exception-arguments _%e98985%_) + (error '"not an instance" + 'range-exception? (cons 'range-exception-arguments - (cons _%e99391%_ '())))) - (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp100724)))) - (if (macro-range-exception? _%exn99389%_) - (macro-range-exception-arguments _%exn99389%_) - (let ((__tmp100725 + (cons _%e98985%_ '()))))) + (if (macro-range-exception? _%exn98983%_) + (macro-range-exception-arguments _%exn98983%_) + (error '"not an instance" + 'range-exception? (cons 'range-exception-arguments - (cons _%exn99389%_ '())))) - (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp100725)))))) + (cons _%exn98983%_ '()))))))) (define range-exception-procedure - (lambda (_%exn99383%_) + (lambda (_%exn98977%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99383%_)) - (let ((_%e99386%_ + (class-instance? RuntimeException::t _%exn98977%_)) + (let ((_%e98980%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99383%_ 'exception)))) - (if (macro-range-exception? _%e99386%_) - (macro-range-exception-procedure _%e99386%_) - (let ((__tmp100726 + (unchecked-slot-ref _%exn98977%_ 'exception)))) + (if (macro-range-exception? _%e98980%_) + (macro-range-exception-procedure _%e98980%_) + (error '"not an instance" + 'range-exception? (cons 'range-exception-procedure - (cons _%e99386%_ '())))) - (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp100726)))) - (if (macro-range-exception? _%exn99383%_) - (macro-range-exception-procedure _%exn99383%_) - (let ((__tmp100727 + (cons _%e98980%_ '()))))) + (if (macro-range-exception? _%exn98977%_) + (macro-range-exception-procedure _%exn98977%_) + (error '"not an instance" + 'range-exception? (cons 'range-exception-procedure - (cons _%exn99383%_ '())))) - (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp100727)))))) + (cons _%exn98977%_ '()))))))) (define rpc-remote-error-exception? - (lambda (_%exn99379%_) + (lambda (_%exn98973%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99379%_)) - (let ((_%e99381%_ + (class-instance? RuntimeException::t _%exn98973%_)) + (let ((_%e98975%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99379%_ 'exception)))) - (macro-rpc-remote-error-exception? _%e99381%_)) - (macro-rpc-remote-error-exception? _%exn99379%_)))) + (unchecked-slot-ref _%exn98973%_ 'exception)))) + (macro-rpc-remote-error-exception? _%e98975%_)) + (macro-rpc-remote-error-exception? _%exn98973%_)))) (define rpc-remote-error-exception-arguments - (lambda (_%exn99375%_) + (lambda (_%exn98969%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99375%_)) - (let ((_%e99377%_ + (class-instance? RuntimeException::t _%exn98969%_)) + (let ((_%e98971%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99375%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e99377%_) - (macro-rpc-remote-error-exception-arguments _%e99377%_) - (let ((__tmp100728 - (cons 'rpc-remote-error-exception-arguments - (cons _%e99377%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'rpc-remote-error-exception? - __tmp100728)))) - (if (macro-rpc-remote-error-exception? _%exn99375%_) - (macro-rpc-remote-error-exception-arguments _%exn99375%_) - (let ((__tmp100729 - (cons 'rpc-remote-error-exception-arguments - (cons _%exn99375%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98969%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e98971%_) + (macro-rpc-remote-error-exception-arguments _%e98971%_) (error '"not an instance" 'rpc-remote-error-exception? - __tmp100729)))))) + (cons 'rpc-remote-error-exception-arguments + (cons _%e98971%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn98969%_) + (macro-rpc-remote-error-exception-arguments _%exn98969%_) + (error '"not an instance" + 'rpc-remote-error-exception? + (cons 'rpc-remote-error-exception-arguments + (cons _%exn98969%_ '()))))))) (define rpc-remote-error-exception-message - (lambda (_%exn99371%_) + (lambda (_%exn98965%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99371%_)) - (let ((_%e99373%_ + (class-instance? RuntimeException::t _%exn98965%_)) + (let ((_%e98967%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99371%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e99373%_) - (macro-rpc-remote-error-exception-message _%e99373%_) - (let ((__tmp100730 - (cons 'rpc-remote-error-exception-message - (cons _%e99373%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'rpc-remote-error-exception? - __tmp100730)))) - (if (macro-rpc-remote-error-exception? _%exn99371%_) - (macro-rpc-remote-error-exception-message _%exn99371%_) - (let ((__tmp100731 - (cons 'rpc-remote-error-exception-message - (cons _%exn99371%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98965%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e98967%_) + (macro-rpc-remote-error-exception-message _%e98967%_) (error '"not an instance" 'rpc-remote-error-exception? - __tmp100731)))))) + (cons 'rpc-remote-error-exception-message + (cons _%e98967%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn98965%_) + (macro-rpc-remote-error-exception-message _%exn98965%_) + (error '"not an instance" + 'rpc-remote-error-exception? + (cons 'rpc-remote-error-exception-message + (cons _%exn98965%_ '()))))))) (define rpc-remote-error-exception-procedure - (lambda (_%exn99365%_) + (lambda (_%exn98959%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99365%_)) - (let ((_%e99368%_ + (class-instance? RuntimeException::t _%exn98959%_)) + (let ((_%e98962%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99365%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e99368%_) - (macro-rpc-remote-error-exception-procedure _%e99368%_) - (let ((__tmp100732 - (cons 'rpc-remote-error-exception-procedure - (cons _%e99368%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'rpc-remote-error-exception? - __tmp100732)))) - (if (macro-rpc-remote-error-exception? _%exn99365%_) - (macro-rpc-remote-error-exception-procedure _%exn99365%_) - (let ((__tmp100733 - (cons 'rpc-remote-error-exception-procedure - (cons _%exn99365%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98959%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e98962%_) + (macro-rpc-remote-error-exception-procedure _%e98962%_) (error '"not an instance" 'rpc-remote-error-exception? - __tmp100733)))))) + (cons 'rpc-remote-error-exception-procedure + (cons _%e98962%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn98959%_) + (macro-rpc-remote-error-exception-procedure _%exn98959%_) + (error '"not an instance" + 'rpc-remote-error-exception? + (cons 'rpc-remote-error-exception-procedure + (cons _%exn98959%_ '()))))))) (define scheduler-exception? - (lambda (_%exn99361%_) + (lambda (_%exn98955%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99361%_)) - (let ((_%e99363%_ + (class-instance? RuntimeException::t _%exn98955%_)) + (let ((_%e98957%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99361%_ 'exception)))) - (macro-scheduler-exception? _%e99363%_)) - (macro-scheduler-exception? _%exn99361%_)))) + (unchecked-slot-ref _%exn98955%_ 'exception)))) + (macro-scheduler-exception? _%e98957%_)) + (macro-scheduler-exception? _%exn98955%_)))) (define scheduler-exception-reason - (lambda (_%exn99355%_) + (lambda (_%exn98949%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99355%_)) - (let ((_%e99358%_ + (class-instance? RuntimeException::t _%exn98949%_)) + (let ((_%e98952%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99355%_ 'exception)))) - (if (macro-scheduler-exception? _%e99358%_) - (macro-scheduler-exception-reason _%e99358%_) - (let ((__tmp100734 - (cons 'scheduler-exception-reason - (cons _%e99358%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'scheduler-exception? - __tmp100734)))) - (if (macro-scheduler-exception? _%exn99355%_) - (macro-scheduler-exception-reason _%exn99355%_) - (let ((__tmp100735 - (cons 'scheduler-exception-reason - (cons _%exn99355%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98949%_ 'exception)))) + (if (macro-scheduler-exception? _%e98952%_) + (macro-scheduler-exception-reason _%e98952%_) (error '"not an instance" 'scheduler-exception? - __tmp100735)))))) + (cons 'scheduler-exception-reason + (cons _%e98952%_ '()))))) + (if (macro-scheduler-exception? _%exn98949%_) + (macro-scheduler-exception-reason _%exn98949%_) + (error '"not an instance" + 'scheduler-exception? + (cons 'scheduler-exception-reason + (cons _%exn98949%_ '()))))))) (define sfun-conversion-exception? - (lambda (_%exn99351%_) + (lambda (_%exn98945%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99351%_)) - (let ((_%e99353%_ + (class-instance? RuntimeException::t _%exn98945%_)) + (let ((_%e98947%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99351%_ 'exception)))) - (macro-sfun-conversion-exception? _%e99353%_)) - (macro-sfun-conversion-exception? _%exn99351%_)))) + (unchecked-slot-ref _%exn98945%_ 'exception)))) + (macro-sfun-conversion-exception? _%e98947%_)) + (macro-sfun-conversion-exception? _%exn98945%_)))) (define sfun-conversion-exception-arguments - (lambda (_%exn99347%_) + (lambda (_%exn98941%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99347%_)) - (let ((_%e99349%_ + (class-instance? RuntimeException::t _%exn98941%_)) + (let ((_%e98943%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99347%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e99349%_) - (macro-sfun-conversion-exception-arguments _%e99349%_) - (let ((__tmp100736 - (cons 'sfun-conversion-exception-arguments - (cons _%e99349%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'sfun-conversion-exception? - __tmp100736)))) - (if (macro-sfun-conversion-exception? _%exn99347%_) - (macro-sfun-conversion-exception-arguments _%exn99347%_) - (let ((__tmp100737 - (cons 'sfun-conversion-exception-arguments - (cons _%exn99347%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98941%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e98943%_) + (macro-sfun-conversion-exception-arguments _%e98943%_) (error '"not an instance" 'sfun-conversion-exception? - __tmp100737)))))) + (cons 'sfun-conversion-exception-arguments + (cons _%e98943%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn98941%_) + (macro-sfun-conversion-exception-arguments _%exn98941%_) + (error '"not an instance" + 'sfun-conversion-exception? + (cons 'sfun-conversion-exception-arguments + (cons _%exn98941%_ '()))))))) (define sfun-conversion-exception-code - (lambda (_%exn99343%_) + (lambda (_%exn98937%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99343%_)) - (let ((_%e99345%_ + (class-instance? RuntimeException::t _%exn98937%_)) + (let ((_%e98939%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99343%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e99345%_) - (macro-sfun-conversion-exception-code _%e99345%_) - (let ((__tmp100738 - (cons 'sfun-conversion-exception-code - (cons _%e99345%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'sfun-conversion-exception? - __tmp100738)))) - (if (macro-sfun-conversion-exception? _%exn99343%_) - (macro-sfun-conversion-exception-code _%exn99343%_) - (let ((__tmp100739 - (cons 'sfun-conversion-exception-code - (cons _%exn99343%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98937%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e98939%_) + (macro-sfun-conversion-exception-code _%e98939%_) (error '"not an instance" 'sfun-conversion-exception? - __tmp100739)))))) + (cons 'sfun-conversion-exception-code + (cons _%e98939%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn98937%_) + (macro-sfun-conversion-exception-code _%exn98937%_) + (error '"not an instance" + 'sfun-conversion-exception? + (cons 'sfun-conversion-exception-code + (cons _%exn98937%_ '()))))))) (define sfun-conversion-exception-message - (lambda (_%exn99339%_) + (lambda (_%exn98933%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99339%_)) - (let ((_%e99341%_ + (class-instance? RuntimeException::t _%exn98933%_)) + (let ((_%e98935%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99339%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e99341%_) - (macro-sfun-conversion-exception-message _%e99341%_) - (let ((__tmp100740 - (cons 'sfun-conversion-exception-message - (cons _%e99341%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'sfun-conversion-exception? - __tmp100740)))) - (if (macro-sfun-conversion-exception? _%exn99339%_) - (macro-sfun-conversion-exception-message _%exn99339%_) - (let ((__tmp100741 - (cons 'sfun-conversion-exception-message - (cons _%exn99339%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98933%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e98935%_) + (macro-sfun-conversion-exception-message _%e98935%_) (error '"not an instance" 'sfun-conversion-exception? - __tmp100741)))))) + (cons 'sfun-conversion-exception-message + (cons _%e98935%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn98933%_) + (macro-sfun-conversion-exception-message _%exn98933%_) + (error '"not an instance" + 'sfun-conversion-exception? + (cons 'sfun-conversion-exception-message + (cons _%exn98933%_ '()))))))) (define sfun-conversion-exception-procedure - (lambda (_%exn99333%_) + (lambda (_%exn98927%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99333%_)) - (let ((_%e99336%_ + (class-instance? RuntimeException::t _%exn98927%_)) + (let ((_%e98930%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99333%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e99336%_) - (macro-sfun-conversion-exception-procedure _%e99336%_) - (let ((__tmp100742 - (cons 'sfun-conversion-exception-procedure - (cons _%e99336%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'sfun-conversion-exception? - __tmp100742)))) - (if (macro-sfun-conversion-exception? _%exn99333%_) - (macro-sfun-conversion-exception-procedure _%exn99333%_) - (let ((__tmp100743 - (cons 'sfun-conversion-exception-procedure - (cons _%exn99333%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98927%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e98930%_) + (macro-sfun-conversion-exception-procedure _%e98930%_) (error '"not an instance" 'sfun-conversion-exception? - __tmp100743)))))) + (cons 'sfun-conversion-exception-procedure + (cons _%e98930%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn98927%_) + (macro-sfun-conversion-exception-procedure _%exn98927%_) + (error '"not an instance" + 'sfun-conversion-exception? + (cons 'sfun-conversion-exception-procedure + (cons _%exn98927%_ '()))))))) (define stack-overflow-exception? - (lambda (_%exn99327%_) + (lambda (_%exn98921%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99327%_)) - (let ((_%e99330%_ + (class-instance? RuntimeException::t _%exn98921%_)) + (let ((_%e98924%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99327%_ 'exception)))) - (macro-stack-overflow-exception? _%e99330%_)) - (macro-stack-overflow-exception? _%exn99327%_)))) + (unchecked-slot-ref _%exn98921%_ 'exception)))) + (macro-stack-overflow-exception? _%e98924%_)) + (macro-stack-overflow-exception? _%exn98921%_)))) (define started-thread-exception? - (lambda (_%exn99323%_) + (lambda (_%exn98917%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99323%_)) - (let ((_%e99325%_ + (class-instance? RuntimeException::t _%exn98917%_)) + (let ((_%e98919%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99323%_ 'exception)))) - (macro-started-thread-exception? _%e99325%_)) - (macro-started-thread-exception? _%exn99323%_)))) + (unchecked-slot-ref _%exn98917%_ 'exception)))) + (macro-started-thread-exception? _%e98919%_)) + (macro-started-thread-exception? _%exn98917%_)))) (define started-thread-exception-arguments - (lambda (_%exn99319%_) + (lambda (_%exn98913%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99319%_)) - (let ((_%e99321%_ + (class-instance? RuntimeException::t _%exn98913%_)) + (let ((_%e98915%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99319%_ 'exception)))) - (if (macro-started-thread-exception? _%e99321%_) - (macro-started-thread-exception-arguments _%e99321%_) - (let ((__tmp100744 - (cons 'started-thread-exception-arguments - (cons _%e99321%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'started-thread-exception? - __tmp100744)))) - (if (macro-started-thread-exception? _%exn99319%_) - (macro-started-thread-exception-arguments _%exn99319%_) - (let ((__tmp100745 - (cons 'started-thread-exception-arguments - (cons _%exn99319%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98913%_ 'exception)))) + (if (macro-started-thread-exception? _%e98915%_) + (macro-started-thread-exception-arguments _%e98915%_) (error '"not an instance" 'started-thread-exception? - __tmp100745)))))) + (cons 'started-thread-exception-arguments + (cons _%e98915%_ '()))))) + (if (macro-started-thread-exception? _%exn98913%_) + (macro-started-thread-exception-arguments _%exn98913%_) + (error '"not an instance" + 'started-thread-exception? + (cons 'started-thread-exception-arguments + (cons _%exn98913%_ '()))))))) (define started-thread-exception-procedure - (lambda (_%exn99313%_) + (lambda (_%exn98907%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99313%_)) - (let ((_%e99316%_ + (class-instance? RuntimeException::t _%exn98907%_)) + (let ((_%e98910%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99313%_ 'exception)))) - (if (macro-started-thread-exception? _%e99316%_) - (macro-started-thread-exception-procedure _%e99316%_) - (let ((__tmp100746 - (cons 'started-thread-exception-procedure - (cons _%e99316%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'started-thread-exception? - __tmp100746)))) - (if (macro-started-thread-exception? _%exn99313%_) - (macro-started-thread-exception-procedure _%exn99313%_) - (let ((__tmp100747 - (cons 'started-thread-exception-procedure - (cons _%exn99313%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98907%_ 'exception)))) + (if (macro-started-thread-exception? _%e98910%_) + (macro-started-thread-exception-procedure _%e98910%_) (error '"not an instance" 'started-thread-exception? - __tmp100747)))))) + (cons 'started-thread-exception-procedure + (cons _%e98910%_ '()))))) + (if (macro-started-thread-exception? _%exn98907%_) + (macro-started-thread-exception-procedure _%exn98907%_) + (error '"not an instance" + 'started-thread-exception? + (cons 'started-thread-exception-procedure + (cons _%exn98907%_ '()))))))) (define terminated-thread-exception? - (lambda (_%exn99309%_) + (lambda (_%exn98903%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99309%_)) - (let ((_%e99311%_ + (class-instance? RuntimeException::t _%exn98903%_)) + (let ((_%e98905%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99309%_ 'exception)))) - (macro-terminated-thread-exception? _%e99311%_)) - (macro-terminated-thread-exception? _%exn99309%_)))) + (unchecked-slot-ref _%exn98903%_ 'exception)))) + (macro-terminated-thread-exception? _%e98905%_)) + (macro-terminated-thread-exception? _%exn98903%_)))) (define terminated-thread-exception-arguments - (lambda (_%exn99305%_) + (lambda (_%exn98899%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99305%_)) - (let ((_%e99307%_ + (class-instance? RuntimeException::t _%exn98899%_)) + (let ((_%e98901%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99305%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e99307%_) - (macro-terminated-thread-exception-arguments _%e99307%_) - (let ((__tmp100748 - (cons 'terminated-thread-exception-arguments - (cons _%e99307%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'terminated-thread-exception? - __tmp100748)))) - (if (macro-terminated-thread-exception? _%exn99305%_) - (macro-terminated-thread-exception-arguments _%exn99305%_) - (let ((__tmp100749 - (cons 'terminated-thread-exception-arguments - (cons _%exn99305%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98899%_ 'exception)))) + (if (macro-terminated-thread-exception? _%e98901%_) + (macro-terminated-thread-exception-arguments _%e98901%_) (error '"not an instance" 'terminated-thread-exception? - __tmp100749)))))) + (cons 'terminated-thread-exception-arguments + (cons _%e98901%_ '()))))) + (if (macro-terminated-thread-exception? _%exn98899%_) + (macro-terminated-thread-exception-arguments _%exn98899%_) + (error '"not an instance" + 'terminated-thread-exception? + (cons 'terminated-thread-exception-arguments + (cons _%exn98899%_ '()))))))) (define terminated-thread-exception-procedure - (lambda (_%exn99299%_) + (lambda (_%exn98893%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99299%_)) - (let ((_%e99302%_ + (class-instance? RuntimeException::t _%exn98893%_)) + (let ((_%e98896%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99299%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e99302%_) - (macro-terminated-thread-exception-procedure _%e99302%_) - (let ((__tmp100750 - (cons 'terminated-thread-exception-procedure - (cons _%e99302%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'terminated-thread-exception? - __tmp100750)))) - (if (macro-terminated-thread-exception? _%exn99299%_) - (macro-terminated-thread-exception-procedure _%exn99299%_) - (let ((__tmp100751 - (cons 'terminated-thread-exception-procedure - (cons _%exn99299%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98893%_ 'exception)))) + (if (macro-terminated-thread-exception? _%e98896%_) + (macro-terminated-thread-exception-procedure _%e98896%_) (error '"not an instance" 'terminated-thread-exception? - __tmp100751)))))) + (cons 'terminated-thread-exception-procedure + (cons _%e98896%_ '()))))) + (if (macro-terminated-thread-exception? _%exn98893%_) + (macro-terminated-thread-exception-procedure _%exn98893%_) + (error '"not an instance" + 'terminated-thread-exception? + (cons 'terminated-thread-exception-procedure + (cons _%exn98893%_ '()))))))) (define type-exception? - (lambda (_%exn99295%_) + (lambda (_%exn98889%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99295%_)) - (let ((_%e99297%_ + (class-instance? RuntimeException::t _%exn98889%_)) + (let ((_%e98891%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99295%_ 'exception)))) - (macro-type-exception? _%e99297%_)) - (macro-type-exception? _%exn99295%_)))) + (unchecked-slot-ref _%exn98889%_ 'exception)))) + (macro-type-exception? _%e98891%_)) + (macro-type-exception? _%exn98889%_)))) (define type-exception-arg-id - (lambda (_%exn99291%_) + (lambda (_%exn98885%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99291%_)) - (let ((_%e99293%_ + (class-instance? RuntimeException::t _%exn98885%_)) + (let ((_%e98887%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99291%_ 'exception)))) - (if (macro-type-exception? _%e99293%_) - (macro-type-exception-arg-id _%e99293%_) - (let ((__tmp100752 - (cons 'type-exception-arg-id (cons _%e99293%_ '())))) - (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp100752)))) - (if (macro-type-exception? _%exn99291%_) - (macro-type-exception-arg-id _%exn99291%_) - (let ((__tmp100753 - (cons 'type-exception-arg-id (cons _%exn99291%_ '())))) - (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp100753)))))) + (unchecked-slot-ref _%exn98885%_ 'exception)))) + (if (macro-type-exception? _%e98887%_) + (macro-type-exception-arg-id _%e98887%_) + (error '"not an instance" + 'type-exception? + (cons 'type-exception-arg-id (cons _%e98887%_ '()))))) + (if (macro-type-exception? _%exn98885%_) + (macro-type-exception-arg-id _%exn98885%_) + (error '"not an instance" + 'type-exception? + (cons 'type-exception-arg-id + (cons _%exn98885%_ '()))))))) (define type-exception-arguments - (lambda (_%exn99287%_) + (lambda (_%exn98881%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99287%_)) - (let ((_%e99289%_ + (class-instance? RuntimeException::t _%exn98881%_)) + (let ((_%e98883%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99287%_ 'exception)))) - (if (macro-type-exception? _%e99289%_) - (macro-type-exception-arguments _%e99289%_) - (let ((__tmp100754 + (unchecked-slot-ref _%exn98881%_ 'exception)))) + (if (macro-type-exception? _%e98883%_) + (macro-type-exception-arguments _%e98883%_) + (error '"not an instance" + 'type-exception? (cons 'type-exception-arguments - (cons _%e99289%_ '())))) - (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp100754)))) - (if (macro-type-exception? _%exn99287%_) - (macro-type-exception-arguments _%exn99287%_) - (let ((__tmp100755 + (cons _%e98883%_ '()))))) + (if (macro-type-exception? _%exn98881%_) + (macro-type-exception-arguments _%exn98881%_) + (error '"not an instance" + 'type-exception? (cons 'type-exception-arguments - (cons _%exn99287%_ '())))) - (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp100755)))))) + (cons _%exn98881%_ '()))))))) (define type-exception-procedure - (lambda (_%exn99283%_) + (lambda (_%exn98877%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99283%_)) - (let ((_%e99285%_ + (class-instance? RuntimeException::t _%exn98877%_)) + (let ((_%e98879%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99283%_ 'exception)))) - (if (macro-type-exception? _%e99285%_) - (macro-type-exception-procedure _%e99285%_) - (let ((__tmp100756 + (unchecked-slot-ref _%exn98877%_ 'exception)))) + (if (macro-type-exception? _%e98879%_) + (macro-type-exception-procedure _%e98879%_) + (error '"not an instance" + 'type-exception? (cons 'type-exception-procedure - (cons _%e99285%_ '())))) - (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp100756)))) - (if (macro-type-exception? _%exn99283%_) - (macro-type-exception-procedure _%exn99283%_) - (let ((__tmp100757 + (cons _%e98879%_ '()))))) + (if (macro-type-exception? _%exn98877%_) + (macro-type-exception-procedure _%exn98877%_) + (error '"not an instance" + 'type-exception? (cons 'type-exception-procedure - (cons _%exn99283%_ '())))) - (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp100757)))))) + (cons _%exn98877%_ '()))))))) (define type-exception-type-id - (lambda (_%exn99277%_) + (lambda (_%exn98871%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99277%_)) - (let ((_%e99280%_ + (class-instance? RuntimeException::t _%exn98871%_)) + (let ((_%e98874%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99277%_ 'exception)))) - (if (macro-type-exception? _%e99280%_) - (macro-type-exception-type-id _%e99280%_) - (let ((__tmp100758 - (cons 'type-exception-type-id (cons _%e99280%_ '())))) - (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp100758)))) - (if (macro-type-exception? _%exn99277%_) - (macro-type-exception-type-id _%exn99277%_) - (let ((__tmp100759 - (cons 'type-exception-type-id (cons _%exn99277%_ '())))) - (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp100759)))))) + (unchecked-slot-ref _%exn98871%_ 'exception)))) + (if (macro-type-exception? _%e98874%_) + (macro-type-exception-type-id _%e98874%_) + (error '"not an instance" + 'type-exception? + (cons 'type-exception-type-id + (cons _%e98874%_ '()))))) + (if (macro-type-exception? _%exn98871%_) + (macro-type-exception-type-id _%exn98871%_) + (error '"not an instance" + 'type-exception? + (cons 'type-exception-type-id + (cons _%exn98871%_ '()))))))) (define unbound-global-exception? - (lambda (_%exn99273%_) + (lambda (_%exn98867%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99273%_)) - (let ((_%e99275%_ + (class-instance? RuntimeException::t _%exn98867%_)) + (let ((_%e98869%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99273%_ 'exception)))) - (macro-unbound-global-exception? _%e99275%_)) - (macro-unbound-global-exception? _%exn99273%_)))) + (unchecked-slot-ref _%exn98867%_ 'exception)))) + (macro-unbound-global-exception? _%e98869%_)) + (macro-unbound-global-exception? _%exn98867%_)))) (define unbound-global-exception-code - (lambda (_%exn99269%_) + (lambda (_%exn98863%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99269%_)) - (let ((_%e99271%_ + (class-instance? RuntimeException::t _%exn98863%_)) + (let ((_%e98865%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99269%_ 'exception)))) - (if (macro-unbound-global-exception? _%e99271%_) - (macro-unbound-global-exception-code _%e99271%_) - (let ((__tmp100760 - (cons 'unbound-global-exception-code - (cons _%e99271%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unbound-global-exception? - __tmp100760)))) - (if (macro-unbound-global-exception? _%exn99269%_) - (macro-unbound-global-exception-code _%exn99269%_) - (let ((__tmp100761 - (cons 'unbound-global-exception-code - (cons _%exn99269%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98863%_ 'exception)))) + (if (macro-unbound-global-exception? _%e98865%_) + (macro-unbound-global-exception-code _%e98865%_) (error '"not an instance" 'unbound-global-exception? - __tmp100761)))))) + (cons 'unbound-global-exception-code + (cons _%e98865%_ '()))))) + (if (macro-unbound-global-exception? _%exn98863%_) + (macro-unbound-global-exception-code _%exn98863%_) + (error '"not an instance" + 'unbound-global-exception? + (cons 'unbound-global-exception-code + (cons _%exn98863%_ '()))))))) (define unbound-global-exception-rte - (lambda (_%exn99265%_) + (lambda (_%exn98859%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99265%_)) - (let ((_%e99267%_ + (class-instance? RuntimeException::t _%exn98859%_)) + (let ((_%e98861%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99265%_ 'exception)))) - (if (macro-unbound-global-exception? _%e99267%_) - (macro-unbound-global-exception-rte _%e99267%_) - (let ((__tmp100762 - (cons 'unbound-global-exception-rte - (cons _%e99267%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unbound-global-exception? - __tmp100762)))) - (if (macro-unbound-global-exception? _%exn99265%_) - (macro-unbound-global-exception-rte _%exn99265%_) - (let ((__tmp100763 - (cons 'unbound-global-exception-rte - (cons _%exn99265%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98859%_ 'exception)))) + (if (macro-unbound-global-exception? _%e98861%_) + (macro-unbound-global-exception-rte _%e98861%_) (error '"not an instance" 'unbound-global-exception? - __tmp100763)))))) + (cons 'unbound-global-exception-rte + (cons _%e98861%_ '()))))) + (if (macro-unbound-global-exception? _%exn98859%_) + (macro-unbound-global-exception-rte _%exn98859%_) + (error '"not an instance" + 'unbound-global-exception? + (cons 'unbound-global-exception-rte + (cons _%exn98859%_ '()))))))) (define unbound-global-exception-variable - (lambda (_%exn99259%_) + (lambda (_%exn98853%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99259%_)) - (let ((_%e99262%_ + (class-instance? RuntimeException::t _%exn98853%_)) + (let ((_%e98856%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99259%_ 'exception)))) - (if (macro-unbound-global-exception? _%e99262%_) - (macro-unbound-global-exception-variable _%e99262%_) - (let ((__tmp100764 - (cons 'unbound-global-exception-variable - (cons _%e99262%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unbound-global-exception? - __tmp100764)))) - (if (macro-unbound-global-exception? _%exn99259%_) - (macro-unbound-global-exception-variable _%exn99259%_) - (let ((__tmp100765 - (cons 'unbound-global-exception-variable - (cons _%exn99259%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98853%_ 'exception)))) + (if (macro-unbound-global-exception? _%e98856%_) + (macro-unbound-global-exception-variable _%e98856%_) (error '"not an instance" 'unbound-global-exception? - __tmp100765)))))) + (cons 'unbound-global-exception-variable + (cons _%e98856%_ '()))))) + (if (macro-unbound-global-exception? _%exn98853%_) + (macro-unbound-global-exception-variable _%exn98853%_) + (error '"not an instance" + 'unbound-global-exception? + (cons 'unbound-global-exception-variable + (cons _%exn98853%_ '()))))))) (define unbound-key-exception? - (lambda (_%exn99255%_) + (lambda (_%exn98849%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99255%_)) - (let ((_%e99257%_ + (class-instance? RuntimeException::t _%exn98849%_)) + (let ((_%e98851%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99255%_ 'exception)))) - (macro-unbound-key-exception? _%e99257%_)) - (macro-unbound-key-exception? _%exn99255%_)))) + (unchecked-slot-ref _%exn98849%_ 'exception)))) + (macro-unbound-key-exception? _%e98851%_)) + (macro-unbound-key-exception? _%exn98849%_)))) (define unbound-key-exception-arguments - (lambda (_%exn99251%_) + (lambda (_%exn98845%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99251%_)) - (let ((_%e99253%_ + (class-instance? RuntimeException::t _%exn98845%_)) + (let ((_%e98847%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99251%_ 'exception)))) - (if (macro-unbound-key-exception? _%e99253%_) - (macro-unbound-key-exception-arguments _%e99253%_) - (let ((__tmp100766 - (cons 'unbound-key-exception-arguments - (cons _%e99253%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unbound-key-exception? - __tmp100766)))) - (if (macro-unbound-key-exception? _%exn99251%_) - (macro-unbound-key-exception-arguments _%exn99251%_) - (let ((__tmp100767 - (cons 'unbound-key-exception-arguments - (cons _%exn99251%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98845%_ 'exception)))) + (if (macro-unbound-key-exception? _%e98847%_) + (macro-unbound-key-exception-arguments _%e98847%_) (error '"not an instance" 'unbound-key-exception? - __tmp100767)))))) + (cons 'unbound-key-exception-arguments + (cons _%e98847%_ '()))))) + (if (macro-unbound-key-exception? _%exn98845%_) + (macro-unbound-key-exception-arguments _%exn98845%_) + (error '"not an instance" + 'unbound-key-exception? + (cons 'unbound-key-exception-arguments + (cons _%exn98845%_ '()))))))) (define unbound-key-exception-procedure - (lambda (_%exn99245%_) + (lambda (_%exn98839%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99245%_)) - (let ((_%e99248%_ + (class-instance? RuntimeException::t _%exn98839%_)) + (let ((_%e98842%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99245%_ 'exception)))) - (if (macro-unbound-key-exception? _%e99248%_) - (macro-unbound-key-exception-procedure _%e99248%_) - (let ((__tmp100768 - (cons 'unbound-key-exception-procedure - (cons _%e99248%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unbound-key-exception? - __tmp100768)))) - (if (macro-unbound-key-exception? _%exn99245%_) - (macro-unbound-key-exception-procedure _%exn99245%_) - (let ((__tmp100769 - (cons 'unbound-key-exception-procedure - (cons _%exn99245%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98839%_ 'exception)))) + (if (macro-unbound-key-exception? _%e98842%_) + (macro-unbound-key-exception-procedure _%e98842%_) (error '"not an instance" 'unbound-key-exception? - __tmp100769)))))) + (cons 'unbound-key-exception-procedure + (cons _%e98842%_ '()))))) + (if (macro-unbound-key-exception? _%exn98839%_) + (macro-unbound-key-exception-procedure _%exn98839%_) + (error '"not an instance" + 'unbound-key-exception? + (cons 'unbound-key-exception-procedure + (cons _%exn98839%_ '()))))))) (define unbound-os-environment-variable-exception? - (lambda (_%exn99241%_) + (lambda (_%exn98835%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99241%_)) - (let ((_%e99243%_ + (class-instance? RuntimeException::t _%exn98835%_)) + (let ((_%e98837%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99241%_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _%e99243%_)) - (macro-unbound-os-environment-variable-exception? _%exn99241%_)))) + (unchecked-slot-ref _%exn98835%_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _%e98837%_)) + (macro-unbound-os-environment-variable-exception? _%exn98835%_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_%exn99237%_) + (lambda (_%exn98831%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99237%_)) - (let ((_%e99239%_ + (class-instance? RuntimeException::t _%exn98831%_)) + (let ((_%e98833%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99237%_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _%e99239%_) + (unchecked-slot-ref _%exn98831%_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _%e98833%_) (macro-unbound-os-environment-variable-exception-arguments - _%e99239%_) - (let ((__tmp100770 + _%e98833%_) + (error '"not an instance" + 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%e99239%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unbound-os-environment-variable-exception? - __tmp100770)))) - (if (macro-unbound-os-environment-variable-exception? _%exn99237%_) + (cons _%e98833%_ '()))))) + (if (macro-unbound-os-environment-variable-exception? _%exn98831%_) (macro-unbound-os-environment-variable-exception-arguments - _%exn99237%_) - (let ((__tmp100771 + _%exn98831%_) + (error '"not an instance" + 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%exn99237%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unbound-os-environment-variable-exception? - __tmp100771)))))) + (cons _%exn98831%_ '()))))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_%exn99231%_) + (lambda (_%exn98825%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99231%_)) - (let ((_%e99234%_ + (class-instance? RuntimeException::t _%exn98825%_)) + (let ((_%e98828%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99231%_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _%e99234%_) + (unchecked-slot-ref _%exn98825%_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _%e98828%_) (macro-unbound-os-environment-variable-exception-procedure - _%e99234%_) - (let ((__tmp100772 + _%e98828%_) + (error '"not an instance" + 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%e99234%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unbound-os-environment-variable-exception? - __tmp100772)))) - (if (macro-unbound-os-environment-variable-exception? _%exn99231%_) + (cons _%e98828%_ '()))))) + (if (macro-unbound-os-environment-variable-exception? _%exn98825%_) (macro-unbound-os-environment-variable-exception-procedure - _%exn99231%_) - (let ((__tmp100773 + _%exn98825%_) + (error '"not an instance" + 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%exn99231%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unbound-os-environment-variable-exception? - __tmp100773)))))) + (cons _%exn98825%_ '()))))))) (define unbound-serial-number-exception? - (lambda (_%exn99227%_) + (lambda (_%exn98821%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99227%_)) - (let ((_%e99229%_ + (class-instance? RuntimeException::t _%exn98821%_)) + (let ((_%e98823%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99227%_ 'exception)))) - (macro-unbound-serial-number-exception? _%e99229%_)) - (macro-unbound-serial-number-exception? _%exn99227%_)))) + (unchecked-slot-ref _%exn98821%_ 'exception)))) + (macro-unbound-serial-number-exception? _%e98823%_)) + (macro-unbound-serial-number-exception? _%exn98821%_)))) (define unbound-serial-number-exception-arguments - (lambda (_%exn99223%_) + (lambda (_%exn98817%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99223%_)) - (let ((_%e99225%_ + (class-instance? RuntimeException::t _%exn98817%_)) + (let ((_%e98819%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99223%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e99225%_) - (macro-unbound-serial-number-exception-arguments _%e99225%_) - (let ((__tmp100774 - (cons 'unbound-serial-number-exception-arguments - (cons _%e99225%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unbound-serial-number-exception? - __tmp100774)))) - (if (macro-unbound-serial-number-exception? _%exn99223%_) - (macro-unbound-serial-number-exception-arguments _%exn99223%_) - (let ((__tmp100775 - (cons 'unbound-serial-number-exception-arguments - (cons _%exn99223%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98817%_ 'exception)))) + (if (macro-unbound-serial-number-exception? _%e98819%_) + (macro-unbound-serial-number-exception-arguments _%e98819%_) (error '"not an instance" 'unbound-serial-number-exception? - __tmp100775)))))) + (cons 'unbound-serial-number-exception-arguments + (cons _%e98819%_ '()))))) + (if (macro-unbound-serial-number-exception? _%exn98817%_) + (macro-unbound-serial-number-exception-arguments _%exn98817%_) + (error '"not an instance" + 'unbound-serial-number-exception? + (cons 'unbound-serial-number-exception-arguments + (cons _%exn98817%_ '()))))))) (define unbound-serial-number-exception-procedure - (lambda (_%exn99217%_) + (lambda (_%exn98811%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99217%_)) - (let ((_%e99220%_ + (class-instance? RuntimeException::t _%exn98811%_)) + (let ((_%e98814%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99217%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e99220%_) - (macro-unbound-serial-number-exception-procedure _%e99220%_) - (let ((__tmp100776 - (cons 'unbound-serial-number-exception-procedure - (cons _%e99220%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unbound-serial-number-exception? - __tmp100776)))) - (if (macro-unbound-serial-number-exception? _%exn99217%_) - (macro-unbound-serial-number-exception-procedure _%exn99217%_) - (let ((__tmp100777 - (cons 'unbound-serial-number-exception-procedure - (cons _%exn99217%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98811%_ 'exception)))) + (if (macro-unbound-serial-number-exception? _%e98814%_) + (macro-unbound-serial-number-exception-procedure _%e98814%_) (error '"not an instance" 'unbound-serial-number-exception? - __tmp100777)))))) + (cons 'unbound-serial-number-exception-procedure + (cons _%e98814%_ '()))))) + (if (macro-unbound-serial-number-exception? _%exn98811%_) + (macro-unbound-serial-number-exception-procedure _%exn98811%_) + (error '"not an instance" + 'unbound-serial-number-exception? + (cons 'unbound-serial-number-exception-procedure + (cons _%exn98811%_ '()))))))) (define uncaught-exception? - (lambda (_%exn99213%_) + (lambda (_%exn98807%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99213%_)) - (let ((_%e99215%_ + (class-instance? RuntimeException::t _%exn98807%_)) + (let ((_%e98809%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99213%_ 'exception)))) - (macro-uncaught-exception? _%e99215%_)) - (macro-uncaught-exception? _%exn99213%_)))) + (unchecked-slot-ref _%exn98807%_ 'exception)))) + (macro-uncaught-exception? _%e98809%_)) + (macro-uncaught-exception? _%exn98807%_)))) (define uncaught-exception-arguments - (lambda (_%exn99209%_) + (lambda (_%exn98803%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99209%_)) - (let ((_%e99211%_ + (class-instance? RuntimeException::t _%exn98803%_)) + (let ((_%e98805%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99209%_ 'exception)))) - (if (macro-uncaught-exception? _%e99211%_) - (macro-uncaught-exception-arguments _%e99211%_) - (let ((__tmp100778 - (cons 'uncaught-exception-arguments - (cons _%e99211%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'uncaught-exception? - __tmp100778)))) - (if (macro-uncaught-exception? _%exn99209%_) - (macro-uncaught-exception-arguments _%exn99209%_) - (let ((__tmp100779 - (cons 'uncaught-exception-arguments - (cons _%exn99209%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98803%_ 'exception)))) + (if (macro-uncaught-exception? _%e98805%_) + (macro-uncaught-exception-arguments _%e98805%_) (error '"not an instance" 'uncaught-exception? - __tmp100779)))))) + (cons 'uncaught-exception-arguments + (cons _%e98805%_ '()))))) + (if (macro-uncaught-exception? _%exn98803%_) + (macro-uncaught-exception-arguments _%exn98803%_) + (error '"not an instance" + 'uncaught-exception? + (cons 'uncaught-exception-arguments + (cons _%exn98803%_ '()))))))) (define uncaught-exception-procedure - (lambda (_%exn99205%_) + (lambda (_%exn98799%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99205%_)) - (let ((_%e99207%_ + (class-instance? RuntimeException::t _%exn98799%_)) + (let ((_%e98801%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99205%_ 'exception)))) - (if (macro-uncaught-exception? _%e99207%_) - (macro-uncaught-exception-procedure _%e99207%_) - (let ((__tmp100780 - (cons 'uncaught-exception-procedure - (cons _%e99207%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'uncaught-exception? - __tmp100780)))) - (if (macro-uncaught-exception? _%exn99205%_) - (macro-uncaught-exception-procedure _%exn99205%_) - (let ((__tmp100781 - (cons 'uncaught-exception-procedure - (cons _%exn99205%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98799%_ 'exception)))) + (if (macro-uncaught-exception? _%e98801%_) + (macro-uncaught-exception-procedure _%e98801%_) (error '"not an instance" 'uncaught-exception? - __tmp100781)))))) + (cons 'uncaught-exception-procedure + (cons _%e98801%_ '()))))) + (if (macro-uncaught-exception? _%exn98799%_) + (macro-uncaught-exception-procedure _%exn98799%_) + (error '"not an instance" + 'uncaught-exception? + (cons 'uncaught-exception-procedure + (cons _%exn98799%_ '()))))))) (define uncaught-exception-reason - (lambda (_%exn99199%_) + (lambda (_%exn98793%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99199%_)) - (let ((_%e99202%_ + (class-instance? RuntimeException::t _%exn98793%_)) + (let ((_%e98796%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99199%_ 'exception)))) - (if (macro-uncaught-exception? _%e99202%_) - (macro-uncaught-exception-reason _%e99202%_) - (let ((__tmp100782 - (cons 'uncaught-exception-reason - (cons _%e99202%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'uncaught-exception? - __tmp100782)))) - (if (macro-uncaught-exception? _%exn99199%_) - (macro-uncaught-exception-reason _%exn99199%_) - (let ((__tmp100783 - (cons 'uncaught-exception-reason - (cons _%exn99199%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98793%_ 'exception)))) + (if (macro-uncaught-exception? _%e98796%_) + (macro-uncaught-exception-reason _%e98796%_) (error '"not an instance" 'uncaught-exception? - __tmp100783)))))) + (cons 'uncaught-exception-reason + (cons _%e98796%_ '()))))) + (if (macro-uncaught-exception? _%exn98793%_) + (macro-uncaught-exception-reason _%exn98793%_) + (error '"not an instance" + 'uncaught-exception? + (cons 'uncaught-exception-reason + (cons _%exn98793%_ '()))))))) (define uninitialized-thread-exception? - (lambda (_%exn99195%_) + (lambda (_%exn98789%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99195%_)) - (let ((_%e99197%_ + (class-instance? RuntimeException::t _%exn98789%_)) + (let ((_%e98791%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99195%_ 'exception)))) - (macro-uninitialized-thread-exception? _%e99197%_)) - (macro-uninitialized-thread-exception? _%exn99195%_)))) + (unchecked-slot-ref _%exn98789%_ 'exception)))) + (macro-uninitialized-thread-exception? _%e98791%_)) + (macro-uninitialized-thread-exception? _%exn98789%_)))) (define uninitialized-thread-exception-arguments - (lambda (_%exn99191%_) + (lambda (_%exn98785%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99191%_)) - (let ((_%e99193%_ + (class-instance? RuntimeException::t _%exn98785%_)) + (let ((_%e98787%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99191%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e99193%_) - (macro-uninitialized-thread-exception-arguments _%e99193%_) - (let ((__tmp100784 - (cons 'uninitialized-thread-exception-arguments - (cons _%e99193%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'uninitialized-thread-exception? - __tmp100784)))) - (if (macro-uninitialized-thread-exception? _%exn99191%_) - (macro-uninitialized-thread-exception-arguments _%exn99191%_) - (let ((__tmp100785 - (cons 'uninitialized-thread-exception-arguments - (cons _%exn99191%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98785%_ 'exception)))) + (if (macro-uninitialized-thread-exception? _%e98787%_) + (macro-uninitialized-thread-exception-arguments _%e98787%_) (error '"not an instance" 'uninitialized-thread-exception? - __tmp100785)))))) + (cons 'uninitialized-thread-exception-arguments + (cons _%e98787%_ '()))))) + (if (macro-uninitialized-thread-exception? _%exn98785%_) + (macro-uninitialized-thread-exception-arguments _%exn98785%_) + (error '"not an instance" + 'uninitialized-thread-exception? + (cons 'uninitialized-thread-exception-arguments + (cons _%exn98785%_ '()))))))) (define uninitialized-thread-exception-procedure - (lambda (_%exn99185%_) + (lambda (_%exn98779%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99185%_)) - (let ((_%e99188%_ + (class-instance? RuntimeException::t _%exn98779%_)) + (let ((_%e98782%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99185%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e99188%_) - (macro-uninitialized-thread-exception-procedure _%e99188%_) - (let ((__tmp100786 - (cons 'uninitialized-thread-exception-procedure - (cons _%e99188%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'uninitialized-thread-exception? - __tmp100786)))) - (if (macro-uninitialized-thread-exception? _%exn99185%_) - (macro-uninitialized-thread-exception-procedure _%exn99185%_) - (let ((__tmp100787 - (cons 'uninitialized-thread-exception-procedure - (cons _%exn99185%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98779%_ 'exception)))) + (if (macro-uninitialized-thread-exception? _%e98782%_) + (macro-uninitialized-thread-exception-procedure _%e98782%_) (error '"not an instance" 'uninitialized-thread-exception? - __tmp100787)))))) + (cons 'uninitialized-thread-exception-procedure + (cons _%e98782%_ '()))))) + (if (macro-uninitialized-thread-exception? _%exn98779%_) + (macro-uninitialized-thread-exception-procedure _%exn98779%_) + (error '"not an instance" + 'uninitialized-thread-exception? + (cons 'uninitialized-thread-exception-procedure + (cons _%exn98779%_ '()))))))) (define unknown-keyword-argument-exception? - (lambda (_%exn99181%_) + (lambda (_%exn98775%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99181%_)) - (let ((_%e99183%_ + (class-instance? RuntimeException::t _%exn98775%_)) + (let ((_%e98777%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99181%_ 'exception)))) - (macro-unknown-keyword-argument-exception? _%e99183%_)) - (macro-unknown-keyword-argument-exception? _%exn99181%_)))) + (unchecked-slot-ref _%exn98775%_ 'exception)))) + (macro-unknown-keyword-argument-exception? _%e98777%_)) + (macro-unknown-keyword-argument-exception? _%exn98775%_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_%exn99177%_) + (lambda (_%exn98771%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99177%_)) - (let ((_%e99179%_ + (class-instance? RuntimeException::t _%exn98771%_)) + (let ((_%e98773%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99177%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e99179%_) + (unchecked-slot-ref _%exn98771%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e98773%_) (macro-unknown-keyword-argument-exception-arguments - _%e99179%_) - (let ((__tmp100788 + _%e98773%_) + (error '"not an instance" + 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%e99179%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unknown-keyword-argument-exception? - __tmp100788)))) - (if (macro-unknown-keyword-argument-exception? _%exn99177%_) + (cons _%e98773%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn98771%_) (macro-unknown-keyword-argument-exception-arguments - _%exn99177%_) - (let ((__tmp100789 + _%exn98771%_) + (error '"not an instance" + 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%exn99177%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unknown-keyword-argument-exception? - __tmp100789)))))) + (cons _%exn98771%_ '()))))))) (define unknown-keyword-argument-exception-procedure - (lambda (_%exn99171%_) + (lambda (_%exn98765%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99171%_)) - (let ((_%e99174%_ + (class-instance? RuntimeException::t _%exn98765%_)) + (let ((_%e98768%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99171%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e99174%_) + (unchecked-slot-ref _%exn98765%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e98768%_) (macro-unknown-keyword-argument-exception-procedure - _%e99174%_) - (let ((__tmp100790 + _%e98768%_) + (error '"not an instance" + 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%e99174%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unknown-keyword-argument-exception? - __tmp100790)))) - (if (macro-unknown-keyword-argument-exception? _%exn99171%_) + (cons _%e98768%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn98765%_) (macro-unknown-keyword-argument-exception-procedure - _%exn99171%_) - (let ((__tmp100791 + _%exn98765%_) + (error '"not an instance" + 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%exn99171%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unknown-keyword-argument-exception? - __tmp100791)))))) + (cons _%exn98765%_ '()))))))) (define unterminated-process-exception? - (lambda (_%exn99167%_) + (lambda (_%exn98761%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99167%_)) - (let ((_%e99169%_ + (class-instance? RuntimeException::t _%exn98761%_)) + (let ((_%e98763%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99167%_ 'exception)))) - (macro-unterminated-process-exception? _%e99169%_)) - (macro-unterminated-process-exception? _%exn99167%_)))) + (unchecked-slot-ref _%exn98761%_ 'exception)))) + (macro-unterminated-process-exception? _%e98763%_)) + (macro-unterminated-process-exception? _%exn98761%_)))) (define unterminated-process-exception-arguments - (lambda (_%exn99163%_) + (lambda (_%exn98757%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99163%_)) - (let ((_%e99165%_ + (class-instance? RuntimeException::t _%exn98757%_)) + (let ((_%e98759%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99163%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e99165%_) - (macro-unterminated-process-exception-arguments _%e99165%_) - (let ((__tmp100792 - (cons 'unterminated-process-exception-arguments - (cons _%e99165%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unterminated-process-exception? - __tmp100792)))) - (if (macro-unterminated-process-exception? _%exn99163%_) - (macro-unterminated-process-exception-arguments _%exn99163%_) - (let ((__tmp100793 - (cons 'unterminated-process-exception-arguments - (cons _%exn99163%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98757%_ 'exception)))) + (if (macro-unterminated-process-exception? _%e98759%_) + (macro-unterminated-process-exception-arguments _%e98759%_) (error '"not an instance" 'unterminated-process-exception? - __tmp100793)))))) + (cons 'unterminated-process-exception-arguments + (cons _%e98759%_ '()))))) + (if (macro-unterminated-process-exception? _%exn98757%_) + (macro-unterminated-process-exception-arguments _%exn98757%_) + (error '"not an instance" + 'unterminated-process-exception? + (cons 'unterminated-process-exception-arguments + (cons _%exn98757%_ '()))))))) (define unterminated-process-exception-procedure - (lambda (_%exn99157%_) + (lambda (_%exn98751%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99157%_)) - (let ((_%e99160%_ + (class-instance? RuntimeException::t _%exn98751%_)) + (let ((_%e98754%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99157%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e99160%_) - (macro-unterminated-process-exception-procedure _%e99160%_) - (let ((__tmp100794 - (cons 'unterminated-process-exception-procedure - (cons _%e99160%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'unterminated-process-exception? - __tmp100794)))) - (if (macro-unterminated-process-exception? _%exn99157%_) - (macro-unterminated-process-exception-procedure _%exn99157%_) - (let ((__tmp100795 - (cons 'unterminated-process-exception-procedure - (cons _%exn99157%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98751%_ 'exception)))) + (if (macro-unterminated-process-exception? _%e98754%_) + (macro-unterminated-process-exception-procedure _%e98754%_) (error '"not an instance" 'unterminated-process-exception? - __tmp100795)))))) + (cons 'unterminated-process-exception-procedure + (cons _%e98754%_ '()))))) + (if (macro-unterminated-process-exception? _%exn98751%_) + (macro-unterminated-process-exception-procedure _%exn98751%_) + (error '"not an instance" + 'unterminated-process-exception? + (cons 'unterminated-process-exception-procedure + (cons _%exn98751%_ '()))))))) (define wrong-number-of-arguments-exception? - (lambda (_%exn99153%_) + (lambda (_%exn98747%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99153%_)) - (let ((_%e99155%_ + (class-instance? RuntimeException::t _%exn98747%_)) + (let ((_%e98749%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99153%_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _%e99155%_)) - (macro-wrong-number-of-arguments-exception? _%exn99153%_)))) + (unchecked-slot-ref _%exn98747%_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _%e98749%_)) + (macro-wrong-number-of-arguments-exception? _%exn98747%_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_%exn99149%_) + (lambda (_%exn98743%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99149%_)) - (let ((_%e99151%_ + (class-instance? RuntimeException::t _%exn98743%_)) + (let ((_%e98745%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99149%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e99151%_) + (unchecked-slot-ref _%exn98743%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e98745%_) (macro-wrong-number-of-arguments-exception-arguments - _%e99151%_) - (let ((__tmp100796 + _%e98745%_) + (error '"not an instance" + 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%e99151%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'wrong-number-of-arguments-exception? - __tmp100796)))) - (if (macro-wrong-number-of-arguments-exception? _%exn99149%_) + (cons _%e98745%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn98743%_) (macro-wrong-number-of-arguments-exception-arguments - _%exn99149%_) - (let ((__tmp100797 + _%exn98743%_) + (error '"not an instance" + 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%exn99149%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'wrong-number-of-arguments-exception? - __tmp100797)))))) + (cons _%exn98743%_ '()))))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_%exn99143%_) + (lambda (_%exn98737%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99143%_)) - (let ((_%e99146%_ + (class-instance? RuntimeException::t _%exn98737%_)) + (let ((_%e98740%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99143%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e99146%_) + (unchecked-slot-ref _%exn98737%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e98740%_) (macro-wrong-number-of-arguments-exception-procedure - _%e99146%_) - (let ((__tmp100798 + _%e98740%_) + (error '"not an instance" + 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%e99146%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'wrong-number-of-arguments-exception? - __tmp100798)))) - (if (macro-wrong-number-of-arguments-exception? _%exn99143%_) + (cons _%e98740%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn98737%_) (macro-wrong-number-of-arguments-exception-procedure - _%exn99143%_) - (let ((__tmp100799 + _%exn98737%_) + (error '"not an instance" + 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%exn99143%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'wrong-number-of-arguments-exception? - __tmp100799)))))) + (cons _%exn98737%_ '()))))))) (define wrong-number-of-values-exception? - (lambda (_%exn99139%_) + (lambda (_%exn98733%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99139%_)) - (let ((_%e99141%_ + (class-instance? RuntimeException::t _%exn98733%_)) + (let ((_%e98735%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99139%_ 'exception)))) - (macro-wrong-number-of-values-exception? _%e99141%_)) - (macro-wrong-number-of-values-exception? _%exn99139%_)))) + (unchecked-slot-ref _%exn98733%_ 'exception)))) + (macro-wrong-number-of-values-exception? _%e98735%_)) + (macro-wrong-number-of-values-exception? _%exn98733%_)))) (define wrong-number-of-values-exception-code - (lambda (_%exn99135%_) + (lambda (_%exn98729%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99135%_)) - (let ((_%e99137%_ + (class-instance? RuntimeException::t _%exn98729%_)) + (let ((_%e98731%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99135%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e99137%_) - (macro-wrong-number-of-values-exception-code _%e99137%_) - (let ((__tmp100800 - (cons 'wrong-number-of-values-exception-code - (cons _%e99137%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'wrong-number-of-values-exception? - __tmp100800)))) - (if (macro-wrong-number-of-values-exception? _%exn99135%_) - (macro-wrong-number-of-values-exception-code _%exn99135%_) - (let ((__tmp100801 - (cons 'wrong-number-of-values-exception-code - (cons _%exn99135%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98729%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e98731%_) + (macro-wrong-number-of-values-exception-code _%e98731%_) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp100801)))))) + (cons 'wrong-number-of-values-exception-code + (cons _%e98731%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn98729%_) + (macro-wrong-number-of-values-exception-code _%exn98729%_) + (error '"not an instance" + 'wrong-number-of-values-exception? + (cons 'wrong-number-of-values-exception-code + (cons _%exn98729%_ '()))))))) (define wrong-number-of-values-exception-rte - (lambda (_%exn99131%_) + (lambda (_%exn98725%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99131%_)) - (let ((_%e99133%_ + (class-instance? RuntimeException::t _%exn98725%_)) + (let ((_%e98727%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99131%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e99133%_) - (macro-wrong-number-of-values-exception-rte _%e99133%_) - (let ((__tmp100802 - (cons 'wrong-number-of-values-exception-rte - (cons _%e99133%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'wrong-number-of-values-exception? - __tmp100802)))) - (if (macro-wrong-number-of-values-exception? _%exn99131%_) - (macro-wrong-number-of-values-exception-rte _%exn99131%_) - (let ((__tmp100803 - (cons 'wrong-number-of-values-exception-rte - (cons _%exn99131%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98725%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e98727%_) + (macro-wrong-number-of-values-exception-rte _%e98727%_) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp100803)))))) + (cons 'wrong-number-of-values-exception-rte + (cons _%e98727%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn98725%_) + (macro-wrong-number-of-values-exception-rte _%exn98725%_) + (error '"not an instance" + 'wrong-number-of-values-exception? + (cons 'wrong-number-of-values-exception-rte + (cons _%exn98725%_ '()))))))) (define wrong-number-of-values-exception-vals - (lambda (_%exn99125%_) + (lambda (_%exn98719%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99125%_)) - (let ((_%e99128%_ + (class-instance? RuntimeException::t _%exn98719%_)) + (let ((_%e98722%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99125%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e99128%_) - (macro-wrong-number-of-values-exception-vals _%e99128%_) - (let ((__tmp100804 - (cons 'wrong-number-of-values-exception-vals - (cons _%e99128%_ '())))) - (declare (not safe)) - (error '"not an instance" - 'wrong-number-of-values-exception? - __tmp100804)))) - (if (macro-wrong-number-of-values-exception? _%exn99125%_) - (macro-wrong-number-of-values-exception-vals _%exn99125%_) - (let ((__tmp100805 - (cons 'wrong-number-of-values-exception-vals - (cons _%exn99125%_ '())))) - (declare (not safe)) + (unchecked-slot-ref _%exn98719%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e98722%_) + (macro-wrong-number-of-values-exception-vals _%e98722%_) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp100805)))))) + (cons 'wrong-number-of-values-exception-vals + (cons _%e98722%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn98719%_) + (macro-wrong-number-of-values-exception-vals _%exn98719%_) + (error '"not an instance" + 'wrong-number-of-values-exception? + (cons 'wrong-number-of-values-exception-vals + (cons _%exn98719%_ '()))))))) (define wrong-processor-c-return-exception? - (lambda (_%exn99119%_) + (lambda (_%exn98713%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn99119%_)) - (let ((_%e99122%_ + (class-instance? RuntimeException::t _%exn98713%_)) + (let ((_%e98716%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn99119%_ 'exception)))) - (macro-wrong-processor-c-return-exception? _%e99122%_)) - (macro-wrong-processor-c-return-exception? _%exn99119%_)))))) + (unchecked-slot-ref _%exn98713%_ 'exception)))) + (macro-wrong-processor-c-return-exception? _%e98716%_)) + (macro-wrong-processor-c-return-exception? _%exn98713%_)))))) diff --git a/src/bootstrap/gerbil/runtime/error~1.scm b/src/bootstrap/gerbil/runtime/error~1.scm index fe20de3b8..aaabd08e8 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]#_g100807_| + (define |[1]#_g100202_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g100809_| + (define |[1]#_g100204_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g100811_| + (define |[1]#_g100206_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g100813_| + (define |[1]#_g100208_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g100815_| + (define |[1]#_g100210_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g100817_| + (define |[1]#_g100212_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g100819_| + (define |[1]#_g100214_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g100821_| + (define |[1]#_g100216_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100823_| + (define |[1]#_g100218_| (##structure gx#syntax-quote::t '&StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g100825_| + (define |[1]#_g100220_| (##structure gx#syntax-quote::t '&StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100827_| + (define |[1]#_g100222_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g100828_| + (define |[1]#_g100223_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g100830_| + (define |[1]#_g100225_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g100832_| + (define |[1]#_g100227_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g100834_| + (define |[1]#_g100229_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g100836_| + (define |[1]#_g100231_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g100837_| + (define |[1]#_g100232_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g100838_| + (define |[1]#_g100233_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g100839_| + (define |[1]#_g100234_| (##structure gx#syntax-quote::t 'Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g100841_| + (define |[1]#_g100236_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100842_| + (define |[1]#_g100237_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100843_| + (define |[1]#_g100238_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100844_| + (define |[1]#_g100239_| (##structure gx#syntax-quote::t 'Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100846_| + (define |[1]#_g100241_| (##structure gx#syntax-quote::t '&Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g100847_| + (define |[1]#_g100242_| (##structure gx#syntax-quote::t '&Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g100848_| + (define |[1]#_g100243_| (##structure gx#syntax-quote::t '&Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g100849_| + (define |[1]#_g100244_| (##structure gx#syntax-quote::t '&Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g100851_| + (define |[1]#_g100246_| (##structure gx#syntax-quote::t '&Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100852_| + (define |[1]#_g100247_| (##structure gx#syntax-quote::t '&Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100853_| + (define |[1]#_g100248_| (##structure gx#syntax-quote::t '&Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100854_| + (define |[1]#_g100249_| (##structure gx#syntax-quote::t '&Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100856_| + (define |[1]#_g100251_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g100858_| + (define |[1]#_g100253_| (##structure gx#syntax-quote::t 'ContractViolation::t #f (gx#current-expander-context) '())) - (define |[1]#_g100860_| + (define |[1]#_g100255_| (##structure gx#syntax-quote::t 'make-ContractViolation #f (gx#current-expander-context) '())) - (define |[1]#_g100862_| + (define |[1]#_g100257_| (##structure gx#syntax-quote::t 'ContractViolation? #f (gx#current-expander-context) '())) - (define |[1]#_g100864_| + (define |[1]#_g100259_| (##structure gx#syntax-quote::t 'ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g100865_| + (define |[1]#_g100260_| (##structure gx#syntax-quote::t 'ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g100866_| + (define |[1]#_g100261_| (##structure gx#syntax-quote::t 'ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g100867_| + (define |[1]#_g100262_| (##structure gx#syntax-quote::t 'ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g100869_| + (define |[1]#_g100264_| (##structure gx#syntax-quote::t 'ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100870_| + (define |[1]#_g100265_| (##structure gx#syntax-quote::t 'ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100871_| + (define |[1]#_g100266_| (##structure gx#syntax-quote::t 'ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100872_| + (define |[1]#_g100267_| (##structure gx#syntax-quote::t 'ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100874_| + (define |[1]#_g100269_| (##structure gx#syntax-quote::t '&ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g100875_| + (define |[1]#_g100270_| (##structure gx#syntax-quote::t '&ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g100876_| + (define |[1]#_g100271_| (##structure gx#syntax-quote::t '&ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g100877_| + (define |[1]#_g100272_| (##structure gx#syntax-quote::t '&ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g100879_| + (define |[1]#_g100274_| (##structure gx#syntax-quote::t '&ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100880_| + (define |[1]#_g100275_| (##structure gx#syntax-quote::t '&ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100881_| + (define |[1]#_g100276_| (##structure gx#syntax-quote::t '&ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100882_| + (define |[1]#_g100277_| (##structure gx#syntax-quote::t '&ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100885_| + (define |[1]#_g100280_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g100887_| + (define |[1]#_g100282_| (##structure gx#syntax-quote::t 'make-RuntimeException #f (gx#current-expander-context) '())) - (define |[1]#_g100889_| + (define |[1]#_g100284_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g100891_| + (define |[1]#_g100286_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g100892_| + (define |[1]#_g100287_| (##structure gx#syntax-quote::t 'RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g100894_| + (define |[1]#_g100289_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100895_| + (define |[1]#_g100290_| (##structure gx#syntax-quote::t 'RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100897_| + (define |[1]#_g100292_| (##structure gx#syntax-quote::t '&RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g100898_| + (define |[1]#_g100293_| (##structure gx#syntax-quote::t '&RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g100900_| + (define |[1]#_g100295_| (##structure gx#syntax-quote::t '&RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g100901_| + (define |[1]#_g100296_| (##structure gx#syntax-quote::t '&RuntimeException-continuation-set! @@ -436,7 +436,7 @@ '())) (begin (define |[:0:]#Exception| - (let ((__obj100579 + (let ((__obj100173 (let () (declare (not safe)) (##structure @@ -465,68 +465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj100579 + __obj100173 'gerbil/runtime/error#Exception::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100579 'Exception '2 '#f '#f)) + (##unchecked-structure-set! __obj100173 'Exception '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100579 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj100173 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100579 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj100173 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100579 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj100173 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100579 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj100173 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100579 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj100173 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100579 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj100173 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100579 '#f '11 '#f '#f)) - (let ((__tmp100806 |[1]#_g100807_|)) + (##unchecked-structure-set! __obj100173 '#f '11 '#f '#f)) + (let ((__tmp100201 |[1]#_g100202_|)) (declare (not safe)) - (##unchecked-structure-set! __obj100579 __tmp100806 '12 '#f '#f)) - (let ((__tmp100808 |[1]#_g100809_|)) + (##unchecked-structure-set! __obj100173 __tmp100201 '12 '#f '#f)) + (let ((__tmp100203 |[1]#_g100204_|)) (declare (not safe)) - (##unchecked-structure-set! __obj100579 __tmp100808 '13 '#f '#f)) - (let ((__tmp100810 |[1]#_g100811_|)) + (##unchecked-structure-set! __obj100173 __tmp100203 '13 '#f '#f)) + (let ((__tmp100205 |[1]#_g100206_|)) (declare (not safe)) - (##unchecked-structure-set! __obj100579 __tmp100810 '14 '#f '#f)) + (##unchecked-structure-set! __obj100173 __tmp100205 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100579 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj100173 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100579 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj100173 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100579 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj100173 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100579 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj100173 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100579 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj100173 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100579 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj100173 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100579 '() '20 '#f '#f)) - __obj100579)) + (##unchecked-structure-set! __obj100173 '() '20 '#f '#f)) + __obj100173)) (define |[:0:]#StackTrace| - (let ((__obj100580 + (let ((__obj100174 (let () (declare (not safe)) (##structure @@ -555,68 +555,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj100580 + __obj100174 'gerbil/runtime/error#StackTrace::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100580 'StackTrace '2 '#f '#f)) + (##unchecked-structure-set! __obj100174 'StackTrace '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100580 '(continuation) '4 '#f '#f)) + (##unchecked-structure-set! __obj100174 '(continuation) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100580 '(continuation) '6 '#f '#f)) + (##unchecked-structure-set! __obj100174 '(continuation) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100580 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj100174 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100580 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj100174 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100580 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj100174 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100580 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj100174 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100580 '#f '11 '#f '#f)) - (let ((__tmp100812 |[1]#_g100813_|)) + (##unchecked-structure-set! __obj100174 '#f '11 '#f '#f)) + (let ((__tmp100207 |[1]#_g100208_|)) (declare (not safe)) - (##unchecked-structure-set! __obj100580 __tmp100812 '12 '#f '#f)) - (let ((__tmp100814 |[1]#_g100815_|)) + (##unchecked-structure-set! __obj100174 __tmp100207 '12 '#f '#f)) + (let ((__tmp100209 |[1]#_g100210_|)) (declare (not safe)) - (##unchecked-structure-set! __obj100580 __tmp100814 '13 '#f '#f)) - (let ((__tmp100816 |[1]#_g100817_|)) + (##unchecked-structure-set! __obj100174 __tmp100209 '13 '#f '#f)) + (let ((__tmp100211 |[1]#_g100212_|)) (declare (not safe)) - (##unchecked-structure-set! __obj100580 __tmp100816 '14 '#f '#f)) - (let ((__tmp100818 (cons (cons 'continuation |[1]#_g100819_|) '()))) + (##unchecked-structure-set! __obj100174 __tmp100211 '14 '#f '#f)) + (let ((__tmp100213 (cons (cons 'continuation |[1]#_g100214_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj100580 __tmp100818 '15 '#f '#f)) - (let ((__tmp100820 (cons (cons 'continuation |[1]#_g100821_|) '()))) + (##unchecked-structure-set! __obj100174 __tmp100213 '15 '#f '#f)) + (let ((__tmp100215 (cons (cons 'continuation |[1]#_g100216_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj100580 __tmp100820 '16 '#f '#f)) - (let ((__tmp100822 (cons (cons 'continuation |[1]#_g100823_|) '()))) + (##unchecked-structure-set! __obj100174 __tmp100215 '16 '#f '#f)) + (let ((__tmp100217 (cons (cons 'continuation |[1]#_g100218_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj100580 __tmp100822 '17 '#f '#f)) - (let ((__tmp100824 (cons (cons 'continuation |[1]#_g100825_|) '()))) + (##unchecked-structure-set! __obj100174 __tmp100217 '17 '#f '#f)) + (let ((__tmp100219 (cons (cons 'continuation |[1]#_g100220_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj100580 __tmp100824 '18 '#f '#f)) + (##unchecked-structure-set! __obj100174 __tmp100219 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100580 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj100174 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100580 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj100174 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100580 '() '20 '#f '#f)) - __obj100580)) + (##unchecked-structure-set! __obj100174 '() '20 '#f '#f)) + __obj100174)) (define |[:0:]#Error| - (let ((__obj100581 + (let ((__obj100175 (let () (declare (not safe)) (##structure @@ -645,18 +645,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj100581 + __obj100175 'gerbil/runtime/error#Error::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100581 'Error '2 '#f '#f)) + (##unchecked-structure-set! __obj100175 'Error '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj100581 + __obj100175 '(message irritants where) '4 '#f @@ -664,79 +664,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj100581 + __obj100175 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp100826 (cons |[1]#_g100827_| (cons |[1]#_g100828_| '())))) + (let ((__tmp100221 (cons |[1]#_g100222_| (cons |[1]#_g100223_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj100581 __tmp100826 '3 '#f '#f)) + (##unchecked-structure-set! __obj100175 __tmp100221 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100581 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj100175 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100581 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj100175 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100581 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj100175 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100581 ':init! '11 '#f '#f)) - (let ((__tmp100829 |[1]#_g100830_|)) + (##unchecked-structure-set! __obj100175 ':init! '11 '#f '#f)) + (let ((__tmp100224 |[1]#_g100225_|)) (declare (not safe)) - (##unchecked-structure-set! __obj100581 __tmp100829 '12 '#f '#f)) - (let ((__tmp100831 |[1]#_g100832_|)) + (##unchecked-structure-set! __obj100175 __tmp100224 '12 '#f '#f)) + (let ((__tmp100226 |[1]#_g100227_|)) (declare (not safe)) - (##unchecked-structure-set! __obj100581 __tmp100831 '13 '#f '#f)) - (let ((__tmp100833 |[1]#_g100834_|)) + (##unchecked-structure-set! __obj100175 __tmp100226 '13 '#f '#f)) + (let ((__tmp100228 |[1]#_g100229_|)) (declare (not safe)) - (##unchecked-structure-set! __obj100581 __tmp100833 '14 '#f '#f)) - (let ((__tmp100835 - (cons (cons 'message |[1]#_g100836_|) - (cons (cons 'irritants |[1]#_g100837_|) - (cons (cons 'where |[1]#_g100838_|) - (cons (cons 'continuation |[1]#_g100839_|) + (##unchecked-structure-set! __obj100175 __tmp100228 '14 '#f '#f)) + (let ((__tmp100230 + (cons (cons 'message |[1]#_g100231_|) + (cons (cons 'irritants |[1]#_g100232_|) + (cons (cons 'where |[1]#_g100233_|) + (cons (cons 'continuation |[1]#_g100234_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj100581 __tmp100835 '15 '#f '#f)) - (let ((__tmp100840 - (cons (cons 'message |[1]#_g100841_|) - (cons (cons 'irritants |[1]#_g100842_|) - (cons (cons 'where |[1]#_g100843_|) - (cons (cons 'continuation |[1]#_g100844_|) + (##unchecked-structure-set! __obj100175 __tmp100230 '15 '#f '#f)) + (let ((__tmp100235 + (cons (cons 'message |[1]#_g100236_|) + (cons (cons 'irritants |[1]#_g100237_|) + (cons (cons 'where |[1]#_g100238_|) + (cons (cons 'continuation |[1]#_g100239_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj100581 __tmp100840 '16 '#f '#f)) - (let ((__tmp100845 - (cons (cons 'message |[1]#_g100846_|) - (cons (cons 'irritants |[1]#_g100847_|) - (cons (cons 'where |[1]#_g100848_|) - (cons (cons 'continuation |[1]#_g100849_|) + (##unchecked-structure-set! __obj100175 __tmp100235 '16 '#f '#f)) + (let ((__tmp100240 + (cons (cons 'message |[1]#_g100241_|) + (cons (cons 'irritants |[1]#_g100242_|) + (cons (cons 'where |[1]#_g100243_|) + (cons (cons 'continuation |[1]#_g100244_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj100581 __tmp100845 '17 '#f '#f)) - (let ((__tmp100850 - (cons (cons 'message |[1]#_g100851_|) - (cons (cons 'irritants |[1]#_g100852_|) - (cons (cons 'where |[1]#_g100853_|) - (cons (cons 'continuation |[1]#_g100854_|) + (##unchecked-structure-set! __obj100175 __tmp100240 '17 '#f '#f)) + (let ((__tmp100245 + (cons (cons 'message |[1]#_g100246_|) + (cons (cons 'irritants |[1]#_g100247_|) + (cons (cons 'where |[1]#_g100248_|) + (cons (cons 'continuation |[1]#_g100249_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj100581 __tmp100850 '18 '#f '#f)) + (##unchecked-structure-set! __obj100175 __tmp100245 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100581 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj100175 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100581 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj100175 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100581 '() '20 '#f '#f)) - __obj100581)) + (##unchecked-structure-set! __obj100175 '() '20 '#f '#f)) + __obj100175)) (define |[:0:]#ContractViolation| - (let ((__obj100582 + (let ((__obj100176 (let () (declare (not safe)) (##structure @@ -765,7 +765,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj100582 + __obj100176 'gerbil/runtime/error#ContractViolation::t '1 '#f @@ -773,90 +773,90 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj100582 + __obj100176 'ContractViolation '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100582 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj100176 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj100582 + __obj100176 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp100855 (cons |[1]#_g100856_| '()))) + (let ((__tmp100250 (cons |[1]#_g100251_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj100582 __tmp100855 '3 '#f '#f)) + (##unchecked-structure-set! __obj100176 __tmp100250 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100582 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj100176 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100582 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj100176 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100582 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj100176 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100582 '#f '11 '#f '#f)) - (let ((__tmp100857 |[1]#_g100858_|)) + (##unchecked-structure-set! __obj100176 '#f '11 '#f '#f)) + (let ((__tmp100252 |[1]#_g100253_|)) (declare (not safe)) - (##unchecked-structure-set! __obj100582 __tmp100857 '12 '#f '#f)) - (let ((__tmp100859 |[1]#_g100860_|)) + (##unchecked-structure-set! __obj100176 __tmp100252 '12 '#f '#f)) + (let ((__tmp100254 |[1]#_g100255_|)) (declare (not safe)) - (##unchecked-structure-set! __obj100582 __tmp100859 '13 '#f '#f)) - (let ((__tmp100861 |[1]#_g100862_|)) + (##unchecked-structure-set! __obj100176 __tmp100254 '13 '#f '#f)) + (let ((__tmp100256 |[1]#_g100257_|)) (declare (not safe)) - (##unchecked-structure-set! __obj100582 __tmp100861 '14 '#f '#f)) - (let ((__tmp100863 - (cons (cons 'message |[1]#_g100864_|) - (cons (cons 'irritants |[1]#_g100865_|) - (cons (cons 'where |[1]#_g100866_|) - (cons (cons 'continuation |[1]#_g100867_|) + (##unchecked-structure-set! __obj100176 __tmp100256 '14 '#f '#f)) + (let ((__tmp100258 + (cons (cons 'message |[1]#_g100259_|) + (cons (cons 'irritants |[1]#_g100260_|) + (cons (cons 'where |[1]#_g100261_|) + (cons (cons 'continuation |[1]#_g100262_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj100582 __tmp100863 '15 '#f '#f)) - (let ((__tmp100868 - (cons (cons 'message |[1]#_g100869_|) - (cons (cons 'irritants |[1]#_g100870_|) - (cons (cons 'where |[1]#_g100871_|) - (cons (cons 'continuation |[1]#_g100872_|) + (##unchecked-structure-set! __obj100176 __tmp100258 '15 '#f '#f)) + (let ((__tmp100263 + (cons (cons 'message |[1]#_g100264_|) + (cons (cons 'irritants |[1]#_g100265_|) + (cons (cons 'where |[1]#_g100266_|) + (cons (cons 'continuation |[1]#_g100267_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj100582 __tmp100868 '16 '#f '#f)) - (let ((__tmp100873 - (cons (cons 'message |[1]#_g100874_|) - (cons (cons 'irritants |[1]#_g100875_|) - (cons (cons 'where |[1]#_g100876_|) - (cons (cons 'continuation |[1]#_g100877_|) + (##unchecked-structure-set! __obj100176 __tmp100263 '16 '#f '#f)) + (let ((__tmp100268 + (cons (cons 'message |[1]#_g100269_|) + (cons (cons 'irritants |[1]#_g100270_|) + (cons (cons 'where |[1]#_g100271_|) + (cons (cons 'continuation |[1]#_g100272_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj100582 __tmp100873 '17 '#f '#f)) - (let ((__tmp100878 - (cons (cons 'message |[1]#_g100879_|) - (cons (cons 'irritants |[1]#_g100880_|) - (cons (cons 'where |[1]#_g100881_|) - (cons (cons 'continuation |[1]#_g100882_|) + (##unchecked-structure-set! __obj100176 __tmp100268 '17 '#f '#f)) + (let ((__tmp100273 + (cons (cons 'message |[1]#_g100274_|) + (cons (cons 'irritants |[1]#_g100275_|) + (cons (cons 'where |[1]#_g100276_|) + (cons (cons 'continuation |[1]#_g100277_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj100582 __tmp100878 '18 '#f '#f)) + (##unchecked-structure-set! __obj100176 __tmp100273 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100582 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj100176 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100582 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj100176 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100582 '() '20 '#f '#f)) - __obj100582)) + (##unchecked-structure-set! __obj100176 '() '20 '#f '#f)) + __obj100176)) (define |[:0:]#RuntimeException| - (let ((__obj100583 + (let ((__obj100177 (let () (declare (not safe)) (##structure @@ -885,7 +885,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj100583 + __obj100177 'gerbil/runtime/error#RuntimeException::t '1 '#f @@ -893,543 +893,549 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj100583 + __obj100177 'RuntimeException '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100583 '(exception) '4 '#f '#f)) + (##unchecked-structure-set! __obj100177 '(exception) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj100583 + __obj100177 '(continuation exception) '6 '#f '#f)) - (let ((__tmp100883 (cons |[1]#_g100827_| (cons |[1]#_g100828_| '())))) + (let ((__tmp100278 (cons |[1]#_g100222_| (cons |[1]#_g100223_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj100583 __tmp100883 '3 '#f '#f)) + (##unchecked-structure-set! __obj100177 __tmp100278 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100583 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj100177 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100583 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj100177 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100583 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj100177 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100583 '#f '11 '#f '#f)) - (let ((__tmp100884 |[1]#_g100885_|)) + (##unchecked-structure-set! __obj100177 '#f '11 '#f '#f)) + (let ((__tmp100279 |[1]#_g100280_|)) (declare (not safe)) - (##unchecked-structure-set! __obj100583 __tmp100884 '12 '#f '#f)) - (let ((__tmp100886 |[1]#_g100887_|)) + (##unchecked-structure-set! __obj100177 __tmp100279 '12 '#f '#f)) + (let ((__tmp100281 |[1]#_g100282_|)) (declare (not safe)) - (##unchecked-structure-set! __obj100583 __tmp100886 '13 '#f '#f)) - (let ((__tmp100888 |[1]#_g100889_|)) + (##unchecked-structure-set! __obj100177 __tmp100281 '13 '#f '#f)) + (let ((__tmp100283 |[1]#_g100284_|)) (declare (not safe)) - (##unchecked-structure-set! __obj100583 __tmp100888 '14 '#f '#f)) - (let ((__tmp100890 - (cons (cons 'exception |[1]#_g100891_|) - (cons (cons 'continuation |[1]#_g100892_|) '())))) + (##unchecked-structure-set! __obj100177 __tmp100283 '14 '#f '#f)) + (let ((__tmp100285 + (cons (cons 'exception |[1]#_g100286_|) + (cons (cons 'continuation |[1]#_g100287_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj100583 __tmp100890 '15 '#f '#f)) - (let ((__tmp100893 - (cons (cons 'exception |[1]#_g100894_|) - (cons (cons 'continuation |[1]#_g100895_|) '())))) + (##unchecked-structure-set! __obj100177 __tmp100285 '15 '#f '#f)) + (let ((__tmp100288 + (cons (cons 'exception |[1]#_g100289_|) + (cons (cons 'continuation |[1]#_g100290_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj100583 __tmp100893 '16 '#f '#f)) - (let ((__tmp100896 - (cons (cons 'exception |[1]#_g100897_|) - (cons (cons 'continuation |[1]#_g100898_|) '())))) + (##unchecked-structure-set! __obj100177 __tmp100288 '16 '#f '#f)) + (let ((__tmp100291 + (cons (cons 'exception |[1]#_g100292_|) + (cons (cons 'continuation |[1]#_g100293_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj100583 __tmp100896 '17 '#f '#f)) - (let ((__tmp100899 - (cons (cons 'exception |[1]#_g100900_|) - (cons (cons 'continuation |[1]#_g100901_|) '())))) + (##unchecked-structure-set! __obj100177 __tmp100291 '17 '#f '#f)) + (let ((__tmp100294 + (cons (cons 'exception |[1]#_g100295_|) + (cons (cons 'continuation |[1]#_g100296_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj100583 __tmp100899 '18 '#f '#f)) + (##unchecked-structure-set! __obj100177 __tmp100294 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100583 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj100177 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100583 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj100177 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj100583 '() '20 '#f '#f)) - __obj100583)) + (##unchecked-structure-set! __obj100177 '() '20 '#f '#f)) + __obj100177)) (define |[:0:]#defruntime-exception| - (lambda (_%stx98747%_) - (let* ((_%g9875098777%_ - (lambda (_%g9875198773%_) + (lambda (_%stx98341%_) + (let* ((_%g9834498371%_ + (lambda (_%g9834598367%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9875198773%_))) - (_%g9874999013%_ - (lambda (_%g9875198781%_) - (if (gx#stx-pair? _%g9875198781%_) - (let ((_%e9875698784%_ (gx#syntax-e _%g9875198781%_))) - (let ((_%hd9875598788%_ + _%g9834598367%_))) + (_%g9834398607%_ + (lambda (_%g9834598375%_) + (if (gx#stx-pair? _%g9834598375%_) + (let ((_%e9835098378%_ (gx#syntax-e _%g9834598375%_))) + (let ((_%hd9834998382%_ (let () (declare (not safe)) - (##car _%e9875698784%_))) - (_%tl9875498791%_ + (##car _%e9835098378%_))) + (_%tl9834898385%_ (let () (declare (not safe)) - (##cdr _%e9875698784%_)))) - (if (gx#stx-pair? _%tl9875498791%_) - (let ((_%e9875998794%_ - (gx#syntax-e _%tl9875498791%_))) - (let ((_%hd9875898798%_ + (##cdr _%e9835098378%_)))) + (if (gx#stx-pair? _%tl9834898385%_) + (let ((_%e9835398388%_ + (gx#syntax-e _%tl9834898385%_))) + (let ((_%hd9835298392%_ (let () (declare (not safe)) - (##car _%e9875998794%_))) - (_%tl9875798801%_ + (##car _%e9835398388%_))) + (_%tl9835198395%_ (let () (declare (not safe)) - (##cdr _%e9875998794%_)))) - (if (gx#stx-pair? _%hd9875898798%_) - (let ((_%e9876298804%_ - (gx#syntax-e _%hd9875898798%_))) - (let ((_%hd9876198808%_ + (##cdr _%e9835398388%_)))) + (if (gx#stx-pair? _%hd9835298392%_) + (let ((_%e9835698398%_ + (gx#syntax-e _%hd9835298392%_))) + (let ((_%hd9835598402%_ (let () (declare (not safe)) - (##car _%e9876298804%_))) - (_%tl9876098811%_ + (##car _%e9835698398%_))) + (_%tl9835498405%_ (let () (declare (not safe)) - (##cdr _%e9876298804%_)))) + (##cdr _%e9835698398%_)))) (if (gx#stx-pair/null? - _%tl9876098811%_) - (let ((_g100902_ + _%tl9835498405%_) + (let ((_g100297_ (gx#syntax-split-splice - _%tl9876098811%_ + _%tl9835498405%_ '0))) (begin - (let ((_g100903_ + (let ((_g100298_ (let () (declare (not safe)) (if (##values? - _g100902_) + _g100297_) (##vector-length - _g100902_) + _g100297_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g100903_ 2))) - (error "Context expects 2 values" _g100903_))) + (##fx= _g100298_ 2))) + (error "Context expects 2 values" _g100298_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target9876398814%_ + (let ((_%target9835798408%_ (let () (declare (not safe)) (##vector-ref - _g100902_ + _g100297_ 0))) - (_%tl9876598817%_ + (_%tl9835998411%_ (let () (declare (not safe)) (##vector-ref - _g100902_ + _g100297_ 1)))) (if (gx#stx-null? - _%tl9876598817%_) - (letrec ((_%loop9876698820%_ + _%tl9835998411%_) + (letrec ((_%loop9836098414%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd9876498824%_ _%getf9877098827%_) - (if (gx#stx-pair? _%hd9876498824%_) - (let ((_%e9876798830%_ - (gx#syntax-e _%hd9876498824%_))) - (let ((_%lp-hd9876898834%_ + (lambda (_%hd9835898418%_ _%getf9836498421%_) + (if (gx#stx-pair? _%hd9835898418%_) + (let ((_%e9836198424%_ + (gx#syntax-e _%hd9835898418%_))) + (let ((_%lp-hd9836298428%_ (let () (declare (not safe)) - (##car _%e9876798830%_))) - (_%lp-tl9876998837%_ + (##car _%e9836198424%_))) + (_%lp-tl9836398431%_ (let () (declare (not safe)) - (##cdr _%e9876798830%_)))) - (_%loop9876698820%_ - _%lp-tl9876998837%_ - (cons _%lp-hd9876898834%_ - _%getf9877098827%_)))) - (let ((_%getf9877198840%_ - (reverse _%getf9877098827%_))) - (if (gx#stx-null? _%tl9875798801%_) - ((lambda (_%L98844%_ _%L98846%_) - (let* ((_%g9886798891%_ - (lambda (_%g9886898887%_) + (##cdr _%e9836198424%_)))) + (_%loop9836098414%_ + _%lp-tl9836398431%_ + (cons _%lp-hd9836298428%_ + _%getf9836498421%_)))) + (let ((_%getf9836598434%_ + (reverse _%getf9836498421%_))) + (if (gx#stx-null? _%tl9835198395%_) + ((lambda (_%L98438%_ _%L98440%_) + (let* ((_%g9846198485%_ + (lambda (_%g9846298481%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9886898887%_))) - (_%g9886698998%_ - (lambda (_%g9886898895%_) + _%g9846298481%_))) + (_%g9846098592%_ + (lambda (_%g9846298489%_) (if (gx#stx-pair? - _%g9886898895%_) - (let ((_%e9887398898%_ + _%g9846298489%_) + (let ((_%e9846798492%_ (gx#syntax-e - _%g9886898895%_))) - (let ((_%hd9887298902%_ + _%g9846298489%_))) + (let ((_%hd9846698496%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e9887398898%_))) - (_%tl9887198905%_ - (let () (declare (not safe)) (##cdr _%e9887398898%_)))) - (if (gx#stx-pair? _%tl9887198905%_) - (let ((_%e9887698908%_ (gx#syntax-e _%tl9887198905%_))) - (let ((_%hd9887598912%_ + (##car _%e9846798492%_))) + (_%tl9846598499%_ + (let () (declare (not safe)) (##cdr _%e9846798492%_)))) + (if (gx#stx-pair? _%tl9846598499%_) + (let ((_%e9847098502%_ (gx#syntax-e _%tl9846598499%_))) + (let ((_%hd9846998506%_ (let () (declare (not safe)) - (##car _%e9887698908%_))) - (_%tl9887498915%_ + (##car _%e9847098502%_))) + (_%tl9846898509%_ (let () (declare (not safe)) - (##cdr _%e9887698908%_)))) - (if (gx#stx-pair/null? _%hd9887598912%_) - (let ((_g100904_ + (##cdr _%e9847098502%_)))) + (if (gx#stx-pair/null? _%hd9846998506%_) + (let ((_g100299_ (gx#syntax-split-splice - _%hd9887598912%_ + _%hd9846998506%_ '0))) (begin - (let ((_g100905_ + (let ((_g100300_ (let () (declare (not safe)) - (if (##values? _g100904_) - (##vector-length _g100904_) + (if (##values? _g100299_) + (##vector-length _g100299_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g100905_ 2))) + (##fx= _g100300_ 2))) (error "Context expects 2 values" - _g100905_))) - (let ((_%target9887798918%_ + _g100300_))) + (let ((_%target9847198512%_ (let () (declare (not safe)) - (##vector-ref _g100904_ 0))) - (_%tl9887998921%_ + (##vector-ref _g100299_ 0))) + (_%tl9847398515%_ (let () (declare (not safe)) - (##vector-ref _g100904_ 1)))) - (if (gx#stx-null? _%tl9887998921%_) - (letrec ((_%loop9888098924%_ - (lambda (_%hd9887898928%_ - _%macro-getf9888498931%_) + (##vector-ref _g100299_ 1)))) + (if (gx#stx-null? _%tl9847398515%_) + (letrec ((_%loop9847498518%_ + (lambda (_%hd9847298522%_ + _%macro-getf9847898525%_) (if (gx#stx-pair? - _%hd9887898928%_) - (let ((_%e9888198934%_ + _%hd9847298522%_) + (let ((_%e9847598528%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd9887898928%_))) - (let ((_%lp-hd9888298938%_ + _%hd9847298522%_))) + (let ((_%lp-hd9847698532%_ (let () (declare (not safe)) - (##car _%e9888198934%_))) - (_%lp-tl9888398941%_ + (##car _%e9847598528%_))) + (_%lp-tl9847798535%_ (let () (declare (not safe)) - (##cdr _%e9888198934%_)))) - (_%loop9888098924%_ - _%lp-tl9888398941%_ - (cons _%lp-hd9888298938%_ _%macro-getf9888498931%_)))) - (let ((_%macro-getf9888598944%_ - (reverse _%macro-getf9888498931%_))) - (if (gx#stx-null? _%tl9887498915%_) - ((lambda (_%L98948%_ _%L98950%_) - (let () - (cons (gx#datum->syntax '#f 'begin) - (cons (cons (gx#datum->syntax '#f 'extern) - (cons _%L98950%_ - (let ((__tmp100906 - (lambda (_%g9897598978%_ + (##cdr _%e9847598528%_)))) + (_%loop9847498518%_ + _%lp-tl9847798535%_ + (cons _%lp-hd9847698532%_ _%macro-getf9847898525%_)))) + (let ((_%macro-getf9847998538%_ + (reverse _%macro-getf9847898525%_))) + (if (gx#stx-null? _%tl9846898509%_) + ((lambda (_%L98542%_ _%L98544%_) + (cons (gx#datum->syntax '#f 'begin) + (cons (cons (gx#datum->syntax '#f 'extern) + (cons _%L98544%_ + (let ((__tmp100301 + (lambda (_%g9856998572%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9897698981%_) - (cons _%g9897598978%_ _%g9897698981%_)))) - (declare (not safe)) - (__foldr1 __tmp100906 '() _%L98948%_)))) + _%g9857098575%_) + (cons _%g9856998572%_ _%g9857098575%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L98846%_ + (declare (not safe)) + (__foldr1 + __tmp100301 + '() + _%L98542%_)))) + (cons (cons (gx#datum->syntax '#f 'def) + (cons (cons _%L98440%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'exn) + '())) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + 'RuntimeException?) + (cons (gx#datum->syntax '#f 'exn) '())) + (cons (cons (gx#datum->syntax '#f 'let) + (cons (cons (gx#datum->syntax + '#f + 'e) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '&RuntimeException-exception) + (cons (gx#datum->syntax '#f 'exn) '())) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons _%L98544%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'exn) + 'e) '())) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - 'RuntimeException?) - (cons (gx#datum->syntax '#f 'exn) - '())) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (gx#datum->syntax - '#f - 'e) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '&RuntimeException-exception) - (cons (gx#datum->syntax '#f 'exn) '())) - '())) - (cons (cons _%L98950%_ (cons (gx#datum->syntax '#f 'e) '())) - '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L98950%_ - (cons (gx#datum->syntax - '#f - 'exn) - '())) - '())))) - '()))) + (cons (cons _%L98544%_ + (cons (gx#datum->syntax + '#f + 'exn) + '())) + '())))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (begin - (gx#syntax-check-splice-targets - _%L98844%_ - _%L98948%_ - _%L98844%_ - _%L98948%_ - _%L98844%_) - (let ((__tmp100907 - (lambda (_%g9896998984%_ - _%g9897098987%_ - _%g9897198989%_ - _%g9897298991%_ - _%g9897398993%_ - _%g9897498995%_) - (cons (cons (gx#datum->syntax + (begin + (gx#syntax-check-splice-targets + _%L98438%_ + _%L98542%_ + _%L98438%_ + _%L98542%_ + _%L98438%_) + (let ((__tmp100302 + (lambda (_%g9856398578%_ + _%g9856498581%_ + _%g9856598583%_ + _%g9856698585%_ + _%g9856798587%_ + _%g9856898589%_) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'def) - (cons (cons _%g9896998984%_ - (cons (gx#datum->syntax '#f 'exn) - '())) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax + '#f + 'def) + (cons (cons _%g9856398578%_ + (cons (gx#datum->syntax '#f 'exn) '())) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + 'RuntimeException?) + (cons (gx#datum->syntax + '#f + 'exn) + '())) + (cons (cons (gx#datum->syntax + '#f + 'let) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'e) + (cons (cons (gx#datum->syntax + '#f + '&RuntimeException-exception) + (cons (gx#datum->syntax + '#f + 'exn) + '())) + '())) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons _%L98544%_ + (cons (gx#datum->syntax '#f - 'RuntimeException?) + 'e) + '())) + (cons (cons _%g9856498581%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'exn) + 'e) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'let) - (cons (cons (gx#datum->syntax '#f 'e) - (cons (cons (gx#datum->syntax - '#f - '&RuntimeException-exception) - (cons (gx#datum->syntax - '#f - 'exn) - '())) - '())) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L98950%_ - (cons (gx#datum->syntax + 'error) + (cons '"not an instance" + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L98440%_ '())) + (cons (cons (gx#datum->syntax '#f '@list) + (cons (cons (gx#datum->syntax '#f - 'e) - '())) - (cons (cons _%g9897098987%_ - (cons (gx#datum->syntax + 'quote) + (cons _%g9856398578%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'e) '())) - (cons (cons (gx#datum->syntax '#f 'error) - (cons '"not an instance" - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L98846%_ '())) - (cons (cons (gx#datum->syntax - '#f - '@list) - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%g9896998984%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (gx#datum->syntax '#f 'e) '()))) + (cons (gx#datum->syntax '#f 'e) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - '())))) + '())))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L98950%_ - (cons (gx#datum->syntax '#f 'exn) - '())) - (cons (cons _%g9897098987%_ - (cons (gx#datum->syntax - '#f - 'exn) - '())) - (cons (cons (gx#datum->syntax - '#f - 'error) - (cons '"not an instance" - (cons (cons (gx#datum->syntax + '()))) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons _%L98544%_ + (cons (gx#datum->syntax '#f 'exn) + '())) + (cons (cons _%g9856498581%_ + (cons (gx#datum->syntax + '#f + 'exn) + '())) + (cons (cons (gx#datum->syntax + '#f + 'error) + (cons '"not an instance" + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L98846%_ '())) - (cons (cons (gx#datum->syntax '#f '@list) - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%g9896998984%_ '())) - (cons (gx#datum->syntax '#f 'exn) - '()))) - '())))) + '#f + 'quote) + (cons _%L98440%_ '())) + (cons (cons (gx#datum->syntax '#f '@list) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%g9856398578%_ '())) + (cons (gx#datum->syntax '#f 'exn) + '()))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - '())))) + '())))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - _%g9897498995%_)))) + '()))) + _%g9856898589%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr* - __tmp100907 - '() - _%L98844%_ - _%L98948%_ - _%L98844%_ - _%L98948%_ - _%L98844%_)))))))) - _%macro-getf9888598944%_ - _%hd9887298902%_) - (_%g9886798891%_ _%g9886898895%_))))))) + (declare (not safe)) + (__foldr* + __tmp100302 + '() + _%L98438%_ + _%L98542%_ + _%L98438%_ + _%L98542%_ + _%L98438%_))))))) + _%macro-getf9847998538%_ + _%hd9846698496%_) + (_%g9846198485%_ _%g9846298489%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9888098924%_ - _%target9887798918%_ + (_%loop9847498518%_ + _%target9847198512%_ '())) - (_%g9886798891%_ _%g9886898895%_))))) - (_%g9886798891%_ _%g9886898895%_)))) - (_%g9886798891%_ _%g9886898895%_)))) - (_%g9886798891%_ _%g9886898895%_))))) + (_%g9846198485%_ _%g9846298489%_))))) + (_%g9846198485%_ _%g9846298489%_)))) + (_%g9846198485%_ _%g9846298489%_)))) + (_%g9846198485%_ _%g9846298489%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9886698998%_ + (_%g9846098592%_ (list (gx#stx-identifier - _%L98846%_ + _%L98440%_ '"macro-" - _%L98846%_) - (map (lambda (_%f99002%_) + _%L98440%_) + (map (lambda (_%f98596%_) (gx#stx-identifier - _%f99002%_ + _%f98596%_ '"macro-" - _%f99002%_)) - (let ((__tmp100908 - (lambda (_%g9900499007%_ + _%f98596%_)) + (let ((__tmp100303 + (lambda (_%g9859898601%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9900599010%_) - (cons _%g9900499007%_ _%g9900599010%_)))) + _%g9859998604%_) + (cons _%g9859898601%_ _%g9859998604%_)))) (declare (not safe)) - (__foldr1 __tmp100908 '() _%L98844%_))))))) + (__foldr1 __tmp100303 '() _%L98438%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%getf9877198840%_ - _%hd9876198808%_) - (_%g9875098777%_ _%g9875198781%_))))))) - (_%loop9876698820%_ _%target9876398814%_ '())) - (_%g9875098777%_ _%g9875198781%_))))) + _%getf9836598434%_ + _%hd9835598402%_) + (_%g9834498371%_ _%g9834598375%_))))))) + (_%loop9836098414%_ _%target9835798408%_ '())) + (_%g9834498371%_ _%g9834598375%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9875098777%_ - _%g9875198781%_)))) - (_%g9875098777%_ _%g9875198781%_)))) - (_%g9875098777%_ _%g9875198781%_)))) - (_%g9875098777%_ _%g9875198781%_))))) - (_%g9874999013%_ _%stx98747%_)))) + (_%g9834498371%_ + _%g9834598375%_)))) + (_%g9834498371%_ _%g9834598375%_)))) + (_%g9834498371%_ _%g9834598375%_)))) + (_%g9834498371%_ _%g9834598375%_))))) + (_%g9834398607%_ _%stx98341%_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_%$stx99019%_) - (let* ((_%g9902399043%_ - (lambda (_%g9902499039%_) + (lambda (_%$stx98613%_) + (let* ((_%g9861798637%_ + (lambda (_%g9861898633%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9902499039%_))) - (_%g9902299114%_ - (lambda (_%g9902499047%_) - (if (gx#stx-pair? _%g9902499047%_) - (let ((_%e9902899050%_ (gx#syntax-e _%g9902499047%_))) - (let ((_%hd9902799054%_ + _%g9861898633%_))) + (_%g9861698708%_ + (lambda (_%g9861898641%_) + (if (gx#stx-pair? _%g9861898641%_) + (let ((_%e9862298644%_ (gx#syntax-e _%g9861898641%_))) + (let ((_%hd9862198648%_ (let () (declare (not safe)) - (##car _%e9902899050%_))) - (_%tl9902699057%_ + (##car _%e9862298644%_))) + (_%tl9862098651%_ (let () (declare (not safe)) - (##cdr _%e9902899050%_)))) - (if (gx#stx-pair/null? _%tl9902699057%_) - (let ((_g100909_ + (##cdr _%e9862298644%_)))) + (if (gx#stx-pair/null? _%tl9862098651%_) + (let ((_g100304_ (gx#syntax-split-splice - _%tl9902699057%_ + _%tl9862098651%_ '0))) (begin - (let ((_g100910_ + (let ((_g100305_ (let () (declare (not safe)) - (if (##values? _g100909_) - (##vector-length _g100909_) + (if (##values? _g100304_) + (##vector-length _g100304_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g100910_ 2))) + (##fx= _g100305_ 2))) (error "Context expects 2 values" - _g100910_))) - (let ((_%target9902999060%_ + _g100305_))) + (let ((_%target9862398654%_ (let () (declare (not safe)) - (##vector-ref _g100909_ 0))) - (_%tl9903199063%_ + (##vector-ref _g100304_ 0))) + (_%tl9862598657%_ (let () (declare (not safe)) - (##vector-ref _g100909_ 1)))) - (if (gx#stx-null? _%tl9903199063%_) - (letrec ((_%loop9903299066%_ - (lambda (_%hd9903099070%_ - _%defexn9903699073%_) + (##vector-ref _g100304_ 1)))) + (if (gx#stx-null? _%tl9862598657%_) + (letrec ((_%loop9862698660%_ + (lambda (_%hd9862498664%_ + _%defexn9863098667%_) (if (gx#stx-pair? - _%hd9903099070%_) - (let ((_%e9903399076%_ + _%hd9862498664%_) + (let ((_%e9862798670%_ (gx#syntax-e - _%hd9903099070%_))) - (let ((_%lp-hd9903499080%_ + _%hd9862498664%_))) + (let ((_%lp-hd9862898674%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e9903399076%_))) - (_%lp-tl9903599083%_ + (let () (declare (not safe)) (##car _%e9862798670%_))) + (_%lp-tl9862998677%_ (let () (declare (not safe)) - (##cdr _%e9903399076%_)))) - (_%loop9903299066%_ - _%lp-tl9903599083%_ - (cons _%lp-hd9903499080%_ _%defexn9903699073%_)))) - (let ((_%defexn9903799086%_ (reverse _%defexn9903699073%_))) - ((lambda (_%L99090%_) + (##cdr _%e9862798670%_)))) + (_%loop9862698660%_ + _%lp-tl9862998677%_ + (cons _%lp-hd9862898674%_ _%defexn9863098667%_)))) + (let ((_%defexn9863198680%_ (reverse _%defexn9863098667%_))) + ((lambda (_%L98684%_) (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp100911 - (lambda (_%g9910599108%_ _%g9910699111%_) + (let ((__tmp100306 + (lambda (_%g9869998702%_ _%g9870098705%_) (cons (cons (gx#datum->syntax '#f 'defruntime-exception) - (cons _%g9910599108%_ '())) - _%g9910699111%_)))) + (cons _%g9869998702%_ '())) + _%g9870098705%_)))) (declare (not safe)) - (__foldr1 __tmp100911 '() _%L99090%_)))) - _%defexn9903799086%_)))))) + (__foldr1 __tmp100306 '() _%L98684%_)))) + _%defexn9863198680%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9903299066%_ - _%target9902999060%_ + (_%loop9862698660%_ + _%target9862398654%_ '())) - (_%g9902399043%_ _%g9902499047%_))))) - (_%g9902399043%_ _%g9902499047%_)))) - (_%g9902399043%_ _%g9902499047%_))))) - (_%g9902299114%_ _%$stx99019%_)))))) + (_%g9861798637%_ _%g9861898641%_))))) + (_%g9861798637%_ _%g9861898641%_)))) + (_%g9861798637%_ _%g9861898641%_))))) + (_%g9861698708%_ _%$stx98613%_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval.ssxi.ss b/src/bootstrap/gerbil/runtime/eval.ssxi.ss index 393b4261e..bb52b40ab 100644 --- a/src/bootstrap/gerbil/runtime/eval.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/eval.ssxi.ss @@ -122,6 +122,7 @@ package: gerbil/runtime (declare-type &__core-special-form-id-set! (@mutator __core-special-form::t id #f)) + (declare-type __core (optimizer-resolve-class '(typedecl __core) 't::t)) (declare-type __current-expander (optimizer-resolve-class '(typedecl __current-expander) 'procedure::t)) @@ -136,63 +137,594 @@ package: gerbil/runtime (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type __core-bound-id?__% (@lambda 2 #f)) - (declare-type __core-bound-id?__0 (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __core-bound-id?__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __core-bound-id?__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) (declare-type __core-bound-id? - (@case-lambda (1 __core-bound-id?__0) (2 __core-bound-id?__%))) + (@case-lambda + (1 + __core-bound-id?__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval)) + (2 + __core-bound-id?__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval)))) (declare-type __core-bind-syntax!__% (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) (declare-type __core-bind-syntax!__0 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) (declare-type __core-bind-syntax! (@case-lambda (2 __core-bind-syntax!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval)) (3 __core-bind-syntax!__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) - (declare-type __SRC__% (@lambda 2 #f)) - (declare-type __SRC__0 (@lambda 1 #f)) - (declare-type __SRC (@case-lambda (1 __SRC__0) (2 __SRC__%))) - (declare-type __locat (@lambda 1 #f)) - (declare-type __check-values (@lambda 2 #f)) - (declare-type __compile (@lambda 1 #f)) - (declare-type __compile-error__% (@lambda 2 #f)) - (declare-type __compile-error__0 (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval)))) + (declare-type + __SRC__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __SRC__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __SRC + (@case-lambda + (1 + __SRC__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval)) + (2 + __SRC__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval)))) + (declare-type + __locat + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __check-values + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-error__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-error__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) (declare-type __compile-error - (@case-lambda (1 __compile-error__0) (2 __compile-error__%))) - (declare-type __compile-ignore% (@lambda 1 #f)) - (declare-type __compile-begin% (@lambda 1 #f)) - (declare-type __compile-begin-foreign% (@lambda 1 #f)) - (declare-type __compile-import% (@lambda 1 #f)) - (declare-type __compile-begin-annotation% (@lambda 1 #f)) - (declare-type __compile-define-values% (@lambda 1 #f)) - (declare-type __compile-head-id (@lambda 1 #f)) - (declare-type __compile-lambda-head (@lambda 1 #f)) - (declare-type __compile-lambda% (@lambda 1 #f)) - (declare-type __compile-case-lambda% (@lambda 1 #f)) - (declare-type __compile-let-form (@lambda 3 #f)) - (declare-type __compile-let-values% (@lambda 1 #f)) - (declare-type __compile-letrec-values% (@lambda 1 #f)) - (declare-type __compile-letrec*-values% (@lambda 1 #f)) - (declare-type __compile-call% (@lambda 1 #f)) - (declare-type __compile-ref% (@lambda 1 #f)) - (declare-type __compile-setq% (@lambda 1 #f)) - (declare-type __compile-if% (@lambda 1 #f)) - (declare-type __compile-quote% (@lambda 1 #f)) - (declare-type __compile-quote-syntax% (@lambda 1 #f))) + (@case-lambda + (1 + __compile-error__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval)) + (2 + __compile-error__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval)))) + (declare-type + __compile-ignore% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-begin% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-begin-foreign% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-import% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-begin-annotation% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-define-values% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-head-id + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-lambda-head + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-lambda% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-case-lambda% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-let-form + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-let-values% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-letrec-values% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-letrec*-values% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-call% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-ref% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-setq% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-if% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-quote% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval))) + (declare-type + __compile-quote-syntax% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/eval)))) diff --git a/src/bootstrap/gerbil/runtime/eval~0.scm b/src/bootstrap/gerbil/runtime/eval~0.scm index 4447efa86..d34650d20 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 1712533289) + (define gerbil/runtime/eval::timestamp 1712573430) (begin (define __syntax::t - (let ((__tmp111726 (list)) (__tmp111725 (cons (cons 'struct: '#t) '()))) + (let ((__tmp111064 (list)) (__tmp111063 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__syntax::t '__syntax - __tmp111726 + __tmp111064 '(e id) - __tmp111725 + __tmp111063 '#f))) (define __syntax? (let () (declare (not safe)) (__make-class-predicate __syntax::t))) (define make-__syntax - (lambda _%$args111530%_ - (apply make-instance __syntax::t _%$args111530%_))) + (lambda _%$args110868%_ + (apply make-instance __syntax::t _%$args110868%_))) (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 ((__tmp111728 (list __syntax::t)) - (__tmp111727 (cons (cons 'struct: '#t) '()))) + (let ((__tmp111066 (list __syntax::t)) + (__tmp111065 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-form::t '__core-form - __tmp111728 + __tmp111066 '() - __tmp111727 + __tmp111065 '#f))) (define __core-form? (let () (declare (not safe)) (__make-class-predicate __core-form::t))) (define make-__core-form - (lambda _%$args111527%_ - (apply make-instance __core-form::t _%$args111527%_))) + (lambda _%$args110865%_ + (apply make-instance __core-form::t _%$args110865%_))) (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 ((__tmp111730 (list __core-form::t)) - (__tmp111729 (cons (cons 'struct: '#t) '()))) + (let ((__tmp111068 (list __core-form::t)) + (__tmp111067 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-expression::t '__core-expression - __tmp111730 + __tmp111068 '() - __tmp111729 + __tmp111067 '#f))) (define __core-expression? (let () (declare (not safe)) (__make-class-predicate __core-expression::t))) (define make-__core-expression - (lambda _%$args111524%_ - (apply make-instance __core-expression::t _%$args111524%_))) + (lambda _%$args110862%_ + (apply make-instance __core-expression::t _%$args110862%_))) (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 ((__tmp111732 (list __core-form::t)) - (__tmp111731 (cons (cons 'struct: '#t) '()))) + (let ((__tmp111070 (list __core-form::t)) + (__tmp111069 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-special-form::t '__core-special-form - __tmp111732 + __tmp111070 '() - __tmp111731 + __tmp111069 '#f))) (define __core-special-form? (let () (declare (not safe)) (__make-class-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _%$args111521%_ - (apply make-instance __core-special-form::t _%$args111521%_))) + (lambda _%$args110859%_ + (apply make-instance __core-special-form::t _%$args110859%_))) (define __core-special-form-e (let () (declare (not safe)) @@ -200,466 +200,407 @@ (define __current-compiler (make-parameter '#f)) (define __current-path (make-parameter '())) (define __core-resolve - (lambda (_%id111519%_) - (let ((__tmp111733 - (let () (declare (not safe)) (__AST-e _%id111519%_)))) + (lambda (_%id110857%_) + (let ((__tmp111071 + (let () (declare (not safe)) (__AST-e _%id110857%_)))) (declare (not safe)) - (hash-get __core __tmp111733)))) + (hash-get __core __tmp111071)))) (define __core-bound-id?__% - (lambda (_%id111502%_ _%is?111503%_) - (let ((_%$e111505%_ - (let () (declare (not safe)) (__core-resolve _%id111502%_)))) - (if _%$e111505%_ (_%is?111503%_ _%$e111505%_) (let () '#f))))) + (lambda (_%id110840%_ _%is?110841%_) + (let ((_%$e110843%_ (__core-resolve _%id110840%_))) + (if _%$e110843%_ (_%is?110841%_ _%$e110843%_) '#f)))) (define __core-bound-id?__0 - (lambda (_%id111512%_) - (let ((_%is?111514%_ true)) - (declare (not safe)) - (__core-bound-id?__% _%id111512%_ _%is?111514%_)))) + (lambda (_%id110850%_) + (let ((_%is?110852%_ true)) + (__core-bound-id?__% _%id110850%_ _%is?110852%_)))) (define __core-bound-id? - (lambda _g111735_ - (let ((_g111734_ (let () (declare (not safe)) (##length _g111735_)))) - (cond ((let () (declare (not safe)) (##fx= _g111734_ 1)) - (apply (lambda (_%id111512%_) - (let () - (declare (not safe)) - (__core-bound-id?__0 _%id111512%_))) - _g111735_)) - ((let () (declare (not safe)) (##fx= _g111734_ 2)) - (apply (lambda (_%id111516%_ _%is?111517%_) - (let () - (declare (not safe)) - (__core-bound-id?__% _%id111516%_ _%is?111517%_))) - _g111735_)) + (lambda _g111073_ + (let ((_g111072_ (let () (declare (not safe)) (##length _g111073_)))) + (cond ((let () (declare (not safe)) (##fx= _g111072_ 1)) + (apply __core-bound-id?__0 _g111073_)) + ((let () (declare (not safe)) (##fx= _g111072_ 2)) + (apply __core-bound-id?__% _g111073_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g111735_)))))) + _g111073_)))))) (define __core-bind-syntax!__% - (lambda (_%id111485%_ _%e111486%_ _%make111487%_) - (let ((__tmp111736 + (lambda (_%id110823%_ _%e110824%_ _%make110825%_) + (let ((__tmp111074 (if (let () (declare (not safe)) (##structure-instance-of? - _%e111486%_ + _%e110824%_ 'gerbil/runtime/eval#__syntax::t)) - _%e111486%_ - (_%make111487%_ _%e111486%_ _%id111485%_)))) + _%e110824%_ + (_%make110825%_ _%e110824%_ _%id110823%_)))) (declare (not safe)) - (hash-put! __core _%id111485%_ __tmp111736)))) + (hash-put! __core _%id110823%_ __tmp111074)))) (define __core-bind-syntax!__0 - (lambda (_%id111492%_ _%e111493%_) - (let ((_%make111495%_ make-__syntax)) - (declare (not safe)) - (__core-bind-syntax!__% _%id111492%_ _%e111493%_ _%make111495%_)))) + (lambda (_%id110830%_ _%e110831%_) + (let ((_%make110833%_ make-__syntax)) + (__core-bind-syntax!__% _%id110830%_ _%e110831%_ _%make110833%_)))) (define __core-bind-syntax! - (lambda _g111738_ - (let ((_g111737_ (let () (declare (not safe)) (##length _g111738_)))) - (cond ((let () (declare (not safe)) (##fx= _g111737_ 2)) - (apply (lambda (_%id111492%_ _%e111493%_) - (let () - (declare (not safe)) - (__core-bind-syntax!__0 _%id111492%_ _%e111493%_))) - _g111738_)) - ((let () (declare (not safe)) (##fx= _g111737_ 3)) - (apply (lambda (_%id111497%_ _%e111498%_ _%make111499%_) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - _%id111497%_ - _%e111498%_ - _%make111499%_))) - _g111738_)) + (lambda _g111076_ + (let ((_g111075_ (let () (declare (not safe)) (##length _g111076_)))) + (cond ((let () (declare (not safe)) (##fx= _g111075_ 2)) + (apply __core-bind-syntax!__0 _g111076_)) + ((let () (declare (not safe)) (##fx= _g111075_ 3)) + (apply __core-bind-syntax!__% _g111076_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g111738_)))))) + _g111076_)))))) (define __SRC__% - (lambda (_%e111465%_ _%src-stx111466%_) - (if (or (let () (declare (not safe)) (pair? _%e111465%_)) - (let () (declare (not safe)) (symbol? _%e111465%_))) - (let ((__tmp111739 + (lambda (_%e110803%_ _%src-stx110804%_) + (if (or (pair? _%e110803%_) (symbol? _%e110803%_)) + (let ((__tmp111077 (if (let () (declare (not safe)) (##structure-instance-of? - _%src-stx111466%_ + _%src-stx110804%_ 'gerbil#AST::t)) - (let ((__tmp111740 - (let () - (declare (not safe)) - (__AST-source _%src-stx111466%_)))) - (declare (not safe)) - (__locat __tmp111740)) + (__locat (let () + (declare (not safe)) + (__AST-source _%src-stx110804%_))) '#f))) (declare (not safe)) - (##make-source _%e111465%_ __tmp111739)) + (##make-source _%e110803%_ __tmp111077)) (if (let () (declare (not safe)) - (##structure-instance-of? _%e111465%_ 'gerbil#AST::t)) - (let ((__tmp111743 + (##structure-instance-of? _%e110803%_ 'gerbil#AST::t)) + (let ((__tmp111079 (let () (declare (not safe)) - (##unchecked-structure-ref _%e111465%_ '1 '#f '#f))) - (__tmp111741 - (let ((__tmp111742 - (let () - (declare (not safe)) - (__AST-source _%e111465%_)))) - (declare (not safe)) - (__locat __tmp111742)))) + (##unchecked-structure-ref _%e110803%_ '1 '#f '#f))) + (__tmp111078 + (__locat (let () + (declare (not safe)) + (__AST-source _%e110803%_))))) (declare (not safe)) - (##make-source __tmp111743 __tmp111741)) + (##make-source __tmp111079 __tmp111078)) (let () (declare (not safe)) - (error '"BUG! Cannot sourcify object" _%e111465%_)))))) + (error '"BUG! Cannot sourcify object" _%e110803%_)))))) (define __SRC__0 - (lambda (_%e111477%_) - (let ((_%src-stx111479%_ '#f)) - (declare (not safe)) - (__SRC__% _%e111477%_ _%src-stx111479%_)))) + (lambda (_%e110815%_) + (let ((_%src-stx110817%_ '#f)) + (__SRC__% _%e110815%_ _%src-stx110817%_)))) (define __SRC - (lambda _g111745_ - (let ((_g111744_ (let () (declare (not safe)) (##length _g111745_)))) - (cond ((let () (declare (not safe)) (##fx= _g111744_ 1)) - (apply (lambda (_%e111477%_) - (let () (declare (not safe)) (__SRC__0 _%e111477%_))) - _g111745_)) - ((let () (declare (not safe)) (##fx= _g111744_ 2)) - (apply (lambda (_%e111481%_ _%src-stx111482%_) - (let () - (declare (not safe)) - (__SRC__% _%e111481%_ _%src-stx111482%_))) - _g111745_)) + (lambda _g111081_ + (let ((_g111080_ (let () (declare (not safe)) (##length _g111081_)))) + (cond ((let () (declare (not safe)) (##fx= _g111080_ 1)) + (apply __SRC__0 _g111081_)) + ((let () (declare (not safe)) (##fx= _g111080_ 2)) + (apply __SRC__% _g111081_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g111745_)))))) + _g111081_)))))) (define __locat - (lambda (_%loc111462%_) - (if (let () (declare (not safe)) (##locat? _%loc111462%_)) - _%loc111462%_ + (lambda (_%loc110800%_) + (if (let () (declare (not safe)) (##locat? _%loc110800%_)) + _%loc110800%_ '#f))) (define __check-values - (lambda (_%obj111457%_ _%k111458%_) - (let ((_%count111460%_ - (if (let () (declare (not safe)) (##values? _%obj111457%_)) + (lambda (_%obj110795%_ _%k110796%_) + (let ((_%count110798%_ + (if (let () (declare (not safe)) (##values? _%obj110795%_)) (let () (declare (not safe)) - (##vector-length _%obj111457%_)) + (##vector-length _%obj110795%_)) '1))) - (if (fx= _%count111460%_ _%k111458%_) + (if (fx= _%count110798%_ _%k110796%_) '#!void - (let ((__tmp111747 - (if (fx< _%count111460%_ _%k111458%_) + (let ((__tmp111083 + (if (fx< _%count110798%_ _%k110796%_) '"Too few values for context" '"Too many values for context")) - (__tmp111746 + (__tmp111082 (if (let () (declare (not safe)) - (##values? _%obj111457%_)) + (##values? _%obj110795%_)) (let () (declare (not safe)) - (##vector->list _%obj111457%_)) - _%obj111457%_))) + (##vector->list _%obj110795%_)) + _%obj110795%_))) (declare (not safe)) - (error __tmp111747 __tmp111746 _%k111458%_)))))) + (error __tmp111083 __tmp111082 _%k110796%_)))))) (define __compile - (lambda (_%stx111426%_) - (let* ((_%$e111428%_ _%stx111426%_) - (_%$E111430111436%_ + (lambda (_%stx110764%_) + (let* ((_%$e110766%_ _%stx110764%_) + (_%$E110768110774%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111428%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111428%_)) - (let* ((_%$tgt111431111439%_ - (let () (declare (not safe)) (__AST-e _%$e111428%_))) - (_%$hd111432111442%_ - (let () - (declare (not safe)) - (##car _%$tgt111431111439%_))) - (_%$tl111433111445%_ + _%$e110766%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e110766%_)) + (let* ((_%$tgt110769110777%_ + (let () (declare (not safe)) (__AST-e _%$e110766%_))) + (_%$hd110770110780%_ (let () (declare (not safe)) - (##cdr _%$tgt111431111439%_)))) - (let* ((_%form111449%_ _%$hd111432111442%_) - (_%$e111451%_ - (let () - (declare (not safe)) - (__core-resolve _%form111449%_)))) - (if _%$e111451%_ - ((lambda (_%bind111454%_) - ((##structure-ref _%bind111454%_ '1 __syntax::t '#f) - _%stx111426%_)) - _%$e111451%_) + (##car _%$tgt110769110777%_))) + (_%$tl110771110783%_ (let () (declare (not safe)) - (__raise-syntax-error - '#f - '"Bad syntax; cannot resolve form" - _%stx111426%_ - _%form111449%_))))) - (let () (declare (not safe)) (_%$E111430111436%_)))))) + (##cdr _%$tgt110769110777%_))) + (_%form110787%_ _%$hd110770110780%_) + (_%$e110789%_ (__core-resolve _%form110787%_))) + (if _%$e110789%_ + ((lambda (_%bind110792%_) + ((##structure-ref _%bind110792%_ '1 __syntax::t '#f) + _%stx110764%_)) + _%$e110789%_) + (let () + (declare (not safe)) + (__raise-syntax-error + '#f + '"Bad syntax; cannot resolve form" + _%stx110764%_ + _%form110787%_)))) + (_%$E110768110774%_))))) (define __compile-error__% - (lambda (_%stx111413%_ _%detail111414%_) + (lambda (_%stx110751%_ _%detail110752%_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _%stx111413%_ - _%detail111414%_)))) + _%stx110751%_ + _%detail110752%_)))) (define __compile-error__0 - (lambda (_%stx111419%_) - (let ((_%detail111421%_ '#f)) - (declare (not safe)) - (__compile-error__% _%stx111419%_ _%detail111421%_)))) + (lambda (_%stx110757%_) + (let ((_%detail110759%_ '#f)) + (__compile-error__% _%stx110757%_ _%detail110759%_)))) (define __compile-error - (lambda _g111749_ - (let ((_g111748_ (let () (declare (not safe)) (##length _g111749_)))) - (cond ((let () (declare (not safe)) (##fx= _g111748_ 1)) - (apply (lambda (_%stx111419%_) - (let () - (declare (not safe)) - (__compile-error__0 _%stx111419%_))) - _g111749_)) - ((let () (declare (not safe)) (##fx= _g111748_ 2)) - (apply (lambda (_%stx111423%_ _%detail111424%_) - (let () - (declare (not safe)) - (__compile-error__% - _%stx111423%_ - _%detail111424%_))) - _g111749_)) + (lambda _g111085_ + (let ((_g111084_ (let () (declare (not safe)) (##length _g111085_)))) + (cond ((let () (declare (not safe)) (##fx= _g111084_ 1)) + (apply __compile-error__0 _g111085_)) + ((let () (declare (not safe)) (##fx= _g111084_ 2)) + (apply __compile-error__% _g111085_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g111749_)))))) + _g111085_)))))) (define __compile-ignore% - (lambda (_%stx111410%_) - (let () (declare (not safe)) (__SRC__% ''#!void _%stx111410%_)))) + (lambda (_%stx110748%_) (__SRC__% ''#!void _%stx110748%_))) (define __compile-begin% - (lambda (_%stx111385%_) - (let* ((_%$e111387%_ _%stx111385%_) - (_%$E111389111395%_ + (lambda (_%stx110723%_) + (let* ((_%$e110725%_ _%stx110723%_) + (_%$E110727110733%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111387%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111387%_)) - (let* ((_%$tgt111390111398%_ - (let () (declare (not safe)) (__AST-e _%$e111387%_))) - (_%$hd111391111401%_ + _%$e110725%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e110725%_)) + (let* ((_%$tgt110728110736%_ + (let () (declare (not safe)) (__AST-e _%$e110725%_))) + (_%$hd110729110739%_ (let () (declare (not safe)) - (##car _%$tgt111390111398%_))) - (_%$tl111392111404%_ + (##car _%$tgt110728110736%_))) + (_%$tl110730110742%_ (let () (declare (not safe)) - (##cdr _%$tgt111390111398%_)))) - (let* ((_%body111408%_ _%$tl111392111404%_) - (__tmp111750 - (cons 'begin (map __compile _%body111408%_)))) - (declare (not safe)) - (__SRC__% __tmp111750 _%stx111385%_))) - (let () (declare (not safe)) (_%$E111389111395%_)))))) + (##cdr _%$tgt110728110736%_))) + (_%body110746%_ _%$tl110730110742%_)) + (__SRC__% + (cons 'begin (map __compile _%body110746%_)) + _%stx110723%_)) + (_%$E110727110733%_))))) (define __compile-begin-foreign% - (lambda (_%stx111360%_) - (let* ((_%$e111362%_ _%stx111360%_) - (_%$E111364111370%_ + (lambda (_%stx110698%_) + (let* ((_%$e110700%_ _%stx110698%_) + (_%$E110702110708%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111362%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111362%_)) - (let* ((_%$tgt111365111373%_ - (let () (declare (not safe)) (__AST-e _%$e111362%_))) - (_%$hd111366111376%_ + _%$e110700%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e110700%_)) + (let* ((_%$tgt110703110711%_ + (let () (declare (not safe)) (__AST-e _%$e110700%_))) + (_%$hd110704110714%_ (let () (declare (not safe)) - (##car _%$tgt111365111373%_))) - (_%$tl111367111379%_ + (##car _%$tgt110703110711%_))) + (_%$tl110705110717%_ (let () (declare (not safe)) - (##cdr _%$tgt111365111373%_)))) - (let* ((_%body111383%_ _%$tl111367111379%_) - (__tmp111751 - (cons 'begin - (let () - (declare (not safe)) - (__AST->datum _%body111383%_))))) - (declare (not safe)) - (__SRC__% __tmp111751 _%stx111360%_))) - (let () (declare (not safe)) (_%$E111364111370%_)))))) + (##cdr _%$tgt110703110711%_))) + (_%body110721%_ _%$tl110705110717%_)) + (__SRC__% + (cons 'begin + (let () + (declare (not safe)) + (__AST->datum _%body110721%_))) + _%stx110698%_)) + (_%$E110702110708%_))))) (define __compile-import% - (lambda (_%stx111335%_) - (let* ((_%$e111337%_ _%stx111335%_) - (_%$E111339111345%_ + (lambda (_%stx110673%_) + (let* ((_%$e110675%_ _%stx110673%_) + (_%$E110677110683%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111337%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111337%_)) - (let* ((_%$tgt111340111348%_ - (let () (declare (not safe)) (__AST-e _%$e111337%_))) - (_%$hd111341111351%_ + _%$e110675%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e110675%_)) + (let* ((_%$tgt110678110686%_ + (let () (declare (not safe)) (__AST-e _%$e110675%_))) + (_%$hd110679110689%_ (let () (declare (not safe)) - (##car _%$tgt111340111348%_))) - (_%$tl111342111354%_ + (##car _%$tgt110678110686%_))) + (_%$tl110680110692%_ (let () (declare (not safe)) - (##cdr _%$tgt111340111348%_)))) - (let* ((_%body111358%_ _%$tl111342111354%_) - (__tmp111752 - (cons '__eval-import - (cons (cons 'quote (cons _%body111358%_ '())) - '())))) - (declare (not safe)) - (__SRC__% __tmp111752 _%stx111335%_))) - (let () (declare (not safe)) (_%$E111339111345%_)))))) + (##cdr _%$tgt110678110686%_))) + (_%body110696%_ _%$tl110680110692%_)) + (__SRC__% + (cons '__eval-import + (cons (cons 'quote (cons _%body110696%_ '())) '())) + _%stx110673%_)) + (_%$E110677110683%_))))) (define __compile-begin-annotation% - (lambda (_%stx111282%_) - (let* ((_%$e111284%_ _%stx111282%_) - (_%$E111286111298%_ + (lambda (_%stx110620%_) + (let* ((_%$e110622%_ _%stx110620%_) + (_%$E110624110636%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111284%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111284%_)) - (let* ((_%$tgt111287111301%_ - (let () (declare (not safe)) (__AST-e _%$e111284%_))) - (_%$hd111288111304%_ + _%$e110622%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e110622%_)) + (let* ((_%$tgt110625110639%_ + (let () (declare (not safe)) (__AST-e _%$e110622%_))) + (_%$hd110626110642%_ (let () (declare (not safe)) - (##car _%$tgt111287111301%_))) - (_%$tl111289111307%_ + (##car _%$tgt110625110639%_))) + (_%$tl110627110645%_ (let () (declare (not safe)) - (##cdr _%$tgt111287111301%_)))) + (##cdr _%$tgt110625110639%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111289111307%_)) - (let* ((_%$tgt111290111311%_ + (__AST-pair? _%$tl110627110645%_)) + (let* ((_%$tgt110628110649%_ (let () (declare (not safe)) - (__AST-e _%$tl111289111307%_))) - (_%$hd111291111314%_ + (__AST-e _%$tl110627110645%_))) + (_%$hd110629110652%_ (let () (declare (not safe)) - (##car _%$tgt111290111311%_))) - (_%$tl111292111317%_ + (##car _%$tgt110628110649%_))) + (_%$tl110630110655%_ (let () (declare (not safe)) - (##cdr _%$tgt111290111311%_))) - (_%ann111321%_ _%$hd111291111314%_)) + (##cdr _%$tgt110628110649%_))) + (_%ann110659%_ _%$hd110629110652%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111292111317%_)) - (let* ((_%$tgt111293111323%_ + (__AST-pair? _%$tl110630110655%_)) + (let* ((_%$tgt110631110661%_ (let () (declare (not safe)) - (__AST-e _%$tl111292111317%_))) - (_%$hd111294111326%_ + (__AST-e _%$tl110630110655%_))) + (_%$hd110632110664%_ (let () (declare (not safe)) - (##car _%$tgt111293111323%_))) - (_%$tl111295111329%_ + (##car _%$tgt110631110661%_))) + (_%$tl110633110667%_ (let () (declare (not safe)) - (##cdr _%$tgt111293111323%_))) - (_%expr111333%_ _%$hd111294111326%_)) + (##cdr _%$tgt110631110661%_))) + (_%expr110671%_ _%$hd110632110664%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl111295111329%_)) + (__AST-e _%$tl110633110667%_)) '()) - (let () - (declare (not safe)) - (__compile _%expr111333%_)) - (let () - (declare (not safe)) - (_%$E111286111298%_)))) - (let () (declare (not safe)) (_%$E111286111298%_)))) - (let () (declare (not safe)) (_%$E111286111298%_)))) - (let () (declare (not safe)) (_%$E111286111298%_)))))) + (__compile _%expr110671%_) + (_%$E110624110636%_))) + (_%$E110624110636%_))) + (_%$E110624110636%_))) + (_%$E110624110636%_))))) (define __compile-define-values% - (lambda (_%stx111173%_) - (let* ((_%$e111175%_ _%stx111173%_) - (_%$E111177111189%_ + (lambda (_%stx110511%_) + (let* ((_%$e110513%_ _%stx110511%_) + (_%$E110515110527%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111175%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111175%_)) - (let* ((_%$tgt111178111192%_ - (let () (declare (not safe)) (__AST-e _%$e111175%_))) - (_%$hd111179111195%_ + _%$e110513%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e110513%_)) + (let* ((_%$tgt110516110530%_ + (let () (declare (not safe)) (__AST-e _%$e110513%_))) + (_%$hd110517110533%_ (let () (declare (not safe)) - (##car _%$tgt111178111192%_))) - (_%$tl111180111198%_ + (##car _%$tgt110516110530%_))) + (_%$tl110518110536%_ (let () (declare (not safe)) - (##cdr _%$tgt111178111192%_)))) + (##cdr _%$tgt110516110530%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111180111198%_)) - (let* ((_%$tgt111181111202%_ + (__AST-pair? _%$tl110518110536%_)) + (let* ((_%$tgt110519110540%_ (let () (declare (not safe)) - (__AST-e _%$tl111180111198%_))) - (_%$hd111182111205%_ + (__AST-e _%$tl110518110536%_))) + (_%$hd110520110543%_ (let () (declare (not safe)) - (##car _%$tgt111181111202%_))) - (_%$tl111183111208%_ + (##car _%$tgt110519110540%_))) + (_%$tl110521110546%_ (let () (declare (not safe)) - (##cdr _%$tgt111181111202%_))) - (_%hd111212%_ _%$hd111182111205%_)) + (##cdr _%$tgt110519110540%_))) + (_%hd110550%_ _%$hd110520110543%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111183111208%_)) - (let* ((_%$tgt111184111214%_ + (__AST-pair? _%$tl110521110546%_)) + (let* ((_%$tgt110522110552%_ (let () (declare (not safe)) - (__AST-e _%$tl111183111208%_))) - (_%$hd111185111217%_ + (__AST-e _%$tl110521110546%_))) + (_%$hd110523110555%_ (let () (declare (not safe)) - (##car _%$tgt111184111214%_))) - (_%$tl111186111220%_ + (##car _%$tgt110522110552%_))) + (_%$tl110524110558%_ (let () (declare (not safe)) - (##cdr _%$tgt111184111214%_))) - (_%expr111224%_ _%$hd111185111217%_)) + (##cdr _%$tgt110522110552%_))) + (_%expr110562%_ _%$hd110523110555%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl111186111220%_)) + (__AST-e _%$tl110524110558%_)) '()) - (let* ((_%$e111226%_ _%hd111212%_) - (_%$E111228111269%_ + (let* ((_%$e110564%_ _%hd110550%_) + (_%$E110566110607%_ (lambda () - (let ((_%$E111229111254%_ + (let ((_%$E110567110592%_ (lambda () - (let* ((_%$E111230111241%_ + (let* ((_%$E110568110579%_ (lambda () (let () (declare @@ -668,2760 +609,2275 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111226%_)))) - (_%ids111244%_ _%hd111212%_) - (_%len111246%_ (length _%ids111244%_)) - (_%tmp111248%_ - (let ((__tmp111753 - (let () (declare (not safe)) (##gensym)))) - (declare (not safe)) - (__SRC__0 __tmp111753))) - (__tmp111754 - (cons 'begin - (cons (let ((__tmp111755 - (cons 'define - (cons _%tmp111248%_ - (cons (let () - (declare (not safe)) - (__compile - _%expr111224%_)) - '()))))) - (declare (not safe)) - (__SRC__% __tmp111755 _%stx111173%_)) - (cons (let ((__tmp111756 - (cons '__check-values - (cons _%tmp111248%_ - (cons _%len111246%_ - '()))))) - (declare (not safe)) - (__SRC__% __tmp111756 _%stx111173%_)) - (let ((__tmp111757 - (let ((__tmp111759 - (lambda (_%id111251%_ - _%k111252%_) - (if (let () - (declare (not safe)) - (__AST-e _%id111251%_)) - (let ((__tmp111760 - (cons 'define + _%$e110564%_)))) + (_%ids110582%_ _%hd110550%_) + (_%len110584%_ (length _%ids110582%_)) + (_%tmp110586%_ + (__SRC__0 (let () (declare (not safe)) (##gensym))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__SRC__% + (cons 'begin + (cons (__SRC__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let () - (declare (not safe)) - (__SRC__0 _%id111251%_)) - (cons (cons '##vector-ref - (cons _%tmp111248%_ - (cons _%k111252%_ '()))) - '()))))) - (declare (not safe)) - (__SRC__% __tmp111760 _%stx111173%_)) - '#f))) + (cons 'define + (cons _%tmp110586%_ + (cons (__compile _%expr110562%_) '()))) + _%stx110511%_) + (cons (__SRC__% + (cons '__check-values + (cons _%tmp110586%_ + (cons _%len110584%_ '()))) + _%stx110511%_) + (let ((__tmp111086 + (let ((__tmp111088 + (lambda (_%id110589%_ + _%k110590%_) + (if (let () + (declare (not safe)) + (__AST-e _%id110589%_)) + (__SRC__% + (cons 'define + (cons (__SRC__0 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%id110589%_) + (cons (cons '##vector-ref + (cons _%tmp110586%_ + (cons _%k110590%_ '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp111758 - (let () - (declare (not safe)) - (##iota _%len111246%_)))) - (declare (not safe)) - (__filter-map2 - __tmp111759 - _%ids111244%_ - __tmp111758)))) - (declare (not safe)) - (__foldr1 cons '() __tmp111757))))))) + _%stx110511%_) + '#f))) + (__tmp111087 + (let () + (declare (not safe)) + (##iota _%len110584%_)))) + (declare (not safe)) + (__filter-map2 + __tmp111088 + _%ids110582%_ + __tmp111087)))) + (declare (not safe)) + (__foldr1 cons '() __tmp111086))))) + _%stx110511%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__SRC__% - __tmp111754 - _%stx111173%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e111226%_)) - (let* ((_%$tgt111231111257%_ + (__AST-pair? _%$e110564%_)) + (let* ((_%$tgt110569110595%_ (let () (declare (not safe)) - (__AST-e _%$e111226%_))) - (_%$hd111232111260%_ + (__AST-e _%$e110564%_))) + (_%$hd110570110598%_ (let () (declare (not safe)) - (##car _%$tgt111231111257%_))) - (_%$tl111233111263%_ + (##car _%$tgt110569110595%_))) + (_%$tl110571110601%_ (let () (declare (not safe)) - (##cdr _%$tgt111231111257%_))) - (_%id111267%_ - _%$hd111232111260%_)) + (##cdr _%$tgt110569110595%_))) + (_%id110605%_ + _%$hd110570110598%_)) (if (equal? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__AST-e _%$tl111233111263%_)) + (__AST-e _%$tl110571110601%_)) '()) - (let ((__tmp111761 - (cons 'define - (cons (let () - (declare (not safe)) - (__SRC__0 _%id111267%_)) - (cons (let () - (declare (not safe)) - (__compile _%expr111224%_)) - '()))))) - (declare (not safe)) - (__SRC__% __tmp111761 _%stx111173%_)) - (let () (declare (not safe)) (_%$E111229111254%_)))) + (__SRC__% + (cons 'define + (cons (__SRC__0 _%id110605%_) + (cons (__compile _%expr110562%_) '()))) + _%stx110511%_) + (_%$E110567110592%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%$E111229111254%_))))))) + (_%$E110567110592%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e111226%_)) - (let* ((_%$tgt111234111272%_ + (__AST-pair? _%$e110564%_)) + (let* ((_%$tgt110572110610%_ (let () (declare (not safe)) - (__AST-e _%$e111226%_))) - (_%$hd111235111275%_ + (__AST-e _%$e110564%_))) + (_%$hd110573110613%_ (let () (declare (not safe)) - (##car _%$tgt111234111272%_))) - (_%$tl111236111278%_ + (##car _%$tgt110572110610%_))) + (_%$tl110574110616%_ (let () (declare (not safe)) - (##cdr _%$tgt111234111272%_)))) + (##cdr _%$tgt110572110610%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd111235111275%_)) + (__AST-e _%$hd110573110613%_)) '#f) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl111236111278%_)) + (__AST-e _%$tl110574110616%_)) '()) - (let () - (declare (not safe)) - (__compile _%expr111224%_)) - (let () - (declare (not safe)) - (_%$E111228111269%_))) - (let () - (declare (not safe)) - (_%$E111228111269%_)))) - (let () - (declare (not safe)) - (_%$E111228111269%_)))) - (let () - (declare (not safe)) - (_%$E111177111189%_)))) - (let () (declare (not safe)) (_%$E111177111189%_)))) - (let () (declare (not safe)) (_%$E111177111189%_)))) - (let () (declare (not safe)) (_%$E111177111189%_)))))) + (__compile _%expr110562%_) + (_%$E110566110607%_)) + (_%$E110566110607%_))) + (_%$E110566110607%_))) + (_%$E110515110527%_))) + (_%$E110515110527%_))) + (_%$E110515110527%_))) + (_%$E110515110527%_))))) (define __compile-head-id - (lambda (_%e111171%_) - (let ((__tmp111762 - (if (let () (declare (not safe)) (__AST-e _%e111171%_)) - _%e111171%_ - (let () (declare (not safe)) (##gensym))))) - (declare (not safe)) - (__SRC__0 __tmp111762)))) + (lambda (_%e110509%_) + (__SRC__0 + (if (let () (declare (not safe)) (__AST-e _%e110509%_)) + _%e110509%_ + (let () (declare (not safe)) (##gensym)))))) (define __compile-lambda-head - (lambda (_%hd111128%_) - (let _%recur111130%_ ((_%rest111132%_ _%hd111128%_)) - (let* ((_%$e111134%_ _%rest111132%_) - (_%$E111136111154%_ + (lambda (_%hd110466%_) + (let _%recur110468%_ ((_%rest110470%_ _%hd110466%_)) + (let* ((_%$e110472%_ _%rest110470%_) + (_%$E110474110492%_ (lambda () - (let ((_%$E111137111151%_ + (let ((_%$E110475110489%_ (lambda () - (let* ((_%$E111138111146%_ + (let* ((_%$E110476110484%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111134%_)))) - (_%tail111149%_ _%$e111134%_)) - (declare (not safe)) - (__compile-head-id _%tail111149%_))))) + _%$e110472%_)))) + (_%tail110487%_ _%$e110472%_)) + (__compile-head-id _%tail110487%_))))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e111134%_)) + (__AST-e _%$e110472%_)) '()) '() - (let () - (declare (not safe)) - (_%$E111137111151%_))))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111134%_)) - (let* ((_%$tgt111139111157%_ - (let () (declare (not safe)) (__AST-e _%$e111134%_))) - (_%$hd111140111160%_ + (_%$E110475110489%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e110472%_)) + (let* ((_%$tgt110477110495%_ + (let () (declare (not safe)) (__AST-e _%$e110472%_))) + (_%$hd110478110498%_ (let () (declare (not safe)) - (##car _%$tgt111139111157%_))) - (_%$tl111141111163%_ + (##car _%$tgt110477110495%_))) + (_%$tl110479110501%_ (let () (declare (not safe)) - (##cdr _%$tgt111139111157%_)))) - (let* ((_%hd111167%_ _%$hd111140111160%_) - (_%rest111169%_ _%$tl111141111163%_)) - (cons (let () - (declare (not safe)) - (__compile-head-id _%hd111167%_)) - (let () - (declare (not safe)) - (_%recur111130%_ _%rest111169%_))))) - (let () (declare (not safe)) (_%$E111136111154%_))))))) + (##cdr _%$tgt110477110495%_))) + (_%hd110505%_ _%$hd110478110498%_) + (_%rest110507%_ _%$tl110479110501%_)) + (cons (__compile-head-id _%hd110505%_) + (_%recur110468%_ _%rest110507%_))) + (_%$E110474110492%_)))))) (define __compile-lambda% - (lambda (_%stx111075%_) - (let* ((_%$e111077%_ _%stx111075%_) - (_%$E111079111091%_ + (lambda (_%stx110413%_) + (let* ((_%$e110415%_ _%stx110413%_) + (_%$E110417110429%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111077%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111077%_)) - (let* ((_%$tgt111080111094%_ - (let () (declare (not safe)) (__AST-e _%$e111077%_))) - (_%$hd111081111097%_ + _%$e110415%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e110415%_)) + (let* ((_%$tgt110418110432%_ + (let () (declare (not safe)) (__AST-e _%$e110415%_))) + (_%$hd110419110435%_ (let () (declare (not safe)) - (##car _%$tgt111080111094%_))) - (_%$tl111082111100%_ + (##car _%$tgt110418110432%_))) + (_%$tl110420110438%_ (let () (declare (not safe)) - (##cdr _%$tgt111080111094%_)))) + (##cdr _%$tgt110418110432%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111082111100%_)) - (let* ((_%$tgt111083111104%_ + (__AST-pair? _%$tl110420110438%_)) + (let* ((_%$tgt110421110442%_ (let () (declare (not safe)) - (__AST-e _%$tl111082111100%_))) - (_%$hd111084111107%_ + (__AST-e _%$tl110420110438%_))) + (_%$hd110422110445%_ (let () (declare (not safe)) - (##car _%$tgt111083111104%_))) - (_%$tl111085111110%_ + (##car _%$tgt110421110442%_))) + (_%$tl110423110448%_ (let () (declare (not safe)) - (##cdr _%$tgt111083111104%_))) - (_%hd111114%_ _%$hd111084111107%_)) + (##cdr _%$tgt110421110442%_))) + (_%hd110452%_ _%$hd110422110445%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111085111110%_)) - (let* ((_%$tgt111086111116%_ + (__AST-pair? _%$tl110423110448%_)) + (let* ((_%$tgt110424110454%_ (let () (declare (not safe)) - (__AST-e _%$tl111085111110%_))) - (_%$hd111087111119%_ + (__AST-e _%$tl110423110448%_))) + (_%$hd110425110457%_ (let () (declare (not safe)) - (##car _%$tgt111086111116%_))) - (_%$tl111088111122%_ + (##car _%$tgt110424110454%_))) + (_%$tl110426110460%_ (let () (declare (not safe)) - (##cdr _%$tgt111086111116%_))) - (_%body111126%_ _%$hd111087111119%_)) + (##cdr _%$tgt110424110454%_))) + (_%body110464%_ _%$hd110425110457%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl111088111122%_)) + (__AST-e _%$tl110426110460%_)) '()) - (let ((__tmp111763 - (cons 'lambda - (cons (let () - (declare (not safe)) - (__compile-lambda-head - _%hd111114%_)) - (cons (let () - (declare (not safe)) - (__compile - _%body111126%_)) - '()))))) - (declare (not safe)) - (__SRC__% __tmp111763 _%stx111075%_)) - (let () - (declare (not safe)) - (_%$E111079111091%_)))) - (let () (declare (not safe)) (_%$E111079111091%_)))) - (let () (declare (not safe)) (_%$E111079111091%_)))) - (let () (declare (not safe)) (_%$E111079111091%_)))))) + (__SRC__% + (cons 'lambda + (cons (__compile-lambda-head + _%hd110452%_) + (cons (__compile _%body110464%_) + '()))) + _%stx110413%_) + (_%$E110417110429%_))) + (_%$E110417110429%_))) + (_%$E110417110429%_))) + (_%$E110417110429%_))))) (define __compile-case-lambda% - (lambda (_%stx110867%_) - (letrec ((_%variadic?110869%_ - (lambda (_%hd111040%_) - (let* ((_%$e111042%_ _%hd111040%_) - (_%$E111044111060%_ + (lambda (_%stx110205%_) + (letrec ((_%variadic?110207%_ + (lambda (_%hd110378%_) + (let* ((_%$e110380%_ _%hd110378%_) + (_%$E110382110398%_ (lambda () - (let ((_%$E111045111057%_ + (let ((_%$E110383110395%_ (lambda () - (let ((_%$E111046111054%_ + (let ((_%$E110384110392%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111042%_))))) + _%$e110380%_))))) '#t)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e111042%_)) + (__AST-e _%$e110380%_)) '()) '#f - (let () - (declare (not safe)) - (_%$E111045111057%_))))))) + (_%$E110383110395%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e111042%_)) - (let* ((_%$tgt111047111063%_ + (__AST-pair? _%$e110380%_)) + (let* ((_%$tgt110385110401%_ (let () (declare (not safe)) - (__AST-e _%$e111042%_))) - (_%$hd111048111066%_ + (__AST-e _%$e110380%_))) + (_%$hd110386110404%_ (let () (declare (not safe)) - (##car _%$tgt111047111063%_))) - (_%$tl111049111069%_ + (##car _%$tgt110385110401%_))) + (_%$tl110387110407%_ (let () (declare (not safe)) - (##cdr _%$tgt111047111063%_))) - (_%rest111073%_ _%$tl111049111069%_)) - (declare (not safe)) - (_%variadic?110869%_ _%rest111073%_)) - (let () - (declare (not safe)) - (_%$E111044111060%_)))))) - (_%arity110870%_ - (lambda (_%hd111005%_) - (let _%lp111007%_ ((_%rest111009%_ _%hd111005%_) - (_%k111010%_ '0)) - (let* ((_%$e111012%_ _%rest111009%_) - (_%$E111014111025%_ + (##cdr _%$tgt110385110401%_))) + (_%rest110411%_ _%$tl110387110407%_)) + (_%variadic?110207%_ _%rest110411%_)) + (_%$E110382110398%_))))) + (_%arity110208%_ + (lambda (_%hd110343%_) + (let _%lp110345%_ ((_%rest110347%_ _%hd110343%_) + (_%k110348%_ '0)) + (let* ((_%$e110350%_ _%rest110347%_) + (_%$E110352110363%_ (lambda () - (let ((_%$E111015111022%_ + (let ((_%$E110353110360%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111012%_))))) - _%k111010%_)))) + _%$e110350%_))))) + _%k110348%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$e111012%_)) - (let* ((_%$tgt111016111028%_ + (__AST-pair? _%$e110350%_)) + (let* ((_%$tgt110354110366%_ (let () (declare (not safe)) - (__AST-e _%$e111012%_))) - (_%$hd111017111031%_ + (__AST-e _%$e110350%_))) + (_%$hd110355110369%_ (let () (declare (not safe)) - (##car _%$tgt111016111028%_))) - (_%$tl111018111034%_ + (##car _%$tgt110354110366%_))) + (_%$tl110356110372%_ (let () (declare (not safe)) - (##cdr _%$tgt111016111028%_)))) - (let* ((_%rest111038%_ _%$tl111018111034%_) - (__tmp111764 - (let () - (declare (not safe)) - (##fx+ _%k111010%_ '1)))) - (declare (not safe)) - (_%lp111007%_ _%rest111038%_ __tmp111764))) - (let () - (declare (not safe)) - (_%$E111014111025%_))))))) - (_%generate110871%_ - (lambda (_%rest110932%_ _%args110933%_ _%len110934%_) - (let* ((_%$e110936%_ _%rest110932%_) - (_%$E110938110949%_ + (##cdr _%$tgt110354110366%_))) + (_%rest110376%_ _%$tl110356110372%_)) + (_%lp110345%_ + _%rest110376%_ + (let () + (declare (not safe)) + (##fx+ _%k110348%_ '1)))) + (_%$E110352110363%_)))))) + (_%generate110209%_ + (lambda (_%rest110270%_ _%args110271%_ _%len110272%_) + (let* ((_%$e110274%_ _%rest110270%_) + (_%$E110276110287%_ (lambda () - (let* ((_%$E110939110946%_ - (lambda () - (let () - (declare (not safe)) - (__raise-syntax-error - '#f - '"Bad syntax; malformed ast clause" - _%$e110936%_)))) - (__tmp111765 - (cons 'error - (cons '"No clause matching arguments" - (cons _%args110933%_ '()))))) - (declare (not safe)) - (__SRC__% __tmp111765 _%stx110867%_))))) + (let ((_%$E110277110284%_ + (lambda () + (let () + (declare (not safe)) + (__raise-syntax-error + '#f + '"Bad syntax; malformed ast clause" + _%$e110274%_))))) + (__SRC__% + (cons 'error + (cons '"No clause matching arguments" + (cons _%args110271%_ '()))) + _%stx110205%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e110936%_)) - (let* ((_%$tgt110940110952%_ + (__AST-pair? _%$e110274%_)) + (let* ((_%$tgt110278110290%_ (let () (declare (not safe)) - (__AST-e _%$e110936%_))) - (_%$hd110941110955%_ + (__AST-e _%$e110274%_))) + (_%$hd110279110293%_ (let () (declare (not safe)) - (##car _%$tgt110940110952%_))) - (_%$tl110942110958%_ + (##car _%$tgt110278110290%_))) + (_%$tl110280110296%_ (let () (declare (not safe)) - (##cdr _%$tgt110940110952%_)))) - (let* ((_%clause110962%_ _%$hd110941110955%_) - (_%rest110964%_ _%$tl110942110958%_) - (_%$e110966%_ _%clause110962%_) - (_%$E110968110977%_ - (lambda () - (let () - (declare (not safe)) - (__raise-syntax-error - '#f - '"Bad syntax; malformed ast clause" - _%$e110966%_))))) - (if (let () - (declare (not safe)) - (__AST-pair? _%$e110966%_)) - (let* ((_%$tgt110969110980%_ - (let () - (declare (not safe)) - (__AST-e _%$e110966%_))) - (_%$hd110970110983%_ - (let () - (declare (not safe)) - (##car _%$tgt110969110980%_))) - (_%$tl110971110986%_ - (let () - (declare (not safe)) - (##cdr _%$tgt110969110980%_))) - (_%hd110990%_ _%$hd110970110983%_)) - (if (let () + (##cdr _%$tgt110278110290%_))) + (_%clause110300%_ _%$hd110279110293%_) + (_%rest110302%_ _%$tl110280110296%_) + (_%$e110304%_ _%clause110300%_) + (_%$E110306110315%_ + (lambda () + (let () + (declare (not safe)) + (__raise-syntax-error + '#f + '"Bad syntax; malformed ast clause" + _%$e110304%_))))) + (if (let () + (declare (not safe)) + (__AST-pair? _%$e110304%_)) + (let* ((_%$tgt110307110318%_ + (let () (declare (not safe)) - (__AST-pair? _%$tl110971110986%_)) - (let* ((_%$tgt110972110992%_ - (let () - (declare (not safe)) - (__AST-e _%$tl110971110986%_))) - (_%$hd110973110995%_ - (let () - (declare (not safe)) - (##car _%$tgt110972110992%_))) - (_%$tl110974110998%_ - (let () - (declare (not safe)) - (##cdr _%$tgt110972110992%_)))) - (if (equal? (let () - (declare (not safe)) - (__AST-e _%$tl110974110998%_)) - '()) - (let ((_%clen111002%_ - (let () - (declare (not safe)) - (_%arity110870%_ - _%hd110990%_))) - (_%cmp111003%_ - (if (let () - (declare (not safe)) - (_%variadic?110869%_ - _%hd110990%_)) - 'fx>= - 'fx=))) - (let ((__tmp111766 - (cons 'if - (cons (cons _%cmp111003%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len110934%_ - (cons _%clen111002%_ '()))) - (cons (let ((__tmp111767 - (cons '##apply - (cons (let ((__tmp111768 - (cons '%#lambda -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause110962%_))) - (declare (not safe)) - (__compile-lambda% __tmp111768)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%args110933%_ - '()))))) - (declare (not safe)) - (__SRC__% __tmp111767 _%stx110867%_)) - (cons (let () - (declare (not safe)) - (_%generate110871%_ - _%rest110964%_ - _%args110933%_ - _%len110934%_)) - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__SRC__% - __tmp111766 - _%stx110867%_))) - (let () - (declare (not safe)) - (_%$E110968110977%_)))) + (__AST-e _%$e110304%_))) + (_%$hd110308110321%_ (let () (declare (not safe)) - (_%$E110968110977%_)))) - (let () - (declare (not safe)) - (_%$E110968110977%_))))) - (let () - (declare (not safe)) - (_%$E110938110949%_))))))) - (let* ((_%$e110873%_ _%stx110867%_) - (_%$E110875110907%_ + (##car _%$tgt110307110318%_))) + (_%$tl110309110324%_ + (let () + (declare (not safe)) + (##cdr _%$tgt110307110318%_))) + (_%hd110328%_ _%$hd110308110321%_)) + (if (let () + (declare (not safe)) + (__AST-pair? _%$tl110309110324%_)) + (let* ((_%$tgt110310110330%_ + (let () + (declare (not safe)) + (__AST-e _%$tl110309110324%_))) + (_%$hd110311110333%_ + (let () + (declare (not safe)) + (##car _%$tgt110310110330%_))) + (_%$tl110312110336%_ + (let () + (declare (not safe)) + (##cdr _%$tgt110310110330%_)))) + (if (equal? (let () + (declare (not safe)) + (__AST-e _%$tl110312110336%_)) + '()) + (let ((_%clen110340%_ + (_%arity110208%_ + _%hd110328%_)) + (_%cmp110341%_ + (if (_%variadic?110207%_ + _%hd110328%_) + 'fx>= + 'fx=))) + (__SRC__% + (cons 'if + (cons (cons _%cmp110341%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%len110272%_ (cons _%clen110340%_ '()))) + (cons (__SRC__% + (cons '##apply + (cons (__compile-lambda% + (cons '%#lambda _%clause110300%_)) + (cons _%args110271%_ '()))) + _%stx110205%_) + (cons (_%generate110209%_ + _%rest110302%_ + _%args110271%_ + _%len110272%_) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%stx110205%_)) + (_%$E110306110315%_))) + (_%$E110306110315%_))) + (_%$E110306110315%_))) + (_%$E110276110287%_)))))) + (let* ((_%$e110211%_ _%stx110205%_) + (_%$E110213110245%_ (lambda () - (let ((_%$E110876110889%_ + (let ((_%$E110214110227%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e110873%_))))) + _%$e110211%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e110873%_)) - (let* ((_%$tgt110877110892%_ + (__AST-pair? _%$e110211%_)) + (let* ((_%$tgt110215110230%_ (let () (declare (not safe)) - (__AST-e _%$e110873%_))) - (_%$hd110878110895%_ + (__AST-e _%$e110211%_))) + (_%$hd110216110233%_ (let () (declare (not safe)) - (##car _%$tgt110877110892%_))) - (_%$tl110879110898%_ + (##car _%$tgt110215110230%_))) + (_%$tl110217110236%_ (let () (declare (not safe)) - (##cdr _%$tgt110877110892%_))) - (_%clauses110902%_ _%$tl110879110898%_)) - (let ((_%args110904%_ - (let ((__tmp111769 - (let () - (declare (not safe)) - (##gensym)))) - (declare (not safe)) - (__SRC__% __tmp111769 _%stx110867%_))) - (_%len110905%_ - (let ((__tmp111770 - (let () - (declare (not safe)) - (##gensym)))) - (declare (not safe)) - (__SRC__% __tmp111770 _%stx110867%_)))) - (let ((__tmp111771 - (cons 'lambda - (cons _%args110904%_ - (cons (let ((__tmp111772 - (cons 'let + (##cdr _%$tgt110215110230%_))) + (_%clauses110240%_ _%$tl110217110236%_)) + (let ((_%args110242%_ + (__SRC__% + (let () (declare (not safe)) (##gensym)) + _%stx110205%_)) + (_%len110243%_ + (__SRC__% + (let () (declare (not safe)) (##gensym)) + _%stx110205%_))) + (__SRC__% + (cons 'lambda + (cons _%args110242%_ + (cons (__SRC__% + (cons 'let + (cons (cons (cons _%len110243%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _%len110905%_ - (cons (let ((__tmp111773 - (cons '##length -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%args110904%_ '())))) - (declare (not safe)) - (__SRC__% __tmp111773 _%stx110867%_)) + (cons (__SRC__% + (cons '##length + (cons _%args110242%_ '())) + _%stx110205%_) + '())) + '()) + (cons (_%generate110209%_ + _%clauses110240%_ + _%args110242%_ + _%len110243%_) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '()) - (cons (let () - (declare (not safe)) - (_%generate110871%_ - _%clauses110902%_ - _%args110904%_ - _%len110905%_)) - '()))))) - (declare (not safe)) - (__SRC__% __tmp111772 _%stx110867%_)) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__SRC__% __tmp111771 _%stx110867%_)))) - (let () - (declare (not safe)) - (_%$E110876110889%_))))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e110873%_)) - (let* ((_%$tgt110880110910%_ - (let () (declare (not safe)) (__AST-e _%$e110873%_))) - (_%$hd110881110913%_ + _%stx110205%_) + '()))) + _%stx110205%_))) + (_%$E110214110227%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e110211%_)) + (let* ((_%$tgt110218110248%_ + (let () (declare (not safe)) (__AST-e _%$e110211%_))) + (_%$hd110219110251%_ (let () (declare (not safe)) - (##car _%$tgt110880110910%_))) - (_%$tl110882110916%_ + (##car _%$tgt110218110248%_))) + (_%$tl110220110254%_ (let () (declare (not safe)) - (##cdr _%$tgt110880110910%_)))) + (##cdr _%$tgt110218110248%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl110882110916%_)) - (let* ((_%$tgt110883110920%_ + (__AST-pair? _%$tl110220110254%_)) + (let* ((_%$tgt110221110258%_ (let () (declare (not safe)) - (__AST-e _%$tl110882110916%_))) - (_%$hd110884110923%_ + (__AST-e _%$tl110220110254%_))) + (_%$hd110222110261%_ (let () (declare (not safe)) - (##car _%$tgt110883110920%_))) - (_%$tl110885110926%_ + (##car _%$tgt110221110258%_))) + (_%$tl110223110264%_ (let () (declare (not safe)) - (##cdr _%$tgt110883110920%_))) - (_%clause110930%_ _%$hd110884110923%_)) + (##cdr _%$tgt110221110258%_))) + (_%clause110268%_ _%$hd110222110261%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl110885110926%_)) + (__AST-e _%$tl110223110264%_)) '()) - (let ((__tmp111774 - (cons '%#lambda _%clause110930%_))) - (declare (not safe)) - (__compile-lambda% __tmp111774)) - (let () - (declare (not safe)) - (_%$E110875110907%_)))) - (let () (declare (not safe)) (_%$E110875110907%_)))) - (let () (declare (not safe)) (_%$E110875110907%_))))))) + (__compile-lambda% + (cons '%#lambda _%clause110268%_)) + (_%$E110213110245%_))) + (_%$E110213110245%_))) + (_%$E110213110245%_)))))) (define __compile-let-form - (lambda (_%stx110636%_ _%compile-simple110637%_ _%compile-values110638%_) - (letrec ((_%simple-bind?110640%_ - (lambda (_%hd110825%_) - (let* ((_%hd110826110836%_ _%hd110825%_) - (_%else110829110844%_ (lambda () '#f))) - (let ((_%K110832110857%_ (lambda (_%id110855%_) '#t)) - (_%K110831110849%_ (lambda () '#t))) - (let ((_%try-match110828110852%_ + (lambda (_%stx109974%_ _%compile-simple109975%_ _%compile-values109976%_) + (letrec ((_%simple-bind?109978%_ + (lambda (_%hd110163%_) + (let* ((_%hd110164110174%_ _%hd110163%_) + (_%else110167110182%_ (lambda () '#f))) + (let ((_%K110170110195%_ (lambda (_%id110193%_) '#t)) + (_%K110169110187%_ (lambda () '#t))) + (let ((_%try-match110166110190%_ (lambda () (if (let () (declare (not safe)) - (##eq? _%hd110826110836%_ '#f)) - (let () - (declare (not safe)) - (_%K110831110849%_)) - (let () - (declare (not safe)) - (_%else110829110844%_)))))) + (##eq? _%hd110164110174%_ '#f)) + (_%K110169110187%_) + (_%else110167110182%_))))) (if (let () (declare (not safe)) - (##pair? _%hd110826110836%_)) - (let ((_%tl110834110862%_ + (##pair? _%hd110164110174%_)) + (let ((_%tl110172110200%_ (let () (declare (not safe)) - (##cdr _%hd110826110836%_))) - (_%hd110833110860%_ + (##cdr _%hd110164110174%_))) + (_%hd110171110198%_ (let () (declare (not safe)) - (##car _%hd110826110836%_)))) + (##car _%hd110164110174%_)))) (if (let () (declare (not safe)) - (##null? _%tl110834110862%_)) - (let ((_%id110865%_ _%hd110833110860%_)) - (declare (not safe)) - (_%K110832110857%_ _%id110865%_)) - (let () - (declare (not safe)) - (_%try-match110828110852%_)))) - (let () - (declare (not safe)) - (_%try-match110828110852%_)))))))) - (_%car-e110641%_ - (lambda (_%hd110823%_) - (if (let () (declare (not safe)) (pair? _%hd110823%_)) - (car _%hd110823%_) - _%hd110823%_)))) - (let* ((_%$e110643%_ _%stx110636%_) - (_%$E110645110788%_ + (##null? _%tl110172110200%_)) + (let ((_%id110203%_ _%hd110171110198%_)) + (_%K110170110195%_ _%id110203%_)) + (_%try-match110166110190%_))) + (_%try-match110166110190%_))))))) + (_%car-e109979%_ + (lambda (_%hd110161%_) + (if (pair? _%hd110161%_) + (car _%hd110161%_) + _%hd110161%_)))) + (let* ((_%$e109981%_ _%stx109974%_) + (_%$E109983110126%_ (lambda () - (let ((_%$E110646110668%_ + (let ((_%$E109984110006%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e110643%_))))) + _%$e109981%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e110643%_)) - (let* ((_%$tgt110647110671%_ + (__AST-pair? _%$e109981%_)) + (let* ((_%$tgt109985110009%_ (let () (declare (not safe)) - (__AST-e _%$e110643%_))) - (_%$hd110648110674%_ + (__AST-e _%$e109981%_))) + (_%$hd109986110012%_ (let () (declare (not safe)) - (##car _%$tgt110647110671%_))) - (_%$tl110649110677%_ + (##car _%$tgt109985110009%_))) + (_%$tl109987110015%_ (let () (declare (not safe)) - (##cdr _%$tgt110647110671%_)))) + (##cdr _%$tgt109985110009%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl110649110677%_)) - (let* ((_%$tgt110650110681%_ + (__AST-pair? _%$tl109987110015%_)) + (let* ((_%$tgt109988110019%_ (let () (declare (not safe)) - (__AST-e _%$tl110649110677%_))) - (_%$hd110651110684%_ + (__AST-e _%$tl109987110015%_))) + (_%$hd109989110022%_ (let () (declare (not safe)) - (##car _%$tgt110650110681%_))) - (_%$tl110652110687%_ + (##car _%$tgt109988110019%_))) + (_%$tl109990110025%_ (let () (declare (not safe)) - (##cdr _%$tgt110650110681%_))) - (_%hd110691%_ _%$hd110651110684%_)) + (##cdr _%$tgt109988110019%_))) + (_%hd110029%_ _%$hd109989110022%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl110652110687%_)) - (let* ((_%$tgt110653110693%_ + (__AST-pair? _%$tl109990110025%_)) + (let* ((_%$tgt109991110031%_ (let () (declare (not safe)) - (__AST-e _%$tl110652110687%_))) - (_%$hd110654110696%_ + (__AST-e _%$tl109990110025%_))) + (_%$hd109992110034%_ (let () (declare (not safe)) - (##car _%$tgt110653110693%_))) - (_%$tl110655110699%_ + (##car _%$tgt109991110031%_))) + (_%$tl109993110037%_ (let () (declare (not safe)) - (##cdr _%$tgt110653110693%_))) - (_%body110703%_ - _%$hd110654110696%_)) + (##cdr _%$tgt109991110031%_))) + (_%body110041%_ + _%$hd109992110034%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl110655110699%_)) + (__AST-e _%$tl109993110037%_)) '()) - (let* ((_%hd-ids110743%_ - (map (lambda (_%bind110705%_) - (let* ((_%$e110707%_ + (let* ((_%hd-ids110081%_ + (map (lambda (_%bind110043%_) + (let* ((_%$e110045%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind110705%_) - (_%$E110709110718%_ + _%bind110043%_) + (_%$E110047110056%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e110707%_))))) + _%$e110045%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e110707%_)) - (let* ((_%$tgt110710110721%_ + (__AST-pair? _%$e110045%_)) + (let* ((_%$tgt110048110059%_ (let () (declare (not safe)) - (__AST-e _%$e110707%_))) - (_%$hd110711110724%_ + (__AST-e _%$e110045%_))) + (_%$hd110049110062%_ (let () (declare (not safe)) - (##car _%$tgt110710110721%_))) - (_%$tl110712110727%_ + (##car _%$tgt110048110059%_))) + (_%$tl110050110065%_ (let () (declare (not safe)) - (##cdr _%$tgt110710110721%_))) - (_%ids110731%_ _%$hd110711110724%_)) + (##cdr _%$tgt110048110059%_))) + (_%ids110069%_ _%$hd110049110062%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl110712110727%_)) - (let* ((_%$tgt110713110733%_ + (__AST-pair? _%$tl110050110065%_)) + (let* ((_%$tgt110051110071%_ (let () (declare (not safe)) - (__AST-e _%$tl110712110727%_))) - (_%$hd110714110736%_ + (__AST-e _%$tl110050110065%_))) + (_%$hd110052110074%_ (let () (declare (not safe)) - (##car _%$tgt110713110733%_))) - (_%$tl110715110739%_ + (##car _%$tgt110051110071%_))) + (_%$tl110053110077%_ (let () (declare (not safe)) - (##cdr _%$tgt110713110733%_)))) + (##cdr _%$tgt110051110071%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl110715110739%_)) + (__AST-e _%$tl110053110077%_)) '()) - _%ids110731%_ - (let () - (declare (not safe)) - (_%$E110709110718%_)))) - (let () - (declare (not safe)) - (_%$E110709110718%_)))) - (let () (declare (not safe)) (_%$E110709110718%_))))) - _%hd110691%_)) + _%ids110069%_ + (_%$E110047110056%_))) + (_%$E110047110056%_))) + (_%$E110047110056%_)))) + _%hd110029%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%exprs110783%_ - (map (lambda (_%bind110745%_) - (let* ((_%$e110747%_ + (_%exprs110121%_ + (map (lambda (_%bind110083%_) + (let* ((_%$e110085%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind110745%_) - (_%$E110749110758%_ + _%bind110083%_) + (_%$E110087110096%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e110747%_))))) + _%$e110085%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e110747%_)) - (let* ((_%$tgt110750110761%_ + (__AST-pair? _%$e110085%_)) + (let* ((_%$tgt110088110099%_ (let () (declare (not safe)) - (__AST-e _%$e110747%_))) - (_%$hd110751110764%_ + (__AST-e _%$e110085%_))) + (_%$hd110089110102%_ (let () (declare (not safe)) - (##car _%$tgt110750110761%_))) - (_%$tl110752110767%_ + (##car _%$tgt110088110099%_))) + (_%$tl110090110105%_ (let () (declare (not safe)) - (##cdr _%$tgt110750110761%_)))) + (##cdr _%$tgt110088110099%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl110752110767%_)) - (let* ((_%$tgt110753110771%_ + (__AST-pair? _%$tl110090110105%_)) + (let* ((_%$tgt110091110109%_ (let () (declare (not safe)) - (__AST-e _%$tl110752110767%_))) - (_%$hd110754110774%_ + (__AST-e _%$tl110090110105%_))) + (_%$hd110092110112%_ (let () (declare (not safe)) - (##car _%$tgt110753110771%_))) - (_%$tl110755110777%_ + (##car _%$tgt110091110109%_))) + (_%$tl110093110115%_ (let () (declare (not safe)) - (##cdr _%$tgt110753110771%_))) - (_%expr110781%_ _%$hd110754110774%_)) + (##cdr _%$tgt110091110109%_))) + (_%expr110119%_ _%$hd110092110112%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl110755110777%_)) + (__AST-e _%$tl110093110115%_)) '()) - (let () - (declare (not safe)) - (__compile _%expr110781%_)) - (let () - (declare (not safe)) - (_%$E110749110758%_)))) - (let () - (declare (not safe)) - (_%$E110749110758%_)))) - (let () (declare (not safe)) (_%$E110749110758%_))))) - _%hd110691%_)) + (__compile _%expr110119%_) + (_%$E110087110096%_))) + (_%$E110087110096%_))) + (_%$E110087110096%_)))) + _%hd110029%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body110785%_ - (let () - (declare (not safe)) - (__compile - _%body110703%_)))) + (_%body110123%_ + (__compile + _%body110041%_))) (if (let () (declare (not safe)) (__andmap1 - _%simple-bind?110640%_ - _%hd-ids110743%_)) - (_%compile-simple110637%_ + _%simple-bind?109978%_ + _%hd-ids110081%_)) + (_%compile-simple109975%_ (let () (declare (not safe)) - (##map _%car-e110641%_ - _%hd-ids110743%_)) - _%exprs110783%_ - _%body110785%_) - (_%compile-values110638%_ - _%hd-ids110743%_ - _%exprs110783%_ - _%body110785%_))) - (let () - (declare (not safe)) - (_%$E110646110668%_)))) - (let () - (declare (not safe)) - (_%$E110646110668%_)))) - (let () - (declare (not safe)) - (_%$E110646110668%_)))) - (let () - (declare (not safe)) - (_%$E110646110668%_))))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e110643%_)) - (let* ((_%$tgt110656110791%_ - (let () (declare (not safe)) (__AST-e _%$e110643%_))) - (_%$hd110657110794%_ + (##map _%car-e109979%_ + _%hd-ids110081%_)) + _%exprs110121%_ + _%body110123%_) + (_%compile-values109976%_ + _%hd-ids110081%_ + _%exprs110121%_ + _%body110123%_))) + (_%$E109984110006%_))) + (_%$E109984110006%_))) + (_%$E109984110006%_))) + (_%$E109984110006%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e109981%_)) + (let* ((_%$tgt109994110129%_ + (let () (declare (not safe)) (__AST-e _%$e109981%_))) + (_%$hd109995110132%_ (let () (declare (not safe)) - (##car _%$tgt110656110791%_))) - (_%$tl110658110797%_ + (##car _%$tgt109994110129%_))) + (_%$tl109996110135%_ (let () (declare (not safe)) - (##cdr _%$tgt110656110791%_)))) + (##cdr _%$tgt109994110129%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl110658110797%_)) - (let* ((_%$tgt110659110801%_ + (__AST-pair? _%$tl109996110135%_)) + (let* ((_%$tgt109997110139%_ (let () (declare (not safe)) - (__AST-e _%$tl110658110797%_))) - (_%$hd110660110804%_ + (__AST-e _%$tl109996110135%_))) + (_%$hd109998110142%_ (let () (declare (not safe)) - (##car _%$tgt110659110801%_))) - (_%$tl110661110807%_ + (##car _%$tgt109997110139%_))) + (_%$tl109999110145%_ (let () (declare (not safe)) - (##cdr _%$tgt110659110801%_)))) + (##cdr _%$tgt109997110139%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd110660110804%_)) + (__AST-e _%$hd109998110142%_)) '()) (if (let () (declare (not safe)) - (__AST-pair? _%$tl110661110807%_)) - (let* ((_%$tgt110662110811%_ + (__AST-pair? _%$tl109999110145%_)) + (let* ((_%$tgt110000110149%_ (let () (declare (not safe)) - (__AST-e _%$tl110661110807%_))) - (_%$hd110663110814%_ + (__AST-e _%$tl109999110145%_))) + (_%$hd110001110152%_ (let () (declare (not safe)) - (##car _%$tgt110662110811%_))) - (_%$tl110664110817%_ + (##car _%$tgt110000110149%_))) + (_%$tl110002110155%_ (let () (declare (not safe)) - (##cdr _%$tgt110662110811%_))) - (_%body110821%_ _%$hd110663110814%_)) + (##cdr _%$tgt110000110149%_))) + (_%body110159%_ _%$hd110001110152%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl110664110817%_)) + (__AST-e _%$tl110002110155%_)) '()) - (let () - (declare (not safe)) - (__compile _%body110821%_)) - (let () - (declare (not safe)) - (_%$E110645110788%_)))) - (let () - (declare (not safe)) - (_%$E110645110788%_))) - (let () - (declare (not safe)) - (_%$E110645110788%_)))) - (let () (declare (not safe)) (_%$E110645110788%_)))) - (let () (declare (not safe)) (_%$E110645110788%_))))))) + (__compile _%body110159%_) + (_%$E109983110126%_))) + (_%$E109983110126%_)) + (_%$E109983110126%_))) + (_%$E109983110126%_))) + (_%$E109983110126%_)))))) (define __compile-let-values% - (lambda (_%stx110448%_) - (letrec ((_%compile-simple110450%_ - (lambda (_%hd-ids110632%_ _%exprs110633%_ _%body110634%_) - (let ((__tmp111775 - (cons 'let - (cons (let ((__tmp111776 - (map __compile-head-id - _%hd-ids110632%_))) - (declare (not safe)) - (##map list - __tmp111776 - _%exprs110633%_)) - (cons _%body110634%_ '()))))) - (declare (not safe)) - (__SRC__% __tmp111775 _%stx110448%_)))) - (_%compile-values110451%_ - (lambda (_%hd-ids110547%_ _%exprs110548%_ _%body110549%_) - (let _%lp110551%_ ((_%rest110553%_ _%hd-ids110547%_) - (_%exprs110554%_ _%exprs110548%_) - (_%bind110555%_ '()) - (_%post110556%_ '())) - (let* ((_%rest110557110571%_ _%rest110553%_) - (_%else110560110579%_ - (lambda () - (let ((__tmp111777 - (cons 'let - (cons (reverse _%bind110555%_) - (cons (let () - (declare (not safe)) - (_%compile-post110452%_ - _%post110556%_ - _%body110549%_)) - '()))))) - (declare (not safe)) - (__SRC__% __tmp111777 _%stx110448%_))))) - (let ((_%K110565110615%_ - (lambda (_%rest110612%_ _%id110613%_) - (let ((__tmp111779 (cdr _%exprs110554%_)) - (__tmp111778 - (cons (cons (let () - (declare (not safe)) - (__compile-head-id - _%id110613%_)) - (cons (car _%exprs110554%_) - '())) - _%bind110555%_))) + (lambda (_%stx109786%_) + (letrec ((_%compile-simple109788%_ + (lambda (_%hd-ids109970%_ _%exprs109971%_ _%body109972%_) + (__SRC__% + (cons 'let + (cons (let ((__tmp111089 + (map __compile-head-id + _%hd-ids109970%_))) (declare (not safe)) - (_%lp110551%_ - _%rest110612%_ - __tmp111779 - __tmp111778 - _%post110556%_)))) - (_%K110562110597%_ - (lambda (_%rest110583%_ _%hd110584%_) + (##map list __tmp111089 _%exprs109971%_)) + (cons _%body109972%_ '()))) + _%stx109786%_))) + (_%compile-values109789%_ + (lambda (_%hd-ids109885%_ _%exprs109886%_ _%body109887%_) + (let _%lp109889%_ ((_%rest109891%_ _%hd-ids109885%_) + (_%exprs109892%_ _%exprs109886%_) + (_%bind109893%_ '()) + (_%post109894%_ '())) + (let* ((_%rest109895109909%_ _%rest109891%_) + (_%else109898109917%_ + (lambda () + (__SRC__% + (cons 'let + (cons (reverse _%bind109893%_) + (cons (_%compile-post109790%_ + _%post109894%_ + _%body109887%_) + '()))) + _%stx109786%_)))) + (let ((_%K109903109953%_ + (lambda (_%rest109950%_ _%id109951%_) + (_%lp109889%_ + _%rest109950%_ + (cdr _%exprs109892%_) + (cons (cons (__compile-head-id _%id109951%_) + (cons (car _%exprs109892%_) '())) + _%bind109893%_) + _%post109894%_))) + (_%K109900109935%_ + (lambda (_%rest109921%_ _%hd109922%_) (if (let () (declare (not safe)) - (__AST-id? _%hd110584%_)) - (let ((__tmp111781 (cdr _%exprs110554%_)) - (__tmp111780 - (cons (cons (let () - (declare (not safe)) - (__compile-head-id - _%hd110584%_)) - (cons (cons 'values->list -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (car _%exprs110554%_) '())) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind110555%_))) - (declare (not safe)) - (_%lp110551%_ - _%rest110583%_ - __tmp111781 - __tmp111780 - _%post110556%_)) - (if (let () - (declare (not safe)) - (list? _%hd110584%_)) - (let () - (let* ((_%len110588%_ - (length _%hd110584%_)) - (_%tmp110590%_ - (let ((__tmp111782 - (let () - (declare - (not safe)) - (##gensym)))) - (declare (not safe)) - (__SRC__0 __tmp111782)))) - (let ((__tmp111789 - (cdr _%exprs110554%_)) - (__tmp111788 - (cons (cons _%tmp110590%_ - (cons (car _%exprs110554%_) + (__AST-id? _%hd109922%_)) + (_%lp109889%_ + _%rest109921%_ + (cdr _%exprs109892%_) + (cons (cons (__compile-head-id + _%hd109922%_) + (cons (cons 'values->list + (cons (car _%exprs109892%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - _%bind110555%_)) + '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp111783 - (cons (let ((__tmp111784 + _%bind109893%_) + _%post109894%_) + (if (list? _%hd109922%_) + (let* ((_%len109926%_ + (length _%hd109922%_)) + (_%tmp109928%_ + (__SRC__0 + (let () + (declare (not safe)) + (##gensym))))) + (_%lp109889%_ + _%rest109921%_ + (cdr _%exprs109892%_) + (cons (cons _%tmp109928%_ + (cons (car _%exprs109892%_) + '())) + _%bind109893%_) + (cons (cons _%tmp109928%_ + (cons _%len109926%_ + (let ((__tmp111091 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111785 - (let ((__tmp111787 - (lambda (_%id110593%_ _%k110594%_) - (if (let () - (declare (not safe)) - (__AST-e _%id110593%_)) - (cons (let () - (declare (not safe)) - (__SRC__0 _%id110593%_)) - _%k110594%_) - '#f))) - (__tmp111786 - (let () - (declare (not safe)) - (##iota _%len110588%_)))) - (declare (not safe)) - (__filter-map2 - __tmp111787 - _%hd110584%_ - __tmp111786)))) - (declare (not safe)) - (cons _%len110588%_ __tmp111785)))) - (declare (not safe)) - (cons _%tmp110590%_ __tmp111784)) - _%post110556%_))) + (lambda (_%id109931%_ _%k109932%_) + (if (let () + (declare (not safe)) + (__AST-e _%id109931%_)) + (cons (__SRC__0 _%id109931%_) _%k109932%_) + '#f))) + (__tmp111090 + (let () + (declare (not safe)) + (##iota _%len109926%_)))) + (declare (not safe)) + (__filter-map2 __tmp111091 _%hd109922%_ __tmp111090)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp110551%_ - _%rest110583%_ - __tmp111789 - __tmp111788 - __tmp111783)))) - (let () - (declare (not safe)) - (__compile-error__% - _%stx110448%_ - _%hd110584%_))))))) + _%post109894%_))) + (__compile-error__% + _%stx109786%_ + _%hd109922%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest110557110571%_)) - (let ((_%tl110567110620%_ + (##pair? _%rest109895109909%_)) + (let ((_%tl109905109958%_ (let () (declare (not safe)) - (##cdr _%rest110557110571%_))) - (_%hd110566110618%_ + (##cdr _%rest109895109909%_))) + (_%hd109904109956%_ (let () (declare (not safe)) - (##car _%rest110557110571%_)))) + (##car _%rest109895109909%_)))) (if (let () (declare (not safe)) - (##pair? _%hd110566110618%_)) - (let ((_%tl110569110625%_ + (##pair? _%hd109904109956%_)) + (let ((_%tl109907109963%_ (let () (declare (not safe)) - (##cdr _%hd110566110618%_))) - (_%hd110568110623%_ + (##cdr _%hd109904109956%_))) + (_%hd109906109961%_ (let () (declare (not safe)) - (##car _%hd110566110618%_)))) + (##car _%hd109904109956%_)))) (if (let () (declare (not safe)) - (##null? _%tl110569110625%_)) - (let ((_%id110628%_ - _%hd110568110623%_) - (_%rest110630%_ - _%tl110567110620%_)) - (let () - (declare (not safe)) - (_%K110565110615%_ - _%rest110630%_ - _%id110628%_))) - (let ((_%hd110605%_ - _%hd110566110618%_) - (_%rest110607%_ - _%tl110567110620%_)) - (let () - (declare (not safe)) - (_%K110562110597%_ - _%rest110607%_ - _%hd110605%_))))) - (let ((_%hd110605%_ _%hd110566110618%_) - (_%rest110607%_ _%tl110567110620%_)) - (let () - (declare (not safe)) - (_%K110562110597%_ - _%rest110607%_ - _%hd110605%_))))) - (let () - (declare (not safe)) - (_%else110560110579%_)))))))) - (_%compile-post110452%_ - (lambda (_%post110454%_ _%body110455%_) - (let _%lp110457%_ ((_%rest110459%_ _%post110454%_) - (_%check110460%_ '()) - (_%bind110461%_ '())) - (let* ((_%rest110462110474%_ _%rest110459%_) - (_%else110464110482%_ + (##null? _%tl109907109963%_)) + (let ((_%id109966%_ + _%hd109906109961%_) + (_%rest109968%_ + _%tl109905109958%_)) + (_%K109903109953%_ + _%rest109968%_ + _%id109966%_)) + (let ((_%hd109943%_ + _%hd109904109956%_) + (_%rest109945%_ + _%tl109905109958%_)) + (_%K109900109935%_ + _%rest109945%_ + _%hd109943%_)))) + (let ((_%hd109943%_ _%hd109904109956%_) + (_%rest109945%_ _%tl109905109958%_)) + (_%K109900109935%_ + _%rest109945%_ + _%hd109943%_)))) + (_%else109898109917%_))))))) + (_%compile-post109790%_ + (lambda (_%post109792%_ _%body109793%_) + (let _%lp109795%_ ((_%rest109797%_ _%post109792%_) + (_%check109798%_ '()) + (_%bind109799%_ '())) + (let* ((_%rest109800109812%_ _%rest109797%_) + (_%else109802109820%_ (lambda () - (let ((__tmp111790 - (cons 'begin - (let ((__tmp111791 - (cons (let ((__tmp111792 + (__SRC__% + (cons 'begin + (let ((__tmp111092 + (cons (__SRC__% + (cons 'let + (cons _%bind109799%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'let - (cons _%bind110461%_ - (cons _%body110455%_ '()))))) - (declare (not safe)) - (__SRC__% __tmp111792 _%stx110448%_)) - '()))) + (cons _%body109793%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr1 - cons - __tmp111791 - _%check110460%_))))) - (declare (not safe)) - (__SRC__% __tmp111790 _%stx110448%_)))) - (_%K110466110521%_ - (lambda (_%rest110485%_ - _%init110486%_ - _%len110487%_ - _%tmp110488%_) - (let ((__tmp111795 - (cons (let ((__tmp111796 - (cons '__check-values - (cons _%tmp110488%_ - (cons _%len110487%_ + _%stx109786%_) + '()))) + (declare (not safe)) + (__foldr1 + cons + __tmp111092 + _%check109798%_))) + _%stx109786%_))) + (_%K109804109859%_ + (lambda (_%rest109823%_ + _%init109824%_ + _%len109825%_ + _%tmp109826%_) + (_%lp109795%_ + _%rest109823%_ + (cons (__SRC__% + (cons '__check-values + (cons _%tmp109826%_ + (cons _%len109825%_ '()))) + _%stx109786%_) + _%check109798%_) + (let ((__tmp111093 + (lambda (_%hd109828%_ _%r109829%_) + (let* ((_%hd109830109837%_ + _%hd109828%_) + (_%E109832109841%_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" + _%hd109830109837%_ + '([id . k]))) + '#!void)) + (_%K109833109847%_ + (lambda (_%k109844%_ + _%id109845%_) + (cons (cons _%id109845%_ + (cons (cons '##vector-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))))) + (cons _%tmp109826%_ + (cons _%k109844%_ '()))) + '())) + _%r109829%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__SRC__% - __tmp111796 - _%stx110448%_)) - _%check110460%_)) - (__tmp111793 - (let ((__tmp111794 - (lambda (_%hd110490%_ - _%r110491%_) - (let* ((_%hd110492110499%_ - _%hd110490%_) - (_%E110494110503%_ - (lambda () - (let () - (declare - (not safe)) - (error '"No clause matching" -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd110492110499%_ - '([id . k]))) - '#!void)) - (_%K110495110509%_ - (lambda (_%k110506%_ _%id110507%_) - (cons (cons _%id110507%_ - (cons (cons '##vector-ref - (cons _%tmp110488%_ - (cons _%k110506%_ '()))) - '())) - _%r110491%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%hd110492110499%_)) - (let ((_%hd110496110512%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _%hd110492110499%_))) - (_%tl110497110514%_ - (let () (declare (not safe)) (##cdr _%hd110492110499%_)))) - (let* ((_%id110517%_ _%hd110496110512%_) - (_%k110519%_ _%tl110497110514%_)) - (declare (not safe)) - (_%K110495110509%_ _%k110519%_ _%id110517%_))) - (let () (declare (not safe)) (_%E110494110503%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr1 - __tmp111794 - _%bind110461%_ - _%init110486%_)))) - (declare (not safe)) - (_%lp110457%_ - _%rest110485%_ - __tmp111795 - __tmp111793))))) + (if (let () + (declare (not safe)) + (##pair? _%hd109830109837%_)) + (let ((_%hd109834109850%_ + (let () + (declare (not safe)) + (##car _%hd109830109837%_))) + (_%tl109835109852%_ + (let () + (declare (not safe)) + (##cdr _%hd109830109837%_)))) + (let* ((_%id109855%_ + _%hd109834109850%_) + (_%k109857%_ + _%tl109835109852%_)) + (_%K109833109847%_ + _%k109857%_ + _%id109855%_))) + (_%E109832109841%_)))))) + (declare (not safe)) + (__foldr1 + __tmp111093 + _%bind109799%_ + _%init109824%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest110462110474%_)) - (let ((_%hd110467110524%_ + (##pair? _%rest109800109812%_)) + (let ((_%hd109805109862%_ (let () (declare (not safe)) - (##car _%rest110462110474%_))) - (_%tl110468110526%_ + (##car _%rest109800109812%_))) + (_%tl109806109864%_ (let () (declare (not safe)) - (##cdr _%rest110462110474%_)))) + (##cdr _%rest109800109812%_)))) (if (let () (declare (not safe)) - (##pair? _%hd110467110524%_)) - (let ((_%hd110469110529%_ + (##pair? _%hd109805109862%_)) + (let ((_%hd109807109867%_ (let () (declare (not safe)) - (##car _%hd110467110524%_))) - (_%tl110470110531%_ + (##car _%hd109805109862%_))) + (_%tl109808109869%_ (let () (declare (not safe)) - (##cdr _%hd110467110524%_)))) - (let ((_%tmp110534%_ _%hd110469110529%_)) + (##cdr _%hd109805109862%_)))) + (let ((_%tmp109872%_ _%hd109807109867%_)) (if (let () (declare (not safe)) - (##pair? _%tl110470110531%_)) - (let ((_%hd110471110536%_ + (##pair? _%tl109808109869%_)) + (let ((_%hd109809109874%_ (let () (declare (not safe)) - (##car _%tl110470110531%_))) - (_%tl110472110538%_ + (##car _%tl109808109869%_))) + (_%tl109810109876%_ (let () (declare (not safe)) - (##cdr _%tl110470110531%_)))) - (let* ((_%len110541%_ - _%hd110471110536%_) - (_%init110543%_ - _%tl110472110538%_) - (_%rest110545%_ - _%tl110468110526%_)) - (declare (not safe)) - (_%K110466110521%_ - _%rest110545%_ - _%init110543%_ - _%len110541%_ - _%tmp110534%_))) - (let () - (declare (not safe)) - (_%else110464110482%_))))) - (let () - (declare (not safe)) - (_%else110464110482%_)))) - (let () - (declare (not safe)) - (_%else110464110482%_)))))))) - (let () - (declare (not safe)) - (__compile-let-form - _%stx110448%_ - _%compile-simple110450%_ - _%compile-values110451%_))))) + (##cdr _%tl109808109869%_)))) + (let* ((_%len109879%_ + _%hd109809109874%_) + (_%init109881%_ + _%tl109810109876%_) + (_%rest109883%_ + _%tl109806109864%_)) + (_%K109804109859%_ + _%rest109883%_ + _%init109881%_ + _%len109879%_ + _%tmp109872%_))) + (_%else109802109820%_)))) + (_%else109802109820%_))) + (_%else109802109820%_))))))) + (__compile-let-form + _%stx109786%_ + _%compile-simple109788%_ + _%compile-values109789%_)))) (define __compile-letrec-values% - (lambda (_%stx110245%_) - (letrec ((_%compile-simple110247%_ - (lambda (_%hd-ids110444%_ _%exprs110445%_ _%body110446%_) - (let ((__tmp111797 - (cons 'letrec - (cons (let ((__tmp111798 - (map __compile-head-id - _%hd-ids110444%_))) - (declare (not safe)) - (##map list - __tmp111798 - _%exprs110445%_)) - (cons _%body110446%_ '()))))) - (declare (not safe)) - (__SRC__% __tmp111797 _%stx110245%_)))) - (_%compile-values110248%_ - (lambda (_%hd-ids110355%_ _%exprs110356%_ _%body110357%_) - (let _%lp110359%_ ((_%rest110361%_ _%hd-ids110355%_) - (_%exprs110362%_ _%exprs110356%_) - (_%pre110363%_ '()) - (_%bind110364%_ '()) - (_%post110365%_ '())) - (let* ((_%rest110366110380%_ _%rest110361%_) - (_%else110369110388%_ - (lambda () - (let () - (declare (not safe)) - (_%compile-inner110249%_ - _%pre110363%_ - _%bind110364%_ - _%post110365%_ - _%body110357%_))))) - (let ((_%K110374110427%_ - (lambda (_%rest110424%_ _%id110425%_) - (let ((__tmp111800 (cdr _%exprs110362%_)) - (__tmp111799 - (cons (cons (let () - (declare (not safe)) - (__compile-head-id - _%id110425%_)) - (cons (car _%exprs110362%_) - '())) - _%bind110364%_))) + (lambda (_%stx109583%_) + (letrec ((_%compile-simple109585%_ + (lambda (_%hd-ids109782%_ _%exprs109783%_ _%body109784%_) + (__SRC__% + (cons 'letrec + (cons (let ((__tmp111094 + (map __compile-head-id + _%hd-ids109782%_))) (declare (not safe)) - (_%lp110359%_ - _%rest110424%_ - __tmp111800 - _%pre110363%_ - __tmp111799 - _%post110365%_)))) - (_%K110371110409%_ - (lambda (_%rest110392%_ _%hd110393%_) + (##map list __tmp111094 _%exprs109783%_)) + (cons _%body109784%_ '()))) + _%stx109583%_))) + (_%compile-values109586%_ + (lambda (_%hd-ids109693%_ _%exprs109694%_ _%body109695%_) + (let _%lp109697%_ ((_%rest109699%_ _%hd-ids109693%_) + (_%exprs109700%_ _%exprs109694%_) + (_%pre109701%_ '()) + (_%bind109702%_ '()) + (_%post109703%_ '())) + (let* ((_%rest109704109718%_ _%rest109699%_) + (_%else109707109726%_ + (lambda () + (_%compile-inner109587%_ + _%pre109701%_ + _%bind109702%_ + _%post109703%_ + _%body109695%_)))) + (let ((_%K109712109765%_ + (lambda (_%rest109762%_ _%id109763%_) + (_%lp109697%_ + _%rest109762%_ + (cdr _%exprs109700%_) + _%pre109701%_ + (cons (cons (__compile-head-id _%id109763%_) + (cons (car _%exprs109700%_) '())) + _%bind109702%_) + _%post109703%_))) + (_%K109709109747%_ + (lambda (_%rest109730%_ _%hd109731%_) (if (let () (declare (not safe)) - (__AST-id? _%hd110393%_)) - (let ((__tmp111802 (cdr _%exprs110362%_)) - (__tmp111801 - (cons (cons (let () - (declare (not safe)) - (__compile-head-id - _%hd110393%_)) - (cons (cons 'values->list + (__AST-id? _%hd109731%_)) + (_%lp109697%_ + _%rest109730%_ + (cdr _%exprs109700%_) + _%pre109701%_ + (cons (cons (__compile-head-id + _%hd109731%_) + (cons (cons 'values->list + (cons (car _%exprs109700%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (car _%exprs110362%_) '())) - '())) + '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind110364%_))) - (declare (not safe)) - (_%lp110359%_ - _%rest110392%_ - __tmp111802 - _%pre110363%_ - __tmp111801 - _%post110365%_)) - (if (let () - (declare (not safe)) - (list? _%hd110393%_)) - (let () - (let* ((_%len110397%_ - (length _%hd110393%_)) - (_%tmp110399%_ - (let ((__tmp111803 - (let () - (declare - (not safe)) - (##gensym)))) - (declare (not safe)) - (__SRC__0 __tmp111803)))) - (let ((__tmp111812 - (cdr _%exprs110362%_)) - (__tmp111810 - (let ((__tmp111811 - (lambda (_%id110402%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r110403%_) - (if (let () (declare (not safe)) (__AST-e _%id110402%_)) - (cons (cons (let () - (declare (not safe)) - (__SRC__0 _%id110402%_)) - (cons (cons 'quote (cons '#!void '())) - '())) - _%r110403%_) - _%r110403%_)))) - (declare (not safe)) - (__foldl1 __tmp111811 _%pre110363%_ _%hd110393%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp111809 - (cons (cons _%tmp110399%_ - (cons (car _%exprs110362%_) + _%bind109702%_) + _%post109703%_) + (if (list? _%hd109731%_) + (let* ((_%len109735%_ + (length _%hd109731%_)) + (_%tmp109737%_ + (__SRC__0 + (let () + (declare (not safe)) + (##gensym))))) + (_%lp109697%_ + _%rest109730%_ + (cdr _%exprs109700%_) + (let ((__tmp111095 + (lambda (_%id109740%_ + _%r109741%_) + (if (let () + (declare (not safe)) + (__AST-e _%id109740%_)) + (cons (cons (__SRC__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - _%bind110364%_)) + _%id109740%_) + (cons (cons 'quote (cons '#!void '())) '())) + _%r109741%_) + _%r109741%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp111804 - (cons (let ((__tmp111805 + (declare (not safe)) + (__foldl1 + __tmp111095 + _%pre109701%_ + _%hd109731%_)) + (cons (cons _%tmp109737%_ + (cons (car _%exprs109700%_) + '())) + _%bind109702%_) + (cons (cons _%tmp109737%_ + (cons _%len109735%_ + (let ((__tmp111097 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111806 - (let ((__tmp111808 - (lambda (_%id110405%_ _%k110406%_) - (if (let () - (declare (not safe)) - (__AST-e _%id110405%_)) - (cons (let () - (declare (not safe)) - (__SRC__0 _%id110405%_)) - _%k110406%_) - '#f))) - (__tmp111807 - (let () - (declare (not safe)) - (##iota _%len110397%_)))) - (declare (not safe)) - (__filter-map2 - __tmp111808 - _%hd110393%_ - __tmp111807)))) - (declare (not safe)) - (cons _%len110397%_ __tmp111806)))) - (declare (not safe)) - (cons _%tmp110399%_ __tmp111805)) - _%post110365%_))) + (lambda (_%id109743%_ _%k109744%_) + (if (let () + (declare (not safe)) + (__AST-e _%id109743%_)) + (cons (__SRC__0 _%id109743%_) _%k109744%_) + '#f))) + (__tmp111096 + (let () + (declare (not safe)) + (##iota _%len109735%_)))) + (declare (not safe)) + (__filter-map2 __tmp111097 _%hd109731%_ __tmp111096)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp110359%_ - _%rest110392%_ - __tmp111812 - __tmp111810 - __tmp111809 - __tmp111804)))) - (let () - (declare (not safe)) - (__compile-error__% - _%stx110245%_ - _%hd110393%_))))))) + _%post109703%_))) + (__compile-error__% + _%stx109583%_ + _%hd109731%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest110366110380%_)) - (let ((_%tl110376110432%_ + (##pair? _%rest109704109718%_)) + (let ((_%tl109714109770%_ (let () (declare (not safe)) - (##cdr _%rest110366110380%_))) - (_%hd110375110430%_ + (##cdr _%rest109704109718%_))) + (_%hd109713109768%_ (let () (declare (not safe)) - (##car _%rest110366110380%_)))) + (##car _%rest109704109718%_)))) (if (let () (declare (not safe)) - (##pair? _%hd110375110430%_)) - (let ((_%tl110378110437%_ + (##pair? _%hd109713109768%_)) + (let ((_%tl109716109775%_ (let () (declare (not safe)) - (##cdr _%hd110375110430%_))) - (_%hd110377110435%_ + (##cdr _%hd109713109768%_))) + (_%hd109715109773%_ (let () (declare (not safe)) - (##car _%hd110375110430%_)))) + (##car _%hd109713109768%_)))) (if (let () (declare (not safe)) - (##null? _%tl110378110437%_)) - (let ((_%id110440%_ - _%hd110377110435%_) - (_%rest110442%_ - _%tl110376110432%_)) - (let () - (declare (not safe)) - (_%K110374110427%_ - _%rest110442%_ - _%id110440%_))) - (let ((_%hd110417%_ - _%hd110375110430%_) - (_%rest110419%_ - _%tl110376110432%_)) - (let () - (declare (not safe)) - (_%K110371110409%_ - _%rest110419%_ - _%hd110417%_))))) - (let ((_%hd110417%_ _%hd110375110430%_) - (_%rest110419%_ _%tl110376110432%_)) - (let () - (declare (not safe)) - (_%K110371110409%_ - _%rest110419%_ - _%hd110417%_))))) - (let () - (declare (not safe)) - (_%else110369110388%_)))))))) - (_%compile-inner110249%_ - (lambda (_%pre110350%_ - _%bind110351%_ - _%post110352%_ - _%body110353%_) - (if (let () (declare (not safe)) (null? _%pre110350%_)) - (let () - (declare (not safe)) - (_%compile-bind110250%_ - _%bind110351%_ - _%post110352%_ - _%body110353%_)) - (let ((__tmp111813 - (cons 'let - (cons (reverse _%pre110350%_) - (cons (let () - (declare (not safe)) - (_%compile-bind110250%_ - _%bind110351%_ - _%post110352%_ - _%body110353%_)) - '()))))) - (declare (not safe)) - (__SRC__% __tmp111813 _%stx110245%_))))) - (_%compile-bind110250%_ - (lambda (_%bind110346%_ _%post110347%_ _%body110348%_) - (let ((__tmp111814 - (cons 'letrec - (cons (reverse _%bind110346%_) - (cons (let () - (declare (not safe)) - (_%compile-post110251%_ - _%post110347%_ - _%body110348%_)) - '()))))) - (declare (not safe)) - (__SRC__% __tmp111814 _%stx110245%_)))) - (_%compile-post110251%_ - (lambda (_%post110253%_ _%body110254%_) - (let _%lp110256%_ ((_%rest110258%_ _%post110253%_) - (_%check110259%_ '()) - (_%bind110260%_ '())) - (let* ((_%rest110261110273%_ _%rest110258%_) - (_%else110263110281%_ + (##null? _%tl109716109775%_)) + (let ((_%id109778%_ + _%hd109715109773%_) + (_%rest109780%_ + _%tl109714109770%_)) + (_%K109712109765%_ + _%rest109780%_ + _%id109778%_)) + (let ((_%hd109755%_ + _%hd109713109768%_) + (_%rest109757%_ + _%tl109714109770%_)) + (_%K109709109747%_ + _%rest109757%_ + _%hd109755%_)))) + (let ((_%hd109755%_ _%hd109713109768%_) + (_%rest109757%_ _%tl109714109770%_)) + (_%K109709109747%_ + _%rest109757%_ + _%hd109755%_)))) + (_%else109707109726%_))))))) + (_%compile-inner109587%_ + (lambda (_%pre109688%_ + _%bind109689%_ + _%post109690%_ + _%body109691%_) + (if (null? _%pre109688%_) + (_%compile-bind109588%_ + _%bind109689%_ + _%post109690%_ + _%body109691%_) + (__SRC__% + (cons 'let + (cons (reverse _%pre109688%_) + (cons (_%compile-bind109588%_ + _%bind109689%_ + _%post109690%_ + _%body109691%_) + '()))) + _%stx109583%_)))) + (_%compile-bind109588%_ + (lambda (_%bind109684%_ _%post109685%_ _%body109686%_) + (__SRC__% + (cons 'letrec + (cons (reverse _%bind109684%_) + (cons (_%compile-post109589%_ + _%post109685%_ + _%body109686%_) + '()))) + _%stx109583%_))) + (_%compile-post109589%_ + (lambda (_%post109591%_ _%body109592%_) + (let _%lp109594%_ ((_%rest109596%_ _%post109591%_) + (_%check109597%_ '()) + (_%bind109598%_ '())) + (let* ((_%rest109599109611%_ _%rest109596%_) + (_%else109601109619%_ (lambda () - (let ((__tmp111815 - (cons 'begin - (let ((__tmp111816 - (let ((__tmp111817 - (cons _%body110254%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) - (declare (not safe)) - (__foldr1 cons __tmp111817 _%bind110260%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr1 - cons - __tmp111816 - _%check110259%_))))) - (declare (not safe)) - (__SRC__% __tmp111815 _%stx110245%_)))) - (_%K110265110320%_ - (lambda (_%rest110284%_ - _%init110285%_ - _%len110286%_ - _%tmp110287%_) - (let ((__tmp111820 - (cons (let ((__tmp111821 - (cons '__check-values - (cons _%tmp110287%_ - (cons _%len110286%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__SRC__% - __tmp111821 - _%stx110245%_)) - _%check110259%_)) - (__tmp111818 - (let ((__tmp111819 - (lambda (_%hd110289%_ - _%r110290%_) - (let* ((_%hd110291110298%_ - _%hd110289%_) - (_%E110293110302%_ - (lambda () - (let () - (declare - (not safe)) - (error '"No clause matching" -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd110291110298%_ - '([id . k]))) - '#!void)) - (_%K110294110308%_ - (lambda (_%k110305%_ _%id110306%_) - (cons (cons 'set! - (cons _%id110306%_ - (cons (cons '##vector-ref - (cons _%tmp110287%_ - (cons _%k110305%_ '()))) - '()))) - _%r110290%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%hd110291110298%_)) - (let ((_%hd110295110311%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _%hd110291110298%_))) - (_%tl110296110313%_ - (let () (declare (not safe)) (##cdr _%hd110291110298%_)))) - (let* ((_%id110316%_ _%hd110295110311%_) - (_%k110318%_ _%tl110296110313%_)) - (declare (not safe)) - (_%K110294110308%_ _%k110318%_ _%id110316%_))) - (let () (declare (not safe)) (_%E110293110302%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__SRC__% + (cons 'begin + (let ((__tmp111098 + (let ((__tmp111099 + (cons _%body109592%_ + '()))) + (declare (not safe)) + (__foldr1 + cons + __tmp111099 + _%bind109598%_)))) (declare (not safe)) (__foldr1 - __tmp111819 - _%bind110260%_ - _%init110285%_)))) - (declare (not safe)) - (_%lp110256%_ - _%rest110284%_ - __tmp111820 - __tmp111818))))) + cons + __tmp111098 + _%check109597%_))) + _%stx109583%_))) + (_%K109603109658%_ + (lambda (_%rest109622%_ + _%init109623%_ + _%len109624%_ + _%tmp109625%_) + (_%lp109594%_ + _%rest109622%_ + (cons (__SRC__% + (cons '__check-values + (cons _%tmp109625%_ + (cons _%len109624%_ '()))) + _%stx109583%_) + _%check109597%_) + (let ((__tmp111100 + (lambda (_%hd109627%_ _%r109628%_) + (let* ((_%hd109629109636%_ + _%hd109627%_) + (_%E109631109640%_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" + _%hd109629109636%_ + '([id . k]))) + '#!void)) + (_%K109632109646%_ + (lambda (_%k109643%_ + _%id109644%_) + (cons (cons 'set! + (cons _%id109644%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons '##vector-ref + (cons _%tmp109625%_ + (cons _%k109643%_ '()))) + '()))) + _%r109628%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (let () + (declare (not safe)) + (##pair? _%hd109629109636%_)) + (let ((_%hd109633109649%_ + (let () + (declare (not safe)) + (##car _%hd109629109636%_))) + (_%tl109634109651%_ + (let () + (declare (not safe)) + (##cdr _%hd109629109636%_)))) + (let* ((_%id109654%_ + _%hd109633109649%_) + (_%k109656%_ + _%tl109634109651%_)) + (_%K109632109646%_ + _%k109656%_ + _%id109654%_))) + (_%E109631109640%_)))))) + (declare (not safe)) + (__foldr1 + __tmp111100 + _%bind109598%_ + _%init109623%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest110261110273%_)) - (let ((_%hd110266110323%_ + (##pair? _%rest109599109611%_)) + (let ((_%hd109604109661%_ (let () (declare (not safe)) - (##car _%rest110261110273%_))) - (_%tl110267110325%_ + (##car _%rest109599109611%_))) + (_%tl109605109663%_ (let () (declare (not safe)) - (##cdr _%rest110261110273%_)))) + (##cdr _%rest109599109611%_)))) (if (let () (declare (not safe)) - (##pair? _%hd110266110323%_)) - (let ((_%hd110268110328%_ + (##pair? _%hd109604109661%_)) + (let ((_%hd109606109666%_ (let () (declare (not safe)) - (##car _%hd110266110323%_))) - (_%tl110269110330%_ + (##car _%hd109604109661%_))) + (_%tl109607109668%_ (let () (declare (not safe)) - (##cdr _%hd110266110323%_)))) - (let ((_%tmp110333%_ _%hd110268110328%_)) + (##cdr _%hd109604109661%_)))) + (let ((_%tmp109671%_ _%hd109606109666%_)) (if (let () (declare (not safe)) - (##pair? _%tl110269110330%_)) - (let ((_%hd110270110335%_ + (##pair? _%tl109607109668%_)) + (let ((_%hd109608109673%_ (let () (declare (not safe)) - (##car _%tl110269110330%_))) - (_%tl110271110337%_ + (##car _%tl109607109668%_))) + (_%tl109609109675%_ (let () (declare (not safe)) - (##cdr _%tl110269110330%_)))) - (let* ((_%len110340%_ - _%hd110270110335%_) - (_%init110342%_ - _%tl110271110337%_) - (_%rest110344%_ - _%tl110267110325%_)) - (declare (not safe)) - (_%K110265110320%_ - _%rest110344%_ - _%init110342%_ - _%len110340%_ - _%tmp110333%_))) - (let () - (declare (not safe)) - (_%else110263110281%_))))) - (let () - (declare (not safe)) - (_%else110263110281%_)))) - (let () - (declare (not safe)) - (_%else110263110281%_)))))))) - (let () - (declare (not safe)) - (__compile-let-form - _%stx110245%_ - _%compile-simple110247%_ - _%compile-values110248%_))))) + (##cdr _%tl109607109668%_)))) + (let* ((_%len109678%_ + _%hd109608109673%_) + (_%init109680%_ + _%tl109609109675%_) + (_%rest109682%_ + _%tl109605109663%_)) + (_%K109603109658%_ + _%rest109682%_ + _%init109680%_ + _%len109678%_ + _%tmp109671%_))) + (_%else109601109619%_)))) + (_%else109601109619%_))) + (_%else109601109619%_))))))) + (__compile-let-form + _%stx109583%_ + _%compile-simple109585%_ + _%compile-values109586%_)))) (define __compile-letrec*-values% - (lambda (_%stx109996%_) - (letrec ((_%compile-simple109998%_ - (lambda (_%hd-ids110241%_ _%exprs110242%_ _%body110243%_) - (let ((__tmp111822 - (cons 'letrec* - (cons (let ((__tmp111823 - (map __compile-head-id - _%hd-ids110241%_))) - (declare (not safe)) - (##map list - __tmp111823 - _%exprs110242%_)) - (cons _%body110243%_ '()))))) - (declare (not safe)) - (__SRC__% __tmp111822 _%stx109996%_)))) - (_%compile-values109999%_ - (lambda (_%hd-ids110148%_ _%exprs110149%_ _%body110150%_) - (let _%lp110152%_ ((_%rest110154%_ _%hd-ids110148%_) - (_%exprs110155%_ _%exprs110149%_) - (_%bind110156%_ '()) - (_%post110157%_ '())) - (let* ((_%rest110158110172%_ _%rest110154%_) - (_%else110161110180%_ + (lambda (_%stx109334%_) + (letrec ((_%compile-simple109336%_ + (lambda (_%hd-ids109579%_ _%exprs109580%_ _%body109581%_) + (__SRC__% + (cons 'letrec* + (cons (let ((__tmp111101 + (map __compile-head-id + _%hd-ids109579%_))) + (declare (not safe)) + (##map list __tmp111101 _%exprs109580%_)) + (cons _%body109581%_ '()))) + _%stx109334%_))) + (_%compile-values109337%_ + (lambda (_%hd-ids109486%_ _%exprs109487%_ _%body109488%_) + (let _%lp109490%_ ((_%rest109492%_ _%hd-ids109486%_) + (_%exprs109493%_ _%exprs109487%_) + (_%bind109494%_ '()) + (_%post109495%_ '())) + (let* ((_%rest109496109510%_ _%rest109492%_) + (_%else109499109518%_ (lambda () - (let () - (declare (not safe)) - (_%compile-bind110000%_ - _%bind110156%_ - _%post110157%_ - _%body110150%_))))) - (let ((_%K110166110224%_ - (lambda (_%rest110219%_ _%hd110220%_) + (_%compile-bind109338%_ + _%bind109494%_ + _%post109495%_ + _%body109488%_)))) + (let ((_%K109504109562%_ + (lambda (_%rest109557%_ _%hd109558%_) (if (let () (declare (not safe)) - (__AST-id? _%hd110220%_)) - (let ((_%id110222%_ - (let () - (declare (not safe)) - (__SRC__0 _%hd110220%_)))) - (let ((__tmp111826 - (cdr _%exprs110155%_)) - (__tmp111825 - (cons (cons _%id110222%_ - (cons (cons 'quote + (__AST-id? _%hd109558%_)) + (let ((_%id109560%_ + (__SRC__0 _%hd109558%_))) + (_%lp109490%_ + _%rest109557%_ + (cdr _%exprs109493%_) + (cons (cons _%id109560%_ + (cons (cons 'quote + (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '#!void '())) - '())) + '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind110156%_)) - (__tmp111824 - (cons (cons _%id110222%_ - (cons (car _%exprs110155%_) - '())) - _%post110157%_))) - (declare (not safe)) - (_%lp110152%_ - _%rest110219%_ - __tmp111826 - __tmp111825 - __tmp111824))) - (let ((__tmp111828 (cdr _%exprs110155%_)) - (__tmp111827 - (cons (cons '#f - (cons (car _%exprs110155%_) - '())) - _%post110157%_))) - (declare (not safe)) - (_%lp110152%_ - _%rest110219%_ - __tmp111828 - _%bind110156%_ - __tmp111827))))) - (_%K110163110204%_ - (lambda (_%rest110184%_ _%hd110185%_) + _%bind109494%_) + (cons (cons _%id109560%_ + (cons (car _%exprs109493%_) + '())) + _%post109495%_))) + (_%lp109490%_ + _%rest109557%_ + (cdr _%exprs109493%_) + _%bind109494%_ + (cons (cons '#f + (cons (car _%exprs109493%_) + '())) + _%post109495%_))))) + (_%K109501109542%_ + (lambda (_%rest109522%_ _%hd109523%_) (if (let () (declare (not safe)) - (__AST-id? _%hd110185%_)) - (let ((_%id110188%_ - (let () - (declare (not safe)) - (__SRC__0 _%hd110185%_)))) - (let ((__tmp111831 - (cdr _%exprs110155%_)) - (__tmp111830 - (cons (cons _%id110188%_ - (cons (cons 'quote + (__AST-id? _%hd109523%_)) + (let ((_%id109526%_ + (__SRC__0 _%hd109523%_))) + (_%lp109490%_ + _%rest109522%_ + (cdr _%exprs109493%_) + (cons (cons _%id109526%_ + (cons (cons 'quote + (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '#!void '())) - '())) + '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind110156%_)) - (__tmp111829 - (cons (cons _%id110188%_ - (cons (cons 'values->list + _%bind109494%_) + (cons (cons _%id109526%_ + (cons (cons 'values->list + (cons (car _%exprs109493%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (car _%exprs110155%_) '())) - '())) + '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post110157%_))) - (declare (not safe)) - (_%lp110152%_ - _%rest110184%_ - __tmp111831 - __tmp111830 - __tmp111829))) - (if (let ((__tmp111832 - (let () - (declare (not safe)) - (__AST-e _%hd110185%_)))) - (declare (not safe)) - (not __tmp111832)) - (let ((__tmp111834 - (cdr _%exprs110155%_)) - (__tmp111833 - (cons (cons '#f - (cons (car _%exprs110155%_) + _%post109495%_))) + (if (not (let () + (declare (not safe)) + (__AST-e _%hd109523%_))) + (_%lp109490%_ + _%rest109522%_ + (cdr _%exprs109493%_) + _%bind109494%_ + (cons (cons '#f + (cons (car _%exprs109493%_) + '())) + _%post109495%_)) + (if (list? _%hd109523%_) + (let* ((_%len109530%_ + (length _%hd109523%_)) + (_%tmp109532%_ + (__SRC__0 + (let () + (declare (not safe)) + (##gensym))))) + (_%lp109490%_ + _%rest109522%_ + (cdr _%exprs109493%_) + (let ((__tmp111102 + (lambda (_%id109535%_ + _%r109536%_) + (if (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - _%post110157%_))) + (not safe)) + (__AST-e _%id109535%_)) + (cons (cons (__SRC__0 _%id109535%_) + (cons (cons 'quote (cons '#!void '())) '())) + _%r109536%_) + _%r109536%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp110152%_ - _%rest110184%_ - __tmp111834 - _%bind110156%_ - __tmp111833)) + (declare (not safe)) + (__foldl1 + __tmp111102 + _%bind109494%_ + _%hd109523%_)) + (cons (cons _%tmp109532%_ + (cons (car _%exprs109493%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%len109530%_ + (let ((__tmp111104 + (lambda (_%id109538%_ _%k109539%_) (if (let () (declare (not safe)) - (list? _%hd110185%_)) - (let () - (let* ((_%len110192%_ - (length _%hd110185%_)) - (_%tmp110194%_ - (let ((__tmp111835 - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##gensym)))) - (declare (not safe)) - (__SRC__0 __tmp111835)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp111845 - (cdr _%exprs110155%_)) - (__tmp111843 - (let ((__tmp111844 - (lambda (_%id110197%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r110198%_) - (if (let () - (declare (not safe)) - (__AST-e _%id110197%_)) - (cons (cons (let () - (declare (not safe)) - (__SRC__0 _%id110197%_)) - (cons (cons 'quote (cons '#!void '())) - '())) - _%r110198%_) - _%r110198%_)))) - (declare (not safe)) - (__foldl1 __tmp111844 _%bind110156%_ _%hd110185%_))) - (__tmp111836 - (cons (let ((__tmp111837 - (let ((__tmp111842 (car _%exprs110155%_)) - (__tmp111838 - (let ((__tmp111839 - (let ((__tmp111841 - (lambda (_%id110200%_ - _%k110201%_) - (if (let () - (declare (not safe)) - (__AST-e _%id110200%_)) - (cons (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (__SRC__0 _%id110200%_)) - _%k110201%_) - '#f))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp111840 - (let () - (declare (not safe)) - (##iota _%len110192%_)))) - (declare (not safe)) - (__filter-map2 - __tmp111841 - _%hd110185%_ - __tmp111840)))) - (declare (not safe)) - (cons _%len110192%_ __tmp111839)))) - (declare (not safe)) - (cons __tmp111842 __tmp111838)))) - (declare (not safe)) - (cons _%tmp110194%_ __tmp111837)) - _%post110157%_))) + (__AST-e _%id109538%_)) + (cons (__SRC__0 _%id109538%_) + _%k109539%_) + '#f))) + (__tmp111103 + (let () + (declare (not safe)) + (##iota _%len109530%_)))) + (declare (not safe)) + (__filter-map2 + __tmp111104 + _%hd109523%_ + __tmp111103))))) + _%post109495%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_%lp110152%_ - _%rest110184%_ - __tmp111845 - __tmp111843 - __tmp111836)))) - (let () - (declare (not safe)) - (__compile-error__% - _%stx109996%_ - _%hd110185%_)))))))) + (__compile-error__% + _%stx109334%_ + _%hd109523%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest110158110172%_)) - (let ((_%tl110168110229%_ + (##pair? _%rest109496109510%_)) + (let ((_%tl109506109567%_ (let () (declare (not safe)) - (##cdr _%rest110158110172%_))) - (_%hd110167110227%_ + (##cdr _%rest109496109510%_))) + (_%hd109505109565%_ (let () (declare (not safe)) - (##car _%rest110158110172%_)))) + (##car _%rest109496109510%_)))) (if (let () (declare (not safe)) - (##pair? _%hd110167110227%_)) - (let ((_%tl110170110234%_ + (##pair? _%hd109505109565%_)) + (let ((_%tl109508109572%_ (let () (declare (not safe)) - (##cdr _%hd110167110227%_))) - (_%hd110169110232%_ + (##cdr _%hd109505109565%_))) + (_%hd109507109570%_ (let () (declare (not safe)) - (##car _%hd110167110227%_)))) + (##car _%hd109505109565%_)))) (if (let () (declare (not safe)) - (##null? _%tl110170110234%_)) - (let ((_%hd110237%_ - _%hd110169110232%_) - (_%rest110239%_ - _%tl110168110229%_)) - (let () - (declare (not safe)) - (_%K110166110224%_ - _%rest110239%_ - _%hd110237%_))) - (let ((_%hd110212%_ - _%hd110167110227%_) - (_%rest110214%_ - _%tl110168110229%_)) - (let () - (declare (not safe)) - (_%K110163110204%_ - _%rest110214%_ - _%hd110212%_))))) - (let ((_%hd110212%_ _%hd110167110227%_) - (_%rest110214%_ _%tl110168110229%_)) - (let () - (declare (not safe)) - (_%K110163110204%_ - _%rest110214%_ - _%hd110212%_))))) - (let () - (declare (not safe)) - (_%else110161110180%_)))))))) - (_%compile-bind110000%_ - (lambda (_%bind110144%_ _%post110145%_ _%body110146%_) - (let ((__tmp111846 - (cons 'let - (cons (reverse _%bind110144%_) - (cons (let () - (declare (not safe)) - (_%compile-post110001%_ - _%post110145%_ - _%body110146%_)) - '()))))) - (declare (not safe)) - (__SRC__% __tmp111846 _%stx109996%_)))) - (_%compile-post110001%_ - (lambda (_%post110003%_ _%body110004%_) - (let ((__tmp111847 - (cons 'begin - (let ((__tmp111848 - (let ((__tmp111850 - (lambda (_%hd110006%_ - _%r110007%_) - (let* ((_%hd110008110031%_ - _%hd110006%_) - (_%E110012110035%_ - (lambda () - (let () - (declare - (not safe)) - (error '"No clause matching" + (##null? _%tl109508109572%_)) + (let ((_%hd109575%_ + _%hd109507109570%_) + (_%rest109577%_ + _%tl109506109567%_)) + (_%K109504109562%_ + _%rest109577%_ + _%hd109575%_)) + (let ((_%hd109550%_ + _%hd109505109565%_) + (_%rest109552%_ + _%tl109506109567%_)) + (_%K109501109542%_ + _%rest109552%_ + _%hd109550%_)))) + (let ((_%hd109550%_ _%hd109505109565%_) + (_%rest109552%_ _%tl109506109567%_)) + (_%K109501109542%_ + _%rest109552%_ + _%hd109550%_)))) + (_%else109499109518%_))))))) + (_%compile-bind109338%_ + (lambda (_%bind109482%_ _%post109483%_ _%body109484%_) + (__SRC__% + (cons 'let + (cons (reverse _%bind109482%_) + (cons (_%compile-post109339%_ + _%post109483%_ + _%body109484%_) + '()))) + _%stx109334%_))) + (_%compile-post109339%_ + (lambda (_%post109341%_ _%body109342%_) + (__SRC__% + (cons 'begin + (let ((__tmp111105 + (let ((__tmp111107 + (lambda (_%hd109344%_ _%r109345%_) + (let* ((_%hd109346109369%_ + _%hd109344%_) + (_%E109350109373%_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" + _%hd109346109369%_ + '([#f expr]) + '([id expr]) + '([tmp ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd110008110031%_ - '([#f expr]) - '([id expr]) - '([tmp expr len . init]))) - '#!void))) + expr + len + . + init]))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%K110025110129%_ - (lambda (_%expr110127%_) - (cons _%expr110127%_ + '#!void))) + (let ((_%K109363109467%_ + (lambda (_%expr109465%_) + (cons _%expr109465%_ + _%r109345%_))) + (_%K109358109445%_ + (lambda (_%expr109442%_ + _%id109443%_) + (cons (__SRC__% + (cons 'set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r110007%_))) - (_%K110020110107%_ - (lambda (_%expr110104%_ _%id110105%_) - (cons (let ((__tmp111851 - (cons 'set! - (cons _%id110105%_ - (cons _%expr110104%_ '()))))) - (declare (not safe)) - (__SRC__% __tmp111851 _%stx109996%_)) - _%r110007%_))) - (_%K110013110074%_ - (lambda (_%init110039%_ - _%len110040%_ - _%expr110041%_ - _%tmp110042%_) - (cons (let ((__tmp111852 - (cons 'let - (cons (cons (cons _%tmp110042%_ - (cons _%expr110041%_ - '())) - '()) - (cons (let ((__tmp111853 - (cons '__check-values - (cons _%tmp110042%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len110040%_ '()))))) + (cons _%id109443%_ (cons _%expr109442%_ '()))) + _%stx109334%_) + _%r109345%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__SRC__% - __tmp111853 - _%stx109996%_)) - (let ((__tmp111854 - (map (lambda (_%hd110044%_) + (_%K109351109412%_ + (lambda (_%init109377%_ + _%len109378%_ + _%expr109379%_ + _%tmp109380%_) + (cons (__SRC__% + (cons 'let ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%hd110045110052%_ _%hd110044%_) - (_%E110047110056%_ - (lambda () - (let () - (declare (not safe)) - (error '"No clause matching" - _%hd110045110052%_ - '([id . k]))) - '#!void)) - (_%K110048110062%_ - (lambda (_%k110059%_ _%id110060%_) - (let ((__tmp111855 - (cons 'set! - (cons _%id110060%_ - (cons (cons '##vector-ref -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%tmp110042%_ (cons _%k110059%_ '()))) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__SRC__% __tmp111855 _%stx109996%_))))) - (if (let () - (declare (not safe)) - (##pair? _%hd110045110052%_)) - (let ((_%hd110049110065%_ - (let () - (declare (not safe)) - (##car _%hd110045110052%_))) - (_%tl110050110067%_ - (let () - (declare (not safe)) - (##cdr _%hd110045110052%_)))) - (let* ((_%id110070%_ _%hd110049110065%_) - (_%k110072%_ _%tl110050110067%_)) - (declare (not safe)) - (_%K110048110062%_ - _%k110072%_ - _%id110070%_))) - (let () - (declare (not safe)) - (_%E110047110056%_))))) - _%init110039%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr1 - cons - '() - __tmp111854))))))) - (declare (not safe)) - (__SRC__% __tmp111852 _%stx109996%_)) - _%r110007%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match111623111624%_ - (lambda (_%hd110014110077%_ + (cons (cons (cons _%tmp109380%_ + (cons _%expr109379%_ '())) + '()) + (cons (__SRC__% + (cons '__check-values + (cons _%tmp109380%_ + (cons _%len109378%_ '()))) + _%stx109334%_) + (let ((__tmp111108 + (map (lambda (_%hd109382%_) + (let* ((_%hd109383109390%_ + _%hd109382%_) + (_%E109385109394%_ + (lambda () + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl110015110079%_ - _%hd110016110084%_ - _%tl110017110086%_) - (let ((_%tmp110082%_ _%hd110014110077%_) - (_%expr110089%_ _%hd110016110084%_)) - (let () (declare (not safe)) (_%E110012110035%_))))) - (_%__match111617111618%_ - (lambda (_%hd110014110077%_ _%tl110015110079%_) - (let ((_%tmp110082%_ _%hd110014110077%_)) (declare (not safe)) - (_%E110012110035%_))))) - (if (let () (declare (not safe)) (##pair? _%hd110008110031%_)) - (let ((_%tl110027110134%_ + (error '"No clause matching" + _%hd109383109390%_ + '([id . k]))) + '#!void)) + (_%K109386109400%_ + (lambda (_%k109397%_ _%id109398%_) + (__SRC__% + (cons 'set! + (cons _%id109398%_ + (cons (cons '##vector-ref + (cons _%tmp109380%_ + (cons _%k109397%_ '()))) + '()))) + _%stx109334%_)))) + (if (let () (declare (not safe)) (##pair? _%hd109383109390%_)) + (let ((_%hd109387109403%_ (let () (declare (not safe)) - (##cdr _%hd110008110031%_))) - (_%hd110026110132%_ + (##car _%hd109383109390%_))) + (_%tl109388109405%_ (let () (declare (not safe)) - (##car _%hd110008110031%_)))) - (if (let () - (declare (not safe)) - (##eq? _%hd110026110132%_ '#f)) - (if (let () - (declare (not safe)) - (##pair? _%tl110027110134%_)) - (let ((_%tl110029110139%_ - (let () - (declare (not safe)) - (##cdr _%tl110027110134%_))) - (_%hd110028110137%_ - (let () - (declare (not safe)) - (##car _%tl110027110134%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl110029110139%_)) - (let ((_%expr110142%_ _%hd110028110137%_)) - (declare (not safe)) - (_%K110025110129%_ _%expr110142%_)) - (if (let () + (##cdr _%hd109383109390%_)))) + (let* ((_%id109408%_ _%hd109387109403%_) + (_%k109410%_ _%tl109388109405%_)) + (_%K109386109400%_ _%k109410%_ _%id109408%_))) + (_%E109385109394%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%init109377%_))) (declare (not safe)) - (##pair? _%tl110029110139%_)) - (let ((_%tl110019110093%_ - (let () - (declare (not safe)) - (##cdr _%tl110029110139%_))) - (_%hd110018110091%_ - (let () - (declare (not safe)) - (##car _%tl110029110139%_)))) - (let ((_%tmp110082%_ - _%hd110026110132%_) - (_%expr110089%_ - _%hd110028110137%_) - (_%len110096%_ - _%hd110018110091%_) - (_%init110098%_ - _%tl110019110093%_)) - (let () - (declare (not safe)) - (_%K110013110074%_ - _%init110098%_ - _%len110096%_ - _%expr110089%_ - _%tmp110082%_)))) - (_%__match111623111624%_ - _%hd110026110132%_ - _%tl110027110134%_ - _%hd110028110137%_ - _%tl110029110139%_)))) - (_%__match111617111618%_ - _%hd110026110132%_ - _%tl110027110134%_)) + (__foldr1 cons '() __tmp111108))))) + _%stx109334%_) + _%r109345%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let* ((_%__match110961110962%_ + (lambda (_%hd109352109415%_ + _%tl109353109417%_ + _%hd109354109422%_ + _%tl109355109424%_) + (let ((_%tmp109420%_ + _%hd109352109415%_) + (_%expr109427%_ + _%hd109354109422%_)) + (_%E109350109373%_)))) + (_%__match110955110956%_ + (lambda (_%hd109352109415%_ + _%tl109353109417%_) + (let ((_%tmp109420%_ + _%hd109352109415%_)) + (_%E109350109373%_))))) + (if (let () + (declare (not safe)) + (##pair? _%hd109346109369%_)) + (let ((_%tl109365109472%_ + (let () + (declare + (not safe)) + (##cdr _%hd109346109369%_))) + (_%hd109364109470%_ + (let () + (declare + (not safe)) + (##car _%hd109346109369%_)))) + (if (let () + (declare + (not safe)) + (##eq? _%hd109364109470%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f)) + (if (let () + (declare (not safe)) + (##pair? _%tl109365109472%_)) + (let ((_%tl109367109477%_ + (let () + (declare (not safe)) + (##cdr _%tl109365109472%_))) + (_%hd109366109475%_ + (let () + (declare (not safe)) + (##car _%tl109365109472%_)))) (if (let () (declare (not safe)) - (##pair? _%tl110027110134%_)) - (let ((_%tl110024110119%_ - (let () - (declare (not safe)) - (##cdr _%tl110027110134%_))) - (_%hd110023110117%_ - (let () - (declare (not safe)) - (##car _%tl110027110134%_)))) - (if (let () - (declare (not safe)) - (##null? _%tl110024110119%_)) - (let ((_%id110115%_ _%hd110026110132%_) - (_%expr110122%_ _%hd110023110117%_)) - (let () - (declare (not safe)) - (_%K110020110107%_ - _%expr110122%_ - _%id110115%_))) - (if (let () - (declare (not safe)) - (##pair? _%tl110024110119%_)) - (let ((_%tl110019110093%_ - (let () - (declare (not safe)) - (##cdr _%tl110024110119%_))) - (_%hd110018110091%_ - (let () - (declare (not safe)) - (##car _%tl110024110119%_)))) - (let ((_%tmp110082%_ - _%hd110026110132%_) - (_%expr110089%_ - _%hd110023110117%_) - (_%len110096%_ - _%hd110018110091%_) - (_%init110098%_ - _%tl110019110093%_)) - (let () - (declare (not safe)) - (_%K110013110074%_ - _%init110098%_ - _%len110096%_ - _%expr110089%_ - _%tmp110082%_)))) - (_%__match111623111624%_ - _%hd110026110132%_ - _%tl110027110134%_ - _%hd110023110117%_ - _%tl110024110119%_)))) - (_%__match111617111618%_ - _%hd110026110132%_ - _%tl110027110134%_)))) - (let () (declare (not safe)) (_%E110012110035%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp111849 - (list _%body110004%_))) + (##null? _%tl109367109477%_)) + (let ((_%expr109480%_ _%hd109366109475%_)) + (_%K109363109467%_ _%expr109480%_)) + (if (let () + (declare (not safe)) + (##pair? _%tl109367109477%_)) + (let ((_%tl109357109431%_ + (let () (declare (not safe)) - (__foldl1 - __tmp111850 - __tmp111849 - _%post110003%_)))) + (##cdr _%tl109367109477%_))) + (_%hd109356109429%_ + (let () + (declare (not safe)) + (##car _%tl109367109477%_)))) + (let ((_%tmp109420%_ _%hd109364109470%_) + (_%expr109427%_ _%hd109366109475%_) + (_%len109434%_ _%hd109356109429%_) + (_%init109436%_ _%tl109357109431%_)) + (_%K109351109412%_ + _%init109436%_ + _%len109434%_ + _%expr109427%_ + _%tmp109420%_))) + (_%__match110961110962%_ + _%hd109364109470%_ + _%tl109365109472%_ + _%hd109366109475%_ + _%tl109367109477%_)))) + (_%__match110955110956%_ + _%hd109364109470%_ + _%tl109365109472%_)) + (if (let () + (declare (not safe)) + (##pair? _%tl109365109472%_)) + (let ((_%tl109362109457%_ + (let () + (declare (not safe)) + (##cdr _%tl109365109472%_))) + (_%hd109361109455%_ + (let () + (declare (not safe)) + (##car _%tl109365109472%_)))) + (if (let () + (declare (not safe)) + (##null? _%tl109362109457%_)) + (let ((_%id109453%_ _%hd109364109470%_) + (_%expr109460%_ _%hd109361109455%_)) + (_%K109358109445%_ _%expr109460%_ _%id109453%_)) + (if (let () (declare (not safe)) - (__foldr1 cons '() __tmp111848))))) - (declare (not safe)) - (__SRC__% __tmp111847 _%stx109996%_))))) - (let () - (declare (not safe)) - (__compile-let-form - _%stx109996%_ - _%compile-simple109998%_ - _%compile-values109999%_))))) + (##pair? _%tl109362109457%_)) + (let ((_%tl109357109431%_ + (let () + (declare (not safe)) + (##cdr _%tl109362109457%_))) + (_%hd109356109429%_ + (let () + (declare (not safe)) + (##car _%tl109362109457%_)))) + (let ((_%tmp109420%_ _%hd109364109470%_) + (_%expr109427%_ _%hd109361109455%_) + (_%len109434%_ _%hd109356109429%_) + (_%init109436%_ _%tl109357109431%_)) + (_%K109351109412%_ + _%init109436%_ + _%len109434%_ + _%expr109427%_ + _%tmp109420%_))) + (_%__match110961110962%_ + _%hd109364109470%_ + _%tl109365109472%_ + _%hd109361109455%_ + _%tl109362109457%_)))) + (_%__match110955110956%_ + _%hd109364109470%_ + _%tl109365109472%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%E109350109373%_))))))) + (__tmp111106 (list _%body109342%_))) + (declare (not safe)) + (__foldl1 + __tmp111107 + __tmp111106 + _%post109341%_)))) + (declare (not safe)) + (__foldr1 cons '() __tmp111105))) + _%stx109334%_)))) + (__compile-let-form + _%stx109334%_ + _%compile-simple109336%_ + _%compile-values109337%_)))) (define __compile-call% - (lambda (_%stx109956%_) - (let* ((_%$e109958%_ _%stx109956%_) - (_%$E109960109969%_ + (lambda (_%stx109294%_) + (let* ((_%$e109296%_ _%stx109294%_) + (_%$E109298109307%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e109958%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e109958%_)) - (let* ((_%$tgt109961109972%_ - (let () (declare (not safe)) (__AST-e _%$e109958%_))) - (_%$hd109962109975%_ + _%$e109296%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e109296%_)) + (let* ((_%$tgt109299109310%_ + (let () (declare (not safe)) (__AST-e _%$e109296%_))) + (_%$hd109300109313%_ (let () (declare (not safe)) - (##car _%$tgt109961109972%_))) - (_%$tl109963109978%_ + (##car _%$tgt109299109310%_))) + (_%$tl109301109316%_ (let () (declare (not safe)) - (##cdr _%$tgt109961109972%_)))) + (##cdr _%$tgt109299109310%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl109963109978%_)) - (let* ((_%$tgt109964109982%_ + (__AST-pair? _%$tl109301109316%_)) + (let* ((_%$tgt109302109320%_ (let () (declare (not safe)) - (__AST-e _%$tl109963109978%_))) - (_%$hd109965109985%_ + (__AST-e _%$tl109301109316%_))) + (_%$hd109303109323%_ (let () (declare (not safe)) - (##car _%$tgt109964109982%_))) - (_%$tl109966109988%_ + (##car _%$tgt109302109320%_))) + (_%$tl109304109326%_ (let () (declare (not safe)) - (##cdr _%$tgt109964109982%_)))) - (let* ((_%rator109992%_ _%$hd109965109985%_) - (_%rands109994%_ _%$tl109966109988%_) - (__tmp111856 - (cons (let () - (declare (not safe)) - (__compile _%rator109992%_)) - (map __compile _%rands109994%_)))) - (declare (not safe)) - (__SRC__% __tmp111856 _%stx109956%_))) - (let () (declare (not safe)) (_%$E109960109969%_)))) - (let () (declare (not safe)) (_%$E109960109969%_)))))) + (##cdr _%$tgt109302109320%_))) + (_%rator109330%_ _%$hd109303109323%_) + (_%rands109332%_ _%$tl109304109326%_)) + (__SRC__% + (cons (__compile _%rator109330%_) + (map __compile _%rands109332%_)) + _%stx109294%_)) + (_%$E109298109307%_))) + (_%$E109298109307%_))))) (define __compile-ref% - (lambda (_%stx109918%_) - (let* ((_%$e109920%_ _%stx109918%_) - (_%$E109922109931%_ + (lambda (_%stx109256%_) + (let* ((_%$e109258%_ _%stx109256%_) + (_%$E109260109269%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e109920%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e109920%_)) - (let* ((_%$tgt109923109934%_ - (let () (declare (not safe)) (__AST-e _%$e109920%_))) - (_%$hd109924109937%_ + _%$e109258%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e109258%_)) + (let* ((_%$tgt109261109272%_ + (let () (declare (not safe)) (__AST-e _%$e109258%_))) + (_%$hd109262109275%_ (let () (declare (not safe)) - (##car _%$tgt109923109934%_))) - (_%$tl109925109940%_ + (##car _%$tgt109261109272%_))) + (_%$tl109263109278%_ (let () (declare (not safe)) - (##cdr _%$tgt109923109934%_)))) + (##cdr _%$tgt109261109272%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl109925109940%_)) - (let* ((_%$tgt109926109944%_ + (__AST-pair? _%$tl109263109278%_)) + (let* ((_%$tgt109264109282%_ (let () (declare (not safe)) - (__AST-e _%$tl109925109940%_))) - (_%$hd109927109947%_ + (__AST-e _%$tl109263109278%_))) + (_%$hd109265109285%_ (let () (declare (not safe)) - (##car _%$tgt109926109944%_))) - (_%$tl109928109950%_ + (##car _%$tgt109264109282%_))) + (_%$tl109266109288%_ (let () (declare (not safe)) - (##cdr _%$tgt109926109944%_))) - (_%id109954%_ _%$hd109927109947%_)) + (##cdr _%$tgt109264109282%_))) + (_%id109292%_ _%$hd109265109285%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl109928109950%_)) + (__AST-e _%$tl109266109288%_)) '()) - (let () - (declare (not safe)) - (__SRC__% _%id109954%_ _%stx109918%_)) - (let () (declare (not safe)) (_%$E109922109931%_)))) - (let () (declare (not safe)) (_%$E109922109931%_)))) - (let () (declare (not safe)) (_%$E109922109931%_)))))) + (__SRC__% _%id109292%_ _%stx109256%_) + (_%$E109260109269%_))) + (_%$E109260109269%_))) + (_%$E109260109269%_))))) (define __compile-setq% - (lambda (_%stx109865%_) - (let* ((_%$e109867%_ _%stx109865%_) - (_%$E109869109881%_ + (lambda (_%stx109203%_) + (let* ((_%$e109205%_ _%stx109203%_) + (_%$E109207109219%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e109867%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e109867%_)) - (let* ((_%$tgt109870109884%_ - (let () (declare (not safe)) (__AST-e _%$e109867%_))) - (_%$hd109871109887%_ + _%$e109205%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e109205%_)) + (let* ((_%$tgt109208109222%_ + (let () (declare (not safe)) (__AST-e _%$e109205%_))) + (_%$hd109209109225%_ (let () (declare (not safe)) - (##car _%$tgt109870109884%_))) - (_%$tl109872109890%_ + (##car _%$tgt109208109222%_))) + (_%$tl109210109228%_ (let () (declare (not safe)) - (##cdr _%$tgt109870109884%_)))) + (##cdr _%$tgt109208109222%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl109872109890%_)) - (let* ((_%$tgt109873109894%_ + (__AST-pair? _%$tl109210109228%_)) + (let* ((_%$tgt109211109232%_ (let () (declare (not safe)) - (__AST-e _%$tl109872109890%_))) - (_%$hd109874109897%_ + (__AST-e _%$tl109210109228%_))) + (_%$hd109212109235%_ (let () (declare (not safe)) - (##car _%$tgt109873109894%_))) - (_%$tl109875109900%_ + (##car _%$tgt109211109232%_))) + (_%$tl109213109238%_ (let () (declare (not safe)) - (##cdr _%$tgt109873109894%_))) - (_%id109904%_ _%$hd109874109897%_)) + (##cdr _%$tgt109211109232%_))) + (_%id109242%_ _%$hd109212109235%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl109875109900%_)) - (let* ((_%$tgt109876109906%_ + (__AST-pair? _%$tl109213109238%_)) + (let* ((_%$tgt109214109244%_ (let () (declare (not safe)) - (__AST-e _%$tl109875109900%_))) - (_%$hd109877109909%_ + (__AST-e _%$tl109213109238%_))) + (_%$hd109215109247%_ (let () (declare (not safe)) - (##car _%$tgt109876109906%_))) - (_%$tl109878109912%_ + (##car _%$tgt109214109244%_))) + (_%$tl109216109250%_ (let () (declare (not safe)) - (##cdr _%$tgt109876109906%_))) - (_%expr109916%_ _%$hd109877109909%_)) + (##cdr _%$tgt109214109244%_))) + (_%expr109254%_ _%$hd109215109247%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl109878109912%_)) + (__AST-e _%$tl109216109250%_)) '()) - (let ((__tmp111857 - (cons 'set! - (cons (let () - (declare (not safe)) - (__SRC__% - _%id109904%_ - _%stx109865%_)) - (cons (let () - (declare (not safe)) - (__compile - _%expr109916%_)) - '()))))) - (declare (not safe)) - (__SRC__% __tmp111857 _%stx109865%_)) - (let () - (declare (not safe)) - (_%$E109869109881%_)))) - (let () (declare (not safe)) (_%$E109869109881%_)))) - (let () (declare (not safe)) (_%$E109869109881%_)))) - (let () (declare (not safe)) (_%$E109869109881%_)))))) + (__SRC__% + (cons 'set! + (cons (__SRC__% + _%id109242%_ + _%stx109203%_) + (cons (__compile _%expr109254%_) + '()))) + _%stx109203%_) + (_%$E109207109219%_))) + (_%$E109207109219%_))) + (_%$E109207109219%_))) + (_%$E109207109219%_))))) (define __compile-if% - (lambda (_%stx109797%_) - (let* ((_%$e109799%_ _%stx109797%_) - (_%$E109801109816%_ + (lambda (_%stx109135%_) + (let* ((_%$e109137%_ _%stx109135%_) + (_%$E109139109154%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e109799%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e109799%_)) - (let* ((_%$tgt109802109819%_ - (let () (declare (not safe)) (__AST-e _%$e109799%_))) - (_%$hd109803109822%_ + _%$e109137%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e109137%_)) + (let* ((_%$tgt109140109157%_ + (let () (declare (not safe)) (__AST-e _%$e109137%_))) + (_%$hd109141109160%_ (let () (declare (not safe)) - (##car _%$tgt109802109819%_))) - (_%$tl109804109825%_ + (##car _%$tgt109140109157%_))) + (_%$tl109142109163%_ (let () (declare (not safe)) - (##cdr _%$tgt109802109819%_)))) + (##cdr _%$tgt109140109157%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl109804109825%_)) - (let* ((_%$tgt109805109829%_ + (__AST-pair? _%$tl109142109163%_)) + (let* ((_%$tgt109143109167%_ (let () (declare (not safe)) - (__AST-e _%$tl109804109825%_))) - (_%$hd109806109832%_ + (__AST-e _%$tl109142109163%_))) + (_%$hd109144109170%_ (let () (declare (not safe)) - (##car _%$tgt109805109829%_))) - (_%$tl109807109835%_ + (##car _%$tgt109143109167%_))) + (_%$tl109145109173%_ (let () (declare (not safe)) - (##cdr _%$tgt109805109829%_))) - (_%p109839%_ _%$hd109806109832%_)) + (##cdr _%$tgt109143109167%_))) + (_%p109177%_ _%$hd109144109170%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl109807109835%_)) - (let* ((_%$tgt109808109841%_ + (__AST-pair? _%$tl109145109173%_)) + (let* ((_%$tgt109146109179%_ (let () (declare (not safe)) - (__AST-e _%$tl109807109835%_))) - (_%$hd109809109844%_ + (__AST-e _%$tl109145109173%_))) + (_%$hd109147109182%_ (let () (declare (not safe)) - (##car _%$tgt109808109841%_))) - (_%$tl109810109847%_ + (##car _%$tgt109146109179%_))) + (_%$tl109148109185%_ (let () (declare (not safe)) - (##cdr _%$tgt109808109841%_))) - (_%t109851%_ _%$hd109809109844%_)) + (##cdr _%$tgt109146109179%_))) + (_%t109189%_ _%$hd109147109182%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl109810109847%_)) - (let* ((_%$tgt109811109853%_ + (__AST-pair? _%$tl109148109185%_)) + (let* ((_%$tgt109149109191%_ (let () (declare (not safe)) - (__AST-e _%$tl109810109847%_))) - (_%$hd109812109856%_ + (__AST-e _%$tl109148109185%_))) + (_%$hd109150109194%_ (let () (declare (not safe)) - (##car _%$tgt109811109853%_))) - (_%$tl109813109859%_ + (##car _%$tgt109149109191%_))) + (_%$tl109151109197%_ (let () (declare (not safe)) - (##cdr _%$tgt109811109853%_))) - (_%f109863%_ _%$hd109812109856%_)) + (##cdr _%$tgt109149109191%_))) + (_%f109201%_ _%$hd109150109194%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl109813109859%_)) + (__AST-e _%$tl109151109197%_)) '()) - (let ((__tmp111858 - (cons 'if - (cons (let () - (declare (not safe)) - (__compile - _%p109839%_)) - (cons (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (__compile _%t109851%_)) - (cons (let () - (declare (not safe)) - (__compile _%f109863%_)) - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__SRC__% __tmp111858 _%stx109797%_)) - (let () - (declare (not safe)) - (_%$E109801109816%_)))) - (let () - (declare (not safe)) - (_%$E109801109816%_)))) - (let () (declare (not safe)) (_%$E109801109816%_)))) - (let () (declare (not safe)) (_%$E109801109816%_)))) - (let () (declare (not safe)) (_%$E109801109816%_)))))) + (__SRC__% + (cons 'if + (cons (__compile _%p109177%_) + (cons (__compile + _%t109189%_) + (cons (__compile + _%f109201%_) + '())))) + _%stx109135%_) + (_%$E109139109154%_))) + (_%$E109139109154%_))) + (_%$E109139109154%_))) + (_%$E109139109154%_))) + (_%$E109139109154%_))))) (define __compile-quote% - (lambda (_%stx109759%_) - (let* ((_%$e109761%_ _%stx109759%_) - (_%$E109763109772%_ + (lambda (_%stx109097%_) + (let* ((_%$e109099%_ _%stx109097%_) + (_%$E109101109110%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e109761%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e109761%_)) - (let* ((_%$tgt109764109775%_ - (let () (declare (not safe)) (__AST-e _%$e109761%_))) - (_%$hd109765109778%_ + _%$e109099%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e109099%_)) + (let* ((_%$tgt109102109113%_ + (let () (declare (not safe)) (__AST-e _%$e109099%_))) + (_%$hd109103109116%_ (let () (declare (not safe)) - (##car _%$tgt109764109775%_))) - (_%$tl109766109781%_ + (##car _%$tgt109102109113%_))) + (_%$tl109104109119%_ (let () (declare (not safe)) - (##cdr _%$tgt109764109775%_)))) + (##cdr _%$tgt109102109113%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl109766109781%_)) - (let* ((_%$tgt109767109785%_ + (__AST-pair? _%$tl109104109119%_)) + (let* ((_%$tgt109105109123%_ (let () (declare (not safe)) - (__AST-e _%$tl109766109781%_))) - (_%$hd109768109788%_ + (__AST-e _%$tl109104109119%_))) + (_%$hd109106109126%_ (let () (declare (not safe)) - (##car _%$tgt109767109785%_))) - (_%$tl109769109791%_ + (##car _%$tgt109105109123%_))) + (_%$tl109107109129%_ (let () (declare (not safe)) - (##cdr _%$tgt109767109785%_))) - (_%e109795%_ _%$hd109768109788%_)) + (##cdr _%$tgt109105109123%_))) + (_%e109133%_ _%$hd109106109126%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl109769109791%_)) + (__AST-e _%$tl109107109129%_)) '()) - (let ((__tmp111859 - (cons 'quote - (cons (let () - (declare (not safe)) - (__AST->datum _%e109795%_)) - '())))) - (declare (not safe)) - (__SRC__% __tmp111859 _%stx109759%_)) - (let () (declare (not safe)) (_%$E109763109772%_)))) - (let () (declare (not safe)) (_%$E109763109772%_)))) - (let () (declare (not safe)) (_%$E109763109772%_)))))) + (__SRC__% + (cons 'quote + (cons (let () + (declare (not safe)) + (__AST->datum _%e109133%_)) + '())) + _%stx109097%_) + (_%$E109101109110%_))) + (_%$E109101109110%_))) + (_%$E109101109110%_))))) (define __compile-quote-syntax% - (lambda (_%stx109721%_) - (let* ((_%$e109723%_ _%stx109721%_) - (_%$E109725109734%_ + (lambda (_%stx109059%_) + (let* ((_%$e109061%_ _%stx109059%_) + (_%$E109063109072%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e109723%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e109723%_)) - (let* ((_%$tgt109726109737%_ - (let () (declare (not safe)) (__AST-e _%$e109723%_))) - (_%$hd109727109740%_ + _%$e109061%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e109061%_)) + (let* ((_%$tgt109064109075%_ + (let () (declare (not safe)) (__AST-e _%$e109061%_))) + (_%$hd109065109078%_ (let () (declare (not safe)) - (##car _%$tgt109726109737%_))) - (_%$tl109728109743%_ + (##car _%$tgt109064109075%_))) + (_%$tl109066109081%_ (let () (declare (not safe)) - (##cdr _%$tgt109726109737%_)))) + (##cdr _%$tgt109064109075%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl109728109743%_)) - (let* ((_%$tgt109729109747%_ + (__AST-pair? _%$tl109066109081%_)) + (let* ((_%$tgt109067109085%_ (let () (declare (not safe)) - (__AST-e _%$tl109728109743%_))) - (_%$hd109730109750%_ + (__AST-e _%$tl109066109081%_))) + (_%$hd109068109088%_ (let () (declare (not safe)) - (##car _%$tgt109729109747%_))) - (_%$tl109731109753%_ + (##car _%$tgt109067109085%_))) + (_%$tl109069109091%_ (let () (declare (not safe)) - (##cdr _%$tgt109729109747%_))) - (_%e109757%_ _%$hd109730109750%_)) + (##cdr _%$tgt109067109085%_))) + (_%e109095%_ _%$hd109068109088%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl109731109753%_)) + (__AST-e _%$tl109069109091%_)) '()) - (let ((__tmp111860 - (cons 'quote (cons _%e109757%_ '())))) - (declare (not safe)) - (__SRC__% __tmp111860 _%stx109721%_)) - (let () (declare (not safe)) (_%$E109725109734%_)))) - (let () (declare (not safe)) (_%$E109725109734%_)))) - (let () (declare (not safe)) (_%$E109725109734%_)))))) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#begin - __compile-begin% - make-__core-special-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#begin-syntax - __compile-ignore% - make-__core-special-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#begin-foreign - __compile-begin-foreign% - make-__core-special-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#module - __compile-ignore% - make-__core-special-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#import - __compile-import% - make-__core-special-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#export - __compile-ignore% - make-__core-special-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#provide - __compile-ignore% - make-__core-special-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#define-values - __compile-define-values% - make-__core-special-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#define-syntax - __compile-ignore% - make-__core-special-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#define-alias - __compile-ignore% - make-__core-special-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#define-runtime - __compile-ignore% - make-__core-special-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#extern - __compile-ignore% - make-__core-special-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#declare - __compile-ignore% - make-__core-special-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#begin-annotation - __compile-begin-annotation% - make-__core-expression)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#quote - __compile-quote% - make-__core-expression)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#quote-syntax - __compile-quote-syntax% - make-__core-expression)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#lambda - __compile-lambda% - make-__core-expression)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#case-lambda - __compile-case-lambda% - make-__core-expression)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#let-values - __compile-let-values% - make-__core-expression)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#letrec-values - __compile-letrec-values% - make-__core-expression)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#letrec*-values - __compile-letrec*-values% - make-__core-expression)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% '%#call __compile-call% make-__core-expression)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% '%#if __compile-if% make-__core-expression)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% '%#ref __compile-ref% make-__core-expression)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% '%#set! __compile-setq% make-__core-expression)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% '%#cond-expand __compile-error make-__core-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% '%#include __compile-error make-__core-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% '%#let-syntax __compile-error make-__core-form)) - (let () - (declare (not safe)) - (__core-bind-syntax!__% - '%#letrec-syntax - __compile-error - make-__core-form)))) + (__SRC__% + (cons 'quote (cons _%e109095%_ '())) + _%stx109059%_) + (_%$E109063109072%_))) + (_%$E109063109072%_))) + (_%$E109063109072%_))))) + (__core-bind-syntax!__% '%#begin __compile-begin% make-__core-special-form) + (__core-bind-syntax!__% + '%#begin-syntax + __compile-ignore% + make-__core-special-form) + (__core-bind-syntax!__% + '%#begin-foreign + __compile-begin-foreign% + make-__core-special-form) + (__core-bind-syntax!__% + '%#module + __compile-ignore% + make-__core-special-form) + (__core-bind-syntax!__% + '%#import + __compile-import% + make-__core-special-form) + (__core-bind-syntax!__% + '%#export + __compile-ignore% + make-__core-special-form) + (__core-bind-syntax!__% + '%#provide + __compile-ignore% + make-__core-special-form) + (__core-bind-syntax!__% + '%#define-values + __compile-define-values% + make-__core-special-form) + (__core-bind-syntax!__% + '%#define-syntax + __compile-ignore% + make-__core-special-form) + (__core-bind-syntax!__% + '%#define-alias + __compile-ignore% + make-__core-special-form) + (__core-bind-syntax!__% + '%#define-runtime + __compile-ignore% + make-__core-special-form) + (__core-bind-syntax!__% + '%#extern + __compile-ignore% + make-__core-special-form) + (__core-bind-syntax!__% + '%#declare + __compile-ignore% + make-__core-special-form) + (__core-bind-syntax!__% + '%#begin-annotation + __compile-begin-annotation% + make-__core-expression) + (__core-bind-syntax!__% '%#quote __compile-quote% make-__core-expression) + (__core-bind-syntax!__% + '%#quote-syntax + __compile-quote-syntax% + make-__core-expression) + (__core-bind-syntax!__% '%#lambda __compile-lambda% make-__core-expression) + (__core-bind-syntax!__% + '%#case-lambda + __compile-case-lambda% + make-__core-expression) + (__core-bind-syntax!__% + '%#let-values + __compile-let-values% + make-__core-expression) + (__core-bind-syntax!__% + '%#letrec-values + __compile-letrec-values% + make-__core-expression) + (__core-bind-syntax!__% + '%#letrec*-values + __compile-letrec*-values% + make-__core-expression) + (__core-bind-syntax!__% '%#call __compile-call% make-__core-expression) + (__core-bind-syntax!__% '%#if __compile-if% make-__core-expression) + (__core-bind-syntax!__% '%#ref __compile-ref% make-__core-expression) + (__core-bind-syntax!__% '%#set! __compile-setq% make-__core-expression) + (__core-bind-syntax!__% '%#cond-expand __compile-error make-__core-form) + (__core-bind-syntax!__% '%#include __compile-error make-__core-form) + (__core-bind-syntax!__% '%#let-syntax __compile-error make-__core-form) + (__core-bind-syntax!__% + '%#letrec-syntax + __compile-error + make-__core-form))) diff --git a/src/bootstrap/gerbil/runtime/eval~1.scm b/src/bootstrap/gerbil/runtime/eval~1.scm index a4e2bbb0b..9ef738644 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]#_g111862_| + (define |[1]#_g111110_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g111864_| + (define |[1]#_g111112_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g111866_| + (define |[1]#_g111114_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g111868_| + (define |[1]#_g111116_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g111869_| + (define |[1]#_g111117_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g111871_| + (define |[1]#_g111119_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111872_| + (define |[1]#_g111120_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111874_| + (define |[1]#_g111122_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g111875_| + (define |[1]#_g111123_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g111877_| + (define |[1]#_g111125_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111878_| + (define |[1]#_g111126_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111880_| + (define |[1]#_g111128_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g111882_| + (define |[1]#_g111130_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g111884_| + (define |[1]#_g111132_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g111886_| + (define |[1]#_g111134_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g111888_| + (define |[1]#_g111136_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g111889_| + (define |[1]#_g111137_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g111891_| + (define |[1]#_g111139_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111892_| + (define |[1]#_g111140_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111894_| + (define |[1]#_g111142_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g111895_| + (define |[1]#_g111143_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g111897_| + (define |[1]#_g111145_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111898_| + (define |[1]#_g111146_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111900_| + (define |[1]#_g111148_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g111902_| + (define |[1]#_g111150_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g111904_| + (define |[1]#_g111152_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g111906_| + (define |[1]#_g111154_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g111908_| + (define |[1]#_g111156_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g111909_| + (define |[1]#_g111157_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g111911_| + (define |[1]#_g111159_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111912_| + (define |[1]#_g111160_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111914_| + (define |[1]#_g111162_| (##structure gx#syntax-quote::t '&__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g111915_| + (define |[1]#_g111163_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g111917_| + (define |[1]#_g111165_| (##structure gx#syntax-quote::t '&__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111918_| + (define |[1]#_g111166_| (##structure gx#syntax-quote::t '&__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111921_| + (define |[1]#_g111169_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g111923_| + (define |[1]#_g111171_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g111925_| + (define |[1]#_g111173_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g111927_| + (define |[1]#_g111175_| (##structure gx#syntax-quote::t '__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g111928_| + (define |[1]#_g111176_| (##structure gx#syntax-quote::t '__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g111930_| + (define |[1]#_g111178_| (##structure gx#syntax-quote::t '__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111931_| + (define |[1]#_g111179_| (##structure gx#syntax-quote::t '__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111933_| + (define |[1]#_g111181_| (##structure gx#syntax-quote::t '&__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g111934_| + (define |[1]#_g111182_| (##structure gx#syntax-quote::t '&__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g111936_| + (define |[1]#_g111184_| (##structure gx#syntax-quote::t '&__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111937_| + (define |[1]#_g111185_| (##structure gx#syntax-quote::t '&__core-special-form-id-set! @@ -324,7 +324,7 @@ '())) (begin (define |[:0:]#__syntax| - (let ((__obj111721 + (let ((__obj111059 (let () (declare (not safe)) (##structure @@ -353,76 +353,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111721 + __obj111059 'gerbil/runtime/eval#__syntax::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111721 '__syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj111059 '__syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111721 '(e id) '4 '#f '#f)) + (##unchecked-structure-set! __obj111059 '(e id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111721 '(e id) '6 '#f '#f)) + (##unchecked-structure-set! __obj111059 '(e id) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111721 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj111059 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111721 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj111059 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111721 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj111059 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111721 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj111059 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111721 '#f '11 '#f '#f)) - (let ((__tmp111861 |[1]#_g111862_|)) + (##unchecked-structure-set! __obj111059 '#f '11 '#f '#f)) + (let ((__tmp111109 |[1]#_g111110_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111721 __tmp111861 '12 '#f '#f)) - (let ((__tmp111863 |[1]#_g111864_|)) + (##unchecked-structure-set! __obj111059 __tmp111109 '12 '#f '#f)) + (let ((__tmp111111 |[1]#_g111112_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111721 __tmp111863 '13 '#f '#f)) - (let ((__tmp111865 |[1]#_g111866_|)) + (##unchecked-structure-set! __obj111059 __tmp111111 '13 '#f '#f)) + (let ((__tmp111113 |[1]#_g111114_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111721 __tmp111865 '14 '#f '#f)) - (let ((__tmp111867 - (cons (cons 'e |[1]#_g111868_|) - (cons (cons 'id |[1]#_g111869_|) '())))) + (##unchecked-structure-set! __obj111059 __tmp111113 '14 '#f '#f)) + (let ((__tmp111115 + (cons (cons 'e |[1]#_g111116_|) + (cons (cons 'id |[1]#_g111117_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111721 __tmp111867 '15 '#f '#f)) - (let ((__tmp111870 - (cons (cons 'e |[1]#_g111871_|) - (cons (cons 'id |[1]#_g111872_|) '())))) + (##unchecked-structure-set! __obj111059 __tmp111115 '15 '#f '#f)) + (let ((__tmp111118 + (cons (cons 'e |[1]#_g111119_|) + (cons (cons 'id |[1]#_g111120_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111721 __tmp111870 '16 '#f '#f)) - (let ((__tmp111873 - (cons (cons 'e |[1]#_g111874_|) - (cons (cons 'id |[1]#_g111875_|) '())))) + (##unchecked-structure-set! __obj111059 __tmp111118 '16 '#f '#f)) + (let ((__tmp111121 + (cons (cons 'e |[1]#_g111122_|) + (cons (cons 'id |[1]#_g111123_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111721 __tmp111873 '17 '#f '#f)) - (let ((__tmp111876 - (cons (cons 'e |[1]#_g111877_|) - (cons (cons 'id |[1]#_g111878_|) '())))) + (##unchecked-structure-set! __obj111059 __tmp111121 '17 '#f '#f)) + (let ((__tmp111124 + (cons (cons 'e |[1]#_g111125_|) + (cons (cons 'id |[1]#_g111126_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111721 __tmp111876 '18 '#f '#f)) + (##unchecked-structure-set! __obj111059 __tmp111124 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111721 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj111059 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111721 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj111059 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111721 '() '20 '#f '#f)) - __obj111721)) + (##unchecked-structure-set! __obj111059 '() '20 '#f '#f)) + __obj111059)) (define |[:0:]#__core-form| - (let ((__obj111722 + (let ((__obj111060 (let () (declare (not safe)) (##structure @@ -451,76 +451,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111722 + __obj111060 'gerbil/runtime/eval#__core-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111722 '__core-form '2 '#f '#f)) + (##unchecked-structure-set! __obj111060 '__core-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111722 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj111060 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111722 '(e id) '6 '#f '#f)) - (let ((__tmp111879 (cons |[1]#_g111880_| '()))) + (##unchecked-structure-set! __obj111060 '(e id) '6 '#f '#f)) + (let ((__tmp111127 (cons |[1]#_g111128_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj111722 __tmp111879 '3 '#f '#f)) + (##unchecked-structure-set! __obj111060 __tmp111127 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111722 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj111060 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111722 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj111060 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111722 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj111060 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111722 '#f '11 '#f '#f)) - (let ((__tmp111881 |[1]#_g111882_|)) + (##unchecked-structure-set! __obj111060 '#f '11 '#f '#f)) + (let ((__tmp111129 |[1]#_g111130_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111722 __tmp111881 '12 '#f '#f)) - (let ((__tmp111883 |[1]#_g111884_|)) + (##unchecked-structure-set! __obj111060 __tmp111129 '12 '#f '#f)) + (let ((__tmp111131 |[1]#_g111132_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111722 __tmp111883 '13 '#f '#f)) - (let ((__tmp111885 |[1]#_g111886_|)) + (##unchecked-structure-set! __obj111060 __tmp111131 '13 '#f '#f)) + (let ((__tmp111133 |[1]#_g111134_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111722 __tmp111885 '14 '#f '#f)) - (let ((__tmp111887 - (cons (cons 'e |[1]#_g111888_|) - (cons (cons 'id |[1]#_g111889_|) '())))) + (##unchecked-structure-set! __obj111060 __tmp111133 '14 '#f '#f)) + (let ((__tmp111135 + (cons (cons 'e |[1]#_g111136_|) + (cons (cons 'id |[1]#_g111137_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111722 __tmp111887 '15 '#f '#f)) - (let ((__tmp111890 - (cons (cons 'e |[1]#_g111891_|) - (cons (cons 'id |[1]#_g111892_|) '())))) + (##unchecked-structure-set! __obj111060 __tmp111135 '15 '#f '#f)) + (let ((__tmp111138 + (cons (cons 'e |[1]#_g111139_|) + (cons (cons 'id |[1]#_g111140_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111722 __tmp111890 '16 '#f '#f)) - (let ((__tmp111893 - (cons (cons 'e |[1]#_g111894_|) - (cons (cons 'id |[1]#_g111895_|) '())))) + (##unchecked-structure-set! __obj111060 __tmp111138 '16 '#f '#f)) + (let ((__tmp111141 + (cons (cons 'e |[1]#_g111142_|) + (cons (cons 'id |[1]#_g111143_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111722 __tmp111893 '17 '#f '#f)) - (let ((__tmp111896 - (cons (cons 'e |[1]#_g111897_|) - (cons (cons 'id |[1]#_g111898_|) '())))) + (##unchecked-structure-set! __obj111060 __tmp111141 '17 '#f '#f)) + (let ((__tmp111144 + (cons (cons 'e |[1]#_g111145_|) + (cons (cons 'id |[1]#_g111146_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111722 __tmp111896 '18 '#f '#f)) + (##unchecked-structure-set! __obj111060 __tmp111144 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111722 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj111060 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111722 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj111060 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111722 '() '20 '#f '#f)) - __obj111722)) + (##unchecked-structure-set! __obj111060 '() '20 '#f '#f)) + __obj111060)) (define |[:0:]#__core-expression| - (let ((__obj111723 + (let ((__obj111061 (let () (declare (not safe)) (##structure @@ -549,7 +549,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111723 + __obj111061 'gerbil/runtime/eval#__core-expression::t '1 '#f @@ -557,73 +557,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111723 + __obj111061 '__core-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111723 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj111061 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111723 '(e id) '6 '#f '#f)) - (let ((__tmp111899 (cons |[1]#_g111900_| '()))) + (##unchecked-structure-set! __obj111061 '(e id) '6 '#f '#f)) + (let ((__tmp111147 (cons |[1]#_g111148_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj111723 __tmp111899 '3 '#f '#f)) + (##unchecked-structure-set! __obj111061 __tmp111147 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111723 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj111061 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111723 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj111061 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111723 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj111061 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111723 '#f '11 '#f '#f)) - (let ((__tmp111901 |[1]#_g111902_|)) + (##unchecked-structure-set! __obj111061 '#f '11 '#f '#f)) + (let ((__tmp111149 |[1]#_g111150_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111723 __tmp111901 '12 '#f '#f)) - (let ((__tmp111903 |[1]#_g111904_|)) + (##unchecked-structure-set! __obj111061 __tmp111149 '12 '#f '#f)) + (let ((__tmp111151 |[1]#_g111152_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111723 __tmp111903 '13 '#f '#f)) - (let ((__tmp111905 |[1]#_g111906_|)) + (##unchecked-structure-set! __obj111061 __tmp111151 '13 '#f '#f)) + (let ((__tmp111153 |[1]#_g111154_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111723 __tmp111905 '14 '#f '#f)) - (let ((__tmp111907 - (cons (cons 'e |[1]#_g111908_|) - (cons (cons 'id |[1]#_g111909_|) '())))) + (##unchecked-structure-set! __obj111061 __tmp111153 '14 '#f '#f)) + (let ((__tmp111155 + (cons (cons 'e |[1]#_g111156_|) + (cons (cons 'id |[1]#_g111157_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111723 __tmp111907 '15 '#f '#f)) - (let ((__tmp111910 - (cons (cons 'e |[1]#_g111911_|) - (cons (cons 'id |[1]#_g111912_|) '())))) + (##unchecked-structure-set! __obj111061 __tmp111155 '15 '#f '#f)) + (let ((__tmp111158 + (cons (cons 'e |[1]#_g111159_|) + (cons (cons 'id |[1]#_g111160_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111723 __tmp111910 '16 '#f '#f)) - (let ((__tmp111913 - (cons (cons 'e |[1]#_g111914_|) - (cons (cons 'id |[1]#_g111915_|) '())))) + (##unchecked-structure-set! __obj111061 __tmp111158 '16 '#f '#f)) + (let ((__tmp111161 + (cons (cons 'e |[1]#_g111162_|) + (cons (cons 'id |[1]#_g111163_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111723 __tmp111913 '17 '#f '#f)) - (let ((__tmp111916 - (cons (cons 'e |[1]#_g111917_|) - (cons (cons 'id |[1]#_g111918_|) '())))) + (##unchecked-structure-set! __obj111061 __tmp111161 '17 '#f '#f)) + (let ((__tmp111164 + (cons (cons 'e |[1]#_g111165_|) + (cons (cons 'id |[1]#_g111166_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111723 __tmp111916 '18 '#f '#f)) + (##unchecked-structure-set! __obj111061 __tmp111164 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111723 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj111061 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111723 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj111061 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111723 '() '20 '#f '#f)) - __obj111723)) + (##unchecked-structure-set! __obj111061 '() '20 '#f '#f)) + __obj111061)) (define |[:0:]#__core-special-form| - (let ((__obj111724 + (let ((__obj111062 (let () (declare (not safe)) (##structure @@ -652,7 +652,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111724 + __obj111062 'gerbil/runtime/eval#__core-special-form::t '1 '#f @@ -660,393 +660,391 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111724 + __obj111062 '__core-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111724 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj111062 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111724 '(e id) '6 '#f '#f)) - (let ((__tmp111919 (cons |[1]#_g111900_| '()))) + (##unchecked-structure-set! __obj111062 '(e id) '6 '#f '#f)) + (let ((__tmp111167 (cons |[1]#_g111148_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj111724 __tmp111919 '3 '#f '#f)) + (##unchecked-structure-set! __obj111062 __tmp111167 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111724 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj111062 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111724 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj111062 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111724 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj111062 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111724 '#f '11 '#f '#f)) - (let ((__tmp111920 |[1]#_g111921_|)) + (##unchecked-structure-set! __obj111062 '#f '11 '#f '#f)) + (let ((__tmp111168 |[1]#_g111169_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111724 __tmp111920 '12 '#f '#f)) - (let ((__tmp111922 |[1]#_g111923_|)) + (##unchecked-structure-set! __obj111062 __tmp111168 '12 '#f '#f)) + (let ((__tmp111170 |[1]#_g111171_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111724 __tmp111922 '13 '#f '#f)) - (let ((__tmp111924 |[1]#_g111925_|)) + (##unchecked-structure-set! __obj111062 __tmp111170 '13 '#f '#f)) + (let ((__tmp111172 |[1]#_g111173_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111724 __tmp111924 '14 '#f '#f)) - (let ((__tmp111926 - (cons (cons 'e |[1]#_g111927_|) - (cons (cons 'id |[1]#_g111928_|) '())))) + (##unchecked-structure-set! __obj111062 __tmp111172 '14 '#f '#f)) + (let ((__tmp111174 + (cons (cons 'e |[1]#_g111175_|) + (cons (cons 'id |[1]#_g111176_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111724 __tmp111926 '15 '#f '#f)) - (let ((__tmp111929 - (cons (cons 'e |[1]#_g111930_|) - (cons (cons 'id |[1]#_g111931_|) '())))) + (##unchecked-structure-set! __obj111062 __tmp111174 '15 '#f '#f)) + (let ((__tmp111177 + (cons (cons 'e |[1]#_g111178_|) + (cons (cons 'id |[1]#_g111179_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111724 __tmp111929 '16 '#f '#f)) - (let ((__tmp111932 - (cons (cons 'e |[1]#_g111933_|) - (cons (cons 'id |[1]#_g111934_|) '())))) + (##unchecked-structure-set! __obj111062 __tmp111177 '16 '#f '#f)) + (let ((__tmp111180 + (cons (cons 'e |[1]#_g111181_|) + (cons (cons 'id |[1]#_g111182_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111724 __tmp111932 '17 '#f '#f)) - (let ((__tmp111935 - (cons (cons 'e |[1]#_g111936_|) - (cons (cons 'id |[1]#_g111937_|) '())))) + (##unchecked-structure-set! __obj111062 __tmp111180 '17 '#f '#f)) + (let ((__tmp111183 + (cons (cons 'e |[1]#_g111184_|) + (cons (cons 'id |[1]#_g111185_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111724 __tmp111935 '18 '#f '#f)) + (##unchecked-structure-set! __obj111062 __tmp111183 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111724 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj111062 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111724 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj111062 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111724 '() '20 '#f '#f)) - __obj111724)) + (##unchecked-structure-set! __obj111062 '() '20 '#f '#f)) + __obj111062)) (define |[:0:]#defcore-forms| - (lambda (_%stx109266%_) - (letrec ((_%generate109269%_ - (lambda (_%id109633%_ _%compile109635%_ _%make109636%_) - (let* ((_%g109638109657%_ - (lambda (_%g109639109653%_) + (lambda (_%stx108604%_) + (letrec ((_%generate108607%_ + (lambda (_%id108971%_ _%compile108973%_ _%make108974%_) + (let* ((_%g108976108995%_ + (lambda (_%g108977108991%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109639109653%_))) - (_%g109637109716%_ - (lambda (_%g109639109661%_) - (if (gx#stx-pair? _%g109639109661%_) - (let ((_%e109645109664%_ - (gx#syntax-e _%g109639109661%_))) - (let ((_%hd109644109668%_ + _%g108977108991%_))) + (_%g108975109054%_ + (lambda (_%g108977108999%_) + (if (gx#stx-pair? _%g108977108999%_) + (let ((_%e108983109002%_ + (gx#syntax-e _%g108977108999%_))) + (let ((_%hd108982109006%_ (let () (declare (not safe)) - (##car _%e109645109664%_))) - (_%tl109643109671%_ + (##car _%e108983109002%_))) + (_%tl108981109009%_ (let () (declare (not safe)) - (##cdr _%e109645109664%_)))) - (if (gx#stx-pair? _%tl109643109671%_) - (let ((_%e109648109674%_ + (##cdr _%e108983109002%_)))) + (if (gx#stx-pair? _%tl108981109009%_) + (let ((_%e108986109012%_ (gx#syntax-e - _%tl109643109671%_))) - (let ((_%hd109647109678%_ + _%tl108981109009%_))) + (let ((_%hd108985109016%_ (let () (declare (not safe)) - (##car _%e109648109674%_))) - (_%tl109646109681%_ + (##car _%e108986109012%_))) + (_%tl108984109019%_ (let () (declare (not safe)) - (##cdr _%e109648109674%_)))) + (##cdr _%e108986109012%_)))) (if (gx#stx-pair? - _%tl109646109681%_) - (let ((_%e109651109684%_ + _%tl108984109019%_) + (let ((_%e108989109022%_ (gx#syntax-e - _%tl109646109681%_))) - (let ((_%hd109650109688%_ + _%tl108984109019%_))) + (let ((_%hd108988109026%_ (let () (declare (not safe)) - (##car _%e109651109684%_))) - (_%tl109649109691%_ + (##car _%e108989109022%_))) + (_%tl108987109029%_ (let () (declare (not safe)) - (##cdr _%e109651109684%_)))) + (##cdr _%e108989109022%_)))) (if (gx#stx-null? - _%tl109649109691%_) - ((lambda (_%L109694%_ + _%tl108987109029%_) + ((lambda (_%L109032%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L109696%_ - _%L109697%_) - (let () - (cons (gx#datum->syntax '#f '__core-bind-syntax!) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L109697%_ '())) - (cons _%L109696%_ - (cons _%L109694%_ '())))))) - _%hd109650109688%_ - _%hd109647109678%_ - _%hd109644109668%_) - (_%g109638109657%_ _%g109639109661%_)))) + _%L109034%_ + _%L109035%_) + (cons (gx#datum->syntax '#f '__core-bind-syntax!) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L109035%_ '())) + (cons _%L109034%_ (cons _%L109032%_ '()))))) + _%hd108988109026%_ + _%hd108985109016%_ + _%hd108982109006%_) + (_%g108976108995%_ _%g108977108999%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g109638109657%_ - _%g109639109661%_)))) - (_%g109638109657%_ - _%g109639109661%_)))) - (_%g109638109657%_ _%g109639109661%_))))) - (_%g109637109716%_ - (list _%id109633%_ + (_%g108976108995%_ + _%g108977108999%_)))) + (_%g108976108995%_ + _%g108977108999%_)))) + (_%g108976108995%_ _%g108977108999%_))))) + (_%g108975109054%_ + (list _%id108971%_ (gx#stx-identifier - _%id109633%_ + _%id108971%_ '"__" - _%compile109635%_) - _%make109636%_)))))) - (let* ((_%g109272109292%_ - (lambda (_%g109273109288%_) + _%compile108973%_) + _%make108974%_)))))) + (let* ((_%g108610108630%_ + (lambda (_%g108611108626%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109273109288%_))) - (_%g109271109629%_ - (lambda (_%g109273109296%_) - (if (gx#stx-pair? _%g109273109296%_) - (let ((_%e109277109299%_ - (gx#syntax-e _%g109273109296%_))) - (let ((_%hd109276109303%_ + _%g108611108626%_))) + (_%g108609108967%_ + (lambda (_%g108611108634%_) + (if (gx#stx-pair? _%g108611108634%_) + (let ((_%e108615108637%_ + (gx#syntax-e _%g108611108634%_))) + (let ((_%hd108614108641%_ (let () (declare (not safe)) - (##car _%e109277109299%_))) - (_%tl109275109306%_ + (##car _%e108615108637%_))) + (_%tl108613108644%_ (let () (declare (not safe)) - (##cdr _%e109277109299%_)))) - (if (gx#stx-pair/null? _%tl109275109306%_) - (let ((_g111938_ + (##cdr _%e108615108637%_)))) + (if (gx#stx-pair/null? _%tl108613108644%_) + (let ((_g111186_ (gx#syntax-split-splice - _%tl109275109306%_ + _%tl108613108644%_ '0))) (begin - (let ((_g111939_ + (let ((_g111187_ (let () (declare (not safe)) - (if (##values? _g111938_) - (##vector-length _g111938_) + (if (##values? _g111186_) + (##vector-length _g111186_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g111939_ 2))) + (##fx= _g111187_ 2))) (error "Context expects 2 values" - _g111939_))) - (let ((_%target109278109309%_ + _g111187_))) + (let ((_%target108616108647%_ (let () (declare (not safe)) - (##vector-ref _g111938_ 0))) - (_%tl109280109312%_ + (##vector-ref _g111186_ 0))) + (_%tl108618108650%_ (let () (declare (not safe)) - (##vector-ref _g111938_ 1)))) - (if (gx#stx-null? _%tl109280109312%_) - (letrec ((_%loop109281109315%_ - (lambda (_%hd109279109319%_ - _%form109285109322%_) + (##vector-ref _g111186_ 1)))) + (if (gx#stx-null? _%tl108618108650%_) + (letrec ((_%loop108619108653%_ + (lambda (_%hd108617108657%_ + _%form108623108660%_) (if (gx#stx-pair? - _%hd109279109319%_) - (let ((_%e109282109325%_ + _%hd108617108657%_) + (let ((_%e108620108663%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd109279109319%_))) - (let ((_%lp-hd109283109329%_ + (gx#syntax-e _%hd108617108657%_))) + (let ((_%lp-hd108621108667%_ (let () (declare (not safe)) - (##car _%e109282109325%_))) - (_%lp-tl109284109332%_ + (##car _%e108620108663%_))) + (_%lp-tl108622108670%_ (let () (declare (not safe)) - (##cdr _%e109282109325%_)))) - (_%loop109281109315%_ - _%lp-tl109284109332%_ - (cons _%lp-hd109283109329%_ _%form109285109322%_)))) - (let ((_%form109286109335%_ (reverse _%form109285109322%_))) - ((lambda (_%L109339%_) - (let _%lp109357%_ ((_%rest109360%_ - (let ((__tmp111940 - (lambda (_%g109620109623%_ - _%g109621109626%_) - (cons _%g109620109623%_ - _%g109621109626%_)))) + (##cdr _%e108620108663%_)))) + (_%loop108619108653%_ + _%lp-tl108622108670%_ + (cons _%lp-hd108621108667%_ _%form108623108660%_)))) + (let ((_%form108624108673%_ (reverse _%form108623108660%_))) + ((lambda (_%L108677%_) + (let _%lp108695%_ ((_%rest108698%_ + (let ((__tmp111188 + (lambda (_%g108958108961%_ + _%g108959108964%_) + (cons _%g108958108961%_ + _%g108959108964%_)))) (declare (not safe)) (__foldr1 - __tmp111940 + __tmp111188 '() - _%L109339%_))) - (_%body109362%_ '())) - (let* ((_%__stx111628111629%_ _%rest109360%_) - (_%g109367109414%_ + _%L108677%_))) + (_%body108700%_ '())) + (let* ((_%__stx110966110967%_ _%rest108698%_) + (_%g108705108752%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx111628111629%_)))) - (let ((_%__kont111631111632%_ - (lambda (_%L109595%_ _%L109597%_ _%L109598%_) - (_%lp109357%_ - _%L109595%_ - (cons (_%generate109269%_ - _%L109598%_ - _%L109597%_ + _%__stx110966110967%_)))) + (let ((_%__kont110969110970%_ + (lambda (_%L108933%_ _%L108935%_ _%L108936%_) + (_%lp108695%_ + _%L108933%_ + (cons (_%generate108607%_ + _%L108936%_ + _%L108935%_ (gx#datum->syntax '#f 'make-__core-expression)) - _%body109362%_)))) - (_%__kont111633111634%_ - (lambda (_%L109522%_ _%L109524%_ _%L109525%_) - (_%lp109357%_ - _%L109522%_ - (cons (_%generate109269%_ - _%L109525%_ - _%L109524%_ + _%body108700%_)))) + (_%__kont110971110972%_ + (lambda (_%L108860%_ _%L108862%_ _%L108863%_) + (_%lp108695%_ + _%L108860%_ + (cons (_%generate108607%_ + _%L108863%_ + _%L108862%_ (gx#datum->syntax '#f 'make-__core-special-form)) - _%body109362%_)))) - (_%__kont111635111636%_ - (lambda (_%L109452%_ _%L109454%_) - (_%lp109357%_ - _%L109452%_ - (cons (_%generate109269%_ - _%L109454%_ + _%body108700%_)))) + (_%__kont110973110974%_ + (lambda (_%L108790%_ _%L108792%_) + (_%lp108695%_ + _%L108790%_ + (cons (_%generate108607%_ + _%L108792%_ (gx#datum->syntax '#f 'compile-error) (gx#datum->syntax '#f 'make-__core-form)) - _%body109362%_)))) - (_%__kont111637111638%_ + _%body108700%_)))) + (_%__kont110975110976%_ (lambda () - (cons 'begin (reverse _%body109362%_))))) - (let ((_%g109366109425%_ + (cons 'begin (reverse _%body108700%_))))) + (let ((_%g108704108763%_ (lambda () - (if (gx#stx-null? _%__stx111628111629%_) - (_%__kont111637111638%_) + (if (gx#stx-null? _%__stx110966110967%_) + (_%__kont110975110976%_) (let () (declare (not safe)) - (_%g109367109414%_)))))) - (if (gx#stx-pair? _%__stx111628111629%_) - (let ((_%e109374109551%_ - (gx#syntax-e _%__stx111628111629%_))) - (let ((_%tl109372109558%_ + (_%g108705108752%_)))))) + (if (gx#stx-pair? _%__stx110966110967%_) + (let ((_%e108712108889%_ + (gx#syntax-e _%__stx110966110967%_))) + (let ((_%tl108710108896%_ (let () (declare (not safe)) - (##cdr _%e109374109551%_))) - (_%hd109373109555%_ + (##cdr _%e108712108889%_))) + (_%hd108711108893%_ (let () (declare (not safe)) - (##car _%e109374109551%_)))) - (if (gx#stx-pair? _%hd109373109555%_) - (let ((_%e109377109561%_ + (##car _%e108712108889%_)))) + (if (gx#stx-pair? _%hd108711108893%_) + (let ((_%e108715108899%_ (gx#syntax-e - _%hd109373109555%_))) - (let ((_%tl109375109568%_ + _%hd108711108893%_))) + (let ((_%tl108713108906%_ (let () (declare (not safe)) - (##cdr _%e109377109561%_))) - (_%hd109376109565%_ + (##cdr _%e108715108899%_))) + (_%hd108714108903%_ (let () (declare (not safe)) - (##car _%e109377109561%_)))) + (##car _%e108715108899%_)))) (if (gx#stx-pair? - _%tl109375109568%_) - (let ((_%e109380109571%_ + _%tl108713108906%_) + (let ((_%e108718108909%_ (gx#syntax-e - _%tl109375109568%_))) - (let ((_%tl109378109578%_ + _%tl108713108906%_))) + (let ((_%tl108716108916%_ (let () (declare (not safe)) - (##cdr _%e109380109571%_))) - (_%hd109379109575%_ + (##cdr _%e108718108909%_))) + (_%hd108717108913%_ (let () (declare (not safe)) - (##car _%e109380109571%_)))) + (##car _%e108718108909%_)))) (if (gx#stx-datum? - _%hd109379109575%_) - (let ((_%e109381109581%_ + _%hd108717108913%_) + (let ((_%e108719108919%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _%hd109379109575%_))) - (if (equal? _%e109381109581%_ 'expr:) - (if (gx#stx-pair? _%tl109378109578%_) - (let ((_%e109384109585%_ - (gx#syntax-e _%tl109378109578%_))) - (let ((_%tl109382109592%_ + (gx#stx-e _%hd108717108913%_))) + (if (equal? _%e108719108919%_ 'expr:) + (if (gx#stx-pair? _%tl108716108916%_) + (let ((_%e108722108923%_ + (gx#syntax-e _%tl108716108916%_))) + (let ((_%tl108720108930%_ (let () (declare (not safe)) - (##cdr _%e109384109585%_))) - (_%hd109383109589%_ + (##cdr _%e108722108923%_))) + (_%hd108721108927%_ (let () (declare (not safe)) - (##car _%e109384109585%_)))) - (if (gx#stx-null? _%tl109382109592%_) - (_%__kont111631111632%_ - _%tl109372109558%_ - _%hd109383109589%_ - _%hd109376109565%_) + (##car _%e108722108923%_)))) + (if (gx#stx-null? _%tl108720108930%_) + (_%__kont110969110970%_ + _%tl108710108896%_ + _%hd108721108927%_ + _%hd108714108903%_) (let () (declare (not safe)) - (_%g109367109414%_))))) - (let () (declare (not safe)) (_%g109367109414%_))) - (if (equal? _%e109381109581%_ 'special:) - (if (gx#stx-pair? _%tl109378109578%_) - (let ((_%e109400109512%_ - (gx#syntax-e _%tl109378109578%_))) - (let ((_%tl109398109519%_ + (_%g108705108752%_))))) + (let () (declare (not safe)) (_%g108705108752%_))) + (if (equal? _%e108719108919%_ 'special:) + (if (gx#stx-pair? _%tl108716108916%_) + (let ((_%e108738108850%_ + (gx#syntax-e _%tl108716108916%_))) + (let ((_%tl108736108857%_ (let () (declare (not safe)) - (##cdr _%e109400109512%_))) - (_%hd109399109516%_ + (##cdr _%e108738108850%_))) + (_%hd108737108854%_ (let () (declare (not safe)) - (##car _%e109400109512%_)))) - (if (gx#stx-null? _%tl109398109519%_) - (_%__kont111633111634%_ - _%tl109372109558%_ - _%hd109399109516%_ - _%hd109376109565%_) + (##car _%e108738108850%_)))) + (if (gx#stx-null? _%tl108736108857%_) + (_%__kont110971110972%_ + _%tl108710108896%_ + _%hd108737108854%_ + _%hd108714108903%_) (let () (declare (not safe)) - (_%g109367109414%_))))) + (_%g108705108752%_))))) (let () (declare (not safe)) - (_%g109367109414%_))) + (_%g108705108752%_))) (let () (declare (not safe)) - (_%g109367109414%_))))) - (let () (declare (not safe)) (_%g109367109414%_))))) + (_%g108705108752%_))))) + (let () (declare (not safe)) (_%g108705108752%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl109375109568%_) - (_%__kont111635111636%_ - _%tl109372109558%_ - _%hd109376109565%_) + _%tl108713108906%_) + (_%__kont110973110974%_ + _%tl108710108896%_ + _%hd108714108903%_) (let () (declare (not safe)) - (_%g109367109414%_)))))) + (_%g108705108752%_)))))) (let () (declare (not safe)) - (_%g109367109414%_))))) + (_%g108705108752%_))))) (let () (declare (not safe)) - (_%g109366109425%_)))))))) - _%form109286109335%_)))))) + (_%g108704108763%_)))))))) + _%form108624108673%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop109281109315%_ - _%target109278109309%_ + (_%loop108619108653%_ + _%target108616108647%_ '())) - (_%g109272109292%_ - _%g109273109296%_))))) - (_%g109272109292%_ _%g109273109296%_)))) - (_%g109272109292%_ _%g109273109296%_))))) - (_%g109271109629%_ _%stx109266%_))))))) + (_%g108610108630%_ + _%g108611108634%_))))) + (_%g108610108630%_ _%g108611108634%_)))) + (_%g108610108630%_ _%g108611108634%_))))) + (_%g108609108967%_ _%stx108604%_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit~0.scm b/src/bootstrap/gerbil/runtime/gambit~0.scm index 23abc5f52..457b7f5d4 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 1712533288) + (define gerbil/runtime/gambit::timestamp 1712573428) (let () (declare (not safe)) (##void))) diff --git a/src/bootstrap/gerbil/runtime/hash.ssi b/src/bootstrap/gerbil/runtime/hash.ssi index 0400b24c5..adae36a63 100644 --- a/src/bootstrap/gerbil/runtime/hash.ssi +++ b/src/bootstrap/gerbil/runtime/hash.ssi @@ -167,57 +167,57 @@ namespace: #f (%#define-runtime is-hash-table? is-hash-table?) (%#define-syntax deflocked-hash-method |[:0:]#deflocked-hash-method|) (%#define-runtime - _%locked-hash-table::ref102190%_ - _%locked-hash-table::ref102189%_) + _%locked-hash-table::ref101555%_ + _%locked-hash-table::ref101554%_) (%#define-runtime - _%locked-hash-table::set!102192%_ - _%locked-hash-table::set!102191%_) + _%locked-hash-table::set!101557%_ + _%locked-hash-table::set!101556%_) (%#define-runtime - _%locked-hash-table::update!102194%_ - _%locked-hash-table::update!102193%_) + _%locked-hash-table::update!101559%_ + _%locked-hash-table::update!101558%_) (%#define-runtime - _%locked-hash-table::delete!102196%_ - _%locked-hash-table::delete!102195%_) + _%locked-hash-table::delete!101561%_ + _%locked-hash-table::delete!101560%_) (%#define-runtime - _%locked-hash-table::for-each102198%_ - _%locked-hash-table::for-each102197%_) + _%locked-hash-table::for-each101563%_ + _%locked-hash-table::for-each101562%_) (%#define-runtime - _%locked-hash-table::length102200%_ - _%locked-hash-table::length102199%_) + _%locked-hash-table::length101565%_ + _%locked-hash-table::length101564%_) (%#define-runtime - _%locked-hash-table::copy102202%_ - _%locked-hash-table::copy102201%_) + _%locked-hash-table::copy101567%_ + _%locked-hash-table::copy101566%_) (%#define-runtime - _%locked-hash-table::clear!102204%_ - _%locked-hash-table::clear!102203%_) + _%locked-hash-table::clear!101569%_ + _%locked-hash-table::clear!101568%_) (%#define-syntax defchecked-hash-method |[:0:]#defchecked-hash-method|) (%#define-syntax check-hash-arg |[:0:]#check-hash-arg|) (%#define-runtime - _%checked-hash-table::ref102482%_ - _%checked-hash-table::ref102481%_) + _%checked-hash-table::ref101847%_ + _%checked-hash-table::ref101846%_) (%#define-runtime - _%checked-hash-table::set!102484%_ - _%checked-hash-table::set!102483%_) + _%checked-hash-table::set!101849%_ + _%checked-hash-table::set!101848%_) (%#define-runtime - _%checked-hash-table::update!102486%_ - _%checked-hash-table::update!102485%_) + _%checked-hash-table::update!101851%_ + _%checked-hash-table::update!101850%_) (%#define-runtime - _%checked-hash-table::delete!102488%_ - _%checked-hash-table::delete!102487%_) + _%checked-hash-table::delete!101853%_ + _%checked-hash-table::delete!101852%_) (%#define-runtime - _%checked-hash-table::for-each102490%_ - _%checked-hash-table::for-each102489%_) + _%checked-hash-table::for-each101855%_ + _%checked-hash-table::for-each101854%_) (%#define-runtime - _%checked-hash-table::length102492%_ - _%checked-hash-table::length102491%_) + _%checked-hash-table::length101857%_ + _%checked-hash-table::length101856%_) (%#define-runtime - _%checked-hash-table::copy102494%_ - _%checked-hash-table::copy102493%_) + _%checked-hash-table::copy101859%_ + _%checked-hash-table::copy101858%_) (%#define-runtime - _%checked-hash-table::clear!102496%_ - _%checked-hash-table::clear!102495%_) + _%checked-hash-table::clear!101861%_ + _%checked-hash-table::clear!101860%_) (%#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 812513844..1e0b22b5d 100644 --- a/src/bootstrap/gerbil/runtime/hash.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/hash.ssxi.ss @@ -76,8 +76,24 @@ package: gerbil/runtime arguments: (t::t t::t . t::t) unchecked: - #f))) - (declare-type raise-unbound-key-error (@lambda (2) #f)) + #f + origin: + gerbil/runtime/error))) + (declare-type + raise-unbound-key-error + (@lambda (2) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type unbound-key-error? (@predicate UnboundKeyError::t)) (declare-class HashTable::t @@ -112,13 +128,24 @@ package: gerbil/runtime arguments: (t::t) unchecked: - #f))) + #f + origin: + gerbil/runtime/hash))) (declare-type try-HashTable (@lambda 1 #f signature: - (return: t::t effect: (cast) arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + (cast) + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type HashTable? (@predicate HashTable::t)) (declare-type is-HashTable? @@ -132,7 +159,9 @@ package: gerbil/runtime arguments: (t::t) unchecked: - #f))) + #f + origin: + gerbil/runtime/hash))) (declare-type HashTable-clear! (@lambda 1 @@ -145,13 +174,24 @@ package: gerbil/runtime arguments: (HashTable::t) unchecked: - &HashTable-clear!))) + &HashTable-clear! + origin: + gerbil/runtime/hash))) (declare-type &HashTable-clear! (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type HashTable-copy (@lambda 1 @@ -164,19 +204,39 @@ package: gerbil/runtime arguments: (HashTable::t) unchecked: - __HashTable-copy))) + __HashTable-copy + origin: + gerbil/runtime/hash))) (declare-type __HashTable-copy (@lambda 1 #f signature: - (return: HashTable::t effect: #f arguments: #f unchecked: #f))) + (return: + HashTable::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type &HashTable-copy (@lambda 1 #f signature: - (return: HashTable::t effect: #f arguments: #f unchecked: #f))) + (return: + HashTable::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type HashTable-delete! (@lambda 2 @@ -189,13 +249,24 @@ package: gerbil/runtime arguments: (HashTable::t t::t) unchecked: - &HashTable-delete!))) + &HashTable-delete! + origin: + gerbil/runtime/hash))) (declare-type &HashTable-delete! (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type HashTable-for-each (@lambda 2 @@ -208,13 +279,24 @@ package: gerbil/runtime arguments: (HashTable::t procedure::t) unchecked: - &HashTable-for-each))) + &HashTable-for-each + origin: + gerbil/runtime/hash))) (declare-type &HashTable-for-each (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type HashTable-length (@lambda 1 @@ -227,19 +309,39 @@ package: gerbil/runtime arguments: (HashTable::t) unchecked: - __HashTable-length))) + __HashTable-length + origin: + gerbil/runtime/hash))) (declare-type __HashTable-length (@lambda 1 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type &HashTable-length (@lambda 1 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type HashTable-ref (@lambda 3 @@ -252,13 +354,24 @@ package: gerbil/runtime arguments: (HashTable::t t::t t::t) unchecked: - &HashTable-ref))) + &HashTable-ref + origin: + gerbil/runtime/hash))) (declare-type &HashTable-ref (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type HashTable-set! (@lambda 3 @@ -271,13 +384,24 @@ package: gerbil/runtime arguments: (HashTable::t t::t t::t) unchecked: - &HashTable-set!))) + &HashTable-set! + origin: + gerbil/runtime/hash))) (declare-type &HashTable-set! (@lambda 3 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type HashTable-update! (@lambda 4 @@ -290,13 +414,24 @@ package: gerbil/runtime arguments: (HashTable::t t::t procedure::t t::t) unchecked: - &HashTable-update!))) + &HashTable-update! + origin: + gerbil/runtime/hash))) (declare-type &HashTable-update! (@lambda 4 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-class Locker::t (@class gerbil/runtime/hash#Locker::t @@ -328,13 +463,24 @@ package: gerbil/runtime arguments: (t::t) unchecked: - #f))) + #f + origin: + gerbil/runtime/hash))) (declare-type try-Locker (@lambda 1 #f signature: - (return: t::t effect: (cast) arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + (cast) + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type Locker? (@predicate Locker::t)) (declare-type is-Locker? @@ -348,7 +494,9 @@ package: gerbil/runtime arguments: (t::t) unchecked: - #f))) + #f + origin: + gerbil/runtime/hash))) (declare-type Locker-read-lock! (@lambda 1 @@ -361,13 +509,24 @@ package: gerbil/runtime arguments: (Locker::t) unchecked: - &Locker-read-lock!))) + &Locker-read-lock! + origin: + gerbil/runtime/hash))) (declare-type &Locker-read-lock! (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type Locker-read-unlock! (@lambda 1 @@ -380,13 +539,24 @@ package: gerbil/runtime arguments: (Locker::t) unchecked: - &Locker-read-unlock!))) + &Locker-read-unlock! + origin: + gerbil/runtime/hash))) (declare-type &Locker-read-unlock! (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type Locker-write-lock! (@lambda 1 @@ -399,13 +569,24 @@ package: gerbil/runtime arguments: (Locker::t) unchecked: - &Locker-write-lock!))) + &Locker-write-lock! + origin: + gerbil/runtime/hash))) (declare-type &Locker-write-lock! (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type Locker-write-unlock! (@lambda 1 @@ -418,26 +599,69 @@ package: gerbil/runtime arguments: (Locker::t) unchecked: - &Locker-write-unlock!))) + &Locker-write-unlock! + origin: + gerbil/runtime/hash))) (declare-type &Locker-write-unlock! (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type gambit-table-update! (@lambda 4 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type gambit-table-for-each (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) - (declare-type gambit-table-clear! (@lambda 1 #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + gambit-table-clear! + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-class hash-table::t (@class gerbil#hash-table::t @@ -482,14 +706,14 @@ package: gerbil/runtime #t #f #f - ((length . _%locked-hash-table::length102199%_) - (delete! . _%locked-hash-table::delete!102195%_) - (set! . _%locked-hash-table::set!102191%_) - (clear! . _%locked-hash-table::clear!102203%_) - (update! . _%locked-hash-table::update!102193%_) - (ref . _%locked-hash-table::ref102189%_) - (for-each . _%locked-hash-table::for-each102197%_) - (copy . _%locked-hash-table::copy102201%_)))) + ((delete! . _%locked-hash-table::delete!101560%_) + (copy . _%locked-hash-table::copy101566%_) + (clear! . _%locked-hash-table::clear!101568%_) + (set! . _%locked-hash-table::set!101556%_) + (ref . _%locked-hash-table::ref101554%_) + (update! . _%locked-hash-table::update!101558%_) + (for-each . _%locked-hash-table::for-each101562%_) + (length . _%locked-hash-table::length101564%_)))) (declare-type locked-hash-table::t (optimizer-resolve-class '(typedecl locked-hash-table::t) 'class::t)) @@ -531,14 +755,14 @@ package: gerbil/runtime #t #f #f - ((length . _%checked-hash-table::length102491%_) - (delete! . _%checked-hash-table::delete!102487%_) - (set! . _%checked-hash-table::set!102483%_) - (clear! . _%checked-hash-table::clear!102495%_) - (update! . _%checked-hash-table::update!102485%_) - (ref . _%checked-hash-table::ref102481%_) - (for-each . _%checked-hash-table::for-each102489%_) - (copy . _%checked-hash-table::copy102493%_)))) + ((delete! . _%checked-hash-table::delete!101852%_) + (copy . _%checked-hash-table::copy101858%_) + (clear! . _%checked-hash-table::clear!101860%_) + (set! . _%checked-hash-table::set!101848%_) + (ref . _%checked-hash-table::ref101846%_) + (update! . _%checked-hash-table::update!101850%_) + (for-each . _%checked-hash-table::for-each101854%_) + (length . _%checked-hash-table::length101856%_)))) (declare-type checked-hash-table::t (optimizer-resolve-class '(typedecl checked-hash-table::t) 'class::t)) @@ -663,7 +887,7 @@ package: gerbil/runtime (declare-type hash-table? (@lambda 1 HashTable?)) (declare-type is-hash-table? (@lambda 1 is-HashTable?)) (declare-type - _%locked-hash-table::ref102189%_ + _%locked-hash-table::ref101554%_ (@lambda 3 #f signature: @@ -674,9 +898,11 @@ package: gerbil/runtime arguments: (t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/runtime/hash))) (declare-type - _%locked-hash-table::set!102191%_ + _%locked-hash-table::set!101556%_ (@lambda 3 #f signature: @@ -687,9 +913,11 @@ package: gerbil/runtime arguments: (t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/runtime/hash))) (declare-type - _%locked-hash-table::update!102193%_ + _%locked-hash-table::update!101558%_ (@lambda 4 #f signature: @@ -700,39 +928,86 @@ package: gerbil/runtime arguments: (t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/runtime/hash))) (declare-type - _%locked-hash-table::delete!102195%_ + _%locked-hash-table::delete!101560%_ (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type - _%locked-hash-table::for-each102197%_ + _%locked-hash-table::for-each101562%_ (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type - _%locked-hash-table::length102199%_ + _%locked-hash-table::length101564%_ (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type - _%locked-hash-table::copy102201%_ + _%locked-hash-table::copy101566%_ (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type - _%locked-hash-table::clear!102203%_ + _%locked-hash-table::clear!101568%_ (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type - _%checked-hash-table::ref102481%_ + _%checked-hash-table::ref101846%_ (@lambda 3 #f signature: @@ -743,9 +1018,11 @@ package: gerbil/runtime arguments: (t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/runtime/hash))) (declare-type - _%checked-hash-table::set!102483%_ + _%checked-hash-table::set!101848%_ (@lambda 3 #f signature: @@ -756,9 +1033,11 @@ package: gerbil/runtime arguments: (t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/runtime/hash))) (declare-type - _%checked-hash-table::update!102485%_ + _%checked-hash-table::update!101850%_ (@lambda 4 #f signature: @@ -769,41 +1048,116 @@ package: gerbil/runtime arguments: (t::t t::t t::t t::t) unchecked: - #f))) + #f + origin: + gerbil/runtime/hash))) (declare-type - _%checked-hash-table::delete!102487%_ + _%checked-hash-table::delete!101852%_ (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type - _%checked-hash-table::for-each102489%_ + _%checked-hash-table::for-each101854%_ (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type - _%checked-hash-table::length102491%_ + _%checked-hash-table::length101856%_ (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type - _%checked-hash-table::copy102493%_ + _%checked-hash-table::copy101858%_ (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type - _%checked-hash-table::clear!102495%_ + _%checked-hash-table::clear!101860%_ (@lambda 1 #f signature: - (return: t::t effect: #f arguments: (t::t) unchecked: #f))) - (declare-type make-generic-hash-table (@lambda 6 #f)) - (declare-type make-hash-table__% (@lambda 9 #f)) + (return: + t::t + effect: + #f + arguments: + (t::t) + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type - make-hash-table__@ + make-generic-hash-table + (@lambda 6 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + make-hash-table__% + (@lambda 9 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + make-hash-table__@ (@kw-lambda-dispatch (size: seed: test: hash: lock: check: weak-keys: weak-values:) make-hash-table__%)) @@ -812,25 +1166,291 @@ package: gerbil/runtime (@kw-lambda (weak-values: test: hash: size: seed: weak-keys: check: lock:) make-hash-table__@)) - (declare-type make-hash-table-eq (@lambda (0) #f)) - (declare-type make-hash-table-eqv (@lambda (0) #f)) - (declare-type make-hash-table-symbolic (@lambda (0) #f)) - (declare-type make-hash-table-string (@lambda (0) #f)) - (declare-type make-hash-table-immediate (@lambda (0) #f)) - (declare-type list->hash-table (@lambda (1) #f)) - (declare-type list->hash-table-eq (@lambda (1) #f)) - (declare-type list->hash-table-eqv (@lambda (1) #f)) - (declare-type list->hash-table-symbolic (@lambda (1) #f)) - (declare-type list->hash-table-string (@lambda (1) #f)) - (declare-type list->hash-table-immediate (@lambda (1) #f)) - (declare-type list->hash-table! (@lambda 2 #f)) - (declare-type plist->hash-table (@lambda (1) #f)) - (declare-type plist->hash-table-eq (@lambda (1) #f)) - (declare-type plist->hash-table-eqv (@lambda (1) #f)) - (declare-type plist->hash-table-symbolic (@lambda (1) #f)) - (declare-type plist->hash-table-string (@lambda (1) #f)) - (declare-type plist->hash-table-immediate (@lambda (1) #f)) - (declare-type plist->hash-table! (@lambda 2 #f)) + (declare-type + make-hash-table-eq + (@lambda (0) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + make-hash-table-eqv + (@lambda (0) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + make-hash-table-symbolic + (@lambda (0) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + make-hash-table-string + (@lambda (0) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + make-hash-table-immediate + (@lambda (0) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + list->hash-table + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + list->hash-table-eq + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + list->hash-table-eqv + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + list->hash-table-symbolic + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + list->hash-table-string + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + list->hash-table-immediate + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + list->hash-table! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + plist->hash-table + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + plist->hash-table-eq + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + plist->hash-table-eqv + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + plist->hash-table-symbolic + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + plist->hash-table-string + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + plist->hash-table-immediate + (@lambda (1) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) + (declare-type + plist->hash-table! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-length (@lambda 1 @@ -843,13 +1463,24 @@ package: gerbil/runtime arguments: (HashTable::t) unchecked: - __hash-length))) + __hash-length + origin: + gerbil/runtime/hash))) (declare-type __hash-length (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-ref__% (@lambda 3 @@ -862,47 +1493,112 @@ package: gerbil/runtime arguments: (HashTable::t t::t t::t) unchecked: - __hash-ref))) + __hash-ref + origin: + gerbil/runtime/hash))) (declare-type hash-ref__0 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-ref (@case-lambda (2 hash-ref__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash)) (3 hash-ref__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash)))) (declare-type __hash-ref__% (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type __hash-ref__0 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type __hash-ref (@case-lambda (2 __hash-ref__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash)) (3 __hash-ref__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash)))) (declare-type hash-get (@lambda 2 @@ -915,13 +1611,24 @@ package: gerbil/runtime arguments: (HashTable::t t::t) unchecked: - __hash-get))) + __hash-get + origin: + gerbil/runtime/hash))) (declare-type __hash-get (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-put! (@lambda 3 @@ -934,13 +1641,24 @@ package: gerbil/runtime arguments: (HashTable::t t::t t::t) unchecked: - __hash-put!))) + __hash-put! + origin: + gerbil/runtime/hash))) (declare-type __hash-put! (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-update!__% (@lambda 4 @@ -953,47 +1671,112 @@ package: gerbil/runtime arguments: (HashTable::t t::t t::t t::t) unchecked: - __hash-update!))) + __hash-update! + origin: + gerbil/runtime/hash))) (declare-type hash-update!__0 (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-update! (@case-lambda (3 hash-update!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash)) (4 hash-update!__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash)))) (declare-type __hash-update!__% (@lambda 4 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type __hash-update!__0 (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type __hash-update! (@case-lambda (3 __hash-update!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash)) (4 __hash-update!__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash)))) (declare-type hash-remove! (@lambda 2 @@ -1006,13 +1789,24 @@ package: gerbil/runtime arguments: (HashTable::t t::t) unchecked: - __hash-remove!))) + __hash-remove! + origin: + gerbil/runtime/hash))) (declare-type __hash-remove! (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-key? (@lambda 2 @@ -1025,13 +1819,24 @@ package: gerbil/runtime arguments: (HashTable::t t::t) unchecked: - __hash-key?))) + __hash-key? + origin: + gerbil/runtime/hash))) (declare-type __hash-key? (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash->list (@lambda 1 @@ -1044,13 +1849,24 @@ package: gerbil/runtime arguments: (HashTable::t) unchecked: - __hash->list))) + __hash->list + origin: + gerbil/runtime/hash))) (declare-type __hash->list (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash->plist (@lambda 1 @@ -1063,13 +1879,24 @@ package: gerbil/runtime arguments: (HashTable::t) unchecked: - __hash->plist))) + __hash->plist + origin: + gerbil/runtime/hash))) (declare-type __hash->plist (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-for-each (@lambda 2 @@ -1082,13 +1909,24 @@ package: gerbil/runtime arguments: (procedure::t HashTable::t) unchecked: - __hash-for-each))) + __hash-for-each + origin: + gerbil/runtime/hash))) (declare-type __hash-for-each (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-map (@lambda 2 @@ -1101,13 +1939,24 @@ package: gerbil/runtime arguments: (procedure::t HashTable::t) unchecked: - __hash-map))) + __hash-map + origin: + gerbil/runtime/hash))) (declare-type __hash-map (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-fold (@lambda 3 @@ -1120,13 +1969,24 @@ package: gerbil/runtime arguments: (procedure::t t::t HashTable::t) unchecked: - __hash-fold))) + __hash-fold + origin: + gerbil/runtime/hash))) (declare-type __hash-fold (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-find__% (@lambda 3 @@ -1139,47 +1999,112 @@ package: gerbil/runtime arguments: (procedure::t HashTable::t t::t) unchecked: - __hash-find))) + __hash-find + origin: + gerbil/runtime/hash))) (declare-type hash-find__0 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-find (@case-lambda (2 hash-find__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash)) (3 hash-find__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash)))) (declare-type __hash-find__% (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type __hash-find__0 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type __hash-find (@case-lambda (2 __hash-find__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash)) (3 __hash-find__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash)))) (declare-type hash-keys (@lambda 1 @@ -1192,13 +2117,24 @@ package: gerbil/runtime arguments: (HashTable::t) unchecked: - __hash-keys))) + __hash-keys + origin: + gerbil/runtime/hash))) (declare-type __hash-keys (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-values (@lambda 1 @@ -1211,13 +2147,24 @@ package: gerbil/runtime arguments: (HashTable::t) unchecked: - __hash-values))) + __hash-values + origin: + gerbil/runtime/hash))) (declare-type __hash-values (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-copy (@lambda 1 @@ -1230,13 +2177,24 @@ package: gerbil/runtime arguments: (HashTable::t) unchecked: - __hash-copy))) + __hash-copy + origin: + gerbil/runtime/hash))) (declare-type __hash-copy (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-clear! (@lambda 1 @@ -1249,13 +2207,24 @@ package: gerbil/runtime arguments: (HashTable::t) unchecked: - __hash-clear!))) + __hash-clear! + origin: + gerbil/runtime/hash))) (declare-type __hash-clear! (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-merge (@lambda (1) @@ -1268,13 +2237,24 @@ package: gerbil/runtime arguments: (HashTable::t . t::t) unchecked: - __hash-merge))) + __hash-merge + origin: + gerbil/runtime/hash))) (declare-type __hash-merge (@lambda (1) #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash))) (declare-type hash-merge! (@lambda (1) @@ -1287,10 +2267,21 @@ package: gerbil/runtime arguments: (HashTable::t . t::t) unchecked: - __hash-merge!))) + __hash-merge! + origin: + gerbil/runtime/hash))) (declare-type __hash-merge! (@lambda (1) #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/hash)))) diff --git a/src/bootstrap/gerbil/runtime/hash~0.scm b/src/bootstrap/gerbil/runtime/hash~0.scm index 156723e5f..178144b2c 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 1712533289) + (define gerbil/runtime/hash::timestamp 1712573430) (begin (define UnboundKeyError::t - (let ((__tmp106825 (list Error::t))) + (let ((__tmp106190 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#UnboundKeyError::t 'UnboundKeyError - __tmp106825 + __tmp106190 '() '() ':init!))) @@ -17,8 +17,8 @@ (declare (not safe)) (__make-class-predicate UnboundKeyError::t))) (define make-UnboundKeyError - (lambda _%$args106805%_ - (apply make-instance UnboundKeyError::t _%$args106805%_))) + (lambda _%$args106170%_ + (apply make-instance UnboundKeyError::t _%$args106170%_))) (define UnboundKeyError-message (let () (declare (not safe)) @@ -92,30 +92,30 @@ (declare (not safe)) (__bind-method! UnboundKeyError::t ':init! UnboundKeyError:::init! '#f)) (define raise-unbound-key-error - (lambda (_%where106679%_ _%message106680%_ . _%irritants106681%_) - (let ((__tmp106826 - (let ((__obj106819 + (lambda (_%where106044%_ _%message106045%_ . _%irritants106046%_) + (let ((__tmp106191 + (let ((__obj106184 (let () (declare (not safe)) (##structure UnboundKeyError::t '#f '#f '#f '#f)))) (UnboundKeyError:::init! - __obj106819 - _%message106680%_ + __obj106184 + _%message106045%_ 'where: - _%where106679%_ + _%where106044%_ 'irritants: - _%irritants106681%_) - __obj106819))) + _%irritants106046%_) + __obj106184))) (declare (not safe)) - (raise __tmp106826)))) + (raise __tmp106191)))) (define unbound-key-error? UnboundKeyError?) (define HashTable::t - (let ((__tmp106827 (cons interface-instance::t '()))) + (let ((__tmp106192 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#HashTable::t 'HashTable - __tmp106827 + __tmp106192 '(clear! copy delete! for-each length ref set! update!) '((final: . #t) (struct: . #t)) '#f))) @@ -127,150 +127,143 @@ HashTable::t '(clear! copy delete! for-each length ref set! update!)))) (define make-HashTable - (lambda (_%obj106677%_) + (lambda (_%obj106042%_) (let () (declare (not safe)) - (cast HashTable::interface _%obj106677%_)))) + (cast HashTable::interface _%obj106042%_)))) (define try-HashTable - (lambda (_%obj106675%_) + (lambda (_%obj106040%_) (let () (declare (not safe)) - (try-cast HashTable::interface _%obj106675%_)))) + (try-cast HashTable::interface _%obj106040%_)))) (define HashTable? - (lambda (_%obj106673%_) - (let ((__tmp106828 + (lambda (_%obj106038%_) + (let ((__tmp106193 (let () (declare (not safe)) (##type-id HashTable::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj106673%_ __tmp106828)))) + (##structure-direct-instance-of? _%obj106038%_ __tmp106193)))) (define is-HashTable? - (lambda (_%obj106671%_) + (lambda (_%obj106036%_) (if (let () (declare (not safe)) - (satisfies? HashTable::interface _%obj106671%_)) + (satisfies? HashTable::interface _%obj106036%_)) '#t '#f))) (define HashTable-clear! - (lambda (_%self106655%_) - (let* ((_%self106660%_ - (let ((_%$obj106657%_ _%self106655%_)) + (lambda (_%self106020%_) + (let* ((_%self106025%_ + (let ((_%$obj106022%_ _%self106020%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106657%_)) + (##structure? _%$obj106022%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106657%_))) + (##structure-type _%$obj106022%_))) '#t) - _%$obj106657%_ + _%$obj106022%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106657%_))))) - (_%self106662%_ _%self106660%_)) - (declare (not safe)) - (&HashTable-clear! _%self106662%_)))) + (cast HashTable::interface _%$obj106022%_))))) + (_%self106027%_ _%self106025%_)) + (&HashTable-clear! _%self106027%_)))) (define &HashTable-clear! - (lambda (_%self106640%_) - (let ((_%self106642%_ _%self106640%_)) + (lambda (_%self106005%_) + (let ((_%self106007%_ _%self106005%_)) (declare (not safe)) - (let ((_%obj106652%_ - (##unchecked-structure-ref _%self106642%_ '1 '#f 'clear!)) - (_%f106653%_ - (##unchecked-structure-ref _%self106642%_ '2 '#f 'clear!))) - (_%f106653%_ _%obj106652%_))))) + (let ((_%obj106017%_ + (##unchecked-structure-ref _%self106007%_ '1 '#f 'clear!)) + (_%f106018%_ + (##unchecked-structure-ref _%self106007%_ '2 '#f 'clear!))) + (_%f106018%_ _%obj106017%_))))) (define HashTable-copy - (lambda (_%self106624%_) - (let* ((_%self106629%_ - (let ((_%$obj106626%_ _%self106624%_)) + (lambda (_%self105989%_) + (let* ((_%self105994%_ + (let ((_%$obj105991%_ _%self105989%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106626%_)) + (##structure? _%$obj105991%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106626%_))) + (##structure-type _%$obj105991%_))) '#t) - _%$obj106626%_ + _%$obj105991%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106626%_))))) - (_%self106631%_ _%self106629%_)) - (declare (not safe)) - (__HashTable-copy _%self106631%_)))) + (cast HashTable::interface _%$obj105991%_))))) + (_%self105996%_ _%self105994%_)) + (__HashTable-copy _%self105996%_)))) (define __HashTable-copy - (lambda (_%self106611%_) - (let* ((_%self106613%_ _%self106611%_) - (_%$obj106621%_ - (let () - (declare (not safe)) - (&HashTable-copy _%self106613%_)))) - (if (and (let () (declare (not safe)) (##structure? _%$obj106621%_)) + (lambda (_%self105976%_) + (let* ((_%self105978%_ _%self105976%_) + (_%$obj105986%_ (&HashTable-copy _%self105978%_))) + (if (and (let () (declare (not safe)) (##structure? _%$obj105986%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106621%_))) + (##structure-type _%$obj105986%_))) '#t) - _%$obj106621%_ + _%$obj105986%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106621%_)))))) + (cast HashTable::interface _%$obj105986%_)))))) (define &HashTable-copy - (lambda (_%self106596%_) - (let ((_%self106598%_ _%self106596%_)) + (lambda (_%self105961%_) + (let ((_%self105963%_ _%self105961%_)) (declare (not safe)) - (let ((_%obj106608%_ - (##unchecked-structure-ref _%self106598%_ '1 '#f 'copy)) - (_%f106609%_ - (##unchecked-structure-ref _%self106598%_ '3 '#f 'copy))) - (_%f106609%_ _%obj106608%_))))) + (let ((_%obj105973%_ + (##unchecked-structure-ref _%self105963%_ '1 '#f 'copy)) + (_%f105974%_ + (##unchecked-structure-ref _%self105963%_ '3 '#f 'copy))) + (_%f105974%_ _%obj105973%_))))) (define HashTable-delete! - (lambda (_%self106579%_ _%key106580%_) - (let* ((_%self106585%_ - (let ((_%$obj106582%_ _%self106579%_)) + (lambda (_%self105944%_ _%key105945%_) + (let* ((_%self105950%_ + (let ((_%$obj105947%_ _%self105944%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106582%_)) + (##structure? _%$obj105947%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106582%_))) + (##structure-type _%$obj105947%_))) '#t) - _%$obj106582%_ + _%$obj105947%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106582%_))))) - (_%self106587%_ _%self106585%_)) - (declare (not safe)) - (&HashTable-delete! _%self106587%_ _%key106580%_)))) + (cast HashTable::interface _%$obj105947%_))))) + (_%self105952%_ _%self105950%_)) + (&HashTable-delete! _%self105952%_ _%key105945%_)))) (define &HashTable-delete! - (lambda (_%self106563%_ _%key106564%_) - (let ((_%self106566%_ _%self106563%_)) + (lambda (_%self105928%_ _%key105929%_) + (let ((_%self105931%_ _%self105928%_)) (declare (not safe)) - (let ((_%obj106576%_ - (##unchecked-structure-ref _%self106566%_ '1 '#f 'delete!)) - (_%f106577%_ - (##unchecked-structure-ref _%self106566%_ '4 '#f 'delete!))) - (_%f106577%_ _%obj106576%_ _%key106564%_))))) + (let ((_%obj105941%_ + (##unchecked-structure-ref _%self105931%_ '1 '#f 'delete!)) + (_%f105942%_ + (##unchecked-structure-ref _%self105931%_ '4 '#f 'delete!))) + (_%f105942%_ _%obj105941%_ _%key105929%_))))) (define HashTable-for-each - (lambda (_%self106536%_ _%proc106537%_) - (let* ((_%self106542%_ - (let ((_%$obj106539%_ _%self106536%_)) + (lambda (_%self105901%_ _%proc105902%_) + (let* ((_%self105907%_ + (let ((_%$obj105904%_ _%self105901%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106539%_)) + (##structure? _%$obj105904%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106539%_))) + (##structure-type _%$obj105904%_))) '#t) - _%$obj106539%_ + _%$obj105904%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106539%_))))) - (_%self106544%_ _%self106542%_)) - (if (let () (declare (not safe)) (procedure? _%proc106537%_)) - (let ((_%proc106553%_ _%proc106537%_)) - (declare (not safe)) - (&HashTable-for-each _%self106544%_ _%proc106553%_)) + (cast HashTable::interface _%$obj105904%_))))) + (_%self105909%_ _%self105907%_)) + (if (procedure? _%proc105902%_) + (let ((_%proc105918%_ _%proc105902%_)) + (&HashTable-for-each _%self105909%_ _%proc105918%_)) (begin (raise-contract-violation-error '"contract violation" @@ -279,138 +272,131 @@ 'contract: 'procedure? 'value: - _%proc106537%_) + _%proc105902%_) '#!void))))) (define &HashTable-for-each - (lambda (_%self106512%_ _%proc106513%_) - (let* ((_%self106515%_ _%self106512%_) (_%proc106522%_ _%proc106513%_)) + (lambda (_%self105877%_ _%proc105878%_) + (let* ((_%self105880%_ _%self105877%_) (_%proc105887%_ _%proc105878%_)) (declare (not safe)) - (let ((_%obj106533%_ - (##unchecked-structure-ref _%self106515%_ '1 '#f 'for-each)) - (_%f106534%_ - (##unchecked-structure-ref _%self106515%_ '5 '#f 'for-each))) - (_%f106534%_ _%obj106533%_ _%proc106522%_))))) + (let ((_%obj105898%_ + (##unchecked-structure-ref _%self105880%_ '1 '#f 'for-each)) + (_%f105899%_ + (##unchecked-structure-ref _%self105880%_ '5 '#f 'for-each))) + (_%f105899%_ _%obj105898%_ _%proc105887%_))))) (define HashTable-length - (lambda (_%self106496%_) - (let* ((_%self106501%_ - (let ((_%$obj106498%_ _%self106496%_)) + (lambda (_%self105861%_) + (let* ((_%self105866%_ + (let ((_%$obj105863%_ _%self105861%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106498%_)) + (##structure? _%$obj105863%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106498%_))) + (##structure-type _%$obj105863%_))) '#t) - _%$obj106498%_ + _%$obj105863%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106498%_))))) - (_%self106503%_ _%self106501%_)) - (declare (not safe)) - (__HashTable-length _%self106503%_)))) + (cast HashTable::interface _%$obj105863%_))))) + (_%self105868%_ _%self105866%_)) + (__HashTable-length _%self105868%_)))) (define __HashTable-length - (lambda (_%self106483%_) - (let* ((_%self106485%_ _%self106483%_) - (_%val106493%_ - (let () - (declare (not safe)) - (&HashTable-length _%self106485%_)))) - (if (let () (declare (not safe)) (fixnum? _%val106493%_)) - _%val106493%_ + (lambda (_%self105848%_) + (let* ((_%self105850%_ _%self105848%_) + (_%val105858%_ (&HashTable-length _%self105850%_))) + (if (fixnum? _%val105858%_) + _%val105858%_ (let () (declare (not safe)) - (error '"bad cast" fixnum::t _%val106493%_)))))) + (error '"bad cast" fixnum::t _%val105858%_)))))) (define &HashTable-length - (lambda (_%self106468%_) - (let ((_%self106470%_ _%self106468%_)) + (lambda (_%self105833%_) + (let ((_%self105835%_ _%self105833%_)) (declare (not safe)) - (let ((_%obj106480%_ - (##unchecked-structure-ref _%self106470%_ '1 '#f 'length)) - (_%f106481%_ - (##unchecked-structure-ref _%self106470%_ '6 '#f 'length))) - (_%f106481%_ _%obj106480%_))))) + (let ((_%obj105845%_ + (##unchecked-structure-ref _%self105835%_ '1 '#f 'length)) + (_%f105846%_ + (##unchecked-structure-ref _%self105835%_ '6 '#f 'length))) + (_%f105846%_ _%obj105845%_))))) (define HashTable-ref - (lambda (_%self106450%_ _%key106451%_ _%default106452%_) - (let* ((_%self106457%_ - (let ((_%$obj106454%_ _%self106450%_)) + (lambda (_%self105815%_ _%key105816%_ _%default105817%_) + (let* ((_%self105822%_ + (let ((_%$obj105819%_ _%self105815%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106454%_)) + (##structure? _%$obj105819%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106454%_))) + (##structure-type _%$obj105819%_))) '#t) - _%$obj106454%_ + _%$obj105819%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106454%_))))) - (_%self106459%_ _%self106457%_)) - (declare (not safe)) - (&HashTable-ref _%self106459%_ _%key106451%_ _%default106452%_)))) + (cast HashTable::interface _%$obj105819%_))))) + (_%self105824%_ _%self105822%_)) + (&HashTable-ref _%self105824%_ _%key105816%_ _%default105817%_)))) (define &HashTable-ref - (lambda (_%self106433%_ _%key106434%_ _%default106435%_) - (let ((_%self106437%_ _%self106433%_)) + (lambda (_%self105798%_ _%key105799%_ _%default105800%_) + (let ((_%self105802%_ _%self105798%_)) (declare (not safe)) - (let ((_%obj106447%_ - (##unchecked-structure-ref _%self106437%_ '1 '#f 'ref)) - (_%f106448%_ - (##unchecked-structure-ref _%self106437%_ '7 '#f 'ref))) - (_%f106448%_ _%obj106447%_ _%key106434%_ _%default106435%_))))) + (let ((_%obj105812%_ + (##unchecked-structure-ref _%self105802%_ '1 '#f 'ref)) + (_%f105813%_ + (##unchecked-structure-ref _%self105802%_ '7 '#f 'ref))) + (_%f105813%_ _%obj105812%_ _%key105799%_ _%default105800%_))))) (define HashTable-set! - (lambda (_%self106415%_ _%key106416%_ _%value106417%_) - (let* ((_%self106422%_ - (let ((_%$obj106419%_ _%self106415%_)) + (lambda (_%self105780%_ _%key105781%_ _%value105782%_) + (let* ((_%self105787%_ + (let ((_%$obj105784%_ _%self105780%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106419%_)) + (##structure? _%$obj105784%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106419%_))) + (##structure-type _%$obj105784%_))) '#t) - _%$obj106419%_ + _%$obj105784%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106419%_))))) - (_%self106424%_ _%self106422%_)) - (declare (not safe)) - (&HashTable-set! _%self106424%_ _%key106416%_ _%value106417%_)))) + (cast HashTable::interface _%$obj105784%_))))) + (_%self105789%_ _%self105787%_)) + (&HashTable-set! _%self105789%_ _%key105781%_ _%value105782%_)))) (define &HashTable-set! - (lambda (_%self106398%_ _%key106399%_ _%value106400%_) - (let ((_%self106402%_ _%self106398%_)) + (lambda (_%self105763%_ _%key105764%_ _%value105765%_) + (let ((_%self105767%_ _%self105763%_)) (declare (not safe)) - (let ((_%obj106412%_ - (##unchecked-structure-ref _%self106402%_ '1 '#f 'set!)) - (_%f106413%_ - (##unchecked-structure-ref _%self106402%_ '8 '#f 'set!))) - (_%f106413%_ _%obj106412%_ _%key106399%_ _%value106400%_))))) + (let ((_%obj105777%_ + (##unchecked-structure-ref _%self105767%_ '1 '#f 'set!)) + (_%f105778%_ + (##unchecked-structure-ref _%self105767%_ '8 '#f 'set!))) + (_%f105778%_ _%obj105777%_ _%key105764%_ _%value105765%_))))) (define HashTable-update! - (lambda (_%self106369%_ _%key106370%_ _%proc106371%_ _%default106372%_) - (let* ((_%self106377%_ - (let ((_%$obj106374%_ _%self106369%_)) + (lambda (_%self105734%_ _%key105735%_ _%proc105736%_ _%default105737%_) + (let* ((_%self105742%_ + (let ((_%$obj105739%_ _%self105734%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106374%_)) + (##structure? _%$obj105739%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106374%_))) + (##structure-type _%$obj105739%_))) '#t) - _%$obj106374%_ + _%$obj105739%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106374%_))))) - (_%self106379%_ _%self106377%_)) - (if (let () (declare (not safe)) (procedure? _%proc106371%_)) - (let ((_%proc106388%_ _%proc106371%_)) - (declare (not safe)) + (cast HashTable::interface _%$obj105739%_))))) + (_%self105744%_ _%self105742%_)) + (if (procedure? _%proc105736%_) + (let ((_%proc105753%_ _%proc105736%_)) (&HashTable-update! - _%self106379%_ - _%key106370%_ - _%proc106388%_ - _%default106372%_)) + _%self105744%_ + _%key105735%_ + _%proc105753%_ + _%default105737%_)) (begin (raise-contract-violation-error '"contract violation" @@ -419,28 +405,28 @@ 'contract: 'procedure? 'value: - _%proc106371%_) + _%proc105736%_) '#!void))))) (define &HashTable-update! - (lambda (_%self106341%_ _%key106342%_ _%proc106343%_ _%default106344%_) - (let* ((_%self106346%_ _%self106341%_) (_%proc106353%_ _%proc106343%_)) + (lambda (_%self105706%_ _%key105707%_ _%proc105708%_ _%default105709%_) + (let* ((_%self105711%_ _%self105706%_) (_%proc105718%_ _%proc105708%_)) (declare (not safe)) - (let ((_%obj106364%_ - (##unchecked-structure-ref _%self106346%_ '1 '#f 'update!)) - (_%f106366%_ - (##unchecked-structure-ref _%self106346%_ '9 '#f 'update!))) - (_%f106366%_ - _%obj106364%_ - _%key106342%_ - _%proc106353%_ - _%default106344%_))))) + (let ((_%obj105729%_ + (##unchecked-structure-ref _%self105711%_ '1 '#f 'update!)) + (_%f105731%_ + (##unchecked-structure-ref _%self105711%_ '9 '#f 'update!))) + (_%f105731%_ + _%obj105729%_ + _%key105707%_ + _%proc105718%_ + _%default105709%_))))) (define Locker::t - (let ((__tmp106829 (cons interface-instance::t '()))) + (let ((__tmp106194 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#Locker::t 'Locker - __tmp106829 + __tmp106194 '(read-lock! read-unlock! write-lock! write-unlock!) '((final: . #t) (struct: . #t)) '#f))) @@ -452,166 +438,162 @@ Locker::t '(read-lock! read-unlock! write-lock! write-unlock!)))) (define make-Locker - (lambda (_%obj106339%_) - (let () (declare (not safe)) (cast Locker::interface _%obj106339%_)))) + (lambda (_%obj105704%_) + (let () (declare (not safe)) (cast Locker::interface _%obj105704%_)))) (define try-Locker - (lambda (_%obj106337%_) + (lambda (_%obj105702%_) (let () (declare (not safe)) - (try-cast Locker::interface _%obj106337%_)))) + (try-cast Locker::interface _%obj105702%_)))) (define Locker? - (lambda (_%obj106335%_) - (let ((__tmp106830 + (lambda (_%obj105700%_) + (let ((__tmp106195 (let () (declare (not safe)) (##type-id Locker::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj106335%_ __tmp106830)))) + (##structure-direct-instance-of? _%obj105700%_ __tmp106195)))) (define is-Locker? - (lambda (_%obj106333%_) + (lambda (_%obj105698%_) (if (let () (declare (not safe)) - (satisfies? Locker::interface _%obj106333%_)) + (satisfies? Locker::interface _%obj105698%_)) '#t '#f))) (define Locker-read-lock! - (lambda (_%self106317%_) - (let* ((_%self106322%_ - (let ((_%$obj106319%_ _%self106317%_)) + (lambda (_%self105682%_) + (let* ((_%self105687%_ + (let ((_%$obj105684%_ _%self105682%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106319%_)) + (##structure? _%$obj105684%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj106319%_))) + (##structure-type _%$obj105684%_))) '#t) - _%$obj106319%_ + _%$obj105684%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj106319%_))))) - (_%self106324%_ _%self106322%_)) - (declare (not safe)) - (&Locker-read-lock! _%self106324%_)))) + (cast Locker::interface _%$obj105684%_))))) + (_%self105689%_ _%self105687%_)) + (&Locker-read-lock! _%self105689%_)))) (define &Locker-read-lock! - (lambda (_%self106302%_) - (let ((_%self106304%_ _%self106302%_)) + (lambda (_%self105667%_) + (let ((_%self105669%_ _%self105667%_)) (declare (not safe)) - (let ((_%obj106314%_ - (##unchecked-structure-ref _%self106304%_ '1 '#f 'read-lock!)) - (_%f106315%_ + (let ((_%obj105679%_ + (##unchecked-structure-ref _%self105669%_ '1 '#f 'read-lock!)) + (_%f105680%_ (##unchecked-structure-ref - _%self106304%_ + _%self105669%_ '2 '#f 'read-lock!))) - (_%f106315%_ _%obj106314%_))))) + (_%f105680%_ _%obj105679%_))))) (define Locker-read-unlock! - (lambda (_%self106286%_) - (let* ((_%self106291%_ - (let ((_%$obj106288%_ _%self106286%_)) + (lambda (_%self105651%_) + (let* ((_%self105656%_ + (let ((_%$obj105653%_ _%self105651%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106288%_)) + (##structure? _%$obj105653%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj106288%_))) + (##structure-type _%$obj105653%_))) '#t) - _%$obj106288%_ + _%$obj105653%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj106288%_))))) - (_%self106293%_ _%self106291%_)) - (declare (not safe)) - (&Locker-read-unlock! _%self106293%_)))) + (cast Locker::interface _%$obj105653%_))))) + (_%self105658%_ _%self105656%_)) + (&Locker-read-unlock! _%self105658%_)))) (define &Locker-read-unlock! - (lambda (_%self106271%_) - (let ((_%self106273%_ _%self106271%_)) + (lambda (_%self105636%_) + (let ((_%self105638%_ _%self105636%_)) (declare (not safe)) - (let ((_%obj106283%_ + (let ((_%obj105648%_ (##unchecked-structure-ref - _%self106273%_ + _%self105638%_ '1 '#f 'read-unlock!)) - (_%f106284%_ + (_%f105649%_ (##unchecked-structure-ref - _%self106273%_ + _%self105638%_ '3 '#f 'read-unlock!))) - (_%f106284%_ _%obj106283%_))))) + (_%f105649%_ _%obj105648%_))))) (define Locker-write-lock! - (lambda (_%self106255%_) - (let* ((_%self106260%_ - (let ((_%$obj106257%_ _%self106255%_)) + (lambda (_%self105620%_) + (let* ((_%self105625%_ + (let ((_%$obj105622%_ _%self105620%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106257%_)) + (##structure? _%$obj105622%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj106257%_))) + (##structure-type _%$obj105622%_))) '#t) - _%$obj106257%_ + _%$obj105622%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj106257%_))))) - (_%self106262%_ _%self106260%_)) - (declare (not safe)) - (&Locker-write-lock! _%self106262%_)))) + (cast Locker::interface _%$obj105622%_))))) + (_%self105627%_ _%self105625%_)) + (&Locker-write-lock! _%self105627%_)))) (define &Locker-write-lock! - (lambda (_%self106240%_) - (let ((_%self106242%_ _%self106240%_)) + (lambda (_%self105605%_) + (let ((_%self105607%_ _%self105605%_)) (declare (not safe)) - (let ((_%obj106252%_ + (let ((_%obj105617%_ (##unchecked-structure-ref - _%self106242%_ + _%self105607%_ '1 '#f 'write-lock!)) - (_%f106253%_ + (_%f105618%_ (##unchecked-structure-ref - _%self106242%_ + _%self105607%_ '4 '#f 'write-lock!))) - (_%f106253%_ _%obj106252%_))))) + (_%f105618%_ _%obj105617%_))))) (define Locker-write-unlock! - (lambda (_%self106224%_) - (let* ((_%self106229%_ - (let ((_%$obj106226%_ _%self106224%_)) + (lambda (_%self105589%_) + (let* ((_%self105594%_ + (let ((_%$obj105591%_ _%self105589%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106226%_)) + (##structure? _%$obj105591%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj106226%_))) + (##structure-type _%$obj105591%_))) '#t) - _%$obj106226%_ + _%$obj105591%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj106226%_))))) - (_%self106231%_ _%self106229%_)) - (declare (not safe)) - (&Locker-write-unlock! _%self106231%_)))) + (cast Locker::interface _%$obj105591%_))))) + (_%self105596%_ _%self105594%_)) + (&Locker-write-unlock! _%self105596%_)))) (define &Locker-write-unlock! - (lambda (_%self106207%_) - (let ((_%self106209%_ _%self106207%_)) + (lambda (_%self105572%_) + (let ((_%self105574%_ _%self105572%_)) (declare (not safe)) - (let ((_%obj106219%_ + (let ((_%obj105584%_ (##unchecked-structure-ref - _%self106209%_ + _%self105574%_ '1 '#f 'write-unlock!)) - (_%f106221%_ + (_%f105586%_ (##unchecked-structure-ref - _%self106209%_ + _%self105574%_ '5 '#f 'write-unlock!))) - (_%f106221%_ _%obj106219%_))))) + (_%f105586%_ _%obj105584%_))))) (let () (declare (not safe)) (bind-method!__0 __table::t 'ref raw-table-ref)) @@ -661,195 +643,195 @@ (declare (not safe)) (bind-method!__0 __gc-table::t 'clear! gc-table-clear!)) (define gambit-table-update! - (lambda (_%table106200%_ - _%key106201%_ - _%update106202%_ - _%default106203%_) - (let ((_%result106205%_ - (table-ref _%table106200%_ _%key106201%_ _%default106203%_))) + (lambda (_%table105565%_ + _%key105566%_ + _%update105567%_ + _%default105568%_) + (let ((_%result105570%_ + (table-ref _%table105565%_ _%key105566%_ _%default105568%_))) (table-set! - _%table106200%_ - _%key106201%_ - (_%update106202%_ _%default106203%_))))) + _%table105565%_ + _%key105566%_ + (_%update105567%_ _%default105568%_))))) (define gambit-table-for-each - (lambda (_%table106197%_ _%proc106198%_) - (table-for-each _%proc106198%_ _%table106197%_))) + (lambda (_%table105562%_ _%proc105563%_) + (table-for-each _%proc105563%_ _%table105562%_))) (define gambit-table-clear! - (lambda (_%table106195%_) + (lambda (_%table105560%_) (let () (declare (not safe)) - (##unchecked-structure-set! _%table106195%_ '0 '5 '#f '#f)))) - (let ((__tmp106831 (macro-type-table))) + (##unchecked-structure-set! _%table105560%_ '0 '5 '#f '#f)))) + (let ((__tmp106196 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp106831 'ref table-ref)) - (let ((__tmp106832 (macro-type-table))) + (bind-method!__0 __tmp106196 'ref table-ref)) + (let ((__tmp106197 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp106832 'set! table-set!)) - (let ((__tmp106833 (macro-type-table))) + (bind-method!__0 __tmp106197 'set! table-set!)) + (let ((__tmp106198 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp106833 'update! gambit-table-update!)) - (let ((__tmp106834 (macro-type-table))) + (bind-method!__0 __tmp106198 'update! gambit-table-update!)) + (let ((__tmp106199 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp106834 'delete! table-set!)) - (let ((__tmp106835 (macro-type-table))) + (bind-method!__0 __tmp106199 'delete! table-set!)) + (let ((__tmp106200 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp106835 'for-each gambit-table-for-each)) - (let ((__tmp106836 (macro-type-table))) + (bind-method!__0 __tmp106200 'for-each gambit-table-for-each)) + (let ((__tmp106201 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp106836 'length table-length)) - (let ((__tmp106837 (macro-type-table))) + (bind-method!__0 __tmp106201 'length table-length)) + (let ((__tmp106202 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp106837 'copy table-copy)) - (let ((__tmp106838 (macro-type-table))) + (bind-method!__0 __tmp106202 'copy table-copy)) + (let ((__tmp106203 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp106838 'clear! gambit-table-clear!)) + (bind-method!__0 __tmp106203 'clear! gambit-table-clear!)) (define hash-table::t - (let* ((_%slots106177%_ '(table count free hash test seed)) - (_%slot-vector106179%_ (list->vector (cons '#f _%slots106177%_))) - (_%slot-table106186%_ - (let ((_%slot-table106181%_ + (let* ((_%slots105542%_ '(table count free hash test seed)) + (_%slot-vector105544%_ (list->vector (cons '#f _%slots105542%_))) + (_%slot-table105551%_ + (let ((_%slot-table105546%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp106841 - (lambda (_%slot106183%_ _%field106184%_) + (let ((__tmp106206 + (lambda (_%slot105548%_ _%field105549%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table106181%_ - _%slot106183%_ - _%field106184%_)) - (let ((__tmp106842 + _%slot-table105546%_ + _%slot105548%_ + _%field105549%_)) + (let ((__tmp106207 (let () (declare (not safe)) - (symbol->keyword _%slot106183%_)))) + (symbol->keyword _%slot105548%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table106181%_ - __tmp106842 - _%field106184%_)))) - (__tmp106839 - (let ((__tmp106840 + _%slot-table105546%_ + __tmp106207 + _%field105549%_)))) + (__tmp106204 + (let ((__tmp106205 (let () (declare (not safe)) - (##length _%slots106177%_)))) + (##length _%slots105542%_)))) (declare (not safe)) - (##iota __tmp106840 '1)))) + (##iota __tmp106205 '1)))) (declare (not safe)) - (##for-each __tmp106841 _%slots106177%_ __tmp106839)) - _%slot-table106181%_)) - (_%flags106188%_ + (##for-each __tmp106206 _%slots105542%_ __tmp106204)) + _%slot-table105546%_)) + (_%flags105553%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields106190%_ '#()) - (_%properties106192%_ + (_%fields105555%_ '#()) + (_%properties105557%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots106177%_))) + (__foldr1 cons '() _%slots105542%_))) (cons (cons 'struct: '#t) '()))) - (__tmp106843 (cons object::t (cons t::t '())))) + (__tmp106208 (cons object::t (cons t::t '())))) (declare (not safe)) (##structure class::t 'gerbil#hash-table::t 'hash-table - _%flags106188%_ + _%flags105553%_ __table::t - _%fields106190%_ - __tmp106843 - _%slot-vector106179%_ - _%slot-table106186%_ - _%properties106192%_ + _%fields105555%_ + __tmp106208 + _%slot-vector105544%_ + _%slot-table105551%_ + _%properties105557%_ '#f '#f))) (define gc-hash-table::t - (let* ((_%slots106159%_ '(gcht immediate)) - (_%slot-vector106161%_ (list->vector (cons '#f _%slots106159%_))) - (_%slot-table106168%_ - (let ((_%slot-table106163%_ + (let* ((_%slots105524%_ '(gcht immediate)) + (_%slot-vector105526%_ (list->vector (cons '#f _%slots105524%_))) + (_%slot-table105533%_ + (let ((_%slot-table105528%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp106846 - (lambda (_%slot106165%_ _%field106166%_) + (let ((__tmp106211 + (lambda (_%slot105530%_ _%field105531%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table106163%_ - _%slot106165%_ - _%field106166%_)) - (let ((__tmp106847 + _%slot-table105528%_ + _%slot105530%_ + _%field105531%_)) + (let ((__tmp106212 (let () (declare (not safe)) - (symbol->keyword _%slot106165%_)))) + (symbol->keyword _%slot105530%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table106163%_ - __tmp106847 - _%field106166%_)))) - (__tmp106844 - (let ((__tmp106845 + _%slot-table105528%_ + __tmp106212 + _%field105531%_)))) + (__tmp106209 + (let ((__tmp106210 (let () (declare (not safe)) - (##length _%slots106159%_)))) + (##length _%slots105524%_)))) (declare (not safe)) - (##iota __tmp106845 '1)))) + (##iota __tmp106210 '1)))) (declare (not safe)) - (##for-each __tmp106846 _%slots106159%_ __tmp106844)) - _%slot-table106163%_)) - (_%flags106170%_ + (##for-each __tmp106211 _%slots105524%_ __tmp106209)) + _%slot-table105528%_)) + (_%flags105535%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields106172%_ '#()) - (_%properties106174%_ + (_%fields105537%_ '#()) + (_%properties105539%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots106159%_))) + (__foldr1 cons '() _%slots105524%_))) (cons (cons 'struct: '#t) '()))) - (__tmp106848 (cons object::t (cons t::t '())))) + (__tmp106213 (cons object::t (cons t::t '())))) (declare (not safe)) (##structure class::t 'gerbil#gc-hash-table::t 'hash-table - _%flags106170%_ + _%flags105535%_ __gc-table::t - _%fields106172%_ - __tmp106848 - _%slot-vector106161%_ - _%slot-table106168%_ - _%properties106174%_ + _%fields105537%_ + __tmp106213 + _%slot-vector105526%_ + _%slot-table105533%_ + _%properties105539%_ '#f '#f))) (define locked-hash-table::t - (let ((__tmp106850 (list)) - (__tmp106849 + (let ((__tmp106215 (list)) + (__tmp106214 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#locked-hash-table::t 'locked-hash-table - __tmp106850 + __tmp106215 '(table lock) - __tmp106849 + __tmp106214 '#f))) (define locked-hash-table? (let () (declare (not safe)) (__make-class-predicate locked-hash-table::t))) (define make-locked-hash-table - (lambda _%$args106156%_ - (apply make-instance locked-hash-table::t _%$args106156%_))) + (lambda _%$args105521%_ + (apply make-instance locked-hash-table::t _%$args105521%_))) (define locked-hash-table-table (let () (declare (not safe)) @@ -883,24 +865,24 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator locked-hash-table::t 'lock))) (define checked-hash-table::t - (let ((__tmp106852 (list)) - (__tmp106851 + (let ((__tmp106217 (list)) + (__tmp106216 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#checked-hash-table::t 'checked-hash-table - __tmp106852 + __tmp106217 '(table key-check) - __tmp106851 + __tmp106216 '#f))) (define checked-hash-table? (let () (declare (not safe)) (__make-class-predicate checked-hash-table::t))) (define make-checked-hash-table - (lambda _%$args106153%_ - (apply make-instance checked-hash-table::t _%$args106153%_))) + (lambda _%$args105518%_ + (apply make-instance checked-hash-table::t _%$args105518%_))) (define checked-hash-table-table (let () (declare (not safe)) @@ -938,91 +920,91 @@ checked-hash-table::t 'key-check))) (define eq-hash-table::t - (let ((__tmp106854 (list hash-table::t)) - (__tmp106853 (cons (cons 'struct: '#t) '()))) + (let ((__tmp106219 (list hash-table::t)) + (__tmp106218 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#eq-hash-table 'hash-table - __tmp106854 + __tmp106219 '() - __tmp106853 + __tmp106218 '#f))) (define eq-hash-table? (let () (declare (not safe)) (__make-class-predicate eq-hash-table::t))) (define make-eq-hash-table - (lambda _%$args106150%_ - (apply make-instance eq-hash-table::t _%$args106150%_))) + (lambda _%$args105515%_ + (apply make-instance eq-hash-table::t _%$args105515%_))) (define eqv-hash-table::t - (let ((__tmp106856 (list hash-table::t)) - (__tmp106855 (cons (cons 'struct: '#t) '()))) + (let ((__tmp106221 (list hash-table::t)) + (__tmp106220 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#eqv-hash-table 'hash-table - __tmp106856 + __tmp106221 '() - __tmp106855 + __tmp106220 '#f))) (define eqv-hash-table? (let () (declare (not safe)) (__make-class-predicate eqv-hash-table::t))) (define make-eqv-hash-table - (lambda _%$args106147%_ - (apply make-instance eqv-hash-table::t _%$args106147%_))) + (lambda _%$args105512%_ + (apply make-instance eqv-hash-table::t _%$args105512%_))) (define symbol-hash-table::t - (let ((__tmp106858 (list hash-table::t)) - (__tmp106857 (cons (cons 'struct: '#t) '()))) + (let ((__tmp106223 (list hash-table::t)) + (__tmp106222 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#symbol-hash-table 'hash-table - __tmp106858 + __tmp106223 '() - __tmp106857 + __tmp106222 '#f))) (define symbol-hash-table? (let () (declare (not safe)) (__make-class-predicate symbol-hash-table::t))) (define make-symbol-hash-table - (lambda _%$args106144%_ - (apply make-instance symbol-hash-table::t _%$args106144%_))) + (lambda _%$args105509%_ + (apply make-instance symbol-hash-table::t _%$args105509%_))) (define string-hash-table::t - (let ((__tmp106860 (list hash-table::t)) - (__tmp106859 (cons (cons 'struct: '#t) '()))) + (let ((__tmp106225 (list hash-table::t)) + (__tmp106224 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#string-hash-table 'hash-table - __tmp106860 + __tmp106225 '() - __tmp106859 + __tmp106224 '#f))) (define string-hash-table? (let () (declare (not safe)) (__make-class-predicate string-hash-table::t))) (define make-string-hash-table - (lambda _%$args106141%_ - (apply make-instance string-hash-table::t _%$args106141%_))) + (lambda _%$args105506%_ + (apply make-instance string-hash-table::t _%$args105506%_))) (define immediate-hash-table::t - (let ((__tmp106862 (list hash-table::t)) - (__tmp106861 (cons (cons 'struct: '#t) '()))) + (let ((__tmp106227 (list hash-table::t)) + (__tmp106226 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#immediate-hash-table::t 'hash-table - __tmp106862 + __tmp106227 '() - __tmp106861 + __tmp106226 '#f))) (define immediate-hash-table? (let () (declare (not safe)) (__make-class-predicate immediate-hash-table::t))) (define make-immediate-hash-table - (lambda _%$args106138%_ - (apply make-instance immediate-hash-table::t _%$args106138%_))) + (lambda _%$args105503%_ + (apply make-instance immediate-hash-table::t _%$args105503%_))) (let () (declare (not safe)) (bind-method!__0 hash-table::t 'ref raw-table-ref)) @@ -1138,937 +1120,795 @@ (declare (not safe)) (bind-method!__0 gc-hash-table::t 'clear! gc-table-clear!)) (define hash-table? - (lambda (_%obj106136%_) + (lambda (_%obj105501%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%obj106136%_ + _%obj105501%_ 'gerbil/runtime/hash#HashTable::t)))) (define is-hash-table? - (lambda (_%obj106134%_) - (let () (declare (not safe)) (is-HashTable? _%obj106134%_)))) - (define _%locked-hash-table::ref102189%_ - (lambda (_%self106110%_ _%key106112%_ _%default106113%_) - (let ((_%self106116%_ _%self106110%_)) - (let ((_%h106126%_ + (lambda (_%obj105499%_) (is-HashTable? _%obj105499%_))) + (define _%locked-hash-table::ref101554%_ + (lambda (_%self105475%_ _%key105477%_ _%default105478%_) + (let ((_%self105481%_ _%self105475%_)) + (let ((_%h105491%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self106116%_ '1 '#f '#f))) - (_%l106128%_ + (##unchecked-structure-ref _%self105481%_ '1 '#f '#f))) + (_%l105493%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self106116%_ '2 '#f '#f)))) - (let ((__tmp106865 - (lambda () - (let () - (declare (not safe)) - (&Locker-read-lock! _%l106128%_)))) - (__tmp106864 - (lambda () - (let () - (declare (not safe)) - (&HashTable-ref - _%h106126%_ - _%key106112%_ - _%default106113%_)))) - (__tmp106863 + (##unchecked-structure-ref _%self105481%_ '2 '#f '#f)))) + (let ((__tmp106230 (lambda () (&Locker-read-lock! _%l105493%_))) + (__tmp106229 (lambda () - (let () - (declare (not safe)) - (&Locker-read-unlock! _%l106128%_))))) + (&HashTable-ref + _%h105491%_ + _%key105477%_ + _%default105478%_))) + (__tmp106228 (lambda () (&Locker-read-unlock! _%l105493%_)))) (declare (not safe)) - (##dynamic-wind __tmp106865 __tmp106864 __tmp106863)))))) + (##dynamic-wind __tmp106230 __tmp106229 __tmp106228)))))) (let () (declare (not safe)) (__bind-method! locked-hash-table::t 'ref - _%locked-hash-table::ref102189%_ + _%locked-hash-table::ref101554%_ '#f)) - (define _%locked-hash-table::set!102191%_ - (lambda (_%self105963%_ _%key105965%_ _%value105966%_) - (let ((_%self105969%_ _%self105963%_)) - (let ((_%h105979%_ + (define _%locked-hash-table::set!101556%_ + (lambda (_%self105328%_ _%key105330%_ _%value105331%_) + (let ((_%self105334%_ _%self105328%_)) + (let ((_%h105344%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self105969%_ '1 '#f '#f))) - (_%l105981%_ + (##unchecked-structure-ref _%self105334%_ '1 '#f '#f))) + (_%l105346%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self105969%_ '2 '#f '#f)))) - (let ((__tmp106868 + (##unchecked-structure-ref _%self105334%_ '2 '#f '#f)))) + (let ((__tmp106233 (lambda () (&Locker-write-lock! _%l105346%_))) + (__tmp106232 (lambda () - (let () - (declare (not safe)) - (&Locker-write-lock! _%l105981%_)))) - (__tmp106867 - (lambda () - (let () - (declare (not safe)) - (&HashTable-set! - _%h105979%_ - _%key105965%_ - _%value105966%_)))) - (__tmp106866 - (lambda () - (let () - (declare (not safe)) - (&Locker-write-unlock! _%l105981%_))))) + (&HashTable-set! + _%h105344%_ + _%key105330%_ + _%value105331%_))) + (__tmp106231 + (lambda () (&Locker-write-unlock! _%l105346%_)))) (declare (not safe)) - (##dynamic-wind __tmp106868 __tmp106867 __tmp106866)))))) + (##dynamic-wind __tmp106233 __tmp106232 __tmp106231)))))) (let () (declare (not safe)) (__bind-method! locked-hash-table::t 'set! - _%locked-hash-table::set!102191%_ + _%locked-hash-table::set!101556%_ '#f)) - (define _%locked-hash-table::update!102193%_ - (lambda (_%self105815%_ _%key105817%_ _%update105818%_ _%default105819%_) - (let ((_%self105822%_ _%self105815%_)) - (let ((_%h105832%_ + (define _%locked-hash-table::update!101558%_ + (lambda (_%self105180%_ _%key105182%_ _%update105183%_ _%default105184%_) + (let ((_%self105187%_ _%self105180%_)) + (let ((_%h105197%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self105822%_ '1 '#f '#f))) - (_%l105834%_ + (##unchecked-structure-ref _%self105187%_ '1 '#f '#f))) + (_%l105199%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self105822%_ '2 '#f '#f)))) - (let ((__tmp106871 + (##unchecked-structure-ref _%self105187%_ '2 '#f '#f)))) + (let ((__tmp106236 (lambda () (&Locker-write-lock! _%l105199%_))) + (__tmp106235 (lambda () - (let () - (declare (not safe)) - (&Locker-write-lock! _%l105834%_)))) - (__tmp106870 - (lambda () - (let () - (declare (not safe)) - (&HashTable-update! - _%h105832%_ - _%key105817%_ - _%update105818%_ - _%default105819%_)))) - (__tmp106869 - (lambda () - (let () - (declare (not safe)) - (&Locker-write-unlock! _%l105834%_))))) + (&HashTable-update! + _%h105197%_ + _%key105182%_ + _%update105183%_ + _%default105184%_))) + (__tmp106234 + (lambda () (&Locker-write-unlock! _%l105199%_)))) (declare (not safe)) - (##dynamic-wind __tmp106871 __tmp106870 __tmp106869)))))) + (##dynamic-wind __tmp106236 __tmp106235 __tmp106234)))))) (let () (declare (not safe)) (__bind-method! locked-hash-table::t 'update! - _%locked-hash-table::update!102193%_ + _%locked-hash-table::update!101558%_ '#f)) - (define _%locked-hash-table::delete!102195%_ - (lambda (_%self105669%_ _%key105671%_) - (let ((_%self105674%_ _%self105669%_)) - (let ((_%h105684%_ + (define _%locked-hash-table::delete!101560%_ + (lambda (_%self105034%_ _%key105036%_) + (let ((_%self105039%_ _%self105034%_)) + (let ((_%h105049%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self105674%_ '1 '#f '#f))) - (_%l105686%_ + (##unchecked-structure-ref _%self105039%_ '1 '#f '#f))) + (_%l105051%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self105674%_ '2 '#f '#f)))) - (let ((__tmp106874 - (lambda () - (let () - (declare (not safe)) - (&Locker-write-lock! _%l105686%_)))) - (__tmp106873 - (lambda () - (let () - (declare (not safe)) - (&HashTable-delete! _%h105684%_ _%key105671%_)))) - (__tmp106872 - (lambda () - (let () - (declare (not safe)) - (&Locker-write-unlock! _%l105686%_))))) + (##unchecked-structure-ref _%self105039%_ '2 '#f '#f)))) + (let ((__tmp106239 (lambda () (&Locker-write-lock! _%l105051%_))) + (__tmp106238 + (lambda () (&HashTable-delete! _%h105049%_ _%key105036%_))) + (__tmp106237 + (lambda () (&Locker-write-unlock! _%l105051%_)))) (declare (not safe)) - (##dynamic-wind __tmp106874 __tmp106873 __tmp106872)))))) + (##dynamic-wind __tmp106239 __tmp106238 __tmp106237)))))) (let () (declare (not safe)) (__bind-method! locked-hash-table::t 'delete! - _%locked-hash-table::delete!102195%_ + _%locked-hash-table::delete!101560%_ '#f)) - (define _%locked-hash-table::for-each102197%_ - (lambda (_%self105523%_ _%proc105525%_) - (let ((_%self105528%_ _%self105523%_)) - (let ((_%h105538%_ + (define _%locked-hash-table::for-each101562%_ + (lambda (_%self104888%_ _%proc104890%_) + (let ((_%self104893%_ _%self104888%_)) + (let ((_%h104903%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self105528%_ '1 '#f '#f))) - (_%l105540%_ + (##unchecked-structure-ref _%self104893%_ '1 '#f '#f))) + (_%l104905%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self105528%_ '2 '#f '#f)))) - (let ((__tmp106877 - (lambda () - (let () - (declare (not safe)) - (&Locker-read-lock! _%l105540%_)))) - (__tmp106876 - (lambda () - (let () - (declare (not safe)) - (&HashTable-for-each _%h105538%_ _%proc105525%_)))) - (__tmp106875 + (##unchecked-structure-ref _%self104893%_ '2 '#f '#f)))) + (let ((__tmp106242 (lambda () (&Locker-read-lock! _%l104905%_))) + (__tmp106241 (lambda () - (let () - (declare (not safe)) - (&Locker-read-unlock! _%l105540%_))))) + (&HashTable-for-each _%h104903%_ _%proc104890%_))) + (__tmp106240 (lambda () (&Locker-read-unlock! _%l104905%_)))) (declare (not safe)) - (##dynamic-wind __tmp106877 __tmp106876 __tmp106875)))))) + (##dynamic-wind __tmp106242 __tmp106241 __tmp106240)))))) (let () (declare (not safe)) (__bind-method! locked-hash-table::t 'for-each - _%locked-hash-table::for-each102197%_ + _%locked-hash-table::for-each101562%_ '#f)) - (define _%locked-hash-table::length102199%_ - (lambda (_%self105378%_) - (let ((_%self105382%_ _%self105378%_)) - (let ((_%h105392%_ + (define _%locked-hash-table::length101564%_ + (lambda (_%self104743%_) + (let ((_%self104747%_ _%self104743%_)) + (let ((_%h104757%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self105382%_ '1 '#f '#f))) - (_%l105394%_ + (##unchecked-structure-ref _%self104747%_ '1 '#f '#f))) + (_%l104759%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self105382%_ '2 '#f '#f)))) - (let ((__tmp106880 - (lambda () - (let () - (declare (not safe)) - (&Locker-read-lock! _%l105394%_)))) - (__tmp106879 - (lambda () - (let () - (declare (not safe)) - (&HashTable-length _%h105392%_)))) - (__tmp106878 - (lambda () - (let () - (declare (not safe)) - (&Locker-read-unlock! _%l105394%_))))) + (##unchecked-structure-ref _%self104747%_ '2 '#f '#f)))) + (let ((__tmp106245 (lambda () (&Locker-read-lock! _%l104759%_))) + (__tmp106244 (lambda () (&HashTable-length _%h104757%_))) + (__tmp106243 (lambda () (&Locker-read-unlock! _%l104759%_)))) (declare (not safe)) - (##dynamic-wind __tmp106880 __tmp106879 __tmp106878)))))) + (##dynamic-wind __tmp106245 __tmp106244 __tmp106243)))))) (let () (declare (not safe)) (__bind-method! locked-hash-table::t 'length - _%locked-hash-table::length102199%_ + _%locked-hash-table::length101564%_ '#f)) - (define _%locked-hash-table::copy102201%_ - (lambda (_%self105233%_) - (let ((_%self105237%_ _%self105233%_)) - (let ((_%h105247%_ + (define _%locked-hash-table::copy101566%_ + (lambda (_%self104598%_) + (let ((_%self104602%_ _%self104598%_)) + (let ((_%h104612%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self105237%_ '1 '#f '#f))) - (_%l105249%_ + (##unchecked-structure-ref _%self104602%_ '1 '#f '#f))) + (_%l104614%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self105237%_ '2 '#f '#f)))) - (let ((__tmp106883 - (lambda () - (let () - (declare (not safe)) - (&Locker-read-lock! _%l105249%_)))) - (__tmp106882 - (lambda () - (let () - (declare (not safe)) - (&HashTable-copy _%h105247%_)))) - (__tmp106881 - (lambda () - (let () - (declare (not safe)) - (&Locker-read-unlock! _%l105249%_))))) + (##unchecked-structure-ref _%self104602%_ '2 '#f '#f)))) + (let ((__tmp106248 (lambda () (&Locker-read-lock! _%l104614%_))) + (__tmp106247 (lambda () (&HashTable-copy _%h104612%_))) + (__tmp106246 (lambda () (&Locker-read-unlock! _%l104614%_)))) (declare (not safe)) - (##dynamic-wind __tmp106883 __tmp106882 __tmp106881)))))) + (##dynamic-wind __tmp106248 __tmp106247 __tmp106246)))))) (let () (declare (not safe)) (__bind-method! locked-hash-table::t 'copy - _%locked-hash-table::copy102201%_ + _%locked-hash-table::copy101566%_ '#f)) - (define _%locked-hash-table::clear!102203%_ - (lambda (_%self105088%_) - (let ((_%self105092%_ _%self105088%_)) - (let ((_%h105102%_ + (define _%locked-hash-table::clear!101568%_ + (lambda (_%self104453%_) + (let ((_%self104457%_ _%self104453%_)) + (let ((_%h104467%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self105092%_ '1 '#f '#f))) - (_%l105104%_ + (##unchecked-structure-ref _%self104457%_ '1 '#f '#f))) + (_%l104469%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self105092%_ '2 '#f '#f)))) - (let ((__tmp106886 - (lambda () - (let () - (declare (not safe)) - (&Locker-write-lock! _%l105104%_)))) - (__tmp106885 - (lambda () - (let () - (declare (not safe)) - (&HashTable-clear! _%h105102%_)))) - (__tmp106884 - (lambda () - (let () - (declare (not safe)) - (&Locker-write-unlock! _%l105104%_))))) + (##unchecked-structure-ref _%self104457%_ '2 '#f '#f)))) + (let ((__tmp106251 (lambda () (&Locker-write-lock! _%l104469%_))) + (__tmp106250 (lambda () (&HashTable-clear! _%h104467%_))) + (__tmp106249 + (lambda () (&Locker-write-unlock! _%l104469%_)))) (declare (not safe)) - (##dynamic-wind __tmp106886 __tmp106885 __tmp106884)))))) + (##dynamic-wind __tmp106251 __tmp106250 __tmp106249)))))) (let () (declare (not safe)) (__bind-method! locked-hash-table::t 'clear! - _%locked-hash-table::clear!102203%_ + _%locked-hash-table::clear!101568%_ '#f)) - (let ((__tmp106887 (macro-type-mutex))) + (let ((__tmp106252 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp106887 'read-lock! mutex-lock!)) - (let ((__tmp106888 (macro-type-mutex))) + (bind-method!__0 __tmp106252 'read-lock! mutex-lock!)) + (let ((__tmp106253 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp106888 'read-unlock! mutex-unlock!)) - (let ((__tmp106889 (macro-type-mutex))) + (bind-method!__0 __tmp106253 'read-unlock! mutex-unlock!)) + (let ((__tmp106254 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp106889 'write-lock! mutex-lock!)) - (let ((__tmp106890 (macro-type-mutex))) + (bind-method!__0 __tmp106254 'write-lock! mutex-lock!)) + (let ((__tmp106255 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp106890 'write-unlock! mutex-unlock!)) - (define _%checked-hash-table::ref102481%_ - (lambda (_%self104941%_ _%key104942%_ _%default104943%_) - (let ((_%self104946%_ _%self104941%_)) - (let ((_%h104956%_ + (bind-method!__0 __tmp106255 'write-unlock! mutex-unlock!)) + (define _%checked-hash-table::ref101846%_ + (lambda (_%self104306%_ _%key104307%_ _%default104308%_) + (let ((_%self104311%_ _%self104306%_)) + (let ((_%h104321%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self104946%_ '1 '#f '#f))) - (_%key?104958%_ + (##unchecked-structure-ref _%self104311%_ '1 '#f '#f))) + (_%key?104323%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self104946%_ '2 '#f '#f)))) - ((lambda (_%g104960104962%_) - (if (_%g104960104962%_ _%key104942%_) + (##unchecked-structure-ref _%self104311%_ '2 '#f '#f)))) + ((lambda (_%g104325104327%_) + (if (_%g104325104327%_ _%key104307%_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _%key104942%_)))) - _%key?104958%_) - (let () - (declare (not safe)) - (&HashTable-ref _%h104956%_ _%key104942%_ _%default104943%_)))))) + (error '"invalid argument" _%key104307%_)))) + _%key?104323%_) + (&HashTable-ref _%h104321%_ _%key104307%_ _%default104308%_))))) (let () (declare (not safe)) (__bind-method! checked-hash-table::t 'ref - _%checked-hash-table::ref102481%_ + _%checked-hash-table::ref101846%_ '#f)) - (define _%checked-hash-table::set!102483%_ - (lambda (_%self104794%_ _%key104795%_ _%value104796%_) - (let ((_%self104799%_ _%self104794%_)) - (let ((_%h104809%_ + (define _%checked-hash-table::set!101848%_ + (lambda (_%self104159%_ _%key104160%_ _%value104161%_) + (let ((_%self104164%_ _%self104159%_)) + (let ((_%h104174%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self104799%_ '1 '#f '#f))) - (_%key?104811%_ + (##unchecked-structure-ref _%self104164%_ '1 '#f '#f))) + (_%key?104176%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self104799%_ '2 '#f '#f)))) - ((lambda (_%g104813104815%_) - (if (_%g104813104815%_ _%key104795%_) + (##unchecked-structure-ref _%self104164%_ '2 '#f '#f)))) + ((lambda (_%g104178104180%_) + (if (_%g104178104180%_ _%key104160%_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _%key104795%_)))) - _%key?104811%_) - (let () - (declare (not safe)) - (&HashTable-set! _%h104809%_ _%key104795%_ _%value104796%_)))))) + (error '"invalid argument" _%key104160%_)))) + _%key?104176%_) + (&HashTable-set! _%h104174%_ _%key104160%_ _%value104161%_))))) (let () (declare (not safe)) (__bind-method! checked-hash-table::t 'set! - _%checked-hash-table::set!102483%_ + _%checked-hash-table::set!101848%_ '#f)) - (define _%checked-hash-table::update!102485%_ - (lambda (_%self104648%_ _%key104649%_ _%update104650%_ _%default104651%_) - (let ((_%self104654%_ _%self104648%_)) - (let ((_%h104664%_ + (define _%checked-hash-table::update!101850%_ + (lambda (_%self104013%_ _%key104014%_ _%update104015%_ _%default104016%_) + (let ((_%self104019%_ _%self104013%_)) + (let ((_%h104029%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self104654%_ '1 '#f '#f))) - (_%key?104666%_ + (##unchecked-structure-ref _%self104019%_ '1 '#f '#f))) + (_%key?104031%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self104654%_ '2 '#f '#f)))) - ((lambda (_%key?104669%_) - (if (_%key?104669%_ _%key104649%_) + (##unchecked-structure-ref _%self104019%_ '2 '#f '#f)))) + ((lambda (_%key?104034%_) + (if (_%key?104034%_ _%key104014%_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _%key104649%_))) - (if (let () (declare (not safe)) (procedure? _%update104650%_)) + (error '"invalid argument" _%key104014%_))) + (if (procedure? _%update104015%_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _%update104650%_)))) - _%key?104666%_) - (let () - (declare (not safe)) - (&HashTable-update! - _%h104664%_ - _%key104649%_ - _%update104650%_ - _%default104651%_)))))) + (error '"invalid argument" _%update104015%_)))) + _%key?104031%_) + (&HashTable-update! + _%h104029%_ + _%key104014%_ + _%update104015%_ + _%default104016%_))))) (let () (declare (not safe)) (__bind-method! checked-hash-table::t 'update! - _%checked-hash-table::update!102485%_ + _%checked-hash-table::update!101850%_ '#f)) - (define _%checked-hash-table::delete!102487%_ - (lambda (_%self104502%_ _%key104503%_) - (let ((_%self104506%_ _%self104502%_)) - (let ((_%h104516%_ + (define _%checked-hash-table::delete!101852%_ + (lambda (_%self103867%_ _%key103868%_) + (let ((_%self103871%_ _%self103867%_)) + (let ((_%h103881%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self104506%_ '1 '#f '#f))) - (_%key?104518%_ + (##unchecked-structure-ref _%self103871%_ '1 '#f '#f))) + (_%key?103883%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self104506%_ '2 '#f '#f)))) - ((lambda (_%g104520104522%_) - (if (_%g104520104522%_ _%key104503%_) + (##unchecked-structure-ref _%self103871%_ '2 '#f '#f)))) + ((lambda (_%g103885103887%_) + (if (_%g103885103887%_ _%key103868%_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _%key104503%_)))) - _%key?104518%_) - (let () - (declare (not safe)) - (&HashTable-delete! _%h104516%_ _%key104503%_)))))) + (error '"invalid argument" _%key103868%_)))) + _%key?103883%_) + (&HashTable-delete! _%h103881%_ _%key103868%_))))) (let () (declare (not safe)) (__bind-method! checked-hash-table::t 'delete! - _%checked-hash-table::delete!102487%_ + _%checked-hash-table::delete!101852%_ '#f)) - (define _%checked-hash-table::for-each102489%_ - (lambda (_%self104358%_ _%proc104359%_) - (let ((_%self104362%_ _%self104358%_)) - (let ((_%h104372%_ + (define _%checked-hash-table::for-each101854%_ + (lambda (_%self103723%_ _%proc103724%_) + (let ((_%self103727%_ _%self103723%_)) + (let ((_%h103737%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self104362%_ '1 '#f '#f))) - (_%key?104374%_ + (##unchecked-structure-ref _%self103727%_ '1 '#f '#f))) + (_%key?103739%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self104362%_ '2 '#f '#f)))) - ((lambda (_%_104377%_) - (if (let () (declare (not safe)) (procedure? _%proc104359%_)) + (##unchecked-structure-ref _%self103727%_ '2 '#f '#f)))) + ((lambda (_%_103742%_) + (if (procedure? _%proc103724%_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _%proc104359%_)))) - _%key?104374%_) - (let () - (declare (not safe)) - (&HashTable-for-each _%h104372%_ _%proc104359%_)))))) + (error '"invalid argument" _%proc103724%_)))) + _%key?103739%_) + (&HashTable-for-each _%h103737%_ _%proc103724%_))))) (let () (declare (not safe)) (__bind-method! checked-hash-table::t 'for-each - _%checked-hash-table::for-each102489%_ + _%checked-hash-table::for-each101854%_ '#f)) - (define _%checked-hash-table::length102491%_ - (lambda (_%self104217%_) - (let ((_%self104220%_ _%self104217%_)) - (let ((_%h104230%_ + (define _%checked-hash-table::length101856%_ + (lambda (_%self103582%_) + (let ((_%self103585%_ _%self103582%_)) + (let ((_%h103595%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self104220%_ '1 '#f '#f))) - (_%key?104232%_ + (##unchecked-structure-ref _%self103585%_ '1 '#f '#f))) + (_%key?103597%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self104220%_ '2 '#f '#f)))) - (let () (declare (not safe)) (&HashTable-length _%h104230%_)))))) + (##unchecked-structure-ref _%self103585%_ '2 '#f '#f)))) + (&HashTable-length _%h103595%_))))) (let () (declare (not safe)) (__bind-method! checked-hash-table::t 'length - _%checked-hash-table::length102491%_ + _%checked-hash-table::length101856%_ '#f)) - (define _%checked-hash-table::copy102493%_ - (lambda (_%self104076%_) - (let ((_%self104079%_ _%self104076%_)) - (let ((_%h104089%_ + (define _%checked-hash-table::copy101858%_ + (lambda (_%self103441%_) + (let ((_%self103444%_ _%self103441%_)) + (let ((_%h103454%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self104079%_ '1 '#f '#f))) - (_%key?104091%_ + (##unchecked-structure-ref _%self103444%_ '1 '#f '#f))) + (_%key?103456%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self104079%_ '2 '#f '#f)))) - (let () (declare (not safe)) (&HashTable-copy _%h104089%_)))))) + (##unchecked-structure-ref _%self103444%_ '2 '#f '#f)))) + (&HashTable-copy _%h103454%_))))) (let () (declare (not safe)) (__bind-method! checked-hash-table::t 'copy - _%checked-hash-table::copy102493%_ + _%checked-hash-table::copy101858%_ '#f)) - (define _%checked-hash-table::clear!102495%_ - (lambda (_%self103935%_) - (let ((_%self103938%_ _%self103935%_)) - (let ((_%h103948%_ + (define _%checked-hash-table::clear!101860%_ + (lambda (_%self103300%_) + (let ((_%self103303%_ _%self103300%_)) + (let ((_%h103313%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self103938%_ '1 '#f '#f))) - (_%key?103950%_ + (##unchecked-structure-ref _%self103303%_ '1 '#f '#f))) + (_%key?103315%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self103938%_ '2 '#f '#f)))) - (let () (declare (not safe)) (&HashTable-clear! _%h103948%_)))))) + (##unchecked-structure-ref _%self103303%_ '2 '#f '#f)))) + (&HashTable-clear! _%h103313%_))))) (let () (declare (not safe)) (__bind-method! checked-hash-table::t 'clear! - _%checked-hash-table::clear!102495%_ + _%checked-hash-table::clear!101860%_ '#f)) (define make-generic-hash-table - (lambda (_%table103805%_ - _%count103806%_ - _%free103807%_ - _%hash103808%_ - _%test103809%_ - _%seed103810%_) + (lambda (_%table103170%_ + _%count103171%_ + _%free103172%_ + _%hash103173%_ + _%test103174%_ + _%seed103175%_) (let () (declare (not safe)) (##structure hash-table::t - _%table103805%_ - _%count103806%_ - _%free103807%_ - _%hash103808%_ - _%test103809%_ - _%seed103810%_)))) + _%table103170%_ + _%count103171%_ + _%free103172%_ + _%hash103173%_ + _%test103174%_ + _%seed103175%_)))) (define make-hash-table__% - (lambda (_%@@keywords103628%_ - _%size-hint103618103629%_ - _%seed103619103631%_ - _%test103620103633%_ - _%hash103621103635%_ - _%lock103622103637%_ - _%check103623103639%_ - _%weak-keys103624103641%_ - _%weak-values103625103643%_) - (let* ((_%size-hint103646%_ - (if (eq? _%size-hint103618103629%_ absent-value) + (lambda (_%@@keywords102993%_ + _%size-hint102983102994%_ + _%seed102984102996%_ + _%test102985102998%_ + _%hash102986103000%_ + _%lock102987103002%_ + _%check102988103004%_ + _%weak-keys102989103006%_ + _%weak-values102990103008%_) + (let* ((_%size-hint103011%_ + (if (eq? _%size-hint102983102994%_ absent-value) '#f - _%size-hint103618103629%_)) - (_%seed103648%_ - (if (eq? _%seed103619103631%_ absent-value) + _%size-hint102983102994%_)) + (_%seed103013%_ + (if (eq? _%seed102984102996%_ absent-value) '#f - _%seed103619103631%_)) - (_%test103650%_ - (if (eq? _%test103620103633%_ absent-value) + _%seed102984102996%_)) + (_%test103015%_ + (if (eq? _%test102985102998%_ absent-value) equal? - _%test103620103633%_)) - (_%hash103652%_ - (if (eq? _%hash103621103635%_ absent-value) + _%test102985102998%_)) + (_%hash103017%_ + (if (eq? _%hash102986103000%_ absent-value) '#f - _%hash103621103635%_)) - (_%lock103654%_ - (if (eq? _%lock103622103637%_ absent-value) + _%hash102986103000%_)) + (_%lock103019%_ + (if (eq? _%lock102987103002%_ absent-value) '#f - _%lock103622103637%_)) - (_%check103656%_ - (if (eq? _%check103623103639%_ absent-value) + _%lock102987103002%_)) + (_%check103021%_ + (if (eq? _%check102988103004%_ absent-value) '#f - _%check103623103639%_)) - (_%weak-keys103658%_ - (if (eq? _%weak-keys103624103641%_ absent-value) + _%check102988103004%_)) + (_%weak-keys103023%_ + (if (eq? _%weak-keys102989103006%_ absent-value) '#f - _%weak-keys103624103641%_)) - (_%weak-values103660%_ - (if (eq? _%weak-values103625103643%_ absent-value) + _%weak-keys102989103006%_)) + (_%weak-values103025%_ + (if (eq? _%weak-values102990103008%_ absent-value) '#f - _%weak-values103625103643%_))) - (letrec ((_%table-seed103662%_ + _%weak-values102990103008%_))) + (letrec ((_%table-seed103027%_ (lambda () - (if (let () - (declare (not safe)) - (fixnum? _%seed103648%_)) - _%seed103648%_ + (if (fixnum? _%seed103013%_) + _%seed103013%_ (random-integer (macro-max-fixnum32))))) - (_%wrap-lock103663%_ - (lambda (_%ht103783%_) - (if _%lock103654%_ - (let ((_%$obj103788%_ - (let ((__tmp106891 - (let ((_%$obj103785%_ _%lock103654%_)) + (_%wrap-lock103028%_ + (lambda (_%ht103148%_) + (if _%lock103019%_ + (let ((_%$obj103153%_ + (let ((__tmp106256 + (let ((_%$obj103150%_ _%lock103019%_)) (if (and (let () (declare (not safe)) (##structure? - _%$obj103785%_)) + _%$obj103150%_)) (eq? Locker::t (let () (declare (not safe)) (##structure-type - _%$obj103785%_))) + _%$obj103150%_))) '#t) - _%$obj103785%_ + _%$obj103150%_ (let () (declare (not safe)) (cast Locker::interface - _%$obj103785%_)))))) + _%$obj103150%_)))))) (declare (not safe)) (##structure locked-hash-table::t - _%ht103783%_ - __tmp106891)))) + _%ht103148%_ + __tmp106256)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj103788%_)) + (##structure? _%$obj103153%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj103788%_))) + (##structure-type _%$obj103153%_))) '#t) - _%$obj103788%_ + _%$obj103153%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj103788%_)))) - _%ht103783%_))) - (_%wrap-checked103664%_ - (lambda (_%ht103777%_ _%implicit103778%_) - (if _%check103656%_ - (let ((_%$obj103780%_ - (let ((__tmp106892 - (if (let () - (declare (not safe)) - (procedure? _%check103656%_)) - _%check103656%_ - _%implicit103778%_))) + (cast HashTable::interface _%$obj103153%_)))) + _%ht103148%_))) + (_%wrap-checked103029%_ + (lambda (_%ht103142%_ _%implicit103143%_) + (if _%check103021%_ + (let ((_%$obj103145%_ + (let ((__tmp106257 + (if (procedure? _%check103021%_) + _%check103021%_ + _%implicit103143%_))) (declare (not safe)) (##structure checked-hash-table::t - _%ht103777%_ - __tmp106892)))) + _%ht103142%_ + __tmp106257)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj103780%_)) + (##structure? _%$obj103145%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj103780%_))) + (##structure-type _%$obj103145%_))) '#t) - _%$obj103780%_ + _%$obj103145%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj103780%_)))) - _%ht103777%_))) - (_%make103665%_ - (lambda (_%kons103762%_ - _%key?103763%_ - _%hash103764%_ - _%test103765%_) - (let* ((_%size103767%_ + (cast HashTable::interface _%$obj103145%_)))) + _%ht103142%_))) + (_%make103030%_ + (lambda (_%kons103127%_ + _%key?103128%_ + _%hash103129%_ + _%test103130%_) + (let* ((_%size103132%_ (let () (declare (not safe)) (raw-table-size-hint->size - _%size-hint103646%_))) - (_%table103769%_ - (let ((__tmp106893 (macro-unused-obj))) + _%size-hint103011%_))) + (_%table103134%_ + (let ((__tmp106258 (macro-unused-obj))) (declare (not safe)) - (##make-vector _%size103767%_ __tmp106893))) - (_%ht103774%_ - (let ((_%$obj103771%_ - (_%kons103762%_ - _%table103769%_ + (##make-vector _%size103132%_ __tmp106258))) + (_%ht103139%_ + (let ((_%$obj103136%_ + (_%kons103127%_ + _%table103134%_ '0 (let () (declare (not safe)) - (##fxquotient _%size103767%_ '2)) - _%hash103764%_ - _%test103765%_ - (let () - (declare (not safe)) - (_%table-seed103662%_))))) + (##fxquotient _%size103132%_ '2)) + _%hash103129%_ + _%test103130%_ + (_%table-seed103027%_)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj103771%_)) + (##structure? _%$obj103136%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj103771%_))) + _%$obj103136%_))) '#t) - _%$obj103771%_ + _%$obj103136%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj103771%_))))) - (__tmp106894 - (let () - (declare (not safe)) - (_%wrap-lock103663%_ _%ht103774%_)))) - (declare (not safe)) - (_%wrap-checked103664%_ __tmp106894 _%key?103763%_)))) - (_%make-gc-hash-table103666%_ + _%$obj103136%_)))))) + (_%wrap-checked103029%_ + (_%wrap-lock103028%_ _%ht103139%_) + _%key?103128%_)))) + (_%make-gc-hash-table103031%_ (lambda () - (let* ((_%ht103760%_ - (let ((_%$obj103757%_ - (let () - (declare (not safe)) - (make-gc-table__1 - _%size-hint103646%_ - gc-hash-table::t)))) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj103757%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type - _%$obj103757%_))) - '#t) - _%$obj103757%_ + (let ((_%ht103125%_ + (let ((_%$obj103122%_ (let () (declare (not safe)) - (cast HashTable::interface - _%$obj103757%_))))) - (__tmp106895 - (let () - (declare (not safe)) - (_%wrap-lock103663%_ _%ht103760%_)))) - (declare (not safe)) - (_%wrap-checked103664%_ __tmp106895 true)))) - (_%make-gambit-table103667%_ + (make-gc-table__1 + _%size-hint103011%_ + gc-hash-table::t)))) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj103122%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type + _%$obj103122%_))) + '#t) + _%$obj103122%_ + (let () + (declare (not safe)) + (cast HashTable::interface + _%$obj103122%_)))))) + (_%wrap-checked103029%_ + (_%wrap-lock103028%_ _%ht103125%_) + true)))) + (_%make-gambit-table103032%_ (lambda () - (let* ((_%size103735%_ - (let ((_%$e103732%_ _%size-hint103646%_)) - (if _%$e103732%_ - _%$e103732%_ + (let* ((_%size103100%_ + (let ((_%$e103097%_ _%size-hint103011%_)) + (if _%$e103097%_ + _%$e103097%_ (macro-absent-obj)))) - (_%test103740%_ - (let ((_%$e103737%_ _%test103650%_)) - (if _%$e103737%_ _%$e103737%_ equal?))) - (_%hash103748%_ - (let ((_%$e103742%_ _%hash103652%_)) - (if _%$e103742%_ - _%$e103742%_ - (if (eq? _%test103740%_ eq?) - (let () eq?-hash) - (if (eq? _%test103740%_ eqv?) - (let () eqv?-hash) - (let () equal?-hash)))))) - (_%ht103753%_ - (let ((_%$obj103750%_ + (_%test103105%_ + (let ((_%$e103102%_ _%test103015%_)) + (if _%$e103102%_ _%$e103102%_ equal?))) + (_%hash103113%_ + (let ((_%$e103107%_ _%hash103017%_)) + (if _%$e103107%_ + _%$e103107%_ + (if (eq? _%test103105%_ eq?) + eq?-hash + (if (eq? _%test103105%_ eqv?) + eqv?-hash + equal?-hash))))) + (_%ht103118%_ + (let ((_%$obj103115%_ (make-table 'size: - _%size103735%_ + _%size103100%_ 'test: - _%test103740%_ + _%test103105%_ 'hash: - _%hash103748%_ + _%hash103113%_ 'weak-keys: - _%weak-keys103658%_ + _%weak-keys103023%_ 'weak-values: - _%weak-values103660%_))) + _%weak-values103025%_))) (if (and (let () (declare (not safe)) - (##structure? _%$obj103750%_)) + (##structure? _%$obj103115%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj103750%_))) + _%$obj103115%_))) '#t) - _%$obj103750%_ + _%$obj103115%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj103750%_))))) - (__tmp106896 - (let () - (declare (not safe)) - (_%wrap-lock103663%_ _%ht103753%_)))) - (declare (not safe)) - (_%wrap-checked103664%_ __tmp106896 true))))) - (if (or _%weak-keys103658%_ _%weak-values103660%_) - (let () (declare (not safe)) (_%make-gambit-table103667%_)) - (if (and (or (eq? _%test103650%_ eq?) - (eq? _%test103650%_ ##eq?)) - (or (let () (declare (not safe)) (not _%hash103652%_)) - (eq? _%hash103652%_ eq?-hash) - (eq? _%hash103652%_ eq-hash)) - (let () (declare (not safe)) (not _%seed103648%_))) - (let () - (declare (not safe)) - (_%make-gc-hash-table103666%_)) - (if (and (or (eq? _%test103650%_ eq?) - (eq? _%test103650%_ ##eq?)) - (or (let () - (declare (not safe)) - (not _%hash103652%_)) - (eq? _%hash103652%_ eq?-hash) - (eq? _%hash103652%_ eq-hash))) - (let () - (declare (not safe)) - (_%make103665%_ make-eq-hash-table true eq-hash eq?)) - (if (and (or (eq? _%test103650%_ eqv?) - (eq? _%test103650%_ ##eqv?)) - (or (let () - (declare (not safe)) - (not _%hash103652%_)) - (eq? _%hash103652%_ eqv?-hash) - (eq? _%hash103652%_ eqv-hash))) - (let () - (declare (not safe)) - (_%make103665%_ - make-eqv-hash-table - true - eqv-hash - eqv?)) - (if (and (or (eq? _%test103650%_ eq?) - (eq? _%test103650%_ ##eq?)) - (or (eq? _%hash103652%_ symbolic-hash) - (eq? _%hash103652%_ ##symbol-hash))) - (let () - (declare (not safe)) - (_%make103665%_ - make-symbol-hash-table - symbolic? - symbolic-hash - eq?)) - (if (and (or (eq? _%test103650%_ eq?) - (eq? _%test103650%_ ##eq?)) - (eq? _%hash103652%_ immediate-hash)) - (let () - (declare (not safe)) - (_%make103665%_ - make-immediate-hash-table - immediate? - immediate-hash - eq?)) - (if (and (or (eq? _%test103650%_ equal?) - (eq? _%test103650%_ ##equal?) - (eq? _%test103650%_ string=?) - (eq? _%test103650%_ + _%$obj103115%_)))))) + (_%wrap-checked103029%_ + (_%wrap-lock103028%_ _%ht103118%_) + true))))) + (if (or _%weak-keys103023%_ _%weak-values103025%_) + (_%make-gambit-table103032%_) + (if (and (or (eq? _%test103015%_ eq?) + (eq? _%test103015%_ ##eq?)) + (or (not _%hash103017%_) + (eq? _%hash103017%_ eq?-hash) + (eq? _%hash103017%_ eq-hash)) + (not _%seed103013%_)) + (_%make-gc-hash-table103031%_) + (if (and (or (eq? _%test103015%_ eq?) + (eq? _%test103015%_ ##eq?)) + (or (not _%hash103017%_) + (eq? _%hash103017%_ eq?-hash) + (eq? _%hash103017%_ eq-hash))) + (_%make103030%_ make-eq-hash-table true eq-hash eq?) + (if (and (or (eq? _%test103015%_ eqv?) + (eq? _%test103015%_ ##eqv?)) + (or (not _%hash103017%_) + (eq? _%hash103017%_ eqv?-hash) + (eq? _%hash103017%_ eqv-hash))) + (_%make103030%_ + make-eqv-hash-table + true + eqv-hash + eqv?) + (if (and (or (eq? _%test103015%_ eq?) + (eq? _%test103015%_ ##eq?)) + (or (eq? _%hash103017%_ symbolic-hash) + (eq? _%hash103017%_ ##symbol-hash))) + (_%make103030%_ + make-symbol-hash-table + symbolic? + symbolic-hash + eq?) + (if (and (or (eq? _%test103015%_ eq?) + (eq? _%test103015%_ ##eq?)) + (eq? _%hash103017%_ immediate-hash)) + (_%make103030%_ + make-immediate-hash-table + immediate? + immediate-hash + eq?) + (if (and (or (eq? _%test103015%_ equal?) + (eq? _%test103015%_ ##equal?) + (eq? _%test103015%_ string=?) + (eq? _%test103015%_ ##string=?)) - (or (eq? _%hash103652%_ + (or (eq? _%hash103017%_ string-hash) - (eq? _%hash103652%_ + (eq? _%hash103017%_ ##string=?-hash))) - (let () - (declare (not safe)) - (_%make103665%_ - make-string-hash-table - string? - string-hash - ##string=?)) - (if (and (eq? _%test103650%_ equal?) - (let () - (declare (not safe)) - (not _%hash103652%_))) - (let () - (declare (not safe)) - (_%make103665%_ - make-generic-hash-table - true - equal?-hash - equal?)) - (if (let ((__tmp106897 - (let () - (declare (not safe)) - (procedure? - _%test103650%_)))) - (declare (not safe)) - (not __tmp106897)) + (_%make103030%_ + make-string-hash-table + string? + string-hash + ##string=?) + (if (and (eq? _%test103015%_ equal?) + (not _%hash103017%_)) + (_%make103030%_ + make-generic-hash-table + true + equal?-hash + equal?) + (if (not (procedure? + _%test103015%_)) (let () (declare (not safe)) (error '"bad hash table test function; expected procedure" - _%test103650%_)) - (if (let ((__tmp106898 - (let () - (declare - (not safe)) - (procedure? - _%hash103652%_)))) - (declare (not safe)) - (not __tmp106898)) + _%test103015%_)) + (if (not (procedure? + _%hash103017%_)) (let () (declare (not safe)) (error '"bad hash table hash function; expected procedure" - _%hash103652%_)) - (let () - (declare (not safe)) - (_%make103665%_ - make-generic-hash-table - true - _%hash103652%_ - _%test103650%_)))))))))))))))) + _%hash103017%_)) + (_%make103030%_ + make-generic-hash-table + true + _%hash103017%_ + _%test103015%_))))))))))))))) (define make-hash-table__@ - (lambda (_%@@keywords103795%_ . _%args103796%_) + (lambda (_%@@keywords103160%_ . _%args103161%_) (apply make-hash-table__% - _%@@keywords103795%_ + _%@@keywords103160%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords103795%_ 'size: absent-value)) + (symbolic-table-ref _%@@keywords103160%_ 'size: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords103795%_ 'seed: absent-value)) + (symbolic-table-ref _%@@keywords103160%_ 'seed: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords103795%_ 'test: absent-value)) + (symbolic-table-ref _%@@keywords103160%_ 'test: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords103795%_ 'hash: absent-value)) + (symbolic-table-ref _%@@keywords103160%_ 'hash: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords103795%_ 'lock: absent-value)) + (symbolic-table-ref _%@@keywords103160%_ 'lock: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords103795%_ + _%@@keywords103160%_ 'check: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords103795%_ + _%@@keywords103160%_ 'weak-keys: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords103795%_ + _%@@keywords103160%_ 'weak-values: absent-value)) - _%args103796%_))) + _%args103161%_))) (define make-hash-table - (lambda _%args103626103802%_ + (lambda _%args102991103167%_ (apply keyword-dispatch '#(#f #f @@ -2111,1100 +1951,886 @@ #f #f) make-hash-table__@ - _%args103626103802%_))) + _%args102991103167%_))) (define make-hash-table-eq - (lambda _%args103615%_ - (apply make-hash-table 'test: eq? _%args103615%_))) + (lambda _%args102980%_ + (apply make-hash-table 'test: eq? _%args102980%_))) (define make-hash-table-eqv - (lambda _%args103613%_ - (apply make-hash-table 'test: eqv? _%args103613%_))) + (lambda _%args102978%_ + (apply make-hash-table 'test: eqv? _%args102978%_))) (define make-hash-table-symbolic - (lambda _%args103611%_ + (lambda _%args102976%_ (apply make-hash-table 'test: eq? 'hash: symbolic-hash - _%args103611%_))) + _%args102976%_))) (define make-hash-table-string - (lambda _%args103609%_ + (lambda _%args102974%_ (apply make-hash-table 'test: string=? 'hash: string-hash - _%args103609%_))) + _%args102974%_))) (define make-hash-table-immediate - (lambda _%args103607%_ + (lambda _%args102972%_ (apply make-hash-table 'test: eq? 'hash: immediate-hash - _%args103607%_))) + _%args102972%_))) (define list->hash-table - (lambda (_%lst103604%_ . _%args103605%_) - (let ((__tmp106899 - (apply make-hash-table - 'size: - (length _%lst103604%_) - _%args103605%_))) - (declare (not safe)) - (list->hash-table! _%lst103604%_ __tmp106899)))) + (lambda (_%lst102969%_ . _%args102970%_) + (list->hash-table! + _%lst102969%_ + (apply make-hash-table + 'size: + (length _%lst102969%_) + _%args102970%_)))) (define list->hash-table-eq - (lambda (_%lst103601%_ . _%args103602%_) - (let ((__tmp106900 - (apply make-hash-table-eq - 'size: - (length _%lst103601%_) - _%args103602%_))) - (declare (not safe)) - (list->hash-table! _%lst103601%_ __tmp106900)))) + (lambda (_%lst102966%_ . _%args102967%_) + (list->hash-table! + _%lst102966%_ + (apply make-hash-table-eq + 'size: + (length _%lst102966%_) + _%args102967%_)))) (define list->hash-table-eqv - (lambda (_%lst103598%_ . _%args103599%_) - (let ((__tmp106901 - (apply make-hash-table-eqv - 'size: - (length _%lst103598%_) - _%args103599%_))) - (declare (not safe)) - (list->hash-table! _%lst103598%_ __tmp106901)))) + (lambda (_%lst102963%_ . _%args102964%_) + (list->hash-table! + _%lst102963%_ + (apply make-hash-table-eqv + 'size: + (length _%lst102963%_) + _%args102964%_)))) (define list->hash-table-symbolic - (lambda (_%lst103595%_ . _%args103596%_) - (let ((__tmp106902 - (apply make-hash-table-symbolic - 'size: - (length _%lst103595%_) - _%args103596%_))) - (declare (not safe)) - (list->hash-table! _%lst103595%_ __tmp106902)))) + (lambda (_%lst102960%_ . _%args102961%_) + (list->hash-table! + _%lst102960%_ + (apply make-hash-table-symbolic + 'size: + (length _%lst102960%_) + _%args102961%_)))) (define list->hash-table-string - (lambda (_%lst103592%_ . _%args103593%_) - (let ((__tmp106903 - (apply make-hash-table-string - 'size: - (length _%lst103592%_) - _%args103593%_))) - (declare (not safe)) - (list->hash-table! _%lst103592%_ __tmp106903)))) + (lambda (_%lst102957%_ . _%args102958%_) + (list->hash-table! + _%lst102957%_ + (apply make-hash-table-string + 'size: + (length _%lst102957%_) + _%args102958%_)))) (define list->hash-table-immediate - (lambda (_%lst103589%_ . _%args103590%_) - (let ((__tmp106904 - (apply make-hash-table-immediate - 'size: - (length _%lst103589%_) - _%args103590%_))) - (declare (not safe)) - (list->hash-table! _%lst103589%_ __tmp106904)))) + (lambda (_%lst102954%_ . _%args102955%_) + (list->hash-table! + _%lst102954%_ + (apply make-hash-table-immediate + 'size: + (length _%lst102954%_) + _%args102955%_)))) (define list->hash-table! - (lambda (_%lst103556%_ _%h103557%_) + (lambda (_%lst102921%_ _%h102922%_) (for-each - (lambda (_%el103559%_) - (let* ((_%el103560103567%_ _%el103559%_) - (_%E103562103571%_ + (lambda (_%el102924%_) + (let* ((_%el102925102932%_ _%el102924%_) + (_%E102927102936%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%el103560103567%_ + _%el102925102932%_ '([k . v]))) '#!void)) - (_%K103563103577%_ - (lambda (_%v103574%_ _%k103575%_) - (let () - (declare (not safe)) - (&HashTable-set! - _%h103557%_ - _%k103575%_ - _%v103574%_))))) - (if (let () (declare (not safe)) (##pair? _%el103560103567%_)) - (let ((_%hd103564103580%_ + (_%K102928102942%_ + (lambda (_%v102939%_ _%k102940%_) + (&HashTable-set! _%h102922%_ _%k102940%_ _%v102939%_)))) + (if (let () (declare (not safe)) (##pair? _%el102925102932%_)) + (let ((_%hd102929102945%_ (let () (declare (not safe)) - (##car _%el103560103567%_))) - (_%tl103565103582%_ + (##car _%el102925102932%_))) + (_%tl102930102947%_ (let () (declare (not safe)) - (##cdr _%el103560103567%_)))) - (let* ((_%k103585%_ _%hd103564103580%_) - (_%v103587%_ _%tl103565103582%_)) - (declare (not safe)) - (_%K103563103577%_ _%v103587%_ _%k103585%_))) - (let () (declare (not safe)) (_%E103562103571%_))))) - _%lst103556%_) - _%h103557%_)) + (##cdr _%el102925102932%_)))) + (let* ((_%k102950%_ _%hd102929102945%_) + (_%v102952%_ _%tl102930102947%_)) + (_%K102928102942%_ _%v102952%_ _%k102950%_))) + (_%E102927102936%_)))) + _%lst102921%_) + _%h102922%_)) (define plist->hash-table - (lambda (_%lst103553%_ . _%args103554%_) - (let ((__tmp106905 - (apply make-hash-table - 'size: - (length _%lst103553%_) - _%args103554%_))) - (declare (not safe)) - (plist->hash-table! _%lst103553%_ __tmp106905)))) + (lambda (_%lst102918%_ . _%args102919%_) + (plist->hash-table! + _%lst102918%_ + (apply make-hash-table + 'size: + (length _%lst102918%_) + _%args102919%_)))) (define plist->hash-table-eq - (lambda (_%lst103550%_ . _%args103551%_) - (let ((__tmp106906 - (apply make-hash-table-eq - 'size: - (length _%lst103550%_) - _%args103551%_))) - (declare (not safe)) - (plist->hash-table! _%lst103550%_ __tmp106906)))) + (lambda (_%lst102915%_ . _%args102916%_) + (plist->hash-table! + _%lst102915%_ + (apply make-hash-table-eq + 'size: + (length _%lst102915%_) + _%args102916%_)))) (define plist->hash-table-eqv - (lambda (_%lst103547%_ . _%args103548%_) - (let ((__tmp106907 - (apply make-hash-table-eqv - 'size: - (length _%lst103547%_) - _%args103548%_))) - (declare (not safe)) - (plist->hash-table! _%lst103547%_ __tmp106907)))) + (lambda (_%lst102912%_ . _%args102913%_) + (plist->hash-table! + _%lst102912%_ + (apply make-hash-table-eqv + 'size: + (length _%lst102912%_) + _%args102913%_)))) (define plist->hash-table-symbolic - (lambda (_%lst103544%_ . _%args103545%_) - (let ((__tmp106908 - (apply make-hash-table-symbolic - 'size: - (length _%lst103544%_) - _%args103545%_))) - (declare (not safe)) - (plist->hash-table! _%lst103544%_ __tmp106908)))) + (lambda (_%lst102909%_ . _%args102910%_) + (plist->hash-table! + _%lst102909%_ + (apply make-hash-table-symbolic + 'size: + (length _%lst102909%_) + _%args102910%_)))) (define plist->hash-table-string - (lambda (_%lst103541%_ . _%args103542%_) - (let ((__tmp106909 - (apply make-hash-table-string - 'size: - (length _%lst103541%_) - _%args103542%_))) - (declare (not safe)) - (plist->hash-table! _%lst103541%_ __tmp106909)))) + (lambda (_%lst102906%_ . _%args102907%_) + (plist->hash-table! + _%lst102906%_ + (apply make-hash-table-string + 'size: + (length _%lst102906%_) + _%args102907%_)))) (define plist->hash-table-immediate - (lambda (_%lst103538%_ . _%args103539%_) - (let ((__tmp106910 - (apply make-hash-table-immediate - 'size: - (length _%lst103538%_) - _%args103539%_))) - (declare (not safe)) - (plist->hash-table! _%lst103538%_ __tmp106910)))) + (lambda (_%lst102903%_ . _%args102904%_) + (plist->hash-table! + _%lst102903%_ + (apply make-hash-table-immediate + 'size: + (length _%lst102903%_) + _%args102904%_)))) (define plist->hash-table! - (lambda (_%lst103478%_ _%h103479%_) - (let _%loop103481%_ ((_%rest103483%_ _%lst103478%_)) - (let* ((_%rest103484103496%_ _%rest103483%_) - (_%else103487103504%_ + (lambda (_%lst102843%_ _%h102844%_) + (let _%loop102846%_ ((_%rest102848%_ _%lst102843%_)) + (let* ((_%rest102849102861%_ _%rest102848%_) + (_%else102852102869%_ (lambda () (let () (declare (not safe)) (error '"bad property list -- uneven list" - _%lst103478%_))))) - (let ((_%K103490103519%_ - (lambda (_%rest103515%_ _%val103516%_ _%key103517%_) - (let () - (declare (not safe)) - (&HashTable-set! - _%h103479%_ - _%key103517%_ - _%val103516%_)) - (let () - (declare (not safe)) - (_%loop103481%_ _%rest103515%_)))) - (_%K103489103509%_ (lambda () _%h103479%_))) - (let ((_%try-match103486103512%_ + _%lst102843%_))))) + (let ((_%K102855102884%_ + (lambda (_%rest102880%_ _%val102881%_ _%key102882%_) + (&HashTable-set! _%h102844%_ _%key102882%_ _%val102881%_) + (_%loop102846%_ _%rest102880%_))) + (_%K102854102874%_ (lambda () _%h102844%_))) + (let ((_%try-match102851102877%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest103484103496%_)) - (let () (declare (not safe)) (_%K103489103509%_)) - (let () - (declare (not safe)) - (_%else103487103504%_)))))) + (##null? _%rest102849102861%_)) + (_%K102854102874%_) + (_%else102852102869%_))))) (if (let () (declare (not safe)) - (##pair? _%rest103484103496%_)) - (let ((_%tl103492103524%_ + (##pair? _%rest102849102861%_)) + (let ((_%tl102857102889%_ (let () (declare (not safe)) - (##cdr _%rest103484103496%_))) - (_%hd103491103522%_ + (##cdr _%rest102849102861%_))) + (_%hd102856102887%_ (let () (declare (not safe)) - (##car _%rest103484103496%_)))) + (##car _%rest102849102861%_)))) (if (let () (declare (not safe)) - (##pair? _%tl103492103524%_)) - (let ((_%tl103494103531%_ + (##pair? _%tl102857102889%_)) + (let ((_%tl102859102896%_ (let () (declare (not safe)) - (##cdr _%tl103492103524%_))) - (_%hd103493103529%_ + (##cdr _%tl102857102889%_))) + (_%hd102858102894%_ (let () (declare (not safe)) - (##car _%tl103492103524%_)))) - (let ((_%key103527%_ _%hd103491103522%_) - (_%val103534%_ _%hd103493103529%_) - (_%rest103536%_ _%tl103494103531%_)) - (let () - (declare (not safe)) - (_%K103490103519%_ - _%rest103536%_ - _%val103534%_ - _%key103527%_)))) - (let () - (declare (not safe)) - (_%else103487103504%_)))) - (let () - (declare (not safe)) - (_%try-match103486103512%_))))))))) + (##car _%tl102857102889%_)))) + (let ((_%key102892%_ _%hd102856102887%_) + (_%val102899%_ _%hd102858102894%_) + (_%rest102901%_ _%tl102859102896%_)) + (_%K102855102884%_ + _%rest102901%_ + _%val102899%_ + _%key102892%_))) + (_%else102852102869%_))) + (_%try-match102851102877%_)))))))) (define hash-length - (lambda (_%h103460%_) - (let () - (let* ((_%h103466%_ - (let ((_%$obj103463%_ _%h103460%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj103463%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj103463%_))) - '#t) - _%$obj103463%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj103463%_))))) - (_%h103468%_ _%h103466%_)) - (declare (not safe)) - (__hash-length _%h103468%_))))) + (lambda (_%h102825%_) + (let* ((_%h102831%_ + (let ((_%$obj102828%_ _%h102825%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102828%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102828%_))) + '#t) + _%$obj102828%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102828%_))))) + (_%h102833%_ _%h102831%_)) + (__hash-length _%h102833%_)))) (define __hash-length - (lambda (_%h103448%_) - (let ((_%h103451%_ _%h103448%_)) - (declare (not safe)) - (__HashTable-length _%h103451%_)))) + (lambda (_%h102813%_) + (let ((_%h102816%_ _%h102813%_)) (__HashTable-length _%h102816%_)))) (define hash-ref__% - (lambda (_%h103416%_ _%key103417%_ _%default103418%_) - (let () - (let* ((_%h103424%_ - (let ((_%$obj103421%_ _%h103416%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj103421%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj103421%_))) - '#t) - _%$obj103421%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj103421%_))))) - (_%h103426%_ _%h103424%_)) - (declare (not safe)) - (__hash-ref__% _%h103426%_ _%key103417%_ _%default103418%_))))) + (lambda (_%h102781%_ _%key102782%_ _%default102783%_) + (let* ((_%h102789%_ + (let ((_%$obj102786%_ _%h102781%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102786%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102786%_))) + '#t) + _%$obj102786%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102786%_))))) + (_%h102791%_ _%h102789%_)) + (__hash-ref__% _%h102791%_ _%key102782%_ _%default102783%_)))) (define hash-ref__0 - (lambda (_%h103439%_ _%key103440%_) - (let ((_%default103442%_ (macro-absent-obj))) - (declare (not safe)) - (hash-ref__% _%h103439%_ _%key103440%_ _%default103442%_)))) + (lambda (_%h102804%_ _%key102805%_) + (let ((_%default102807%_ (macro-absent-obj))) + (hash-ref__% _%h102804%_ _%key102805%_ _%default102807%_)))) (define hash-ref - (lambda _g106912_ - (let ((_g106911_ (let () (declare (not safe)) (##length _g106912_)))) - (cond ((let () (declare (not safe)) (##fx= _g106911_ 2)) - (apply (lambda (_%h103439%_ _%key103440%_) - (let () - (declare (not safe)) - (hash-ref__0 _%h103439%_ _%key103440%_))) - _g106912_)) - ((let () (declare (not safe)) (##fx= _g106911_ 3)) - (apply (lambda (_%h103444%_ _%key103445%_ _%default103446%_) - (let () - (declare (not safe)) - (hash-ref__% - _%h103444%_ - _%key103445%_ - _%default103446%_))) - _g106912_)) + (lambda _g106260_ + (let ((_g106259_ (let () (declare (not safe)) (##length _g106260_)))) + (cond ((let () (declare (not safe)) (##fx= _g106259_ 2)) + (apply hash-ref__0 _g106260_)) + ((let () (declare (not safe)) (##fx= _g106259_ 3)) + (apply hash-ref__% _g106260_)) (else (##raise-wrong-number-of-arguments-exception hash-ref - _g106912_)))))) + _g106260_)))))) (define __hash-ref__% - (lambda (_%h103387%_ _%key103388%_ _%default103389%_) - (let () - (let* ((_%h103392%_ _%h103387%_) - (_%result103401%_ - (let () - (declare (not safe)) - (&HashTable-ref - _%h103392%_ - _%key103388%_ - _%default103389%_)))) - (if (eq? _%result103401%_ (macro-absent-obj)) - (let () - (declare (not safe)) - (raise-unbound-key-error - 'hash-ref - '"unknown hash key" - 'hash: - _%h103392%_ - 'key: - _%key103388%_)) - _%result103401%_))))) + (lambda (_%h102752%_ _%key102753%_ _%default102754%_) + (let* ((_%h102757%_ _%h102752%_) + (_%result102766%_ + (&HashTable-ref _%h102757%_ _%key102753%_ _%default102754%_))) + (if (eq? _%result102766%_ (macro-absent-obj)) + (raise-unbound-key-error + 'hash-ref + '"unknown hash key" + 'hash: + _%h102757%_ + 'key: + _%key102753%_) + _%result102766%_)))) (define __hash-ref__0 - (lambda (_%h103406%_ _%key103407%_) - (let ((_%default103409%_ (macro-absent-obj))) - (declare (not safe)) - (__hash-ref__% _%h103406%_ _%key103407%_ _%default103409%_)))) + (lambda (_%h102771%_ _%key102772%_) + (let ((_%default102774%_ (macro-absent-obj))) + (__hash-ref__% _%h102771%_ _%key102772%_ _%default102774%_)))) (define __hash-ref - (lambda _g106914_ - (let ((_g106913_ (let () (declare (not safe)) (##length _g106914_)))) - (cond ((let () (declare (not safe)) (##fx= _g106913_ 2)) - (apply (lambda (_%h103406%_ _%key103407%_) - (let () - (declare (not safe)) - (__hash-ref__0 _%h103406%_ _%key103407%_))) - _g106914_)) - ((let () (declare (not safe)) (##fx= _g106913_ 3)) - (apply (lambda (_%h103411%_ _%key103412%_ _%default103413%_) - (let () - (declare (not safe)) - (__hash-ref__% - _%h103411%_ - _%key103412%_ - _%default103413%_))) - _g106914_)) + (lambda _g106262_ + (let ((_g106261_ (let () (declare (not safe)) (##length _g106262_)))) + (cond ((let () (declare (not safe)) (##fx= _g106261_ 2)) + (apply __hash-ref__0 _g106262_)) + ((let () (declare (not safe)) (##fx= _g106261_ 3)) + (apply __hash-ref__% _g106262_)) (else (##raise-wrong-number-of-arguments-exception __hash-ref - _g106914_)))))) + _g106262_)))))) (define hash-get - (lambda (_%h103367%_ _%key103368%_) - (let () - (let* ((_%h103374%_ - (let ((_%$obj103371%_ _%h103367%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj103371%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj103371%_))) - '#t) - _%$obj103371%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj103371%_))))) - (_%h103376%_ _%h103374%_)) - (declare (not safe)) - (__hash-get _%h103376%_ _%key103368%_))))) + (lambda (_%h102732%_ _%key102733%_) + (let* ((_%h102739%_ + (let ((_%$obj102736%_ _%h102732%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102736%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102736%_))) + '#t) + _%$obj102736%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102736%_))))) + (_%h102741%_ _%h102739%_)) + (__hash-get _%h102741%_ _%key102733%_)))) (define __hash-get - (lambda (_%h103354%_ _%key103355%_) - (let ((_%h103358%_ _%h103354%_)) - (declare (not safe)) - (&HashTable-ref _%h103358%_ _%key103355%_ '#f)))) + (lambda (_%h102719%_ _%key102720%_) + (let ((_%h102723%_ _%h102719%_)) + (&HashTable-ref _%h102723%_ _%key102720%_ '#f)))) (define hash-put! - (lambda (_%h103334%_ _%key103335%_ _%value103336%_) - (let () - (let* ((_%h103342%_ - (let ((_%$obj103339%_ _%h103334%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj103339%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj103339%_))) - '#t) - _%$obj103339%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj103339%_))))) - (_%h103344%_ _%h103342%_)) - (declare (not safe)) - (__hash-put! _%h103344%_ _%key103335%_ _%value103336%_))))) + (lambda (_%h102699%_ _%key102700%_ _%value102701%_) + (let* ((_%h102707%_ + (let ((_%$obj102704%_ _%h102699%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102704%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102704%_))) + '#t) + _%$obj102704%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102704%_))))) + (_%h102709%_ _%h102707%_)) + (__hash-put! _%h102709%_ _%key102700%_ _%value102701%_)))) (define __hash-put! - (lambda (_%h103320%_ _%key103321%_ _%value103322%_) - (let ((_%h103325%_ _%h103320%_)) - (declare (not safe)) - (&HashTable-set! _%h103325%_ _%key103321%_ _%value103322%_)))) + (lambda (_%h102685%_ _%key102686%_ _%value102687%_) + (let ((_%h102690%_ _%h102685%_)) + (&HashTable-set! _%h102690%_ _%key102686%_ _%value102687%_)))) (define hash-update!__% - (lambda (_%h103285%_ _%key103286%_ _%update103287%_ _%default103288%_) - (let () - (let* ((_%h103294%_ - (let ((_%$obj103291%_ _%h103285%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj103291%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj103291%_))) - '#t) - _%$obj103291%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj103291%_))))) - (_%h103296%_ _%h103294%_)) - (declare (not safe)) - (__hash-update!__% - _%h103296%_ - _%key103286%_ - _%update103287%_ - _%default103288%_))))) + (lambda (_%h102650%_ _%key102651%_ _%update102652%_ _%default102653%_) + (let* ((_%h102659%_ + (let ((_%$obj102656%_ _%h102650%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102656%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102656%_))) + '#t) + _%$obj102656%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102656%_))))) + (_%h102661%_ _%h102659%_)) + (__hash-update!__% + _%h102661%_ + _%key102651%_ + _%update102652%_ + _%default102653%_)))) (define hash-update!__0 - (lambda (_%h103309%_ _%key103310%_ _%update103311%_) - (let ((_%default103313%_ '#!void)) - (declare (not safe)) + (lambda (_%h102674%_ _%key102675%_ _%update102676%_) + (let ((_%default102678%_ '#!void)) (hash-update!__% - _%h103309%_ - _%key103310%_ - _%update103311%_ - _%default103313%_)))) + _%h102674%_ + _%key102675%_ + _%update102676%_ + _%default102678%_)))) (define hash-update! - (lambda _g106916_ - (let ((_g106915_ (let () (declare (not safe)) (##length _g106916_)))) - (cond ((let () (declare (not safe)) (##fx= _g106915_ 3)) - (apply (lambda (_%h103309%_ _%key103310%_ _%update103311%_) - (let () - (declare (not safe)) - (hash-update!__0 - _%h103309%_ - _%key103310%_ - _%update103311%_))) - _g106916_)) - ((let () (declare (not safe)) (##fx= _g106915_ 4)) - (apply (lambda (_%h103315%_ - _%key103316%_ - _%update103317%_ - _%default103318%_) - (let () - (declare (not safe)) - (hash-update!__% - _%h103315%_ - _%key103316%_ - _%update103317%_ - _%default103318%_))) - _g106916_)) + (lambda _g106264_ + (let ((_g106263_ (let () (declare (not safe)) (##length _g106264_)))) + (cond ((let () (declare (not safe)) (##fx= _g106263_ 3)) + (apply hash-update!__0 _g106264_)) + ((let () (declare (not safe)) (##fx= _g106263_ 4)) + (apply hash-update!__% _g106264_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g106916_)))))) + _g106264_)))))) (define __hash-update!__% - (lambda (_%h103255%_ _%key103256%_ _%update103257%_ _%default103258%_) - (let ((_%h103261%_ _%h103255%_)) - (declare (not safe)) + (lambda (_%h102620%_ _%key102621%_ _%update102622%_ _%default102623%_) + (let ((_%h102626%_ _%h102620%_)) (HashTable-update! - _%h103261%_ - _%key103256%_ - _%update103257%_ - _%default103258%_)))) + _%h102626%_ + _%key102621%_ + _%update102622%_ + _%default102623%_)))) (define __hash-update!__0 - (lambda (_%h103273%_ _%key103274%_ _%update103275%_) - (let ((_%default103277%_ '#!void)) - (declare (not safe)) + (lambda (_%h102638%_ _%key102639%_ _%update102640%_) + (let ((_%default102642%_ '#!void)) (__hash-update!__% - _%h103273%_ - _%key103274%_ - _%update103275%_ - _%default103277%_)))) + _%h102638%_ + _%key102639%_ + _%update102640%_ + _%default102642%_)))) (define __hash-update! - (lambda _g106918_ - (let ((_g106917_ (let () (declare (not safe)) (##length _g106918_)))) - (cond ((let () (declare (not safe)) (##fx= _g106917_ 3)) - (apply (lambda (_%h103273%_ _%key103274%_ _%update103275%_) - (let () - (declare (not safe)) - (__hash-update!__0 - _%h103273%_ - _%key103274%_ - _%update103275%_))) - _g106918_)) - ((let () (declare (not safe)) (##fx= _g106917_ 4)) - (apply (lambda (_%h103279%_ - _%key103280%_ - _%update103281%_ - _%default103282%_) - (let () - (declare (not safe)) - (__hash-update!__% - _%h103279%_ - _%key103280%_ - _%update103281%_ - _%default103282%_))) - _g106918_)) + (lambda _g106266_ + (let ((_g106265_ (let () (declare (not safe)) (##length _g106266_)))) + (cond ((let () (declare (not safe)) (##fx= _g106265_ 3)) + (apply __hash-update!__0 _g106266_)) + ((let () (declare (not safe)) (##fx= _g106265_ 4)) + (apply __hash-update!__% _g106266_)) (else (##raise-wrong-number-of-arguments-exception __hash-update! - _g106918_)))))) + _g106266_)))))) (define hash-remove! - (lambda (_%h103235%_ _%key103236%_) - (let () - (let* ((_%h103242%_ - (let ((_%$obj103239%_ _%h103235%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj103239%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj103239%_))) - '#t) - _%$obj103239%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj103239%_))))) - (_%h103244%_ _%h103242%_)) - (declare (not safe)) - (__hash-remove! _%h103244%_ _%key103236%_))))) + (lambda (_%h102600%_ _%key102601%_) + (let* ((_%h102607%_ + (let ((_%$obj102604%_ _%h102600%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102604%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102604%_))) + '#t) + _%$obj102604%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102604%_))))) + (_%h102609%_ _%h102607%_)) + (__hash-remove! _%h102609%_ _%key102601%_)))) (define __hash-remove! - (lambda (_%h103222%_ _%key103223%_) - (let ((_%h103226%_ _%h103222%_)) - (declare (not safe)) - (&HashTable-delete! _%h103226%_ _%key103223%_)))) + (lambda (_%h102587%_ _%key102588%_) + (let ((_%h102591%_ _%h102587%_)) + (&HashTable-delete! _%h102591%_ _%key102588%_)))) (define hash-key? - (lambda (_%h103203%_ _%k103204%_) - (let () - (let* ((_%h103210%_ - (let ((_%$obj103207%_ _%h103203%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj103207%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj103207%_))) - '#t) - _%$obj103207%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj103207%_))))) - (_%h103212%_ _%h103210%_)) - (declare (not safe)) - (__hash-key? _%h103212%_ _%k103204%_))))) + (lambda (_%h102568%_ _%k102569%_) + (let* ((_%h102575%_ + (let ((_%$obj102572%_ _%h102568%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102572%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102572%_))) + '#t) + _%$obj102572%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102572%_))))) + (_%h102577%_ _%h102575%_)) + (__hash-key? _%h102577%_ _%k102569%_)))) (define __hash-key? - (lambda (_%h103190%_ _%k103191%_) - (let () - (let* ((_%h103194%_ _%h103190%_) - (__tmp106919 - (eq? (let () - (declare (not safe)) - (&HashTable-ref _%h103194%_ _%k103191%_ absent-value)) - absent-value))) - (declare (not safe)) - (not __tmp106919))))) + (lambda (_%h102555%_ _%k102556%_) + (let ((_%h102559%_ _%h102555%_)) + (not (eq? (&HashTable-ref _%h102559%_ _%k102556%_ absent-value) + absent-value))))) (define hash->list - (lambda (_%h103172%_) - (let () - (let* ((_%h103178%_ - (let ((_%$obj103175%_ _%h103172%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj103175%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj103175%_))) - '#t) - _%$obj103175%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj103175%_))))) - (_%h103180%_ _%h103178%_)) - (declare (not safe)) - (__hash->list _%h103180%_))))) + (lambda (_%h102537%_) + (let* ((_%h102543%_ + (let ((_%$obj102540%_ _%h102537%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102540%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102540%_))) + '#t) + _%$obj102540%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102540%_))))) + (_%h102545%_ _%h102543%_)) + (__hash->list _%h102545%_)))) (define __hash->list - (lambda (_%h103155%_) - (let () - (let* ((_%h103158%_ _%h103155%_) (_%lst103167%_ '())) - (let ((__tmp106920 - (lambda (_%k103169%_ _%v103170%_) - (set! _%lst103167%_ - (cons (cons _%k103169%_ _%v103170%_) - _%lst103167%_))))) - (declare (not safe)) - (&HashTable-for-each _%h103158%_ __tmp106920)) - _%lst103167%_)))) + (lambda (_%h102520%_) + (let* ((_%h102523%_ _%h102520%_) (_%lst102532%_ '())) + (&HashTable-for-each + _%h102523%_ + (lambda (_%k102534%_ _%v102535%_) + (set! _%lst102532%_ + (cons (cons _%k102534%_ _%v102535%_) _%lst102532%_)))) + _%lst102532%_))) (define hash->plist - (lambda (_%h103137%_) - (let () - (let* ((_%h103143%_ - (let ((_%$obj103140%_ _%h103137%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj103140%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj103140%_))) - '#t) - _%$obj103140%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj103140%_))))) - (_%h103145%_ _%h103143%_)) - (declare (not safe)) - (__hash->plist _%h103145%_))))) - (define __hash->plist - (lambda (_%h103120%_) - (let () - (let* ((_%h103123%_ _%h103120%_) (_%lst103132%_ '())) - (let ((__tmp106921 - (lambda (_%k103134%_ _%v103135%_) - (set! _%lst103132%_ - (let ((__tmp106922 - (let () - (declare (not safe)) - (cons _%v103135%_ _%lst103132%_)))) + (lambda (_%h102502%_) + (let* ((_%h102508%_ + (let ((_%$obj102505%_ _%h102502%_)) + (if (and (let () (declare (not safe)) - (cons _%k103134%_ __tmp106922)))))) - (declare (not safe)) - (&HashTable-for-each _%h103123%_ __tmp106921)) - _%lst103132%_)))) + (##structure? _%$obj102505%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102505%_))) + '#t) + _%$obj102505%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102505%_))))) + (_%h102510%_ _%h102508%_)) + (__hash->plist _%h102510%_)))) + (define __hash->plist + (lambda (_%h102485%_) + (let* ((_%h102488%_ _%h102485%_) (_%lst102497%_ '())) + (&HashTable-for-each + _%h102488%_ + (lambda (_%k102499%_ _%v102500%_) + (set! _%lst102497%_ + (cons _%k102499%_ (cons _%v102500%_ _%lst102497%_))))) + _%lst102497%_))) (define hash-for-each - (lambda (_%proc103091%_ _%h103092%_) - (let () - (if (let () (declare (not safe)) (procedure? _%proc103091%_)) - (let ((_%proc103096%_ _%proc103091%_)) - (let* ((_%h103108%_ - (let ((_%$obj103105%_ _%h103092%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj103105%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj103105%_))) - '#t) - _%$obj103105%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj103105%_))))) - (_%h103110%_ _%h103108%_)) - (declare (not safe)) - (__hash-for-each _%proc103096%_ _%h103110%_))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/hash.ss\"@560.22-560.26" - 'contract: - 'procedure? - 'value: - _%proc103091%_) - '#!void))))) + (lambda (_%proc102456%_ _%h102457%_) + (if (procedure? _%proc102456%_) + (let* ((_%proc102461%_ _%proc102456%_) + (_%h102473%_ + (let ((_%$obj102470%_ _%h102457%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102470%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102470%_))) + '#t) + _%$obj102470%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102470%_))))) + (_%h102475%_ _%h102473%_)) + (__hash-for-each _%proc102461%_ _%h102475%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/hash.ss\"@560.22-560.26" + 'contract: + 'procedure? + 'value: + _%proc102456%_) + '#!void)))) (define __hash-for-each - (lambda (_%proc103070%_ _%h103071%_) - (let () - (let* ((_%proc103074%_ _%proc103070%_) (_%h103082%_ _%h103071%_)) - (declare (not safe)) - (&HashTable-for-each _%h103082%_ _%proc103074%_))))) + (lambda (_%proc102435%_ _%h102436%_) + (let* ((_%proc102439%_ _%proc102435%_) (_%h102447%_ _%h102436%_)) + (&HashTable-for-each _%h102447%_ _%proc102439%_)))) (define hash-map - (lambda (_%proc103041%_ _%h103042%_) - (let () - (if (let () (declare (not safe)) (procedure? _%proc103041%_)) - (let ((_%proc103046%_ _%proc103041%_)) - (let* ((_%h103058%_ - (let ((_%$obj103055%_ _%h103042%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj103055%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj103055%_))) - '#t) - _%$obj103055%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj103055%_))))) - (_%h103060%_ _%h103058%_)) - (declare (not safe)) - (__hash-map _%proc103046%_ _%h103060%_))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/hash.ss\"@563.17-563.21" - 'contract: - 'procedure? - 'value: - _%proc103041%_) - '#!void))))) + (lambda (_%proc102406%_ _%h102407%_) + (if (procedure? _%proc102406%_) + (let* ((_%proc102411%_ _%proc102406%_) + (_%h102423%_ + (let ((_%$obj102420%_ _%h102407%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102420%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102420%_))) + '#t) + _%$obj102420%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102420%_))))) + (_%h102425%_ _%h102423%_)) + (__hash-map _%proc102411%_ _%h102425%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/hash.ss\"@563.17-563.21" + 'contract: + 'procedure? + 'value: + _%proc102406%_) + '#!void)))) (define __hash-map - (lambda (_%proc103015%_ _%h103016%_) - (let ((_%proc103019%_ _%proc103015%_)) - (let* ((_%h103027%_ _%h103016%_) (_%result103036%_ '())) - (let ((__tmp106923 - (lambda (_%k103038%_ _%v103039%_) - (set! _%result103036%_ - (cons (let () - (declare (not safe)) - (_%proc103019%_ _%k103038%_ _%v103039%_)) - _%result103036%_))))) - (declare (not safe)) - (&HashTable-for-each _%h103027%_ __tmp106923)) - _%result103036%_)))) + (lambda (_%proc102380%_ _%h102381%_) + (let* ((_%proc102384%_ _%proc102380%_) + (_%h102392%_ _%h102381%_) + (_%result102401%_ '())) + (&HashTable-for-each + _%h102392%_ + (lambda (_%k102403%_ _%v102404%_) + (set! _%result102401%_ + (cons (let () + (declare (not safe)) + (_%proc102384%_ _%k102403%_ _%v102404%_)) + _%result102401%_)))) + _%result102401%_))) (define hash-fold - (lambda (_%proc102985%_ _%iv102986%_ _%h102987%_) - (let () - (if (let () (declare (not safe)) (procedure? _%proc102985%_)) - (let ((_%proc102991%_ _%proc102985%_)) - (let* ((_%h103003%_ - (let ((_%$obj103000%_ _%h102987%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj103000%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj103000%_))) - '#t) - _%$obj103000%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj103000%_))))) - (_%h103005%_ _%h103003%_)) - (declare (not safe)) - (__hash-fold _%proc102991%_ _%iv102986%_ _%h103005%_))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/hash.ss\"@568.18-568.22" - 'contract: - 'procedure? - 'value: - _%proc102985%_) - '#!void))))) - (define __hash-fold - (lambda (_%proc102958%_ _%iv102959%_ _%h102960%_) - (let ((_%proc102963%_ _%proc102958%_)) - (let* ((_%h102971%_ _%h102960%_) (_%result102980%_ _%iv102959%_)) - (let ((__tmp106924 - (lambda (_%k102982%_ _%v102983%_) - (set! _%result102980%_ - (let () - (declare (not safe)) - (_%proc102963%_ - _%k102982%_ - _%v102983%_ - _%result102980%_)))))) - (declare (not safe)) - (&HashTable-for-each _%h102971%_ __tmp106924)) - _%result102980%_)))) - (define hash-find__% - (lambda (_%proc102916%_ _%h102917%_ _%default-value102918%_) - (let () - (if (let () (declare (not safe)) (procedure? _%proc102916%_)) - (let ((_%proc102922%_ _%proc102916%_)) - (let* ((_%h102934%_ - (let ((_%$obj102931%_ _%h102917%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj102931%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj102931%_))) - '#t) - _%$obj102931%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj102931%_))))) - (_%h102936%_ _%h102934%_)) - (declare (not safe)) - (__hash-find__% - _%proc102922%_ - _%h102936%_ - _%default-value102918%_))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/hash.ss\"@573.18-573.22" - 'contract: - 'procedure? - 'value: - _%proc102916%_) - '#!void))))) - (define hash-find__0 - (lambda (_%proc102949%_ _%h102950%_) - (let ((_%default-value102952%_ '#f)) - (declare (not safe)) - (hash-find__% _%proc102949%_ _%h102950%_ _%default-value102952%_)))) - (define hash-find - (lambda _g106926_ - (let ((_g106925_ (let () (declare (not safe)) (##length _g106926_)))) - (cond ((let () (declare (not safe)) (##fx= _g106925_ 2)) - (apply (lambda (_%proc102949%_ _%h102950%_) + (lambda (_%proc102350%_ _%iv102351%_ _%h102352%_) + (if (procedure? _%proc102350%_) + (let* ((_%proc102356%_ _%proc102350%_) + (_%h102368%_ + (let ((_%$obj102365%_ _%h102352%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102365%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102365%_))) + '#t) + _%$obj102365%_ (let () (declare (not safe)) - (hash-find__0 _%proc102949%_ _%h102950%_))) - _g106926_)) - ((let () (declare (not safe)) (##fx= _g106925_ 3)) - (apply (lambda (_%proc102954%_ - _%h102955%_ - _%default-value102956%_) + (cast HashTable::interface _%$obj102365%_))))) + (_%h102370%_ _%h102368%_)) + (__hash-fold _%proc102356%_ _%iv102351%_ _%h102370%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/hash.ss\"@568.18-568.22" + 'contract: + 'procedure? + 'value: + _%proc102350%_) + '#!void)))) + (define __hash-fold + (lambda (_%proc102323%_ _%iv102324%_ _%h102325%_) + (let* ((_%proc102328%_ _%proc102323%_) + (_%h102336%_ _%h102325%_) + (_%result102345%_ _%iv102324%_)) + (&HashTable-for-each + _%h102336%_ + (lambda (_%k102347%_ _%v102348%_) + (set! _%result102345%_ + (let () + (declare (not safe)) + (_%proc102328%_ + _%k102347%_ + _%v102348%_ + _%result102345%_))))) + _%result102345%_))) + (define hash-find__% + (lambda (_%proc102281%_ _%h102282%_ _%default-value102283%_) + (if (procedure? _%proc102281%_) + (let* ((_%proc102287%_ _%proc102281%_) + (_%h102299%_ + (let ((_%$obj102296%_ _%h102282%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102296%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102296%_))) + '#t) + _%$obj102296%_ (let () (declare (not safe)) - (hash-find__% - _%proc102954%_ - _%h102955%_ - _%default-value102956%_))) - _g106926_)) + (cast HashTable::interface _%$obj102296%_))))) + (_%h102301%_ _%h102299%_)) + (__hash-find__% + _%proc102287%_ + _%h102301%_ + _%default-value102283%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/hash.ss\"@573.18-573.22" + 'contract: + 'procedure? + 'value: + _%proc102281%_) + '#!void)))) + (define hash-find__0 + (lambda (_%proc102314%_ _%h102315%_) + (let ((_%default-value102317%_ '#f)) + (hash-find__% _%proc102314%_ _%h102315%_ _%default-value102317%_)))) + (define hash-find + (lambda _g106268_ + (let ((_g106267_ (let () (declare (not safe)) (##length _g106268_)))) + (cond ((let () (declare (not safe)) (##fx= _g106267_ 2)) + (apply hash-find__0 _g106268_)) + ((let () (declare (not safe)) (##fx= _g106267_ 3)) + (apply hash-find__% _g106268_)) (else (##raise-wrong-number-of-arguments-exception hash-find - _g106926_)))))) + _g106268_)))))) (define __hash-find__% - (lambda (_%proc102873%_ _%h102874%_ _%default-value102875%_) - (let ((_%proc102878%_ _%proc102873%_)) - (let* ((_%h102886%_ _%h102874%_) - (__tmp106927 - (lambda (_%return102895%_) - (let ((__tmp106928 - (lambda (_%k102897%_ _%v102898%_) - (let ((_%$e102900%_ - (let () - (declare (not safe)) - (_%proc102878%_ - _%k102897%_ - _%v102898%_)))) - (if _%$e102900%_ - (_%return102895%_ _%$e102900%_) - '#!void))))) - (declare (not safe)) - (&HashTable-for-each _%h102886%_ __tmp106928)) - _%default-value102875%_))) - (declare (not safe)) - (##call-with-current-continuation __tmp106927))))) - (define __hash-find__0 - (lambda (_%proc102906%_ _%h102907%_) - (let ((_%default-value102909%_ '#f)) + (lambda (_%proc102238%_ _%h102239%_ _%default-value102240%_) + (let* ((_%proc102243%_ _%proc102238%_) + (_%h102251%_ _%h102239%_) + (__tmp106269 + (lambda (_%return102260%_) + (&HashTable-for-each + _%h102251%_ + (lambda (_%k102262%_ _%v102263%_) + (let ((_%$e102265%_ + (let () + (declare (not safe)) + (_%proc102243%_ _%k102262%_ _%v102263%_)))) + (if _%$e102265%_ + (_%return102260%_ _%$e102265%_) + '#!void)))) + _%default-value102240%_))) (declare (not safe)) + (##call-with-current-continuation __tmp106269)))) + (define __hash-find__0 + (lambda (_%proc102271%_ _%h102272%_) + (let ((_%default-value102274%_ '#f)) (__hash-find__% - _%proc102906%_ - _%h102907%_ - _%default-value102909%_)))) + _%proc102271%_ + _%h102272%_ + _%default-value102274%_)))) (define __hash-find - (lambda _g106930_ - (let ((_g106929_ (let () (declare (not safe)) (##length _g106930_)))) - (cond ((let () (declare (not safe)) (##fx= _g106929_ 2)) - (apply (lambda (_%proc102906%_ _%h102907%_) - (let () - (declare (not safe)) - (__hash-find__0 _%proc102906%_ _%h102907%_))) - _g106930_)) - ((let () (declare (not safe)) (##fx= _g106929_ 3)) - (apply (lambda (_%proc102911%_ - _%h102912%_ - _%default-value102913%_) - (let () - (declare (not safe)) - (__hash-find__% - _%proc102911%_ - _%h102912%_ - _%default-value102913%_))) - _g106930_)) + (lambda _g106271_ + (let ((_g106270_ (let () (declare (not safe)) (##length _g106271_)))) + (cond ((let () (declare (not safe)) (##fx= _g106270_ 2)) + (apply __hash-find__0 _g106271_)) + ((let () (declare (not safe)) (##fx= _g106270_ 3)) + (apply __hash-find__% _g106271_)) (else (##raise-wrong-number-of-arguments-exception __hash-find - _g106930_)))))) + _g106271_)))))) (define hash-keys - (lambda (_%h102854%_) - (let () - (let* ((_%h102860%_ - (let ((_%$obj102857%_ _%h102854%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj102857%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj102857%_))) - '#t) - _%$obj102857%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj102857%_))))) - (_%h102862%_ _%h102860%_)) - (declare (not safe)) - (__hash-keys _%h102862%_))))) + (lambda (_%h102219%_) + (let* ((_%h102225%_ + (let ((_%$obj102222%_ _%h102219%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102222%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102222%_))) + '#t) + _%$obj102222%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102222%_))))) + (_%h102227%_ _%h102225%_)) + (__hash-keys _%h102227%_)))) (define __hash-keys - (lambda (_%h102837%_) - (let () - (let* ((_%h102840%_ _%h102837%_) (_%result102849%_ '())) - (let ((__tmp106931 - (lambda (_%k102851%_ _%v102852%_) - (set! _%result102849%_ - (cons _%k102851%_ _%result102849%_))))) - (declare (not safe)) - (&HashTable-for-each _%h102840%_ __tmp106931)) - _%result102849%_)))) + (lambda (_%h102202%_) + (let* ((_%h102205%_ _%h102202%_) (_%result102214%_ '())) + (&HashTable-for-each + _%h102205%_ + (lambda (_%k102216%_ _%v102217%_) + (set! _%result102214%_ (cons _%k102216%_ _%result102214%_)))) + _%result102214%_))) (define hash-values - (lambda (_%h102819%_) - (let () - (let* ((_%h102825%_ - (let ((_%$obj102822%_ _%h102819%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj102822%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj102822%_))) - '#t) - _%$obj102822%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj102822%_))))) - (_%h102827%_ _%h102825%_)) - (declare (not safe)) - (__hash-values _%h102827%_))))) + (lambda (_%h102184%_) + (let* ((_%h102190%_ + (let ((_%$obj102187%_ _%h102184%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102187%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102187%_))) + '#t) + _%$obj102187%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102187%_))))) + (_%h102192%_ _%h102190%_)) + (__hash-values _%h102192%_)))) (define __hash-values - (lambda (_%h102802%_) - (let () - (let* ((_%h102805%_ _%h102802%_) (_%result102814%_ '())) - (let ((__tmp106932 - (lambda (_%k102816%_ _%v102817%_) - (set! _%result102814%_ - (cons _%v102817%_ _%result102814%_))))) - (declare (not safe)) - (&HashTable-for-each _%h102805%_ __tmp106932)) - _%result102814%_)))) + (lambda (_%h102167%_) + (let* ((_%h102170%_ _%h102167%_) (_%result102179%_ '())) + (&HashTable-for-each + _%h102170%_ + (lambda (_%k102181%_ _%v102182%_) + (set! _%result102179%_ (cons _%v102182%_ _%result102179%_)))) + _%result102179%_))) (define hash-copy - (lambda (_%h102784%_) - (let () - (let* ((_%h102790%_ - (let ((_%$obj102787%_ _%h102784%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj102787%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj102787%_))) - '#t) - _%$obj102787%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj102787%_))))) - (_%h102792%_ _%h102790%_)) - (declare (not safe)) - (__hash-copy _%h102792%_))))) + (lambda (_%h102149%_) + (let* ((_%h102155%_ + (let ((_%$obj102152%_ _%h102149%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102152%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102152%_))) + '#t) + _%$obj102152%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102152%_))))) + (_%h102157%_ _%h102155%_)) + (__hash-copy _%h102157%_)))) (define __hash-copy - (lambda (_%h102772%_) - (let ((_%h102775%_ _%h102772%_)) - (declare (not safe)) - (__HashTable-copy _%h102775%_)))) + (lambda (_%h102137%_) + (let ((_%h102140%_ _%h102137%_)) (__HashTable-copy _%h102140%_)))) (define hash-clear! - (lambda (_%h102754%_) - (let () - (let* ((_%h102760%_ - (let ((_%$obj102757%_ _%h102754%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj102757%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj102757%_))) - '#t) - _%$obj102757%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj102757%_))))) - (_%h102762%_ _%h102760%_)) - (declare (not safe)) - (__hash-clear! _%h102762%_))))) + (lambda (_%h102119%_) + (let* ((_%h102125%_ + (let ((_%$obj102122%_ _%h102119%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102122%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102122%_))) + '#t) + _%$obj102122%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102122%_))))) + (_%h102127%_ _%h102125%_)) + (__hash-clear! _%h102127%_)))) (define __hash-clear! - (lambda (_%h102742%_) - (let ((_%h102745%_ _%h102742%_)) - (declare (not safe)) - (&HashTable-clear! _%h102745%_)))) + (lambda (_%h102107%_) + (let ((_%h102110%_ _%h102107%_)) (&HashTable-clear! _%h102110%_)))) (define hash-merge - (lambda (_%h102723%_ . _%rest102724%_) - (let () - (let* ((_%h102730%_ - (let ((_%$obj102727%_ _%h102723%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj102727%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj102727%_))) - '#t) - _%$obj102727%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj102727%_))))) - (_%h102732%_ _%h102730%_)) - (declare (not safe)) - (##apply __hash-merge _%h102732%_ _%rest102724%_))))) + (lambda (_%h102088%_ . _%rest102089%_) + (let* ((_%h102095%_ + (let ((_%$obj102092%_ _%h102088%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102092%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102092%_))) + '#t) + _%$obj102092%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102092%_))))) + (_%h102097%_ _%h102095%_)) + (declare (not safe)) + (##apply __hash-merge _%h102097%_ _%rest102089%_)))) (define __hash-merge - (lambda (_%h102708%_ . _%rest102709%_) - (let () - (let* ((_%h102712%_ _%h102708%_) - (_%copy102721%_ - (let () - (declare (not safe)) - (__HashTable-copy _%h102712%_)))) - (apply hash-merge! _%copy102721%_ _%rest102709%_) - _%copy102721%_)))) + (lambda (_%h102073%_ . _%rest102074%_) + (let* ((_%h102077%_ _%h102073%_) + (_%copy102086%_ (__HashTable-copy _%h102077%_))) + (apply hash-merge! _%copy102086%_ _%rest102074%_) + _%copy102086%_))) (define hash-merge! - (lambda (_%h102689%_ . _%rest102690%_) - (let () - (let* ((_%h102696%_ - (let ((_%$obj102693%_ _%h102689%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj102693%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj102693%_))) - '#t) - _%$obj102693%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj102693%_))))) - (_%h102698%_ _%h102696%_)) - (declare (not safe)) - (##apply __hash-merge! _%h102698%_ _%rest102690%_))))) + (lambda (_%h102054%_ . _%rest102055%_) + (let* ((_%h102061%_ + (let ((_%$obj102058%_ _%h102054%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102058%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102058%_))) + '#t) + _%$obj102058%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102058%_))))) + (_%h102063%_ _%h102061%_)) + (declare (not safe)) + (##apply __hash-merge! _%h102063%_ _%rest102055%_)))) (define __hash-merge! - (lambda (_%h102652%_ . _%rest102653%_) - (let ((_%h102656%_ _%h102652%_)) + (lambda (_%h102017%_ . _%rest102018%_) + (let ((_%h102021%_ _%h102017%_)) (for-each - (lambda (_%hr102665%_) - (let () - (let* ((_%hr102671%_ - (let ((_%$obj102668%_ _%hr102665%_)) - (if (and (let () - (declare (not safe)) - (##structure? _%$obj102668%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj102668%_))) - '#t) - _%$obj102668%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj102668%_))))) - (_%hr102673%_ _%hr102671%_) - (__tmp106933 - (lambda (_%k102686%_ _%v102687%_) - (if (let () - (declare (not safe)) - (__hash-key? _%h102656%_ _%k102686%_)) - '#!void - (let () - (declare (not safe)) - (&HashTable-set! - _%h102656%_ - _%k102686%_ - _%v102687%_)))))) - (declare (not safe)) - (&HashTable-for-each _%hr102673%_ __tmp106933)))) - _%rest102653%_) - _%h102656%_))))) + (lambda (_%hr102030%_) + (let* ((_%hr102036%_ + (let ((_%$obj102033%_ _%hr102030%_)) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj102033%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj102033%_))) + '#t) + _%$obj102033%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj102033%_))))) + (_%hr102038%_ _%hr102036%_)) + (&HashTable-for-each + _%hr102038%_ + (lambda (_%k102051%_ _%v102052%_) + (if (__hash-key? _%h102021%_ _%k102051%_) + '#!void + (&HashTable-set! + _%h102021%_ + _%k102051%_ + _%v102052%_)))))) + _%rest102018%_) + _%h102021%_))))) diff --git a/src/bootstrap/gerbil/runtime/hash~1.scm b/src/bootstrap/gerbil/runtime/hash~1.scm index 2d5726322..025f9de6e 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]#_g106935_| + (define |[1]#_g106273_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g106937_| + (define |[1]#_g106275_| (##structure gx#syntax-quote::t 'UnboundKeyError::t #f (gx#current-expander-context) '())) - (define |[1]#_g106939_| + (define |[1]#_g106277_| (##structure gx#syntax-quote::t 'make-UnboundKeyError #f (gx#current-expander-context) '())) - (define |[1]#_g106941_| + (define |[1]#_g106279_| (##structure gx#syntax-quote::t 'UnboundKeyError? #f (gx#current-expander-context) '())) - (define |[1]#_g106943_| + (define |[1]#_g106281_| (##structure gx#syntax-quote::t 'UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g106944_| + (define |[1]#_g106282_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g106945_| + (define |[1]#_g106283_| (##structure gx#syntax-quote::t 'UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g106946_| + (define |[1]#_g106284_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g106948_| + (define |[1]#_g106286_| (##structure gx#syntax-quote::t 'UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106949_| + (define |[1]#_g106287_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106950_| + (define |[1]#_g106288_| (##structure gx#syntax-quote::t 'UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106951_| + (define |[1]#_g106289_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106953_| + (define |[1]#_g106291_| (##structure gx#syntax-quote::t '&UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g106954_| + (define |[1]#_g106292_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g106955_| + (define |[1]#_g106293_| (##structure gx#syntax-quote::t '&UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g106956_| + (define |[1]#_g106294_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g106958_| + (define |[1]#_g106296_| (##structure gx#syntax-quote::t '&UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106959_| + (define |[1]#_g106297_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106960_| + (define |[1]#_g106298_| (##structure gx#syntax-quote::t '&UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106961_| + (define |[1]#_g106299_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106963_| + (define |[1]#_g106301_| (##structure gx#syntax-quote::t 'HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g106965_| + (define |[1]#_g106303_| (##structure gx#syntax-quote::t 'HashTable::t #f (gx#current-expander-context) '())) - (define |[1]#_g106967_| + (define |[1]#_g106305_| (##structure gx#syntax-quote::t 'HashTable::interface #f (gx#current-expander-context) '())) - (define |[1]#_g106969_| + (define |[1]#_g106307_| (##structure gx#syntax-quote::t 'make-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g106971_| + (define |[1]#_g106309_| (##structure gx#syntax-quote::t 'try-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g106973_| + (define |[1]#_g106311_| (##structure gx#syntax-quote::t 'HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g106975_| + (define |[1]#_g106313_| (##structure gx#syntax-quote::t 'is-HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g106977_| + (define |[1]#_g106315_| (##structure gx#syntax-quote::t 'HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g106978_| + (define |[1]#_g106316_| (##structure gx#syntax-quote::t 'HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g106979_| + (define |[1]#_g106317_| (##structure gx#syntax-quote::t 'HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g106980_| + (define |[1]#_g106318_| (##structure gx#syntax-quote::t 'HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g106981_| + (define |[1]#_g106319_| (##structure gx#syntax-quote::t 'HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g106982_| + (define |[1]#_g106320_| (##structure gx#syntax-quote::t 'HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g106983_| + (define |[1]#_g106321_| (##structure gx#syntax-quote::t 'HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106984_| + (define |[1]#_g106322_| (##structure gx#syntax-quote::t 'HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g106986_| + (define |[1]#_g106324_| (##structure gx#syntax-quote::t '&HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g106987_| + (define |[1]#_g106325_| (##structure gx#syntax-quote::t '&HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g106988_| + (define |[1]#_g106326_| (##structure gx#syntax-quote::t '&HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g106989_| + (define |[1]#_g106327_| (##structure gx#syntax-quote::t '&HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g106990_| + (define |[1]#_g106328_| (##structure gx#syntax-quote::t '&HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g106991_| + (define |[1]#_g106329_| (##structure gx#syntax-quote::t '&HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g106992_| + (define |[1]#_g106330_| (##structure gx#syntax-quote::t '&HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106993_| + (define |[1]#_g106331_| (##structure gx#syntax-quote::t '&HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g106995_| + (define |[1]#_g106333_| (##structure gx#syntax-quote::t 'Locker::t #f (gx#current-expander-context) '())) - (define |[1]#_g106997_| + (define |[1]#_g106335_| (##structure gx#syntax-quote::t 'Locker::interface #f (gx#current-expander-context) '())) - (define |[1]#_g106999_| + (define |[1]#_g106337_| (##structure gx#syntax-quote::t 'make-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g107001_| + (define |[1]#_g106339_| (##structure gx#syntax-quote::t 'try-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g107003_| + (define |[1]#_g106341_| (##structure gx#syntax-quote::t 'Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g107005_| + (define |[1]#_g106343_| (##structure gx#syntax-quote::t 'is-Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g107007_| + (define |[1]#_g106345_| (##structure gx#syntax-quote::t 'Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g107008_| + (define |[1]#_g106346_| (##structure gx#syntax-quote::t 'Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g107009_| + (define |[1]#_g106347_| (##structure gx#syntax-quote::t 'Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g107010_| + (define |[1]#_g106348_| (##structure gx#syntax-quote::t 'Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g107012_| + (define |[1]#_g106350_| (##structure gx#syntax-quote::t '&Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g107013_| + (define |[1]#_g106351_| (##structure gx#syntax-quote::t '&Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g107014_| + (define |[1]#_g106352_| (##structure gx#syntax-quote::t '&Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g107015_| + (define |[1]#_g106353_| (##structure gx#syntax-quote::t '&Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g107017_| + (define |[1]#_g106355_| (##structure gx#syntax-quote::t 'locked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g107019_| + (define |[1]#_g106357_| (##structure gx#syntax-quote::t 'make-locked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g107021_| + (define |[1]#_g106359_| (##structure gx#syntax-quote::t 'locked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g107023_| + (define |[1]#_g106361_| (##structure gx#syntax-quote::t 'locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g107024_| + (define |[1]#_g106362_| (##structure gx#syntax-quote::t 'locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g107026_| + (define |[1]#_g106364_| (##structure gx#syntax-quote::t 'locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107027_| + (define |[1]#_g106365_| (##structure gx#syntax-quote::t 'locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107029_| + (define |[1]#_g106367_| (##structure gx#syntax-quote::t '&locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g107030_| + (define |[1]#_g106368_| (##structure gx#syntax-quote::t '&locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g107032_| + (define |[1]#_g106370_| (##structure gx#syntax-quote::t '&locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107033_| + (define |[1]#_g106371_| (##structure gx#syntax-quote::t '&locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107035_| + (define |[1]#_g106373_| (##structure gx#syntax-quote::t 'checked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g107037_| + (define |[1]#_g106375_| (##structure gx#syntax-quote::t 'make-checked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g107039_| + (define |[1]#_g106377_| (##structure gx#syntax-quote::t 'checked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g107041_| + (define |[1]#_g106379_| (##structure gx#syntax-quote::t 'checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g107042_| + (define |[1]#_g106380_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g107044_| + (define |[1]#_g106382_| (##structure gx#syntax-quote::t 'checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107045_| + (define |[1]#_g106383_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107047_| + (define |[1]#_g106385_| (##structure gx#syntax-quote::t '&checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g107048_| + (define |[1]#_g106386_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g107050_| + (define |[1]#_g106388_| (##structure gx#syntax-quote::t '&checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107051_| + (define |[1]#_g106389_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check-set! @@ -555,7 +555,7 @@ '())) (begin (define |[:0:]#UnboundKeyError| - (let ((__obj106818 + (let ((__obj106183 (let () (declare (not safe)) (##structure @@ -584,104 +584,104 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106818 + __obj106183 'gerbil/runtime/hash#UnboundKeyError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106818 'UnboundKeyError '2 '#f '#f)) + (##unchecked-structure-set! __obj106183 'UnboundKeyError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106818 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj106183 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj106818 + __obj106183 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp106934 (cons |[1]#_g106935_| '()))) + (let ((__tmp106272 (cons |[1]#_g106273_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj106818 __tmp106934 '3 '#f '#f)) + (##unchecked-structure-set! __obj106183 __tmp106272 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106818 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj106183 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106818 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj106183 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106818 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj106183 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106818 ':init! '11 '#f '#f)) - (let ((__tmp106936 |[1]#_g106937_|)) + (##unchecked-structure-set! __obj106183 ':init! '11 '#f '#f)) + (let ((__tmp106274 |[1]#_g106275_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106818 __tmp106936 '12 '#f '#f)) - (let ((__tmp106938 |[1]#_g106939_|)) + (##unchecked-structure-set! __obj106183 __tmp106274 '12 '#f '#f)) + (let ((__tmp106276 |[1]#_g106277_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106818 __tmp106938 '13 '#f '#f)) - (let ((__tmp106940 |[1]#_g106941_|)) + (##unchecked-structure-set! __obj106183 __tmp106276 '13 '#f '#f)) + (let ((__tmp106278 |[1]#_g106279_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106818 __tmp106940 '14 '#f '#f)) - (let ((__tmp106942 - (cons (cons 'message |[1]#_g106943_|) - (cons (cons 'irritants |[1]#_g106944_|) - (cons (cons 'where |[1]#_g106945_|) - (cons (cons 'continuation |[1]#_g106946_|) + (##unchecked-structure-set! __obj106183 __tmp106278 '14 '#f '#f)) + (let ((__tmp106280 + (cons (cons 'message |[1]#_g106281_|) + (cons (cons 'irritants |[1]#_g106282_|) + (cons (cons 'where |[1]#_g106283_|) + (cons (cons 'continuation |[1]#_g106284_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj106818 __tmp106942 '15 '#f '#f)) - (let ((__tmp106947 - (cons (cons 'message |[1]#_g106948_|) - (cons (cons 'irritants |[1]#_g106949_|) - (cons (cons 'where |[1]#_g106950_|) - (cons (cons 'continuation |[1]#_g106951_|) + (##unchecked-structure-set! __obj106183 __tmp106280 '15 '#f '#f)) + (let ((__tmp106285 + (cons (cons 'message |[1]#_g106286_|) + (cons (cons 'irritants |[1]#_g106287_|) + (cons (cons 'where |[1]#_g106288_|) + (cons (cons 'continuation |[1]#_g106289_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj106818 __tmp106947 '16 '#f '#f)) - (let ((__tmp106952 - (cons (cons 'message |[1]#_g106953_|) - (cons (cons 'irritants |[1]#_g106954_|) - (cons (cons 'where |[1]#_g106955_|) - (cons (cons 'continuation |[1]#_g106956_|) + (##unchecked-structure-set! __obj106183 __tmp106285 '16 '#f '#f)) + (let ((__tmp106290 + (cons (cons 'message |[1]#_g106291_|) + (cons (cons 'irritants |[1]#_g106292_|) + (cons (cons 'where |[1]#_g106293_|) + (cons (cons 'continuation |[1]#_g106294_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj106818 __tmp106952 '17 '#f '#f)) - (let ((__tmp106957 - (cons (cons 'message |[1]#_g106958_|) - (cons (cons 'irritants |[1]#_g106959_|) - (cons (cons 'where |[1]#_g106960_|) - (cons (cons 'continuation |[1]#_g106961_|) + (##unchecked-structure-set! __obj106183 __tmp106290 '17 '#f '#f)) + (let ((__tmp106295 + (cons (cons 'message |[1]#_g106296_|) + (cons (cons 'irritants |[1]#_g106297_|) + (cons (cons 'where |[1]#_g106298_|) + (cons (cons 'continuation |[1]#_g106299_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj106818 __tmp106957 '18 '#f '#f)) + (##unchecked-structure-set! __obj106183 __tmp106295 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106818 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj106183 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106818 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj106183 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106818 '() '20 '#f '#f)) - __obj106818)) + (##unchecked-structure-set! __obj106183 '() '20 '#f '#f)) + __obj106183)) (define |[:0:]#@HashTable| - (let ((__obj106820 + (let ((__obj106185 (let () (declare (not safe)) (##structure |gerbil/core/contract~TypeReference[1]#type-reference::t| '#f)))) - (let ((__tmp106962 |[1]#_g106963_|)) + (let ((__tmp106300 |[1]#_g106301_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106820 __tmp106962 '1 '#f '#f)) - __obj106820)) + (##unchecked-structure-set! __obj106185 __tmp106300 '1 '#f '#f)) + __obj106185)) (define |[:0:]#HashTable| - (let ((__obj106821 + (let ((__obj106186 (let () (declare (not safe)) (##structure @@ -699,14 +699,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106821 'HashTable '1 '#f '#f)) + (##unchecked-structure-set! __obj106186 'HashTable '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106821 '() '2 '#f '#f)) + (##unchecked-structure-set! __obj106186 '() '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj106821 + __obj106186 '((clear! () :void) (copy () @HashTable) (delete! (key) :void) @@ -718,51 +718,51 @@ '3 '#f '#f)) - (let ((__tmp106964 |[1]#_g106965_|)) + (let ((__tmp106302 |[1]#_g106303_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106821 __tmp106964 '4 '#f '#f)) - (let ((__tmp106966 |[1]#_g106967_|)) + (##unchecked-structure-set! __obj106186 __tmp106302 '4 '#f '#f)) + (let ((__tmp106304 |[1]#_g106305_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106821 __tmp106966 '5 '#f '#f)) - (let ((__tmp106968 |[1]#_g106969_|)) + (##unchecked-structure-set! __obj106186 __tmp106304 '5 '#f '#f)) + (let ((__tmp106306 |[1]#_g106307_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106821 __tmp106968 '6 '#f '#f)) - (let ((__tmp106970 |[1]#_g106971_|)) + (##unchecked-structure-set! __obj106186 __tmp106306 '6 '#f '#f)) + (let ((__tmp106308 |[1]#_g106309_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106821 __tmp106970 '7 '#f '#f)) - (let ((__tmp106972 |[1]#_g106973_|)) + (##unchecked-structure-set! __obj106186 __tmp106308 '7 '#f '#f)) + (let ((__tmp106310 |[1]#_g106311_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106821 __tmp106972 '8 '#f '#f)) - (let ((__tmp106974 |[1]#_g106975_|)) + (##unchecked-structure-set! __obj106186 __tmp106310 '8 '#f '#f)) + (let ((__tmp106312 |[1]#_g106313_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106821 __tmp106974 '9 '#f '#f)) - (let ((__tmp106976 - (cons |[1]#_g106977_| - (cons |[1]#_g106978_| - (cons |[1]#_g106979_| - (cons |[1]#_g106980_| - (cons |[1]#_g106981_| - (cons |[1]#_g106982_| - (cons |[1]#_g106983_| - (cons |[1]#_g106984_| + (##unchecked-structure-set! __obj106186 __tmp106312 '9 '#f '#f)) + (let ((__tmp106314 + (cons |[1]#_g106315_| + (cons |[1]#_g106316_| + (cons |[1]#_g106317_| + (cons |[1]#_g106318_| + (cons |[1]#_g106319_| + (cons |[1]#_g106320_| + (cons |[1]#_g106321_| + (cons |[1]#_g106322_| '())))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj106821 __tmp106976 '10 '#f '#f)) - (let ((__tmp106985 - (cons |[1]#_g106986_| - (cons |[1]#_g106987_| - (cons |[1]#_g106988_| - (cons |[1]#_g106989_| - (cons |[1]#_g106990_| - (cons |[1]#_g106991_| - (cons |[1]#_g106992_| - (cons |[1]#_g106993_| + (##unchecked-structure-set! __obj106186 __tmp106314 '10 '#f '#f)) + (let ((__tmp106323 + (cons |[1]#_g106324_| + (cons |[1]#_g106325_| + (cons |[1]#_g106326_| + (cons |[1]#_g106327_| + (cons |[1]#_g106328_| + (cons |[1]#_g106329_| + (cons |[1]#_g106330_| + (cons |[1]#_g106331_| '())))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj106821 __tmp106985 '11 '#f '#f)) - __obj106821)) + (##unchecked-structure-set! __obj106186 __tmp106323 '11 '#f '#f)) + __obj106186)) (define |[:0:]#Locker| - (let ((__obj106822 + (let ((__obj106187 (let () (declare (not safe)) (##structure @@ -780,14 +780,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106822 'Locker '1 '#f '#f)) + (##unchecked-structure-set! __obj106187 'Locker '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106822 '() '2 '#f '#f)) + (##unchecked-structure-set! __obj106187 '() '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj106822 + __obj106187 '((read-lock! () :void) (read-unlock! () :void) (write-lock! () :void) @@ -795,41 +795,41 @@ '3 '#f '#f)) - (let ((__tmp106994 |[1]#_g106995_|)) + (let ((__tmp106332 |[1]#_g106333_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106822 __tmp106994 '4 '#f '#f)) - (let ((__tmp106996 |[1]#_g106997_|)) + (##unchecked-structure-set! __obj106187 __tmp106332 '4 '#f '#f)) + (let ((__tmp106334 |[1]#_g106335_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106822 __tmp106996 '5 '#f '#f)) - (let ((__tmp106998 |[1]#_g106999_|)) + (##unchecked-structure-set! __obj106187 __tmp106334 '5 '#f '#f)) + (let ((__tmp106336 |[1]#_g106337_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106822 __tmp106998 '6 '#f '#f)) - (let ((__tmp107000 |[1]#_g107001_|)) + (##unchecked-structure-set! __obj106187 __tmp106336 '6 '#f '#f)) + (let ((__tmp106338 |[1]#_g106339_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106822 __tmp107000 '7 '#f '#f)) - (let ((__tmp107002 |[1]#_g107003_|)) + (##unchecked-structure-set! __obj106187 __tmp106338 '7 '#f '#f)) + (let ((__tmp106340 |[1]#_g106341_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106822 __tmp107002 '8 '#f '#f)) - (let ((__tmp107004 |[1]#_g107005_|)) + (##unchecked-structure-set! __obj106187 __tmp106340 '8 '#f '#f)) + (let ((__tmp106342 |[1]#_g106343_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106822 __tmp107004 '9 '#f '#f)) - (let ((__tmp107006 - (cons |[1]#_g107007_| - (cons |[1]#_g107008_| - (cons |[1]#_g107009_| - (cons |[1]#_g107010_| '())))))) + (##unchecked-structure-set! __obj106187 __tmp106342 '9 '#f '#f)) + (let ((__tmp106344 + (cons |[1]#_g106345_| + (cons |[1]#_g106346_| + (cons |[1]#_g106347_| + (cons |[1]#_g106348_| '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj106822 __tmp107006 '10 '#f '#f)) - (let ((__tmp107011 - (cons |[1]#_g107012_| - (cons |[1]#_g107013_| - (cons |[1]#_g107014_| - (cons |[1]#_g107015_| '())))))) + (##unchecked-structure-set! __obj106187 __tmp106344 '10 '#f '#f)) + (let ((__tmp106349 + (cons |[1]#_g106350_| + (cons |[1]#_g106351_| + (cons |[1]#_g106352_| + (cons |[1]#_g106353_| '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj106822 __tmp107011 '11 '#f '#f)) - __obj106822)) + (##unchecked-structure-set! __obj106187 __tmp106349 '11 '#f '#f)) + __obj106187)) (define |[:0:]#locked-hash-table| - (let ((__obj106823 + (let ((__obj106188 (let () (declare (not safe)) (##structure @@ -858,7 +858,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106823 + __obj106188 'gerbil/runtime/hash#locked-hash-table::t '1 '#f @@ -866,73 +866,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106823 + __obj106188 'locked-hash-table '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106823 '(table lock) '4 '#f '#f)) + (##unchecked-structure-set! __obj106188 '(table lock) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106823 '(table lock) '6 '#f '#f)) + (##unchecked-structure-set! __obj106188 '(table lock) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106823 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj106188 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106823 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj106188 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106823 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj106188 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106823 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj106188 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106823 '#f '11 '#f '#f)) - (let ((__tmp107016 |[1]#_g107017_|)) + (##unchecked-structure-set! __obj106188 '#f '11 '#f '#f)) + (let ((__tmp106354 |[1]#_g106355_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106823 __tmp107016 '12 '#f '#f)) - (let ((__tmp107018 |[1]#_g107019_|)) + (##unchecked-structure-set! __obj106188 __tmp106354 '12 '#f '#f)) + (let ((__tmp106356 |[1]#_g106357_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106823 __tmp107018 '13 '#f '#f)) - (let ((__tmp107020 |[1]#_g107021_|)) + (##unchecked-structure-set! __obj106188 __tmp106356 '13 '#f '#f)) + (let ((__tmp106358 |[1]#_g106359_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106823 __tmp107020 '14 '#f '#f)) - (let ((__tmp107022 - (cons (cons 'table |[1]#_g107023_|) - (cons (cons 'lock |[1]#_g107024_|) '())))) + (##unchecked-structure-set! __obj106188 __tmp106358 '14 '#f '#f)) + (let ((__tmp106360 + (cons (cons 'table |[1]#_g106361_|) + (cons (cons 'lock |[1]#_g106362_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj106823 __tmp107022 '15 '#f '#f)) - (let ((__tmp107025 - (cons (cons 'table |[1]#_g107026_|) - (cons (cons 'lock |[1]#_g107027_|) '())))) + (##unchecked-structure-set! __obj106188 __tmp106360 '15 '#f '#f)) + (let ((__tmp106363 + (cons (cons 'table |[1]#_g106364_|) + (cons (cons 'lock |[1]#_g106365_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj106823 __tmp107025 '16 '#f '#f)) - (let ((__tmp107028 - (cons (cons 'table |[1]#_g107029_|) - (cons (cons 'lock |[1]#_g107030_|) '())))) + (##unchecked-structure-set! __obj106188 __tmp106363 '16 '#f '#f)) + (let ((__tmp106366 + (cons (cons 'table |[1]#_g106367_|) + (cons (cons 'lock |[1]#_g106368_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj106823 __tmp107028 '17 '#f '#f)) - (let ((__tmp107031 - (cons (cons 'table |[1]#_g107032_|) - (cons (cons 'lock |[1]#_g107033_|) '())))) + (##unchecked-structure-set! __obj106188 __tmp106366 '17 '#f '#f)) + (let ((__tmp106369 + (cons (cons 'table |[1]#_g106370_|) + (cons (cons 'lock |[1]#_g106371_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj106823 __tmp107031 '18 '#f '#f)) + (##unchecked-structure-set! __obj106188 __tmp106369 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106823 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj106188 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106823 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj106188 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106823 '() '20 '#f '#f)) - __obj106823)) + (##unchecked-structure-set! __obj106188 '() '20 '#f '#f)) + __obj106188)) (define |[:0:]#checked-hash-table| - (let ((__obj106824 + (let ((__obj106189 (let () (declare (not safe)) (##structure @@ -961,7 +961,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106824 + __obj106189 'gerbil/runtime/hash#checked-hash-table::t '1 '#f @@ -969,7 +969,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106824 + __obj106189 'checked-hash-table '2 '#f @@ -977,7 +977,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106824 + __obj106189 '(table key-check) '4 '#f @@ -985,210 +985,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106824 + __obj106189 '(table key-check) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106824 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj106189 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106824 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj106189 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106824 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj106189 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106824 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj106189 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106824 '#f '11 '#f '#f)) - (let ((__tmp107034 |[1]#_g107035_|)) + (##unchecked-structure-set! __obj106189 '#f '11 '#f '#f)) + (let ((__tmp106372 |[1]#_g106373_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106824 __tmp107034 '12 '#f '#f)) - (let ((__tmp107036 |[1]#_g107037_|)) + (##unchecked-structure-set! __obj106189 __tmp106372 '12 '#f '#f)) + (let ((__tmp106374 |[1]#_g106375_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106824 __tmp107036 '13 '#f '#f)) - (let ((__tmp107038 |[1]#_g107039_|)) + (##unchecked-structure-set! __obj106189 __tmp106374 '13 '#f '#f)) + (let ((__tmp106376 |[1]#_g106377_|)) (declare (not safe)) - (##unchecked-structure-set! __obj106824 __tmp107038 '14 '#f '#f)) - (let ((__tmp107040 - (cons (cons 'table |[1]#_g107041_|) - (cons (cons 'key-check |[1]#_g107042_|) '())))) + (##unchecked-structure-set! __obj106189 __tmp106376 '14 '#f '#f)) + (let ((__tmp106378 + (cons (cons 'table |[1]#_g106379_|) + (cons (cons 'key-check |[1]#_g106380_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj106824 __tmp107040 '15 '#f '#f)) - (let ((__tmp107043 - (cons (cons 'table |[1]#_g107044_|) - (cons (cons 'key-check |[1]#_g107045_|) '())))) + (##unchecked-structure-set! __obj106189 __tmp106378 '15 '#f '#f)) + (let ((__tmp106381 + (cons (cons 'table |[1]#_g106382_|) + (cons (cons 'key-check |[1]#_g106383_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj106824 __tmp107043 '16 '#f '#f)) - (let ((__tmp107046 - (cons (cons 'table |[1]#_g107047_|) - (cons (cons 'key-check |[1]#_g107048_|) '())))) + (##unchecked-structure-set! __obj106189 __tmp106381 '16 '#f '#f)) + (let ((__tmp106384 + (cons (cons 'table |[1]#_g106385_|) + (cons (cons 'key-check |[1]#_g106386_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj106824 __tmp107046 '17 '#f '#f)) - (let ((__tmp107049 - (cons (cons 'table |[1]#_g107050_|) - (cons (cons 'key-check |[1]#_g107051_|) '())))) + (##unchecked-structure-set! __obj106189 __tmp106384 '17 '#f '#f)) + (let ((__tmp106387 + (cons (cons 'table |[1]#_g106388_|) + (cons (cons 'key-check |[1]#_g106389_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj106824 __tmp107049 '18 '#f '#f)) + (##unchecked-structure-set! __obj106189 __tmp106387 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106824 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj106189 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106824 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj106189 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj106824 '() '20 '#f '#f)) - __obj106824)) + (##unchecked-structure-set! __obj106189 '() '20 '#f '#f)) + __obj106189)) (define |[:0:]#deflocked-hash-method| - (lambda (_%$stx101994%_) - (let* ((_%g101998102037%_ - (lambda (_%g101999102033%_) + (lambda (_%$stx101359%_) + (let* ((_%g101363101402%_ + (lambda (_%g101364101398%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g101999102033%_))) - (_%g101997102185%_ - (lambda (_%g101999102041%_) - (if (gx#stx-pair? _%g101999102041%_) - (let ((_%e102007102044%_ - (gx#syntax-e _%g101999102041%_))) - (let ((_%hd102006102048%_ + _%g101364101398%_))) + (_%g101362101550%_ + (lambda (_%g101364101406%_) + (if (gx#stx-pair? _%g101364101406%_) + (let ((_%e101372101409%_ + (gx#syntax-e _%g101364101406%_))) + (let ((_%hd101371101413%_ (let () (declare (not safe)) - (##car _%e102007102044%_))) - (_%tl102005102051%_ + (##car _%e101372101409%_))) + (_%tl101370101416%_ (let () (declare (not safe)) - (##cdr _%e102007102044%_)))) - (if (gx#stx-pair? _%tl102005102051%_) - (let ((_%e102010102054%_ - (gx#syntax-e _%tl102005102051%_))) - (let ((_%hd102009102058%_ + (##cdr _%e101372101409%_)))) + (if (gx#stx-pair? _%tl101370101416%_) + (let ((_%e101375101419%_ + (gx#syntax-e _%tl101370101416%_))) + (let ((_%hd101374101423%_ (let () (declare (not safe)) - (##car _%e102010102054%_))) - (_%tl102008102061%_ + (##car _%e101375101419%_))) + (_%tl101373101426%_ (let () (declare (not safe)) - (##cdr _%e102010102054%_)))) - (if (gx#stx-pair? _%hd102009102058%_) - (let ((_%e102013102064%_ - (gx#syntax-e _%hd102009102058%_))) - (let ((_%hd102012102068%_ + (##cdr _%e101375101419%_)))) + (if (gx#stx-pair? _%hd101374101423%_) + (let ((_%e101378101429%_ + (gx#syntax-e _%hd101374101423%_))) + (let ((_%hd101377101433%_ (let () (declare (not safe)) - (##car _%e102013102064%_))) - (_%tl102011102071%_ + (##car _%e101378101429%_))) + (_%tl101376101436%_ (let () (declare (not safe)) - (##cdr _%e102013102064%_)))) + (##cdr _%e101378101429%_)))) (if (gx#stx-pair/null? - _%tl102011102071%_) - (let ((_g107052_ + _%tl101376101436%_) + (let ((_g106390_ (gx#syntax-split-splice - _%tl102011102071%_ + _%tl101376101436%_ '0))) (begin - (let ((_g107053_ + (let ((_g106391_ (let () (declare (not safe)) (if (##values? - _g107052_) + _g106390_) (##vector-length - _g107052_) + _g106390_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g107053_ 2))) - (error "Context expects 2 values" _g107053_))) + (##fx= _g106391_ 2))) + (error "Context expects 2 values" _g106391_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target102014102074%_ + (let ((_%target101379101439%_ (let () (declare (not safe)) (##vector-ref - _g107052_ + _g106390_ 0))) - (_%tl102016102077%_ + (_%tl101381101442%_ (let () (declare (not safe)) (##vector-ref - _g107052_ + _g106390_ 1)))) (if (gx#stx-null? - _%tl102016102077%_) - (letrec ((_%loop102017102080%_ + _%tl101381101442%_) + (letrec ((_%loop101382101445%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd102015102084%_ _%arg102021102087%_) - (if (gx#stx-pair? _%hd102015102084%_) - (let ((_%e102018102090%_ - (gx#syntax-e _%hd102015102084%_))) - (let ((_%lp-hd102019102094%_ + (lambda (_%hd101380101449%_ _%arg101386101452%_) + (if (gx#stx-pair? _%hd101380101449%_) + (let ((_%e101383101455%_ + (gx#syntax-e _%hd101380101449%_))) + (let ((_%lp-hd101384101459%_ (let () (declare (not safe)) - (##car _%e102018102090%_))) - (_%lp-tl102020102097%_ + (##car _%e101383101455%_))) + (_%lp-tl101385101462%_ (let () (declare (not safe)) - (##cdr _%e102018102090%_)))) - (_%loop102017102080%_ - _%lp-tl102020102097%_ - (cons _%lp-hd102019102094%_ - _%arg102021102087%_)))) - (let ((_%arg102022102100%_ - (reverse _%arg102021102087%_))) - (if (gx#stx-pair? _%tl102008102061%_) - (let ((_%e102025102104%_ - (gx#syntax-e _%tl102008102061%_))) - (let ((_%hd102024102108%_ + (##cdr _%e101383101455%_)))) + (_%loop101382101445%_ + _%lp-tl101385101462%_ + (cons _%lp-hd101384101459%_ + _%arg101386101452%_)))) + (let ((_%arg101387101465%_ + (reverse _%arg101386101452%_))) + (if (gx#stx-pair? _%tl101373101426%_) + (let ((_%e101390101469%_ + (gx#syntax-e _%tl101373101426%_))) + (let ((_%hd101389101473%_ (let () (declare (not safe)) - (##car _%e102025102104%_))) - (_%tl102023102111%_ + (##car _%e101390101469%_))) + (_%tl101388101476%_ (let () (declare (not safe)) - (##cdr _%e102025102104%_)))) - (if (gx#stx-pair? _%tl102023102111%_) - (let ((_%e102028102114%_ + (##cdr _%e101390101469%_)))) + (if (gx#stx-pair? _%tl101388101476%_) + (let ((_%e101393101479%_ (gx#syntax-e - _%tl102023102111%_))) - (let ((_%hd102027102118%_ + _%tl101388101476%_))) + (let ((_%hd101392101483%_ (let () (declare (not safe)) - (##car _%e102028102114%_))) - (_%tl102026102121%_ + (##car _%e101393101479%_))) + (_%tl101391101486%_ (let () (declare (not safe)) - (##cdr _%e102028102114%_)))) + (##cdr _%e101393101479%_)))) (if (gx#stx-pair? - _%tl102026102121%_) - (let ((_%e102031102124%_ + _%tl101391101486%_) + (let ((_%e101396101489%_ (gx#syntax-e - _%tl102026102121%_))) - (let ((_%hd102030102128%_ + _%tl101391101486%_))) + (let ((_%hd101395101493%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e102031102124%_))) - (_%tl102029102131%_ + (##car _%e101396101489%_))) + (_%tl101394101496%_ (let () (declare (not safe)) - (##cdr _%e102031102124%_)))) - (if (gx#stx-null? _%tl102029102131%_) - ((lambda (_%L102134%_ - _%L102136%_ - _%L102137%_ - _%L102138%_ - _%L102139%_) + (##cdr _%e101396101489%_)))) + (if (gx#stx-null? _%tl101394101496%_) + ((lambda (_%L101499%_ + _%L101501%_ + _%L101502%_ + _%L101503%_ + _%L101504%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method) - (cons _%L102139%_ + (cons _%L101504%_ (cons (gx#datum->syntax '#f 'locked-hash-table) @@ -1197,12 +1197,12 @@ (cons (cons (gx#datum->syntax '#f 'self) - (let ((__tmp107054 + (let ((__tmp106392 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g102170102173%_ _%g102171102176%_) - (cons _%g102170102173%_ _%g102171102176%_)))) + (lambda (_%g101535101538%_ _%g101536101541%_) + (cons _%g101535101538%_ _%g101536101541%_)))) (declare (not safe)) - (__foldr1 __tmp107054 '() _%L102138%_))) + (__foldr1 __tmp106392 '() _%L101503%_))) (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 _%L102137%_ + (cons _%L101502%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1241,18 +1241,18 @@ (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L102136%_ + (cons _%L101501%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'h) - (let ((__tmp107055 - (lambda (_%g102168102179%_ - _%g102169102182%_) - (cons _%g102168102179%_ - _%g102169102182%_)))) + (let ((__tmp106393 + (lambda (_%g101533101544%_ + _%g101534101547%_) + (cons _%g101533101544%_ + _%g101534101547%_)))) (declare (not safe)) - (__foldr1 __tmp107055 '() _%L102138%_))))) + (__foldr1 __tmp106393 '() _%L101503%_))))) (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L102134%_ + (cons _%L101499%_ (cons (gx#datum->syntax '#f 'l) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1260,429 +1260,429 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd102030102128%_ - _%hd102027102118%_ - _%hd102024102108%_ - _%arg102022102100%_ - _%hd102012102068%_) - (_%g101998102037%_ _%g101999102041%_)))) - (_%g101998102037%_ _%g101999102041%_)))) + _%hd101395101493%_ + _%hd101392101483%_ + _%hd101389101473%_ + _%arg101387101465%_ + _%hd101377101433%_) + (_%g101363101402%_ _%g101364101406%_)))) + (_%g101363101402%_ _%g101364101406%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g101998102037%_ - _%g101999102041%_)))) - (_%g101998102037%_ - _%g101999102041%_))))))) - (_%loop102017102080%_ _%target102014102074%_ '())) - (_%g101998102037%_ _%g101999102041%_))))) + (_%g101363101402%_ + _%g101364101406%_)))) + (_%g101363101402%_ + _%g101364101406%_))))))) + (_%loop101382101445%_ _%target101379101439%_ '())) + (_%g101363101402%_ _%g101364101406%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g101998102037%_ - _%g101999102041%_)))) - (_%g101998102037%_ _%g101999102041%_)))) - (_%g101998102037%_ _%g101999102041%_)))) - (_%g101998102037%_ _%g101999102041%_))))) - (_%g101997102185%_ _%$stx101994%_)))) + (_%g101363101402%_ + _%g101364101406%_)))) + (_%g101363101402%_ _%g101364101406%_)))) + (_%g101363101402%_ _%g101364101406%_)))) + (_%g101363101402%_ _%g101364101406%_))))) + (_%g101362101550%_ _%$stx101359%_)))) (define |[:0:]#defchecked-hash-method| - (lambda (_%$stx102206%_) - (let* ((_%g102210102249%_ - (lambda (_%g102211102245%_) + (lambda (_%$stx101571%_) + (let* ((_%g101575101614%_ + (lambda (_%g101576101610%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102211102245%_))) - (_%g102209102396%_ - (lambda (_%g102211102253%_) - (if (gx#stx-pair? _%g102211102253%_) - (let ((_%e102219102256%_ - (gx#syntax-e _%g102211102253%_))) - (let ((_%hd102218102260%_ + _%g101576101610%_))) + (_%g101574101761%_ + (lambda (_%g101576101618%_) + (if (gx#stx-pair? _%g101576101618%_) + (let ((_%e101584101621%_ + (gx#syntax-e _%g101576101618%_))) + (let ((_%hd101583101625%_ (let () (declare (not safe)) - (##car _%e102219102256%_))) - (_%tl102217102263%_ + (##car _%e101584101621%_))) + (_%tl101582101628%_ (let () (declare (not safe)) - (##cdr _%e102219102256%_)))) - (if (gx#stx-pair? _%tl102217102263%_) - (let ((_%e102222102266%_ - (gx#syntax-e _%tl102217102263%_))) - (let ((_%hd102221102270%_ + (##cdr _%e101584101621%_)))) + (if (gx#stx-pair? _%tl101582101628%_) + (let ((_%e101587101631%_ + (gx#syntax-e _%tl101582101628%_))) + (let ((_%hd101586101635%_ (let () (declare (not safe)) - (##car _%e102222102266%_))) - (_%tl102220102273%_ + (##car _%e101587101631%_))) + (_%tl101585101638%_ (let () (declare (not safe)) - (##cdr _%e102222102266%_)))) - (if (gx#stx-pair? _%hd102221102270%_) - (let ((_%e102225102276%_ - (gx#syntax-e _%hd102221102270%_))) - (let ((_%hd102224102280%_ + (##cdr _%e101587101631%_)))) + (if (gx#stx-pair? _%hd101586101635%_) + (let ((_%e101590101641%_ + (gx#syntax-e _%hd101586101635%_))) + (let ((_%hd101589101645%_ (let () (declare (not safe)) - (##car _%e102225102276%_))) - (_%tl102223102283%_ + (##car _%e101590101641%_))) + (_%tl101588101648%_ (let () (declare (not safe)) - (##cdr _%e102225102276%_)))) - (if (gx#stx-pair? _%tl102223102283%_) - (let ((_%e102228102286%_ + (##cdr _%e101590101641%_)))) + (if (gx#stx-pair? _%tl101588101648%_) + (let ((_%e101593101651%_ (gx#syntax-e - _%tl102223102283%_))) - (let ((_%hd102227102290%_ + _%tl101588101648%_))) + (let ((_%hd101592101655%_ (let () (declare (not safe)) - (##car _%e102228102286%_))) - (_%tl102226102293%_ + (##car _%e101593101651%_))) + (_%tl101591101658%_ (let () (declare (not safe)) - (##cdr _%e102228102286%_)))) + (##cdr _%e101593101651%_)))) (if (gx#stx-pair/null? - _%tl102226102293%_) - (let ((_g107056_ + _%tl101591101658%_) + (let ((_g106394_ (gx#syntax-split-splice - _%tl102226102293%_ + _%tl101591101658%_ '0))) (begin - (let ((_g107057_ + (let ((_g106395_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g107056_) - (##vector-length _g107056_) + (if (##values? _g106394_) + (##vector-length _g106394_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g107057_ 2))) - (error "Context expects 2 values" _g107057_))) - (let ((_%target102229102296%_ + (if (not (let () (declare (not safe)) (##fx= _g106395_ 2))) + (error "Context expects 2 values" _g106395_))) + (let ((_%target101594101661%_ (let () (declare (not safe)) - (##vector-ref _g107056_ 0))) - (_%tl102231102299%_ + (##vector-ref _g106394_ 0))) + (_%tl101596101664%_ (let () (declare (not safe)) - (##vector-ref _g107056_ 1)))) - (if (gx#stx-null? _%tl102231102299%_) - (letrec ((_%loop102232102302%_ - (lambda (_%hd102230102306%_ - _%arg102236102309%_) - (if (gx#stx-pair? _%hd102230102306%_) - (let ((_%e102233102312%_ + (##vector-ref _g106394_ 1)))) + (if (gx#stx-null? _%tl101596101664%_) + (letrec ((_%loop101597101667%_ + (lambda (_%hd101595101671%_ + _%arg101601101674%_) + (if (gx#stx-pair? _%hd101595101671%_) + (let ((_%e101598101677%_ (gx#syntax-e - _%hd102230102306%_))) - (let ((_%lp-hd102234102316%_ + _%hd101595101671%_))) + (let ((_%lp-hd101599101681%_ (let () (declare (not safe)) - (##car _%e102233102312%_))) - (_%lp-tl102235102319%_ + (##car _%e101598101677%_))) + (_%lp-tl101600101684%_ (let () (declare (not safe)) - (##cdr _%e102233102312%_)))) - (_%loop102232102302%_ - _%lp-tl102235102319%_ - (cons _%lp-hd102234102316%_ - _%arg102236102309%_)))) - (let ((_%arg102237102322%_ - (reverse _%arg102236102309%_))) - (if (gx#stx-pair? _%tl102220102273%_) - (let ((_%e102240102326%_ + (##cdr _%e101598101677%_)))) + (_%loop101597101667%_ + _%lp-tl101600101684%_ + (cons _%lp-hd101599101681%_ + _%arg101601101674%_)))) + (let ((_%arg101602101687%_ + (reverse _%arg101601101674%_))) + (if (gx#stx-pair? _%tl101585101638%_) + (let ((_%e101605101691%_ (gx#syntax-e - _%tl102220102273%_))) - (let ((_%hd102239102330%_ + _%tl101585101638%_))) + (let ((_%hd101604101695%_ (let () (declare (not safe)) - (##car _%e102240102326%_))) - (_%tl102238102333%_ + (##car _%e101605101691%_))) + (_%tl101603101698%_ (let () (declare (not safe)) - (##cdr _%e102240102326%_)))) + (##cdr _%e101605101691%_)))) (if (gx#stx-pair? - _%tl102238102333%_) - (let ((_%e102243102336%_ + _%tl101603101698%_) + (let ((_%e101608101701%_ (gx#syntax-e - _%tl102238102333%_))) - (let ((_%hd102242102340%_ + _%tl101603101698%_))) + (let ((_%hd101607101705%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e102243102336%_))) - (_%tl102241102343%_ + (##car _%e101608101701%_))) + (_%tl101606101708%_ (let () (declare (not safe)) - (##cdr _%e102243102336%_)))) - (if (gx#stx-null? _%tl102241102343%_) - ((lambda (_%L102346%_ - _%L102348%_ - _%L102349%_ - _%L102350%_ - _%L102351%_) + (##cdr _%e101608101701%_)))) + (if (gx#stx-null? _%tl101606101708%_) + ((lambda (_%L101711%_ + _%L101713%_ + _%L101714%_ + _%L101715%_ + _%L101716%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method) - (cons _%L102351%_ + (cons _%L101716%_ (cons (gx#datum->syntax '#f 'checked-hash-table) '()))) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L102350%_ - (let ((__tmp107058 + (cons (cons _%L101715%_ + (let ((__tmp106396 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g102381102384%_ _%g102382102387%_) - (cons _%g102381102384%_ _%g102382102387%_)))) + (lambda (_%g101746101749%_ _%g101747101752%_) + (cons _%g101746101749%_ _%g101747101752%_)))) (declare (not safe)) - (__foldr1 __tmp107058 '() _%L102349%_))) + (__foldr1 __tmp106396 '() _%L101714%_))) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax '#f '&checked-hash-table-table) - (cons _%L102350%_ + (cons _%L101715%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'key?) (cons (cons (gx#datum->syntax '#f '&checked-hash-table-key-check) - (cons _%L102350%_ + (cons _%L101715%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons _%L102348%_ + (cons (cons _%L101713%_ (cons (gx#datum->syntax '#f 'key?) '())) - (cons (cons _%L102346%_ + (cons (cons _%L101711%_ (cons (gx#datum->syntax '#f 'h) - (let ((__tmp107059 - (lambda (_%g102379102390%_ + (let ((__tmp106397 + (lambda (_%g101744101755%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g102380102393%_) - (cons _%g102379102390%_ _%g102380102393%_)))) + _%g101745101758%_) + (cons _%g101744101755%_ _%g101745101758%_)))) (declare (not safe)) - (__foldr1 __tmp107059 '() _%L102349%_)))) + (__foldr1 __tmp106397 '() _%L101714%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd102242102340%_ - _%hd102239102330%_ - _%arg102237102322%_ - _%hd102227102290%_ - _%hd102224102280%_) - (_%g102210102249%_ _%g102211102253%_)))) - (_%g102210102249%_ _%g102211102253%_)))) + _%hd101607101705%_ + _%hd101604101695%_ + _%arg101602101687%_ + _%hd101592101655%_ + _%hd101589101645%_) + (_%g101575101614%_ _%g101576101618%_)))) + (_%g101575101614%_ _%g101576101618%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g102210102249%_ - _%g102211102253%_))))))) - (_%loop102232102302%_ _%target102229102296%_ '())) - (_%g102210102249%_ _%g102211102253%_))))) - (_%g102210102249%_ _%g102211102253%_)))) + (_%g101575101614%_ + _%g101576101618%_))))))) + (_%loop101597101667%_ _%target101594101661%_ '())) + (_%g101575101614%_ _%g101576101618%_))))) + (_%g101575101614%_ _%g101576101618%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g102210102249%_ - _%g102211102253%_)))) - (_%g102210102249%_ _%g102211102253%_)))) - (_%g102210102249%_ _%g102211102253%_)))) - (_%g102210102249%_ _%g102211102253%_))))) - (_%g102209102396%_ _%$stx102206%_)))) + (_%g101575101614%_ + _%g101576101618%_)))) + (_%g101575101614%_ _%g101576101618%_)))) + (_%g101575101614%_ _%g101576101618%_)))) + (_%g101575101614%_ _%g101576101618%_))))) + (_%g101574101761%_ _%$stx101571%_)))) (define |[:0:]#check-hash-arg| - (lambda (_%$stx102401%_) - (let* ((_%g102405102423%_ - (lambda (_%g102406102419%_) + (lambda (_%$stx101766%_) + (let* ((_%g101770101788%_ + (lambda (_%g101771101784%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102406102419%_))) - (_%g102404102478%_ - (lambda (_%g102406102427%_) - (if (gx#stx-pair? _%g102406102427%_) - (let ((_%e102411102430%_ - (gx#syntax-e _%g102406102427%_))) - (let ((_%hd102410102434%_ + _%g101771101784%_))) + (_%g101769101843%_ + (lambda (_%g101771101792%_) + (if (gx#stx-pair? _%g101771101792%_) + (let ((_%e101776101795%_ + (gx#syntax-e _%g101771101792%_))) + (let ((_%hd101775101799%_ (let () (declare (not safe)) - (##car _%e102411102430%_))) - (_%tl102409102437%_ + (##car _%e101776101795%_))) + (_%tl101774101802%_ (let () (declare (not safe)) - (##cdr _%e102411102430%_)))) - (if (gx#stx-pair? _%tl102409102437%_) - (let ((_%e102414102440%_ - (gx#syntax-e _%tl102409102437%_))) - (let ((_%hd102413102444%_ + (##cdr _%e101776101795%_)))) + (if (gx#stx-pair? _%tl101774101802%_) + (let ((_%e101779101805%_ + (gx#syntax-e _%tl101774101802%_))) + (let ((_%hd101778101809%_ (let () (declare (not safe)) - (##car _%e102414102440%_))) - (_%tl102412102447%_ + (##car _%e101779101805%_))) + (_%tl101777101812%_ (let () (declare (not safe)) - (##cdr _%e102414102440%_)))) - (if (gx#stx-pair? _%tl102412102447%_) - (let ((_%e102417102450%_ - (gx#syntax-e _%tl102412102447%_))) - (let ((_%hd102416102454%_ + (##cdr _%e101779101805%_)))) + (if (gx#stx-pair? _%tl101777101812%_) + (let ((_%e101782101815%_ + (gx#syntax-e _%tl101777101812%_))) + (let ((_%hd101781101819%_ (let () (declare (not safe)) - (##car _%e102417102450%_))) - (_%tl102415102457%_ + (##car _%e101782101815%_))) + (_%tl101780101822%_ (let () (declare (not safe)) - (##cdr _%e102417102450%_)))) - (if (gx#stx-null? _%tl102415102457%_) - ((lambda (_%L102460%_ - _%L102462%_) + (##cdr _%e101782101815%_)))) + (if (gx#stx-null? _%tl101780101822%_) + ((lambda (_%L101825%_ + _%L101827%_) (cons (gx#datum->syntax '#f 'unless) - (cons (cons _%L102462%_ + (cons (cons _%L101827%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L102460%_ '())) + (cons _%L101825%_ '())) (cons (cons (gx#datum->syntax '#f 'error) (cons '"invalid argument" - (cons _%L102460%_ '()))) + (cons _%L101825%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd102416102454%_ - _%hd102413102444%_) - (_%g102405102423%_ - _%g102406102427%_)))) - (_%g102405102423%_ _%g102406102427%_)))) - (_%g102405102423%_ _%g102406102427%_)))) - (_%g102405102423%_ _%g102406102427%_))))) - (_%g102404102478%_ _%$stx102401%_)))) + _%hd101781101819%_ + _%hd101778101809%_) + (_%g101770101788%_ + _%g101771101792%_)))) + (_%g101770101788%_ _%g101771101792%_)))) + (_%g101770101788%_ _%g101771101792%_)))) + (_%g101770101788%_ _%g101771101792%_))))) + (_%g101769101843%_ _%$stx101766%_)))) (define |[:0:]#defhash-method| - (lambda (_%$stx102498%_) - (let* ((_%g102502102534%_ - (lambda (_%g102503102530%_) + (lambda (_%$stx101863%_) + (let* ((_%g101867101899%_ + (lambda (_%g101868101895%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102503102530%_))) - (_%g102501102647%_ - (lambda (_%g102503102538%_) - (if (gx#stx-pair? _%g102503102538%_) - (let ((_%e102510102541%_ - (gx#syntax-e _%g102503102538%_))) - (let ((_%hd102509102545%_ + _%g101868101895%_))) + (_%g101866102012%_ + (lambda (_%g101868101903%_) + (if (gx#stx-pair? _%g101868101903%_) + (let ((_%e101875101906%_ + (gx#syntax-e _%g101868101903%_))) + (let ((_%hd101874101910%_ (let () (declare (not safe)) - (##car _%e102510102541%_))) - (_%tl102508102548%_ + (##car _%e101875101906%_))) + (_%tl101873101913%_ (let () (declare (not safe)) - (##cdr _%e102510102541%_)))) - (if (gx#stx-pair? _%tl102508102548%_) - (let ((_%e102513102551%_ - (gx#syntax-e _%tl102508102548%_))) - (let ((_%hd102512102555%_ + (##cdr _%e101875101906%_)))) + (if (gx#stx-pair? _%tl101873101913%_) + (let ((_%e101878101916%_ + (gx#syntax-e _%tl101873101913%_))) + (let ((_%hd101877101920%_ (let () (declare (not safe)) - (##car _%e102513102551%_))) - (_%tl102511102558%_ + (##car _%e101878101916%_))) + (_%tl101876101923%_ (let () (declare (not safe)) - (##cdr _%e102513102551%_)))) - (if (gx#stx-pair? _%hd102512102555%_) - (let ((_%e102516102561%_ - (gx#syntax-e _%hd102512102555%_))) - (let ((_%hd102515102565%_ + (##cdr _%e101878101916%_)))) + (if (gx#stx-pair? _%hd101877101920%_) + (let ((_%e101881101926%_ + (gx#syntax-e _%hd101877101920%_))) + (let ((_%hd101880101930%_ (let () (declare (not safe)) - (##car _%e102516102561%_))) - (_%tl102514102568%_ + (##car _%e101881101926%_))) + (_%tl101879101933%_ (let () (declare (not safe)) - (##cdr _%e102516102561%_)))) - (if (gx#stx-pair? _%tl102514102568%_) - (let ((_%e102519102571%_ + (##cdr _%e101881101926%_)))) + (if (gx#stx-pair? _%tl101879101933%_) + (let ((_%e101884101936%_ (gx#syntax-e - _%tl102514102568%_))) - (let ((_%hd102518102575%_ + _%tl101879101933%_))) + (let ((_%hd101883101940%_ (let () (declare (not safe)) - (##car _%e102519102571%_))) - (_%tl102517102578%_ + (##car _%e101884101936%_))) + (_%tl101882101943%_ (let () (declare (not safe)) - (##cdr _%e102519102571%_)))) + (##cdr _%e101884101936%_)))) (if (gx#stx-pair/null? - _%tl102511102558%_) - (let ((_g107060_ + _%tl101876101923%_) + (let ((_g106398_ (gx#syntax-split-splice - _%tl102511102558%_ + _%tl101876101923%_ '0))) (begin - (let ((_g107061_ + (let ((_g106399_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g107060_) - (##vector-length _g107060_) + (if (##values? _g106398_) + (##vector-length _g106398_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g107061_ 2))) - (error "Context expects 2 values" _g107061_))) - (let ((_%target102520102581%_ + (if (not (let () (declare (not safe)) (##fx= _g106399_ 2))) + (error "Context expects 2 values" _g106399_))) + (let ((_%target101885101946%_ (let () (declare (not safe)) - (##vector-ref _g107060_ 0))) - (_%tl102522102584%_ + (##vector-ref _g106398_ 0))) + (_%tl101887101949%_ (let () (declare (not safe)) - (##vector-ref _g107060_ 1)))) - (if (gx#stx-null? _%tl102522102584%_) - (letrec ((_%loop102523102587%_ - (lambda (_%hd102521102591%_ - _%body102527102594%_) - (if (gx#stx-pair? _%hd102521102591%_) - (let ((_%e102524102597%_ + (##vector-ref _g106398_ 1)))) + (if (gx#stx-null? _%tl101887101949%_) + (letrec ((_%loop101888101952%_ + (lambda (_%hd101886101956%_ + _%body101892101959%_) + (if (gx#stx-pair? _%hd101886101956%_) + (let ((_%e101889101962%_ (gx#syntax-e - _%hd102521102591%_))) - (let ((_%lp-hd102525102601%_ + _%hd101886101956%_))) + (let ((_%lp-hd101890101966%_ (let () (declare (not safe)) - (##car _%e102524102597%_))) - (_%lp-tl102526102604%_ + (##car _%e101889101962%_))) + (_%lp-tl101891101969%_ (let () (declare (not safe)) - (##cdr _%e102524102597%_)))) - (_%loop102523102587%_ - _%lp-tl102526102604%_ - (cons _%lp-hd102525102601%_ - _%body102527102594%_)))) - (let ((_%body102528102607%_ - (reverse _%body102527102594%_))) - ((lambda (_%L102611%_ - _%L102613%_ - _%L102614%_ - _%L102615%_) + (##cdr _%e101889101962%_)))) + (_%loop101888101952%_ + _%lp-tl101891101969%_ + (cons _%lp-hd101890101966%_ + _%body101892101959%_)))) + (let ((_%body101893101972%_ + (reverse _%body101892101959%_))) + ((lambda (_%L101976%_ + _%L101978%_ + _%L101979%_ + _%L101980%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L102615%_ - (cons (cons _%L102614%_ + (cons (cons _%L101980%_ + (cons (cons _%L101979%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f 'HashTable) '()))) - _%L102613%_)) - (let ((__tmp107062 - (lambda (_%g102638102641%_ _%g102639102644%_) - (cons _%g102638102641%_ _%g102639102644%_)))) + _%L101978%_)) + (let ((__tmp106400 + (lambda (_%g102003102006%_ _%g102004102009%_) + (cons _%g102003102006%_ _%g102004102009%_)))) (declare (not safe)) - (__foldr1 __tmp107062 '() _%L102611%_))))) + (__foldr1 __tmp106400 '() _%L101976%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body102528102607%_ - _%tl102517102578%_ - _%hd102518102575%_ - _%hd102515102565%_)))))) - (_%loop102523102587%_ _%target102520102581%_ '())) - (_%g102502102534%_ _%g102503102538%_))))) - (_%g102502102534%_ _%g102503102538%_)))) + _%body101893101972%_ + _%tl101882101943%_ + _%hd101883101940%_ + _%hd101880101930%_)))))) + (_%loop101888101952%_ _%target101885101946%_ '())) + (_%g101867101899%_ _%g101868101903%_))))) + (_%g101867101899%_ _%g101868101903%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g102502102534%_ - _%g102503102538%_)))) - (_%g102502102534%_ _%g102503102538%_)))) - (_%g102502102534%_ _%g102503102538%_)))) - (_%g102502102534%_ _%g102503102538%_))))) - (_%g102501102647%_ _%$stx102498%_)))))) + (_%g101867101899%_ + _%g101868101903%_)))) + (_%g101867101899%_ _%g101868101903%_)))) + (_%g101867101899%_ _%g101868101903%_)))) + (_%g101867101899%_ _%g101868101903%_))))) + (_%g101866102012%_ _%$stx101863%_)))))) diff --git a/src/bootstrap/gerbil/runtime/init.ssxi.ss b/src/bootstrap/gerbil/runtime/init.ssxi.ss index 206386d30..c924ed523 100644 --- a/src/bootstrap/gerbil/runtime/init.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/init.ssxi.ss @@ -10,34 +10,182 @@ package: gerbil/runtime (@lambda 0 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/init))) (declare-type __gxi-init-interactive! (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/init))) (declare-type load-scheme (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type __expand-source (@lambda 1 #f)) - (declare-type __macro-descr (@lambda 2 #f)) - (declare-type __source->syntax (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/init))) + (declare-type + __expand-source + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/init))) + (declare-type + __macro-descr + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/init))) + (declare-type + __source->syntax + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/init))) (declare-type __compile-top-source (@lambda 1 #f signature: - (return: pair::t effect: #f arguments: #f unchecked: #f))) - (declare-type __compile-top (@lambda 1 #f)) - (declare-type __eval-import (@lambda 1 #f)) + (return: + pair::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/init))) + (declare-type + __compile-top + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/init))) + (declare-type + __eval-import + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/init))) (declare-type __eval-module (@lambda 1 gx#core-eval-module)) - (declare-type __interrupt-handler (@lambda 0 #f)) - (declare-type gerbil-runtime-init! (@lambda 1 #f)) + (declare-type + __interrupt-handler + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/init))) + (declare-type + gerbil-runtime-init! + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/init))) (declare-type __runtime-initialized (optimizer-resolve-class '(typedecl __runtime-initialized) 'false::t)) - (declare-type gerbil-load-expander! (@lambda 0 #f))) + (declare-type + gerbil-load-expander! + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/init)))) diff --git a/src/bootstrap/gerbil/runtime/init~0.scm b/src/bootstrap/gerbil/runtime/init~0.scm index 5c677f8cc..8142a7822 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 1712533289) + (define gerbil/runtime/init::timestamp 1712573430) (begin (define __scheme-source (make-parameter '#f)) (define __load-gxi @@ -8,296 +8,246 @@ (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+112226%_ __*readtable*)) - (let* ((_%core112228%_ (gx#import-module ':gerbil/core)) - (_%pre112230%_ (gx#make-prelude-context _%core112228%_))) - (gx#current-expander-module-prelude _%pre112230%_) - (gx#core-bind-root-syntax! ': _%pre112230%_ '#t) + (letrec* ((_%+readtable+111472%_ __*readtable*)) + (let* ((_%core111474%_ (gx#import-module ':gerbil/core)) + (_%pre111476%_ (gx#make-prelude-context _%core111474%_))) + (gx#current-expander-module-prelude _%pre111476%_) + (gx#core-bind-root-syntax! ': _%pre111476%_ '#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 ((__tmp112237 - (lambda (_%port112233%_) + (let ((__tmp111483 + (lambda (_%port111479%_) (input-port-readtable-set! - _%port112233%_ - _%+readtable+112226%_))) - (__tmp112236 (list ##stdin-port ##console-port))) + _%port111479%_ + _%+readtable+111472%_))) + (__tmp111482 (list ##stdin-port ##console-port))) (declare (not safe)) - (##for-each __tmp112237 __tmp112236)) - (let ((__tmp112239 - (lambda (_%port112235%_) + (##for-each __tmp111483 __tmp111482)) + (let ((__tmp111485 + (lambda (_%port111481%_) (output-port-readtable-set! - _%port112235%_ + _%port111481%_ (readtable-sharing-allowed?-set - (output-port-readtable _%port112235%_) + (output-port-readtable _%port111481%_) '#t)))) - (__tmp112238 (list ##stdout-port ##console-port))) + (__tmp111484 (list ##stdout-port ##console-port))) (declare (not safe)) - (##for-each __tmp112239 __tmp112238))))) - (define __gxi-init-interactive! (lambda (_%cmdline112223%_) '#!void)) + (##for-each __tmp111485 __tmp111484))))) + (define __gxi-init-interactive! (lambda (_%cmdline111469%_) '#!void)) (define load-scheme - (lambda (_%path112218%_) - (let ((__tmp112240 + (lambda (_%path111464%_) + (let ((__tmp111486 (lambda () - (let ((__tmp112241 (lambda _%args112221%_ '#f))) + (let ((__tmp111487 (lambda _%args111467%_ '#f))) (declare (not safe)) - (##load _%path112218%_ __tmp112241 '#t '#t '#f))))) + (##load _%path111464%_ __tmp111487 '#t '#t '#f))))) (declare (not safe)) (__call-with-parameters - __tmp112240 + __tmp111486 __scheme-source - _%path112218%_)))) + _%path111464%_)))) (define __expand-source - (lambda (_%src112200%_) - (letrec ((_%expand112202%_ - (lambda (_%src112216%_) - (let ((__tmp112242 - (gx#core-expand - (let () - (declare (not safe)) - (__source->syntax _%src112216%_))))) - (declare (not safe)) - (__compile-top __tmp112242)))) - (_%no-expand112203%_ - (lambda (_%src112209%_) + (lambda (_%src111446%_) + (letrec ((_%expand111448%_ + (lambda (_%src111462%_) + (__compile-top + (gx#core-expand (__source->syntax _%src111462%_))))) + (_%no-expand111449%_ + (lambda (_%src111455%_) (if (let () (declare (not safe)) (__scheme-source)) - (let () _%src112209%_) + _%src111455%_ (if (let () (declare (not safe)) - (##source? _%src112209%_)) - (let ((_%code112213%_ + (##source? _%src111455%_)) + (let ((_%code111459%_ (let () (declare (not safe)) - (##source-code _%src112209%_)))) - (if (let () - (declare (not safe)) - (pair? _%code112213%_)) + (##source-code _%src111455%_)))) + (if (pair? _%code111459%_) (if (eq? '__noexpand: (let () (declare (not safe)) - (##car _%code112213%_))) + (##car _%code111459%_))) (let () (declare (not safe)) - (##cdr _%code112213%_)) + (##cdr _%code111459%_)) '#f) '#f)) - (let () '#f)))))) - (let ((_%$e112205%_ - (let () - (declare (not safe)) - (_%no-expand112203%_ _%src112200%_)))) - (if _%$e112205%_ - _%$e112205%_ - (let () - (declare (not safe)) - (_%expand112202%_ _%src112200%_))))))) + '#f))))) + (let ((_%$e111451%_ (_%no-expand111449%_ _%src111446%_))) + (if _%$e111451%_ _%$e111451%_ (_%expand111448%_ _%src111446%_)))))) (define __macro-descr - (lambda (_%src112186%_ _%def-syntax?112187%_) - (letrec ((_%fail!112189%_ + (lambda (_%src111432%_ _%def-syntax?111433%_) + (letrec ((_%fail!111435%_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _%src112186%_)))) - (_%make-descr112190%_ - (lambda (_%size112194%_) - (let ((_%expander112197%_ - (let ((__tmp112243 + _%src111432%_)))) + (_%make-descr111436%_ + (lambda (_%size111440%_) + (let ((_%expander111443%_ + (let ((__tmp111488 (lambda () (let () (declare (not safe)) (##eval-top - _%src112186%_ + _%src111432%_ ##interaction-cte))))) (declare (not safe)) (__call-with-parameters - __tmp112243 + __tmp111488 __scheme-source 'macro)))) - (if (let () - (declare (not safe)) - (procedure? _%expander112197%_)) + (if (procedure? _%expander111443%_) (let () (declare (not safe)) (##make-macro-descr - _%def-syntax?112187%_ - _%size112194%_ - _%expander112197%_ - _%src112186%_)) - (let () (declare (not safe)) (_%fail!112189%_))))))) - (if _%def-syntax?112187%_ - (let () (declare (not safe)) (_%make-descr112190%_ '-1)) - (let ((_%code112192%_ + _%def-syntax?111433%_ + _%size111440%_ + _%expander111443%_ + _%src111432%_)) + (_%fail!111435%_)))))) + (if _%def-syntax?111433%_ + (_%make-descr111436%_ '-1) + (let ((_%code111438%_ (let () (declare (not safe)) - (##source-code _%src112186%_)))) - (if (and (let () (declare (not safe)) (##pair? _%code112192%_)) - (let ((__tmp112244 - (let ((__tmp112245 - (let ((__tmp112246 + (##source-code _%src111432%_)))) + (if (and (let () (declare (not safe)) (##pair? _%code111438%_)) + (let ((__tmp111489 + (let ((__tmp111490 + (let ((__tmp111491 (let () (declare (not safe)) - (##car _%code112192%_)))) + (##car _%code111438%_)))) (declare (not safe)) (##sourcify - __tmp112246 - _%src112186%_)))) + __tmp111491 + _%src111432%_)))) (declare (not safe)) - (##source-code __tmp112245)))) + (##source-code __tmp111490)))) (declare (not safe)) - (##memq __tmp112244 '(##lambda lambda)))) + (##memq __tmp111489 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _%src112186%_ _%src112186%_ '-3)) - (let ((__tmp112247 - (let ((__tmp112248 - (let ((__tmp112249 - (let () - (declare (not safe)) - (##cadr _%code112192%_)))) - (declare (not safe)) - (##sourcify __tmp112249 _%src112186%_)))) - (declare (not safe)) - (##form-size __tmp112248)))) - (declare (not safe)) - (_%make-descr112190%_ __tmp112247))) - (let () (declare (not safe)) (_%fail!112189%_)))))))) + (##shape _%src111432%_ _%src111432%_ '-3)) + (_%make-descr111436%_ + (let ((__tmp111492 + (let ((__tmp111493 + (let () + (declare (not safe)) + (##cadr _%code111438%_)))) + (declare (not safe)) + (##sourcify __tmp111493 _%src111432%_)))) + (declare (not safe)) + (##form-size __tmp111492)))) + (_%fail!111435%_))))))) (define __source->syntax - (lambda (_%src112175%_) - (let _%recur112177%_ ((_%e112179%_ _%src112175%_)) - (if (let () (declare (not safe)) (##source? _%e112179%_)) - (let ((__tmp112251 - (let ((__tmp112252 - (let () - (declare (not safe)) - (##source-code _%e112179%_)))) - (declare (not safe)) - (_%recur112177%_ __tmp112252))) - (__tmp112250 + (lambda (_%src111421%_) + (let _%recur111423%_ ((_%e111425%_ _%src111421%_)) + (if (let () (declare (not safe)) (##source? _%e111425%_)) + (let ((__tmp111495 + (_%recur111423%_ + (let () + (declare (not safe)) + (##source-code _%e111425%_)))) + (__tmp111494 (let () (declare (not safe)) - (##source-locat _%e112179%_)))) + (##source-locat _%e111425%_)))) (declare (not safe)) - (##structure AST::t __tmp112251 __tmp112250)) - (if (let () (declare (not safe)) (pair? _%e112179%_)) - (let () - (cons (let ((__tmp112253 - (let () - (declare (not safe)) - (##car _%e112179%_)))) - (declare (not safe)) - (_%recur112177%_ __tmp112253)) - (let ((__tmp112254 - (let () - (declare (not safe)) - (##cdr _%e112179%_)))) - (declare (not safe)) - (_%recur112177%_ __tmp112254)))) - (if (let () (declare (not safe)) (vector? _%e112179%_)) - (let () (vector-map _%recur112177%_ _%e112179%_)) - (if (let () (declare (not safe)) (box? _%e112179%_)) - (let () - (box (let ((__tmp112255 (unbox _%e112179%_))) - (declare (not safe)) - (_%recur112177%_ __tmp112255)))) - (let () _%e112179%_)))))))) + (##structure AST::t __tmp111495 __tmp111494)) + (if (pair? _%e111425%_) + (cons (_%recur111423%_ + (let () (declare (not safe)) (##car _%e111425%_))) + (_%recur111423%_ + (let () (declare (not safe)) (##cdr _%e111425%_)))) + (if (vector? _%e111425%_) + (vector-map _%recur111423%_ _%e111425%_) + (if (box? _%e111425%_) + (box (_%recur111423%_ (unbox _%e111425%_))) + _%e111425%_))))))) (define __compile-top-source - (lambda (_%stx112173%_) - (cons '__noexpand: - (let () (declare (not safe)) (__compile-top _%stx112173%_))))) + (lambda (_%stx111419%_) + (cons '__noexpand: (__compile-top _%stx111419%_)))) (define __compile-top - (lambda (_%stx112171%_) - (let ((__tmp112256 (gx#core-compile-top-syntax _%stx112171%_))) + (lambda (_%stx111417%_) + (let ((__tmp111496 (gx#core-compile-top-syntax _%stx111417%_))) (declare (not safe)) - (__compile __tmp112256)))) + (__compile __tmp111496)))) (define __eval-import - (lambda (_%in112146%_) - (letrec* ((_%mods112148%_ + (lambda (_%in111392%_) + (letrec* ((_%mods111394%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%import1112149%_ - (lambda (_%in112156%_ _%phi112157%_) - (if (gx#module-import? _%in112156%_) - (let ((_%iphi112160%_ - (fx+ _%phi112157%_ - (gx#module-import-phi _%in112156%_)))) + (_%import1111395%_ + (lambda (_%in111402%_ _%phi111403%_) + (if (gx#module-import? _%in111402%_) + (let ((_%iphi111406%_ + (fx+ _%phi111403%_ + (gx#module-import-phi _%in111402%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi112160%_)) - (let ((__tmp112257 - (gx#module-export-context - (gx#module-import-source - _%in112156%_)))) - (declare (not safe)) - (_%eval1112150%_ __tmp112257)) + (##fxzero? _%iphi111406%_)) + (_%eval1111396%_ + (gx#module-export-context + (gx#module-import-source _%in111402%_))) '#!void)) - (if (gx#module-context? _%in112156%_) - (let () - (if (fxzero? _%phi112157%_) - (let () - (declare (not safe)) - (_%eval1112150%_ _%in112156%_)) - '#!void)) - (if (gx#import-set? _%in112156%_) - (let ((_%iphi112164%_ - (fx+ _%phi112157%_ + (if (gx#module-context? _%in111402%_) + (if (fxzero? _%phi111403%_) + (_%eval1111396%_ _%in111402%_) + '#!void) + (if (gx#import-set? _%in111402%_) + (let ((_%iphi111410%_ + (fx+ _%phi111403%_ (gx#import-set-phi - _%in112156%_)))) + _%in111402%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi112164%_)) - (let ((__tmp112258 - (gx#import-set-source - _%in112156%_))) - (declare (not safe)) - (_%eval1112150%_ __tmp112258)) + (##fxzero? _%iphi111410%_)) + (_%eval1111396%_ + (gx#import-set-source _%in111402%_)) (if (let () (declare (not safe)) - (##fxpositive? _%iphi112164%_)) - (let () - (for-each - (lambda (_%in112168%_) - (let () - (declare (not safe)) - (_%import1112149%_ - _%in112168%_ - _%iphi112164%_))) - (gx#module-context-import - (gx#import-set-source - _%in112156%_)))) + (##fxpositive? _%iphi111410%_)) + (for-each + (lambda (_%in111414%_) + (_%import1111395%_ + _%in111414%_ + _%iphi111410%_)) + (gx#module-context-import + (gx#import-set-source + _%in111402%_))) '#!void))) (let () (declare (not safe)) (error '"Unexpected import" - _%in112156%_))))))) - (_%eval1112150%_ - (lambda (_%ctx112154%_) + _%in111402%_))))))) + (_%eval1111396%_ + (lambda (_%ctx111400%_) (if (let () (declare (not safe)) - (hash-get _%mods112148%_ _%ctx112154%_)) + (hash-get _%mods111394%_ _%ctx111400%_)) '#!void (begin (let () (declare (not safe)) - (hash-put! _%mods112148%_ _%ctx112154%_ '#t)) + (hash-put! _%mods111394%_ _%ctx111400%_ '#t)) (let () (declare (not safe)) - (gx#core-eval-module _%ctx112154%_))))))) - (if (let () (declare (not safe)) (pair? _%in112146%_)) + (gx#core-eval-module _%ctx111400%_))))))) + (if (pair? _%in111392%_) (for-each - (lambda (_%in112152%_) - (let () - (declare (not safe)) - (_%import1112149%_ _%in112152%_ '0))) - _%in112146%_) - (let () - (declare (not safe)) - (_%import1112149%_ _%in112146%_ '0)))))) + (lambda (_%in111398%_) (_%import1111395%_ _%in111398%_ '0)) + _%in111392%_) + (_%import1111395%_ _%in111392%_ '0))))) (define __eval-module - (lambda (_%obj112144%_) (gx#core-eval-module _%obj112144%_))) + (lambda (_%obj111390%_) (gx#core-eval-module _%obj111390%_))) (define __interrupt-handler (lambda () (if (let () (declare (not safe)) (##getenv '"GERBIL_DEBUG" '#f)) @@ -305,89 +255,86 @@ (newline (current-error-port)) (display '"--- continuation backtrace:" (current-error-port)) (newline (current-error-port)) - (let* ((_%stack-trace-head112140%_ - (let ((_%$e112137%_ + (let* ((_%stack-trace-head111386%_ + (let ((_%$e111383%_ (string->number (let () (declare (not safe)) (##getenv '"GERBIL_DEBUG_STACKTRACE" '"10"))))) - (if _%$e112137%_ _%$e112137%_ '10))) - (__tmp112259 - (lambda (_%cont112142%_) + (if _%$e111383%_ _%$e111383%_ '10))) + (__tmp111497 + (lambda (_%cont111388%_) (display-continuation-backtrace - _%cont112142%_ + _%cont111388%_ (current-error-port) '1 '1 '0 - _%stack-trace-head112140%_)))) + _%stack-trace-head111386%_)))) (declare (not safe)) - (##continuation-capture __tmp112259))) + (##continuation-capture __tmp111497))) '#!void) (let () (declare (not safe)) (##default-user-interrupt-handler)))) (define gerbil-runtime-init! - (lambda (_%builtin-modules112113%_) + (lambda (_%builtin-modules111359%_) (if __runtime-initialized '#!void (begin (let () (declare (not safe)) (dump-stack-trace? '#t)) - (let* ((_%home112115%_ + (let* ((_%home111361%_ (let () (declare (not safe)) (gerbil-home))) - (_%libdir112117%_ (path-expand '"lib" _%home112115%_)) - (_%userpath112119%_ + (_%libdir111363%_ (path-expand '"lib" _%home111361%_)) + (_%userpath111365%_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_%loadpath112121%_ + (_%loadpath111367%_ (if (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_PREFIX" '#f)) - (cons _%libdir112117%_ '()) - (cons _%userpath112119%_ - (cons _%libdir112117%_ '())))) - (_%loadpath112131%_ - (let ((_%$e112123%_ + (cons _%libdir111363%_ '()) + (cons _%userpath111365%_ + (cons _%libdir111363%_ '())))) + (_%loadpath111377%_ + (let ((_%$e111369%_ (let () (declare (not safe)) (##getenv '"GERBIL_LOADPATH" '#f)))) - (if _%$e112123%_ - ((lambda (_%envvar112126%_) - (let ((__tmp112260 - (let ((__tmp112262 - (lambda (_%x112128%_) - (let ((__tmp112263 - (let () - (declare (not safe)) - (string-empty? - _%x112128%_)))) - (declare (not safe)) - (not __tmp112263)))) - (__tmp112261 + (if _%$e111369%_ + ((lambda (_%envvar111372%_) + (let ((__tmp111498 + (let ((__tmp111500 + (lambda (_%x111374%_) + (not (let () + (declare (not safe)) + (string-empty? + _%x111374%_))))) + (__tmp111499 (let () (declare (not safe)) (string-split - _%envvar112126%_ + _%envvar111372%_ '#\:)))) (declare (not safe)) - (##filter __tmp112262 __tmp112261)))) + (##filter __tmp111500 __tmp111499)))) (declare (not safe)) - (##append __tmp112260 _%loadpath112121%_))) - _%$e112123%_) - (let () _%loadpath112121%_))))) + (##append __tmp111498 _%loadpath111367%_))) + _%$e111369%_) + _%loadpath111367%_)))) (declare (not safe)) - (set-load-path! _%loadpath112131%_)) + (set-load-path! _%loadpath111377%_)) (for-each - (lambda (_%mod112134%_) + (lambda (_%mod111380%_) (let () (declare (not safe)) - (hash-put! __modules _%mod112134%_ 'builtin)) - (let ((__tmp112264 + (hash-put! __modules _%mod111380%_ 'builtin)) + (let ((__tmp111501 (let () (declare (not safe)) - (##string-append _%mod112134%_ '"~0")))) + (##string-append _%mod111380%_ '"~0")))) (declare (not safe)) - (hash-put! __modules __tmp112264 'builtin))) - _%builtin-modules112113%_) + (hash-put! __modules __tmp111501 'builtin))) + _%builtin-modules111359%_) (current-user-interrupt-handler __interrupt-handler) (current-readtable __*readtable*) (random-source-randomize! default-random-source) @@ -403,6 +350,4 @@ (error '"runtime has not been initialized"))) (if __expander-loaded '#!void - (begin - (let () (declare (not safe)) (__load-gxi)) - (set! __expander-loaded '#t))))))) + (begin (__load-gxi) (set! __expander-loaded '#t))))))) diff --git a/src/bootstrap/gerbil/runtime/interface.ssxi.ss b/src/bootstrap/gerbil/runtime/interface.ssxi.ss index e39566ef3..eaaea8617 100644 --- a/src/bootstrap/gerbil/runtime/interface.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/interface.ssxi.ss @@ -56,8 +56,24 @@ package: gerbil/runtime arguments: (t::t t::t . t::t) unchecked: - #f))) - (declare-type raise-cast-error (@lambda (2) #f)) + #f + origin: + gerbil/runtime/error))) + (declare-type + raise-cast-error + (@lambda (2) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) (declare-type interface-cast-error? (@predicate CastError::t)) (declare-class interface-instance::t @@ -137,26 +153,214 @@ package: gerbil/runtime (@lambda 1 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) - (declare-type __interface-test-key (@lambda 2 #f)) - (declare-type make-prototype-table__% (@lambda 2 #f)) - (declare-type make-prototype-table__0 (@lambda 0 #f)) - (declare-type make-prototype-table__1 (@lambda 1 #f)) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) + (declare-type + __interface-test-key + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) + (declare-type + make-prototype-table__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) + (declare-type + make-prototype-table__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) + (declare-type + make-prototype-table__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) (declare-type make-prototype-table (@case-lambda - (0 make-prototype-table__0) - (1 make-prototype-table__1) - (2 make-prototype-table__%))) - (declare-type prototype-table-ref (@lambda 3 #f)) - (declare-type prototype-table-set! (@lambda 3 #f)) - (declare-type __prototype-table-set! (@lambda 3 #f)) - (declare-type prototype-table-update! (@lambda 4 #f)) - (declare-type __prototype-table-update! (@lambda 4 #f)) - (declare-type prototype-table-delete! (@lambda 2 #f)) + (0 + make-prototype-table__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface)) + (1 + make-prototype-table__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface)) + (2 + make-prototype-table__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface)))) + (declare-type + prototype-table-ref + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) + (declare-type + prototype-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) + (declare-type + __prototype-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) + (declare-type + prototype-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) + (declare-type + __prototype-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) + (declare-type + prototype-table-delete! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) (declare-type __interface-prototypes-mx (optimizer-resolve-class '(typedecl __interface-prototypes-mx) 'vector::t)) + (declare-type + __interface-prototypes + (optimizer-resolve-class '(typedecl __interface-prototypes) 't::t)) (declare-type __interface-prototypes-key (optimizer-resolve-class '(typedecl __interface-prototypes-key) 'pair::t)) @@ -165,9 +369,88 @@ package: gerbil/runtime (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type create-prototype (@lambda 3 #f)) - (declare-type try-create-prototype (@lambda 3 #f)) - (declare-type cast (@lambda 2 #f)) - (declare-type try-cast (@lambda 2 #f)) - (declare-type satisfies? (@lambda 2 #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) + (declare-type + create-prototype + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) + (declare-type + try-create-prototype + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) + (declare-type + cast + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) + (declare-type + try-cast + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface))) + (declare-type + satisfies? + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/interface)))) diff --git a/src/bootstrap/gerbil/runtime/interface~0.scm b/src/bootstrap/gerbil/runtime/interface~0.scm index a2fdd268e..298d866ea 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 1712533289) + (define gerbil/runtime/interface::timestamp 1712573430) (begin (define CastError::t - (let ((__tmp101871 (list Error::t))) + (let ((__tmp101266 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/interface#CastError::t 'CastError - __tmp101871 + __tmp101266 '() '() ':init!))) (define CastError? (let () (declare (not safe)) (__make-class-predicate CastError::t))) (define make-CastError - (lambda _%$args101864%_ - (apply make-instance CastError::t _%$args101864%_))) + (lambda _%$args101259%_ + (apply make-instance CastError::t _%$args101259%_))) (define CastError-message (let () (declare (not safe)) @@ -86,32 +86,32 @@ (declare (not safe)) (__bind-method! CastError::t ':init! CastError:::init! '#f)) (define raise-cast-error - (lambda (_%where101738%_ _%message101739%_ . _%irritants101740%_) - (let ((__tmp101872 - (let ((__obj101867 + (lambda (_%where101133%_ _%message101134%_ . _%irritants101135%_) + (let ((__tmp101267 + (let ((__obj101262 (let () (declare (not safe)) (##structure CastError::t '#f '#f '#f '#f)))) (CastError:::init! - __obj101867 - _%message101739%_ + __obj101262 + _%message101134%_ 'where: - _%where101738%_ + _%where101133%_ 'irritants: - _%irritants101740%_) - __obj101867))) + _%irritants101135%_) + __obj101262))) (declare (not safe)) - (raise __tmp101872)))) + (raise __tmp101267)))) (define interface-cast-error? CastError?) (define interface-instance::t - (let ((__tmp101874 (list)) (__tmp101873 (cons (cons 'struct: '#t) '()))) + (let ((__tmp101269 (list)) (__tmp101268 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#interface-instance::t 'interface-instance - __tmp101874 + __tmp101269 '(__object) - __tmp101873 + __tmp101268 '#f))) (define interface-instance? (let () @@ -136,24 +136,24 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator interface-instance::t '__object))) (define interface-descriptor::t - (let ((__tmp101876 (list)) - (__tmp101875 + (let ((__tmp101271 (list)) + (__tmp101270 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/interface#interface-descriptor::t 'interface-descriptor - __tmp101876 + __tmp101271 '(type methods) - __tmp101875 + __tmp101270 '#f))) (define interface-descriptor? (let () (declare (not safe)) (__make-class-predicate interface-descriptor::t))) (define make-interface-descriptor - (lambda _%$args101735%_ - (apply make-instance interface-descriptor::t _%$args101735%_))) + (lambda _%$args101130%_ + (apply make-instance interface-descriptor::t _%$args101130%_))) (define interface-descriptor-type (let () (declare (not safe)) @@ -191,659 +191,553 @@ interface-descriptor::t 'methods))) (define __interface-hash-key - (lambda (_%key101733%_) - (let ((__tmp101878 + (lambda (_%key101128%_) + (let ((__tmp101273 (macro-slot '1 - (let () (declare (not safe)) (##car _%key101733%_)))) - (__tmp101877 + (let () (declare (not safe)) (##car _%key101128%_)))) + (__tmp101272 (macro-slot '1 - (let () (declare (not safe)) (##cdr _%key101733%_))))) + (let () (declare (not safe)) (##cdr _%key101128%_))))) (declare (not safe)) - (##fxxor __tmp101878 __tmp101877)))) + (##fxxor __tmp101273 __tmp101272)))) (define __interface-test-key - (lambda (_%a101730%_ _%b101731%_) - (if (let ((__tmp101880 - (let () (declare (not safe)) (##car _%a101730%_))) - (__tmp101879 - (let () (declare (not safe)) (##car _%b101731%_)))) + (lambda (_%a101125%_ _%b101126%_) + (if (let ((__tmp101275 + (let () (declare (not safe)) (##car _%a101125%_))) + (__tmp101274 + (let () (declare (not safe)) (##car _%b101126%_)))) (declare (not safe)) - (##eq? __tmp101880 __tmp101879)) - (let ((__tmp101882 - (let () (declare (not safe)) (##cdr _%a101730%_))) - (__tmp101881 - (let () (declare (not safe)) (##cdr _%b101731%_)))) + (##eq? __tmp101275 __tmp101274)) + (let ((__tmp101277 + (let () (declare (not safe)) (##cdr _%a101125%_))) + (__tmp101276 + (let () (declare (not safe)) (##cdr _%b101126%_)))) (declare (not safe)) - (##eq? __tmp101882 __tmp101881)) + (##eq? __tmp101277 __tmp101276)) '#f))) (define make-prototype-table__% - (lambda (_%size-hint101711%_ _%seed101713%_) + (lambda (_%size-hint101106%_ _%seed101108%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint101711%_ + _%size-hint101106%_ __interface-hash-key __interface-test-key - _%seed101713%_)))) + _%seed101108%_)))) (define make-prototype-table__0 (lambda () - (let* ((_%size-hint101719%_ '#f) (_%seed101721%_ '0)) - (declare (not safe)) - (make-prototype-table__% _%size-hint101719%_ _%seed101721%_)))) + (let* ((_%size-hint101114%_ '#f) (_%seed101116%_ '0)) + (make-prototype-table__% _%size-hint101114%_ _%seed101116%_)))) (define make-prototype-table__1 - (lambda (_%size-hint101723%_) - (let ((_%seed101725%_ '0)) - (declare (not safe)) - (make-prototype-table__% _%size-hint101723%_ _%seed101725%_)))) + (lambda (_%size-hint101118%_) + (let ((_%seed101120%_ '0)) + (make-prototype-table__% _%size-hint101118%_ _%seed101120%_)))) (define make-prototype-table - (lambda _g101884_ - (let ((_g101883_ (let () (declare (not safe)) (##length _g101884_)))) - (cond ((let () (declare (not safe)) (##fx= _g101883_ 0)) - (apply (lambda () - (let () - (declare (not safe)) - (make-prototype-table__0))) - _g101884_)) - ((let () (declare (not safe)) (##fx= _g101883_ 1)) - (apply (lambda (_%size-hint101723%_) - (let () - (declare (not safe)) - (make-prototype-table__1 _%size-hint101723%_))) - _g101884_)) - ((let () (declare (not safe)) (##fx= _g101883_ 2)) - (apply (lambda (_%size-hint101727%_ _%seed101728%_) - (let () - (declare (not safe)) - (make-prototype-table__% - _%size-hint101727%_ - _%seed101728%_))) - _g101884_)) + (lambda _g101279_ + (let ((_g101278_ (let () (declare (not safe)) (##length _g101279_)))) + (cond ((let () (declare (not safe)) (##fx= _g101278_ 0)) + (apply make-prototype-table__0 _g101279_)) + ((let () (declare (not safe)) (##fx= _g101278_ 1)) + (apply make-prototype-table__1 _g101279_)) + ((let () (declare (not safe)) (##fx= _g101278_ 2)) + (apply make-prototype-table__% _g101279_)) (else (##raise-wrong-number-of-arguments-exception make-prototype-table - _g101884_)))))) + _g101279_)))))) (define prototype-table-ref - (lambda (_%tab101664%_ _%key101665%_ _%default101666%_) - (let ((_%table101668%_ - (let () (declare (not safe)) (&raw-table-table _%tab101664%_))) - (_%seed101669%_ - (let () (declare (not safe)) (&raw-table-seed _%tab101664%_)))) - (let* ((_%h101671%_ - (fxxor (let () - (declare (not safe)) - (__interface-hash-key _%key101665%_)) - _%seed101669%_)) - (_%size101674%_ (vector-length _%table101668%_)) - (_%entries101677%_ + (lambda (_%tab101059%_ _%key101060%_ _%default101061%_) + (let ((_%table101063%_ + (let () (declare (not safe)) (&raw-table-table _%tab101059%_))) + (_%seed101064%_ + (let () (declare (not safe)) (&raw-table-seed _%tab101059%_)))) + (let* ((_%h101066%_ + (fxxor (__interface-hash-key _%key101060%_) _%seed101064%_)) + (_%size101069%_ (vector-length _%table101063%_)) + (_%entries101072%_ (let () (declare (not safe)) - (##fxquotient _%size101674%_ '2))) - (_%start101680%_ - (let ((__tmp101885 + (##fxquotient _%size101069%_ '2))) + (_%start101075%_ + (let ((__tmp101280 (let () (declare (not safe)) - (##fxmodulo _%h101671%_ _%entries101677%_)))) + (##fxmodulo _%h101066%_ _%entries101072%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101885 '1)))) - (let _%loop101684%_ ((_%probe101687%_ _%start101680%_) - (_%i101689%_ '1) - (_%deleted101691%_ '#f)) - (let ((_%k101694%_ (vector-ref _%table101668%_ _%probe101687%_))) - (if (eq? _%k101694%_ (macro-unused-obj)) - (let () _%default101666%_) - (if (eq? _%k101694%_ (macro-deleted-obj)) - (let ((__tmp101888 - (let ((_%next-probe101699%_ - (fx+ _%start101680%_ - _%i101689%_ - (fx* _%i101689%_ _%i101689%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe101699%_ - _%size101674%_))) - (__tmp101887 - (let () - (declare (not safe)) - (##fx+ _%i101689%_ '1))) - (__tmp101886 - (let ((_%$e101702%_ _%deleted101691%_)) - (if _%$e101702%_ - _%$e101702%_ - _%probe101687%_)))) - (declare (not safe)) - (_%loop101684%_ __tmp101888 __tmp101887 __tmp101886)) - (if (let () - (declare (not safe)) - (__interface-test-key _%key101665%_ _%k101694%_)) - (let () - (vector-ref - _%table101668%_ - (let () - (declare (not safe)) - (##fx+ _%probe101687%_ '1)))) - (let ((__tmp101890 - (let ((_%next-probe101707%_ - (fx+ _%start101680%_ - _%i101689%_ - (fx* _%i101689%_ _%i101689%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe101707%_ - _%size101674%_))) - (__tmp101889 - (let () - (declare (not safe)) - (##fx+ _%i101689%_ '1)))) - (declare (not safe)) - (_%loop101684%_ - __tmp101890 - __tmp101889 - _%deleted101691%_))))))))))) + (##fxarithmetic-shift-left __tmp101280 '1)))) + (let _%loop101079%_ ((_%probe101082%_ _%start101075%_) + (_%i101084%_ '1) + (_%deleted101086%_ '#f)) + (let ((_%k101089%_ (vector-ref _%table101063%_ _%probe101082%_))) + (if (eq? _%k101089%_ (macro-unused-obj)) + _%default101061%_ + (if (eq? _%k101089%_ (macro-deleted-obj)) + (_%loop101079%_ + (let ((_%next-probe101094%_ + (fx+ _%start101075%_ + _%i101084%_ + (fx* _%i101084%_ _%i101084%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe101094%_ _%size101069%_)) + (let () (declare (not safe)) (##fx+ _%i101084%_ '1)) + (let ((_%$e101097%_ _%deleted101086%_)) + (if _%$e101097%_ _%$e101097%_ _%probe101082%_))) + (if (__interface-test-key _%key101060%_ _%k101089%_) + (vector-ref + _%table101063%_ + (let () + (declare (not safe)) + (##fx+ _%probe101082%_ '1))) + (_%loop101079%_ + (let ((_%next-probe101102%_ + (fx+ _%start101075%_ + _%i101084%_ + (fx* _%i101084%_ _%i101084%_)))) + (declare (not safe)) + (##fxmodulo + _%next-probe101102%_ + _%size101069%_)) + (let () + (declare (not safe)) + (##fx+ _%i101084%_ '1)) + _%deleted101086%_)))))))))) (define prototype-table-set! - (lambda (_%tab101660%_ _%key101661%_ _%value101662%_) - (if (let ((__tmp101893 + (lambda (_%tab101055%_ _%key101056%_ _%value101057%_) + (if (let ((__tmp101283 (let () (declare (not safe)) - (&raw-table-free _%tab101660%_))) - (__tmp101891 - (let ((__tmp101892 + (&raw-table-free _%tab101055%_))) + (__tmp101281 + (let ((__tmp101282 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab101660%_))))) + (&raw-table-table _%tab101055%_))))) (declare (not safe)) - (##fxquotient __tmp101892 '4)))) + (##fxquotient __tmp101282 '4)))) (declare (not safe)) - (##fx< __tmp101893 __tmp101891)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab101660%_)) + (##fx< __tmp101283 __tmp101281)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab101055%_)) '#!void) - (let () - (declare (not safe)) - (__prototype-table-set! - _%tab101660%_ - _%key101661%_ - _%value101662%_)))) + (__prototype-table-set! _%tab101055%_ _%key101056%_ _%value101057%_))) (define __prototype-table-set! - (lambda (_%tab101611%_ _%key101612%_ _%value101613%_) - (let ((_%table101616%_ - (let () (declare (not safe)) (&raw-table-table _%tab101611%_))) - (_%seed101617%_ - (let () (declare (not safe)) (&raw-table-seed _%tab101611%_)))) - (let* ((_%h101619%_ - (fxxor (let () - (declare (not safe)) - (__interface-hash-key _%key101612%_)) - _%seed101617%_)) - (_%size101622%_ (vector-length _%table101616%_)) - (_%entries101625%_ + (lambda (_%tab101006%_ _%key101007%_ _%value101008%_) + (let ((_%table101011%_ + (let () (declare (not safe)) (&raw-table-table _%tab101006%_))) + (_%seed101012%_ + (let () (declare (not safe)) (&raw-table-seed _%tab101006%_)))) + (let* ((_%h101014%_ + (fxxor (__interface-hash-key _%key101007%_) _%seed101012%_)) + (_%size101017%_ (vector-length _%table101011%_)) + (_%entries101020%_ (let () (declare (not safe)) - (##fxquotient _%size101622%_ '2))) - (_%start101628%_ - (let ((__tmp101894 + (##fxquotient _%size101017%_ '2))) + (_%start101023%_ + (let ((__tmp101284 (let () (declare (not safe)) - (##fxmodulo _%h101619%_ _%entries101625%_)))) + (##fxmodulo _%h101014%_ _%entries101020%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101894 '1)))) - (let _%loop101632%_ ((_%probe101635%_ _%start101628%_) - (_%i101637%_ '1) - (_%deleted101639%_ '#f)) - (let ((_%k101642%_ (vector-ref _%table101616%_ _%probe101635%_))) - (if (eq? _%k101642%_ (macro-unused-obj)) - (let () - (if _%deleted101639%_ - (begin - (vector-set! - _%table101616%_ - _%deleted101639%_ - _%key101612%_) - (vector-set! - _%table101616%_ - (let () + (##fxarithmetic-shift-left __tmp101284 '1)))) + (let _%loop101027%_ ((_%probe101030%_ _%start101023%_) + (_%i101032%_ '1) + (_%deleted101034%_ '#f)) + (let ((_%k101037%_ (vector-ref _%table101011%_ _%probe101030%_))) + (if (eq? _%k101037%_ (macro-unused-obj)) + (if _%deleted101034%_ + (begin + (vector-set! + _%table101011%_ + _%deleted101034%_ + _%key101007%_) + (vector-set! + _%table101011%_ + (let () + (declare (not safe)) + (##fx+ _%deleted101034%_ '1)) + _%value101008%_) + ((lambda () + (let ((__tmp101285 + (let ((__tmp101286 + (let () + (declare (not safe)) + (&raw-table-count + _%tab101006%_)))) + (declare (not safe)) + (##fx+ __tmp101286 '1)))) (declare (not safe)) - (##fx+ _%deleted101639%_ '1)) - _%value101613%_) - ((lambda () - (let ((__tmp101895 - (let ((__tmp101896 - (let () - (declare (not safe)) - (&raw-table-count - _%tab101611%_)))) - (declare (not safe)) - (##fx+ __tmp101896 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab101611%_ - __tmp101895))))) - (begin - (vector-set! - _%table101616%_ - _%probe101635%_ - _%key101612%_) - (vector-set! - _%table101616%_ - (let () + (&raw-table-count-set! + _%tab101006%_ + __tmp101285))))) + (begin + (vector-set! + _%table101011%_ + _%probe101030%_ + _%key101007%_) + (vector-set! + _%table101011%_ + (let () + (declare (not safe)) + (##fx+ _%probe101030%_ '1)) + _%value101008%_) + ((lambda () + (let ((__tmp101287 + (let ((__tmp101288 + (let () + (declare (not safe)) + (&raw-table-free _%tab101006%_)))) + (declare (not safe)) + (##fx- __tmp101288 '1)))) (declare (not safe)) - (##fx+ _%probe101635%_ '1)) - _%value101613%_) - ((lambda () - (let ((__tmp101897 - (let ((__tmp101898 - (let () - (declare (not safe)) - (&raw-table-free - _%tab101611%_)))) - (declare (not safe)) - (##fx- __tmp101898 '1)))) - (declare (not safe)) - (&raw-table-free-set! - _%tab101611%_ - __tmp101897)) - (let ((__tmp101899 - (let ((__tmp101900 - (let () - (declare (not safe)) - (&raw-table-count - _%tab101611%_)))) - (declare (not safe)) - (##fx+ __tmp101900 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab101611%_ - __tmp101899))))))) - (if (eq? _%k101642%_ (macro-deleted-obj)) - (let ((__tmp101903 - (let ((_%next-probe101649%_ - (fx+ _%start101628%_ - _%i101637%_ - (fx* _%i101637%_ _%i101637%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe101649%_ - _%size101622%_))) - (__tmp101902 - (let () - (declare (not safe)) - (##fx+ _%i101637%_ '1))) - (__tmp101901 - (let ((_%$e101652%_ _%deleted101639%_)) - (if _%$e101652%_ - _%$e101652%_ - _%probe101635%_)))) - (declare (not safe)) - (_%loop101632%_ __tmp101903 __tmp101902 __tmp101901)) - (if (let () - (declare (not safe)) - (__interface-test-key _%key101612%_ _%k101642%_)) + (&raw-table-free-set! + _%tab101006%_ + __tmp101287)) + (let ((__tmp101289 + (let ((__tmp101290 + (let () + (declare (not safe)) + (&raw-table-count + _%tab101006%_)))) + (declare (not safe)) + (##fx+ __tmp101290 '1)))) + (declare (not safe)) + (&raw-table-count-set! + _%tab101006%_ + __tmp101289)))))) + (if (eq? _%k101037%_ (macro-deleted-obj)) + (_%loop101027%_ + (let ((_%next-probe101044%_ + (fx+ _%start101023%_ + _%i101032%_ + (fx* _%i101032%_ _%i101032%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe101044%_ _%size101017%_)) + (let () (declare (not safe)) (##fx+ _%i101032%_ '1)) + (let ((_%$e101047%_ _%deleted101034%_)) + (if _%$e101047%_ _%$e101047%_ _%probe101030%_))) + (if (__interface-test-key _%key101007%_ _%k101037%_) (let () (vector-set! - _%table101616%_ - _%probe101635%_ - _%key101612%_) + _%table101011%_ + _%probe101030%_ + _%key101007%_) (vector-set! - _%table101616%_ + _%table101011%_ (let () (declare (not safe)) - (##fx+ _%probe101635%_ '1)) - _%value101613%_)) - (let ((__tmp101905 - (let ((_%next-probe101657%_ - (fx+ _%start101628%_ - _%i101637%_ - (fx* _%i101637%_ _%i101637%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe101657%_ - _%size101622%_))) - (__tmp101904 - (let () - (declare (not safe)) - (##fx+ _%i101637%_ '1)))) - (declare (not safe)) - (_%loop101632%_ - __tmp101905 - __tmp101904 - _%deleted101639%_))))))))))) + (##fx+ _%probe101030%_ '1)) + _%value101008%_)) + (_%loop101027%_ + (let ((_%next-probe101052%_ + (fx+ _%start101023%_ + _%i101032%_ + (fx* _%i101032%_ _%i101032%_)))) + (declare (not safe)) + (##fxmodulo + _%next-probe101052%_ + _%size101017%_)) + (let () + (declare (not safe)) + (##fx+ _%i101032%_ '1)) + _%deleted101034%_)))))))))) (define prototype-table-update! - (lambda (_%tab101606%_ - _%key101607%_ - _%prototype-table-update!101608%_ - _%default101609%_) - (if (let ((__tmp101908 + (lambda (_%tab101001%_ + _%key101002%_ + _%prototype-table-update!101003%_ + _%default101004%_) + (if (let ((__tmp101293 (let () (declare (not safe)) - (&raw-table-free _%tab101606%_))) - (__tmp101906 - (let ((__tmp101907 + (&raw-table-free _%tab101001%_))) + (__tmp101291 + (let ((__tmp101292 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab101606%_))))) + (&raw-table-table _%tab101001%_))))) (declare (not safe)) - (##fxquotient __tmp101907 '4)))) + (##fxquotient __tmp101292 '4)))) (declare (not safe)) - (##fx< __tmp101908 __tmp101906)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab101606%_)) + (##fx< __tmp101293 __tmp101291)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab101001%_)) '#!void) - (let () - (declare (not safe)) - (__prototype-table-update! - _%tab101606%_ - _%key101607%_ - _%prototype-table-update!101608%_ - _%default101609%_)))) + (__prototype-table-update! + _%tab101001%_ + _%key101002%_ + _%prototype-table-update!101003%_ + _%default101004%_))) (define __prototype-table-update! - (lambda (_%tab101556%_ - _%key101557%_ - _%prototype-table-update!101558%_ - _%default101559%_) - (let ((_%table101562%_ - (let () (declare (not safe)) (&raw-table-table _%tab101556%_))) - (_%seed101563%_ - (let () (declare (not safe)) (&raw-table-seed _%tab101556%_)))) - (let* ((_%h101565%_ - (fxxor (let () - (declare (not safe)) - (__interface-hash-key _%key101557%_)) - _%seed101563%_)) - (_%size101568%_ (vector-length _%table101562%_)) - (_%entries101571%_ + (lambda (_%tab100951%_ + _%key100952%_ + _%prototype-table-update!100953%_ + _%default100954%_) + (let ((_%table100957%_ + (let () (declare (not safe)) (&raw-table-table _%tab100951%_))) + (_%seed100958%_ + (let () (declare (not safe)) (&raw-table-seed _%tab100951%_)))) + (let* ((_%h100960%_ + (fxxor (__interface-hash-key _%key100952%_) _%seed100958%_)) + (_%size100963%_ (vector-length _%table100957%_)) + (_%entries100966%_ (let () (declare (not safe)) - (##fxquotient _%size101568%_ '2))) - (_%start101574%_ - (let ((__tmp101909 + (##fxquotient _%size100963%_ '2))) + (_%start100969%_ + (let ((__tmp101294 (let () (declare (not safe)) - (##fxmodulo _%h101565%_ _%entries101571%_)))) + (##fxmodulo _%h100960%_ _%entries100966%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101909 '1)))) - (let _%loop101578%_ ((_%probe101581%_ _%start101574%_) - (_%i101583%_ '1) - (_%deleted101585%_ '#f)) - (let ((_%k101588%_ (vector-ref _%table101562%_ _%probe101581%_))) - (if (eq? _%k101588%_ (macro-unused-obj)) - (let () - (if _%deleted101585%_ - (begin - (vector-set! - _%table101562%_ - _%deleted101585%_ - _%key101557%_) - (vector-set! - _%table101562%_ - (let () + (##fxarithmetic-shift-left __tmp101294 '1)))) + (let _%loop100973%_ ((_%probe100976%_ _%start100969%_) + (_%i100978%_ '1) + (_%deleted100980%_ '#f)) + (let ((_%k100983%_ (vector-ref _%table100957%_ _%probe100976%_))) + (if (eq? _%k100983%_ (macro-unused-obj)) + (if _%deleted100980%_ + (begin + (vector-set! + _%table100957%_ + _%deleted100980%_ + _%key100952%_) + (vector-set! + _%table100957%_ + (let () + (declare (not safe)) + (##fx+ _%deleted100980%_ '1)) + (_%prototype-table-update!100953%_ + _%default100954%_)) + ((lambda () + (let ((__tmp101295 + (let ((__tmp101296 + (let () + (declare (not safe)) + (&raw-table-count + _%tab100951%_)))) + (declare (not safe)) + (##fx+ __tmp101296 '1)))) (declare (not safe)) - (##fx+ _%deleted101585%_ '1)) - (_%prototype-table-update!101558%_ - _%default101559%_)) - ((lambda () - (let ((__tmp101910 - (let ((__tmp101911 - (let () - (declare (not safe)) - (&raw-table-count - _%tab101556%_)))) - (declare (not safe)) - (##fx+ __tmp101911 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab101556%_ - __tmp101910))))) - (begin - (vector-set! - _%table101562%_ - _%probe101581%_ - _%key101557%_) - (vector-set! - _%table101562%_ - (let () + (&raw-table-count-set! + _%tab100951%_ + __tmp101295))))) + (begin + (vector-set! + _%table100957%_ + _%probe100976%_ + _%key100952%_) + (vector-set! + _%table100957%_ + (let () + (declare (not safe)) + (##fx+ _%probe100976%_ '1)) + (_%prototype-table-update!100953%_ + _%default100954%_)) + ((lambda () + (let ((__tmp101297 + (let ((__tmp101298 + (let () + (declare (not safe)) + (&raw-table-free _%tab100951%_)))) + (declare (not safe)) + (##fx- __tmp101298 '1)))) (declare (not safe)) - (##fx+ _%probe101581%_ '1)) - (_%prototype-table-update!101558%_ - _%default101559%_)) - ((lambda () - (let ((__tmp101912 - (let ((__tmp101913 - (let () - (declare (not safe)) - (&raw-table-free - _%tab101556%_)))) - (declare (not safe)) - (##fx- __tmp101913 '1)))) - (declare (not safe)) - (&raw-table-free-set! - _%tab101556%_ - __tmp101912)) - (let ((__tmp101914 - (let ((__tmp101915 - (let () - (declare (not safe)) - (&raw-table-count - _%tab101556%_)))) - (declare (not safe)) - (##fx+ __tmp101915 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab101556%_ - __tmp101914))))))) - (if (eq? _%k101588%_ (macro-deleted-obj)) - (let ((__tmp101918 - (let ((_%next-probe101595%_ - (fx+ _%start101574%_ - _%i101583%_ - (fx* _%i101583%_ _%i101583%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe101595%_ - _%size101568%_))) - (__tmp101917 - (let () - (declare (not safe)) - (##fx+ _%i101583%_ '1))) - (__tmp101916 - (let ((_%$e101598%_ _%deleted101585%_)) - (if _%$e101598%_ - _%$e101598%_ - _%probe101581%_)))) - (declare (not safe)) - (_%loop101578%_ __tmp101918 __tmp101917 __tmp101916)) - (if (let () - (declare (not safe)) - (__interface-test-key _%key101557%_ _%k101588%_)) + (&raw-table-free-set! + _%tab100951%_ + __tmp101297)) + (let ((__tmp101299 + (let ((__tmp101300 + (let () + (declare (not safe)) + (&raw-table-count + _%tab100951%_)))) + (declare (not safe)) + (##fx+ __tmp101300 '1)))) + (declare (not safe)) + (&raw-table-count-set! + _%tab100951%_ + __tmp101299)))))) + (if (eq? _%k100983%_ (macro-deleted-obj)) + (_%loop100973%_ + (let ((_%next-probe100990%_ + (fx+ _%start100969%_ + _%i100978%_ + (fx* _%i100978%_ _%i100978%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe100990%_ _%size100963%_)) + (let () (declare (not safe)) (##fx+ _%i100978%_ '1)) + (let ((_%$e100993%_ _%deleted100980%_)) + (if _%$e100993%_ _%$e100993%_ _%probe100976%_))) + (if (__interface-test-key _%key100952%_ _%k100983%_) (let () (vector-set! - _%table101562%_ - _%probe101581%_ - _%key101557%_) + _%table100957%_ + _%probe100976%_ + _%key100952%_) (vector-set! - _%table101562%_ + _%table100957%_ (let () (declare (not safe)) - (##fx+ _%probe101581%_ '1)) - (_%prototype-table-update!101558%_ + (##fx+ _%probe100976%_ '1)) + (_%prototype-table-update!100953%_ (vector-ref - _%table101562%_ + _%table100957%_ (let () (declare (not safe)) - (##fx+ _%probe101581%_ '1)))))) - (let ((__tmp101920 - (let ((_%next-probe101603%_ - (fx+ _%start101574%_ - _%i101583%_ - (fx* _%i101583%_ _%i101583%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe101603%_ - _%size101568%_))) - (__tmp101919 - (let () - (declare (not safe)) - (##fx+ _%i101583%_ '1)))) - (declare (not safe)) - (_%loop101578%_ - __tmp101920 - __tmp101919 - _%deleted101585%_))))))))))) + (##fx+ _%probe100976%_ '1)))))) + (_%loop100973%_ + (let ((_%next-probe100998%_ + (fx+ _%start100969%_ + _%i100978%_ + (fx* _%i100978%_ _%i100978%_)))) + (declare (not safe)) + (##fxmodulo + _%next-probe100998%_ + _%size100963%_)) + (let () + (declare (not safe)) + (##fx+ _%i100978%_ '1)) + _%deleted100980%_)))))))))) (define prototype-table-delete! - (lambda (_%tab101511%_ _%key101513%_) - (let ((_%table101516%_ - (let () (declare (not safe)) (&raw-table-table _%tab101511%_))) - (_%seed101518%_ - (let () (declare (not safe)) (&raw-table-seed _%tab101511%_)))) - (let* ((_%h101521%_ - (fxxor (let () - (declare (not safe)) - (__interface-hash-key _%key101513%_)) - _%seed101518%_)) - (_%size101524%_ (vector-length _%table101516%_)) - (_%entries101527%_ + (lambda (_%tab100906%_ _%key100908%_) + (let ((_%table100911%_ + (let () (declare (not safe)) (&raw-table-table _%tab100906%_))) + (_%seed100913%_ + (let () (declare (not safe)) (&raw-table-seed _%tab100906%_)))) + (let* ((_%h100916%_ + (fxxor (__interface-hash-key _%key100908%_) _%seed100913%_)) + (_%size100919%_ (vector-length _%table100911%_)) + (_%entries100922%_ (let () (declare (not safe)) - (##fxquotient _%size101524%_ '2))) - (_%start101530%_ - (let ((__tmp101921 + (##fxquotient _%size100919%_ '2))) + (_%start100925%_ + (let ((__tmp101301 (let () (declare (not safe)) - (##fxmodulo _%h101521%_ _%entries101527%_)))) + (##fxmodulo _%h100916%_ _%entries100922%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101921 '1)))) - (let _%loop101534%_ ((_%probe101537%_ _%start101530%_) - (_%i101539%_ '1)) - (let ((_%k101542%_ (vector-ref _%table101516%_ _%probe101537%_))) - (if (eq? _%k101542%_ (macro-unused-obj)) - (let () '#!void) - (if (eq? _%k101542%_ (macro-deleted-obj)) - (let ((__tmp101923 - (let ((_%next-probe101547%_ - (fx+ _%start101530%_ - _%i101539%_ - (fx* _%i101539%_ _%i101539%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe101547%_ - _%size101524%_))) - (__tmp101922 - (let () - (declare (not safe)) - (##fx+ _%i101539%_ '1)))) - (declare (not safe)) - (_%loop101534%_ __tmp101923 __tmp101922)) - (if (let () - (declare (not safe)) - (__interface-test-key _%key101513%_ _%k101542%_)) + (##fxarithmetic-shift-left __tmp101301 '1)))) + (let _%loop100929%_ ((_%probe100932%_ _%start100925%_) + (_%i100934%_ '1)) + (let ((_%k100937%_ (vector-ref _%table100911%_ _%probe100932%_))) + (if (eq? _%k100937%_ (macro-unused-obj)) + '#!void + (if (eq? _%k100937%_ (macro-deleted-obj)) + (_%loop100929%_ + (let ((_%next-probe100942%_ + (fx+ _%start100925%_ + _%i100934%_ + (fx* _%i100934%_ _%i100934%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe100942%_ _%size100919%_)) + (let () (declare (not safe)) (##fx+ _%i100934%_ '1))) + (if (__interface-test-key _%key100908%_ _%k100937%_) (let () (vector-set! - _%table101516%_ - _%probe101537%_ + _%table100911%_ + _%probe100932%_ (macro-deleted-obj)) (vector-set! - _%table101516%_ + _%table100911%_ (let () (declare (not safe)) - (##fx+ _%probe101537%_ '1)) + (##fx+ _%probe100932%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp101924 - (let ((__tmp101925 + (let ((__tmp101302 + (let ((__tmp101303 (let () (declare (not safe)) (&raw-table-count - _%tab101511%_)))) + _%tab100906%_)))) (declare (not safe)) - (##fx- __tmp101925 '1)))) + (##fx- __tmp101303 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab101511%_ - __tmp101924))))) - (let ((__tmp101927 - (let ((_%next-probe101553%_ - (fx+ _%start101530%_ - _%i101539%_ - (fx* _%i101539%_ _%i101539%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe101553%_ - _%size101524%_))) - (__tmp101926 - (let () - (declare (not safe)) - (##fx+ _%i101539%_ '1)))) - (declare (not safe)) - (_%loop101534%_ - __tmp101927 - __tmp101926))))))))))) + _%tab100906%_ + __tmp101302))))) + (_%loop100929%_ + (let ((_%next-probe100948%_ + (fx+ _%start100925%_ + _%i100934%_ + (fx* _%i100934%_ _%i100934%_)))) + (declare (not safe)) + (##fxmodulo + _%next-probe100948%_ + _%size100919%_)) + (let () + (declare (not safe)) + (##fx+ _%i100934%_ '1)))))))))))) (define __interface-prototypes-mx (vector '0)) - (define __interface-prototypes - (let () (declare (not safe)) (make-prototype-table__% '#f '0))) + (define __interface-prototypes (make-prototype-table__% '#f '0)) (define __interface-prototypes-key (cons '#f '#f)) (define interface-subclass? - (lambda (_%klass101503%_) - (let ((_%super101504101506%_ - (let () (declare (not safe)) (##type-super _%klass101503%_)))) - (if _%super101504101506%_ - (let ((_%super101509%_ _%super101504101506%_)) - (eq? (let () (declare (not safe)) (##type-id _%super101509%_)) + (lambda (_%klass100898%_) + (let ((_%super100899100901%_ + (let () (declare (not safe)) (##type-super _%klass100898%_)))) + (if _%super100899100901%_ + (let ((_%super100904%_ _%super100899100901%_)) + (eq? (let () (declare (not safe)) (##type-id _%super100904%_)) (let () (declare (not safe)) (##type-id interface-instance::t)))) '#f)))) (define create-prototype - (lambda (_%descriptor101388%_ _%klass101389%_ _%obj-klass101390%_) - (let ((_%method-table101392%_ + (lambda (_%descriptor100783%_ _%klass100784%_ _%obj-klass100785%_) + (let ((_%method-table100787%_ (let () (declare (not safe)) - (specialize-class _%obj-klass101390%_)))) - (let _%loop101395%_ ((_%rest101398%_ + (specialize-class _%obj-klass100785%_)))) + (let _%loop100790%_ ((_%rest100793%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor101388%_ + _%descriptor100783%_ '2 '#f '#f))) - (_%count101400%_ '0) - (_%methods101402%_ '())) - (let* ((_%rest101404101412%_ _%rest101398%_) - (_%else101406101474%_ + (_%count100795%_ '0) + (_%methods100797%_ '())) + (let* ((_%rest100799100807%_ _%rest100793%_) + (_%else100801100869%_ (lambda () - (let ((_%prototype101420%_ - (let ((__obj101869 - (let ((__tmp101928 + (let ((_%prototype100815%_ + (let ((__obj101264 + (let ((__tmp101304 (let () (declare (not safe)) - (##fx+ _%count101400%_ '2)))) + (##fx+ _%count100795%_ '2)))) (declare (not safe)) (##make-structure - _%klass101389%_ - __tmp101928)))) + _%klass100784%_ + __tmp101304)))) (let () (declare (not safe)) - (object-fill! __obj101869 '#f)) - __obj101869))) - (let _%loop101423%_ ((_%rest101425%_ _%methods101402%_) - (_%off101426%_ + (object-fill! __obj101264 '#f)) + __obj101264))) + (let _%loop100818%_ ((_%rest100820%_ _%methods100797%_) + (_%off100821%_ (let () (declare (not safe)) - (##fx+ _%count101400%_ '1)))) - (let* ((_%rest101428101436%_ _%rest101425%_) - (_%else101430101455%_ + (##fx+ _%count100795%_ '1)))) + (let* ((_%rest100823100831%_ _%rest100820%_) + (_%else100825100850%_ (lambda () - (let ((_%prototype-key101444%_ + (let ((_%prototype-key100839%_ (cons (let () (declare (not safe)) - (##type-id _%klass101389%_)) + (##type-id _%klass100784%_)) (let () (declare (not safe)) (##type-id - _%obj-klass101390%_))))) + _%obj-klass100785%_))))) (let () (declare (not interrupts-enabled)) - (let _%again101449%_ () - (if (let ((__tmp101929 + (let _%again100844%_ () + (if (let ((__tmp101305 (let () (declare (not safe)) (##vector-cas! @@ -852,21 +746,17 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp101929 '0)) + (##fx= __tmp101305 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () - (declare (not safe)) - (_%again101449%_)))))) - (let () - (declare (not safe)) - (prototype-table-set! - __interface-prototypes - _%prototype-key101444%_ - _%prototype101420%_)) + (_%again100844%_))))) + (prototype-table-set! + __interface-prototypes + _%prototype-key100839%_ + _%prototype100815%_) (let () (declare (not safe)) (##vector-cas! @@ -874,170 +764,151 @@ '0 '0 '1)) - ((lambda (_%prototype101453%_) - _%prototype101453%_) - _%prototype101420%_)))) - (_%K101432101462%_ - (lambda (_%rest101458%_ _%method101459%_) + ((lambda (_%prototype100848%_) + _%prototype100848%_) + _%prototype100815%_)))) + (_%K100827100857%_ + (lambda (_%rest100853%_ _%method100854%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype101420%_ - _%method101459%_ - _%off101426%_ - _%klass101389%_ + _%prototype100815%_ + _%method100854%_ + _%off100821%_ + _%klass100784%_ '#f)) - (let ((__tmp101930 - (let () - (declare (not safe)) - (##fx- _%off101426%_ '1)))) - (declare (not safe)) - (_%loop101423%_ - _%rest101458%_ - __tmp101930))))) + (_%loop100818%_ + _%rest100853%_ + (let () + (declare (not safe)) + (##fx- _%off100821%_ '1)))))) (if (let () (declare (not safe)) - (##pair? _%rest101428101436%_)) - (let ((_%hd101433101465%_ + (##pair? _%rest100823100831%_)) + (let ((_%hd100828100860%_ (let () (declare (not safe)) - (##car _%rest101428101436%_))) - (_%tl101434101467%_ + (##car _%rest100823100831%_))) + (_%tl100829100862%_ (let () (declare (not safe)) - (##cdr _%rest101428101436%_)))) - (let* ((_%method101470%_ _%hd101433101465%_) - (_%rest101472%_ _%tl101434101467%_)) - (declare (not safe)) - (_%K101432101462%_ - _%rest101472%_ - _%method101470%_))) - (let () - (declare (not safe)) - (_%else101430101455%_)))))))) - (_%K101408101491%_ - (lambda (_%rest101477%_ _%method-name101478%_) - (let ((_%$e101481%_ + (##cdr _%rest100823100831%_)))) + (let* ((_%method100865%_ _%hd100828100860%_) + (_%rest100867%_ _%tl100829100862%_)) + (_%K100827100857%_ + _%rest100867%_ + _%method100865%_))) + (_%else100825100850%_))))))) + (_%K100803100886%_ + (lambda (_%rest100872%_ _%method-name100873%_) + (let ((_%$e100876%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table101392%_ - _%method-name101478%_ + _%method-table100787%_ + _%method-name100873%_ '#f)))) - (if _%$e101481%_ - ((lambda (_%method101484%_) - (let ((__tmp101932 - (let () - (declare (not safe)) - (##fx+ _%count101400%_ '1))) - (__tmp101931 - (cons _%method101484%_ - _%methods101402%_))) - (declare (not safe)) - (_%loop101395%_ - _%rest101477%_ - __tmp101932 - __tmp101931))) - _%$e101481%_) - (let () - ((lambda (_%klass101487%_ - _%obj-klass101488%_ - _%method-name101489%_) - (let ((__tmp101934 - (let () - (declare (not safe)) - (##type-id _%klass101487%_))) - (__tmp101933 - (let () - (declare (not safe)) - (##type-id _%obj-klass101488%_)))) - (declare (not safe)) - (raise-cast-error - 'create-prototype - '"cannot create interface instance; missing method" - 'interface: - _%klass101487%_ - 'interface-id: - __tmp101934 - 'class: - _%obj-klass101488%_ - 'class-id: - __tmp101933 - 'method: - _%method-name101489%_)) - '#!void) - _%klass101389%_ - _%obj-klass101390%_ - _%method-name101478%_))))))) - (if (let () (declare (not safe)) (##pair? _%rest101404101412%_)) - (let ((_%hd101409101494%_ + (if _%$e100876%_ + ((lambda (_%method100879%_) + (_%loop100790%_ + _%rest100872%_ + (let () + (declare (not safe)) + (##fx+ _%count100795%_ '1)) + (cons _%method100879%_ _%methods100797%_))) + _%$e100876%_) + ((lambda (_%klass100882%_ + _%obj-klass100883%_ + _%method-name100884%_) + (raise-cast-error + 'create-prototype + '"cannot create interface instance; missing method" + 'interface: + _%klass100882%_ + 'interface-id: + (let () + (declare (not safe)) + (##type-id _%klass100882%_)) + 'class: + _%obj-klass100883%_ + 'class-id: + (let () + (declare (not safe)) + (##type-id _%obj-klass100883%_)) + 'method: + _%method-name100884%_) + '#!void) + _%klass100784%_ + _%obj-klass100785%_ + _%method-name100873%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest100799100807%_)) + (let ((_%hd100804100889%_ (let () (declare (not safe)) - (##car _%rest101404101412%_))) - (_%tl101410101496%_ + (##car _%rest100799100807%_))) + (_%tl100805100891%_ (let () (declare (not safe)) - (##cdr _%rest101404101412%_)))) - (let* ((_%method-name101499%_ _%hd101409101494%_) - (_%rest101501%_ _%tl101410101496%_)) - (declare (not safe)) - (_%K101408101491%_ - _%rest101501%_ - _%method-name101499%_))) - (let () (declare (not safe)) (_%else101406101474%_)))))))) + (##cdr _%rest100799100807%_)))) + (let* ((_%method-name100894%_ _%hd100804100889%_) + (_%rest100896%_ _%tl100805100891%_)) + (_%K100803100886%_ + _%rest100896%_ + _%method-name100894%_))) + (_%else100801100869%_))))))) (define try-create-prototype - (lambda (_%descriptor101273%_ _%klass101274%_ _%obj-klass101275%_) - (let ((_%method-table101277%_ + (lambda (_%descriptor100668%_ _%klass100669%_ _%obj-klass100670%_) + (let ((_%method-table100672%_ (let () (declare (not safe)) - (specialize-class _%obj-klass101275%_)))) - (let _%loop101280%_ ((_%rest101283%_ + (specialize-class _%obj-klass100670%_)))) + (let _%loop100675%_ ((_%rest100678%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor101273%_ + _%descriptor100668%_ '2 '#f '#f))) - (_%count101285%_ '0) - (_%methods101287%_ '())) - (let* ((_%rest101289101297%_ _%rest101283%_) - (_%else101291101359%_ + (_%count100680%_ '0) + (_%methods100682%_ '())) + (let* ((_%rest100684100692%_ _%rest100678%_) + (_%else100686100754%_ (lambda () - (let ((_%prototype101305%_ - (let ((__obj101870 - (let ((__tmp101935 + (let ((_%prototype100700%_ + (let ((__obj101265 + (let ((__tmp101306 (let () (declare (not safe)) - (##fx+ _%count101285%_ '2)))) + (##fx+ _%count100680%_ '2)))) (declare (not safe)) (##make-structure - _%klass101274%_ - __tmp101935)))) + _%klass100669%_ + __tmp101306)))) (let () (declare (not safe)) - (object-fill! __obj101870 '#f)) - __obj101870))) - (let _%loop101308%_ ((_%rest101310%_ _%methods101287%_) - (_%off101311%_ + (object-fill! __obj101265 '#f)) + __obj101265))) + (let _%loop100703%_ ((_%rest100705%_ _%methods100682%_) + (_%off100706%_ (let () (declare (not safe)) - (##fx+ _%count101285%_ '1)))) - (let* ((_%rest101313101321%_ _%rest101310%_) - (_%else101315101340%_ + (##fx+ _%count100680%_ '1)))) + (let* ((_%rest100708100716%_ _%rest100705%_) + (_%else100710100735%_ (lambda () - (let ((_%prototype-key101329%_ + (let ((_%prototype-key100724%_ (cons (let () (declare (not safe)) - (##type-id _%klass101274%_)) + (##type-id _%klass100669%_)) (let () (declare (not safe)) (##type-id - _%obj-klass101275%_))))) + _%obj-klass100670%_))))) (let () (declare (not interrupts-enabled)) - (let _%again101334%_ () - (if (let ((__tmp101936 + (let _%again100729%_ () + (if (let ((__tmp101307 (let () (declare (not safe)) (##vector-cas! @@ -1046,21 +917,17 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp101936 '0)) + (##fx= __tmp101307 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () - (declare (not safe)) - (_%again101334%_)))))) - (let () - (declare (not safe)) - (prototype-table-set! - __interface-prototypes - _%prototype-key101329%_ - _%prototype101305%_)) + (_%again100729%_))))) + (prototype-table-set! + __interface-prototypes + _%prototype-key100724%_ + _%prototype100700%_) (let () (declare (not safe)) (##vector-cas! @@ -1068,130 +935,112 @@ '0 '0 '1)) - ((lambda (_%prototype101338%_) - _%prototype101338%_) - _%prototype101305%_)))) - (_%K101317101347%_ - (lambda (_%rest101343%_ _%method101344%_) + ((lambda (_%prototype100733%_) + _%prototype100733%_) + _%prototype100700%_)))) + (_%K100712100742%_ + (lambda (_%rest100738%_ _%method100739%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype101305%_ - _%method101344%_ - _%off101311%_ - _%klass101274%_ + _%prototype100700%_ + _%method100739%_ + _%off100706%_ + _%klass100669%_ '#f)) - (let ((__tmp101937 - (let () - (declare (not safe)) - (##fx- _%off101311%_ '1)))) - (declare (not safe)) - (_%loop101308%_ - _%rest101343%_ - __tmp101937))))) + (_%loop100703%_ + _%rest100738%_ + (let () + (declare (not safe)) + (##fx- _%off100706%_ '1)))))) (if (let () (declare (not safe)) - (##pair? _%rest101313101321%_)) - (let ((_%hd101318101350%_ + (##pair? _%rest100708100716%_)) + (let ((_%hd100713100745%_ (let () (declare (not safe)) - (##car _%rest101313101321%_))) - (_%tl101319101352%_ + (##car _%rest100708100716%_))) + (_%tl100714100747%_ (let () (declare (not safe)) - (##cdr _%rest101313101321%_)))) - (let* ((_%method101355%_ _%hd101318101350%_) - (_%rest101357%_ _%tl101319101352%_)) - (declare (not safe)) - (_%K101317101347%_ - _%rest101357%_ - _%method101355%_))) - (let () - (declare (not safe)) - (_%else101315101340%_)))))))) - (_%K101293101376%_ - (lambda (_%rest101362%_ _%method-name101363%_) - (let ((_%$e101366%_ + (##cdr _%rest100708100716%_)))) + (let* ((_%method100750%_ _%hd100713100745%_) + (_%rest100752%_ _%tl100714100747%_)) + (_%K100712100742%_ + _%rest100752%_ + _%method100750%_))) + (_%else100710100735%_))))))) + (_%K100688100771%_ + (lambda (_%rest100757%_ _%method-name100758%_) + (let ((_%$e100761%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table101277%_ - _%method-name101363%_ + _%method-table100672%_ + _%method-name100758%_ '#f)))) - (if _%$e101366%_ - ((lambda (_%method101369%_) - (let ((__tmp101939 - (let () - (declare (not safe)) - (##fx+ _%count101285%_ '1))) - (__tmp101938 - (cons _%method101369%_ - _%methods101287%_))) - (declare (not safe)) - (_%loop101280%_ - _%rest101362%_ - __tmp101939 - __tmp101938))) - _%$e101366%_) - (let () - ((lambda (_%klass101372%_ - _%obj-klass101373%_ - _%method-name101374%_) - '#f) - _%klass101274%_ - _%obj-klass101275%_ - _%method-name101363%_))))))) - (if (let () (declare (not safe)) (##pair? _%rest101289101297%_)) - (let ((_%hd101294101379%_ + (if _%$e100761%_ + ((lambda (_%method100764%_) + (_%loop100675%_ + _%rest100757%_ + (let () + (declare (not safe)) + (##fx+ _%count100680%_ '1)) + (cons _%method100764%_ _%methods100682%_))) + _%$e100761%_) + ((lambda (_%klass100767%_ + _%obj-klass100768%_ + _%method-name100769%_) + '#f) + _%klass100669%_ + _%obj-klass100670%_ + _%method-name100758%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest100684100692%_)) + (let ((_%hd100689100774%_ (let () (declare (not safe)) - (##car _%rest101289101297%_))) - (_%tl101295101381%_ + (##car _%rest100684100692%_))) + (_%tl100690100776%_ (let () (declare (not safe)) - (##cdr _%rest101289101297%_)))) - (let* ((_%method-name101384%_ _%hd101294101379%_) - (_%rest101386%_ _%tl101295101381%_)) - (declare (not safe)) - (_%K101293101376%_ - _%rest101386%_ - _%method-name101384%_))) - (let () (declare (not safe)) (_%else101291101359%_)))))))) + (##cdr _%rest100684100692%_)))) + (let* ((_%method-name100779%_ _%hd100689100774%_) + (_%rest100781%_ _%tl100690100776%_)) + (_%K100688100771%_ + _%rest100781%_ + _%method-name100779%_))) + (_%else100686100754%_))))))) (define cast - (lambda (_%descriptor101231%_ _%obj101233%_) + (lambda (_%descriptor100626%_ _%obj100628%_) (declare (not interrupts-enabled)) - (let* ((_%klass101237%_ + (let* ((_%klass100632%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor101231%_ '1 '#f '#f))) - (_%klass-id101240%_ - (let () (declare (not safe)) (##type-id _%klass101237%_))) - (_%obj-klass101243%_ - (let () (declare (not safe)) (class-of _%obj101233%_))) - (_%obj-klass-id101246%_ - (let () (declare (not safe)) (##type-id _%obj-klass101243%_)))) + (##unchecked-structure-ref _%descriptor100626%_ '1 '#f '#f))) + (_%klass-id100635%_ + (let () (declare (not safe)) (##type-id _%klass100632%_))) + (_%obj-klass100638%_ + (let () (declare (not safe)) (class-of _%obj100628%_))) + (_%obj-klass-id100641%_ + (let () (declare (not safe)) (##type-id _%obj-klass100638%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id101240%_ _%obj-klass-id101246%_)) - (let () _%obj101233%_) - (if (let () - (declare (not safe)) - (interface-subclass? _%obj-klass101243%_)) - (let ((__tmp101940 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%obj101233%_ - '1 - '#f - '#f)))) - (declare (not safe)) - (cast _%descriptor101231%_ __tmp101940)) + (##eq? _%klass-id100635%_ _%obj-klass-id100641%_)) + _%obj100628%_ + (if (interface-subclass? _%obj-klass100638%_) + (cast _%descriptor100626%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%obj100628%_ + '1 + '#f + '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again101255%_ () - (if (let ((__tmp101941 + (let _%again100650%_ () + (if (let ((__tmp101308 (let () (declare (not safe)) (##vector-cas! @@ -1200,33 +1049,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp101941 '0)) + (##fx= __tmp101308 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () - (declare (not safe)) - (_%again101255%_)))))) + (_%again100650%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id101240%_)) + _%klass-id100635%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id101246%_)) - (let ((_%prototype101266%_ - (let ((_%$e101259%_ - (let () - (declare (not safe)) - (prototype-table-ref - __interface-prototypes - __interface-prototypes-key - '#f)))) - (if _%$e101259%_ - ((lambda (_%prototype101262%_) + _%obj-klass-id100641%_)) + (let ((_%prototype100661%_ + (let ((_%$e100654%_ + (prototype-table-ref + __interface-prototypes + __interface-prototypes-key + '#f))) + (if _%$e100654%_ + ((lambda (_%prototype100657%_) (let () (declare (not safe)) (##vector-cas! @@ -1234,8 +1079,8 @@ '0 '0 '1)) - _%prototype101262%_) - _%$e101259%_) + _%prototype100657%_) + _%$e100654%_) (let () (let () (declare (not safe)) @@ -1244,63 +1089,54 @@ '0 '0 '1)) - (let () - (declare (not safe)) - (create-prototype - _%descriptor101231%_ - _%klass101237%_ - _%obj-klass101243%_))))))) - ((lambda (_%prototype101268%_ _%obj101269%_) - (let ((_%instance101271%_ + (create-prototype + _%descriptor100626%_ + _%klass100632%_ + _%obj-klass100638%_)))))) + ((lambda (_%prototype100663%_ _%obj100664%_) + (let ((_%instance100666%_ (let () (declare (not safe)) - (##structure-copy _%prototype101268%_)))) + (##structure-copy _%prototype100663%_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%instance101271%_ - _%obj101269%_ + _%instance100666%_ + _%obj100664%_ '1 '#f 'cast)) - _%instance101271%_)) - _%prototype101266%_ - _%obj101233%_)))))))) + _%instance100666%_)) + _%prototype100661%_ + _%obj100628%_)))))))) (define try-cast - (lambda (_%descriptor101189%_ _%obj101191%_) + (lambda (_%descriptor100584%_ _%obj100586%_) (declare (not interrupts-enabled)) - (let* ((_%klass101195%_ + (let* ((_%klass100590%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor101189%_ '1 '#f '#f))) - (_%klass-id101198%_ - (let () (declare (not safe)) (##type-id _%klass101195%_))) - (_%obj-klass101201%_ - (let () (declare (not safe)) (class-of _%obj101191%_))) - (_%obj-klass-id101204%_ - (let () (declare (not safe)) (##type-id _%obj-klass101201%_)))) + (##unchecked-structure-ref _%descriptor100584%_ '1 '#f '#f))) + (_%klass-id100593%_ + (let () (declare (not safe)) (##type-id _%klass100590%_))) + (_%obj-klass100596%_ + (let () (declare (not safe)) (class-of _%obj100586%_))) + (_%obj-klass-id100599%_ + (let () (declare (not safe)) (##type-id _%obj-klass100596%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id101198%_ _%obj-klass-id101204%_)) - (let () _%obj101191%_) - (if (let () - (declare (not safe)) - (interface-subclass? _%obj-klass101201%_)) - (let ((__tmp101942 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%obj101191%_ - '1 - '#f - '#f)))) - (declare (not safe)) - (try-cast _%descriptor101189%_ __tmp101942)) + (##eq? _%klass-id100593%_ _%obj-klass-id100599%_)) + _%obj100586%_ + (if (interface-subclass? _%obj-klass100596%_) + (try-cast + _%descriptor100584%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%obj100586%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again101213%_ () - (if (let ((__tmp101943 + (let _%again100608%_ () + (if (let ((__tmp101309 (let () (declare (not safe)) (##vector-cas! @@ -1309,33 +1145,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp101943 '0)) + (##fx= __tmp101309 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () - (declare (not safe)) - (_%again101213%_)))))) + (_%again100608%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id101198%_)) + _%klass-id100593%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id101204%_)) - (let ((_%prototype101224%_ - (let ((_%$e101217%_ - (let () - (declare (not safe)) - (prototype-table-ref - __interface-prototypes - __interface-prototypes-key - '#f)))) - (if _%$e101217%_ - ((lambda (_%prototype101220%_) + _%obj-klass-id100599%_)) + (let ((_%prototype100619%_ + (let ((_%$e100612%_ + (prototype-table-ref + __interface-prototypes + __interface-prototypes-key + '#f))) + (if _%$e100612%_ + ((lambda (_%prototype100615%_) (let () (declare (not safe)) (##vector-cas! @@ -1343,8 +1175,8 @@ '0 '0 '1)) - _%prototype101220%_) - _%$e101217%_) + _%prototype100615%_) + _%$e100612%_) (let () (let () (declare (not safe)) @@ -1353,65 +1185,56 @@ '0 '0 '1)) - (let () - (declare (not safe)) - (try-create-prototype - _%descriptor101189%_ - _%klass101195%_ - _%obj-klass101201%_))))))) - ((lambda (_%prototype101226%_ _%obj101227%_) - (if _%prototype101226%_ - (let ((_%instance101229%_ + (try-create-prototype + _%descriptor100584%_ + _%klass100590%_ + _%obj-klass100596%_)))))) + ((lambda (_%prototype100621%_ _%obj100622%_) + (if _%prototype100621%_ + (let ((_%instance100624%_ (let () (declare (not safe)) - (##structure-copy _%prototype101226%_)))) + (##structure-copy _%prototype100621%_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%instance101229%_ - _%obj101227%_ + _%instance100624%_ + _%obj100622%_ '1 '#f 'cast)) - _%instance101229%_) + _%instance100624%_) '#f)) - _%prototype101224%_ - _%obj101191%_)))))))) + _%prototype100619%_ + _%obj100586%_)))))))) (define satisfies? - (lambda (_%descriptor101149%_ _%obj101151%_) + (lambda (_%descriptor100544%_ _%obj100546%_) (declare (not interrupts-enabled)) - (let* ((_%klass101155%_ + (let* ((_%klass100550%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor101149%_ '1 '#f '#f))) - (_%klass-id101158%_ - (let () (declare (not safe)) (##type-id _%klass101155%_))) - (_%obj-klass101161%_ - (let () (declare (not safe)) (class-of _%obj101151%_))) - (_%obj-klass-id101164%_ - (let () (declare (not safe)) (##type-id _%obj-klass101161%_)))) + (##unchecked-structure-ref _%descriptor100544%_ '1 '#f '#f))) + (_%klass-id100553%_ + (let () (declare (not safe)) (##type-id _%klass100550%_))) + (_%obj-klass100556%_ + (let () (declare (not safe)) (class-of _%obj100546%_))) + (_%obj-klass-id100559%_ + (let () (declare (not safe)) (##type-id _%obj-klass100556%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id101158%_ _%obj-klass-id101164%_)) - (let () _%obj101151%_) - (if (let () - (declare (not safe)) - (interface-subclass? _%obj-klass101161%_)) - (let ((__tmp101944 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%obj101151%_ - '1 - '#f - '#f)))) - (declare (not safe)) - (satisfies? _%descriptor101149%_ __tmp101944)) + (##eq? _%klass-id100553%_ _%obj-klass-id100559%_)) + _%obj100546%_ + (if (interface-subclass? _%obj-klass100556%_) + (satisfies? + _%descriptor100544%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%obj100546%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again101173%_ () - (if (let ((__tmp101945 + (let _%again100568%_ () + (if (let ((__tmp101310 (let () (declare (not safe)) (##vector-cas! @@ -1420,33 +1243,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp101945 '0)) + (##fx= __tmp101310 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () - (declare (not safe)) - (_%again101173%_)))))) + (_%again100568%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id101158%_)) + _%klass-id100553%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id101164%_)) - (let ((_%prototype101184%_ - (let ((_%$e101177%_ - (let () - (declare (not safe)) - (prototype-table-ref - __interface-prototypes - __interface-prototypes-key - '#f)))) - (if _%$e101177%_ - ((lambda (_%prototype101180%_) + _%obj-klass-id100559%_)) + (let ((_%prototype100579%_ + (let ((_%$e100572%_ + (prototype-table-ref + __interface-prototypes + __interface-prototypes-key + '#f))) + (if _%$e100572%_ + ((lambda (_%prototype100575%_) (let () (declare (not safe)) (##vector-cas! @@ -1454,8 +1273,8 @@ '0 '0 '1)) - _%prototype101180%_) - _%$e101177%_) + _%prototype100575%_) + _%$e100572%_) (let () (let () (declare (not safe)) @@ -1464,13 +1283,11 @@ '0 '0 '1)) - (let () - (declare (not safe)) - (try-create-prototype - _%descriptor101149%_ - _%klass101155%_ - _%obj-klass101161%_))))))) - ((lambda (_%prototype101186%_ _%obj101187%_) - (if _%prototype101186%_ '#t '#f)) - _%prototype101184%_ - _%obj101151%_)))))))))) + (try-create-prototype + _%descriptor100544%_ + _%klass100550%_ + _%obj-klass100556%_)))))) + ((lambda (_%prototype100581%_ _%obj100582%_) + (if _%prototype100581%_ '#t '#f)) + _%prototype100579%_ + _%obj100546%_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/interface~1.scm b/src/bootstrap/gerbil/runtime/interface~1.scm index 2f4d9f796..f585a5aa0 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]#_g101947_| + (define |[1]#_g101312_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g101949_| + (define |[1]#_g101314_| (##structure gx#syntax-quote::t 'CastError::t #f (gx#current-expander-context) '())) - (define |[1]#_g101951_| + (define |[1]#_g101316_| (##structure gx#syntax-quote::t 'make-CastError #f (gx#current-expander-context) '())) - (define |[1]#_g101953_| + (define |[1]#_g101318_| (##structure gx#syntax-quote::t 'CastError? #f (gx#current-expander-context) '())) - (define |[1]#_g101955_| + (define |[1]#_g101320_| (##structure gx#syntax-quote::t 'CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g101956_| + (define |[1]#_g101321_| (##structure gx#syntax-quote::t 'CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g101957_| + (define |[1]#_g101322_| (##structure gx#syntax-quote::t 'CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g101958_| + (define |[1]#_g101323_| (##structure gx#syntax-quote::t 'CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g101960_| + (define |[1]#_g101325_| (##structure gx#syntax-quote::t 'CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g101961_| + (define |[1]#_g101326_| (##structure gx#syntax-quote::t 'CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g101962_| + (define |[1]#_g101327_| (##structure gx#syntax-quote::t 'CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g101963_| + (define |[1]#_g101328_| (##structure gx#syntax-quote::t 'CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g101965_| + (define |[1]#_g101330_| (##structure gx#syntax-quote::t '&CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g101966_| + (define |[1]#_g101331_| (##structure gx#syntax-quote::t '&CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g101967_| + (define |[1]#_g101332_| (##structure gx#syntax-quote::t '&CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g101968_| + (define |[1]#_g101333_| (##structure gx#syntax-quote::t '&CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g101970_| + (define |[1]#_g101335_| (##structure gx#syntax-quote::t '&CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g101971_| + (define |[1]#_g101336_| (##structure gx#syntax-quote::t '&CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g101972_| + (define |[1]#_g101337_| (##structure gx#syntax-quote::t '&CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g101973_| + (define |[1]#_g101338_| (##structure gx#syntax-quote::t '&CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g101975_| + (define |[1]#_g101340_| (##structure gx#syntax-quote::t 'interface-descriptor::t #f (gx#current-expander-context) '())) - (define |[1]#_g101977_| + (define |[1]#_g101342_| (##structure gx#syntax-quote::t 'make-interface-descriptor #f (gx#current-expander-context) '())) - (define |[1]#_g101979_| + (define |[1]#_g101344_| (##structure gx#syntax-quote::t 'interface-descriptor? #f (gx#current-expander-context) '())) - (define |[1]#_g101981_| + (define |[1]#_g101346_| (##structure gx#syntax-quote::t 'interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g101982_| + (define |[1]#_g101347_| (##structure gx#syntax-quote::t 'interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g101984_| + (define |[1]#_g101349_| (##structure gx#syntax-quote::t 'interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g101985_| + (define |[1]#_g101350_| (##structure gx#syntax-quote::t 'interface-descriptor-methods-set! #f (gx#current-expander-context) '())) - (define |[1]#_g101987_| + (define |[1]#_g101352_| (##structure gx#syntax-quote::t '&interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g101988_| + (define |[1]#_g101353_| (##structure gx#syntax-quote::t '&interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g101990_| + (define |[1]#_g101355_| (##structure gx#syntax-quote::t '&interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g101991_| + (define |[1]#_g101356_| (##structure gx#syntax-quote::t '&interface-descriptor-methods-set! @@ -219,7 +219,7 @@ '())) (begin (define |[:0:]#CastError| - (let ((__obj101866 + (let ((__obj101261 (let () (declare (not safe)) (##structure @@ -248,93 +248,93 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj101866 + __obj101261 'gerbil/runtime/interface#CastError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101866 'CastError '2 '#f '#f)) + (##unchecked-structure-set! __obj101261 'CastError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101866 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj101261 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj101866 + __obj101261 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp101946 (cons |[1]#_g101947_| '()))) + (let ((__tmp101311 (cons |[1]#_g101312_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj101866 __tmp101946 '3 '#f '#f)) + (##unchecked-structure-set! __obj101261 __tmp101311 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101866 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj101261 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101866 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj101261 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101866 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj101261 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101866 ':init! '11 '#f '#f)) - (let ((__tmp101948 |[1]#_g101949_|)) + (##unchecked-structure-set! __obj101261 ':init! '11 '#f '#f)) + (let ((__tmp101313 |[1]#_g101314_|)) (declare (not safe)) - (##unchecked-structure-set! __obj101866 __tmp101948 '12 '#f '#f)) - (let ((__tmp101950 |[1]#_g101951_|)) + (##unchecked-structure-set! __obj101261 __tmp101313 '12 '#f '#f)) + (let ((__tmp101315 |[1]#_g101316_|)) (declare (not safe)) - (##unchecked-structure-set! __obj101866 __tmp101950 '13 '#f '#f)) - (let ((__tmp101952 |[1]#_g101953_|)) + (##unchecked-structure-set! __obj101261 __tmp101315 '13 '#f '#f)) + (let ((__tmp101317 |[1]#_g101318_|)) (declare (not safe)) - (##unchecked-structure-set! __obj101866 __tmp101952 '14 '#f '#f)) - (let ((__tmp101954 - (cons (cons 'message |[1]#_g101955_|) - (cons (cons 'irritants |[1]#_g101956_|) - (cons (cons 'where |[1]#_g101957_|) - (cons (cons 'continuation |[1]#_g101958_|) + (##unchecked-structure-set! __obj101261 __tmp101317 '14 '#f '#f)) + (let ((__tmp101319 + (cons (cons 'message |[1]#_g101320_|) + (cons (cons 'irritants |[1]#_g101321_|) + (cons (cons 'where |[1]#_g101322_|) + (cons (cons 'continuation |[1]#_g101323_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj101866 __tmp101954 '15 '#f '#f)) - (let ((__tmp101959 - (cons (cons 'message |[1]#_g101960_|) - (cons (cons 'irritants |[1]#_g101961_|) - (cons (cons 'where |[1]#_g101962_|) - (cons (cons 'continuation |[1]#_g101963_|) + (##unchecked-structure-set! __obj101261 __tmp101319 '15 '#f '#f)) + (let ((__tmp101324 + (cons (cons 'message |[1]#_g101325_|) + (cons (cons 'irritants |[1]#_g101326_|) + (cons (cons 'where |[1]#_g101327_|) + (cons (cons 'continuation |[1]#_g101328_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj101866 __tmp101959 '16 '#f '#f)) - (let ((__tmp101964 - (cons (cons 'message |[1]#_g101965_|) - (cons (cons 'irritants |[1]#_g101966_|) - (cons (cons 'where |[1]#_g101967_|) - (cons (cons 'continuation |[1]#_g101968_|) + (##unchecked-structure-set! __obj101261 __tmp101324 '16 '#f '#f)) + (let ((__tmp101329 + (cons (cons 'message |[1]#_g101330_|) + (cons (cons 'irritants |[1]#_g101331_|) + (cons (cons 'where |[1]#_g101332_|) + (cons (cons 'continuation |[1]#_g101333_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj101866 __tmp101964 '17 '#f '#f)) - (let ((__tmp101969 - (cons (cons 'message |[1]#_g101970_|) - (cons (cons 'irritants |[1]#_g101971_|) - (cons (cons 'where |[1]#_g101972_|) - (cons (cons 'continuation |[1]#_g101973_|) + (##unchecked-structure-set! __obj101261 __tmp101329 '17 '#f '#f)) + (let ((__tmp101334 + (cons (cons 'message |[1]#_g101335_|) + (cons (cons 'irritants |[1]#_g101336_|) + (cons (cons 'where |[1]#_g101337_|) + (cons (cons 'continuation |[1]#_g101338_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj101866 __tmp101969 '18 '#f '#f)) + (##unchecked-structure-set! __obj101261 __tmp101334 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101866 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj101261 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101866 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj101261 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101866 '() '20 '#f '#f)) - __obj101866)) + (##unchecked-structure-set! __obj101261 '() '20 '#f '#f)) + __obj101261)) (define |[:0:]#interface-descriptor| - (let ((__obj101868 + (let ((__obj101263 (let () (declare (not safe)) (##structure @@ -363,7 +363,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj101868 + __obj101263 'gerbil/runtime/interface#interface-descriptor::t '1 '#f @@ -371,157 +371,157 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj101868 + __obj101263 'interface-descriptor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101868 '(type methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj101263 '(type methods) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101868 '(type methods) '6 '#f '#f)) + (##unchecked-structure-set! __obj101263 '(type methods) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101868 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj101263 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101868 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj101263 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101868 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj101263 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101868 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj101263 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101868 '#f '11 '#f '#f)) - (let ((__tmp101974 |[1]#_g101975_|)) + (##unchecked-structure-set! __obj101263 '#f '11 '#f '#f)) + (let ((__tmp101339 |[1]#_g101340_|)) (declare (not safe)) - (##unchecked-structure-set! __obj101868 __tmp101974 '12 '#f '#f)) - (let ((__tmp101976 |[1]#_g101977_|)) + (##unchecked-structure-set! __obj101263 __tmp101339 '12 '#f '#f)) + (let ((__tmp101341 |[1]#_g101342_|)) (declare (not safe)) - (##unchecked-structure-set! __obj101868 __tmp101976 '13 '#f '#f)) - (let ((__tmp101978 |[1]#_g101979_|)) + (##unchecked-structure-set! __obj101263 __tmp101341 '13 '#f '#f)) + (let ((__tmp101343 |[1]#_g101344_|)) (declare (not safe)) - (##unchecked-structure-set! __obj101868 __tmp101978 '14 '#f '#f)) - (let ((__tmp101980 - (cons (cons 'type |[1]#_g101981_|) - (cons (cons 'methods |[1]#_g101982_|) '())))) + (##unchecked-structure-set! __obj101263 __tmp101343 '14 '#f '#f)) + (let ((__tmp101345 + (cons (cons 'type |[1]#_g101346_|) + (cons (cons 'methods |[1]#_g101347_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj101868 __tmp101980 '15 '#f '#f)) - (let ((__tmp101983 - (cons (cons 'type |[1]#_g101984_|) - (cons (cons 'methods |[1]#_g101985_|) '())))) + (##unchecked-structure-set! __obj101263 __tmp101345 '15 '#f '#f)) + (let ((__tmp101348 + (cons (cons 'type |[1]#_g101349_|) + (cons (cons 'methods |[1]#_g101350_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj101868 __tmp101983 '16 '#f '#f)) - (let ((__tmp101986 - (cons (cons 'type |[1]#_g101987_|) - (cons (cons 'methods |[1]#_g101988_|) '())))) + (##unchecked-structure-set! __obj101263 __tmp101348 '16 '#f '#f)) + (let ((__tmp101351 + (cons (cons 'type |[1]#_g101352_|) + (cons (cons 'methods |[1]#_g101353_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj101868 __tmp101986 '17 '#f '#f)) - (let ((__tmp101989 - (cons (cons 'type |[1]#_g101990_|) - (cons (cons 'methods |[1]#_g101991_|) '())))) + (##unchecked-structure-set! __obj101263 __tmp101351 '17 '#f '#f)) + (let ((__tmp101354 + (cons (cons 'type |[1]#_g101355_|) + (cons (cons 'methods |[1]#_g101356_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj101868 __tmp101989 '18 '#f '#f)) + (##unchecked-structure-set! __obj101263 __tmp101354 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101868 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj101263 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101868 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj101263 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj101868 '() '20 '#f '#f)) - __obj101868)) + (##unchecked-structure-set! __obj101263 '() '20 '#f '#f)) + __obj101263)) (define |[:0:]#do-create-prototype| - (lambda (_%$stx100914%_) - (let* ((_%g100918100948%_ - (lambda (_%g100919100944%_) + (lambda (_%$stx100309%_) + (let* ((_%g100313100343%_ + (lambda (_%g100314100339%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g100919100944%_))) - (_%g100917101046%_ - (lambda (_%g100919100952%_) - (if (gx#stx-pair? _%g100919100952%_) - (let ((_%e100927100955%_ - (gx#syntax-e _%g100919100952%_))) - (let ((_%hd100926100959%_ + _%g100314100339%_))) + (_%g100312100441%_ + (lambda (_%g100314100347%_) + (if (gx#stx-pair? _%g100314100347%_) + (let ((_%e100322100350%_ + (gx#syntax-e _%g100314100347%_))) + (let ((_%hd100321100354%_ (let () (declare (not safe)) - (##car _%e100927100955%_))) - (_%tl100925100962%_ + (##car _%e100322100350%_))) + (_%tl100320100357%_ (let () (declare (not safe)) - (##cdr _%e100927100955%_)))) - (if (gx#stx-pair? _%tl100925100962%_) - (let ((_%e100930100965%_ - (gx#syntax-e _%tl100925100962%_))) - (let ((_%hd100929100969%_ + (##cdr _%e100322100350%_)))) + (if (gx#stx-pair? _%tl100320100357%_) + (let ((_%e100325100360%_ + (gx#syntax-e _%tl100320100357%_))) + (let ((_%hd100324100364%_ (let () (declare (not safe)) - (##car _%e100930100965%_))) - (_%tl100928100972%_ + (##car _%e100325100360%_))) + (_%tl100323100367%_ (let () (declare (not safe)) - (##cdr _%e100930100965%_)))) - (if (gx#stx-pair? _%tl100928100972%_) - (let ((_%e100933100975%_ - (gx#syntax-e _%tl100928100972%_))) - (let ((_%hd100932100979%_ + (##cdr _%e100325100360%_)))) + (if (gx#stx-pair? _%tl100323100367%_) + (let ((_%e100328100370%_ + (gx#syntax-e _%tl100323100367%_))) + (let ((_%hd100327100374%_ (let () (declare (not safe)) - (##car _%e100933100975%_))) - (_%tl100931100982%_ + (##car _%e100328100370%_))) + (_%tl100326100377%_ (let () (declare (not safe)) - (##cdr _%e100933100975%_)))) - (if (gx#stx-pair? _%tl100931100982%_) - (let ((_%e100936100985%_ + (##cdr _%e100328100370%_)))) + (if (gx#stx-pair? _%tl100326100377%_) + (let ((_%e100331100380%_ (gx#syntax-e - _%tl100931100982%_))) - (let ((_%hd100935100989%_ + _%tl100326100377%_))) + (let ((_%hd100330100384%_ (let () (declare (not safe)) - (##car _%e100936100985%_))) - (_%tl100934100992%_ + (##car _%e100331100380%_))) + (_%tl100329100387%_ (let () (declare (not safe)) - (##cdr _%e100936100985%_)))) + (##cdr _%e100331100380%_)))) (if (gx#stx-pair? - _%tl100934100992%_) - (let ((_%e100939100995%_ + _%tl100329100387%_) + (let ((_%e100334100390%_ (gx#syntax-e - _%tl100934100992%_))) - (let ((_%hd100938100999%_ + _%tl100329100387%_))) + (let ((_%hd100333100394%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e100939100995%_))) - (_%tl100937101002%_ + (##car _%e100334100390%_))) + (_%tl100332100397%_ (let () (declare (not safe)) - (##cdr _%e100939100995%_)))) - (if (gx#stx-pair? _%tl100937101002%_) - (let ((_%e100942101005%_ - (gx#syntax-e _%tl100937101002%_))) - (let ((_%hd100941101009%_ + (##cdr _%e100334100390%_)))) + (if (gx#stx-pair? _%tl100332100397%_) + (let ((_%e100337100400%_ + (gx#syntax-e _%tl100332100397%_))) + (let ((_%hd100336100404%_ (let () (declare (not safe)) - (##car _%e100942101005%_))) - (_%tl100940101012%_ + (##car _%e100337100400%_))) + (_%tl100335100407%_ (let () (declare (not safe)) - (##cdr _%e100942101005%_)))) - (if (gx#stx-null? _%tl100940101012%_) - ((lambda (_%L101015%_ - _%L101017%_ - _%L101018%_ - _%L101019%_ - _%L101020%_) + (##cdr _%e100337100400%_)))) + (if (gx#stx-null? _%tl100335100407%_) + ((lambda (_%L100410%_ + _%L100412%_ + _%L100413%_ + _%L100414%_ + _%L100415%_) (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 _%L101018%_ + (cons _%L100413%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -547,7 +547,7 @@ (cons (cons (gx#datum->syntax '#f '&interface-descriptor-methods) - (cons _%L101020%_ '())) + (cons _%L100415%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'count) (cons '0 '())) @@ -613,10 +613,10 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L101015%_ - (cons _%L101019%_ + (cons (cons _%L100410%_ + (cons _%L100414%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L101018%_ + (cons _%L100413%_ (cons (gx#datum->syntax '#f 'method-name) '())))) '())) @@ -635,7 +635,7 @@ (cons (cons (gx#datum->syntax '#f 'make-object) - (cons _%L101019%_ + (cons _%L100414%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L101019%_ + (cons _%L100414%_ (cons '#f '())))))) (cons (cons (gx#datum->syntax '#f 'loop) (cons (gx#datum->syntax '#f 'rest) @@ -710,9 +710,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##type-id) - (cons _%L101019%_ '())) + (cons _%L100414%_ '())) (cons (cons (gx#datum->syntax '#f '##type-id) - (cons _%L101018%_ '())) + (cons _%L100413%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -741,7 +741,7 @@ '#f '__interface-prototypes-mx) '())) - (cons (cons _%L101017%_ + (cons (cons _%L100412%_ (cons (gx#datum->syntax '#f 'prototype) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -757,85 +757,85 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd100941101009%_ - _%hd100938100999%_ - _%hd100935100989%_ - _%hd100932100979%_ - _%hd100929100969%_) - (_%g100918100948%_ _%g100919100952%_)))) - (_%g100918100948%_ _%g100919100952%_)))) - (_%g100918100948%_ _%g100919100952%_)))) + _%hd100336100404%_ + _%hd100333100394%_ + _%hd100330100384%_ + _%hd100327100374%_ + _%hd100324100364%_) + (_%g100313100343%_ _%g100314100347%_)))) + (_%g100313100343%_ _%g100314100347%_)))) + (_%g100313100343%_ _%g100314100347%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g100918100948%_ - _%g100919100952%_)))) - (_%g100918100948%_ _%g100919100952%_)))) - (_%g100918100948%_ _%g100919100952%_)))) - (_%g100918100948%_ _%g100919100952%_))))) - (_%g100917101046%_ _%$stx100914%_)))) + (_%g100313100343%_ + _%g100314100347%_)))) + (_%g100313100343%_ _%g100314100347%_)))) + (_%g100313100343%_ _%g100314100347%_)))) + (_%g100313100343%_ _%g100314100347%_))))) + (_%g100312100441%_ _%$stx100309%_)))) (define |[:0:]#defcast| - (lambda (_%$stx101050%_) - (let* ((_%g101054101076%_ - (lambda (_%g101055101072%_) + (lambda (_%$stx100445%_) + (let* ((_%g100449100471%_ + (lambda (_%g100450100467%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g101055101072%_))) - (_%g101053101145%_ - (lambda (_%g101055101080%_) - (if (gx#stx-pair? _%g101055101080%_) - (let ((_%e101061101083%_ - (gx#syntax-e _%g101055101080%_))) - (let ((_%hd101060101087%_ + _%g100450100467%_))) + (_%g100448100540%_ + (lambda (_%g100450100475%_) + (if (gx#stx-pair? _%g100450100475%_) + (let ((_%e100456100478%_ + (gx#syntax-e _%g100450100475%_))) + (let ((_%hd100455100482%_ (let () (declare (not safe)) - (##car _%e101061101083%_))) - (_%tl101059101090%_ + (##car _%e100456100478%_))) + (_%tl100454100485%_ (let () (declare (not safe)) - (##cdr _%e101061101083%_)))) - (if (gx#stx-pair? _%tl101059101090%_) - (let ((_%e101064101093%_ - (gx#syntax-e _%tl101059101090%_))) - (let ((_%hd101063101097%_ + (##cdr _%e100456100478%_)))) + (if (gx#stx-pair? _%tl100454100485%_) + (let ((_%e100459100488%_ + (gx#syntax-e _%tl100454100485%_))) + (let ((_%hd100458100492%_ (let () (declare (not safe)) - (##car _%e101064101093%_))) - (_%tl101062101100%_ + (##car _%e100459100488%_))) + (_%tl100457100495%_ (let () (declare (not safe)) - (##cdr _%e101064101093%_)))) - (if (gx#stx-pair? _%tl101062101100%_) - (let ((_%e101067101103%_ - (gx#syntax-e _%tl101062101100%_))) - (let ((_%hd101066101107%_ + (##cdr _%e100459100488%_)))) + (if (gx#stx-pair? _%tl100457100495%_) + (let ((_%e100462100498%_ + (gx#syntax-e _%tl100457100495%_))) + (let ((_%hd100461100502%_ (let () (declare (not safe)) - (##car _%e101067101103%_))) - (_%tl101065101110%_ + (##car _%e100462100498%_))) + (_%tl100460100505%_ (let () (declare (not safe)) - (##cdr _%e101067101103%_)))) - (if (gx#stx-pair? _%tl101065101110%_) - (let ((_%e101070101113%_ + (##cdr _%e100462100498%_)))) + (if (gx#stx-pair? _%tl100460100505%_) + (let ((_%e100465100508%_ (gx#syntax-e - _%tl101065101110%_))) - (let ((_%hd101069101117%_ + _%tl100460100505%_))) + (let ((_%hd100464100512%_ (let () (declare (not safe)) - (##car _%e101070101113%_))) - (_%tl101068101120%_ + (##car _%e100465100508%_))) + (_%tl100463100515%_ (let () (declare (not safe)) - (##cdr _%e101070101113%_)))) + (##cdr _%e100465100508%_)))) (if (gx#stx-null? - _%tl101068101120%_) - ((lambda (_%L101123%_ - _%L101125%_ - _%L101126%_) + _%tl100463100515%_) + ((lambda (_%L100518%_ + _%L100520%_ + _%L100521%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L101126%_ + (cons (cons _%L100521%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'descriptor) (cons (gx#datum->syntax '#f 'obj) @@ -905,7 +905,7 @@ '#f 'obj-klass) '())) - (cons (cons _%L101126%_ + (cons (cons _%L100521%_ (cons (gx#datum->syntax '#f 'descriptor) @@ -982,7 +982,7 @@ '#f '__interface-prototypes-mx) '())) - (cons (cons _%L101125%_ + (cons (cons _%L100520%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -994,7 +994,7 @@ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L101123%_ + (cons (cons _%L100518%_ (cons (gx#datum->syntax '#f 'prototype) @@ -1011,14 +1011,14 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd101069101117%_ - _%hd101066101107%_ - _%hd101063101097%_) - (_%g101054101076%_ _%g101055101080%_)))) + _%hd100464100512%_ + _%hd100461100502%_ + _%hd100458100492%_) + (_%g100449100471%_ _%g100450100475%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g101054101076%_ - _%g101055101080%_)))) - (_%g101054101076%_ _%g101055101080%_)))) - (_%g101054101076%_ _%g101055101080%_)))) - (_%g101054101076%_ _%g101055101080%_))))) - (_%g101053101145%_ _%$stx101050%_)))))) + (_%g100449100471%_ + _%g100450100475%_)))) + (_%g100449100471%_ _%g100450100475%_)))) + (_%g100449100471%_ _%g100450100475%_)))) + (_%g100449100471%_ _%g100450100475%_))))) + (_%g100448100540%_ _%$stx100445%_)))))) diff --git a/src/bootstrap/gerbil/runtime/loader.ssxi.ss b/src/bootstrap/gerbil/runtime/loader.ssxi.ss index 1e12d1ac8..308f159c6 100644 --- a/src/bootstrap/gerbil/runtime/loader.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/loader.ssxi.ss @@ -2,19 +2,54 @@ prelude: :gerbil/compiler/ssxi package: gerbil/runtime (begin + (declare-type + __modules + (optimizer-resolve-class '(typedecl __modules) 't::t)) (declare-type load-path (@lambda 0 #f signature: - (return: null::t effect: #f arguments: #f unchecked: #f))) + (return: + null::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/loader))) (declare-type add-load-path! (@lambda (0) #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) - (declare-type set-load-path! (@lambda 1 #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/loader))) + (declare-type + set-load-path! + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/loader))) (declare-type load-module (@lambda 1 @@ -27,13 +62,24 @@ package: gerbil/runtime arguments: (string::t) unchecked: - __load-module))) + __load-module + origin: + gerbil/runtime/loader))) (declare-type __load-module (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/loader))) (declare-type reload-module! (@lambda 1 @@ -46,11 +92,36 @@ package: gerbil/runtime arguments: (string::t) unchecked: - __reload-module!))) + __reload-module! + origin: + gerbil/runtime/loader))) (declare-type __reload-module! (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type __find-library-module (@lambda 1 #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/loader))) + (declare-type + __find-library-module + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/loader)))) diff --git a/src/bootstrap/gerbil/runtime/loader~0.scm b/src/bootstrap/gerbil/runtime/loader~0.scm index 607454a61..f8009c6c7 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 1712533289) + (define gerbil/runtime/loader::timestamp 1712573430) (begin (define __modules (let () @@ -18,210 +18,183 @@ (define __load-path '()) (define load-path (lambda () __load-path)) (define add-load-path! - (lambda _%paths112102%_ - (if (let () (declare (not safe)) (__andmap1 string? _%paths112102%_)) + (lambda _%paths111350%_ + (if (let () (declare (not safe)) (__andmap1 string? _%paths111350%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths112102%_))) - (let ((__tmp112107 - (lambda (_%p112104%_) - (set! __load-path (cons _%p112104%_ __load-path)))) - (__tmp112106 (reverse! _%paths112102%_))) + _%paths111350%_))) + (let ((__tmp111355 + (lambda (_%p111352%_) + (set! __load-path (cons _%p111352%_ __load-path)))) + (__tmp111354 (reverse! _%paths111350%_))) (declare (not safe)) - (##for-each __tmp112107 __tmp112106)))) + (##for-each __tmp111355 __tmp111354)))) (define set-load-path! - (lambda (_%paths112100%_) - (if (and (let () (declare (not safe)) (list? _%paths112100%_)) + (lambda (_%paths111348%_) + (if (and (list? _%paths111348%_) (let () (declare (not safe)) - (__andmap1 string? _%paths112100%_))) + (__andmap1 string? _%paths111348%_))) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths112100%_))) - (set! __load-path _%paths112100%_))) + _%paths111348%_))) + (set! __load-path _%paths111348%_))) (define load-module - (lambda (_%modpath112086%_) - (let () - (if (let () (declare (not safe)) (string? _%modpath112086%_)) - (let ((_%modpath112090%_ _%modpath112086%_)) - (declare (not safe)) - (__load-module _%modpath112090%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/loader.ss\"@28.20-28.27" - 'contract: - 'string? - 'value: - _%modpath112086%_) - '#!void))))) + (lambda (_%modpath111334%_) + (if (string? _%modpath111334%_) + (let ((_%modpath111338%_ _%modpath111334%_)) + (__load-module _%modpath111338%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/loader.ss\"@28.20-28.27" + 'contract: + 'string? + 'value: + _%modpath111334%_) + '#!void)))) (define __load-module - (lambda (_%modpath112063%_) - (let () - (let* ((_%modpath112066%_ _%modpath112063%_) - (_%$e112075%_ - (let () - (declare (not safe)) - (hash-get __modules _%modpath112066%_)))) - (if _%$e112075%_ - _%$e112075%_ - (let ((_%$e112078%_ - (let () - (declare (not safe)) - (__find-library-module _%modpath112066%_)))) - (if _%$e112078%_ - ((lambda (_%path112081%_) - (let ((_%loaded-path112083%_ (load _%path112081%_))) - (let () - (declare (not safe)) - (hash-put! - __modules - _%modpath112066%_ - _%loaded-path112083%_)) - _%loaded-path112083%_)) - _%$e112078%_) - (let () - (declare (not safe)) - (error '"module not found" _%modpath112066%_))))))))) + (lambda (_%modpath111311%_) + (let* ((_%modpath111314%_ _%modpath111311%_) + (_%$e111323%_ + (let () + (declare (not safe)) + (hash-get __modules _%modpath111314%_)))) + (if _%$e111323%_ + _%$e111323%_ + (let ((_%$e111326%_ (__find-library-module _%modpath111314%_))) + (if _%$e111326%_ + ((lambda (_%path111329%_) + (let ((_%loaded-path111331%_ (load _%path111329%_))) + (let () + (declare (not safe)) + (hash-put! + __modules + _%modpath111314%_ + _%loaded-path111331%_)) + _%loaded-path111331%_)) + _%$e111326%_) + (let () + (declare (not safe)) + (error '"module not found" _%modpath111314%_)))))))) (define reload-module! - (lambda (_%modpath112049%_) - (let () - (if (let () (declare (not safe)) (string? _%modpath112049%_)) - (let ((_%modpath112053%_ _%modpath112049%_)) - (declare (not safe)) - (__reload-module! _%modpath112053%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/loader.ss\"@39.23-39.30" - 'contract: - 'string? - 'value: - _%modpath112049%_) - '#!void))))) + (lambda (_%modpath111297%_) + (if (string? _%modpath111297%_) + (let ((_%modpath111301%_ _%modpath111297%_)) + (__reload-module! _%modpath111301%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/loader.ss\"@39.23-39.30" + 'contract: + 'string? + 'value: + _%modpath111297%_) + '#!void)))) (define __reload-module! - (lambda (_%modpath112023%_) - (let () - (let* ((_%modpath112026%_ _%modpath112023%_) - (_%$e112036%_ - (let () - (declare (not safe)) - (hash-get __modules _%modpath112026%_)))) - (if _%$e112036%_ - ((lambda (_%current-path112039%_) - (if (eq? _%current-path112039%_ 'builtin) - (let ((_%latest-path112041%_ - (let () - (declare (not safe)) - (__find-library-module _%modpath112026%_)))) - (if (or (equal? (path-extension - _%current-path112039%_) - '".scm") - (let ((__tmp112108 - (equal? _%current-path112039%_ - _%latest-path112041%_))) - (declare (not safe)) - (not __tmp112108))) - (let ((_%loaded-path112046%_ - (load _%modpath112026%_))) - (let () - (declare (not safe)) - (hash-put! - __modules - _%modpath112026%_ - _%loaded-path112046%_)) - _%loaded-path112046%_) - '#!void)) - (let () - (declare (not safe)) - (error '"cannot reload builtin module" - _%modpath112026%_)))) - _%$e112036%_) + (lambda (_%modpath111271%_) + (let* ((_%modpath111274%_ _%modpath111271%_) + (_%$e111284%_ (let () (declare (not safe)) - (__load-module _%modpath112026%_))))))) + (hash-get __modules _%modpath111274%_)))) + (if _%$e111284%_ + ((lambda (_%current-path111287%_) + (if (eq? _%current-path111287%_ 'builtin) + (let ((_%latest-path111289%_ + (__find-library-module _%modpath111274%_))) + (if (or (equal? (path-extension _%current-path111287%_) + '".scm") + (not (equal? _%current-path111287%_ + _%latest-path111289%_))) + (let ((_%loaded-path111294%_ + (load _%modpath111274%_))) + (let () + (declare (not safe)) + (hash-put! + __modules + _%modpath111274%_ + _%loaded-path111294%_)) + _%loaded-path111294%_) + '#!void)) + (let () + (declare (not safe)) + (error '"cannot reload builtin module" + _%modpath111274%_)))) + _%$e111284%_) + (__load-module _%modpath111274%_))))) (define __find-library-module - (lambda (_%modpath111957%_) - (letrec ((_%find-compiled-file111959%_ - (lambda (_%npath112012%_) - (let ((_%basepath112014%_ + (lambda (_%modpath111205%_) + (letrec ((_%find-compiled-file111207%_ + (lambda (_%npath111260%_) + (let ((_%basepath111262%_ (let () (declare (not safe)) - (##string-append _%npath112012%_ '".o")))) - (let _%lp112016%_ ((_%current112018%_ '#f) - (_%n112019%_ '1)) - (let ((_%next112021%_ - (let ((__tmp112109 - (number->string _%n112019%_))) + (##string-append _%npath111260%_ '".o")))) + (let _%lp111264%_ ((_%current111266%_ '#f) + (_%n111267%_ '1)) + (let ((_%next111269%_ + (let ((__tmp111356 + (number->string _%n111267%_))) (declare (not safe)) (##string-append - _%basepath112014%_ - __tmp112109)))) + _%basepath111262%_ + __tmp111356)))) (if (let () (declare (not safe)) - (##file-exists? _%next112021%_)) - (let ((__tmp112110 - (let () - (declare (not safe)) - (##fx+ _%n112019%_ '1)))) - (declare (not safe)) - (_%lp112016%_ _%next112021%_ __tmp112110)) - _%current112018%_)))))) - (_%find-source-file111960%_ - (lambda (_%npath112008%_) - (let ((_%spath112010%_ + (##file-exists? _%next111269%_)) + (_%lp111264%_ + _%next111269%_ + (let () + (declare (not safe)) + (##fx+ _%n111267%_ '1))) + _%current111266%_)))))) + (_%find-source-file111208%_ + (lambda (_%npath111256%_) + (let ((_%spath111258%_ (let () (declare (not safe)) - (##string-append _%npath112008%_ '".scm")))) + (##string-append _%npath111256%_ '".scm")))) (if (let () (declare (not safe)) - (##file-exists? _%spath112010%_)) - _%spath112010%_ + (##file-exists? _%spath111258%_)) + _%spath111258%_ '#f))))) - (let _%lp111962%_ ((_%rest111964%_ - (let () (declare (not safe)) (load-path)))) - (let* ((_%rest111965111973%_ _%rest111964%_) - (_%else111967111981%_ (lambda () '#f)) - (_%K111969111996%_ - (lambda (_%rest111984%_ _%dir111985%_) - (let* ((_%npath111987%_ + (let _%lp111210%_ ((_%rest111212%_ (load-path))) + (let* ((_%rest111213111221%_ _%rest111212%_) + (_%else111215111229%_ (lambda () '#f)) + (_%K111217111244%_ + (lambda (_%rest111232%_ _%dir111233%_) + (let* ((_%npath111235%_ (path-expand - _%modpath111957%_ - (path-expand _%dir111985%_))) - (_%$e111989%_ - (let () - (declare (not safe)) - (_%find-compiled-file111959%_ - _%npath111987%_)))) - (if _%$e111989%_ - (path-normalize _%$e111989%_) - (let ((_%$e111992%_ - (let () - (declare (not safe)) - (_%find-source-file111960%_ - _%npath111987%_)))) - (if _%$e111992%_ - (path-normalize _%$e111992%_) - (let () - (declare (not safe)) - (_%lp111962%_ _%rest111984%_))))))))) - (if (let () (declare (not safe)) (##pair? _%rest111965111973%_)) - (let ((_%hd111970111999%_ + _%modpath111205%_ + (path-expand _%dir111233%_))) + (_%$e111237%_ + (_%find-compiled-file111207%_ _%npath111235%_))) + (if _%$e111237%_ + (path-normalize _%$e111237%_) + (let ((_%$e111240%_ + (_%find-source-file111208%_ + _%npath111235%_))) + (if _%$e111240%_ + (path-normalize _%$e111240%_) + (_%lp111210%_ _%rest111232%_)))))))) + (if (let () (declare (not safe)) (##pair? _%rest111213111221%_)) + (let ((_%hd111218111247%_ (let () (declare (not safe)) - (##car _%rest111965111973%_))) - (_%tl111971112001%_ + (##car _%rest111213111221%_))) + (_%tl111219111249%_ (let () (declare (not safe)) - (##cdr _%rest111965111973%_)))) - (let* ((_%dir112004%_ _%hd111970111999%_) - (_%rest112006%_ _%tl111971112001%_)) - (declare (not safe)) - (_%K111969111996%_ _%rest112006%_ _%dir112004%_))) - (let () (declare (not safe)) (_%else111967111981%_)))))))))) + (##cdr _%rest111213111221%_)))) + (let* ((_%dir111252%_ _%hd111218111247%_) + (_%rest111254%_ _%tl111219111249%_)) + (_%K111217111244%_ _%rest111254%_ _%dir111252%_))) + (_%else111215111229%_))))))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm index b2ed88d6d..8b60232c2 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 1712533288) + (define gerbil/runtime/mop-system-classes::timestamp 1712573429) (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 ((__tmp98646 (cons immediate::t '()))) + (let ((__tmp98247 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'char __tmp98646))) + (__make-system-class 'char __tmp98247))) (define boolean::t - (let ((__tmp98647 (cons immediate::t '()))) + (let ((__tmp98248 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'boolean __tmp98647))) + (__make-system-class 'boolean __tmp98248))) (define atom::t - (let ((__tmp98648 (cons immediate::t '()))) + (let ((__tmp98249 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'atom __tmp98648))) + (__make-system-class 'atom __tmp98249))) (define void::t - (let ((__tmp98649 (cons atom::t '()))) + (let ((__tmp98250 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'void __tmp98649))) + (__make-system-class 'void __tmp98250))) (define eof::t - (let ((__tmp98650 (cons atom::t '()))) + (let ((__tmp98251 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'eof __tmp98650))) + (__make-system-class 'eof __tmp98251))) (define true::t - (let ((__tmp98651 (cons boolean::t (cons atom::t '())))) + (let ((__tmp98252 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'true __tmp98651))) + (__make-system-class 'true __tmp98252))) (define false::t - (let ((__tmp98652 (cons boolean::t (cons atom::t '())))) + (let ((__tmp98253 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'false __tmp98652))) + (__make-system-class 'false __tmp98253))) (define special::t - (let ((__tmp98653 (cons atom::t '()))) + (let ((__tmp98254 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'special __tmp98653))) + (__make-system-class 'special __tmp98254))) (define number::t (let () (declare (not safe)) (__make-system-class 'number '()))) (define real::t - (let ((__tmp98654 (cons number::t '()))) + (let ((__tmp98255 (cons number::t '()))) (declare (not safe)) - (__make-system-class 'real __tmp98654))) + (__make-system-class 'real __tmp98255))) (define integer::t - (let ((__tmp98655 (cons real::t '()))) + (let ((__tmp98256 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'integer __tmp98655))) + (__make-system-class 'integer __tmp98256))) (define fixnum::t - (let ((__tmp98656 (cons integer::t (cons immediate::t '())))) + (let ((__tmp98257 (cons integer::t (cons immediate::t '())))) (declare (not safe)) - (__make-system-class 'fixnum __tmp98656))) + (__make-system-class 'fixnum __tmp98257))) (define bignum::t - (let ((__tmp98657 (cons integer::t '()))) + (let ((__tmp98258 (cons integer::t '()))) (declare (not safe)) - (__make-system-class 'bignum __tmp98657))) + (__make-system-class 'bignum __tmp98258))) (define ratnum::t - (let ((__tmp98658 (cons real::t '()))) + (let ((__tmp98259 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'ratnum __tmp98658))) + (__make-system-class 'ratnum __tmp98259))) (define flonum::t - (let ((__tmp98659 (cons real::t '()))) + (let ((__tmp98260 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'flonum __tmp98659))) + (__make-system-class 'flonum __tmp98260))) (define cpxnum::t - (let ((__tmp98660 (cons number::t '()))) + (let ((__tmp98261 (cons number::t '()))) (declare (not safe)) - (__make-system-class 'cpxnum __tmp98660))) + (__make-system-class 'cpxnum __tmp98261))) (define symbolic::t (let () (declare (not safe)) (__make-system-class 'symbolic '()))) (define symbol::t - (let ((__tmp98661 (cons symbolic::t '()))) + (let ((__tmp98262 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'symbol __tmp98661))) + (__make-system-class 'symbol __tmp98262))) (define keyword::t - (let ((__tmp98662 (cons symbolic::t '()))) + (let ((__tmp98263 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'keyword __tmp98662))) + (__make-system-class 'keyword __tmp98263))) (define list::t (let () (declare (not safe)) (__make-system-class 'list '()))) (define pair::t - (let ((__tmp98663 (cons list::t '()))) + (let ((__tmp98264 (cons list::t '()))) (declare (not safe)) - (__make-system-class 'pair __tmp98663))) + (__make-system-class 'pair __tmp98264))) (define null::t - (let ((__tmp98664 (cons list::t (cons atom::t '())))) + (let ((__tmp98265 (cons list::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'null __tmp98664))) + (__make-system-class 'null __tmp98265))) (define sequence::t (let () (declare (not safe)) (__make-system-class 'sequence '()))) (define vector::t - (let ((__tmp98665 (cons sequence::t '()))) + (let ((__tmp98266 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'vector __tmp98665))) + (__make-system-class 'vector __tmp98266))) (define string::t - (let ((__tmp98666 (cons sequence::t '()))) + (let ((__tmp98267 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'string __tmp98666))) + (__make-system-class 'string __tmp98267))) (define hvector::t - (let ((__tmp98667 (cons sequence::t '()))) + (let ((__tmp98268 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'hvector __tmp98667))) + (__make-system-class 'hvector __tmp98268))) (define u8vector::t - (let ((__tmp98668 (cons hvector::t '()))) + (let ((__tmp98269 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u8vector __tmp98668))) + (__make-system-class 'u8vector __tmp98269))) (define s8vector::t - (let ((__tmp98669 (cons hvector::t '()))) + (let ((__tmp98270 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's8vector __tmp98669))) + (__make-system-class 's8vector __tmp98270))) (define u16vector::t - (let ((__tmp98670 (cons hvector::t '()))) + (let ((__tmp98271 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u16vector __tmp98670))) + (__make-system-class 'u16vector __tmp98271))) (define s16vector::t - (let ((__tmp98671 (cons hvector::t '()))) + (let ((__tmp98272 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's16vector __tmp98671))) + (__make-system-class 's16vector __tmp98272))) (define u32vector::t - (let ((__tmp98672 (cons hvector::t '()))) + (let ((__tmp98273 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u32vector __tmp98672))) + (__make-system-class 'u32vector __tmp98273))) (define s32vector::t - (let ((__tmp98673 (cons hvector::t '()))) + (let ((__tmp98274 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's32vector __tmp98673))) + (__make-system-class 's32vector __tmp98274))) (define u64vector::t - (let ((__tmp98674 (cons hvector::t '()))) + (let ((__tmp98275 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u64vector __tmp98674))) + (__make-system-class 'u64vector __tmp98275))) (define s64vector::t - (let ((__tmp98675 (cons hvector::t '()))) + (let ((__tmp98276 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's64vector __tmp98675))) + (__make-system-class 's64vector __tmp98276))) (define f32vector::t - (let ((__tmp98676 (cons hvector::t '()))) + (let ((__tmp98277 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f32vector __tmp98676))) + (__make-system-class 'f32vector __tmp98277))) (define f64vector::t - (let ((__tmp98677 (cons hvector::t '()))) + (let ((__tmp98278 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f64vector __tmp98677))) + (__make-system-class 'f64vector __tmp98278))) (define values::t (let () (declare (not safe)) (__make-system-class 'values '()))) (define box::t @@ -207,343 +207,293 @@ (define return::t (let () (declare (not safe)) (__make-system-class 'return '()))) (define time::t - (let ((__tmp98678 (macro-type-time))) + (let ((__tmp98279 (macro-type-time))) (declare (not safe)) - (__shadow-class __tmp98678))) + (__shadow-class __tmp98279))) (define thread::t - (let ((__tmp98679 (macro-type-thread))) + (let ((__tmp98280 (macro-type-thread))) (declare (not safe)) - (__shadow-class __tmp98679))) + (__shadow-class __tmp98280))) (define thread-group::t - (let ((__tmp98680 (macro-type-tgroup))) + (let ((__tmp98281 (macro-type-tgroup))) (declare (not safe)) - (__shadow-class __tmp98680))) + (__shadow-class __tmp98281))) (define mutex::t - (let ((__tmp98681 (macro-type-mutex))) + (let ((__tmp98282 (macro-type-mutex))) (declare (not safe)) - (__shadow-class __tmp98681))) + (__shadow-class __tmp98282))) (define condvar::t - (let ((__tmp98682 (macro-type-condvar))) + (let ((__tmp98283 (macro-type-condvar))) (declare (not safe)) - (__shadow-class __tmp98682))) + (__shadow-class __tmp98283))) (define port::t - (let ((__tmp98683 (macro-type-port))) + (let ((__tmp98284 (macro-type-port))) (declare (not safe)) - (__shadow-class __tmp98683))) + (__shadow-class __tmp98284))) (define object-port::t - (let ((__tmp98684 (macro-type-object-port))) + (let ((__tmp98285 (macro-type-object-port))) (declare (not safe)) - (__shadow-class __tmp98684))) + (__shadow-class __tmp98285))) (define character-port::t - (let ((__tmp98685 (macro-type-character-port))) + (let ((__tmp98286 (macro-type-character-port))) (declare (not safe)) - (__shadow-class __tmp98685))) + (__shadow-class __tmp98286))) (define byte-port::t - (let ((__tmp98686 (macro-type-byte-port))) + (let ((__tmp98287 (macro-type-byte-port))) (declare (not safe)) - (__shadow-class __tmp98686))) + (__shadow-class __tmp98287))) (define device-port::t - (let ((__tmp98687 (macro-type-device-port))) + (let ((__tmp98288 (macro-type-device-port))) (declare (not safe)) - (__shadow-class __tmp98687))) + (__shadow-class __tmp98288))) (define vector-port::t - (let ((__tmp98688 (macro-type-vector-port))) + (let ((__tmp98289 (macro-type-vector-port))) (declare (not safe)) - (__shadow-class __tmp98688))) + (__shadow-class __tmp98289))) (define string-port::t - (let ((__tmp98689 (macro-type-string-port))) + (let ((__tmp98290 (macro-type-string-port))) (declare (not safe)) - (__shadow-class __tmp98689))) + (__shadow-class __tmp98290))) (define u8vector-port::t - (let ((__tmp98690 (macro-type-u8vector-port))) + (let ((__tmp98291 (macro-type-u8vector-port))) (declare (not safe)) - (__shadow-class __tmp98690))) + (__shadow-class __tmp98291))) (define raw-device-port::t - (let ((__tmp98691 (macro-type-raw-device-port))) + (let ((__tmp98292 (macro-type-raw-device-port))) (declare (not safe)) - (__shadow-class __tmp98691))) + (__shadow-class __tmp98292))) (define tcp-server-port::t - (let ((__tmp98692 (macro-type-tcp-server-port))) + (let ((__tmp98293 (macro-type-tcp-server-port))) (declare (not safe)) - (__shadow-class __tmp98692))) + (__shadow-class __tmp98293))) (define udp-port::t - (let ((__tmp98693 (macro-type-udp-port))) + (let ((__tmp98294 (macro-type-udp-port))) (declare (not safe)) - (__shadow-class __tmp98693))) + (__shadow-class __tmp98294))) (define directory-port::t - (let ((__tmp98694 (macro-type-directory-port))) + (let ((__tmp98295 (macro-type-directory-port))) (declare (not safe)) - (__shadow-class __tmp98694))) + (__shadow-class __tmp98295))) (define event-queue-port::t - (let ((__tmp98695 (macro-type-event-queue-port))) + (let ((__tmp98296 (macro-type-event-queue-port))) (declare (not safe)) - (__shadow-class __tmp98695))) + (__shadow-class __tmp98296))) (define table::t - (let ((__tmp98696 (macro-type-table))) + (let ((__tmp98297 (macro-type-table))) (declare (not safe)) - (__shadow-class __tmp98696))) + (__shadow-class __tmp98297))) (define readenv::t - (let ((__tmp98697 (macro-type-readenv))) + (let ((__tmp98298 (macro-type-readenv))) (declare (not safe)) - (__shadow-class __tmp98697))) + (__shadow-class __tmp98298))) (define writeenv::t - (let ((__tmp98698 (macro-type-writeenv))) + (let ((__tmp98299 (macro-type-writeenv))) (declare (not safe)) - (__shadow-class __tmp98698))) + (__shadow-class __tmp98299))) (define readtable::t - (let ((__tmp98699 (macro-type-readtable))) + (let ((__tmp98300 (macro-type-readtable))) (declare (not safe)) - (__shadow-class __tmp98699))) + (__shadow-class __tmp98300))) (define processor::t - (let ((__tmp98700 (macro-type-processor))) + (let ((__tmp98301 (macro-type-processor))) (declare (not safe)) - (__shadow-class __tmp98700))) + (__shadow-class __tmp98301))) (define vm::t - (let ((__tmp98701 (macro-type-vm))) + (let ((__tmp98302 (macro-type-vm))) (declare (not safe)) - (__shadow-class __tmp98701))) + (__shadow-class __tmp98302))) (define file-info::t - (let ((__tmp98702 (macro-type-file-info))) + (let ((__tmp98303 (macro-type-file-info))) (declare (not safe)) - (__shadow-class __tmp98702))) + (__shadow-class __tmp98303))) (define socket-info::t - (let ((__tmp98703 (macro-type-socket-info))) + (let ((__tmp98304 (macro-type-socket-info))) (declare (not safe)) - (__shadow-class __tmp98703))) + (__shadow-class __tmp98304))) (define address-info::t - (let ((__tmp98704 (macro-type-address-info))) + (let ((__tmp98305 (macro-type-address-info))) (declare (not safe)) - (__shadow-class __tmp98704))) + (__shadow-class __tmp98305))) (define atom? - (lambda (_%obj98645%_) - (if (let () (declare (not safe)) (immediate? _%obj98645%_)) - (if (let ((__tmp98705 - (let () (declare (not safe)) (char? _%obj98645%_)))) - (declare (not safe)) - (not __tmp98705)) - (let ((__tmp98706 - (let () (declare (not safe)) (fixnum? _%obj98645%_)))) - (declare (not safe)) - (not __tmp98706)) - '#f) + (lambda (_%obj98246%_) + (if (let () (declare (not safe)) (immediate? _%obj98246%_)) + (if (not (char? _%obj98246%_)) (not (fixnum? _%obj98246%_)) '#f) '#f))) (define special? - (lambda (_%obj98643%_) - (if (let ((__tmp98707 - (let () (declare (not safe)) (##type _%obj98643%_)))) + (lambda (_%obj98244%_) + (if (let ((__tmp98306 + (let () (declare (not safe)) (##type _%obj98244%_)))) (declare (not safe)) - (##fx= __tmp98707 '2)) - (if (let ((__tmp98708 - (let () (declare (not safe)) (char? _%obj98643%_)))) - (declare (not safe)) - (not __tmp98708)) - (if (let ((__tmp98709 - (let () (declare (not safe)) (null? _%obj98643%_)))) - (declare (not safe)) - (not __tmp98709)) - (if (let ((__tmp98710 - (let () - (declare (not safe)) - (boolean? _%obj98643%_)))) - (declare (not safe)) - (not __tmp98710)) - (if (let ((__tmp98711 - (let () - (declare (not safe)) - (eq? _%obj98643%_ '#!void)))) - (declare (not safe)) - (not __tmp98711)) - (let ((__tmp98712 - (let () - (declare (not safe)) - (eof-object? _%obj98643%_)))) - (declare (not safe)) - (not __tmp98712)) + (##fx= __tmp98306 '2)) + (if (not (char? _%obj98244%_)) + (if (not (null? _%obj98244%_)) + (if (not (boolean? _%obj98244%_)) + (if (not (eq? _%obj98244%_ '#!void)) + (not (eof-object? _%obj98244%_)) '#f) '#f) '#f) '#f) '#f))) (define sequence? - (lambda (_%obj98635%_) - (let ((_%$e98637%_ - (let () (declare (not safe)) (vector? _%obj98635%_)))) - (if _%$e98637%_ - _%$e98637%_ - (let ((_%$e98640%_ - (let () (declare (not safe)) (string? _%obj98635%_)))) - (if _%$e98640%_ - _%$e98640%_ - (let () (declare (not safe)) (hvector? _%obj98635%_)))))))) + (lambda (_%obj98236%_) + (let ((_%$e98238%_ (vector? _%obj98236%_))) + (if _%$e98238%_ + _%$e98238%_ + (let ((_%$e98241%_ (string? _%obj98236%_))) + (if _%$e98241%_ _%$e98241%_ (hvector? _%obj98236%_))))))) (define hvector? - (lambda (_%obj98606%_) - (let ((_%$e98608%_ - (let () (declare (not safe)) (u8vector? _%obj98606%_)))) - (if _%$e98608%_ - _%$e98608%_ - (let ((_%$e98611%_ - (let () (declare (not safe)) (s8vector? _%obj98606%_)))) - (if _%$e98611%_ - _%$e98611%_ - (let ((_%$e98614%_ - (let () - (declare (not safe)) - (u16vector? _%obj98606%_)))) - (if _%$e98614%_ - _%$e98614%_ - (let ((_%$e98617%_ - (let () - (declare (not safe)) - (s16vector? _%obj98606%_)))) - (if _%$e98617%_ - _%$e98617%_ - (let ((_%$e98620%_ - (let () - (declare (not safe)) - (u32vector? _%obj98606%_)))) - (if _%$e98620%_ - _%$e98620%_ - (let ((_%$e98623%_ - (let () - (declare (not safe)) - (s32vector? _%obj98606%_)))) - (if _%$e98623%_ - _%$e98623%_ - (let ((_%$e98626%_ - (u64vector? _%obj98606%_))) - (if _%$e98626%_ - _%$e98626%_ - (let ((_%$e98629%_ + (lambda (_%obj98207%_) + (let ((_%$e98209%_ (u8vector? _%obj98207%_))) + (if _%$e98209%_ + _%$e98209%_ + (let ((_%$e98212%_ (s8vector? _%obj98207%_))) + (if _%$e98212%_ + _%$e98212%_ + (let ((_%$e98215%_ (u16vector? _%obj98207%_))) + (if _%$e98215%_ + _%$e98215%_ + (let ((_%$e98218%_ (s16vector? _%obj98207%_))) + (if _%$e98218%_ + _%$e98218%_ + (let ((_%$e98221%_ (u32vector? _%obj98207%_))) + (if _%$e98221%_ + _%$e98221%_ + (let ((_%$e98224%_ + (s32vector? _%obj98207%_))) + (if _%$e98224%_ + _%$e98224%_ + (let ((_%$e98227%_ + (u64vector? _%obj98207%_))) + (if _%$e98227%_ + _%$e98227%_ + (let ((_%$e98230%_ (s64vector? - _%obj98606%_))) - (if _%$e98629%_ - _%$e98629%_ - (let ((_%$e98632%_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (f32vector? _%obj98606%_)))) - (if _%$e98632%_ - _%$e98632%_ - (let () - (declare (not safe)) - (f64vector? _%obj98606%_)))))))))))))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%obj98207%_))) + (if _%$e98230%_ + _%$e98230%_ + (let ((_%$e98233%_ + (f32vector? + _%obj98207%_))) + (if _%$e98233%_ + _%$e98233%_ + (f64vector? + _%obj98207%_))))))))))))))))))))) (define weak? - (lambda (_%obj98604%_) - (if (let () (declare (not safe)) (##subtyped? _%obj98604%_)) - (eq? (let () (declare (not safe)) (##subtype _%obj98604%_)) + (lambda (_%obj98205%_) + (if (let () (declare (not safe)) (##subtyped? _%obj98205%_)) + (eq? (let () (declare (not safe)) (##subtype _%obj98205%_)) (macro-subtype-weak)) '#f))) (define object-port? - (lambda (_%obj98602%_) - (let ((__tmp98713 - (let ((__tmp98714 (macro-type-object-port))) + (lambda (_%obj98203%_) + (let ((__tmp98307 + (let ((__tmp98308 (macro-type-object-port))) (declare (not safe)) - (##type-id __tmp98714)))) + (##type-id __tmp98308)))) (declare (not safe)) - (##structure-instance-of? _%obj98602%_ __tmp98713)))) + (##structure-instance-of? _%obj98203%_ __tmp98307)))) (define character-port? - (lambda (_%obj98600%_) - (let ((__tmp98715 - (let ((__tmp98716 (macro-type-character-port))) + (lambda (_%obj98201%_) + (let ((__tmp98309 + (let ((__tmp98310 (macro-type-character-port))) (declare (not safe)) - (##type-id __tmp98716)))) + (##type-id __tmp98310)))) (declare (not safe)) - (##structure-instance-of? _%obj98600%_ __tmp98715)))) + (##structure-instance-of? _%obj98201%_ __tmp98309)))) (define device-port? - (lambda (_%obj98598%_) - (let ((__tmp98717 - (let ((__tmp98718 (macro-type-device-port))) + (lambda (_%obj98199%_) + (let ((__tmp98311 + (let ((__tmp98312 (macro-type-device-port))) (declare (not safe)) - (##type-id __tmp98718)))) + (##type-id __tmp98312)))) (declare (not safe)) - (##structure-instance-of? _%obj98598%_ __tmp98717)))) + (##structure-instance-of? _%obj98199%_ __tmp98311)))) (define vector-port? - (lambda (_%obj98596%_) - (let ((__tmp98719 - (let ((__tmp98720 (macro-type-vector-port))) + (lambda (_%obj98197%_) + (let ((__tmp98313 + (let ((__tmp98314 (macro-type-vector-port))) (declare (not safe)) - (##type-id __tmp98720)))) + (##type-id __tmp98314)))) (declare (not safe)) - (##structure-instance-of? _%obj98596%_ __tmp98719)))) + (##structure-instance-of? _%obj98197%_ __tmp98313)))) (define string-port? - (lambda (_%obj98594%_) - (let ((__tmp98721 - (let ((__tmp98722 (macro-type-string-port))) + (lambda (_%obj98195%_) + (let ((__tmp98315 + (let ((__tmp98316 (macro-type-string-port))) (declare (not safe)) - (##type-id __tmp98722)))) + (##type-id __tmp98316)))) (declare (not safe)) - (##structure-instance-of? _%obj98594%_ __tmp98721)))) + (##structure-instance-of? _%obj98195%_ __tmp98315)))) (define u8vector-port? - (lambda (_%obj98592%_) - (let ((__tmp98723 - (let ((__tmp98724 (macro-type-u8vector-port))) + (lambda (_%obj98193%_) + (let ((__tmp98317 + (let ((__tmp98318 (macro-type-u8vector-port))) (declare (not safe)) - (##type-id __tmp98724)))) + (##type-id __tmp98318)))) (declare (not safe)) - (##structure-instance-of? _%obj98592%_ __tmp98723)))) + (##structure-instance-of? _%obj98193%_ __tmp98317)))) (define raw-device-port? - (lambda (_%obj98590%_) - (let ((__tmp98725 - (let ((__tmp98726 (macro-type-raw-device-port))) + (lambda (_%obj98191%_) + (let ((__tmp98319 + (let ((__tmp98320 (macro-type-raw-device-port))) (declare (not safe)) - (##type-id __tmp98726)))) + (##type-id __tmp98320)))) (declare (not safe)) - (##structure-instance-of? _%obj98590%_ __tmp98725)))) + (##structure-instance-of? _%obj98191%_ __tmp98319)))) (define tcp-server-port? - (lambda (_%obj98588%_) - (let ((__tmp98727 - (let ((__tmp98728 (macro-type-tcp-server-port))) + (lambda (_%obj98189%_) + (let ((__tmp98321 + (let ((__tmp98322 (macro-type-tcp-server-port))) (declare (not safe)) - (##type-id __tmp98728)))) + (##type-id __tmp98322)))) (declare (not safe)) - (##structure-instance-of? _%obj98588%_ __tmp98727)))) + (##structure-instance-of? _%obj98189%_ __tmp98321)))) (define udp-port? - (lambda (_%obj98586%_) - (let ((__tmp98729 - (let ((__tmp98730 (macro-type-udp-port))) + (lambda (_%obj98187%_) + (let ((__tmp98323 + (let ((__tmp98324 (macro-type-udp-port))) (declare (not safe)) - (##type-id __tmp98730)))) + (##type-id __tmp98324)))) (declare (not safe)) - (##structure-instance-of? _%obj98586%_ __tmp98729)))) + (##structure-instance-of? _%obj98187%_ __tmp98323)))) (define directory-port? - (lambda (_%obj98584%_) - (let ((__tmp98731 - (let ((__tmp98732 (macro-type-directory-port))) + (lambda (_%obj98185%_) + (let ((__tmp98325 + (let ((__tmp98326 (macro-type-directory-port))) (declare (not safe)) - (##type-id __tmp98732)))) + (##type-id __tmp98326)))) (declare (not safe)) - (##structure-instance-of? _%obj98584%_ __tmp98731)))) + (##structure-instance-of? _%obj98185%_ __tmp98325)))) (define event-queue-port? - (lambda (_%obj98582%_) - (let ((__tmp98733 - (let ((__tmp98734 (macro-type-event-queue-port))) + (lambda (_%obj98183%_) + (let ((__tmp98327 + (let ((__tmp98328 (macro-type-event-queue-port))) (declare (not safe)) - (##type-id __tmp98734)))) + (##type-id __tmp98328)))) (declare (not safe)) - (##structure-instance-of? _%obj98582%_ __tmp98733)))) + (##structure-instance-of? _%obj98183%_ __tmp98327)))) (define readenv? - (lambda (_%obj98580%_) - (let ((__tmp98735 - (let ((__tmp98736 (macro-type-readenv))) + (lambda (_%obj98181%_) + (let ((__tmp98329 + (let ((__tmp98330 (macro-type-readenv))) (declare (not safe)) - (##type-id __tmp98736)))) + (##type-id __tmp98330)))) (declare (not safe)) - (##structure-instance-of? _%obj98580%_ __tmp98735)))) + (##structure-instance-of? _%obj98181%_ __tmp98329)))) (define writeenv? - (lambda (_%obj98578%_) - (let ((__tmp98737 - (let ((__tmp98738 (macro-type-writeenv))) + (lambda (_%obj98179%_) + (let ((__tmp98331 + (let ((__tmp98332 (macro-type-writeenv))) (declare (not safe)) - (##type-id __tmp98738)))) + (##type-id __tmp98332)))) (declare (not safe)) - (##structure-instance-of? _%obj98578%_ __tmp98737)))) + (##structure-instance-of? _%obj98179%_ __tmp98331)))) (define vm? - (lambda (_%obj98576%_) - (let ((__tmp98739 - (let ((__tmp98740 (macro-type-vm))) + (lambda (_%obj98177%_) + (let ((__tmp98333 + (let ((__tmp98334 (macro-type-vm))) (declare (not safe)) - (##type-id __tmp98740)))) + (##type-id __tmp98334)))) (declare (not safe)) - (##structure-instance-of? _%obj98576%_ __tmp98739)))))) + (##structure-instance-of? _%obj98177%_ __tmp98333)))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm index d1a9e47af..8e4a1a947 100644 --- a/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm +++ b/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm @@ -1,205 +1,204 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g98741_| + (define |[1]#_g98335_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (define |[:0:]#defpred| - (lambda (_%stx98361%_) - (let* ((_%g9836498402%_ - (lambda (_%g9836598398%_) + (lambda (_%stx97962%_) + (let* ((_%g9796598003%_ + (lambda (_%g9796697999%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9836598398%_))) - (_%g9836398571%_ - (lambda (_%g9836598406%_) - (if (gx#stx-pair? _%g9836598406%_) - (let ((_%e9837298409%_ (gx#syntax-e _%g9836598406%_))) - (let ((_%hd9837198413%_ + _%g9796697999%_))) + (_%g9796498172%_ + (lambda (_%g9796698007%_) + (if (gx#stx-pair? _%g9796698007%_) + (let ((_%e9797398010%_ (gx#syntax-e _%g9796698007%_))) + (let ((_%hd9797298014%_ (let () (declare (not safe)) - (##car _%e9837298409%_))) - (_%tl9837098416%_ + (##car _%e9797398010%_))) + (_%tl9797198017%_ (let () (declare (not safe)) - (##cdr _%e9837298409%_)))) - (if (gx#stx-pair? _%tl9837098416%_) - (let ((_%e9837598419%_ - (gx#syntax-e _%tl9837098416%_))) - (let ((_%hd9837498423%_ + (##cdr _%e9797398010%_)))) + (if (gx#stx-pair? _%tl9797198017%_) + (let ((_%e9797698020%_ + (gx#syntax-e _%tl9797198017%_))) + (let ((_%hd9797598024%_ (let () (declare (not safe)) - (##car _%e9837598419%_))) - (_%tl9837398426%_ + (##car _%e9797698020%_))) + (_%tl9797498027%_ (let () (declare (not safe)) - (##cdr _%e9837598419%_)))) - (if (gx#stx-pair? _%hd9837498423%_) - (let ((_%e9837898429%_ - (gx#syntax-e _%hd9837498423%_))) - (let ((_%hd9837798433%_ + (##cdr _%e9797698020%_)))) + (if (gx#stx-pair? _%hd9797598024%_) + (let ((_%e9797998030%_ + (gx#syntax-e _%hd9797598024%_))) + (let ((_%hd9797898034%_ (let () (declare (not safe)) - (##car _%e9837898429%_))) - (_%tl9837698436%_ + (##car _%e9797998030%_))) + (_%tl9797798037%_ (let () (declare (not safe)) - (##cdr _%e9837898429%_)))) - (if (gx#stx-pair? _%tl9837698436%_) - (let ((_%e9838198439%_ + (##cdr _%e9797998030%_)))) + (if (gx#stx-pair? _%tl9797798037%_) + (let ((_%e9798298040%_ (gx#syntax-e - _%tl9837698436%_))) - (let ((_%hd9838098443%_ + _%tl9797798037%_))) + (let ((_%hd9798198044%_ (let () (declare (not safe)) - (##car _%e9838198439%_))) - (_%tl9837998446%_ + (##car _%e9798298040%_))) + (_%tl9798098047%_ (let () (declare (not safe)) - (##cdr _%e9838198439%_)))) + (##cdr _%e9798298040%_)))) (if (gx#stx-null? - _%tl9837998446%_) + _%tl9798098047%_) (if (gx#stx-pair? - _%tl9837398426%_) - (let ((_%e9838498449%_ + _%tl9797498027%_) + (let ((_%e9798598050%_ (gx#syntax-e - _%tl9837398426%_))) - (let ((_%hd9838398453%_ + _%tl9797498027%_))) + (let ((_%hd9798498054%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e9838498449%_))) - (_%tl9838298456%_ + (let () (declare (not safe)) (##car _%e9798598050%_))) + (_%tl9798398057%_ (let () (declare (not safe)) - (##cdr _%e9838498449%_)))) - (if (gx#identifier? _%hd9838398453%_) + (##cdr _%e9798598050%_)))) + (if (gx#identifier? _%hd9798498054%_) (if (gx#free-identifier=? - |[1]#_g98741_| - _%hd9838398453%_) - (if (gx#stx-pair? _%tl9838298456%_) - (let ((_%e9838798459%_ - (gx#syntax-e _%tl9838298456%_))) - (let ((_%hd9838698463%_ + |[1]#_g98335_| + _%hd9798498054%_) + (if (gx#stx-pair? _%tl9798398057%_) + (let ((_%e9798898060%_ + (gx#syntax-e _%tl9798398057%_))) + (let ((_%hd9798798064%_ (let () (declare (not safe)) - (##car _%e9838798459%_))) - (_%tl9838598466%_ + (##car _%e9798898060%_))) + (_%tl9798698067%_ (let () (declare (not safe)) - (##cdr _%e9838798459%_)))) - (if (gx#stx-pair/null? _%tl9838598466%_) - (let ((_g98742_ + (##cdr _%e9798898060%_)))) + (if (gx#stx-pair/null? _%tl9798698067%_) + (let ((_g98336_ (gx#syntax-split-splice - _%tl9838598466%_ + _%tl9798698067%_ '0))) (begin - (let ((_g98743_ + (let ((_g98337_ (let () (declare (not safe)) - (if (##values? _g98742_) + (if (##values? _g98336_) (##vector-length - _g98742_) + _g98336_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98743_ 2))) + (##fx= _g98337_ 2))) (error "Context expects 2 values" - _g98743_))) - (let ((_%target9838898469%_ + _g98337_))) + (let ((_%target9798998070%_ (let () (declare (not safe)) (##vector-ref - _g98742_ + _g98336_ 0))) - (_%tl9839098472%_ + (_%tl9799198073%_ (let () (declare (not safe)) (##vector-ref - _g98742_ + _g98336_ 1)))) (if (gx#stx-null? - _%tl9839098472%_) - (letrec ((_%loop9839198475%_ - (lambda (_%hd9838998479%_ + _%tl9799198073%_) + (letrec ((_%loop9799298076%_ + (lambda (_%hd9799098080%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body9839598482%_) - (if (gx#stx-pair? _%hd9838998479%_) - (let ((_%e9839298485%_ - (gx#syntax-e _%hd9838998479%_))) - (let ((_%lp-hd9839398489%_ + _%body9799698083%_) + (if (gx#stx-pair? _%hd9799098080%_) + (let ((_%e9799398086%_ + (gx#syntax-e _%hd9799098080%_))) + (let ((_%lp-hd9799498090%_ (let () (declare (not safe)) - (##car _%e9839298485%_))) - (_%lp-tl9839498492%_ + (##car _%e9799398086%_))) + (_%lp-tl9799598093%_ (let () (declare (not safe)) - (##cdr _%e9839298485%_)))) - (_%loop9839198475%_ - _%lp-tl9839498492%_ - (cons _%lp-hd9839398489%_ _%body9839598482%_)))) - (let ((_%body9839698495%_ - (reverse _%body9839598482%_))) - ((lambda (_%L98499%_ - _%L98501%_ - _%L98502%_ - _%L98503%_) - (let* ((_%g9853298540%_ - (lambda (_%g9853398536%_) + (##cdr _%e9799398086%_)))) + (_%loop9799298076%_ + _%lp-tl9799598093%_ + (cons _%lp-hd9799498090%_ _%body9799698083%_)))) + (let ((_%body9799798096%_ + (reverse _%body9799698083%_))) + ((lambda (_%L98100%_ + _%L98102%_ + _%L98103%_ + _%L98104%_) + (let* ((_%g9813398141%_ + (lambda (_%g9813498137%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9853398536%_))) - (_%g9853198567%_ - (lambda (_%g9853398544%_) - ((lambda (_%L98547%_) - (let () - (cons (gx#datum->syntax '#f 'def) - (cons _%L98503%_ - (cons (cons (gx#datum->syntax + _%g9813498137%_))) + (_%g9813298168%_ + (lambda (_%g9813498145%_) + ((lambda (_%L98148%_) + (cons (gx#datum->syntax '#f 'def) + (cons _%L98104%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@predicate) - (cons _%L98547%_ '())) - (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L98502%_ '()) - (let ((__tmp98744 - (lambda (_%g9855898561%_ + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax '#f '@predicate) + (cons _%L98148%_ '())) + (cons (cons (gx#datum->syntax '#f 'lambda) + (cons (cons _%L98103%_ '()) + (let ((__tmp98338 + (lambda (_%g9815998162%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9855998564%_) - (cons _%g9855898561%_ _%g9855998564%_)))) - (declare (not safe)) - (__foldr1 __tmp98744 '() _%L98499%_)))) + _%g9816098165%_) + (cons _%g9815998162%_ _%g9816098165%_)))) + (declare (not safe)) + (__foldr1 __tmp98338 '() _%L98100%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))))) + '()))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9853398544%_)))) - (_%g9853198567%_ + _%g9813498145%_)))) + (_%g9813298168%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx98361%_ - _%L98501%_))))) - _%body9839698495%_ - _%hd9838698463%_ - _%hd9838098443%_ - _%hd9837798433%_)))))) + _%stx97962%_ + _%L98102%_))))) + _%body9799798096%_ + _%hd9798798064%_ + _%hd9798198044%_ + _%hd9797898034%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9839198475%_ - _%target9838898469%_ + (_%loop9799298076%_ + _%target9798998070%_ '())) - (_%g9836498402%_ - _%g9836598406%_))))) - (_%g9836498402%_ _%g9836598406%_)))) - (_%g9836498402%_ _%g9836598406%_)) - (_%g9836498402%_ _%g9836598406%_)) - (_%g9836498402%_ _%g9836598406%_)))) - (_%g9836498402%_ _%g9836598406%_)) + (_%g9796598003%_ + _%g9796698007%_))))) + (_%g9796598003%_ _%g9796698007%_)))) + (_%g9796598003%_ _%g9796698007%_)) + (_%g9796598003%_ _%g9796698007%_)) + (_%g9796598003%_ _%g9796698007%_)))) + (_%g9796598003%_ _%g9796698007%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9836498402%_ - _%g9836598406%_)))) - (_%g9836498402%_ - _%g9836598406%_)))) - (_%g9836498402%_ _%g9836598406%_)))) - (_%g9836498402%_ _%g9836598406%_)))) - (_%g9836498402%_ _%g9836598406%_))))) - (_%g9836398571%_ _%stx98361%_))))) + (_%g9796598003%_ + _%g9796698007%_)))) + (_%g9796598003%_ + _%g9796698007%_)))) + (_%g9796598003%_ _%g9796698007%_)))) + (_%g9796598003%_ _%g9796698007%_)))) + (_%g9796598003%_ _%g9796698007%_))))) + (_%g9796498172%_ _%stx97962%_))))) diff --git a/src/bootstrap/gerbil/runtime/mop.ssxi.ss b/src/bootstrap/gerbil/runtime/mop.ssxi.ss index 5176a9301..5d4cf6d60 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/mop.ssxi.ss @@ -84,13 +84,24 @@ package: gerbil/runtime arguments: (class::t class::t) unchecked: - __class-type=?))) + __class-type=? + origin: + gerbil/runtime/mop))) (declare-type __class-type=? (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type type-opaque? (@lambda 1 @@ -103,13 +114,24 @@ package: gerbil/runtime arguments: (t::t) unchecked: - __type-opaque?))) + __type-opaque? + origin: + gerbil/runtime/mop))) (declare-type __type-opaque? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type type-extensible? (@lambda 1 @@ -122,13 +144,24 @@ package: gerbil/runtime arguments: (t::t) unchecked: - __type-extensible?))) + __type-extensible? + origin: + gerbil/runtime/mop))) (declare-type __type-extensible? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-type-final? (@lambda 1 @@ -141,13 +174,24 @@ package: gerbil/runtime arguments: (class::t) unchecked: - __class-type-final?))) + __class-type-final? + origin: + gerbil/runtime/mop))) (declare-type __class-type-final? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-type-struct? (@lambda 1 @@ -160,13 +204,24 @@ package: gerbil/runtime arguments: (class::t) unchecked: - __class-type-struct?))) + __class-type-struct? + origin: + gerbil/runtime/mop))) (declare-type __class-type-struct? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-type-sealed? (@lambda 1 @@ -179,13 +234,24 @@ package: gerbil/runtime arguments: (class::t) unchecked: - __class-type-sealed?))) + __class-type-sealed? + origin: + gerbil/runtime/mop))) (declare-type __class-type-sealed? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-type-metaclass? (@lambda 1 @@ -198,13 +264,24 @@ package: gerbil/runtime arguments: (class::t) unchecked: - __class-type-metaclass?))) + __class-type-metaclass? + origin: + gerbil/runtime/mop))) (declare-type __class-type-metaclass? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-type-system? (@lambda 1 @@ -217,19 +294,39 @@ package: gerbil/runtime arguments: (class::t) unchecked: - __class-type-system?))) + __class-type-system? + origin: + gerbil/runtime/mop))) (declare-type __class-type-system? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-class-type-descriptor (@lambda 9 #f signature: - (return: class::t effect: #f arguments: #f unchecked: #f))) + (return: + class::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-type-id (@accessor class::t id #t)) (declare-type &class-type-id (@accessor class::t id #f)) (declare-type class-type-id-set! (@mutator class::t id #t)) @@ -298,13 +395,24 @@ package: gerbil/runtime arguments: (class::t) unchecked: - __class-type-slot-list))) + __class-type-slot-list + origin: + gerbil/runtime/mop))) (declare-type __class-type-slot-list (@lambda 1 #f signature: - (return: list::t effect: #f arguments: #f unchecked: #f))) + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-type-field-count (@lambda 1 @@ -317,13 +425,24 @@ package: gerbil/runtime arguments: (class::t) unchecked: - __class-type-field-count))) + __class-type-field-count + origin: + gerbil/runtime/mop))) (declare-type __class-type-field-count (@lambda 1 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-type-seal! (@lambda 1 @@ -336,13 +455,24 @@ package: gerbil/runtime arguments: (class::t) unchecked: - __class-type-seal!))) + __class-type-seal! + origin: + gerbil/runtime/mop))) (declare-type __class-type-seal! (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type substruct? (@lambda 2 @@ -355,24 +485,114 @@ package: gerbil/runtime arguments: (class::t class::t) unchecked: - __substruct?))) + __substruct? + origin: + gerbil/runtime/mop))) (declare-type __substruct? (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type base-struct/1 (@lambda 1 #f)) - (declare-type base-struct/2 (@lambda 2 #f)) - (declare-type base-struct/list (@lambda 1 #f)) - (declare-type base-struct (@lambda (0) #f)) - (declare-type find-super-constructor (@lambda 1 #f)) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + base-struct/1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + base-struct/2 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + base-struct/list + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + base-struct + (@lambda (0) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + find-super-constructor + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type compute-class-slots (@lambda 2 #f signature: - (return: values::t effect: #f arguments: #f unchecked: #f))) + (return: + values::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-class-type (@lambda 6 @@ -385,13 +605,24 @@ package: gerbil/runtime arguments: (symbol::t symbol::t list::t list::t list::t t::t) unchecked: - __make-class-type))) + __make-class-type + origin: + gerbil/runtime/mop))) (declare-type __make-class-type (@lambda 6 #f signature: - (return: class::t effect: #f arguments: #f unchecked: #f))) + (return: + class::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-precedence-list (@lambda 1 @@ -404,19 +635,39 @@ package: gerbil/runtime arguments: (class::t) unchecked: - __class-precedence-list))) + __class-precedence-list + origin: + gerbil/runtime/mop))) (declare-type __class-precedence-list (@lambda 1 #f signature: - (return: list::t effect: #f arguments: #f unchecked: #f))) + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type compute-precedence-list (@lambda 1 #f signature: - (return: values::t effect: #f arguments: #f unchecked: #f))) + (return: + values::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-class-predicate (@lambda 1 @@ -429,13 +680,24 @@ package: gerbil/runtime arguments: (class::t) unchecked: - __make-class-predicate))) + __make-class-predicate + origin: + gerbil/runtime/mop))) (declare-type __make-class-predicate (@lambda 1 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-class-slot-accessor (@lambda 2 @@ -448,13 +710,24 @@ package: gerbil/runtime arguments: (class::t symbol::t) unchecked: - __make-class-slot-accessor))) + __make-class-slot-accessor + origin: + gerbil/runtime/mop))) (declare-type __make-class-slot-accessor (@lambda 2 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-class-slot-mutator (@lambda 2 @@ -467,13 +740,24 @@ package: gerbil/runtime arguments: (class::t symbol::t) unchecked: - __make-class-slot-mutator))) + __make-class-slot-mutator + origin: + gerbil/runtime/mop))) (declare-type __make-class-slot-mutator (@lambda 2 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-class-slot-unchecked-accessor (@lambda 2 @@ -486,13 +770,24 @@ package: gerbil/runtime arguments: (class::t symbol::t) unchecked: - __make-class-slot-unchecked-accessor))) + __make-class-slot-unchecked-accessor + origin: + gerbil/runtime/mop))) (declare-type __make-class-slot-unchecked-accessor (@lambda 2 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-class-slot-unchecked-mutator (@lambda 2 @@ -505,90 +800,263 @@ package: gerbil/runtime arguments: (class::t symbol::t) unchecked: - __make-class-slot-unchecked-mutator))) + __make-class-slot-unchecked-mutator + origin: + gerbil/runtime/mop))) (declare-type __make-class-slot-unchecked-mutator (@lambda 2 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) - (declare-type not-an-instance__% (@lambda 3 #f)) - (declare-type not-an-instance__0 (@lambda 2 #f)) - (declare-type - not-an-instance - (@case-lambda (2 not-an-instance__0) (3 not-an-instance__%))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type - make-final-slot-accessor + not-an-instance__% (@lambda 3 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type - make-final-slot-mutator - (@lambda 3 + not-an-instance__0 + (@lambda 2 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type - make-struct-slot-accessor + not-an-instance + (@case-lambda + (2 + not-an-instance__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)) + (3 + not-an-instance__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)))) + (declare-type + make-final-slot-accessor + (@lambda 3 + #f + signature: + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + make-final-slot-mutator + (@lambda 3 + #f + signature: + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + make-struct-slot-accessor (@lambda 3 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-struct-slot-mutator (@lambda 3 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-struct-slot-unchecked-accessor (@lambda 3 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-struct-slot-unchecked-mutator (@lambda 3 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-struct-subclass-slot-accessor (@lambda 3 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-struct-subclass-slot-mutator (@lambda 3 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-class-cached-slot-accessor (@lambda 3 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-class-cached-slot-mutator (@lambda 3 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-class-cached-slot-unchecked-accessor (@lambda 3 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-class-cached-slot-unchecked-mutator (@lambda 3 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-slot-offset (@lambda 2 @@ -601,13 +1069,24 @@ package: gerbil/runtime arguments: (class::t symbolic::t) unchecked: - __class-slot-offset))) + __class-slot-offset + origin: + gerbil/runtime/mop))) (declare-type __class-slot-offset (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-slot-ref (@lambda 3 @@ -620,13 +1099,24 @@ package: gerbil/runtime arguments: (class::t t::t symbolic::t) unchecked: - __class-slot-ref))) + __class-slot-ref + origin: + gerbil/runtime/mop))) (declare-type __class-slot-ref (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-slot-set! (@lambda 4 @@ -639,17 +1129,84 @@ package: gerbil/runtime arguments: (class::t t::t symbolic::t t::t) unchecked: - __class-slot-set!))) + __class-slot-set! + origin: + gerbil/runtime/mop))) (declare-type __class-slot-set! (@lambda 4 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type unchecked-field-ref (@lambda 2 #f)) - (declare-type unchecked-field-set! (@lambda 3 #f)) - (declare-type unchecked-slot-ref (@lambda 2 #f)) - (declare-type unchecked-slot-set! (@lambda 3 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + unchecked-field-ref + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + unchecked-field-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + unchecked-slot-ref + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + unchecked-slot-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type slot-ref__% (@lambda 3 @@ -662,47 +1219,112 @@ package: gerbil/runtime arguments: (t::t symbol::t procedure::t) unchecked: - __slot-ref))) + __slot-ref + origin: + gerbil/runtime/mop))) (declare-type slot-ref__0 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type slot-ref (@case-lambda (2 slot-ref__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)) (3 slot-ref__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)))) (declare-type __slot-ref__% (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type __slot-ref__0 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type __slot-ref (@case-lambda (2 __slot-ref__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)) (3 __slot-ref__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)))) (declare-type slot-set!__% (@lambda 4 @@ -715,48 +1337,127 @@ package: gerbil/runtime arguments: (t::t symbol::t t::t procedure::t) unchecked: - __slot-set!))) + __slot-set! + origin: + gerbil/runtime/mop))) (declare-type slot-set!__0 (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type slot-set! (@case-lambda (3 slot-set!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)) (4 slot-set!__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)))) (declare-type __slot-set!__% (@lambda 4 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type __slot-set!__0 (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type __slot-set! (@case-lambda (3 __slot-set!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)) (4 __slot-set!__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) - (declare-type __slot-error (@lambda 2 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)))) + (declare-type + __slot-error + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type subclass? (@lambda 2 @@ -769,25 +1470,54 @@ package: gerbil/runtime arguments: (class::t class::t) unchecked: - __subclass?))) + __subclass? + origin: + gerbil/runtime/mop))) (declare-type __subclass? (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type object? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type - object-type - (@lambda 1 + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + object-type + (@lambda 1 #f signature: - (return: class::t effect: #f arguments: #f unchecked: #f))) + (return: + class::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type direct-instance? (@lambda 2 @@ -800,13 +1530,24 @@ package: gerbil/runtime arguments: (class::t t::t) unchecked: - __direct-instance?))) + __direct-instance? + origin: + gerbil/runtime/mop))) (declare-type __direct-instance? (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-inline-rule! direct-instance? (ast-rules @@ -820,7 +1561,16 @@ package: gerbil/runtime (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-inline-rule! immediate-instance-of? (lambda (ast) @@ -851,13 +1601,24 @@ package: gerbil/runtime arguments: (class::t t::t) unchecked: - __struct-instance?))) + __struct-instance? + origin: + gerbil/runtime/mop))) (declare-type __struct-instance? (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-instance? (@lambda 2 @@ -870,13 +1631,24 @@ package: gerbil/runtime arguments: (class::t t::t) unchecked: - __class-instance?))) + __class-instance? + origin: + gerbil/runtime/mop))) (declare-type __class-instance? (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-object (@lambda 2 @@ -889,13 +1661,24 @@ package: gerbil/runtime arguments: (class::t fixnum::t) unchecked: - __make-object))) + __make-object + origin: + gerbil/runtime/mop))) (declare-type __make-object (@lambda 2 #f signature: - (return: object::t effect: #f arguments: #f unchecked: #f))) + (return: + object::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-inline-rule! make-object (lambda (ast) @@ -925,13 +1708,24 @@ package: gerbil/runtime arguments: (object::t t::t) unchecked: - __object-fill!))) + __object-fill! + origin: + gerbil/runtime/mop))) (declare-type __object-fill! (@lambda 2 #f signature: - (return: object::t effect: #f arguments: #f unchecked: #f))) + (return: + object::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type new-instance (@lambda 1 @@ -944,13 +1738,24 @@ package: gerbil/runtime arguments: (class::t) unchecked: - __new-instance))) + __new-instance + origin: + gerbil/runtime/mop))) (declare-type __new-instance (@lambda 1 #f signature: - (return: object::t effect: #f arguments: #f unchecked: #f))) + (return: + object::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-instance (@lambda (1) @@ -963,13 +1768,24 @@ package: gerbil/runtime arguments: (class::t . t::t) unchecked: - __make-instance))) + __make-instance + origin: + gerbil/runtime/mop))) (declare-type __make-instance (@lambda (1) #f signature: - (return: object::t effect: #f arguments: #f unchecked: #f))) + (return: + object::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-class-instance (@lambda (1) @@ -982,7 +1798,9 @@ package: gerbil/runtime arguments: (class::t . t::t) unchecked: - __make-instance))) + __make-instance + origin: + gerbil/runtime/mop))) (declare-type struct-instance-init! (@lambda (1) @@ -995,13 +1813,24 @@ package: gerbil/runtime arguments: (object::t . t::t) unchecked: - __struct-instance-init!))) + __struct-instance-init! + origin: + gerbil/runtime/mop))) (declare-type __struct-instance-init! (@lambda (1) #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-inline-rule! struct-instance-init! (lambda (ast) @@ -1036,7 +1865,21 @@ package: gerbil/runtime #'(%#let-values ((($self) self)) (%#call recur (%#ref $self) arg ...))))))) - (declare-type ___struct-instance-init! (@lambda 2 #f)) + (declare-type + ___struct-instance-init! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-instance-init! (@lambda (1) @@ -1049,15 +1892,54 @@ package: gerbil/runtime arguments: (object::t . t::t) unchecked: - __class-instance-init!))) + __class-instance-init! + origin: + gerbil/runtime/mop))) (declare-type __class-instance-init! (@lambda (1) #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) - (declare-type ___class-instance-init! (@lambda 3 #f)) - (declare-type __metaclass-instance-init! (@lambda 3 #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + ___class-instance-init! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + __metaclass-instance-init! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type constructor-init! (@lambda (3) @@ -1070,14 +1952,39 @@ package: gerbil/runtime arguments: (class::t symbol::t object::t . t::t) unchecked: - __constructor-init!))) + __constructor-init! + origin: + gerbil/runtime/mop))) (declare-type __constructor-init! (@lambda (3) #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) - (declare-type ___constructor-init! (@lambda 4 #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + ___constructor-init! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type struct-copy (@lambda 1 @@ -1090,13 +1997,24 @@ package: gerbil/runtime arguments: (object::t) unchecked: - __struct-copy))) + __struct-copy + origin: + gerbil/runtime/mop))) (declare-type __struct-copy (@lambda 1 #f signature: - (return: object::t effect: #f arguments: #f unchecked: #f))) + (return: + object::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type struct->list (@lambda 1 @@ -1109,13 +2027,24 @@ package: gerbil/runtime arguments: (object::t) unchecked: - __struct->list))) + __struct->list + origin: + gerbil/runtime/mop))) (declare-type __struct->list (@lambda 1 #f signature: - (return: list::t effect: #f arguments: #f unchecked: #f))) + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class->list (@lambda 1 @@ -1128,13 +2057,24 @@ package: gerbil/runtime arguments: (object::t) unchecked: - __class->list))) + __class->list + origin: + gerbil/runtime/mop))) (declare-type __class->list (@lambda 1 #f signature: - (return: list::t effect: #f arguments: #f unchecked: #f))) + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type call-method (@lambda (2) @@ -1147,13 +2087,24 @@ package: gerbil/runtime arguments: (t::t symbol::t . t::t) unchecked: - __call-method))) + __call-method + origin: + gerbil/runtime/mop))) (declare-type __call-method (@lambda (2) #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-inline-rule! call-method (lambda (ast) @@ -1189,19 +2140,39 @@ package: gerbil/runtime arguments: (t::t symbol::t) unchecked: - __method-ref))) + __method-ref + origin: + gerbil/runtime/mop))) (declare-type __method-ref (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type checked-method-ref (@lambda 2 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type bound-method-ref (@lambda 2 @@ -1214,13 +2185,24 @@ package: gerbil/runtime arguments: (t::t symbol::t) unchecked: - __bound-method-ref))) + __bound-method-ref + origin: + gerbil/runtime/mop))) (declare-type __bound-method-ref (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type checked-bound-method-ref (@lambda 2 @@ -1233,13 +2215,24 @@ package: gerbil/runtime arguments: (t::t symbol::t) unchecked: - __checked-bound-method-ref))) + __checked-bound-method-ref + origin: + gerbil/runtime/mop))) (declare-type __checked-bound-method-ref (@lambda 2 #f signature: - (return: procedure::t effect: #f arguments: #f unchecked: #f))) + (return: + procedure::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type find-method (@lambda 3 @@ -1252,13 +2245,24 @@ package: gerbil/runtime arguments: (class::t t::t symbol::t) unchecked: - __find-method))) + __find-method + origin: + gerbil/runtime/mop))) (declare-type __find-method (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type mixin-find-method (@lambda 3 @@ -1271,13 +2275,24 @@ package: gerbil/runtime arguments: (t::t t::t symbol::t) unchecked: - __mixin-find-method))) + __mixin-find-method + origin: + gerbil/runtime/mop))) (declare-type __mixin-find-method (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type direct-method-ref (@lambda 3 @@ -1290,13 +2305,24 @@ package: gerbil/runtime arguments: (class::t t::t symbol::t) unchecked: - __direct-method-ref))) + __direct-method-ref + origin: + gerbil/runtime/mop))) (declare-type __direct-method-ref (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type mixin-method-ref (@lambda 3 @@ -1309,13 +2335,24 @@ package: gerbil/runtime arguments: (class::t t::t symbol::t) unchecked: - __mixin-method-ref))) + __mixin-method-ref + origin: + gerbil/runtime/mop))) (declare-type __mixin-method-ref (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type bind-method!__% (@lambda 4 @@ -1328,86 +2365,523 @@ package: gerbil/runtime arguments: (t::t symbol::t procedure::t t::t) unchecked: - __bind-method!))) + __bind-method! + origin: + gerbil/runtime/mop))) (declare-type bind-method!__0 (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type - bind-method! - (@case-lambda - (3 - bind-method!__0 + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + bind-method! + (@case-lambda + (3 + bind-method!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)) (4 bind-method!__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)))) (declare-type __bind-method!__% (@lambda 4 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type __bind-method!__0 (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type __bind-method! (@case-lambda (3 __bind-method!__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)) (4 __bind-method!__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) - (declare-type make-method-specializer-table__% (@lambda 2 #f)) - (declare-type make-method-specializer-table__0 (@lambda 0 #f)) - (declare-type make-method-specializer-table__1 (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)))) + (declare-type + make-method-specializer-table__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + make-method-specializer-table__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + make-method-specializer-table__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-method-specializer-table (@case-lambda - (0 make-method-specializer-table__0) - (1 make-method-specializer-table__1) - (2 make-method-specializer-table__%))) - (declare-type method-specializer-table-ref (@lambda 3 #f)) - (declare-type method-specializer-table-set! (@lambda 3 #f)) - (declare-type __method-specializer-table-set! (@lambda 3 #f)) - (declare-type method-specializer-table-update! (@lambda 4 #f)) - (declare-type __method-specializer-table-update! (@lambda 4 #f)) - (declare-type method-specializer-table-delete! (@lambda 2 #f)) + (0 + make-method-specializer-table__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)) + (1 + make-method-specializer-table__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)) + (2 + make-method-specializer-table__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)))) + (declare-type + method-specializer-table-ref + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + method-specializer-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + __method-specializer-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + method-specializer-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + __method-specializer-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + method-specializer-table-delete! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + __method-specializers + (optimizer-resolve-class '(typedecl __method-specializers) 't::t)) (declare-type __method-specializers-mx (optimizer-resolve-class '(typedecl __method-specializers-mx) 'vector::t)) - (declare-type bind-specializer! (@lambda 2 #f)) - (declare-type __lookup-method-specializer (@lambda 1 #f)) - (declare-type __class-specializer-hash-key (@lambda 1 #f)) - (declare-type make-class-specializer-table__% (@lambda 2 #f)) - (declare-type make-class-specializer-table__0 (@lambda 0 #f)) - (declare-type make-class-specializer-table__1 (@lambda 1 #f)) + (declare-type + bind-specializer! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + __lookup-method-specializer + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + __class-specializer-hash-key + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + make-class-specializer-table__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + make-class-specializer-table__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + make-class-specializer-table__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-class-specializer-table (@case-lambda - (0 make-class-specializer-table__0) - (1 make-class-specializer-table__1) - (2 make-class-specializer-table__%))) - (declare-type class-specializer-table-ref (@lambda 3 #f)) - (declare-type class-specializer-table-set! (@lambda 3 #f)) - (declare-type __class-specializer-table-set! (@lambda 3 #f)) - (declare-type class-specializer-table-update! (@lambda 4 #f)) - (declare-type __class-specializer-table-update! (@lambda 4 #f)) - (declare-type class-specializer-table-delete! (@lambda 2 #f)) + (0 + make-class-specializer-table__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)) + (1 + make-class-specializer-table__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)) + (2 + make-class-specializer-table__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)))) + (declare-type + class-specializer-table-ref + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + class-specializer-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + __class-specializer-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + class-specializer-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + __class-specializer-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + class-specializer-table-delete! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type __class-specializers-mx (optimizer-resolve-class '(typedecl __class-specializers-mx) 'vector::t)) + (declare-type + __class-specializers + (optimizer-resolve-class '(typedecl __class-specializers) 't::t)) (declare-type __class-specializers-key (optimizer-resolve-class '(typedecl __class-specializers-key) 'pair::t)) @@ -1423,17 +2897,84 @@ package: gerbil/runtime arguments: (class::t) unchecked: - __specialize-class))) + __specialize-class + origin: + gerbil/runtime/mop))) (declare-type __specialize-class (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type __lookup-class-specializer (@lambda 1 #f)) - (declare-type __bind-class-specializer! (@lambda 2 #f)) - (declare-type __specialize-method (@lambda 4 #f)) - (declare-type ___specialize-class (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + __lookup-class-specializer + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + __bind-class-specializer! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + __specialize-method + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + ___specialize-class + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type seal-class! (@lambda 1 @@ -1446,13 +2987,24 @@ package: gerbil/runtime arguments: (class::t) unchecked: - __seal-class!))) + __seal-class! + origin: + gerbil/runtime/mop))) (declare-type __seal-class! (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type next-method (@lambda 3 @@ -1465,13 +3017,24 @@ package: gerbil/runtime arguments: (class::t t::t symbol::t) unchecked: - __next-method))) + __next-method + origin: + gerbil/runtime/mop))) (declare-type __next-method (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type call-next-method (@lambda (3) @@ -1484,27 +3047,109 @@ package: gerbil/runtime arguments: (class::t t::t symbol::t . t::t) unchecked: - __call-next-method))) + __call-next-method + origin: + gerbil/runtime/mop))) (declare-type __call-next-method (@lambda (3) #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type write-style (@lambda 1 macro-writeenv-style)) - (declare-type write-object (@lambda 2 #f)) + (declare-type + write-object + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + __shadow-classes + (optimizer-resolve-class '(typedecl __shadow-classes) 't::t)) (declare-type __shadow-classes-mx (optimizer-resolve-class '(typedecl __shadow-classes-mx) 'vector::t)) - (declare-type __shadow-class (@lambda 1 #f)) + (declare-type + __shadow-class + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-of (@lambda 1 #f signature: - (return: class::t effect: #f arguments: #f unchecked: #f))) + (return: + class::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type __subtype-id (optimizer-resolve-class '(typedecl __subtype-id) 'vector::t)) - (declare-type __system-class (@lambda 1 #f)) - (declare-type __make-system-class (@lambda 2 #f))) + (declare-type + __system-classes + (optimizer-resolve-class '(typedecl __system-classes) 't::t)) + (declare-type + __system-class + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) + (declare-type + __make-system-class + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)))) diff --git a/src/bootstrap/gerbil/runtime/mop~0.scm b/src/bootstrap/gerbil/runtime/mop~0.scm index 022067fea..b6b1cd6e5 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 1712533288) + (define gerbil/runtime/mop::timestamp 1712573429) (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 ((_%flags96659%_ + (let ((_%flags96338%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties96660%_ '((direct-slots:) (system: . #t))) - (_%slot-table96661%_ + (_%properties96339%_ '((direct-slots:) (system: . #t))) + (_%slot-table96340%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) @@ -27,17 +27,17 @@ '#f 't 't - _%flags96659%_ + _%flags96338%_ '#f '#() '() '#(#f) - _%slot-table96661%_ - _%properties96660%_ + _%slot-table96340%_ + _%properties96339%_ '#f '#f)))) (define class::t - (let* ((_%slots96635%_ + (let* ((_%slots96314%_ '(id name super flags @@ -48,1729 +48,1553 @@ properties constructor methods)) - (_%slot-vector96637%_ (list->vector (cons '#f _%slots96635%_))) - (_%slot-table96644%_ - (let ((_%slot-table96639%_ + (_%slot-vector96316%_ (list->vector (cons '#f _%slots96314%_))) + (_%slot-table96323%_ + (let ((_%slot-table96318%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp98107 - (lambda (_%slot96641%_ _%field96642%_) + (let ((__tmp97786 + (lambda (_%slot96320%_ _%field96321%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table96639%_ - _%slot96641%_ - _%field96642%_)) - (let ((__tmp98108 + _%slot-table96318%_ + _%slot96320%_ + _%field96321%_)) + (let ((__tmp97787 (let () (declare (not safe)) - (symbol->keyword _%slot96641%_)))) + (symbol->keyword _%slot96320%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table96639%_ - __tmp98108 - _%field96642%_)))) - (__tmp98105 - (let ((__tmp98106 + _%slot-table96318%_ + __tmp97787 + _%field96321%_)))) + (__tmp97784 + (let ((__tmp97785 (let () (declare (not safe)) - (##length _%slots96635%_)))) + (##length _%slots96314%_)))) (declare (not safe)) - (##iota __tmp98106 '1)))) + (##iota __tmp97785 '1)))) (declare (not safe)) - (##for-each __tmp98107 _%slots96635%_ __tmp98105)) - _%slot-table96639%_)) - (_%flags96646%_ + (##for-each __tmp97786 _%slots96314%_ __tmp97784)) + _%slot-table96318%_)) + (_%flags96325%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields96652%_ + (_%fields96331%_ (list->vector - (let ((__tmp98109 - (map (lambda (_%g9664796649%_) - (list _%g9664796649%_ '5 '#f)) - (drop _%slots96635%_ '5)))) + (let ((__tmp97788 + (map (lambda (_%g9632696328%_) + (list _%g9632696328%_ '5 '#f)) + (drop _%slots96314%_ '5)))) (declare (not safe)) - (##apply append __tmp98109)))) - (_%properties96654%_ + (##apply append __tmp97788)))) + (_%properties96333%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots96635%_))) + (__foldr1 cons '() _%slots96314%_))) (cons (cons 'struct: '#t) '()))) - (_%t96656%_ - (let ((__tmp98110 (cons t::t '()))) + (_%t96335%_ + (let ((__tmp97789 (cons t::t '()))) (declare (not safe)) (##structure '#f 'class 'class - _%flags96646%_ + _%flags96325%_ ##type-type - _%fields96652%_ - __tmp98110 - _%slot-vector96637%_ - _%slot-table96644%_ - _%properties96654%_ + _%fields96331%_ + __tmp97789 + _%slot-vector96316%_ + _%slot-table96323%_ + _%properties96333%_ '#f '#f)))) (let () (declare (not safe)) - (##structure-type-set! _%t96656%_ _%t96656%_)) - _%t96656%_)) + (##structure-type-set! _%t96335%_ _%t96335%_)) + _%t96335%_)) (let () (declare (not safe)) (##structure-type-set! t::t class::t)) (define object::t - (let ((_%flags96631%_ + (let ((_%flags96310%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties96632%_ '((direct-slots:) (system: . #t))) - (_%slot-table96633%_ + (_%properties96311%_ '((direct-slots:) (system: . #t))) + (_%slot-table96312%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp98111 (cons t::t '()))) + (let ((__tmp97790 (cons t::t '()))) (declare (not safe)) (##structure class::t 'object 'object - _%flags96631%_ + _%flags96310%_ '#f '#() - __tmp98111 + __tmp97790 '#(#f) - _%slot-table96633%_ - _%properties96632%_ + _%slot-table96312%_ + _%properties96311%_ '#f '#f)))) (define class-type? - (lambda (_%obj96629%_) + (lambda (_%obj96308%_) (let () (declare (not safe)) - (##structure-instance-of? _%obj96629%_ 'class)))) + (##structure-instance-of? _%obj96308%_ 'class)))) (define class-type=? - (lambda (_%x96604%_ _%y96605%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%x96604%_ 'class)) - (let ((_%x96609%_ _%x96604%_)) - (if (let () - (declare (not safe)) - (##structure-instance-of? _%y96605%_ 'class)) - (let ((_%y96619%_ _%y96605%_)) - (declare (not safe)) - (__class-type=? _%x96609%_ _%y96619%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@157.34-157.35" - 'contract: - 'class-type? - 'value: - _%y96605%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@157.21-157.22" - 'contract: - 'class-type? - 'value: - _%x96604%_) - '#!void))))) + (lambda (_%x96283%_ _%y96284%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%x96283%_ 'class)) + (let ((_%x96288%_ _%x96283%_)) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%y96284%_ 'class)) + (let ((_%y96298%_ _%y96284%_)) + (__class-type=? _%x96288%_ _%y96298%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@157.34-157.35" + 'contract: + 'class-type? + 'value: + _%y96284%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@157.21-157.22" + 'contract: + 'class-type? + 'value: + _%x96283%_) + '#!void)))) (define __class-type=? - (lambda (_%x96583%_ _%y96584%_) - (let () - (let* ((_%x96587%_ _%x96583%_) (_%y96595%_ _%y96584%_)) - (eq? (let () - (declare (not safe)) - (##unchecked-structure-ref _%x96587%_ '1 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-ref _%y96595%_ '1 '#f '#f))))))) + (lambda (_%x96262%_ _%y96263%_) + (let* ((_%x96266%_ _%x96262%_) (_%y96274%_ _%y96263%_)) + (eq? (let () + (declare (not safe)) + (##unchecked-structure-ref _%x96266%_ '1 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-ref _%y96274%_ '1 '#f '#f)))))) (define type-opaque? - (lambda (_%type96569%_) - (let () - (if (let () (declare (not safe)) (##type? _%type96569%_)) - (let ((_%type96573%_ _%type96569%_)) - (declare (not safe)) - (__type-opaque? _%type96573%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@171.21-171.25" - 'contract: - '##type? - 'value: - _%type96569%_) - '#!void))))) + (lambda (_%type96248%_) + (if (let () (declare (not safe)) (##type? _%type96248%_)) + (let ((_%type96252%_ _%type96248%_)) + (__type-opaque? _%type96252%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@171.21-171.25" + 'contract: + '##type? + 'value: + _%type96248%_) + '#!void)))) (define __type-opaque? - (lambda (_%type96557%_) - (let () - (let* ((_%type96560%_ _%type96557%_) - (__tmp98112 - (let ((__tmp98113 - (let () - (declare (not safe)) - (##type-flags _%type96560%_)))) - (declare (not safe)) - (##fxand __tmp98113 type-flag-opaque)))) - (declare (not safe)) - (##fx= __tmp98112 type-flag-opaque))))) + (lambda (_%type96236%_) + (let* ((_%type96239%_ _%type96236%_) + (__tmp97791 + (let ((__tmp97792 + (let () + (declare (not safe)) + (##type-flags _%type96239%_)))) + (declare (not safe)) + (##fxand __tmp97792 type-flag-opaque)))) + (declare (not safe)) + (##fx= __tmp97791 type-flag-opaque)))) (define type-extensible? - (lambda (_%type96543%_) - (let () - (if (let () (declare (not safe)) (##type? _%type96543%_)) - (let ((_%type96547%_ _%type96543%_)) - (declare (not safe)) - (__type-extensible? _%type96547%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@173.25-173.29" - 'contract: - '##type? - 'value: - _%type96543%_) - '#!void))))) + (lambda (_%type96222%_) + (if (let () (declare (not safe)) (##type? _%type96222%_)) + (let ((_%type96226%_ _%type96222%_)) + (__type-extensible? _%type96226%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@173.25-173.29" + 'contract: + '##type? + 'value: + _%type96222%_) + '#!void)))) (define __type-extensible? - (lambda (_%type96531%_) - (let () - (let* ((_%type96534%_ _%type96531%_) - (__tmp98114 - (let ((__tmp98115 - (let () - (declare (not safe)) - (##type-flags _%type96534%_)))) - (declare (not safe)) - (##fxand __tmp98115 type-flag-extensible)))) - (declare (not safe)) - (##fx= __tmp98114 type-flag-extensible))))) + (lambda (_%type96210%_) + (let* ((_%type96213%_ _%type96210%_) + (__tmp97793 + (let ((__tmp97794 + (let () + (declare (not safe)) + (##type-flags _%type96213%_)))) + (declare (not safe)) + (##fxand __tmp97794 type-flag-extensible)))) + (declare (not safe)) + (##fx= __tmp97793 type-flag-extensible)))) (define class-type-final? - (lambda (_%type96517%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%type96517%_ 'class)) - (let ((_%type96521%_ _%type96517%_)) - (declare (not safe)) - (__class-type-final? _%type96521%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@175.26-175.30" - 'contract: - 'class-type? - 'value: - _%type96517%_) - '#!void))))) + (lambda (_%type96196%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%type96196%_ 'class)) + (let ((_%type96200%_ _%type96196%_)) + (__class-type-final? _%type96200%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@175.26-175.30" + 'contract: + 'class-type? + 'value: + _%type96196%_) + '#!void)))) (define __class-type-final? - (lambda (_%type96505%_) - (let () - (let* ((_%type96508%_ _%type96505%_) - (__tmp98116 - (let ((__tmp98117 - (let () - (declare (not safe)) - (##type-flags _%type96508%_)))) - (declare (not safe)) - (##fxand __tmp98117 type-flag-extensible)))) - (declare (not safe)) - (##fx= __tmp98116 '0))))) + (lambda (_%type96184%_) + (let* ((_%type96187%_ _%type96184%_) + (__tmp97795 + (let ((__tmp97796 + (let () + (declare (not safe)) + (##type-flags _%type96187%_)))) + (declare (not safe)) + (##fxand __tmp97796 type-flag-extensible)))) + (declare (not safe)) + (##fx= __tmp97795 '0)))) (define class-type-struct? - (lambda (_%klass96491%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass96491%_ 'class)) - (let ((_%klass96495%_ _%klass96491%_)) - (declare (not safe)) - (__class-type-struct? _%klass96495%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@177.27-177.32" - 'contract: - 'class-type? - 'value: - _%klass96491%_) - '#!void))))) + (lambda (_%klass96170%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass96170%_ 'class)) + (let ((_%klass96174%_ _%klass96170%_)) + (__class-type-struct? _%klass96174%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@177.27-177.32" + 'contract: + 'class-type? + 'value: + _%klass96170%_) + '#!void)))) (define __class-type-struct? - (lambda (_%klass96479%_) - (let () - (let* ((_%klass96482%_ _%klass96479%_) - (__tmp98118 - (let ((__tmp98119 - (let () - (declare (not safe)) - (##type-flags _%klass96482%_)))) - (declare (not safe)) - (##fxand __tmp98119 class-type-flag-struct)))) - (declare (not safe)) - (##fx= __tmp98118 class-type-flag-struct))))) + (lambda (_%klass96158%_) + (let* ((_%klass96161%_ _%klass96158%_) + (__tmp97797 + (let ((__tmp97798 + (let () + (declare (not safe)) + (##type-flags _%klass96161%_)))) + (declare (not safe)) + (##fxand __tmp97798 class-type-flag-struct)))) + (declare (not safe)) + (##fx= __tmp97797 class-type-flag-struct)))) (define class-type-sealed? - (lambda (_%klass96465%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass96465%_ 'class)) - (let ((_%klass96469%_ _%klass96465%_)) - (declare (not safe)) - (__class-type-sealed? _%klass96469%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@179.27-179.32" - 'contract: - 'class-type? - 'value: - _%klass96465%_) - '#!void))))) + (lambda (_%klass96144%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass96144%_ 'class)) + (let ((_%klass96148%_ _%klass96144%_)) + (__class-type-sealed? _%klass96148%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@179.27-179.32" + 'contract: + 'class-type? + 'value: + _%klass96144%_) + '#!void)))) (define __class-type-sealed? - (lambda (_%klass96453%_) - (let () - (let* ((_%klass96456%_ _%klass96453%_) - (__tmp98120 - (let ((__tmp98121 - (let () - (declare (not safe)) - (##type-flags _%klass96456%_)))) - (declare (not safe)) - (##fxand __tmp98121 class-type-flag-sealed)))) - (declare (not safe)) - (##fx= __tmp98120 class-type-flag-sealed))))) + (lambda (_%klass96132%_) + (let* ((_%klass96135%_ _%klass96132%_) + (__tmp97799 + (let ((__tmp97800 + (let () + (declare (not safe)) + (##type-flags _%klass96135%_)))) + (declare (not safe)) + (##fxand __tmp97800 class-type-flag-sealed)))) + (declare (not safe)) + (##fx= __tmp97799 class-type-flag-sealed)))) (define class-type-metaclass? - (lambda (_%klass96439%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass96439%_ 'class)) - (let ((_%klass96443%_ _%klass96439%_)) - (declare (not safe)) - (__class-type-metaclass? _%klass96443%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@181.30-181.35" - 'contract: - 'class-type? - 'value: - _%klass96439%_) - '#!void))))) + (lambda (_%klass96118%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass96118%_ 'class)) + (let ((_%klass96122%_ _%klass96118%_)) + (__class-type-metaclass? _%klass96122%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@181.30-181.35" + 'contract: + 'class-type? + 'value: + _%klass96118%_) + '#!void)))) (define __class-type-metaclass? - (lambda (_%klass96427%_) - (let () - (let* ((_%klass96430%_ _%klass96427%_) - (__tmp98122 - (let ((__tmp98123 - (let () - (declare (not safe)) - (##type-flags _%klass96430%_)))) - (declare (not safe)) - (##fxand __tmp98123 class-type-flag-metaclass)))) - (declare (not safe)) - (##fx= __tmp98122 class-type-flag-metaclass))))) + (lambda (_%klass96106%_) + (let* ((_%klass96109%_ _%klass96106%_) + (__tmp97801 + (let ((__tmp97802 + (let () + (declare (not safe)) + (##type-flags _%klass96109%_)))) + (declare (not safe)) + (##fxand __tmp97802 class-type-flag-metaclass)))) + (declare (not safe)) + (##fx= __tmp97801 class-type-flag-metaclass)))) (define class-type-system? - (lambda (_%klass96413%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass96413%_ 'class)) - (let ((_%klass96417%_ _%klass96413%_)) - (declare (not safe)) - (__class-type-system? _%klass96417%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@183.27-183.32" - 'contract: - 'class-type? - 'value: - _%klass96413%_) - '#!void))))) + (lambda (_%klass96092%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass96092%_ 'class)) + (let ((_%klass96096%_ _%klass96092%_)) + (__class-type-system? _%klass96096%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@183.27-183.32" + 'contract: + 'class-type? + 'value: + _%klass96092%_) + '#!void)))) (define __class-type-system? - (lambda (_%klass96401%_) - (let () - (let* ((_%klass96404%_ _%klass96401%_) - (__tmp98124 - (let ((__tmp98125 - (let () - (declare (not safe)) - (##type-flags _%klass96404%_)))) - (declare (not safe)) - (##fxand __tmp98125 class-type-flag-system)))) - (declare (not safe)) - (##fx= __tmp98124 class-type-flag-system))))) + (lambda (_%klass96080%_) + (let* ((_%klass96083%_ _%klass96080%_) + (__tmp97803 + (let ((__tmp97804 + (let () + (declare (not safe)) + (##type-flags _%klass96083%_)))) + (declare (not safe)) + (##fxand __tmp97804 class-type-flag-system)))) + (declare (not safe)) + (##fx= __tmp97803 class-type-flag-system)))) (define make-class-type-descriptor - (lambda (_%type-id96286%_ - _%type-name96287%_ - _%type-super96288%_ - _%precedence-list96289%_ - _%slot-vector96290%_ - _%properties96291%_ - _%constructor96292%_ - _%slot-table96293%_ - _%methods96294%_) - (let () - (letrec ((_%make-props!96297%_ - (lambda (_%key96370%_) - (letrec* ((_%ht96372%_ - (let () - (declare (not safe)) - (make-symbolic-table__% '#f '0))) - (_%put-slots!96373%_ - (lambda (_%ht96394%_ _%slots96395%_) - (for-each - (lambda (_%g9639696398%_) - (let () - (declare (not safe)) - (symbolic-table-set! - _%ht96394%_ - _%g9639696398%_ - '#t))) - _%slots96395%_))) - (_%put-alist!96374%_ - (lambda (_%ht96383%_ - _%key96384%_ - _%alist96385%_) - (let ((_%$e96387%_ - (let () - (declare (not safe)) - (agetq__0 - _%key96384%_ - _%alist96385%_)))) - (if _%$e96387%_ - ((lambda (_%g9638996391%_) - (let () - (declare (not safe)) - (_%put-slots!96373%_ - _%ht96383%_ - _%g9638996391%_))) - _%$e96387%_) - '#!void))))) - (let () - (declare (not safe)) - (_%put-alist!96374%_ - _%ht96372%_ - _%key96370%_ - _%properties96291%_)) - (for-each - (lambda (_%mixin96376%_) - (let ((_%alist96378%_ - (##structure-ref - _%mixin96376%_ - '9 - class::t - '#f))) - (if (or (let () - (declare (not safe)) - (agetq__0 'transparent: _%alist96378%_)) - (eq? '#t - (let () - (declare (not safe)) - (agetq__0 - _%key96370%_ - _%alist96378%_)))) - (let ((__tmp98126 - (let () - (declare (not safe)) - (class-type-slot-list - _%mixin96376%_)))) - (declare (not safe)) - (_%put-slots!96373%_ - _%ht96372%_ - __tmp98126)) - (let () - (declare (not safe)) - (_%put-alist!96374%_ - _%ht96372%_ - _%key96370%_ - _%alist96378%_))))) - _%precedence-list96289%_) - _%ht96372%_)))) - (let* ((_%transparent?96299%_ - (let () - (declare (not safe)) - (agetq__0 'transparent: _%properties96291%_))) - (_%all-slots-printable?96304%_ - (let ((_%$e96301%_ _%transparent?96299%_)) - (if _%$e96301%_ - _%$e96301%_ - (eq? '#t - (let () - (declare (not safe)) - (agetq__0 'print: _%properties96291%_)))))) - (_%printable96306%_ - (if (let () - (declare (not safe)) - (not _%all-slots-printable?96304%_)) - (let () - (declare (not safe)) - (_%make-props!96297%_ 'print:)) - '#f)) - (_%all-slots-equalable?96311%_ - (let ((_%$e96308%_ _%transparent?96299%_)) - (if _%$e96308%_ - _%$e96308%_ - (eq? '#t + (lambda (_%type-id95965%_ + _%type-name95966%_ + _%type-super95967%_ + _%precedence-list95968%_ + _%slot-vector95969%_ + _%properties95970%_ + _%constructor95971%_ + _%slot-table95972%_ + _%methods95973%_) + (letrec ((_%make-props!95976%_ + (lambda (_%key96049%_) + (letrec* ((_%ht96051%_ (let () (declare (not safe)) - (agetq__0 'equal: _%properties96291%_)))))) - (_%equalable96313%_ - (if (let () - (declare (not safe)) - (not _%all-slots-equalable?96311%_)) - (let () - (declare (not safe)) - (_%make-props!96297%_ 'equal:)) - '#f)) - (_%first-new-field96315%_ - (if (let () - (declare (not safe)) - (##structure-instance-of? - _%type-super96288%_ - 'class)) - (let ((__tmp98127 - (##structure-ref - _%type-super96288%_ - '7 - class::t - '#f))) - (declare (not safe)) - (##vector-length __tmp98127)) - '1)) - (_%field-info-length96317%_ - (let ((__tmp98128 - (let ((__tmp98129 - (let () - (declare (not safe)) - (##vector-length _%slot-vector96290%_)))) - (declare (not safe)) - (##fx- __tmp98129 _%first-new-field96315%_)))) - (declare (not safe)) - (##fx* '3 __tmp98128))) - (_%field-info96319%_ - (let () - (declare (not safe)) - (##make-vector _%field-info-length96317%_ '#f))) - (_%struct?96321%_ - (let () - (declare (not safe)) - (agetq__0 'struct: _%properties96291%_))) - (_%final?96323%_ - (let () - (declare (not safe)) - (agetq__0 'final: _%properties96291%_))) - (_%metaclass96331%_ - (let ((_%metaclass9632496326%_ - (let () - (declare (not safe)) - (agetq__0 'metaclass: _%properties96291%_)))) - (if _%metaclass9632496326%_ - (let ((_%metaclass96329%_ _%metaclass9632496326%_)) - (if (let () - (declare (not safe)) - (##structure-instance-of? - _%metaclass96329%_ - 'class)) - '#!void - (error '"metaclass is not a class type" - 'class: - _%type-id96286%_ - 'metaclass: - _%metaclass96329%_)) - _%metaclass96329%_) - '#f))) - (_%system?96333%_ - (let () - (declare (not safe)) - (agetq__0 'system: _%properties96291%_))) - (_%opaque?96338%_ - (let ((_%$e96335%_ - (let () - (declare (not safe)) - (not _%all-slots-equalable?96311%_)))) - (if _%$e96335%_ - _%$e96335%_ - (if _%type-super96288%_ - (let () - (declare (not safe)) - (__type-opaque? _%type-super96288%_)) - '#f)))) - (_%type-flags96340%_ - (let ((__tmp98134 - (if _%final?96323%_ '0 type-flag-extensible)) - (__tmp98133 - (if _%opaque?96338%_ type-flag-opaque '0)) - (__tmp98132 - (if _%struct?96321%_ class-type-flag-struct '0)) - (__tmp98131 - (if _%metaclass96331%_ - class-type-flag-metaclass - '0)) - (__tmp98130 - (if _%system?96333%_ class-type-flag-system '0))) - (declare (not safe)) - (##fxior type-flag-id - type-flag-concrete - __tmp98134 - __tmp98133 - __tmp98132 - __tmp98131 - __tmp98130))) - (_%precedence-list96348%_ - (let ((_%$e96342%_ (memq t::t _%precedence-list96289%_))) - (if _%$e96342%_ - ((lambda (_%tail96345%_) - (if (let ((__tmp98135 (cdr _%tail96345%_))) - (declare (not safe)) - (null? __tmp98135)) - _%precedence-list96289%_ - (error '"BUG: t::t is not last in the precedence list" - 'precedence-list: - _%precedence-list96289%_))) - _%$e96342%_) - (let ((__tmp98136 (cons t::t '()))) - (declare (not safe)) - (##append _%precedence-list96289%_ __tmp98136)))))) - (let _%loop96351%_ ((_%i96353%_ _%first-new-field96315%_) - (_%j96354%_ '0)) - (if (let () - (declare (not safe)) - (##fx< _%j96354%_ _%field-info-length96317%_)) - (let* ((_%slot96356%_ - (let () - (declare (not safe)) - (##vector-ref _%slot-vector96290%_ _%i96353%_))) - (_%flags96364%_ - (if _%transparent?96299%_ - '0 - (let ((__tmp98138 - (if (or _%all-slots-printable?96304%_ - (let () - (declare (not safe)) - (symbolic-table-ref - _%printable96306%_ - _%slot96356%_ - '#f))) - '0 - '1)) - (__tmp98137 - (if (or _%all-slots-equalable?96311%_ - (let () - (declare (not safe)) - (symbolic-table-ref - _%equalable96313%_ - _%slot96356%_ - '#f))) - '0 - '4))) - (declare (not safe)) - (##fxior __tmp98138 __tmp98137))))) - (vector-set! - _%field-info96319%_ - _%j96354%_ - _%slot96356%_) - (vector-set! - _%field-info96319%_ - (let () (declare (not safe)) (##fx+ _%j96354%_ '1)) - _%flags96364%_) - (let ((__tmp98140 + (make-symbolic-table__% '#f '0))) + (_%put-slots!96052%_ + (lambda (_%ht96073%_ _%slots96074%_) + (for-each + (lambda (_%g9607596077%_) + (let () + (declare (not safe)) + (symbolic-table-set! + _%ht96073%_ + _%g9607596077%_ + '#t))) + _%slots96074%_))) + (_%put-alist!96053%_ + (lambda (_%ht96062%_ + _%key96063%_ + _%alist96064%_) + (let ((_%$e96066%_ + (let () + (declare (not safe)) + (agetq__0 + _%key96063%_ + _%alist96064%_)))) + (if _%$e96066%_ + ((lambda (_%g9606896070%_) + (_%put-slots!96052%_ + _%ht96062%_ + _%g9606896070%_)) + _%$e96066%_) + '#!void))))) + (_%put-alist!96053%_ + _%ht96051%_ + _%key96049%_ + _%properties95970%_) + (for-each + (lambda (_%mixin96055%_) + (let ((_%alist96057%_ + (##structure-ref + _%mixin96055%_ + '9 + class::t + '#f))) + (if (or (let () + (declare (not safe)) + (agetq__0 'transparent: _%alist96057%_)) + (eq? '#t + (let () + (declare (not safe)) + (agetq__0 + _%key96049%_ + _%alist96057%_)))) + (_%put-slots!96052%_ + _%ht96051%_ + (class-type-slot-list _%mixin96055%_)) + (_%put-alist!96053%_ + _%ht96051%_ + _%key96049%_ + _%alist96057%_)))) + _%precedence-list95968%_) + _%ht96051%_)))) + (let* ((_%transparent?95978%_ + (let () + (declare (not safe)) + (agetq__0 'transparent: _%properties95970%_))) + (_%all-slots-printable?95983%_ + (let ((_%$e95980%_ _%transparent?95978%_)) + (if _%$e95980%_ + _%$e95980%_ + (eq? '#t (let () (declare (not safe)) - (##fx+ _%i96353%_ '1))) - (__tmp98139 + (agetq__0 'print: _%properties95970%_)))))) + (_%printable95985%_ + (if (not _%all-slots-printable?95983%_) + (_%make-props!95976%_ 'print:) + '#f)) + (_%all-slots-equalable?95990%_ + (let ((_%$e95987%_ _%transparent?95978%_)) + (if _%$e95987%_ + _%$e95987%_ + (eq? '#t (let () (declare (not safe)) - (##fx+ _%j96354%_ '3)))) + (agetq__0 'equal: _%properties95970%_)))))) + (_%equalable95992%_ + (if (not _%all-slots-equalable?95990%_) + (_%make-props!95976%_ 'equal:) + '#f)) + (_%first-new-field95994%_ + (if (let () + (declare (not safe)) + (##structure-instance-of? _%type-super95967%_ 'class)) + (let ((__tmp97805 + (##structure-ref + _%type-super95967%_ + '7 + class::t + '#f))) (declare (not safe)) - (_%loop96351%_ __tmp98140 __tmp98139))) - '#!void)) - (if _%metaclass96331%_ - (let ((_%val96367%_ + (##vector-length __tmp97805)) + '1)) + (_%field-info-length95996%_ + (let ((__tmp97806 + (let ((__tmp97807 + (let () + (declare (not safe)) + (##vector-length _%slot-vector95969%_)))) + (declare (not safe)) + (##fx- __tmp97807 _%first-new-field95994%_)))) + (declare (not safe)) + (##fx* '3 __tmp97806))) + (_%field-info95998%_ + (let () + (declare (not safe)) + (##make-vector _%field-info-length95996%_ '#f))) + (_%struct?96000%_ + (let () + (declare (not safe)) + (agetq__0 'struct: _%properties95970%_))) + (_%final?96002%_ + (let () + (declare (not safe)) + (agetq__0 'final: _%properties95970%_))) + (_%metaclass96010%_ + (let ((_%metaclass9600396005%_ (let () (declare (not safe)) - (make-instance - _%metaclass96331%_ - _%type-id96286%_ - _%type-name96287%_ - _%type-flags96340%_ - _%type-super96288%_ - _%field-info96319%_ - _%precedence-list96348%_ - _%slot-vector96290%_ - _%slot-table96293%_ - _%properties96291%_ - _%constructor96292%_ - _%methods96294%_)))) - (if (let () - (declare (not safe)) - (##structure-instance-of? _%val96367%_ 'class)) - _%val96367%_ - (error '"bad cast" class::t _%val96367%_))) + (agetq__0 'metaclass: _%properties95970%_)))) + (if _%metaclass9600396005%_ + (let ((_%metaclass96008%_ _%metaclass9600396005%_)) + (if (let () + (declare (not safe)) + (##structure-instance-of? + _%metaclass96008%_ + 'class)) + '#!void + (error '"metaclass is not a class type" + 'class: + _%type-id95965%_ + 'metaclass: + _%metaclass96008%_)) + _%metaclass96008%_) + '#f))) + (_%system?96012%_ (let () (declare (not safe)) - (##structure - class::t - _%type-id96286%_ - _%type-name96287%_ - _%type-flags96340%_ - _%type-super96288%_ - _%field-info96319%_ - _%precedence-list96348%_ - _%slot-vector96290%_ - _%slot-table96293%_ - _%properties96291%_ - _%constructor96292%_ - _%methods96294%_)))))))) + (agetq__0 'system: _%properties95970%_))) + (_%opaque?96017%_ + (let ((_%$e96014%_ (not _%all-slots-equalable?95990%_))) + (if _%$e96014%_ + _%$e96014%_ + (if _%type-super95967%_ + (__type-opaque? _%type-super95967%_) + '#f)))) + (_%type-flags96019%_ + (let ((__tmp97812 + (if _%final?96002%_ '0 type-flag-extensible)) + (__tmp97811 (if _%opaque?96017%_ type-flag-opaque '0)) + (__tmp97810 + (if _%struct?96000%_ class-type-flag-struct '0)) + (__tmp97809 + (if _%metaclass96010%_ class-type-flag-metaclass '0)) + (__tmp97808 + (if _%system?96012%_ class-type-flag-system '0))) + (declare (not safe)) + (##fxior type-flag-id + type-flag-concrete + __tmp97812 + __tmp97811 + __tmp97810 + __tmp97809 + __tmp97808))) + (_%precedence-list96027%_ + (let ((_%$e96021%_ (memq t::t _%precedence-list95968%_))) + (if _%$e96021%_ + ((lambda (_%tail96024%_) + (if (null? (cdr _%tail96024%_)) + _%precedence-list95968%_ + (error '"BUG: t::t is not last in the precedence list" + 'precedence-list: + _%precedence-list95968%_))) + _%$e96021%_) + (let ((__tmp97813 (cons t::t '()))) + (declare (not safe)) + (##append _%precedence-list95968%_ __tmp97813)))))) + (let _%loop96030%_ ((_%i96032%_ _%first-new-field95994%_) + (_%j96033%_ '0)) + (if (let () + (declare (not safe)) + (##fx< _%j96033%_ _%field-info-length95996%_)) + (let* ((_%slot96035%_ + (let () + (declare (not safe)) + (##vector-ref _%slot-vector95969%_ _%i96032%_))) + (_%flags96043%_ + (if _%transparent?95978%_ + '0 + (let ((__tmp97815 + (if (or _%all-slots-printable?95983%_ + (let () + (declare (not safe)) + (symbolic-table-ref + _%printable95985%_ + _%slot96035%_ + '#f))) + '0 + '1)) + (__tmp97814 + (if (or _%all-slots-equalable?95990%_ + (let () + (declare (not safe)) + (symbolic-table-ref + _%equalable95992%_ + _%slot96035%_ + '#f))) + '0 + '4))) + (declare (not safe)) + (##fxior __tmp97815 __tmp97814))))) + (vector-set! _%field-info95998%_ _%j96033%_ _%slot96035%_) + (vector-set! + _%field-info95998%_ + (let () (declare (not safe)) (##fx+ _%j96033%_ '1)) + _%flags96043%_) + (_%loop96030%_ + (let () (declare (not safe)) (##fx+ _%i96032%_ '1)) + (let () (declare (not safe)) (##fx+ _%j96033%_ '3)))) + '#!void)) + (if _%metaclass96010%_ + (let ((_%val96046%_ + (make-instance + _%metaclass96010%_ + _%type-id95965%_ + _%type-name95966%_ + _%type-flags96019%_ + _%type-super95967%_ + _%field-info95998%_ + _%precedence-list96027%_ + _%slot-vector95969%_ + _%slot-table95972%_ + _%properties95970%_ + _%constructor95971%_ + _%methods95973%_))) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%val96046%_ 'class)) + _%val96046%_ + (error '"bad cast" class::t _%val96046%_))) + (let () + (declare (not safe)) + (##structure + class::t + _%type-id95965%_ + _%type-name95966%_ + _%type-flags96019%_ + _%type-super95967%_ + _%field-info95998%_ + _%precedence-list96027%_ + _%slot-vector95969%_ + _%slot-table95972%_ + _%properties95970%_ + _%constructor95971%_ + _%methods95973%_))))))) (define class-type-id - (lambda (_%klass96284%_) - (##structure-ref _%klass96284%_ '1 class::t 'id))) + (lambda (_%klass95963%_) + (##structure-ref _%klass95963%_ '1 class::t 'id))) (define &class-type-id - (lambda (_%klass96282%_) + (lambda (_%klass95961%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass96282%_ '1 class::t 'id)))) + (##unchecked-structure-ref _%klass95961%_ '1 class::t 'id)))) (define class-type-id-set! - (lambda (_%klass96279%_ _%val96280%_) - (##structure-set! _%klass96279%_ _%val96280%_ '1 class::t 'id))) + (lambda (_%klass95958%_ _%val95959%_) + (##structure-set! _%klass95958%_ _%val95959%_ '1 class::t 'id))) (define &class-type-id-set! - (lambda (_%klass96274%_ _%val96276%_) + (lambda (_%klass95953%_ _%val95955%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass96274%_ - _%val96276%_ + _%klass95953%_ + _%val95955%_ '1 class::t 'id)))) (define class-type-name - (lambda (_%klass96272%_) - (##structure-ref _%klass96272%_ '2 class::t 'name))) + (lambda (_%klass95951%_) + (##structure-ref _%klass95951%_ '2 class::t 'name))) (define &class-type-name - (lambda (_%klass96270%_) + (lambda (_%klass95949%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass96270%_ '2 class::t 'name)))) + (##unchecked-structure-ref _%klass95949%_ '2 class::t 'name)))) (define class-type-name-set! - (lambda (_%klass96267%_ _%val96268%_) - (##structure-set! _%klass96267%_ _%val96268%_ '2 class::t 'name))) + (lambda (_%klass95946%_ _%val95947%_) + (##structure-set! _%klass95946%_ _%val95947%_ '2 class::t 'name))) (define &class-type-name-set! - (lambda (_%klass96262%_ _%val96264%_) + (lambda (_%klass95941%_ _%val95943%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass96262%_ - _%val96264%_ + _%klass95941%_ + _%val95943%_ '2 class::t 'name)))) (define class-type-flags - (lambda (_%klass96260%_) - (##structure-ref _%klass96260%_ '3 class::t 'flags))) + (lambda (_%klass95939%_) + (##structure-ref _%klass95939%_ '3 class::t 'flags))) (define &class-type-flags - (lambda (_%klass96258%_) + (lambda (_%klass95937%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass96258%_ '3 class::t 'flags)))) + (##unchecked-structure-ref _%klass95937%_ '3 class::t 'flags)))) (define class-type-flags-set! - (lambda (_%klass96255%_ _%val96256%_) - (##structure-set! _%klass96255%_ _%val96256%_ '3 class::t 'flags))) + (lambda (_%klass95934%_ _%val95935%_) + (##structure-set! _%klass95934%_ _%val95935%_ '3 class::t 'flags))) (define &class-type-flags-set! - (lambda (_%klass96250%_ _%val96252%_) + (lambda (_%klass95929%_ _%val95931%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass96250%_ - _%val96252%_ + _%klass95929%_ + _%val95931%_ '3 class::t 'flags)))) (define class-type-super - (lambda (_%klass96248%_) - (##structure-ref _%klass96248%_ '4 class::t 'super))) + (lambda (_%klass95927%_) + (##structure-ref _%klass95927%_ '4 class::t 'super))) (define &class-type-super - (lambda (_%klass96246%_) + (lambda (_%klass95925%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass96246%_ '4 class::t 'super)))) + (##unchecked-structure-ref _%klass95925%_ '4 class::t 'super)))) (define class-type-super-set! - (lambda (_%klass96243%_ _%val96244%_) - (##structure-set! _%klass96243%_ _%val96244%_ '4 class::t 'super))) + (lambda (_%klass95922%_ _%val95923%_) + (##structure-set! _%klass95922%_ _%val95923%_ '4 class::t 'super))) (define &class-type-super-set! - (lambda (_%klass96238%_ _%val96240%_) + (lambda (_%klass95917%_ _%val95919%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass96238%_ - _%val96240%_ + _%klass95917%_ + _%val95919%_ '4 class::t 'super)))) (define class-type-fields - (lambda (_%klass96236%_) - (##structure-ref _%klass96236%_ '5 class::t 'fields))) + (lambda (_%klass95915%_) + (##structure-ref _%klass95915%_ '5 class::t 'fields))) (define &class-type-fields - (lambda (_%klass96234%_) + (lambda (_%klass95913%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass96234%_ '5 class::t 'fields)))) + (##unchecked-structure-ref _%klass95913%_ '5 class::t 'fields)))) (define class-type-fields-set! - (lambda (_%klass96231%_ _%val96232%_) - (##structure-set! _%klass96231%_ _%val96232%_ '5 class::t 'fields))) + (lambda (_%klass95910%_ _%val95911%_) + (##structure-set! _%klass95910%_ _%val95911%_ '5 class::t 'fields))) (define &class-type-fields-set! - (lambda (_%klass96226%_ _%val96228%_) + (lambda (_%klass95905%_ _%val95907%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass96226%_ - _%val96228%_ + _%klass95905%_ + _%val95907%_ '5 class::t 'fields)))) (define class-type-precedence-list - (lambda (_%klass96224%_) - (##structure-ref _%klass96224%_ '6 class::t 'precedence-list))) + (lambda (_%klass95903%_) + (##structure-ref _%klass95903%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list - (lambda (_%klass96222%_) + (lambda (_%klass95901%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass96222%_ + _%klass95901%_ '6 class::t 'precedence-list)))) (define class-type-precedence-list-set! - (lambda (_%klass96219%_ _%val96220%_) + (lambda (_%klass95898%_ _%val95899%_) (##structure-set! - _%klass96219%_ - _%val96220%_ + _%klass95898%_ + _%val95899%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list-set! - (lambda (_%klass96214%_ _%val96216%_) + (lambda (_%klass95893%_ _%val95895%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass96214%_ - _%val96216%_ + _%klass95893%_ + _%val95895%_ '6 class::t 'precedence-list)))) (define class-type-slot-vector - (lambda (_%klass96212%_) - (##structure-ref _%klass96212%_ '7 class::t 'slot-vector))) + (lambda (_%klass95891%_) + (##structure-ref _%klass95891%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector - (lambda (_%klass96210%_) + (lambda (_%klass95889%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass96210%_ + _%klass95889%_ '7 class::t 'slot-vector)))) (define class-type-slot-vector-set! - (lambda (_%klass96207%_ _%val96208%_) + (lambda (_%klass95886%_ _%val95887%_) (##structure-set! - _%klass96207%_ - _%val96208%_ + _%klass95886%_ + _%val95887%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector-set! - (lambda (_%klass96202%_ _%val96204%_) + (lambda (_%klass95881%_ _%val95883%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass96202%_ - _%val96204%_ + _%klass95881%_ + _%val95883%_ '7 class::t 'slot-vector)))) (define class-type-slot-table - (lambda (_%klass96200%_) - (##structure-ref _%klass96200%_ '8 class::t 'slot-table))) + (lambda (_%klass95879%_) + (##structure-ref _%klass95879%_ '8 class::t 'slot-table))) (define &class-type-slot-table - (lambda (_%klass96198%_) + (lambda (_%klass95877%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass96198%_ '8 class::t 'slot-table)))) + (##unchecked-structure-ref _%klass95877%_ '8 class::t 'slot-table)))) (define class-type-slot-table-set! - (lambda (_%klass96195%_ _%val96196%_) + (lambda (_%klass95874%_ _%val95875%_) (##structure-set! - _%klass96195%_ - _%val96196%_ + _%klass95874%_ + _%val95875%_ '8 class::t 'slot-table))) (define &class-type-slot-table-set! - (lambda (_%klass96190%_ _%val96192%_) + (lambda (_%klass95869%_ _%val95871%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass96190%_ - _%val96192%_ + _%klass95869%_ + _%val95871%_ '8 class::t 'slot-table)))) (define class-type-properties - (lambda (_%klass96188%_) - (##structure-ref _%klass96188%_ '9 class::t 'properties))) + (lambda (_%klass95867%_) + (##structure-ref _%klass95867%_ '9 class::t 'properties))) (define &class-type-properties - (lambda (_%klass96186%_) + (lambda (_%klass95865%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass96186%_ '9 class::t 'properties)))) + (##unchecked-structure-ref _%klass95865%_ '9 class::t 'properties)))) (define class-type-properties-set! - (lambda (_%klass96183%_ _%val96184%_) + (lambda (_%klass95862%_ _%val95863%_) (##structure-set! - _%klass96183%_ - _%val96184%_ + _%klass95862%_ + _%val95863%_ '9 class::t 'properties))) (define &class-type-properties-set! - (lambda (_%klass96178%_ _%val96180%_) + (lambda (_%klass95857%_ _%val95859%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass96178%_ - _%val96180%_ + _%klass95857%_ + _%val95859%_ '9 class::t 'properties)))) (define class-type-constructor - (lambda (_%klass96176%_) - (##structure-ref _%klass96176%_ '10 class::t 'constructor))) + (lambda (_%klass95855%_) + (##structure-ref _%klass95855%_ '10 class::t 'constructor))) (define &class-type-constructor - (lambda (_%klass96174%_) + (lambda (_%klass95853%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass96174%_ + _%klass95853%_ '10 class::t 'constructor)))) (define class-type-constructor-set! - (lambda (_%klass96171%_ _%val96172%_) + (lambda (_%klass95850%_ _%val95851%_) (##structure-set! - _%klass96171%_ - _%val96172%_ + _%klass95850%_ + _%val95851%_ '10 class::t 'constructor))) (define &class-type-constructor-set! - (lambda (_%klass96166%_ _%val96168%_) + (lambda (_%klass95845%_ _%val95847%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass96166%_ - _%val96168%_ + _%klass95845%_ + _%val95847%_ '10 class::t 'constructor)))) (define class-type-methods - (lambda (_%klass96164%_) - (##structure-ref _%klass96164%_ '11 class::t 'methods))) + (lambda (_%klass95843%_) + (##structure-ref _%klass95843%_ '11 class::t 'methods))) (define &class-type-methods - (lambda (_%klass96162%_) + (lambda (_%klass95841%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass96162%_ '11 class::t 'methods)))) + (##unchecked-structure-ref _%klass95841%_ '11 class::t 'methods)))) (define class-type-methods-set! - (lambda (_%klass96159%_ _%val96160%_) - (##structure-set! _%klass96159%_ _%val96160%_ '11 class::t 'methods))) + (lambda (_%klass95838%_ _%val95839%_) + (##structure-set! _%klass95838%_ _%val95839%_ '11 class::t 'methods))) (define &class-type-methods-set! - (lambda (_%klass96154%_ _%val96156%_) + (lambda (_%klass95833%_ _%val95835%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass96154%_ - _%val96156%_ + _%klass95833%_ + _%val95835%_ '11 class::t 'methods)))) (define class-type-slot-list - (lambda (_%klass96140%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass96140%_ 'class)) - (let ((_%klass96144%_ _%klass96140%_)) - (declare (not safe)) - (__class-type-slot-list _%klass96144%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@317.29-317.34" - 'contract: - 'class-type? - 'value: - _%klass96140%_) - '#!void))))) + (lambda (_%klass95819%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass95819%_ 'class)) + (let ((_%klass95823%_ _%klass95819%_)) + (__class-type-slot-list _%klass95823%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@317.29-317.34" + 'contract: + 'class-type? + 'value: + _%klass95819%_) + '#!void)))) (define __class-type-slot-list - (lambda (_%klass96128%_) - (let ((_%klass96131%_ _%klass96128%_)) + (lambda (_%klass95807%_) + (let ((_%klass95810%_ _%klass95807%_)) (cdr (vector->list (let () (declare (not safe)) - (##unchecked-structure-ref _%klass96131%_ '7 '#f '#f))))))) + (##unchecked-structure-ref _%klass95810%_ '7 '#f '#f))))))) (define class-type-field-count - (lambda (_%klass96114%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass96114%_ 'class)) - (let ((_%klass96118%_ _%klass96114%_)) - (declare (not safe)) - (__class-type-field-count _%klass96118%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@320.31-320.36" - 'contract: - 'class-type? - 'value: - _%klass96114%_) - '#!void))))) + (lambda (_%klass95793%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass95793%_ 'class)) + (let ((_%klass95797%_ _%klass95793%_)) + (__class-type-field-count _%klass95797%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@320.31-320.36" + 'contract: + 'class-type? + 'value: + _%klass95793%_) + '#!void)))) (define __class-type-field-count - (lambda (_%klass96102%_) - (let () - (let* ((_%klass96105%_ _%klass96102%_) - (__tmp98141 - (let ((__tmp98142 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass96105%_ - '7 - '#f - '#f)))) - (declare (not safe)) - (##vector-length __tmp98142)))) - (declare (not safe)) - (##fx- __tmp98141 '1))))) + (lambda (_%klass95781%_) + (let* ((_%klass95784%_ _%klass95781%_) + (__tmp97816 + (let ((__tmp97817 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass95784%_ + '7 + '#f + '#f)))) + (declare (not safe)) + (##vector-length __tmp97817)))) + (declare (not safe)) + (##fx- __tmp97816 '1)))) (define class-type-seal! - (lambda (_%klass96088%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass96088%_ 'class)) - (let ((_%klass96092%_ _%klass96088%_)) - (declare (not safe)) - (__class-type-seal! _%klass96092%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@323.25-323.30" - 'contract: - 'class-type? - 'value: - _%klass96088%_) - '#!void))))) + (lambda (_%klass95767%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass95767%_ 'class)) + (let ((_%klass95771%_ _%klass95767%_)) + (__class-type-seal! _%klass95771%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@323.25-323.30" + 'contract: + 'class-type? + 'value: + _%klass95767%_) + '#!void)))) (define __class-type-seal! - (lambda (_%klass96076%_) - (let ((_%klass96079%_ _%klass96076%_)) - (let ((__tmp98143 - (let ((__tmp98144 + (lambda (_%klass95755%_) + (let ((_%klass95758%_ _%klass95755%_)) + (let ((__tmp97818 + (let ((__tmp97819 (let () (declare (not safe)) - (##type-flags _%klass96079%_)))) + (##type-flags _%klass95758%_)))) (declare (not safe)) - (##fxior class-type-flag-sealed __tmp98144)))) + (##fxior class-type-flag-sealed __tmp97819)))) (declare (not safe)) (##unchecked-structure-set! - _%klass96079%_ - __tmp98143 + _%klass95758%_ + __tmp97818 '3 class::t class-type-seal!)) '#!void))) (define substruct? - (lambda (_%maybe-sub-struct96051%_ _%maybe-super-struct96052%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%maybe-sub-struct96051%_ 'class)) - (let ((_%maybe-sub-struct96056%_ _%maybe-sub-struct96051%_)) - (if (let () - (declare (not safe)) - (##structure-instance-of? - _%maybe-super-struct96052%_ - 'class)) - (let ((_%maybe-super-struct96066%_ - _%maybe-super-struct96052%_)) - (declare (not safe)) - (__substruct? - _%maybe-sub-struct96056%_ - _%maybe-super-struct96066%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@330.47-330.65" - 'contract: - 'class-type? - 'value: - _%maybe-super-struct96052%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@330.19-330.35" - 'contract: - 'class-type? - 'value: - _%maybe-sub-struct96051%_) - '#!void))))) - (define __substruct? - (lambda (_%maybe-sub-struct96020%_ _%maybe-super-struct96021%_) - (let ((_%maybe-sub-struct96024%_ _%maybe-sub-struct96020%_)) - (let* ((_%maybe-super-struct96032%_ _%maybe-super-struct96021%_) - (_%maybe-super-struct-id96041%_ - (let () - (declare (not safe)) - (##type-id _%maybe-super-struct96032%_)))) - (let _%lp96043%_ ((_%super-struct96045%_ - _%maybe-sub-struct96024%_)) - (let () - (if (let () (declare (not safe)) (not _%super-struct96045%_)) - (let () '#f) - (if (eq? _%maybe-super-struct-id96041%_ - (let () - (declare (not safe)) - (##type-id _%super-struct96045%_))) - (let () '#t) - (let ((__tmp98145 - (let () - (declare (not safe)) - (##type-super _%super-struct96045%_)))) - (declare (not safe)) - (_%lp96043%_ __tmp98145)))))))))) - (define base-struct/1 - (lambda (_%klass96015%_) + (lambda (_%maybe-sub-struct95730%_ _%maybe-super-struct95731%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96015%_ 'class)) - (let () + (##structure-instance-of? _%maybe-sub-struct95730%_ 'class)) + (let ((_%maybe-sub-struct95735%_ _%maybe-sub-struct95730%_)) (if (let () (declare (not safe)) - (class-type-struct? _%klass96015%_)) - _%klass96015%_ - (let () (declare (not safe)) (##type-super _%klass96015%_)))) - (if (let () (declare (not safe)) (not _%klass96015%_)) - (let () '#f) - (let () (error '"not a class or false" _%klass96015%_)))))) + (##structure-instance-of? + _%maybe-super-struct95731%_ + 'class)) + (let ((_%maybe-super-struct95745%_ + _%maybe-super-struct95731%_)) + (__substruct? + _%maybe-sub-struct95735%_ + _%maybe-super-struct95745%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@330.47-330.65" + 'contract: + 'class-type? + 'value: + _%maybe-super-struct95731%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@330.19-330.35" + 'contract: + 'class-type? + 'value: + _%maybe-sub-struct95730%_) + '#!void)))) + (define __substruct? + (lambda (_%maybe-sub-struct95699%_ _%maybe-super-struct95700%_) + (let* ((_%maybe-sub-struct95703%_ _%maybe-sub-struct95699%_) + (_%maybe-super-struct95711%_ _%maybe-super-struct95700%_) + (_%maybe-super-struct-id95720%_ + (let () + (declare (not safe)) + (##type-id _%maybe-super-struct95711%_)))) + (let _%lp95722%_ ((_%super-struct95724%_ _%maybe-sub-struct95703%_)) + (if (not _%super-struct95724%_) + '#f + (if (eq? _%maybe-super-struct-id95720%_ + (let () + (declare (not safe)) + (##type-id _%super-struct95724%_))) + '#t + (_%lp95722%_ + (let () + (declare (not safe)) + (##type-super _%super-struct95724%_))))))))) + (define base-struct/1 + (lambda (_%klass95694%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass95694%_ 'class)) + (if (class-type-struct? _%klass95694%_) + _%klass95694%_ + (let () (declare (not safe)) (##type-super _%klass95694%_))) + (if (not _%klass95694%_) + '#f + (error '"not a class or false" _%klass95694%_))))) (define base-struct/2 - (lambda (_%klass196000%_ _%klass296001%_) - (let ((_%s196003%_ - (let () (declare (not safe)) (base-struct/1 _%klass196000%_))) - (_%s296004%_ - (let () (declare (not safe)) (base-struct/1 _%klass296001%_)))) - (if (or (let () (declare (not safe)) (not _%s196003%_)) - (and _%s296004%_ - (let () - (declare (not safe)) - (substruct? _%s196003%_ _%s296004%_)))) - (let () _%s296004%_) - (if (or (let () (declare (not safe)) (not _%s296004%_)) - (and _%s196003%_ - (let () - (declare (not safe)) - (substruct? _%s296004%_ _%s196003%_)))) - (let () _%s196003%_) - (let () - (error '"bad mixin: incompatible struct bases" - _%klass196000%_ - _%klass296001%_ - _%s196003%_ - _%s296004%_))))))) + (lambda (_%klass195679%_ _%klass295680%_) + (let ((_%s195682%_ (base-struct/1 _%klass195679%_)) + (_%s295683%_ (base-struct/1 _%klass295680%_))) + (if (or (not _%s195682%_) + (and _%s295683%_ (substruct? _%s195682%_ _%s295683%_))) + _%s295683%_ + (if (or (not _%s295683%_) + (and _%s195682%_ (substruct? _%s295683%_ _%s195682%_))) + _%s195682%_ + (error '"bad mixin: incompatible struct bases" + _%klass195679%_ + _%klass295680%_ + _%s195682%_ + _%s295683%_)))))) (define base-struct/list - (lambda (_%all-supers95884%_) - (let* ((_%all-supers9588595910%_ _%all-supers95884%_) - (_%E9589095914%_ + (lambda (_%all-supers95563%_) + (let* ((_%all-supers9556495589%_ _%all-supers95563%_) + (_%E9556995593%_ (lambda () (error '"No clause matching" - _%all-supers9588595910%_ + _%all-supers9556495589%_ '([]) '([x]) '([x y]) '([x y ...])) '#!void))) - (let ((_%K9590895997%_ (lambda () '#f)) - (_%K9590595983%_ - (lambda (_%x95981%_) - (let () (declare (not safe)) (base-struct/1 _%x95981%_)))) - (_%K9590095960%_ - (lambda (_%y95957%_ _%x95958%_) + (let ((_%K9558795676%_ (lambda () '#f)) + (_%K9558495662%_ + (lambda (_%x95660%_) (base-struct/1 _%x95660%_))) + (_%K9557995639%_ + (lambda (_%y95636%_ _%x95637%_) + (base-struct/2 _%x95637%_ _%y95636%_))) + (_%K9557095600%_ + (lambda (_%y95597%_ _%x95598%_) (let () (declare (not safe)) - (base-struct/2 _%x95958%_ _%y95957%_)))) - (_%K9589195921%_ - (lambda (_%y95918%_ _%x95919%_) - (let () - (declare (not safe)) - (__foldr1 base-struct/2 _%x95919%_ _%y95918%_))))) - (let* ((_%__match9809998100%_ - (lambda (_%hd9589295924%_ _%tl9589395926%_) - (let ((_%x95929%_ _%hd9589295924%_)) - (letrec ((_%splice-rest9589595931%_ - (lambda (_%rest9589995938%_ _%y95940%_) - (if (let () - (declare (not safe)) - (##null? _%rest9589995938%_)) - (let () - (declare (not safe)) - (_%K9589195921%_ - _%y95940%_ - _%x95929%_)) - (let () - (declare (not safe)) - (_%E9589095914%_))))) - (_%splice-try9589795933%_ - (lambda (_%hd9589895942%_ - _%rest9589995944%_ - _%y9589495945%_) - (let ((_%y95948%_ _%hd9589895942%_)) - (let ((__tmp98147 - (let () - (declare (not safe)) - (##cdr _%rest9589995944%_))) - (__tmp98146 - (cons _%y95948%_ - _%y9589495945%_))) - (declare (not safe)) - (_%splice-loop9589695935%_ - __tmp98147 - __tmp98146))))) - (_%splice-loop9589695935%_ - (lambda (_%rest9589995950%_ _%y9589495951%_) + (__foldr1 base-struct/2 _%x95598%_ _%y95597%_))))) + (let* ((_%__match9777897779%_ + (lambda (_%hd9557195603%_ _%tl9557295605%_) + (let ((_%x95608%_ _%hd9557195603%_)) + (letrec ((_%splice-rest9557495610%_ + (lambda (_%rest9557895617%_ _%y95619%_) (if (let () (declare (not safe)) - (pair? _%rest9589995950%_)) - (let ((__tmp98148 - (let () - (declare (not safe)) - (##car _%rest9589995950%_)))) - (declare (not safe)) - (_%splice-try9589795933%_ - __tmp98148 - _%rest9589995950%_ - _%y9589495951%_)) - (let ((__tmp98149 - (reverse _%y9589495951%_))) - (declare (not safe)) - (_%splice-rest9589595931%_ - _%rest9589995950%_ - __tmp98149)))))) - (let () - (declare (not safe)) - (_%splice-loop9589695935%_ - _%tl9589395926%_ - '())))))) - (_%try-match9588795993%_ + (##null? _%rest9557895617%_)) + (_%K9557095600%_ _%y95619%_ _%x95608%_) + (_%E9556995593%_)))) + (_%splice-try9557695612%_ + (lambda (_%hd9557795621%_ + _%rest9557895623%_ + _%y9557395624%_) + (let ((_%y95627%_ _%hd9557795621%_)) + (_%splice-loop9557595614%_ + (let () + (declare (not safe)) + (##cdr _%rest9557895623%_)) + (cons _%y95627%_ _%y9557395624%_))))) + (_%splice-loop9557595614%_ + (lambda (_%rest9557895629%_ _%y9557395630%_) + (if (pair? _%rest9557895629%_) + (_%splice-try9557695612%_ + (let () + (declare (not safe)) + (##car _%rest9557895629%_)) + _%rest9557895629%_ + _%y9557395630%_) + (_%splice-rest9557495610%_ + _%rest9557895629%_ + (reverse _%y9557395630%_)))))) + (_%splice-loop9557595614%_ _%tl9557295605%_ '()))))) + (_%try-match9556695672%_ (lambda () (if (let () (declare (not safe)) - (##pair? _%all-supers9588595910%_)) - (let ((_%tl9590795988%_ + (##pair? _%all-supers9556495589%_)) + (let ((_%tl9558695667%_ (let () (declare (not safe)) - (##cdr _%all-supers9588595910%_))) - (_%hd9590695986%_ + (##cdr _%all-supers9556495589%_))) + (_%hd9558595665%_ (let () (declare (not safe)) - (##car _%all-supers9588595910%_)))) + (##car _%all-supers9556495589%_)))) (if (let () (declare (not safe)) - (##null? _%tl9590795988%_)) - (let ((_%x95991%_ _%hd9590695986%_)) - (declare (not safe)) - (base-struct/1 _%x95991%_)) + (##null? _%tl9558695667%_)) + (let ((_%x95670%_ _%hd9558595665%_)) + (base-struct/1 _%x95670%_)) (if (let () (declare (not safe)) - (##pair? _%tl9590795988%_)) - (let ((_%tl9590495972%_ + (##pair? _%tl9558695667%_)) + (let ((_%tl9558395651%_ (let () (declare (not safe)) - (##cdr _%tl9590795988%_))) - (_%hd9590395970%_ + (##cdr _%tl9558695667%_))) + (_%hd9558295649%_ (let () (declare (not safe)) - (##car _%tl9590795988%_)))) + (##car _%tl9558695667%_)))) (if (let () (declare (not safe)) - (##null? _%tl9590495972%_)) - (let ((_%x95968%_ _%hd9590695986%_) - (_%y95975%_ _%hd9590395970%_)) - (let () - (declare (not safe)) - (_%K9590095960%_ - _%y95975%_ - _%x95968%_))) - (_%__match9809998100%_ - _%hd9590695986%_ - _%tl9590795988%_))) - (_%__match9809998100%_ - _%hd9590695986%_ - _%tl9590795988%_)))) - (let () (declare (not safe)) (_%E9589095914%_)))))) + (##null? _%tl9558395651%_)) + (let ((_%x95647%_ _%hd9558595665%_) + (_%y95654%_ _%hd9558295649%_)) + (_%K9557995639%_ + _%y95654%_ + _%x95647%_)) + (_%__match9777897779%_ + _%hd9558595665%_ + _%tl9558695667%_))) + (_%__match9777897779%_ + _%hd9558595665%_ + _%tl9558695667%_)))) + (_%E9556995593%_))))) (if (let () (declare (not safe)) - (##null? _%all-supers9588595910%_)) - (let () (declare (not safe)) (_%K9590895997%_)) - (let () (declare (not safe)) (_%try-match9588795993%_)))))))) + (##null? _%all-supers9556495589%_)) + (_%K9558795676%_) + (_%try-match9556695672%_))))))) (define base-struct - (lambda _%all-supers95882%_ - (let () (declare (not safe)) (base-struct/list _%all-supers95882%_)))) + (lambda _%all-supers95561%_ (base-struct/list _%all-supers95561%_))) (define find-super-constructor - (lambda (_%super95833%_) - (let _%lp95835%_ ((_%rest95837%_ _%super95833%_) - (_%constructor95838%_ '#f)) - (let* ((_%rest9583995847%_ _%rest95837%_) - (_%else9584195855%_ (lambda () _%constructor95838%_)) - (_%K9584395870%_ - (lambda (_%rest95858%_ _%hd95859%_) - (let ((_%$e95861%_ + (lambda (_%super95512%_) + (let _%lp95514%_ ((_%rest95516%_ _%super95512%_) + (_%constructor95517%_ '#f)) + (let* ((_%rest9551895526%_ _%rest95516%_) + (_%else9552095534%_ (lambda () _%constructor95517%_)) + (_%K9552295549%_ + (lambda (_%rest95537%_ _%hd95538%_) + (let ((_%$e95540%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd95859%_ + _%hd95538%_ '10 '#f '#f)))) - (if _%$e95861%_ - ((lambda (_%xconstructor95864%_) - (if (or (let () - (declare (not safe)) - (not _%constructor95838%_)) - (eq? _%constructor95838%_ - _%xconstructor95864%_)) - (let () - (declare (not safe)) - (_%lp95835%_ - _%rest95858%_ - _%xconstructor95864%_)) + (if _%$e95540%_ + ((lambda (_%xconstructor95543%_) + (if (or (not _%constructor95517%_) + (eq? _%constructor95517%_ + _%xconstructor95543%_)) + (_%lp95514%_ + _%rest95537%_ + _%xconstructor95543%_) (error '"conflicting implicit constructors" - _%constructor95838%_ - _%xconstructor95864%_))) - _%$e95861%_) - (let () - (declare (not safe)) - (_%lp95835%_ - _%rest95858%_ - _%constructor95838%_))))))) - (if (let () (declare (not safe)) (##pair? _%rest9583995847%_)) - (let ((_%hd9584495873%_ + _%constructor95517%_ + _%xconstructor95543%_))) + _%$e95540%_) + (_%lp95514%_ _%rest95537%_ _%constructor95517%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest9551895526%_)) + (let ((_%hd9552395552%_ (let () (declare (not safe)) - (##car _%rest9583995847%_))) - (_%tl9584595875%_ + (##car _%rest9551895526%_))) + (_%tl9552495554%_ (let () (declare (not safe)) - (##cdr _%rest9583995847%_)))) - (let* ((_%hd95878%_ _%hd9584495873%_) - (_%rest95880%_ _%tl9584595875%_)) - (declare (not safe)) - (_%K9584395870%_ _%rest95880%_ _%hd95878%_))) - (let () (declare (not safe)) (_%else9584195855%_))))))) + (##cdr _%rest9551895526%_)))) + (let* ((_%hd95557%_ _%hd9552395552%_) + (_%rest95559%_ _%tl9552495554%_)) + (_%K9552295549%_ _%rest95559%_ _%hd95557%_))) + (_%else9552095534%_)))))) (define compute-class-slots - (lambda (_%class-precedence-list95809%_ _%direct-slots95810%_) - (let* ((_%next-slot95812%_ '1) - (_%slot-table95814%_ + (lambda (_%class-precedence-list95488%_ _%direct-slots95489%_) + (let* ((_%next-slot95491%_ '1) + (_%slot-table95493%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_%r-slots95816%_ '(__class)) - (_%process-slot95820%_ - (lambda (_%slot95818%_) - (if (let () (declare (not safe)) (symbol? _%slot95818%_)) + (_%r-slots95495%_ '(__class)) + (_%process-slot95499%_ + (lambda (_%slot95497%_) + (if (symbol? _%slot95497%_) '#!void - (error '"invalid slot name" _%slot95818%_)) + (error '"invalid slot name" _%slot95497%_)) (if (eq? (let () (declare (not safe)) (symbolic-table-ref - _%slot-table95814%_ - _%slot95818%_ + _%slot-table95493%_ + _%slot95497%_ absent-value)) absent-value) (begin (let () (declare (not safe)) (symbolic-table-set! - _%slot-table95814%_ - _%slot95818%_ - _%next-slot95812%_)) - (let ((__tmp98150 + _%slot-table95493%_ + _%slot95497%_ + _%next-slot95491%_)) + (let ((__tmp97820 (let () (declare (not safe)) - (symbol->keyword _%slot95818%_)))) + (symbol->keyword _%slot95497%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table95814%_ - __tmp98150 - _%next-slot95812%_)) - (set! _%r-slots95816%_ - (cons _%slot95818%_ _%r-slots95816%_)) - (set! _%next-slot95812%_ + _%slot-table95493%_ + __tmp97820 + _%next-slot95491%_)) + (set! _%r-slots95495%_ + (cons _%slot95497%_ _%r-slots95495%_)) + (set! _%next-slot95491%_ (let () (declare (not safe)) - (##fx+ _%next-slot95812%_ '1)))) + (##fx+ _%next-slot95491%_ '1)))) '#!void))) - (_%process-slots95826%_ - (lambda (_%g9582195823%_) - (for-each _%process-slot95820%_ _%g9582195823%_)))) - (let ((__tmp98152 - (lambda (_%mixin95829%_) - (let ((__tmp98153 - (let ((__tmp98154 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%mixin95829%_ - '9 - '#f - '#f)))) - (declare (not safe)) - (agetq__% 'direct-slots: __tmp98154 '())))) - (declare (not safe)) - (_%process-slots95826%_ __tmp98153)))) - (__tmp98151 (reverse _%class-precedence-list95809%_))) - (declare (not safe)) - (##for-each __tmp98152 __tmp98151)) - (let () + (_%process-slots95505%_ + (lambda (_%g9550095502%_) + (for-each _%process-slot95499%_ _%g9550095502%_)))) + (let ((__tmp97822 + (lambda (_%mixin95508%_) + (_%process-slots95505%_ + (let ((__tmp97823 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%mixin95508%_ + '9 + '#f + '#f)))) + (declare (not safe)) + (agetq__% 'direct-slots: __tmp97823 '()))))) + (__tmp97821 (reverse _%class-precedence-list95488%_))) (declare (not safe)) - (_%process-slots95826%_ _%direct-slots95810%_)) - (let ((_%slot-vector95831%_ + (##for-each __tmp97822 __tmp97821)) + (_%process-slots95505%_ _%direct-slots95489%_) + (let ((_%slot-vector95510%_ (list->vector - (let () (declare (not safe)) (##reverse _%r-slots95816%_))))) - (values _%slot-vector95831%_ _%slot-table95814%_))))) + (let () (declare (not safe)) (##reverse _%r-slots95495%_))))) + (values _%slot-vector95510%_ _%slot-table95493%_))))) (define make-class-type - (lambda (_%id95734%_ - _%name95735%_ - _%direct-supers95736%_ - _%direct-slots95737%_ - _%properties95738%_ - _%constructor95739%_) - (let () - (if (let () (declare (not safe)) (symbol? _%id95734%_)) - (let ((_%id95743%_ _%id95734%_)) - (if (let () (declare (not safe)) (symbol? _%name95735%_)) - (let ((_%name95753%_ _%name95735%_)) - (if (let () - (declare (not safe)) - (list? _%direct-supers95736%_)) - (let ((_%direct-supers95763%_ - _%direct-supers95736%_)) - (if (let () - (declare (not safe)) - (list? _%direct-slots95737%_)) - (let ((_%direct-slots95773%_ - _%direct-slots95737%_)) - (if (let () - (declare (not safe)) - (list? _%properties95738%_)) - (let ((_%properties95783%_ - _%properties95738%_)) - (if ((lambda (_%$obj95792%_) - (or (let () - (declare (not safe)) - (not _%$obj95792%_)) - (let () - (declare (not safe)) - (symbol? _%$obj95792%_)))) - _%constructor95739%_) - (let ((_%constructor95799%_ - _%constructor95739%_)) - (declare (not safe)) - (__make-class-type - _%id95743%_ - _%name95753%_ - _%direct-supers95763%_ - _%direct-slots95773%_ - _%properties95783%_ - _%constructor95799%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@427.24-427.35" - 'contract: - '(? (or not symbol?)) - 'value: - _%constructor95739%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@426.24-426.34" - 'contract: - 'list? - 'value: - _%properties95738%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@425.24-425.36" - 'contract: - 'list? - 'value: - _%direct-slots95737%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@424.24-424.37" - 'contract: - 'list? - 'value: - _%direct-supers95736%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@423.24-423.28" - 'contract: - 'symbol? - 'value: - _%name95735%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@422.24-422.26" - 'contract: - 'symbol? - 'value: - _%id95734%_) - '#!void))))) + (lambda (_%id95413%_ + _%name95414%_ + _%direct-supers95415%_ + _%direct-slots95416%_ + _%properties95417%_ + _%constructor95418%_) + (if (symbol? _%id95413%_) + (let ((_%id95422%_ _%id95413%_)) + (if (symbol? _%name95414%_) + (let ((_%name95432%_ _%name95414%_)) + (if (list? _%direct-supers95415%_) + (let ((_%direct-supers95442%_ _%direct-supers95415%_)) + (if (list? _%direct-slots95416%_) + (let ((_%direct-slots95452%_ + _%direct-slots95416%_)) + (if (list? _%properties95417%_) + (let ((_%properties95462%_ + _%properties95417%_)) + (if ((lambda (_%$obj95471%_) + (or (not _%$obj95471%_) + (symbol? _%$obj95471%_))) + _%constructor95418%_) + (let ((_%constructor95478%_ + _%constructor95418%_)) + (__make-class-type + _%id95422%_ + _%name95432%_ + _%direct-supers95442%_ + _%direct-slots95452%_ + _%properties95462%_ + _%constructor95478%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@427.24-427.35" + 'contract: + '(? (or not symbol?)) + 'value: + _%constructor95418%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@426.24-426.34" + 'contract: + 'list? + 'value: + _%properties95417%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@425.24-425.36" + 'contract: + 'list? + 'value: + _%direct-slots95416%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@424.24-424.37" + 'contract: + 'list? + 'value: + _%direct-supers95415%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@423.24-423.28" + 'contract: + 'symbol? + 'value: + _%name95414%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@422.24-422.26" + 'contract: + 'symbol? + 'value: + _%id95413%_) + '#!void)))) (define __make-class-type - (lambda (_%id95603%_ - _%name95604%_ - _%direct-supers95605%_ - _%direct-slots95606%_ - _%properties95607%_ - _%constructor95608%_) - (let () - (let* ((_%id95611%_ _%id95603%_) (_%name95619%_ _%name95604%_)) - (let* ((_%direct-supers95627%_ _%direct-supers95605%_) - (_%direct-slots95635%_ _%direct-slots95606%_)) - (let* ((_%properties95643%_ _%properties95607%_) - (_%constructor95651%_ _%constructor95608%_)) - (let ((_%$e95663%_ - (let ((__tmp98155 - (lambda (_%$obj95660%_) - (let ((__tmp98156 - (let () - (declare (not safe)) - (##structure-instance-of? - _%$obj95660%_ - 'class)))) - (declare (not safe)) - (not __tmp98156))))) - (declare (not safe)) - (__find __tmp98155 _%direct-supers95627%_)))) - (if _%$e95663%_ - ((lambda (_%g9566595667%_) - (error '"Illegal super class; not a class descriptor" - _%g9566595667%_)) - _%$e95663%_) - (let ((_%$e95670%_ - (let () - (declare (not safe)) - (__find __class-type-final? - _%direct-supers95627%_)))) - (if _%$e95670%_ - ((lambda (_%g9567295674%_) - (error '"Cannot extend final class" - _%g9567295674%_)) - _%$e95670%_) - '#!void)))) - (let ((_g98157_ + (lambda (_%id95282%_ + _%name95283%_ + _%direct-supers95284%_ + _%direct-slots95285%_ + _%properties95286%_ + _%constructor95287%_) + (let* ((_%id95290%_ _%id95282%_) + (_%name95298%_ _%name95283%_) + (_%direct-supers95306%_ _%direct-supers95284%_) + (_%direct-slots95314%_ _%direct-slots95285%_) + (_%properties95322%_ _%properties95286%_) + (_%constructor95330%_ _%constructor95287%_)) + (let ((_%$e95342%_ + (let ((__tmp97824 + (lambda (_%$obj95339%_) + (not (let () + (declare (not safe)) + (##structure-instance-of? + _%$obj95339%_ + 'class)))))) + (declare (not safe)) + (__find __tmp97824 _%direct-supers95306%_)))) + (if _%$e95342%_ + ((lambda (_%g9534495346%_) + (error '"Illegal super class; not a class descriptor" + _%g9534495346%_)) + _%$e95342%_) + (let ((_%$e95349%_ (let () (declare (not safe)) - (compute-precedence-list _%direct-supers95627%_)))) + (__find __class-type-final? _%direct-supers95306%_)))) + (if _%$e95349%_ + ((lambda (_%g9535195353%_) + (error '"Cannot extend final class" _%g9535195353%_)) + _%$e95349%_) + '#!void)))) + (let ((_g97825_ (compute-precedence-list _%direct-supers95306%_))) + (begin + (let ((_g97826_ + (let () + (declare (not safe)) + (if (##values? _g97825_) + (##vector-length _g97825_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g97826_ 2))) + (error "Context expects 2 values" _g97826_))) + (let ((_%precedence-list95356%_ + (let () (declare (not safe)) (##vector-ref _g97825_ 0))) + (_%struct-super95357%_ + (let () (declare (not safe)) (##vector-ref _g97825_ 1)))) + (let ((_g97827_ + (compute-class-slots + _%precedence-list95356%_ + _%direct-slots95314%_))) (begin - (let ((_g98158_ + (let ((_g97828_ (let () (declare (not safe)) - (if (##values? _g98157_) - (##vector-length _g98157_) + (if (##values? _g97827_) + (##vector-length _g97827_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98158_ 2))) - (error "Context expects 2 values" _g98158_))) - (let ((_%precedence-list95677%_ + (##fx= _g97828_ 2))) + (error "Context expects 2 values" _g97828_))) + (let ((_%slot-vector95359%_ (let () (declare (not safe)) - (##vector-ref _g98157_ 0))) - (_%struct-super95678%_ + (##vector-ref _g97827_ 0))) + (_%slot-table95360%_ (let () (declare (not safe)) - (##vector-ref _g98157_ 1)))) - (let ((_g98159_ - (let () - (declare (not safe)) - (compute-class-slots - _%precedence-list95677%_ - _%direct-slots95635%_)))) - (begin - (let ((_g98160_ - (let () - (declare (not safe)) - (if (##values? _g98159_) - (##vector-length _g98159_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g98160_ 2))) - (error "Context expects 2 values" _g98160_))) - (let ((_%slot-vector95680%_ - (let () - (declare (not safe)) - (##vector-ref _g98159_ 0))) - (_%slot-table95681%_ - (let () - (declare (not safe)) - (##vector-ref _g98159_ 1)))) - (let* ((_%properties95683%_ - (cons (cons 'direct-slots: - _%direct-slots95635%_) - (cons (cons 'direct-supers: - _%direct-supers95627%_) - _%properties95643%_))) - (_%constructor*95688%_ - (let ((_%$e95685%_ _%constructor95651%_)) - (if _%$e95685%_ - _%$e95685%_ - (let () - (declare (not safe)) - (find-super-constructor - _%direct-supers95627%_))))) - (_%precedence-list95731%_ - (if (or (let () - (declare (not safe)) - (agetq__0 - 'system: - _%properties95683%_)) - (memq object::t - _%precedence-list95677%_)) - _%precedence-list95677%_ - (let _%loop95693%_ ((_%tail95695%_ - _%precedence-list95677%_) - (_%head95696%_ - '())) - (let* ((_%tail9569795705%_ - _%tail95695%_) - (_%else9569995713%_ - (lambda () - (let ((__tmp98161 - (cons object::t -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons t::t '())))) - (declare (not safe)) - (__foldl1 cons __tmp98161 _%head95696%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K9570195719%_ - (lambda (_%rest95716%_ - _%hd95717%_) - (if (eq? _%hd95717%_ t::t) - (let ((__tmp98162 - (cons object::t -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tail95695%_))) - (declare (not safe)) - (__foldl1 cons __tmp98162 _%head95696%_)) - (let ((__tmp98163 (cons _%hd95717%_ _%head95696%_))) - (declare (not safe)) - (_%loop95693%_ _%rest95716%_ __tmp98163)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (##pair? _%tail9569795705%_)) - (let ((_%hd9570295722%_ - (let () - (declare (not safe)) - (##car _%tail9569795705%_))) - (_%tl9570395724%_ - (let () - (declare (not safe)) - (##cdr _%tail9569795705%_)))) - (let* ((_%hd95727%_ - _%hd9570295722%_) - (_%rest95729%_ - _%tl9570395724%_)) + (##vector-ref _g97827_ 1)))) + (let* ((_%properties95362%_ + (cons (cons 'direct-slots: _%direct-slots95314%_) + (cons (cons 'direct-supers: + _%direct-supers95306%_) + _%properties95322%_))) + (_%constructor*95367%_ + (let ((_%$e95364%_ _%constructor95330%_)) + (if _%$e95364%_ + _%$e95364%_ + (find-super-constructor + _%direct-supers95306%_)))) + (_%precedence-list95410%_ + (if (or (let () + (declare (not safe)) + (agetq__0 + 'system: + _%properties95362%_)) + (memq object::t + _%precedence-list95356%_)) + _%precedence-list95356%_ + (let _%loop95372%_ ((_%tail95374%_ + _%precedence-list95356%_) + (_%head95375%_ '())) + (let* ((_%tail9537695384%_ _%tail95374%_) + (_%else9537895392%_ + (lambda () + (let ((__tmp97829 + (cons object::t + (cons t::t '())))) + (declare (not safe)) + (__foldl1 + cons + __tmp97829 + _%head95375%_)))) + (_%K9538095398%_ + (lambda (_%rest95395%_ _%hd95396%_) + (if (eq? _%hd95396%_ t::t) + (let ((__tmp97830 + (cons object::t + _%tail95374%_))) (declare (not safe)) - (_%K9570195719%_ - _%rest95729%_ - _%hd95727%_))) - (let () - (declare (not safe)) - (_%else9569995713%_)))))))) - (declare (not safe)) - (make-class-type-descriptor - _%id95611%_ - _%name95619%_ - _%struct-super95678%_ - _%precedence-list95731%_ - _%slot-vector95680%_ - _%properties95683%_ - _%constructor*95688%_ - _%slot-table95681%_ - '#f)))))))))))))) + (__foldl1 + cons + __tmp97830 + _%head95375%_)) + (_%loop95372%_ + _%rest95395%_ + (cons _%hd95396%_ + _%head95375%_)))))) + (if (let () + (declare (not safe)) + (##pair? _%tail9537695384%_)) + (let ((_%hd9538195401%_ + (let () + (declare (not safe)) + (##car _%tail9537695384%_))) + (_%tl9538295403%_ + (let () + (declare (not safe)) + (##cdr _%tail9537695384%_)))) + (let* ((_%hd95406%_ + _%hd9538195401%_) + (_%rest95408%_ + _%tl9538295403%_)) + (_%K9538095398%_ + _%rest95408%_ + _%hd95406%_))) + (_%else9537895392%_))))))) + (make-class-type-descriptor + _%id95290%_ + _%name95298%_ + _%struct-super95357%_ + _%precedence-list95410%_ + _%slot-vector95359%_ + _%properties95362%_ + _%constructor*95367%_ + _%slot-table95360%_ + '#f))))))))))) (define class-precedence-list - (lambda (_%klass95589%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass95589%_ 'class)) - (let ((_%klass95593%_ _%klass95589%_)) - (declare (not safe)) - (__class-precedence-list _%klass95593%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@460.30-460.35" - 'contract: - 'class-type? - 'value: - _%klass95589%_) - '#!void))))) + (lambda (_%klass95268%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass95268%_ 'class)) + (let ((_%klass95272%_ _%klass95268%_)) + (__class-precedence-list _%klass95272%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@460.30-460.35" + 'contract: + 'class-type? + 'value: + _%klass95268%_) + '#!void)))) (define __class-precedence-list - (lambda (_%klass95577%_) - (let ((_%klass95580%_ _%klass95577%_)) - (cons _%klass95580%_ + (lambda (_%klass95256%_) + (let ((_%klass95259%_ _%klass95256%_)) + (cons _%klass95259%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass95580%_ '6 '#f '#f)))))) + (##unchecked-structure-ref _%klass95259%_ '6 '#f '#f)))))) (define compute-precedence-list - (lambda (_%direct-supers95574%_) + (lambda (_%direct-supers95253%_) (let () (declare (not safe)) (c4-linearize__% @@ -1780,4217 +1604,3418 @@ eq? ##type-name '() - _%direct-supers95574%_)))) + _%direct-supers95253%_)))) (define make-class-predicate - (lambda (_%klass95560%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass95560%_ 'class)) - (let ((_%klass95564%_ _%klass95560%_)) - (declare (not safe)) - (__make-class-predicate _%klass95564%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@472.29-472.34" - 'contract: - 'class-type? - 'value: - _%klass95560%_) - '#!void))))) + (lambda (_%klass95239%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass95239%_ 'class)) + (let ((_%klass95243%_ _%klass95239%_)) + (__make-class-predicate _%klass95243%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@472.29-472.34" + 'contract: + 'class-type? + 'value: + _%klass95239%_) + '#!void)))) (define __make-class-predicate - (lambda (_%klass95531%_) - (let () - (let* ((_%klass95534%_ _%klass95531%_) - (_%tid95543%_ - (let () (declare (not safe)) (##type-id _%klass95534%_)))) - (if (let () - (declare (not safe)) - (__class-type-final? _%klass95534%_)) + (lambda (_%klass95210%_) + (let* ((_%klass95213%_ _%klass95210%_) + (_%tid95222%_ + (let () (declare (not safe)) (##type-id _%klass95213%_)))) + (if (__class-type-final? _%klass95213%_) + (lambda (_%g9522495226%_) (let () - (lambda (_%g9554595547%_) + (declare (not safe)) + (##structure-direct-instance-of? + _%g9522495226%_ + _%tid95222%_))) + (if (__class-type-struct? _%klass95213%_) + (lambda (_%g9522995231%_) (let () (declare (not safe)) - (##structure-direct-instance-of? - _%g9554595547%_ - _%tid95543%_)))) - (if (let () - (declare (not safe)) - (__class-type-struct? _%klass95534%_)) - (let () - (lambda (_%g9555095552%_) - (let () - (declare (not safe)) - (##structure-instance-of? - _%g9555095552%_ - _%tid95543%_)))) - (let () - (lambda (_%g9555595557%_) - (let () - (declare (not safe)) - (__class-instance? - _%klass95534%_ - _%g9555595557%_)))))))))) + (##structure-instance-of? _%g9522995231%_ _%tid95222%_))) + (lambda (_%g9523495236%_) + (__class-instance? _%klass95213%_ _%g9523495236%_))))))) (define make-class-slot-accessor - (lambda (_%klass95506%_ _%slot95507%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass95506%_ 'class)) - (let ((_%klass95511%_ _%klass95506%_)) - (if (let () (declare (not safe)) (symbol? _%slot95507%_)) - (let ((_%slot95521%_ _%slot95507%_)) - (declare (not safe)) - (__make-class-slot-accessor - _%klass95511%_ - _%slot95521%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@503.50-503.54" - 'contract: - 'symbol? - 'value: - _%slot95507%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@503.33-503.38" - 'contract: - 'class-type? - 'value: - _%klass95506%_) - '#!void))))) + (lambda (_%klass95185%_ _%slot95186%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass95185%_ 'class)) + (let ((_%klass95190%_ _%klass95185%_)) + (if (symbol? _%slot95186%_) + (let ((_%slot95200%_ _%slot95186%_)) + (__make-class-slot-accessor _%klass95190%_ _%slot95200%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@503.50-503.54" + 'contract: + 'symbol? + 'value: + _%slot95186%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@503.33-503.38" + 'contract: + 'class-type? + 'value: + _%klass95185%_) + '#!void)))) (define __make-class-slot-accessor - (lambda (_%klass95474%_ _%slot95475%_) - (let ((_%klass95478%_ _%klass95474%_)) - (let* ((_%slot95486%_ _%slot95475%_) - (_%field95495%_ - (let ((__tmp98164 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass95478%_ - '8 - '#f - '#f)))) - (declare (not safe)) - (symbolic-table-ref __tmp98164 _%slot95486%_ '#f)))) - (if (let () (declare (not safe)) (not _%field95495%_)) - (let () - (error '"unknown slot" - 'class: - _%klass95478%_ - 'slot: - _%slot95486%_) - '#!void) - (if (let () - (declare (not safe)) - (__class-type-final? _%klass95478%_)) - (let () - (declare (not safe)) - (make-final-slot-accessor - _%klass95478%_ - _%slot95486%_ - _%field95495%_)) - (if (let () - (declare (not safe)) - (__class-type-struct? _%klass95478%_)) - (let () - (declare (not safe)) - (make-struct-slot-accessor - _%klass95478%_ - _%slot95486%_ - _%field95495%_)) - (if (let ((_%strukt95501%_ - (let () - (declare (not safe)) - (base-struct/1 _%klass95478%_)))) - (and (let () - (declare (not safe)) - (##structure-instance-of? - _%strukt95501%_ - 'class)) - (let ((__tmp98165 - (let ((__tmp98166 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%strukt95501%_ - '7 - '#f - '#f)))) - (declare (not safe)) - (##vector-length __tmp98166)))) - (declare (not safe)) - (##fx< _%field95495%_ __tmp98165)))) - (let () - (declare (not safe)) - (make-struct-subclass-slot-accessor - _%klass95478%_ - _%slot95486%_ - _%field95495%_)) - (let () - (declare (not safe)) - (make-class-cached-slot-accessor - _%klass95478%_ - _%slot95486%_ - _%field95495%_)))))))))) + (lambda (_%klass95153%_ _%slot95154%_) + (let* ((_%klass95157%_ _%klass95153%_) + (_%slot95165%_ _%slot95154%_) + (_%field95174%_ + (let ((__tmp97831 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass95157%_ + '8 + '#f + '#f)))) + (declare (not safe)) + (symbolic-table-ref __tmp97831 _%slot95165%_ '#f)))) + (if (not _%field95174%_) + (let () + (error '"unknown slot" + 'class: + _%klass95157%_ + 'slot: + _%slot95165%_) + '#!void) + (if (__class-type-final? _%klass95157%_) + (make-final-slot-accessor + _%klass95157%_ + _%slot95165%_ + _%field95174%_) + (if (__class-type-struct? _%klass95157%_) + (make-struct-slot-accessor + _%klass95157%_ + _%slot95165%_ + _%field95174%_) + (if (let ((_%strukt95180%_ + (base-struct/1 _%klass95157%_))) + (and (let () + (declare (not safe)) + (##structure-instance-of? + _%strukt95180%_ + 'class)) + (let ((__tmp97832 + (let ((__tmp97833 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%strukt95180%_ + '7 + '#f + '#f)))) + (declare (not safe)) + (##vector-length __tmp97833)))) + (declare (not safe)) + (##fx< _%field95174%_ __tmp97832)))) + (make-struct-subclass-slot-accessor + _%klass95157%_ + _%slot95165%_ + _%field95174%_) + (make-class-cached-slot-accessor + _%klass95157%_ + _%slot95165%_ + _%field95174%_)))))))) (define make-class-slot-mutator - (lambda (_%klass95449%_ _%slot95450%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass95449%_ 'class)) - (let ((_%klass95454%_ _%klass95449%_)) - (if (let () (declare (not safe)) (symbol? _%slot95450%_)) - (let ((_%slot95464%_ _%slot95450%_)) - (declare (not safe)) - (__make-class-slot-mutator _%klass95454%_ _%slot95464%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@511.49-511.53" - 'contract: - 'symbol? - 'value: - _%slot95450%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@511.32-511.37" - 'contract: - 'class-type? - 'value: - _%klass95449%_) - '#!void))))) + (lambda (_%klass95128%_ _%slot95129%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass95128%_ 'class)) + (let ((_%klass95133%_ _%klass95128%_)) + (if (symbol? _%slot95129%_) + (let ((_%slot95143%_ _%slot95129%_)) + (__make-class-slot-mutator _%klass95133%_ _%slot95143%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@511.49-511.53" + 'contract: + 'symbol? + 'value: + _%slot95129%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@511.32-511.37" + 'contract: + 'class-type? + 'value: + _%klass95128%_) + '#!void)))) (define __make-class-slot-mutator - (lambda (_%klass95417%_ _%slot95418%_) - (let ((_%klass95421%_ _%klass95417%_)) - (let* ((_%slot95429%_ _%slot95418%_) - (_%field95438%_ - (let ((__tmp98167 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass95421%_ - '8 - '#f - '#f)))) - (declare (not safe)) - (symbolic-table-ref __tmp98167 _%slot95429%_ '#f)))) - (if (let () (declare (not safe)) (not _%field95438%_)) - (let () - (error '"unknown slot" - 'class: - _%klass95421%_ - 'slot: - _%slot95429%_) - '#!void) - (if (let () - (declare (not safe)) - (__class-type-final? _%klass95421%_)) - (let () - (declare (not safe)) - (make-final-slot-mutator - _%klass95421%_ - _%slot95429%_ - _%field95438%_)) - (if (let () - (declare (not safe)) - (__class-type-struct? _%klass95421%_)) - (let () - (declare (not safe)) - (make-struct-slot-mutator - _%klass95421%_ - _%slot95429%_ - _%field95438%_)) - (if (let ((_%strukt95444%_ - (let () - (declare (not safe)) - (base-struct/1 _%klass95421%_)))) - (and (let () - (declare (not safe)) - (##structure-instance-of? - _%strukt95444%_ - 'class)) - (let ((__tmp98168 - (let ((__tmp98169 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%strukt95444%_ - '7 - '#f - '#f)))) - (declare (not safe)) - (##vector-length __tmp98169)))) - (declare (not safe)) - (##fx< _%field95438%_ __tmp98168)))) - (let () - (declare (not safe)) - (make-struct-subclass-slot-mutator - _%klass95421%_ - _%slot95429%_ - _%field95438%_)) - (let () - (declare (not safe)) - (make-class-cached-slot-mutator - _%klass95421%_ - _%slot95429%_ - _%field95438%_)))))))))) + (lambda (_%klass95096%_ _%slot95097%_) + (let* ((_%klass95100%_ _%klass95096%_) + (_%slot95108%_ _%slot95097%_) + (_%field95117%_ + (let ((__tmp97834 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass95100%_ + '8 + '#f + '#f)))) + (declare (not safe)) + (symbolic-table-ref __tmp97834 _%slot95108%_ '#f)))) + (if (not _%field95117%_) + (let () + (error '"unknown slot" + 'class: + _%klass95100%_ + 'slot: + _%slot95108%_) + '#!void) + (if (__class-type-final? _%klass95100%_) + (make-final-slot-mutator + _%klass95100%_ + _%slot95108%_ + _%field95117%_) + (if (__class-type-struct? _%klass95100%_) + (make-struct-slot-mutator + _%klass95100%_ + _%slot95108%_ + _%field95117%_) + (if (let ((_%strukt95123%_ + (base-struct/1 _%klass95100%_))) + (and (let () + (declare (not safe)) + (##structure-instance-of? + _%strukt95123%_ + 'class)) + (let ((__tmp97835 + (let ((__tmp97836 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%strukt95123%_ + '7 + '#f + '#f)))) + (declare (not safe)) + (##vector-length __tmp97836)))) + (declare (not safe)) + (##fx< _%field95117%_ __tmp97835)))) + (make-struct-subclass-slot-mutator + _%klass95100%_ + _%slot95108%_ + _%field95117%_) + (make-class-cached-slot-mutator + _%klass95100%_ + _%slot95108%_ + _%field95117%_)))))))) (define make-class-slot-unchecked-accessor - (lambda (_%klass95392%_ _%slot95393%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass95392%_ 'class)) - (let ((_%klass95397%_ _%klass95392%_)) - (if (let () (declare (not safe)) (symbol? _%slot95393%_)) - (let ((_%slot95407%_ _%slot95393%_)) - (declare (not safe)) - (__make-class-slot-unchecked-accessor - _%klass95397%_ - _%slot95407%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@519.60-519.64" - 'contract: - 'symbol? - 'value: - _%slot95393%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@519.43-519.48" - 'contract: - 'class-type? - 'value: - _%klass95392%_) - '#!void))))) + (lambda (_%klass95071%_ _%slot95072%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass95071%_ 'class)) + (let ((_%klass95076%_ _%klass95071%_)) + (if (symbol? _%slot95072%_) + (let ((_%slot95086%_ _%slot95072%_)) + (__make-class-slot-unchecked-accessor + _%klass95076%_ + _%slot95086%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@519.60-519.64" + 'contract: + 'symbol? + 'value: + _%slot95072%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@519.43-519.48" + 'contract: + 'class-type? + 'value: + _%klass95071%_) + '#!void)))) (define __make-class-slot-unchecked-accessor - (lambda (_%klass95360%_ _%slot95361%_) - (let ((_%klass95364%_ _%klass95360%_)) - (let* ((_%slot95372%_ _%slot95361%_) - (_%field95381%_ - (let ((__tmp98170 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass95364%_ - '8 - '#f - '#f)))) - (declare (not safe)) - (symbolic-table-ref __tmp98170 _%slot95372%_ '#f)))) - (if (let () (declare (not safe)) (not _%field95381%_)) - (let () - (error '"unknown slot" - 'class: - _%klass95364%_ - 'slot: - _%slot95372%_) - '#!void) - (if (let () - (declare (not safe)) - (__class-type-final? _%klass95364%_)) - (let () - (declare (not safe)) + (lambda (_%klass95039%_ _%slot95040%_) + (let* ((_%klass95043%_ _%klass95039%_) + (_%slot95051%_ _%slot95040%_) + (_%field95060%_ + (let ((__tmp97837 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass95043%_ + '8 + '#f + '#f)))) + (declare (not safe)) + (symbolic-table-ref __tmp97837 _%slot95051%_ '#f)))) + (if (not _%field95060%_) + (let () + (error '"unknown slot" + 'class: + _%klass95043%_ + 'slot: + _%slot95051%_) + '#!void) + (if (__class-type-final? _%klass95043%_) + (make-struct-slot-unchecked-accessor + _%klass95043%_ + _%slot95051%_ + _%field95060%_) + (if (__class-type-struct? _%klass95043%_) (make-struct-slot-unchecked-accessor - _%klass95364%_ - _%slot95372%_ - _%field95381%_)) - (if (let () - (declare (not safe)) - (__class-type-struct? _%klass95364%_)) - (let () - (declare (not safe)) - (make-struct-slot-unchecked-accessor - _%klass95364%_ - _%slot95372%_ - _%field95381%_)) - (if (let ((_%strukt95387%_ - (let () - (declare (not safe)) - (base-struct/1 _%klass95364%_)))) - (and (let () - (declare (not safe)) - (##structure-instance-of? - _%strukt95387%_ - 'class)) - (let ((__tmp98171 - (let ((__tmp98172 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%strukt95387%_ - '7 - '#f - '#f)))) - (declare (not safe)) - (##vector-length __tmp98172)))) - (declare (not safe)) - (##fx< _%field95381%_ __tmp98171)))) - (let () - (declare (not safe)) - (make-struct-slot-unchecked-accessor - _%klass95364%_ - _%slot95372%_ - _%field95381%_)) - (let () - (declare (not safe)) - (make-class-cached-slot-unchecked-accessor - _%klass95364%_ - _%slot95372%_ - _%field95381%_)))))))))) + _%klass95043%_ + _%slot95051%_ + _%field95060%_) + (if (let ((_%strukt95066%_ + (base-struct/1 _%klass95043%_))) + (and (let () + (declare (not safe)) + (##structure-instance-of? + _%strukt95066%_ + 'class)) + (let ((__tmp97838 + (let ((__tmp97839 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%strukt95066%_ + '7 + '#f + '#f)))) + (declare (not safe)) + (##vector-length __tmp97839)))) + (declare (not safe)) + (##fx< _%field95060%_ __tmp97838)))) + (make-struct-slot-unchecked-accessor + _%klass95043%_ + _%slot95051%_ + _%field95060%_) + (make-class-cached-slot-unchecked-accessor + _%klass95043%_ + _%slot95051%_ + _%field95060%_)))))))) (define make-class-slot-unchecked-mutator - (lambda (_%klass95335%_ _%slot95336%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass95335%_ 'class)) - (let ((_%klass95340%_ _%klass95335%_)) - (if (let () (declare (not safe)) (symbol? _%slot95336%_)) - (let ((_%slot95350%_ _%slot95336%_)) - (declare (not safe)) - (__make-class-slot-unchecked-mutator - _%klass95340%_ - _%slot95350%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@527.59-527.63" - 'contract: - 'symbol? - 'value: - _%slot95336%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@527.42-527.47" - 'contract: - 'class-type? - 'value: - _%klass95335%_) - '#!void))))) + (lambda (_%klass95014%_ _%slot95015%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass95014%_ 'class)) + (let ((_%klass95019%_ _%klass95014%_)) + (if (symbol? _%slot95015%_) + (let ((_%slot95029%_ _%slot95015%_)) + (__make-class-slot-unchecked-mutator + _%klass95019%_ + _%slot95029%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@527.59-527.63" + 'contract: + 'symbol? + 'value: + _%slot95015%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@527.42-527.47" + 'contract: + 'class-type? + 'value: + _%klass95014%_) + '#!void)))) (define __make-class-slot-unchecked-mutator - (lambda (_%klass95303%_ _%slot95304%_) - (let ((_%klass95307%_ _%klass95303%_)) - (let* ((_%slot95315%_ _%slot95304%_) - (_%field95324%_ - (let ((__tmp98173 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass95307%_ - '8 - '#f - '#f)))) - (declare (not safe)) - (symbolic-table-ref __tmp98173 _%slot95315%_ '#f)))) - (if (let () (declare (not safe)) (not _%field95324%_)) - (let () - (error '"unknown slot" - 'class: - _%klass95307%_ - 'slot: - _%slot95315%_) - '#!void) - (if (let () - (declare (not safe)) - (__class-type-final? _%klass95307%_)) - (let () - (declare (not safe)) + (lambda (_%klass94982%_ _%slot94983%_) + (let* ((_%klass94986%_ _%klass94982%_) + (_%slot94994%_ _%slot94983%_) + (_%field95003%_ + (let ((__tmp97840 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass94986%_ + '8 + '#f + '#f)))) + (declare (not safe)) + (symbolic-table-ref __tmp97840 _%slot94994%_ '#f)))) + (if (not _%field95003%_) + (let () + (error '"unknown slot" + 'class: + _%klass94986%_ + 'slot: + _%slot94994%_) + '#!void) + (if (__class-type-final? _%klass94986%_) + (make-struct-slot-unchecked-mutator + _%klass94986%_ + _%slot94994%_ + _%field95003%_) + (if (__class-type-struct? _%klass94986%_) (make-struct-slot-unchecked-mutator - _%klass95307%_ - _%slot95315%_ - _%field95324%_)) - (if (let () - (declare (not safe)) - (__class-type-struct? _%klass95307%_)) - (let () - (declare (not safe)) + _%klass94986%_ + _%slot94994%_ + _%field95003%_) + (if (let ((_%strukt95009%_ + (base-struct/1 _%klass94986%_))) + (and (let () + (declare (not safe)) + (##structure-instance-of? + _%strukt95009%_ + 'class)) + (let ((__tmp97841 + (let ((__tmp97842 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%strukt95009%_ + '7 + '#f + '#f)))) + (declare (not safe)) + (##vector-length __tmp97842)))) + (declare (not safe)) + (##fx< _%field95003%_ __tmp97841)))) (make-struct-slot-unchecked-mutator - _%klass95307%_ - _%slot95315%_ - _%field95324%_)) - (if (let ((_%strukt95330%_ - (let () - (declare (not safe)) - (base-struct/1 _%klass95307%_)))) - (and (let () - (declare (not safe)) - (##structure-instance-of? - _%strukt95330%_ - 'class)) - (let ((__tmp98174 - (let ((__tmp98175 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%strukt95330%_ - '7 - '#f - '#f)))) - (declare (not safe)) - (##vector-length __tmp98175)))) - (declare (not safe)) - (##fx< _%field95324%_ __tmp98174)))) - (let () - (declare (not safe)) - (make-struct-slot-unchecked-mutator - _%klass95307%_ - _%slot95315%_ - _%field95324%_)) - (let () - (declare (not safe)) - (make-class-cached-slot-unchecked-mutator - _%klass95307%_ - _%slot95315%_ - _%field95324%_)))))))))) + _%klass94986%_ + _%slot94994%_ + _%field95003%_) + (make-class-cached-slot-unchecked-mutator + _%klass94986%_ + _%slot94994%_ + _%field95003%_)))))))) (define not-an-instance__% - (lambda (_%object95287%_ _%class95288%_ _%slot95289%_) + (lambda (_%object94966%_ _%class94967%_ _%slot94968%_) (apply error '"not an instance" 'object: - _%object95287%_ + _%object94966%_ 'class: - _%class95288%_ - (if _%slot95289%_ (cons 'slot: (cons _%slot95289%_ '())) '())))) + _%class94967%_ + (if _%slot94968%_ (cons 'slot: (cons _%slot94968%_ '())) '())))) (define not-an-instance__0 - (lambda (_%object95294%_ _%class95295%_) - (let ((_%slot95297%_ '#f)) - (declare (not safe)) - (not-an-instance__% _%object95294%_ _%class95295%_ _%slot95297%_)))) + (lambda (_%object94973%_ _%class94974%_) + (let ((_%slot94976%_ '#f)) + (not-an-instance__% _%object94973%_ _%class94974%_ _%slot94976%_)))) (define not-an-instance - (lambda _g98177_ - (let ((_g98176_ (let () (declare (not safe)) (##length _g98177_)))) - (cond ((let () (declare (not safe)) (##fx= _g98176_ 2)) - (apply (lambda (_%object95294%_ _%class95295%_) - (let () - (declare (not safe)) - (not-an-instance__0 - _%object95294%_ - _%class95295%_))) - _g98177_)) - ((let () (declare (not safe)) (##fx= _g98176_ 3)) - (apply (lambda (_%object95299%_ _%class95300%_ _%slot95301%_) - (let () - (declare (not safe)) - (not-an-instance__% - _%object95299%_ - _%class95300%_ - _%slot95301%_))) - _g98177_)) + (lambda _g97844_ + (let ((_g97843_ (let () (declare (not safe)) (##length _g97844_)))) + (cond ((let () (declare (not safe)) (##fx= _g97843_ 2)) + (apply not-an-instance__0 _g97844_)) + ((let () (declare (not safe)) (##fx= _g97843_ 3)) + (apply not-an-instance__% _g97844_)) (else (##raise-wrong-number-of-arguments-exception not-an-instance - _g98177_)))))) + _g97844_)))))) (define make-final-slot-accessor - (lambda (_%klass95280%_ _%slot95281%_ _%field95282%_) - (lambda (_%obj95284%_) + (lambda (_%klass94959%_ _%slot94960%_ _%field94961%_) + (lambda (_%obj94963%_) (##direct-structure-ref - _%obj95284%_ - _%field95282%_ - _%klass95280%_ - _%slot95281%_)))) + _%obj94963%_ + _%field94961%_ + _%klass94959%_ + _%slot94960%_)))) (define make-final-slot-mutator - (lambda (_%klass95273%_ _%slot95274%_ _%field95275%_) - (lambda (_%obj95277%_ _%val95278%_) + (lambda (_%klass94952%_ _%slot94953%_ _%field94954%_) + (lambda (_%obj94956%_ _%val94957%_) (##direct-structure-set! - _%obj95277%_ - _%val95278%_ - _%field95275%_ - _%klass95273%_ - _%slot95274%_)))) + _%obj94956%_ + _%val94957%_ + _%field94954%_ + _%klass94952%_ + _%slot94953%_)))) (define make-struct-slot-accessor - (lambda (_%klass95267%_ _%slot95268%_ _%field95269%_) - (lambda (_%obj95271%_) + (lambda (_%klass94946%_ _%slot94947%_ _%field94948%_) + (lambda (_%obj94950%_) (##structure-ref - _%obj95271%_ - _%field95269%_ - _%klass95267%_ - _%slot95268%_)))) + _%obj94950%_ + _%field94948%_ + _%klass94946%_ + _%slot94947%_)))) (define make-struct-slot-mutator - (lambda (_%klass95260%_ _%slot95261%_ _%field95262%_) - (lambda (_%obj95264%_ _%val95265%_) + (lambda (_%klass94939%_ _%slot94940%_ _%field94941%_) + (lambda (_%obj94943%_ _%val94944%_) (##structure-set! - _%obj95264%_ - _%val95265%_ - _%field95262%_ - _%klass95260%_ - _%slot95261%_)))) + _%obj94943%_ + _%val94944%_ + _%field94941%_ + _%klass94939%_ + _%slot94940%_)))) (define make-struct-slot-unchecked-accessor - (lambda (_%klass95254%_ _%slot95255%_ _%field95256%_) - (lambda (_%obj95258%_) + (lambda (_%klass94933%_ _%slot94934%_ _%field94935%_) + (lambda (_%obj94937%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%obj95258%_ - _%field95256%_ - _%klass95254%_ - _%slot95255%_))))) + _%obj94937%_ + _%field94935%_ + _%klass94933%_ + _%slot94934%_))))) (define make-struct-slot-unchecked-mutator - (lambda (_%klass95247%_ _%slot95248%_ _%field95249%_) - (lambda (_%obj95251%_ _%val95252%_) + (lambda (_%klass94926%_ _%slot94927%_ _%field94928%_) + (lambda (_%obj94930%_ _%val94931%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%obj95251%_ - _%val95252%_ - _%field95249%_ - _%klass95247%_ - _%slot95248%_))))) + _%obj94930%_ + _%val94931%_ + _%field94928%_ + _%klass94926%_ + _%slot94927%_))))) (define make-struct-subclass-slot-accessor - (lambda (_%klass95241%_ _%slot95242%_ _%field95243%_) - (lambda (_%obj95245%_) - (if (let () - (declare (not safe)) - (class-instance? _%klass95241%_ _%obj95245%_)) - (let () - (declare (not safe)) - (unchecked-slot-ref _%obj95245%_ _%field95243%_)) - (let () - (declare (not safe)) - (not-an-instance__% - _%obj95245%_ - _%klass95241%_ - _%slot95242%_)))))) + (lambda (_%klass94920%_ _%slot94921%_ _%field94922%_) + (lambda (_%obj94924%_) + (if (class-instance? _%klass94920%_ _%obj94924%_) + (unchecked-slot-ref _%obj94924%_ _%field94922%_) + (not-an-instance__% + _%obj94924%_ + _%klass94920%_ + _%slot94921%_))))) (define make-struct-subclass-slot-mutator - (lambda (_%klass95234%_ _%slot95235%_ _%field95236%_) - (lambda (_%obj95238%_ _%val95239%_) - (if (let () - (declare (not safe)) - (class-instance? _%klass95234%_ _%obj95238%_)) - (let () - (declare (not safe)) - (unchecked-field-set! - _%obj95238%_ - _%field95236%_ - _%val95239%_)) - (let () - (declare (not safe)) - (not-an-instance__% - _%obj95238%_ - _%klass95234%_ - _%slot95235%_)))))) + (lambda (_%klass94913%_ _%slot94914%_ _%field94915%_) + (lambda (_%obj94917%_ _%val94918%_) + (if (class-instance? _%klass94913%_ _%obj94917%_) + (unchecked-field-set! _%obj94917%_ _%field94915%_ _%val94918%_) + (not-an-instance__% + _%obj94917%_ + _%klass94913%_ + _%slot94914%_))))) (define make-class-cached-slot-accessor - (lambda (_%klass95225%_ _%slot95226%_ _%field95227%_) - (lambda (_%obj95229%_) - (if (let ((__tmp98178 - (let () (declare (not safe)) (##type-id _%klass95225%_)))) - (declare (not safe)) - (##structure-direct-instance-of? _%obj95229%_ __tmp98178)) - (let () + (lambda (_%klass94904%_ _%slot94905%_ _%field94906%_) + (lambda (_%obj94908%_) + (if (let ((__tmp97845 + (let () (declare (not safe)) (##type-id _%klass94904%_)))) (declare (not safe)) - (unchecked-field-ref _%obj95229%_ _%field95227%_)) - (if (let () - (declare (not safe)) - (class-instance? _%klass95225%_ _%obj95229%_)) - (let () - (declare (not safe)) - (unchecked-slot-ref _%obj95229%_ _%slot95226%_)) - (let () - (declare (not safe)) - (not-an-instance__% - _%obj95229%_ - _%klass95225%_ - _%slot95226%_))))))) + (##structure-direct-instance-of? _%obj94908%_ __tmp97845)) + (unchecked-field-ref _%obj94908%_ _%field94906%_) + (if (class-instance? _%klass94904%_ _%obj94908%_) + (unchecked-slot-ref _%obj94908%_ _%slot94905%_) + (not-an-instance__% + _%obj94908%_ + _%klass94904%_ + _%slot94905%_)))))) (define make-class-cached-slot-mutator - (lambda (_%klass95215%_ _%slot95216%_ _%field95217%_) - (lambda (_%obj95219%_ _%val95220%_) - (if (let ((__tmp98179 - (let () (declare (not safe)) (##type-id _%klass95215%_)))) - (declare (not safe)) - (##structure-direct-instance-of? _%obj95219%_ __tmp98179)) - (let () + (lambda (_%klass94894%_ _%slot94895%_ _%field94896%_) + (lambda (_%obj94898%_ _%val94899%_) + (if (let ((__tmp97846 + (let () (declare (not safe)) (##type-id _%klass94894%_)))) (declare (not safe)) - (unchecked-field-set! - _%obj95219%_ - _%field95217%_ - _%val95220%_)) - (if (let () - (declare (not safe)) - (class-instance? _%klass95215%_ _%obj95219%_)) - (let () - (declare (not safe)) - (unchecked-slot-set! - _%obj95219%_ - _%slot95216%_ - _%val95220%_)) - (let () - (declare (not safe)) - (not-an-instance__% - _%obj95219%_ - _%klass95215%_ - _%slot95216%_))))))) + (##structure-direct-instance-of? _%obj94898%_ __tmp97846)) + (unchecked-field-set! _%obj94898%_ _%field94896%_ _%val94899%_) + (if (class-instance? _%klass94894%_ _%obj94898%_) + (unchecked-slot-set! _%obj94898%_ _%slot94895%_ _%val94899%_) + (not-an-instance__% + _%obj94898%_ + _%klass94894%_ + _%slot94895%_)))))) (define make-class-cached-slot-unchecked-accessor - (lambda (_%klass95209%_ _%slot95210%_ _%field95211%_) - (lambda (_%obj95213%_) - (if (let ((__tmp98180 - (let () (declare (not safe)) (##type-id _%klass95209%_)))) - (declare (not safe)) - (##structure-direct-instance-of? _%obj95213%_ __tmp98180)) - (let () - (declare (not safe)) - (unchecked-field-ref _%obj95213%_ _%field95211%_)) - (let () + (lambda (_%klass94888%_ _%slot94889%_ _%field94890%_) + (lambda (_%obj94892%_) + (if (let ((__tmp97847 + (let () (declare (not safe)) (##type-id _%klass94888%_)))) (declare (not safe)) - (unchecked-slot-ref _%obj95213%_ _%slot95210%_)))))) + (##structure-direct-instance-of? _%obj94892%_ __tmp97847)) + (unchecked-field-ref _%obj94892%_ _%field94890%_) + (unchecked-slot-ref _%obj94892%_ _%slot94889%_))))) (define make-class-cached-slot-unchecked-mutator - (lambda (_%klass95202%_ _%slot95203%_ _%field95204%_) - (lambda (_%obj95206%_ _%val95207%_) - (if (let ((__tmp98181 - (let () (declare (not safe)) (##type-id _%klass95202%_)))) - (declare (not safe)) - (##structure-direct-instance-of? _%obj95206%_ __tmp98181)) - (let () - (declare (not safe)) - (unchecked-field-set! - _%obj95206%_ - _%field95204%_ - _%val95207%_)) - (let () + (lambda (_%klass94881%_ _%slot94882%_ _%field94883%_) + (lambda (_%obj94885%_ _%val94886%_) + (if (let ((__tmp97848 + (let () (declare (not safe)) (##type-id _%klass94881%_)))) (declare (not safe)) - (unchecked-slot-set! - _%obj95206%_ - _%slot95203%_ - _%val95207%_)))))) + (##structure-direct-instance-of? _%obj94885%_ __tmp97848)) + (unchecked-field-set! _%obj94885%_ _%field94883%_ _%val94886%_) + (unchecked-slot-set! _%obj94885%_ _%slot94882%_ _%val94886%_))))) (define class-slot-offset - (lambda (_%klass95177%_ _%slot95178%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass95177%_ 'class)) - (let ((_%klass95182%_ _%klass95177%_)) - (if (let () (declare (not safe)) (symbolic? _%slot95178%_)) - (let ((_%slot95192%_ _%slot95178%_)) - (declare (not safe)) - (__class-slot-offset _%klass95182%_ _%slot95192%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@589.43-589.47" - 'contract: - 'symbolic? - 'value: - _%slot95178%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@589.26-589.31" - 'contract: - 'class-type? - 'value: - _%klass95177%_) - '#!void))))) + (lambda (_%klass94856%_ _%slot94857%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass94856%_ 'class)) + (let ((_%klass94861%_ _%klass94856%_)) + (if (let () (declare (not safe)) (symbolic? _%slot94857%_)) + (let ((_%slot94871%_ _%slot94857%_)) + (__class-slot-offset _%klass94861%_ _%slot94871%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@589.43-589.47" + 'contract: + 'symbolic? + 'value: + _%slot94857%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@589.26-589.31" + 'contract: + 'class-type? + 'value: + _%klass94856%_) + '#!void)))) (define __class-slot-offset - (lambda (_%klass95156%_ _%slot95157%_) - (let ((_%klass95160%_ _%klass95156%_)) - (let* ((_%slot95168%_ _%slot95157%_) - (__tmp98182 - (let () - (declare (not safe)) - (##unchecked-structure-ref _%klass95160%_ '8 '#f '#f)))) - (declare (not safe)) - (symbolic-table-ref __tmp98182 _%slot95168%_ '#f))))) - (define class-slot-ref - (lambda (_%klass95130%_ _%obj95131%_ _%slot95132%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass95130%_ 'class)) - (let ((_%klass95136%_ _%klass95130%_)) - (if (let () (declare (not safe)) (symbolic? _%slot95132%_)) - (let ((_%slot95146%_ _%slot95132%_)) - (declare (not safe)) - (__class-slot-ref - _%klass95136%_ - _%obj95131%_ - _%slot95146%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@592.44-592.48" - 'contract: - 'symbolic? - 'value: - _%slot95132%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@592.23-592.28" - 'contract: - 'class-type? - 'value: - _%klass95130%_) - '#!void))))) - (define __class-slot-ref - (lambda (_%klass95106%_ _%obj95107%_ _%slot95108%_) - (let () - (let* ((_%klass95111%_ _%klass95106%_) (_%slot95119%_ _%slot95108%_)) - (if (let () - (declare (not safe)) - (__class-instance? _%klass95111%_ _%obj95107%_)) - (let ((_%off95128%_ - (let ((__tmp98183 - (let () - (declare (not safe)) - (##structure-type _%obj95107%_)))) - (declare (not safe)) - (class-slot-offset __tmp98183 _%slot95119%_)))) - (declare (not safe)) - (##unchecked-structure-ref - _%obj95107%_ - _%off95128%_ - _%klass95111%_ - _%slot95119%_)) + (lambda (_%klass94835%_ _%slot94836%_) + (let* ((_%klass94839%_ _%klass94835%_) + (_%slot94847%_ _%slot94836%_) + (__tmp97849 (let () (declare (not safe)) - (not-an-instance__0 _%obj95107%_ _%klass95111%_))))))) - (define class-slot-set! - (lambda (_%klass95079%_ _%obj95080%_ _%slot95081%_ _%val95082%_) - (let () - (if (let () + (##unchecked-structure-ref _%klass94839%_ '8 '#f '#f)))) + (declare (not safe)) + (symbolic-table-ref __tmp97849 _%slot94847%_ '#f)))) + (define class-slot-ref + (lambda (_%klass94809%_ _%obj94810%_ _%slot94811%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass94809%_ 'class)) + (let ((_%klass94815%_ _%klass94809%_)) + (if (let () (declare (not safe)) (symbolic? _%slot94811%_)) + (let ((_%slot94825%_ _%slot94811%_)) + (__class-slot-ref + _%klass94815%_ + _%obj94810%_ + _%slot94825%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@592.44-592.48" + 'contract: + 'symbolic? + 'value: + _%slot94811%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@592.23-592.28" + 'contract: + 'class-type? + 'value: + _%klass94809%_) + '#!void)))) + (define __class-slot-ref + (lambda (_%klass94785%_ _%obj94786%_ _%slot94787%_) + (let* ((_%klass94790%_ _%klass94785%_) (_%slot94798%_ _%slot94787%_)) + (if (__class-instance? _%klass94790%_ _%obj94786%_) + (let ((_%off94807%_ + (class-slot-offset + (let () + (declare (not safe)) + (##structure-type _%obj94786%_)) + _%slot94798%_))) (declare (not safe)) - (##structure-instance-of? _%klass95079%_ 'class)) - (let ((_%klass95086%_ _%klass95079%_)) - (if (let () (declare (not safe)) (symbolic? _%slot95081%_)) - (let ((_%slot95096%_ _%slot95081%_)) - (declare (not safe)) - (__class-slot-set! - _%klass95086%_ - _%obj95080%_ - _%slot95096%_ - _%val95082%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@598.45-598.49" - 'contract: - 'symbolic? - 'value: - _%slot95081%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@598.24-598.29" - 'contract: - 'class-type? - 'value: - _%klass95079%_) - '#!void))))) + (##unchecked-structure-ref + _%obj94786%_ + _%off94807%_ + _%klass94790%_ + _%slot94798%_)) + (not-an-instance__0 _%obj94786%_ _%klass94790%_))))) + (define class-slot-set! + (lambda (_%klass94758%_ _%obj94759%_ _%slot94760%_ _%val94761%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass94758%_ 'class)) + (let ((_%klass94765%_ _%klass94758%_)) + (if (let () (declare (not safe)) (symbolic? _%slot94760%_)) + (let ((_%slot94775%_ _%slot94760%_)) + (__class-slot-set! + _%klass94765%_ + _%obj94759%_ + _%slot94775%_ + _%val94761%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@598.45-598.49" + 'contract: + 'symbolic? + 'value: + _%slot94760%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@598.24-598.29" + 'contract: + 'class-type? + 'value: + _%klass94758%_) + '#!void)))) (define __class-slot-set! - (lambda (_%klass95054%_ _%obj95055%_ _%slot95056%_ _%val95057%_) - (let () - (let* ((_%klass95060%_ _%klass95054%_) (_%slot95068%_ _%slot95056%_)) - (if (let () - (declare (not safe)) - (__class-instance? _%klass95060%_ _%obj95055%_)) - (let ((_%off95077%_ - (let ((__tmp98184 - (let () - (declare (not safe)) - (##structure-type _%obj95055%_)))) - (declare (not safe)) - (class-slot-offset __tmp98184 _%slot95068%_)))) - (declare (not safe)) - (##unchecked-structure-set! - _%obj95055%_ - _%val95057%_ - _%off95077%_ - _%klass95060%_ - _%slot95068%_)) - (let () - (declare (not safe)) - (not-an-instance__0 _%obj95055%_ _%klass95060%_))))))) + (lambda (_%klass94733%_ _%obj94734%_ _%slot94735%_ _%val94736%_) + (let* ((_%klass94739%_ _%klass94733%_) (_%slot94747%_ _%slot94735%_)) + (if (__class-instance? _%klass94739%_ _%obj94734%_) + (let ((_%off94756%_ + (class-slot-offset + (let () + (declare (not safe)) + (##structure-type _%obj94734%_)) + _%slot94747%_))) + (declare (not safe)) + (##unchecked-structure-set! + _%obj94734%_ + _%val94736%_ + _%off94756%_ + _%klass94739%_ + _%slot94747%_)) + (not-an-instance__0 _%obj94734%_ _%klass94739%_))))) (define unchecked-field-ref - (lambda (_%obj95051%_ _%off95052%_) - (let ((__tmp98185 - (let () (declare (not safe)) (##structure-type _%obj95051%_)))) + (lambda (_%obj94730%_ _%off94731%_) + (let ((__tmp97850 + (let () (declare (not safe)) (##structure-type _%obj94730%_)))) (declare (not safe)) (##unchecked-structure-ref - _%obj95051%_ - _%off95052%_ - __tmp98185 + _%obj94730%_ + _%off94731%_ + __tmp97850 '#f)))) (define unchecked-field-set! - (lambda (_%obj95047%_ _%off95048%_ _%val95049%_) - (let ((__tmp98186 - (let () (declare (not safe)) (##structure-type _%obj95047%_)))) + (lambda (_%obj94726%_ _%off94727%_ _%val94728%_) + (let ((__tmp97851 + (let () (declare (not safe)) (##structure-type _%obj94726%_)))) (declare (not safe)) (##unchecked-structure-set! - _%obj95047%_ - _%val95049%_ - _%off95048%_ - __tmp98186 + _%obj94726%_ + _%val94728%_ + _%off94727%_ + __tmp97851 '#f)))) (define unchecked-slot-ref - (lambda (_%obj95044%_ _%slot95045%_) - (let ((__tmp98187 - (let ((__tmp98188 - (let () - (declare (not safe)) - (##structure-type _%obj95044%_)))) - (declare (not safe)) - (__class-slot-offset __tmp98188 _%slot95045%_)))) - (declare (not safe)) - (unchecked-field-ref _%obj95044%_ __tmp98187)))) + (lambda (_%obj94723%_ _%slot94724%_) + (unchecked-field-ref + _%obj94723%_ + (__class-slot-offset + (let () (declare (not safe)) (##structure-type _%obj94723%_)) + _%slot94724%_)))) (define unchecked-slot-set! - (lambda (_%obj95040%_ _%slot95041%_ _%val95042%_) - (let ((__tmp98189 - (let ((__tmp98190 - (let () - (declare (not safe)) - (##structure-type _%obj95040%_)))) - (declare (not safe)) - (__class-slot-offset __tmp98190 _%slot95041%_)))) - (declare (not safe)) - (unchecked-field-set! _%obj95040%_ __tmp98189 _%val95042%_)))) + (lambda (_%obj94719%_ _%slot94720%_ _%val94721%_) + (unchecked-field-set! + _%obj94719%_ + (__class-slot-offset + (let () (declare (not safe)) (##structure-type _%obj94719%_)) + _%slot94720%_) + _%val94721%_))) (define slot-ref__% - (lambda (_%obj95002%_ _%slot95003%_ _%E95004%_) - (let () - (if (let () (declare (not safe)) (symbol? _%slot95003%_)) - (let ((_%slot95008%_ _%slot95003%_)) - (if (let () (declare (not safe)) (procedure? _%E95004%_)) - (let ((_%E95018%_ _%E95004%_)) - (declare (not safe)) - (__slot-ref__% _%obj95002%_ _%slot95008%_ _%E95018%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@621.38-621.39" - 'contract: - 'procedure? - 'value: - _%E95004%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@621.21-621.25" - 'contract: - 'symbol? - 'value: - _%slot95003%_) - '#!void))))) + (lambda (_%obj94681%_ _%slot94682%_ _%E94683%_) + (if (symbol? _%slot94682%_) + (let ((_%slot94687%_ _%slot94682%_)) + (if (procedure? _%E94683%_) + (let ((_%E94697%_ _%E94683%_)) + (__slot-ref__% _%obj94681%_ _%slot94687%_ _%E94697%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@621.38-621.39" + 'contract: + 'procedure? + 'value: + _%E94683%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@621.21-621.25" + 'contract: + 'symbol? + 'value: + _%slot94682%_) + '#!void)))) (define slot-ref__0 - (lambda (_%obj95031%_ _%slot95032%_) - (let ((_%E95034%_ __slot-error)) - (declare (not safe)) - (slot-ref__% _%obj95031%_ _%slot95032%_ _%E95034%_)))) + (lambda (_%obj94710%_ _%slot94711%_) + (let ((_%E94713%_ __slot-error)) + (slot-ref__% _%obj94710%_ _%slot94711%_ _%E94713%_)))) (define slot-ref - (lambda _g98192_ - (let ((_g98191_ (let () (declare (not safe)) (##length _g98192_)))) - (cond ((let () (declare (not safe)) (##fx= _g98191_ 2)) - (apply (lambda (_%obj95031%_ _%slot95032%_) - (let () - (declare (not safe)) - (slot-ref__0 _%obj95031%_ _%slot95032%_))) - _g98192_)) - ((let () (declare (not safe)) (##fx= _g98191_ 3)) - (apply (lambda (_%obj95036%_ _%slot95037%_ _%E95038%_) - (let () - (declare (not safe)) - (slot-ref__% - _%obj95036%_ - _%slot95037%_ - _%E95038%_))) - _g98192_)) + (lambda _g97853_ + (let ((_g97852_ (let () (declare (not safe)) (##length _g97853_)))) + (cond ((let () (declare (not safe)) (##fx= _g97852_ 2)) + (apply slot-ref__0 _g97853_)) + ((let () (declare (not safe)) (##fx= _g97852_ 3)) + (apply slot-ref__% _g97853_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g98192_)))))) + _g97853_)))))) (define __slot-ref__% - (lambda (_%obj94958%_ _%slot94959%_ _%E94960%_) - (let () - (let* ((_%slot94963%_ _%slot94959%_) (_%E94971%_ _%E94960%_)) - (let* ((_%klass94980%_ - (let () (declare (not safe)) (class-of _%obj94958%_))) - (_%$e94983%_ - (let () - (declare (not safe)) - (class-slot-offset _%klass94980%_ _%slot94963%_)))) - (if _%$e94983%_ - ((lambda (_%off94986%_) - (let () - (declare (not safe)) - (unchecked-field-ref _%obj94958%_ _%off94986%_))) - _%$e94983%_) - (let () - (declare (not safe)) - (_%E94971%_ _%obj94958%_ _%slot94963%_)))))))) + (lambda (_%obj94637%_ _%slot94638%_ _%E94639%_) + (let* ((_%slot94642%_ _%slot94638%_) + (_%E94650%_ _%E94639%_) + (_%klass94659%_ (class-of _%obj94637%_)) + (_%$e94662%_ (class-slot-offset _%klass94659%_ _%slot94642%_))) + (if _%$e94662%_ + ((lambda (_%off94665%_) + (unchecked-field-ref _%obj94637%_ _%off94665%_)) + _%$e94662%_) + (let () + (declare (not safe)) + (_%E94650%_ _%obj94637%_ _%slot94642%_)))))) (define __slot-ref__0 - (lambda (_%obj94992%_ _%slot94993%_) - (let ((_%E94995%_ __slot-error)) - (declare (not safe)) - (__slot-ref__% _%obj94992%_ _%slot94993%_ _%E94995%_)))) + (lambda (_%obj94671%_ _%slot94672%_) + (let ((_%E94674%_ __slot-error)) + (__slot-ref__% _%obj94671%_ _%slot94672%_ _%E94674%_)))) (define __slot-ref - (lambda _g98194_ - (let ((_g98193_ (let () (declare (not safe)) (##length _g98194_)))) - (cond ((let () (declare (not safe)) (##fx= _g98193_ 2)) - (apply (lambda (_%obj94992%_ _%slot94993%_) - (let () - (declare (not safe)) - (__slot-ref__0 _%obj94992%_ _%slot94993%_))) - _g98194_)) - ((let () (declare (not safe)) (##fx= _g98193_ 3)) - (apply (lambda (_%obj94997%_ _%slot94998%_ _%E94999%_) - (let () - (declare (not safe)) - (__slot-ref__% - _%obj94997%_ - _%slot94998%_ - _%E94999%_))) - _g98194_)) + (lambda _g97855_ + (let ((_g97854_ (let () (declare (not safe)) (##length _g97855_)))) + (cond ((let () (declare (not safe)) (##fx= _g97854_ 2)) + (apply __slot-ref__0 _g97855_)) + ((let () (declare (not safe)) (##fx= _g97854_ 3)) + (apply __slot-ref__% _g97855_)) (else (##raise-wrong-number-of-arguments-exception __slot-ref - _g98194_)))))) + _g97855_)))))) (define slot-set!__% - (lambda (_%obj94916%_ _%slot94917%_ _%val94918%_ _%E94919%_) - (let () - (if (let () (declare (not safe)) (symbol? _%slot94917%_)) - (let ((_%slot94923%_ _%slot94917%_)) - (if (let () (declare (not safe)) (procedure? _%E94919%_)) - (let ((_%E94933%_ _%E94919%_)) - (declare (not safe)) - (__slot-set!__% - _%obj94916%_ - _%slot94923%_ - _%val94918%_ - _%E94933%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@623.43-623.44" - 'contract: - 'procedure? - 'value: - _%E94919%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@623.22-623.26" - 'contract: - 'symbol? - 'value: - _%slot94917%_) - '#!void))))) + (lambda (_%obj94595%_ _%slot94596%_ _%val94597%_ _%E94598%_) + (if (symbol? _%slot94596%_) + (let ((_%slot94602%_ _%slot94596%_)) + (if (procedure? _%E94598%_) + (let ((_%E94612%_ _%E94598%_)) + (__slot-set!__% + _%obj94595%_ + _%slot94602%_ + _%val94597%_ + _%E94612%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@623.43-623.44" + 'contract: + 'procedure? + 'value: + _%E94598%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@623.22-623.26" + 'contract: + 'symbol? + 'value: + _%slot94596%_) + '#!void)))) (define slot-set!__0 - (lambda (_%obj94946%_ _%slot94947%_ _%val94948%_) - (let ((_%E94950%_ __slot-error)) - (declare (not safe)) - (slot-set!__% _%obj94946%_ _%slot94947%_ _%val94948%_ _%E94950%_)))) + (lambda (_%obj94625%_ _%slot94626%_ _%val94627%_) + (let ((_%E94629%_ __slot-error)) + (slot-set!__% _%obj94625%_ _%slot94626%_ _%val94627%_ _%E94629%_)))) (define slot-set! - (lambda _g98196_ - (let ((_g98195_ (let () (declare (not safe)) (##length _g98196_)))) - (cond ((let () (declare (not safe)) (##fx= _g98195_ 3)) - (apply (lambda (_%obj94946%_ _%slot94947%_ _%val94948%_) - (let () - (declare (not safe)) - (slot-set!__0 - _%obj94946%_ - _%slot94947%_ - _%val94948%_))) - _g98196_)) - ((let () (declare (not safe)) (##fx= _g98195_ 4)) - (apply (lambda (_%obj94952%_ - _%slot94953%_ - _%val94954%_ - _%E94955%_) - (let () - (declare (not safe)) - (slot-set!__% - _%obj94952%_ - _%slot94953%_ - _%val94954%_ - _%E94955%_))) - _g98196_)) + (lambda _g97857_ + (let ((_g97856_ (let () (declare (not safe)) (##length _g97857_)))) + (cond ((let () (declare (not safe)) (##fx= _g97856_ 3)) + (apply slot-set!__0 _g97857_)) + ((let () (declare (not safe)) (##fx= _g97856_ 4)) + (apply slot-set!__% _g97857_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g98196_)))))) + _g97857_)))))) (define __slot-set!__% - (lambda (_%obj94869%_ _%slot94870%_ _%val94871%_ _%E94872%_) - (let () - (let* ((_%slot94875%_ _%slot94870%_) (_%E94883%_ _%E94872%_)) - (let* ((_%klass94892%_ - (let () (declare (not safe)) (class-of _%obj94869%_))) - (_%$e94895%_ - (let () - (declare (not safe)) - (class-slot-offset _%klass94892%_ _%slot94875%_)))) - (if _%$e94895%_ - ((lambda (_%off94898%_) - (let () - (declare (not safe)) - (unchecked-field-set! - _%obj94869%_ - _%off94898%_ - _%val94871%_))) - _%$e94895%_) - (let () - (declare (not safe)) - (_%E94883%_ _%obj94869%_ _%slot94875%_)))))))) + (lambda (_%obj94548%_ _%slot94549%_ _%val94550%_ _%E94551%_) + (let* ((_%slot94554%_ _%slot94549%_) + (_%E94562%_ _%E94551%_) + (_%klass94571%_ (class-of _%obj94548%_)) + (_%$e94574%_ (class-slot-offset _%klass94571%_ _%slot94554%_))) + (if _%$e94574%_ + ((lambda (_%off94577%_) + (unchecked-field-set! _%obj94548%_ _%off94577%_ _%val94550%_)) + _%$e94574%_) + (let () + (declare (not safe)) + (_%E94562%_ _%obj94548%_ _%slot94554%_)))))) (define __slot-set!__0 - (lambda (_%obj94904%_ _%slot94905%_ _%val94906%_) - (let ((_%E94908%_ __slot-error)) - (declare (not safe)) + (lambda (_%obj94583%_ _%slot94584%_ _%val94585%_) + (let ((_%E94587%_ __slot-error)) (__slot-set!__% - _%obj94904%_ - _%slot94905%_ - _%val94906%_ - _%E94908%_)))) + _%obj94583%_ + _%slot94584%_ + _%val94585%_ + _%E94587%_)))) (define __slot-set! - (lambda _g98198_ - (let ((_g98197_ (let () (declare (not safe)) (##length _g98198_)))) - (cond ((let () (declare (not safe)) (##fx= _g98197_ 3)) - (apply (lambda (_%obj94904%_ _%slot94905%_ _%val94906%_) - (let () - (declare (not safe)) - (__slot-set!__0 - _%obj94904%_ - _%slot94905%_ - _%val94906%_))) - _g98198_)) - ((let () (declare (not safe)) (##fx= _g98197_ 4)) - (apply (lambda (_%obj94910%_ - _%slot94911%_ - _%val94912%_ - _%E94913%_) - (let () - (declare (not safe)) - (__slot-set!__% - _%obj94910%_ - _%slot94911%_ - _%val94912%_ - _%E94913%_))) - _g98198_)) + (lambda _g97859_ + (let ((_g97858_ (let () (declare (not safe)) (##length _g97859_)))) + (cond ((let () (declare (not safe)) (##fx= _g97858_ 3)) + (apply __slot-set!__0 _g97859_)) + ((let () (declare (not safe)) (##fx= _g97858_ 4)) + (apply __slot-set!__% _g97859_)) (else (##raise-wrong-number-of-arguments-exception __slot-set! - _g98198_)))))) + _g97859_)))))) (define __slot-error - (lambda (_%obj94865%_ _%slot94866%_) + (lambda (_%obj94544%_ _%slot94545%_) (error '"Cannot find slot" 'object: - _%obj94865%_ + _%obj94544%_ 'slot: - _%slot94866%_))) + _%slot94545%_))) (define subclass? - (lambda (_%maybe-sub-class94840%_ _%maybe-super-class94841%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%maybe-sub-class94840%_ 'class)) - (let ((_%maybe-sub-class94845%_ _%maybe-sub-class94840%_)) - (if (let () - (declare (not safe)) - (##structure-instance-of? - _%maybe-super-class94841%_ - 'class)) - (let ((_%maybe-super-class94855%_ - _%maybe-super-class94841%_)) - (declare (not safe)) - (__subclass? - _%maybe-sub-class94845%_ - _%maybe-super-class94855%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@631.45-631.62" - 'contract: - 'class-type? - 'value: - _%maybe-super-class94841%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@631.18-631.33" - 'contract: - 'class-type? - 'value: - _%maybe-sub-class94840%_) - '#!void))))) - (define __subclass? - (lambda (_%maybe-sub-class94812%_ _%maybe-super-class94813%_) - (let () - (let* ((_%maybe-sub-class94816%_ _%maybe-sub-class94812%_) - (_%maybe-super-class94824%_ _%maybe-super-class94813%_)) - (let* ((_%maybe-super-class-id94833%_ - (let () - (declare (not safe)) - (##type-id _%maybe-super-class94824%_))) - (_%$e94835%_ - (eq? _%maybe-super-class-id94833%_ - (let () - (declare (not safe)) - (##type-id _%maybe-sub-class94816%_))))) - (if _%$e94835%_ - _%$e94835%_ - (let ((__tmp98200 - (lambda (_%super-class94838%_) - (eq? (let () - (declare (not safe)) - (##type-id _%super-class94838%_)) - _%maybe-super-class-id94833%_))) - (__tmp98199 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%maybe-sub-class94816%_ - '6 - '#f - '#f)))) + (lambda (_%maybe-sub-class94519%_ _%maybe-super-class94520%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%maybe-sub-class94519%_ 'class)) + (let ((_%maybe-sub-class94524%_ _%maybe-sub-class94519%_)) + (if (let () (declare (not safe)) - (__ormap1 __tmp98200 __tmp98199)))))))) - (define object? - (lambda (_%o94809%_) - (let () - (if (let () (declare (not safe)) (##structure? _%o94809%_)) - (let ((__tmp98201 + (##structure-instance-of? + _%maybe-super-class94520%_ + 'class)) + (let ((_%maybe-super-class94534%_ + _%maybe-super-class94520%_)) + (__subclass? + _%maybe-sub-class94524%_ + _%maybe-super-class94534%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@631.45-631.62" + 'contract: + 'class-type? + 'value: + _%maybe-super-class94520%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@631.18-631.33" + 'contract: + 'class-type? + 'value: + _%maybe-sub-class94519%_) + '#!void)))) + (define __subclass? + (lambda (_%maybe-sub-class94491%_ _%maybe-super-class94492%_) + (let* ((_%maybe-sub-class94495%_ _%maybe-sub-class94491%_) + (_%maybe-super-class94503%_ _%maybe-super-class94492%_) + (_%maybe-super-class-id94512%_ + (let () + (declare (not safe)) + (##type-id _%maybe-super-class94503%_))) + (_%$e94514%_ + (eq? _%maybe-super-class-id94512%_ (let () (declare (not safe)) - (##structure-type _%o94809%_)))) - (declare (not safe)) - (##structure-instance-of? __tmp98201 'class)) - '#f)))) - (define object-type - (lambda (_%o94804%_) - (let () - (if (let () (declare (not safe)) (##structure? _%o94804%_)) - (let ((_%klass94807%_ + (##type-id _%maybe-sub-class94495%_))))) + (if _%$e94514%_ + _%$e94514%_ + (let ((__tmp97861 + (lambda (_%super-class94517%_) + (eq? (let () + (declare (not safe)) + (##type-id _%super-class94517%_)) + _%maybe-super-class-id94512%_))) + (__tmp97860 (let () (declare (not safe)) - (##structure-type _%o94804%_)))) - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass94807%_ 'class)) - _%klass94807%_ - (begin - (error '"not an object" _%o94804%_ _%klass94807%_) - '#!void))) - (begin (error '"not an object" _%o94804%_) '#!void))))) - (define direct-instance? - (lambda (_%klass94789%_ _%obj94790%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass94789%_ 'class)) - (let ((_%klass94794%_ _%klass94789%_)) + (##unchecked-structure-ref + _%maybe-sub-class94495%_ + '6 + '#f + '#f)))) (declare (not safe)) - (__direct-instance? _%klass94794%_ _%obj94790%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@654.25-654.30" - 'contract: - 'class-type? - 'value: - _%klass94789%_) - '#!void))))) - (define __direct-instance? - (lambda (_%klass94776%_ _%obj94777%_) - (let () - (let* ((_%klass94780%_ _%klass94776%_) - (__tmp98202 - (let () (declare (not safe)) (##type-id _%klass94780%_)))) - (declare (not safe)) - (##structure-direct-instance-of? _%obj94777%_ __tmp98202))))) - (define immediate-instance-of? - (lambda (_%klass94772%_ _%obj94773%_) - (let () - (if (let () (declare (not safe)) (##structure? _%obj94773%_)) - (eq? _%klass94772%_ + (__ormap1 __tmp97861 __tmp97860)))))) + (define object? + (lambda (_%o94488%_) + (if (let () (declare (not safe)) (##structure? _%o94488%_)) + (let ((__tmp97862 (let () (declare (not safe)) - (##structure-type _%obj94773%_))) - '#f)))) + (##structure-type _%o94488%_)))) + (declare (not safe)) + (##structure-instance-of? __tmp97862 'class)) + '#f))) + (define object-type + (lambda (_%o94483%_) + (if (let () (declare (not safe)) (##structure? _%o94483%_)) + (let ((_%klass94486%_ + (let () + (declare (not safe)) + (##structure-type _%o94483%_)))) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass94486%_ 'class)) + _%klass94486%_ + (begin + (error '"not an object" _%o94483%_ _%klass94486%_) + '#!void))) + (begin (error '"not an object" _%o94483%_) '#!void)))) + (define direct-instance? + (lambda (_%klass94468%_ _%obj94469%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass94468%_ 'class)) + (let ((_%klass94473%_ _%klass94468%_)) + (__direct-instance? _%klass94473%_ _%obj94469%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@654.25-654.30" + 'contract: + 'class-type? + 'value: + _%klass94468%_) + '#!void)))) + (define __direct-instance? + (lambda (_%klass94455%_ _%obj94456%_) + (let* ((_%klass94459%_ _%klass94455%_) + (__tmp97863 + (let () (declare (not safe)) (##type-id _%klass94459%_)))) + (declare (not safe)) + (##structure-direct-instance-of? _%obj94456%_ __tmp97863)))) + (define immediate-instance-of? + (lambda (_%klass94451%_ _%obj94452%_) + (if (let () (declare (not safe)) (##structure? _%obj94452%_)) + (eq? _%klass94451%_ + (let () (declare (not safe)) (##structure-type _%obj94452%_))) + '#f))) (define struct-instance? - (lambda (_%klass94757%_ _%obj94758%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass94757%_ 'class)) - (let ((_%klass94762%_ _%klass94757%_)) - (declare (not safe)) - (__struct-instance? _%klass94762%_ _%obj94758%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@684.25-684.30" - 'contract: - 'class-type? - 'value: - _%klass94757%_) - '#!void))))) + (lambda (_%klass94436%_ _%obj94437%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass94436%_ 'class)) + (let ((_%klass94441%_ _%klass94436%_)) + (__struct-instance? _%klass94441%_ _%obj94437%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@684.25-684.30" + 'contract: + 'class-type? + 'value: + _%klass94436%_) + '#!void)))) (define __struct-instance? - (lambda (_%klass94744%_ _%obj94745%_) - (let () - (let* ((_%klass94748%_ _%klass94744%_) - (__tmp98203 - (let () (declare (not safe)) (##type-id _%klass94748%_)))) - (declare (not safe)) - (##structure-instance-of? _%obj94745%_ __tmp98203))))) + (lambda (_%klass94423%_ _%obj94424%_) + (let* ((_%klass94427%_ _%klass94423%_) + (__tmp97864 + (let () (declare (not safe)) (##type-id _%klass94427%_)))) + (declare (not safe)) + (##structure-instance-of? _%obj94424%_ __tmp97864)))) (define class-instance? - (lambda (_%klass94729%_ _%obj94730%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass94729%_ 'class)) - (let ((_%klass94734%_ _%klass94729%_)) - (declare (not safe)) - (__class-instance? _%klass94734%_ _%obj94730%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@689.24-689.29" - 'contract: - 'class-type? - 'value: - _%klass94729%_) - '#!void))))) + (lambda (_%klass94408%_ _%obj94409%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass94408%_ 'class)) + (let ((_%klass94413%_ _%klass94408%_)) + (__class-instance? _%klass94413%_ _%obj94409%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@689.24-689.29" + 'contract: + 'class-type? + 'value: + _%klass94408%_) + '#!void)))) (define __class-instance? - (lambda (_%klass94714%_ _%obj94715%_) - (let () - (let* ((_%klass94718%_ _%klass94714%_) - (_%type94727%_ - (let () (declare (not safe)) (class-of _%obj94715%_)))) - (declare (not safe)) - (subclass? _%type94727%_ _%klass94718%_))))) + (lambda (_%klass94393%_ _%obj94394%_) + (let* ((_%klass94397%_ _%klass94393%_) + (_%type94406%_ (class-of _%obj94394%_))) + (subclass? _%type94406%_ _%klass94397%_)))) (define make-object - (lambda (_%klass94689%_ _%k94690%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass94689%_ 'class)) - (let ((_%klass94694%_ _%klass94689%_)) - (if (let () (declare (not safe)) (fixnum? _%k94690%_)) - (let ((_%k94704%_ _%k94690%_)) - (declare (not safe)) - (__make-object _%klass94694%_ _%k94704%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@694.37-694.38" - 'contract: - 'fixnum? - 'value: - _%k94690%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@694.20-694.25" - 'contract: - 'class-type? - 'value: - _%klass94689%_) - '#!void))))) + (lambda (_%klass94368%_ _%k94369%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass94368%_ 'class)) + (let ((_%klass94373%_ _%klass94368%_)) + (if (fixnum? _%k94369%_) + (let ((_%k94383%_ _%k94369%_)) + (__make-object _%klass94373%_ _%k94383%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@694.37-694.38" + 'contract: + 'fixnum? + 'value: + _%k94369%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@694.20-694.25" + 'contract: + 'class-type? + 'value: + _%klass94368%_) + '#!void)))) (define __make-object - (lambda (_%klass94666%_ _%k94667%_) - (let () - (let* ((_%klass94670%_ _%klass94666%_) (_%k94678%_ _%k94667%_)) - (if (let () - (declare (not safe)) - (__class-type-system? _%klass94670%_)) - (begin - (error '"cannot instantiate system class" - 'class: - _%klass94670%_) - '#!void) - (let ((_%obj94687%_ - (let () - (declare (not safe)) - (##make-structure _%klass94670%_ _%k94678%_)))) - (declare (not safe)) - (object-fill! _%obj94687%_ '#f))))))) - (define object-fill! - (lambda (_%obj94651%_ _%fill94652%_) - (let () - (if '#t - (let ((_%obj94656%_ _%obj94651%_)) - (declare (not safe)) - (__object-fill! _%obj94656%_ _%fill94652%_)) + (lambda (_%klass94345%_ _%k94346%_) + (let* ((_%klass94349%_ _%klass94345%_) (_%k94357%_ _%k94346%_)) + (if (__class-type-system? _%klass94349%_) (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@714.21-714.24" - 'contract: - 'true - 'value: - _%obj94651%_) - '#!void))))) + (error '"cannot instantiate system class" + 'class: + _%klass94349%_) + '#!void) + (let ((_%obj94366%_ + (let () + (declare (not safe)) + (##make-structure _%klass94349%_ _%k94357%_)))) + (object-fill! _%obj94366%_ '#f)))))) + (define object-fill! + (lambda (_%obj94330%_ _%fill94331%_) + (if '#t + (let ((_%obj94335%_ _%obj94330%_)) + (__object-fill! _%obj94335%_ _%fill94331%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@714.21-714.24" + 'contract: + 'true + 'value: + _%obj94330%_) + '#!void)))) (define __object-fill! - (lambda (_%obj94633%_ _%fill94634%_) - (let ((_%obj94637%_ _%obj94633%_)) - (let _%loop94646%_ ((_%i94648%_ - (let ((__tmp98205 + (lambda (_%obj94312%_ _%fill94313%_) + (let ((_%obj94316%_ _%obj94312%_)) + (let _%loop94325%_ ((_%i94327%_ + (let ((__tmp97865 (let () (declare (not safe)) - (##structure-length _%obj94637%_)))) + (##structure-length _%obj94316%_)))) (declare (not safe)) - (##fx- __tmp98205 '1)))) - (let () - (if (let () (declare (not safe)) (##fx> _%i94648%_ '0)) - (begin - (let () - (declare (not safe)) - (##unchecked-structure-set! - _%obj94637%_ - _%fill94634%_ - _%i94648%_ - '#f - '#f)) - (let ((__tmp98204 - (let () - (declare (not safe)) - (##fx- _%i94648%_ '1)))) - (declare (not safe)) - (_%loop94646%_ __tmp98204))) - _%obj94637%_)))))) + (##fx- __tmp97865 '1)))) + (if (let () (declare (not safe)) (##fx> _%i94327%_ '0)) + (begin + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%obj94316%_ + _%fill94313%_ + _%i94327%_ + '#f + '#f)) + (_%loop94325%_ + (let () (declare (not safe)) (##fx- _%i94327%_ '1)))) + _%obj94316%_))))) (define new-instance - (lambda (_%klass94619%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass94619%_ 'class)) - (let ((_%klass94623%_ _%klass94619%_)) - (declare (not safe)) - (__new-instance _%klass94623%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@725.21-725.26" - 'contract: - 'class-type? - 'value: - _%klass94619%_) - '#!void))))) + (lambda (_%klass94298%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass94298%_ 'class)) + (let ((_%klass94302%_ _%klass94298%_)) + (__new-instance _%klass94302%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@725.21-725.26" + 'contract: + 'class-type? + 'value: + _%klass94298%_) + '#!void)))) (define __new-instance - (lambda (_%klass94607%_) - (let () - (let* ((_%klass94610%_ _%klass94607%_) - (__obj98101 - (let ((__tmp98206 - (let ((__tmp98207 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass94610%_ - '7 - '#f - '#f)))) - (declare (not safe)) - (##vector-length __tmp98207)))) - (declare (not safe)) - (##make-structure _%klass94610%_ __tmp98206)))) - (let () (declare (not safe)) (object-fill! __obj98101 '#f)) - __obj98101)))) + (lambda (_%klass94286%_) + (let* ((_%klass94289%_ _%klass94286%_) + (__obj97780 + (let ((__tmp97866 + (let ((__tmp97867 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass94289%_ + '7 + '#f + '#f)))) + (declare (not safe)) + (##vector-length __tmp97867)))) + (declare (not safe)) + (##make-structure _%klass94289%_ __tmp97866)))) + (object-fill! __obj97780 '#f) + __obj97780))) (define make-instance - (lambda (_%klass94592%_ . _%args94593%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass94592%_ 'class)) - (let ((_%klass94597%_ _%klass94592%_)) - (declare (not safe)) - (##apply __make-instance _%klass94597%_ _%args94593%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@728.22-728.27" - 'contract: - 'class-type? - 'value: - _%klass94592%_) - '#!void))))) + (lambda (_%klass94271%_ . _%args94272%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass94271%_ 'class)) + (let ((_%klass94276%_ _%klass94271%_)) + (declare (not safe)) + (##apply __make-instance _%klass94276%_ _%args94272%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@728.22-728.27" + 'contract: + 'class-type? + 'value: + _%klass94271%_) + '#!void)))) (define __make-instance - (lambda (_%klass94564%_ . _%args94565%_) - (let () - (let* ((_%klass94568%_ _%klass94564%_) - (_%$e94577%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref _%klass94568%_ '10 '#f '#f)))) - (if _%$e94577%_ - ((lambda (_%kons-id94580%_) - (let ((_%obj94582%_ - (let () + (lambda (_%klass94243%_ . _%args94244%_) + (let* ((_%klass94247%_ _%klass94243%_) + (_%$e94256%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%klass94247%_ '10 '#f '#f)))) + (if _%$e94256%_ + ((lambda (_%kons-id94259%_) + (let ((_%obj94261%_ (__new-instance _%klass94247%_))) + (___constructor-init! + _%klass94247%_ + _%kons-id94259%_ + _%obj94261%_ + _%args94244%_) + _%obj94261%_)) + _%$e94256%_) + (if (__class-type-metaclass? _%klass94247%_) + (let ((_%obj94264%_ (__new-instance _%klass94247%_))) + (__metaclass-instance-init! + _%klass94247%_ + _%obj94264%_ + _%args94244%_) + _%obj94264%_) + (if (not (__class-type-struct? _%klass94247%_)) + (let ((_%obj94267%_ (__new-instance _%klass94247%_))) + (___class-instance-init! + _%klass94247%_ + _%obj94267%_ + _%args94244%_) + _%obj94267%_) + (if (let ((__tmp97869 + (__class-type-field-count _%klass94247%_)) + (__tmp97868 (length _%args94244%_))) (declare (not safe)) - (__new-instance _%klass94568%_)))) - (let () - (declare (not safe)) - (___constructor-init! - _%klass94568%_ - _%kons-id94580%_ - _%obj94582%_ - _%args94565%_)) - _%obj94582%_)) - _%$e94577%_) - (if (let () - (declare (not safe)) - (__class-type-metaclass? _%klass94568%_)) - (let ((_%obj94585%_ - (let () - (declare (not safe)) - (__new-instance _%klass94568%_)))) - (let () - (declare (not safe)) - (__metaclass-instance-init! - _%klass94568%_ - _%obj94585%_ - _%args94565%_)) - _%obj94585%_) - (if (let ((__tmp98208 - (let () - (declare (not safe)) - (__class-type-struct? _%klass94568%_)))) - (declare (not safe)) - (not __tmp98208)) - (let ((_%obj94588%_ - (let () - (declare (not safe)) - (__new-instance _%klass94568%_)))) + (##fx= __tmp97869 __tmp97868)) + (apply ##structure _%klass94247%_ _%args94244%_) (let () - (declare (not safe)) - (___class-instance-init! - _%klass94568%_ - _%obj94588%_ - _%args94565%_)) - _%obj94588%_) - (if (let ((__tmp98210 - (let () - (declare (not safe)) - (__class-type-field-count - _%klass94568%_))) - (__tmp98209 (length _%args94565%_))) - (declare (not safe)) - (##fx= __tmp98210 __tmp98209)) - (let () - (apply ##structure _%klass94568%_ _%args94565%_)) - (let () - (error '"arguments don't match object size" - 'class: - _%klass94568%_ - 'slots: - (let () - (declare (not safe)) - (__class-type-slot-list _%klass94568%_)) - 'args: - _%args94565%_) - '#!void))))))))) + (error '"arguments don't match object size" + 'class: + _%klass94247%_ + 'slots: + (__class-type-slot-list _%klass94247%_) + 'args: + _%args94244%_) + '#!void)))))))) (define make-class-instance make-instance) (define struct-instance-init! - (lambda (_%obj94549%_ . _%args94550%_) - (let () - (if '#t - (let ((_%obj94554%_ _%obj94549%_)) - (declare (not safe)) - (##apply __struct-instance-init! _%obj94554%_ _%args94550%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@753.30-753.33" - 'contract: - 'true - 'value: - _%obj94549%_) - '#!void))))) + (lambda (_%obj94228%_ . _%args94229%_) + (if '#t + (let ((_%obj94233%_ _%obj94228%_)) + (declare (not safe)) + (##apply __struct-instance-init! _%obj94233%_ _%args94229%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@753.30-753.33" + 'contract: + 'true + 'value: + _%obj94228%_) + '#!void)))) (define __struct-instance-init! - (lambda (_%obj94536%_ . _%args94537%_) - (let ((_%obj94540%_ _%obj94536%_)) - (if (let ((__tmp98212 (length _%args94537%_)) - (__tmp98211 + (lambda (_%obj94215%_ . _%args94216%_) + (let ((_%obj94219%_ _%obj94215%_)) + (if (let ((__tmp97871 (length _%args94216%_)) + (__tmp97870 (let () (declare (not safe)) - (##structure-length _%obj94540%_)))) - (declare (not safe)) - (##fx< __tmp98212 __tmp98211)) - (let () + (##structure-length _%obj94219%_)))) (declare (not safe)) - (___struct-instance-init! _%obj94540%_ _%args94537%_)) + (##fx< __tmp97871 __tmp97870)) + (___struct-instance-init! _%obj94219%_ _%args94216%_) (error '"too many arguments for struct" 'object: - _%obj94540%_ + _%obj94219%_ 'args: - _%args94537%_)) + _%args94216%_)) '#!void))) (define ___struct-instance-init! - (lambda (_%obj94495%_ _%args94496%_) - (let _%lp94498%_ ((_%k94500%_ '1) (_%rest94501%_ _%args94496%_)) - (let* ((_%rest9450294510%_ _%rest94501%_) - (_%else9450494518%_ (lambda () _%obj94495%_)) - (_%K9450694524%_ - (lambda (_%rest94521%_ _%hd94522%_) - (let () - (declare (not safe)) - (unchecked-field-set! - _%obj94495%_ - _%k94500%_ - _%hd94522%_)) - (let ((__tmp98213 - (let () - (declare (not safe)) - (##fx+ _%k94500%_ '1)))) - (declare (not safe)) - (_%lp94498%_ __tmp98213 _%rest94521%_))))) - (if (let () (declare (not safe)) (##pair? _%rest9450294510%_)) - (let ((_%hd9450794527%_ + (lambda (_%obj94174%_ _%args94175%_) + (let _%lp94177%_ ((_%k94179%_ '1) (_%rest94180%_ _%args94175%_)) + (let* ((_%rest9418194189%_ _%rest94180%_) + (_%else9418394197%_ (lambda () _%obj94174%_)) + (_%K9418594203%_ + (lambda (_%rest94200%_ _%hd94201%_) + (unchecked-field-set! _%obj94174%_ _%k94179%_ _%hd94201%_) + (_%lp94177%_ + (let () (declare (not safe)) (##fx+ _%k94179%_ '1)) + _%rest94200%_)))) + (if (let () (declare (not safe)) (##pair? _%rest9418194189%_)) + (let ((_%hd9418694206%_ (let () (declare (not safe)) - (##car _%rest9450294510%_))) - (_%tl9450894529%_ + (##car _%rest9418194189%_))) + (_%tl9418794208%_ (let () (declare (not safe)) - (##cdr _%rest9450294510%_)))) - (let* ((_%hd94532%_ _%hd9450794527%_) - (_%rest94534%_ _%tl9450894529%_)) - (declare (not safe)) - (_%K9450694524%_ _%rest94534%_ _%hd94532%_))) - (let () (declare (not safe)) (_%else9450494518%_))))))) + (##cdr _%rest9418194189%_)))) + (let* ((_%hd94211%_ _%hd9418694206%_) + (_%rest94213%_ _%tl9418794208%_)) + (_%K9418594203%_ _%rest94213%_ _%hd94211%_))) + (_%else9418394197%_)))))) (define class-instance-init! - (lambda (_%obj94480%_ . _%args94481%_) - (let () - (if '#t - (let ((_%obj94485%_ _%obj94480%_)) - (declare (not safe)) - (##apply __class-instance-init! _%obj94485%_ _%args94481%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@793.29-793.32" - 'contract: - 'true - 'value: - _%obj94480%_) - '#!void))))) + (lambda (_%obj94159%_ . _%args94160%_) + (if '#t + (let ((_%obj94164%_ _%obj94159%_)) + (declare (not safe)) + (##apply __class-instance-init! _%obj94164%_ _%args94160%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@793.29-793.32" + 'contract: + 'true + 'value: + _%obj94159%_) + '#!void)))) (define __class-instance-init! - (lambda (_%obj94467%_ . _%args94468%_) - (let ((_%obj94471%_ _%obj94467%_)) - (let ((__tmp98214 - (let () - (declare (not safe)) - (##structure-type _%obj94471%_)))) - (declare (not safe)) - (___class-instance-init! __tmp98214 _%obj94471%_ _%args94468%_)) + (lambda (_%obj94146%_ . _%args94147%_) + (let ((_%obj94150%_ _%obj94146%_)) + (___class-instance-init! + (let () (declare (not safe)) (##structure-type _%obj94150%_)) + _%obj94150%_ + _%args94147%_) '#!void))) (define ___class-instance-init! - (lambda (_%klass94409%_ _%obj94410%_ _%args94411%_) - (let _%lp94413%_ ((_%rest94415%_ _%args94411%_)) - (let* ((_%rest9441694426%_ _%rest94415%_) - (_%else9441894434%_ + (lambda (_%klass94088%_ _%obj94089%_ _%args94090%_) + (let _%lp94092%_ ((_%rest94094%_ _%args94090%_)) + (let* ((_%rest9409594105%_ _%rest94094%_) + (_%else9409794113%_ (lambda () - (if (let () (declare (not safe)) (null? _%rest94415%_)) - _%obj94410%_ + (if (null? _%rest94094%_) + _%obj94089%_ (error '"unexpected class initializer arguments" 'class: - _%klass94409%_ + _%klass94088%_ 'rest: - _%rest94415%_)))) - (_%K9442094448%_ - (lambda (_%rest94437%_ _%val94438%_ _%key94439%_) - (if (let ((__tmp98215 - (let () - (declare (not safe)) - (keyword? _%key94439%_)))) - (declare (not safe)) - (not __tmp98215)) - (let () - (error '"non keyword slot initializer" - 'slot: - _%key94439%_)) - (let ((_%$e94442%_ - (let () - (declare (not safe)) - (__class-slot-offset - _%klass94409%_ - _%key94439%_)))) - (if _%$e94442%_ - ((lambda (_%off94445%_) - (let () - (declare (not safe)) - (unchecked-field-set! - _%obj94410%_ - _%off94445%_ - _%val94438%_)) - (let () - (declare (not safe)) - (_%lp94413%_ _%rest94437%_))) - _%$e94442%_) - (let () - (error '"unknown slot" - 'class: - _%klass94409%_ - 'slot: - _%key94439%_)))))))) - (if (let () (declare (not safe)) (##pair? _%rest9441694426%_)) - (let ((_%hd9442194451%_ + _%rest94094%_)))) + (_%K9409994127%_ + (lambda (_%rest94116%_ _%val94117%_ _%key94118%_) + (if (not (keyword? _%key94118%_)) + (error '"non keyword slot initializer" + 'slot: + _%key94118%_) + (let ((_%$e94121%_ + (__class-slot-offset + _%klass94088%_ + _%key94118%_))) + (if _%$e94121%_ + ((lambda (_%off94124%_) + (unchecked-field-set! + _%obj94089%_ + _%off94124%_ + _%val94117%_) + (_%lp94092%_ _%rest94116%_)) + _%$e94121%_) + (error '"unknown slot" + 'class: + _%klass94088%_ + 'slot: + _%key94118%_))))))) + (if (let () (declare (not safe)) (##pair? _%rest9409594105%_)) + (let ((_%hd9410094130%_ (let () (declare (not safe)) - (##car _%rest9441694426%_))) - (_%tl9442294453%_ + (##car _%rest9409594105%_))) + (_%tl9410194132%_ (let () (declare (not safe)) - (##cdr _%rest9441694426%_)))) - (let ((_%key94456%_ _%hd9442194451%_)) + (##cdr _%rest9409594105%_)))) + (let ((_%key94135%_ _%hd9410094130%_)) (if (let () (declare (not safe)) - (##pair? _%tl9442294453%_)) - (let ((_%hd9442394458%_ + (##pair? _%tl9410194132%_)) + (let ((_%hd9410294137%_ (let () (declare (not safe)) - (##car _%tl9442294453%_))) - (_%tl9442494460%_ + (##car _%tl9410194132%_))) + (_%tl9410394139%_ (let () (declare (not safe)) - (##cdr _%tl9442294453%_)))) - (let* ((_%val94463%_ _%hd9442394458%_) - (_%rest94465%_ _%tl9442494460%_)) - (declare (not safe)) - (_%K9442094448%_ - _%rest94465%_ - _%val94463%_ - _%key94456%_))) - (let () (declare (not safe)) (_%else9441894434%_))))) - (let () (declare (not safe)) (_%else9441894434%_))))))) + (##cdr _%tl9410194132%_)))) + (let* ((_%val94142%_ _%hd9410294137%_) + (_%rest94144%_ _%tl9410394139%_)) + (_%K9409994127%_ + _%rest94144%_ + _%val94142%_ + _%key94135%_))) + (_%else9409794113%_)))) + (_%else9409794113%_)))))) (define __metaclass-instance-init! - (lambda (_%klass94405%_ _%obj94406%_ _%args94407%_) + (lambda (_%klass94084%_ _%obj94085%_ _%args94086%_) (apply call-method - _%klass94405%_ + _%klass94084%_ 'instance-init! - _%obj94406%_ - _%args94407%_))) + _%obj94085%_ + _%args94086%_))) (define constructor-init! - (lambda (_%klass94368%_ _%kons-id94369%_ _%obj94370%_ . _%args94371%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass94368%_ 'class)) - (let ((_%klass94375%_ _%klass94368%_)) - (if (let () (declare (not safe)) (symbol? _%kons-id94369%_)) - (let ((_%kons-id94385%_ _%kons-id94369%_)) - (if '#t - (let ((_%obj94395%_ _%obj94370%_)) - (declare (not safe)) - (##apply __constructor-init! - _%klass94375%_ - _%kons-id94385%_ - _%obj94395%_ - _%args94371%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@817.63-817.66" - 'contract: - 'true - 'value: - _%obj94370%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@817.43-817.50" - 'contract: - 'symbol? - 'value: - _%kons-id94369%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@817.26-817.31" - 'contract: - 'class-type? - 'value: - _%klass94368%_) - '#!void))))) - (define __constructor-init! - (lambda (_%klass94337%_ _%kons-id94338%_ _%obj94339%_ . _%args94340%_) - (let ((_%klass94343%_ _%klass94337%_)) - (let* ((_%kons-id94351%_ _%kons-id94338%_) - (_%obj94359%_ _%obj94339%_)) - (let () + (lambda (_%klass94047%_ _%kons-id94048%_ _%obj94049%_ . _%args94050%_) + (if (let () (declare (not safe)) - (___constructor-init! - _%klass94343%_ - _%kons-id94351%_ - _%obj94359%_ - _%args94340%_)) - '#!void)))) + (##structure-instance-of? _%klass94047%_ 'class)) + (let ((_%klass94054%_ _%klass94047%_)) + (if (symbol? _%kons-id94048%_) + (let ((_%kons-id94064%_ _%kons-id94048%_)) + (if '#t + (let ((_%obj94074%_ _%obj94049%_)) + (declare (not safe)) + (##apply __constructor-init! + _%klass94054%_ + _%kons-id94064%_ + _%obj94074%_ + _%args94050%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@817.63-817.66" + 'contract: + 'true + 'value: + _%obj94049%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@817.43-817.50" + 'contract: + 'symbol? + 'value: + _%kons-id94048%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@817.26-817.31" + 'contract: + 'class-type? + 'value: + _%klass94047%_) + '#!void)))) + (define __constructor-init! + (lambda (_%klass94016%_ _%kons-id94017%_ _%obj94018%_ . _%args94019%_) + (let* ((_%klass94022%_ _%klass94016%_) + (_%kons-id94030%_ _%kons-id94017%_) + (_%obj94038%_ _%obj94018%_)) + (___constructor-init! + _%klass94022%_ + _%kons-id94030%_ + _%obj94038%_ + _%args94019%_) + '#!void))) (define ___constructor-init! - (lambda (_%klass94326%_ _%kons-id94327%_ _%obj94328%_ _%args94329%_) - (let ((_%$e94331%_ - (let () - (declare (not safe)) - (__find-method - _%klass94326%_ - _%obj94328%_ - _%kons-id94327%_)))) - (if _%$e94331%_ - ((lambda (_%kons94334%_) - (apply _%kons94334%_ _%obj94328%_ _%args94329%_) - _%obj94328%_) - _%$e94331%_) - (let () - (error '"missing constructor" - 'class: - _%klass94326%_ - 'method: - _%kons-id94327%_)))))) + (lambda (_%klass94005%_ _%kons-id94006%_ _%obj94007%_ _%args94008%_) + (let ((_%$e94010%_ + (__find-method _%klass94005%_ _%obj94007%_ _%kons-id94006%_))) + (if _%$e94010%_ + ((lambda (_%kons94013%_) + (apply _%kons94013%_ _%obj94007%_ _%args94008%_) + _%obj94007%_) + _%$e94010%_) + (error '"missing constructor" + 'class: + _%klass94005%_ + 'method: + _%kons-id94006%_))))) (define struct-copy - (lambda (_%struct94312%_) - (let () - (if '#t - (let ((_%struct94316%_ _%struct94312%_)) - (declare (not safe)) - (__struct-copy _%struct94316%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@831.20-831.26" - 'contract: - 'true - 'value: - _%struct94312%_) - '#!void))))) + (lambda (_%struct93991%_) + (if '#t + (let ((_%struct93995%_ _%struct93991%_)) + (__struct-copy _%struct93995%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@831.20-831.26" + 'contract: + 'true + 'value: + _%struct93991%_) + '#!void)))) (define __struct-copy - (lambda (_%struct94300%_) - (let ((_%struct94303%_ _%struct94300%_)) + (lambda (_%struct93979%_) + (let ((_%struct93982%_ _%struct93979%_)) (declare (not safe)) - (##structure-copy _%struct94303%_)))) + (##structure-copy _%struct93982%_)))) (define struct->list - (lambda (_%obj94286%_) - (let () - (if '#t - (let ((_%obj94290%_ _%obj94286%_)) - (declare (not safe)) - (__struct->list _%obj94290%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@834.21-834.24" - 'contract: - 'true - 'value: - _%obj94286%_) - '#!void))))) + (lambda (_%obj93965%_) + (if '#t + (let ((_%obj93969%_ _%obj93965%_)) (__struct->list _%obj93969%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@834.21-834.24" + 'contract: + 'true + 'value: + _%obj93965%_) + '#!void)))) (define __struct->list - (lambda (_%obj94274%_) - (let ((_%obj94277%_ _%obj94274%_)) + (lambda (_%obj93953%_) + (let ((_%obj93956%_ _%obj93953%_)) (declare (not safe)) - (##vector->list _%obj94277%_)))) + (##vector->list _%obj93956%_)))) (define class->list - (lambda (_%obj94260%_) - (let () - (if '#t - (let ((_%obj94264%_ _%obj94260%_)) - (declare (not safe)) - (__class->list _%obj94264%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@837.20-837.23" - 'contract: - 'true - 'value: - _%obj94260%_) - '#!void))))) + (lambda (_%obj93939%_) + (if '#t + (let ((_%obj93943%_ _%obj93939%_)) (__class->list _%obj93943%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@837.20-837.23" + 'contract: + 'true + 'value: + _%obj93939%_) + '#!void)))) (define __class->list - (lambda (_%obj94236%_) - (let ((_%obj94239%_ _%obj94236%_)) - (let* ((_%klass94248%_ - (let () - (declare (not safe)) - (##structure-type _%obj94239%_))) - (_%slot-vector94250%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref _%klass94248%_ '7 '#f '#f)))) - (let _%loop94252%_ ((_%index94254%_ - (let ((__tmp98221 - (let () - (declare (not safe)) - (##vector-length - _%slot-vector94250%_)))) - (declare (not safe)) - (##fx- __tmp98221 '1))) - (_%plist94255%_ '())) - (let () - (if (let () (declare (not safe)) (##fx< _%index94254%_ '1)) - (cons _%klass94248%_ _%plist94255%_) - (let ((_%slot94258%_ - (let () - (declare (not safe)) - (##vector-ref - _%slot-vector94250%_ - _%index94254%_)))) - (let ((__tmp98220 - (let () - (declare (not safe)) - (##fx- _%index94254%_ '1))) - (__tmp98216 - (let ((__tmp98219 - (let () - (declare (not safe)) - (symbol->keyword _%slot94258%_))) - (__tmp98217 - (let ((__tmp98218 - (let () - (declare (not safe)) - (unchecked-field-ref - _%obj94239%_ - _%index94254%_)))) - (declare (not safe)) - (cons __tmp98218 _%plist94255%_)))) - (declare (not safe)) - (cons __tmp98219 __tmp98217)))) - (declare (not safe)) - (_%loop94252%_ __tmp98220 __tmp98216)))))))))) + (lambda (_%obj93915%_) + (let* ((_%obj93918%_ _%obj93915%_) + (_%klass93927%_ + (let () (declare (not safe)) (##structure-type _%obj93918%_))) + (_%slot-vector93929%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%klass93927%_ '7 '#f '#f)))) + (let _%loop93931%_ ((_%index93933%_ + (let ((__tmp97872 + (let () + (declare (not safe)) + (##vector-length + _%slot-vector93929%_)))) + (declare (not safe)) + (##fx- __tmp97872 '1))) + (_%plist93934%_ '())) + (if (let () (declare (not safe)) (##fx< _%index93933%_ '1)) + (cons _%klass93927%_ _%plist93934%_) + (let ((_%slot93937%_ + (let () + (declare (not safe)) + (##vector-ref _%slot-vector93929%_ _%index93933%_)))) + (_%loop93931%_ + (let () (declare (not safe)) (##fx- _%index93933%_ '1)) + (cons (let () + (declare (not safe)) + (symbol->keyword _%slot93937%_)) + (cons (unchecked-field-ref + _%obj93918%_ + _%index93933%_) + _%plist93934%_))))))))) (define call-method - (lambda (_%obj94220%_ _%id94221%_ . _%args94222%_) - (let () - (if (let () (declare (not safe)) (symbol? _%id94221%_)) - (let ((_%id94226%_ _%id94221%_)) - (declare (not safe)) - (##apply __call-method _%obj94220%_ _%id94226%_ _%args94222%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@852.24-852.26" - 'contract: - 'symbol? - 'value: - _%id94221%_) - '#!void))))) + (lambda (_%obj93899%_ _%id93900%_ . _%args93901%_) + (if (symbol? _%id93900%_) + (let ((_%id93905%_ _%id93900%_)) + (declare (not safe)) + (##apply __call-method _%obj93899%_ _%id93905%_ _%args93901%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@852.24-852.26" + 'contract: + 'symbol? + 'value: + _%id93900%_) + '#!void)))) (define __call-method - (lambda (_%obj94189%_ _%id94190%_ . _%args94191%_) - (let () - (let* ((_%id94194%_ _%id94190%_) - (_%$e94203%_ - (let () - (declare (not safe)) - (__method-ref _%obj94189%_ _%id94194%_)))) - (if _%$e94203%_ - ((lambda (_%method94206%_) - (let ((_%method94208%_ _%method94206%_)) - (apply _%method94208%_ _%obj94189%_ _%args94191%_))) - _%$e94203%_) - (let () - (error '"cannot find method" - 'object: - _%obj94189%_ - 'method: - _%id94194%_))))))) + (lambda (_%obj93868%_ _%id93869%_ . _%args93870%_) + (let* ((_%id93873%_ _%id93869%_) + (_%$e93882%_ (__method-ref _%obj93868%_ _%id93873%_))) + (if _%$e93882%_ + ((lambda (_%method93885%_) + (let ((_%method93887%_ _%method93885%_)) + (apply _%method93887%_ _%obj93868%_ _%args93870%_))) + _%$e93882%_) + (error '"cannot find method" + 'object: + _%obj93868%_ + 'method: + _%id93873%_))))) (define method-ref - (lambda (_%obj94174%_ _%id94175%_) - (let () - (if (let () (declare (not safe)) (symbol? _%id94175%_)) - (let ((_%id94179%_ _%id94175%_)) - (declare (not safe)) - (__method-ref _%obj94174%_ _%id94179%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@876.23-876.25" - 'contract: - 'symbol? - 'value: - _%id94175%_) - '#!void))))) + (lambda (_%obj93853%_ _%id93854%_) + (if (symbol? _%id93854%_) + (let ((_%id93858%_ _%id93854%_)) + (__method-ref _%obj93853%_ _%id93858%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@876.23-876.25" + 'contract: + 'symbol? + 'value: + _%id93854%_) + '#!void)))) (define __method-ref - (lambda (_%obj94161%_ _%id94162%_) - (let () - (let* ((_%id94165%_ _%id94162%_) - (__tmp98222 - (let () (declare (not safe)) (class-of _%obj94161%_)))) - (declare (not safe)) - (__find-method __tmp98222 _%obj94161%_ _%id94165%_))))) + (lambda (_%obj93840%_ _%id93841%_) + (let ((_%id93844%_ _%id93841%_)) + (__find-method (class-of _%obj93840%_) _%obj93840%_ _%id93844%_)))) (define checked-method-ref - (lambda (_%obj94154%_ _%id94155%_) - (let ((_%$e94158%_ - (let () - (declare (not safe)) - (method-ref _%obj94154%_ _%id94155%_)))) - (if _%$e94158%_ - _%$e94158%_ + (lambda (_%obj93833%_ _%id93834%_) + (let ((_%$e93837%_ (method-ref _%obj93833%_ _%id93834%_))) + (if _%$e93837%_ + _%$e93837%_ (begin (error '"missing method" 'object: - _%obj94154%_ + _%obj93833%_ 'method: - _%id94155%_) + _%id93834%_) '#!void))))) (define bound-method-ref - (lambda (_%obj94139%_ _%id94140%_) - (let () - (if (let () (declare (not safe)) (symbol? _%id94140%_)) - (let ((_%id94144%_ _%id94140%_)) - (declare (not safe)) - (__bound-method-ref _%obj94139%_ _%id94144%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@884.29-884.31" - 'contract: - 'symbol? - 'value: - _%id94140%_) - '#!void))))) + (lambda (_%obj93818%_ _%id93819%_) + (if (symbol? _%id93819%_) + (let ((_%id93823%_ _%id93819%_)) + (__bound-method-ref _%obj93818%_ _%id93823%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@884.29-884.31" + 'contract: + 'symbol? + 'value: + _%id93819%_) + '#!void)))) (define __bound-method-ref - (lambda (_%obj94107%_ _%id94108%_) - (let () - (let* ((_%id94111%_ _%id94108%_) - (_%$e94120%_ - (let () - (declare (not safe)) - (__method-ref _%obj94107%_ _%id94111%_)))) - (if _%$e94120%_ - ((lambda (_%method94123%_) - (let ((_%method94125%_ _%method94123%_)) - (lambda _%args94136%_ - (apply _%method94125%_ _%obj94107%_ _%args94136%_)))) - _%$e94120%_) - (let () '#f)))))) + (lambda (_%obj93786%_ _%id93787%_) + (let* ((_%id93790%_ _%id93787%_) + (_%$e93799%_ (__method-ref _%obj93786%_ _%id93790%_))) + (if _%$e93799%_ + ((lambda (_%method93802%_) + (let ((_%method93804%_ _%method93802%_)) + (lambda _%args93815%_ + (apply _%method93804%_ _%obj93786%_ _%args93815%_)))) + _%$e93799%_) + '#f)))) (define checked-bound-method-ref - (lambda (_%obj94092%_ _%id94093%_) - (let () - (if (let () (declare (not safe)) (symbol? _%id94093%_)) - (let ((_%id94097%_ _%id94093%_)) - (declare (not safe)) - (__checked-bound-method-ref _%obj94092%_ _%id94097%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@893.37-893.39" - 'contract: - 'symbol? - 'value: - _%id94093%_) - '#!void))))) + (lambda (_%obj93771%_ _%id93772%_) + (if (symbol? _%id93772%_) + (let ((_%id93776%_ _%id93772%_)) + (__checked-bound-method-ref _%obj93771%_ _%id93776%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@893.37-893.39" + 'contract: + 'symbol? + 'value: + _%id93772%_) + '#!void)))) (define __checked-bound-method-ref - (lambda (_%obj94075%_ _%id94076%_) - (let () - (let* ((_%id94079%_ _%id94076%_) - (_%method94088%_ - (let () - (declare (not safe)) - (checked-method-ref _%obj94075%_ _%id94079%_)))) - (lambda _%args94090%_ - (apply _%method94088%_ _%obj94075%_ _%args94090%_)))))) + (lambda (_%obj93754%_ _%id93755%_) + (let* ((_%id93758%_ _%id93755%_) + (_%method93767%_ (checked-method-ref _%obj93754%_ _%id93758%_))) + (lambda _%args93769%_ + (apply _%method93767%_ _%obj93754%_ _%args93769%_))))) (define find-method - (lambda (_%klass94049%_ _%obj94050%_ _%id94051%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass94049%_ 'class)) - (let ((_%klass94055%_ _%klass94049%_)) - (if (let () (declare (not safe)) (symbol? _%id94051%_)) - (let ((_%id94065%_ _%id94051%_)) - (declare (not safe)) - (__find-method _%klass94055%_ _%obj94050%_ _%id94065%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@898.41-898.43" - 'contract: - 'symbol? - 'value: - _%id94051%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@898.20-898.25" - 'contract: - 'class-type? - 'value: - _%klass94049%_) - '#!void))))) + (lambda (_%klass93728%_ _%obj93729%_ _%id93730%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass93728%_ 'class)) + (let ((_%klass93734%_ _%klass93728%_)) + (if (symbol? _%id93730%_) + (let ((_%id93744%_ _%id93730%_)) + (__find-method _%klass93734%_ _%obj93729%_ _%id93744%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@898.41-898.43" + 'contract: + 'symbol? + 'value: + _%id93730%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@898.20-898.25" + 'contract: + 'class-type? + 'value: + _%klass93728%_) + '#!void)))) (define __find-method - (lambda (_%klass94022%_ _%obj94023%_ _%id94024%_) - (let ((_%klass94027%_ _%klass94022%_)) - (let* ((_%id94035%_ _%id94024%_) - (_%$e94044%_ - (let () - (declare (not safe)) - (__direct-method-ref - _%klass94027%_ - _%obj94023%_ - _%id94035%_)))) - (if _%$e94044%_ - _%$e94044%_ - (if (let () - (declare (not safe)) - (__class-type-sealed? _%klass94027%_)) - (let () '#f) - (let () - (declare (not safe)) - (__mixin-method-ref - _%klass94027%_ - _%obj94023%_ - _%id94035%_)))))))) + (lambda (_%klass93701%_ _%obj93702%_ _%id93703%_) + (let* ((_%klass93706%_ _%klass93701%_) + (_%id93714%_ _%id93703%_) + (_%$e93723%_ + (__direct-method-ref _%klass93706%_ _%obj93702%_ _%id93714%_))) + (if _%$e93723%_ + _%$e93723%_ + (if (__class-type-sealed? _%klass93706%_) + '#f + (__mixin-method-ref + _%klass93706%_ + _%obj93702%_ + _%id93714%_)))))) (define mixin-find-method - (lambda (_%mixins94006%_ _%obj94007%_ _%id94008%_) - (let () - (if (let () (declare (not safe)) (symbol? _%id94008%_)) - (let ((_%id94012%_ _%id94008%_)) - (declare (not safe)) - (__mixin-find-method _%mixins94006%_ _%obj94007%_ _%id94012%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@906.37-906.39" - 'contract: - 'symbol? - 'value: - _%id94008%_) - '#!void))))) + (lambda (_%mixins93685%_ _%obj93686%_ _%id93687%_) + (if (symbol? _%id93687%_) + (let ((_%id93691%_ _%id93687%_)) + (__mixin-find-method _%mixins93685%_ _%obj93686%_ _%id93691%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@906.37-906.39" + 'contract: + 'symbol? + 'value: + _%id93687%_) + '#!void)))) (define __mixin-find-method - (lambda (_%mixins93988%_ _%obj93989%_ _%id93990%_) - (let () - (let* ((_%id93993%_ _%id93990%_) - (__tmp98223 - (lambda (_%g9400194003%_) - (let () - (declare (not safe)) - (direct-method-ref - _%g9400194003%_ - _%obj93989%_ - _%id93993%_))))) - (declare (not safe)) - (__ormap1 __tmp98223 _%mixins93988%_))))) + (lambda (_%mixins93667%_ _%obj93668%_ _%id93669%_) + (let* ((_%id93672%_ _%id93669%_) + (__tmp97873 + (lambda (_%g9368093682%_) + (direct-method-ref + _%g9368093682%_ + _%obj93668%_ + _%id93672%_)))) + (declare (not safe)) + (__ormap1 __tmp97873 _%mixins93667%_)))) (define direct-method-ref - (lambda (_%klass93962%_ _%obj93963%_ _%id93964%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass93962%_ 'class)) - (let ((_%klass93968%_ _%klass93962%_)) - (if (let () (declare (not safe)) (symbol? _%id93964%_)) - (let ((_%id93978%_ _%id93964%_)) - (declare (not safe)) - (__direct-method-ref - _%klass93968%_ - _%obj93963%_ - _%id93978%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@909.47-909.49" - 'contract: - 'symbol? - 'value: - _%id93964%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@909.26-909.31" - 'contract: - 'class-type? - 'value: - _%klass93962%_) - '#!void))))) - (define __direct-method-ref - (lambda (_%klass93916%_ _%obj93917%_ _%id93918%_) - (let () - (let* ((_%klass93921%_ _%klass93916%_) (_%id93929%_ _%id93918%_)) - (letrec ((_%metaclass-resolve-method93938%_ - (lambda () - (let ((__method98102 - (let () - (declare (not safe)) - (__method-ref - _%klass93921%_ - 'direct-method-ref)))) - (if __method98102 - (__method98102 - _%klass93921%_ - _%obj93917%_ - _%id93929%_) - (error '"Missing method" - _%klass93921%_ - 'direct-method-ref))))) - (_%metaclass-resolve-method!93939%_ - (lambda () - (let ((_%method93959%_ - (let () - (declare (not safe)) - (_%metaclass-resolve-method93938%_)))) - (let ((__tmp98225 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass93921%_ - '11 - '#f - '#f))) - (__tmp98224 - (if _%method93959%_ 'resolved 'unknown))) - (declare (not safe)) - (symbolic-table-set! - __tmp98225 - _%id93929%_ - __tmp98224)) - _%method93959%_)))) - (let ((_%$e93941%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass93921%_ - '11 - '#f - '#f)))) - (if _%$e93941%_ - ((lambda (_%ht93944%_) - (let ((_%method93946%_ - (let () - (declare (not safe)) - (symbolic-table-ref - _%ht93944%_ - _%id93929%_ - '#f)))) - (if (let () - (declare (not safe)) - (procedure? _%method93946%_)) - (let () _%method93946%_) - (if (let () - (declare (not safe)) - (__class-type-metaclass? _%klass93921%_)) - (let ((_%$e93950%_ _%method93946%_)) - (if (eq? 'resolved _%$e93950%_) - (let () - (declare (not safe)) - (_%metaclass-resolve-method93938%_)) - (if (eq? 'unknown _%$e93950%_) - '#f - (let () - (declare (not safe)) - (_%metaclass-resolve-method!93939%_))))) - (let () '#f))))) - _%$e93941%_) - (if (let () - (declare (not safe)) - (__class-type-metaclass? _%klass93921%_)) - (let ((_%tab93955%_ + (lambda (_%klass93641%_ _%obj93642%_ _%id93643%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass93641%_ 'class)) + (let ((_%klass93647%_ _%klass93641%_)) + (if (symbol? _%id93643%_) + (let ((_%id93657%_ _%id93643%_)) + (__direct-method-ref + _%klass93647%_ + _%obj93642%_ + _%id93657%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@909.47-909.49" + 'contract: + 'symbol? + 'value: + _%id93643%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@909.26-909.31" + 'contract: + 'class-type? + 'value: + _%klass93641%_) + '#!void)))) + (define __direct-method-ref + (lambda (_%klass93595%_ _%obj93596%_ _%id93597%_) + (let* ((_%klass93600%_ _%klass93595%_) (_%id93608%_ _%id93597%_)) + (letrec ((_%metaclass-resolve-method93617%_ + (lambda () + (let ((__method97781 + (__method-ref _%klass93600%_ 'direct-method-ref))) + (if __method97781 + (__method97781 + _%klass93600%_ + _%obj93596%_ + _%id93608%_) + (error '"Missing method" + _%klass93600%_ + 'direct-method-ref))))) + (_%metaclass-resolve-method!93618%_ + (lambda () + (let ((_%method93638%_ + (_%metaclass-resolve-method93617%_))) + (let ((__tmp97875 (let () (declare (not safe)) - (make-symbolic-table__% '#f '0)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _%klass93921%_ - _%tab93955%_ - '11 - '#f - '#f)) - (let () - (declare (not safe)) - (_%metaclass-resolve-method!93939%_))) - (let () '#f))))))))) + (##unchecked-structure-ref + _%klass93600%_ + '11 + '#f + '#f))) + (__tmp97874 + (if _%method93638%_ 'resolved 'unknown))) + (declare (not safe)) + (symbolic-table-set! + __tmp97875 + _%id93608%_ + __tmp97874)) + _%method93638%_)))) + (let ((_%$e93620%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%klass93600%_ '11 '#f '#f)))) + (if _%$e93620%_ + ((lambda (_%ht93623%_) + (let ((_%method93625%_ + (let () + (declare (not safe)) + (symbolic-table-ref + _%ht93623%_ + _%id93608%_ + '#f)))) + (if (procedure? _%method93625%_) + _%method93625%_ + (if (__class-type-metaclass? _%klass93600%_) + (let ((_%$e93629%_ _%method93625%_)) + (if (eq? 'resolved _%$e93629%_) + (_%metaclass-resolve-method93617%_) + (if (eq? 'unknown _%$e93629%_) + '#f + (_%metaclass-resolve-method!93618%_)))) + '#f)))) + _%$e93620%_) + (if (__class-type-metaclass? _%klass93600%_) + (let ((_%tab93634%_ + (let () + (declare (not safe)) + (make-symbolic-table__% '#f '0)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%klass93600%_ + _%tab93634%_ + '11 + '#f + '#f)) + (_%metaclass-resolve-method!93618%_)) + '#f))))))) (define mixin-method-ref - (lambda (_%klass93890%_ _%obj93891%_ _%id93892%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass93890%_ 'class)) - (let ((_%klass93896%_ _%klass93890%_)) - (if (let () (declare (not safe)) (symbol? _%id93892%_)) - (let ((_%id93906%_ _%id93892%_)) - (declare (not safe)) - (__mixin-method-ref - _%klass93896%_ - _%obj93891%_ - _%id93906%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@939.46-939.48" - 'contract: - 'symbol? - 'value: - _%id93892%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@939.25-939.30" - 'contract: - 'class-type? - 'value: - _%klass93890%_) - '#!void))))) + (lambda (_%klass93569%_ _%obj93570%_ _%id93571%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass93569%_ 'class)) + (let ((_%klass93575%_ _%klass93569%_)) + (if (symbol? _%id93571%_) + (let ((_%id93585%_ _%id93571%_)) + (__mixin-method-ref + _%klass93575%_ + _%obj93570%_ + _%id93585%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@939.46-939.48" + 'contract: + 'symbol? + 'value: + _%id93571%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@939.25-939.30" + 'contract: + 'class-type? + 'value: + _%klass93569%_) + '#!void)))) (define __mixin-method-ref - (lambda (_%klass93868%_ _%obj93869%_ _%id93870%_) - (let ((_%klass93873%_ _%klass93868%_)) - (let* ((_%id93881%_ _%id93870%_) - (__tmp98226 - (let () - (declare (not safe)) - (##unchecked-structure-ref _%klass93873%_ '6 '#f '#f)))) - (declare (not safe)) - (__mixin-find-method __tmp98226 _%obj93869%_ _%id93881%_))))) + (lambda (_%klass93547%_ _%obj93548%_ _%id93549%_) + (let* ((_%klass93552%_ _%klass93547%_) (_%id93560%_ _%id93549%_)) + (__mixin-find-method + (let () + (declare (not safe)) + (##unchecked-structure-ref _%klass93552%_ '6 '#f '#f)) + _%obj93548%_ + _%id93560%_)))) (define bind-method!__% - (lambda (_%klass93827%_ _%id93828%_ _%proc93829%_ _%rebind?93830%_) - (let () - (if (let () (declare (not safe)) (symbol? _%id93828%_)) - (let ((_%id93834%_ _%id93828%_)) - (if (let () (declare (not safe)) (procedure? _%proc93829%_)) - (let ((_%proc93844%_ _%proc93829%_)) - (declare (not safe)) - (__bind-method!__% - _%klass93827%_ - _%id93834%_ - _%proc93844%_ - _%rebind?93830%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@942.42-942.46" - 'contract: - 'procedure? - 'value: - _%proc93829%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@942.27-942.29" - 'contract: - 'symbol? - 'value: - _%id93828%_) - '#!void))))) + (lambda (_%klass93506%_ _%id93507%_ _%proc93508%_ _%rebind?93509%_) + (if (symbol? _%id93507%_) + (let ((_%id93513%_ _%id93507%_)) + (if (procedure? _%proc93508%_) + (let ((_%proc93523%_ _%proc93508%_)) + (__bind-method!__% + _%klass93506%_ + _%id93513%_ + _%proc93523%_ + _%rebind?93509%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@942.42-942.46" + 'contract: + 'procedure? + 'value: + _%proc93508%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@942.27-942.29" + 'contract: + 'symbol? + 'value: + _%id93507%_) + '#!void)))) (define bind-method!__0 - (lambda (_%klass93857%_ _%id93858%_ _%proc93859%_) - (let ((_%rebind?93861%_ '#f)) - (declare (not safe)) + (lambda (_%klass93536%_ _%id93537%_ _%proc93538%_) + (let ((_%rebind?93540%_ '#f)) (bind-method!__% - _%klass93857%_ - _%id93858%_ - _%proc93859%_ - _%rebind?93861%_)))) + _%klass93536%_ + _%id93537%_ + _%proc93538%_ + _%rebind?93540%_)))) (define bind-method! - (lambda _g98228_ - (let ((_g98227_ (let () (declare (not safe)) (##length _g98228_)))) - (cond ((let () (declare (not safe)) (##fx= _g98227_ 3)) - (apply (lambda (_%klass93857%_ _%id93858%_ _%proc93859%_) - (let () - (declare (not safe)) - (bind-method!__0 - _%klass93857%_ - _%id93858%_ - _%proc93859%_))) - _g98228_)) - ((let () (declare (not safe)) (##fx= _g98227_ 4)) - (apply (lambda (_%klass93863%_ - _%id93864%_ - _%proc93865%_ - _%rebind?93866%_) - (let () - (declare (not safe)) - (bind-method!__% - _%klass93863%_ - _%id93864%_ - _%proc93865%_ - _%rebind?93866%_))) - _g98228_)) + (lambda _g97877_ + (let ((_g97876_ (let () (declare (not safe)) (##length _g97877_)))) + (cond ((let () (declare (not safe)) (##fx= _g97876_ 3)) + (apply bind-method!__0 _g97877_)) + ((let () (declare (not safe)) (##fx= _g97876_ 4)) + (apply bind-method!__% _g97877_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g98228_)))))) + _g97877_)))))) (define __bind-method!__% - (lambda (_%klass93778%_ _%id93779%_ _%proc93780%_ _%rebind?93781%_) - (let () - (let* ((_%id93784%_ _%id93779%_) (_%proc93792%_ _%proc93780%_)) - (letrec ((_%bind!93801%_ - (lambda (_%ht93810%_) - (if (and (let () - (declare (not safe)) - (not _%rebind?93781%_)) - (let () - (declare (not safe)) - (symbolic-table-ref - _%ht93810%_ - _%id93784%_ - '#f))) - (error '"method already bound" - 'class: - _%klass93778%_ - 'method: - _%id93784%_) - (begin - (let () - (declare (not safe)) - (symbolic-table-set! - _%ht93810%_ - _%id93784%_ - _%proc93792%_)) - '#!void))))) - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass93778%_ 'class)) - (let ((_%ht93804%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%klass93778%_ - '11 - '#f - '#f)))) - (if _%ht93804%_ - (let () - (declare (not safe)) - (_%bind!93801%_ _%ht93804%_)) - (let ((_%ht93806%_ + (lambda (_%klass93457%_ _%id93458%_ _%proc93459%_ _%rebind?93460%_) + (let* ((_%id93463%_ _%id93458%_) (_%proc93471%_ _%proc93459%_)) + (letrec ((_%bind!93480%_ + (lambda (_%ht93489%_) + (if (and (not _%rebind?93460%_) (let () (declare (not safe)) - (make-symbolic-table__% '#f '0)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _%klass93778%_ - _%ht93806%_ - '11 - '#f - '#f)) - (let () - (declare (not safe)) - (_%bind!93801%_ _%ht93806%_))))) - (if (let () (declare (not safe)) (##type? _%klass93778%_)) - (let ((__tmp98229 + (symbolic-table-ref + _%ht93489%_ + _%id93463%_ + '#f))) + (error '"method already bound" + 'class: + _%klass93457%_ + 'method: + _%id93463%_) + (begin + (let () + (declare (not safe)) + (symbolic-table-set! + _%ht93489%_ + _%id93463%_ + _%proc93471%_)) + '#!void))))) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass93457%_ 'class)) + (let ((_%ht93483%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass93457%_ + '11 + '#f + '#f)))) + (if _%ht93483%_ + (_%bind!93480%_ _%ht93483%_) + (let ((_%ht93485%_ (let () (declare (not safe)) - (__shadow-class _%klass93778%_)))) - (declare (not safe)) - (__bind-method! - __tmp98229 - _%id93784%_ - _%proc93792%_ - _%rebind?93781%_)) - (let () - (error '"bad class; expected class or builtin type" - _%klass93778%_))))))))) + (make-symbolic-table__% '#f '0)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%klass93457%_ + _%ht93485%_ + '11 + '#f + '#f)) + (_%bind!93480%_ _%ht93485%_)))) + (if (let () (declare (not safe)) (##type? _%klass93457%_)) + (let ((__tmp97878 (__shadow-class _%klass93457%_))) + (declare (not safe)) + (__bind-method! + __tmp97878 + _%id93463%_ + _%proc93471%_ + _%rebind?93460%_)) + (error '"bad class; expected class or builtin type" + _%klass93457%_))))))) (define __bind-method!__0 - (lambda (_%klass93815%_ _%id93816%_ _%proc93817%_) - (let ((_%rebind?93819%_ '#f)) - (declare (not safe)) + (lambda (_%klass93494%_ _%id93495%_ _%proc93496%_) + (let ((_%rebind?93498%_ '#f)) (__bind-method!__% - _%klass93815%_ - _%id93816%_ - _%proc93817%_ - _%rebind?93819%_)))) + _%klass93494%_ + _%id93495%_ + _%proc93496%_ + _%rebind?93498%_)))) (define __bind-method! - (lambda _g98231_ - (let ((_g98230_ (let () (declare (not safe)) (##length _g98231_)))) - (cond ((let () (declare (not safe)) (##fx= _g98230_ 3)) - (apply (lambda (_%klass93815%_ _%id93816%_ _%proc93817%_) - (let () - (declare (not safe)) - (__bind-method!__0 - _%klass93815%_ - _%id93816%_ - _%proc93817%_))) - _g98231_)) - ((let () (declare (not safe)) (##fx= _g98230_ 4)) - (apply (lambda (_%klass93821%_ - _%id93822%_ - _%proc93823%_ - _%rebind?93824%_) - (let () - (declare (not safe)) - (__bind-method!__% - _%klass93821%_ - _%id93822%_ - _%proc93823%_ - _%rebind?93824%_))) - _g98231_)) + (lambda _g97880_ + (let ((_g97879_ (let () (declare (not safe)) (##length _g97880_)))) + (cond ((let () (declare (not safe)) (##fx= _g97879_ 3)) + (apply __bind-method!__0 _g97880_)) + ((let () (declare (not safe)) (##fx= _g97879_ 4)) + (apply __bind-method!__% _g97880_)) (else (##raise-wrong-number-of-arguments-exception __bind-method! - _g98231_)))))) + _g97880_)))))) (define make-method-specializer-table__% - (lambda (_%size-hint93758%_ _%seed93760%_) + (lambda (_%size-hint93437%_ _%seed93439%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint93758%_ + _%size-hint93437%_ procedure-hash eq? - _%seed93760%_)))) + _%seed93439%_)))) (define make-method-specializer-table__0 (lambda () - (let* ((_%size-hint93766%_ '#f) (_%seed93768%_ '0)) - (declare (not safe)) + (let* ((_%size-hint93445%_ '#f) (_%seed93447%_ '0)) (make-method-specializer-table__% - _%size-hint93766%_ - _%seed93768%_)))) + _%size-hint93445%_ + _%seed93447%_)))) (define make-method-specializer-table__1 - (lambda (_%size-hint93770%_) - (let ((_%seed93772%_ '0)) - (declare (not safe)) + (lambda (_%size-hint93449%_) + (let ((_%seed93451%_ '0)) (make-method-specializer-table__% - _%size-hint93770%_ - _%seed93772%_)))) + _%size-hint93449%_ + _%seed93451%_)))) (define make-method-specializer-table - (lambda _g98233_ - (let ((_g98232_ (let () (declare (not safe)) (##length _g98233_)))) - (cond ((let () (declare (not safe)) (##fx= _g98232_ 0)) - (apply (lambda () - (let () - (declare (not safe)) - (make-method-specializer-table__0))) - _g98233_)) - ((let () (declare (not safe)) (##fx= _g98232_ 1)) - (apply (lambda (_%size-hint93770%_) - (let () - (declare (not safe)) - (make-method-specializer-table__1 - _%size-hint93770%_))) - _g98233_)) - ((let () (declare (not safe)) (##fx= _g98232_ 2)) - (apply (lambda (_%size-hint93774%_ _%seed93775%_) - (let () - (declare (not safe)) - (make-method-specializer-table__% - _%size-hint93774%_ - _%seed93775%_))) - _g98233_)) + (lambda _g97882_ + (let ((_g97881_ (let () (declare (not safe)) (##length _g97882_)))) + (cond ((let () (declare (not safe)) (##fx= _g97881_ 0)) + (apply make-method-specializer-table__0 _g97882_)) + ((let () (declare (not safe)) (##fx= _g97881_ 1)) + (apply make-method-specializer-table__1 _g97882_)) + ((let () (declare (not safe)) (##fx= _g97881_ 2)) + (apply make-method-specializer-table__% _g97882_)) (else (##raise-wrong-number-of-arguments-exception make-method-specializer-table - _g98233_)))))) + _g97882_)))))) (define method-specializer-table-ref - (lambda (_%tab93711%_ _%key93712%_ _%default93713%_) - (let ((_%table93715%_ - (let () (declare (not safe)) (&raw-table-table _%tab93711%_))) - (_%seed93716%_ - (let () (declare (not safe)) (&raw-table-seed _%tab93711%_)))) - (let* ((_%h93718%_ + (lambda (_%tab93390%_ _%key93391%_ _%default93392%_) + (let ((_%table93394%_ + (let () (declare (not safe)) (&raw-table-table _%tab93390%_))) + (_%seed93395%_ + (let () (declare (not safe)) (&raw-table-seed _%tab93390%_)))) + (let* ((_%h93397%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key93712%_)) - _%seed93716%_)) - (_%size93721%_ (vector-length _%table93715%_)) - (_%entries93724%_ + (procedure-hash _%key93391%_)) + _%seed93395%_)) + (_%size93400%_ (vector-length _%table93394%_)) + (_%entries93403%_ (let () (declare (not safe)) - (##fxquotient _%size93721%_ '2))) - (_%start93727%_ - (let ((__tmp98234 + (##fxquotient _%size93400%_ '2))) + (_%start93406%_ + (let ((__tmp97883 (let () (declare (not safe)) - (##fxmodulo _%h93718%_ _%entries93724%_)))) + (##fxmodulo _%h93397%_ _%entries93403%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp98234 '1)))) - (let _%loop93731%_ ((_%probe93734%_ _%start93727%_) - (_%i93736%_ '1) - (_%deleted93738%_ '#f)) - (let ((_%k93741%_ (vector-ref _%table93715%_ _%probe93734%_))) - (if (eq? _%k93741%_ (macro-unused-obj)) - (let () _%default93713%_) - (if (eq? _%k93741%_ (macro-deleted-obj)) - (let ((__tmp98237 - (let ((_%next-probe93746%_ - (fx+ _%start93727%_ - _%i93736%_ - (fx* _%i93736%_ _%i93736%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93746%_ - _%size93721%_))) - (__tmp98236 - (let () - (declare (not safe)) - (##fx+ _%i93736%_ '1))) - (__tmp98235 - (let ((_%$e93749%_ _%deleted93738%_)) - (if _%$e93749%_ _%$e93749%_ _%probe93734%_)))) - (declare (not safe)) - (_%loop93731%_ __tmp98237 __tmp98236 __tmp98235)) - (if (eq? _%key93712%_ _%k93741%_) - (let () - (vector-ref - _%table93715%_ - (let () - (declare (not safe)) - (##fx+ _%probe93734%_ '1)))) - (let ((__tmp98239 - (let ((_%next-probe93754%_ - (fx+ _%start93727%_ - _%i93736%_ - (fx* _%i93736%_ _%i93736%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93754%_ - _%size93721%_))) - (__tmp98238 - (let () - (declare (not safe)) - (##fx+ _%i93736%_ '1)))) - (declare (not safe)) - (_%loop93731%_ - __tmp98239 - __tmp98238 - _%deleted93738%_))))))))))) + (##fxarithmetic-shift-left __tmp97883 '1)))) + (let _%loop93410%_ ((_%probe93413%_ _%start93406%_) + (_%i93415%_ '1) + (_%deleted93417%_ '#f)) + (let ((_%k93420%_ (vector-ref _%table93394%_ _%probe93413%_))) + (if (eq? _%k93420%_ (macro-unused-obj)) + _%default93392%_ + (if (eq? _%k93420%_ (macro-deleted-obj)) + (_%loop93410%_ + (let ((_%next-probe93425%_ + (fx+ _%start93406%_ + _%i93415%_ + (fx* _%i93415%_ _%i93415%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93425%_ _%size93400%_)) + (let () (declare (not safe)) (##fx+ _%i93415%_ '1)) + (let ((_%$e93428%_ _%deleted93417%_)) + (if _%$e93428%_ _%$e93428%_ _%probe93413%_))) + (if (eq? _%key93391%_ _%k93420%_) + (vector-ref + _%table93394%_ + (let () + (declare (not safe)) + (##fx+ _%probe93413%_ '1))) + (_%loop93410%_ + (let ((_%next-probe93433%_ + (fx+ _%start93406%_ + _%i93415%_ + (fx* _%i93415%_ _%i93415%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93433%_ _%size93400%_)) + (let () + (declare (not safe)) + (##fx+ _%i93415%_ '1)) + _%deleted93417%_)))))))))) (define method-specializer-table-set! - (lambda (_%tab93707%_ _%key93708%_ _%value93709%_) - (if (let ((__tmp98242 + (lambda (_%tab93386%_ _%key93387%_ _%value93388%_) + (if (let ((__tmp97886 (let () (declare (not safe)) - (&raw-table-free _%tab93707%_))) - (__tmp98240 - (let ((__tmp98241 + (&raw-table-free _%tab93386%_))) + (__tmp97884 + (let ((__tmp97885 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab93707%_))))) + (&raw-table-table _%tab93386%_))))) (declare (not safe)) - (##fxquotient __tmp98241 '4)))) + (##fxquotient __tmp97885 '4)))) (declare (not safe)) - (##fx< __tmp98242 __tmp98240)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab93707%_)) + (##fx< __tmp97886 __tmp97884)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab93386%_)) '#!void) - (let () - (declare (not safe)) - (__method-specializer-table-set! - _%tab93707%_ - _%key93708%_ - _%value93709%_)))) + (__method-specializer-table-set! + _%tab93386%_ + _%key93387%_ + _%value93388%_))) (define __method-specializer-table-set! - (lambda (_%tab93658%_ _%key93659%_ _%value93660%_) - (let ((_%table93663%_ - (let () (declare (not safe)) (&raw-table-table _%tab93658%_))) - (_%seed93664%_ - (let () (declare (not safe)) (&raw-table-seed _%tab93658%_)))) - (let* ((_%h93666%_ + (lambda (_%tab93337%_ _%key93338%_ _%value93339%_) + (let ((_%table93342%_ + (let () (declare (not safe)) (&raw-table-table _%tab93337%_))) + (_%seed93343%_ + (let () (declare (not safe)) (&raw-table-seed _%tab93337%_)))) + (let* ((_%h93345%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key93659%_)) - _%seed93664%_)) - (_%size93669%_ (vector-length _%table93663%_)) - (_%entries93672%_ + (procedure-hash _%key93338%_)) + _%seed93343%_)) + (_%size93348%_ (vector-length _%table93342%_)) + (_%entries93351%_ (let () (declare (not safe)) - (##fxquotient _%size93669%_ '2))) - (_%start93675%_ - (let ((__tmp98243 + (##fxquotient _%size93348%_ '2))) + (_%start93354%_ + (let ((__tmp97887 (let () (declare (not safe)) - (##fxmodulo _%h93666%_ _%entries93672%_)))) + (##fxmodulo _%h93345%_ _%entries93351%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp98243 '1)))) - (let _%loop93679%_ ((_%probe93682%_ _%start93675%_) - (_%i93684%_ '1) - (_%deleted93686%_ '#f)) - (let ((_%k93689%_ (vector-ref _%table93663%_ _%probe93682%_))) - (if (eq? _%k93689%_ (macro-unused-obj)) - (let () - (if _%deleted93686%_ - (begin - (vector-set! - _%table93663%_ - _%deleted93686%_ - _%key93659%_) - (vector-set! - _%table93663%_ - (let () + (##fxarithmetic-shift-left __tmp97887 '1)))) + (let _%loop93358%_ ((_%probe93361%_ _%start93354%_) + (_%i93363%_ '1) + (_%deleted93365%_ '#f)) + (let ((_%k93368%_ (vector-ref _%table93342%_ _%probe93361%_))) + (if (eq? _%k93368%_ (macro-unused-obj)) + (if _%deleted93365%_ + (begin + (vector-set! + _%table93342%_ + _%deleted93365%_ + _%key93338%_) + (vector-set! + _%table93342%_ + (let () + (declare (not safe)) + (##fx+ _%deleted93365%_ '1)) + _%value93339%_) + ((lambda () + (let ((__tmp97888 + (let ((__tmp97889 + (let () + (declare (not safe)) + (&raw-table-count _%tab93337%_)))) + (declare (not safe)) + (##fx+ __tmp97889 '1)))) (declare (not safe)) - (##fx+ _%deleted93686%_ '1)) - _%value93660%_) - ((lambda () - (let ((__tmp98244 - (let ((__tmp98245 - (let () - (declare (not safe)) - (&raw-table-count - _%tab93658%_)))) - (declare (not safe)) - (##fx+ __tmp98245 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab93658%_ - __tmp98244))))) - (begin - (vector-set! - _%table93663%_ - _%probe93682%_ - _%key93659%_) - (vector-set! - _%table93663%_ - (let () + (&raw-table-count-set! + _%tab93337%_ + __tmp97888))))) + (begin + (vector-set! + _%table93342%_ + _%probe93361%_ + _%key93338%_) + (vector-set! + _%table93342%_ + (let () + (declare (not safe)) + (##fx+ _%probe93361%_ '1)) + _%value93339%_) + ((lambda () + (let ((__tmp97890 + (let ((__tmp97891 + (let () + (declare (not safe)) + (&raw-table-free _%tab93337%_)))) + (declare (not safe)) + (##fx- __tmp97891 '1)))) (declare (not safe)) - (##fx+ _%probe93682%_ '1)) - _%value93660%_) - ((lambda () - (let ((__tmp98246 - (let ((__tmp98247 - (let () - (declare (not safe)) - (&raw-table-free - _%tab93658%_)))) - (declare (not safe)) - (##fx- __tmp98247 '1)))) - (declare (not safe)) - (&raw-table-free-set! - _%tab93658%_ - __tmp98246)) - (let ((__tmp98248 - (let ((__tmp98249 - (let () - (declare (not safe)) - (&raw-table-count - _%tab93658%_)))) - (declare (not safe)) - (##fx+ __tmp98249 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab93658%_ - __tmp98248))))))) - (if (eq? _%k93689%_ (macro-deleted-obj)) - (let ((__tmp98252 - (let ((_%next-probe93696%_ - (fx+ _%start93675%_ - _%i93684%_ - (fx* _%i93684%_ _%i93684%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93696%_ - _%size93669%_))) - (__tmp98251 - (let () - (declare (not safe)) - (##fx+ _%i93684%_ '1))) - (__tmp98250 - (let ((_%$e93699%_ _%deleted93686%_)) - (if _%$e93699%_ _%$e93699%_ _%probe93682%_)))) - (declare (not safe)) - (_%loop93679%_ __tmp98252 __tmp98251 __tmp98250)) - (if (eq? _%key93659%_ _%k93689%_) + (&raw-table-free-set! _%tab93337%_ __tmp97890)) + (let ((__tmp97892 + (let ((__tmp97893 + (let () + (declare (not safe)) + (&raw-table-count _%tab93337%_)))) + (declare (not safe)) + (##fx+ __tmp97893 '1)))) + (declare (not safe)) + (&raw-table-count-set! + _%tab93337%_ + __tmp97892)))))) + (if (eq? _%k93368%_ (macro-deleted-obj)) + (_%loop93358%_ + (let ((_%next-probe93375%_ + (fx+ _%start93354%_ + _%i93363%_ + (fx* _%i93363%_ _%i93363%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93375%_ _%size93348%_)) + (let () (declare (not safe)) (##fx+ _%i93363%_ '1)) + (let ((_%$e93378%_ _%deleted93365%_)) + (if _%$e93378%_ _%$e93378%_ _%probe93361%_))) + (if (eq? _%key93338%_ _%k93368%_) (let () (vector-set! - _%table93663%_ - _%probe93682%_ - _%key93659%_) + _%table93342%_ + _%probe93361%_ + _%key93338%_) (vector-set! - _%table93663%_ + _%table93342%_ (let () (declare (not safe)) - (##fx+ _%probe93682%_ '1)) - _%value93660%_)) - (let ((__tmp98254 - (let ((_%next-probe93704%_ - (fx+ _%start93675%_ - _%i93684%_ - (fx* _%i93684%_ _%i93684%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93704%_ - _%size93669%_))) - (__tmp98253 - (let () - (declare (not safe)) - (##fx+ _%i93684%_ '1)))) - (declare (not safe)) - (_%loop93679%_ - __tmp98254 - __tmp98253 - _%deleted93686%_))))))))))) + (##fx+ _%probe93361%_ '1)) + _%value93339%_)) + (_%loop93358%_ + (let ((_%next-probe93383%_ + (fx+ _%start93354%_ + _%i93363%_ + (fx* _%i93363%_ _%i93363%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93383%_ _%size93348%_)) + (let () + (declare (not safe)) + (##fx+ _%i93363%_ '1)) + _%deleted93365%_)))))))))) (define method-specializer-table-update! - (lambda (_%tab93653%_ - _%key93654%_ - _%method-specializer-table-update!93655%_ - _%default93656%_) - (if (let ((__tmp98257 + (lambda (_%tab93332%_ + _%key93333%_ + _%method-specializer-table-update!93334%_ + _%default93335%_) + (if (let ((__tmp97896 (let () (declare (not safe)) - (&raw-table-free _%tab93653%_))) - (__tmp98255 - (let ((__tmp98256 + (&raw-table-free _%tab93332%_))) + (__tmp97894 + (let ((__tmp97895 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab93653%_))))) + (&raw-table-table _%tab93332%_))))) (declare (not safe)) - (##fxquotient __tmp98256 '4)))) + (##fxquotient __tmp97895 '4)))) (declare (not safe)) - (##fx< __tmp98257 __tmp98255)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab93653%_)) + (##fx< __tmp97896 __tmp97894)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab93332%_)) '#!void) - (let () - (declare (not safe)) - (__method-specializer-table-update! - _%tab93653%_ - _%key93654%_ - _%method-specializer-table-update!93655%_ - _%default93656%_)))) + (__method-specializer-table-update! + _%tab93332%_ + _%key93333%_ + _%method-specializer-table-update!93334%_ + _%default93335%_))) (define __method-specializer-table-update! - (lambda (_%tab93603%_ - _%key93604%_ - _%method-specializer-table-update!93605%_ - _%default93606%_) - (let ((_%table93609%_ - (let () (declare (not safe)) (&raw-table-table _%tab93603%_))) - (_%seed93610%_ - (let () (declare (not safe)) (&raw-table-seed _%tab93603%_)))) - (let* ((_%h93612%_ + (lambda (_%tab93282%_ + _%key93283%_ + _%method-specializer-table-update!93284%_ + _%default93285%_) + (let ((_%table93288%_ + (let () (declare (not safe)) (&raw-table-table _%tab93282%_))) + (_%seed93289%_ + (let () (declare (not safe)) (&raw-table-seed _%tab93282%_)))) + (let* ((_%h93291%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key93604%_)) - _%seed93610%_)) - (_%size93615%_ (vector-length _%table93609%_)) - (_%entries93618%_ + (procedure-hash _%key93283%_)) + _%seed93289%_)) + (_%size93294%_ (vector-length _%table93288%_)) + (_%entries93297%_ (let () (declare (not safe)) - (##fxquotient _%size93615%_ '2))) - (_%start93621%_ - (let ((__tmp98258 + (##fxquotient _%size93294%_ '2))) + (_%start93300%_ + (let ((__tmp97897 (let () (declare (not safe)) - (##fxmodulo _%h93612%_ _%entries93618%_)))) + (##fxmodulo _%h93291%_ _%entries93297%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp98258 '1)))) - (let _%loop93625%_ ((_%probe93628%_ _%start93621%_) - (_%i93630%_ '1) - (_%deleted93632%_ '#f)) - (let ((_%k93635%_ (vector-ref _%table93609%_ _%probe93628%_))) - (if (eq? _%k93635%_ (macro-unused-obj)) - (let () - (if _%deleted93632%_ - (begin - (vector-set! - _%table93609%_ - _%deleted93632%_ - _%key93604%_) - (vector-set! - _%table93609%_ - (let () + (##fxarithmetic-shift-left __tmp97897 '1)))) + (let _%loop93304%_ ((_%probe93307%_ _%start93300%_) + (_%i93309%_ '1) + (_%deleted93311%_ '#f)) + (let ((_%k93314%_ (vector-ref _%table93288%_ _%probe93307%_))) + (if (eq? _%k93314%_ (macro-unused-obj)) + (if _%deleted93311%_ + (begin + (vector-set! + _%table93288%_ + _%deleted93311%_ + _%key93283%_) + (vector-set! + _%table93288%_ + (let () + (declare (not safe)) + (##fx+ _%deleted93311%_ '1)) + (_%method-specializer-table-update!93284%_ + _%default93285%_)) + ((lambda () + (let ((__tmp97898 + (let ((__tmp97899 + (let () + (declare (not safe)) + (&raw-table-count _%tab93282%_)))) + (declare (not safe)) + (##fx+ __tmp97899 '1)))) (declare (not safe)) - (##fx+ _%deleted93632%_ '1)) - (_%method-specializer-table-update!93605%_ - _%default93606%_)) - ((lambda () - (let ((__tmp98259 - (let ((__tmp98260 - (let () - (declare (not safe)) - (&raw-table-count - _%tab93603%_)))) - (declare (not safe)) - (##fx+ __tmp98260 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab93603%_ - __tmp98259))))) - (begin - (vector-set! - _%table93609%_ - _%probe93628%_ - _%key93604%_) - (vector-set! - _%table93609%_ - (let () + (&raw-table-count-set! + _%tab93282%_ + __tmp97898))))) + (begin + (vector-set! + _%table93288%_ + _%probe93307%_ + _%key93283%_) + (vector-set! + _%table93288%_ + (let () + (declare (not safe)) + (##fx+ _%probe93307%_ '1)) + (_%method-specializer-table-update!93284%_ + _%default93285%_)) + ((lambda () + (let ((__tmp97900 + (let ((__tmp97901 + (let () + (declare (not safe)) + (&raw-table-free _%tab93282%_)))) + (declare (not safe)) + (##fx- __tmp97901 '1)))) (declare (not safe)) - (##fx+ _%probe93628%_ '1)) - (_%method-specializer-table-update!93605%_ - _%default93606%_)) - ((lambda () - (let ((__tmp98261 - (let ((__tmp98262 - (let () - (declare (not safe)) - (&raw-table-free - _%tab93603%_)))) - (declare (not safe)) - (##fx- __tmp98262 '1)))) - (declare (not safe)) - (&raw-table-free-set! - _%tab93603%_ - __tmp98261)) - (let ((__tmp98263 - (let ((__tmp98264 - (let () - (declare (not safe)) - (&raw-table-count - _%tab93603%_)))) - (declare (not safe)) - (##fx+ __tmp98264 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab93603%_ - __tmp98263))))))) - (if (eq? _%k93635%_ (macro-deleted-obj)) - (let ((__tmp98267 - (let ((_%next-probe93642%_ - (fx+ _%start93621%_ - _%i93630%_ - (fx* _%i93630%_ _%i93630%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93642%_ - _%size93615%_))) - (__tmp98266 - (let () - (declare (not safe)) - (##fx+ _%i93630%_ '1))) - (__tmp98265 - (let ((_%$e93645%_ _%deleted93632%_)) - (if _%$e93645%_ _%$e93645%_ _%probe93628%_)))) - (declare (not safe)) - (_%loop93625%_ __tmp98267 __tmp98266 __tmp98265)) - (if (eq? _%key93604%_ _%k93635%_) + (&raw-table-free-set! _%tab93282%_ __tmp97900)) + (let ((__tmp97902 + (let ((__tmp97903 + (let () + (declare (not safe)) + (&raw-table-count _%tab93282%_)))) + (declare (not safe)) + (##fx+ __tmp97903 '1)))) + (declare (not safe)) + (&raw-table-count-set! + _%tab93282%_ + __tmp97902)))))) + (if (eq? _%k93314%_ (macro-deleted-obj)) + (_%loop93304%_ + (let ((_%next-probe93321%_ + (fx+ _%start93300%_ + _%i93309%_ + (fx* _%i93309%_ _%i93309%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93321%_ _%size93294%_)) + (let () (declare (not safe)) (##fx+ _%i93309%_ '1)) + (let ((_%$e93324%_ _%deleted93311%_)) + (if _%$e93324%_ _%$e93324%_ _%probe93307%_))) + (if (eq? _%key93283%_ _%k93314%_) (let () (vector-set! - _%table93609%_ - _%probe93628%_ - _%key93604%_) + _%table93288%_ + _%probe93307%_ + _%key93283%_) (vector-set! - _%table93609%_ + _%table93288%_ (let () (declare (not safe)) - (##fx+ _%probe93628%_ '1)) - (_%method-specializer-table-update!93605%_ + (##fx+ _%probe93307%_ '1)) + (_%method-specializer-table-update!93284%_ (vector-ref - _%table93609%_ + _%table93288%_ (let () (declare (not safe)) - (##fx+ _%probe93628%_ '1)))))) - (let ((__tmp98269 - (let ((_%next-probe93650%_ - (fx+ _%start93621%_ - _%i93630%_ - (fx* _%i93630%_ _%i93630%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93650%_ - _%size93615%_))) - (__tmp98268 - (let () - (declare (not safe)) - (##fx+ _%i93630%_ '1)))) - (declare (not safe)) - (_%loop93625%_ - __tmp98269 - __tmp98268 - _%deleted93632%_))))))))))) + (##fx+ _%probe93307%_ '1)))))) + (_%loop93304%_ + (let ((_%next-probe93329%_ + (fx+ _%start93300%_ + _%i93309%_ + (fx* _%i93309%_ _%i93309%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93329%_ _%size93294%_)) + (let () + (declare (not safe)) + (##fx+ _%i93309%_ '1)) + _%deleted93311%_)))))))))) (define method-specializer-table-delete! - (lambda (_%tab93558%_ _%key93560%_) - (let ((_%table93563%_ - (let () (declare (not safe)) (&raw-table-table _%tab93558%_))) - (_%seed93565%_ - (let () (declare (not safe)) (&raw-table-seed _%tab93558%_)))) - (let* ((_%h93568%_ + (lambda (_%tab93237%_ _%key93239%_) + (let ((_%table93242%_ + (let () (declare (not safe)) (&raw-table-table _%tab93237%_))) + (_%seed93244%_ + (let () (declare (not safe)) (&raw-table-seed _%tab93237%_)))) + (let* ((_%h93247%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key93560%_)) - _%seed93565%_)) - (_%size93571%_ (vector-length _%table93563%_)) - (_%entries93574%_ + (procedure-hash _%key93239%_)) + _%seed93244%_)) + (_%size93250%_ (vector-length _%table93242%_)) + (_%entries93253%_ (let () (declare (not safe)) - (##fxquotient _%size93571%_ '2))) - (_%start93577%_ - (let ((__tmp98270 + (##fxquotient _%size93250%_ '2))) + (_%start93256%_ + (let ((__tmp97904 (let () (declare (not safe)) - (##fxmodulo _%h93568%_ _%entries93574%_)))) + (##fxmodulo _%h93247%_ _%entries93253%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp98270 '1)))) - (let _%loop93581%_ ((_%probe93584%_ _%start93577%_) - (_%i93586%_ '1)) - (let ((_%k93589%_ (vector-ref _%table93563%_ _%probe93584%_))) - (if (eq? _%k93589%_ (macro-unused-obj)) - (let () '#!void) - (if (eq? _%k93589%_ (macro-deleted-obj)) - (let ((__tmp98272 - (let ((_%next-probe93594%_ - (fx+ _%start93577%_ - _%i93586%_ - (fx* _%i93586%_ _%i93586%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93594%_ - _%size93571%_))) - (__tmp98271 - (let () - (declare (not safe)) - (##fx+ _%i93586%_ '1)))) - (declare (not safe)) - (_%loop93581%_ __tmp98272 __tmp98271)) - (if (eq? _%key93560%_ _%k93589%_) + (##fxarithmetic-shift-left __tmp97904 '1)))) + (let _%loop93260%_ ((_%probe93263%_ _%start93256%_) + (_%i93265%_ '1)) + (let ((_%k93268%_ (vector-ref _%table93242%_ _%probe93263%_))) + (if (eq? _%k93268%_ (macro-unused-obj)) + '#!void + (if (eq? _%k93268%_ (macro-deleted-obj)) + (_%loop93260%_ + (let ((_%next-probe93273%_ + (fx+ _%start93256%_ + _%i93265%_ + (fx* _%i93265%_ _%i93265%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93273%_ _%size93250%_)) + (let () (declare (not safe)) (##fx+ _%i93265%_ '1))) + (if (eq? _%key93239%_ _%k93268%_) (let () (vector-set! - _%table93563%_ - _%probe93584%_ + _%table93242%_ + _%probe93263%_ (macro-deleted-obj)) (vector-set! - _%table93563%_ + _%table93242%_ (let () (declare (not safe)) - (##fx+ _%probe93584%_ '1)) + (##fx+ _%probe93263%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp98273 - (let ((__tmp98274 + (let ((__tmp97905 + (let ((__tmp97906 (let () (declare (not safe)) (&raw-table-count - _%tab93558%_)))) + _%tab93237%_)))) (declare (not safe)) - (##fx- __tmp98274 '1)))) + (##fx- __tmp97906 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab93558%_ - __tmp98273))))) - (let ((__tmp98276 - (let ((_%next-probe93600%_ - (fx+ _%start93577%_ - _%i93586%_ - (fx* _%i93586%_ _%i93586%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93600%_ - _%size93571%_))) - (__tmp98275 - (let () - (declare (not safe)) - (##fx+ _%i93586%_ '1)))) - (declare (not safe)) - (_%loop93581%_ __tmp98276 __tmp98275))))))))))) - (define __method-specializers - (let () (declare (not safe)) (make-method-specializer-table__% '#f '0))) + _%tab93237%_ + __tmp97905))))) + (_%loop93260%_ + (let ((_%next-probe93279%_ + (fx+ _%start93256%_ + _%i93265%_ + (fx* _%i93265%_ _%i93265%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93279%_ _%size93250%_)) + (let () + (declare (not safe)) + (##fx+ _%i93265%_ '1)))))))))))) + (define __method-specializers (make-method-specializer-table__% '#f '0)) (define __method-specializers-mx (vector '0)) (define bind-specializer! - (lambda (_%method-proc93549%_ _%specializer93550%_) + (lambda (_%method-proc93228%_ _%specializer93229%_) (let () (declare (not interrupts-enabled)) - (let _%again93554%_ () - (if (let ((__tmp98277 + (let _%again93233%_ () + (if (let ((__tmp97907 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp98277 '0)) + (##fx= __tmp97907 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_%again93554%_)))))) - (let () - (declare (not safe)) - (method-specializer-table-set! - __method-specializers - _%method-proc93549%_ - _%specializer93550%_)) + (_%again93233%_))))) + (method-specializer-table-set! + __method-specializers + _%method-proc93228%_ + _%specializer93229%_) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)))) (define __lookup-method-specializer - (lambda (_%proc93539%_) + (lambda (_%proc93218%_) (let () (declare (not interrupts-enabled)) - (let _%again93543%_ () - (if (let ((__tmp98278 + (let _%again93222%_ () + (if (let ((__tmp97908 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp98278 '0)) + (##fx= __tmp97908 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_%again93543%_)))))) - (let ((_%specializer93547%_ - (let () - (declare (not safe)) - (method-specializer-table-ref - __method-specializers - _%proc93539%_ - '#f)))) + (_%again93222%_))))) + (let ((_%specializer93226%_ + (method-specializer-table-ref + __method-specializers + _%proc93218%_ + '#f))) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)) - _%specializer93547%_))) + _%specializer93226%_))) (define __class-specializer-hash-key - (lambda (_%klass93537%_) - (let ((__tmp98279 - (let () (declare (not safe)) (##type-id _%klass93537%_)))) + (lambda (_%klass93216%_) + (let ((__tmp97909 + (let () (declare (not safe)) (##type-id _%klass93216%_)))) (declare (not safe)) - (symbolic-hash __tmp98279)))) + (symbolic-hash __tmp97909)))) (define make-class-specializer-table__% - (lambda (_%size-hint93518%_ _%seed93520%_) + (lambda (_%size-hint93197%_ _%seed93199%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint93518%_ + _%size-hint93197%_ __class-specializer-hash-key eq? - _%seed93520%_)))) + _%seed93199%_)))) (define make-class-specializer-table__0 (lambda () - (let* ((_%size-hint93526%_ '#f) (_%seed93528%_ '0)) - (declare (not safe)) - (make-class-specializer-table__% _%size-hint93526%_ _%seed93528%_)))) + (let* ((_%size-hint93205%_ '#f) (_%seed93207%_ '0)) + (make-class-specializer-table__% _%size-hint93205%_ _%seed93207%_)))) (define make-class-specializer-table__1 - (lambda (_%size-hint93530%_) - (let ((_%seed93532%_ '0)) - (declare (not safe)) - (make-class-specializer-table__% _%size-hint93530%_ _%seed93532%_)))) + (lambda (_%size-hint93209%_) + (let ((_%seed93211%_ '0)) + (make-class-specializer-table__% _%size-hint93209%_ _%seed93211%_)))) (define make-class-specializer-table - (lambda _g98281_ - (let ((_g98280_ (let () (declare (not safe)) (##length _g98281_)))) - (cond ((let () (declare (not safe)) (##fx= _g98280_ 0)) - (apply (lambda () - (let () - (declare (not safe)) - (make-class-specializer-table__0))) - _g98281_)) - ((let () (declare (not safe)) (##fx= _g98280_ 1)) - (apply (lambda (_%size-hint93530%_) - (let () - (declare (not safe)) - (make-class-specializer-table__1 - _%size-hint93530%_))) - _g98281_)) - ((let () (declare (not safe)) (##fx= _g98280_ 2)) - (apply (lambda (_%size-hint93534%_ _%seed93535%_) - (let () - (declare (not safe)) - (make-class-specializer-table__% - _%size-hint93534%_ - _%seed93535%_))) - _g98281_)) + (lambda _g97911_ + (let ((_g97910_ (let () (declare (not safe)) (##length _g97911_)))) + (cond ((let () (declare (not safe)) (##fx= _g97910_ 0)) + (apply make-class-specializer-table__0 _g97911_)) + ((let () (declare (not safe)) (##fx= _g97910_ 1)) + (apply make-class-specializer-table__1 _g97911_)) + ((let () (declare (not safe)) (##fx= _g97910_ 2)) + (apply make-class-specializer-table__% _g97911_)) (else (##raise-wrong-number-of-arguments-exception make-class-specializer-table - _g98281_)))))) + _g97911_)))))) (define class-specializer-table-ref - (lambda (_%tab93471%_ _%key93472%_ _%default93473%_) - (let ((_%table93475%_ - (let () (declare (not safe)) (&raw-table-table _%tab93471%_))) - (_%seed93476%_ - (let () (declare (not safe)) (&raw-table-seed _%tab93471%_)))) - (let* ((_%h93478%_ - (fxxor (let () - (declare (not safe)) - (__class-specializer-hash-key _%key93472%_)) - _%seed93476%_)) - (_%size93481%_ (vector-length _%table93475%_)) - (_%entries93484%_ + (lambda (_%tab93150%_ _%key93151%_ _%default93152%_) + (let ((_%table93154%_ + (let () (declare (not safe)) (&raw-table-table _%tab93150%_))) + (_%seed93155%_ + (let () (declare (not safe)) (&raw-table-seed _%tab93150%_)))) + (let* ((_%h93157%_ + (fxxor (__class-specializer-hash-key _%key93151%_) + _%seed93155%_)) + (_%size93160%_ (vector-length _%table93154%_)) + (_%entries93163%_ (let () (declare (not safe)) - (##fxquotient _%size93481%_ '2))) - (_%start93487%_ - (let ((__tmp98282 + (##fxquotient _%size93160%_ '2))) + (_%start93166%_ + (let ((__tmp97912 (let () (declare (not safe)) - (##fxmodulo _%h93478%_ _%entries93484%_)))) + (##fxmodulo _%h93157%_ _%entries93163%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp98282 '1)))) - (let _%loop93491%_ ((_%probe93494%_ _%start93487%_) - (_%i93496%_ '1) - (_%deleted93498%_ '#f)) - (let ((_%k93501%_ (vector-ref _%table93475%_ _%probe93494%_))) - (if (eq? _%k93501%_ (macro-unused-obj)) - (let () _%default93473%_) - (if (eq? _%k93501%_ (macro-deleted-obj)) - (let ((__tmp98285 - (let ((_%next-probe93506%_ - (fx+ _%start93487%_ - _%i93496%_ - (fx* _%i93496%_ _%i93496%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93506%_ - _%size93481%_))) - (__tmp98284 - (let () - (declare (not safe)) - (##fx+ _%i93496%_ '1))) - (__tmp98283 - (let ((_%$e93509%_ _%deleted93498%_)) - (if _%$e93509%_ _%$e93509%_ _%probe93494%_)))) - (declare (not safe)) - (_%loop93491%_ __tmp98285 __tmp98284 __tmp98283)) - (if (eq? _%key93472%_ _%k93501%_) - (let () - (vector-ref - _%table93475%_ - (let () - (declare (not safe)) - (##fx+ _%probe93494%_ '1)))) - (let ((__tmp98287 - (let ((_%next-probe93514%_ - (fx+ _%start93487%_ - _%i93496%_ - (fx* _%i93496%_ _%i93496%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93514%_ - _%size93481%_))) - (__tmp98286 - (let () - (declare (not safe)) - (##fx+ _%i93496%_ '1)))) - (declare (not safe)) - (_%loop93491%_ - __tmp98287 - __tmp98286 - _%deleted93498%_))))))))))) + (##fxarithmetic-shift-left __tmp97912 '1)))) + (let _%loop93170%_ ((_%probe93173%_ _%start93166%_) + (_%i93175%_ '1) + (_%deleted93177%_ '#f)) + (let ((_%k93180%_ (vector-ref _%table93154%_ _%probe93173%_))) + (if (eq? _%k93180%_ (macro-unused-obj)) + _%default93152%_ + (if (eq? _%k93180%_ (macro-deleted-obj)) + (_%loop93170%_ + (let ((_%next-probe93185%_ + (fx+ _%start93166%_ + _%i93175%_ + (fx* _%i93175%_ _%i93175%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93185%_ _%size93160%_)) + (let () (declare (not safe)) (##fx+ _%i93175%_ '1)) + (let ((_%$e93188%_ _%deleted93177%_)) + (if _%$e93188%_ _%$e93188%_ _%probe93173%_))) + (if (eq? _%key93151%_ _%k93180%_) + (vector-ref + _%table93154%_ + (let () + (declare (not safe)) + (##fx+ _%probe93173%_ '1))) + (_%loop93170%_ + (let ((_%next-probe93193%_ + (fx+ _%start93166%_ + _%i93175%_ + (fx* _%i93175%_ _%i93175%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93193%_ _%size93160%_)) + (let () + (declare (not safe)) + (##fx+ _%i93175%_ '1)) + _%deleted93177%_)))))))))) (define class-specializer-table-set! - (lambda (_%tab93467%_ _%key93468%_ _%value93469%_) - (if (let ((__tmp98290 + (lambda (_%tab93146%_ _%key93147%_ _%value93148%_) + (if (let ((__tmp97915 (let () (declare (not safe)) - (&raw-table-free _%tab93467%_))) - (__tmp98288 - (let ((__tmp98289 + (&raw-table-free _%tab93146%_))) + (__tmp97913 + (let ((__tmp97914 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab93467%_))))) + (&raw-table-table _%tab93146%_))))) (declare (not safe)) - (##fxquotient __tmp98289 '4)))) + (##fxquotient __tmp97914 '4)))) (declare (not safe)) - (##fx< __tmp98290 __tmp98288)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab93467%_)) + (##fx< __tmp97915 __tmp97913)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab93146%_)) '#!void) - (let () - (declare (not safe)) - (__class-specializer-table-set! - _%tab93467%_ - _%key93468%_ - _%value93469%_)))) + (__class-specializer-table-set! + _%tab93146%_ + _%key93147%_ + _%value93148%_))) (define __class-specializer-table-set! - (lambda (_%tab93418%_ _%key93419%_ _%value93420%_) - (let ((_%table93423%_ - (let () (declare (not safe)) (&raw-table-table _%tab93418%_))) - (_%seed93424%_ - (let () (declare (not safe)) (&raw-table-seed _%tab93418%_)))) - (let* ((_%h93426%_ - (fxxor (let () - (declare (not safe)) - (__class-specializer-hash-key _%key93419%_)) - _%seed93424%_)) - (_%size93429%_ (vector-length _%table93423%_)) - (_%entries93432%_ + (lambda (_%tab93097%_ _%key93098%_ _%value93099%_) + (let ((_%table93102%_ + (let () (declare (not safe)) (&raw-table-table _%tab93097%_))) + (_%seed93103%_ + (let () (declare (not safe)) (&raw-table-seed _%tab93097%_)))) + (let* ((_%h93105%_ + (fxxor (__class-specializer-hash-key _%key93098%_) + _%seed93103%_)) + (_%size93108%_ (vector-length _%table93102%_)) + (_%entries93111%_ (let () (declare (not safe)) - (##fxquotient _%size93429%_ '2))) - (_%start93435%_ - (let ((__tmp98291 + (##fxquotient _%size93108%_ '2))) + (_%start93114%_ + (let ((__tmp97916 (let () (declare (not safe)) - (##fxmodulo _%h93426%_ _%entries93432%_)))) + (##fxmodulo _%h93105%_ _%entries93111%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp98291 '1)))) - (let _%loop93439%_ ((_%probe93442%_ _%start93435%_) - (_%i93444%_ '1) - (_%deleted93446%_ '#f)) - (let ((_%k93449%_ (vector-ref _%table93423%_ _%probe93442%_))) - (if (eq? _%k93449%_ (macro-unused-obj)) - (let () - (if _%deleted93446%_ - (begin - (vector-set! - _%table93423%_ - _%deleted93446%_ - _%key93419%_) - (vector-set! - _%table93423%_ - (let () + (##fxarithmetic-shift-left __tmp97916 '1)))) + (let _%loop93118%_ ((_%probe93121%_ _%start93114%_) + (_%i93123%_ '1) + (_%deleted93125%_ '#f)) + (let ((_%k93128%_ (vector-ref _%table93102%_ _%probe93121%_))) + (if (eq? _%k93128%_ (macro-unused-obj)) + (if _%deleted93125%_ + (begin + (vector-set! + _%table93102%_ + _%deleted93125%_ + _%key93098%_) + (vector-set! + _%table93102%_ + (let () + (declare (not safe)) + (##fx+ _%deleted93125%_ '1)) + _%value93099%_) + ((lambda () + (let ((__tmp97917 + (let ((__tmp97918 + (let () + (declare (not safe)) + (&raw-table-count _%tab93097%_)))) + (declare (not safe)) + (##fx+ __tmp97918 '1)))) (declare (not safe)) - (##fx+ _%deleted93446%_ '1)) - _%value93420%_) - ((lambda () - (let ((__tmp98292 - (let ((__tmp98293 - (let () - (declare (not safe)) - (&raw-table-count - _%tab93418%_)))) - (declare (not safe)) - (##fx+ __tmp98293 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab93418%_ - __tmp98292))))) - (begin - (vector-set! - _%table93423%_ - _%probe93442%_ - _%key93419%_) - (vector-set! - _%table93423%_ - (let () + (&raw-table-count-set! + _%tab93097%_ + __tmp97917))))) + (begin + (vector-set! + _%table93102%_ + _%probe93121%_ + _%key93098%_) + (vector-set! + _%table93102%_ + (let () + (declare (not safe)) + (##fx+ _%probe93121%_ '1)) + _%value93099%_) + ((lambda () + (let ((__tmp97919 + (let ((__tmp97920 + (let () + (declare (not safe)) + (&raw-table-free _%tab93097%_)))) + (declare (not safe)) + (##fx- __tmp97920 '1)))) (declare (not safe)) - (##fx+ _%probe93442%_ '1)) - _%value93420%_) - ((lambda () - (let ((__tmp98294 - (let ((__tmp98295 - (let () - (declare (not safe)) - (&raw-table-free - _%tab93418%_)))) - (declare (not safe)) - (##fx- __tmp98295 '1)))) - (declare (not safe)) - (&raw-table-free-set! - _%tab93418%_ - __tmp98294)) - (let ((__tmp98296 - (let ((__tmp98297 - (let () - (declare (not safe)) - (&raw-table-count - _%tab93418%_)))) - (declare (not safe)) - (##fx+ __tmp98297 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab93418%_ - __tmp98296))))))) - (if (eq? _%k93449%_ (macro-deleted-obj)) - (let ((__tmp98300 - (let ((_%next-probe93456%_ - (fx+ _%start93435%_ - _%i93444%_ - (fx* _%i93444%_ _%i93444%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93456%_ - _%size93429%_))) - (__tmp98299 - (let () - (declare (not safe)) - (##fx+ _%i93444%_ '1))) - (__tmp98298 - (let ((_%$e93459%_ _%deleted93446%_)) - (if _%$e93459%_ _%$e93459%_ _%probe93442%_)))) - (declare (not safe)) - (_%loop93439%_ __tmp98300 __tmp98299 __tmp98298)) - (if (eq? _%key93419%_ _%k93449%_) + (&raw-table-free-set! _%tab93097%_ __tmp97919)) + (let ((__tmp97921 + (let ((__tmp97922 + (let () + (declare (not safe)) + (&raw-table-count _%tab93097%_)))) + (declare (not safe)) + (##fx+ __tmp97922 '1)))) + (declare (not safe)) + (&raw-table-count-set! + _%tab93097%_ + __tmp97921)))))) + (if (eq? _%k93128%_ (macro-deleted-obj)) + (_%loop93118%_ + (let ((_%next-probe93135%_ + (fx+ _%start93114%_ + _%i93123%_ + (fx* _%i93123%_ _%i93123%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93135%_ _%size93108%_)) + (let () (declare (not safe)) (##fx+ _%i93123%_ '1)) + (let ((_%$e93138%_ _%deleted93125%_)) + (if _%$e93138%_ _%$e93138%_ _%probe93121%_))) + (if (eq? _%key93098%_ _%k93128%_) (let () (vector-set! - _%table93423%_ - _%probe93442%_ - _%key93419%_) + _%table93102%_ + _%probe93121%_ + _%key93098%_) (vector-set! - _%table93423%_ + _%table93102%_ (let () (declare (not safe)) - (##fx+ _%probe93442%_ '1)) - _%value93420%_)) - (let ((__tmp98302 - (let ((_%next-probe93464%_ - (fx+ _%start93435%_ - _%i93444%_ - (fx* _%i93444%_ _%i93444%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93464%_ - _%size93429%_))) - (__tmp98301 - (let () - (declare (not safe)) - (##fx+ _%i93444%_ '1)))) - (declare (not safe)) - (_%loop93439%_ - __tmp98302 - __tmp98301 - _%deleted93446%_))))))))))) + (##fx+ _%probe93121%_ '1)) + _%value93099%_)) + (_%loop93118%_ + (let ((_%next-probe93143%_ + (fx+ _%start93114%_ + _%i93123%_ + (fx* _%i93123%_ _%i93123%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93143%_ _%size93108%_)) + (let () + (declare (not safe)) + (##fx+ _%i93123%_ '1)) + _%deleted93125%_)))))))))) (define class-specializer-table-update! - (lambda (_%tab93413%_ - _%key93414%_ - _%class-specializer-table-update!93415%_ - _%default93416%_) - (if (let ((__tmp98305 + (lambda (_%tab93092%_ + _%key93093%_ + _%class-specializer-table-update!93094%_ + _%default93095%_) + (if (let ((__tmp97925 (let () (declare (not safe)) - (&raw-table-free _%tab93413%_))) - (__tmp98303 - (let ((__tmp98304 + (&raw-table-free _%tab93092%_))) + (__tmp97923 + (let ((__tmp97924 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab93413%_))))) + (&raw-table-table _%tab93092%_))))) (declare (not safe)) - (##fxquotient __tmp98304 '4)))) + (##fxquotient __tmp97924 '4)))) (declare (not safe)) - (##fx< __tmp98305 __tmp98303)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab93413%_)) + (##fx< __tmp97925 __tmp97923)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab93092%_)) '#!void) - (let () - (declare (not safe)) - (__class-specializer-table-update! - _%tab93413%_ - _%key93414%_ - _%class-specializer-table-update!93415%_ - _%default93416%_)))) + (__class-specializer-table-update! + _%tab93092%_ + _%key93093%_ + _%class-specializer-table-update!93094%_ + _%default93095%_))) (define __class-specializer-table-update! - (lambda (_%tab93363%_ - _%key93364%_ - _%class-specializer-table-update!93365%_ - _%default93366%_) - (let ((_%table93369%_ - (let () (declare (not safe)) (&raw-table-table _%tab93363%_))) - (_%seed93370%_ - (let () (declare (not safe)) (&raw-table-seed _%tab93363%_)))) - (let* ((_%h93372%_ - (fxxor (let () - (declare (not safe)) - (__class-specializer-hash-key _%key93364%_)) - _%seed93370%_)) - (_%size93375%_ (vector-length _%table93369%_)) - (_%entries93378%_ + (lambda (_%tab93042%_ + _%key93043%_ + _%class-specializer-table-update!93044%_ + _%default93045%_) + (let ((_%table93048%_ + (let () (declare (not safe)) (&raw-table-table _%tab93042%_))) + (_%seed93049%_ + (let () (declare (not safe)) (&raw-table-seed _%tab93042%_)))) + (let* ((_%h93051%_ + (fxxor (__class-specializer-hash-key _%key93043%_) + _%seed93049%_)) + (_%size93054%_ (vector-length _%table93048%_)) + (_%entries93057%_ (let () (declare (not safe)) - (##fxquotient _%size93375%_ '2))) - (_%start93381%_ - (let ((__tmp98306 + (##fxquotient _%size93054%_ '2))) + (_%start93060%_ + (let ((__tmp97926 (let () (declare (not safe)) - (##fxmodulo _%h93372%_ _%entries93378%_)))) + (##fxmodulo _%h93051%_ _%entries93057%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp98306 '1)))) - (let _%loop93385%_ ((_%probe93388%_ _%start93381%_) - (_%i93390%_ '1) - (_%deleted93392%_ '#f)) - (let ((_%k93395%_ (vector-ref _%table93369%_ _%probe93388%_))) - (if (eq? _%k93395%_ (macro-unused-obj)) - (let () - (if _%deleted93392%_ - (begin - (vector-set! - _%table93369%_ - _%deleted93392%_ - _%key93364%_) - (vector-set! - _%table93369%_ - (let () + (##fxarithmetic-shift-left __tmp97926 '1)))) + (let _%loop93064%_ ((_%probe93067%_ _%start93060%_) + (_%i93069%_ '1) + (_%deleted93071%_ '#f)) + (let ((_%k93074%_ (vector-ref _%table93048%_ _%probe93067%_))) + (if (eq? _%k93074%_ (macro-unused-obj)) + (if _%deleted93071%_ + (begin + (vector-set! + _%table93048%_ + _%deleted93071%_ + _%key93043%_) + (vector-set! + _%table93048%_ + (let () + (declare (not safe)) + (##fx+ _%deleted93071%_ '1)) + (_%class-specializer-table-update!93044%_ + _%default93045%_)) + ((lambda () + (let ((__tmp97927 + (let ((__tmp97928 + (let () + (declare (not safe)) + (&raw-table-count _%tab93042%_)))) + (declare (not safe)) + (##fx+ __tmp97928 '1)))) (declare (not safe)) - (##fx+ _%deleted93392%_ '1)) - (_%class-specializer-table-update!93365%_ - _%default93366%_)) - ((lambda () - (let ((__tmp98307 - (let ((__tmp98308 - (let () - (declare (not safe)) - (&raw-table-count - _%tab93363%_)))) - (declare (not safe)) - (##fx+ __tmp98308 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab93363%_ - __tmp98307))))) - (begin - (vector-set! - _%table93369%_ - _%probe93388%_ - _%key93364%_) - (vector-set! - _%table93369%_ - (let () + (&raw-table-count-set! + _%tab93042%_ + __tmp97927))))) + (begin + (vector-set! + _%table93048%_ + _%probe93067%_ + _%key93043%_) + (vector-set! + _%table93048%_ + (let () + (declare (not safe)) + (##fx+ _%probe93067%_ '1)) + (_%class-specializer-table-update!93044%_ + _%default93045%_)) + ((lambda () + (let ((__tmp97929 + (let ((__tmp97930 + (let () + (declare (not safe)) + (&raw-table-free _%tab93042%_)))) + (declare (not safe)) + (##fx- __tmp97930 '1)))) (declare (not safe)) - (##fx+ _%probe93388%_ '1)) - (_%class-specializer-table-update!93365%_ - _%default93366%_)) - ((lambda () - (let ((__tmp98309 - (let ((__tmp98310 - (let () - (declare (not safe)) - (&raw-table-free - _%tab93363%_)))) - (declare (not safe)) - (##fx- __tmp98310 '1)))) - (declare (not safe)) - (&raw-table-free-set! - _%tab93363%_ - __tmp98309)) - (let ((__tmp98311 - (let ((__tmp98312 - (let () - (declare (not safe)) - (&raw-table-count - _%tab93363%_)))) - (declare (not safe)) - (##fx+ __tmp98312 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab93363%_ - __tmp98311))))))) - (if (eq? _%k93395%_ (macro-deleted-obj)) - (let ((__tmp98315 - (let ((_%next-probe93402%_ - (fx+ _%start93381%_ - _%i93390%_ - (fx* _%i93390%_ _%i93390%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93402%_ - _%size93375%_))) - (__tmp98314 - (let () - (declare (not safe)) - (##fx+ _%i93390%_ '1))) - (__tmp98313 - (let ((_%$e93405%_ _%deleted93392%_)) - (if _%$e93405%_ _%$e93405%_ _%probe93388%_)))) - (declare (not safe)) - (_%loop93385%_ __tmp98315 __tmp98314 __tmp98313)) - (if (eq? _%key93364%_ _%k93395%_) + (&raw-table-free-set! _%tab93042%_ __tmp97929)) + (let ((__tmp97931 + (let ((__tmp97932 + (let () + (declare (not safe)) + (&raw-table-count _%tab93042%_)))) + (declare (not safe)) + (##fx+ __tmp97932 '1)))) + (declare (not safe)) + (&raw-table-count-set! + _%tab93042%_ + __tmp97931)))))) + (if (eq? _%k93074%_ (macro-deleted-obj)) + (_%loop93064%_ + (let ((_%next-probe93081%_ + (fx+ _%start93060%_ + _%i93069%_ + (fx* _%i93069%_ _%i93069%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93081%_ _%size93054%_)) + (let () (declare (not safe)) (##fx+ _%i93069%_ '1)) + (let ((_%$e93084%_ _%deleted93071%_)) + (if _%$e93084%_ _%$e93084%_ _%probe93067%_))) + (if (eq? _%key93043%_ _%k93074%_) (let () (vector-set! - _%table93369%_ - _%probe93388%_ - _%key93364%_) + _%table93048%_ + _%probe93067%_ + _%key93043%_) (vector-set! - _%table93369%_ + _%table93048%_ (let () (declare (not safe)) - (##fx+ _%probe93388%_ '1)) - (_%class-specializer-table-update!93365%_ + (##fx+ _%probe93067%_ '1)) + (_%class-specializer-table-update!93044%_ (vector-ref - _%table93369%_ + _%table93048%_ (let () (declare (not safe)) - (##fx+ _%probe93388%_ '1)))))) - (let ((__tmp98317 - (let ((_%next-probe93410%_ - (fx+ _%start93381%_ - _%i93390%_ - (fx* _%i93390%_ _%i93390%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93410%_ - _%size93375%_))) - (__tmp98316 - (let () - (declare (not safe)) - (##fx+ _%i93390%_ '1)))) - (declare (not safe)) - (_%loop93385%_ - __tmp98317 - __tmp98316 - _%deleted93392%_))))))))))) + (##fx+ _%probe93067%_ '1)))))) + (_%loop93064%_ + (let ((_%next-probe93089%_ + (fx+ _%start93060%_ + _%i93069%_ + (fx* _%i93069%_ _%i93069%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93089%_ _%size93054%_)) + (let () + (declare (not safe)) + (##fx+ _%i93069%_ '1)) + _%deleted93071%_)))))))))) (define class-specializer-table-delete! - (lambda (_%tab93318%_ _%key93320%_) - (let ((_%table93323%_ - (let () (declare (not safe)) (&raw-table-table _%tab93318%_))) - (_%seed93325%_ - (let () (declare (not safe)) (&raw-table-seed _%tab93318%_)))) - (let* ((_%h93328%_ - (fxxor (let () - (declare (not safe)) - (__class-specializer-hash-key _%key93320%_)) - _%seed93325%_)) - (_%size93331%_ (vector-length _%table93323%_)) - (_%entries93334%_ + (lambda (_%tab92997%_ _%key92999%_) + (let ((_%table93002%_ + (let () (declare (not safe)) (&raw-table-table _%tab92997%_))) + (_%seed93004%_ + (let () (declare (not safe)) (&raw-table-seed _%tab92997%_)))) + (let* ((_%h93007%_ + (fxxor (__class-specializer-hash-key _%key92999%_) + _%seed93004%_)) + (_%size93010%_ (vector-length _%table93002%_)) + (_%entries93013%_ (let () (declare (not safe)) - (##fxquotient _%size93331%_ '2))) - (_%start93337%_ - (let ((__tmp98318 + (##fxquotient _%size93010%_ '2))) + (_%start93016%_ + (let ((__tmp97933 (let () (declare (not safe)) - (##fxmodulo _%h93328%_ _%entries93334%_)))) + (##fxmodulo _%h93007%_ _%entries93013%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp98318 '1)))) - (let _%loop93341%_ ((_%probe93344%_ _%start93337%_) - (_%i93346%_ '1)) - (let ((_%k93349%_ (vector-ref _%table93323%_ _%probe93344%_))) - (if (eq? _%k93349%_ (macro-unused-obj)) - (let () '#!void) - (if (eq? _%k93349%_ (macro-deleted-obj)) - (let ((__tmp98320 - (let ((_%next-probe93354%_ - (fx+ _%start93337%_ - _%i93346%_ - (fx* _%i93346%_ _%i93346%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93354%_ - _%size93331%_))) - (__tmp98319 - (let () - (declare (not safe)) - (##fx+ _%i93346%_ '1)))) - (declare (not safe)) - (_%loop93341%_ __tmp98320 __tmp98319)) - (if (eq? _%key93320%_ _%k93349%_) + (##fxarithmetic-shift-left __tmp97933 '1)))) + (let _%loop93020%_ ((_%probe93023%_ _%start93016%_) + (_%i93025%_ '1)) + (let ((_%k93028%_ (vector-ref _%table93002%_ _%probe93023%_))) + (if (eq? _%k93028%_ (macro-unused-obj)) + '#!void + (if (eq? _%k93028%_ (macro-deleted-obj)) + (_%loop93020%_ + (let ((_%next-probe93033%_ + (fx+ _%start93016%_ + _%i93025%_ + (fx* _%i93025%_ _%i93025%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93033%_ _%size93010%_)) + (let () (declare (not safe)) (##fx+ _%i93025%_ '1))) + (if (eq? _%key92999%_ _%k93028%_) (let () (vector-set! - _%table93323%_ - _%probe93344%_ + _%table93002%_ + _%probe93023%_ (macro-deleted-obj)) (vector-set! - _%table93323%_ + _%table93002%_ (let () (declare (not safe)) - (##fx+ _%probe93344%_ '1)) + (##fx+ _%probe93023%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp98321 - (let ((__tmp98322 + (let ((__tmp97934 + (let ((__tmp97935 (let () (declare (not safe)) (&raw-table-count - _%tab93318%_)))) + _%tab92997%_)))) (declare (not safe)) - (##fx- __tmp98322 '1)))) + (##fx- __tmp97935 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab93318%_ - __tmp98321))))) - (let ((__tmp98324 - (let ((_%next-probe93360%_ - (fx+ _%start93337%_ - _%i93346%_ - (fx* _%i93346%_ _%i93346%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe93360%_ - _%size93331%_))) - (__tmp98323 - (let () - (declare (not safe)) - (##fx+ _%i93346%_ '1)))) - (declare (not safe)) - (_%loop93341%_ __tmp98324 __tmp98323))))))))))) + _%tab92997%_ + __tmp97934))))) + (_%loop93020%_ + (let ((_%next-probe93039%_ + (fx+ _%start93016%_ + _%i93025%_ + (fx* _%i93025%_ _%i93025%_)))) + (declare (not safe)) + (##fxmodulo _%next-probe93039%_ _%size93010%_)) + (let () + (declare (not safe)) + (##fx+ _%i93025%_ '1)))))))))))) (define __class-specializers-mx (vector '0)) - (define __class-specializers - (let () (declare (not safe)) (make-class-specializer-table__% '#f '0))) + (define __class-specializers (make-class-specializer-table__% '#f '0)) (define __class-specializers-key (cons '#f '#f)) (define specialize-class - (lambda (_%klass93304%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass93304%_ 'class)) - (let ((_%klass93308%_ _%klass93304%_)) - (declare (not safe)) - (__specialize-class _%klass93308%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@1017.25-1017.30" - 'contract: - 'class-type? - 'value: - _%klass93304%_) - '#!void))))) + (lambda (_%klass92983%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass92983%_ 'class)) + (let ((_%klass92987%_ _%klass92983%_)) + (__specialize-class _%klass92987%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@1017.25-1017.30" + 'contract: + 'class-type? + 'value: + _%klass92983%_) + '#!void)))) (define __specialize-class - (lambda (_%klass93286%_) - (let () - (let* ((_%klass93289%_ _%klass93286%_) - (_%$e93298%_ - (let () - (declare (not safe)) - (__lookup-class-specializer _%klass93289%_)))) - (if _%$e93298%_ - _%$e93298%_ - (let ((_%method-table93302%_ - (let () - (declare (not safe)) - (___specialize-class _%klass93289%_)))) - (let () - (declare (not safe)) - (__bind-class-specializer! - _%klass93289%_ - _%method-table93302%_)) - _%method-table93302%_)))))) + (lambda (_%klass92965%_) + (let* ((_%klass92968%_ _%klass92965%_) + (_%$e92977%_ (__lookup-class-specializer _%klass92968%_))) + (if _%$e92977%_ + _%$e92977%_ + (let ((_%method-table92981%_ + (___specialize-class _%klass92968%_))) + (__bind-class-specializer! + _%klass92968%_ + _%method-table92981%_) + _%method-table92981%_))))) (define __lookup-class-specializer - (lambda (_%klass93276%_) + (lambda (_%klass92955%_) (let () (declare (not interrupts-enabled)) - (let _%again93280%_ () - (if (let ((__tmp98325 + (let _%again92959%_ () + (if (let ((__tmp97936 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp98325 '0)) + (##fx= __tmp97936 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_%again93280%_)))))) - (let ((_%method-table93284%_ - (let () - (declare (not safe)) - (class-specializer-table-ref - __class-specializers - _%klass93276%_ - '#f)))) + (_%again92959%_))))) + (let ((_%method-table92963%_ + (class-specializer-table-ref + __class-specializers + _%klass92955%_ + '#f))) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)) - _%method-table93284%_))) + _%method-table92963%_))) (define __bind-class-specializer! - (lambda (_%klass93267%_ _%method-table93268%_) + (lambda (_%klass92946%_ _%method-table92947%_) (let () (declare (not interrupts-enabled)) - (let _%again93272%_ () - (if (let ((__tmp98326 + (let _%again92951%_ () + (if (let ((__tmp97937 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp98326 '0)) + (##fx= __tmp97937 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_%again93272%_)))))) - (let () - (declare (not safe)) - (class-specializer-table-set! - __class-specializers - _%klass93267%_ - _%method-table93268%_)) + (_%again92951%_))))) + (class-specializer-table-set! + __class-specializers + _%klass92946%_ + _%method-table92947%_) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)))) (define __specialize-method - (lambda (_%klass93251%_ - _%method-table93252%_ - _%method93253%_ - _%proc93254%_) - (let ((_%$e93256%_ + (lambda (_%klass92930%_ + _%method-table92931%_ + _%method92932%_ + _%proc92933%_) + (let ((_%$e92935%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table93252%_ - _%method93253%_ + _%method-table92931%_ + _%method92932%_ '#f)))) - (if _%$e93256%_ - _%$e93256%_ - (let ((_%$e93259%_ - (let () - (declare (not safe)) - (__lookup-method-specializer _%proc93254%_)))) - (if _%$e93259%_ - ((lambda (_%specialize93262%_) - (let ((_%specialized-proc93264%_ - (_%specialize93262%_ - _%klass93251%_ - _%method-table93252%_))) + (if _%$e92935%_ + _%$e92935%_ + (let ((_%$e92938%_ (__lookup-method-specializer _%proc92933%_))) + (if _%$e92938%_ + ((lambda (_%specialize92941%_) + (let ((_%specialized-proc92943%_ + (_%specialize92941%_ + _%klass92930%_ + _%method-table92931%_))) (declare (not safe)) (symbolic-table-set! - _%method-table93252%_ - _%method93253%_ - _%specialized-proc93264%_))) - _%$e93259%_) + _%method-table92931%_ + _%method92932%_ + _%specialized-proc92943%_))) + _%$e92938%_) (let () (declare (not safe)) (symbolic-table-set! - _%method-table93252%_ - _%method93253%_ - _%proc93254%_)))))))) + _%method-table92931%_ + _%method92932%_ + _%proc92933%_)))))))) (define ___specialize-class - (lambda (_%klass93193%_) - (if (let ((__tmp98327 - (let () - (declare (not safe)) - (##structure-instance-of? _%klass93193%_ 'class)))) - (declare (not safe)) - (not __tmp98327)) - (let () - (if (let () (declare (not safe)) (##type? _%klass93193%_)) - (let ((__tmp98328 - (let () - (declare (not safe)) - (__shadow-class _%klass93193%_)))) - (declare (not safe)) - (__specialize-class __tmp98328)) - (error '"bad class; cannot specialize" _%klass93193%_))) - (if (let () - (declare (not safe)) - (class-type-metaclass? _%klass93193%_)) - (let ((__method98103 - (let () - (declare (not safe)) - (__method-ref _%klass93193%_ 'specialize-class)))) - (if __method98103 - (__method98103 _%klass93193%_) + (lambda (_%klass92872%_) + (if (not (let () + (declare (not safe)) + (##structure-instance-of? _%klass92872%_ 'class))) + (if (let () (declare (not safe)) (##type? _%klass92872%_)) + (__specialize-class (__shadow-class _%klass92872%_)) + (error '"bad class; cannot specialize" _%klass92872%_)) + (if (class-type-metaclass? _%klass92872%_) + (let ((__method97782 + (__method-ref _%klass92872%_ 'specialize-class))) + (if __method97782 + (__method97782 _%klass92872%_) (error '"Missing method" - _%klass93193%_ + _%klass92872%_ 'specialize-class))) - (if (let ((__tmp98329 + (if (let ((__tmp97938 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass93193%_ + _%klass92872%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp98329)) - (let () - (error '"cannot specialize class that extends metaclass without a metaclass" - _%klass93193%_)) - (let ((_%method-table93199%_ + (__find class-type-metaclass? __tmp97938)) + (error '"cannot specialize class that extends metaclass without a metaclass" + _%klass92872%_) + (let ((_%method-table92878%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%loop93201%_ ((_%rest93203%_ - (let () - (declare (not safe)) - (class-precedence-list - _%klass93193%_)))) - (let* ((_%rest9320493212%_ _%rest93203%_) - (_%else9320693220%_ - (lambda () _%method-table93199%_)) - (_%K9320893239%_ - (lambda (_%rest93223%_ _%xklass93224%_) - (let ((_%xmethod-table9322593227%_ + (let _%loop92880%_ ((_%rest92882%_ + (class-precedence-list + _%klass92872%_))) + (let* ((_%rest9288392891%_ _%rest92882%_) + (_%else9288592899%_ + (lambda () _%method-table92878%_)) + (_%K9288792918%_ + (lambda (_%rest92902%_ _%xklass92903%_) + (let ((_%xmethod-table9290492906%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%xklass93224%_ + _%xklass92903%_ '11 '#f '#f)))) - (if _%xmethod-table9322593227%_ - (let* ((_%xmethod-table93230%_ - _%xmethod-table9322593227%_) - (__tmp98330 - (lambda (_%g9323193234%_ - _%g9323293236%_) - (let () - (declare (not safe)) - (__specialize-method - _%klass93193%_ - _%method-table93199%_ - _%g9323193234%_ - _%g9323293236%_))))) + (if _%xmethod-table9290492906%_ + (let* ((_%xmethod-table92909%_ + _%xmethod-table9290492906%_) + (__tmp97939 + (lambda (_%g9291092913%_ + _%g9291192915%_) + (__specialize-method + _%klass92872%_ + _%method-table92878%_ + _%g9291092913%_ + _%g9291192915%_)))) (declare (not safe)) (raw-table-for-each - _%xmethod-table93230%_ - __tmp98330)) + _%xmethod-table92909%_ + __tmp97939)) '#f)) - (let () - (declare (not safe)) - (_%loop93201%_ _%rest93223%_))))) + (_%loop92880%_ _%rest92902%_)))) (if (let () (declare (not safe)) - (##pair? _%rest9320493212%_)) - (let ((_%hd9320993242%_ + (##pair? _%rest9288392891%_)) + (let ((_%hd9288892921%_ (let () (declare (not safe)) - (##car _%rest9320493212%_))) - (_%tl9321093244%_ + (##car _%rest9288392891%_))) + (_%tl9288992923%_ (let () (declare (not safe)) - (##cdr _%rest9320493212%_)))) - (let* ((_%xklass93247%_ _%hd9320993242%_) - (_%rest93249%_ _%tl9321093244%_)) - (declare (not safe)) - (_%K9320893239%_ - _%rest93249%_ - _%xklass93247%_))) - (let () - (declare (not safe)) - (_%else9320693220%_))))))))))) + (##cdr _%rest9288392891%_)))) + (let* ((_%xklass92926%_ _%hd9288892921%_) + (_%rest92928%_ _%tl9288992923%_)) + (_%K9288792918%_ + _%rest92928%_ + _%xklass92926%_))) + (_%else9288592899%_)))))))))) (define seal-class! - (lambda (_%klass93179%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass93179%_ 'class)) - (let ((_%klass93183%_ _%klass93179%_)) - (declare (not safe)) - (__seal-class! _%klass93183%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@1074.20-1074.25" - 'contract: - 'class-type? - 'value: - _%klass93179%_) - '#!void))))) + (lambda (_%klass92858%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass92858%_ 'class)) + (let ((_%klass92862%_ _%klass92858%_)) + (__seal-class! _%klass92862%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@1074.20-1074.25" + 'contract: + 'class-type? + 'value: + _%klass92858%_) + '#!void)))) (define __seal-class! - (lambda (_%klass93162%_) - (let ((_%klass93165%_ _%klass93162%_)) - (if (let () - (declare (not safe)) - (__class-type-sealed? _%klass93165%_)) + (lambda (_%klass92841%_) + (let ((_%klass92844%_ _%klass92841%_)) + (if (__class-type-sealed? _%klass92844%_) '#!void (begin - (if (let () - (declare (not safe)) - (__class-type-final? _%klass93165%_)) + (if (__class-type-final? _%klass92844%_) '#!void - (error '"cannot seal non-final class" _%klass93165%_)) - (if (let () - (declare (not safe)) - (__class-type-metaclass? _%klass93165%_)) - (let ((__method98104 - (let () - (declare (not safe)) - (__method-ref _%klass93165%_ 'seal-class!)))) - (if __method98104 - (__method98104 _%klass93165%_) + (error '"cannot seal non-final class" _%klass92844%_)) + (if (__class-type-metaclass? _%klass92844%_) + (let ((__method97783 + (__method-ref _%klass92844%_ 'seal-class!))) + (if __method97783 + (__method97783 _%klass92844%_) (error '"Missing method" - _%klass93165%_ + _%klass92844%_ 'seal-class!))) - (if (let ((__tmp98331 + (if (let ((__tmp97940 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass93165%_ + _%klass92844%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp98331)) - (let () - (error '"cannot seal class that extends metaclass without a metaclass" - _%klass93165%_)) - (let ((_%method-table93177%_ - (let () - (declare (not safe)) - (__specialize-class _%klass93165%_)))) + (__find class-type-metaclass? __tmp97940)) + (error '"cannot seal class that extends metaclass without a metaclass" + _%klass92844%_) + (let ((_%method-table92856%_ + (__specialize-class _%klass92844%_))) (declare (not safe)) (##unchecked-structure-set! - _%klass93165%_ - _%method-table93177%_ + _%klass92844%_ + _%method-table92856%_ '11 '#f '#f)))) - (let () - (declare (not safe)) - (__class-type-seal! _%klass93165%_))))))) + (__class-type-seal! _%klass92844%_)))))) (define next-method - (lambda (_%subklass93136%_ _%obj93137%_ _%id93138%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%subklass93136%_ 'class)) - (let ((_%subklass93142%_ _%subklass93136%_)) - (if (let () (declare (not safe)) (symbol? _%id93138%_)) - (let ((_%id93152%_ _%id93138%_)) - (declare (not safe)) - (__next-method - _%subklass93142%_ - _%obj93137%_ - _%id93152%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@1098.44-1098.46" - 'contract: - 'symbol? - 'value: - _%id93138%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@1098.20-1098.28" - 'contract: - 'class-type? - 'value: - _%subklass93136%_) - '#!void))))) + (lambda (_%subklass92815%_ _%obj92816%_ _%id92817%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%subklass92815%_ 'class)) + (let ((_%subklass92821%_ _%subklass92815%_)) + (if (symbol? _%id92817%_) + (let ((_%id92831%_ _%id92817%_)) + (__next-method _%subklass92821%_ _%obj92816%_ _%id92831%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@1098.44-1098.46" + 'contract: + 'symbol? + 'value: + _%id92817%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@1098.20-1098.28" + 'contract: + 'class-type? + 'value: + _%subklass92815%_) + '#!void)))) (define __next-method - (lambda (_%subklass93073%_ _%obj93074%_ _%id93075%_) - (let () - (let* ((_%subklass93078%_ _%subklass93073%_) - (_%id93086%_ _%id93075%_)) - (letrec ((_%find-next-method93095%_ - (lambda (_%klass93097%_) - (let _%lp93099%_ ((_%rest93101%_ + (lambda (_%subklass92752%_ _%obj92753%_ _%id92754%_) + (let* ((_%subklass92757%_ _%subklass92752%_) (_%id92765%_ _%id92754%_)) + (letrec ((_%find-next-method92774%_ + (lambda (_%klass92776%_) + (let _%lp92778%_ ((_%rest92780%_ + (class-precedence-list + _%klass92776%_))) + (let* ((_%rest9278192789%_ _%rest92780%_) + (_%else9278392797%_ (lambda () '#f)) + (_%K9278592803%_ + (lambda (_%rest92800%_ _%klass92801%_) + (if (eq? (let () + (declare (not safe)) + (##type-id _%subklass92757%_)) (let () (declare (not safe)) - (class-precedence-list - _%klass93097%_)))) - (let* ((_%rest9310293110%_ _%rest93101%_) - (_%else9310493118%_ (lambda () '#f)) - (_%K9310693124%_ - (lambda (_%rest93121%_ _%klass93122%_) - (if (eq? (let () - (declare (not safe)) - (##type-id _%subklass93078%_)) - (let () - (declare (not safe)) - (##type-id _%klass93122%_))) - (let () - (declare (not safe)) - (__mixin-find-method - _%rest93121%_ - _%obj93074%_ - _%id93086%_)) - (let () - (declare (not safe)) - (_%lp93099%_ _%rest93121%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest9310293110%_)) - (let ((_%hd9310793127%_ - (let () - (declare (not safe)) - (##car _%rest9310293110%_))) - (_%tl9310893129%_ - (let () - (declare (not safe)) - (##cdr _%rest9310293110%_)))) - (let* ((_%klass93132%_ _%hd9310793127%_) - (_%rest93134%_ _%tl9310893129%_)) - (declare (not safe)) - (_%K9310693124%_ - _%rest93134%_ - _%klass93132%_))) - (let () - (declare (not safe)) - (_%else9310493118%_)))))))) - (let ((__tmp98332 - (let () (declare (not safe)) (class-of _%obj93074%_)))) - (declare (not safe)) - (_%find-next-method93095%_ __tmp98332))))))) + (##type-id _%klass92801%_))) + (__mixin-find-method + _%rest92800%_ + _%obj92753%_ + _%id92765%_) + (_%lp92778%_ _%rest92800%_))))) + (if (let () + (declare (not safe)) + (##pair? _%rest9278192789%_)) + (let ((_%hd9278692806%_ + (let () + (declare (not safe)) + (##car _%rest9278192789%_))) + (_%tl9278792808%_ + (let () + (declare (not safe)) + (##cdr _%rest9278192789%_)))) + (let* ((_%klass92811%_ _%hd9278692806%_) + (_%rest92813%_ _%tl9278792808%_)) + (_%K9278592803%_ + _%rest92813%_ + _%klass92811%_))) + (_%else9278392797%_))))))) + (_%find-next-method92774%_ (class-of _%obj92753%_)))))) (define call-next-method - (lambda (_%subklass93046%_ _%obj93047%_ _%id93048%_ . _%args93049%_) - (let () - (if (let () - (declare (not safe)) - (##structure-instance-of? _%subklass93046%_ 'class)) - (let ((_%subklass93053%_ _%subklass93046%_)) - (if (let () (declare (not safe)) (symbol? _%id93048%_)) - (let ((_%id93063%_ _%id93048%_)) - (declare (not safe)) - (##apply __call-next-method - _%subklass93053%_ - _%obj93047%_ - _%id93063%_ - _%args93049%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@1109.49-1109.51" - 'contract: - 'symbol? - 'value: - _%id93048%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/mop.ss\"@1109.25-1109.33" - 'contract: - 'class-type? - 'value: - _%subklass93046%_) - '#!void))))) - (define __call-next-method - (lambda (_%subklass93017%_ _%obj93018%_ _%id93019%_ . _%args93020%_) - (let ((_%subklass93023%_ _%subklass93017%_)) - (let* ((_%id93031%_ _%id93019%_) - (_%$e93040%_ - (let () + (lambda (_%subklass92725%_ _%obj92726%_ _%id92727%_ . _%args92728%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%subklass92725%_ 'class)) + (let ((_%subklass92732%_ _%subklass92725%_)) + (if (symbol? _%id92727%_) + (let ((_%id92742%_ _%id92727%_)) (declare (not safe)) - (__next-method - _%subklass93023%_ - _%obj93018%_ - _%id93031%_)))) - (if _%$e93040%_ - ((lambda (_%methodf93043%_) - (apply _%methodf93043%_ _%obj93018%_ _%args93020%_)) - _%$e93040%_) - (let () - (error '"cannot find next method" - 'object: - _%obj93018%_ - 'method: - _%id93031%_))))))) + (##apply __call-next-method + _%subklass92732%_ + _%obj92726%_ + _%id92742%_ + _%args92728%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@1109.49-1109.51" + 'contract: + 'symbol? + 'value: + _%id92727%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@1109.25-1109.33" + 'contract: + 'class-type? + 'value: + _%subklass92725%_) + '#!void)))) + (define __call-next-method + (lambda (_%subklass92696%_ _%obj92697%_ _%id92698%_ . _%args92699%_) + (let* ((_%subklass92702%_ _%subklass92696%_) + (_%id92710%_ _%id92698%_) + (_%$e92719%_ + (__next-method _%subklass92702%_ _%obj92697%_ _%id92710%_))) + (if _%$e92719%_ + ((lambda (_%methodf92722%_) + (apply _%methodf92722%_ _%obj92697%_ _%args92699%_)) + _%$e92719%_) + (error '"cannot find next method" + 'object: + _%obj92697%_ + 'method: + _%id92710%_))))) (define write-style - (lambda (_%we93015%_) (macro-writeenv-style _%we93015%_))) + (lambda (_%we92694%_) (macro-writeenv-style _%we92694%_))) (define write-object - (lambda (_%we93006%_ _%obj93007%_) - (let ((_%$e93009%_ - (let () (declare (not safe)) (__method-ref _%obj93007%_ ':wr)))) - (if _%$e93009%_ - ((lambda (_%method93012%_) - (_%method93012%_ _%obj93007%_ _%we93006%_)) - _%$e93009%_) + (lambda (_%we92685%_ _%obj92686%_) + (let ((_%$e92688%_ (__method-ref _%obj92686%_ ':wr))) + (if _%$e92688%_ + ((lambda (_%method92691%_) + (_%method92691%_ _%obj92686%_ _%we92685%_)) + _%$e92688%_) (let () (declare (not safe)) - (##default-wr _%we93006%_ _%obj93007%_)))))) + (##default-wr _%we92685%_ _%obj92686%_)))))) (define __shadow-classes (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define __shadow-classes-mx (vector '0)) (define __shadow-class - (lambda (_%type92921%_) - (letrec ((_%shadow-type-id92923%_ - (lambda (_%type93004%_) - (let ((__tmp98333 + (lambda (_%type92600%_) + (letrec ((_%shadow-type-id92602%_ + (lambda (_%type92683%_) + (let ((__tmp97941 (let () (declare (not safe)) - (##type-name _%type93004%_)))) + (##type-name _%type92683%_)))) (declare (not safe)) - (make-symbol__1 __tmp98333 '"::t")))) - (_%shadow-type-name92924%_ - (lambda (_%type93002%_) - (let () (declare (not safe)) (##type-name _%type93002%_)))) - (_%make-shadow-class92925%_ - (lambda (_%type92994%_ _%precedence-list92995%_) - (let* ((_%super92997%_ - (if (let () - (declare (not safe)) - (pair? _%precedence-list92995%_)) - (cons (car _%precedence-list92995%_) '()) + (make-symbol__1 __tmp97941 '"::t")))) + (_%shadow-type-name92603%_ + (lambda (_%type92681%_) + (let () (declare (not safe)) (##type-name _%type92681%_)))) + (_%make-shadow-class92604%_ + (lambda (_%type92673%_ _%precedence-list92674%_) + (let* ((_%super92676%_ + (if (pair? _%precedence-list92674%_) + (cons (car _%precedence-list92674%_) '()) '())) - (_%klass92999%_ - (let ((__tmp98336 - (let () - (declare (not safe)) - (_%shadow-type-id92923%_ _%type92994%_))) - (__tmp98335 - (let () - (declare (not safe)) - (##type-name _%type92994%_))) - (__tmp98334 - (cons (cons 'struct: '#t) - (cons (cons 'system: '#t) - (if (let () - (declare (not safe)) - (__type-extensible? - _%type92994%_)) - '() - (cons (cons 'final: '#t) - '())))))) - (declare (not safe)) - (make-class-type - __tmp98336 - __tmp98335 - _%super92997%_ - '() - __tmp98334 - '#f)))) - (let ((__tmp98337 + (_%klass92678%_ + (make-class-type + (_%shadow-type-id92602%_ _%type92673%_) + (let () + (declare (not safe)) + (##type-name _%type92673%_)) + _%super92676%_ + '() + (cons (cons 'struct: '#t) + (cons (cons 'system: '#t) + (if (__type-extensible? _%type92673%_) + '() + (cons (cons 'final: '#t) '())))) + '#f))) + (let ((__tmp97942 (let () (declare (not safe)) - (##type-id _%type92994%_)))) + (##type-id _%type92673%_)))) (declare (not safe)) (symbolic-table-set! __shadow-classes - __tmp98337 - _%klass92999%_)) - _%klass92999%_)))) + __tmp97942 + _%klass92678%_)) + _%klass92678%_)))) (let () (declare (not interrupts-enabled)) - (let _%again92929%_ () - (if (let ((__tmp98338 + (let _%again92608%_ () + (if (let ((__tmp97943 (let () (declare (not safe)) (##vector-cas! __shadow-classes-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp98338 '0)) + (##fx= __tmp97943 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_%again92929%_)))))) - (let ((_%$e92933%_ - (let ((__tmp98339 + (_%again92608%_))))) + (let ((_%$e92612%_ + (let ((__tmp97944 (let () (declare (not safe)) - (##type-id _%type92921%_)))) + (##type-id _%type92600%_)))) (declare (not safe)) - (symbolic-table-ref __shadow-classes __tmp98339 '#f)))) - (if _%$e92933%_ - ((lambda (_%klass92936%_) + (symbolic-table-ref __shadow-classes __tmp97944 '#f)))) + (if _%$e92612%_ + ((lambda (_%klass92615%_) (let () (declare (not safe)) (##vector-cas! __shadow-classes-mx '0 '0 '1)) - _%klass92936%_) - _%$e92933%_) - (let _%loop92939%_ ((_%super92941%_ + _%klass92615%_) + _%$e92612%_) + (let _%loop92618%_ ((_%super92620%_ (let () (declare (not safe)) - (##type-super _%type92921%_))) - (_%hierarchy92942%_ '())) - (if (let () (declare (not safe)) (not _%super92941%_)) - (let _%loop92945%_ ((_%rest92947%_ _%hierarchy92942%_) - (_%precedence-list92948%_ '())) - (let* ((_%rest9294992957%_ _%rest92947%_) - (_%else9295192967%_ + (##type-super _%type92600%_))) + (_%hierarchy92621%_ '())) + (if (not _%super92620%_) + (let _%loop92624%_ ((_%rest92626%_ _%hierarchy92621%_) + (_%precedence-list92627%_ '())) + (let* ((_%rest9262892636%_ _%rest92626%_) + (_%else9263092646%_ (lambda () - (let ((_%klass92965%_ - (let () - (declare (not safe)) - (_%make-shadow-class92925%_ - _%type92921%_ - _%precedence-list92948%_)))) + (let ((_%klass92644%_ + (_%make-shadow-class92604%_ + _%type92600%_ + _%precedence-list92627%_))) (let () (declare (not safe)) (##vector-cas! @@ -5998,155 +5023,113 @@ '0 '0 '1)) - _%klass92965%_))) - (_%K9295392981%_ - (lambda (_%rest92970%_ _%type92971%_) - (let ((_%$e92973%_ - (let ((__tmp98340 + _%klass92644%_))) + (_%K9263292660%_ + (lambda (_%rest92649%_ _%type92650%_) + (let ((_%$e92652%_ + (let ((__tmp97945 (let () (declare (not safe)) - (##type-id _%type92971%_)))) + (##type-id _%type92650%_)))) (declare (not safe)) (symbolic-table-ref __shadow-classes - __tmp98340 + __tmp97945 '#f)))) - (if _%$e92973%_ - ((lambda (_%klass92976%_) - (let ((__tmp98341 - (cons _%klass92976%_ - _%precedence-list92948%_))) - (declare (not safe)) - (_%loop92945%_ - _%rest92970%_ - __tmp98341))) - _%$e92973%_) - (let () - (let* ((_%klass92979%_ - (let () - (declare (not safe)) - (_%make-shadow-class92925%_ - _%type92971%_ - _%precedence-list92948%_))) - (__tmp98342 - (cons _%klass92979%_ - _%precedence-list92948%_))) - (declare (not safe)) - (_%loop92945%_ - _%rest92970%_ - __tmp98342)))))))) + (if _%$e92652%_ + ((lambda (_%klass92655%_) + (_%loop92624%_ + _%rest92649%_ + (cons _%klass92655%_ + _%precedence-list92627%_))) + _%$e92652%_) + (let ((_%klass92658%_ + (_%make-shadow-class92604%_ + _%type92650%_ + _%precedence-list92627%_))) + (_%loop92624%_ + _%rest92649%_ + (cons _%klass92658%_ + _%precedence-list92627%_)))))))) (if (let () (declare (not safe)) - (##pair? _%rest9294992957%_)) - (let ((_%hd9295492984%_ + (##pair? _%rest9262892636%_)) + (let ((_%hd9263392663%_ (let () (declare (not safe)) - (##car _%rest9294992957%_))) - (_%tl9295592986%_ + (##car _%rest9262892636%_))) + (_%tl9263492665%_ (let () (declare (not safe)) - (##cdr _%rest9294992957%_)))) - (let* ((_%type92989%_ _%hd9295492984%_) - (_%rest92991%_ _%tl9295592986%_)) - (declare (not safe)) - (_%K9295392981%_ - _%rest92991%_ - _%type92989%_))) - (let () - (declare (not safe)) - (_%else9295192967%_))))) - (let ((__tmp98344 - (let () - (declare (not safe)) - (##type-super _%super92941%_))) - (__tmp98343 - (cons _%super92941%_ _%hierarchy92942%_))) - (declare (not safe)) - (_%loop92939%_ __tmp98344 __tmp98343))))))))) + (##cdr _%rest9262892636%_)))) + (let* ((_%type92668%_ _%hd9263392663%_) + (_%rest92670%_ _%tl9263492665%_)) + (_%K9263292660%_ + _%rest92670%_ + _%type92668%_))) + (_%else9263092646%_)))) + (_%loop92618%_ + (let () + (declare (not safe)) + (##type-super _%super92620%_)) + (cons _%super92620%_ _%hierarchy92621%_))))))))) (define class-of - (lambda (_%obj92894%_) + (lambda (_%obj92573%_) (let () (declare (not interrupts-enabled)) - (let ((_%t92898%_ - (let () (declare (not safe)) (##type _%obj92894%_)))) - (if (fx= _%t92898%_ (macro-type-subtyped)) - (let ((_%st92901%_ - (let () (declare (not safe)) (##subtype _%obj92894%_)))) - (if (fx= _%st92901%_ (macro-subtype-structure)) - (let ((_%klass92904%_ + (let ((_%t92577%_ + (let () (declare (not safe)) (##type _%obj92573%_)))) + (if (fx= _%t92577%_ (macro-type-subtyped)) + (let ((_%st92580%_ + (let () (declare (not safe)) (##subtype _%obj92573%_)))) + (if (fx= _%st92580%_ (macro-subtype-structure)) + (let ((_%klass92583%_ (let () (declare (not safe)) - (##structure-type _%obj92894%_)))) + (##structure-type _%obj92573%_)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass92904%_ 'class)) - _%klass92904%_ - (let () - (declare (not safe)) - (__shadow-class _%klass92904%_)))) - (if (fx= _%st92901%_ (macro-subtype-boxvalues)) - (let () - (if (let ((__tmp98345 - (let () - (declare (not safe)) - (##vector-length _%obj92894%_)))) - (declare (not safe)) - (##fx= __tmp98345 '1)) - (let () - (declare (not safe)) - (__system-class 'box)) - (let () - (declare (not safe)) - (__system-class 'values)))) - (let ((_%$e92907%_ + (##structure-instance-of? _%klass92583%_ 'class)) + _%klass92583%_ + (__shadow-class _%klass92583%_))) + (if (fx= _%st92580%_ (macro-subtype-boxvalues)) + (if (let ((__tmp97946 + (let () + (declare (not safe)) + (##vector-length _%obj92573%_)))) + (declare (not safe)) + (##fx= __tmp97946 '1)) + (__system-class 'box) + (__system-class 'values)) + (let ((_%$e92586%_ (let () (declare (not safe)) - (##vector-ref __subtype-id _%st92901%_)))) - (if _%$e92907%_ - (let () - (declare (not safe)) - (__system-class _%$e92907%_)) - (let () - (error '"unknown class" - 'subtype: - _%st92901%_ - 'object: - _%obj92894%_))))))) - (if (fx= _%t92898%_ (macro-type-mem2)) - (let () (declare (not safe)) (__system-class 'pair)) - (if (fx= _%t92898%_ (macro-type-fixnum)) - (let () (declare (not safe)) (__system-class 'fixnum)) - (let () - (if (let () - (declare (not safe)) - (char? _%obj92894%_)) - (let () - (declare (not safe)) - (__system-class 'char)) - (if (eq? _%obj92894%_ '()) - (let () - (declare (not safe)) - (__system-class 'null)) - (if (eq? _%obj92894%_ '#f) - (let () - (declare (not safe)) - (__system-class 'boolean)) - (if (eq? _%obj92894%_ '#t) - (let () - (declare (not safe)) - (__system-class 'boolean)) - (if (eq? _%obj92894%_ '#!void) - (let () - (declare (not safe)) - (__system-class 'void)) - (if (eq? _%obj92894%_ '#!eof) - (let () - (declare (not safe)) - (__system-class 'eof)) - (let () - (declare (not safe)) - (__system-class - 'special)))))))))))))))) + (##vector-ref __subtype-id _%st92580%_)))) + (if _%$e92586%_ + (__system-class _%$e92586%_) + (error '"unknown class" + 'subtype: + _%st92580%_ + 'object: + _%obj92573%_)))))) + (if (fx= _%t92577%_ (macro-type-mem2)) + (__system-class 'pair) + (if (fx= _%t92577%_ (macro-type-fixnum)) + (__system-class 'fixnum) + (if (char? _%obj92573%_) + (__system-class 'char) + (if (eq? _%obj92573%_ '()) + (__system-class 'null) + (if (eq? _%obj92573%_ '#f) + (__system-class 'boolean) + (if (eq? _%obj92573%_ '#t) + (__system-class 'boolean) + (if (eq? _%obj92573%_ '#!void) + (__system-class 'void) + (if (eq? _%obj92573%_ '#!eof) + (__system-class 'eof) + (__system-class + 'special)))))))))))))) (define __subtype-id (let () (declare (not safe)) (##make-vector '32 '#f))) (vector-set! __subtype-id (macro-subtype-vector) 'vector) (vector-set! __subtype-id (macro-subtype-pair) 'pair) @@ -6177,27 +5160,25 @@ (define __system-classes (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define __system-class - (lambda (_%id92888%_) - (let ((_%$e92890%_ + (lambda (_%id92567%_) + (let ((_%$e92569%_ (let () (declare (not safe)) - (symbolic-table-ref __system-classes _%id92888%_ '#f)))) - (if _%$e92890%_ - _%$e92890%_ - (let () (error '"unknown system class" _%id92888%_)))))) + (symbolic-table-ref __system-classes _%id92567%_ '#f)))) + (if _%$e92569%_ + _%$e92569%_ + (error '"unknown system class" _%id92567%_))))) (define __make-system-class - (lambda (_%id92883%_ _%super92884%_) - (let ((_%klass92886%_ - (let () - (declare (not safe)) - (make-class-type - _%id92883%_ - _%id92883%_ - _%super92884%_ - '() - '((system: . #t)) - '#f)))) + (lambda (_%id92562%_ _%super92563%_) + (let ((_%klass92565%_ + (make-class-type + _%id92562%_ + _%id92562%_ + _%super92563%_ + '() + '((system: . #t)) + '#f))) (let () (declare (not safe)) - (symbolic-table-set! __system-classes _%id92883%_ _%klass92886%_)) - _%klass92886%_))))) + (symbolic-table-set! __system-classes _%id92562%_ _%klass92565%_)) + _%klass92565%_))))) diff --git a/src/bootstrap/gerbil/runtime/mop~1.scm b/src/bootstrap/gerbil/runtime/mop~1.scm index c59b83226..f205d7427 100644 --- a/src/bootstrap/gerbil/runtime/mop~1.scm +++ b/src/bootstrap/gerbil/runtime/mop~1.scm @@ -1,730 +1,721 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |[:0:]#fxflag-set?| - (lambda (_%$stx91468%_) - (let* ((_%__stx9797797978%_ _%$stx91468%_) - (_%g9147391502%_ + (lambda (_%$stx91147%_) + (let* ((_%__stx9765697657%_ _%$stx91147%_) + (_%g9115291181%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9797797978%_)))) - (let ((_%__kont9798097981%_ - (lambda (_%L91595%_ _%L91597%_) + _%__stx9765697657%_)))) + (let ((_%__kont9765997660%_ + (lambda (_%L91274%_ _%L91276%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L91597%_ (cons _%L91595%_ '()))) - (cons _%L91595%_ '()))))) - (_%__kont9798297983%_ - (lambda (_%L91539%_ _%L91541%_) + (cons _%L91276%_ (cons _%L91274%_ '()))) + (cons _%L91274%_ '()))))) + (_%__kont9766197662%_ + (lambda (_%L91218%_ _%L91220%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L91539%_ (cons _%L91539%_ '())) + (cons (cons _%L91218%_ (cons _%L91218%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L91541%_ - (cons _%L91539%_ + (cons _%L91220%_ + (cons _%L91218%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L91539%_ '()))) + (cons _%L91218%_ '()))) '())))))) - (let ((_%__match9800498005%_ - (lambda (_%e9147991565%_ - _%hd9147891569%_ - _%tl9147791572%_ - _%e9148291575%_ - _%hd9148191579%_ - _%tl9148091582%_ - _%e9148591585%_ - _%hd9148491589%_ - _%tl9148391592%_) - (let ((_%L91595%_ _%hd9148491589%_) - (_%L91597%_ _%hd9148191579%_)) - (if (or (gx#identifier? _%L91595%_) - (gx#stx-fixnum? _%L91595%_)) - (_%__kont9798097981%_ _%L91595%_ _%L91597%_) - (_%__kont9798297983%_ - _%hd9148491589%_ - _%hd9148191579%_)))))) - (if (gx#stx-pair? _%__stx9797797978%_) - (let ((_%e9147991565%_ (gx#syntax-e _%__stx9797797978%_))) - (let ((_%tl9147791572%_ - (let () (declare (not safe)) (##cdr _%e9147991565%_))) - (_%hd9147891569%_ + (let ((_%__match9768397684%_ + (lambda (_%e9115891244%_ + _%hd9115791248%_ + _%tl9115691251%_ + _%e9116191254%_ + _%hd9116091258%_ + _%tl9115991261%_ + _%e9116491264%_ + _%hd9116391268%_ + _%tl9116291271%_) + (let ((_%L91274%_ _%hd9116391268%_) + (_%L91276%_ _%hd9116091258%_)) + (if (or (gx#identifier? _%L91274%_) + (gx#stx-fixnum? _%L91274%_)) + (_%__kont9765997660%_ _%L91274%_ _%L91276%_) + (_%__kont9766197662%_ + _%hd9116391268%_ + _%hd9116091258%_)))))) + (if (gx#stx-pair? _%__stx9765697657%_) + (let ((_%e9115891244%_ (gx#syntax-e _%__stx9765697657%_))) + (let ((_%tl9115691251%_ + (let () (declare (not safe)) (##cdr _%e9115891244%_))) + (_%hd9115791248%_ (let () (declare (not safe)) - (##car _%e9147991565%_)))) - (if (gx#stx-pair? _%tl9147791572%_) - (let ((_%e9148291575%_ (gx#syntax-e _%tl9147791572%_))) - (let ((_%tl9148091582%_ + (##car _%e9115891244%_)))) + (if (gx#stx-pair? _%tl9115691251%_) + (let ((_%e9116191254%_ (gx#syntax-e _%tl9115691251%_))) + (let ((_%tl9115991261%_ (let () (declare (not safe)) - (##cdr _%e9148291575%_))) - (_%hd9148191579%_ + (##cdr _%e9116191254%_))) + (_%hd9116091258%_ (let () (declare (not safe)) - (##car _%e9148291575%_)))) - (if (gx#stx-pair? _%tl9148091582%_) - (let ((_%e9148591585%_ - (gx#syntax-e _%tl9148091582%_))) - (let ((_%tl9148391592%_ + (##car _%e9116191254%_)))) + (if (gx#stx-pair? _%tl9115991261%_) + (let ((_%e9116491264%_ + (gx#syntax-e _%tl9115991261%_))) + (let ((_%tl9116291271%_ (let () (declare (not safe)) - (##cdr _%e9148591585%_))) - (_%hd9148491589%_ + (##cdr _%e9116491264%_))) + (_%hd9116391268%_ (let () (declare (not safe)) - (##car _%e9148591585%_)))) - (if (gx#stx-null? _%tl9148391592%_) - (_%__match9800498005%_ - _%e9147991565%_ - _%hd9147891569%_ - _%tl9147791572%_ - _%e9148291575%_ - _%hd9148191579%_ - _%tl9148091582%_ - _%e9148591585%_ - _%hd9148491589%_ - _%tl9148391592%_) + (##car _%e9116491264%_)))) + (if (gx#stx-null? _%tl9116291271%_) + (_%__match9768397684%_ + _%e9115891244%_ + _%hd9115791248%_ + _%tl9115691251%_ + _%e9116191254%_ + _%hd9116091258%_ + _%tl9115991261%_ + _%e9116491264%_ + _%hd9116391268%_ + _%tl9116291271%_) (let () (declare (not safe)) - (_%g9147391502%_))))) + (_%g9115291181%_))))) (let () (declare (not safe)) - (_%g9147391502%_))))) - (let () (declare (not safe)) (_%g9147391502%_))))) - (let () (declare (not safe)) (_%g9147391502%_)))))))) + (_%g9115291181%_))))) + (let () (declare (not safe)) (_%g9115291181%_))))) + (let () (declare (not safe)) (_%g9115291181%_)))))))) (define |[:0:]#fxflag-unset?| - (lambda (_%$stx91620%_) - (let* ((_%__stx9802798028%_ _%$stx91620%_) - (_%g9162591654%_ + (lambda (_%$stx91299%_) + (let* ((_%__stx9770697707%_ _%$stx91299%_) + (_%g9130491333%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9802798028%_)))) - (let ((_%__kont9803098031%_ - (lambda (_%L91746%_ _%L91748%_) + _%__stx9770697707%_)))) + (let ((_%__kont9770997710%_ + (lambda (_%L91425%_ _%L91427%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L91748%_ (cons _%L91746%_ '()))) + (cons _%L91427%_ (cons _%L91425%_ '()))) (cons '0 '()))))) - (_%__kont9803298033%_ - (lambda (_%L91691%_ _%L91693%_) + (_%__kont9771197712%_ + (lambda (_%L91370%_ _%L91372%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L91691%_ (cons _%L91691%_ '())) + (cons (cons _%L91370%_ (cons _%L91370%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L91693%_ - (cons _%L91691%_ + (cons _%L91372%_ + (cons _%L91370%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '0 '()))) '())))))) - (let ((_%__match9805498055%_ - (lambda (_%e9163191716%_ - _%hd9163091720%_ - _%tl9162991723%_ - _%e9163491726%_ - _%hd9163391730%_ - _%tl9163291733%_ - _%e9163791736%_ - _%hd9163691740%_ - _%tl9163591743%_) - (let ((_%L91746%_ _%hd9163691740%_) - (_%L91748%_ _%hd9163391730%_)) - (if (or (gx#identifier? _%L91746%_) - (gx#stx-fixnum? _%L91746%_)) - (_%__kont9803098031%_ _%L91746%_ _%L91748%_) - (_%__kont9803298033%_ - _%hd9163691740%_ - _%hd9163391730%_)))))) - (if (gx#stx-pair? _%__stx9802798028%_) - (let ((_%e9163191716%_ (gx#syntax-e _%__stx9802798028%_))) - (let ((_%tl9162991723%_ - (let () (declare (not safe)) (##cdr _%e9163191716%_))) - (_%hd9163091720%_ + (let ((_%__match9773397734%_ + (lambda (_%e9131091395%_ + _%hd9130991399%_ + _%tl9130891402%_ + _%e9131391405%_ + _%hd9131291409%_ + _%tl9131191412%_ + _%e9131691415%_ + _%hd9131591419%_ + _%tl9131491422%_) + (let ((_%L91425%_ _%hd9131591419%_) + (_%L91427%_ _%hd9131291409%_)) + (if (or (gx#identifier? _%L91425%_) + (gx#stx-fixnum? _%L91425%_)) + (_%__kont9770997710%_ _%L91425%_ _%L91427%_) + (_%__kont9771197712%_ + _%hd9131591419%_ + _%hd9131291409%_)))))) + (if (gx#stx-pair? _%__stx9770697707%_) + (let ((_%e9131091395%_ (gx#syntax-e _%__stx9770697707%_))) + (let ((_%tl9130891402%_ + (let () (declare (not safe)) (##cdr _%e9131091395%_))) + (_%hd9130991399%_ (let () (declare (not safe)) - (##car _%e9163191716%_)))) - (if (gx#stx-pair? _%tl9162991723%_) - (let ((_%e9163491726%_ (gx#syntax-e _%tl9162991723%_))) - (let ((_%tl9163291733%_ + (##car _%e9131091395%_)))) + (if (gx#stx-pair? _%tl9130891402%_) + (let ((_%e9131391405%_ (gx#syntax-e _%tl9130891402%_))) + (let ((_%tl9131191412%_ (let () (declare (not safe)) - (##cdr _%e9163491726%_))) - (_%hd9163391730%_ + (##cdr _%e9131391405%_))) + (_%hd9131291409%_ (let () (declare (not safe)) - (##car _%e9163491726%_)))) - (if (gx#stx-pair? _%tl9163291733%_) - (let ((_%e9163791736%_ - (gx#syntax-e _%tl9163291733%_))) - (let ((_%tl9163591743%_ + (##car _%e9131391405%_)))) + (if (gx#stx-pair? _%tl9131191412%_) + (let ((_%e9131691415%_ + (gx#syntax-e _%tl9131191412%_))) + (let ((_%tl9131491422%_ (let () (declare (not safe)) - (##cdr _%e9163791736%_))) - (_%hd9163691740%_ + (##cdr _%e9131691415%_))) + (_%hd9131591419%_ (let () (declare (not safe)) - (##car _%e9163791736%_)))) - (if (gx#stx-null? _%tl9163591743%_) - (_%__match9805498055%_ - _%e9163191716%_ - _%hd9163091720%_ - _%tl9162991723%_ - _%e9163491726%_ - _%hd9163391730%_ - _%tl9163291733%_ - _%e9163791736%_ - _%hd9163691740%_ - _%tl9163591743%_) + (##car _%e9131691415%_)))) + (if (gx#stx-null? _%tl9131491422%_) + (_%__match9773397734%_ + _%e9131091395%_ + _%hd9130991399%_ + _%tl9130891402%_ + _%e9131391405%_ + _%hd9131291409%_ + _%tl9131191412%_ + _%e9131691415%_ + _%hd9131591419%_ + _%tl9131491422%_) (let () (declare (not safe)) - (_%g9162591654%_))))) + (_%g9130491333%_))))) (let () (declare (not safe)) - (_%g9162591654%_))))) - (let () (declare (not safe)) (_%g9162591654%_))))) - (let () (declare (not safe)) (_%g9162591654%_)))))))) + (_%g9130491333%_))))) + (let () (declare (not safe)) (_%g9130491333%_))))) + (let () (declare (not safe)) (_%g9130491333%_)))))))) (define |[:0:]#defrefset| - (lambda (_%stx91771%_) - (let* ((_%g9177491795%_ - (lambda (_%g9177591791%_) + (lambda (_%stx91450%_) + (let* ((_%g9145391474%_ + (lambda (_%g9145491470%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9177591791%_))) - (_%g9177392023%_ - (lambda (_%g9177591799%_) - (if (gx#stx-pair? _%g9177591799%_) - (let ((_%e9178091802%_ (gx#syntax-e _%g9177591799%_))) - (let ((_%hd9177991806%_ + _%g9145491470%_))) + (_%g9145291702%_ + (lambda (_%g9145491478%_) + (if (gx#stx-pair? _%g9145491478%_) + (let ((_%e9145991481%_ (gx#syntax-e _%g9145491478%_))) + (let ((_%hd9145891485%_ (let () (declare (not safe)) - (##car _%e9178091802%_))) - (_%tl9177891809%_ + (##car _%e9145991481%_))) + (_%tl9145791488%_ (let () (declare (not safe)) - (##cdr _%e9178091802%_)))) - (if (gx#stx-pair? _%tl9177891809%_) - (let ((_%e9178391812%_ - (gx#syntax-e _%tl9177891809%_))) - (let ((_%hd9178291816%_ + (##cdr _%e9145991481%_)))) + (if (gx#stx-pair? _%tl9145791488%_) + (let ((_%e9146291491%_ + (gx#syntax-e _%tl9145791488%_))) + (let ((_%hd9146191495%_ (let () (declare (not safe)) - (##car _%e9178391812%_))) - (_%tl9178191819%_ + (##car _%e9146291491%_))) + (_%tl9146091498%_ (let () (declare (not safe)) - (##cdr _%e9178391812%_)))) - (if (gx#stx-pair? _%hd9178291816%_) - (let ((_%e9178691822%_ - (gx#syntax-e _%hd9178291816%_))) - (let ((_%hd9178591826%_ + (##cdr _%e9146291491%_)))) + (if (gx#stx-pair? _%hd9146191495%_) + (let ((_%e9146591501%_ + (gx#syntax-e _%hd9146191495%_))) + (let ((_%hd9146491505%_ (let () (declare (not safe)) - (##car _%e9178691822%_))) - (_%tl9178491829%_ + (##car _%e9146591501%_))) + (_%tl9146391508%_ (let () (declare (not safe)) - (##cdr _%e9178691822%_)))) - (if (gx#stx-pair? _%tl9178491829%_) - (let ((_%e9178991832%_ + (##cdr _%e9146591501%_)))) + (if (gx#stx-pair? _%tl9146391508%_) + (let ((_%e9146891511%_ (gx#syntax-e - _%tl9178491829%_))) - (let ((_%hd9178891836%_ + _%tl9146391508%_))) + (let ((_%hd9146791515%_ (let () (declare (not safe)) - (##car _%e9178991832%_))) - (_%tl9178791839%_ + (##car _%e9146891511%_))) + (_%tl9146691518%_ (let () (declare (not safe)) - (##cdr _%e9178991832%_)))) + (##cdr _%e9146891511%_)))) (if (gx#stx-null? - _%tl9178791839%_) + _%tl9146691518%_) (if (gx#stx-null? - _%tl9178191819%_) - ((lambda (_%L91842%_ + _%tl9146091498%_) + ((lambda (_%L91521%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L91844%_) - (let* ((_%g9186291870%_ - (lambda (_%g9186391866%_) + _%L91523%_) + (let* ((_%g9154191549%_ + (lambda (_%g9154291545%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9186391866%_))) - (_%g9186192019%_ - (lambda (_%g9186391874%_) - ((lambda (_%L91877%_) - (let () - (let* ((_%g9188991897%_ - (lambda (_%g9189091893%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g9189091893%_))) - (_%g9188892015%_ - (lambda (_%g9189091901%_) - ((lambda (_%L91904%_) - (let () - (let* ((_%g9191791925%_ - (lambda (_%g9191891921%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g9191891921%_))) - (_%g9191692011%_ - (lambda (_%g9191891929%_) - ((lambda (_%L91932%_) - (let () - (let* ((_%g9194591953%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g9194691949%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g9194691949%_))) - (_%g9194492007%_ - (lambda (_%g9194691957%_) - ((lambda (_%L91960%_) - (let () - (let* ((_%g9197391981%_ - (lambda (_%g9197491977%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g9197491977%_))) - (_%g9197292003%_ - (lambda (_%g9197491985%_) - ((lambda (_%L91988%_) - (let () - (cons (gx#datum->syntax - '#f - 'begin) - (cons (cons (gx#datum->syntax + _%g9154291545%_))) + (_%g9154091698%_ + (lambda (_%g9154291553%_) + ((lambda (_%L91556%_) + (let* ((_%g9156891576%_ + (lambda (_%g9156991572%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g9156991572%_))) + (_%g9156791694%_ + (lambda (_%g9156991580%_) + ((lambda (_%L91583%_) + (let* ((_%g9159691604%_ + (lambda (_%g9159791600%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g9159791600%_))) + (_%g9159591690%_ + (lambda (_%g9159791608%_) + ((lambda (_%L91611%_) + (let* ((_%g9162491632%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'def) - (cons _%L91904%_ - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) + (lambda (_%g9162591628%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g9162591628%_))) + (_%g9162391686%_ + (lambda (_%g9162591636%_) + ((lambda (_%L91639%_) + (let* ((_%g9165291660%_ + (lambda (_%g9165391656%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g9165391656%_))) + (_%g9165191682%_ + (lambda (_%g9165391664%_) + ((lambda (_%L91667%_) + (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f - '@mop.accessor) - (cons _%L91877%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L91844%_ (cons '#t '())))) - (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons (gx#datum->syntax '#f 'klass) '()) - (cons (cons (gx#datum->syntax - '#f - '##structure-ref) - (cons (gx#datum->syntax - '#f - 'klass) - (cons _%L91842%_ - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'class::t) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L91844%_ '())) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L91932%_ - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax + 'def) + (cons _%L91583%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@mop.accessor) - (cons _%L91877%_ (cons _%L91844%_ (cons '#f '())))) - (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons (gx#datum->syntax '#f 'klass) - '()) + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) (cons (cons (gx#datum->syntax '#f - '##unchecked-structure-ref) - (cons (gx#datum->syntax - '#f - 'klass) - (cons _%L91842%_ - (cons (gx#datum->syntax + '@mop.accessor) + (cons _%L91556%_ + (cons _%L91523%_ + (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'class::t) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L91844%_ '())) - '()))))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L91960%_ - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@mop.mutator) - (cons _%L91877%_ - (cons _%L91844%_ (cons '#t '())))) - (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons (gx#datum->syntax - '#f - 'klass) - (cons (gx#datum->syntax - '#f - 'val) - '())) (cons (cons (gx#datum->syntax '#f - '##structure-set!) - (cons (gx#datum->syntax + 'lambda) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'klass) - (cons (gx#datum->syntax '#f 'val) - (cons _%L91842%_ - (cons (gx#datum->syntax '#f 'class::t) - (cons (cons (gx#datum->syntax + '#f + 'klass) + '()) + (cons (cons (gx#datum->syntax '#f '##structure-ref) + (cons (gx#datum->syntax '#f 'klass) + (cons _%L91521%_ + (cons (gx#datum->syntax '#f - 'quote) - (cons _%L91844%_ '())) - '())))))) + 'class::t) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote) + (cons _%L91523%_ '())) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L91988%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@mop.mutator) - (cons _%L91877%_ - (cons _%L91844%_ - (cons '#f '())))) - (cons (cons (gx#datum->syntax '#f 'lambda) + (cons (cons (gx#datum->syntax '#f 'def) + (cons _%L91611%_ + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) (cons (cons (gx#datum->syntax '#f - 'klass) - (cons (gx#datum->syntax + '@mop.accessor) + (cons _%L91556%_ + (cons _%L91523%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'val) - '())) + (cons '#f '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - '##unchecked-structure-set!) - (cons (gx#datum->syntax '#f 'klass) - (cons (gx#datum->syntax '#f 'val) - (cons _%L91842%_ - (cons (gx#datum->syntax - '#f - 'class::t) - (cons (cons (gx#datum->syntax + 'lambda) + (cons (cons (gx#datum->syntax '#f 'klass) '()) + (cons (cons (gx#datum->syntax + '#f + '##unchecked-structure-ref) + (cons (gx#datum->syntax '#f 'klass) + (cons _%L91521%_ + (cons (gx#datum->syntax '#f - 'quote) - (cons _%L91844%_ + 'class::t) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())))))) + '#f + 'quote) + (cons _%L91523%_ '())) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - '()))) + (cons (cons (gx#datum->syntax '#f 'def) + (cons _%L91639%_ + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '@mop.mutator) + (cons _%L91556%_ (cons _%L91523%_ (cons '#t '())))) + (cons (cons (gx#datum->syntax '#f 'lambda) + (cons (cons (gx#datum->syntax '#f 'klass) + (cons (gx#datum->syntax '#f 'val) + '())) + (cons (cons (gx#datum->syntax + '#f + '##structure-set!) + (cons (gx#datum->syntax + '#f + 'klass) + (cons (gx#datum->syntax + '#f + 'val) + (cons _%L91521%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (gx#datum->syntax '#f 'class::t) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L91523%_ '())) + '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))))) + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (cons (cons (gx#datum->syntax '#f 'def) + (cons _%L91667%_ + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '@mop.mutator) + (cons _%L91556%_ + (cons _%L91523%_ (cons '#f '())))) + (cons (cons (gx#datum->syntax '#f 'lambda) + (cons (cons (gx#datum->syntax '#f 'klass) + (cons (gx#datum->syntax + '#f + 'val) + '())) + (cons (cons (gx#datum->syntax + '#f + '##unchecked-structure-set!) + (cons (gx#datum->syntax + '#f + 'klass) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'val) + (cons _%L91521%_ + (cons (gx#datum->syntax '#f 'class::t) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L91523%_ '())) + '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9197491985%_)))) - (_%g9197292003%_ - (gx#stx-identifier - _%L91844%_ - '"&" - _%L91960%_))))) - _%g9194691957%_)))) - (_%g9194492007%_ - (gx#stx-identifier - _%L91844%_ - _%L91904%_ - '"-set!"))))) - _%g9191891929%_)))) + _%g9165391664%_)))) + (_%g9165191682%_ + (gx#stx-identifier + _%L91523%_ + '"&" + _%L91639%_)))) + _%g9162591636%_)))) + (_%g9162391686%_ + (gx#stx-identifier _%L91523%_ _%L91583%_ '"-set!")))) + _%g9159791608%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9191692011%_ - (gx#stx-identifier - _%L91844%_ - '"&" - _%L91904%_))))) - _%g9189091901%_)))) - (_%g9188892015%_ - (gx#stx-identifier - _%L91844%_ - '"class-type-" - _%L91844%_))))) - _%g9186391874%_)))) - (_%g9186192019%_ (gx#core-quote-syntax 'class::t)))) - _%hd9178891836%_ - _%hd9178591826%_) - (_%g9177491795%_ _%g9177591799%_)) + (_%g9159591690%_ + (gx#stx-identifier + _%L91523%_ + '"&" + _%L91583%_)))) + _%g9156991580%_)))) + (_%g9156791694%_ + (gx#stx-identifier + _%L91523%_ + '"class-type-" + _%L91523%_)))) + _%g9154291553%_)))) + (_%g9154091698%_ (gx#core-quote-syntax 'class::t)))) + _%hd9146791515%_ + _%hd9146491505%_) + (_%g9145391474%_ _%g9145491478%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9177491795%_ - _%g9177591799%_)))) - (_%g9177491795%_ - _%g9177591799%_)))) - (_%g9177491795%_ _%g9177591799%_)))) - (_%g9177491795%_ _%g9177591799%_)))) - (_%g9177491795%_ _%g9177591799%_))))) - (_%g9177392023%_ _%stx91771%_)))) + (_%g9145391474%_ + _%g9145491478%_)))) + (_%g9145391474%_ + _%g9145491478%_)))) + (_%g9145391474%_ _%g9145491478%_)))) + (_%g9145391474%_ _%g9145491478%_)))) + (_%g9145391474%_ _%g9145491478%_))))) + (_%g9145291702%_ _%stx91450%_)))) (define |[:0:]#defrefset*| - (lambda (_%$stx92027%_) - (let* ((_%g9203192060%_ - (lambda (_%g9203292056%_) + (lambda (_%$stx91706%_) + (let* ((_%g9171091739%_ + (lambda (_%g9171191735%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9203292056%_))) - (_%g9203092160%_ - (lambda (_%g9203292064%_) - (if (gx#stx-pair? _%g9203292064%_) - (let ((_%e9203792067%_ (gx#syntax-e _%g9203292064%_))) - (let ((_%hd9203692071%_ + _%g9171191735%_))) + (_%g9170991839%_ + (lambda (_%g9171191743%_) + (if (gx#stx-pair? _%g9171191743%_) + (let ((_%e9171691746%_ (gx#syntax-e _%g9171191743%_))) + (let ((_%hd9171591750%_ (let () (declare (not safe)) - (##car _%e9203792067%_))) - (_%tl9203592074%_ + (##car _%e9171691746%_))) + (_%tl9171491753%_ (let () (declare (not safe)) - (##cdr _%e9203792067%_)))) - (if (gx#stx-pair/null? _%tl9203592074%_) - (let ((_g98346_ + (##cdr _%e9171691746%_)))) + (if (gx#stx-pair/null? _%tl9171491753%_) + (let ((_g97947_ (gx#syntax-split-splice - _%tl9203592074%_ + _%tl9171491753%_ '0))) (begin - (let ((_g98347_ + (let ((_g97948_ (let () (declare (not safe)) - (if (##values? _g98346_) - (##vector-length _g98346_) + (if (##values? _g97947_) + (##vector-length _g97947_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98347_ 2))) + (##fx= _g97948_ 2))) (error "Context expects 2 values" - _g98347_))) - (let ((_%target9203892077%_ + _g97948_))) + (let ((_%target9171791756%_ (let () (declare (not safe)) - (##vector-ref _g98346_ 0))) - (_%tl9204092080%_ + (##vector-ref _g97947_ 0))) + (_%tl9171991759%_ (let () (declare (not safe)) - (##vector-ref _g98346_ 1)))) - (if (gx#stx-null? _%tl9204092080%_) - (letrec ((_%loop9204192083%_ - (lambda (_%hd9203992087%_ - _%field9204592090%_ - _%slot9204692092%_) + (##vector-ref _g97947_ 1)))) + (if (gx#stx-null? _%tl9171991759%_) + (letrec ((_%loop9172091762%_ + (lambda (_%hd9171891766%_ + _%field9172491769%_ + _%slot9172591771%_) (if (gx#stx-pair? - _%hd9203992087%_) - (let ((_%e9204292095%_ + _%hd9171891766%_) + (let ((_%e9172191774%_ (gx#syntax-e - _%hd9203992087%_))) - (let ((_%lp-hd9204392099%_ + _%hd9171891766%_))) + (let ((_%lp-hd9172291778%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e9204292095%_))) - (_%lp-tl9204492102%_ - (let () (declare (not safe)) (##cdr _%e9204292095%_)))) - (if (gx#stx-pair? _%lp-hd9204392099%_) - (let ((_%e9205192105%_ - (gx#syntax-e _%lp-hd9204392099%_))) - (let ((_%hd9205092109%_ + (##car _%e9172191774%_))) + (_%lp-tl9172391781%_ + (let () (declare (not safe)) (##cdr _%e9172191774%_)))) + (if (gx#stx-pair? _%lp-hd9172291778%_) + (let ((_%e9173091784%_ + (gx#syntax-e _%lp-hd9172291778%_))) + (let ((_%hd9172991788%_ (let () (declare (not safe)) - (##car _%e9205192105%_))) - (_%tl9204992112%_ + (##car _%e9173091784%_))) + (_%tl9172891791%_ (let () (declare (not safe)) - (##cdr _%e9205192105%_)))) - (if (gx#stx-pair? _%tl9204992112%_) - (let ((_%e9205492115%_ - (gx#syntax-e _%tl9204992112%_))) - (let ((_%hd9205392119%_ + (##cdr _%e9173091784%_)))) + (if (gx#stx-pair? _%tl9172891791%_) + (let ((_%e9173391794%_ + (gx#syntax-e _%tl9172891791%_))) + (let ((_%hd9173291798%_ (let () (declare (not safe)) - (##car _%e9205492115%_))) - (_%tl9205292122%_ + (##car _%e9173391794%_))) + (_%tl9173191801%_ (let () (declare (not safe)) - (##cdr _%e9205492115%_)))) - (if (gx#stx-null? _%tl9205292122%_) - (_%loop9204192083%_ - _%lp-tl9204492102%_ - (cons _%hd9205392119%_ - _%field9204592090%_) - (cons _%hd9205092109%_ - _%slot9204692092%_)) - (_%g9203192060%_ _%g9203292064%_)))) - (_%g9203192060%_ _%g9203292064%_)))) - (_%g9203192060%_ _%g9203292064%_)))) - (let ((_%field9204792125%_ (reverse _%field9204592090%_)) - (_%slot9204892128%_ (reverse _%slot9204692092%_))) - ((lambda (_%L92131%_ _%L92133%_) + (##cdr _%e9173391794%_)))) + (if (gx#stx-null? _%tl9173191801%_) + (_%loop9172091762%_ + _%lp-tl9172391781%_ + (cons _%hd9173291798%_ + _%field9172491769%_) + (cons _%hd9172991788%_ + _%slot9172591771%_)) + (_%g9171091739%_ _%g9171191743%_)))) + (_%g9171091739%_ _%g9171191743%_)))) + (_%g9171091739%_ _%g9171191743%_)))) + (let ((_%field9172691804%_ (reverse _%field9172491769%_)) + (_%slot9172791807%_ (reverse _%slot9172591771%_))) + ((lambda (_%L91810%_ _%L91812%_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _%L92131%_ - _%L92133%_) - (let ((__tmp98348 - (lambda (_%g9214892152%_ - _%g9214992155%_ - _%g9215092157%_) + _%L91810%_ + _%L91812%_) + (let ((__tmp97949 + (lambda (_%g9182791831%_ + _%g9182891834%_ + _%g9182991836%_) (cons (cons (gx#datum->syntax '#f 'defrefset) - (cons (cons _%g9214992155%_ - (cons _%g9214892152%_ + (cons (cons _%g9182891834%_ + (cons _%g9182791831%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9215092157%_)))) + _%g9182991836%_)))) (declare (not safe)) (__foldr2 - __tmp98348 + __tmp97949 '() - _%L92131%_ - _%L92133%_))))) - _%field9204792125%_ - _%slot9204892128%_)))))) + _%L91810%_ + _%L91812%_))))) + _%field9172691804%_ + _%slot9172791807%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9204192083%_ - _%target9203892077%_ + (_%loop9172091762%_ + _%target9171791756%_ '() '())) - (_%g9203192060%_ _%g9203292064%_))))) - (_%g9203192060%_ _%g9203292064%_)))) - (_%g9203192060%_ _%g9203292064%_))))) - (_%g9203092160%_ _%$stx92027%_)))) + (_%g9171091739%_ _%g9171191743%_))))) + (_%g9171091739%_ _%g9171191743%_)))) + (_%g9171091739%_ _%g9171191743%_))))) + (_%g9170991839%_ _%$stx91706%_)))) (define |[:0:]#if-class-slot-field| - (lambda (_%$stx92165%_) - (let* ((_%g9216992203%_ - (lambda (_%g9217092199%_) + (lambda (_%$stx91844%_) + (let* ((_%g9184891882%_ + (lambda (_%g9184991878%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9217092199%_))) - (_%g9216892314%_ - (lambda (_%g9217092207%_) - (if (gx#stx-pair? _%g9217092207%_) - (let ((_%e9217992210%_ (gx#syntax-e _%g9217092207%_))) - (let ((_%hd9217892214%_ + _%g9184991878%_))) + (_%g9184791993%_ + (lambda (_%g9184991886%_) + (if (gx#stx-pair? _%g9184991886%_) + (let ((_%e9185891889%_ (gx#syntax-e _%g9184991886%_))) + (let ((_%hd9185791893%_ (let () (declare (not safe)) - (##car _%e9217992210%_))) - (_%tl9217792217%_ + (##car _%e9185891889%_))) + (_%tl9185691896%_ (let () (declare (not safe)) - (##cdr _%e9217992210%_)))) - (if (gx#stx-pair? _%tl9217792217%_) - (let ((_%e9218292220%_ - (gx#syntax-e _%tl9217792217%_))) - (let ((_%hd9218192224%_ + (##cdr _%e9185891889%_)))) + (if (gx#stx-pair? _%tl9185691896%_) + (let ((_%e9186191899%_ + (gx#syntax-e _%tl9185691896%_))) + (let ((_%hd9186091903%_ (let () (declare (not safe)) - (##car _%e9218292220%_))) - (_%tl9218092227%_ + (##car _%e9186191899%_))) + (_%tl9185991906%_ (let () (declare (not safe)) - (##cdr _%e9218292220%_)))) - (if (gx#stx-pair? _%tl9218092227%_) - (let ((_%e9218592230%_ - (gx#syntax-e _%tl9218092227%_))) - (let ((_%hd9218492234%_ + (##cdr _%e9186191899%_)))) + (if (gx#stx-pair? _%tl9185991906%_) + (let ((_%e9186491909%_ + (gx#syntax-e _%tl9185991906%_))) + (let ((_%hd9186391913%_ (let () (declare (not safe)) - (##car _%e9218592230%_))) - (_%tl9218392237%_ + (##car _%e9186491909%_))) + (_%tl9186291916%_ (let () (declare (not safe)) - (##cdr _%e9218592230%_)))) - (if (gx#stx-pair? _%tl9218392237%_) - (let ((_%e9218892240%_ + (##cdr _%e9186491909%_)))) + (if (gx#stx-pair? _%tl9186291916%_) + (let ((_%e9186791919%_ (gx#syntax-e - _%tl9218392237%_))) - (let ((_%hd9218792244%_ + _%tl9186291916%_))) + (let ((_%hd9186691923%_ (let () (declare (not safe)) - (##car _%e9218892240%_))) - (_%tl9218692247%_ + (##car _%e9186791919%_))) + (_%tl9186591926%_ (let () (declare (not safe)) - (##cdr _%e9218892240%_)))) + (##cdr _%e9186791919%_)))) (if (gx#stx-pair? - _%tl9218692247%_) - (let ((_%e9219192250%_ + _%tl9186591926%_) + (let ((_%e9187091929%_ (gx#syntax-e - _%tl9218692247%_))) - (let ((_%hd9219092254%_ + _%tl9186591926%_))) + (let ((_%hd9186991933%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9219192250%_))) - (_%tl9218992257%_ - (let () (declare (not safe)) (##cdr _%e9219192250%_)))) - (if (gx#stx-pair? _%tl9218992257%_) - (let ((_%e9219492260%_ (gx#syntax-e _%tl9218992257%_))) - (let ((_%hd9219392264%_ + (##car _%e9187091929%_))) + (_%tl9186891936%_ + (let () (declare (not safe)) (##cdr _%e9187091929%_)))) + (if (gx#stx-pair? _%tl9186891936%_) + (let ((_%e9187391939%_ (gx#syntax-e _%tl9186891936%_))) + (let ((_%hd9187291943%_ (let () (declare (not safe)) - (##car _%e9219492260%_))) - (_%tl9219292267%_ + (##car _%e9187391939%_))) + (_%tl9187191946%_ (let () (declare (not safe)) - (##cdr _%e9219492260%_)))) - (if (gx#stx-pair? _%tl9219292267%_) - (let ((_%e9219792270%_ - (gx#syntax-e _%tl9219292267%_))) - (let ((_%hd9219692274%_ + (##cdr _%e9187391939%_)))) + (if (gx#stx-pair? _%tl9187191946%_) + (let ((_%e9187691949%_ + (gx#syntax-e _%tl9187191946%_))) + (let ((_%hd9187591953%_ (let () (declare (not safe)) - (##car _%e9219792270%_))) - (_%tl9219592277%_ + (##car _%e9187691949%_))) + (_%tl9187491956%_ (let () (declare (not safe)) - (##cdr _%e9219792270%_)))) - (if (gx#stx-null? _%tl9219592277%_) - ((lambda (_%L92280%_ - _%L92282%_ - _%L92283%_ - _%L92284%_ - _%L92285%_ - _%L92286%_) + (##cdr _%e9187691949%_)))) + (if (gx#stx-null? _%tl9187491956%_) + ((lambda (_%L91959%_ + _%L91961%_ + _%L91962%_ + _%L91963%_ + _%L91964%_ + _%L91965%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f @@ -736,8 +727,8 @@ (cons (cons (gx#datum->syntax '#f '&class-type-slot-table) - (cons _%L92286%_ '())) - (cons _%L92285%_ (cons '#f '())))) + (cons _%L91965%_ '())) + (cons _%L91964%_ (cons '#f '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -756,18 +747,18 @@ (cons '"unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'class: - (cons _%L92286%_ - (cons 'slot: (cons _%L92285%_ '())))))) + (cons _%L91965%_ + (cons 'slot: (cons _%L91964%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) (cons (cons (cons (gx#datum->syntax '#f 'class-type-final?) - (cons _%L92286%_ '())) - (cons (cons _%L92284%_ - (cons _%L92286%_ - (cons _%L92285%_ + (cons _%L91965%_ '())) + (cons (cons _%L91963%_ + (cons _%L91965%_ + (cons _%L91964%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'field) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -775,11 +766,11 @@ (cons (cons (cons (gx#datum->syntax '#f 'class-type-struct?) - (cons _%L92286%_ '())) - (cons (cons _%L92283%_ - (cons _%L92286%_ + (cons _%L91965%_ '())) + (cons (cons _%L91962%_ + (cons _%L91965%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L92285%_ + (cons _%L91964%_ (cons (gx#datum->syntax '#f 'field) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -793,7 +784,7 @@ (cons (cons (gx#datum->syntax '#f 'base-struct/1) - (cons _%L92286%_ '())) + (cons _%L91965%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax @@ -826,10 +817,10 @@ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L92282%_ + (cons (cons _%L91961%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L92286%_ - (cons _%L92285%_ + (cons _%L91965%_ + (cons _%L91964%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -837,10 +828,10 @@ (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L92280%_ + (cons (cons _%L91959%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L92286%_ - (cons _%L92285%_ + (cons _%L91965%_ + (cons _%L91964%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -848,99 +839,99 @@ '())))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9219692274%_ - _%hd9219392264%_ - _%hd9219092254%_ - _%hd9218792244%_ - _%hd9218492234%_ - _%hd9218192224%_) - (_%g9216992203%_ _%g9217092207%_)))) - (_%g9216992203%_ _%g9217092207%_)))) - (_%g9216992203%_ _%g9217092207%_)))) + _%hd9187591953%_ + _%hd9187291943%_ + _%hd9186991933%_ + _%hd9186691923%_ + _%hd9186391913%_ + _%hd9186091903%_) + (_%g9184891882%_ _%g9184991886%_)))) + (_%g9184891882%_ _%g9184991886%_)))) + (_%g9184891882%_ _%g9184991886%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9216992203%_ - _%g9217092207%_)))) - (_%g9216992203%_ - _%g9217092207%_)))) - (_%g9216992203%_ _%g9217092207%_)))) - (_%g9216992203%_ _%g9217092207%_)))) - (_%g9216992203%_ _%g9217092207%_))))) - (_%g9216892314%_ _%$stx92165%_)))) + (_%g9184891882%_ + _%g9184991886%_)))) + (_%g9184891882%_ + _%g9184991886%_)))) + (_%g9184891882%_ _%g9184991886%_)))) + (_%g9184891882%_ _%g9184991886%_)))) + (_%g9184891882%_ _%g9184991886%_))))) + (_%g9184791993%_ _%$stx91844%_)))) (define |[:0:]#__slot-e| - (lambda (_%$stx92318%_) - (let* ((_%g9232292348%_ - (lambda (_%g9232392344%_) + (lambda (_%$stx91997%_) + (let* ((_%g9200192027%_ + (lambda (_%g9200292023%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9232392344%_))) - (_%g9232192431%_ - (lambda (_%g9232392352%_) - (if (gx#stx-pair? _%g9232392352%_) - (let ((_%e9233092355%_ (gx#syntax-e _%g9232392352%_))) - (let ((_%hd9232992359%_ + _%g9200292023%_))) + (_%g9200092110%_ + (lambda (_%g9200292031%_) + (if (gx#stx-pair? _%g9200292031%_) + (let ((_%e9200992034%_ (gx#syntax-e _%g9200292031%_))) + (let ((_%hd9200892038%_ (let () (declare (not safe)) - (##car _%e9233092355%_))) - (_%tl9232892362%_ + (##car _%e9200992034%_))) + (_%tl9200792041%_ (let () (declare (not safe)) - (##cdr _%e9233092355%_)))) - (if (gx#stx-pair? _%tl9232892362%_) - (let ((_%e9233392365%_ - (gx#syntax-e _%tl9232892362%_))) - (let ((_%hd9233292369%_ + (##cdr _%e9200992034%_)))) + (if (gx#stx-pair? _%tl9200792041%_) + (let ((_%e9201292044%_ + (gx#syntax-e _%tl9200792041%_))) + (let ((_%hd9201192048%_ (let () (declare (not safe)) - (##car _%e9233392365%_))) - (_%tl9233192372%_ + (##car _%e9201292044%_))) + (_%tl9201092051%_ (let () (declare (not safe)) - (##cdr _%e9233392365%_)))) - (if (gx#stx-pair? _%tl9233192372%_) - (let ((_%e9233692375%_ - (gx#syntax-e _%tl9233192372%_))) - (let ((_%hd9233592379%_ + (##cdr _%e9201292044%_)))) + (if (gx#stx-pair? _%tl9201092051%_) + (let ((_%e9201592054%_ + (gx#syntax-e _%tl9201092051%_))) + (let ((_%hd9201492058%_ (let () (declare (not safe)) - (##car _%e9233692375%_))) - (_%tl9233492382%_ + (##car _%e9201592054%_))) + (_%tl9201392061%_ (let () (declare (not safe)) - (##cdr _%e9233692375%_)))) - (if (gx#stx-pair? _%tl9233492382%_) - (let ((_%e9233992385%_ + (##cdr _%e9201592054%_)))) + (if (gx#stx-pair? _%tl9201392061%_) + (let ((_%e9201892064%_ (gx#syntax-e - _%tl9233492382%_))) - (let ((_%hd9233892389%_ + _%tl9201392061%_))) + (let ((_%hd9201792068%_ (let () (declare (not safe)) - (##car _%e9233992385%_))) - (_%tl9233792392%_ + (##car _%e9201892064%_))) + (_%tl9201692071%_ (let () (declare (not safe)) - (##cdr _%e9233992385%_)))) + (##cdr _%e9201892064%_)))) (if (gx#stx-pair? - _%tl9233792392%_) - (let ((_%e9234292395%_ + _%tl9201692071%_) + (let ((_%e9202192074%_ (gx#syntax-e - _%tl9233792392%_))) - (let ((_%hd9234192399%_ + _%tl9201692071%_))) + (let ((_%hd9202092078%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9234292395%_))) - (_%tl9234092402%_ - (let () (declare (not safe)) (##cdr _%e9234292395%_)))) - (if (gx#stx-null? _%tl9234092402%_) - ((lambda (_%L92405%_ _%L92407%_ _%L92408%_ _%L92409%_) + (##car _%e9202192074%_))) + (_%tl9201992081%_ + (let () (declare (not safe)) (##cdr _%e9202192074%_)))) + (if (gx#stx-null? _%tl9201992081%_) + ((lambda (_%L92084%_ _%L92086%_ _%L92087%_ _%L92088%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'klass) (cons (cons (gx#datum->syntax '#f 'class-of) - (cons _%L92409%_ '())) + (cons _%L92088%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'cond) (cons (cons (cons (gx#datum->syntax @@ -948,287 +939,287 @@ '#f 'class-slot-offset) (cons (gx#datum->syntax '#f 'klass) - (cons _%L92408%_ '()))) - (cons (gx#datum->syntax '#f '=>) (cons _%L92407%_ '()))) + (cons _%L92087%_ '()))) + (cons (gx#datum->syntax '#f '=>) (cons _%L92086%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'else) - (cons (cons _%L92405%_ - (cons _%L92409%_ (cons _%L92408%_ '()))) + (cons (cons _%L92084%_ + (cons _%L92088%_ (cons _%L92087%_ '()))) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd9234192399%_ - _%hd9233892389%_ - _%hd9233592379%_ - _%hd9233292369%_) - (_%g9232292348%_ _%g9232392352%_)))) + _%hd9202092078%_ + _%hd9201792068%_ + _%hd9201492058%_ + _%hd9201192048%_) + (_%g9200192027%_ _%g9200292031%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9232292348%_ - _%g9232392352%_)))) - (_%g9232292348%_ - _%g9232392352%_)))) - (_%g9232292348%_ _%g9232392352%_)))) - (_%g9232292348%_ _%g9232392352%_)))) - (_%g9232292348%_ _%g9232392352%_))))) - (_%g9232192431%_ _%$stx92318%_)))) + (_%g9200192027%_ + _%g9200292031%_)))) + (_%g9200192027%_ + _%g9200292031%_)))) + (_%g9200192027%_ _%g9200292031%_)))) + (_%g9200192027%_ _%g9200292031%_)))) + (_%g9200192027%_ _%g9200292031%_))))) + (_%g9200092110%_ _%$stx91997%_)))) (define |[:0:]#defsubtype| - (lambda (_%$stx92435%_) - (let* ((_%g9243992468%_ - (lambda (_%g9244092464%_) + (lambda (_%$stx92114%_) + (let* ((_%g9211892147%_ + (lambda (_%g9211992143%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9244092464%_))) - (_%g9243892568%_ - (lambda (_%g9244092472%_) - (if (gx#stx-pair? _%g9244092472%_) - (let ((_%e9244592475%_ (gx#syntax-e _%g9244092472%_))) - (let ((_%hd9244492479%_ + _%g9211992143%_))) + (_%g9211792247%_ + (lambda (_%g9211992151%_) + (if (gx#stx-pair? _%g9211992151%_) + (let ((_%e9212492154%_ (gx#syntax-e _%g9211992151%_))) + (let ((_%hd9212392158%_ (let () (declare (not safe)) - (##car _%e9244592475%_))) - (_%tl9244392482%_ + (##car _%e9212492154%_))) + (_%tl9212292161%_ (let () (declare (not safe)) - (##cdr _%e9244592475%_)))) - (if (gx#stx-pair/null? _%tl9244392482%_) - (let ((_g98349_ + (##cdr _%e9212492154%_)))) + (if (gx#stx-pair/null? _%tl9212292161%_) + (let ((_g97950_ (gx#syntax-split-splice - _%tl9244392482%_ + _%tl9212292161%_ '0))) (begin - (let ((_g98350_ + (let ((_g97951_ (let () (declare (not safe)) - (if (##values? _g98349_) - (##vector-length _g98349_) + (if (##values? _g97950_) + (##vector-length _g97950_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98350_ 2))) + (##fx= _g97951_ 2))) (error "Context expects 2 values" - _g98350_))) - (let ((_%target9244692485%_ + _g97951_))) + (let ((_%target9212592164%_ (let () (declare (not safe)) - (##vector-ref _g98349_ 0))) - (_%tl9244892488%_ + (##vector-ref _g97950_ 0))) + (_%tl9212792167%_ (let () (declare (not safe)) - (##vector-ref _g98349_ 1)))) - (if (gx#stx-null? _%tl9244892488%_) - (letrec ((_%loop9244992491%_ - (lambda (_%hd9244792495%_ - _%name9245392498%_ - _%t9245492500%_) + (##vector-ref _g97950_ 1)))) + (if (gx#stx-null? _%tl9212792167%_) + (letrec ((_%loop9212892170%_ + (lambda (_%hd9212692174%_ + _%name9213292177%_ + _%t9213392179%_) (if (gx#stx-pair? - _%hd9244792495%_) - (let ((_%e9245092503%_ + _%hd9212692174%_) + (let ((_%e9212992182%_ (gx#syntax-e - _%hd9244792495%_))) - (let ((_%lp-hd9245192507%_ + _%hd9212692174%_))) + (let ((_%lp-hd9213092186%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e9245092503%_))) - (_%lp-tl9245292510%_ - (let () (declare (not safe)) (##cdr _%e9245092503%_)))) - (if (gx#stx-pair? _%lp-hd9245192507%_) - (let ((_%e9245992513%_ - (gx#syntax-e _%lp-hd9245192507%_))) - (let ((_%hd9245892517%_ + (##car _%e9212992182%_))) + (_%lp-tl9213192189%_ + (let () (declare (not safe)) (##cdr _%e9212992182%_)))) + (if (gx#stx-pair? _%lp-hd9213092186%_) + (let ((_%e9213892192%_ + (gx#syntax-e _%lp-hd9213092186%_))) + (let ((_%hd9213792196%_ (let () (declare (not safe)) - (##car _%e9245992513%_))) - (_%tl9245792520%_ + (##car _%e9213892192%_))) + (_%tl9213692199%_ (let () (declare (not safe)) - (##cdr _%e9245992513%_)))) - (if (gx#stx-pair? _%tl9245792520%_) - (let ((_%e9246292523%_ - (gx#syntax-e _%tl9245792520%_))) - (let ((_%hd9246192527%_ + (##cdr _%e9213892192%_)))) + (if (gx#stx-pair? _%tl9213692199%_) + (let ((_%e9214192202%_ + (gx#syntax-e _%tl9213692199%_))) + (let ((_%hd9214092206%_ (let () (declare (not safe)) - (##car _%e9246292523%_))) - (_%tl9246092530%_ + (##car _%e9214192202%_))) + (_%tl9213992209%_ (let () (declare (not safe)) - (##cdr _%e9246292523%_)))) - (if (gx#stx-null? _%tl9246092530%_) - (_%loop9244992491%_ - _%lp-tl9245292510%_ - (cons _%hd9246192527%_ - _%name9245392498%_) - (cons _%hd9245892517%_ _%t9245492500%_)) - (_%g9243992468%_ _%g9244092472%_)))) - (_%g9243992468%_ _%g9244092472%_)))) - (_%g9243992468%_ _%g9244092472%_)))) - (let ((_%name9245592533%_ (reverse _%name9245392498%_)) - (_%t9245692536%_ (reverse _%t9245492500%_))) - ((lambda (_%L92539%_ _%L92541%_) + (##cdr _%e9214192202%_)))) + (if (gx#stx-null? _%tl9213992209%_) + (_%loop9212892170%_ + _%lp-tl9213192189%_ + (cons _%hd9214092206%_ + _%name9213292177%_) + (cons _%hd9213792196%_ _%t9213392179%_)) + (_%g9211892147%_ _%g9211992151%_)))) + (_%g9211892147%_ _%g9211992151%_)))) + (_%g9211892147%_ _%g9211992151%_)))) + (let ((_%name9213492212%_ (reverse _%name9213292177%_)) + (_%t9213592215%_ (reverse _%t9213392179%_))) + ((lambda (_%L92218%_ _%L92220%_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _%L92539%_ - _%L92541%_) - (let ((__tmp98351 - (lambda (_%g9255692560%_ - _%g9255792563%_ - _%g9255892565%_) + _%L92218%_ + _%L92220%_) + (let ((__tmp97952 + (lambda (_%g9223592239%_ + _%g9223692242%_ + _%g9223792244%_) (cons (cons (gx#datum->syntax '#f 'vector-set!) (cons (gx#datum->syntax '#f '__subtype-id) - (cons _%g9255792563%_ + (cons _%g9223692242%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g9255692560%_ '())) + (cons _%g9223592239%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9255892565%_)))) + _%g9223792244%_)))) (declare (not safe)) (__foldr2 - __tmp98351 + __tmp97952 '() - _%L92539%_ - _%L92541%_))))) - _%name9245592533%_ - _%t9245692536%_)))))) + _%L92218%_ + _%L92220%_))))) + _%name9213492212%_ + _%t9213592215%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9244992491%_ - _%target9244692485%_ + (_%loop9212892170%_ + _%target9212592164%_ '() '())) - (_%g9243992468%_ _%g9244092472%_))))) - (_%g9243992468%_ _%g9244092472%_)))) - (_%g9243992468%_ _%g9244092472%_))))) - (_%g9243892568%_ _%$stx92435%_)))) + (_%g9211892147%_ _%g9211992151%_))))) + (_%g9211892147%_ _%g9211992151%_)))) + (_%g9211892147%_ _%g9211992151%_))))) + (_%g9211792247%_ _%$stx92114%_)))) (define |[:0:]#defsystem-class| - (lambda (_%$stx92573%_) - (let* ((_%g9257792608%_ - (lambda (_%g9257892604%_) + (lambda (_%$stx92252%_) + (let* ((_%g9225692287%_ + (lambda (_%g9225792283%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9257892604%_))) - (_%g9257692727%_ - (lambda (_%g9257892612%_) - (if (gx#stx-pair? _%g9257892612%_) - (let ((_%e9258492615%_ (gx#syntax-e _%g9257892612%_))) - (let ((_%hd9258392619%_ + _%g9225792283%_))) + (_%g9225592406%_ + (lambda (_%g9225792291%_) + (if (gx#stx-pair? _%g9225792291%_) + (let ((_%e9226392294%_ (gx#syntax-e _%g9225792291%_))) + (let ((_%hd9226292298%_ (let () (declare (not safe)) - (##car _%e9258492615%_))) - (_%tl9258292622%_ + (##car _%e9226392294%_))) + (_%tl9226192301%_ (let () (declare (not safe)) - (##cdr _%e9258492615%_)))) - (if (gx#stx-pair? _%tl9258292622%_) - (let ((_%e9258792625%_ - (gx#syntax-e _%tl9258292622%_))) - (let ((_%hd9258692629%_ + (##cdr _%e9226392294%_)))) + (if (gx#stx-pair? _%tl9226192301%_) + (let ((_%e9226692304%_ + (gx#syntax-e _%tl9226192301%_))) + (let ((_%hd9226592308%_ (let () (declare (not safe)) - (##car _%e9258792625%_))) - (_%tl9258592632%_ + (##car _%e9226692304%_))) + (_%tl9226492311%_ (let () (declare (not safe)) - (##cdr _%e9258792625%_)))) - (if (gx#stx-pair? _%tl9258592632%_) - (let ((_%e9259092635%_ - (gx#syntax-e _%tl9258592632%_))) - (let ((_%hd9258992639%_ + (##cdr _%e9226692304%_)))) + (if (gx#stx-pair? _%tl9226492311%_) + (let ((_%e9226992314%_ + (gx#syntax-e _%tl9226492311%_))) + (let ((_%hd9226892318%_ (let () (declare (not safe)) - (##car _%e9259092635%_))) - (_%tl9258892642%_ + (##car _%e9226992314%_))) + (_%tl9226792321%_ (let () (declare (not safe)) - (##cdr _%e9259092635%_)))) - (if (gx#stx-pair? _%tl9258892642%_) - (let ((_%e9259392645%_ + (##cdr _%e9226992314%_)))) + (if (gx#stx-pair? _%tl9226792321%_) + (let ((_%e9227292324%_ (gx#syntax-e - _%tl9258892642%_))) - (let ((_%hd9259292649%_ + _%tl9226792321%_))) + (let ((_%hd9227192328%_ (let () (declare (not safe)) - (##car _%e9259392645%_))) - (_%tl9259192652%_ + (##car _%e9227292324%_))) + (_%tl9227092331%_ (let () (declare (not safe)) - (##cdr _%e9259392645%_)))) + (##cdr _%e9227292324%_)))) (if (gx#stx-pair/null? - _%hd9259292649%_) - (let ((_g98352_ + _%hd9227192328%_) + (let ((_g97953_ (gx#syntax-split-splice - _%hd9259292649%_ + _%hd9227192328%_ '0))) (begin - (let ((_g98353_ + (let ((_g97954_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g98352_) - (##vector-length _g98352_) + (if (##values? _g97953_) + (##vector-length _g97953_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g98353_ 2))) - (error "Context expects 2 values" _g98353_))) - (let ((_%target9259492655%_ - (let () (declare (not safe)) (##vector-ref _g98352_ 0))) - (_%tl9259692658%_ + (if (not (let () (declare (not safe)) (##fx= _g97954_ 2))) + (error "Context expects 2 values" _g97954_))) + (let ((_%target9227392334%_ + (let () (declare (not safe)) (##vector-ref _g97953_ 0))) + (_%tl9227592337%_ (let () (declare (not safe)) - (##vector-ref _g98352_ 1)))) - (if (gx#stx-null? _%tl9259692658%_) - (letrec ((_%loop9259792661%_ - (lambda (_%hd9259592665%_ _%super9260192668%_) - (if (gx#stx-pair? _%hd9259592665%_) - (let ((_%e9259892671%_ - (gx#syntax-e _%hd9259592665%_))) - (let ((_%lp-hd9259992675%_ + (##vector-ref _g97953_ 1)))) + (if (gx#stx-null? _%tl9227592337%_) + (letrec ((_%loop9227692340%_ + (lambda (_%hd9227492344%_ _%super9228092347%_) + (if (gx#stx-pair? _%hd9227492344%_) + (let ((_%e9227792350%_ + (gx#syntax-e _%hd9227492344%_))) + (let ((_%lp-hd9227892354%_ (let () (declare (not safe)) - (##car _%e9259892671%_))) - (_%lp-tl9260092678%_ + (##car _%e9227792350%_))) + (_%lp-tl9227992357%_ (let () (declare (not safe)) - (##cdr _%e9259892671%_)))) - (_%loop9259792661%_ - _%lp-tl9260092678%_ - (cons _%lp-hd9259992675%_ - _%super9260192668%_)))) - (let ((_%super9260292681%_ - (reverse _%super9260192668%_))) - (if (gx#stx-null? _%tl9259192652%_) - ((lambda (_%L92685%_ - _%L92687%_ - _%L92688%_) + (##cdr _%e9227792350%_)))) + (_%loop9227692340%_ + _%lp-tl9227992357%_ + (cons _%lp-hd9227892354%_ + _%super9228092347%_)))) + (let ((_%super9228192360%_ + (reverse _%super9228092347%_))) + (if (gx#stx-null? _%tl9227092331%_) + ((lambda (_%L92364%_ + _%L92366%_ + _%L92367%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L92688%_ + (cons _%L92367%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L92687%_ - (cons (let ((__tmp98354 - (lambda (_%g9271292715%_ + (cons _%L92366%_ + (cons (let ((__tmp97955 + (lambda (_%g9239192394%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9271392718%_) - (cons _%g9271292715%_ _%g9271392718%_)))) + _%g9239292397%_) + (cons _%g9239192394%_ _%g9239292397%_)))) (declare (not safe)) - (__foldr1 __tmp98354 '() _%L92685%_)) + (__foldr1 __tmp97955 '() _%L92364%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -1237,189 +1228,189 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L92687%_ + (cons _%L92366%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (gx#datum->syntax '#f '@list) - (let ((__tmp98355 - (lambda (_%g9271092721%_ _%g9271192724%_) - (cons _%g9271092721%_ _%g9271192724%_)))) + (let ((__tmp97956 + (lambda (_%g9238992400%_ _%g9239092403%_) + (cons _%g9238992400%_ _%g9239092403%_)))) (declare (not safe)) - (__foldr1 __tmp98355 '() _%L92685%_))) + (__foldr1 __tmp97956 '() _%L92364%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%super9260292681%_ - _%hd9258992639%_ - _%hd9258692629%_) - (_%g9257792608%_ - _%g9257892612%_))))))) - (_%loop9259792661%_ _%target9259492655%_ '())) - (_%g9257792608%_ _%g9257892612%_))))) + _%super9228192360%_ + _%hd9226892318%_ + _%hd9226592308%_) + (_%g9225692287%_ + _%g9225792291%_))))))) + (_%loop9227692340%_ _%target9227392334%_ '())) + (_%g9225692287%_ _%g9225792291%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9257792608%_ - _%g9257892612%_)))) - (_%g9257792608%_ - _%g9257892612%_)))) - (_%g9257792608%_ _%g9257892612%_)))) - (_%g9257792608%_ _%g9257892612%_)))) - (_%g9257792608%_ _%g9257892612%_))))) - (_%g9257692727%_ _%$stx92573%_)))) + (_%g9225692287%_ + _%g9225792291%_)))) + (_%g9225692287%_ + _%g9225792291%_)))) + (_%g9225692287%_ _%g9225792291%_)))) + (_%g9225692287%_ _%g9225792291%_)))) + (_%g9225692287%_ _%g9225792291%_))))) + (_%g9225592406%_ _%$stx92252%_)))) (define |[:0:]#defshadow-class| - (lambda (_%$stx92732%_) - (let* ((_%g9273692767%_ - (lambda (_%g9273792763%_) + (lambda (_%$stx92411%_) + (let* ((_%g9241592446%_ + (lambda (_%g9241692442%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9273792763%_))) - (_%g9273592878%_ - (lambda (_%g9273792771%_) - (if (gx#stx-pair? _%g9273792771%_) - (let ((_%e9274392774%_ (gx#syntax-e _%g9273792771%_))) - (let ((_%hd9274292778%_ + _%g9241692442%_))) + (_%g9241492557%_ + (lambda (_%g9241692450%_) + (if (gx#stx-pair? _%g9241692450%_) + (let ((_%e9242292453%_ (gx#syntax-e _%g9241692450%_))) + (let ((_%hd9242192457%_ (let () (declare (not safe)) - (##car _%e9274392774%_))) - (_%tl9274192781%_ + (##car _%e9242292453%_))) + (_%tl9242092460%_ (let () (declare (not safe)) - (##cdr _%e9274392774%_)))) - (if (gx#stx-pair? _%tl9274192781%_) - (let ((_%e9274692784%_ - (gx#syntax-e _%tl9274192781%_))) - (let ((_%hd9274592788%_ + (##cdr _%e9242292453%_)))) + (if (gx#stx-pair? _%tl9242092460%_) + (let ((_%e9242592463%_ + (gx#syntax-e _%tl9242092460%_))) + (let ((_%hd9242492467%_ (let () (declare (not safe)) - (##car _%e9274692784%_))) - (_%tl9274492791%_ + (##car _%e9242592463%_))) + (_%tl9242392470%_ (let () (declare (not safe)) - (##cdr _%e9274692784%_)))) - (if (gx#stx-pair? _%tl9274492791%_) - (let ((_%e9274992794%_ - (gx#syntax-e _%tl9274492791%_))) - (let ((_%hd9274892798%_ + (##cdr _%e9242592463%_)))) + (if (gx#stx-pair? _%tl9242392470%_) + (let ((_%e9242892473%_ + (gx#syntax-e _%tl9242392470%_))) + (let ((_%hd9242792477%_ (let () (declare (not safe)) - (##car _%e9274992794%_))) - (_%tl9274792801%_ + (##car _%e9242892473%_))) + (_%tl9242692480%_ (let () (declare (not safe)) - (##cdr _%e9274992794%_)))) + (##cdr _%e9242892473%_)))) (if (gx#stx-pair/null? - _%hd9274892798%_) - (let ((_g98356_ + _%hd9242792477%_) + (let ((_g97957_ (gx#syntax-split-splice - _%hd9274892798%_ + _%hd9242792477%_ '0))) (begin - (let ((_g98357_ + (let ((_g97958_ (let () (declare (not safe)) (if (##values? - _g98356_) + _g97957_) (##vector-length - _g98356_) + _g97957_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98357_ + (##fx= _g97958_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g98357_))) + (error "Context expects 2 values" _g97958_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target9275092804%_ + (let ((_%target9242992483%_ (let () (declare (not safe)) (##vector-ref - _g98356_ + _g97957_ 0))) - (_%tl9275292807%_ + (_%tl9243192486%_ (let () (declare (not safe)) (##vector-ref - _g98356_ + _g97957_ 1)))) (if (gx#stx-null? - _%tl9275292807%_) - (letrec ((_%loop9275392810%_ - (lambda (_%hd9275192814%_ + _%tl9243192486%_) + (letrec ((_%loop9243292489%_ + (lambda (_%hd9243092493%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%super9275792817%_) - (if (gx#stx-pair? _%hd9275192814%_) - (let ((_%e9275492820%_ - (gx#syntax-e _%hd9275192814%_))) - (let ((_%lp-hd9275592824%_ + _%super9243692496%_) + (if (gx#stx-pair? _%hd9243092493%_) + (let ((_%e9243392499%_ + (gx#syntax-e _%hd9243092493%_))) + (let ((_%lp-hd9243492503%_ (let () (declare (not safe)) - (##car _%e9275492820%_))) - (_%lp-tl9275692827%_ + (##car _%e9243392499%_))) + (_%lp-tl9243592506%_ (let () (declare (not safe)) - (##cdr _%e9275492820%_)))) - (_%loop9275392810%_ - _%lp-tl9275692827%_ - (cons _%lp-hd9275592824%_ - _%super9275792817%_)))) - (let ((_%super9275892830%_ - (reverse _%super9275792817%_))) - (if (gx#stx-pair? _%tl9274792801%_) - (let ((_%e9276192834%_ - (gx#syntax-e _%tl9274792801%_))) - (let ((_%hd9276092838%_ + (##cdr _%e9243392499%_)))) + (_%loop9243292489%_ + _%lp-tl9243592506%_ + (cons _%lp-hd9243492503%_ + _%super9243692496%_)))) + (let ((_%super9243792509%_ + (reverse _%super9243692496%_))) + (if (gx#stx-pair? _%tl9242692480%_) + (let ((_%e9244092513%_ + (gx#syntax-e _%tl9242692480%_))) + (let ((_%hd9243992517%_ (let () (declare (not safe)) - (##car _%e9276192834%_))) - (_%tl9275992841%_ + (##car _%e9244092513%_))) + (_%tl9243892520%_ (let () (declare (not safe)) - (##cdr _%e9276192834%_)))) - (if (gx#stx-null? _%tl9275992841%_) - ((lambda (_%L92844%_ - _%L92846%_ - _%L92847%_) + (##cdr _%e9244092513%_)))) + (if (gx#stx-null? _%tl9243892520%_) + ((lambda (_%L92523%_ + _%L92525%_ + _%L92526%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L92847%_ + (cons _%L92526%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L92847%_ - (cons (let ((__tmp98358 - (lambda (_%g9286992872%_ + (cons _%L92526%_ + (cons (let ((__tmp97959 + (lambda (_%g9254892551%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9287092875%_) - (cons _%g9286992872%_ _%g9287092875%_)))) + _%g9254992554%_) + (cons _%g9254892551%_ _%g9254992554%_)))) (declare (not safe)) - (__foldr1 __tmp98358 '() _%L92846%_)) + (__foldr1 __tmp97959 '() _%L92525%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f '__shadow-class) - (cons _%L92844%_ '())) + (cons _%L92523%_ '())) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9276092838%_ - _%super9275892830%_ - _%hd9274592788%_) - (_%g9273692767%_ - _%g9273792771%_)))) - (_%g9273692767%_ _%g9273792771%_))))))) - (_%loop9275392810%_ _%target9275092804%_ '())) - (_%g9273692767%_ _%g9273792771%_))))) + _%hd9243992517%_ + _%super9243792509%_ + _%hd9242492467%_) + (_%g9241592446%_ + _%g9241692450%_)))) + (_%g9241592446%_ _%g9241692450%_))))))) + (_%loop9243292489%_ _%target9242992483%_ '())) + (_%g9241592446%_ _%g9241692450%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9273692767%_ - _%g9273792771%_)))) - (_%g9273692767%_ _%g9273792771%_)))) - (_%g9273692767%_ _%g9273792771%_)))) - (_%g9273692767%_ _%g9273792771%_))))) - (_%g9273592878%_ _%$stx92732%_))))) + (_%g9241592446%_ + _%g9241692450%_)))) + (_%g9241592446%_ _%g9241692450%_)))) + (_%g9241592446%_ _%g9241692450%_)))) + (_%g9241592446%_ _%g9241692450%_))))) + (_%g9241492557%_ _%$stx92411%_))))) diff --git a/src/bootstrap/gerbil/runtime/repl.ssxi.ss b/src/bootstrap/gerbil/runtime/repl.ssxi.ss index 4f9011886..8a75a835d 100644 --- a/src/bootstrap/gerbil/runtime/repl.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/repl.ssxi.ss @@ -6,4 +6,13 @@ package: gerbil/runtime (@lambda 0 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/repl))) diff --git a/src/bootstrap/gerbil/runtime/repl~0.scm b/src/bootstrap/gerbil/runtime/repl~0.scm index d4d8d70a7..f6261a75a 100644 --- a/src/bootstrap/gerbil/runtime/repl~0.scm +++ b/src/bootstrap/gerbil/runtime/repl~0.scm @@ -1,32 +1,30 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/repl::timestamp 1712533289) + (define gerbil/runtime/repl::timestamp 1712573430) (define replx (lambda () - (letrec ((_%write-reason111943%_ - (lambda (_%exn111949%_) - (lambda (_%cont111951%_ _%port111952%_) + (letrec ((_%write-reason111191%_ + (lambda (_%exn111197%_) + (lambda (_%cont111199%_ _%port111200%_) (let () (declare (not safe)) (##display-exception-in-context - _%exn111949%_ - _%cont111951%_ - _%port111952%_)) + _%exn111197%_ + _%cont111199%_ + _%port111200%_)) '#f)))) - (let ((__tmp111953 - (lambda (_%exn111945%_) - (let ((__tmp111954 - (lambda (_%cont111947%_) - (let ((__tmp111955 - (let () - (declare (not safe)) - (_%write-reason111943%_ _%exn111945%_)))) + (let ((__tmp111201 + (lambda (_%exn111193%_) + (let ((__tmp111202 + (lambda (_%cont111195%_) + (let ((__tmp111203 + (_%write-reason111191%_ _%exn111193%_))) (declare (not safe)) (##repl-within - _%cont111947%_ - __tmp111955 - _%exn111945%_))))) + _%cont111195%_ + __tmp111203 + _%exn111193%_))))) (declare (not safe)) - (##continuation-capture __tmp111954))))) + (##continuation-capture __tmp111202))))) (declare (not safe)) - (with-exception-handler __tmp111953 ##repl)))))) + (with-exception-handler __tmp111201 ##repl)))))) diff --git a/src/bootstrap/gerbil/runtime/syntax.ssxi.ss b/src/bootstrap/gerbil/runtime/syntax.ssxi.ss index 17ed4183e..8929bc6e2 100644 --- a/src/bootstrap/gerbil/runtime/syntax.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/syntax.ssxi.ss @@ -65,15 +65,47 @@ package: gerbil/runtime (@lambda 2 #f signature: - (return: t::t effect: #f arguments: (t::t t::t) unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + (t::t t::t) + unchecked: + #f + origin: + gerbil/runtime/syntax))) (declare-type make-syntax-error (@lambda 6 #f signature: - (return: SyntaxError::t effect: #f arguments: #f unchecked: #f))) + (return: + SyntaxError::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) (declare-type syntax-error? (@predicate SyntaxError::t)) - (declare-type __raise-syntax-error (@lambda (3) #f)) + (declare-type + __raise-syntax-error + (@lambda (3) + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) (declare-class AST::t (@class gerbil#AST::t @@ -98,79 +130,489 @@ package: gerbil/runtime (declare-type &AST-source (@accessor AST::t source #f)) (declare-type &AST-e-set! (@mutator AST::t e #f)) (declare-type &AST-source-set! (@mutator AST::t source #f)) - (declare-type __AST-e (@lambda 1 #f)) - (declare-type __AST-source (@lambda 1 #f)) - (declare-type __AST (@lambda 2 #f)) + (declare-type + __AST-e + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) + (declare-type + __AST-source + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) + (declare-type + __AST + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) (declare-type __AST-eq? (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) (declare-type __AST-pair? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) (declare-type __AST-null? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) (declare-type __AST-datum? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) (declare-type __AST-id? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type __AST-id-list?__% (@lambda 2 #f)) - (declare-type __AST-id-list?__0 (@lambda 1 #f)) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) + (declare-type + __AST-id-list?__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) + (declare-type + __AST-id-list?__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) (declare-type __AST-id-list? - (@case-lambda (1 __AST-id-list?__0) (2 __AST-id-list?__%))) - (declare-type __AST-bind-list? (@lambda 1 #f)) - (declare-type __AST-list?__% (@lambda 2 #f)) - (declare-type __AST-list?__0 (@lambda 1 #f)) + (@case-lambda + (1 + __AST-id-list?__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax)) + (2 + __AST-id-list?__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax)))) + (declare-type + __AST-bind-list? + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) + (declare-type + __AST-list?__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) + (declare-type + __AST-list?__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) (declare-type __AST-list? - (@case-lambda (1 __AST-list?__0) (2 __AST-list?__%))) - (declare-type __AST->list (@lambda 1 #f)) - (declare-type __AST->datum (@lambda 1 #f)) - (declare-type get-readenv (@lambda 1 #f)) - (declare-type read-syntax__% (@lambda 1 #f)) - (declare-type read-syntax__0 (@lambda 0 #f)) + (@case-lambda + (1 + __AST-list?__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax)) + (2 + __AST-list?__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax)))) + (declare-type + __AST->list + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) + (declare-type + __AST->datum + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) + (declare-type + get-readenv + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) + (declare-type + read-syntax__% + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) + (declare-type + read-syntax__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) (declare-type read-syntax - (@case-lambda (0 read-syntax__0) (1 read-syntax__%))) - (declare-type read-syntax-from-file (@lambda 1 #f)) - (declare-type __wrap-syntax (@lambda 2 #f)) - (declare-type __unwrap-syntax (@lambda 2 #f)) + (@case-lambda + (0 + read-syntax__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax)) + (1 + read-syntax__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax)))) + (declare-type + read-syntax-from-file + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) + (declare-type + __wrap-syntax + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) + (declare-type + __unwrap-syntax + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) (declare-type __pp-syntax (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) - (declare-type __make-readtable (@lambda 0 #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) + (declare-type + __make-readtable + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) (declare-type __readtable-bracket-keyword-set! (@lambda 2 macro-readtable-bracket-handler-set!)) (declare-type __readtable-brace-keyword-set! (@lambda 2 macro-readtable-brace-handler-set!)) - (declare-type __read-sharp-bang (@lambda 3 #f)) + (declare-type + __read-sharp-bang + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) + (declare-type + __*readtable* + (optimizer-resolve-class '(typedecl __*readtable*) 't::t)) (declare-type source-location-path? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type source-location-path (@lambda 1 #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax))) + (declare-type + source-location-path + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/syntax)))) diff --git a/src/bootstrap/gerbil/runtime/syntax~0.scm b/src/bootstrap/gerbil/runtime/syntax~0.scm index 4b719aad6..2e6cbb38f 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 1712533289) + (define gerbil/runtime/syntax::timestamp 1712573430) (begin (declare (not safe)) (define SyntaxError::t @@ -13,8 +13,8 @@ '#f)) (define SyntaxError? (__make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _%$args109090%_ - (apply make-instance SyntaxError::t _%$args109090%_))) + (lambda _%$args108428%_ + (apply make-instance SyntaxError::t _%$args108428%_))) (define SyntaxError-message (__make-class-slot-accessor SyntaxError::t 'message)) (define SyntaxError-irritants @@ -71,119 +71,114 @@ (define &SyntaxError-continuation-set! (__make-class-slot-unchecked-mutator SyntaxError::t 'continuation)) (define SyntaxError::display-exception - (lambda (_%self108974%_ _%port108975%_) - (let ((_%self108978%_ _%self108974%_)) - (letrec ((_%location108988%_ + (lambda (_%self108312%_ _%port108313%_) + (let ((_%self108316%_ _%self108312%_)) + (letrec ((_%location108326%_ (lambda () - (let _%lp109050%_ ((_%rest109052%_ + (let _%lp108388%_ ((_%rest108390%_ (##unchecked-structure-ref - _%self108978%_ + _%self108316%_ '3 '#f '#f))) - (let* ((_%rest109053109061%_ _%rest109052%_) - (_%else109055109069%_ (lambda () '#f)) - (_%K109057109078%_ - (lambda (_%rest109072%_ _%hd109073%_) - (let ((_%$e109075%_ - (__AST-source _%hd109073%_))) - (if _%$e109075%_ - _%$e109075%_ - (_%lp109050%_ _%rest109072%_)))))) - (if (##pair? _%rest109053109061%_) - (let ((_%hd109058109081%_ - (##car _%rest109053109061%_)) - (_%tl109059109083%_ - (##cdr _%rest109053109061%_))) - (let* ((_%hd109086%_ _%hd109058109081%_) - (_%rest109088%_ _%tl109059109083%_)) - (_%K109057109078%_ - _%rest109088%_ - _%hd109086%_))) - (_%else109055109069%_))))))) + (let* ((_%rest108391108399%_ _%rest108390%_) + (_%else108393108407%_ (lambda () '#f)) + (_%K108395108416%_ + (lambda (_%rest108410%_ _%hd108411%_) + (let ((_%$e108413%_ + (__AST-source _%hd108411%_))) + (if _%$e108413%_ + _%$e108413%_ + (_%lp108388%_ _%rest108410%_)))))) + (if (##pair? _%rest108391108399%_) + (let ((_%hd108396108419%_ + (##car _%rest108391108399%_)) + (_%tl108397108421%_ + (##cdr _%rest108391108399%_))) + (let* ((_%hd108424%_ _%hd108396108419%_) + (_%rest108426%_ _%tl108397108421%_)) + (_%K108395108416%_ + _%rest108426%_ + _%hd108424%_))) + (_%else108393108407%_))))))) (__call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_%$e108991%_ (_%location108988%_))) - (if _%$e108991%_ - ((lambda (_%where108994%_) - (##display-locat _%where108994%_ '#t _%port108975%_)) - _%$e108991%_) - (let () (display '"?")))) + (let ((_%$e108329%_ (_%location108326%_))) + (if _%$e108329%_ + ((lambda (_%where108332%_) + (##display-locat _%where108332%_ '#t _%port108313%_)) + _%$e108329%_) + (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_%$e108997%_ - (##unchecked-structure-ref _%self108978%_ '4 '#f '#f))) - (if _%$e108997%_ - ((lambda (_%where109000%_) + (let ((_%$e108335%_ + (##unchecked-structure-ref _%self108316%_ '4 '#f '#f))) + (if _%$e108335%_ + ((lambda (_%where108338%_) (displayln '" at " - _%where109000%_ + _%where108338%_ '": " (##unchecked-structure-ref - _%self108978%_ + _%self108316%_ '2 '#f '#f))) - _%$e108997%_) - (let () - (displayln - '": " - (##unchecked-structure-ref - _%self108978%_ - '2 - '#f - '#f))))) - (let* ((_%self.irritants109002109010%_ - (##unchecked-structure-ref _%self108978%_ '3 '#f '#f)) - (_%else109004109018%_ (lambda () '#!void)) - (_%K109006109031%_ - (lambda (_%rest109021%_ _%stx109022%_) + _%$e108335%_) + (displayln + '": " + (##unchecked-structure-ref _%self108316%_ '2 '#f '#f)))) + (let* ((_%self.irritants108340108348%_ + (##unchecked-structure-ref _%self108316%_ '3 '#f '#f)) + (_%else108342108356%_ (lambda () '#!void)) + (_%K108344108369%_ + (lambda (_%rest108359%_ _%stx108360%_) (display '"... form: ") - (__pp-syntax _%stx109022%_) + (__pp-syntax _%stx108360%_) (for-each - (lambda (_%detail109024%_) + (lambda (_%detail108362%_) (display '"... detail: ") - (##write (__AST->datum _%detail109024%_)) - (let ((_%$e109026%_ - (__AST-source _%detail109024%_))) - (if _%$e109026%_ - ((lambda (_%loc109029%_) + (##write (__AST->datum _%detail108362%_)) + (let ((_%$e108364%_ + (__AST-source _%detail108362%_))) + (if _%$e108364%_ + ((lambda (_%loc108367%_) (display '" at ") (##display-locat - _%loc109029%_ + _%loc108367%_ '#t - _%port108975%_)) - _%$e109026%_) + _%port108313%_)) + _%$e108364%_) '#!void)) (newline)) - _%rest109021%_)))) - (if (##pair? _%self.irritants109002109010%_) - (let ((_%hd109007109034%_ - (##car _%self.irritants109002109010%_)) - (_%tl109008109036%_ - (##cdr _%self.irritants109002109010%_))) - (let* ((_%stx109039%_ _%hd109007109034%_) - (_%rest109041%_ _%tl109008109036%_)) - (_%K109006109031%_ _%rest109041%_ _%stx109039%_))) + _%rest108359%_)))) + (if (##pair? _%self.irritants108340108348%_) + (let ((_%hd108345108372%_ + (##car _%self.irritants108340108348%_)) + (_%tl108346108374%_ + (##cdr _%self.irritants108340108348%_))) + (let* ((_%stx108377%_ _%hd108345108372%_) + (_%rest108379%_ _%tl108346108374%_)) + (_%K108344108369%_ _%rest108379%_ _%stx108377%_))) '#!void)) (if (##getenv '"GERBIL_DEBUG" '#f) - (let ((_%cont109042109044%_ + (let ((_%cont108380108382%_ (##unchecked-structure-ref - _%self108978%_ + _%self108316%_ '1 '#f '#f))) - (if _%cont109042109044%_ - (let ((_%cont109047%_ _%cont109042109044%_)) + (if _%cont108380108382%_ + (let ((_%cont108385%_ _%cont108380108382%_)) (display '"--- continuation backtrace:") (newline) - (display-continuation-backtrace _%cont109047%_)) + (display-continuation-backtrace _%cont108385%_)) '#f)) '#!void)) current-output-port - _%port108975%_))))) + _%port108313%_))))) (__bind-method! SyntaxError::t 'display-exception @@ -191,37 +186,37 @@ '#f) (__seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_%message108845%_ - _%irritants108846%_ - _%where108847%_ - _%context108848%_ - _%marks108849%_ - _%phi108850%_) - (let ((__obj109187 + (lambda (_%message108183%_ + _%irritants108184%_ + _%where108185%_ + _%context108186%_ + _%marks108187%_ + _%phi108188%_) + (let ((__obj108525 (##structure SyntaxError::t '#f '#f '#f '#f '#f '#f '#f))) - (##unchecked-structure-set! __obj109187 _%message108845%_ '2 '#f '#f) + (##unchecked-structure-set! __obj108525 _%message108183%_ '2 '#f '#f) (##unchecked-structure-set! - __obj109187 - _%irritants108846%_ + __obj108525 + _%irritants108184%_ '3 '#f '#f) - (##unchecked-structure-set! __obj109187 _%where108847%_ '4 '#f '#f) - (##unchecked-structure-set! __obj109187 _%context108848%_ '5 '#f '#f) - (##unchecked-structure-set! __obj109187 _%marks108849%_ '7 '#f '#f) - (##unchecked-structure-set! __obj109187 _%phi108850%_ '6 '#f '#f) - __obj109187))) + (##unchecked-structure-set! __obj108525 _%where108185%_ '4 '#f '#f) + (##unchecked-structure-set! __obj108525 _%context108186%_ '5 '#f '#f) + (##unchecked-structure-set! __obj108525 _%marks108187%_ '7 '#f '#f) + (##unchecked-structure-set! __obj108525 _%phi108188%_ '6 '#f '#f) + __obj108525))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_%where108840%_ - _%message108841%_ - _%stx108842%_ + (lambda (_%where108178%_ + _%message108179%_ + _%stx108180%_ . - _%details108843%_) + _%details108181%_) (raise (make-syntax-error - _%message108841%_ - (cons _%stx108842%_ _%details108843%_) - _%where108840%_ + _%message108179%_ + (cons _%stx108180%_ _%details108181%_) + _%where108178%_ '#f '#f '#f)))) @@ -235,7 +230,7 @@ '#f)) (define AST? (__make-class-predicate AST::t)) (define make-AST - (lambda _%$args108837%_ (apply make-instance AST::t _%$args108837%_))) + (lambda _%$args108175%_ (apply make-instance AST::t _%$args108175%_))) (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)) @@ -246,182 +241,167 @@ (define &AST-source-set! (__make-class-slot-unchecked-mutator AST::t 'source)) (define __AST-e - (lambda (_%stx108835%_) - (if (##structure-instance-of? _%stx108835%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx108835%_ '1 '#f '#f) - _%stx108835%_))) + (lambda (_%stx108173%_) + (if (##structure-instance-of? _%stx108173%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx108173%_ '1 '#f '#f) + _%stx108173%_))) (define __AST-source - (lambda (_%stx108826%_) - (let _%lp108828%_ ((_%src108830%_ _%stx108826%_)) - (if (##structure-instance-of? _%src108830%_ 'gerbil#AST::t) - (let () - (_%lp108828%_ - (##unchecked-structure-ref _%src108830%_ '2 '#f '#f))) - (if (##locat? _%src108830%_) - (let () _%src108830%_) - (let () '#f)))))) + (lambda (_%stx108164%_) + (let _%lp108166%_ ((_%src108168%_ _%stx108164%_)) + (if (##structure-instance-of? _%src108168%_ 'gerbil#AST::t) + (_%lp108166%_ + (##unchecked-structure-ref _%src108168%_ '2 '#f '#f)) + (if (##locat? _%src108168%_) _%src108168%_ '#f))))) (define __AST - (lambda (_%e108818%_ _%src-stx108819%_) - (let ((_%src108821%_ (__AST-source _%src-stx108819%_))) - (if (or (##structure-instance-of? _%e108818%_ 'gerbil#AST::t) - (not _%src108821%_)) - _%e108818%_ - (##structure AST::t _%e108818%_ _%src108821%_))))) + (lambda (_%e108156%_ _%src-stx108157%_) + (let ((_%src108159%_ (__AST-source _%src-stx108157%_))) + (if (or (##structure-instance-of? _%e108156%_ 'gerbil#AST::t) + (not _%src108159%_)) + _%e108156%_ + (##structure AST::t _%e108156%_ _%src108159%_))))) (define __AST-eq? - (lambda (_%stx108815%_ _%obj108816%_) - (eq? (__AST-e _%stx108815%_) _%obj108816%_))) + (lambda (_%stx108153%_ _%obj108154%_) + (eq? (__AST-e _%stx108153%_) _%obj108154%_))) (define __AST-pair? - (lambda (_%stx108813%_) (pair? (__AST-e _%stx108813%_)))) + (lambda (_%stx108151%_) (pair? (__AST-e _%stx108151%_)))) (define __AST-null? - (lambda (_%stx108811%_) (null? (__AST-e _%stx108811%_)))) + (lambda (_%stx108149%_) (null? (__AST-e _%stx108149%_)))) (define __AST-datum? - (lambda (_%stx108792%_) - (let* ((_%e108794%_ (__AST-e _%stx108792%_)) - (_%$e108796%_ (number? _%e108794%_))) - (if _%$e108796%_ - _%$e108796%_ - (let ((_%$e108799%_ (string? _%e108794%_))) - (if _%$e108799%_ - _%$e108799%_ - (let ((_%$e108802%_ (char? _%e108794%_))) - (if _%$e108802%_ - _%$e108802%_ - (let ((_%$e108805%_ (keyword? _%e108794%_))) - (if _%$e108805%_ - _%$e108805%_ - (let ((_%$e108808%_ (boolean? _%e108794%_))) - (if _%$e108808%_ - _%$e108808%_ - (eq? _%e108794%_ '#!void))))))))))))) + (lambda (_%stx108130%_) + (let* ((_%e108132%_ (__AST-e _%stx108130%_)) + (_%$e108134%_ (number? _%e108132%_))) + (if _%$e108134%_ + _%$e108134%_ + (let ((_%$e108137%_ (string? _%e108132%_))) + (if _%$e108137%_ + _%$e108137%_ + (let ((_%$e108140%_ (char? _%e108132%_))) + (if _%$e108140%_ + _%$e108140%_ + (let ((_%$e108143%_ (keyword? _%e108132%_))) + (if _%$e108143%_ + _%$e108143%_ + (let ((_%$e108146%_ (boolean? _%e108132%_))) + (if _%$e108146%_ + _%$e108146%_ + (eq? _%e108132%_ '#!void))))))))))))) (define __AST-id? - (lambda (_%stx108790%_) (symbol? (__AST-e _%stx108790%_)))) + (lambda (_%stx108128%_) (symbol? (__AST-e _%stx108128%_)))) (define __AST-id-list?__% - (lambda (_%stx108741%_ _%tail?108742%_) - (let _%lp108744%_ ((_%rest108746%_ _%stx108741%_)) - (let* ((_%$e108748%_ _%rest108746%_) - (_%$E108750108763%_ + (lambda (_%stx108079%_ _%tail?108080%_) + (let _%lp108082%_ ((_%rest108084%_ _%stx108079%_)) + (let* ((_%$e108086%_ _%rest108084%_) + (_%$E108088108101%_ (lambda () - (let* ((_%$E108751108758%_ + (let* ((_%$E108089108096%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e108748%_))) - (_%rest108761%_ _%$e108748%_)) - (_%tail?108742%_ _%rest108761%_))))) - (if (__AST-pair? _%$e108748%_) - (let* ((_%$tgt108752108766%_ (__AST-e _%$e108748%_)) - (_%$hd108753108769%_ (##car _%$tgt108752108766%_)) - (_%$tl108754108772%_ (##cdr _%$tgt108752108766%_))) - (let* ((_%hd108776%_ _%$hd108753108769%_) - (_%rest108778%_ _%$tl108754108772%_)) - (if (__AST-id? _%hd108776%_) - (_%lp108744%_ _%rest108778%_) - '#f))) - (_%$E108750108763%_)))))) + _%$e108086%_))) + (_%rest108099%_ _%$e108086%_)) + (_%tail?108080%_ _%rest108099%_))))) + (if (__AST-pair? _%$e108086%_) + (let* ((_%$tgt108090108104%_ (__AST-e _%$e108086%_)) + (_%$hd108091108107%_ (##car _%$tgt108090108104%_)) + (_%$tl108092108110%_ (##cdr _%$tgt108090108104%_)) + (_%hd108114%_ _%$hd108091108107%_) + (_%rest108116%_ _%$tl108092108110%_)) + (if (__AST-id? _%hd108114%_) + (_%lp108082%_ _%rest108116%_) + '#f)) + (_%$E108088108101%_)))))) (define __AST-id-list?__0 - (lambda (_%stx108783%_) - (let ((_%tail?108785%_ __AST-null?)) - (__AST-id-list?__% _%stx108783%_ _%tail?108785%_)))) + (lambda (_%stx108121%_) + (let ((_%tail?108123%_ __AST-null?)) + (__AST-id-list?__% _%stx108121%_ _%tail?108123%_)))) (define __AST-id-list? - (lambda _g109190_ - (let ((_g109189_ (##length _g109190_))) - (cond ((##fx= _g109189_ 1) - (apply (lambda (_%stx108783%_) - (__AST-id-list?__0 _%stx108783%_)) - _g109190_)) - ((##fx= _g109189_ 2) - (apply (lambda (_%stx108787%_ _%tail?108788%_) - (__AST-id-list?__% _%stx108787%_ _%tail?108788%_)) - _g109190_)) + (lambda _g108528_ + (let ((_g108527_ (##length _g108528_))) + (cond ((##fx= _g108527_ 1) (apply __AST-id-list?__0 _g108528_)) + ((##fx= _g108527_ 2) (apply __AST-id-list?__% _g108528_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g109190_)))))) + _g108528_)))))) (define __AST-bind-list? - (lambda (_%stx108733%_) + (lambda (_%stx108071%_) (__AST-id-list?__% - _%stx108733%_ - (lambda (_%e108735%_) - (let ((_%$e108737%_ (__AST-null? _%e108735%_))) - (if _%$e108737%_ _%$e108737%_ (__AST-id? _%e108735%_))))))) + _%stx108071%_ + (lambda (_%e108073%_) + (let ((_%$e108075%_ (__AST-null? _%e108073%_))) + (if _%$e108075%_ _%$e108075%_ (__AST-id? _%e108073%_))))))) (define __AST-list?__% - (lambda (_%stx108686%_ _%tail?108687%_) - (let _%lp108689%_ ((_%rest108691%_ _%stx108686%_)) - (let* ((_%$e108693%_ _%rest108691%_) - (_%$E108695108708%_ + (lambda (_%stx108024%_ _%tail?108025%_) + (let _%lp108027%_ ((_%rest108029%_ _%stx108024%_)) + (let* ((_%$e108031%_ _%rest108029%_) + (_%$E108033108046%_ (lambda () - (let* ((_%$E108696108703%_ + (let* ((_%$E108034108041%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e108693%_))) - (_%rest108706%_ _%$e108693%_)) - (_%tail?108687%_ _%rest108706%_))))) - (if (__AST-pair? _%$e108693%_) - (let* ((_%$tgt108697108711%_ (__AST-e _%$e108693%_)) - (_%$hd108698108714%_ (##car _%$tgt108697108711%_)) - (_%$tl108699108717%_ (##cdr _%$tgt108697108711%_)) - (_%rest108721%_ _%$tl108699108717%_)) - (_%lp108689%_ _%rest108721%_)) - (_%$E108695108708%_)))))) + _%$e108031%_))) + (_%rest108044%_ _%$e108031%_)) + (_%tail?108025%_ _%rest108044%_))))) + (if (__AST-pair? _%$e108031%_) + (let* ((_%$tgt108035108049%_ (__AST-e _%$e108031%_)) + (_%$hd108036108052%_ (##car _%$tgt108035108049%_)) + (_%$tl108037108055%_ (##cdr _%$tgt108035108049%_)) + (_%rest108059%_ _%$tl108037108055%_)) + (_%lp108027%_ _%rest108059%_)) + (_%$E108033108046%_)))))) (define __AST-list?__0 - (lambda (_%stx108726%_) - (let ((_%tail?108728%_ __AST-null?)) - (__AST-list?__% _%stx108726%_ _%tail?108728%_)))) + (lambda (_%stx108064%_) + (let ((_%tail?108066%_ __AST-null?)) + (__AST-list?__% _%stx108064%_ _%tail?108066%_)))) (define __AST-list? - (lambda _g109192_ - (let ((_g109191_ (##length _g109192_))) - (cond ((##fx= _g109191_ 1) - (apply (lambda (_%stx108726%_) (__AST-list?__0 _%stx108726%_)) - _g109192_)) - ((##fx= _g109191_ 2) - (apply (lambda (_%stx108730%_ _%tail?108731%_) - (__AST-list?__% _%stx108730%_ _%tail?108731%_)) - _g109192_)) + (lambda _g108530_ + (let ((_g108529_ (##length _g108530_))) + (cond ((##fx= _g108529_ 1) (apply __AST-list?__0 _g108530_)) + ((##fx= _g108529_ 2) (apply __AST-list?__% _g108530_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g109192_)))))) + _g108530_)))))) (define __AST->list - (lambda (_%stx108651%_) - (let* ((_%$e108653%_ _%stx108651%_) - (_%$E108655108668%_ + (lambda (_%stx107989%_) + (let* ((_%$e107991%_ _%stx107989%_) + (_%$E107993108006%_ (lambda () - (let* ((_%$E108656108663%_ + (let* ((_%$E107994108001%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e108653%_))) - (_%rest108666%_ _%$e108653%_)) - (__AST-e _%rest108666%_))))) - (if (__AST-pair? _%$e108653%_) - (let* ((_%$tgt108657108671%_ (__AST-e _%$e108653%_)) - (_%$hd108658108674%_ (##car _%$tgt108657108671%_)) - (_%$tl108659108677%_ (##cdr _%$tgt108657108671%_))) - (let* ((_%hd108681%_ _%$hd108658108674%_) - (_%rest108683%_ _%$tl108659108677%_)) - (cons _%hd108681%_ (__AST->list _%rest108683%_)))) - (_%$E108655108668%_))))) + _%$e107991%_))) + (_%rest108004%_ _%$e107991%_)) + (__AST-e _%rest108004%_))))) + (if (__AST-pair? _%$e107991%_) + (let* ((_%$tgt107995108009%_ (__AST-e _%$e107991%_)) + (_%$hd107996108012%_ (##car _%$tgt107995108009%_)) + (_%$tl107997108015%_ (##cdr _%$tgt107995108009%_)) + (_%hd108019%_ _%$hd107996108012%_) + (_%rest108021%_ _%$tl107997108015%_)) + (cons _%hd108019%_ (__AST->list _%rest108021%_))) + (_%$E107993108006%_))))) (define __AST->datum - (lambda (_%stx108644%_) - (if (##structure-instance-of? _%stx108644%_ 'gerbil#AST::t) - (let () (__AST->datum (__AST-e _%stx108644%_))) - (if (pair? _%stx108644%_) - (let () - (cons (__AST->datum (car _%stx108644%_)) - (__AST->datum (cdr _%stx108644%_)))) - (if (vector? _%stx108644%_) - (let () (vector-map __AST->datum _%stx108644%_)) - (if (box? _%stx108644%_) - (let () (box (__AST->datum (unbox _%stx108644%_)))) - (let () _%stx108644%_))))))) + (lambda (_%stx107982%_) + (if (##structure-instance-of? _%stx107982%_ 'gerbil#AST::t) + (__AST->datum (__AST-e _%stx107982%_)) + (if (pair? _%stx107982%_) + (cons (__AST->datum (car _%stx107982%_)) + (__AST->datum (cdr _%stx107982%_))) + (if (vector? _%stx107982%_) + (vector-map __AST->datum _%stx107982%_) + (if (box? _%stx107982%_) + (box (__AST->datum (unbox _%stx107982%_))) + _%stx107982%_)))))) (define get-readenv - (lambda (_%port108642%_) + (lambda (_%port107980%_) (##make-readenv - _%port108642%_ + _%port107980%_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -429,96 +409,93 @@ '() '#f))) (define read-syntax__% - (lambda (_%in108630%_) - (let ((_%e108632%_ (##read-datum-or-eof (get-readenv _%in108630%_)))) - (if (eof-object? (__AST-e _%e108632%_)) - (__AST-e _%e108632%_) - _%e108632%_)))) + (lambda (_%in107968%_) + (let ((_%e107970%_ (##read-datum-or-eof (get-readenv _%in107968%_)))) + (if (eof-object? (__AST-e _%e107970%_)) + (__AST-e _%e107970%_) + _%e107970%_)))) (define read-syntax__0 (lambda () - (let ((_%in108638%_ (current-input-port))) - (read-syntax__% _%in108638%_)))) + (let ((_%in107976%_ (current-input-port))) + (read-syntax__% _%in107976%_)))) (define read-syntax - (lambda _g109194_ - (let ((_g109193_ (##length _g109194_))) - (cond ((##fx= _g109193_ 0) - (apply (lambda () (read-syntax__0)) _g109194_)) - ((##fx= _g109193_ 1) - (apply (lambda (_%in108640%_) (read-syntax__% _%in108640%_)) - _g109194_)) + (lambda _g108532_ + (let ((_g108531_ (##length _g108532_))) + (cond ((##fx= _g108531_ 0) (apply read-syntax__0 _g108532_)) + ((##fx= _g108531_ 1) (apply read-syntax__% _g108532_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g109194_)))))) + _g108532_)))))) (define read-syntax-from-file - (lambda (_%path108625%_) - (let ((_%r108627%_ + (lambda (_%path107963%_) + (let ((_%r107965%_ (##read-all-as-a-begin-expr-from-path - (path-normalize _%path108625%_) + (path-normalize _%path107963%_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _%r108627%_) - (cdr (__AST-e (vector-ref _%r108627%_ '1))) - (error (err-code->string _%r108627%_) _%path108625%_))))) + (if (vector? _%r107965%_) + (cdr (__AST-e (vector-ref _%r107965%_ '1))) + (error (err-code->string _%r107965%_) _%path107963%_))))) (define __wrap-syntax - (lambda (_%re108622%_ _%e108623%_) - (if (eof-object? _%e108623%_) - _%e108623%_ - (##structure AST::t _%e108623%_ (##readenv->locat _%re108622%_))))) + (lambda (_%re107960%_ _%e107961%_) + (if (eof-object? _%e107961%_) + _%e107961%_ + (##structure AST::t _%e107961%_ (##readenv->locat _%re107960%_))))) (define __unwrap-syntax - (lambda (_%re108619%_ _%e108620%_) (__AST-e _%e108620%_))) + (lambda (_%re107957%_ _%e107958%_) (__AST-e _%e107958%_))) (define __pp-syntax - (lambda (_%stx108617%_) (pp (__AST->datum _%stx108617%_)))) + (lambda (_%stx107955%_) (pp (__AST->datum _%stx107955%_)))) (define __make-readtable (lambda () - (let ((_%rt108615%_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _%rt108615%_ '#t) - (macro-readtable-bracket-handler-set! _%rt108615%_ '@list) - (macro-readtable-brace-handler-set! _%rt108615%_ '@method) + (let ((_%rt107953%_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _%rt107953%_ '#t) + (macro-readtable-bracket-handler-set! _%rt107953%_ '@list) + (macro-readtable-brace-handler-set! _%rt107953%_ '@method) (##readtable-char-sharp-handler-set! - _%rt108615%_ + _%rt107953%_ '#\! __read-sharp-bang) - _%rt108615%_))) + _%rt107953%_))) (define __readtable-bracket-keyword-set! - (lambda (_%rt108611%_ _%kw108612%_) - (macro-readtable-bracket-handler-set! _%rt108611%_ _%kw108612%_))) + (lambda (_%rt107949%_ _%kw107950%_) + (macro-readtable-bracket-handler-set! _%rt107949%_ _%kw107950%_))) (define __readtable-brace-keyword-set! - (lambda (_%rt108608%_ _%kw108609%_) - (macro-readtable-brace-handler-set! _%rt108608%_ _%kw108609%_))) + (lambda (_%rt107946%_ _%kw107947%_) + (macro-readtable-brace-handler-set! _%rt107946%_ _%kw107947%_))) (define __read-sharp-bang - (lambda (_%re108599%_ _%next108600%_ _%start-pos108601%_) - (if (eq? _%start-pos108601%_ '0) - (let* ((_%line108603%_ + (lambda (_%re107937%_ _%next107938%_ _%start-pos107939%_) + (if (eq? _%start-pos107939%_ '0) + (let* ((_%line107941%_ (##read-line - (macro-readenv-port _%re108599%_) + (macro-readenv-port _%re107937%_) '#\newline '#f ##max-fixnum)) - (_%script-line108605%_ + (_%script-line107943%_ (substring - _%line108603%_ + _%line107941%_ '1 - (string-length _%line108603%_)))) + (string-length _%line107941%_)))) (macro-readenv-script-line-set! - _%re108599%_ - _%script-line108605%_) + _%re107937%_ + _%script-line107943%_) (##script-marker)) (##read-sharp-bang - _%re108599%_ - _%next108600%_ - _%start-pos108601%_)))) + _%re107937%_ + _%next107938%_ + _%start-pos107939%_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_%obj108597%_) - (if (source-location? _%obj108597%_) - (string? (##locat-container _%obj108597%_)) + (lambda (_%obj107935%_) + (if (source-location? _%obj107935%_) + (string? (##locat-container _%obj107935%_)) '#f))) (define source-location-path - (lambda (_%obj108595%_) - (if (##locat? _%obj108595%_) - (##container->path (##locat-container _%obj108595%_)) + (lambda (_%obj107933%_) + (if (##locat? _%obj107933%_) + (##container->path (##locat-container _%obj107933%_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~1.scm b/src/bootstrap/gerbil/runtime/syntax~1.scm index b52266551..3dc905fac 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]#_g109203_| + (define |[1]#_g108541_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g109206_| + (define |[1]#_g108544_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g109207_| + (define |[1]#_g108545_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g109209_| + (define |[1]#_g108547_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g109211_| + (define |[1]#_g108549_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g109213_| + (define |[1]#_g108551_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g109215_| + (define |[1]#_g108553_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g109216_| + (define |[1]#_g108554_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g109217_| + (define |[1]#_g108555_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g109218_| + (define |[1]#_g108556_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g109219_| + (define |[1]#_g108557_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g109220_| + (define |[1]#_g108558_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g109221_| + (define |[1]#_g108559_| (##structure gx#syntax-quote::t 'SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g109223_| + (define |[1]#_g108561_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109224_| + (define |[1]#_g108562_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109225_| + (define |[1]#_g108563_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109226_| + (define |[1]#_g108564_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109227_| + (define |[1]#_g108565_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109228_| + (define |[1]#_g108566_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109229_| + (define |[1]#_g108567_| (##structure gx#syntax-quote::t 'SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109231_| + (define |[1]#_g108569_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g109232_| + (define |[1]#_g108570_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g109233_| + (define |[1]#_g108571_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g109234_| + (define |[1]#_g108572_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g109235_| + (define |[1]#_g108573_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g109236_| + (define |[1]#_g108574_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g109237_| + (define |[1]#_g108575_| (##structure gx#syntax-quote::t '&SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g109239_| + (define |[1]#_g108577_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109240_| + (define |[1]#_g108578_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109241_| + (define |[1]#_g108579_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109242_| + (define |[1]#_g108580_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109243_| + (define |[1]#_g108581_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109244_| + (define |[1]#_g108582_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109245_| + (define |[1]#_g108583_| (##structure gx#syntax-quote::t '&SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109247_| + (define |[1]#_g108585_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g109249_| + (define |[1]#_g108587_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g109251_| + (define |[1]#_g108589_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g109253_| + (define |[1]#_g108591_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g109254_| + (define |[1]#_g108592_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g109256_| + (define |[1]#_g108594_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109257_| + (define |[1]#_g108595_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109259_| + (define |[1]#_g108597_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g109260_| + (define |[1]#_g108598_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g109262_| + (define |[1]#_g108600_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g109263_| + (define |[1]#_g108601_| (##structure gx#syntax-quote::t '&AST-source-set! @@ -317,937 +317,904 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_%$stx107476%_) - (let* ((_%g107480107504%_ - (lambda (_%g107481107500%_) + (lambda (_%$stx106814%_) + (let* ((_%g106818106842%_ + (lambda (_%g106819106838%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g107481107500%_))) - (_%g107479107590%_ - (lambda (_%g107481107508%_) - (if (gx#stx-pair? _%g107481107508%_) - (let ((_%e107486107511%_ - (gx#syntax-e _%g107481107508%_))) - (let ((_%hd107485107515%_ + _%g106819106838%_))) + (_%g106817106928%_ + (lambda (_%g106819106846%_) + (if (gx#stx-pair? _%g106819106846%_) + (let ((_%e106824106849%_ + (gx#syntax-e _%g106819106846%_))) + (let ((_%hd106823106853%_ (let () (declare (not safe)) - (##car _%e107486107511%_))) - (_%tl107484107518%_ + (##car _%e106824106849%_))) + (_%tl106822106856%_ (let () (declare (not safe)) - (##cdr _%e107486107511%_)))) - (if (gx#stx-pair? _%tl107484107518%_) - (let ((_%e107489107521%_ - (gx#syntax-e _%tl107484107518%_))) - (let ((_%hd107488107525%_ + (##cdr _%e106824106849%_)))) + (if (gx#stx-pair? _%tl106822106856%_) + (let ((_%e106827106859%_ + (gx#syntax-e _%tl106822106856%_))) + (let ((_%hd106826106863%_ (let () (declare (not safe)) - (##car _%e107489107521%_))) - (_%tl107487107528%_ + (##car _%e106827106859%_))) + (_%tl106825106866%_ (let () (declare (not safe)) - (##cdr _%e107489107521%_)))) - (if (gx#stx-pair/null? _%tl107487107528%_) - (let ((_g109195_ + (##cdr _%e106827106859%_)))) + (if (gx#stx-pair/null? _%tl106825106866%_) + (let ((_g108533_ (gx#syntax-split-splice - _%tl107487107528%_ + _%tl106825106866%_ '0))) (begin - (let ((_g109196_ + (let ((_g108534_ (let () (declare (not safe)) - (if (##values? _g109195_) + (if (##values? _g108533_) (##vector-length - _g109195_) + _g108533_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g109196_ 2))) + (##fx= _g108534_ 2))) (error "Context expects 2 values" - _g109196_))) - (let ((_%target107490107531%_ + _g108534_))) + (let ((_%target106828106869%_ (let () (declare (not safe)) - (##vector-ref _g109195_ 0))) - (_%tl107492107534%_ + (##vector-ref _g108533_ 0))) + (_%tl106830106872%_ (let () (declare (not safe)) (##vector-ref - _g109195_ + _g108533_ 1)))) (if (gx#stx-null? - _%tl107492107534%_) - (letrec ((_%loop107493107537%_ - (lambda (_%hd107491107541%_ + _%tl106830106872%_) + (letrec ((_%loop106831106875%_ + (lambda (_%hd106829106879%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body107497107544%_) - (if (gx#stx-pair? _%hd107491107541%_) - (let ((_%e107494107547%_ - (gx#syntax-e _%hd107491107541%_))) - (let ((_%lp-hd107495107551%_ + _%body106835106882%_) + (if (gx#stx-pair? _%hd106829106879%_) + (let ((_%e106832106885%_ + (gx#syntax-e _%hd106829106879%_))) + (let ((_%lp-hd106833106889%_ (let () (declare (not safe)) - (##car _%e107494107547%_))) - (_%lp-tl107496107554%_ + (##car _%e106832106885%_))) + (_%lp-tl106834106892%_ (let () (declare (not safe)) - (##cdr _%e107494107547%_)))) - (_%loop107493107537%_ - _%lp-tl107496107554%_ - (cons _%lp-hd107495107551%_ - _%body107497107544%_)))) - (let ((_%body107498107557%_ - (reverse _%body107497107544%_))) - ((lambda (_%L107561%_ _%L107563%_) + (##cdr _%e106832106885%_)))) + (_%loop106831106875%_ + _%lp-tl106834106892%_ + (cons _%lp-hd106833106889%_ + _%body106835106882%_)))) + (let ((_%body106836106895%_ + (reverse _%body106835106882%_))) + ((lambda (_%L106899%_ _%L106901%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) - (cons _%L107563%_ '())) + (cons _%L106901%_ '())) (cons (cons (gx#datum->syntax '#f 'core-ast-case%) (cons (gx#datum->syntax '#f '$e) - (let ((__tmp109197 + (let ((__tmp108535 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g107581107584%_ _%g107582107587%_) - (cons _%g107581107584%_ _%g107582107587%_)))) + (lambda (_%g106919106922%_ _%g106920106925%_) + (cons _%g106919106922%_ _%g106920106925%_)))) (declare (not safe)) - (__foldr1 __tmp109197 '() _%L107561%_)))) + (__foldr1 __tmp108535 '() _%L106899%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%body107498107557%_ - _%hd107488107525%_)))))) + _%body106836106895%_ + _%hd106826106863%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop107493107537%_ - _%target107490107531%_ + (_%loop106831106875%_ + _%target106828106869%_ '())) - (_%g107480107504%_ - _%g107481107508%_))))) - (_%g107480107504%_ _%g107481107508%_)))) - (_%g107480107504%_ _%g107481107508%_)))) - (_%g107480107504%_ _%g107481107508%_))))) - (_%g107479107590%_ _%$stx107476%_)))) + (_%g106818106842%_ + _%g106819106846%_))))) + (_%g106818106842%_ _%g106819106846%_)))) + (_%g106818106842%_ _%g106819106846%_)))) + (_%g106818106842%_ _%g106819106846%_))))) + (_%g106817106928%_ _%$stx106814%_)))) (define |[:0:]#core-ast-case%| - (lambda (_%stx107595%_) - (letrec ((_%generate1107598%_ - (lambda (_%hd108139%_ - _%tgt108141%_ - _%K108142%_ - _%E108143%_ - _%kws108144%_) - (let* ((_%g108146108154%_ - (lambda (_%g108147108150%_) + (lambda (_%stx106933%_) + (letrec ((_%generate1106936%_ + (lambda (_%hd107477%_ + _%tgt107479%_ + _%K107480%_ + _%E107481%_ + _%kws107482%_) + (let* ((_%g107484107492%_ + (lambda (_%g107485107488%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g108147108150%_))) - (_%g108145108589%_ - (lambda (_%g108147108158%_) - ((lambda (_%L108161%_) - (let () - (let* ((_%__stx109093109094%_ _%hd108139%_) - (_%g108175108189%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx109093109094%_)))) - (let ((_%__kont109096109097%_ - (lambda (_%L108411%_ _%L108413%_) - (let* ((_%g108424108432%_ - (lambda (_%g108425108428%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g108425108428%_))) - (_%g108423108581%_ - (lambda (_%g108425108436%_) - ((lambda (_%L108439%_) - (let () - (let* ((_%g108451108459%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g108452108455%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g108452108455%_))) - (_%g108450108577%_ - (lambda (_%g108452108463%_) - ((lambda (_%L108466%_) - (let () - (let* ((_%g108479108487%_ - (lambda (_%g108480108483%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g108480108483%_))) - (_%g108478108573%_ - (lambda (_%g108480108491%_) - ((lambda (_%L108494%_) - (let () - (let* ((_%g108507108515%_ - (lambda (_%g108508108511%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g108508108511%_))) - (_%g108506108569%_ - (lambda (_%g108508108519%_) - ((lambda (_%L108522%_) - (let () + _%g107485107488%_))) + (_%g107483107927%_ + (lambda (_%g107485107496%_) + ((lambda (_%L107499%_) + (let* ((_%__stx108431108432%_ _%hd107477%_) + (_%g107513107527%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx108431108432%_)))) + (let ((_%__kont108434108435%_ + (lambda (_%L107749%_ _%L107751%_) + (let* ((_%g107762107770%_ + (lambda (_%g107763107766%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g107763107766%_))) + (_%g107761107919%_ + (lambda (_%g107763107774%_) + ((lambda (_%L107777%_) + (let* ((_%g107789107797%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g108535108543%_ - (lambda (_%g108536108539%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g108536108539%_))) - (_%g108534108565%_ - (lambda (_%g108536108547%_) - ((lambda (_%L108550%_) - (let () - (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - '__AST-pair?) - (cons _%L108161%_ + (lambda (_%g107790107793%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g107790107793%_))) + (_%g107788107915%_ + (lambda (_%g107790107801%_) + ((lambda (_%L107804%_) + (let* ((_%g107817107825%_ + (lambda (_%g107818107821%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g107818107821%_))) + (_%g107816107911%_ + (lambda (_%g107818107829%_) + ((lambda (_%L107832%_) + (let* ((_%g107845107853%_ + (lambda (_%g107846107849%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g107846107849%_))) + (_%g107844107907%_ + (lambda (_%g107846107857%_) + ((lambda (_%L107860%_) + (let* ((_%g107873107881%_ + (lambda (_%g107874107877%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g107874107877%_))) + (_%g107872107903%_ + (lambda (_%g107874107885%_) + ((lambda (_%L107888%_) + (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + '__AST-pair?) + (cons _%L107499%_ '())) + (cons (cons (gx#datum->syntax + '#f + 'let*) + (cons (cons (cons _%L107777%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'let*) - (cons (cons (cons _%L108439%_ + (cons (cons (gx#datum->syntax '#f '__AST-e) + (cons _%L107499%_ '())) + '())) + (cons (cons _%L107804%_ + (cons (cons (gx#datum->syntax '#f '##car) + (cons _%L107777%_ '())) + '())) + (cons (cons _%L107832%_ (cons (cons (gx#datum->syntax '#f - '__AST-e) - (cons _%L108161%_ '())) + '##cdr) + (cons _%L107777%_ '())) '())) - (cons (cons _%L108466%_ - (cons (cons (gx#datum->syntax - '#f - '##car) - (cons _%L108439%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L108494%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##cdr) - (cons _%L108439%_ '())) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons _%L108522%_ '()))) - (cons _%L108550%_ '())))))) + '()))) + (cons _%L107860%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g108536108547%_)))) - (_%g108534108565%_ _%E108143%_)))) - _%g108508108519%_)))) + (cons _%L107888%_ '()))))) + _%g107874107885%_)))) + (_%g107872107903%_ _%E107481%_))) + _%g107846107857%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g108506108569%_ - (_%generate1107598%_ - _%L108413%_ - _%L108466%_ - (_%generate1107598%_ - _%L108411%_ - _%L108494%_ - _%K108142%_ - _%E108143%_ - _%kws108144%_) - _%E108143%_ - _%kws108144%_))))) - _%g108480108491%_)))) - (_%g108478108573%_ (gx#genident '$tl))))) - _%g108452108463%_)))) - (_%g108450108577%_ (gx#genident '$hd))))) - _%g108425108436%_)))) + (_%g107844107907%_ + (_%generate1106936%_ + _%L107751%_ + _%L107804%_ + (_%generate1106936%_ + _%L107749%_ + _%L107832%_ + _%K107480%_ + _%E107481%_ + _%kws107482%_) + _%E107481%_ + _%kws107482%_)))) + _%g107818107829%_)))) + (_%g107816107911%_ (gx#genident '$tl)))) + _%g107790107801%_)))) + (_%g107788107915%_ (gx#genident '$hd)))) + _%g107763107774%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g108423108581%_ - (gx#genident '$tgt))))) - (_%__kont109098109099%_ - (lambda (_%L108278%_) - (if (gx#underscore? _%L108278%_) - (let () _%K108142%_) - (if (let ((__tmp109199 - (lambda (_%g108288108290%_) - (gx#bound-identifier=? - _%g108288108290%_ - _%L108278%_))) - (__tmp109198 - (gx#syntax->list - _%kws108144%_))) - (declare (not safe)) - (__find __tmp109199 - __tmp109198)) - (let () - (let* ((_%g108296108311%_ - (lambda (_%g108297108307%_) + (_%g107761107919%_ + (gx#genident '$tgt))))) + (_%__kont108436108437%_ + (lambda (_%L107616%_) + (if (gx#underscore? _%L107616%_) + _%K107480%_ + (if (let ((__tmp108537 + (lambda (_%g107626107628%_) + (gx#bound-identifier=? + _%g107626107628%_ + _%L107616%_))) + (__tmp108536 + (gx#syntax->list + _%kws107482%_))) + (declare (not safe)) + (__find __tmp108537 + __tmp108536)) + (let* ((_%g107634107649%_ + (lambda (_%g107635107645%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g107635107645%_))) + (_%g107633107695%_ + (lambda (_%g107635107653%_) + (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g108297108307%_))) - (_%g108295108357%_ - (lambda (_%g108297108315%_) - (if (gx#stx-pair? _%g108297108315%_) - (let ((_%e108302108318%_ - (gx#syntax-e _%g108297108315%_))) - (let ((_%hd108301108322%_ - (let () - (declare (not safe)) - (##car _%e108302108318%_))) - (_%tl108300108325%_ - (let () - (declare (not safe)) - (##cdr _%e108302108318%_)))) - (if (gx#stx-pair? _%tl108300108325%_) - (let ((_%e108305108328%_ - (gx#syntax-e _%tl108300108325%_))) - (let ((_%hd108304108332%_ - (let () - (declare (not safe)) - (##car _%e108305108328%_))) - (_%tl108303108335%_ - (let () - (declare (not safe)) - (##cdr _%e108305108328%_)))) - (if (gx#stx-null? _%tl108303108335%_) - ((lambda (_%L108338%_ - _%L108340%_) - (let () - (cons (gx#datum->syntax - '#f - 'if) - (cons (cons (gx#datum->syntax + _%g107635107653%_) + (let ((_%e107640107656%_ + (gx#syntax-e _%g107635107653%_))) + (let ((_%hd107639107660%_ + (let () + (declare (not safe)) + (##car _%e107640107656%_))) + (_%tl107638107663%_ + (let () + (declare (not safe)) + (##cdr _%e107640107656%_)))) + (if (gx#stx-pair? _%tl107638107663%_) + (let ((_%e107643107666%_ + (gx#syntax-e _%tl107638107663%_))) + (let ((_%hd107642107670%_ + (let () + (declare (not safe)) + (##car _%e107643107666%_))) + (_%tl107641107673%_ + (let () + (declare (not safe)) + (##cdr _%e107643107666%_)))) + (if (gx#stx-null? _%tl107641107673%_) + ((lambda (_%L107676%_ _%L107678%_) + (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + 'and) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'and) - (cons (cons (gx#datum->syntax '#f '__AST-id?) - (cons _%L108161%_ '())) - (cons (cons (gx#datum->syntax '#f 'eq?) + '#f + '__AST-id?) + (cons _%L107499%_ '())) + (cons (cons (gx#datum->syntax '#f 'eq?) + (cons (cons (gx#datum->syntax + '#f + '__AST-e) + (cons _%L107499%_ '())) (cons (cons (gx#datum->syntax '#f - '__AST-e) - (cons _%L108161%_ + 'quote) + (cons _%L107616%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L108278%_ '())) - '()))) + '()))) + '()))) + (cons _%L107678%_ (cons _%L107676%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons _%L108340%_ (cons _%L108338%_ '())))))) + _%hd107642107670%_ + _%hd107639107660%_) + (_%g107634107649%_ + _%g107635107653%_)))) + (_%g107634107649%_ _%g107635107653%_)))) + (_%g107634107649%_ _%g107635107653%_))))) + (_%g107633107695%_ (list _%K107480%_ _%E107481%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd108304108332%_ - _%hd108301108322%_) - (_%g108296108311%_ - _%g108297108315%_)))) - (_%g108296108311%_ _%g108297108315%_)))) - (_%g108296108311%_ _%g108297108315%_))))) - (_%g108295108357%_ (list _%K108142%_ _%E108143%_)))) - (let () - (let* ((_%g108363108371%_ - (lambda (_%g108364108367%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g108364108367%_))) - (_%g108362108390%_ - (lambda (_%g108364108375%_) - ((lambda (_%L108378%_) - (let () - (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L108278%_ - (cons _%L108161%_ '())) - '()) - (cons _%L108378%_ '()))))) - _%g108364108375%_)))) - (_%g108362108390%_ _%K108142%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont109100109101%_ - (lambda (_%L108196%_) - (let* ((_%g108207108222%_ - (lambda (_%g108208108218%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g108208108218%_))) - (_%g108206108267%_ - (lambda (_%g108208108226%_) - (if (gx#stx-pair? - _%g108208108226%_) - (let ((_%e108213108229%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g108208108226%_))) - (let ((_%hd108212108233%_ - (let () - (declare (not safe)) - (##car _%e108213108229%_))) - (_%tl108211108236%_ - (let () - (declare (not safe)) - (##cdr _%e108213108229%_)))) - (if (gx#stx-pair? _%tl108211108236%_) - (let ((_%e108216108239%_ - (gx#syntax-e _%tl108211108236%_))) - (let ((_%hd108215108243%_ - (let () - (declare (not safe)) - (##car _%e108216108239%_))) - (_%tl108214108246%_ - (let () - (declare (not safe)) - (##cdr _%e108216108239%_)))) - (if (gx#stx-null? _%tl108214108246%_) - ((lambda (_%L108249%_ _%L108251%_) - (let () - (cons (gx#datum->syntax '#f 'if) - (cons (cons (gx#datum->syntax - '#f - 'equal?) - (cons (cons (gx#datum->syntax + (let* ((_%g107701107709%_ + (lambda (_%g107702107705%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g107702107705%_))) + (_%g107700107728%_ + (lambda (_%g107702107713%_) + ((lambda (_%L107716%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '__AST-e) - (cons _%L108161%_ '())) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L108196%_ '())) - '()))) + (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons _%L107616%_ + (cons _%L107499%_ '())) + '()) + (cons _%L107716%_ '())))) + _%g107702107713%_)))) + (_%g107700107728%_ _%K107480%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L108251%_ - (cons _%L108249%_ + (_%__kont108438108439%_ + (lambda (_%L107534%_) + (let* ((_%g107545107560%_ + (lambda (_%g107546107556%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g107546107556%_))) + (_%g107544107605%_ + (lambda (_%g107546107564%_) + (if (gx#stx-pair? + _%g107546107564%_) + (let ((_%e107551107567%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))))) + (gx#syntax-e _%g107546107564%_))) + (let ((_%hd107550107571%_ + (let () + (declare (not safe)) + (##car _%e107551107567%_))) + (_%tl107549107574%_ + (let () + (declare (not safe)) + (##cdr _%e107551107567%_)))) + (if (gx#stx-pair? _%tl107549107574%_) + (let ((_%e107554107577%_ + (gx#syntax-e _%tl107549107574%_))) + (let ((_%hd107553107581%_ + (let () + (declare (not safe)) + (##car _%e107554107577%_))) + (_%tl107552107584%_ + (let () + (declare (not safe)) + (##cdr _%e107554107577%_)))) + (if (gx#stx-null? _%tl107552107584%_) + ((lambda (_%L107587%_ _%L107589%_) + (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + 'equal?) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '__AST-e) + (cons _%L107499%_ '())) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L107534%_ '())) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd108215108243%_ - _%hd108212108233%_) - (_%g108207108222%_ _%g108208108226%_)))) - (_%g108207108222%_ _%g108208108226%_)))) - (_%g108207108222%_ _%g108208108226%_))))) + (cons _%L107589%_ + (cons _%L107587%_ + '()))))) + _%hd107553107581%_ + _%hd107550107571%_) + (_%g107545107560%_ _%g107546107564%_)))) + (_%g107545107560%_ _%g107546107564%_)))) + (_%g107545107560%_ _%g107546107564%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g108206108267%_ - (list _%K108142%_ - _%E108143%_)))))) - (let ((_%g108173108394%_ - (lambda () - (let ((_%L108278%_ - _%__stx109093109094%_)) - (if (gx#identifier? - _%L108278%_) - (_%__kont109098109099%_ - _%L108278%_) - (_%__kont109100109101%_ - _%__stx109093109094%_)))))) - (if (gx#stx-pair? - _%__stx109093109094%_) - (let ((_%e108181108401%_ - (gx#syntax-e - _%__stx109093109094%_))) - (let ((_%tl108179108408%_ - (let () - (declare (not safe)) - (##cdr _%e108181108401%_))) - (_%hd108180108405%_ - (let () - (declare (not safe)) - (##car _%e108181108401%_)))) - (_%__kont109096109097%_ - _%tl108179108408%_ - _%hd108180108405%_))) - (let () - (declare (not safe)) - (_%g108173108394%_)))))))) - _%g108147108158%_)))) - (_%g108145108589%_ _%tgt108141%_))))) - (let* ((_%g107601107629%_ - (lambda (_%g107602107625%_) + (_%g107544107605%_ + (list _%K107480%_ + _%E107481%_)))))) + (let ((_%g107511107732%_ + (lambda () + (let ((_%L107616%_ + _%__stx108431108432%_)) + (if (gx#identifier? + _%L107616%_) + (_%__kont108436108437%_ + _%L107616%_) + (_%__kont108438108439%_ + _%__stx108431108432%_)))))) + (if (gx#stx-pair? _%__stx108431108432%_) + (let ((_%e107519107739%_ + (gx#syntax-e + _%__stx108431108432%_))) + (let ((_%tl107517107746%_ + (let () + (declare (not safe)) + (##cdr _%e107519107739%_))) + (_%hd107518107743%_ + (let () + (declare (not safe)) + (##car _%e107519107739%_)))) + (_%__kont108434108435%_ + _%tl107517107746%_ + _%hd107518107743%_))) + (let () + (declare (not safe)) + (_%g107511107732%_))))))) + _%g107485107496%_)))) + (_%g107483107927%_ _%tgt107479%_))))) + (let* ((_%g106939106967%_ + (lambda (_%g106940106963%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g107602107625%_))) - (_%g107600108135%_ - (lambda (_%g107602107633%_) - (if (gx#stx-pair? _%g107602107633%_) - (let ((_%e107608107636%_ - (gx#syntax-e _%g107602107633%_))) - (let ((_%hd107607107640%_ + _%g106940106963%_))) + (_%g106938107473%_ + (lambda (_%g106940106971%_) + (if (gx#stx-pair? _%g106940106971%_) + (let ((_%e106946106974%_ + (gx#syntax-e _%g106940106971%_))) + (let ((_%hd106945106978%_ (let () (declare (not safe)) - (##car _%e107608107636%_))) - (_%tl107606107643%_ + (##car _%e106946106974%_))) + (_%tl106944106981%_ (let () (declare (not safe)) - (##cdr _%e107608107636%_)))) - (if (gx#stx-pair? _%tl107606107643%_) - (let ((_%e107611107646%_ - (gx#syntax-e _%tl107606107643%_))) - (let ((_%hd107610107650%_ + (##cdr _%e106946106974%_)))) + (if (gx#stx-pair? _%tl106944106981%_) + (let ((_%e106949106984%_ + (gx#syntax-e _%tl106944106981%_))) + (let ((_%hd106948106988%_ (let () (declare (not safe)) - (##car _%e107611107646%_))) - (_%tl107609107653%_ + (##car _%e106949106984%_))) + (_%tl106947106991%_ (let () (declare (not safe)) - (##cdr _%e107611107646%_)))) - (if (gx#stx-pair? _%tl107609107653%_) - (let ((_%e107614107656%_ + (##cdr _%e106949106984%_)))) + (if (gx#stx-pair? _%tl106947106991%_) + (let ((_%e106952106994%_ (gx#syntax-e - _%tl107609107653%_))) - (let ((_%hd107613107660%_ + _%tl106947106991%_))) + (let ((_%hd106951106998%_ (let () (declare (not safe)) - (##car _%e107614107656%_))) - (_%tl107612107663%_ + (##car _%e106952106994%_))) + (_%tl106950107001%_ (let () (declare (not safe)) - (##cdr _%e107614107656%_)))) + (##cdr _%e106952106994%_)))) (if (gx#stx-pair/null? - _%tl107612107663%_) - (let ((_g109200_ + _%tl106950107001%_) + (let ((_g108538_ (gx#syntax-split-splice - _%tl107612107663%_ + _%tl106950107001%_ '0))) (begin - (let ((_g109201_ + (let ((_g108539_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g109200_) - (##vector-length _g109200_) + _g108538_) + (##vector-length _g108538_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g109201_ 2))) - (error "Context expects 2 values" _g109201_))) + (if (not (let () (declare (not safe)) (##fx= _g108539_ 2))) + (error "Context expects 2 values" _g108539_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target107615107666%_ + (let ((_%target106953107004%_ (let () (declare (not safe)) (##vector-ref - _g109200_ + _g108538_ 0))) - (_%tl107617107669%_ + (_%tl106955107007%_ (let () (declare (not safe)) (##vector-ref - _g109200_ + _g108538_ 1)))) (if (gx#stx-null? - _%tl107617107669%_) - (letrec ((_%loop107618107672%_ + _%tl106955107007%_) + (letrec ((_%loop106956107010%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd107616107676%_ _%clause107622107679%_) - (if (gx#stx-pair? _%hd107616107676%_) - (let ((_%e107619107682%_ - (gx#syntax-e _%hd107616107676%_))) - (let ((_%lp-hd107620107686%_ + (lambda (_%hd106954107014%_ _%clause106960107017%_) + (if (gx#stx-pair? _%hd106954107014%_) + (let ((_%e106957107020%_ + (gx#syntax-e _%hd106954107014%_))) + (let ((_%lp-hd106958107024%_ (let () (declare (not safe)) - (##car _%e107619107682%_))) - (_%lp-tl107621107689%_ + (##car _%e106957107020%_))) + (_%lp-tl106959107027%_ (let () (declare (not safe)) - (##cdr _%e107619107682%_)))) - (_%loop107618107672%_ - _%lp-tl107621107689%_ - (cons _%lp-hd107620107686%_ - _%clause107622107679%_)))) - (let ((_%clause107623107692%_ - (reverse _%clause107622107679%_))) - ((lambda (_%L107696%_ - _%L107698%_ - _%L107699%_) - (let _%recur107721%_ ((_%rest107724%_ - (let ((__tmp109204 + (##cdr _%e106957107020%_)))) + (_%loop106956107010%_ + _%lp-tl106959107027%_ + (cons _%lp-hd106958107024%_ + _%clause106960107017%_)))) + (let ((_%clause106961107030%_ + (reverse _%clause106960107017%_))) + ((lambda (_%L107034%_ + _%L107036%_ + _%L107037%_) + (let _%recur107059%_ ((_%rest107062%_ + (let ((__tmp108542 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g108126108129%_ _%g108127108132%_) - (cons _%g108126108129%_ _%g108127108132%_)))) + (lambda (_%g107464107467%_ _%g107465107470%_) + (cons _%g107464107467%_ _%g107465107470%_)))) (declare (not safe)) - (__foldr1 __tmp109204 '() _%L107696%_)))) + (__foldr1 __tmp108542 '() _%L107034%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest107726107735%_ - _%rest107724%_) - (_%E107729107741%_ + (let* ((_%rest107064107073%_ + _%rest107062%_) + (_%E107067107079%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest107726107735%_ + _%rest107064107073%_ '([hd . rest]) '([]))) '#!void))) - (let ((_%K107731108111%_ - (lambda (_%rest107757%_ - _%hd107759%_) - (let* ((_%g107761107769%_ - (lambda (_%g107762107765%_) + (let ((_%K107069107449%_ + (lambda (_%rest107095%_ + _%hd107097%_) + (let* ((_%g107099107107%_ + (lambda (_%g107100107103%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g107762107765%_))) - (_%g107760108107%_ - (lambda (_%g107762107773%_) - ((lambda (_%L107776%_) + _%g107100107103%_))) + (_%g107098107445%_ + (lambda (_%g107100107111%_) + ((lambda (_%L107114%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (let* ((_%g107794107802%_ - (lambda (_%g107795107798%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g107795107798%_))) - (_%g107793108103%_ - (lambda (_%g107795107806%_) - ((lambda (_%L107809%_) - (let () - (let* ((_%g107822107830%_ - (lambda (_%g107823107826%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g107823107826%_))) - (_%g107821108099%_ - (lambda (_%g107823107834%_) - ((lambda (_%L107837%_) - (let () - (let* ((_%g107850107858%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g107851107854%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g107851107854%_))) - (_%g107849107880%_ - (lambda (_%g107851107862%_) - ((lambda (_%L107865%_) - (let () - (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L107776%_ - (cons (cons (gx#datum->syntax - '#f - 'lambda) - (cons '() + (let* ((_%g107132107140%_ + (lambda (_%g107133107136%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g107133107136%_))) + (_%g107131107441%_ + (lambda (_%g107133107144%_) + ((lambda (_%L107147%_) + (let* ((_%g107160107168%_ + (lambda (_%g107161107164%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g107161107164%_))) + (_%g107159107437%_ + (lambda (_%g107161107172%_) + ((lambda (_%L107175%_) + (let* ((_%g107188107196%_ + (lambda (_%g107189107192%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g107189107192%_))) + (_%g107187107218%_ + (lambda (_%g107189107200%_) + ((lambda (_%L107203%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L107837%_ '()))) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L107865%_ '()))))) - _%g107851107862%_)))) - (_%g107849107880%_ - (let* ((_%__stx109111109112%_ _%hd107759%_) - (_%g107886107926%_ - (lambda () - (gx#raise-syntax-error '#f - '"Bad syntax; invalid match target" - _%__stx109111109112%_)))) - (let ((_%__kont109114109115%_ - (lambda (_%L108072%_) - (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp109202 - (lambda (_%g108086108089%_ - _%g108087108092%_) - (cons _%g108086108089%_ - _%g108087108092%_)))) - (declare (not safe)) - (__foldr1 - __tmp109202 - '() - _%L108072%_))))) - (_%__kont109118109119%_ - (lambda (_%L108010%_ _%L108012%_) - (_%generate1107598%_ - _%L108012%_ - _%L107699%_ - _%L108010%_ - _%L107809%_ - _%L107698%_))) - (_%__kont109120109121%_ - (lambda (_%L107963%_ _%L107965%_ _%L107966%_) - (_%generate1107598%_ - _%L107966%_ - _%L107699%_ - (cons (gx#datum->syntax '#f 'if) - (cons _%L107965%_ - (cons _%L107963%_ - (cons _%L107809%_ '())))) - _%L107809%_ - _%L107698%_)))) - (let ((_%__match109140109141%_ - (lambda (_%e107891108032%_ - _%hd107890108036%_ - _%tl107889108039%_ - _%__splice109116109117%_ - _%target107892108042%_ - _%tl107894108045%_) - (letrec ((_%loop107895108048%_ - (lambda (_%hd107893108052%_ - _%expr107899108055%_) - (if (gx#stx-pair? - _%hd107893108052%_) - (let ((_%e107896108058%_ - (gx#syntax-e - _%hd107893108052%_))) - (let ((_%lp-tl107898108065%_ - (let () - (declare - (not safe)) - (##cdr _%e107896108058%_))) - (_%lp-hd107897108062%_ - (let () - (declare - (not safe)) - (##car _%e107896108058%_)))) - (_%loop107895108048%_ - _%lp-tl107898108065%_ - (cons _%lp-hd107897108062%_ - _%expr107899108055%_)))) - (let ((_%expr107900108068%_ - (reverse _%expr107899108055%_))) - (_%__kont109114109115%_ - _%expr107900108068%_)))))) - (_%loop107895108048%_ - _%target107892108042%_ - '()))))) - (if (gx#stx-pair? _%__stx109111109112%_) - (let ((_%e107891108032%_ - (gx#syntax-e _%__stx109111109112%_))) - (let ((_%tl107889108039%_ - (let () - (declare (not safe)) - (##cdr _%e107891108032%_))) - (_%hd107890108036%_ - (let () - (declare (not safe)) - (##car _%e107891108032%_)))) - (if (gx#identifier? _%hd107890108036%_) - (if (gx#free-identifier=? - |[1]#_g109203_| - _%hd107890108036%_) - (if (gx#stx-pair/null? - _%tl107889108039%_) - (let ((_%__splice109116109117%_ - (gx#syntax-split-splice - _%tl107889108039%_ - '0))) - (let ((_%tl107894108045%_ - (let () - (declare (not safe)) - (##vector-ref - _%__splice109116109117%_ - '1))) - (_%target107892108042%_ - (let () - (declare (not safe)) - (##vector-ref - _%__splice109116109117%_ - '0)))) - (if (gx#stx-null? - _%tl107894108045%_) - (_%__match109140109141%_ - _%e107891108032%_ - _%hd107890108036%_ - _%tl107889108039%_ - _%__splice109116109117%_ - _%target107892108042%_ - _%tl107894108045%_) - (if (gx#stx-pair? - _%tl107889108039%_) - (let ((_%e107908108000%_ + 'let) + (cons (cons _%L107114%_ + (cons (cons (gx#datum->syntax + '#f + 'lambda) + (cons '() + (cons _%L107175%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl107889108039%_))) - (let ((_%tl107906108007%_ - (let () - (declare (not safe)) - (##cdr _%e107908108000%_))) - (_%hd107907108004%_ - (let () - (declare (not safe)) - (##car _%e107908108000%_)))) - (if (gx#stx-null? _%tl107906108007%_) - (_%__kont109118109119%_ - _%hd107907108004%_ - _%hd107890108036%_) - (if (gx#stx-pair? _%tl107906108007%_) - (let ((_%e107920107953%_ - (gx#syntax-e _%tl107906108007%_))) - (let ((_%tl107918107960%_ - (let () - (declare (not safe)) - (##cdr _%e107920107953%_))) - (_%hd107919107957%_ - (let () - (declare (not safe)) - (##car _%e107920107953%_)))) - (if (gx#stx-null? _%tl107918107960%_) - (_%__kont109120109121%_ - _%hd107919107957%_ - _%hd107907108004%_ - _%hd107890108036%_) - (let () - (declare (not safe)) - (_%g107886107926%_))))) - (let () - (declare (not safe)) - (_%g107886107926%_)))))) - (let () (declare (not safe)) (_%g107886107926%_)))))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _%tl107889108039%_) - (let ((_%e107908108000%_ - (gx#syntax-e - _%tl107889108039%_))) - (let ((_%tl107906108007%_ - (let () - (declare - (not safe)) - (##cdr _%e107908108000%_))) - (_%hd107907108004%_ - (let () - (declare - (not safe)) - (##car _%e107908108000%_)))) - (if (gx#stx-null? - _%tl107906108007%_) - (_%__kont109118109119%_ - _%hd107907108004%_ - _%hd107890108036%_) - (if (gx#stx-pair? - _%tl107906108007%_) - (let ((_%e107920107953%_ + '())) + (cons _%L107203%_ '())))) + _%g107189107200%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g107187107218%_ + (let* ((_%__stx108449108450%_ + _%hd107097%_) + (_%g107224107264%_ + (lambda () + (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl107906108007%_))) - (let ((_%tl107918107960%_ - (let () + '#f + '"Bad syntax; invalid match target" + _%__stx108449108450%_)))) + (let ((_%__kont108452108453%_ + (lambda (_%L107410%_) + (cons (gx#datum->syntax '#f 'begin) + (let ((__tmp108540 + (lambda (_%g107424107427%_ + _%g107425107430%_) + (cons _%g107424107427%_ + _%g107425107430%_)))) (declare (not safe)) - (##cdr _%e107920107953%_))) - (_%hd107919107957%_ - (let () - (declare (not safe)) - (##car _%e107920107953%_)))) - (if (gx#stx-null? _%tl107918107960%_) - (_%__kont109120109121%_ - _%hd107919107957%_ - _%hd107907108004%_ - _%hd107890108036%_) - (let () - (declare (not safe)) - (_%g107886107926%_))))) - (let () (declare (not safe)) (_%g107886107926%_)))))) + (__foldr1 __tmp108540 '() _%L107410%_))))) + (_%__kont108456108457%_ + (lambda (_%L107348%_ _%L107350%_) + (_%generate1106936%_ + _%L107350%_ + _%L107037%_ + _%L107348%_ + _%L107147%_ + _%L107036%_))) + (_%__kont108458108459%_ + (lambda (_%L107301%_ _%L107303%_ _%L107304%_) + (_%generate1106936%_ + _%L107304%_ + _%L107037%_ + (cons (gx#datum->syntax '#f 'if) + (cons _%L107303%_ + (cons _%L107301%_ + (cons _%L107147%_ '())))) + _%L107147%_ + _%L107036%_)))) + (let ((_%__match108478108479%_ + (lambda (_%e107229107370%_ + _%hd107228107374%_ + _%tl107227107377%_ + _%__splice108454108455%_ + _%target107230107380%_ + _%tl107232107383%_) + (letrec ((_%loop107233107386%_ + (lambda (_%hd107231107390%_ + _%expr107237107393%_) + (if (gx#stx-pair? _%hd107231107390%_) + (let ((_%e107234107396%_ + (gx#syntax-e + _%hd107231107390%_))) + (let ((_%lp-tl107236107403%_ + (let () + (declare (not safe)) + (##cdr _%e107234107396%_))) + (_%lp-hd107235107400%_ + (let () + (declare (not safe)) + (##car _%e107234107396%_)))) + (_%loop107233107386%_ + _%lp-tl107236107403%_ + (cons _%lp-hd107235107400%_ + _%expr107237107393%_)))) + (let ((_%expr107238107406%_ + (reverse _%expr107237107393%_))) + (_%__kont108452108453%_ + _%expr107238107406%_)))))) + (_%loop107233107386%_ + _%target107230107380%_ + '()))))) + (if (gx#stx-pair? _%__stx108449108450%_) + (let ((_%e107229107370%_ + (gx#syntax-e _%__stx108449108450%_))) + (let ((_%tl107227107377%_ + (let () + (declare (not safe)) + (##cdr _%e107229107370%_))) + (_%hd107228107374%_ + (let () + (declare (not safe)) + (##car _%e107229107370%_)))) + (if (gx#identifier? _%hd107228107374%_) + (if (gx#free-identifier=? + |[1]#_g108541_| + _%hd107228107374%_) + (if (gx#stx-pair/null? _%tl107227107377%_) + (let ((_%__splice108454108455%_ + (gx#syntax-split-splice + _%tl107227107377%_ + '0))) + (let ((_%tl107232107383%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice108454108455%_ + '1))) + (_%target107230107380%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice108454108455%_ + '0)))) + (if (gx#stx-null? + _%tl107232107383%_) + (_%__match108478108479%_ + _%e107229107370%_ + _%hd107228107374%_ + _%tl107227107377%_ + _%__splice108454108455%_ + _%target107230107380%_ + _%tl107232107383%_) + (if (gx#stx-pair? + _%tl107227107377%_) + (let ((_%e107246107338%_ + (gx#syntax-e + _%tl107227107377%_))) + (let ((_%tl107244107345%_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _%e107246107338%_))) + (_%hd107245107342%_ + (let () (declare (not safe)) (##car _%e107246107338%_)))) + (if (gx#stx-null? _%tl107244107345%_) + (_%__kont108456108457%_ + _%hd107245107342%_ + _%hd107228107374%_) + (if (gx#stx-pair? _%tl107244107345%_) + (let ((_%e107258107291%_ + (gx#syntax-e _%tl107244107345%_))) + (let ((_%tl107256107298%_ + (let () + (declare (not safe)) + (##cdr _%e107258107291%_))) + (_%hd107257107295%_ + (let () + (declare (not safe)) + (##car _%e107258107291%_)))) + (if (gx#stx-null? _%tl107256107298%_) + (_%__kont108458108459%_ + _%hd107257107295%_ + _%hd107245107342%_ + _%hd107228107374%_) + (let () + (declare (not safe)) + (_%g107224107264%_))))) + (let () (declare (not safe)) (_%g107224107264%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g107886107926%_)))) - (if (gx#stx-pair? _%tl107889108039%_) - (let ((_%e107908108000%_ - (gx#syntax-e - _%tl107889108039%_))) - (let ((_%tl107906108007%_ - (let () - (declare (not safe)) - (##cdr _%e107908108000%_))) - (_%hd107907108004%_ - (let () - (declare (not safe)) - (##car _%e107908108000%_)))) - (if (gx#stx-null? - _%tl107906108007%_) - (_%__kont109118109119%_ - _%hd107907108004%_ - _%hd107890108036%_) - (if (gx#stx-pair? - _%tl107906108007%_) - (let ((_%e107920107953%_ + (let () + (declare (not safe)) + (_%g107224107264%_)))))) + (if (gx#stx-pair? _%tl107227107377%_) + (let ((_%e107246107338%_ + (gx#syntax-e + _%tl107227107377%_))) + (let ((_%tl107244107345%_ + (let () + (declare (not safe)) + (##cdr _%e107246107338%_))) + (_%hd107245107342%_ + (let () + (declare (not safe)) + (##car _%e107246107338%_)))) + (if (gx#stx-null? + _%tl107244107345%_) + (_%__kont108456108457%_ + _%hd107245107342%_ + _%hd107228107374%_) + (if (gx#stx-pair? + _%tl107244107345%_) + (let ((_%e107258107291%_ + (gx#syntax-e + _%tl107244107345%_))) + (let ((_%tl107256107298%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl107906108007%_))) - (let ((_%tl107918107960%_ - (let () - (declare (not safe)) - (##cdr _%e107920107953%_))) - (_%hd107919107957%_ - (let () - (declare (not safe)) - (##car _%e107920107953%_)))) - (if (gx#stx-null? _%tl107918107960%_) - (_%__kont109120109121%_ - _%hd107919107957%_ - _%hd107907108004%_ - _%hd107890108036%_) - (let () (declare (not safe)) (_%g107886107926%_))))) - (let () (declare (not safe)) (_%g107886107926%_)))))) + (let () + (declare (not safe)) + (##cdr _%e107258107291%_))) + (_%hd107257107295%_ + (let () + (declare (not safe)) + (##car _%e107258107291%_)))) + (if (gx#stx-null? _%tl107256107298%_) + (_%__kont108458108459%_ + _%hd107257107295%_ + _%hd107245107342%_ + _%hd107228107374%_) + (let () (declare (not safe)) (_%g107224107264%_))))) + (let () (declare (not safe)) (_%g107224107264%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g107886107926%_)))) - (if (gx#stx-pair? _%tl107889108039%_) - (let ((_%e107908108000%_ - (gx#syntax-e - _%tl107889108039%_))) - (let ((_%tl107906108007%_ - (let () - (declare (not safe)) - (##cdr _%e107908108000%_))) - (_%hd107907108004%_ - (let () - (declare (not safe)) - (##car _%e107908108000%_)))) - (if (gx#stx-null? - _%tl107906108007%_) - (_%__kont109118109119%_ - _%hd107907108004%_ - _%hd107890108036%_) - (if (gx#stx-pair? - _%tl107906108007%_) - (let ((_%e107920107953%_ - (gx#syntax-e - _%tl107906108007%_))) - (let ((_%tl107918107960%_ - (let () + (let () + (declare (not safe)) + (_%g107224107264%_)))) + (if (gx#stx-pair? _%tl107227107377%_) + (let ((_%e107246107338%_ + (gx#syntax-e + _%tl107227107377%_))) + (let ((_%tl107244107345%_ + (let () + (declare (not safe)) + (##cdr _%e107246107338%_))) + (_%hd107245107342%_ + (let () + (declare (not safe)) + (##car _%e107246107338%_)))) + (if (gx#stx-null? + _%tl107244107345%_) + (_%__kont108456108457%_ + _%hd107245107342%_ + _%hd107228107374%_) + (if (gx#stx-pair? + _%tl107244107345%_) + (let ((_%e107258107291%_ + (gx#syntax-e + _%tl107244107345%_))) + (let ((_%tl107256107298%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _%e107920107953%_))) - (_%hd107919107957%_ - (let () - (declare (not safe)) - (##car _%e107920107953%_)))) - (if (gx#stx-null? _%tl107918107960%_) - (_%__kont109120109121%_ - _%hd107919107957%_ - _%hd107907108004%_ - _%hd107890108036%_) - (let () (declare (not safe)) (_%g107886107926%_))))) - (let () (declare (not safe)) (_%g107886107926%_)))))) + (not safe)) + (##cdr _%e107258107291%_))) + (_%hd107257107295%_ + (let () (declare (not safe)) (##car _%e107258107291%_)))) + (if (gx#stx-null? _%tl107256107298%_) + (_%__kont108458108459%_ + _%hd107257107295%_ + _%hd107245107342%_ + _%hd107228107374%_) + (let () (declare (not safe)) (_%g107224107264%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g107886107926%_)))))) - (let () - (declare (not safe)) - (_%g107886107926%_)))))))))) + (let () + (declare (not safe)) + (_%g107224107264%_)))))) + (let () + (declare (not safe)) + (_%g107224107264%_)))) + (if (gx#stx-pair? _%tl107227107377%_) + (let ((_%e107246107338%_ + (gx#syntax-e _%tl107227107377%_))) + (let ((_%tl107244107345%_ + (let () + (declare (not safe)) + (##cdr _%e107246107338%_))) + (_%hd107245107342%_ + (let () + (declare (not safe)) + (##car _%e107246107338%_)))) + (if (gx#stx-null? _%tl107244107345%_) + (_%__kont108456108457%_ + _%hd107245107342%_ + _%hd107228107374%_) + (if (gx#stx-pair? + _%tl107244107345%_) + (let ((_%e107258107291%_ + (gx#syntax-e + _%tl107244107345%_))) + (let ((_%tl107256107298%_ + (let () + (declare (not safe)) + (##cdr _%e107258107291%_))) + (_%hd107257107295%_ + (let () + (declare (not safe)) + (##car _%e107258107291%_)))) + (if (gx#stx-null? + _%tl107256107298%_) + (_%__kont108458108459%_ + _%hd107257107295%_ + _%hd107245107342%_ + _%hd107228107374%_) + (let () + (declare (not safe)) + (_%g107224107264%_))))) + (let () + (declare (not safe)) + (_%g107224107264%_)))))) + (let () + (declare (not safe)) + (_%g107224107264%_)))))) + (let () + (declare (not safe)) + (_%g107224107264%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g107823107834%_)))) - (_%g107821108099%_ - (_%recur107721%_ - _%rest107757%_))))) - _%g107795107806%_)))) - (_%g107793108103%_ (cons _%L107776%_ '()))))) - _%g107762107773%_)))) - (_%g107760108107%_ (gx#genident '$E))))) + _%g107161107172%_)))) + (_%g107159107437%_ + (_%recur107059%_ _%rest107095%_)))) + _%g107133107144%_)))) + (_%g107131107441%_ (cons _%L107114%_ '())))) + _%g107100107111%_)))) + (_%g107098107445%_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K107730107749%_ + (_%K107068107087%_ (lambda () (cons (gx#datum->syntax '#f @@ -1255,52 +1222,52 @@ (cons '#f (cons '"Bad syntax; malformed ast clause" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L107699%_ '()))))))) + (cons _%L107037%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match107728107753%_ + (let ((_%try-match107066107091%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest107726107735%_)) - (_%K107730107749%_) - (_%E107729107741%_))))) + (##null? _%rest107064107073%_)) + (_%K107068107087%_) + (_%E107067107079%_))))) (if (let () (declare (not safe)) - (##pair? _%rest107726107735%_)) - (let ((_%tl107733108118%_ + (##pair? _%rest107064107073%_)) + (let ((_%tl107071107456%_ (let () (declare (not safe)) - (##cdr _%rest107726107735%_))) - (_%hd107732108115%_ + (##cdr _%rest107064107073%_))) + (_%hd107070107453%_ (let () (declare (not safe)) - (##car _%rest107726107735%_)))) - (let ((_%hd108121%_ - _%hd107732108115%_) - (_%rest108124%_ - _%tl107733108118%_)) - (_%K107731108111%_ - _%rest108124%_ - _%hd108121%_))) - (_%try-match107728107753%_))))))) - _%clause107623107692%_ - _%hd107613107660%_ - _%hd107610107650%_)))))) - (_%loop107618107672%_ _%target107615107666%_ '())) - (_%g107601107629%_ _%g107602107633%_))))) + (##car _%rest107064107073%_)))) + (let ((_%hd107459%_ + _%hd107070107453%_) + (_%rest107462%_ + _%tl107071107456%_)) + (_%K107069107449%_ + _%rest107462%_ + _%hd107459%_))) + (_%try-match107066107091%_))))))) + _%clause106961107030%_ + _%hd106951106998%_ + _%hd106948106988%_)))))) + (_%loop106956107010%_ _%target106953107004%_ '())) + (_%g106939106967%_ _%g106940106971%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g107601107629%_ - _%g107602107633%_)))) - (_%g107601107629%_ - _%g107602107633%_)))) - (_%g107601107629%_ _%g107602107633%_)))) - (_%g107601107629%_ _%g107602107633%_))))) - (_%g107600108135%_ _%stx107595%_))))) + (_%g106939106967%_ + _%g106940106971%_)))) + (_%g106939106967%_ + _%g106940106971%_)))) + (_%g106939106967%_ _%g106940106971%_)))) + (_%g106939106967%_ _%g106940106971%_))))) + (_%g106938107473%_ _%stx106933%_))))) (define |[:0:]#SyntaxError| - (let ((__obj109186 + (let ((__obj108524 (let () (declare (not safe)) (##structure @@ -1329,18 +1296,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109186 + __obj108524 'gerbil/runtime/syntax#SyntaxError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109186 'SyntaxError '2 '#f '#f)) + (##unchecked-structure-set! __obj108524 'SyntaxError '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj109186 + __obj108524 '(message irritants where context phi marks) '4 '#f @@ -1348,99 +1315,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109186 + __obj108524 '(continuation message irritants where context phi marks) '6 '#f '#f)) - (let ((__tmp109205 (cons |[1]#_g109206_| (cons |[1]#_g109207_| '())))) + (let ((__tmp108543 (cons |[1]#_g108544_| (cons |[1]#_g108545_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109186 __tmp109205 '3 '#f '#f)) + (##unchecked-structure-set! __obj108524 __tmp108543 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109186 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj108524 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109186 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj108524 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109186 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj108524 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109186 '#f '11 '#f '#f)) - (let ((__tmp109208 |[1]#_g109209_|)) + (##unchecked-structure-set! __obj108524 '#f '11 '#f '#f)) + (let ((__tmp108546 |[1]#_g108547_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109186 __tmp109208 '12 '#f '#f)) - (let ((__tmp109210 |[1]#_g109211_|)) + (##unchecked-structure-set! __obj108524 __tmp108546 '12 '#f '#f)) + (let ((__tmp108548 |[1]#_g108549_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109186 __tmp109210 '13 '#f '#f)) - (let ((__tmp109212 |[1]#_g109213_|)) + (##unchecked-structure-set! __obj108524 __tmp108548 '13 '#f '#f)) + (let ((__tmp108550 |[1]#_g108551_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109186 __tmp109212 '14 '#f '#f)) - (let ((__tmp109214 - (cons (cons 'message |[1]#_g109215_|) - (cons (cons 'irritants |[1]#_g109216_|) - (cons (cons 'where |[1]#_g109217_|) - (cons (cons 'context |[1]#_g109218_|) - (cons (cons 'phi |[1]#_g109219_|) + (##unchecked-structure-set! __obj108524 __tmp108550 '14 '#f '#f)) + (let ((__tmp108552 + (cons (cons 'message |[1]#_g108553_|) + (cons (cons 'irritants |[1]#_g108554_|) + (cons (cons 'where |[1]#_g108555_|) + (cons (cons 'context |[1]#_g108556_|) + (cons (cons 'phi |[1]#_g108557_|) (cons (cons 'marks - |[1]#_g109220_|) + |[1]#_g108558_|) (cons (cons 'continuation - |[1]#_g109221_|) + |[1]#_g108559_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj109186 __tmp109214 '15 '#f '#f)) - (let ((__tmp109222 - (cons (cons 'message |[1]#_g109223_|) - (cons (cons 'irritants |[1]#_g109224_|) - (cons (cons 'where |[1]#_g109225_|) - (cons (cons 'context |[1]#_g109226_|) - (cons (cons 'phi |[1]#_g109227_|) + (##unchecked-structure-set! __obj108524 __tmp108552 '15 '#f '#f)) + (let ((__tmp108560 + (cons (cons 'message |[1]#_g108561_|) + (cons (cons 'irritants |[1]#_g108562_|) + (cons (cons 'where |[1]#_g108563_|) + (cons (cons 'context |[1]#_g108564_|) + (cons (cons 'phi |[1]#_g108565_|) (cons (cons 'marks - |[1]#_g109228_|) + |[1]#_g108566_|) (cons (cons 'continuation - |[1]#_g109229_|) + |[1]#_g108567_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj109186 __tmp109222 '16 '#f '#f)) - (let ((__tmp109230 - (cons (cons 'message |[1]#_g109231_|) - (cons (cons 'irritants |[1]#_g109232_|) - (cons (cons 'where |[1]#_g109233_|) - (cons (cons 'context |[1]#_g109234_|) - (cons (cons 'phi |[1]#_g109235_|) + (##unchecked-structure-set! __obj108524 __tmp108560 '16 '#f '#f)) + (let ((__tmp108568 + (cons (cons 'message |[1]#_g108569_|) + (cons (cons 'irritants |[1]#_g108570_|) + (cons (cons 'where |[1]#_g108571_|) + (cons (cons 'context |[1]#_g108572_|) + (cons (cons 'phi |[1]#_g108573_|) (cons (cons 'marks - |[1]#_g109236_|) + |[1]#_g108574_|) (cons (cons 'continuation - |[1]#_g109237_|) + |[1]#_g108575_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj109186 __tmp109230 '17 '#f '#f)) - (let ((__tmp109238 - (cons (cons 'message |[1]#_g109239_|) - (cons (cons 'irritants |[1]#_g109240_|) - (cons (cons 'where |[1]#_g109241_|) - (cons (cons 'context |[1]#_g109242_|) - (cons (cons 'phi |[1]#_g109243_|) + (##unchecked-structure-set! __obj108524 __tmp108568 '17 '#f '#f)) + (let ((__tmp108576 + (cons (cons 'message |[1]#_g108577_|) + (cons (cons 'irritants |[1]#_g108578_|) + (cons (cons 'where |[1]#_g108579_|) + (cons (cons 'context |[1]#_g108580_|) + (cons (cons 'phi |[1]#_g108581_|) (cons (cons 'marks - |[1]#_g109244_|) + |[1]#_g108582_|) (cons (cons 'continuation - |[1]#_g109245_|) + |[1]#_g108583_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj109186 __tmp109238 '18 '#f '#f)) + (##unchecked-structure-set! __obj108524 __tmp108576 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109186 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj108524 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109186 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj108524 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109186 '() '20 '#f '#f)) - __obj109186)) + (##unchecked-structure-set! __obj108524 '() '20 '#f '#f)) + __obj108524)) (define |[:0:]#AST| - (let ((__obj109188 + (let ((__obj108526 (let () (declare (not safe)) (##structure @@ -1468,67 +1435,67 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109188 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj108526 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109188 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj108526 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109188 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj108526 '(e source) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109188 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj108526 '(e source) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109188 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj108526 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109188 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj108526 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109188 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj108526 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109188 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj108526 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109188 '#f '11 '#f '#f)) - (let ((__tmp109246 |[1]#_g109247_|)) + (##unchecked-structure-set! __obj108526 '#f '11 '#f '#f)) + (let ((__tmp108584 |[1]#_g108585_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109188 __tmp109246 '12 '#f '#f)) - (let ((__tmp109248 |[1]#_g109249_|)) + (##unchecked-structure-set! __obj108526 __tmp108584 '12 '#f '#f)) + (let ((__tmp108586 |[1]#_g108587_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109188 __tmp109248 '13 '#f '#f)) - (let ((__tmp109250 |[1]#_g109251_|)) + (##unchecked-structure-set! __obj108526 __tmp108586 '13 '#f '#f)) + (let ((__tmp108588 |[1]#_g108589_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109188 __tmp109250 '14 '#f '#f)) - (let ((__tmp109252 - (cons (cons 'e |[1]#_g109253_|) - (cons (cons 'source |[1]#_g109254_|) '())))) + (##unchecked-structure-set! __obj108526 __tmp108588 '14 '#f '#f)) + (let ((__tmp108590 + (cons (cons 'e |[1]#_g108591_|) + (cons (cons 'source |[1]#_g108592_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109188 __tmp109252 '15 '#f '#f)) - (let ((__tmp109255 - (cons (cons 'e |[1]#_g109256_|) - (cons (cons 'source |[1]#_g109257_|) '())))) + (##unchecked-structure-set! __obj108526 __tmp108590 '15 '#f '#f)) + (let ((__tmp108593 + (cons (cons 'e |[1]#_g108594_|) + (cons (cons 'source |[1]#_g108595_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109188 __tmp109255 '16 '#f '#f)) - (let ((__tmp109258 - (cons (cons 'e |[1]#_g109259_|) - (cons (cons 'source |[1]#_g109260_|) '())))) + (##unchecked-structure-set! __obj108526 __tmp108593 '16 '#f '#f)) + (let ((__tmp108596 + (cons (cons 'e |[1]#_g108597_|) + (cons (cons 'source |[1]#_g108598_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109188 __tmp109258 '17 '#f '#f)) - (let ((__tmp109261 - (cons (cons 'e |[1]#_g109262_|) - (cons (cons 'source |[1]#_g109263_|) '())))) + (##unchecked-structure-set! __obj108526 __tmp108596 '17 '#f '#f)) + (let ((__tmp108599 + (cons (cons 'e |[1]#_g108600_|) + (cons (cons 'source |[1]#_g108601_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109188 __tmp109261 '18 '#f '#f)) + (##unchecked-structure-set! __obj108526 __tmp108599 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109188 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj108526 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109188 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj108526 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109188 '() '20 '#f '#f)) - __obj109188)))) + (##unchecked-structure-set! __obj108526 '() '20 '#f '#f)) + __obj108526)))) diff --git a/src/bootstrap/gerbil/runtime/system.ssxi.ss b/src/bootstrap/gerbil/runtime/system.ssxi.ss index e8c0a0487..37b46a910 100644 --- a/src/bootstrap/gerbil/runtime/system.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/system.ssxi.ss @@ -7,7 +7,16 @@ package: gerbil/runtime (@lambda 0 #f signature: - (return: string::t effect: #f arguments: #f unchecked: #f))) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system))) (declare-type gerbil-system-manifest (optimizer-resolve-class '(typedecl gerbil-system-manifest) 'pair::t)) @@ -19,75 +28,192 @@ package: gerbil/runtime (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system))) (declare-type display-build-manifest__0 (@lambda 0 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system))) (declare-type display-build-manifest__1 (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system))) (declare-type display-build-manifest (@case-lambda (0 display-build-manifest__0 signature: - (return: void::t effect: #f arguments: #f unchecked: #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system)) (1 display-build-manifest__1 signature: - (return: void::t effect: #f arguments: #f unchecked: #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system)) (2 display-build-manifest__% signature: - (return: void::t effect: #f arguments: #f unchecked: #f)))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system)))) (declare-type build-manifest/layer (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system))) (declare-type build-manifest/head (@lambda 0 #f signature: - (return: pair::t effect: #f arguments: #f unchecked: #f))) + (return: + pair::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system))) (declare-type build-manifest-string__% (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system))) (declare-type build-manifest-string__0 (@lambda 0 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system))) (declare-type build-manifest-string (@case-lambda (0 build-manifest-string__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system)) (1 build-manifest-string__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system)))) (declare-type gerbil-system-version-string (@lambda 0 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system))) (declare-type gerbil-greeting (optimizer-resolve-class '(typedecl gerbil-greeting) 't::t)) @@ -96,22 +222,58 @@ package: gerbil/runtime (@lambda 0 #f signature: - (return: symbol::t effect: #f arguments: #f unchecked: #f))) + (return: + symbol::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system))) (declare-type gerbil-home (@lambda 0 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system))) (declare-type gerbil-path (@lambda 0 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system))) (declare-type gerbil-runtime-smp? (@lambda 0 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f)))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/system)))) diff --git a/src/bootstrap/gerbil/runtime/system~0.scm b/src/bootstrap/gerbil/runtime/system~0.scm index fa760df60..3d837917e 100644 --- a/src/bootstrap/gerbil/runtime/system~0.scm +++ b/src/bootstrap/gerbil/runtime/system~0.scm @@ -1,165 +1,130 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/system::timestamp 1712533288) + (define gerbil/runtime/system::timestamp 1712573429) (begin - (define gerbil-version-string (lambda () '"v0.18.1-100-g67fbdb78")) + (define gerbil-version-string (lambda () '"v0.18.1-88-gfb72cfba")) (define gerbil-system-manifest - (cons (cons '"Gerbil" - (let () (declare (not safe)) (gerbil-version-string))) + (cons (cons '"Gerbil" (gerbil-version-string)) (cons (cons '"Gambit" (system-version-string)) '()))) (define build-manifest gerbil-system-manifest) (set! build-manifest build-manifest) (define display-build-manifest__% - (lambda (_%manifest91016%_ _%port91017%_) - (let ((_%p91023%_ - (lambda (_%g9101891020%_) - (display _%g9101891020%_ _%port91017%_))) - (_%l91024%_ (length _%manifest91016%_)) - (_%i91025%_ '0)) + (lambda (_%manifest90711%_ _%port90712%_) + (let ((_%p90718%_ + (lambda (_%g9071390715%_) + (display _%g9071390715%_ _%port90712%_))) + (_%l90719%_ (length _%manifest90711%_)) + (_%i90720%_ '0)) (for-each - (lambda (_%layer91027%_) - (if (zero? _%i91025%_) - (let () '#!void) - (if (= _%i91025%_ '1) - (let () (declare (not safe)) (_%p91023%_ '" on ")) - (let () (declare (not safe)) (_%p91023%_ '", ")))) - (let* ((_%layer9103191038%_ _%layer91027%_) - (_%E9103391042%_ + (lambda (_%layer90722%_) + (if (zero? _%i90720%_) + '#!void + (if (= _%i90720%_ '1) + (_%p90718%_ '" on ") + (_%p90718%_ '", "))) + (let* ((_%layer9072690733%_ _%layer90722%_) + (_%E9072890737%_ (lambda () (error '"No clause matching" - _%layer9103191038%_ + _%layer9072690733%_ '([name . version])) '#!void)) - (_%K9103491048%_ - (lambda (_%version91045%_ _%name91046%_) - (let () (declare (not safe)) (_%p91023%_ _%name91046%_)) - (let () (declare (not safe)) (_%p91023%_ '" ")) - (let () - (declare (not safe)) - (_%p91023%_ _%version91045%_))))) - (if (let () (declare (not safe)) (##pair? _%layer9103191038%_)) - (let ((_%hd9103591051%_ + (_%K9072990743%_ + (lambda (_%version90740%_ _%name90741%_) + (_%p90718%_ _%name90741%_) + (_%p90718%_ '" ") + (_%p90718%_ _%version90740%_)))) + (if (let () (declare (not safe)) (##pair? _%layer9072690733%_)) + (let ((_%hd9073090746%_ (let () (declare (not safe)) - (##car _%layer9103191038%_))) - (_%tl9103691053%_ + (##car _%layer9072690733%_))) + (_%tl9073190748%_ (let () (declare (not safe)) - (##cdr _%layer9103191038%_)))) - (let* ((_%name91056%_ _%hd9103591051%_) - (_%version91058%_ _%tl9103691053%_)) - (declare (not safe)) - (_%K9103491048%_ _%version91058%_ _%name91056%_))) - (let () (declare (not safe)) (_%E9103391042%_)))) - (set! _%i91025%_ (+ _%i91025%_ '1))) - _%manifest91016%_)))) + (##cdr _%layer9072690733%_)))) + (let* ((_%name90751%_ _%hd9073090746%_) + (_%version90753%_ _%tl9073190748%_)) + (_%K9072990743%_ _%version90753%_ _%name90751%_))) + (_%E9072890737%_))) + (set! _%i90720%_ (+ _%i90720%_ '1))) + _%manifest90711%_)))) (define display-build-manifest__0 (lambda () - (let* ((_%manifest91064%_ build-manifest) - (_%port91066%_ (current-output-port))) - (declare (not safe)) - (display-build-manifest__% _%manifest91064%_ _%port91066%_)))) + (let* ((_%manifest90759%_ build-manifest) + (_%port90761%_ (current-output-port))) + (display-build-manifest__% _%manifest90759%_ _%port90761%_)))) (define display-build-manifest__1 - (lambda (_%manifest91068%_) - (let ((_%port91070%_ (current-output-port))) - (declare (not safe)) - (display-build-manifest__% _%manifest91068%_ _%port91070%_)))) + (lambda (_%manifest90763%_) + (let ((_%port90765%_ (current-output-port))) + (display-build-manifest__% _%manifest90763%_ _%port90765%_)))) (define display-build-manifest - (lambda _g91076_ - (let ((_g91075_ (let () (declare (not safe)) (##length _g91076_)))) - (cond ((let () (declare (not safe)) (##fx= _g91075_ 0)) - (apply (lambda () - (let () - (declare (not safe)) - (display-build-manifest__0))) - _g91076_)) - ((let () (declare (not safe)) (##fx= _g91075_ 1)) - (apply (lambda (_%manifest91068%_) - (let () - (declare (not safe)) - (display-build-manifest__1 _%manifest91068%_))) - _g91076_)) - ((let () (declare (not safe)) (##fx= _g91075_ 2)) - (apply (lambda (_%manifest91072%_ _%port91073%_) - (let () - (declare (not safe)) - (display-build-manifest__% - _%manifest91072%_ - _%port91073%_))) - _g91076_)) + (lambda _g90771_ + (let ((_g90770_ (let () (declare (not safe)) (##length _g90771_)))) + (cond ((let () (declare (not safe)) (##fx= _g90770_ 0)) + (apply display-build-manifest__0 _g90771_)) + ((let () (declare (not safe)) (##fx= _g90770_ 1)) + (apply display-build-manifest__1 _g90771_)) + ((let () (declare (not safe)) (##fx= _g90770_ 2)) + (apply display-build-manifest__% _g90771_)) (else (##raise-wrong-number-of-arguments-exception display-build-manifest - _g91076_)))))) + _g90771_)))))) (define build-manifest/layer - (lambda (_%layer91011%_) - (let ((_%l91013%_ (assoc _%layer91011%_ build-manifest))) - (if _%l91013%_ (cons _%l91013%_ '()) '())))) + (lambda (_%layer90706%_) + (let ((_%l90708%_ (assoc _%layer90706%_ build-manifest))) + (if _%l90708%_ (cons _%l90708%_ '()) '())))) (define build-manifest/head (lambda () (cons (let () (declare (not safe)) (##car build-manifest)) '()))) (define build-manifest-string__% - (lambda (_%manifest90998%_) + (lambda (_%manifest90693%_) (call-with-output-string '() - (lambda (_%p91000%_) - (let () - (declare (not safe)) - (display-build-manifest__% _%manifest90998%_ _%p91000%_)))))) + (lambda (_%p90695%_) + (display-build-manifest__% _%manifest90693%_ _%p90695%_))))) (define build-manifest-string__0 (lambda () - (let ((_%manifest91006%_ build-manifest)) - (declare (not safe)) - (build-manifest-string__% _%manifest91006%_)))) + (let ((_%manifest90701%_ build-manifest)) + (build-manifest-string__% _%manifest90701%_)))) (define build-manifest-string - (lambda _g91078_ - (let ((_g91077_ (let () (declare (not safe)) (##length _g91078_)))) - (cond ((let () (declare (not safe)) (##fx= _g91077_ 0)) - (apply (lambda () - (let () - (declare (not safe)) - (build-manifest-string__0))) - _g91078_)) - ((let () (declare (not safe)) (##fx= _g91077_ 1)) - (apply (lambda (_%manifest91008%_) - (let () - (declare (not safe)) - (build-manifest-string__% _%manifest91008%_))) - _g91078_)) + (lambda _g90773_ + (let ((_g90772_ (let () (declare (not safe)) (##length _g90773_)))) + (cond ((let () (declare (not safe)) (##fx= _g90772_ 0)) + (apply build-manifest-string__0 _g90773_)) + ((let () (declare (not safe)) (##fx= _g90772_ 1)) + (apply build-manifest-string__% _g90773_)) (else (##raise-wrong-number-of-arguments-exception build-manifest-string - _g91078_)))))) + _g90773_)))))) (define gerbil-system-version-string - (lambda () - (let () - (declare (not safe)) - (build-manifest-string__% gerbil-system-manifest)))) - (define gerbil-greeting - (let () (declare (not safe)) (gerbil-system-version-string))) + (lambda () (build-manifest-string__% gerbil-system-manifest))) + (define gerbil-greeting (gerbil-system-version-string)) (set! gerbil-greeting gerbil-greeting) (define gerbil-system (lambda () 'gerbil-gambit)) (define gerbil-home (lambda () - (let ((_%$e90992%_ + (let ((_%$e90687%_ (let () (declare (not safe)) (##getenv '"GERBIL_HOME" '#f)))) - (if _%$e90992%_ _%$e90992%_ (path-expand '"~~"))))) + (if _%$e90687%_ _%$e90687%_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_%$e90988%_ + (let ((_%$e90683%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%$e90988%_ _%$e90988%_ (path-expand '"~/.gerbil"))))) + (if _%$e90683%_ _%$e90683%_ (path-expand '"~/.gerbil"))))) (define __smp? '#!void) (define gerbil-runtime-smp? (lambda () - (if (let () (declare (not safe)) (eq? __smp? '#!void)) + (if (eq? __smp? '#!void) (set! __smp? - (if (let ((__tmp91079 - (let ((__tmp91080 (configure-command-string))) + (if (let ((__tmp90774 + (let ((__tmp90775 (configure-command-string))) (declare (not safe)) - (__string-split __tmp91080 '#\')))) + (__string-split __tmp90775 '#\')))) (declare (not safe)) - (##member '"--enable-smp" __tmp91079)) + (##member '"--enable-smp" __tmp90774)) '#t '#f)) '#!void) diff --git a/src/bootstrap/gerbil/runtime/table.ssxi.ss b/src/bootstrap/gerbil/runtime/table.ssxi.ss index 42ae93acb..33252dffb 100644 --- a/src/bootstrap/gerbil/runtime/table.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/table.ssxi.ss @@ -5,166 +5,1749 @@ package: gerbil/runtime (declare-type __table::t.id (optimizer-resolve-class '(typedecl __table::t.id) 'symbol::t)) - (declare-type &raw-table-table (@lambda 1 #f)) - (declare-type &raw-table-count (@lambda 1 #f)) - (declare-type &raw-table-free (@lambda 1 #f)) - (declare-type &raw-table-hash (@lambda 1 #f)) - (declare-type &raw-table-test (@lambda 1 #f)) - (declare-type &raw-table-seed (@lambda 1 #f)) - (declare-type &raw-table-table-set! (@lambda 2 #f)) - (declare-type &raw-table-count-set! (@lambda 2 #f)) - (declare-type &raw-table-free-set! (@lambda 2 #f)) - (declare-type &raw-table-hash-set! (@lambda 2 #f)) - (declare-type &raw-table-test-set! (@lambda 2 #f)) - (declare-type &raw-table-seed-set! (@lambda 2 #f)) + (declare-type + &raw-table-table + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + &raw-table-count + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + &raw-table-free + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + &raw-table-hash + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + &raw-table-test + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + &raw-table-seed + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + &raw-table-table-set! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + &raw-table-count-set! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + &raw-table-free-set! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + &raw-table-hash-set! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + &raw-table-test-set! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + &raw-table-seed-set! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type raw-table-size-hint->size (@lambda 1 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) - (declare-type make-raw-table__% (@lambda 4 #f)) - (declare-type make-raw-table__0 (@lambda 3 #f)) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-raw-table__% + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-raw-table__0 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type make-raw-table - (@case-lambda (3 make-raw-table__0) (4 make-raw-table__%))) - (declare-type raw-table-ref (@lambda 3 #f)) - (declare-type raw-table-set! (@lambda 3 #f)) - (declare-type raw-table-update! (@lambda 4 #f)) - (declare-type raw-table-delete! (@lambda 2 #f)) - (declare-type raw-table-for-each (@lambda 2 #f)) - (declare-type raw-table-copy (@lambda 1 #f)) - (declare-type raw-table-clear! (@lambda 1 #f)) - (declare-type __raw-table-set! (@lambda 3 #f)) - (declare-type __raw-table-update! (@lambda 4 #f)) - (declare-type __raw-table-rehash! (@lambda 1 #f)) - (declare-type eq-hash (@lambda 1 #f)) + (@case-lambda + (3 + make-raw-table__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (4 + make-raw-table__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type + raw-table-ref + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + raw-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + raw-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + raw-table-delete! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + raw-table-for-each + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + raw-table-copy + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + raw-table-clear! + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __raw-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __raw-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __raw-table-rehash! + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eq-hash + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type procedure-hash (@lambda 1 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) - (declare-type __eq-hash (@lambda 1 #f)) - (declare-type eqv-hash (@lambda 1 #f)) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __eq-hash + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eqv-hash + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type symbolic? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type symbolic-hash (@lambda 1 #f)) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + symbolic-hash + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type string-hash (@lambda 1 ##string=?-hash)) - (declare-type immediate-hash (@lambda 1 #f)) - (declare-type make-eq-table__% (@lambda 2 #f)) - (declare-type make-eq-table__0 (@lambda 0 #f)) - (declare-type make-eq-table__1 (@lambda 1 #f)) + (declare-type + immediate-hash + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-eq-table__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-eq-table__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-eq-table__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type make-eq-table (@case-lambda - (0 make-eq-table__0) - (1 make-eq-table__1) - (2 make-eq-table__%))) - (declare-type eq-table-ref (@lambda 3 #f)) - (declare-type eq-table-set! (@lambda 3 #f)) - (declare-type __eq-table-set! (@lambda 3 #f)) - (declare-type eq-table-update! (@lambda 4 #f)) - (declare-type __eq-table-update! (@lambda 4 #f)) - (declare-type eq-table-delete! (@lambda 2 #f)) - (declare-type make-eqv-table__% (@lambda 2 #f)) - (declare-type make-eqv-table__0 (@lambda 0 #f)) - (declare-type make-eqv-table__1 (@lambda 1 #f)) + (0 + make-eq-table__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (1 + make-eq-table__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (2 + make-eq-table__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type + eq-table-ref + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eq-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __eq-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eq-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __eq-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eq-table-delete! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-eqv-table__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-eqv-table__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-eqv-table__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type make-eqv-table (@case-lambda - (0 make-eqv-table__0) - (1 make-eqv-table__1) - (2 make-eqv-table__%))) - (declare-type eqv-table-ref (@lambda 3 #f)) - (declare-type eqv-table-set! (@lambda 3 #f)) - (declare-type __eqv-table-set! (@lambda 3 #f)) - (declare-type eqv-table-update! (@lambda 4 #f)) - (declare-type __eqv-table-update! (@lambda 4 #f)) - (declare-type eqv-table-delete! (@lambda 2 #f)) - (declare-type make-symbolic-table__% (@lambda 2 #f)) - (declare-type make-symbolic-table__0 (@lambda 0 #f)) - (declare-type make-symbolic-table__1 (@lambda 1 #f)) + (0 + make-eqv-table__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (1 + make-eqv-table__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (2 + make-eqv-table__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type + eqv-table-ref + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eqv-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __eqv-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eqv-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __eqv-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eqv-table-delete! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-symbolic-table__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-symbolic-table__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-symbolic-table__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type make-symbolic-table (@case-lambda - (0 make-symbolic-table__0) - (1 make-symbolic-table__1) - (2 make-symbolic-table__%))) - (declare-type symbolic-table-ref (@lambda 3 #f)) - (declare-type symbolic-table-set! (@lambda 3 #f)) - (declare-type __symbolic-table-set! (@lambda 3 #f)) - (declare-type symbolic-table-update! (@lambda 4 #f)) - (declare-type __symbolic-table-update! (@lambda 4 #f)) - (declare-type symbolic-table-delete! (@lambda 2 #f)) - (declare-type make-string-table__% (@lambda 2 #f)) - (declare-type make-string-table__0 (@lambda 0 #f)) - (declare-type make-string-table__1 (@lambda 1 #f)) + (0 + make-symbolic-table__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (1 + make-symbolic-table__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (2 + make-symbolic-table__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type + symbolic-table-ref + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + symbolic-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __symbolic-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + symbolic-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __symbolic-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + symbolic-table-delete! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-string-table__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-string-table__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-string-table__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type make-string-table (@case-lambda - (0 make-string-table__0) - (1 make-string-table__1) - (2 make-string-table__%))) - (declare-type string-table-ref (@lambda 3 #f)) - (declare-type string-table-set! (@lambda 3 #f)) - (declare-type __string-table-set! (@lambda 3 #f)) - (declare-type string-table-update! (@lambda 4 #f)) - (declare-type __string-table-update! (@lambda 4 #f)) - (declare-type string-table-delete! (@lambda 2 #f)) - (declare-type make-immediate-table__% (@lambda 2 #f)) - (declare-type make-immediate-table__0 (@lambda 0 #f)) - (declare-type make-immediate-table__1 (@lambda 1 #f)) + (0 + make-string-table__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (1 + make-string-table__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (2 + make-string-table__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type + string-table-ref + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + string-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __string-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + string-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __string-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + string-table-delete! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-immediate-table__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-immediate-table__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-immediate-table__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type make-immediate-table (@case-lambda - (0 make-immediate-table__0) - (1 make-immediate-table__1) - (2 make-immediate-table__%))) - (declare-type immediate-table-ref (@lambda 3 #f)) - (declare-type immediate-table-set! (@lambda 3 #f)) - (declare-type __immediate-table-set! (@lambda 3 #f)) - (declare-type immediate-table-update! (@lambda 4 #f)) - (declare-type __immediate-table-update! (@lambda 4 #f)) - (declare-type immediate-table-delete! (@lambda 2 #f)) + (0 + make-immediate-table__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (1 + make-immediate-table__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (2 + make-immediate-table__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type + immediate-table-ref + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + immediate-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __immediate-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + immediate-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __immediate-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + immediate-table-delete! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type __gc-table::t.id (optimizer-resolve-class '(typedecl __gc-table::t.id) 'symbol::t)) (declare-type __gc-table-loads (optimizer-resolve-class '(typedecl __gc-table-loads) 'f64vector::t)) - (declare-type &gc-table-gcht (@lambda 1 #f)) - (declare-type &gc-table-immediate (@lambda 1 #f)) - (declare-type &gc-table-gcht-set! (@lambda 2 #f)) - (declare-type &gc-table-immediate-set! (@lambda 2 #f)) - (declare-type make-gc-table__% (@lambda 3 #f)) - (declare-type make-gc-table__0 (@lambda 1 #f)) - (declare-type make-gc-table__1 (@lambda 2 #f)) + (declare-type + &gc-table-gcht + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + &gc-table-immediate + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + &gc-table-gcht-set! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + &gc-table-immediate-set! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-gc-table__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-gc-table__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-gc-table__1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type make-gc-table (@case-lambda - (1 make-gc-table__0) - (2 make-gc-table__1) - (3 make-gc-table__%))) - (declare-type __gc-table-immediate (@lambda 1 #f)) - (declare-type __gc-table-new (@lambda 2 #f)) - (declare-type __gc-table-e (@lambda 1 #f)) - (declare-type __gc-table-rehash! (@lambda 1 #f)) - (declare-type gc-table-ref (@lambda 3 #f)) - (declare-type gc-table-set! (@lambda 3 #f)) - (declare-type gc-table-update! (@lambda 4 #f)) - (declare-type gc-table-delete! (@lambda 2 #f)) - (declare-type gc-table-for-each (@lambda 2 #f)) - (declare-type gc-table-copy (@lambda 1 #f)) - (declare-type gc-table-clear! (@lambda 1 #f)) + (1 + make-gc-table__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (2 + make-gc-table__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (3 + make-gc-table__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type + __gc-table-immediate + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __gc-table-new + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __gc-table-e + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __gc-table-rehash! + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + gc-table-ref + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + gc-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + gc-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + gc-table-delete! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + gc-table-for-each + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + gc-table-copy + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + gc-table-clear! + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type gc-table-length (@lambda 1 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) - (declare-type __object->eq-hash (@lambda 1 #f))) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __object-eq-hash + (optimizer-resolve-class '(typedecl __object-eq-hash) 't::t)) + (declare-type + __object->eq-hash + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) diff --git a/src/bootstrap/gerbil/runtime/table~0.scm b/src/bootstrap/gerbil/runtime/table~0.scm index 7dd7f2df8..30b26aa40 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 1712533288) + (define gerbil/runtime/table::timestamp 1712573429) (begin (declare (not safe)) (define __table::t.id 'gerbil#__table::t) @@ -13,2168 +13,1977 @@ '#f '#(table 5 #f count 5 #f free 5 #f hash 5 #f test 5 #f seed 5 #f))) (define &raw-table-table - (lambda (_%tab90679%_) + (lambda (_%tab90375%_) (##unchecked-structure-ref - _%tab90679%_ + _%tab90375%_ '1 __table::t 'raw-table-table))) (define &raw-table-count - (lambda (_%tab90677%_) + (lambda (_%tab90373%_) (##unchecked-structure-ref - _%tab90677%_ + _%tab90373%_ '2 __table::t 'raw-table-count))) (define &raw-table-free - (lambda (_%tab90675%_) + (lambda (_%tab90371%_) (##unchecked-structure-ref - _%tab90675%_ + _%tab90371%_ '3 __table::t 'raw-table-free))) (define &raw-table-hash - (lambda (_%tab90673%_) + (lambda (_%tab90369%_) (##unchecked-structure-ref - _%tab90673%_ + _%tab90369%_ '4 __table::t 'raw-table-hash))) (define &raw-table-test - (lambda (_%tab90671%_) + (lambda (_%tab90367%_) (##unchecked-structure-ref - _%tab90671%_ + _%tab90367%_ '5 __table::t 'raw-table-test))) (define &raw-table-seed - (lambda (_%tab90669%_) + (lambda (_%tab90365%_) (##unchecked-structure-ref - _%tab90669%_ + _%tab90365%_ '6 __table::t 'raw-table-seed))) (define &raw-table-table-set! - (lambda (_%tab90666%_ _%val90667%_) + (lambda (_%tab90362%_ _%val90363%_) (##unchecked-structure-set! - _%tab90666%_ - _%val90667%_ + _%tab90362%_ + _%val90363%_ '1 __table::t 'raw-table-table-set!))) (define &raw-table-count-set! - (lambda (_%tab90663%_ _%val90664%_) + (lambda (_%tab90359%_ _%val90360%_) (##unchecked-structure-set! - _%tab90663%_ - _%val90664%_ + _%tab90359%_ + _%val90360%_ '2 __table::t 'raw-table-count-set!))) (define &raw-table-free-set! - (lambda (_%tab90660%_ _%val90661%_) + (lambda (_%tab90356%_ _%val90357%_) (##unchecked-structure-set! - _%tab90660%_ - _%val90661%_ + _%tab90356%_ + _%val90357%_ '3 __table::t 'raw-table-free-set!))) (define &raw-table-hash-set! - (lambda (_%tab90657%_ _%val90658%_) + (lambda (_%tab90353%_ _%val90354%_) (##unchecked-structure-set! - _%tab90657%_ - _%val90658%_ + _%tab90353%_ + _%val90354%_ '4 __table::t 'raw-table-hash-set!))) (define &raw-table-test-set! - (lambda (_%tab90654%_ _%val90655%_) + (lambda (_%tab90350%_ _%val90351%_) (##unchecked-structure-set! - _%tab90654%_ - _%val90655%_ + _%tab90350%_ + _%val90351%_ '5 __table::t 'raw-table-test-set!))) (define &raw-table-seed-set! - (lambda (_%tab90651%_ _%val90652%_) + (lambda (_%tab90347%_ _%val90348%_) (##unchecked-structure-set! - _%tab90651%_ - _%val90652%_ + _%tab90347%_ + _%val90348%_ '6 __table::t 'raw-table-seed-set!))) (define raw-table-size-hint->size - (lambda (_%size-hint90649%_) - (if (and (fixnum? _%size-hint90649%_) (##fx> _%size-hint90649%_ '0)) - (##fx* (fxmax '2 (expt '2 (integer-length _%size-hint90649%_))) '4) + (lambda (_%size-hint90345%_) + (if (and (fixnum? _%size-hint90345%_) (##fx> _%size-hint90345%_ '0)) + (##fx* (fxmax '2 (expt '2 (integer-length _%size-hint90345%_))) '4) '16))) (define make-raw-table__% - (lambda (_%size-hint90625%_ _%hash90626%_ _%test90627%_ _%seed90628%_) - (let* ((_%size90630%_ (raw-table-size-hint->size _%size-hint90625%_)) - (_%table90632%_ - (##make-vector _%size90630%_ (macro-unused-obj)))) + (lambda (_%size-hint90321%_ _%hash90322%_ _%test90323%_ _%seed90324%_) + (let* ((_%size90326%_ (raw-table-size-hint->size _%size-hint90321%_)) + (_%table90328%_ + (##make-vector _%size90326%_ (macro-unused-obj)))) (##structure __table::t - _%table90632%_ + _%table90328%_ '0 - (##fxquotient _%size90630%_ '2) - _%hash90626%_ - _%test90627%_ - _%seed90628%_)))) + (##fxquotient _%size90326%_ '2) + _%hash90322%_ + _%test90323%_ + _%seed90324%_)))) (define make-raw-table__0 - (lambda (_%size-hint90638%_ _%hash90639%_ _%test90640%_) - (let ((_%seed90642%_ '0)) + (lambda (_%size-hint90334%_ _%hash90335%_ _%test90336%_) + (let ((_%seed90338%_ '0)) (make-raw-table__% - _%size-hint90638%_ - _%hash90639%_ - _%test90640%_ - _%seed90642%_)))) + _%size-hint90334%_ + _%hash90335%_ + _%test90336%_ + _%seed90338%_)))) (define make-raw-table - (lambda _g90681_ - (let ((_g90680_ (##length _g90681_))) - (cond ((##fx= _g90680_ 3) - (apply (lambda (_%size-hint90638%_ - _%hash90639%_ - _%test90640%_) - (make-raw-table__0 - _%size-hint90638%_ - _%hash90639%_ - _%test90640%_)) - _g90681_)) - ((##fx= _g90680_ 4) - (apply (lambda (_%size-hint90644%_ - _%hash90645%_ - _%test90646%_ - _%seed90647%_) - (make-raw-table__% - _%size-hint90644%_ - _%hash90645%_ - _%test90646%_ - _%seed90647%_)) - _g90681_)) + (lambda _g90377_ + (let ((_g90376_ (##length _g90377_))) + (cond ((##fx= _g90376_ 3) (apply make-raw-table__0 _g90377_)) + ((##fx= _g90376_ 4) (apply make-raw-table__% _g90377_)) (else (##raise-wrong-number-of-arguments-exception make-raw-table - _g90681_)))))) + _g90377_)))))) (define raw-table-ref - (lambda (_%tab90576%_ _%key90577%_ _%default90578%_) - (let ((_%table90580%_ (&raw-table-table _%tab90576%_)) - (_%seed90581%_ (&raw-table-seed _%tab90576%_)) - (_%hash90582%_ (&raw-table-hash _%tab90576%_)) - (_%test90583%_ (&raw-table-test _%tab90576%_))) - (let* ((_%h90585%_ - (fxxor (_%hash90582%_ _%key90577%_) _%seed90581%_)) - (_%size90588%_ (vector-length _%table90580%_)) - (_%entries90591%_ (##fxquotient _%size90588%_ '2)) - (_%start90594%_ + (lambda (_%tab90272%_ _%key90273%_ _%default90274%_) + (let ((_%table90276%_ (&raw-table-table _%tab90272%_)) + (_%seed90277%_ (&raw-table-seed _%tab90272%_)) + (_%hash90278%_ (&raw-table-hash _%tab90272%_)) + (_%test90279%_ (&raw-table-test _%tab90272%_))) + (let* ((_%h90281%_ + (fxxor (_%hash90278%_ _%key90273%_) _%seed90277%_)) + (_%size90284%_ (vector-length _%table90276%_)) + (_%entries90287%_ (##fxquotient _%size90284%_ '2)) + (_%start90290%_ (##fxarithmetic-shift-left - (##fxmodulo _%h90585%_ _%entries90591%_) + (##fxmodulo _%h90281%_ _%entries90287%_) '1))) - (let _%loop90598%_ ((_%probe90601%_ _%start90594%_) - (_%i90603%_ '1) - (_%deleted90605%_ '#f)) - (let ((_%k90608%_ (vector-ref _%table90580%_ _%probe90601%_))) - (if (eq? _%k90608%_ (macro-unused-obj)) - (let () _%default90578%_) - (if (eq? _%k90608%_ (macro-deleted-obj)) - (let () - (_%loop90598%_ - (let ((_%next-probe90613%_ - (fx+ _%start90594%_ - _%i90603%_ - (fx* _%i90603%_ _%i90603%_)))) - (##fxmodulo _%next-probe90613%_ _%size90588%_)) - (##fx+ _%i90603%_ '1) - (let ((_%$e90616%_ _%deleted90605%_)) - (if _%$e90616%_ _%$e90616%_ _%probe90601%_)))) - (if (_%test90583%_ _%key90577%_ _%k90608%_) - (let () - (vector-ref - _%table90580%_ - (##fx+ _%probe90601%_ '1))) - (let () - (_%loop90598%_ - (let ((_%next-probe90621%_ - (fx+ _%start90594%_ - _%i90603%_ - (fx* _%i90603%_ _%i90603%_)))) - (##fxmodulo - _%next-probe90621%_ - _%size90588%_)) - (##fx+ _%i90603%_ '1) - _%deleted90605%_))))))))))) + (let _%loop90294%_ ((_%probe90297%_ _%start90290%_) + (_%i90299%_ '1) + (_%deleted90301%_ '#f)) + (let ((_%k90304%_ (vector-ref _%table90276%_ _%probe90297%_))) + (if (eq? _%k90304%_ (macro-unused-obj)) + _%default90274%_ + (if (eq? _%k90304%_ (macro-deleted-obj)) + (_%loop90294%_ + (let ((_%next-probe90309%_ + (fx+ _%start90290%_ + _%i90299%_ + (fx* _%i90299%_ _%i90299%_)))) + (##fxmodulo _%next-probe90309%_ _%size90284%_)) + (##fx+ _%i90299%_ '1) + (let ((_%$e90312%_ _%deleted90301%_)) + (if _%$e90312%_ _%$e90312%_ _%probe90297%_))) + (if (_%test90279%_ _%key90273%_ _%k90304%_) + (vector-ref + _%table90276%_ + (##fx+ _%probe90297%_ '1)) + (_%loop90294%_ + (let ((_%next-probe90317%_ + (fx+ _%start90290%_ + _%i90299%_ + (fx* _%i90299%_ _%i90299%_)))) + (##fxmodulo _%next-probe90317%_ _%size90284%_)) + (##fx+ _%i90299%_ '1) + _%deleted90301%_)))))))))) (define raw-table-set! - (lambda (_%tab90572%_ _%key90573%_ _%value90574%_) - (if (##fx< (&raw-table-free _%tab90572%_) + (lambda (_%tab90268%_ _%key90269%_ _%value90270%_) + (if (##fx< (&raw-table-free _%tab90268%_) (##fxquotient - (vector-length (&raw-table-table _%tab90572%_)) + (vector-length (&raw-table-table _%tab90268%_)) '4)) - (__raw-table-rehash! _%tab90572%_) + (__raw-table-rehash! _%tab90268%_) '#!void) - (__raw-table-set! _%tab90572%_ _%key90573%_ _%value90574%_))) + (__raw-table-set! _%tab90268%_ _%key90269%_ _%value90270%_))) (define raw-table-update! - (lambda (_%tab90567%_ _%key90568%_ _%update90569%_ _%default90570%_) - (if (##fx< (&raw-table-free _%tab90567%_) + (lambda (_%tab90263%_ _%key90264%_ _%update90265%_ _%default90266%_) + (if (##fx< (&raw-table-free _%tab90263%_) (##fxquotient - (vector-length (&raw-table-table _%tab90567%_)) + (vector-length (&raw-table-table _%tab90263%_)) '4)) - (__raw-table-rehash! _%tab90567%_) + (__raw-table-rehash! _%tab90263%_) '#!void) (__raw-table-update! - _%tab90567%_ - _%key90568%_ - _%update90569%_ - _%default90570%_))) + _%tab90263%_ + _%key90264%_ + _%update90265%_ + _%default90266%_))) (define raw-table-delete! - (lambda (_%tab90524%_ _%key90525%_) - (let ((_%table90527%_ (&raw-table-table _%tab90524%_)) - (_%seed90528%_ (&raw-table-seed _%tab90524%_)) - (_%hash90529%_ (&raw-table-hash _%tab90524%_)) - (_%test90530%_ (&raw-table-test _%tab90524%_))) - (let* ((_%h90532%_ - (fxxor (_%hash90529%_ _%key90525%_) _%seed90528%_)) - (_%size90535%_ (vector-length _%table90527%_)) - (_%entries90538%_ (##fxquotient _%size90535%_ '2)) - (_%start90541%_ + (lambda (_%tab90220%_ _%key90221%_) + (let ((_%table90223%_ (&raw-table-table _%tab90220%_)) + (_%seed90224%_ (&raw-table-seed _%tab90220%_)) + (_%hash90225%_ (&raw-table-hash _%tab90220%_)) + (_%test90226%_ (&raw-table-test _%tab90220%_))) + (let* ((_%h90228%_ + (fxxor (_%hash90225%_ _%key90221%_) _%seed90224%_)) + (_%size90231%_ (vector-length _%table90223%_)) + (_%entries90234%_ (##fxquotient _%size90231%_ '2)) + (_%start90237%_ (##fxarithmetic-shift-left - (##fxmodulo _%h90532%_ _%entries90538%_) + (##fxmodulo _%h90228%_ _%entries90234%_) '1))) - (let _%loop90545%_ ((_%probe90548%_ _%start90541%_) - (_%i90550%_ '1)) - (let ((_%k90553%_ (vector-ref _%table90527%_ _%probe90548%_))) - (if (eq? _%k90553%_ (macro-unused-obj)) - (let () '#!void) - (if (eq? _%k90553%_ (macro-deleted-obj)) - (let () - (_%loop90545%_ - (let ((_%next-probe90558%_ - (fx+ _%start90541%_ - _%i90550%_ - (fx* _%i90550%_ _%i90550%_)))) - (##fxmodulo _%next-probe90558%_ _%size90535%_)) - (##fx+ _%i90550%_ '1))) - (if (_%test90530%_ _%key90525%_ _%k90553%_) + (let _%loop90241%_ ((_%probe90244%_ _%start90237%_) + (_%i90246%_ '1)) + (let ((_%k90249%_ (vector-ref _%table90223%_ _%probe90244%_))) + (if (eq? _%k90249%_ (macro-unused-obj)) + '#!void + (if (eq? _%k90249%_ (macro-deleted-obj)) + (_%loop90241%_ + (let ((_%next-probe90254%_ + (fx+ _%start90237%_ + _%i90246%_ + (fx* _%i90246%_ _%i90246%_)))) + (##fxmodulo _%next-probe90254%_ _%size90231%_)) + (##fx+ _%i90246%_ '1)) + (if (_%test90226%_ _%key90221%_ _%k90249%_) (let () (vector-set! - _%table90527%_ - _%probe90548%_ + _%table90223%_ + _%probe90244%_ (macro-deleted-obj)) (vector-set! - _%table90527%_ - (##fx+ _%probe90548%_ '1) + _%table90223%_ + (##fx+ _%probe90244%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab90524%_ - (##fx- (&raw-table-count _%tab90524%_) + _%tab90220%_ + (##fx- (&raw-table-count _%tab90220%_) '1))))) - (let () - (_%loop90545%_ - (let ((_%next-probe90564%_ - (fx+ _%start90541%_ - _%i90550%_ - (fx* _%i90550%_ _%i90550%_)))) - (##fxmodulo - _%next-probe90564%_ - _%size90535%_)) - (##fx+ _%i90550%_ '1)))))))))))) + (_%loop90241%_ + (let ((_%next-probe90260%_ + (fx+ _%start90237%_ + _%i90246%_ + (fx* _%i90246%_ _%i90246%_)))) + (##fxmodulo _%next-probe90260%_ _%size90231%_)) + (##fx+ _%i90246%_ '1))))))))))) (define raw-table-for-each - (lambda (_%tab90508%_ _%proc90509%_) - (let* ((_%table90511%_ (&raw-table-table _%tab90508%_)) - (_%size90513%_ (vector-length _%table90511%_))) - (let _%loop90516%_ ((_%i90518%_ '0)) - (if (##fx< _%i90518%_ _%size90513%_) + (lambda (_%tab90204%_ _%proc90205%_) + (let* ((_%table90207%_ (&raw-table-table _%tab90204%_)) + (_%size90209%_ (vector-length _%table90207%_))) + (let _%loop90212%_ ((_%i90214%_ '0)) + (if (##fx< _%i90214%_ _%size90209%_) (begin - (let ((_%key90520%_ (vector-ref _%table90511%_ _%i90518%_))) - (if (and (not (eq? _%key90520%_ (macro-unused-obj))) - (not (eq? _%key90520%_ (macro-deleted-obj)))) - (let ((_%value90522%_ + (let ((_%key90216%_ (vector-ref _%table90207%_ _%i90214%_))) + (if (and (not (eq? _%key90216%_ (macro-unused-obj))) + (not (eq? _%key90216%_ (macro-deleted-obj)))) + (let ((_%value90218%_ (vector-ref - _%table90511%_ - (##fx+ _%i90518%_ '1)))) - (_%proc90509%_ _%key90520%_ _%value90522%_)) + _%table90207%_ + (##fx+ _%i90214%_ '1)))) + (_%proc90205%_ _%key90216%_ _%value90218%_)) '#!void)) - (_%loop90516%_ (##fx+ _%i90518%_ '2))) + (_%loop90212%_ (##fx+ _%i90214%_ '2))) '#!void))))) (define raw-table-copy - (lambda (_%tab90504%_) - (let ((_%new-tab90506%_ (##structure-copy _%tab90504%_))) + (lambda (_%tab90200%_) + (let ((_%new-tab90202%_ (##structure-copy _%tab90200%_))) (&raw-table-table-set! - _%new-tab90506%_ - (vector-copy (&raw-table-table _%tab90504%_))) - _%new-tab90506%_))) + _%new-tab90202%_ + (vector-copy (&raw-table-table _%tab90200%_))) + _%new-tab90202%_))) (define raw-table-clear! - (lambda (_%tab90502%_) - (vector-fill! (&raw-table-table _%tab90502%_) (macro-unused-obj)) - (&raw-table-count-set! _%tab90502%_ '0) + (lambda (_%tab90198%_) + (vector-fill! (&raw-table-table _%tab90198%_) (macro-unused-obj)) + (&raw-table-count-set! _%tab90198%_ '0) (&raw-table-free-set! - _%tab90502%_ - (##fxquotient (vector-length (&raw-table-table _%tab90502%_)) '2)))) + _%tab90198%_ + (##fxquotient (vector-length (&raw-table-table _%tab90198%_)) '2)))) (define __raw-table-set! - (lambda (_%tab90452%_ _%key90453%_ _%value90454%_) - (let ((_%table90456%_ (&raw-table-table _%tab90452%_)) - (_%seed90457%_ (&raw-table-seed _%tab90452%_)) - (_%hash90458%_ (&raw-table-hash _%tab90452%_)) - (_%test90459%_ (&raw-table-test _%tab90452%_))) - (let* ((_%h90461%_ - (fxxor (_%hash90458%_ _%key90453%_) _%seed90457%_)) - (_%size90464%_ (vector-length _%table90456%_)) - (_%entries90467%_ (##fxquotient _%size90464%_ '2)) - (_%start90470%_ + (lambda (_%tab90148%_ _%key90149%_ _%value90150%_) + (let ((_%table90152%_ (&raw-table-table _%tab90148%_)) + (_%seed90153%_ (&raw-table-seed _%tab90148%_)) + (_%hash90154%_ (&raw-table-hash _%tab90148%_)) + (_%test90155%_ (&raw-table-test _%tab90148%_))) + (let* ((_%h90157%_ + (fxxor (_%hash90154%_ _%key90149%_) _%seed90153%_)) + (_%size90160%_ (vector-length _%table90152%_)) + (_%entries90163%_ (##fxquotient _%size90160%_ '2)) + (_%start90166%_ (##fxarithmetic-shift-left - (##fxmodulo _%h90461%_ _%entries90467%_) + (##fxmodulo _%h90157%_ _%entries90163%_) '1))) - (let _%loop90474%_ ((_%probe90477%_ _%start90470%_) - (_%i90479%_ '1) - (_%deleted90481%_ '#f)) - (let ((_%k90484%_ (vector-ref _%table90456%_ _%probe90477%_))) - (if (eq? _%k90484%_ (macro-unused-obj)) - (let () - (if _%deleted90481%_ - (begin - (vector-set! - _%table90456%_ - _%deleted90481%_ - _%key90453%_) - (vector-set! - _%table90456%_ - (##fx+ _%deleted90481%_ '1) - _%value90454%_) - ((lambda () - (&raw-table-count-set! - _%tab90452%_ - (##fx+ (&raw-table-count _%tab90452%_) '1))))) - (begin - (vector-set! - _%table90456%_ - _%probe90477%_ - _%key90453%_) - (vector-set! - _%table90456%_ - (##fx+ _%probe90477%_ '1) - _%value90454%_) - ((lambda () - (&raw-table-free-set! - _%tab90452%_ - (##fx- (&raw-table-free _%tab90452%_) '1)) - (&raw-table-count-set! - _%tab90452%_ - (##fx+ (&raw-table-count _%tab90452%_) - '1))))))) - (if (eq? _%k90484%_ (macro-deleted-obj)) - (let () - (_%loop90474%_ - (let ((_%next-probe90491%_ - (fx+ _%start90470%_ - _%i90479%_ - (fx* _%i90479%_ _%i90479%_)))) - (##fxmodulo _%next-probe90491%_ _%size90464%_)) - (##fx+ _%i90479%_ '1) - (let ((_%$e90494%_ _%deleted90481%_)) - (if _%$e90494%_ _%$e90494%_ _%probe90477%_)))) - (if (_%test90459%_ _%key90453%_ _%k90484%_) + (let _%loop90170%_ ((_%probe90173%_ _%start90166%_) + (_%i90175%_ '1) + (_%deleted90177%_ '#f)) + (let ((_%k90180%_ (vector-ref _%table90152%_ _%probe90173%_))) + (if (eq? _%k90180%_ (macro-unused-obj)) + (if _%deleted90177%_ + (begin + (vector-set! + _%table90152%_ + _%deleted90177%_ + _%key90149%_) + (vector-set! + _%table90152%_ + (##fx+ _%deleted90177%_ '1) + _%value90150%_) + ((lambda () + (&raw-table-count-set! + _%tab90148%_ + (##fx+ (&raw-table-count _%tab90148%_) '1))))) + (begin + (vector-set! + _%table90152%_ + _%probe90173%_ + _%key90149%_) + (vector-set! + _%table90152%_ + (##fx+ _%probe90173%_ '1) + _%value90150%_) + ((lambda () + (&raw-table-free-set! + _%tab90148%_ + (##fx- (&raw-table-free _%tab90148%_) '1)) + (&raw-table-count-set! + _%tab90148%_ + (##fx+ (&raw-table-count _%tab90148%_) '1)))))) + (if (eq? _%k90180%_ (macro-deleted-obj)) + (_%loop90170%_ + (let ((_%next-probe90187%_ + (fx+ _%start90166%_ + _%i90175%_ + (fx* _%i90175%_ _%i90175%_)))) + (##fxmodulo _%next-probe90187%_ _%size90160%_)) + (##fx+ _%i90175%_ '1) + (let ((_%$e90190%_ _%deleted90177%_)) + (if _%$e90190%_ _%$e90190%_ _%probe90173%_))) + (if (_%test90155%_ _%key90149%_ _%k90180%_) (let () (vector-set! - _%table90456%_ - _%probe90477%_ - _%key90453%_) + _%table90152%_ + _%probe90173%_ + _%key90149%_) (vector-set! - _%table90456%_ - (##fx+ _%probe90477%_ '1) - _%value90454%_)) - (let () - (_%loop90474%_ - (let ((_%next-probe90499%_ - (fx+ _%start90470%_ - _%i90479%_ - (fx* _%i90479%_ _%i90479%_)))) - (##fxmodulo - _%next-probe90499%_ - _%size90464%_)) - (##fx+ _%i90479%_ '1) - _%deleted90481%_))))))))))) + _%table90152%_ + (##fx+ _%probe90173%_ '1) + _%value90150%_)) + (_%loop90170%_ + (let ((_%next-probe90195%_ + (fx+ _%start90166%_ + _%i90175%_ + (fx* _%i90175%_ _%i90175%_)))) + (##fxmodulo _%next-probe90195%_ _%size90160%_)) + (##fx+ _%i90175%_ '1) + _%deleted90177%_)))))))))) (define __raw-table-update! - (lambda (_%tab90401%_ _%key90402%_ _%update90403%_ _%default90404%_) - (let ((_%table90406%_ (&raw-table-table _%tab90401%_)) - (_%seed90407%_ (&raw-table-seed _%tab90401%_)) - (_%hash90408%_ (&raw-table-hash _%tab90401%_)) - (_%test90409%_ (&raw-table-test _%tab90401%_))) - (let* ((_%h90411%_ - (fxxor (_%hash90408%_ _%key90402%_) _%seed90407%_)) - (_%size90414%_ (vector-length _%table90406%_)) - (_%entries90417%_ (##fxquotient _%size90414%_ '2)) - (_%start90420%_ + (lambda (_%tab90097%_ _%key90098%_ _%update90099%_ _%default90100%_) + (let ((_%table90102%_ (&raw-table-table _%tab90097%_)) + (_%seed90103%_ (&raw-table-seed _%tab90097%_)) + (_%hash90104%_ (&raw-table-hash _%tab90097%_)) + (_%test90105%_ (&raw-table-test _%tab90097%_))) + (let* ((_%h90107%_ + (fxxor (_%hash90104%_ _%key90098%_) _%seed90103%_)) + (_%size90110%_ (vector-length _%table90102%_)) + (_%entries90113%_ (##fxquotient _%size90110%_ '2)) + (_%start90116%_ (##fxarithmetic-shift-left - (##fxmodulo _%h90411%_ _%entries90417%_) + (##fxmodulo _%h90107%_ _%entries90113%_) '1))) - (let _%loop90424%_ ((_%probe90427%_ _%start90420%_) - (_%i90429%_ '1) - (_%deleted90431%_ '#f)) - (let ((_%k90434%_ (vector-ref _%table90406%_ _%probe90427%_))) - (if (eq? _%k90434%_ (macro-unused-obj)) - (let () - (if _%deleted90431%_ - (begin - (vector-set! - _%table90406%_ - _%deleted90431%_ - _%key90402%_) - (vector-set! - _%table90406%_ - (##fx+ _%deleted90431%_ '1) - (_%update90403%_ _%default90404%_)) - ((lambda () - (&raw-table-count-set! - _%tab90401%_ - (##fx+ (&raw-table-count _%tab90401%_) '1))))) - (begin - (vector-set! - _%table90406%_ - _%probe90427%_ - _%key90402%_) - (vector-set! - _%table90406%_ - (##fx+ _%probe90427%_ '1) - (_%update90403%_ _%default90404%_)) - ((lambda () - (&raw-table-free-set! - _%tab90401%_ - (##fx- (&raw-table-free _%tab90401%_) '1)) - (&raw-table-count-set! - _%tab90401%_ - (##fx+ (&raw-table-count _%tab90401%_) - '1))))))) - (if (eq? _%k90434%_ (macro-deleted-obj)) - (let () - (_%loop90424%_ - (let ((_%next-probe90441%_ - (fx+ _%start90420%_ - _%i90429%_ - (fx* _%i90429%_ _%i90429%_)))) - (##fxmodulo _%next-probe90441%_ _%size90414%_)) - (##fx+ _%i90429%_ '1) - (let ((_%$e90444%_ _%deleted90431%_)) - (if _%$e90444%_ _%$e90444%_ _%probe90427%_)))) - (if (_%test90409%_ _%key90402%_ _%k90434%_) + (let _%loop90120%_ ((_%probe90123%_ _%start90116%_) + (_%i90125%_ '1) + (_%deleted90127%_ '#f)) + (let ((_%k90130%_ (vector-ref _%table90102%_ _%probe90123%_))) + (if (eq? _%k90130%_ (macro-unused-obj)) + (if _%deleted90127%_ + (begin + (vector-set! + _%table90102%_ + _%deleted90127%_ + _%key90098%_) + (vector-set! + _%table90102%_ + (##fx+ _%deleted90127%_ '1) + (_%update90099%_ _%default90100%_)) + ((lambda () + (&raw-table-count-set! + _%tab90097%_ + (##fx+ (&raw-table-count _%tab90097%_) '1))))) + (begin + (vector-set! + _%table90102%_ + _%probe90123%_ + _%key90098%_) + (vector-set! + _%table90102%_ + (##fx+ _%probe90123%_ '1) + (_%update90099%_ _%default90100%_)) + ((lambda () + (&raw-table-free-set! + _%tab90097%_ + (##fx- (&raw-table-free _%tab90097%_) '1)) + (&raw-table-count-set! + _%tab90097%_ + (##fx+ (&raw-table-count _%tab90097%_) '1)))))) + (if (eq? _%k90130%_ (macro-deleted-obj)) + (_%loop90120%_ + (let ((_%next-probe90137%_ + (fx+ _%start90116%_ + _%i90125%_ + (fx* _%i90125%_ _%i90125%_)))) + (##fxmodulo _%next-probe90137%_ _%size90110%_)) + (##fx+ _%i90125%_ '1) + (let ((_%$e90140%_ _%deleted90127%_)) + (if _%$e90140%_ _%$e90140%_ _%probe90123%_))) + (if (_%test90105%_ _%key90098%_ _%k90130%_) (let () (vector-set! - _%table90406%_ - _%probe90427%_ - _%key90402%_) + _%table90102%_ + _%probe90123%_ + _%key90098%_) (vector-set! - _%table90406%_ - (##fx+ _%probe90427%_ '1) - (_%update90403%_ + _%table90102%_ + (##fx+ _%probe90123%_ '1) + (_%update90099%_ (vector-ref - _%table90406%_ - (##fx+ _%probe90427%_ '1))))) - (let () - (_%loop90424%_ - (let ((_%next-probe90449%_ - (fx+ _%start90420%_ - _%i90429%_ - (fx* _%i90429%_ _%i90429%_)))) - (##fxmodulo - _%next-probe90449%_ - _%size90414%_)) - (##fx+ _%i90429%_ '1) - _%deleted90431%_))))))))))) + _%table90102%_ + (##fx+ _%probe90123%_ '1))))) + (_%loop90120%_ + (let ((_%next-probe90145%_ + (fx+ _%start90116%_ + _%i90125%_ + (fx* _%i90125%_ _%i90125%_)))) + (##fxmodulo _%next-probe90145%_ _%size90110%_)) + (##fx+ _%i90125%_ '1) + _%deleted90127%_)))))))))) (define __raw-table-rehash! - (lambda (_%tab90382%_) - (let* ((_%old-table90384%_ (&raw-table-table _%tab90382%_)) - (_%old-size90386%_ (vector-length _%old-table90384%_)) - (_%new-size90388%_ - (if (##fx< (&raw-table-count _%tab90382%_) - (##fxquotient _%old-size90386%_ '4)) - (vector-length _%old-table90384%_) - (##fx* '2 (vector-length _%old-table90384%_)))) - (_%new-table90390%_ - (##make-vector _%new-size90388%_ (macro-unused-obj)))) - (&raw-table-table-set! _%tab90382%_ _%new-table90390%_) - (&raw-table-count-set! _%tab90382%_ '0) + (lambda (_%tab90078%_) + (let* ((_%old-table90080%_ (&raw-table-table _%tab90078%_)) + (_%old-size90082%_ (vector-length _%old-table90080%_)) + (_%new-size90084%_ + (if (##fx< (&raw-table-count _%tab90078%_) + (##fxquotient _%old-size90082%_ '4)) + (vector-length _%old-table90080%_) + (##fx* '2 (vector-length _%old-table90080%_)))) + (_%new-table90086%_ + (##make-vector _%new-size90084%_ (macro-unused-obj)))) + (&raw-table-table-set! _%tab90078%_ _%new-table90086%_) + (&raw-table-count-set! _%tab90078%_ '0) (&raw-table-free-set! - _%tab90382%_ - (##fxquotient _%new-size90388%_ '2)) - (let _%lp90393%_ ((_%i90395%_ '0)) - (if (##fx< _%i90395%_ _%old-size90386%_) + _%tab90078%_ + (##fxquotient _%new-size90084%_ '2)) + (let _%lp90089%_ ((_%i90091%_ '0)) + (if (##fx< _%i90091%_ _%old-size90082%_) (begin - (let ((_%key90397%_ - (vector-ref _%old-table90384%_ _%i90395%_))) - (if (and (not (eq? _%key90397%_ (macro-unused-obj))) - (not (eq? _%key90397%_ (macro-deleted-obj)))) - (let ((_%value90399%_ + (let ((_%key90093%_ + (vector-ref _%old-table90080%_ _%i90091%_))) + (if (and (not (eq? _%key90093%_ (macro-unused-obj))) + (not (eq? _%key90093%_ (macro-deleted-obj)))) + (let ((_%value90095%_ (vector-ref - _%old-table90384%_ - (##fx+ _%i90395%_ '1)))) + _%old-table90080%_ + (##fx+ _%i90091%_ '1)))) (__raw-table-set! - _%tab90382%_ - _%key90397%_ - _%value90399%_)) + _%tab90078%_ + _%key90093%_ + _%value90095%_)) '#!void)) - (_%lp90393%_ (##fx+ _%i90395%_ '2))) + (_%lp90089%_ (##fx+ _%i90091%_ '2))) '#!void))))) (define eq-hash - (lambda (_%obj90374%_) - (let ((_%t90376%_ (##type _%obj90374%_))) - (if (##fx= (##fxand _%t90376%_ '1) '0) - (let () - (fxand (##type-cast _%obj90374%_ (macro-type-fixnum)) - (macro-max-fixnum32))) - (if (symbolic? _%obj90374%_) - (let () (symbolic-hash _%obj90374%_)) - (if (procedure? _%obj90374%_) - (let () (procedure-hash _%obj90374%_)) - (let () - (fxand (__eq-hash _%obj90374%_) - (macro-max-fixnum32))))))))) + (lambda (_%obj90070%_) + (let ((_%t90072%_ (##type _%obj90070%_))) + (if (##fx= (##fxand _%t90072%_ '1) '0) + (fxand (##type-cast _%obj90070%_ (macro-type-fixnum)) + (macro-max-fixnum32)) + (if (symbolic? _%obj90070%_) + (symbolic-hash _%obj90070%_) + (if (procedure? _%obj90070%_) + (procedure-hash _%obj90070%_) + (fxand (__eq-hash _%obj90070%_) + (macro-max-fixnum32)))))))) (define procedure-hash - (lambda (_%obj90370%_) - (let ((_%h90372%_ - (if (##closure? _%obj90370%_) - (__eq-hash _%obj90370%_) - (##type-cast _%obj90370%_ '0)))) - (fxand _%h90372%_ (macro-max-fixnum32))))) + (lambda (_%obj90066%_) + (let ((_%h90068%_ + (if (##closure? _%obj90066%_) + (__eq-hash _%obj90066%_) + (##type-cast _%obj90066%_ '0)))) + (fxand _%h90068%_ (macro-max-fixnum32))))) (define __eq-hash - (lambda (_%obj90367%_) + (lambda (_%obj90063%_) (declare (not interrupts-enabled)) - (__object->eq-hash _%obj90367%_))) + (__object->eq-hash _%obj90063%_))) (define eqv-hash - (lambda (_%obj90357%_) - (letrec ((_%combine90359%_ - (lambda (_%a90364%_ _%b90365%_) - (fxand (##fx* (##fx+ _%a90364%_ + (lambda (_%obj90053%_) + (letrec ((_%combine90055%_ + (lambda (_%a90060%_ _%b90061%_) + (fxand (##fx* (##fx+ _%a90060%_ (fxarithmetic-shift-left - _%b90365%_ + _%b90061%_ '1)) '331804471) (macro-max-fixnum32)))) - (_%hash90360%_ - (lambda (_%obj90362%_) + (_%hash90056%_ + (lambda (_%obj90058%_) (macro-number-dispatch - _%obj90362%_ - (eq-hash _%obj90362%_) - (fxand _%obj90362%_ (macro-max-fixnum32)) - (modulo _%obj90362%_ '331804481) - (_%combine90359%_ - (_%hash90360%_ (macro-ratnum-numerator _%obj90362%_)) - (_%hash90360%_ (macro-ratnum-denominator _%obj90362%_))) - (_%combine90359%_ - (##u16vector-ref _%obj90362%_ '0) - (_%combine90359%_ - (##u16vector-ref _%obj90362%_ '1) - (_%combine90359%_ - (##u16vector-ref _%obj90362%_ '2) - (##u16vector-ref _%obj90362%_ '3)))) - (_%combine90359%_ - (_%hash90360%_ (macro-cpxnum-real _%obj90362%_)) - (_%hash90360%_ (macro-cpxnum-imag _%obj90362%_))))))) - (_%hash90360%_ _%obj90357%_)))) + _%obj90058%_ + (eq-hash _%obj90058%_) + (fxand _%obj90058%_ (macro-max-fixnum32)) + (modulo _%obj90058%_ '331804481) + (_%combine90055%_ + (_%hash90056%_ (macro-ratnum-numerator _%obj90058%_)) + (_%hash90056%_ (macro-ratnum-denominator _%obj90058%_))) + (_%combine90055%_ + (##u16vector-ref _%obj90058%_ '0) + (_%combine90055%_ + (##u16vector-ref _%obj90058%_ '1) + (_%combine90055%_ + (##u16vector-ref _%obj90058%_ '2) + (##u16vector-ref _%obj90058%_ '3)))) + (_%combine90055%_ + (_%hash90056%_ (macro-cpxnum-real _%obj90058%_)) + (_%hash90056%_ (macro-cpxnum-imag _%obj90058%_))))))) + (_%hash90056%_ _%obj90053%_)))) (define symbolic? - (lambda (_%obj90352%_) - (let ((_%$e90354%_ (symbol? _%obj90352%_))) - (if _%$e90354%_ _%$e90354%_ (keyword? _%obj90352%_))))) - (define symbolic-hash (lambda (_%obj90350%_) (macro-slot '1 _%obj90350%_))) - (define string-hash (lambda (_%obj90348%_) (##string=?-hash _%obj90348%_))) + (lambda (_%obj90048%_) + (let ((_%$e90050%_ (symbol? _%obj90048%_))) + (if _%$e90050%_ _%$e90050%_ (keyword? _%obj90048%_))))) + (define symbolic-hash (lambda (_%obj90046%_) (macro-slot '1 _%obj90046%_))) + (define string-hash (lambda (_%obj90044%_) (##string=?-hash _%obj90044%_))) (define immediate-hash - (lambda (_%obj90346%_) (##type-cast _%obj90346%_ (macro-type-fixnum)))) + (lambda (_%obj90042%_) (##type-cast _%obj90042%_ (macro-type-fixnum)))) (define make-eq-table__% - (lambda (_%size-hint90327%_ _%seed90329%_) - (make-raw-table__% _%size-hint90327%_ eq-hash eq? _%seed90329%_))) + (lambda (_%size-hint90023%_ _%seed90025%_) + (make-raw-table__% _%size-hint90023%_ eq-hash eq? _%seed90025%_))) (define make-eq-table__0 (lambda () - (let* ((_%size-hint90335%_ '#f) (_%seed90337%_ '0)) - (make-eq-table__% _%size-hint90335%_ _%seed90337%_)))) + (let* ((_%size-hint90031%_ '#f) (_%seed90033%_ '0)) + (make-eq-table__% _%size-hint90031%_ _%seed90033%_)))) (define make-eq-table__1 - (lambda (_%size-hint90339%_) - (let ((_%seed90341%_ '0)) - (make-eq-table__% _%size-hint90339%_ _%seed90341%_)))) + (lambda (_%size-hint90035%_) + (let ((_%seed90037%_ '0)) + (make-eq-table__% _%size-hint90035%_ _%seed90037%_)))) (define make-eq-table - (lambda _g90683_ - (let ((_g90682_ (##length _g90683_))) - (cond ((##fx= _g90682_ 0) - (apply (lambda () (make-eq-table__0)) _g90683_)) - ((##fx= _g90682_ 1) - (apply (lambda (_%size-hint90339%_) - (make-eq-table__1 _%size-hint90339%_)) - _g90683_)) - ((##fx= _g90682_ 2) - (apply (lambda (_%size-hint90343%_ _%seed90344%_) - (make-eq-table__% _%size-hint90343%_ _%seed90344%_)) - _g90683_)) + (lambda _g90379_ + (let ((_g90378_ (##length _g90379_))) + (cond ((##fx= _g90378_ 0) (apply make-eq-table__0 _g90379_)) + ((##fx= _g90378_ 1) (apply make-eq-table__1 _g90379_)) + ((##fx= _g90378_ 2) (apply make-eq-table__% _g90379_)) (else (##raise-wrong-number-of-arguments-exception make-eq-table - _g90683_)))))) + _g90379_)))))) (define eq-table-ref - (lambda (_%tab90280%_ _%key90281%_ _%default90282%_) - (let ((_%table90284%_ (&raw-table-table _%tab90280%_)) - (_%seed90285%_ (&raw-table-seed _%tab90280%_))) - (let* ((_%h90287%_ (fxxor (eq-hash _%key90281%_) _%seed90285%_)) - (_%size90290%_ (vector-length _%table90284%_)) - (_%entries90293%_ (##fxquotient _%size90290%_ '2)) - (_%start90296%_ + (lambda (_%tab89976%_ _%key89977%_ _%default89978%_) + (let ((_%table89980%_ (&raw-table-table _%tab89976%_)) + (_%seed89981%_ (&raw-table-seed _%tab89976%_))) + (let* ((_%h89983%_ (fxxor (eq-hash _%key89977%_) _%seed89981%_)) + (_%size89986%_ (vector-length _%table89980%_)) + (_%entries89989%_ (##fxquotient _%size89986%_ '2)) + (_%start89992%_ (##fxarithmetic-shift-left - (##fxmodulo _%h90287%_ _%entries90293%_) + (##fxmodulo _%h89983%_ _%entries89989%_) '1))) - (let _%loop90300%_ ((_%probe90303%_ _%start90296%_) - (_%i90305%_ '1) - (_%deleted90307%_ '#f)) - (let ((_%k90310%_ (vector-ref _%table90284%_ _%probe90303%_))) - (if (eq? _%k90310%_ (macro-unused-obj)) - (let () _%default90282%_) - (if (eq? _%k90310%_ (macro-deleted-obj)) - (let () - (_%loop90300%_ - (let ((_%next-probe90315%_ - (fx+ _%start90296%_ - _%i90305%_ - (fx* _%i90305%_ _%i90305%_)))) - (##fxmodulo _%next-probe90315%_ _%size90290%_)) - (##fx+ _%i90305%_ '1) - (let ((_%$e90318%_ _%deleted90307%_)) - (if _%$e90318%_ _%$e90318%_ _%probe90303%_)))) - (if (eq? _%key90281%_ _%k90310%_) - (let () - (vector-ref - _%table90284%_ - (##fx+ _%probe90303%_ '1))) - (let () - (_%loop90300%_ - (let ((_%next-probe90323%_ - (fx+ _%start90296%_ - _%i90305%_ - (fx* _%i90305%_ _%i90305%_)))) - (##fxmodulo - _%next-probe90323%_ - _%size90290%_)) - (##fx+ _%i90305%_ '1) - _%deleted90307%_))))))))))) + (let _%loop89996%_ ((_%probe89999%_ _%start89992%_) + (_%i90001%_ '1) + (_%deleted90003%_ '#f)) + (let ((_%k90006%_ (vector-ref _%table89980%_ _%probe89999%_))) + (if (eq? _%k90006%_ (macro-unused-obj)) + _%default89978%_ + (if (eq? _%k90006%_ (macro-deleted-obj)) + (_%loop89996%_ + (let ((_%next-probe90011%_ + (fx+ _%start89992%_ + _%i90001%_ + (fx* _%i90001%_ _%i90001%_)))) + (##fxmodulo _%next-probe90011%_ _%size89986%_)) + (##fx+ _%i90001%_ '1) + (let ((_%$e90014%_ _%deleted90003%_)) + (if _%$e90014%_ _%$e90014%_ _%probe89999%_))) + (if (eq? _%key89977%_ _%k90006%_) + (vector-ref + _%table89980%_ + (##fx+ _%probe89999%_ '1)) + (_%loop89996%_ + (let ((_%next-probe90019%_ + (fx+ _%start89992%_ + _%i90001%_ + (fx* _%i90001%_ _%i90001%_)))) + (##fxmodulo _%next-probe90019%_ _%size89986%_)) + (##fx+ _%i90001%_ '1) + _%deleted90003%_)))))))))) (define eq-table-set! - (lambda (_%tab90276%_ _%key90277%_ _%value90278%_) - (if (##fx< (&raw-table-free _%tab90276%_) + (lambda (_%tab89972%_ _%key89973%_ _%value89974%_) + (if (##fx< (&raw-table-free _%tab89972%_) (##fxquotient - (vector-length (&raw-table-table _%tab90276%_)) + (vector-length (&raw-table-table _%tab89972%_)) '4)) - (__raw-table-rehash! _%tab90276%_) + (__raw-table-rehash! _%tab89972%_) '#!void) - (__eq-table-set! _%tab90276%_ _%key90277%_ _%value90278%_))) + (__eq-table-set! _%tab89972%_ _%key89973%_ _%value89974%_))) (define __eq-table-set! - (lambda (_%tab90227%_ _%key90228%_ _%value90229%_) - (let ((_%table90232%_ (&raw-table-table _%tab90227%_)) - (_%seed90233%_ (&raw-table-seed _%tab90227%_))) - (let* ((_%h90235%_ (fxxor (eq-hash _%key90228%_) _%seed90233%_)) - (_%size90238%_ (vector-length _%table90232%_)) - (_%entries90241%_ (##fxquotient _%size90238%_ '2)) - (_%start90244%_ + (lambda (_%tab89923%_ _%key89924%_ _%value89925%_) + (let ((_%table89928%_ (&raw-table-table _%tab89923%_)) + (_%seed89929%_ (&raw-table-seed _%tab89923%_))) + (let* ((_%h89931%_ (fxxor (eq-hash _%key89924%_) _%seed89929%_)) + (_%size89934%_ (vector-length _%table89928%_)) + (_%entries89937%_ (##fxquotient _%size89934%_ '2)) + (_%start89940%_ (##fxarithmetic-shift-left - (##fxmodulo _%h90235%_ _%entries90241%_) + (##fxmodulo _%h89931%_ _%entries89937%_) '1))) - (let _%loop90248%_ ((_%probe90251%_ _%start90244%_) - (_%i90253%_ '1) - (_%deleted90255%_ '#f)) - (let ((_%k90258%_ (vector-ref _%table90232%_ _%probe90251%_))) - (if (eq? _%k90258%_ (macro-unused-obj)) - (let () - (if _%deleted90255%_ - (begin - (vector-set! - _%table90232%_ - _%deleted90255%_ - _%key90228%_) - (vector-set! - _%table90232%_ - (##fx+ _%deleted90255%_ '1) - _%value90229%_) - ((lambda () - (&raw-table-count-set! - _%tab90227%_ - (##fx+ (&raw-table-count _%tab90227%_) '1))))) - (begin - (vector-set! - _%table90232%_ - _%probe90251%_ - _%key90228%_) - (vector-set! - _%table90232%_ - (##fx+ _%probe90251%_ '1) - _%value90229%_) - ((lambda () - (&raw-table-free-set! - _%tab90227%_ - (##fx- (&raw-table-free _%tab90227%_) '1)) - (&raw-table-count-set! - _%tab90227%_ - (##fx+ (&raw-table-count _%tab90227%_) - '1))))))) - (if (eq? _%k90258%_ (macro-deleted-obj)) - (let () - (_%loop90248%_ - (let ((_%next-probe90265%_ - (fx+ _%start90244%_ - _%i90253%_ - (fx* _%i90253%_ _%i90253%_)))) - (##fxmodulo _%next-probe90265%_ _%size90238%_)) - (##fx+ _%i90253%_ '1) - (let ((_%$e90268%_ _%deleted90255%_)) - (if _%$e90268%_ _%$e90268%_ _%probe90251%_)))) - (if (eq? _%key90228%_ _%k90258%_) + (let _%loop89944%_ ((_%probe89947%_ _%start89940%_) + (_%i89949%_ '1) + (_%deleted89951%_ '#f)) + (let ((_%k89954%_ (vector-ref _%table89928%_ _%probe89947%_))) + (if (eq? _%k89954%_ (macro-unused-obj)) + (if _%deleted89951%_ + (begin + (vector-set! + _%table89928%_ + _%deleted89951%_ + _%key89924%_) + (vector-set! + _%table89928%_ + (##fx+ _%deleted89951%_ '1) + _%value89925%_) + ((lambda () + (&raw-table-count-set! + _%tab89923%_ + (##fx+ (&raw-table-count _%tab89923%_) '1))))) + (begin + (vector-set! + _%table89928%_ + _%probe89947%_ + _%key89924%_) + (vector-set! + _%table89928%_ + (##fx+ _%probe89947%_ '1) + _%value89925%_) + ((lambda () + (&raw-table-free-set! + _%tab89923%_ + (##fx- (&raw-table-free _%tab89923%_) '1)) + (&raw-table-count-set! + _%tab89923%_ + (##fx+ (&raw-table-count _%tab89923%_) '1)))))) + (if (eq? _%k89954%_ (macro-deleted-obj)) + (_%loop89944%_ + (let ((_%next-probe89961%_ + (fx+ _%start89940%_ + _%i89949%_ + (fx* _%i89949%_ _%i89949%_)))) + (##fxmodulo _%next-probe89961%_ _%size89934%_)) + (##fx+ _%i89949%_ '1) + (let ((_%$e89964%_ _%deleted89951%_)) + (if _%$e89964%_ _%$e89964%_ _%probe89947%_))) + (if (eq? _%key89924%_ _%k89954%_) (let () (vector-set! - _%table90232%_ - _%probe90251%_ - _%key90228%_) + _%table89928%_ + _%probe89947%_ + _%key89924%_) (vector-set! - _%table90232%_ - (##fx+ _%probe90251%_ '1) - _%value90229%_)) - (let () - (_%loop90248%_ - (let ((_%next-probe90273%_ - (fx+ _%start90244%_ - _%i90253%_ - (fx* _%i90253%_ _%i90253%_)))) - (##fxmodulo - _%next-probe90273%_ - _%size90238%_)) - (##fx+ _%i90253%_ '1) - _%deleted90255%_))))))))))) + _%table89928%_ + (##fx+ _%probe89947%_ '1) + _%value89925%_)) + (_%loop89944%_ + (let ((_%next-probe89969%_ + (fx+ _%start89940%_ + _%i89949%_ + (fx* _%i89949%_ _%i89949%_)))) + (##fxmodulo _%next-probe89969%_ _%size89934%_)) + (##fx+ _%i89949%_ '1) + _%deleted89951%_)))))))))) (define eq-table-update! - (lambda (_%tab90222%_ - _%key90223%_ - _%eq-table-update!90224%_ - _%default90225%_) - (if (##fx< (&raw-table-free _%tab90222%_) + (lambda (_%tab89918%_ + _%key89919%_ + _%eq-table-update!89920%_ + _%default89921%_) + (if (##fx< (&raw-table-free _%tab89918%_) (##fxquotient - (vector-length (&raw-table-table _%tab90222%_)) + (vector-length (&raw-table-table _%tab89918%_)) '4)) - (__raw-table-rehash! _%tab90222%_) + (__raw-table-rehash! _%tab89918%_) '#!void) (__eq-table-update! - _%tab90222%_ - _%key90223%_ - _%eq-table-update!90224%_ - _%default90225%_))) + _%tab89918%_ + _%key89919%_ + _%eq-table-update!89920%_ + _%default89921%_))) (define __eq-table-update! - (lambda (_%tab90172%_ - _%key90173%_ - _%eq-table-update!90174%_ - _%default90175%_) - (let ((_%table90178%_ (&raw-table-table _%tab90172%_)) - (_%seed90179%_ (&raw-table-seed _%tab90172%_))) - (let* ((_%h90181%_ (fxxor (eq-hash _%key90173%_) _%seed90179%_)) - (_%size90184%_ (vector-length _%table90178%_)) - (_%entries90187%_ (##fxquotient _%size90184%_ '2)) - (_%start90190%_ + (lambda (_%tab89868%_ + _%key89869%_ + _%eq-table-update!89870%_ + _%default89871%_) + (let ((_%table89874%_ (&raw-table-table _%tab89868%_)) + (_%seed89875%_ (&raw-table-seed _%tab89868%_))) + (let* ((_%h89877%_ (fxxor (eq-hash _%key89869%_) _%seed89875%_)) + (_%size89880%_ (vector-length _%table89874%_)) + (_%entries89883%_ (##fxquotient _%size89880%_ '2)) + (_%start89886%_ (##fxarithmetic-shift-left - (##fxmodulo _%h90181%_ _%entries90187%_) + (##fxmodulo _%h89877%_ _%entries89883%_) '1))) - (let _%loop90194%_ ((_%probe90197%_ _%start90190%_) - (_%i90199%_ '1) - (_%deleted90201%_ '#f)) - (let ((_%k90204%_ (vector-ref _%table90178%_ _%probe90197%_))) - (if (eq? _%k90204%_ (macro-unused-obj)) - (let () - (if _%deleted90201%_ - (begin - (vector-set! - _%table90178%_ - _%deleted90201%_ - _%key90173%_) - (vector-set! - _%table90178%_ - (##fx+ _%deleted90201%_ '1) - (_%eq-table-update!90174%_ _%default90175%_)) - ((lambda () - (&raw-table-count-set! - _%tab90172%_ - (##fx+ (&raw-table-count _%tab90172%_) '1))))) - (begin - (vector-set! - _%table90178%_ - _%probe90197%_ - _%key90173%_) - (vector-set! - _%table90178%_ - (##fx+ _%probe90197%_ '1) - (_%eq-table-update!90174%_ _%default90175%_)) - ((lambda () - (&raw-table-free-set! - _%tab90172%_ - (##fx- (&raw-table-free _%tab90172%_) '1)) - (&raw-table-count-set! - _%tab90172%_ - (##fx+ (&raw-table-count _%tab90172%_) - '1))))))) - (if (eq? _%k90204%_ (macro-deleted-obj)) - (let () - (_%loop90194%_ - (let ((_%next-probe90211%_ - (fx+ _%start90190%_ - _%i90199%_ - (fx* _%i90199%_ _%i90199%_)))) - (##fxmodulo _%next-probe90211%_ _%size90184%_)) - (##fx+ _%i90199%_ '1) - (let ((_%$e90214%_ _%deleted90201%_)) - (if _%$e90214%_ _%$e90214%_ _%probe90197%_)))) - (if (eq? _%key90173%_ _%k90204%_) + (let _%loop89890%_ ((_%probe89893%_ _%start89886%_) + (_%i89895%_ '1) + (_%deleted89897%_ '#f)) + (let ((_%k89900%_ (vector-ref _%table89874%_ _%probe89893%_))) + (if (eq? _%k89900%_ (macro-unused-obj)) + (if _%deleted89897%_ + (begin + (vector-set! + _%table89874%_ + _%deleted89897%_ + _%key89869%_) + (vector-set! + _%table89874%_ + (##fx+ _%deleted89897%_ '1) + (_%eq-table-update!89870%_ _%default89871%_)) + ((lambda () + (&raw-table-count-set! + _%tab89868%_ + (##fx+ (&raw-table-count _%tab89868%_) '1))))) + (begin + (vector-set! + _%table89874%_ + _%probe89893%_ + _%key89869%_) + (vector-set! + _%table89874%_ + (##fx+ _%probe89893%_ '1) + (_%eq-table-update!89870%_ _%default89871%_)) + ((lambda () + (&raw-table-free-set! + _%tab89868%_ + (##fx- (&raw-table-free _%tab89868%_) '1)) + (&raw-table-count-set! + _%tab89868%_ + (##fx+ (&raw-table-count _%tab89868%_) '1)))))) + (if (eq? _%k89900%_ (macro-deleted-obj)) + (_%loop89890%_ + (let ((_%next-probe89907%_ + (fx+ _%start89886%_ + _%i89895%_ + (fx* _%i89895%_ _%i89895%_)))) + (##fxmodulo _%next-probe89907%_ _%size89880%_)) + (##fx+ _%i89895%_ '1) + (let ((_%$e89910%_ _%deleted89897%_)) + (if _%$e89910%_ _%$e89910%_ _%probe89893%_))) + (if (eq? _%key89869%_ _%k89900%_) (let () (vector-set! - _%table90178%_ - _%probe90197%_ - _%key90173%_) + _%table89874%_ + _%probe89893%_ + _%key89869%_) (vector-set! - _%table90178%_ - (##fx+ _%probe90197%_ '1) - (_%eq-table-update!90174%_ + _%table89874%_ + (##fx+ _%probe89893%_ '1) + (_%eq-table-update!89870%_ (vector-ref - _%table90178%_ - (##fx+ _%probe90197%_ '1))))) - (let () - (_%loop90194%_ - (let ((_%next-probe90219%_ - (fx+ _%start90190%_ - _%i90199%_ - (fx* _%i90199%_ _%i90199%_)))) - (##fxmodulo - _%next-probe90219%_ - _%size90184%_)) - (##fx+ _%i90199%_ '1) - _%deleted90201%_))))))))))) + _%table89874%_ + (##fx+ _%probe89893%_ '1))))) + (_%loop89890%_ + (let ((_%next-probe89915%_ + (fx+ _%start89886%_ + _%i89895%_ + (fx* _%i89895%_ _%i89895%_)))) + (##fxmodulo _%next-probe89915%_ _%size89880%_)) + (##fx+ _%i89895%_ '1) + _%deleted89897%_)))))))))) (define eq-table-delete! - (lambda (_%tab90127%_ _%key90129%_) - (let ((_%table90132%_ (&raw-table-table _%tab90127%_)) - (_%seed90134%_ (&raw-table-seed _%tab90127%_))) - (let* ((_%h90137%_ (fxxor (eq-hash _%key90129%_) _%seed90134%_)) - (_%size90140%_ (vector-length _%table90132%_)) - (_%entries90143%_ (##fxquotient _%size90140%_ '2)) - (_%start90146%_ + (lambda (_%tab89823%_ _%key89825%_) + (let ((_%table89828%_ (&raw-table-table _%tab89823%_)) + (_%seed89830%_ (&raw-table-seed _%tab89823%_))) + (let* ((_%h89833%_ (fxxor (eq-hash _%key89825%_) _%seed89830%_)) + (_%size89836%_ (vector-length _%table89828%_)) + (_%entries89839%_ (##fxquotient _%size89836%_ '2)) + (_%start89842%_ (##fxarithmetic-shift-left - (##fxmodulo _%h90137%_ _%entries90143%_) + (##fxmodulo _%h89833%_ _%entries89839%_) '1))) - (let _%loop90150%_ ((_%probe90153%_ _%start90146%_) - (_%i90155%_ '1)) - (let ((_%k90158%_ (vector-ref _%table90132%_ _%probe90153%_))) - (if (eq? _%k90158%_ (macro-unused-obj)) - (let () '#!void) - (if (eq? _%k90158%_ (macro-deleted-obj)) - (let () - (_%loop90150%_ - (let ((_%next-probe90163%_ - (fx+ _%start90146%_ - _%i90155%_ - (fx* _%i90155%_ _%i90155%_)))) - (##fxmodulo _%next-probe90163%_ _%size90140%_)) - (##fx+ _%i90155%_ '1))) - (if (eq? _%key90129%_ _%k90158%_) + (let _%loop89846%_ ((_%probe89849%_ _%start89842%_) + (_%i89851%_ '1)) + (let ((_%k89854%_ (vector-ref _%table89828%_ _%probe89849%_))) + (if (eq? _%k89854%_ (macro-unused-obj)) + '#!void + (if (eq? _%k89854%_ (macro-deleted-obj)) + (_%loop89846%_ + (let ((_%next-probe89859%_ + (fx+ _%start89842%_ + _%i89851%_ + (fx* _%i89851%_ _%i89851%_)))) + (##fxmodulo _%next-probe89859%_ _%size89836%_)) + (##fx+ _%i89851%_ '1)) + (if (eq? _%key89825%_ _%k89854%_) (let () (vector-set! - _%table90132%_ - _%probe90153%_ + _%table89828%_ + _%probe89849%_ (macro-deleted-obj)) (vector-set! - _%table90132%_ - (##fx+ _%probe90153%_ '1) + _%table89828%_ + (##fx+ _%probe89849%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab90127%_ - (##fx- (&raw-table-count _%tab90127%_) + _%tab89823%_ + (##fx- (&raw-table-count _%tab89823%_) '1))))) - (let () - (_%loop90150%_ - (let ((_%next-probe90169%_ - (fx+ _%start90146%_ - _%i90155%_ - (fx* _%i90155%_ _%i90155%_)))) - (##fxmodulo - _%next-probe90169%_ - _%size90140%_)) - (##fx+ _%i90155%_ '1)))))))))))) + (_%loop89846%_ + (let ((_%next-probe89865%_ + (fx+ _%start89842%_ + _%i89851%_ + (fx* _%i89851%_ _%i89851%_)))) + (##fxmodulo _%next-probe89865%_ _%size89836%_)) + (##fx+ _%i89851%_ '1))))))))))) (define make-eqv-table__% - (lambda (_%size-hint90108%_ _%seed90110%_) - (make-raw-table__% _%size-hint90108%_ eqv-hash eqv? _%seed90110%_))) + (lambda (_%size-hint89804%_ _%seed89806%_) + (make-raw-table__% _%size-hint89804%_ eqv-hash eqv? _%seed89806%_))) (define make-eqv-table__0 (lambda () - (let* ((_%size-hint90116%_ '#f) (_%seed90118%_ '0)) - (make-eqv-table__% _%size-hint90116%_ _%seed90118%_)))) + (let* ((_%size-hint89812%_ '#f) (_%seed89814%_ '0)) + (make-eqv-table__% _%size-hint89812%_ _%seed89814%_)))) (define make-eqv-table__1 - (lambda (_%size-hint90120%_) - (let ((_%seed90122%_ '0)) - (make-eqv-table__% _%size-hint90120%_ _%seed90122%_)))) + (lambda (_%size-hint89816%_) + (let ((_%seed89818%_ '0)) + (make-eqv-table__% _%size-hint89816%_ _%seed89818%_)))) (define make-eqv-table - (lambda _g90685_ - (let ((_g90684_ (##length _g90685_))) - (cond ((##fx= _g90684_ 0) - (apply (lambda () (make-eqv-table__0)) _g90685_)) - ((##fx= _g90684_ 1) - (apply (lambda (_%size-hint90120%_) - (make-eqv-table__1 _%size-hint90120%_)) - _g90685_)) - ((##fx= _g90684_ 2) - (apply (lambda (_%size-hint90124%_ _%seed90125%_) - (make-eqv-table__% _%size-hint90124%_ _%seed90125%_)) - _g90685_)) + (lambda _g90381_ + (let ((_g90380_ (##length _g90381_))) + (cond ((##fx= _g90380_ 0) (apply make-eqv-table__0 _g90381_)) + ((##fx= _g90380_ 1) (apply make-eqv-table__1 _g90381_)) + ((##fx= _g90380_ 2) (apply make-eqv-table__% _g90381_)) (else (##raise-wrong-number-of-arguments-exception make-eqv-table - _g90685_)))))) + _g90381_)))))) (define eqv-table-ref - (lambda (_%tab90061%_ _%key90062%_ _%default90063%_) - (let ((_%table90065%_ (&raw-table-table _%tab90061%_)) - (_%seed90066%_ (&raw-table-seed _%tab90061%_))) - (let* ((_%h90068%_ (fxxor (eqv-hash _%key90062%_) _%seed90066%_)) - (_%size90071%_ (vector-length _%table90065%_)) - (_%entries90074%_ (##fxquotient _%size90071%_ '2)) - (_%start90077%_ + (lambda (_%tab89757%_ _%key89758%_ _%default89759%_) + (let ((_%table89761%_ (&raw-table-table _%tab89757%_)) + (_%seed89762%_ (&raw-table-seed _%tab89757%_))) + (let* ((_%h89764%_ (fxxor (eqv-hash _%key89758%_) _%seed89762%_)) + (_%size89767%_ (vector-length _%table89761%_)) + (_%entries89770%_ (##fxquotient _%size89767%_ '2)) + (_%start89773%_ (##fxarithmetic-shift-left - (##fxmodulo _%h90068%_ _%entries90074%_) + (##fxmodulo _%h89764%_ _%entries89770%_) '1))) - (let _%loop90081%_ ((_%probe90084%_ _%start90077%_) - (_%i90086%_ '1) - (_%deleted90088%_ '#f)) - (let ((_%k90091%_ (vector-ref _%table90065%_ _%probe90084%_))) - (if (eq? _%k90091%_ (macro-unused-obj)) - (let () _%default90063%_) - (if (eq? _%k90091%_ (macro-deleted-obj)) - (let () - (_%loop90081%_ - (let ((_%next-probe90096%_ - (fx+ _%start90077%_ - _%i90086%_ - (fx* _%i90086%_ _%i90086%_)))) - (##fxmodulo _%next-probe90096%_ _%size90071%_)) - (##fx+ _%i90086%_ '1) - (let ((_%$e90099%_ _%deleted90088%_)) - (if _%$e90099%_ _%$e90099%_ _%probe90084%_)))) - (if (eqv? _%key90062%_ _%k90091%_) - (let () - (vector-ref - _%table90065%_ - (##fx+ _%probe90084%_ '1))) - (let () - (_%loop90081%_ - (let ((_%next-probe90104%_ - (fx+ _%start90077%_ - _%i90086%_ - (fx* _%i90086%_ _%i90086%_)))) - (##fxmodulo - _%next-probe90104%_ - _%size90071%_)) - (##fx+ _%i90086%_ '1) - _%deleted90088%_))))))))))) + (let _%loop89777%_ ((_%probe89780%_ _%start89773%_) + (_%i89782%_ '1) + (_%deleted89784%_ '#f)) + (let ((_%k89787%_ (vector-ref _%table89761%_ _%probe89780%_))) + (if (eq? _%k89787%_ (macro-unused-obj)) + _%default89759%_ + (if (eq? _%k89787%_ (macro-deleted-obj)) + (_%loop89777%_ + (let ((_%next-probe89792%_ + (fx+ _%start89773%_ + _%i89782%_ + (fx* _%i89782%_ _%i89782%_)))) + (##fxmodulo _%next-probe89792%_ _%size89767%_)) + (##fx+ _%i89782%_ '1) + (let ((_%$e89795%_ _%deleted89784%_)) + (if _%$e89795%_ _%$e89795%_ _%probe89780%_))) + (if (eqv? _%key89758%_ _%k89787%_) + (vector-ref + _%table89761%_ + (##fx+ _%probe89780%_ '1)) + (_%loop89777%_ + (let ((_%next-probe89800%_ + (fx+ _%start89773%_ + _%i89782%_ + (fx* _%i89782%_ _%i89782%_)))) + (##fxmodulo _%next-probe89800%_ _%size89767%_)) + (##fx+ _%i89782%_ '1) + _%deleted89784%_)))))))))) (define eqv-table-set! - (lambda (_%tab90057%_ _%key90058%_ _%value90059%_) - (if (##fx< (&raw-table-free _%tab90057%_) + (lambda (_%tab89753%_ _%key89754%_ _%value89755%_) + (if (##fx< (&raw-table-free _%tab89753%_) (##fxquotient - (vector-length (&raw-table-table _%tab90057%_)) + (vector-length (&raw-table-table _%tab89753%_)) '4)) - (__raw-table-rehash! _%tab90057%_) + (__raw-table-rehash! _%tab89753%_) '#!void) - (__eqv-table-set! _%tab90057%_ _%key90058%_ _%value90059%_))) + (__eqv-table-set! _%tab89753%_ _%key89754%_ _%value89755%_))) (define __eqv-table-set! - (lambda (_%tab90008%_ _%key90009%_ _%value90010%_) - (let ((_%table90013%_ (&raw-table-table _%tab90008%_)) - (_%seed90014%_ (&raw-table-seed _%tab90008%_))) - (let* ((_%h90016%_ (fxxor (eqv-hash _%key90009%_) _%seed90014%_)) - (_%size90019%_ (vector-length _%table90013%_)) - (_%entries90022%_ (##fxquotient _%size90019%_ '2)) - (_%start90025%_ + (lambda (_%tab89704%_ _%key89705%_ _%value89706%_) + (let ((_%table89709%_ (&raw-table-table _%tab89704%_)) + (_%seed89710%_ (&raw-table-seed _%tab89704%_))) + (let* ((_%h89712%_ (fxxor (eqv-hash _%key89705%_) _%seed89710%_)) + (_%size89715%_ (vector-length _%table89709%_)) + (_%entries89718%_ (##fxquotient _%size89715%_ '2)) + (_%start89721%_ (##fxarithmetic-shift-left - (##fxmodulo _%h90016%_ _%entries90022%_) + (##fxmodulo _%h89712%_ _%entries89718%_) '1))) - (let _%loop90029%_ ((_%probe90032%_ _%start90025%_) - (_%i90034%_ '1) - (_%deleted90036%_ '#f)) - (let ((_%k90039%_ (vector-ref _%table90013%_ _%probe90032%_))) - (if (eq? _%k90039%_ (macro-unused-obj)) - (let () - (if _%deleted90036%_ - (begin - (vector-set! - _%table90013%_ - _%deleted90036%_ - _%key90009%_) - (vector-set! - _%table90013%_ - (##fx+ _%deleted90036%_ '1) - _%value90010%_) - ((lambda () - (&raw-table-count-set! - _%tab90008%_ - (##fx+ (&raw-table-count _%tab90008%_) '1))))) - (begin - (vector-set! - _%table90013%_ - _%probe90032%_ - _%key90009%_) - (vector-set! - _%table90013%_ - (##fx+ _%probe90032%_ '1) - _%value90010%_) - ((lambda () - (&raw-table-free-set! - _%tab90008%_ - (##fx- (&raw-table-free _%tab90008%_) '1)) - (&raw-table-count-set! - _%tab90008%_ - (##fx+ (&raw-table-count _%tab90008%_) - '1))))))) - (if (eq? _%k90039%_ (macro-deleted-obj)) - (let () - (_%loop90029%_ - (let ((_%next-probe90046%_ - (fx+ _%start90025%_ - _%i90034%_ - (fx* _%i90034%_ _%i90034%_)))) - (##fxmodulo _%next-probe90046%_ _%size90019%_)) - (##fx+ _%i90034%_ '1) - (let ((_%$e90049%_ _%deleted90036%_)) - (if _%$e90049%_ _%$e90049%_ _%probe90032%_)))) - (if (eqv? _%key90009%_ _%k90039%_) + (let _%loop89725%_ ((_%probe89728%_ _%start89721%_) + (_%i89730%_ '1) + (_%deleted89732%_ '#f)) + (let ((_%k89735%_ (vector-ref _%table89709%_ _%probe89728%_))) + (if (eq? _%k89735%_ (macro-unused-obj)) + (if _%deleted89732%_ + (begin + (vector-set! + _%table89709%_ + _%deleted89732%_ + _%key89705%_) + (vector-set! + _%table89709%_ + (##fx+ _%deleted89732%_ '1) + _%value89706%_) + ((lambda () + (&raw-table-count-set! + _%tab89704%_ + (##fx+ (&raw-table-count _%tab89704%_) '1))))) + (begin + (vector-set! + _%table89709%_ + _%probe89728%_ + _%key89705%_) + (vector-set! + _%table89709%_ + (##fx+ _%probe89728%_ '1) + _%value89706%_) + ((lambda () + (&raw-table-free-set! + _%tab89704%_ + (##fx- (&raw-table-free _%tab89704%_) '1)) + (&raw-table-count-set! + _%tab89704%_ + (##fx+ (&raw-table-count _%tab89704%_) '1)))))) + (if (eq? _%k89735%_ (macro-deleted-obj)) + (_%loop89725%_ + (let ((_%next-probe89742%_ + (fx+ _%start89721%_ + _%i89730%_ + (fx* _%i89730%_ _%i89730%_)))) + (##fxmodulo _%next-probe89742%_ _%size89715%_)) + (##fx+ _%i89730%_ '1) + (let ((_%$e89745%_ _%deleted89732%_)) + (if _%$e89745%_ _%$e89745%_ _%probe89728%_))) + (if (eqv? _%key89705%_ _%k89735%_) (let () (vector-set! - _%table90013%_ - _%probe90032%_ - _%key90009%_) + _%table89709%_ + _%probe89728%_ + _%key89705%_) (vector-set! - _%table90013%_ - (##fx+ _%probe90032%_ '1) - _%value90010%_)) - (let () - (_%loop90029%_ - (let ((_%next-probe90054%_ - (fx+ _%start90025%_ - _%i90034%_ - (fx* _%i90034%_ _%i90034%_)))) - (##fxmodulo - _%next-probe90054%_ - _%size90019%_)) - (##fx+ _%i90034%_ '1) - _%deleted90036%_))))))))))) + _%table89709%_ + (##fx+ _%probe89728%_ '1) + _%value89706%_)) + (_%loop89725%_ + (let ((_%next-probe89750%_ + (fx+ _%start89721%_ + _%i89730%_ + (fx* _%i89730%_ _%i89730%_)))) + (##fxmodulo _%next-probe89750%_ _%size89715%_)) + (##fx+ _%i89730%_ '1) + _%deleted89732%_)))))))))) (define eqv-table-update! - (lambda (_%tab90003%_ - _%key90004%_ - _%eqv-table-update!90005%_ - _%default90006%_) - (if (##fx< (&raw-table-free _%tab90003%_) + (lambda (_%tab89699%_ + _%key89700%_ + _%eqv-table-update!89701%_ + _%default89702%_) + (if (##fx< (&raw-table-free _%tab89699%_) (##fxquotient - (vector-length (&raw-table-table _%tab90003%_)) + (vector-length (&raw-table-table _%tab89699%_)) '4)) - (__raw-table-rehash! _%tab90003%_) + (__raw-table-rehash! _%tab89699%_) '#!void) (__eqv-table-update! - _%tab90003%_ - _%key90004%_ - _%eqv-table-update!90005%_ - _%default90006%_))) + _%tab89699%_ + _%key89700%_ + _%eqv-table-update!89701%_ + _%default89702%_))) (define __eqv-table-update! - (lambda (_%tab89953%_ - _%key89954%_ - _%eqv-table-update!89955%_ - _%default89956%_) - (let ((_%table89959%_ (&raw-table-table _%tab89953%_)) - (_%seed89960%_ (&raw-table-seed _%tab89953%_))) - (let* ((_%h89962%_ (fxxor (eqv-hash _%key89954%_) _%seed89960%_)) - (_%size89965%_ (vector-length _%table89959%_)) - (_%entries89968%_ (##fxquotient _%size89965%_ '2)) - (_%start89971%_ + (lambda (_%tab89649%_ + _%key89650%_ + _%eqv-table-update!89651%_ + _%default89652%_) + (let ((_%table89655%_ (&raw-table-table _%tab89649%_)) + (_%seed89656%_ (&raw-table-seed _%tab89649%_))) + (let* ((_%h89658%_ (fxxor (eqv-hash _%key89650%_) _%seed89656%_)) + (_%size89661%_ (vector-length _%table89655%_)) + (_%entries89664%_ (##fxquotient _%size89661%_ '2)) + (_%start89667%_ (##fxarithmetic-shift-left - (##fxmodulo _%h89962%_ _%entries89968%_) + (##fxmodulo _%h89658%_ _%entries89664%_) '1))) - (let _%loop89975%_ ((_%probe89978%_ _%start89971%_) - (_%i89980%_ '1) - (_%deleted89982%_ '#f)) - (let ((_%k89985%_ (vector-ref _%table89959%_ _%probe89978%_))) - (if (eq? _%k89985%_ (macro-unused-obj)) - (let () - (if _%deleted89982%_ - (begin - (vector-set! - _%table89959%_ - _%deleted89982%_ - _%key89954%_) - (vector-set! - _%table89959%_ - (##fx+ _%deleted89982%_ '1) - (_%eqv-table-update!89955%_ _%default89956%_)) - ((lambda () - (&raw-table-count-set! - _%tab89953%_ - (##fx+ (&raw-table-count _%tab89953%_) '1))))) - (begin - (vector-set! - _%table89959%_ - _%probe89978%_ - _%key89954%_) - (vector-set! - _%table89959%_ - (##fx+ _%probe89978%_ '1) - (_%eqv-table-update!89955%_ _%default89956%_)) - ((lambda () - (&raw-table-free-set! - _%tab89953%_ - (##fx- (&raw-table-free _%tab89953%_) '1)) - (&raw-table-count-set! - _%tab89953%_ - (##fx+ (&raw-table-count _%tab89953%_) - '1))))))) - (if (eq? _%k89985%_ (macro-deleted-obj)) - (let () - (_%loop89975%_ - (let ((_%next-probe89992%_ - (fx+ _%start89971%_ - _%i89980%_ - (fx* _%i89980%_ _%i89980%_)))) - (##fxmodulo _%next-probe89992%_ _%size89965%_)) - (##fx+ _%i89980%_ '1) - (let ((_%$e89995%_ _%deleted89982%_)) - (if _%$e89995%_ _%$e89995%_ _%probe89978%_)))) - (if (eqv? _%key89954%_ _%k89985%_) + (let _%loop89671%_ ((_%probe89674%_ _%start89667%_) + (_%i89676%_ '1) + (_%deleted89678%_ '#f)) + (let ((_%k89681%_ (vector-ref _%table89655%_ _%probe89674%_))) + (if (eq? _%k89681%_ (macro-unused-obj)) + (if _%deleted89678%_ + (begin + (vector-set! + _%table89655%_ + _%deleted89678%_ + _%key89650%_) + (vector-set! + _%table89655%_ + (##fx+ _%deleted89678%_ '1) + (_%eqv-table-update!89651%_ _%default89652%_)) + ((lambda () + (&raw-table-count-set! + _%tab89649%_ + (##fx+ (&raw-table-count _%tab89649%_) '1))))) + (begin + (vector-set! + _%table89655%_ + _%probe89674%_ + _%key89650%_) + (vector-set! + _%table89655%_ + (##fx+ _%probe89674%_ '1) + (_%eqv-table-update!89651%_ _%default89652%_)) + ((lambda () + (&raw-table-free-set! + _%tab89649%_ + (##fx- (&raw-table-free _%tab89649%_) '1)) + (&raw-table-count-set! + _%tab89649%_ + (##fx+ (&raw-table-count _%tab89649%_) '1)))))) + (if (eq? _%k89681%_ (macro-deleted-obj)) + (_%loop89671%_ + (let ((_%next-probe89688%_ + (fx+ _%start89667%_ + _%i89676%_ + (fx* _%i89676%_ _%i89676%_)))) + (##fxmodulo _%next-probe89688%_ _%size89661%_)) + (##fx+ _%i89676%_ '1) + (let ((_%$e89691%_ _%deleted89678%_)) + (if _%$e89691%_ _%$e89691%_ _%probe89674%_))) + (if (eqv? _%key89650%_ _%k89681%_) (let () (vector-set! - _%table89959%_ - _%probe89978%_ - _%key89954%_) + _%table89655%_ + _%probe89674%_ + _%key89650%_) (vector-set! - _%table89959%_ - (##fx+ _%probe89978%_ '1) - (_%eqv-table-update!89955%_ + _%table89655%_ + (##fx+ _%probe89674%_ '1) + (_%eqv-table-update!89651%_ (vector-ref - _%table89959%_ - (##fx+ _%probe89978%_ '1))))) - (let () - (_%loop89975%_ - (let ((_%next-probe90000%_ - (fx+ _%start89971%_ - _%i89980%_ - (fx* _%i89980%_ _%i89980%_)))) - (##fxmodulo - _%next-probe90000%_ - _%size89965%_)) - (##fx+ _%i89980%_ '1) - _%deleted89982%_))))))))))) + _%table89655%_ + (##fx+ _%probe89674%_ '1))))) + (_%loop89671%_ + (let ((_%next-probe89696%_ + (fx+ _%start89667%_ + _%i89676%_ + (fx* _%i89676%_ _%i89676%_)))) + (##fxmodulo _%next-probe89696%_ _%size89661%_)) + (##fx+ _%i89676%_ '1) + _%deleted89678%_)))))))))) (define eqv-table-delete! - (lambda (_%tab89908%_ _%key89910%_) - (let ((_%table89913%_ (&raw-table-table _%tab89908%_)) - (_%seed89915%_ (&raw-table-seed _%tab89908%_))) - (let* ((_%h89918%_ (fxxor (eqv-hash _%key89910%_) _%seed89915%_)) - (_%size89921%_ (vector-length _%table89913%_)) - (_%entries89924%_ (##fxquotient _%size89921%_ '2)) - (_%start89927%_ + (lambda (_%tab89604%_ _%key89606%_) + (let ((_%table89609%_ (&raw-table-table _%tab89604%_)) + (_%seed89611%_ (&raw-table-seed _%tab89604%_))) + (let* ((_%h89614%_ (fxxor (eqv-hash _%key89606%_) _%seed89611%_)) + (_%size89617%_ (vector-length _%table89609%_)) + (_%entries89620%_ (##fxquotient _%size89617%_ '2)) + (_%start89623%_ (##fxarithmetic-shift-left - (##fxmodulo _%h89918%_ _%entries89924%_) + (##fxmodulo _%h89614%_ _%entries89620%_) '1))) - (let _%loop89931%_ ((_%probe89934%_ _%start89927%_) - (_%i89936%_ '1)) - (let ((_%k89939%_ (vector-ref _%table89913%_ _%probe89934%_))) - (if (eq? _%k89939%_ (macro-unused-obj)) - (let () '#!void) - (if (eq? _%k89939%_ (macro-deleted-obj)) - (let () - (_%loop89931%_ - (let ((_%next-probe89944%_ - (fx+ _%start89927%_ - _%i89936%_ - (fx* _%i89936%_ _%i89936%_)))) - (##fxmodulo _%next-probe89944%_ _%size89921%_)) - (##fx+ _%i89936%_ '1))) - (if (eqv? _%key89910%_ _%k89939%_) + (let _%loop89627%_ ((_%probe89630%_ _%start89623%_) + (_%i89632%_ '1)) + (let ((_%k89635%_ (vector-ref _%table89609%_ _%probe89630%_))) + (if (eq? _%k89635%_ (macro-unused-obj)) + '#!void + (if (eq? _%k89635%_ (macro-deleted-obj)) + (_%loop89627%_ + (let ((_%next-probe89640%_ + (fx+ _%start89623%_ + _%i89632%_ + (fx* _%i89632%_ _%i89632%_)))) + (##fxmodulo _%next-probe89640%_ _%size89617%_)) + (##fx+ _%i89632%_ '1)) + (if (eqv? _%key89606%_ _%k89635%_) (let () (vector-set! - _%table89913%_ - _%probe89934%_ + _%table89609%_ + _%probe89630%_ (macro-deleted-obj)) (vector-set! - _%table89913%_ - (##fx+ _%probe89934%_ '1) + _%table89609%_ + (##fx+ _%probe89630%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab89908%_ - (##fx- (&raw-table-count _%tab89908%_) + _%tab89604%_ + (##fx- (&raw-table-count _%tab89604%_) '1))))) - (let () - (_%loop89931%_ - (let ((_%next-probe89950%_ - (fx+ _%start89927%_ - _%i89936%_ - (fx* _%i89936%_ _%i89936%_)))) - (##fxmodulo - _%next-probe89950%_ - _%size89921%_)) - (##fx+ _%i89936%_ '1)))))))))))) + (_%loop89627%_ + (let ((_%next-probe89646%_ + (fx+ _%start89623%_ + _%i89632%_ + (fx* _%i89632%_ _%i89632%_)))) + (##fxmodulo _%next-probe89646%_ _%size89617%_)) + (##fx+ _%i89632%_ '1))))))))))) (define make-symbolic-table__% - (lambda (_%size-hint89889%_ _%seed89891%_) + (lambda (_%size-hint89585%_ _%seed89587%_) (make-raw-table__% - _%size-hint89889%_ + _%size-hint89585%_ symbolic-hash eq? - _%seed89891%_))) + _%seed89587%_))) (define make-symbolic-table__0 (lambda () - (let* ((_%size-hint89897%_ '#f) (_%seed89899%_ '0)) - (make-symbolic-table__% _%size-hint89897%_ _%seed89899%_)))) + (let* ((_%size-hint89593%_ '#f) (_%seed89595%_ '0)) + (make-symbolic-table__% _%size-hint89593%_ _%seed89595%_)))) (define make-symbolic-table__1 - (lambda (_%size-hint89901%_) - (let ((_%seed89903%_ '0)) - (make-symbolic-table__% _%size-hint89901%_ _%seed89903%_)))) + (lambda (_%size-hint89597%_) + (let ((_%seed89599%_ '0)) + (make-symbolic-table__% _%size-hint89597%_ _%seed89599%_)))) (define make-symbolic-table - (lambda _g90687_ - (let ((_g90686_ (##length _g90687_))) - (cond ((##fx= _g90686_ 0) - (apply (lambda () (make-symbolic-table__0)) _g90687_)) - ((##fx= _g90686_ 1) - (apply (lambda (_%size-hint89901%_) - (make-symbolic-table__1 _%size-hint89901%_)) - _g90687_)) - ((##fx= _g90686_ 2) - (apply (lambda (_%size-hint89905%_ _%seed89906%_) - (make-symbolic-table__% - _%size-hint89905%_ - _%seed89906%_)) - _g90687_)) + (lambda _g90383_ + (let ((_g90382_ (##length _g90383_))) + (cond ((##fx= _g90382_ 0) (apply make-symbolic-table__0 _g90383_)) + ((##fx= _g90382_ 1) (apply make-symbolic-table__1 _g90383_)) + ((##fx= _g90382_ 2) (apply make-symbolic-table__% _g90383_)) (else (##raise-wrong-number-of-arguments-exception make-symbolic-table - _g90687_)))))) + _g90383_)))))) (define symbolic-table-ref - (lambda (_%tab89842%_ _%key89843%_ _%default89844%_) - (let ((_%table89846%_ (&raw-table-table _%tab89842%_)) - (_%seed89847%_ (&raw-table-seed _%tab89842%_))) - (let* ((_%h89849%_ - (fxxor (symbolic-hash _%key89843%_) _%seed89847%_)) - (_%size89852%_ (vector-length _%table89846%_)) - (_%entries89855%_ (##fxquotient _%size89852%_ '2)) - (_%start89858%_ + (lambda (_%tab89538%_ _%key89539%_ _%default89540%_) + (let ((_%table89542%_ (&raw-table-table _%tab89538%_)) + (_%seed89543%_ (&raw-table-seed _%tab89538%_))) + (let* ((_%h89545%_ + (fxxor (symbolic-hash _%key89539%_) _%seed89543%_)) + (_%size89548%_ (vector-length _%table89542%_)) + (_%entries89551%_ (##fxquotient _%size89548%_ '2)) + (_%start89554%_ (##fxarithmetic-shift-left - (##fxmodulo _%h89849%_ _%entries89855%_) + (##fxmodulo _%h89545%_ _%entries89551%_) '1))) - (let _%loop89862%_ ((_%probe89865%_ _%start89858%_) - (_%i89867%_ '1) - (_%deleted89869%_ '#f)) - (let ((_%k89872%_ (vector-ref _%table89846%_ _%probe89865%_))) - (if (eq? _%k89872%_ (macro-unused-obj)) - (let () _%default89844%_) - (if (eq? _%k89872%_ (macro-deleted-obj)) - (let () - (_%loop89862%_ - (let ((_%next-probe89877%_ - (fx+ _%start89858%_ - _%i89867%_ - (fx* _%i89867%_ _%i89867%_)))) - (##fxmodulo _%next-probe89877%_ _%size89852%_)) - (##fx+ _%i89867%_ '1) - (let ((_%$e89880%_ _%deleted89869%_)) - (if _%$e89880%_ _%$e89880%_ _%probe89865%_)))) - (if (eq? _%key89843%_ _%k89872%_) - (let () - (vector-ref - _%table89846%_ - (##fx+ _%probe89865%_ '1))) - (let () - (_%loop89862%_ - (let ((_%next-probe89885%_ - (fx+ _%start89858%_ - _%i89867%_ - (fx* _%i89867%_ _%i89867%_)))) - (##fxmodulo - _%next-probe89885%_ - _%size89852%_)) - (##fx+ _%i89867%_ '1) - _%deleted89869%_))))))))))) + (let _%loop89558%_ ((_%probe89561%_ _%start89554%_) + (_%i89563%_ '1) + (_%deleted89565%_ '#f)) + (let ((_%k89568%_ (vector-ref _%table89542%_ _%probe89561%_))) + (if (eq? _%k89568%_ (macro-unused-obj)) + _%default89540%_ + (if (eq? _%k89568%_ (macro-deleted-obj)) + (_%loop89558%_ + (let ((_%next-probe89573%_ + (fx+ _%start89554%_ + _%i89563%_ + (fx* _%i89563%_ _%i89563%_)))) + (##fxmodulo _%next-probe89573%_ _%size89548%_)) + (##fx+ _%i89563%_ '1) + (let ((_%$e89576%_ _%deleted89565%_)) + (if _%$e89576%_ _%$e89576%_ _%probe89561%_))) + (if (eq? _%key89539%_ _%k89568%_) + (vector-ref + _%table89542%_ + (##fx+ _%probe89561%_ '1)) + (_%loop89558%_ + (let ((_%next-probe89581%_ + (fx+ _%start89554%_ + _%i89563%_ + (fx* _%i89563%_ _%i89563%_)))) + (##fxmodulo _%next-probe89581%_ _%size89548%_)) + (##fx+ _%i89563%_ '1) + _%deleted89565%_)))))))))) (define symbolic-table-set! - (lambda (_%tab89838%_ _%key89839%_ _%value89840%_) - (if (##fx< (&raw-table-free _%tab89838%_) + (lambda (_%tab89534%_ _%key89535%_ _%value89536%_) + (if (##fx< (&raw-table-free _%tab89534%_) (##fxquotient - (vector-length (&raw-table-table _%tab89838%_)) + (vector-length (&raw-table-table _%tab89534%_)) '4)) - (__raw-table-rehash! _%tab89838%_) + (__raw-table-rehash! _%tab89534%_) '#!void) - (__symbolic-table-set! _%tab89838%_ _%key89839%_ _%value89840%_))) + (__symbolic-table-set! _%tab89534%_ _%key89535%_ _%value89536%_))) (define __symbolic-table-set! - (lambda (_%tab89789%_ _%key89790%_ _%value89791%_) - (let ((_%table89794%_ (&raw-table-table _%tab89789%_)) - (_%seed89795%_ (&raw-table-seed _%tab89789%_))) - (let* ((_%h89797%_ - (fxxor (symbolic-hash _%key89790%_) _%seed89795%_)) - (_%size89800%_ (vector-length _%table89794%_)) - (_%entries89803%_ (##fxquotient _%size89800%_ '2)) - (_%start89806%_ + (lambda (_%tab89485%_ _%key89486%_ _%value89487%_) + (let ((_%table89490%_ (&raw-table-table _%tab89485%_)) + (_%seed89491%_ (&raw-table-seed _%tab89485%_))) + (let* ((_%h89493%_ + (fxxor (symbolic-hash _%key89486%_) _%seed89491%_)) + (_%size89496%_ (vector-length _%table89490%_)) + (_%entries89499%_ (##fxquotient _%size89496%_ '2)) + (_%start89502%_ (##fxarithmetic-shift-left - (##fxmodulo _%h89797%_ _%entries89803%_) + (##fxmodulo _%h89493%_ _%entries89499%_) '1))) - (let _%loop89810%_ ((_%probe89813%_ _%start89806%_) - (_%i89815%_ '1) - (_%deleted89817%_ '#f)) - (let ((_%k89820%_ (vector-ref _%table89794%_ _%probe89813%_))) - (if (eq? _%k89820%_ (macro-unused-obj)) - (let () - (if _%deleted89817%_ - (begin - (vector-set! - _%table89794%_ - _%deleted89817%_ - _%key89790%_) - (vector-set! - _%table89794%_ - (##fx+ _%deleted89817%_ '1) - _%value89791%_) - ((lambda () - (&raw-table-count-set! - _%tab89789%_ - (##fx+ (&raw-table-count _%tab89789%_) '1))))) - (begin - (vector-set! - _%table89794%_ - _%probe89813%_ - _%key89790%_) - (vector-set! - _%table89794%_ - (##fx+ _%probe89813%_ '1) - _%value89791%_) - ((lambda () - (&raw-table-free-set! - _%tab89789%_ - (##fx- (&raw-table-free _%tab89789%_) '1)) - (&raw-table-count-set! - _%tab89789%_ - (##fx+ (&raw-table-count _%tab89789%_) - '1))))))) - (if (eq? _%k89820%_ (macro-deleted-obj)) - (let () - (_%loop89810%_ - (let ((_%next-probe89827%_ - (fx+ _%start89806%_ - _%i89815%_ - (fx* _%i89815%_ _%i89815%_)))) - (##fxmodulo _%next-probe89827%_ _%size89800%_)) - (##fx+ _%i89815%_ '1) - (let ((_%$e89830%_ _%deleted89817%_)) - (if _%$e89830%_ _%$e89830%_ _%probe89813%_)))) - (if (eq? _%key89790%_ _%k89820%_) + (let _%loop89506%_ ((_%probe89509%_ _%start89502%_) + (_%i89511%_ '1) + (_%deleted89513%_ '#f)) + (let ((_%k89516%_ (vector-ref _%table89490%_ _%probe89509%_))) + (if (eq? _%k89516%_ (macro-unused-obj)) + (if _%deleted89513%_ + (begin + (vector-set! + _%table89490%_ + _%deleted89513%_ + _%key89486%_) + (vector-set! + _%table89490%_ + (##fx+ _%deleted89513%_ '1) + _%value89487%_) + ((lambda () + (&raw-table-count-set! + _%tab89485%_ + (##fx+ (&raw-table-count _%tab89485%_) '1))))) + (begin + (vector-set! + _%table89490%_ + _%probe89509%_ + _%key89486%_) + (vector-set! + _%table89490%_ + (##fx+ _%probe89509%_ '1) + _%value89487%_) + ((lambda () + (&raw-table-free-set! + _%tab89485%_ + (##fx- (&raw-table-free _%tab89485%_) '1)) + (&raw-table-count-set! + _%tab89485%_ + (##fx+ (&raw-table-count _%tab89485%_) '1)))))) + (if (eq? _%k89516%_ (macro-deleted-obj)) + (_%loop89506%_ + (let ((_%next-probe89523%_ + (fx+ _%start89502%_ + _%i89511%_ + (fx* _%i89511%_ _%i89511%_)))) + (##fxmodulo _%next-probe89523%_ _%size89496%_)) + (##fx+ _%i89511%_ '1) + (let ((_%$e89526%_ _%deleted89513%_)) + (if _%$e89526%_ _%$e89526%_ _%probe89509%_))) + (if (eq? _%key89486%_ _%k89516%_) (let () (vector-set! - _%table89794%_ - _%probe89813%_ - _%key89790%_) + _%table89490%_ + _%probe89509%_ + _%key89486%_) (vector-set! - _%table89794%_ - (##fx+ _%probe89813%_ '1) - _%value89791%_)) - (let () - (_%loop89810%_ - (let ((_%next-probe89835%_ - (fx+ _%start89806%_ - _%i89815%_ - (fx* _%i89815%_ _%i89815%_)))) - (##fxmodulo - _%next-probe89835%_ - _%size89800%_)) - (##fx+ _%i89815%_ '1) - _%deleted89817%_))))))))))) + _%table89490%_ + (##fx+ _%probe89509%_ '1) + _%value89487%_)) + (_%loop89506%_ + (let ((_%next-probe89531%_ + (fx+ _%start89502%_ + _%i89511%_ + (fx* _%i89511%_ _%i89511%_)))) + (##fxmodulo _%next-probe89531%_ _%size89496%_)) + (##fx+ _%i89511%_ '1) + _%deleted89513%_)))))))))) (define symbolic-table-update! - (lambda (_%tab89784%_ - _%key89785%_ - _%symbolic-table-update!89786%_ - _%default89787%_) - (if (##fx< (&raw-table-free _%tab89784%_) + (lambda (_%tab89480%_ + _%key89481%_ + _%symbolic-table-update!89482%_ + _%default89483%_) + (if (##fx< (&raw-table-free _%tab89480%_) (##fxquotient - (vector-length (&raw-table-table _%tab89784%_)) + (vector-length (&raw-table-table _%tab89480%_)) '4)) - (__raw-table-rehash! _%tab89784%_) + (__raw-table-rehash! _%tab89480%_) '#!void) (__symbolic-table-update! - _%tab89784%_ - _%key89785%_ - _%symbolic-table-update!89786%_ - _%default89787%_))) + _%tab89480%_ + _%key89481%_ + _%symbolic-table-update!89482%_ + _%default89483%_))) (define __symbolic-table-update! - (lambda (_%tab89734%_ - _%key89735%_ - _%symbolic-table-update!89736%_ - _%default89737%_) - (let ((_%table89740%_ (&raw-table-table _%tab89734%_)) - (_%seed89741%_ (&raw-table-seed _%tab89734%_))) - (let* ((_%h89743%_ - (fxxor (symbolic-hash _%key89735%_) _%seed89741%_)) - (_%size89746%_ (vector-length _%table89740%_)) - (_%entries89749%_ (##fxquotient _%size89746%_ '2)) - (_%start89752%_ + (lambda (_%tab89430%_ + _%key89431%_ + _%symbolic-table-update!89432%_ + _%default89433%_) + (let ((_%table89436%_ (&raw-table-table _%tab89430%_)) + (_%seed89437%_ (&raw-table-seed _%tab89430%_))) + (let* ((_%h89439%_ + (fxxor (symbolic-hash _%key89431%_) _%seed89437%_)) + (_%size89442%_ (vector-length _%table89436%_)) + (_%entries89445%_ (##fxquotient _%size89442%_ '2)) + (_%start89448%_ (##fxarithmetic-shift-left - (##fxmodulo _%h89743%_ _%entries89749%_) + (##fxmodulo _%h89439%_ _%entries89445%_) '1))) - (let _%loop89756%_ ((_%probe89759%_ _%start89752%_) - (_%i89761%_ '1) - (_%deleted89763%_ '#f)) - (let ((_%k89766%_ (vector-ref _%table89740%_ _%probe89759%_))) - (if (eq? _%k89766%_ (macro-unused-obj)) - (let () - (if _%deleted89763%_ - (begin - (vector-set! - _%table89740%_ - _%deleted89763%_ - _%key89735%_) - (vector-set! - _%table89740%_ - (##fx+ _%deleted89763%_ '1) - (_%symbolic-table-update!89736%_ - _%default89737%_)) - ((lambda () - (&raw-table-count-set! - _%tab89734%_ - (##fx+ (&raw-table-count _%tab89734%_) '1))))) - (begin - (vector-set! - _%table89740%_ - _%probe89759%_ - _%key89735%_) - (vector-set! - _%table89740%_ - (##fx+ _%probe89759%_ '1) - (_%symbolic-table-update!89736%_ - _%default89737%_)) - ((lambda () - (&raw-table-free-set! - _%tab89734%_ - (##fx- (&raw-table-free _%tab89734%_) '1)) - (&raw-table-count-set! - _%tab89734%_ - (##fx+ (&raw-table-count _%tab89734%_) - '1))))))) - (if (eq? _%k89766%_ (macro-deleted-obj)) - (let () - (_%loop89756%_ - (let ((_%next-probe89773%_ - (fx+ _%start89752%_ - _%i89761%_ - (fx* _%i89761%_ _%i89761%_)))) - (##fxmodulo _%next-probe89773%_ _%size89746%_)) - (##fx+ _%i89761%_ '1) - (let ((_%$e89776%_ _%deleted89763%_)) - (if _%$e89776%_ _%$e89776%_ _%probe89759%_)))) - (if (eq? _%key89735%_ _%k89766%_) + (let _%loop89452%_ ((_%probe89455%_ _%start89448%_) + (_%i89457%_ '1) + (_%deleted89459%_ '#f)) + (let ((_%k89462%_ (vector-ref _%table89436%_ _%probe89455%_))) + (if (eq? _%k89462%_ (macro-unused-obj)) + (if _%deleted89459%_ + (begin + (vector-set! + _%table89436%_ + _%deleted89459%_ + _%key89431%_) + (vector-set! + _%table89436%_ + (##fx+ _%deleted89459%_ '1) + (_%symbolic-table-update!89432%_ _%default89433%_)) + ((lambda () + (&raw-table-count-set! + _%tab89430%_ + (##fx+ (&raw-table-count _%tab89430%_) '1))))) + (begin + (vector-set! + _%table89436%_ + _%probe89455%_ + _%key89431%_) + (vector-set! + _%table89436%_ + (##fx+ _%probe89455%_ '1) + (_%symbolic-table-update!89432%_ _%default89433%_)) + ((lambda () + (&raw-table-free-set! + _%tab89430%_ + (##fx- (&raw-table-free _%tab89430%_) '1)) + (&raw-table-count-set! + _%tab89430%_ + (##fx+ (&raw-table-count _%tab89430%_) '1)))))) + (if (eq? _%k89462%_ (macro-deleted-obj)) + (_%loop89452%_ + (let ((_%next-probe89469%_ + (fx+ _%start89448%_ + _%i89457%_ + (fx* _%i89457%_ _%i89457%_)))) + (##fxmodulo _%next-probe89469%_ _%size89442%_)) + (##fx+ _%i89457%_ '1) + (let ((_%$e89472%_ _%deleted89459%_)) + (if _%$e89472%_ _%$e89472%_ _%probe89455%_))) + (if (eq? _%key89431%_ _%k89462%_) (let () (vector-set! - _%table89740%_ - _%probe89759%_ - _%key89735%_) + _%table89436%_ + _%probe89455%_ + _%key89431%_) (vector-set! - _%table89740%_ - (##fx+ _%probe89759%_ '1) - (_%symbolic-table-update!89736%_ + _%table89436%_ + (##fx+ _%probe89455%_ '1) + (_%symbolic-table-update!89432%_ (vector-ref - _%table89740%_ - (##fx+ _%probe89759%_ '1))))) - (let () - (_%loop89756%_ - (let ((_%next-probe89781%_ - (fx+ _%start89752%_ - _%i89761%_ - (fx* _%i89761%_ _%i89761%_)))) - (##fxmodulo - _%next-probe89781%_ - _%size89746%_)) - (##fx+ _%i89761%_ '1) - _%deleted89763%_))))))))))) + _%table89436%_ + (##fx+ _%probe89455%_ '1))))) + (_%loop89452%_ + (let ((_%next-probe89477%_ + (fx+ _%start89448%_ + _%i89457%_ + (fx* _%i89457%_ _%i89457%_)))) + (##fxmodulo _%next-probe89477%_ _%size89442%_)) + (##fx+ _%i89457%_ '1) + _%deleted89459%_)))))))))) (define symbolic-table-delete! - (lambda (_%tab89689%_ _%key89691%_) - (let ((_%table89694%_ (&raw-table-table _%tab89689%_)) - (_%seed89696%_ (&raw-table-seed _%tab89689%_))) - (let* ((_%h89699%_ - (fxxor (symbolic-hash _%key89691%_) _%seed89696%_)) - (_%size89702%_ (vector-length _%table89694%_)) - (_%entries89705%_ (##fxquotient _%size89702%_ '2)) - (_%start89708%_ + (lambda (_%tab89385%_ _%key89387%_) + (let ((_%table89390%_ (&raw-table-table _%tab89385%_)) + (_%seed89392%_ (&raw-table-seed _%tab89385%_))) + (let* ((_%h89395%_ + (fxxor (symbolic-hash _%key89387%_) _%seed89392%_)) + (_%size89398%_ (vector-length _%table89390%_)) + (_%entries89401%_ (##fxquotient _%size89398%_ '2)) + (_%start89404%_ (##fxarithmetic-shift-left - (##fxmodulo _%h89699%_ _%entries89705%_) + (##fxmodulo _%h89395%_ _%entries89401%_) '1))) - (let _%loop89712%_ ((_%probe89715%_ _%start89708%_) - (_%i89717%_ '1)) - (let ((_%k89720%_ (vector-ref _%table89694%_ _%probe89715%_))) - (if (eq? _%k89720%_ (macro-unused-obj)) - (let () '#!void) - (if (eq? _%k89720%_ (macro-deleted-obj)) - (let () - (_%loop89712%_ - (let ((_%next-probe89725%_ - (fx+ _%start89708%_ - _%i89717%_ - (fx* _%i89717%_ _%i89717%_)))) - (##fxmodulo _%next-probe89725%_ _%size89702%_)) - (##fx+ _%i89717%_ '1))) - (if (eq? _%key89691%_ _%k89720%_) + (let _%loop89408%_ ((_%probe89411%_ _%start89404%_) + (_%i89413%_ '1)) + (let ((_%k89416%_ (vector-ref _%table89390%_ _%probe89411%_))) + (if (eq? _%k89416%_ (macro-unused-obj)) + '#!void + (if (eq? _%k89416%_ (macro-deleted-obj)) + (_%loop89408%_ + (let ((_%next-probe89421%_ + (fx+ _%start89404%_ + _%i89413%_ + (fx* _%i89413%_ _%i89413%_)))) + (##fxmodulo _%next-probe89421%_ _%size89398%_)) + (##fx+ _%i89413%_ '1)) + (if (eq? _%key89387%_ _%k89416%_) (let () (vector-set! - _%table89694%_ - _%probe89715%_ + _%table89390%_ + _%probe89411%_ (macro-deleted-obj)) (vector-set! - _%table89694%_ - (##fx+ _%probe89715%_ '1) + _%table89390%_ + (##fx+ _%probe89411%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab89689%_ - (##fx- (&raw-table-count _%tab89689%_) + _%tab89385%_ + (##fx- (&raw-table-count _%tab89385%_) '1))))) - (let () - (_%loop89712%_ - (let ((_%next-probe89731%_ - (fx+ _%start89708%_ - _%i89717%_ - (fx* _%i89717%_ _%i89717%_)))) - (##fxmodulo - _%next-probe89731%_ - _%size89702%_)) - (##fx+ _%i89717%_ '1)))))))))))) + (_%loop89408%_ + (let ((_%next-probe89427%_ + (fx+ _%start89404%_ + _%i89413%_ + (fx* _%i89413%_ _%i89413%_)))) + (##fxmodulo _%next-probe89427%_ _%size89398%_)) + (##fx+ _%i89413%_ '1))))))))))) (define make-string-table__% - (lambda (_%size-hint89670%_ _%seed89672%_) + (lambda (_%size-hint89366%_ _%seed89368%_) (make-raw-table__% - _%size-hint89670%_ + _%size-hint89366%_ string-hash ##string=? - _%seed89672%_))) + _%seed89368%_))) (define make-string-table__0 (lambda () - (let* ((_%size-hint89678%_ '#f) (_%seed89680%_ '0)) - (make-string-table__% _%size-hint89678%_ _%seed89680%_)))) + (let* ((_%size-hint89374%_ '#f) (_%seed89376%_ '0)) + (make-string-table__% _%size-hint89374%_ _%seed89376%_)))) (define make-string-table__1 - (lambda (_%size-hint89682%_) - (let ((_%seed89684%_ '0)) - (make-string-table__% _%size-hint89682%_ _%seed89684%_)))) + (lambda (_%size-hint89378%_) + (let ((_%seed89380%_ '0)) + (make-string-table__% _%size-hint89378%_ _%seed89380%_)))) (define make-string-table - (lambda _g90689_ - (let ((_g90688_ (##length _g90689_))) - (cond ((##fx= _g90688_ 0) - (apply (lambda () (make-string-table__0)) _g90689_)) - ((##fx= _g90688_ 1) - (apply (lambda (_%size-hint89682%_) - (make-string-table__1 _%size-hint89682%_)) - _g90689_)) - ((##fx= _g90688_ 2) - (apply (lambda (_%size-hint89686%_ _%seed89687%_) - (make-string-table__% - _%size-hint89686%_ - _%seed89687%_)) - _g90689_)) + (lambda _g90385_ + (let ((_g90384_ (##length _g90385_))) + (cond ((##fx= _g90384_ 0) (apply make-string-table__0 _g90385_)) + ((##fx= _g90384_ 1) (apply make-string-table__1 _g90385_)) + ((##fx= _g90384_ 2) (apply make-string-table__% _g90385_)) (else (##raise-wrong-number-of-arguments-exception make-string-table - _g90689_)))))) + _g90385_)))))) (define string-table-ref - (lambda (_%tab89623%_ _%key89624%_ _%default89625%_) - (let ((_%table89627%_ (&raw-table-table _%tab89623%_)) - (_%seed89628%_ (&raw-table-seed _%tab89623%_))) - (let* ((_%h89630%_ - (fxxor (##string=?-hash _%key89624%_) _%seed89628%_)) - (_%size89633%_ (vector-length _%table89627%_)) - (_%entries89636%_ (##fxquotient _%size89633%_ '2)) - (_%start89639%_ + (lambda (_%tab89319%_ _%key89320%_ _%default89321%_) + (let ((_%table89323%_ (&raw-table-table _%tab89319%_)) + (_%seed89324%_ (&raw-table-seed _%tab89319%_))) + (let* ((_%h89326%_ + (fxxor (##string=?-hash _%key89320%_) _%seed89324%_)) + (_%size89329%_ (vector-length _%table89323%_)) + (_%entries89332%_ (##fxquotient _%size89329%_ '2)) + (_%start89335%_ (##fxarithmetic-shift-left - (##fxmodulo _%h89630%_ _%entries89636%_) + (##fxmodulo _%h89326%_ _%entries89332%_) '1))) - (let _%loop89643%_ ((_%probe89646%_ _%start89639%_) - (_%i89648%_ '1) - (_%deleted89650%_ '#f)) - (let ((_%k89653%_ (vector-ref _%table89627%_ _%probe89646%_))) - (if (eq? _%k89653%_ (macro-unused-obj)) - (let () _%default89625%_) - (if (eq? _%k89653%_ (macro-deleted-obj)) - (let () - (_%loop89643%_ - (let ((_%next-probe89658%_ - (fx+ _%start89639%_ - _%i89648%_ - (fx* _%i89648%_ _%i89648%_)))) - (##fxmodulo _%next-probe89658%_ _%size89633%_)) - (##fx+ _%i89648%_ '1) - (let ((_%$e89661%_ _%deleted89650%_)) - (if _%$e89661%_ _%$e89661%_ _%probe89646%_)))) - (if (##string=? _%key89624%_ _%k89653%_) - (let () - (vector-ref - _%table89627%_ - (##fx+ _%probe89646%_ '1))) - (let () - (_%loop89643%_ - (let ((_%next-probe89666%_ - (fx+ _%start89639%_ - _%i89648%_ - (fx* _%i89648%_ _%i89648%_)))) - (##fxmodulo - _%next-probe89666%_ - _%size89633%_)) - (##fx+ _%i89648%_ '1) - _%deleted89650%_))))))))))) + (let _%loop89339%_ ((_%probe89342%_ _%start89335%_) + (_%i89344%_ '1) + (_%deleted89346%_ '#f)) + (let ((_%k89349%_ (vector-ref _%table89323%_ _%probe89342%_))) + (if (eq? _%k89349%_ (macro-unused-obj)) + _%default89321%_ + (if (eq? _%k89349%_ (macro-deleted-obj)) + (_%loop89339%_ + (let ((_%next-probe89354%_ + (fx+ _%start89335%_ + _%i89344%_ + (fx* _%i89344%_ _%i89344%_)))) + (##fxmodulo _%next-probe89354%_ _%size89329%_)) + (##fx+ _%i89344%_ '1) + (let ((_%$e89357%_ _%deleted89346%_)) + (if _%$e89357%_ _%$e89357%_ _%probe89342%_))) + (if (##string=? _%key89320%_ _%k89349%_) + (vector-ref + _%table89323%_ + (##fx+ _%probe89342%_ '1)) + (_%loop89339%_ + (let ((_%next-probe89362%_ + (fx+ _%start89335%_ + _%i89344%_ + (fx* _%i89344%_ _%i89344%_)))) + (##fxmodulo _%next-probe89362%_ _%size89329%_)) + (##fx+ _%i89344%_ '1) + _%deleted89346%_)))))))))) (define string-table-set! - (lambda (_%tab89619%_ _%key89620%_ _%value89621%_) - (if (##fx< (&raw-table-free _%tab89619%_) + (lambda (_%tab89315%_ _%key89316%_ _%value89317%_) + (if (##fx< (&raw-table-free _%tab89315%_) (##fxquotient - (vector-length (&raw-table-table _%tab89619%_)) + (vector-length (&raw-table-table _%tab89315%_)) '4)) - (__raw-table-rehash! _%tab89619%_) + (__raw-table-rehash! _%tab89315%_) '#!void) - (__string-table-set! _%tab89619%_ _%key89620%_ _%value89621%_))) + (__string-table-set! _%tab89315%_ _%key89316%_ _%value89317%_))) (define __string-table-set! - (lambda (_%tab89570%_ _%key89571%_ _%value89572%_) - (let ((_%table89575%_ (&raw-table-table _%tab89570%_)) - (_%seed89576%_ (&raw-table-seed _%tab89570%_))) - (let* ((_%h89578%_ - (fxxor (##string=?-hash _%key89571%_) _%seed89576%_)) - (_%size89581%_ (vector-length _%table89575%_)) - (_%entries89584%_ (##fxquotient _%size89581%_ '2)) - (_%start89587%_ + (lambda (_%tab89266%_ _%key89267%_ _%value89268%_) + (let ((_%table89271%_ (&raw-table-table _%tab89266%_)) + (_%seed89272%_ (&raw-table-seed _%tab89266%_))) + (let* ((_%h89274%_ + (fxxor (##string=?-hash _%key89267%_) _%seed89272%_)) + (_%size89277%_ (vector-length _%table89271%_)) + (_%entries89280%_ (##fxquotient _%size89277%_ '2)) + (_%start89283%_ (##fxarithmetic-shift-left - (##fxmodulo _%h89578%_ _%entries89584%_) + (##fxmodulo _%h89274%_ _%entries89280%_) '1))) - (let _%loop89591%_ ((_%probe89594%_ _%start89587%_) - (_%i89596%_ '1) - (_%deleted89598%_ '#f)) - (let ((_%k89601%_ (vector-ref _%table89575%_ _%probe89594%_))) - (if (eq? _%k89601%_ (macro-unused-obj)) - (let () - (if _%deleted89598%_ - (begin - (vector-set! - _%table89575%_ - _%deleted89598%_ - _%key89571%_) - (vector-set! - _%table89575%_ - (##fx+ _%deleted89598%_ '1) - _%value89572%_) - ((lambda () - (&raw-table-count-set! - _%tab89570%_ - (##fx+ (&raw-table-count _%tab89570%_) '1))))) - (begin - (vector-set! - _%table89575%_ - _%probe89594%_ - _%key89571%_) - (vector-set! - _%table89575%_ - (##fx+ _%probe89594%_ '1) - _%value89572%_) - ((lambda () - (&raw-table-free-set! - _%tab89570%_ - (##fx- (&raw-table-free _%tab89570%_) '1)) - (&raw-table-count-set! - _%tab89570%_ - (##fx+ (&raw-table-count _%tab89570%_) - '1))))))) - (if (eq? _%k89601%_ (macro-deleted-obj)) - (let () - (_%loop89591%_ - (let ((_%next-probe89608%_ - (fx+ _%start89587%_ - _%i89596%_ - (fx* _%i89596%_ _%i89596%_)))) - (##fxmodulo _%next-probe89608%_ _%size89581%_)) - (##fx+ _%i89596%_ '1) - (let ((_%$e89611%_ _%deleted89598%_)) - (if _%$e89611%_ _%$e89611%_ _%probe89594%_)))) - (if (##string=? _%key89571%_ _%k89601%_) + (let _%loop89287%_ ((_%probe89290%_ _%start89283%_) + (_%i89292%_ '1) + (_%deleted89294%_ '#f)) + (let ((_%k89297%_ (vector-ref _%table89271%_ _%probe89290%_))) + (if (eq? _%k89297%_ (macro-unused-obj)) + (if _%deleted89294%_ + (begin + (vector-set! + _%table89271%_ + _%deleted89294%_ + _%key89267%_) + (vector-set! + _%table89271%_ + (##fx+ _%deleted89294%_ '1) + _%value89268%_) + ((lambda () + (&raw-table-count-set! + _%tab89266%_ + (##fx+ (&raw-table-count _%tab89266%_) '1))))) + (begin + (vector-set! + _%table89271%_ + _%probe89290%_ + _%key89267%_) + (vector-set! + _%table89271%_ + (##fx+ _%probe89290%_ '1) + _%value89268%_) + ((lambda () + (&raw-table-free-set! + _%tab89266%_ + (##fx- (&raw-table-free _%tab89266%_) '1)) + (&raw-table-count-set! + _%tab89266%_ + (##fx+ (&raw-table-count _%tab89266%_) '1)))))) + (if (eq? _%k89297%_ (macro-deleted-obj)) + (_%loop89287%_ + (let ((_%next-probe89304%_ + (fx+ _%start89283%_ + _%i89292%_ + (fx* _%i89292%_ _%i89292%_)))) + (##fxmodulo _%next-probe89304%_ _%size89277%_)) + (##fx+ _%i89292%_ '1) + (let ((_%$e89307%_ _%deleted89294%_)) + (if _%$e89307%_ _%$e89307%_ _%probe89290%_))) + (if (##string=? _%key89267%_ _%k89297%_) (let () (vector-set! - _%table89575%_ - _%probe89594%_ - _%key89571%_) + _%table89271%_ + _%probe89290%_ + _%key89267%_) (vector-set! - _%table89575%_ - (##fx+ _%probe89594%_ '1) - _%value89572%_)) - (let () - (_%loop89591%_ - (let ((_%next-probe89616%_ - (fx+ _%start89587%_ - _%i89596%_ - (fx* _%i89596%_ _%i89596%_)))) - (##fxmodulo - _%next-probe89616%_ - _%size89581%_)) - (##fx+ _%i89596%_ '1) - _%deleted89598%_))))))))))) + _%table89271%_ + (##fx+ _%probe89290%_ '1) + _%value89268%_)) + (_%loop89287%_ + (let ((_%next-probe89312%_ + (fx+ _%start89283%_ + _%i89292%_ + (fx* _%i89292%_ _%i89292%_)))) + (##fxmodulo _%next-probe89312%_ _%size89277%_)) + (##fx+ _%i89292%_ '1) + _%deleted89294%_)))))))))) (define string-table-update! - (lambda (_%tab89565%_ - _%key89566%_ - _%string-table-update!89567%_ - _%default89568%_) - (if (##fx< (&raw-table-free _%tab89565%_) + (lambda (_%tab89261%_ + _%key89262%_ + _%string-table-update!89263%_ + _%default89264%_) + (if (##fx< (&raw-table-free _%tab89261%_) (##fxquotient - (vector-length (&raw-table-table _%tab89565%_)) + (vector-length (&raw-table-table _%tab89261%_)) '4)) - (__raw-table-rehash! _%tab89565%_) + (__raw-table-rehash! _%tab89261%_) '#!void) (__string-table-update! - _%tab89565%_ - _%key89566%_ - _%string-table-update!89567%_ - _%default89568%_))) + _%tab89261%_ + _%key89262%_ + _%string-table-update!89263%_ + _%default89264%_))) (define __string-table-update! - (lambda (_%tab89515%_ - _%key89516%_ - _%string-table-update!89517%_ - _%default89518%_) - (let ((_%table89521%_ (&raw-table-table _%tab89515%_)) - (_%seed89522%_ (&raw-table-seed _%tab89515%_))) - (let* ((_%h89524%_ - (fxxor (##string=?-hash _%key89516%_) _%seed89522%_)) - (_%size89527%_ (vector-length _%table89521%_)) - (_%entries89530%_ (##fxquotient _%size89527%_ '2)) - (_%start89533%_ + (lambda (_%tab89211%_ + _%key89212%_ + _%string-table-update!89213%_ + _%default89214%_) + (let ((_%table89217%_ (&raw-table-table _%tab89211%_)) + (_%seed89218%_ (&raw-table-seed _%tab89211%_))) + (let* ((_%h89220%_ + (fxxor (##string=?-hash _%key89212%_) _%seed89218%_)) + (_%size89223%_ (vector-length _%table89217%_)) + (_%entries89226%_ (##fxquotient _%size89223%_ '2)) + (_%start89229%_ (##fxarithmetic-shift-left - (##fxmodulo _%h89524%_ _%entries89530%_) + (##fxmodulo _%h89220%_ _%entries89226%_) '1))) - (let _%loop89537%_ ((_%probe89540%_ _%start89533%_) - (_%i89542%_ '1) - (_%deleted89544%_ '#f)) - (let ((_%k89547%_ (vector-ref _%table89521%_ _%probe89540%_))) - (if (eq? _%k89547%_ (macro-unused-obj)) - (let () - (if _%deleted89544%_ - (begin - (vector-set! - _%table89521%_ - _%deleted89544%_ - _%key89516%_) - (vector-set! - _%table89521%_ - (##fx+ _%deleted89544%_ '1) - (_%string-table-update!89517%_ _%default89518%_)) - ((lambda () - (&raw-table-count-set! - _%tab89515%_ - (##fx+ (&raw-table-count _%tab89515%_) '1))))) - (begin - (vector-set! - _%table89521%_ - _%probe89540%_ - _%key89516%_) - (vector-set! - _%table89521%_ - (##fx+ _%probe89540%_ '1) - (_%string-table-update!89517%_ _%default89518%_)) - ((lambda () - (&raw-table-free-set! - _%tab89515%_ - (##fx- (&raw-table-free _%tab89515%_) '1)) - (&raw-table-count-set! - _%tab89515%_ - (##fx+ (&raw-table-count _%tab89515%_) - '1))))))) - (if (eq? _%k89547%_ (macro-deleted-obj)) - (let () - (_%loop89537%_ - (let ((_%next-probe89554%_ - (fx+ _%start89533%_ - _%i89542%_ - (fx* _%i89542%_ _%i89542%_)))) - (##fxmodulo _%next-probe89554%_ _%size89527%_)) - (##fx+ _%i89542%_ '1) - (let ((_%$e89557%_ _%deleted89544%_)) - (if _%$e89557%_ _%$e89557%_ _%probe89540%_)))) - (if (##string=? _%key89516%_ _%k89547%_) + (let _%loop89233%_ ((_%probe89236%_ _%start89229%_) + (_%i89238%_ '1) + (_%deleted89240%_ '#f)) + (let ((_%k89243%_ (vector-ref _%table89217%_ _%probe89236%_))) + (if (eq? _%k89243%_ (macro-unused-obj)) + (if _%deleted89240%_ + (begin + (vector-set! + _%table89217%_ + _%deleted89240%_ + _%key89212%_) + (vector-set! + _%table89217%_ + (##fx+ _%deleted89240%_ '1) + (_%string-table-update!89213%_ _%default89214%_)) + ((lambda () + (&raw-table-count-set! + _%tab89211%_ + (##fx+ (&raw-table-count _%tab89211%_) '1))))) + (begin + (vector-set! + _%table89217%_ + _%probe89236%_ + _%key89212%_) + (vector-set! + _%table89217%_ + (##fx+ _%probe89236%_ '1) + (_%string-table-update!89213%_ _%default89214%_)) + ((lambda () + (&raw-table-free-set! + _%tab89211%_ + (##fx- (&raw-table-free _%tab89211%_) '1)) + (&raw-table-count-set! + _%tab89211%_ + (##fx+ (&raw-table-count _%tab89211%_) '1)))))) + (if (eq? _%k89243%_ (macro-deleted-obj)) + (_%loop89233%_ + (let ((_%next-probe89250%_ + (fx+ _%start89229%_ + _%i89238%_ + (fx* _%i89238%_ _%i89238%_)))) + (##fxmodulo _%next-probe89250%_ _%size89223%_)) + (##fx+ _%i89238%_ '1) + (let ((_%$e89253%_ _%deleted89240%_)) + (if _%$e89253%_ _%$e89253%_ _%probe89236%_))) + (if (##string=? _%key89212%_ _%k89243%_) (let () (vector-set! - _%table89521%_ - _%probe89540%_ - _%key89516%_) + _%table89217%_ + _%probe89236%_ + _%key89212%_) (vector-set! - _%table89521%_ - (##fx+ _%probe89540%_ '1) - (_%string-table-update!89517%_ + _%table89217%_ + (##fx+ _%probe89236%_ '1) + (_%string-table-update!89213%_ (vector-ref - _%table89521%_ - (##fx+ _%probe89540%_ '1))))) - (let () - (_%loop89537%_ - (let ((_%next-probe89562%_ - (fx+ _%start89533%_ - _%i89542%_ - (fx* _%i89542%_ _%i89542%_)))) - (##fxmodulo - _%next-probe89562%_ - _%size89527%_)) - (##fx+ _%i89542%_ '1) - _%deleted89544%_))))))))))) + _%table89217%_ + (##fx+ _%probe89236%_ '1))))) + (_%loop89233%_ + (let ((_%next-probe89258%_ + (fx+ _%start89229%_ + _%i89238%_ + (fx* _%i89238%_ _%i89238%_)))) + (##fxmodulo _%next-probe89258%_ _%size89223%_)) + (##fx+ _%i89238%_ '1) + _%deleted89240%_)))))))))) (define string-table-delete! - (lambda (_%tab89470%_ _%key89472%_) - (let ((_%table89475%_ (&raw-table-table _%tab89470%_)) - (_%seed89477%_ (&raw-table-seed _%tab89470%_))) - (let* ((_%h89480%_ - (fxxor (##string=?-hash _%key89472%_) _%seed89477%_)) - (_%size89483%_ (vector-length _%table89475%_)) - (_%entries89486%_ (##fxquotient _%size89483%_ '2)) - (_%start89489%_ + (lambda (_%tab89166%_ _%key89168%_) + (let ((_%table89171%_ (&raw-table-table _%tab89166%_)) + (_%seed89173%_ (&raw-table-seed _%tab89166%_))) + (let* ((_%h89176%_ + (fxxor (##string=?-hash _%key89168%_) _%seed89173%_)) + (_%size89179%_ (vector-length _%table89171%_)) + (_%entries89182%_ (##fxquotient _%size89179%_ '2)) + (_%start89185%_ (##fxarithmetic-shift-left - (##fxmodulo _%h89480%_ _%entries89486%_) + (##fxmodulo _%h89176%_ _%entries89182%_) '1))) - (let _%loop89493%_ ((_%probe89496%_ _%start89489%_) - (_%i89498%_ '1)) - (let ((_%k89501%_ (vector-ref _%table89475%_ _%probe89496%_))) - (if (eq? _%k89501%_ (macro-unused-obj)) - (let () '#!void) - (if (eq? _%k89501%_ (macro-deleted-obj)) - (let () - (_%loop89493%_ - (let ((_%next-probe89506%_ - (fx+ _%start89489%_ - _%i89498%_ - (fx* _%i89498%_ _%i89498%_)))) - (##fxmodulo _%next-probe89506%_ _%size89483%_)) - (##fx+ _%i89498%_ '1))) - (if (##string=? _%key89472%_ _%k89501%_) + (let _%loop89189%_ ((_%probe89192%_ _%start89185%_) + (_%i89194%_ '1)) + (let ((_%k89197%_ (vector-ref _%table89171%_ _%probe89192%_))) + (if (eq? _%k89197%_ (macro-unused-obj)) + '#!void + (if (eq? _%k89197%_ (macro-deleted-obj)) + (_%loop89189%_ + (let ((_%next-probe89202%_ + (fx+ _%start89185%_ + _%i89194%_ + (fx* _%i89194%_ _%i89194%_)))) + (##fxmodulo _%next-probe89202%_ _%size89179%_)) + (##fx+ _%i89194%_ '1)) + (if (##string=? _%key89168%_ _%k89197%_) (let () (vector-set! - _%table89475%_ - _%probe89496%_ + _%table89171%_ + _%probe89192%_ (macro-deleted-obj)) (vector-set! - _%table89475%_ - (##fx+ _%probe89496%_ '1) + _%table89171%_ + (##fx+ _%probe89192%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab89470%_ - (##fx- (&raw-table-count _%tab89470%_) + _%tab89166%_ + (##fx- (&raw-table-count _%tab89166%_) '1))))) - (let () - (_%loop89493%_ - (let ((_%next-probe89512%_ - (fx+ _%start89489%_ - _%i89498%_ - (fx* _%i89498%_ _%i89498%_)))) - (##fxmodulo - _%next-probe89512%_ - _%size89483%_)) - (##fx+ _%i89498%_ '1)))))))))))) + (_%loop89189%_ + (let ((_%next-probe89208%_ + (fx+ _%start89185%_ + _%i89194%_ + (fx* _%i89194%_ _%i89194%_)))) + (##fxmodulo _%next-probe89208%_ _%size89179%_)) + (##fx+ _%i89194%_ '1))))))))))) (define make-immediate-table__% - (lambda (_%size-hint89451%_ _%seed89453%_) + (lambda (_%size-hint89147%_ _%seed89149%_) (make-raw-table__% - _%size-hint89451%_ + _%size-hint89147%_ immediate-hash eq? - _%seed89453%_))) + _%seed89149%_))) (define make-immediate-table__0 (lambda () - (let* ((_%size-hint89459%_ '#f) (_%seed89461%_ '0)) - (make-immediate-table__% _%size-hint89459%_ _%seed89461%_)))) + (let* ((_%size-hint89155%_ '#f) (_%seed89157%_ '0)) + (make-immediate-table__% _%size-hint89155%_ _%seed89157%_)))) (define make-immediate-table__1 - (lambda (_%size-hint89463%_) - (let ((_%seed89465%_ '0)) - (make-immediate-table__% _%size-hint89463%_ _%seed89465%_)))) + (lambda (_%size-hint89159%_) + (let ((_%seed89161%_ '0)) + (make-immediate-table__% _%size-hint89159%_ _%seed89161%_)))) (define make-immediate-table - (lambda _g90691_ - (let ((_g90690_ (##length _g90691_))) - (cond ((##fx= _g90690_ 0) - (apply (lambda () (make-immediate-table__0)) _g90691_)) - ((##fx= _g90690_ 1) - (apply (lambda (_%size-hint89463%_) - (make-immediate-table__1 _%size-hint89463%_)) - _g90691_)) - ((##fx= _g90690_ 2) - (apply (lambda (_%size-hint89467%_ _%seed89468%_) - (make-immediate-table__% - _%size-hint89467%_ - _%seed89468%_)) - _g90691_)) + (lambda _g90387_ + (let ((_g90386_ (##length _g90387_))) + (cond ((##fx= _g90386_ 0) (apply make-immediate-table__0 _g90387_)) + ((##fx= _g90386_ 1) (apply make-immediate-table__1 _g90387_)) + ((##fx= _g90386_ 2) (apply make-immediate-table__% _g90387_)) (else (##raise-wrong-number-of-arguments-exception make-immediate-table - _g90691_)))))) + _g90387_)))))) (define immediate-table-ref - (lambda (_%tab89404%_ _%key89405%_ _%default89406%_) - (let ((_%table89408%_ (&raw-table-table _%tab89404%_)) - (_%seed89409%_ (&raw-table-seed _%tab89404%_))) - (let* ((_%h89411%_ - (fxxor (immediate-hash _%key89405%_) _%seed89409%_)) - (_%size89414%_ (vector-length _%table89408%_)) - (_%entries89417%_ (##fxquotient _%size89414%_ '2)) - (_%start89420%_ + (lambda (_%tab89100%_ _%key89101%_ _%default89102%_) + (let ((_%table89104%_ (&raw-table-table _%tab89100%_)) + (_%seed89105%_ (&raw-table-seed _%tab89100%_))) + (let* ((_%h89107%_ + (fxxor (immediate-hash _%key89101%_) _%seed89105%_)) + (_%size89110%_ (vector-length _%table89104%_)) + (_%entries89113%_ (##fxquotient _%size89110%_ '2)) + (_%start89116%_ (##fxarithmetic-shift-left - (##fxmodulo _%h89411%_ _%entries89417%_) + (##fxmodulo _%h89107%_ _%entries89113%_) '1))) - (let _%loop89424%_ ((_%probe89427%_ _%start89420%_) - (_%i89429%_ '1) - (_%deleted89431%_ '#f)) - (let ((_%k89434%_ (vector-ref _%table89408%_ _%probe89427%_))) - (if (eq? _%k89434%_ (macro-unused-obj)) - (let () _%default89406%_) - (if (eq? _%k89434%_ (macro-deleted-obj)) - (let () - (_%loop89424%_ - (let ((_%next-probe89439%_ - (fx+ _%start89420%_ - _%i89429%_ - (fx* _%i89429%_ _%i89429%_)))) - (##fxmodulo _%next-probe89439%_ _%size89414%_)) - (##fx+ _%i89429%_ '1) - (let ((_%$e89442%_ _%deleted89431%_)) - (if _%$e89442%_ _%$e89442%_ _%probe89427%_)))) - (if (eq? _%key89405%_ _%k89434%_) - (let () - (vector-ref - _%table89408%_ - (##fx+ _%probe89427%_ '1))) - (let () - (_%loop89424%_ - (let ((_%next-probe89447%_ - (fx+ _%start89420%_ - _%i89429%_ - (fx* _%i89429%_ _%i89429%_)))) - (##fxmodulo - _%next-probe89447%_ - _%size89414%_)) - (##fx+ _%i89429%_ '1) - _%deleted89431%_))))))))))) + (let _%loop89120%_ ((_%probe89123%_ _%start89116%_) + (_%i89125%_ '1) + (_%deleted89127%_ '#f)) + (let ((_%k89130%_ (vector-ref _%table89104%_ _%probe89123%_))) + (if (eq? _%k89130%_ (macro-unused-obj)) + _%default89102%_ + (if (eq? _%k89130%_ (macro-deleted-obj)) + (_%loop89120%_ + (let ((_%next-probe89135%_ + (fx+ _%start89116%_ + _%i89125%_ + (fx* _%i89125%_ _%i89125%_)))) + (##fxmodulo _%next-probe89135%_ _%size89110%_)) + (##fx+ _%i89125%_ '1) + (let ((_%$e89138%_ _%deleted89127%_)) + (if _%$e89138%_ _%$e89138%_ _%probe89123%_))) + (if (eq? _%key89101%_ _%k89130%_) + (vector-ref + _%table89104%_ + (##fx+ _%probe89123%_ '1)) + (_%loop89120%_ + (let ((_%next-probe89143%_ + (fx+ _%start89116%_ + _%i89125%_ + (fx* _%i89125%_ _%i89125%_)))) + (##fxmodulo _%next-probe89143%_ _%size89110%_)) + (##fx+ _%i89125%_ '1) + _%deleted89127%_)))))))))) (define immediate-table-set! - (lambda (_%tab89400%_ _%key89401%_ _%value89402%_) - (if (##fx< (&raw-table-free _%tab89400%_) + (lambda (_%tab89096%_ _%key89097%_ _%value89098%_) + (if (##fx< (&raw-table-free _%tab89096%_) (##fxquotient - (vector-length (&raw-table-table _%tab89400%_)) + (vector-length (&raw-table-table _%tab89096%_)) '4)) - (__raw-table-rehash! _%tab89400%_) + (__raw-table-rehash! _%tab89096%_) '#!void) - (__immediate-table-set! _%tab89400%_ _%key89401%_ _%value89402%_))) + (__immediate-table-set! _%tab89096%_ _%key89097%_ _%value89098%_))) (define __immediate-table-set! - (lambda (_%tab89351%_ _%key89352%_ _%value89353%_) - (let ((_%table89356%_ (&raw-table-table _%tab89351%_)) - (_%seed89357%_ (&raw-table-seed _%tab89351%_))) - (let* ((_%h89359%_ - (fxxor (immediate-hash _%key89352%_) _%seed89357%_)) - (_%size89362%_ (vector-length _%table89356%_)) - (_%entries89365%_ (##fxquotient _%size89362%_ '2)) - (_%start89368%_ + (lambda (_%tab89047%_ _%key89048%_ _%value89049%_) + (let ((_%table89052%_ (&raw-table-table _%tab89047%_)) + (_%seed89053%_ (&raw-table-seed _%tab89047%_))) + (let* ((_%h89055%_ + (fxxor (immediate-hash _%key89048%_) _%seed89053%_)) + (_%size89058%_ (vector-length _%table89052%_)) + (_%entries89061%_ (##fxquotient _%size89058%_ '2)) + (_%start89064%_ (##fxarithmetic-shift-left - (##fxmodulo _%h89359%_ _%entries89365%_) + (##fxmodulo _%h89055%_ _%entries89061%_) '1))) - (let _%loop89372%_ ((_%probe89375%_ _%start89368%_) - (_%i89377%_ '1) - (_%deleted89379%_ '#f)) - (let ((_%k89382%_ (vector-ref _%table89356%_ _%probe89375%_))) - (if (eq? _%k89382%_ (macro-unused-obj)) - (let () - (if _%deleted89379%_ - (begin - (vector-set! - _%table89356%_ - _%deleted89379%_ - _%key89352%_) - (vector-set! - _%table89356%_ - (##fx+ _%deleted89379%_ '1) - _%value89353%_) - ((lambda () - (&raw-table-count-set! - _%tab89351%_ - (##fx+ (&raw-table-count _%tab89351%_) '1))))) - (begin - (vector-set! - _%table89356%_ - _%probe89375%_ - _%key89352%_) - (vector-set! - _%table89356%_ - (##fx+ _%probe89375%_ '1) - _%value89353%_) - ((lambda () - (&raw-table-free-set! - _%tab89351%_ - (##fx- (&raw-table-free _%tab89351%_) '1)) - (&raw-table-count-set! - _%tab89351%_ - (##fx+ (&raw-table-count _%tab89351%_) - '1))))))) - (if (eq? _%k89382%_ (macro-deleted-obj)) - (let () - (_%loop89372%_ - (let ((_%next-probe89389%_ - (fx+ _%start89368%_ - _%i89377%_ - (fx* _%i89377%_ _%i89377%_)))) - (##fxmodulo _%next-probe89389%_ _%size89362%_)) - (##fx+ _%i89377%_ '1) - (let ((_%$e89392%_ _%deleted89379%_)) - (if _%$e89392%_ _%$e89392%_ _%probe89375%_)))) - (if (eq? _%key89352%_ _%k89382%_) + (let _%loop89068%_ ((_%probe89071%_ _%start89064%_) + (_%i89073%_ '1) + (_%deleted89075%_ '#f)) + (let ((_%k89078%_ (vector-ref _%table89052%_ _%probe89071%_))) + (if (eq? _%k89078%_ (macro-unused-obj)) + (if _%deleted89075%_ + (begin + (vector-set! + _%table89052%_ + _%deleted89075%_ + _%key89048%_) + (vector-set! + _%table89052%_ + (##fx+ _%deleted89075%_ '1) + _%value89049%_) + ((lambda () + (&raw-table-count-set! + _%tab89047%_ + (##fx+ (&raw-table-count _%tab89047%_) '1))))) + (begin + (vector-set! + _%table89052%_ + _%probe89071%_ + _%key89048%_) + (vector-set! + _%table89052%_ + (##fx+ _%probe89071%_ '1) + _%value89049%_) + ((lambda () + (&raw-table-free-set! + _%tab89047%_ + (##fx- (&raw-table-free _%tab89047%_) '1)) + (&raw-table-count-set! + _%tab89047%_ + (##fx+ (&raw-table-count _%tab89047%_) '1)))))) + (if (eq? _%k89078%_ (macro-deleted-obj)) + (_%loop89068%_ + (let ((_%next-probe89085%_ + (fx+ _%start89064%_ + _%i89073%_ + (fx* _%i89073%_ _%i89073%_)))) + (##fxmodulo _%next-probe89085%_ _%size89058%_)) + (##fx+ _%i89073%_ '1) + (let ((_%$e89088%_ _%deleted89075%_)) + (if _%$e89088%_ _%$e89088%_ _%probe89071%_))) + (if (eq? _%key89048%_ _%k89078%_) (let () (vector-set! - _%table89356%_ - _%probe89375%_ - _%key89352%_) + _%table89052%_ + _%probe89071%_ + _%key89048%_) (vector-set! - _%table89356%_ - (##fx+ _%probe89375%_ '1) - _%value89353%_)) - (let () - (_%loop89372%_ - (let ((_%next-probe89397%_ - (fx+ _%start89368%_ - _%i89377%_ - (fx* _%i89377%_ _%i89377%_)))) - (##fxmodulo - _%next-probe89397%_ - _%size89362%_)) - (##fx+ _%i89377%_ '1) - _%deleted89379%_))))))))))) + _%table89052%_ + (##fx+ _%probe89071%_ '1) + _%value89049%_)) + (_%loop89068%_ + (let ((_%next-probe89093%_ + (fx+ _%start89064%_ + _%i89073%_ + (fx* _%i89073%_ _%i89073%_)))) + (##fxmodulo _%next-probe89093%_ _%size89058%_)) + (##fx+ _%i89073%_ '1) + _%deleted89075%_)))))))))) (define immediate-table-update! - (lambda (_%tab89346%_ - _%key89347%_ - _%immediate-table-update!89348%_ - _%default89349%_) - (if (##fx< (&raw-table-free _%tab89346%_) + (lambda (_%tab89042%_ + _%key89043%_ + _%immediate-table-update!89044%_ + _%default89045%_) + (if (##fx< (&raw-table-free _%tab89042%_) (##fxquotient - (vector-length (&raw-table-table _%tab89346%_)) + (vector-length (&raw-table-table _%tab89042%_)) '4)) - (__raw-table-rehash! _%tab89346%_) + (__raw-table-rehash! _%tab89042%_) '#!void) (__immediate-table-update! - _%tab89346%_ - _%key89347%_ - _%immediate-table-update!89348%_ - _%default89349%_))) + _%tab89042%_ + _%key89043%_ + _%immediate-table-update!89044%_ + _%default89045%_))) (define __immediate-table-update! - (lambda (_%tab89296%_ - _%key89297%_ - _%immediate-table-update!89298%_ - _%default89299%_) - (let ((_%table89302%_ (&raw-table-table _%tab89296%_)) - (_%seed89303%_ (&raw-table-seed _%tab89296%_))) - (let* ((_%h89305%_ - (fxxor (immediate-hash _%key89297%_) _%seed89303%_)) - (_%size89308%_ (vector-length _%table89302%_)) - (_%entries89311%_ (##fxquotient _%size89308%_ '2)) - (_%start89314%_ + (lambda (_%tab88992%_ + _%key88993%_ + _%immediate-table-update!88994%_ + _%default88995%_) + (let ((_%table88998%_ (&raw-table-table _%tab88992%_)) + (_%seed88999%_ (&raw-table-seed _%tab88992%_))) + (let* ((_%h89001%_ + (fxxor (immediate-hash _%key88993%_) _%seed88999%_)) + (_%size89004%_ (vector-length _%table88998%_)) + (_%entries89007%_ (##fxquotient _%size89004%_ '2)) + (_%start89010%_ (##fxarithmetic-shift-left - (##fxmodulo _%h89305%_ _%entries89311%_) + (##fxmodulo _%h89001%_ _%entries89007%_) '1))) - (let _%loop89318%_ ((_%probe89321%_ _%start89314%_) - (_%i89323%_ '1) - (_%deleted89325%_ '#f)) - (let ((_%k89328%_ (vector-ref _%table89302%_ _%probe89321%_))) - (if (eq? _%k89328%_ (macro-unused-obj)) - (let () - (if _%deleted89325%_ - (begin - (vector-set! - _%table89302%_ - _%deleted89325%_ - _%key89297%_) - (vector-set! - _%table89302%_ - (##fx+ _%deleted89325%_ '1) - (_%immediate-table-update!89298%_ - _%default89299%_)) - ((lambda () - (&raw-table-count-set! - _%tab89296%_ - (##fx+ (&raw-table-count _%tab89296%_) '1))))) - (begin - (vector-set! - _%table89302%_ - _%probe89321%_ - _%key89297%_) - (vector-set! - _%table89302%_ - (##fx+ _%probe89321%_ '1) - (_%immediate-table-update!89298%_ - _%default89299%_)) - ((lambda () - (&raw-table-free-set! - _%tab89296%_ - (##fx- (&raw-table-free _%tab89296%_) '1)) - (&raw-table-count-set! - _%tab89296%_ - (##fx+ (&raw-table-count _%tab89296%_) - '1))))))) - (if (eq? _%k89328%_ (macro-deleted-obj)) - (let () - (_%loop89318%_ - (let ((_%next-probe89335%_ - (fx+ _%start89314%_ - _%i89323%_ - (fx* _%i89323%_ _%i89323%_)))) - (##fxmodulo _%next-probe89335%_ _%size89308%_)) - (##fx+ _%i89323%_ '1) - (let ((_%$e89338%_ _%deleted89325%_)) - (if _%$e89338%_ _%$e89338%_ _%probe89321%_)))) - (if (eq? _%key89297%_ _%k89328%_) + (let _%loop89014%_ ((_%probe89017%_ _%start89010%_) + (_%i89019%_ '1) + (_%deleted89021%_ '#f)) + (let ((_%k89024%_ (vector-ref _%table88998%_ _%probe89017%_))) + (if (eq? _%k89024%_ (macro-unused-obj)) + (if _%deleted89021%_ + (begin + (vector-set! + _%table88998%_ + _%deleted89021%_ + _%key88993%_) + (vector-set! + _%table88998%_ + (##fx+ _%deleted89021%_ '1) + (_%immediate-table-update!88994%_ _%default88995%_)) + ((lambda () + (&raw-table-count-set! + _%tab88992%_ + (##fx+ (&raw-table-count _%tab88992%_) '1))))) + (begin + (vector-set! + _%table88998%_ + _%probe89017%_ + _%key88993%_) + (vector-set! + _%table88998%_ + (##fx+ _%probe89017%_ '1) + (_%immediate-table-update!88994%_ _%default88995%_)) + ((lambda () + (&raw-table-free-set! + _%tab88992%_ + (##fx- (&raw-table-free _%tab88992%_) '1)) + (&raw-table-count-set! + _%tab88992%_ + (##fx+ (&raw-table-count _%tab88992%_) '1)))))) + (if (eq? _%k89024%_ (macro-deleted-obj)) + (_%loop89014%_ + (let ((_%next-probe89031%_ + (fx+ _%start89010%_ + _%i89019%_ + (fx* _%i89019%_ _%i89019%_)))) + (##fxmodulo _%next-probe89031%_ _%size89004%_)) + (##fx+ _%i89019%_ '1) + (let ((_%$e89034%_ _%deleted89021%_)) + (if _%$e89034%_ _%$e89034%_ _%probe89017%_))) + (if (eq? _%key88993%_ _%k89024%_) (let () (vector-set! - _%table89302%_ - _%probe89321%_ - _%key89297%_) + _%table88998%_ + _%probe89017%_ + _%key88993%_) (vector-set! - _%table89302%_ - (##fx+ _%probe89321%_ '1) - (_%immediate-table-update!89298%_ + _%table88998%_ + (##fx+ _%probe89017%_ '1) + (_%immediate-table-update!88994%_ (vector-ref - _%table89302%_ - (##fx+ _%probe89321%_ '1))))) - (let () - (_%loop89318%_ - (let ((_%next-probe89343%_ - (fx+ _%start89314%_ - _%i89323%_ - (fx* _%i89323%_ _%i89323%_)))) - (##fxmodulo - _%next-probe89343%_ - _%size89308%_)) - (##fx+ _%i89323%_ '1) - _%deleted89325%_))))))))))) + _%table88998%_ + (##fx+ _%probe89017%_ '1))))) + (_%loop89014%_ + (let ((_%next-probe89039%_ + (fx+ _%start89010%_ + _%i89019%_ + (fx* _%i89019%_ _%i89019%_)))) + (##fxmodulo _%next-probe89039%_ _%size89004%_)) + (##fx+ _%i89019%_ '1) + _%deleted89021%_)))))))))) (define immediate-table-delete! - (lambda (_%tab89251%_ _%key89253%_) - (let ((_%table89256%_ (&raw-table-table _%tab89251%_)) - (_%seed89258%_ (&raw-table-seed _%tab89251%_))) - (let* ((_%h89261%_ - (fxxor (immediate-hash _%key89253%_) _%seed89258%_)) - (_%size89264%_ (vector-length _%table89256%_)) - (_%entries89267%_ (##fxquotient _%size89264%_ '2)) - (_%start89270%_ + (lambda (_%tab88947%_ _%key88949%_) + (let ((_%table88952%_ (&raw-table-table _%tab88947%_)) + (_%seed88954%_ (&raw-table-seed _%tab88947%_))) + (let* ((_%h88957%_ + (fxxor (immediate-hash _%key88949%_) _%seed88954%_)) + (_%size88960%_ (vector-length _%table88952%_)) + (_%entries88963%_ (##fxquotient _%size88960%_ '2)) + (_%start88966%_ (##fxarithmetic-shift-left - (##fxmodulo _%h89261%_ _%entries89267%_) + (##fxmodulo _%h88957%_ _%entries88963%_) '1))) - (let _%loop89274%_ ((_%probe89277%_ _%start89270%_) - (_%i89279%_ '1)) - (let ((_%k89282%_ (vector-ref _%table89256%_ _%probe89277%_))) - (if (eq? _%k89282%_ (macro-unused-obj)) - (let () '#!void) - (if (eq? _%k89282%_ (macro-deleted-obj)) - (let () - (_%loop89274%_ - (let ((_%next-probe89287%_ - (fx+ _%start89270%_ - _%i89279%_ - (fx* _%i89279%_ _%i89279%_)))) - (##fxmodulo _%next-probe89287%_ _%size89264%_)) - (##fx+ _%i89279%_ '1))) - (if (eq? _%key89253%_ _%k89282%_) + (let _%loop88970%_ ((_%probe88973%_ _%start88966%_) + (_%i88975%_ '1)) + (let ((_%k88978%_ (vector-ref _%table88952%_ _%probe88973%_))) + (if (eq? _%k88978%_ (macro-unused-obj)) + '#!void + (if (eq? _%k88978%_ (macro-deleted-obj)) + (_%loop88970%_ + (let ((_%next-probe88983%_ + (fx+ _%start88966%_ + _%i88975%_ + (fx* _%i88975%_ _%i88975%_)))) + (##fxmodulo _%next-probe88983%_ _%size88960%_)) + (##fx+ _%i88975%_ '1)) + (if (eq? _%key88949%_ _%k88978%_) (let () (vector-set! - _%table89256%_ - _%probe89277%_ + _%table88952%_ + _%probe88973%_ (macro-deleted-obj)) (vector-set! - _%table89256%_ - (##fx+ _%probe89277%_ '1) + _%table88952%_ + (##fx+ _%probe88973%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab89251%_ - (##fx- (&raw-table-count _%tab89251%_) + _%tab88947%_ + (##fx- (&raw-table-count _%tab88947%_) '1))))) - (let () - (_%loop89274%_ - (let ((_%next-probe89293%_ - (fx+ _%start89270%_ - _%i89279%_ - (fx* _%i89279%_ _%i89279%_)))) - (##fxmodulo - _%next-probe89293%_ - _%size89264%_)) - (##fx+ _%i89279%_ '1)))))))))))) + (_%loop88970%_ + (let ((_%next-probe88989%_ + (fx+ _%start88966%_ + _%i88975%_ + (fx* _%i88975%_ _%i88975%_)))) + (##fxmodulo _%next-probe88989%_ _%size88960%_)) + (##fx+ _%i88975%_ '1))))))))))) (define __gc-table::t.id 'gerbil#__gc-table::t) (define __gc-table::t (##structure @@ -2186,251 +1995,234 @@ '#(gcht 5 #f immediate 5 #f))) (define __gc-table-loads '#f64(.45 .6363961030678927 .9)) (define &gc-table-gcht - (lambda (_%tab89249%_) + (lambda (_%tab88945%_) (##unchecked-structure-ref - _%tab89249%_ + _%tab88945%_ '1 __gc-table::t 'gc-table-gcht))) (define &gc-table-immediate - (lambda (_%tab89247%_) + (lambda (_%tab88943%_) (##unchecked-structure-ref - _%tab89247%_ + _%tab88943%_ '2 __gc-table::t 'gc-table-immediate))) (define &gc-table-gcht-set! - (lambda (_%tab89244%_ _%val89245%_) + (lambda (_%tab88940%_ _%val88941%_) (##unchecked-structure-set! - _%tab89244%_ - _%val89245%_ + _%tab88940%_ + _%val88941%_ '1 __gc-table::t 'gc-table-gcht-set!))) (define &gc-table-immediate-set! - (lambda (_%tab89241%_ _%val89242%_) + (lambda (_%tab88937%_ _%val88938%_) (##unchecked-structure-set! - _%tab89241%_ - _%val89242%_ + _%tab88937%_ + _%val88938%_ '2 __gc-table::t 'gc-table-immediate-set!))) (define make-gc-table__% - (lambda (_%size-hint89217%_ _%klass89218%_ _%flags89219%_) - (let ((_%gcht89221%_ + (lambda (_%size-hint88913%_ _%klass88914%_ _%flags88915%_) + (let ((_%gcht88917%_ (__gc-table-new - (if (fixnum? _%size-hint89217%_) _%size-hint89217%_ '16) - _%flags89219%_))) - (##structure _%klass89218%_ _%gcht89221%_ '#f)))) + (if (fixnum? _%size-hint88913%_) _%size-hint88913%_ '16) + _%flags88915%_))) + (##structure _%klass88914%_ _%gcht88917%_ '#f)))) (define make-gc-table__0 - (lambda (_%size-hint89226%_) - (let* ((_%klass89228%_ __gc-table::t) (_%flags89230%_ '0)) + (lambda (_%size-hint88922%_) + (let* ((_%klass88924%_ __gc-table::t) (_%flags88926%_ '0)) (make-gc-table__% - _%size-hint89226%_ - _%klass89228%_ - _%flags89230%_)))) + _%size-hint88922%_ + _%klass88924%_ + _%flags88926%_)))) (define make-gc-table__1 - (lambda (_%size-hint89232%_ _%klass89233%_) - (let ((_%flags89235%_ '0)) + (lambda (_%size-hint88928%_ _%klass88929%_) + (let ((_%flags88931%_ '0)) (make-gc-table__% - _%size-hint89232%_ - _%klass89233%_ - _%flags89235%_)))) + _%size-hint88928%_ + _%klass88929%_ + _%flags88931%_)))) (define make-gc-table - (lambda _g90693_ - (let ((_g90692_ (##length _g90693_))) - (cond ((##fx= _g90692_ 1) - (apply (lambda (_%size-hint89226%_) - (make-gc-table__0 _%size-hint89226%_)) - _g90693_)) - ((##fx= _g90692_ 2) - (apply (lambda (_%size-hint89232%_ _%klass89233%_) - (make-gc-table__1 _%size-hint89232%_ _%klass89233%_)) - _g90693_)) - ((##fx= _g90692_ 3) - (apply (lambda (_%size-hint89237%_ - _%klass89238%_ - _%flags89239%_) - (make-gc-table__% - _%size-hint89237%_ - _%klass89238%_ - _%flags89239%_)) - _g90693_)) + (lambda _g90389_ + (let ((_g90388_ (##length _g90389_))) + (cond ((##fx= _g90388_ 1) (apply make-gc-table__0 _g90389_)) + ((##fx= _g90388_ 2) (apply make-gc-table__1 _g90389_)) + ((##fx= _g90388_ 3) (apply make-gc-table__% _g90389_)) (else (##raise-wrong-number-of-arguments-exception make-gc-table - _g90693_)))))) + _g90389_)))))) (define __gc-table-immediate - (lambda (_%tab89208%_) - (let ((_%$e89210%_ (&gc-table-immediate _%tab89208%_))) - (if _%$e89210%_ - _%$e89210%_ - (let ((_%immediate89214%_ (make-immediate-table__% '#f '0))) - (&gc-table-immediate-set! _%tab89208%_ _%immediate89214%_) - _%immediate89214%_))))) + (lambda (_%tab88904%_) + (let ((_%$e88906%_ (&gc-table-immediate _%tab88904%_))) + (if _%$e88906%_ + _%$e88906%_ + (let ((_%immediate88910%_ (make-immediate-table__% '#f '0))) + (&gc-table-immediate-set! _%tab88904%_ _%immediate88910%_) + _%immediate88910%_))))) (define __gc-table-new - (lambda (_%size89198%_ _%flags89199%_) - (let* ((_%flags89201%_ - (##fxand _%flags89199%_ + (lambda (_%size88894%_ _%flags88895%_) + (let* ((_%flags88897%_ + (##fxand _%flags88895%_ (fxnot (macro-gc-hash-table-flag-need-rehash)))) - (_%flags89203%_ - (fxior _%flags89201%_ + (_%flags88899%_ + (fxior _%flags88897%_ (macro-gc-hash-table-flag-mem-alloc-keys))) - (_%gcht89205%_ + (_%gcht88901%_ (##gc-hash-table-allocate - _%size89198%_ - _%flags89203%_ + _%size88894%_ + _%flags88899%_ __gc-table-loads))) - _%gcht89205%_))) + _%gcht88901%_))) (define __gc-table-e - (lambda (_%tab89193%_) + (lambda (_%tab88889%_) (declare (not interrupts-enabled)) - (let ((_%gcht89196%_ (&gc-table-gcht _%tab89193%_))) + (let ((_%gcht88892%_ (&gc-table-gcht _%tab88889%_))) (if (##fx= '0 - (fxand (macro-gc-hash-table-flags _%gcht89196%_) + (fxand (macro-gc-hash-table-flags _%gcht88892%_) (macro-gc-hash-table-flag-need-rehash))) - _%gcht89196%_ + _%gcht88892%_ (begin - (__gc-table-rehash! _%tab89193%_) - (&gc-table-gcht _%tab89193%_)))))) + (__gc-table-rehash! _%tab88889%_) + (&gc-table-gcht _%tab88889%_)))))) (define __gc-table-rehash! - (lambda (_%tab89184%_) - (let* ((_%old-table89186%_ (&gc-table-gcht _%tab89184%_)) - (_%new-table89188%_ - (##gc-hash-table-resize! _%old-table89186%_ __gc-table-loads)) - (_%gcht89190%_ + (lambda (_%tab88880%_) + (let* ((_%old-table88882%_ (&gc-table-gcht _%tab88880%_)) + (_%new-table88884%_ + (##gc-hash-table-resize! _%old-table88882%_ __gc-table-loads)) + (_%gcht88886%_ (##gc-hash-table-rehash! - _%old-table89186%_ - _%new-table89188%_))) - (&gc-table-gcht-set! _%tab89184%_ _%gcht89190%_)))) + _%old-table88882%_ + _%new-table88884%_))) + (&gc-table-gcht-set! _%tab88880%_ _%gcht88886%_)))) (define gc-table-ref - (lambda (_%tab89168%_ _%key89169%_ _%default89170%_) + (lambda (_%tab88864%_ _%key88865%_ _%default88866%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key89169%_) - (let () - (let* ((_%gcht89174%_ (__gc-table-e _%tab89168%_)) - (_%value89176%_ - (##gc-hash-table-ref _%gcht89174%_ _%key89169%_))) - (if (eq? _%value89176%_ (macro-unused-obj)) - _%default89170%_ - _%value89176%_))) - (let ((_%$e89178%_ (&gc-table-immediate _%tab89168%_))) - (if _%$e89178%_ - ((lambda (_%immediate89181%_) + (if (##mem-allocated? _%key88865%_) + (let* ((_%gcht88870%_ (__gc-table-e _%tab88864%_)) + (_%value88872%_ + (##gc-hash-table-ref _%gcht88870%_ _%key88865%_))) + (if (eq? _%value88872%_ (macro-unused-obj)) + _%default88866%_ + _%value88872%_)) + (let ((_%$e88874%_ (&gc-table-immediate _%tab88864%_))) + (if _%$e88874%_ + ((lambda (_%immediate88877%_) (immediate-table-ref - _%immediate89181%_ - _%key89169%_ - _%default89170%_)) - _%$e89178%_) - (let () _%default89170%_)))))) + _%immediate88877%_ + _%key88865%_ + _%default88866%_)) + _%$e88874%_) + _%default88866%_))))) (define gc-table-set! - (lambda (_%tab89161%_ _%key89162%_ _%value89163%_) + (lambda (_%tab88857%_ _%key88858%_ _%value88859%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key89162%_) - (let ((_%gcht89166%_ (__gc-table-e _%tab89161%_))) + (if (##mem-allocated? _%key88858%_) + (let ((_%gcht88862%_ (__gc-table-e _%tab88857%_))) (if (##gc-hash-table-set! - _%gcht89166%_ - _%key89162%_ - _%value89163%_) + _%gcht88862%_ + _%key88858%_ + _%value88859%_) (begin - (__gc-table-rehash! _%tab89161%_) - (gc-table-set! _%tab89161%_ _%key89162%_ _%value89163%_)) + (__gc-table-rehash! _%tab88857%_) + (gc-table-set! _%tab88857%_ _%key88858%_ _%value88859%_)) '#!void)) (immediate-table-set! - (__gc-table-immediate _%tab89161%_) - _%key89162%_ - _%value89163%_)))) + (__gc-table-immediate _%tab88857%_) + _%key88858%_ + _%value88859%_)))) (define gc-table-update! - (lambda (_%tab89154%_ _%key89155%_ _%update89156%_ _%default89157%_) - (if (##mem-allocated? _%key89155%_) - (let ((_%value89159%_ - (gc-table-ref _%tab89154%_ _%key89155%_ _%default89157%_))) + (lambda (_%tab88850%_ _%key88851%_ _%update88852%_ _%default88853%_) + (if (##mem-allocated? _%key88851%_) + (let ((_%value88855%_ + (gc-table-ref _%tab88850%_ _%key88851%_ _%default88853%_))) (gc-table-set! - _%tab89154%_ - _%key89155%_ - (_%update89156%_ _%value89159%_))) + _%tab88850%_ + _%key88851%_ + (_%update88852%_ _%value88855%_))) (immediate-table-update! - (__gc-table-immediate _%tab89154%_) - _%key89155%_ - _%update89156%_ - _%default89157%_)))) + (__gc-table-immediate _%tab88850%_) + _%key88851%_ + _%update88852%_ + _%default88853%_)))) (define gc-table-delete! - (lambda (_%tab89142%_ _%key89143%_) + (lambda (_%tab88838%_ _%key88839%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key89143%_) - (let ((_%gcht89147%_ (__gc-table-e _%tab89142%_))) + (if (##mem-allocated? _%key88839%_) + (let ((_%gcht88843%_ (__gc-table-e _%tab88838%_))) (if (##gc-hash-table-set! - _%gcht89147%_ - _%key89143%_ + _%gcht88843%_ + _%key88839%_ (macro-absent-obj)) (begin - (__gc-table-rehash! _%tab89142%_) - (gc-table-delete! _%tab89142%_ _%key89143%_)) + (__gc-table-rehash! _%tab88838%_) + (gc-table-delete! _%tab88838%_ _%key88839%_)) '#!void)) - (let ((_%$e89149%_ (&gc-table-immediate _%tab89142%_))) - (if _%$e89149%_ - ((lambda (_%immediate89152%_) - (immediate-table-delete! _%immediate89152%_ _%key89143%_)) - _%$e89149%_) + (let ((_%$e88845%_ (&gc-table-immediate _%tab88838%_))) + (if _%$e88845%_ + ((lambda (_%immediate88848%_) + (immediate-table-delete! _%immediate88848%_ _%key88839%_)) + _%$e88845%_) '#!void))))) (define gc-table-for-each - (lambda (_%tab89123%_ _%proc89124%_) + (lambda (_%tab88819%_ _%proc88820%_) (declare (not interrupts-enabled)) (begin - (let ((_%gcht89127%_ (__gc-table-e _%tab89123%_))) - (let _%loop89129%_ ((_%i89131%_ (macro-gc-hash-table-key0))) - (if (##fx< _%i89131%_ (##vector-length _%gcht89127%_)) - (let ((_%key89133%_ (##vector-ref _%gcht89127%_ _%i89131%_))) - (if (and (not (eq? _%key89133%_ (macro-unused-obj))) - (not (eq? _%key89133%_ (macro-deleted-obj)))) - (_%proc89124%_ - _%key89133%_ - (##vector-ref _%gcht89127%_ (##fx+ _%i89131%_ '1))) + (let ((_%gcht88823%_ (__gc-table-e _%tab88819%_))) + (let _%loop88825%_ ((_%i88827%_ (macro-gc-hash-table-key0))) + (if (##fx< _%i88827%_ (##vector-length _%gcht88823%_)) + (let ((_%key88829%_ (##vector-ref _%gcht88823%_ _%i88827%_))) + (if (and (not (eq? _%key88829%_ (macro-unused-obj))) + (not (eq? _%key88829%_ (macro-deleted-obj)))) + (_%proc88820%_ + _%key88829%_ + (##vector-ref _%gcht88823%_ (##fx+ _%i88827%_ '1))) '#!void) (let () (declare (interrupts-enabled)) - (_%loop89129%_ (##fx+ _%i89131%_ '2)))) + (_%loop88825%_ (##fx+ _%i88827%_ '2)))) '#!void))) - (let ((_%$e89137%_ (&gc-table-immediate _%tab89123%_))) - (if _%$e89137%_ - ((lambda (_%immediate89140%_) - (raw-table-for-each _%immediate89140%_ _%proc89124%_)) - _%$e89137%_) + (let ((_%$e88833%_ (&gc-table-immediate _%tab88819%_))) + (if _%$e88833%_ + ((lambda (_%immediate88836%_) + (raw-table-for-each _%immediate88836%_ _%proc88820%_)) + _%$e88833%_) '#!void))))) (define gc-table-copy - (lambda (_%tab89111%_) - (let* ((_%gcht89113%_ (__gc-table-e _%tab89111%_)) - (_%new-table89115%_ + (lambda (_%tab88807%_) + (let* ((_%gcht88809%_ (__gc-table-e _%tab88807%_)) + (_%new-table88811%_ (__gc-table-new - (macro-gc-hash-table-count _%gcht89113%_) - (macro-gc-hash-table-flags _%gcht89113%_))) - (_%result89117%_ + (macro-gc-hash-table-count _%gcht88809%_) + (macro-gc-hash-table-flags _%gcht88809%_))) + (_%result88813%_ (##structure - (##structure-type _%tab89111%_) - _%new-table89115%_ + (##structure-type _%tab88807%_) + _%new-table88811%_ '#f))) (gc-table-for-each - _%tab89111%_ - (lambda (_%k89120%_ _%v89121%_) - (gc-table-set! _%result89117%_ _%k89120%_ _%v89121%_))) - _%result89117%_))) + _%tab88807%_ + (lambda (_%k88816%_ _%v88817%_) + (gc-table-set! _%result88813%_ _%k88816%_ _%v88817%_))) + _%result88813%_))) (define gc-table-clear! - (lambda (_%tab89104%_) - (let* ((_%gcht89106%_ (__gc-table-e _%tab89104%_)) - (_%new-table89108%_ + (lambda (_%tab88800%_) + (let* ((_%gcht88802%_ (__gc-table-e _%tab88800%_)) + (_%new-table88804%_ (__gc-table-new '16 - (macro-gc-hash-table-flags _%gcht89106%_)))) - (&gc-table-gcht-set! _%tab89104%_ _%new-table89108%_) - (&gc-table-immediate-set! _%tab89104%_ '#f)))) + (macro-gc-hash-table-flags _%gcht88802%_)))) + (&gc-table-gcht-set! _%tab88800%_ _%new-table88804%_) + (&gc-table-immediate-set! _%tab88800%_ '#f)))) (define gc-table-length - (lambda (_%tab89096%_) - (let ((_%gcht89098%_ (__gc-table-e _%tab89096%_))) - (fx+ (macro-gc-hash-table-count _%gcht89098%_) - (let ((_%$e89100%_ (&gc-table-immediate _%tab89096%_))) - (if _%$e89100%_ - (&raw-table-count _%$e89100%_) - (let () '0))))))) + (lambda (_%tab88792%_) + (let ((_%gcht88794%_ (__gc-table-e _%tab88792%_))) + (fx+ (macro-gc-hash-table-count _%gcht88794%_) + (let ((_%$e88796%_ (&gc-table-immediate _%tab88792%_))) + (if _%$e88796%_ (&raw-table-count _%$e88796%_) '0)))))) (define __object-eq-hash-next '0) (define __object-eq-hash (make-gc-table__% @@ -2438,18 +2230,18 @@ __gc-table::t (macro-gc-hash-table-flag-weak-keys))) (define __object->eq-hash - (lambda (_%obj89081%_) + (lambda (_%obj88777%_) (declare (not interrupts-enabled)) - (let ((_%val89084%_ (gc-table-ref __object-eq-hash _%obj89081%_ '#f))) - (if _%val89084%_ - _%val89084%_ - (let* ((_%mix89086%_ __object-eq-hash-next) - (_%ptr89088%_ (##type-cast _%obj89081%_ '0)) - (_%h89090%_ - (fxand (fxxor _%mix89086%_ _%ptr89088%_) + (let ((_%val88780%_ (gc-table-ref __object-eq-hash _%obj88777%_ '#f))) + (if _%val88780%_ + _%val88780%_ + (let* ((_%mix88782%_ __object-eq-hash-next) + (_%ptr88784%_ (##type-cast _%obj88777%_ '0)) + (_%h88786%_ + (fxand (fxxor _%mix88782%_ _%ptr88784%_) (macro-max-fixnum32)))) (set! __object-eq-hash-next - (let ((_%$e89093%_ (##fx+? __object-eq-hash-next '1))) - (if _%$e89093%_ _%$e89093%_ '0))) - (gc-table-set! __object-eq-hash _%obj89081%_ _%h89090%_) - _%h89090%_))))))) + (let ((_%$e88789%_ (##fx+? __object-eq-hash-next '1))) + (if _%$e88789%_ _%$e88789%_ '0))) + (gc-table-set! __object-eq-hash _%obj88777%_ _%h88786%_) + _%h88786%_))))))) diff --git a/src/bootstrap/gerbil/runtime/table~1.scm b/src/bootstrap/gerbil/runtime/table~1.scm index 442835a64..5a27d8183 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 (_%$stx88009%_) - (let* ((_%g8801388027%_ - (lambda (_%g8801488023%_) + (lambda (_%$stx87705%_) + (let* ((_%g8770987723%_ + (lambda (_%g8771087719%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8801488023%_))) - (_%g8801288069%_ - (lambda (_%g8801488031%_) - (if (gx#stx-pair? _%g8801488031%_) - (let ((_%e8801888034%_ (gx#syntax-e _%g8801488031%_))) - (let ((_%hd8801788038%_ + _%g8771087719%_))) + (_%g8770887765%_ + (lambda (_%g8771087727%_) + (if (gx#stx-pair? _%g8771087727%_) + (let ((_%e8771487730%_ (gx#syntax-e _%g8771087727%_))) + (let ((_%hd8771387734%_ (let () (declare (not safe)) - (##car _%e8801888034%_))) - (_%tl8801688041%_ + (##car _%e8771487730%_))) + (_%tl8771287737%_ (let () (declare (not safe)) - (##cdr _%e8801888034%_)))) - (if (gx#stx-pair? _%tl8801688041%_) - (let ((_%e8802188044%_ - (gx#syntax-e _%tl8801688041%_))) - (let ((_%hd8802088048%_ + (##cdr _%e8771487730%_)))) + (if (gx#stx-pair? _%tl8771287737%_) + (let ((_%e8771787740%_ + (gx#syntax-e _%tl8771287737%_))) + (let ((_%hd8771687744%_ (let () (declare (not safe)) - (##car _%e8802188044%_))) - (_%tl8801988051%_ + (##car _%e8771787740%_))) + (_%tl8771587747%_ (let () (declare (not safe)) - (##cdr _%e8802188044%_)))) - (if (gx#stx-null? _%tl8801988051%_) - ((lambda (_%L88054%_) + (##cdr _%e8771787740%_)))) + (if (gx#stx-null? _%tl8771587747%_) + ((lambda (_%L87750%_) (cons (gx#datum->syntax '#f 'macro-slot) - (cons '1 (cons _%L88054%_ '())))) - _%hd8802088048%_) - (_%g8801388027%_ _%g8801488031%_)))) - (_%g8801388027%_ _%g8801488031%_)))) - (_%g8801388027%_ _%g8801488031%_))))) - (_%g8801288069%_ _%$stx88009%_)))) + (cons '1 (cons _%L87750%_ '())))) + _%hd8771687744%_) + (_%g8770987723%_ _%g8771087727%_)))) + (_%g8770987723%_ _%g8771087727%_)))) + (_%g8770987723%_ _%g8771087727%_))))) + (_%g8770887765%_ _%$stx87705%_)))) (define |[:0:]#defspecialized-table| - (lambda (_%$stx88073%_) - (let* ((_%g8807788123%_ - (lambda (_%g8807888119%_) + (lambda (_%$stx87769%_) + (let* ((_%g8777387819%_ + (lambda (_%g8777487815%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8807888119%_))) - (_%g8807688276%_ - (lambda (_%g8807888127%_) - (if (gx#stx-pair? _%g8807888127%_) - (let ((_%e8809088130%_ (gx#syntax-e _%g8807888127%_))) - (let ((_%hd8808988134%_ + _%g8777487815%_))) + (_%g8777287972%_ + (lambda (_%g8777487823%_) + (if (gx#stx-pair? _%g8777487823%_) + (let ((_%e8778687826%_ (gx#syntax-e _%g8777487823%_))) + (let ((_%hd8778587830%_ (let () (declare (not safe)) - (##car _%e8809088130%_))) - (_%tl8808888137%_ + (##car _%e8778687826%_))) + (_%tl8778487833%_ (let () (declare (not safe)) - (##cdr _%e8809088130%_)))) - (if (gx#stx-pair? _%tl8808888137%_) - (let ((_%e8809388140%_ - (gx#syntax-e _%tl8808888137%_))) - (let ((_%hd8809288144%_ + (##cdr _%e8778687826%_)))) + (if (gx#stx-pair? _%tl8778487833%_) + (let ((_%e8778987836%_ + (gx#syntax-e _%tl8778487833%_))) + (let ((_%hd8778887840%_ (let () (declare (not safe)) - (##car _%e8809388140%_))) - (_%tl8809188147%_ + (##car _%e8778987836%_))) + (_%tl8778787843%_ (let () (declare (not safe)) - (##cdr _%e8809388140%_)))) - (if (gx#stx-pair? _%tl8809188147%_) - (let ((_%e8809688150%_ - (gx#syntax-e _%tl8809188147%_))) - (let ((_%hd8809588154%_ + (##cdr _%e8778987836%_)))) + (if (gx#stx-pair? _%tl8778787843%_) + (let ((_%e8779287846%_ + (gx#syntax-e _%tl8778787843%_))) + (let ((_%hd8779187850%_ (let () (declare (not safe)) - (##car _%e8809688150%_))) - (_%tl8809488157%_ + (##car _%e8779287846%_))) + (_%tl8779087853%_ (let () (declare (not safe)) - (##cdr _%e8809688150%_)))) - (if (gx#stx-pair? _%tl8809488157%_) - (let ((_%e8809988160%_ + (##cdr _%e8779287846%_)))) + (if (gx#stx-pair? _%tl8779087853%_) + (let ((_%e8779587856%_ (gx#syntax-e - _%tl8809488157%_))) - (let ((_%hd8809888164%_ + _%tl8779087853%_))) + (let ((_%hd8779487860%_ (let () (declare (not safe)) - (##car _%e8809988160%_))) - (_%tl8809788167%_ + (##car _%e8779587856%_))) + (_%tl8779387863%_ (let () (declare (not safe)) - (##cdr _%e8809988160%_)))) + (##cdr _%e8779587856%_)))) (if (gx#stx-pair? - _%tl8809788167%_) - (let ((_%e8810288170%_ + _%tl8779387863%_) + (let ((_%e8779887866%_ (gx#syntax-e - _%tl8809788167%_))) - (let ((_%hd8810188174%_ + _%tl8779387863%_))) + (let ((_%hd8779787870%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e8810288170%_))) - (_%tl8810088177%_ - (let () (declare (not safe)) (##cdr _%e8810288170%_)))) - (if (gx#stx-pair? _%tl8810088177%_) - (let ((_%e8810588180%_ (gx#syntax-e _%tl8810088177%_))) - (let ((_%hd8810488184%_ + (##car _%e8779887866%_))) + (_%tl8779687873%_ + (let () (declare (not safe)) (##cdr _%e8779887866%_)))) + (if (gx#stx-pair? _%tl8779687873%_) + (let ((_%e8780187876%_ (gx#syntax-e _%tl8779687873%_))) + (let ((_%hd8780087880%_ (let () (declare (not safe)) - (##car _%e8810588180%_))) - (_%tl8810388187%_ + (##car _%e8780187876%_))) + (_%tl8779987883%_ (let () (declare (not safe)) - (##cdr _%e8810588180%_)))) - (if (gx#stx-pair? _%tl8810388187%_) - (let ((_%e8810888190%_ - (gx#syntax-e _%tl8810388187%_))) - (let ((_%hd8810788194%_ + (##cdr _%e8780187876%_)))) + (if (gx#stx-pair? _%tl8779987883%_) + (let ((_%e8780487886%_ + (gx#syntax-e _%tl8779987883%_))) + (let ((_%hd8780387890%_ (let () (declare (not safe)) - (##car _%e8810888190%_))) - (_%tl8810688197%_ + (##car _%e8780487886%_))) + (_%tl8780287893%_ (let () (declare (not safe)) - (##cdr _%e8810888190%_)))) - (if (gx#stx-pair? _%tl8810688197%_) - (let ((_%e8811188200%_ - (gx#syntax-e _%tl8810688197%_))) - (let ((_%hd8811088204%_ + (##cdr _%e8780487886%_)))) + (if (gx#stx-pair? _%tl8780287893%_) + (let ((_%e8780787896%_ + (gx#syntax-e _%tl8780287893%_))) + (let ((_%hd8780687900%_ (let () (declare (not safe)) - (##car _%e8811188200%_))) - (_%tl8810988207%_ + (##car _%e8780787896%_))) + (_%tl8780587903%_ (let () (declare (not safe)) - (##cdr _%e8811188200%_)))) - (if (gx#stx-pair? _%tl8810988207%_) - (let ((_%e8811488210%_ + (##cdr _%e8780787896%_)))) + (if (gx#stx-pair? _%tl8780587903%_) + (let ((_%e8781087906%_ (gx#syntax-e - _%tl8810988207%_))) - (let ((_%hd8811388214%_ + _%tl8780587903%_))) + (let ((_%hd8780987910%_ (let () (declare (not safe)) - (##car _%e8811488210%_))) - (_%tl8811288217%_ + (##car _%e8781087906%_))) + (_%tl8780887913%_ (let () (declare (not safe)) - (##cdr _%e8811488210%_)))) + (##cdr _%e8781087906%_)))) (if (gx#stx-pair? - _%tl8811288217%_) - (let ((_%e8811788220%_ + _%tl8780887913%_) + (let ((_%e8781387916%_ (gx#syntax-e - _%tl8811288217%_))) - (let ((_%hd8811688224%_ + _%tl8780887913%_))) + (let ((_%hd8781287920%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e8811788220%_))) - (_%tl8811588227%_ - (let () (declare (not safe)) (##cdr _%e8811788220%_)))) - (if (gx#stx-null? _%tl8811588227%_) - ((lambda (_%L88230%_ - _%L88232%_ - _%L88233%_ - _%L88234%_ - _%L88235%_ - _%L88236%_ - _%L88237%_ - _%L88238%_ - _%L88239%_) + (##car _%e8781387916%_))) + (_%tl8781187923%_ + (let () (declare (not safe)) (##cdr _%e8781387916%_)))) + (if (gx#stx-null? _%tl8781187923%_) + ((lambda (_%L87926%_ + _%L87928%_ + _%L87929%_ + _%L87930%_ + _%L87931%_ + _%L87932%_ + _%L87933%_ + _%L87934%_ + _%L87935%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L88239%_ + (cons (cons _%L87935%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -192,14 +192,14 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'size-hint) - (cons _%L88232%_ - (cons _%L88230%_ + (cons _%L87928%_ + (cons _%L87926%_ (cons (gx#datum->syntax '#f 'seed) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L88238%_ + (cons (cons _%L87934%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -237,8 +237,8 @@ (cons (gx#datum->syntax '#f 'seed) - (cons _%L88232%_ - (cons _%L88230%_ + (cons _%L87928%_ + (cons _%L87926%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L88237%_ + (cons (cons _%L87933%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) @@ -289,7 +289,7 @@ 'tab) '())) '()))) - (cons (cons _%L88236%_ + (cons (cons _%L87932%_ (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 _%L88236%_ + (cons (cons _%L87932%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) @@ -339,8 +339,8 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'seed) - (cons _%L88232%_ - (cons _%L88230%_ + (cons _%L87928%_ + (cons _%L87926%_ (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f @@ -421,10 +421,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L88235%_ + (cons (cons _%L87931%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L88235%_ + (cons _%L87931%_ (cons (gx#datum->syntax '#f 'default) @@ -463,25 +463,25 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L88234%_ + (cons (cons _%L87930%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L88235%_ + (cons _%L87931%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'default) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L88234%_ + (cons (cons _%L87930%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L88235%_ + (cons _%L87931%_ (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 _%L88232%_ - (cons _%L88230%_ + (cons _%L87928%_ + (cons _%L87926%_ (cons (gx#datum->syntax '#f 'key) - (cons _%L88235%_ + (cons _%L87931%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -582,7 +582,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L88233%_ + (cons (cons _%L87929%_ (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 _%L88232%_ - (cons _%L88230%_ + (cons _%L87928%_ + (cons _%L87926%_ (cons (gx#datum->syntax '#f 'key) @@ -651,92 +651,92 @@ '()))) '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8811688224%_ - _%hd8811388214%_ - _%hd8811088204%_ - _%hd8810788194%_ - _%hd8810488184%_ - _%hd8810188174%_ - _%hd8809888164%_ - _%hd8809588154%_ - _%hd8809288144%_) - (_%g8807788123%_ _%g8807888127%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8807788123%_ - _%g8807888127%_)))) - (_%g8807788123%_ - _%g8807888127%_)))) - (_%g8807788123%_ _%g8807888127%_)))) - (_%g8807788123%_ _%g8807888127%_)))) - (_%g8807788123%_ _%g8807888127%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8807788123%_ - _%g8807888127%_)))) - (_%g8807788123%_ - _%g8807888127%_)))) - (_%g8807788123%_ _%g8807888127%_)))) - (_%g8807788123%_ _%g8807888127%_)))) - (_%g8807788123%_ _%g8807888127%_))))) - (_%g8807688276%_ _%$stx88073%_)))) + _%hd8781287920%_ + _%hd8780987910%_ + _%hd8780687900%_ + _%hd8780387890%_ + _%hd8780087880%_ + _%hd8779787870%_ + _%hd8779487860%_ + _%hd8779187850%_ + _%hd8778887840%_) + (_%g8777387819%_ _%g8777487823%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8777387819%_ + _%g8777487823%_)))) + (_%g8777387819%_ + _%g8777487823%_)))) + (_%g8777387819%_ _%g8777487823%_)))) + (_%g8777387819%_ _%g8777487823%_)))) + (_%g8777387819%_ _%g8777487823%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8777387819%_ + _%g8777487823%_)))) + (_%g8777387819%_ + _%g8777487823%_)))) + (_%g8777387819%_ _%g8777487823%_)))) + (_%g8777387819%_ _%g8777487823%_)))) + (_%g8777387819%_ _%g8777487823%_))))) + (_%g8777287972%_ _%$stx87769%_)))) (define |[:0:]#probe-step| - (lambda (_%$stx88280%_) - (let* ((_%g8828488306%_ - (lambda (_%g8828588302%_) + (lambda (_%$stx87976%_) + (let* ((_%g8798088002%_ + (lambda (_%g8798187998%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8828588302%_))) - (_%g8828388375%_ - (lambda (_%g8828588310%_) - (if (gx#stx-pair? _%g8828588310%_) - (let ((_%e8829188313%_ (gx#syntax-e _%g8828588310%_))) - (let ((_%hd8829088317%_ + _%g8798187998%_))) + (_%g8797988071%_ + (lambda (_%g8798188006%_) + (if (gx#stx-pair? _%g8798188006%_) + (let ((_%e8798788009%_ (gx#syntax-e _%g8798188006%_))) + (let ((_%hd8798688013%_ (let () (declare (not safe)) - (##car _%e8829188313%_))) - (_%tl8828988320%_ + (##car _%e8798788009%_))) + (_%tl8798588016%_ (let () (declare (not safe)) - (##cdr _%e8829188313%_)))) - (if (gx#stx-pair? _%tl8828988320%_) - (let ((_%e8829488323%_ - (gx#syntax-e _%tl8828988320%_))) - (let ((_%hd8829388327%_ + (##cdr _%e8798788009%_)))) + (if (gx#stx-pair? _%tl8798588016%_) + (let ((_%e8799088019%_ + (gx#syntax-e _%tl8798588016%_))) + (let ((_%hd8798988023%_ (let () (declare (not safe)) - (##car _%e8829488323%_))) - (_%tl8829288330%_ + (##car _%e8799088019%_))) + (_%tl8798888026%_ (let () (declare (not safe)) - (##cdr _%e8829488323%_)))) - (if (gx#stx-pair? _%tl8829288330%_) - (let ((_%e8829788333%_ - (gx#syntax-e _%tl8829288330%_))) - (let ((_%hd8829688337%_ + (##cdr _%e8799088019%_)))) + (if (gx#stx-pair? _%tl8798888026%_) + (let ((_%e8799388029%_ + (gx#syntax-e _%tl8798888026%_))) + (let ((_%hd8799288033%_ (let () (declare (not safe)) - (##car _%e8829788333%_))) - (_%tl8829588340%_ + (##car _%e8799388029%_))) + (_%tl8799188036%_ (let () (declare (not safe)) - (##cdr _%e8829788333%_)))) - (if (gx#stx-pair? _%tl8829588340%_) - (let ((_%e8830088343%_ + (##cdr _%e8799388029%_)))) + (if (gx#stx-pair? _%tl8799188036%_) + (let ((_%e8799688039%_ (gx#syntax-e - _%tl8829588340%_))) - (let ((_%hd8829988347%_ + _%tl8799188036%_))) + (let ((_%hd8799588043%_ (let () (declare (not safe)) - (##car _%e8830088343%_))) - (_%tl8829888350%_ + (##car _%e8799688039%_))) + (_%tl8799488046%_ (let () (declare (not safe)) - (##cdr _%e8830088343%_)))) + (##cdr _%e8799688039%_)))) (if (gx#stx-null? - _%tl8829888350%_) - ((lambda (_%L88353%_ - _%L88355%_ - _%L88356%_) + _%tl8799488046%_) + ((lambda (_%L88049%_ + _%L88051%_ + _%L88052%_) (cons (gx#datum->syntax '#f 'let) @@ -745,127 +745,127 @@ '#f 'next-probe) (cons (cons (gx#datum->syntax '#f 'fx+) - (cons _%L88356%_ - (cons _%L88355%_ + (cons _%L88052%_ + (cons _%L88051%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx*) - (cons _%L88355%_ (cons _%L88355%_ '()))) + (cons _%L88051%_ (cons _%L88051%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'fxmodulo) (cons (gx#datum->syntax '#f 'next-probe) - (cons _%L88353%_ '()))) + (cons _%L88049%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8829988347%_ - _%hd8829688337%_ - _%hd8829388327%_) - (_%g8828488306%_ - _%g8828588310%_)))) - (_%g8828488306%_ - _%g8828588310%_)))) - (_%g8828488306%_ _%g8828588310%_)))) - (_%g8828488306%_ _%g8828588310%_)))) - (_%g8828488306%_ _%g8828588310%_))))) - (_%g8828388375%_ _%$stx88280%_)))) + _%hd8799588043%_ + _%hd8799288033%_ + _%hd8798988023%_) + (_%g8798088002%_ + _%g8798188006%_)))) + (_%g8798088002%_ + _%g8798188006%_)))) + (_%g8798088002%_ _%g8798188006%_)))) + (_%g8798088002%_ _%g8798188006%_)))) + (_%g8798088002%_ _%g8798188006%_))))) + (_%g8797988071%_ _%$stx87976%_)))) (define |[:0:]#__table-ref| - (lambda (_%$stx88379%_) - (let* ((_%g8838388417%_ - (lambda (_%g8838488413%_) + (lambda (_%$stx88075%_) + (let* ((_%g8807988113%_ + (lambda (_%g8808088109%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8838488413%_))) - (_%g8838288528%_ - (lambda (_%g8838488421%_) - (if (gx#stx-pair? _%g8838488421%_) - (let ((_%e8839388424%_ (gx#syntax-e _%g8838488421%_))) - (let ((_%hd8839288428%_ + _%g8808088109%_))) + (_%g8807888224%_ + (lambda (_%g8808088117%_) + (if (gx#stx-pair? _%g8808088117%_) + (let ((_%e8808988120%_ (gx#syntax-e _%g8808088117%_))) + (let ((_%hd8808888124%_ (let () (declare (not safe)) - (##car _%e8839388424%_))) - (_%tl8839188431%_ + (##car _%e8808988120%_))) + (_%tl8808788127%_ (let () (declare (not safe)) - (##cdr _%e8839388424%_)))) - (if (gx#stx-pair? _%tl8839188431%_) - (let ((_%e8839688434%_ - (gx#syntax-e _%tl8839188431%_))) - (let ((_%hd8839588438%_ + (##cdr _%e8808988120%_)))) + (if (gx#stx-pair? _%tl8808788127%_) + (let ((_%e8809288130%_ + (gx#syntax-e _%tl8808788127%_))) + (let ((_%hd8809188134%_ (let () (declare (not safe)) - (##car _%e8839688434%_))) - (_%tl8839488441%_ + (##car _%e8809288130%_))) + (_%tl8809088137%_ (let () (declare (not safe)) - (##cdr _%e8839688434%_)))) - (if (gx#stx-pair? _%tl8839488441%_) - (let ((_%e8839988444%_ - (gx#syntax-e _%tl8839488441%_))) - (let ((_%hd8839888448%_ + (##cdr _%e8809288130%_)))) + (if (gx#stx-pair? _%tl8809088137%_) + (let ((_%e8809588140%_ + (gx#syntax-e _%tl8809088137%_))) + (let ((_%hd8809488144%_ (let () (declare (not safe)) - (##car _%e8839988444%_))) - (_%tl8839788451%_ + (##car _%e8809588140%_))) + (_%tl8809388147%_ (let () (declare (not safe)) - (##cdr _%e8839988444%_)))) - (if (gx#stx-pair? _%tl8839788451%_) - (let ((_%e8840288454%_ + (##cdr _%e8809588140%_)))) + (if (gx#stx-pair? _%tl8809388147%_) + (let ((_%e8809888150%_ (gx#syntax-e - _%tl8839788451%_))) - (let ((_%hd8840188458%_ + _%tl8809388147%_))) + (let ((_%hd8809788154%_ (let () (declare (not safe)) - (##car _%e8840288454%_))) - (_%tl8840088461%_ + (##car _%e8809888150%_))) + (_%tl8809688157%_ (let () (declare (not safe)) - (##cdr _%e8840288454%_)))) + (##cdr _%e8809888150%_)))) (if (gx#stx-pair? - _%tl8840088461%_) - (let ((_%e8840588464%_ + _%tl8809688157%_) + (let ((_%e8810188160%_ (gx#syntax-e - _%tl8840088461%_))) - (let ((_%hd8840488468%_ + _%tl8809688157%_))) + (let ((_%hd8810088164%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e8840588464%_))) - (_%tl8840388471%_ - (let () (declare (not safe)) (##cdr _%e8840588464%_)))) - (if (gx#stx-pair? _%tl8840388471%_) - (let ((_%e8840888474%_ (gx#syntax-e _%tl8840388471%_))) - (let ((_%hd8840788478%_ + (##car _%e8810188160%_))) + (_%tl8809988167%_ + (let () (declare (not safe)) (##cdr _%e8810188160%_)))) + (if (gx#stx-pair? _%tl8809988167%_) + (let ((_%e8810488170%_ (gx#syntax-e _%tl8809988167%_))) + (let ((_%hd8810388174%_ (let () (declare (not safe)) - (##car _%e8840888474%_))) - (_%tl8840688481%_ + (##car _%e8810488170%_))) + (_%tl8810288177%_ (let () (declare (not safe)) - (##cdr _%e8840888474%_)))) - (if (gx#stx-pair? _%tl8840688481%_) - (let ((_%e8841188484%_ - (gx#syntax-e _%tl8840688481%_))) - (let ((_%hd8841088488%_ + (##cdr _%e8810488170%_)))) + (if (gx#stx-pair? _%tl8810288177%_) + (let ((_%e8810788180%_ + (gx#syntax-e _%tl8810288177%_))) + (let ((_%hd8810688184%_ (let () (declare (not safe)) - (##car _%e8841188484%_))) - (_%tl8840988491%_ + (##car _%e8810788180%_))) + (_%tl8810588187%_ (let () (declare (not safe)) - (##cdr _%e8841188484%_)))) - (if (gx#stx-null? _%tl8840988491%_) - ((lambda (_%L88494%_ - _%L88496%_ - _%L88497%_ - _%L88498%_ - _%L88499%_ - _%L88500%_) + (##cdr _%e8810788180%_)))) + (if (gx#stx-null? _%tl8810588187%_) + ((lambda (_%L88190%_ + _%L88192%_ + _%L88193%_ + _%L88194%_ + _%L88195%_ + _%L88196%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -874,13 +874,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fxxor) - (cons (cons _%L88498%_ - (cons _%L88496%_ '())) - (cons _%L88499%_ '()))) + (cons (cons _%L88194%_ + (cons _%L88192%_ '())) + (cons _%L88195%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L88500%_ '())) + (cons _%L88196%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -933,7 +933,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L88500%_ + (cons _%L88196%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -948,7 +948,7 @@ 'macro-unused-obj) '()) '()))) - (cons _%L88494%_ '())) + (cons _%L88190%_ '())) (cons (cons (cons (gx#datum->syntax '#f 'eq?) (cons (gx#datum->syntax '#f @@ -983,8 +983,8 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L88497%_ - (cons _%L88496%_ + (cons (cons (cons _%L88193%_ + (cons _%L88192%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -994,7 +994,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L88500%_ + (cons _%L88196%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) @@ -1029,145 +1029,145 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8841088488%_ - _%hd8840788478%_ - _%hd8840488468%_ - _%hd8840188458%_ - _%hd8839888448%_ - _%hd8839588438%_) - (_%g8838388417%_ _%g8838488421%_)))) - (_%g8838388417%_ _%g8838488421%_)))) - (_%g8838388417%_ _%g8838488421%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8838388417%_ - _%g8838488421%_)))) - (_%g8838388417%_ - _%g8838488421%_)))) - (_%g8838388417%_ _%g8838488421%_)))) - (_%g8838388417%_ _%g8838488421%_)))) - (_%g8838388417%_ _%g8838488421%_))))) - (_%g8838288528%_ _%$stx88379%_)))) + _%hd8810688184%_ + _%hd8810388174%_ + _%hd8810088164%_ + _%hd8809788154%_ + _%hd8809488144%_ + _%hd8809188134%_) + (_%g8807988113%_ _%g8808088117%_)))) + (_%g8807988113%_ _%g8808088117%_)))) + (_%g8807988113%_ _%g8808088117%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8807988113%_ + _%g8808088117%_)))) + (_%g8807988113%_ + _%g8808088117%_)))) + (_%g8807988113%_ _%g8808088117%_)))) + (_%g8807988113%_ _%g8808088117%_)))) + (_%g8807988113%_ _%g8808088117%_))))) + (_%g8807888224%_ _%$stx88075%_)))) (define |[:0:]#__table-set!| - (lambda (_%$stx88532%_) - (let* ((_%g8853688578%_ - (lambda (_%g8853788574%_) + (lambda (_%$stx88228%_) + (let* ((_%g8823288274%_ + (lambda (_%g8823388270%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8853788574%_))) - (_%g8853588717%_ - (lambda (_%g8853788582%_) - (if (gx#stx-pair? _%g8853788582%_) - (let ((_%e8854888585%_ (gx#syntax-e _%g8853788582%_))) - (let ((_%hd8854788589%_ + _%g8823388270%_))) + (_%g8823188413%_ + (lambda (_%g8823388278%_) + (if (gx#stx-pair? _%g8823388278%_) + (let ((_%e8824488281%_ (gx#syntax-e _%g8823388278%_))) + (let ((_%hd8824388285%_ (let () (declare (not safe)) - (##car _%e8854888585%_))) - (_%tl8854688592%_ + (##car _%e8824488281%_))) + (_%tl8824288288%_ (let () (declare (not safe)) - (##cdr _%e8854888585%_)))) - (if (gx#stx-pair? _%tl8854688592%_) - (let ((_%e8855188595%_ - (gx#syntax-e _%tl8854688592%_))) - (let ((_%hd8855088599%_ + (##cdr _%e8824488281%_)))) + (if (gx#stx-pair? _%tl8824288288%_) + (let ((_%e8824788291%_ + (gx#syntax-e _%tl8824288288%_))) + (let ((_%hd8824688295%_ (let () (declare (not safe)) - (##car _%e8855188595%_))) - (_%tl8854988602%_ + (##car _%e8824788291%_))) + (_%tl8824588298%_ (let () (declare (not safe)) - (##cdr _%e8855188595%_)))) - (if (gx#stx-pair? _%tl8854988602%_) - (let ((_%e8855488605%_ - (gx#syntax-e _%tl8854988602%_))) - (let ((_%hd8855388609%_ + (##cdr _%e8824788291%_)))) + (if (gx#stx-pair? _%tl8824588298%_) + (let ((_%e8825088301%_ + (gx#syntax-e _%tl8824588298%_))) + (let ((_%hd8824988305%_ (let () (declare (not safe)) - (##car _%e8855488605%_))) - (_%tl8855288612%_ + (##car _%e8825088301%_))) + (_%tl8824888308%_ (let () (declare (not safe)) - (##cdr _%e8855488605%_)))) - (if (gx#stx-pair? _%tl8855288612%_) - (let ((_%e8855788615%_ + (##cdr _%e8825088301%_)))) + (if (gx#stx-pair? _%tl8824888308%_) + (let ((_%e8825388311%_ (gx#syntax-e - _%tl8855288612%_))) - (let ((_%hd8855688619%_ + _%tl8824888308%_))) + (let ((_%hd8825288315%_ (let () (declare (not safe)) - (##car _%e8855788615%_))) - (_%tl8855588622%_ + (##car _%e8825388311%_))) + (_%tl8825188318%_ (let () (declare (not safe)) - (##cdr _%e8855788615%_)))) + (##cdr _%e8825388311%_)))) (if (gx#stx-pair? - _%tl8855588622%_) - (let ((_%e8856088625%_ + _%tl8825188318%_) + (let ((_%e8825688321%_ (gx#syntax-e - _%tl8855588622%_))) - (let ((_%hd8855988629%_ + _%tl8825188318%_))) + (let ((_%hd8825588325%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e8856088625%_))) - (_%tl8855888632%_ - (let () (declare (not safe)) (##cdr _%e8856088625%_)))) - (if (gx#stx-pair? _%tl8855888632%_) - (let ((_%e8856388635%_ (gx#syntax-e _%tl8855888632%_))) - (let ((_%hd8856288639%_ + (##car _%e8825688321%_))) + (_%tl8825488328%_ + (let () (declare (not safe)) (##cdr _%e8825688321%_)))) + (if (gx#stx-pair? _%tl8825488328%_) + (let ((_%e8825988331%_ (gx#syntax-e _%tl8825488328%_))) + (let ((_%hd8825888335%_ (let () (declare (not safe)) - (##car _%e8856388635%_))) - (_%tl8856188642%_ + (##car _%e8825988331%_))) + (_%tl8825788338%_ (let () (declare (not safe)) - (##cdr _%e8856388635%_)))) - (if (gx#stx-pair? _%tl8856188642%_) - (let ((_%e8856688645%_ - (gx#syntax-e _%tl8856188642%_))) - (let ((_%hd8856588649%_ + (##cdr _%e8825988331%_)))) + (if (gx#stx-pair? _%tl8825788338%_) + (let ((_%e8826288341%_ + (gx#syntax-e _%tl8825788338%_))) + (let ((_%hd8826188345%_ (let () (declare (not safe)) - (##car _%e8856688645%_))) - (_%tl8856488652%_ + (##car _%e8826288341%_))) + (_%tl8826088348%_ (let () (declare (not safe)) - (##cdr _%e8856688645%_)))) - (if (gx#stx-pair? _%tl8856488652%_) - (let ((_%e8856988655%_ - (gx#syntax-e _%tl8856488652%_))) - (let ((_%hd8856888659%_ + (##cdr _%e8826288341%_)))) + (if (gx#stx-pair? _%tl8826088348%_) + (let ((_%e8826588351%_ + (gx#syntax-e _%tl8826088348%_))) + (let ((_%hd8826488355%_ (let () (declare (not safe)) - (##car _%e8856988655%_))) - (_%tl8856788662%_ + (##car _%e8826588351%_))) + (_%tl8826388358%_ (let () (declare (not safe)) - (##cdr _%e8856988655%_)))) - (if (gx#stx-pair? _%tl8856788662%_) - (let ((_%e8857288665%_ + (##cdr _%e8826588351%_)))) + (if (gx#stx-pair? _%tl8826388358%_) + (let ((_%e8826888361%_ (gx#syntax-e - _%tl8856788662%_))) - (let ((_%hd8857188669%_ + _%tl8826388358%_))) + (let ((_%hd8826788365%_ (let () (declare (not safe)) - (##car _%e8857288665%_))) - (_%tl8857088672%_ + (##car _%e8826888361%_))) + (_%tl8826688368%_ (let () (declare (not safe)) - (##cdr _%e8857288665%_)))) + (##cdr _%e8826888361%_)))) (if (gx#stx-null? - _%tl8857088672%_) - ((lambda (_%L88675%_ - _%L88677%_ - _%L88678%_ - _%L88679%_ - _%L88680%_ - _%L88681%_ - _%L88682%_ - _%L88683%_) + _%tl8826688368%_) + ((lambda (_%L88371%_ + _%L88373%_ + _%L88374%_ + _%L88375%_ + _%L88376%_ + _%L88377%_ + _%L88378%_ + _%L88379%_) (cons (gx#datum->syntax '#f 'let*) @@ -1178,18 +1178,18 @@ (cons (cons (gx#datum->syntax '#f 'fxxor) - (cons (cons _%L88681%_ - (cons _%L88679%_ + (cons (cons _%L88377%_ + (cons _%L88375%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L88682%_ '()))) + (cons _%L88378%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L88683%_ '())) + (cons _%L88379%_ '())) '())) (cons (cons (gx#datum->syntax '#f @@ -1246,7 +1246,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L88683%_ + (cons _%L88379%_ (cons (gx#datum->syntax '#f 'probe) @@ -1273,41 +1273,41 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L88683%_ + (cons _%L88379%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'deleted) - (cons _%L88679%_ '())))) + (cons _%L88375%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L88683%_ + (cons _%L88379%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons _%L88678%_ '())))) - (cons (cons _%L88675%_ '()) '())))) + (cons _%L88374%_ '())))) + (cons (cons _%L88371%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L88683%_ + (cons _%L88379%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'probe) - (cons _%L88679%_ '())))) + (cons _%L88375%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L88683%_ + (cons _%L88379%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons _%L88678%_ '())))) - (cons (cons _%L88677%_ '()) '())))) + (cons _%L88374%_ '())))) + (cons (cons _%L88373%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1352,16 +1352,16 @@ '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%L88680%_ + (cons (cons (cons _%L88376%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L88679%_ + (cons _%L88375%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L88683%_ + (cons _%L88379%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L88679%_ '())))) + (cons _%L88375%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L88683%_ + (cons _%L88379%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1370,7 +1370,7 @@ '#f 'probe) (cons '1 '()))) - (cons _%L88678%_ '())))) + (cons _%L88374%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'else) @@ -1405,173 +1405,173 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8857188669%_ - _%hd8856888659%_ - _%hd8856588649%_ - _%hd8856288639%_ - _%hd8855988629%_ - _%hd8855688619%_ - _%hd8855388609%_ - _%hd8855088599%_) - (_%g8853688578%_ - _%g8853788582%_)))) - (_%g8853688578%_ - _%g8853788582%_)))) - (_%g8853688578%_ _%g8853788582%_)))) - (_%g8853688578%_ _%g8853788582%_)))) - (_%g8853688578%_ _%g8853788582%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8853688578%_ - _%g8853788582%_)))) - (_%g8853688578%_ - _%g8853788582%_)))) - (_%g8853688578%_ _%g8853788582%_)))) - (_%g8853688578%_ _%g8853788582%_)))) - (_%g8853688578%_ _%g8853788582%_))))) - (_%g8853588717%_ _%$stx88532%_)))) + _%hd8826788365%_ + _%hd8826488355%_ + _%hd8826188345%_ + _%hd8825888335%_ + _%hd8825588325%_ + _%hd8825288315%_ + _%hd8824988305%_ + _%hd8824688295%_) + (_%g8823288274%_ + _%g8823388278%_)))) + (_%g8823288274%_ + _%g8823388278%_)))) + (_%g8823288274%_ _%g8823388278%_)))) + (_%g8823288274%_ _%g8823388278%_)))) + (_%g8823288274%_ _%g8823388278%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8823288274%_ + _%g8823388278%_)))) + (_%g8823288274%_ + _%g8823388278%_)))) + (_%g8823288274%_ _%g8823388278%_)))) + (_%g8823288274%_ _%g8823388278%_)))) + (_%g8823288274%_ _%g8823388278%_))))) + (_%g8823188413%_ _%$stx88228%_)))) (define |[:0:]#__table-update!| - (lambda (_%$stx88721%_) - (let* ((_%g8872588771%_ - (lambda (_%g8872688767%_) + (lambda (_%$stx88417%_) + (let* ((_%g8842188467%_ + (lambda (_%g8842288463%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8872688767%_))) - (_%g8872488924%_ - (lambda (_%g8872688775%_) - (if (gx#stx-pair? _%g8872688775%_) - (let ((_%e8873888778%_ (gx#syntax-e _%g8872688775%_))) - (let ((_%hd8873788782%_ + _%g8842288463%_))) + (_%g8842088620%_ + (lambda (_%g8842288471%_) + (if (gx#stx-pair? _%g8842288471%_) + (let ((_%e8843488474%_ (gx#syntax-e _%g8842288471%_))) + (let ((_%hd8843388478%_ (let () (declare (not safe)) - (##car _%e8873888778%_))) - (_%tl8873688785%_ + (##car _%e8843488474%_))) + (_%tl8843288481%_ (let () (declare (not safe)) - (##cdr _%e8873888778%_)))) - (if (gx#stx-pair? _%tl8873688785%_) - (let ((_%e8874188788%_ - (gx#syntax-e _%tl8873688785%_))) - (let ((_%hd8874088792%_ + (##cdr _%e8843488474%_)))) + (if (gx#stx-pair? _%tl8843288481%_) + (let ((_%e8843788484%_ + (gx#syntax-e _%tl8843288481%_))) + (let ((_%hd8843688488%_ (let () (declare (not safe)) - (##car _%e8874188788%_))) - (_%tl8873988795%_ + (##car _%e8843788484%_))) + (_%tl8843588491%_ (let () (declare (not safe)) - (##cdr _%e8874188788%_)))) - (if (gx#stx-pair? _%tl8873988795%_) - (let ((_%e8874488798%_ - (gx#syntax-e _%tl8873988795%_))) - (let ((_%hd8874388802%_ + (##cdr _%e8843788484%_)))) + (if (gx#stx-pair? _%tl8843588491%_) + (let ((_%e8844088494%_ + (gx#syntax-e _%tl8843588491%_))) + (let ((_%hd8843988498%_ (let () (declare (not safe)) - (##car _%e8874488798%_))) - (_%tl8874288805%_ + (##car _%e8844088494%_))) + (_%tl8843888501%_ (let () (declare (not safe)) - (##cdr _%e8874488798%_)))) - (if (gx#stx-pair? _%tl8874288805%_) - (let ((_%e8874788808%_ + (##cdr _%e8844088494%_)))) + (if (gx#stx-pair? _%tl8843888501%_) + (let ((_%e8844388504%_ (gx#syntax-e - _%tl8874288805%_))) - (let ((_%hd8874688812%_ + _%tl8843888501%_))) + (let ((_%hd8844288508%_ (let () (declare (not safe)) - (##car _%e8874788808%_))) - (_%tl8874588815%_ + (##car _%e8844388504%_))) + (_%tl8844188511%_ (let () (declare (not safe)) - (##cdr _%e8874788808%_)))) + (##cdr _%e8844388504%_)))) (if (gx#stx-pair? - _%tl8874588815%_) - (let ((_%e8875088818%_ + _%tl8844188511%_) + (let ((_%e8844688514%_ (gx#syntax-e - _%tl8874588815%_))) - (let ((_%hd8874988822%_ + _%tl8844188511%_))) + (let ((_%hd8844588518%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e8875088818%_))) - (_%tl8874888825%_ - (let () (declare (not safe)) (##cdr _%e8875088818%_)))) - (if (gx#stx-pair? _%tl8874888825%_) - (let ((_%e8875388828%_ (gx#syntax-e _%tl8874888825%_))) - (let ((_%hd8875288832%_ + (##car _%e8844688514%_))) + (_%tl8844488521%_ + (let () (declare (not safe)) (##cdr _%e8844688514%_)))) + (if (gx#stx-pair? _%tl8844488521%_) + (let ((_%e8844988524%_ (gx#syntax-e _%tl8844488521%_))) + (let ((_%hd8844888528%_ (let () (declare (not safe)) - (##car _%e8875388828%_))) - (_%tl8875188835%_ + (##car _%e8844988524%_))) + (_%tl8844788531%_ (let () (declare (not safe)) - (##cdr _%e8875388828%_)))) - (if (gx#stx-pair? _%tl8875188835%_) - (let ((_%e8875688838%_ - (gx#syntax-e _%tl8875188835%_))) - (let ((_%hd8875588842%_ + (##cdr _%e8844988524%_)))) + (if (gx#stx-pair? _%tl8844788531%_) + (let ((_%e8845288534%_ + (gx#syntax-e _%tl8844788531%_))) + (let ((_%hd8845188538%_ (let () (declare (not safe)) - (##car _%e8875688838%_))) - (_%tl8875488845%_ + (##car _%e8845288534%_))) + (_%tl8845088541%_ (let () (declare (not safe)) - (##cdr _%e8875688838%_)))) - (if (gx#stx-pair? _%tl8875488845%_) - (let ((_%e8875988848%_ - (gx#syntax-e _%tl8875488845%_))) - (let ((_%hd8875888852%_ + (##cdr _%e8845288534%_)))) + (if (gx#stx-pair? _%tl8845088541%_) + (let ((_%e8845588544%_ + (gx#syntax-e _%tl8845088541%_))) + (let ((_%hd8845488548%_ (let () (declare (not safe)) - (##car _%e8875988848%_))) - (_%tl8875788855%_ + (##car _%e8845588544%_))) + (_%tl8845388551%_ (let () (declare (not safe)) - (##cdr _%e8875988848%_)))) - (if (gx#stx-pair? _%tl8875788855%_) - (let ((_%e8876288858%_ + (##cdr _%e8845588544%_)))) + (if (gx#stx-pair? _%tl8845388551%_) + (let ((_%e8845888554%_ (gx#syntax-e - _%tl8875788855%_))) - (let ((_%hd8876188862%_ + _%tl8845388551%_))) + (let ((_%hd8845788558%_ (let () (declare (not safe)) - (##car _%e8876288858%_))) - (_%tl8876088865%_ + (##car _%e8845888554%_))) + (_%tl8845688561%_ (let () (declare (not safe)) - (##cdr _%e8876288858%_)))) + (##cdr _%e8845888554%_)))) (if (gx#stx-pair? - _%tl8876088865%_) - (let ((_%e8876588868%_ + _%tl8845688561%_) + (let ((_%e8846188564%_ (gx#syntax-e - _%tl8876088865%_))) - (let ((_%hd8876488872%_ + _%tl8845688561%_))) + (let ((_%hd8846088568%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e8876588868%_))) - (_%tl8876388875%_ - (let () (declare (not safe)) (##cdr _%e8876588868%_)))) - (if (gx#stx-null? _%tl8876388875%_) - ((lambda (_%L88878%_ - _%L88880%_ - _%L88881%_ - _%L88882%_ - _%L88883%_ - _%L88884%_ - _%L88885%_ - _%L88886%_ - _%L88887%_) + (##car _%e8846188564%_))) + (_%tl8845988571%_ + (let () (declare (not safe)) (##cdr _%e8846188564%_)))) + (if (gx#stx-null? _%tl8845988571%_) + ((lambda (_%L88574%_ + _%L88576%_ + _%L88577%_ + _%L88578%_ + _%L88579%_ + _%L88580%_ + _%L88581%_ + _%L88582%_ + _%L88583%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax '#f 'fxxor) - (cons (cons _%L88885%_ + (cons (cons _%L88581%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L88883%_ '())) - (cons _%L88886%_ '()))) + (cons _%L88579%_ '())) + (cons _%L88582%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax @@ -1581,7 +1581,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-length) - (cons _%L88887%_ '())) + (cons _%L88583%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -1634,7 +1634,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L88887%_ + (cons _%L88583%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1661,21 +1661,21 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L88887%_ + (cons _%L88583%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'deleted) - (cons _%L88883%_ '())))) + (cons _%L88579%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L88887%_ + (cons _%L88583%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons (cons _%L88882%_ - (cons _%L88881%_ '())) + (cons (cons _%L88578%_ + (cons _%L88577%_ '())) '())))) - (cons (cons _%L88878%_ '()) '())))) + (cons (cons _%L88574%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -1684,11 +1684,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-set!) - (cons _%L88887%_ + (cons _%L88583%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L88883%_ '())))) + (cons _%L88579%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L88887%_ + (cons _%L88583%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1696,13 +1696,13 @@ '#f 'probe) (cons '1 '()))) - (cons (cons _%L88882%_ - (cons _%L88881%_ + (cons (cons _%L88578%_ + (cons _%L88577%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (cons _%L88880%_ '()) '())))) + (cons (cons _%L88576%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1747,34 +1747,34 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L88884%_ - (cons _%L88883%_ + (cons (cons (cons _%L88580%_ + (cons _%L88579%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L88887%_ + (cons _%L88583%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L88883%_ + (cons _%L88579%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L88887%_ + (cons _%L88583%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons (cons _%L88882%_ + (cons (cons _%L88578%_ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L88887%_ + (cons _%L88583%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1808,128 +1808,128 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd8876488872%_ - _%hd8876188862%_ - _%hd8875888852%_ - _%hd8875588842%_ - _%hd8875288832%_ - _%hd8874988822%_ - _%hd8874688812%_ - _%hd8874388802%_ - _%hd8874088792%_) - (_%g8872588771%_ _%g8872688775%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8872588771%_ - _%g8872688775%_)))) - (_%g8872588771%_ - _%g8872688775%_)))) - (_%g8872588771%_ _%g8872688775%_)))) - (_%g8872588771%_ _%g8872688775%_)))) - (_%g8872588771%_ _%g8872688775%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8872588771%_ - _%g8872688775%_)))) - (_%g8872588771%_ - _%g8872688775%_)))) - (_%g8872588771%_ _%g8872688775%_)))) - (_%g8872588771%_ _%g8872688775%_)))) - (_%g8872588771%_ _%g8872688775%_))))) - (_%g8872488924%_ _%$stx88721%_)))) + _%hd8846088568%_ + _%hd8845788558%_ + _%hd8845488548%_ + _%hd8845188538%_ + _%hd8844888528%_ + _%hd8844588518%_ + _%hd8844288508%_ + _%hd8843988498%_ + _%hd8843688488%_) + (_%g8842188467%_ _%g8842288471%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8842188467%_ + _%g8842288471%_)))) + (_%g8842188467%_ + _%g8842288471%_)))) + (_%g8842188467%_ _%g8842288471%_)))) + (_%g8842188467%_ _%g8842288471%_)))) + (_%g8842188467%_ _%g8842288471%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8842188467%_ + _%g8842288471%_)))) + (_%g8842188467%_ + _%g8842288471%_)))) + (_%g8842188467%_ _%g8842288471%_)))) + (_%g8842188467%_ _%g8842288471%_)))) + (_%g8842188467%_ _%g8842288471%_))))) + (_%g8842088620%_ _%$stx88417%_)))) (define |[:0:]#__table-del!| - (lambda (_%$stx88928%_) - (let* ((_%g8893288966%_ - (lambda (_%g8893388962%_) + (lambda (_%$stx88624%_) + (let* ((_%g8862888662%_ + (lambda (_%g8862988658%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8893388962%_))) - (_%g8893189077%_ - (lambda (_%g8893388970%_) - (if (gx#stx-pair? _%g8893388970%_) - (let ((_%e8894288973%_ (gx#syntax-e _%g8893388970%_))) - (let ((_%hd8894188977%_ + _%g8862988658%_))) + (_%g8862788773%_ + (lambda (_%g8862988666%_) + (if (gx#stx-pair? _%g8862988666%_) + (let ((_%e8863888669%_ (gx#syntax-e _%g8862988666%_))) + (let ((_%hd8863788673%_ (let () (declare (not safe)) - (##car _%e8894288973%_))) - (_%tl8894088980%_ + (##car _%e8863888669%_))) + (_%tl8863688676%_ (let () (declare (not safe)) - (##cdr _%e8894288973%_)))) - (if (gx#stx-pair? _%tl8894088980%_) - (let ((_%e8894588983%_ - (gx#syntax-e _%tl8894088980%_))) - (let ((_%hd8894488987%_ + (##cdr _%e8863888669%_)))) + (if (gx#stx-pair? _%tl8863688676%_) + (let ((_%e8864188679%_ + (gx#syntax-e _%tl8863688676%_))) + (let ((_%hd8864088683%_ (let () (declare (not safe)) - (##car _%e8894588983%_))) - (_%tl8894388990%_ + (##car _%e8864188679%_))) + (_%tl8863988686%_ (let () (declare (not safe)) - (##cdr _%e8894588983%_)))) - (if (gx#stx-pair? _%tl8894388990%_) - (let ((_%e8894888993%_ - (gx#syntax-e _%tl8894388990%_))) - (let ((_%hd8894788997%_ + (##cdr _%e8864188679%_)))) + (if (gx#stx-pair? _%tl8863988686%_) + (let ((_%e8864488689%_ + (gx#syntax-e _%tl8863988686%_))) + (let ((_%hd8864388693%_ (let () (declare (not safe)) - (##car _%e8894888993%_))) - (_%tl8894689000%_ + (##car _%e8864488689%_))) + (_%tl8864288696%_ (let () (declare (not safe)) - (##cdr _%e8894888993%_)))) - (if (gx#stx-pair? _%tl8894689000%_) - (let ((_%e8895189003%_ + (##cdr _%e8864488689%_)))) + (if (gx#stx-pair? _%tl8864288696%_) + (let ((_%e8864788699%_ (gx#syntax-e - _%tl8894689000%_))) - (let ((_%hd8895089007%_ + _%tl8864288696%_))) + (let ((_%hd8864688703%_ (let () (declare (not safe)) - (##car _%e8895189003%_))) - (_%tl8894989010%_ + (##car _%e8864788699%_))) + (_%tl8864588706%_ (let () (declare (not safe)) - (##cdr _%e8895189003%_)))) + (##cdr _%e8864788699%_)))) (if (gx#stx-pair? - _%tl8894989010%_) - (let ((_%e8895489013%_ + _%tl8864588706%_) + (let ((_%e8865088709%_ (gx#syntax-e - _%tl8894989010%_))) - (let ((_%hd8895389017%_ + _%tl8864588706%_))) + (let ((_%hd8864988713%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e8895489013%_))) - (_%tl8895289020%_ - (let () (declare (not safe)) (##cdr _%e8895489013%_)))) - (if (gx#stx-pair? _%tl8895289020%_) - (let ((_%e8895789023%_ (gx#syntax-e _%tl8895289020%_))) - (let ((_%hd8895689027%_ + (##car _%e8865088709%_))) + (_%tl8864888716%_ + (let () (declare (not safe)) (##cdr _%e8865088709%_)))) + (if (gx#stx-pair? _%tl8864888716%_) + (let ((_%e8865388719%_ (gx#syntax-e _%tl8864888716%_))) + (let ((_%hd8865288723%_ (let () (declare (not safe)) - (##car _%e8895789023%_))) - (_%tl8895589030%_ + (##car _%e8865388719%_))) + (_%tl8865188726%_ (let () (declare (not safe)) - (##cdr _%e8895789023%_)))) - (if (gx#stx-pair? _%tl8895589030%_) - (let ((_%e8896089033%_ - (gx#syntax-e _%tl8895589030%_))) - (let ((_%hd8895989037%_ + (##cdr _%e8865388719%_)))) + (if (gx#stx-pair? _%tl8865188726%_) + (let ((_%e8865688729%_ + (gx#syntax-e _%tl8865188726%_))) + (let ((_%hd8865588733%_ (let () (declare (not safe)) - (##car _%e8896089033%_))) - (_%tl8895889040%_ + (##car _%e8865688729%_))) + (_%tl8865488736%_ (let () (declare (not safe)) - (##cdr _%e8896089033%_)))) - (if (gx#stx-null? _%tl8895889040%_) - ((lambda (_%L89043%_ - _%L89045%_ - _%L89046%_ - _%L89047%_ - _%L89048%_ - _%L89049%_) + (##cdr _%e8865688729%_)))) + (if (gx#stx-null? _%tl8865488736%_) + ((lambda (_%L88739%_ + _%L88741%_ + _%L88742%_ + _%L88743%_ + _%L88744%_ + _%L88745%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -1938,13 +1938,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fxxor) - (cons (cons _%L89047%_ - (cons _%L89045%_ '())) - (cons _%L89048%_ '()))) + (cons (cons _%L88743%_ + (cons _%L88741%_ '())) + (cons _%L88744%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L89049%_ '())) + (cons _%L88745%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -1993,7 +1993,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L89049%_ + (cons _%L88745%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2039,8 +2039,8 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L89046%_ - (cons _%L89045%_ + (cons (cons (cons _%L88742%_ + (cons _%L88741%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -2050,7 +2050,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L89049%_ + (cons _%L88745%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'probe) (cons (cons (gx#datum->syntax @@ -2059,7 +2059,7 @@ '()) '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L89049%_ + (cons _%L88745%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f @@ -2070,7 +2070,7 @@ 'macro-absent-obj) '()) '())))) - (cons (cons _%L89043%_ '()) '())))) + (cons (cons _%L88739%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -2098,21 +2098,21 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8895989037%_ - _%hd8895689027%_ - _%hd8895389017%_ - _%hd8895089007%_ - _%hd8894788997%_ - _%hd8894488987%_) - (_%g8893288966%_ _%g8893388970%_)))) - (_%g8893288966%_ _%g8893388970%_)))) - (_%g8893288966%_ _%g8893388970%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8893288966%_ - _%g8893388970%_)))) - (_%g8893288966%_ - _%g8893388970%_)))) - (_%g8893288966%_ _%g8893388970%_)))) - (_%g8893288966%_ _%g8893388970%_)))) - (_%g8893288966%_ _%g8893388970%_))))) - (_%g8893189077%_ _%$stx88928%_))))) + _%hd8865588733%_ + _%hd8865288723%_ + _%hd8864988713%_ + _%hd8864688703%_ + _%hd8864388693%_ + _%hd8864088683%_) + (_%g8862888662%_ _%g8862988666%_)))) + (_%g8862888662%_ _%g8862988666%_)))) + (_%g8862888662%_ _%g8862988666%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8862888662%_ + _%g8862988666%_)))) + (_%g8862888662%_ + _%g8862988666%_)))) + (_%g8862888662%_ _%g8862988666%_)))) + (_%g8862888662%_ _%g8862988666%_)))) + (_%g8862888662%_ _%g8862988666%_))))) + (_%g8862788773%_ _%$stx88624%_))))) diff --git a/src/bootstrap/gerbil/runtime/thread.ssxi.ss b/src/bootstrap/gerbil/runtime/thread.ssxi.ss index 20ccf7296..ac4073efd 100644 --- a/src/bootstrap/gerbil/runtime/thread.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/thread.ssxi.ss @@ -14,13 +14,24 @@ package: gerbil/runtime arguments: (procedure::t . t::t) unchecked: - __spawn))) + __spawn + origin: + gerbil/runtime/thread))) (declare-type __spawn (@lambda (1) #f signature: - (return: thread::t effect: #f arguments: #f unchecked: #f))) + (return: + thread::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type spawn/name (@lambda (2) @@ -33,13 +44,24 @@ package: gerbil/runtime arguments: (t::t procedure::t . t::t) unchecked: - __spawn/name))) + __spawn/name + origin: + gerbil/runtime/thread))) (declare-type __spawn/name (@lambda (2) #f signature: - (return: thread::t effect: #f arguments: #f unchecked: #f))) + (return: + thread::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type spawn/group (@lambda (2) @@ -52,104 +74,284 @@ package: gerbil/runtime arguments: (t::t procedure::t . t::t) unchecked: - __spawn/group))) + __spawn/group + origin: + gerbil/runtime/thread))) (declare-type __spawn/group (@lambda (2) #f signature: - (return: thread::t effect: #f arguments: #f unchecked: #f))) + (return: + thread::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type spawn-actor (@lambda 4 #f signature: - (return: thread::t effect: #f arguments: #f unchecked: #f))) + (return: + thread::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type spawn-thread__% (@lambda 3 #f signature: - (return: thread::t effect: #f arguments: #f unchecked: #f))) + (return: + thread::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type spawn-thread__0 (@lambda 1 #f signature: - (return: thread::t effect: #f arguments: #f unchecked: #f))) + (return: + thread::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type spawn-thread__1 (@lambda 2 #f signature: - (return: thread::t effect: #f arguments: #f unchecked: #f))) + (return: + thread::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type spawn-thread (@case-lambda (1 spawn-thread__0 signature: - (return: thread::t effect: #f arguments: #f unchecked: #f)) + (return: + thread::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread)) (2 spawn-thread__1 signature: - (return: thread::t effect: #f arguments: #f unchecked: #f)) + (return: + thread::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread)) (3 spawn-thread__% signature: - (return: thread::t effect: #f arguments: #f unchecked: #f)))) + (return: + thread::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread)))) (declare-type thread-local-ref__% (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type thread-local-ref__0 (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type thread-local-ref (@case-lambda (1 thread-local-ref__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread)) (2 thread-local-ref__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread)))) (declare-type thread-local-get (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type thread-local-set! (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type thread-local-delete! (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type thread-local-table (@lambda 0 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) + (declare-type + thread-local-table + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) + (declare-type + __primordial-thread-locals + (optimizer-resolve-class '(typedecl __primordial-thread-locals) 't::t)) + (declare-type + __thread-locals + (optimizer-resolve-class '(typedecl __thread-locals) 't::t)) (declare-type __thread-locals-mutex (optimizer-resolve-class '(typedecl __thread-locals-mutex) 'mutex::t)) - (declare-type unhandled-actor-exception-hook-set! (@lambda 1 #f)) + (declare-type + unhandled-actor-exception-hook-set! + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type current-thread-group (@lambda 0 #f signature: - (return: thread-group::t effect: #f arguments: #f unchecked: #f))) + (return: + thread-group::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type with-lock (@lambda 2 @@ -162,13 +364,24 @@ package: gerbil/runtime arguments: (mutex::t procedure::t) unchecked: - __with-lock))) + __with-lock + origin: + gerbil/runtime/thread))) (declare-type __with-lock (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type with-dynamic-lock (@lambda 2 @@ -181,13 +394,24 @@ package: gerbil/runtime arguments: (mutex::t procedure::t) unchecked: - __with-dynamic-lock))) + __with-dynamic-lock + origin: + gerbil/runtime/thread))) (declare-type __with-dynamic-lock (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type with-exception-stack-trace__% (@lambda 2 @@ -200,49 +424,168 @@ package: gerbil/runtime arguments: (procedure::t port::t) unchecked: - __with-exception-stack-trace))) + __with-exception-stack-trace + origin: + gerbil/runtime/thread))) (declare-type with-exception-stack-trace__0 (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type with-exception-stack-trace (@case-lambda (1 with-exception-stack-trace__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread)) (2 with-exception-stack-trace__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread)))) (declare-type __with-exception-stack-trace__% (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type __with-exception-stack-trace__0 (@lambda 1 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type __with-exception-stack-trace (@case-lambda (1 __with-exception-stack-trace__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread)) (2 __with-exception-stack-trace__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) - (declare-type dump-stack-trace!__% (@lambda 3 #f)) - (declare-type dump-stack-trace!__0 (@lambda 2 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread)))) + (declare-type + dump-stack-trace!__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) + (declare-type + dump-stack-trace!__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type dump-stack-trace! - (@case-lambda (2 dump-stack-trace!__0) (3 dump-stack-trace!__%)))) + (@case-lambda + (2 + dump-stack-trace!__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread)) + (3 + dump-stack-trace!__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))))) diff --git a/src/bootstrap/gerbil/runtime/thread~0.scm b/src/bootstrap/gerbil/runtime/thread~0.scm index 7d8cf3281..bb90ffa82 100644 --- a/src/bootstrap/gerbil/runtime/thread~0.scm +++ b/src/bootstrap/gerbil/runtime/thread~0.scm @@ -1,262 +1,206 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/thread::timestamp 1712533289) + (define gerbil/runtime/thread::timestamp 1712573430) (begin (define spawn - (lambda (_%f107436%_ . _%args107437%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f107436%_)) - (let ((_%f107441%_ _%f107436%_)) - (declare (not safe)) - (##apply __spawn _%f107441%_ _%args107437%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/thread.ss\"@12.14-12.15" - 'contract: - 'procedure? - 'value: - _%f107436%_) - '#!void))))) + (lambda (_%f106774%_ . _%args106775%_) + (if (procedure? _%f106774%_) + (let ((_%f106779%_ _%f106774%_)) + (declare (not safe)) + (##apply __spawn _%f106779%_ _%args106775%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/thread.ss\"@12.14-12.15" + 'contract: + 'procedure? + 'value: + _%f106774%_) + '#!void)))) (define __spawn - (lambda (_%f107423%_ . _%args107424%_) - (let ((_%f107427%_ _%f107423%_)) - (declare (not safe)) - (spawn-actor _%f107427%_ _%args107424%_ '#!void '#f)))) + (lambda (_%f106761%_ . _%args106762%_) + (let ((_%f106765%_ _%f106761%_)) + (spawn-actor _%f106765%_ _%args106762%_ '#!void '#f)))) (define spawn/name - (lambda (_%name107407%_ _%f107408%_ . _%args107409%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f107408%_)) - (let ((_%f107413%_ _%f107408%_)) - (declare (not safe)) - (##apply __spawn/name - _%name107407%_ - _%f107413%_ - _%args107409%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/thread.ss\"@17.24-17.25" - 'contract: - 'procedure? - 'value: - _%f107408%_) - '#!void))))) + (lambda (_%name106745%_ _%f106746%_ . _%args106747%_) + (if (procedure? _%f106746%_) + (let ((_%f106751%_ _%f106746%_)) + (declare (not safe)) + (##apply __spawn/name _%name106745%_ _%f106751%_ _%args106747%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/thread.ss\"@17.24-17.25" + 'contract: + 'procedure? + 'value: + _%f106746%_) + '#!void)))) (define __spawn/name - (lambda (_%name107393%_ _%f107394%_ . _%args107395%_) - (let ((_%f107398%_ _%f107394%_)) - (declare (not safe)) - (spawn-actor _%f107398%_ _%args107395%_ _%name107393%_ '#f)))) + (lambda (_%name106731%_ _%f106732%_ . _%args106733%_) + (let ((_%f106736%_ _%f106732%_)) + (spawn-actor _%f106736%_ _%args106733%_ _%name106731%_ '#f)))) (define spawn/group - (lambda (_%name107377%_ _%f107378%_ . _%args107379%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f107378%_)) - (let ((_%f107383%_ _%f107378%_)) - (declare (not safe)) - (##apply __spawn/group - _%name107377%_ - _%f107383%_ - _%args107379%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/thread.ss\"@22.25-22.26" - 'contract: - 'procedure? - 'value: - _%f107378%_) - '#!void))))) + (lambda (_%name106715%_ _%f106716%_ . _%args106717%_) + (if (procedure? _%f106716%_) + (let ((_%f106721%_ _%f106716%_)) + (declare (not safe)) + (##apply __spawn/group + _%name106715%_ + _%f106721%_ + _%args106717%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/thread.ss\"@22.25-22.26" + 'contract: + 'procedure? + 'value: + _%f106716%_) + '#!void)))) (define __spawn/group - (lambda (_%name107361%_ _%f107362%_ . _%args107363%_) - (let () - (let* ((_%f107366%_ _%f107362%_) - (_%tgroup107375%_ (make-thread-group _%name107361%_))) - (declare (not safe)) - (spawn-actor - _%f107366%_ - _%args107363%_ - _%name107361%_ - _%tgroup107375%_))))) + (lambda (_%name106699%_ _%f106700%_ . _%args106701%_) + (let* ((_%f106704%_ _%f106700%_) + (_%tgroup106713%_ (make-thread-group _%name106699%_))) + (spawn-actor + _%f106704%_ + _%args106701%_ + _%name106699%_ + _%tgroup106713%_)))) (define spawn-actor - (lambda (_%f107333%_ _%args107334%_ _%name107335%_ _%tgroup107336%_) - (let () - (letrec ((_%thread-main107339%_ - (lambda (_%thunk107353%_) - (lambda () - (let ((__tmp107451 - (lambda (_%exn107356%_) - (let ((__tmp107452 - (lambda (_%cont107358%_) - (if __unhandled-actor-exception-hook - (let ((__tmp107453 - (lambda () - (__unhandled-actor-exception-hook - _%cont107358%_ - _%exn107356%_)))) - (declare (not safe)) - (__with-catch - void - __tmp107453)) - '#!void) - (let ((__tmp107454 - (let () - (declare (not safe)) - (##continuation-last - _%cont107358%_)))) - (declare (not safe)) - (##continuation-graft - __tmp107454 - ##primordial-exception-handler - _%exn107356%_))))) - (declare (not safe)) - (##continuation-capture __tmp107452))))) - (declare (not safe)) - (with-exception-handler - __tmp107451 - _%thunk107353%_)))))) - (let* ((_%thunk107342%_ - (if (let () (declare (not safe)) (null? _%args107334%_)) - _%f107333%_ - (lambda () (apply _%f107333%_ _%args107334%_)))) - (_%thunk107345%_ + (lambda (_%f106671%_ _%args106672%_ _%name106673%_ _%tgroup106674%_) + (letrec ((_%thread-main106677%_ + (lambda (_%thunk106691%_) (lambda () - (let () + (let ((__tmp106789 + (lambda (_%exn106694%_) + (let ((__tmp106790 + (lambda (_%cont106696%_) + (if __unhandled-actor-exception-hook + (let ((__tmp106791 + (lambda () + (__unhandled-actor-exception-hook + _%cont106696%_ + _%exn106694%_)))) + (declare (not safe)) + (__with-catch void __tmp106791)) + '#!void) + (let ((__tmp106792 + (let () + (declare (not safe)) + (##continuation-last + _%cont106696%_)))) + (declare (not safe)) + (##continuation-graft + __tmp106792 + ##primordial-exception-handler + _%exn106694%_))))) + (declare (not safe)) + (##continuation-capture __tmp106790))))) (declare (not safe)) - (with-exception-stack-trace__0 _%thunk107342%_)))) - (_%tgroup107350%_ - (let ((_%$e107347%_ _%tgroup107336%_)) - (if _%$e107347%_ - _%$e107347%_ - (let () - (declare (not safe)) - (current-thread-group)))))) - (thread-start! - (thread-init! - (construct-actor-thread '#f '0) - (let () - (declare (not safe)) - (_%thread-main107339%_ _%thunk107345%_)) - _%name107335%_ - _%tgroup107350%_))))))) + (with-exception-handler + __tmp106789 + _%thunk106691%_)))))) + (let* ((_%thunk106680%_ + (if (null? _%args106672%_) + _%f106671%_ + (lambda () (apply _%f106671%_ _%args106672%_)))) + (_%thunk106683%_ + (lambda () (with-exception-stack-trace__0 _%thunk106680%_))) + (_%tgroup106688%_ + (let ((_%$e106685%_ _%tgroup106674%_)) + (if _%$e106685%_ _%$e106685%_ (current-thread-group))))) + (thread-start! + (thread-init! + (construct-actor-thread '#f '0) + (_%thread-main106677%_ _%thunk106683%_) + _%name106673%_ + _%tgroup106688%_)))))) (define spawn-thread__% - (lambda (_%thunk107311%_ _%name107312%_ _%tgroup107313%_) + (lambda (_%thunk106649%_ _%name106650%_ _%tgroup106651%_) (thread-start! - (make-thread _%thunk107311%_ _%name107312%_ _%tgroup107313%_)))) + (make-thread _%thunk106649%_ _%name106650%_ _%tgroup106651%_)))) (define spawn-thread__0 - (lambda (_%thunk107318%_) - (let* ((_%name107320%_ absent-obj) (_%tgroup107322%_ absent-obj)) - (declare (not safe)) - (spawn-thread__% _%thunk107318%_ _%name107320%_ _%tgroup107322%_)))) + (lambda (_%thunk106656%_) + (let* ((_%name106658%_ absent-obj) (_%tgroup106660%_ absent-obj)) + (spawn-thread__% _%thunk106656%_ _%name106658%_ _%tgroup106660%_)))) (define spawn-thread__1 - (lambda (_%thunk107324%_ _%name107325%_) - (let ((_%tgroup107327%_ absent-obj)) - (declare (not safe)) - (spawn-thread__% _%thunk107324%_ _%name107325%_ _%tgroup107327%_)))) + (lambda (_%thunk106662%_ _%name106663%_) + (let ((_%tgroup106665%_ absent-obj)) + (spawn-thread__% _%thunk106662%_ _%name106663%_ _%tgroup106665%_)))) (define spawn-thread - (lambda _g107456_ - (let ((_g107455_ (let () (declare (not safe)) (##length _g107456_)))) - (cond ((let () (declare (not safe)) (##fx= _g107455_ 1)) - (apply (lambda (_%thunk107318%_) - (let () - (declare (not safe)) - (spawn-thread__0 _%thunk107318%_))) - _g107456_)) - ((let () (declare (not safe)) (##fx= _g107455_ 2)) - (apply (lambda (_%thunk107324%_ _%name107325%_) - (let () - (declare (not safe)) - (spawn-thread__1 _%thunk107324%_ _%name107325%_))) - _g107456_)) - ((let () (declare (not safe)) (##fx= _g107455_ 3)) - (apply (lambda (_%thunk107329%_ - _%name107330%_ - _%tgroup107331%_) - (let () - (declare (not safe)) - (spawn-thread__% - _%thunk107329%_ - _%name107330%_ - _%tgroup107331%_))) - _g107456_)) + (lambda _g106794_ + (let ((_g106793_ (let () (declare (not safe)) (##length _g106794_)))) + (cond ((let () (declare (not safe)) (##fx= _g106793_ 1)) + (apply spawn-thread__0 _g106794_)) + ((let () (declare (not safe)) (##fx= _g106793_ 2)) + (apply spawn-thread__1 _g106794_)) + ((let () (declare (not safe)) (##fx= _g106793_ 3)) + (apply spawn-thread__% _g106794_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g107456_)))))) + _g106794_)))))) (define thread-local-ref__% - (lambda (_%key107295%_ _%default107296%_) - (let ((_%tab107298%_ - (let () (declare (not safe)) (thread-local-table)))) + (lambda (_%key106633%_ _%default106634%_) + (let ((_%tab106636%_ (thread-local-table))) (declare (not safe)) - (hash-ref__% _%tab107298%_ _%key107295%_ _%default107296%_)))) + (hash-ref__% _%tab106636%_ _%key106633%_ _%default106634%_)))) (define thread-local-ref__0 - (lambda (_%key107303%_) - (let ((_%default107305%_ absent-obj)) - (declare (not safe)) - (thread-local-ref__% _%key107303%_ _%default107305%_)))) + (lambda (_%key106641%_) + (let ((_%default106643%_ absent-obj)) + (thread-local-ref__% _%key106641%_ _%default106643%_)))) (define thread-local-ref - (lambda _g107458_ - (let ((_g107457_ (let () (declare (not safe)) (##length _g107458_)))) - (cond ((let () (declare (not safe)) (##fx= _g107457_ 1)) - (apply (lambda (_%key107303%_) - (let () - (declare (not safe)) - (thread-local-ref__0 _%key107303%_))) - _g107458_)) - ((let () (declare (not safe)) (##fx= _g107457_ 2)) - (apply (lambda (_%key107307%_ _%default107308%_) - (let () - (declare (not safe)) - (thread-local-ref__% - _%key107307%_ - _%default107308%_))) - _g107458_)) + (lambda _g106796_ + (let ((_g106795_ (let () (declare (not safe)) (##length _g106796_)))) + (cond ((let () (declare (not safe)) (##fx= _g106795_ 1)) + (apply thread-local-ref__0 _g106796_)) + ((let () (declare (not safe)) (##fx= _g106795_ 2)) + (apply thread-local-ref__% _g106796_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g107458_)))))) + _g106796_)))))) (define thread-local-get - (lambda (_%key107292%_) - (let () (declare (not safe)) (thread-local-ref__% _%key107292%_ '#f)))) + (lambda (_%key106630%_) (thread-local-ref__% _%key106630%_ '#f))) (define thread-local-set! - (lambda (_%key107287%_ _%value107288%_) - (let ((_%tab107290%_ - (let () (declare (not safe)) (thread-local-table)))) + (lambda (_%key106625%_ _%value106626%_) + (let ((_%tab106628%_ (thread-local-table))) (declare (not safe)) - (hash-put! _%tab107290%_ _%key107287%_ _%value107288%_)))) + (hash-put! _%tab106628%_ _%key106625%_ _%value106626%_)))) (define thread-local-delete! - (lambda (_%key107283%_) - (let ((_%tab107285%_ - (let () (declare (not safe)) (thread-local-table)))) + (lambda (_%key106621%_) + (let ((_%tab106623%_ (thread-local-table))) (declare (not safe)) - (hash-remove! _%tab107285%_ _%key107283%_)))) + (hash-remove! _%tab106623%_ _%key106621%_)))) (define thread-local-table (lambda () - (let ((_%thr107264%_ (current-thread))) - (if (actor-thread? _%thr107264%_) - (let ((_%$e107267%_ (actor-thread-locals _%thr107264%_))) - (if _%$e107267%_ - (values _%$e107267%_) - (let ((_%tab107271%_ + (let ((_%thr106602%_ (current-thread))) + (if (actor-thread? _%thr106602%_) + (let ((_%$e106605%_ (actor-thread-locals _%thr106602%_))) + (if _%$e106605%_ + (values _%$e106605%_) + (let ((_%tab106609%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (actor-thread-locals-set! _%thr107264%_ _%tab107271%_) - _%tab107271%_))) - (if (eq? _%thr107264%_ ##primordial-thread) - (let () __primordial-thread-locals) + (actor-thread-locals-set! _%thr106602%_ _%tab106609%_) + _%tab106609%_))) + (if (eq? _%thr106602%_ ##primordial-thread) + __primordial-thread-locals (let () (mutex-lock! __thread-locals-mutex) - (let ((_%$e107275%_ + (let ((_%$e106613%_ (let () (declare (not safe)) - (hash-get __thread-locals _%thr107264%_)))) - (if _%$e107275%_ - ((lambda (_%tab107278%_) + (hash-get __thread-locals _%thr106602%_)))) + (if _%$e106613%_ + ((lambda (_%tab106616%_) (mutex-unlock! __thread-locals-mutex) - _%tab107278%_) - _%$e107275%_) - (let ((_%tab107281%_ + _%tab106616%_) + _%$e106613%_) + (let ((_%tab106619%_ (let () (declare (not safe)) (make-hash-table-eq)))) @@ -264,10 +208,10 @@ (declare (not safe)) (hash-put! __thread-locals - _%thr107264%_ - _%tab107281%_)) + _%thr106602%_ + _%tab106619%_)) (mutex-unlock! __thread-locals-mutex) - _%tab107281%_))))))))) + _%tab106619%_))))))))) (define __primordial-thread-locals (let () (declare (not safe)) (make-hash-table-eq))) (define __thread-locals @@ -275,286 +219,239 @@ (define __thread-locals-mutex (make-mutex 'thread-locals)) (define __unhandled-actor-exception-hook '#f) (define unhandled-actor-exception-hook-set! - (lambda (_%proc107261%_) - (if (let () (declare (not safe)) (procedure? _%proc107261%_)) + (lambda (_%proc106599%_) + (if (procedure? _%proc106599%_) '#!void - (let ((__tmp107459 - (let ((__obj107450 + (let ((__tmp106797 + (let ((__obj106788 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj107450 + __obj106788 '"Bad argument; expected procedure or #f" 'where: 'unhandler-actor-exception-hook-set! 'irritants: - (cons _%proc107261%_ '())) - __obj107450))) + (cons _%proc106599%_ '())) + __obj106788))) (declare (not safe)) - (raise __tmp107459))) - (set! __unhandled-actor-exception-hook _%proc107261%_))) + (raise __tmp106797))) + (set! __unhandled-actor-exception-hook _%proc106599%_))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_%mx107235%_ _%proc107236%_) - (let () - (if (let () (declare (not safe)) (mutex? _%mx107235%_)) - (let ((_%mx107240%_ _%mx107235%_)) - (if (let () (declare (not safe)) (procedure? _%proc107236%_)) - (let ((_%proc107250%_ _%proc107236%_)) - (declare (not safe)) - (__with-lock _%mx107240%_ _%proc107250%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/thread.ss\"@126.32-126.36" - 'contract: - 'procedure? - 'value: - _%proc107236%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/thread.ss\"@126.18-126.20" - 'contract: - 'mutex? - 'value: - _%mx107235%_) - '#!void))))) + (lambda (_%mx106573%_ _%proc106574%_) + (if (mutex? _%mx106573%_) + (let ((_%mx106578%_ _%mx106573%_)) + (if (procedure? _%proc106574%_) + (let ((_%proc106588%_ _%proc106574%_)) + (__with-lock _%mx106578%_ _%proc106588%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/thread.ss\"@126.32-126.36" + 'contract: + 'procedure? + 'value: + _%proc106574%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/thread.ss\"@126.18-126.20" + 'contract: + 'mutex? + 'value: + _%mx106573%_) + '#!void)))) (define __with-lock - (lambda (_%mx107206%_ _%proc107207%_) - (let ((_%mx107210%_ _%mx107206%_)) - (let* ((_%proc107218%_ _%proc107207%_) - (_%handler107227%_ (current-exception-handler))) - (let ((__tmp107461 - (lambda (_%e107229%_) - (let ((__tmp107462 - (lambda () - (mutex-unlock! _%mx107210%_) - (let () - (declare (not safe)) - (_%handler107227%_ _%e107229%_))))) - (declare (not safe)) - (__with-catch void __tmp107462)) - (let () - (declare (not safe)) - (##thread-end-with-uncaught-exception! _%e107229%_)))) - (__tmp107460 - (lambda () - (mutex-lock! _%mx107210%_) - (let ((_%result107233%_ - (let () (declare (not safe)) (_%proc107218%_)))) - (mutex-unlock! _%mx107210%_) - _%result107233%_)))) - (declare (not safe)) - (__with-exception-handler __tmp107461 __tmp107460)))))) + (lambda (_%mx106544%_ _%proc106545%_) + (let* ((_%mx106548%_ _%mx106544%_) + (_%proc106556%_ _%proc106545%_) + (_%handler106565%_ (current-exception-handler))) + (let ((__tmp106799 + (lambda (_%e106567%_) + (let ((__tmp106800 + (lambda () + (mutex-unlock! _%mx106548%_) + (let () + (declare (not safe)) + (_%handler106565%_ _%e106567%_))))) + (declare (not safe)) + (__with-catch void __tmp106800)) + (let () + (declare (not safe)) + (##thread-end-with-uncaught-exception! _%e106567%_)))) + (__tmp106798 + (lambda () + (mutex-lock! _%mx106548%_) + (let ((_%result106571%_ + (let () (declare (not safe)) (_%proc106556%_)))) + (mutex-unlock! _%mx106548%_) + _%result106571%_)))) + (declare (not safe)) + (__with-exception-handler __tmp106799 __tmp106798))))) (define with-dynamic-lock - (lambda (_%mx107181%_ _%proc107182%_) - (let () - (if (let () (declare (not safe)) (mutex? _%mx107181%_)) - (let ((_%mx107186%_ _%mx107181%_)) - (if (let () (declare (not safe)) (procedure? _%proc107182%_)) - (let ((_%proc107196%_ _%proc107182%_)) - (declare (not safe)) - (__with-dynamic-lock _%mx107186%_ _%proc107196%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/thread.ss\"@142.40-142.44" - 'contract: - 'procedure? - 'value: - _%proc107182%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/thread.ss\"@142.26-142.28" - 'contract: - 'mutex? - 'value: - _%mx107181%_) - '#!void))))) + (lambda (_%mx106519%_ _%proc106520%_) + (if (mutex? _%mx106519%_) + (let ((_%mx106524%_ _%mx106519%_)) + (if (procedure? _%proc106520%_) + (let ((_%proc106534%_ _%proc106520%_)) + (__with-dynamic-lock _%mx106524%_ _%proc106534%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/thread.ss\"@142.40-142.44" + 'contract: + 'procedure? + 'value: + _%proc106520%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/thread.ss\"@142.26-142.28" + 'contract: + 'mutex? + 'value: + _%mx106519%_) + '#!void)))) (define __with-dynamic-lock - (lambda (_%mx107158%_ _%proc107159%_) - (let () - (let* ((_%mx107162%_ _%mx107158%_) (_%proc107170%_ _%proc107159%_)) - (let ((__tmp107464 (lambda () (mutex-lock! _%mx107162%_))) - (__tmp107463 (lambda () (mutex-unlock! _%mx107162%_)))) - (declare (not safe)) - (##dynamic-wind __tmp107464 _%proc107170%_ __tmp107463)))))) + (lambda (_%mx106496%_ _%proc106497%_) + (let* ((_%mx106500%_ _%mx106496%_) (_%proc106508%_ _%proc106497%_)) + (let ((__tmp106802 (lambda () (mutex-lock! _%mx106500%_))) + (__tmp106801 (lambda () (mutex-unlock! _%mx106500%_)))) + (declare (not safe)) + (##dynamic-wind __tmp106802 _%proc106508%_ __tmp106801))))) (define with-exception-stack-trace__% - (lambda (_%thunk107123%_ _%error-port107124%_) - (let () - (if (let () (declare (not safe)) (procedure? _%thunk107123%_)) - (let ((_%thunk107128%_ _%thunk107123%_)) - (if (let () (declare (not safe)) (port? _%error-port107124%_)) - (let ((_%error-port107138%_ _%error-port107124%_)) - (declare (not safe)) - (__with-exception-stack-trace__% - _%thunk107128%_ - _%error-port107138%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/thread.ss\"@150.35-150.45" - 'contract: - 'port? - 'value: - _%error-port107124%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/thread.ss\"@149.35-149.40" - 'contract: - 'procedure? - 'value: - _%thunk107123%_) - '#!void))))) + (lambda (_%thunk106461%_ _%error-port106462%_) + (if (procedure? _%thunk106461%_) + (let ((_%thunk106466%_ _%thunk106461%_)) + (if (port? _%error-port106462%_) + (let ((_%error-port106476%_ _%error-port106462%_)) + (__with-exception-stack-trace__% + _%thunk106466%_ + _%error-port106476%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/thread.ss\"@150.35-150.45" + 'contract: + 'port? + 'value: + _%error-port106462%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/thread.ss\"@149.35-149.40" + 'contract: + 'procedure? + 'value: + _%thunk106461%_) + '#!void)))) (define with-exception-stack-trace__0 - (lambda (_%thunk107151%_) - (let ((_%error-port107153%_ (current-error-port))) - (declare (not safe)) + (lambda (_%thunk106489%_) + (let ((_%error-port106491%_ (current-error-port))) (with-exception-stack-trace__% - _%thunk107151%_ - _%error-port107153%_)))) + _%thunk106489%_ + _%error-port106491%_)))) (define with-exception-stack-trace - (lambda _g107466_ - (let ((_g107465_ (let () (declare (not safe)) (##length _g107466_)))) - (cond ((let () (declare (not safe)) (##fx= _g107465_ 1)) - (apply (lambda (_%thunk107151%_) - (let () - (declare (not safe)) - (with-exception-stack-trace__0 _%thunk107151%_))) - _g107466_)) - ((let () (declare (not safe)) (##fx= _g107465_ 2)) - (apply (lambda (_%thunk107155%_ _%error-port107156%_) - (let () - (declare (not safe)) - (with-exception-stack-trace__% - _%thunk107155%_ - _%error-port107156%_))) - _g107466_)) + (lambda _g106804_ + (let ((_g106803_ (let () (declare (not safe)) (##length _g106804_)))) + (cond ((let () (declare (not safe)) (##fx= _g106803_ 1)) + (apply with-exception-stack-trace__0 _g106804_)) + ((let () (declare (not safe)) (##fx= _g106803_ 2)) + (apply with-exception-stack-trace__% _g106804_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g107466_)))))) + _g106804_)))))) (define __with-exception-stack-trace__% - (lambda (_%thunk107084%_ _%error-port107085%_) - (let ((_%thunk107088%_ _%thunk107084%_)) - (let* ((_%error-port107097%_ _%error-port107085%_) - (__tmp107467 - (let ((_%E107106%_ (current-exception-handler))) - (lambda (_%exn107108%_) - (let ((__tmp107468 - (lambda (_%cont107110%_) - (if (let () - (declare (not safe)) - (dump-stack-trace?)) - (let () - (declare (not safe)) - (dump-stack-trace!__% - _%cont107110%_ - _%exn107108%_ - _%error-port107097%_)) - '#!void) - (let () - (declare (not safe)) - (_%E107106%_ _%exn107108%_))))) - (declare (not safe)) - (##continuation-capture __tmp107468)))))) - (declare (not safe)) - (__with-exception-handler __tmp107467 _%thunk107088%_))))) - (define __with-exception-stack-trace__0 - (lambda (_%thunk107115%_) - (let ((_%error-port107117%_ (current-error-port))) + (lambda (_%thunk106422%_ _%error-port106423%_) + (let* ((_%thunk106426%_ _%thunk106422%_) + (_%error-port106435%_ _%error-port106423%_) + (__tmp106805 + (let ((_%E106444%_ (current-exception-handler))) + (lambda (_%exn106446%_) + (let ((__tmp106806 + (lambda (_%cont106448%_) + (if (let () + (declare (not safe)) + (dump-stack-trace?)) + (dump-stack-trace!__% + _%cont106448%_ + _%exn106446%_ + _%error-port106435%_) + '#!void) + (let () + (declare (not safe)) + (_%E106444%_ _%exn106446%_))))) + (declare (not safe)) + (##continuation-capture __tmp106806)))))) (declare (not safe)) + (__with-exception-handler __tmp106805 _%thunk106426%_)))) + (define __with-exception-stack-trace__0 + (lambda (_%thunk106453%_) + (let ((_%error-port106455%_ (current-error-port))) (__with-exception-stack-trace__% - _%thunk107115%_ - _%error-port107117%_)))) + _%thunk106453%_ + _%error-port106455%_)))) (define __with-exception-stack-trace - (lambda _g107470_ - (let ((_g107469_ (let () (declare (not safe)) (##length _g107470_)))) - (cond ((let () (declare (not safe)) (##fx= _g107469_ 1)) - (apply (lambda (_%thunk107115%_) - (let () - (declare (not safe)) - (__with-exception-stack-trace__0 _%thunk107115%_))) - _g107470_)) - ((let () (declare (not safe)) (##fx= _g107469_ 2)) - (apply (lambda (_%thunk107119%_ _%error-port107120%_) - (let () - (declare (not safe)) - (__with-exception-stack-trace__% - _%thunk107119%_ - _%error-port107120%_))) - _g107470_)) + (lambda _g106808_ + (let ((_g106807_ (let () (declare (not safe)) (##length _g106808_)))) + (cond ((let () (declare (not safe)) (##fx= _g106807_ 1)) + (apply __with-exception-stack-trace__0 _g106808_)) + ((let () (declare (not safe)) (##fx= _g106807_ 2)) + (apply __with-exception-stack-trace__% _g106808_)) (else (##raise-wrong-number-of-arguments-exception __with-exception-stack-trace - _g107470_)))))) + _g106808_)))))) (define dump-stack-trace!__% - (lambda (_%cont107065%_ _%exn107066%_ _%error-port107067%_) - (let ((_%out107069%_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _%out107069%_)) - (display '"*** Unhandled exception in " _%out107069%_) - (display (current-thread) _%out107069%_) - (newline _%out107069%_) - (display-exception _%exn107066%_ _%out107069%_) + (lambda (_%cont106403%_ _%exn106404%_ _%error-port106405%_) + (let ((_%out106407%_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _%out106407%_)) + (display '"*** Unhandled exception in " _%out106407%_) + (display (current-thread) _%out106407%_) + (newline _%out106407%_) + (display-exception _%exn106404%_ _%out106407%_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn107066%_)) + (class-instance? StackTrace::t _%exn106404%_)) '#!void (begin - (display '"Continuation backtrace: " _%out107069%_) - (newline _%out107069%_) - (display-continuation-backtrace _%cont107065%_ _%out107069%_))) - (let ((__tmp107471 (get-output-string _%out107069%_))) + (display '"Continuation backtrace: " _%out106407%_) + (newline _%out106407%_) + (display-continuation-backtrace _%cont106403%_ _%out106407%_))) + (let ((__tmp106809 (get-output-string _%out106407%_))) (declare (not safe)) - (##write-string __tmp107471 _%error-port107067%_))))) + (##write-string __tmp106809 _%error-port106405%_))))) (define dump-stack-trace!__0 - (lambda (_%cont107074%_ _%exn107075%_) - (let ((_%error-port107077%_ (current-error-port))) - (declare (not safe)) + (lambda (_%cont106412%_ _%exn106413%_) + (let ((_%error-port106415%_ (current-error-port))) (dump-stack-trace!__% - _%cont107074%_ - _%exn107075%_ - _%error-port107077%_)))) + _%cont106412%_ + _%exn106413%_ + _%error-port106415%_)))) (define dump-stack-trace! - (lambda _g107473_ - (let ((_g107472_ (let () (declare (not safe)) (##length _g107473_)))) - (cond ((let () (declare (not safe)) (##fx= _g107472_ 2)) - (apply (lambda (_%cont107074%_ _%exn107075%_) - (let () - (declare (not safe)) - (dump-stack-trace!__0 - _%cont107074%_ - _%exn107075%_))) - _g107473_)) - ((let () (declare (not safe)) (##fx= _g107472_ 3)) - (apply (lambda (_%cont107079%_ - _%exn107080%_ - _%error-port107081%_) - (let () - (declare (not safe)) - (dump-stack-trace!__% - _%cont107079%_ - _%exn107080%_ - _%error-port107081%_))) - _g107473_)) + (lambda _g106811_ + (let ((_g106810_ (let () (declare (not safe)) (##length _g106811_)))) + (cond ((let () (declare (not safe)) (##fx= _g106810_ 2)) + (apply dump-stack-trace!__0 _g106811_)) + ((let () (declare (not safe)) (##fx= _g106810_ 3)) + (apply dump-stack-trace!__% _g106811_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g107473_)))))) + _g106811_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/util.ssxi.ss b/src/bootstrap/gerbil/runtime/util.ssxi.ss index 44b49ba0b..5a6098f30 100644 --- a/src/bootstrap/gerbil/runtime/util.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/util.ssxi.ss @@ -7,13 +7,31 @@ package: gerbil/runtime (@lambda (0) #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type display* (@lambda (0) #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type file-newer? (@lambda 2 @@ -26,13 +44,24 @@ package: gerbil/runtime arguments: (string::t string::t) unchecked: - __file-newer?))) + __file-newer? + origin: + gerbil/runtime/util))) (declare-type __file-newer? (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type create-directory*__% (@lambda 2 @@ -45,47 +74,112 @@ package: gerbil/runtime arguments: (string::t fixnum::t) unchecked: - __create-directory*))) + __create-directory* + origin: + gerbil/runtime/util))) (declare-type create-directory*__0 (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type create-directory* (@case-lambda (1 create-directory*__0 signature: - (return: void::t effect: #f arguments: #f unchecked: #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (2 create-directory*__% signature: - (return: void::t effect: #f arguments: #f unchecked: #f)))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type __create-directory*__% (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __create-directory*__0 (@lambda 1 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __create-directory* (@case-lambda (1 __create-directory*__0 signature: - (return: void::t effect: #f arguments: #f unchecked: #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (2 __create-directory*__% signature: - (return: void::t effect: #f arguments: #f unchecked: #f)))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type absent-value (optimizer-resolve-class '(typedecl absent-value) 'vector::t)) @@ -94,7 +188,16 @@ package: gerbil/runtime (@lambda (0) #f signature: - (return: true::t effect: #f arguments: #f unchecked: #f))) + (return: + true::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-inline-rule! true (ast-rules @@ -106,7 +209,16 @@ package: gerbil/runtime (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-inline-rule! true? (ast-rules (%#call) ((%#call _ arg) (%#call (%#ref eq?) arg (%#quote #t))))) @@ -115,7 +227,16 @@ package: gerbil/runtime (@lambda (0) #f signature: - (return: false::t effect: #f arguments: #f unchecked: #f))) + (return: + false::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-inline-rule! false (ast-rules @@ -127,7 +248,16 @@ package: gerbil/runtime (@lambda (0) #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-inline-rule! void (ast-rules @@ -139,7 +269,16 @@ package: gerbil/runtime (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-inline-rule! void? (ast-rules @@ -150,49 +289,121 @@ package: gerbil/runtime (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type dssl-key-object? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type dssl-rest-object? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type dssl-optional-object? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type immediate? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type nonnegative-fixnum? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type pair-or-null? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type values-count (@lambda 1 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-inline-rule! values-count (lambda (ast) @@ -219,19 +430,39 @@ package: gerbil/runtime arguments: (t::t fixnum::t) unchecked: - __values-ref))) + __values-ref + origin: + gerbil/runtime/util))) (declare-type __values-ref (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type values->list (@lambda 1 #f signature: - (return: list::t effect: #f arguments: #f unchecked: #f))) + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-inline-rule! values->list (lambda (ast) @@ -258,13 +489,24 @@ package: gerbil/runtime arguments: (procedure::t t::t t::t) unchecked: - __foldl1))) + __foldl1 + origin: + gerbil/runtime/util))) (declare-type __foldl1 (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type foldl2 (@lambda 4 @@ -277,19 +519,66 @@ package: gerbil/runtime arguments: (procedure::t t::t t::t t::t) unchecked: - __foldl2))) + __foldl2 + origin: + gerbil/runtime/util))) (declare-type __foldl2 (@lambda 4 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type foldl (@case-lambda - (3 foldl1 signature: (return: t::t effect: #f arguments: #f unchecked: #f)) - (4 foldl2 signature: (return: t::t effect: #f arguments: #f unchecked: #f)) - ((4) foldl*))) + (3 + foldl1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (4 + foldl2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + ((4) + foldl* + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type foldl* (@lambda (2) @@ -302,13 +591,24 @@ package: gerbil/runtime arguments: (procedure::t t::t . t::t) unchecked: - __foldl*))) + __foldl* + origin: + gerbil/runtime/util))) (declare-type __foldl* (@lambda (2) #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type foldr1 (@lambda 3 @@ -321,13 +621,24 @@ package: gerbil/runtime arguments: (procedure::t t::t t::t) unchecked: - __foldr1))) + __foldr1 + origin: + gerbil/runtime/util))) (declare-type __foldr1 (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type foldr2 (@lambda 4 @@ -340,19 +651,66 @@ package: gerbil/runtime arguments: (procedure::t t::t t::t t::t) unchecked: - __foldr2))) + __foldr2 + origin: + gerbil/runtime/util))) (declare-type __foldr2 (@lambda 4 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type foldr (@case-lambda - (3 foldr1 signature: (return: t::t effect: #f arguments: #f unchecked: #f)) - (4 foldr2 signature: (return: t::t effect: #f arguments: #f unchecked: #f)) - ((4) foldr*))) + (3 + foldr1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (4 + foldr2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + ((4) + foldr* + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type foldr* (@lambda (2) @@ -365,20 +723,54 @@ package: gerbil/runtime arguments: (procedure::t t::t . t::t) unchecked: - __foldr*))) + __foldr* + origin: + gerbil/runtime/util))) (declare-type __foldr* (@lambda (2) #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type remove-nulls! (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + remove-nulls! + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type append1! (@lambda 2 #f signature: - (return: list::t effect: #f arguments: #f unchecked: #f))) + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type append-reverse-until (@lambda 3 @@ -391,13 +783,24 @@ package: gerbil/runtime arguments: (procedure::t t::t t::t) unchecked: - __append-reverse-until))) + __append-reverse-until + origin: + gerbil/runtime/util))) (declare-type __append-reverse-until (@lambda 3 #f signature: - (return: values::t effect: #f arguments: #f unchecked: #f))) + (return: + values::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type andmap1 (@lambda 2 @@ -410,17 +813,28 @@ package: gerbil/runtime arguments: (procedure::t t::t) unchecked: - __andmap1))) + __andmap1 + origin: + gerbil/runtime/util))) (declare-type __andmap1 (@lambda 2 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) - (declare-type - andmap2 - (@lambda 3 - #f + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + andmap2 + (@lambda 3 + #f signature: (return: boolean::t @@ -429,25 +843,66 @@ package: gerbil/runtime arguments: (procedure::t t::t t::t) unchecked: - __andmap2))) + __andmap2 + origin: + gerbil/runtime/util))) (declare-type __andmap2 (@lambda 3 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type andmap (@case-lambda (2 andmap1 signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f)) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (3 andmap2 signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f)) - ((3) andmap*))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + ((3) + andmap* + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type andmap* (@lambda (1) @@ -460,13 +915,24 @@ package: gerbil/runtime arguments: (procedure::t . t::t) unchecked: - __andmap*))) + __andmap* + origin: + gerbil/runtime/util))) (declare-type __andmap* (@lambda (1) #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type ormap1 (@lambda 2 @@ -479,13 +945,24 @@ package: gerbil/runtime arguments: (procedure::t t::t) unchecked: - __ormap1))) + __ormap1 + origin: + gerbil/runtime/util))) (declare-type __ormap1 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type ormap2 (@lambda 3 @@ -498,19 +975,66 @@ package: gerbil/runtime arguments: (procedure::t t::t t::t) unchecked: - __ormap2))) + __ormap2 + origin: + gerbil/runtime/util))) (declare-type __ormap2 (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type ormap (@case-lambda - (2 ormap1 signature: (return: t::t effect: #f arguments: #f unchecked: #f)) - (3 ormap2 signature: (return: t::t effect: #f arguments: #f unchecked: #f)) - ((3) ormap*))) + (2 + ormap1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (3 + ormap2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + ((3) + ormap* + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type ormap* (@lambda (1) @@ -523,13 +1047,24 @@ package: gerbil/runtime arguments: (procedure::t . t::t) unchecked: - __ormap*))) + __ormap* + origin: + gerbil/runtime/util))) (declare-type __ormap* (@lambda (1) #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type filter-map1 (@lambda 2 @@ -542,13 +1077,24 @@ package: gerbil/runtime arguments: (procedure::t t::t) unchecked: - __filter-map1))) + __filter-map1 + origin: + gerbil/runtime/util))) (declare-type __filter-map1 (@lambda 2 #f signature: - (return: list::t effect: #f arguments: #f unchecked: #f))) + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type filter-map2 (@lambda 3 @@ -561,25 +1107,66 @@ package: gerbil/runtime arguments: (procedure::t t::t t::t) unchecked: - __filter-map2))) + __filter-map2 + origin: + gerbil/runtime/util))) (declare-type __filter-map2 (@lambda 3 #f signature: - (return: list::t effect: #f arguments: #f unchecked: #f))) + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type filter-map (@case-lambda (2 filter-map1 signature: - (return: list::t effect: #f arguments: #f unchecked: #f)) + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (3 filter-map2 signature: - (return: list::t effect: #f arguments: #f unchecked: #f)) - ((3) filter-map*))) + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + ((3) + filter-map* + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type filter-map* (@lambda (1) @@ -592,34 +1179,465 @@ package: gerbil/runtime arguments: (procedure::t . t::t) unchecked: - __filter-map*))) + __filter-map* + origin: + gerbil/runtime/util))) (declare-type __filter-map* (@lambda (1) #f signature: - (return: list::t effect: #f arguments: #f unchecked: #f))) - (declare-type agetq__% (@lambda 3 #f)) - (declare-type agetq__0 (@lambda 2 #f)) - (declare-type agetq (@case-lambda (2 agetq__0) (3 agetq__%))) - (declare-type agetv__% (@lambda 3 #f)) - (declare-type agetv__0 (@lambda 2 #f)) - (declare-type agetv (@case-lambda (2 agetv__0) (3 agetv__%))) - (declare-type aget__% (@lambda 3 #f)) - (declare-type aget__0 (@lambda 2 #f)) - (declare-type aget (@case-lambda (2 aget__0) (3 aget__%))) - (declare-type assgetq (@case-lambda (2 agetq__0) (3 agetq__%))) - (declare-type assgetv (@case-lambda (2 agetv__0) (3 agetv__%))) - (declare-type assget (@case-lambda (2 aget__0) (3 aget__%))) - (declare-type pgetq__% (@lambda 3 #f)) - (declare-type pgetq__0 (@lambda 2 #f)) - (declare-type pgetq (@case-lambda (2 pgetq__0) (3 pgetq__%))) - (declare-type pgetv__% (@lambda 3 #f)) - (declare-type pgetv__0 (@lambda 2 #f)) - (declare-type pgetv (@case-lambda (2 pgetv__0) (3 pgetv__%))) - (declare-type pget__% (@lambda 3 #f)) - (declare-type pget__0 (@lambda 2 #f)) - (declare-type pget (@case-lambda (2 pget__0) (3 pget__%))) + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + agetq__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + agetq__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + agetq + (@case-lambda + (2 + agetq__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (3 + agetq__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) + (declare-type + agetv__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + agetv__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + agetv + (@case-lambda + (2 + agetv__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (3 + agetv__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) + (declare-type + aget__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + aget__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + aget + (@case-lambda + (2 + aget__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (3 + aget__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) + (declare-type + assgetq + (@case-lambda + (2 + agetq__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (3 + agetq__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) + (declare-type + assgetv + (@case-lambda + (2 + agetv__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (3 + agetv__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) + (declare-type + assget + (@case-lambda + (2 + aget__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (3 + aget__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) + (declare-type + pgetq__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + pgetq__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + pgetq + (@case-lambda + (2 + pgetq__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (3 + pgetq__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) + (declare-type + pgetv__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + pgetv__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + pgetv + (@case-lambda + (2 + pgetv__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (3 + pgetv__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) + (declare-type + pget__% + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + pget__0 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + pget + (@case-lambda + (2 + pget__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (3 + pget__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type find (@lambda 2 @@ -632,13 +1650,24 @@ package: gerbil/runtime arguments: (procedure::t t::t) unchecked: - __find))) + __find + origin: + gerbil/runtime/util))) (declare-type __find (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type memf (@lambda 2 @@ -651,16 +1680,69 @@ package: gerbil/runtime arguments: (procedure::t t::t) unchecked: - __memf))) + __memf + origin: + gerbil/runtime/util))) (declare-type __memf (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) - (declare-type remove1 (@lambda 2 #f)) - (declare-type remv1 (@lambda 2 #f)) - (declare-type remq1 (@lambda 2 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + remove1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + remv1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + remq1 + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type remf (@lambda 2 @@ -673,13 +1755,24 @@ package: gerbil/runtime arguments: (procedure::t t::t) unchecked: - __remf))) + __remf + origin: + gerbil/runtime/util))) (declare-type __remf (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type 1+ (@lambda 1 @@ -692,13 +1785,24 @@ package: gerbil/runtime arguments: (number::t) unchecked: - __1+))) + __1+ + origin: + gerbil/runtime/util))) (declare-type __1+ (@lambda 1 #f signature: - (return: number::t effect: #f arguments: #f unchecked: #f))) + (return: + number::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-inline-rule! 1+ (ast-rules (%#call) ((%#call _ arg) (%#call (%#ref +) arg (%#quote 1))))) @@ -714,13 +1818,24 @@ package: gerbil/runtime arguments: (number::t) unchecked: - __1-))) + __1- + origin: + gerbil/runtime/util))) (declare-type __1- (@lambda 1 #f signature: - (return: number::t effect: #f arguments: #f unchecked: #f))) + (return: + number::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-inline-rule! 1- (ast-rules (%#call) ((%#call _ arg) (%#call (%#ref -) arg (%#quote 1))))) @@ -736,13 +1851,24 @@ package: gerbil/runtime arguments: (fixnum::t) unchecked: - __fx1+))) + __fx1+ + origin: + gerbil/runtime/util))) (declare-type __fx1+ (@lambda 1 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-inline-rule! fx1+ (ast-rules (%#call) ((%#call _ arg) (%#call (%#ref fx+) arg (%#quote 1))))) @@ -758,13 +1884,24 @@ package: gerbil/runtime arguments: (fixnum::t) unchecked: - __fx1-))) + __fx1- + origin: + gerbil/runtime/util))) (declare-type __fx1- (@lambda 1 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-inline-rule! fx1- (ast-rules (%#call) ((%#call _ arg) (%#call (%#ref fx-) arg (%#quote 1))))) @@ -780,7 +1917,9 @@ package: gerbil/runtime arguments: (fixnum::t fixnum::t) unchecked: - ##fxarithmetic-shift))) + ##fxarithmetic-shift + origin: + builtin))) (declare-type fx/ (@lambda 2 @@ -793,43 +1932,99 @@ package: gerbil/runtime arguments: (fixnum::t fixnum::t) unchecked: - ##fxquotient))) + ##fxquotient + origin: + builtin))) (declare-type fx>=0? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type fx>0? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type fx=0? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type fx<0? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type fx<=0? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type interned-symbol? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type display-as-string (@lambda 2 @@ -842,64 +2037,216 @@ package: gerbil/runtime arguments: (t::t t::t) unchecked: - __display-as-string))) + __display-as-string + origin: + gerbil/runtime/util))) (declare-type __display-as-string (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) - (declare-type as-string__0 (@lambda 1 #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + as-string__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type as-string__1 (@lambda (0) #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type as-string (@case-lambda - (1 as-string__0) + (1 + as-string__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) ((0) as-string__1 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) - (declare-type make-symbol__0 (@lambda 1 #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) + (declare-type + make-symbol__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type make-symbol__1 (@lambda (0) #f signature: - (return: symbol::t effect: #f arguments: #f unchecked: #f))) + (return: + symbol::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type make-symbol (@case-lambda - (1 make-symbol__0) + (1 + make-symbol__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) ((0) make-symbol__1 signature: - (return: symbol::t effect: #f arguments: #f unchecked: #f)))) - (declare-type make-keyword__0 (@lambda 1 #f)) + (return: + symbol::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) + (declare-type + make-keyword__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type make-keyword__1 (@lambda (0) #f signature: - (return: keyword::t effect: #f arguments: #f unchecked: #f))) + (return: + keyword::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type make-keyword (@case-lambda - (1 make-keyword__0) + (1 + make-keyword__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) ((0) make-keyword__1 signature: - (return: keyword::t effect: #f arguments: #f unchecked: #f)))) + (return: + keyword::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type interned-keyword? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type symbol->keyword (@lambda 1 @@ -912,13 +2259,24 @@ package: gerbil/runtime arguments: (symbol::t) unchecked: - __symbol->keyword))) + __symbol->keyword + origin: + gerbil/runtime/util))) (declare-type __symbol->keyword (@lambda 1 #f signature: - (return: keyword::t effect: #f arguments: #f unchecked: #f))) + (return: + keyword::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type keyword->symbol (@lambda 1 @@ -931,13 +2289,24 @@ package: gerbil/runtime arguments: (keyword::t) unchecked: - __keyword->symbol))) + __keyword->symbol + origin: + gerbil/runtime/util))) (declare-type __keyword->symbol (@lambda 1 #f signature: - (return: symbol::t effect: #f arguments: #f unchecked: #f))) + (return: + symbol::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type bytes->string__% (@lambda 2 @@ -950,47 +2319,112 @@ package: gerbil/runtime arguments: (u8vector::t symbol::t) unchecked: - __bytes->string))) + __bytes->string + origin: + gerbil/runtime/util))) (declare-type bytes->string__0 (@lambda 1 #f signature: - (return: string::t effect: #f arguments: #f unchecked: #f))) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type bytes->string (@case-lambda (1 bytes->string__0 signature: - (return: string::t effect: #f arguments: #f unchecked: #f)) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (2 bytes->string__% signature: - (return: string::t effect: #f arguments: #f unchecked: #f)))) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type __bytes->string__% (@lambda 2 #f signature: - (return: string::t effect: #f arguments: #f unchecked: #f))) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __bytes->string__0 (@lambda 1 #f signature: - (return: string::t effect: #f arguments: #f unchecked: #f))) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __bytes->string (@case-lambda (1 __bytes->string__0 signature: - (return: string::t effect: #f arguments: #f unchecked: #f)) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (2 __bytes->string__% signature: - (return: string::t effect: #f arguments: #f unchecked: #f)))) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type string->bytes__% (@lambda 2 @@ -1003,47 +2437,112 @@ package: gerbil/runtime arguments: (string::t symbol::t) unchecked: - __string->bytes))) + __string->bytes + origin: + gerbil/runtime/util))) (declare-type string->bytes__0 (@lambda 1 #f signature: - (return: u8vector::t effect: #f arguments: #f unchecked: #f))) + (return: + u8vector::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type string->bytes (@case-lambda (1 string->bytes__0 signature: - (return: u8vector::t effect: #f arguments: #f unchecked: #f)) + (return: + u8vector::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (2 string->bytes__% signature: - (return: u8vector::t effect: #f arguments: #f unchecked: #f)))) + (return: + u8vector::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type __string->bytes__% (@lambda 2 #f signature: - (return: u8vector::t effect: #f arguments: #f unchecked: #f))) + (return: + u8vector::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __string->bytes__0 (@lambda 1 #f signature: - (return: u8vector::t effect: #f arguments: #f unchecked: #f))) + (return: + u8vector::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __string->bytes (@case-lambda (1 __string->bytes__0 signature: - (return: u8vector::t effect: #f arguments: #f unchecked: #f)) + (return: + u8vector::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (2 __string->bytes__% signature: - (return: u8vector::t effect: #f arguments: #f unchecked: #f)))) + (return: + u8vector::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type substring->bytes__% (@lambda 4 @@ -1056,47 +2555,112 @@ package: gerbil/runtime arguments: (string::t t::t t::t t::t) unchecked: - __substring->bytes))) + __substring->bytes + origin: + gerbil/runtime/util))) (declare-type substring->bytes__0 (@lambda 3 #f signature: - (return: u8vector::t effect: #f arguments: #f unchecked: #f))) + (return: + u8vector::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type substring->bytes (@case-lambda (3 substring->bytes__0 signature: - (return: u8vector::t effect: #f arguments: #f unchecked: #f)) + (return: + u8vector::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (4 substring->bytes__% signature: - (return: u8vector::t effect: #f arguments: #f unchecked: #f)))) + (return: + u8vector::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type __substring->bytes__% (@lambda 4 #f signature: - (return: u8vector::t effect: #f arguments: #f unchecked: #f))) + (return: + u8vector::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __substring->bytes__0 (@lambda 3 #f signature: - (return: u8vector::t effect: #f arguments: #f unchecked: #f))) + (return: + u8vector::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __substring->bytes (@case-lambda (3 __substring->bytes__0 signature: - (return: u8vector::t effect: #f arguments: #f unchecked: #f)) + (return: + u8vector::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (4 __substring->bytes__% signature: - (return: u8vector::t effect: #f arguments: #f unchecked: #f)))) + (return: + u8vector::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type string-empty? (@lambda 1 @@ -1109,13 +2673,24 @@ package: gerbil/runtime arguments: (string::t) unchecked: - __string-empty?))) + __string-empty? + origin: + gerbil/runtime/util))) (declare-type __string-empty? (@lambda 1 #f signature: - (return: boolean::t effect: #f arguments: #f unchecked: #f))) + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type string-index__% (@lambda 3 @@ -1128,47 +2703,112 @@ package: gerbil/runtime arguments: (string::t char::t t::t) unchecked: - __string-index))) + __string-index + origin: + gerbil/runtime/util))) (declare-type string-index__0 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type string-index (@case-lambda (2 string-index__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (3 string-index__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type __string-index__% (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __string-index__0 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __string-index (@case-lambda (2 __string-index__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (3 __string-index__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type string-rindex__% (@lambda 3 @@ -1181,47 +2821,112 @@ package: gerbil/runtime arguments: (string::t char::t t::t) unchecked: - __string-rindex))) + __string-rindex + origin: + gerbil/runtime/util))) (declare-type string-rindex__0 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type string-rindex (@case-lambda (2 string-rindex__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (3 string-rindex__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type __string-rindex__% (@lambda 3 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __string-rindex__0 (@lambda 2 #f signature: - (return: t::t effect: #f arguments: #f unchecked: #f))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __string-rindex (@case-lambda (2 __string-rindex__0 signature: - (return: t::t effect: #f arguments: #f unchecked: #f)) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (3 __string-rindex__% signature: - (return: t::t effect: #f arguments: #f unchecked: #f)))) + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type string-split (@lambda 2 @@ -1234,19 +2939,39 @@ package: gerbil/runtime arguments: (string::t char::t) unchecked: - __string-split))) + __string-split + origin: + gerbil/runtime/util))) (declare-type __string-split (@lambda 2 #f signature: - (return: list::t effect: #f arguments: #f unchecked: #f))) + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type string-join (@lambda 2 #f signature: - (return: string::t effect: #f arguments: #f unchecked: #f))) + (return: + string::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type read-u8vector__% (@lambda 4 @@ -1259,67 +2984,168 @@ package: gerbil/runtime arguments: (u8vector::t t::t t::t t::t) unchecked: - __read-u8vector))) + __read-u8vector + origin: + gerbil/runtime/util))) (declare-type read-u8vector__0 (@lambda 2 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type read-u8vector__1 (@lambda 3 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type read-u8vector (@case-lambda (2 read-u8vector__0 signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f)) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (3 read-u8vector__1 signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f)) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (4 read-u8vector__% signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f)))) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type __read-u8vector__% (@lambda 4 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __read-u8vector__0 (@lambda 2 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __read-u8vector__1 (@lambda 3 #f signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f))) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __read-u8vector (@case-lambda (2 __read-u8vector__0 signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f)) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (3 __read-u8vector__1 signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f)) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (4 __read-u8vector__% signature: - (return: fixnum::t effect: #f arguments: #f unchecked: #f)))) + (return: + fixnum::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type write-u8vector__% (@lambda 4 @@ -1332,68 +3158,183 @@ package: gerbil/runtime arguments: (u8vector::t t::t t::t t::t) unchecked: - __write-u8vector))) + __write-u8vector + origin: + gerbil/runtime/util))) (declare-type write-u8vector__0 (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type write-u8vector__1 (@lambda 3 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type write-u8vector (@case-lambda (2 write-u8vector__0 signature: - (return: void::t effect: #f arguments: #f unchecked: #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (3 write-u8vector__1 signature: - (return: void::t effect: #f arguments: #f unchecked: #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (4 write-u8vector__% signature: - (return: void::t effect: #f arguments: #f unchecked: #f)))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type __write-u8vector__% (@lambda 4 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __write-u8vector__0 (@lambda 2 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __write-u8vector__1 (@lambda 3 #f signature: - (return: void::t effect: #f arguments: #f unchecked: #f))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) (declare-type __write-u8vector (@case-lambda (2 __write-u8vector__0 signature: - (return: void::t effect: #f arguments: #f unchecked: #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (3 __write-u8vector__1 signature: - (return: void::t effect: #f arguments: #f unchecked: #f)) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) (4 __write-u8vector__% signature: - (return: void::t effect: #f arguments: #f unchecked: #f)))) + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type DBG-printer (optimizer-resolve-class '(typedecl DBG-printer) 'procedure::t)) - (declare-type DBG-helper (@lambda 5 #f))) + (declare-type + DBG-helper + (@lambda 5 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) diff --git a/src/bootstrap/gerbil/runtime/util~0.scm b/src/bootstrap/gerbil/runtime/util~0.scm index e843c28df..a25394337 100644 --- a/src/bootstrap/gerbil/runtime/util~0.scm +++ b/src/bootstrap/gerbil/runtime/util~0.scm @@ -1,3557 +1,2812 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1712533288) + (define gerbil/runtime/util::timestamp 1712573428) (begin (define raise-contract-violation-error error) (set! raise-contract-violation-error raise-contract-violation-error) (define displayln - (lambda _%args86134%_ - (let () (for-each display _%args86134%_) (newline)))) - (define display* - (lambda _%args86131%_ (let () (for-each display _%args86131%_)))) + (lambda _%args85865%_ + (let () (for-each display _%args85865%_) (newline)))) + (define display* (lambda _%args85862%_ (for-each display _%args85862%_))) (define file-newer? - (lambda (_%file186106%_ _%file286107%_) - (let () - (if (let () (declare (not safe)) (string? _%file186106%_)) - (let ((_%file186111%_ _%file186106%_)) - (if (let () (declare (not safe)) (string? _%file286107%_)) - (let ((_%file286121%_ _%file286107%_)) - (declare (not safe)) - (__file-newer? _%file186111%_ _%file286121%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@62.20-62.25" - 'contract: - 'string? - 'value: - _%file286107%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@61.20-61.25" - 'contract: - 'string? - 'value: - _%file186106%_) - '#!void))))) + (lambda (_%file185837%_ _%file285838%_) + (if (string? _%file185837%_) + (let ((_%file185842%_ _%file185837%_)) + (if (string? _%file285838%_) + (let ((_%file285852%_ _%file285838%_)) + (__file-newer? _%file185842%_ _%file285852%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@62.20-62.25" + 'contract: + 'string? + 'value: + _%file285838%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@61.20-61.25" + 'contract: + 'string? + 'value: + _%file185837%_) + '#!void)))) (define __file-newer? - (lambda (_%file186054%_ _%file286055%_) - (let () - (let* ((_%file186058%_ _%file186054%_) - (_%file286066%_ _%file286055%_)) - (letrec ((_%modification-time86075%_ - (lambda (_%file86094%_) - (let ((_%file86097%_ _%file86094%_)) - (declare (not safe)) - (_%__modification-time86076%_ _%file86097%_)))) - (_%__modification-time86076%_ - (lambda (_%file86078%_) - (let () - (let* ((_%file86081%_ _%file86078%_) - (__tmp87875 - (let ((__tmp87876 - (let () - (declare (not safe)) - (##file-info _%file86081%_ '#t)))) - (declare (not safe)) - (##file-info-last-modification-time - __tmp87876)))) - (declare (not safe)) - (##time->seconds __tmp87875)))))) - (let ((__tmp87878 - (let () - (declare (not safe)) - (_%__modification-time86076%_ _%file186058%_))) - (__tmp87877 - (let () - (declare (not safe)) - (_%__modification-time86076%_ _%file286066%_)))) - (declare (not safe)) - (##fl> __tmp87878 __tmp87877))))))) + (lambda (_%file185785%_ _%file285786%_) + (let* ((_%file185789%_ _%file185785%_) (_%file285797%_ _%file285786%_)) + (letrec ((_%modification-time85806%_ + (lambda (_%file85825%_) + (let ((_%file85828%_ _%file85825%_)) + (_%__modification-time85807%_ _%file85828%_)))) + (_%__modification-time85807%_ + (lambda (_%file85809%_) + (let* ((_%file85812%_ _%file85809%_) + (__tmp87606 + (let ((__tmp87607 + (let () + (declare (not safe)) + (##file-info _%file85812%_ '#t)))) + (declare (not safe)) + (##file-info-last-modification-time + __tmp87607)))) + (declare (not safe)) + (##time->seconds __tmp87606))))) + (let ((__tmp87609 (_%__modification-time85807%_ _%file185789%_)) + (__tmp87608 (_%__modification-time85807%_ _%file285797%_))) + (declare (not safe)) + (##fl> __tmp87609 __tmp87608)))))) (define create-directory*__% - (lambda (_%dir86019%_ _%perms86020%_) - (let () - (if (let () (declare (not safe)) (string? _%dir86019%_)) - (let ((_%dir86024%_ _%dir86019%_)) - (if (let () (declare (not safe)) (fixnum? _%perms86020%_)) - (let ((_%perms86034%_ _%perms86020%_)) - (declare (not safe)) - (__create-directory*__% _%dir86024%_ _%perms86034%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@73.26-73.31" - 'contract: - 'fixnum? - 'value: - _%perms86020%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@72.26-72.29" - 'contract: - 'string? - 'value: - _%dir86019%_) - '#!void))))) + (lambda (_%dir85750%_ _%perms85751%_) + (if (string? _%dir85750%_) + (let ((_%dir85755%_ _%dir85750%_)) + (if (fixnum? _%perms85751%_) + (let ((_%perms85765%_ _%perms85751%_)) + (__create-directory*__% _%dir85755%_ _%perms85765%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@73.26-73.31" + 'contract: + 'fixnum? + 'value: + _%perms85751%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@72.26-72.29" + 'contract: + 'string? + 'value: + _%dir85750%_) + '#!void)))) (define create-directory*__0 - (lambda (_%dir86047%_) - (let ((_%perms86049%_ '493)) - (declare (not safe)) - (create-directory*__% _%dir86047%_ _%perms86049%_)))) + (lambda (_%dir85778%_) + (let ((_%perms85780%_ '493)) + (create-directory*__% _%dir85778%_ _%perms85780%_)))) (define create-directory* - (lambda _g87880_ - (let ((_g87879_ (let () (declare (not safe)) (##length _g87880_)))) - (cond ((let () (declare (not safe)) (##fx= _g87879_ 1)) - (apply (lambda (_%dir86047%_) - (let () - (declare (not safe)) - (create-directory*__0 _%dir86047%_))) - _g87880_)) - ((let () (declare (not safe)) (##fx= _g87879_ 2)) - (apply (lambda (_%dir86051%_ _%perms86052%_) - (let () - (declare (not safe)) - (create-directory*__% - _%dir86051%_ - _%perms86052%_))) - _g87880_)) + (lambda _g87611_ + (let ((_g87610_ (let () (declare (not safe)) (##length _g87611_)))) + (cond ((let () (declare (not safe)) (##fx= _g87610_ 1)) + (apply create-directory*__0 _g87611_)) + ((let () (declare (not safe)) (##fx= _g87610_ 2)) + (apply create-directory*__% _g87611_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g87880_)))))) + _g87611_)))))) (define __create-directory*__% - (lambda (_%dir85943%_ _%perms85944%_) - (let () - (let* ((_%dir85947%_ _%dir85943%_) (_%perms85955%_ _%perms85944%_)) - (letrec ((_%create185964%_ - (lambda (_%path85996%_) - (let ((_%path85999%_ _%path85996%_)) - (declare (not safe)) - (_%__create185965%_ _%path85999%_)))) - (_%__create185965%_ - (lambda (_%path85977%_) - (let ((_%path85980%_ _%path85977%_)) - (if (let () - (declare (not safe)) - (##file-exists? _%path85980%_)) - (let () - (if (eq? (file-type _%path85980%_) 'directory) - '#!void - (error '"Path component is not a directory" - _%path85980%_))) - (if _%perms85955%_ - (let () - (create-directory - (cons 'path: - (cons _%path85980%_ - (cons 'permissions: - (cons _%perms85955%_ - '())))))) - (let () - (create-directory _%path85980%_)))))))) - (if (let () (declare (not safe)) (##file-exists? _%dir85947%_)) - '#!void - (let _%lp85967%_ ((_%start85969%_ '0)) - (let ((_%$e85971%_ - (let () - (declare (not safe)) - (__string-index - _%dir85947%_ - '#\/ - _%start85969%_)))) - (if _%$e85971%_ - ((lambda (_%x85974%_) - (if (let () - (declare (not safe)) - (##fx> _%x85974%_ '0)) - (let ((__tmp87881 - (substring - _%dir85947%_ - '0 - _%x85974%_))) - (declare (not safe)) - (_%__create185965%_ __tmp87881)) - '#!void) - (let ((__tmp87882 - (let () - (declare (not safe)) - (##fx+ _%x85974%_ '1)))) - (declare (not safe)) - (_%lp85967%_ __tmp87882))) - _%$e85971%_) - (let () - (declare (not safe)) - (_%__create185965%_ _%dir85947%_)))))) - '#!void))))) + (lambda (_%dir85674%_ _%perms85675%_) + (let* ((_%dir85678%_ _%dir85674%_) (_%perms85686%_ _%perms85675%_)) + (letrec ((_%create185695%_ + (lambda (_%path85727%_) + (let ((_%path85730%_ _%path85727%_)) + (_%__create185696%_ _%path85730%_)))) + (_%__create185696%_ + (lambda (_%path85708%_) + (let ((_%path85711%_ _%path85708%_)) + (if (let () + (declare (not safe)) + (##file-exists? _%path85711%_)) + (if (eq? (file-type _%path85711%_) 'directory) + '#!void + (error '"Path component is not a directory" + _%path85711%_)) + (if _%perms85686%_ + (create-directory + (cons 'path: + (cons _%path85711%_ + (cons 'permissions: + (cons _%perms85686%_ + '()))))) + (create-directory _%path85711%_))))))) + (if (let () (declare (not safe)) (##file-exists? _%dir85678%_)) + '#!void + (let _%lp85698%_ ((_%start85700%_ '0)) + (let ((_%$e85702%_ + (let () + (declare (not safe)) + (__string-index _%dir85678%_ '#\/ _%start85700%_)))) + (if _%$e85702%_ + ((lambda (_%x85705%_) + (if (let () + (declare (not safe)) + (##fx> _%x85705%_ '0)) + (_%__create185696%_ + (substring _%dir85678%_ '0 _%x85705%_)) + '#!void) + (_%lp85698%_ + (let () + (declare (not safe)) + (##fx+ _%x85705%_ '1)))) + _%$e85702%_) + (_%__create185696%_ _%dir85678%_))))) + '#!void)))) (define __create-directory*__0 - (lambda (_%dir86011%_) - (let ((_%perms86013%_ '493)) - (declare (not safe)) - (__create-directory*__% _%dir86011%_ _%perms86013%_)))) + (lambda (_%dir85742%_) + (let ((_%perms85744%_ '493)) + (__create-directory*__% _%dir85742%_ _%perms85744%_)))) (define __create-directory* - (lambda _g87884_ - (let ((_g87883_ (let () (declare (not safe)) (##length _g87884_)))) - (cond ((let () (declare (not safe)) (##fx= _g87883_ 1)) - (apply (lambda (_%dir86011%_) - (let () - (declare (not safe)) - (__create-directory*__0 _%dir86011%_))) - _g87884_)) - ((let () (declare (not safe)) (##fx= _g87883_ 2)) - (apply (lambda (_%dir86015%_ _%perms86016%_) - (let () - (declare (not safe)) - (__create-directory*__% - _%dir86015%_ - _%perms86016%_))) - _g87884_)) + (lambda _g87613_ + (let ((_g87612_ (let () (declare (not safe)) (##length _g87613_)))) + (cond ((let () (declare (not safe)) (##fx= _g87612_ 1)) + (apply __create-directory*__0 _g87613_)) + ((let () (declare (not safe)) (##fx= _g87612_ 2)) + (apply __create-directory*__% _g87613_)) (else (##raise-wrong-number-of-arguments-exception __create-directory* - _g87884_)))))) + _g87613_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _%ignore85939%_ (let () '#t))) - (define true? (lambda (_%obj85936%_) (let () (eq? _%obj85936%_ '#t)))) - (define false (lambda _%ignore85933%_ (let () '#f))) - (define void (lambda _%ignore85930%_ (let () '#!void))) - (define void? (lambda (_%obj85927%_) (let () (eq? _%obj85927%_ '#!void)))) + (define true (lambda _%ignore85670%_ '#t)) + (define true? (lambda (_%obj85667%_) (eq? _%obj85667%_ '#t))) + (define false (lambda _%ignore85664%_ '#f)) + (define void (lambda _%ignore85661%_ '#!void)) + (define void? (lambda (_%obj85658%_) (eq? _%obj85658%_ '#!void))) (define dssl-object? - (lambda (_%obj85924%_) - (let () - (if (let () - (declare (not safe)) - (##memq _%obj85924%_ '(#!key #!rest #!optional))) - '#t - '#f)))) - (define dssl-key-object? - (lambda (_%obj85921%_) (let () (eq? _%obj85921%_ '#!key)))) + (lambda (_%obj85655%_) + (if (let () + (declare (not safe)) + (##memq _%obj85655%_ '(#!key #!rest #!optional))) + '#t + '#f))) + (define dssl-key-object? (lambda (_%obj85652%_) (eq? _%obj85652%_ '#!key))) (define dssl-rest-object? - (lambda (_%obj85918%_) (let () (eq? _%obj85918%_ '#!rest)))) + (lambda (_%obj85649%_) (eq? _%obj85649%_ '#!rest))) (define dssl-optional-object? - (lambda (_%obj85915%_) (let () (eq? _%obj85915%_ '#!optional)))) + (lambda (_%obj85646%_) (eq? _%obj85646%_ '#!optional))) (define immediate? - (lambda (_%obj85910%_) - (let () - (let* ((_%t85913%_ - (let () (declare (not safe)) (##type _%obj85910%_))) - (__tmp87885 - (let () (declare (not safe)) (##fxand _%t85913%_ '1)))) - (declare (not safe)) - (##fxzero? __tmp87885))))) + (lambda (_%obj85641%_) + (let* ((_%t85644%_ (let () (declare (not safe)) (##type _%obj85641%_))) + (__tmp87614 + (let () (declare (not safe)) (##fxand _%t85644%_ '1)))) + (declare (not safe)) + (##fxzero? __tmp87614)))) (define nonnegative-fixnum? - (lambda (_%obj85907%_) - (let () - (if (let () (declare (not safe)) (fixnum? _%obj85907%_)) - (let () (declare (not safe)) (##fx>= _%obj85907%_ '0)) - '#f)))) + (lambda (_%obj85638%_) + (if (fixnum? _%obj85638%_) + (let () (declare (not safe)) (##fx>= _%obj85638%_ '0)) + '#f))) (define pair-or-null? - (lambda (_%obj85901%_) - (let ((_%$e85904%_ (let () (declare (not safe)) (pair? _%obj85901%_)))) - (if _%$e85904%_ - _%$e85904%_ - (let () (declare (not safe)) (null? _%obj85901%_)))))) + (lambda (_%obj85632%_) + (let ((_%$e85635%_ (pair? _%obj85632%_))) + (if _%$e85635%_ _%$e85635%_ (null? _%obj85632%_))))) (define values-count - (lambda (_%obj85898%_) - (let () - (if (let () (declare (not safe)) (##values? _%obj85898%_)) - (let () (declare (not safe)) (##vector-length _%obj85898%_)) - '1)))) + (lambda (_%obj85629%_) + (if (let () (declare (not safe)) (##values? _%obj85629%_)) + (let () (declare (not safe)) (##vector-length _%obj85629%_)) + '1))) (define values-ref - (lambda (_%obj85883%_ _%k85884%_) - (let () - (if (let () (declare (not safe)) (fixnum? _%k85884%_)) - (let ((_%k85888%_ _%k85884%_)) - (declare (not safe)) - (__values-ref _%obj85883%_ _%k85888%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@198.23-198.24" - 'contract: - 'fixnum? - 'value: - _%k85884%_) - '#!void))))) + (lambda (_%obj85614%_ _%k85615%_) + (if (fixnum? _%k85615%_) + (let ((_%k85619%_ _%k85615%_)) + (__values-ref _%obj85614%_ _%k85619%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@198.23-198.24" + 'contract: + 'fixnum? + 'value: + _%k85615%_) + '#!void)))) (define __values-ref - (lambda (_%obj85870%_ _%k85871%_) - (let ((_%k85874%_ _%k85871%_)) - (if (let () (declare (not safe)) (##values? _%obj85870%_)) + (lambda (_%obj85601%_ _%k85602%_) + (let ((_%k85605%_ _%k85602%_)) + (if (let () (declare (not safe)) (##values? _%obj85601%_)) (let () (declare (not safe)) - (##vector-ref _%obj85870%_ _%k85874%_)) - _%obj85870%_)))) + (##vector-ref _%obj85601%_ _%k85605%_)) + _%obj85601%_)))) (define values->list - (lambda (_%obj85867%_) - (let () - (if (let () (declare (not safe)) (##values? _%obj85867%_)) - (let () (declare (not safe)) (##vector->list _%obj85867%_)) - (list _%obj85867%_))))) + (lambda (_%obj85598%_) + (if (let () (declare (not safe)) (##values? _%obj85598%_)) + (let () (declare (not safe)) (##vector->list _%obj85598%_)) + (list _%obj85598%_)))) (define foldl1 - (lambda (_%f85851%_ _%iv85852%_ _%lst85853%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f85851%_)) - (let ((_%f85857%_ _%f85851%_)) - (declare (not safe)) - (__foldl1 _%f85857%_ _%iv85852%_ _%lst85853%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@221.15-221.16" - 'contract: - 'procedure? - 'value: - _%f85851%_) - '#!void))))) + (lambda (_%f85582%_ _%iv85583%_ _%lst85584%_) + (if (procedure? _%f85582%_) + (let ((_%f85588%_ _%f85582%_)) + (__foldl1 _%f85588%_ _%iv85583%_ _%lst85584%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@221.15-221.16" + 'contract: + 'procedure? + 'value: + _%f85582%_) + '#!void)))) (define __foldl1 - (lambda (_%f85799%_ _%iv85800%_ _%lst85801%_) - (let ((_%f85804%_ _%f85799%_)) - (let _%lp85813%_ ((_%rest85815%_ _%lst85801%_) - (_%r85816%_ _%iv85800%_)) - (let* ((_%rest8581785825%_ _%rest85815%_) - (_%else8581985833%_ (lambda () _%r85816%_)) - (_%K8582185839%_ - (lambda (_%rest85836%_ _%x85837%_) - (let ((__tmp87886 - (let () - (declare (not safe)) - (_%f85804%_ _%x85837%_ _%r85816%_)))) - (declare (not safe)) - (_%lp85813%_ _%rest85836%_ __tmp87886))))) - (if (let () (declare (not safe)) (##pair? _%rest8581785825%_)) - (let ((_%hd8582285842%_ + (lambda (_%f85530%_ _%iv85531%_ _%lst85532%_) + (let ((_%f85535%_ _%f85530%_)) + (let _%lp85544%_ ((_%rest85546%_ _%lst85532%_) + (_%r85547%_ _%iv85531%_)) + (let* ((_%rest8554885556%_ _%rest85546%_) + (_%else8555085564%_ (lambda () _%r85547%_)) + (_%K8555285570%_ + (lambda (_%rest85567%_ _%x85568%_) + (_%lp85544%_ + _%rest85567%_ + (let () + (declare (not safe)) + (_%f85535%_ _%x85568%_ _%r85547%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8554885556%_)) + (let ((_%hd8555385573%_ (let () (declare (not safe)) - (##car _%rest8581785825%_))) - (_%tl8582385844%_ + (##car _%rest8554885556%_))) + (_%tl8555485575%_ (let () (declare (not safe)) - (##cdr _%rest8581785825%_)))) - (let* ((_%x85847%_ _%hd8582285842%_) - (_%rest85849%_ _%tl8582385844%_)) - (declare (not safe)) - (_%K8582185839%_ _%rest85849%_ _%x85847%_))) - (let () (declare (not safe)) (_%else8581985833%_)))))))) + (##cdr _%rest8554885556%_)))) + (let* ((_%x85578%_ _%hd8555385573%_) + (_%rest85580%_ _%tl8555485575%_)) + (_%K8555285570%_ _%rest85580%_ _%x85578%_))) + (_%else8555085564%_))))))) (define foldl2 - (lambda (_%f85782%_ _%iv85783%_ _%lst185784%_ _%lst285785%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f85782%_)) - (let ((_%f85789%_ _%f85782%_)) - (declare (not safe)) - (__foldl2 _%f85789%_ _%iv85783%_ _%lst185784%_ _%lst285785%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@228.15-228.16" - 'contract: - 'procedure? - 'value: - _%f85782%_) - '#!void))))) + (lambda (_%f85513%_ _%iv85514%_ _%lst185515%_ _%lst285516%_) + (if (procedure? _%f85513%_) + (let ((_%f85520%_ _%f85513%_)) + (__foldl2 _%f85520%_ _%iv85514%_ _%lst185515%_ _%lst285516%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@228.15-228.16" + 'contract: + 'procedure? + 'value: + _%f85513%_) + '#!void)))) (define __foldl2 - (lambda (_%f85695%_ _%iv85696%_ _%lst185697%_ _%lst285698%_) - (let ((_%f85701%_ _%f85695%_)) - (let _%lp85710%_ ((_%rest185712%_ _%lst185697%_) - (_%rest285713%_ _%lst285698%_) - (_%r85714%_ _%iv85696%_)) - (let* ((_%rest18571585723%_ _%rest185712%_) - (_%else8571785731%_ (lambda () _%r85714%_)) - (_%K8571985770%_ - (lambda (_%rest185734%_ _%x185735%_) - (let* ((_%rest28573685744%_ _%rest285713%_) - (_%else8573885752%_ (lambda () _%r85714%_)) - (_%K8574085758%_ - (lambda (_%rest285755%_ _%x285756%_) - (let ((__tmp87887 - (let () - (declare (not safe)) - (_%f85701%_ - _%x185735%_ - _%x285756%_ - _%r85714%_)))) - (declare (not safe)) - (_%lp85710%_ - _%rest185734%_ - _%rest285755%_ - __tmp87887))))) + (lambda (_%f85426%_ _%iv85427%_ _%lst185428%_ _%lst285429%_) + (let ((_%f85432%_ _%f85426%_)) + (let _%lp85441%_ ((_%rest185443%_ _%lst185428%_) + (_%rest285444%_ _%lst285429%_) + (_%r85445%_ _%iv85427%_)) + (let* ((_%rest18544685454%_ _%rest185443%_) + (_%else8544885462%_ (lambda () _%r85445%_)) + (_%K8545085501%_ + (lambda (_%rest185465%_ _%x185466%_) + (let* ((_%rest28546785475%_ _%rest285444%_) + (_%else8546985483%_ (lambda () _%r85445%_)) + (_%K8547185489%_ + (lambda (_%rest285486%_ _%x285487%_) + (_%lp85441%_ + _%rest185465%_ + _%rest285486%_ + (let () + (declare (not safe)) + (_%f85432%_ + _%x185466%_ + _%x285487%_ + _%r85445%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest28573685744%_)) - (let ((_%hd8574185761%_ + (##pair? _%rest28546785475%_)) + (let ((_%hd8547285492%_ (let () (declare (not safe)) - (##car _%rest28573685744%_))) - (_%tl8574285763%_ + (##car _%rest28546785475%_))) + (_%tl8547385494%_ (let () (declare (not safe)) - (##cdr _%rest28573685744%_)))) - (let* ((_%x285766%_ _%hd8574185761%_) - (_%rest285768%_ _%tl8574285763%_)) - (declare (not safe)) - (_%K8574085758%_ _%rest285768%_ _%x285766%_))) - (let () - (declare (not safe)) - (_%else8573885752%_))))))) - (if (let () (declare (not safe)) (##pair? _%rest18571585723%_)) - (let ((_%hd8572085773%_ + (##cdr _%rest28546785475%_)))) + (let* ((_%x285497%_ _%hd8547285492%_) + (_%rest285499%_ _%tl8547385494%_)) + (_%K8547185489%_ _%rest285499%_ _%x285497%_))) + (_%else8546985483%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest18544685454%_)) + (let ((_%hd8545185504%_ (let () (declare (not safe)) - (##car _%rest18571585723%_))) - (_%tl8572185775%_ + (##car _%rest18544685454%_))) + (_%tl8545285506%_ (let () (declare (not safe)) - (##cdr _%rest18571585723%_)))) - (let* ((_%x185778%_ _%hd8572085773%_) - (_%rest185780%_ _%tl8572185775%_)) - (declare (not safe)) - (_%K8571985770%_ _%rest185780%_ _%x185778%_))) - (let () (declare (not safe)) (_%else8571785731%_)))))))) + (##cdr _%rest18544685454%_)))) + (let* ((_%x185509%_ _%hd8545185504%_) + (_%rest185511%_ _%tl8545285506%_)) + (_%K8545085501%_ _%rest185511%_ _%x185509%_))) + (_%else8544885462%_))))))) (define foldl - (lambda _g87889_ - (let ((_g87888_ (let () (declare (not safe)) (##length _g87889_)))) - (cond ((let () (declare (not safe)) (##fx= _g87888_ 3)) - (apply (lambda (_%f85680%_ _%iv85681%_ _%lst85682%_) - (let () - (declare (not safe)) - (foldl1 _%f85680%_ _%iv85681%_ _%lst85682%_))) - _g87889_)) - ((let () (declare (not safe)) (##fx= _g87888_ 4)) - (apply (lambda (_%f85684%_ - _%iv85685%_ - _%lst185686%_ - _%lst285687%_) - (let () - (declare (not safe)) - (foldl2 _%f85684%_ - _%iv85685%_ - _%lst185686%_ - _%lst285687%_))) - _g87889_)) - ((let () (declare (not safe)) (##fx>= _g87888_ 4)) - (apply foldl* _g87889_)) + (lambda _g87616_ + (let ((_g87615_ (let () (declare (not safe)) (##length _g87616_)))) + (cond ((let () (declare (not safe)) (##fx= _g87615_ 3)) + (apply foldl1 _g87616_)) + ((let () (declare (not safe)) (##fx= _g87615_ 4)) + (apply foldl2 _g87616_)) + ((let () (declare (not safe)) (##fx>= _g87615_ 4)) + (apply foldl* _g87616_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g87889_)))))) + _g87616_)))))) (define foldl* - (lambda (_%f85664%_ _%iv85665%_ . _%rest85666%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f85664%_)) - (let ((_%f85670%_ _%f85664%_)) - (declare (not safe)) - (##apply __foldl* _%f85670%_ _%iv85665%_ _%rest85666%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@246.15-246.16" - 'contract: - 'procedure? - 'value: - _%f85664%_) - '#!void))))) + (lambda (_%f85395%_ _%iv85396%_ . _%rest85397%_) + (if (procedure? _%f85395%_) + (let ((_%f85401%_ _%f85395%_)) + (declare (not safe)) + (##apply __foldl* _%f85401%_ _%iv85396%_ _%rest85397%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@246.15-246.16" + 'contract: + 'procedure? + 'value: + _%f85395%_) + '#!void)))) (define __foldl* - (lambda (_%f85642%_ _%iv85643%_ . _%rest85644%_) - (let ((_%f85647%_ _%f85642%_)) - (let _%recur85656%_ ((_%iv85658%_ _%iv85643%_) - (_%rest85659%_ _%rest85644%_)) - (if (let () (declare (not safe)) (__andmap1 pair? _%rest85659%_)) - (let ((__tmp87891 - (let ((__tmp87892 - (let ((__tmp87894 - (lambda (_%xs85661%_ _%r85662%_) - (cons (car _%xs85661%_) _%r85662%_))) - (__tmp87893 (list _%iv85658%_))) - (declare (not safe)) - (__foldr1 - __tmp87894 - __tmp87893 - _%rest85659%_)))) - (declare (not safe)) - (##apply _%f85647%_ __tmp87892))) - (__tmp87890 (map cdr _%rest85659%_))) - (declare (not safe)) - (_%recur85656%_ __tmp87891 __tmp87890)) - _%iv85658%_))))) + (lambda (_%f85373%_ _%iv85374%_ . _%rest85375%_) + (let ((_%f85378%_ _%f85373%_)) + (let _%recur85387%_ ((_%iv85389%_ _%iv85374%_) + (_%rest85390%_ _%rest85375%_)) + (if (__andmap1 pair? _%rest85390%_) + (_%recur85387%_ + (let ((__tmp87617 + (__foldr1 + (lambda (_%xs85392%_ _%r85393%_) + (cons (car _%xs85392%_) _%r85393%_)) + (list _%iv85389%_) + _%rest85390%_))) + (declare (not safe)) + (##apply _%f85378%_ __tmp87617)) + (map cdr _%rest85390%_)) + _%iv85389%_))))) (define foldr1 - (lambda (_%f85626%_ _%iv85627%_ _%lst85628%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f85626%_)) - (let ((_%f85632%_ _%f85626%_)) - (declare (not safe)) - (__foldr1 _%f85632%_ _%iv85627%_ _%lst85628%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@256.15-256.16" - 'contract: - 'procedure? - 'value: - _%f85626%_) - '#!void))))) + (lambda (_%f85357%_ _%iv85358%_ _%lst85359%_) + (if (procedure? _%f85357%_) + (let ((_%f85363%_ _%f85357%_)) + (__foldr1 _%f85363%_ _%iv85358%_ _%lst85359%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@256.15-256.16" + 'contract: + 'procedure? + 'value: + _%f85357%_) + '#!void)))) (define __foldr1 - (lambda (_%f85575%_ _%iv85576%_ _%lst85577%_) - (let ((_%f85580%_ _%f85575%_)) - (let _%recur85589%_ ((_%rest85591%_ _%lst85577%_)) - (let* ((_%rest8559285600%_ _%rest85591%_) - (_%else8559485608%_ (lambda () _%iv85576%_)) - (_%K8559685614%_ - (lambda (_%rest85611%_ _%x85612%_) - (let ((__tmp87895 - (let () - (declare (not safe)) - (_%recur85589%_ _%rest85611%_)))) + (lambda (_%f85306%_ _%iv85307%_ _%lst85308%_) + (let ((_%f85311%_ _%f85306%_)) + (let _%recur85320%_ ((_%rest85322%_ _%lst85308%_)) + (let* ((_%rest8532385331%_ _%rest85322%_) + (_%else8532585339%_ (lambda () _%iv85307%_)) + (_%K8532785345%_ + (lambda (_%rest85342%_ _%x85343%_) + (let ((__tmp87618 (_%recur85320%_ _%rest85342%_))) (declare (not safe)) - (_%f85580%_ _%x85612%_ __tmp87895))))) - (if (let () (declare (not safe)) (##pair? _%rest8559285600%_)) - (let ((_%hd8559785617%_ + (_%f85311%_ _%x85343%_ __tmp87618))))) + (if (let () (declare (not safe)) (##pair? _%rest8532385331%_)) + (let ((_%hd8532885348%_ (let () (declare (not safe)) - (##car _%rest8559285600%_))) - (_%tl8559885619%_ + (##car _%rest8532385331%_))) + (_%tl8532985350%_ (let () (declare (not safe)) - (##cdr _%rest8559285600%_)))) - (let* ((_%x85622%_ _%hd8559785617%_) - (_%rest85624%_ _%tl8559885619%_)) - (declare (not safe)) - (_%K8559685614%_ _%rest85624%_ _%x85622%_))) - (let () (declare (not safe)) (_%else8559485608%_)))))))) + (##cdr _%rest8532385331%_)))) + (let* ((_%x85353%_ _%hd8532885348%_) + (_%rest85355%_ _%tl8532985350%_)) + (_%K8532785345%_ _%rest85355%_ _%x85353%_))) + (_%else8532585339%_))))))) (define foldr2 - (lambda (_%f85558%_ _%iv85559%_ _%lst185560%_ _%lst285561%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f85558%_)) - (let ((_%f85565%_ _%f85558%_)) - (declare (not safe)) - (__foldr2 _%f85565%_ _%iv85559%_ _%lst185560%_ _%lst285561%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@263.15-263.16" - 'contract: - 'procedure? - 'value: - _%f85558%_) - '#!void))))) + (lambda (_%f85289%_ _%iv85290%_ _%lst185291%_ _%lst285292%_) + (if (procedure? _%f85289%_) + (let ((_%f85296%_ _%f85289%_)) + (__foldr2 _%f85296%_ _%iv85290%_ _%lst185291%_ _%lst285292%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@263.15-263.16" + 'contract: + 'procedure? + 'value: + _%f85289%_) + '#!void)))) (define __foldr2 - (lambda (_%f85472%_ _%iv85473%_ _%lst185474%_ _%lst285475%_) - (let ((_%f85478%_ _%f85472%_)) - (let _%recur85487%_ ((_%rest185489%_ _%lst185474%_) - (_%rest285490%_ _%lst285475%_)) - (let* ((_%rest18549185499%_ _%rest185489%_) - (_%else8549385507%_ (lambda () _%iv85473%_)) - (_%K8549585546%_ - (lambda (_%rest185510%_ _%x185511%_) - (let* ((_%rest28551285520%_ _%rest285490%_) - (_%else8551485528%_ (lambda () _%iv85473%_)) - (_%K8551685534%_ - (lambda (_%rest285531%_ _%x285532%_) - (let ((__tmp87896 - (let () - (declare (not safe)) - (_%recur85487%_ - _%rest185510%_ - _%rest285531%_)))) + (lambda (_%f85203%_ _%iv85204%_ _%lst185205%_ _%lst285206%_) + (let ((_%f85209%_ _%f85203%_)) + (let _%recur85218%_ ((_%rest185220%_ _%lst185205%_) + (_%rest285221%_ _%lst285206%_)) + (let* ((_%rest18522285230%_ _%rest185220%_) + (_%else8522485238%_ (lambda () _%iv85204%_)) + (_%K8522685277%_ + (lambda (_%rest185241%_ _%x185242%_) + (let* ((_%rest28524385251%_ _%rest285221%_) + (_%else8524585259%_ (lambda () _%iv85204%_)) + (_%K8524785265%_ + (lambda (_%rest285262%_ _%x285263%_) + (let ((__tmp87619 + (_%recur85218%_ + _%rest185241%_ + _%rest285262%_))) (declare (not safe)) - (_%f85478%_ - _%x185511%_ - _%x285532%_ - __tmp87896))))) + (_%f85209%_ + _%x185242%_ + _%x285263%_ + __tmp87619))))) (if (let () (declare (not safe)) - (##pair? _%rest28551285520%_)) - (let ((_%hd8551785537%_ + (##pair? _%rest28524385251%_)) + (let ((_%hd8524885268%_ (let () (declare (not safe)) - (##car _%rest28551285520%_))) - (_%tl8551885539%_ + (##car _%rest28524385251%_))) + (_%tl8524985270%_ (let () (declare (not safe)) - (##cdr _%rest28551285520%_)))) - (let* ((_%x285542%_ _%hd8551785537%_) - (_%rest285544%_ _%tl8551885539%_)) - (declare (not safe)) - (_%K8551685534%_ _%rest285544%_ _%x285542%_))) - (let () - (declare (not safe)) - (_%else8551485528%_))))))) - (if (let () (declare (not safe)) (##pair? _%rest18549185499%_)) - (let ((_%hd8549685549%_ + (##cdr _%rest28524385251%_)))) + (let* ((_%x285273%_ _%hd8524885268%_) + (_%rest285275%_ _%tl8524985270%_)) + (_%K8524785265%_ _%rest285275%_ _%x285273%_))) + (_%else8524585259%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest18522285230%_)) + (let ((_%hd8522785280%_ (let () (declare (not safe)) - (##car _%rest18549185499%_))) - (_%tl8549785551%_ + (##car _%rest18522285230%_))) + (_%tl8522885282%_ (let () (declare (not safe)) - (##cdr _%rest18549185499%_)))) - (let* ((_%x185554%_ _%hd8549685549%_) - (_%rest185556%_ _%tl8549785551%_)) - (declare (not safe)) - (_%K8549585546%_ _%rest185556%_ _%x185554%_))) - (let () (declare (not safe)) (_%else8549385507%_)))))))) + (##cdr _%rest18522285230%_)))) + (let* ((_%x185285%_ _%hd8522785280%_) + (_%rest185287%_ _%tl8522885282%_)) + (_%K8522685277%_ _%rest185287%_ _%x185285%_))) + (_%else8522485238%_))))))) (define foldr - (lambda _g87898_ - (let ((_g87897_ (let () (declare (not safe)) (##length _g87898_)))) - (cond ((let () (declare (not safe)) (##fx= _g87897_ 3)) - (apply (lambda (_%f85457%_ _%iv85458%_ _%lst85459%_) - (let () - (declare (not safe)) - (foldr1 _%f85457%_ _%iv85458%_ _%lst85459%_))) - _g87898_)) - ((let () (declare (not safe)) (##fx= _g87897_ 4)) - (apply (lambda (_%f85461%_ - _%iv85462%_ - _%lst185463%_ - _%lst285464%_) - (let () - (declare (not safe)) - (foldr2 _%f85461%_ - _%iv85462%_ - _%lst185463%_ - _%lst285464%_))) - _g87898_)) - ((let () (declare (not safe)) (##fx>= _g87897_ 4)) - (apply foldr* _g87898_)) + (lambda _g87621_ + (let ((_g87620_ (let () (declare (not safe)) (##length _g87621_)))) + (cond ((let () (declare (not safe)) (##fx= _g87620_ 3)) + (apply foldr1 _g87621_)) + ((let () (declare (not safe)) (##fx= _g87620_ 4)) + (apply foldr2 _g87621_)) + ((let () (declare (not safe)) (##fx>= _g87620_ 4)) + (apply foldr* _g87621_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g87898_)))))) + _g87621_)))))) (define foldr* - (lambda (_%f85441%_ _%iv85442%_ . _%rest85443%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f85441%_)) - (let ((_%f85447%_ _%f85441%_)) - (declare (not safe)) - (##apply __foldr* _%f85447%_ _%iv85442%_ _%rest85443%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@281.15-281.16" - 'contract: - 'procedure? - 'value: - _%f85441%_) - '#!void))))) + (lambda (_%f85172%_ _%iv85173%_ . _%rest85174%_) + (if (procedure? _%f85172%_) + (let ((_%f85178%_ _%f85172%_)) + (declare (not safe)) + (##apply __foldr* _%f85178%_ _%iv85173%_ _%rest85174%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@281.15-281.16" + 'contract: + 'procedure? + 'value: + _%f85172%_) + '#!void)))) (define __foldr* - (lambda (_%f85420%_ _%iv85421%_ . _%rest85422%_) - (let ((_%f85425%_ _%f85420%_)) - (let _%recur85434%_ ((_%rest85436%_ _%rest85422%_)) - (if (let () (declare (not safe)) (__andmap1 pair? _%rest85436%_)) - (let ((__tmp87899 - (let ((__tmp87902 - (lambda (_%xs85438%_ _%r85439%_) - (cons (car _%xs85438%_) _%r85439%_))) - (__tmp87900 - (list (let ((__tmp87901 (map cdr _%rest85436%_))) - (declare (not safe)) - (_%recur85434%_ __tmp87901))))) - (declare (not safe)) - (__foldr1 __tmp87902 __tmp87900 _%rest85436%_)))) + (lambda (_%f85151%_ _%iv85152%_ . _%rest85153%_) + (let ((_%f85156%_ _%f85151%_)) + (let _%recur85165%_ ((_%rest85167%_ _%rest85153%_)) + (if (__andmap1 pair? _%rest85167%_) + (let ((__tmp87622 + (__foldr1 + (lambda (_%xs85169%_ _%r85170%_) + (cons (car _%xs85169%_) _%r85170%_)) + (list (_%recur85165%_ (map cdr _%rest85167%_))) + _%rest85167%_))) (declare (not safe)) - (##apply _%f85425%_ __tmp87899)) - _%iv85421%_))))) + (##apply _%f85156%_ __tmp87622)) + _%iv85152%_))))) (define remove-nulls! - (lambda (_%l85307%_) - (let* ((_%l8530885321%_ _%l85307%_) - (_%E8531285325%_ + (lambda (_%l85038%_) + (let* ((_%l8503985052%_ _%l85038%_) + (_%E8504385056%_ (lambda () (error '"No clause matching" - _%l8530885321%_ + _%l8503985052%_ '([[] . r]) '([_ . r]) '(_)) '#!void))) - (let ((_%K8531785410%_ - (lambda (_%r85408%_) - (let () (declare (not safe)) (remove-nulls! _%r85408%_)))) - (_%K8531485397%_ - (lambda (_%r85337%_) - (let _%loop85339%_ ((_%l85341%_ _%l85307%_) - (_%r85342%_ _%r85337%_)) - (let* ((_%r8534385356%_ _%r85342%_) - (_%E8534785360%_ + (let ((_%K8504885141%_ + (lambda (_%r85139%_) (remove-nulls! _%r85139%_))) + (_%K8504585128%_ + (lambda (_%r85068%_) + (let _%loop85070%_ ((_%l85072%_ _%l85038%_) + (_%r85073%_ _%r85068%_)) + (let* ((_%r8507485087%_ _%r85073%_) + (_%E8507885091%_ (lambda () (error '"No clause matching" - _%r8534385356%_ + _%r8507485087%_ '([[] . rr]) '([_ . rr]) '(_)) '#!void))) - (let ((_%K8535285387%_ - (lambda (_%rr85385%_) - (let ((__tmp87904 _%l85341%_) - (__tmp87903 - (let () - (declare (not safe)) - (remove-nulls! _%rr85385%_)))) - (declare (not safe)) - (##set-cdr! __tmp87904 __tmp87903)))) - (_%K8534985374%_ - (lambda (_%rr85372%_) - (let () + (let ((_%K8508385118%_ + (lambda (_%rr85116%_) + (let ((__tmp87624 _%l85072%_) + (__tmp87623 (remove-nulls! _%rr85116%_))) (declare (not safe)) - (_%loop85339%_ _%r85342%_ _%rr85372%_)))) - (_%K8534885365%_ (lambda () '#!void))) + (##set-cdr! __tmp87624 __tmp87623)))) + (_%K8508085105%_ + (lambda (_%rr85103%_) + (_%loop85070%_ _%r85073%_ _%rr85103%_))) + (_%K8507985096%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (##pair? _%r8534385356%_)) - (let ((_%tl8535485392%_ + (##pair? _%r8507485087%_)) + (let ((_%tl8508585123%_ (let () (declare (not safe)) - (##cdr _%r8534385356%_))) - (_%hd8535385390%_ + (##cdr _%r8507485087%_))) + (_%hd8508485121%_ (let () (declare (not safe)) - (##car _%r8534385356%_)))) + (##car _%r8507485087%_)))) (if (let () (declare (not safe)) - (##null? _%hd8535385390%_)) - (let ((_%rr85395%_ _%tl8535485392%_)) - (declare (not safe)) - (_%K8535285387%_ _%rr85395%_)) - (let ((_%rr85380%_ _%tl8535485392%_)) - (declare (not safe)) - (_%K8534985374%_ _%rr85380%_)))) + (##null? _%hd8508485121%_)) + (let ((_%rr85126%_ _%tl8508585123%_)) + (_%K8508385118%_ _%rr85126%_)) + (let ((_%rr85111%_ _%tl8508585123%_)) + (_%K8508085105%_ _%rr85111%_)))) '#!void)))) - _%l85307%_)) - (_%K8531385330%_ (lambda () _%l85307%_))) - (if (let () (declare (not safe)) (##pair? _%l8530885321%_)) - (let ((_%tl8531985415%_ - (let () (declare (not safe)) (##cdr _%l8530885321%_))) - (_%hd8531885413%_ - (let () (declare (not safe)) (##car _%l8530885321%_)))) - (if (let () (declare (not safe)) (##null? _%hd8531885413%_)) - (let ((_%r85418%_ _%tl8531985415%_)) - (declare (not safe)) - (remove-nulls! _%r85418%_)) - (let ((_%r85403%_ _%tl8531985415%_)) - (declare (not safe)) - (_%K8531485397%_ _%r85403%_)))) - (let () (declare (not safe)) (_%K8531385330%_))))))) + _%l85038%_)) + (_%K8504485061%_ (lambda () _%l85038%_))) + (if (let () (declare (not safe)) (##pair? _%l8503985052%_)) + (let ((_%tl8505085146%_ + (let () (declare (not safe)) (##cdr _%l8503985052%_))) + (_%hd8504985144%_ + (let () (declare (not safe)) (##car _%l8503985052%_)))) + (if (let () (declare (not safe)) (##null? _%hd8504985144%_)) + (let ((_%r85149%_ _%tl8505085146%_)) + (remove-nulls! _%r85149%_)) + (let ((_%r85134%_ _%tl8505085146%_)) + (_%K8504585128%_ _%r85134%_)))) + (_%K8504485061%_)))))) (define append1! - (lambda (_%l85292%_ _%x85293%_) - (let ((_%l285296%_ (cons _%x85293%_ '()))) - (if (let () (declare (not safe)) (pair? _%l85292%_)) - (let ((_%l85298%_ _%l85292%_)) - (let ((__tmp87905 - (let () (declare (not safe)) (##last-pair _%l85298%_)))) + (lambda (_%l85023%_ _%x85024%_) + (let ((_%l285027%_ (cons _%x85024%_ '()))) + (if (pair? _%l85023%_) + (let ((_%l85029%_ _%l85023%_)) + (let ((__tmp87625 + (let () (declare (not safe)) (##last-pair _%l85029%_)))) (declare (not safe)) - (##set-cdr! __tmp87905 _%l285296%_)) - _%l85298%_) - _%l285296%_)))) + (##set-cdr! __tmp87625 _%l285027%_)) + _%l85029%_) + _%l285027%_)))) (define append-reverse-until - (lambda (_%pred85276%_ _%rhead85277%_ _%tail85278%_) - (let () - (if (let () (declare (not safe)) (procedure? _%pred85276%_)) - (let ((_%pred85282%_ _%pred85276%_)) - (declare (not safe)) - (__append-reverse-until - _%pred85282%_ - _%rhead85277%_ - _%tail85278%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@321.29-321.33" - 'contract: - 'procedure? - 'value: - _%pred85276%_) - '#!void))))) + (lambda (_%pred85007%_ _%rhead85008%_ _%tail85009%_) + (if (procedure? _%pred85007%_) + (let ((_%pred85013%_ _%pred85007%_)) + (__append-reverse-until + _%pred85013%_ + _%rhead85008%_ + _%tail85009%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@321.29-321.33" + 'contract: + 'procedure? + 'value: + _%pred85007%_) + '#!void)))) (define __append-reverse-until - (lambda (_%pred85218%_ _%rhead85219%_ _%tail85220%_) - (let ((_%pred85223%_ _%pred85218%_)) - (let _%loop85232%_ ((_%rhead85234%_ _%rhead85219%_) - (_%tail85235%_ _%tail85220%_)) - (let () - (let* ((_%rhead8523785246%_ _%rhead85234%_) - (_%E8524085250%_ - (lambda () - (error '"No clause matching" - _%rhead8523785246%_ - '([]) - '([a :: r])) - '#!void))) - (let ((_%K8524485273%_ (lambda () (values '() _%tail85235%_))) - (_%K8524185257%_ - (lambda (_%r85254%_ _%a85255%_) + (lambda (_%pred84949%_ _%rhead84950%_ _%tail84951%_) + (let ((_%pred84954%_ _%pred84949%_)) + (let _%loop84963%_ ((_%rhead84965%_ _%rhead84950%_) + (_%tail84966%_ _%tail84951%_)) + (let* ((_%rhead8496884977%_ _%rhead84965%_) + (_%E8497184981%_ + (lambda () + (error '"No clause matching" + _%rhead8496884977%_ + '([]) + '([a :: r])) + '#!void))) + (let ((_%K8497585004%_ (lambda () (values '() _%tail84966%_))) + (_%K8497284988%_ + (lambda (_%r84985%_ _%a84986%_) + (if (let () + (declare (not safe)) + (_%pred84954%_ _%a84986%_)) + (values _%rhead84965%_ _%tail84966%_) + (_%loop84963%_ + _%r84985%_ + (cons _%a84986%_ _%tail84966%_)))))) + (let ((_%try-match8497085000%_ + (lambda () (if (let () (declare (not safe)) - (_%pred85223%_ _%a85255%_)) - (values _%rhead85234%_ _%tail85235%_) - (let ((__tmp87906 - (cons _%a85255%_ _%tail85235%_))) - (declare (not safe)) - (_%loop85232%_ _%r85254%_ __tmp87906)))))) - (let ((_%try-match8523985269%_ - (lambda () - (if (let () - (declare (not safe)) - (##pair? _%rhead8523785246%_)) - (let ((_%tl8524385262%_ - (let () - (declare (not safe)) - (##cdr _%rhead8523785246%_))) - (_%hd8524285260%_ - (let () - (declare (not safe)) - (##car _%rhead8523785246%_)))) - (let ((_%a85265%_ _%hd8524285260%_) - (_%r85267%_ _%tl8524385262%_)) - (let () - (declare (not safe)) - (_%K8524185257%_ _%r85267%_ _%a85265%_)))) - (let () - (declare (not safe)) - (_%E8524085250%_)))))) - (if (let () - (declare (not safe)) - (##null? _%rhead8523785246%_)) - (let () (declare (not safe)) (_%K8524485273%_)) - (let () - (declare (not safe)) - (_%try-match8523985269%_))))))))))) + (##pair? _%rhead8496884977%_)) + (let ((_%tl8497484993%_ + (let () + (declare (not safe)) + (##cdr _%rhead8496884977%_))) + (_%hd8497384991%_ + (let () + (declare (not safe)) + (##car _%rhead8496884977%_)))) + (let ((_%a84996%_ _%hd8497384991%_) + (_%r84998%_ _%tl8497484993%_)) + (_%K8497284988%_ _%r84998%_ _%a84996%_))) + (_%E8497184981%_))))) + (if (let () + (declare (not safe)) + (##null? _%rhead8496884977%_)) + (_%K8497585004%_) + (_%try-match8497085000%_))))))))) (define andmap1 - (lambda (_%f85203%_ _%lst85204%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f85203%_)) - (let ((_%f85208%_ _%f85203%_)) - (declare (not safe)) - (__andmap1 _%f85208%_ _%lst85204%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@332.16-332.17" - 'contract: - 'procedure? - 'value: - _%f85203%_) - '#!void))))) + (lambda (_%f84934%_ _%lst84935%_) + (if (procedure? _%f84934%_) + (let ((_%f84939%_ _%f84934%_)) (__andmap1 _%f84939%_ _%lst84935%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@332.16-332.17" + 'contract: + 'procedure? + 'value: + _%f84934%_) + '#!void)))) (define __andmap1 - (lambda (_%f85152%_ _%lst85153%_) - (let ((_%f85156%_ _%f85152%_)) - (let _%lp85165%_ ((_%rest85167%_ _%lst85153%_)) - (let () - (let* ((_%rest8516985177%_ _%rest85167%_) - (_%else8517185185%_ (lambda () '#t)) - (_%K8517385191%_ - (lambda (_%rest85188%_ _%x85189%_) - (if (let () - (declare (not safe)) - (_%f85156%_ _%x85189%_)) - (let () - (declare (not safe)) - (_%lp85165%_ _%rest85188%_)) - '#f)))) - (if (let () (declare (not safe)) (##pair? _%rest8516985177%_)) - (let ((_%hd8517485194%_ - (let () - (declare (not safe)) - (##car _%rest8516985177%_))) - (_%tl8517585196%_ - (let () - (declare (not safe)) - (##cdr _%rest8516985177%_)))) - (let* ((_%x85199%_ _%hd8517485194%_) - (_%rest85201%_ _%tl8517585196%_)) - (declare (not safe)) - (_%K8517385191%_ _%rest85201%_ _%x85199%_))) - (let () (declare (not safe)) (_%else8517185185%_))))))))) + (lambda (_%f84883%_ _%lst84884%_) + (let ((_%f84887%_ _%f84883%_)) + (let _%lp84896%_ ((_%rest84898%_ _%lst84884%_)) + (let* ((_%rest8490084908%_ _%rest84898%_) + (_%else8490284916%_ (lambda () '#t)) + (_%K8490484922%_ + (lambda (_%rest84919%_ _%x84920%_) + (if (let () (declare (not safe)) (_%f84887%_ _%x84920%_)) + (_%lp84896%_ _%rest84919%_) + '#f)))) + (if (let () (declare (not safe)) (##pair? _%rest8490084908%_)) + (let ((_%hd8490584925%_ + (let () + (declare (not safe)) + (##car _%rest8490084908%_))) + (_%tl8490684927%_ + (let () + (declare (not safe)) + (##cdr _%rest8490084908%_)))) + (let* ((_%x84930%_ _%hd8490584925%_) + (_%rest84932%_ _%tl8490684927%_)) + (_%K8490484922%_ _%rest84932%_ _%x84930%_))) + (_%else8490284916%_))))))) (define andmap2 - (lambda (_%f85136%_ _%lst185137%_ _%lst285138%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f85136%_)) - (let ((_%f85142%_ _%f85136%_)) - (declare (not safe)) - (__andmap2 _%f85142%_ _%lst185137%_ _%lst285138%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@341.16-341.17" - 'contract: - 'procedure? - 'value: - _%f85136%_) - '#!void))))) + (lambda (_%f84867%_ _%lst184868%_ _%lst284869%_) + (if (procedure? _%f84867%_) + (let ((_%f84873%_ _%f84867%_)) + (__andmap2 _%f84873%_ _%lst184868%_ _%lst284869%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@341.16-341.17" + 'contract: + 'procedure? + 'value: + _%f84867%_) + '#!void)))) (define __andmap2 - (lambda (_%f85050%_ _%lst185051%_ _%lst285052%_) - (let ((_%f85055%_ _%f85050%_)) - (let _%lp85064%_ ((_%rest185066%_ _%lst185051%_) - (_%rest285067%_ _%lst285052%_)) - (let () - (let* ((_%rest18506985077%_ _%rest185066%_) - (_%else8507185085%_ (lambda () '#t)) - (_%K8507385124%_ - (lambda (_%rest185088%_ _%x185089%_) - (let* ((_%rest28509085098%_ _%rest285067%_) - (_%else8509285106%_ (lambda () '#t)) - (_%K8509485112%_ - (lambda (_%rest285109%_ _%x285110%_) - (if (let () - (declare (not safe)) - (_%f85055%_ _%x185089%_ _%x285110%_)) - (let () - (declare (not safe)) - (_%lp85064%_ - _%rest185088%_ - _%rest285109%_)) - '#f)))) - (if (let () - (declare (not safe)) - (##pair? _%rest28509085098%_)) - (let ((_%hd8509585115%_ - (let () - (declare (not safe)) - (##car _%rest28509085098%_))) - (_%tl8509685117%_ - (let () - (declare (not safe)) - (##cdr _%rest28509085098%_)))) - (let* ((_%x285120%_ _%hd8509585115%_) - (_%rest285122%_ _%tl8509685117%_)) - (declare (not safe)) - (_%K8509485112%_ - _%rest285122%_ - _%x285120%_))) - (let () - (declare (not safe)) - (_%else8509285106%_))))))) - (if (let () (declare (not safe)) (##pair? _%rest18506985077%_)) - (let ((_%hd8507485127%_ - (let () - (declare (not safe)) - (##car _%rest18506985077%_))) - (_%tl8507585129%_ - (let () - (declare (not safe)) - (##cdr _%rest18506985077%_)))) - (let* ((_%x185132%_ _%hd8507485127%_) - (_%rest185134%_ _%tl8507585129%_)) - (declare (not safe)) - (_%K8507385124%_ _%rest185134%_ _%x185132%_))) - (let () (declare (not safe)) (_%else8507185085%_))))))))) + (lambda (_%f84781%_ _%lst184782%_ _%lst284783%_) + (let ((_%f84786%_ _%f84781%_)) + (let _%lp84795%_ ((_%rest184797%_ _%lst184782%_) + (_%rest284798%_ _%lst284783%_)) + (let* ((_%rest18480084808%_ _%rest184797%_) + (_%else8480284816%_ (lambda () '#t)) + (_%K8480484855%_ + (lambda (_%rest184819%_ _%x184820%_) + (let* ((_%rest28482184829%_ _%rest284798%_) + (_%else8482384837%_ (lambda () '#t)) + (_%K8482584843%_ + (lambda (_%rest284840%_ _%x284841%_) + (if (let () + (declare (not safe)) + (_%f84786%_ _%x184820%_ _%x284841%_)) + (_%lp84795%_ _%rest184819%_ _%rest284840%_) + '#f)))) + (if (let () + (declare (not safe)) + (##pair? _%rest28482184829%_)) + (let ((_%hd8482684846%_ + (let () + (declare (not safe)) + (##car _%rest28482184829%_))) + (_%tl8482784848%_ + (let () + (declare (not safe)) + (##cdr _%rest28482184829%_)))) + (let* ((_%x284851%_ _%hd8482684846%_) + (_%rest284853%_ _%tl8482784848%_)) + (_%K8482584843%_ _%rest284853%_ _%x284851%_))) + (_%else8482384837%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest18480084808%_)) + (let ((_%hd8480584858%_ + (let () + (declare (not safe)) + (##car _%rest18480084808%_))) + (_%tl8480684860%_ + (let () + (declare (not safe)) + (##cdr _%rest18480084808%_)))) + (let* ((_%x184863%_ _%hd8480584858%_) + (_%rest184865%_ _%tl8480684860%_)) + (_%K8480484855%_ _%rest184865%_ _%x184863%_))) + (_%else8480284816%_))))))) (define andmap - (lambda _g87908_ - (let ((_g87907_ (let () (declare (not safe)) (##length _g87908_)))) - (cond ((let () (declare (not safe)) (##fx= _g87907_ 2)) - (apply (lambda (_%f85038%_ _%lst85039%_) - (let () - (declare (not safe)) - (andmap1 _%f85038%_ _%lst85039%_))) - _g87908_)) - ((let () (declare (not safe)) (##fx= _g87907_ 3)) - (apply (lambda (_%f85041%_ _%lst185042%_ _%lst285043%_) - (let () - (declare (not safe)) - (andmap2 _%f85041%_ _%lst185042%_ _%lst285043%_))) - _g87908_)) - ((let () (declare (not safe)) (##fx>= _g87907_ 3)) - (apply andmap* _g87908_)) + (lambda _g87627_ + (let ((_g87626_ (let () (declare (not safe)) (##length _g87627_)))) + (cond ((let () (declare (not safe)) (##fx= _g87626_ 2)) + (apply andmap1 _g87627_)) + ((let () (declare (not safe)) (##fx= _g87626_ 3)) + (apply andmap2 _g87627_)) + ((let () (declare (not safe)) (##fx>= _g87626_ 3)) + (apply andmap* _g87627_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g87908_)))))) + _g87627_)))))) (define andmap* - (lambda (_%f85023%_ . _%rest85024%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f85023%_)) - (let ((_%f85028%_ _%f85023%_)) - (declare (not safe)) - (##apply __andmap* _%f85028%_ _%rest85024%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@361.16-361.17" - 'contract: - 'procedure? - 'value: - _%f85023%_) - '#!void))))) + (lambda (_%f84754%_ . _%rest84755%_) + (if (procedure? _%f84754%_) + (let ((_%f84759%_ _%f84754%_)) + (declare (not safe)) + (##apply __andmap* _%f84759%_ _%rest84755%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@361.16-361.17" + 'contract: + 'procedure? + 'value: + _%f84754%_) + '#!void)))) (define __andmap* - (lambda (_%f85005%_ . _%rest85006%_) - (let ((_%f85009%_ _%f85005%_)) - (let _%recur85018%_ ((_%rest85020%_ _%rest85006%_)) - (let () - (if (let () (declare (not safe)) (__andmap1 pair? _%rest85020%_)) - (if (let ((__tmp87909 (map car _%rest85020%_))) - (declare (not safe)) - (##apply _%f85009%_ __tmp87909)) - (let ((__tmp87910 (map cdr _%rest85020%_))) - (declare (not safe)) - (_%recur85018%_ __tmp87910)) - '#f) - '#t)))))) + (lambda (_%f84736%_ . _%rest84737%_) + (let ((_%f84740%_ _%f84736%_)) + (let _%recur84749%_ ((_%rest84751%_ _%rest84737%_)) + (if (__andmap1 pair? _%rest84751%_) + (if (let ((__tmp87628 (map car _%rest84751%_))) + (declare (not safe)) + (##apply _%f84740%_ __tmp87628)) + (_%recur84749%_ (map cdr _%rest84751%_)) + '#f) + '#t))))) (define ormap1 - (lambda (_%f84990%_ _%lst84991%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f84990%_)) - (let ((_%f84995%_ _%f84990%_)) - (declare (not safe)) - (__ormap1 _%f84995%_ _%lst84991%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@370.15-370.16" - 'contract: - 'procedure? - 'value: - _%f84990%_) - '#!void))))) + (lambda (_%f84721%_ _%lst84722%_) + (if (procedure? _%f84721%_) + (let ((_%f84726%_ _%f84721%_)) (__ormap1 _%f84726%_ _%lst84722%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@370.15-370.16" + 'contract: + 'procedure? + 'value: + _%f84721%_) + '#!void)))) (define __ormap1 - (lambda (_%f84937%_ _%lst84938%_) - (let ((_%f84941%_ _%f84937%_)) - (let _%lp84950%_ ((_%rest84952%_ _%lst84938%_)) - (let* ((_%rest8495384961%_ _%rest84952%_) - (_%else8495584969%_ (lambda () '#f)) - (_%K8495784978%_ - (lambda (_%rest84972%_ _%x84973%_) - (let ((_%$e84975%_ + (lambda (_%f84668%_ _%lst84669%_) + (let ((_%f84672%_ _%f84668%_)) + (let _%lp84681%_ ((_%rest84683%_ _%lst84669%_)) + (let* ((_%rest8468484692%_ _%rest84683%_) + (_%else8468684700%_ (lambda () '#f)) + (_%K8468884709%_ + (lambda (_%rest84703%_ _%x84704%_) + (let ((_%$e84706%_ (let () (declare (not safe)) - (_%f84941%_ _%x84973%_)))) - (if _%$e84975%_ - _%$e84975%_ - (let () - (declare (not safe)) - (_%lp84950%_ _%rest84972%_))))))) - (if (let () (declare (not safe)) (##pair? _%rest8495384961%_)) - (let ((_%hd8495884981%_ + (_%f84672%_ _%x84704%_)))) + (if _%$e84706%_ + _%$e84706%_ + (_%lp84681%_ _%rest84703%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8468484692%_)) + (let ((_%hd8468984712%_ (let () (declare (not safe)) - (##car _%rest8495384961%_))) - (_%tl8495984983%_ + (##car _%rest8468484692%_))) + (_%tl8469084714%_ (let () (declare (not safe)) - (##cdr _%rest8495384961%_)))) - (let* ((_%x84986%_ _%hd8495884981%_) - (_%rest84988%_ _%tl8495984983%_)) - (declare (not safe)) - (_%K8495784978%_ _%rest84988%_ _%x84986%_))) - (let () (declare (not safe)) (_%else8495584969%_)))))))) + (##cdr _%rest8468484692%_)))) + (let* ((_%x84717%_ _%hd8468984712%_) + (_%rest84719%_ _%tl8469084714%_)) + (_%K8468884709%_ _%rest84719%_ _%x84717%_))) + (_%else8468684700%_))))))) (define ormap2 - (lambda (_%f84921%_ _%lst184922%_ _%lst284923%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f84921%_)) - (let ((_%f84927%_ _%f84921%_)) - (declare (not safe)) - (__ormap2 _%f84927%_ _%lst184922%_ _%lst284923%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@377.15-377.16" - 'contract: - 'procedure? - 'value: - _%f84921%_) - '#!void))))) + (lambda (_%f84652%_ _%lst184653%_ _%lst284654%_) + (if (procedure? _%f84652%_) + (let ((_%f84658%_ _%f84652%_)) + (__ormap2 _%f84658%_ _%lst184653%_ _%lst284654%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@377.15-377.16" + 'contract: + 'procedure? + 'value: + _%f84652%_) + '#!void)))) (define __ormap2 - (lambda (_%f84833%_ _%lst184834%_ _%lst284835%_) - (let ((_%f84838%_ _%f84833%_)) - (let _%lp84847%_ ((_%rest184849%_ _%lst184834%_) - (_%rest284850%_ _%lst284835%_)) - (let* ((_%rest18485184859%_ _%rest184849%_) - (_%else8485384867%_ (lambda () '#f)) - (_%K8485584909%_ - (lambda (_%rest184870%_ _%x184871%_) - (let* ((_%rest28487284880%_ _%rest284850%_) - (_%else8487484888%_ (lambda () '#f)) - (_%K8487684897%_ - (lambda (_%rest284891%_ _%x284892%_) - (let ((_%$e84894%_ + (lambda (_%f84564%_ _%lst184565%_ _%lst284566%_) + (let ((_%f84569%_ _%f84564%_)) + (let _%lp84578%_ ((_%rest184580%_ _%lst184565%_) + (_%rest284581%_ _%lst284566%_)) + (let* ((_%rest18458284590%_ _%rest184580%_) + (_%else8458484598%_ (lambda () '#f)) + (_%K8458684640%_ + (lambda (_%rest184601%_ _%x184602%_) + (let* ((_%rest28460384611%_ _%rest284581%_) + (_%else8460584619%_ (lambda () '#f)) + (_%K8460784628%_ + (lambda (_%rest284622%_ _%x284623%_) + (let ((_%$e84625%_ (let () (declare (not safe)) - (_%f84838%_ - _%x184871%_ - _%x284892%_)))) - (if _%$e84894%_ - _%$e84894%_ - (let () - (declare (not safe)) - (_%lp84847%_ - _%rest184870%_ - _%rest284891%_))))))) + (_%f84569%_ + _%x184602%_ + _%x284623%_)))) + (if _%$e84625%_ + _%$e84625%_ + (_%lp84578%_ + _%rest184601%_ + _%rest284622%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest28487284880%_)) - (let ((_%hd8487784900%_ + (##pair? _%rest28460384611%_)) + (let ((_%hd8460884631%_ (let () (declare (not safe)) - (##car _%rest28487284880%_))) - (_%tl8487884902%_ + (##car _%rest28460384611%_))) + (_%tl8460984633%_ (let () (declare (not safe)) - (##cdr _%rest28487284880%_)))) - (let* ((_%x284905%_ _%hd8487784900%_) - (_%rest284907%_ _%tl8487884902%_)) - (declare (not safe)) - (_%K8487684897%_ _%rest284907%_ _%x284905%_))) - (let () - (declare (not safe)) - (_%else8487484888%_))))))) - (if (let () (declare (not safe)) (##pair? _%rest18485184859%_)) - (let ((_%hd8485684912%_ + (##cdr _%rest28460384611%_)))) + (let* ((_%x284636%_ _%hd8460884631%_) + (_%rest284638%_ _%tl8460984633%_)) + (_%K8460784628%_ _%rest284638%_ _%x284636%_))) + (_%else8460584619%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest18458284590%_)) + (let ((_%hd8458784643%_ (let () (declare (not safe)) - (##car _%rest18485184859%_))) - (_%tl8485784914%_ + (##car _%rest18458284590%_))) + (_%tl8458884645%_ (let () (declare (not safe)) - (##cdr _%rest18485184859%_)))) - (let* ((_%x184917%_ _%hd8485684912%_) - (_%rest184919%_ _%tl8485784914%_)) - (declare (not safe)) - (_%K8485584909%_ _%rest184919%_ _%x184917%_))) - (let () (declare (not safe)) (_%else8485384867%_)))))))) + (##cdr _%rest18458284590%_)))) + (let* ((_%x184648%_ _%hd8458784643%_) + (_%rest184650%_ _%tl8458884645%_)) + (_%K8458684640%_ _%rest184650%_ _%x184648%_))) + (_%else8458484598%_))))))) (define ormap - (lambda _g87912_ - (let ((_g87911_ (let () (declare (not safe)) (##length _g87912_)))) - (cond ((let () (declare (not safe)) (##fx= _g87911_ 2)) - (apply (lambda (_%f84821%_ _%lst84822%_) - (let () - (declare (not safe)) - (ormap1 _%f84821%_ _%lst84822%_))) - _g87912_)) - ((let () (declare (not safe)) (##fx= _g87911_ 3)) - (apply (lambda (_%f84824%_ _%lst184825%_ _%lst284826%_) - (let () - (declare (not safe)) - (ormap2 _%f84824%_ _%lst184825%_ _%lst284826%_))) - _g87912_)) - ((let () (declare (not safe)) (##fx>= _g87911_ 3)) - (apply ormap* _g87912_)) + (lambda _g87630_ + (let ((_g87629_ (let () (declare (not safe)) (##length _g87630_)))) + (cond ((let () (declare (not safe)) (##fx= _g87629_ 2)) + (apply ormap1 _g87630_)) + ((let () (declare (not safe)) (##fx= _g87629_ 3)) + (apply ormap2 _g87630_)) + ((let () (declare (not safe)) (##fx>= _g87629_ 3)) + (apply ormap* _g87630_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g87912_)))))) + _g87630_)))))) (define ormap* - (lambda (_%f84806%_ . _%rest84807%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f84806%_)) - (let ((_%f84811%_ _%f84806%_)) - (declare (not safe)) - (##apply __ormap* _%f84811%_ _%rest84807%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@395.15-395.16" - 'contract: - 'procedure? - 'value: - _%f84806%_) - '#!void))))) + (lambda (_%f84537%_ . _%rest84538%_) + (if (procedure? _%f84537%_) + (let ((_%f84542%_ _%f84537%_)) + (declare (not safe)) + (##apply __ormap* _%f84542%_ _%rest84538%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@395.15-395.16" + 'contract: + 'procedure? + 'value: + _%f84537%_) + '#!void)))) (define __ormap* - (lambda (_%f84786%_ . _%rest84787%_) - (let ((_%f84790%_ _%f84786%_)) - (let _%recur84799%_ ((_%rest84801%_ _%rest84787%_)) - (if (let () (declare (not safe)) (__andmap1 pair? _%rest84801%_)) - (let ((_%$e84803%_ - (let ((__tmp87913 (map car _%rest84801%_))) + (lambda (_%f84517%_ . _%rest84518%_) + (let ((_%f84521%_ _%f84517%_)) + (let _%recur84530%_ ((_%rest84532%_ _%rest84518%_)) + (if (__andmap1 pair? _%rest84532%_) + (let ((_%$e84534%_ + (let ((__tmp87631 (map car _%rest84532%_))) (declare (not safe)) - (##apply _%f84790%_ __tmp87913)))) - (if _%$e84803%_ - _%$e84803%_ - (let ((__tmp87914 (map cdr _%rest84801%_))) - (declare (not safe)) - (_%recur84799%_ __tmp87914)))) + (##apply _%f84521%_ __tmp87631)))) + (if _%$e84534%_ + _%$e84534%_ + (_%recur84530%_ (map cdr _%rest84532%_)))) '#f))))) (define filter-map1 - (lambda (_%f84771%_ _%lst84772%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f84771%_)) - (let ((_%f84776%_ _%f84771%_)) - (declare (not safe)) - (__filter-map1 _%f84776%_ _%lst84772%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@402.20-402.21" - 'contract: - 'procedure? - 'value: - _%f84771%_) - '#!void))))) + (lambda (_%f84502%_ _%lst84503%_) + (if (procedure? _%f84502%_) + (let ((_%f84507%_ _%f84502%_)) + (__filter-map1 _%f84507%_ _%lst84503%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@402.20-402.21" + 'contract: + 'procedure? + 'value: + _%f84502%_) + '#!void)))) (define __filter-map1 - (lambda (_%f84714%_ _%lst84715%_) - (let ((_%f84718%_ _%f84714%_)) - (let _%recur84727%_ ((_%rest84729%_ _%lst84715%_)) - (let () - (let* ((_%rest8473184739%_ _%rest84729%_) - (_%else8473384747%_ (lambda () '())) - (_%K8473584759%_ - (lambda (_%rest84750%_ _%x84751%_) - (let ((_%$e84753%_ - (let () - (declare (not safe)) - (_%f84718%_ _%x84751%_)))) - (if _%$e84753%_ - ((lambda (_%r84756%_) - (cons _%r84756%_ - (let () - (declare (not safe)) - (_%recur84727%_ _%rest84750%_)))) - _%$e84753%_) - (let () - (declare (not safe)) - (_%recur84727%_ _%rest84750%_))))))) - (if (let () (declare (not safe)) (##pair? _%rest8473184739%_)) - (let ((_%hd8473684762%_ - (let () - (declare (not safe)) - (##car _%rest8473184739%_))) - (_%tl8473784764%_ - (let () - (declare (not safe)) - (##cdr _%rest8473184739%_)))) - (let* ((_%x84767%_ _%hd8473684762%_) - (_%rest84769%_ _%tl8473784764%_)) - (declare (not safe)) - (_%K8473584759%_ _%rest84769%_ _%x84767%_))) - (let () (declare (not safe)) (_%else8473384747%_))))))))) + (lambda (_%f84445%_ _%lst84446%_) + (let ((_%f84449%_ _%f84445%_)) + (let _%recur84458%_ ((_%rest84460%_ _%lst84446%_)) + (let* ((_%rest8446284470%_ _%rest84460%_) + (_%else8446484478%_ (lambda () '())) + (_%K8446684490%_ + (lambda (_%rest84481%_ _%x84482%_) + (let ((_%$e84484%_ + (let () + (declare (not safe)) + (_%f84449%_ _%x84482%_)))) + (if _%$e84484%_ + ((lambda (_%r84487%_) + (cons _%r84487%_ + (_%recur84458%_ _%rest84481%_))) + _%$e84484%_) + (_%recur84458%_ _%rest84481%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8446284470%_)) + (let ((_%hd8446784493%_ + (let () + (declare (not safe)) + (##car _%rest8446284470%_))) + (_%tl8446884495%_ + (let () + (declare (not safe)) + (##cdr _%rest8446284470%_)))) + (let* ((_%x84498%_ _%hd8446784493%_) + (_%rest84500%_ _%tl8446884495%_)) + (_%K8446684490%_ _%rest84500%_ _%x84498%_))) + (_%else8446484478%_))))))) (define filter-map2 - (lambda (_%f84698%_ _%lst184699%_ _%lst284700%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f84698%_)) - (let ((_%f84704%_ _%f84698%_)) - (declare (not safe)) - (__filter-map2 _%f84704%_ _%lst184699%_ _%lst284700%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@413.20-413.21" - 'contract: - 'procedure? - 'value: - _%f84698%_) - '#!void))))) + (lambda (_%f84429%_ _%lst184430%_ _%lst284431%_) + (if (procedure? _%f84429%_) + (let ((_%f84435%_ _%f84429%_)) + (__filter-map2 _%f84435%_ _%lst184430%_ _%lst284431%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@413.20-413.21" + 'contract: + 'procedure? + 'value: + _%f84429%_) + '#!void)))) (define __filter-map2 - (lambda (_%f84606%_ _%lst184607%_ _%lst284608%_) - (let ((_%f84611%_ _%f84606%_)) - (let _%recur84620%_ ((_%rest184622%_ _%lst184607%_) - (_%rest284623%_ _%lst284608%_)) - (let () - (let* ((_%rest18462584633%_ _%rest184622%_) - (_%else8462784641%_ (lambda () '())) - (_%K8462984686%_ - (lambda (_%rest184644%_ _%x184645%_) - (let* ((_%rest28464684654%_ _%rest284623%_) - (_%else8464884662%_ (lambda () '())) - (_%K8465084674%_ - (lambda (_%rest284665%_ _%x284666%_) - (let ((_%$e84668%_ - (let () - (declare (not safe)) - (_%f84611%_ - _%x184645%_ - _%x284666%_)))) - (if _%$e84668%_ - ((lambda (_%r84671%_) - (cons _%r84671%_ - (let () - (declare (not safe)) - (_%recur84620%_ - _%rest184644%_ - _%rest284665%_)))) - _%$e84668%_) - (let () - (declare (not safe)) - (_%recur84620%_ - _%rest184644%_ - _%rest284665%_))))))) - (if (let () - (declare (not safe)) - (##pair? _%rest28464684654%_)) - (let ((_%hd8465184677%_ - (let () - (declare (not safe)) - (##car _%rest28464684654%_))) - (_%tl8465284679%_ - (let () - (declare (not safe)) - (##cdr _%rest28464684654%_)))) - (let* ((_%x284682%_ _%hd8465184677%_) - (_%rest284684%_ _%tl8465284679%_)) - (declare (not safe)) - (_%K8465084674%_ - _%rest284684%_ - _%x284682%_))) - (let () - (declare (not safe)) - (_%else8464884662%_))))))) - (if (let () (declare (not safe)) (##pair? _%rest18462584633%_)) - (let ((_%hd8463084689%_ - (let () - (declare (not safe)) - (##car _%rest18462584633%_))) - (_%tl8463184691%_ - (let () - (declare (not safe)) - (##cdr _%rest18462584633%_)))) - (let* ((_%x184694%_ _%hd8463084689%_) - (_%rest184696%_ _%tl8463184691%_)) - (declare (not safe)) - (_%K8462984686%_ _%rest184696%_ _%x184694%_))) - (let () (declare (not safe)) (_%else8462784641%_))))))))) + (lambda (_%f84337%_ _%lst184338%_ _%lst284339%_) + (let ((_%f84342%_ _%f84337%_)) + (let _%recur84351%_ ((_%rest184353%_ _%lst184338%_) + (_%rest284354%_ _%lst284339%_)) + (let* ((_%rest18435684364%_ _%rest184353%_) + (_%else8435884372%_ (lambda () '())) + (_%K8436084417%_ + (lambda (_%rest184375%_ _%x184376%_) + (let* ((_%rest28437784385%_ _%rest284354%_) + (_%else8437984393%_ (lambda () '())) + (_%K8438184405%_ + (lambda (_%rest284396%_ _%x284397%_) + (let ((_%$e84399%_ + (let () + (declare (not safe)) + (_%f84342%_ + _%x184376%_ + _%x284397%_)))) + (if _%$e84399%_ + ((lambda (_%r84402%_) + (cons _%r84402%_ + (_%recur84351%_ + _%rest184375%_ + _%rest284396%_))) + _%$e84399%_) + (_%recur84351%_ + _%rest184375%_ + _%rest284396%_)))))) + (if (let () + (declare (not safe)) + (##pair? _%rest28437784385%_)) + (let ((_%hd8438284408%_ + (let () + (declare (not safe)) + (##car _%rest28437784385%_))) + (_%tl8438384410%_ + (let () + (declare (not safe)) + (##cdr _%rest28437784385%_)))) + (let* ((_%x284413%_ _%hd8438284408%_) + (_%rest284415%_ _%tl8438384410%_)) + (_%K8438184405%_ _%rest284415%_ _%x284413%_))) + (_%else8437984393%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest18435684364%_)) + (let ((_%hd8436184420%_ + (let () + (declare (not safe)) + (##car _%rest18435684364%_))) + (_%tl8436284422%_ + (let () + (declare (not safe)) + (##cdr _%rest18435684364%_)))) + (let* ((_%x184425%_ _%hd8436184420%_) + (_%rest184427%_ _%tl8436284422%_)) + (_%K8436084417%_ _%rest184427%_ _%x184425%_))) + (_%else8435884372%_))))))) (define filter-map - (lambda _g87916_ - (let ((_g87915_ (let () (declare (not safe)) (##length _g87916_)))) - (cond ((let () (declare (not safe)) (##fx= _g87915_ 2)) - (apply (lambda (_%f84594%_ _%lst84595%_) - (let () - (declare (not safe)) - (filter-map1 _%f84594%_ _%lst84595%_))) - _g87916_)) - ((let () (declare (not safe)) (##fx= _g87915_ 3)) - (apply (lambda (_%f84597%_ _%lst184598%_ _%lst284599%_) - (let () - (declare (not safe)) - (filter-map2 - _%f84597%_ - _%lst184598%_ - _%lst284599%_))) - _g87916_)) - ((let () (declare (not safe)) (##fx>= _g87915_ 3)) - (apply filter-map* _g87916_)) + (lambda _g87633_ + (let ((_g87632_ (let () (declare (not safe)) (##length _g87633_)))) + (cond ((let () (declare (not safe)) (##fx= _g87632_ 2)) + (apply filter-map1 _g87633_)) + ((let () (declare (not safe)) (##fx= _g87632_ 3)) + (apply filter-map2 _g87633_)) + ((let () (declare (not safe)) (##fx>= _g87632_ 3)) + (apply filter-map* _g87633_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g87916_)))))) + _g87633_)))))) (define filter-map* - (lambda (_%f84579%_ . _%rest84580%_) - (let () - (if (let () (declare (not safe)) (procedure? _%f84579%_)) - (let ((_%f84584%_ _%f84579%_)) - (declare (not safe)) - (##apply __filter-map* _%f84584%_ _%rest84580%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@435.20-435.21" - 'contract: - 'procedure? - 'value: - _%f84579%_) - '#!void))))) + (lambda (_%f84310%_ . _%rest84311%_) + (if (procedure? _%f84310%_) + (let ((_%f84315%_ _%f84310%_)) + (declare (not safe)) + (##apply __filter-map* _%f84315%_ _%rest84311%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@435.20-435.21" + 'contract: + 'procedure? + 'value: + _%f84310%_) + '#!void)))) (define __filter-map* - (lambda (_%f84555%_ . _%rest84556%_) - (let ((_%f84559%_ _%f84555%_)) - (let _%recur84568%_ ((_%rest84570%_ _%rest84556%_)) - (let () - (if (let () (declare (not safe)) (__andmap1 pair? _%rest84570%_)) - (let ((_%$e84573%_ - (let ((__tmp87917 (map car _%rest84570%_))) - (declare (not safe)) - (##apply _%f84559%_ __tmp87917)))) - (if _%$e84573%_ - ((lambda (_%r84576%_) - (cons _%r84576%_ - (let ((__tmp87918 (map cdr _%rest84570%_))) - (declare (not safe)) - (_%recur84568%_ __tmp87918)))) - _%$e84573%_) - (let ((__tmp87919 (map cdr _%rest84570%_))) - (declare (not safe)) - (_%recur84568%_ __tmp87919)))) - '())))))) + (lambda (_%f84286%_ . _%rest84287%_) + (let ((_%f84290%_ _%f84286%_)) + (let _%recur84299%_ ((_%rest84301%_ _%rest84287%_)) + (if (__andmap1 pair? _%rest84301%_) + (let ((_%$e84304%_ + (let ((__tmp87634 (map car _%rest84301%_))) + (declare (not safe)) + (##apply _%f84290%_ __tmp87634)))) + (if _%$e84304%_ + ((lambda (_%r84307%_) + (cons _%r84307%_ + (_%recur84299%_ (map cdr _%rest84301%_)))) + _%$e84304%_) + (_%recur84299%_ (map cdr _%rest84301%_)))) + '()))))) (define agetq__% - (lambda (_%key84531%_ _%lst84533%_ _%default84535%_) - (let ((_%$e84538%_ - (if (let () (declare (not safe)) (pair? _%lst84533%_)) - (assq _%key84531%_ _%lst84533%_) - '#f))) - (if _%$e84538%_ - (cdr _%$e84538%_) - (if (let () (declare (not safe)) (procedure? _%default84535%_)) - (let () (_%default84535%_ _%key84531%_)) - (let () _%default84535%_)))))) + (lambda (_%key84262%_ _%lst84264%_ _%default84266%_) + (let ((_%$e84269%_ + (if (pair? _%lst84264%_) (assq _%key84262%_ _%lst84264%_) '#f))) + (if _%$e84269%_ + (cdr _%$e84269%_) + (if (procedure? _%default84266%_) + (_%default84266%_ _%key84262%_) + _%default84266%_))))) (define agetq__0 - (lambda (_%key84546%_ _%lst84547%_) - (let ((_%default84549%_ '#f)) - (declare (not safe)) - (agetq__% _%key84546%_ _%lst84547%_ _%default84549%_)))) + (lambda (_%key84277%_ _%lst84278%_) + (let ((_%default84280%_ '#f)) + (agetq__% _%key84277%_ _%lst84278%_ _%default84280%_)))) (define agetq - (lambda _g87921_ - (let ((_g87920_ (let () (declare (not safe)) (##length _g87921_)))) - (cond ((let () (declare (not safe)) (##fx= _g87920_ 2)) - (apply (lambda (_%key84546%_ _%lst84547%_) - (let () - (declare (not safe)) - (agetq__0 _%key84546%_ _%lst84547%_))) - _g87921_)) - ((let () (declare (not safe)) (##fx= _g87920_ 3)) - (apply (lambda (_%key84551%_ _%lst84552%_ _%default84553%_) - (let () - (declare (not safe)) - (agetq__% - _%key84551%_ - _%lst84552%_ - _%default84553%_))) - _g87921_)) + (lambda _g87636_ + (let ((_g87635_ (let () (declare (not safe)) (##length _g87636_)))) + (cond ((let () (declare (not safe)) (##fx= _g87635_ 2)) + (apply agetq__0 _g87636_)) + ((let () (declare (not safe)) (##fx= _g87635_ 3)) + (apply agetq__% _g87636_)) (else (##raise-wrong-number-of-arguments-exception agetq - _g87921_)))))) + _g87636_)))))) (define agetv__% - (lambda (_%key84506%_ _%lst84508%_ _%default84510%_) - (let ((_%$e84513%_ - (if (let () (declare (not safe)) (pair? _%lst84508%_)) - (assv _%key84506%_ _%lst84508%_) - '#f))) - (if _%$e84513%_ - (cdr _%$e84513%_) - (if (let () (declare (not safe)) (procedure? _%default84510%_)) - (let () (_%default84510%_ _%key84506%_)) - (let () _%default84510%_)))))) + (lambda (_%key84237%_ _%lst84239%_ _%default84241%_) + (let ((_%$e84244%_ + (if (pair? _%lst84239%_) (assv _%key84237%_ _%lst84239%_) '#f))) + (if _%$e84244%_ + (cdr _%$e84244%_) + (if (procedure? _%default84241%_) + (_%default84241%_ _%key84237%_) + _%default84241%_))))) (define agetv__0 - (lambda (_%key84521%_ _%lst84522%_) - (let ((_%default84524%_ '#f)) - (declare (not safe)) - (agetv__% _%key84521%_ _%lst84522%_ _%default84524%_)))) + (lambda (_%key84252%_ _%lst84253%_) + (let ((_%default84255%_ '#f)) + (agetv__% _%key84252%_ _%lst84253%_ _%default84255%_)))) (define agetv - (lambda _g87923_ - (let ((_g87922_ (let () (declare (not safe)) (##length _g87923_)))) - (cond ((let () (declare (not safe)) (##fx= _g87922_ 2)) - (apply (lambda (_%key84521%_ _%lst84522%_) - (let () - (declare (not safe)) - (agetv__0 _%key84521%_ _%lst84522%_))) - _g87923_)) - ((let () (declare (not safe)) (##fx= _g87922_ 3)) - (apply (lambda (_%key84526%_ _%lst84527%_ _%default84528%_) - (let () - (declare (not safe)) - (agetv__% - _%key84526%_ - _%lst84527%_ - _%default84528%_))) - _g87923_)) + (lambda _g87638_ + (let ((_g87637_ (let () (declare (not safe)) (##length _g87638_)))) + (cond ((let () (declare (not safe)) (##fx= _g87637_ 2)) + (apply agetv__0 _g87638_)) + ((let () (declare (not safe)) (##fx= _g87637_ 3)) + (apply agetv__% _g87638_)) (else (##raise-wrong-number-of-arguments-exception agetv - _g87923_)))))) + _g87638_)))))) (define aget__% - (lambda (_%key84481%_ _%lst84483%_ _%default84485%_) - (let ((_%$e84488%_ - (if (let () (declare (not safe)) (pair? _%lst84483%_)) - (assoc _%key84481%_ _%lst84483%_) + (lambda (_%key84212%_ _%lst84214%_ _%default84216%_) + (let ((_%$e84219%_ + (if (pair? _%lst84214%_) + (assoc _%key84212%_ _%lst84214%_) '#f))) - (if _%$e84488%_ - (cdr _%$e84488%_) - (if (let () (declare (not safe)) (procedure? _%default84485%_)) - (let () (_%default84485%_ _%key84481%_)) - (let () _%default84485%_)))))) + (if _%$e84219%_ + (cdr _%$e84219%_) + (if (procedure? _%default84216%_) + (_%default84216%_ _%key84212%_) + _%default84216%_))))) (define aget__0 - (lambda (_%key84496%_ _%lst84497%_) - (let ((_%default84499%_ '#f)) - (declare (not safe)) - (aget__% _%key84496%_ _%lst84497%_ _%default84499%_)))) + (lambda (_%key84227%_ _%lst84228%_) + (let ((_%default84230%_ '#f)) + (aget__% _%key84227%_ _%lst84228%_ _%default84230%_)))) (define aget - (lambda _g87925_ - (let ((_g87924_ (let () (declare (not safe)) (##length _g87925_)))) - (cond ((let () (declare (not safe)) (##fx= _g87924_ 2)) - (apply (lambda (_%key84496%_ _%lst84497%_) - (let () - (declare (not safe)) - (aget__0 _%key84496%_ _%lst84497%_))) - _g87925_)) - ((let () (declare (not safe)) (##fx= _g87924_ 3)) - (apply (lambda (_%key84501%_ _%lst84502%_ _%default84503%_) - (let () - (declare (not safe)) - (aget__% _%key84501%_ - _%lst84502%_ - _%default84503%_))) - _g87925_)) + (lambda _g87640_ + (let ((_g87639_ (let () (declare (not safe)) (##length _g87640_)))) + (cond ((let () (declare (not safe)) (##fx= _g87639_ 2)) + (apply aget__0 _g87640_)) + ((let () (declare (not safe)) (##fx= _g87639_ 3)) + (apply aget__% _g87640_)) (else (##raise-wrong-number-of-arguments-exception aget - _g87925_)))))) + _g87640_)))))) (define assgetq agetq) (define assgetv agetv) (define assget aget) (define pgetq__% - (lambda (_%key84410%_ _%lst84412%_ _%default84414%_) - (let _%lp84417%_ ((_%rest84420%_ _%lst84412%_)) - (let* ((_%rest8442284432%_ _%rest84420%_) - (_%else8442484440%_ + (lambda (_%key84141%_ _%lst84143%_ _%default84145%_) + (let _%lp84148%_ ((_%rest84151%_ _%lst84143%_)) + (let* ((_%rest8415384163%_ _%rest84151%_) + (_%else8415584171%_ (lambda () - (if (let () - (declare (not safe)) - (procedure? _%default84414%_)) - (_%default84414%_ _%key84410%_) - _%default84414%_))) - (_%K8442684449%_ - (lambda (_%rest84443%_ _%v84444%_ _%k84446%_) - (if (eq? _%k84446%_ _%key84410%_) - _%v84444%_ - (let () - (declare (not safe)) - (_%lp84417%_ _%rest84443%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8442284432%_)) - (let ((_%hd8442784452%_ + (if (procedure? _%default84145%_) + (_%default84145%_ _%key84141%_) + _%default84145%_))) + (_%K8415784180%_ + (lambda (_%rest84174%_ _%v84175%_ _%k84177%_) + (if (eq? _%k84177%_ _%key84141%_) + _%v84175%_ + (_%lp84148%_ _%rest84174%_))))) + (if (let () (declare (not safe)) (##pair? _%rest8415384163%_)) + (let ((_%hd8415884183%_ (let () (declare (not safe)) - (##car _%rest8442284432%_))) - (_%tl8442884454%_ + (##car _%rest8415384163%_))) + (_%tl8415984185%_ (let () (declare (not safe)) - (##cdr _%rest8442284432%_)))) - (let ((_%k84457%_ _%hd8442784452%_)) + (##cdr _%rest8415384163%_)))) + (let ((_%k84188%_ _%hd8415884183%_)) (if (let () (declare (not safe)) - (##pair? _%tl8442884454%_)) - (let ((_%hd8442984459%_ + (##pair? _%tl8415984185%_)) + (let ((_%hd8416084190%_ (let () (declare (not safe)) - (##car _%tl8442884454%_))) - (_%tl8443084461%_ + (##car _%tl8415984185%_))) + (_%tl8416184192%_ (let () (declare (not safe)) - (##cdr _%tl8442884454%_)))) - (let* ((_%v84464%_ _%hd8442984459%_) - (_%rest84466%_ _%tl8443084461%_)) - (declare (not safe)) - (_%K8442684449%_ - _%rest84466%_ - _%v84464%_ - _%k84457%_))) - (let () (declare (not safe)) (_%else8442484440%_))))) - (let () (declare (not safe)) (_%else8442484440%_))))))) + (##cdr _%tl8415984185%_)))) + (let* ((_%v84195%_ _%hd8416084190%_) + (_%rest84197%_ _%tl8416184192%_)) + (_%K8415784180%_ + _%rest84197%_ + _%v84195%_ + _%k84188%_))) + (_%else8415584171%_)))) + (_%else8415584171%_)))))) (define pgetq__0 - (lambda (_%key84471%_ _%lst84472%_) - (let ((_%default84474%_ '#f)) - (declare (not safe)) - (pgetq__% _%key84471%_ _%lst84472%_ _%default84474%_)))) + (lambda (_%key84202%_ _%lst84203%_) + (let ((_%default84205%_ '#f)) + (pgetq__% _%key84202%_ _%lst84203%_ _%default84205%_)))) (define pgetq - (lambda _g87927_ - (let ((_g87926_ (let () (declare (not safe)) (##length _g87927_)))) - (cond ((let () (declare (not safe)) (##fx= _g87926_ 2)) - (apply (lambda (_%key84471%_ _%lst84472%_) - (let () - (declare (not safe)) - (pgetq__0 _%key84471%_ _%lst84472%_))) - _g87927_)) - ((let () (declare (not safe)) (##fx= _g87926_ 3)) - (apply (lambda (_%key84476%_ _%lst84477%_ _%default84478%_) - (let () - (declare (not safe)) - (pgetq__% - _%key84476%_ - _%lst84477%_ - _%default84478%_))) - _g87927_)) + (lambda _g87642_ + (let ((_g87641_ (let () (declare (not safe)) (##length _g87642_)))) + (cond ((let () (declare (not safe)) (##fx= _g87641_ 2)) + (apply pgetq__0 _g87642_)) + ((let () (declare (not safe)) (##fx= _g87641_ 3)) + (apply pgetq__% _g87642_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g87927_)))))) + _g87642_)))))) (define pgetv__% - (lambda (_%key84339%_ _%lst84341%_ _%default84343%_) - (let _%lp84346%_ ((_%rest84349%_ _%lst84341%_)) - (let* ((_%rest8435184361%_ _%rest84349%_) - (_%else8435384369%_ + (lambda (_%key84070%_ _%lst84072%_ _%default84074%_) + (let _%lp84077%_ ((_%rest84080%_ _%lst84072%_)) + (let* ((_%rest8408284092%_ _%rest84080%_) + (_%else8408484100%_ (lambda () - (if (let () - (declare (not safe)) - (procedure? _%default84343%_)) - (_%default84343%_ _%key84339%_) - _%default84343%_))) - (_%K8435584378%_ - (lambda (_%rest84372%_ _%v84373%_ _%k84375%_) - (if (eqv? _%k84375%_ _%key84339%_) - _%v84373%_ - (let () - (declare (not safe)) - (_%lp84346%_ _%rest84372%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8435184361%_)) - (let ((_%hd8435684381%_ + (if (procedure? _%default84074%_) + (_%default84074%_ _%key84070%_) + _%default84074%_))) + (_%K8408684109%_ + (lambda (_%rest84103%_ _%v84104%_ _%k84106%_) + (if (eqv? _%k84106%_ _%key84070%_) + _%v84104%_ + (_%lp84077%_ _%rest84103%_))))) + (if (let () (declare (not safe)) (##pair? _%rest8408284092%_)) + (let ((_%hd8408784112%_ (let () (declare (not safe)) - (##car _%rest8435184361%_))) - (_%tl8435784383%_ + (##car _%rest8408284092%_))) + (_%tl8408884114%_ (let () (declare (not safe)) - (##cdr _%rest8435184361%_)))) - (let ((_%k84386%_ _%hd8435684381%_)) + (##cdr _%rest8408284092%_)))) + (let ((_%k84117%_ _%hd8408784112%_)) (if (let () (declare (not safe)) - (##pair? _%tl8435784383%_)) - (let ((_%hd8435884388%_ + (##pair? _%tl8408884114%_)) + (let ((_%hd8408984119%_ (let () (declare (not safe)) - (##car _%tl8435784383%_))) - (_%tl8435984390%_ + (##car _%tl8408884114%_))) + (_%tl8409084121%_ (let () (declare (not safe)) - (##cdr _%tl8435784383%_)))) - (let* ((_%v84393%_ _%hd8435884388%_) - (_%rest84395%_ _%tl8435984390%_)) - (declare (not safe)) - (_%K8435584378%_ - _%rest84395%_ - _%v84393%_ - _%k84386%_))) - (let () (declare (not safe)) (_%else8435384369%_))))) - (let () (declare (not safe)) (_%else8435384369%_))))))) + (##cdr _%tl8408884114%_)))) + (let* ((_%v84124%_ _%hd8408984119%_) + (_%rest84126%_ _%tl8409084121%_)) + (_%K8408684109%_ + _%rest84126%_ + _%v84124%_ + _%k84117%_))) + (_%else8408484100%_)))) + (_%else8408484100%_)))))) (define pgetv__0 - (lambda (_%key84400%_ _%lst84401%_) - (let ((_%default84403%_ '#f)) - (declare (not safe)) - (pgetv__% _%key84400%_ _%lst84401%_ _%default84403%_)))) + (lambda (_%key84131%_ _%lst84132%_) + (let ((_%default84134%_ '#f)) + (pgetv__% _%key84131%_ _%lst84132%_ _%default84134%_)))) (define pgetv - (lambda _g87929_ - (let ((_g87928_ (let () (declare (not safe)) (##length _g87929_)))) - (cond ((let () (declare (not safe)) (##fx= _g87928_ 2)) - (apply (lambda (_%key84400%_ _%lst84401%_) - (let () - (declare (not safe)) - (pgetv__0 _%key84400%_ _%lst84401%_))) - _g87929_)) - ((let () (declare (not safe)) (##fx= _g87928_ 3)) - (apply (lambda (_%key84405%_ _%lst84406%_ _%default84407%_) - (let () - (declare (not safe)) - (pgetv__% - _%key84405%_ - _%lst84406%_ - _%default84407%_))) - _g87929_)) + (lambda _g87644_ + (let ((_g87643_ (let () (declare (not safe)) (##length _g87644_)))) + (cond ((let () (declare (not safe)) (##fx= _g87643_ 2)) + (apply pgetv__0 _g87644_)) + ((let () (declare (not safe)) (##fx= _g87643_ 3)) + (apply pgetv__% _g87644_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g87929_)))))) + _g87644_)))))) (define pget__% - (lambda (_%key84268%_ _%lst84270%_ _%default84272%_) - (let _%lp84275%_ ((_%rest84278%_ _%lst84270%_)) - (let* ((_%rest8428084290%_ _%rest84278%_) - (_%else8428284298%_ + (lambda (_%key83999%_ _%lst84001%_ _%default84003%_) + (let _%lp84006%_ ((_%rest84009%_ _%lst84001%_)) + (let* ((_%rest8401184021%_ _%rest84009%_) + (_%else8401384029%_ (lambda () - (if (let () - (declare (not safe)) - (procedure? _%default84272%_)) - (_%default84272%_ _%key84268%_) - _%default84272%_))) - (_%K8428484307%_ - (lambda (_%rest84301%_ _%v84302%_ _%k84304%_) - (if (equal? _%k84304%_ _%key84268%_) - _%v84302%_ - (let () - (declare (not safe)) - (_%lp84275%_ _%rest84301%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8428084290%_)) - (let ((_%hd8428584310%_ + (if (procedure? _%default84003%_) + (_%default84003%_ _%key83999%_) + _%default84003%_))) + (_%K8401584038%_ + (lambda (_%rest84032%_ _%v84033%_ _%k84035%_) + (if (equal? _%k84035%_ _%key83999%_) + _%v84033%_ + (_%lp84006%_ _%rest84032%_))))) + (if (let () (declare (not safe)) (##pair? _%rest8401184021%_)) + (let ((_%hd8401684041%_ (let () (declare (not safe)) - (##car _%rest8428084290%_))) - (_%tl8428684312%_ + (##car _%rest8401184021%_))) + (_%tl8401784043%_ (let () (declare (not safe)) - (##cdr _%rest8428084290%_)))) - (let ((_%k84315%_ _%hd8428584310%_)) + (##cdr _%rest8401184021%_)))) + (let ((_%k84046%_ _%hd8401684041%_)) (if (let () (declare (not safe)) - (##pair? _%tl8428684312%_)) - (let ((_%hd8428784317%_ + (##pair? _%tl8401784043%_)) + (let ((_%hd8401884048%_ (let () (declare (not safe)) - (##car _%tl8428684312%_))) - (_%tl8428884319%_ + (##car _%tl8401784043%_))) + (_%tl8401984050%_ (let () (declare (not safe)) - (##cdr _%tl8428684312%_)))) - (let* ((_%v84322%_ _%hd8428784317%_) - (_%rest84324%_ _%tl8428884319%_)) - (declare (not safe)) - (_%K8428484307%_ - _%rest84324%_ - _%v84322%_ - _%k84315%_))) - (let () (declare (not safe)) (_%else8428284298%_))))) - (let () (declare (not safe)) (_%else8428284298%_))))))) + (##cdr _%tl8401784043%_)))) + (let* ((_%v84053%_ _%hd8401884048%_) + (_%rest84055%_ _%tl8401984050%_)) + (_%K8401584038%_ + _%rest84055%_ + _%v84053%_ + _%k84046%_))) + (_%else8401384029%_)))) + (_%else8401384029%_)))))) (define pget__0 - (lambda (_%key84329%_ _%lst84330%_) - (let ((_%default84332%_ '#f)) - (declare (not safe)) - (pget__% _%key84329%_ _%lst84330%_ _%default84332%_)))) + (lambda (_%key84060%_ _%lst84061%_) + (let ((_%default84063%_ '#f)) + (pget__% _%key84060%_ _%lst84061%_ _%default84063%_)))) (define pget - (lambda _g87931_ - (let ((_g87930_ (let () (declare (not safe)) (##length _g87931_)))) - (cond ((let () (declare (not safe)) (##fx= _g87930_ 2)) - (apply (lambda (_%key84329%_ _%lst84330%_) - (let () - (declare (not safe)) - (pget__0 _%key84329%_ _%lst84330%_))) - _g87931_)) - ((let () (declare (not safe)) (##fx= _g87930_ 3)) - (apply (lambda (_%key84334%_ _%lst84335%_ _%default84336%_) - (let () - (declare (not safe)) - (pget__% _%key84334%_ - _%lst84335%_ - _%default84336%_))) - _g87931_)) + (lambda _g87646_ + (let ((_g87645_ (let () (declare (not safe)) (##length _g87646_)))) + (cond ((let () (declare (not safe)) (##fx= _g87645_ 2)) + (apply pget__0 _g87646_)) + ((let () (declare (not safe)) (##fx= _g87645_ 3)) + (apply pget__% _g87646_)) (else (##raise-wrong-number-of-arguments-exception pget - _g87931_)))))) + _g87646_)))))) (define find - (lambda (_%pred84252%_ _%lst84253%_) - (let () - (if (let () (declare (not safe)) (procedure? _%pred84252%_)) - (let ((_%pred84257%_ _%pred84252%_)) - (declare (not safe)) - (__find _%pred84257%_ _%lst84253%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@481.13-481.17" - 'contract: - 'procedure? - 'value: - _%pred84252%_) - '#!void))))) + (lambda (_%pred83983%_ _%lst83984%_) + (if (procedure? _%pred83983%_) + (let ((_%pred83988%_ _%pred83983%_)) + (__find _%pred83988%_ _%lst83984%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@481.13-481.17" + 'contract: + 'procedure? + 'value: + _%pred83983%_) + '#!void)))) (define __find - (lambda (_%pred84235%_ _%lst84236%_) - (let () - (let* ((_%pred84239%_ _%pred84235%_) - (_%$e84248%_ - (let () - (declare (not safe)) - (__memf _%pred84239%_ _%lst84236%_)))) - (if _%$e84248%_ - (let () (declare (not safe)) (##car _%$e84248%_)) - (let () '#f)))))) + (lambda (_%pred83966%_ _%lst83967%_) + (let* ((_%pred83970%_ _%pred83966%_) + (_%$e83979%_ (__memf _%pred83970%_ _%lst83967%_))) + (if _%$e83979%_ + (let () (declare (not safe)) (##car _%$e83979%_)) + '#f)))) (define memf - (lambda (_%proc84220%_ _%lst84221%_) - (let () - (if (let () (declare (not safe)) (procedure? _%proc84220%_)) - (let ((_%proc84225%_ _%proc84220%_)) - (declare (not safe)) - (__memf _%proc84225%_ _%lst84221%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@486.13-486.17" - 'contract: - 'procedure? - 'value: - _%proc84220%_) - '#!void))))) + (lambda (_%proc83951%_ _%lst83952%_) + (if (procedure? _%proc83951%_) + (let ((_%proc83956%_ _%proc83951%_)) + (__memf _%proc83956%_ _%lst83952%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@486.13-486.17" + 'contract: + 'procedure? + 'value: + _%proc83951%_) + '#!void)))) (define __memf - (lambda (_%proc84170%_ _%lst84171%_) - (let ((_%proc84174%_ _%proc84170%_)) - (let _%lp84183%_ ((_%rest84185%_ _%lst84171%_)) - (let* ((_%rest8418684194%_ _%rest84185%_) - (_%else8418884202%_ (lambda () '#f)) - (_%K8419084208%_ - (lambda (_%tl84205%_ _%hd84206%_) + (lambda (_%proc83901%_ _%lst83902%_) + (let ((_%proc83905%_ _%proc83901%_)) + (let _%lp83914%_ ((_%rest83916%_ _%lst83902%_)) + (let* ((_%rest8391783925%_ _%rest83916%_) + (_%else8391983933%_ (lambda () '#f)) + (_%K8392183939%_ + (lambda (_%tl83936%_ _%hd83937%_) (if (let () (declare (not safe)) - (_%proc84174%_ _%hd84206%_)) - _%rest84185%_ - (let () - (declare (not safe)) - (_%lp84183%_ _%tl84205%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8418684194%_)) - (let ((_%hd8419184211%_ + (_%proc83905%_ _%hd83937%_)) + _%rest83916%_ + (_%lp83914%_ _%tl83936%_))))) + (if (let () (declare (not safe)) (##pair? _%rest8391783925%_)) + (let ((_%hd8392283942%_ (let () (declare (not safe)) - (##car _%rest8418684194%_))) - (_%tl8419284213%_ + (##car _%rest8391783925%_))) + (_%tl8392383944%_ (let () (declare (not safe)) - (##cdr _%rest8418684194%_)))) - (let* ((_%hd84216%_ _%hd8419184211%_) - (_%tl84218%_ _%tl8419284213%_)) - (declare (not safe)) - (_%K8419084208%_ _%tl84218%_ _%hd84216%_))) - (let () (declare (not safe)) (_%else8418884202%_)))))))) + (##cdr _%rest8391783925%_)))) + (let* ((_%hd83947%_ _%hd8392283942%_) + (_%tl83949%_ _%tl8392383944%_)) + (_%K8392183939%_ _%tl83949%_ _%hd83947%_))) + (_%else8391983933%_))))))) (define remove1 - (lambda (_%el84123%_ _%lst84125%_) - (let _%lp84128%_ ((_%rest84131%_ _%lst84125%_) (_%r84133%_ '())) - (let* ((_%rest8413584143%_ _%rest84131%_) - (_%else8413784151%_ (lambda () _%lst84125%_)) - (_%K8413984158%_ - (lambda (_%rest84154%_ _%hd84155%_) - (if (equal? _%el84123%_ _%hd84155%_) - (let () - (declare (not safe)) - (__foldl1 cons _%rest84154%_ _%r84133%_)) - (let ((__tmp87932 (cons _%hd84155%_ _%r84133%_))) - (declare (not safe)) - (_%lp84128%_ _%rest84154%_ __tmp87932)))))) - (if (let () (declare (not safe)) (##pair? _%rest8413584143%_)) - (let ((_%hd8414084161%_ + (lambda (_%el83854%_ _%lst83856%_) + (let _%lp83859%_ ((_%rest83862%_ _%lst83856%_) (_%r83864%_ '())) + (let* ((_%rest8386683874%_ _%rest83862%_) + (_%else8386883882%_ (lambda () _%lst83856%_)) + (_%K8387083889%_ + (lambda (_%rest83885%_ _%hd83886%_) + (if (equal? _%el83854%_ _%hd83886%_) + (__foldl1 cons _%rest83885%_ _%r83864%_) + (_%lp83859%_ + _%rest83885%_ + (cons _%hd83886%_ _%r83864%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8386683874%_)) + (let ((_%hd8387183892%_ (let () (declare (not safe)) - (##car _%rest8413584143%_))) - (_%tl8414184163%_ + (##car _%rest8386683874%_))) + (_%tl8387283894%_ (let () (declare (not safe)) - (##cdr _%rest8413584143%_)))) - (let* ((_%hd84166%_ _%hd8414084161%_) - (_%rest84168%_ _%tl8414184163%_)) - (declare (not safe)) - (_%K8413984158%_ _%rest84168%_ _%hd84166%_))) - (let () (declare (not safe)) (_%else8413784151%_))))))) + (##cdr _%rest8386683874%_)))) + (let* ((_%hd83897%_ _%hd8387183892%_) + (_%rest83899%_ _%tl8387283894%_)) + (_%K8387083889%_ _%rest83899%_ _%hd83897%_))) + (_%else8386883882%_)))))) (define remv1 - (lambda (_%el84076%_ _%lst84078%_) - (let _%lp84081%_ ((_%rest84084%_ _%lst84078%_) (_%r84086%_ '())) - (let* ((_%rest8408884096%_ _%rest84084%_) - (_%else8409084104%_ (lambda () _%lst84078%_)) - (_%K8409284111%_ - (lambda (_%rest84107%_ _%hd84108%_) - (if (eqv? _%el84076%_ _%hd84108%_) - (let () - (declare (not safe)) - (__foldl1 cons _%rest84107%_ _%r84086%_)) - (let ((__tmp87933 (cons _%hd84108%_ _%r84086%_))) - (declare (not safe)) - (_%lp84081%_ _%rest84107%_ __tmp87933)))))) - (if (let () (declare (not safe)) (##pair? _%rest8408884096%_)) - (let ((_%hd8409384114%_ + (lambda (_%el83807%_ _%lst83809%_) + (let _%lp83812%_ ((_%rest83815%_ _%lst83809%_) (_%r83817%_ '())) + (let* ((_%rest8381983827%_ _%rest83815%_) + (_%else8382183835%_ (lambda () _%lst83809%_)) + (_%K8382383842%_ + (lambda (_%rest83838%_ _%hd83839%_) + (if (eqv? _%el83807%_ _%hd83839%_) + (__foldl1 cons _%rest83838%_ _%r83817%_) + (_%lp83812%_ + _%rest83838%_ + (cons _%hd83839%_ _%r83817%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8381983827%_)) + (let ((_%hd8382483845%_ (let () (declare (not safe)) - (##car _%rest8408884096%_))) - (_%tl8409484116%_ + (##car _%rest8381983827%_))) + (_%tl8382583847%_ (let () (declare (not safe)) - (##cdr _%rest8408884096%_)))) - (let* ((_%hd84119%_ _%hd8409384114%_) - (_%rest84121%_ _%tl8409484116%_)) - (declare (not safe)) - (_%K8409284111%_ _%rest84121%_ _%hd84119%_))) - (let () (declare (not safe)) (_%else8409084104%_))))))) + (##cdr _%rest8381983827%_)))) + (let* ((_%hd83850%_ _%hd8382483845%_) + (_%rest83852%_ _%tl8382583847%_)) + (_%K8382383842%_ _%rest83852%_ _%hd83850%_))) + (_%else8382183835%_)))))) (define remq1 - (lambda (_%el84029%_ _%lst84031%_) - (let _%lp84034%_ ((_%rest84037%_ _%lst84031%_) (_%r84039%_ '())) - (let* ((_%rest8404184049%_ _%rest84037%_) - (_%else8404384057%_ (lambda () _%lst84031%_)) - (_%K8404584064%_ - (lambda (_%rest84060%_ _%hd84061%_) - (if (eq? _%el84029%_ _%hd84061%_) - (let () - (declare (not safe)) - (__foldl1 cons _%rest84060%_ _%r84039%_)) - (let ((__tmp87934 (cons _%hd84061%_ _%r84039%_))) - (declare (not safe)) - (_%lp84034%_ _%rest84060%_ __tmp87934)))))) - (if (let () (declare (not safe)) (##pair? _%rest8404184049%_)) - (let ((_%hd8404684067%_ + (lambda (_%el83760%_ _%lst83762%_) + (let _%lp83765%_ ((_%rest83768%_ _%lst83762%_) (_%r83770%_ '())) + (let* ((_%rest8377283780%_ _%rest83768%_) + (_%else8377483788%_ (lambda () _%lst83762%_)) + (_%K8377683795%_ + (lambda (_%rest83791%_ _%hd83792%_) + (if (eq? _%el83760%_ _%hd83792%_) + (__foldl1 cons _%rest83791%_ _%r83770%_) + (_%lp83765%_ + _%rest83791%_ + (cons _%hd83792%_ _%r83770%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8377283780%_)) + (let ((_%hd8377783798%_ (let () (declare (not safe)) - (##car _%rest8404184049%_))) - (_%tl8404784069%_ + (##car _%rest8377283780%_))) + (_%tl8377883800%_ (let () (declare (not safe)) - (##cdr _%rest8404184049%_)))) - (let* ((_%hd84072%_ _%hd8404684067%_) - (_%rest84074%_ _%tl8404784069%_)) - (declare (not safe)) - (_%K8404584064%_ _%rest84074%_ _%hd84072%_))) - (let () (declare (not safe)) (_%else8404384057%_))))))) + (##cdr _%rest8377283780%_)))) + (let* ((_%hd83803%_ _%hd8377783798%_) + (_%rest83805%_ _%tl8377883800%_)) + (_%K8377683795%_ _%rest83805%_ _%hd83803%_))) + (_%else8377483788%_)))))) (define remf - (lambda (_%proc84014%_ _%lst84015%_) - (let () - (if (let () (declare (not safe)) (procedure? _%proc84014%_)) - (let ((_%proc84019%_ _%proc84014%_)) - (declare (not safe)) - (__remf _%proc84019%_ _%lst84015%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@508.13-508.17" - 'contract: - 'procedure? - 'value: - _%proc84014%_) - '#!void))))) + (lambda (_%proc83745%_ _%lst83746%_) + (if (procedure? _%proc83745%_) + (let ((_%proc83750%_ _%proc83745%_)) + (__remf _%proc83750%_ _%lst83746%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@508.13-508.17" + 'contract: + 'procedure? + 'value: + _%proc83745%_) + '#!void)))) (define __remf - (lambda (_%proc83963%_ _%lst83964%_) - (let ((_%proc83967%_ _%proc83963%_)) - (let _%lp83976%_ ((_%rest83978%_ _%lst83964%_) (_%r83979%_ '())) - (let* ((_%rest8398083988%_ _%rest83978%_) - (_%else8398283996%_ (lambda () _%lst83964%_)) - (_%K8398484002%_ - (lambda (_%rest83999%_ _%hd84000%_) + (lambda (_%proc83694%_ _%lst83695%_) + (let ((_%proc83698%_ _%proc83694%_)) + (let _%lp83707%_ ((_%rest83709%_ _%lst83695%_) (_%r83710%_ '())) + (let* ((_%rest8371183719%_ _%rest83709%_) + (_%else8371383727%_ (lambda () _%lst83695%_)) + (_%K8371583733%_ + (lambda (_%rest83730%_ _%hd83731%_) (if (let () (declare (not safe)) - (_%proc83967%_ _%hd84000%_)) - (let () - (declare (not safe)) - (__foldl1 cons _%rest83999%_ _%r83979%_)) - (let ((__tmp87935 (cons _%hd84000%_ _%r83979%_))) - (declare (not safe)) - (_%lp83976%_ _%rest83999%_ __tmp87935)))))) - (if (let () (declare (not safe)) (##pair? _%rest8398083988%_)) - (let ((_%hd8398584005%_ + (_%proc83698%_ _%hd83731%_)) + (__foldl1 cons _%rest83730%_ _%r83710%_) + (_%lp83707%_ + _%rest83730%_ + (cons _%hd83731%_ _%r83710%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8371183719%_)) + (let ((_%hd8371683736%_ (let () (declare (not safe)) - (##car _%rest8398083988%_))) - (_%tl8398684007%_ + (##car _%rest8371183719%_))) + (_%tl8371783738%_ (let () (declare (not safe)) - (##cdr _%rest8398083988%_)))) - (let* ((_%hd84010%_ _%hd8398584005%_) - (_%rest84012%_ _%tl8398684007%_)) - (declare (not safe)) - (_%K8398484002%_ _%rest84012%_ _%hd84010%_))) - (let () (declare (not safe)) (_%else8398283996%_)))))))) + (##cdr _%rest8371183719%_)))) + (let* ((_%hd83741%_ _%hd8371683736%_) + (_%rest83743%_ _%tl8371783738%_)) + (_%K8371583733%_ _%rest83743%_ _%hd83741%_))) + (_%else8371383727%_))))))) (define 1+ - (lambda (_%x83949%_) - (let () - (if (let () (declare (not safe)) (number? _%x83949%_)) - (let ((_%x83953%_ _%x83949%_)) - (declare (not safe)) - (__1+ _%x83953%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@517.11-517.12" - 'contract: - 'number? - 'value: - _%x83949%_) - '#!void))))) + (lambda (_%x83680%_) + (if (number? _%x83680%_) + (let ((_%x83684%_ _%x83680%_)) (__1+ _%x83684%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@517.11-517.12" + 'contract: + 'number? + 'value: + _%x83680%_) + '#!void)))) (define __1+ - (lambda (_%x83937%_) (let ((_%x83940%_ _%x83937%_)) (+ _%x83940%_ '1)))) + (lambda (_%x83668%_) (let ((_%x83671%_ _%x83668%_)) (+ _%x83671%_ '1)))) (define 1- - (lambda (_%x83923%_) - (let () - (if (let () (declare (not safe)) (number? _%x83923%_)) - (let ((_%x83927%_ _%x83923%_)) - (declare (not safe)) - (__1- _%x83927%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@525.11-525.12" - 'contract: - 'number? - 'value: - _%x83923%_) - '#!void))))) + (lambda (_%x83654%_) + (if (number? _%x83654%_) + (let ((_%x83658%_ _%x83654%_)) (__1- _%x83658%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@525.11-525.12" + 'contract: + 'number? + 'value: + _%x83654%_) + '#!void)))) (define __1- - (lambda (_%x83911%_) (let ((_%x83914%_ _%x83911%_)) (- _%x83914%_ '1)))) + (lambda (_%x83642%_) (let ((_%x83645%_ _%x83642%_)) (- _%x83645%_ '1)))) (define fx1+ - (lambda (_%x83897%_) - (let () - (if (let () (declare (not safe)) (fixnum? _%x83897%_)) - (let ((_%x83901%_ _%x83897%_)) - (declare (not safe)) - (__fx1+ _%x83901%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@533.13-533.14" - 'contract: - 'fixnum? - 'value: - _%x83897%_) - '#!void))))) + (lambda (_%x83628%_) + (if (fixnum? _%x83628%_) + (let ((_%x83632%_ _%x83628%_)) (__fx1+ _%x83632%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@533.13-533.14" + 'contract: + 'fixnum? + 'value: + _%x83628%_) + '#!void)))) (define __fx1+ - (lambda (_%x83885%_) - (let ((_%x83888%_ _%x83885%_)) + (lambda (_%x83616%_) + (let ((_%x83619%_ _%x83616%_)) (declare (not safe)) - (##fx+ _%x83888%_ '1)))) + (##fx+ _%x83619%_ '1)))) (define fx1- - (lambda (_%x83871%_) - (let () - (if (let () (declare (not safe)) (fixnum? _%x83871%_)) - (let ((_%x83875%_ _%x83871%_)) - (declare (not safe)) - (__fx1- _%x83875%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@541.13-541.14" - 'contract: - 'fixnum? - 'value: - _%x83871%_) - '#!void))))) + (lambda (_%x83602%_) + (if (fixnum? _%x83602%_) + (let ((_%x83606%_ _%x83602%_)) (__fx1- _%x83606%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@541.13-541.14" + 'contract: + 'fixnum? + 'value: + _%x83602%_) + '#!void)))) (define __fx1- - (lambda (_%x83859%_) - (let ((_%x83862%_ _%x83859%_)) + (lambda (_%x83590%_) + (let ((_%x83593%_ _%x83590%_)) (declare (not safe)) - (##fx- _%x83862%_ '1)))) + (##fx- _%x83593%_ '1)))) (define fxshift fxarithmetic-shift) (define fx/ fxquotient) (define fx>=0? - (lambda (_%x83856%_) - (let () - (if (let () (declare (not safe)) (fixnum? _%x83856%_)) - (let () (declare (not safe)) (##fx>= _%x83856%_ '0)) - '#f)))) + (lambda (_%x83587%_) + (if (fixnum? _%x83587%_) + (let () (declare (not safe)) (##fx>= _%x83587%_ '0)) + '#f))) (define fx>0? - (lambda (_%x83853%_) - (let () - (if (let () (declare (not safe)) (fixnum? _%x83853%_)) - (let () (declare (not safe)) (##fx> _%x83853%_ '0)) - '#f)))) + (lambda (_%x83584%_) + (if (fixnum? _%x83584%_) + (let () (declare (not safe)) (##fx> _%x83584%_ '0)) + '#f))) (define fx=0? - (lambda (_%x83850%_) - (let () (declare (not safe)) (##fx= _%x83850%_ '0)))) + (lambda (_%x83581%_) + (let () (declare (not safe)) (##fx= _%x83581%_ '0)))) (define fx<0? - (lambda (_%x83847%_) - (let () - (if (let () (declare (not safe)) (fixnum? _%x83847%_)) - (let () (declare (not safe)) (##fx< _%x83847%_ '0)) - '#f)))) + (lambda (_%x83578%_) + (if (fixnum? _%x83578%_) + (let () (declare (not safe)) (##fx< _%x83578%_ '0)) + '#f))) (define fx<=0? - (lambda (_%x83844%_) - (let () - (if (let () (declare (not safe)) (fixnum? _%x83844%_)) - (let () (declare (not safe)) (##fx<= _%x83844%_ '0)) - '#f)))) + (lambda (_%x83575%_) + (if (fixnum? _%x83575%_) + (let () (declare (not safe)) (##fx<= _%x83575%_ '0)) + '#f))) (define interned-symbol? - (lambda (_%x83841%_) - (let () - (if (let () (declare (not safe)) (symbol? _%x83841%_)) - (let ((__tmp87936 (uninterned-symbol? _%x83841%_))) - (declare (not safe)) - (not __tmp87936)) - '#f)))) + (lambda (_%x83572%_) + (if (symbol? _%x83572%_) (not (uninterned-symbol? _%x83572%_)) '#f))) (define display-as-string - (lambda (_%x83826%_ _%port83827%_) - (let () - (if (output-port? _%port83827%_) - (let ((_%port83831%_ _%port83827%_)) - (declare (not safe)) - (__display-as-string _%x83826%_ _%port83831%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@569.28-569.32" - 'contract: - 'output-port? - 'value: - _%port83827%_) - '#!void))))) + (lambda (_%x83557%_ _%port83558%_) + (if (output-port? _%port83558%_) + (let ((_%port83562%_ _%port83558%_)) + (__display-as-string _%x83557%_ _%port83562%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@569.28-569.32" + 'contract: + 'output-port? + 'value: + _%port83558%_) + '#!void)))) (define __display-as-string - (lambda (_%x83783%_ _%port83784%_) - (let ((_%port83787%_ _%port83784%_)) - (if (or (let () (declare (not safe)) (string? _%x83783%_)) - (let () (declare (not safe)) (symbol? _%x83783%_)) - (let () (declare (not safe)) (keyword? _%x83783%_)) - (let () (declare (not safe)) (number? _%x83783%_)) - (let () (declare (not safe)) (char? _%x83783%_))) - (let () (display _%x83783%_ _%port83787%_)) - (if (let () (declare (not safe)) (pair? _%x83783%_)) + (lambda (_%x83514%_ _%port83515%_) + (let ((_%port83518%_ _%port83515%_)) + (if (or (string? _%x83514%_) + (symbol? _%x83514%_) + (keyword? _%x83514%_) + (number? _%x83514%_) + (char? _%x83514%_)) + (display _%x83514%_ _%port83518%_) + (if (pair? _%x83514%_) (let () - (let ((__tmp87937 (car _%x83783%_))) - (declare (not safe)) - (__display-as-string __tmp87937 _%port83787%_)) - (let ((__tmp87938 (cdr _%x83783%_))) - (declare (not safe)) - (__display-as-string __tmp87938 _%port83787%_))) - (if (let () (declare (not safe)) (vector? _%x83783%_)) - (let () - (vector-for-each - (lambda (_%g8381083812%_) - (let () - (declare (not safe)) - (__display-as-string - _%g8381083812%_ - _%port83787%_))) - _%x83783%_)) - (if (or (let () (declare (not safe)) (null? _%x83783%_)) - (let () - (declare (not safe)) - (eq? _%x83783%_ '#!void)) - (let () - (declare (not safe)) - (eof-object? _%x83783%_)) - (let () - (declare (not safe)) - (boolean? _%x83783%_))) - (let () '#!void) - (let () - (error '"cannot convert as string" _%x83783%_) + (__display-as-string (car _%x83514%_) _%port83518%_) + (__display-as-string (cdr _%x83514%_) _%port83518%_)) + (if (vector? _%x83514%_) + (vector-for-each + (lambda (_%g8354183543%_) + (__display-as-string _%g8354183543%_ _%port83518%_)) + _%x83514%_) + (if (or (null? _%x83514%_) + (eq? _%x83514%_ '#!void) + (eof-object? _%x83514%_) + (boolean? _%x83514%_)) + '#!void + (let () + (error '"cannot convert as string" _%x83514%_) '#!void)))))))) (define as-string__0 - (lambda (_%x83766%_) - (if (let () (declare (not safe)) (string? _%x83766%_)) - (let () _%x83766%_) - (if (let () (declare (not safe)) (symbol? _%x83766%_)) - (let () (symbol->string _%x83766%_)) - (if (let () (declare (not safe)) (keyword? _%x83766%_)) - (let () (keyword->string _%x83766%_)) - (if (let () (declare (not safe)) (number? _%x83766%_)) - (let () (number->string _%x83766%_)) - (let () - (call-with-output-string - '() - (lambda (_%g8377283774%_) - (let () - (declare (not safe)) - (__display-as-string - _%x83766%_ - _%g8377283774%_))))))))))) + (lambda (_%x83497%_) + (if (string? _%x83497%_) + _%x83497%_ + (if (symbol? _%x83497%_) + (symbol->string _%x83497%_) + (if (keyword? _%x83497%_) + (keyword->string _%x83497%_) + (if (number? _%x83497%_) + (number->string _%x83497%_) + (call-with-output-string + '() + (lambda (_%g8350383505%_) + (__display-as-string + _%x83497%_ + _%g8350383505%_))))))))) (define as-string__1 - (lambda _%args83777%_ + (lambda _%args83508%_ (call-with-output-string '() - (lambda (_%g8377883780%_) - (let () - (declare (not safe)) - (__display-as-string _%args83777%_ _%g8377883780%_)))))) + (lambda (_%g8350983511%_) + (__display-as-string _%args83508%_ _%g8350983511%_))))) (define as-string - (lambda _g87940_ - (let ((_g87939_ (let () (declare (not safe)) (##length _g87940_)))) - (cond ((let () (declare (not safe)) (##fx= _g87939_ 1)) - (apply (lambda (_%x83766%_) - (let () - (declare (not safe)) - (as-string__0 _%x83766%_))) - _g87940_)) - (#t (apply as-string__1 _g87940_)) + (lambda _g87648_ + (let ((_g87647_ (let () (declare (not safe)) (##length _g87648_)))) + (cond ((let () (declare (not safe)) (##fx= _g87647_ 1)) + (apply as-string__0 _g87648_)) + (#t (apply as-string__1 _g87648_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g87940_)))))) + _g87648_)))))) (define make-symbol__0 - (lambda (_%x83762%_) - (if (let () (declare (not safe)) (interned-symbol? _%x83762%_)) - _%x83762%_ - (string->symbol - (let () (declare (not safe)) (as-string__0 _%x83762%_)))))) + (lambda (_%x83493%_) + (if (interned-symbol? _%x83493%_) + _%x83493%_ + (string->symbol (as-string__0 _%x83493%_))))) (define make-symbol__1 - (lambda _%args83764%_ (string->symbol (apply as-string _%args83764%_)))) + (lambda _%args83495%_ (string->symbol (apply as-string _%args83495%_)))) (define make-symbol - (lambda _g87942_ - (let ((_g87941_ (let () (declare (not safe)) (##length _g87942_)))) - (cond ((let () (declare (not safe)) (##fx= _g87941_ 1)) - (apply (lambda (_%x83762%_) - (let () - (declare (not safe)) - (make-symbol__0 _%x83762%_))) - _g87942_)) - (#t (apply make-symbol__1 _g87942_)) + (lambda _g87650_ + (let ((_g87649_ (let () (declare (not safe)) (##length _g87650_)))) + (cond ((let () (declare (not safe)) (##fx= _g87649_ 1)) + (apply make-symbol__0 _g87650_)) + (#t (apply make-symbol__1 _g87650_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g87942_)))))) + _g87650_)))))) (define make-keyword__0 - (lambda (_%x83758%_) - (if (let () (declare (not safe)) (interned-keyword? _%x83758%_)) - _%x83758%_ - (string->keyword - (let () (declare (not safe)) (as-string__0 _%x83758%_)))))) + (lambda (_%x83489%_) + (if (interned-keyword? _%x83489%_) + _%x83489%_ + (string->keyword (as-string__0 _%x83489%_))))) (define make-keyword__1 - (lambda _%args83760%_ (string->keyword (apply as-string _%args83760%_)))) + (lambda _%args83491%_ (string->keyword (apply as-string _%args83491%_)))) (define make-keyword - (lambda _g87944_ - (let ((_g87943_ (let () (declare (not safe)) (##length _g87944_)))) - (cond ((let () (declare (not safe)) (##fx= _g87943_ 1)) - (apply (lambda (_%x83758%_) - (let () - (declare (not safe)) - (make-keyword__0 _%x83758%_))) - _g87944_)) - (#t (apply make-keyword__1 _g87944_)) + (lambda _g87652_ + (let ((_g87651_ (let () (declare (not safe)) (##length _g87652_)))) + (cond ((let () (declare (not safe)) (##fx= _g87651_ 1)) + (apply make-keyword__0 _g87652_)) + (#t (apply make-keyword__1 _g87652_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g87944_)))))) + _g87652_)))))) (define interned-keyword? - (lambda (_%x83755%_) - (let () - (if (let () (declare (not safe)) (keyword? _%x83755%_)) - (let ((__tmp87945 (uninterned-keyword? _%x83755%_))) - (declare (not safe)) - (not __tmp87945)) - '#f)))) + (lambda (_%x83486%_) + (if (keyword? _%x83486%_) (not (uninterned-keyword? _%x83486%_)) '#f))) (define symbol->keyword - (lambda (_%sym83741%_) - (let () - (if (let () (declare (not safe)) (symbol? _%sym83741%_)) - (let ((_%sym83745%_ _%sym83741%_)) - (declare (not safe)) - (__symbol->keyword _%sym83745%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@612.24-612.27" - 'contract: - 'symbol? - 'value: - _%sym83741%_) - '#!void))))) + (lambda (_%sym83472%_) + (if (symbol? _%sym83472%_) + (let ((_%sym83476%_ _%sym83472%_)) + (__symbol->keyword _%sym83476%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@612.24-612.27" + 'contract: + 'symbol? + 'value: + _%sym83472%_) + '#!void)))) (define __symbol->keyword - (lambda (_%sym83729%_) - (let ((_%sym83732%_ _%sym83729%_)) - (if (uninterned-symbol? _%sym83732%_) - (let ((__tmp87946 + (lambda (_%sym83460%_) + (let ((_%sym83463%_ _%sym83460%_)) + (if (uninterned-symbol? _%sym83463%_) + (let ((__tmp87653 (let () (declare (not safe)) - (##symbol->string _%sym83732%_)))) + (##symbol->string _%sym83463%_)))) (declare (not safe)) - (##string->uninterned-keyword __tmp87946)) - (let ((__tmp87947 + (##string->uninterned-keyword __tmp87653)) + (let ((__tmp87654 (let () (declare (not safe)) - (##symbol->string _%sym83732%_)))) + (##symbol->string _%sym83463%_)))) (declare (not safe)) - (##string->keyword __tmp87947)))))) + (##string->keyword __tmp87654)))))) (define keyword->symbol - (lambda (_%sym83715%_) - (let () - (if (let () (declare (not safe)) (keyword? _%sym83715%_)) - (let ((_%sym83719%_ _%sym83715%_)) - (declare (not safe)) - (__keyword->symbol _%sym83719%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@618.24-618.27" - 'contract: - 'keyword? - 'value: - _%sym83715%_) - '#!void))))) + (lambda (_%sym83446%_) + (if (keyword? _%sym83446%_) + (let ((_%sym83450%_ _%sym83446%_)) + (__keyword->symbol _%sym83450%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@618.24-618.27" + 'contract: + 'keyword? + 'value: + _%sym83446%_) + '#!void)))) (define __keyword->symbol - (lambda (_%sym83703%_) - (let ((_%sym83706%_ _%sym83703%_)) - (if (uninterned-keyword? _%sym83706%_) - (let ((__tmp87948 + (lambda (_%sym83434%_) + (let ((_%sym83437%_ _%sym83434%_)) + (if (uninterned-keyword? _%sym83437%_) + (let ((__tmp87655 (let () (declare (not safe)) - (##keyword->string _%sym83706%_)))) + (##keyword->string _%sym83437%_)))) (declare (not safe)) - (##string->uninterned-symbol __tmp87948)) - (let ((__tmp87949 + (##string->uninterned-symbol __tmp87655)) + (let ((__tmp87656 (let () (declare (not safe)) - (##keyword->string _%sym83706%_)))) + (##keyword->string _%sym83437%_)))) (declare (not safe)) - (##string->symbol __tmp87949)))))) + (##string->symbol __tmp87656)))))) (define bytes->string__% - (lambda (_%bstr83668%_ _%enc83669%_) - (let () - (if (let () (declare (not safe)) (u8vector? _%bstr83668%_)) - (let ((_%bstr83673%_ _%bstr83668%_)) - (if (let () (declare (not safe)) (symbol? _%enc83669%_)) - (let ((_%enc83683%_ _%enc83669%_)) - (declare (not safe)) - (__bytes->string__% _%bstr83673%_ _%enc83683%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@625.25-625.28" - 'contract: - 'symbol? - 'value: - _%enc83669%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@624.22-624.26" - 'contract: - 'u8vector? - 'value: - _%bstr83668%_) - '#!void))))) + (lambda (_%bstr83399%_ _%enc83400%_) + (if (u8vector? _%bstr83399%_) + (let ((_%bstr83404%_ _%bstr83399%_)) + (if (symbol? _%enc83400%_) + (let ((_%enc83414%_ _%enc83400%_)) + (__bytes->string__% _%bstr83404%_ _%enc83414%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@625.25-625.28" + 'contract: + 'symbol? + 'value: + _%enc83400%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@624.22-624.26" + 'contract: + 'u8vector? + 'value: + _%bstr83399%_) + '#!void)))) (define bytes->string__0 - (lambda (_%bstr83696%_) - (let ((_%enc83698%_ 'UTF-8)) - (declare (not safe)) - (bytes->string__% _%bstr83696%_ _%enc83698%_)))) + (lambda (_%bstr83427%_) + (let ((_%enc83429%_ 'UTF-8)) + (bytes->string__% _%bstr83427%_ _%enc83429%_)))) (define bytes->string - (lambda _g87951_ - (let ((_g87950_ (let () (declare (not safe)) (##length _g87951_)))) - (cond ((let () (declare (not safe)) (##fx= _g87950_ 1)) - (apply (lambda (_%bstr83696%_) - (let () - (declare (not safe)) - (bytes->string__0 _%bstr83696%_))) - _g87951_)) - ((let () (declare (not safe)) (##fx= _g87950_ 2)) - (apply (lambda (_%bstr83700%_ _%enc83701%_) - (let () - (declare (not safe)) - (bytes->string__% _%bstr83700%_ _%enc83701%_))) - _g87951_)) + (lambda _g87658_ + (let ((_g87657_ (let () (declare (not safe)) (##length _g87658_)))) + (cond ((let () (declare (not safe)) (##fx= _g87657_ 1)) + (apply bytes->string__0 _g87658_)) + ((let () (declare (not safe)) (##fx= _g87657_ 2)) + (apply bytes->string__% _g87658_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g87951_)))))) + _g87658_)))))) (define __bytes->string__% - (lambda (_%bstr83627%_ _%enc83628%_) - (let () - (let* ((_%bstr83631%_ _%bstr83627%_) (_%enc83639%_ _%enc83628%_)) - (if (eq? _%enc83639%_ 'UTF-8) - (let () (declare (not safe)) (##utf8->string _%bstr83631%_)) - (let* ((_%in83648%_ - (open-input-u8vector - (cons 'char-encoding: - (cons _%enc83639%_ - (cons 'init: (cons _%bstr83631%_ '())))))) - (_%len83650%_ - (let () - (declare (not safe)) - (##u8vector-length _%bstr83631%_))) - (_%out83652%_ - (let () - (declare (not safe)) - (##make-string _%len83650%_))) - (_%n83654%_ - (read-substring - _%out83652%_ - '0 - _%len83650%_ - _%in83648%_))) - (string-shrink! _%out83652%_ _%n83654%_) - _%out83652%_)))))) + (lambda (_%bstr83358%_ _%enc83359%_) + (let* ((_%bstr83362%_ _%bstr83358%_) (_%enc83370%_ _%enc83359%_)) + (if (eq? _%enc83370%_ 'UTF-8) + (let () (declare (not safe)) (##utf8->string _%bstr83362%_)) + (let* ((_%in83379%_ + (open-input-u8vector + (cons 'char-encoding: + (cons _%enc83370%_ + (cons 'init: (cons _%bstr83362%_ '())))))) + (_%len83381%_ + (let () + (declare (not safe)) + (##u8vector-length _%bstr83362%_))) + (_%out83383%_ + (let () + (declare (not safe)) + (##make-string _%len83381%_))) + (_%n83385%_ + (read-substring + _%out83383%_ + '0 + _%len83381%_ + _%in83379%_))) + (string-shrink! _%out83383%_ _%n83385%_) + _%out83383%_))))) (define __bytes->string__0 - (lambda (_%bstr83660%_) - (let ((_%enc83662%_ 'UTF-8)) - (declare (not safe)) - (__bytes->string__% _%bstr83660%_ _%enc83662%_)))) + (lambda (_%bstr83391%_) + (let ((_%enc83393%_ 'UTF-8)) + (__bytes->string__% _%bstr83391%_ _%enc83393%_)))) (define __bytes->string - (lambda _g87953_ - (let ((_g87952_ (let () (declare (not safe)) (##length _g87953_)))) - (cond ((let () (declare (not safe)) (##fx= _g87952_ 1)) - (apply (lambda (_%bstr83660%_) - (let () - (declare (not safe)) - (__bytes->string__0 _%bstr83660%_))) - _g87953_)) - ((let () (declare (not safe)) (##fx= _g87952_ 2)) - (apply (lambda (_%bstr83664%_ _%enc83665%_) - (let () - (declare (not safe)) - (__bytes->string__% _%bstr83664%_ _%enc83665%_))) - _g87953_)) + (lambda _g87660_ + (let ((_g87659_ (let () (declare (not safe)) (##length _g87660_)))) + (cond ((let () (declare (not safe)) (##fx= _g87659_ 1)) + (apply __bytes->string__0 _g87660_)) + ((let () (declare (not safe)) (##fx= _g87659_ 2)) + (apply __bytes->string__% _g87660_)) (else (##raise-wrong-number-of-arguments-exception __bytes->string - _g87953_)))))) + _g87660_)))))) (define string->bytes__% - (lambda (_%str83591%_ _%enc83592%_) - (let () - (if (let () (declare (not safe)) (string? _%str83591%_)) - (let ((_%str83596%_ _%str83591%_)) - (if (let () (declare (not safe)) (symbol? _%enc83592%_)) - (let ((_%enc83606%_ _%enc83592%_)) - (declare (not safe)) - (__string->bytes__% _%str83596%_ _%enc83606%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@637.25-637.28" - 'contract: - 'symbol? - 'value: - _%enc83592%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@636.22-636.25" - 'contract: - 'string? - 'value: - _%str83591%_) - '#!void))))) + (lambda (_%str83322%_ _%enc83323%_) + (if (string? _%str83322%_) + (let ((_%str83327%_ _%str83322%_)) + (if (symbol? _%enc83323%_) + (let ((_%enc83337%_ _%enc83323%_)) + (__string->bytes__% _%str83327%_ _%enc83337%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@637.25-637.28" + 'contract: + 'symbol? + 'value: + _%enc83323%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@636.22-636.25" + 'contract: + 'string? + 'value: + _%str83322%_) + '#!void)))) (define string->bytes__0 - (lambda (_%str83619%_) - (let ((_%enc83621%_ 'UTF-8)) - (declare (not safe)) - (string->bytes__% _%str83619%_ _%enc83621%_)))) + (lambda (_%str83350%_) + (let ((_%enc83352%_ 'UTF-8)) + (string->bytes__% _%str83350%_ _%enc83352%_)))) (define string->bytes - (lambda _g87955_ - (let ((_g87954_ (let () (declare (not safe)) (##length _g87955_)))) - (cond ((let () (declare (not safe)) (##fx= _g87954_ 1)) - (apply (lambda (_%str83619%_) - (let () - (declare (not safe)) - (string->bytes__0 _%str83619%_))) - _g87955_)) - ((let () (declare (not safe)) (##fx= _g87954_ 2)) - (apply (lambda (_%str83623%_ _%enc83624%_) - (let () - (declare (not safe)) - (string->bytes__% _%str83623%_ _%enc83624%_))) - _g87955_)) + (lambda _g87662_ + (let ((_g87661_ (let () (declare (not safe)) (##length _g87662_)))) + (cond ((let () (declare (not safe)) (##fx= _g87661_ 1)) + (apply string->bytes__0 _g87662_)) + ((let () (declare (not safe)) (##fx= _g87661_ 2)) + (apply string->bytes__% _g87662_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g87955_)))))) + _g87662_)))))) (define __string->bytes__% - (lambda (_%str83559%_ _%enc83560%_) - (let () - (let* ((_%str83563%_ _%str83559%_) (_%enc83571%_ _%enc83560%_)) - (if (eq? _%enc83571%_ 'UTF-8) - (let () (declare (not safe)) (##string->utf8 _%str83563%_)) - (let ((__tmp87956 - (let () - (declare (not safe)) - (##string-length _%str83563%_)))) - (declare (not safe)) - (__substring->bytes - _%str83563%_ - '0 - __tmp87956 - _%enc83571%_))))))) + (lambda (_%str83290%_ _%enc83291%_) + (let* ((_%str83294%_ _%str83290%_) (_%enc83302%_ _%enc83291%_)) + (if (eq? _%enc83302%_ 'UTF-8) + (let () (declare (not safe)) (##string->utf8 _%str83294%_)) + (let ((__tmp87663 + (let () + (declare (not safe)) + (##string-length _%str83294%_)))) + (declare (not safe)) + (__substring->bytes + _%str83294%_ + '0 + __tmp87663 + _%enc83302%_)))))) (define __string->bytes__0 - (lambda (_%str83583%_) - (let ((_%enc83585%_ 'UTF-8)) - (declare (not safe)) - (__string->bytes__% _%str83583%_ _%enc83585%_)))) + (lambda (_%str83314%_) + (let ((_%enc83316%_ 'UTF-8)) + (__string->bytes__% _%str83314%_ _%enc83316%_)))) (define __string->bytes - (lambda _g87958_ - (let ((_g87957_ (let () (declare (not safe)) (##length _g87958_)))) - (cond ((let () (declare (not safe)) (##fx= _g87957_ 1)) - (apply (lambda (_%str83583%_) - (let () - (declare (not safe)) - (__string->bytes__0 _%str83583%_))) - _g87958_)) - ((let () (declare (not safe)) (##fx= _g87957_ 2)) - (apply (lambda (_%str83587%_ _%enc83588%_) - (let () - (declare (not safe)) - (__string->bytes__% _%str83587%_ _%enc83588%_))) - _g87958_)) + (lambda _g87665_ + (let ((_g87664_ (let () (declare (not safe)) (##length _g87665_)))) + (cond ((let () (declare (not safe)) (##fx= _g87664_ 1)) + (apply __string->bytes__0 _g87665_)) + ((let () (declare (not safe)) (##fx= _g87664_ 2)) + (apply __string->bytes__% _g87665_)) (else (##raise-wrong-number-of-arguments-exception __string->bytes - _g87958_)))))) + _g87665_)))))) (define substring->bytes__% - (lambda (_%str83507%_ _%start83508%_ _%end83509%_ _%enc83510%_) - (let () - (if (let () (declare (not safe)) (string? _%str83507%_)) - (let ((_%str83514%_ _%str83507%_)) - (if (let () - (declare (not safe)) - (nonnegative-fixnum? _%start83508%_)) - (let ((_%start83524%_ _%start83508%_)) - (if (let () - (declare (not safe)) - (nonnegative-fixnum? _%end83509%_)) - (let ((_%end83534%_ _%end83509%_)) - (declare (not safe)) - (__substring->bytes__% - _%str83514%_ - _%start83524%_ - _%end83534%_ - _%enc83510%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@645.25-645.28" - 'contract: - 'nonnegative-fixnum? - 'value: - _%end83509%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@644.25-644.30" - 'contract: - 'nonnegative-fixnum? - 'value: - _%start83508%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@643.25-643.28" - 'contract: - 'string? - 'value: - _%str83507%_) - '#!void))))) + (lambda (_%str83238%_ _%start83239%_ _%end83240%_ _%enc83241%_) + (if (string? _%str83238%_) + (let ((_%str83245%_ _%str83238%_)) + (if (nonnegative-fixnum? _%start83239%_) + (let ((_%start83255%_ _%start83239%_)) + (if (nonnegative-fixnum? _%end83240%_) + (let ((_%end83265%_ _%end83240%_)) + (__substring->bytes__% + _%str83245%_ + _%start83255%_ + _%end83265%_ + _%enc83241%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@645.25-645.28" + 'contract: + 'nonnegative-fixnum? + 'value: + _%end83240%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@644.25-644.30" + 'contract: + 'nonnegative-fixnum? + 'value: + _%start83239%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@643.25-643.28" + 'contract: + 'string? + 'value: + _%str83238%_) + '#!void)))) (define substring->bytes__0 - (lambda (_%str83547%_ _%start83548%_ _%end83549%_) - (let ((_%enc83551%_ 'UTF-8)) - (declare (not safe)) + (lambda (_%str83278%_ _%start83279%_ _%end83280%_) + (let ((_%enc83282%_ 'UTF-8)) (substring->bytes__% - _%str83547%_ - _%start83548%_ - _%end83549%_ - _%enc83551%_)))) + _%str83278%_ + _%start83279%_ + _%end83280%_ + _%enc83282%_)))) (define substring->bytes - (lambda _g87960_ - (let ((_g87959_ (let () (declare (not safe)) (##length _g87960_)))) - (cond ((let () (declare (not safe)) (##fx= _g87959_ 3)) - (apply (lambda (_%str83547%_ _%start83548%_ _%end83549%_) - (let () - (declare (not safe)) - (substring->bytes__0 - _%str83547%_ - _%start83548%_ - _%end83549%_))) - _g87960_)) - ((let () (declare (not safe)) (##fx= _g87959_ 4)) - (apply (lambda (_%str83553%_ - _%start83554%_ - _%end83555%_ - _%enc83556%_) - (let () - (declare (not safe)) - (substring->bytes__% - _%str83553%_ - _%start83554%_ - _%end83555%_ - _%enc83556%_))) - _g87960_)) + (lambda _g87667_ + (let ((_g87666_ (let () (declare (not safe)) (##length _g87667_)))) + (cond ((let () (declare (not safe)) (##fx= _g87666_ 3)) + (apply substring->bytes__0 _g87667_)) + ((let () (declare (not safe)) (##fx= _g87666_ 4)) + (apply substring->bytes__% _g87667_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g87960_)))))) + _g87667_)))))) (define __substring->bytes__% - (lambda (_%str83459%_ _%start83460%_ _%end83461%_ _%enc83462%_) - (let ((_%str83465%_ _%str83459%_)) - (let* ((_%start83473%_ _%start83460%_) (_%end83481%_ _%end83461%_)) - (if (eq? _%enc83462%_ 'UTF-8) - (string->utf8 _%str83465%_ _%start83473%_ _%end83481%_) - (let ((_%out83490%_ - (open-output-u8vector - (cons 'char-encoding: (cons _%enc83462%_ '()))))) - (write-substring - _%str83465%_ - _%start83473%_ - _%end83481%_ - _%out83490%_) - (get-output-u8vector _%out83490%_))))))) + (lambda (_%str83190%_ _%start83191%_ _%end83192%_ _%enc83193%_) + (let* ((_%str83196%_ _%str83190%_) + (_%start83204%_ _%start83191%_) + (_%end83212%_ _%end83192%_)) + (if (eq? _%enc83193%_ 'UTF-8) + (string->utf8 _%str83196%_ _%start83204%_ _%end83212%_) + (let ((_%out83221%_ + (open-output-u8vector + (cons 'char-encoding: (cons _%enc83193%_ '()))))) + (write-substring + _%str83196%_ + _%start83204%_ + _%end83212%_ + _%out83221%_) + (get-output-u8vector _%out83221%_)))))) (define __substring->bytes__0 - (lambda (_%str83495%_ _%start83496%_ _%end83497%_) - (let ((_%enc83499%_ 'UTF-8)) - (declare (not safe)) + (lambda (_%str83226%_ _%start83227%_ _%end83228%_) + (let ((_%enc83230%_ 'UTF-8)) (__substring->bytes__% - _%str83495%_ - _%start83496%_ - _%end83497%_ - _%enc83499%_)))) + _%str83226%_ + _%start83227%_ + _%end83228%_ + _%enc83230%_)))) (define __substring->bytes - (lambda _g87962_ - (let ((_g87961_ (let () (declare (not safe)) (##length _g87962_)))) - (cond ((let () (declare (not safe)) (##fx= _g87961_ 3)) - (apply (lambda (_%str83495%_ _%start83496%_ _%end83497%_) - (let () - (declare (not safe)) - (__substring->bytes__0 - _%str83495%_ - _%start83496%_ - _%end83497%_))) - _g87962_)) - ((let () (declare (not safe)) (##fx= _g87961_ 4)) - (apply (lambda (_%str83501%_ - _%start83502%_ - _%end83503%_ - _%enc83504%_) - (let () - (declare (not safe)) - (__substring->bytes__% - _%str83501%_ - _%start83502%_ - _%end83503%_ - _%enc83504%_))) - _g87962_)) + (lambda _g87669_ + (let ((_g87668_ (let () (declare (not safe)) (##length _g87669_)))) + (cond ((let () (declare (not safe)) (##fx= _g87668_ 3)) + (apply __substring->bytes__0 _g87669_)) + ((let () (declare (not safe)) (##fx= _g87668_ 4)) + (apply __substring->bytes__% _g87669_)) (else (##raise-wrong-number-of-arguments-exception __substring->bytes - _g87962_)))))) + _g87669_)))))) (define string-empty? - (lambda (_%str83444%_) - (let () - (if (let () (declare (not safe)) (string? _%str83444%_)) - (let ((_%str83448%_ _%str83444%_)) - (declare (not safe)) - (__string-empty? _%str83448%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@654.22-654.25" - 'contract: - 'string? - 'value: - _%str83444%_) - '#!void))))) + (lambda (_%str83175%_) + (if (string? _%str83175%_) + (let ((_%str83179%_ _%str83175%_)) (__string-empty? _%str83179%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@654.22-654.25" + 'contract: + 'string? + 'value: + _%str83175%_) + '#!void)))) (define __string-empty? - (lambda (_%str83432%_) - (let () - (let* ((_%str83435%_ _%str83432%_) - (__tmp87963 - (let () - (declare (not safe)) - (##string-length _%str83435%_)))) - (declare (not safe)) - (##fxzero? __tmp87963))))) + (lambda (_%str83163%_) + (let* ((_%str83166%_ _%str83163%_) + (__tmp87670 + (let () (declare (not safe)) (##string-length _%str83166%_)))) + (declare (not safe)) + (##fxzero? __tmp87670)))) (define string-index__% - (lambda (_%str83384%_ _%char83385%_ _%start83386%_) - (let () - (if (let () (declare (not safe)) (string? _%str83384%_)) - (let ((_%str83390%_ _%str83384%_)) - (if (let () (declare (not safe)) (char? _%char83385%_)) - (let ((_%char83400%_ _%char83385%_)) - (if (let () - (declare (not safe)) - (nonnegative-fixnum? _%start83386%_)) - (let ((_%start83410%_ _%start83386%_)) - (declare (not safe)) - (__string-index__% - _%str83390%_ - _%char83400%_ - _%start83410%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@660.21-660.26" - 'contract: - 'nonnegative-fixnum? - 'value: - _%start83386%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@659.21-659.25" - 'contract: - 'char? - 'value: - _%char83385%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@658.21-658.24" - 'contract: - 'string? - 'value: - _%str83384%_) - '#!void))))) + (lambda (_%str83115%_ _%char83116%_ _%start83117%_) + (if (string? _%str83115%_) + (let ((_%str83121%_ _%str83115%_)) + (if (char? _%char83116%_) + (let ((_%char83131%_ _%char83116%_)) + (if (nonnegative-fixnum? _%start83117%_) + (let ((_%start83141%_ _%start83117%_)) + (__string-index__% + _%str83121%_ + _%char83131%_ + _%start83141%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@660.21-660.26" + 'contract: + 'nonnegative-fixnum? + 'value: + _%start83117%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@659.21-659.25" + 'contract: + 'char? + 'value: + _%char83116%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@658.21-658.24" + 'contract: + 'string? + 'value: + _%str83115%_) + '#!void)))) (define string-index__0 - (lambda (_%str83423%_ _%char83424%_) - (let ((_%start83426%_ '0)) - (declare (not safe)) - (string-index__% _%str83423%_ _%char83424%_ _%start83426%_)))) + (lambda (_%str83154%_ _%char83155%_) + (let ((_%start83157%_ '0)) + (string-index__% _%str83154%_ _%char83155%_ _%start83157%_)))) (define string-index - (lambda _g87965_ - (let ((_g87964_ (let () (declare (not safe)) (##length _g87965_)))) - (cond ((let () (declare (not safe)) (##fx= _g87964_ 2)) - (apply (lambda (_%str83423%_ _%char83424%_) - (let () - (declare (not safe)) - (string-index__0 _%str83423%_ _%char83424%_))) - _g87965_)) - ((let () (declare (not safe)) (##fx= _g87964_ 3)) - (apply (lambda (_%str83428%_ _%char83429%_ _%start83430%_) - (let () - (declare (not safe)) - (string-index__% - _%str83428%_ - _%char83429%_ - _%start83430%_))) - _g87965_)) + (lambda _g87672_ + (let ((_g87671_ (let () (declare (not safe)) (##length _g87672_)))) + (cond ((let () (declare (not safe)) (##fx= _g87671_ 2)) + (apply string-index__0 _g87672_)) + ((let () (declare (not safe)) (##fx= _g87671_ 3)) + (apply string-index__% _g87672_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g87965_)))))) + _g87672_)))))) (define __string-index__% - (lambda (_%str83323%_ _%char83324%_ _%start83325%_) - (let () - (let* ((_%str83328%_ _%str83323%_) (_%char83336%_ _%char83324%_)) - (let* ((_%start83344%_ _%start83325%_) - (_%len83353%_ - (let () - (declare (not safe)) - (##string-length _%str83328%_)))) - (let _%lp83355%_ ((_%k83357%_ _%start83344%_)) - (let ((_%k83359%_ _%k83357%_)) - (if (let () - (declare (not safe)) - (##fx< _%k83359%_ _%len83353%_)) - (if (eq? _%char83336%_ - (let () - (declare (not safe)) - (##string-ref _%str83328%_ _%k83359%_))) - _%k83359%_ - (let ((__tmp87966 - (let () - (declare (not safe)) - (##fx+ _%k83359%_ '1)))) - (declare (not safe)) - (_%lp83355%_ __tmp87966))) - '#f)))))))) + (lambda (_%str83054%_ _%char83055%_ _%start83056%_) + (let* ((_%str83059%_ _%str83054%_) + (_%char83067%_ _%char83055%_) + (_%start83075%_ _%start83056%_) + (_%len83084%_ + (let () (declare (not safe)) (##string-length _%str83059%_)))) + (let _%lp83086%_ ((_%k83088%_ _%start83075%_)) + (let ((_%k83090%_ _%k83088%_)) + (if (let () (declare (not safe)) (##fx< _%k83090%_ _%len83084%_)) + (if (eq? _%char83067%_ + (let () + (declare (not safe)) + (##string-ref _%str83059%_ _%k83090%_))) + _%k83090%_ + (_%lp83086%_ + (let () (declare (not safe)) (##fx+ _%k83090%_ '1)))) + '#f)))))) (define __string-index__0 - (lambda (_%str83374%_ _%char83375%_) - (let ((_%start83377%_ '0)) - (declare (not safe)) - (__string-index__% _%str83374%_ _%char83375%_ _%start83377%_)))) + (lambda (_%str83105%_ _%char83106%_) + (let ((_%start83108%_ '0)) + (__string-index__% _%str83105%_ _%char83106%_ _%start83108%_)))) (define __string-index - (lambda _g87968_ - (let ((_g87967_ (let () (declare (not safe)) (##length _g87968_)))) - (cond ((let () (declare (not safe)) (##fx= _g87967_ 2)) - (apply (lambda (_%str83374%_ _%char83375%_) - (let () - (declare (not safe)) - (__string-index__0 _%str83374%_ _%char83375%_))) - _g87968_)) - ((let () (declare (not safe)) (##fx= _g87967_ 3)) - (apply (lambda (_%str83379%_ _%char83380%_ _%start83381%_) - (let () - (declare (not safe)) - (__string-index__% - _%str83379%_ - _%char83380%_ - _%start83381%_))) - _g87968_)) + (lambda _g87674_ + (let ((_g87673_ (let () (declare (not safe)) (##length _g87674_)))) + (cond ((let () (declare (not safe)) (##fx= _g87673_ 2)) + (apply __string-index__0 _g87674_)) + ((let () (declare (not safe)) (##fx= _g87673_ 3)) + (apply __string-index__% _g87674_)) (else (##raise-wrong-number-of-arguments-exception __string-index - _g87968_)))))) + _g87674_)))))) (define string-rindex__% - (lambda (_%str83284%_ _%char83285%_ _%start83286%_) - (let () - (if (let () (declare (not safe)) (string? _%str83284%_)) - (let ((_%str83290%_ _%str83284%_)) - (if (let () (declare (not safe)) (char? _%char83285%_)) - (let ((_%char83300%_ _%char83285%_)) - (declare (not safe)) - (__string-rindex__% - _%str83290%_ - _%char83300%_ - _%start83286%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@670.25-670.29" - 'contract: - 'char? - 'value: - _%char83285%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@669.22-669.25" - 'contract: - 'string? - 'value: - _%str83284%_) - '#!void))))) + (lambda (_%str83015%_ _%char83016%_ _%start83017%_) + (if (string? _%str83015%_) + (let ((_%str83021%_ _%str83015%_)) + (if (char? _%char83016%_) + (let ((_%char83031%_ _%char83016%_)) + (__string-rindex__% + _%str83021%_ + _%char83031%_ + _%start83017%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@670.25-670.29" + 'contract: + 'char? + 'value: + _%char83016%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@669.22-669.25" + 'contract: + 'string? + 'value: + _%str83015%_) + '#!void)))) (define string-rindex__0 - (lambda (_%str83313%_ _%char83314%_) - (let ((_%start83316%_ '#f)) - (declare (not safe)) - (string-rindex__% _%str83313%_ _%char83314%_ _%start83316%_)))) + (lambda (_%str83044%_ _%char83045%_) + (let ((_%start83047%_ '#f)) + (string-rindex__% _%str83044%_ _%char83045%_ _%start83047%_)))) (define string-rindex - (lambda _g87970_ - (let ((_g87969_ (let () (declare (not safe)) (##length _g87970_)))) - (cond ((let () (declare (not safe)) (##fx= _g87969_ 2)) - (apply (lambda (_%str83313%_ _%char83314%_) - (let () - (declare (not safe)) - (string-rindex__0 _%str83313%_ _%char83314%_))) - _g87970_)) - ((let () (declare (not safe)) (##fx= _g87969_ 3)) - (apply (lambda (_%str83318%_ _%char83319%_ _%start83320%_) - (let () - (declare (not safe)) - (string-rindex__% - _%str83318%_ - _%char83319%_ - _%start83320%_))) - _g87970_)) + (lambda _g87676_ + (let ((_g87675_ (let () (declare (not safe)) (##length _g87676_)))) + (cond ((let () (declare (not safe)) (##fx= _g87675_ 2)) + (apply string-rindex__0 _g87676_)) + ((let () (declare (not safe)) (##fx= _g87675_ 3)) + (apply string-rindex__% _g87676_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g87970_)))))) + _g87676_)))))) (define __string-rindex__% - (lambda (_%str83226%_ _%char83227%_ _%start83228%_) - (let () - (let* ((_%str83231%_ _%str83226%_) (_%char83239%_ _%char83227%_)) - (let* ((_%len83248%_ - (let () - (declare (not safe)) - (##string-length _%str83231%_))) - (_%start83250%_ - (if (let () (declare (not safe)) (fixnum? _%start83228%_)) - _%start83228%_ - (let () - (declare (not safe)) - (##fx- _%len83248%_ '1))))) - (let _%lp83253%_ ((_%k83255%_ _%start83250%_)) - (let ((_%k83257%_ _%k83255%_)) - (if (let () (declare (not safe)) (##fx>= _%k83257%_ '0)) - (if (eq? _%char83239%_ - (let () - (declare (not safe)) - (##string-ref _%str83231%_ _%k83257%_))) - _%k83257%_ - (let ((__tmp87971 - (let () - (declare (not safe)) - (##fx- _%k83257%_ '1)))) - (declare (not safe)) - (_%lp83253%_ __tmp87971))) - '#f)))))))) + (lambda (_%str82957%_ _%char82958%_ _%start82959%_) + (let* ((_%str82962%_ _%str82957%_) + (_%char82970%_ _%char82958%_) + (_%len82979%_ + (let () (declare (not safe)) (##string-length _%str82962%_))) + (_%start82981%_ + (if (fixnum? _%start82959%_) + _%start82959%_ + (let () (declare (not safe)) (##fx- _%len82979%_ '1))))) + (let _%lp82984%_ ((_%k82986%_ _%start82981%_)) + (let ((_%k82988%_ _%k82986%_)) + (if (let () (declare (not safe)) (##fx>= _%k82988%_ '0)) + (if (eq? _%char82970%_ + (let () + (declare (not safe)) + (##string-ref _%str82962%_ _%k82988%_))) + _%k82988%_ + (_%lp82984%_ + (let () (declare (not safe)) (##fx- _%k82988%_ '1)))) + '#f)))))) (define __string-rindex__0 - (lambda (_%str83274%_ _%char83275%_) - (let ((_%start83277%_ '#f)) - (declare (not safe)) - (__string-rindex__% _%str83274%_ _%char83275%_ _%start83277%_)))) + (lambda (_%str83005%_ _%char83006%_) + (let ((_%start83008%_ '#f)) + (__string-rindex__% _%str83005%_ _%char83006%_ _%start83008%_)))) (define __string-rindex - (lambda _g87973_ - (let ((_g87972_ (let () (declare (not safe)) (##length _g87973_)))) - (cond ((let () (declare (not safe)) (##fx= _g87972_ 2)) - (apply (lambda (_%str83274%_ _%char83275%_) - (let () - (declare (not safe)) - (__string-rindex__0 _%str83274%_ _%char83275%_))) - _g87973_)) - ((let () (declare (not safe)) (##fx= _g87972_ 3)) - (apply (lambda (_%str83279%_ _%char83280%_ _%start83281%_) - (let () - (declare (not safe)) - (__string-rindex__% - _%str83279%_ - _%char83280%_ - _%start83281%_))) - _g87973_)) + (lambda _g87678_ + (let ((_g87677_ (let () (declare (not safe)) (##length _g87678_)))) + (cond ((let () (declare (not safe)) (##fx= _g87677_ 2)) + (apply __string-rindex__0 _g87678_)) + ((let () (declare (not safe)) (##fx= _g87677_ 3)) + (apply __string-rindex__% _g87678_)) (else (##raise-wrong-number-of-arguments-exception __string-rindex - _g87973_)))))) + _g87678_)))))) (define string-split - (lambda (_%str83200%_ _%char83201%_) - (let () - (if (let () (declare (not safe)) (string? _%str83200%_)) - (let ((_%str83205%_ _%str83200%_)) - (if (let () (declare (not safe)) (char? _%char83201%_)) - (let ((_%char83215%_ _%char83201%_)) - (declare (not safe)) - (__string-split _%str83205%_ _%char83215%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@681.37-681.41" - 'contract: - 'char? - 'value: - _%char83201%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@681.21-681.24" - 'contract: - 'string? - 'value: - _%str83200%_) - '#!void))))) + (lambda (_%str82931%_ _%char82932%_) + (if (string? _%str82931%_) + (let ((_%str82936%_ _%str82931%_)) + (if (char? _%char82932%_) + (let ((_%char82946%_ _%char82932%_)) + (__string-split _%str82936%_ _%char82946%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@681.37-681.41" + 'contract: + 'char? + 'value: + _%char82932%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@681.21-681.24" + 'contract: + 'string? + 'value: + _%str82931%_) + '#!void)))) (define __string-split - (lambda (_%str83141%_ _%char83142%_) - (let ((_%str83145%_ _%str83141%_)) - (let* ((_%char83153%_ _%char83142%_) - (_%len83162%_ + (lambda (_%str82872%_ _%char82873%_) + (let* ((_%str82876%_ _%str82872%_) + (_%char82884%_ _%char82873%_) + (_%len82893%_ + (let () (declare (not safe)) (##string-length _%str82876%_)))) + (let _%lp82895%_ ((_%start82897%_ '0) (_%r82898%_ '())) + (let* ((_%start82901%_ _%start82897%_) + (_%$e82914%_ + (let () + (declare (not safe)) + (__string-index + _%str82876%_ + _%char82884%_ + _%start82901%_)))) + (if _%$e82914%_ + ((lambda (_%end82917%_) + (let ((_%end82919%_ _%end82917%_)) + (_%lp82895%_ + (let () (declare (not safe)) (##fx+ _%end82919%_ '1)) + (cons (let () + (declare (not safe)) + (##substring + _%str82876%_ + _%start82901%_ + _%end82919%_)) + _%r82898%_)))) + _%$e82914%_) + (if (let () + (declare (not safe)) + (##fx< _%start82901%_ _%len82893%_)) + (__foldl1 + cons + (list (let () + (declare (not safe)) + (##substring + _%str82876%_ + _%start82901%_ + _%len82893%_))) + _%r82898%_) + (reverse! _%r82898%_)))))))) + (define string-join + (lambda (_%strs82722%_ _%join82723%_) + (letrec ((_%join-length82726%_ + (lambda (_%strs82810%_ _%jlen82811%_) + (let _%lp82813%_ ((_%rest82815%_ _%strs82810%_) + (_%len82816%_ '0)) + (let* ((_%len82818%_ _%len82816%_) + (_%rest8282682834%_ _%rest82815%_) + (_%else8282882842%_ (lambda () '0)) + (_%K8283082860%_ + (lambda (_%rest82845%_ _%hd82846%_) + (if (string? _%hd82846%_) + (let ((_%hd82848%_ _%hd82846%_)) + (if (pair? _%rest82845%_) + (_%lp82813%_ + _%rest82845%_ + (fx+ (let () + (declare (not safe)) + (##string-length + _%hd82848%_)) + _%jlen82811%_ + _%len82818%_)) + (let ((__tmp87679 + (let () + (declare (not safe)) + (##string-length + _%hd82848%_)))) + (declare (not safe)) + (##fx+ __tmp87679 _%len82818%_)))) + (error '"expected string" _%hd82846%_))))) + (if (let () + (declare (not safe)) + (##pair? _%rest8282682834%_)) + (let ((_%hd8283182863%_ + (let () + (declare (not safe)) + (##car _%rest8282682834%_))) + (_%tl8283282865%_ + (let () + (declare (not safe)) + (##cdr _%rest8282682834%_)))) + (let* ((_%hd82868%_ _%hd8283182863%_) + (_%rest82870%_ _%tl8283282865%_)) + (_%K8283082860%_ _%rest82870%_ _%hd82868%_))) + (_%else8282882842%_))))))) + (let* ((_%join82731%_ + (if (char? _%join82723%_) + (let () (declare (not safe)) (##string _%join82723%_)) + (if (string? _%join82723%_) + _%join82723%_ + (error '"expected string or char" _%join82723%_)))) + (_%jlen82733%_ (let () (declare (not safe)) - (##string-length _%str83145%_)))) - (let _%lp83164%_ ((_%start83166%_ '0) (_%r83167%_ '())) - (let () - (let* ((_%start83170%_ _%start83166%_) - (_%$e83183%_ - (let () - (declare (not safe)) - (__string-index - _%str83145%_ - _%char83153%_ - _%start83170%_)))) - (if _%$e83183%_ - ((lambda (_%end83186%_) - (let ((_%end83188%_ _%end83186%_)) - (let ((__tmp87975 - (let () - (declare (not safe)) - (##fx+ _%end83188%_ '1))) - (__tmp87974 - (cons (let () - (declare (not safe)) - (##substring - _%str83145%_ - _%start83170%_ - _%end83188%_)) - _%r83167%_))) - (declare (not safe)) - (_%lp83164%_ __tmp87975 __tmp87974)))) - _%$e83183%_) - (if (let () - (declare (not safe)) - (##fx< _%start83170%_ _%len83162%_)) - (let ((__tmp87976 - (list (let () - (declare (not safe)) - (##substring - _%str83145%_ - _%start83170%_ - _%len83162%_))))) - (declare (not safe)) - (__foldl1 cons __tmp87976 _%r83167%_)) - (let () (reverse! _%r83167%_))))))))))) - (define string-join - (lambda (_%strs82991%_ _%join82992%_) - (let () - (letrec ((_%join-length82995%_ - (lambda (_%strs83079%_ _%jlen83080%_) - (let _%lp83082%_ ((_%rest83084%_ _%strs83079%_) - (_%len83085%_ '0)) - (let ((_%len83087%_ _%len83085%_)) - (let* ((_%rest8309583103%_ _%rest83084%_) - (_%else8309783111%_ (lambda () '0)) - (_%K8309983129%_ - (lambda (_%rest83114%_ _%hd83115%_) - (if (let () - (declare (not safe)) - (string? _%hd83115%_)) - (let ((_%hd83117%_ _%hd83115%_)) - (if (let () - (declare (not safe)) - (pair? _%rest83114%_)) - (let ((__tmp87977 - (fx+ (let () - (declare - (not safe)) - (##string-length - _%hd83117%_)) - _%jlen83080%_ - _%len83087%_))) - (declare (not safe)) - (_%lp83082%_ - _%rest83114%_ - __tmp87977)) - (let ((__tmp87978 - (let () - (declare (not safe)) - (##string-length - _%hd83117%_)))) - (declare (not safe)) - (##fx+ __tmp87978 - _%len83087%_)))) - (error '"expected string" - _%hd83115%_))))) - (if (let () + (##string-length _%join82731%_))) + (_%olen82735%_ + (_%join-length82726%_ _%strs82722%_ _%jlen82733%_)) + (_%ostr82737%_ + (let () (declare (not safe)) (##make-string _%olen82735%_)))) + (let _%lp82740%_ ((_%rest82742%_ _%strs82722%_) (_%k82743%_ '0)) + (let* ((_%k82746%_ _%k82743%_) + (_%rest8276282770%_ _%rest82742%_) + (_%else8276482778%_ (lambda () '"")) + (_%K8276682798%_ + (lambda (_%rest82781%_ _%hd82782%_) + (let* ((_%hd82784%_ _%hd82782%_) + (_%hdlen82796%_ + (let () (declare (not safe)) - (##pair? _%rest8309583103%_)) - (let ((_%hd8310083132%_ - (let () - (declare (not safe)) - (##car _%rest8309583103%_))) - (_%tl8310183134%_ + (##string-length _%hd82784%_)))) + (if (pair? _%rest82781%_) + (begin + (let () + (declare (not safe)) + (##substring-move! + _%hd82784%_ + '0 + _%hdlen82796%_ + _%ostr82737%_ + _%k82746%_)) + (let ((__tmp87680 (let () (declare (not safe)) - (##cdr _%rest8309583103%_)))) - (let* ((_%hd83137%_ _%hd8310083132%_) - (_%rest83139%_ _%tl8310183134%_)) - (declare (not safe)) - (_%K8309983129%_ - _%rest83139%_ - _%hd83137%_))) + (##fx+ _%k82746%_ _%hdlen82796%_)))) + (declare (not safe)) + (##substring-move! + _%join82731%_ + '0 + _%jlen82733%_ + _%ostr82737%_ + __tmp87680)) + (_%lp82740%_ + _%rest82781%_ + (let () + (declare (not safe)) + (##fx+ _%k82746%_ + _%hdlen82796%_ + _%jlen82733%_)))) + (begin (let () (declare (not safe)) - (_%else8309783111%_))))))))) - (let* ((_%join83000%_ - (if (let () (declare (not safe)) (char? _%join82992%_)) - (let () (declare (not safe)) (##string _%join82992%_)) - (if (let () - (declare (not safe)) - (string? _%join82992%_)) - (let () _%join82992%_) - (let () - (error '"expected string or char" - _%join82992%_))))) - (_%jlen83002%_ - (let () - (declare (not safe)) - (##string-length _%join83000%_))) - (_%olen83004%_ - (let () - (declare (not safe)) - (_%join-length82995%_ _%strs82991%_ _%jlen83002%_))) - (_%ostr83006%_ - (let () - (declare (not safe)) - (##make-string _%olen83004%_)))) - (let _%lp83009%_ ((_%rest83011%_ _%strs82991%_) (_%k83012%_ '0)) - (let ((_%k83015%_ _%k83012%_)) - (let* ((_%rest8303183039%_ _%rest83011%_) - (_%else8303383047%_ (lambda () '"")) - (_%K8303583067%_ - (lambda (_%rest83050%_ _%hd83051%_) - (let* ((_%hd83053%_ _%hd83051%_) - (_%hdlen83065%_ - (let () - (declare (not safe)) - (##string-length _%hd83053%_)))) - (if (let () - (declare (not safe)) - (pair? _%rest83050%_)) - (begin - (let () - (declare (not safe)) - (##substring-move! - _%hd83053%_ - '0 - _%hdlen83065%_ - _%ostr83006%_ - _%k83015%_)) - (let ((__tmp87979 - (let () - (declare (not safe)) - (##fx+ _%k83015%_ - _%hdlen83065%_)))) - (declare (not safe)) - (##substring-move! - _%join83000%_ - '0 - _%jlen83002%_ - _%ostr83006%_ - __tmp87979)) - (let ((__tmp87980 - (let () - (declare (not safe)) - (##fx+ _%k83015%_ - _%hdlen83065%_ - _%jlen83002%_)))) - (declare (not safe)) - (_%lp83009%_ _%rest83050%_ __tmp87980))) - (begin - (let () - (declare (not safe)) - (##substring-move! - _%hd83053%_ - '0 - _%hdlen83065%_ - _%ostr83006%_ - _%k83015%_)) - _%ostr83006%_)))))) - (if (let () - (declare (not safe)) - (##pair? _%rest8303183039%_)) - (let ((_%hd8303683070%_ - (let () - (declare (not safe)) - (##car _%rest8303183039%_))) - (_%tl8303783072%_ - (let () - (declare (not safe)) - (##cdr _%rest8303183039%_)))) - (let* ((_%hd83075%_ _%hd8303683070%_) - (_%rest83077%_ _%tl8303783072%_)) - (declare (not safe)) - (_%K8303583067%_ _%rest83077%_ _%hd83075%_))) - (let () - (declare (not safe)) - (_%else8303383047%_))))))))))) + (##substring-move! + _%hd82784%_ + '0 + _%hdlen82796%_ + _%ostr82737%_ + _%k82746%_)) + _%ostr82737%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8276282770%_)) + (let ((_%hd8276782801%_ + (let () + (declare (not safe)) + (##car _%rest8276282770%_))) + (_%tl8276882803%_ + (let () + (declare (not safe)) + (##cdr _%rest8276282770%_)))) + (let* ((_%hd82806%_ _%hd8276782801%_) + (_%rest82808%_ _%tl8276882803%_)) + (_%K8276682798%_ _%rest82808%_ _%hd82806%_))) + (_%else8276482778%_)))))))) (define read-u8vector__% - (lambda (_%bytes82917%_ _%port82918%_ _%start82919%_ _%end82920%_) - (let () - (if (let () (declare (not safe)) (u8vector? _%bytes82917%_)) - (let ((_%bytes82924%_ _%bytes82917%_)) - (if (input-port? _%port82918%_) - (let ((_%port82934%_ _%port82918%_)) - (if ((lambda (_%o82943%_) - (and (let () - (declare (not safe)) - (fixnum? _%o82943%_)) - (let () - (declare (not safe)) - (##fx>= _%o82943%_ '0)) - (let ((__tmp87981 - (let () - (declare (not safe)) - (##u8vector-length - _%bytes82924%_)))) - (declare (not safe)) - (##fx< _%o82943%_ __tmp87981)))) - _%start82919%_) - (let ((_%start82947%_ _%start82919%_)) - (if ((lambda (_%o82956%_) - (and (let () - (declare (not safe)) - (fixnum? _%o82956%_)) - (fx<= _%start82947%_ - _%o82956%_ - (let () - (declare (not safe)) - (##u8vector-length - _%bytes82924%_))))) - _%end82920%_) - (let ((_%end82960%_ _%end82920%_)) + (lambda (_%bytes82648%_ _%port82649%_ _%start82650%_ _%end82651%_) + (if (u8vector? _%bytes82648%_) + (let ((_%bytes82655%_ _%bytes82648%_)) + (if (input-port? _%port82649%_) + (let ((_%port82665%_ _%port82649%_)) + (if ((lambda (_%o82674%_) + (and (fixnum? _%o82674%_) + (let () (declare (not safe)) - (__read-u8vector__% - _%bytes82924%_ - _%port82934%_ - _%start82947%_ - _%end82960%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@748.22-748.25" - 'contract: - '(in-range-inclusive? - start - (u8vector-length bytes)) - 'value: - _%end82920%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@746.22-746.27" - 'contract: - '(in-range? 0 (u8vector-length bytes)) - 'value: - _%start82919%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@745.22-745.26" - 'contract: - 'input-port? - 'value: - _%port82918%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@744.22-744.27" - 'contract: - 'u8vector? - 'value: - _%bytes82917%_) - '#!void))))) + (##fx>= _%o82674%_ '0)) + (let ((__tmp87681 + (let () + (declare (not safe)) + (##u8vector-length _%bytes82655%_)))) + (declare (not safe)) + (##fx< _%o82674%_ __tmp87681)))) + _%start82650%_) + (let ((_%start82678%_ _%start82650%_)) + (if ((lambda (_%o82687%_) + (and (fixnum? _%o82687%_) + (fx<= _%start82678%_ + _%o82687%_ + (let () + (declare (not safe)) + (##u8vector-length + _%bytes82655%_))))) + _%end82651%_) + (let ((_%end82691%_ _%end82651%_)) + (__read-u8vector__% + _%bytes82655%_ + _%port82665%_ + _%start82678%_ + _%end82691%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@748.22-748.25" + 'contract: + '(in-range-inclusive? + start + (u8vector-length bytes)) + 'value: + _%end82651%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@746.22-746.27" + 'contract: + '(in-range? 0 (u8vector-length bytes)) + 'value: + _%start82650%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@745.22-745.26" + 'contract: + 'input-port? + 'value: + _%port82649%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@744.22-744.27" + 'contract: + 'u8vector? + 'value: + _%bytes82648%_) + '#!void)))) (define read-u8vector__0 - (lambda (_%bytes82973%_ _%port82974%_) - (let* ((_%start82976%_ '0) - (_%end82978%_ (u8vector-length _%bytes82973%_))) - (declare (not safe)) + (lambda (_%bytes82704%_ _%port82705%_) + (let* ((_%start82707%_ '0) + (_%end82709%_ (u8vector-length _%bytes82704%_))) (read-u8vector__% - _%bytes82973%_ - _%port82974%_ - _%start82976%_ - _%end82978%_)))) + _%bytes82704%_ + _%port82705%_ + _%start82707%_ + _%end82709%_)))) (define read-u8vector__1 - (lambda (_%bytes82980%_ _%port82981%_ _%start82982%_) - (let ((_%end82984%_ (u8vector-length _%bytes82980%_))) - (declare (not safe)) + (lambda (_%bytes82711%_ _%port82712%_ _%start82713%_) + (let ((_%end82715%_ (u8vector-length _%bytes82711%_))) (read-u8vector__% - _%bytes82980%_ - _%port82981%_ - _%start82982%_ - _%end82984%_)))) + _%bytes82711%_ + _%port82712%_ + _%start82713%_ + _%end82715%_)))) (define read-u8vector - (lambda _g87983_ - (let ((_g87982_ (let () (declare (not safe)) (##length _g87983_)))) - (cond ((let () (declare (not safe)) (##fx= _g87982_ 2)) - (apply (lambda (_%bytes82973%_ _%port82974%_) - (let () - (declare (not safe)) - (read-u8vector__0 _%bytes82973%_ _%port82974%_))) - _g87983_)) - ((let () (declare (not safe)) (##fx= _g87982_ 3)) - (apply (lambda (_%bytes82980%_ _%port82981%_ _%start82982%_) - (let () - (declare (not safe)) - (read-u8vector__1 - _%bytes82980%_ - _%port82981%_ - _%start82982%_))) - _g87983_)) - ((let () (declare (not safe)) (##fx= _g87982_ 4)) - (apply (lambda (_%bytes82986%_ - _%port82987%_ - _%start82988%_ - _%end82989%_) - (let () - (declare (not safe)) - (read-u8vector__% - _%bytes82986%_ - _%port82987%_ - _%start82988%_ - _%end82989%_))) - _g87983_)) + (lambda _g87683_ + (let ((_g87682_ (let () (declare (not safe)) (##length _g87683_)))) + (cond ((let () (declare (not safe)) (##fx= _g87682_ 2)) + (apply read-u8vector__0 _g87683_)) + ((let () (declare (not safe)) (##fx= _g87682_ 3)) + (apply read-u8vector__1 _g87683_)) + ((let () (declare (not safe)) (##fx= _g87682_ 4)) + (apply read-u8vector__% _g87683_)) (else (##raise-wrong-number-of-arguments-exception read-u8vector - _g87983_)))))) + _g87683_)))))) (define __read-u8vector__% - (lambda (_%bytes82856%_ _%port82857%_ _%start82858%_ _%end82859%_) - (let () - (let* ((_%bytes82862%_ _%bytes82856%_) (_%port82870%_ _%port82857%_)) - (let* ((_%start82878%_ _%start82858%_) (_%end82886%_ _%end82859%_)) - (declare (not safe)) - (##read-subu8vector - _%bytes82862%_ - _%start82878%_ - _%end82886%_ - _%port82870%_)))))) - (define __read-u8vector__0 - (lambda (_%bytes82898%_ _%port82899%_) - (let* ((_%start82901%_ '0) - (_%end82903%_ (u8vector-length _%bytes82898%_))) + (lambda (_%bytes82587%_ _%port82588%_ _%start82589%_ _%end82590%_) + (let* ((_%bytes82593%_ _%bytes82587%_) + (_%port82601%_ _%port82588%_) + (_%start82609%_ _%start82589%_) + (_%end82617%_ _%end82590%_)) (declare (not safe)) + (##read-subu8vector + _%bytes82593%_ + _%start82609%_ + _%end82617%_ + _%port82601%_)))) + (define __read-u8vector__0 + (lambda (_%bytes82629%_ _%port82630%_) + (let* ((_%start82632%_ '0) + (_%end82634%_ (u8vector-length _%bytes82629%_))) (__read-u8vector__% - _%bytes82898%_ - _%port82899%_ - _%start82901%_ - _%end82903%_)))) + _%bytes82629%_ + _%port82630%_ + _%start82632%_ + _%end82634%_)))) (define __read-u8vector__1 - (lambda (_%bytes82905%_ _%port82906%_ _%start82907%_) - (let ((_%end82909%_ (u8vector-length _%bytes82905%_))) - (declare (not safe)) + (lambda (_%bytes82636%_ _%port82637%_ _%start82638%_) + (let ((_%end82640%_ (u8vector-length _%bytes82636%_))) (__read-u8vector__% - _%bytes82905%_ - _%port82906%_ - _%start82907%_ - _%end82909%_)))) + _%bytes82636%_ + _%port82637%_ + _%start82638%_ + _%end82640%_)))) (define __read-u8vector - (lambda _g87985_ - (let ((_g87984_ (let () (declare (not safe)) (##length _g87985_)))) - (cond ((let () (declare (not safe)) (##fx= _g87984_ 2)) - (apply (lambda (_%bytes82898%_ _%port82899%_) - (let () - (declare (not safe)) - (__read-u8vector__0 _%bytes82898%_ _%port82899%_))) - _g87985_)) - ((let () (declare (not safe)) (##fx= _g87984_ 3)) - (apply (lambda (_%bytes82905%_ _%port82906%_ _%start82907%_) - (let () - (declare (not safe)) - (__read-u8vector__1 - _%bytes82905%_ - _%port82906%_ - _%start82907%_))) - _g87985_)) - ((let () (declare (not safe)) (##fx= _g87984_ 4)) - (apply (lambda (_%bytes82911%_ - _%port82912%_ - _%start82913%_ - _%end82914%_) - (let () - (declare (not safe)) - (__read-u8vector__% - _%bytes82911%_ - _%port82912%_ - _%start82913%_ - _%end82914%_))) - _g87985_)) + (lambda _g87685_ + (let ((_g87684_ (let () (declare (not safe)) (##length _g87685_)))) + (cond ((let () (declare (not safe)) (##fx= _g87684_ 2)) + (apply __read-u8vector__0 _g87685_)) + ((let () (declare (not safe)) (##fx= _g87684_ 3)) + (apply __read-u8vector__1 _g87685_)) + ((let () (declare (not safe)) (##fx= _g87684_ 4)) + (apply __read-u8vector__% _g87685_)) (else (##raise-wrong-number-of-arguments-exception __read-u8vector - _g87985_)))))) + _g87685_)))))) (define write-u8vector__% - (lambda (_%bytes82781%_ _%port82782%_ _%start82783%_ _%end82784%_) - (let () - (if (let () (declare (not safe)) (u8vector? _%bytes82781%_)) - (let ((_%bytes82788%_ _%bytes82781%_)) - (if (output-port? _%port82782%_) - (let ((_%port82798%_ _%port82782%_)) - (if ((lambda (_%o82807%_) - (and (let () - (declare (not safe)) - (fixnum? _%o82807%_)) - (let () - (declare (not safe)) - (##fx>= _%o82807%_ '0)) - (let ((__tmp87986 - (let () - (declare (not safe)) - (##u8vector-length - _%bytes82788%_)))) - (declare (not safe)) - (##fx< _%o82807%_ __tmp87986)))) - _%start82783%_) - (let ((_%start82811%_ _%start82783%_)) - (if ((lambda (_%o82820%_) - (and (let () - (declare (not safe)) - (fixnum? _%o82820%_)) - (fx<= _%start82811%_ - _%o82820%_ - (let () - (declare (not safe)) - (##u8vector-length - _%bytes82788%_))))) - _%end82784%_) - (let ((_%end82824%_ _%end82784%_)) + (lambda (_%bytes82512%_ _%port82513%_ _%start82514%_ _%end82515%_) + (if (u8vector? _%bytes82512%_) + (let ((_%bytes82519%_ _%bytes82512%_)) + (if (output-port? _%port82513%_) + (let ((_%port82529%_ _%port82513%_)) + (if ((lambda (_%o82538%_) + (and (fixnum? _%o82538%_) + (let () (declare (not safe)) - (__write-u8vector__% - _%bytes82788%_ - _%port82798%_ - _%start82811%_ - _%end82824%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@758.23-758.26" - 'contract: - '(in-range-inclusive? - start - (u8vector-length bytes)) - 'value: - _%end82784%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@756.23-756.28" - 'contract: - '(in-range? 0 (u8vector-length bytes)) - 'value: - _%start82783%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@755.23-755.27" - 'contract: - 'output-port? - 'value: - _%port82782%_) - '#!void))) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@754.23-754.28" - 'contract: - 'u8vector? - 'value: - _%bytes82781%_) - '#!void))))) + (##fx>= _%o82538%_ '0)) + (let ((__tmp87686 + (let () + (declare (not safe)) + (##u8vector-length _%bytes82519%_)))) + (declare (not safe)) + (##fx< _%o82538%_ __tmp87686)))) + _%start82514%_) + (let ((_%start82542%_ _%start82514%_)) + (if ((lambda (_%o82551%_) + (and (fixnum? _%o82551%_) + (fx<= _%start82542%_ + _%o82551%_ + (let () + (declare (not safe)) + (##u8vector-length + _%bytes82519%_))))) + _%end82515%_) + (let ((_%end82555%_ _%end82515%_)) + (__write-u8vector__% + _%bytes82519%_ + _%port82529%_ + _%start82542%_ + _%end82555%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@758.23-758.26" + 'contract: + '(in-range-inclusive? + start + (u8vector-length bytes)) + 'value: + _%end82515%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@756.23-756.28" + 'contract: + '(in-range? 0 (u8vector-length bytes)) + 'value: + _%start82514%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@755.23-755.27" + 'contract: + 'output-port? + 'value: + _%port82513%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@754.23-754.28" + 'contract: + 'u8vector? + 'value: + _%bytes82512%_) + '#!void)))) (define write-u8vector__0 - (lambda (_%bytes82837%_ _%port82838%_) - (let* ((_%start82840%_ '0) - (_%end82842%_ (u8vector-length _%bytes82837%_))) - (declare (not safe)) + (lambda (_%bytes82568%_ _%port82569%_) + (let* ((_%start82571%_ '0) + (_%end82573%_ (u8vector-length _%bytes82568%_))) (write-u8vector__% - _%bytes82837%_ - _%port82838%_ - _%start82840%_ - _%end82842%_)))) + _%bytes82568%_ + _%port82569%_ + _%start82571%_ + _%end82573%_)))) (define write-u8vector__1 - (lambda (_%bytes82844%_ _%port82845%_ _%start82846%_) - (let ((_%end82848%_ (u8vector-length _%bytes82844%_))) - (declare (not safe)) + (lambda (_%bytes82575%_ _%port82576%_ _%start82577%_) + (let ((_%end82579%_ (u8vector-length _%bytes82575%_))) (write-u8vector__% - _%bytes82844%_ - _%port82845%_ - _%start82846%_ - _%end82848%_)))) + _%bytes82575%_ + _%port82576%_ + _%start82577%_ + _%end82579%_)))) (define write-u8vector - (lambda _g87988_ - (let ((_g87987_ (let () (declare (not safe)) (##length _g87988_)))) - (cond ((let () (declare (not safe)) (##fx= _g87987_ 2)) - (apply (lambda (_%bytes82837%_ _%port82838%_) - (let () - (declare (not safe)) - (write-u8vector__0 _%bytes82837%_ _%port82838%_))) - _g87988_)) - ((let () (declare (not safe)) (##fx= _g87987_ 3)) - (apply (lambda (_%bytes82844%_ _%port82845%_ _%start82846%_) - (let () - (declare (not safe)) - (write-u8vector__1 - _%bytes82844%_ - _%port82845%_ - _%start82846%_))) - _g87988_)) - ((let () (declare (not safe)) (##fx= _g87987_ 4)) - (apply (lambda (_%bytes82850%_ - _%port82851%_ - _%start82852%_ - _%end82853%_) - (let () - (declare (not safe)) - (write-u8vector__% - _%bytes82850%_ - _%port82851%_ - _%start82852%_ - _%end82853%_))) - _g87988_)) + (lambda _g87688_ + (let ((_g87687_ (let () (declare (not safe)) (##length _g87688_)))) + (cond ((let () (declare (not safe)) (##fx= _g87687_ 2)) + (apply write-u8vector__0 _g87688_)) + ((let () (declare (not safe)) (##fx= _g87687_ 3)) + (apply write-u8vector__1 _g87688_)) + ((let () (declare (not safe)) (##fx= _g87687_ 4)) + (apply write-u8vector__% _g87688_)) (else (##raise-wrong-number-of-arguments-exception write-u8vector - _g87988_)))))) + _g87688_)))))) (define __write-u8vector__% - (lambda (_%bytes82720%_ _%port82721%_ _%start82722%_ _%end82723%_) - (let () - (let* ((_%bytes82726%_ _%bytes82720%_) (_%port82734%_ _%port82721%_)) - (let* ((_%start82742%_ _%start82722%_) (_%end82750%_ _%end82723%_)) - (declare (not safe)) - (##write-subu8vector - _%bytes82726%_ - _%start82742%_ - _%end82750%_ - _%port82734%_)))))) - (define __write-u8vector__0 - (lambda (_%bytes82762%_ _%port82763%_) - (let* ((_%start82765%_ '0) - (_%end82767%_ (u8vector-length _%bytes82762%_))) + (lambda (_%bytes82451%_ _%port82452%_ _%start82453%_ _%end82454%_) + (let* ((_%bytes82457%_ _%bytes82451%_) + (_%port82465%_ _%port82452%_) + (_%start82473%_ _%start82453%_) + (_%end82481%_ _%end82454%_)) (declare (not safe)) + (##write-subu8vector + _%bytes82457%_ + _%start82473%_ + _%end82481%_ + _%port82465%_)))) + (define __write-u8vector__0 + (lambda (_%bytes82493%_ _%port82494%_) + (let* ((_%start82496%_ '0) + (_%end82498%_ (u8vector-length _%bytes82493%_))) (__write-u8vector__% - _%bytes82762%_ - _%port82763%_ - _%start82765%_ - _%end82767%_)))) + _%bytes82493%_ + _%port82494%_ + _%start82496%_ + _%end82498%_)))) (define __write-u8vector__1 - (lambda (_%bytes82769%_ _%port82770%_ _%start82771%_) - (let ((_%end82773%_ (u8vector-length _%bytes82769%_))) - (declare (not safe)) + (lambda (_%bytes82500%_ _%port82501%_ _%start82502%_) + (let ((_%end82504%_ (u8vector-length _%bytes82500%_))) (__write-u8vector__% - _%bytes82769%_ - _%port82770%_ - _%start82771%_ - _%end82773%_)))) + _%bytes82500%_ + _%port82501%_ + _%start82502%_ + _%end82504%_)))) (define __write-u8vector - (lambda _g87990_ - (let ((_g87989_ (let () (declare (not safe)) (##length _g87990_)))) - (cond ((let () (declare (not safe)) (##fx= _g87989_ 2)) - (apply (lambda (_%bytes82762%_ _%port82763%_) - (let () - (declare (not safe)) - (__write-u8vector__0 - _%bytes82762%_ - _%port82763%_))) - _g87990_)) - ((let () (declare (not safe)) (##fx= _g87989_ 3)) - (apply (lambda (_%bytes82769%_ _%port82770%_ _%start82771%_) - (let () - (declare (not safe)) - (__write-u8vector__1 - _%bytes82769%_ - _%port82770%_ - _%start82771%_))) - _g87990_)) - ((let () (declare (not safe)) (##fx= _g87989_ 4)) - (apply (lambda (_%bytes82775%_ - _%port82776%_ - _%start82777%_ - _%end82778%_) - (let () - (declare (not safe)) - (__write-u8vector__% - _%bytes82775%_ - _%port82776%_ - _%start82777%_ - _%end82778%_))) - _g87990_)) + (lambda _g87690_ + (let ((_g87689_ (let () (declare (not safe)) (##length _g87690_)))) + (cond ((let () (declare (not safe)) (##fx= _g87689_ 2)) + (apply __write-u8vector__0 _g87690_)) + ((let () (declare (not safe)) (##fx= _g87689_ 3)) + (apply __write-u8vector__1 _g87690_)) + ((let () (declare (not safe)) (##fx= _g87689_ 4)) + (apply __write-u8vector__% _g87690_)) (else (##raise-wrong-number-of-arguments-exception __write-u8vector - _g87990_)))))) + _g87690_)))))) (define DBG-printer (make-parameter write)) (define DBG-helper - (lambda (_%tag82688%_ - _%dbg-exprs82689%_ - _%dbg-thunks82690%_ - _%expr82691%_ - _%thunk82692%_) - (letrec ((_%o82694%_ (current-output-port)) - (_%e82695%_ (current-error-port)) - (_%p82696%_ (let () (declare (not safe)) (DBG-printer))) - (_%f82697%_ + (lambda (_%tag82419%_ + _%dbg-exprs82420%_ + _%dbg-thunks82421%_ + _%expr82422%_ + _%thunk82423%_) + (letrec ((_%o82425%_ (current-output-port)) + (_%e82426%_ (current-error-port)) + (_%p82427%_ (let () (declare (not safe)) (DBG-printer))) + (_%f82428%_ (lambda () - (force-output _%o82694%_) - (force-output _%e82695%_))) - (_%d82698%_ - (lambda (_%x82705%_) (display _%x82705%_ _%e82695%_))) - (_%w82699%_ - (lambda (_%x82707%_) (_%p82696%_ _%x82707%_ _%e82695%_))) - (_%n82700%_ (lambda () (newline _%e82695%_))) - (_%v82701%_ - (lambda (_%l82710%_) + (force-output _%o82425%_) + (force-output _%e82426%_))) + (_%d82429%_ + (lambda (_%x82436%_) (display _%x82436%_ _%e82426%_))) + (_%w82430%_ + (lambda (_%x82438%_) (_%p82427%_ _%x82438%_ _%e82426%_))) + (_%n82431%_ (lambda () (newline _%e82426%_))) + (_%v82432%_ + (lambda (_%l82441%_) (for-each - (lambda (_%x82712%_) - (let () (declare (not safe)) (_%d82698%_ '" ")) - (let () (declare (not safe)) (_%w82699%_ _%x82712%_))) - _%l82710%_) - (let () (declare (not safe)) (_%n82700%_)))) - (_%x82702%_ - (lambda (_%expr82714%_ _%thunk82715%_) - (let () (declare (not safe)) (_%f82697%_)) - (let () (declare (not safe)) (_%d82698%_ '" ")) - (let () (declare (not safe)) (_%w82699%_ _%expr82714%_)) - (let () (declare (not safe)) (_%d82698%_ '" =>")) + (lambda (_%x82443%_) + (_%d82429%_ '" ") + (_%w82430%_ _%x82443%_)) + _%l82441%_) + (_%n82431%_))) + (_%x82433%_ + (lambda (_%expr82445%_ _%thunk82446%_) + (_%f82428%_) + (_%d82429%_ '" ") + (_%w82430%_ _%expr82445%_) + (_%d82429%_ '" =>") (call-with-values - _%thunk82715%_ - (lambda _%x82717%_ - (let () (declare (not safe)) (_%v82701%_ _%x82717%_)) - (let () (declare (not safe)) (_%f82697%_)) - (apply values _%x82717%_)))))) - (if _%tag82688%_ + _%thunk82446%_ + (lambda _%x82448%_ + (_%v82432%_ _%x82448%_) + (_%f82428%_) + (apply values _%x82448%_)))))) + (if _%tag82419%_ (begin - (if (let () (declare (not safe)) (eq? _%tag82688%_ '#!void)) + (if (eq? _%tag82419%_ '#!void) '#!void (begin - (let () (declare (not safe)) (_%f82697%_)) - (let () (declare (not safe)) (_%d82698%_ _%tag82688%_)) - (let () (declare (not safe)) (_%n82700%_)))) - (for-each _%x82702%_ _%dbg-exprs82689%_ _%dbg-thunks82690%_) - (if _%thunk82692%_ - (let () - (declare (not safe)) - (_%x82702%_ _%expr82691%_ _%thunk82692%_)) + (_%f82428%_) + (_%d82429%_ _%tag82419%_) + (_%n82431%_))) + (for-each _%x82433%_ _%dbg-exprs82420%_ _%dbg-thunks82421%_) + (if _%thunk82423%_ + (_%x82433%_ _%expr82422%_ _%thunk82423%_) '#!void)) - (if _%thunk82692%_ (_%thunk82692%_) '#!void))))))) + (if _%thunk82423%_ (_%thunk82423%_) '#!void))))))) diff --git a/src/bootstrap/gerbil/runtime/util~1.scm b/src/bootstrap/gerbil/runtime/util~1.scm index f267a8e39..b346876c3 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]#_g87996_| + (define |[1]#_g87692_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |[1]#_g88006_| + (define |[1]#_g87702_| (##structure gx#syntax-quote::t 'quote @@ -16,49 +16,49 @@ '())) (begin (define |[:0:]#declare-inline| - (lambda (_%$stx81021%_) - (let* ((_%g8102581043%_ - (lambda (_%g8102681039%_) + (lambda (_%$stx80752%_) + (let* ((_%g8075680774%_ + (lambda (_%g8075780770%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8102681039%_))) - (_%g8102481099%_ - (lambda (_%g8102681047%_) - (if (gx#stx-pair? _%g8102681047%_) - (let ((_%e8103181050%_ (gx#syntax-e _%g8102681047%_))) - (let ((_%hd8103081054%_ + _%g8075780770%_))) + (_%g8075580830%_ + (lambda (_%g8075780778%_) + (if (gx#stx-pair? _%g8075780778%_) + (let ((_%e8076280781%_ (gx#syntax-e _%g8075780778%_))) + (let ((_%hd8076180785%_ (let () (declare (not safe)) - (##car _%e8103181050%_))) - (_%tl8102981057%_ + (##car _%e8076280781%_))) + (_%tl8076080788%_ (let () (declare (not safe)) - (##cdr _%e8103181050%_)))) - (if (gx#stx-pair? _%tl8102981057%_) - (let ((_%e8103481060%_ - (gx#syntax-e _%tl8102981057%_))) - (let ((_%hd8103381064%_ + (##cdr _%e8076280781%_)))) + (if (gx#stx-pair? _%tl8076080788%_) + (let ((_%e8076580791%_ + (gx#syntax-e _%tl8076080788%_))) + (let ((_%hd8076480795%_ (let () (declare (not safe)) - (##car _%e8103481060%_))) - (_%tl8103281067%_ + (##car _%e8076580791%_))) + (_%tl8076380798%_ (let () (declare (not safe)) - (##cdr _%e8103481060%_)))) - (if (gx#stx-pair? _%tl8103281067%_) - (let ((_%e8103781070%_ - (gx#syntax-e _%tl8103281067%_))) - (let ((_%hd8103681074%_ + (##cdr _%e8076580791%_)))) + (if (gx#stx-pair? _%tl8076380798%_) + (let ((_%e8076880801%_ + (gx#syntax-e _%tl8076380798%_))) + (let ((_%hd8076780805%_ (let () (declare (not safe)) - (##car _%e8103781070%_))) - (_%tl8103581077%_ + (##car _%e8076880801%_))) + (_%tl8076680808%_ (let () (declare (not safe)) - (##cdr _%e8103781070%_)))) - (if (gx#stx-null? _%tl8103581077%_) - ((lambda (_%L81080%_ _%L81082%_) + (##cdr _%e8076880801%_)))) + (if (gx#stx-null? _%tl8076680808%_) + ((lambda (_%L80811%_ _%L80813%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -66,52 +66,52 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@inline) - (cons _%L81082%_ '())) + (cons _%L80813%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L81080%_ '())) + (cons _%L80811%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8103681074%_ - _%hd8103381064%_) - (_%g8102581043%_ - _%g8102681047%_)))) - (_%g8102581043%_ _%g8102681047%_)))) - (_%g8102581043%_ _%g8102681047%_)))) - (_%g8102581043%_ _%g8102681047%_))))) - (_%g8102481099%_ _%$stx81021%_)))) + _%hd8076780805%_ + _%hd8076480795%_) + (_%g8075680774%_ + _%g8075780778%_)))) + (_%g8075680774%_ _%g8075780778%_)))) + (_%g8075680774%_ _%g8075780778%_)))) + (_%g8075680774%_ _%g8075780778%_))))) + (_%g8075580830%_ _%$stx80752%_)))) (define |[:0:]#__lock-inline!| - (lambda (_%$stx81103%_) - (let* ((_%g8110781121%_ - (lambda (_%g8110881117%_) + (lambda (_%$stx80834%_) + (let* ((_%g8083880852%_ + (lambda (_%g8083980848%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8110881117%_))) - (_%g8110681162%_ - (lambda (_%g8110881125%_) - (if (gx#stx-pair? _%g8110881125%_) - (let ((_%e8111281128%_ (gx#syntax-e _%g8110881125%_))) - (let ((_%hd8111181132%_ + _%g8083980848%_))) + (_%g8083780893%_ + (lambda (_%g8083980856%_) + (if (gx#stx-pair? _%g8083980856%_) + (let ((_%e8084380859%_ (gx#syntax-e _%g8083980856%_))) + (let ((_%hd8084280863%_ (let () (declare (not safe)) - (##car _%e8111281128%_))) - (_%tl8111081135%_ + (##car _%e8084380859%_))) + (_%tl8084180866%_ (let () (declare (not safe)) - (##cdr _%e8111281128%_)))) - (if (gx#stx-pair? _%tl8111081135%_) - (let ((_%e8111581138%_ - (gx#syntax-e _%tl8111081135%_))) - (let ((_%hd8111481142%_ + (##cdr _%e8084380859%_)))) + (if (gx#stx-pair? _%tl8084180866%_) + (let ((_%e8084680869%_ + (gx#syntax-e _%tl8084180866%_))) + (let ((_%hd8084580873%_ (let () (declare (not safe)) - (##car _%e8111581138%_))) - (_%tl8111381145%_ + (##car _%e8084680869%_))) + (_%tl8084480876%_ (let () (declare (not safe)) - (##cdr _%e8111581138%_)))) - (if (gx#stx-null? _%tl8111381145%_) - ((lambda (_%L81148%_) + (##cdr _%e8084680869%_)))) + (if (gx#stx-null? _%tl8084480876%_) + ((lambda (_%L80879%_) (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 _%L81148%_ + (cons _%L80879%_ (cons '0 (cons '1 (cons '0 '()))))) (cons '0 '()))) @@ -146,133 +146,133 @@ '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8111481142%_) - (_%g8110781121%_ _%g8110881125%_)))) - (_%g8110781121%_ _%g8110881125%_)))) - (_%g8110781121%_ _%g8110881125%_))))) - (_%g8110681162%_ _%$stx81103%_)))) + _%hd8084580873%_) + (_%g8083880852%_ _%g8083980856%_)))) + (_%g8083880852%_ _%g8083980856%_)))) + (_%g8083880852%_ _%g8083980856%_))))) + (_%g8083780893%_ _%$stx80834%_)))) (define |[:0:]#__unlock-inline!| - (lambda (_%$stx81166%_) - (let* ((_%g8117081184%_ - (lambda (_%g8117181180%_) + (lambda (_%$stx80897%_) + (let* ((_%g8090180915%_ + (lambda (_%g8090280911%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8117181180%_))) - (_%g8116981225%_ - (lambda (_%g8117181188%_) - (if (gx#stx-pair? _%g8117181188%_) - (let ((_%e8117581191%_ (gx#syntax-e _%g8117181188%_))) - (let ((_%hd8117481195%_ + _%g8090280911%_))) + (_%g8090080956%_ + (lambda (_%g8090280919%_) + (if (gx#stx-pair? _%g8090280919%_) + (let ((_%e8090680922%_ (gx#syntax-e _%g8090280919%_))) + (let ((_%hd8090580926%_ (let () (declare (not safe)) - (##car _%e8117581191%_))) - (_%tl8117381198%_ + (##car _%e8090680922%_))) + (_%tl8090480929%_ (let () (declare (not safe)) - (##cdr _%e8117581191%_)))) - (if (gx#stx-pair? _%tl8117381198%_) - (let ((_%e8117881201%_ - (gx#syntax-e _%tl8117381198%_))) - (let ((_%hd8117781205%_ + (##cdr _%e8090680922%_)))) + (if (gx#stx-pair? _%tl8090480929%_) + (let ((_%e8090980932%_ + (gx#syntax-e _%tl8090480929%_))) + (let ((_%hd8090880936%_ (let () (declare (not safe)) - (##car _%e8117881201%_))) - (_%tl8117681208%_ + (##car _%e8090980932%_))) + (_%tl8090780939%_ (let () (declare (not safe)) - (##cdr _%e8117881201%_)))) - (if (gx#stx-null? _%tl8117681208%_) - ((lambda (_%L81211%_) + (##cdr _%e8090980932%_)))) + (if (gx#stx-null? _%tl8090780939%_) + ((lambda (_%L80942%_) (cons (gx#datum->syntax '#f '##vector-cas!) - (cons _%L81211%_ + (cons _%L80942%_ (cons '0 (cons '0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '1 '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8117781205%_) - (_%g8117081184%_ _%g8117181188%_)))) - (_%g8117081184%_ _%g8117181188%_)))) - (_%g8117081184%_ _%g8117181188%_))))) - (_%g8116981225%_ _%$stx81166%_)))) + _%hd8090880936%_) + (_%g8090180915%_ _%g8090280919%_)))) + (_%g8090180915%_ _%g8090280919%_)))) + (_%g8090180915%_ _%g8090280919%_))))) + (_%g8090080956%_ _%$stx80897%_)))) (define |[:0:]#__make-inline-lock| - (lambda (_%$stx81229%_) - (let* ((_%g8123381243%_ - (lambda (_%g8123481239%_) + (lambda (_%$stx80960%_) + (let* ((_%g8096480974%_ + (lambda (_%g8096580970%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8123481239%_))) - (_%g8123281264%_ - (lambda (_%g8123481247%_) - (if (gx#stx-pair? _%g8123481247%_) - (let ((_%e8123781250%_ (gx#syntax-e _%g8123481247%_))) - (let ((_%hd8123681254%_ + _%g8096580970%_))) + (_%g8096380995%_ + (lambda (_%g8096580978%_) + (if (gx#stx-pair? _%g8096580978%_) + (let ((_%e8096880981%_ (gx#syntax-e _%g8096580978%_))) + (let ((_%hd8096780985%_ (let () (declare (not safe)) - (##car _%e8123781250%_))) - (_%tl8123581257%_ + (##car _%e8096880981%_))) + (_%tl8096680988%_ (let () (declare (not safe)) - (##cdr _%e8123781250%_)))) - (if (gx#stx-null? _%tl8123581257%_) + (##cdr _%e8096880981%_)))) + (if (gx#stx-null? _%tl8096680988%_) ((lambda () (cons (gx#datum->syntax '#f 'vector) (cons '0 '())))) - (_%g8123381243%_ _%g8123481247%_)))) - (_%g8123381243%_ _%g8123481247%_))))) - (_%g8123281264%_ _%$stx81229%_)))) + (_%g8096480974%_ _%g8096580978%_)))) + (_%g8096480974%_ _%g8096580978%_))))) + (_%g8096380995%_ _%$stx80960%_)))) (define |[:0:]#defaget| - (lambda (_%$stx81268%_) - (let* ((_%g8127281290%_ - (lambda (_%g8127381286%_) + (lambda (_%$stx80999%_) + (let* ((_%g8100381021%_ + (lambda (_%g8100481017%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8127381286%_))) - (_%g8127181345%_ - (lambda (_%g8127381294%_) - (if (gx#stx-pair? _%g8127381294%_) - (let ((_%e8127881297%_ (gx#syntax-e _%g8127381294%_))) - (let ((_%hd8127781301%_ + _%g8100481017%_))) + (_%g8100281076%_ + (lambda (_%g8100481025%_) + (if (gx#stx-pair? _%g8100481025%_) + (let ((_%e8100981028%_ (gx#syntax-e _%g8100481025%_))) + (let ((_%hd8100881032%_ (let () (declare (not safe)) - (##car _%e8127881297%_))) - (_%tl8127681304%_ + (##car _%e8100981028%_))) + (_%tl8100781035%_ (let () (declare (not safe)) - (##cdr _%e8127881297%_)))) - (if (gx#stx-pair? _%tl8127681304%_) - (let ((_%e8128181307%_ - (gx#syntax-e _%tl8127681304%_))) - (let ((_%hd8128081311%_ + (##cdr _%e8100981028%_)))) + (if (gx#stx-pair? _%tl8100781035%_) + (let ((_%e8101281038%_ + (gx#syntax-e _%tl8100781035%_))) + (let ((_%hd8101181042%_ (let () (declare (not safe)) - (##car _%e8128181307%_))) - (_%tl8127981314%_ + (##car _%e8101281038%_))) + (_%tl8101081045%_ (let () (declare (not safe)) - (##cdr _%e8128181307%_)))) - (if (gx#stx-pair? _%tl8127981314%_) - (let ((_%e8128481317%_ - (gx#syntax-e _%tl8127981314%_))) - (let ((_%hd8128381321%_ + (##cdr _%e8101281038%_)))) + (if (gx#stx-pair? _%tl8101081045%_) + (let ((_%e8101581048%_ + (gx#syntax-e _%tl8101081045%_))) + (let ((_%hd8101481052%_ (let () (declare (not safe)) - (##car _%e8128481317%_))) - (_%tl8128281324%_ + (##car _%e8101581048%_))) + (_%tl8101381055%_ (let () (declare (not safe)) - (##cdr _%e8128481317%_)))) - (if (gx#stx-null? _%tl8128281324%_) - ((lambda (_%L81327%_ _%L81329%_) + (##cdr _%e8101581048%_)))) + (if (gx#stx-null? _%tl8101381055%_) + ((lambda (_%L81058%_ _%L81060%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L81329%_ + (cons (cons _%L81060%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) @@ -291,7 +291,7 @@ '#f 'lst) '())) - (cons (cons _%L81327%_ + (cons (cons _%L81058%_ (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) '()))) '()))) @@ -328,62 +328,62 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8128381321%_ - _%hd8128081311%_) - (_%g8127281290%_ - _%g8127381294%_)))) - (_%g8127281290%_ _%g8127381294%_)))) - (_%g8127281290%_ _%g8127381294%_)))) - (_%g8127281290%_ _%g8127381294%_))))) - (_%g8127181345%_ _%$stx81268%_)))) + _%hd8101481052%_ + _%hd8101181042%_) + (_%g8100381021%_ + _%g8100481025%_)))) + (_%g8100381021%_ _%g8100481025%_)))) + (_%g8100381021%_ _%g8100481025%_)))) + (_%g8100381021%_ _%g8100481025%_))))) + (_%g8100281076%_ _%$stx80999%_)))) (define |[:0:]#defpget| - (lambda (_%$stx81349%_) - (let* ((_%g8135381371%_ - (lambda (_%g8135481367%_) + (lambda (_%$stx81080%_) + (let* ((_%g8108481102%_ + (lambda (_%g8108581098%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8135481367%_))) - (_%g8135281426%_ - (lambda (_%g8135481375%_) - (if (gx#stx-pair? _%g8135481375%_) - (let ((_%e8135981378%_ (gx#syntax-e _%g8135481375%_))) - (let ((_%hd8135881382%_ + _%g8108581098%_))) + (_%g8108381157%_ + (lambda (_%g8108581106%_) + (if (gx#stx-pair? _%g8108581106%_) + (let ((_%e8109081109%_ (gx#syntax-e _%g8108581106%_))) + (let ((_%hd8108981113%_ (let () (declare (not safe)) - (##car _%e8135981378%_))) - (_%tl8135781385%_ + (##car _%e8109081109%_))) + (_%tl8108881116%_ (let () (declare (not safe)) - (##cdr _%e8135981378%_)))) - (if (gx#stx-pair? _%tl8135781385%_) - (let ((_%e8136281388%_ - (gx#syntax-e _%tl8135781385%_))) - (let ((_%hd8136181392%_ + (##cdr _%e8109081109%_)))) + (if (gx#stx-pair? _%tl8108881116%_) + (let ((_%e8109381119%_ + (gx#syntax-e _%tl8108881116%_))) + (let ((_%hd8109281123%_ (let () (declare (not safe)) - (##car _%e8136281388%_))) - (_%tl8136081395%_ + (##car _%e8109381119%_))) + (_%tl8109181126%_ (let () (declare (not safe)) - (##cdr _%e8136281388%_)))) - (if (gx#stx-pair? _%tl8136081395%_) - (let ((_%e8136581398%_ - (gx#syntax-e _%tl8136081395%_))) - (let ((_%hd8136481402%_ + (##cdr _%e8109381119%_)))) + (if (gx#stx-pair? _%tl8109181126%_) + (let ((_%e8109681129%_ + (gx#syntax-e _%tl8109181126%_))) + (let ((_%hd8109581133%_ (let () (declare (not safe)) - (##car _%e8136581398%_))) - (_%tl8136381405%_ + (##car _%e8109681129%_))) + (_%tl8109481136%_ (let () (declare (not safe)) - (##cdr _%e8136581398%_)))) - (if (gx#stx-null? _%tl8136381405%_) - ((lambda (_%L81408%_ _%L81410%_) + (##cdr _%e8109681129%_)))) + (if (gx#stx-null? _%tl8109481136%_) + ((lambda (_%L81139%_ _%L81141%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L81410%_ + (cons (cons _%L81141%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L81408%_ + (cons (cons _%L81139%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -458,62 +458,62 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8136481402%_ - _%hd8136181392%_) - (_%g8135381371%_ - _%g8135481375%_)))) - (_%g8135381371%_ _%g8135481375%_)))) - (_%g8135381371%_ _%g8135481375%_)))) - (_%g8135381371%_ _%g8135481375%_))))) - (_%g8135281426%_ _%$stx81349%_)))) + _%hd8109581133%_ + _%hd8109281123%_) + (_%g8108481102%_ + _%g8108581106%_)))) + (_%g8108481102%_ _%g8108581106%_)))) + (_%g8108481102%_ _%g8108581106%_)))) + (_%g8108481102%_ _%g8108581106%_))))) + (_%g8108381157%_ _%$stx81080%_)))) (define |[:0:]#defremove1| - (lambda (_%$stx81430%_) - (let* ((_%g8143481452%_ - (lambda (_%g8143581448%_) + (lambda (_%$stx81161%_) + (let* ((_%g8116581183%_ + (lambda (_%g8116681179%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8143581448%_))) - (_%g8143381507%_ - (lambda (_%g8143581456%_) - (if (gx#stx-pair? _%g8143581456%_) - (let ((_%e8144081459%_ (gx#syntax-e _%g8143581456%_))) - (let ((_%hd8143981463%_ + _%g8116681179%_))) + (_%g8116481238%_ + (lambda (_%g8116681187%_) + (if (gx#stx-pair? _%g8116681187%_) + (let ((_%e8117181190%_ (gx#syntax-e _%g8116681187%_))) + (let ((_%hd8117081194%_ (let () (declare (not safe)) - (##car _%e8144081459%_))) - (_%tl8143881466%_ + (##car _%e8117181190%_))) + (_%tl8116981197%_ (let () (declare (not safe)) - (##cdr _%e8144081459%_)))) - (if (gx#stx-pair? _%tl8143881466%_) - (let ((_%e8144381469%_ - (gx#syntax-e _%tl8143881466%_))) - (let ((_%hd8144281473%_ + (##cdr _%e8117181190%_)))) + (if (gx#stx-pair? _%tl8116981197%_) + (let ((_%e8117481200%_ + (gx#syntax-e _%tl8116981197%_))) + (let ((_%hd8117381204%_ (let () (declare (not safe)) - (##car _%e8144381469%_))) - (_%tl8144181476%_ + (##car _%e8117481200%_))) + (_%tl8117281207%_ (let () (declare (not safe)) - (##cdr _%e8144381469%_)))) - (if (gx#stx-pair? _%tl8144181476%_) - (let ((_%e8144681479%_ - (gx#syntax-e _%tl8144181476%_))) - (let ((_%hd8144581483%_ + (##cdr _%e8117481200%_)))) + (if (gx#stx-pair? _%tl8117281207%_) + (let ((_%e8117781210%_ + (gx#syntax-e _%tl8117281207%_))) + (let ((_%hd8117681214%_ (let () (declare (not safe)) - (##car _%e8144681479%_))) - (_%tl8144481486%_ + (##car _%e8117781210%_))) + (_%tl8117581217%_ (let () (declare (not safe)) - (##cdr _%e8144681479%_)))) - (if (gx#stx-null? _%tl8144481486%_) - ((lambda (_%L81489%_ _%L81491%_) + (##cdr _%e8117781210%_)))) + (if (gx#stx-null? _%tl8117581217%_) + ((lambda (_%L81220%_ _%L81222%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L81491%_ + (cons (cons _%L81222%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L81489%_ + (cons (cons _%L81220%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -586,156 +586,150 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8144581483%_ - _%hd8144281473%_) - (_%g8143481452%_ - _%g8143581456%_)))) - (_%g8143481452%_ _%g8143581456%_)))) - (_%g8143481452%_ _%g8143581456%_)))) - (_%g8143481452%_ _%g8143581456%_))))) - (_%g8143381507%_ _%$stx81430%_)))) + _%hd8117681214%_ + _%hd8117381204%_) + (_%g8116581183%_ + _%g8116681187%_)))) + (_%g8116581183%_ _%g8116681187%_)))) + (_%g8116581183%_ _%g8116681187%_)))) + (_%g8116581183%_ _%g8116681187%_))))) + (_%g8116481238%_ _%$stx81161%_)))) (define |[:0:]#DBG| - (lambda (_%$stx81511%_) - (let* ((_%g8151581526%_ - (lambda (_%g8151681522%_) + (lambda (_%$stx81242%_) + (let* ((_%g8124681257%_ + (lambda (_%g8124781253%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8151681522%_))) - (_%g8151481555%_ - (lambda (_%g8151681530%_) - (if (gx#stx-pair? _%g8151681530%_) - (let ((_%e8152081533%_ (gx#syntax-e _%g8151681530%_))) - (let ((_%hd8151981537%_ + _%g8124781253%_))) + (_%g8124581286%_ + (lambda (_%g8124781261%_) + (if (gx#stx-pair? _%g8124781261%_) + (let ((_%e8125181264%_ (gx#syntax-e _%g8124781261%_))) + (let ((_%hd8125081268%_ (let () (declare (not safe)) - (##car _%e8152081533%_))) - (_%tl8151881540%_ + (##car _%e8125181264%_))) + (_%tl8124981271%_ (let () (declare (not safe)) - (##cdr _%e8152081533%_)))) - ((lambda (_%L81543%_) + (##cdr _%e8125181264%_)))) + ((lambda (_%L81274%_) (cons (gx#datum->syntax '#f 'DBG/1) - (cons '1 _%L81543%_))) - _%tl8151881540%_))) - (_%g8151581526%_ _%g8151681530%_))))) - (_%g8151481555%_ _%$stx81511%_)))) + (cons '1 _%L81274%_))) + _%tl8124981271%_))) + (_%g8124681257%_ _%g8124781261%_))))) + (_%g8124581286%_ _%$stx81242%_)))) (define |[:0:]#DBG/1| - (lambda (_%$stx81559%_) - (let* ((_%__stx8752287523%_ _%$stx81559%_) - (_%g8157081784%_ + (lambda (_%$stx81290%_) + (let* ((_%__stx8725387254%_ _%$stx81290%_) + (_%g8130181515%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8752287523%_)))) - (let ((_%__kont8752587526%_ - (lambda (_%L82637%_ - _%L82639%_ - _%L82640%_ - _%L82641%_ - _%L82642%_) - (cons _%L82642%_ + _%__stx8725387254%_)))) + (let ((_%__kont8725687257%_ + (lambda (_%L82368%_ + _%L82370%_ + _%L82371%_ + _%L82372%_ + _%L82373%_) + (cons _%L82373%_ (cons '2 (cons '() - (cons (let ((__tmp87991 - (lambda (_%g8267282675%_ - _%g8267382678%_) - (cons _%g8267282675%_ - _%g8267382678%_)))) - (declare (not safe)) - (__foldr1 - __tmp87991 - '() - _%L82640%_)) - (cons _%L82641%_ - (cons _%L82639%_ - (cons _%L82637%_ + (cons (__foldr1 + (lambda (_%g8240382406%_ + _%g8240482409%_) + (cons _%g8240382406%_ + _%g8240482409%_)) + '() + _%L82371%_) + (cons _%L82372%_ + (cons _%L82370%_ + (cons _%L82368%_ '()))))))))) - (_%__kont8752987530%_ - (lambda (_%L82490%_ _%L82492%_ _%L82493%_ _%L82494%_) - (cons _%L82494%_ + (_%__kont8726087261%_ + (lambda (_%L82221%_ _%L82223%_ _%L82224%_ _%L82225%_) + (cons _%L82225%_ (cons '2 (cons '() - (cons (let ((__tmp87992 - (lambda (_%g8251782520%_ - _%g8251882523%_) - (cons _%g8251782520%_ - _%g8251882523%_)))) - (declare (not safe)) - (__foldr1 - __tmp87992 - '() - _%L82492%_)) - (cons _%L82493%_ - (cons _%L82490%_ - (cons _%L82490%_ + (cons (__foldr1 + (lambda (_%g8224882251%_ + _%g8224982254%_) + (cons _%g8224882251%_ + _%g8224982254%_)) + '() + _%L82223%_) + (cons _%L82224%_ + (cons _%L82221%_ + (cons _%L82221%_ '()))))))))) - (_%__kont8753387534%_ - (lambda (_%L82393%_) + (_%__kont8726487265%_ + (lambda (_%L82124%_) (cons (gx#datum->syntax '#f 'DBG-helper) - (cons _%L82393%_ + (cons _%L82124%_ (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons '#f (cons '#f '())))))))) - (_%__kont8753587536%_ - (lambda (_%L82316%_ - _%L82318%_ - _%L82319%_ - _%L82320%_ - _%L82321%_ - _%L82322%_) - (cons _%L82322%_ + (_%__kont8726687267%_ + (lambda (_%L82047%_ + _%L82049%_ + _%L82050%_ + _%L82051%_ + _%L82052%_ + _%L82053%_) + (cons _%L82053%_ (cons '2 - (cons (cons (cons _%L82320%_ - (cons _%L82319%_ '())) - _%L82321%_) - (cons _%L82318%_ _%L82316%_)))))) - (_%__kont8753787538%_ - (lambda (_%L82197%_ - _%L82199%_ - _%L82200%_ - _%L82201%_ - _%L82202%_) - (cons _%L82202%_ + (cons (cons (cons _%L82051%_ + (cons _%L82050%_ '())) + _%L82052%_) + (cons _%L82049%_ _%L82047%_)))))) + (_%__kont8726887269%_ + (lambda (_%L81928%_ + _%L81930%_ + _%L81931%_ + _%L81932%_ + _%L81933%_) + (cons _%L81933%_ (cons '2 - (cons (cons (cons _%L82200%_ - (cons _%L82200%_ '())) - _%L82201%_) - (cons _%L82199%_ _%L82197%_)))))) - (_%__kont8753987540%_ - (lambda (_%L82114%_ _%L82116%_ _%L82117%_) - (cons _%L82117%_ - (cons '3 (cons '() (cons _%L82116%_ _%L82114%_)))))) - (_%__kont8754187542%_ - (lambda (_%L82035%_ - _%L82037%_ - _%L82038%_ - _%L82039%_ - _%L82040%_) - (cons _%L82040%_ + (cons (cons (cons _%L81931%_ + (cons _%L81931%_ '())) + _%L81932%_) + (cons _%L81930%_ _%L81928%_)))))) + (_%__kont8727087271%_ + (lambda (_%L81845%_ _%L81847%_ _%L81848%_) + (cons _%L81848%_ + (cons '3 (cons '() (cons _%L81847%_ _%L81845%_)))))) + (_%__kont8727287273%_ + (lambda (_%L81766%_ + _%L81768%_ + _%L81769%_ + _%L81770%_ + _%L81771%_) + (cons _%L81771%_ (cons '3 - (cons (cons _%L82038%_ _%L82039%_) - (cons _%L82037%_ _%L82035%_)))))) - (_%__kont8754387544%_ - (lambda (_%L81919%_ - _%L81921%_ - _%L81922%_ - _%L81923%_ - _%L81924%_ - _%L81925%_) + (cons (cons _%L81769%_ _%L81770%_) + (cons _%L81768%_ _%L81766%_)))))) + (_%__kont8727487275%_ + (lambda (_%L81650%_ + _%L81652%_ + _%L81653%_ + _%L81654%_ + _%L81655%_ + _%L81656%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (cons (gx#datum->syntax '#f 'tagval) - (cons _%L81922%_ '())) + (cons _%L81653%_ '())) (cons (cons (gx#datum->syntax '#f 'thunk) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L81919%_ '()))) + (cons _%L81650%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -749,37 +743,32 @@ '#f 'tagval) (cons (cons (gx#datum->syntax '#f 'quote) - (cons (let ((__tmp87993 - (lambda (_%g8195981962%_ - _%g8196081965%_) - (cons _%g8195981962%_ - _%g8196081965%_)))) - (declare (not safe)) - (__foldr1 - __tmp87993 - '() - _%L81924%_)) + (cons (__foldr1 + (lambda (_%g8169081693%_ + _%g8169181696%_) + (cons _%g8169081693%_ + _%g8169181696%_)) + '() + _%L81655%_) '())) (cons (cons (gx#datum->syntax '#f 'list) - (let ((__tmp87994 - (lambda (_%g8195781968%_ - _%g8195881971%_) - (cons (cons (gx#datum->syntax + (__foldr1 + (lambda (_%g8168881699%_ + _%g8168981702%_) + (cons (cons (gx#datum->syntax + '#f + 'lambda) + (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'lambda) - (cons '() (cons _%g8195781968%_ '()))) - _%g8195881971%_)))) + (cons _%g8168881699%_ '()))) + _%g8168981702%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (__foldr1 - __tmp87994 - '() - _%L81923%_))) + '() + _%L81654%_)) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L81921%_ '())) + (cons _%L81652%_ '())) (cons (gx#datum->syntax '#f 'thunk) @@ -787,1201 +776,1201 @@ (cons (cons (gx#datum->syntax '#f 'thunk) '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match8787387874%_ - (lambda (_%e8174281791%_ - _%hd8174181795%_ - _%tl8174081798%_ - _%e8174581801%_ - _%hd8174481805%_ - _%tl8174381808%_ - _%e8174681811%_ - _%e8174981815%_ - _%hd8174881819%_ - _%tl8174781822%_ - _%__splice8754587546%_ - _%target8175081825%_ - _%tl8175281828%_) - (letrec ((_%loop8175381831%_ - (lambda (_%hd8175181835%_ - _%exprs8175781838%_ - _%names8175881840%_) - (if (gx#stx-pair? _%hd8175181835%_) - (let ((_%e8175481843%_ - (gx#syntax-e _%hd8175181835%_))) - (let ((_%lp-tl8175681850%_ + (let* ((_%__match8760487605%_ + (lambda (_%e8147381522%_ + _%hd8147281526%_ + _%tl8147181529%_ + _%e8147681532%_ + _%hd8147581536%_ + _%tl8147481539%_ + _%e8147781542%_ + _%e8148081546%_ + _%hd8147981550%_ + _%tl8147881553%_ + _%__splice8727687277%_ + _%target8148181556%_ + _%tl8148381559%_) + (letrec ((_%loop8148481562%_ + (lambda (_%hd8148281566%_ + _%exprs8148881569%_ + _%names8148981571%_) + (if (gx#stx-pair? _%hd8148281566%_) + (let ((_%e8148581574%_ + (gx#syntax-e _%hd8148281566%_))) + (let ((_%lp-tl8148781581%_ (let () (declare (not safe)) - (##cdr _%e8175481843%_))) - (_%lp-hd8175581847%_ + (##cdr _%e8148581574%_))) + (_%lp-hd8148681578%_ (let () (declare (not safe)) - (##car _%e8175481843%_)))) + (##car _%e8148581574%_)))) (if (gx#stx-pair? - _%lp-hd8175581847%_) - (let ((_%e8176381853%_ + _%lp-hd8148681578%_) + (let ((_%e8149481584%_ (gx#syntax-e - _%lp-hd8175581847%_))) - (let ((_%tl8176181860%_ + _%lp-hd8148681578%_))) + (let ((_%tl8149281591%_ (let () (declare (not safe)) - (##cdr _%e8176381853%_))) - (_%hd8176281857%_ + (##cdr _%e8149481584%_))) + (_%hd8149381588%_ (let () (declare (not safe)) - (##car _%e8176381853%_)))) + (##car _%e8149481584%_)))) (if (gx#stx-pair? - _%tl8176181860%_) - (let ((_%e8176681863%_ + _%tl8149281591%_) + (let ((_%e8149781594%_ (gx#syntax-e - _%tl8176181860%_))) - (let ((_%tl8176481870%_ + _%tl8149281591%_))) + (let ((_%tl8149581601%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e8176681863%_))) - (_%hd8176581867%_ - (let () (declare (not safe)) (##car _%e8176681863%_)))) - (if (gx#stx-null? _%tl8176481870%_) - (_%loop8175381831%_ - _%lp-tl8175681850%_ - (cons _%hd8176581867%_ _%exprs8175781838%_) - (cons _%hd8176281857%_ _%names8175881840%_)) - (let () (declare (not safe)) (_%g8157081784%_))))) - (let () (declare (not safe)) (_%g8157081784%_))))) + (##cdr _%e8149781594%_))) + (_%hd8149681598%_ + (let () (declare (not safe)) (##car _%e8149781594%_)))) + (if (gx#stx-null? _%tl8149581601%_) + (_%loop8148481562%_ + _%lp-tl8148781581%_ + (cons _%hd8149681598%_ _%exprs8148881569%_) + (cons _%hd8149381588%_ _%names8148981571%_)) + (let () (declare (not safe)) (_%g8130181515%_))))) + (let () (declare (not safe)) (_%g8130181515%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8157081784%_))))) - (let ((_%names8176081876%_ - (reverse _%names8175881840%_)) - (_%exprs8175981873%_ - (reverse _%exprs8175781838%_))) - (if (gx#stx-pair? _%tl8174781822%_) - (let ((_%e8176981879%_ + (_%g8130181515%_))))) + (let ((_%names8149181607%_ + (reverse _%names8148981571%_)) + (_%exprs8149081604%_ + (reverse _%exprs8148881569%_))) + (if (gx#stx-pair? _%tl8147881553%_) + (let ((_%e8150081610%_ (gx#syntax-e - _%tl8174781822%_))) - (let ((_%tl8176781886%_ + _%tl8147881553%_))) + (let ((_%tl8149881617%_ (let () (declare (not safe)) - (##cdr _%e8176981879%_))) - (_%hd8176881883%_ + (##cdr _%e8150081610%_))) + (_%hd8149981614%_ (let () (declare (not safe)) - (##car _%e8176981879%_)))) + (##car _%e8150081610%_)))) (if (gx#stx-null? - _%hd8176881883%_) + _%hd8149981614%_) (if (gx#stx-pair? - _%tl8176781886%_) - (let ((_%e8177281889%_ + _%tl8149881617%_) + (let ((_%e8150381620%_ (gx#syntax-e - _%tl8176781886%_))) - (let ((_%tl8177081896%_ + _%tl8149881617%_))) + (let ((_%tl8150181627%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8177281889%_))) - (_%hd8177181893%_ + (let () (declare (not safe)) (##cdr _%e8150381620%_))) + (_%hd8150281624%_ (let () (declare (not safe)) - (##car _%e8177281889%_)))) - (if (gx#stx-pair? _%tl8177081896%_) - (let ((_%e8177581899%_ (gx#syntax-e _%tl8177081896%_))) - (let ((_%tl8177381906%_ + (##car _%e8150381620%_)))) + (if (gx#stx-pair? _%tl8150181627%_) + (let ((_%e8150681630%_ (gx#syntax-e _%tl8150181627%_))) + (let ((_%tl8150481637%_ (let () (declare (not safe)) - (##cdr _%e8177581899%_))) - (_%hd8177481903%_ + (##cdr _%e8150681630%_))) + (_%hd8150581634%_ (let () (declare (not safe)) - (##car _%e8177581899%_)))) - (if (gx#stx-pair? _%tl8177381906%_) - (let ((_%e8177881909%_ - (gx#syntax-e _%tl8177381906%_))) - (let ((_%tl8177681916%_ + (##car _%e8150681630%_)))) + (if (gx#stx-pair? _%tl8150481637%_) + (let ((_%e8150981640%_ + (gx#syntax-e _%tl8150481637%_))) + (let ((_%tl8150781647%_ (let () (declare (not safe)) - (##cdr _%e8177881909%_))) - (_%hd8177781913%_ + (##cdr _%e8150981640%_))) + (_%hd8150881644%_ (let () (declare (not safe)) - (##car _%e8177881909%_)))) - (if (gx#stx-null? _%tl8177681916%_) - (_%__kont8754387544%_ - _%hd8177781913%_ - _%hd8177481903%_ - _%hd8177181893%_ - _%exprs8175981873%_ - _%names8176081876%_ - _%hd8174181795%_) + (##car _%e8150981640%_)))) + (if (gx#stx-null? _%tl8150781647%_) + (_%__kont8727487275%_ + _%hd8150881644%_ + _%hd8150581634%_ + _%hd8150281624%_ + _%exprs8149081604%_ + _%names8149181607%_ + _%hd8147281526%_) (let () (declare (not safe)) - (_%g8157081784%_))))) + (_%g8130181515%_))))) (let () (declare (not safe)) - (_%g8157081784%_))))) - (let () (declare (not safe)) (_%g8157081784%_))))) - (let () (declare (not safe)) (_%g8157081784%_))) + (_%g8130181515%_))))) + (let () (declare (not safe)) (_%g8130181515%_))))) + (let () (declare (not safe)) (_%g8130181515%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8157081784%_))))) + (_%g8130181515%_))))) (let () (declare (not safe)) - (_%g8157081784%_)))))))) - (_%loop8175381831%_ _%target8175081825%_ '() '())))) - (_%__match8765187652%_ - (lambda (_%e8161482416%_ - _%hd8161382420%_ - _%tl8161282423%_ - _%e8161782426%_ - _%hd8161682430%_ - _%tl8161582433%_ - _%e8161882436%_ - _%e8162182440%_ - _%hd8162082444%_ - _%tl8161982447%_ - _%__splice8753187532%_ - _%target8162282450%_ - _%tl8162482453%_ - _%e8163382456%_ - _%hd8163282460%_ - _%tl8163182463%_) - (letrec ((_%loop8162582466%_ - (lambda (_%hd8162382470%_ _%exprs8162982473%_) - (if (gx#stx-pair? _%hd8162382470%_) - (let ((_%e8162682476%_ - (gx#syntax-e _%hd8162382470%_))) - (let ((_%lp-tl8162882483%_ + (_%g8130181515%_)))))))) + (_%loop8148481562%_ _%target8148181556%_ '() '())))) + (_%__match8738287383%_ + (lambda (_%e8134582147%_ + _%hd8134482151%_ + _%tl8134382154%_ + _%e8134882157%_ + _%hd8134782161%_ + _%tl8134682164%_ + _%e8134982167%_ + _%e8135282171%_ + _%hd8135182175%_ + _%tl8135082178%_ + _%__splice8726287263%_ + _%target8135382181%_ + _%tl8135582184%_ + _%e8136482187%_ + _%hd8136382191%_ + _%tl8136282194%_) + (letrec ((_%loop8135682197%_ + (lambda (_%hd8135482201%_ _%exprs8136082204%_) + (if (gx#stx-pair? _%hd8135482201%_) + (let ((_%e8135782207%_ + (gx#syntax-e _%hd8135482201%_))) + (let ((_%lp-tl8135982214%_ (let () (declare (not safe)) - (##cdr _%e8162682476%_))) - (_%lp-hd8162782480%_ + (##cdr _%e8135782207%_))) + (_%lp-hd8135882211%_ (let () (declare (not safe)) - (##car _%e8162682476%_)))) - (_%loop8162582466%_ - _%lp-tl8162882483%_ - (cons _%lp-hd8162782480%_ - _%exprs8162982473%_)))) - (let ((_%exprs8163082486%_ - (reverse _%exprs8162982473%_))) - (_%__kont8752987530%_ - _%hd8163282460%_ - _%exprs8163082486%_ - _%hd8162082444%_ - _%hd8161382420%_)))))) - (_%loop8162582466%_ _%target8162282450%_ '())))) - (_%__match8761187612%_ - (lambda (_%e8157982533%_ - _%hd8157882537%_ - _%tl8157782540%_ - _%e8158282543%_ - _%hd8158182547%_ - _%tl8158082550%_ - _%e8158382553%_ - _%e8158682557%_ - _%hd8158582561%_ - _%tl8158482564%_ - _%__splice8752787528%_ - _%target8158782567%_ - _%tl8158982570%_ - _%e8159882573%_ - _%hd8159782577%_ - _%tl8159682580%_ - _%e8160182583%_ - _%hd8160082587%_ - _%tl8159982590%_ - _%e8160482593%_ - _%hd8160382597%_ - _%tl8160282600%_ - _%e8160782603%_ - _%hd8160682607%_ - _%tl8160582610%_) - (letrec ((_%loop8159082613%_ - (lambda (_%hd8158882617%_ _%exprs8159482620%_) - (if (gx#stx-pair? _%hd8158882617%_) - (let ((_%e8159182623%_ - (gx#syntax-e _%hd8158882617%_))) - (let ((_%lp-tl8159382630%_ + (##car _%e8135782207%_)))) + (_%loop8135682197%_ + _%lp-tl8135982214%_ + (cons _%lp-hd8135882211%_ + _%exprs8136082204%_)))) + (let ((_%exprs8136182217%_ + (reverse _%exprs8136082204%_))) + (_%__kont8726087261%_ + _%hd8136382191%_ + _%exprs8136182217%_ + _%hd8135182175%_ + _%hd8134482151%_)))))) + (_%loop8135682197%_ _%target8135382181%_ '())))) + (_%__match8734287343%_ + (lambda (_%e8131082264%_ + _%hd8130982268%_ + _%tl8130882271%_ + _%e8131382274%_ + _%hd8131282278%_ + _%tl8131182281%_ + _%e8131482284%_ + _%e8131782288%_ + _%hd8131682292%_ + _%tl8131582295%_ + _%__splice8725887259%_ + _%target8131882298%_ + _%tl8132082301%_ + _%e8132982304%_ + _%hd8132882308%_ + _%tl8132782311%_ + _%e8133282314%_ + _%hd8133182318%_ + _%tl8133082321%_ + _%e8133582324%_ + _%hd8133482328%_ + _%tl8133382331%_ + _%e8133882334%_ + _%hd8133782338%_ + _%tl8133682341%_) + (letrec ((_%loop8132182344%_ + (lambda (_%hd8131982348%_ _%exprs8132582351%_) + (if (gx#stx-pair? _%hd8131982348%_) + (let ((_%e8132282354%_ + (gx#syntax-e _%hd8131982348%_))) + (let ((_%lp-tl8132482361%_ (let () (declare (not safe)) - (##cdr _%e8159182623%_))) - (_%lp-hd8159282627%_ + (##cdr _%e8132282354%_))) + (_%lp-hd8132382358%_ (let () (declare (not safe)) - (##car _%e8159182623%_)))) - (_%loop8159082613%_ - _%lp-tl8159382630%_ - (cons _%lp-hd8159282627%_ - _%exprs8159482620%_)))) - (let ((_%exprs8159582633%_ - (reverse _%exprs8159482620%_))) - (_%__kont8752587526%_ - _%hd8160682607%_ - _%hd8160382597%_ - _%exprs8159582633%_ - _%hd8158582561%_ - _%hd8157882537%_)))))) - (_%loop8159082613%_ _%target8158782567%_ '()))))) - (if (gx#stx-pair? _%__stx8752287523%_) - (let ((_%e8157982533%_ (gx#syntax-e _%__stx8752287523%_))) - (let ((_%tl8157782540%_ + (##car _%e8132282354%_)))) + (_%loop8132182344%_ + _%lp-tl8132482361%_ + (cons _%lp-hd8132382358%_ + _%exprs8132582351%_)))) + (let ((_%exprs8132682364%_ + (reverse _%exprs8132582351%_))) + (_%__kont8725687257%_ + _%hd8133782338%_ + _%hd8133482328%_ + _%exprs8132682364%_ + _%hd8131682292%_ + _%hd8130982268%_)))))) + (_%loop8132182344%_ _%target8131882298%_ '()))))) + (if (gx#stx-pair? _%__stx8725387254%_) + (let ((_%e8131082264%_ (gx#syntax-e _%__stx8725387254%_))) + (let ((_%tl8130882271%_ (let () (declare (not safe)) - (##cdr _%e8157982533%_))) - (_%hd8157882537%_ + (##cdr _%e8131082264%_))) + (_%hd8130982268%_ (let () (declare (not safe)) - (##car _%e8157982533%_)))) - (if (gx#stx-pair? _%tl8157782540%_) - (let ((_%e8158282543%_ - (gx#syntax-e _%tl8157782540%_))) - (let ((_%tl8158082550%_ + (##car _%e8131082264%_)))) + (if (gx#stx-pair? _%tl8130882271%_) + (let ((_%e8131382274%_ + (gx#syntax-e _%tl8130882271%_))) + (let ((_%tl8131182281%_ (let () (declare (not safe)) - (##cdr _%e8158282543%_))) - (_%hd8158182547%_ + (##cdr _%e8131382274%_))) + (_%hd8131282278%_ (let () (declare (not safe)) - (##car _%e8158282543%_)))) - (if (gx#stx-datum? _%hd8158182547%_) - (let ((_%e8158382553%_ - (gx#stx-e _%hd8158182547%_))) - (if (equal? _%e8158382553%_ '1) - (if (gx#stx-pair? _%tl8158082550%_) - (let ((_%e8158682557%_ + (##car _%e8131382274%_)))) + (if (gx#stx-datum? _%hd8131282278%_) + (let ((_%e8131482284%_ + (gx#stx-e _%hd8131282278%_))) + (if (equal? _%e8131482284%_ '1) + (if (gx#stx-pair? _%tl8131182281%_) + (let ((_%e8131782288%_ (gx#syntax-e - _%tl8158082550%_))) - (let ((_%tl8158482564%_ + _%tl8131182281%_))) + (let ((_%tl8131582295%_ (let () (declare (not safe)) - (##cdr _%e8158682557%_))) - (_%hd8158582561%_ + (##cdr _%e8131782288%_))) + (_%hd8131682292%_ (let () (declare (not safe)) - (##car _%e8158682557%_)))) + (##car _%e8131782288%_)))) (if (gx#stx-pair/null? - _%tl8158482564%_) - (if (let ((__tmp87995 + _%tl8131582295%_) + (if (let ((__tmp87691 (gx#stx-length - _%tl8158482564%_))) + _%tl8131582295%_))) (declare (not safe)) - (##fx>= __tmp87995 + (##fx>= __tmp87691 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '2)) - (let ((_%__splice8752787528%_ - (gx#syntax-split-splice _%tl8158482564%_ '2))) - (let ((_%tl8158982570%_ + (let ((_%__splice8725887259%_ + (gx#syntax-split-splice _%tl8131582295%_ '2))) + (let ((_%tl8132082301%_ (let () (declare (not safe)) - (##vector-ref _%__splice8752787528%_ '1))) - (_%target8158782567%_ + (##vector-ref _%__splice8725887259%_ '1))) + (_%target8131882298%_ (let () (declare (not safe)) - (##vector-ref _%__splice8752787528%_ '0)))) - (if (gx#stx-pair? _%tl8158982570%_) - (let ((_%e8159882573%_ (gx#syntax-e _%tl8158982570%_))) - (let ((_%tl8159682580%_ + (##vector-ref _%__splice8725887259%_ '0)))) + (if (gx#stx-pair? _%tl8132082301%_) + (let ((_%e8132982304%_ (gx#syntax-e _%tl8132082301%_))) + (let ((_%tl8132782311%_ (let () (declare (not safe)) - (##cdr _%e8159882573%_))) - (_%hd8159782577%_ + (##cdr _%e8132982304%_))) + (_%hd8132882308%_ (let () (declare (not safe)) - (##car _%e8159882573%_)))) - (if (gx#stx-pair? _%hd8159782577%_) - (let ((_%e8160182583%_ - (gx#syntax-e _%hd8159782577%_))) - (let ((_%tl8159982590%_ + (##car _%e8132982304%_)))) + (if (gx#stx-pair? _%hd8132882308%_) + (let ((_%e8133282314%_ + (gx#syntax-e _%hd8132882308%_))) + (let ((_%tl8133082321%_ (let () (declare (not safe)) - (##cdr _%e8160182583%_))) - (_%hd8160082587%_ + (##cdr _%e8133282314%_))) + (_%hd8133182318%_ (let () (declare (not safe)) - (##car _%e8160182583%_)))) - (if (gx#identifier? _%hd8160082587%_) + (##car _%e8133282314%_)))) + (if (gx#identifier? _%hd8133182318%_) (if (gx#free-identifier=? - |[1]#_g87996_| - _%hd8160082587%_) - (if (gx#stx-pair? _%tl8159982590%_) - (let ((_%e8160482593%_ + |[1]#_g87692_| + _%hd8133182318%_) + (if (gx#stx-pair? _%tl8133082321%_) + (let ((_%e8133582324%_ (gx#syntax-e - _%tl8159982590%_))) - (let ((_%tl8160282600%_ + _%tl8133082321%_))) + (let ((_%tl8133382331%_ (let () (declare (not safe)) - (##cdr _%e8160482593%_))) - (_%hd8160382597%_ + (##cdr _%e8133582324%_))) + (_%hd8133482328%_ (let () (declare (not safe)) - (##car _%e8160482593%_)))) + (##car _%e8133582324%_)))) (if (gx#stx-null? - _%tl8160282600%_) + _%tl8133382331%_) (if (gx#stx-pair? - _%tl8159682580%_) - (let ((_%e8160782603%_ + _%tl8132782311%_) + (let ((_%e8133882334%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8159682580%_))) - (let ((_%tl8160582610%_ + (gx#syntax-e _%tl8132782311%_))) + (let ((_%tl8133682341%_ (let () (declare (not safe)) - (##cdr _%e8160782603%_))) - (_%hd8160682607%_ + (##cdr _%e8133882334%_))) + (_%hd8133782338%_ (let () (declare (not safe)) - (##car _%e8160782603%_)))) - (if (gx#stx-null? _%tl8160582610%_) - (_%__match8761187612%_ - _%e8157982533%_ - _%hd8157882537%_ - _%tl8157782540%_ - _%e8158282543%_ - _%hd8158182547%_ - _%tl8158082550%_ - _%e8158382553%_ - _%e8158682557%_ - _%hd8158582561%_ - _%tl8158482564%_ - _%__splice8752787528%_ - _%target8158782567%_ - _%tl8158982570%_ - _%e8159882573%_ - _%hd8159782577%_ - _%tl8159682580%_ - _%e8160182583%_ - _%hd8160082587%_ - _%tl8159982590%_ - _%e8160482593%_ - _%hd8160382597%_ - _%tl8160282600%_ - _%e8160782603%_ - _%hd8160682607%_ - _%tl8160582610%_) - (if (let ((__tmp87997 - (gx#stx-length _%tl8158482564%_))) + (##car _%e8133882334%_)))) + (if (gx#stx-null? _%tl8133682341%_) + (_%__match8734287343%_ + _%e8131082264%_ + _%hd8130982268%_ + _%tl8130882271%_ + _%e8131382274%_ + _%hd8131282278%_ + _%tl8131182281%_ + _%e8131482284%_ + _%e8131782288%_ + _%hd8131682292%_ + _%tl8131582295%_ + _%__splice8725887259%_ + _%target8131882298%_ + _%tl8132082301%_ + _%e8132982304%_ + _%hd8132882308%_ + _%tl8132782311%_ + _%e8133282314%_ + _%hd8133182318%_ + _%tl8133082321%_ + _%e8133582324%_ + _%hd8133482328%_ + _%tl8133382331%_ + _%e8133882334%_ + _%hd8133782338%_ + _%tl8133682341%_) + (if (let ((__tmp87693 + (gx#stx-length _%tl8131582295%_))) (declare (not safe)) - (##fx>= __tmp87997 '1)) - (let ((_%__splice8753187532%_ + (##fx>= __tmp87693 '1)) + (let ((_%__splice8726287263%_ (gx#syntax-split-splice - _%tl8158482564%_ + _%tl8131582295%_ '1))) - (let ((_%tl8162482453%_ + (let ((_%tl8135582184%_ (let () (declare (not safe)) (##vector-ref - _%__splice8753187532%_ + _%__splice8726287263%_ '1))) - (_%target8162282450%_ + (_%target8135382181%_ (let () (declare (not safe)) (##vector-ref - _%__splice8753187532%_ + _%__splice8726287263%_ '0)))) - (if (gx#stx-pair? _%tl8162482453%_) - (let ((_%e8163382456%_ - (gx#syntax-e _%tl8162482453%_))) - (let ((_%tl8163182463%_ + (if (gx#stx-pair? _%tl8135582184%_) + (let ((_%e8136482187%_ + (gx#syntax-e _%tl8135582184%_))) + (let ((_%tl8136282194%_ (let () (declare (not safe)) - (##cdr _%e8163382456%_))) - (_%hd8163282460%_ + (##cdr _%e8136482187%_))) + (_%hd8136382191%_ (let () (declare (not safe)) - (##car _%e8163382456%_)))) - (if (gx#stx-null? _%tl8163182463%_) - (_%__match8765187652%_ - _%e8157982533%_ - _%hd8157882537%_ - _%tl8157782540%_ - _%e8158282543%_ - _%hd8158182547%_ - _%tl8158082550%_ - _%e8158382553%_ - _%e8158682557%_ - _%hd8158582561%_ - _%tl8158482564%_ - _%__splice8753187532%_ - _%target8162282450%_ - _%tl8162482453%_ - _%e8163382456%_ - _%hd8163282460%_ - _%tl8163182463%_) + (##car _%e8136482187%_)))) + (if (gx#stx-null? _%tl8136282194%_) + (_%__match8738287383%_ + _%e8131082264%_ + _%hd8130982268%_ + _%tl8130882271%_ + _%e8131382274%_ + _%hd8131282278%_ + _%tl8131182281%_ + _%e8131482284%_ + _%e8131782288%_ + _%hd8131682292%_ + _%tl8131582295%_ + _%__splice8726287263%_ + _%target8135382181%_ + _%tl8135582184%_ + _%e8136482187%_ + _%hd8136382191%_ + _%tl8136282194%_) (if (gx#stx-null? - _%tl8158482564%_) - (_%__kont8753387534%_ - _%hd8158582561%_) + _%tl8131582295%_) + (_%__kont8726487265%_ + _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_)))))) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ - _%hd8158582561%_) + (_%g8130181515%_)))))) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ + _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_)))))) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) + (_%g8130181515%_)))))) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_))))))) - (if (let ((__tmp87998 (gx#stx-length _%tl8158482564%_))) + (_%g8130181515%_))))))) + (if (let ((__tmp87694 (gx#stx-length _%tl8131582295%_))) (declare (not safe)) - (##fx>= __tmp87998 '1)) - (let ((_%__splice8753187532%_ - (gx#syntax-split-splice _%tl8158482564%_ '1))) - (let ((_%tl8162482453%_ + (##fx>= __tmp87694 '1)) + (let ((_%__splice8726287263%_ + (gx#syntax-split-splice _%tl8131582295%_ '1))) + (let ((_%tl8135582184%_ (let () (declare (not safe)) - (##vector-ref _%__splice8753187532%_ '1))) - (_%target8162282450%_ + (##vector-ref _%__splice8726287263%_ '1))) + (_%target8135382181%_ (let () (declare (not safe)) - (##vector-ref _%__splice8753187532%_ '0)))) - (if (gx#stx-pair? _%tl8162482453%_) - (let ((_%e8163382456%_ - (gx#syntax-e _%tl8162482453%_))) - (let ((_%tl8163182463%_ + (##vector-ref _%__splice8726287263%_ '0)))) + (if (gx#stx-pair? _%tl8135582184%_) + (let ((_%e8136482187%_ + (gx#syntax-e _%tl8135582184%_))) + (let ((_%tl8136282194%_ (let () (declare (not safe)) - (##cdr _%e8163382456%_))) - (_%hd8163282460%_ + (##cdr _%e8136482187%_))) + (_%hd8136382191%_ (let () (declare (not safe)) - (##car _%e8163382456%_)))) - (if (gx#stx-null? _%tl8163182463%_) - (_%__match8765187652%_ - _%e8157982533%_ - _%hd8157882537%_ - _%tl8157782540%_ - _%e8158282543%_ - _%hd8158182547%_ - _%tl8158082550%_ - _%e8158382553%_ - _%e8158682557%_ - _%hd8158582561%_ - _%tl8158482564%_ - _%__splice8753187532%_ - _%target8162282450%_ - _%tl8162482453%_ - _%e8163382456%_ - _%hd8163282460%_ - _%tl8163182463%_) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ - _%hd8158582561%_) + (##car _%e8136482187%_)))) + (if (gx#stx-null? _%tl8136282194%_) + (_%__match8738287383%_ + _%e8131082264%_ + _%hd8130982268%_ + _%tl8130882271%_ + _%e8131382274%_ + _%hd8131282278%_ + _%tl8131182281%_ + _%e8131482284%_ + _%e8131782288%_ + _%hd8131682292%_ + _%tl8131582295%_ + _%__splice8726287263%_ + _%target8135382181%_ + _%tl8135582184%_ + _%e8136482187%_ + _%hd8136382191%_ + _%tl8136282194%_) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ + _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_)))))) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) + (_%g8130181515%_)))))) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_)))))) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) - (let () (declare (not safe)) (_%g8157081784%_))))) - (if (let ((__tmp87999 (gx#stx-length _%tl8158482564%_))) + (_%g8130181515%_)))))) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) + (let () (declare (not safe)) (_%g8130181515%_))))) + (if (let ((__tmp87695 (gx#stx-length _%tl8131582295%_))) (declare (not safe)) - (##fx>= __tmp87999 '1)) - (let ((_%__splice8753187532%_ - (gx#syntax-split-splice _%tl8158482564%_ '1))) - (let ((_%tl8162482453%_ + (##fx>= __tmp87695 '1)) + (let ((_%__splice8726287263%_ + (gx#syntax-split-splice _%tl8131582295%_ '1))) + (let ((_%tl8135582184%_ (let () (declare (not safe)) - (##vector-ref _%__splice8753187532%_ '1))) - (_%target8162282450%_ + (##vector-ref _%__splice8726287263%_ '1))) + (_%target8135382181%_ (let () (declare (not safe)) - (##vector-ref _%__splice8753187532%_ '0)))) - (if (gx#stx-pair? _%tl8162482453%_) - (let ((_%e8163382456%_ - (gx#syntax-e _%tl8162482453%_))) - (let ((_%tl8163182463%_ + (##vector-ref _%__splice8726287263%_ '0)))) + (if (gx#stx-pair? _%tl8135582184%_) + (let ((_%e8136482187%_ + (gx#syntax-e _%tl8135582184%_))) + (let ((_%tl8136282194%_ (let () (declare (not safe)) - (##cdr _%e8163382456%_))) - (_%hd8163282460%_ + (##cdr _%e8136482187%_))) + (_%hd8136382191%_ (let () (declare (not safe)) - (##car _%e8163382456%_)))) - (if (gx#stx-null? _%tl8163182463%_) - (_%__match8765187652%_ - _%e8157982533%_ - _%hd8157882537%_ - _%tl8157782540%_ - _%e8158282543%_ - _%hd8158182547%_ - _%tl8158082550%_ - _%e8158382553%_ - _%e8158682557%_ - _%hd8158582561%_ - _%tl8158482564%_ - _%__splice8753187532%_ - _%target8162282450%_ - _%tl8162482453%_ - _%e8163382456%_ - _%hd8163282460%_ - _%tl8163182463%_) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) + (##car _%e8136482187%_)))) + (if (gx#stx-null? _%tl8136282194%_) + (_%__match8738287383%_ + _%e8131082264%_ + _%hd8130982268%_ + _%tl8130882271%_ + _%e8131382274%_ + _%hd8131282278%_ + _%tl8131182281%_ + _%e8131482284%_ + _%e8131782288%_ + _%hd8131682292%_ + _%tl8131582295%_ + _%__splice8726287263%_ + _%target8135382181%_ + _%tl8135582184%_ + _%e8136482187%_ + _%hd8136382191%_ + _%tl8136282194%_) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_)))))) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) + (_%g8130181515%_)))))) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_)))))) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) - (let () (declare (not safe)) (_%g8157081784%_))))))) + (_%g8130181515%_)))))) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) + (let () (declare (not safe)) (_%g8130181515%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp88000 + (if (let ((__tmp87696 (gx#stx-length - _%tl8158482564%_))) + _%tl8131582295%_))) (declare (not safe)) - (##fx>= __tmp88000 '1)) - (let ((_%__splice8753187532%_ + (##fx>= __tmp87696 '1)) + (let ((_%__splice8726287263%_ (gx#syntax-split-splice - _%tl8158482564%_ + _%tl8131582295%_ '1))) - (let ((_%tl8162482453%_ + (let ((_%tl8135582184%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice8753187532%_ '1))) - (_%target8162282450%_ + (##vector-ref _%__splice8726287263%_ '1))) + (_%target8135382181%_ (let () (declare (not safe)) - (##vector-ref _%__splice8753187532%_ '0)))) - (if (gx#stx-pair? _%tl8162482453%_) - (let ((_%e8163382456%_ (gx#syntax-e _%tl8162482453%_))) - (let ((_%tl8163182463%_ + (##vector-ref _%__splice8726287263%_ '0)))) + (if (gx#stx-pair? _%tl8135582184%_) + (let ((_%e8136482187%_ (gx#syntax-e _%tl8135582184%_))) + (let ((_%tl8136282194%_ (let () (declare (not safe)) - (##cdr _%e8163382456%_))) - (_%hd8163282460%_ + (##cdr _%e8136482187%_))) + (_%hd8136382191%_ (let () (declare (not safe)) - (##car _%e8163382456%_)))) - (if (gx#stx-null? _%tl8163182463%_) - (_%__match8765187652%_ - _%e8157982533%_ - _%hd8157882537%_ - _%tl8157782540%_ - _%e8158282543%_ - _%hd8158182547%_ - _%tl8158082550%_ - _%e8158382553%_ - _%e8158682557%_ - _%hd8158582561%_ - _%tl8158482564%_ - _%__splice8753187532%_ - _%target8162282450%_ - _%tl8162482453%_ - _%e8163382456%_ - _%hd8163282460%_ - _%tl8163182463%_) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) + (##car _%e8136482187%_)))) + (if (gx#stx-null? _%tl8136282194%_) + (_%__match8738287383%_ + _%e8131082264%_ + _%hd8130982268%_ + _%tl8130882271%_ + _%e8131382274%_ + _%hd8131282278%_ + _%tl8131182281%_ + _%e8131482284%_ + _%e8131782288%_ + _%hd8131682292%_ + _%tl8131582295%_ + _%__splice8726287263%_ + _%target8135382181%_ + _%tl8135582184%_ + _%e8136482187%_ + _%hd8136382191%_ + _%tl8136282194%_) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_)))))) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) - (let () (declare (not safe)) (_%g8157081784%_)))))) + (_%g8130181515%_)))))) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) + (let () (declare (not safe)) (_%g8130181515%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8158482564%_) - (_%__kont8753387534%_ - _%hd8158582561%_) + _%tl8131582295%_) + (_%__kont8726487265%_ + _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_))))) - (if (let ((__tmp88001 + (_%g8130181515%_))))) + (if (let ((__tmp87697 (gx#stx-length - _%tl8158482564%_))) + _%tl8131582295%_))) (declare (not safe)) - (##fx>= __tmp88001 '1)) - (let ((_%__splice8753187532%_ + (##fx>= __tmp87697 '1)) + (let ((_%__splice8726287263%_ (gx#syntax-split-splice - _%tl8158482564%_ + _%tl8131582295%_ '1))) - (let ((_%tl8162482453%_ + (let ((_%tl8135582184%_ (let () (declare (not safe)) (##vector-ref - _%__splice8753187532%_ + _%__splice8726287263%_ '1))) - (_%target8162282450%_ + (_%target8135382181%_ (let () (declare (not safe)) (##vector-ref - _%__splice8753187532%_ + _%__splice8726287263%_ '0)))) (if (gx#stx-pair? - _%tl8162482453%_) - (let ((_%e8163382456%_ + _%tl8135582184%_) + (let ((_%e8136482187%_ (gx#syntax-e - _%tl8162482453%_))) - (let ((_%tl8163182463%_ + _%tl8135582184%_))) + (let ((_%tl8136282194%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8163382456%_))) - (_%hd8163282460%_ + (let () (declare (not safe)) (##cdr _%e8136482187%_))) + (_%hd8136382191%_ (let () (declare (not safe)) - (##car _%e8163382456%_)))) - (if (gx#stx-null? _%tl8163182463%_) - (_%__match8765187652%_ - _%e8157982533%_ - _%hd8157882537%_ - _%tl8157782540%_ - _%e8158282543%_ - _%hd8158182547%_ - _%tl8158082550%_ - _%e8158382553%_ - _%e8158682557%_ - _%hd8158582561%_ - _%tl8158482564%_ - _%__splice8753187532%_ - _%target8162282450%_ - _%tl8162482453%_ - _%e8163382456%_ - _%hd8163282460%_ - _%tl8163182463%_) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) - (let () (declare (not safe)) (_%g8157081784%_)))))) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) - (let () (declare (not safe)) (_%g8157081784%_)))))) + (##car _%e8136482187%_)))) + (if (gx#stx-null? _%tl8136282194%_) + (_%__match8738287383%_ + _%e8131082264%_ + _%hd8130982268%_ + _%tl8130882271%_ + _%e8131382274%_ + _%hd8131282278%_ + _%tl8131182281%_ + _%e8131482284%_ + _%e8131782288%_ + _%hd8131682292%_ + _%tl8131582295%_ + _%__splice8726287263%_ + _%target8135382181%_ + _%tl8135582184%_ + _%e8136482187%_ + _%hd8136382191%_ + _%tl8136282194%_) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) + (let () (declare (not safe)) (_%g8130181515%_)))))) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) + (let () (declare (not safe)) (_%g8130181515%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8158482564%_) - (_%__kont8753387534%_ - _%hd8158582561%_) + _%tl8131582295%_) + (_%__kont8726487265%_ + _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_))))) - (if (let ((__tmp88002 + (_%g8130181515%_))))) + (if (let ((__tmp87698 (gx#stx-length - _%tl8158482564%_))) + _%tl8131582295%_))) (declare (not safe)) - (##fx>= __tmp88002 '1)) - (let ((_%__splice8753187532%_ + (##fx>= __tmp87698 '1)) + (let ((_%__splice8726287263%_ (gx#syntax-split-splice - _%tl8158482564%_ + _%tl8131582295%_ '1))) - (let ((_%tl8162482453%_ + (let ((_%tl8135582184%_ (let () (declare (not safe)) (##vector-ref - _%__splice8753187532%_ + _%__splice8726287263%_ '1))) - (_%target8162282450%_ + (_%target8135382181%_ (let () (declare (not safe)) (##vector-ref - _%__splice8753187532%_ + _%__splice8726287263%_ '0)))) (if (gx#stx-pair? - _%tl8162482453%_) - (let ((_%e8163382456%_ + _%tl8135582184%_) + (let ((_%e8136482187%_ (gx#syntax-e - _%tl8162482453%_))) - (let ((_%tl8163182463%_ + _%tl8135582184%_))) + (let ((_%tl8136282194%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e8163382456%_))) - (_%hd8163282460%_ - (let () (declare (not safe)) (##car _%e8163382456%_)))) - (if (gx#stx-null? _%tl8163182463%_) - (_%__match8765187652%_ - _%e8157982533%_ - _%hd8157882537%_ - _%tl8157782540%_ - _%e8158282543%_ - _%hd8158182547%_ - _%tl8158082550%_ - _%e8158382553%_ - _%e8158682557%_ - _%hd8158582561%_ - _%tl8158482564%_ - _%__splice8753187532%_ - _%target8162282450%_ - _%tl8162482453%_ - _%e8163382456%_ - _%hd8163282460%_ - _%tl8163182463%_) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) - (let () (declare (not safe)) (_%g8157081784%_)))))) + (##cdr _%e8136482187%_))) + (_%hd8136382191%_ + (let () (declare (not safe)) (##car _%e8136482187%_)))) + (if (gx#stx-null? _%tl8136282194%_) + (_%__match8738287383%_ + _%e8131082264%_ + _%hd8130982268%_ + _%tl8130882271%_ + _%e8131382274%_ + _%hd8131282278%_ + _%tl8131182281%_ + _%e8131482284%_ + _%e8131782288%_ + _%hd8131682292%_ + _%tl8131582295%_ + _%__splice8726287263%_ + _%target8135382181%_ + _%tl8135582184%_ + _%e8136482187%_ + _%hd8136382191%_ + _%tl8136282194%_) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) + (let () (declare (not safe)) (_%g8130181515%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8158482564%_) - (_%__kont8753387534%_ - _%hd8158582561%_) + _%tl8131582295%_) + (_%__kont8726487265%_ + _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_)))))) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ - _%hd8158582561%_) + (_%g8130181515%_)))))) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ + _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_))))))) - (if (let ((__tmp88003 - (gx#stx-length _%tl8158482564%_))) + (_%g8130181515%_))))))) + (if (let ((__tmp87699 + (gx#stx-length _%tl8131582295%_))) (declare (not safe)) - (##fx>= __tmp88003 '1)) - (let ((_%__splice8753187532%_ + (##fx>= __tmp87699 '1)) + (let ((_%__splice8726287263%_ (gx#syntax-split-splice - _%tl8158482564%_ + _%tl8131582295%_ '1))) - (let ((_%tl8162482453%_ + (let ((_%tl8135582184%_ (let () (declare (not safe)) (##vector-ref - _%__splice8753187532%_ + _%__splice8726287263%_ '1))) - (_%target8162282450%_ + (_%target8135382181%_ (let () (declare (not safe)) (##vector-ref - _%__splice8753187532%_ + _%__splice8726287263%_ '0)))) - (if (gx#stx-pair? _%tl8162482453%_) - (let ((_%e8163382456%_ + (if (gx#stx-pair? _%tl8135582184%_) + (let ((_%e8136482187%_ (gx#syntax-e - _%tl8162482453%_))) - (let ((_%tl8163182463%_ + _%tl8135582184%_))) + (let ((_%tl8136282194%_ (let () (declare (not safe)) - (##cdr _%e8163382456%_))) - (_%hd8163282460%_ + (##cdr _%e8136482187%_))) + (_%hd8136382191%_ (let () (declare (not safe)) - (##car _%e8163382456%_)))) + (##car _%e8136482187%_)))) (if (gx#stx-null? - _%tl8163182463%_) - (_%__match8765187652%_ - _%e8157982533%_ - _%hd8157882537%_ - _%tl8157782540%_ - _%e8158282543%_ - _%hd8158182547%_ - _%tl8158082550%_ - _%e8158382553%_ - _%e8158682557%_ - _%hd8158582561%_ - _%tl8158482564%_ - _%__splice8753187532%_ - _%target8162282450%_ - _%tl8162482453%_ - _%e8163382456%_ - _%hd8163282460%_ - _%tl8163182463%_) + _%tl8136282194%_) + (_%__match8738287383%_ + _%e8131082264%_ + _%hd8130982268%_ + _%tl8130882271%_ + _%e8131382274%_ + _%hd8131282278%_ + _%tl8131182281%_ + _%e8131482284%_ + _%e8131782288%_ + _%hd8131682292%_ + _%tl8131582295%_ + _%__splice8726287263%_ + _%target8135382181%_ + _%tl8135582184%_ + _%e8136482187%_ + _%hd8136382191%_ + _%tl8136282194%_) (if (gx#stx-null? - _%tl8158482564%_) - (_%__kont8753387534%_ - _%hd8158582561%_) + _%tl8131582295%_) + (_%__kont8726487265%_ + _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_)))))) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ - _%hd8158582561%_) + (_%g8130181515%_)))))) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ + _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_)))))) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) + (_%g8130181515%_)))))) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_))))))) - (if (let ((__tmp88004 - (gx#stx-length _%tl8158482564%_))) + (_%g8130181515%_))))))) + (if (let ((__tmp87700 + (gx#stx-length _%tl8131582295%_))) (declare (not safe)) - (##fx>= __tmp88004 '1)) - (let ((_%__splice8753187532%_ + (##fx>= __tmp87700 '1)) + (let ((_%__splice8726287263%_ (gx#syntax-split-splice - _%tl8158482564%_ + _%tl8131582295%_ '1))) - (let ((_%tl8162482453%_ + (let ((_%tl8135582184%_ (let () (declare (not safe)) (##vector-ref - _%__splice8753187532%_ + _%__splice8726287263%_ '1))) - (_%target8162282450%_ + (_%target8135382181%_ (let () (declare (not safe)) (##vector-ref - _%__splice8753187532%_ + _%__splice8726287263%_ '0)))) - (if (gx#stx-pair? _%tl8162482453%_) - (let ((_%e8163382456%_ - (gx#syntax-e _%tl8162482453%_))) - (let ((_%tl8163182463%_ + (if (gx#stx-pair? _%tl8135582184%_) + (let ((_%e8136482187%_ + (gx#syntax-e _%tl8135582184%_))) + (let ((_%tl8136282194%_ (let () (declare (not safe)) - (##cdr _%e8163382456%_))) - (_%hd8163282460%_ + (##cdr _%e8136482187%_))) + (_%hd8136382191%_ (let () (declare (not safe)) - (##car _%e8163382456%_)))) - (if (gx#stx-null? _%tl8163182463%_) - (_%__match8765187652%_ - _%e8157982533%_ - _%hd8157882537%_ - _%tl8157782540%_ - _%e8158282543%_ - _%hd8158182547%_ - _%tl8158082550%_ - _%e8158382553%_ - _%e8158682557%_ - _%hd8158582561%_ - _%tl8158482564%_ - _%__splice8753187532%_ - _%target8162282450%_ - _%tl8162482453%_ - _%e8163382456%_ - _%hd8163282460%_ - _%tl8163182463%_) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ - _%hd8158582561%_) + (##car _%e8136482187%_)))) + (if (gx#stx-null? _%tl8136282194%_) + (_%__match8738287383%_ + _%e8131082264%_ + _%hd8130982268%_ + _%tl8130882271%_ + _%e8131382274%_ + _%hd8131282278%_ + _%tl8131182281%_ + _%e8131482284%_ + _%e8131782288%_ + _%hd8131682292%_ + _%tl8131582295%_ + _%__splice8726287263%_ + _%target8135382181%_ + _%tl8135582184%_ + _%e8136482187%_ + _%hd8136382191%_ + _%tl8136282194%_) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ + _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_)))))) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) + (_%g8130181515%_)))))) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_)))))) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) + (_%g8130181515%_)))))) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_))))))) - (if (let ((__tmp88005 (gx#stx-length _%tl8158482564%_))) + (_%g8130181515%_))))))) + (if (let ((__tmp87701 (gx#stx-length _%tl8131582295%_))) (declare (not safe)) - (##fx>= __tmp88005 '1)) - (let ((_%__splice8753187532%_ - (gx#syntax-split-splice _%tl8158482564%_ '1))) - (let ((_%tl8162482453%_ + (##fx>= __tmp87701 '1)) + (let ((_%__splice8726287263%_ + (gx#syntax-split-splice _%tl8131582295%_ '1))) + (let ((_%tl8135582184%_ (let () (declare (not safe)) - (##vector-ref _%__splice8753187532%_ '1))) - (_%target8162282450%_ + (##vector-ref _%__splice8726287263%_ '1))) + (_%target8135382181%_ (let () (declare (not safe)) - (##vector-ref _%__splice8753187532%_ '0)))) - (if (gx#stx-pair? _%tl8162482453%_) - (let ((_%e8163382456%_ - (gx#syntax-e _%tl8162482453%_))) - (let ((_%tl8163182463%_ + (##vector-ref _%__splice8726287263%_ '0)))) + (if (gx#stx-pair? _%tl8135582184%_) + (let ((_%e8136482187%_ + (gx#syntax-e _%tl8135582184%_))) + (let ((_%tl8136282194%_ (let () (declare (not safe)) - (##cdr _%e8163382456%_))) - (_%hd8163282460%_ + (##cdr _%e8136482187%_))) + (_%hd8136382191%_ (let () (declare (not safe)) - (##car _%e8163382456%_)))) - (if (gx#stx-null? _%tl8163182463%_) - (_%__match8765187652%_ - _%e8157982533%_ - _%hd8157882537%_ - _%tl8157782540%_ - _%e8158282543%_ - _%hd8158182547%_ - _%tl8158082550%_ - _%e8158382553%_ - _%e8158682557%_ - _%hd8158582561%_ - _%tl8158482564%_ - _%__splice8753187532%_ - _%target8162282450%_ - _%tl8162482453%_ - _%e8163382456%_ - _%hd8163282460%_ - _%tl8163182463%_) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) + (##car _%e8136482187%_)))) + (if (gx#stx-null? _%tl8136282194%_) + (_%__match8738287383%_ + _%e8131082264%_ + _%hd8130982268%_ + _%tl8130882271%_ + _%e8131382274%_ + _%hd8131282278%_ + _%tl8131182281%_ + _%e8131482284%_ + _%e8131782288%_ + _%hd8131682292%_ + _%tl8131582295%_ + _%__splice8726287263%_ + _%target8135382181%_ + _%tl8135582184%_ + _%e8136482187%_ + _%hd8136382191%_ + _%tl8136282194%_) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_)))))) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) + (_%g8130181515%_)))))) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_)))))) - (if (gx#stx-null? _%tl8158482564%_) - (_%__kont8753387534%_ _%hd8158582561%_) - (let () (declare (not safe)) (_%g8157081784%_))))) + (_%g8130181515%_)))))) + (if (gx#stx-null? _%tl8131582295%_) + (_%__kont8726487265%_ _%hd8131682292%_) + (let () (declare (not safe)) (_%g8130181515%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8158482564%_) - (_%__kont8753387534%_ - _%hd8158582561%_) + _%tl8131582295%_) + (_%__kont8726487265%_ + _%hd8131682292%_) (let () (declare (not safe)) - (_%g8157081784%_)))))) + (_%g8130181515%_)))))) (let () (declare (not safe)) - (_%g8157081784%_))) - (if (equal? _%e8158382553%_ '2) - (if (gx#stx-pair? _%tl8158082550%_) - (let ((_%e8166082256%_ + (_%g8130181515%_))) + (if (equal? _%e8131482284%_ '2) + (if (gx#stx-pair? _%tl8131182281%_) + (let ((_%e8139181987%_ (gx#syntax-e - _%tl8158082550%_))) - (let ((_%tl8165882263%_ + _%tl8131182281%_))) + (let ((_%tl8138981994%_ (let () (declare (not safe)) - (##cdr _%e8166082256%_))) - (_%hd8165982260%_ + (##cdr _%e8139181987%_))) + (_%hd8139081991%_ (let () (declare (not safe)) - (##car _%e8166082256%_)))) + (##car _%e8139181987%_)))) (if (gx#stx-pair? - _%tl8165882263%_) - (let ((_%e8166382266%_ + _%tl8138981994%_) + (let ((_%e8139481997%_ (gx#syntax-e - _%tl8165882263%_))) - (let ((_%tl8166182273%_ + _%tl8138981994%_))) + (let ((_%tl8139282004%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8166382266%_))) - (_%hd8166282270%_ + (let () (declare (not safe)) (##cdr _%e8139481997%_))) + (_%hd8139382001%_ (let () (declare (not safe)) - (##car _%e8166382266%_)))) - (if (gx#stx-pair? _%hd8166282270%_) - (let ((_%e8166682276%_ (gx#syntax-e _%hd8166282270%_))) - (let ((_%tl8166482283%_ + (##car _%e8139481997%_)))) + (if (gx#stx-pair? _%hd8139382001%_) + (let ((_%e8139782007%_ (gx#syntax-e _%hd8139382001%_))) + (let ((_%tl8139582014%_ (let () (declare (not safe)) - (##cdr _%e8166682276%_))) - (_%hd8166582280%_ + (##cdr _%e8139782007%_))) + (_%hd8139682011%_ (let () (declare (not safe)) - (##car _%e8166682276%_)))) - (if (gx#stx-pair? _%hd8166582280%_) - (let ((_%e8166982286%_ - (gx#syntax-e _%hd8166582280%_))) - (let ((_%tl8166782293%_ + (##car _%e8139782007%_)))) + (if (gx#stx-pair? _%hd8139682011%_) + (let ((_%e8140082017%_ + (gx#syntax-e _%hd8139682011%_))) + (let ((_%tl8139882024%_ (let () (declare (not safe)) - (##cdr _%e8166982286%_))) - (_%hd8166882290%_ + (##cdr _%e8140082017%_))) + (_%hd8139982021%_ (let () (declare (not safe)) - (##car _%e8166982286%_)))) - (if (gx#identifier? _%hd8166882290%_) + (##car _%e8140082017%_)))) + (if (gx#identifier? _%hd8139982021%_) (if (gx#free-identifier=? - |[1]#_g88006_| - _%hd8166882290%_) - (if (gx#stx-pair? _%tl8166782293%_) - (let ((_%e8167282296%_ + |[1]#_g87702_| + _%hd8139982021%_) + (if (gx#stx-pair? _%tl8139882024%_) + (let ((_%e8140382027%_ (gx#syntax-e - _%tl8166782293%_))) - (let ((_%tl8167082303%_ + _%tl8139882024%_))) + (let ((_%tl8140182034%_ (let () (declare (not safe)) - (##cdr _%e8167282296%_))) - (_%hd8167182300%_ + (##cdr _%e8140382027%_))) + (_%hd8140282031%_ (let () (declare (not safe)) - (##car _%e8167282296%_)))) + (##car _%e8140382027%_)))) (if (gx#stx-null? - _%tl8167082303%_) + _%tl8140182034%_) (if (gx#stx-pair? - _%tl8166482283%_) - (let ((_%e8167582306%_ + _%tl8139582014%_) + (let ((_%e8140682037%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8166482283%_))) - (let ((_%tl8167382313%_ + (gx#syntax-e _%tl8139582014%_))) + (let ((_%tl8140482044%_ (let () (declare (not safe)) - (##cdr _%e8167582306%_))) - (_%hd8167482310%_ + (##cdr _%e8140682037%_))) + (_%hd8140582041%_ (let () (declare (not safe)) - (##car _%e8167582306%_)))) - (_%__kont8753587536%_ - _%tl8166182273%_ - _%tl8167382313%_ - _%hd8167482310%_ - _%hd8167182300%_ - _%hd8165982260%_ - _%hd8157882537%_))) - (_%__kont8753787538%_ - _%tl8166182273%_ - _%tl8166482283%_ - _%hd8166582280%_ - _%hd8165982260%_ - _%hd8157882537%_)) - (_%__kont8753787538%_ - _%tl8166182273%_ - _%tl8166482283%_ - _%hd8166582280%_ - _%hd8165982260%_ - _%hd8157882537%_)))) + (##car _%e8140682037%_)))) + (_%__kont8726687267%_ + _%tl8139282004%_ + _%tl8140482044%_ + _%hd8140582041%_ + _%hd8140282031%_ + _%hd8139081991%_ + _%hd8130982268%_))) + (_%__kont8726887269%_ + _%tl8139282004%_ + _%tl8139582014%_ + _%hd8139682011%_ + _%hd8139081991%_ + _%hd8130982268%_)) + (_%__kont8726887269%_ + _%tl8139282004%_ + _%tl8139582014%_ + _%hd8139682011%_ + _%hd8139081991%_ + _%hd8130982268%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8753787538%_ - _%tl8166182273%_ - _%tl8166482283%_ - _%hd8166582280%_ - _%hd8165982260%_ - _%hd8157882537%_)) - (_%__kont8753787538%_ - _%tl8166182273%_ - _%tl8166482283%_ - _%hd8166582280%_ - _%hd8165982260%_ - _%hd8157882537%_)) - (_%__kont8753787538%_ - _%tl8166182273%_ - _%tl8166482283%_ - _%hd8166582280%_ - _%hd8165982260%_ - _%hd8157882537%_)))) - (_%__kont8753787538%_ - _%tl8166182273%_ - _%tl8166482283%_ - _%hd8166582280%_ - _%hd8165982260%_ - _%hd8157882537%_)))) - (if (gx#stx-null? _%hd8166282270%_) - (_%__kont8753987540%_ - _%tl8166182273%_ - _%hd8165982260%_ - _%hd8157882537%_) - (let () (declare (not safe)) (_%g8157081784%_)))))) - (let () (declare (not safe)) (_%g8157081784%_))))) + (_%__kont8726887269%_ + _%tl8139282004%_ + _%tl8139582014%_ + _%hd8139682011%_ + _%hd8139081991%_ + _%hd8130982268%_)) + (_%__kont8726887269%_ + _%tl8139282004%_ + _%tl8139582014%_ + _%hd8139682011%_ + _%hd8139081991%_ + _%hd8130982268%_)) + (_%__kont8726887269%_ + _%tl8139282004%_ + _%tl8139582014%_ + _%hd8139682011%_ + _%hd8139081991%_ + _%hd8130982268%_)))) + (_%__kont8726887269%_ + _%tl8139282004%_ + _%tl8139582014%_ + _%hd8139682011%_ + _%hd8139081991%_ + _%hd8130982268%_)))) + (if (gx#stx-null? _%hd8139382001%_) + (_%__kont8727087271%_ + _%tl8139282004%_ + _%hd8139081991%_ + _%hd8130982268%_) + (let () (declare (not safe)) (_%g8130181515%_)))))) + (let () (declare (not safe)) (_%g8130181515%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8157081784%_))) - (if (equal? _%e8158382553%_ '3) + (_%g8130181515%_))) + (if (equal? _%e8131482284%_ '3) (if (gx#stx-pair? - _%tl8158082550%_) - (let ((_%e8172782005%_ + _%tl8131182281%_) + (let ((_%e8145881736%_ (gx#syntax-e - _%tl8158082550%_))) - (let ((_%tl8172582012%_ + _%tl8131182281%_))) + (let ((_%tl8145681743%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e8172782005%_))) - (_%hd8172682009%_ - (let () (declare (not safe)) (##car _%e8172782005%_)))) - (if (gx#stx-pair? _%tl8172582012%_) - (let ((_%e8173082015%_ (gx#syntax-e _%tl8172582012%_))) - (let ((_%tl8172882022%_ + (##cdr _%e8145881736%_))) + (_%hd8145781740%_ + (let () (declare (not safe)) (##car _%e8145881736%_)))) + (if (gx#stx-pair? _%tl8145681743%_) + (let ((_%e8146181746%_ (gx#syntax-e _%tl8145681743%_))) + (let ((_%tl8145981753%_ (let () (declare (not safe)) - (##cdr _%e8173082015%_))) - (_%hd8172982019%_ + (##cdr _%e8146181746%_))) + (_%hd8146081750%_ (let () (declare (not safe)) - (##car _%e8173082015%_)))) - (if (gx#stx-pair? _%hd8172982019%_) - (let ((_%e8173382025%_ - (gx#syntax-e _%hd8172982019%_))) - (let ((_%tl8173182032%_ + (##car _%e8146181746%_)))) + (if (gx#stx-pair? _%hd8146081750%_) + (let ((_%e8146481756%_ + (gx#syntax-e _%hd8146081750%_))) + (let ((_%tl8146281763%_ (let () (declare (not safe)) - (##cdr _%e8173382025%_))) - (_%hd8173282029%_ + (##cdr _%e8146481756%_))) + (_%hd8146381760%_ (let () (declare (not safe)) - (##car _%e8173382025%_)))) - (_%__kont8754187542%_ - _%tl8172882022%_ - _%tl8173182032%_ - _%hd8173282029%_ - _%hd8172682009%_ - _%hd8157882537%_))) - (if (gx#stx-pair/null? _%hd8172682009%_) - (let ((_%__splice8754587546%_ + (##car _%e8146481756%_)))) + (_%__kont8727287273%_ + _%tl8145981753%_ + _%tl8146281763%_ + _%hd8146381760%_ + _%hd8145781740%_ + _%hd8130982268%_))) + (if (gx#stx-pair/null? _%hd8145781740%_) + (let ((_%__splice8727687277%_ (gx#syntax-split-splice - _%hd8172682009%_ + _%hd8145781740%_ '0))) - (let ((_%tl8175281828%_ + (let ((_%tl8148381559%_ (let () (declare (not safe)) (##vector-ref - _%__splice8754587546%_ + _%__splice8727687277%_ '1))) - (_%target8175081825%_ + (_%target8148181556%_ (let () (declare (not safe)) (##vector-ref - _%__splice8754587546%_ + _%__splice8727687277%_ '0)))) - (if (gx#stx-null? _%tl8175281828%_) - (_%__match8787387874%_ - _%e8157982533%_ - _%hd8157882537%_ - _%tl8157782540%_ - _%e8158282543%_ - _%hd8158182547%_ - _%tl8158082550%_ - _%e8158382553%_ - _%e8172782005%_ - _%hd8172682009%_ - _%tl8172582012%_ - _%__splice8754587546%_ - _%target8175081825%_ - _%tl8175281828%_) + (if (gx#stx-null? _%tl8148381559%_) + (_%__match8760487605%_ + _%e8131082264%_ + _%hd8130982268%_ + _%tl8130882271%_ + _%e8131382274%_ + _%hd8131282278%_ + _%tl8131182281%_ + _%e8131482284%_ + _%e8145881736%_ + _%hd8145781740%_ + _%tl8145681743%_ + _%__splice8727687277%_ + _%target8148181556%_ + _%tl8148381559%_) (let () (declare (not safe)) - (_%g8157081784%_))))) + (_%g8130181515%_))))) (let () (declare (not safe)) - (_%g8157081784%_)))))) - (if (gx#stx-pair/null? _%hd8172682009%_) - (let ((_%__splice8754587546%_ - (gx#syntax-split-splice _%hd8172682009%_ '0))) - (let ((_%tl8175281828%_ + (_%g8130181515%_)))))) + (if (gx#stx-pair/null? _%hd8145781740%_) + (let ((_%__splice8727687277%_ + (gx#syntax-split-splice _%hd8145781740%_ '0))) + (let ((_%tl8148381559%_ (let () (declare (not safe)) - (##vector-ref _%__splice8754587546%_ '1))) - (_%target8175081825%_ + (##vector-ref _%__splice8727687277%_ '1))) + (_%target8148181556%_ (let () (declare (not safe)) - (##vector-ref _%__splice8754587546%_ '0)))) - (if (gx#stx-null? _%tl8175281828%_) - (_%__match8787387874%_ - _%e8157982533%_ - _%hd8157882537%_ - _%tl8157782540%_ - _%e8158282543%_ - _%hd8158182547%_ - _%tl8158082550%_ - _%e8158382553%_ - _%e8172782005%_ - _%hd8172682009%_ - _%tl8172582012%_ - _%__splice8754587546%_ - _%target8175081825%_ - _%tl8175281828%_) + (##vector-ref _%__splice8727687277%_ '0)))) + (if (gx#stx-null? _%tl8148381559%_) + (_%__match8760487605%_ + _%e8131082264%_ + _%hd8130982268%_ + _%tl8130882271%_ + _%e8131382274%_ + _%hd8131282278%_ + _%tl8131182281%_ + _%e8131482284%_ + _%e8145881736%_ + _%hd8145781740%_ + _%tl8145681743%_ + _%__splice8727687277%_ + _%target8148181556%_ + _%tl8148381559%_) (let () (declare (not safe)) - (_%g8157081784%_))))) - (let () (declare (not safe)) (_%g8157081784%_)))))) + (_%g8130181515%_))))) + (let () (declare (not safe)) (_%g8130181515%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8157081784%_))) + (_%g8130181515%_))) (let () (declare (not safe)) - (_%g8157081784%_)))))) + (_%g8130181515%_)))))) (let () (declare (not safe)) - (_%g8157081784%_))))) - (let () (declare (not safe)) (_%g8157081784%_))))) - (let () (declare (not safe)) (_%g8157081784%_)))))))))) + (_%g8130181515%_))))) + (let () (declare (not safe)) (_%g8130181515%_))))) + (let () (declare (not safe)) (_%g8130181515%_)))))))))) diff --git a/src/bootstrap/gerbil/runtime~0.scm b/src/bootstrap/gerbil/runtime~0.scm index 7aa9c53cc..062c44156 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 1712533289) '#!void) +(begin (define gerbil/runtime::timestamp 1712573430) '#!void) diff --git a/src/gerbil/compiler/compile.ss b/src/gerbil/compiler/compile.ss index f45bedaf4..dbf6edec4 100644 --- a/src/gerbil/compiler/compile.ss +++ b/src/gerbil/compiler/compile.ss @@ -670,7 +670,7 @@ namespace: gxc (def (generate-runtime-let-values% self stx (compiled-body? #f)) (def (generate-simple hd body) (coalesce-boolean - (coalesce-let + (simplify-let (generate-runtime-simple-let self 'let hd body compiled-body?)))) (def (coalesce-boolean code) @@ -685,10 +685,10 @@ namespace: gxc (else code)) code)) - (def (coalesce-let code) + (def (simplify-let code) (match code - (['let [] ['let . body]] - ['let . body]) + (['let [] expr] + expr) (['let [[id expr]] ['let [] . body]] ['let [[id expr]] . body]) (['let [[id1 expr1]] ['let [[id2 expr2]] . body]] diff --git a/src/gerbil/compiler/optimize-base.ss b/src/gerbil/compiler/optimize-base.ss index 10ecf5702..d341eab91 100644 --- a/src/gerbil/compiler/optimize-base.ss +++ b/src/gerbil/compiler/optimize-base.ss @@ -35,15 +35,12 @@ namespace: gxc equal: #t) (defstruct (!alias !type) ()) -(defstruct (!procedure !type) (signature) - equal: #t print: #t) -(defclass !signature (return effect arguments unchecked) +(defclass !signature (return effect arguments unchecked origin) final: #t equal: #t print: #t) -(defstruct (!primitive-predicate !procedure) () - constructor: :init! - equal: #t) +(defstruct (!procedure !type) ((signature :? !signature)) + equal: #t print: #t) ;;; MOP (defstruct (!class-meta !type) (class) @@ -96,10 +93,15 @@ namespace: gxc ;; primitive markers (necessary to avoid unsound call optimizations) (defclass !primitive ()) -(defclass (!primitive-lambda !primitive !lambda) () + +(defstruct (!primitive-predicate !primitive !procedure) () constructor: :init! equal: #t) -(defclass (!primitive-case-lambda !primitive !case-lambda) () + +(defstruct (!primitive-lambda !primitive !lambda) () + constructor: :init! + equal: #t) +(defstruct (!primitive-case-lambda !primitive !case-lambda) () constructor: :init! equal: #t) @@ -368,6 +370,11 @@ namespace: gxc (and (!class? type) (memq 'interface-instance::t (!class-precedence-list type)))) +(def (!procedure-origin proc) + (using (proc : !procedure) + (and proc.signature + proc.signature.origin))) + ;; utilities (def (optimizer-declare-type! sym type (local? #f)) (unless (!type? type) diff --git a/src/gerbil/compiler/optimize-call.ss b/src/gerbil/compiler/optimize-call.ss index c0b44a327..71e9ab66c 100644 --- a/src/gerbil/compiler/optimize-call.ss +++ b/src/gerbil/compiler/optimize-call.ss @@ -53,11 +53,19 @@ namespace: gxc (let (optimized {rator-type.optimize-call self stx #'(rand ...)}) (ast-case optimized (%#call %#ref) ((%#call (%#ref optimized-rator) arg ...) - (let (optimized-rator-id (identifier-symbol #'optimized-rator)) - (if (or (and (!primitive? rator-type) - (eq? optimized-rator-id rator-id)) - (memq optimized-rator-id checked-primitives)) - ;; %#call-unchecked unsafe in this case + (let* ((optimized-rator-id (identifier-symbol #'optimized-rator)) + (rator-type (or (optimizer-lookup-type optimized-rator-id) + rator-type))) + (if (or + ;; may be unsafe or unecessary to %#call-unchecked + (!primitive? rator-type) + ;; definitely unsafe, can't #%call-unchecked + (memq optimized-rator-id checked-primitives) + ;; in the current module, no need for %#call-unchecked + ;; because of module block semantics + (and (!procedure? rator-type) + (eq? (!procedure-origin rator-type) + (expander-context-id (current-expander-context))))) optimized ;; %#call-unchecked to known procedure (xform-wrap-source @@ -78,7 +86,10 @@ namespace: gxc (cond ((and rator-type (eq? (!type-id rator-type) 'procedure) - (not (!primitive? rator-type))) + (not (!primitive? rator-type)) + (not (and (!procedure? rator-type) + (eq? (!procedure-origin rator-type) + (expander-context-id (current-expander-context)))))) ;; known to be procedure, %#call-unchecked (xform-wrap-source (cons* '%#call-unchecked diff --git a/src/gerbil/compiler/optimize-top.ss b/src/gerbil/compiler/optimize-top.ss index 83c255362..f4b49d4d8 100644 --- a/src/gerbil/compiler/optimize-top.ss +++ b/src/gerbil/compiler/optimize-top.ss @@ -491,9 +491,8 @@ namespace: gxc (defmethod {return-type !procedure} (lambda (self ctx stx args) - (alet* ((signature self.signature) - (return (&!signature-return signature))) - (optimizer-resolve-class stx return)))) + (and self.signature + (optimizer-resolve-class stx self.signature.return)))) (defmethod {apply-return-type !procedure} !procedure::return-type) @@ -744,6 +743,10 @@ namespace: gxc (rest [0]))))) (def (lambda-form-infer-signature form) + (def (default-signature) + (make-!signature return: 't::t + origin: (expander-context-id (current-expander-context)))) + (ast-case form () ((hd body) (cond @@ -752,12 +755,14 @@ namespace: gxc => (lambda (return-type) (cond ((!procedure? return-type) - (make-!signature return: 'procedure::t)) + (make-!signature return: 'procedure::t + origin: (expander-context-id (current-expander-context)))) ((optimizer-lookup-class-name return-type) => (lambda (return-type-name) - (make-!signature return: return-type-name))) - (else #f)))) - (else #f))))) + (make-!signature return: return-type-name + origin: (expander-context-id (current-expander-context))))) + (else (default-signature))))) + (else (default-signature)))))) (def (extract-lambda-signature-begin-annotation% self stx) (ast-case stx (@type.signature) @@ -780,7 +785,9 @@ namespace: gxc (cons* unchecked: (identifier-symbol arg) result))) (else (raise-compile-error "bad lambda signature" stx #'(signature ...) key)))) - ([] (apply make-!signature result)) + ([] (apply make-!signature + origin: (expander-context-id (current-expander-context)) + result)) (_ (raise-compile-error "bad lambda signature" stx #'(signature ...)))))) ((_ ann body) (compile-e self #'body)))) diff --git a/src/gerbil/compiler/optimize.ss b/src/gerbil/compiler/optimize.ss index a06dcafee..d2ffe3529 100644 --- a/src/gerbil/compiler/optimize.ss +++ b/src/gerbil/compiler/optimize.ss @@ -293,7 +293,8 @@ namespace: gxc signature: [return: signature.return effect: signature.effect arguments: signature.arguments - unchecked: signature.unchecked]]) + unchecked: signature.unchecked + origin: signature.origin]]) ['@lambda arity dispatch])))) (defmethod {typedecl !case-lambda} diff --git a/src/gerbil/compiler/ssxi.ss b/src/gerbil/compiler/ssxi.ss index 70ee79375..a94a0c511 100644 --- a/src/gerbil/compiler/ssxi.ss +++ b/src/gerbil/compiler/ssxi.ss @@ -166,7 +166,8 @@ namespace: gxc #'(make-!signature arguments: 'args return: 'return effect: 'effect - unchecked: 'unchecked))])) + unchecked: 'unchecked + origin: 'builtin))])) (verify-procedure! ctx proc) (syntax-case sig () @@ -188,9 +189,10 @@ namespace: gxc ((_ arguments: (quote args) return: (quote return) effect: (quote effect) - unchecked: (quote unchecked)) + unchecked: (quote unchecked) + origin: (quote origin)) (and (stx-e #'unchecked) - #'(unchecked (make-!signature return: 'return))))))) + #'(unchecked (make-!signature return: 'return origin: 'origin))))))) (defsyntax (declare-primitive-predicate stx) (syntax-case stx () @@ -241,8 +243,9 @@ namespace: gxc (_ arguments: (quote args) return: (quote return) effect: (quote effect) - unchecked: (quote unchecked))) - (let ((clause #'(make-!primitive-lambda 'arity #f signature: (make-!signature return: 'return))) + unchecked: (quote unchecked) + origin: (quote origin))) + (let ((clause #'(make-!primitive-lambda 'arity #f signature: (make-!signature return: 'return origin: 'origin))) (unchecked (stx-e #'unchecked))) (loop rest (or unchecked unchecked-proc)